FIRST BLOCK OF DIAGNOSTIC TAPE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FIRST BLOCK OF DIAGNOSTIC TAPE 102 * 103 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 104 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 105 TAPES2 EQU GMWM GM INDICATES THE TAPE LOADER 3398 106 * 107 ORG 1 0001 108 1 START B ENTER 4 0001 B 393 1 109 DC #3 3 0007 1 110 8 LCA HUNTLR&4,HUNTL&4 RESTORE HUNTL 7 0008 L 037 T95 1 111 15 B 2409 4 0015 B M09 1 112 DC #3 3 0021 1 113 DCW #7 7 0028 1 114 DCW #4 4 0032 1 115 33 HUNTLR B HUNT 4 0033 B T00 1 116 ORG 73 0073 117 ID DC @1T02@ 4 0076 2 118 DC @C 20@ 4 0080 2 119 ORG 377 0377 120 37 7 INDIR B LOAD2 INDIRECT TO THE LOADER OR PROGRAM 4 0377 B ?16 3 121 ORG 393 0393 122 39 3 ENTER NOP ONE,TITLSW 7 0393 N 429 S52 4 123 40 0 H LONG PUSH START RESET FOR SIMPLE SEARCH 4 0400 . 433 4 124 40 4 SW GMWM,1273 7 0404 , C98 S73 4 125 41 1 MCW GM,GMWM 7 0411 M 430 C98 4 126 41 8 LCA GMWM,BAR BLOCK LOADING PAST 1250 7 0418 L C98 S50 4 127 42 5 B HUNT 4 0425 B T00 4 128 ONE DCW 1 1 0429 4 129 GM DC @"@ 1 0430 4 130 DC #2 2 0432 5 131 43 3 LONG CW 1273,1284 SEARCH FOR FULL ID 7 0433 ) S73 S84 5 132 44 0 CW 1289,1290 7 0440 ) S89 S90 5 133 44 7 MCW BLANKS,1299 7 0447 M 470 S99 5 134 45 4 MCW BLANKS 4 0454 M 470 5 135 45 8 B LOAD 4 0458 B ?00 5 136 BLANKS DCW #9 9 0470 6 137 ORG 1300 1300 138 * SIMPLE HUNT FOR BLOCK NUMBER -- FITS IN 1400 139 13 00 HUNT CS 81 4 1300 / 081 7 140 13 04 RTW 1,1 8 1304 L %U1 001 R 7 141 13 12 LCA HUNTL&4,NXPROG&4 REDIRECT CHAINER TO HERE 7 1312 L T95 352 7 142 13 19 LCA HUNTL&3,388 7 1319 L T94 388 7 143 13 26 BEF 1284 5 1326 B S84 K 7 144 13 31 BER HUNTER ERROR 5 1331 B T86 L 7 145 13 36 B HUNT,80,A SKIP HEADER RECORDS 8 1336 B T00 080 A 8 146 13 44 BWZ MAYBE,ID-2,2 IF NO ZONE, TRY IT 8 1344 V T56 074 2 8 147 13 52 B HUNT 4 1352 B T00 8 148 13 56 MAYBE C ID,1276 DESIRED ONE? 7 1356 C 076 S76 8 149 13 63 B WANTEQ,F 5 1363 B T77 F 8 150 13 68 BU INDIR ENTER PROGRAM IF UNEQUAL 5 1368 B 377 / 8 1 FIRST BLOCK OF DIAGNOSTIC TAPE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 151 13 73 B HUNT 4 1373 B T00 9 152 13 77 WANTEQ BU HUNT 5 1377 B T00 / 9 153 13 82 B INDIR ENTER PROGRAM IF EQUAL 4 1382 B 377 9 154 13 86 HUNTER BSP 1 5 1386 U %U1 B 9 155 13 91 HUNTL B HUNT 4 1391 B T00 9 156 ORG 1660 1660 157 R 1 4 1660 1 001 10 158 H 1 1664 . 10 159 * FANCY HUNT FOR BLOCK NUMBER 160 ORG 3000 3000 161 30 00 LOAD H 1 3000 . 11 162 * RESTART HERE AFTER REWIND 163 30 01 LOADRS SW BAR PUT WM UNDER GM AT 1250 4 3001 , S50 11 164 30 05 SW GMWM AND AT 1398 4 3005 , C98 11 165 30 09 LCA GMWM,2999 DON'T CLOBBER LOADER! 7 3009 L C98 R99 11 166 * SKIP HEADER RECORDS -- ONES WITH "A" IN COLUMN 80 167 30 16 LOAD2 CW 1273 4 3016 ) S73 11 168 30 20 LCA 1299,3499 SAVE SEARCH CRITERIA 7 3020 L S99 D99 11 169 30 27 NOP 0,0 7 3027 N 000 000 11 170 30 34 LCA ZERO2,COUNT 7 3034 L C53 C51 12 171 30 41 LOADR MN *,BAR ALLOW READING PAST 1250 7 3041 D ?47 S50 12 172 30 48 CS 81 4 3048 / 081 12 173 30 52 RTW 1,1 8 3052 L %U1 001 R 12 174 30 60 BEF LOADEF 5 3060 B C60 K 12 175 30 65 LCA 3499,1299 RESTORE SEARCH CRITERIA 7 3065 L D99 S99 12 176 30 72 NOP 0,0 7 3072 N 000 000 13 177 30 79 LCA 2999,BAR RESTORE GMWM AT 1250 7 3079 L R99 S50 13 178 30 86 B LOAD2,80,A SKIP HEADER RECORDS 8 3086 B ?16 080 A 13 179 * FOUND A HEADER RECORD. LOOK AT ID IN THE NEXT ONE. 180 30 94 SW 1273 4 3094 , S73 13 181 30 98 C ID,1276 DESIRED ONE? 7 3098 C 076 S76 13 182 31 05 B LOADU,1277,1 LOAD IF UNEQUAL 8 3105 B A48 S77 1 14 183 31 13 B LOADQ,1277,2 LOAD IF EQUAL 8 3113 B A57 S77 2 14 184 31 21 C ID-2,1274 7 3121 C 074 S74 14 185 31 28 B LOADU,1277,3 LOAD IF UNEQUAL 8 3128 B A48 S77 3 14 186 31 36 B LOADQ,1277,4 LOAD IF EQUAL 8 3136 B A57 S77 4 14 187 31 44 B LOADT TEST TAPE ERROR 4 3144 B A70 15 188 31 48 LOADU BU LOAD2 5 3148 B ?16 / 15 189 31 53 B LOADT TEST TAPE ERROR 4 3153 B A70 15 190 31 57 LOADQ BU LOADT 5 3157 B A70 / 15 191 31 62 B LOAD2 4 3162 B ?16 15 192 DC #4 4 3169 15 193 31 70 LOADT BER LOADRR COUNT ERRORS 5 3170 B A80 L 15 194 31 75 B GOTO GO TO THE PROGRAM 4 3175 B C70 15 195 31 79 DC #1 1 3179 15 196 31 80 LOADRR A *-6,COUNT 7 3180 A A80 C51 16 197 31 87 B LOADZ,COUNT-1,1 COUNT OVERFLOWED TO TEN? 8 3187 B B04 C50 1 16 198 31 95 BSP 1 BACKSPACE 5 3195 U %U1 B 16 199 32 00 B LOADR TRY AGAIN 4 3200 B ?41 16 200 32 04 LOADZ CS 299 TEN READ ERRORS 4 3204 / 299 16 1 FIRST BLOCK OF DIAGNOSTIC TAPE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 201 32 08 LCA BLKCNT,280 7 3208 L B95 280 16 202 32 15 LCA 1 3215 L 16 203 32 16 NOP 1 3216 N 16 204 32 17 NOP 1 3217 N 16 205 32 18 MCW ID&1,279 REPLACE ERROR MESSAGE BY NAME 7 3218 M 077 279 17 206 32 25 BSS LOADNW,E NO ERROR MESSAGE IF SS E ON 5 3225 B B31 E 17 207 32 30 W 1 3230 2 17 208 32 31 LOADNW H 1 3231 . 17 209 * SKIP TO A HEADER RECORD -- ONE WITH "A" IN 80 210 32 32 LOADSK CS 81 4 3232 / 081 17 211 32 36 RTW 1,1 8 3236 L %U1 001 R 17 212 32 44 BEF LOADEF REWIND AND TRY AGAIN 5 3244 B C60 K 17 213 32 49 B LOAD2,80,A CHECK RECORD AFTER HEADER 8 3249 B ?16 080 A 17 214 32 57 B LOADSK SKIP TO RECORD WITH "A" IN 80 4 3257 B B32 18 215 DC #9 9 3269 18 216 DCW @PERM READ ERR BLOCK @ 20 3289 18 217 BLKCNT DCW @XXXXX.@ SHOULD BE BLOCK COUNT 6 3295 18 218 * GO TO THE PROGRAM 219 32 96 GOTO2 NOP SKIPNZ 4 3296 N C08 19 220 33 00 NOP SKIPZ 4 3300 N C20 19 221 33 04 B INDIR ENTER PROGRAM 4 3304 B 377 19 222 33 08 SKIPNZ BWZ LOAD2,74,2 DON'T LOAD IF NO ZONE 8 3308 V ?16 074 2 19 223 33 16 B INDIR ENTER PROGRAM 4 3316 B 377 19 224 33 20 SKIPZ BWZ LOAD2,74,B DON'T LOAD IF ZONE 8 3320 V ?16 074 B 19 225 33 28 BWZ LOAD2,74,K 8 3328 V ?16 074 K 20 226 33 36 BWZ LOAD2,74,S 8 3336 V ?16 074 S 20 227 33 44 B INDIR ENTER PROGRAM 4 3344 B 377 20 228 DC #2 2 3349 20 229 COUNT DCW @XX@ 2 3351 20 230 ZERO2 DCW @00@ 2 3353 20 231 DC #6 6 3359 20 232 33 60 LOADEF RWD 1 5 3360 U %U1 R 20 233 33 65 NOP 1 3365 N 20 234 33 66 B LOADRS 4 3366 B ?01 21 235 33 70 GOTO N0 0 5 3370 N 000 0 21 236 33 75 B GOTO2 GO TO THE PROGRAM 4 3375 B B96 21 237 33 97 ORG 3397 3397 238 GMWM DCW @1"@ 2 3398 22 239 * 240 * LOAD THE NEXT PROGRAM. THIS IS THE CARD LOAD ROUTINE. IT 241 * GETS MODIFIED BY THE TAPE LOAD ROUTINE. 242 * 243 ORG 333 0333 244 * 245 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND START LOADING 246 * 247 33 3 SW 8,12 7 0333 , 008 012 23 248 34 0 RELOAD SW 1 4 0340 , 001 23 249 34 4 R 1 4 0344 1 001 23 250 * 1 FIRST BLOCK OF DIAGNOSTIC TAPE PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 251 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 252 * 253 34 8 NXPROG R 1 0348 1 23 254 34 9 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 23 255 35 7 B 421 WHAT'S GOING TO BE AT 421? 4 0357 B 421 23 256 36 1 CS RELOAD,80 7 0361 / 340 080 23 257 36 8 DCW #1 1 0368 23 258 * 259 * TITLE PRINT ROUTINE NOTICE THAT IN THE ORIGINAL FORMAT, 260 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 261 * THAT TRANSFERS CONTROL TO THE PROGRAM. 262 * 263 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 264 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 265 * 266 ORG 1200 1200 267 12 00 TITLPR W PRINT (SPACE). 1 1200 2 24 268 12 01 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 24 269 12 05 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 24 270 12 12 W PRINT TITLE AND BLOCK NO. 1 1212 2 24 271 12 13 CS 277 CLEAR PRINT AREA 4 1213 / 277 24 272 12 17 W PRINT (SPACE). 1 1217 2 24 273 12 18 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 24 274 12 25 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 24 275 12 29 LCA HDRS&79 LOAD SECOND LINE. 4 1229 L /99 24 276 12 33 W PRINT SECOND LINE. 1 1233 2 24 277 12 34 CS 280 CLEAR PRINT AREA. 4 1234 / 280 24 278 12 38 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRAM. 4 1238 2 413 25 279 DCW #8 8 1249 25 280 12 50 BAR DC #1 TAPE LOADER PUTS GMWM HERE 1 1250 25 281 DC #1 1 1251 25 282 12 52 TITLSW DC #1 1 TO USE TITLE PRINT ROUTINE 1 1252 25 283 END / 000 080 1 FIRST BLOCK OF DIAGNOSTIC TAPE PAGE 5 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BAR 1250 BLANKS 470 BLKCNT 3295 COUNT 3351 ENTER 393 GM 430 GMWM 3398 GOTO 3370 GOTO2 3296 HDRS 1120 HUNT 1300 HUNTER 1386 HUNTL 1391 HUNTLR 33 ID 76 INDIR 377 LOAD 3000 LOAD2 3016 LOADEF 3360 LOADNW 3231 LOADQ 3157 LOADR 3041 LOADRR 3180 LOADRS 3001 LOADSK 3232 LOADT 3170 LOADU 3148 LOADZ 3204 LONG 433 MAYBE 1356 NXPROG 348 ONE 429 RELOAD 340 SKIPNZ 3308 SKIPZ 3320 START 1 TAPERD 1288 TAPES1 1268 TAPES2 3398 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 WANTEQ 1377 ZERO2 3353