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

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

6926 14310 -0 01 14301 JMP* PRSP EXIT 6927 14311 177730 PRSK OCT 177730 =-40 6928 * 6929 * ************************************* 6930 * *OUTPUT SUBROUTINE/COMMON BLOCK NAME* 6931 * ************************************ 6932 * OUTPUT AN EXTERNAL REFERENCE NAME. 6933 * 6934 14312 0 000000 ON00 DAC ** 6935 14313 0 04 14362 STA ONT1 SAVE ADDRESS 6936 14314 0 10 14523 JST FS00 FLUSH BUFFER IF NECESSARY 6937 14315 0 10 02672 JST STXA SET INDEX=A 6938 14316 0 02 14362 LDA ONT1 SUBR. ENTRY ADDR. 6939 14317 0400 62 LRL 14 6940 14320 0 04 14362 STA ONT1 SAVE S/C BITS 6941 14321 0 02 14361 LDA ON02 ='600 (=BLOCK CODE NO.) 6942 14322 0410 72 LLL 6 6943 14323 0 04 14632 STA OCI FILL BUFFER 6944 14324 0400 70 LRL 8 6945 14325 0 10 02672 JST STXA SET INDEX=A 6946 14326 1 02 15404 LDA DP+4,1 FIHST 2 CHAR. 0F NAME 6947 14327 0 03 00730 ANA K111 ='037777 6948 14330 0 11 14331 CAS *+1 6949 14331 020240 OCT 020240 6950 14332 0 05 00740 ERA K122 6951 14333 0 05 00760 ERA HBIT ='140000 6952 14334 0402 70 LRR 8 6953 14335 0 04 14633 STA OCI+1 BUFFER 6954 14336 0400 70 LRL 8 6955 14337 1 02 15403 LDA DP+3,1 SECOND 2 CHAR. OF NAME 6956 14340 0402 70 LRR 8 6957 14341 0 04 14634 STA OCI+2 BUFFER 6958 14342 0400 70 LRL 8 6959 14343 1 02 15402 LDA DP+2,1 LAST 2 CHAR. OF NAME 6960 14344 0402 70 LRR 8 6961 14345 0 04 14635 STA OCI+3 BUFFER 6962 14346 0410 70 LLL 8 6963 14347 0414 76 LGL 2 6964 14350 0 06 14362 ADD ONT1 S/C BITS 6965 14351 0414 72 LGL 6 6966 14352 0 04 14636 STA OCI+4 BUFFER 6967 14353 140040 CRA SET SIZE = 0 6968 14354 0 04 14637 STA OCI+5 8UFFER 6969 14355 0 02 00746 LDA K128 ='14 6970 14356 0 04 00602 STA OCNT SET 8LOCK SIZE (DOUBLED) 6971 14357 0 10 14523 JST FS00 FLUSH BUFFER 6972 14360 -0 01 14312 JMP* ON00 EXIT 6973 14361 000600 ON02 OCT 600 BLOCK CODE NUMBER (6) 6974 14362 000000 ONT1 OCT 0 TEMP STORE 6975 *