CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 READ DETAIL RECORDS PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB READ DETAIL RECORDS 102 * 103 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 104 * ARE ANY. OTHERWISE IF 81 IS NOT GM (PROGRAM IS NOT LOADED FROM 105 * TAPE) STOP. OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 106 * IS A, BRANCH TO 1. WHEN RUNNING FROM TAPE AND READING DETAIL 107 * CARDS BEFORE READING DETAIL RECORDS FROM TAPE, INSERT THE CHAIN 108 * LOADER BELOW AFTER THE DETAIL CARDS FOR EACH PROGRAM. 109 * 110 * ORG AT 336 SO THE PROGRAM ISN'T CLOBBERED BY CS CHAINED TO W. 111 * 112 ORG 336 0336 113 DETAIL SW 1 IN CASE WE'RE DONE 4 0336 , 001 4 114 SWITCH BLC DONE END OF CARDS? 5 0340 B 349 A 4 115 R CHAIN READ DETAIL OR CHAIN LOADER 4 0345 1 374 4 116 DONE BCE TAPE,81," PROGRAM LOADED FROM TAPE? 8 0349 B 361 081 " 4 117 H DONE NO, HALT 4 0357 . 349 4 118 TAPE RTW 1,1 READ DETAIL OR CHAIN LOADER 8 0361 L %U1 001 R 4 119 BER ERROR 5 0369 B 386 L 4 120 CHAIN BCE 1,80,A CHAIN LOAD? 8 0374 B 001 080 A 5 121 B CONT NO, BACK TO PROGRAM 4 0382 B 396 5 122 ERROR BSP 1 5 0386 U %U1 B 5 123 H TAPE 4 0391 . 361 5 124 DCW #1 1 0395 5 125 * 126 CONT EQU *&1 0396 1 CHAIN LOADER IF PROGRAM ON TAPE AND DETAIL ON CARDS A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 127 JOB CHAIN LOADER IF PROGRAM ON TAPE AND DETAIL ON CARDS 128 * 129 * HERE'S THE CHAIN LOADER IF LOADING FROM TAPE AND READING 130 * DETAIL FROM CARDS. 131 * 132 ORG 1 0001 133 SW A,B 7 0001 , 008 015 6 134 A SW C,BTAPE 7 0008 , 022 029 6 135 B LCA BTAPE&4,SWITCH&4 QUIT READING CARDS 7 0015 L 033 344 6 136 C CS DETAIL,80 7 0022 / 336 080 6 137 BTAPE BIN TAPE, 5 0029 B 361 6 1 CHAIN LOADER IF PROGRAM ON TAPE AND DETAIL ON CARDS A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A 8 B 15 BTAPE 29 C 22 CHAIN 374 CONT 396 DETAIL 336 DONE 349 ERROR 386 SWITCH 340 TAPE 361