$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 MACHINE ERROR RECORD F0J00010 * FAP F0J00030 * 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD F0J00040 COUNT 475 F0J00050 LBL 9F10,A F0J00060 ABS $F0J00070 SST FORTRAN $F0J00071 ORG SYSCUR $F0J00080 BCI 1,9F1000 $F0J00090 ORG (LODR) $F0J00091 TXI BOTTOM,,100 F0J00100 TITLE $F0J00110 ORG BOTTOM F0J00130 LDI* (FGBX) $F0J00170 TRA SNORTY (26)F0J00180 PZE NOT USED $F0J00190 SLT 2 IS THIS MONITOR. F0J00200 TRA *+2 NO. F0J00210 TRA MON YES. F0J00220 SLT 3 IS THIS XEM. F0J00230 TRA *+2 NO. F0J00240 TRA XEM YES. F0J00250 ME713 TSX (PRNT),4 PRINT OPTION TO RERUN. (26)F0J00300 PZE COM3,,10 RESTORE, OR DELETE. F0J00310 TSX (PRNT),4 F0J00320 PZE COM3A,,20 F0J00330 TSX (PRNT),4 (31)F0J00340 PZE COM4,,12 (31)F0J00350 TSX (PRNT),4 RESTORE PRINTER PAGE. F0J00360 PZE RESTO,,3 F0J00370 TSX (PAUSE,4 SYSTEM PAUSE $F0J00380 ENK IS RESTORE MEMORY (31)F0J00390 XCA INDICATED. (31)F0J00400 PAX ,1 (31)F0J00410 TXL ME13,1,-2 NO (31)F0J00420 ME7 TSX (DGLD),4 YES RESTORE MEMORY AND HALT. (31)F0J00430 ME10 TSX (TAPE),4 NO, RETRY. F0J00550 MZE SK1FL,,(SKBP) F0J00560 MZE ,,SYSTAP F0J00570 TSX (LOAD),4,1 READ IN SECTION ONE. $F0J00580 BCI 1,9F1300 $F0J00590 FAP SLN 1 TURN ON SENSE LIGHT 1 FOR LATER SIGNAL. F0J00600 TSX (PRNT),4 PRINT OPTION TO RETRY. F0J00610 PZE COM13,,10 ASSEMBLY OR TO DELETE IT. F0J00620 TSX (PRNT),4 F0J00630 PZE COM13+10,,10 F0J00640 TSX (PRNT),4 F0J00650 PZE COM13+20,,13 F0J00660 TSX (PRNT),4 RESTORE PRINTER PAGE. F0J00670 PZE RESTO,,3 F0J00680 TSX (PAUSE,4 SYSTEM PAUSE $F0J00690 ENK CHECK OPTION CHOSEN. F0J00700 TQP ME4RT RETRY. F0J00710 MEDL TSX (TAPE),4 WRITE -ASSEMBLY DELETED- (26)F0J00720 PZE ME4I3,,(WDNC) ON OUTPUT TAPE. F0J00730 MZE ,,MLSTAP F0J00740 TSX (TAPE),4 F0J00750 PZE IOCM1,,(WDNC) F0J00760 MZE ,,MLSTAP F0J00770 TSX (PRNT),4 ALSO PRINT ON-LINE. F0J00780 PZE COM14,,3 F0J00790 TRA PATCH1 ERROR MAY BE AT 1ST RECORD AFTER FAP CARD *F0J00800 NOP *F0J00810 ME4DA TSX (TAPE),4 DELETE ASSEMBLY BY F0J00820 MZE BSR1,,(SKDP) F0J00830 MZE ,,MINTAP F0J00840 ME4SP TSX (TAPE),4 SCANNING TO FAP END CARD OR EOF OR BINARY F0J00850 MZE ME4I4,,(RDNC) RECORD ON INPUT TAPE. F0J00860 MZE ,,MINTAP F0J00870 MZE TAER F0J00880 LDQ ME4WD F0J00890 ZAC F0J00900 LGL 6 F0J00910 SUB ME4AS F0J00920 TZE ME4SP END CARD MUST NOT HAVE * IN C.C. 1. F0J00930 CAL ME4WD+1 F0J00940 ERA ME4EN F0J00950 ANA ME4MS F0J00960 TNZ ME4SP F0J00970 TRA SCAN F0J00980 ME4BI TSX (TAPE),4 TRY ONCE IN BINARY MODE. F0J00990 MZE ME4I4,,(RBNC) F0J01000 MZE ,,MINTAP F0J01010 MZE SK1R IF BAD, SKIP RECORD AND CONTINUE SEARCH. F0J01020 ME4EJ TSX (TAPE),4 BACKSPACE ONCE, THEN F0J01030 MZE BSR1,,(SKDP) CALL IN MONITOR SCAN F0J01040 MZE ,,MINTAP F0J01050 SCAN SLT 1 IS THIS FAP. F0J01060 TRA NOFAP NO. F0J01070 CLA* BINT YES, REPOSITION MONITOR BINARY OUTPUT TAPE*F0J01080 STA IOCOM1 F0J01090 TSX (TAPE),4 F0J01100 MZE IOCOM1,,(SKBP) F0J01110 MZE ,,MBNTAP F0J01120 NOFAP TSX (TAPE),4 WRITE -FAILED- CARD ON OUTPUT TAPE. F0J01130 MZE FAILD,,(WROW) F0J01140 MZE ,,MBNTAP F0J01150 LDI* (FGBX) WAS EXECUTION ON. F0J01160 RNT 200 F0J01170 TRA RIS NO. F0J01180 TSX (PRNT),4 YES. PRINT -EXECUTION DELETED-. F0J01190 PZE EXDEL,,4 F0J01200 TSX (TAPE),4 WRITE -EXECUTION DELETED-. F0J01210 PZE WOTED,,(WDNC) F0J01220 MZE ,,MLSTAP F0J01230 RIR 200 TURN OFF EXECUTION BIT. F0J01240 STI* (FGBX) F0J01250 RIS TSX (TAPE),4 POSITION SYSTEM TAPE TO SCAN. F0J01260 MZE BSR5,,(SKBP) F0J01270 MZE ,,SYSTAP F0J01280 TSX (LOAD),4,1 READ IN SCAN. $F0J01290 BCI 1,9F0600 $F0J01291 TAER CAL (SCHU) TAPE ERROR. IS IT REDUNDANCY. F0J01300 ANA REDUN F0J01310 TNZ ME4BI F0J01320 CAL (SCHU) IS IT END OF FILE. F0J01330 ANA EOF F0J01340 TNZ ME4EJ F0J01350 SK1R TSX (TAPE),4 SKIP ONE RECORD. F0J01360 MZE L(1),,(SKDP) F0J01370 MZE ,,MINTAP F0J01380 MZE *+1 ELIMINATE ON-LINE MESSAGE. F0J01390 TRA ME4SP F0J01400 ME4RT TSX (PRNT),4 RETRY ASSEMBLY. F0J01410 PZE COM15,,3 F0J01420 TSX (PRNT),4 DOUBLE SPACE ON PRINTER. F0J01430 PZE COM9,,3 F0J01440 TSX (PRNT),4 DOUBLE SPACE ON PRINTER. F0J01450 PZE COM9,,3 F0J01460 TSX (TAPE),4 WRITE -ASSEMBLY RETRIED-. *F0J01470 MZE ME4I6,,(WDNC) F0J01480 MZE ,,MLSTAP F0J01490 TSX (TAPE),4 F0J01500 MZE ME4F,,(WDNC) F0J01510 MZE ,,MLSTAP F0J01520 TSX (TAPE),4 F0J01530 MZE ME5F,,(WDNC) F0J01540 MZE ,,MLSTAP F0J01550 LDQ JOBSAV RESTORE SYSJOB SINCE THERE IS $F0J01560 STQ SYSJOB A NEGLIGIBLE CHANCE OF SUCCESS $F0J01561 TRA GET1-2 $F0J01562 ME27 LDQ JOBSAV RESTORE SYSJOB BEFORE $F0J01563 STQ SYSJOB RETRYING FORTRAN JOB $F0J01564 TRA ME27A $F0J01565 LXD BOTTOM-7,2 PICK UP NO. OF TAPES TO BE REPOSITIONED. $F0J01566 TXL INPTA,2,2 F0J01570 GET1 CLA* ENDPAR PICK UP PARAMETERS (NO. RECS.,,LOG. TAPE) F0J01580 TZE PARM1+1 F0J01590 STA IOCOM1 F0J01600 STD PARM1 F0J01610 TSX (TAPE),4 F0J01620 MZE IOCOM1,,(SKDP) F0J01630 PARM1 MZE ,,** F0J01640 TXI GET1-1,2,-1 F0J01650 INPTA CLA* ENDPAR F0J01660 STA IOCOM1 F0J01670 TSX (TAPE),4 REPOSITION MONITOR BINARY OUTPUT TAPE. F0J01680 MZE IOCOM1,,(SKBP) F0J01690 MZE ,,MBNTAP F0J01700 TXI *+1,2,-1 F0J01710 CLA* ENDPAR F0J01720 ANA MASK F0J01730 LAS LARGE F0J01740 TRA SKFOR INPUT TAPE IS POSITIONED BEFORE FAP CARD. F0J01750 TRA *+1 F0J01760 STA IOCOM1 TAPE IS AFTER *FAP CARD. BACKSPACE UNTIL F0J01770 TSX (TAPE),4 IT IS IN FRONT OF THE *FAP CARD. F0J01780 MZE IOCOM1,,(SKDP) F0J01790 MZE ,,MINTAP F0J01800 AXT 25,2 F0J01810 READX TXL ENCT,2,0 DO NOT SEARCH MORE THAN 25 EXTRA RECORDS. F0J01820 TSX (TAPE),4 READ MONITOR INPUT TAPE FOR CONTROL F0J01830 MZE ICOM2,,(RDNC) CARDS, ONE CARD AT A TIME. F0J01840 MZE ,,MINTAP F0J01850 MZE *+1 F0J01860 LDQ BUFF IS CARD AN * CARD. F0J01870 ZAC F0J01880 LGL 6 F0J01890 SUB ASTER F0J01900 TZE MONCC AN *-CARD IS FOUND. F0J01910 TXI READIN,2,-1 A NON-* CARD, TRY NEXT CARD. F0J01920 MONCC AXT 11,4 F0J01930 WORD LDQ BUFF+12,4 F0J01940 AXT 6,1 SET UP INDEXING FOR SIX CHARACTER SCAN. F0J01950 CHAR ZAC F0J01960 LGL 6 F0J01970 LAS BLANK F0J01980 TRA *+2 F0J01990 TRA BLNK F0J02000 ZET FCELL HAS AN 'F' BEEN FOUND. F0J02010 TRA TRYA YES. F0J02020 LAS F F0J02030 TXI READIN,2,-1 F0J02040 TRA FFOUND 'F' HAS BEEN FOUND. F0J02050 TXI READIN,2,-1 F0J02060 TRYA ZET ACELL F0J02070 TRA TRYP F0J02080 LAS A F0J02090 TXI READIN,2,-1 F0J02100 TRA AFOUND 'A' HAS BEEN FOUND. F0J02110 TXI READIN,2,-1 F0J02120 TRYP LAS P F0J02130 TXI READIN,2,-1 F0J02140 TRA POSSYS F0J02150 TXI READIN,2,-1 F0J02160 BLNK TIX CHAR,1,1 TRY NEXT CHARACTER. F0J02170 TIX WORD,4,1 TRY NEXT WORD. F0J02180 TXI READIN,2,-1 TRY NEXT WORD. F0J02190 POSSYS TSX (TAPE),4 POSITION SYSTEM TAPE TO FAP, RECORD 4. F0J02200 MZE BS7R,,(SKBP) F0J02210 MZE ,,SYSTAP F0J02220 TSX (LOAD),4,1 READ IN FAP . $F0J02230 BCI 1,9F0400 $F0J02231 ENCT TSX (TAPE),4 CAN NOT FIND ANY * CARDS. DELETE ASSEMBLY.F0J02240 MZE TAPERR,,(WDNC) F0J02250 MZE ,,MLSTAP F0J02260 TSX (PRNT),4 F0J02270 PZE TPERR,,11 F0J02280 TRA ME4DA F0J02290 READIN TSX (TAPE),4 BACKSPACE OVER THE MONITOR INPUT TAPE F0J02300 MZE IOCOM3,,(SKDP) TWO RECORDS. F0J02310 MZE ,,MINTAP F0J02320 STZ FCELL INITIALIZE CELLS FOR *FAP CARD SEARCH. F0J02330 STZ ACELL F0J02340 TRA READX F0J02350 SKFOR TSX (TAPE),4 F0J02360 MZE FRDSKP,,(SKDP) F0J02370 MZE ,,MINTAP F0J02380 TRA READX-1 F0J02390 REM F0J02400 MON CAL DLETEX ERROR IN MONITOR. F0J02410 LDI* (FGBX) F0J02420 ANS* (FGBX) DELETE EXECUTION. F0J02430 RNT 200 WAS EXECUTION ON. F0J02440 TRA ME26 NO. F0J02450 TSX (PRNT),4 YES, PRINT -EXECUTION DELETED-. F0J02460 PZE COM2,,10 F0J02470 ME26 TSX (PRNT),4 PRINT RETRY OPTION. F0J02480 PZE COM20,,8 F0J02490 TSX (PRNT),4 PRINT CONTINUE OPTION. F0J02500 PZE COM21,,10 F0J02510 TSX (PRNT),4 PRINT DELETE OPTION. F0J02520 PZE COM22,,10 F0J02530 TSX (PRNT),4 RESTORE PRINTER PAGE. F0J02540 PZE RESTO,,3 F0J02550 TSX (PAUSE,4 SYSTEM PAUSE $F0J02560 ENK CHECK OPTION CHOSEN. F0J02570 NOP *F0J02580 TQP ME27 MQ PLUS MEANS RETRY. F0J02590 LGL 2 BIT TWO PLUS MEANS F0J02600 TQP ME23B CONTINUE SAME JOB. F0J02610 TRA ME28 OTHERWISE DELETE JOB. F0J02620 ME27A TSX (TAPE),4 BACKSPACE FILE ON INPUT TAPE $F0J02630 MZE BSF,,(SKBP) F0J02640 MZE ,,MINTAP F0J02650 ME28 TSX (TAPE),4 POSITION SYSTEM TAPE TO SIGN ON. F0J02660 MZE BSR8,,(SKBP) F0J02670 MZE ,,SYSTAP F0J02680 TSX (LOAD),4,1 READ IN SIGN ON. $F0J02690 BCI 1,9F0300 $F0J02691 ME13 ENK IS DELETE INDICATED. F0J02700 TQP NOGOQ NO,RETRY $F0J02710 TSX (TAPE),4 WRITE DELETION MESSAGE ON TAPE. F0J02720 PZE COMDL,,(WDNC) F0J02730 MZE ,,MLSTAP $F0J02740 TSX (PRNT),4 F0J02750 PZE COM23,,8 F0J02760 ME23B LDI* (FGBX) F0J02770 RFT 100000 IS THE BSS CONTROL BIT ON. F0J02780 TRA ME28 YES, GO TO SIGN ON. F0J02790 LFT 1 $F0J02791 TRA ME28 $F0J02792 TRA SCAN NO, GO TO SCAN. F0J02800 REM F0J02810 XEM CAL BOTTOM-11 ENTRY FROM XEM. PUT $F0J03030 ANA MASK1 ERROR F0J03040 LRS 3 CODE F0J03050 ARS 12 IN F0J03060 LLS 3 FORM F0J03070 AXT 7,1 TO $F0J03080 AXT 0,2 COMPARE WITH TABLE F0J03090 EX1 SUB TBL,2 OF MACHINE ERROR CODES. F0J03100 TZE EX2 FOUND. F0J03110 ADD TBL,2 F0J03120 TXI *+1,2,-1 F0J03130 TIX EX1,1,1 F0J03140 TRA ME28 ERROR CODE NOT FOUND IN TABLE. F0J03150 EX2 CLA CMT,2 SET RELEVANT COMMENT F0J03160 STO MSG2 FOR OFF-LINE WRITE F0J03170 CLA PRT,2 AND F0J03180 STO EX3 ON-LINE PRINT. F0J03190 CLA BOTTOM-10 CONVERT BINARY TAPE NUMBER $F0J03200 LRS 9 TO BCD. F0J03210 SUB L(1) F0J03220 PAC 0,1 F0J03230 LLS 5 F0J03240 PXA 0,0 F0J03250 PAI F0J03260 LLS 4 F0J03270 SUB L(1) F0J03280 PAC 0,2 F0J03290 CAL LET,1 F0J03300 OAI F0J03310 CAL NUM,2 F0J03320 OAI F0J03330 STI EXCOM2+10 STORE PHYSICAL F0J03340 STI EXCOM3+7 TAPE NUMBER F0J03350 STI EXCOM4+11 IN F0J03360 STI EXCOM5+5 RELEVANT MESSAGES. F0J03370 TSX (TAPE),4 WRITE EXECUTION DELETED F0J03380 MZE MSG1,,(WDNC) AND REASON FOR DELETION. F0J03390 MZE ,,MLSTAP F0J03400 TSX (TAPE),4 F0J03410 MZE MSG2,,(WDNC) F0J03420 MZE ,,MLSTAP F0J03430 TSX (TAPE),4 F0J03440 MZE MSG3,,(WDNC) F0J03450 MZE ,,MLSTAP F0J03460 CLA* (LNCT) F0J03470 ADD L(2) F0J03480 STO* (LNCT) F0J03490 TSX (PRNT),4 PRINT ON-LINE TOO. F0J03500 EX3 PZE F0J03510 TSX (PRNT),4 PRINT -EXECUTION TERMINATED...-. F0J03520 PZE EXCOM1,,4 F0J03530 TSX (PRNT),4 DOUBLE SPACE ON PRINTER. F0J03540 PZE COM9,,3 F0J03550 EX35 TSX (PRNT),4 PRINT OPTIONS (26)F0J03560 PZE EXCOM7,,6 TO RETRY F0J03570 TSX (PRNT),4 OR DELETE. F0J03580 PZE EXCOM8,,9 F0J03590 TSX (PRNT),4 RESTORE PRINTER PAGE. F0J03600 PZE RESTO,,3 F0J03610 TSX (PAUSE,4 SYSTEM PAUSE $F0J03620 ENK F0J03630 TQP ME27 RETRY. F0J03640 TRA ME28 DELETE. F0J03650 MASK1 PZE -1,7 F0J03680 TBL DEC 24,25,40,41,42,49,50 $F0J03690 L(2) PZE 2 F0J03700 LET BCI 8,A00000B00000C00000D00000E00000F00000G00000H00000 F0J03710 NUM BCI 9,0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 F0J03720 BCI 1,010 F0J03730 CMT IORT EXCOM2,,12 F0J03740 IORT EXCOM3,,9 F0J03750 IORT EXCOM4,,13 F0J03760 IORT EXCOM5,,7 F0J03770 IORT EXCOM5,,7 F0J03780 IORT EXCOM6,,9 $F0J03781 IORT EXCOM9,,4 $F0J03782 PRT PZE EXCOM2,,12 F0J03790 PZE EXCOM3,,9 F0J03800 PZE EXCOM4,,13 F0J03810 PZE EXCOM5,,7 F0J03820 PZE EXCOM5,,7 F0J03830 PZE EXCOM6,,9 $F0J03831 PZE EXCOM9,,4 $F0J03832 MSG1 IORT COM9,,3 F0J03840 MSG2 PZE F0J03850 MSG3 IORT EXCOM1,,4 F0J03860 EXCOM1 BCI 4, EXECUTION TERMINATED. F0J03870 EXCOM2 BCI 9, I/O CHECK LIGHT TURNED ON BY LAST READ INSTRUCTION ON F0J03880 BCI 3, TAPE . F0J03890 EXCOM3 BCI 9, REDUNDANCY ENCOUNTERED IN READING TAPE . F0J03900 EXCOM4 BCI 9, I/O CHECK LIGHT TURNED ON BY LAST WRITE INSTRUCT F0J03910 BCI 4,ION ON TAPE . F0J03920 EXCOM5 BCI 7, REDUNDANCY WRITING TAPE . F0J03930 EXCOM6 BCI 9, SYSUNI OR SYSUAV FUNCTION NOT ASSIGNED AN I/O UNIT. $F0J03931 EXCOM7 BCI 6, TO RETRY THIS JOB, PUSH START. F0J03940 EXCOM8 BCI 9, TO GO TO NEXT JOB, DEPRESS SIGN KEY AND PUSH START. F0J03950 EXCOM9 BCI 4, ILLEGAL UNIT ASSIGNED. $F0J03951 COM2 BCD EXECUTION DELETED BECAUSE OF MACHINE ERROR. F0J03960 COM3 BCD TO RETRY THIS COMPILATION, PUSH START. F0J03970 COM3A BCD TO DELETE THIS COMPILATION AND CONTINUE JOB, DEPRESS SIGNF0J03980 BCD KEY AND PUSH START. F0J03990 COM4 BCI 6, TO RESTORE MEMORY AND HALT, DEPRE (31)F0J04000 BCI 6,SS ALL ADDRESS KEYS AND PUSH START. (31)F0J04010 DUP 1,8 (31)F0J04013 PZE (NOT USED) (31)F0J04016 COM9 BCI 3,0 F0J04020 COM13 BCD ASSEMBLY DELETED BECAUSE OF MACHINE ERROR F0J04030 BCD TO RETRY THIS ASSEMBLY, PUSH START F0J04040 BCD TO DELETE THIS ASSEMBLY AND CONTINUE JOB, DEPRESS SIGN KEF0J04050 BCI 3,Y AND PUSH START F0J04060 COM14 BCI 3,0ASSEMBLY DELETED F0J04070 COM15 BCI 3,0ASSEMBLY RETRIED F0J04080 COM16 BCI 4,BECAUSE OF MACHINE ERROR F0J04090 COM20 BCI 8, TO RETRY JOB, PUT ALL KEYS UP AND PUSH START. F0J04100 COM21 BCI 5, TO CONTINUE SAME JOB, DEPRESS F0J04110 BCI 5, SIGN KEY ONLY AND PUSH START. F0J04120 COM22 BCI 5, TO DELETE THIS JOB DEPRESS AL F0J04130 BCI 5,L PREFIX KEYS AND PUSH START. F0J04140 COM23 BCI 8, COMPILATION DELETED BECAUSE OF MACHINE ERROR. F0J04150 ME4I3 IORT COM9,,3 F0J04160 IOCM1 IOCP COM14,,3 F0J04170 IORT COM16,,4 F0J04180 RESTO BCI 3,1 F0J04190 EOF OCT 4 F0J04200 REDUN OCT 10 F0J04210 BSR1 MZE 1 F0J04220 BSR5 MZE 5 F0J04230 ENDPAR PZE **,2 USED TO PICK UP FAP TAPE PARAMETERS. $F0J04240 TAPERR IORT TPERR,,11 F0J04250 TPERR BCI ,0BEGINNING OF ASSEMBLY NOT FOUND ON INPUT TAPE. ASSEMBLY DEF0J04260 BCI 1,LETED. F0J04270 FFOUND STL FCELL F0J04280 TRA BLNK F0J04290 AFOUND STL ACELL F0J04300 TRA BLNK F0J04310 FCELL PZE F0J04320 ACELL PZE F0J04330 LARGE PZE -6 F0J04340 MASK PZE -1 F0J04350 F OCT 26 F0J04360 A OCT 21 F0J04370 P OCT 47 F0J04380 BLANK OCT 60 F0J04390 ASTER OCT 54 F0J04400 FRDSKP PZE 1 F0J04410 IOCOM1 MZE F0J04420 ICOM2 IORT BUFF,,14 COMMAND TO READ IN ONE BCD CARD F0J04430 IOCOM3 MZE 2 F0J04440 BS7R MZE 7 F0J04450 DUP 1,14 F0J04460 BUFF PZE F0J04470 ME4I4 IORT ME4WD,,4 TO ELIMINATE NOISE RECORDS $F0J04480 ME4I6 IORT COM9,,3 F0J04490 ME4F IORT COM15,,7 F0J04500 ME5F IORT RESTO,,3 F0J04510 NOGOB DEC 1B17 NOGO BIT (26)F0J04520 PZE NOT USED $F0J04521 ME4EN BCI 1,0END 0 F0J04530 ME4MS OCT 7777777700 F0J04540 ME4AS BCI 1,00000* F0J04550 DLETEX OCT 777777777577 F0J04560 L(1) OCT 1 F0J04570 REW PZE ,,-1 F0J04580 SK1FL PZE ,,1 F0J04600 BSF MZE ,,1 F0J04610 BSR8 MZE 8 F0J04620 WOTED IORT EXDEL,,4 F0J04690 EXDEL BCI 4,0EXECUTION DELETED. F0J04700 COMDL IORT COM23,,8 F0J04710 FAILD IORT *+1,,24 FAILED CARD. F0J04720 OCT ,,,,, F0J04730 OCT 200020040140,377437743760,200020040140,200020002010 F0J04740 OCT 200020040140,200020002004,374037740140,200037402004 F0J04750 OCT 200010100140,200020002010,377407600140,200037743760 F0J04760 OCT ,,,,, F0J04770 PATCH1 TSX (PRNT),4 SPACE PRINTER. *F0J04780 PZE COM9,,3 *F0J04790 CLA* INPT PICK UP NO. OF RECS. READ FROM INPUT TAPE *F0J04800 PAX ,4 *F0J04810 TXL ME4DA,4,-6 IS INPUT TAPE BEFORE *FAP CARD. *F0J04820 TSX (TAPE),4 YES, SKIP ONE RECORD FORWARD. *F0J04830 MZE FRDSKP,,(SKDP) *F0J04840 MZE ,,MINTAP *F0J04850 TRA ME4DA *F0J04860 INPT PZE ** ADDRESS OF FAP PARAMETER FOR INPUT TAPE. $F0J04880 BINT PZE ** ADDRESS OF BINARY OUTPUT TAPE PARAMETER $F0J04890 PATCH2 SLT 1 IS THIS FAP $F0J04900 TRA PATCH2+11 NO $F0J04901 LXA BOTTOM-7,4 YES PICK UP PARAMETERS $F0J04902 SXA ENDPAR,4 BACKSPACE LIST $F0J04903 TXI *+1,4,-1 $F0J04904 SXA INPT,4 INPUT TAPE $F0J04905 TXI *+1,4,-1 $F0J04906 SXA BINT,4 BINARY OUTPUT TAPE $F0J04907 RFT 4 IBSFAP $F0J04908 TRA FAP YES, TAKE REGULAR PROCEDURE (25)F0J04909 TRA FAP NO $F0J04910 RFT 4 NOT FROM FAP, IS IT IBSFAP $F0J04911 TRA SCAN YES $F0J04912 TRA BOTTOM+3 NO $F0J04913 ME4WD BSS 4 BUFFER FOR INPUT TAPE DELETE OPTION $F0J04914 REM *F0J04920 NOGOP LDQ SYSJOB SAVE SYSJOB FOR POSSIBLE $F0J04921 STQ JOBSAV RETRY. $F0J04922 CAL NOGOB SET NOGO BIT IN SYSJOB $F0J04923 ORS SYSJOB $F0J04924 TRA PATCH2 GO TEST FOR FAP $F0J04925 JOBSAV SYSJOB ON ENTRY $F0J04926 NOGOQ LDQ JOBSAV COMPILATION WILL BE RETRIED (26)F0J04927 STQ SYSJOB RESTORE SYSJOB, (26)F0J04928 TRA ME10 AND DO SO (26)F0J04929 SNORTY LNT 10000 WAS JOB PRECEDED BY AN EOF (26)F0J04930 TRA NOGOP YES (26)F0J04931 AXT 4,4 NO, CIRCUMVENT RETRY OPTION AND (26)F0J04932 CLA REPLC+4,4 MACHINE STOP. (26)F0J04933 ARS 18 (26)F0J04934 STA* REPLC+4,4 (26)F0J04935 TIX *-3,4,1 (26)F0J04936 TRA NOGOP (26)F0J04937 REPLC PZE ME713,,ME13+2 (26)F0J04938 PZE FAP+1,,MEDL (26)F0J04939 PZE EX35,,ME28 (26)F0J0493A PZE ME26,,ME28 (26)F0J0493B ENDEX BSS 0 END OF ASSEMBLY $F0J04940 END -1 F0J04950