.qQW8@@&@./@hHiHsr@{H.{H(v 4h&49 h:4phP .4t!hh 4&hR4b'h4u:hJ 4h.<Shl<Sh<dh<ehdsrh0 .h%h%[h%h%p:hd6.%8;h%`h (h %h8;hZ.`h&h kxh k%h kWh .'Sh'fh ,h<>-h-nh~.-Khl.h8U-@-n@V.-K@8U<@y:@:S@;K@.K`@{L}@9R q@uS@S@-.X4@B]KX@A^cK@5a|@eK@.1fR@f_@f(@fZ@h@2.rq~K@vq@;w_@w(@wp@.wvL@wY@{@{@}R@l.u~@@~lM@w:@ Kh{L}hN.9R qhHuSh0ShX4h\ Z,h.B]KXhb B][qh` B]hf B]Phd A^cKhZ ._-h5a|hH1fRhNf_hf(h.fZhNfZh8f(}hFf}h0Vq. LI_ BU_  $%"f(}$%(.IRhDEP * hi"h$._  :)& f_ f_ \'"'S":S &%S\. f_ _ WILL BE REh1fRf}TAINED IN CIL g . \f_ e   %S\{{:S.8; ,f_ _ IS ALREADY INS1fRf}^ERTED  f ( }h %S(`($_ X8 B {, %SX %S8wY %SB.0 2& _ `_?5@_ , %S %S0 %S2`(S.Bȥ_ ȥȥU@& _ U%"{uS{h$(.h@& _ & _ d_ _  MODr d1fR"}R.ULE MISSING FROM INPUT U@_  &6.@f_ _ ` %U@ FXV.LVR_ _ $'_ $ .V %SR$ %S"$ (%S.r Gz_ $ R_ $ * z $R$$,  _ $&_ _T R_ , %S %S $&8T"R.0NO CIL OUTPUT DATA SET CILUS V0 0"1A69 r XbN".  r XbN'& LdpQ.  L d %S  %S$7.E_ _ ', %S %Sf_" &%S(_ _ _   " ( f_ %S %S".:__ _ TOO MANY INPUTp& %S 5a| %S}RF.` DATA SETS   % % %S %S.% e _T  %S $T.t_ _ TOO MANY OUTPUT y  t .f& _  f_  U@ ,  i:Si;. : ;f_ _ MAY NOT BE1fRf}. DELETED _ _$ $ vq $.& "!$)&_ 6 &'Sg6⋟ h@ :S` {._ _  _ _ 5@9R q uS_.  _  _ _  MI"`fZ 1fR %.&SSING MODULES: '! k" %S %S$wY(K`w(L_8& _ D, %S8 %S~lM %S %S.lf fffZ_ _  %SZ$>-(5a|._ Df 0_\\t4 f_ *vq %pL"  L888LLLZ.LX4@d&X4@$d&.r{dkl<.EdEEd\E=@= 2.2bcb.}RUDATA SETS   ._  "_ , NS_ _ &K`  %S",4&$!._ NO VALUE ON /NS SWITCH   w:(A^cK{.*   _ _ )FIRST BL& %SA^cK %Sw:)POCK VALUE ON /NS SWITCH IGNORED ) ru.r&_  " &_ f N&(({L} %S" %S f((._ &&&_&_ Vq-@-n@\.-K@.@c4@8U<@y:@E.;K@K`@X4@B]KX@B][q@.B]@B]P@A^cK@5a|@eK@.f_@f(@Vq4\4 $ _ rT5* %S> \ %S4 %S$$r(T.f_ _ 4 ( (0 &* d9 ;K %S( %S( $%S0.,f_  : _ e4 " %S,8 %S:-nQ.$0 $ _ r_ %S0 %S$r( J%_ j*f(w &. 5@e _ 0{ &0COMMAND INPUT ERROR     P 0.0@beE@_ D&.V &&_ &  .| _ 0 P 0H._    &f .fe N # a~%E _ 0 STAC}R.&_ HO_   BO_  P" %S %S &. TO_ & _ MT_  " %S  %S&!.& '-BL_ (_ _ NO1$ %S %S$}R<.  ARGUMENT ON BLOCKS SWITCH  % $%S 0  &(_ * %S %S %S %S(J+H_ " _ NO OUTPUT g*Vq.4 &_ 4$  $&_ $$./5@  &'fk%kxkx.TA_ _ _ /TAPES SWITCH HA }R."S NO VALUE 3 * " *.H_ INPUT FILE MISSING &W@_ #_  &_  _ |"d9 49   -K(. _ _ V_  _ V;K&J.2_ _ r,_ Ce rvq"4.XD P`   %SD %S %SPY.~@! e Ee&_  %S(.&_ & &_ %&_ 8sr$>-&_ a >-.c44$U< $%S8.^ : ('f_ q_ P& %S:<S %S(w.1~f_ @&_ _ H$,m'( >-$<S(&.f_ 8&_ f_ _ D$ >- %S8 eK&vq!.80 B W D!{* %S8 %S0wY %SB&u~@.C!  e    ! &4p,W W  '. p(4pwpwp %S $%S%S^ %S\.\\ Z \\ e . %S\ %S\ %SZ %S\ %S\i.<^ \Z&s"&" %S^ %S\ %SZ sHbv"_ 0 "v0y-y" _ D$ _ <_  <.< &_ $ &&8< . 2%&E@r_  [ 2&b.READ ERROR  2# _ # 2.  &D}R&vqy.n bd$  _ V bd"vq &%SV._ ` _ ,"vq&%.bb!4 _ "/" SWITCH Iw:.LLEGAL _ D$ _ R`vq(R.ΕΕ_ R $Rs., _ R  R$R_ VVX ^ _ #,vq %SV %SV %SX %'@y:@sT@/.A^cK@5a|@q@ q@q@.Kr@s@vP2@vq@}@.}R@Y@(<c4h%S(`(.'"_ n_  _ 0$4 %Snq&}R;.&DATA SET NOT A CIL _ & qU.L_ _  _  _ ,_ .vP2 %S   %S  ,$5a|.r &_ 4b*A^cK(&@8__ W  . %S %S %S8wYwvLu.^ 88_ 0e e*8U<8 %S84u: %S0_ _ HAS 0 SIZE 1fR }Rs. 8 &_ : :C_ G.8 X4: %S:<S &(4t!.. _ SYSTEM SCRATCH AREA <d}RdSMALL o .&  e0e <d<S %S0,) _ &&ef.}.6~&_ Ble$B` ".\B` e_ A B B_ 5 .C  D ` _ (G.!&_ _ D4 3  5. $ 3 #$ $ _ !"&.   _  _  %S (. !&_ 0 _ D &f 0 S^nTOO MANY INPUTS }R.!_ D&& % &^ vq^"&_ &.<e4b' K`(&K`'._ ,_ B bb%$ K,vq%B.e_ !el vq (" KK  %"%[+ %S %S %S$y:&x _ 4* qqKrs}vq&. B$ W _ NO"sT %S$}R DEVICE BOOTSTRAP @ .A@epD P _ L$ %SD %SP vq (%S.P@&_ `  %SPY.rq,`(qh:.rD ,.  _  _  ," (B]KX.< f  f f  A^cK ff f.bf&_ `_ C   ׬"f-Kvq %S".#׬Y_   ~+&vq %S $~(f_i.e ҕ: ҕ.  0" f_"(. ~ / ~  X w"~/~"X(.ҕ._ DIREC-.@ 5 ffG.f f X _ BDr &f_ Cf X r & H. &_  f_ &&  . &_ D&_ &  $. _ D  & 5  &.     E_     .$ &&    5ee  .J  /p . .TITLE PST V005A PERMANENT SYMBOL TABLE .IDENT /005A / ; COPYRIGHT 1972 DIGITAL EQUIPMENT CORPORATION ; 14 AUG 72 .GLOBL PSTBAS, PSTTOP ;LIMITS .GLOBL WRDSYM ;POINTER TO .WORD DR1= 200 ;DESTRUCTIVE REFERENCE IN FIRST FIELD DR2= 100 ;DESTRUCTIVE REFERENCE IN SECOND FIELD .GLOBL DFLGEV, DFLGBM, DFLCND, DFLMAC, DFLSMC DFLGEV= 020 ;DIRECTIVE REQUIRES EVEN LOCATION DFLGBM= 010 ;DIRECTIVE USES BYTE MODE DFLCND= 004 ;CONDITIONAL DIRECTIVE DFLMAC= 002 ;MACRO DIR/X.&e `D  p `` H  fLȋ Ye h ha( @>0.:r,`(Krh.rD Xe.&C 5 ee ```L H  ȋ YF h ha( >:.p,`( qh+.rD X (fTORY LISTING LOGICA  . L BLOCK SIZE =NO. OF CORE IMAGES = 3.Fe  $ & |  |.l  %&R ҋ f$."eҋf"eҋfr."0Е ҕ ҕ , $(i(&& H {L}  1o.4:,@>-@vq@$.w:@(d9 hh hwh.8h8>^h8m'(hy:h:h.E`WheKh:#q@8hTqA^hrq~Kh.XhZYh`~Kh@8h%S(`._ D&_ &_ evq.&    &_ + &.L E֋ _ .rCHECKSUM ERROR _ 2ECTIVE DFLSMC= 001 ;MCALL .IF DF PAL11R ;PAL11R SUBSET XMACRO= 0 X45= 0 .ENDC .IIF DF X45, XFLTG= 0 .IIF DF XMACRO, XSML= 0 .MACRO OPCDEF NAME, CLASS, VALUE, FLAGS, COND .IF NB .IF DF COND .MEXIT .ENDC .ENDC .RAD50 /NAME/ .BYTE FLAGS+0 .GLOBL OPCL'CLASS .BYTE 200+OPCL'CLASS .WORD VALUE .ENDM .MACRO DIRDEF NAME, FLAGS, COND .RAD50 /.'NAME/ .BYTE FLAGS+0, 0 .IF NB .IF DF COND .GLOBL OPCERR .WORD OPCERR .MEXIT .ENDC .ENDC .GL3.&HL  eH` H gL ȋ YQ h ha( @>&.s,`(sh.rD Xe.&C  e ee P.L` `` H  ȋ Ya( r>.z},`(}h.rD X.&ȋ 4 ; PDP-11 DOS SYSTEM MACROS V005A ;COPYRIGHT 1972 DIGITAL EQUIPMENT CORPORATION ; ; AUGUST 1972. .MACRO .PARAM R0=%^O0 R1=%^O1 R2=%^O2 R3=%^O3 R4=%^O4 R5=%^O5 R6=%^O6 R7=%^O7 SP=%^O6 PC=%^O7 PSW=^O177776 SWR=^O177570 .ENDM .MACRO .INIT .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O6> .ENDM .MACRO .RLSE .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O7> .ENDM .MACRO .CLOSE .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O17> .ENDM .MACRO .READ .LBLCK,.LBUFF 5CD$w: vqc.e& &_ ”&_  &_ (].& &_ _ D&_ e* vq".  &_  5  .   3e %~.0 _ CD$&_ vq&.V&_ _ ADDRESS OUT OF RANGE w:.| _ D  e vq`.(e c6OBL NAME .WORD NAME .ENDM PSTBAS: ;BASE OPCDEF , 01, 170600, DR1, X45 OPCDEF , 01, 170600, DR1, X45 OPCDEF , 01, 005500, DR1 OPCDEF , 01, 105500, DR1 OPCDEF , 02, 060000, DR2 OPCDEF , 11, 172000, DR2, X45 OPCDEF , 11, 172000, DR2, X45 OPCDEF , 09, 072000, DR2, X45 OPCDEF , 09, 073000, DR2, X45 OPCDEF , 01, 006300, DR1 OPCDEF , 01, 106300, DR1 OPCDEF , 01, 006200, DR1 OPCDEF ȋp"  $>.L H` H  ȋ Ya( r>.bT,`(sTh.nlD  $ ^.&CBV`ȋ 5@PYebLY- h h>RDG .MCALL .AMODE .AMODE .LBUFF .AMODE .LBLCK EMT <^O4> .ENDM .MACRO .WRITE .LBLCK,.LBUFF .MCALL .AMODE .AMODE .LBUFF .AMODE .LBLCK EMT <^O2> .ENDM .MACRO .OPENO .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O2> .OPEN .LBLCK,.FBLCK .ENDM .MACRO .OPENI .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O4> .OPEN .LBLCK,.FBLCK .ENDM .MACRO .OPENU .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O1> .OPEN .LBLCK,.FBLCK .ENDM .MACRO .OPENC .LBLCK,.FBLCKE@sc.3 _ D  e vqZ. e &  &_ ` (`f.&_ Zl%%KՋ  N  Z.: R 2 .`_ D3&& _  vq(w:U. TRAN ERROR _ D &_ ` vq&`._ DCB   aJ J` vqh. _ D' &&a vq`.F, 01, 106200, DR1 OPCDEF , 04, 103000, OPCDEF , 04, 103400, OPCDEF , 04, 001400, OPCDEF , 04, 002000, OPCDEF , 04, 003000, OPCDEF , 04, 101000, OPCDEF , 04, 103000, OPCDEF , 02, 040000, DR2 OPCDEF , 02, 140000, DR2 OPCDEF , 02, 050000, DR2 OPCDEF , 02, 150000, DR2 OPCDEF , 02, 030000, OPCDEF , 02, 130000, OPCDEF , 04, 003400, OPCDEF , 04, 103400, O$JOB GOTA16[1,1] $ME MOUNT DEC-11-OCSPA-A-UC1 ON DT0: WRITE LOCKED $ME MOUNT DEC-11-OCSPA-A-UC2 ON DT1: WRITE LOCKED $ME TYPE "CO" WHEN READY $WA $CH GOTA.16K $CH GOTA.ALL $CH GOTA.16L $RU PIP #GOTA.*/DE #ODT11R.TMP/REk  aʋaՀ$ & * P$ ΋Ί   ΋   d Ί  ( 1'u  Q$f $5@ U C΋ Cb M΋U@ U &  B" .&0 M  _  % _ X,&,g.~ && _ _ D  vq.D _ f_ &_ ">- >-!.jBCD"  e %$ vql.f _ _ D4&_ & &vq$_ &_ 6jJPCDEF , 04, 101400, OPCDEF , 04, 002400, OPCDEF , 04, 100400, OPCDEF , 04, 001000, OPCDEF , 04, 100000, OPCDEF , 00, 000003, , X45 OPCDEF
, 04, 000400, OPCDEF , 04, 102000, OPCDEF , 04, 102400, OPCDEF , 00, 000257, OPCDEF , 00, 170000, , X45 OPCDEF , 00, 000241, OPCDEF , 00, 000250, OPCDEF , 01, 005000, DR1 OPCDEF , 01, 105000, DR1 OPCDEF , 01,K .MCALL .CODE,.OPEN .CODE .FBLCK,<^O13> .OPEN .LBLCK,.FBLCK .ENDM .MACRO .OPENE .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O3> .OPEN .LBLCK,.FBLCK .ENDM .MACRO .OPEN .LBLCK,.FBLCK .MCALL .AMODE .AMODE .FBLCK .AMODE .LBLCK EMT <^O16> .ENDM .MACRO .WAIT .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O1> .ENDM .MACRO .WAITR .LBLCK,.ADDR .MCALL .AMODE .AMODE .ADDR .AMODE .LBLCK EMT <^O0> .ENDM .MACRO .BLOCK .LBLCK,.BBLCK .MCALL .AMODE .AM$RU DT0:PIP.16K #SY:, 01, 170400, DR1, X45 OPCDEF , 00, 000242, OPCDEF , 00, 000244, OPCDEF , 02, 020000, OPCDEF , 02, 120000, OPCDEF , 11, 173400, , X45 OPCDEF , 11, 173400, , X45 OPCDEF , 00, 000254, OPCDEF , 01, 005100, DR1 OPCDEF , 01, 105100, DR1 OPCDEF , 01, 005300, DR1 OPCDEF , 01, 105300, DR1 OPCDEF
, 07, 071000, DR2, X45 OPCDEF , 11, 174400, DR2, OODE .BBLCK .AMODE .LBLCK EMT <^O11> .ENDM .MACRO .TRAN .LBLCK,.TBLCK .MCALL .AMODE .AMODE .TBLCK .AMODE .LBLCK EMT <^O10> .ENDM .MACRO .SPEC .LBLCK,.SARG .MCALL .AMODE .AMODE .SARG .AMODE .LBLCK EMT <^O12> .ENDM .MACRO .STAT .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O13> .ENDM .MACRO .ALLOC .LBLCK,.FBLCK,.N .MCALL .AMODE .AMODE .N .AMODE .FBLCK .AMODE .LBLCK EMT <^O15> .ENDM .MACRO .DELET .LBLCK,.FBLCK .MCALL .AMODE .AMODE .FBLCK .AMOD$RUN LINKOB.12K $RUN LINK.12K #LINK.LDA, 11, 174400, DR2, X45 OPCDEF , 06, 104000, OPCDEF , 00, 000000, OPCDEF , 01, 005200, DR1 OPCDEF , 01, 105200, DR1 OPCDEF , 00, 000004, OPCDEF , 01, 000100, OPCDEF , 05, 004000, DR1 OPCDEF , 11, 177400, DR2, X45 OPCDEF , 11, 177400, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, XSE .LBLCK EMT <^O21> .ENDM .MACRO .RENAM .LBLCK,.OFB,.NFB .MCALL .AMODE .AMODE .NFB .AMODE .OFB .AMODE .LBLCK EMT <^O20> .ENDM .MACRO .APPND .LBLCK,.1FB,.2FB .MCALL .AMODE .AMODE .2FB .AMODE .1FB .AMODE .LBLCK EMT <^O22> .ENDM .MACRO .LOOK .LBLCK,.FBLCK,.OP .MCALL .AMODE .AMODE .FBLCK .IIF NB,.OP,CLR -(SP) .AMODE .LBLCK EMT <^O14> .ENDM .MACRO .KEEP .LBLCK,.FBLCK .MCALL .AMODE .AMODE .FBLCK .AMODE .LBLCK EMT <^O24> .ENDM .MACRO .EXIT EMU PIP #*.OBJ/DE #DC:, 11, 172400, DR2, X45 OPCDEF , 14, 176400, DR2, X45 OPCDEF , 11, 172400, DR2, X45 OPCDEF , 01, 170100, , X45 OPCDEF , 00, 170004, , X45 OPCDEF , 00, 170003, , X45 OPCDEF , 10, 006400, , X45 OPCDEF , 01, 106500, , X45 OPCDEF , 01, 006500, , X45 OPCDEF , 11, 171400, DR2, X45 OPCDEF , 11, 171400, DR2, X45 OPCDEF , 02, 010000, DR2 OPCDEF , 02, 110000, DWT <^O60> .ENDM .MACRO .TRAP .STUS,.ADDR .MCALL .AMODE .AMODE .ADDR .AMODE .STUS MOV #^O1,-(SP) EMT <^O41> .ENDM .MACRO .STFPU .STUS,.ADDR .MCALL .AMODE .AMODE .ADDR .AMODE .STUS MOV #^O3,-(SP) EMT <^O41> .ENDM .MACRO .RECRD .LBLCK,.RBLCK .MCALL .AMODE .AMODE .RBLCK .AMODE .LBLCK EMT <^O25> .ENDM .MACRO .DUMP .LOW,.HIGH,.CDE .MCALL .AMODE .AMODE .LOW .AMODE .HIGH .AMODE .CDE EMT <^O64> .ENDM .MACRO .RSTRT .ADDR .MCALL .AMODE .AMODE .ADU PIP #*.OBJ/DE #DC:, 01, 106600, DR1, X45 OPCDEF , 01, 006600, DR1, X45 OPCDEF , 07, 070000, DR2, X45 OPCDEF , 11, 171000, DR2, X45 OPCDEF , 11, 171000, DR2, X45 OPCDEF , 01, 005400, DR1 OPCDEF , 01, 105400, DR1 OPCDEF , 01, 170700, DR1, X45 OPCDEF , 01, 170700, DR1, X45 OPCDEF , 00, 000240, OPCDEF , 00, 000005, OPCDEF , 01, 006100, DR1 OPCDEF , 01, 106100, DR1 OPCDEF , 01, 0[DR MOV #^O2,-(SP) EMT <^O41> .ENDM .MACRO .CORE MOV #^O100,-(SP) EMT <^O41> .ENDM .MACRO .MONR MOV #^O101,-(SP) EMT <^O41> .ENDM .MACRO .MONF MOV #^O102,-(SP) EMT <^O41> .ENDM .MACRO .DATE MOV #^O103,-(SP) EMT <^O41> .ENDM .MACRO .TIME MOV #^O104,-(SP) EMT <^O41> .ENDM .MACRO .GTUIC MOV #^O105,-(SP) EMT <^O41> .ENDM .MACRO .SYSDV MOV #^O106,-(SP) EMT <^O41> .ENDM .MACRO .RADPK .ADDR .MCALL .AMODE .AMODE .ADDR CLR -(SP) ^06000, DR1 OPCDEF , 01, 106000, DR1 OPCDEF , 00, 000002, OPCDEF , 03, 000200, DR1 OPCDEF , 00, 000006, , X45 OPCDEF , 01, 005600, DR1 OPCDEF , 01, 105600, DR1 OPCDEF , 00, 000277, OPCDEF , 00, 000261, OPCDEF , 00, 000270, OPCDEF , 00, 170011, , X45 OPCDEF , 00, 170001, , X45 OPCDEF , 00, 170002, , X45 OPCDEF , 00, 170012, , X45 OPCDEF , 00, 000262, OP_EMT <^O42> .ENDM .MACRO .RADUP .ADDR,.WRD .MCALL .AMODE .AMODE .WRD .AMODE .ADDR MOV #^O1,-(SP) EMT <^O42> .ENDM .MACRO .D2BIN .ADDR .MCALL .AMODE .AMODE .ADDR MOV #^O2,-(SP) EMT <^O42> .ENDM .MACRO .BIN2D .ADDR,.WRD .MCALL .AMODE .AMODE .WRD .AMODE .ADDR MOV #^O3,-(SP) EMT <^O42> .ENDM .MACRO .O2BIN .ADDR .MCALL .AMODE .AMODE .ADDR MOV #^O4,-(SP) EMT <^O42> .ENDM .MACRO .BIN2O .ADDR,.WRD .MCALL .AMODE .AMODE .WRD .AMODE .ADDR MOV #bCDEF , 00, 000264, OPCDEF , 08, 077000, DR1, X45 OPCDEF , 13, 000230, , X45 OPCDEF , 00, 170005, , X45 OPCDEF , 00, 170006, , X45 OPCDEF , 12, 176000, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 176000, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 174000, DR2, X45 OPCDEF , 12, 175000, DR2, X45 Oc^O5,-(SP) EMT <^O42> .ENDM .MACRO .CSI1 .CMDBF .MCALL .AMODE .AMODE .CMDBF EMT <^O56> .ENDM .MACRO .CSI2 .CSBLK .MCALL .AMODE .AMODE .CSBLK EMT <^O57> .ENDM .MACRO .DTCVT .ADDR .MCALL .CVTDT .CVTDT #^O0,.ADDR .ENDM .MACRO .TMCVT .ADDR .MCALL .CVTDT .CVTDT #^O1,.ADDR .ENDM .MACRO .CVTDT .CDE,.ADDR,.VAL1,.VAL2 .MCALL .AMODE .IF NB,.VAL2 .AMODE .VAL2 .ENDC .IF NB,.VAL1 .AMODE .VAL1 .ENDC .AMODE .ADDR .AMODE .CDE EMT <^O66> .ENDM .MAfPCDEF , 12, 174000, DR2, X45 OPCDEF , 01, 170200, DR1, X45 OPCDEF , 00, 170007, , X45 OPCDEF , 01, 170300, DR1, X45 OPCDEF , 02, 160000, DR2 OPCDEF , 11, 173000, DR2, X45 OPCDEF , 11, 173000, DR2, X45 OPCDEF , 01, 000300, DR1 OPCDEF , 01, 006700, DR1, X45 OPCDEF , 06, 104400, OPCDEF , 01, 005700, OPCDEF , 01, 105700, OPCDEF , 01, 170500, , X45 OPCDEF , 01, 170500,gCRO .GTPLA CLR -(SP) MOV #^O5,-(SP) EMT <^O41> .ENDM .MACRO .STPLA .ADDR .MCALL .AMODE .AMODE .ADDR MOV #^O5,-(SP) EMT <^O41> .ENDM .MACRO .GTCIL MOV #^O111,-(SP) EMT <^O41> .ENDM .MACRO .GTSTK CLR -(SP) MOV #^O4,-(SP) EMT <^O41> .ENDM .MACRO .STSTK .ADDR .MCALL .AMODE .AMODE .ADDR MOV #^O4,-(SP) EMT <^O41> .ENDM .MACRO .RUN .RNBLK .MCALL .AMODE .AMODE .RNBLK EMT <^O65> .ENDM .MACRO .FLUSH .CDE .MCALL .AMODE .AMODE .CDE EMT <^j , X45 OPCDEF , 00, 000001, OPCDEF , 05, 074000, DR2, X45 DIRDEF , DFLGBM DIRDEF , DFLGBM DIRDEF DIRDEF DIRDEF , DFLGEV DIRDEF , DFLGBM DIRDEF .IF DF YPHASE DIRDEF .ENDC DIRDEF DIRDEF DIRDEF DIRDEF , DFLCND DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF DIRDEF DIRDEF DIRDEF , DFLGEV, XFLTG DIRDEF .ENDM ; THE MACRO .AMODE ACCEPTS ONE ARGUMENT AND ; AS A FUNCTION OF THE ADDRESSING MODE OF ; THE ARGUMENT GENERATES THE APPROPRIATE ; MOV TO -(SP). ; ADDRESS MODES THAT ARE TROUBLESOME (E.G. ; X(SP)) OR UNLIKELY (E.G. SP) WILL RESULT ; IN A .ERROR TO CMO INCLUDING THE ; VALUE OF THE ADDRESS MODE (E.G. X(SP) ; IS REPRESENTED AS 000066), THE ARGUMENT ITSELF ; AND THE TEXT "ADDRESSING MODE ILLEGAL AS SYSTEM ; MACRO ARGUMENT". ; .MACRO .AMODE .ARG SP=%^O6 .NTYPE .SYM,.ARG ;.SYM=ADDRnLT4 >, DFLGEV, XFLTG DIRDEF DIRDEF DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF DIRDEF , DFLMAC, XMACRO DIRoESS MODE. .IF LE,.SYM-^O5 MOV .ARG,-(SP) ;R0 TO R5 .MEXIT .ENDC .IF EQ,.SYM&^O70-^O10 .IF LE,.SYM&^O7-^O6 MOV .ARG,-(SP) ;@R0 TO @R6 .MEXIT .ENDC .ENDC .IF EQ,.SYM&^O60-^O20 MOV .ARG,-(SP) ;[@](R0)+ TO [@](R7)+ .MEXIT ; #N,@#ADDR .ENDC .IF EQ,.SYM&^O40-^O40 .IF LE,.SYM&^O7-^O5 MOV .ARG,-(SP) ;[@]-(R0) TO [@]-(R5) .MEXIT ;[@]X(R0) TO [@]X(R5) .ENDC .ENDC .IF EQ,.SYM&^O67-^O67 MOV .ARG,-(SP) ;ADDR AND @ADDR .MEXIT .ENDC .ERROR .SYM ;.ARG ADDrDEF , DFLMAC, XMACRO DIRDEF , DFLGEV DIRDEF DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF , DFLSMC, XSML DIRDEF , , XMACRO DIRDEF , , XMACRO DIRDEF , , XMACRO DIRDEF DIRDEF , , XMACRO DIRDEF DIRDEF .IF DF YPHASE DIRDEF .ENDC DIRDEF DIRDEF DIRDEF , DFLGEV DIRDEF DIRDEF , DFLMAC, XMACRO DIRDEF DIRDEF WRDSYM: DIRDEF , DFLGEV PSTTOP: ;TOP LIMIT .END