Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
rel/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
, r O@ P C' w 8 OP%%IA (A ,B,ADD,SUB)(AC2L{G V( 6 <^D35-<^L<VHRGHBT.(A)>>+<^D3Vh7*<<^L<RGHBT.(A) >>/^D36>>>.(A)C:' /H"| TXZ A,-1- <B> TXZ A,-1-ES | W( <
REPEAT WH3,<
TXCE A,1B< B>!1B<C>
>B<G@ ph OP%%CA (A ,B,)OP%%CA (AGD t( " OP%%CA (A ,B,A)P%%CA (AGDP r( OP%%CA (A ,B,E)P%%CA (AGDp rh OP%%CA (A ,B,G)P%%CA (AGDy s( OP%%CA (A ,B,GE)%%CA (AGE@ q(
OP%%CA (A ,B,L)P%%CA (AGEI qh OP%%CA (A ,B,LE)%%CA (AGE` sh OP%%CA (A ,B,N)P%%CA (AG&tkg XH H
DEFINE XhINFO.(OPCODE,NEWAYRG)<
OPCODE NEW ARG> OPCODE NEWG>vC@ Mh v LALL
N PAGE ;(CONTINN(UED ON NEXT PAGE)NH
SALL ;(CONhNTINUED FROM PREV IOUS PAGE)
REVI6= ^h
..OLD==_10
..TYP==3
IF_(E <C>+1,..TYP==0_H
IFE <C>-^O7777_h77,..TYP==1
IFE `<C>-^O777777B17,`(..TYP==2
..POS==`HPOS(<C>)
..WID=`h=WID(<C>)
RADIaX 10
DF%%ST (\.a(.TYP,A,<B>,\..PaHOS,\..WID)
PURGahE ..OLD,..TYP,..P OS,..WIDTYP,..PI(\z b( &
RADIX .bH.OLD
DEFINE B (bhOPS,AC,E),<
..Cc==0
IRP OPS,<
c( IFE A-..C,<
cH STOPI
IFN 3ch-..C, OPS <AC>,Cd'E
IFE 3-..C,d( OPS <AC>,[POINT dHE,C'E,D]
>
..C==..C+1>
P URGE ..C>
PI'7 y H OP%%IN (A ,B,DIV)%IN (AKc K( ^
IRP A,KH<
IF2,< IFNDEF KhA,<EXTERN A> >> ,<EXTERN A> >>M&. ~( r OP%%FA (A ,B,FADR,FSBR)AM6. h ~ OP%%FP (A ,B,FDVR)FP (AM&eG UH . <<A>!<<LFUhTBT.(A)>-<RGHBT. (A)>>>-<RGHBT.M7. ( z OP%%FP (A ,B,FMPR)FP (AMH(X6 ^( r
DEFINE A,<-^OB(P)>
MJ ZH n
OLD%%%=Zh=10
RADIX 8
[N%%%==0
IRP A[(,<
FR%%AM (A,\[H<N%%%+1>)
N%%%[h==N%%%+1
>
A\DD P,[N%%%,,N%%%]\(
PUSHJ P,b
SKIPA
AOS -\hN%%%(P)
SUB P,][N%%%,,N%%%]
P](OPJ P,
b:
R]HADIX OLD%%%
PUR]hGE N%%%,OLD%%%
E N%%%,OLD%%%
MN. ~h v OP%%FA (A ,B,FSBR,FADR)AM\u|RQ O2| L( j
IRP A,LH<
IF2,< IFDEF LhA,<INTERN A>
MIFNDEF A,<EXTERNM( A>
SUPPRE A >>
SUPPRE ASNn yH L OP%%IN (A ,B,IDIV)IN (AS7-N xH D OP%%IN (A ,B,IMUL)IN (AS; k X @ <<<A>B<PO S(<B>)>>&<B>>S? /"x TXO A,<B > TXO A,<BUVn Ah$* IFE <<B>_B1>,<
IFE <B>,<
JUMP A,D
>
BHIFN <B>,<
IFE <Bh<C>&<B>>,<
JUCMPL A,D
>
IFNC( <<C>&<B>>,<
CHJUMPGE A,D
>>>Ch
IFN <<B>1>,<
TXCA A,<<C>&<D(B>>
JRST .+5
DH TXCE A,<<C>&<DhB>>
JRST D
TEXNE A,<<-<C>-1>E(&<B>>
JRST D
>>>
JRST D
' =h$
IFE <<B>>_1>,<
IFE <B>,>(<
JUMPA A,D
>H>
IFN <B>,<
IF>hE <<C>&<B>>,<
? JUMPGE A,D
>?(
IFN <<C>&<B>>,?H<
JUMPL A,D
?h>>>
IFN <<B>_1>@,<
TXCA A,<<C@(>&<B>>
JRST .+@H5
TXCE A,<<C>@h&<B>>
JRST .+3A
TXNN A,<<-<CA(>-1>&<B>>
JRST D
>>>
JRSTUVn
Eh$p
IFDIF <FB><C>,<
JFCL 1F(,.+1
JRST .+1FH
IFNB <B>,< JFhFCL 1,B
GIFNB G<C>,<IFIDN <C><G(D>,<IFIDN <D><GHE>,< JRST C>>>>
IFB <B>,< JFCL H1,i
IFIDN <CH(><D>,<IFIDN <D>HH<E>,< JRST C>>>Hh
>
IFDIF <C>I<D>,<
HRLOI AI(,-2
IFNB <C>,IH< AOBJP A,C
IhIFNB <D>,<IFIDN J<D><E>,<JRST DJ(>>>
IFB <C>,<IFJHDIF <D><E>,<AOBJhJP A,i>
IKFIDN <D><E>,<AOK(BJN A,D>>
>
KH
IFDIF <D><E>,<Kh
IF2,<IFE A,<PLRINTX ? A MUST BL(E NON-ZERO IN JUMLHPPT>>
MOVEI A,Lh0
BLT A,0
IFNB <D>,< JUMPM(E A,D
IFNB <MHE>,< JRST E>>
MhIFB <D>,< JUMPN NA,E>
>
i: A,E>
>
i:Y$- U ( <1B<^L<A> >> <1B<^L<A>Y tQ x Y>
C@ e( , B (<MOVEeH,HRRZ,HLRZ,LDB>,< A>,<C>)LDB>,<YO%yG O(
IFNDEF OHLSTIN., LSTIN.==0Oh
IFE LSTIN.,<
PIFB <A>, .XCREF
XLIST>
LSTIN .==LSTIN.+1
INYO%{G Ph
IFG LSTIQN., LSTIN.==LSTINQ(.-1
IFLE LSTIN.,QH< .CREF
LIST>
CREF
LIST> T <<<1<A>> -1>B<B>><A>>[?7 h n
.XCREF
TEST%%=0
IFE <hH<B>_-^D18>,<
ThhEST%%=1
.CREF
i MOVEI A,<B>
i(.XCREF
>
IFN <iHB>,<
IFE <<B>_^ihD18>,<
TEST%%=1j
.CREF
MOVSI j(A,(B)
.XCREF
>
IFE <<<B>-^jhD18>-^O777777>,<
TEST%%=1
.CREk(F
HRROI A,<B>kH
.XCREF
>
IFEkh TEST%%,<
IFE <<l<B>_^D18>-^O7777l(77B17>,<
TEST%%lH=1
.CREF
HRLOlhI A,(<B>-^O7777m77)
.XCREF
>
m(IFE TEST%%,<
.CmHREF
MOVE A,[Bmh]
>>>
PURGE TE ST%%
.CREF TE[Vg x @ OP%%IN (A ,B,MUL)%IN (A] H( B
IFNDEF A,<A==B>
F ]` IH N
IFNDEF IhA,<A==B>
SHO W. (A)
SHO_@(Xp th 4
.XCREF
IFE <<B>_-^D18>u(,<
.CREF
CAIuHC A,<B>
.XCREuhF
>
IFN <<B>_-v^D18>,<
.CREF
v( CAMC A,[B]
vH.XCREF
>
.CREF CREF
>
.CREF_@(YP (
.XCREF
IFE <<<B>_^D18> h-^O777777B17>,<
.CREF
DI A,((-<B>)
.XCREF
H>
IFN <<<B>_^D1h8>-^O777777B17>,<
OP%%FP A,<B>(,C
>
.CREF
C
>
.CREF
_@(YX h "
.XCREF
IFE <<B>_^D18>,(<
.CREF
CI HA,(B)
.XCREF
h>
IFN <<B>_^D18>,<
.CREF
C (A,[B]
.XCREF
>
.CREFCREF ^
.XCREF
IFE <<<B>_-^D18zH>-^O777777>,<
.zhCREF
DI A,-<{B>
.XCREF
>
I{(FN <<<B>_-^D18>-{H^O777777>,<
OP%{h%IN A,<B>,C
>
.CREF>,C
>_@(Z7 |( n
.XCREF
IFE <<B>_-^D18>|h,<
.CREF
CI }A,<B>
.XCREF
>
IFN <<B>_-^D}H18>,<
.CREF
}hC A,[B]
.XCRE F
>
.CREFCRE_@(] *H"t
.XCREF
IFN <<A>&^O7777+77777760>, PRINTX+( ? A IS NOT AN A+HCCUMULATOR
TE+hMP%%=0
IFE <<B>,_^D18>,<
IFN <B,(>,<
TEMP%%=1
,H.CREF
C A,(B,h)
.XCREF
>>
I-FE <<B>_-^D18>,<-(
TEMP%%=1
.CR-HEF
D A,<B>
-h .XCREF
>
IFE T.EMP%%,<
.CREF
.( E A,[B]
>
.HPURGE TEMP%%
.C REF TEMP%%
.Ca
tTQ a
t Q a
t*9Q a
t>(Q a
t>(Q a
tk{Q a
tm3Q a
uJ8Q @ a
uiQ a
u}SQ @ a
vZ7Q a
v\yQ a*n r 5 a*n 4` a+= + a+= + a+ - a+-\ 4@ a+-\ 5` a+-\ 4 a+-\ 5@ a>Mm S( <POINT WIDSH(B),A,POS(B)> B),A,POS(B)>a?H6 + a? RH <^L<A>+^LRh<-<<A>_<^L<A>>> -1>-1><^L<A>>>e$YG YH P
DEFINE YhINFO.(OPCODE,NEWAZRG)<
OPCODE <A
NEWARG>> <Ae D- TH $ <<A>&-<A >> <<A>&-<Ae tP 'g"~s@ Hh H .XCREF
IEXP <A>
.ORG . -1
.CREFG .gR~#@ f 2 B (<MOVEf(M,HRRM,HRLM,DPB>, <A>,<C>)DPB>,gR~) n(
IFE <D>nH,< SETZM B>
IFnhE <D>+1,< SETOM oB>
IFN <D>*<<o(D>+1>,<MOVX A,<oHD>
MOVEM ohA,B>
IFNB <Cp>,<
MOVE A,p([B,,B+1]
BLT A,C
> BLT gV wH < OP%%IA (A ,B,SUB,ADD)(Aib ("P
.XCREF
IFB <B>, TXC (<&h^O37777777&A>,1B'<A_-^D30>)
IFNB'( <B>,<
IFN <<A'H>&^O777777777760>'h, PRINTX ? A IS (NOT AN ACCUMULATO((R
IFE <<<B>_-^D(H18>-^O777777>,<
(h .CREF
EQVI A,)<,,-1-<B>>
.XC)(REF>
IFN <<<B>_)H-^D18>-^O777777>,)h<
OP%%TX A,<B*>,TLC,TRC,TDC
>> .CREFC,TDC
>>ib $H"0
.XCREF
IFB <B>, OP%%T%X <^O37777777&A>%(,1B<A_-^D30>,TLC%HA,TRCA,TDCA
IFNB%h <B>, OP%%TX A,&<B>,TLCA,TRCA,TD CA
.CREF
,TDib P H"
.XCREF
IFB <B>, OP%%T!X <^O37777777&A>!(,1B<A_-^D30>,TLC!HE,TRCE,TDCE
IFNB!h <B>, OP%%TX A,"<B>,TLCE,TRCE,TD CE
.CREF
,TDib ` "H"
.XCREF
IFB <B>, OP%%T#X <^O37777777&A>#(,1B<A_-^D30>,TLC#HN,TRCN,TDCN
IFNB#h <B>, OP%%TX A,$<B>,TLCN,TRCN,TD CN
.CREF
,TDibp h *
IFB <B>, JFCL 0
IFNB <(B>, TRN A,<,,<B >>
N A,<,,<Bibt H!
.XCREF
IFB <B>, OP%%TX <^O37777777&A>(,1B<A_-^D30>,TLNHA,TRNA,TDNA
IFNBh <B>, OP%%TX A,<B>,TLNA,TRNA,TD NA
.CREF
,TDibtC@ :(#j
IFE <<B:H>_<1+^L<B>>>,<
:hIFE <<B>&<C>>,<;
TXNN A,<B>
;(>
IFN <<B>&<C>;H>,<
TXNE A,<B;h>
>>
IFN <<B>_<<1+^L<B>>>,<
T<(XCA A,<<C>&<B><H>
JRST .+4
TX<hCE A,<<C>&<B>>=
JRST .+3
TXN=(N A,<<-<C>-1>&< B>>
>C>-1>&<ibtP H!
.XCREF
IFB <B>, OP%%TX <^O37777777&A>(,1B<A_-^D30>,TLNHE,TRNE,TDNE
IFNBh <B>, OP%%TX A,<B>,TLNE,TRNE,TD NE
.CREF
,TDibu@ 6h#N
IFE <<B7>_<1+^L<B>>>,<
7(IFE <<B>&<C>>,<7H
TXNE A,<B>
7h>
IFN <<B>&<C>8>,<
TXNN A,<B8(>
>>
IFN <<B>_8H<1+^L<B>>>,<
T8hXCA A,<<C>&<B>9>
JRST .+4
TX9(CE A,<<C>&<B>>9H
JRST .+2
TXN9hE A,<<-<C>-1>&< B>>
>C>-1>&<ibu` H!
.XCREF
IFB <B>, OP%%TX <^O37777777&A>(,1B<A_-^D30>,TLNHN,TRNN,TDNN
IFNBh <B>, OP%%TX A,<B>,TLNN,TRNN,TD NN
.CREF
,TDibx
n
.XCREF
(
IFB <B>, TXO (<
H^O37777777&A>,1B
h<A_-^D30>)
IFNB <B>,<
IFN <<A (>&^O777777777760> H, PRINTX ? A IS hNOT AN ACCUMULATO
R
IFE <<<B>_-^D
(18>-^O777777>,<
H .CREF
ORCMI A
h,<,,-1-<B>>
.XF>
IFN <<<B>777777>
OP%%TX A,<O
> > .CREFO,TDO
>ib| H"
.XCREF
IFB <B>, OP%%T X <^O37777777&A> (,1B<A_-^D30>,TLO HA,TROA,TDOA
IFNB h <B>, OP%%TX A, <B>,TLOA,TROA,TD OA
.CREF
,TDib|P H!`
.XCREF
IFB <B>, OP%%TX <^O37777777&A>(,1B<A_-^D30>,TLOHE,TROE,TDOE
IFNBh <B>, OP%%TX A, <B>,TLOE,TROE,TD OE
.CREF
,TDib}` H!p
.XCREF
IFB <B>, OP%%T X <^O37777777&A> (,1B<A_-^D30>,TLO HN,TRON,TDON
IFNB h <B>, OP%%TX A, <B>,TLON,TRON,TD ON
.CREF
,TDicP h L
.XCREF
IFB <B>, TXZ (<(^O37777777&A>,1BH<A_-^D30>)
IFNBh <B>,<
IFN <<A>&^O777777777760>(, PRINTX ? A IS HNOT AN ACCUMULATOR
IFE <<<B>_-^Dh18>-^O777777>,<
( .CREF
ANDI A,H<,,-1-<B>>
.XChREF>
IFN <<<B>_ -^D18>-^O777777>, (<
OP%%TX A,<B H>,TLZ,TRZ,TDZ
>> .CREFZ,TDZ
>>icT H!P
.XCREF
IFB <B>, OP%%TX <^O37777777&A>(,1B<A_-^D30>,TLZHA,TRZA,TDZA
IFNBh <B>, OP%%TX A,<B>,TLZA,TRZA,TD ZA
.CREF
,TDicTP H!0
.XCREF
IFB <B>, OP%%TX <^O37777777&A>(,1B<A_-^D30>,TLZHE,TRZE,TDZE
IFNBh <B>, OP%%TX A,<B>,TLZE,TRZE,TD ZE
.CREF
,TDicU` H!@
.XCREF
IFB <B>, OP%%TX <^O37777777&A>(,1B<A_-^D30>,TLZHN,TRZN,TDZN
IFNBh <B>, OP%%TX A,<B>,TLZN,TRZN,TD ZN
.CREF
,TDif` 5H#2
MOVX A5h,1B<B_-^D30>
.6XCREF
<XORM A,6(>!<37777777&B>
.CREF
7&B>
iftS@ 0H#
MOVX A0h,1B<B_-^D30>
.1XCREF
<TDNE A,1(>!<37777777&B>
.CREF
7&B>
ifuc@ 1h#
MOVX A2,1B<B_-^D30>
.2(XCREF
<TDNN A,2H>!<37777777&B>
.CREF
7&B>
ify` 3#
MOVX A3(,1B<B_-^D30>
.3HXCREF
<IORM A,3h>!<37777777&B>
.CREF
7&B>
igQ` 4(#(
MOVX A4H,1B<B_-^D30>
.4hXCREF
<ANDCAM 5A,>!<37777777&B>
.CREF
7&B>mHtYP 'mHuZ7Q x mHvi9Q | mHvzQ p mK c@ G( < BYTE (3)AGHWHO (9)AVER (6) AMIN (18)AEDTo& R <^L<-<<A> _<^L<A>>>-1>>>q? 0# TXC A,<B > TXC A,<Bq@ J( V
INTERN JHA
IFB <C>,<JhA==B>
IFNB <C >,<A=B>
<Cus@ fh < B (<SETZgM,HLLZS,HRRZS,<PRg(INTX ?CAN'T ZERO gHBYTE>>,<A>,<C>) TE>>,<A>,<C>)
lzQ
D P ? DP > D)6P D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;TP D;WP D;WP D;XP D;XP D;YP D;YP D;ZP
D;ZP
D;[P D;[P D;\P
D;\P
D;]P D<ZP D=7P DI6P ? D\qP S@P &tj7Q ? 6MiTQ @ O,pP O,tP O,vP O, P j.+jP >}{woP