F4$INT, F4$IN, F4$OUT, F4$SYM, F4$END, F4$DUI, F4$DUO, F4$DUS

* F4$IOS-B - DEC 12 2006 - VERSION 1 PAGE 3

0101 * DUMMY SOURCE INPUT DEVICE DRIVER: SELECT PROPER DEVICE 0102 00031 0 02 00635 IL1 LDA MO5 7 NON =-5 MESSAGE LENGTH, 5 WORDS LONG 0103 00032 0 10 00416 JST PRBF 0104 00033 0 000606 DAC MDEV MESSAGE: DEVICE? (NO DRIVER FOR REQUESTED DEVICE) 0105 00034 0 10 00366 JST STOP SET DEFAULT OR NEW DEVICE SELECTION 0106 00035 0 01 00020 JMP IL6 0107 * 0108 00036 0 10 00000 IL2 CALL I$AA TTY = SOURCE INPUT DEVICE 0109 00037 0 000000 IB1 DAC *-* SOURCE BUFFER ADDRESS 0110 00040 0 01 00036 JMP IL2 EOM/EOF RETURN 0111 00041 0 01 00064 JMP IL7 NORMAL RETURN 0112 00042 0 10 00000 IL3 CALL I$CA CR = SOURCE INPUT DEVICE 0113 00043 0 000000 IB2 DAC *-* SOURCE BUFFER ADDRESS 0114 00044 0 01 00042 JMP IL3 EOM/EOF RETURN 0115 00045 0 01 00064 JMP IL7 NORMAL RETURN 0116 00046 0 10 00000 IL4 CALL I$PA HSR = SOURCE INPUT DEVICE 0117 00047 0 000000 IB3 DAC *-* SOURCE BUFFER ADDRESS 0118 00050 0 01 00046 JMP IL4 0119 00051 0 01 00064 JMP IL7 0120 00052 0 10 00000 IL5 CALL I$MA MT = SOURCE INPUT DEVICE 0121 00053 0 000000 IB4 DAC *-* SOURCE BUFFER ADDRESS 0122 00054 000050 OCT 50 BUFFER LENGTH (WORDS) 0123 00055 000001 OCT 1 TAPE UNIT 1 = SOURCE DECK 0124 00056 0 01 00455 JMP ERR0 RECORD NOT READABLE RETURN 0125 00057 0 01 00461 JMP ERR1 END OF TAPE RETURN 0126 00060 0 01 00052 JMP IL5 END OF FILE RETURN; READ NEXT FILE 0127 00061 0 10 00000 CALL C$6TO8 NORMAL RETURN; CONVERT RECORD TO ASCII 0128 00062 0 000000 IB5 DAC *-* SOURCE BUFFER ADDRESS 0129 00063 000050 OCT 50 BUFFER LENGTH 0130 00064 0 02 00501 IL7 LDA SCNT SOURCE RECORD COUNTER 0131 00065 0 06 00636 ADD N1 =1 0132 00066 140100 SSP 0133 00067 0 04 00501 STA SCNT SOURCE RECORD COUNTER 0134 00070 0 12 00010 IRS F4SI SET RETURN ADDRESS 0135 00071 -0 01 00010 JMP* F4SI 0136 * 0137 ************************************** 0138 * GENERAL OBJECT OUTPUT ROUTINE * 0139 * CALLING SEQUENCE: * 0140 * A = OBJECT BUFFER ADDRESS * 0141 * X = - BUFFER LENGTH (WORDS) * 0142 * CALL F4$OUT * 0143 ************************************** 0144 * 0145 00072 0 000000 F4OO DAC *-* OBJECT OUTPUT DRIVER 0146 00073 0 04 00503 STA OSRC EXTERNAL OBJECT BUFFER ADDRESS 0147 00074 0 02 00000 LDA 0 - BUFFER LENGTH (WORDS) 0148 00075 140407 TCA 0149 00076 0 04 00512 STA OBFL + BUFFER LENGTH (WORDS) 0150 00077 0 04 00136 STA MTBL