PAL-AP Rev.H

* NAME: (PAL-AP) DOC. 70180311000 REV.H PAGE 13

0566 00606 100040 SZE 0567 00607 -0 01 00731 JMP* CHAR 0568 00610 -0 02 00731 LDA* CHAR 0569 00611 0 05 00655 ERA SCAN TEST FOR SCAN MODE 0570 00612 101040 SNZ 0571 00613 0 01 00632 JMP ENDT 0572 00614 0 02 00025 LDA '25 0573 00615 101040 SNZ 0574 00616 0 01 00632 JMP ENDT END FILE EXIT 0575 00617 0 05 00020 ERA '20 0576 00620 0416 77 ALR 1 0577 00621 0 05 00021 ERA '21 0578 00622 100040 SZE 0579 00623 0 01 00630 JMP EROR 0580 00624 0 04 00025 STA '25 RESET WORD COUNT 0581 00625 0 10 00731 JST CHAR 0582 00626 0 12 00024 BUMP IRS '24 INCREMENT BLOCK COUNT 0583 00627 0 01 00634 JMP STRT+1 0584 00630 000012 EROR OCT 12 ERROR HALT 0585 00631 0 01 00630 JMP *-1 HALT AGAIN IF STARTED 0586 00632 000012 ENDT OCT 12 HALT, TAPE LOADED NORMALLY 0587 00633 0 04 00024 STRT STA '24 RESET BLOCK COUNT 0588 00634 140040 CRA 0589 00635 0 04 00022 STA '22 RESET CHARACTER BUFFER 0590 00636 0 02 00010 LDA '10 TEST FOR HIGH SPEED READER 0591 00637 0406 77 ARR 1 0592 00640 100400 SPL 0593 00641 0 01 00652 JMP SCAN-3 0594 00642 34 0104 SKS '104 0595 00643 0 01 00642 JMP *-1 0596 00644 14 0104 OCP '104 0597 00645 0 02 00766 LDA ='221 0598 00646 74 0004 OTA 4 0599 00647 34 0104 SKS '104 0600 00650 0 01 00647 JMP *-1 0601 00651 14 0004 OCP 4 0602 00652 0 02 00022 LDA '22 0603 00653 0 01 00655 JMP *+2 TURN ON TELEPRINTER 0604 00654 0 10 00731 JST CHAR LEADER SCAN 0605 00655 0 05 00767 SCAN ERA ='22 START OF MESSAGE 0606 00656 100040 SZE 0607 00657 0 01 00654 JMP *-3 * 0608 00660 0 04 00000 STA 0 * 0609 00661 0 04 00025 STA '25 RESET WORD COUNT 0610 00662 0 02 00024 LDA '24 0611 00663 0 04 00020 STA '20 INITIALIZE BLOCK 0612 00664 0 10 00731 JST CHAR 0613 00665 0 10 00704 DATA JST SWCH 0614 00666 0 01 00665 JMP *-1 DO DATA LOAD 0615 00667 0 10 00715 JST WORD DO ZERO LOAD