FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 208

7112 * 7113 * 7114 * ****************** 7115 * *FLUSH SUBROUTINE* 7116 * ****************** 7117 13531 0 000000 FS00 DAC ** 7118 13532 0 02 00063 LDA OCNT BUFFER OCCUPANCY SIZE 7119 13533 0 15 13633 STX FSXS SAVE INDEX 7120 13534 0 07 00740 SUB K104 CHECK FOR OCNT .GT. 4 7121 13535 100400 SPL 7122 13536 0 01 13614 JMP FS20 SKIP OUTPUT IF BUFFER IS EMPTY 7123 13537 0 06 00741 ADD K105 ADD 1/2 AT B14 7124 13540 0405 77 ARS 1 DIVIDE BY 2 7125 13541 140407 TCA 7126 13542 0 04 00063 STA OCNT OCNT = -WORDS/BUFFER 7127 13543 0 07 00735 SUB K101 =1 7128 13544 0 04 00062 STA PCNT BUFFER SIZE INCLUDING CHECKSUM 7129 13545 0 02 13650 LDA OCI FIRST WORD IN BUFFER 7130 13546 0400 64 LRL 12 7131 13547 0 11 00736 CAS K102 =2 7132 13550 0 01 13552 JMP *+2 7133 13551 0 01 13634 JMP FS30 BLOCK TYPE = 2 (RELOCATABLE CODE) 7134 * EVERY TIME A BLOCK OF OBJECT OUTPUT IS DUMPED, THE FIRST 7135 * 3 WORDS OF THE BLOCK IS INSERTED IN THE SYMBOLIC OUTPUT 7136 * ALONG WITH AN EOB OPERATOR CODE IF SENSE SWITCH 1 IS DOWN. 7137 * TO INHIBIT THIS LINE. REPLACE FROM FS10 TO AND INCLUDING 7138 * FS11 WITH (FS10 CRA ). 7139 13552 0 02 01060 FS09 LDA LIBF CHECK TO SEE IF BIT 2 IS SET 7140 13553 0 03 14676 ANA ='40000 7141 13554 0 05 14676 ERA ='40000 7142 13555 100040 FS10 SZE SKIP IF BIT 2 IS SET 7143 13556 0 01 13601 JMP FS11 NO BINARY LISTING UNLESS BIT 2 IS SET 7144 13557 0 10 00000 CALL F4$SYM OUTPUT WHATEVER MIGHT BE IN SYMBOLIC BUF. 7145 13560 0 013744 DAC PRI 7146 13561 0 02 13645 LDA FS41 =(E)(O) 7147 13562 0 04 13751 STA PRI+5 ENTER 'EOB' INTO LISTING 7148 13563 0 02 13646 LDA FS41+1 =(B)(SP) 7149 13564 0 04 13752 STA PRI+6 7150 13565 0 02 13650 LDA OCI 7151 13566 0 10 13272 JST OR80 ENTER FIRST WORD FROM BUFFER INTO LISTING 7152 13567 0 013754 DAC PRI+8 7153 13570 0 02 13651 LDA OCI+1 7154 13571 0 10 13272 JST OR80 ENTER WORD 2 FROM BUFFER INTO LISTING 7155 13572 0 013760 DAC PRI+12 7156 13573 0 02 13652 LDA OCI+2 7157 13574 0 10 13272 JST OR80 ENTER WORD 3 FROM BUFFER INTO LISTING 7158 13575 0 013764 DAC PRI+16 7159 13576 0 10 00000 CALL F4$SYM OUTPUT SYMBOLIC BUFFER 7160 13577 0 013744 DAC PRI 7161 13600 0 10 13321 JST PRSP RESET SYMBOLIC BUFFER TO SPACES