$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
* FORTRAN II MONITOR DUMP RECORD F0B00000
* FAP F0B00020
* FORTRAN II MONITOR DUMP RECORD F0B00030
COUNT 1300 F0B00040
LBL 9F02,M F0B00050
REM F0B00060
SST FORTRAN $F0B00070
REM F0B00080
ABS F0B00090
REM F0B00100
ORG SYSCUR F0B00110
BCI 1,9F0200 F0B00120
ORG (LODR) F0B00130
TXI START,,20 F0B00140
TITLE $F0B00150
SAVTAP SYN FINTAP F0B00160
OUTTAP SYN MLSTAP F0B00170
ORGDP EQU BOTIOP-1600 F0B00180
SAVL EQU -ORGDP $F0B00190
SAVE EQU ORGDP-SAVL F0B00200
SIZE EQU 31 (22)F0B00210
REM F0B00220
ORG ORGDP+7 *F0B00230
REM F0B00240
REM F0B00250
REM **** PANEL SAVE **** F0B00260
REM F0B00270
START LXD (PGCT),1 SET FOR RIGHT NUMBER *F0B00280
TXI *+1,1,2 OF LINES *F0B00290
SXD H-2,1 PER PAGE. *F0B00300
SXD CNT+3,1 *F0B00310
LXD BOTTOM-6,1 F0B00320
SXD LIMIT-19,1 SAVE X1 $F0B00330
AXT ,0 (22)F0B00340
LXA BOTTOM-8,2 F0B00350
SXD LIMIT-18,2 SAVE X2 $F0B00360
LXD BOTTOM-8,4 F0B00370
TRA PCH3 TEST TAG MODE. $F0B00380
LDQ BOTTOM-10 F0B00390
STQ LIMIT-7 F0B00400
LDI BOTTOM-11 F0B00410
STI LIMIT-4 F0B00420
LDI BOTTOM-5 (22)F0B00430
ENK F0B00440
STQ LIMIT-1 PANEL KEYS F0B00450
AXT 4,1 F0B00460
STZ LIMIT-8,1 LIMIT-9 SET NONZERO IF OVERFLOW IND ON. F0B00470
XEC GARBG,1 LIMIT-10 SET NONZERO IF I/O CHECK ON, F0B00480
STL LIMIT-8,1 LIMIT-11 SET NONZERO IF DIVIDE CHECK ON, F0B00490
LDTIX TIX *-3,1,1 LIMIT-12 SET NONZERO IF IN TRAPPING MODE. F0B00500
TRA PANEL DUMP THE PANEL (22)F0B00510
LFT 10 TRAP MODE (22)F0B00520
LFT 4 DIVIDE CHECK (22)F0B00530
LFT 2 I/O CHECK (22)F0B00540
LFT 1 OVERFLOW (22)F0B00550
GARBG BSS 0 F0B00560
REM F0B00570
REM **** SET UP PANEL **** F0B00580
REM F0B00590
PANEL BSS 0 F0B00600
LDQ BOTTOM-9 SIGN AND BITS 1 35 IN MQ. F0B00610
CAL BOTTOM-8 JUNK IN BIT P, Q IN 1 , P IN 2 F0B00620
LLS 0 PUT SIGN OF AC IN SIGN OF AC. F0B00630
ALS 1 JUNK IN Q, Q IN P, P IN 1. F0B00640
LDI MNSO F0B00650
PBT TEST Q BIT IN P. F0B00660
LDI MNSZ F0B00670
TMI *+2 TEST SIGN F0B00680
OSI PLUS F0B00690
STI BUF2 SET FOR OUTPUT. F0B00700
ARS 34 JUNK IN 33, Q IN 34, P IN 35. F0B00710
LLS 35 SHIFT INTO THE AC FROM THE MQ $F0B00720
SLW LIMIT-3 F0B00730
LRS 2 F0B00740
STO LIMIT-2 F0B00750
LLS 2 F0B00760
XCL F0B00770
TSX CNVT,1 GO CONVERT TO BCD. F0B00780
STI BUF2+1 ACCUMULATOR. F0B00790
SLW BUF2+2 F0B00800
AXT 9,4 F0B00810
A LDQ LIMIT+2,4 F0B00820
TSX CNVT,1 CONVERT MQ, SENSE INDICATORS, AND F0B00830
SLW BUF2+14,4 PANEL KEYS TO BCD. STORE RIGHT HALF. F0B00840
CAL MINUS PICK UP BCD MINUS. F0B00850
LNT 40000 IS S BIT ON. F0B00860
ORA BLK NO, SET AC TO BLANK. F0B00870
SLW BUF2+12,4 YES, STORE MINUS. F0B00880
RIL 40000 REMOVE S BIT. F0B00890
STI BUF2+13,4 STORE LEFT HALF. F0B00900
TIX A,4,3 F0B00910
TSX (TAPE),4 WRITE OUT FIRST LINE $F0B00920
PZE DSU1,,(WDNC) TO GAIN BUFFER SPACE. $F0B00930
PZE ,,OUTTAP . $F0B00940
AXT 20,4 . $F0B00950
LDI BLK BLANK $F0B00960
STI BUF+20,4 THIS AND $F0B00970
STI BUF1+20,4 ANOTHER BUFFER. $F0B00980
TIX *-2,4,1 . $F0B00990
ICV AXT 7,2 CONVERT $F0B01000
AXT 8,4 INDEX $F0B01010
ICV1 CAL LIMIT-12,2 REGISTERS $F0B01020
ICV2 PDX 0,1 STRAIGHT AND COMPLEMENTED. $F0B01030
PXD 0,1 . $F0B01040
XCL . $F0B01050
AXT 6,1 . $F0B01060
ALS 3 . $F0B01070
LGL 3 . $F0B01080
TIX *-2,1,1 . $F0B01090
ICV3 AXT 4,1 SET BUFFER POINTER, $F0B01100
STI* PCH5+4,1 STORE BLANK AND $F0B01110
TXI PTCH4,4,-1 MOVE TO NEW FRONTIERS... $F0B01120
AXT 4,1 F0B01130
AXT 4,2 F0B01140
C CAL OFF F0B01150
ZET LIMIT-8,1 ON-OFF TRAPPING MODE, DIVIDE CHECK, F0B01160
CAL ON I/O CHECK, OVERFLOW. F0B01170
SLW BUF1+4,1 F0B01180
TIX C,1,1 F0B01190
D CAL OFF F0B01200
SLT 5,2 STATUS OF SENSE LIGHTS AND TURN ON AGAIN F0B01210
TRA *+3 IF THEY WERE ON. F0B01220
CAL ON F0B01230
SLN 5,2 F0B01240
SLW BUF1+8,2 . $F0B01250
TIX D,2,1 F0B01260
AXT 6,1 F0B01270
E CAL ON STATUS OF SENSE SWITCHES. F0B01280
PSE 119,1 F0B01290
CAL OFF F0B01300
SLW BUF1+14,1 . $F0B01310
TIX E,1,1 F0B01320
AXT 2,4 SET SL2 FOR ERROR RECORD. $F0B01330
AXT 6,1 . $F0B01340
STI BUF3+12,1 BLANK OUT REMAINDER. $F0B01350
TIX *-1,1,1 F0B01360
LDQ LIMIT-3 F0B01370
CLA LIMIT-2 F0B01380
LRS 0 F0B01390
AXT 6,2 F0B01400
FAQ TSX FPT,1 FLOATING POINT ACCUMULATOR AND MQ. F0B01410
0 F0B01420
SLW BUF3+8,2 F0B01430
CAL MINUS F0B01440
LNT 40000 F0B01450
ORA BLK F0B01460
SLW BUF3+6,2 F0B01470
RIL 40000 F0B01480
STI BUF3+7,2 F0B01490
LDQ LIMIT-7 F0B01500
TIX FAQ,2,3 F0B01510
TRA RETRN-1 (22)F0B01520
PTCH4 SSM ...PREPARE NEGATIVE WORD $F0B01530
TXL *+2,1,2 FOR COMPLEMENTED INDEX REGISTER, $F0B01540
ORA OBLK OR POSITIVE WORD, $F0B01550
STO* PCH5+4,1 AND + REQUIESCANT IN PACEM + $F0B01560
ICV4 TXH *+3,2,** . $F0B01570
TXH *+2,2,4 IF COMPUTER IS IN MULT. TAG $F0B01580
STI* PCH5+4,1 MODE, STORE BLANKS FOR ADDED IR*S, $F0B01590
TIX PCH4+2,4,1 PROCEED AGAIN $F0B01600
TXI PCH4,1,-1 TO MORE PATCH SPACE, AND ... $F0B01610
DSU1 IORT DUMP1,,20 . $F0B01620
PZE NOT USED $F0B01630
LXD LIMIT-16,3 (22)F0B01640
RETRN SXA (MSLN),4 MACHINE ERROR RECORD. (22)F0B01650
REM F0B01660
REM **** WRITE PANEL AND EXAMINE CONTROL WORDS **** F0B01670
REM F0B01680
CLA* (LNCT) UPDATE COUNT OF (22)F0B01690
ADD L(5) LINES OF OUTPUT (22)F0B01700
STO* (LNCT) (22)F0B01710
TRA *+2 (22)F0B01720
PZE NOT USED (22)F0B01730
REM ***** F0B01740
WRPAN TRA PCH2 GO WRITE OUT PANEL $F0B01750
LDI BLK TO GIVE LINE $F0B01760
STI BUF+24 A CHARMING LOOK. $F0B01770
CAL FDUMP F0B01780
SLW TEMP F0B01790
REM ***** F0B01800
CLA BOTTOM-8 PICK UP SIGN BIT TO FIND IF CALL IS F0B01810
TMI PDUMP+1 COMING FROM DUMP OR PDUMP. F0B01820
PDUMP STL TEMP+6 SET PDUMP FLAG. F0B01830
REM ***** F0B01840
TSX (TAPE),4 SPACE SAVING TAPE F0B01850
PZE BS1R,,(SKBP) TO PARAMETER RECORD. F0B01860
PZE ,,SAVTAP F0B01870
REM ***** F0B01880
TSX (TAPE),4 READ F0B01890
PZE NDIO,,(RBNP) PARAMETERS. F0B01900
PZE ,,SAVTAP F0B01910
REM ***** F0B01920
TSX (TAPE),4 REPOSITION F0B01930
PZE BS1R,,(SKBP) SAVING TAPE. F0B01940
PZE ,,SAVTAP F0B01950
DUMP LXA TEMP+5,2 GET INDEX FOR NEXT PARAMETERS. F0B01960
TXL *+3,2,0 IS THIS FIRST SET. F0B01970
LXD CNT+3,4 SET TO RESTORE PAGE FOR NEXT DUMP PORTION F0B01980
SXA CNT,4 F0B01990
ZET TEMP+9 IS THERE ANOTHER DUMP PORTION. F0B02000
TRA RSR NO, NO MORE DUMPING. F0B02010
TXI *+1,2,1 YES. F0B02020
CLA END,2 SELECT FIRST LIMIT OF DUMP PORTION. F0B02030
SXA TEMP+5,2 F0B02040
TZE TRSR IS 1ST LIMIT ZERO. F0B02050
STL TEMP+10 NO, SET INDICATOR TO LOOK FOR MORE. F0B02060
XCL PARAMETERS AND SAVE LIMIT IN MQ. F0B02070
TXI *+1,2,1 F0B02080
CLA END,2 SELECT SECOND LIMIT OF DUMP PORTION. F0B02090
TZE FERR BAD CALLING SEQUENCE. F0B02100
TLQ *+2 PUT LOWER LIMIT F0B02110
TRA *+2 IN AC, F0B02120
XCL UPPER IN MQ, F0B02130
RQL 18 AND THEN LOWER IN DECREMENT AND F0B02140
LGL 18 UPPER IN ADDRESS F0B02150
SLW TEMP OF TEMP. F0B02160
TXI *+1,2,1 F0B02170
CLA END,2 SELECT FORMAT-SPECIFYING ARGUMENT. F0B02180
TNZ *+2 3RD ARGUMENT CAN BE MISSING ONLY ON F0B02190
STL TEMP+9 LAST DUMP PORTION SO SET SENTINEL FOR NO F0B02200
PAX 0,4 MORE AFTER THIS. F0B02210
TXL GON,4,3 F0B02220
PDX 0,4 FORTRAN PUTS FIXED POINT NO. IN DECR. F0B02230
TXH FERR,4,3 ILLEGAL FORMAT SPECIFIER. F0B02240
GON SXA TEMP+11,4 SAVE FORMAT NUMBER. F0B02250
SXA TEMP+5,2 F0B02260
REM F0B02270
REM **** SET UP FOR NEXT GROUP AND CHECK FOR IDENTICAL WORDS***F0B02280
REM F0B02290
CONT CAL TEMP F0B02300
PAC 0,2 COMPLIMENT UPPER LIMIT, F0B02310
TXI *+1,2,-1 BUMP DOWN, F0B02320
SXA TEMP+3,2 AND SAVE. F0B02330
PDC 0,2 COMPLIMENT LOWER LIMIT, F0B02340
DFA SXA *+1,2 RECOMPLIMENT F0B02350
AXC 0,1 INTO XRA, F0B02360
SXD DFF2,1 SET DECREMENT, F0B02370
SXA TEMP+4,1 AND SAVE. F0B02380
SXD DFF2A,2 SET DECR WITH COMPLIMENT OF LOWER LIMIT. F0B02390
DFA1 TXH *+3,2,0 IS LOWER LIMIT ZERO. F0B02400
CAL 0,2 YES, PICK UP FIRST WORD OF DUMP, F0B02410
TRA DFA2+1 AND GO AROUND OTHER TESTS. F0B02420
TXL DFC3,2,-ORGDP IS LOWER LIMIT IN DUMP RECORD AREA. F0B02430
CAL 0,2 NO, PICK UP FIRST WORD OF DUMP. F0B02440
DFA2 TXL DFB,2,-SAVE IS LOWER LIMIT IN BUFFER. F0B02450
ERA 0,2 NO, TEST FOR DUPLICATE WORDS. F0B02460
TNZ DFF IF NOT DUPLICATE, TRANSFER. F0B02470
PXA 0,2 IS THIS LAST F0B02480
SUB TEMP+3 WORD OF DUMP PORTION. F0B02490
TZE DFF F0B02500
CAL 0,2 NO, PICK UP NEXT WORD F0B02510
TXI DFA2,2,-1 AND GO BACK. F0B02520
DFB NZT TEMP+1 IS UPPER CORE IN BUFFER. F0B02530
TRA DFB1-1 NO. F0B02540
REM ***** F0B02550
TSX (TAPE),4 YES, RESTORE F0B02560
PZE IORT,,(RBNP) BUFFER. F0B02570
PZE S2L,,SAVTAP F0B02580
REM ***** F0B02590
TSX (TAPE),4 REPOSITION F0B02600
PZE BS1R,,(SKBP) SAVING TAPE. F0B02610
PZE ,,SAVTAP F0B02620
STZ TEMP+1 INDICATE BUFFER IS RESTORED. F0B02630
DFB1 TXL DFC,2,-ORGDP IS IT IN DUMP RECORD AREA. F0B02640
ERA 0,2 NO, TEST FOR DUPLICATE WORDS. F0B02650
TNZ DFF TRA IF NO DUPLICATES. F0B02660
PXA 0,2 IS THIS LAST F0B02670
SUB TEMP+3 WORD OF F0B02680
TZE DFF DUMP PORTION. F0B02690
CAL 0,2 NO, PICK UP NEXT WORD F0B02700
TXI DFB1,2,-1 AND GO BACK. F0B02710
DFC3 CAL ORGDP,2 PICK UP NEXT WORD. F0B02720
DFC ZET TEMP+8 IS BUFFER ON SAVING TAPE. F0B02730
TRA DFC1 YES. F0B02740
REM ***** F0B02750
TSX (TAPE),4 NO, SAVE BUFFER. F0B02760
PZE IORT,,(WBNP) F0B02770
PZE S2L,,SAVTAP F0B02780
REM ***** F0B02790
TSX (TAPE),4 REPOSITION F0B02800
PZE BS1R,,(SKBP) SAVING TAPE. F0B02810
PZE ,,SAVTAP F0B02820
STL TEMP+8 INDICATE BUFFER HAS BEEN SAVED. F0B02830
DFC1 ZET TEMP+1 IS UPPER CORE IN BUFFER. F0B02840
TRA DFC2 YES. F0B02850
REM ***** F0B02860
TSX (TAPE),4 NO, POSITION F0B02870
PZE BS1R,,(SKBP) SAVING TAPE F0B02880
PZE ,,SAVTAP AND F0B02890
REM ***** F0B02900
TSX (TAPE),4 READ 1ST SAVING DUMP F0B02910
PZE IORT,,(RBNC) (UPPER CORE) INTO F0B02920
PZE ,,SAVTAP BUFFER. F0B02930
STL TEMP+1 INDICATE UPPER CORE IS IN BUFFER. F0B02940
DFC2 TXH *+2,2,0 IS THIS END CORE. F0B02950
TXI DFE,2,1 YES, RESET XR AND GO TO WRITE DUPES. F0B02960
ERA -SAVL,2 TEST FOR DUPE WORDS *F0B02970
TNZ DFE1 TRA IF NOT DUPES. F0B02980
PXA 0,2 IS THIS LAST F0B02990
SUB TEMP+3 WORD OF THIS F0B03000
TZE DFE DUMP PORTION. F0B03010
CAL -SAVL,2 NO, PICK UP NEXT WORD *F0B03020
TXI DFC2,2,-1 AND GO BACK. F0B03030
DFE CLA -SAVL-1,2 PICK UP LAST DUPE WORD BELOW DUMP RECORD*F0B03040
TRA DFF1 F0B03050
DFE1 ERA -SAVL,2 RESTORE AC TO LAST DUPE WORD *F0B03060
XCL AND SAVE IN MQ. F0B03070
TRA DFF2 F0B03080
DFF CLA -1,2 PICK UP LAST DUPE WORD (BELOW DUMP RECORD).F0B03090
DFF1 XCA SAVE IN MQ. F0B03100
DFF2 TXI *+1,2,0 SUB LOWER LIMIT FROM CURRENT INDEX (DECR F0B03110
REM HAS INDEX OF LOC STARTED WITH FOR THIS TESTF0B03120
SXA *+1,2 F0B03130
AXC 0,2 COMPLIMENT TO GET TRUE DUPE WORD COUNT. F0B03140
PXA 0,2 F0B03150
ARS 3 DIVIDE WORD COUNT F0B03160
ALS 3 BY EIGHT. F0B03170
PAC 0,2 PICK UP COMPLIMENT OF HIGHEST NO. OF F0B03180
REM DUPES DIVISIBLE BY EIGHT. F0B03190
DFF2A TXI *+1,2,0 ADD LOWER LIMIT TO GET LAST LOC (COMPL). F0B03200
TZE TEST IS NO. OF DUPE WORDS MORE THAN 7. F0B03210
AXT 36,4 YES. F0B03220
LXA TEMP+11,1 PICK UP FORMAT PARAM (0 IS OCTAL F0B03230
TRA *+4,1 WITHOUT MNEMONICS, 1 OS FLOATING PT., 2 IS F0B03240
TRA *+3 DECIMAL INTEGER -DECREMENT ONLY, AND 3 F0B03250
TSX INT,1 IS OCTAL WITH MNEMONICS), AND F0B03260
TSX FPT,1 CONVERT ACCORDINGLY. F0B03270
TSX CNVT,1 F0B03280
SLW DFBB+14 F0B03290
CAL MINUS IF BIT ONE WAS NOT ZERO, F0B03300
LNT 40000 SET THE CONVERTED WORD F0B03310
ORA LBLK TO MINUS. F0B03320
SLW DFBB+12 F0B03330
RIL 40000 TAKE OUT BIT ONE. F0B03340
STI DFBB+13 F0B03350
CAL TEMP+4 PICK UP BEGINNING LOC FOR THIS F0B03360
LGR 15 SET OF DUPE WORDS. F0B03370
CLM CONVERT F0B03380
LGR 3 TO F0B03390
ALS 3 BCD F0B03400
LGL 3 AND F0B03410
TIX *-2,4,6 STORE. F0B03420
ORA OBLK F0B03430
SLW DFBB+7 F0B03440
PXA 0,2 GET TRUE F0B03450
PAC 0,1 LOCATION OF F0B03460
TXI *+1,1,-1 LAST DUPE F0B03470
PXA 0,1 WORD, F0B03480
LGR 15 CONVERT TO F0B03490
CLM BCD F0B03500
LGR 3 AND F0B03510
ALS 3 STORE. F0B03520
LGL 3 F0B03530
TIX *-2,4,1 F0B03540
LGL 6 F0B03550
ORA LBLK F0B03560
SLW DFBB+9 F0B03570
CNT AXT 8,4 TEST TO SEE IF F0B03580
TXI *+1,4,2 CURRENT F0B03590
CAL HZR PAGE F0B03600
TNX *+2,4,60 IS FULL. F0B03610
ORA HONE YES, SET TO RESTORE. F0B03620
SLW DFBB F0B03630
SXA CNT,4 F0B03640
REM ***** F0B03650
DFF3 TSX (TAPE),4 WRITE GROUP F0B03660
PZE DSU2,,(WDNC) OF DUPLICATES (ONE LINE) . *F0B03670
PZE ,,OUTTAP F0B03680
CLA* (LNCT) UPDATE COUNT F0B03690
ADD ONE OF LINES F0B03700
STO* (LNCT) OF OUTPUT. F0B03710
DFG PXA 0,2 F0B03720
SUB TEMP+3 F0B03730
TNZ DFA MORE TO GO ON THIS PORTION OF DUMP. F0B03740
TRA DUMP FINISHED. GO SEE IF MORE BLOCKS TO DUMP. F0B03750
REM F0B03760
REM **** PREPARE 8 WORDS TO BE DUMPED **** F0B03770
REM F0B03780
TEST AXT 24,4 F0B03790
TNX LOW+1,2,0 IF INDEX IS ZERO, GO AROUND TESTS. F0B03800
TXH LOW,2,-SAVE IS LOCATION BELOW BUFFER. F0B03810
TXH MED,2,-ORGDP NO, IS IT BELOW DUMP RECORD. F0B03820
HIGH ZET TEMP+8 NO, IT IS IN DUMP RECORD AREA. IS BUFFER F0B03830
TRA HIGH2 ON TAPE. YES. F0B03840
SXA HIGH1,4 NO, F0B03850
REM ***** F0B03860
TSX (TAPE),4 SAVE BUFFER. F0B03870
PZE IORT,,(WBNP) F0B03880
PZE S2L,,SAVTAP F0B03890
REM ***** F0B03900
TSX (TAPE),4 REPOSITION F0B03910
PZE BS1R,,(SKBP) SAVING TAPE. F0B03920
PZE ,,SAVTAP F0B03930
HIGH1 AXT **,4 F0B03940
STL TEMP+8 INDICATE BUFFER IS ON TAPE. F0B03950
HIGH2 ZET TEMP+1 IS UPPER CORE IN BUFFER. F0B03960
TRA HIGH4 YES. F0B03970
SXA HIGH3,4 NO, F0B03980
REM ***** F0B03990
TSX (TAPE),4 POSITION F0B04000
PZE BS1R,,(SKBP) SAVING TAPE F0B04010
PZE ,,SAVTAP AND F0B04020
REM ***** F0B04030
TSX (TAPE),4 READ UPPER CORE F0B04040
PZE IORT,,(RBNC) INTO BUFFER. F0B04050
PZE ,,SAVTAP F0B04060
HIGH3 AXT **,4 F0B04070
STL TEMP+1 INDICATE UPPER CORE IN BUFFER. F0B04080
HIGH4 TNX LOW,2,0 IS LOCATION ZERO. F0B04090
LDQ -SAVL,2 NO, PICK UP NEXT WORD *F0B04100
TSX TESTP,1 CONVERT. F0B04110
TIX HIGH4,4,3 IF LINE FINISHED, GO BACK. F0B04120
TRA FINI LINE OF OUTPUT IS FINISHED. F0B04130
MED NZT TEMP+1 IS UPPER CORE IN BUFFER. F0B04140
TRA MED2 NO. F0B04150
SXA MED1,4 YES, F0B04160
REM ***** F0B04170
TSX (TAPE),4 RESTORE F0B04180
PZE IORT,,(RBNP) BUFFER. F0B04190
PZE S2L,,SAVTAP F0B04200
REM ***** F0B04210
TSX (TAPE),4 REPOSITION F0B04220
PZE BS1R,,(SKBP) SAVING TAPE. F0B04230
PZE ,,SAVTAP F0B04240
MED1 AXT **,4 F0B04250
STZ TEMP+1 INDICATE UPPER CORE NOT IN BUFFER. F0B04260
MED2 TXL HIGH,2,-ORGDP IS WORD IN UPPER CORE. F0B04270
LDQ 0,2 NO, PICK UP NEXT WORD, F0B04280
TSX TESTP,1 CONVERT, F0B04290
TIX MED2,4,3 AND GO BACK IF LINE UNFINISHED. F0B04300
TRA FINI LINE OF OUTPUT IS COMPLETE. F0B04310
LOW TXL MED,2,-SAVE IS WORD IN BUFFER. F0B04320
LDQ 0,2 NO, PICK UP NEXT WORD, F0B04330
TSX TESTP,1 CONVERT, AND F0B04340
TIX LOW,4,3 GO BACK IF LINE UNFINISHED. F0B04350
TRA FINI LINE OF OUTPUT IS COMPLETE. F0B04360
TESTP SXA TSTP2,1 F0B04370
LXA TEMP+11,1 PICK UP FORMAT AND F0B04380
TRA *+4,1 CONVERT( 0 IS OCTAL, 1 IS FLOATING POINT, 2F0B04390
TRA *+3 IS DECIMAL INTEGER -DECR ONLY, AND 3 IS F0B04400
TSX INT,1 OCTAL WITH MNEMONICS.) F0B04410
TSX FPT,1 F0B04420
TSX CNVT,1 F0B04430
SLW BUF+26,4 F0B04440
CAL MINUS IF BIT ONE IS 1, F0B04450
LNT 40000 MAKE CONVERTED WORD NEGATIVE F0B04460
ORA BLK AND F0B04470
SLW BUF+24,4 STORE. F0B04480
RIL 40000 RESET BIT ONE TO ZERO F0B04490
STI BUF+25,4 AND STORE. F0B04500
TXI *+1,2,-1 F0B04510
PXA 0,2 TEST FOR END F0B04520
SUB TEMP+3 OF DUMP PORTION. F0B04530
TZE FINI F0B04540
TSTP2 AXT **,1 NOT END, F0B04550
TRA 1,1 RETURN. F0B04560
CNVT SXA CNVT9,1 THIS ROUTINE ACCEPTS THE MQ AS F0B04570
AXT 36,1 INPUT, AND CONVERTS IT TO OCTAL F0B04580
ALS 3 BY PRECEDING EACH THREE BITS WITH F0B04590
LGL 3 THREE BINARY ZEROS. F0B04600
TIX *-2,1,6 THE LEFT HALF OF THE CONVERTED F0B04610
PAI WORD IS LEFT IN THE F0B04620
ALS 3 INDICATORS F0B04630
LGL 3 AND THE RIGHT HALF IN F0B04640
TIX *-2,1,1 THE LOGICAL AC. F0B04650
CNVT9 AXT 0,1 F0B04660
TRA 1,1 F0B04670
FINI CAL BLK F0B04680
FINI1 TNX FINI2,4,3 IS DUMP PORTION ENDED, OR JUST A LINE. F0B04690
SLW BUF+24,4 DUMP PORTION IS ENDED. F0B04700
SLW BUF+25,4 FILL REST OF LINE F0B04710
SLW BUF+26,4 WITH BLANKS. F0B04720
TRA FINI1 F0B04730
FINI2 CAL TEMP+4 LINE IS ENDED, F0B04740
LGR 15 CONVERT LOCATION F0B04750
CLM BEGINNING F0B04760
LGR 3 THIS LINE F0B04770
AXT 6,4 TO BCD. F0B04780
ALS 3 F0B04790
LGL 3 F0B04800
TIX *-2,4,1 F0B04810
LXA CNT,4 IS THIS F0B04820
TXI *+1,4,2 PAGE F0B04830
TNX *+2,4,60 FULL. F0B04840
ORA HONE YES, SET TO RESTORE. F0B04850
H AXC -1,1 PICK UP BUFFER INDEX F0B04860
SLW* SWT+14,1 AND STORE LOCATION IN CURRENT BUFFER. F0B04870
SXA CNT,4 F0B04880
PACK SXA PACK9,2 THIS ROUTINE PICKS UP THE CONVERTED F0B04890
AXT 27,4 WORDS F0B04900
AXT 0,2 AND STORES THEM F0B04910
CAL BUF+27,4 IN THE CURRENT F0B04920
LDQ BUF+28,4 OUTPUT BUFFER IN THE F0B04930
LGR 12 CORRECT OUTPUT POSITIONS. F0B04940
STQ* SWT+1,1 F0B04950
CAL BUF+28,4 F0B04960
LDQ BUF+29,4 F0B04970
LGR 12 F0B04980
STQ* SWT+2,1 F0B04990
CAL BUF+30,4 F0B05000
LDQ BUF+31,4 F0B05010
LGR 12 F0B05020
CAL BUF+29,4 F0B05030
LGR 12 F0B05040
STQ* SWT+5,1 F0B05050
CAL BUF+31,4 F0B05060
LDQ BUF+32,4 F0B05070
LGL 12 F0B05080
SLW* SWT+6,1 F0B05090
CAL BUF+32,4 F0B05100
LDQ BUF+33,4 F0B05110
RQL 24 F0B05120
LGL 12 F0B05130
SLW* SWT+9,1 F0B05140
TNX *+6,4,9 IS THIS END OF LINE. F0B05150
CAL BUF+25,4 NO. F0B05160
SLW* SWT+10,1 F0B05170
CAL BUF+26,4 F0B05180
SLW* SWT+13,1 F0B05190
TXI PACK+3,2,-7 F0B05200
PACK9 AXT 0,2 COMPLETE LINE IS IN BUFFER. F0B05210
SXA H,1 F0B05220
REM ***** F0B05230
FINI4 TSX (TAPE),4 WRITE LINE OF DUMP OR F0B05240
PZE DSU2,1,(WDNP) MNEMONICS. F0B05250
PZE ,,OUTTAP F0B05260
CLA* (LNCT) UPDATE COUNT OF F0B05270
ADD ONE LINES F0B05280
STO* (LNCT) OF OUTPUT. F0B05290
LXA TEMP+11,1 SET INDEX REG. TO FORMAT. F0B05300
TXL J,1,2 TRANSFER IF NO MNEMONICS. F0B05310
ZET TEMP+7 IS LINE OF MNEMONICS NEXT. F0B05320
TRA J-1 NO. F0B05330
REM F0B05340
REM **** WITH MNEMONICS **** F0B05350
REM F0B05360
STL TEMP+7 YES, RESET MNEMONICS FLAG. F0B05370
SXA AXT,2 F0B05380
AXT 24,2 F0B05390
TYPA PXA ,0 F0B05400
LDI BUF+24,2 PICK UP CONVERTED F0B05410
LDQ BUF+25,2 WORD. F0B05420
TQP *+2 F0B05430
TRA TYPB3 F0B05440
CAQ TBLA,0,1 IS THIS A PREFIX OPCODE. F0B05450
TZE TYPB NO. F0B05460
RFT 20 YES, IS SIGN NEGATIVE. F0B05470
TRA *+4 NO. F0B05480
PXA ,0 SIGN IS NEGATIVE, FIND MATCH F0B05490
LDQ BUF+25,2 IN NEG. TABLE. F0B05500
CAQ TBLA+3,0,1 AND F0B05510
SLW BUF+25,2 SAVE MNEMONIC. F0B05520
CAL BLK FILL IN WITH F0B05530
TRA TYPB3+2 BLANKS. F0B05540
TYPB AXT TBLBM,1 PICK UP ADDRESS FOR NEGATIVE OPCODES. F0B05550
RFT 20 IS WORD NEGATIVE. F0B05560
AXT TBLBP,1 NO, RESET ADDRESS FOR POSITIVE OPCODES, F0B05570
SXA CAQ,1 AND STORE. F0B05580
CAQ CAQ 0,0,1 FIND RIGHT SUBTABLE F0B05590
STA TYPB1 AND STORE ADDRESS. F0B05600
PDX 0,4 SET XR WITH WORD COUNT OF SUBTABLE. F0B05610
CLM F0B05620
LGL 12 STORE NUMERICAL OPCODE IN F0B05630
STA TYPB1+1 TEST FOR MATCH. F0B05640
COM F0B05650
ANA TYPB2 F0B05660
STA TYPB1+3 F0B05670
TYPB1 LDI 0,4 PICK UP WORD FROM CORRECT SUBTABLE. F0B05680
RNT 0 DOES THIS WORD MATCH. F0B05690
TIX *-2,4,1 NO, GO BACK FOR NEXT WORD, IF ANY. F0B05700
RFT 0 WORD MATCHES OR END OF SUBTABLE. ARE OTHER F0B05710
TIX *-4,4,1 YES, GO BACK FOR NEXT WORD, IF ANY. F0B05720
XEC *-4 WORD MATCHES OR END OF SUBTABLE. F0B05730
TRA TYPB3-1 NO MATCHING MNEMONIC. F0B05740
XEC *-4 MAYBE, CHECK AGAIN. F0B05750
TRA TYPB3-1 END OF SUBTABLE, NO MNEMONIC. F0B05760
TYPB2 PIA 511 MNEMONIC WAS FOUND, PLACE IN AC. F0B05770
AXT TBLEP,1 F0B05780
LAS PSE IS IT PLUS SENSE. F0B05790
TRA *+2 NO. F0B05800
TRA TYPE YES. F0B05810
AXT TBLEM,1 NO, IS IT F0B05820
LAS MSE MINUS SENSE. F0B05830
TRA *+2 NO. F0B05840
TRA TYPE YES. F0B05850
ARS 12 NO, SHIFT OUT NUMERALS, FILL F0B05860
ORA 2BLK WITH BLANKS F0B05870
SLW BUF+25,2 AND STORE. F0B05880
RQL 3 F0B05890
CAL BLK F0B05900
TQP TYPB3+2 TEST FOR INDIRECT F0B05910
RQL 1 BITS IN F0B05920
TQP TYPB3+2 WORD. F0B05930
CAL ASTR INSTRUCTION IS INDIRECT, PUT F0B05940
SLW BUF+26,2 ASTERISK IN MNEMONIC. F0B05950
TRA TYPB3+3 F0B05960
TYPE ARS 12 SHIFT OUT NUMERALS, F0B05970
ORA 2BLK FILL WITH BLANKS, F0B05980
SLW BUF+25,2 AND STORE. F0B05990
LDQ BUF+26,2 PICK UP SECOND HALF, F0B06000
CAL BLK STORE F0B06010
SLW BUF+24,2 BLANKS. F0B06020
SLW BUF+26,2 F0B06030
RQL 12 PUT MIDDLE F0B06040
CLM CHARACTERS IN F0B06050
LGL 12 AC. F0B06060
TNZ TYPB3+4 ARE THEY ZERO. IF NOT, TRANSFER. F0B06070
SXA *+1,1 YES, F0B06080
CAL 0 PICK UP ADDRESS OF TBLEP OR TBLEM, F0B06090
TRA CAQ+1 AND GO BACK TO INTERPRET FURTHER. F0B06100
TXL TYPB3+4,1,TBLEM WAS THIS SENSE OPERATION. F0B06110
TYPB3 CAL BLK NO. PICK UP BLANK. F0B06120
SLW BUF+25,2 F0B06130
SLW BUF+26,2 F0B06140
SLW BUF+24,2 F0B06150
TIX TYPA,2,3 GO BACK FOR NEXT WORD. F0B06160
STEP LXA CNT,4 END OF LINE OF MNEMONICS. F0B06170
CAL BLK F0B06180
AXT AXT 0,2 F0B06190
TXI H,4,1 GO TO WRITE LINE OF MNEMONICS. F0B06200
STZ TEMP+7 INDICATE LINE OF DUMP NEXT . F0B06210
J PXA 0,2 TEST FOR END OF F0B06220
ERA TEMP+3 DUMP PORTION. F0B06230
TNZ DFA NO, GO BACK FOR NEXT LINE. F0B06240
TRA DUMP YES, LOOK FOR NEXT PARAMETERS. F0B06250
REM F0B06260
REM **** ERROR IN CALLING SEQUENCE **** F0B06270
REM F0B06280
REM ***** F0B06290
FERR TRA PCH1 GO WRITE ERR MESSAGE $F0B06300
CLA* (LNCT) (22)F0B06310
ADD ONE UPDATE LINE COUNT (22)F0B06320
STO* (LNCT) (22)F0B06330
RSR ZET TEMP+6 IS THIS DUMP OR PDUMP... (22)F0B06340
TRA PRSR PDUMP. RETURN TO PROGRAM (22)F0B06350
TSX (LOAD),4,1 DUMP. GO TO SIGN-ON (22)F0B06360
BCI 1,9F0300 (22)F0B06370
TRSR ZET TEMP+10 1ST LIMIT IS ZERO, IS IT FIRST DUMP (22)F0B06380
TRA RSR NO, END OF DUMP (22)F0B06390
STL TEMP+9 NO FURTHER DUMPS (22)F0B06400
TRA CONT PROCEED (22)F0B06410
PRSR NZT TEMP+1 IS BUFFER RESTORED (22)F0B06420
TRA RSR1 YES (22)F0B06430
TSX (TAPE),4 NO, RESTORE IT (22)F0B06440
PZE IORT,,(RBNP) (22)F0B06450
PZE S2L,,SAVTAP (22)F0B06460
TSX (TAPE),4 REPOSITION SAVE TAPE (22)F0B06470
PZE BS1R,,(SKBP) (22)F0B06475
PZE ,,SAVTAP (22)F0B06480
RSR1 TSX (TAPE),4 SAVE LOWER MEMORY FOR READ ROUTINE (22)F0B06485
PZE IOBOT,,(WBNP) (22)F0B06490
PZE ,,SAVTAP (22)F0B06495
TSX (TAPE),4 REPOSITION TAPE TO READ (22)F0B06500
PZE BS2R,,(SKBP) SAVED UPPER CORE (22)F0B06505
PZE ,,SAVTAP (22)F0B06510
AXT SELEND-SELBEG,4 MOVE SELECT ROUTINE (22)F0B06520
CLA SELOC+SELEND-SELBEG,4 TO LOWER CORE(RESTORED (22)F0B06530
STO SELEND,4 BY PDUMP) (22)F0B06540
TIX *-2,4,1 (22)F0B06550
TRA SELBEG (22)F0B06560
SELOC EQU * SELECT ROUTINE LOADED HERE (22)F0B06570
LOC BOTTOM MOVED HERE (22)F0B06580
SELBEG LAC SYSUT3,2 UCB FOR SAVTAP (22)F0B06590
CLA IOXSLL LOC OF SELECT (22)F0B06600
ZET 1,2 TEST TAPE IN USE (22)F0B06610
TRA *-1 YES, WAIT (22)F0B06620
STO 1,2 LOCATE SELECT (22)F0B06630
TSX (ACTIV,4 START UNIT (22)F0B06640
PZE SYSUT3 (22)F0B06650
ZET 1,2 IS READ COMPLETE... (22)F0B06660
TRA *-1 NO, WAIT (22)F0B06670
LDI IOXSLL ERROR INDICATION (22)F0B06680
LFT 300000 WAS READ SUCCESSFUL (22)F0B06690
TRA *+2 NO. BOMB OUT (22)F0B06700
TRA BOTTOM-5 YES. RETURN TO PDUMP (22)F0B06710
TSX (PROUT,4 INFORM OPERATOR, SINCE (22)F0B06720
PZE 1 WE HAVE NO MEANS OF (22)F0B06730
PZE M,,7 WRITING OFFLINE (22)F0B06740
CLA 1B17 SET IBSYS BOMB BIT (22)F0B06750
ORS SYSJOB (22)F0B06760
CLA IBSXEC TO LOOK FOR NEXT SEGMENT (22)F0B06770
STO SYSGET (22)F0B06780
TRA SYSRET RETURN TO IBSYS (22)F0B06790
1B17 DEC 1B17 (22)F0B06800
IBSXEC BCI 1,IBSXEC (22)F0B06810
M BCI 7, CANNOT RESTORE AFTER PDUMP. JOB ENDED. (22)F0B06820
R IORT ORGDP,,SYSEND+1-ORGDP (30)F0B06830
IOXSLL R,,*+1 (22)F0B06840
TMI PST SELECT PLUS OR MINUS... (22)F0B06850
CLA* SYSUT3 UCB FOR SAVTAP (22)F0B06860
PDX ,2 DECIMAL UNIT ADDRESS (22)F0B06870
TXI *+1,2,16 BINARY UNIT ADDRESS (22)F0B06880
SXA *+3,2 TO SELECT (22)F0B06890
CLA IOXSLL I/O COMMAND LOCATION (22)F0B06900
STA* (RCHXI TO RCH (22)F0B06910
RDS ** SELECT (22)F0B06920
XEC* (RCHXI LOAD CHANNEL (22)F0B06930
TRA 1,4 RETURN (22)F0B06940
PST PAC 0,2 SELECT MINUS (22)F0B06950
STZ 1,2 SET UNIT FREE (22)F0B06960
STI IOXSLL SAVE ERRORS (22)F0B06970
TRA 1,4 RETURN (22)F0B06980
SELEND EQU * END OF LOW CORE CODING (22)F0B06990
LOC RETURN TO NORMAL LOCATIONS (22)F0B07000
S2L BCI 1,SAVE2 LABEL FOR SAVTAP (22)F0B07010
REM F0B07170
REM **** INTEGER OUTPUT **** F0B07180
REM F0B07190
INT LDI 3BLK THIS ROUTINE TRANSLATES THE DECREMENTS F0B07200
TQP *+2 OF WORDS TO DECIMAL INTEGERS. WORD IS IN MQF0B07210
RIL 20 SET MINUS SIGN IF S IS ON. F0B07220
LGL 3 CLEAR F0B07230
CLM OUT F0B07240
LGR 3 PREFIX. F0B07250
CAQ T1+128,0,1 CONVERT F0B07260
CAQ T1+64,0,1 THE F0B07270
CAQ T1,0,1 BINARY DECREMENT F0B07280
CVR T3,0,6 TO DECIMAL. F0B07290
LDQ BLK FILL OUT WORDS F0B07300
LGR 12 WITH BLANKS. F0B07310
OAI PUT FIRST HALF OF WORD IN INDICATORS, F0B07320
XCL 2ND HALF IN LOGICAL AC, AND F0B07330
TRA 3,1 RETURN. F0B07340
REM F0B07350
REM **** FLOATING POINT OUTPUT **** F0B07360
REM F0B07370
FPT SXA FPTLV,4 FLOATING POINT DUMPER F0B07380
SXA FPTLV+1,2 IGNORES SIGN F0B07390
SXA FPTLV+2,1 F0B07400
LDI FPTHP PICK UP .0 F0B07410
TQP *+2 IF FIRST WORD IS MINUS, SET F0B07420
SIL 40000 1ST BIT ON IN CONVERTED WORD. F0B07430
XCA AND F0B07440
SSP REMOVE SIGN. F0B07450
LDQ FPTPZ PICK UP ZERO CHARACTERISTIC. F0B07460
TZE FPTLV-1 IS WORD ZERO. F0B07470
AXT -DDFTB,2 NO, CONVERT IT F0B07480
AXT 2,4 TO FLOATING POINT. F0B07490
FPTSH TXI *+1,4,-2 F0B07500
CAS 38,2 F0B07510
XEC *+3,4 F0B07520
TXI FPTFD+2,2,1 EQUAL SET INDEX FOR NEXT HIGHER POWER $F0B07530
XEC *+2,4 F0B07540
TXI FPTSH,2,7 F0B07550
TXI FPTSH,2,-8 F0B07560
TXI FPTSH,2,16 F0B07570
TXI FPTSH,2,-16 F0B07580
TXI FPTSH,2,8 F0B07590
TXI FPTSH,2,-8 F0B07600
TXI FPTSH,2,4 F0B07610
TXI FPTSH,2,-4 F0B07620
TXI FPTSH,2,2 F0B07630
TXI FPTSH,2,-2 F0B07640
TXI FPTSH,2,1 F0B07650
TXI FPTSH,2,-1 F0B07660
FPTFD TXI *+2,2,1 F0B07670
TRA *+1 F0B07680
TXL FPTNL,2,-30-DDFTB F0B07690
FDP 46,2 DIVIDE BY POWER OF TEN 8 LESS THAN NO. $F0B07700
FPTDD XCA F0B07710
FRN F0B07720
UFA FPTFX F0B07730
RQL 9 F0B07740
ANA FPTMK F0B07750
LGL 8 F0B07760
CAS FPTBG F0B07770
NOP F0B07780
SUB T1+1 F0B07790
VDH FPTOR,0,12 F0B07800
STO FPTMP F0B07810
CLM F0B07820
RQL 24 F0B07830
CAQ T1+64,0,1 F0B07840
CAQ T1,0,1 F0B07850
CVR T3,0,3 F0B07860
LDQ FPTMP F0B07870
SLW FPTMP F0B07880
CLM F0B07890
CAQ T1+192,0,1 F0B07900
CAQ T1+128,0,1 F0B07910
CAQ T1+64,0,1 F0B07920
CAQ T1,0,1 F0B07930
CVR T3,0,6 F0B07940
SLW FPTMP+1 F0B07950
PXA 0,2 F0B07960
SUB FPTSB F0B07970
LGR 12 F0B07980
CAQ T1+64,0,1 F0B07990
CAQ T1,0,1 F0B08000
CVR T3,0,2 F0B08010
XCL F0B08020
CLA FPTPS F0B08030
TXH *+2,2,-DDFTB-1 F0B08040
ADD FPTPS F0B08050
LGR 6 F0B08060
CAL FPTMP+1 F0B08070
LGR 18 F0B08080
ACL FPTMP F0B08090
OAI PLACE CONVERTED WORD IN INDICATORS, F0B08100
XCL AND LOGICAL AC, F0B08110
FPTLV AXT 0,4 RESTORE F0B08120
AXT 0,2 INDEX F0B08130
AXT 0,1 REGISTERS, F0B08140
TRA 2,1 AND RETURN. F0B08150
FPTNL XCA F0B08160
FMP DDTTN F0B08170
FDP 37,2 DIVIDE TO GET QUOTIENT BETWEEN 1E7 + 1E8 $F0B08180
TRA FPTDD F0B08190
FPTBG OCT 000575360400 DEC 1E8B35 DGP F0B08200
FPTPZ BCI 1,000+00 F0B08210
FPTFX OCT 243000000000 F0B08220
FPTMK OCT 777777777 F0B08230
FPTOR DEC 4096000000 F0B08240
FPTMP DEC 0,0 F0B08250
FPTSB PZE -DDFTB F0B08260
FPTPS OCT 20 F0B08270
FPTHP BCI 1,.00000 F0B08280
DDFTB DEC 1E38 TABLE OF POWERS OF 10 IN FLOATING POINT $F0B08290
DEC 1E37 F0B08300
DEC 1E36 F0B08310
DEC 1E35 F0B08320
DEC 1E34 F0B08330
DEC 1E33 F0B08340
DEC 1E32 F0B08350
DEC 1E31 F0B08360
DEC 1E30 F0B08370
DEC 1E29 F0B08380
DEC 1E28 F0B08390
DEC 1E27 F0B08400
DEC 1E26 F0B08410
DEC 1E25 F0B08420
DEC 1E24 F0B08430
DEC 1E23 F0B08440
DEC 1E22 F0B08450
DEC 1E21 F0B08460
DEC 1E20 F0B08470
DEC 1E19 F0B08480
DEC 1E18 F0B08490
DEC 1E17 F0B08500
DEC 1E16 F0B08510
DEC 1E15 F0B08520
DEC 1E14 F0B08530
DEC 1E13 F0B08540
DEC 1E12 F0B08550
DEC 1E11 F0B08560
DEC 1E10 F0B08570
DDTTN DEC 1E9 F0B08580
DEC 1E8 F0B08590
DEC 1E7 F0B08600
DEC 1E6 F0B08610
DEC 1E5 F0B08620
DEC 1E4 F0B08630
DEC 1E3 F0B08640
DEC 1E2 F0B08650
DEC 1E1 F0B08660
DEC 1E0 F0B08670
DEC 1E-1 F0B08680
DEC 1E-2 F0B08690
DEC 1E-3 F0B08700
DEC 1E-4 F0B08710
DEC 1E-5 F0B08720
DEC 1E-6 F0B08730
DEC 1E-7 F0B08740
DEC 1E-8 F0B08750
DEC 1E-9 F0B08760
DEC 1E-10 F0B08770
DEC 1E-11 F0B08780
DEC 1E-12 F0B08790
DEC 1E-13 F0B08800
DEC 1E-14 F0B08810
DEC 1E-15 F0B08820
DEC 1E-16 F0B08830
DEC 1E-17 F0B08840
DEC 1E-18 F0B08850
DEC 1E-19 F0B08860
DEC 1E-20 F0B08870
DEC 1E-21 F0B08880
DEC 1E-22 F0B08890
DEC 1E-23 F0B08900
DEC 1E-24 F0B08910
DEC 1E-25 F0B08920
DEC 1E-26 F0B08930
DEC 1E-27 F0B08940
DEC 1E-28 F0B08950
DEC 1E-29 F0B08960
DEC 1E-30 F0B08970
DEC 1E-31 F0B08980
DEC 1E-32 F0B08990
DEC 1E-33 F0B09000
DEC 1E-34 F0B09010
DEC 1E-35 F0B09020
DEC 1E-36 F0B09030
DEC 1E-37 F0B09040
DEC 1E-38 F0B09050
DDEFT DEC 0 F0B09060
REM **** T1 CONVERTS BINARY TO BCD 8 WORDS PER CARD **** F0B09070
T1 BCI 8,000000000001000002000003000004000005000006000007 F0B09080
BCI 8,000008000009000010000011000012000013000014000015 F0B09090
BCI 8,000016000017000018000019000020000021000022000023 F0B09100
BCI 8,000024000025000026000027000028000029000030000031 F0B09110
BCI 8,000032000033000034000035000036000037000038000039 F0B09120
BCI 8,000040000041000042000043000044000045000046000047 F0B09130
BCI 8,000048000049000050000051000052000053000054000055 F0B09140
BCI 8,000056000057000058000059000060000061000062000063 F0B09150
BCI 8,000000000064000128000192000256000320000384000448 F0B09160
BCI 8,000512000576000640000704000768000832000896000960 F0B09170
BCI 8,001024001088001152001216001280001344001408001472 F0B09180
BCI 8,001536001600001664001728001792001856001920001984 F0B09190
BCI 8,002048002112002176002240002304002368002432002496 F0B09200
BCI 8,002560002624002688002752002816002880002944003008 F0B09210
BCI 8,003072003136003200003264003328003392003456003520 F0B09220
BCI 8,003584003648003712003776003840003904003968004032 F0B09230
BCI 8,000000004096008192012288016384020480024576028672 F0B09240
BCI 8,032768036864040960045056049152053248057344061440 F0B09250
BCI 8,065536069632073728077824081920086016090112094208 F0B09260
BCI 8,098304102400106496110592114688118784122880126976 F0B09270
BCI 8,131072135168139264143360147456151552155648159744 F0B09280
BCI 8,163840167936172032176128180224184320188416192512 F0B09290
BCI 8,196608200704204800208896212992217088221184225280 F0B09300
BCI 8,229376233472237568241664245760249856253952258048 F0B09310
BCI 8,000000262144524288786432048576310720572864835008 F0B09320
REM **** T3 CONVERTS BCD ADDITION RESULT TO BCD **** F0B09330
T3 T3 F0B09340
T3,0,4096 F0B09350
T3,0,2*4096 F0B09360
T3,0,3*4096 F0B09370
T3,0,4*4096 F0B09380
T3,0,5*4096 F0B09390
T3,0,6*4096 F0B09400
T3,0,7*4096 F0B09410
PON T3 F0B09420
PON T3,0,4096 F0B09430
T3+1 F0B09440
T3+1,0,4096 F0B09450
T3+1,0,2*4096 F0B09460
T3+1,0,3*4096 F0B09470
T3+1,0,4*4096 F0B09480
T3+1,0,5*4096 F0B09490
T3+1,0,6*4096 F0B09500
T3+1,0,7*4096 F0B09510
PON T3+1 F0B09520
PON T3+1,0,4096 F0B09530
T3+2 F0B09540
T3+2,0,4096 F0B09550
T3+2,0,2*4096 F0B09560
T3+2,0,3*4096 F0B09570
T3+2,0,4*4096 F0B09580
T3+2,0,5*4096 F0B09590
T3+2,0,6*4096 F0B09600
T3+2,0,7*4096 F0B09610
PON T3+2 F0B09620
PON T3+2,0,4096 F0B09630
T3+3 F0B09640
T3+3,0,4096 F0B09650
T3+3,0,2*4096 F0B09660
T3+3,0,3*4096 F0B09670
T3+3,0,4*4096 F0B09680
T3+3,0,5*4096 F0B09690
T3+3,0,6*4096 F0B09700
T3+3,0,7*4096 F0B09710
PON T3+3 F0B09720
PON T3+3,0,4096 F0B09730
FDUMP PZE -1 $F0B09740
HONE PZE 0,0,4096 F0B09750
TCOH 0 F0B09760
TCOG 0 F0B09770
TCOF 0 F0B09780
TCOE 0 F0B09790
TCOD 0 F0B09800
TCOC 0 F0B09810
TCOB 0 F0B09820
TCOA 0 F0B09830
TCOX SYN * F0B09840
SCHH TEMP+6 F0B09850
SCHG TEMP+6 F0B09860
SCHF TEMP+6 F0B09870
SCHE TEMP+6 F0B09880
SCHD TEMP+6 F0B09890
SCHC TEMP+6 F0B09900
SCHB TEMP+6 F0B09910
SCHA TEMP+6 F0B09920
SCHX SYN * F0B09930
HZR BCI 1,0 F0B09940
ONE 1 F0B09950
OBLK TNX ,,0 F0B09960
ON BCI 1, ON F0B09970
OFF BCI 1, OFF F0B09980
MNSZ BCI 1, - F0B09990
MNSO BCI 1, -1 F0B10000
PLUS BCI 1, +0 F0B10010
TEMP DEC 0,0,0,0,0,0,0,0,0,0,0,0,0,0 F0B10020
MINUS BCI 1, - F0B10030
LBLK 48 F0B10040
ERR IORT RESTO,0,1 $F0B10050
IORT ERROR,0,9 $F0B10060
IORT HZR,,1 F0B10070
NDIO IOCP BOTTOM,,50 $F0B10080
IOCT END-SIZE,,SIZE $F0B10090
DSU IORT BUF2,,20 . $F0B10100
IORT BUF3,,20 . $F0B10110
IORT DUMP2,,20 . $F0B10120
IORT BUF1,,20 . $F0B10130
IORT BUF,,20 . $F0B10140
IOCD IOCT BLK,0,1 F0B10150
IORT BUF2,0,20 F0B10160
DSU2 IORT DFBB,0,20 F0B10170
IORT BUF1,0,20 F0B10180
IORT IORT SAVE,,SAVL $F0B10190
SWT BUF2+1,2 F0B10200
BUF2+2,2 F0B10210
BUF1+1,2 F0B10220
BUF1+2,2 F0B10230
BUF2+3,2 F0B10240
BUF2+4,2 F0B10250
BUF1+3,2 F0B10260
BUF1+4,2 F0B10270
BUF2+5,2 F0B10280
BUF2+6,2 F0B10290
BUF1+5,2 F0B10300
BUF1+6,2 F0B10310
BUF2+7,2 F0B10320
BUF2 F0B10330
BUF1+7,2 F0B10340
BUF1 F0B10350
ERROR BCI 9, PLEASE SUPPLY CORRECT CALLING SEQUENCE FOR DUMP. F0B10360
DUMP1 BCI 2,1 F0B10370
BCI 9,AC MQ SI F0B10380
BCI 2,KEYS F0B10390
BCI 7, XR1 XR2 XR4 XR3 $F0B10400
DUMP2 BCI 4,0 TRAP DCT IOT OFL $F0B10410
BCI 4, SL1 SL2 SL3 SL4 $F0B10420
BCI 6, SW1 SW2 SW3 SW4 SW5 SW6 $F0B10430
BCI 6, XR5 XR6 XR7 $F0B10435
DFBB BCI 6, F0B10440
BCI 4,CELLS TO F0B10450
BCI 9,ALL CONTAIN F0B10460
BLK BCI 1, F0B10470
2BLK BCI 1, 0000 F0B10480
3BLK BCI 1, 000 F0B10490
ASTR BCI 1,* F0B10500
TBLA 0 F0B10510
BCI 1, TXI F0B10520
BCI 1, TIX F0B10530
BCI 1, TXH F0B10540
BCI 1, STR F0B10550
BCI 1, TNX F0B10560
BCI 1, TXL F0B10570
TBLEP TBME,0,TBME-TBPE F0B10580
TBLEM TBP0,0,TBP0-TBME F0B10590
TBLBP TBP1,0,TBP1-TBP0 F0B10600
TBP2,0,TBP2-TBP1 F0B10610
TBP3,0,TBP3-TBP2 F0B10620
TBP4,0,TBP4-TBP3 F0B10630
TBP5,0,TBP5-TBP4 F0B10640
TBP6,0,TBP6-TBP5 F0B10650
TBP7,0,TBP7-TBP6 F0B10660
TBM0,0,TBM0-TBP7 F0B10670
TBLBM TBM1,0,TBM1-TBM0 F0B10680
TBM2,0,TBM2-TBM1 F0B10690
TBM3,0,TBM3-TBM2 F0B10700
TBM4,0,TBM4-TBM3 F0B10710
TBM5,0,TBM5-TBM4 F0B10720
TBM6,0,TBM6-TBM5 F0B10730
TBM7,0,TBM7-TBM6 F0B10740
TBE,0,TBE-TBM7 F0B10750
TBPE BCI 1, CLM00 F0B10760
BCI 1, LBT01 F0B10770
BCI 1, CHS02 F0B10780
BCI 1, SSP03 F0B10790
BCI 1, ENK04 F0B10800
BCI 1, IOT05 F0B10810
BCI 1, COM06 F0B10820
BCI 1, ETM07 F0B10830
BCI 1, RND10 F0B10840
BCI 1, FRN11 F0B10850
BCI 1, DCT12 F0B10860
BCI 1, RCT14 *F0B10870
TBME BCI 1, PBT01 F0B10880
BCI 1,EFTM02 F0B10890
BCI 1, SSM03 F0B10900
BCI 1,LFTM04 F0B10910
BCI 1,ESTM05 F0B10920
BCI 1,ECTM06 F0B10930
BCI 1, LTM07 F0B10940
BCI 1,LSNM10 F0B10950
BCI 1, ETT11 F0B10960
BCI 1, RTT12 F0B10970
TBP0 BCI 1, HTR00 F0B10980
BCI 1, TRA20 F0B10990
BCI 1, TTR21 F0B11000
BCI 1,TRCA22 F0B11010
BCI 1,TRCC24 F0B11020
BCI 1,TRCE26 F0B11030
BCI 1,TRCG27 F0B11040
BCI 1,TEFA30 F0B11050
BCI 1,TEFC31 F0B11060
BCI 1,TEFE32 F0B11070
BCI 1,TEFG33 F0B11080
TBP04 BCI 1, TLQ40 F0B11090
BCI 1, IIA41 F0B11100
BCI 1, TIO42 F0B11110
BCI 1, OAI43 F0B11120
BCI 1, PAI44 F0B11130
BCI 1, TIF46 F0B11140
BCI 1, IIR51 F0B11150
BCI 1, RFT54 F0B11160
BCI 1, SIR55 F0B11170
BCI 1, RNT56 F0B11180
BCI 1, RIR57 F0B11190
BCI 1,TCOA60 F0B11200
BCI 1,TCOB61 F0B11210
BCI 1,TCOC62 F0B11220
BCI 1,TCOD63 F0B11230
BCI 1,TCOE64 F0B11240
BCI 1,TCOF65 F0B11250
BCI 1,TCOG66 F0B11260
BCI 1,TCOH67 F0B11270
BCI 1, TSX74 F0B11280
TBP1 BCI 1, TZE00 F0B11290
BCI 1, CVR14 F0B11300
BCI 1, TPL20 F0B11310
BCI 1, XCA31 F0B11320
BCI 1, TOV40 F0B11330
BCI 1, TQO61 F0B11340
BCI 1, TQP62 F0B11350
TBP14 BCI 1, TOV40 F0B11360
BCI 1, TQO61 F0B11370
BCI 1, TQP62 F0B11380
TBP2 BCI 1, MPY00 F0B11390
BCI 1, VLM04 F0B11400
BCI 1, DVH20 F0B11410
BCI 1, DVP21 F0B11420
BCI 1, VDH24 F0B11430
BCI 1, VDP25 F0B11440
TBP24 BCI 1, FDH40 F0B11450
BCI 1, FDP41 F0B11460
BCI 1, FMP60 F0B11470
TBP3 BCI 1, FAD00 F0B11480
BCI 1, FSB02 F0B11490
BCI 1, FAM04 F0B11500
BCI 1, FSM06 F0B11510
BCI 1, ANS20 F0B11520
BCI 1, ERA22 F0B11530
TBP34 BCI 1, CAS40 F0B11540
BCI 1, ACL61 F0B11550
TBP4 BCI 1, ADD00 F0B11560
BCI 1, ADM01 F0B11570
BCI 1, SUB02 F0B11580
BCI 1, HPR20 F0B11590
TBP44 BCI 1, IIS40 F0B11600
BCI 1, LDI41 F0B11610
BCI 1, OSI42 F0B11620
BCI 1, OFT44 F0B11630
BCI 1, RIS45 F0B11640
BCI 1, ONT46 F0B11650
BCI 1, LDA60 F0B11660
TBP5 BCI 1, CLA00 F0B11670
BCI 1, CLS02 F0B11680
BCI 1, ZET20 F0B11690
BCI 1, XEC22 F0B11700
BCI 1, LXA34 F0B11710
BCI 1, LAC35 F0B11720
TBP54 BCI 1,RCHA40 F0B11730
BCI 1,RCHC41 F0B11740
BCI 1,RCHE42 F0B11750
BCI 1,RCHG43 F0B11760
BCI 1,LCHA44 F0B11770
BCI 1,LCHC45 F0B11780
BCI 1,LCHE46 F0B11790
BCI 1,LCHG47 F0B11800
BCI 1, LDQ60 F0B11810
BCI 1, ENB64 F0B11820
TBP6 BCI 1, STZ00 F0B11830
BCI 1, STO01 F0B11840
BCI 1, SLW02 F0B11850
BCI 1, STI04 F0B11860
BCI 1, STA21 F0B11870
BCI 1, STD22 F0B11880
BCI 1, STT25 F0B11890
BCI 1, SXA34 F0B11900
TBP64 BCI 1,SCHA40 F0B11910
BCI 1,SCHC41 F0B11920
BCI 1,SCHE42 F0B11930
BCI 1,SCHG43 F0B11940
TBP7 BCI 1, CPY00 F0B11950
BCI 1, CPY00 F0B11960
BCI 1, PAX34 F0B11970
BCI 1, PAC37 F0B11980
TBP74 BCI 1, PXA54 F0B11990
PSE BCI 1, PSE60 F0B12000
BCI 1, NOP61 F0B12010
BCI 1, RDS62 F0B12020
BCI 1, LLS63 F0B12030
BCI 1, BSR64 F0B12040
BCI 1, LRS65 F0B12050
BCI 1, WRS66 F0B12060
BCI 1, ALS67 F0B12070
BCI 1, WEF70 F0B12080
BCI 1, ARS71 F0B12090
BCI 1, REW72 F0B12100
BCI 1, AXT74 F0B12110
BCI 1, SDN76 F0B12120
TBM0 BCI 1,ESNT21 F0B12130
BCI 1,TRCB22 F0B12140
BCI 1,TRCD24 F0B12150
BCI 1,TRCF26 F0B12160
BCI 1,TRCH27 F0B12170
BCI 1,TEFB30 F0B12180
BCI 1,TEFD31 F0B12190
BCI 1,TEFF32 F0B12200
BCI 1,TEFH33 F0B12210
TBM04 BCI 1, RIA42 F0B12220
BCI 1, PIA46 F0B12230
BCI 1, IIL51 F0B12240
BCI 1, LFT54 F0B12250
BCI 1, SIL55 F0B12260
BCI 1, LNT56 F0B12270
BCI 1, RIL57 F0B12280
BCI 1,TCNA60 (34)F0B12290
BCI 1,TCNB61 F0B12300
BCI 1,TCNC62 F0B12310
BCI 1,TCND63 F0B12320
BCI 1,TCNE64 F0B12330
BCI 1,TCNF65 F0B12340
BCI 1,TCNG66 F0B12350
BCI 1,TCNH67 F0B12360
TBM1 BCI 1, TNZ00 F0B12370
BCI 1, CAQ14 F0B12380
BCI 1, TMI20 F0B12390
BCI 1, XCL30 F0B12400
TBM14 BCI 1, TNO40 F0B12410
BCI 1, CRQ54 F0B12420
TBM2 BCI 1, MPR00 F0B12430
TBM24 BCI 1, UFM60 F0B12440
TBM3 BCI 1, UFA00 F0B12450
BCI 1, UFS02 F0B12460
BCI 1, UAM04 F0B12470
BCI 1, USM06 F0B12480
BCI 1, ANA20 F0B12490
TBM34 BCI 1, LAS40 F0B12500
TBM4 BCI 1, SBM00 F0B12510
TBM5 BCI 1, CAL00 F0B12520
BCI 1, ORA01 F0B12530
BCI 1, NZT20 F0B12540
BCI 1, LXD34 F0B12550
BCI 1, LDC35 F0B12560
TBM54 BCI 1,RCHB40 F0B12570
BCI 1,RCHD41 F0B12580
BCI 1,RCHF42 F0B12590
BCI 1,RCHH43 F0B12600
BCI 1,LCHB44 F0B12610
BCI 1,LCHD45 F0B12620
BCI 1,LCHF46 F0B12630
BCI 1,LCHH47 F0B12640
TBM6 BCI 1, STQ00 F0B12650
BCI 1, ORS02 F0B12660
BCI 1, SLQ20 F0B12670
BCI 1, STL25 F0B12680
BCI 1, SXD34 F0B12690
TBM64 BCI 1,SCHB40 F0B12700
BCI 1,SCHD41 F0B12710
BCI 1,SCHF42 F0B12720
BCI 1,SCHH43 F0B12730
TBM7 BCI 1, CAD00 F0B12740
BCI 1, PDX34 F0B12750
BCI 1, PDC37 F0B12760
TBM74 BCI 1, PXD54 F0B12770
MSE BCI 1, MSE60 F0B12780
BCI 1, LGL63 F0B12790
BCI 1, BSF64 F0B12800
BCI 1, LGR65 F0B12810
BCI 1, RUN72 *F0B12820
BCI 1, RQL73 F0B12830
BCI 1, AXC74 F0B12840
TBE BES 0 F0B12850
RESTO BCI 1,1 F0B12860
BS2R MZE 2 (22)F0B12870
BS1R MZE 1,,0 F0B12880
PCH6 CLA BOTTOM-7 RESTORE LOCATION 0 (25)F0B12881
STO 0 (25)F0B12882
TRA START+11 (25)F0B12883
BSS 27 PATCH SPACE (25)F0B12885
END BES SIZE F0B12890
DUP 1,17 F0B12900
PZE F0B12910
LIMIT PZE F0B12920
BSS 0 *** PATCH AREA *** $F0B12921
PCH1 AXT 3,1 WRITE ERROR MESSAGE $F0B12922
TSX (TAPE),4 $F0B12923
PZE ERR+3,1,(WDNP) $F0B12924
PZE ,,OUTTAP $F0B12925
TIX *-3,1,1 $F0B12926
TRA FERR+1 (22)F0B12927
PCH2 AXT 6,1 WRITE OUT PANEL $F0B12928
TSX (TAPE),4 $F0B12929
PZE DSU+6,1,(WDNC) $F0B1292A
PZE ,,OUTTAP $F0B1292B
TIX *-3,1,1 $F0B1292C
TRA WRPAN+1 TO STORE. $F0B1292D
REM F0B12930
PCH3 SXD LIMIT-17,4 SAVE ALL POSSIBLE IR*S $F0B12931
SXD LIMIT-16,3 IN SEQUENCE $F0B12932
SXD LIMIT-15,5 X1,X2,X4,X3,X5,X6,X7. $F0B12933
SXD LIMIT-14,6 . $F0B12934
SXD LIMIT-13,7 . $F0B12935
AXT 0,3 LOAD IR*S TO $F0B12936
AXT 7,1 TEST TAG MODE WE ARE IN $F0B12937
SXD ICV4,3 . $F0B12938
TRA PCH6 GO TO RESTORE LOC. 0 (25)F0B12939
PCH4 SXA ICV3,1 ... SET BUFFER POINTER. $F0B1293B
AXT 6,4 SET CAPACITY AND $F0B1293C
TIX ICV1,2,1 CONTINUE ON NEW BUFFER. $F0B1293D
AXT PDC,2 FOR COMPLEMENT $F0B1293E
SXD ICV2,2 ALTER INSTRUCTION $F0B1293F
TXH ICV,1,0 AND PROCEED AS ALWAYS. $F0B1293G
TRA ICV3+3 GO AND MATCH ORIGINAL CREATION. $F0B1293H
PCH5 PZE BUF2+20,4 BUFFER POINTERS $F0B1293I
PZE BUF1+20,4 . $F0B1293J
PZE BUF3+20,4 . $F0B1293K
PZE BUF+20,4 $F0B1293L
PZE PATCH SPACE (22)F0B1293M
PZE (22)F0B1293N
IOBOT IORT BOTTOM,,50 (22)F0B1293O
L(5) PZE 5 (22)F0B1293P
BSS BOTIOP-* PATCH SPACE $F0B1293Q
PDC SYN BOTIOP+64 $F0B1293R
BUF2 SYN ORGDP+1 F0B12940
BUF1 EQU BUF2+20 F0B12950
BUF3 EQU BUF1+20 F0B12960
BUF EQU DUMP1 F0B12970
END -1 F0B12980