FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 209

7162 13601 140040 FS11 CRA 7163 13602 0 04 00000 STA 0 COMPUTE CHECKSUM 7164 13603 1 05 13650 FS12 ERA OCI,1 MERGE BUFFER WORD INTO CHECKSUM 7165 13604 0 12 00000 IRS 0 INCREMENT BUFFER POSITION 7166 13605 0 12 00063 IRS OCNT DECREMENT BUFFER SIZE 7167 13606 0 01 13603 JMP FS12 7168 13607 1 04 13650 STA OCI,1 SET CHECKSUM INTO BUFFER 7169 13610 0 02 00062 LDA PCNT = NO. OF WORDS IN BUFFER 7170 13611 0 13 00000 IMA 0 7171 13612 0 06 13644 ADD FS40 = OCI+1,1 7172 13613 0 10 00000 CALL F4$OUT PUNCH BUFFER 7173 13614 0 35 13330 FS20 LDX PRSK =-40 BUFFER SIZE 7174 13615 140040 CRA 7175 13616 1 04 13720 STA OCI+40,1 CLEAR BUFFER BEFORE USING 7176 13617 0 12 00000 IRS 0 7177 13620 0 01 13616 JMP *-2 7178 13621 0 02 00643 LDA RPL SET UP BUFFER FOR NEXT OUTPUT 7179 13622 0400 70 LRL 8 7180 13623 0 06 13647 ADD K145 ='2000 (BLOCK CODE 2) 7181 13624 0 04 13650 STA OCI 7182 13625 000201 IAB 7183 13626 0 04 13651 STA OCI+1 SET FIRST 2 WORDS OF BUFFER 7184 13627 0 02 00737 LDA K103 =O 7185 13630 0 04 00063 STA OCNT RESET BUFFER OCCUPANCY SIZE 7186 13631 0 35 13633 LDX FSXS RESTORE INDEX 7187 13632 -0 01 13531 JMP* FS00 EXIT 7188 13633 FSXS BSS 1 TEMP STORAGE FOR INDEX 7189 * 7190 13634 0414 72 FS30 LGL 6 MERGE BUFFER SIZE INTO BLOCK HEADER 7191 13635 0 07 00063 SUB OCNT BUFFER SIZE 7192 13636 141206 AOA (ACCOUNT FOR CHECKSUM) 7193 13637 0412 72 LLR 6 7194 13640 0404 72 LGR 6 7195 13641 0410 72 LLL 6 BRING IN UPPER HALF OF ADDRESSES 7196 13642 0 04 13650 STA OCI STORE INTO BUFFER 7197 13643 0 01 13552 JMP FS09 COMPUTE THE CHECKSUM 7198 * 7199 13644 1 013651 FS40 DAC OCI+1,1 7200 13645 142717 FS41 BCI 2,EOB 'EOB' 13646 141240 7201 13647 020000 K145 OCT 20000 BLOCK TYPE 2 CODE 7202 * 7203 13650 000000 OCI BSZ 40 * 7204 13720 000000 BSZ 20 PAD BUFFER WITH ZERO'S 7205 013657 OCI7 EQU OCI+7 7206 013660 OCI8 EQU OCI+8 7207 13744 PRI BSS 40 40 WORD PRINT BUFFER 7208 14014 120240 BCI 20, 14015 120240 14016 120240