X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..8975ed2f727e4bb0190f22b1401821e5981cf7c2:/src/eddt.mac diff --git a/src/eddt.mac b/src/eddt.mac index 068ab5b..78e2109 100644 --- a/src/eddt.mac +++ b/src/eddt.mac @@ -13,7 +13,7 @@ DDT ASSEMBLY INSTRUCTIONS THE SOURCE OF DDT,13 WILL ASSEMBLE INTO SEVERAL DIFFERENT VERSIONS; THE ASSEMBY IS CONTROLED BY THE VALUE ASSIGNED -TO THE SYMBOL "EDDT". THE SYMBOL "EDDT" IS DECODED AS FOLLOWSR: +TO THE SYMBOL "EDDT". THE SYMBOL "EDDT" IS DECODED AS FOLLOWS: BIT 35 =0: ASSEMBLE USER MODE DDT =1: ASSEMBLE AN EXECUTIVE MODE DDT @@ -21,6 +21,7 @@ BIT 35 =0: ASSEMBLE USER MODE DDT BIT 34 =0: DO NOT ASSEMBLE THE PAPER TAPE FEATURE INTO DDT =1: ASSEMBLE THE PAPER TAPE FEATURES BUT ONLY IF ASSEMBLING AN EXECUTIVE MODE DDT + BIT 33 =0; FOR USER MODE DDT ONLY- ASSEMBLE USING THE "TTCALL" UUO FOR TELETYPE IO =1; FOR USER MODE DDT ONLY- ASSEMBLE USING THE @@ -48,6 +49,16 @@ EXAMPLES OF "EDDT" DEFINTIONS: WITH PAPER TAPE FEATURES, AND WHOSE STARTING ADDRESS IS LOCATION 4000. + + + + + + + + + + EXAMPLE OF A MACRO ASSEMBLY COMMAND: .^C @@ -59,7 +70,6 @@ EDDT=0 ^Z END OF PASS 1 ;THIS LINE TYPED BY MACRO - ^Z NO ERRORS DETECTED ;TYPED BY MACRO @@ -74,7 +84,6 @@ BY DEFINING "EDDT": A DIFFERENT WAY WHERE THE EXAMPLE DEFINED "EDDT=0". > ;END OF REPEAT 0 - IFNDEF EDDT, @@ -109,16 +118,14 @@ JOBDDT=74 RELOC 0 > - IFN EDDT&,B53> HEADER \DDTVER^ ;THE HEADER MACRO CONSTRUCTS THE TITLE AND VERSION # - -IFN EDDT&10,< CM=2 ;DEFINE SOFTWARE CHANS. + IFN EDDT&10,< CM=2 ;DEFINE SOFTWARE CHANS. DP=3 > - ;DEFINE ACCUMULATORS +;DEFINE ACCUMULATORS F=0 ;FLAGS P=1 ;PUSH DOWN @@ -163,7 +170,7 @@ SAF=2000 ; > TYPED FPF=20000 ; . TYPED IN FEF=400000 ; E FLAG -MLF=200 ;*FLAG +MLF=200 ;*FLAG DVF=40000 ;DIVIDE FLAG ;PID IS 20 IF SYM TAB POINTER IS INDIRECT JOBSYM @@ -173,12 +180,12 @@ PID=0 ;=0 IF SYMBOL TABLE POINTER IS IN JOBSYM ITF=2 ;INSTRUCTION TYPED IF ITF=1 OUTF=4 ;OUTPUT IF OUTF=1 -CF1=400 ;OUTPUT 1 REGISTER AS CONSTANT +CF1=400 ;OUTPUT 1 REGISTER AS CONSTANT LF1=2000 ;OUTPUT 1 REGISTER AS FORCED SYMBOLIC OR CONSTANT Q2F=1 ;NUMBER TYPED AFTER ALT MODE -R20F=10 ;TEMP FLAG USED IN SETUP +R20F=10 ;TEMP FLAG USED IN SETUP SBF=20 -NAF=200 ;NEGATIVE ADDRESSES PERMISSABLE +NAF=200 ;NEGATIVE ADDRESSES PERMISSABLE POWF=4000 ;ARGUMENT FOR EXPONENT COMING ;DEFINE SYMBOL TABLE SYMBOL TYPES @@ -197,12 +204,13 @@ DDT: INTERN DDTEND ;DECLARE END OF DDT AS INTERNAL, FOR DDTX=DDT ENTRY DDTX ;NEEDED BY MONITOR> + ;DEFINE $ SYMBOLS INTERNAL TO DDT OPDEF DDTINT [Z 0,] ;ADDRESS FLAG FOR INTERNAL REGISTERS RADIX 10 NBP=8 ;NUMBER OF BREAKPOINTS -DEFINE DBPNT (Z.) +DEFINE DBPNT (Z.)> ZZ=0 REPEAT NBP,> RADIX 8 @@ -212,7 +220,6 @@ XP $M,MSK XP $I,SAVPI SETUWP=36 - ;DEFINE I/O DEVICE MNEMONICS IFN EDDT&1,< @@ -232,7 +239,6 @@ XP UTC,210B11 XP UTS,214B11 XP DCSA,300B11 XP DCSB,304B11 - XP DF,270B11 XP MTC,220B11 XP MTS,224B11 @@ -250,6 +256,7 @@ XP JOV,2554B11 XP JEN,2545B11 XP HALT,2542B11 + IFE EDDT&10,< DDT: JSR SAVE PUSHJ P,REMOVB @@ -265,11 +272,12 @@ DDT: JSR SAVE MOVE W1,PRGM ; SAME PLACE. OR THEY DO NOT BOTH START ON XOR W1,W ; AN EVEN (OR BOTH ON ODD) LOCATION. OR TRNE W1,1 ; PRGM .GE.0, THEN RE-INIT PRGM. - JRST DDT2 ;EVEN-ODD PROBLEM + JRST DDT0 ;EVEN-ODD PROBLEM SKIPN T ;POINTERS DON'T END TOGETHER SKIPL PRGM ;IF PRGM .GE. 0, THEN RE-INIT DDT0: MOVEM W,PRGM ;PRGM=C(JOBSYM) > + IFN EDDT&10,< DDT: CALLI MOVEI T,SYMSET @@ -289,7 +297,6 @@ DDT: CALLI SETOM CRASHS ;FLAG CRASH.SAV EXISTS ON DSK USETI 1,1 INPUT 1,RSILST - STATZ 1,740000 HALT .-3 SETOM RSAVE ;FORCE READING OF "CURRENT" BLOCK @@ -324,7 +331,7 @@ HOW TO COPY MONITOR SYMBOL TABLE INTO FILDDT 6) AFTER CARRIAGE RETURN IS TYPED FILDDT IS DONE. 7) SAVE FILDDT WITH A NEW NAME SO AS NOT TO CONFUSE IT WITH THE ORIGINAL FILDDT.SAV - + THE MONITOR CAN BE LOADED IN ANY OF THREE WAYS(IN ORDER OF PREFERENCE): 1. UNDER TIME SHARING WITH REGULAR LOADER AND COMMON 2. UNDER REGULAR 10/30 MONITOR WITH REGULAR 10/30 LOADER & COMMON @@ -381,9 +388,7 @@ TCOPY: PUSHJ P,FETCH ;GET A WORD JRST NOLPT ;GO TRY IT DDTSTP: Z ;SAVE POSSIBLE SYMBOL POINTER > - - -DD1: PUSHJ P,CRF + DD1: PUSHJ P,CRF DD1.5: TLZ F,ROF ;CLOSE ANY OPEN REGISTER MOVE T,[XWD SCHM,SCH] BLT T,ODF ;LOAD ACS @@ -420,12 +425,13 @@ L2: PUSHJ P,TIN ;PICK UP CHARACTER JRST .+2 JRST LET L21: MOVE R,T - CAILF T,137 ;DISPATCH TABLE HAS ENTRIES ONLY .LE. 137 + CAILE T,137 ;DISPATCH TABLE HAS ENTRIES ONLY .LE. 137 JRST ERR IDIVI R,3 ;REMAINDER GIVES COLUMN, QUOTIENT GIVES ROW LDB W,BDISP(R+1) ;GET 12 BIT ADDRESS FROM DISPATCH TABLE CAIGE W,MULT-DDT ;FIRST EVAL ROUTINE JRST DDT(W) + MOVE T,SYL TLZN F,LTF JRST POWER @@ -508,7 +514,6 @@ UND1: MOVE R,ESTUT ;UNDEFINED SYM ASSEMBLER MOVE T,SYM TLO T,GLOBAL MOVEM T,(R) - HRRZ T,LLOCO TLNE F,MF TLO T,400000 @@ -588,7 +593,6 @@ NM1A1: TRZE W2,1 SOJG W1,NM1A1 NM1B: MOVSI W1,211000(T) FMPR R,W1 ;COMPUTE VALUE OF NEW DIGIT - FADRB R,FH ;ADD VALUE INTO FLOATING NO. MOVEM R,SYL AOJA T,LE1A @@ -632,8 +636,9 @@ POW2: LSH W2,-1 MOVEI T,45 ;RADIX 50 PERIOD JRST LE2 -QUAN: SKIPA T,LWT ;LAST QUANTITY TYPED -PILOC: MOVEI T, SAVPI +PILOC: MOVEI T,SAVPI ;ADR SETUP FOR $I +QUANIN: TLOA T,(DDTINT) ;MARK FOR ADR INTERNAL TO DDT +QUAN: MOVE T, LWT ;PICK UP LAST QUANTITY TYPED QUAN1: MOVEM T,SYL QUAN2: TLO F,SF+QF ;WRD,SYL STARTED TLZ F,CF+CCF @@ -665,7 +670,6 @@ EVAL3: MOVE T,(R) TLNN T,340000 JRST EVAL1 MOVE T,1(R) - CPOPJ1: AOS (P) ;FOUND SYMBOL, SKIP CPOPJ: POPJ P, @@ -699,8 +703,15 @@ TEXI3: LSHC T-1,-43 SIXBI1: PUSHJ P,TEXIN ; INPUT TEXT (SIXBIT) SIXBIN: CAMN T,SYL JRST SIXBI2 - ANDI T,77 - TRC T,40 + CAIL T,"A"+40 ;IS CHAR BETWEEN LOWER CASE "A" AND + CAILE T,"Z"+40 ; LOWER CASE "Z"? + SKIPA ;NO + TRC T,40 ;YES, CONVERT TO UPPER CASE + CAIL T," " ;IS CHAR IN SIXBIT SET? + CAILE T,"_" + JRST ERR ;NO + ANDI T,77 ;YES, MASK TO 6 BITS + TRC T,40 ;CONVERT TO SIXBIT FORM ROT T,-6 LSHC T-1,6 SOJA W1,SIXBI1 @@ -753,7 +764,6 @@ DEF1: MOVN R,[XWD 2,2] HRL T,ESTU HRRM T,ESTU SKIPGE ESTU - BLT T,-1(R) DEF2: MOVE T,DEFV MOVEM T,1(R) ;PUT IN NEW VALUE @@ -776,6 +786,7 @@ DEF3: JUMPGE R,RET ;PATCH IN VALUE FOR UNDEF SYM ENTRY ADD S,T HRRM S,T PUSHJ P,DEP + JFCL POP P,R PUSHJ P,REMUN DEF4: ADD R,[XWD 2,2] ;REMOVE THE NOW DEFINED SYMBOL @@ -828,7 +839,6 @@ ACCCF: MOVSI T,.-. ;LEFT HALF OF A,,B ADD T,R ADDB T,WRD JRST SPACE+1 - ACCF1: MOVEM T,WRD ;SET LEFT HALF OF A,,B JRST SPACE+1 @@ -848,7 +858,6 @@ RPRN: TLNN F,QF ;) POP P,F TLNE F,PTF TLNE F,SF - JRST RPRN1 MOVEM T,SYL TLO F,QF+SF @@ -901,7 +910,9 @@ CARR: PUSHJ P,DEPRA ;CLOSE REGISTER CAIN T,15 JRST .-2 JRST DD1.5> - OCON: TROA F,LF1+CF1 ;OPEN AS CONSTANT + + +OCON: TROA F,LF1+CF1 ;OPEN AS CONSTANT OSYM: TRZ F,CF1 ;OPEN SYMBOLICALLY TROA F,LF1 SUPTYO: TLOA F,STF ;SUPPRESS TYPEOUT @@ -1073,7 +1084,6 @@ LEAV1: XWD 0,LEAV HRRZ T,@BCOM3 HRRM T,PROC0 ;SETUP ADDRESS OF BREAK HLRZ T,@BCOM3 - JUMPE T,BREAK1 ;TEST FOR REGISTER TO EXAMINE PUSHJ P,LCT ;PRINT TAB HLRZ T,@BCOM3 @@ -1202,7 +1212,6 @@ REMOV1: MOVE T,B1INS-B1ADR(S) JRST REMOV1 IFN EDDT&1, IFE EDDT&1, - ;IN EXEC MODE, SAVE UP TTY STATUS ;IN USER MODE, DONE BY SAVE ;ALL $B COMMANDS GET HERE IN FORM: $B @@ -1271,7 +1280,6 @@ DEPRS: MOVEM T,LWT ;DEPOSIT REGISTER AND SAVE AS LWT IFE EDDT&10,< DEP: IFE EDDT&1,< JSP TT1,CHKADR ;LEGAL ADDRESS? - JRST DEP4 ;YES BUT IN HI SEGMENT> TRNN R,777760 JRST DEPAC ;DEPOSIT IN AC @@ -1332,6 +1340,7 @@ MONPEK: HRRZ T,4 ;REMOVE COUNT CALLI T,33 ;DO PEEK UUO JRST CPOPJ1 ;RETURN VALUE IN AC T > + IFE EDDT&1,< ;DO ADDRESS CHECKS ONLY IN USER MODE CHKADR: HRRZ TT,JOBREL ;GET HIGHEST ADDRESS IN LOW SEGMENT CAIL TT,(R) ;CHECK FOR WITHIN LOW SEGMENT @@ -1341,6 +1350,7 @@ CHKADR: HRRZ TT,JOBREL ;GET HIGHEST ADDRESS IN LOW SEGMENT CAIGE TT,(R) ;IS THE ADR TO BIG FOR HIGH SEGMENT? POPJ P, ;NO, YES- ILL. ADR. JRST 0(TT1) + > ;END OF IFE EDDT&1 IFN EDDT&1, ;NO ADDRESS CHECKS IN EXEC MODE @@ -1363,7 +1373,6 @@ LOOK: SKIPL R,PRGM ;LOOK UP SYMBOL MOVEM T,TEM LOOK1: TDNE W2,(R) - JRST LOOK3 MOVE T,(R) TLNN T,PNAME ;NAME @@ -1459,7 +1468,6 @@ PAD: ANDI T,-1 JRST @AR ;PADSO OR PAD1 PADSO: JUMPE T,FP7B ;PRINT A ZERO PUSHJ P,LOOK - PADS1: POPJ P,0 MOVE W2,1(W1) CAIGE T,100 @@ -1480,8 +1488,7 @@ PADS3A: TRNE F,NAF PADS3B: MOVNM T,TEM MOVEI T,"-" JRST PADS1A - -INOUT: TDC T,[XWD -1,400000] ;IO INSTRUCTION OR NEG NUM + INOUT: TDC T,[XWD -1,400000] ;IO INSTRUCTION OR NEG NUM TDCN T,[XWD -1,400000] JRST PADS3B ;TYPE AS NEG NUM LDB R,[POINT 7,T,9] ;PICK OUT IO DEVICE BITS @@ -1527,7 +1534,6 @@ NWORD: ADDI R,326000+40*T ;JUMPN T, SEAR1: PUSHJ P,FETCH JRST SEAR2A TLNE F,LTF ;CHECK FOR EFFECTIVE ADDRESS SEARCH - JRST EFFEC0 EQV T,WRD AND T,MSK @@ -1592,7 +1598,6 @@ IFN EDDT&1, ZERO: TLNN F,CCF JRST ERR PUSHJ P,SETUP - HRRZ S,@SYMP ;GET 1ST ADR OF SYMBOL TABLE HLRE W1,@SYMP ;GET LENGTH OF SYM TABLE SUB W1,S ;GET NEG OF LAST ADR @@ -1625,17 +1630,20 @@ TOC: HRRZ W1,ODF JRST TOCA ;YES, DO NOTHING SPECIAL HRRM T,TOCS ;NO, TYPE AS HALF WORD CONSTANT HLRZS T ;GET LEFT HALF - PUSHJ P,TOCA ;TYPE LEFT HALF + PUSHJ P,TOC0 ;type left half MOVSI W1,(ASCII /,,/) PUSHJ P,TEXT2 ;TYPE ,, TOCS: MOVEI T,.-. ;GET RIGHT HALF BACK -TOCA: LSHC T,-43 +TOCA: HRRZ W1,ODF ;IS OUTPUT RADIX DECIMAL? + CAIN W1,12 + JRST TOC4 ;YES,TYPE SIGNED WITH PERIOD +TOC0: LSHC T,-43 LSH W1,-1 ;W1=T+1 -TOC1: DIVI T,@ODF + DIVI T,@ODF HRLM W1,0(P) - JUMPE T,TOC2 - PUSHJ P,TOCA -TOC2: HLRZ T,0(P) + SKIPE T + PUSHJ P,TOC0 + HLRZ T,0(P) ADDI T,"0" JRST TOUT @@ -1694,7 +1702,6 @@ FP1A: MOVEI C,0 FP3: MULI A,400 ASHC B,-243(A) - MOVE A,B SETZM TEM1 ;INIT 8 DIGIT COUNTER SKIPE A,B ;DON'T TYPE A LEADING 0 PUSHJ P,FP7 ;PRINT INTEGER PART OF 8 DIGITS @@ -1763,9 +1770,7 @@ TEXT2: MOVEI T,0 ;7 BIT ASCII TEXT OUTPUT SUBROUTINE PUSHJ P,TOUT JUMPN W1,TEXT2 POPJ P, - KILC: XWD -NSYMS,LOW - -WRD: 0 + WRD: 0 WRD2: 0 PRNC: 0 @@ -1953,6 +1958,9 @@ LOADE: XWD LOADB-.,LOADB > ;END OF IFN EDDT$1&B36 ;FOR PAPER TAPE IO + + + SAVE: 0 ;SAVE THE ACS AND PI SYSTEM SKIPN SARS JRST SAV1 @@ -1972,7 +1980,6 @@ SAV5: ; CALLIU T,SETUWP ;REQUEST TO CLEAR UWP ; HRROS SAVUWP ;FAILED, UWP (BIT 0) STILL 1 ; SKIPN SARS ;USER'S SATE SAVED ALREADY? - ; HRRM T,SAVUWP> ;NO, SAVE STATE OF UWP SETOM,SARS ;FLAG PROTECTING SAVED REGISTERS @@ -2075,7 +2082,6 @@ TEXIN: PUSHJ P,TIN ;INPUT SUBROUTINE FOR TEXT MODES IFE EDDT&1,< ;USER MODE TELETYPE I/O IFN EDDT&4,< ;ASSEMBLE WITH OLD DDT MODE IO - TIN: MOVE T,POUTBF ;GET NEXT CHARACTER ROUTINE CAME T,[POINT 7,INBFF] PUSHJ P,FINOUT @@ -2126,7 +2132,9 @@ TTYRET: MOVE T,[POINT 7,INBFF] TEXIN=TIN ;USE NORMAL INPUT FOR TEXT WHEN IN USER MODE > - IFE EDDT&4,< ;ASSEMBLE WITH TTCALL TELETYPE IO + + + IFE EDDT&4,< ;ASSEMBLE WITH TTCALL TELETYPE IO OPDEF TTCALL [51B8] @@ -2143,7 +2151,6 @@ IFN EDDT&10,< PUSHJ P,INCHR > JRST WRONG ;TYPE XXX FOR A RUBOUT POPJ P, - TOUT: IFN EDDT&10,< SKIPE COMAND ;IS THERE A COMMAND FILE? @@ -2201,6 +2208,7 @@ PUTOK: > ;END OF IFN EDDT&10 > ;END OF IFE EDDT&1 + BDISP: POINT 12,DISP(R),11 POINT 12,DISP(R),23 POINT 12,DISP(R),35 @@ -2220,7 +2228,6 @@ D ERR,CARR,ERR D ERR,ERR,ERR D PUNCH,ERR,ERR D ERR,ERR,ERR - D ERR,ERR,ERR D CONTROL,ERR,ERR D ERR,ERR,SPACE @@ -2248,7 +2255,8 @@ D OSYM,VARRW,PSYM ;THIS TABLE DOES NOT HAVE ENTRIES FOR CHARS .GE. 140; THESE ; ARE DETECTED AS ERRORS NEAR L21: - BITO: MOVEI R,BITT ;BYTE OUTPUT SUBROUTINE + +BITO: MOVEI R,BITT ;BYTE OUTPUT SUBROUTINE HRRZI AR,TOC TRZN F,Q2F JRST ERR @@ -2379,7 +2387,7 @@ SVBT2: 0 ; ; THE TABLE IS ALSO USED GOING FROM SYMBOLIC TO BINARY BUT A ; TREE SEARCH METHOD IS USED. - REPEAT 0,< + REPEAT 0,< DEFINE REDEF (XX)< DEFINE INFO (AA,BB)< @@ -2402,7 +2410,7 @@ REDEF % IFE Z-"/", IF2, Z==0> - IFE Z-"^", + IFE Z-"^", Z==0> IFE **, REPEAT BINC, IFN BINRY, > ;END OF REPEAT 0 - - IFN EDDT&10,< ;FILDDT STUFF CRASH: SIXBIT .CRASH. ;CANONICAL NAME FOR CRASH SIXBIT .SAV. @@ -2528,7 +2534,6 @@ RSAVE: IOWD 1000,RSIDT ;INDEX OF THE CUFRRENT BLOCK, 0,1,... CURLST: IOWD 4000,CURENT Z > - SUBTTL OP DECODER DEFINE BYT9 (A) -1000, >> DEFINE .TRA < @@ -2570,7 +2575,7 @@ DEFINE .TXT (A) < IFNB , >> DEFINE .END (A) < -IFNB . > +IFNB , > OUTP 40> DEFINE OUTP (A)< @@ -2584,28 +2589,28 @@ CLOC==CLOC+1 > > TBL: ;OPDECODER BYTE TABLE -BINRY= 0 -CLOC= 0 ;SET BYTE LOCATION COUNTER TO 0 -BINC= ^D36 ;INIT BYTES/WORD COUNTER +BINRY== 0 +CLOC== 0 ;SET BYTE LOCATION COUNTER TO 0 +BINC== ^D36 ;INIT BYTES/WORD COUNTER BYT9 < -.DIS 63,.TRA UUO,.TRA FLO,.TRA HAK,.TRA ACCP,.TRA BOOLF +.DIS 63,.TRA UUO,.TRA FLO,.TRA HAK,.TRA ACCP,.TRA BOOLE .TXT H,.TRA HWT,.TXT T,.TRA ACBM ;IO INSTRUCTIONS -.DIS 21,.TRA BD,.TXT CON,.DIS 11,.TRA IO,.TXT S,.DIS 01,.TRA Z,. TRA O +.DIS 21,.TRA BD,.TXT CON,.DIS 11,.TRA OI,.TXT S,.DIS 01,.TRA Z,.TRA O .ADR BD,.DIS 01,.TXT BLK,.TRA IO,.TXT DATA,.ADR IO,.DIS 11,.TRA I,.TRA O .ADR OI,.DIS 01,.TRA O,.TRA I ;UUOS -.ADR UUOI,.DIS 51,.END,.TXT,.DIS 32,.TRA U40,.TRA U50,.TRA U60 - .DIS 21,.TRA U703,.DIS 11.,TRA USET,.DIS 01 +.ADR UUO,.DIS 51,.END,.TXT,.DIS 32,.TRA U40,.TRA U50,.TRA U60 + .DIS 21,.TRA U703,.DIS 11.,.TRA USET,.DIS 01 .TXT LOOKU,.TRA P,.TXT ENTE,.TRA R,.ADR USET,.TXT USET,.DIS 01,.TRA I,.TRA O .ADR U40,.DIS 03,.TRA CAL,.TXT INI,.TRA T,.END,.END,.END,.END,.END,.TXT CALL,.TRA I .ADR U60,.DIS 21,.TRA U603,.DIS 01,.TXT IN,.TRA BPUT,.TXT OUT - .ADR BPUT,M.,DIS 11,.TXT BU,.ADR F,.END F,.TXT,.TXT U,.TRA T + .ADR BPUT,.DIS 11,.TXT BU,.ADR F,.END F,.TXT,.TXT PU,.TRA T .ADR U603,.DIS 01,.TRA U6062,.TXT STAT,.DIS 11,.ADR O,.END O,.TXT,.ADR Z,.END Z,.TXT .ADR U6062,.DIS 11,.TXT S,.TRA U62,.TXT G,.ADR U62,.TXT ETST,.TRA S @@ -2615,7 +2620,7 @@ BYT9 < .TRA A,.TXT MP,.TRA A,.TXT DV,.ADR A .DIS 21,.TRA LMB,.TXT R,.TRA IMB,.ADR LMB,.DIS 02,.END,.TXT .ADR L,.END L,.TXT,.ADR M,.END M,.TXT -.ADR B,.FND B,.TXT,.ADR BYTE,.DIS 32,.END,.END,.END,.TXT +.ADR B,.END B,.TXT,.ADR BYTE,.DIS 32,.END,.END,.END,.TXT .DIS 03,.TXT UF,.TRA PA,.TXT DF,.TRA N .TXT FS,.TRA C,.TXT IB,.ADR P,.END P,.TXT,.TXT I,.TRA LD .ADR LD,.TXT LD,.TRA B,.TXT I,.TRA DP,.ADR DP,.TXT DP,.TRA B @@ -2626,17 +2631,17 @@ BYT9 < .TRA SH,.TRA H1,.TRA JP .DIS 21,.TXT ADD,.TRA IMB,.TXT SU,.ADR BIMB,.TXT B,.ADR IMB,.DIS 02,.END,.TXT .ADR I,.END I,.TXT,.TRA M,.TRA B,.ADR MO,.DIS 22 -,ADR E1MS,.TXT E,.TRA IMS,.TXT S,.TRA IMS,.TXT N,.TRA IMS,.TXT M +.ADR EIMS,.TXT E,.TRA IMS,.TXT S,.TRA IMS,.TXT N,.TRA IMS,.TXT M .ADR IMS,.DIS 02,.END,.TXT,.TRA I,.TRA M,.ADR S,.END S,.TXT .ADR ML,.DIS 21,.TXT I,.TRA ML1,.ADR ML1,.TXT MUL,.TRA IMB .ADR DV,.DIS 21,.TXT I,.TRA DV1 .ADR DV1,.TXT DI,.ADR DV2,.TXT V,.TRA IMB,.ADR H1,.DIS 03,.TXT EXC,.TRA S3,.TXT BL - .ADR T,.END T,.TXT,.TRA AO,.ADR AO,.TT AOBJ + .ADR T,.END T,.TXT,.TRA AO,.ADR AO,.TXT AOBJ .TRA AOB,.TXT JRS,.TRA T,.TXT JFC,.TRA L,.TXT XC,.TRA T,.END .ADR AOB,.DIS 01,.TRA P,.TRA N .ADR JP,.DIS 03,.TRA PU,.ADR PU,.TXT PUSH,.TRA PUS,.TRA PO .ADR PO,.TXT POP,.TRA POP,.TXT JS,.ADR R,.END R,.TXT -.TXT JS,.TRA P,.TXT JS,.ADR PA,.END, A,.TXT,.TXT JR,.TRA PA +.TXT JS,.TRA P,.TXT JS,.ADR PA,.END A,.TXT,.TXT JR,.TRA PA .ADR PUS,.DIS 01,.ADR J,.END J,.END,.TXT,.ADR POP .DIS 01,.END,.TXT,.TRA J,.ADR SH,.DIS 02,.TXT A,.TRA S2,.TXT ROT,.TRA S1,.TXT L .ADR S2,.TXT S,.ADR S3,.TXT H,.TRA S1,.TXT JFF,.TRA O @@ -2653,27 +2658,27 @@ BYT9 < ;HALF WORDS -.ADR HWT,.DIS 51,.TRA HW1,.DIS 21,.TXT 3,.TRA HW2,.TXT L,.ADR HW2,.TXT R,.TRA HW3 +.ADR HWT,.DIS 51,.TRA HW1,.DIS 21,.TXT R,.TRA HW2,.TXT L,.ADR HW2,.TXT R,.TRA HW3 .ADR HW1,.DIS 21,.TXT L,.TRA HW4,.TXT R,.ADR HW4,.TXT L - .ADR HW3,.DIS 32,.TRA IMS,.TXT Z,.TRA IMS,.TXT D,.TRA IMS,.TRA EIMS + .ADR HW3,.DIS 32,.TRA IMS,.TXT Z,.TRA IMS,.TXT O,.TRA IMS,.TRA EIMS ;TEST INSTRUCTIONS .ADR ACBM,.DIS 31,.TRA AC1,.DIS 01,.TXT D,.TRA AC2,.TXT S,.TRA AC2 .ADR AC1,.DIS 01,.TXT R,.TRA AC2,.TXT L -.ADR AC2,.DIS 42,.TXT N,.TRA EAN,.TXT Z,.TRA EAN,TXT C,.TRA EAN,.TXT O +.ADR AC2,.DIS 42,.TXT N,.TRA EAN,.TXT Z,.TRA EAN,.TXT C,.TRA EAN,.TXT O .ADR EAN,.DIS 12,.END,.TXT,.TRA E,.TRA PA,.TRA N ;BOOLEAN -.ADR BOOLE,.DIS 24,.TRA ST,.ADR AN,.TXT ANBD,.TRA B2,.TRA AN,.TRA ST,.TRA AN,.TRA ST +.ADR BOOLE,.DIS 24,.TRA ST,.ADR AN,.TXT AND,.TRA B2,.TRA AN,.TRA ST,.TRA AN,.TRA ST .TXT X,.ADR OR,.TXT OR,.TRA B2,.TXT I,.TRA OR,.TRA AN,.TXT EQ .TRA DV2,.TRA ST,.TRA OR,.TRA ST,.TRA OR,.TRA OR .ADR ST,.TXT SET,.ADR B2,.DIS 24,.TXT Z,.TRA IMB,.TRA IMB .ADR CA,.TXT C,.TRA TA,.ADR TM,.TXT M,.TRA IMB -.ADR DM,.TXT C,.TRA TM,.ADR TA,.TXT A,.TRA IMB,.TRA IMBA,.TRA IMB - .ADR CP,.TXT C,.TRA BIMB,.TRA IMB,.TRA CA -.TRA CA,.TRA CM,.TRA CM,.TRA CB,.TXT 0,.TRA IMB +.ADR CM,.TXT C,.TRA TM,.ADR TA,.TXT A,.TRA IMB,.TRA IMB,.TRA IMB + .ADR CB,.TXT C,.TRA BIMB,.TRA IMB,.TRA CA +.TRA CA,.TRA CM,.TRA CM,.TRA CB,.TXT O,.TRA IMB ;MORE UUO'S @@ -2687,7 +2692,7 @@ BYT9 < IF1,< BLOCK /4> -IF2,< IFN BINC-^D36,< +BINARY>> +IF2,< IFN BINC-^D36,< +BINRY>> IFNDEF CLOC., IFN CLOC.-CLOC, @@ -2710,7 +2715,6 @@ OPEVAL: MOVEI T,0 ;EVALUATE FOR AN OP CODE OPTYPE: TRO F,OUTF ;TYPE AN OPCODE SYMBOLICALLY LSH T,-33 MOVEM T,INST ;GET OPCODE INTO RIGHT 9 BITS - MOVE T,[XWD 440700,TXT] MOVEM T,CHP ;FOR OPEVAL,SETUP POINTER TO INPUT TEXT TRZ F,ITF ;CLEAR INSTRUCTION TYPED FLAG @@ -2804,4 +2808,4 @@ DDTEND: ;ONLY STARTING ADDRESS FOR FILDDT ;BUT STILL WANTS TO BE STARTED AT ITS OWN STARTING ADDRESS ;USER DDT IS LOADED LAST. - T.H. IFN EDDT&10, - END + END