FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 205

6975 * 6976 * ************************************* 6977 * *OUTPUT SUBROUTINE/COMMON BLOCK NAME* 6978 * ************************************* 6979 * OUTPUT AN EXTERNAL REFERENCE NAME. 6980 * 6981 13331 0 000000 ON00 DAC ** 6982 13332 0 04 13400 STA ONT1 SAVE ADDRESS 6983 13333 0 10 13531 JST FS00 FLUSH BUFFER IF NECESSARY 6984 13334 0 02 13400 LDA ONT1 SUBR. ENTRY ADDR. 6985 13335 0400 62 LRL 14 6986 13336 0 04 13400 STA ONT1 SAVE S/C BITS 6987 13337 0 02 13377 LDA ON02 ='60O (=BLOCK CODE NO.) 6988 13340 0410 72 LLL 6 6989 13341 0 04 13650 STA OCI FILL BUFFER 6990 13342 0400 70 LRL 8 6991 13343 0 35 00625 LDX A 6992 13344 1 02 17404 LDA DP+4,1 FIRST 2 CHAR. OF NAME 6993 13345 0 03 00670 ANA K111 ='O37777 6994 13346 0 11 11605 CAS BLKC 6995 13347 000026 K140 OCT 26 6996 13350 0 05 00675 ERA K122 6997 13351 0 05 00703 ERA HBIT ='140000 6998 13352 0402 70 LRR 8 6999 13353 0 04 13651 STA OCI+1 BUFFER 7000 13354 0400 70 LRL 8 7001 13355 1 02 17403 LDA DP+3,1 SECOND 2 CHAR. OF NAME 7002 13356 0402 70 LRR 8 7003 13357 0 04 13652 STA OCI+2 BUFFER 7004 13360 0400 70 LRL 8 7005 13361 1 02 17402 LDA DP+2,1 LAST 2 CHAR. OF NAME 7006 13362 0402 70 LRR 8 7007 13363 0 04 13653 STA OCI+3 BUFFER 7008 13364 0410 70 LLL 8 7009 13365 0414 76 LGL 2 7010 13366 0 06 13400 ADD ONT1 S/C BITS 7011 13367 0414 72 LGL 6 7012 13370 0 04 13654 STA OCI+4 BUFFER 7013 13371 140040 CRA SET SIZE = 0 7014 13372 0 04 13655 STA OCI+5 BUFFER 7015 13373 0 02 00750 LDA K128 ='14 7016 13374 0 04 00063 STA OCNT SET BLOCK SIZE (DOUBLED) 7017 13375 0 10 13531 JST FS00 FLUSH BUFFER 7018 13376 -0 01 13331 JMP* ON00 EXIT 7019 13377 000600 ON02 OCT 600 BLOCK CODE NUMBER (6) 7020 13400 000000 ONT1 OCT 0 TEMP STORE 7021 * 7022 13401 136647 K149 BCI 1,=' 7023 * 7024 13402 0 000000 OW00 DAC **