CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 PRINT HEADERS, THEN LOAD AN OVERLAY HEADS PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PRINT HEADERS, THEN LOAD AN OVERLAY 102 HEADSW EQU 190 DON'T PRINT HEADERS IF BLANK 0190 103 ORG 333 0333 104 START SW 1,81 7 0333 , 001 081 4 105 LOOP BCE TAPE,81," TAPE LOAD LEAVES GM IN 81 8 0340 B 352 081 " 4 106 R WRITE 4 0348 1 365 4 107 TAPE RTW 1,1 READ WITH WORD MARKS 8 0352 L %U1 001 R 4 108 BER TAPERR 5 0360 B 404 L 4 109 WRITE BCE 1,80,A NEXT CARD/RECORD A HEADER? 8 0365 B 001 080 A 5 110 BCE 1,1,, NEXT CARD/RECORD A LOAD CARD? 8 0373 B 001 001 , 5 111 BCE LOOP,HEADSW, SKIP PRINTING HEADERS? 8 0381 B 340 190 5 112 LCA 80,280 MOVE LINE TO PRINT AREA 7 0389 L 080 280 5 113 W PRINT IT 1 0396 2 5 114 CS AND 1 0397 / 5 115 CS CLEAR CORE 1 0398 / 5 116 W DOUBLE SPACE 1 0399 2 6 117 B LOOP 4 0400 B 340 6 118 TAPERR BSP 1 5 0404 U %U1 B 6 119 NOP 111 4 0409 N 111 6 120 H 1 0413 . 6 121 BIN TAPE, 5 0414 B 352 6 122 DCW @"@ 1 0419 6 123 END START / 333 080 1 PRINT HEADERS, THEN LOAD AN OVERLAY HEADS PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS HEADSW 190 LOOP 340 START 333 TAPE 352 TAPERR 404 WRITE 365