FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 177

5824 * 5825 * ***************** 5826 * *OUTPUT I/O LINK* 5827 * ***************** 5828 * GENERATE I/O DRIVER LINKAGE CODE. NAME OF 5829 * CALLED ROUTINE IS CHANGED IF UNIT DESIGNATOR 5830 * IS A CONSTANT. 5831 11337 0 000000 OI00 DAC ** 5832 11340 0 10 02253 JST IV00 INPUT INT VAR/CON 5833 11341 0 02 00054 LDA NT 5834 11342 101040 SNZ IF NT = 0 5835 11343 0 01 11357 JMP OI20 GO TO OI20 5836 11344 0 02 00774 LDA ID IF ID CR 9 5837 11345 0 07 00746 SUB K126 GO TO OI20 5838 11346 101400 SMI 5839 11347 0 01 11357 JMP OI20 5840 * FORM F$RN OR F$WN 5841 11350 0 02 00052 LDA NAMF+1 5842 11351 0 03 00672 ANA K116 5843 11352 0 06 00774 ADD ID 5844 11353 0 06 00665 ADD K60 ='260 (SP) 5845 11354 0 04 00052 STA NAMF+1 5846 11355 0 10 11363 OI10 JST CN00 CALL NAME 5847 11356 -0 01 11337 JMP* OI00 RETURN 5848 11357 0400 40 OI20 LRL 32 5849 11360 0 02 13030 LDA OMI7 OUTPUT OA 5850 11361 0 10 11471 JST OB00 (LOAD A (UNIT NO.)) 5851 11362 0 01 11355 JMP OI10 FO TO OI10 5852 EJCT