FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 179

5865 * 5866 * 5867 * ********************** 5868 * * REFERENCE EXTERNAL * 5869 * ********************** 5870 * OUTPUT EXTERNAL REFERENCING COMMAND 5871 11370 0 011370 RE00 DAC * 5872 11371 0 10 13531 JST FS00 FLUSH THE BUFFER 5873 11372 0 02 00043 LDA FTOP SET FTOP INTO OCI FOR OUTPUT 5874 11373 0404 74 LGR 4 5875 11374 0 06 11441 ADD KRE1 5876 11375 0 04 13650 STA OCI 5877 11376 0 10 13321 JST PRSP SET PRINT BUFFER TO SPACES 5878 11377 0 02 00052 LDA NAMF+1 OCI = NAMF 5879 11400 0 04 13755 STA PRI+9 5880 11401 000201 IAB ALSO TO PRINT BUFFER 5881 11402 0 02 00051 LDA NAMF 5882 11403 0 04 13754 STA PRI+8 5883 11404 0400 70 LRL 8 5884 11405 0 04 13651 STA OCI+1 5885 11406 0410 60 LLL 16 5886 11407 0 04 13652 STA OCI+2 5887 11410 0 02 00053 LDA NAMF+2 5888 11411 0 04 13756 STA PRI+10 5889 11412 000201 IAB 5890 11413 0 02 00052 LDA NAMF+1 5891 11414 0410 70 LLL 8 5892 11415 0 04 13653 STA OCI+3 5893 11416 0410 60 LLL 16 5894 11417 0 04 13654 STA OCI+4 5895 11420 0 02 00750 LDA K128 ='14 5896 11421 0 04 00063 STA OCNT OCNT = 6 5897 11422 0 10 13133 JST OR23 ENTER SYMBOLIC OP INTO LIST BUFFER 5898 11423 0 02 00643 LDA RPL 5899 11424 0 10 13272 JST OR80 5900 11425 0 013744 DAC PRI 5901 11426 0 02 01060 LDA LIBF CHECK TO SEE IF BIT 3 IS SET 5902 11427 0 03 14677 ANA ='20000 5903 11430 0 05 14677 ERA ='20000 5904 11431 101040 C2R2 SNZ SKIP IF BIT 3 IS NOT SET 5905 11432 0 01 11435 JMP *+3 INHIBIT SYMBOLIC OUTPUT 5906 11433 0 10 00000 CALL F4$SYM OUTPUT SYMBOLIC LINE. 5907 11434 0 013744 DAC PRI 5908 11435 0 12 00643 IRS RPL RPL = RPL + 1 5909 11436 0 10 13321 JST PRSP SET PRINT BUFFER TO SPACES 5910 11437 0 10 13531 JST FS00 FLUSH 5911 11440 -0 01 11370 JMP* RE00 RETURN 5912 11441 050000 KRE1 OCT 50000 5913 * ************* 5914 * *OUTPUT PACK*