Forgot your password?
Document Actions
32K 709/7090 FORTRAN MONITOR - SOURCE ERROR RECORD
$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 SOURCE ERROR RECORD F0K00010
* FAP F0K00030
* 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD F0K00040
COUNT 200 F0K00050
SST FORTRAN $F0K00060
ABS $F0K00070
LBL 9F11,A F0K00080
TITLE $F0K00085
ORG SYSCUR $F0K00090
BCI 1,9F1100 $F0K00100
ORG (LODR) $F0K00101
TXI BOTTOM,,110 F0K00110
REM F0K00120
ORG BOTTOM F0K00140
SRCER CAL NOGOBT SET NOGO BIT IN SPSJOB $F0K00150
ORS SYSJOB TO BOMB OUT LATER SEGMENTS $F0K00160
TRA QTEST GO TEST FOR CALL FROM EXEM $F0K00170
LDI* (FGBX) F0K00180
SLT 1 TEST FOR CALL FROM FAP. F0K00210
TRA *+2 F0K00220
TRA FAP F0K00230
RFT 100000 IS THE BSS CONTROL BIT ON. F0K00240
TRA SICOM YES, SEE IF COMPILER CALLED. F0K00250
LFT 1 $F0K00251
TRA SINON $F0K00252
SLT 2 TEST FOR MONITOR, SECT. 1, OR GEN. DIAG. F0K00260
TRA GDIAG SECT. 1 OR GEN. DIAGNOSTIC CALLED. F0K00270
TRA MON MONITOR CALLED. GO TO SCAN. F0K00280
SCAN TSX (TAPE),4 WRITE -FAILED- CARD ON OUTPUT TAPE. F0K00290
MZE FAILD,,(WROW) F0K00300
MZE ,,MBNTAP F0K00310
PZE *+1 F0K00320
MON LDI* (FGBX) WAS EXECUTION ON. F0K00330
RNT 200 F0K00340
TRA RIS NO. F0K00350
TSX (PRNT),4 YES. PRINT -EXECUTION DELETED-. F0K00360
PZE EXDEL,,4 F0K00370
TSX (TAPE),4 WRITE -EXECUTION DELETED-. F0K00380
PZE WOTED,,(WDNC) F0K00390
MZE ,,MLSTAP F0K00400
RIR 200 TURN OFF EXECUTION BIT. F0K00410
STI* (FGBX) F0K00420
RIS TSX (TAPE),4 POSITION SYSTEM TAPE TO SCAN. F0K00430
MZE SK6REC,,(SKBP) F0K00440
MZE ,,SYSTAP F0K00450
TSX (LOAD),4,1 $F0K00460
BCI 1,9F0600 $F0K00461
GDIAG TSX (TAPE),4 F0K00500
PZE CMENT,,(WDNC) F0K00510
MZE ,,MLSTAP F0K00520
TSX (PRNT),4 F0K00530
PZE MSSG,,8 F0K00540
TRA SCAN F0K00550
FAP TSX (TAPE),4 WRITE -ASSEMBLY DELETED- F0K00560
PZE ME4I3,,(WDNC) ON OUTPUT TAPE. F0K00570
MZE ,,MLSTAP F0K00580
TSX (TAPE),4 F0K00590
PZE IOCM1,,(WDNC) F0K00600
MZE ,,MLSTAP F0K00610
TSX (PRNT),4 ALSO PRINT ON-LINE. F0K00620
PZE COM14,,9 F0K00630
TSX (PRNT),4 F0K00640
PZE COM11,,3 F0K00650
TSX (TAPE),4 DELETE ASSEMBLY BY F0K00660
MZE BSR1,,(SKDP) F0K00670
MZE ,,MINTAP F0K00680
ME4SP TSX (TAPE),4 SCANNING TO FAP END CARD OR EOF OR BINARY F0K00690
MZE ME4I4,,(RDNC) RECORD ON INPUT TAPE. F0K00700
MZE ,,MINTAP F0K00710
MZE TAPERR F0K00720
LDQ ME4WD F0K00730
ZAC F0K00740
LGL 6 F0K00750
SUB ME4AS F0K00760
TZE ME4SP END CARD MUST NOT HAVE * IN C.C. 1. F0K00770
CAL ME4WD+1 F0K00780
ERA ME4EN F0K00790
ANA ME4MS F0K00800
TNZ ME4SP F0K00810
TRA SCAN F0K00820
ME4BI TSX (TAPE),4 TRY ONCE IN BINARY MODE. F0K00830
MZE ME4I4,,(RBNC) F0K00840
MZE ,,MINTAP F0K00850
MZE SK1R IF BAD, SKIP RECORD AND CONTINUE SEARCH. F0K00860
ME4EJ TSX (TAPE),4 BACKSPACE ONCE, THEN F0K00870
MZE BSR1,,(SKDP) CALL IN MONITOR SCAN F0K00880
MZE ,,MINTAP F0K00890
TRA SCAN F0K00900
TAPERR CAL (SCHU) TAPE ERROR. IS IT REDUNDANCY. F0K00910
ANA REDUN F0K00920
TNZ ME4BI F0K00930
CAL (SCHU) IS IT END OF FILE. F0K00940
ANA EOF F0K00950
TNZ SCAN YES, GO TO MONITOR SCAN (26)F0K00960
SK1R TSX (TAPE),4 SKIP ONE RECORD. F0K00970
MZE L(1),,(SKDP) F0K00980
MZE ,,MINTAP F0K00990
MZE *+1 ELIMINATE ON-LINE MESSAGE. F0K01000
TRA ME4SP F0K01010
SICOM SLT 4 HAS COMPILER CALLED. F0K01020
TRA SINON NO, GO TO SIGN ON. F0K01030
CLA *-1 YES, WRITE AND PRINT -SOURCE PROGRAM ERROR-F0K01040
STO RIS ALSO, -EXECUTION DELETED-. *F0K01050
TRA GDIAG F0K01060
XEM CAL BOTTOM-11 PUT ERROR IN FORM TO COMPARE $F0K01090
ANA MASK1 WITH TABLE OF F0K01100
LRS 3 SOURCE ERROR CODES. F0K01110
ARS 12 F0K01120
LLS 3 F0K01130
SUB TBL+10 $F0K01140
TZE EXER4 HPR(0,6) STOP. ILLEGAL UNIT. F0K01150
ADD TBL+10 $F0K01160
AXT 15,1 F0K01170
AXT 0,2 F0K01180
EXER2 SUB TBL,2 F0K01190
TZE EXER3 ERROR CODE FOUND. F0K01200
ADD TBL,2 F0K01210
TXI *+1,2,-1 F0K01220
TIX EXER2,1,1 F0K01230
TRA DLETE ERROR CODE NOT FOUND IN TABLE. F0K01240
EXER3 TSX (TAPE),4 WRITE REASON FOR JOB TERMINATION. F0K01250
PZE CMT,2,(WDNC) F0K01260
MZE ,,MLSTAP F0K01270
TSX (PRNT),4 PRINT -EXECUTION TERMINATED- . F0K01280
PZE COM1,,5 F0K01290
TSX (PRNT),4 F0K01300
PZE COM11,,3 $F0K01310
CLA* (LNCT) F0K01320
ADD L(2) F0K01330
STO* (LNCT) F0K01340
DLETE TSX (TAPE),4 WRITE -EXECUTION TERMINATED- . F0K01350
PZE COM,,(WDNC) F0K01360
MZE ,,MLSTAP F0K01370
SINON TSX (TAPE),4 POSITION SYSTEM TAPE TO SIGN ON. F0K01380
MZE BSR9,,(SKBP) F0K01390
MZE ,,SYSTAP F0K01400
TSX (LOAD),4,1 READ SIGN ON. $F0K01410
BCI 1,9F0300 $F0K01411
EXER4 LXD BOTTOM-10,1 GET ILLEGAL TAPE NUMBER. $F0K01420
PXA 0,1 F0K01430
TSX CNVT,4 CONVERT TO BCD. F0K01440
SLW COM6+8 SET ILLEGAL TAPE NUMBER IN COMMENT. F0K01450
TSX (TAPE),4 F0K01460
PZE CMT+10,,(WDNC) $F0K01470
MZE ,,MLSTAP F0K01480
TRA EXER3+3 F0K01490
CNVT ANA ADMSK F0K01500
XCA F0K01510
AXT 0,1 F0K01520
STZ TEMP1 F0K01530
CNVT1 PXA 0,0 F0K01540
DVP L(10) F0K01550
ALS 0,1 F0K01560
ORS TEMP1 F0K01570
CLA L(1) F0K01580
TLQ *+2 F0K01590
TXI CNVT1,1,-6 F0K01600
CAL BLK F0K01610
ALS 6,1 F0K01620
ORA TEMP1 F0K01630
TRA 1,4 F0K01640
COM1 BCI 5,0EXECUTION TERMINATED BY EXEM. F0K01650
COM2 BCI 7,0ILLEGAL CHARACTER IN FORMAT STATEMENT. $F0K01660
BCI 4, $F0K01670
COM3 BCI 8,0ILLEGAL CHARACTER IN DATA ABOVE OR BAD FORMAT. F0K01680
COM4 BCI 6,0ILLEGAL CHARACTER ON DATA CARD. F0K01690
COM5 BCI 5,0END OF FILE AT CARD READER. F0K01700
COM6 BCI 6,0UNIT ADDRESS NOT FOUND IN IOU FOR L F0K01710
BCI 4,OGICAL UNIT . F0K01720
COM7 BCI 6,0NOT STANDARD ERROR STOP IN EXEM. F0K01730
COM8 BCI 6,0EXPONENT EXCEEDS RANGE OF DEXP. F0K01740
COM9 BCI 7,0NEGATIVE ARGUMENT ILLEGAL FOR DSQRT. F0K01750
COM10 BCI 8,0ZERO OR NEGATIVE ARGUMENT ILLEGAL FOR DLOG. F0K01760
IND PZE F0K01770
SMQ PZE F0K01780
MASK1 PZE -1,7 F0K01790
TBL DEC 8,9,10,11,12,13,16,17,33,34,48,49,57,58,59 F0K01800
CMT IORT COM2,,11 F0K01810
IORT COM3,,8 F0K01820
IORT COM3,,8 F0K01830
IORT COM3,,8 F0K01840
IORT COM3,,8 F0K01850
IORT COM3,,8 F0K01860
IORT COM4,,6 F0K01870
IORT COM5,,5 F0K01880
IORT COM12,,7 F0K01890
IORT COM13,,6 F0K01900
IORT COM6,,10 F0K01910
IORT COM7,,6 F0K01920
IORT COM8,,6 F0K01930
IORT COM9,,7 F0K01940
IORT COM10,,8 F0K01950
L(1) PZE 1 F0K01960
L(2) PZE 2 F0K01970
L(10) PZE 10 F0K01980
ADMSK PZE -1 F0K01990
TEMP1 PZE F0K02000
COM IORT COM1,,5 F0K02020
BSR1 MZE 1 F0K02030
BSR9 MZE 9 F0K02040
SK6REC MZE 6 F0K02050
IOCM1 IORT COM14,,9 F0K02060
ME4I3 IORT COM11,,3 F0K02070
CMENT IORT MSSG,,8 F0K02080
COM11 BCI 3,0 F0K02090
COM12 BCI 7,0PHYSICAL RECORD SIZE EXCEEDS BUFFER SIZE. F0K02100
COM13 BCI 6,0LIST EXCEEDS LOGICAL RECORD LENGTH. F0K02110
COM14 BCI 9,0 ASSEMBLY DELETED BECAUSE OF SOURCE PROGRAM ERROR F0K02120
MSSG BCI 8,0 SOURCE PROGRAM ERROR. NO COMPILATION. F0K02130
WOTED IORT EXDEL,,4 F0K02140
EXDEL BCI 4,0EXECUTION DELETED. F0K02150
FAILD IORT *+1,,24 FAILED CARD. F0K02160
OCT ,,,,, F0K02170
OCT 200020040140,377437743760,200020040140,200020002010 F0K02180
OCT 200020040140,200020002004,374037740140,200037402004 F0K02190
OCT 200010100140,200020002010,377407600140,200037743760 F0K02200
OCT ,,,,, F0K02210
BLK BCI 1, F0K02220
ME4WD OCT ,, (26)F0K02230
ME4AS BCI 1,00000* F0K02250
ME4EN BCI 1,0END 0 F0K02260
ME4MS OCT 7777777700 F0K02270
EOF OCT 4 F0K02280
REDUN OCT 10 F0K02290
QTEST SLT 3 WAS THIS EXEM $F0K02291
TRA SRCER+3 NO,TRY FAP $F0K02292
TRA XEM YES,FIND OUT WHICH ONE $F0K02293
NOGOBT DEC 1B17 NOGO BIT FOR SYSJOB $F0K02294
ME4I4 IORT ME4WD,,3 (26)F0K02300
BSS 45 PATCH SPACE (26)F0K02305
ENDEX BSS 0 F0K02310
END -1 F0K02320