FIRST DETAIL CARD PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FIRST DETAIL CARD 102 * 103 * STUFF AT THE END OF A ONE-FIELD-PER-CARD DECK. 104 * NOT IN ONE-FIELD-PER-CARD FORMAT 105 * LOOKS LIKE IT'S FOR AUTOMATICALLY FIGURING OUT WHETHER THE 106 * PROGRAM IS LOADED FROM TAPE, AND MODIFYING IT ACCORDINGLY 107 * 108 TPTEST EQU 349 TAPE TEST INSTRUCTION IN DIAGNOSTIC PROGRAM 0349 109 BEGIN EQU 400 START OF PROGRAM 0400 110 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 111 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 112 * 113 ORG 1 0001 114 SW START,B 7 0001 , 019 027 115 SW ONTAPE 4 0008 , 031 116 SW C,BTAPE 7 0012 , 038 042 117 START BCE ONTAPE,TAPES2," GM AT TAPES2? 8 0019 B 031 T98 " 118 B B BEGIN 4 0027 B 400 119 ONTAPE LCA BTAPE&4,TPTEST&3 7 0031 L 046 352 120 C B 1604 WHAT'S GOING TO BE AT 1604? 4 0038 B W04 121 BTAPE BIN TAPERD, 5 0042 B S88 1 FIRST DETAIL CARD PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS B 27 BEGIN 400 BTAPE 42 C 38 ONTAPE 31 START 19 TAPERD 1288 TAPES2 1398 TPTEST 349