Previous File Previous Page Single Page Next Page Next File

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

7076 * *FLUSH SUBROUTINE* 7077 * ****************** 7078 14523 0 000000 FS00 DAC ** 7079 14524 0 02 00602 LDA OCNT BUFFER OCCUPANCY SIZE 7080 14525 0 10 03007 JST SAV SAVE INDEX REGESTER 7081 14526 0 07 00722 SUB K104 CHECK FOR OCNT .GT. 4 7082 14527 100400 SPL 7083 14530 0 01 14603 JMP FS20 SKIP OUTPUT IF BUFFER IS EMPTY 7084 14531 0 06 00723 ADD K105 ADD 1/2 AT B14 7085 14532 0405 77 ARS 1 DIVIDE BY 2 7086 14533 140407 TCA 7087 14534 0 04 00602 STA OCNT OCNT = -WORDS/BUFFER 7088 14535 0 07 00717 SUB K101 =1 7089 14536 0 04 00601 STA PCNT BUFFER SIZE INCLUDING CHECKSUM 7090 14537 0 02 14632 LDA OCI FIRST WORD IN BUFFER 7091 14540 0400 64 LRL 12 7092 14541 0 11 00720 CAS K102 =2 7093 14542 0 01 14544 JMP *+2 7094 14543 0 01 14615 JMP FS30 BLOCK TYPE = 2 (RELOCATABLE CODE) 7095 * EVERY TIME A BLOCK OF OBJECT OUTPUT IS DUMPED, THE FIRST 7096 * 3 WORDS OF THE BLOCK IS INSERTED IN THE SYMBOLIC OUTPUT 7097 * ALONG WITH AN EOB OPERATOR CODE IF SENSE SWITCH 1 1S DOWN. 7098 * TO INHIBIT THIS LINE, REPLACE FROM FS10 TO AND INCLUDING 7099 * FS11 WITH (FS10 CRA ). 7100 14544 101020 FS10 SS1 7101 14545 0 01 14570 JMP FS11 N0 BINARY LISTING UNLESS SSW-1 IS DOWN 7102 14546 0 10 00000 CALL F4$SYM 7103 14547 0 014702 DAC PRI OUTPUT WHATEVER MIGHT BE IN SYMBOLIC BUF. 7104 14550 0 02 14626 LDA FS41 =(E)(O) 7105 14551 0 04 14707 STA PRI+5 ENTER 'EOB' INTO LISTING 7106 14552 0 02 14627 LDA FS41+1 =(B)(SP) 7107 14553 0 04 14710 STA PRI+6 7108 14554 0 02 14632 LDA OCI 7109 14555 0 10 14150 JST OR80 ENTER FIRST WORD FROM BUFFER INTO LISTING 7110 14556 0 014712 DAC PRI+8 7111 14557 0 02 14633 LDA OCI+1 7112 14560 0 10 14150 JST OR80 ENTER WORD 2 FROM BUFFER INTO LISTING 7113 14561 0 014716 DAC PRI+12 7114 14562 0 02 14634 LDA OCI+2 7115 14563 0 10 14150 JST OR80 ENTER WORD 3 FROM BUFFER INTO LISTING 7116 14564 0 014722 DAC PRI+16 7117 14565 0 10 00000 CALL F4$SYM OUTPUT SYMBOLIC BUFFER 7118 14566 0 014702 DAC PRI 7119 14567 0 10 14301 JST PRSP RESET SYMBOLIC BUFFER TO SPACES 7120 14570 140040 FS11 CRA 7121 14571 0 04 00000 STA 0 COMPUTE CHECKSUM 7122 14572 1 05 14632 FS12 ERA OCI,1 MERGE BUFFER WORD INTO CHECKSUM 7123 14573 0 12 00000 IRS 0 INCREMENT BUFFER POSITION 7124 14574 0 12 00602 IRS OCNT DECREMENT BUFFER SIZE 7125 14575 0 01 14572 JMP FS12
Previous File Previous Page Single Page Next Page Next File