BIT 34 =0: DO NOT ASSEMBLE THE PAPER TAPE FEATURE INTO DDT\r
=1: ASSEMBLE THE PAPER TAPE FEATURES BUT ONLY IF\r
ASSEMBLING AN EXECUTIVE MODE DDT\r
+\r
BIT 33 =0; FOR USER MODE DDT ONLY- ASSEMBLE USING THE\r
"TTCALL" UUO FOR TELETYPE IO\r
=1; FOR USER MODE DDT ONLY- ASSEMBLE USING THE\r
WITH PAPER TAPE FEATURES, AND WHOSE STARTING\r
ADDRESS IS LOCATION 4000.\r
\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
EXAMPLE OF A MACRO ASSEMBLY COMMAND:\r
\r
.^C\r
DEFINED "EDDT=0".\r
\r
> ;END OF REPEAT 0\r
-\r
\f\r
IFNDEF EDDT,<EDDT=0>\r
\r
RELOC 0\r
>\r
\r
-\r
IFN EDDT&<XWD -1,0>,<LOC <EDDT>B53>\r
\r
HEADER \DDTVER^\r
;THE HEADER MACRO CONSTRUCTS THE TITLE AND VERSION #\r
-\r
-IFN EDDT&10,< CM=2 ;DEFINE SOFTWARE CHANS.\r
+\fIFN EDDT&10,< CM=2 ;DEFINE SOFTWARE CHANS.\r
DP=3\r
>\r
-\f;DEFINE ACCUMULATORS\r
+;DEFINE ACCUMULATORS\r
\r
F=0 ;FLAGS\r
P=1 ;PUSH DOWN\r
FPF=20000 ; . TYPED IN\r
FEF=400000 ; E FLAG\r
\r
-MLF=200 ;*FLAG\r
+MLF=200 ;*FLAG\r
DVF=40000 ;DIVIDE FLAG\r
\r
;PID IS 20 IF SYM TAB POINTER IS INDIRECT JOBSYM\r
\r
RADIX 10\r
NBP=8 ;NUMBER OF BREAKPOINTS\r
-DEFINE DBPNT (Z.)<XP $'Z.'B,B1ADR+3*Z.-3>\r
+DEFINE DBPNT (Z.)<XP $'Z.'B,<DDTINT B1ADR+3*Z.-3>>\r
ZZ=0\r
REPEAT NBP,<DBPNT \<ZZ=ZZ+1>>\r
RADIX 8\r
MOVE W1,PRGM ; SAME PLACE. OR THEY DO NOT BOTH START ON\r
XOR W1,W ; AN EVEN (OR BOTH ON ODD) LOCATION. OR\r
TRNE W1,1 ; PRGM .GE.0, THEN RE-INIT PRGM.\r
- JRST DDT2 ;EVEN-ODD PROBLEM\r
+ JRST DDT0 ;EVEN-ODD PROBLEM\r
SKIPN T ;POINTERS DON'T END TOGETHER\r
SKIPL PRGM ;IF PRGM .GE. 0, THEN RE-INIT\r
DDT0: MOVEM W,PRGM ;PRGM=C(JOBSYM)\r
JRST .+2\r
JRST LET\r
L21: MOVE R,T\r
- CAILF T,137 ;DISPATCH TABLE HAS ENTRIES ONLY .LE. 137\r
+ CAILE T,137 ;DISPATCH TABLE HAS ENTRIES ONLY .LE. 137\r
JRST ERR\r
IDIVI R,3 ;REMAINDER GIVES COLUMN, QUOTIENT GIVES ROW\r
LDB W,BDISP(R+1) ;GET 12 BIT ADDRESS FROM DISPATCH TABLE\r
MOVEI T,45 ;RADIX 50 PERIOD\r
JRST LE2\r
\r
-QUAN: SKIPA T,LWT ;LAST QUANTITY TYPED\r
-PILOC: MOVEI T, SAVPI\r
+PILOC: MOVEI T,SAVPI ;ADR SETUP FOR $I\r
+QUANIN: TLOA T,(DDTINT) ;MARK FOR ADR INTERNAL TO DDT\r
+QUAN: MOVE T, LWT ;PICK UP LAST QUANTITY TYPED\r
QUAN1: MOVEM T,SYL\r
QUAN2: TLO F,SF+QF ;WRD,SYL STARTED\r
TLZ F,CF+CCF\r
PUSHJ P,TOUT\r
JUMPN W1,TEXT2\r
POPJ P,\r
-\fKILC: XWD -NSYMS,LOW\r
-\r
-WRD: 0\r
+\fWRD: 0\r
WRD2: 0\r
PRNC: 0\r
\r
IFE Z-"/",<IF1 <OUTP 1>\r
IF2,<INFO OUTP,+73-FIR.>\r
Z==0>\r
- IFE Z-"^",<OUTP <ZZ&70/2+ZZ&7-1>\r
+ IFE Z-"^",<OUTP <ZZ&74/2+ZZ&7-1>\r
Z==0>\r
IFE <Z-",">*<Z-".">*<Z-40>,<IFN ZZZ,<\r
REPEAT 5,<ZZ==ZZZ&77\r
DEFINE .ADR (A) <\r
%'A== CLOC\r
FIR.== CLOC\r
-DEFINE .ADR (A) <\r
-%'A== CLOC\r
+DEFINE .ADR (B) <\r
+%'B== CLOC\r
IFGE <LASTB==CLOC+73-FIR.>-1000, <PRINTX OPTABLE TO LONG>>>\r
\r
DEFINE .TRA <\r
IFNB <A>, <IRPC A,<OUTP "A"-40>>>\r
\r
DEFINE .END (A) <\r
-IFNB <A>. <IRPC A,<OUTP "A"-40>>\r
+IFNB <A>, <IRPC A,<OUTP "A"-40>>\r
OUTP 40>\r
\r
DEFINE OUTP (A)<\r
>\r
\fTBL: ;OPDECODER BYTE TABLE\r
\r
-BINRY= 0\r
-CLOC= 0 ;SET BYTE LOCATION COUNTER TO 0\r
-BINC= ^D36 ;INIT BYTES/WORD COUNTER\r
+BINRY== 0\r
+CLOC== 0 ;SET BYTE LOCATION COUNTER TO 0\r
+BINC== ^D36 ;INIT BYTES/WORD COUNTER\r
\r
BYT9 <\r
\r
-.DIS 63,.TRA UUO,.TRA FLO,.TRA HAK,.TRA ACCP,.TRA BOOLF\r
+.DIS 63,.TRA UUO,.TRA FLO,.TRA HAK,.TRA ACCP,.TRA BOOLE\r
.TXT H,.TRA HWT,.TXT T,.TRA ACBM\r
\r
;IO INSTRUCTIONS\r
\r
-.DIS 21,.TRA BD,.TXT CON,.DIS 11,.TRA IO,.TXT S,.DIS 01,.TRA Z,. TRA O\r
+.DIS 21,.TRA BD,.TXT CON,.DIS 11,.TRA OI,.TXT S,.DIS 01,.TRA Z,.TRA O\r
.ADR BD,.DIS 01,.TXT BLK,.TRA IO,.TXT DATA,.ADR IO,.DIS 11,.TRA I,.TRA O\r
.ADR OI,.DIS 01,.TRA O,.TRA I\r
;UUOS\r
\r
-.ADR UUOI,.DIS 51,.END,.TXT,.DIS 32,.TRA U40,.TRA U50,.TRA U60\r
- .DIS 21,.TRA U703,.DIS 11.,TRA USET,.DIS 01\r
+.ADR UUO,.DIS 51,.END,.TXT,.DIS 32,.TRA U40,.TRA U50,.TRA U60\r
+ .DIS 21,.TRA U703,.DIS 11.,.TRA USET,.DIS 01\r
.TXT LOOKU,.TRA P,.TXT ENTE,.TRA R,.ADR USET,.TXT USET,.DIS 01,.TRA I,.TRA O\r
.ADR U40,.DIS 03,.TRA CAL,.TXT INI,.TRA T,.END,.END,.END,.END,.END,.TXT CALL,.TRA I\r
.ADR U60,.DIS 21,.TRA U603,.DIS 01,.TXT IN,.TRA BPUT,.TXT OUT\r
- .ADR BPUT,M.,DIS 11,.TXT BU,.ADR F,.END F,.TXT,.TXT U,.TRA T\r
+ .ADR BPUT,.DIS 11,.TXT BU,.ADR F,.END F,.TXT,.TXT PU,.TRA T\r
.ADR U603,.DIS 01,.TRA U6062,.TXT STAT,.DIS 11,.ADR O,.END O,.TXT,.ADR Z,.END Z,.TXT\r
.ADR U6062,.DIS 11,.TXT S,.TRA U62,.TXT G,.ADR U62,.TXT ETST,.TRA S\r
\r
.TRA A,.TXT MP,.TRA A,.TXT DV,.ADR A\r
.DIS 21,.TRA LMB,.TXT R,.TRA IMB,.ADR LMB,.DIS 02,.END,.TXT\r
.ADR L,.END L,.TXT,.ADR M,.END M,.TXT\r
-.ADR B,.FND B,.TXT,.ADR BYTE,.DIS 32,.END,.END,.END,.TXT\r
+.ADR B,.END B,.TXT,.ADR BYTE,.DIS 32,.END,.END,.END,.TXT\r
.DIS 03,.TXT UF,.TRA PA,.TXT DF,.TRA N\r
.TXT FS,.TRA C,.TXT IB,.ADR P,.END P,.TXT,.TXT I,.TRA LD\r
.ADR LD,.TXT LD,.TRA B,.TXT I,.TRA DP,.ADR DP,.TXT DP,.TRA B\r
.TRA SH,.TRA H1,.TRA JP\r
.DIS 21,.TXT ADD,.TRA IMB,.TXT SU,.ADR BIMB,.TXT B,.ADR IMB,.DIS 02,.END,.TXT\r
.ADR I,.END I,.TXT,.TRA M,.TRA B,.ADR MO,.DIS 22\r
-,ADR E1MS,.TXT E,.TRA IMS,.TXT S,.TRA IMS,.TXT N,.TRA IMS,.TXT M\r
+.ADR EIMS,.TXT E,.TRA IMS,.TXT S,.TRA IMS,.TXT N,.TRA IMS,.TXT M\r
.ADR IMS,.DIS 02,.END,.TXT,.TRA I,.TRA M,.ADR S,.END S,.TXT\r
.ADR ML,.DIS 21,.TXT I,.TRA ML1,.ADR ML1,.TXT MUL,.TRA IMB\r
.ADR DV,.DIS 21,.TXT I,.TRA DV1\r
.ADR DV1,.TXT DI,.ADR DV2,.TXT V,.TRA IMB,.ADR H1,.DIS 03,.TXT EXC,.TRA S3,.TXT BL\r
- .ADR T,.END T,.TXT,.TRA AO,.ADR AO,.TT AOBJ\r
+ .ADR T,.END T,.TXT,.TRA AO,.ADR AO,.TXT AOBJ\r
.TRA AOB,.TXT JRS,.TRA T,.TXT JFC,.TRA L,.TXT XC,.TRA T,.END\r
.ADR AOB,.DIS 01,.TRA P,.TRA N\r
.ADR JP,.DIS 03,.TRA PU,.ADR PU,.TXT PUSH,.TRA PUS,.TRA PO\r
.ADR PO,.TXT POP,.TRA POP,.TXT JS,.ADR R,.END R,.TXT\r
-.TXT JS,.TRA P,.TXT JS,.ADR PA,.END, A,.TXT,.TXT JR,.TRA PA\r
+.TXT JS,.TRA P,.TXT JS,.ADR PA,.END A,.TXT,.TXT JR,.TRA PA\r
.ADR PUS,.DIS 01,.ADR J,.END J,.END,.TXT,.ADR POP\r
.DIS 01,.END,.TXT,.TRA J,.ADR SH,.DIS 02,.TXT A,.TRA S2,.TXT ROT,.TRA S1,.TXT L\r
.ADR S2,.TXT S,.ADR S3,.TXT H,.TRA S1,.TXT JFF,.TRA O\r
\r
;HALF WORDS\r
\r
-.ADR HWT,.DIS 51,.TRA HW1,.DIS 21,.TXT 3,.TRA HW2,.TXT L,.ADR HW2,.TXT R,.TRA HW3\r
+.ADR HWT,.DIS 51,.TRA HW1,.DIS 21,.TXT R,.TRA HW2,.TXT L,.ADR HW2,.TXT R,.TRA HW3\r
.ADR HW1,.DIS 21,.TXT L,.TRA HW4,.TXT R,.ADR HW4,.TXT L\r
- .ADR HW3,.DIS 32,.TRA IMS,.TXT Z,.TRA IMS,.TXT D,.TRA IMS,.TRA EIMS\r
+ .ADR HW3,.DIS 32,.TRA IMS,.TXT Z,.TRA IMS,.TXT O,.TRA IMS,.TRA EIMS\r
\r
;TEST INSTRUCTIONS\r
\r
.ADR ACBM,.DIS 31,.TRA AC1,.DIS 01,.TXT D,.TRA AC2,.TXT S,.TRA AC2\r
.ADR AC1,.DIS 01,.TXT R,.TRA AC2,.TXT L\r
-.ADR AC2,.DIS 42,.TXT N,.TRA EAN,.TXT Z,.TRA EAN,TXT C,.TRA EAN,.TXT O\r
+.ADR AC2,.DIS 42,.TXT N,.TRA EAN,.TXT Z,.TRA EAN,.TXT C,.TRA EAN,.TXT O\r
.ADR EAN,.DIS 12,.END,.TXT,.TRA E,.TRA PA,.TRA N\r
\r
;BOOLEAN\r
\r
-.ADR BOOLE,.DIS 24,.TRA ST,.ADR AN,.TXT ANBD,.TRA B2,.TRA AN,.TRA ST,.TRA AN,.TRA ST\r
+.ADR BOOLE,.DIS 24,.TRA ST,.ADR AN,.TXT AND,.TRA B2,.TRA AN,.TRA ST,.TRA AN,.TRA ST\r
.TXT X,.ADR OR,.TXT OR,.TRA B2,.TXT I,.TRA OR,.TRA AN,.TXT EQ\r
.TRA DV2,.TRA ST,.TRA OR,.TRA ST,.TRA OR,.TRA OR\r
.ADR ST,.TXT SET,.ADR B2,.DIS 24,.TXT Z,.TRA IMB,.TRA IMB\r
.ADR CA,.TXT C,.TRA TA,.ADR TM,.TXT M,.TRA IMB\r
-.ADR DM,.TXT C,.TRA TM,.ADR TA,.TXT A,.TRA IMB,.TRA IMBA,.TRA IMB\r
- .ADR CP,.TXT C,.TRA BIMB,.TRA IMB,.TRA CA\r
-.TRA CA,.TRA CM,.TRA CM,.TRA CB,.TXT 0,.TRA IMB\r
+.ADR CM,.TXT C,.TRA TM,.ADR TA,.TXT A,.TRA IMB,.TRA IMB,.TRA IMB\r
+ .ADR CB,.TXT C,.TRA BIMB,.TRA IMB,.TRA CA\r
+.TRA CA,.TRA CM,.TRA CM,.TRA CB,.TXT O,.TRA IMB\r
\r
;MORE UUO'S\r
\r
\r
IF1,< BLOCK <CLOC+3>/4>\r
\r
-IF2,< IFN BINC-^D36,< +BINARY>>\r
+IF2,< IFN BINC-^D36,< +BINRY>>\r
\r
IFNDEF CLOC.,<CLOC.==CLOC>\r
IFN CLOC.-CLOC,<PRINTX PHASE ERROR IN OPTABLE>\r
git://git.sky-visions.com / retro-software/dec/tops10/v4.5.git / blobdiff