:ST,S,$TC20,5 FTN4 PROGRAM EDIT C C IF IMAGE/2100 IS BEING USED IN THIS TCS SYSTEM C THE ASMB STATEMENT IN THE PROGRAMS: C 1. START C 2. STRT! C 3. JOIN C 4. GDISC C 5. LOGIN C MUST BE EDITED FOR THE CONDITIONAL C ASSEMBLY (Z-OPTION) TO INCLUDE THE C IMAGE/2100 COMMON AREA. DIMENSION IEND(17),IBUF(17) DATA IEND/2H:C,2HO ,2H**,2H*A,2HSS,2HEM, * 2HBL,2HIE,2HS ,2HAN,2HD ,2HCO, * 2HMP,2HIL,2HES,2H**,2H* / WRITE(1,1001) 1001 FORMAT("IMAGE/2100 BEING USED?_") 10 READ(1,1002) IANS 1002 FORMAT(A2) IF(IANS .EQ. 2HYE) STOP 7777 IF(IANS .NE. 2HNO) GOTO 30 C C SAVE AND REPLACE BATCH LU # C ISAVE = IGET(111B) CALL IPUT(111B,1) C C FLUSH THE EDITS C 15 CALL EXEC(1,ISAVE,IBUF,17) DO 20 I=1,17 IF(IBUF(I) .NE. IEND(I)) GOTO 15 20 CONTINUE C C RESTORE THE BATCH DEVICE C CALL IPUT(111B,ISAVE) STOP 5555 C C REPROMPT C 30 WRITE(1,1003) 1003 FORMAT("ENTER 'YE' OR 'NO'._") GOTO 10 END END$ :: :ST,S,$TC21,5 ASMB,R NAM IPUT,7 ENT IPUT EXT .ENTR,EXEC ADDR NOP VALU NOP IPUT NOP JSB .ENTR DEF ADDR LDA VALU,I LDB ADDR,I JSB EXEC DEF *+2 DEF N19$ JMP IPUT,I N19$ DEC -19 END :: :ST,S,$TC22,5 ASMB,R NAM IGET,7 ENT IGET IGET NOP LDB IGET,I ISZ IGET LDA IGET,I LDA 0,I LDA 0,I JMP 1,I END :: :CL :JF,$TC20 :PR,FTN4,2,99 :JF,$TC21 :PR,ASMB,2,99 :JF,$TC22 :PR,ASMB,2,99 :PR,LOADR :CL :PR,EDIT :ED,$TC03,5 /R,1 ASMB,L,C,Z /E :ED,$TC04,5 /R,1 ASMB,L,C,Z /E :ED,$TC05,5 /R,1 ASMB,L,C,Z /E :ED,$TC10,5 /R,1 ASMB,L,C,Z /E :ED,$TC15,5 /R,1 ASMB,L,C,Z /E :CO ***ASSEMBLIES AND COMPILES*** :CO ***ASSEMBLIES AND COMPILES*** :CO ***TYPE :GO*** :PA :CL :JF,$TC01 :PR,ASMB,2,99 :JF,$TC02 :PR,ASMB,2,99 :JF,$TC03 :PR,ASMB,2,99 :JF,$TC04 :PR,ASMB,2,99 :JF,$TC05 :PR,ASMB,2,99 :JF,$TC06 :PR,ASMB,2,99 :JF,$TC07 :PR,ASMB,2,99 :JF,$TC08 :PR,ASMB,2,99 :JF,$TC09 :PR,ASMB,2,99 :JF,$TC10 :PR,ASMB,2,99 :JF,$TC11 :PR,ASMB,2,99 :JF,$TC12 :PR,ASMB,2,99 :JF,$TC13 :PR,ASMB,2,99 :JF,$TC14 :PR,ASMB,2,99 :JF,$TC15 :PR,ASMB,2,99 :ST,R,#TC01 :CL :JF,$TC16 :PR,FTN4,2,99 :JF,$TC17 :PR,ASMB,2,99 :JF,$TC18 :PR,ASMB,2,99 :ST,R,#TC02 :PR,LOADR :CL :JF,$TC19 :PR,FTN4,2,99 :ST,R,#TC03 :PR,LOADR :ST,P,TCGEN,RECOV :CO ***END OF JOB*** :EJ