C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 148

7126 14576 1 04 14632 STA OCI,1 SET CHECKSUM INTO BUFFER 7127 14577 0 02 00601 LDA PCNT = NO. OF WORDS IN BUFFER 7128 14600 0 13 00000 IMA 0 7129 14601 0 06 14625 ADD FS40 = OCI+1,1 7130 14602 0 10 00000 CALL F4$OUT PUNCH BUFFER 7131 14603 0 02 00060 FS20 LDA RPL SET UP BUFFER FOR NEXT OUTPUT 7132 14604 0400 70 LRL 8 7133 14605 0 06 14630 ADD K145 =#'2000 (BLOCK CODE 2) 7134 14606 0 04 14632 STA OCI 7135 14607 000201 IAB 7136 14610 0 04 14633 STA OCI+1 SET FIRST 2 WORDS OF BUFFER 7137 14611 0 02 00721 LDA K103 =O 7138 14612 0 04 00602 STA OCNT RESET BUFFER OCCUPANCY SIZE 7139 14613 0 10 03016 JST RST RESET INDEX REGISTER 7140 14614 -0 01 14523 JMP* FS00 EXIT 7141 * 7142 14615 0414 72 FS30 LGL 6 MERGE BUFFER SIZE INTO BLOCK HEADER 7143 14616 0 07 00602 SUB OCNT BUFFER SIZE 7144 14617 0 06 00717 ADD K101 =1 (ACCOUNT FOR CHECKSUM) 7145 14620 0412 72 LLR 6 7146 14621 0404 72 LGR 6 7147 14622 0410 72 LLL 6 BRING IN UPPER HALF OF ADDRESSES 7148 14623 0 04 14632 STA OCI STORE INTO BUFFER 7149 14624 0 01 14544 JMP FS10 COMPUTE CHECKSUM 7150 * 7151 14625 1 014633 FS40 DAC OCI+1,1 7152 14626 142717 FS41 BCI 2,EOB 'EOB' 14627 141240 7153 14630 020000 K145 OCT 20000 BLOCK TYPE 2 CODE 7154 14631 060000 C499 OCT 060000 7155 * 7156 14632 OCI BSS 40 40 WORD CARD IMAGE INPUT BUFFER 7157 14702 PRI BSS 40 40 WORD PRINT BUFFER 7158 14752 120240 BCI 20, 14753 120240 14754 120240 14755 120240 14756 120240 14757 120240 14760 120240 14761 120240 14762 120240 14763 120240 14764 120240 14765 120240 14766 120240 14767 120240 14770 120240 14771 120240 14772 120240