Forgot your password?
Document Actions
32K 709/7090 FORTRAN ASSEMBLY PROGRAM - MACRO-FAP
$JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010
$* FORTRAN II PROCESSOR, 7090-FO-928 00000020
$* VERSION 3, MODIFICATION LEVEL 35 (35)00000030
$EXECUTE IBSFAP $00000050
* 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP F0D00000
* FAP F0D00010
* 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP F0D00020
COUNT 10000 F0D00030
TITLE F0D00040
ABS F0D00050
SST FORTRAN $F0D00060
HEAD 4,5 COMMON TO PASS ONE AND TWO F0D00070
REM PARAMETERS VARIABLE AT ASSEMBLY TIME F0D00080
REM F0D00090
INPREM SYN 0 NUMBER OF WORDS PRECEDING PACKED RECORD F0D00100
INPRCL SYN 16 LENGTH OF INTERMEDIATE RECORD F0D00110
INPBKL SYN 16*INPRCL+INPREM LENGTH OF PACKED INTERMEDIATE BUFFER F0D00120
UPDRCL SYN 14 LENGTH OF UPDATE INPUT/OUTPUT RECORD F0D00130
UPDBKL SYN 16*UPDRCL LENGTH OF UPDATE INPUT/OUTPUT BUFFER F0D00140
TOPTAB SYN BOTIOP-1 TOP OF AVAILABLE TABLE BUFFERS F0D00150
BOTBUF SYN TOPTAB-6*UPDBKL-2*INPBKL-214 F0D00160
BOTTAB SYN BOTTOM+7900 LOWER LIMIT FOR DATA TABLE SPACE F0D00170
REM F0D00180
M SYN 1 TABLE FACTORS F0D00190
N SYN 1 F0D00200
LOPTBM SYN 2048 MAXIMUM LENGTH OF MACHINE OPERATION TABLE F0D00210
LMXTBL SYN 1000*M/N MACRO EXPANSION TABLE LENGTH F0D00220
LLITBL SYN 500*M/N*2 LITERAL TABLE LENGTH F0D00230
LTVTBL SYN 250*M/N TRANSFER VECTOR TABLE LENGTH F0D00240
LSMTBM SYN BOTBUF-LLITBL-LTVTBL-BOTTAB F0D00250
REM MAXIMUM LENGTH OF SYMBOL AND REF TABLES F0D00260
LUDTBM SYN LSMTBM/100 MAXIMUM LENGTH OF UNDEFINED SYMBOL TABLE F0D00270
REM F0D00280
REM F0D00290
T EQU 16 MAXIMUM NUMBER OF LOGICAL TAPES IN SYSTEM F0D00300
C EQU 4 MAXIMUM NUMBER OF DATA CHANNELS IN SYSTEM F0D00310
REM C MUST BE A MULTIPLE OF 2 F0D00320
REM F0D00330
EXPRR SYN 1 SENSE LIGHT FOR ERROR ON EXPRESSION F0D00340
EXPND SYN 2 SENSE LIGHT FOR END OF EXPRESSION F0D00350
FLDND SYN 4 SENSE LIGHT FOR END OF VARIABLE FIELD F0D00360
REM F0D00370
TDMSK BOOL 000001 FLAG FOR TYPE D SENSE OPERATION F0D00380
VLMSK BOOL 000002 FLAG FOR VARIABLE LENGTH OPERATION F0D00390
TKMSK BOOL 000004 FLAG FOR TYPE K DISC COMMAND F0D00400
9OMSK BOOL 020000 FLAG FOR OPERATIONS RESTRICTED TO 709/90 F0D00410
04MSK BOOL 040000 FLAG FOR OPERATIONS RESTRICTED TO 704 F0D00420
TTL COMMON SUBROUTINES, CONSTANTS AND ERASABLE F0D00430
LBL 9F04,X F0D00440
ORG SYSCUR $F0D00450
BCI 1,9F0400 $F0D00460
ORG (LODR) $F0D00470
TXI START,,40 ENTRY POINT,,RECORD NUMBER F0D00480
REM F0D00490
ORG BOTTOM-7 LOAD INFORMATION FOR MACHINE ERROR RECORD $F0D00494
PZE INRECT+1,,4 ORIGIN OF REC. COUNT TABLE,,LENGTH $F0D00495
REM F0D00500
ORG BOTTOM F0D00520
REM F0D00530
REM TRANSFER VECTOR F0D00540
REM F0D00550
CHANS PZE C NUMBER OF CHANNELS IN SYSTEM F0D00560
SYSAST PZE T NUMBER OF TAPES ASSIGNED TO SYSTEM F0D00570
SYSTPS PZE 7 NUMBER OF TAPES RESERVED TO MONITOR $F0D00580
REM F0D00590
REM ERASABLE INFORMATION TRANSMITTED BETWEEN PASSES F0D00600
MAINPF PZE ,,1 FLAG FOR MAIN PROGRAM (ZERO IF SUBPROGRAM)F0D00610
ABSFLG PZE ** FLAG FOR ABSOLUTE ASSEMBLY F0D00620
ONLCFG PZE ** FLAG FOR ONLINE COLUMN BINARY CARDS F0D00630
OFLCFG PZE ** FLAG FOR OFFLINE COLUMN BINARY CARDS F0D00640
CRDFLG PZE ** FLAG FOR ONLINE CARDS F0D00650
LBLFLG PZE ** FLAG FOR OFFLINE CARD LABEL AND SERIAL F0D00660
IPTFLG PZE ** FLAG FOR UPDATE INPUT TAPE F0D00670
OPTFLG PZE ** FLAG TO WRITE UPDATE OUTPUT TAPE F0D00680
PAKFLG PZE **,,** FLAG TO UNPACK UPDATE OUTPUT TAPE F0D00690
DELFLG PZE ** FLAG TO DELETE ASSEMBLY F0D00700
SEPFLG SVN -1,-1,-1 FLAG FOR STANDARD ERROR PROCEEDURE F0D00710
REM SET TO PZE BY 9F04FLOW F0D00720
REM TO DELETE STANDARD ERROR PROCEDURE F0D00730
LITSIZ PZE 22,,** LOG LLITBL,,LITERAL TABLE COUNT F0D00740
REM (LITERAL TABLE LIMITED TO 1024 ENTRIES) F0D00750
PRGBK PZE ** CURRENT PROGRAM BREAK F0D00760
PROLG PZE ** LENGTH OF VECTOR, LINKAGE DIRECTOR F0D00770
REM F0D00780
REM ERASABLE INFORMATION RESET BETWEEN PASSES F0D00790
CHRCTR PZE NEXT CHARACTER IN VARIABLE FIELD F0D00800
RESIDU PZE REMAINDER OF NEXT WORD IN VARIABLE FIELD F0D00810
UPCTR PZE -207,,2 COMMON STORAGE COUNTER,,RELOCATION BIT F0D00820
CDCTR PZE ** ABS CARD ORIGIN COUNTER F0D00830
LOCTR PZE **,,1 PROGRAM COUNTER,,RELOCATION BIT F0D00840
ADDRS PZE **,,1 DEFINITION OF SYMBOL,,RELOCATABLE FLAG F0D00850
OPCOD PZE OP FIELD (CC 8 - 13) F0D00860
DEC ,,,,,,,,, MULTIPLE HEAD CHARACTERS (PRECEDE BHEAD) F0D00870
BHEAD PZE HEADING CHARACTER F0D00880
THEAD PZE HEADING CHARACTER PRECEDING $ F0D00890
SYMB2 PZE HIGH ORDER SIX CHARACTRS ALPHAMERIC FIELD F0D00900
SYMBL PZE LOW ORDER SIX CHARACTERS ALPHAMERIC FIELD F0D00910
VFDFL PZE LOW ORDER HALF OF VARIABLE FIELD F0D00920
PZE HIGH ORDER HALF OF VARIABLE FIELD F0D00930
BINRY PZE 36 BIT BINARY INSTRUCTION, DATA WORD F0D00940
NERAS PZE INTEGER FIELD F0D00950
XERAS PZE EXPONENT (E) FIELD F0D00960
BERAS PZE BINARY (B) FIELD F0D00970
ERASE PZE GENERAL ERASABLE F0D00980
OFLGS PZE FLAGS FOR DECODING OF MACHINE INSTRUCTION F0D00990
VRFLD PZE **,,** CHARACTER COUNT,,WORD COUNT F0D01000
INDFG PZE ** FLAG FOR INDIRECT ADDRESS OP CODE F0D01010
RBITS PZE ** RELOCATION BITS FOR FIELD F0D01020
INDIC PZE **,,** RELOCATION BITS FOR WORD F0D01030
DUPCT PZE ,,** NUMBER OF ITERATIONS IN RANGE OF DUP CARD F0D01040
PZE ** PROGRAM COUNTER AT ENTRY INTO RANGE F0D01050
PZE ** CARD COUNTER AT ENTRY INTO RANGE F0D01060
DUPFG PZE ** FLAG TO UNBLOCK INTERMEDIATE TAPE F0D01070
SKDUP MZE ** RANGE OF DUP TO BE BACKSPACED F0D01080
TVFLG PZE ** FLAG FOR NAME IN TRANSFER VECTOR F0D01090
OPRFG PZE ** FLAG FOR UNDEFINED OPERATION F0D01100
VFDRB PZE ** NUMBER OF BITS REMAINING IN WORD F0D01110
VFDTB PZE ** TOTAL BIT COUNT IN VAR FIELD OF VFD CARD F0D01120
VFDFB PZE ** FIELD BIT COUNT IN VAR FIELD OF VFD CARD F0D01130
ELMEQ PZE ** VALUE OF ELEMENT F0D01140
ELMUN PZE ** NUMBER OF SYMBOLS IN ELEMENT F0D01150
ELMUF PZE ** FLAG FOR SYMBOLS IN ELEMENT F0D01160
REM 0 ABSOLUTE F0D01170
REM -1 COMMON F0D01180
REM +1 RELOCATABLE F0D01190
TRMEQ PZE ** VALUE OF TERM F0D01200
TRMUN PZE ** NUMBER OF SYMBOLS IN TERM F0D01210
TRMUF PZE ** FLAG FOR SYMBOLS IN TERM F0D01220
VAREQ PZE ** VALUE OF EXPRESSION F0D01230
VARUC PZE ** NUMBER OF COMMON SYMBOLS IN EXPRESSION F0D01240
VARUR PZE ** NUMBER OF RELOCATABLE SYMBOLS IN EXPRSSN F0D01250
LINKG PZE ** LOCATION OF LINKAGE DIRECTOR F0D01260
9LPMD PZE ** FLAG FOR BINARY CONTROL CARD FORMAT F0D01270
FULMD PZE ** FLAG FOR BINARY CARD FUL FORMAT F0D01280
BOLMD PZE ** FLAG FOR BOOLEAN FIELD F0D01290
DUPMD PZE ** FLAG FOR RECORD WITHIN RANGE OF DUP F0D01300
ETCMD PZE ** FLAG FOR FOLLOWING CARD A CALL OR VFD ETC F0D01310
FCFLG PZE ** FLAG FOR FIRST CARD GROUP COMPLETED F0D01320
SCNBC PZE ** FLAG FOR BOOLEAN COM F0D01330
SCNBE PZE ** FLAG FOR BOOLEAN ERA F0D01340
SCNFC PZE ** FLAG FOR FIRST CHARACTER IN ELEMENT F0D01350
VFDPF PZE ** MEDAL FOR 36 BIT VFD F0D01360
VFDMD PZE ** FLAG FOR VFD CARD F0D01370
VFDHF PZE ** HOLLERITH FIELD FLAG F0D01380
VFDOF PZE ** OCTAL FIELD FLAG F0D01390
NOGOF PZE ** FLAG FOR ASSEMBLY ERROR F0D01400
TYPAF PZE ** FLAG FOR TYPE A 0 00000 0 00000 INSTRUCTN F0D01410
TYPCF PZE ** FLAG FOR TYPE C VARIABLE LENGTH INSTRUCTN F0D01420
REM OR TYPE K WITH HIGH ORDER COUNT FIELD F0D01430
TYPDF PZE ** FLAG FOR TYPE D 0 00000 000000 INSTRUCTN F0D01440
TYPKF PZE ** FLAG FOR TYPE K 00 0000 0 00000 COMMAND F0D01450
OPFLG PZE ** FLAG FOR OP DEFINITION PSEUDOOPERATION F0D01460
UNL1F PZE ** PRELIMINARY FLAG TO SUSPEND LISTING F0D01470
UNLSF PZE ** FLAG TO SUSPEND LISTING F0D01480
TITLF PZE ** FLAG TO SUSPEND LISTING OF GENERATED DATA F0D01490
LBLFG PZE ** BINARY CARD NUMBER LISTING FLAG F0D01500
PRTFG PZE ** FLAG FOR ONLINE PRINTING OF ONE LINE F0D01510
PRTF1 PZE ** PRELIMINARY FLAG FOR ONLINE PRINT F0D01520
DCNFG PZE ** FLAG FOR DECIMAL POINT IN DECCV F0D01530
DCXFG PZE ** FLAG FOR DECIMAL EXPONENT (E) IN DECCV F0D01540
DCBFG PZE ** FLAG FOR BINARY EXPONENT (B) IN DECCV F0D01550
PRTIF PZE ** FLAG FOR MACHINE INSTRUCTION IN PRINT F0D01560
704FG PZE ** FLAG FOR ASSEMBLY IN 704 MODE F0D01570
ORDRF PZE ** FLAG FOR INPUT CARD OUT OF ORDER F0D01580
TTLFG PZE -1 FLAG TO PRINT SUBHEAD (PRESET FOR PASS 1) F0D01590
P1FLG PZE ** PASS 1 FLAGS TRANSMITTED TO PASS 2 F0D01600
REM AS LOW ORDER 18 BITS OF WORD 14 $F0D01610
REM BIT 35 PHASE ERROR F0D01620
REM 34 FOLLOWING CARD IS ETC F0D01630
REM 33 FIELD ERROR F0D01640
REM 32 LITERAL ERROR F0D01650
REM 31 UNRECOGNIZED PSEUDOOP F0D01660
REM 30 MACRO GENERATED CARD F0D01670
REM 29 MISSING PSEUDOOP VARIABLE FIELD F0D01680
REM 18 - 27 MACRO LEVEL NUMBER $F0D01690
REM F0D01700
REM FLAGS FOR ERRORS ON INPUT CARDS F0D01710
DCPFG PZE ** FLAG FOR EXCESS DECIMAL POINT $F0D01720
DCEFG PZE ** FLAG FOR EXCESS EXPONENT (E) $F0D01721
DC2FG PZE ** FLAG FOR EXCESS EXPONENT (B) $F0D01722
ERFDL PZE ** IMPROPER DOLLAR SIGN $F0D01723
ERRFU PZE ** UNDEFINED SYMBOL F0D01730
ERRFM PZE ** MULTIPLY DEFINED SYMBOL F0D01740
ERRFR PZE ** RELOCATION ERROR F0D01750
ERRFP PZE ** PHASE ERROR F0D01760
ERRFL PZE ** LITERAL ERROR F0D01770
ERRFO PZE ** ILLEGAL OPERATION CODE F0D01780
ERRFE PZE ** VACUUM CLEANER F0D01790
ERRFB PZE ** BOOLEAN (OCTAL) ERROR F0D01800
REM FOLLOWING ERRORS ARE NON FATAL F0D01810
ERRFN PZE ** IMPROPER OP CODE F0D01820
ERR49 PZE ** MIXED MODE OPCODE F0D01830
ERRFA PZE ** MISSING ADDRESS F0D01840
ERRFT PZE ** MISSING TAG F0D01850
ERRFD PZE ** MISSING DECREMENT F0D01860
ERRFI PZE ** IMPROPER INDIRECT ADDRESS F0D01870
ERRFF PZE ** EXCESSIVE FIELD F0D01880
ERFFM PZE ** NON-FATAL MULTIPLY DEFINED SYMBOL F0D01890
EFLST PZE *-ERRFN,,*-ERFDL NONFATAL LIST,,LENGTH OF ERROR LIST $F0D01900
REM ADDITIONAL INFORMATION TRANSMITTED BETWEEN PASSES $F0D01901
REM $F0D01902
EVNFLG PZE ** FLAG FOR EVEN CONTAINED IN PROGRAM $F0D01903
REM $F0D01904
REM ERROR CHARACTERS F0D01910
DEC , PATCH SPACE $F0D01920
BCI 1,$ $F0D01921
BCI 1,U F0D01930
BCI 1,M F0D01940
BCI 1,R F0D01950
BCI 1,P F0D01960
BCI 1,L F0D01970
BCI 1,O F0D01980
BCI 1,E F0D01990
BCI 1,B F0D02000
REM FOLLOWING ERRORS ARE NONFATAL F0D02010
BCI 1,N F0D02020
FLG49 BCI 1,4 RESET TO 9 FOR 704 MODE CHANGE F0D02030
BCI 1,A F0D02040
BCI 1,T F0D02050
BCI 1,D F0D02060
BCI 1,I F0D02070
BCI 1,F F0D02080
BCI 1,M F0D02090
EFCHR SYN * F0D02100
REM F0D02110
REM F0D02120
PGHDNG BCI 8,1 F0D02130
BCI 8, F0D02140
BCI 2, PAGE 1 F0D02150
REM F0D02160
BLANKS BCI 3, F0D02170
BCI 5,PREPROCESSOR UPDATE PROGRAM F0D02180
BCI 6, F0D02190
REM F0D02200
PBUFF1 MZE ,,4 PUNCH OUTPUT BUFFER F0D02210
DEC ,,,,,,,,,,,,,,,,,,,,,, F0D02220
IDBUFF DEC ,,, CARD SERIAL BUFFER + ONE WORD SKEW SPACE F0D02230
REM F0D02240
REM BCD CARD BUFFERS F0D02250
REM F0D02260
PFLAG DEC ERROR FLAGS F0D02270
REM OCTAL EXPANSION OF MACHINE INSTRUCTION(23)F0D02275
OCTAL DEC ,,, (27)F0D02280
REM (THIS BUFFER MUST PRECEDE BCDBF) F0D02290
BCDBF DEC ,,,,,,,,,,,,, SOURCE DECK WORKING BUFFER F0D02300
LITRL DEC VALUE OF LITERAL OR PSEUDOOP DEFINITION F0D02310
OPBIN DEC BINARY INSTRUCTION, PSEUDOOP TRANSFER F0D02320
REM (LITRL AND OPBIN MUST FOLLOW BCDBF) F0D02330
REM F0D02340
INSBF BCI 9, F0D02350
BCI 8, INSERTED F0D02360
REM F0D02370
DELBF BCI 9, F0D02380
BCI 8, THE FIRST CARD IN THIS DECK IS DELETED F0D02390
REM F0D02400
ORDBF BCI 9, F0D02410
BCI 9, ORDER ERROR F0D02420
REM F0D02430
REM F0D02440
REM COMMON ROUTINES F0D02450
REM F0D02460
REM WRITE LINE ON AND OFF LINE F0D02470
REM CALL IS TSX FPRINT,4 F0D02480
REM PZE FWORD,,COUNT F0D02490
REM (MZE FWORD,,COUNT FORCE PRINTING) F0D02500
REM ( ,,0 BLANK LINE) F0D02510
FPRINT SXA FPRNX,4 SAVE CALLING LINKAGE F0D02520
SXA FPRNX+1,2 SAVE WORD COUNT F0D02530
SXA FPRNX+2,1 SAVE CHARACTER COUNT F0D02540
CLA 1,4 LOAD PARAMETER F0D02550
STA FPRN2 INITIALIZE I/O COMMAND F0D02560
STD FPRN2 F0D02570
PDX ,2 LOAD WORD COUNT F0D02580
PAGCNT AXT **,1 LOAD PAGE LINE COUNT (20)F0D02590
PAGENO AXT **,4 LOAD PAGE NUMBER (20)F0D02600
TXH FPRN0,2,0 IS BLANK LINE REQUESTED $F0D02610
LDQ IOBLK YES,LOAD PARAMETER FOR BLANK LINE $F0D02620
STQ FPRN2 INITIALIZE I/O COMMAND $F0D02630
TXL FPRN0,1,0 IS BLANK LINE AT TOP OF PAGE (20)F0D02640
TXH FPRN0,1,4 IS BLANK LINE AT BOTTOM OF PAGE (20)F0D02650
ZSA PAGCNT YES, EJECT PAGE (20)F0D02660
TXH FPRNX,4,0 TRANSFER IF NOT FIRST PAGE (20)F0D02670
REM LINE IS NOT BLANK,OR NOT AT BOTTOM OF PAGE (20)F0D02680
FPRN0 TPL *+2 IS THIS LINE FORCED (20)F0D02690
STL PRTF1 YES,SET FLAG (20)F0D02700
TIX FPRN1,1,1 IS PAGE FULL (20)F0D02710
TXI *+1,4,1 YES, BUMP PAGE NUMBER (20)F0D02720
SXA PAGENO,4 (20)F0D02730
PXA ,4 LOAD NEW PAGE NUMBER F0D02740
TSX BCDCV,4 *CONVERT TO BCD F0D02750
LDQ BLANKS APPEND FOLLOWING BLANKS F0D02760
LGR 6 LEFT ADJUST F0D02770
TNZ *-1 F0D02780
STQ PGHDNG+17 INSERT IN PAGE HEADING F0D02790
TSX WRITT,4 *WRITE PAGE HEADING F0D02800
IOCD PGHDNG,,18 F0D02810
NZT TTLFG IS SUBTITLE SPECIFIED F0D02820
TRA *+3 NO F0D02830
TSX WRITT,4 *YES, WRITE IT F0D02840
IOHED IOCD BLANKS,,14 F0D02850
TSX WRITT,4 *WRITE BLANK LINE F0D02860
IOBLK IOCD BLANKS,,3 F0D02870
CLA (PGCT) RESET LINE COUNT F0D02880
PDX ,1 F0D02890
ZET TTLFG IS SUBTITLE SPECIFIED F0D02900
TXI *+1,1,-1 YES, BUMP PAGE LINE COUNT DOWN ONE F0D02910
TRA PATCH $F0D02920
FPRN1 CLA PRTF1 NO, SET ONLINE PRINT FLAG F0D02930
STO PRTFG F0D02940
STZ PRTF1 RESET INTERMEDIATE FLAG F0D02950
TSX FPRNA,4 *TEST FOR PRINT CONTROL, SET XR4 $F0D02960
FPRN2 IOCD **,,** F0D02970
SXA PAGCNT,1 SAVE PAGE LINE COUNT F0D02980
FPRNX AXT **,4 RELOAD CALLING LINKAGE F0D02990
AXT **,2 RELOAD WORD COUNT F0D03000
AXT **,1 RELOAD CHARACTER COUNT F0D03010
TRA 2,4 F0D03020
REM F0D03030
REM BLOCK LISTING OUTPUT TAPE F0D03040
WRITT SXA WRITX,4 SAVE CALLING LINKAGE F0D03050
SXA WRITX+1,2 SAVE WORD COUNT F0D03060
SXA WRITX+2,1 SAVE LINE COUNT F0D03070
AXT **,1 LOAD BLOCK WORD COUNT F0D03080
LAC WRBLK+1,2 LOAD BUFFER INDEX F0D03090
TXL *+4,1,0 IS THIS FIRST LINE IN BLOCK F0D03100
CAL RECMK NO, INSERT RECORD MARK F0D03110
SLW* BCD14+1,2 FOLLOWING LAST WORD OF PREVIOUS LINE F0D03120
TXI *+1,1,-1 BUMP COUNT TO NEXT WORD IN BLOCK F0D03130
CAL 1,4 LOAD PARAMETER F0D03140
STO WRIT1+2 INITIALIZE PRINT I/O PARAMETER F0D03150
PDX ,4 LOAD WORD COUNT F0D03160
SXA XERAS,4 F0D03170
ADM XERAS COMPUTE ORIGIN AT END OF BUFFER F0D03180
STA *+1 INITIALIZE COPY LOOP F0D03190
CAL **,4 MOVE NEXT WORD F0D03200
SLW* BCD14+1,2 INTO OUTPUT BUFFER F0D03210
TXI *+1,1,-1 BUMP TO NEXT WORD IN BLOCK F0D03220
TIX *-3,4,1 IS LINE COMPLETE F0D03230
SXA WRITT+3,1 YES, SAVE BLOCK WORD COUNT F0D03240
WRIT0 AXT **,4 BUMP BLOCK LINE COUNT F0D03250
TXI *+1,4,1 F0D03260
SXA WRIT0,4 F0D03270
TXH *+2,4,-1 IS LISTING TAPE TO BE UNBUFFERED F0D03280
TXL *+2,4,4 NO, IS BLOCKED BUFFER FULL F0D03290
TSX WRBLK,4 *YES, WRITE BUFFER F0D03300
WRITS NOP IS THIS LINE MONITORED F0D03310
TRA *+2 NO F0D03320
TRA *+3 YES F0D03330
NZT PRTFG IS THIS LINE FORCED F0D03340
WRIT1 TXL WRITX,4,-1 NO, IS ONLINE PRINT SPECIFIED F0D03350
TSX (PRNT),4 *YES, PRINT LINE F0D03360
PZE **,,** F0D03370
SXA PRTFG,0 RESET FLAG F0D03380
WRITX AXT **,4 RELOAD CALLING LINKAGE F0D03390
AXT **,2 RELOAD WORD COUNT F0D03400
AXT **,1 RELOAD LINE COUNT F0D03410
TRA 2,4 F0D03420
RECMK OCT 606060606072 720 PRINTER RECORD MARK F0D03430
REM F0D03440
REM WRITE FINAL BLOCK ON LISTING TAPE F0D03450
WRFBK SXA WRFBX,4 SAVE CALLING LINKAGE F0D03460
LXA WRITT+3,1 LOAD BLOCK WORD COUNT F0D03470
TXL WRFBX,1,0 IS BLOCK EMPTY F0D03480
LAC WRBLK+1,2 NO, LOAD BUFFER INDEX F0D03490
CAL FRCMK INSERT 720 PRINTER NOP F0D03500
SLW* BCD14+1,2 FOLLOWING LAST LINE F0D03510
TXI *+1,1,-1 BUMP WORD COUNT F0D03520
SXA WRITT+3,1 F0D03530
TSX WRBLK,4 *WRITE LAST BUFFER F0D03540
WRFBX AXT **,4 RELOAD CALLING LINKAGE F0D03550
TRA 1,4 F0D03560
FRCMK OCT 606060607260 720 PRINTER NOP F0D03570
REM F0D03580
REM WRITE BLOCKED/UNBLOCKED LISTING OUTPUT TAPE F0D03590
WRBLK SXA WRBLX,4 SAVE CALLING LINKAGE F0D03600
AXC 1,2 LOAD BUFFER INDEX F0D03610
SXA *-1,2 FLIP BUFFER INDEX F0D03620
LAC WRITT+3,1 LOAD BLOCK WORD COUNT F0D03630
TXL WRBLX,1,0 IS BLOCK EMPTY F0D03640
PXD ,1 NO, INITIALIZE I/O COMMAND WORD COUNT F0D03650
STD BCD14,2 F0D03660
TSX (TAPE),4 *WRITE BLOCKED/UNBLOCKED RECORD F0D03670
PZE BCD14,2,(WDNP) F0D03680
PZE ,,MLSTAP F0D03690
CAL* (LNCT) BUMP LINE COUNT F0D03700
ADM WRIT0 F0D03710
STA* (LNCT) F0D03720
WRBLX AXT **,4 RELOAD CALLING LONKAGE F0D03730
SXA WRITT+3,0 RESET BLOCK WORD COUNT F0D03740
SXA WRIT0,0 RESET BLOCK LINE COUNT F0D03750
TRA 1,4 F0D03760
REM F0D03770
REM ASSEMBLE UNIFORM SYMBOL F0D03780
LOCFL SXA LOCFX,4 SAVE CALLING LINKAGE F0D03790
STZ SYMBL CLEAR WORKING STORAGE F0D03800
LAS BLANKS IS SYMBOL ALL BLANKS F0D03810
TRA *+2 NO F0D03820
TRA LOCF2 YES F0D03830
XCL RECALL SYMBOL F0D03840
AXT 6,4 PREPARE TO SCAN SIX CHARACTERS F0D03850
LOCF1 PXD ,0 F0D03860
LGL 6 GET NEXT CHARACTER F0D03870
LAS BLANK IS IT BLANK F0D03880
TRA *+2 NO F0D03890
TRA *+5 YES F0D03900
LGR 6 ADD NONBLANK CHARACTER F0D03910
CAL SYMBL F0D03920
LGL 6 F0D03930
SLW SYMBL SAVE PARTIAL SYMBOL F0D03940
TIX LOCF1,4,1 IS SYMBOL ASSEMBLED F0D03950
LOCF2 CAL SYMBL YES, RELOAD UNIFORM SYMBOL F0D03960
LOCFX AXT **,4 RELOAD CALLING LINKAGE F0D03970
TRA 1,4 F0D03980
REM F0D03990
REM SET UP OPCODE, VARIABLE FIELD F0D04000
SETUP SXA STUPX,4 SAVE CALLING LINKAGE F0D04010
STZ INDFG RESET INDIRECT ADDRESS FLAG F0D04020
REM CHECK FOR COMMENTS CARD (24)F0D04030
CAL BCDBF LOAD CARD WORD 1 (24)F0D04040
LGR 30 ISOLATE COLUMN 1 (24)F0D04050
ERA ASTRK IS THIS COMMENTS CARD $F0D04060
TZE 1,4 YES $F0D04070
ERA Q7 IS IT A DOLLAR SIGN $F0D04071
TZE 1,4 YES $F0D04072
AXC 1,2 NO, INITIALIZE WORD AND (24)F0D04080
AXT 6,1 CHARACTER POSITIONS FOR OP CODE SCAN (24)F0D04090
CAL BCDBF+1 CHECK FOR ASTERISK IN COLUMN 7 (UGH) (24)F0D04100
LGR 30 POSSIBLE IF IN IBSFAP MODE (24)F0D04110
ERA ASTRK IS IT BY CHANCE (24)F0D04120
TZE STP00 *CHECK MODE IF YES (24)F0D04130
REM REENTRY TO SCAN NEXT CHARACTER IN OP FIELD (24)F0D04135
STP01 SXA STP06,2 STORE CURRENT WORD AND CHARACTER (24)F0D04140
SXA NERAS,1 POSITIONS OF OP CODE SCAN (24)F0D04150
TSX C019Q,4 *GO GET NEXT CHARACTER (24)F0D04160
SUB ASTRK IS THIS * F0D04170
TNZ *+3 NO $F0D04180
STL INDFG YES, SET INDIRECT FLAG $F0D04190
TRA STP02 $F0D04200
SUB Q4 IS THIS BLANK $F0D04210
TZE STP2A YES, END OF OPCODE (24)F0D04220
SUB EQUAL NO, IS THIS , $F0D04230
TZE STP03 YES, END OF OPCODE $F0D04240
SUB Q1 NO, IS THIS ( $F0D04250
TZE STP04 YES (24)F0D04260
STZ INDFG NO, RESET INDIRECT FLAG $F0D04270
STP02 TXH STP01,2,-2 ARE WE STILL IN CARD WORD 2 (24)F0D04280
TXH STP01,1,4 NO, ARE WE PAST CC 14 (24)F0D04290
LXA STUPX,4 YES, OP FIELD IS TOO LONG (24)F0D04300
TRA 2,4 TAKE ERROR RETURN (24)F0D04310
REM REENTRY FOR OP CODE TERMINATED BY BLANK (24)F0D04320
STP2A TSX C019Q,4 *OBTAIN NEXT CHARACTER (24)F0D04330
SUB BLANK IS IT BLANK (24)F0D04340
TNZ STP05 NO, VARIABLE FIELD HAS BEGUN (24)F0D04350
TXH STP2A,2,-2 YES, ARE WE PAST WORD 2 (24)F0D04355
TXH STP2A,1,4 YES, IS NEXT COLUMN 16 (24)F0D04360
REM REENTRY FOR OP CODE TERMINATED BY , (24)F0D04370
STP03 TSX C019Q,4 *INITIALIZE CHRCTR PROPERLY (24)F0D04380
REM REENTRY FOR OP CODE TERMINATED BY ( (24)F0D04390
STP04 TXL STP05,2,-2 ARE WE PAST WORD TWO (24)F0D04400
TXH STP01,1,4 NO, ( IN CC 8 IS PART OF OP CODE (24)F0D04410
REM REENTRY FOR BEGINNING OF VARIABLE FIELD SENSED (24)F0D04420
STP05 CAL CHRCTR RELOAD BEGINNING CHARACTER (24)F0D04430
LGR 6 AND POSITION FOR SCAN (24)F0D04440
STQ RESIDU STORE SCAN WORD (24)F0D04450
TXI *+1,1,1 BUMP CHARACTER POSITION BACK (24)F0D04460
SXD VRFLD,2 STORE WORD AND CHARACTER (24)F0D04470
SXA VRFLD,1 POSITIONS BEGINNING VARIABLE FIELD (24)F0D04480
LDQ NERAS LOAD CHARACTER POSITION OF OP FIELD (24)F0D04490
VLM Q6,,15 END AND MULTIPLY BY 6 TO COMPUTE (24)F0D04500
LLS 15 AMOUNT OF SHIFT (24)F0D04510
PAC ,4 (24)F0D04520
STP06 AXC **,2 RELOAD WORD ENDING OP FIELD (24)F0D04530
TXH *+2,2,1 WAS IT WORD TWO (24)F0D04540
TXI *+1,4,-36 NO, BUMP SHIFT COUNT (24)F0D04550
ZET INDFG WAS OPERATION INDIRECTLY ADDRESSED (24)F0D04560
TXI STP07,4,-6 YES, ADJUST SHIFT COUNT TO OMIT * (24)F0D04570
STP07 CAL BCDBF+1 LOAD CARD WORDS TWO (24)F0D04580
LDQ BCDBF+2 AND THREE (COLUMNS 7 THROUGH 18) (24)F0D04590
LGR -6,4 RIGHT ADJUST OPERATION CODE (24)F0D04600
LGL 0,4 THEN LEFT ADJUST IT (24)F0D04610
TNZ STP08 IF OPCODE IS NULL, (24)F0D04620
CAL BLNK3 RESET IT TO BLANKS (24)F0D04630
STP08 SLW OPCOD STORE OPERATION CODE (24)F0D04640
ERA DASTR DID IT COME OUT AS ** (24)F0D04650
TNZ STP09 NO, EXIT (24)F0D04660
STZ INDFG YES, MUST HAVE BEEN *** (24)F0D04670
TXI STP07,4,6 GO BACK TO READJUST IT (24)F0D04680
STP09 LXD VRFLD,2 RELOAD SCAN WORD POSITION (24)F0D04690
STUPX AXT **,4 RELOAD CALLING LINKAGE (24)F0D04700
TRA 3,4 (24)F0D04710
REM (24)F0D04720
REM THE FOLLOWING IS A PATCH TO SUBROUTINE SCANF (24)F0D04725
RELFG CLA VARUC ARE THERE RELOCATION ERRORS (24)F0D04730
TZE *+2 IGNORE -0 (24)F0D04740
TMI SCN12+5 COMPLEMENT OF COMMON ELEMENT (24)F0D04750
CLA VARUR (24)F0D04760
TZE *+2 IGNORE -0 (24)F0D04770
TMI SCN12+5 COMPLEMENT OF RELOCATABLE ELEMENT (24)F0D04780
TRA SCN12+1 (24)F0D04790
REM F0D04800
REM FIND BINARY MACHINE OPERATION FOR BCD OPCODE F0D04810
SOPTB SXA SOPTX,4 SAVE CALLING LINKAGE F0D04820
AXT 0,1 LOAD LOCATION OF FIRST NAME IN TABLE F0D04830
LXA OPTSIZ,2 LOAD LOGARITHM OF TABLE LENGTH F0D04840
TSX LOWER,4 *EXECUTE BINARY SEARCH F0D04850
REM F0D04860
TRA SOPTX+2 NOT FOUND F0D04870
SOPT1 TXL *+4,1,** IS SEARCH PAST UPPER END OF TABLE F0D04880
LAS OPTTBL-2,1 NO, IS IT THIS OPCODE F0D04890
TXI LOWER,2,-2 NO, LARGER - GO LOOK HIGHER F0D04900
TRA *+2 YES F0D04910
TXI RAISE,2,-2 NO, SMALLER - GO LOOK LOWER F0D04920
REM OPCODE FOUND IN TABLE F0D04930
LDI OPTTBL-1,1 LOAD OPERATION DEFINITION F0D04940
SOPTX AXT **,4 RELOAD CALLING LINKAGE F0D04950
TRA 2,4 F0D04960
REM OPCODE NOT FOUND IN TABLE F0D04970
LXA SOPTX,4 RELOAD CALLING LINKAGE F0D04980
TRA 1,4 F0D04990
REM F0D05000
TXI BSRCH,1,+16384 F0D05010
TXI BSRCH,1,-16384 F0D05020
TXI BSRCH,1,+8192 F0D05030
TXI BSRCH,1,-8192 F0D05040
TXI BSRCH,1,+4096 F0D05050
TXI BSRCH,1,-4096 F0D05060
TXI BSRCH,1,+2048 F0D05070
TXI BSRCH,1,-2048 F0D05080
TXI BSRCH,1,+1024 F0D05090
TXI BSRCH,1,-1024 F0D05100
TXI BSRCH,1,+512 F0D05110
TXI BSRCH,1,-512 F0D05120
TXI BSRCH,1,+256 F0D05130
TXI BSRCH,1,-256 F0D05140
TXI BSRCH,1,+128 F0D05150
TXI BSRCH,1,-128 F0D05160
TXI BSRCH,1,+64 F0D05170
TXI BSRCH,1,-64 F0D05180
TXI BSRCH,1,+32 F0D05190
TXI BSRCH,1,-32 F0D05200
TXI BSRCH,1,+16 F0D05210
TXI BSRCH,1,-16 F0D05220
TXI BSRCH,1,+8 F0D05230
TXI BSRCH,1,-8 F0D05240
TXI BSRCH,1,+4 F0D05250
TXI BSRCH,1,-4 F0D05260
TXI BSRCH,1,+2 F0D05270
TXI BSRCH,1,-2 F0D05280
TRA 1,4 NOT FOUND F0D05290
TRA 1,4 NOT FOUND F0D05300
RAISE TRA *,2 F0D05310
LOWER TRA *,2 F0D05320
BSRCH TRA 2,4 LOOK FURTHER F0D05330
REM F0D05340
REM EVALUATE NEXT EXPRESSION IN VARIABLE FIELD F0D05350
SCANF SXA SCANX,4 SAVE CALLING LINKAGE F0D05360
STZ TRMEQ RESET VALUE OF FIRST TERM IN EXPRESSION F0D05370
STZ TRMUN RESET UNITS OF TERM F0D05380
STZ TRMUF RESET FLAG FOR TYPE OF UNITS TO ABSOLUTE F0D05390
STZ VAREQ RESET VALUE OF EXPRESSION F0D05400
STZ VARUR RESET NUMBER OF RELOCATABLE SYMBOLS F0D05410
STZ VARUC RESET NUMBER OF COMMON SYMBOLS F0D05420
STZ RBITS RESET RELOCATION BITS F0D05430
STZ SCNBE RESET FLAG FOR BOOLEAN ERA F0D05440
CAL CHRCTR LOAD FIRST CHARACTER IN NEXT EXPRESSION F0D05450
ERA BLANK IS IT END OF VARIABLE FIELD F0D05460
TNZ *+3 NO F0D05470
STZ BOLMD YES, RESET BOOLEAN FLAG F0D05480
TRA 1,4 RETURN ON VACUUOUS FIELD F0D05490
AXC SCADD,4 NO, INITIALIZE OPERATION SWITCH FOR F0D05500
SXD OPSW1,4 FOLLOWING ELEMENT TO ADD F0D05510
TRA SCN01+5 F0D05520
REM REENTRY TO EVALUATE NEXT ELEMENT F0D05530
SCN01 NZT TVFLG IS THIS CALL SUBPROGRAM NAME F0D05540
TRA *+4 NO F0D05550
TSX SCEND,4 YES, SKIP TO END OF EXPRESSION F0D05560
STL ERRFF SET ERROR FLAG F0D05570
TRA SCN14 F0D05580
STL SCNFC SET FLAG FOR FIRST CHARACTER IN ELEMENT F0D05590
STZ SCNBC RESET FLAG FOR BOOLEAN COM F0D05600
CAL BHEAD SET HEADING CHARACTER F0D05610
ZET TVFLG IS THIS CALL SUBPROGRAM NAME F0D05620
PXD ,0 YES, DELETE HEADING CHARACTER F0D05630
TRA SCN02+1 F0D05640
REM REENTRY FOR $ REHEADING CHARACTER F0D05650
SCN02 TRA DLRUT DOLLAR SIGN TEST $F0D05660
SLW THEAD F0D05670
STZ ELMEQ RESET VALUE OF ELEMENT F0D05680
STZ ELMUN RESET UNITS OF ELEMENT F0D05690
STZ ELMUF RESET FLAG FOR TYPE OF UNITS TO ABSOLUTE F0D05700
TRA SCN03+1 F0D05710
REM REENTRY FOR BOOLEAN UNARY / F0D05720
SCN03 STL SCNBC SET FLAG TO COMPLEMENT NEXT ELEMENT F0D05730
REM REENTRY TO ASSEMBLE SYMBOL F0D05740
TSX SSCAN,4 *ASSEMBLE ELEMENT F0D05750
TRA EVALE *END OF VARIABLE FIELD F0D05760
SLT EXPND DID FIELD END WITH COMMA OR BLANK F0D05770
PAX ,4 NO, LOAD PUNCTUATION CHARACTER F0D05780
TXL SCADD,4,16 + OPERATION IS ADD F0D05790
TXL SCSUB,4,32 - OPERATION IS SUBTRACT F0D05800
TXL SCN02,4,43 $ RESET HEADING CHARACTER F0D05810
TXL SCN05,4,44 * OPERATION MAY BE MULTIPLY F0D05820
TXL SCN04,4,49 / OPERATION MAY BE DIVIDE F0D05830
TRA EVALE *PUNCTUATION WAS COMMA OR BLANK F0D05840
REM CHARACTER IS / F0D05850
SCN04 NZT SCNFC IS THIS FIRST CHARACTER IN ELEMENT F0D05860
TRA SCDIV NO, IT IS DIVIDE OR BINARY NOT OPERATION F0D05870
STZ SCNFC YES, RESET FLAG F0D05880
ZET BOLMD IS FIELD BOOLEAN F0D05890
TRA SCN03 YES, IT IS UNARY NOT OPERATION F0D05900
TRA SCDIV NO F0D05910
REM CHARACTER IS * F0D05920
SCN05 NZT SCNFC IS THIS FIRST CHARACTER IN ELEMENT F0D05930
TRA SCMPY NO, IT IS MULTIPLY OPERATION F0D05940
STZ SCNFC YES, RESET FLAG F0D05950
SLW SYMBL CHARACTER IS PROGRAM COUNTER F0D05960
TSX SSCET,4 *FIND OPERATION F0D05970
TXI EVALE,,0 NO OPERATION FOLLOWS F0D05980
TRA SCN03+3 F0D05990
REM F0D06000
REM ENTRY POINTS TO EVALUATE ELEMENT ASSEMBLED ABOVE. F0D06010
REM RETURN FROM EVALF IS TO OPERATION PRECEDING ELEMENT. F0D06020
REM RETURN TO PRESENT OPERATION IS AFTER FOLLOWING ELEMENT F0D06030
REM HAS BEEN EVALUATED. F0D06040
SCDIV TSX EVALF,4 *EVALUATE PRECEDING ELEMENT F0D06050
REM F0D06060
TRA BLDIV EXPRESSION IS BOOLEAN F0D06070
CLA TRMEQ LOAD PARTIAL TERM F0D06080
LRS 35 F0D06090
NZT ELMEQ IS ELEMENT UNDEFINED OR ZERO F0D06100
TRA *+4 YES, ASSUME ELEMENT 1 F0D06110
DVP ELMEQ NO, COMBINE WITH FOLLOWING ELEMENT F0D06120
DCT DID DIVIDE FAIL F0D06130
TSX MACERR,4 **YES F0D06140
STQ TRMEQ SAVE PARTIAL TERM F0D06150
STQ TRMUN SAVE COEFFICIENT OF SYMBOLS F0D06160
NZT TRMUF IS TERM ABSOLUTE F0D06170
ZET ELMUF YES, IS ELEMENT ABSOLUTE F0D06180
TRA SCMP1 **NO, SET ERROR FLAGS F0D06190
TRA SCN10 F0D06200
REM F0D06210
SCMPY TSX EVALF,4 *EVALUATE PRECEDING ELEMENT F0D06220
REM F0D06230
TRA BLMPY EXPRESSION IS BOOLEAN F0D06240
LDQ TRMEQ COMBINE PARTIAL TERM F0D06250
MPY ELMEQ WITH FOLLOWING ELEMENT F0D06260
STQ TRMEQ SAVE PARTIAL TERM MOD 2**35 F0D06270
LDQ TRMUN COMBINE COEFFICIENT FOR TERM F0D06280
MPY ELMUN WITH COEFFICIENT FOR FOLLOWING ELEMENT F0D06290
STQ TRMUN SAVE COEFFICIENT MOD 2**35 F0D06300
ZET TRMUF IS TERM ABSOLUTE F0D06310
NZT ELMUF NO, IS ELEMENT ABSOLUTE F0D06320
TRA *+3 YES F0D06330
REM REENTRY AFTER RELOCATION ERROR ON DIVIDE F0D06340
SCMP1 SLN EXPRR NO, SET ERROR FLAGS F0D06350
STL ERRFR F0D06360
CAL ELMUF SET COMMON OR RELOCATABLE FLAG FOR ELEMENTF0D06370
ORS TRMUF INTO FLAG FOR TERM (AT LEAST ONE IS ZERO) F0D06380
TRA SCN10 F0D06390
REM F0D06400
SCADD TSX EVALF,4 *EVALUATE PRECEDING ELEMENT F0D06410
REM F0D06420
TRA BLADD EXPRESSION IS BOOLEAN F0D06430
CLA ELMEQ LOAD VALUE OF FOLLOWING ELEMENT F0D06440
TRA SCSB1 F0D06450
REM F0D06460
SCSUB TSX EVALF,4 *EVALUATE PRECEDING ELEMENT F0D06470
REM F0D06480
TRA BLSUB EXPRESSION IS BOOLEAN F0D06490
CLS ELMUN INVERT COEFFICIENT FOR FOLLOWING ELEMENT F0D06500
STO ELMUN F0D06510
CLS ELMEQ INVERT VALUE OF FOLLOWING ELEMENT F0D06520
REM REENTRY FOR ADD F0D06530
SCSB1 XCA HOLD FOLLOWING ELEMENT F0D06540
CLA VAREQ COMBINE VALUE OF PARTIAL EXPRESSION F0D06550
ADD TRMEQ WITH PRECEDING TERM F0D06560
STO VAREQ F0D06570
STQ TRMEQ INITIALIZE FOLLOWING TERM TO VALUE OF ELEMF0D06580
CLA TRMUF LOAD FLAG FOR UNITS OF TERM F0D06590
TZE SCSB3 IS TERM ABSOLUTE F0D06600
TMI SCSB2 NO, IS TERM COMMON F0D06610
CLA VARUR NO, BUMP NUMBER OF RELOCATABLE SYMBOLS F0D06620
ADD TRMUN BY COEFFICIENT OF TERM F0D06630
STO VARUR F0D06640
TRA SCSB3 F0D06650
REM TERM IS COMMON F0D06660
SCSB2 CLA VARUC BUMP NUMBER OF COMMON SYMBOLS F0D06670
ADD TRMUN BY COEFFICIENT OF TERM F0D06680
STO VARUC F0D06690
REM REENTRY FOR ABSOLUTE OR RELOCATABLE TERM F0D06700
SCSB3 CLA ELMUN INITIALIZE COEFFICIENT OF FOLLOWING TERM F0D06710
STO TRMUN TO COEFFICIENT OF FIRST ELEMENT F0D06720
CAL ELMUF INITIALIZE FLAG FOR UNITS OF TERM F0D06730
SLW TRMUF TO FLAG FOR UNITS OF FIRST ELEMENT F0D06740
TRA SCN10 F0D06750
REM F0D06760
BLADD TSX BLERA,4 *EVALUATE POSSIBLE ERA F0D06770
TRA BLSUB+2 F0D06780
REM F0D06790
BLSUB TSX BLERA,4 *EVALUATE POSSIBLE ERA F0D06800
STL SCNBE SET FLAG TO COMPLEMENT FOLLOWING ELEMENT F0D06810
SLW VAREQ SAVE PARTIAL VALUE OF EXPRESSION F0D06820
CAL ELMEQ INITIALIZE NEXT TERM TO VALUE OF F0D06830
SLW TRMEQ FIRST ELEMENT F0D06840
TRA SCN10 F0D06850
REM F0D06860
BLMPY CAL ELMEQ MASK (AND) PARTIAL VALUE OF EXPRESSION F0D06870
ANS TRMEQ WITH VALUE OF ELEMENT F0D06880
TRA SCN10 F0D06890
REM F0D06900
BLDIV CAL ELMEQ OPERATION IS BINARY NOT F0D06910
COM COMPLEMENT ELEMENT F0D06920
ANS TRMEQ MASK PARTIAL VALUE OF EXPRESSION F0D06930
REM F0D06940
REM ELEMENT HAS BEEN EVALUATED F0D06950
SCN10 SLT EXPND WAS THIS END OF EXPRESSION F0D06960
TRA SCN01 NO F0D06970
REM END OF EXPRESSION F0D06980
NZT BOLMD IS EXPRESSION BOOLEAN F0D06990
TRA *+3 NO F0D07000
TSX BLERA,4 *YES, EVALUATE POSSIBLE ERA F0D07010
TRA SCN11 F0D07020
CLA VAREQ COMBINE PARTIAL VALUE OF EXPRESSION F0D07030
ADD TRMEQ WITH FINAL TERM F0D07040
STO VAREQ F0D07050
CAL P4 COMPLEMENT IF NEGATIVE F0D07060
ALS 1 F0D07070
ADD VAREQ F0D07080
REM REENTRY FOR BOOLEAN EXPRESSION F0D07090
SCN11 ZET VFDMD IS THIS EXPRESSION PART OF VFD F0D07100
TRA *+4 YES, KEEP ENTIRE WORD F0D07110
ANA ADTMK NO, MASK IN FINAL 18 BITS F0D07120
NZT BOLMD IS EXPRESSION BOOLEAN F0D07130
ANA ADDMK NO, MASK IN FINAL 15 BITS F0D07140
SLW VAREQ SAVE F0D07150
CLA TRMUF LOAD FLAG FOR TERM UNITS F0D07160
TZE SCN12 IS EXPRESSION ABSOLUTE F0D07170
TMI *+5 NO, IS EXPRESSION COMMON F0D07180
CLA VARUR NO, BUMP NUMBER OF RELOCATABLE SYMBOLS F0D07190
ADD TRMUN BY COEFFICIENT OF LAST TERM F0D07200
STO VARUR F0D07210
TRA SCN12 F0D07220
CLA VARUC BUMP NUMBER OF COMMON SYMBOLS F0D07230
ADD TRMUN BY COEFFICIENT OF LAST TERM F0D07240
STO VARUC F0D07250
REM REENTRY FOR ABSOLUTE OR RELOCATABLE TERM F0D07260
SCN12 TRA RELFG CHECK FOR RELOCATION ERROR $F0D07270
ADD VARUC NUMBER OF RELOCATABLE AND COMMON SYMBOLS $F0D07280
TZE SCN13 IS COEFFICIENT ZERO F0D07290
SUB Q1 NO, IS COEFFICIENT 1 F0D07300
TZE *+3 YES F0D07310
SLN EXPRR NO, SET ERROR FLAGS F0D07320
STL ERRFR F0D07330
CAL VAREQ COMPUTE RELATIVE POSITION F0D07340
ANA ADDMK OF EXPRESSION ABOVE OR BELOW F0D07350
SUB PRGBK PROGRAM BREAK F0D07360
ZET VARUC IS EXPRESSION IN COMMON F0D07370
CHS YES, INVERT RELATIVE POSITION F0D07380
AXT 2,4 SET EXPRESSION DIRECTLY RELOCATABLE F0D07390
TMI *+2 IS EXPRESSION DIRECTLY RELOCATABLE F0D07400
AXT 3,4 NO, SET EXPRESSION COMPLEMENT RELOCATABLE F0D07410
SXA RBITS,4 F0D07420
SCN13 TRA *+2 $F0D07430
REM CONSTANT FOR BCDCV CONVERSION ROUTINE (25)F0D07435
TEN5TH DEC 100000 (25)F0D07440
CAL VAREQ YES, LOAD LOGICAL VALUE OF EXPRESSION F0D07450
STZ BOLMD RESET BOOLEAN MODE FLAG F0D07460
SLT EXPRR WAS ERROR FOUND IN THIS EXPRESSION F0D07470
TRA SCANX NO F0D07480
SCN14 SLN EXPRR YES, RESET ERROR FLAG F0D07490
STZ RBITS DELETE RELOCATION BITS F0D07500
PXD ,0 DELETE VALUE OF SYMBOL F0D07510
STZ VAREQ F0D07520
SCANX AXT **,4 RELOAD CALLING LINKAGE F0D07530
TRA 2,4 F0D07540
REM F0D07550
REM EVALUATE BOOLEAN EXPRESSION F0D07560
BLERA CAL TRMEQ LOAD FOLLOWING TERM F0D07570
NZT SCNBE IS OPERATION ERA F0D07580
ORA VAREQ NO, COMBINE WITH PARTIAL TERM F0D07590
ZET SCNBE IS OPERATION ERA F0D07600
ERA VAREQ YES, MASK PARTIAL VALUE OF EXPRESSION F0D07610
STZ SCNBE RESET FLAG F0D07620
TRA 1,4 F0D07630
REM F0D07640
REM EVALUATE SYMBOL PRECEDING OPERATION, OR END OF EXPRESSIONF0D07650
EVALE SLN EXPND SET END OF EXPRESSION FLAG F0D07660
EVALF SXD OPSW2,4 SAVE CALLING LINKAGE (OP FOLLOWING SYMBOL)F0D07670
CAL SYMBL LOAD LOW ORDER PORTION OF ELEMENT F0D07680
LAS ASTRK IS IT * F0D07690
TRA *+2 NO F0D07700
TRA EVAL1 YES, CURRENT CONTENTS OF LOCATION COUNTER F0D07710
ORA SYMB2 COMBINE LOW AND HIGH ORDER PORTIONS F0D07720
ANA BLANKS IS ELEMENT NUMERIC F0D07730
TZE EVAL3 YES F0D07740
ZET SYMB2 NO, IS SYMBOL NAME LONGER THAN 6 CHARACTERF0D07750
STL ERRFE YES F0D07760
LDQ SYMBL LOAD SYMBOL NAME F0D07770
PXD ,0 F0D07780
LGL 6 LOAD FIRST CHARACTER F0D07790
TNZ *+2 IS SYMBOL NAME SHORTER THAN 6 CHARACTERS F0D07800
CAL THEAD YES, APPEND CURRENT HEADING CHARACTER F0D07810
LGL 30 F0D07820
SLW SYMBL SAVE F0D07830
TSX SSYMT,4 *EVALUATE SYMBOL F0D07840
TRA EVAL1+3 F0D07850
REM SYMBOL IS * F0D07860
EVAL1 CLA LOCTR LOAD CURRENT PROGRAM COUNTER F0D07870
ZET BOLMD IS EXPRESSION BOOLEAN F0D07880
PXD ,0 YES, ASSUME IT IS AN OPERATOR F0D07890
REM WITH NO PRECEDENT OPERAND F0D07900
REM REENTRY FOR DEFINED SYMBOL F0D07910
STA ELMEQ DEFINE THIS ELEMENT F0D07920
ZET BOLMD IS EXPRESSION BOOLEAN F0D07930
TRA EVAL2 YES F0D07940
ARS 18 NO, SHIFT UP RELOCATION BITS F0D07950
ANA Q3 DELETE EXTRANEOUS FLAGS F0D07960
SUB Q1 IS ELEMENT ABSOLUTE F0D07970
TMI EVAL5 YES F0D07980
SSM NO, SET ELEMENT COMMON F0D07990
TNZ *+2 IS ELEMENT COMMON F0D08000
CLA Q1 NO, RESET ELEMENT RELOCATABLE F0D08010
STO ELMUF SAVE ELEMENT UNIT FLAG F0D08020
TRA EVAL5+1 F0D08030
REM SYMBOL IS BOOLEAN F0D08040
EVAL2 PAI LOAD RELOCATION BITS F0D08050
LFT 3 IS SYMBOL ABSOLUTE F0D08060
TRA EVLBR **NO F0D08070
ANA ADTMK DELETE EXTRANEOUS FLAGS F0D08080
ZET SCNBC IS ELEMENT COMPLEMENTABLE F0D08090
COM YES, FLATTER IT F0D08100
SLW ELMEQ DEFINE ELEMENT F0D08110
OPSW1 TXI EVAL5+2,,** (RETURN FOR OPERATION PRECEDING ELEMENT) F0D08120
REM ERROR ON BOOLEAN SYMBOL F0D08130
EVLBR SLN EXPRR SET ERROR FLAGS F0D08140
STL ERRFB F0D08150
TRA EVAL5+2 F0D08160
REM ELEMENT IS NUMERIC F0D08170
EVAL3 NZT BOLMD IS ELEMENT BOOLEAN F0D08180
TXL EVAL4,,0 NO, IS ELEMENT UNDER OCTAL QUALIFIER F0D08190
REM (SWITCH SET BY SAK) F0D08200
TSX OCTSV,4 *YES, CONVERT SYMBOL FROM OCTAL F0D08210
ZET SCNBC IS ELEMENT COMPLEMENTABLE F0D08220
COM YES F0D08230
SLW ELMEQ SAVE ELEMENT F0D08240
NZT BOLMD IS ELEMENT BOOLEAN F0D08250
TRA EVAL5 NO, SET RELOCATION UNITS FOR OCTAL INTEGERF0D08260
OPSW2 TXI EVAL5+2,,** (RETURN FOR OPERATION FOLLOWING ELEMENT) F0D08270
REM EVALUATE DECIMAL INTEGER F0D08280
EVAL4 TSX DECSV,4 *CONVERT SYMBOL FROM DECIMAL F0D08290
STO ELMEQ SAVE F0D08300
REM REENTRY FOR ABSOLUTE SYMBOL OR DECIMAL INTEGER F0D08310
EVAL5 CAL ELMEQ SET VALUE OF ELEMENT F0D08320
REM REENTRY FOR COMMON OR RELOCATABLE SYMBOL F0D08330
SLW ELMUN AS COEFFICIENT OF ELEMENT F0D08340
REM REENTRY FOR BOOLEAN SYMBOL OR OCTAL INTEGER F0D08350
LXD OPSW1,4 LOAD TRANSFER FOR OP PRECEDING ELEMENT F0D08360
CAL OPSW2 RESET TRANSFER TO OP PRECEDING F0D08370
STD OPSW1 FOLLOWING ELEMENT F0D08380
ZET BOLMD IS EXPRESSION BOOLEAN F0D08390
TRA 1,4 YES, TAKE BOOLEAN RETURN F0D08400
TRA 2,4 NO F0D08410
REM F0D08420
REM CONVERT UP TO 12 DIGIT SIGNED OCTAL INTEGER TO BINARY F0D08430
OCTCV SXA DECCX,4 SAVE CALLING LINKAGE F0D08440
STZ NERAS CLEAR WORKING CELL F0D08450
TSX C019A,4 *LOOK AT FIRST CHARACTER F0D08460
SUB PLUSS IS IT + F0D08470
TZE OCT01 YES, IGNORE IT F0D08480
SUB PLUSS NO, IS IT - F0D08490
TNZ OCT01+1 NO F0D08500
CAL P4 YES, SET P BIT F0D08510
SLW NERAS F0D08520
REM REENTRY TO DELETE SIGN F0D08530
OCT01 TSX C0190,4 *DELETE SIGN F0D08540
REM REENTRY FOR NO PRECEDING SIGN F0D08550
TSX SSCAN,4 *ASSEMBLE INTEGER F0D08560
TXI OCT02,,0 NULL INTEGER F0D08570
SLT EXPND DID INTEGER END WITH COMMA OR BLANK F0D08580
TRA OCTRR NO F0D08590
TSX OCTSV,4 *YES, CONVERT TO BINARY F0D08600
SLT EXPRR IS INTEGER IN ERROR F0D08610
ORA NERAS NO, APPEND SIGN F0D08620
TRA DECCX F0D08630
REM NULL INTEGER F0D08640
OCT02 SLN FLDND SET END OF VARIABLE FIELD FLAG F0D08650
ORA NERAS APPEND SIGN F0D08660
TRA DECCX F0D08670
REM ERROR ON OCTAL NUMBER F0D08680
OCTRR STL ERRFB SET ERROR FLAG F0D08690
TSX SCEND,4 *SKIP TO END OF FIELD F0D08700
PXD ,0 DELETE INTEGER IN ERROR F0D08710
TRA DECCX F0D08720
REM F0D08730
REM CONVERT FOLLOWING DECIMAL FIELD TO BINARY F0D08740
DECCV SXA DECCX,4 SAVE CALLING LINKAGE F0D08750
STZ NERAS CLEAR INTEGER FIELD F0D08760
STZ XERAS CLEAR EXPONENT (E) FIELD F0D08770
STZ BERAS CLEAR BINARY (B) FIELD F0D08780
STZ DCNFG RESET FLAG FOR DECIMAL POINT F0D08790
STZ DCXFG RESET FLAG FOR DECIMAL EXPONENT F0D08800
STZ DCBFG RESET FLAG FOR BINARY EXPONENT F0D08810
AXT 0,4 RESET DECIMAL PLACE COUNT F0D08820
CAL DECCV+1 LOAD INTEGER FIELD ADDRESS F0D08830
TRA DCV15 $F0D08840
REM REENTRY AFTER DECIMAL POINT TO BEGIN SCAN ON FRACTION F0D08850
DCV01 NZT DCXFG HAS DECIMAL EXPONENT BEGUN F0D08860
ZET DCBFG NO, HAS BINARY EXPONENT BEGUN F0D08870
TRA DCVRR YES F0D08880
STL DCNFG NO, SET FRACTION FLAG F0D08890
CAL DCV05 INITIALIZE TRANSFER ADDRESS F0D08900
STA DCV07+1 TO COUNT DECIMAL PAACES F0D08910
TRA DCV05+2 F0D08920
REM REENTRY AFTER E TO BEGIN SCAN ON DECIMAL EXPONENT F0D08930
DCV02 STL DCXFG SET DECIMAL EXPONENT FLAG F0D08940
CAL DECCV+2 LOAD DECIMAL EXPONENT FIELD ADDRESS F0D08950
TRA DCV03+2 F0D08960
REM REENTRY AFTER B TO BEGIN SCAN ON BINARY EXPONENT F0D08970
DCV03 STL DCBFG SET BINARY EXPONENT FLAG F0D08980
CAL DECCV+3 LOAD BINARY EXPONENT FIELD FLAG F0D08990
STA DCV06 INITIALIZE FIELD CONVERSION ADDRESSES F0D09000
STA DCV06+2 F0D09010
STA DCV07 F0D09020
CAL DCV05+1 INITIALIZE TRANSFER ADDRESS F0D09030
STA DCV07+1 TO OMIT COUNTING DECIMAL PLACES F0D09040
CAL DCV06+2 INITIALIZE INSTRUCTION TO ADD F0D09050
TRA DCV04+3 F0D09060
REM REENTRY AFTER MINUS F0D09070
DCV04 CLS Q0 SET FIELD TO -0 F0D09080
STO* DCV06 F0D09090
SUB * INITIALIZE INSTRUCTION TO SUBTRACT F0D09100
STD DCV06+4 F0D09110
TOV *+1 F0D09120
TRA DCV05+2 F0D09130
REM CONVERT NEXT DIGIT IN FIELD F0D09140
DCV05 TRA *+1 (TRANSFER ADDRESS TO BUMP DECIMAL COUNTER F0D09150
TXI *+1,4,-1 (TRANSFER ADDRESS TO OMIT BUMP) F0D09160
SXA *+2,4 SAVE DECIMAL PLACE COUNT F0D09170
TSX C0190,4 *GET NEXT CHARACTER F0D09180
AXT **,4 RELOAD DECIMAL PLACE COUNT F0D09190
LAS Q10 IS IT DIGIT F0D09200
TRA DCV08 NO F0D09210
TSX MACERR,4 **CHARACTER IS BCD 10 F0D09220
DCV06 CLA ** YES, MULTIPLY PARTIAL FIELD BY 10 F0D09230
ALS 2 F0D09240
ADD ** F0D09250
ALS 1 F0D09260
*** CHRCTR (INITIALIZED TO ADD OR SUBTRACT) F0D09270
TNO *+2 DID AC OVERFLOW F0D09280
TXI *+2,4,1 YES, BUMP DECIMAL COUNTER BACK F0D09290
DCV07 STO ** SAVE PARTIAL FIELD F0D09300
TRA ** TRANSFER TO OMIT/BUMP DECIMAL COUNTER F0D09310
REM DETERMINE TYPE OF FOLLOWING FIELD F0D09320
DCV08 LAS COMMA IS CHARACTER , F0D09330
TRA DCVRR NO, ILLEGAL CHARACTER F0D09340
TRA DCV09+1 YES, END OF NUMERIC FIELD F0D09350
LAS BLANK NO, IS CHARACTER BLANK F0D09360
TRA DCVRR NO, ILLEGAL CHARACTER F0D09370
TRA DCV09 YES, END OF VARIABLE FIELD F0D09380
LAS MINUS NO, IS CHARACTER - F0D09390
TRA DCVRR NO, ILLEGAL CHARACTER F0D09400
TRA DCV04 YES, RESET OPERATION CODE F0D09410
LAS POINT NO, IS CHARACTER . F0D09420
TRA DCVRR NO, ILLEGAL CHARACTER F0D09430
TRA DCV16 $F0D09440
LAS QE NO, IS CHARACTER E F0D09450
TRA DCVRR NO, ILLEGAL CHARACTER F0D09460
TRA DCV17 $F0D09470
LAS QB NO, IS CHARACTER B F0D09480
TRA DCVRR NO, ILLEGAL CHARACTER F0D09490
TRA DCV18 $F0D09500
LAS PLUSS NO, IS CHARACTER + F0D09510
TRA DCVRR NO, ILLEGAL CHARACTER F0D09520
TRA DCV05+2 YES, IGNORE IT F0D09530
TRA DCVRR NO, ILLEGAL CHARACTER F0D09540
REM TEST FOR DECIMAL EXPONENT F0D09550
DCV09 SLN FLDND SET END OF VARIABLE FIELD (BLANK) FLAG F0D09560
CLA NERAS LOAD DIGIT F0D09570
TZE DECCX IS DIGIT ZERO F0D09580
NZT DCXFG NO, DOES DECIMAL EXPONENT EXIST F0D09590
TRA DCV10 NO, TEST FOR BINARY EXPONENT F0D09600
CAL P4 YES, COMPLEMENT NEGATIVE DECIMAL EXPONENT F0D09610
ADD XERAS F0D09620
ALS 18 COMPUTE EXPLICIT+IMPLICIT EXPONENT F0D09630
STD *+2 F0D09640
CLA NERAS RELOAD DIGIT F0D09650
TXI DCV11,4,** F0D09660
REM TEST FOR BINARY EXPONENT F0D09670
DCV10 NZT DCBFG DOES BINARY EXPONENT EXIST F0D09680
ZET DCNFG NO, DOES DECIMAL EXPONENT EXIST F0D09690
TRA DCV11 YES F0D09700
TRA DECCX NO, NUMBER IS BINARY INTEGER F0D09710
REM CONVERT TO FLOATING POINT NUMBER F0D09720
DCV11 STA FPCV1 SAVE LOW ORDER 15 BITS F0D09730
ARS 15 DELETE LOW ORDER 15 BITS F0D09740
ORA FPCV2 COMBINE WITH EXPONENT 2**52(8) F0D09750
FAD FPCV2 NORMALIZE LEADING 20 BITS EXP 2**43(8) F0D09760
TPL *+3 COMBINE NORMALIZED LEADING 20 BITS F0D09770
FSB FPCV1 WITH FOLLOWING I5 BITS UNNORMALIZED F0D09780
TRA *+2 EXPONENT 2**52(8)/2**15(8) = 2**33(8) F0D09790
FAD FPCV1 INTO DOUBLE PRECISION NUMBER EXP 2**35(10)F0D09800
STQ ERASE SAVE LEAST SIGNIFICANT PART F0D09810
TXL DCV13,4,0 IS DECIMAL EXPONENT ZERO F0D09820
TXH DCV12,4,38 NO, IS DECIMAL EXPONENT NEGATIVE F0D09830
TXI *+1,4,-1 NO, COMPLEMENT IT F0D09840
SXD *+2,4 F0D09850
AXT -1,4 F0D09860
TIX *+2,4,** F0D09870
TSX MACERR,4 **INDEX FAILURE F0D09880
XCA BRING MOST SIGNIFICANT PART INTO MQ F0D09890
FMP DECTAB,4 MULTIPLY BY POWER OF TEN (FACTOR IS SUCH F0D09900
REM THAT FPCV3 AND FPCV4 WILL CORRECT EXP) F0D09910
STO NERAS SAVE MOST SIGNIFICANT PART F0D09920
STQ XERAS SAVE LEAST SIGNIFICANT PART F0D09930
LDQ ERASE LOAD OLD LEAST SIGNIFICANT PART F0D09940
FMP DECTAB,4 MULTIPLY BY POWER OF TEN F0D09950
FAD XERAS COMBINE WITH DOUBLE PRECISION RESULTS F0D09960
FAD NERAS CONVERTED FROM OLD MOST SIGNIFICANT PART F0D09970
ACL FPCV4 BUMP EXPONENT TO CORRECT FOR TABLE FACTOR F0D09980
PBT DID AC OVERFLOW F0D09990
TRA DCV13 NO, PROCESS BINARY EXPONENT F0D10000
TRA DCVRR+1 YES F0D10010
DCV12 TXL DCVRR+1,4,-49 IS EXPONENT ILLEGAL F0D10020
FDP DECTAB,4 NO, DIVIDE BY POWER OF TEN F0D10030
STQ NERAS SAVE MOST SIGNIFICANT PART F0D10040
FAD ERASE COMBINE REMAINDER WITH LEAST SIGNIF PART F0D10050
FDP DECTAB,4 DIVIDE BY POWER OF TEN F0D10060
DCT DID DIVIDE FAIL F0D10070
TSX MACERR,4 **YES F0D10080
XCA RECALL MOST SIGNIFICANT PART F0D10090
FAD NERAS COMBINE WITH PRIOR MOST SIGNIFICANT PART F0D10100
ACL FPCV3 BUMP EXPONENT TO CORRECT FOR TABLE FACTOR F0D10110
PBT DID AC OVERFLOW F0D10120
TRA DCVRR+1 NO F0D10130
DCV13 NZT DCBFG DOES BINARY EXPONENT EXIST F0D10140
TRA DECCX NO, NUMBER IS FLOATING POINT F0D10150
STO NERAS YES, SAVE FLOATING POINT NUMBER F0D10160
ALS 2 DELETE P, Q, BITS F0D10170
SSM F0D10180
ARS 29 RIGHT ADJUST EXPONENT F0D10190
ADD Q128 COMPUTE ABSOLUTE EXPONENT F0D10200
ADD BERAS COMBINE WITH BINARY EXPONENT F0D10210
TPL *+2 IS EXPONENT TOO SMALL F0D10220
TNZ DCVRR+1 YES F0D10230
STA DCV14 NO, USE EXPONENT AS SHIFT COUNT F0D10240
CLA NERAS RELOAD FLOATING POINT NUMBER F0D10250
LLS 8 DELETE AC, MQ EXPONENTS F0D10260
ALS 2 DELETE P, Q BITS F0D10270
ARS 10 REPOSITION 27 BIT FRACTION F0D10280
LLS 8 APPEND 27 LOW ORDER BITS F0D10290
DCV14 LRS ** SHIFT BINARY INTEGER TO PROPER POWER OF 2 F0D10300
TRA DECCX F0D10310
DCVRR TSX SCEND,4 *SKIP TO END OF FIELD F0D10320
PXD ,0 DELETE INTEGER IN ERROR F0D10330
STL ERRFE SET ERROR FLAG F0D10340
DECCX AXT **,4 RELOAD CALLING LINKAGE F0D10350
TRA 1,4 F0D10360
FPCV1 OCT 233000000000 CONSTANT TO NORMALIZE LOW ORDER 15 BITS F0D10370
FPCV2 OCT 252000000000 CONSTANT TO NORMALIZE HIGH ORDER 20 BITS F0D10380
FPCV3 OCT 335000000000 CONSTANT TO CORRECT EXPONENT ON DIVIDE F0D10390
FPCV4 OCT 043000000000 CONSTANT TO CORRECT EXPONENT ON MULTIPLY F0D10400
REM F0D10410
REM CONVERT ONE FIELD OF VFD TO BINARY F0D10420
VFDCV SXA VFDCX,4 SAVE CALLING LINKAGE F0D10430
STZ VFDFL RESET LOW ORDER HALF OF FIELD F0D10440
STZ VFDFL+1 RESET HIGH ORDER HALF OF FIELD F0D10450
STZ VFDHF RESET HOLLERITH FIELD FLAG F0D10460
STZ VFDOF RESET OCTAL FIELD FLAG F0D10470
STZ VFDFB RESET FIELD WIDTH F0D10480
TSX C0190,4 *GET FIRST CHARACTER OF NEXT FIELD F0D10490
LAS COMMA IS IT COMMA F0D10500
TRA VCV07 NO, ILLEGAL CHARACTER F0D10510
TRA VCV06+1 YES, END OF FIELD F0D10520
LAS BLANK IS IT BLANK F0D10530
TRA VCV07 NO, ILLEGAL CHARACTER F0D10540
TRA VCV06 YES, END OF VARIABLE FIELD F0D10550
LAS QO NO, IS IT O F0D10560
TRA VCV07 NO, ILLEGAL CHARACTER F0D10570
TRA VCV01 YES OCTAL FIELD FOLLOWS F0D10580
LAS QH NO, IS IT H F0D10590
TRA VCV07 NO, ILLEGAL CHARACTER F0D10600
TRA VCV01+2 YES HOLLERITH FIELD FOLLOWS F0D10610
TRA VCV02+1 NO, FIELD MUST BE SYMBOLIC F0D10620
REM FIELD IS OCTAL F0D10630
VCV01 STL VFDOF SET OCTAL FIELD FLAG F0D10640
TRA VCV02 F0D10650
REM FIELD IS HOLLERITH F0D10660
STL VFDHF SET HOLLERITH FIELD FLAG F0D10670
REM REENTRY TO COLLECT SECOND DIGIT OF FIELD WIDTH F0D10680
VCV02 TSX C0190,4 *GET NEXT CHARACTER F0D10690
REM REENTRY FOR SYMBOLIC FIELD F0D10700
LAS SLASH IS CHARACTER / F0D10710
TRA VCV07 NO, ILLEGAL CHARACTER F0D10720
TRA VCV03 YES, FIELD FOLLOWS F0D10730
LAS Q10 NO, IS CHARACTER NUMERIC F0D10740
TRA VCV07 NO, ILLEGAL CHARACTER F0D10750
TSX MACERR,4 **CHARACTER IS BCD 10 F0D10760
CLA VFDFB YES, MULTIPLY PARTIAL FIELD WIDTH BY 10 F0D10770
ALS 2 F0D10780
ADD VFDFB F0D10790
ALS 1 F0D10800
ADD CHRCTR ADD NEXT DIGIT F0D10810
STO VFDFB SAVE NEW PARTIAL FIELD WIDTH F0D10820
TRA VCV02 F0D10830
REM REENTRY AFTER / FIELD FOLLOWS F0D10840
VCV03 LXA VFDFB,4 LOAD FIELD WIDTH F0D10850
TXL *+4,4,63 IS FIELD TOO LONG F0D10860
STL ERRFE YES, SET ERROR FLAG F0D10870
AXT 63,4 RESET LENGTH OF FIELD F0D10880
SXA VFDFB,4 F0D10890
ZET VFDHF IS FIELD HOLLERITH F0D10900
TRA VCV05 YES F0D10910
NZT VFDOF NO, IS FIELD OCTAL F0D10920
TRA *+3 NO, FIELD IS SYMBOLIC F0D10930
TXH VCV04,4,36 YES, IS OCTAL FIELD GREATER THAN ONE WORD F0D10940
STL BOLMD NO, SET BOOLEAN SCAN FLAG F0D10950
REM FIELD IS SYMBOLIC OR BOOLEAN NOT LONGER THAN ONE WORD F0D10960
TSX SCANF,4 *EVALUATE SYMBOLIC OR BOOLEAN EXPRESSION F0D10970
TXI VCV06,,0 NULL FIELD F0D10980
SLT EXPRR WAS FIELD IN ERROR F0D10990
TRA *+2 NO F0D11000
TRA VCV07+2 YES F0D11010
SLW VFDFL SAVE LOW ORDER PORTION F0D11020
TRA VCV06+1 F0D11030
REM FIELD IS OCTAL F0D11040
VCV04 TSX C0190,4 *GET NEXT CHARACTER F0D11050
LAS COMMA IS IT COMMA F0D11060
TRA VCV07+1 NO, ILLEGAL CHARACTER F0D11070
TRA VCV06+1 YES, END OF FIELD F0D11080
LAS BLANK IS IT BLANK F0D11090
TRA VCV07+1 NO, ILLEGAL CHARACTER F0D11100
TRA VCV06 YES, END OF VARIABLE FIELD F0D11110
LAS Q8 IS IT AN OCTAL DIGIT F0D11120
NOP NO F0D11130
TRA VCV07+1 ILLEGAL CHARACTER F0D11140
CAL VFDFL+1 LOAD HIGH ORDER PORTION OF WORD F0D11150
LDQ VFDFL LOAD LOW ORDER PORTION OF WORD F0D11160
LGL 3 BUMP WORD LEFT ONE OCTAL DIGIT F0D11170
SLW VFDFL+1 SAVE HIGH ORDER PORTION OF WORD F0D11180
XCL F0D11190
ORA CHRCTR APPEND DIGIT TO LOW ORDER PORTION OF WORD F0D11200
SLW VFDFL SAVE LOW ORDER PORTION OF WORD F0D11210
TRA VCV04 F0D11220
REM FIELD IS HOLLERITH F0D11230
VCV05 CAL BLANKS BLANK OUT HIGH AND LOW ORDER PORTION F0D11240
SLW VFDFL+1 WORD F0D11250
SLW VFDFL F0D11260
TSX C0190,4 *GET NEXT CHARACTER F0D11270
LAS COMMA IS IT , F0D11280
TRA *+2 NO F0D11290
TRA VCV06+1 YES, END OF FIELD F0D11300
LAS BLANK NO, IS IT BLANK F0D11310
TRA *+2 NO F0D11320
TRA VCV06 YES, END OF VARIABLE FIELD F0D11330
LDQ VFDFL NO, LOAD LOW ORDER PORTION OF WORD F0D11340
CAL VFDFL+1 LOAD HIGH ORDER PORTION OF WORD F0D11350
LGL 6 SHIFT LEFT ONE CHARACTER F0D11360
SLW VFDFL+1 SAVE HIGH ORDER PORTION OF WORD F0D11370
XCL F0D11380
ORA CHRCTR APPEND NEXT CHARACTER F0D11390
SLW VFDFL SAVE LOW ORDER PORTION OF WORD F0D11400
TRA VCV05+3 F0D11410
REM REENTRY AFTER BLANK, END OF VARIABLE FIELD F0D11420
VCV06 SLN FLDND SET END OF VARIABLE FIELD FLAG F0D11430
REM REENTRY AFTER COMMA, END OF FIELD F0D11440
LXA VFDFB,4 LOAD WIDTH OF FIELD F0D11450
CAL VFDFL+1 LOAD HIGH ORDER PORTION OF FIELD F0D11460
LDQ VFDFL LOAD LOW ORDER PORTION OF FIELD F0D11470
LGL 72,4 LEFT ADJUST FIELD CONTENTS F0D11480
SLW VFDFL+1 SAVE HIGH ORDER PORTION OF FIELD F0D11490
STQ VFDFL SAVE LOW ORDER PORTION OF FIELD F0D11500
TRA VFDCX F0D11510
REM ERROR ON FIELD DESIGNATION - SKIP OVER FIELD F0D11520
VCV07 STZ VFDFB RESET FIELD WIDTH F0D11530
TSX SCEND,4 *SKIP TO END OF FIELD F0D11540
REM FIELD IS IN ERROR F0D11550
STL ERRFE SET ERROR FLAG F0D11560
VFDCX AXT **,4 RELOAD CLALING LINKAGE F0D11570
TRA 1,4 F0D11580
REM F0D11590
REM CONVERT 12 DIGIT OCTAL FIELD TO BINARY F0D11600
OCTSV CAL SYMBL COMBINE LOW AND HIGH ORDER PORTIONS F0D11610
ORA SYMB2 OF 12 DIGIT OCTAL FIELD F0D11620
ANA YYMSK IS ELEMENT OCTAL F0D11630
TNZ OCTSR **NO F0D11640
LDQ SYMBL LOAD LOW ORDER DIGITS F0D11650
CAQ OCTALT,,6 CONVERT FROM OCTAL F0D11660
ARS 18 REPOSITION IN LOW ORDER F0D11670
SLW ELMEQ SAVE F0D11680
NZT SYMB2 DO HIGH ORDER DIGITS EXIST F0D11690
TRA OCTSX NO F0D11700
LDQ SYMB2 LOAD HIGH ORDER DIGITS F0D11710
PXD ,0 F0D11720
CAQ OCTALT,,6 CONVERT FROM OCTAL F0D11730
ANA PRDMK DELETE LOW ORDER GARBAGE F0D11740
ORA ELMEQ COMBINE WITH LOW ORDER DIGITS F0D11750
TRA OCTSX F0D11760
OCTSR SLN EXPRR SET ERROR FLAGS F0D11770
STL ERRFB F0D11780
PXD ,0 DELETE VALUE OF OCTAL INTEGER IN ERROR F0D11790
OCTSX TRA 1,4 F0D11800
PRDMK SVN ,,-1 MASK FOR PREFIX,DECREMENT FIELD BITS 0-17 F0D11810
YYMSK BCI 1,YYYYYY MASK FOR NON-OCTAL CHARACTERS F0D11820
REM F0D11830
REM CONVERT 12 DIGIT DECIMAL FIELD TO BINARY F0D11840
DECSV LDQ SYMBL LOAD LOW ORDER DIGITS F0D11850
PXD ,0 F0D11860
CAQ INTTAB,,6 CONVERT FROM DECIMAL F0D11870
ARS 16 REPOSITION IN LOW ORDER F0D11880
STO ELMEQ SAVE F0D11890
NZT SYMB2 DO HIGH ORDER DIGITS EXIST F0D11900
TRA DECSX NO F0D11910
LDQ SYMB2 YES, LOAD LOW ORDER DIGITS F0D11920
PXD ,0 F0D11930
CAQ INTTAB,,6 CONVERT FROM DECIMAL F0D11940
ARS 16 REPOSITION IN LOW ORDER F0D11950
XCA F0D11960
VLM MILLN,,20 MULTIPLY BY 10**6 F0D11970
TOV *+1 TURN OFF TRIGGER F0D11980
LLS 8 SCALE F0D11990
ADD ELMEQ COMBINE WITH LOW ORDER DIGITS F0D12000
TNO DECSX IS NUMBER LARGER THAN 2**35 F0D12010
SLN EXPRR YES, SET ERROR FLAGS F0D12020
STL ERRFE F0D12030
PXD ,0 DELETE NUMBER F0D12040
DECSX TRA 1,4 F0D12050
MILLN DEC 004096000000 F0D12060
REM F0D12070
REM CONVERT BINARY NUMBER RIGHT ADJUSTED IN AC TO BCD F0D12080
BCDCV LDQ Q0 PREPARE TO CONVERT NUMBER TO DECIMAL F0D12090
TRA BCDV1 HUNDRED THOUSAND PATCH (25)F0D12100
VDP Q10000,,4 TENS OF THOUSANDS F0D12110
RQL 6 F0D12120
LRS 4 F0D12130
VDP Q1000,,4 THOUSANDS F0D12140
RQL 6 F0D12150
LRS 4 F0D12160
VDP Q100,,4 HUNDREDS F0D12170
RQL 6 F0D12180
LRS 4 F0D12190
VDP Q10,,4 TENS F0D12200
RQL 6 F0D12210
STQ NERAS COMBINE WITH F0D12220
ORA NERAS ONES F0D12230
DCT TURN OFF TRIGGER F0D12240
NOP F0D12250
TRA 1,4 F0D12260
REM F0D12270
REM ASSEMBLE 12 CHARACTER ALPHAMERIC SYMBOL F0D12280
SSCAN STZ SYMB2 CLEAR HIGH ORDER SYMBOL F0D12290
STZ SYMBL CLEAR LOW ORDER SYMBOL F0D12300
CAL CHRCTR LOAD FIRST CHARACTER NEXT FIELD F0D12310
ERA BLANK IS IT BLANK F0D12320
TZE 1,4 YES, NULL EXPRESSION F0D12330
REM REENTRY TO CONTINUE SCAN OF FIELD F0D12340
SSCET SXA SSCNX,4 SAVE CALLING LINKAGE F0D12350
TOV *+1 TURN OFF TRIGGER F0D12360
TSX C0190,4 *GET NEXT CHARACTER F0D12370
PAX ,4 FOR TESTING F0D12380
TXL SSCN1,4,9 CHARACTER IS NUMERIC F0D12390
TXL SSCN0,4,12 CHARACTER IS = OR ' F0D12400
TXL SSCRR,4,15 CHARACTER IS ILLEGAL F0D12410
TXL SSCNX,4,16 CHARACTER IS + F0D12420
TXL SSCN1,4,25 CHARACTER IS ALPHABETIC F0D12430
TXL SSCRR,4,26 CHARACTER IS +0 F0D12440
TXL SSCN1,4,27 CHARACTER IS . F0D12450
TXL SSCN0,4,28 CHARACTER IS ) F0D12460
TXL SSCRR,4,31 CHARACTER IS ILLEGAL F0D12470
TXL SSCNX,4,32 CHARACTER IS - F0D12480
TXL SSCN1,4,41 CHARACTER IS ALPHABETIC F0D12490
TXL SSCRR,4,42 CHARACTER IS -0 F0D12500
TXL SSCNX,4,44 CHARACTER IS $ OR * F0D12510
TXL SSCRR,4,47 CHARACTER IS ILLEGAL F0D12520
TXL SSCN2,4,48 CHARACTER IS BLANK F0D12530
TXL SSCNX,4,49 CHARACTER IS / F0D12540
TXL SSCN1,4,57 CHARACTER IS ALPHABETIC F0D12550
TXL SSCRR,4,58 CHARACTER IS RM F0D12560
TXL SSCN2+1,4,59 CHARACTER IS , F0D12570
TXH SSCRR,4,60 CHARACTER IS ILLEGAL F0D12580
REM CHARACTER IS ( ) ' = F0D12590
SSCN0 TXL SSCNX,4,** IS THIS SCAN DURING MACRO DEFINITION F0D12600
TXL SSCRR,4,12 NO, IS CHARACTER = OR ' NOT LEGAL IN FAP F0D12610
REM CHARACTER IS VALID F0D12620
SSCN1 STZ SCNFC RESET FLAG FOR FIRST CHARACTER IN ELEMENT F0D12630
CAL SYMB2 LOAD HIGH ORDER PORTION F0D12640
LDQ SYMBL LOAD LOW ORDER PORTION F0D12650
LGL 6 SHIFT UP NEXT CHARACTER F0D12660
TOV SSCRR IS SYMBOL (OR INTEGER) TOO LONG F0D12670
SLW SYMB2 NO, SAVE HIGH ORDER PORTION F0D12680
XCL F0D12690
ADD CHRCTR APPEND NEXT CHARACTER TO LOW ORDER PART F0D12700
SLW SYMBL SAVE LOW ORDER PORTION F0D12710
TRA SSCET+2 F0D12720
REM CHARACTER IS ILLEGAL F0D12730
SSCRR STZ SYMB2 CLEAR SYMBOL F0D12740
STZ SYMBL F0D12750
SLN EXPRR SET ERROR FLAGS F0D12760
STL ERRFE F0D12770
TSX SCEND,4 *SKIP TO END OF INTEGER F0D12780
TRA FLAGB SET BOOLEAN ERROR FLAG $F0D12790
REM END OF FIELD F0D12800
SSCN2 SLN FLDND SET END OF VARIABLE FIELD (BLANK) FLAG F0D12810
SLN EXPND SET END OF EXPRESSION (, OR BLANK) FLAG F0D12820
SSCNX AXT **,4 RELOAD CALLING LINKAGE F0D12830
TRA 2,4 F0D12840
REM F0D12850
REM SKIP TO END OF EXPRESSION F0D12860
SCEND SXA SCENX,4 SAVE CALLING LINKAGE F0D12870
TSX C0190,4 *GET NEXT CHARACTER F0D12880
PAX ,4 FOR TESTING F0D12890
TXL SCEND+1,4,47 F0D12900
TXL *+4,4,48 CHARACTER IS BLANK F0D12910
TXL SCEND+1,4,58 F0D12920
TXL SCENX,4,59 CHARACTER IS COMMA F0D12930
TRA SCEND+1 F0D12940
SLN FLDND SET END OF VARIABLE FIELD (BLANK) FLAG F0D12950
SCENX AXT **,4 RELOAD CALLING LINKAGE F0D12960
TRA 1,4 F0D12970
REM F0D12980
REM LEFT ADJUST SYMBOL NAME F0D12990
LADJS NZT SYMB2 DOES LENGTH OF SYMBOL EXCEDE 6 CHARACTERS F0D13000
TRA *+3 NO F0D13010
SLN EXPRR YES, SET ERROR FLAGS F0D13020
STL ERRFE F0D13030
CAL SYMBL LOAD LOW ORDER SYMBOL NAME F0D13040
TZE *+5 DOES SYMBOL NAME EXIST F0D13050
LDQ BLANKS YES, LOAD FOLLOWING BLANKS F0D13060
LGR 6 SHIFT OUT NEXT CHARACTER F0D13070
TNZ *-1 IS SYMBOL LEFT ADJUSTED F0D13080
XCL YES, RECALL LEFT ADJUSTED SYMBOL NAME F0D13090
TRA 1,4 F0D13100
REM F0D13110
REM GOOD OLD C0190 - GET NEXT CHARACTER F0D13120
C0190 LDQ RESIDU RELOAD REMAINDER OF SOURCE CARD WORD F0D13130
C019Q BSS 0 ENTRY FOR RESIDUE IN MQ (24)F0D13135
TIX *+3,1,1 IS CHARACTER COUNT EXHAUSTED F0D13140
TSX C0200,1 *YES, GET NEXT SOURCE CARD WORD F0D13150
AXT 6,1 RESET CHARACTER COUNT F0D13160
PXD ,0 F0D13170
LGL 6 SHIFT IN NEXT CHARACTER F0D13180
STQ RESIDU SAVE REMAINDER OF SOURCE CARD F0D13190
SLW CHRCTR SAVE IT F0D13200
TRA 1,4 F0D13210
REM F0D13220
REM LOOK AT NEXT CHARACTER F0D13230
C019A LDQ RESIDU RELOAD REMAINDER OF SOURCE CARD WORD F0D13240
TXH *+4,1,1 IS CHARACTER COUNT EXHAUSTED F0D13250
TSX C0200,1 *YES, GET NEXT SOURCE CARD WORD F0D13260
STQ RESIDU SAVE REMAINDER OF SOURCE CARD F0D13270
AXT 7,1 RESET CHARACTER COUNT F0D13280
PXD ,0 F0D13290
LGL 6 SHIFT IN NEXT CHARACTER F0D13300
TRA 1,4 F0D13310
REM F0D13320
REM GET NEXT WORD F0D13330
C0200 TXI *+1,2,-1 BUMP CARD WORD COUNT F0D13340
LDQ BCDBF,2 LOAD NEXT SOURCE CARD WORD F0D13350
TXH *+2,2,-12 IS THIS CARD IMAGE WORD 13 F0D13360
LDQ BLANKS YES, SET STOP F0D13370
TRA 1,1 F0D13380
REM F0D13390
REM BUMP STORAGE COUNTERS F0D13400
BPCTR STO BERAS SAVE LENGTH OF BUMP F0D13410
ADD CDCTR BUMP CARD STORAGE COUNTER F0D13420
STA CDCTR F0D13430
CLA BERAS RECALL LENGTH OF BUMP F0D13440
ADD LOCTR BUMP PROGRAM COUNTER F0D13450
STA LOCTR F0D13460
TRA 1,4 F0D13470
REM F0D13480
REM ERROR ROUTINES F0D13490
SRCERR STI DIGM2+1 SET TABLE NAME F0D13500
TSX WRITT,4 *WRITE DIAGNOSTIC HEADING F0D13510
PZE DIGM1,,5 F0D13520
CAL DIGM1 SET DOUBLE SPACE F0D13530
SLW BCDBF-1 F0D13540
TSX WRITT,4 *WRITE OFFENDING CARD F0D13550
PZE BCDBF-1,,15 F0D13560
TSX WRITT,4 *WRITE TABLE NAME F0D13570
MZE DIGM2,,5 F0D13580
TSX WRFBK,4 *WRITE LAST PARTIAL LISTING BUFFER F0D13590
TSX (SECL),4 **TERMINATE ASSEMBLY F0D13600
PZE PATCH SPACE FOR POSSIBLE PARAMETER F0D13610
REM F0D13620
TAPERR STZ ORDRF SET TAPE ERROR FLAG $F0D13630
TRA MACERR+2 (RESET BY CLOSEOUT ROUTINES) $F0D13640
MACERR TXI *+1,,0 PARAMETER TO IDENTIFY MACHINE ERROR $F0D13650
STL ORDRF SET MACHINE ERROR FLAG $F0D13660
ZET ORDRF WAS THIS TAPE ERROR $F0D13670
TRA (DIAG) **NO,THIS WAS CORE ERROR $F0D13680
TSX (MECL),4 **YES,ERROR MESSAGE HAS BEEN PRINTED $F0D13690
STP00 CAL* (FGBX) $F0D13700
ANA Q4 IS THIS AN IBSFAP JOB $F0D13710
TZE STP01 NO, THIS IS FORTRAN MODE (24)F0D13720
STL COMCD YES, SET FLAG TO UNBLOCK (24)F0D13730
SSM CONTROL CARDS (24)F0D13740
TRA 1,4 (24)F0D13750
BCDV1 LRS 4 (25)F0D13760
VDP TEN5TH,,4 HUNDREDS OF THOUSANDS (25)F0D13770
RQL 6 (25)F0D13780
LRS 4 (25)F0D13790
TRA BCDCV+2 BACK TO BCDCV ROUTINE (25)F0D13800
DUP 1,6 PATCH SPACE (25)F0D13810
PZE (25)F0D13820
REM F0D13850
DIGM1 BCI 5,0 FAP DIAGNOSTIC RESULT F0D13860
DIGM2 BCI 5,0 TABLE OVERFLOWED F0D13870
HEDNM BCI 1,HEADNG F0D13880
VECNM BCI 1,VECTOR F0D13890
LITNM BCI 1,LITRAL F0D13900
SYMNM BCI 1,SYMBOL F0D13910
OPTNM BCI 1,OPRTN F0D13920
REM F0D13930
*CALL MONITOR SCAN AFTER UPDATE WITH ASSEMBLY DELETED OR END OF PASS 2.$F0D13940
LOADER TSX (LOAD),4,1 *CALL MONITOR SCAN $F0D13950
BCI 1,9F0600 REC. 7 PARAMETER . MONITOR SCAN $F0D13960
REM F0D13970
REM SPACE PAGE F0D13980
SPACP SXA *+5,1 F0D13990
AXT 7,1 F0D14000
TSX (PRNT),4 *PRINT 7 DOUBLE SPACED BLANK LINES F0D14010
PZE SPACE,,1 FOR THE NEARSIGHTED F0D14020
TIX *-2,1,1 F0D14030
AXT **,1 F0D14040
CLA ALONE LIGHT UP CONSOLE F0D14050
ALS 2 F0D14060
ORA ALONE F0D14070
LDQ ALONE F0D14080
HPR -1,7 PAUSE F0D14090
SPACS NOP SHOULD JOB BE TERMINATED F0D14100
TRA 1,2 NO F0D14110
TSX (PRNT),4 *YES, TELL THE WORLD F0D14120
PZE *+2,,6 F0D14130
TRA TAPERR **TERMINATE ASSEMBLY F0D14140
BCI 6,0 ASSEMBLY TERMINATED BY OPERATIONS. F0D14150
REM F0D14160
REM F0D14170
REM CONSTANTS F0D14180
Q0 PZE 0 F0D14190
Q1 PZE 1 9 BIT 0 ZONE F0D14200
Q2 PZE 2 8 BIT 11 ZONE F0D14210
Q4 PZE 4 7 BIT 12 ZONE F0D14220
ZONER SYN * F0D14230
Q8 PZE 8 6 BIT NO ZONE F0D14240
Q16 PZE 16 5 BIT F0D14250
Q32 PZE 32 4 BIT F0D14260
Q64 PZE 64 3 BIT F0D14270
Q128 PZE 128 2 BIT F0D14280
Q256 PZE 256 1 BIT F0D14290
DIGIT PZE 512 0 BIT F0D14300
Q3 PZE 3 F0D14310
DASTR BCI 1,**0000 SPECIAL OP CODE COMPARE WORD (24)F0D14320
Q6 PZE 6 F0D14330
Q7 PZE 7 MASK FOR OCTAL CHARACTER F0D14340
Q10 PZE 10 F0D14350
Q15 PZE 15 F0D14360
INP06 NUMBER - ADDEND OF NEXT CARD (25)F0D14370
Q36 PZE 36 F0D14380
Q62 PZE 62 F0D14390
Q63 PZE 63 MASK FOR BCD CHARACTER F0D14400
Q100 PZE 100 F0D14410
Q127 OCT 1777 MASK FOR LOW ORDER TEN BITS $F0D14420
Q1000 PZE 1000 F0D14430
Q4095 PZE 4095 MASK FOR TWO BCD CHARACTERS F0D14440
Q7680 PZE 7680 F0D14450
Q8192 PZE 8192 F0D14460
Q10000 PZE 10000 F0D14470
Q16384 PZE 16384 F0D14480
ADDMK PZE -1 MASK FOR ADDRESS FIELD BITS 21 - 35 F0D14490
T1 PZE ,1 F0D14500
T2 PZE ,2 F0D14510
T3 PZE ,3 F0D14520
T4 PZE ,4 F0D14530
NUM03 PZE -1,-1,3 MASK FOR LOW ORDER 20 BITS (25)F0D14540
ADTMK PZE -1,-1 MASK FOR ADDRESS,TAG FIELD BITS 18 - 35 F0D14550
D1 PZE ,,1 F0D14560
D2 PZE ,,2 FLAG FOR EXPLICIT ZERO IN MACRO LOC FIELD F0D14570
REM MASK FOR FLAG REQUIRING DECREMENT FIELD F0D14580
DELTF PZE FLAG FOR SYMBOLIC REF TABLE ENTRIES $F0D14590
D4 PZE ,,4 MASK FOR FLAG REQUIRING TAG FIELD F0D14600
D5 PZE ,,5 RELOCATION BITS FOR NAME IN TRANSFER VECTRF0D14610
D8 PZE ,,8 FLAG FOR DUPLICATELY-DEFINED SYMBOLS F0D14620
REM MASK FOR FLAG REQUIRING ADDRESS FIELD F0D14630
INP07 ADDEND FOR NUMBERING (25)F0D14640
D48 PZE ,,48 INSTRUCTION INDIRECT ADDRESS BITS F0D14650
IMASK PZE ,4,48 MASK FOR FLAGS PERMITTING INDIRECT ADDRS F0D14660
D63 PZE ,,63 MASK FOR THIRD CHARACTER IN WORD F0D14670
D320 PZE ,,320 COULUMN BINARY BITS F0D14680
D4032 PZE ,,4032 MACRO ARGUMENT FLAG F0D14690
D32512 PZE ,,32512 MASK FOR 8-BIT COUNT FIELD F0D14700
D32767 PZE ,,-1 F0D14710
P1 PON F0D14720
P4 FOR F0D14730
BLNK3 BCI 1, 000 BLANK FOR OP CODE (24)F0D14740
P7 SVN F0D14750
ALONE SVN -1,-1,-1 FULL WORD MASK F0D14760
OPMSK OCT 777700217777 MASK FOR VALID MACHINE OPERATION BITS F0D14770
P1MSK OCT 777700000000 MASK TO DELETE CC 81 - 84 F0D14780
P2MSK BCI 1,00 MASK TO BLANK OUT CC 81 - 84 F0D14790
QE BCI 1,00000E F0D14800
POINT BCI 1,00000. F0D14810
QO BCI 1,00000O F0D14820
SPACE BCI 1,0 PROGRAM CONTROL CHARACTER F0D14830
4FLAG BCI 1,4 MODE ERROR FLAG F0D14840
9FLAG BCI 1,9 MODE ERROR FLAG F0D14850
EFLAG BCI 1, E LISTING FLAG FOR ERROR F0D14860
MFLAG BCI 1, M F0D14870
RCOMA BCI 1,,00000 F0D14880
REM F0D14890
REM MODE SETTING CHARACTERS FOR TAPENO PSEUDOOPERATION F0D14900
TAPCH BCI 1,00000 (1) F0D14910
QL BCI 1,00000L (2) F0D14920
QH BCI 1,00000H (3) F0D14930
QD BCI 1,00000D (4) F0D14940
QB BCI 1,00000B (5) F0D14950
REM F0D14960
REM MACRO PROCESSOR PUNCTUATION TABLE F0D14970
BKTBM SYN * F0D14980
LPARN BCI 1,00000( F0D14990
COMMA BCI 1,00000, F0D15000
SLASH BCI 1,00000/ F0D15010
BLANK BCI 1,00000 F0D15020
ASTRK BCI 1,00000* F0D15030
DOLAR BCI 1,00000$ F0D15040
MINUS BCI 1,00000- F0D15050
BCI 1,00000) F0D15060
PLUSS BCI 1,00000+ F0D15070
PRIME BCI 1,00000' F0D15080
EQUAL BCI 1,00000= F0D15090
BKTBL PZE ,,BKTBL-BKTBM MACRO PUNCTUATION TABLE F0D15100
REM F0D15110
REM CONVERSION TABLES F0D15120
REM F0D15130
REM TO CONVERT DECIMAL TO BINARY INTEGER F0D15140
INTTAB PZE INTTAB+10 F0D15150
PZE INTTAB+10,,25000 F0D15160
PON INTTAB+10,,50000 F0D15170
PTW INTTAB+10,,75000 F0D15180
PTH INTTAB+10,,100000 F0D15190
PTH INTTAB+10,,125000 F0D15200
FOR INTTAB+10,,150000 F0D15210
FVE INTTAB+10,,175000 F0D15220
SIX INTTAB+10,,200000 F0D15230
SIX INTTAB+10,,225000 F0D15240
INTTAB+20 F0D15250
INTTAB+20,,2500 F0D15260
INTTAB+20,,5000 F0D15270
INTTAB+20,,7500 F0D15280
INTTAB+20,,10000 F0D15290
INTTAB+20,,12500 F0D15300
INTTAB+20,,15000 F0D15310
INTTAB+20,,17500 F0D15320
INTTAB+20,,20000 F0D15330
INTTAB+20,,22500 F0D15340
INTTAB+30 F0D15350
INTTAB+30,,250 F0D15360
INTTAB+30,,500 F0D15370
INTTAB+30,,750 F0D15380
INTTAB+30,,1000 F0D15390
INTTAB+30,,1250 F0D15400
INTTAB+30,,1500 F0D15410
INTTAB+30,,1750 F0D15420
INTTAB+30,,2000 F0D15430
INTTAB+30,,2250 F0D15440
INTTAB+40 F0D15450
INTTAB+40,,25 F0D15460
INTTAB+40,,50 F0D15470
INTTAB+40,,75 F0D15480
INTTAB+40,,100 F0D15490
INTTAB+40,,125 F0D15500
INTTAB+40,,150 F0D15510
INTTAB+40,,175 F0D15520
INTTAB+40,,200 F0D15530
INTTAB+40,,225 F0D15540
INTTAB+50 F0D15550
INTTAB+50,4,2 F0D15560
INTTAB+50,0,5 F0D15570
INTTAB+50,4,7 F0D15580
INTTAB+50,0,10 F0D15590
INTTAB+50,4,12 F0D15600
INTTAB+50,0,15 F0D15610
INTTAB+50,4,17 F0D15620
INTTAB+50,0,20 F0D15630
INTTAB+50,4,22 F0D15640
0 F0D15650
0,2 F0D15660
0,4 F0D15670
0,6 F0D15680
0,0,1 F0D15690
0,2,1 F0D15700
0,4,1 F0D15710
0,6,1 F0D15720
0,0,2 F0D15730
0,2,2 F0D15740
REM F0D15750
REM F0D15760
REM TO CONVERT OCTAL TO BINARY INTEGER F0D15770
OCTALT PZE OCTALT+8 F0D15780
PON OCTALT+8 F0D15790
PTW OCTALT+8 F0D15800
PTH OCTALT+8 F0D15810
FOR OCTALT+8 F0D15820
FVE OCTALT+8 F0D15830
SIX OCTALT+8 F0D15840
SVN OCTALT+8 F0D15850
OCTALT+16 F0D15860
OCTALT+16,,4096 F0D15870
OCTALT+16,,2*4096 F0D15880
OCTALT+16,,3*4096 F0D15890
OCTALT+16,,4*4096 F0D15900
OCTALT+16,,5*4096 F0D15910
OCTALT+16,,6*4096 F0D15920
OCTALT+16,,7*4096 F0D15930
OCTALT+24 F0D15940
OCTALT+24,,512 F0D15950
OCTALT+24,,2*512 F0D15960
OCTALT+24,,3*512 F0D15970
OCTALT+24,,4*512 F0D15980
OCTALT+24,,5*512 F0D15990
OCTALT+24,,6*512 F0D16000
OCTALT+24,,7*512 F0D16010
OCTALT+32 F0D16020
OCTALT+32,,64 F0D16030
OCTALT+32,,2*64 F0D16040
OCTALT+32,,3*64 F0D16050
OCTALT+32,,4*64 F0D16060
OCTALT+32,,5*64 F0D16070
OCTALT+32,,6*64 F0D16080
OCTALT+32,,7*64 F0D16090
OCTALT+40 F0D16100
OCTALT+40,,8 F0D16110
OCTALT+40,,16 F0D16120
OCTALT+40,,24 F0D16130
OCTALT+40,,32 F0D16140
OCTALT+40,,40 F0D16150
OCTALT+40,,48 F0D16160
OCTALT+40,,56 F0D16170
0 F0D16180
,,1 F0D16190
,,2 F0D16200
,,3 F0D16210
,,4 F0D16220
,,5 F0D16230
,,6 F0D16240
,,7 F0D16250
REM F0D16260
REM F0D16270
REM TO CONVERT DECIMAL TO FLOATING POINT BINARY F0D16280
DECTAB SYN *-1 F0D16290
OCT 141500000000,144620000000,147764000000,153470400000 F0D16300
OCT 156606500000,161750220000,165461132000,170575360400 F0D16310
OCT 173734654500,177452013710,202564416672,205721522451 F0D16320
OCT 211443023471,214553630410,217706576512,223434157116 F0D16330
OCT 226543212741,231674055532,235425434430,240532743536 F0D16340
OCT 243661534466,247417031702,252522640262,255647410336 F0D16350
OCT 261410545213,264512676456,267635456171,273402374714 F0D16360
OCT 276503074077,301623713116,304770675742,310473426555 F0D16370
OCT 313612334311,316755023373,322464114135,325601137164 F0D16380
OCT 330741367021,334454732313,337570120775,342726145174 F0D16390
OCT 346445677216,351557257061,354713132676,360436770626 F0D16400
OCT 363546566774,366700324573,372430204755,375536246150 F0D16410
REM F0D16420
REM I/O COMMANDS F0D16430
BSREC MZE 1,,0 COMMAND TO BACKSPACE ONE RECORD F0D16440
BS2RC MZE 2,,0 I/O COMMAND TO BACKSPACE TWO RECORDS F0D16450
REWND PZE ,,-1 COMMAND TO REWIND TAPE F0D16460
UNLOD MZE ,,-1 COMMAND TO REWIND-UNLOAD TAPE F0D16470
INTAP PZE ILABL,,FINTAP PARAM TO READ/WRITE FIRST INTERMED TAPE F0D16480
PZE ILABL,,SINTAP PARAM TO READ/WRITE SECOND INTERMED TAPE F0D16490
INTCK PZE FINTAP,,(CHKU) COMMAND TO CHECK TRANSMISSION INT TAPE 1 F0D16500
PZE SINTAP,,(CHKU) COMMAND TO CHECK TRANSMISSION INT TAPE 2 F0D16510
ITSCH PZE (SCHU)+FINTAP INTERMEDIATE TAPE 1 HISTORY CELL F0D16520
PZE (SCHU)+SINTAP INTERMEDIATE TAPE 2 HISTORY CELL F0D16530
BLABL BCI 1,FAPBIN INTERMEDIATE PUNCH TAPE RECORD LABEL F0D16540
ILABL BCI 1,FAPBCD INTERMEDIATE PRINT TAPE RECORD LABEL F0D16550
REM F0D16560
IORT BBUF11,,** I/O COMMAND TO WRITE LISTING TAPE F0D16570
BCD14 PZE BBUF11,1 ORIGIN OF LISTING OUTPUT BUFFER F0D16580
IORT BBUF12,,** F0D16590
PZE BBUF12,1 F0D16600
REM F0D16610
IORT BBUF21,,UPDBKL I/O COMMAND TO READ UPDATE INPUT TAPE F0D16620
BCD24 PZE BBUF22,1 ORIGIN OF UPDATE INPUT BUFFER F0D16630
IORT BBUF22,,UPDBKL F0D16640
PZE BBUF21,1 F0D16650
REM F0D16660
IORT BBUF31,,UPDBKL I/O COMMAND TO READ SOURCE INPUT TAPE F0D16670
BCD34 PZE BBUF32,1 ORIGIN OF SOURCE INPUT BUFFER F0D16680
IORT BBUF32,,UPDBKL F0D16690
PZE BBUF31,1 F0D16700
REM F0D16710
IORT BBUF41,,** I/O COMMAND TO WRITE UPDATE OUTPUT TAPE F0D16720
BCD44 PZE BBUF41,1 ORIGIN OF UPDATE OUTPUT BUFFER F0D16730
IORT BBUF42,,** F0D16740
PZE BBUF42,1 F0D16750
REM F0D16760
IORT BBUF51,,** I/O COMMAND TO WRITE INTERMEDIATE TAPE F0D16770
BCD54 PZE BBUF51,1 ORIGIN OF INTERMEDIATE OUTPUT BUFFER F0D16780
IORT BBUF52,,** F0D16790
PZE BBUF52,1 F0D16800
REM F0D16810
IORT BBUF51,,INPBKL I/O COMMAND TO READ INTERMEDIATE TAPE F0D16820
BCD55 PZE BBUF52,1 ORIGIN OF INTERMEDIATE INPUT BUFFER F0D16830
IORT BBUF52,,INPBKL F0D16840
PZE BBUF51,1 F0D16850
REM F0D16860
IOCP PBUFF2,,24 I/O COMMAND TO WRITE BINARY OUTPUT RECORD F0D16870
BOTIO IOCT PBUFF2+24,,3 AND CARD SERIALIZATION FROM PROPER BUFFER F0D16880
IOCP PBUFF3,,24 F0D16890
IOCT PBUFF3+24,,3 F0D16900
REM F0D16910
PZE PBUFF2+27,4 ORIGIN OF BINARY OUTPUT RECORD BUFFER F0D16920
BOTBF PZE PBUFF2+1 BINARY OUTPUT BUFFER CHECKSUM F0D16930
PZE PBUFF3+27,4 F0D16940
PZE PBUFF3+1 F0D16950
REM F0D16960
PZE PBUFF4+27,4 ORIGIN OF BINARY INTERMED RECORD BUFFER F0D16970
BINBF PZE PBUFF4+1 BINARY INTERMEDIATE BUFFER CHECKSUM F0D16980
PZE PBUFF5+27,4 F0D16990
PZE PBUFF5+1 F0D17000
REM F0D17010
IOCT PBUFF4,,24 I/O COMMAND TO WRITE BINARY INTER RECORD F0D17020
BINIO PZE F0D17030
IOCT PBUFF5,,24 F0D17040
REM F0D17050
REM F0D17060
DCV15 STZ DCPFG RESET EXCESS DECIMAL POINT FLAG $F0D17070
STZ DCEFG RESET EXCESS EXPONENT (E) FLAG $F0D17071
STZ DC2FG RESET EXCESS EXPONENT (B) FLAG $F0D17072
TRA DCV03+2 $F0D17073
DCV16 ZET DCPFG IS THERE AN EXCESS DECIMAL POINT $F0D17074
TRA DCVRR YES, SET ERROR FLAG $F0D17075
STO DCPFG NO $F0D17076
TRA DCV01 $F0D17077
DCV17 ZET DCEFG IS THERE AN EXCESS EXPONENT (E) $F0D17078
TRA DCVRR YES, SET ERROR FLAG $F0D17079
STO DCEFG NO $F0D1707A
TRA DCV02 $F0D1707B
DCV18 ZET DC2FG IS THERE AN EXCESS EXPONENT (B) $F0D1707C
TRA DCVRR YES, SET ERROR FLAG $F0D1707D
STO DC2FG NO $F0D1707E
TRA DCV03 $F0D1707F
REM CONVERT BINARY NUMBER TO DECIMAL $F0D1707G
OCTDV VLM Q8,,3 $F0D1707H
STO NERAS $F0D1707I
VLM Q80,,3 $F0D1707J
ADD NERAS $F0D1707K
STO NERAS $F0D1707L
VLM Q800,,3 $F0D1707M
ADD NERAS $F0D1707N
STO NERAS $F0D1707O
VLM Q8000,,3 $F0D1707P
ADD NERAS $F0D1707Q
STO NERAS $F0D1707R
VLM Q80000,,3 $F0D1707S
ADD NERAS $F0D1707T
TRA 1,4 $F0D1707U
Q80 PZE 80 $F0D1707V
Q800 PZE 800 $F0D1707W
Q8000 PZE 8000 $F0D1707X
Q80000 DEC 80000 $F0D1707Y
FPRNA CAL* FPRN2 PICK UP FIRST WORD OF LINE $F0D1707Z
ARS 30 ISOLATE FIRST CHARACTER $F0D17080
TNZ WRITT NOT DOUBLE-SPACE, WRITE LINE $F0D17081
TIX WRITT,1,1 YES, BUMP LINE COUNT ONE EXTRA $F0D17082
TRA PAGENO PAGE IS FULL $F0D17083
DLRUT TSX C019A,4 GET NEXT CHARACTER FOR TEST $F0D17084
PAX ,4 $F0D17085
TXL HDTST,4,9 CHARACTER IS NUMERIC $F0D17086
TXL DLERR,4,16 CHARACTER IS ILLEGAL OR PLUS $F0D17087
TXL HDTST,4,25 CHARACTER IS ALPHABETIC $F0D17088
TXL DLERR,4,26 CHARACTER IS ILLEGAL $F0D17089
TXL HDTST,4,28 CHARACTER IS PERIOD OR RIGHT PARENTHESIS$F0D1708A
TXL DLERR,4,32 CHARACTER IS ILLEGAL OR MINUS $F0D1708B
TXL HDTST,4,41 CHARACTER IS ALPHABETIC $F0D1708C
TXL DLERR,4,49 CHARACTER IS BLANK OR EQUALS $F0D1708D
TXL HDTST,4,57 CHARACTER IS ALPHABETIC $F0D1708E
TXL DLERR,4,59 CHARACTER IS ILLEGAL OR COMMA $F0D1708F
TXL HDTST,4,60 CHARACTER IS LEFT PARENTHESIS $F0D1708G
REM REENTRY FOR IMPROPER DOLLAR SIGN $F0D1708H
DLERR SLN EXPRR SET ERROR FLAGS $F0D1708I
STL ERFDL $F0D1708J
TRA SCN02+2 RETURN $F0D1708K
REM REENTRY TO TEST FOR MORE THAN ONE CHARACTER PRECEEDING $F0D1708L
HDTST CAL SYMBL GET PRECEEDING CHARACTERS $F0D1708M
LGR 6 $F0D1708N
TNZ DLERR MORE THAN ONE BEFORE DOLLAR SIGN $F0D1708O
LGL 6 OK $F0D1708P
TRA SCN02+1 RETURN $F0D1708Q
PATCH TXH FPRN1,2,0 IS LINE AT TOP OF PAGE BLANK $F0D1708R
TXI FPRN1,1,-1 YES, BUMP PAGE LINE COUNT DOWN ONE $F0D1708S
FLAGB STL ERRFB INDICATE BOOLEAN ERROR $F0D1708T
TRA SSCN2+1 RETURN $F0D1708U
TTL PASS ONE SUBROUTINES F0D17090
PASSLP SYN * $F0D17093
REM PASS ONE F0D17100
REM F0D17110
REM COPY INPUT TAPE TO INTERMEDIATE TAPE F0D17120
REM PREPARE TABLE OF SYMBOLS APPEARING IN SOURCE PROGRAM F0D17130
REM PARTIALLY PROCESS PSEUDOOPS AND LITERALS F0D17140
REM PREPARE TRANSFER VECTOR F0D17150
REM F0D17160
HEAD 4 PASS ONE F0D17170
ORG PASSLP F0D17180
REM F0D17190
REM SSYMT SUBROUTINE MUST ORIGIN AT SAME LOCATN PASS 1 AND 2 F0D17200
REM LINEAR SEARCH OF SYMBOL TABLE F0D17210
SSYMT SXA SRCHX,4 SAVE CALLING LINKAGE F0D17220
CAL SYMSIZ COMPUTE LENGTH OF SYMBOL TABLE F0D17230
COM F0D17240
ARS 18 F0D17250
ADD Q3 F0D17260
PAX ,4 F0D17270
ADM ESYM3 COMPUTE ORIGIN AT END OF SYMBOL TABLE F0D17280
STA SRCH1 FOR SYMBOL NAMES F0D17290
ADD Q1 F0D17300
STA SRCH2 FOR LOCATIONS F0D17310
CAL SYMBL LOAD SYMBOL NAME F0D17320
SRCH1 LAS **,4 IS IT IN SYMBOL TABLE F0D17330
TIX SRCH1,4,2 NOT YET F0D17340
TXH SRCH2,4,2 YES F0D17350
TIX SRCH1,4,2 NOT YET, IS SYMBOL TABLE EXHAUSTED F0D17360
SLN EXPRR YES, PHASE ERROR F0D17370
PXD ,0 F0D17380
TRA SRCHX F0D17390
SRCH2 CLA **,4 LOAD LOCATION OF SYMBOL F0D17400
PAI LOAD FLAGS F0D17410
LFT 4 IS THIS NAME IN TRANSFER VECTOR F0D17420
SLN EXPRR YES, PHASE ERROR (CANNOT DEFINE PSEUDOOP) F0D17430
ZET ABSFLG IS ASSEMBLY ABSOLUTE F0D17440
ANA ADTMK YES, DELETE EXTRANEOUS FLAGS F0D17450
SXA SET01,4 SAVE LOCATION OF SYMBOL F0D17460
SRCHX AXT **,4 RELOAD CALLING LINKAGE F0D17470
TRA 1,4 F0D17480
REM F0D17490
REM ENTER NAME IN AC, DEFINITION IN SI, IN COMBINED OP TABLE F0D17500
REM SEE REQUIRED FLAGS UNDER COMBINED OP TABLE F0D17510
EOPTB CAL BCDBF LOAD LOCATION FIELD F0D17520
EOPTT SXA EOPTX,4 SAVE CALLING LINKAGE F0D17530
STI BERAS SAVE OP DEFINITION F0D17540
TSX LOCFL,4 *ASSEMBLE OP NAME F0D17550
TZE FIELD **DOES OP NAME EXIST F0D17560
LGR 6 YES, LEFT ADJUST NAME F0D17570
TNZ *-1 F0D17580
XCL F0D17590
SLW SYMBL SAVE LEFT ADJUSTED OP NAME F0D17600
TSX SOPTB,4 *FIND LOCATION IN OP TABLE F0D17610
TRA *+2 NOT IN F0D17620
TRA EOPT1+3 IN TABLE, REDEFINE F0D17630
LAS OPTTBL-2,1 PINPOINT LOCATION OF ENTRY F0D17640
TXI *+2,1,-2 F0D17650
TSX MACERR,4 **IMPOSSIBLE PATH OF FLOW F0D17660
SXD EOPT1,1 MARK LOWEST NAME TO BE MOVED UP F0D17670
LXD OPTSIZ,6 LOAD CURRENT TABLE LENGTH F0D17680
TXI *+1,4,-2 BUMP F0D17690
TXH *+3,4,-LOPTBM DID OP TABLE OVERFLOW F0D17700
LDI OPTNM YES, SET OP TABLE OVERFLOW F0D17710
TRA SRCERR **TERMINATE ASSEMBLY F0D17720
SXD OPTSIZ,4 NO, SET NEW TABLE LENGTH F0D17730
TXI *+1,4,-1 F0D17740
SXD SOPT1,4 SET UPPER LIMIT FOR TABLE SEARCH F0D17750
CAL OPTTBL-2,2 MOVE TABLE UP OFF THE TOP F0D17760
LDQ OPTTBL-1,2 TO MAKE ROOM FOR NEW ENTRY F0D17770
SLW OPTTBL,2 F0D17780
STQ OPTTBL+1,2 F0D17790
TXI *+1,2,2 BUMP TO NEXT PAIR F0D17800
TXL *+2,2,0 IS ENTRY AT BOTTOM OF TABLE F0D17810
EOPT1 TXL *-6,2,** NO, IS TABLE MOVED F0D17820
CAL SYMBL YES, INSERT OP NAME F0D17830
SLW OPTTBL-2,1 INTO TABLE F0D17840
LDI BERAS INSERT OP DEFINITION F0D17850
STI OPTTBL-1,1 INTO TABLE F0D17860
EOPT2 TXH EOPTX,4,-2048 IS TABLE NOW LONGER THAN 1024 OPCODES F0D17870
LXD EOPT2,4 YES, LOAD CURRENT TABLE LENGTH F0D17880
TXI *+1,4,-2048 DOUBLE F0D17890
SXD *-1,4 RESET BUMP F0D17900
SXD EOPT2,4 RESET TEST F0D17910
CAL OPTSIZ BUMP LOGARITHM F0D17920
ADD Q2 FOR TABLE OF DOUBLE SIZE F0D17930
STA OPTSIZ F0D17940
EOPTX AXT **,4 RELOAD CALLING LINKAGE F0D17950
TRA 1,4 F0D17960
REM F0D17970
REM ASSEMBLE SUBPROGRAM NAME AND ENTER INTO TRANSFER VECTOR F0D17980
CALNM SXA CALNX,4 SAVE CALLING LINKAGE F0D17990
STZ SYMBL CLEAR SUBPROGRAM NAME F0D18000
TRA CALN1 TEST FOR ABSOLUTE ASSEMBLY $F0D18010
TSX SCANF,4 *ASSEMBLE SUBPROGRAM NAME F0D18020
TXI AFLAG,,0 NULL SUBPROGRAM NAME F0D18030
SLT EXPRR TURN OFF ERROR FLAG F0D18040
NOP PERMIT MULTIPLE DEFINITION F0D18050
ZET ABSFLG IS ASSEMBLY ABSOLUTE F0D18060
TRA CALNX YES F0D18070
TSX LADJS,4 *LEFT ADJUST SUBPROGRAM NAME F0D18080
TZE *+3 DOES SUBPROGRAM NAME EXIST F0D18090
SLT EXPRR YES, IS SUBPROGRAM NAME FLAGGED AS ERROR F0D18100
TSX TRVCR,4 *NO, ENTER NAME IN TRANSFER VECTOR TABLE F0D18110
STZ TVFLG RESET TRANSFER VECTOR NAME FLAG F0D18120
CALNX AXT **,4 RELOAD CALLING LINKAGE F0D18130
TRA 1,4 F0D18140
REM F0D18150
REM ENTER NAMES IN TRANSFER VECTOR TABLE F0D18160
TRVCR SXA TRVCX,4 SAVE CALLING LINKAGE F0D18170
AXT LTVTBL,4 LOAD TRANSFER VECTOR TABLE LENGTH F0D18180
TXL TRVC1,4,LTVTBL IS VECTOR EXHAUSTED F0D18190
LAS VECTOR+LTVTBL,4 NO, IS IT THIS WORD IN VECTOR F0D18200
TXI *-2,4,-1 NO F0D18210
TRA TRVCX YES F0D18220
TXI *-4,4,-1 NO F0D18230
TRVC1 TXH *+3,4,0 DID TRANSFER VECTOR TABLE OVERFLOW F0D18240
LDI VECNM YES, SET TRANSFER VECTOR OVERFLOW F0D18250
TRA SRCERR **TERMINATE ASSEMBLY F0D18260
SLW VECTOR+LTVTBL,4 ADD NAME TO END OF TABLE F0D18270
PAI HOLD SYMBOL NAME F0D18280
TXI *+1,4,-1 BUMP VECTOR COUNT F0D18290
SXD TRVCR+2,4 RESET END OF TRANSFER VECTOR TABLE TEST F0D18300
LDC TRVCR+2,4 COMPUTE CURRENT LENGTH OF TRANSFER VECTOR F0D18310
TXI *+1,4,LTVTBL F0D18320
SXD PBUFF1+2,4 INSERT IN PROGRAM CARD 8L DECREMENT F0D18330
SXA PBUFF1+5,4 INSERT ENTRY POINT IN PC 7R ADDRESS F0D18340
TXI *+1,4,-1 COMPUTE RELATIVE LOCATION OF VECTOR NAME F0D18350
PXA ,4 F0D18360
ORA D5 AND VECTOR RELOCATION BITS F0D18370
STO ADDRS F0D18380
PIA RECALL SYMBOL NAME F0D18390
TSX ESYMT,4 *DEFINE SYMBOL F0D18400
TRVCX AXT **,4 RELOAD CALLING LINKAGE F0D18410
TRA 1,4 F0D18420
REM F0D18430
REM ENTER NAME, DEFINITION IN ADDRS, INTO SYMBOL TABLE F0D18440
REM ENTRY WORD 1 CONTAINS SYMBOL NAME RIGHT ADJUSTED F0D18450
REM HEADING CHARACTER LEFT ADJUSTED F0D18460
REM FILLED WITH ZEROES F0D18470
REM ENTRY WORD 2 CONTAINS ASSIGNED LOCATION BITS 18-35 F0D18480
REM FLAGS BITS 3 - 17 F0D18490
REM BIT 13 SET SYMBOL F0D18500
REM 14 MULTIPLY DEFINED F0D18510
REM 15 TRANSFER VECTOR NAME F0D18520
REM 16 COMMON VARIABLE F0D18530
REM 17 RELOCATABLE SYMBOL F0D18540
ESYML CAL BCDBF ENTRY POINT TO DEFINE LOCATION FIELD F0D18550
ESYMT SXA ESYMX,4 SAVE CALLING LINKAGE F0D18560
SXA ESYMX+1,2 SAVE WORD COUNT F0D18570
TXH ESYM0,4,-1 IS SYSTEM SYMBOL TABLE PRESERVED F0D18580
SXD *-1,0 NO, RESET SWITCH F0D18590
LDC SYMSIZ,6 LOAD LENGTH OF SYMBOL TABLE F0D18600
TXI *+1,2,SYMTBL COMPUTE ORIGIN AT END OF SYMBOL TABLE F0D18610
SXA *+1,2 INITIALIZE CLEAR LOOP F0D18620
STZ **,4 CLEAR SYMBOL TABLE F0D18630
TIX *-1,4,1 F0D18640
STZ SYMSIZ RESET SYMBOL TABLE COUNT F0D18650
ESYM0 STL FCFLG SET FLAG TO PREVENT ABS OR ENTRY CARDS F0D18660
REM FROM SETTING MODE OF ASSEMBLY F0D18670
TSX LOCFL,4 *ASSEMBLE UNIFORM SYMBOL F0D18680
TZE ESYMX IS THERE A SYMBOL F0D18690
LXD SYMSIZ,4 YES, LOAD CURRENT SYMBOL TABLE SIZE F0D18700
AXT 0,2 LOAD SINGLE HEAD COUNT F0D18710
XCL F0D18720
LGL 6 SHIFT IN FIRST CHARACTER F0D18730
ZET TVFLG IS THIS NAME IN TRANSFER VECTOR F0D18740
TRA *+4 YES, FORCE UNHEADING F0D18750
TNZ *+3 NO, IS SYMBOL SHORTER THAN SIX CHARACTERS F0D18760
HEDCT AXT **,2 NO, LOAD MULTIPLE HEADING COUNT F0D18770
ESYM2 CAL BHEAD,2 APPEND HEADING CHARACTER F0D18780
LGL 30 SHIFT IN HEADED SYMBOL F0D18790
ESYM3 SLW SYMTBL,4 ADD SYMBOL TO END OF TABLE F0D18800
LGR 30 HOLD UNHEADED SYMBOL F0D18810
CLA ADDRS DEFINE SYMBOL AS CURRENT CONTENTS OF F0D18820
STO SYMTBL+1,4 PROGRAM COUNTER F0D18830
TXI *+1,4,-2 BUMP SYMBOL TABLE COUNTER F0D18840
TXH *+3,4,-LSMTBM DID SYMBOL TABLE OVERFLOW F0D18850
LDI SYMNM YES, SET SYMBOL TABLE OVERFLOW F0D18860
TRA SRCERR **TERMINATE ASSEMBLY F0D18870
TXL *+2,2,0 IS MULTIPLE HEADING LIST EXHAUSTED F0D18880
TXI ESYM2,2,-1 NO, BUMP LIST COUNT TO NEXT HEAD CHARACTERF0D18890
SXD SYMSIZ,4 SAVE SYMBOL TABLE LENGTH F0D18900
ESYMS TXI ESYMZ,4,-SYMTBL TO TEST FOR OVERLAP OF MACRO TABLE $F0D18910
SXD STPTR,4 SAVE CURRENT SYMBOL TABLE END $F0D18920
ESYMX AXT **,4 RELOAD CALLING LINKAGE F0D18930
AXT **,2 RELOAD WORD COUNT F0D18940
TRA 1,4 F0D18950
REM F0D18960
REM SCAN PSEUDOOP VARIABLE FIELD F0D18970
SCANP SXA SCNPX,4 SAVE CALLING LINKAGE F0D18980
TSX SCANF,4 *EVALUATE VARIABLE FIELD F0D18990
TXI SCNPX+2,,0 NULL VARIABLE FIELD F0D19000
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D19010
TRA *+2 NO F0D19020
TRA FIELX **YES F0D19030
LDI Q0 PRESET ABSOLUTE SYMBOL F0D19040
ZET VARUR IS VARIABLE FIELD RELOCATABLE F0D19050
SIL 1 YES, SET RELOCATION BIT F0D19060
ZET VARUC IS VARIABLE FIELD COMMON F0D19070
SIL 2 YES, SET COMMON BIT (CANNOT BE BOTH) F0D19080
SCNPX AXT **,4 RELOAD CALLING LINKAGE F0D19090
TRA 2,4 F0D19100
LXA SCNPX,4 RELOAD CALLING LINKAGE F0D19110
LDI Q0 SET NULL FIELD ABSOLUTE ZERO F0D19120
TRA 1,4 F0D19130
REM F0D19140
REM SET FLAG FOR MISSING PSEUDOOP VARIABLE FIELD F0D19150
AFLAG CAL Q64 FLAG MISSING VARIABLE FIELD F0D19160
ORS P1FLG F0D19170
SLN FLDND DELETE F FLAG F0D19180
PXD ,0 F0D19190
TRA 2,4 F0D19200
REM F0D19210
REM LOOK AHEAD FOR ETC CARD F0D19220
PEEKS SXA PEEKX,4 SAVE CALLING LINKAGE F0D19230
SXA PEEKX+1,2 SAVE WORD COUNT F0D19240
SXA PEEKX+2,1 SAVE CHARACTER COUNT F0D19250
PKMSW TXH *+3,4,** IS NEXT CARD TO BE MACRO COMPILED F0D19260
TXH PEEKX,4,** YES, WILL NEXT CARD BE AN ETC F0D19270
TRA PEEK1 YES F0D19280
LXA DUPCD,4 LOAD COUNT OF REMAINING CARDS IN DUP F0D19290
ZET DUPMD IS THIS CARD WITHIN RANGE OF DUP F0D19300
TXL PEEKX,4,0 YES, IS THIS LAST CARD IN DUP F0D19310
LXD SRCSW,4 NO, LOAD SOURCE BUFFER SWITCH F0D19320
TXL *+3,4,0 IS SOURCE BUFFER EMPTY F0D19330
SXD SRCSW,0 YES, RESET SWITCH F0D19340
TSX SRCIN,4 *READ NEXT SOURCE CARD F0D19350
LXD UPDSW,4 LOAD UPDATE BUFFER SWITCH F0D19360
TXL *+3,4,0 IS UPDATE BUFFER EMPTY F0D19370
SXD UPDSW,0 YES, RESET SWITCH F0D19380
TSX UPDIN,4 *READ NEXT UPDATE CARD F0D19390
LDQ INSBF+2 PRELOAD SOURCE WORD 2 F0D19400
REM THIS HAD BETTER NOT BE A 'DELETE' F0D19410
REM FOLLOWED BY AN 'ETC' CARD F0D19420
CAL SRCID+1 LOAD SOURCE ID LEADING CHARACTERS F0D19430
LAS UPDID+1 IS IT SMALLER THAN UPDATE ID F0D19440
TRA *+5 NO, USE UPDATE OPFIELD F0D19450
TRA *+2 EQUAL, CHECK FURTHER F0D19460
TRA *+5 YES, USE SOURCE OPFIELD F0D19470
CAL SRCID LOAD SOURCE ID F0D19480
LAS UPDID IS IT SMALLER THAN UPDATE ID F0D19490
LDQ DELBF+2 NO, USE UPDATE WORD 2 F0D19500
NOP EQUAL, USE SOURCE OPFIELD F0D19510
XCA F0D19520
ANA PKMSK MASK IN CC 8 - 11 F0D19530
ERA ETCMK IS OPCODE ETC F0D19540
TNZ PEEKX NO F0D19550
PEEK1 CAL Q2 YES, SET ETC FLAG IN CARD WORD 14 (CC 84) F0D19560
ORS P1FLG F0D19570
STL ETCMD SET ETC FLAG F0D19580
LXA PEEKX,4 RELOAD CALLING LINKAGE F0D19590
LXA PEEKX+1,2 RELOAD WORD COUNT F0D19600
LXA PEEKX+2,1 RELOAD CHARACTER COUNT F0D19610
TRA 1,4 ETC RETURN F0D19620
PEEKX AXT **,4 RELOAD CALLING LINKAGE F0D19630
AXT **,2 RELOAD WORD COUNT F0D19640
AXT **,1 RELOAD CHARACTER COUNT F0D19650
TRA 2,4 NO ETC RETURN F0D19660
PKMSK OCT 007777777700 MASK FOR OP FIELD CC 8 - 11 F0D19670
ETCMK BCI 1,0ETC 0 MASK FOR ETC PSEUDOOPERATION F0D19680
REM F0D19690
REM F0D19700
REM INPUT/OUTPUT SUBROUTINES F0D19710
REM F0D19720
REM READ CARD FROM SOURCE/UPDATE TAPES F0D19730
INPUT SXA INPTX,4 SAVE CALLING LINKAGE F0D19740
SRCSW TXH *+3,4,-1 IS SOURCE BUFFER EMPTY F0D19750
SXD *-1,0 YES, RESET SWITCH F0D19760
TSX SRCIN,4 *READ NEXT SOURCE CARD F0D19770
TRA SRCS1 $F0D19780
ORA SRCID+1 CC 73 - 80 F0D19790
TZE INP03+1 IS SOURCE ID BLANK F0D19800
NZT IPTFLG NO, IS UPDATE INPUT TAPE PROVIDED F0D19810
TRA INP03+1 NO F0D19820
UPDSW TXH *+3,4,0 YES, IS UPDATE BUFFER EMPTY F0D19830
SXD *-1,0 YES, RESET SWITCH F0D19840
TSX UPDIN,4 *READ NEXT UPDATE CARD F0D19850
TRA INP02+7 F0D19860
REM LAST CARD READ WAS SKIP TO F0D19870
INP00 ZSD SKPFG SET SKIP-TO SWITCH F0D19880
REM LAST CARD READ WAS IGNORE F0D19890
AXT -1,4 SET IGNORE SWITCH F0D19900
SXD DELUP+2,4 F0D19910
REM LAST CARD READ WAS DELETE F0D19920
CAL BCDBF+2 LOAD CARD WORD 3 F0D19930
LAS EBTHR IS CARD DELETE/IGNORE THRU F0D19940
TRA *+2 NO F0D19950
TRA *+6 YES $F0D19960
ERA ETHRU IS CARD DELETE/IGNORE THRU $F0D19970
TZE *+4 YES F0D19980
CAL BCDBF+1 IS CARD F0D19990
ERA SKIPC SKIPTO F0D20000
TNZ INP02 NO F0D20010
STZ SEQID YES, AVOID ERRORS ON DELETE F0D20020
STZ SEQID+1 F0D20030
INP01 CAL UPDID+1 LOAD UPDATE ID LEADING CHARACTERS F0D20040
LAS SRCID+1 IS IT SMALLER THAN SOURCE ID F0D20050
TRA INP02 NO, ALL DONE F0D20060
TRA *+2 EQUAL, CHECK FURTHER F0D20070
TRA *+5 YES, DELETE ANOTHER UPDATE CARD F0D20080
CAL UPDID LOAD UPDATE ID F0D20090
LAS SRCID IS IT SMALLER THAN SOURCE ID F0D20100
TRA INP02 NO, ALL DONE F0D20110
TRA *+4 EQUAL, ONE MORE TO GO F0D20120
SKP01 TSX DELUP+2,4 *YES, LIST UPDATE CARD DELETED F0D20130
TSX UPDIN,4 *GET NEXT UPDATE CARD F0D20140
TRA INP01 F0D20150
SKPFG TXH *+2,4,-1 SKIP SWITCH, DECR IS ZERO IF SKIP-TO F0D20160
TSX DELUP,4 *DELETE MATCHING UPDATE CARD F0D20170
AXT -1,4 RESET SKIP SWITCH F0D20180
SXD *-3,4 FOR ANOTHER USE F0D20190
REM DELETE IS COMPLETE F0D20200
INP02 CAL SKPFG IS SKIP-TO IN EFFECT F0D20210
ANA D32767 IF YES, CONSINUE SEARCHING FOR F0D20220
TZE SKP01 MATCHING SERIALIZATION F0D20230
TSX SRCIN,4 *NO, GET CARD FOLLOWING CONTROL CARD F0D20240
TSX FPRINT,4 *PRINT BLANK LINE F0D20250
PZE F0D20260
TRA INPUT+1 F0D20270
REM MOVE NEXT CARD F0D20280
TRA INP2A $F0D20290
CAL INSBF+3 LOAD SOURCE WORD 3 F0D20300
LAS EBTHR IS CARD DELETE/IGNORE THRU F0D20310
TRA *+2 NO F0D20320
TRA INP03+1 YES, USE IT F0D20330
ERA ETHRU IS CARD DELETE/IGNORE THRU F0D20340
TZE INP03+1 YES, USE IT F0D20350
CAL INSBF+2 IS CARD F0D20360
ERA SKIPC SKIPTO F0D20370
TZE INP03+1 YES, FA LA LA LA F0D20380
CAL UPDID+1 NO, LOAD UPDATE ID LEADING CHARACTERS F0D20390
LAS SRCID+1 IS IT SMALLER THAN SOURCE ID F0D20400
TRA INP03+1 NO, USE SOURCE CARD F0D20410
TRA *+2 EQUAL, CHECK FURTHER F0D20420
TRA *+5 YES, USE UPDATE CARD F0D20430
CAL UPDID LOAD UPDATE ID F0D20440
LAS SRCID IS IT SMALLER THAN SOURCE ID F0D20450
TRA INP03+1 NO, USE SOURCE CARD F0D20460
TRA INPCH EQUAL ,DELETE UPDATE CARD $F0D20470
AXT 14,4 YES, MOVE UPDATE CARD F0D20480
CAL DELBF+15,4 FROM UPDATE INPUT BUFFER F0D20490
SLW BCDBF+14,4 TO WORKING BUFFER F0D20500
TIX *-2,4,1 F0D20510
AXT -1,4 SET SWITCH FOR EMPTY UPDATE BUFFER F0D20520
SXD UPDSW,4 F0D20530
CAL UPDID+1 LOAD ID FOR THIS CARD F0D20540
LDQ UPDID F0D20550
TRA INP04 F0D20560
REM USE NEXT SOURCE CARD F0D20570
INP03 TSX DELUP,4 *DELETE MATCHING UPDATE CARD F0D20580
AXT 14,4 MOVE SOURCE CARD F0D20590
CAL INSBF+15,4 FROM SOURCE INPUT BUFFER F0D20600
SLW BCDBF+14,4 TO WORKING BUFFER F0D20610
TIX *-2,4,1 F0D20620
TRA INP3A $F0D20630
LDQ BCDBF+2 LOAD CARD WORD 3 F0D20640
LGL 6 ASSEMBLE OPCODE (CC 8 - 13) F0D20650
ZET IPTFLG IS AN UPDATE INPUT TAPE PROVIDED F0D20660
LAS IGNOR YES, IS CARD IGNORE F0D20670
TRA *+2 NO F0D20680
TRA INP00+1 YES F0D20690
ERA DELET IS CARD DELETE F0D20700
ZET IPTFLG AND IS AN UPDATE INPUT TAPE PROVIDED F0D20710
TZE INP00+3 YES F0D20720
CAL BCDBF+1 IS CARD F0D20730
ERA SKIPC SKIPTO F0D20740
ZET IPTFLG AND IS UPDATE INPUT TAPE PROVIDED F0D20750
TZE INP00 YES F0D20760
AXT -1,4 NO, SET SWITCH FOR EMPTY SOURCE BUFFER F0D20770
SXD SRCSW,4 F0D20780
NZT DELFLG IS ASSEMBLY DELETED F0D20790
ZET IPTFLG NO, IS AN UPDATE INPUT TAPE PROVIDED F0D20800
TSX INSUP,4 *YES, LIST INSERTED CARD F0D20810
CAL SRCID+1 LOAD ID FOR THIS CARD F0D20820
LDQ SRCID F0D20830
REM PROPER CARD IS IN WORKING BUFFER F0D20840
INP04 SLW SEQID+1 SAVE ID FOR SEQUENCE CHECKING F0D20850
STQ SEQID F0D20860
TXL INP05,4,-1 IS RESERIALIZATION REQUESTED F0D20870
CLA INP06 YES. BUMP SERIALIZATION (25)F0D20880
ADD INP07 (25)F0D20890
STO INP06 (25)F0D20900
ANA NUM03 TRUNCATE TO 19 BITS (25)F0D20910
TSX BCDCV,4 *CONVERT TO DECIMAL (25)F0D20920
LGR 12 RIGHT ADJUST TO COLUMN 80 (25)F0D20930
ACL PROID APPEND LEADING CHARACTERS (25)F0D20940
AXT 0,0 PATCH SPACE (25)F0D20950
SLW BCDBF+12 INSERT NEW ID F0D20960
STQ BCDBF+13 F0D20970
INP05 CAL BCDBF+13 BLANK CC 81 - 84 F0D20980
ANA P1MSK F0D20990
ORA P2MSK F0D21000
SLW BCDBF+13 F0D21010
INPTX AXT **,4 RELOAD CALLING LINKAGE F0D21020
TRA 1,4 F0D21030
DELET BCI 1,DELETE F0D21040
IGNOR BCI 1,IGNORE F0D21050
EBTHR BCI 1,E THR F0D21060
ETHRU BCI 1,E THRU F0D21070
SKIPC BCI 1, SKIPT MASK FOR SKIPTO F0D21080
PROID PZE LEADING CHARACTERS FOR RESERIALIZATION F0D21090
REM F0D21100
REM DELETE CARD FROM UPDATE TAPE F0D21110
DELUP AXT -1,1 SET SWITCH FOR EMPTY UPDATE BUFFER F0D21120
SXD UPDSW,1 F0D21130
TXL DELPX+1,4,** IS CARD IGNORE OR SKIP F0D21140
SXA DELPX,4 NO, SAVE CALLING LINKAGE F0D21150
TSX FPRINT,4 *LIST DELETED CARD (24)F0D21160
DELBF,,17 (24)F0D21170
DELPX AXT **,4 RELOAD CALLING LINKAGE (24)F0D21180
TRA 1,4 (24)F0D21190
REM (24)F0D21200
REM CHECK OPCODE FOR UPDATE PSEUDOOPERATION (24)F0D21205
CKUPD SXA CKPDX,4 SAVE LINKAGE (24)F0D21210
CAL OPCOD OBTAIN OP CODE (24)F0D21215
TSX SOPTB,4 *DEFINE IT (24)F0D21220
TRA CKPDX OPCODE IS UNDEFINED (24)F0D21225
RNT 100000 IS IT A MACHINE OPERATION (24)F0D21230
LNT 100000 NO, IS IT A NON-UPDATE OPERATION (24)F0D21235
TRA CKPDX YES (24)F0D21240
LXA CKPDX,4 RETURN FOR OPCODE (24)F0D21245
TRA 2,4 IS AN UPDATE PSEUDOOPERATION (24)F0D21250
CKPDX AXT **,4 RETURN FOR OPCODE (24)F0D21255
TRA 1,4 IS NOT AN UPDATE PSEUDOOPERATION (24)F0D21260
NUM02 STO INP06 RESET SERIALIZATION (25)F0D21261
TSX SCANP,4 *IS THERE A 2ND SUBFIELD (25)F0D21262
CLA Q10 NO. ADDEND = 10. (25)F0D21263
RFT 3 YES. IS IT ABSOLUTE (25)F0D21264
TRA FIELD **NO. (25)F0D21265
STO INP07 YES. INP07 = ADDEND (25)F0D21266
XCA INP06 = ADDEND * 1ST FIELD (25)F0D21267
TRA NUM04 (25)F0D21270
REM F0D21280
REM LIST CARD INSERTED INTO UPDATE TAPE F0D21290
INSUP SXA INSPX,4 SAVE CALLING LINKAGE F0D21300
TSX SETUP,4 *FIND OPCODE F0D21310
TRA INS01 CARD IS COMMENTS CARD F0D21320
TRA INS01 OPFIELD IS IN ERROR F0D21330
TSX CKUPD,4 SHOULD CARD BE LISTED AS INSERTED (24)F0D21340
TRA INS01 YES F0D21380
CAL INSBF+2 NO, LOAD SOURCE CARD WORD 2 F0D21390
ANA PKMSK MASK IN CC 8 - 10 F0D21400
ERA ENDMK IS IT END F0D21410
TNZ INSPX NO, OMIT LISTING UPDATE CARD F0D21420
INS01 TSX FPRINT,4 *LIST INSERTED CARD (24)F0D21430
INSBF,,17 (24)F0D21440
TSX FPRINT,4 *PRINT BLANK LINE F0D21530
PZE F0D21540
INSPX AXT **,4 RELOAD CALLING LINKAGE F0D21550
TRA 1,4 F0D21560
REM F0D21570
REM READ NEXT CARD ON UPDATE TAPE F0D21580
UPDIN SXA UPDNX,4 SAVE CALLING LINKAGE F0D21590
AXT **,1 LOAD BLOCK WORD COUNT F0D21600
TXH *+2,1,** IS BLOCK EXHAUSTED F0D21610
TSX RDUPD,4 *YES, READ NEXT BLOCK F0D21620
LXA RDUPD+1,2 LOAD BUFFER INDEX F0D21630
AXT 14,4 LOAD CARD LENGTH F0D21640
LDQ* BCD24+1,2 MOVE NEXT WORD F0D21650
STQ DELBF+15,4 INTO UPDATE INPUT BUFFER F0D21660
TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0D21670
TIX *-3,4,1 IS RECORD COMPLETE F0D21680
TXI *+1,1,14-UPDRCL YES, BUMP COUNT PAST EXTRANEOUS WORDS F0D21690
SXA UPDIN+1,1 SAVE NEW BLOCK COUNT F0D21700
CAL DELBF+13 LOAD WORD 13 (CC 73 - 78) F0D21710
SLW UPDID+1 SAVE LEADING CHARACTERS F0D21720
STZ ORDRF RESET SOURCE CARD FLAG F0D21730
TSX ORDER,4 *ASSEMBLE SERIALIZATION (CC 73 -80) F0D21740
SLW UPDID F0D21750
ERA BLANKS IS SERIALIZATION BLANK F0D21760
TNZ UPDNX NO F0D21770
STZ UPDID YES, SET ID TO ZERO F0D21780
STZ UPDID+1 F0D21790
UPDNX AXT **,4 RELOAD CALLING LINKAGE F0D21800
TRA 1,4 F0D21810
UPDID SVN -1,-1,-1 ID (CC 75 - 80) FOR UPDATE CARD F0D21820
SVN -1,-1,-1 ID (CC 73 - 78) FOR UPDATE CARD F0D21830
REM F0D21840
REM READ UPDATE INPUT TAPE F0D21850
RDUPD SXA RDUPX,4 SAVE CALLING LINKAGE F0D21860
AXC 1,1 LOAD BUFFER INDEX F0D21870
SXA *-1,1 FLIP BUFFER INDEX F0D21880
TSX (TAPE),4 *LOAD NEXT BUFFER F0D21890
PZE BCD24,1,(RDEP) F0D21900
UPDTAP PZE ,,** F0D21910
MZE UPDRR F0D21920
CLA BCD24+1,1 LOAD BUFFER ORIGIN F0D21930
PAX ,4 F0D21940
SXD *+3,4 F0D21950
RDUP0 LAC **,4 LOAD LAST+1 WORD READ F0D21960
TXL RDUPD+1,4,0 WAS END FILE ON UPDATE INPUT TAPE SENSED F0D21970
TXI *+1,4,** NO, COMPUTE LENGTH OF RECORD F0D21980
SXD UPDIN+2,4 RESET TEST FOR END OF BUFFER F0D21990
CAL IPRECT BUMP UPDATE INPUT RECORD COUNT F0D22000
ADD Q1 F0D22010
STA IPRECT F0D22020
AXT 0,1 RESET BLOCK LENGTH F0D22030
SXA UPDIN+1,0 F0D22040
RDUPX AXT **,4 RELOAD CALLING LINKAGE F0D22050
TRA 1,4 F0D22060
REM F0D22070
REM ERROR ON UPDATE INPUT TAPE F0D22080
UPDRR TSX (TAPE),4 *SKIP OVER ERROR RECORD F0D22090
PZE Q1,,(SKDP) F0D22100
PZE UPDTAP,,-1 F0D22110
MZE *+1 $F0D22120
CAL IPRECT BUMP UPDATE INPUT TAPE RECORD COUNT $F0D22130
ADD Q1 $F0D22140
STA IPRECT $F0D22150
TRA *+2 $F0D22160
PZE UPDTAP,,-1 F0D22170
TSX FPRINT,4 *PRINT ERROR MESSAGE F0D22180
MZE UPDRM,,8 F0D22190
TSX FPRINT,4 *PRINT CARD PRECEDING CARD DELETED F0D22200
MZE DELBF,,17 F0D22210
TSX FPRINT,4 *PRINT BLANK LINE F0D22220
PZE F0D22230
UPDR1 AXT 5,4 LOAD ERROR COUNT F0D22240
TIX UPDR2,4,1 IS COUNT EXCESSIVE F0D22250
TSX (PRNT),4 *YES, TELL OPERATOR F0D22260
PZE XREDN,,11 F0D22270
TSX SPACP,2 *LET OPERATOR CHECK F0D22280
AXT 5,4 RESET ERROR COUNT F0D22290
UPDR2 SXA UPDR1,4 SAVE ERROR COUNT F0D22300
STZ* UPD00 FORCE FILL OF UPDATE INPUT BUFFERS F0D22310
TRA RDUPD+1 F0D22320
REM F0D22330
UPDCL SXA UPDCX,4 SAVE CALLING LINKAGE F0D22340
AXT UPDC1,4 RESET ERROR RETURN F0D22350
SXA UPDRR,4 TO AVOID HANGING ERROR MESSAGE F0D22360
TSX (TAPE),4 *BACKSPACE OVER FIRST LOOKAHEAD RECORD F0D22370
PZE BSREC,,(SKDP) F0D22380
PZE UPDTAP,,-1 F0D22390
CAL IPRECT UNBUMP UPDATE INPUT RECORD COUNT F0D22400
SUB Q1 F0D22410
STA IPRECT F0D22420
UPDC1 AXT (TAPE),4 RESET ERROR RETURN F0D22430
SXA UPDRR,4 TO CATCH FUTURE ERRORS F0D22440
LXD UPDSW,4 LOAD UPDATE INPUT TAPE SWITCH F0D22450
SXD UPDSW,0 RESET UPDATE INPUT TAPE SWITCH F0D22460
TXH UPDCX,4,0 WAS SECOND RECORD LOOKED AHEAD F0D22470
TSX (TAPE),4 *YES, BACKSPACE OVER SECOND LOOKAHEAD F0D22480
PZE BSREC,,(SKDP) F0D22490
PZE UPDTAP,,-1 F0D22500
CAL IPRECT UNBUMP UPDATE INPUT RECORD COUNT F0D22510
SUB Q1 F0D22520
STA IPRECT F0D22530
UPDCX AXT **,4 RELOAD CALLING LINKAGE F0D22540
TRA 1,4 F0D22550
REM F0D22560
REM READ NEXT CARD ON SOURCE TAPE F0D22570
SRCIN SXA SRCNX,4 SAVE CALLING LINKAGE F0D22580
AXT **,1 LOAD BLOCK WORD COUNT F0D22590
TXH *+2,1,** IS BLOCK EXHAUSTED F0D22600
TSX RDSRC,4 *YES, READ NEXT BLOCK F0D22610
LXA RDSRC+1,2 LOAD BUFFER INDEX F0D22620
AXT 14,4 LOAD CARD LENGTH F0D22630
LDQ* BCD34+1,2 MOVE NEXT WORD F0D22640
STQ INSBF+15,4 INTO SOURCE INPUT BUFFER F0D22650
TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0D22660
TIX *-3,4,1 IS RECORD COMPLETE F0D22670
TXI *+1,1,14-UPDRCL YES, BUMP COUNT PAST EXTRANEOUS WORDS F0D22680
SXA SRCIN+1,1 SAVE NEW BLOCK COUNT F0D22690
CAL INSBF+13 LOAD WORD 13 (CC 73 - 78) F0D22700
SLW SRCID+1 SAVE LEADING CHARACTERS F0D22710
STL ORDRF SET SOURCE CARD FLAG F0D22720
TSX ORDER,4 *ASSEMBLE SERIALIZATION (CC 73 -80) F0D22730
SLW SRCID F0D22740
ERA BLANKS IS SERIALIZATION BLANK F0D22750
TNZ SRCNX NO F0D22760
STZ SRCID YES, SET ID TO ZERO F0D22770
STZ SRCID+1 F0D22780
SRCNX AXT **,4 RELOAD CALLING LINKAGE F0D22790
TRA 1,4 F0D22800
SRCID PZE ID (CC 75 - 80) FOR SOURCE CARD F0D22810
PZE ID (CC 73 - 78) FOR SOURCE CARD F0D22820
REM F0D22830
REM READ SOURCE INPUT TAPE F0D22840
RDSRC SXA RDSRX,4 SAVE CALLING LINKAGE F0D22850
AXC 1,1 LOAD BUFFER INDEX F0D22860
SXA *-1,1 FLIP BUFFER INDEX F0D22870
TSX (TAPE),4 *LOAD NEXT BUFFER F0D22880
PZE BCD34,1,(RDEP) F0D22890
PZE ,,MINTAP F0D22900
MZE SRCRR IS IT REDUNDANCY OR BINARY MODE $F0D22910
CLA BCD34+1,1 LOAD BUFFER ORIGIN F0D22920
PAX ,4 F0D22930
SXD *+3,4 F0D22940
LAC (SCHU)+MINTAP,4 LOAD LAST+1 WORD READ F0D22950
TXL EOFIN,4,0 ENDFIL DETECTED (26)F0D22960
TXI *+1,4,** NO, COMPUTE LENGTH OF RECORD F0D22970
SXD SRCIN+2,4 RESET TEST FOR END OF BUFFER F0D22980
CAL INRECT BUMP SOURCE INPUT RECORD COUNT F0D22990
ADD Q1 F0D23000
STA INRECT F0D23010
AXT 0,1 RESET BLOCK LENGTH F0D23020
SXA SRCIN+1,0 F0D23030
RDSRX AXT **,4 RELOAD CALLING LINKAGE F0D23040
TRA 1,4 F0D23050
REM F0D23060
REM ERROR ON SOURCE INPUT TAPE F0D23070
SRCRR STZ TTLFG KILL SUBTITLE (26)F0D23080
TRA ETEST $F0D23090
TSX (TAPE),4 PRINT ERROR MESSAGE $F0D23100
PZE *+4,,(TPER) FOR REDUNDANCY $F0D23110
MZE *+2,,MINTAP $F0D23120
TRA TAPERR $F0D23130
BCI 2,SOURCEREDUN $F0D23140
SRCRM BCI 4, INCOMPLETE MACRO DEF., (26)F0D23150
BCI 6,UNMATCHED RMT, OR MISSING END CARD (26)F0D23160
ECARD BCI 2,BINARY EOF (26)F0D23170
PZE (NOT USED) (26)F0D23180
REM F0D23190
REM LIST ORDER ERROR F0D23200
ORDER SXA ORDRX,4 SAVE CALLING LINKAGE F0D23210
SLW XERAS SAVE LEADING CHARACTERS (CC 73 - 78) F0D23220
LGL 12 ASSEMBLE ID F0D23230
SLW BERAS SAVE FOLLOWING CHARACTERS (CC 75 - 80) F0D23240
ERA BLANKS IS NEW ID BLANK F0D23250
TZE ORDR3+1 YES, OMIT ORDER CHECK F0D23260
CAL XERAS NO, LOAD NEW LEADING CHARACTERS F0D23270
LAS SEQID+1 IS CARD OUT OF ORDER F0D23280
TRA ORDR3+1 NO F0D23290
TRA *+2 MAYBE F0D23300
TRA ORDR1 YES F0D23310
CAL BERAS LOAD NEW FOLLOWING CHARACTERS F0D23320
LAS SEQID IS CARD OUT OF ORDER F0D23330
TRA ORDR3+1 NO F0D23340
TRA ORDR3+1 NO F0D23350
REM CARD IS OUT OF ORDER F0D23360
ORDR1 CAL INSBF+2 LOAD SOURCE WORD 2 F0D23370
ANA PKMSK MASK IN CC 8 - 10 F0D23380
ERA ENDMK IS IT END F0D23390
NZT ORDRF YES, IS ORDER ERROR ON UPDATE INPUT TAPE F0D23400
TZE ORDR3+1 YES, AVOID ORDER ERROR MESSAGE F0D23410
AXT 14,4 NO, PREPARE TO MOVE CARD OUT OF ORDER F0D23420
CAL INSBF+15,4 FROM SOURCE INPUT BUFFER F0D23430
NZT ORDRF IS SOURCE CARD IN ERROR F0D23440
CAL DELBF+15,4 NO, FROM UPDATE INPUT BUFFER F0D23450
SLW ORDBF+15,4 TO ORDER BUFFER F0D23460
TIX *-4,4,1 F0D23470
CAL SRCWD LOAD SOURCE LABEL F0D23480
NZT ORDRF IS SOURCE CARD IN ERROR F0D23490
CAL UPDWD NO, LOAD UPDATE LABEL F0D23500
SLW ORDBF+15 INSERT IN MESSAGE F0D23510
TSX FPRINT,4 *LIST CARD OUT OF ORDER F0D23520
ORDRS MZE ORDBF,,18 F0D23530
TSX FPRINT,4 *PRINT BLANK LINE F0D23540
PZE F0D23550
ORDR2 AXT 40,4 LOAD ORDER ERROR COUNT F0D23560
TIX ORDR3,4,1 IS COUNT EXCESSIVE F0D23570
TSX (PRNT),4 *YES, TELL OPERATOR F0D23580
PZE XORDR,,11 F0D23590
TSX SPACP,2 *LET OPERATOR CHECK F0D23600
AXT 40,4 RESET ORDER ERROR COUNT F0D23610
ORDR3 SXA ORDR2,4 SAVE ORDER ERROR COUNT F0D23620
REM REENTRY FOR CARD NOT OUT OF ORDER F0D23630
CAL BERAS RELOAD FOLLOWING CHARACTERS F0D23640
ORDRX AXT **,4 RELOAD CALLING LINKAGE F0D23650
TRA 1,4 F0D23660
SRCWD BCI 1,SOURCE F0D23670
UPDWD BCI 1,UPDATE F0D23680
ENDMK BCI 1,0END 0 MASK FOR END PSEUDOOPERATION F0D23690
SEQID PZE ID (CC 75 - 80) FOR LAST CARD USED F0D23700
PZE ID (CC 79 - 80) FOR LAST CARD USED F0D23710
REM F0D23720
REM PACK INTERMEDIATE, UPDATE BUFFERS F0D23730
OTPUT SXA OTPTX,4 SAVE CALLING LINKAGE F0D23740
AXT **,1 LOAD UPDATE OUTPUT TAPE BLOCK COUNT F0D23750
NZT OPTFLG IS UPDATE OUTPUT TAPE REQUESTED F0D23760
TRA OTPT1 NO F0D23770
MCREF TXH *+2,4,** YES, IS THIS MACRO EXPANSION F0D23780
REM (DECREMENT IS -1 FOR MACRO GENERATED CARD)F0D23790
TXL OTPT1,4,-1 YES, IS MACRO EXPANSION TO BE OUTPUT F0D23800
MCRDF TXH *+2,4,** NO, IS THIS MACRO DEFINITION OR CALL F0D23810
REM (DECREMENT IS -1 FOR MACRO CALL OR DEF) F0D23820
TXL OTPT1,4,** YES, IS MACRO CALL OR DEF TO BE OUTPUT F0D23830
REM (UMC FLIPS DECREMENTS MCREF+1, MCRDF+1) F0D23840
TXL *+4,1,0 YES, HAS THIS BLOCK BEEN STARTED F0D23850
NZT PAKFLG YES, IS UNBLOCKED OUTPUT TAPE REQUESTED F0D23860
UPBLK TXH *+2,1,-UPDBKL+UPDRCL-1 NO. IS BLOCK FULL (25)F0D23870
TSX WROPT,4 *YES, WRITE LAST BLOCK F0D23880
LAC WROP0,2 LOAD BUFFER INDEX F0D23890
AXT UPDRCL,4 LOAD RECORD LENGTH F0D23900
CAL BCDBF+UPDRCL,4 MOVE NEXT WORD F0D23910
SLW* BCD44+1,2 INTO UPDATE OUTPUT BUFFER F0D23920
TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0D23930
TIX *-3,4,1 IS CARD COMPLETE F0D23940
SXA OTPUT+1,1 YES, SAVE NEW BLOCK COUNT F0D23950
ZET PAKFLG IS UNBLOCKED OUTPUT TAPE REQUESTED F0D23960
TSX WROPT,4 *YES, WRITE THIS BLOCK F0D23970
SXD PAKFLG,0 RESET FLAG F0D23980
TRA OTPT1 F0D23990
REM ENTRY TO WRITE INTERMEDIATE TAPE ONLY F0D24000
OTPT0 SXA OTPTX,4 SAVE CALLING LINKAGE F0D24010
OTPT1 AXT **,1 LOAD INTERMEDIATE TAPE BLOCK WORD COUNT F0D24020
ZET DELFLG HAS ASSEMBLY BEEN DELETED F0D24030
TRA OTPTX YES F0D24040
CAL P1FLG NO, INSERT PASS 1 FLAGS F0D24050
OTPT2 TRA OTPT3 AS RIGHT HALF OF WORD 14 $F0D24060
TXL *+4,1,0 HAS THIS BLOCK BEEN STARTED F0D24070
NZT DUPFG YES, IS UNBLOCKED INTERMED TAPE REQUESTED F0D24080
TXH *+2,1,-INPBKL+INPRCL+INPREM-1 NO, IS BLOCK FULL F0D24090
TSX WRINT,4 *YES, WRITE LAST BLOCK F0D24100
LAC WRIN0,2 LOAD BUFFER LENGTH F0D24110
AXT INPRCL,4 LOAD RECORD LENGTH F0D24120
CAL BCDBF+INPRCL,4 MOVE NEXT WORD F0D24130
SLW* BCD54+1,2 INTO INTERMEDIATE OUTPUT BUFFER F0D24140
TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0D24150
TIX *-3,4,1 IS RECORD COMPLETE F0D24160
SXA OTPT1,1 YES, SAVE NEW BLOCK COUNT F0D24170
ZET DUPFG IS UNBLOCKED INTERMEDIATE TAPE REQUIRED F0D24180
TSX WRINT,4 *YES, WRITE THIS BLOCK F0D24190
STZ DUPFG RESET FLAG F0D24200
OTPTX AXT **,4 RELOAD CALLING LINKAGE F0D24210
ZSD MCREF RESET MACRO GENERATED CARD SWITCH F0D24220
TRA 1,4 F0D24230
REM F0D24240
REM WRITE UPDATE OUTPUT TAPE F0D24250
WROPT SXA WROPX,4 SAVE CALLING LINKAGE F0D24260
LAC OTPUT+1,1 LOAD UPDATE OUTPUT TAPE BLOCK WORD COUNT F0D24270
TXL WROPX,1,0 IS BLOCK EMPTY F0D24280
PXD ,1 NO, SET BLOCK LENGTH F0D24290
WROP0 AXC 1,1 LOAD BUFFER INDEX F0D24300
SXA *-1,1 FLIP BUFFER INDEX F0D24310
STD BCD44,1 INITIALIZE I/O COMMAND WORD COUNT F0D24320
TSX (TAPE),4 *WRITE UPDATE OUTPUT TAPE F0D24330
PZE BCD44,1,(WDNP) F0D24340
OPDTAP PZE ,,** F0D24350
PZE TAPERR F0D24360
CAL OPRECT BUMP UPDATE OUTPUT TAPE RECORD COUNT F0D24370
ADD Q1 F0D24380
STA OPRECT F0D24390
AXT 0,1 RESET BLOCK LENGTH F0D24400
SXA OTPUT+1,0 F0D24410
WROPX AXT **,4 RELOAD CALLING LINKAGE F0D24420
TRA 1,4 F0D24430
REM F0D24440
REM WRITE INTERMEDIATE TAPES F0D24450
WRINT SXA WRINX,4 SAVE CALLING LINKAGE F0D24460
LXA READ1,2 LOAD INTERMEDIATE TAPE INDEX F0D24470
LAC OTPT1,1 LOAD INTERMEDIATE TAPE BLOCK WORD COUNT F0D24480
TXL WRINX,1,0 IS BLOCK EMPTY F0D24490
PXD ,1 NO, SET BLOCK LENGTH F0D24500
WRIN0 AXC 1,1 LOAD BUFFER INDEX F0D24510
SXA *-1,1 FLIP BUFFER INDEX F0D24520
STD BCD54,1 INITIALIZE I/O COMMAND WORD COUNT F0D24530
TSX (TAPE),4 *WRITE INTERMEDIATE RECORD F0D24540
PZE BCD54,1,(WBNP) F0D24550
PZE INTAP,2,-1 F0D24560
PZE TAPERR F0D24570
AXT 0,1 RESET BLOCK LENGTH F0D24580
SXA OTPT1,0 F0D24590
WRINX AXT **,4 RELOAD CALLING LINKAGE F0D24600
TRA 1,4 F0D24610
TTL PASS ONE CONTROL F0D24620
START AXT 1,1 SET FLAG FOR ENTRY INTO $F0D24660
SXA (MSLN),1 ERROR RECORDS F0D24670
TSX (TAPE),4 *REWIND FIRST INTERMEDIATE TAPE F0D24680
PZE REWND,,(SKBP) F0D24690
PZE ,,FINTAP F0D24700
DCT TURN OFF TRIGGER F0D24710
NOP F0D24720
CAL (DATE) LOAD JOB DATE F0D24730
TZE NDATE IS THERE A PRESUMPTIVE DATE F0D24740
ANA BLANKS YES, MASK IN ZONE BITS F0D24750
TNZ NDATE IS DATE VALID F0D24760
LDQ (DATE) YES, RELOAD APPARENTLY VALID DATE F0D24770
LGL 6 F0D24780
TNZ *+2 IS IT A TWO-DIGIT MONTH F0D24790
CAL BLANK NO, BLANK OUT FIRST DIGIT F0D24800
LGL 6 LEFT ADJUST SECOND DIGIT IN MONTH F0D24810
ALS 6 F0D24820
ORA SLASH APPEND SLASH F0D24830
LGL 12 LEFT ADJUST TWO DIGIT DAY F0D24840
ALS 6 F0D24850
ORA SLASH APPEND SLASH F0D24860
SLW PGHDNG+14 INSERT IN WORD IS OF PAGE HEADING F0D24870
LGL 12 LEFT ADJUST TWO DIGIT YEAR F0D24880
LDQ BLANKS FOLLOWED BY BLANKS F0D24890
LGL 24 F0D24900
SLW PGHDNG+15 INSERT IN WORD 16 OF PAGE HEADING F0D24910
NDATE LXD SYMSIZ,4 LOAD LENGTH OF SYSTEM SYMBOL TABLE F0D24920
SXD *+2,4 INITIALIZE COMPUTATION TO SAVE SST F0D24930
AXT TOPTAB-BOTTAB,4 PREPARE TO CLEAR MEMORY F0D24940
TXI *+1,4,** SAVE SYSTEM SYMBOL TABLE F0D24950
STZ TOPTAB+1,4 CLEAR REST OF MEMORY F0D24960
TIX *-1,4,1 F0D24970
LXD OPTSIZ,4 INITIALIZE TEST F0D24980
TXI *+1,4,-1 F0D24990
SXD SOPT1,4 FOR END OF OPTABLE SEARCH F0D25000
LXD MOPTR,2 LOAD INITIAL BOTTOM OF MACRO TABLE F0D25010
SXD MAC07,2 SET MACRO EXPANSION TABLE OVERFLOW TEST F0D25020
SXD ESYMZ,2 AND SYMBOL TABLE OVERLAP TEST $F0D25030
AXT ,0 $F0D25040
TSX (TAPE),4 *REWIND SECOND INTERMEDIATE TAPE F0D25050
PZE REWND,,(SKDP) F0D25060
PZE ,,SINTAP F0D25070
LDI (ENDS) LOAD END CARD SETTINGS F0D25080
RNT 040000 IS END CARD SETTING 1 SPECIFIED F0D25090
STL CRDFLG NO, SET ONLINE CARDS FLAG F0D25100
RFT 010000 IS END CARD SETTING 3 SPECIFIED F0D25110
SXD WRIT1,0 YES, SET ONLINE PRINT SWITCH F0D25120
RFT 004000 IS END CARD SETTING 4 SPECIFIED F0D25130
STL ONLCFG YES, SET ONLINE COLUMN BINARY FLAG F0D25140
RFT 000400 IS END CARD SETTING 7 SPECIFIED F0D25150
STL LBLFLG YES, SET CARD LABEL FLAG F0D25160
RNT 000100 IS END CARD SETTING 9 SPECIFIED F0D25170
STL OFLCFG NO, SET OFFLINE COLUMN BINARY FLAG F0D25180
ENDC TRA FRPA1 YES, CHECK PACK/UNPACK OPTIONS $F0D25190
PZE $F0D25200
CAL BLANKS SET ID BLANK EX NEW C/T SIMULATOR F0D25210
SLW BBUF31+12 F0D25220
SLW BBUF31+13 F0D25230
SLW BBUF32+12 F0D25240
SLW BBUF32+13 F0D25250
STL (SCHU)+MINTAP RESET HANGING END OF FILE F0D25260
REM LEFT BY NONSTANDARD MONITOR F0D25270
REM VIOLATING RULES OF IOP F0D25280
REM TSK, TSK, TSK F0D25290
TSX RDSRC,4 *START LOOKAHEAD BUFFERING F0D25300
TRA SOURC F0D25310
REM F0D25320
REM CONTROL ROUTINE FOR DELETED ASSEMBLIES F0D25330
DPAS1 TSX SETUP,4 *FIND OPCODE F0D25340
TRA COMCD MAY BE * CONTROL CARD F0D25350
TRA READ3+1 IMPROPER OPCODE (24)F0D25360
ZSD READ2 GUARD AGAINST ACCIDENTAL REWIND (24)F0D25370
ZSA COMCD SET FLAG TO BLOCK COMMENTS CARD (24)F0D25380
TSX CKUPD,4 *IS OPCODE AN UPDATE PSEUDOOPERATION (24)F0D25390
TRA READ3+1 NO (24)F0D25400
TRA PSOPT YES, PROCESS IT (24)F0D25410
PZE (NOT USED) (24)F0D25420
PZE (NOT USED) (24)F0D25430
REM F0D25440
REM CARD IS COMMENTS CARD F0D25450
COMCD AXT -1,2 SET FLAG TO UNBLOCK UPDATE OUTPUT TAPE F0D25460
SXD PAKFLG,2 F0D25470
TXH READ1,4,-1 IS THIS FIRST COMMENTS CARD F0D25480
TRA STP0A YES, WHAT KIND $F0D25490
ZET FCFLG IS THIS FIRST CARD GROUP F0D25500
TRA READ1 NO F0D25510
CAL BLANK YES, DELETE ASTERISK F0D25520
LGR 6 F0D25530
AXT 12,4 F0D25540
STQ PGHDNG+13,4 INSERT CC 2 - 72 F0D25550
LDQ BCDBF+13,4 INTO WORDS 2 - 13 OF PAGE HEADING F0D25560
TIX *-2,4,1 F0D25570
NZT OPTFLG IS UPDATE OUTPUT TAPE REQUIRED F0D25580
TRA SOURC NO F0D25590
REM F0D25600
REM F0D25610
REM REENTRY TO WRITE CARD F0D25620
READ1 AXT 0,2 LOAD INTERMEDIATE TAPE INDEX F0D25630
AXT 1000,4 LOAD FIRST INTERMEDIATE TAPE RECORD LIMIT F0D25640
NZT DUPMD IS THIS RECORD IN RANGE OF A DUP CARD F0D25650
TRA READ2 NO F0D25660
REM F0D25670
REM CARD IS WITHIN RANGE OF DUP F0D25680
STL DUPFG SET FLAG TO UNBLOCK INTERMEDIATE TAPE F0D25690
DUPCD AXT **,4 LOAD COUNT OF CARDS REMAINING IN DUP F0D25700
TXL DUPC1,4,0 IS DUP EXHAUSTED F0D25710
TXI *+1,4,-1 NO, BUMP COUNT DOWN F0D25720
SXA DUPCD,4 RESET DUP CARD COUNT F0D25730
LXA READ1+1,4 RELOAD COUNT FOR FIRST INTERMEDIATE TAPE F0D25740
TIX READ3,4,1 IS FIRST INTERMEDIATE TAPE FULL F0D25750
TRA READ3+1 YES, BUT DO NOT SWITCH TAPES F0D25760
REM RANGE OF DUP IS EXHAUSTED F0D25770
DUPC1 CAL LOCTR COMPUTE NET LENGTH OF DUP F0D25780
SUB DUPCT+1 F0D25790
XCA F0D25800
VLM DUPCT,,18 COMPUTE GROSS LENGTH OF DUP F0D25810
STO BERAS SAVE LENGTH OF BUMP F0D25820
ADD DUPCT+1 F0D25830
STA LOCTR RESET PROGRAM COUNTER F0D25840
CLA BERAS RECALL LENGTH OF BUMP F0D25850
ADD DUPCT+2 RESET CARD STORAGE COUNTER F0D25860
STA CDCTR F0D25870
STZ DUPMD RESET FLAG F0D25880
TRA READ3+1 F0D25890
REM CARD IS NOT WITHIN RANGE OF DUP F0D25900
READ2 TIX READ3,4,1 IS FIRST INTERMEDIATE TAPE FULL F0D25910
TSX (TAPE),4 *YES, WRITE END FILE F0D25920
PZE ,,(WEFP) F0D25930
PZE INTAP,,-1 F0D25940
PZE TAPERR F0D25950
TSX (TAPE),4 *REWIND FIRST INTERMEDIATE TAPE F0D25960
PZE REWND,,(SKBP) F0D25970
PZE INTAP,,-1 F0D25980
AXT -1,2 SWITCH TO SECOND INTERMEDIATE TAPE $F0D25990
AXT -1,4 $F0D25995
SXA READ1,2 RESET INTERMEDIATE TAPE INDEX F0D26000
SXD READ2,0 DELETE INTERMEDIATE TAPE FULL TEST F0D26010
REM REENTRY FOR UNSWITCHED TAPES, CARD WITHIN RANGE OF DUP F0D26020
READ3 SXA READ1+1,4 SAVE INTERMEDIATE TAPE COUNT F0D26030
TSX OTPUT,4 *WRITE INTERMEDIATE/UPDATE RECORD F0D26040
REM REENTRY FOR CARDS NOT WRITTEN ON INTERMEDIATE TAPES F0D26050
REM INCLUDING PAGE HEADING, UPDATE PSEUDOOPERATIONS, F0D26060
REM OR AFTER CARDS OUTPUT INDEPENDENTLY BY MACRO PROCESSOR F0D26070
SOURC TXI *+1,,** IS NEXT CARD TO BE MACRO GENERATED F0D26080
REM (POINTER TO NEXT HIGHER LEVEL SWITCH) F0D26090
TSX INPUT,4 *NO, GET NEXT SOURCE/UPDATE CARD F0D26100
REM F0D26110
REM PROCESS CARD SUCCESSFULLY READ F0D26120
ZET DELFLG IS ASSEMBLY DELETED F0D26130
TRA DPAS1 YES F0D26140
STZ P1FLG NO, CLEAR PASS 1 FLAGS F0D26150
REM REENTRY FOR MACRO GENERATED CARDS F0D26160
CNTRL SLF TURN OFF FLAGS F0D26170
STZ SYMBL CLEAR SYMBOL F0D26180
STZ LITRL CLEAR VALUE OF LITERAL OR PSEUDOOPERATION F0D26190
STZ OPBIN CLEAR INSTRUCTION, PSEUDOOP TRANSFER F0D26200
CLA LOCTR UPDATE PROGRAM COUNTER F0D26210
STO ADDRS F0D26220
TSX SETUP,4 *SET UP VARIABLE FIELD F0D26230
TRA COMCD CARD IS COMMENTS CARD F0D26240
SLN EXPRR OP FIELD IS IN ERROR F0D26250
SXA COMCD,0 RESET FLAG TO BLOCK COMMENTS CARDS F0D26260
ROUTE TXI *+1,,** IS THIS CARD MACRO DEFINING F0D26270
REM (POINTER TO NEXT HIGHER LEVEL SWITCH) F0D26280
SLT EXPRR NO, IS OP FIELD IN ERROR F0D26290
TRA *+2 NO F0D26300
TRA INSTR YES F0D26310
ZET ETCMD DOES THIS CARD FOLLOW CALL OR VFD F0D26320
TRA ETCOP YES F0D26330
CAL OPCOD NO, RELOAD OPERATION CODE F0D26340
TSX SOPTB,4 *FIND OPERATION IN COMBINED OPERATION TABLEF0D26350
TRA INSTR NOT FOUND F0D26360
STI OPBIN SAVE FOR PASS TWO F0D26370
RNT 100000 IS THIS A PSEUDOOPERATION F0D26380
TRA PSOPT YES F0D26390
REM OPCODE IS MACHINE OPERATION F0D26400
REM REENTRY FOR IMPROPER USE OF PSEUDOOP, IMPROPER OP FIELD F0D26410
INSTR NZT CNTFG HAS CARD COUNT BEEN GIVEN F0D26420
TRA *+4 YES F0D26430
CNTFG TSX WRITT,4 *NO, WRITE NO COUNT MESSAGE F0D26440
IOCD NOCNT,,5 F0D26450
STZ CNTFG RESET SWITCH F0D26460
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D26470
CLA Q1 F0D26480
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D26490
CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0D26500
SUB EQUAL IS CHARACTER = F0D26510
TZE LITOP YES F0D26520
SUB MINUS IS CHARACTER $ F0D26530
NZT ABSFLG MAYBE, BUT IGNORE IT IN ABS ASSEMBLY F0D26540
TZE DOLOP YES F0D26550
TRA READ1 F0D26560
REM F0D26570
REM F0D26580
REM END OF INPUT TAPE F0D26590
ENDFA AXT ENDF1,4 RESET ERROR RETURN FOR BINARY INPUT F0D26600
SXA SRCRR+1,4 FOLLOWING END CARD F0D26610
TSX (TAPE),4 *BACKSPACE OVER END FILE OR LOOKAHEAD CARD F0D26620
PZE BSREC,,(SKDP) F0D26630
PZE ,,MINTAP F0D26640
CAL INRECT UNBUMP SOURCE INPUT RECORD COUNT F0D26650
SUB Q1 F0D26660
STA INRECT F0D26670
ENDF1 ZET IPTFLG IS UPDATE INPUT TAPE PROVIDED F0D26680
TSX UPDCL,4 *YES, BACKSPACE OVER LOOKAHEAD CARDS F0D26690
NZT OPTFLG IS AN UPDATE OUTPUT TAPE REQUESTED F0D26700
TRA *+4 NO F0D26710
TSX (TAPE),4 *YES, CLOSE OUT UPDATE OUTPUT TAPE F0D26720
PZE Q0,,(SKDP) F0D26730
PZE OPDTAP,,-1 F0D26740
NZT DELFLG IS ASSEMBLY DELETED F0D26750
TRA ENDFC NO F0D26760
TSX WRFBK,4 YES, WRITE LAST PARTIAL LISTING BUFFER F0D26770
AXT ENDFB,4 RESET ERROR RETURN F0D26780
SXA TAPERR+1,4 F0D26790
AXT 6,1 $F0D26800
TSX (TAPE),4 *CLOSE OUT ALL TAPES F0D26810
PZE 8,1,(CHKU) CLOSE OUT TAPES 2 THRU 7 $F0D26820
ENDFB TIX *-2,1,1 F0D26830
TSX (TAPE),4 *SPACE OVER PASS 2 F0D26840
PZE Q1,,(SKBP) F0D26850
PZE ,,SYSTAP F0D26860
TRA LOADER F0D26870
ENDFC LXD RMTEN+1,1 LOAD POINTER TO REMOTE SEQUENCES F0D26880
TXL ENDFD,1,0 ARE THERE ANY REMOTE SEQUENCES F0D26890
AXT 6,4 YES, MOVE COMMENT INTO CARD IMAGE F0D26900
CAL RMTCD+6,4 F0D26910
SLW BCDBF+6,4 F0D26920
TIX *-2,4,1 F0D26930
AXT 8,4 FILL CARD IMAGE WITH BLANKS F0D26940
CAL BLANKS F0D26950
SLW BCDBF+14,4 F0D26960
TIX *-1,4,1 F0D26970
SXA BCDBF+13,0 DELETE PASS 1 FLAGS F0D26980
AXT 5$REMOP,4 SET PASS TWO TRANSFER TO PRINT CARD F0D26990
SXD OPBIN,4 F0D27000
TSX OTPT0,4 *WRITE REMOTE HEADING $F0D27010
AXT ENDFD,4 PREVENT ANY FURTHER READING F0D27020
SXA SOURC,4 OF SOURCE INPUT TAPE F0D27030
TSX RMTSR,4 *EXPAND REMOTE SEQUENCES F0D27040
ENDFD TSX WRINT,4 *WRITE LAST PARTIAL INTERMEDIATE BLOCK F0D27050
TXH ENDFE,2,0 IS THIS FIRST INTERMEDIATE TAPE F0D27060
TSX (TAPE),4 *YES, WRITE END FILE ON FIRST INT TAPE F0D27070
PZE ,,(WEFP) F0D27080
PZE INTAP,,-1 F0D27090
PZE TAPERR F0D27100
TSX (TAPE),4 *REWIND FIRST INTERMEDIATE TAPE F0D27110
PZE REWND,,(SKBP) F0D27120
PZE INTAP,,-1 F0D27130
TSX (TAPE),4 *WRITE EMPTY RECORD ON SECOND INTERM TAPE F0D27140
PZE P7,,(WBNP) $F0D27150
PZE INTAP+1,,-1 F0D27160
PZE TAPERR F0D27170
ENDFE TSX (TAPE),4 *WRITE END FILE ON SECOND INTERM TAPE F0D27180
PZE ,,(WEFP) F0D27190
PZE INTAP+1,,-1 F0D27200
PZE TAPERR F0D27210
TSX (TAPE),4 *REWIND SECOND INTERMEDIATE TAPE F0D27220
PZE REWND,,(SKBP) F0D27230
PZE INTAP+1,,-1 F0D27240
REM PREPARE PROGRAM CARD F0D27250
ENDFF TRA ENDFP CHECK FOR EVEN OP WITH ODD PROLOGUE $F0D27260
ZET SEPFLG IS STANDARD ERROR PROCEDURE REQUESTED F0D27270
ZET MAINPF YES, IS THIS A SUBPROGRAM F0D27280
TRA *+2 NO, STORE PROLOGUE LENGTH $F0D27290
ADD Q2 YES, BUMP BY LENGTH OF LINKAGE DIRECTOR F0D27300
STA PBUFF1+5 SAVE ENTRY POINT PC 7R ADDRESS F0D27310
STA PROLG SAVE LENGTH OF RELOCATION F0D27320
CLA CDCTR COMPUTE PROGRAM BREAK F0D27330
CAS PRGBK IS THIS PORTION OF PROGRAM LONGER F0D27340
STA PRGBK YES F0D27350
NOP NO F0D27360
CLA PRGBK LOAD LENGTH OF PROGRAM F0D27370
ADD PBUFF1+5 ADD LENGTH OF TRANSFER VECTOR AND PROLOG F0D27380
STA PBUFF1+2 SAVE ACTUAL PROGRAM BREAK PC 8L ADDRESS F0D27390
LDC LSCH1,2 ADD LENGTH OF LITERAL TABLE F0D27400
TXI *+1,2,-2 F0D27410
PXA ,2 F0D27420
ADD PRGBK TO END OF PROGRAM F0D27430
STA ADDRS F0D27440
CAL ENDOP LOAD END CARD LOCATION SYMBOL F0D27450
TSX ESYMT,4 *DEFINE PROGRAM BREAK F0D27460
REM F0D27470
REM PREPARE FOR PASS TWO TABLE SEARCHES F0D27480
LDC LSCH1,2 COMPUTE LENGTH OF LITERAL TABLE F0D27490
TXI *+1,2,-1 F0D27500
SXD LITSIZ,2 F0D27510
PXA ,2 COMPUTE LOGARITHM OF TABLE LENGTH F0D27520
AXT 2,2 PREPARE FOR ONE-WORD ENTRIES F0D27530
ARS 1 DIVIDE TABLE IN HALF F0D27540
TZE *+2 HAS TABLE DISAPPPEARED F0D27550
TXI *-2,2,1 NO, BUMP LOGARATHM F0D27560
PXA ,2 F0D27570
ALS 1 F0D27580
STA LITSIZ F0D27590
LDC SYMSIZ,2 DITTO FOR SYMBOL TABLE F0D27600
SXD SYMSIZ,2 F0D27610
PXA ,2 F0D27620
AXT 1,2 BUT TABLE IS OF TWO WORD ENTRIES F0D27630
ARS 1 F0D27640
TZE *+2 F0D27650
TXI *-2,2,1 F0D27660
PXA ,2 F0D27670
ALS 1 F0D27680
STA SYMSIZ F0D27690
ZET ABSFLG IS THIS PROGRAM ABSOLUTE F0D27700
TRA REL02+1 YES F0D27710
CLA UPCTR NO, COMPUTE COMMON BREAK F0D27720
ENDCF TXL *+2,4,-1 IS THERE ANY COMMON F0D27730
STA PBUFF1+3 YES, SAVE COMMON BREAK PC 8R ADDRESS F0D27740
CLA PBUFF1+3 SET COMMON BREAK FLAG F0D27750
SLW UPCTR STORE IT WITHOUT SIGN $F0D27760
REM RELOCATE SYMBOL TABLE F0D27770
LDC SYMSIZ,4 LOAD LENGTH OF SYMBOL TABLE F0D27780
TXL SORT9,4,0 IS THERE A SYMBOL TABLE F0D27790
SXD REL02,4 YES, SET END OF SYMBOL TABLE TEST F0D27800
AXT 0,4 START WITH BOTTOM OF TABLE F0D27810
REL01 LDI SYMTBL+1,4 LOAD NEXT ADDRESS F0D27820
LFT 1 IS SYMBOL RELOCATABLE F0D27830
LFT 4 YES, IS IT ABOVE TRANSFER VECTOR F0D27840
TXI REL02,4,-2 NO, BUMP TO NEXT ENTRY F0D27850
PIA YES, RELOCATE SYMBOL UPWARD F0D27860
ADD PBUFF1+5 BY LENGTH OF TRANSFER VECTOR AND PROLOG F0D27870
STA SYMTBL+1,4 INSERT IN SYMBOL TABLE F0D27880
TXI REL02,4,-2 BUMP TO NEXT ENTRY F0D27890
REL02 TXH REL01,4,** IS TABLE FINISHED F0D27900
REM SORT SYMBOL TABLE F0D27910
REM THE ALGORITHM FOR THIS SORT HAS APPEARED IN AN ISSUE OF F0D27920
REM ACM AND WAS ADAPTED FOR 709 USE BY THE DEES CANTOR AND F0D27930
REM MOORE. IT IS A RADIX 2 SORT, AND SORTS ON BITS IN F0D27940
REM DESCENDING ORDER FROM 0 (SIGN) BIT TO BIT 35 F0D27950
REM SORTB CONTAINS (COMPLEMENT OF) LOCATION OF FIRST SYMBOL F0D27960
REM SORTA CONTAINS (COMPLEMENT OF) LOCATION OF LAST SYMBOL F0D27970
REM SORTA+N CONTAIN (COMPLEMENT OF) LOCATION OF BREAK F0D27980
REM BETWEEN 0 AND 1 BIT ON -N KEY (E.G. SORTA+35, F0D27990
REM KEY 0 (SIGN) BIT, SORTA+34 BIT 1). THIS IS TO F0D28000
REM DELIMIT SUBSORTS ON LOWER ORDER BITS. IF NO F0D28010
REM SUBSORT IS NECESSARY (LOWER ORDER BITS DO NOT F0D28020
REM EXIST, OR FALL RANDOMLY IN PROPER ORDER) EMPTY F0D28030
REM KEY CONDITION IS INDICATED BY SORTA+N = SORTA+N+1F0D28040
REM IF TWO SYMBOL NAMES FALL INTO SAME KEY GROUP DOWN TO BIT F0D28050
REM 35, THEY ARE IDENTICAL AND ENTERED INTO DUPICATELY F0D28060
REM DEFINED SYMBOL LIST WITH EVERY ADDRESS WITHIN KEY. F0D28070
REM AS SORT IS COMPLETED (EMPTY KEY GROUPS) AT THE UPPER AND F0D28080
REM LOWER EXTREMITIES OF THE SORT, SORTA AND SORTB ARE BUMPEDF0D28090
REM DOWN AND UP (COMPLEMENT) RESPECTIVELY. F0D28100
REM IF SORT FAILS, IE UNDEFINED SYMBOLS WHICH APPEAR IN F0D28110
REM LOCATION FIELDS, CHECK THE SENSE INDICATORS FOR MACHINE F0D28120
REM ERROR. THIS IS THE BEST KNOWN TEST OF SENSE INDICATORS F0D28130
LXD SYMSIZ,2 COMPUTE ACTUAL LENGTH OF SYMBOL TABLE F0D28140
TNX SORT9,2,2 HAS TABLE ONLY ONE ENTRY F0D28150
TXI *+1,2,SYMTBL NO, COMPUTE LOCATION OF LAST NAME IN TABLEF0D28160
PXA ,2 F0D28170
PAC ,2 F0D28180
SXA SORTA,2 SAVE COMPLEMENT OF LOCATION F0D28190
AXT 36,1 PREPARE TO SORT ON BIT 0 (SIGN BIT) F0D28200
REM REENTRY TO SORT ON NEXT BIT F0D28210
SORT1 LXA SORTB,4 LOAD POSITION OF CURRENT START OF SORT F0D28220
CLA SORTA+36,1 LOAD POSITION OF CURRENT END OF SORT BLOCKF0D28230
PAX ,2 F0D28240
CAL SRTBT+36,1 LOAD CURRENT SORTING BIT F0D28250
TXI SORT3,2,-2 BUMP TO ORG FOLLOWING LAST NAME IN BLOCK F0D28260
REM REENTRY FOR SYMBOL NAME EQUAL TO KEY (KEY BIT = 1) F0D28270
SORT2 TXI *+1,4,-2 BUMP CURRENT SYMBOL INDEX UP F0D28280
TXI *+1,2,2 BUMP ORIGIN DOWN ONE SYMBOL F0D28290
SXD *+1,4 INITIALIZE TEST FOR END OF MOVE LOOP F0D28300
TXH SORT5,2,** IS SYMBOL AT END OF SORT F0D28310
LDI 0,2 NO, LOAD NEXT SYMBOL F0D28320
TIF *+2 IS THIS SYMBOL LOCICALLY LOWER (KEY BIT=0)F0D28330
TXI *-3,2,2 NO, BUMP TO NEXT SYMBOL F0D28340
LDQ -2,4 YES, INTERCHANGE SYMBOL NAMES F0D28350
STI -2,4 F0D28360
STQ 0,2 F0D28370
LDI 1,2 INTERCHANGE LOCATIONS F0D28380
LDQ -1,4 F0D28390
STI -1,4 F0D28400
STQ 1,2 F0D28410
SORT3 SXD *+1,2 SET TEST FOR LOCATION OF LAST SYMBOL NAME F0D28420
TXL SORT5,4,** IS CURRENT SYMBOL AT END OF SORT F0D28430
LDI 0,4 NO, LOAD CURRENT SYMBOL NAME F0D28440
TIO SORT2 DOES CURRENT SYMBOL NAME CONTAIN KEY BIT=1F0D28450
TXI *-3,4,-2 NO, BUMP TO NEXT SYMBOL NAME F0D28460
REM KEY IS NOT EMPTY F0D28470
SORT4 CLA SORTA+36,1 LOAD END OF NEXT BLOCK F0D28480
TRA SORT5+2 F0D28490
REM SORT ON THIS BIT IN CURRENT BLOCK IS FINISHED F0D28500
SORT5 TXI *+1,2,2 BUMP ORIGIN DOWN ONE SYMBOL F0D28510
PXA ,2 F0D28520
STA SORTA+37,1 SAVE BREAK BETWEEN 0 AND 1 BITS THIS BLOCKF0D28530
CAS SORTB IS THIS BLOCK EMPTY F0D28540
TRA SORT4 NO, BUMP BREAK TO NEXT BLOCK F0D28550
TRA SORT7 YES, BUMP START OF SORT TO NEXT BLOCK F0D28560
SORT6 TIX SORT1,1,1 NO, ARE ALL KEYS EXHAUSTED F0D28570
REM SYMBOL IS MULTIPLY DEFINED F0D28580
CAL D8 LOAD DUPLICATELY-DEFINED SYMBOL FLAG F0D28590
LXA SORTA+36,2 LOAD BEGINNING OF DD SYMBOL BLOCK F0D28600
LXA SORTB,4 LOAD END OF DD SYMBOL BLOCK F0D28610
SXD *+3,4 SET TEST FOR END OF LOOP F0D28620
ORS 1,2 FLAG THIS SYMBOL F0D28630
TXI *+1,2,2 BUMP TO NEXT SYMBOL F0D28640
TXL *-2,2,** IS BLOCK COMPLETELY FLAGGED F0D28650
AXT 1,1 YES, RESET KEY INDEX TO BIT 35 F0D28660
CLA SORTA+36 DELETE BLOCK INCLUDING F0D28670
SUB Q2 DUPICATELY DEFINED SYMBOL F0D28680
STA SORTB F0D28690
CLA SORTA+35 BUMP BREAK UP TO NEXT BLOCK F0D28700
STA SORTA+36 F0D28710
CAS SORTB IS NEXT BLOCK EMPTY F0D28720
STA SORTB NO, DELETE NEXT BLOCK F0D28730
TRA SORT8 YES, GO TEST FOR END OF SORT F0D28740
TRA SORT6+1 NO, FLAG NEXT DD SYMBOL BLOCK F0D28750
REM REENTRY FOR EMPTY BLOCK F0D28760
SORT7 SUB Q2 BUMP START OF SORT UP TO NEXT BLOCK F0D28770
STA SORTB F0D28780
LDQ SORTA+36,1 BUMP BREAK UP TO NEXT BLOCK F0D28790
STQ SORTA+37,1 F0D28800
TLQ SORT6 IS THIS BLOCK EMPTY F0D28810
REM REENTRY AFTER FLAGGING MULTIPLY DEFINED SYMBOL F0D28820
SORT8 TXH SORT9,1,35 YES, IS SORT COMPLETE F0D28830
LDQ SORTA+35,1 NO, BUMP END OF SORT DOWN ONE BLOCK F0D28840
STQ SORTA+36,1 F0D28850
TLQ *+2 IS THIS BLOCK EMPTY F0D28860
TXI SORT8,1,1 YES, BUMP KEY INDEX UP TO NEXT KEY F0D28870
SUB Q2 BUMP START OF SORT UP TO NEXT SYMBOL F0D28880
STA SORTB F0D28890
TLQ SORT1 IS THIS BLOCK EMPTY F0D28900
TXI SORT8,1,1 YES, BUMP KEY INDEX TO NEXT KEY F0D28910
REM END OF SORT F0D28920
SORT9 TRA JPLCH *CALL PASS TWO. $F0D28930
TTL PASS ONE PSEUDOOPERATION PROCESSOR F0D28940
PSOPT ZET INDFG IS PSEUDOOPERATION INDIRECTLY ADDRESSED F0D28950
TRA OPERR **YES F0D28960
LXD VRFLD,2 NO, RELOAD WORD COUNT F0D28970
LXA VRFLD,1 RELOAD CHARACTER COUNT F0D28980
PIA RECALL TRANSFER ADDRESS F0D28990
STA *+1 INITIALIZE TRANSFER F0D29000
TRA ** F0D29010
REM F0D29020
704OP AXT 11,4 RESET NUMBER OF COLUMNS PRECEEDING F0D29030
SXA CMPVF,4 VARIABLE FIELD FOR MACRO GENERATED CARD F0D29040
TRA READ1 F0D29050
REM F0D29060
709OP AXT 15,4 RESET NUMBER OF COLUMNS PRECEEDING F0D29070
SXA CMPVF,4 VARIABLE FIELD FOR MACRO GENERATED CARD F0D29080
TRA READ1 F0D29090
REM F0D29100
ABSOP ZET ABSFLG IS ASSEMBLY ABSOLUTE F0D29110
TRA ABS01 YES F0D29120
ZET MAINPF MAYBE, WAS THERE A PRECEDING ENTRY CARD F0D29130
ZET FCFLG NO, IS THIS FIRST CARD GROUP F0D29140
TRA OPERR **NO, TOO LATE F0D29150
STL ABSFLG YES, SET ABSOLUTE ASSEMBLY FLAG F0D29160
STZ SEPFLG RESET STANDARD ERROR PROCEDURE FLAG F0D29170
STZ PBUFF1 DELETE PROGRAM CARD 9L PREFIX, WORD COUNT F0D29180
SXD LOCTR,0 DELETE RELOCATION BITS F0D29190
ABS01 TRA READ1 F0D29200
REM F0D29210
BCDOP CAL BCDBF+1 LOAD CARD WORD 2 F0D29220
ANA Q63 MASK IN CC 12 F0D29230
LAS BLANK IS IT BLANK F0D29240
TRA BCI02+3 NO, IT IS ILLEGAL F0D29250
TRA BCI01 YES (FULL CARD) F0D29260
TZE BCI01 NO, IS IT ZERO (FULL CARD) F0D29270
TRA BCI02+1 NO F0D29280
REM F0D29290
BCIOP CLA CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0D29300
TZE BCI03 $F0D29310
SUB COMMA NO, IS IT COMMA F0D29320
TNZ BCI02 NO F0D29330
TXH BCI02,1,2 YES, IS COMMA IN CC 12 F0D29340
TXL BCI02,1,1 MAYBE F0D29350
BCI01 CLA Q10 YES F0D29360
TRA BCI03 F0D29370
BCI02 ADD COMMA RESTORE FIRST CHARACTER F0D29380
CAS Q10 IS IT LEGAL F0D29390
NOP NO F0D29400
CLA Q1 NO, SET IT TO 1 F0D29410
REM (MACHINE ERROR WILL BE CAUGHT PASS 2) F0D29420
BCI03 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D29430
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D29440
TRA READ1 F0D29450
REM F0D29460
BESOP SXD BSS01,0 SET BES SWITCH F0D29470
TRA BSSOP+1 F0D29480
REM F0D29490
BSSOP SXD BSS01,2 SET BSS SWITCH F0D29500
TSX SCANF,4 *EVALUATE LENGTH OF BLOCK F0D29510
TXI AFLAG,,0 NULL BLOCK LENGTH F0D29520
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D29530
ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D29540
TRA PHASE **YES F0D29550
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D29560
LDI Q0 PRESET SYMBOL LOC TO BEGINNING OF BLOCK F0D29570
BSS01 TXL *+3,1,** IS PSEUDOOP BES F0D29580
STA ADDRS YES, DEFINE SYMBOL AT END OF BLOCK F0D29590
LDI VAREQ F0D29600
PIA RECALL SYMBOL DEFINITION F0D29610
ALS 18 CONSTRUCT LENGTH,,DEFINITION FOR PASS 2 F0D29620
ADD VAREQ F0D29630
SLW LITRL F0D29640
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D29650
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D29660
TRA FIELD **NO F0D29670
TRA READ1 YES F0D29680
REM F0D29690
BOLOP STL BOLMD SET BOOL MODE FLAG F0D29700
TSX SCANF,4 *EVALUATE BOOLEAN EXPRESSION F0D29710
TXI AFLAG,,0 NULL BOOLEAN EXPRESSION F0D29720
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D29730
ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D29740
TRA FIELD **YES F0D29750
SLW ADDRS SAVE DEFINITION F0D29760
SLW LITRL SAVE FOR PASS 2 F0D29770
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D29780
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D29790
TRA FIELD **NO F0D29800
TRA READ1 YES F0D29810
REM F0D29820
ETCOP STZ ETCMD RESET ETC MODE FLAG F0D29830
ZET VFDMD IS THIS VFD ETC CARD F0D29840
TRA VFETC YES F0D29850
TRA CLETC NO, THIS MUST BE CALL ETC F0D29860
REM F0D29870
CALOP TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D29880
TSX CALNM,4 *ENTER NAME IN TRANSFER VECTOR F0D29890
TRA CAL01+1 F0D29900
REM REENTRY AFTER COMMA OR ETC CARD F0D29910
CLETC TSX C019A,4 *LOOK AT NEXT CHARACTER F0D29920
ERA BLANK IS IT BLANK FOLLOWING COMMA F0D29930
TNZ CAL01 NO F0D29940
TSX PEEKS,4 *YES, DOES ETC CARD FOLLOW F0D29950
TRA CAL03 YES F0D29960
CLA Q1 NO, LOAD LENGTH OF NULL FIELD F0D29970
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D29980
TRA CAL02 F0D29990
REM REENTRY TO COUNT NEXT ARGUMENT F0D30000
CAL01 TSX SCEND,4 *SKIP TO END OF ARGUMENT F0D30010
REM REENTRY AFTER SUBPROGRAM NAME F0D30020
CLA Q1 LOAD LENGTH OF SUBROUTINE NAME OR ARGUMENTF0D30030
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D30040
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30050
TRA CLETC NO, PUNCTUATION WAS COMMA F0D30060
REM ETC MAY NOT FOLLOW F0D30070
CAL02 CLA Q2 LOAD LENGTH OF SEP PARAMETERS F0D30080
ZET SEPFLG IS STANDARD ERROR PROCEDURE REQUESTED F0D30090
TSX BPCTR,4 *YES, BUMP PROGRAM COUNTER F0D30100
CAL03 TRA READ1 F0D30110
REM F0D30120
COMOP ZET ABSFLG IS THIS AN ABSOLUTE ASSEMBLY F0D30130
TRA OPERR **YES, OPERATION IS UNDEFINED F0D30140
ZET DUPMD NO, IS THIS WITHIN RANGE OF DUP F0D30150
TRA PHASE **YES F0D30160
SXD ENDCF,0 NO, SET COMMON FLAG F0D30170
TSX SCANF,4 *EVALUATE LENGTH OF BLOCK F0D30180
TXI AFLAG,,0 NULL BLOCK LENGTH F0D30190
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D30200
ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D30210
TRA PHASE **YES F0D30220
CLA UPCTR NO, DEFINE COMMON VARIABLE AS CURRENT F0D30230
STO ADDRS LOCATION OF UPPER STORAGE COUNTER F0D30240
STA LITRL CONSTRUCT ADDRS,,UPCTR FOR PASS 2 F0D30250
SUB VAREQ BUMP COUNTER F0D30260
STA UPCTR F0D30270
ALS 18 F0D30280
STD LITRL F0D30290
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D30300
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30310
TRA FIELD **NO F0D30320
TRA READ1 YES F0D30330
REM F0D30340
CNTOP NZT FCFLG IS THIS FIRST CARD GROUP F0D30350
NZT CNTFG YES, IS CARD COUNT MISSING F0D30360
TRA FIELD **NO, TOO LATE F0D30370
STZ CNTFG YES, RESET FLAG F0D30380
TSX SCANF,4 *EVALUATE VARIABLE FIELD F0D30390
TXI AFLAG,,0 NULL COUNT F0D30400
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D30410
ZET RBITS NO, IS COUNT RELOCATABLE F0D30420
TRA FIELD **YES F0D30430
ARS 1 DIVIDE BY TWO F0D30440
CAS Q36 IS COUNT LESS THAN ONE BLOCK F0D30450
STA READ1+1 NO, RESET INTERMEDIATE TAPE RECORD LIMIT F0D30460
NOP YES F0D30470
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30480
TRA FIELD **NO F0D30490
TRA READ1 YES F0D30500
REM F0D30510
DECOP TSX SCEND,4 *SKIP TO END OF INTEGER F0D30520
CLA Q1 F0D30530
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D30540
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30550
TRA DECOP NO F0D30560
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D30570
TRA READ1 F0D30580
REM F0D30590
DOLOP LXD VRFLD,2 RELOAD WORD COUNT F0D30600
LXA VRFLD,1 RELOAD CHARACTER COUNT F0D30610
TSX C0190,4 *DELETE DOLLAR SIGN F0D30620
TSX CALNM,4 *ENTER SUBPROGRAM NAME INTO TRANSFER VECTORF0D30630
TRA READ1 F0D30640
REM F0D30650
DUPOP TSX SCANF,4 *EVALUATE RANGE OF DUP F0D30660
TXI AFLAG,,0 NULL RANGE F0D30670
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D30680
ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D30690
TRA PHASE **YES F0D30700
TZE DUP01 DOES DUP CONTAIN CARDS F0D30710
STA LITRL YES, CONSTRUCT RANGE,,ITERATNS FOR PASS 2 F0D30720
TSX SCANF,4 *EVALUATE ITERATIONS OF DUP F0D30730
TXI DUP01,,0 NULL ITERATIONS F0D30740
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D30750
ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D30760
TRA PHASE **YES F0D30770
TZE *+3 IS DUP ITERATIVE F0D30780
SUB Q1 YES, IS ITERATIONS GREATER THAN 1 F0D30790
TNZ *+3 YES F0D30800
SLF NO, SET FIELD ERROR FLAG F0D30810
TRA DUP01 F0D30820
ZET DUPMD YES, IS DUP WITHIN RANGE OF DUP F0D30830
TRA PHASE **YES F0D30840
ALS 18 NO, REPOSITION ITERATIONS F0D30850
STD LITRL SAVE FOR PASS 2 F0D30860
ADD D1 BUMP BACK TO ITERATION COUNT F0D30870
STD DUPCT INITIALIZE COUNTER F0D30880
CLA LITRL RELOAD RANGE OF DUP F0D30890
STA DUPCD SET CARD COUNTER F0D30900
CLA LOCTR SAVE PROGRAM COUNTER AT BEGINNING OF DUP F0D30910
STA DUPCT+1 F0D30920
CLA CDCTR SAVE CARD STORAGE COUNTER F0D30930
STA DUPCT+2 F0D30940
STL DUPMD SET DUP MODE FLAG F0D30950
DUP01 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D30960
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30970
TRA FIELD **NO F0D30980
TRA READ1 YES F0D30990
REM F0D31000
ENDOP SXD PAKFLG,4 SET FLAG TO UNBLOCK END CARD F0D31010
STL COMCD SET FLAG TO UNBLOCK CONTROL CARDS F0D31020
ZET DELFLG IS ASSEMBLY DELETED F0D31030
TRA READ3+1 YES F0D31040
CAL BCDBF NO, HOLD LOCATION FIELD F0D31050
SLW ENDOP TO BE DEFINED AFTER REMOTE SEQUENCES F0D31060
TSX OTPUT,4 *WRITE END CARD F0D31070
TRA ENDFA F0D31080
REM F0D31090
ENFOP CAL READ2+2 PREPARE TO WRITE END FILE F0D31100
TSX UPTOP,4 *WRITE END FILE F0D31110
TRA SOURC F0D31120
REM F0D31130
ENPOP TSX UPDLS,4 LIST CARD (25)F0D31140
STL DELFLG (26)F0D31150
TRA ENDFA (26)F0D31160
PZE (NOT USED) (26)F0D31170
PZE (NOT USED) (26)F0D31180
REM F0D31190
ENTOP ZET ABSFLG IS ASSEMBLY ABSOLUTE F0D31200
TRA OPERR **YES, OPERATION IS UNDEFINED F0D31210
ZET FCFLG NO, IS THIS FIRST CARD GROUP F0D31220
TRA PHASE **NO, TOO LATE F0D31230
SXD MAINPF,0 YES, RESET MAIN PROGRAM FLAG F0D31240
TRA READ1 F0D31250
REM F0D31260
EXTOP ZET ABSFLG IS THIS ASSEMBLY ABSOLUTE F0D31270
TRA OPERR **YES, OPERATION IS UNDEFINED F0D31280
TSX CALNM,4 *NO, ENTER SUBPROGRAM NAME IN VECTOR F0D31290
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D31300
TRA *-2 NO, GET NEXT TRANSFER VECTOR NAME F0D31310
TRA READ1 YES F0D31320
REM F0D31330
HADOP TSX SSCAN,4 *ASSEMBLE HEADING CHARACTER F0D31340
TXI HED01,,0 NULL HEADING CHARACTER F0D31350
CAL SYMBL LOAD HEADING CHARACTER F0D31360
TRA HED01 F0D31370
REM F0D31380
HEDOP PXD ,0 LOAD CARD COLUMN 1 F0D31390
LDQ BCDBF F0D31400
LGL 6 F0D31410
HED01 LAS BLANK IS HEADING CHARACTER BLANK F0D31420
TRA *+2 NO F0D31430
PXD ,0 YES, DELETE IT F0D31440
SLW BHEAD SAVE HEADING CHARACTER F0D31450
SLW LITRL SAVE FOR PASS 2 F0D31460
SXA HEDCT,0 RESET MULTIPLE HEADING COUNT F0D31470
HED02 TSX SSCAN,4 *ASSEMBLE NEXT SYMBOL F0D31480
TXI READ1,,0 END OF VARIABLE FIELD RETURN F0D31490
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D31500
SLT EXPND NO, WAS SYMBOL FOLLOWED BY AN OPERATION F0D31510
TRA FIELD **YES, OMIT HEADING CHARACTERS F0D31520
LXA HEDCT,4 NO, BUMP MULTIPLE HEADING COUNT F0D31530
TXI *+1,4,1 F0D31540
TXL *+3,4,11 DID BHEAD TABLE OVERFLOW F0D31550
LDI HEDNM YES, SET MULTIHEADING TABLE OVERFLOW F0D31560
TRA SRCERR **TERMINATE ASSEMBLY F0D31570
SXA HEDCT,4 NO, SAVE CURRENT MULTIPLE HEADING COUNT F0D31580
CAL SYMBL ADD HEADING CHARACTER F0D31590
SLW BHEAD,4 TO MULTIPLE HEADING LIST F0D31600
TRA HED02 F0D31610
REM F0D31620
IFEOP ZET ABSFLG IS THIS ASSEMBLY ABSOLUTE F0D31630
TRA OPERR **YES, OPERATION IS UNDEFINED F0D31640
TSX ESYML,4 *NO, DEFINE POSSIBLE LOCATION FIELD F0D31650
CAL L(EOF LOAD ENTRY POINT NAME F0D31660
TSX TRVCR,4 *MAKE ENTRY IN TV TABLE AND SYMBOL TABLE F0D31670
CLA Q2 LOAD LENGTH OF TWO INSTRUCTION MACRO F0D31680
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D31690
TRA READ1 F0D31700
L(EOF BCI 1,(EOF) F0D31710
REM F0D31720
REM EVALUATE LITERALS F0D31730
LITOP LXD VRFLD,2 LOAD WORD COUNT F0D31740
LXA VRFLD,1 LOAD CHARACTER COUNT F0D31750
TSX C0190,4 *DELETE = CHARACTER F0D31760
TSX C0190,4 *GET CHARACTER FOLLOWING EQUAL SIGN F0D31770
LAS QO IS CHARACTER O F0D31780
TXI LITDC,1,1 NO, IT IS DECIMAL F0D31790
TRA LITCL YES, IT IS OCTAL F0D31800
LAS QH NO, IS CHARACTER H F0D31810
TXI LITDC,1,1 NO, IT IS DECIMAL F0D31820
TRA LITHL YES, IT IS HOLLERITH F0D31830
TXI LITDC,1,1 NO, BUMP COUNTER LEFT ONE CHARACTER F0D31840
REM EVALUATE DECIMAL LITERALS F0D31850
LITDC LGR 6 RESTORE FIRST CHARACTER (SIGN OR DIGIT) F0D31860
STQ RESIDU F0D31870
STZ ERRFE RESET ERROR FLAG F0D31880
TSX DECCV,4 *CONVERT DECIMAL FIELD TO BINARY F0D31890
STO LITRL F0D31900
NZT ERRFE WAS FIELD IN ERROR F0D31910
TRA LITDF NO F0D31920
TRA LITRR **YES F0D31930
REM EVALUATE OCTAL LITERALS F0D31940
LITCL STZ ERRFB RESET ERROR FLAG F0D31950
TSX OCTCV,4 *CONVERT OCTAL FIELD TO BINARY F0D31960
SLW LITRL F0D31970
NZT ERRFB WAS FIELD IN ERROR F0D31980
TRA LITDF NO F0D31990
TRA LITRR **YES F0D32000
REM EVALUATE HOLLERITH LITERALS F0D32010
LITHL TSX C0190,4 *GET NEXT CHARACTER F0D32020
AXT **,4 LOAD CHARACTER COUNT F0D32030
TXI *+1,4,1 BUMP CHARACTER COUNT F0D32040
TXH LITH1,4,6 HAVE SIX CHARACTERS BEEN COLLECTED F0D32050
SXA LITHL+1,4 NO, SAVE CHARACTER COUNT F0D32060
LGR 6 APPEND NEXT CHARACTER F0D32070
CAL LITRL TO PARTIAL LITERAL F0D32080
LGL 6 F0D32090
SLW LITRL SAVE PARTIAL LITERAL F0D32100
TRA LITHL F0D32110
LITH1 SXA LITHL+1,0 RESET CHARACTER COUNT F0D32120
SUB BLANK IS IT BLANK F0D32130
TZE LITDF YES, END OF VARIABLE FIELD F0D32140
SUB EQUAL NO, IS IT COMMA F0D32150
TZE LITDF YES, END OF LITERAL FIELD F0D32160
STZ LITRL NO, ILLEGAL CHARACTER F0D32170
TRA LITRR **SET ERROR FLAGS F0D32180
REM F0D32190
REM ENTER LITERAL INTO TABLE F0D32200
LITDF CAL LITRL LOAD LITERAL F0D32210
LXA LITSIZ,2 LOAD LOGARITHM OF TABLE LENGTH F0D32220
AXT 0,1 LOAD POSITION OF FIRST LITERAL IN TABLE F0D32230
XEC LSCH2+1,2 BUMP SEARCH TO MIDDLE OF TABLE F0D32240
REM REENTRY AFTER BINARY HOP F0D32250
LSCH1 TXL *+4,1,-1 IS CURRENT POSITION ABOVE TABLE ENTRIES F0D32260
LAS LITTBL-1,1 NO, IS NEW ENTRY IN TABLE F0D32270
TXI LSCH2+1,2,-2 NO, LARGER - GO LOOK HIGHER F0D32280
TRA LSCH3 YES, IGNORE IT F0D32290
TXI LSCH2,2,-2 NO, SMALLER - GO LOOK LOWER F0D32300
REM F0D32310
TXI LSCH1,1,-512 (MAXIMUM TABLE SIZE = 1024 LITERALS) F0D32320
TXI LSCH1,1,+256 F0D32330
TXI LSCH1,1,-256 F0D32340
TXI LSCH1,1,+128 F0D32350
TXI LSCH1,1,-128 F0D32360
TXI LSCH1,1,+64 F0D32370
TXI LSCH1,1,-64 F0D32380
TXI LSCH1,1,+32 F0D32390
TXI LSCH1,1,-32 F0D32400
TXI LSCH1,1,+16 F0D32410
TXI LSCH1,1,-16 F0D32420
TXI LSCH1,1,+8 F0D32430
TXI LSCH1,1,-8 F0D32440
TXI LSCH1,1,+4 F0D32450
TXI LSCH1,1,-4 F0D32460
TXI LSCH1,1,+2 F0D32470
TXI LSCH1,1,-2 F0D32480
TXI LSCH1,1,+1 F0D32490
TXI LSCH1,1,-1 F0D32500
TXI LITNT,1,-1 F0D32510
TXI LITNT,1,-2 F0D32520
REM F0D32530
LSCH2 XEC *,2 F0D32540
XEC *,2 F0D32550
REM F0D32560
REM LITERAL IS NEW, ENTER IT INTO TABLE INCREASING UPWARD F0D32570
LITNT LXD LSCH1,2 LOAD CURRENT LENGTH OF LITERAL TABLE $F0D32580
LXD LSCH1,4 $F0D32585
TXI *+1,2,-1 BUMP COUNT F0D32590
SXD LSCH1,2 F0D32600
TXH *+3,2,-LLITBL DID LITERAL TABLE OVERFLOW F0D32610
LDI LITNM YES, SET LITERAL TABLE OVERFLOW F0D32620
TRA SRCERR **TERMINATE ASSEMBLY F0D32630
SXD *+1,1 NO, INITIALIZE POSITION TEST F0D32640
TXH *+4,4,** IS THIS ORDERED POSITION OF NEW ENTRY F0D32650
LDQ LITTBL-2,4 NO, MOVE NEXT ENTRY UP ONE F0D32660
STQ LITTBL-1,4 TO MAKE ROOM FOR NEW ENTRY F0D32670
TXI *-3,4,1 BUMP TABLE COUNT UP ONE POSITION F0D32680
SLW LITTBL-1,4 INSERT NEW ENTRY IN PROPER ORDER F0D32690
LSCH3 TRA READ1 F0D32700
REM F0D32710
LOCOP AXT -1,4 SET LOC SWITCH F0D32720
SXD ORG02+3,4 F0D32730
CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0D32740
ERA BLANK IS IT BLANK F0D32750
TNZ ORG01 NO F0D32760
CAL CDCTR YES, DISCONTINUE LOC F0D32770
SLN FLDND SET END OF VARIABLE FIELD FLAG F0D32780
TRA ORG02 F0D32790
REM F0D32800
MAXOP SXD MIN03,0 SET MAX SWITCHES F0D32810
SXD MIN03+2,0 F0D32820
TRA MIN01 F0D32830
REM F0D32840
MINOP AXT -1,4 SET MIN SWITCHES F0D32850
SXD MIN03,4 F0D32860
SXD MIN03+2,4 F0D32870
REM REENTRY FOR MAX F0D32880
MIN01 TSX SCANP,4 *EVALUATE FIRST FIELD F0D32890
TXI AFLAG,,0 NULL FIELD F0D32900
STI ADDRS SAVE RELOCATION BITS F0D32910
IIL 3 INITIALIZE TEST FOR CONSISTENT BITS F0D32920
STI ERASE F0D32930
MIN02 STO LITRL SAVE CURRENT GREATEST/LEAST FIELD F0D32940
TSX SCANP,4 *EVALUATE NEXT FIELD F0D32950
TXI MIN04,,0 NULL FIELD F0D32960
OFT ERASE IS SYMBOL CONSISTENT F0D32970
TRA FIELX **NO F0D32980
LAS LITRL YES, IS THIS SYMBOL GREATER/LESSER F0D32990
MIN03 TXH MIN02,4,** SYMBOL IS GREATER - IS THIS MAX F0D33000
TRA MIN02+1 NO F0D33010
TXL MIN02,4,** SYMBOL IS LESSER - IS THIS MIN F0D33020
TRA MIN02+1 NO F0D33030
REM END OF VARIABLE FIELD F0D33040
MIN04 CAL LITRL DEFINE SYMBOL AS MAX/MIN F0D33050
ORA ADDRS COMBINE WITH RELOCATION BITS F0D33060
SLW LITRL SAVE FOR PASS 2 F0D33070
SLW ADDRS F0D33080
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D33090
SLT FLDND WAS VARIABLE FIELD NULL F0D33100
TRA FIELD **YES F0D33110
TRA READ1 NO F0D33120
REM F0D33130
NUMOP SXD INP04+2,0 SET SWITCH TO RESERIALIZE BCD CARDS F0D33140
CAL BCDBF LOAD LEADING CHARACTERS F0D33150
TSX LOCFL,4 *ASSEMBLE LEADING CHARACTERS F0D33160
LGR 6 LEFT ADJUST F0D33170
TNZ *-1 F0D33180
STQ PROID SAVE LEADING CHARACTERS F0D33190
TSX SCANP,4 *ASSEMBLE NEW SERIALIZATION F0D33200
TXI NUM01,,0 NULL SERIALIZATION F0D33210
RFT 3 IS SERIALIZATION ABSOLUTE F0D33220
TRA FIELD **NO F0D33230
TRA NUM02 *YES. RESET SERIALIZATION (25)F0D33240
UPD03 SLT FLDND WAS END OF VARIABLE FIELD SENSED (25)F0D33250
TRA FIELD **NO F0D33260
TSX UPDLS,4 *YES, LIST THIS CARD F0D33270
TRA SOURC F0D33280
REM TURN OFF BCD CARD RESERIALIZATION F0D33290
NUM01 AXT -1,4 RESET SWITCH TO RESERIALIZE BCD CARDS F0D33300
SXD INP04+2,4 F0D33310
TSX UPDLS,4 *LIST CARD F0D33320
TRA SOURC F0D33330
REM F0D33340
OPDOP CAL CHRCTR LOAD FIRST CHARACTER F0D33350
ERA BLANK IS VARIABLE FIELD BLANK F0D33360
TZE FIELD **YES F0D33370
STZ ERRFE NO, CLEAR HANGING FLAGS F0D33380
STZ ERRFB F0D33390
TSX OCTCV,4 *ASSEMBLE OCTAL EQUIVALENT F0D33400
NZT ERRFE IS OCTAL EQUIVALENT IN ERROR F0D33410
ZET ERRFB F0D33420
TRA FIELD **YES F0D33430
ORA T1 NO, APPEND MACHINE OPERATION FLAG F0D33440
SLW LITRL SAVE FOR PASS TWO F0D33450
PAI F0D33460
TSX EOPTB,4 *ENTER INTO OP TABLE F0D33470
TRA READ1 F0D33480
REM F0D33490
OPSOP TSX SSCAN,4 *ASSEMBLE EQUIVALENT NAME F0D33500
TXI FIELD,,0 **NULL EQUIVALENT NAME F0D33510
SLT EXPRR IS SYMBOL IN ERROR F0D33520
ZET SYMB2 NO, IS SYMBOL TOO LONG F0D33530
TRA FIELD **YES F0D33540
CAL SYMBL NO, LOAD EQUIVALENT NAME F0D33550
LDQ Q0 F0D33560
LGR 6 LEFT ADJUST F0D33570
TNZ *-1 F0D33580
XCL F0D33590
TSX SOPTB,4 *FIND CORRESPONDING OCTAL OPCODE F0D33600
TRA FIELD **NOT IN TABLE F0D33610
STI LITRL SAVE FOR PASS TWO F0D33620
TSX EOPTB,4 *ENTER INTO OP TABLE F0D33630
TRA READ1 F0D33640
REM F0D33650
OPVOP CAL CHRCTR LOAD FIRST CHARACTER F0D33660
ERA BLANK IS VARIABLE FIELD BLANK F0D33670
TZE FIELD **YES F0D33680
STZ ERASE NO, CLEAR WORKING STORAGE F0D33690
STZ ERRFE RESET POSSIBLE HANGING ERROR FLAG F0D33700
STL VFDMD SET VFD MODE FLAG FOR SCAN F0D33710
AXT 36,4 SET UNUSED BIT COUNT TO FULL WORD F0D33720
SXA VFDRB,4 F0D33730
OPV01 TSX VFDCV,4 *ASSEMBLE NEXT FIELD F0D33740
CLA VFDFB LOAD FIELD LENGTH F0D33750
STA OPV02 INITIALIZE SHIFT F0D33760
SUB VFDRB COMPUTE COUNT OF REMAINING BITS F0D33770
STA VFDRB F0D33780
CAL ERASE LOAD PARTIAL WORD F0D33790
LDQ VFDFL+1 LOAD NEW FIELD F0D33800
OPV02 LGL ** PACK IT IN F0D33810
SLW ERASE SAVE NEW PARTIAL WORD F0D33820
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D33830
TRA OPV01 NO F0D33840
STZ VFDMD YES, RESET VFD FLAG F0D33850
NZT ERRFE IS WORD IN ERROR F0D33860
ZET RBITS NO, IS WORD RELOCATABLE F0D33870
TRA FIELD **YES F0D33880
ZET VFDRB NO, IS WORD EXACTLY 36 BITS F0D33890
TRA FIELD **NO F0D33900
LDI ERASE YES, LOAD OCTAL OPCODE F0D33910
SIR 100000 APPEND MACHINE OPERATION FLAG F0D33920
STI LITRL SAVE FOR PASS TWO F0D33930
TSX EOPTB,4 *ENTER INTO OP TABLE F0D33940
TRA READ1 F0D33950
REM F0D33960
ORDOP CAL OPBIN LOAD OPCODE F0D33970
SLW LITRL SAVE FOR PASS TWO F0D33980
AXT 5$ORDOP,4 SET PASS TWO TRANSFER ADDRESS F0D33990
SXD OPBIN,4 F0D34000
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D34010
CLA Q2 ORDER TAKES TWO WORDS F0D34020
TSX BPCTR,4 *BUMP LOCATION COUNTER F0D34030
TRA READ1 F0D34040
REM F0D34050
ORGOP ZSD ORG02+3 SET ORG SWITCH F0D34060
CLA CDCTR LOAD CARD STORAGE COUNTER F0D34070
CAS PRGBK IS IT GREATER THAN GREATEST TO DATE F0D34080
STO PRGBK YES, RESET PROGRAM BREAK F0D34090
NOP F0D34100
ORG01 TSX SCANF,4 *EVALUATE NEW ORIGIN F0D34110
TXI AFLAG,,0 NULL ORIGIN F0D34120
SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D34130
ZET VARUC NO, IS VARIABLE FIELD IN COMMON F0D34140
TRA PHASE **YES F0D34150
NZT ABSFLG IS ASSEMBLY ABSOLUTE F0D34160
ORA D1 NO, SET RELOCATION BIT F0D34170
ORG02 ZET DUPMD IS CARD IN RANGE OF DUP F0D34180
TRA PHASE **YES F0D34190
STA LOCTR NO, UPDATE PROGRAM COUNTER F0D34200
TXL *+2,4,** IS CARD LOC F0D34210
STA CDCTR NO, UPDATE CARD ORIGIN COUNTER F0D34220
SLW ADDRS DEFINE SYMBOL F0D34230
SLW LITRL SAVE FOR PASS TWO F0D34240
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D34250
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D34260
TRA FIELD **NO F0D34270
TRA READ1 YES F0D34280
REM F0D34290
PRTOP TSX (PRNT),4 *PRINT CC 13 - 72 ON LINE F0D34300
PZE BCDBF+2,,10 F0D34310
TSX SPACP,2 *SPACE PAGE F0D34320
TSX UPDLS,4 *LIST CARD F0D34330
TRA SOURC F0D34340
REM F0D34350
REWOP CAL *+4 PREPARE TO REWIND F0D34360
TSX UPTOP,4 *REWIND F0D34370
TSX UPDSC,4 *LOGICALLY DISCONNECT THIS TAPE F0D34380
TRA SOURC F0D34390
PZE REWND,,(SKDP) F0D34400
REM F0D34410
SKFOP CAL *+3 PREPARE TO SKIP FILE F0D34420
TSX UPTIP,4 *SKIP FILE F0D34430
TRA SKF01 INITIALIZE BUFFERS AND PROCESS NEXT $F0D34440
REM UPDATE CARD. $F0D34441
PZE D1,,(SKDP) F0D34450
REM F0D34460
SSTOP TRA FRPA2 $F0D34470
TRA READ1 F0D34480
REM F0D34490
SYNOP TSX SCANP,4 *EVALUATE SYN DEFINITION F0D34500
TXI AFLAG,,0 NULL DEFINITION F0D34510
OAI COMBINE BITS WITH DEFINITION F0D34520
STI ADDRS DEFINE SYMBOL F0D34530
STI LITRL SAVE FOR PASS 2 F0D34540
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D34550
SLT FLDND WAS VARIABLE FIELD NULL F0D34560
TRA FIELD **YES F0D34570
TRA READ1 NO F0D34580
REM F0D34590
TAPOP CAL Q128 SET DEFINITION TO 0200 F0D34600
SLW ADDRS F0D34610
TSX C0190,4 *LOAD CHANNEL CHARACTER F0D34620
LAS BLANK IS FIELD NULL F0D34630
TRA FIELD **NO, ILLEGAL CHARACTER F0D34640
TRA TAP01 YES F0D34650
LAS QH NO, IS IT GREATER THAN H F0D34660
TRA FIELD **YES, TOO MANY CHANNELS F0D34670
NOP NO F0D34680
LAS PLUSS IS IT GREATER THAN + F0D34690
TRA *+3 YES F0D34700
TRA FIELD **NO, ILLEGAL CHARACTER F0D34710
TRA TAP01+3 NO CHANNEL DESIGNATED F0D34720
ANA Q15 MASK OUT ZONE BITS (CHANNEL NUMBER) F0D34730
ALS 9 POSITION CHANNEL NUMBER F0D34740
ORS ADDRS INSERT IN DEFINITION F0D34750
TRA TAP01+2 F0D34760
REM REENTRY FOR NULL FIELD F0D34770
TAP01 STZ CHRCTR DELETE BLANK F0D34780
TSX AFLAG,4 *FLAG OMITTED FIELD F0D34790
REM REENTRY TO EVALUATE NEXT DIGIT IN TAPE NUMBER F0D34800
TSX C0190,4 *GET NEXT DIGIT F0D34810
REM REENTRY FOR NO CHANNEL DESIGNATED F0D34820
LAS Q10 IS IT GREATER THAN 10 F0D34830
TRA TAP02 YES, THIS MAY BE MODE CHARACTER F0D34840
TSX MACERR,4 **CHARACTER IS BCD 10 F0D34850
LDQ ADDRS PICK UP CHANNEL AND PARTIAL TAPE ADDRESS F0D34860
VLM Q10,,6 MULTIPLY CURRENT DIGIT BY 10 F0D34870
VLM Q1,,8 AND CHANNEL BY 1 F0D34880
LLS 14 REPOSITION CONVERTED PARTIAL ADDRESS F0D34890
ADD CHRCTR ADD IN THIS DIGIT OF TAPE ADDRESS F0D34900
SLW ADDRS SAVE CHANNEL AND PARTIAL TAPE ADDRESS F0D34910
ANA BLANK WAS TAPE NUMBER VALID F0D34920
TZE TAP01+2 YES, GET NEXT DIGIT F0D34930
TRA FIELD **NO F0D34940
REM REENTRY FOR CHARACTER FOLLOWING TAPE ADDRESS F0D34950
TAP02 AXT 5,4 LOAD LENGTH OF TAPE CHARACTER LIST F0D34960
LAS TAPCH+5,4 IS CHARACTER THIS TAPE CHARACTER F0D34970
TRA FIELD **NO F0D34980
TRA TAP03+5,4 YES F0D34990
TIX *-3,4,1 IS LIST EXHAUSTED F0D35000
TRA FIELD **YES F0D35010
REM F0D35020
TAP03 TRA TAP04 CHARACTER IS BLANK F0D35030
TRA *+5 CHARACTER IS L $F0D35040
TRA *+2 CHARACTER IS H $F0D35050
TRA *+3 CHARACTER IS D F0D35060
CAL PLUSS CHARACTER IS B F0D35070
ORS ADDRS INSERT BINARY/HIGH DENSITY MODE BIT $F0D35080
TSX C0190,4 *GET NEXT CHARACTER F0D35090
ERA BLANK IS IT BLANK F0D35100
TNZ FIELD **NO F0D35110
TAP04 CAL ADDRS SAVE DEFINITION FOR PASS TWO F0D35120
SLW LITRL F0D35130
TSX ESYML,4 *DEFINE TAPE ADDRESS F0D35140
TRA READ1 F0D35150
REM F0D35160
TCDOP NZT ABSFLG IS ASSEMBLY ABSOLUTE F0D35170
TRA OPERR **NO, OPERATION IS UNDEFINED F0D35180
TRA READ1 F0D35190
REM F0D35200
ULDOP CAL *+4 PREPARE TO UNLOAD F0D35210
TSX UPTOP,4 *UNLOAD F0D35220
TSX UPDSC,4 *LOGICALLY DISCONNECT THIS TAPE F0D35230
TRA SOURC F0D35240
PZE UNLOD,,(SKDP) F0D35250
REM F0D35260
UMCOP NZT OPTFLG IS AN UPDATE OUTPUT TAPE REQUESTED F0D35270
TRA OPERR **NO, OPERATION IS UNDEFINED F0D35280
CAL MCREF+1 YES, FLIP SWITCHES TO OUTPUT F0D35290
LDQ MCRDF+1 MACRO EXPANSIONS OR MACRO DEFINITIONS AND F0D35300
STQ MCREF+1 CALLS ON UPDATE OUTPUT TAPE F0D35310
SLW MCRDF+1 F0D35320
TSX UPDLS,4 *LIST CARD F0D35330
TRA SOURC F0D35340
REM F0D35350
UPDOP TSX WROPT,4 *WRITE LAST PARTIAL UPDATE OUTPUT BLOCK F0D35360
LXD VRFLD,2 RELOAD WORD COUNT F0D35370
LXA VRFLD,1 RELOAD CHARACTER COUNT F0D35380
TSX UPSCN,4 *ASSEMBLE UPDATE INPUT TAPE NUMBER F0D35390
LAS IPTFLG IS THIS NEW UPDATE INPUT TAPE F0D35400
TRA *+2 YES F0D35410
TRA UPD01 NO F0D35420
STA IPTFLG RESET UPDATE INPUT TAPE FLAG F0D35430
LXD IPRECT,4 LOAD OLD UPDATE INPUT TAPE NUMBER F0D35440
TXL *+3,4,0 DOES OLD UPDATE INPUT TAPE EXIST F0D35450
TSX UPDCL,4 *YES, BACKSPACE OVER LOOKAHEAD CARDS F0D35460
SXA IPRECT,0 RESET UPDATE INPUT RECORD COUNT F0D35470
LXA IPTFLG,4 RELOAD NEW UPDATE INPUT TAPE NUMBER F0D35480
SXD IPRECT,4 SET NEW UPDATE INPUT TAPE NUMBER F0D35490
SXD UPDTAP,4 F0D35500
TXI *+1,4,(SCHU) COMPUTE (SCHU)+MIPTAP F0D35510
SXA RDUP0,4 SET NEW END FILE TEST F0D35520
TXL UPD01,4,(SCHU) IS THERE A NEW UPDATE INPUT TAPE F0D35530
SXA *+1,4 YES, INITIALIZE LOCATION OF (SCHU)+MIPTAP F0D35540
UPD00 STL ** RESET HANGING END FILE F0D35550
SXA *+2,1 SAVE CHARACTER COUNT F0D35560
TSX RDUPD,4 *START LOOKAHEAD BUFFERING F0D35570
AXT **,1 RELOAD CHARACTER COUNT F0D35580
AXT -1,4 SET SWITCH FOR EMPTY UPDATE BUFFER F0D35590
SXD UPDSW,4 F0D35600
UPD01 TSX UPSCN,4 *ASSEMBLE UPDATE OUTPUT TAPE NUMBER F0D35610
LAS IPTFLG IS OUTPUT TAPE INPUT TAPE F0D35620
TRA *+2 NO F0D35630
TNZ FIELD IF BLANK OR ZERO DISCONTINUE UPDATING $F0D35640
LAS OPTFLG IS THIS NEW UPDATE OUTPUT TAPE F0D35650
TRA *+2 YES F0D35660
TRA UPD02 NO F0D35670
STA OPTFLG RESET UPDATE OUTPUT TAPE FLAG F0D35680
LXD OPRECT,4 LOAD OLD UPDATE OUTPUT TAPE NUMBER F0D35690
TXL *+5,4,0 DOES OLD UPDATE OUTPUT TAPE EXIST F0D35700
TSX (TAPE),4 *YES, CLOSE OUT OLD UPDATE OUTPUT TAPE F0D35710
PZE Q0,,(SKDP) F0D35720
PZE OPDTAP,,-1 F0D35730
SXA OPRECT,0 RESET UPDATE OUTPUT RECORD COUNT F0D35740
LXA OPTFLG,4 RELOAD NEW UPDATE OUTPUT TAPE NUMBER F0D35750
SXD OPRECT,4 SET NEW UPDATE OUTPUT TAPE NUMBER F0D35760
SXD OPDTAP,4 F0D35770
UPD02 TSX SCANF,4 *ASSEMBLE BLOCKING FACTOR (25)F0D35780
TRA UPD05-1 NO 3RD FIELD. TURN ON BLOCKING (25)F0D35790
STL PAKFLG INITIALIZE BLOCKING OFF. (25)F0D35800
TZE UPD05-2 IS VALUE ZERO (25)F0D35810
SUB Q10 NO. IS TI TEN (25)F0D35820
TNZ UPD05 (25)F0D35830
AXT -1-10*UPDRCL+UPDRCL,4 YES. SET BLOCKING FACTOR TO 10.(25)F0D35840
SXD UPBLK,4 (25)F0D35850
SLT EXPRR IS EXPRESSION UNDEFINED (25)F0D35860
ZSA PAKFLG NO. 0 OR 10. TURN ON BLOCKING. (25)F0D35870
UPD05 TSX SSCAN,4 *ASSEMBLE 4TH SUBFIELD (25)F0D35880
TRA UPD03 **THERE ISNT ANY (25)F0D35890
CAL SYMBL (25)F0D35900
TRA UPSSC (25)F0D35910
REM F0D35920
UPTIP LDQ IPTFLG LOAD INPUT TAPE NUMBER F0D35930
TRA UPTOP+1 F0D35940
REM F0D35950
UPTOP LDQ OPTFLG LOAD OUTPUT TAPE NUMBER F0D35960
SXA UPTPX,4 SAVE CALLING LINKAGE F0D35970
STQ BERAS HOLD UPDATE TAPE NUMBER F0D35980
SLW UPT02 SET OPERATION PARAMETER F0D35990
TSX UPSCN,4 *EVALUATE LOGICAL TAPE NUMBER F0D36000
TNZ UPT01 IS A LOGICAL TAPE NUMBER SPECIFIED F0D36010
CAL BERAS NO, RELOAD UPDATE TAPE NUMBER F0D36020
TZE OPERR **IS AN UPDATE TAPE NUMBER SPECIFIED F0D36030
REM REENTRY FOR LOGICAL TAPE NUMBER SPECIFIED F0D36040
UPT01 ALS 18 POSITION LOGICAL TAPE NUMBER F0D36050
STD UPT02+1 INITIALIZE TAPE NUMBER PARAMETER F0D36060
CAS OPDTAP IS UPDATE OUTPUT TAPE SELECTED F0D36070
TRA *+2 NO F0D36080
TSX WROPT,4 YES, WRITE LAST UPDATE OUTPUT TAPE BLOCK F0D36090
TSX (TAPE),4 *PERFORM TAPE OPERATION F0D36100
UPT02 *** **,,** F0D36110
PZE ,,** F0D36120
PZE TAPERR F0D36130
TSX UPDLS,4 *LIST CARD F0D36140
UPTPX AXT **,4 RELOAD CALLING LINKAGE F0D36150
TRA 1,4 F0D36160
REM F0D36170
UPSCN SXA UPSCX,4 SAVE CALLING LINKAGE F0D36180
TSX SCANP,4 *ASSEMBLE UPDATE TAPE NUMBER F0D36190
TRA PATCHA BLANK UPDATE TAPE NUMBER $F0D36200
RFT 3 IS TAPE NUMBER ABSOLUTE F0D36210
TRA FIELD **NO F0D36220
TZE UPSCX IS UPDATE TAPE DELETED F0D36230
PAX ,4 NO. TEST FOR LEGAL ASSIGNMENT (25)F0D36240
TXH FIELD,4,T **IS TAPE ASSIGNED TO SYSTEM (25)F0D36250
TXL FIELD,4,7 **YES IS IT RESERVED TO MONITOR (25)F0D36260
UPSCX AXT **,4 NO. RETURN (25)F0D36270
TRA 1,4 (25)F0D36280
REM (25)F0D36290
UPSSC SLT EXPRR DOES 4TH FIELD CONTAIN ILLEGAL CHAR (25)F0D36300
TRA *+2 NO (25)F0D36310
TRA FIELD **YES (25)F0D36320
ZET DELFLG IS ASSEMBLY ALREADY DELETED (25)F0D36330
TRA UPD03 **YES (25)F0D36340
TZE UPD03 NO. IS ASSEMBLY DELETED NOW (25)F0D36350
STL DELFLG YES. SET ASSEMBLY DELETED FLAG (25)F0D36360
TSX (PRNT),4 PRINT UPDATE ONLY MSG ONLINE (25)F0D36370
PZE DELMS,,5 (25)F0D36380
TRA UPD03 **CHECK FOR TOO MANY FIELDS (25)F0D36390
... PATCH SPACE (25)F0D36400
REM F0D36410
UPDLS SXA UPDLX,4 SAVE CALLING LINKAGE F0D36420
TRA UPFIX WHICH BUFFER DO WE PRINT FROM (25)F0D36430
PZE (NOT USED) (25)F0D36440
TSX FPRINT,4 *PRINT BLANK LINE F0D36450
PZE F0D36460
CLA INP06 UNBUMP SERIAL FOR UPDATE PSEUDOOP (25)F0D36470
SUB INP07 NOT APPEARING ON UPDATE OUTPUT TAPE (25)F0D36480
STO INP06 (25)F0D36490
STL COMCD SET FLAG TO UNBLOCK MONITOR CONTROL CARDS F0D36500
UPDLX AXT **,4 RELOAD CALLING LINKAGE F0D36510
TRA 1,4 F0D36520
REM F0D36530
REM LOGICALLY DISCONNECT FINISHED UPDATE TAPE F0D36540
UPDSC CAL UPT02+1 RELOAD LOGICAL TAPE NUMBER F0D36550
CAS OPDTAP IS THIS UPDATE OUTPUT TAPE F0D36560
TRA *+2 NO F0D36570
STZ OPTFLG YES, DISCONNECT UPDATE OUTPUT TAPE F0D36580
CAS UPDTAP IS THIS UPDATE INPUT TAPE F0D36590
TRA *+2 NO F0D36600
STZ IPTFLG YES, DISCONNECT UPDATE INPUT TAPE F0D36610
TRA 1,4 F0D36620
REM F0D36630
VFDOP STL VFDMD SET VFD FLAG F0D36640
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D36650
STZ VFDTB CLEAR TOTAL BIT COUNT F0D36660
VFETC STZ VFDFB CLEAR FIELD WIDTH F0D36670
TSX C0190,4 *GET NEXT CHARACTER F0D36680
LAS COMMA IS CHARACTER COMMA F0D36690
TRA VFD04 NO F0D36700
TRA VFETC+1 YES, NULL FIELD F0D36710
LAS BLANK IS CHARACTER BLANK F0D36720
TRA VFD04 NO F0D36730
TRA VFD06 YES, END OF VARIABLE FIELD F0D36740
LAS QO IS CHARACTER O F0D36750
TRA VFD04 NO F0D36760
TRA VFD02 YES, OCTAL FIELD F0D36770
LAS QH IS CHARACTER H F0D36780
TRA VFD04 NO F0D36790
TRA VFD02 YES, HOLLERITH FIELD F0D36800
REM REENTRY TO COMPUTE PARTIAL FIELD WIDTH F0D36810
VFD01 LAS SLASH IS CHARACTER / F0D36820
TRA VFD05 NO F0D36830
TRA VFD03 YES, FIELD FOLLOWS F0D36840
LAS Q10 IS CHARACTER NUMERIC F0D36850
TRA VFD05 NO F0D36860
TSX MACERR,4 **CHARACTER IS BCD 10 F0D36870
CLA VFDFB YES, OLD PARTIAL FIELD WIDTH F0D36880
ALS 2 F0D36890
ADD VFDFB TIMES TEN F0D36900
ALS 1 F0D36910
ADD CHRCTR PLUS NEXT DIGIT F0D36920
STO VFDFB IS NEW PARTIAL FIELD WIDTH F0D36930
REM FIELD WIDTH FOLLOWS F0D36940
VFD02 TSX C0190,4 *GET NEXT CHARACTER F0D36950
TRA VFD01 F0D36960
REM FIELD FOLLOWS F0D36970
VFD03 CLA VFDFB LOAD FIELD WIDTH F0D36980
CAS Q63 IS SUBFIELD TOO LONG F0D36990
CLA Q63 YES, TRUNCATE IT F0D37000
NOP F0D37010
ADD VFDTB ADD TO TOTAL BIT COUNT F0D37020
SLW VFDTB AND SAVE F0D37030
REM LOOK FOR END OF FIELD F0D37040
VFD04 TSX C0190,4 *GET NEXT CHARACTER F0D37050
VFD05 LAS COMMA IS IT COMMA AT END OF FIELD F0D37060
TRA VFD04 NO F0D37070
TRA VFETC YES, GET NEXT FIELD F0D37080
ERA BLANK IS IT BLANK F0D37090
TNZ VFD04 NO F0D37100
TRA VFD06+2 YES, ETC MAY NOT FOLLOW F0D37110
REM END OF VARIABLE FIELD F0D37120
VFD06 TSX PEEKS,4 *IS NEXT CARD AN ETC CARD F0D37130
TRA VFD07 YES F0D37140
REM END OF VFD STATEMENT F0D37150
LDQ VFDTB LOAD TOTAL BIT COUNT F0D37160
PXD ,0 F0D37170
DVP Q36 COMPUTE NUMBER OF WORDS F0D37180
DCT DID DIVIDE FAIL F0D37190
TSX MACERR,4 **YES F0D37200
TZE *+2 IS THERE A PARTIAL WORD F0D37210
CLA Q1 YES, RESERVE SPACE FOR IT F0D37220
STQ VFDTB COMBINE FULL WORDS F0D37230
ADD VFDTB WITH PARTIAL WORD F0D37240
TNZ *+2 HAVE ANY BITS BEEN GENERATED F0D37250
CLA Q1 NO, RESERVE WORD OF ZEROES F0D37260
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D37270
STZ VFDMD RESET VFD FLAG F0D37280
VFD07 TRA READ1 F0D37290
REM F0D37300
REM ERROR IN PROCESSING PSEUDOOPERATIONS F0D37310
LITRR CAL Q8 SET ERROR FLAG F0D37320
TRA PHASE+2 F0D37330
FIELX STZ LITRL DELETE PARTIAL DEFINITION F0D37340
FIELD CAL Q4 FLAG FIELD ERROR F0D37350
TRA PHASE+2 F0D37360
PHASE STZ LITRL DELETE DEFINITION IN ERROR F0D37370
CAL Q1 FLAG PHASE ERROR F0D37380
ORS P1FLG F0D37390
TRA READ1 F0D37400
REM F0D37410
OPERR CAL Q16 SET UNDEFINED OPERATION FLAG F0D37420
ORS P1FLG F0D37430
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D37440
CLA Q1 F0D37450
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D37460
TRA READ1 F0D37470
REM F0D37480
REM F0D37490
DELMS BCI 5,+ ...UPDATE ONLY... F0D37500
UPDRM BCI 8, NON-BCD CARD(S) ON UPDATE INPUT TAPE FOLLOWING F0D37510
XREDN BCI 9,0 EXCESSIVE REDUNDANCY ERRORS. VERIFY INPUT TAPES AND F0D37520
BCI 2,PUSH START. F0D37530
XORDR BCI 9,0 EXCESSIVE CARD ORDER ERRORS. VERIFY INPUT TAPES AND F0D37540
BCI 2,PUSH START. F0D37550
NOCNT BCI 5, CARD-COUNT ESTIMATE MISSING. F0D37560
CHANG BCI 5,0 CHANGE TAPE AND PUSH START. F0D37570
REM F0D37580
REM SORT TABLES F0D37590
SRTBT DEC -0,1B1,1B2,1B3,1B4,1B5,1B6,1B7,1B8,1B9,1B10,1B11,1B12 F0D37600
DEC 1B13,1B14,1B15,1B16,1B17,1B18,1B19,1B20,1B21,1B22,1B23 F0D37610
OCT 4000,2000,1000,400,200,100,40,20,10,4,2,1 F0D37620
REM F0D37630
SORTB PZE -SYMTBL LOCATION (COMPLEMENT) OF BOTTOM OF TABLE F0D37640
SORTA PZE ** LOCATION (COMPLEMENT) OF TOP OF TABLE F0D37650
DEC ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, F0D37660
TTL PASS ONE MACRO PROCESSOR F0D37670
REM ROUTINES TO DEFINE MACROS F0D37680
REM MACRO, MOP, RMT F0D37690
REM F0D37700
MOPSW SLT EXPRR IS OPFIELD IN ERROR F0D37710
TTR ** NO F0D37720
TRA INSTR YES F0D37730
REM F0D37740
MCROP CAL BCDBF LOAD LOCATION FIELD F0D37750
TSX LOCFL,4 *ASSEMBLE MACRO NAME F0D37760
TNZ MOP00+1 HAS NAME BEEN GIVEN F0D37770
CAL CHRCTR NO, IS VARIABLE FIELD BLANK F0D37780
ERA BLANK F0D37790
TNZ MOP00 NO, IMPROPER CARD F0D37800
AXT MCR01,4 SET VECTOR TO AVOID INITIALIZATION F0D37810
SXA MOPSW+1,4 F0D37820
TSX SETTP,4 *SET UP MACRO ROUTING F0D37830
PZE ROUTE,,MOPSW F0D37840
TSX MACERR,4 **ALREADY SET UP F0D37850
AXT -1,4 SET MACRO DEFINITION CARD SWITCH F0D37860
SXD MCRDF,4 F0D37870
TRA READ1 GET NEXT CARD WITH MACRO NAME IN OPFIELD F0D37880
REM REENTRY FOR CARD FOLLOWING BLANK MACRO CARD F0D37890
MCR01 CAL BCDBF LOAD LOCATION FIELD F0D37900
TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0D37910
SLW LCARG SAVE POSSIBLE LOCATION ARGUMENT F0D37920
LDQ OPCOD LOAD OPCODE F0D37930
TRA MOP01 F0D37940
REM F0D37950
MOPOP TSX SSCAN,4 *ASSEMBLE MACRO NAME F0D37960
TXI MOP00,,0 NO MACRO NAME, IMPROPER CARD F0D37970
SLT EXPRR WAS MACRO NAME IN ERROR F0D37980
SLT EXPND NO, DID NAME END WITH OPERATOR F0D37990
STZ SYMBL YES, IMPROPER CARD F0D38000
ZET SYMB2 NO, IS MACRO NAME TOO LONG F0D38010
MOP00 STZ SYMBL YES, IMPROPER CARD F0D38020
REM REENTRY FOR MACRO F0D38030
TSX SETTP,4 *SET UP MACRO ROUTING F0D38040
PZE ROUTE,,MOPSW F0D38050
TSX MACERR,4 **ALREADY SET UP F0D38060
AXT -1,4 SET MACRO DEFINITION CARD SWITCH F0D38070
SXD MCRDF,4 F0D38080
CAL SYMBL LOAD RIGHT ADJUSTED SYMBOL NAME F0D38090
LDQ Q0 (NAME WILL BE ZERO FOR IMPROPER CARD) F0D38100
LGR 6 LEFT ADJUST F0D38110
TNZ *-1 F0D38120
REM REENTRY FOR CARD FOLLOWING BLANK MACRO CARD F0D38130
MOP01 AXT MOP03,4 SET VECTOR UNTIL FIRST NON-ETC CARD F0D38140
SXA MOPSW+1,4 F0D38150
SXA MOP02,2 SAVE WORD COUNT F0D38160
SXA MOP02+1,1 SAVE CHARACTER COUNT F0D38170
CAL MOPP2 SET PASS TWO TRANSFER F0D38180
SLW OPBIN TO PRINT CARD F0D38190
XCL RECALL LEFT ADJUSTED MACRO NAME F0D38200
SLW MOPNM SAVE FOR END TEST F0D38210
TNZ *+3 IS NAME NULL F0D38220
CAL UNDFL YES, LOAD UNDEFINED MACRO FLAG F0D38230
TRA *+4 F0D38240
TSX SOPTB,4 *IS MACRO NAME IN OPERATIONS TABLE F0D38250
TRA *+5 NO F0D38260
CAL MFLAG YES, SET MULTIPLE DEFINITION FLAG F0D38270
SLW LITRL SAVE FOR PASS TWO F0D38280
AXT 5$MCERR,4 SET PASS TWO TRANSFER F0D38290
SXD OPBIN,4 TO PRINT FLAG AND CARD IN ERROR F0D38300
CAL MOPNM RELOAD MACRO NAME F0D38310
LDI MOPTR LOAD POINTER TO MACRO DEFINITION TABLE F0D38320
TZE *+2 WAS NAME NULL F0D38330
TSX EOPTT,4 *NO, ENTER IN COMBINED OPERATIONS TABLE F0D38340
LXD MOPTR,1 RELOAD POINTER TO MACRO DEFINITION TABLE F0D38350
TXI *+1,1,1 BUMP POINTER BY LENGTH OF HEADING F0D38360
AXT 1,2 SET SWITCH TO STUFF BACKWARD F0D38370
CAL * LOAD CALLING LINKAGE F0D38380
TRA STUFY *INIT SUBROUTINE TO STUFF MACRO DEF TABLE F0D38390
ZSA MPCNT RESET MACRO ARGUMENT COUNT F0D38400
TSX SARGT,4 *INITIALIZE LOCATION OF ARGUMENT TABLE F0D38410
MOP02 AXT **,2 RELOAD WORD COUNT F0D38420
AXT **,1 RELOAD CHARACTER COUNT F0D38430
TRA MOP04 F0D38440
REM REENTRY FOR MACRO ETC CARD F0D38450
MOP03 NZT ETCMD IS ETC CARD EXPECTED F0D38460
TSX MACERR,4 **NO F0D38470
STZ ETCMD YES, RESET FLAG F0D38480
TSX RESTF,4 *RESTORE STUFF CONDITIONS F0D38490
CAL PSYMB LOAD PARTIAL ARGUMENT F0D38500
TZE MOP04 IS THERE A PARTIAL ARGUMENT F0D38510
SLW SYMBL YES, PRESET PARTIAL ARGUMENT F0D38520
STZ SYMB2 CLEAR HIGH ORDER PORTION F0D38530
TSX SSCET,4 *ASSEMBLE REST OF ARGUMENT F0D38540
TXI MOP06,,0 NO MORE ARGUMENT F0D38550
CAL SYMBL LOAD ARGUMENT F0D38560
LXA MPCNT,4 LOAD COUNT OF PARTIAL ARGUMENT F0D38570
TRA MOP05 F0D38580
REM REENTRY TO ASSEMBLE NEXT ARGUMENT F0D38590
MOP04 TSX SSCAN,4 *ASSEMBLE NEXT ARGUMENT F0D38600
TXI MOP06,,0 NO MORE ARGUMENT F0D38610
CAL SYMBL LOAD ARGUMENT F0D38620
TZE MOP05+1 IS ARGUMENT ZERO F0D38630
LXA MPCNT,4 NO, BUMP ARGUMENT COUNT F0D38640
TXI *+1,4,1 F0D38650
TXH MOP05+1,4,63 DID ARGUMENT TABLE OVERFLOW F0D38660
SXA MPCNT,4 NO F0D38670
REM REENTRY FOR ARGUMENT LIST ETC CARD F0D38680
MOP05 SLW DARGS,4 INSERT ARGUMENT IN TABLE F0D38690
REM REENTRY FOR TRUNCATED ARGUMENT LIST F0D38700
SLW PSYMB SAVE POSSIBLE PARTIAL ARGUMENT F0D38710
LXA CHRCTR,4 LOAD PUNCTUATION CHARACTER F0D38720
TXL MOP04,4,27 F0D38730
TXL MOP08,4,28 PUNCTUATION IS ) F0D38740
TXL MOP04,4,42 F0D38750
TXL MOP07,4,43 PUNCTUATION IS $ F0D38760
TXL MOP04,4,47 F0D38770
TXL MOP06,4,48 PUNCTUATION IS BLANK F0D38780
TXL MOP04,4,59 F0D38790
TXL *+2,4,60 PUNCTUATION IS ( F0D38800
TSX MACERR,4 **CHARACTER IS ILLEGAL F0D38810
REM PUNCTUATION IS ( F0D38820
CLA PARNC BUMP PARENTHESES COUNT F0D38830
ADD Q1 F0D38840
STO PARNC F0D38850
TRA MOP04 F0D38860
REM PUNCTUATION IS BLANK F0D38870
MOP06 ZET PARNC ARE PARENTHESES BALANCED F0D38880
TRA *+3 NO F0D38890
TXL MOP07+3,2,-12 YES, IS VARIABLE FIELD EXHAUSTED F0D38900
TRA MOP10 NO F0D38910
TSX PEEKS,4 *DOES ETC CARD FOLLOW F0D38920
TRA GSC32 YES F0D38930
TRA MOP10-1 **NO, FLAG ERROR (23)F0D38940
REM PUNCTUATION IS $ F0D38950
MOP07 TSX C019A,4 *LOOK AT NEXT CHARACTER F0D38960
ERA BLANK IS IT BLANK F0D38970
TNZ MOP04 NO, $ IS HEADING CHARACTER F0D38980
REM REENTRY FOR VARIABLE FIELD EXHAUSTED F0D38990
TSX PEEKS,4 *DOES ETC CARD FOLLOW F0D39000
TRA GSC32 YES F0D39010
TRA MOP10 NO F0D39020
REM PUNCTUATION IS ) F0D39030
MOP08 CLA PARNC BUMP PARENTHESES COUNT F0D39040
SUB Q1 F0D39050
STO PARNC F0D39060
TPL MOP04 ARE THERE TOO MANY RIGHT PARENTHESES F0D39070
TSX MCER1,4 *YES, SET ERROR FLAG (23)F0D39080
REM NO ETC CARD FOLLOWS F0D39090
MOP10 AXT MOP11,4 RESET TRANSFER UNTIL END CARD F0D39100
SXA MOPSW+1,4 F0D39110
LXD MOPTR,1 LOAD POINTER TO THIS MACRO F0D39120
LXA MPCNT,4 LOAD ARGUMENT COUNT F0D39130
PXD ,4 F0D39140
STO 0,1 INSERT ARGUMENT COUNT IN HEADING F0D39150
CAL LCARG LOAD POSSIBLE LOCATION ARGUMENT F0D39160
TZE GSC32 DOES IT EXIST F0D39170
STZ LCARG YES, RESET IT F0D39180
TXI *+1,4,1 BUMP ARGUMENT COUNT F0D39190
SXA MPCNT,4 F0D39200
SLW DARGS,4 ADD LAST ARGUMENT F0D39210
PXD ,4 F0D39220
SSM SET FLAG FOR LOCATION TYPE ARGUMENT F0D39230
STO 0,1 INSERT REVISED ARGUMENT COUNT IN HEADING F0D39240
TRA GSC32 F0D39250
REM REENTRY FOR MACRO INSTRUCTION CARDS F0D39260
MOP11 TSX RESTF,4 *RESTORE STUFF CONDITIONS F0D39270
ZET ETCMD IS AN ETC CARD EXPECTED F0D39280
TRA MSC10 YES F0D39290
CAL OPCOD NO, LOAD OPCODE F0D39300
ERA ENDMM IS OPCODE END F0D39310
TNZ MSC01 NO F0D39320
REM OPCODE IS END F0D39330
CAL BCDBF LOAD LOCATION FIELD F0D39340
TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0D39350
TNZ MOP12 IS THERE A SYMBOL F0D39360
LDQ RESIDU NO, SAVE BEGINNING OF VARIABLE FIELD F0D39370
STQ MOPMQ WHILE FINDING MACRO NAME F0D39380
CAL CHRCTR F0D39390
SLW MOPCH F0D39400
LXD VRFLD,2 LOAD WORD COUNT F0D39410
LXA VRFLD,1 LOAD CHARACTER COUNT F0D39420
TSX SSCAN,4 *ASSEMBLE VARIABLE FIELD SYMBOL F0D39430
TXI RMT02,,0 NO VARIABLE FIELD SYMBOL F0D39440
LDQ MOPMQ RESTORE BEGINNING OF VARIABLE FIELD F0D39450
STQ RESIDU F0D39460
CAL MOPCH F0D39470
SLW CHRCTR F0D39480
CAL SYMBL LOAD SYMBOL F0D39490
MOP12 LDQ Q0 LEFT ADJUST F0D39500
LGR 6 F0D39510
TNZ *-1 F0D39520
XCL F0D39530
ERA MOPNM IS THIS END OF MACRO F0D39540
TZE RMT02 YES F0D39550
TRA MSC01 NO F0D39560
REM F0D39570
RMTOP AXT -1,4 SET MACRO DEFINITION CARD SWITCH F0D39580
SXD MCRDF,4 (CALL CARD SWITCH FOR RMT * ) F0D39590
CAL CHRCTR LOAD FIRST CHARACTER F0D39600
ERA ASTRK IS IT * F0D39610
TNZ RMT00 NO F0D39620
AXT 5$BES01+4,4 YES, SET PASS TWO TRANSFER ADDRESS $F0D39630
REM TO LIST LOCATION LEFT ADJUSTED F0D39640
SXD OPBIN,4 F0D39650
TSX OTPUT,4 *WRITE RMT * CARD F0D39660
TSX RMTSR,4 *OUTPUT WAITING SEQUENCES F0D39670
TRA SOURC F0D39680
RMT00 TSX SETTP,4 *SET UP REMOTE ROUTING F0D39690
PZE ROUTE,,MOPSW F0D39700
TSX MACERR,4 **ALREADY SET UP F0D39710
AXT RMT01,4 SET TRANSFER UNTIL NEXT RMT CARD F0D39720
SXA MOPSW+1,4 F0D39730
CAL MOPTR LOAD POINTER TO MACRO DEFINITION TABLE F0D39740
LXD RMTEN,1 LOAD POINTER TO LAST REMOTE F0D39750
STD 0,1 INSERT POINTER IN HEADING DECREMENT F0D39760
STD RMTEN RESET POINTER F0D39770
PDX ,1 F0D39780
CAL BHEAD INSERT CURRENT HEADING CHARACTER F0D39790
ANA Q63 WITH EXTRANEOUS CHARACTERS DELETED F0D39800
SLW 0,1 AS HEADING ADDRESS F0D39810
TXI *+1,1,1 BUMP POINTER BY LENGTH OF HEADING F0D39820
ZSA MPCNT RESET REMOTE ARGUMENT COUNT F0D39830
AXT 1,2 SET SWITCH TO STUFF BACKWARD F0D39840
CAL * LOAD CALLING LINKAGE F0D39850
TRA STUFY *INITIALIZE SUBROUTINE TO STUFF MACRO DEF F0D39860
TSX SARGT,4 *INITIALIZE LOCATION OF ARGUMENT TABLE F0D39870
TRA GSC32 F0D39880
REM F0D39890
REM REENTRY FOR REMOTE INSTRUCTION CARD F0D39900
RMT01 TSX RESTF,4 *RESTORE STUFF CONDITIONS F0D39910
ZET ETCMD IS AN ETC CARD EXPECTED F0D39920
TRA MSC10 YES F0D39930
CAL OPCOD NO, LOAD OPCODE F0D39940
ERA RMTMM IS OPCODE RMT F0D39950
TNZ MSC01 NO F0D39960
REM OPCODE IS RMT, END OF REMOTE SEQUENCE F0D39970
REM REENTRY AFTER END OF MACRO DEFINITION F0D39980
REM CLOSE OUT MACRO DEFINITION TABLE F0D39990
RMT02 TSX SFZRO,4 *STUFF TERMINATING ZEROS F0D40000
TRA RMT03 TO CHECK FOR UNNESTED MACRO $F0D40010
SXD MOPTR,2 NO, SET POINTER TO NEXT HEADING F0D40020
SXD MAC07,2 RESET MACRO EXPANSION TABLE OVERFLOW TEST F0D40030
TSX OTPUT,4 *WRITE RMT/END CARD F0D40040
ZSD SSCN0 RESET MACRO DEFINITION SCAN SWITCH F0D40050
ZSD MCRDF RESET MACRO DEFINITION CARD SWITCH F0D40060
TSX RESTP,4 *RESET ASSEMBLER ROUTING F0D40070
PZE ROUTE,,MOPSW F0D40080
TRA SOURC F0D40090
REM F0D40100
REM ANALYSE CARD IN RANGE OF MACRO OR RMT F0D40110
REM DEFINE CARD LOCATION FIELD F0D40120
MSC01 CAL BCDBF LOAD LOCATION FIELD F0D40130
LAS BLANKS DOES LOCATION FIELD EXIST F0D40140
TRA *+2 YES F0D40150
TRA MSC02 NO F0D40160
TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL (OR EXPLICIT 0) F0D40170
TSX SMART,4 *LOOK UP LOCATION IN ARGUMENT TABLE F0D40180
TSX SFARN,4 *STUFF ARGUMENT NUMBER F0D40190
TSX SFARS,4 *STUFF LOCATION SYMBOL F0D40200
REM DEFINE CARD OPCODE F0D40210
MSC02 AXC Q1,1 PREPARE TO STUFF OP TAG F0D40220
TSX SFFLG,4 *STUFF FLAG F0D40230
LDQ RESIDU SAVE BEGINNING OF VARIABLE FIELD F0D40240
STQ MOPMQ DURING OPCODE ANALYSIS F0D40250
LDQ CHRCTR F0D40260
STQ MOPCH F0D40270
LDQ BCDBF+1 LOAD OPCODE F0D40280
LGL 6 INITIALIZE VARIABLE FIELD SCAN F0D40290
STQ RESIDU TO SCAN OPCODE F0D40300
ZAC INITIALIZE FIRST CHARACTER IN OPCODE F0D40310
LGL 6 F0D40320
SLW CHRCTR F0D40330
AXT -1,2 SET COUNT TO WORD 2 F0D40340
AXT 6,1 SET COUNT TO CHARACTER 2 F0D40350
REM REENTRY AFTER ' OR * F0D40360
MSC03 TSX SSCAN,4 *ASSEMBLE (PARTIAL) OP FIELD F0D40370
TXI MSC05,,0 NULL OP FIELD F0D40380
CAL SYMBL LOAD PARTIAL OP CODE F0D40390
TZE MSC04+2 IS THERE AN OP CODE F0D40400
SXA MSC04,2 YES, SAVE WORD COUNT F0D40410
SXA MSC04+1,1 SAVE CHARACTER COUNT F0D40420
TSX SMART,4 *LOOK UP OP CODE IN ARGUMENT TABLE F0D40430
TSX SFARN,4 *STUFF ARGUMENT NUMBER F0D40440
TSX SFARS,4 *STUFF OPCODE F0D40450
MSC04 AXT **,2 RELOAD WORD COUNT F0D40460
AXT **,1 RELOAD CHARACTER COUNT F0D40470
CAL CHRCTR RELOAD PUNCTUATION F0D40480
LAS PRIME IS PUNCTUATION ' F0D40490
TRA *+2 NO F0D40500
TRA MSC03 YES, GET NEXT SUBFIELD F0D40510
ERA ASTRK IS PUNCTUATION * F0D40520
TNZ MSC07 NO, CHECK FURTHER (24)F0D40530
MSC06 CAL CHRCTR YES, SET SUBFIELD TO PUNCTUATION (24)F0D40540
SLW SYMBL F0D40550
TSX SFARS,4 *STUFF * F0D40560
TRA MSC03 GET NEXT SUBFIELD F0D40570
REM BEGINNING OF VARIABLE FIELD SENSED F0D40580
MSC05 AXC Q62,1 PREPARE TO STUFF FIELD TAG F0D40590
TSX SFFLG,4 *STUFF FLAG F0D40600
TRA MSC09 COMPUTE VARIABLE FIELD POSITION (24)F0D40610
SXA ERASE,1 STORE IT FOR STUFF ROUTINE (24)F0D40620
AXC ERASE,1 STUFF INTO MACRO DEFINITION (24)F0D40630
TSX SFFLG,4 (24)F0D40640
REM F0D40650
REM BEGIN TESTS FOR OPCODES REQUIRING SPECIAL HANDLING F0D40660
MSC10 LXD VRFLD,2 LOAD WORD COUNT (24)F0D40670
LXA VRFLD,1 LOAD CHARACTER COUNT (24)F0D40680
AXT -1,4 PRESET FIRST FIELD SWITCH F0D40690
SXD GSCSA+1,4 F0D40700
STZ COUNT RESET FIELD COUNT F0D40710
STZ SYMBL RESET FIELD F0D40720
AXT 1,4 PRESET LENGTH OF FIELD TO BE STUFFED (24)F0D40730
SXD TOTAL,4 (24)F0D40740
CAL OPCOD LOAD OPCODE F0D40750
REM COMPARE FOR OP CODE OF BCD, BCI, TTL, OR REM (23)F0D40760
AXT 4,4 LOAD LENGTH OF TABLE (23)F0D40770
LAS BCDMM+4,4 COMPARE SUCCESSIVE ENTRIES (23)F0D40780
TRA *+2 AND IF MATCH IS FOUND, GO INITIALIZE (23)F0D40790
TRA MSC11 FOR FULL CARD SCAN (23)F0D40800
TIX *-3,4,1 IS LIST EXHAUSTED (23)F0D40810
TRA MSC1A YES, GO CHECK FOR LITERAL (23)F0D40820
REM PATCH TO MACRO INSTRUCTION ARGUMENT SCAN (23)F0D40830
MCERP TSX MCER1,4 SET FLAG AND PASS TWO ADDRESS (23)F0D40840
TRA SSN04+4 (23)F0D40850
REM ERROR ROUTINE FOR UNDEFINED MACRO NAME (23)F0D40860
MCER3 CAL UNDFL LOAD UNDEFINED FLAG (23)F0D40870
TSX MCERR,4 *SET FOR PASS TWO (23)F0D40880
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD (23)F0D40890
TRA READ1 (23)F0D40900
REM PATCH TO IFF PSEUDO-OPERATION PROCESSOR (23)F0D40910
IFF06 TXH IFF02,2,0 DO ARGUMENT LENGTHS DIFFER.. (23)F0D40920
LXA MARGS,4 NO, LOAD POINTER TO FIRST ARGUMENT (23)F0D40930
LXA MARGS-1,2 LOAD POINTER TO SECOND ARGUMENT (23)F0D40940
SXD IFF08,2 AND INITIALIZE TEST FOR END (23)F0D40950
IFF07 CAL 0,4 COMPARE CORRESPONDING WORDS (23)F0D40960
ERA 0,2 OF ARGUMENT STRINGS (23)F0D40970
TNZ IFF02 THROUGH IF DIFFERENT (23)F0D40980
TXI IFF08,4,-1 BUMP FIRST ARGUMENT POINTER (23)F0D40990
IFF08 TXL IFF02+1,4,** HAVE WE COMPARED ALL OF IT (23)F0D41000
TXI IFF07,2,-1 NO, KEEP CHECKING (23)F0D41010
REM TEST FOR LITERAL $F0D41020
MSC1A CAL CHRCTR $F0D41030
ERA EQUAL IF EQUAL TREAT AS $F0D41040
TNZ MSC20 HOLLERITH FIELD $F0D41050
REM REENTRY FOR TTL,REM, BCI, BCD WITH SYMBOLIC COUNT $F0D41060
MSC11 SXA GSAV1,1 SAVE VARIABLE FIELD CHARACTER COUNT $F0D41070
TXI MSC14,1,-1 $F0D41080
REM PATCH TO MACRO-INSTRUCTION PROCESSOR (23)F0D41090
MACIF TXL IFF01,4,** IS THIS IFF PSEUDO OPERATION (23)F0D41100
TRA MAC02 NO, CONTINUE TO ARGUMENT SCAN (23)F0D41110
REM PATCH TO GENERAL SCAN ROUTINE TO PREVENT LOSS OF (23)F0D41120
REM LAST PUNCTUATION CHARACTER OF ALPHANUMERIC FIELD (23)F0D41130
GSCBP AXC MSC22,4 UPDATE RETURN ADDRESS FROM GSCET (23)F0D41140
SXA SMARX,4 SUBROUTINE IN CASE NON-BLANK (23)F0D41150
TRA MSC22+2 PUNCTUATION OCCURS LATER ON CARD (23)F0D41160
REM RE-ENTRY FOR VARIABLE FIELD TO BE SCANNED IN FULL (23)F0D41161
MSC14 AXC 12,4 SET LENGTH OF CARD TO SCAN $F0D41170
SXD GSC11+1,4 SET END OF HOLLERITH FIELD SCAN TEST $F0D41180
AXT -1,4 SET HOLLERITH FIELD SWITCHES F0D41190
SXD GSC07,4 F0D41200
SXD GSC09,4 F0D41210
TRA MSC22 F0D41220
REM REENTRY FOR NONHOLLERITH OPCODES F0D41230
MSC20 SXA GSAV1,1 SAVE VARIABLE FIELD CHARACTER COUNT F0D41240
TXI *+1,1,-1 F0D41250
NZT ETCMD IS ETC CARD EXPECTED F0D41260
TRA MSC22 NO $F0D41270
STZ ETCMD YES, RESET FLAG F0D41280
LXD PCONT,4 PRESET PARTIAL FIELD COUNT F0D41290
SXD COUNT,4 F0D41300
CAL PSYMB PRESET PARTIAL SYMBOL F0D41310
SLW SYMBL F0D41320
ZSD GSC02+1 SET SWITCH TO PROCESS FIRST FIELD F0D41330
REM F0D41340
REM REENTRY FOR HOLLERITH OPCODES F0D41350
REM BEGIN VARIABLE FIELD SCAN F0D41360
MSC22 TSX GSCET,4 *ASSEMBLE NEXT FIELD F0D41370
TRA MSC23 FIELD IS AN ARGUMENT F0D41380
REM REENTRY FOR HOLLERITH FIELD NOT AN ARGUMENT F0D41390
ZSD GSCSA+1 RESET FIRST FIELD SWITCH F0D41400
CLA COUNT ADD FIELD COUNT F0D41410
ADD TOTAL INTO STUFF COUNT F0D41420
STO TOTAL F0D41430
STZ COUNT RESET FIELD COUNT F0D41440
STZ SYMBL DELETE FIELD NOT AN ARGUMENT F0D41450
LXA GSAV2,2 LOAD VARIABLE FIELD WORD COUNT F0D41460
TRA GSC01 F0D41470
REM FIELD IS AN ARGUMENT F0D41480
REM REENTRY AFTER FIRST BLANK IN HOLLERITH FIELD F0D41490
MSC23 TSX GSCSA,4 *STUFF ARGUMENT F0D41500
STZ COUNT RESET FIELD COUNT F0D41510
STZ SYMBL RESET FIELD F0D41520
AXT 2,2 SET STUFF COUNT TO INCLUDE F0D41530
SXD TOTAL,2 PRECEDING PUNCTUATION F0D41540
GSAV2 AXT **,2 LOAD VARIABLE FIELD WORD COUNT F0D41550
GSAV1 AXT **,1 LOAD VARIABLE FIELD CHARACTER COUNT F0D41560
TRA MSC22 ENSURE CORRECT RETURN ADDRESS (23)F0D41570
REM F0D41580
REM ASSEMBLE NEXT FIELD F0D41590
GSCET SXA SMARX,4 SAVE CALLING LINKAGE F0D41600
SXA GSCX1,2 SAVE STUFF WORD COUNT F0D41610
SXA GSCX2,1 SAVE STUFF CHARACTER COUNT F0D41620
GSC01 LXA GSAV1,1 LOAD VARIABLE FIELD CHARACTER COUNT F0D41630
TSX C0190,4 *GET NEXT CHARACTER F0D41640
SXA GSAV1,1 SAVE VARIABLE FIELD CHARACTER COUNT F0D41650
LXD COUNT,1 BUMP FIELD COUNT F0D41660
TXI *+1,1,1 F0D41670
SXD COUNT,1 F0D41680
LXD BKTBL,4 LOAD SPECIAL CHARACTER COUNT F0D41690
LAS BKTBL,4 IS THIS A SPECIAL CHARACTER F0D41700
TRA *+3 NO F0D41710
TRA GSC02 YES F0D41720
TIX *-3,4,1 IS SPECIAL CHARACTER COUNT EXHAUSTED F0D41730
CAL SYMBL YES, APPEND THIS CHARACTER F0D41740
ALS 6 TO PARTIAL SYMBOL F0D41750
ORA CHRCTR F0D41760
SLW SYMBL F0D41770
TRA GSC01 F0D41780
REM F0D41790
REM SYMBOL HAS BEEN ASSEMBLED, TRANSFER ON PUNCTUATION F0D41800
GSC02 SXA GSAV2,2 SAVE VARIABLE FIELD WORD COUNT F0D41810
TXH GSC16,2,-1 IS THIS FIRST FIELD ON ETC CARD F0D41820
TRA GSC04+1,4 NO, PROCESS FIELD ON PUNCTUATION F0D41830
REM F0D41840
TRA GSC15 PUNCTUATION IS ( F0D41850
TRA GSC34 PUNCTUATION IS , F0D41860
TRA GSC34 PUNCTUATION IS / F0D41870
TRA GSC09 PUNCTUATION IS BLANK F0D41880
TRA GSC34 PUNCTUATION IS * F0D41890
TRA GSC08 PUNCTUATION IS $ F0D41900
TRA GSC34 PUNCTUATION IS - F0D41910
TRA GSC07 PUNCTUATION IS ) F0D41920
TRA GSC34 PUNCTUATION IS + F0D41930
TRA GSC05 PUNCTUATION IS ' F0D41940
GSC04 TRA GSC34 PUNCTUATION IS = $F0D41950
REM F0D41960
REM PUNCTUATION IS ' F0D41970
GSC05 TSX GSC33,4 *CHECK PRECEDING FIELD FOR ARGUMENT F0D41980
TRA GSC06 FIELD IS AN ARGUMENT F0D41990
CLA COUNT ADD FIELD COUNT F0D42000
SUB D1 LESS PUNCTUATION CHARACTER F0D42010
ADD TOTAL INTO STUFF COUNT F0D42020
STO TOTAL F0D42030
TSX GSCSF,4 *STUFF FIELD PRECEDING ' F0D42040
ZSD GSCSA+1 RESET FIRST FIELD SWITCH F0D42050
TRA GSC06+1 F0D42060
REM ' FOLLOWS ARGUMENT F0D42070
GSC06 TSX GSCSA,4 *STUFF ARGUMENT PRECEDING ' F0D42080
AXC MSC22,4 SIMULATE CALL TO ASSEMBLE NEXT FIELD F0D42090
SXA SMARX,4 F0D42100
STZ COUNT RESET FIELD COUNT F0D42110
STZ SYMBL RESET FIELD F0D42120
AXT 1,2 SET STUFF COUNT TO OMIT PRECEDING ' F0D42130
SXD TOTAL,2 F0D42140
LXA GSAV2,2 LOAD VARIABLE FIELD WORD COUNT F0D42150
LXA GSAV1,1 LOAD VARIABLE FIELD CHARACTER COUNT F0D42160
TIX *+3,1,1 DELETE ' FROM STUFF COUNT F0D42170
TXI *+1,2,-1 F0D42180
AXT 6,1 F0D42190
SXA GSCX2,1 SAVE STUFF CHARACTER COUNT F0D42200
SXA GSCX1,2 SAVE STUFF WORD COUNT F0D42210
LXA GSAV2,2 RELOAD VARIABLE FIELD WORD COUNT F0D42220
TRA GSC01 F0D42230
REM F0D42240
REM PUNCTUATION IS ) F0D42250
GSC07 TXL GSC34,4,** IS ) WITHIN HOLLERITH FIELD F0D42260
CLA PARNC NO, BUMP PARENTHESES COUNT F0D42270
SUB Q1 F0D42280
STO PARNC F0D42290
TPL GSC34 ARE THERE TOO MANY RIGHT PARENTHESES F0D42300
TSX SFZRO,4 *YES, END THIS RECORD F0D42310
TRA GSCPE **SET ERROR FLAG (23)F0D42320
REM F0D42330
REM PUNCTUATION IS $ F0D42340
GSC08 LXA GSAV1,1 LOAD VARIABLE FIELD CHARACTER COUNT F0D42350
TSX C019A,4 *LOOK AT NEXT CHARACTER F0D42360
ERA BLANK IS IT BLANK F0D42370
TNZ GSC34 NO, $ IS HEADING CHARACTER F0D42380
TSX PEEKS,4 *YES, DOES ETC CARD FOLLOW F0D42390
TRA GSC20 YES F0D42400
NZT PARNC NO, ARE PARENTHESES BALANCED F0D42410
TRA GSC34 YES F0D42420
TRA GSCPE **NO, SET FLAG (23)F0D42430
REM F0D42440
REM PUNCTUATION IS BLANK F0D42450
GSC09 TXH GSC12,4,** IS BLANK WITHIN HOLLERITH FIELD F0D42460
TXH GSC10,1,1 YES,HAS A FIELD BEEN COLLECTED $F0D42470
AXT ,0 NO OPERATION $F0D42480
TXL GSC11,4,** NO, IS THIS FIRST BLANK F0D42490
AXT -1,4 YES, RESET SWITCH F0D42500
SXD GSC09+3,4 F0D42510
CLA TOTAL SAVE STUFF COUNT F0D42520
STO PCONT TO OMIT TERMINATING BLANKS F0D42530
TRA GSC11 F0D42540
REM FIELD HAS BEEN COLLECTED F0D42550
GSC10 TSX GSC33,4 *CHECK FIELD FOR ARGUMENT F0D42560
TXI G10P1,4,GSC10-1 *AXT -1,4 FIELD IS AN ARGUMENT. $F0D42570
CLA COUNT ADD FIELD COUNT F0D42580
ADD TOTAL INTO HOLLERITH FIELD COUNT F0D42590
TXI G10PA,4,GSC10-2 *AXT -2,4 STUFF UP TO BLANK. $F0D42600
GSC11 LXA GSAV2,4 LOAD VARIABLE FIELD WORD COUNT F0D42610
TXH GSCBP,4,** IS HOLLERITH FIELD COMPLETE (23)F0D42620
ZSD GSC09+3 YES, SET FIRST BLANK SWITCH F0D42630
CLA PCONT SET STUFF COUNT F0D42640
STO TOTAL TO HOLLERITH FIELD COUNT F0D42650
TSX GSCSF,4 *STUFF FIELD PRECEDING BLANK F0D42660
TRA GSC31 F0D42670
REM CARD IS STANDARD FORMAT F0D42680
GSC12 NZT PARNC ARE PARENTHESES BALANCED F0D42690
TRA *+5 YES F0D42700
TXH GSC34,2,-12 NO, IS VARIABLE FIELD EXHAUSTED F0D42710
TSX PEEKS,4 *YES, DOES AN ETC CARD FOLLOW F0D42720
TRA GSC20 YES F0D42730
GSCPE TSX MCER1,4 *NO, SET ERROR FLAG (23)F0D42740
REM END OF VARIABLE FIELD - BLANK DOES NOT FOLLOW ( OR $ F0D42750
TXH *+4,2,-12 IS VARIABLE FIELD EXHAUSTED F0D42760
TSX PEEKS,4 *YES, DOES AN ETC CARD FOLLOW F0D42770
TRA GSC20 YES F0D42780
TRA GSC13 NO F0D42790
TSX PEEKS,4 *DOES A PROGRAMMERS ETC FOLLOW F0D42800
TRA *+2 YES F0D42810
TRA GSC13 NO F0D42820
STZ ETCMD RESET ETC FLAG F0D42830
STZ ARGNO DELETE ARGUMENT NUMBER F0D42840
TSX SFARN+1,4 STUFF 7700 FLAG FOR FOLLOWING CARD ETC F0D42850
REM REENTRY FOR NO ETC CARD TO FOLLOW F0D42860
GSC13 TSX GSC33,4 *CHECK FIELD FOR ARGUMENT F0D42870
TRA GSC14 FIELD IS AN ARGUMENT F0D42880
CLA COUNT ADD FIELD COUNT F0D42890
SUB D1 LESS PUNCTUATION CHARACTER F0D42900
ADD TOTAL INTO STUFF COUNT F0D42910
STO TOTAL F0D42920
TSX GSCSF,4 *STUFF FIELD PRECEDING BLANK F0D42930
TRA GSC31 F0D42940
GSC14 TSX GSCSA,4 *STUFF ARGUMENT PRECEDING FINAL BLANK F0D42950
TRA GSC31 F0D42960
REM F0D42970
REM PUNCTUATION IS ( F0D42980
GSC15 CLA PARNC BUMP PARENTHESES COUNT F0D42990
ADD Q1 F0D43000
STO PARNC F0D43010
TRA GSC34 F0D43020
REM F0D43030
REM REENTRY FOR FIRST FIELD ON ETC CARD F0D43040
GSC16 SXA GSC19,4 SAVE PUNCTUATION CHARACTER F0D43050
CLA COUNT COMPUTE LENGTH OF ADDED SYMBOL F0D43060
SUB PCONT F0D43070
STD COUNT F0D43080
GSC17 TXL *+4,1,** IS THIS TAIL END OF A FIELD F0D43090
REM WHICH WAS TOO LONG TO BE AN ARGUMENT F0D43100
TXH *+3,1,7 NO, IS FIELD TOO LONG TO BE AN ARGUMENT F0D43110
TSX GSC33,4 *NO, CHECK FIELD FOR ARGUMENT F0D43120
TRA GSC18+2 FIELD IS AN ARGUMENT F0D43130
ZSD GSC17 RESET TAIL END SWITCH F0D43140
LXD PCONT,1 LOAD LENGTH OF PARTIAL FIELD F0D43150
TXL GSC18,1,0 IS THERE A PARTIAL FIELD F0D43160
TXI *+1,1,1 YES, COMPUTE LENGTH+1 OF PARTIAL FIELD F0D43170
SXA ERASE,1 F0D43180
AXC ERASE,1 F0D43190
TSX SFFLG,4 *STUFF COUNT+1 F0D43200
LXD PCONT,4 LOAD LENGTH OF PARTIAL FIELD F0D43210
LDC PCONT,2 COMPUTE LOCATION OF FIRST CHARACTER F0D43220
TXI *+1,2,6 F0D43230
AXC PSYMB,1 PREPARE TO STUFF PARTIAL FIELD F0D43240
CAL * LOAD CALLING LINKAGE F0D43250
TRA STUFF *STUFF PARTIAL FIELD F0D43260
TSX MACERR,4 **IMPOSSIBLE RETURN F0D43270
TRA ETCPC TRANSFER TO PATCH $F0D43280
GSC18 AXT -1,4 SET PARTIAL FIELD SWITCH F0D43290
SXD SMART+1,4 F0D43300
AXT -1,4 RESET FIRST FIELD SWITCH F0D43310
SXD GSC02+1,4 F0D43320
AXC MSC22,4 SIMULATE CALL TO ASSEMBLE NEXT FIELD F0D43330
SXA SMARX,4 F0D43340
LXD COUNT,1 LOAD LENGTH OF ADDED FIELD F0D43350
GSC19 AXT **,4 RELOAD PUNCTUATION CHARACTER F0D43360
TRA GSC02+2 F0D43370
REM F0D43380
REM ETC CARD WILL FOLLOW (BLANK, $BLANK, OR CARD COLUMN 72 F0D43390
GSC20 LXD COUNT,4 LOAD FIELD COUNT F0D43400
TXI *+1,4,-1 DELETE TERMINAL $ OR BLANK F0D43410
TXH GSC21,4,6 IS FIELD TOO LONG TO BE AN ARGUMENT F0D43420
SXD PCONT,4 NO, SAVE PARTIAL FIELD COUNT F0D43430
CAL SYMBL SAVE PARTIAL FIELD F0D43440
SLW PSYMB F0D43450
TSX GSCSF,4 *STUFF FIELD PRECEDING PARTIAL FIELD F0D43460
TRA GSC32 F0D43470
REM LAST FIELD IS NOT AN ARGUMENT F0D43480
GSC21 STZ PCONT RESET LENGTH OF PARTIAL FIELD F0D43490
STZ PSYMB DELETE PARTIAL FIELD F0D43500
PXD ,4 RECALL LENGTH OF PARTIAL FIELD F0D43510
ADD TOTAL ADD INTO STUFF COUNT F0D43520
STO TOTAL F0D43530
AXT -1,4 SET SWITCH THAT FIRST FIELD ON NEXT CARD F0D43540
SXD GSC17,4 IS TAIL END OF A FIELD NOT AN ARGUMENT F0D43550
TSX GSCSF,4 *STUFF TERMINAL FIELD F0D43560
TRA GSC32 F0D43570
REM F0D43580
REM REENTRY AFTER END OF SCAN F0D43590
GSC31 TSX SFZRO,4 *STUFF END OF RECORD MARK F0D43600
STZ PARNC RESET PAREN COUNT F0D43610
ZSD GSC07 RESET HOLLERITH FIELD SWITCHES F0D43620
ZSD GSC09 F0D43630
REM REENTRY AFTER END OF SCAN, ETC FOLLOWS F0D43640
REM REENTRY AFTER END OF MACRO DEFINING ARGUMENTS F0D43650
GSC32 LXD STUFI,4 SAVE STUFF CONDITIONS F0D43660
SXA RSTF1,4 IN CASE MAC ALTERS THEM F0D43670
LXD STUM2,4 F0D43680
SXA RSTF1+2,4 F0D43690
TRA READ1 F0D43700
REM F0D43710
REM REENTRY AFTER ' OR BLANK, OR FIRST FIELD ON ETC CARD F0D43720
GSC33 SXA SMARX,4 SAVE CALLING LINKAGE F0D43730
REM REENTRY AFTER OTHER PUNCTUATION F0D43740
GSC34 ZSD GSC09+3 SET FIRST BLANK SWITCH F0D43750
LXD COUNT,4 LOAD FIELD WIDTH F0D43760
TXH SMARX,4,7 IS FIELD TOO LONG TO BE AN ARGUMENT F0D43770
CAL SYMBL NO, LOAD FIELD F0D43780
TRA SMART+1 CHECK FOR ARGUMENT F0D43790
REM RETURN IS TO 1,4 FOR ARGUMENT F0D43800
REM 2,4 FOR OTHER FIELD F0D43810
REM F0D43820
REM STUFF ARGUMENT INTO MACRO DEFINITION F0D43830
GSCSA SXA GSCAX,4 SAVE CALLING LINKAGE F0D43840
TXL *+2,4,** IS THIS FIRST FIELD F0D43850
TSX GSCSF,4 *NO, STUFF FIELD PRECEDING ARGUMENT F0D43860
TSX SFARN+1,4 *STUFF ARGUMENT F0D43870
ZSD GSCSA+1 RESET FIRST FIELD SWITCH F0D43880
GSCAX AXT **,4 RELOAD CALLING LINKAGE F0D43890
TRA 1,4 F0D43900
REM F0D43910
REM STUFF FIELD INTO MACRO DEFINITION F0D43920
GSCSF SXA GSFP1,4 SAVE CALLING LINKAGE. $F0D43930
LXD TOTAL,1 LOAD LENGTH OF VARIABLE FIELD F0D43940
TXL GSCFX+1,1,1 DOES A VARIABLE FIELD EXIST... $F0D43950
TXL *+3,1,61 YES. IS FIELD COUNT TOO LONG... $F0D43960
TXI GSFPA,1,-14 *YES. BREAK IT UP AND STUFF TWICE. $F0D43970
SXD TOTAL,1 *TELL GS0X1+1 HOW MUCH TO STUFF. $F0D43980
SXA GSCFX,4 SET RETURN TO PATCH OR CALLER. $F0D43990
GSCS1 SXA ERASE,1 SET LENGTH+1 OF FIELD F0D44000
AXC ERASE,1 F0D44010
TSX SFFLG,4 *STUFF COUNT+1 F0D44020
GSCX2 AXC **,2 LOAD COUNT OF FIRST CHAR TO BE STUFFED F0D44030
GSCX1 AXT **,1 LOAD COUNT OF FIRST WORD TO BE STUFFED F0D44040
LXD TOTAL,4 LOAD LENGTH OF FIELD TO BE STUFFED F0D44050
TXI *+1,2,6 COMPUTE LOCATION OF FIRST CHARACTER F0D44060
TXI *+1,1,-BCDBF COMPUTE LOCATION OF FIRST WORD F0D44070
CAL * LOAD CALLING LINKAGE F0D44080
TXI STUFF,4,-1 STUFF FIELD F0D44090
TSX MACERR,4 **IMPOSSIBLE RETURN F0D44100
GSCFX AXT **,4 RELOAD CALLING LINKAGE F0D44110
TRA 1,4 F0D44120
REM F0D44130
REM FLOAT MACRO ARGUMENT TABLE ABOVE SYMBOL TABLE F0D44140
SARGT LXD STPTR,1 GET SYMBOL TABLE END $F0D44150
TRA SARGP AND CHECK FOR NESTING $F0D44160
SXD MP1,1 INITIALIZE MAC DEF OVERFLOW TEST $F0D44170
AXT -1,1 SET MACRO DEFINITION SCAN SWITCH F0D44180
SXD SSCN0,1 F0D44190
TRA 1,4 F0D44200
REM F0D44210
REM F0D44220
REM RESTORE STUFF CONDITIONS F0D44230
RESTF SXA RSTFX,4 SAVE CALLING LINKAGE F0D44240
RSTF1 AXT **,4 RESTORE STUFF F0D44250
TRA MP1 TEST FOR OVERFLOW OF MACRO DEF TABLE $F0D44260
AXT **,4 BY AN INTERVENING MAC CARD F0D44270
SXD STUM2,4 F0D44280
SXD STF01,4 F0D44290
ZSD STF03+1 DELETE OVERFLOW TEST F0D44300
ZSD STF08+2 F0D44310
AXT 1,4 F0D44320
SXD STF08+1,4 SET DIRECTION OF STUFF BACKWARD F0D44330
SXD STF10+2,4 F0D44340
AXT ,0 (23)F0D44350
CAL MOPP2 SET PASS 2 TRANSFER ADDRESS F0D44360
SLW OPBIN TO PRINT CARD F0D44370
RSTFX AXT **,4 RELOAD CALLING LINKAGE F0D44380
TRA 1,4 F0D44390
REM F0D44400
REM LOOK UP SYMBOL IN ARG TABLE F0D44410
SMARS CAL SYMBL F0D44420
SMART SXA SMARX,4 SAVE CALLING LINKAGE F0D44430
TXL SMARX,4,** IS THIS PARTIAL FIELD ON ETC CARD F0D44440
TZE SMARX NO, DOES ARGUMENT EXIST F0D44450
MPCNT AXT **,4 YES, LOAD COUNT OF ARGUMENTS IN TABLE F0D44460
TXL SMARX,4,0 DO ARGUMENTS EXIST F0D44470
LAS DARGS,4 YES, IS IT THIS ARGUMENT F0D44480
TRA *+2 NO F0D44490
TRA *+3 YES F0D44500
TIX *-3,4,1 IS ARGUMENT TABLE EXHAUSTED F0D44510
TRA SMARX YES F0D44520
REM ARGUMENT HAS BEEN LOCATED IN TABLE F0D44530
SXD ARGNO,4 SAVE ARGUMENT NUMBER F0D44540
LXA SMARX,4 RELOAD CALLING LINKAGE F0D44550
TRA 1,4 F0D44560
REM SYMBOL IS NOT AN ARGUMENT F0D44570
SMARX AXT **,4 RELOAD CALLING LINKAGE F0D44580
ZSD SMART+1 RESET PARTIAL FIELD SWITCH F0D44590
TRA 2,4 F0D44600
REM F0D44610
REM STUFF ARGUMENT NUMBER F0D44620
SFARN TXI *+1,4,-1 BUMP CALLING LINKAGE TO RETURN TO 2,4 F0D44630
SXA SFARX,4 SAVE CALLING LINKAGE F0D44640
CAL ARGNO LOAD ARGUMENT NUMBER F0D44650
ORA D4032 FORM 0077NN000000 F0D44660
SLW ERASE F0D44670
AXC ERASE,1 PREPARE TO STUFF FROM ERASE F0D44680
AXT 1,6 BEGINNING WITH SECOND CHARACTER F0D44690
TXI SFS04,4,1 USING TWO CHARACTERS F0D44700
REM STUFF ARGUMENT SYMBOL F0D44710
SFARS SXA SFARX,4 SAVE CALLING LINKAGE F0D44720
AXT 7,4 PREPARE TO COUNT CHARACTERS F0D44730
AXT 0,2 F0D44740
ZAC F0D44750
LDQ SYMBL LOAD SYMBOL F0D44760
LGL 6 NEXT CHARACTER F0D44770
TNZ *+3 IS THIS IT F0D44780
TXI *+1,2,1 NO, BUMP CHARACTER COUNT F0D44790
TIX *-3,4,1 IS SYMBOL ALL SCANNED F0D44800
SXA SFS03,4 SAVE LENGTH OF SYMBOL F0D44810
SXA SFS03+1,2 SAVE STARTING CHARACTER F0D44820
TXH SFS02,4,1 WAS FIELD BLANK OR ZERO F0D44830
AXC D2,1 YES, PREPARE TO STUFF EXPLICIT ZERO F0D44840
AXT 2,2 BEGINNING WITH THIRD CHARACTER F0D44850
TXI SFS04,4,1 USING TWO CHARACTERS F0D44860
REM ARGUMENT SYMBOL EXISTS F0D44870
SFS02 SXA ERASE,4 SET LENGTH+1 OF SYMBOL F0D44880
AXC ERASE,1 F0D44890
TSX SFFLG,4 *STUFF COUNT+1 F0D44900
SFS03 AXT **,4 RELOAD LENGTH+1 OF SYMBOL F0D44910
AXT **,2 RELOAD POSITION OF FIRST CHARACTER F0D44920
AXC SYMBL,1 PREPARE TO STUFF ARGUMENT SYMBOL F0D44930
TXI *+1,4,-1 USING LENGTH OF SYMBOL F0D44940
SFS04 CAL * LOAD CALLING LINKAGE F0D44950
TRA STUFF *STUFF SYMBOL OR COUNT AND FLAG F0D44960
TSX MACERR,4 **IMPOSSIBLE RETURN F0D44970
SFARX AXT **,4 RELOAD CALLING LINKAGE F0D44980
TRA 1,4 F0D44990
REM F0D45000
REM STUFF TERMINATING ZEROS F0D45010
SFZRO AXC Q0,1 PREPARE TO STUFF FROM ZEROS F0D45020
REM STUFF COUNT OR FLAG F0D45030
SFFLG SXA SFZRX,4 SAVE CALLING LINKAGE F0D45040
AXT 5,2 PREPARE TO STUFF FROM LAST CHARACTER F0D45050
AXT 1,4 USING ONE CHARACTER F0D45060
CAL * F0D45070
TRA STUFF F0D45080
TSX MACERR,4 **IMPOSSIBLE RETURN F0D45090
SFZRX AXT **,4 RELOAD CALLING LINKAGE F0D45100
TRA 1,4 F0D45110
EJECT F0D45120
REM ROUTINES TO EXPAND MACROS F0D45130
REM IFF, IRP, MAC, RMT * F0D45140
REM F0D45150
IFFOP TSX SCANF,4 *EVALUATE SWITCH F0D45160
TXI AFLAG+2,,0 NULL SWITCH F0D45170
SLT EXPRR IS SWITCH IN ERROR F0D45180
NZT RBITS NO, IS SWITCH ABSOLUTE F0D45190
TZE *+2 YES, IS SWITCH ZERO F0D45200
CAL Q1 NO, SET ABSOLUTE NONZERO, OR RELOCATABLE, F0D45210
REM SWITCH NOT IN ERROR TO 1 F0D45220
SLW VAREQ F0D45230
AXT -1,4 SET INTERCEPT IN MACRO PROCESSOR (23)F0D45240
SXD MACIF,4 TO RETURN AFTER SCAN INITIALIZATION (23)F0D45250
SXD SSN33,4 SET SWITCH FOR POSSIBLE ETC (23)F0D45260
SXA VRFLD,1 UPDATE CHARACTER POSITION (23)F0D45265
TRA MACOP+3 *INITIALIZE FOR ARGUMENT SCAN (23)F0D45270
REM REENTRY FROM MACRO ARGUMENT SCAN INITIALIZATION (23)F0D45275
IFF01 ZSD MACIF RESET SWITCH (23)F0D45280
SLT FLDND WAS END OF VARIABLE FIELD SENSED (33)F0D45290
TRA IFFIX NO (33)F0D45300
TRA IFFIX+1 YES (33)F0D45310
LXD MARGS,2 OBTAIN LENGTH OF FIRST ARGUMENT (23)F0D45320
TXH *+2,2,0 IS IT NULL (23)F0D45330
TXL IFF02+1,4,1 YES,TRANSFER IF NO SECOND ARGUMENT (23)F0D45340
LDC MARGS-1,4 INITIALIZE COMPUTATION OF (23)F0D45350
SXD *+1,4 DIFFERENCE IN ARGUMENT LENGTHS (23)F0D45360
TXI IFF06,2,** *COMPUTE DIFFERENCE IN LENGTH (23)F0D45370
REM REENTRY FROM COMPARISON OF ARGUMENTS (23)F0D45380
IFF02 CAL Q1 LOAD FLAG FOR UNEQUAL ARGUMENTS (23)F0D45390
ERA VAREQ COMBINE WITH SWITCH F0D45400
TNZ *+6 SHOULD FOLLOWING CARD BE OMITTED F0D45410
AXT -1,4 YES, SET FIRST CARD SWITCH F0D45420
SXD IFF04,4 F0D45430
TSX SETTP,4 *PLANT IFF INTERCEPT F0D45440
PZE ROUTE,,IFF03 F0D45450
TSX MACERR,4 **ALREADY SET UP F0D45460
TSX PMCS3,4 RESTORE MACRO STATUS (23)F0D45470
ZSD SSN33 RESET FOR NORMAL ETC PRINTING (23)F0D45480
TRA READ1 YES F0D45490
REM RETURN FROM MACRO COMPILER FOR SUBSEQUENT CARD F0D45500
IFF03 CAL BCDBF+1 LOAD OPCODE F0D45510
ANA PKMSK MASK IN CC 8 - 11 F0D45520
ERA ETCMK IS CARD ETC F0D45530
TZE IFF04+2 YES, CONTINUE DELETING GENERATED CARDS F0D45540
IFF04 TXH IFF05,4,** HAS A NON ETC CARD BEEN DELETED F0D45550
ZSD IFF04 NOT YET, RESTORE SWITCH F0D45560
AXT 5$TTL03+1,4 SET PASS TWO TRANSFER ADDRESS TO LIST $F0D45570
SXD OPBIN,4 THIS CARD UNDER CONTROL OF PCC $F0D45580
TRA READ1 F0D45590
REM DELETION IS COMPLETE F0D45600
IFF05 TSX RESTP,4 *REMOVE INTERCEPT F0D45610
PZE ROUTE,,IFF03 F0D45620
TRA ROUTE F0D45630
REM F0D45640
IRPOP LXA CLEVL,4 LOAD MACRO LEVEL F0D45650
TXL OPERR,4,0 **IS IRP WITHIN A MACRO F0D45660
AXT -1,4 YES, SET SWITCH TO INTERCEPT F0D45670
SXD CMP22,4 SUBSEQUENT IRP CARD F0D45680
TSX OTPT0,4 *LIST FIRST IRP F0D45690
TSX IRP10,4 *SUPPRESS FOLLOWING ETC F0D45700
LXA CHRCTR,1 LOAD FIRST CHARACTER IN VARIABLE FIELD F0D45710
TXI *+1,1,-48 IS IT BLANK F0D45720
TXL IRP01+1,1,0 YES F0D45730
IRP01 AXT **,1 NO, LOAD ARGUMENT NUMBER F0D45740
SXD IRPNO,1 F0D45750
TXL IRP06+1,1,0 IS IRP ON AN ARGUMENT F0D45760
CAL MDFCT YES, SAVE MACRO DEFINITION WORD,,CHAR F0D45770
SLW IRPPW COUNT OF BEGINNING OF IRP F0D45780
CLA MARGS+1,1 LOAD POINTER TO IRP ARGUMENT F0D45790
STO IRPAR SAVE IT FOR END OF IRP F0D45800
ADD Q1 F0D45810
STA IRPSD SET WORD COUNT OF BEGINNING OF ARGUMENT F0D45820
AXT 5,4 F0D45830
SXD IRPSD,4 SET CHAR COUNT OF BEGINNING OF ARGUMENT F0D45840
CAL COMMA PRESET LAST PUNCTUATION TO , F0D45850
STA IRPNO TO SCAN ARGUMENTS ON GENERATED IRP CARD F0D45860
STA LCHAR F0D45870
TXI IRP03,1,-1 F0D45880
REM REENTRY FROM COMPILER FOR NEXT CARD IN RANGE OF IRP F0D45890
IRP02 CAL BCDBF+1 LOAD OP FIELD F0D45900
ANA PKMSK MASK IN CARD COLUMNS 8 - 11 F0D45910
ERA IRPMK IS OPCODE IRP F0D45920
TZE *+4 YES F0D45930
LXD IRPNO,4 NO, LOAD IRP ARGUMENT COUNT F0D45940
TXL IRP06+1,4,0 IS IRP ON AN ARGUMENT F0D45950
TRA CMP22+1 YES F0D45960
REM SUBSEQUENT CARD IS IRP MARKING END OF RANGE F0D45970
TSX IRP10,4 *SUPPRESS FOLLOWING ETC F0D45980
LXD IRPNO,1 LOAD ARGUMENT NUMBER F0D45990
TXL IRP06,1,0 WAS IRP ON AN ARGUMENT F0D46000
CAL IRPNO YES, PRESET PUNCTUATION F0D46010
STA LCHAR AT BEGINNING OF NEXT STRING F0D46020
ANA ADDMK F0D46030
ERA BLANK IS IT BLANK F0D46040
TZE IRP05 YES, IRP ARGUMENTS ARE EXHAUSTED F0D46050
TXI *+1,1,-1 NO, BUMP ARGUMENT COUNT F0D46060
CLA MARGS,1 LOAD REFERENCE TO THIS ARGUMENT F0D46070
STA MEPTR OVERLAP ARGUMENTS F0D46080
REM REENTRY FOR FIRST IRP CARD F0D46090
IRP03 STZ MARGS,1 DELETE REFERENCE TO THIS ARGUMENT F0D46100
SXD ARGJL,1 SET ARGUMENT INDEX F0D46110
AXT -1,1 F0D46120
SXD SSN17,1 SET SWITCH TO AVOID BUMPING ARG INDEX F0D46130
CAL PRNLS SET PAREN LEVEL TO 0, ENABLE SCAN FOR , F0D46140
LXA LCHAR,4 LOAD LAST PUNCTUATION F0D46150
TXL *+3,4,59 WAS IT ( F0D46160
TXH *+2,4,60 NO F0D46170
CAL PRNLT YES, SET PAREN LEVEL TO 1, DISABLE , SCAN F0D46180
SLW PLEVL F0D46190
CAL IRPSD SET BEGINNING OF STRING F0D46200
STD SSNBC CHARACTER COUNT F0D46210
STA SSNBW WORD COUNT F0D46220
TSX SCANS,4 *INITIALIZE CHARACTER SCAN ROUTINE F0D46230
TXL SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D46240
TXL SSN01,,4 PUNCTUATION RETURN,,LENGTH OF TABLE F0D46250
TXL ,1,0 NULLIFY OVERFLOW TEST F0D46260
TSX SSINS,4 *ASSEMBLE NEXT STRING F0D46270
LXD IRPNO,4 LOAD ARGUMENT COUNT F0D46280
CAL MARGS+1,4 LOAD REFERENCE TO THIS ARGUMENT F0D46290
TNZ *+5 IS THIS FINAL NULL STRING F0D46300
CAL IRPNO F0D46310
ANA ADDMK F0D46320
ERA COMMA WAS PUNCTUATION COMMA F0D46330
TNZ IRP05+1 F0D46340
LXD SSNBC,2 NO, HOLD COUNTS OF START OF FOLLOWING STRNF0D46350
LXA SSNBW,1 F0D46360
SXD IRPSD,2 F0D46370
SXA IRPSD,1 F0D46380
CAL CCHAR HOLD CURRENT PUNCTUATION CHARACTER F0D46390
STA IRPNO FOR BEGINNING OF FOLLOWING STRING F0D46400
CAL IRPPW RESTORE MACRO DEFINITION WORD,,CHAR COUNT F0D46410
SLW MDFCT FOR NEXT ITERATION OVER RANGE OF IRP F0D46420
TRA IRP06+1 F0D46430
REM ARGUMENT LIST IS EXHAUSTED F0D46440
IRP05 LXD IRPNO,4 LOAD ARGUMENT COUNT F0D46450
CAL IRPAR RESTORE REFERENCE TO THIS ARGUMENT F0D46460
SLW MARGS+1,4 F0D46470
IRP06 ZSD CMP22 RESET IRP INTERCEPT F0D46480
TRA SOURC F0D46490
REM F0D46500
REM PREPARE FOR FOLLOWING ETC F0D46510
IRP10 SXA IRP1X,4 SAVE CALLING LINKAGE F0D46520
TSX PEEKS,4 *WILL FOLLOWING CARD BE AN ETC F0D46530
TRA *+2 YES F0D46540
TRA IRP1X NO F0D46550
LXD MDFCT,1 BUMP MACRO DEFINITION CHARACTER COUNT F0D46560
TXI *+1,1,1 F0D46570
SXD MDFCT,1 F0D46580
STZ ETCMD SUPPRESS ETC CARD F0D46590
ZSD CMP01 AS SCAN WAS IN MACRO EXPANSION TABLE F0D46600
IRP1X AXT **,4 RELOAD CALLING LINKAGE F0D46610
TRA 1,4 F0D46620
REM F0D46630
MACOP SLN 1 SET FLAG FOR MAC CALL F0D46640
REM ENTRY FOR MACRO NAME IN OPFIELD F0D46650
AXT -1,4 SET MACRO DEFINITION CARD SWITCH F0D46660
SXD MCRDF,4 F0D46670
TXI *+1,2,-BCDBF COMPUTE VARIABLE FIELD WORD COUNT F0D46680
LAC VRFLD,1 COMPUTE COUNT OF FIRST CHARACTER F0D46690
TXI *+1,1,6 IN VARIABLE FIELD F0D46700
SXA SSNBW,2 SAVE COUNTS OF BEGINNING OF STRING F0D46710
SXD SSNBC,1 F0D46720
TSX PMCS1,4 *PUSH MACRO STATUS DOWN F0D46730
CAL INDFG SET INDIRECTLY ADDRESSED MACRO FLAG F0D46740
STA MCIND F0D46750
TSX SCANS,4 *INITIALIZE CHARACTER SCAN ROUTINE F0D46760
TXL SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D46770
TXL SSN01,,4 PUNCTUATION RETURN,,LENGTH OF TABLE F0D46780
TXL SSN03,1,-BCDBF-12 OVERFLOW TEST F0D46790
CAL PRNLS ENABLE SCAN FOR , F0D46800
SLW PLEVL SET PAREN LEVEL TO 0 F0D46810
CAL COMMA PRESET LAST PUNCTUATION TO , F0D46820
STA LCHAR F0D46830
STZ MARGS RESET REFERENCE TO THIS ARGUMENT F0D46840
ZSD ARGJL RESET ARGUMENT INDEX F0D46850
SLT 1 IS THIS MAC CALL F0D46860
TRA MACIF NO, TEST FOR IFF (23)F0D46870
TSX SSING,4 *YES, LOCATE MACRO NAME IN STRING F0D46880
LXD MARGS,4 LOAD NUMBER OF CHARACTERS IN NAME F0D46890
TXL MCER3,4,0 **IS NAME NULL F0D46900
LXD MARGS,2 NO, LOAD LENGTH OF MACRO NAME F0D46910
LXA MARGS,1 LOAD POINTER TO NAME IN MACEXP F0D46920
CAL 0,1 LOAD MACRO NAME F0D46930
ANA MARMK,2 MASK OUT FOLLOWING GARBAGE F0D46940
TSX SOPTB,4 *EVALUATE MACRO NAME F0D46950
TRA MCER3 **NOT FOUND F0D46960
RNT 100000 IS THIS MACHINE OPERATION F0D46970
LNT 200000 NO, IS THIS PSEUDOOPERATION F0D46980
TRA MCER3 **YES F0D46990
STZ MARGS NO, IT IS MACRO, DELETE MACRO NAME F0D47000
ZSD ARGJL RESET ARGUMENT INDEX F0D47010
PIA RECALL SYMBOL DEFINITION F0D47020
PDX ,1 LOAD POINTER TO MACRO SKELETON F0D47030
TXI MAC02+2,1,1 BUMP PAST DEFINITION HEAD F0D47040
REM REENTRY FOR MACRO NAME IN OPFIELD F0D47050
MAC02 LXD OPBIN,1 LOAD POINTER FROM OP TABLE F0D47060
TXI *+1,1,1 BUMP PAST DEFINITION HEAD F0D47070
SXA MDFCT,1 SET FIRST WORD OF MACRO SKELETON F0D47080
ZSD MDFCT SET MACRO DEFINITION CHARACTER COUNT F0D47090
REM TO FIRST CHARACTER IN WORD F0D47100
CAL MOPP2 SET PASS TWO TRANSFER ADDRESS F0D47110
STO OPBIN IN CASE OF EMPTY MACRO $F0D47120
CAL 0,1 LOAD FIRST WORD OF MACRO DEFINITION F0D47130
TNZ *+3 IS MACRO EMPTY F0D47140
TSX PMCS3,4 *YES, PUSH MACRO STATUS UP F0D47150
TRA MAC2A $F0D47160
CLA 1,1 NO, LOAD MACRO ARGUMENT COUNT F0D47170
STD ARGIL SET ARGUMENT COUNT F0D47180
AXT 5$BES01+3,1 SET PASS TWO TRANSFER ADDRESS TO OMIT $F0D47190
TPL MAC03 IS THERE A LOCATION ARGUMENT F0D47200
AXT 5$UNLOP+1,1 YES, RESET PASS 2 TRANSFER ADDRESS TO OMITF0D47210
REM LISTING OCTAL LOCATION F0D47220
CAL BCDBF LOAD LOCATION FIELD F0D47230
TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0D47240
SLW ARGWD HOLD TO END OF ETC CARDS F0D47250
TRA MAC03+1 PREVENT MULTIPLY DEFINED LOCATION FIELDS F0D47260
REM ASSEMBLE ARGUMENTS F0D47270
MAC03 TSX ESYML,4 *DEFINE LOCATION FIELD F0D47280
SXD OPBIN,1 SET PASS TWO TRANSFER ADDRESS F0D47290
TSX SSINS,4 *ASSEMBLE ARGUMENT STRINGS F0D47300
MEPTR AXT **,1 LOAD POINTER TO NEXT ENTRY F0D47310
REM IN MACRO EXPANSION TABLE F0D47320
TRA MAC06 F0D47330
REM REENTRY TO CREATE NEXT SYMBOL F0D47340
MAC04 NZT CRSNO ARE CREATED SYMBOLS PERMITTED F0D47350
TRA MAC05 NO F0D47360
CRSCT AXT **,4 YES, LOAD CREATED SYMBOL COUNT F0D47370
TXI *+1,4,1 BUMP TO NEXT SYMBOL F0D47380
SXA CRSCT,4 F0D47390
TXL *+3,4,9999 ARE THERE TOO MANY CREATED SYMBOLS F0D47400
LDI CRSNM YES, LOAD CREATED SYMBOL NAME F0D47410
TRA SRCERR **TERMINATE ASSEMBLY F0D47420
PXA ,4 NO, LOAD SYMBOL F0D47430
TSX BCDCV,4 *CONVERT TO BCD F0D47440
LAS ADTMK IS CREATED SYMBOL GREATER THAN 3 DIGITS F0D47450
TRA *+3 YES F0D47460
NOP NO F0D47470
ORA CRPT1 APPEND . AS SECOND CHARACTER F0D47480
ALS 6 LEFT ADJUST F0D47490
ORA CRPT2 APPEND . AS FIRST CHARACTER F0D47500
SLW 0,1 INSERT CREATED SYMBOL F0D47510
SXA CRSNO,1 SAVE POINTER TO THIS SYMBOL F0D47520
TXI *+1,1,-1 BUMP POINTER TO NEXT ENTRY F0D47530
REM REENTRY FOR CREATED SYMBOLS SUPPRESSED F0D47540
MAC05 CAL CRSNO LOAD CREATED SYMBOL POINTER,,COUNT F0D47550
LXD ARGJL,2 LOAD ARGUMENT TABLE INDEX F0D47560
TXI *+1,2,1 BUMP ARGUMENT TABLE INDEX F0D47570
SXD ARGJL,2 F0D47580
SLW MARGS+1,2 INSERT REFERENCE F0D47590
REM REENTRY AFTER ASSEMBLING STRING F0D47600
MAC06 LXD ARGIL,4 LOAD LENGTH OF ARGUMENT LIST F0D47610
ARGJL TXH MAC04,4,** ARE ANY TERMINAL ARGUMENTS MISSING F0D47620
REM (DECREMENT IS CURRENT ARGUMENT NUMBER) F0D47630
CAL ARGWD NO, LOAD SUBSTITUTABLE LOCATION FIELD F0D47640
TZE MAC07 IS THERE ANY F0D47650
LDQ BLANKS YES, LOAD FOLLOWING BLANKS F0D47660
AXT 1,2 PREPARE TO COUNT CHARACTERS F0D47670
LGR 6 LEFT ADJUST SYMBOL F0D47680
TZE *+2 F0D47690
TXI *-2,2,1 F0D47700
STQ 0,1 INSERT LOCATION ARGUMENT IN MACEXP TABLE F0D47710
PXA ,1 F0D47720
TXI *+1,1,-1 BUMP POINTER TO NEXT ENTRY F0D47730
SLW MARGS+1,4 OVERWRITE PREVIOUS POINTER WORD F0D47740
PXD ,2 RECALL CHARACTER COUNT F0D47750
STD MARGS+1,4 INSERT IN REFERENCE F0D47760
STZ ARGWD DELETE SUBSTITUTABLE LOCATION FIELD F0D47770
REM REENTRY FOR CREATED ARGUMENTS SUPPRESSED F0D47780
MAC07 TXL OVRLP,1,** IS MACRO EXPANSION TABLE FULL F0D47790
SXA MEPTR,1 NO, SAVE POINTER TO NEXT ENTRY F0D47800
TSX PMCL1,4 *BUMP MACRO LEVEL F0D47810
TSX OTPUT,4 *WRITE MACRO CALL CARD F0D47820
ZSD MCRDF RESET MACRO CALL CARD SWITCH F0D47830
TRA SOURC F0D47840
REM F0D47850
REM OUTPUT REMOTE SEQUENCES F0D47860
RMTSR SXA RMTSX,4 SAVE CALLING LINKAGE F0D47870
TSX SETTP,4 *SET UP REMOTE ROUTING F0D47880
PZE SOURC,,RMTS1 F0D47890
TSX MACERR,4 **ALREADY SET UP F0D47900
CAL BHEAD SAVE CURRENT HEADING CHARACTER F0D47910
STA RMTS2 F0D47920
ZSD MCRDF RESET MACRO CALL CARD SWITCH F0D47930
REM REENTRY AFTER OUTPUTTING REMOTE SEQUENCE F0D47940
RMTS1 LXD RMTEN+1,1 LOAD POINTER TO NEXT SEQUENCE F0D47950
TXL RMTS2,1,0 IS TABLE EXHAUSTED F0D47960
TSX PMCS1,4 *NO, PUSH MACRO STATUS DOWN F0D47970
ZSD ARGIL RESET NUMBER OF ARGUMENTS F0D47980
ZSD MDFCT SET MACRO DEFINITION CHARACTER COUNT F0D47990
REM TO FIRST CHARACTER IN WORD F0D48000
LXD RMTEN+1,1 LOAD POINTER TO NEXT SEQUENCE F0D48010
CAL 0,1 LOAD HEADING F0D48020
STA BHEAD SET REMOTE HEADING CHARACTER F0D48030
STA LITRL SAVE FOR PASS TWO F0D48040
ANA D32767 MOVE POINTER TO NEXT SEQUENCE F0D48050
STD RMTEN+1 TO CURRENT POINTER F0D48060
TNZ *+3 IS THERE ANOTHER SEQUENCE F0D48070
AXC RMTEN+1,4 NO, RESTORE POINTER FOR FIRST SEQUENCE F0D48080
SXD RMTEN,4 F0D48090
TXI *+1,1,1 BUMP COUNT PAST HEADING F0D48100
SXA MDFCT,1 F0D48110
TSX PMCL1,4 *BUMP MACRO LEVEL F0D48120
CAL RMTP2 SET PASS TWO TRANSFER ADDRESS F0D48130
SLW OPBIN F0D48140
TSX OTPT0,4 *WRITE INTERMEDIATE TAPE ONLY F0D48150
TRA SOURC F0D48160
REM REMOTE SEQUENCES EXHAUSTED F0D48170
RMTS2 AXT **,4 RESTORE CURRENT HEADING CHARACTER F0D48180
SXA BHEAD,4 F0D48190
SXA LITRL,4 SAVE FOR PASS TWO F0D48200
CAL RMTP2 SET PASS TWO TRANSFER ADDRESS F0D48210
SLW OPBIN F0D48220
TSX OTPT0,4 *WRITE INTERMEDIATE TAPE ONLY F0D48230
TSX RESTP,4 *RESTORE ASSEMBLER ROUTING F0D48240
PZE SOURC,,RMTS1 F0D48250
RMTSX AXT **,4 RELOAD CALLING LINKAGE F0D48260
TRA 1,4 F0D48270
REM F0D48280
REM ASSEMBLE MACRO NAME F0D48290
SSING AXT -1,1 SET INTERCEPT TO RETURN WITH MACRO NAME F0D48300
SXD SSN18,1 F0D48310
REM REENTRY TO ASSEMBLE STRING F0D48320
SSINS SXA SSINX,4 SAVE CALLING LINKAGE F0D48330
LXD SSNBC,2 LOAD BEGINNING OF STRING CHARACTER COUNT F0D48340
LXA SSNBW,1 LOAD BEGINNING OF STRING WORD COUNT F0D48350
TXI SCANT,2,1 F0D48360
REM F0D48370
REM CHARACTER IS PUNCTUATION F0D48380
SSN01 STA CCHAR SAVE CURRENT CHARACTER F0D48390
TRA *+5,4 F0D48400
TRA SSN08 CHARACTER IS ( F0D48410
PLEVL TXI SSN07,,** CHARACTER IS , F0D48420
REM (RESET TO SSN10 IF WITHIN PARENS) F0D48430
TRA SSN02 PUNCTUATION IS BLANK F0D48440
REM PUNCTUATION IS ) F0D48450
LXD PLEVL,4 LOAD PAREN COUNT F0D48460
TXL MCERP,4,0 **IS ) EXCESSIVE (23)F0D48470
TXI *+1,4,-1 NO, BUMP PAREN COUNT F0D48480
SXD PLEVL,4 F0D48490
TXH SSN10,4,0 IS THIS OUTERMOST ) F0D48500
AXT SSN07,4 YES, REENABLE SCAN FOR , F0D48510
SXA PLEVL,4 F0D48520
TRA SSN11 F0D48530
REM PUNCTUATION IS BLANK F0D48540
SSN02 LXD PLEVL,4 LOAD PAREN LEVEL F0D48550
TXL *+5,4,0 IS BLANK BETWEEN PARENTHESES F0D48560
LXA LCHAR,4 YES, LOAD PRECEDING CHARACTER F0D48570
TXL SSN10,4,42 IS IT $ F0D48580
TXH SSN10,4,43 NO F0D48590
TRA SSN03+3 YES F0D48600
REM BLANK IS NOT WITHIN PARENTHESES F0D48610
LXA LCHAR,4 LOAD PRECEDING CHARACTER F0D48620
TXL SSN04+4,4,42 IS CHARACTER $ F0D48630
TXH SSN04+4,4,43 NO F0D48640
TRA SSN03+3 YES F0D48650
REM REENTRY AFTER INPUT CARD COLUMN 72 F0D48660
SSN03 LXA LCHAR,4 LOAD PRECEDING CHARACTER F0D48670
TXL SSN04,4,42 IS IT $ F0D48680
TXH SSN04,4,43 NO F0D48690
REM REENTRY FOR $BLANK F0D48700
TXH *+3,2,0 DELETE $ F0D48710
TXI *+1,1,1 F0D48720
TXI *+2,2,5 F0D48730
TXI *+1,2,-1 F0D48740
REM REENTRY AFTER CARD COLUMN 72 WITH NO PRECEDING $ F0D48750
SSN04 TSX PEEKS,4 *DOES ETC CARD FOLLOW F0D48760
TRA SSN05 YES F0D48770
LXD PLEVL,4 NO, LOAD PAREN LEVEL F0D48780
TXH MCERP,4,0 **ARE PARENTHESES UNBALANCED (23)F0D48790
REM REENTRY FOR BLANK NOT WITHIN PARENTHESES F0D48800
AXT -1,4 NO F0D48810
SXD SSN18,4 SET SWITCH TO RETURN WITH STRING F0D48820
SXD SSN12,4 SET SWITCH TO SUPPRESS NULL STRING STUFF F0D48830
TRA SSN11 F0D48840
REM REENTRY FOR ETC CARD TO FOLLOW F0D48850
SSN05 PXD ,2 LOAD INPUT CARD CHAR COUNT (CLEAR AC) F0D48860
TXL SSN06,2,0 IS INPUT WORD EXHAUSTED F0D48870
LDQ 0,1 NO, LOAD INPUT WORD F0D48880
PDX ,4 LOAD CHARACTER COUNT F0D48890
TNX SSN06+2,4,1 LEFT ADJUST PRECEDING CHARACTER F0D48900
RQL 6 F0D48910
TRA *-2 F0D48920
SSN06 LDQ -1,1 LOAD NEXT INPUT WORD F0D48930
RQL 30 LEFT ADJUST PRECEDING CHARACTER F0D48940
LGL 6 LOAD PRECEDING CHARACTER F0D48950
STA CCHAR F0D48960
AXT -1,4 F0D48970
SXD SSN17,4 SET SWITCH TO AVOID BUMPING ARGUMENT COUNTF0D48980
TRA SSN11 F0D48990
REM PUNCTUATION IS , F0D49000
SSN07 LXA LCHAR,4 LOAD PRECEDING CHARACTER F0D49010
TXH SSN11,4,28 IS PRECEDING CHARACTER ) F0D49020
TXL SSN11,4,27 NO F0D49030
TRA SSN09 YES, , NOT CONSIDERED PUNCTUATION F0D49040
REM PUNCTUATION IS ( F0D49050
SSN08 LXD PLEVL,4 BUMP PAREN COUNT F0D49060
TXI *+1,4,1 F0D49070
SXD PLEVL,4 F0D49080
TXH SSN10,4,1 IS THIS FIRST ( F0D49090
AXT SSN10,4 YES, DISABLE SCAN FOR , F0D49100
SXA PLEVL,4 F0D49110
LCHAR AXT **,4 LOAD PRECEDING CHARACTER F0D49120
TXH SSN11,4,59 IS IT , F0D49130
TXH SSN09,4,58 YES F0D49140
TXH SSN11,4,28 NO, IS IT ( F0D49150
TXL SSN11,4,27 NO F0D49160
REM REENTRY FOR ), OR ,( F0D49170
SSN09 SXD SSNBC,2 RESET BEGINNING OF STRING F0D49180
SXA SSNBW,1 TO COUNT OF PUNCTUATION CHARACTER F0D49190
CAL CCHAR RELOAD CURRENT CHARACTER F0D49200
REM CHARACTER IS NOT PUNCTUATION, OR PUNCTUATION NOT BREAK F0D49210
SSN10 STA LCHAR SAVE LAST CHARACTER F0D49220
TXI SCANU+1,2,1 F0D49230
REM F0D49240
REM PUNCTUATION IS BREAK CHARACTER F0D49250
SSN11 SXA SSNEC,2 SAVE POSITION OF PUNCTUATION F0D49260
SXD SSNEW,1 AT END OF STRING F0D49270
SSNBW AXT **,1 LOAD COUNT OF WORD INCLUDING PUNCTUATION F0D49280
REM AT BEGINNING OF STRING F0D49290
SSNEW TXL *+3,1,** IS THIS WORD AT END OF STRING F0D49300
TXI *+1,2,6 NO, BUMP CHARACTER COUNT BY ONE WORD F0D49310
TXI *-2,1,-1 BUMP WORD COUNT BY ONE WORD F0D49320
SSNBC TIX *+2,2,** REDUCE STRING LENGTH BY CHARACTER COUNT F0D49330
REM OF PUNCTUATION AT BEGINNING OF STRING F0D49340
TRA *+2 IT WAS -1, OMIT NEXT STEP (24)F0D49350
TXI *+1,2,-1 DELETE PUNCTUATION CHARACTER FROM COUNT F0D49360
SXD COUNT,2 SAVE LENGTH OF STRING (23)F0D49370
SSN13 TXL SSN14,1,** IS THIS FIRST ON ETC CARD (23)F0D49380
SSN12 TXH *+2,1,** NO, IS THIS FINAL STRING (23)F0D49390
TXL SSN22,2,0 YES, IS IT NULL (23)F0D49400
LXA MEPTR,1 NO, LOAD POINTER TO MACRO EXPANSION TABLE F0D49410
AXT -1,2 SET DIRECTION OF STUFF FORWARD F0D49420
LXD MAC07,4 LOAD LOWER END OF MACRO DEFINITION TABLE F0D49430
CAL * LOAD CALLING LINKAGE F0D49440
TRA STUFY *INITIALIZE ROUTINE TO STUFF MACEXP F0D49450
SSN14 ZSD SSN13 RESET ETC SWITCH F0D49460
LXD SSNBC,2 RELOAD COUNTS OF BEGINNING OF STRING F0D49470
LXA SSNBW,1 F0D49480
TXI *+1,2,1 NUMBER OF LEADING CHARACTERS (24)F0D49490
TXL *+3,2,5 IN FIRST WORD, IS IT SIX (24)F0D49500
TXI *+1,1,-1 YES, BUMP TO NEXT WORD (24)F0D49510
TXI *+1,2,-6 AND ADJUST CHARACTER COUNT (24)F0D49520
LXD COUNT,4 LOAD LENGTH OF STRING F0D49530
CAL * LOAD CALLING LINKAGE F0D49540
TRA STUFF *ADD STRING TO EXPANSION F0D49550
TRA OVRLP **EXPANSION TABLE FULL F0D49560
ZET ETCMD WILL AN ETC CARD FOLLOW F0D49570
TRA SSN16 YES F0D49580
AXT 1,7 NO, PREPARE TO STUFF ONE CHARACTER F0D49590
CAL * LOAD CALLING LINKAGE F0D49600
TXI STUFF,1,-BLANKS-1 *STUFF TERMINATING BLANK F0D49610
TRA OVRLP **EXPANSION TABLE FULL F0D49620
SSN16 LDQ MEPTR LOAD POINTER TO THIS ARGUMENT F0D49630
SXA MEPTR,2 SET POINTER TO NEXT ARGUMENT F0D49640
LXD ARGJL,4 LOAD ARGUMENT LIST COUNT F0D49650
CLA MARGS,4 LOAD REFERENCE TO THIS ARGUMENT F0D49660
PAX ,2 LOAD POINTER TO THIS ARGUMENT F0D49670
ADD COUNT BUMP BY LENGTH OF STRING F0D49680
STD MARGS,4 SET REFERENCE TO NEXT ARGUMENT F0D49690
TXH *+3,2,0 IS THIS REMAINDER OF ARGUMENT F0D49700
REM ON FOLLOWING ETC CARD F0D49710
XCL NO, RECALL POINTER TO THIS ARGUMENT F0D49720
STA MARGS,4 SET POINTER TO THIS ARGUMENT F0D49730
CCHAR AXT **,1 SET BREAK PUNCTUATION F0D49740
SXA LCHAR,1 AS NEW PRECEDING CHARACTER F0D49750
SSNEC AXT **,2 SET BEGINNING OF NEXT STRING F0D49760
LXD SSNEW,1 TO PUNCTUATION AT END OF LAST STRING F0D49770
SXD SSNBC,2 F0D49780
SXA SSNBW,1 F0D49790
SSN17 TXL SSN18+2,1,** IS THIS PARTIAL ARGUMENT OR IRP F0D49800
TXI *+1,4,1 NO, BUMP ARGUMENT COUNT F0D49810
TXH SSN18,4,63 DID ARGUMENT TABLE OVERFLOW F0D49820
SXD ARGJL,4 NO, SET ARGUMENT COUNT F0D49830
STZ MARGS,4 CLEAR REFERENCE F0D49840
REM REENTRY FOR TRUNCATED ARGUMENT LIST F0D49850
SSN18 TXL SSN22,1,** IS IMMEDIATE RETURN REQUESTED F0D49860
TXI SCANT,2,1 NO, ASSEMBLE NEXT STRING F0D49870
REM F0D49880
REM END OF CARD F0D49890
ZSD SSN18 RESET IMMEDIATE RETURN SWITCH F0D49900
ZSD SSN17 RESET END OF CARD SWITCH F0D49910
NZT ETCMD WILL AN ETC CARD FOLLOW F0D49920
TRA SSN22+2 NO F0D49930
LXA CLEVL,1 YES, LOAD MACRO LEVEL F0D49940
TXL SSN21,1,0 IS THIS FIRST LEVEL MACRO F0D49950
LXA MEPTR,1 NO, PREPARE TO PUSH TO MACRO EXP TABLE F0D49960
LXA MCIND,4 PUSH DOWN INDIRECT ADDRESS FLAG F0D49970
SXA SSLOC,4 F0D49980
CLA P7 PREPARE TO PUSH F0D49990
TSX PUPOP,4 *PUSH DOWN INCOMPLETE ARGUMENT INDEX F0D50000
LXD SSLOC,1 LOAD LOCATION OF PREVIOUS STATUS F0D50010
CAL P7 PREPARE TO POP F0D50020
TSX PUPOP,4 *POP UP PREVIOUS COMPILER STATUS F0D50030
REM TO GENERATE ETC CARD F0D50040
CAL SSLOC RESTORE INDIRECT ADDRESS FLAG F0D50050
STA MCIND F0D50060
SSN21 LXD STUFI,4 SAVE STUFF STATUS F0D50070
SXA SSN32,4 F0D50080
LXD STUM2,4 F0D50090
SXA SSN32+2,4 F0D50100
NOP $F0D50110
TSX SETTP,4 *SET UP MACRO ROUTING F0D50120
PZE ROUTE,,SSN30 F0D50130
TSX MACERR,4 **ALREADY SET UP F0D50140
TRA READ1 F0D50150
REM REENTRY TO RETURN WITH STRING, OR AFTER FINAL NULL STRINGF0D50160
SSN22 ZSD SSN18 RESET IMMEDIATE RETURN SWITCH F0D50170
ZSD SSN17 RESET PARTIAL ARGUMENT SWITCH F0D50180
REM REENTRY AFTER END OF CARD, NO ETC CARD TO BE GENERATED F0D50190
ZSD SSN12 RESET FINAL STRING SWITCH (23)F0D50200
SSINX AXT **,4 RELOAD CALLING LINKAGE F0D50210
TRA 1,4 F0D50220
REM F0D50230
REM REENTRY FOR ARGUMENT LIST ETC CARD F0D50240
SSN30 TSX RESTP,4 *RESET ASSEMBLER ROUTING F0D50250
PZE ROUTE,,SSN30 F0D50260
SLT EXPRR WAS OP FIELD IN ERROR F0D50270
TRA *+2 NO F0D50280
TSX MACERR,4 **YES, BUT IT MUST BE ETC F0D50290
STZ ETCMD RESET ETC FLAG F0D50300
CAL MOPP2 SET PASS TWO TRANSFER F0D50310
SSN31 TRA SSN33 *TO PRINT CARD, PROVISIONALLY (23)F0D50320
LXA CLEVL,1 LOAD MACRO LEVEL F0D50330
TXL SSN32,1,0 IS THIS FIRST LEVEL MACRO F0D50340
LXA MEPTR,1 LOAD POINTER TO MACRO EXPANSION TABLE F0D50350
CAL 2,1 GET LOCATION OF OUTER SCAN STATUS F0D50360
PDX ,2 F0D50370
CAL MDFCT INSERT MACRODEFINITION WORD,,CHAR COUNT F0D50380
SLW 0,2 SO THAT IT MAY BE POPPED BACK F0D50390
CAL P7 PREPARE TO POP F0D50400
TSX PUPOP,4 *POP UP INCOMPLETE ARGUMENT INDEX F0D50410
CAL SSLOC RESTORE INDIRECT ADDRESS FLAG F0D50420
STA MCIND F0D50430
SSN32 AXT **,4 RESTORE STUFF COUNTS F0D50440
SXD STUFI,4 F0D50450
AXT **,4 F0D50460
SXD STF01,4 F0D50470
SXD STUM2,4 F0D50480
LXD MAC07,4 RESTORE STUFF OVERFLOW TESTS F0D50490
SXD STF03+1,4 F0D50500
SXD STF08+2,4 F0D50510
AXT -1,4 RESTORE DIRECTION OF STUFF F0D50520
SXD STF08+1,4 F0D50530
SXD STF10+2,4 F0D50540
SXD SSN13,4 SET ETC SWITCH F0D50550
TSX SCANS,4 *INITIALIZE CHARACTER SCAN ROUTINE F0D50560
TXL SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D50570
TXL SSN01,,4 PUNCTUATION RETURN,,LENGTH OF TABLE F0D50580
TXL SSN03,1,-BCDBF-12 OVERFLOW TEST F0D50590
LAC VRFLD,2 COMPUTE CHARACTER COUNT F0D50600
TXI *+1,2,6 F0D50610
LXD VRFLD,1 COMPUTE WORD COUNT F0D50620
TXI *+1,1,-BCDBF F0D50630
SXD SSNBC,2 SET COUNTS OF BEGINNING OF STRING F0D50640
SXA SSNBW,1 F0D50650
TXI SCANT,2,1 F0D50660
REM F0D50670
REM COMPILE MACRO EXPANSION F0D50680
CMPIL AXC BCDBF,1 PREPARE TO STUFF INTO CARD IMAGE $F0D50690
AXC BCDBF,4 BUFFER $F0D50695
AXT -1,2 SET SWITCH TO STUFF FORWARD F0D50700
SXD MCREF,2 SET MACRO GENERATED CARD SWITCH F0D50710
SXD CMP11,2 PRESET END OF MACRO EXPANSION SWITCH F0D50720
SXD PKMSW,2 SET LOOKAHEAD SWITCH FOR ETC CARD F0D50730
CAL * LOAD CALLING LINKAGE F0D50740
TXI STUFY,4,-12 *INITIALIZE STUFF ROUTINE F0D50750
CMP01 TXH CMP04,2,** IS AN ETC CARD TO BE CREATED F0D50760
ZSD CMP01 YES, RESET SWITCH F0D50770
ZSD CMP11 RESET END OF MACRO EXPANSION SWITCH F0D50780
CMPVF AXT 15,4 LOAD NUMBER OF CHARACTERS TO BE STUFFED F0D50790
REM (RESET TO 11 FOR 704 MODE) F0D50800
AXT 0,1 PREPARE TO STUFF FROM $F0D50805
AXT 0,2 FIRST CHARACTER $F0D50810
CAL * LOAD CALLING LINKAGE F0D50820
TXI STUFF,1,-ETCCD *STUFF ETC OPCODE F0D50830
TSX MACERR,4 **IMPOSSIBLE RETURN F0D50840
CMP02 AXT **,4 RESTORE DIRECTION OF STUFF F0D50850
SXD STF06+1,4 F0D50860
AXT **,4 RELOAD NUMBER OF REMAINING CHARACTERS F0D50870
AXT **,2 RELOAD CARD IMAGE CHARACTER COUNT F0D50880
AXT **,1 RELOAD CARD IMAGE WORD COUNT F0D50890
CAL * LOAD CALLING LINKAGE F0D50900
TRA STUFF *STUFF REMAINDER OF FIELD F0D50910
TRA CMP20 CARD IMAGE FULL F0D50920
REM REENTRY IF NO ETC CARD IS TO BE CREATED F0D50930
CMP04 ZSD PKMSW+1 RESET ETC SWITCH F0D50940
AXT 1,4 PREPARE TO STUFF FROM BACKWARD DATA F0D50950
SXD STF06+1,4 F0D50960
TSX SCANS,4 *INITIALIZE CHARACTER SCAN ROUTINE F0D50970
TXL CMP05,,MDTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D50980
TXL CMP10,,4 PUNCTUATION RETURN,,LENGTH OF TABLE F0D50990
TXH ,1,-1 NULLIFY OVERFLOW TEST F0D51000
ZSD CMPFC RESET FIELD LENGTH F0D51010
ZSD CMPCT RESET COUNT OF COLUMNS STUFFED F0D51020
TRA CMP16 F0D51030
REM F0D51040
REM CHARACTER IS NOT PUNCTUATION, IT IS FIELD LENGTH+1 F0D51050
CMP05 SXA MDFCT,1 SAVE MACRO DEFINITION WORD COUNT F0D51060
PAX ,4 LOAD FIELD LENGTH+1 F0D51070
TXI *+1,4,-1 BUMP TO FIELD LENGTH F0D51080
SXD CMPFC,4 SET FIELD LENGTH F0D51090
TXI *+1,2,1 BUMP CHARACTER COUNT PAST FIELD LENGTH F0D51100
PXD ,2 COMPUTE END OF FIELD IN SKELETON F0D51110
ACL CMPFC F0D51120
STD MDFCT SAVE MACRO DEFINITION CHARACTER COUNT F0D51130
PXD ,4 F0D51140
ADD CMPCT BUMP COUNT OF COLUMNS STUFFED F0D51150
STD CMPCT F0D51160
TXL *+3,2,5 IS WORD EXHAUSTED F0D51170
TXI *+1,1,1 YES, BUMP COUNT TO NEXT WORD F0D51180
TXI *-2,2,-6 RESET CHARACTER COUNT F0D51190
CAL * LOAD CALLING LINKAGE F0D51200
TRA STUFF *STUFF VARIABLE INTO CARD IMAGE F0D51210
TRA CMP20 CARD IMAGE FULL F0D51220
TRA CMP16 F0D51230
REM F0D51240
REM CHARACTER IS PUNCTUATION F0D51250
CMP10 TXI *+1,2,1 DELETE PUNCTUATION CHARACTER F0D51260
SXD MDFCT,2 SAVE MACRO DEFINITION CHARACTER COUNT F0D51270
SXA MDFCT,1 SAVE MACRO DEFINITION WORD COUNT F0D51280
TRA *+5,4 F0D51290
TRA CMP15 PUNCTUATION IS ARGUMENT MARK F0D51300
TRA CMP13 PUNCTUATION IS VARIABLE FIELD MARK F0D51310
TRA CMP12 PUNCTUATION IS OPCODE MARK F0D51320
REM END OF RECORD F0D51330
AXC BLANKS+1,1 PREPARE TO STUFF FROM BLANK WORDS F0D51340
AXT 0,6 PREPARE TO STUFF FROM FIRST CHARACTER F0D51350
CAL * LOAD CALLING LINKAGE F0D51360
TXI STUFF,4,6 *STUFF TWO WORDS OF BLANKS F0D51370
NOP F0D51380
CMP11 TXH CMP21,2,** IS THIS DOUBLE END OF RECORD MARK F0D51390
REM (END OF MACRO EXPANSION) F0D51400
TSX PMCL2,4 *YES, PUSH UP MACRO LEVEL F0D51410
TXH *+3,1,0 WAS THIS ZERO LEVEL MACRO F0D51420
ZSD PKMSW YES, RESET LOOKAHEAD SWITCH F0D51430
ZSD MCREF RESET MACRO EXPANSION CARD SWITCH F0D51440
TRA SOURC F0D51450
REM PUNCTUATION IS 01, OPCODE FOLLOWS F0D51460
CMP12 ZSD CMP11 RESET END OF MACRO EXPANSION SWITCH F0D51470
AXT 7,4 COMPUTE LENGTH OF LOCATION FIELD F0D51480
CMPFC TNX CMP16,4,** IS COLUMN 7 FULL F0D51490
TRA CMP14 NO F0D51500
REM PUNCTUATION IS 76, VARIABLE FIELD FOLLOWS F0D51510
CMP13 ZSA IRP01 RESET ARGUMENT NUMBER F0D51520
REM DETERMINE NUMBER OF BLANKS TO STUFF (24)F0D51530
TXL *+2,2,5 IS DEFINITION WORD EXHAUSTED (24)F0D51540
LDQ -1,1 YES, LOAD NEXT ONE (24)F0D51550
TXI *+1,2,1 BUMP SKELETON CHARACTER COUNT (24)F0D51560
SXD MDFCT,2 PAST COUNT OF CHARACTERS (24)F0D51570
ZAC WHICH SHOULD PRECEDE VARIABLE FIELD (24)F0D51580
LGL 6 ROLL UP SAID COUNT (24)F0D51590
PAX ,4 (24)F0D51600
AXT ,0 MARK TIME (24)F0D51610
CMPCT TIX *+2,4,** REDUCE BY COUNT OF CHARACTERS STUFFED F0D51620
AXT 1,4 PREPARE TO STUFF ONE BLANK IF TOO MANY F0D51630
REM REENTRY TO STUFF BLANKS FOLLOWING LOCATION FIELD F0D51640
CMP14 PXD ,4 SET NUMBER OF BLANKS TO STUFF F0D51650
ADD CMPCT BUMP COUNT OF COLUMNS STUFFED F0D51660
STD CMPCT F0D51670
AXC BLANKS+1,1 PREPARE TO STUFF FROM BLANKS F0D51680
AXT 0,2 STARTING WITH FIRST CHARACTER F0D51690
CAL * LOAD CALLING LINKAGE F0D51700
TRA STUFF *FILL OUT OPFIELD WITH BLANKS F0D51710
TRA CMP20 CARD IMAGE FULL F0D51720
TRA CMP16 F0D51730
REM PUNCTUATION IS 77, ARGUMENT FOLLOWS F0D51740
CMP15 TXL *+2,2,5 IS WORD EXHAUSTED F0D51750
LDQ -1,1 YES, LOAD NEXT WORD F0D51760
TXI *+1,2,1 BUMP CHARACTER COUNT PAST ARGUMENT NUMBER F0D51770
SXD MDFCT,2 SAVE MACRO DEFINITION CHARACTER COUNT F0D51780
ZAC F0D51790
LGL 6 LOAD ARGUMENT NUMBER F0D51800
TNZ *+4 IS FOLLOWING CARD PROGRAMMERS ETC F0D51810
AXT -1,4 YES, SET ETC SWITCH F0D51820
SXD PKMSW+1,4 F0D51830
TRA SCANT F0D51840
STA IRP01 INITIALIZE IRP ARGUMENT NUMBER F0D51850
PAX ,1 F0D51860
CAL MARGS+1,1 LOAD ARGUMENT REFERENCE F0D51870
PAX ,1 LOAD ARGUMENT LOCATION F0D51880
PDX ,4 LOAD ARGUMENT LENGTH F0D51890
STD CMPFC SET FIELD LENGTH F0D51900
ADD CMPCT BUMP COUNT OF COLUMNS STUFFED F0D51910
STD CMPCT F0D51920
AXT -1,2 PREPARE TO STUFF FROM FORWARD DATA F0D51930
SXD STF06+1,2 F0D51940
AXT 0,2 PREPARE TO STUFF FROM FIRST CHARACTER F0D51950
CAL * LOAD CALLING LINKAGE F0D51960
TRA STUFF *STUFF ARGUMENT INTO CARD IMAGE F0D51970
TRA CMP20 CARD IMAGE FULL F0D51980
AXT 1,2 PREPARE TO STUFF FROM BACKWARD DATA F0D51990
SXD STF06+1,2 F0D52000
REM REENTRY TO CONTINUE SCAN F0D52010
CMP16 LXD MDFCT,2 LOAD MACRO DEFINITION CHARACTER COUNT F0D52020
LXA MDFCT,1 LOAD MACRO DEFINITION WORD COUNT F0D52030
TRA SCANT F0D52040
REM GENERATED CARD IMAGE IS FULL F0D52050
CMP20 LXD STF06+1,2 SAVE DIRECTION OF STUFF F0D52060
SXA CMP02,2 F0D52070
AXT -1,2 SET SWITCH TO CREATE ETC CARD F0D52080
SXD CMP01,2 F0D52090
SXD PKMSW+1,2 F0D52100
SXA CMP02+2,4 SAVE COUNT OF REMAINING CHARACTERS F0D52110
LXA STF07,4 LOAD CHARACTER BIT COUNT F0D52120
TXI *+1,4,6 F0D52130
TXI *+1,2,1 F0D52140
TIX *-1,4,6 DIVIDE BY 6 F0D52150
SXA CMP02+3,2 SAVE CARD IMAGE CHARACTER COUNT F0D52160
SXA CMP02+4,1 SAVE CARD IMAGE WORD COUNT F0D52170
REM REENTRY TO FINISH CARD F0D52180
CMP21 AXT -1,4 PREPARE TO STUFF FROM FORWARD DATA F0D52190
SXD STF06+1,4 F0D52200
CMP22 TXL IRP02,4,** IS THIS CARD IN RANGE OF IRP F0D52210
CAL BLANKS NO, FILL OUT GENERATED CARD IMAGE F0D52220
LXD STUFI,1 F0D52230
TXL *+3,1,-BCDBF-12 F0D52240
SLW 0,1 F0D52250
TXI *-2,1,-1 F0D52260
CAL Q32 SET MACRO GENERATED CARD FLAG F0D52270
SLW P1FLG FOR PASS 2 LISTING PURPOSES F0D52280
LXA CLEVL,4 LOAD MACRO LEVEL F0D52290
PXA ,4 F0D52300
ALS 8 SHIFT INTO BIT POSITIONS 21 THRU 27 F0D52310
ORS P1FLG HOLD FOR PASS TWO F0D52320
TRA CNTRL F0D52330
EJECT F0D52340
REM ROUTINES PECULIAR TO MACROS F0D52350
REM NOCRS, ORGCRS, PMC, SET F0D52360
REM F0D52370
CRSOP AXT 5,4 SET CREATED SYMBOL COUNT F0D52380
SXD CRSNO,4 F0D52390
TSX SSCAN,4 *ASSEMBLE PROGRAMMER'S SYMBOL F0D52400
TXI CRS01,,0 NULL SYMBOL F0D52410
SLT EXPRR IS SYMBOL IN ERROR F0D52420
ZET SYMB2 NO, IS SYMBOL TOO LONG F0D52430
TRA FIELD **YES F0D52440
SLT EXPND NO, DID SYMBOL END WITH OPERATION F0D52450
TRA FIELD **YES F0D52460
CAL SYMBL NO, LOAD SYMBOL F0D52470
ANA D63 MASK IN THIRD CHARACTER F0D52480
SLW CRPT1 PROGRAMMER MAY VARY THIRD CHARACTER F0D52490
CAL SYMBL RELOAD SYMBOL F0D52500
ANA ADTMK MASK IN THREE DIGITS F0D52510
XCL F0D52520
TSX DECSV+1,4 *CONVERT TO BINARY F0D52530
STA CRSCT RESET ORIGIN F0D52540
STA LITRL SAVE FOR PASS TWO F0D52550
SLT FLDND WAS THIS END OF VARIABLE FIELD F0D52560
TRA FIELD **NO F0D52570
CRS01 TRA READ1 YES F0D52580
REM F0D52590
NOCOP STZ CRSNO RESET CREATED SYMBOL COUNT F0D52600
TRA READ1 F0D52610
REM F0D52620
SETOP TSX SCANP,4 *EVALUATE SET DEFINITION F0D52630
TXI AFLAG,,0 NULL DEFINITION F0D52640
OAI COMBINE BITS WITH DEFINITION F0D52650
SIL 20 AND SET FLAG F0D52660
STI ADDRS DEFINE SYMBOL F0D52670
STI LITRL SAVE FOR PASS TWO F0D52680
CAL BCDBF LOAD LOCATION FIELD F0D52690
TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0D52700
TZE FIELD **IS THERE A LOCATION SYMBOL F0D52710
XCL YES, ISOLATE FIRST CHARACTER F0D52720
LGL 6 F0D52730
TNZ *+2 IS SYMBOL SHORTER THAN 6 CHARACTERS F0D52740
CAL BHEAD YES, APPEND HEADING CHARACTER F0D52750
LGR 6 F0D52760
STQ SYMBL HOLD FOR SYMBOL TABLE SEARCH F0D52770
ZSA SET01 RESET LOCATION OF SYMBOL TO BE REDEFINED F0D52780
TSX SSYMT,4 *FIND SYMBOL IN SYMBOL TABLE F0D52790
SET01 AXT **,4 LOAD LOCATION OF SYMBOL F0D52800
TXH *+3,4,0 IS SYMBOL ALREADY IN TABLE F0D52810
TSX ESYML,4 *NO, DEFINE IT F0D52820
TRA SET02 F0D52830
CAL ADDRS YES, LOAD NEW DEFINITION F0D52840
LDI* SRCH2 HOLD OLD DEFINITION F0D52850
SLW* SRCH2 REDEFINE SYMBOL F0D52860
SLT EXPRR WAS SYMBOL IN TRANSFER VECTOR F0D52870
LNT 20 NO, WAS OLD DEFINITION SET F0D52880
TRA FIELD **NO F0D52890
SET02 TRA READ1 F0D52900
EJECT F0D52910
REM MACRO PROCESSOR SUBROUTINES F0D52920
REM F0D52930
REM SUBROUTINES TO PRINT MACRO ERROR MESSAGES F0D52940
REM F0D52950
REM UNMATCHED PARENTHESES F0D52960
MCER1 ZSD SSN13 RESET SWITCH TO AVOID INITIALIZATION F0D52970
REM IN CASE THIS IS FIRST ARGUMENT ON ETC CARDF0D52980
STZ PARNC RESET PARENTHESES COUNT F0D52990
CAL PARFL LOAD UNMATCHED PAREN FLAG F0D53000
REM ENTRY FOR OTHER MACRO ERROR (23)F0D53010
MCERR SLW LITRL SAVE FLAG FOR PASS TWO (23)F0D53020
SXA MCERX,4 (23)F0D53030
AXT 5$MCERR,4 SET PASS TWO TRANSFER (23)F0D53040
SXD OPBIN,4 ADDRESS TO PRINT FLAG (23)F0D53050
MCERX AXT **,4 AND CARD IN ERROR (23)F0D53060
TRA 1,4 (23)F0D53070
PCCP2 MZE ,,5$TTL03+1 (23)F0D53080
REM F0D53090
REM MACRO DEFINITION OR COMPILE TABLE FULL F0D53100
OVRLP LDI MDFNM LOAD MACRO DEFINITION NAME F0D53110
TRA SRCERR **TERMINATE ASSEMBLY F0D53120
REM MACRO LEVEL TABLE FULL F0D53130
LKTOV LDI LVLNM LOAD LEVEL TABLE NAME F0D53140
TRA SRCERR **TERMINATE ASSEMBLY F0D53150
REM F0D53160
REM PUSH MACRO LEVEL DOWN F0D53170
PMCL1 SXA PMC1X,4 SAVE CALLING LINKAGE F0D53180
LXA CLEVL,1 LOAD MACRO LEVEL F0D53190
TSX SETTP,4 *SET UP MACRO COMPILER ROUTING F0D53200
PZE SOURC,,CMPIL F0D53210
TXI PMC11,1,1 BUMP MACRO LEVEL IF NO INTERRUPTION F0D53220
LXD PMC21,4 HOLD OLD INTERRUPT LEVEL F0D53230
SXA MACNO,4 F0D53240
SXD PMC21,1 SET NEW INTERRUPT LEVEL F0D53250
TSX PDOWN,4 *PUSH DOWN MACRO LEVEL F0D53260
PZE MACNO F0D53270
TXI *+1,1,1 BUMP MACRO LEVEL F0D53280
PMC11 SXA CLEVL,1 RESET MACRO LEVEL F0D53290
PMC1X AXT **,4 RELOAD CALLING LINKAGE F0D53300
TRA 1,4 F0D53310
REM F0D53320
REM PUSH MACRO LEVEL UP F0D53330
PMCL2 SXA PMC2X,4 SAVE CALLING LINKAGE F0D53340
CLEVL AXT **,1 LOAD MACRO LEVEL F0D53350
TXL PMC21,1,0 IS THIS FIRST LEVEL MACRO F0D53360
TXI *+1,1,-1 BUMP MACRO LEVEL F0D53370
SXA CLEVL,1 F0D53380
PMC21 TXH PMC23,1,** WAS MACRO EXPANSION INTERRUPTED F0D53390
TSX RESTP,4 *NO, RESTORE OLD SWITCH F0D53400
PZE SOURC,,CMPIL F0D53410
TSX PUPUP,4 *PUSH UP MACRO LEVEL F0D53420
PZE MACNO F0D53430
LXA MACNO,1 RESET INTERRUPTION TEST F0D53440
SXD PMC21,1 TO CURRENT MACRO LEVEL F0D53450
PMC23 ZSD CMP22 RESET IRP INTERCEPT PENDING POP OF STATUS F0D53460
TSX PMCS3,4 *BUMP MACRO STATUS UP F0D53470
AXT -1,4 RESET DIRECTION OF STUFF F0D53480
SXD STF06+1,4 F0D53490
PMC2X AXT **,4 RELOAD CALLING LINKAGE F0D53500
TRA 1,4 F0D53510
REM F0D53520
REM PUSH MACRO STATUS DOWN F0D53530
PMCS1 SXA PMCSX,4 SAVE CALLING LINKAGE F0D53540
LXA CLEVL,1 LOAD MACRO LEVEL F0D53550
TXL PMCS2,1,0 IS THIS FIRST LEVEL MACRO F0D53560
CAL MCIND NO, PUSH DOWN INDIRECT ADDRESS FLAG F0D53570
STA SSLOC F0D53580
CLA P7 PREPARE TO PUSH F0D53590
LXA MEPTR,1 TO MACRO EXPANSION TABLE F0D53600
TSX PUPOP,4 *PUSH DOWN OUTER MACRO STATUS F0D53610
ZSD CMP22 RESET IRP INTERCEPT F0D53620
LXA MEPTR,4 LOAD POINTER TO THIS PUSH F0D53630
SXD SSLOC,4 SAVE IN CASE OF ANOTHER PUSH F0D53640
TRA PMCS2+1 F0D53650
REM MACRO IS FIRST LEVEL F0D53660
PMCS2 TRA PMC2P $F0D53670
SXA MEPTR,1 SET POINTER TO NEXT ENTRY IN TABLE F0D53680
PMCSX AXT **,4 RELOAD CALLING LINKAGE F0D53690
TRA 1,4 F0D53700
REM F0D53710
REM PUSH MACRO STATUS UP F0D53720
PMCS3 SXA PMC3X,4 SAVE CALLING LINKAGE F0D53730
LXA CLEVL,1 LOAD MACRO LEVEL F0D53740
TXL PMC3P,1,0 IS THIS FIRST LEVEL MACRO $F0D53750
CAL P7 NO PREPARE TO POP F0D53760
LXD SSLOC,1 FROM MACRO EXPANSION TABLE F0D53770
SXA MEPTR,1 RESET POINTER TO OVERWRITE OLD PUSH F0D53780
TSX PUPOP,4 *PUSH UP OUTER MACRO F0D53790
CAL SSLOC RESTORE INDIRECT ADDRESS FLAG F0D53800
STA MCIND F0D53810
PMC3X AXT **,4 RELOAD CALLING LINKAGE F0D53820
TRA 1,4 F0D53830
REM F0D53840
REM SET UP ROUTING FOR MACRO PROCESSOR F0D53850
SETTP SXA SETPX,4 SAVE CALLING LINKAGE F0D53860
CAL* 1,4 LOAD OLD SWITCH F0D53870
STA ORDRF SAVE TRANSFER ADDRESS FOR COMPARE F0D53880
XCL HOLD SWITCH F0D53890
CAL 1,4 LOAD SWITCH ADDRESS,,TRANSFER ADDRESS F0D53900
ARS 18 RIGHT ADJUST TRANSFER ADDRESS F0D53910
LAS ORDRF IS SWITCH ALREADY INITIALIZED F0D53920
TRA *+2 NO F0D53930
TRA 2,4 YES F0D53940
STA* 1,4 RESET SWITCH F0D53950
CLA LKTBP LOAD POINTER TO NEXT SWITCH F0D53960
TNZ *+2 WAS TABLE ENTRY MADE F0D53970
TSX MACERR,4 **NO F0D53980
STD* 1,4 YES, SAVE POINTER TO HIGHER LEVEL SWITCH F0D53990
PDC ,4 COMPUTE LOCATION OF NEXT TABLE ENTRY F0D54000
CAL 0,4 LOAD POINTER TO NEXT LINK F0D54010
STQ 0,4 SAVE OLD SWITCH F0D54020
TZE LKTOV **IS TABLE EXHAUSTED F0D54030
STD LKTBP NO, RESET POINTER TO FOLLOWING LINK F0D54040
SETPX AXT **,4 RELOAD CALLING LINKAGE F0D54050
TRA 3,4 F0D54060
REM F0D54070
REM RESTORE LOWER LEVEL ROUTING F0D54080
RESTP SXA RESTX,4 SAVE CALLING LINKAGE F0D54090
SXA RESTX+1,1 SAVE CHARACTER COUNT F0D54100
CAL 1,4 LOAD SWITCH ADDRESS,,TRANSFER ADDRESS F0D54110
STA REST3 SAVE SWITCH ADDRESS F0D54120
ARS 18 F0D54130
STA LKTBB SAVE OLD TRANSFER ADDRESS FOR COMPARE F0D54140
CAL* 1,4 LOAD OLD SWITCH F0D54150
STD LKTBB ESTABLISH DUPLICATE DECREMENTS F0D54160
LAS LKTBB DOES SWITCH COMPARE WITH REQUEST F0D54170
TRA *+2 NO F0D54180
TRA REST2 YES F0D54190
TSX (PRNT),4 *INVITE CORRESPONDENCE F0D54200
PZE QUERY,,14 F0D54210
SXA *+2,2 F0D54220
TSX SPACP,2 *LET THEM ANSWER F0D54230
AXT **,2 F0D54240
TRA REST1 F0D54250
QUERY BCI , PLEASE SEND SOURCE PROGRAM TO APPLIED PROGRAMMING ATTN. F0D54260
BCI 4,H.MELTZER. PUSH START. F0D54270
REM REQUEST IS NOT CURRENT SWITCH F0D54280
REST1 PDC ,1 LOAD POINTER TO NEXT SWITCH F0D54290
TXH *+2,1,0 WAS TABLE ENTRY MADE F0D54300
TSX MACERR,4 **NO F0D54310
CAL 0,1 YES, LOAD LAST LINK F0D54320
STD LKTBB SET UP DECREMENT AGAIN F0D54330
LAS LKTBB DOES THIS LINK COMPARE WITH REQUEST F0D54340
TRA *+2 NO F0D54350
TRA REST3 YES F0D54360
SXA *+1,1 COMPLEMENT THIS POINTER F0D54370
AXC **,1 F0D54380
SXA REST3,1 SAVE POINTER F0D54390
TRA REST1 F0D54400
REM REQUEST IS CURRENT SWITCH F0D54410
REST2 PDC ,1 COMPLEMENT POINTER F0D54420
CAL 0,1 PICK UP LINK F0D54430
SLW* 1,4 RESET SWITCH F0D54440
TRA REST3+2 F0D54450
REM REQUEST WAS FOUND IN TABLE F0D54460
REST3 AXC **,4 LOAD POINTER F0D54470
STD 0,4 INSERT LOWER POINTER IN SWITCH F0D54480
CAL LKTBP LOAD POINTER TO NEXT LINK F0D54490
SLW 0,1 RESTORE TABLE F0D54500
SXA *+1,1 COMPUTE TRUE POINTER ADRESS F0D54510
AXC **,1 F0D54520
SXD LKTBP,1 RESET POINTER TO NEXT LEVEL LINK F0D54530
RESTX AXT **,4 RELOAD CALLING LINKAGE F0D54540
AXT **,1 RELOAD CHARACTER COUNT F0D54550
TRA 2,4 F0D54560
REM F0D54570
REM PUSH DOWN PARAMETER F0D54580
PDOWN SXA PDWNX,4 SAVE CALLING LINKAGE F0D54590
LDQ* 1,4 LOAD VALUE OF PARAMETER F0D54600
CAL LKTBP LOAD POINTER TO NEXT LEVEL F0D54610
TNZ *+2 WAS TABLE ENTRY MADE F0D54620
TSX MACERR,4 **NO F0D54630
STD* 1,4 YES, SAVE POINTER TO HIGHER LEVEL PARAM F0D54640
PDC ,4 COMPUTE LOCATION OF NEXT TABLE ENTRY F0D54650
CAL 0,4 LOAD POINTER TO NEXT LEVEL F0D54660
STQ 0,4 SAVE OLD PARAMETER F0D54670
TZE LKTOV **IS TABLE EXHAUSTED F0D54680
STD LKTBP NO, RESET POINTER TO FOLLOWING LINK F0D54690
PDWNX AXT **,4 RELOAD CALLING LINKAGE F0D54700
TRA 2,4 F0D54710
REM F0D54720
REM PUSH UP PARAMETER F0D54730
PUPUP SXA PUPPX,4 SAVE CALLING LINKAGE F0D54740
CAL 1,4 LOAD PARAMETER F0D54750
STA *+1 INITIALIZE PARAMETER ADDRESS F0D54760
LDC **,4 LOAD POINTER TO CURRENT LEVEL F0D54770
TXH *+2,4,0 WAS TABLE ENTRY MADE F0D54780
TSX MACERR,4 **NO F0D54790
LDQ 0,4 YES, LOAD FORMER LEVEL F0D54800
CAL LKTBP LOAD POINTER TO NEXT LEVEL F0D54810
SLW 0,4 RESTORE TABLE F0D54820
SXA *+1,4 COMPUTE TRUE POINTER ADDRESS F0D54830
AXC **,4 F0D54840
SXD LKTBP,4 RESET POINTER TO NEXT LINK F0D54850
PUPPX AXT **,4 RELOAD CALLING LINKAGE F0D54860
STQ* 1,4 RESET FORMER LEVEL F0D54870
TRA 2,4 F0D54880
REM F0D54890
REM PUSH / POP STATUS F0D54900
PUPOP SXA POPPX,4 SAVE CALLING LINKAGE F0D54910
STP PUP01+1 SET PUSH / POP SWITCH F0D54920
AXT 3,2 LOAD LENGTH OF SCAN STATUS WORDS F0D54930
TSX PUP01,4 *PUSH / POP SCAN STATUS F0D54940
PZE SSLOC+1 F0D54950
LXD ARGIL,2 LOAD LENGTH OF ARGUMENT TABLE F0D54960
TXL *+3,2,0 ARE THERE ANY ARGUMENTS F0D54970
TSX PUP01,4 *YES, PUSH / POP ARGUMENTS F0D54980
PZE MARGS+1 F0D54990
AXT 1,2 LOAD LENGTH OF IRP SWITCH F0D55000
TSX PUP01,4 *PUSH/POP IRP INTERCEPT F0D55010
PZE CMP22+1 F0D55020
PDX ,4 LOAD IRP SWITCH F0D55030
TXL POPPX,4,0 IS CARD IN RANGE OF IRP F0D55040
AXT 4,2 YES, LOAD LENGTH OF IRP STATUS WORDS F0D55050
TSX PUP01,4 *PUSH / POP IRP STATUS F0D55060
PZE IRPAR+1 F0D55070
POPPX AXT **,4 RELOAD CALLING LINKAGE F0D55080
TRA 1,4 F0D55090
REM F0D55100
PUP01 CAL 1,4 LOAD ORIGIN OF LIST TO BE PUSHED / POPPED F0D55110
*** PUP02 (TXH IF PUSH, TXL IF POP) F0D55120
STA *+1 INITIALIZE PUSH ADDRESS F0D55130
CLA **,2 PUSH FROM F0D55140
STO 0,1 TO F0D55150
TXI *+1,1,-1 BUMP TO COUNT F0D55160
TIX *-3,2,1 IS LIST EXHAUSTED F0D55170
TRA 2,4 YES F0D55180
PUP02 STA *+2 INITIALIZE POP ADDRESS F0D55190
CLA 0,1 POP FROM F0D55200
STO **,2 TO F0D55210
TXI *+1,1,-1 BUMP FROM COUNT F0D55220
TIX *-3,2,1 IS LIST EXHAUSTED F0D55230
TRA 2,4 YES F0D55240
REM F0D55250
REM STUFF MACRO DEFINITION INTO MACDEF F0D55260
REM STUFF MACRO CALL ARGUMENTS INTO MACEXP F0D55270
REM STUFF MACRO EXPANSION INTO BCDBF F0D55280
REM F0D55290
REM TO INITIALIZE CAL * F0D55300
REM TRA STUFY F0D55310
REM *** RETURN F0D55320
REM XR1 = -(FIRST LOC TO BE STUFFED INTO) F0D55330
REM XR2 = -1/+1 TO STUFF FORWARD/BACKWARD F0D55340
REM XR4 = -(FIRST FORBIDDEN LOCATION) OVERFLOWF0D55350
REM NO TEST FOR STUFFING BACKWARD F0D55360
REM F0D55370
REM TO CALL CAL * F0D55380
REM TRA STUFF F0D55390
REM *** OVERFLOW RETURN (STUFFING FORWARD) F0D55400
REM *** NORMAL RETURN F0D55410
REM XR1 = -(FIRST WORD TO BE STUFFED FROM) F0D55420
REM XR2 = NUMBER OF CHARS PRECEDING CHAR F0D55430
REM TO BE STUFFED (0 - 5) F0D55440
REM XR4 = NUMBER OF CHARACTERS TO STUFF F0D55450
REM F0D55460
REM INITIALIZE STUFF ROUTINE F0D55470
STUFY ACL Q2 COMPUTE RETURN TO CALL+1 F0D55480
STA STUFX INITIALIZE RETURN F0D55490
ZSD STUM2 RESET HANGING OUTPUT CHARACTER COUNT F0D55500
ZSD STF01 F0D55510
SXD STUFI,1 SET FIRST LOCATION TO BE STUFFED INTO F0D55520
SXD STF08+1,2 SET DIRECTION OF STUFF F0D55530
SXD STF10+2,2 F0D55540
AXT ,0 (23)F0D55550
TXH *+2,2,1 IS STUFF BACKWARD F0D55560
AXT 0,4 YES, DELETE OVERFLOW TEST F0D55570
SXD STF03+1,4 INITIALIZE OVERFLOW TESTS F0D55580
SXD STF08+2,4 F0D55590
STUFX TRA ** F0D55600
REM F0D55610
REM ENTER MACRO INFORMATION INTO MACRO TABLES F0D55620
STUFF ACL Q2 COMPUTE CALL+1 F0D55630
STA STF09 INITIALIZE OVERFLOW RETURN F0D55640
ACL Q1 COMPUTE CALL+2 F0D55650
STA STF11+1 INITIALIZE NORMAL RETURN F0D55660
TXH STF01,4,0 ANY CHARACTERS TO BE STUFFED F0D55670
STF12 LXD STF08+1,2 PREPARE TO BUMP STUFF POINTER (23)F0D55680
STUFI TXI STF11+1,2,** ,,LOCATION TO BE STUFFED INTO (23)F0D55690
STF01 TXI *+1,4,** BUMP COUNT TO INCLUDE PARTIAL STUFFED WORDF0D55700
CLA STUM2 COMPUTE PARTIAL STUFFED BIT COUNT F0D55710
ARS 1 (6* CHARACTER COUNT) F0D55720
ADD STUM2 F0D55730
ARS 16 F0D55740
STO STUM2 F0D55750
STA STF04 SET SHIFT TO RIGHT ADJUST F0D55760
REM PARTIAL STUFFED WORD F0D55770
PXD ,2 COMPUTE INPUT BIT COUNT F0D55780
ARS 16 (6*(N-1) FOR NTH CHARACTER) F0D55790
STO NERAS F0D55800
ARS 1 F0D55810
ADD NERAS F0D55820
STO NERAS F0D55830
STA STF05 SET SHIFT TO LEFT ADJUST INPUT CHARACTER F0D55840
SUB STUM2 COMPUTE LEAD OF INPUT CHARACTER F0D55850
TMI STF02 DOES INPUT CHARACTER LEAD OUTPUT CHARACTERF0D55860
STA STF07 NO, SET SHIFT TO APPEND LEADING F0D55870
REM CHARACTERS IN NEXT INPUT WORD F0D55880
SUB Q36 F0D55890
STA STF08 SET SHIFT TO RIGHT ADJUST FOLLOWING F0D55900
REM CHARACTERS IN NEXT INPUT WORD F0D55910
ADD STUM2 F0D55920
STA STF05+1 SET SHIFT TO APPEND LEADING F0D55930
REM CHARACTERS IN FIRST INPUT WORD F0D55940
CLA P7 SET SWITCH TO LOAD NEXT INPUT WORD F0D55950
STP STF06 FOR BALANCE OF FIRST STUFFED WORD F0D55960
TRA STF03 F0D55970
REM FIRST INPUT CHARACTER LEADS LAST OUTPUT CHARACTER F0D55980
STF02 STA STF08 SET SHIFT TO RIGHT ADJUST FOLLOWING F0D55990
REM CHARACTERS IN NEXT INPUT WORD F0D56000
ADD Q36 F0D56010
STA STF07 SET SHIFT TO APPEND LEADING F0D56020
REM CHARACTERS IN NEXT INPUT WORD F0D56030
SUB NERAS F0D56040
STA STF05+1 SET SHIFT TO APPEND LEADING F0D56050
REM CHARACTERS IN FIRST INPUT WORD F0D56060
CAL P7 SET SWITCH TO RETAIN FIRST INPUT WORD F0D56070
STP STF06 FOR BALANCE OF FIRST STUFFED WORD F0D56080
REM STUFF ROUTINE IS INITIALIZED. STUFF OUTPUT WORDS F0D56090
STF03 LXD STUFI,2 LOAD LOCATION OF FIRST WORD TO BE STUFFED F0D56100
TXL STF09,2,** WILL STUFFED WORD OVERFLOW F0D56110
LDQ 0,2 NO, LOAD PARTIAL STUFFED WORD F0D56120
STF04 LGL ** RIGHT ADJUST PARTIAL STUFFED WORD F0D56130
LDQ 0,1 LOAD FIRST INPUT WORD F0D56140
STF05 RQL ** LEFT ADJUST FIRST INPUT CHARACTER F0D56150
LGL ** APPEND INPUT CHARACTERS TO PARTIAL WORD F0D56160
STF06 *** STF07+1,,0 DOES INPUT CHARACTER LEAD OUTPUT CHARACTERF0D56170
TXI *+1,1,-1 NO, BUMP INPUT WORD COUNT TO NEXT WORD F0D56180
LDQ 0,1 LOAD NEXT INPUT WORD F0D56190
STF07 LGL ** APPEND LEADING CHARACTERS NEXT INPUT WORD F0D56200
SLW 0,2 ADD TO TABLE F0D56210
TNX STF10,4,6 IS ENTRY COMPLETE F0D56220
STF08 LGL ** NO, RIGHT ADJUST FOLLOWING CHARACTERS F0D56230
REM NEXT INPUT WORD F0D56240
TXI *+1,2,** BUMP STUFFED WORD COUNT F0D56250
TXH STF06+1,2,** WILL STUFFED WORD OVERFLOW F0D56260
SXD STUFI,2 YES, SAVE LAST WORD STUFFED F0D56270
STF09 TRA ** RETURN TO CALL+1 F0D56280
REM ENTRY IS COMPLETE F0D56290
STF10 TXL *+3,4,5 WAS LAST WORD COMPLETE F0D56300
AXT 0,4 YES, RESET HANGING CHARACTER COUNT F0D56310
TXI *+1,2,** BUMP STUFFED WORD COUNT FOR FINAL WORD F0D56320
SXD STUFI,2 SAVE LOCATION OF LAST (PART) WORD STUFFED F0D56330
SXD STUM2,4 SAVE PARTIAL WORD CHARACTER COUNT F0D56340
SXD STF01,4 F0D56350
STF11 TXH STF12,4,0 BUMP COUNT IF PARTIAL WORD EXISTS (23)F0D56360
TRA ** RETURN TO CALL+2 F0D56370
REM F0D56380
REM GENERALIZED SCAN ROUTINE F0D56390
REM F0D56400
REM SCANS FOR SELECTED CHARACTER IN LOW ORDER POSITION F0D56410
REM IN TABLE AT LOCATION C OF LENGTH N F0D56420
REM TABLE IN DECREASING SORT ORDER F0D56430
REM F0D56440
REM TO INITIALIZE TSX SCANS,4 F0D56450
REM TXL K,,C+N RETURN TO K AFTER EACH CH F0D56460
REM (TXH ,,C+N NO RETURN) F0D56470
REM TXL L,,N RETURN TO L AFTER SEL CH F0D56480
REM TXL M,1,-J-1 RETURN TO M AFTER J EXHST F0D56490
REM (TXH M,1,-J SCAN BACKWARD) F0D56500
REM F0D56510
REM TO CALL, REGISTERS UPDATED F0D56520
REM TRA SCANT F0D56530
REM TO CALL, REGISTERS UNDISTURBED F0D56540
REM TRA SCANU F0D56550
REM OR TXI SCANU+1,2,1 F0D56560
REM F0D56570
REM ON RETURN XR1, XR2 AT LAST CHARACTER SCANNED F0D56580
REM CURRENT CHARACTER IN AC F0D56590
REM SELECTED CHARACTER POSITION IN XR4 F0D56600
REM F0D56610
SCANS CAL 1,4 LOAD RETURN1,,ORIGIN AT END OF TABLE F0D56620
SLW SCAN6 INITIALIZE SINGLE CHARACTER RETURN F0D56630
ARS 18 F0D56640
STA SCAN4 INITIALIZE ORIGIN OF SELECTED CHAR TABLE F0D56650
CAL 2,4 LOAD RETURN2,,LENGTH OF TABLE F0D56660
SLW SCAN5 INITIALIZE SELECTED CHARACTER RETURN F0D56670
LDQ 3,4 LOAD RETURN3,,END OF SCAN TEST F0D56680
STQ SCAN2 INITIALIZE TEST FOR END OF SCAN F0D56690
CAL D1 PRELOAD BUMPER BACKWARD F0D56700
TQP *+2 IS SCAN BACKWARD F0D56710
CAL D32767 NO, LOAD BUMPER FORWARD F0D56720
STD SCAN1 SET DIRECTION OF SCAN F0D56730
TRA 4,4 F0D56740
REM F0D56750
SCANT TXL SCAN2,2,5 IS WORD EXHAUSTED F0D56760
SCAN1 TXI *+1,1,** YES, BUMP TO NEXT WORD F0D56770
TXI SCANT,2,-6 RESET CHARACTER COUNT F0D56780
SCAN2 *** **,,** IS SCAN EXHAUSTED F0D56790
LDQ 0,1 NO, LOAD CURRENT WORD F0D56800
TXL SCAN3,2,0 IS FIRST CHARACTER NEXT F0D56810
PXD ,2 NO, COMPUTE LENGTH OF SHIFT F0D56820
PDX ,4 F0D56830
RQL 6 ROLL UP NEXT CHARACTER F0D56840
TIX *-1,4,1 IS THIS IT F0D56850
SCAN3 ZAC YES, LOAD NEXT CHARACTER F0D56860
LGL 6 F0D56870
LXD SCAN5,4 LOAD LENGTH OF SPECIAL CHARACTER TABLE F0D56880
SCAN4 LAS **,4 IS IT THIS CHARACTER F0D56890
TRA SCAN6 NO, NOT IN TABLE F0D56900
SCAN5 *** **,,** YES, RETURN F0D56910
TIX SCAN4,4,1 IS TABLE EXHAUSTED F0D56920
SCAN6 *** **,,** YES, IS SINGLE CHARACTER RETURN REQUESTED F0D56930
SCANU TXI *+1,2,1 NO, BUMP TO NEXT CHARACTER F0D56940
TXL SCAN3,2,5 IS WORD EXHAUSTED F0D56950
TRA SCAN1 YES F0D56960
EJECT F0D56970
REM MACRO PROCESSOR ERASABLE STORAGE AND CONSTANTS F0D56980
REM F0D56990
ARGNO PZE ,,** MACRO ARGUMENT NUMBER F0D57000
ARGWD PZE MACRO LOCATION ARGUMENT F0D57010
COUNT PZE ,,** MACRO FIELD COUNT F0D57020
CRSNO PZE **,,5 POINTER TO LAST CREATED SYMBOL,,COUNT F0D57030
LCARG PZE MACRO LOCATION ARGUMENT F0D57040
MACNO PZE **,,** MACRO LEVEL,,POINTER TO NEXT LEVEL F0D57050
MCIND PZE ** FLAG FOR INDIRECTLY ADDRESSED MACRO F0D57060
MOPCH PZE NEXT CHARACTER IN MACRO VARIABLE FIELD F0D57070
MOPMQ PZE RESIDUE OF WORD IN MACRO VARIABLE FIELD F0D57080
MOPNM PZE NAME OF MACRO BEING DEFINED F0D57090
MOPTR PTW MACOP+1,,-VECTOR+1 SECOND WORD IN COMBINED OPERATN TABLE F0D57100
REM DECREMENT IS POINTER TO NEXT AVAILABLE F0D57110
REM SPACE FOR HEADING IN MACRO DEF TABLE F0D57120
REM TABLE EXTENDS DOWN TOWARDS MACEXP F0D57130
REM PASS 2 TRANSFER ADDRESS WILL REPLACE THIS F0D57140
REM WHEN PASSED FORWARD ON INTERMEDIATE TAPE F0D57150
PARNC PZE ** MACRO PARENTHESES COUNT F0D57160
PCONT PZE ,,** MACRO PARTIAL FIELD OR HOLLERITH COUNT F0D57170
PSYMB PZE MACRO PARTIAL FIELD F0D57180
RMTEN PZE ,,-*-1 (1) POINTER TO MOST RECENTLY DEFINED SEQUENCE F0D57190
PZE ,,** (2) POINTER TO FIRST REMOTE SEQUENCE F0D57200
STUM2 PZE **,,** PARTIAL STUFFED WORD BIT COUNT,,CHAR COUNTF0D57210
TOTAL PZE ,,** MACRO VARIABLE FIELD COUNT F0D57220
MDFCT PZE **,,** (1) MACRO DEFINITION WORD,,CHARACTER COUNTS F0D57230
ARGIL PZE ,,** (2) ,,NUMBER OF ARGUMENTS F0D57240
SSLOC PZE **,,** (3) IND ADD FLAG,,POINTER TO LAST SAVED SCAN F0D57250
REM FOLLOWING PARAMS DESCRIBE IRP CARD WITHIN MACRO DEF TABLEF0D57260
IRPNO PZE **,,** (1) PUNCTUATION CHARACTER,,ARGUMENT COUNT F0D57270
IRPPW PZE **,,** (2) MACRO SKELETON WORD,,CHARACTER COUNTS F0D57280
IRPSD PZE **,,** (3) BEGINNING OF STRING WORD,,CHARACTER COUNT F0D57290
IRPAR PZE **,,** (4) REF TO THIS ARG,,POINTER TO NEXT ARG F0D57300
DARGS BES 64 BCD MACRO DEFINITION ARGUMENTS F0D57310
BSS 63 (1) POINTERS TO ARGS IN MACRO EXPANSION TABLE F0D57320
MARGS PZE **,,** (2) -(LOC OF STRING),,(LENGTH OF STRING) F0D57330
LKTBB TXI **,,** OLD TRANSFER ADDRESS,,POINTER F0D57340
LKTBP DUP 1,112 F0D57350
PZE ,,*+1 ,,POINTER TO NEXT LINK F0D57360
PZE LINK TABLE END F0D57370
REM F0D57380
MOPP2 MZE ,,5$UNLOP+1 PASS 2 TRANSFER TO PRINT MACRO CARD F0D57390
RMTP2 PZE ,,5$RMTOP PASS TWO ADDRESS TO RESET HEADING CHAR F0D57400
PRNLT TXI SSN10,,1 TRANSFER TO DISABLE SCAN ON , F0D57410
PRNLS TXI SSN07,,0 TRANSFER TO ENABLE SCAN ON , F0D57420
REM F0D57430
MDTBL PZE 63 (1) ARGUMENT MARK F0D57440
PZE 62 (2) VARIABLE FIELD MARK F0D57450
PZE 01 (3) OPCODE MARK F0D57460
PZE 00 (4) END OF RECORD MARK F0D57470
REM F0D57480
MPKMK OCT 007777770000 MASK FOR CARD COLUMNS 8 - 10 F0D57490
OCT 777777777777 (1) F0D57500
OCT 777777777700 (2) F0D57510
OCT 777777770000 (3) F0D57520
OCT 777777000000 (4) F0D57530
OCT 777700000000 (5) F0D57540
OCT 770000000000 (6) F0D57550
MARMK OCT 000000000000 (7) F0D57560
REM F0D57570
IRPMK BCI 1,0IRP 0 F0D57580
BCDMM BCI 1,BCD000 F0D57590
BCIMM BCI 1,BCI000 F0D57600
TTLMM BCI 1,TTL000 THIRD OF FOUR ENTRIES IN TABLE (23)F0D57610
REMMM BCI 1,REM000 F0D57620
RMTMM BCI 1,RMT000 F0D57630
ENDMM BCI 1,END000 (23)F0D57640
CRSNM BCI 1,CRSYMB F0D57650
LVLNM BCI 1,LEVEL F0D57660
MDFNM BCI 1,MACRO F0D57670
PARFL BCI 1, () F0D57680
UNDFL BCI 1, U F0D57690
CRPT1 BCI 1,00.000 DECIMAL POINT FOR CREATED SYMBOL CHAR 3 F0D57700
CRPT2 BCI 1,.0000 DECIMAL POINT FOR CREATED SYMBOL CHAR 2 F0D57710
REM F0D57720
NUM04 MPY INP06 (25)F0D57730
STQ INP06 (25)F0D57740
TRA UPD03 RETURN (25)F0D57750
PZE (NOT USED) (25)F0D57760
REM F0D57770
MCTBL BCI 1,00000( (1) F0D57780
BCI 1,00000, (2) F0D57790
BCI 1,00000 (3) F0D57800
BCI 1,00000) (4) F0D57810
REM F0D57820
ETCCD BCI 3, ETC F0D57830
RMTCD BCI 6, REM REMOTE SEQUENCES F0D57840
REM F0D57850
REM FORM OF ENTRY IN MACRO DEFINITION TABLE F0D57860
REM HEADING, MACRO DEF PZE ,,ARGUMENT COUNT F0D57870
REM (MZE IF LAST ARG IS SYMBOLIC LOC) F0D57880
REM RMT SEQ PZE HEAD CHAR,,PTR TO NEXT SEQUENCE F0D57890
REM CARD IMAGE SKELETONS FOLLOW F0D57900
REM F0D57910
REM STRUCTURE OF SKELETONIZED CARD IMAGE F0D57920
REM FIELD MARKS (OCTAL) 01 OPCODE FOLLOWS F0D57930
REM 76NN VARIABLE FIELD FOLLOWS (24)F0D57940
REM (PRECEDED BY NN CARD CHARACTERS) (24)F0D57945
REM 00 END OF RECORD F0D57950
REM (END MARK IS DOUBLE END OF RECORD) F0D57960
REM FORM OF FIELD, ARG 77NN WHERE NN IS ARGUMENT NUMBER F0D57970
REM OR 7700 FLAG FOR PROGRAMMERS ETC F0D57980
REM OR NNXX WHERE NN IS CHARACTER COUNT+1 F0D57990
REM F0D58000
REM F0D58010
ETCPC STZ SYMBL DELETE ADDED FIELD $F0D58020
LXA GSAV2,2 RESTORE X2 $F0D58021
TRA GSC18 $F0D58022
HYPOP CAL OPBIN LOAD OPCODE $F0D58023
SLW LITRL SAVE FOR PASS TWO $F0D58024
AXT 5$HYPOP,4 SET PASS TWO TRANSFER ADDRESS $F0D58025
SXD OPBIN,4 $F0D58026
TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD $F0D58027
CLA Q1 ORDER TAKES ONE WORD $F0D58028
TSX BPCTR,4 *BUMP LOCATION COUNTER $F0D58029
TRA READ1 $F0D58030
REM $F0D58031
SRCS1 LDQ INSBF+1 LOAD SOURCE CARD LOCATION FIELD $F0D58032
ZAC $F0D58033
LGL 6 $F0D58034
ERA ASTRK IS IT *REMARK CARD $F0D58035
TZE *+4 YES $F0D58036
ERA Q7 IS IT $REMARK CARD $F0D58037
TZE *+2 YES $F0D58038
CAL D32767 NO,PUT OCTAL 77777 IN DECREMENT $F0D58039
STD INP2A+1 SET REMARK CARD SWITCHES $F0D5803A
STD INP3A $F0D5803B
STD INPCH $F0D5803C
CAL SRCID COMBINE SOURCE SERIALIZATION $F0D5803D
TRA SRCSW+4 $F0D5803E
INP2A ZSD DELUP+2 RESET HANGING INGORE SWITCH $F0D5803F
TXH INP02+17,4,-1 TRANSFER IF REMARKS CARD $F0D5803G
TRA INP02+8 $F0D5803H
INP3A TXH INP04-7,4,-1 TRANSFER IF REMARKS CARD $F0D5803I
CAL BCDBF+1 LOAD SOURCE WORD 2 $F0D5803J
TRA INP03+6 $F0D5803K
INPCH TXH INP03,4,-1 IF REMARKS CARD-DELETE AND PRINT $F0D5803L
CAL INSBF+2 LOAD SOURCE WORD 2 $F0D5803M
ERA IGNR IS IT IGNORE $F0D5803N
TNZ INP03 NO,DELETE AND PRINT CARD $F0D5803O
AXT -1,4 YES,SET IGNORE SWITCH $F0D5803P
SXD DELUP+2,4 $F0D5803Q
TRA INP03 DELETE,DO NOT PRINT $F0D5803R
IGNR BCI 1, IGNOR $F0D5803S
CALN1 NZT ABSFLG IS IT ABSOLUTE ASSEMBLY $F0D5803T
STL TVFLG NO,SET TRANSFER VECTOR NAME FLAG $F0D5803U
TRA CALNM+3 $F0D5803V
MAC2A TSX ESYML,4 *DEFINE LOCATION FIELD $F0D5803W
TRA MAC07+3 $F0D5803X
ESYMZ TXH ESYMS+1,4,** DID WE OVERLAP MACRO TABLE $F0D5803Y
TRA ESYMS-5 YES, CALL SOURCE ERROR $F0D5803Z
EOFIN STZ TTLFG KILL SUBTITLE (26)F0D58040
TRA EOFER (26)F0D58041
ETEST AXT 0,2 $F0D58042
LDI (SCHU)+MINTAP $F0D58043
RNT 100 IS IT REDUNDANCY ERROR $F0D58044
TRA SRCRR+2 YES-MACHINE ERRROR $F0D58045
TRA *+2 NO - BINARY CARD $F0D58046
EOFER AXT -1,2 END OF FILE CARD $F0D58047
TSX FPRINT,4 PRINT POSSIBLE REASON FOR ERROR $F0D58048
PZE SRCRM,,10 $F0D58049
AECRD CAL ECARD,2 SET UP ERROR MESSAGE $F0D5804A
SLW ENDER+4 (26)F0D5804B
TSX FPRINT,4 PRINT ERROR MESSAGE $F0D5804C
PZE ENDER,,6 OFF LINE (26)F0D5804D
TSX (TAPE),4 BACKSPACE OVER EOF (26)F0D5804E
PZE BSREC,,(SKDP) OR BINARY (26)F0D5804F
PZE ,,MINTAP (26)F0D5804G
TSX WRFBK,4 WRITE LAST PARTIAL LISTING BUFFER (26)F0D5804H
TSX (SECL),4 CALL SOURCE ERROR RECORD (26)F0D5804I
ENDER BCI 6, HAS CAUSED FAP TO READ CARD (26)F0D5804.
DUP 1,4 PATCH SPACE (26)F0D5804)
PZE (26)F0D5804J
OTPT3 STA BCDBF+13 AS LOW ORDER 18 BITS $F0D5804M
STT BCDBF+13 OF WORD 14 $F0D5804N
TRA OTPT2+1 $F0D5804O
RMT03 LXA CLEVL,4 GET MACRO NESTING LEVEL $F0D5804P
TXH RMT02+2,4,0 WAS THIS NESTED DEFINITION $F0D5804Q
SXD ESYMZ,2 NO,INITIALIZE TEST $F0D5804R
TRA RMT02+2 $F0D5804S
PMC2P CLA STPTR FLOAT MACRO EXPANSION TABLE $F0D5804T
ADM MOPTR BETWEEN SYMBOL TABLE AND $F0D5804U
ARS 1 MACRO DEFINITION TABLE $F0D5804V
PDX ,1 $F0D5804W
SXD ESYMZ,1 INITIALIZE SYMBOL TABLE OVERFLOW TEST $F0D5804X
TRA PMCS2+1 $F0D5804Y
STP0A TMI READ1 TRANSFER IF CC7 * COMMENTS CARD $F0D5804Z
ZSD COMCD+2 OTHERWISE RESET SWITCH $F0D58050
TRA COMCD+4 $F0D58051
FRPA1 CAL* (FGBX) $F0D58052
ANA Q4 IS THIS AN IBSFAP JOB $F0D58053
TNZ ENDC+2 YES $F0D58054
RNT 000040 NO,IS END CARD SETTING 10 SPECIFIED $F0D58055
ZSD WRIT0+3 NO,SET SWITCH TO UNBUFFER LISTING OUTPUT $F0D58056
TRA ENDC+2 $F0D58058
FRPA2 ZET FCFLG IS THIS FIRST CARD GROUP $F0D58059
TRA FIELD **NO $F0D58060
GO TSX SSCAN,4 *FIND VARIABLE FIELD $F0D58064
TRA TEST VARIABLE FIELD BLANK $F0D58065
CAL SYMBL IS VARIABLE FIELD $F0D58066
ERA TROF FORTRAN $F0D58067
TZE FORT YES $F0D58068
CAL SYMBL NO, IS VARIABLE FIELD $F0D58069
ERA SISBI IBSYS $F0D58070
TZE TBLE YES $F0D58071
TEST LDI* (FGBX) $F0D58072
RNT 4 IS THIS AN IBSFAP JOB $F0D58073
TRA FORT NO, THIS IS A FORTRAN JOB $F0D58074
TBLE CLA SIZE $F0D58075
STD SYMSIZ CHANGE SST SIZE $F0D58076
AXT LIBTBL,1 $F0D58077
LOOP CLA SYSTBL+LIBTBL,1 $F0D58078
STO SYMTBL+LIBTBL,1 $F0D58079
TIX LOOP,1,1 $F0D58080
FORT ZSD ESYMT+2 SET SWITCH TO SAVE SST $F0D58081
TRA READ1 $F0D58082
TROF BCI 1,ORTRAN $F0D58083
SISBI BCI 1,0IBSYS $F0D58084
SIZE PZE **,,-LIBTBL $F0D58085
PATCHA SLN FLDND SENSE LIGHT INDICATES END OF VAR. FIELD $F0D58092
TRA UPSCX RETURN TO RELOAD CALLING SEQUENCE $F0D58093
JPLCH TSX (LOAD),4,1 *AFTER PASS ONE, CALL PASS TWO. $F0D58094
BCI 1,9F0500 REC. 6 PARAMETER. PASS 2. $F0D58095
MSC07 ERA BLANK IS PUNCTUATION ) (24)F0D58096
TZE MSC06 YES, STUFF AS PART OF OP CODE (24)F0D58097
ERA MINUS NO, IS PUNCTUATION ( (24)F0D58098
TXL MSC08,2,-2 (MAKE THE CHECK ONLY IF IT WAS (24)F0D58099
TXL MSC08,1,5 FOUND IN CARD COLUMN EIGHT) (24)F0D58100
TZE MSC06 YES, STUFF AS PART OF OP CODE (24)F0D58101
MSC08 ERA PRIME IS PUNCTUATION BLANK (24)F0D58102
TZE MSC05 IF YES, STUFF VARIABLE FIELD FLAG (24)F0D58103
LDQ RESIDU NO, RESET SCAN POSITION TO INCLUDE (24)F0D58104
CAL CHRCTR CURRENT PUNCTUATION CHARACTER (24)F0D58105
LGR 6 (24)F0D58106
STQ RESIDU (24)F0D58107
TXI MSC10+2,1,1 GO TO VARIABLE FIELD SCAN (24)F0D58108
MSC09 LDQ MOPMQ RESTORE BEGINNING OF VARIABLE (24)F0D58109
STQ RESIDU FIELD FOR SCAN ROUTINES (24)F0D58110
CAL MOPCH (24)F0D58111
SLW CHRCTR (24)F0D58112
LAC VRFLD,1 LOAD CHARACTER AND WORD POSITIONS (24)F0D58113
LDC VRFLD,2 OF VARIABLE FIELD SCAN (24)F0D58114
TXH *+2,2,1 COMPUTE NUMBER OF CHARACTERS (24)F0D58115
TXI MSC05+3,1,13 PRECEDING VARIABLE FIELD (24)F0D58116
TXI MSC05+3,1,19 (24)F0D58117
G10PA SUB D1 *OMIT BLANK PUNCTUATION CHARACTER $F0D58118
STO PCONT FROM STUFF COUNT. $F0D58119
REM REENTRY FOR FIELD IS AN ARGUMENT WITH BLANK PUNCTUATION.$F0D58120
G10P1 SXD GSC09+3,4 *SET FIRST BLANK SWITCH TO AVOID $F0D58121
REM UPDATING PCONT TO INCLUDE $F0D58122
REM BLANK PUNCTUATION ONLY. $F0D58123
TXL GSC11,4,-2 *IS FIELD AN ARGUMENT... $F0D58124
STZ PCONT YES.ZERO PARTIAL STUFF COUNT IN CASE $F0D58125
REM GSC11+3 IS REACHED BEFORE GSC10+2. $F0D58126
TRA MSC23 *ENTRY WAS FROM GSC10+1. $F0D58127
GSFPA SXD GSFP2,1 *STORE NO.+5 TO STUFF 2ND TIME. $F0D58128
AXT 19,1 STUFF 18 CHARACTERS FIRST TIME. $F0D58129
TSX GSCS1-2,4 *SET GSCFX TO RETURN TO PATCH. $F0D58130
GSFP1 AXT **,4 *SET GSCFX TO RETURN TO CALLER. $F0D58131
AXT -4,1 UPDATE GSCX1 WITH LOCATION $F0D58132
SXA GSCX1,1 TO STUFF FROM NEXT. $F0D58133
GSFP2 TXI GSCS1-2,1,** *STUFF REMAINDER OF FIELD. $F0D58134
MP1 TXH OVRLP,4,** DID TABLE OVERFLOW $F0D58135
SXD STUFI,4 NO, PICK UP LAST LOCATION USED $F0D58136
TRA RESTF+3 $F0D58137
REM $F0D58138
SKF01 CLA UPT02+1 WAS SKPFIL TAPE $F0D58139
SUB UPDTAP SAME AS UPDATE INPUT $F0D58140
TNZ SOURC **NO $F0D58141
ZSA IPRECT YES,ZERO MEANINGLESS COUNT $F0D58142
TSX RDUPD,4 *REINITIATE BUFFER READING $F0D58143
AXT -1,4 SET EMPTY BUFFER SWITCH $F0D58144
SXD UPDSW,4 $F0D58145
TRA SOURC $F0D58146
EVNOP STL EVNFLG SET FLAG FOR EVEN PROLOGUE, ETC. $F0D58147
LDI LOCTR GET PROGRAM COUNTER $F0D58148
CAL Q1 $F0D58149
RFT 1 IS IT ODD.. $F0D58150
TSX BPCTR,4 *YES, BUMP IT $F0D58151
TRA READ1 $F0D58152
REM $F0D58153
REM PATCH TO ADJUST PROGRAM CARD FOR EVEN $F0D58154
ENDFP CAL PBUFF1+5 LOAD LENGTH OF PROLOGUE $F0D58155
NZT EVNFLG DID EVEN OPS OCCUR.. $F0D58156
TRA ENDFF+1 **NO, PROGRAM CARD IS O.K. $F0D58157
LDQ P4 YES, SET SIGN OF FOURTH $F0D58158
SLQ PBUFF1+3 WORD OF PROGRAM CARD MINUS $F0D58159
LBT IS TRANSFER VECTOR EVEN.. $F0D58160
TRA ENDFF+1 **YES $F0D58161
ADD Q1 NO, ADD ONE TO PROLOGUE LENGTH $F0D58162
TRA ENDFF+1 **RETURN $F0D58163
REM $F0D58164
SARGP LXA CLEVL,2 GET CURRENT NESTING LEVEL $F0D58165
TXL SARGT+2,2,0 DOES EXPANSION TABLE EXIST $F0D58166
LXA MEPTR,1 YES, USE ITS END INSTEAD $F0D58167
TRA SARGT+2 $F0D58168
PMC3P LXD MOPTR,4 RESET SYMBOL TABLE OVERLAP TEST $F0D58169
SXD ESYMZ,4 WHEN LEAVING MACRO NEST $F0D5816A
TRA PMC3X $F0D5816B
STPTR PZE ,,-SYMTBL-LSMTBL POINTER TO NEXT SYMBOL TABLE LOCATION $F0D5816C
REM $F0D5816D
REM PATCH TO ARGUMENT LIST ETC PROCESSING (23)F0D5816E
SSN33 TXH *+2,4,** IS THIS ETC CONTINUING IFF (23)F0D5816F
CAL PCCP2 YES,PUT UNDER PCC CONTROL (23)F0D5816G
SLW OPBIN SAVE PASS TWO ADDRESS (23)F0D5816H
TRA SSN31+1 (23)F0D5816I
REM PATCH TO PRINT UPDATE PSEUDO-OPS (25)F0D5816J
UPFIX LXD SRCSW,4 (25)F0D5816K
TXL PUPIN,4,0 TEST SWITCH (25)F0D5816L
PSOIN TSX FPRINT,4 PRINT FROM SOURCE INPUT BUFFER (25)F0D5816M
PZE INSBF,,15 (25)F0D5816N
TRA UPDLS+3 (25)F0D5816O
PUPIN TSX FPRINT,4 PRINT FROM UPDATE INPUT BUFFER (25)F0D5816P
PZE DELBF,,15 (25)F0D5816Q
TRA UPDLS+3 (25)F0D5816R
REM PATCH TO CORRECT IFF OUTSIDE OF MACRO (33)F0D5816S
IFFIX TSX SSINS,4 *ASSEMBLE ARGUMENTS (33)F0D5816T
LXD ARGJL,4 OBTAIN NUMBER COLLECTED (33)F0D5816U
ZAC (33)F0D5816V
TRA IFF01+4 (33)F0D5816W
REM ***************PATCH SPACE******************************$F0D58199
ORG BOTTAB-LOPTBM-5 $F0D58200
OPRECT MZE **,,** UPDATE OUTPUT TAPE RECORD COUNT $F0D58300
IPRECT MZE **,,** UPDATE INPUT TAPE RECORD COUNT $F0D58400
BNRECT MZE **,,MBNTAP BINARY OUTPUT TAPE RECORD COUNT $F0D58500
INRECT MZE **,,MINTAP SOURCE INPUT TAPE RECORD COUNT $F0D58600
TTL COMBINED OPERATION TABLE F0D70000
LBL 9F04OP,X F0D70010
REM FORM OF TRANSFER WORD FOR PSEUDOOPERATION F0D70020
REM PFX P1TFR,,P2TFR F0D70030
REM PASS 1 F0D70040
REM PTW NAME OF MACRO DEFINITION F0D70050
REM PON UPDATE PSEUDOOPERATION F0D70060
REM PZE IGNORED DURING DELETED ASSEMBLY F0D70070
REM PASS 2 F0D70080
REM MZE MAY PRECEDE ENTRY CARD F0D70090
REM PZE MAY NOT PRECEDE ENTRY CARD F0D70100
REM (DATA GENERATING, PROGRAM LINKING, F0D70110
REM STORAGE ASSIGNING, SYMBOL DEFINING) F0D70120
REM F0D70130
REM FORM OF TRANSFER WORD FOR DISK ORDER $F0D70140
REM PZE 4$ORDOP,T,OP F0D70150
REM T IS 6 FOR NO ACCESS MODULE, TRACK, RECORD REQUIRED $F0D70151
REM T IS 4 FOR NO TRACK, RECORD REQUIRED $F0D70160
REM T IS 2 FOR NO RECORD REQUIRED $F0D70170
REM T IS 0 FOR ALL ABOVE REQUIRED $F0D70171
REM OP IS TWO-DIGIT OPCODE F0D70180
REM F0D70190
REM FORM OF TRANSFER WORD FOR HYPERTAPE ORDER $F0D70191
REM PZE 4$HYPOP,T,OP $F0D70192
REM T IS 2 IF ADDRESS IS REQUIRED $F0D70193
REM OP IS TWO-DIGIT OPCODE $F0D70194
REM $F0D70195
REM FORM OF INSTRUCTION WORD FOR MACHINE OPERATION F0D70200
REM 400000 000000 SIGN FOR TYPE A, B, C, D, E, INSTRUCTION F0D70210
REM 300000 000000 TYPE A F0D70220
REM 077700 000000 TYPE B, C, D, E F0D70230
REM 000060 000000 IA OK FOR TYPE B F0D70240
REM 000010 000000 A REQ F0D70250
REM 000004 000000 T REQ F0D70260
REM 000002 000000 D REQ F0D70270
REM 000001 000000 ADDRESS CONTAINS FLAGS F0D70280
REM NOT TYPE B I/O ADDRESS, TYPE E PSE OR MSE F0D70290
REM 000000 400000 IA OK FOR TYPE A F0D70300
REM 000000 200000 NONXMIT FOR TYPE A (IOXY) COMMANDS F0D70310
REM 000000 100000 MACHINE OP F0D70320
REM 000000 040000 OK FOR 704 F0D70330
REM 000000 020000 OK FOR 7090 F0D70340
REM 000000 000004 TYPE K DISK COMMAND F0D70350
REM 000000 000002 TYPE C VARIABLE LENGTH (DECREMENT) F0D70360
REM OR TYPE K WITH HIGH ORDER COUNT FIELD F0D70370
REM 000000 000001 TYPE D SENSE INSTRUCTION F0D70380
REM F0D70390
ORG BOTTAB-LOPTBM-1 F0D70400
OPTSIZ PZE 22,,-LOPTBL LOG LOPTBL,,OPERATION TABLE LENGTH F0D70410
OPTTBL SYN * F0D70420
BCD 1704000 MACHINE MODE PSEUDOOPERATION F0D70430
MZE 4$704OP,,5$704OP 704 F0D70440
BCD 1709000 MACHINE MODE PSEUDOOPERATION F0D70450
MZE 4$709OP,,5$709OP 709/7090 F0D70460
BCD 19LP000 CARD FORMAT PSEUDOOPERATION F0D70470
MZE 4$ABSOP,,5$9LPOP 9LP F0D70480
BCD 1ABS000 CARD FORMAT PSEUDOOPERATION F0D70490
MZE 4$ABSOP,,5$ABSOP ABS F0D70500
BCD 1ACL000 ADD AND CARRY LOGICAL WORD F0D70510
OCT +036171160000 ACL F0D70520
BCD 1ADD000 ADD F0D70530
OCT +040071160000 ADD F0D70540
BCD 1ADM000 ADD MAGNITUDE F0D70550
OCT +040171160000 ADM F0D70560
BCD 1ALS000 ACCUMULATOR LEFT SHIFT F0D70570
OCT +076711160000 ALS F0D70580
BCD 1ANA000 AND TO ACCUMULATOR F0D70590
OCT -032071160000 ANA F0D70600
BCD 1ANS000 AND TO STORAGE F0D70610
OCT +032071160000 ANS F0D70620
BCD 1ARS000 ACCUMULATOR RIGHT SHIFT F0D70630
OCT +077111160000 ARS F0D70640
BCD 1AXC000 ADDRESS TO INDEX, COMPLEMENTED F0D70650
OCT -077415120000 AXC F0D70660
BCD 1AXT000 ADDRESS TO INDEX, TRUE F0D70670
OCT +077415120000 AXT F0D70680
BCD 1BCD000 DATA GENERATING PSEUDOOPERATION F0D70690
PZE 4$BCDOP,,5$BCDOP BCD F0D70700
BCD 1BCI000 DATA GENERATING PSEUDOOPERATION F0D70710
PZE 4$BCIOP,,5$BCIOP BCI F0D70720
BCD 1BES000 STORAGE ALLOCATING PSEUDOOPERATION F0D70730
PZE 4$BESOP,,5$BESOP BES F0D70740
BCD 1BOOL00 SYMBOL DEFINING PSEUDOOPERATION F0D70750
PZE 4$BOLOP,,5$BOLOP BOOL F0D70760
BCD 1BRA000 BRANCH (TXL WITHOUT TAG) F0D70770
OCT -300011160000 BRA F0D70780
BCD 1BRN000 BRANCH NOP (TXH WITHOUT TAG) F0D70790
OCT +300011160000 BRN F0D70800
BCD 1BSF000 BACKSPACE FILE F0D70810
OCT -076410120200 BSF F0D70820
BCD 1BSFA00 BACKSPACE FILE, CHANNEL A F0D70830
OCT -076410121200 BSFA F0D70840
BCD 1BSFB00 BACKSPACE FILE, CHANNEL B F0D70850
OCT -076410122200 BSFB F0D70860
BCD 1BSFC00 BACKSPACE FILE, CHANNEL C F0D70870
OCT -076410123200 BSFC F0D70880
BCD 1BSFD00 BACKSPACE FILE, CHANNEL D F0D70890
OCT -076410124200 BSFD F0D70900
BCD 1BSFE00 BACKSPACE FILE, CHANNEL E F0D70910
OCT -076410125200 BSFE F0D70920
BCD 1BSFF00 BACKSPACE FILE, CHANNEL F F0D70930
OCT -076410126200 BSFF F0D70940
BCD 1BSFG00 BACKSPACE FILE, CHANNEL G F0D70950
OCT -076410127200 BSFG F0D70960
BCD 1BSFH00 BACKSPACE FILE, CHANNEL H F0D70970
OCT -076410130200 BSFH F0D70980
BCD 1BSR000 BACKSPACE RECORD F0D70990
OCT +076410120200 BSR F0D71000
BCD 1BSRA00 BACKSPACE RECORD, CHANNEL A F0D71010
OCT +076410121200 BSRA F0D71020
BCD 1BSRB00 BACKSPACE RECORD, CHANNEL B F0D71030
OCT +076410122200 BSRB F0D71040
BCD 1BSRC00 BACKSPACE RECORD, CHANNEL C F0D71050
OCT +076410123200 BSRC F0D71060
BCD 1BSRD00 BACKSPACE RECORD, CHANNEL D F0D71070
OCT +076410124200 BSRD F0D71080
BCD 1BSRE00 BACKSPACE RECORD, CHANNEL E F0D71090
OCT +076410125200 BSRE F0D71100
BCD 1BSRF00 BACKSPACE RECORD, CHANNEL F F0D71110
OCT +076410126200 BSRF F0D71120
BCD 1BSRG00 BACKSPACE RECORD, CHANNEL G F0D71130
OCT +076410127200 BSRG F0D71140
BCD 1BSRH00 BACKSPACE RECORD, CHANNEL H F0D71150
OCT +076410130200 BSRH F0D71160
BCD 1BSS000 STORAGE ALLOCATING PSEUDOOPERATION F0D71170
PZE 4$BSSOP,,5$BESOP BSS F0D71180
BCD 1BST000 BACKSPACE TAPE F0D71190
OCT +076410140200 BST F0D71200
BCD 1BTT000 BEGINNING OF TAPE TEST F0D71210
OCT +076010120000 BTT F0D71220
BCD 1BTTA00 BEGINNING OF TAPE TEST, CHANNEL A F0D71230
OCT +076000121000 BTTA F0D71240
BCD 1BTTB00 BEGINNING OF TAPE TEST, CHANNEL B F0D71250
OCT +076000122000 BTTB F0D71260
BCD 1BTTC00 BEGINNING OF TAPE TEST, CHANNEL C F0D71270
OCT +076000123000 BTTC F0D71280
BCD 1BTTD00 BEGINNING OF TAPE TEST, CHANNEL D F0D71290
OCT +076000124000 BTTD F0D71300
BCD 1BTTE00 BEGINNING OF TAPE TEST, CHANNEL E F0D71310
OCT +076000125000 BTTE F0D71320
BCD 1BTTF00 BEGINNING OF TAPE TEST, CHANNEL F F0D71330
OCT +076000126000 BTTF F0D71340
BCD 1BTTG00 BEGINNING OF TAPE TEST, CHANNEL G F0D71350
OCT +076000127000 BTTG F0D71360
BCD 1BTTH00 BEGINNING OF TAPE TEST, CHANNEL H F0D71370
OCT +076000130000 BTTH F0D71380
BCD 1CAD000 COPY, ADD AND CARRY F0D71390
OCT -070011140000 CAD F0D71400
BCD 1CAL000 CLEAR AND ADD LOGICAL F0D71410
OCT -050071160000 CAL F0D71420
BCD 1CALL00 PROGRAM LINKING PSEUDOOPERATION F0D71430
PZE 4$CALOP,,5$CALOP CALL F0D71440
BCD 1CAQ000 CONVERT BY ADDITION FROM MQ F0D71450
OCT -011413120002 CAQ F0D71460
BCD 1CAS000 COMPARE ACCUMULATOR WITH STORAGE F0D71470
OCT +034071160000 CAS F0D71480
BCD 1CFF000 CHANGE FILM FRAME F0D71490
OCT +076000160030 CFF F0D71500
BCD 1CHS000 CHANGE SIGN F0D71510
OCT +076000160002 CHS F0D71520
BCD 1CLA000 CLEAR AND ADD F0D71530
OCT +050071160000 CLA F0D71540
BCD 1CLM000 CLEAR MAGNITUDE F0D71550
OCT +076000160000 CLM F0D71560
BCD 1CLS000 CLEAR AND SUBTRACT F0D71570
OCT +050271160000 CLS F0D71580
BCD 1COM000 COMPLEMENT MAGNITUDE F0D71590
OCT +076000160006 COM F0D71600
BCD 1COMMON STORAGE ALLOCATING PSEUDOOPERATION F0D71610
PZE 4$COMOP,,5$COMOP COMMON F0D71620
BCD 1COUNT0 ASSEMBLER INFORMATION PSEUDOOPERATION F0D71630
MZE 4$CNTOP,,5$TTL03+1 COUNT F0D71640
BCD 1CPY000 COPY OR SKIP F0D71650
OCT +070011140000 CPY F0D71660
BCD 1CPYD00 COPY AND DISCONNECT DISK F0D71670
OCT 500013520000 CPYD DISK F0D71680
BCD 1CPYP00 COPY AND PROCEED DISK F0D71690
OCT 400013520000 CPYP DISK F0D71700
BCD 1CRQ000 CONVERT BY REPLACEMENT FROM MQ F0D71710
OCT -015413120002 CRQ F0D71720
BCD 1CTL000 CONTROL DISK F0D71730
OCT 200011520004 CTL DISK F0D71740
BCI 1,CTLN00 CONTROL NONTRANSMIT DISK$F0D71741
OCT 220011520004 CTLN DISK$F0D71742
BCD 1CTLR00 CONTROL AND READ DISK F0D71750
OCT 200011720004 CTLR DISK F0D71760
BCI 1,CTLRN0 CONTROL AND READ NONTRANSMIT DISK$F0D71761
OCT 220011720004 CTLRN DISK$F0D71762
BCD 1CTLW00 CONTROL AND WRITE DISK F0D71770
OCT 240011520004 CTLW DISK F0D71780
BCI 1,CTLWN0 CONTROL AND WRITE NONTRANSMIT DISK$F0D71781
OCT 260011520004 CTLWN DISK$F0D71782
BCD 1CVR000 CONVERT BY REPLACEMENT FROM AC F0D71790
OCT +011413120002 CVR F0D71800
BCD 1DCT000 DIVIDE CHECK TEST F0D71810
OCT +076000160012 DCT F0D71820
BCD 1DEBM00 EIGHT BIT MODE DISK$F0D71830
PZE 4$ORDOP,6,08 DEBM DISK$F0D71840
BCD 1DEC000 DATA GENERATING PSEUDOOPERATION F0D71850
PZE 4$DECOP,,5$DECOP DEC F0D71860
BCD 1DETAIL LIST CONTROL PSEUDOOPERATION F0D71870
MZE 4$READ1,,5$DETOP DETAIL F0D71880
BCD 1DFAD00 DBL-PREC FLOAT ADD $F0D71881
OCT +030171120000 DFAD $F0D71882
BCD 1DFAM00 DBL-PREC FLOAT ADD MAGNITUDE $F0D71883
OCT +030571120000 DFAM $F0D71884
BCD 1DFDH00 DBL-PREC FLOAT DIVIDE AND HALT $F0D71885
OCT -024071120000 DFDH $F0D71886
BCD 1DFDP00 DBL-PREC FLOAT DIVIDE AND PROCEED $F0D71887
OCT -024171120000 DFDP $F0D71888
BCD 1DFMP00 DBL-PREC FLOAT MULTIPLY $F0D71889
OCT +026171120000 DFMP $F0D71890
BCD 1DFSB00 DBL-PREC FLOAT SUBTRACT $F0D71891
OCT +030371120000 DFSB $F0D71892
BCD 1DFSM00 DBL-PREC FLOAT SUBTRACT MAGNITUDE $F0D71893
OCT +030771120000 DFSM $F0D71894
BCD 1DLD000 DBL-PREC LOAD $F0D71895
OCT +044371120000 DLD $F0D71896
BCD 1DNOP00 NO OPERATION DISK$F0D71897
PZE 4$ORDOP,6,00 DNOP DISK$F0D71898
BCD 1DREL00 RELEASE DISK$F0D71899
PZE 4$ORDOP,6,04 DREL DISK$F0D71900
BCD 1DRS000 DROP READY STATUS $F0D71901
OCT +077510120000 DRS $F0D71902
BCD 1DSAI00 SET ACESS INOPERATIVE DISK$F0D71903
PZE 4$ORDOP,4,87 DSAI DISK$F0D71904
BCD 1DSBM00 SIX BIT MODE DISK$F0D71905
PZE 4$ORDOP,6,09 DSBM DISK$F0D71906
BCD 1DSEK00 SEEK DISK$F0D71907
PZE 4$ORDOP,2,80 DSEK DISK$F0D71908
BCD 1DST000 DBL-PREC STORE $F0D71909
OCT -060371120000 DST $F0D71910
BCD 1DUAM00 DBL-PREC UNNORM FLOAT ADD MAGNITUDE $F0D71911
OCT -030571120000 DUAM $F0D71912
BCD 1DUFA00 DBL-PREC UNNORM FLOAT ADD $F0D71913
OCT -030171120000 DUFA $F0D71914
BCD 1DUFM00 DBL-PREC UNNORM FLOAT MULTIPLY $F0D71915
OCT -026171120000 DUFM $F0D71916
BCD 1DUFS00 DBL-PREC UNNORM FLOAT SUBTRACT $F0D71917
OCT -030371120000 DUFS $F0D71918
BCD 1DUP000 DATA GENERATING PSEUDOOPERATION $F0D71919
PZE 4$DUPOP,,5$DUPOP DUP $F0D71920
BCD 1DUSM00 DBL-PREC UNNORM FLOAT SUBTRACT MAGNITUDE $F0D71921
OCT -030771120000 DUSM $F0D71922
BCD 1DVCY00 PREPARE TO VERIFY CYLINDER OPERATION DISK F0D72030
PZE 4$ORDOP,0,85 DVCY DISK F0D72040
BCD 1DVH000 DIVIDE OR HALT F0D72050
OCT +022071160000 DVH F0D72060
BCD 1DVHA00 PREPARE TO VERIFY HOME ADDRESS DISK F0D72070
PZE 4$ORDOP,2,89 DVHA DISK$F0D72080
BCD 1DVP000 DIVIDE OR PROCEED F0D72090
OCT +022171160000 DVP F0D72100
BCD 1DVSR00 PREPARE TO VERIFY SINGLE RECORD DISK F0D72110
PZE 4$ORDOP,0,82 DVSR DISK$F0D72120
BCD 1DVTA00 PREPARE TO VERIFY TRACK WITH ADDRESS DISK F0D72130
PZE 4$ORDOP,0,88 DVTA DISK$F0D72140
BCD 1DVTN00 PREPARE TO VERIFY TRACK WITHOUT ADDRESS DISK F0D72150
PZE 4$ORDOP,0,84 DVTN DISK$F0D72160
BCD 1DWRC00 PREPARE TO WRITE CHECK DISK F0D72170
PZE 4$ORDOP,0,86 DWRC DISK$F0D72180
BCD 1DWRF00 PREPARE TO WRITE FORMAT TRACK DISK F0D72190
PZE 4$ORDOP,2,83 DWRF DISK$F0D72200
BCD 1EAD000 EXTENDED ADD F0D72210
OCT +067171160000 EAD F0D72220
BCD 1EAXM00 ENTER ADDITIONAL INDEX MODE F0D72230
OCT +076000120016 EAXM F0D72240
BCD 1ECA000 EXCHANGE LOGICAL ACCUMULATOR WITH STORAGE F0D72250
OCT +056171160000 ECA F0D72260
BCD 1ECQ000 EXCHANGE MQ WITH STORAGE F0D72270
OCT -056171160000 ECQ F0D72280
BCD 1ECTM00 ENTER COPY TRAP MODE F0D72290
OCT -076000120006 ECTM F0D72300
BCD 1EDP000 EXTENDED DIVIDE OR PROCEED F0D72310
OCT +067271160000 EDP F0D72320
BCD 1EFTM00 ENTER FLOATING TRAP MODE F0D72330
OCT -076000120002 EFTM F0D72340
BCD 1EJECT0 LIST CONTROL PSEUDOOPERATION F0D72350
MZE 4$READ1,,5$EJCOP EJECT F0D72360
BCD 1ELD000 EXTENDED LOAD F0D72370
OCT +067071160000 ELD F0D72380
BCD 1EMP000 EXTENDED MULTIPLY F0D72390
OCT +067371160000 EMP F0D72400
BCD 1EMTM00 ENTER MULTIPLE TAG MODE $F0D72401
OCT -076000120016 EMTM $F0D72402
BCD 1ENB000 ENABLE FROM STORAGE F0D72410
OCT +056471120000 ENB F0D72420
BCD 1END000 ASSEMBLER INFORMATION PSEUDOOPERATION F0D72430
PON 4$ENDOP,,5$ENDOP END F0D72440
BCD 1ENDFIL UPDATE INFORMATION PSEUDOOPERATION F0D72450
MON 4$ENFOP,,5$TTL03+1 ENDFIL F0D72460
BCD 1ENDUP0 UPDATE INFORMATION PSEUDOOPERATION F0D72470
MON 4$ENPOP,,5$TTL03+1 ENDUP F0D72480
BCD 1ENK000 ENTER KEYS F0D72490
OCT +076000120004 ENK F0D72500
BCD 1ENTRY0 PROGRAM LINKING PSEUDOOPERATION F0D72510
MZE 4$ENTOP,,5$ENTOP ENTRY F0D72520
BCD 1EQU000 SYMBOL DEFINING PSEUDOOPERATION F0D72530
PZE 4$SYNOP,,5$MAXOP EQU F0D72540
BCD 1ERA000 EXCLUSIVE OR TO ACCUMULATOR F0D72550
OCT +032271120000 ERA F0D72560
BCD 1ESB000 EXTENDED SUBTRACT F0D72570
OCT -067171160000 ESB F0D72580
BCD 1ESM000 ENTER SIGNIFICANCE MODE F0D72590
OCT -076100120140 ESM F0D72600
BCD 1ESNT00 ENTER STORAGE NULLIFICATION MODE AND TRANSFER F0D72610
OCT -002171120000 ESNT F0D72620
BCD 1EST000 EXTENDED STORE F0D72630
OCT -067371160000 EST F0D72640
BCD 1ESTM00 ENTER SELECT TRAP MODE F0D72650
OCT -076000120005 ESTM F0D72660
BCD 1ETM000 ENTER TRAPPING MODE F0D72670
OCT +076000160007 ETM F0D72680
BCD 1ETT000 END OF TAPE TEST F0D72690
OCT -076000140011 ETT F0D72700
BCD 1ETTA00 END OF TAPE TEST, CHANNEL A F0D72710
OCT -076000121000 ETTA F0D72720
BCD 1ETTB00 END OF TAPE TEST, CHANNEL B F0D72730
OCT -076000122000 ETTB F0D72740
BCD 1ETTC00 END OF TAPE TEST, CHANNEL C F0D72750
OCT -076000123000 ETTC F0D72760
BCD 1ETTD00 END OF TAPE TEST, CHANNEL D F0D72770
OCT -076000124000 ETTD F0D72780
BCD 1ETTE00 END OF TAPE TEST, CHANNEL E F0D72790
OCT -076000125000 ETTE F0D72800
BCD 1ETTF00 END OF TAPE TEST, CHANNEL F F0D72810
OCT -076000126000 ETTF F0D72820
BCD 1ETTG00 END OF TAPE TEST, CHANNEL G F0D72830
OCT -076000127000 ETTG F0D72840
BCD 1ETTH00 END OF TAPE TEST, CHANNEL H F0D72850
OCT -076000130000 ETTH F0D72860
BCD 1EUA000 EXTENDED UNNORMALIZED ADD F0D72870
OCT -067271160000 EUA F0D72880
BCI 1,EVEN00 STORAGE ALLOCATING PSUEDOOPERATION $F0D72881
PZE 4$EVNOP,,5$EVNOP EVEN $F0D72882
BCD 1EXTERN PROGRAM LINKING PSEUDOOPERATION F0D72890
MZE 4$EXTOP,,5$UNLOP+1 EXTERN F0D72900
BCD 1FAD000 FLOATING ADD F0D72910
OCT +030071160000 FAD F0D72920
BCD 1FAM000 FLOATING ADD MAGNITUDE F0D72930
OCT +030471120000 FAM F0D72940
BCD 1FDH000 FLOATING DIVIDE OR HALT F0D72950
OCT +024071160000 FDH F0D72960
BCD 1FDP000 FLOATING DIVIDE OR PROCEED F0D72970
OCT +024171160000 FDP F0D72980
BCD 1FIVE00 FIVE (PREFIX) F0D72990
OCT +500001120000 FIVE F0D73000
BCD 1FMP000 FLOATING MULTIPLY F0D73010
OCT +026071160000 FMP F0D73020
BCD 1FOR000 FOUR (PREFIX) F0D73030
OCT +400001160000 FOR F0D73040
BCD 1FOUR00 FOUR (PREFIX) F0D73050
OCT +400001120000 FOUR F0D73060
BCD 1FRN000 FLOATING ROUND F0D73070
OCT +076000120011 FRN F0D73080
BCD 1FSB000 FLOATING SUBTRACT F0D73090
OCT +030271160000 FSB F0D73100
BCD 1FSM000 FLOATING SUBTRACT MAGNITUDE F0D73110
OCT +030671120000 FSM F0D73120
BCD 1FUL000 CARD FORMAT PSEUDOOPERATION F0D73130
MZE 4$ABSOP,,5$FULOP FUL F0D73140
BCD 1FVE000 FIVE (PREFIX) F0D73150
OCT +500001160000 FVE F0D73160
BCD 1HBSF00 HYPERTAPE BACKSPACE FILE $F0D73161
PZE 4$HYPOP,0,35 HBSF $F0D73162
BCD 1HBSR00 HYPERTAPE BACKSPACE RECORD $F0D73163
PZE 4$HYPOP,0,34 HBSR $F0D73164
BCD 1HCCR00 HYPERTAPE CHANGE CARTRIDGE AND REWIND $F0D73165
PZE 4$HYPOP,0,28 HCCR $F0D73166
BCD 1HCHC00 HYPERTAPE CHANGE CARTRIDGE $F0D73167
PZE 4$HYPOP,0,38 HCHC $F0D73168
BCD 1HEAD00 SYMBOL DEFINING PSEUDOOPERATION $F0D73171
MZE 4$HADOP,,5$HEDOP HEAD F0D73180
BCD 1HED000 SYMBOL DEFINING PSEUDOOPERATION F0D73190
MZE 4$HEDOP,,5$HEDOP HED F0D73200
BCD 1HEOS00 HYPERTAPE END OF SEQUENCE $F0D73201
PZE 4$HYPOP,0,01 HEOS $F0D73202
BCD 1HERG00 HYPERTAPE ERASE LONG GAP $F0D73203
PZE 4$HYPOP,0,32 HERG $F0D73204
BCD 1HFPN00 HYPERTAPE FILE PROTECT ON $F0D73205
PZE 4$HYPOP,0,42 HFPN $F0D73206
BCD 1HNOP00 HYPERTAPE NO OPERATION $F0D73207
PZE 4$HYPOP,0,00 HNOP $F0D73208
BCD 1HPR000 HALT AND PROCEED F0D73210
OCT +042001160000 HPR F0D73220
BCD 1HRUN00 HYPERTAPE REWIND AND UNLOAD CARTRIDGE $F0D73225
PZE 4$HYPOP,0,31 HRUN $F0D73226
BCD 1HRWD00 HYPERTAPE REWIND $F0D73227
PZE 4$HYPOP,0,30 HRWD $F0D73228
BCD 1HSBR00 HYPERTAPE SELECT FOR BACKWARD READING $F0D73229
PZE 4$HYPOP,2,07 PSBR $F0D73230
BCD 1HSEL00 HYPERTAPE SELECT $F0D73231
PZE 4$HYPOP,2,06 HSEL $F0D73232
BCD 1HSKF00 HYPERTAPE SKIP FILE $F0D73233
PZE 4$HYPOP,0,37 HSKF $F0D73234
BCD 1HSKR00 HYPERTAPE SKIP RECORD $F0D73235
PZE 4$HYPOP,0,36 HSKR $F0D73236
BCD 1HTR000 HALT AND TRANSFER $F0D73237
OCT +000071160000 HTR F0D73240
BCD 1HUNL00 HYPERTAPE UNLOAD CARTRIDGE $F0D73241
PZE 4$HYPOP,0,39 HUNL $F0D73242
BCD 1HWTM00 HYPERTAPE WRITE TAPE MARK $F0D73243
PZE 4$HYPOP,0,33 HWTM $F0D73244
BCD 1ICC000 INCREMENT CONTROL COUNTER DISK F0D73250
OCT 700001320006 ICC DISK F0D73260
BCD 1IFEOF0 PROGRAM LINKING PSEUDOOPERATION F0D73270
PZE 4$IFEOP,,5$IFEOP IFEOF F0D73280
BCD 1IFF000 MACRO EXPANSION PSEUDOOPERATION F0D73290
MZE 4$IFFOP,,5$TTL03+1 IFF F0D73300
BCD 1IIA000 INVERT INDICATORS FROM ACCUMULATOR F0D73310
OCT +004101120000 IIA F0D73320
BCD 1IIL000 INVERT INDICATORS OF LEFT HALF F0D73330
OCT -005111120001 IIL F0D73340
BCD 1IIR000 INVERT INDICATORS OF RIGHT HALF F0D73350
OCT +005111120001 IIR F0D73360
BCD 1IIS000 INVERT INDICATORS FROM STORAGE F0D73370
OCT +044071120000 IIS F0D73380
BCD 1INDEX0 LIST CONTROL PSEUDOOPERATION F0D73390
MZE 4$READ1,,5$INXOP INDEX F0D73400
BCD 1IOCD00 I/O UNDER COUNT CONTROL AND DISCONNECT F0D73410
OCT 000013520000 IOCD F0D73420
BCD 1IOCDN0 I/O UNDER COUNT CONTROL DISCONNECT NONTRANSMITF0D73430
OCT 000013720000 IOCDN F0D73440
BCD 1IOCP00 I/O UNDER COUNT CONTROL AND PROCEED F0D73450
OCT 400013520000 IOCP F0D73460
BCD 1IOCPN0 I/O UNDER COUNT CONTROL PROCEED NONTRANSMIT F0D73470
OCT 400013720000 IOCPN F0D73480
BCD 1IOCT00 I/O UNDER COUNT CONTROL AND TRANSFER F0D73490
OCT 500013520000 IOCT F0D73500
BCD 1IOCTN0 I/O UNDER COUNT CONTROL TRANSFER NONTRANSMIT F0D73510
OCT 500013720000 IOCTN F0D73520
BCD 1IOD000 I/O DELAY F0D73530
OCT +076600140333 IOD F0D73540
BCD 1IORP00 I/O UNDER RECORD CONTROL AND PROCEED F0D73550
OCT 200013520000 IORP F0D73560
BCD 1IORPN0 I/O UNDER RECORD CONTROL PROCEED NONTRANSMIT F0D73570
OCT 200013720000 IORPN F0D73580
BCD 1IORT00 I/O UNDER RECORD CONTROL AND TRANSFER F0D73590
OCT 300013520000 IORT F0D73600
BCD 1IORTN0 I/O UNDER RECORD CONTROL TRANSFER NONTRANSMIT F0D73610
OCT 300013720000 IORTN F0D73620
BCD 1IOSP00 I/O UNTIL SIGNAL AND PROCEED F0D73630
OCT 600013520000 IOSP F0D73640
BCD 1IOSPN0 I/O UNTIL SIGNAL AND PROCEED NONTRANSMIT F0D73650
OCT 600013720000 IOSPN F0D73660
BCD 1IOST00 I/O UNTIL SIGNAL AND TRANSFER F0D73670
OCT 700013520000 IOST F0D73680
BCD 1IOSTN0 I/O UNTIL SIGNAL AND TRANSFER NONTRANSMIT F0D73690
OCT 700013720000 IOSTN F0D73700
BCD 1IOT000 INPUT OUTPUT CHECK TEST F0D73710
OCT +076000120005 IOT F0D73720
BCD 1IRP000 MACRO EXPANSION PSEUDOOPERATION F0D73730
MZE 4$IRPOP,,5$TTL03+1 IRP F0D73740
BCD 1...000 CONVENTION FOR OPCODE TO BE INITIALIZED F0D73750
OCT +000001160000 ... F0D73760
BCD 1LAC000 LOAD INDEX FROM ADDRESS, COMPLEMENTED F0D73770
OCT +053515120000 LAC F0D73780
BCD 1LAR000 LOAD ASSEMBLY REGISTER DISK F0D73790
OCT 300011520004 LAR DISK F0D73800
BCD 1LAS000 LOGICAL COMPARE ACCUMULATOR WITH STORAGE F0D73810
OCT -034071120000 LAS F0D73820
BCD 1LAXM00 LEAVE ADDITIONAL INDEX MODE F0D73830
OCT -076000120016 LAXM F0D73840
BCD 1LBL000 LIST CONTROL PSEUDOOPERATION F0D73850
MZE 4$READ1,,5$LBLOP LBL F0D73860
BCD 1LBT000 LOW ORDER BIT TEST F0D73870
OCT +076000160001 LBT F0D73880
BCD 1LCC000 LOAD CONTROL COUNTER DISK F0D73890
OCT 640011720004 LCC DISK F0D73900
BCD 1LCHA00 LOAD CHANNEL A F0D73910
OCT +054471120000 LCHA F0D73920
BCD 1LCHB00 LOAD CHANNEL B F0D73930
OCT -054471120000 LCHB F0D73940
BCD 1LCHC00 LOAD CHANNEL C F0D73950
OCT +054571120000 LCHC F0D73960
BCD 1LCHD00 LOAD CHANNEL D F0D73970
OCT -054571120000 LCHD F0D73980
BCD 1LCHE00 LOAD CHANNEL E F0D73990
OCT +054671120000 LCHE F0D74000
BCD 1LCHF00 LOAD CHANNEL F F0D74010
OCT -054671120000 LCHF F0D74020
BCD 1LCHG00 LOAD CHANNEL G F0D74030
OCT +054771120000 LCHG F0D74040
BCD 1LCHH00 LOAD CHANNEL H F0D74050
OCT -054771120000 LCHH F0D74060
BCD 1LDA000 LOCATE DRUM ADDRESS F0D74070
OCT +046071140000 LDA F0D74080
BCD 1LDC000 LOAD INDEX FROM DECREMENT, COMPLEMENTED F0D74090
OCT -053515120000 LDC F0D74100
BCD 1LDI000 LOAD INDICATORS F0D74110
OCT +044171120000 LDI F0D74120
BCD 1LDQ000 LOAD MQ F0D74130
OCT +056071160000 LDQ F0D74140
BCD 1LFT000 LEFT HALF INDICATORS OFF TEST F0D74150
OCT -005411120001 LFT F0D74160
BCD 1LFTM00 LEAVE FLOATING POINT TRAP MODE F0D74170
OCT -076000120004 LFTM F0D74180
BCD 1LGL000 LOGICAL LEFT SHIFT F0D74190
OCT -076311160000 LGL F0D74200
BCD 1LGR000 LOGICAL RIGHT SHIFT F0D74210
OCT -076511120000 LGR F0D74220
BCD 1LIP000 LEAVE INTERRUPT PROGRAM DISK F0D74230
OCT 600001320004 LIP DISK F0D74240
BCD 1LIPT00 LEAVE INTERRUPT PROGRAM AND TRANSFER DISK F0D74250
OCT 100011720000 LIPT DISK F0D74260
BCD 1LIST00 LIST CONTROL PSEUDOOPERATION F0D74270
MZE 4$READ1,,5$LSTOP LIST F0D74280
BCD 1LLS000 LONG LEFT SHIFT F0D74290
OCT +076311160000 LLS F0D74300
BCD 1LMTM00 LEAVE MULTIPLE TAG MODE $F0D74301
OCT +076000120016 LMTM $F0D74302
BCD 1LNT000 LEFT HALF INDICATORS ON TEST F0D74310
OCT -005611120001 LNT F0D74320
BCD 1LOC000 STORAGE ALLOCATING PSEUDOOPERATION F0D74330
PZE 4$LOCOP,,5$LOCOP LOC F0D74340
BCD 1LRS000 LONG RIGHT SHIFT F0D74350
OCT +076511160000 LRS F0D74360
BCD 1LSNM00 LEAVE STORAGE NULLIFICATION MODE F0D74370
OCT -076000120010 LSNM F0D74380
BCD 1LTM000 LEAVE TRAPPING MODE F0D74390
OCT -076000160007 LTM F0D74400
BCD 1LXA000 LOAD INDEX FROM ADDRESS F0D74410
OCT +053415160000 LXA F0D74420
BCD 1LXD000 LOAD INDEX FROM DECREMENT F0D74430
OCT -053415160000 LXD F0D74440
BCD 1MAC000 MACRO EXPANSION PSEUDOOPERATION F0D74450
PZE 4$MACOP,,5$BES01+3 MAC $F0D74460
BCD 1MACRO0 MACRO DEFINITION PSEUDOOPERATION F0D74470
MZE 4$MCROP,,5$UNLOP+1 MACRO F0D74480
BCD 1MAX000 SYMBOL DEFINING PSEUDOOPERATION F0D74490
PZE 4$MAXOP,,5$MAXOP MAX F0D74500
BCD 1MIN000 SYMBOL DEFINING PSEUDOOPERATION F0D74510
PZE 4$MINOP,,5$MAXOP MIN F0D74520
BCD 1MON000 MINUS ONE (PREFIX) F0D74530
OCT -100001160000 MON F0D74540
BCD 1MOP000 MACRO DEFINITION PSEUDOOPERATION F0D74550
MZE 4$MOPOP,,5$UNLOP+1 MOP F0D74560
BCD 1MPR000 MULTIPLY AND ROUND F0D74570
OCT -020071160000 MPR F0D74580
BCD 1MPY000 MULTIPLY F0D74590
OCT +020071160000 MPY F0D74600
BCD 1MSE000 MINUS SENSE F0D74610
OCT -076011160000 MSE F0D74620
BCD 1MTH000 MINUS THREE (PREFIX) F0D74630
OCT -300001160000 MTH F0D74640
BCD 1MTW000 MINUS TWO (PREFIX) F0D74650
OCT -200001160000 MTW F0D74660
BCD 1MZE000 MINUS ZERO (PREFIX) F0D74670
OCT -000001160000 MZE F0D74680
BCD 1NOCRS0 MACRO COMPILER INFORMATION PSEUDOOPERATIONF0D74690
MZE 4$NOCOP,,5$TTL03+1 NOCRS F0D74700
BCD 1NOP000 NO OPERATION F0D74710
OCT +076101160000 NOP F0D74720
BCD 1NTR000 FORTRAN CODE FOR TXI F0D74730
OCT +100011160000 NTR F0D74740
BCD 1NULL00 LIST CONTROL PSEUDOOPERATION F0D74750
MZE 4$READ1,,5$UNLOP+1 NULL F0D74760
BCD 1NUMBER UPDATE INFORMATION PSEUDOOPERATION F0D74770
MON 4$NUMOP,,5$TTL03+1 NUMBER F0D74780
BCD 1NZT000 STORAGE NON-ZERO TEST F0D74790
OCT -052071120000 NZT F0D74800
BCD 1OAI000 OR ACCUMULATOR TO INDICATORS F0D74810
OCT +004301120000 OAI F0D74820
BCD 1OCT000 DATA GENERATING PSEUDOOPERATION F0D74830
PZE 4$DECOP,,5$OCTOP OCT F0D74840
BCD 1OFT000 OFF TEST FOR INDICATORS F0D74850
OCT +044471120000 OFT F0D74860
BCD 1ONE000 ONE (PREFIX) F0D74870
OCT +100001160000 ONE F0D74880
BCD 1ONT000 ON TEST FOR INDICATORS F0D74890
OCT +044671120000 ONT F0D74900
BCD 1OPD000 OPCODE DEFINING PSEUDOOPERATION F0D74910
MZE 4$OPDOP,,5$OPDOP OPD F0D74920
BCD 1OPSYN0 OPCODE DEFINING PSEUDOOPERATION F0D74930
MZE 4$OPSOP,,5$OPDOP OPSYN F0D74940
BCD 1OPVFD0 OPCODE DEFINING PSEUDOOPERATION F0D74950
MZE 4$OPVOP,,5$OPDOP OPVFD F0D74960
BCD 1ORA000 OR TO ACCUMULATOR F0D74970
OCT -050171160000 ORA F0D74980
BCD 1ORG000 STORAGE ALLOCATING PSEUDOOPERATION F0D74990
PZE 4$ORGOP,,5$ORGOP ORG F0D75000
BCD 1ORGCRS MACRO COMPILER INFORMATION PSEUDOOPERATIONF0D75010
MZE 4$CRSOP,,5$TTL03+1 ORGCRS F0D75020
BCD 1ORS000 OR TO STORAGE F0D75030
OCT -060271160000 ORS F0D75040
BCD 1OSI000 OR STORAGE TO INDICATORS F0D75050
OCT +044271120000 OSI F0D75060
BCD 1PAC000 PLACE ADDRESS IN INDEX, COMPLEMENTED F0D75070
OCT +073705120000 PAC F0D75080
BCD 1PAI000 PLACE ADDRESS IN INDICATORS F0D75090
OCT +004401120000 PAI F0D75100
BCD 1PAX000 PLACE ADDRESS IN INDEX F0D75110
OCT +073405160000 PAX F0D75120
BCD 1PBT000 P BIT TEST F0D75130
OCT -076000160001 PBT F0D75140
BCD 1PCA000 PLACE COMPLIMENT OF INDEX IN ADDRESS $F0D75141
OCT +075605120000 PCA $F0D75142
BCD 1PCC000 LIST CONTROL PSEUDOOPERATION F0D75150
MZE 4$READ1,,5$PCCOP PCC F0D75160
BCD 1PCD000 PLACE COMPLEMENT OF INDEX IN DECREMENT $F0D75161
OCT -075605120000 PCD $F0D75162
BCD 1PDC000 PLACE DECREMENT IN INDEX, COMPLEMENTED F0D75170
OCT -073705120000 PDC F0D75180
BCD 1PDX000 PLACE DECREMENT IN INDEX F0D75190
OCT -073405160000 PDX F0D75200
BCD 1PIA000 PLACE INDICATORS IN ACCUMULATOR F0D75210
OCT -004601120000 PIA F0D75220
BCD 1PMC000 LIST CONTROL PSEUDOOPERATION F0D75230
MZE 4$READ1,,5$PMCOP PMC F0D75240
BCD 1PON000 PLUS ONE (PREFIX) F0D75250
OCT +100001160000 PON F0D75260
BCD 1PRINT0 LIST CONTROL PSEUDOOPERATION F0D75270
MON 4$PRTOP,,5$TTL03+1 PRINT F0D75280
BCD 1PSE000 PLUS SENSE F0D75290
OCT +076011160000 PSE F0D75300
BCD 1PSLA00 PRESENT SENSE LINES, CHANNEL A F0D75310
OCT +066471120000 PSLA F0D75320
BCD 1PSLB00 PRESENT SENSE LINES, CHANNEL B F0D75330
OCT -066471120000 PSLB F0D75340
BCD 1PSLC00 PRESENT SENSE LINES, CHANNEL C F0D75350
OCT +066571120000 PSLC F0D75360
BCD 1PSLD00 PRESENT SENSE LINES, CHANNEL D F0D75370
OCT -066571120000 PSLD F0D75380
BCD 1PSLE00 PRESENT SENSE LINES, CHANNEL E F0D75390
OCT +066671120000 PSLE F0D75400
BCD 1PSLF00 PRESENT SENSE LINES, CHANNEL F F0D75410
OCT -066671120000 PSLF F0D75420
BCD 1PSLG00 PRESENT SENSE LINES, CHANNEL G F0D75430
OCT +066771120000 PSLG F0D75440
BCD 1PSLH00 PRESENT SENSE LINES, CHANNEL H F0D75450
OCT -066771120000 PSLH F0D75460
BCD 1PTH000 PLUS THREE (PREFIX) F0D75470
OCT +300001160000 PTH F0D75480
BCD 1PTW000 PLUS TWO (PREFIX) F0D75490
OCT +200001160000 PTW F0D75500
BCD 1PXA000 PLACE INDEX IN ADDRESS F0D75510
OCT +075405120000 PXA F0D75520
BCD 1PXD000 PLACE INDEX IN DECREMENT F0D75530
OCT -075405160000 PXD F0D75540
BCD 1PZE000 PLUS ZERO (PREFIX) F0D75550
OCT +000001160000 PZE F0D75560
BCD 1RCD000 READ CARDS F0D75570
OCT +076200160321 RCD F0D75580
BCD 1RCDA00 READ CARDS, CHANNEL A F0D75590
OCT +076200121321 RCDA F0D75600
BCD 1RCDB00 READ CARDS, CHANNEL B F0D75610
OCT +076200122321 RCDB F0D75620
BCD 1RCDC00 READ CARDS, CHANNEL C F0D75630
OCT +076200123321 RCDC F0D75640
BCD 1RCDD00 READ CARDS, CHANNEL D F0D75650
OCT +076200124321 RCDD F0D75660
BCD 1RCDE00 READ CARDS, CHANNEL E F0D75670
OCT +076200125321 RCDE F0D75680
BCD 1RCDF00 READ CARDS, CHANNEL F F0D75690
OCT +076200126321 RCDF F0D75700
BCD 1RCDG00 READ CARDS, CHANNEL G F0D75710
OCT +076200127321 RCDG F0D75720
BCD 1RCDH00 READ CARDS, CHANNEL H F0D75730
OCT +076200130321 RCDH F0D75740
BCD 1RCHA00 RESET AND LOAD CHANNEL A F0D75750
OCT +054071120000 RCHA F0D75760
BCD 1RCHB00 RESET AND LOAD CHANNEL B F0D75770
OCT -054071120000 RCHB F0D75780
BCD 1RCHC00 RESET AND LOAD CHANNEL C F0D75790
OCT +054171120000 RCHC F0D75800
BCD 1RCHD00 RESET AND LOAD CHANNEL D F0D75810
OCT -054171120000 RCHD F0D75820
BCD 1RCHE00 RESET AND LOAD CHANNEL E F0D75830
OCT +054271120000 RCHE F0D75840
BCD 1RCHF00 RESET AND LOAD CHANNEL F F0D75850
OCT -054271120000 RCHF F0D75860
BCD 1RCHG00 RESET AND LOAD CHANNEL G F0D75870
OCT +054371120000 RCHG F0D75880
BCD 1RCHH00 RESET AND LOAD CHANNEL H F0D75890
OCT -054371120000 RCHH F0D75900
BCD 1RCT000 RESET CHANNEL TRAPS F0D75910
OCT +076000120014 RCT F0D75920
BCD 1RDC000 RESET DATA CHANNEL F0D75930
OCT +076010120352 RDC F0D75940
BCD 1RDCA00 RESET DATA CHANNEL A F0D75950
OCT +076000121352 RDCA F0D75960
BCD 1RDCB00 RESET DATA CHANNEL B F0D75970
OCT +076000122352 RDCB F0D75980
BCD 1RDCC00 RESET DATA CHANNEL C F0D75990
OCT +076000123352 RDCC F0D76000
BCD 1RDCD00 RESET DATA CHANNEL D F0D76010
OCT +076000124352 RDCD F0D76020
BCD 1RDCE00 RESET DATA CHANNEL E F0D76030
OCT +076000125352 RDCE F0D76040
BCD 1RDCF00 RESET DATA CHANNEL F F0D76050
OCT +076000126352 RDCF F0D76060
BCD 1RDCG00 RESET DATA CHANNEL G F0D76070
OCT +076000127352 RDCG F0D76080
BCD 1RDCH00 RESET DATA CHANNEL H F0D76090
OCT +076000130352 RDCH F0D76100
BCD 1RDR000 READ DRUM F0D76110
OCT +076210140300 RDR F0D76120
BCD 1RDS000 READ SELECT F0D76130
OCT +076211160000 RDS F0D76140
BCD 1REF000 LIST CONTROL PSEUDOOPERATION F0D76150
MZE 4$READ1,,5$REFOP REF F0D76160
BCD 1REM000 LIST CONTROL PSEUDOOPERATION F0D76170
MZE 4$READ1,,5$REMOP REM F0D76180
BCD 1REW000 REWIND TAPE F0D76190
OCT +077210160200 REW F0D76200
BCD 1REWA00 REWIND TAPE CHANNEL A F0D76210
OCT +077210121200 REWA F0D76220
BCD 1REWB00 REWIND TAPE CHANNEL B F0D76230
OCT +077210122200 REWB F0D76240
BCD 1REWC00 REWIND TAPE CHANNEL C F0D76250
OCT +077210123200 REWC F0D76260
BCD 1REWD00 REWIND TAPE CHANNEL D F0D76270
OCT +077210124200 REWD F0D76280
BCD 1REWE00 REWIND TAPE CHANNEL E F0D76290
OCT +077210125200 REWE F0D76300
BCD 1REWF00 REWIND TAPE CHANNEL F F0D76310
OCT +077210126200 REWF F0D76320
BCD 1REWG00 REWIND TAPE CHANNEL G F0D76330
OCT +077210127200 REWG F0D76340
BCD 1REWH00 REWIND TAPE CHANNEL H F0D76350
OCT +077210130200 REWH F0D76360
BCD 1REWIND UPDATE INFORMATION PSEUDOOPERATION F0D76370
MON 4$REWOP,,5$TTL03+1 REWIND F0D76380
BCD 1RFT000 RIGHT HALF INDICATORS OFF TEST F0D76390
OCT +005411120001 RFT F0D76400
BCD 1RIA000 RESET INDICATORS FROM ACCUMULATOR F0D76410
OCT -004201120000 RIA F0D76420
BCD 1RICA00 RESET CHANNEL A DISK F0D76430
OCT +076000121350 RICA DISK F0D76440
BCD 1RICB00 RESET CHANNEL B DISK F0D76450
OCT +076000122350 RICB DISK F0D76460
BCD 1RICC00 RESET CHANNEL C DISK F0D76470
OCT +076000123350 RICC DISK F0D76480
BCD 1RICD00 RESET CHANNEL D DISK F0D76490
OCT +076000124350 RICD DISK F0D76500
BCD 1RICE00 RESET CHANNEL E DISK F0D76510
OCT +076000125350 RICE DISK F0D76520
BCD 1RICF00 RESET CHANNEL F DISK F0D76530
OCT +076000126350 RICF DISK F0D76540
BCD 1RICG00 RESET CHANNEL G DISK F0D76550
OCT +076000127350 RICG DISK F0D76560
BCD 1RICH00 RESET CHANNEL H DISK F0D76570
OCT +076000130350 RICH DISK F0D76580
BCD 1RIL000 RESET INDICATORS OF LEFT HALF F0D76590
OCT -005711120001 RIL F0D76600
BCD 1RIR000 RESET INDICATORS OF RIGHT HALF F0D76610
OCT +005711120001 RIR F0D76620
BCD 1RIS000 RESET INDICATORS FROM STORAGE F0D76630
OCT +044571120000 RIS F0D76640
BCD 1RMT000 MACRO DEFINITION PSEUDOOPERATION F0D76650
MZE 4$RMTOP,,5$UNLOP+1 RMT F0D76660
BCD 1RND000 ROUND F0D76670
OCT +076000160010 RND F0D76680
BCD 1RNT000 RIGHT HALF INDICATORS ON TEST F0D76690
OCT +005611120001 RNT F0D76700
BCD 1RPR000 READ PRINTER F0D76710
OCT +076200160361 RPR F0D76720
BCD 1RPRA00 READ PRINTER, CHANNEL A F0D76730
OCT +076200121361 RPRA F0D76740
BCD 1RPRB00 READ PRINTER, CHANNEL B F0D76750
OCT +076200122361 RPRB F0D76760
BCD 1RPRC00 READ PRINTER, CHANNEL C F0D76770
OCT +076200123361 RPRC F0D76780
BCD 1RPRD00 READ PRINTER, CHANNEL D F0D76790
OCT +076200124361 RPRD F0D76800
BCD 1RPRE00 READ PRINTER, CHANNEL E F0D76810
OCT +076200125361 RPRE F0D76820
BCD 1RPRF00 READ PRINTER, CHANNEL F F0D76830
OCT +076200126361 RPRF F0D76840
BCD 1RPRG00 READ PRINTER, CHANNEL G F0D76850
OCT +076200127361 RPRG F0D76860
BCD 1RPRH00 READ PRINTER, CHANNEL H F0D76870
OCT +076200130361 RPRH F0D76880
BCD 1RQL000 ROTATE MQ LEFT F0D76890
OCT -077311160000 RQL F0D76900
BCD 1RSCA00 RESET AND START CHANNEL A DISK F0D76910
OCT +054071120000 RSCA DISK F0D76920
BCD 1RSCB00 RESET AND START CHANNEL B DISK F0D76930
OCT -054071120000 RSCB DISK F0D76940
BCD 1RSCC00 RESET AND START CHANNEL C DISK F0D76950
OCT +054171120000 RSCC DISK F0D76960
BCD 1RSCD00 RESET AND START CHANNEL D DISK F0D76970
OCT -054171120000 RSCD DISK F0D76980
BCD 1RSCE00 RESET AND START CHANNEL E DISK F0D76990
OCT +054271120000 RSCE DISK F0D77000
BCD 1RSCF00 RESET AND START CHANNEL F DISK F0D77010
OCT -054271120000 RSCF DISK F0D77020
BCD 1RSCG00 RESET AND START CHANNEL G DISK F0D77030
OCT +054371120000 RSCG DISK F0D77040
BCD 1RSCH00 RESET AND START CHANNEL H DISK F0D77050
OCT -054371120000 RSCH DISK F0D77060
BCD 1RTB000 READ TAPE BINARY F0D77070
OCT +076210160220 RTB F0D77080
BCD 1RTBA00 READ TAPE BINARY, CHANNEL A F0D77090
OCT +076210121220 RTBA F0D77100
BCD 1RTBB00 READ TAPE BINARY, CHANNEL B F0D77110
OCT +076210122220 RTBB F0D77120
BCD 1RTBC00 READ TAPE BINARY, CHANNEL C F0D77130
OCT +076210123220 RTBC F0D77140
BCD 1RTBD00 READ TAPE BINARY, CHANNEL D F0D77150
OCT +076210124220 RTBD F0D77160
BCD 1RTBE00 READ TAPE BINARY, CHANNEL E F0D77170
OCT +076210125220 RTBE F0D77180
BCD 1RTBF00 READ TAPE BINARY, CHANNEL F F0D77190
OCT +076210126220 RTBF F0D77200
BCD 1RTBG00 READ TAPE BINARY, CHANNEL G F0D77210
OCT +076210127220 RTBG F0D77220
BCD 1RTBH00 READ TAPE BINARY, CHANNEL H F0D77230
OCT +076210130220 RTBH F0D77240
BCD 1RTD000 READ TAPE DECIMAL F0D77250
OCT +076210160200 RTD F0D77260
BCD 1RTDA00 READ TAPE DECIMAL, CHANNEL A F0D77270
OCT +076210121200 RTDA F0D77280
BCD 1RTDB00 READ TAPE DECIMAL, CHANNEL B F0D77290
OCT +076210122200 RTDB F0D77300
BCD 1RTDC00 READ TAPE DECIMAL, CHANNEL C F0D77310
OCT +076210123200 RTDC F0D77320
BCD 1RTDD00 READ TAPE DECIMAL, CHANNEL D F0D77330
OCT +076210124200 RTDD F0D77340
BCD 1RTDE00 READ TAPE DECIMAL, CHANNEL E F0D77350
OCT +076210125200 RTDE F0D77360
BCD 1RTDF00 READ TAPE DECIMAL, CHANNEL F F0D77370
OCT +076210126200 RTDF F0D77380
BCD 1RTDG00 READ TAPE DECIMAL, CHANNEL G F0D77390
OCT +076210127200 RTDG F0D77400
BCD 1RTDH00 READ TAPE DECIMAL, CHANNEL H F0D77410
OCT +076210130200 RTDH F0D77420
BCD 1RTT000 REDUNDANCY TAPE TEST F0D77430
OCT -076000140012 RTT F0D77440
BCD 1RUN000 REWIND AND UNLOAD F0D77450
OCT -077210120200 RUN F0D77460
BCD 1RUNA00 REWIND AND UNLOAD, CHANNEL A F0D77470
OCT -077210121200 RUNA F0D77480
BCD 1RUNB00 REWIND AND UNLOAD, CHANNEL B F0D77490
OCT -077210122200 RUNB F0D77500
BCD 1RUNC00 REWIND AND UNLOAD, CHANNEL C F0D77510
OCT -077210123200 RUNC F0D77520
BCD 1RUND00 REWIND AND UNLOAD, CHANNEL D F0D77530
OCT -077210124200 RUND F0D77540
BCD 1RUNE00 REWIND AND UNLOAD, CHANNEL E F0D77550
OCT -077210125200 RUNE F0D77560
BCD 1RUNF00 REWIND AND UNLOAD, CHANNEL F F0D77570
OCT -077210126200 RUNF F0D77580
BCD 1RUNG00 REWIND AND UNLOAD, CHANNEL G F0D77590
OCT -077210127200 RUNG F0D77600
BCD 1RUNH00 REWIND AND UNLOAD, CHANNEL H F0D77610
OCT -077210130200 RUNH F0D77620
BCD 1***000 CONVENTION FOR OPCODE TO BE INITIALIZED F0D77630
OCT +000001160000 *** F0D77640
BCD 1 000 BLANKS F0D77650
OCT +000001160000 BLANKS F0D77660
BCD 1SAR000 STORE ASSEMBLY REGISTER DISK F0D77670
OCT 300011720004 SAR DISK F0D77680
BCD 1SBM000 SUBTRACT MAGNITUDE F0D77690
OCT -040071160000 SBM F0D77700
BCD 1SCA000 STORE COMPLEMENT OF INDEX IN ADDRESS $F0D77701
OCT +063615120000 SCA $F0D77702
BCD 1SCD000 STORE COMPLEMENT OF INDEX IN DECREMENT $F0D77703
OCT -063615120000 SCD $F0D77704
BCI 1,SCDA00 STORE CHANNEL DIAGNOSTIC,CHANNEL A $F0D77705
OCT +064471120000 SCDA $F0D77706
BCI 1,SCDB00 STORE CHANNEL DIAGNOSTIC,CHANNEL B $F0D77707
OCT -064471120000 SCDB $F0D77708
BCI 1,SCDC00 STORE CHANNEL DIAGNOSTIC,CHANNEL C $F0D77709
OCT +064571120000 SCDC $F0D7770A
BCI 1,SCDD00 STORE CHANNEL DIAGNOSTIC,CHANNEL D $F0D7770B
OCT -064571120000 SCDD $F0D7770C
BCI 1,SCDE00 STORE CHANNEL DIAGNOSTIC,CHANNEL E $F0D7770D
OCT +064671120000 SCDE $F0D7770E
BCI 1,SCDF00 STORE CHANNEL DIAGNOSTIC,CHANNEL F $F0D7770F
OCT -064671120000 SCDF $F0D7770G
BCI 1,SCDG00 STORE CHANNEL DIAGNOSTIC,CHANNEL G $F0D7770H
OCT +064771120000 SCDG $F0D7770I
BCI 1,SCDH00 STORE CHANNEL DIAGNOSTIC,CHANNEL H $F0D7770J
OCT -064771120000 SCDH $F0D7770K
BCD 1SCHA00 STORE CHANNEL A F0D77710
OCT +064071120000 SCHA F0D77720
BCD 1SCHB00 STORE CHANNEL B F0D77730
OCT -064071120000 SCHB F0D77740
BCD 1SCHC00 STORE CHANNEL C F0D77750
OCT +064171120000 SCHC F0D77760
BCD 1SCHD00 STORE CHANNEL D F0D77770
OCT -064171120000 SCHD F0D77780
BCD 1SCHE00 STORE CHANNEL E F0D77790
OCT +064271120000 SCHE F0D77800
BCD 1SCHF00 STORE CHANNEL F F0D77810
OCT -064271120000 SCHF F0D77820
BCD 1SCHG00 STORE CHANNEL G F0D77830
OCT +064371120000 SCHG F0D77840
BCD 1SCHH00 STORE CHANNEL H F0D77850
OCT -064371120000 SCHH F0D77860
BCD 1SDH000 SET DENSITY HIGH F0D77870
OCT +077610120220 SDH F0D77880
BCD 1SDHA00 SET DENSITY HIGH, CHANNEL A F0D77890
OCT +077610121220 SDHA F0D77900
BCD 1SDHB00 SET DENSITY HIGH, CHANNEL B F0D77910
OCT +077610122220 SDHB F0D77920
BCD 1SDHC00 SET DENSITY HIGH, CHANNEL C F0D77930
OCT +077610123220 SDHC F0D77940
BCD 1SDHD00 SET DENSITY HIGH, CHANNEL D F0D77950
OCT +077610124220 SDHD F0D77960
BCD 1SDHE00 SET DENSITY HIGH, CHANNEL E F0D77970
OCT +077610125220 SDHE F0D77980
BCD 1SDHF00 SET DENSITY HIGH, CHANNEL F F0D77990
OCT +077610126220 SDHF F0D78000
BCD 1SDHG00 SET DENSITY HIGH, CHANNEL G F0D78010
OCT +077610127220 SDHG F0D78020
BCD 1SDHH00 SET DENSITY HIGH, CHANNEL H F0D78030
OCT +077610130220 SDHH F0D78040
BCD 1SDL000 SET DENSITY LOW F0D78050
OCT +077610120200 SDL F0D78060
BCD 1SDLA00 SET DENSITY LOW, CHANNEL A F0D78070
OCT +077610121200 SDLA F0D78080
BCD 1SDLB00 SET DENSITY LOW, CHANNEL B F0D78090
OCT +077610122200 SDLB F0D78100
BCD 1SDLC00 SET DENSITY LOW, CHANNEL C F0D78110
OCT +077610123200 SDLC F0D78120
BCD 1SDLD00 SET DENSITY LOW, CHANNEL D F0D78130
OCT +077610124200 SDLD F0D78140
BCD 1SDLE00 SET DENSITY LOW, CHANNEL E F0D78150
OCT +077610125200 SDLE F0D78160
BCD 1SDLF00 SET DENSITY LOW, CHANNEL F F0D78170
OCT +077610126200 SDLF F0D78180
BCD 1SDLG00 SET DENSITY LOW, CHANNEL G F0D78190
OCT +077610127200 SDLG F0D78200
BCD 1SDLH00 SET DENSITY LOW, CHANNEL H F0D78210
OCT +077610130200 SDLH F0D78220
BCD 1SDN000 SET DENSITY F0D78230
OCT +077610120200 SDN F0D78240
BCD 1SET000 SYMBOL DEFINING PSEUDOOPERATION F0D78250
PZE 4$SETOP,,5$SETOP SET F0D78260
BCD 1SEVEN0 SEVEN (PREFIX) F0D78270
OCT +700001120000 SEVEN F0D78280
BCD 1SIL000 SET INDICATORS OF LEFT HALF F0D78290
OCT -005511120001 SIL F0D78300
BCD 1SIR000 SET INDICATORS OF RIGHT HALF F0D78310
OCT +005511120001 SIR F0D78320
BCD 1SIX000 SIX (PREFIX) F0D78330
OCT +600001160000 SIX F0D78340
BCD 1SKP000 LIST CONTROL PSEUDOOPERATION F0D78350
MZE 4$READ1,,5$EJCOP SKP F0D78360
BCD 1SKPFIL UPDATE INFORMATION PSEUDOOPERATION F0D78370
MON 4$SKFOP,,5$TTL03+1 SKPFIL F0D78380
BCD 1SLF000 SENSE LIGHTS OFF F0D78390
OCT +076000160140 SLF F0D78400
BCD 1SLN000 SENSE LIGHTS ON F0D78410
OCT +076010160140 SLN F0D78420
BCD 1SLQ000 STORE LEFT HALF MQ F0D78430
OCT -062071160000 SLQ F0D78440
BCD 1SLT000 SENSE LIGHT TEST F0D78450
OCT -076010160140 SLT F0D78460
BCD 1SLW000 STORE LOGICAL WORD F0D78470
OCT +060271160000 SLW F0D78480
BCD 1SMS000 SET MODE AND SELECT DISK F0D78490
OCT 700011520004 SMS DISK$F0D78500
BCD 1SNS000 SENSE DISK F0D78510
OCT 240001320004 SNS DISK$F0D78520
BCD 1SPACE0 LIST CONTROL PSEUDOOPERATION F0D78530
MZE 4$READ1,,5$SPCOP SPACE F0D78540
BCD 1SPC000 LIST CONTROL PSEUDOOPERATION F0D78550
MZE 4$READ1,,5$SPCOP SPC F0D78560
BCD 1SPR000 SENSE PRINTER F0D78570
OCT +076010160360 SPR F0D78580
BCD 1SPRA00 SENSE PRINTER, CHANNEL A F0D78590
OCT +076010121360 SPRA F0D78600
BCD 1SPRB00 SENSE PRINTER, CHANNEL B F0D78610
OCT +076010122360 SPRB F0D78620
BCD 1SPRC00 SENSE PRINTER, CHANNEL C F0D78630
OCT +076010123360 SPRC F0D78640
BCD 1SPRD00 SENSE PRINTER, CHANNEL D F0D78650
OCT +076010124360 SPRD F0D78660
BCD 1SPRE00 SENSE PRINTER, CHANNEL E F0D78670
OCT +076010125360 SPRE F0D78680
BCD 1SPRF00 SENSE PRINTER, CHANNEL F F0D78690
OCT +076010126360 SPRF F0D78700
BCD 1SPRG00 SENSE PRINTER, CHANNEL G F0D78710
OCT +076010127360 SPRG F0D78720
BCD 1SPRH00 SENSE PRINTER, CHANNEL H F0D78730
OCT +076010130360 SPRH F0D78740
BCD 1SPT000 SENSE PRINTER TEST $F0D78750
OCT +076000160360 SPT $F0D78760
BCD 1SPTA00 SENSE PRINTER TEST, CHANNEL A $F0D78770
OCT +076000121360 SPTA $F0D78780
BCD 1SPTB00 SENSE PRINTER TEST, CHANNEL B $F0D78790
OCT +076000122360 SPTB $F0D78800
BCD 1SPTC00 SENSE PRINTER TEST, CHANNEL C $F0D78810
OCT +076000123360 SPTC $F0D78820
BCD 1SPTD00 SENSE PRINTER TEST, CHANNEL D $F0D78830
OCT +076000124360 SPTD $F0D78840
BCD 1SPTE00 SENSE PRINTER TEST, CHANNEL E $F0D78850
OCT +076000125360 SPTE $F0D78860
BCD 1SPTF00 SENSE PRINTER TEST, CHANNEL F $F0D78870
OCT +076000126360 SPTF $F0D78880
BCD 1SPTG00 SENSE PRINTER TEST, CHANNEL G $F0D78890
OCT +076000127360 SPTG $F0D78900
BCD 1SPTH00 SENSE PRINTER TEST, CHANNEL H $F0D78910
OCT +076000130360 SPTH $F0D78920
BCD 1SPU000 SENSE PUNCH F0D78930
OCT +076010160340 SPU F0D78940
BCD 1SPUA00 SENSE PUNCH, CHANNEL A F0D78950
OCT +076010121340 SPUA F0D78960
BCD 1SPUB00 SENSE PUNCH, CHANNEL B F0D78970
OCT +076010122340 SPUB F0D78980
BCD 1SPUC00 SENSE PUNCH, CHANNEL C F0D78990
OCT +076010123340 SPUC F0D79000
BCD 1SPUD00 SENSE PUNCH, CHANNEL D F0D79010
OCT +076010124340 SPUD F0D79020
BCD 1SPUE00 SENSE PUNCH, CHANNEL E F0D79030
OCT +076010125340 SPUE F0D79040
BCD 1SPUF00 SENSE PUNCH, CHANNEL F F0D79050
OCT +076010126340 SPUF F0D79060
BCD 1SPUG00 SENSE PUNCH, CHANNEL G F0D79070
OCT +076010127340 SPUG F0D79080
BCD 1SPUH00 SENSE PUNCH, CHANNEL H F0D79090
OCT +076010130340 SPUH F0D79100
BCD 1SSLA00 STORE SENSE LINES, CHANNEL A F0D79110
OCT +066071120000 SSLA F0D79120
BCD 1SSLB00 STORE SENSE LINES, CHANNEL B F0D79130
OCT -066071120000 SSLB F0D79140
BCD 1SSLC00 STORE SENSE LINES, CHANNEL C F0D79150
OCT +066171120000 SSLC F0D79160
BCD 1SSLD00 STORE SENSE LINES, CHANNEL D F0D79170
OCT -066171120000 SSLD F0D79180
BCD 1SSLE00 STORE SENSE LINES, CHANNEL E F0D79190
OCT +066271120000 SSLE F0D79200
BCD 1SSLF00 STORE SENSE LINES, CHANNEL F F0D79210
OCT -066271120000 SSLF F0D79220
BCD 1SSLG00 STORE SENSE LINES, CHANNEL G F0D79230
OCT +066371120000 SSLG F0D79240
BCD 1SSLH00 STORE SENSE LINES, CHANNEL H F0D79250
OCT -066371120000 SSLH F0D79260
BCD 1SSM000 SET SIGN MINUS F0D79270
OCT -076000160003 SSM F0D79280
BCD 1SSP000 SET SIGN PLUS F0D79290
OCT +076000160003 SSP F0D79300
BCD 1SST000 ASSEMBLER INFORMATION PSEUDOOPERATION F0D79310
MZE 4$SSTOP,,5$UNLOP+1 SST F0D79320
BCD 1STA000 STORE ADDRESS F0D79330
OCT +062171160000 STA F0D79340
BCD 1STCA00 START CHANNEL A DISK F0D79350
OCT +054401120000 STCA DISK F0D79360
BCD 1STCB00 START CHANNEL B DISK F0D79370
OCT -054401120000 STCB DISK F0D79380
BCD 1STCC00 START CHANNEL C DISK F0D79390
OCT +054501120000 STCC DISK F0D79400
BCD 1STCD00 START CHANNEL D DISK F0D79410
OCT -054501120000 STCD DISK F0D79420
BCD 1STCE00 START CHANNEL E DISK F0D79430
OCT +054601120000 STCE DISK F0D79440
BCD 1STCF00 START CHANNEL F DISK F0D79450
OCT -054601120000 STCF DISK F0D79460
BCD 1STCG00 START CHANNEL G DISK F0D79470
OCT +054701120000 STCG DISK F0D79480
BCD 1STCH00 START CHANNEL H DISK F0D79490
OCT -054701120000 STCH DISK F0D79500
BCD 1STD000 STORE DECREMENT F0D79510
OCT +062271160000 STD F0D79520
BCD 1STI000 STORE INDICATORS F0D79530
OCT +060471120000 STI F0D79540
BCD 1STL000 STORE INSTRUCTION LOCATION COUNTER F0D79550
OCT -062571120000 STL F0D79560
BCD 1STO000 STORE F0D79570
OCT +060171160000 STO F0D79580
BCD 1STP000 STORE PREFIX F0D79590
OCT +063071160000 STP F0D79600
BCD 1STQ000 STORE MQ F0D79610
OCT -060071160000 STQ F0D79620
BCD 1STR000 STORE LOCATION AND TRAP F0D79630
OCT -100001120000 STR F0D79640
BCD 1STT000 STORE TAG F0D79650
OCT +062571120000 STT F0D79660
BCD 1STZ000 STORE ZERO F0D79670
OCT +060071160000 STZ F0D79680
BCD 1SUB000 SUBTRACT F0D79690
OCT +040271160000 SUB F0D79700
BCD 1SVN000 SEVEN (PREFIX) F0D79710
OCT +700001160000 SVN F0D79720
BCD 1SWT000 SENSE SWITCH TEST F0D79730
OCT +076010160160 SWT F0D79740
BCD 1SXA000 STORE INDEX IN ADDRESS F0D79750
OCT +063415120000 SXA F0D79760
BCD 1SXD000 STORE INDEX IN DECREMENT F0D79770
OCT -063415160000 SXD F0D79780
BCD 1SYN000 SYMBOL DEFINING PSEUDOOPERATION F0D79790
PZE 4$SYNOP,,5$MAXOP SYN F0D79800
BCD 1TAPENO SYMBOL DEFINING PSEUDOOPERATION F0D79810
PZE 4$TAPOP,,5$BOLOP+2 TAPENO F0D79820
BCD 1TCD000 CARD FORMAT PSEUDOOPERATION F0D79830
MZE 4$TCDOP,,5$TCDOP TCD F0D79840
BCD 1TCH000 I/O TRANSFER IN CHANNEL F0D79850
OCT 100011520000 TCH F0D79860
BCD 1TCM000 TRANSFER ON CONDITION MET DISK F0D79870
OCT 500013720006 TCM DISK F0D79880
BCD 1TCNA00 TRANSFER ON CHANNEL A NOT IN OPERATION F0D79890
OCT -006071120000 TCNA F0D79900
BCD 1TCNB00 TRANSFER ON CHANNEL B NOT IN OPERATION F0D79910
OCT -006171120000 TCNB F0D79920
BCD 1TCNC00 TRANSFER ON CHANNEL C NOT IN OPERATION F0D79930
OCT -006271120000 TCNC F0D79940
BCD 1TCND00 TRANSFER ON CHANNEL D NOT IN OPERATION F0D79950
OCT -006371120000 TCND F0D79960
BCD 1TCNE00 TRANSFER ON CHANNEL E NOT IN OPERATION F0D79970
OCT -006471120000 TCNE F0D79980
BCD 1TCNF00 TRANSFER ON CHANNEL F NOT IN OPERATION F0D79990
OCT -006571120000 TCNF F0D80000
BCD 1TCNG00 TRANSFER ON CHANNEL G NOT IN OPERATION F0D80010
OCT -006671120000 TCNG F0D80020
BCD 1TCNH00 TRANSFER ON CHANNEL H NOT IN OPERATION F0D80030
OCT -006771120000 TCNH F0D80040
BCD 1TCOA00 TRANSFER ON CHANNEL A IN OPERATION F0D80050
OCT +006071120000 TCOA F0D80060
BCD 1TCOB00 TRANSFER ON CHANNEL B IN OPERATION F0D80070
OCT +006171120000 TCOB F0D80080
BCD 1TCOC00 TRANSFER ON CHANNEL C IN OPERATION F0D80090
OCT +006271120000 TCOC F0D80100
BCD 1TCOD00 TRANSFER ON CHANNEL D IN OPERATION F0D80110
OCT +006371120000 TCOD F0D80120
BCD 1TCOE00 TRANSFER ON CHANNEL E IN OPERATION F0D80130
OCT +006471120000 TCOE F0D80140
BCD 1TCOF00 TRANSFER ON CHANNEL F IN OPERATION F0D80150
OCT +006571120000 TCOF F0D80160
BCD 1TCOG00 TRANSFER ON CHANNEL G IN OPERATION F0D80170
OCT +006671120000 TCOG F0D80180
BCD 1TCOH00 TRANSFER ON CHANNEL H IN OPERATION F0D80190
OCT +006771120000 TCOH F0D80200
BCD 1TDC000 TRANSFER AND DECREMENT COUNTER DISK F0D80210
OCT 640011520004 TDC DISK F0D80220
BCD 1TEFA00 TRANSFER ON END OF FILE, CHANNEL A F0D80230
OCT +003071120000 TEFA F0D80240
BCD 1TEFB00 TRANSFER ON END OF FILE, CHANNEL B F0D80250
OCT -003071120000 TEFB F0D80260
BCD 1TEFC00 TRANSFER ON END OF FILE, CHANNEL C F0D80270
OCT +003171120000 TEFC F0D80280
BCD 1TEFD00 TRANSFER ON END OF FILE, CHANNEL D F0D80290
OCT -003171120000 TEFD F0D80300
BCD 1TEFE00 TRANSFER ON END OF FILE, CHANNEL E F0D80310
OCT +003271120000 TEFE F0D80320
BCD 1TEFF00 TRANSFER ON END OF FILE, CHANNEL F F0D80330
OCT -003271120000 TEFF F0D80340
BCD 1TEFG00 TRANSFER ON END OF FILE, CHANNEL G F0D80350
OCT +003371120000 TEFG F0D80360
BCD 1TEFH00 TRANSFER ON END OF FILE, CHANNEL H F0D80370
OCT -003371120000 TEFH F0D80380
BCD 1THREE0 THREE (PREFIX) F0D80390
OCT +300001120000 THREE F0D80400
BCD 1TIF000 TRANSFER IF INDICATORS OFF F0D80410
OCT +004671120000 TIF F0D80420
BCD 1TIO000 TRANSFER IF INDICATORS ON F0D80430
OCT +004271120000 TIO F0D80440
BCD 1TITLE0 LIST CONTROL PSEUDOOPERATION F0D80450
MZE 4$READ1,,5$TITOP TITLE F0D80460
BCD 1TIX000 TRANSFER ON INDEX F0D80470
OCT +200017160000 TIX F0D80480
BCD 1TLQ000 TRANSFER ON LOW MQ F0D80490
OCT +004071160000 TLQ F0D80500
BCD 1TMI000 TRANSFER ON MINUS F0D80510
OCT -012071160000 TMI F0D80520
BCD 1TNO000 TRANSFER ON NO OVERFLOW F0D80530
OCT -014071160000 TNO F0D80540
BCD 1TNX000 TRANSFER ON NO INDEX F0D80550
OCT -200017160000 TNX F0D80560
BCD 1TNZ000 TRANSFER ON NO ZERO F0D80570
OCT -010071160000 TNZ F0D80580
BCD 1TOV000 TRANSFER ON OVERFLOW F0D80590
OCT +014071160000 TOV F0D80600
BCD 1TPL000 TRANSFER ON PLUS F0D80610
OCT +012071160000 TPL F0D80620
BCD 1TQO000 TRANSFER ON MQ OVERFLOW F0D80630
OCT +016171160000 TQO F0D80640
BCD 1TQP000 TRANSFER ON MQ PLUS F0D80650
OCT +016271160000 TQP F0D80660
BCD 1TRA000 TRANSFER F0D80670
OCT +002071160000 TRA F0D80680
BCD 1TRCA00 TRANSFER ON REDUNDANCY CHECK, CHANNEL A F0D80690
OCT +002271120000 TRCA F0D80700
BCD 1TRCB00 TRANSFER ON REDUNDANCY CHECK, CHANNEL B F0D80710
OCT -002271120000 TRCB F0D80720
BCD 1TRCC00 TRANSFER ON REDUNDANCY CHECK, CHANNEL C F0D80730
OCT +002471120000 TRCC F0D80740
BCD 1TRCD00 TRANSFER ON REDUNDANCY CHECK, CHANNEL D F0D80750
OCT -002471120000 TRCD F0D80760
BCD 1TRCE00 TRANSFER ON REDUNDANCY CHECK, CHANNEL E F0D80770
OCT +002671120000 TRCE F0D80780
BCD 1TRCF00 TRANSFER ON REDUNDANCY CHECK, CHANNEL F F0D80790
OCT -002671120000 TRCF F0D80800
BCD 1TRCG00 TRANSFER ON REDUNDANCY CHECK, CHANNEL G F0D80810
OCT +002771120000 TRCG F0D80820
BCD 1TRCH00 TRANSFER ON REDUNDANCY CHECK, CHANNEL H F0D80830
OCT -002771120000 TRCH F0D80840
BCD 1TRS000 TEST READY STATUS F0D80850
OCT -077510120000 TRS F0D80860
BCD 1TSM000 TEST SIGNIFICANCE MODE F0D80870
OCT -076100120141 TSM F0D80880
BCD 1TSX000 TRANSFER AND SET INDEX F0D80890
OCT +007415160000 TSX F0D80900
BCD 1TTL000 LIST CONTROL PSEUDOOPERATION F0D80910
MZE 4$READ1,,5$TTLOP TTL F0D80920
BCD 1TTR000 TRAP TRANSFER F0D80930
OCT +002171160000 TTR F0D80940
BCD 1TWO000 TWO (PREFIX) F0D80950
OCT +200001160000 TWO F0D80960
BCD 1TWT000 TRAP AND WAIT DISK F0D80970
OCT 340011520004 TWT DISK F0D80980
BCD 1TXH000 TRANSFER ON INDEX HIGH F0D80990
OCT +300017160000 TXH F0D81000
BCD 1TXI000 TRANSFER WITH INDEX INCREMENTED F0D81010
OCT +100017160000 TXI F0D81020
BCD 1TXL000 TRANSFER ON INDEX LOW F0D81030
OCT -300017160000 TXL F0D81040
BCD 1TZE000 TRANSFER ON ZERO F0D81050
OCT +010071160000 TZE F0D81060
BCD 1UAM000 UNNORMALIZED ADD MAGNITUDE F0D81070
OCT -030471120000 UAM F0D81080
BCD 1UFA000 UNNORMALIZED FLOATING ADD F0D81090
OCT -030071160000 UFA F0D81100
BCD 1UFM000 UNNORMALIZED FLOATING MULTIPLY F0D81110
OCT -026071160000 UFM F0D81120
BCD 1UFS000 UNNORMALIZED FLOATING SUBTRACT F0D81130
OCT -030271160000 UFS F0D81140
BCD 1UMC000 UPDATE INFORMATION PSEUDOOPERATION F0D81150
MON 4$UMCOP,,5$TTL03+1 UMC F0D81160
BCD 1UNLIST LIST CONTROL PSEUDOOPERATION F0D81170
MZE 4$READ1,,5$UNLOP UNLIST F0D81180
BCD 1UNLOAD UPDATE INFORMATION PSEUDOOPERATION F0D81190
MON 4$ULDOP,,5$TTL03+1 UNLOAD F0D81200
BCD 1UPDATE UPDATE INFORMATION PSEUDOOPERATION F0D81210
MON 4$UPDOP,,5$TTL03+1 UPDATE F0D81220
BCD 1USM000 UNNORMALIZED FLOATING SUBTRACT MAGNITUDE F0D81230
OCT -030671120000 USM F0D81240
BCD 1VDH000 VARIABLE LENGTH DIVIDE OR HALT F0D81250
OCT +022413120002 VDH F0D81260
BCD 1VDP000 VARIABLE LENGTH DIVIDE OR PROCEED F0D81270
OCT +022513120002 VDP F0D81280
BCD 1VFD000 DATA GENERATING PSEUDOOPERATION F0D81290
PZE 4$VFDOP,,5$VFDOP VFD F0D81300
BCD 1VLM000 VARIABLE LENGTH MULTIPLY F0D81310
OCT +020413120002 VLM F0D81320
BCD 1WDR000 WRITE DRUM F0D81330
OCT +076610140300 WDR F0D81340
BCD 1WEF000 WRITE END OF FILE F0D81350
OCT +077010160200 WEF F0D81360
BCD 1WEFA00 WRITE END OF FILE, CHANNEL A F0D81370
OCT +077010121200 WEFA F0D81380
BCD 1WEFB00 WRITE END OF FILE, CHANNEL B F0D81390
OCT +077010122200 WEFB F0D81400
BCD 1WEFC00 WRITE END OF FILE, CHANNEL C F0D81410
OCT +077010123200 WEFC F0D81420
BCD 1WEFD00 WRITE END OF FILE, CHANNEL D F0D81430
OCT +077010124200 WEFD F0D81440
BCD 1WEFE00 WRITE END OF FILE, CHANNEL E F0D81450
OCT +077010125200 WEFE F0D81460
BCD 1WEFF00 WRITE END OF FILE, CHANNEL F F0D81470
OCT +077010126200 WEFF F0D81480
BCD 1WEFG00 WRITE END OF FILE, CHANNEL G F0D81490
OCT +077010127200 WEFG F0D81500
BCD 1WEFH00 WRITE END OF FILE, CHANNEL H F0D81510
OCT +077010130200 WEFH F0D81520
BCD 1WPB000 WRITE PRINTER BINARY F0D81530
OCT +076600160362 WPB F0D81540
BCD 1WPBA00 WRITE PRINTER BINARY, CHANNEL A F0D81550
OCT +076600121362 WPBA F0D81560
BCD 1WPBB00 WRITE PRINTER BINARY, CHANNEL B F0D81570
OCT +076600122362 WPBB F0D81580
BCD 1WPBC00 WRITE PRINTER BINARY, CHANNEL C F0D81590
OCT +076600123362 WPBC F0D81600
BCD 1WPBD00 WRITE PRINTER BINARY, CHANNEL D F0D81610
OCT +076600124362 WPBD F0D81620
BCD 1WPBE00 WRITE PRINTER BINARY, CHANNEL E F0D81630
OCT +076600125362 WPBE F0D81640
BCD 1WPBF00 WRITE PRINTER BINARY, CHANNEL F F0D81650
OCT +076600126362 WPBF F0D81660
BCD 1WPBG00 WRITE PRINTER BINARY, CHANNEL G F0D81670
OCT +076600127362 WPBG F0D81680
BCD 1WPBH00 WRITE PRINTER BINARY, CHANNEL H F0D81690
OCT +076600130362 WPBH F0D81700
BCD 1WPD000 WRITE PRINTER DECIMAL F0D81710
OCT +076600160361 WPD F0D81720
BCD 1WPDA00 WRITE PRINTER DECIMAL, CHANNEL A F0D81730
OCT +076600121361 WPDA F0D81740
BCD 1WPDB00 WRITE PRINTER DECIMAL, CHANNEL B F0D81750
OCT +076600122361 WPDB F0D81760
BCD 1WPDC00 WRITE PRINTER DECIMAL, CHANNEL C F0D81770
OCT +076600123361 WPDC F0D81780
BCD 1WPDD00 WRITE PRINTER DECIMAL, CHANNEL D F0D81790
OCT +076600124361 WPDD F0D81800
BCD 1WPDE00 WRITE PRINTER DECIMAL, CHANNEL E F0D81810
OCT +076600125361 WPDE F0D81820
BCD 1WPDF00 WRITE PRINTER DECIMAL, CHANNEL F F0D81830
OCT +076600126361 WPDF F0D81840
BCD 1WPDG00 WRITE PRINTER DECIMAL, CHANNEL G F0D81850
OCT +076600127361 WPDG F0D81860
BCD 1WPDH00 WRITE PRINTER DECIMAL, CHANNEL H F0D81870
OCT +076600130361 WPDH F0D81880
BCD 1WPR000 WRITE PRINTER F0D81890
OCT +076600160361 WPR F0D81900
BCD 1WPRA00 WRITE PRINTER, CHANNEL A F0D81910
OCT +076600121361 WPRA F0D81920
BCD 1WPRB00 WRITE PRINTER, CHANNEL B F0D81930
OCT +076600122361 WPRB F0D81940
BCD 1WPRC00 WRITE PRINTER, CHANNEL C F0D81950
OCT +076600123361 WPRC F0D81960
BCD 1WPRD00 WRITE PRINTER, CHANNEL D F0D81970
OCT +076600124361 WPRD F0D81980
BCD 1WPRE00 WRITE PRINTER, CHANNEL E F0D81990
OCT +076600125361 WPRE F0D82000
BCD 1WPRF00 WRITE PRINTER, CHANNEL F F0D82010
OCT +076600126361 WPRF F0D82020
BCD 1WPRG00 WRITE PRINTER, CHANNEL G F0D82030
OCT +076600127361 WPRG F0D82040
BCD 1WPRH00 WRITE PRINTER, CHANNEL H F0D82050
OCT +076600130361 WPRH F0D82060
BCD 1WPU000 WRITE PUNCH F0D82070
OCT +076600160341 WPU F0D82080
BCD 1WPUA00 WRITE PUNCH, CHANNEL A F0D82090
OCT +076600121341 WPUA F0D82100
BCD 1WPUB00 WRITE PUNCH, CHANNEL B F0D82110
OCT +076600122341 WPUB F0D82120
BCD 1WPUC00 WRITE PUNCH, CHANNEL C F0D82130
OCT +076600123341 WPUC F0D82140
BCD 1WPUD00 WRITE PUNCH, CHANNEL D F0D82150
OCT +076600124341 WPUD F0D82160
BCD 1WPUE00 WRITE PUNCH, CHANNEL E F0D82170
OCT +076600125341 WPUE F0D82180
BCD 1WPUF00 WRITE PUNCH, CHANNEL F F0D82190
OCT +076600126341 WPUF F0D82200
BCD 1WPUG00 WRITE PUNCH, CHANNEL G F0D82210
OCT +076600127341 WPUG F0D82220
BCD 1WPUH00 WRITE PUNCH, CHANNEL H F0D82230
OCT +076600130341 WPUH F0D82240
BCD 1WRS000 WRITE SELECT F0D82250
OCT +076611160000 WRS F0D82260
BCD 1WTB000 WRITE TAPE BINARY F0D82270
OCT +076610160220 WTB F0D82280
BCD 1WTBA00 WRITE TAPE BINARY, CHANNEL A F0D82290
OCT +076610121220 WTBA F0D82300
BCD 1WTBB00 WRITE TAPE BINARY, CHANNEL B F0D82310
OCT +076610122220 WTBB F0D82320
BCD 1WTBC00 WRITE TAPE BINARY, CHANNEL C F0D82330
OCT +076610123220 WTBC F0D82340
BCD 1WTBD00 WRITE TAPE BINARY, CHANNEL D F0D82350
OCT +076610124220 WTBD F0D82360
BCD 1WTBE00 WRITE TAPE BINARY, CHANNEL E F0D82370
OCT +076610125220 WTBE F0D82380
BCD 1WTBF00 WRITE TAPE BINARY, CHANNEL F F0D82390
OCT +076610126220 WTBF F0D82400
BCD 1WTBG00 WRITE TAPE BINARY, CHANNEL G F0D82410
OCT +076610127220 WTBG F0D82420
BCD 1WTBH00 WRITE TAPE BINARY, CHANNEL H F0D82430
OCT +076610130220 WTBH F0D82440
BCD 1WTD000 WRITE TAPE DECIMAL F0D82450
OCT +076610160200 WTD F0D82460
BCD 1WTDA00 WRITE TAPE DECIMAL, CHANNEL A F0D82470
OCT +076610121200 WTDA F0D82480
BCD 1WTDB00 WRITE TAPE DECIMAL, CHANNEL B F0D82490
OCT +076610122200 WTDB F0D82500
BCD 1WTDC00 WRITE TAPE DECIMAL, CHANNEL C F0D82510
OCT +076610123200 WTDC F0D82520
BCD 1WTDD00 WRITE TAPE DECIMAL, CHANNEL D F0D82530
OCT +076610124200 WTDD F0D82540
BCD 1WTDE00 WRITE TAPE DECIMAL, CHANNEL E F0D82550
OCT +076610125200 WTDE F0D82560
BCD 1WTDF00 WRITE TAPE DECIMAL, CHANNEL F F0D82570
OCT +076610126200 WTDF F0D82580
BCD 1WTDG00 WRITE TAPE DECIMAL, CHANNEL G F0D82590
OCT +076610127200 WTDG F0D82600
BCD 1WTDH00 WRITE TAPE DECIMAL, CHANNEL H F0D82610
OCT +076610130200 WTDH F0D82620
BCD 1WTR000 WAIT AND TRANSFER DISK F0D82630
OCT 000011520000 WTR DISK F0D82640
BCD 1WTS000 WRITE TAPE SIMULTANEOUSLY (704) F0D82650
OCT +076610140320 WTS F0D82660
BCD 1WTV000 WRITE CATHODE RAY TUBE F0D82670
OCT +076600160030 WTV F0D82680
BCD 1XCA000 EXCHANGE ACCUMULATOR AND MQ F0D82690
OCT +013101120000 XCA F0D82700
BCD 1XCL000 EXCHANGE LOGICAL ACCUMULATOR AND MQ F0D82710
OCT -013001120000 XCL F0D82720
BCD 1XEC000 EXECUTE F0D82730
OCT +052271120000 XEC F0D82740
BCD 1XIT000 FORTRAN CODE FOR TTR F0D82750
OCT +002171160000 XIT F0D82760
BCD 1XMT000 TRANSMIT DISK F0D82770
OCT 000013720000 XMT DISK F0D82780
BCD 1ZAC000 ZERO ACCUMULATOR (PXD WITHOUT TAG) F0D82790
OCT -075401160000 ZAC F0D82800
BCD 1ZET000 STORAGE ZERO TEST F0D82810
OCT +052071120000 ZET F0D82820
BCD 1ZSA000 ZERO STORAGE ADDRESS (SXA WITHOUT TAG) F0D82830
OCT +063411120000 ZSA F0D82840
BCD 1ZSD000 ZERO STORAGE DECREMENT (SXD WITHOUT TAG) F0D82850
OCT -063411160000 ZSD F0D82860
OCT +777777777777 ILLEGIBLE NAME TO FLAG MACRO ERRORS F0D82870
PZE F0D82880
REM F0D82890
LOPTBL SYN *-OPTTBL F0D82900
TTL SYSTEM SYMBOL TABLE F0D90000
LBL 9F04SS,X F0D90010
HEAD S SYSTEM SYMBOL TABLE F0D90020
TOPMM SYN -1-64 TOP OF AVAILABLE MEMORY $F0D90030
BOTIP SYN TOPMM-2111 BOTTOM OF I/O PACKAGE $F0D90040
BOTMM SYN 2000+12 LOAD POINT FOR FORTRAN RECORDS $F0D90050
K EQU 512 OPERATION MNEMONICS PARAMETER F0D90060
REM F0D90070
ORG BOTTAB F0D90080
SYMSIZ PZE **,,-LSMTBL LOG LSMTBL,,LENGTH OF SYMBOL TABLE F0D90090
SYMTBL SYN * F0D90100
REM F0D90110
REM F0D90120
REM SYSTEM TAPE ASSIGNMENTS F0D90130
REM F0D90140
BCD 1SYSTAP SYSTEM TAPE F0D90150
PZE 1 SYSTAP F0D90160
BCD 1FINTAP FIRST INTERMEDIATE TAPE F0D90170
PZE 2 FINTAP F0D90180
BCD 1SINTAP SECOND INTERMEDIATE TAPE F0D90190
PZE 3 SINTAP F0D90200
BCD 1TINTAP THIRD INTERMEDIATE TAPE F0D90210
PZE 4 TINTAP F0D90220
BCD 1MINTAP MONITOR BCD INPUT TAPE F0D90230
PZE 5 MINTAP F0D90240
BCD 1MLSTAP MONITOR BCD OUTPUT (LISTING) TAPE F0D90250
PZE 6 MLSTAP F0D90260
BCD 1MBNTAP MONITOR BINARY OUTPUT TAPE F0D90270
PZE 7 MBNTAP F0D90280
BCD 1MCHTAP MONITOR CHAIN INTERMEDIATE TAPE F0D90290
PZE 8 MCHTAP F0D90300
BCD 1SNPTAP SNAPSHOT INTERMEDIATE TAPE F0D90310
PZE 9 SNPTAP F0D90320
BCD 1LIBTAP LIBRARY TAPE F0D90330
PZE 1 LIBTAP F0D90340
REM F0D90350
REM CORE MEMORY ALLOCATION F0D90360
REM F0D90370
BCD 1FLAGBX MONITOR FLAGS F0D90380
PZE BOTMM-04 FLAGBX F0D90390
BCD 1LINECT BCD LISTING TAPE TOTAL,,PAGE LINE COUNT F0D90400
PZE BOTMM-03 LINECT F0D90410
BCD 1DATEBX PRIMARY MONITOR JOB DATE (FROM START CARD) F0D90420
PZE BOTMM-02 DATEBX F0D90430
BCD 1(PCBK) OBJECT PROGRAM COMMON BREAK,,PROGRAM BREAK F0D90440
PZE BOTMM-01 (PCBK) F0D90450
BCD 1BOTTOM LOAD POINT FOR FORTRAN RECORD F0D90460
PZE BOTMM-00 BOTTOM F0D90470
BCD 1BOTIOP LOAD POINT FOR COMMON I/O PACKAGE F0D90480
PZE BOTIP+00 BOTIOP F0D90490
BCD 1TOPMEM TOP OF AVAILABLE MEMORY F0D90500
PZE TOPMM+00 TOPMEM F0D90510
REM F0D90520
REM ENTRY POINTS TO F0D90530
REM THE 709/7090 FORTRAN COMMON INPUT/OUTPUT, CONTROL PACKAGEF0D90540
REM F0D90550
BCD 1(LOAD) CALL NEXT FORTRAN RECORD F0D90560
PZE BOTIP+00 (LOAD) F0D90570
BCD 1(DIAG) CALL DIAGNOSTIC RECORD F0D90580
PZE BOTIP+03 (DIAG) F0D90590
BCD 1(TAPE) TAPE REPOSITION OR DATA TRANSMIT F0D90600
PZE BOTIP+06 (TAPE) F0D90610
BCD 1(PRNT) PRINT LINE ONLINE F0D90620
PZE BOTIP+09 (PRNT) F0D90630
BCD 1(PNCH) PUNCH CARD ONLINE F0D90640
PZE BOTIP+12 (PNCH) F0D90650
BCD 1(STAT) LOCATE TAPE STATISTIC TABLES F0D90680
PZE BOTIP+15 (STAT) $F0D90690
BCD 1(REST) RESTORE MEMORY AND CONTINUE F0D90700
PZE BOTIP+18 (REST) $F0D90710
BCD 1(STDN) SET TAPE DENSITY F0D90720
PZE BOTIP+22 (STDN) $F0D90730
BCD 1(SECL) CALL SOURCE PROGRAM ERROR RECORD F0D90740
PZE BOTIP+35 (SECL) $F0D90750
BCD 1(MECL) CALL MACHINE ERROR RECORD F0D90760
PZE BOTIP+36 (MECL) $F0D90770
BCD 1(DGLD) RESTORE MEMORY AND HALT (31)F0D90780
PZE BOTIP+37 (DGLD) (31)F0D90790
REM F0D90800
REM PARAMETERS VARIABLE AT EDIT TIME F0D90810
REM F0D90820
BCD 1(PGCT) PARAMETER FOR BCD LISTING TAPE PAGE DIMENSIONSF0D90950
PZE BOTIP+41 (PGCT) $F0D90960
BCD 1(LIBT) LOGICAL TAPE NUMBER FOR LIBRARY TAPE ASSIGNED F0D90970
PZE BOTIP+42 (LIBT) $F0D90980
REM F0D90990
REM COMMON COMMUNICATIONS REGION F0D91000
REM F0D91010
BCD 1(FGBX) LOCATION OF MONITOR FLAGS F0D91020
PZE BOTIP+48 (FGBX) $F0D91030
BCD 1(LNCT) LOCATION OF BCD OUTPUT TOTAL,,PAGE LINE COUNT F0D91040
PZE BOTIP+49 (LNCT) $F0D91050
BCD 1(DATE) SECONDARY MONITOR JOB DATE F0D91060
PZE BOTIP+50 (DATE) $F0D91070
BCD 1(SNCT) COUNT OF SNAPSHOTS ON INTERMEDIATE SNAP TAPE F0D91080
PZE BOTIP+51 (SNCT) $F0D91090
BCD 1(MSLN) FLAG FOR ENTRY INTO ERROR RECORDS F0D91100
PZE BOTIP+52 (MSLN) $F0D91110
BCD 1(ENDS) MONITOR END CARD SETTINGS F0D91120
PZE BOTIP+53 (ENDS) $F0D91130
BCI 1,(LODR) ENTRY POINTS TO SYSTEM RECORDS $F0D91131
PZE BOTIP+54 (LODR) $F0D91132
BCI 1,(LBLD) LOAD ADDRESS FOR LIBRARY $F0D91133
PZE BOTIP+55 (LBLD) $F0D91134
1 REM * CARDS ROW ROW BINARY CARDS ONLINE F0D91140
2 REM * LIST ADD OBJECT PROGRAM TO LISTING (FORTRAN) F0D91150
3 REM * PRINT LIST ONLINE F0D91160
4 REM * CARDS COLUMN COLUMN BINARY CARDS ONLINE F0D91170
5 REM * LIBE ADD LIBRARY SUBROUTINES TO BINARY OUTPUT F0D91180
6 REM * SYMBOL TABLE ADD SYMBOL TABLE TO BINARY OUTPUT F0D91190
7 REM * LABEL SERIALIZE BINARY OUTPUT F0D91200
8 REM * LIST8 EXTENDED OBJECT PROGRAM LISTING (FORTRAN) F0D91210
9 REM * ROW ROW BINARY CARDS OFFLINE F0D91220
10 REM * PACK BLOCK LISTING TAPE F0D91230
BCD 1(SCHU) DATA PERTAINING TO LAST INFORMATION XMITTED F0D91240
PZE BOTIP+58 (SCHU) $F0D91250
REM F0D91260
REM DEFINITIONS OF OPERATION MNEMONICS FOR F0D91270
REM THE 709/7090 FORTRAN COMMON INPUT/OUTPUT, CONTROL PACKAGEF0D91280
REM F0D91290
REM OPERATION RECORD ENDFILE CHECK F0D91300
BCD 1(WROW) WRITE ROW BIN IMMEDIATE F0D91310
PZE 32*K+16+8+1 (WROW) F0D91320
BCD 1(RDEC) READ DECIMAL PERMITTED IMMEDIATE F0D91330
PZE 32*K+8+4+2 (RDEC) F0D91340
BCD 1(WEFC) WRITE ENDFILE IMMEDIATE F0D91350
PZE 32*K+8+4+1 (WEFC) F0D91360
BCD 1(RBEC) READ BINARY PERMITTED IMMEDIATE F0D91370
PZE 32*K+8+4 (RBEC) F0D91380
BCD 1(WDNC) WRITE DECIMAL IMMEDIATE F0D91390
PZE 32*K+8+2+1 (WDNC) F0D91400
BCD 1(RDNC) READ DECIMAL PROHIBITED IMMEDIATE F0D91410
PZE 32*K+8+2 (RDNC) F0D91420
BCD 1(WBNC) WRITE BINARY IMMEDIATE F0D91430
PZE 32*K+8+1 (WBNC) F0D91440
BCD 1(RBNC) READ BINARY PROHIBITED IMMEDIATE F0D91450
PZE 32*K+8 (RBNC) F0D91460
BCD 1(RDEP) READ DECIMAL PERMITTED LATER F0D91470
PZE 32*K+4+2 (RDEP) F0D91480
BCD 1(WEFP) WRITE ENDFILE LATER F0D91490
PZE 32*K+4+1 (WEFP) F0D91500
BCD 1(RBEP) READ BINARY PERMITTED LATER F0D91510
PZE 32*K+4 (RBEP) F0D91520
BCD 1(WDNP) WRITE DECIMAL LATER F0D91530
PZE 32*K+2+1 (WDNP) F0D91540
BCD 1(RDNP) READ DECIMAL PROHIBITED LATER F0D91550
PZE 32*K+2 (RDNP) F0D91560
BCD 1(WBNP) WRITE BINARY LATER F0D91570
PZE 32*K+1 (WBNP) F0D91580
BCD 1(RBNP) READ BINARY PROHIBITTED LATER F0D91590
PZE 32*K (RBNP) F0D91600
BCD 1(SKDC) SKIP DECIMAL IMMEDIATE F0D91610
PZE 16*K+8+2 (SKDC) F0D91620
BCD 1(SKBC) SKIP BINARY IMMEDIATE F0D91630
PZE 16*K+8 (SKBC) F0D91640
REM BACKSPACE FOR BTT F0D91650
BCD 1(SKDP) SKIP DECIMAL LATER F0D91660
PZE 16*K+2 (SKDP) F0D91670
BCD 1(SKBP) SKIP BINARY LATER F0D91680
PZE 16*K (SKBP) F0D91690
REM BACKSPACE NONE F0D91700
BCD 1(CHKU) DELAY AND CHECK LAST ACTIVITY ON LOG TAPE F0D91710
PZE 8*K (CHKU) F0D91720
BCI 1,(SUAV) SET UNIT(S) AVAILABLE $F0D91721
PZE 8*K+2+1 (SUAV) $F0D91722
BCI 1,(SUNV) SET UNIT(S) UNAVAILABLE $F0D91723
PZE 8*K+2 (SUNV) $F0D91724
BCD 1(TPER) ERROR ON TAPE RECORD FOUND BY COMPILER F0D91730
PZE 4*K (TPER) F0D91740
BCD 1(SNAP) DUMP MEMORY AND PANEL ON SNAP TAPE F0D91750
PZE 1*K (SNAP) $F0D91760
REM THE FOLLOWING SYMBOLS ARE FOR IOEX $F0D91770
L(ACT) BOOL 702 $F0D91780
L(SYT) BOOL 140 $F0D91790
SYSTBL SYN * $F0D91795
BCI 1,SYSTRA $F0D91800
PZE 64 $F0D91810
BCI 1,SYSDAT $F0D91820
PZE 65 $F0D91830
BCI 1,SYSCUR $F0D91840
PZE 66 $F0D91850
BCI 1,SYSRET $F0D91860
PZE 67 $F0D91870
BCI 1,SYSKEY $F0D91880
PZE 68 $F0D91890
BCI 1,SYSSWS $F0D91900
PZE 69 $F0D91910
BCI 1,SYSPOS $F0D91920
PZE 70 $F0D91930
BCI 1,SYSUNI $F0D91940
PZE 71 $F0D91950
BCI 1,SYSUBC $F0D91960
PZE 72 $F0D91970
BCI 1,SYSUAV $F0D91980
PZE 73 $F0D91990
BCI 1,SYSUCW $F0D92000
PZE 74 $F0D92010
BCI 1,SYSRPT $F0D92020
PZE 75 $F0D92030
BCI 1,SYSCEM $F0D92040
PZE 76 $F0D92050
BCI 1,SYSDMP $F0D92060
PZE 77 $F0D92070
BCI 1,SYSIOX $F0D92080
PZE 78 $F0D92090
BCI 1,SYSIDR $F0D92100
PZE 79 $F0D92110
BCI 1,SYSCOR $F0D92120
PZE 80 $F0D92130
BCI 1,SYSLDR $F0D92140
PZE 81 $F0D92150
BCI 1,SYSACC $F0D92160
PZE 82 $F0D92170
BCI 1,SYSPID $F0D92180
PZE 83 $F0D92190
BCI 1,SYSCYD $F0D92200
PZE 84 $F0D92210
BCI 1,SYSSLD $F0D92220
PZE 86 $F0D92230
BCI 1,SYSTCH $F0D92240
PZE 87 $F0D92250
BCI 1,SYSTWT $F0D92260
PZE 89 $F0D92270
BCI 1,SYSGET $F0D92271
PZE 90 $F0D92272
BCI 1,SYSJOB $F0D92273
PZE 91 $F0D92274
BCI 1,.CHEXI (28)F0D92275
PZE 92 (28)F0D92276
BCI 1,.MODSW (28)F0D92277
PZE 93 (28)F0D92278
REM SYSUNI TABLE OF IBNUC $F0D92280
BCI 1,SYSLB1 $F0D92290
LSYUNS PZE L(SYT) $F0D92300
BCI 1,SYSLB2 $F0D92310
PZE L(SYT)+1 $F0D92320
BCI 1,SYSLB3 $F0D92330
PZE L(SYT)+2 $F0D92340
BCI 1,SYSLB4 $F0D92350
PZE L(SYT)+3 $F0D92360
BCI 1,SYSCRD $F0D92370
PZE L(SYT)+4 $F0D92380
BCI 1,SYSPRT $F0D92390
PZE L(SYT)+5 $F0D92400
BCI 1,SYSPCH $F0D92410
PZE L(SYT)+6 $F0D92420
BCI 1,SYSOU1 $F0D92430
PZE L(SYT)+7 $F0D92440
BCI 1,SYSOU2 $F0D92450
PZE L(SYT)+8 $F0D92460
BCI 1,SYSIN1 $F0D92470
PZE L(SYT)+9 $F0D92480
BCI 1,SYSIN2 $F0D92490
PZE L(SYT)+10 $F0D92500
BCI 1,SYSPP1 $F0D92510
PZE L(SYT)+11 $F0D92520
BCI 1,SYSPP2 $F0D92530
PZE L(SYT)+12 $F0D92540
BCI 1,SYSCK1 $F0D92550
PZE L(SYT)+13 $F0D92560
BCI 1,SYSCK2 $F0D92570
PZE L(SYT)+14 $F0D92580
BCI 1,SYSUT1 $F0D92590
PZE L(SYT)+15 $F0D92600
BCI 1,SYSUT2 $F0D92610
PZE L(SYT)+16 $F0D92620
BCI 1,SYSUT3 $F0D92630
PZE L(SYT)+17 $F0D92640
BCI 1,SYSUT4 $F0D92650
PZE L(SYT)+18 $F0D92660
REM IOEX COMMON COMMUNICATION CELLS $F0D92670
BCI 1,(ACTIV $F0D92680
PZE L(ACT)+0 $F0D92690
BCI 1,(ACTVX $F0D92700
PZE L(ACT)+1 $F0D92710
BCI 1,(NDATA $F0D92720
PZE L(ACT)+2 $F0D92730
BCI 1,(NDSLX $F0D92740
PZE L(ACT)+3 $F0D92750
BCI 1,(PROUT $F0D92760
PZE L(ACT)+4 $F0D92770
BCI 1,(PUNCH $F0D92780
PZE L(ACT)+5 $F0D92790
BCI 1,(ENBSW $F0D92800
PZE L(ACT)+6 $F0D92810
BCI 1,(PAWSX $F0D92820
PZE L(ACT)+7 $F0D92830
BCI 1,(PAUSE $F0D92840
PZE L(ACT)+8 $F0D92850
BCI 1,(STOPX $F0D92860
PZE L(ACT)+9 $F0D92870
BCI 1,(SYMUN $F0D92880
PZE L(ACT)+10 $F0D92890
BCI 1,(DECVD $F0D92900
PZE L(ACT)+11 $F0D92910
BCI 1,(DECVA $F0D92920
PZE L(ACT)+12 $F0D92930
BCI 1,(CKWAT $F0D92940
PZE L(ACT)+13 $F0D92950
BCI 1,(BCD5R $F0D92960
PZE L(ACT)+14 $F0D92970
BCI 1,(BCD5X $F0D92980
PZE L(ACT)+15 $F0D92990
BCI 1,(CVPRT $F0D93000
PZE L(ACT)+16 $F0D93010
BCI 1,(STOPD $F0D93020
PZE L(ACT)+17 $F0D93030
BCI 1,(CHXAC $F0D93040
PZE L(ACT)+18 $F0D93050
BCI 1,(URRXI $F0D93060
PZE L(ACT)+19 $F0D93070
BCI 1,(RCTXI $F0D93080
PZE L(ACT)+20 $F0D93090
BCI 1,(RCHXI $F0D93100
PZE L(ACT)+21 $F0D93110
BCI 1,(TCOXI $F0D93120
PZE L(ACT)+22 $F0D93130
BCI 1,(TRCXI $F0D93140
PZE L(ACT)+23 $F0D93150
BCI 1,(ETTXI $F0D93160
PZE L(ACT)+24 $F0D93170
BCI 1,(TEFXI $F0D93180
PZE L(ACT)+25 $F0D93190
BCI 1,(TRAPX $F0D93200
PZE L(ACT)+26 $F0D93210
BCI 1,(TRAPS $F0D93220
PZE L(ACT)+27 $F0D93230
BCI 1,(COMMM $F0D93240
PZE L(ACT)+28 $F0D93250
BCI 1,(LTPOS $F0D93260
PZE L(ACT)+29 $F0D93270
BCI 1,(IOXSI $F0D93280
PZE L(ACT)+30 $F0D93290
BCI 1,(CHPSW $F0D93300
PZE L(ACT)+31 $F0D93310
BCI 1,(TRPSW $F0D93320
PZE L(ACT)+32 $F0D93330
BCI 1,(FDAMT $F0D93340
PZE L(ACT)+33 $F0D93350
BCI 1,(SDCXI $F0D93360
PZE L(ACT)+34 $F0D93370
BCI 1,(STCXI $F0D93380
PZE L(ACT)+35 $F0D93390
BCI 1,(COMMD $F0D93400
PZE L(ACT)+36 $F0D93410
BCI 1,(IBCDZ $F0D93420
PZE L(ACT)+37 $F0D93430
BCI 1,(CHXSP $F0D93431
PZE L(ACT)+38 $F0D93432
BCI 1,SYSEND $F0D93440
PZE -1 $F0D93450
BCI 1,SYSORG $F0D93460
PZE 2000 $F0D93470
LSMTBL SYN *-SYMTBL F0D93480
LIBTBL SYN *-SYSTBL $F0D93490
HEAD 4 END OF SYSTEM SYMBOL TABLE F0D93500
FINIS SYN *+96 PATCH SPACE FOR ADDITIONAL SST NAMES (31)F0D93510
TTL PATCH TO DELETE STANDARD ERROR PROCEDURE F0D93520
LBL 9F04FLOW,X F0D93530
ORG SEPFLG F0D93540
PZE DELETE STANDARD ERROR PROCEDURE $F0D93550
TCD -1 $F0D93555
TTL PASS TWO SUBROUTINES F0E00000
HEAD 5 PASS 2 F0E00010
REM F0E00020
REM PROCESS AND LIST NON DATA GENERATING PSEUDOOPS F0E00030
REM PROCESS, LIST, INSERT IN BINARY CARD IMAGES F0E00040
REM MACHINE OPERATIONS AND DATA GENERATING PSEUDOOPS F0E00050
REM PRINT AND PUNCH ON AND/OR OFF LINE BCD AND BINARY OUTPUT F0E00060
REM F0E00070
LBL 9F05,X F0E00080
ORG SYSCUR $F0E00090
BCI 1,9F0500 $F0E00100
ORG (LODR) $F0E00110
TXI START,,50 ENTRY POINT,,RECORD NUMBER F0E00120
REM F0E00130
ORG PASSLP F0E00150
REM F0E00160
REM SSYMT SUBROUTINE MUST ORIGIN AT SAME LOCATN PASS 1 AND 2 F0E00170
REM BINARY SEARCH OF SYMBOL TABLE F0E00180
SSYMT SXA SSYMX,4 SAVE CALLING LINKAGE F0E00190
SXA SSYMX+1,2 SAVE WORD COUNT F0E00200
SXA SSYMX+2,1 SAVE CHARACTER COUNT F0E00210
CAL SYMBL LOAD SYMBOL NAME F0E00220
AXT 0,1 LOAD LOCATION OF FIRST SYMBOL IN TABLE F0E00230
LXA SYMSIZ,2 LOAD LOGARITHM OF TABLE LENGTH F0E00240
TSX LOWER,4 *EXECUTE BINARY SEARCH F0E00250
TRA SSYM3 NOT FOUND F0E00260
SSYM1 TXL *+4,1,** IS SEARCH PAST UPPER END OF TABLE F0E00270
LAS SYMTBL-2,1 NO, IS CURRENT SYMBOL THIS NAME IN TABLE F0E00280
TXI LOWER,2,-2 NO, LARGER - GO LOOK HIGHER F0E00290
TRA SSYM4 YES F0E00300
TXI RAISE,2,-2 NO, SMALLER - GO LOOK LOWER F0E00310
REM F0E00320
REM SYMBOL IS UNDEFINED F0E00330
SSYM3 SLN EXPRR SET UNDEFINED ERROR FLAGS F0E00340
STL ERRFU F0E00350
LDC SYMSIZ,1 LOAD LENGTH OF UNDEFINED SYMBOL TABLE F0E00360
REM REENTRY TO COMPARE WITH NEXT NAME IN TABLE F0E00370
SUDS1 TXL *+5,1,** IS UNDEFINED SYMBOL TABLE EXHAUSTED F0E00380
LAS SYMTBL-2,1 NO, WAS SYMBOL PREVIOUSLY UNDEFINED F0E00390
TXI SUDS1,1,-2 NO F0E00400
TXI SSYM5,1,-2 YES F0E00410
TXI SUDS1,1,-2 NO F0E00420
REM NAME IS NEW, ADD TO UNDEFINED SYMBOL TABLE F0E00430
TXL SSYM5,1,** DID UNDEFINED SYMBOL TABLE OVERFLOW F0E00440
SLW SYMTBL-2,1 NO, ADD SYMBOL TO TABLE F0E00450
TRA HGPCH (28)F0E00460
TXI *+1,1,-2 BUMP UNDEFINED SYMBOL TABLE COUNT F0E00470
SXD SUDS1,1 SAVE LENGTH OF UNDEFINED SYMBOL TABLE F0E00480
REM REENTRY FOR DEFINED SYMBOL F0E00490
SSYM4 LDI SYMTBL-1,1 LOAD SYMBOL DEFINITION F0E00500
LFT 10 IS SYMBOL MULTIPLY DEFINED F0E00510
STL ERRFM YES, SET FLAG F0E00520
REM REENTRY FOR UNDEFINED SYMBOL F0E00530
SSYM5 CLA SYMTBL-1,1 LOAD SYMBOL DEFINITION F0E00540
ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E00550
ANA ADTMK YES, DELETE EXTRANEOUS FLAGS F0E00560
STO NERAS F0E00570
SXA SET01,1 SAVE LOCATION FOR SET ROUTINE F0E00580
ZET DELTF SHOULD SYMBOLIC REF TABLE ENTRY BE MADE F0E00590
TRA SSYMX NO F0E00600
REM MAKE ENTRIES INTO SYMBOLIC REFERENCE TABLE F0E00610
EREF0 TXI *+1,1,2 BUMP SYMBOL TABLE COUNT TO POINTER F0E00620
AXT **,2 COMPUTE TABLE LOCATION INTO WHICH F0E00630
EREF1 TXI *+1,2,1 CURRENT SYMBOLIC REFERENCE F0E00640
SXA BERAS,2 WILL BE STORED F0E00650
ZET **,1 HAS REFERENCE BEEN MADE TO THIS SYMBOL F0E00660
TRA EREF2 YES F0E00670
CLA BERAS NO, INSERT INTO POINTER TABLE F0E00680
STA **,1 LOCATION FIRST REFERENCE WILL BE STORED F0E00690
ALS 18 INSERT INTO POINTER TABLE F0E00700
STD **,1 LOCATION NEXT REFERENCE WILL BE STORED F0E00710
TRA EREF3 F0E00720
REM SUBSEQUENT REFERENCE TO SYMBOL F0E00730
EREF2 CLA **,1 LOAD POINTER F0E00740
ARS 18 GET LOCATION OF THIS REFERENCE F0E00750
STA *+4 INITIALIZE STORE F0E00760
CLA BERAS LOAD LOCATION OF NEXT REFERENCE F0E00770
ALS 18 F0E00780
STD **,1 INSERT IN POINTER F0E00790
STD ** INSERT IN TABLE F0E00800
REM REENTRY FOR INITIAL REFERENCE F0E00810
EREF3 AXT -1,2 LOAD NEXT AVAILABLE SPACE IN TABLE F0E00820
CLA LOCTR INSERT PROGRAM COUNTER F0E00830
STA **,2 FOR CURRENT REFERENCE INTO TABLE F0E00840
EREF4 TXH *+2,2,** IS TABLE PAST POINTER INTERLEAVING F0E00850
TXI *+2,2,-1 YES, BUMP TO NEXT LOCATION F0E00860
TXI *+1,2,-2 NO, BUMP PAST INTERLEAVED POINTER F0E00870
TXH *+4,2,** IS SYMBOLIC REFERENCE TABLE FULL F0E00880
AXT SSYMX,1 YES, BYPASS FURTHER ENTRIES F0E00890
SXA EREF0,1 F0E00900
SXD PREF9,0 SET SWITCH TO PRINT ERROR MESSAGE F0E00910
SXA EREF3,2 SAVE NEXT AVAILABLE SPACE IN TABLE F0E00920
PXD ,2 COMPLEMENT F0E00930
PDC ,2 F0E00940
SXD EREF1,2 INITIALIZE COMPUTATION FOR NEXT SPACE F0E00950
CLA NERAS RELOAD SYMBOL DEFINITION F0E00960
SSYMX AXT **,4 RELOAD CALLING LINKAGE F0E00970
AXT **,2 RELOAD WORD COUNT F0E00980
AXT **,1 RELOAD CHARACTER COUNT F0E00990
TRA 1,4 F0E01000
REM F0E01010
REM MAKE ENTRIES IN REF TABLE FOR PSEUDOOPS NOT SCANNED IN P2F0E01020
REFPP SXA REFPX,4 SAVE CALLING LINKAGE F0E01030
LXD VRFLD,2 RELOAD WORD COUNT F0E01040
LXA VRFLD,1 RELOAD CHARACTER COUNT F0E01050
TSX SCANF,4 *EVALUATE NEXT FIELD F0E01060
TXI *+2,,0 ALL DONE F0E01070
TRA *-2 CONTINUE F0E01080
AXT ERRFB-ERRFU+1,4 LOAD LENGTH OF FATAL ERROR LIST F0E01090
STZ ERRFB+1,4 DELETE ERRORS REPRESENTED BY F FLAG F0E01100
TIX *-1,4,1 F0E01110
REFPX AXT **,4 RELOAD CALLING LINKAGE F0E01120
TRA 1,4 F0E01130
REM F0E01140
REM CHECK LOCATION COUNTER F0E01150
REFLC SXA REFCX,4 SAVE CALLING LINKAGE F0E01160
ZET DUPMD IS CARD WITHIN DUP F0E01170
TRA REFCX YES, FORGET IT F0E01180
STL DELTF NO, AVOID SOURCE REFERENCE TABLE ENTRIES F0E01190
TSX REFLP,4 *FIND SYMBOL DEFINITION F0E01200
STZ DELTF RESET SYMBOLIC REF TABLE ENTRY FLAG F0E01210
ZET SYMBL IS LOCATION SYMBOL OMITTED F0E01220
LFT 20 NO, WAS DEFINITION RESET F0E01230
TRA REFCX YES, FORGET IT F0E01240
PIA RECALL SYMBOL DEFINITION F0E01250
ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E01260
ANA ADTMK YES, DELETE EXTRANEOUS FLAGS F0E01270
ERA NERAS DOES THIS AGREE WITH PASS ONE DEFINITION F0E01280
TZE REFCX YES F0E01290
NZT ERFFM NO, IS SYMBOL MULTIPLY DEFINED F0E01300
TSX MACERR,4 **NO, LOCATION COUNTER IS OUT OF STEP F0E01310
REFCX AXT **,4 RELOAD CALLING LINKAGE F0E01320
TRA 1,4 F0E01330
REM ENTER POINT OF DEFINITION IN SYMBOLIC REFERENCE TABLE F0E01340
REFLP SXA REFLX,4 SAVE CALLING LINKAGE F0E01350
CAL BCDBF LOAD LOCATION FIELD F0E01360
TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0E01370
TZE REFLX IS THERE A LOCATION SYMBOL F0E01380
LGR 30 YES, APPEND CURRENT PRIME HEADING CHAR F0E01390
TNZ *+2 F0E01400
CAL BHEAD F0E01410
LGL 30 F0E01420
SLW SYMBL F0E01430
TSX SSYMT,4 *MAKE SYMBOL TABLE SEARCH F0E01440
CAL ERRFM SET NONFATAL MULTIPLY DEFINED FLAG F0E01450
SLW ERFFM F0E01460
STZ ERRFM PREVENT ABORTION F0E01470
STZ ERRFU F0E01480
REFLX AXT **,4 RELOAD CALLING LINKAGE F0E01490
TRA 1,4 F0E01500
REM F0E01510
REM SET FLAG FOR MISSING PSEUDOOP VARIABLE FIELD F0E01520
AFLAG STL ERRFA FLAG MISSING VARIABLE FIELD F0E01530
SLN FLDND DELETE F FLAG F0E01540
TRA 2,4 F0E01550
REM F0E01560
REM SET FLAG FOR MISSING ADDRESS FIELD F0E01570
FLAGA CAL D8 LOAD A-FLAG MASK F0E01580
ANA OFLGS MASK IN OPTABLE FIELD BITS F0E01590
SLW ERRFA SET FLAG IF FIELD IS REQUIRED F0E01600
PXD ,0 F0E01610
TRA 2,4 F0E01620
REM F0E01630
REM SET FLAG FOR MISSING TAG FIELD F0E01640
FLAGT CAL D4 LOAD T-FLAG MASK F0E01650
ANA OFLGS MASK IN OPTABLE FIELD BITS F0E01660
SLW ERRFT SET FLAG IF FIELD IS REQUIRED F0E01670
PXD ,0 F0E01680
TRA 2,4 F0E01690
REM F0E01700
REM SET FLAG FOR MISSING DECREMENT FIELD F0E01710
FLAGD CAL D2 LOAD D-FLAG MASK F0E01720
ANA OFLGS MASK IN OPTABLE FIELD BIT F0E01730
SLW ERRFD SET FLAG IF FIELD IS REQUIRED F0E01740
PXD ,0 F0E01750
TRA 2,4 F0E01760
REM F0E01770
REM INTERPRET INSTRUCTION LISTING FLAGS F0E01780
REM FLAGS ARE IN INDICATORS F0E01790
IFLGS RFT 9OMSK IS THIS INSTRUCTION PERMISSIBLE ON 7090 F0E01800
REM (RESET TO 040000 FOR 704 MODE) F0E01810
TRA IFL01 YES F0E01820
RNT 04MSK NO, IS THIS INSTRUCTION PROHIBITED ON 7090F0E01830
REM (RESET TO 020000 FOR 7090 MODE) F0E01840
STL ERRFN NO, SET NON-FATAL OPCODE ERROR FLAG F0E01850
RFT 04MSK IS THIS INSTRUCTION PROHIBITED ON 7090 F0E01860
REM (RESET TO 020000 FOR 7090 MODE) F0E01870
STL ERR49 YES, SET MODE FLAG F0E01880
IFL01 STL TYPAF SET TYPE A INSTRUCTION FLAG PRESUMPTIVELY F0E01890
LFT 077760 IS THIS TYPE A 0 00000 0 00000 INSTR. F0E01900
STZ TYPAF NO, RESET TYPE FLAG F0E01910
LNT 00001 DOES ADDRESS FIELD CONTAIN FLAGS F0E01920
TRA 2,4 NO, RETURN F0E01930
RFT TDMSK IS THIS A TYPE D 0000 00 000000 INSTR. F0E01940
STL TYPDF YES, SET FLAG F0E01950
RFT VLMSK IS THIS A TYPE B INSTR. PERMITTED DECRM. F0E01960
REM OR TYPE K WITH HIGH ORDER COUNT FIELD F0E01970
STL TYPCF YES, SET FLAG F0E01980
RNT TKMSK IS THIS A TYPE K 00 0000 0 00000 COMMAND F0E01990
TRA *+3 NO F0E02000
STL TYPKF YES, SET TYPE K FLAG F0E02010
STL TYPAF SET TYPE A FLAG ALSO F0E02020
TRA 1,4 RETURN F0E02030
REM F0E02040
REM ROUTINE TO CREATE OCTAL EXPANSION F0E02050
REM F0E02060
REM PRINT CONTROL CARD F0E02070
PRNCC LDI BCDBF+13 LOAD PASS 1 ERROR FLAGS F0E02080
NZT ERRFA IS MISSING VARIABLE FIELD FLAGGED F0E02090
RFT 100 NOT YET F0E02100
TRA PRNTC YES F0E02110
RNT 4 NO, IS FIELD ERROR FLAGGED F0E02120
PRNSW TXL PRNTX+3,,0 NO, SHOULD CARD BE PRINTED F0E02130
REM (SWITCH SET BY PCC) F0E02140
REM F0E02150
REM PRINT INPUT CARD F0E02160
PRNTC SXA PRNTX,4 SAVE CALLING LINKAGE F0E02170
AXT 4,4 BREPARE TO BLANK OUT OCTAL LISTING F0E02180
CAL BLANKS F0E02190
SLW OCTAL+4,4 F0E02200
TIX *-1,4,1 F0E02210
TRA PRN06 F0E02220
REM F0E02230
REM PRINT INPUT CARD, DEFINITION LEFT ADJUSTED F0E02240
PRNTL SXA PRNTX,4 SAVE CALLING LINKAGE F0E02250
CAL BLANKS BLANK OUT OCTAL FIELD F0E02260
SLW OCTAL+3 F0E02270
SLW OCTAL+2 F0E02280
SLW OCTAL+1 F0E02290
LDQ ADDRS CONVERT LOCATION TO OCTAL F0E02300
RQL 21 F0E02310
AXT 5,4 F0E02320
ALS 3 F0E02330
LGL 3 F0E02340
TIX *-2,4,1 F0E02350
ALS 6 LEFT ADJUST F0E02360
ORA BLANK F0E02370
SLW OCTAL INSERT IN FIRST WORD F0E02380
TRA PRN06 F0E02390
REM F0E02400
REM PRINT INPUT CARD, DEFINITION RIGHT ADJUSTED F0E02410
PRNTR SXA PRNTX,4 SAVE CALLING LINKAGE F0E02420
LDQ ADDRS LOAD DEFINITION OF SYMBOL F0E02430
CAL BLANKS BLANK OUT LEFT PORTION OF OCTAL EXPANSION F0E02440
SLW OCTAL F0E02450
SLW OCTAL+1 F0E02460
NZT TYPDF IS FIELD BOOLEAN (6 DIGIT) F0E02470
TRA *+5 NO F0E02480
RQL 18 YES, LEFT ADJUST 6 DIGIT FIELD F0E02490
ALS 3 CREATE FIRST DIGIT F0E02500
LGL 3 F0E02510
TRA *+2 F0E02520
RQL 21 LEFT ADJUST 5 DIGIT FIELD F0E02530
ALS 6 SHIFT BOOLEAN DIGIT OR BLANK TO CHAR 5 F0E02540
SLW OCTAL+2 OF WORD 3 F0E02550
STZ OCTAL+3 CLEAR RIGHT ADJUSTED ADDRESS FIELD F0E02560
PXD ,0 F0E02570
TRA PRN04 F0E02580
REM F0E02590
REM PRINT SIGNED 12 DIGIT INTEGER DATUM WORD F0E02600
PRNTD LDQ BINRY LOAD DATUM WORD F0E02610
CAL PLUSS LOAD LEADING + F0E02620
TQP *+3 IS INTEGER POSITIVE F0E02630
CAL MINUS NO, LOAD LEADING - F0E02640
LRS 0 DELETE SIGN F0E02650
TRA PRNTW+2 F0E02660
REM F0E02670
REM PRINT 6 CHARACTER BCD DATUM WORD F0E02680
PRNTW LDQ BINRY LOAD DATUM WORD F0E02690
CAL BLANK LOAD LEADING BLANK F0E02700
SXA PRNTX,4 SAVE CALLING LINKAGE F0E02710
AXT 30,4 PREPARE TO CREATE 5 OCTAL DIGITS F0E02720
ALS 3 CREATE ZONE F0E02730
LGL 3 SHIFT IN DIGIT F0E02740
TIX *-2,4,6 IS WORD 2 COMPLETE F0E02750
SLW OCTAL+1 YES F0E02760
ALS 3 CREATE ZONE F0E02770
LGL 3 SHIFT IN DIGIT F0E02780
TIX *-2,4,1 IS WORD 3 COMPLETE F0E02790
SLW OCTAL+2 YES F0E02800
PXD ,0 F0E02810
LGL 3 SHIFT IN LAST DIGIT F0E02820
LDQ BLANKS APPEND FOLLOWING BLANKS F0E02830
LGL 30 LEFT ADJUST LAST DIGIT F0E02840
SLW OCTAL+3 INSERT IN LAST WORD F0E02850
TRA PRN05 F0E02860
REM F0E02870
REM PRINT SIX CHARACTER DISK ORDER F0E02880
PRNTO SXA PRNTX,4 SAVE CALLING LINKAGE F0E02890
AXT 48,4 PREPARE TO GENERATER 3 TWO-DIGIT FIELDS F0E02900
LDQ BINRY LOAD DATUM WORD F0E02910
CAL BLANK LOAD LEADING BLANK F0E02920
ALS 3 CREATE OP/HEAD FIELD F0E02930
LGL 3 F0E02940
TIX *-2,4,12 F0E02950
ALS 6 F0E02960
ORA BLANK APPEND BLANK F0E02970
ORS OCTAL+1 INSERT IN LISTING WORD 2 F0E02980
ALS 3 CREATE ACCESS AND MODULE/RECORD FIELD F0E02990
LGL 3 F0E03000
TIX *-2,4,3 F0E03010
ALS 6 F0E03020
ORA BLANK APPEND BLANK F0E03030
ALS 3 START TRACK/NULL FIELD F0E03040
LGL 3 F0E03050
ORS OCTAL+2 INSERT IN LISTING WORD 3 F0E03060
ALS 3 FINISH TRACK/NULL FIELD F0E03070
LGL 3 F0E03080
TIX *-2,4,1 F0E03090
LDQ BLANKS APPEND FOLLOWING BLANKS F0E03100
LGL 18 F0E03110
ORS OCTAL+3 INSERT IN LISTING WORD 4 F0E03120
TRA PRN05 F0E03130
REM F0E03140
REM PRINT SIGNED 35 BIT MACHINE INSTRUCTION F0E03150
PRNTI SXA PRNTX,4 SAVE CALLING LINKAGE F0E03160
LDQ BINRY LOAD INSTRUCTION F0E03170
CAL BLANK LOAD LEADING BLANK F0E03180
TQP *+3 IS INSTRUCTION NEGATIVE F0E03190
CAL MINUS YES, LOAD LEADING - F0E03200
LRS 0 DELETE SIGN F0E03210
ZET TYPAF IS THIS TYPE A INSTRUCTION F0E03220
TRA PRN01 YES F0E03230
AXT 4,4 NO, PREPARE TO CREATE 4 DIGIT OP FIELD F0E03240
ALS 3 CREATE ZONE F0E03250
LGL 3 SHIFT IN DIGIT F0E03260
TIX *-2,4,1 IS OP FIELD COMPLETE F0E03270
ALS 6 YES, APPEND BLANK F0E03280
ORA BLANK F0E03290
TRA PRN02 F0E03300
REM REENTRY FOR TYPE A INSTRUCTION F0E03310
PRN01 ALS 3 CREATE 1 DIGIT OP CODE F0E03320
LGL 3 F0E03330
AXT 3,4 PREPARE TO CREATE FIRST 3 DIGITS OF DECR F0E03340
NZT TYPKF IS THIS TYPE K DISK COMMAND F0E03350
TRA *+4 NO F0E03360
ALS 3 YES, CREATE SECOND DIGIT OF OPCODE F0E03370
LGL 3 F0E03380
AXT 2,4 PREPARE TO CREATE FIRST 2 DIGITS OF DECR F0E03390
ALS 6 APPEND BLANK F0E03400
ORA BLANK F0E03410
ALS 3 CREATE ZONE F0E03420
LGL 3 SHIFT IN DIGIT F0E03430
TIX *-2,4,1 IS FIELD COMPLETE F0E03440
REM REENTRY FOR TYPES B, D INSTRUCTIONS F0E03450
PRN02 ORS OCTAL+1 SET WORD 2 F0E03460
PXD ,0 F0E03470
LGL 3 CREATE LAST 2 DIGITS OF DECR F0E03480
ALS 3 F0E03490
LGL 3 F0E03500
ALS 6 F0E03510
ORA BLANK APPEND BLANK F0E03520
NZT TYPDF IS ADDRESS BOOLEAN (SIX DIGIT) F0E03530
TRA PRN03 NO F0E03540
ALS 6 YES, APPEND SECOND BLANK F0E03550
ORA BLANK F0E03560
ALS 3 CREATE LEADING DIGIT OF ADDRESS FIELD F0E03570
LGL 3 F0E03580
TRA PRN03+4 F0E03590
PRN03 ALS 3 CREATE TAG DIGIT F0E03600
LGL 3 F0E03610
ALS 6 APPEND BLANK F0E03620
ORA BLANK F0E03630
NZT OPFLG IS THIS OP DEFINITION F0E03640
STL PRTIF NO, SET MACHINE INSTRUCTION FLAG F0E03650
REM REENTRY FOR LOCATION FIELD RIGHT ADJUSTED F0E03660
PRN04 ALS 3 CREATE FIRST DIGIT OF ADDRESS FIELD F0E03670
LGL 3 (SECOND DIGIT OF BOOLEAN FIELD) F0E03680
ORS OCTAL+2 INSERT IN WORD 3 F0E03690
AXT 4,4 PREPARE TO CREATE LAST 4 DIGITS OF FIELD F0E03700
ALS 3 CREATE ZONE F0E03710
LGL 3 SHIFT IN DIGIT F0E03720
TIX *-2,4,1 IS FIELD COMPLETE F0E03730
LDQ BLANKS YES, APPEND FOLLOWING BLANKS F0E03740
LGL 12 F0E03750
ORS OCTAL+3 INSERT IN WORD 4 F0E03760
NZT PRTIF WAS THIS A MACHINE INSTRUCTION F0E03770
TRA PRN06 NO, DO NOT PRINT LOCATION FIELD LEFT ADJ F0E03780
REM (XR2, 1 NOT SIGNIFICANT) F0E03790
REM REENTRY FOR DATUM WORD F0E03800
PRN05 CLA LOCTR UPDATE PROGRAM COUNTER F0E03810
STO ADDRS F0E03820
CLA Q1 F0E03830
TSX BPCTR,4 *BUMP PROGRAM COUNTER F0E03840
LDQ ADDRS F0E03850
LGL 21 LEFT ADJUST PROGRAM COUNTER F0E03860
AXT 5,4 PREPARE TO CREATE 5 OCTAL DIGITS F0E03870
ALS 3 CREATE ZONE F0E03880
LGL 3 SHIFT IN DIGIT F0E03890
TIX *-2,4,1 IS LOCATION FIELD COMPLETE F0E03900
ALS 6 YES, APPEND FOLLOWING BLANK F0E03910
ORA BLANK F0E03920
SLW OCTAL INSERT IN WORD 1 F0E03930
SXA PRNTX+1,2 SAVE WORD COUNT F0E03940
SXA PRNTX+2,1 SAVE CHARACTER COUNT F0E03950
TSX STORE,4 *INSERT BINARY WORD INTO CARD IMAGE F0E03960
PRN06 LDI BCDBF+13 LOAD PASS 1 ERROR FLAGS F0E03970
RFT 4 IS FIELD ERROR FLAGGED F0E03980
STL ERRFF YES, SET FLAG F0E03990
RFT 100 IS MISSING VARIABLE FIELD FLAGGED F0E04000
STL ERRFA YES, SET FLAG F0E04010
TSX PRLST,4 *LIST THIS LINE F0E04020
IOLST IOCD OCTAL,,** PARAMETER FOR LENGTH OF LISTING LINE F0E04030
AXT 5,4 RESET LENGTH OF LINE TO SHORT LINE F0E04040
SXD IOLST,4 FOR GENERTED DATA F0E04050
STZ PRTIF RESET FLAG F0E04060
STZ TYPDF RESET BOOLEAN ADDRESS FLAG F0E04070
PRNTX AXT **,4 RELOAD CALLING LINKAGE F0E04080
AXT **,2 RELOAD WORD COUNT F0E04090
AXT **,1 RELOAD TABLE COUNT F0E04100
TRA 1,4 F0E04110
REM F0E04120
REM SUBROUTINE TO PRINT LISTING LINE F0E04130
PRLST SXA PRLSX,4 SAVE CALLING LINKAGE F0E04140
CAL 1,4 LOAD PARAMETER F0E04150
PDX ,2 LOAD WORD COUNT F0E04160
SXD PRL06+1,2 SET LENGTH OF LINE F0E04170
SUB Q2 F0E04180
STA PRL05 SET LOCATION OF BUFFER TO BE MOVED F0E04190
PXD ,0 F0E04200
LXD EFLST,4 LOAD LENGTH OF ERROR FLAG LIST F0E04210
LDQ EFCHR,4 LOAD ERROR CHARACTER F0E04220
ZET EFLST,4 IS THIS ERROR FLAG SET F0E04230
LGL 6 YES, SHIFT IN NEXT FLAG F0E04240
STZ EFLST,4 RESET ERROR FLAG F0E04250
PRL00 TXL *+3,4,** IS THIS ERROR FATAL F0E04260
TZE *+2 YES, WAS THIS ERROR FOUND F0E04270
STL NOGOF YES, SET FATAL ERROR FLAG F0E04280
TIX *-7,4,1 HAVE ALL FLAGS BEEN TESTED F0E04290
LDQ BLANKS YES, LOAD FOLLOWING BLANKS F0E04300
TZE PRL01 WERE THERE ANY ERRORS F0E04310
LGR 6 YES, LEFT ADJUST ERROR CHARACTERS F0E04320
TNZ *-1 F0E04330
CAL BLANK APPEND LEADING BLANK (PROGRAM CONTROL) F0E04340
LGR 6 F0E04350
TRA PRL02 F0E04360
REM NO ERRORS ON THIS STATEMENT F0E04370
PRL01 CAL UNLSF LOAD UNLIST FLAG F0E04380
TXL *+3,2,0 IS LINE BLANK F0E04390
TXH *+2,2,5 NO, IS LINE GENERATED DATA F0E04400
ORA TITLF YES, LOAD TITLE FLAG F0E04410
PMCSW TXH *+2,4,** IS THIS MACRO GENERATED CARD F0E04420
TXL PRLSX,,0 YES, SHOULD THIS CARD BE OMITTED F0E04430
TNZ PRLSX NO, IS THIS LINE SUPPRESSED F0E04440
REM REENTRY FOR ERROR ON STATEMENT F0E04450
PRL02 STQ BBUF21+1 SET FLAGS IN WORD 1 F0E04460
TXL PRL04+3,2,0 IS LINE BLANK F0E04470
TXL PRL03,2,18 NO, IS FULL CARD REQUESTED F0E04480
TSX LEVEL,4 *YES, INSERT MACRO LEVEL IN CC 81 - 84 F0E04490
REM COMPUTE ORIGIN AT END OF NONBLANK LINE F0E04500
PRL03 LDC PRL06+1,2 LOAD LENGTH OF LINE F0E04510
CAL* PRL05 LOAD NEXT WORD F0E04520
ERA BLANKS IS WORD BLANK F0E04530
TNZ PRL04 NO F0E04540
TXI *+1,2,1 YES, BUMP COUNT BACK ONE F0E04550
TXL *-4,2,-2 IS LINE ALL BLANKS (MINIMUM LENGTH OF LINEF0E04560
REM IS 3 WORDS, OCTAL, OCTAL+1 CANNOT BE F0E04570
REM NONBLANK IF REST OF LINE IS BLANK) F0E04580
AXT 0,2 YES, SET WORD COUNT FOR BLANK LINE F0E04590
REM END OF NONBLANK LINE FOUND F0E04600
PRL04 SXA *+1,2 COMPUTE NUMBER OF NONBLANK WORDS F0E04610
AXC **,4 INITIALIZE I/O COMMAND WORD COUNT F0E04620
SXD PRL06+1,4 F0E04630
REM REENTRY TO PRINT BLANK LINE F0E04640
TXL PRL06,2,0 IS LINE BLANK F0E04650
PRL05 CAL **,2 NO, MOVE NEXT WORD F0E04660
SLW BBUF21,2 INTO OUTPUT BUFFER F0E04670
TXI *+1,2,1 BUMP TO NEXT WORD F0E04680
TXL PRL05,2,-2 IS LINE MOVED F0E04690
REM BUFFER IS COMPLETE F0E04700
PRL06 TSX FPRINT,4 *INITIATE THIS TRANSMISSION F0E04710
PZE BBUF21+1,,** F0E04720
PRLSX AXT **,4 RELOAD CALLING LINKAGE F0E04730
CAL UNL1F SET FLAG TO DELETE NEXT LINE F0E04740
SLW UNLSF (TO PRINT UNLIST AND DELETE LIST) F0E04750
STZ OCTAL+1 CLEAR OCTAL BUFFER F0E04760
STZ OCTAL+2 F0E04770
STZ OCTAL+3 F0E04780
TRA 2,4 F0E04790
REM F0E04800
REM INSERT MACRO LEVEL INTO CARD COLUMNS 81 THRU 84 F0E04810
LEVEL SXA LEVLX,4 SAVE CALLING LINKAGE F0E04820
LDQ P2MSK LOAD FOLLOWING BLANKS F0E04830
CAL BCDBF+13 LOAD FLAGS F0E04840
ARS 8 SHIFT UP LEVEL NUMBER F0E04850
ANA Q127 MASK IN LEVEL NUMBER F0E04860
TZE LEVL1 IS THIS A MACRO GENERATED CARD F0E04870
TSX BCDCV,4 *YES, CONVERT TO DECIMAL F0E04880
LDQ BLANKS LOAD FOLLOWING BLANKS F0E04890
LGR 18 SHIFT OUT DIGIT F0E04900
CAL POINT LOAD DECIMAL POINT F0E04910
LGR 18 RIGHT ADJUST F0E04920
LEVL1 STQ NERAS HOLD CARD COLUMNS 81 THRU 84 F0E04930
CAL BCDBF+13 LOAD CARD WORD 14 F0E04940
ANA P1MSK MASK IN CARD COLUMNS 79 AMD 80 F0E04950
ORA NERAS COMBINE WITH CARD COLUMNS 81 THRU 84 F0E04960
SLW BCDBF+13 INSERT IN CARD WORD 14 F0E04970
LEVLX AXT **,4 RELOAD CALLING LINKAGE F0E04980
TRA 1,4 F0E04990
REM F0E05000
REM PUNCH ABSOLUTE TRANSFER CARD F0E05010
PCHTC SXA PCHTX,4 SAVE CALLING LINKAGE F0E05020
NZT LBLFLG IS CARD LABEL REQUESTED F0E05030
TRA PCHT1 NO F0E05040
AXT 8,4 YES, SAVE OLD SERIALIZATION F0E05050
CAL BMPBF+8,4 F0E05060
SLW BMPSV+8,4 F0E05070
CAL CIDBF+8,4 F0E05080
SLW CIDSV+8,4 F0E05090
TIX *-4,4,1 F0E05100
PCHT1 TSX PUNCH,4 *PUNCH LAST PARTIAL CARD F0E05110
CAL ERASE SET TRANSFER ADDRESS F0E05120
SLW PBUFF1 IN 9L ADDRESS F0E05130
NZT LBLFLG IS CARD LABEL REQUESTED F0E05140
TRA PCHTX NO F0E05150
LDQ PBUFF1 YES, LOAD TRANSFER ADDRESS F0E05160
LGL 21 LEFT ADJUST F0E05170
PXD ,0 F0E05180
AXT 5,4 CONVERT FIVE DIGITS TO OCTAL F0E05190
SXD PRNCI,4 AVOID PRINTING CARD ORIGIN F0E05200
ALS 3 F0E05210
LGL 3 F0E05220
TIX *-2,4,1 F0E05230
LGR 12 SHOVE 2 DIGITS OUT F0E05240
ORA L(TRA APPEND 'TRA' F0E05250
TSX IDENT,4 *CREATE CARD LABEL F0E05260
ZET LBLFG IS BINARY CARD SERIAL LISTING SUPPRESSED F0E05270
TSX PRNCS,4 *NO, PRINT CARD SERIAL NUMBER F0E05280
AXT 8,4 RESTORE OLD SERIALIZATION F0E05290
CAL BMPSV+8,4 F0E05300
SLW BMPBF+8,4 F0E05310
CAL CIDSV+8,4 F0E05320
SLW CIDBF+8,4 F0E05330
TIX *-4,4,1 F0E05340
PCHTX AXT **,4 RELOAD CALLING LINKAGE F0E05350
SXA STORX,4 F0E05360
TRA STR13 F0E05370
L(TRA BCI 1,TRA000 F0E05380
REM F0E05390
REM FORCE PUNCHING OF PARTIAL CARD F0E05400
PUNCH SXA STORX,4 SAVE CALLING LINKAGE F0E05410
ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E05420
TRA PNCH1+2 YES F0E05430
LXA STR03,4 NO, LOAD CARD WORD COUNT F0E05440
PNCH1 TXL STR04,4,21 IS PROGRAM CARD EMPTY F0E05450
REM (WORD COUNT RESET TO 19 FOR REL CARD) F0E05460
REM (OR 0 IF A MAIN PROGRAM HAS 0 BREAK) (24)F0E05465
TRA STR08 YES F0E05470
REM PUNCH ABSOLUTE CARD F0E05480
LXA STR10,4 LOAD CARD WORD COUNT F0E05490
NZT FULMD IS CARD FUL F0E05500
TXL STR11,4,21 NO, IS ABS CARD EMPTY F0E05510
TXI *+1,4,2 YES, CARD IS FUL OR ABS CARD IS EMPTY F0E05520
TXL STR13,4,23 IS FUL CARD EMPTY F0E05530
TRA STR14 YES F0E05540
REM F0E05550
REM ENTER BINARY INSTRUCTION INTO CARD IMAGE F0E05560
STORE SXA STORX,4 SAVE CALLING LINKAGE F0E05570
TXH *+3,4,** IS THIS FIRST INSTRUCTION THIS CARD F0E05580
SXD *-1,0 YES, RESET SWITCH F0E05590
TSX PRNCS,4 *PRINT CARD SERIAL NUMBER F0E05600
ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E05610
TRA STR10 YES F0E05620
SLN 1 NO, SET ADDRESS FLAG F0E05630
LXD INDIC,2 LOAD DECREMENT RELOCATION BITS F0E05640
STR01 AXT **,1 LOAD RELOCATION BIT COUNT F0E05650
TXL STR02,2,0 IS DECREMENT FIELD RELOCATABLE F0E05660
REM REENTRY FOR ADDRESS RELOCATION BITS F0E05670
TXI *+1,1,2 BUMP RELOCATION BIT COUNT FOR 10 OR 11 F0E05680
PXA ,2 RECALL RELOCATION BITS F0E05690
XCL F0E05700
PXD ,0 F0E05710
LGL 72,1 POSITION IN 8L OR 8R F0E05720
ORS RELBT INSERT IN 8L F0E05730
XCL F0E05740
ORS RELBT+1 OR 8R F0E05750
TRA STR02+1 F0E05760
REM REENTRY FOR NONRELOCATABLE DECREMENT F0E05770
STR02 TXI *+1,1,1 BUMP RELOCATION BIT COUNT FOR 0 F0E05780
SLT 1 IS ADDRESS DONE F0E05790
TRA *+4 YES F0E05800
LXA INDIC,2 NO, LOAD ADDRESS RELOCATION BITS F0E05810
TXH STR01+2,2,0 IS ADDRESS RELOCATABLE F0E05820
TXI *+1,1,1 NO, BUMP RELOCATION BIT COUNT FOR 0 F0E05830
TXL *+2,1,68 IS 8 ROW FULL OF RELOCATION BITS F0E05840
SLN 1 YES, SET FLAG F0E05850
SXA STR01,1 SAVE RELOCATION BIT COUNT F0E05860
STR03 AXT 20,4 LOAD CARD WORD COUNT F0E05870
CAL BINRY INSERT BINARY WORD F0E05880
SLW PBUFF1+24,4 INTO CARD IMAGE F0E05890
ACL CHKSM ADD INTO CHECKSUM F0E05900
SLW CHKSM F0E05910
SLT 1 IS 8 ROW (RELOCATION BITS) FULL F0E05920
TIX STR09+1,4,1 NO, IS CARD FULL F0E05930
TXI *+1,4,-1 YES BUMP CARD WORD COUNT FOR LAST WORD F0E05940
SXA STR03,4 F0E05950
REM REENTRY TO FORCE PUNCHING F0E05960
STR04 LAC STR03,4 LOAD CARD WORD COUNT F0E05970
TXI *+1,4,22 COMPUTE LENGTH OF PROGRAM CARD F0E05980
REM (WORD COUNT RESET TO 20, TRANSFER ADDRESS F0E05990
REM TO PUNCH REL CARD BY INIT) F0E06000
REM PUNCH PROGRAM CARD F0E06010
ZET MAINPF IS THIS MAIN PROGRAM F0E06020
TXI *+1,4,2 YES, BUMP LENGTH TO INCLUDE 7 ROW F0E06030
SXD PBUFF1,4 INSERT CARD WORD COUNT IN 9L DECREMENT F0E06040
PXA ,4 COMPUTE ORIGIN AT END OF CARD IMAGE F0E06050
ADD STR06 F0E06060
STA *+2 F0E06070
CAL PBUFF1 COMPUTE CHECKSUM F0E06080
ACL **,4 F0E06090
TIX *-1,4,1 F0E06100
SLW PBUFF1+1 F0E06110
TRA STR07 F0E06120
REM REENTRY FOR RELOCATABLE CARD F0E06130
STR05 PXD ,4 SET WORD COUNT F0E06140
ORA CTLWD LOAD ADDRESS, PREFIX PUNCH F0E06150
SLW PBUFF1 INTO 9L WORD F0E06160
ACL RELBT ADD RELOCATION BITS F0E06170
ACL RELBT+1 F0E06180
ACL CHKSM INTO CHECKSUM F0E06190
SLW PBUFF1+1 F0E06200
CAL RELBT MOVE RELOCATION BITS F0E06210
STR06 SLW PBUFF1+2 INTO 8 ROW F0E06220
CAL RELBT+1 F0E06230
SLW PBUFF1+3 F0E06240
REM REENTRY FOR PROGRAM CARD F0E06250
STR07 TSX WBINT,4 *WRITE CARD F0E06260
REM REENTRY FOR EMPTY CARD FORCED F0E06270
STR08 CAL P4 SET 9L PREFIX FOR PROGRAM CARD F0E06280
SLW PBUFF1 F0E06290
CAL CDCTR SET LOAD ADDRESS FOR NEXT CARD $F0E06300
STA CTLWD F0E06310
STZ CHKSM CLEAR WORKING CELLS F0E06320
STZ RELBT F0E06330
STZ RELBT+1 F0E06340
SXA STR01,0 RESET RELOCATION BIT COUNT F0E06350
STR09 AXT 22,4 RESET PROGRAM CARD WORD COUNT F0E06360
REM (RESET TO 20 FOR REL CARD BY INIT) F0E06370
REM REENTRY FOR PARTIAL CARD F0E06380
SXA STR03,4 F0E06390
TRA STORX F0E06400
REM F0E06410
REM PUNCH ABSOLUTE CARD F0E06420
STR10 AXT 22,4 LOAD CARD WORD COUNT F0E06430
ZET FULMD IS CARD FUL F0E06440
TXI STR12,4,2 YES F0E06450
CAL BINRY NO, INSERT BINARY WORD F0E06460
SLW PBUFF1+24,4 INTO CARD IMAGE F0E06470
ACL PBUFF1+1 ADD INTO CHECKSUM F0E06480
SLW PBUFF1+1 F0E06490
TIX STR15+1,4,1 IS CARD FULL F0E06500
SXA STR10,0 YES, RESET CARD WORD COUNT F0E06510
REM REENTRY TO FORCE PUNCHING OF ABS CARD F0E06520
STR11 LAC STR10,4 LOAD CARD WORD COUNT F0E06530
TXI *+1,4,22 COMPUTE LENGTH OF CARD F0E06540
PXD ,4 INSERT CARD WORD COUNT F0E06550
ORA PBUFF1 AND LOAD ADDRESS F0E06560
SLW PBUFF1 INTO 9L F0E06570
ACL PBUFF1+1 ADD INTO CHECKSUM F0E06580
SLW PBUFF1+1 F0E06590
TRA STR13 F0E06600
REM FUL CARD F0E06610
STR12 CAL BINRY INSERT BINARY WORD F0E06620
SLW PBUFF1+24,4 INTO CARD IMAGE F0E06630
TIX STR15,4,1 IS CARD FULL F0E06640
REM REENTRY FOR TCD, FORCE PUNCHING OF FUL CARD F0E06650
STR13 TSX WBINT,4 *WRITE CARD F0E06660
REM REENTRY FOR EMPTY CARD FORCED F0E06670
STR14 CAL CDCTR GET CURRENT LOAD ADDRESS F0E06680
NZT FULMD IS CARD FORMAT FULL F0E06690
STA PBUFF1 NO, SET LOAD ADDRESS IN 9L F0E06700
TSX SHIFT,4 *CONVERT TO OCTAL F0E06710
SLW CRDID+7 INSERT IN CARD ORIGIN MESSAGE F0E06720
AXT 22,4 RESET CARD WORD COUNT F0E06730
TRA STR15+1 F0E06740
REM REENTRY FOR FUL CARD F0E06750
STR15 TXI *+1,4,-2 BUMP CARD WORD COUNT BACK F0E06760
REM REENTRY FOR ABS CARD F0E06770
SXA STR10,4 RESET CARD WORD COUNT F0E06780
STORX AXT **,4 RELOAD CALLING LINKAGE F0E06790
TRA 1,4 F0E06800
REM F0E06810
REM WRITE CARD IMAGES ON BINARY OUTPUT/INTERMEDIATE TAPE F0E06820
WBINT SXA WBINX,4 SAVE CALLING LINKAGE F0E06830
AXC 1,1 LOAD BUFFER INDEX F0E06840
SXA *-1,1 FLIP INDEX F0E06850
CAL PBUFF1 HOLD PREFIX PUNCH F0E06860
AXT 27,4 LOAD BUFFER LENGTH F0E06870
LDQ PBUFF1+27,4 MOVE CARD IMAGE F0E06880
STQ* BOTBF,1 INTO MONITOR OUTPUT BUFFER F0E06890
STQ* BINBF,1 INTO INTERMEDIATE OUTPUT BUFFER F0E06900
STZ PBUFF1+27,4 CLEAR CARD IMAGE BUFFER F0E06910
TIX *-4,4,1 IS CARD COMPLETE F0E06920
STP PBUFF1 YES, RESTORE PREFIX PUNCH F0E06930
ZET OFLCFG ARE OFFLINE ROW BINARY CARDS REQUESTED F0E06940
ZET FULMD NO, IS CARD FULL F0E06950
TRA *+6 YES F0E06960
CAL D320 NO, LOAD COLUMN BINARY BITS F0E06970
ORS* BOTIO,1 INSERT IN 9L F0E06980
ACL* BOTBF+1,1 ADD INTO CHECKSUM F0E06990
ZET* BOTBF+1,1 IS THIS TRANSFER CARD F0E07000
SLW* BOTBF+1,1 NO, INSERT IN 9R F0E07010
TRA WBIN2 F0E07020
REM ERROR ON MONITOR BINARY TAPE F0E07030
WBIN0 TSX (TAPE),4 *WRITE END FILE ON STACK TAPE F0E07040
PZE ,,(WEFP) F0E07050
PZE BOTTAP,,-1 F0E07060
MZE *+1 F0E07070
TSX (TAPE),4 *WRITE ANOTHER END FILE ON STACK TAPE F0E07080
PZE ,,(WEFP) F0E07090
PZE BOTTAP,,-1 F0E07100
MZE *+1 F0E07110
TSX (TAPE),4 *UNLOAD STACK TAPE F0E07120
PZE UNLOD,,(SKBP) F0E07130
PZE BOTTAP,,-1 F0E07140
TSX SSJOB,2 SET SYSJOB AND GET FLAGBX $F0E07150
AXT 5,4 PREPARE TO PRINT 'CHANGE TAPE' F0E07160
RNT 200 IS EXECUTION ON F0E07170
TRA *+4 NO F0E07180
RIR 200 YES, RESET EXECUTION FLAG F0E07190
STI* (FGBX) F0E07200
AXT 8,4 APPEND 'EXECUTION DELETED' F0E07210
SXD *+2,4 INITIALIZE I/O PARAMETER F0E07220
TSX (PRNT),4 *PRINT 'CHANGE TAPE/EXECUTION DELETED' F0E07230
PZE CHANG,,** F0E07240
TSX SPACP,2 *SPACE PAGE F0E07250
LAC WBINT+1,2 LOAD INDEX OF BUFFER IN ERROR F0E07260
TSX (TAPE),4 *REWRITE ERROR RECORD F0E07270
WBIN1 PZE BOTIO,2,(WBNP) (RESET TO (WROW) FOR ROW BINARY CARDS) F0E07280
PZE BOTTAP,,-1 F0E07290
PZE WBIN0 F0E07300
CLA Q1 RESET BINARY OUTPUT RECORD COUNT F0E07310
STA BNRECT F0E07320
REM STACK BINARY OUTPUT F0E07330
WBIN2 TSX (TAPE),4 *WRITE BINARY OUTPUT TAPE F0E07340
PZE BOTIO,1,(WBNP) (RESET TO (WROW) FOR ROW BINARY CARDS) F0E07350
BOTTAP PZE ,,MBNTAP F0E07360
PZE WBIN0 F0E07370
CAL BNRECT BUMP BINARY OUTPUT RECORD COUNT F0E07380
ADD Q1 F0E07390
STA BNRECT F0E07400
NZT CRDFLG ARE ONLINE CARDS REQUESTED F0E07410
TRA WBIN3 NO F0E07420
ZET ONLCFG YES, ARE ONLINE ROW BINARY CARDS REQUESTEDF0E07430
ZET FULMD NO, IS THIS CARD FULL F0E07440
TRA *+6 YES F0E07450
CAL D320 NO, LOAD COLUMN BINARY BITS F0E07460
ORS* BINIO,1 INSERT IN 9L F0E07470
ACL* BINBF+1,1 ADD INTO CHECKSUM F0E07480
ZET* BINBF+1,1 IS THIS TRANSFER CARD F0E07490
SLW* BINBF+1,1 NO, INSERT IN 9R F0E07500
TSX (TAPE),4 *WRITE BINARY INTERMEDIATE TAPE F0E07510
PZE BINIO,1,(WBNP) F0E07520
BNTAP PZE BLABL,,TINTAP F0E07530
PZE *+2 F0E07540
TRA WBIN3 F0E07550
REM ERROR ON PUNCH TAPE F0E07560
TSX (TAPE),4 *UNLOAD BAD TAPE F0E07570
PZE UNLOD,,(SKBP) F0E07580
PZE BNTAP,,-1 F0E07590
TSX (PRNT),4 *LET OPERATOR KNOW F0E07600
PZE DELOL,,9 F0E07610
TSX SPACP,2 *LET OPERATOR DECIDE F0E07620
STZ CRDFLG RESET ONLINE CARDS FLAG F0E07630
WBIN3 ZET LBLFLG IS CARD LABEL REQUESTED F0E07640
TSX BMPID,4 *YES, INCREMENT SERIALIZATION F0E07650
WBINX AXT **,4 RELOAD CALLING LINKAGE F0E07660
TRA 1,4 F0E07670
REM F0E07680
REM CREATE CARD LABEL F0E07690
IDENT SXA IDENX,4 SAVE CALLING LINKAGE F0E07700
STQ ERASE SAVE LOW ORDER PORTION OF LABEL F0E07710
XCL RECALL HIGH ORDER PORTION OF LABEL F0E07720
AXT 1,4 SET CHARACTER COUNT TO LEFTMOST CHARACTER F0E07730
REM REENTRY TO CREATE NEXT DIGIT F0E07740
IDEN1 PXD ,0 F0E07750
LGL 6 LOAD CHARACTER F0E07760
LAS BLANK IS IT BLANK F0E07770
TRA *+2 NO F0E07780
PXD ,0 YES, DELETE IT F0E07790
SLW CIDBF+8,4 SAVE FOR LISTING F0E07800
LGR 4 GET ZONE F0E07810
PAX ,2 INTO XR2 F0E07820
PXD ,0 F0E07830
LGL 4 GET DIGITS F0E07840
PAX ,1 INTO XR1 F0E07850
CAL ZONER,2 PICK UP ZONE BITS (12,11,0) F0E07860
ANA Q7 MASK IN NO ZONE F0E07870
ALS 9 POSITION ZONE BITS F0E07880
ORA DIGIT,1 PICK UP DIGIT BITS (0,1,2,3,4,5,6,7,8,9) F0E07890
SLW BMPBF+8,4 INSERT NEXT CHARACTER F0E07900
TXI *+1,4,1 BUMP CHARACTER COUNT RIGHT ONE CHARACTER F0E07910
TXL IDEN1,4,6 IS WORD COMPLETE F0E07920
TXH *+2,4,7 YES, IS SECOND WORD STARTED F0E07930
LDQ ERASE NO, LOAD SECOND WORD F0E07940
TXL IDEN1,4,8 HAVE 8 CHARACTERS BEEN CREATED F0E07950
TSX PAKID,4 *YES, INSERT THEM IN LABEL F0E07960
IDENX AXT **,4 RELOAD CALLING LINKAGE F0E07970
TRA 1,4 F0E07980
REM F0E07990
REM INCREMENT CARD SERIALIZATION F0E08000
BMPID SXA BMPIX,4 SAVE CALLING LINKAGE F0E08010
AXT 8,4 PREPARE TO BUMP 8 DIGITS (CC 73 - 80) F0E08020
CAL BMPBF+8,4 LOAD NEXT MORE SIGNIFICANT DIGIT F0E08030
PAI F0E08040
RFT 6000 IS IT NONNUMERIC F0E08050
TRA BMPI2 YES F0E08060
RNT 1000 MAYBE, IS THERE A ZERO PUNCH F0E08070
TRA *+3 NO F0E08080
RFT 0777 YES, IS THERE A COCOLUMNAR DIGIT PUNCH F0E08090
TRA BMPI2 YES, IT IS NONNUMERIC F0E08100
RNT 0001 NO, IS DIGIT 9 F0E08110
TRA BMPI1 NO F0E08120
CAL DIGIT YES, PICK UP ZERO F0E08130
SLW BMPBF+8,4 RESET THIS ORDER DIGIT F0E08140
STZ CIDBF+8,4 F0E08150
TIX BMPID+2,4,1 HAVE ALL DIGITS BEEN RESET F0E08160
TRA BMPI2 YES F0E08170
BMPI1 ARS 1 BUMP THIS DIGIT F0E08180
SLW BMPBF+8,4 F0E08190
CAL CIDBF+8,4 F0E08200
ADD Q1 F0E08210
SLW CIDBF+8,4 F0E08220
BMPI2 TSX PAKID,4 *INSERT DIGITS IN CARD LABEL F0E08230
BMPIX AXT **,4 RELOAD CALLING LINKAGE F0E08240
TRA 1,4 F0E08250
REM F0E08260
REM PACK LABEL INTO CARD IMAGE BUFFER F0E08270
PAKID SXA PAKIX,4 SAVE CALLING LINKAGE F0E08280
AXT 3,4 PREPARE TO GENERATE 3 ID WORDS F0E08290
AXT 0,2 PREPARE TO PACK 3 CHARACTERS IN EACH WORD F0E08300
CAL BMPBF+7,2 PACK LEFTMOST CHARACTER F0E08310
ALS 12 F0E08320
ORA BMPBF+6,2 CENTERMOST CHARACTER F0E08330
ALS 12 F0E08340
ORA BMPBF+5,2 RIGHTMOST CHARACTER F0E08350
SLW IDBUFF+3,4 IN NEXT WORD F0E08360
TXI *+1,2,3 BUMP CHARACTER COUNT TO NEXT WORD F0E08370
TIX PAKID+3,4,1 HAVE ALL THREE WORDS BEEN PACKED F0E08380
NZT UNLSF YES, IS UNLIST FLAG ON F0E08390
NZT LBLFG NO, IS LABEL DELETED F0E08400
TRA PAKIX YES F0E08410
AXT 0,4 NO, PREPARE TO PACK SIX CHARACTERS F0E08420
CAL CIDBF+7 LOAD FIRST CHARACTER F0E08430
ALS 6 F0E08440
ORA CIDBF+6,4 APPEND NEXT FIVE CHARACTERS F0E08450
TXI *+1,4,1 F0E08460
TXL *-3,4,4 F0E08470
SLW CRDID+3 INSERT IN WORD FOUR F0E08480
CAL CIDBF+1 LOAD CHARACTER SEVEN F0E08490
ALS 6 F0E08500
ORA CIDBF APPEND CHARACTER EIGHT F0E08510
LDQ BLANKS APPEND FOLLOWING BLANKS F0E08520
LGL 24 LEFT ADJUST F0E08530
SLW CRDID+4 INSERT IN WORD FIVE F0E08540
AXT -1,4 SET NEW CARD SERIAL NUMBER SWITCH F0E08550
SXD STORE+1,4 F0E08560
CAL LBLDF DELETE FIRST CARD FLAG F0E08570
ANS LBLFG F0E08580
TRA *+2 F0E08590
PAK01 SXA PAKIX,4 ENTRY FOR BES, BSS WITH EMPTY FIELD F0E08600
TRA *+5 PREPARE TO PRINT CARD LABEL $F0E08610
CAL LOCTR LOAD PROGRAM COUNTER F0E08620
ANA ADDMK DELETE RELOCATION BIT F0E08630
ERA CDCTR IS CARD UNDER CONTROL OF LOC F0E08640
TRA PAKPC NO $F0E08650
CAL CDCTR YES, LOAD ORIGIN OF NEXT CARD F0E08660
TSX SHIFT,4 *CONVERT TO OCTAL F0E08670
SLW CRDID+7 INSERT IN WORD 6 F0E08680
AXT 8,4 PREPARE TO APPEND CARD ORIGIN TO LABEL F0E08690
SXD PRNCI,4 INITIALIZE PARAMETER WORD COUNT F0E08700
PAKIX AXT **,4 RELOAD CALLING LINKAGE F0E08710
TRA 1,4 F0E08720
LBLDF OCT 777777777776 F0E08730
REM F0E08740
REM PRINT CARD SERIAL NUMBER F0E08750
PRNCS ZET UNLSF IS UNLIST FLAG SET F0E08760
TRA PRNCX+1 YES F0E08770
TRA PAK01+2 NO $F0E08780
TSX FPRINT,4 *PRINT BLANK LINE F0E08790
PZE F0E08800
TSX FPRINT,4 *PRINT CARD SERIAL NUMBER F0E08810
PRNCI PZE CRDID,,** F0E08820
PRNCX AXT **,4 RELOAD CALLING LINKAGE F0E08830
TRA 1,4 F0E08840
REM F0E08850
REM SUBROUTINE TO ASSEMBLE OCTAL DEFINITIONS F0E08860
SHIFT SXA SHIFX,4 SAVE CALLING LINKAGE F0E08870
LGR 18 LEFT ADJUST LOCATION $F0E08880
STA DCBFG INITIALIZE LOC. OF NEXT REFERENCE $F0E08890
AXT ,0 PATCH SPACE $F0E08900
AXT 6,4 SCAN SIX OCTAL DIGITS $F0E08910
ZAC $F0E08920
LGL 3 LOAD NEXT DIGIT F0E08930
TNZ *+2 DOES IT EXIST F0E08940
TIX *-2,4,1 NO, TRY AGAIN F0E08950
LGR 3 SAVE NONZERO DIGIT F0E08960
CAL BLANKS APPEND LEADING BLANKS F0E08970
ALS 3 CREATE ZONE F0E08980
LGL 3 SHIFT IN DIGIT F0E08990
TIX *-2,4,1 IS OCTAL DEFINITION COMPLETE F0E09000
SHIFX AXT **,4 YES, RELOAD CALLING LINKAGE F0E09010
TRA 1,4 F0E09020
REM F0E09030
REM F0E09040
REM F0E09050
REM INPUT/OUTPUT SUBROUTINES F0E09060
REM F0E09070
REM UNPACK INTERMEDIATE BUFFER F0E09080
INPUT SXA INPTX,4 SAVE CALLING LINKAGE F0E09090
AXT **,1 LOAD BLOCK WORD COUNT F0E09100
TXH *+2,1,** IS BLOCK EXHAUSTED F0E09110
TSX RDTIT,4 *YES, READ NEXT BLOCK F0E09120
LXA RDTIT+1,2 LOAD BUFFER INDEX F0E09130
AXT INPRCL,4 LOAD RECORD LENGTH F0E09140
CAL* BCD55+1,2 MOVE NEXT WORD F0E09150
SLW BCDBF+INPRCL,4 INTO WORKING BUFFER F0E09160
TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0E09170
TIX *-3,4,1 IS RECORD COMPLETE F0E09180
SXA INPUT+1,1 YES, SAVE NEW BLOCK WORD COUNT F0E09190
CAL BCDBF+13 SAVE PASS ONE FLAGS FOR ONE CARD DUP F0E09200
SLW DELFLG F0E09210
INPTX AXT **,4 RELOAD CALLING LINKAGE F0E09220
TRA 1,4 F0E09230
REM F0E09240
REM READ INTERMEDIATE TAPE F0E09250
RDTIT SXA RDTTX,4 SAVE CALLING LINKAGE F0E09260
AXC 1,1 LOAD BUFFER INDEX F0E09270
SXA *-1,1 FLIP BUFFER INDEX F0E09280
DUPSW TXL RDTT2,4,-1 IS THIS LAST CARD IN DUP F0E09290
AXT -1,4 YES, RESET SWITCH F0E09300
SXD DUPSW,4 F0E09310
TSX (TAPE),4 *CHECK LAST BUFFER F0E09320
PZE INTCK,2,-1 F0E09330
TRA RDTT3 F0E09340
REM CONTINUE LOOKAHEAD BUFFERING F0E09350
RDTT2 TSX (TAPE),4 *LOAD NEXT BUFFER F0E09360
PZE BCD55,1,(RBEP) F0E09370
PZE INTAP,2,-1 F0E09380
PZE TAPERR F0E09390
REM REENTRY FOR LAST CARD IN DUP F0E09400
RDTT3 CLA BCD55+1,1 LOAD BUFFER ORIGIN F0E09410
PAX ,4 F0E09420
SXD *+4,4 F0E09430
CLA* ITSCH,2 LOAD LAST+1 WORD READ F0E09440
PAC ,4 F0E09450
TXL SWING,4,0 WAS END OF INTERMEDIATE TAPE SENSED F0E09460
TXI *+1,4,** NO, COMPUTE LENGTH OF RECORD F0E09470
SXD INPUT+2,4 RESET TEST FOR END OF BUFFER F0E09480
RDTTX AXT **,4 RELOAD CALLING LINKAGE F0E09490
AXT 0,1 RESET BLOCK LENGTH F0E09500
SXA INPUT+1,0 F0E09510
TRA 1,4 F0E09520
TTL PASS TWO CONTROL F0E09530
START NOP LEFT BLANK FOR LATER USE AS TEMPORARY STOR$F0E09560
LXA EFLST,4 INITIALIZE LENGTH OF BENIGN ERROR LIST F0E09570
SXD PRL00,4 F0E09580
LXD EFLST,4 RESET STRAY ERROR FLAGS LEFT ON IN PASS 1 F0E09590
STZ EFLST,4 F0E09600
TIX *-1,4,1 F0E09610
STZ BHEAD RESET HANGING HEADING CHARACTER F0E09620
LXD SYMSIZ,4 BUMP COUNT PAST 0 F0E09630
TXI *+1,4,2 IN CASE OF UNDEFINED SYMBOLS F0E09640
SXD SYMSIZ,4 F0E09650
TXI *+1,4,-LSMTBM+LUDTBM+1 COMPUTE LENGTH OF REF TABLE F0E09660
SXD EREF4+3,4 SET TEST FOR REFERENCE TABLE OVERFLOW F0E09670
LDC SYMSIZ,4 INITIALIZE TEST F0E09680
SXD SUDS1,4 FOR END OF SEARCH OF UNDEF SYMBOL TABLE F0E09690
TXI *+1,4,1 F0E09700
SXD SSYM1,4 FOR END OF SEARCH OF SYMBOL TABLE F0E09710
TXI *+1,4,-LUDTBM COMPUTE END OF UNDEFINED SYMBOL TABLE F0E09720
TXH *+5,4,-LSMTBM IS THIS LONGER THAN SPACE AVAILABLE F0E09730
AXT SSYMX,4 YES, DELETE SYMBOLIC REFERENCE TABLE F0E09740
SXA EREF0,4 F0E09750
SXD PREF9,0 SET SWITCH TO PRINT TABLE DELETED F0E09760
AXT -LSMTBM,4 RESET END OF UNDEFINED SYMBOL TABLE F0E09770
SXD SUDS1+5,4 FOR TEST FOR UNDEF SYMBOL TABLE OVERFLOW F0E09780
SXD EREF4,4 FOR TEST FOR END OF UNDEF REFERENCE TABLE F0E09790
PXA ,4 F0E09800
PAC ,4 F0E09810
TXI *+1,4,SYMTBL+1 COMPUTE ORIGIN OF SYMBOLIC REF TABLE F0E09820
SXA EREF0+1,4 F0E09830
SXA EREF1+2,4 F0E09840
SXA EREF1+5,4 F0E09850
SXA EREF1+7,4 F0E09860
SXA EREF2,4 F0E09870
SXA EREF2+5,4 F0E09880
SXA EREF3+2,4 F0E09890
TXL *+7,4,SYMTBL+LSMTBM/2 TEST POINTER TABLE OVERFLOW $F0E09900
AXT -1,4 YES. DELETE ALL REFERENCES TO (32)F0E09910
SXD K001,4 DEFINED AND UNDEFINED SYMBOLS. (32)F0E09920
NOP PRUDS-2,4 (SXD TO DELETE DEFINED SYMBOL NAMES.)(32)F0E09930
AXT SSYMX,4 SUPPRESS CREATION OF REF. TABLE. (32)F0E09940
SXA EREF0,4 F0E09950
SXD PREF9,0 SET SWITCH TO PRINT TABLE DELETED F0E09960
LAC EREF0+1,4 LOAD ORIGIN OF POINTER TABLE F0E09970
TNX *+3,4,-VECTOR COMPUTE SPACE AVAILABLE TO REFERENCE TABLEF0E09980
STZ VECTOR,4 CLEAR SPACE FOR REFERENCE TABLE F0E09990
TIX *-1,4,1 F0E10000
LDC LITSIZ,4 INITIALIZE TEST F0E10010
TXI *+1,4,-1 F0E10020
SXD SLIT1,4 FOR END OF SEARCH OF LITERAL TABLE F0E10030
LXD LITSIZ,4 LOAD COUNT OF LITERAL TABLE F0E10040
SXD *+3,4 INITIALIZE PROGRAM BREAK COMPUTATION F0E10050
LXA PBUFF1+2,4 LOAD TOP OF VECTOR, PROLOG AND CODING F0E10060
SXD SLIT3,4 INITIALIZE COMPUTATION FOR LOC OF LITERAL F0E10070
TXI *+1,4,** BUMP BY LENGTH OF LITERAL TABLE F0E10080
SXA PBUFF1+2,4 RESET PROGRAM BREAK F0E10090
SXA PRGBK,4 F0E10100
SXA LOCTR,0 RESET PROGRAM COUNTER F0E10110
SXA CDCTR,0 RESET CARD ORIGIN COUNTER F0E10120
ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E10130
TRA PTCHY YES, GO TO PATCH (23)F0E10140
LXD PBUFF1+2,4 LOAD TRANSFER VECTOR LENGTH F0E10150
SXA INIT1,4 INITIALIZE TEST FOR TRANSFER VECTOR F0E10160
CLA BIN01 LOAD ONLINE COLUMN BINARY PARAMETER F0E10170
NZT ONLCFG ARE ONLINE ROW BINARY CARDS REQUESTED F0E10180
SLW BIN01 YES, RESET PARAMETER TO ONLINE ROW BINARY F0E10190
ZET OFLCFG ARE OFFLINE ROW BINARY CARDS REQUESTED F0E10200
TRA *+4 NO F0E10210
AXT (WROW),4 YES, RESET PARAMETER TO OFFLINE ROW BINARYF0E10220
SXD WBIN1,4 F0E10230
SXD WBIN2+1,4 F0E10240
ZET LBLFLG IS CARD LABEL REQUESTED F0E10250
TRA *+4 YES F0E10260
SXD BOTIO,0 NO, RESET I/O COMMANDS F0E10270
SXD BOTIO+2,0 TO OMIT WRITING CARD LABELS F0E10280
TRA STRT1 F0E10290
CAL PGHDNG+1 LOAD LABEL, 5 CHARACTERS FROM WORD 1 F0E10300
LDQ PGHDNG+2 1 CHARACTER FROM WORD 2 F0E10310
LGL 6 LEFT ADJUST F0E10320
LDQ Q0 DELETE CC 8 - 9 F0E10330
TSX IDENT,4 *INSERT IN CARD LABEL F0E10340
STRT1 STL (SCHU)+FINTAP RESET POSSIBLE HANGING END FILES F0E10350
STL (SCHU)+SINTAP F0E10360
STZ TTLFG RESET PASS 1 SUBHEADING F0E10370
SXA PAGENO,0 RESET PAGE NUMBER F0E10380
SXA PAGCNT,0 EJECT PAGE F0E10390
TRA READ0 F0E10400
REM F0E10410
REM END OF INTERMEDIATE TAPE SENSED F0E10420
SWING TSX (TAPE),4 *REWIND INTERMEDIATE TAPE F0E10430
PZE REWND,,(SKBP) F0E10440
PZE INTAP,2,-1 F0E10450
TXH ENDFA,2,0 WAS THIS SECOND INTERMEDIATE TAPE F0E10460
AXT -1,2 NO, RESET INTERMEDIATE TAPE INDEX F0E10470
SXA READ1,2 F0E10480
TRA READ0 F0E10490
REM F0E10500
REM CARD IS WITHIN RANGE OF DUP F0E10510
DUPCD AXT **,1 LOAD REMAINING RANGE OF DUP+1 F0E10520
TXI *+1,1,-1 BUMP RANGE OF DUP F0E10530
SXA DUPCD,1 RESET REMAINDER OF DUP F0E10540
DUPC0 AXT **,4 SET LENGTH OF LISTING LINE TO LONG FOR F0E10550
SXD IOLST,4 FIRST ITERATION, SHORT FOR SUBSEQUENT F0E10560
TXH READ2,1,1 IS REMAINDER OF DUP LONGER THAN ONE CARD F0E10570
TXH DUPC1,4,** NO, IS THIS ITERATION OF ONE CARD DUP F0E10580
TXL *+3,1,0 NO, IS THIS LAST CARD IN DUP F0E10590
SXD DUPSW,0 YES, BYPASS LOOKAHEAD BUFFERING F0E10600
TRA READ2 F0E10610
REM RANGE OF DUP IS EXHAUSTED F0E10620
AXT 5,4 RESET LENGTH OF LISTING LINE TO SHORT F0E10630
SXA DUPC0,4 FOR SUCCESSIVE ITERATIONS OF DUP F0E10640
SXD IOLST,4 F0E10650
DUPC1 AXT **,1 LOAD RANGE OF DUP F0E10660
TXL DUPC3+1,1,0 IS DUP EXHAUSTED F0E10670
TXL *+5,1,1 NO, IS DUP LONGER THAN ONE CARD F0E10680
TSX (TAPE),4 *YES, BACKSPACE TO BEGINNING OF DUP F0E10690
PZE SKDUP,,(SKBP) F0E10700
PZE INTAP,2,-1 F0E10710
TRA *+4 F0E10720
REM ONE CARD DUP F0E10730
SXD DUPC0+3,0 SET ONE CARD DUP ITERATION SWITCH F0E10740
CAL DELFLG MOVE PASS ONE FLAGS F0E10750
SLW BCDBF+13 TO WORKING BUFFER F0E10760
REM REENTRY FOR MULTICARD DUP F0E10770
TXI *+1,1,1 BUMP TO RANGE+1 F0E10780
SXA DUPCD,1 RESET REMAINING RANGE OF DUP+1 F0E10790
DUPC2 AXT **,1 LOAD ITERATIONS OF DUP F0E10800
TXI *+1,1,-1 BUMP DOWN F0E10810
SXA DUPC2,1 RESET ITERATIONS OF DUP F0E10820
TXH *+2,1,0 IS DUP EXHAUSTED F0E10830
SXA DUPC1,0 YES, SET SWITCH F0E10840
DUPC3 TRA ** TO READ0 MULTICARD, CNTRL ONE CARD DUP F0E10850
REM DUP IS COMPLETE F0E10860
STZ DUPMD RESET FLAG F0E10870
REM F0E10880
REM INITIALIZE LOOKAHEAD BUFFERING F0E10890
READ0 LXA READ1,2 LOAD INTERMEDIATE TAPE INDEX F0E10900
TSX RDTIT,4 *LOAD FIRST BUFFER F0E10910
REM CONTINUE LOOKAHEAD BUFFERING F0E10920
READ1 AXT **,2 LOAD INTERMEDIATE TAPE INDEX F0E10930
ZET DUPMD IS NEXT CARD WITHIN RANGE OF DUP F0E10940
TRA DUPCD YES F0E10950
AXT 19,4 NO, SET LENGTH OF LISTING LINE F0E10960
SXD IOLST,4 TO LONG LINE F0E10970
REM REENTRY FOR CARD WITHIN RANGE OF DUP F0E10980
READ2 TSX INPUT,4 *LOAD NEXT BUFFER F0E10990
REM REENTRY FOR LAST CARD IN RANGE OF DUP F0E11000
CNTRL SLF RESET FLAGS F0E11010
STZ INDIC RESET RELOCATABLE FIELD INDICATOR F0E11020
STZ SYMB2 RESET HIGH ORDER HALF OF ELEMENT F0E11030
CLA LOCTR UPDATE PROGRAM COUNTER F0E11040
STO ADDRS F0E11050
LDI BCDBF+13 LOAD FLAGS $F0E11060
ZSD PMCSW RESET MACRO GENERATED CARD SWITCH $F0E11070
AXT -1,4 $F0E11080
RFT 40 IS THIS MACRO GENERATED $F0E11090
SXD PMCSW,4 YES SET MACRO GENERATED SWITCH $F0E11100
TSX SETUP,4 *SET UP VARIABLE FIELD $F0E11110
TRA PHASE+4 CARD IS COMMENTS CARD $F0E11120
TRA OPERR **OP FIELD IS IN ERROR $F0E11130
RFT 1 IS PHASE ERROR FLAGGED $F0E11140
TRA PHASE **YES, OMIT PROCESSING OF CARD $F0E11150
RFT 20 NO, IS THIS UNDEFINED PSEUOOPERATION $F0E11160
OPERR STL OPRFG YES, SET FLAG $F0E11170
REM PUNCH PROGRAM CARD, PUBLISH TRANSFER VECTOR F0E11180
INIT0 TXH INIT5+2,4,-1 IS INITIALIZATION COMPLETE F0E11190
ZET ABSFLG NO, IS ASSEMBLY RELOCATABLE F0E11200
TRA INIT5 NO F0E11210
LDI OPBIN YES, LOAD OPCODE OR PSEUDOOP TRANSFER F0E11220
NZT OPRFG IS THIS UNDEFINED PSEUDOOPERATION F0E11230
RFT 100000 NO, IS THIS DEFINED MACHINE INSTRUCTION F0E11240
TRA *+3 YES, PUNCH OUT PROGRAM CARD F0E11250
LFT 400000 NO, MAY THIS PSEUDOOP PRECEDE ENTRY CARD F0E11260
TRA PSOPT YES, HOLD UP ON PROGRAM CARD F0E11270
REM AFTER ALL ENTRY CARDS INITIALIZATION MAY PROCEDE F0E11280
ZET MAINPF IS THIS A MAIN PROGRAM F0E11290
NZT LBLFG YES, IS CARD LABEL LISTING REQUESTED F0E11300
TRA *+5 NO F0E11310
TSX PRNCS,4 *YES, PRINT CARD LABEL F0E11320
TSX PRLST,4 *PRINT 'PROGRAM CARD' F0E11330
IOCD PCTIT,,4 F0E11340
SXD INIT4,0 FORCE BLANK LINE F0E11350
AXT 20,4 F0E11360
TRA INITR $F0E11370
INITS ZSA ADDRS (24)F0E11380
TSX PUNCH,4 *PUNCH PROGRAM CARD F0E11390
AXT 19,4 F0E11400
SXD PNCH1,4 RESET FULL CARD TEST FOR RELOCATABLE F0E11410
AXT 20,4 F0E11420
SXD STR04+1,4 RESET COMPUTATION FOR LENGTH OF REL CARD F0E11430
AXT STR05,4 RESET TRANSFER ADDRESS FOR REL CARD F0E11440
SXA STR04+1,4 BYPASSING PROGRAM CARD ROUTINE F0E11450
CAL BCDBF SAVE LOCATION FIELD F0E11460
TRA INITA $F0E11470
INIT1 AXC **,1 LOAD LENGTH OF TRANSFER VECTOR F0E11480
TXL INIT3+1,1,0 IS TRANSFER VECTOR EMPTY F0E11490
SXD INIT3,1 SET END OF PUBLISH LOOP F0E11500
TSX PRLST,4 *PRINT BLANK LINE F0E11510
PZE F0E11520
TSX PRLST,4 *PRINT TRANSFER VECTOR TITLE F0E11530
IOCD TVTIT,,5 F0E11540
SXD INIT4,0 FORCE BLANK LINE F0E11550
AXT 0,1 START AT BOTTOM OF LIST F0E11560
INIT2 CAL VECTOR,1 LOAD NEXT NAME IN TRANSFER VECTOR F0E11570
SLW BCDBF INSERT IN LISTING F0E11580
SLW BINRY INSERT IN BINARY WORD F0E11590
AXT 6,4 SET LENGTH OF LINE F0E11600
SXD IOLST,4 TO PRINT OCTAL EXPANSION AND VECTOR NAME F0E11610
TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD F0E11620
TXI *+1,1,-1 BUMP TO NEXT NAME F0E11630
INIT3 TXH INIT2,1,** IS TRANSFER VECTOR EXHAUSTED F0E11640
TRA INITE YES, GO TEST FOR EVEN $F0E11650
SLW BCDBF F0E11660
NZT MAINPF IS THIS MAIN PROGRAM F0E11670
NZT SEPFLG YES, IS STANDARD ERROR PROCEDURE REQUESTD F0E11680
TRA INITC NO $F0E11690
CAL LOCTR YES, COMPUTE LINKAGE DIRECTOR F0E11700
ANA ADDMK F0E11710
SSM APPEND RELOCATION BIT F0E11720
STO LINKG F0E11730
TSX PRLST,4 *PRINT BLANK LINE F0E11740
PZE F0E11750
TSX PRLST,4 *PRINT LINKAGE TITLE F0E11760
IOCD LDTIT,,5 F0E11770
SXD INIT4,0 FORCE BLANK LINE F0E11780
AXT 5,4 SET LENGTH OF LINE F0E11790
SXD IOLST,4 TO PRINT OCTAL EXPANSION F0E11800
STZ BINRY PREPARE PZE F0E11810
TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD F0E11820
CAL ENTNM INSERT MAIN ENTRY POINT NAME $F0E11830
SLW BINRY F0E11840
TRA INITB $F0E11850
INIT4 TXL *+3,4,-1 SHOULD A BLANK LINE BE PRINTED F0E11860
TSX PRLST,4 *YES, PRINT BLANK LINE F0E11870
PZE F0E11880
AXT 19,4 RESET LENGTH OF LISTING LINE F0E11890
SXD IOLST,4 TO LONG LINE F0E11900
CLA LOCTR UPDATE PROGRAM COUNTER F0E11910
STO ADDRS F0E11920
CAL OPCOD RELOAD OP CODE F0E11930
LXD VRFLD,2 RELOAD WORD COUNT F0E11940
LXA VRFLD,1 RELOAD CHARACTER COUNT F0E11950
INIT5 SXD INIT0,0 RESET SWITCH F0E11960
SXD LBL02,0 PERMIT LBL TO PUNCH PARTIAL CARD F0E11970
REM END OF INITIALIZATION F0E11980
STZ TYPKF RESET DISK COMMAND FLAG F0E11990
STZ TYPDF RESET TYPE D SENSE OPERATION FLAG F0E12000
STZ TYPCF RESET COUNT FIELD INSTRUCTION FLAG F0E12010
ZET OPRFG IS THIS UNDEFINED OPERATION F0E12020
TRA INST2 YES F0E12030
ZET ETCMD NO, DOES THIS CARD FOLLOW CALL OR VFD F0E12040
TRA ETCOP YES F0E12050
STZ BINRY NO, CLEAR BINARY MACHINE OPERATION F0E12060
NZT OPBIN IS OPCODE DEFINED F0E12070
TRA *+5 NO F0E12080
LDI OPBIN YES, LOAD OPCODE F0E12090
RFT 100000 IS THIS PSEUDOOPERATION F0E12100
TRA INT00 NO F0E12110
TRA PSOPT YES F0E12120
REM OPERATION IS UNDEFINED F0E12130
REM CHECK FOR OPERATION DEFINED BY TAPENO CHARACTER F0E12140
ANA ADTMK MASK IN CC 11 - 13 F0E12150
LAS T3 IS IT GREATER THAN H F0E12160
ANA Q4095 YES, MASK IN CC 12 - 13 F0E12170
TZE *+2 IS THIS VALID TAPNO CHARACTER F0E12180
TRA INST1 NO F0E12190
CAL OPCOD YES, RECALL OPCODE F0E12200
LGR 18 HOLD TAPENO CHARACTER F0E12210
ALS 18 LEFT ADJUST THREE LETTER OPCODE F0E12220
SLW ERASE F0E12230
CAL BHEAD LOAD HEADING CHARACTER F0E12240
ALS 24 LEFT ADJUST F0E12250
LGL 6 APPEND TAPENO CHARACTER F0E12260
SLW SYMBL F0E12270
TSX SSYMT,4 *EVALUATE CHARACTER F0E12280
SLT EXPRR IS CHARACTER UNDEFINED F0E12290
TRA *+3 NO F0E12300
STZ ERRFU YES, RESET ERROR FLAG F0E12310
TRA INST1 F0E12320
ANA ADDMK DELETE EXTRANEOUS FLAGS F0E12330
SLW BERAS SAVE UNIT ADDRESS F0E12340
ANA Q7680 MASK IN CHANNEL NUMBER F0E12350
TZE *+3 DOES IT EXIST F0E12360
ALS 3 YES, POSITION IT AS FOURTH CHARACTER F0E12370
ORA T2 APPEND ZONE BITS F0E12380
ORA ERASE APPEND THREE CHARACTER OPCODE F0E12390
SLW OPCOD SAVE F0E12400
CAL ERASE LOAD THREE CHARACTER OPCODE F0E12410
TSX SOPTB,4 *FIND CORRESPONDING OPCODE F0E12420
TRA INST0 NOT FOUND, MAY BE CHANNEL OPERATION F0E12430
RFT 100000 IS THIS MACHINE OPERATION F0E12440
LFT 000001 YES, IS THIS TYPE B I/O, TYPE E PSE, MSE F0E12450
TRA INST0 NO, CHANNEL OPERATION MAY BE UNRELATED $F0E12460
LFT 001700 YES, IS THIS TYPE E (BTT, ETT, RDC) F0E12470
STI OPBIN NO, SET TYPE B SWITCH F0E12480
INST0 CAL OPCOD LOAD FOUR CHARACTER OPCODE F0E12490
TSX SOPTB,4 *FIND CORRESPONDING OPCODE F0E12500
TRA INST1 NOT FOUND F0E12510
NZT OPBIN IS THIS TYPE B I/O INSTRUCTION F0E12520
TRA INT00 NO F0E12530
RIL 000010 YES, RESET ADDRESS REQUIRED FLAG F0E12540
IIL 077600 READY FOR TEST F0E12550
LFT 777700 IS THIS SET DENSITY INSTRUCTION F0E12560
TRA *+6 NO F0E12570
RFT 20 YES, IS THIS SET DENSITY LOW INSTRUCTION F0E12580
TRA *+4 NO F0E12590
OSI BERAS YES, APPEND UNIT ADDRESS F0E12600
RIR 20 SET THE DENSITY LOW F0E12610
TRA *+2 F0E12620
OSI BERAS APPEND UNIT ADDRESS F0E12630
IIL 077600 RESTORE INDICATORS AS BEFORE F0E12640
TRA INT00 F0E12650
REM OPERATION IS UNDEFINED F0E12660
INST1 STZ OFLGS ERASE HANGING FLAGS F0E12670
SLN EXPRR SET UNDEFINED MACHINE OP FLAG F0E12680
REM PSEUDOOPERATION IS UNDEFINED F0E12690
INST2 TSX REFLC,4 *CHECK LOCATION COUNTER F0E12700
CAL BLANKS BLANK OUT SIGN AND PREFIX F0E12710
ALS 24 F0E12720
SLW OCTAL+1 F0E12730
STZ OCTAL+2 F0E12740
STZ OCTAL+3 F0E12750
STZ BINRY DELETE POSSIBLE TAPE ADDRESS F0E12760
STZ OPRFG RESET FLAG FOR UNDEFINED OPERATION F0E12770
STL ERRFO SET OPERATION ERROR FLAG F0E12780
STL TYPAF TREAT UNDEFINED OP AS TYPE A INSTRUCTION F0E12790
SLT EXPRR IS UNDEFINED OP MACHINE OP F0E12800
TRA INT17+3 NO, IT IS UNDEFINED PSEUDOOPERATION F0E12810
TRA INT03 YES, SCAN VARIABLE FIELD F0E12820
REM OPERATION CODE FOUND F0E12830
INT00 STI OFLGS SAVE FLAGS F0E12840
TSX IFLGS,4 *SET INSTRUCTION LISTING FLAGS F0E12850
RIR 017777 DELETE FLAGS FROM ADDRESS FIELD F0E12860
PIA F0E12870
ANA OPMSK DELETE FLAGS FROM TAG, DECREMENT FIELDS F0E12880
ORS BINRY SAVE OPCODE F0E12890
TSX REFLC,4 *CHECK LOCATION COUNTER F0E12900
REM REENTRY FOR UNDEFINED MACHINE OP F0E12910
INT03 LXD VRFLD,2 RELOAD VARIABLE FIELD WORD COUNT F0E12920
LXA VRFLD,1 RELOAD VARIABLE FIELD CHARACTER COUNT F0E12930
CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E12940
ERA EQUAL TEST FOR LITERAL F0E12950
NZT TYPDF IS THIS TYPE D INSTRUCTION F0E12960
TRA INT04 NO F0E12970
TZE INT05 YES, IS ADDRESS FIELD A LITERAL F0E12980
STL BOLMD NO, SET FLAG FOR OCTAL SCAN F0E12990
TSX SCANF,4 *EVALUATE ADDRESS F0E13000
TXL FLAGA,,0 NULL ADDRESS F0E13010
SLT EXPRR IS ADDRESS FIELD IN ERROR F0E13020
TRA INT12 NO F0E13030
TRA INT05 YES F0E13040
REM REENTRY FOR NON BOOLEAN MACHINE OPERATIONS F0E13050
INT04 TZE LITOP IS ADDRESS FIELD A LITERAL F0E13060
TSX SCANF,4 *NO, EVALUATE ADDRESS F0E13070
TXL FLAGA,,0 NULL ADDRESS FIELD F0E13080
SLT EXPRR IS ADDRESS FIELD IN ERROR F0E13090
TRA INT06 NO F0E13100
REM REENTRY FOR BOOLEAN ADDRESS, LITERAL IN ERROR F0E13110
INT05 CAL BLANK BLANK OUT ADDRESS FIELD F0E13120
ORS OCTAL+2 F0E13130
CAL BLANKS F0E13140
ORS OCTAL+3 F0E13150
SXA BINRY,0 DELETE ADDRESS BITS F0E13160
NZT TYPDF IS THIS BOOLEAN MACHINE OPERATION F0E13170
TRA INT07 NO F0E13180
STL ERRFB YES, SET ERROR FLAG F0E13190
TRA INT08 F0E13200
REM REENTRY FOR ADDRESS FIELD, LITERAL SUCCESSFULY EVALUATED F0E13210
INT06 ORS BINRY INSERT ADDRESS FIELD BITS F0E13220
CAL RBITS INSERT ADDRESS FIELD RELOCATION BITS F0E13230
SLW INDIC F0E13240
ZET 704FG IS ASSEMBLY IN 704 MODE F0E13250
TRA INT07 YES F0E13260
CLA BINRY NO, LOAD OPERATION CODE F0E13270
ARS 6 RIGHT ADJUST, LESS SIGN (20)F0E13280
PDX ,4 F0E13290
TXL INT07,4,495 IS THIS I/O INSTRUCTION F0E13300
TXH INT07,4,506 NO F0E13310
PXA ,4 MAYBE, IT IS BETWEEN 0760 AND 0772 F0E13320
LBT IS IT 0761,0763,0765,0767,0771 F0E13330
TRA *+2 NO, IT IS 0760,0762,0764,0766,0770,0772 F0E13340
TRA INT07 YES, NOT AN I/O INSTRUCTION F0E13350
CAL BINRY LOAD OPERATION CODE F0E13360
ARS 9 ISOLATE CHANNEL DESIGNATION F0E13370
ANA Q15 F0E13380
LAS CHANS IS CHANNEL DESIGNATION PROPER F0E13390
STL ERRFN NO, SET ERROR FLAG F0E13400
NOP F0E13410
REM REENTRY FOR NON BOOLEAN ADDRESS FIELD IN ERROR F0E13420
INT07 TSX SCANF,4 *EVALUATE TAG FIELD F0E13430
TXL FLAGT,,0 NULL TAG FIELD F0E13440
NZT RBITS IS TAG FIELD RELOCATABLE F0E13450
TRA *+3 NO F0E13460
STL ERRFR YES, SET ERROR FLAG F0E13470
TRA INT08 F0E13480
SLT EXPRR IS TAG FIELD IN ERROR F0E13490
TRA INT09 NO F0E13500
REM REENTRY FOR BOOLEAN ADDRESS FIELD IN ERROR F0E13510
INT08 CAL BLANK PREPARE TO BLANK OUT OFFENDING FIELD F0E13520
ALS 6 POSITION IN HIGH ORDER BOOLEAN ADDRESS F0E13530
NZT TYPDF IS THIS BOOLEAN FIELD F0E13540
ALS 6 NO, POSITION IN TAG FIELD F0E13550
ORS OCTAL+2 F0E13560
NZT TYPDF IS THIS BOOLEAN FIELD F0E13570
TRA INT10 NO F0E13580
TRA INT12+1 YES F0E13590
REM REENTRY FOR TAG FIELD NOT IN ERROR F0E13600
INT09 ANA Q7 REDUCE TAG MODULO 8 F0E13610
ALS 15 POSITION IN TAG FIELD F0E13620
ORS BINRY INSERT IN WORD F0E13630
REM REENTRY FOR TAG FIELD IN ERROR F0E13640
INT10 TSX SCANF,4 *EVALUATE DECREMENT FIELD F0E13650
TXL FLAGD,,0 NULL DECREMENT FIELD F0E13660
SLT EXPRR IS DECREMENT FIELD IN ERROR F0E13670
TRA INT11 NO F0E13680
NZT TYPAF YES, IS THIS TYPE A 0 00000 0 00000 INSTR F0E13690
TRA *+4 NO, IT IS TYPE B 0000 00 0 00000 F0E13700
CAL BLANKS YES DELETE OCTAL CHARACTERS 2, 3, 4 F0E13710
ARS 18 (BITS 3 - 11) F0E13720
ORS OCTAL+1 F0E13730
CAL BLANKS AS WELL AS OCTAL CHARACTERS 5, 6 F0E13740
ALS 24 (BITS 12 - 17) F0E13750
ORS OCTAL+2 F0E13760
PXD ,0 DELETE DECREMENT FIELD F0E13770
REM REENTRY FOR DECREMENT FIELD NOT IN ERROR F0E13780
INT11 LXA RBITS,4 LOAD DECREMENT RELOCATION BITS F0E13790
SXD INDIC,4 SET DECREMENT RELOCATION BITS F0E13800
ALS 18 REPOSITION DECREMENT F0E13810
ORS BINRY INSERT IN WORD F0E13820
ZET TYPAF IS THIS TYPE A INSTRUCTION F0E13830
TRA INT12+1 YES F0E13840
TZE INT12+1 NO, HAS TYPE B, C, E INSTR DECREMENT F0E13850
SXD ERRFR,4 YES, SET ERROR FLAG IF RELOCATABLE F0E13860
ZET TYPCF IS THIS A TYPE C INSTRUCTION F0E13870
ANA D32512 YES, MASK OUT 8-BIT COUNT FIELD F0E13880
STO ERRFD SET FLAG IF TOO LONG F0E13890
REM REENTRY FOR BOOLEAN ADDRESS NOT IN ERROR, DIRECT ADDRESS F0E13900
INT12 ORS BINRY F0E13910
ZET INDFG IS INDIRECT ADDRESS REQUIRED F0E13920
TRA INT14 YES F0E13930
LDI BINRY NO, DID INDIRECT ADDRESS BITS F0E13940
CAL D48 SNEAK INTO DECREMENT F0E13950
NZT TYPAF MAYBE, IS THIS TYPE B, C, D, E INSTRUCTIONF0E13960
TIO *+2 YES F0E13970
TRA INT15 NO F0E13980
NZT ERRFO IS OPERATION UNDEFINED F0E13990
STL ERRFI NO, SET ERROR FLAG F0E14000
TRA INT17 F0E14010
INT14 CAL OFLGS LOAD FIELD FLAGS F0E14020
ANA IMASK IS THIS OPCODE PERMITTED INDIRECT ADDRESS F0E14030
NZT 704FG MAYBE, IS ASSEMBLY IN 7090 MODE F0E14040
TNZ *+3 YES F0E14050
NZT ERRFO NO, IS OPERATION UNDEFINED F0E14060
STL ERRFI NO, SET ERROR FLAG F0E14070
NZT TYPAF IS OPERATION TYPE A F0E14080
CAL D48 NO, LOAD DECREMENT INDIRECT ADDRESS BITS F0E14090
ZET TYPAF IS OPERATION TYPE A F0E14100
CAL T4 YES, LOAD TAG INDIRECT ADDRESS BIT F0E14110
ORS BINRY INSERT IN WORD F0E14120
REM REENTRY FOR TYPE A INSTRUCTION NOT INDIRECTLY ADDRESSED F0E14130
INT15 ZET TYPKF IS THIS A TYPE K 00 0000 0 00000 COMMAND F0E14140
NZT TYPCF YES, DOES IT HAVE HIGH ORDER COUNT FIELD F0E14150
TRA INT17 NO F0E14160
TSX SCANF,4 *YES, EVALUATE ADDITIONAL OP/COUNT FIELD F0E14170
TXL INT17,,0 NULL ADDITIONAL FIELD F0E14180
NZT RBITS IS ADDITIONAL FIELD RELOCATABLE F0E14190
TRA *+3 NO F0E14200
STL ERRFR YES, SET ERROR FLAG F0E14210
TRA *+3 F0E14220
SLT EXPRR IS ADDITIONAL FIELD IN ERROR F0E14230
TRA INT16 NO F0E14240
CAL BLANK YES, BLANK OUT ADDITIONAL FIELD F0E14250
ALS 18 F0E14260
ORS OCTAL+1 F0E14270
TRA INT17 F0E14280
REM ADDITIONAL OP/COUNT FIELD NOT IN ERROR F0E14290
INT16 ANA Q7 MASK IN ONE CHARACTER F0E14300
ALS 30 POSITION IN OP/COUNT FIELD F0E14310
ORS BINRY INSERT IN WORD F0E14320
REM REENTRY FOR NO ADDITIONAL FIELD, OR FIELD IN ERROR F0E14330
INT17 CAL CHRCTR LOAD FOLLOWING CHARACTER F0E14340
ERA BLANK IS IT BLANK F0E14350
SLW ERRFF SET ERROR FLAG IF NOT F0E14360
REM REENTRY FOR IMPROPER OPCODE OR PSEUDOOPERATION F0E14370
TSX PRNTI,4 *LIST AND PUNCH THIS INSTRUCTION F0E14380
TRA READ1 F0E14390
REM F0E14400
REM F0E14410
REM END OF SECOND INTERMEDIATE TAPE F0E14420
ENDFA LXD SLIT3,4 LOAD BASE ADDRESS FOR LITERALS F0E14430
PXA ,4 F0E14440
ERA CDCTR COMPARE WITH CURRENT LOAD ADDRESS F0E14450
SXA CDCTR,4 RESET CARD ORIGIN COUNTER TO BASE ADDRESS F0E14460
SXA LOCTR,4 RESET PROGRAM COUNTER TO BASE ADDRESS F0E14470
SXA ADDRS,4 F0E14480
PAX ,4 LOAD LENGTH OF EFFECT BSS FOLLOW LAST CARDF0E14490
TXL *+2,4,0 IS EFFECTIVE BSS 0 F0E14500
TSX PUNCH,4 *NO, PUNCH LAST PARTIAL CARD F0E14510
LDC LITSIZ,1 LOAD LENGTH OF LITERAL TABLE F0E14520
TXL ENDF1+1,1,0 IS LITERAL TABLE EMPTY F0E14530
SXD ENDF1,1 NO, SET END OF LITERAL TABLE LOOP F0E14540
TSX PRLST,4 *PRINT BLANK LINE F0E14550
PZE F0E14560
TSX PRLST,4 *PRINT LITERAL TABLE TITLE F0E14570
IOCD LITIT,,5 F0E14580
AXT 5,4 RESET LENGTH OF LISTING LINE TO SHORT F0E14590
SXD IOLST,4 TO PRINT ONLY OCTAL EXPANSION F0E14600
AXT 0,1 START AT BOTTOM OF TABLE F0E14610
STZ INDIC F0E14620
CAL LITTBL,1 LOAD NEXT LITERAL F0E14630
SLW BINRY F0E14640
TSX PRNTW,4 *LIST AND PUNCH DATA WORD F0E14650
TXI *+1,1,-1 BUMP COUNT OT NEXT LITERAL F0E14660
ENDF1 TXH *-4,1,** IS LITERAL TABLE EXHAUSTED F0E14670
REM REENTRY FOR NO LITERAL TABLE F0E14680
TSX PUNCH,4 *PUNCH LAST PARTIAL CARD F0E14690
ENDFB TXH *+2,4,-1 IS TRANSFER ADDRESS VALID F0E14700
TSX PCHTC,4 *YES, PUNCH TRANSFER CARD F0E14710
STL TTLFG SET SUBTITLE FLAG F0E14720
LDI REFHD RESET SUBTITLE PARAMETER F0E14730
STI IOHED TO PRINT 'POST PROCESSOR ASSEMBLY DATA' F0E14740
SXA PAGENO,0 RESET PAGE NUMBER F0E14750
SXA PAGCNT,0 EJECT PAGE F0E14760
STZ UNLSF RESET HANGING UNLIST FLAGS F0E14770
STZ UNL1F F0E14780
STZ TITLF F0E14790
CAL LOCTR LOAD LAST ADDRESS+1 F0E14800
TSX SHIFT,4 *CONVERT TO OCTAL F0E14810
ALS 6 APPEND FOLLOWING BLANK F0E14820
ORA BLANK F0E14830
SLW PGTIT+1 F0E14840
ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E14850
TRA ENDFC YES F0E14860
SXD LOCTR,0 NO, DELETE RELOCATION BIT F0E14870
CAL UPCTR LOAD LAST COMMON ASSIGNMENT F0E14880
TZE ENDFC DOES COMMON EXIST F0E14890
TSX SHIFT,4 *YES, CONVERT TO OCTAL F0E14900
SLW CBTIT+1 F0E14910
TSX FPRINT,4 *PRINT COMMON BREAK F0E14920
PZE CBTIT,,10 F0E14930
CLA LOCTR LOAD PROGRAM COUNTER F0E14940
SUB UPCTR DID PROGRAM OVERLAP COMMON F0E14950
TMI ENDFC NO F0E14960
LDQ EFLAG YES, SET ERROR FLAG F0E14970
STQ PGTIT F0E14980
STL NOGOF DELETE EXECUTION F0E14990
ENDFC TSX FPRINT,4 *PRINT PROGRAM BREAK F0E15000
PZE PGTIT,,10 F0E15010
TSX FPRINT,4 *PRINT BLANK LINE F0E15020
PZE F0E15030
NZT CRDFLG ARE ONLINE CARDS REQUESTED F0E15040
TRA PREF0 NO F0E15050
TSX (TAPE),4 *YES, WRITE END FILE ON INTERMED PUNCH TAPEF0E15060
MZE ,,(WEFP) F0E15070
PZE BNTAP,,-1 F0E15080
PZE *+2 F0E15090
TRA *+4 F0E15100
TSX (PRNT),4 *LET OPERATOR KNOW ABOUT BAD END OF FILE F0E15110
PZE CDERR,,13 F0E15120
TSX SPACP,2 *LET OPERATOR READ WARNING F0E15130
TSX (TAPE),4 *REWIND INTERMEDIATE PUNCH TAPE F0E15140
PZE REWND,,(SKBP) F0E15150
PZE BNTAP,,-1 F0E15160
REM LIST SYMBOLIC REFERENCE TABLE ENTRIES F0E15170
PREF0 TXH PREF9,4,-1 IS UNDEFINED SYMBOL TABLE COMPLETE F0E15180
LXD SYMSIZ,1 NO, LOAD LENGTH OF SYMBOL TABLE F0E15190
TXH PRUDS,4,-1 HAVE DEFINED SYMBOLS BEEN LISTED F0E15200
SXD *-1,0 NO, RESET SWITCH F0E15210
TXL PRUDS,1,2 IS DEFINED SYMBOL TABLE EMPTY F0E15220
TXI PREF1,1,2 NO F0E15230
REM DEFINED SYMBOLS HAVE BEEN LISTED F0E15240
PRUDS AXT -1,4 RESET SWITCH F0E15250
SXD PREF6,4 TO FORCE PRINTING F0E15260
SXD PREF0,0 RESET UNDEFINED SYMBOL SWITCH F0E15270
SXD PREFS,0 DELETE REF TABLE HEADING F0E15280
SXD *+2,1 SET BOTTOM OF UNDEFINED SYMBOL TABLE F0E15290
LDC SUDS1,4 LOAD TOP OF UNDEFINED SYMBOL TABLE F0E15300
TXL PREF9,4,** IS UNDEFINED SYMBOL TABLE EMPTY F0E15310
TSX FPRINT,4 *NO, PRINT UNDEFINED REFERENCE HEADING F0E15320
PZE USTIT,,6 F0E15330
TXI *+1,1,LUDTBM BUMP COUNT TO TOP OF UDS TABLE F0E15340
SXD SYMSIZ,1 F0E15350
AXT LUDTBM+4,1 LOAD COUNT OF FIRST UNDEFINED SYMBOL F0E15360
CAL EREF2 UDS TABLE IS OFFSET BY 2 TO LIST THEM F0E15370
ADD Q2 EVEN IF NO DEFINED SYMBOL APPEAR F0E15380
STA EREF2 NOW IT MUST BE CORRECTED F0E15390
REM REENTRY FOR DEFINED SYMBOLS F0E15400
PREF1 CLA SYMSIZ COMPUTE ORIGIN AT END OF SYMBOL TABLE F0E15410
ARS 18 F0E15420
ADD SSYM5 F0E15430
ADD Q1 F0E15440
STA PREF3 INITIALIZE TEST FOR END OF REF TABLE F0E15450
STA PREF4 INITIALIZE LOAD FOR SYMBOL NAME F0E15460
ADD Q1 F0E15470
STA PREF5 INITIALIZE LOAD FOR SYMBOL DEFINITION F0E15480
CLA SYMSIZ COMPUTE ORIGIN AT END OF POINTER TABLE F0E15490
ARS 18 F0E15500
ADD EREF2 F0E15510
STA PREF6+1 INITIALIZE LOAD FOR POINTER F0E15520
REM REENTRY TO START NEXT LINE F0E15530
PREF2 ZET PRTIF IS THIS A CONTINUATION LINE F0E15540
TRA *+3 YES F0E15550
REM REENTRY TO LIST NEXT SYMBOL F0E15560
TXI *+1,1,-2 BUMP COUNT TO NEXT SYMBOL F0E15570
TXL PREF0,1,2 IS TABLE EXHAUSTED F0E15580
AXT 20,2 NO, LOAD LENGTH OF LISTING LINE F0E15590
CAL BLANKS BLANK OUT LINE F0E15600
SLW BBUF22+20,2 F0E15610
TIX *-1,2,1 F0E15620
ZET PRTIF IS THIS A CONTINUATION LINE F0E15630
TRA PREF7 YES F0E15640
PREF3 CAL **,1 LOAD NEXT NAME IN SYMBOL TABLE F0E15650
TZE PREF9 IS TABLE EXHAUSTED F0E15660
STZ BERAS NO, RESET REDUNDANCY TEST F0E15670
PREF4 LDQ **,1 LOAD SYMBOL NAME F0E15680
LGL 6 SHIFT IN FIRST (HEADING) CHARACTER F0E15690
ANA Q63 MASK IN CHARACTER F0E15700
TNZ *+2 DOES IT EXIST F0E15710
CAL BLANK NO, APPEND LEADING BLANK F0E15720
SLW ERASE F0E15730
AXT 30,4 PREPARE TO SCAN FOLLOWING FIVE CHARACTERS F0E15740
PXD ,0 F0E15750
LGL 6 LOAD NEXT CHARACTER F0E15760
TNZ *+2 DOES IT EXIST F0E15770
TIX *-2,4,6 NO, TRY AGAIN F0E15780
LGR 6 SAVE NONBLANK CHARACTER F0E15790
CAL BLANKS APPEND LEADING BLANKS F0E15800
LGR 30,4 LEFT ADJUST FIVE CHARACTERS F0E15810
CAL ERASE APPEND FIRST (HEADING) CHARACTER F0E15820
LGR 6 F0E15830
STQ BBUF22+2 INSERT IN WORD 2 F0E15840
PREF5 CAL **,1 LOAD SYMBOL DEFINITION F0E15850
PAI HOLD POSSIBLY DOUBLY DEFINED FLAG F0E15860
TSX SHIFT,4 *ASSEMBLE OCTAL LOCATION F0E15870
SLW ERASE SAVE BCD DEFINITION $F0E15880
ALS 6 APPEND BLANK TO LOW ORDER $F0E15890
ORA BLANK FIVE CHARACTERS $F0E15900
SLW BBUF22+1 INSERT IN WORD 1 $F0E15910
LDQ ERASE RECALL SIXTH CHARACTER $F0E15920
CAL MFLAG PREPARE M FLAG $F0E15930
ARS 6 SHIFTED OVER $F0E15940
TRA PREFP TO PATCH $F0E15950
PREF6 TXH PREF2,2,-1 IS SYMBOL TABLE SUPPRESSED F0E15960
CLA **,1 NO, LOAD POINTER F0E15970
STA DCBFG YES, SAVE LOCATION OF FIRST REFERENCE F0E15980
STL PRTIF SET FLAG TO OMIT COMMA F0E15990
PREF7 AXT 17,2 LOAD LENGTH OF REST OF LINE F0E16000
TRA K001 GO CHECK FOR REF-TBL OVERFLOW. (32)F0E16010
CLA* DCBFG LOAD SUBSEQUENT REFERENCE TO SYMBOL. (32)F0E16020
TSX SHIFT,4 *ASSEMBLE OCTAL LOCATION F0E16030
LAS BERAS IS THIS REDUNDANT F0E16040
TRA *+2 NO F0E16050
TXI PREF8+1,2,1 YES, IGNORE IT F0E16060
SLW BERAS SAVE FOR NEXT TEST F0E16070
NZT PRTIF IS THIS FIRST LOCATION ON LINE F0E16080
ORA RCOMA NO, APPEND LEADING COMMA F0E16090
SLW BBUF22+20,2 INSERT IN NEXT WORD F0E16100
PREF8 STZ PRTIF RESET FIRST LOCATION FLAG F0E16110
NZT DCBFG IS THERE ANOTHER REFERENCE F0E16120
TRA *+4 NO F0E16130
TIX PREF7+2,2,1 YES, IS LINE FULL F0E16140
STL PRTIF YES, SET CONTINUATION LINE FLAG F0E16150
TRA PREFS F0E16160
REM REFERENCES TO THIS SYMBOL EXHAUSTED F0E16170
NZT PRTIF IS THIS FIRST REFERENCE ON THIS LINE F0E16180
TRA PREFS NO F0E16190
STZ PRTIF YES, RESET CONTINUATION LINE FLAG F0E16200
TRA PREF2 F0E16210
REM PRINT LINE IN SYMBOLIC REFERENCE TABLE F0E16220
PREFS TXH *+4,4,-1 HAS REF TABLE HEADING BEEN PRINTED F0E16230
SXD *-1,0 NO, RESET SWITCH F0E16240
TSX FPRINT,4 *PRINT REFERENCE TABLE HEADING F0E16250
PZE RFTIT,,6 F0E16260
TXI *+1,2,-21 COMPUTE LENGTH OF LINE F0E16270
PXA ,2 F0E16280
PAC ,2 F0E16290
SXA *+4,1 SAVE TABLE COUNT F0E16300
SXD *+2,2 INITIALIZE PARAMETER F0E16310
TSX FPRINT,4 *PRINT LINE F0E16320
PZE BBUF22,,** F0E16330
AXT **,1 RELOAD TABLE COUNT F0E16340
TRA PREF2 F0E16350
REM END OF REFERENCE TABLE F0E16360
PREF9 TXL *+3,4,-1 DID REFERENCE TABLE OVERFLOW F0E16370
TSX FPRINT,4 *YES, PRINT MESSAGE F0E16380
PZE REFOV,,11 F0E16390
TSX FPRINT,4 *PRINT BLANK LINE F0E16400
PZE F0E16410
AXT 8,4 PREPARE TO PRINT 'EXECUTION DELETED' F0E16420
NZT NOGOF WAS THERE AN ASSEMBLY ERROR F0E16430
TXI ENDF4,4,-3 NO, DELETE 'EXECUTION DELETED' F0E16440
LDQ ERTIT YES, DELETE 'NO' F0E16450
STQ ERTIT+1 F0E16460
CLS ENDF4+2 FORCE PRINTING F0E16470
STO ENDF4+2 F0E16480
TSX SSJOB,2 SET SYSJOB AND GET FLAGBX $F0E16490
RNT 200 IS EXECUTION REQUESTED F0E16500
TXI ENDF4,4,-3 NO, DELETE 'EXECUTION DELETED' F0E16510
RIR 200 YES, DELETE EXECUTION F0E16520
STI* (FGBX) F0E16530
ENDF4 SXD *+2,4 INITIALIZE I/O COMMAND WORD COUNT F0E16540
TSX FPRINT,4 *PRINT FINAL MESSAGE F0E16550
PZE ERTIT+1,,** F0E16560
LXD WRIT1,4 LOAD ONLINE PRINT SWITCH F0E16570
TXH *+3,4,0 IS ONLINE PRINT REQUESTED F0E16580
TSX (PRNT),4 *YES, EJECT PAGE F0E16590
PZE PGHDNG,,1 F0E16600
NZT ABSFLG IS THIS ASSEMBLY ABSOLUTE F0E16610
ERRRS NZT NOGOF NO, IS RELOCATABLE ASSEMBLY ERROR FREE F0E16620
TRA ENDF5 YES F0E16630
SXD BNRECT,0 NO, DELETE TAPE NUMBER F0E16640
TSX (TAPE),4 *ERASE OFFLINE OUTPUT F0E16650
PZE BNRECT,,(SKBP) F0E16660
PZE BOTTAP,,-1 F0E16670
TSX (TAPE),4 *WRITE EPITAPH F0E16680
PZE FAILD,,(WROW) F0E16690
PZE BOTTAP,,-1 F0E16700
PZE *+1 F0E16710
NZT CRDFLG ARE ONLINE CARDS REQUESTED F0E16720
TRA *+3 NO F0E16730
TSX (PNCH),4 *YES, PUNCH EPITAPH F0E16740
PZE FAILD+2,,24 F0E16750
TRA BIN05+3 F0E16760
ENDF5 NZT CRDFLG ARE ONLINE CARDS REQUESTED F0E16770
TRA BIN05+3 NO F0E16780
STL* BIN01+3 YES, DELETE POSSIBLE HANGING END FILE F0E16790
REM OUTPUT CARDS ON LINE F0E16800
BINCP AXT BOTTAB-24,2 RESET ORIGIN OF OUTPUT BUFFER F0E16810
TXI *+1,2,24 BUMP TO ORIGIN OF NEXT CARD F0E16820
SXA *+5,2 INITIALIZE I/O COMMAND LOAD POINT F0E16830
TSX (TAPE),4 *READ INTERMEDIATE TAPE BINARY CARD IMAGE F0E16840
PZE *+3,,(RBEP) F0E16850
PZE BNTAP,,-1 F0E16860
PZE BIN05 ALL DONE IN CASE OF ERROR F0E16870
IORT **,,24 (NOP) F0E16880
NZT* BIN01+3 IS THIS END OF INTERMEDIATE TAPE F0E16890
TXI BIN00,2,-48 YES, BUMP COUNT TO NUMBER OF CARDS READ F0E16900
TXL BINCP+1,2,TOPTAB-25 NO, IS BUFFER FULL F0E16910
TSX (TAPE),4 *YES, CHECK LAST CARD READ F0E16920
PZE TINTAP,,(CHKU) F0E16930
BIN00 SXD BIN01+2,2 SET END OF BUFFER TEST F0E16940
AXT BOTTAB,2 RESET ORIGIN OF OUTPUT BUFFER F0E16950
SXA *+2,2 TO BOTTOM OF TABLE SPACE F0E16960
TSX (PNCH),4 *PUNCH CARD F0E16970
BIN01 MZE **,,24 (RESET TO PZE FOR ROW BINARY CARDS) F0E16980
TXI *+1,2,24 BUMP TO ORIGIN OF NEXT CARD F0E16990
TXL *-4,2,** IS BUFFER EXHAUSTED F0E17000
ZET (SCHU)+TINTAP YES, WAS END OF INTERMEDIATE TAPE SENSED F0E17010
TRA BINCP NO F0E17020
REM END OF BINARY INTERMEDIATE TAPE SENSED F0E17030
NZT MAINPF IS THIS MAIN PROGRAM F0E17040
TRA BIN04 NO F0E17050
NZT ABSFLG YES, IS ASSEMBLY ABSOLUTE F0E17060
ZET ONLCFG NO, ARE COLUMN BINARY CARDS REQUESTED F0E17070
TRA BIN04 YES F0E17080
TSX (PNCH),4 *NO, PUNCH ROW BINARY TRANSFER CARD F0E17090
PZE P4,,1 FOR GOOD RELOCATABLE ASSEMBLY OF MAIN PROGF0E17100
BIN04 TSX (PNCH),4 *PUNCH TWO BLANK CARDS F0E17110
PZE Q0,,1 F0E17120
TSX (PNCH),4 * F0E17130
PZE Q0,,1 F0E17140
BIN05 TSX (TAPE),4 *REWIND INTERMEDIATE TAPE F0E17150
PZE REWND,,(SKBP) F0E17160
PZE BNTAP,,-1 F0E17170
TSX WRFBK,4 *WRITE LAST PARTIAL LISTING BLOCK F0E17180
TSX (TAPE),4 *CLOSE OUT MONITOR BINARY TAPE F0E17190
PZE MBNTAP,,(CHKU) F0E17200
TSX (TAPE),4 *CLOSE OUT MONITOR LISTING TAPE F0E17210
PZE MLSTAP,,(CHKU) F0E17220
SLF F0E17230
TRA LOADER F0E17240
TTL PASS TWO PSEUDOOPERATION PROCESSOR F0E17250
PSOPT PIA RECALL TRANSFER ADDRESS F0E17260
ARS 18 ISOLATE PASS TWO TRANSFER F0E17270
STA *+1 INITIALIZE TRANSFER F0E17280
TRA ** F0E17290
REM F0E17300
704OP STL 704FG SET 704 MODE F0E17310
CAL Q16384 LOAD TEST FOR 704 INSTRUCTION F0E17320
STA IFLGS RESET TEST FOR PERMISSIBLE OPERATION F0E17330
CAL Q8192 LOAD TEST FOR 7090 INSTRUCTION F0E17340
LDQ 9FLAG LOAD ERROR FLAG FOR 7090 INSTRUCTION F0E17350
TRA 709OP+5 F0E17360
REM F0E17370
709OP STZ 704FG RESET 704 MODE F0E17380
CAL Q8192 LOAD TEST FOR 7090 INSTRUCTION F0E17390
STA IFLGS RESET TEST FOR PERMISSIBLE OPERATION F0E17400
CAL Q16384 LOAD TEST FOR 704 INSTRUCTION F0E17410
LDQ 4FLAG LOAD ERROR FLAG FOR 704 INSTRUCTION F0E17420
STA IFLGS+2 RESET TEST FOR PROHIBITED INSTRUCTION F0E17430
STA IFLGS+4 F0E17440
STQ FLG49 RESET ERROR FLAG FOR PROHIBTD INSTRUCTION F0E17450
CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E17460
ERA BLANK IS IT BLANK F0E17470
SLW ERRFF SET ERROR FLAG IF NOT F0E17480
TSX PRNTC,4 *PRINT INPUT CARD F0E17490
TRA READ1 F0E17500
REM F0E17510
9LPOP TSX PUNCH,4 *PUNCH PARTIAL FUL, ABS, OR 9LP CARD F0E17520
LXD VRFLD,2 RELOAD WORD COUNT F0E17530
LXA VRFLD,1 RELOAD CHARACTER COUNT F0E17540
TSX SCANF,4 *EVALUATE PREFIX F0E17550
TXI AFLAG,,0 NULL PREFIX PUNCH F0E17560
SLT EXPRR WAS PREFIX IN ERROR F0E17570
TRA *+2 NO F0E17580
STL ERRFF YES, SET FLAG F0E17590
ALS 33 SHIFT PUNCH INTO PREFIX F0E17600
STP PBUFF1 INSERT IN 9L F0E17610
STZ FULMD RESET FULL FLAG F0E17620
STL 9LPMD SET 9L FLAG F0E17630
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E17640
STL ERRFF NO, SET FLAG F0E17650
TSX PRNTC,4 *PRINT INPUT CARD F0E17660
TRA READ1 F0E17670
REM F0E17680
ABSOP NZT FULMD IS CARD FORMAT FULL F0E17690
ZET 9LPMD NO, IS IT A CONTROL CARD F0E17700
TRA *+2 YES F0E17710
TRA ABS01 NO, IGNORE THIS CARD F0E17720
TSX PUNCH,4 *PUNCH PARTIAL FUL CARD F0E17730
CLA CDCTR INSERT CARD ORIGIN COUNTER F0E17740
STO PBUFF1 IN LOAD ADDRESS F0E17750
STZ FULMD RESET FUL FLAG F0E17760
STZ 9LPMD RESET CONTROL CARD FLAG F0E17770
ABS01 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E17780
ERA BLANK IS IT BLANK F0E17790
SLW ERRFF SET ERROR FLAG IF NOT F0E17800
TSX PRNTC,4 *PRINT INPUT CARD F0E17810
TRA READ1 F0E17820
REM F0E17830
BCDOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E17840
CAL BCDBF+1 LOAD CARD WORD 2 F0E17850
ANA Q63 MASK IN COLUMN 12 F0E17860
LAS BLANK IS IT BLANK F0E17870
TRA *+2 NO F0E17880
PXD ,0 YES (FULL CARD) F0E17890
TZE BCI02+2 NO, IS IT ZERO (FULL CARD) F0E17900
LAS Q10 NO, IS IT DIGIT F0E17910
TRA BCERR **NO F0E17920
TSX MACERR,4 **CHARACTER IS BCD 10 F0E17930
TRA BCI02+3 YES F0E17940
REM F0E17950
BCIOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E17960
CAL CHRCTR LOAD FIRST CHARACTER F0E17970
TZE BCI00 IS IT ZERO $F0E17980
LAS COMMA NO, IS IT COMMA (FULL CARD) F0E17990
TRA BCERR **NO F0E18000
TRA BCI02 YES F0E18010
LAS Q10 NO, IS IT DIGIT F0E18020
TRA BCERR **NO F0E18030
TSX MACERR,4 **CHARACTER IS BCD 10 F0E18040
ADM BCIWD YES, COMPUTE ADDRESSES (24)F0E18050
STA BCI01 ENDING ALPHANUMERIC FIELD (24)F0E18060
ADM Q1 AND INITIALIZE STORING LOOP (24)F0E18070
STA BCI01+1 (24)F0E18080
LDQ VRFLD LOAD VARIABLE FIELD CHARACTER (24)F0E18090
VLM Q6,,15 POSITION AND CONVERT TO BITS (24)F0E18100
LLS 15 FOR AMOUNT OF SHIFT NECESSARY (24)F0E18110
BCIWD PAX BCDBF+2,1 (THIS ADDRESS USED AS A CONSTANT) (24)F0E18120
TXL *+2,2,-2 DID VARIABLE FIELD BEGIN BY CC 12 (24)F0E18130
TXI *+1,1,36 YES, ADJUST SHIFT (24)F0E18140
LXA CHRCTR,2 LOAD COUNT OF BCI WORDS (24)F0E18150
BCI01 CAL **,2 LOAD FIRST PART OF WORD (24)F0E18160
LDQ **,2 LOAD REMAINDER, IF ANY (24)F0E18170
LGL 54,1 POSITION IN AC (24)F0E18180
SLW BINRY SET BINARY WORD (24)F0E18190
TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD (24)F0E18200
TIX BCI01,2,1 IS CARD EXHAUSTED F0E18210
TRA READ1 YES F0E18220
REM FIRST CHARACTER IS COMMA F0E18230
BCI02 TXH BCERR,1,2 **IS COMMA IN CC 12 F0E18240
TXL BCERR,1,1 **NO F0E18250
REM REENTRY FOR BCD CARD OF TEN WORDS F0E18260
CLA Q10 YES, SET WORD COUNT TO 10 WORDS F0E18270
REM REENTRY FOR BCD CARD OF FEWER THAN TEN WORDS F0E18280
PAX ,1 LOAD CARD WORD COUNT $F0E18290
PAX ,2 $F0E18295
TXI *+1,1,BCDBF+2 COMPUTE ORIGIN AT END OF HOLLERITH FIELD F0E18300
SXA *+1,1 F0E18310
CAL **,2 LOAD NEXT WORD F0E18320
SLW BINRY SET BINARY WORD F0E18330
TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD F0E18340
TIX *-3,2,1 IS CARD EXHAUSTED F0E18350
TRA READ1 YES F0E18360
REM COUNT IS IN ERROR F0E18370
BCERR STL ERRFE SET ERROR FLAG F0E18380
CAL BLANKS DELETE ERROR WORD F0E18390
SLW BINRY F0E18400
TSX PRNTW,4 *LIST AND PUNCH THIS ERROR WORD F0E18410
TRA READ1 F0E18420
REM F0E18430
BESOP CAL LITRL LOAD LENGTH,,DEFINITION F0E18440
TZE BES01 IS THIS BSS/BES 0 F0E18450
ARS 18 NO, RECALL LOCATION OF SYMBOL F0E18460
ADD LOCTR COMPUTE LOCATION F0E18470
STA ADDRS F0E18480
BES01 TSX REFPP,4 *ENTER SYMBOL IN REF TABLE $F0E18490
CAL LITRL RECALL LENGTH OF BLOCK $F0E18500
TSX BPCTR,4 *BUMP PROGRAM COUNTER $F0E18510
TSX REFLC,4 *CHECK LOCATION COUNTER F0E18520
TSX PRNTL,4 *PRINT LOCATION LEFT ADJUSTED F0E18530
CAL LITRL RELOAD LENGTH,,DEFINITION F0E18540
TZE *+2 IS THIS BSS/BES 0 F0E18550
TSX PUNCH,4 *NO, PUNCH PARTIAL CARD F0E18560
TSX PAK01,4 UPDATE CARD ORIGIN IN CASE CARD WAS EMPTY F0E18570
TRA READ1 F0E18580
REM F0E18590
BOLOP STL TYPDF SET BOOLEAN FLAG FOR PRINT ROUTINE F0E18600
TSX REFPP,4 *SCAN VARIABLE FIELD F0E18610
REM REENTRY FOR TAPENO F0E18620
TSX REFLP,4 *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E18630
CAL LITRL SET SYMBOL DEFINITION F0E18640
SLW ADDRS F0E18650
TSX PRNTR,4 *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E18660
TRA READ1 F0E18670
REM F0E18680
ETCOP CAL BCDBF LOAD LOCATION FIELD F0E18690
ERA BLANKS IS IT BLANK F0E18700
SLW ERRFF SET ERROR FLAG IF NOT F0E18710
CAL BCDBF+13 LOAD FLAGS F0E18720
ANA Q2 MASK IN ETC FLAG F0E18730
SLW ETCMD SET FLAG FOR NEXT CARD F0E18740
ZET VFDMD IS ETC FOR VFD F0E18750
TRA VFETC YES F0E18760
TRA CLETC NO, IT IS FOR CALL F0E18770
REM F0E18780
CALOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E18790
CAL BCDBF+13 LOAD FLAGS F0E18800
ANA Q2 MASK IN ETC FLAG F0E18810
SLW ETCMD SET FLAG FOR NEXT CARD F0E18820
CAL T4 SET CALLING LINKAGE ON XR4 F0E18830
SLW BINRY FOR FIRST FIELD (SUBPROGRAM NAME) F0E18840
CLA LOCTR SAVE CALLING LOCATION F0E18850
ANA ADDMK MASK OUT RELOCATION BITS F0E18860
STO ERASE FOR STANDARD ERROR PROCEDURE F0E18870
TRA CALP1 TEST FOR ABSOLUTE ASSEMBLY $F0E18880
TRA CAL01 F0E18890
REM REENTRY AFTER COMMA OR ETC CARD F0E18900
CLETC TSX C019A,4 *LOOK AT NEXT CHARACTER F0E18910
ERA BLANK IS IT BLANK FOLLOWING COMMA F0E18920
TNZ CAL01 NO F0E18930
ZET ETCMD YES, DOES ETC CARD FOLLOW F0E18940
TRA VFD04+2 YES F0E18950
CAL TSXOC NO, CREATE NULL ARGUMENT F0E18960
SLW BINRY F0E18970
STZ INDIC F0E18980
TSX PRNTI,4 *LIST AND PUNCH THIS INSTRUCTION F0E18990
TRA CAL02 F0E19000
REM REENTRY TO ASSEMBLE SUBPROGRAM NAME, NEXT ARGUMENT F0E19010
CAL01 TSX SCANF,4 *EVALUATE NEXT FIELD F0E19020
TXI AFLAG,,0 NULL SUBPROGRAM NAME F0E19030
ORA TSXOC APPEND TSX F0E19040
ORS BINRY F0E19050
SLT EXPRR WAS ADDRESS IN ERROR F0E19060
TRA *+5 NO F0E19070
CAL BLANK YES, BLANK OUT ADDRESS FIELD F0E19080
SLW OCTAL+2 F0E19090
CAL BLANKS F0E19100
SLW OCTAL+3 F0E19110
CAL RBITS INSERT RELOCATION BITS F0E19120
SLW INDIC F0E19130
TSX PRNTI,4 *LIST AND PUNCH THIS INSTRUCTION F0E19140
STZ TVFLG RESET FLAG FOR TRANSFER VECTOR NAME F0E19150
STZ BINRY DELETE TAG FOR FOLLOWING FIELDS (ARGS) F0E19160
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E19170
TRA CLETC NO F0E19180
REM ETC MAY NOT FOLLOW F0E19190
CAL02 NZT SEPFLG IS STANDARD ERROR PROCEDURE REQUESTED F0E19200
TRA CAL03 NO F0E19210
CLA ERASE YES, LOAD LOCATION OF CALL F0E19220
LGR 12 ISOLATE FIRST DIGIT F0E19230
ALS 18 F0E19240
STD BINRY IN FIRST WORD DECREMENT FIELD F0E19250
PXD ,0 DELETE FIRST DIGIT F0E19260
LGL 12 RECALL LOW ORDER FOUR DIGITS F0E19270
STO SYMBL SAVE FOR SECOND WORD DECREMENT F0E19280
CLA LOCTR LOAD * F0E19290
ADD Q2 COMPUTE *+2 F0E19300
STA BINRY INSERT IN FIRST WORD ADDRESS F0E19310
CAL P1 LOAD TXI OPERATION F0E19320
STP BINRY INSERT IN FIRST WORD PREFIX F0E19330
STL TYPAF SET TYPE A INSTRUCTION FLAG F0E19340
CAL Q2 SET INSTRUCTION ADDRESS RELOCATABLE F0E19350
SLW INDIC F0E19360
TSX PRNTI,4 *LIST AND PUNCH INSTRUCTION F0E19370
LDQ SYMBL RELOAD LOW ORDER FOUR DIGITS OF CALL LOC $F0E19380
TSX OCTDV,4 *CONVERT TO DECIMAL $F0E19390
ALS 18 SHIFT INTO DECREMENT F0E19400
ORA LINKG APPEND LINKAGE DIRECTOR IN ADDRESS F0E19410
STO BINRY DELETE RELOCATION BIT 0 F0E19420
ARS 34 REPOSITION RELOCATION BIT F0E19430
STO INDIC F0E19440
TSX PRNTI,4 *LIST AND PUNCH INSTRUCTION F0E19450
STZ TYPAF RESET TYPE A INSTRUCTION FLAG F0E19460
CAL03 TRA READ1 F0E19470
TSXOC TSX ,0 F0E19480
REM F0E19490
COMOP CAL LITRL LOAD ADDRS,,UPCTR F0E19500
STA ADDRS DEFINE SYMBOL LOCATION AT TOP OF BLOCK F0E19510
ARS 18 F0E19520
LDI BCDBF LOAD LOCATION FIELD F0E19530
IIS BLANKS F0E19540
OFT ALONE IS IT BLANK (COMMON DEFINITION) F0E19550
CLA ADDRS NO, DEFINE SYMBOL LOCATION AT TOP OF BLOCKF0E19560
STA ADDRS F0E19570
TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E19580
TSX REFLP,4 *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E19590
TSX PRNTR,4 *PRINT INPUT CARD, LOCATION RIGHT ADJ F0E19600
TRA READ1 F0E19610
REM F0E19620
DECOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E19630
TSX DECCV,4 *CONVERT INTEGER TO DECIMAL F0E19640
STO BINRY F0E19650
TSX PRNTD,4 *LIST AND PUNCH INTEGER F0E19660
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E19670
TRA DECOP+1 NO F0E19680
TRA READ1 YES F0E19690
REM F0E19700
DETOP NZT UNLSF IS LISTING SUPPRESSED F0E19710
STZ TITLF NO, RESET TITLE FLAG F0E19720
TSX PRNCC,4 *PRINT CONTROL CARD F0E19730
TRA READ1 F0E19740
REM F0E19750
DUPOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E19760
CAL LITRL LOAD DUP RANGE,,ITERATIONS-1 F0E19770
TZE DUP01 IS RANGE ZERO F0E19780
STA DUPC1 NO, INITIALIZE RANGE F0E19790
STA SKDUP SET LENGTH OF BACKSPACE F0E19800
ANA ADDMK DELETE ITERATIONS F0E19810
SUB Q1 F0E19820
AXT CNTRL,1 SET ONE CARD DUP TA TO AVOID BUFFERING F0E19830
TZE *+2 IS DUP LONGER THAN ONE CARD F0E19840
AXT READ0,1 YES, RESET TA TO INITIATE LOOKAHEAD BUFF F0E19850
SXA DUPC3,1 F0E19860
ADD Q2 F0E19870
STA DUPCD INITIALIZE RANGE+1 F0E19880
CAL LITRL LOAD DUP RANGE,,ITERATIONS-1 F0E19890
ARS 18 ISOLATE RANGE F0E19900
TZE DUP01 IS ITERATION 0 OR 1 F0E19910
STA DUPC2 NO, INITIALIZE ITERATIONS-1 F0E19920
AXT 19,4 SET LENGTH OF LISTING LINE FOR F0E19930
SXA DUPC0,4 FIRST ITERATION F0E19940
AXT -1,4 RESET ONE CARD DUP ITERATION SWITCH F0E19950
SXD DUPC0+3,4 F0E19960
STL DUPMD SET DUP MODE FLAG F0E19970
DUP01 TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E19980
TSX PRNTR,4 *PRINT INPUT CARD, LOCATION RIGHT ADJUST F0E19990
TRA READ1 F0E20000
REM F0E20010
EJCOP NZT UNLSF IS LISTING SUPPRESSED F0E20020
SXA PAGCNT,0 NO, RESET COUNT OF LINES REMAINING ON PAGEF0E20030
TSX PRNCC,4 *PRINT CONTROL CARD F0E20040
TRA READ1 F0E20050
REM F0E20060
ENDOP ZET DUPMD IS THIS CARD WITHIN RANGE OF DUP F0E20070
TRA PHASE **YES F0E20080
NZT ABSFLG NO, IS ASSEMBLY ABSOLUTE F0E20090
TRA END01 NO F0E20100
TSX SCANF,4 *YES, EVALUATE ADDRESS F0E20110
TXI END02,,0 NULL TRANSFER ADDRESS F0E20120
SLT EXPRR WAS ADDRESS IN ERROR F0E20130
TRA *+2 NO F0E20140
TRA END02 YES F0E20150
STO ADDRS F0E20160
STO ERASE SAVE FOR TRANSFER CARD F0E20170
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E20180
STL ERRFF NO, SET FLAG F0E20190
TSX PRNTR,4 *PRINT CARD, TRANSFER ADDRESS RIGHT ADJ F0E20200
TRA READ1 F0E20210
END01 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E20220
ERA BLANK IS IT BLANK F0E20230
TZE END02 YES F0E20240
STL ERRFF NO, SET ERROR FLAG F0E20250
END02 SXD ENDFB,0 SET SWITCH TO OMIT TRANSFER CARD F0E20260
TSX PRNTC,4 *PRINT INPUT CARD F0E20270
TRA READ1 F0E20280
REM F0E20290
ENTOP CLA RESIDU LOAD ENTRY POINT NAME F0E20300
STZ ERASE CLEAR WORKING STORAGE F0E20310
LRS 30 LOAD FIRST CHARACTER F0E20320
TNZ ENT01 IS IT - (SECONDARY ENTRY POINT) F0E20330
STO ERASE YES, SAVE IT F0E20340
LRS 4 CHANGE TO + FOR SCAN F0E20350
LGR 1 F0E20360
STQ RESIDU F0E20370
REM REENTRY FOR PRIMARY ENTRY POINT NAMES F0E20380
ENT01 STZ SYMBL RESET NAME FOR BLANK VARIABLE FIELD F0E20390
TSX SCANF,4 *EVALUATE ENTRY POINT NAME F0E20400
TXI AFLAG,,0 NULL ENTRY POINT NAME F0E20410
TSX LADJS,4 *LEFT ADJUST ENTRY POINT NAME F0E20420
XCL F0E20430
CAL SEPFLG LOAD STANDARD ERROR PROCEDURE FLAG F0E20440
ERA ALONE IS IT OFF, OR HAS IT BEEN INITIALIZED F0E20450
TNZ *+2 YES F0E20460
TRA ENTPC NO $F0E20470
STQ BINRY F0E20480
PXD ,0 F0E20490
LGL 3 LOAD ZONE BITS OF FIRST CHARACTER F0E20500
SLT EXPRR IS SYMBOL IN ERROR F0E20510
TRA *+2 NO F0E20520
TRA ENT02 YES F0E20530
NZT BINRY IS ENTRY EXPLICIT ZERO (MAIN PROGRAM) F0E20540
TRA *+3 YES F0E20550
NZT VARUR NO, IS NAME RELOCATABLE F0E20560
STL ERRFR NO, SET ERROR FLAG F0E20570
TSX STORE,4 *INSERT NAME ON PROGRAM CARD F0E20580
CAL VAREQ COMBINE LOCATION OF ENTRY POINT F0E20590
ORA ERASE WITH SECONDARY FLAG F0E20600
NZT BINRY IS NAME EXPLICIT ZERO F0E20610
CAL PROLG YES, SET MAIN ENTRY POINT TO FIRST INSTR F0E20620
SLW BINRY F0E20630
STA ADDRS F0E20640
TSX STORE,4 *INSERT LOCATION ON PROGRAM CARD F0E20650
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E20660
STL ERRFF NO, SET ERROR FLAG F0E20670
TRA ENT02+2 F0E20680
ENT02 NZT ERRFU IS SYMBOL UNDEFINED F0E20690
STL ERRFP NO, SET PHASE ERROR FLAG F0E20700
TSX PRNTR,4 *PRINT INPUT CARD, ENTRY POINT RIGHT ADJ F0E20710
TRA READ1 F0E20720
REM F0E20730
FULOP TSX PUNCH,4 *PUNCH PARTIAL ABS, FUL OR 9LP CARD F0E20740
STZ 9LPMD RESET 9LP FLAG F0E20750
STL FULMD SET FLAG FOR CARDS FUL FORMAT F0E20760
CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E20770
ERA BLANK IS IT BLANK F0E20780
SLW ERRFF SET ERROR FLAG IF NOT F0E20790
TSX PRNTC,4 *PRINT INPUT CARD F0E20800
TRA READ1 F0E20810
REM F0E20820
HEDOP CAL LITRL LOAD HEADING CHARACTER F0E20830
SLW BHEAD RESET HEADING CHARACTER F0E20840
TSX PRNTC,4 *PRINT INPUT CARD F0E20850
TRA READ1 F0E20860
REM F0E20870
REM PREPARE FIRST WORD STL* (EOF) F0E20880
IFEOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E20890
CAL STLIC SET BINARY WORD TO STL* F0E20900
SLW BINRY F0E20910
CAL Q2 SET ADDRESS DIRECTLY RELOCATABLE F0E20920
SLW INDIC F0E20930
CAL R(EOF SET NAME OF SUBROUTINE F0E20940
SLW SYMBL F0E20950
TSX SSYMT,4 *EVALUATE LOCATION IN TRANSFER VECTOR F0E20960
SLT EXPRR IS SYMBOL UNDEFINED F0E20970
TRA *+2 NO F0E20980
TSX MACERR,4 **YES F0E20990
STA BINRY F0E21000
TSX PRNTI,4 *LIST AND PUNCH THIS INSTRUCTION F0E21010
REM PREPARE SECOND WORD NOP ADDR F0E21020
CAL NOPOC SET BINARY OPCODE TO NOP F0E21030
SLW BINRY F0E21040
TSX SCANF,4 *EVALUATE TRANSFER ADDRESS F0E21050
TXI AFLAG,,0 NULL TRANSFER ADDRESS F0E21060
STA BINRY F0E21070
LDQ RBITS SET ADDRESS RELOCATION BITS F0E21080
STQ INDIC F0E21090
TZE *+3 IS TRANSFER ADDRESS 0 (TO BE INITIALIZED) F0E21100
NZT VARUR NO, IS TRANSFER ADDRESS RELOCATABLE F0E21110
STL ERRFR NO, SET ERROR FLAG F0E21120
SLT EXPRR WAS ADDRESS IN ERROR F0E21130
TRA IFE01 NO F0E21140
CAL BLANK BLANK OUT OCTAL LISTING F0E21150
SLW OCTAL+2 F0E21160
CAL BLANKS F0E21170
SLW OCTAL+3 F0E21180
IFE01 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E21190
STL ERRFF NO, SET FLAG F0E21200
TSX PRNTI,4 *LIST AND PRINT THIS INSTRUCTION F0E21210
TRA READ1 F0E21220
R(EOF BCI 1,0(EOF) F0E21230
STLIC STL* 0 F0E21240
NOPOC NOP F0E21250
REM F0E21260
INXOP TXH INX01,4,-1 HAS TITLE BEEN WRITTEN F0E21270
SXD INXOP,0 NO, RESET SWITCH F0E21280
TSX PRLST,4 *PRINT BLANK LINE F0E21290
PZE F0E21300
TSX PRLST,4 *PRINT INDEX TITLE F0E21310
PZE INTIT,,6 (26)F0E21320
INX01 TSX PRNCC,4 *PRINT CONTROL CARD F0E21330
LXD VRFLD,2 RELOAD WORD COUNT F0E21340
LXA VRFLD,1 RELOAD CHARACTER COUNT F0E21350
TSX SCANF,4 *EVALUATE NEXT EXPRESSION (26)F0E21360
TXI READ1,,0 ALL DONE F0E21370
TSX LADJS,4 LEFT ADJUST SYMBOL (26)F0E21380
SLW INX02+1 (26)F0E21390
TRA *+3 (26)F0E21400
PZE (NOT USED) (26)F0E21410
PZE (NOT USED) (26)F0E21420
CAL BLANKS F0E21430
SLW INX02+2 (26)F0E21440
CAL VAREQ LOAD SYMBOL DEFINITION (26)F0E21450
TSX SHIFT,4 *CONVERT TO OCTAL F0E21460
SLT EXPRR WAS DEFINITION IN ERROR F0E21470
SLW INX02+2 NO, SET SYMBOL DEFINITION (26)F0E21480
AXT ERRFB-ERRFU+1,4 LOAD LENGTH OF FATAL ERROR LIST F0E21490
ZET ERRFB+1,4 IS A FATAL ERROR FLAGGED F0E21500
STL ERRFF YES, RAP KNUCKLES F0E21510
STZ ERRFB+1,4 THROW OUT THE LIFE LINE F0E21520
TIX *-3,4,1 IS FATAL ERROR LIST EXHAUSTED F0E21530
SXA *+3,2 YES, SAVE WORD COUNT F0E21540
TSX PRLST,4 *LIST SYMBOL AND DEFINITION F0E21550
PZE INX02,,6 (26)F0E21560
AXT **,2 RELOAD WORD COUNT F0E21570
TRA INX01+3 F0E21580
REM F0E21590
LBLOP AXT 3,4 RESTORE LABEL TO I/O PARAMETER F0E21600
SXD BOTIO,4 F0E21610
SXD BOTIO+2,4 F0E21620
STL LBLFLG SET BINARY CARD LABEL FLAG F0E21630
TSX SSCAN,4 *ASSEMBLE NEW SERIALIZATION F0E21640
TXI K003,,0 NULL SERIALIZATION ON LBL CARD. SEE (32)F0E21650
* IF PROGRAM CARD HAS BEEN PUNCHED YET.(32)F0E21651
SLT EXPRR WAS SERIALIZATION IN ERROR F0E21660
SLT EXPND NO, DID SERIALIZATION END WITH OPERATION F0E21670
TRA LBL01 YES, DELETE LABEL F0E21680
CAL SYMB2 NO, RELOAD SERIALIZATION F0E21690
LDQ SYMBL F0E21700
NZT SYMBL IS LOW ORDER PORTION ZERO F0E21710
TZE LBL01+2 YES, IS HIGH ORDER PORTION ZERO F0E21720
LAS FCMSK NO, IS SYMBOL LEFT ADJUSTED F0E21730
TRA LBL01+2 YES F0E21740
NOP NO (MACHINE ERROR) F0E21750
LGL 6 LEFT ADJUST SERIALIZATION ONE CHARACTER F0E21760
TRA *-4 F0E21770
REM SERIALIZATION IN ERROR F0E21780
LBL01 SLN EXPRR SET ERROR FLAG F0E21790
LGL 74 DELETE LABEL F0E21800
REM SERIALIZATION CORRECT F0E21810
SLW NERAS SAVE HIGH ORDER PORTION OF LABEL F0E21820
STQ BERAS SAVE LOW ORDER PORTION OF LABEL F0E21830
TSX SSCAN,4 *ASSEMBLE CONTROL CHARACTER F0E21840
TXI *+1,,0 NULL CONTROL CHARACTER F0E21850
CAL SYMBL LOAD CONTROL CHARACTER F0E21860
SLT EXPRR WAS CHARACTER (OR SERIALIZATION) IN ERROR F0E21870
SLT EXPND NO, DID CHARACTER END WITH OPERATION F0E21880
PXD ,0 YES, DELETE LISTING F0E21890
SLW XERAS F0E21900
LBL02 TXL *+2,4,-1 HAS PROGRAM CARD BEEN PUNCHED F0E21910
TSX PUNCH,4 *YES, PUNCH LAST PARTIAL CARD F0E21920
CAL XERAS SET LISTING LABEL FLAG F0E21930
SLW LBLFG F0E21940
TNZ *+2 IS SERIALIZATION LISTING FLAG ON F0E21950
SXD STORE+1,0 NO, RESET CARD SERIAL NO LISTING SWITCH F0E21960
CAL NERAS RELOAD LABEL F0E21970
LDQ BERAS F0E21980
TSX IDENT,4 *CREATE CARD LABEL F0E21990
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E22000
TRA *+3 NO F0E22010
TSX PRNCC,4 *PRINT CONTROL CARD F0E22020
TRA READ1 F0E22030
STL ERRFF YES, SET ERROR FLAG F0E22040
TSX PRNTC,4 *PRINT INPUT CARD AND ERROR FLAG F0E22050
TRA READ1 F0E22060
REM TURN OFF BINARY CARD LABELLING F0E22070
LBL03 TSX PUNCH,4 *FORCE PUNCHING OF LAST LABELED CARD F0E22080
SXD BOTIO,0 DELETE CARD LABEL FROM I/O COMMAND F0E22090
SXD BOTIO+2,0 F0E22100
STZ LBLFLG RESET LABEL FLAG F0E22110
STZ LBLFG RESET LABEL LISTING FLAG F0E22120
SXD STORE+1,0 RESET LABEL LISTING SWITCH F0E22130
TSX PRNCC,4 *PRINT CONTROL CARD F0E22140
TRA READ1 F0E22150
FCMSK OCT 007777777777 F0E22160
REM F0E22170
LSTOP STZ UNLSF RESET UNLIST FLAGS F0E22180
STZ UNL1F F0E22190
TSX PRLST,4 *PRINT BLANK LINE F0E22200
PZE F0E22210
TSX PRNCC,4 *PRINT CONTROL CARD F0E22220
TRA READ1 F0E22230
REM F0E22240
REM F0E22250
REM EVALUATE LITERAL F0E22260
LITOP LDI BCDBF+13 LOAD FLAGS F0E22270
RNT 10 WAS LITERAL IN ERROR F0E22280
TRA *+4 NO F0E22290
STL ERRFL YES, SET LITERAL ERROR FLAG F0E22300
TSX SCEND,4 *SCAN PAST LITERAL IN ERROR F0E22310
TRA INT05 F0E22320
REM LITERAL IS NOT IN ERROR F0E22330
TSX C0190,4 *DELETE EQUAL SIGN F0E22340
TSX C019A,4 *LOOK AT NEXT CHARACTER F0E22350
ERA QH IS LITERAL HOLLERITH F0E22360
TNZ LIT02 NO F0E22370
REM LITERAL IS HOLLERITH, DELETE FIRST 8 CHARACTERS F0E22380
LIT01 AXT **,4 LOAD CHARACTER COUNT (INITIALLY 0) F0E22390
TXI *+1,4,1 BUMP F0E22400
SXA LIT01,4 F0E22410
TXH *+3,4,8 HAVE 8 CHARACTERS BEEN DELETED F0E22420
TSX C0190,4 *NO, DELETE ONE MORE F0E22430
TRA LIT01 F0E22440
REM END OF HOLLERITH LITERAL F0E22450
SXA LIT01,0 RESET CHARACTER COUNT F0E22460
ERA BLANK IS THIS END OF VARIABLE FIELD F0E22470
TNZ *+2 NO F0E22480
SLN FLDND YES, SET FLAG F0E22490
TRA LIT02+1 F0E22500
REM REENTRY FOR NUMERIC LITERAL F0E22510
LIT02 TSX SCEND,4 *SCAN PAST LITERAL F0E22520
REM SEARCH LITERAL TABLE F0E22530
CAL LITRL LOAD LITERAL F0E22540
SXA SLIT3+3,1 SAVE CHARACTER COUNT F0E22550
SXA SLIT3+2,2 SAVE WORD COUNT F0E22560
LXA LITSIZ,2 LOAD LOGARITHM OF TABLE LENGTH F0E22570
AXT 0,1 LOAD LOCATION OF FIRST WORD IN TABLE F0E22580
XEC SLIT2+1,2 BUMP TO MIDDLE OF TABLE F0E22590
REM REENTRY AFTER BINARY HOP F0E22600
SLIT1 TXL *+4,1,** IS SEARCH PAST UPPER END OF LITERAL TABLE F0E22610
LAS LITTBL-1,1 NO, IS IT THIS LITERAL F0E22620
TXI SLIT2+1,2,-2 NO, LARGER - GO LOOK HIGHER F0E22630
TXI SLIT2+2,1,1 YES F0E22640
TXI SLIT2,2,-2 NO, SMALLER - GO LOOK LOWER F0E22650
REM F0E22660
TXI SLIT1,1,-512 (MAXIMUM TABLE SIZE = 1024 LITERALS) F0E22670
TXI SLIT1,1,+256 F0E22680
TXI SLIT1,1,-256 F0E22690
TXI SLIT1,1,+128 F0E22700
TXI SLIT1,1,-128 F0E22710
TXI SLIT1,1,+64 F0E22720
TXI SLIT1,1,-64 F0E22730
TXI SLIT1,1,+32 F0E22740
TXI SLIT1,1,-32 F0E22750
TXI SLIT1,1,+16 F0E22760
TXI SLIT1,1,-16 F0E22770
TXI SLIT1,1,+8 F0E22780
TXI SLIT1,1,-8 F0E22790
TXI SLIT1,1,+4 F0E22800
TXI SLIT1,1,-4 F0E22810
TXI SLIT1,1,+2 F0E22820
TXI SLIT1,1,-2 F0E22830
TXI SLIT1,1,+1 F0E22840
TXI SLIT1,1,-1 F0E22850
NOP NOT FOUND F0E22860
TSX MACERR,4 **NOT FOUND F0E22870
SLIT2 XEC *,2 BUMP LOCATION OF LITERAL LOWER BY HALF F0E22880
XEC *,2 BUMP LOCATION OF LITERAL HIGHER BY HALF F0E22890
REM LITERAL IS FOUND F0E22900
CAL Q2 SET ADDRESS RELOCATABLE F0E22910
SLW RBITS F0E22920
SXA *+1,1 COMPUTE POSITION IN LITERAL TABLE F0E22930
AXC **,1 F0E22940
SLIT3 TXI *+1,1,** BUMP BY ORIGIN OF LITERAL TABLE F0E22950
PXA ,1 F0E22960
AXT **,2 RELOAD CARD WORD COUNT F0E22970
AXT **,1 RELOAD CARD CHARACTER COUNT F0E22980
TRA INT06 F0E22990
REM F0E23000
LOCOP CAL LITRL LOAD NEW ORIGIN F0E23010
ADD PROLG RELOCATE UPWARDS BY LENGTH OF F0E23020
SLW ADDRS VECTOR AND LINKAGE DIRECTOR, IF ANY F0E23030
STA LOCTR REDEFINE PROGRAM COUNTER F0E23040
TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E23050
TSX REFLC,4 *CHECK LOCATION COUNTER F0E23060
TSX PRNTR,4 *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E23070
TRA READ1 F0E23080
REM F0E23090
MAXOP CAL LITRL LOAD SYMBOL DEFINITION F0E23100
PAI F0E23110
LFT 1 IS SYMBOL RELOCATABLE F0E23120
LFT 4 YES, IS IT ABOVE THE TRANSFER VECTOR F0E23130
TRA *+2 NO F0E23140
ADD PROLG YES, RELOCATE DEFINITION UPWARD F0E23150
SLW ADDRS BY LENGTH OF VECTOR AND LINKAGE DIRECTOR F0E23160
TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E23170
TSX REFLP,4 *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E23180
TSX PRNTR,4 *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E23190
TRA READ1 F0E23200
REM F0E23210
MCERR CAL LITRL INSERT PASS ONE ERROR FLAG F0E23220
SLW PFLAG INTO LEFT HAND MARGIN OF LISTING F0E23230
ERA MFLAG IS THIS MULTIPLY DEFINED MACRO F0E23240
TZE *+2 YES F0E23250
STL NOGOF NO, SET FATAL ERROR FLAG F0E23260
CAL BLANKS BLANK OUT OCTAL LISTING F0E23270
SLW OCTAL F0E23280
SLW OCTAL+1 F0E23290
SLW OCTAL+2 F0E23300
SLW OCTAL+3 F0E23310
TSX LEVEL,4 *INSERT MACRO LEVEL IN CC 81 - 84 F0E23320
TSX FPRINT,4 *PRINT CARD IN ERROR F0E23330
PZE PFLAG,,19 F0E23340
STZ OCTAL CLEAR OCTAL EXPANSION F0E23350
STZ OCTAL+1 F0E23360
STZ OCTAL+2 F0E23370
STZ OCTAL+3 F0E23380
TRA READ1 F0E23390
REM F0E23400
OCTOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E23410
TSX OCTCV,4 *CONVERT INTEGER TO OCTAL F0E23420
SLW BINRY F0E23430
TSX PRNTD,4 *LIST AND PUNCH INTEGER F0E23440
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E23450
TRA OCTOP+1 NO F0E23460
TRA READ1 YES F0E23470
REM F0E23480
OPDOP CAL BLANKS SET LOCATION FIELD BLANK F0E23490
SLW OCTAL F0E23500
LDI LITRL LOAD OCTAL DEFINITION F0E23510
STL TYPAF SET TYPE A FLAG FOR PSEUDOOPERATION F0E23520
RFT 100000 IS THIS A MACHINE OPERATION F0E23530
TSX IFLGS,4 *YES, SET INSTRUCTION LISTING FLAGS F0E23540
NOP INSTRUCTION HAS FLAGS IN ADDRESS F0E23550
STI BINRY F0E23560
STL OPFLG SET OP DEFINITION FLAG F0E23570
TSX PRNTI,4 *LIST INSTRUCTION F0E23580
STZ OPFLG RESET OP DEFINITION FLAG F0E23590
TRA READ1 F0E23600
REM F0E23610
ORDOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E23620
LXD LITRL,4 LOAD OPCODE F0E23630
PXA ,4 F0E23640
TSX BCDCV,4 *CONVERT TO DECIMAL F0E23650
ALS 24 POSITION IN DIGITS 1, 2 F0E23660
SLW BINRY INSERT IN WORD $F0E23670
LDI LITRL LOAD VARIABLE FIELD FLAGS $F0E23680
RNT 600000 IS ACCESS MODULE REQUIRED $F0E23690
TRA ORDAM YES, ASSEMBLE $F0E23700
TSX ORDLP,4 *NO, CHECK NEXT CHARACTER $F0E23710
TZE ORDW1 IF BLANK, FINISHED $F0E23720
ORDAM TSX ORDSC,4 *ASSEMBLE ACCESS MODULE (2 DIGITS) $F0E23730
ANA Q4095 MASK IN TWO DIGITS $F0E23740
ALS 12 POSITION IN DIGITS 3, 4 $F0E23750
ORS BINRY INSERT IN WORD $F0E23760
LDI LITRL LOAD VARIABLE FIELD FLAGS $F0E23770
RNT 400000 IS TRACK REQUIRED $F0E23780
TRA ORDTK YES, ASSEMBLE $F0E23790
TSX ORDLP,4 *NO, CHECK NEXT CHARACTER $F0E23800
TZE ORDW1 IF BLANK, FINISHED $F0E23810
ORDTK TSX ORDSC,4 *ASSEMBLE TRACK (4 DIGITS) $F0E23820
ANA Q4BCD MASK IN FOUR DIGITS $F0E23830
LDQ Q0 ZERO MQ $F0E23840
LGR 12 $F0E23850
STQ ERASE SAVE RIGHT HALF OF TRACK $F0E23860
ORS BINRY INSERT LEFT HALF OF TRACK IN WORD $F0E23870
TSX ORDZR,4 *CONVERT TO TAPE BCD ZERO $F0E23880
TSX PRNTO,4 *LIST AND PUNCH FIRST WORD $F0E23890
CAL ERASE INSERT RIGHT HALF $F0E23900
SLW BINRY OF TRACK IN WORD $F0E23910
LDI LITRL LOAD VARIABLE FIELD FLAGS $F0E23920
RNT 200000 IS RECORD REQUIRED $F0E23930
TRA ORDRC YES, ASSEMBLE $F0E23940
TSX ORDLP,4 *NO, CHECK NEXT CHARACTER $F0E23950
TZE ORDW2 IF BLANK, FINISHED $F0E23960
ORDRC TSX SSCAN,4 *ASSEMBLE RECORD (2 DIGITS) $F0E23970
TXI ORDFA,,0 NULL FIELD $F0E23980
SLT EXPND WAS END OF EXPRESSION REACHED $F0E23990
TXI ORDFF,,0 NO, ILLEGAL OPERATOR PRESENT $F0E24000
CAL SYMBL $F0E24010
ALS 12 POSITION IN DIGITS 3,4 $F0E24020
PAI $F0E24030
LFT 777700 IS SYMBOL TOO LONG $F0E24040
TXI ORDFF,,0 YES $F0E24050
ORS BINRY INSERT IN NEXT WORD $F0E24060
TSX ORDLP,4 *CHECK NEXT CHARACTER $F0E24070
TRA ORDW2 FINISHED $F0E24080
ORDFF STL ERRFF SET F FLAG $F0E24090
TRA ORDW2 $F0E24100
ORDFA STL ERRFA SET MISSING FIELD FLAG $F0E24110
TRA ORDW2 $F0E24120
REM $F0E24130
REM CHECK NEXT CHARACTER $F0E24140
ORDLP CAL CHRCTR LOAD NEXT CHARACTER $F0E24150
ERA BLANK IS IT BLANK $F0E24160
ORS ERRFF SET FLAG IF NOT $F0E24170
TRA 1,4 $F0E24180
REM $F0E24190
HYPOP TSX REFLC,4 *CHECK LOCATION COUNTER $F0E24200
LXD LITRL,4 LOAD OPCODE $F0E24210
PXA ,4 $F0E24220
TSX BCDCV,4 *CONVERT TO DECIMAL $F0E24230
ALS 24 POSITION IN DIGITS 1, 2 $F0E24240
SLW BINRY INSERT IN WORD $F0E24250
LDI LITRL LOAD VARIABLE FIELD FLAG $F0E24260
RFT 200000 IS ADDRESS REQUIRED $F0E24270
TRA HYPAD YES $F0E24280
TSX ORDLP,4 *NO, CHECK NEXT CHARACTER $F0E24290
TRA ORDW2 FINISHED $F0E24300
HYPAD TSX ORDSC,4 *ASSEMBLE ADDRESS $F0E24310
ANA Q63 ZERO ALL BUT ONE DIGIT $F0E24320
ORS BINRY SET SECOND ADDRESS $F0E24330
LDQ BINRY OBTAIN OPCODE $F0E24340
LGL 18 POSITION AND STORE FIRST $F0E24350
ORS BINRY ADDRESS AND SECOND OPCODE $F0E24351
TRA HYPAD-2 GO CHECK NEXT CHARACTER $F0E24360
REM F0E24370
ORGOP CAL LITRL LOAD NEW ORIGIN F0E24380
ADD PROLG RELOCATE UPWARDS BY LENGTH OF F0E24390
SLW ADDRS VECTOR AND LINKAGE DIRECTOR, IF ANY F0E24400
STA LOCTR REDEFINE PROGRAM COUNTER F0E24410
STA CDCTR RESET CARD ORIGIN COUNTER F0E24420
TSX PUNCH,4 *PUNCH REMAINDER OF LAST CARD F0E24430
TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E24440
TSX REFLC,4 *CHECK LOCATION COUNTER F0E24450
TSX PRNTR,4 *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E24460
TRA READ1 F0E24470
REM F0E24480
PCCOP TSX ONOFF,4 *CHECK FOR ON, OFF, BLANK VARIABLE FIELD F0E24490
STO PRNSW RESET SWITCH AS PER VARIABLE FIELD F0E24500
TSX PRNTC,4 *PRINT INPUT CARD F0E24510
TRA READ1 F0E24520
REM F0E24530
PMCOP TSX ONOFF,4 *CHECK FOR ON, OFF, BLANK VARIABLE FIELD F0E24540
STO PMCSW+1 RESET SWITCH AS PER VARIABLE FIELD F0E24550
TSX PRNCC,4 *PRINT CONTROL CARD F0E24560
TRA READ1 F0E24570
REM F0E24580
REFOP SXD PREF6,0 RESET SYMBOLIC REFERENCE TABLE SWITCH F0E24590
TSX PRNCC,4 *PRINT CONTROL CARD F0E24600
TRA READ1 F0E24610
REM F0E24620
REMOP LXD VRFLD,4 WORD COUNT OF BEGINNING OF VARIABLE FIELD$F0E24630
CAL BLANKS TO BLANK OUT OPCODE $F0E24640
TXH *+2,4,-2 WHICH WORD NEEDS TO BE BLANKED $F0E24650
SLW BCDBF+1 ALL OF THE FIRST WORD $F0E24660
LDQ RESIDU HOW MUCH OF THIS WORD NEEDS TO BE BLANKED$F0E24670
TRA PTCHX TO OFF-LINE PATCH $F0E24680
REM F0E24690
RMTOP CAL LITRL RESET HEADING CHARACTER F0E24700
STA BHEAD F0E24710
TRA READ1 F0E24720
REM F0E24730
SETOP LXD IOLST,4 GET LENGTH OF LISTING LINE (21)F0E24740
TXL SET02,4,5 IS THIS REITERATION OF DUP.. (21)F0E24750
TSX REFPP,4 *NO, MAKE REFERENCE TABLE ENTRIES (21)F0E24760
CAL LITRL LOAD PASS ONE DEFINITION (21)F0E24770
PAI (21)F0E24780
LFT 1 IS SYMBOL RELOCATABLE (21)F0E24790
LFT 4 YES, BUT IS IT IN TRANSFER VECTOR (21)F0E24800
TRA *+2 IS IN VECTOR OR NOT RELOCATABLE (21)F0E24810
ADD PROLG RELOCATE ABOVE PROLOGUE (21)F0E24820
SET03 SLW ADDRS SAVE FOR LISTING (21)F0E24830
TSX REFLP,4 *ENTER POINT OF DEFINITION AS REFERENCE(21)F0E24840
REM ADDRESS INITIALIZED BY SSYMT (CALLED BY REFLP). (21)F0E24850
SET01 AXT **,1 OBTAIN POSITION IN SYMBOL TABLE (21)F0E24860
CAL ADDRS RELOAD DEFINITION (21)F0E24870
SLW* SSYM5 AND ENTER IT IN TABLE (21)F0E24880
TSX PRNTR,4 *LIST INPUT CARD LOCATION RIGHT ADJUSTED F0E24890
TRA READ1 F0E24900
REM F0E24910
SPCOP TRA PTCHZ (27)F0E24920
TMI SPC03 PMC OFF- DO NOT SPACE LISTING (27)F0E24930
TSX SCANF,4 *NO, EVALUATE LENGTH OF SKIP F0E24940
TXI AFLAG+1,,0 NULL SKIP LENGTH F0E24950
SLT EXPRR IS LENGTH OF SKIP IN ERROR F0E24960
ZET RBITS NO, IS IT RELOCATABLE F0E24970
TRA SPC02 YES F0E24980
TRA PATCH1 $F0E24990
TNX *+4,1,5 IS THIS BOTTOM OF PAGE F0E25000
SXD *+2,1 NO, SET TEST FOR BOTTOM OF PAGE F0E25010
PAX ,1 RECALL NUMBER OF LINES TO SPACE F0E25020
TXL *+3,1,** IS SPACE PAST BOTTOM OF PAGE F0E25030
SXA PAGCNT,0 YES, EJECT PAGE F0E25040
TRA SPC01 F0E25050
TSX FPRINT,4 *SPACE NEXT LINE F0E25060
PZE F0E25070
TIX *-2,1,1 IS SPACING COMPLETE F0E25080
SLT FLDND YES, WAS END OF VARIABLE FIELD SENSED F0E25090
TRA SPC02 NO F0E25100
SPC01 TSX PRNCC,4 *YES, PRINT CONTROL CARD F0E25110
TRA SPC03 F0E25120
SPC02 STL ERRFF SET ERROR FLAG F0E25130
STZ ERRFU PREVENT ABORTION F0E25140
STZ ERRFR F0E25150
STZ ERRFE F0E25160
TSX PRNTC,4 *PRINT INPUT CARD F0E25170
SPC03 TRA READ1 F0E25180
REM F0E25190
TCDOP TSX SCANF,4 *EVALUATE TRANSFER ADDRESS F0E25200
TXI AFLAG,,0 NULL TRANSFER ADDRESS F0E25210
STO ADDRS SET TRANSFER ADDRESS F0E25220
STO ERASE SAVE FOR TRANSFER CARD F0E25230
SLT EXPRR WAS TRANSFER ADDRESS IN ERROR F0E25240
TSX PCHTC,4 *NO, PUNCH TRANSFER CARD F0E25250
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E25260
STL ERRFF NO, SET FLAG F0E25270
TSX PRNTR,4 *PRINT CARD, TRANSFER ADDRESS RIGHT ADJ F0E25280
TRA READ1 F0E25290
REM F0E25300
TITOP NZT UNLSF IS LISTING SUSPENDED F0E25310
STL TITLF NO, SET TITLE FLAG F0E25320
TSX PRNCC,4 *PRINT CONTROL CARD F0E25330
TRA READ1 F0E25340
REM F0E25350
TTLOP CAL CHRCTR SET SUBHEAD FLAG F0E25360
SLW TTLFG RESET IF FIRST CHARACTER IS ZERO F0E25370
CAL BLANKS LOAD LEADING BLANKS F0E25380
LDQ BCDBF+1 LOAD CC 7 - 12 F0E25390
RQL 24 DELETE CC 7 - 10 F0E25400
LGL 12 INSERT CC 11 - 12 F0E25410
SLW BLANKS+3 INTO WORD 4 OF SUBHEADING F0E25420
AXT 10,4 F0E25430
LDQ BCDBF+12,4 INSERT CC 13 - 72 F0E25440
STQ BLANKS+14,4 INTO WORDS 5 - 14 OF SUBHEADING F0E25450
TIX *-2,4,1 F0E25460
CAL BCDBF LOAD LOCATION FIELD F0E25470
ERA BLANKS DOES A RENUMBER EXIST F0E25480
TZE TTL03 NO F0E25490
LDQ BCDBF YES, RELOAD PAGE NUMBER F0E25500
STZ SYMBL CLEAR WORKING STORAGE F0E25510
AXT 6,4 PREPARE TO ASSEMBLE 6 CHARACTERS F0E25520
TTL01 PXD ,0 F0E25530
LGL 6 LOAD NEXT CHARACTER F0E25540
SLW CHRCTR F0E25550
TZE *+3 IS CHARACTER 0 F0E25560
ERA BLANK NO, IS IT BLANK F0E25570
TZE TTL02 YES F0E25580
CAL SYMBL APPEND THIS CHARACTER TO PARTIAL NUMBER F0E25590
ALS 6 F0E25600
ADD CHRCTR F0E25610
SLW SYMBL SAVE PARTIAL NUMBER F0E25620
TTL02 TIX TTL01,4,1 IS NUMBER COMPLETE F0E25630
TSX DECSV,4 *YES, CONVERT TO BINARY INTEGER F0E25640
SUB Q1 F0E25650
SLT EXPRR IS INTEGER TOO LARGE F0E25660
STA PAGENO NO, RESET PAGE NUMBER F0E25670
TTL03 SXA PAGCNT,0 EJECT PAGE F0E25680
TSX PRNCC,4 *PRINT CONTROL CARD F0E25690
TRA READ1 F0E25700
REM F0E25710
UNLOP STL UNL1F SET UNLIST FLAG F0E25720
TSX PRNTC,4 *PRINT INPUT CARD F0E25730
TRA READ1 F0E25740
REM F0E25750
VFDOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E25760
TRA VFDCR RESET RELOCATION BITS AND SET FLAG $F0E25770
CAL BCDBF+13 SET ETC CARD FLAG F0E25780
ANA Q2 F0E25790
SLW ETCMD F0E25800
AXT 36,4 SET UNUSED BIT COUNT TO FULL WORD F0E25810
SXA VFDRB,4 F0E25820
STZ VFDPF RESET FLAG FOR FIELD ENDING IN BIT 35 F0E25830
REM REENTRY AFTER , TO START NEXT FIELD F0E25840
VFETC TSX VFDCV,4 *ASSEMBLE NEXT FIELD F0E25850
REM REENTRY TO PACK SECOND WORD OF A LONG FIELD F0E25860
VFD01 CLA VFDFB DOES IT RATTLE F0E25870
SUB VFDRB F0E25880
TMI VFD02 YES F0E25890
STO VFDFB IT RATTLES NOT F0E25900
TNZ *+5 DOES IT FIT PERFECT F0E25910
STL VFDPF PERFECT FIT, AWARD YOURSELF ONE MEDAL F0E25920
CAL RBITS SET RELOCATION INDICATOR F0E25930
STA INDIC F0E25940
STZ RBITS RESET RELOCATION BITS F0E25950
CLA VFDRB LOAD NUMBER OF BITS LEFT IN WORD F0E25960
STA *+3 SET SHIFT F0E25970
CAL BINRY LOAD DATUM WORD F0E25980
LDQ VFDFL+1 LOAD HIGH ORDER PORTION OF FIELD F0E25990
LGL ** APPEND AS FAR AS IT GOES F0E26000
SLW BINRY SAVE WORD F0E26010
CAL VFDFL+1 RELOAD HIGH ORDER PORTION OF WORD F0E26020
LDQ VFDFL RELOAD LOW ORDER PORTION OF WORD F0E26030
XEC *-4 LEFT ADJUST REMAINDER F0E26040
SLW VFDFL+1 SAVE NEW HIGH ORDER PORTION OF WORD F0E26050
STQ VFDFL SAVE NEW LOW ORDER PORTION OF WORD F0E26060
TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD F0E26070
STZ INDIC RESET RELOCATION INDICATOR F0E26080
AXT 36,4 RESET NUMBER OF BITS AVAILABLE IN F0E26090
SXA VFDRB,4 NEXT WORD F0E26100
TRA VFD01 F0E26110
REM REENTRY FOR REMAINDER OF FIELD 36 BITS OR FEWER F0E26120
VFD02 NZT VFDFB ANY BITS LEFT F0E26130
TRA VFD03 NO F0E26140
STZ VFDPF IT RATTLES, YOU LOSE YOUR MEDAL F0E26150
STA VFDRB SAVE COUNT OF REMAINING FIELD F0E26160
ERA QB WILL FIELD FIT TIGHT IN DECREMENT F0E26170
TNZ *+4 NO F0E26180
LXA RBITS,4 YES, SET DECREMENT RELOCATION BITS F0E26190
SXD INDIC,4 F0E26200
STZ RBITS RESET RELOCATION BITS F0E26210
CLA RBITS LOAD RELOCATION BITS F0E26220
TZE *+3 WAS FIELD RELOCATABLE F0E26230
STL ERRFR YES, TSK, TSK, TSK, IT DIDNT FIT F0E26240
STZ RBITS F0E26250
CLA VFDFB LOAD LENGTH OF THIS FIELD F0E26260
STA *+3 SET SHIFT F0E26270
CAL BINRY LOAD PARTIAL DATUM WORD F0E26280
LDQ VFDFL+1 LOAD HIGH ORDER PORTION OF WORD F0E26290
LGL ** PACK IT IN F0E26300
SLW BINRY SAVE PARTIAL DATUM WORD F0E26310
REM END OF FIELD F0E26320
VFD03 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E26330
TRA VFETC NO F0E26340
REM END OF VARIABLE FIELD F0E26350
ZET ETCMD YES, DOES ETC CARD FOLLOW F0E26360
TRA VFD04+2 YES F0E26370
REM END OF VFD STATEMENT F0E26380
ZET VFDPF NO, DO YOU STILL HAVE YOUR MEDAL F0E26390
TRA VFD04 YES F0E26400
LDQ BINRY NO, LOAD PARTIAL DATUM WORD F0E26410
CLA VFDRB LOAD COUNT OF REMAINING BITS F0E26420
STA *+1 INITIALIZE SHIFT F0E26430
LGL ** TO LEFT ADJUST PARTIAL DATUM WORD F0E26440
STQ BINRY F0E26450
TSX PRNTW,4 *LIST AND PUNCH FINAL PARTIAL DATUM WORD F0E26460
REM REENTRY FOR BESPANGLED FIELD F0E26470
VFD04 STZ VFDPF RESET MEDAL F0E26480
STZ VFDMD RESET VFD MODE FLAG F0E26490
REM REENTRY AFTER CALL STATEMENT TO PRINT ERROR FLAG F0E26500
LXD IOLST,4 LOAD PRINT COMMAND WORD COUNT F0E26510
TXL *+2,4,5 WAS CARD PRINTED F0E26520
TSX PRNTC,4 *NO, PRINT INPUT CARD F0E26530
TRA READ1 F0E26540
REM F0E26550
REM F0E26560
PHASE TSX SCANF,4 *EVALUATE VARIABLE FIELD F0E26570
TXI *+5,,0 NULL VARIABLE FIELD F0E26580
NZT ERRFB IS ERROR BOOLEAN F0E26590
ZET ERRFR NO, IS ERROR RELOCATION ERROR F0E26600
TRA *+3 YES F0E26610
NZT ERRFU NO, IS SYMBOL UNDEFINED F0E26620
STL ERRFP NO, SET PHASE ERROR FLAG F0E26630
REM REENTRY FOR COMMENTS CARD F0E26640
TSX PRNTC,4 *PRINT INPUT CARD F0E26650
TRA READ1 F0E26660
REM F0E26670
REM ROUTINE TO TEST FOR ON/OFF OPTION OF CONTROL CARD F0E26680
ONOFF SXA ONOFX,4 SAVE CALLING LINKAGE F0E26690
TSX SSCAN,4 *CHECK VARIABLE FIELD F0E26700
TXI ONOFX,,0 NULL ON/OFF OPTION F0E26710
SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E26720
STL ERRFF NO F0E26730
SLT EXPRR WAS CHARACTER ILLEGAL F0E26740
SLT EXPND WAS END OF EXPRESSION REACHED F0E26750
TRA FIELD FIELD ERROR, FLAG AND SKIP CARD F0E26760
ONOFX AXT **,4 RESET LINKAGE F0E26770
CAL SYMBL PICK UP VARIABLE FIELD SYMBOL F0E26780
TNZ *+3 NON-BLANK, MAY BE 'ON', OR 'OFF' F0E26790
CLS* 1,4 BLANK FIELD, FLIP SWITCH F0E26800
TRA 1,4 AND RETURN. F0E26810
ERA ONMSK CHECK FOR 'ON' F0E26820
TZE ONRTN IT IS 'ON' F0E26830
ERA OFFMK CHECK FOR 'OFF' F0E26840
TNZ FIELD ILLEGAL FIELD, FLAG AND SKIP CARD F0E26850
CLA* 1,4 OFF, PICK UP PARAMETER F0E26860
SSM FORCE SWITCH TO NORMAL MODE F0E26870
TRA 1,4 AND RETURN. F0E26880
ONRTN CAL* 1,4 ON, PICK UP PARAMETER F0E26890
TRA 1,4 FORCE SWITCH TO 'ON' MODE, RETURN. F0E26900
ONMSK BCI 1,0000ON MASK FOR ON F0E26910
OFFMK BCI 1,000O T MASK FOR OFF F0E26920
REM F0E26930
FIELD LDI BCDBF+13 ERROR IN VARIABLE FIELD, F0E26940
SIR 4 SET ERROR FLAG F0E26950
STI BCDBF+13 F0E26960
LXA ONOFX,4 AND IGNORE THIS CARD F0E26970
TRA 2,4 F0E26980
CRDID BCI 8, BINARY CARD NO. CARD ORIGIN F0E26990
INTIT BCI 4, TABLE OF CONTENTS F0E27000
LDTIT BCI 4, LINKAGE DIRECTOR (26)F0E27010
PCTIT BCI 3, PROGRAM CARD F0E27020
TVTIT BCI 4, TRANSFER VECTOR F0E27030
LITIT BCI 4, LITERALS F0E27040
CBTIT BCI 9, IS THE LAST LOCATION NOT USED BY THIS PRO F0E27050
BCI 1,GRAM F0E27060
PGTIT BCI 9, IS THE FIRST LOCATION NOT USED BY THIS PRO F0E27070
BCI 1,GRAM F0E27080
REFHD IOCT *+1,,9 F0E27090
BCI 4, F0E27100
BCI 5,POST PROCESSOR ASSEMBLY DATA F0E27110
RFTIT BCI 6,0REFERENCES TO DEFINED SYMBOLS F0E27120
USTIT BCI 6,0REFERENCES TO UNDEFINED SYMBOLS F0E27130
REFOV BCI 9,0 SYMBOLIC REFERENCE TABLE OVERFLOWED. LISTING INC F0E27140
BCI 2,OMPLETE. F0E27150
DELOL BCI 9,0 ONLINE CARDS DELETED. PUSH START TO CONTINUE F0E27160
CDERR BCI 9,0 KEEP YOUR EYE ON THE ONLINE PUNCH. THE END FILE F0E27170
BCI 4,MAY NOT BE RECOGNIZED. F0E27180
ERTIT BCI 9,0 E0 NO ERROR IN ABOVE ASSEMBLY. EXECUTION DELETED. F0E27190
CHANG BCI 8,0 CHANGE TAPE AND PUSH START. EXECUTION DELETED. F0E27200
REM F0E27210
FAILD IOCP *+2,,24 EPITAPH FOR A SAD RELOCATABLE ASSEMBLY F0E27220
IOCT PBUFF1+24,,3 F0E27230
OCT ,,,,, F0E27240
OCT 200020040140,377437743760,200020040140,200020002010 F0E27250
OCT 200020040140,200020002004,374037740140,200037402004 F0E27260
OCT 200010100140,200020002010,377407600140,200037743760 F0E27270
OCT ,,,,, F0E27280
REM F0E27290
CTLWD PTW ** RELOCATABLE CARD 9L LOAD ADDRESS F0E27300
CHKSM DEC RELOCATABLE CARD 9R CHECKSUM F0E27310
RELBT DEC , RELOCATABLE CARD 8L,8R, RELOCATION BITS F0E27320
REM F0E27330
DEC MUST PRECEDE BMPBF TO KEEP CC81 CLEAN F0E27340
BMPBF DEC ,,,,,,, BUFFER FOR CHARACTERS IN CARD LABEL F0E27350
BMPSV DEC ,,,,,,, BUFFER TO SAVE CARD LABEL F0E27360
CIDBF DEC ,,,,,,, LISTING BUFFER FOR CARD ID NUMBER F0E27370
CIDSV DEC ,,,,,,, BUFFER TO SAVE LISTING CHARACTERS F0E27380
REM F0E27390
PAKPC SXA PRNCX,4 $F0E27400
AXT 5,4 $F0E27401
TNZ PRNCS+3 $F0E27402
SXD PRNCI,4 $F0E27403
TRA PRNCS+3 $F0E27404
REM $F0E27405
REM NEXT FIELD TO BE ASSEMBLED $F0E27406
REM $F0E27410
ORDSC SXA ORDSX,4 SAVE CALLING LINKAGE $F0E27420
TSX SCANF,4 *ASSEMBLE NEXT FIELD $F0E27430
TXL ORDSN,,0 NULL FIELD $F0E27440
TSX BCDCV,4 *CONVERT TO DECIMAL $F0E27450
NZT RBITS IS FIELD RELOCATABLE $F0E27460
TRA ORDSX NO $F0E27470
STL ERRFR YES, SET ERROR FLAGS $F0E27480
SLN EXPRR $F0E27490
ZAC DELETE FIELD IN ERROR $F0E27500
TRA ORDSX $F0E27510
ORDSN STL ERRFA SET MISSING FIELD FLAG $F0E27520
ORDSX AXT **,4 RELOAD CALLING LINKAGE $F0E27530
TRA 1,4 $F0E27540
REM $F0E27550
REM $F0E27560
Q4BCD OCT 77777777 $F0E27570
REM $F0E27580
ORDZR LDI BINRY LOAD WORD $F0E27590
LFT 770000 IS DIGIT 1 ZERO $F0E27600
TRA *+2 NO $F0E27610
SIL 120000 YES, CONVERT TO TAPE BCD ZERO $F0E27620
LFT 007700 IS DIGIT 2 ZERO $F0E27630
TRA *+2 NO $F0E27640
SIL 001200 YES, CONVERT TO TAPE BCD ZERO $F0E27650
LFT 000077 IS DIGIT 3 ZERO $F0E27660
TRA *+2 NO $F0E27680
SIL 000012 YES, CONVERT TO TAPE BCD ZERO $F0E27690
RFT 770000 IS DIGIT 4 ZERO $F0E27700
TRA *+2 NO $F0E27710
SIR 120000 YES, CONVERT TO TAPE BCD ZERO $F0E27720
RFT 007700 IS DIGIT 5 ZERO $F0E27730
TRA *+2 NO $F0E27740
SIR 001200 YES, CONVERT TO TAPE BCD ZERO $F0E27750
RFT 000077 IS DIGIT 6 ZERO $F0E27760
TRA *+2 NO $F0E27780
SIR 000012 YES, CONVERT TO TAPE BCD ZERO $F0E27790
STI BINRY $F0E28000
TRA 1,4 $F0E28010
REM $F0E28020
REM $F0E28030
ORDW1 TSX ORDZR,4 *CONVERT BCD ZEROS $F0E28040
TSX PRNTO,4 *LIST AND PUNCH FIRST WORD $F0E28050
STZ BINRY CLEAR NEXT WORD $F0E28060
ORDW2 TSX ORDZR,4 *CONVERT BCD ZEROS $F0E28070
TSX PRNTO,4 *LIST AND PUNCH THIS WORD $F0E28080
TRA READ1 $F0E28090
REM $F0E28100
REM CALL CORRECTION $F0E28101
CALP1 NZT ABSFLG IS IT ABSOLUTE ASSEMBLY $F0E28102
STL TVFLG NO, SET TRANSFER VECTOR NAME FLAG $F0E28103
TRA CLETC-1 $F0E28104
REM $F0E28105
REM SET CORRECTION $F0E28106
SET02 TSX SCANF,4 *EVALUATE VARIABLE FIELD (21)F0E28107
TXI AFLAG,,0 NULL DEFINITION (21)F0E28108
CAL VAREQ LOAD DEFINITION (21)F0E28109
STA LITRL REPLACE PASS ONE DEFINITION (35)F0E28110
CAL LITRL GET FLAGS WITH DEFINITION (35)F0E28111
TRA SET03 AND RETURN TO PROCESS THEM (35)F0E28112
PZE (UNUSED) (35)F0E28113
PZE $F0E28114
PZE $F0E28115
PZE $F0E28116
REM $F0E28117
REM ENTRY CORRECTION $F0E28118
ENTPC STQ ENTNM SAVE FIRST ENTRY POINT NAME $F0E28119
SXD SEPFLG,4 INITIALIZE STANDARD ERROR FLAG $F0E28120
TRA ENT01+9 $F0E28121
ENTNM PZE ** ENTRY POINT NAME $F0E28122
REM $F0E28123
REM BCI CORRECTION $F0E28124
BCI00 TSX PRNTL,4 *PRINT LOCATION LEFT ADJUSTED $F0E28125
TRA READ1 $F0E28126
REM $F0E28127
INITA SLW START SAVE LOCATION FIELD $F0E28128
CAL BCDBF+13 SAVE ERROR FLAGS $F0E28129
SLW INITP $F0E28130
STZ BCDBF+13 $F0E28131
TRA INIT1 F0E28132
INITB TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD $F0E28133
INITC CAL INITP RESTORE ERROR FLAGS $F0E28134
SLW BCDBF+13 $F0E28135
TRA INIT4 $F0E28136
INITP PZE $F0E28137
REM VFD CORRECTION $F0E28140
VFDCR STZ RBITS RESET RELOCATION BITS $F0E28141
STL VFDMD SET VFD CARD FLAG $F0E28142
TRA VFDOP+2 $F0E28143
REM PROGRAM CARD CORRECTION $F0E28144
INITR SXA STR09,4 RESET CARD WORD COUNT FOR RELOCATABLE $F0E28145
ZET MAINPF IS THIS A MAIN PROGRAM (24)F0E28146
ZET PRGBK YES, IS PROGRAM BREAK 0 (24)F0E28147
TRA INITS (24)F0E28148
ZSD PNCH1 MAIN PROGRAM WITH PROGRAM BREAK 0 (24)F0E28149
TRA INITS (24)F0E28250
PATCH1 LXA PAGCNT,1 LOAD NUMBER OF LINES LEFT ON PAGE $F0E28251
TXH SPCOP+8,1,0 IS THIS TOP OF PAGE $F0E28252
PAX ,1 YES, RECALL NUMBER OF LINES TO SPACE $F0E28253
TRA SPCOP+14 $F0E28254
PREFP LNT 10 DUPLICATE DEFINITION $F0E28258
CAL BLANKS NO, CLEAR FLAG $F0E28259
LGL 6 BRING IN CHARACTER $F0E28260
SLW BBUF22 SET WORD ZERO $F0E28261
LNT 10 TEST AGAIN $F0E28262
TRA PREF6 NO DUPLICATE, CONTINUE $F0E28263
TRA PREF6+1 ALWAYS PRINT DUPLICATE $F0E28264
REM PROLOGUE CORRECTION FOR EVEN $F0E28265
INITE CAL INIT1 TRANSFER VECTOR LENGTH IN ADDRESS $F0E28266
ZET EVNFLG DO EVEN PSEUDO-OPS EXIST $F0E28267
LBT YES, IS EXTRA WORD NEEDED.. $F0E28268
TRA INITF **NO $F0E28269
AXT 6,4 YES, SET LENGTH OF LISTING LINE $F0E2826A
SXD IOLST,4 TO INCLUDE LOCATION FIELD $F0E2826B
TSX PRLST,4 PRINT BLANK LINE $F0E28270
IOCD ,,0 $F0E28271
CAL AXTOC GENERATE HARMLESS INSTRUCTION $F0E28274
SLW BINRY $F0E28275
CAL EVENM '*EVEN*' TO LOCATION FIELD $F0E28276
SLW BCDBF $F0E28277
TSX PRNTI,4 PRINT AXT INSTRUCTION $F0E28278
INITF CAL START RESTORE CARD LOCATION FIELD $F0E28279
TRA INIT3+2 $F0E28280
REM $F0E28281
EVNOP CAL LOCTR GET PROGRAM COUNTER $F0E28282
LBT IS IT ODD.. $F0E28283
TRA UNLOP+1 NO, OPERATION IS NULL $F0E28284
CAL AXTOC YES,INSERT AXT OP CODE $F0E28285
SLW BINRY $F0E28286
TSX PRNTI,4 AND PRINT LINE $F0E28287
TRA READ1 $F0E28288
AXTOC AXT ,0 $F0E28289
EVENM BCI 1,*EVEN* $F0E28290
REM SET ERROR BIT IN SYSJOB AND OBTAIN FLAGS $F0E28300
SSJOB CAL D1 =1B17 $F0E28310
ORS SYSJOB $F0E28320
LDI* (FGBX) $F0E28330
TRA 1,2 $F0E28340
PTCHX LXA VRFLD,1 WORD COUNT + 1 OF CHARACTERS IN WORD $F0E28350
TNX *+3,1,1 TRANSFER IF THE WHOLE WORD CAN BE BLANKED$F0E28351
LGL 6 OTHERWISE WE BLANK OUT $F0E28352
TIX *-1,1,1 THE REQUIRED NUMBER OF CHARACTERS $F0E28353
SLW BCDBF,4 STORE WORD FOR PRINTING $F0E28354
TSX PRNTC,4 TO PRINT ROUTINE $F0E28355
TRA READ1 BACK TO MAIN CODING $F0E28356
PTCHY AXT 27,4 (23)F0E28357
STZ PBUFF1+27,4 DELETE PROGRAM BREAK (23)F0E28358
TIX *-1,4,1 AND TRANSFER VECTOR (23)F0E28359
TRA STRT1-20 AND RETURN (23)F0E28360
INX02 BCI 5, (26)F0E28390
PTCHZ ZET UNLSF IS LISTING SUSPENDED (27)F0E28400
TRA SPC03 YES, DO NOT SPACE LISTING (27)F0E28410
LXD PMCSW,4 (27)F0E28420
TXL SPCOP+2,4,0 IS IT MACRO GENERATED (27)F0E28430
CLA PMCSW+1 YES, TEST PMC SWITCH (27)F0E28440
TRA SPCOP+1 (27)F0E28450
HGPCH STZ SYMTBL-1,1 DELETE HANGING GARBAGE (28)F0E28460
STZ SYMTBL,1 (28)F0E28470
TRA SUDS1+8 CONTINUE (28)F0E28480
K001 TXL K002,2,** TRA IF REFERENCE TABLE OVERFLOWED. (32)F0E28490
TZE PREF8 TRA IF THIS IS A NEW SYMBOL. (32)F0E28500
TRA PREF7+2 TRA IF THIS SYMBOL HAS BEEN USED. (32)F0E28510
K002 STZ PRTIF NO CONTINUATION LINES WHEN LOCATIONS (32)F0E28520
* OF REFERENCES TO UNDEF.SYM. DELETED. (32)F0E28530
TXI PREFS,2,1 GO WRITE NAME OF UNDEFINED SYMBOL. (32)F0E28540
K003 LXD LBL02,4 DECR. = -1 UNTIL PROGRAM CARD HAS (32)F0E28550
TXH LBL03+1,4,-2 BEEN PUNCHED. DO NOT FORCE PUNCHING (32)F0E28560
TRA LBL03 OF INCOMPLETE PROGRAM CARD. (32)F0E28570
REM *************************PATCH SPACE****************** $F0E29999
REM NUMBER FIELD ALLOWED FOR PATCHES $F0E30000
FINIS SYN BOTTAB-LOPTBM-6 $F0E30010
REM $F0E30020
REM $F0E30030
REM $F0E30040
REM DATA TABLES $F0E30050
ORG BOTTAB $F0E30055
REM $F0E30060
BSS LSMTBM TABLE OF SYMBOL DEFINITIONS $F0E30070
VECTOR BSS LTVTBL TABLE OF TRANSFER VECTOR NAMES $F0E30080
LITTBL BSS LLITBL TABLE OF LITERAL VALUES $F0E30090
REM $F0E30091
REM BCD BLOCKED CARD BUFFERS $F0E30100
REM $F0E30110
ORG BOTBUF $F0E30115
BBUF11 BSS 104 BCD LISTING BUFFER 1 $F0E30120
BBUF12 BSS 104 BCD LISTING BUFFER 2 $F0E30130
BBUF21 BSS UPDBKL+1 UPDATE INPUT BUFFER 1+1WORK SKEW SPACE $F0E30140
BBUF22 BSS UPDBKL+1 UPDATE INPUT BUFFER 2+1WORK SKEW SPACE $F0E30150
BBUF31 BSS UPDBKL+1 SOURCE INPUT BUFFER 1+1WORK SKEW SPACE $F0E30160
BBUF32 BSS UPDBKL+1 SOURCE INPUT BUFFER 2+1WORK SKEW SPACE $F0E30170
BBUF41 BSS UPDBKL UPDATE OUTPUT BUFFER 1 $F0E30180
BBUF42 BSS UPDBKL UPDATE OUTPUT BUFFER 2 $F0E30190
BBUF51 BSS INPBKL+1 INTERMEDIATE INPUT/OUTPUT BUFFER 1 $F0E30200
BBUF52 BSS INPBKL+1 INTERMEDIATE INPUT/OUTPUT BUFFER 2 $F0E30210
REM $F0E30220
REM BINARY CARD BUFFERS $F0E30230
ORG BBUF31 $F0E30240
PBUFF2 BSS 27 MONITOR BINARY OUTPUT BUFFER 1 $F0E30250
PBUFF3 BSS 27 MONITOR BINARY OUTPUT BUFFER 2 $F0E30260
PBUFF4 BSS 27 INTERMEDIATE BINARY OUTPUT BUFFER 1 $F0E30270
PBUFF5 BSS 27 INTERMEDIATE BINARY OUTPUT BUFFER 2 $F0E30280
REM $F0E30290
END -1 F0E30300