1 / DSKLK 2 / UNLIST POP-B DEFINITIONS 6/1/67 I30 CARDS) 3 / DISKLDOK - UTILITY PROGRAM TO EXAMINE AND ALTER 32K DF32 DISK 4 / BY H.S. HDLFBERG 5 6 MONITOR=7600 7 L7750=7750 8 L7751=7751 9 DEAL=6615 /DISK IOT‘S 10 DFSE=6621 11 DFSC=6622 12 13 *200 14 00200 7300 C300, CLA CLL /USED 15 00201 6046 TLS /FORCE FLAG ON 16 00202 6224 RIF 17 00203 1354 TAD L6201 /CDF 18 00204 3207 DCA CDFI 19 00205 1207 TAD CDFI 20 00206 3764 DCA I PDISK1 21 00207 0000 CDFI, .-. /SET D.F. T0 I.F. 22 00210 6032 CR1, KCC 23 00211 4334 JMS CRLF 24 00212 1237 TAD LOOK1 /'SZA CLA' 25 00213 3765 DCA I PSLSH3 /SET SWITCH 26 00214 3357 CR2, DCA OREG /NO OPEN REGISTER 27 00215 3342 DCA TYO /NO EXPRESSION YET 28 00216 3363 DCA BLOCKH /INITIALIZE BLOCK NUMBER 29 00217 3362 DOT1, DCA BLOCKL 30 00220 3361 DCA EXPRH /CLEAR EXPRESSION 31 00221 3360 LISTEN, DCA EXPRL /UPDATE EXPRESSION 32 00222 6031 KSF /READ 33 00223 5222 JMP .-1 34 00224 6036 KRB 35 00225 3207 DCA CHARAC /SAVE CHAR 36 00226 1355 TAD CTABLE /TABLE-1 37 00227 3334 DCA PNTR /POINTER T0 DISPATCH TABLE 38 00230 2334 LOOK, ISZ PNTR /INDEX POINTER 39 00231 1734 TAD I PNTR /GET ENTRY 40 00232 7510 SPA /END TEST 41 00233 5257 JMP DIGIT /YES. CHECK FOR DIGIT 42 00234 7161 CIA STL 43 00235 1207 TAD CHARAC /ADD BACK CHARACTER 44 00236 2334 ISZ PNTR /INDEX POINTER 45 00237 7640 LOOK1, SZA CLA /MATCH, USED 46 00240 5230 JMP LOOK /NO 47 00241 1342 TAD TYO /LINK NON CLEARED 48 00242 7650 SNA CLA /ANY EXPRESSION YET 49 00243 7120 STL /NO 50 00244 1334 TAD PNTR 51 00245 1356 TAD MTABLE /-TABLE1 52 00246 7710 SPA CLA /SHOULD CHAR. BE ECHDED 53 00247 5253 JMP .+4 /NO 54 00250 7020 CML /PRESERVE LINK 55 00251 1207 TAD CHARAC 56 00252 4342 JMS TYO /ECHO CHARACTER 57 00253 1734 TAD I PNTR 58 00254 3334 DCA PNTR /SET UP DISPAYCH ADDRESS 59 00255 1360 TAD EXPRL 60 00256 5734 JMP I PNTR /DISPATCH 61 62 00257 6036 DIGIT, KRB /READ CHAR. AGAIN 63 00260 1264 TAD M270 64 00261 7500 SMA 65 00262 5330 JMP ERROR 66 00263 1353 TAD L0010 67 00264 7510 M270, SPA 68 00265 5330 JMP ERROR /NOT OCTAL DIGIT 69 00266 3334 DCA PNTR /SAVE DIGIT 70 00267 1207 TAD CHARAC 71 00270 4342 JMS TYO /ECHO DIGIT 72 00271 1360 TAD EXPRL 73 00272 7006 RTL 74 00273 7006 RTL 75 00274 0352 AND L0007 76 00275 3361 DCA EXPRH /SAVE HIGH ORDER DIGIT 77 00276 1360 TAD EXPRL 78 00277 7104 CLL RAL 79 00300 7104 CLL RAL 80 00301 7104 CLL RAL 81 00302 1334 TAD PNTR /ADD IN NEH DIGIT 82 00303 5221 JMP LISTEN /GO UPDATE EXPRESSION 83 84 /DISP, MACRO A,B 85 / OCT A 86 / PZE B 87 / ENDM DISP 88 89 00304 0203 TABLE, 203;CTRLC 00305 0623 90 00306 0212 CLF, 212;LF 00307 0450 91 00310 0215 CCR, 215;CR 00311 0400 92 TABLE1, /ABOVE CHARS. ARE NOT ECHOED 93 00312 0256 256;DOT 00313 0642 94 00314 0257 257;SLASH 00315 0470 95 00316 0274 274;LESS 00317 0403 96 00320 0276 276;GREAT 00321 0402 97 00322 0314 314;LLIMST 00323 0516 98 00324 0315 315;MASKST 00325 0514 99 00326 0325 325;ULIMST 00327 0523 100 00330 7240 ERROR, CLA CMA /USED, MINUS AS END OF TABLE 101 00331 1200 TAD C300 102 00332 4342 JMS TYO /TYPE QUES. MARK 103 00333 5210 JMP CR1 104 105 00334 0000 CRLF, .-. /TYPE CR,LF 106 00335 1310 TAD CCR 107 00336 4342 JMS TYO 108 00337 1306 TAD CLF 109 00340 4342 JMS TYO 110 00341 5734 JMP I CRLF 111 00342 0000 TYO, .-. /TYPE CHARACTER 112 00343 7450 SNA 113 00344 1330 TAD ERROR /SPACE 114 00345 6041 TSF 115 00346 5345 JMP .-1 116 00347 6046 TLS 117 00350 7200 CLA 118 00351 5742 JMP I TYO 119 120 /LINKS 121 /LITORG 122 /LITERALS 123 00352 0007 L0007, 7 124 00353 0010 L0010, 10 125 00354 6201 L6201, 6201 126 127 00355 0303 CTABLE, TABLE-1 128 00356 7466 MTABLE, -TABLE1 129 00357 0000 OREG, .-. /REGISTER OPEN IF -1 130 00360 0000 EXPRL, .-. /EXPRESSION [LOW 12 BITS) 131 00361 0000 EXPRH, .-. /EXPRESSION (HIGH 3 BITS) 132 00362 0000 BLOCKL, .-. /BLOCK NUMBER (LOW 12 BITS) 133 00363 0000 BLOCKH, .-. /BLOCK NUMBER (HIGH THREE BITS) 134 PNTR= CRLF /TEMP 135 CHARAC= CDFI /TEMP 136 137 00364 0675 PDISK1, DISK1 138 00365 0507 PSLSH3, SLASH3 139 PAGE 140 141 00400 4744 CR, JMS I PSTORE 142 00401 5745 JMP I PCR1 143 144 00402 7610 GREAT, SKP CLA 145 00403 7610 LESS, SKP CLA 146 00404 1330 TAD L010 /MAKES 'SNA CLA' 147 00405 1245 TAD SEAR7 /SZA CLA 148 00406 3225 DCA SEAR2 /SET UP SKIP 149 00407 3307 DCA SLASH3 /RESET SWITCH 150 00410 3746 DCA I POREG /MAKE REGISTER NOT OPEN 151 00411 1747 TAD I PEXPRL 152 00412 0334 AND MASK 153 00413 7041 CIA 154 00414 3343 DCA TEMP /SAVE FOR MATCHING 155 00415 1335 TAD LOWL 156 00416 3341 DCA PTL 157 00417 1336 TAD LOWH 158 00420 3342 DCA PTH 159 160 00421 4750 SEAR1, JMS I PDISK /FETCH ONE WORD 161 00422 1747 TAD I PEXPRL 162 00423 0334 AND MASK 163 00424 1343 TAD TEMP /MINUS MASKED EXPRESSION 164 00425 0000 SEAR2, .-. /TEST FOR MATCH 165 00426 5260 JMP LF1 166 00427 1341 SEAR4, TAD PTL 167 00430 7041 CIA 168 00431 1337 TAD HIGHL 169 00432 7650 SNA CLA /END TEST 170 00433 5242 JMP SEAR6 171 00434 2341 SEAR5, ISZ PTL /INDEX LOCATION 172 00435 7410 SKP 173 00436 2342 ISZ PTH 174 00437 6031 KSF 175 00440 5221 JMP SEAR1 176 00441 5745 JMP I PCR1 /USER STOPPED SEARCH 177 178 00442 1342 SEAR6, TAD PTH 179 00443 7041 CIA 180 00444 1340 TAD HIGHH 181 00445 7640 SEAR7, SZA CLA /END TEST, USED 182 00446 5234 JMP SEAR5 183 00447 5745 JMP I PCR1 184 185 00450 4744 LF, JMS I PSTORE 186 00451 2332 ISZ LOCL 187 00452 7410 SKP 188 00453 2333 ISZ LOCH 189 00454 1332 TAD LOCL 190 00455 3341 DCA PTL 191 00456 1333 TAD LOCH 192 00457 3342 DCA PTH 193 00460 4751 LF1, JMS I PCRLF 194 00461 1342 TAD PTH 195 00462 4752 JMS I PTYDIG 196 00463 1341 TAD PTL 197 00464 4753 JMS I POCPT 198 00465 1331 TAD L0257 199 00466 4754 JMS I PTYO /TYPE SLASH 200 00467 5277 JMP SLASH1 201 202 00470 4755 SLASH, JMS I PEVLE 203 00471 3341 DCA PTL 204 00472 1756 TAD I PEXPRH 205 00473 3342 DCA PTH 206 00474 1746 TAD I POREG 207 00475 7710 SPA CLA /IS REGISTER ALREADY OPEN 208 00476 5303 JMP SLASH2 /YES 209 00477 1341 SLASH1, TAD PTL 210 00500 3332 DCA LOCL 211 00501 1342 TAD PTH 212 00502 3333 DCA LOCH 213 00503 4754 SLASH2, JMS I PTYO /TYPE SPACE 214 00504 4750 JMS I PDISK /FETCH ONE WORD 215 00505 1747 TAD I PEXPRL 216 00506 4753 JMS I POCPT /TYPE CONTENTS 217 00507 0000 SLASH3, .-. /'SZA CLA' OR '0' 218 00510 5227 JMP SEAR4 219 00511 4754 JMS I PTYO /TYPE SPACE 220 00512 7240 CLA CMA 221 00513 5757 JMP I PCR2 222 223 00514 3334 MASKST, DCA MASK /MASK SET 224 00515 5745 JMP I PCR1 225 226 00516 4755 LLIMST, JMS I PEVLE 227 00517 3335 DCA LOWL 228 00520 1756 TAD I PEXPRH 229 00521 3336 DCA LOWH 230 00522 5745 JMP I PCR1 231 232 00523 4755 ULIMST, JMS I PEVLE 233 00524 3337 DCA HIGHL 234 00525 1756 TAD I PEXPRH 235 00526 3340 DCA HIGHH 236 00527 5745 JMP I PCR1 237 238 /LINKS 239 /LITORG 240 /LITERALS 241 00530 0010 L010, 10 242 00531 0257 L0257, 257 243 244 00532 0000 LOCL, 0 /CURRENT LOCATION (LOW ORDER )2 eIIS) 245 00533 0000 LOCH, 0 /CURRENT LOCATION (HIGH ORDER 3 BIIS) 246 00534 7777 MASK, 7777 /MATCHING MASK 247 00535 0000 LOWL, 0 /LOW LIMIT (LOW) 248 00536 0000 LOWH, 0 /LOW LIMIT (HIGH) 249 00537 7777 HIGHL, 7777 /HIGH LIMIT (LOW) 250 00540 0007 HIGHH, 7 /HIGH LIMIT (HIGH) 251 00541 0000 PTL, .-. /POINT 0F EXAMINATION (LOW) 252 00542 0000 PTH, .-. /POINT (HIGH) 253 00543 0000 TEMP, .-. /TEMP 254 255 00544 0712 PSTORE, STORE 256 00545 0210 PCR1, CR1 257 00546 0357 POREG, OREG 258 00547 0360 PEXPRL, EXPRL 259 00550 0656 PDISK, DISK 260 00551 0334 PCRLF, CRLF 261 00552 0600 PTYDIG, TYDIG 262 00553 0605 POCPT, OCPT 263 00554 0342 PTYO, TYO 264 00555 0626 PEVLE, EVLE 265 00556 0361 PEXPRH, EXPRH 266 00557 0214 PCR2, CR2 267 PAGE 268 269 00600 0000 TYDIG, .-. /TYPE DIGIT 270 00601 0323 AND L07 271 00602 1324 TAD L0260 272 00603 4734 JMS I QTYO 273 00604 5600 JMP I TYDIG 274 275 00605 0000 OCPT, .-. /OCTAL PRINT FOUR DIGITS 276 00606 7104 CLL RAL 277 00607 3331 DCA OCPTNM /KEEP NUMBER 278 00610 1322 TAD LN4 279 00611 3332 DCA OCPTCT /DIGIT COUNT 280 00612 1331 OCPT1, TAD OCPTNM 281 00613 7006 RTL 282 00614 7004 RAL 283 00615 3331 DCA OCPTNM 284 00616 1331 TAD OCPTNM 285 00617 4200 JMS TYDIG 286 00620 2332 ISZ OCPTCT 287 00621 5212 JMP OCPT1 288 00622 5605 JMP I OCPT 289 290 00623 7300 CTRLC, CLA CLL 291 00624 6203 CIF CDF /I.F AND D.F = 0 292 00625 5735 JMP I QMONIT 293 294 00626 0000 EVLE, .-. /EVALUATE EXPRESSION 295 00627 7430 SZL /EXPRESSION MUST BE TYPED 296 00630 5736 JMP I QERROR 297 00631 1737 TAD I QBLCKL 298 00632 3740 DCA I QEXPRL 299 00633 7204 GLK 300 00634 1741 TAD I QBLCKH 301 00635 1742 TAD I QEXPRH 302 00636 0323 AND L07 303 00637 3742 DCA I QEXPRH 304 00640 1740 TAD I QEXPRL 305 00641 5626 JMP I EVLE 306 00642 7112 DOT, CLL RTR /EXPECT LESS THAN 400. 307 00643 7012 RTR /129*X+1 308 00644 7010 RAR 309 00645 3741 DCA I QBLCKH 310 00646 1741 TAD I QBLCKH 311 00647 0330 AND L7400 312 00650 7010 RAR 313 00651 1740 TAD I QEXPRL 314 00652 7001 IAC 315 00653 7430 SZL 316 00654 2741 ISZ I QBLCKH 317 00655 5743 JMP I QDOT1 318 319 00656 0000 DISK, .-. /COMMON SUBR. FOR STORE (AC=2) OR FETCH (AC=0) 320 00657 1327 TAD L6603 321 00660 3277 DCA DISK2 322 00661 1744 TAD I QPTH 323 00662 0323 AND L07 324 00663 7106 CLL RTL 325 00664 7006 RTL 326 00665 7006 RTL 327 00666 6224 RIF 328 00667 6615 DEAL /SET EXTEND BITS 329 00670 6201 CDF 0 330 00671 7240 CLA CMA 331 00672 3745 DCA I QL7750 /WC 332 00673 1333 TAD CEXPRL 333 00674 3746 DCA I QL7751 /ADDR 334 00675 6201 DISK1, CDF .-. 335 00676 1747 TAD I QPTL 336 00677 0000 DISK2, .-. /DMAR OR DMAW 337 00700 6621 DFSE 338 00701 5305 JMP DISKE /ERROR 339 00702 6622 DFSC 340 00703 5300 JMP .-3 341 00704 5656 JMP I DISK 342 343 00705 1325 DISKE, TAD L0304 /'DE' 344 00706 4734 JMS I QTYO 345 00707 1326 TAD L0305 346 00710 4734 JMS I QTYO 347 00711 5750 JMP I QCR1 348 349 00712 0000 STORE, .-. 350 00713 3740 DCA I QEXPRL 351 00714 7420 SNL /ANYTHING TYPED 352 00715 2733 ISZ I QOREG /IS A REGISTER OPEN 353 00716 5712 JMP I STORE /NO OR NO 354 00717 7126 STL RTL /AC = 2 355 00720 4256 JMS DISK /WRITE EXPRL 356 00721 5712 JMP I STORE 357 358 /LINKS 359 /LITORG 360 /LITERALS 361 00722 7774 LN4, -4 362 00723 0007 L07, 7 363 00724 0260 L0260, 260 364 00725 0304 L0304, 304 365 00726 0305 L0305, 305 366 00727 6603 L6603, 6603 367 00730 7400 L7400, 7400 368 369 00731 0000 OCPTNM, .-. /TEMP FOR OCPT 370 00732 0000 OCPTCT, .-. /TEMP FOR OCPT 371 00733 0357 CEXPRL, EXPRL-1 372 373 00734 0342 QTYO, TYO 374 00735 7600 QMONIT, MONITO 375 00736 0330 QERROR, ERROR 376 00737 0362 QBLCKL, BLOCKL 377 00740 0360 QEXPRL, EXPRL 378 00741 0363 QBLCKH, BLOCKH 379 00742 0361 QEXPRH, EXPRH 380 00743 0217 QDOT1, DOT1 381 00744 0542 QPTH, PTH 382 00745 7750 QL7750, L7750 383 00746 7751 QL7751, L7751 384 00747 0541 QPTL, PTL 385 00750 0210 QCR1, CR1 386 QOREG= CEXPRL 387 $ BLOCKH 0363 BLOCKL 0362 C300 0200 CCR 0310 CDFI 0207 CEXPRL 0733 CHARAC 0207 CLF 0306 CR 0400 CR1 0210 CR2 0214 CRLF 0334 CTABLE 0355 CTRLC 0623 DEAL 6615 DFSC 6622 DFSE 6621 DIGIT 0257 DISK 0656 DISK1 0675 DISK2 0677 DISKE 0705 DOT 0642 DOT1 0217 ERROR 0330 EVLE 0626 EXPRH 0361 EXPRL 0360 GREAT 0402 HIGHH 0540 HIGHL 0537 L0007 0352 L0010 0353 L010 0530 L0257 0531 L0260 0724 L0304 0725 L0305 0726 L07 0723 L6201 0354 L6603 0727 L7400 0730 L7750 7750 L7751 7751 LESS 0403 LF 0450 LF1 0460 LISTEN 0221 LLIMST 0516 LN4 0722 LOCH 0533 LOCL 0532 LOOK 0230 LOOK1 0237 LOWH 0536 LOWL 0535 M270 0264 MASK 0534 MASKST 0514 MONITO 7600 MTABLE 0356 OCPT 0605 OCPT1 0612 OCPTCT 0732 OCPTNM 0731 OREG 0357 PCR1 0545 PCR2 0557 PCRLF 0551 PDISK 0550 PDISK1 0364 PEVLE 0555 PEXPRH 0556 PEXPRL 0547 PNTR 0334 POCPT 0553 POREG 0546 PSLSH3 0365 PSTORE 0544 PTH 0542 PTL 0541 PTYDIG 0552 PTYO 0554 QBLCKH 0741 QBLCKL 0737 QCR1 0750 QDOT1 0743 QERROR 0736 QEXPRH 0742 QEXPRL 0740 QL7750 0745 QL7751 0746 QMONIT 0735 QOREG 0733 QPTH 0744 QPTL 0747 QTYO 0734 SEAR1 0421 SEAR2 0425 SEAR4 0427 SEAR5 0434 SEAR6 0442 SEAR7 0445 SLASH 0470 SLASH1 0477 SLASH2 0503 SLASH3 0507 STORE 0712 TABLE 0304 TABLE1 0312 TEMP 0543 TYDIG 0600 TYO 0342 ULIMST 0523