AB16-CMT5

* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 11

0477 00451 0 11 00743 CAS ='256 . 0478 00452 0 01 00441 JMP REJT IGNORE THIS CHARACTER 0479 00453 -0 01 00436 JMP* PACK 0480 00454 0 11 00742 CAS ='215 CR 0481 00455 0 01 00441 JMP REJT 0482 00456 -0 01 00436 JMP* PACK 0483 00457 0 01 00441 JMP REJT 0484 * 0485 00460 0 05 00741 ASCH ERA ='377 0486 00461 100040 SZE 0487 00462 0 01 00441 JMP REJT NOT A RUB OUT 0488 00463 0 02 00436 LDA PACK RUB OUT 0489 00464 0 07 00740 SUB =7 ADJUST ADDRESS RETURN 0490 00465 0 04 00436 STA PACK 0491 00466 -0 01 00436 JMP* PACK 0492 * 0493 00467 0 07 00744 OCTL SUB ='260 CHANGE ASCII TO OCTAL 0494 00470 0 13 00673 IMA NEWL 0495 00471 0414 75 LGL 3 MAKE ROOM FOR NEW OCTAL 0496 00472 0 06 00673 ADD NEWL 0497 00473 0 04 00673 STA NEWL STORE OCTAL VALUE 0498 00474 0 01 00441 JMP REJT GO ENTER NEW CHARACTER 0499 * 0500 * RANDOM NUMBER GENERATOR FOR WRITE 0501 * 0502 00475 0 000000 RNGW DAC ** SUBROUTINE ENTRY 0503 00476 0 02 00702 LDA RAND LOAD RANDOM NUMBER 0504 00477 0416 63 ALR 13 SHIFT LEFT 0505 00500 0 06 00703 ADD RANE ADD 0506 00501 0406 70 ARR 8 SHIFT RIGHT 0507 00502 0 06 00737 ADD ='177503 ADD 0508 00503 0 04 00702 STA RAND SAVE AND UPDATE 0509 00504 -0 01 00475 JMP* RNGW RETURN 0510 * 0511 * RANDOM NUMBER GENERATOR FOR READ 0512 * 0513 00505 0 000000 RNGR DAC ** SUBROUTINE ENTRY 0514 00506 0 02 00704 LDA RANF LOAD RANDOM NUMBER ONE 0515 00507 0416 63 ALR 13 SHIFT LEFT 0516 00510 0 06 00703 ADD RANE 0517 00511 0406 70 ARR 8 SHIFT RIGHT 0518 00512 0 06 00737 ADD ='177503 ADD 0519 00513 0 04 00704 STA RANF SAVE AND UPDATE 0520 00514 -0 01 00505 JMP* RNGR RETURN 0521 * 0522 * 0523 * 0524 * END OF PASS ROUTINE 0525 * 0526 00515 0 000000 EOPR DAC ** ROUTINE ENTRY