: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 
                                                                                                                                                                                          