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

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

5887 12334 0 02 01475 LDA ID (A) = IP 5888 12335 0 10 14127 JST OA00 OUTPUT +BS 5889 * 5890 12336 -0 01 12330 JMP* OL00 5891 * 5892 * ***************** 5893 * *OUTPUT I/O LINK* 5894 * ***************** 5895 * GENERATE I/O DRIVER LINKAGE CODE. NAME OF 5896 * CALLED ROUTINE IS CHANGED IF UNIT DESIGNATOR 5897 * IS A CONSTANT. 5898 12337 0 000000 OI00 DAC ** 5899 12340 0 10 02432 JST IV00 INPUT INT VAR/CON 5900 12341 0 02 00573 LDA NT 5901 12342 101040 SNZ IF NT = 0 5902 12343 0 01 12357 JMP OI20 GO TO 0I20 5903 12344 0 02 01475 LDA ID IF ID CR 9 5904 12345 0 07 00744 SUB K126 G0 TU OI20 5905 12346 101400 SMI 5906 12347 0 01 12357 JMP OI20 5907 * FORM F$RN OR F$WN 5908 12350 0 02 00571 LDA NAMF+1 5909 12351 0 03 00733 ANA K116 5910 12352 0 06 01475 ADD ID 5911 12353 0 06 00715 ADD K60 ='260 (SP) 5912 12354 0 04 00571 STA NAMF+1 5913 12355 0 10 12363 OI10 JST CN00 CALL NAME 5914 12356 -0 01 12337 JMP* OI00 RETURN 5915 12357 0400 40 OI20 LRL 32 5916 12360 0 02 13735 LDA OMI7 OUTPUT OA 5917 12361 0 10 12467 JST OB00 (LOAD A (UNIT N0.)) 5918 12362 0 01 12355 JMP OI10 FO TO OI10 5919 * 5920 * 5921 * *********** 5922 * *CALL NAME* 5923 * *********** 5924 * SET UP NAME AND GENERATE CODE FOR CALLING IT. 5925 12363 0 000000 CN00 DAC ** 5926 12364 0 10 14523 JST FS00 FLUSH 5927 12365 0 10 14301 JST PRSP SET PRINT BUFFER TO SPACES 5928 12366 0 02 12432 LDA K147 SET UP OCI FOR CALL 5929 12367 0 04 14632 STA OCI 5930 12370 0 02 00571 LDA NAMF+1 OCI = NAMF 5931 12371 0 04 14713 STA PRI+9 5932 12372 000201 IAB ALSO TO PRINT BUFFER 5933 12373 0 02 00570 LDA NAMF 5934 12374 0 04 14712 STA PRI+8 5935 12375 0400 70 LRL 8 5936 12376 0 04 14633 STA OCI+1