*7400 7400 6032 BEGRIM, KCC /RIM-LOADER 7401 4216 JMS READIN 7402 7106 CLL RTL 7403 7006 RTL 7404 7510 SPA 7405 5201 JMP BEGRIM+1 7406 7006 RTL 7407 6031 KSF 7410 5207 JMP .-1 7411 6034 KRS 7412 7420 SNL 7413 3754 DCA I KOBUS 7414 3354 DCA KOBUS 7415 5600 JMP I BEGRIM 7416 0000 READIN, 0 /READ-ROUTINE 7417 6031 KSF 7420 5217 JMP .-1 7421 6036 KRB 7422 3347 DCA CHAR 7423 1347 TAD CHAR 7424 5616 JMP I READIN 7425 7240 BEGN, CLA CMA /(AL)BIN-LOADER 7426 3345 DCA INDIC /SET BIN-MODE 7427 3346 DCA CHKSM 7430 3353 DCA FIRST 7431 4320 JMS BEGG 7432 5231 JMP .-1 7433 1347 GO, TAD CHAR 7434 3350 DCA CKT 7435 1347 TAD CHAR 7436 7106 CLL RTL 7437 7006 RTL 7440 7006 RTL 7441 3351 DCA WORD 7442 4216 JMS READIN 7443 1351 TAD WORD 7444 3351 DCA WORD 7445 7430 SZL 7446 7240 CLA CMA 7447 3352 DCA MEM 7450 1347 TAD CHAR 7451 1350 TAD CKT 7452 3350 DCA CKT 7453 4320 JMS BEGG 7454 5360 JMP BEND 7455 2352 ISZ MEM 7456 5302 JMP STORE 7457 1345 TAD INDIC 7460 7640 SZA CLA 7461 5306 JMP B1 7462 1353 TAD FIRST 7463 7650 SNA CLA 7464 5311 JMP B2 7465 1351 B4, TAD WORD 7466 1273 TAD M200 7467 7510 SPA 7470 5273 JMP B3 7471 1354 TAD KOBUS 7472 3351 DCA WORD 7473 7600 B3, M200,7600 /CLA 7474 1355 TAD ORIGIN 7475 3751 DCA I WORD 7476 1350 CHEX, TAD CKT 7477 1346 TAD CHKSM 7500 3346 DCA CHKSM 7501 5233 JMP GO 7502 1351 STORE, TAD WORD 7503 3755 DCA I ORIGIN 7504 2355 ISZ ORIGIN 7505 5276 JMP CHEX 7506 1351 B1, TAD WORD 7507 3355 DCA ORIGIN 7510 5276 JMP CHEX 7511 2353 B2, ISZ FIRST 7512 7402 HLT 7513 7604 CLA OSR 7514 3354 DCA KOBUS 7515 1354 TAD KOBUS 7516 3355 DCA ORIGIN 7517 5265 JMP B4 7520 0000 BEGG, 0 7521 3356 DCA SWITCH 7522 4216 JMS READIN 7523 1357 TAD M377 7524 7640 SZA CLA 7525 5331 JMP .+4 7526 2356 ISZ SWITCH 7527 7240 CLA CMA 7530 5321 JMP BEGG+1 7531 1356 TAD SWITCH 7532 7640 SZA CLA 7533 5322 JMP BEGG+2 7534 1347 TAD CHAR 7535 0341 AND MASK 7536 1273 TAD M200 7537 7450 SNA 7540 5720 JMP I BEGG 7541 7700 MASK, SMA CLA 7542 5322 JMP BEGG+2 7543 2320 ISZ BEGG 7544 5720 JMP I BEGG 7545 0000 INDIC, 0 7546 0000 CHKSM, 0 7547 0000 CHAR, 0 7550 0000 CKT, 0 7551 0000 WORD, 0 7552 0000 MEM, 0 7553 0000 FIRST, 0 7554 0000 KOBUS, 0 7555 0000 ORIGIN, 0 7556 0000 SWITCH, 0 7557 7401 M377, -377 7560 1351 BEND, TAD WORD 7561 7041 CMA IAC 7562 1346 TAD CHKSM 7563 7402 HLT 7564 5225 JMP BEGN BEGG 7520 BEGN 7425 BEGRIM 7400 BEND 7560 B1 7506 B2 7511 B3 7473 B4 7465 CHAR 7547 CHEX 7476 CHKSM 7546 CKT 7550 FIRST 7553 GO 7433 INDIC 7545 KOBUS 7554 MASK 7541 MEM 7552 M200 7473 M377 7557 ORIGIN 7555 READIN 7416 STORE 7502 SWITCH 7556 WORD 7551