Forgot your password?
Document Actions
32K 709/7090 FORTRAN MONITOR - SCAN
Click here to get the file
File contents
$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 MONITOR SCAN F0F00000
* FAP F0F00020
* 32K 709/7090 FORTRAN MONITOR SCAN F0F00030
COUNT 850 F0F00040
SST FORTRAN $F0F00050
ABS $F0F00051
ORG SYSCUR $F0F00052
LBL 9F06,A F0F00060
BCI 1,9F0600 $F0F00070
ORG (LODR) $F0F00080
PON BEGIN,,60 TXI ENTRY,,RECORD NO. F0F00100
CHNTAP SYN 8 $F0F00120
TITLE $F0F00190
ORGSCN ORG BOTTOM F0F00200
REM F0F00210
BEGIN SLF F0F00220
AXT 2,1 SIGNAL IO PACKAGE TO TURN ON SL2 F0F00230
SXA (MSLN),1 IN CASE GOING TO MACHINE ERROR RECORD F0F00240
TSX (TAPE),4 REWIND B2 F0F00250
REWND,,(SKDP) F0F00260
,,FINTAP $F0F00270
LXD (PGCT),1 NO. OF LINES PER PAGE (EXCLUDING HEADING) F0F00280
TXI *+1,1,2 F0F00290
SXD NLINS,1 F0F00300
CLA BLNKS F0F00310
STO PBUF0 F0F00320
STO BUFZ0-1 F0F00330
STO BUFZ0-2 F0F00340
STO PBUF1 F0F00350
STO BUFZ1-1 F0F00360
STO BUFZ1-2 F0F00370
TSX (TAPE),4 RESTORE PAGE F0F00410
EJECT,,(WDNP) F0F00420
,,MLSTAP $F0F00430
R1 TSX (TAPE),4 BEGIN DOUBLE BUFFER READING F0F00440
CW0,,(RDEP) F0F00450
,,MINTAP $F0F00460
MZE TPCHK ERROR RETURN F0F00470
AXT 1,1 F0F00480
SXD BFSWCH,1 F0F00490
READ AXT 0,1 F0F00500
NZT BFSWCH F0F00510
AXT 1,1 F0F00520
SXD BFSWCH,1 F0F00530
TSX (TAPE),4 F0F00540
CW1,1,(RDEP) F0F00550
,,5 F0F00560
MZE TPCHK ERROR RETURN F0F00570
NZT (SCHU)+MINTAP WAS PREVIOUS READ AN END OF FILE $F0F00580
TRA IBFAP5 CHECK FOR EOF IN IBSFAP MODE $F0F00590
AXT 1,2 DELETE COLS. 81-84 F0F00600
CAL* BFZ0,1 F0F00610
ANA 2CHAR F0F00620
ORA 4BLNK F0F00630
SLW* BFZ0,1 F0F00640
LDQ* BFA0,1 TEST FOR MONITOR CONTROL CARD F0F00650
PXD 0,0 F0F00660
LGL 6 F0F00670
SUB ASTK F0F00680
SWIT TNZ SP F0F00690
DSRCH AXT 0,1 $F0F00700
AXT 0,2 $F0F00701
DS3 AXT 6,4 DICTIONARY. F0F00710
LDQ DICT,1 F0F00720
DS1 PXD 0,0 F0F00730
LGL 6 F0F00740
DS9 SUB SVNS FIND NEW DICTIONARY ENTRY) F0F00750
TNZ DS12 F0F00760
TXI DS2,2,-1 F0F00770
DS12 TIX DS1,4,1 F0F00780
TXI DS3,1,-1 F0F00790
DS2 TIX *+4,4,1 SEVENS MEANS NEXT ENTRY, F0F00800
AXT 6,4 IS THIS END OF DICTIONARY. F0F00810
TXI *+1,1,-1 F0F00820
LDQ DICT,1 F0F00830
LGL 6 F0F00840
CAS SVNS F0F00850
TRA DS4 F0F00860
TRA DS14 F0F00870
DS4 STO DERS NO, NEW ENTRY. F0F00880
CLA (6)A PREPARE TO COMPARE WITH F0F00890
STA NNBL1 NEXT NON BLANK CHARACTER. F0F00900
CLA (13)A F0F00910
STA NNBL2 F0F00920
DS6 SXA DS11,4 GET NEXT NON BLANK CHARACTER. F0F00930
TSX NNBL,4 F0F00940
TRA DS10 REST ARE BLANKS. F0F00950
CAS LPREN F0F00960
TRA *+2 F0F00970
TRA DS10 LEFT PAREN, STOP SEARCHING BUFFER. F0F00980
DS11 AXT ,4 COMPARE CHARACTER WITH DICGIONARY F0F00990
CAS DERS CHARACTER. F0F01000
TRA *+2 F0F01010
TRA DS5 SAME F0F01020
CLA DERS DIFFERENT, SEE IF THIS IS THE END F0F01030
TRA DS9 OF THIS DICTIONARY ENTRY. F0F01040
DS5 TIX DS7,4,1 SAME, PREPARE TO COMPARE F0F01050
TXI *+1,1,-1 NEXT CHARACTER. F0F01060
LDQ DICT,1 F0F01070
AXT 6,4 F0F01080
DS7 PXD 0,0 F0F01090
LGL 6 F0F01100
STO DERS F0F01110
TRA DS6 F0F01120
DS10 LXA DS11,4 END OF BUFFER OR LEFT PAREN, IS F0F01130
CLA DERS THIS ALSO END OF THIS F0F01140
SUB SVNS DICTIONARY ENTRY. F0F01150
TNZ DS12 NO, GET NEXT DICTIONARY ENTRY. F0F01160
DS14 TRA IBFAP2 RESTORE COL 7 * CARDS $F0F01170
CLA CWP0,1 COMMAND TO WRITE OUT BUFFER $F0F01180
TSX COMNT,4 F0F01190
TRA TV GO TO APPROPRIATE CODING F0F01200
DERS PZE F0F01210
REM F0F01220
DICT OCT 776725507723 -XEQ-C F0F01230
OCT 302131457724 HAIN-D F0F01240
OCT 216321772321 ATA-CA F0F01250
OCT 512462514666 RDSROW F0F01260
OCT 772321512462 -CARDS F0F01270
OCT 234643644445 COLUMN F0F01280
OCT 774331626377 -LIST- F0F01290
OCT 433122257726 LIBE-F F0F01300
OCT 214777223145 AP-BIN F0F01310
OCT 776270442246 -SYMBO F0F01320
OCT 436321224325 LTABLE F0F01330
OCT 774321222543 -LABEL F0F01340
OCT 772425226427 -DEBUG F0F01350
OCT 774721646225 -PAUSE F0F01360
OCT 774331626310 -LIST8 F0F01370
OCT 774751314563 -PRINT F0F01380
OCT 775146667747 -ROW-P F0F01381
OCT 212342772524 ACK-ED $F0F01382
OCT 316343312225 ITLIBE $F0F01383
OCT 773146477777 -IOP-- $F0F01384
OCT 777777777777 ------ $F0F01390
BSS 19 $F0F01400
REM F0F01410
TV TRA* *,2 F0F01420
XEQ F0F01430
CHN F0F01440
DATA F0F01450
CDROW F0F01460
CDCOL F0F01470
LIST F0F01480
LIBE F0F01490
FAP F0F01500
BIN F0F01510
SYMTAB F0F01520
LABEL F0F01530
DEBUG F0F01540
PAUSE F0F01550
LIST8 F0F01560
ONLPR F0F01570
ROW F0F01571
PACK F0F01572
EDIT $F0F01573
IOP $F0F01574
READ $F0F01580
BSS 19 $F0F01590
REM F0F01600
SP ADD SK1RC IS THIS A CC 1 DOLLAR SIGN $F0F01610
TRA IBFAP1 TEST COL 1 AND 7 CHARACTERS $F0F01620
(6)A AXT 6,1 NO, PREPARE TO SCAN FOR END CARD. F0F01630
(13)A AXT 13,2 F0F01640
SXA NNBL1,1 F0F01650
SXA NNBL2,2 F0F01660
AXT 17,1 SCAN FOR CALL CHAIN(XXXXXX, (34)F0F01670
SP01 TSX NNBL,4 X F0F01680
TRA WSP NO MORE CHARACTERS F0F01690
TXL *+5,1,7 HAVE FOUND CALL CHAIN( (34)F0F01700
SUB CLCH+17,1 (34)F0F01710
TNZ SP05 NOT CALL CHAIN( (34)F0F01720
TIX SP01,1,1 STILL POSSIBLE (34)F0F01730
TRA WSP SOMETHING ILLEGAL-FORGET IT (34)F0F01740
SUB COMMA SEARCH FOR COMMA (34)F0F01750
TNZ *-3 (34)F0F01760
TRA CLCHFX SEE IF T IS AN A OR B (34)F0F01770
TZE *+3 YES F0F01780
ADD ONE NO, IS IT A F0F01790
TNZ WSP (34)F0F01800
AXT 2,1 FOUND, ERASE IT F0F01810
SP03 LXA NNBL1,4 X F0F01820
LXA NNBL2,2 X F0F01830
LDQ BMSK+2,1 X F0F01840
TXL *+2,4,5 X F0F01850
TXI SP04,2,1 X F0F01860
RQL 6 X F0F01870
TIX *-1,4,1 X F0F01880
SP04 XCL F0F01890
TIX SP03,1,1 X F0F01900
LXD BFSWCH,4 X F0F01910
ORS* BFZ0,4 X F0F01920
XCL F0F01930
ANS* BFZ0,4 X F0F01940
TRA WSP X F0F01950
SP05 TXL WSP,1,16 WAS 1ST CHARACTER AC. (35)F0F01960
ADD CLCH NO, SCAN FOR END CARD F0F01970
AXT 3,1 X F0F01980
SP06 SUB E+3,1 X F0F01990
TNZ WSP X F0F02000
TSX NNBL,4 X F0F02010
TRA SP1 NO MORE CHARACTERS F0F02020
TIX SP06,1,1 X F0F02030
SUB LPREN X F0F02040
TNZ WSP NOT AN END CARD F0F02050
TXI SP2,1,14 END CARD WITH PARAMETERS F0F02060
SP1 TXL END,1,1 END CARD WITH NO PARAMETERS. F0F02070
TRA WSP NOTHING. F0F02080
SP2 TSX NNBL,4 F0F02090
TRA WSP F0F02100
STO PSW1+15,1 SAVE ORIGINAL END CARD OPTIONS F0F02110
TSX NNBL,4 LOOK FOR COMMAS. F0F02120
TRA WSP F0F02130
TNX SP3,1,1 F0F02140
SUB COMMA F0F02150
TZE SP2 F0F02160
ADD COMMA F0F02170
SP3 SUB RPREN LOOK FOR CLOSING PARENTHESIS F0F02180
TNZ WSP F0F02190
PTCHR TRA CONTN CLOSING PART. FOUND, SCAN REST OF CARD. $F0F02200
ZET ESW1 WAS THERE A CONTROL CARD AFFECTING SWITCH 1F0F02210
TRA *+3 YES, IGNORE END CARD SETTING. F0F02220
NZT PSW1 NO, DOES END CARD SPECIFY SWITCH 1 UP. F0F02230
STO ENDCD+1 YES, PUT IT UP. F0F02240
REM F0F02250
REM SAVE END CARD OPTIONS IN ABSENCE OF CONTROL CARDS F0F02260
AXT 15,4 F0F02270
AXT 5,2 F0F02280
SP3A AXT 3,1 F0F02290
LDQ ENDCD+7,2 F0F02300
SP4 TNX SP5,4,1 F0F02310
CLA PSW1+15,4 F0F02320
NZT ESW1+15,4 TEST FOR CONTROL CARD F0F02330
LBT NO CC, TEST FOR ONE (1). F0F02340
TRA SP5 F0F02350
LGL 6 ONE, PUTI IT IN END CARD F0F02360
ARS 6 F0F02370
LGR 6 F0F02380
SP5 RQL 12 F0F02390
TIX SP4,1,1 F0F02400
STQ ENDCD+7,2 F0F02410
TIX SP3A,2,1 F0F02420
REM F0F02430
END ZET BEGIN HAS SOMETHING BEEN WRITTEN F0F02440
TRA READ NO, THIS END CARD IS BALONEY, IGNORE. F0F02450
LDI ENDCD+4 $F0F02451
LFT 1 IS OFF LINE ROW BINARY REQUESTED $F0F02452
TRA RBR YES $F0F02453
LDI ENDCD+1 NO $F0F02454
OSI ENDCD+2 $F0F02455
RFT 100 IS ON LINE ROW BINARY REQUESTED $F0F02456
TRA ENDWT NO $F0F02457
RBR LDI ENDCD+3 YES $F0F02458
LNT 10000 IS LIBE REQUESTED $F0F02459
TRA ENDWT NO $F0F02460
RIL 10000 YES $F0F02461
STI ENDCD+3 KILL REQUEST $F0F02462
RBLIB STZ * $F0F02463
ENDWT TSX (TAPE),4 WRITE OUT FABRICATED END CARD $F0F02464
ENDCW,,(WBNP) F0F02470
FINPUT,,FINTAP $F0F02480
TSX (TAPE),4 F0F02490
,,(WEFP) F0F02500
,,FINTAP $F0F02510
TSX (TAPE),4 F0F02520
REWND,,(SKBP) F0F02530
,,FINTAP $F0F02540
AXT *+2,1 WRITE END CARD ON OUTPUT TAPE F0F02550
SXA WTHDR,1 F0F02560
LXA WSP,1 F0F02570
TNX NUPAG,1,1 F0F02580
PXD ,1 F0F02590
SBM NLINS F0F02600
ARS 18 F0F02610
SBM LINECT F0F02620
DD TRA IBPAT2 CHECK FOR IBSFAP END CARD $F0F02630
TSX (TAPE),4 F0F02640
ENDCW+1,,(WDNP) F0F02650
,,MLSTAP $F0F02660
CLA COMLB $F0F02661
NZT RBLIB WAS LIBE KILLED $F0F02662
TSX COMNT,4 YES, TELL THEM ABOUT IT $F0F02663
TSX (TAPE),4 WRITE EXTRA HEADING FOR SECTION 6 F0F02670
HEDCW,,(WDNP) F0F02680
,,MLSTAP $F0F02690
LDI* (FGBX) F0F02700
RNT 200 IS EXECUTION ON. F0F02710
TRA TOFN NO F0F02720
AXT NXTEF,4 YES, PREPARE TO LOOK AT NEXT CARD F0F02730
SXA CHKEF,4 F0F02740
SXA BEF,4 F0F02750
SXA EF1,4 F0F02760
AXT RDNXT,4 F0F02770
SXA CHKB,4 F0F02780
NEXT TSX (TAPE),4 LOOK AT NEXT CARD F0F02790
MINTAP,,(CHKU) $F0F02800
NZT (SCHU)+MINTAP WAS IT AN END OF FILE $F0F02810
TRA NXTEF F0F02820
AXT 0,4 F0F02830
NZT BFSWCH F0F02840
AXT 1,4 F0F02850
SXD BFSWCH,4 F0F02860
LDQ* BFA0,4 IS IT MONITOR CONTROL CARD. F0F02870
PXD 0,0 F0F02880
LGL 6 F0F02890
SUB ASTK F0F02900
TZE NXTCC YES F0F02910
CLA* BFA0,4 NO F0F02911
SUB BLNKS F0F02912
TNZ NOTCC ANYTHING IN FIRST WORD F0F02913
AXT 6,1 NO F0F02920
AXT 13,2 F0F02930
SXA NNBL1,1 F0F02940
SXA NNBL2,2 F0F02950
TSX NNBL,4 IS THIS A BLANK CARD F0F02960
TRA RDNXT YES, IGNORE BLANK CARD F0F02970
NOTCC TRA TOFN NON-BLANK AND NOT A CONTROL CARD F0F02980
RDNXT LXD BFSWCH,1 F0F02990
TSX (TAPE),4 READ NEXT CARD F0F03000
CW1,1,(RDEP) F0F03010
,,MINTAP $F0F03020
MZE TPCHK F0F03030
TRA NEXT F0F03040
NXTCC CLA DSEND F0F03050
STO DS14 F0F03060
TRA DSRCH SEARCH DICTIONARY F0F03070
DSEND TRA *+1 F0F03080
LDI TV,2 IS IT DATA F0F03090
IIR DATA F0F03100
RFT 777777 F0F03110
TRA NOTDA NO F0F03120
NXTDA LDI* (FGBX) YES, DATA CARD IS NEXT F0F03130
SIR 100000 F0F03140
STI* (FGBX) F0F03150
TRA TOFNA F0F03160
NOTDA LDI TV,2 IS IT DEBUG F0F03170
IIR DEBUG F0F03180
RFT 777777 F0F03190
TRA TOFN NO F0F03200
LDI* (FGBX) YES, DEBUG CARD IS NEXT F0F03210
SIR 400000 SIGNAL DEBUG F0F03211
STI* (FGBX) F0F03212
LNT 2 IS THIS A CHAIN JOB F0F03220
TRA NXTDA+1 NO F0F03230
AXT *+2,4 YES F0F03240
SXA NOTCC,4 F0F03250
LDC BFSWCH,1 MOVE THE DEBUG CARDS TO B1 F0F03260
TSX (TAPE),4 F0F03270
CW0,1,(WDNC) F0F03280
,,CHNTAP $F0F03290
TRA RDNXT F0F03300
REM F0F03310
NXTEF LDI* (FGBX) F0F03320
SIR 100000 SIGNAL GO TO BSS AFTER COMPILATION F0F03330
STI* (FGBX) F0F03340
TOFN TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F03350
TOFNA TSX (TAPE),4 SPACE SYSTEM TAPE TO FORTRAN F0F03360
SKFCW,,(SKBP) F0F03370
,,SYSTAP $F0F03380
TSX (PRNT),4 PRINT BEGIN COMPILATION AND GO TO FORTRAN F0F03390
COMBC,,4 F0F03400
TSX (PRNT),4 F0F03410
SPACE,,1 F0F03420
TSX LOAD,4 $F0F03421
BCI 1,9F1300 $F0F03422
LOAD CLA 1,4 GET RECORD NAME $F0F03430
STO RNAME $F0F03431
CLA TPCHK+2 CLOSE OUT ALL IO $F0F03432
STO TPCHK F0F03440
AXT 7,1 $F0F03450
TSX (TAPE),4 F0F03451
PZE 8,1,(CHKU) NORMALLY CLOSE OUT TAPES 1-7 ONLY $F0F03452
TIX *-2,1,1 F0F03453
TSX (LOAD),4,1 LOAD NEXT SYSTEM RECORD $F0F03454
RNAME BCI 1,****** $F0F03455
REM F0F03460
TPCHK LDI (SCHU)+MINTAP WAS ERROR WRONG MODE READ $F0F03470
RNT 100 $F0F03480
TRA QQQQ NO $F0F03490
LDI* (FGBX) YES IS XEQ ON $F0F03500
RFT 200 $F0F03510
TRA CBIN YES CHECK FOR CHAIN JOB $F0F03520
AXT RDBIN,1 NO, SKIP OVER BINARY INPUT $F0F03530
SXA WTBIN,1 $F0F03540
TRA RDBIN1 $F0F03550
CBIN LNT 2 CHAIN JOB $F0F03560
TRA CBIN1 NO GO TO DEBUG $F0F03570
RDBIN1 TSX (TAPE),4 YES MOVE BINARY $F0F03580
PZE CWB0,,(RBEC) $F0F03590
PZE ,,MINTAP $F0F03600
NZT (SCHU)+MINTAP MAKE SURE IT WASNT EOF $F0F03610
CHKEF TRA IBFAP5 YES $F0F03620
CLA BLNKS $F0F03630
AXT 2,1 $F0F03640
STO BUFZ0,1 $F0F03650
STO BUFZ1,1 $F0F03660
TIX *-2,1,1 $F0F03670
SXD BFSWCH,1 $F0F03680
RDBIN AXT 0,1 $F0F03690
NZT BFSWCH $F0F03700
AXT 1,1 $F0F03710
SXD BFSWCH,1 $F0F03720
TSX (TAPE),4 $F0F03730
PZE CWB1,1,(RBEP) $F0F03740
PZE ,,MINTAP $F0F03750
CHKB MZE R1 IF ERROR TRY READING BCD $F0F03760
NZT (SCHU)+MINTAP EOF $F0F03770
BEF TRA IBFAP5 YES $F0F03780
LDC BFSWCH,1 $F0F03790
WTBIN TSX (TAPE),4 $F0F03800
PZE CWB0,1,(WBNC) $F0F03810
PZE ,,CHNTAP $F0F03820
TRA RDBIN $F0F03830
DATA EQU * $F0F03840
EF EQU * $F0F03850
LDI* (FGBX) IS XEQ ON $F0F03860
RFT 200 $F0F03870
TRA EF1 YES $F0F03880
EF2 EQU * $F0F03885
TSX (TAPE),4 NO GO TO SIGN ON $F0F03890
PZE BS4CW,,(SKBP) $F0F03900
PZE ,,SYSTAP $F0F03910
TSX LOAD,4 $F0F03920
BCI 1,9F0300 $F0F03930
CBIN1 SIR 200000 $F0F03940
STI* (FGBX) BINARY INPUT $F0F03950
CAL BKINR+1 KILL BACKSPACE $F0F03952
SLW BKIN $F0F03953
AXT ,0 $F0F03957
EF1 TSX BKIN,4 BACK UP INPUT TAPE OVER EOF OR USER'S DATA$F0F03959
TSX LOAD,4 READ IN DEBUG $F0F03960
BCI 1,9F0700 DEBUG $F0F03970
QQQQ RNT 10 WAS ERROR REDUNDANCY $F0F03980
TRA INERR NO $F0F03990
TRA IBFAP4 $F0F04000
REM F0F04020
REM F0F04030
REM F0F04040
REM WRITE SOURCE PROGRAM CARDS FOR FORTRAN AND OUTPUT TAPE F0F04050
WSP AXT **,1 F0F04060
TNX NUPAG,1,1 TRANSFER FOR NEW PAGE F0F04070
SXA WSP,1 F0F04080
LDC BFSWCH,1 F0F04090
TSX (TAPE),4 WRITE B2 FOR FORTRAN F0F04100
CW0,1,(WBNP) F0F04110
FINPUT,,FINTAP $F0F04120
ZET BEGIN F0F04130
TRA WSP1 DONT WRITE A3 F0F04140
TSX (TAPE),4 WRITE A3 OUTPUT TAPE F0F04150
CWP0,1,(WDNP) F0F04160
,,MLSTAP $F0F04170
WSPCK TSX (TAPE),4 CHECK BEFORE DESTROYING THIS BUFFER F0F04180
FINTAP,,(CHKU) $F0F04190
TSX (TAPE),4 F0F04200
MLSTAP,,(CHKU) $F0F04210
TRA READ F0F04220
WSP1 STZ BEGIN F0F04230
TRA WSPCK F0F04240
NUPAG LXA LINECT,4 F0F04250
NZT BEGIN IS THIS THE FIRST SOURCE CARD F0F04260
NLINS TXI WTHED,4,** NO (DECREMENT HAS NO. OF LINES PER PAGE) F0F04270
REM PREPARE PAGE HEADING F0F04280
TRA IBFAP3 CHECK FOR IBSFAP WITH NO FAP CARD $F0F04290
AXT 14,2 F0F04300
CLA* BFZ0,1 F0F04310
STO TITLE+14,2 F0F04320
TXI *+1,2,-1 F0F04330
TXH *-3,2,2 F0F04340
AXT 1,2 F0F04350
SXD LINECT,2 SET PAGE NUMBER TO 1 F0F04360
PXD ,0 F0F04370
STZ BEGIN F0F04380
LDI TITLE F0F04390
IIL 230000 WAS 1ST CHARACTER C F0F04400
LFT 770000 F0F04410
TRA CDATE NO F0F04420
SIL 600000 YES, CHANGE TO BLANK F0F04430
STI TITLE F0F04440
STL BEGIN DONT WRITE THIS CARD AGAIN ON A3 F0F04450
CAL NLINS F0F04460
CDATE STP LINECT SIGNAL FOR 1ST CHARACTER C F0F04470
CAL (DATE) GET DATE F0F04480
TZE NDATE NO DATE F0F04490
ANA BLNKS ANY ZONE BITS F0F04500
TNZ NDATE YES, NOT PROPER DATE F0F04510
LDQ (DATE) GOOD DATE F0F04520
LGL 6 F0F04530
TNZ *+2 F0F04540
CAL BLNK F0F04550
LGL 6 MONTH F0F04560
ALS 6 F0F04570
ORS DATE F0F04580
LGL 12 DAY F0F04590
ALS 6 F0F04600
LGL 12 YEAR F0F04610
ALS 6 F0F04620
ORS DATE+1 F0F04630
TRA WTHED F0F04640
NDATE CAL BLNKS F0F04650
SLW DATE F0F04660
SLW DATE+1 F0F04670
WTHED SXA LINECT,4 F0F04680
LXD NLINS,4 F0F04690
TXI *+1,4,-1 F0F04700
SXA WSP,4 F0F04710
TSX (TAPE),4 WRITE PAGE HEADING F0F04720
HEDCW,,(WDNP) F0F04730
,,MLSTAP $F0F04740
TSX (TAPE),4 F0F04750
BLNCW,,(WDNP) F0F04760
,,MLSTAP $F0F04770
LXD LINECT,4 UPDATE PAGE NUMBER F0F04780
TXI *+1,4,1 F0F04790
SXD LINECT,4 F0F04800
PXA ,4 F0F04810
LDQ ZERO F0F04820
LRS 4 F0F04830
VDP HUND,,4 F0F04840
RQL 6 F0F04850
LRS 4 F0F04860
VDP TEN,,4 F0F04870
RQL 6 F0F04880
STQ PAGE+1 F0F04890
ORA PAGE+1 F0F04900
LDQ BLNKS F0F04910
LGR 6 F0F04920
TNZ *-1 F0F04930
STQ PAGE+1 F0F04940
WTHDR TRA WSP F0F04950
REM F0F04960
XEQ CAL XBIT XEQ CONTROL CARD, SET EXECUTION BIT. F0F04970
LDI SYSJOB OBTAIN NOGO BIT FROM IBSYS $F0F04980
TRA IBPAT1 TEST FOR IBSFAP $F0F04990
REM F0F05000
CHN LDI* (FGBX) F0F05010
AXT SP,1 F0F05011
SXA SWIT,1 F0F05012
RNT 200 F0F05020
TRA READ NO EXECUTION F0F05030
LNT 2 IS THIS THE FIRST CHAIN. F0F05040
TRA CHN1 YES F0F05050
TSX (TAPE),4 NO, WRITE EOF ON B1 AND B4 F0F05060
,,(WEFP) F0F05070
,,CHNTAP $F0F05080
TSX (TAPE),4 F0F05090
,,(WEFC) F0F05100
,,MBNTAP $F0F05110
TRA CHN1A F0F05120
CHN1 TSX (TAPE),4 REWIND B1 F0F05130
REWND,,(SKBP) F0F05140
,,CHNTAP $F0F05150
SIL 2 F0F05160
STI* (FGBX) F0F05170
CHN1A TSX NNBL,4 1ST CHARACTER AFTER LEFT PAREN. F0F05180
TRA CHER1 F0F05190
AXT 5,1 F0F05200
STZ TEMP F0F05210
CHN2 SLW TEMP GET BCD RECORD = F0F05220
TSX NNBL,4 IONTO TEMP. F0F05230
TRA CHER1 X F0F05240
CAS COMMA X F0F05250
TRA *+2 X F0F05260
TRA CHN3 X F0F05270
LGR 6 X F0F05280
CAL TEMP X F0F05290
LGL 6 X F0F05300
TIX CHN2,1,1 X F0F05310
TRA CHER1 F0F05320
CHN3 TSX NNBL,4 GET THE TAPE NUMBER F0F05330
TRA CHER1 F0F05340
PAX ,1 F0F05350
TXH CHN3,1,8 F0F05360
STO TEMPA F0F05370
AXT 6,1 F0F05380
CHN4 LDQ TEMP ELIMINATE LEADING ZEROS F0F05390
CHN5 PXD 0,0 FROM RECORD NO. F0F05400
LGL 6 F0F05410
TNZ CHN6 F0F05420
TIX CHN5,1,1 F0F05430
CHER1 CLA COMCH COMMENT CHAIN CARD NG F0F05440
TSX COMNT,4 F0F05450
TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F05460
TSX (TAPE),4 SPACE TO SOURCE ERROR RECORD F0F05470
SK4CW,,(SKBP) F0F05480
,,SYSTAP $F0F05490
SLF F0F05500
SLN 2 F0F05510
TSX LOAD,4 GO TO SOURCE ERROR RECORD $F0F05520
BCI 1,9F1100 $F0F05521
CHN6 STZ TEMP1 CONVERT RECORD = TO F0F05530
CHN7 STQ TEMP BINARY. F0F05540
XCA X F0F05550
MPY CHN15+5,1 X F0F05560
XCA X F0F05570
ADD TEMP1 X F0F05580
TNX CHN8,1,1 X F0F05590
STO TEMP1 X F0F05600
LDQ TEMP X F0F05610
PXD 0,0 X F0F05620
LGL 6 X F0F05630
TRA CHN7 X F0F05640
CHN8 PAX ,1 F0F05650
SXD TEMPA,1 F0F05660
TSX (TAPE),4 WRITE THE CHAIN LABEL F0F05670
LBLCW,,(WBNC) F0F05680
,,CHNTAP $F0F05690
TRA READ F0F05700
REM F0F05710
REM F0F05720
CHN15 DEC 10000,1000,100,10,1 F0F05730
ONE SYN CHN15+4 F0F05740
TEN SYN CHN15+3 F0F05760
HUND SYN CHN15+2 F0F05770
TEMP PZE F0F05780
TEMPA PZE F0F05790
REM F0F05800
CDROW CLA CDS SET SWITCHES 1 AND 4 FOR CARDS ROW. F0F05810
STO ENDCD+1 F0F05820
STL ESW1 F0F05830
STL ESW4 F0F05840
TRA READ F0F05850
CDCOL CLA 100OCT SET SWITCHES 1 AND 4 FOR CARDS COLUMN. F0F05860
ORS ENDCD+2 F0F05870
TRA CDROW F0F05880
LIST CLA OCTTHD SET SWITCH 2 FOR SYMBOLIC LISTING. F0F05890
ORS ENDCD+2 F0F05900
STL ESW2 F0F05910
TRA READ F0F05920
LIBE CLA LBS SET SWITCH 5 FOR FORTRAN F0F05930
ORS ENDCD+3 LIBRARY SEARCH F0F05940
STL ESW5 F0F05950
TRA READ F0F05960
SYMTAB CAL ONEIND F0F05970
ORS ENDCD+3 F0F05980
STL ESW1+5 F0F05990
TRA READ F0F06000
PAUSE AXT 3,1 F0F06010
TSX (PRNT),4 SPACE PAGE. F0F06020
SPACE,,1 F0F06030
TIX *-2,1,1 F0F06040
HPR -1,7 F0F06050
TRA READ F0F06060
LABEL CLA 100OCT SET SWITCH 7 FOR LABEL OPTION F0F06070
ORS ENDCD+3 F0F06080
STL ESW1+6 F0F06090
TRA READ F0F06100
LIST8 CLA OCTTHD SET SWITCH 8 FOR OCTAL LISTING F0F06110
ORS ENDCD+4 F0F06120
STL ESW1+7 F0F06130
TRA LIST F0F06140
ONLPR CLA ONEIND F0F06150
ORS ENDCD+2 F0F06160
STL ESW1+2 F0F06170
TRA READ F0F06180
ROW CLA ONEIND SET SWITCH 9 FOR OFF LINE ROW BINARY F0F06181
ORS ENDCD+4 F0F06182
STL ESW1+8 F0F06183
LDI* (FGBX) F0F06184
RNT 200 F0F06185
TRA READ F0F06186
RIR 200 DELETE EXECUTION F0F06187
STI* (FGBX) F0F06188
CLA COMRX F0F06189
TSX COMNT,4 F0F06190
TRA READ F0F06191
PACK CLA 100OCT SET SWITCH 10 FOR PACKED LISTING TAPE F0F06192
ORS ENDCD+4 F0F06193
STL ESW1+9 F0F06194
TRA READ F0F06195
REM F0F06196
DEBUG LDI* (FGBX) F0F06200
SIR 400000 SIGNAL DEBUG. F0F06201
STI* (FGBX) F0F06202
LNT 2 IS THIS A CHAIN JOB. F0F06210
TRA DATA NO F0F06220
MVDBG AXT WTDBG,1 YES, MOVE DEBUG CARDS TO B1. F0F06230
SXA SWIT,1 F0F06240
WTDBG TRA PATCH1 GO TEST FOR BLANK CARD $F0F06250
TSX (TAPE),4 F0F06260
CW0,1,(WDNC) F0F06270
,,CHNTAP $F0F06280
TRA READ F0F06290
REM F0F06300
BIN TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F06310
TSX (TAPE),4 F0F06320
SK5CW,,(SKBP) F0F06330
,,SYSTAP $F0F06340
TSX LOAD,4 $F0F06341
BCI 1,9F1200 $F0F06342
REM $F0F06343
EDIT TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD $F0F06350
AXT 4,1 SKIP 4 FILES ON SYSTEM $F0F06351
TSX (TAPE),4 $F0F06352
SKFCW,,(SKBP) $F0F06353
,,SYSTAP $F0F06354
TIX *-3,1,1 $F0F06355
TSX LOAD,4 GO TO LIBRARY BLOCKER $F0F06356
BCI 1,9LEDIT $F0F06357
BSS 20 F0F06360
REM F0F06370
FAP AXT 6,2 SET END SWITCHES FOR FAP F0F06380
GTES LDQ ENDCD+7,2 F0F06390
AXT 3,1 F0F06400
GTES1 RQL 5 F0F06410
LGL 1 F0F06420
RQL 6 F0F06430
TIX GTES1,1,1 F0F06440
TIX GTES,2,1 F0F06450
ARS 1 F0F06460
STA (ENDS) F0F06461
TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F06470
TSX (TAPE),4 BACKSPACE SYSTEM TO RECORD 4 F0F06480
BS3CW,,(SKBP) F0F06490
,,SYSTAP $F0F06500
TSX (PRNT),4 PRINT BEGIN ASSEMBLY F0F06510
COMBA,,4 F0F06520
TSX (PRNT),4 F0F06521
SPACE,,1 F0F06522
TSX LOAD,4 GO TO FAP $F0F06530
BCI 1,9F0400 $F0F06531
REM F0F06540
NNBL SXA NNBL6,4 ROUTINE GETS NEXT NON BLANK CHARACTER F0F06550
SXA NNBL7,2 IN BUFFER. F0F06560
SXA NNBL8,1 F0F06570
STQ TEMP1 F0F06580
NNBL1 AXT ,1 F0F06590
NNBL2 AXT ,2 F0F06600
LXD BFSWCH,4 F0F06610
LDQ TEMPQ F0F06620
NNBL2A TXL NNBL4,1,5 F0F06630
NNBL3 LDQ* BFZ0,4 F0F06640
NNBL4 PXD 0,0 F0F06650
LGL 6 F0F06660
ERA BLNK $F0F06670
TIX *+3,1,1 F0F06680
AXT 6,1 F0F06690
TXI *+1,2,-1 F0F06700
TNZ NNBL5 F0F06710
TXH NNBL2A,2,2 F0F06720
LXA NNBL6,4 F0F06730
TXI NNBL7,4,1 F0F06740
NNBL5 ERA BLNK $F0F06750
SXA NNBL1,1 F0F06760
SXA NNBL2,2 F0F06770
NNBL6 AXT ,4 F0F06780
NNBL7 AXT ,2 F0F06790
NNBL8 AXT ,1 F0F06800
STQ TEMPQ F0F06810
LDQ TEMP1 F0F06820
TRA 2,4 F0F06830
TEMP1 PZE F0F06840
TEMPQ PZE F0F06850
REM F0F06860
NCB CLA COMNC COMMENT BINARY INPUT W NO CB BITS F0F06870
TSX COMNT,4 F0F06880
INERR TSX (TAPE),4 GO TO IO PACKAGE FOR ERROR $F0F06890
,,(TPER) AND DONT COME BACK F0F06900
,,MINTAP $F0F06910
REM F0F06920
REM ROUTINE TO BACKSPACE INPUT TAPE WITHOUT CHECKING F0F06930
BKIN SXA BKINR,4 F0F06940
CLA KILER KILL ERROR RETURN IN CASE IT WAS BINARY F0F06950
STO TPCHK F0F06960
TSX (TAPE),4 BACKSPACE INPUT TAPE F0F06970
BSRCW,,(SKDP) F0F06980
,,MINTAP $F0F06990
BKINR AXT **,4 F0F07000
TRA 1,4 F0F07010
KILER TRA BKINR F0F07020
REM F0F07030
REM WRITE COMMENTS F0F07040
COMNT SXA COMNR,4 F0F07050
STO COMCW F0F07060
TSX (TAPE),4 WRITE MESSAGE OFF LINE F0F07070
COMCW,,(WDNC) F0F07080
,,MLSTAP $F0F07090
LXA LINECT,4 F0F07100
TXI *+1,4,1 F0F07110
SXA LINECT,4 F0F07120
ZAC $F0F07128
STP COMCW $F0F07129
TSX (PRNT),4 PRINT MESSAGE ON LINE F0F07130
COMCW ** F0F07140
COMNR AXT **,4 F0F07150
TRA 1,4 F0F07160
REM F0F07170
ASTK OCT 54 F0F07180
BLNK OCT 60 F0F07190
LPREN OCT 74 F0F07200
RPREN OCT 34 F0F07210
COMMA OCT 73 F0F07220
SVNS OCT 77 F0F07230
2CHAR OCT 777700000000 F0F07240
SKFCW ,,1 SKIP FILE CONTROL WORD FOR IO PACKAGE F0F07250
ONEIND SYN SKFCW F0F07260
SK4CW 4 SKIP 4 RECORDS CONTROL WORD F0F07270
SK5CW 5 SKIP 5 RECORDS CONTROL WORD F0F07280
REWND PZE ,,-1 REWIND CONTROL WORD FOR IO PACKAGE F0F07290
BSRCW MZE 1 BACKSPACE RECORD CONTROL WORD F0F07300
BS3CW MZE 3 BACKSPACE 3 RECORDS CONTROL WORD F0F07310
BS4CW MZE 4 BACKSPACE 4 RECORDS CONTROL WORD F0F07320
LBLCW IORT TEMPA,,3 F0F07330
FINPUT BCI 1,FINPUT F0F07351
ZERO 0 F0F07360
100OCT OCT 100 F0F07370
OCTTHD OCT 010000000000 F0F07380
XBIT OCT 200 F0F07390
CMNSAK OCT 30 $F0F07400
CLCH OCT 23,21,43,43,23,30,21,31,45,74 F0F07410
OCTB OCT 22 F0F07420
4BLNK BCI 1,00 F0F07430
BMSK OCT 777777777760,40 F0F07440
E OCT 25,45,24 F0F07450
LBS OCT 010000000000 F0F07460
CDS BCI 1,END(0, F0F07470
BFSWCH PZE F0F07480
PSW1 PZE F0F07490
PSW2 PZE F0F07500
PSW3 PZE F0F07510
PSW4 PZE F0F07520
PSW5 PZE F0F07530
DUP 1,10 F0F07540
PZE F0F07550
ESW1 PZE F0F07560
ESW2 PZE F0F07570
ESW3 PZE F0F07580
ESW4 PZE F0F07590
ESW5 PZE F0F07600
PZE $F0F07610
PZE -1 LABEL OPTION ASSUMED $F0F07611
PZE $F0F07612
PZE $F0F07613
PZE -1 PACK OPTION ASSUMED $F0F07614
DUP 1,5 $F0F07620
PZE $F0F07622
ENDCW IORT ENDCD,,14 $F0F07630
IORT *+1,,15 $F0F07640
BCI 1, F0F07650
ENDCD BCI 1, F0F07660
BCI 7,END(1,0,0,0,0,0,1,0,0,1,0,0,0,0,0) $F0F07670
BCI 6, F0F07680
BLNCW IORT BLNKS,,3 CONTROL WORD FOR BLANK LINE $F0F07690
EJECT IORT *+1,,3 $F0F07700
BCI 1,1 F0F07710
BLNKS BCI 3, F0F07720
HEDCW IORT *+1,,18 CONTROL WORD FOR PAGE HEADING $F0F07730
BCI 1,1 F0F07740
TITLE BCI 9, MONITOR SKIPPING FOR CONTROL $F0F07750
BCI 3, $F0F07755
DATE BCI 3, 00/00/00 F0F07760
PAGE BCI 2, PAGE 1 F0F07770
COMBC BCI 4,0 BEGIN COMPILATION F0F07780
SPACE SYN COMBC F0F07790
COMBA BCI 4,0 BEGIN ASSEMBLY F0F07800
COMCH IORT *+1,,4 $F0F07810
BCI 4,0 ILLEGAL CHAIN CARD F0F07820
COMNC IORT *+1,,9 $F0F07830
BCI 9,0BINARY RECORD ON INPUT TAPE HAS NO COLUMN BINARY BITS F0F07840
COMRX IORT *+1,,8 $F0F07841
BCI 8,0OFF LINE ROW BINARY REQUEST, EXECUTION DELETED. F0F07842
COMLB IORT *+1,,6 $F0F07843
BCI 6,0 ROW BINARY LIBRARY REQUEST IGNORED $F0F07844
CW0 IORT BUF0,,14 F0F07850
CW1 IORT BUF1,,14 F0F07860
CWP0 IORT PBUF0,,15 $F0F07870
CWP1 IORT PBUF1,,15 $F0F07880
BFA1 BUF1 F0F07890
BFA0 BUF0 F0F07900
BFZ1 BUFZ1,2 F0F07910
BFZ0 BUFZ0,2 F0F07920
CWB0 IORT BBUF0,,24 F0F07930
CWB1 IORT BBUF1,,24 F0F07940
IOP CAL BIT21 $F0F07941
ORS* (FGBX) $F0F07942
TRA READ BACK FOR NEXT CARD $F0F07943
BIT21 OCT 40000 $F0F07944
REM ROUTINES TO PROCESS IBSFAP CONTROL CARDS $F0F07949
IBFAP1 LDI* (FGBX) $ IN CC1 IF IBSFAP BACK 2 RECORDS $F0F0794A
TNZ *+4 TRANSFER IF NOT A $ $F0F0794B
RFT 4 IF FORTRAN BACK ONE RECORD $F0F0794C
TSX BKIN,4 IBSFAP $F0F07950
TRA BKIN2 GO BACKSPACE, THEN TO SIGN-ON $F0F07951
ADD CMNSAK NO $ IS THIS A COMMENTS CARD $F0F07952
TZE WSP YES $F0F07953
RNT 4 IS THIS IBSFAP $F0F07954
TRA SP+2 NO RETURN TO SCAN FOR END CARD $F0F07955
STQ TEMP2 SAVE CCS. I'6 $F0F07956
AXT 13,2 GET 2ND WORD OF CARD IMAGE $F0F07957
LDQ* BFZ0,1 $F0F07958
ZAC TEST CC 7 FOR ASTERISK $F0F07959
STQ IBSAV SAVE 2ND WORD FOR PRINT OUT $F0F0795A
LGL 6 $F0F0795B
SUB ASTK CC 7 ASTERISK $F0F0795C
TNZ *+4 NO $F0F0795D
ADD BLNK YES, IBSFAP CONTROL CARD $F0F0795E
LGR 6 REPLACE ASTERISK WITH BLANK FOR $F0F0795F
STQ* BFZ0,1 DICTIONARY SEARCH $F0F0795G
LDQ TEMP2 RESTORE CCS 2'6 $F0F0795H
TZE DSRCH IF IBSFAP CONTROL CARD AC=0 $F0F0795I
STZ IBSAV ZERO OUT PRINT OUT SAVE AREA $F0F0795J
TRA SP+2 RETURN TO SCAN FOR END CARD $F0F0795K
IBFAP2 LDI* (FGBX) IS THIS IBSFAP $F0F0795L
RNT 4 $F0F0795M
TRA RETRN NO, FORTRAN RETURN $F0F0795N
TRA *+5 $F0F0795O
PZE NOT $F0F0795P
PZE EXECUTED $F0F0795Q
BKIN2 TSX BKIN,4 $F0F0795R
TRA EF2 $F0F0795S
NZT IBSAV HAS A COL 7 *CARD BEEN SAVED $F0F0795T
TRA RETRN NO $F0F0795U
SXA SAV2,2 YES, RESTORE IT TO BUFFER $F0F0795V
AXT 13,2 $F0F0795W
LXD BFSWCH,1 FOR 2ND WORD OF CARD IMAGE $F0F0795X
CLA IBSAV RESTORE SECOND WORD TO BUFFER $F0F0795Y
STO* BFZ0,1 $F0F0795Z
STZ IBSAV ZERO OUT SAVE AREA $F0F07960
SAV2 AXT **,2 $F0F07961
RETRN LDC BFSWCH,1 $F0F07962
TRA DS14+1 RETURN TO WRITE OUT BUFFER $F0F07963
IBFAP3 LXD BFSWCH,1 FOR FORTRAN TO MOVE FIRST SOURCE CARD $F0F07964
LDI* (FGBX) IF IBSFAP TITLE IS ALREADY IN BUFFER $F0F07965
RFT 4 $F0F07966
TRA NLINS+7 IBSFAP $F0F07967
TRA NLINS+2 FORTRAN MOVE CARD TO BUFFER $F0F07968
IBFAP4 LDI* (FGBX) HERE FROM READ ERROR REDUNDANCY $F0F07969
RNT 4 CHECK FOR IBSFAP $F0F0796A
TRA NCB FORTRAN $F0F0796B
TSX (TAPE),4 IBSFAP, IGNORE ERROR $F0F0796C
PZE SK1RC,,(SKBC) SKIP OVER RECORD IN ERROR $F0F0796D
PZE ,,MINTAP $F0F0796E
TRA R1 TRY READING AGAIN $F0F0796P
IBFAP5 LDI* (FGBX) HERE TO CHECK FOR IBSFAP EOF $F0F0796Q
RNT 4 $F0F0796R
TRA EF FORTRAN $F0F0796S
AXT ,0 $F0F0796T
TRA R1 START READING FROM BEGINNING $F0F0796U
TEMP2 PZE 0 $F0F0796V
IBSAV PZE 0 $F0F0796W
PZE AVAILABLE CONSTANT $F0F0796X
SK1RC PZE 1 $F0F0796Y
ADD BSS 22 ADD CONTROL ROUTINES HERE $F0F07970
PATCH1 LXD BFSWCH,4 TEST FOR $F0F07971
AXT 14,2 A BLANK CARD $F0F07972
CLA* BFZ0,4 $F0F07973
SUB BLNKS $F0F07974
TNZ *+3 $F0F07975
TXL READ,2,3 YES, A BLANK CARD GO READ NEXT CARD $F0F07976
TXI PATCH1+2,2,-1 $F0F07977
LDC BFSWCH,1 NOT A BLANK CARD $F0F07978
TRA WTDBG+1 RETURN TO WRITE OUT CARD $F0F07979
CONTN TSX NNBL,4 IS THIS A REAL END CARD $F0F07980
TRA RETN YES (NO EQUAL SIGN FOLLOWS) $F0F07981
SUB EQUAL NO, IS THIS A = $F0F07982
TZE CLWSP YES, CLEAR PSW BUFFER $F0F07983
TRA CONTN NO, CONTINUE FIELD SCAN $F0F07984
RETN CLA CDS FORM END CARD FOR FORTRAN $F0F07985
TRA PTCHR+1 $F0F07986
CLWSP STZ PSW1+15,1 CLEAR PSW BUFFER $F0F07987
TXI *+1,1,1 IS BUFFER CLEARED $F0F07988
TXL CLWSP,1,15 NO $F0F07989
TRA WSP YES $F0F0798A
EQUAL BCI 1,00000= $F0F0798B
IBPAT1 LNT 1 IS NOGO BIT IN SYSJOB SET $F0F0798C
TRA IBPAT3 NO,CHECK FURTHER $F0F0798D
TRA READM YES,DISALLOW EXECUTION $F0F0798E
IBPAT2 STA LINECT SAVE LINE COUNT $F0F0798F
LDI* (FGBX) IS THIS IBSFAP END CARD $F0F0798G
RNT 4 I.E. IBSFAP WITH NO FAP CARD $F0F0798H
TRA DD+1 NO FORTRAN $F0F0798I
LDC BFSWCH,1 YES $F0F0798J
TSX (TAPE),4 WRITE END CARD WITHOUT PARAMETERS $F0F0798K
PZE CWP0,1,(WDNC) $F0F0798L
PZE ,,MLSTAP $F0F0798M
CLA IBMGE PRINT *FAP CARD NOT FOUND $F0F0798N
TSX COMNT,4 ASSEMBLY DELETED $F0F0798O
STL BEGIN FOR NEW JOB $F0F0798P
TSX BKIN,4 BACKSPACE OVER LOOKAHEAD $F0F0798Q
CLA RESTR RESTORE ERROR RETURN $F0F0798R
STO TPCHK KILLED IN BACKSPACE ROUTINE $F0F0798S
TRA BEGIN+1 GO TO NEXT JOB $F0F07990
IBMGE IORT IBERR,,11 $F0F07991
IBERR BCI 8,0 *FAP CARD NOT FOUND FOR IBSFAP JOB $F0F07992
BCI 3,ASSEMBLY DELETED $F0F07993
RESTR LDI (SCHU)+MINTAP $F0F07994
IBPAT3 LDI* (FGBX) STILL WONDERING IF EXECUTION $F0F07995
RNT 4 IS LEGAL. IS THIS IBSFAP MODE $F0F07996
ORS* (FGBX) NO,PERMIT EXECUTION $F0F07997
TRA READ READ NEXT CARD $F0F07998
PZE NOT EXECUTED $F0F07999
ORGBUF EQU * F0F08000
PBUF0 BSS 1 F0F08010
BUF0 BSS 14 F0F08020
BUFZ0 BSS 1 F0F08030
PBUF1 BSS 1 F0F08040
BUF1 BSS 14 F0F08050
BUFZ1 BSS 1 F0F08060
BBUF0 BSS 25 F0F08070
BBUF1 BSS 25 F0F08080
* F0F08090
REM PATCHES $F0F08100
READM CLA IBDEL EXPLAIN WHY EXECUTION WAS $F0F08110
TSX COMNT,4 NOT PERMITTED $F0F08120
TRA READ READ NEXT CARD $F0F08130
IBDEL IORT *+1,,10 $F0F08140
BCI 6,0IBSYS NOGO CONDITION FORBIDS EXECUT $F0F08150
BCI 4,ION. REQUEST IGNORED. $F0F08160
CLCHFX TSX NNBL,4 IF FIRST CHARACTER OF T IS (34)F0F08170
TRA WSP AN A OR B IT WILL BE DELETED (34)F0F08180
SUB OCTB (34)F0F08190
TRA SP03-4 (34)F0F08200
BES 96 PATCH AREA (34)F0F08210
END -1 F0F09000