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 2

0051 * SUBR F4$DUS,LL9 DUMMY LISTING OUTPUT DRIVER 0052 * 0053 SUBR F4$INT,F4IN 0054 SUBR F4$IN,F4SI 0055 SUBR F4$OUT,F4OO 0056 SUBR F4$SYM,F4LO 0057 SUBR F4$END,F4EN 0058 * 0059 SUBR F4$DUI,IL1 0060 SUBR F4$DUO,OL4 0061 SUBR F4$DUS,LL9 0062 REL 0063 * 0064 ******************************************************************* 0065 * F4$INT -- INIT COMPILER DATA POOL AND STORE IO DEVICE SELECTION * 0066 ******************************************************************* 0067 * 0068 00000 0 000000 F4IN DAC *-* 0069 00001 0 10 00373 JST SDEV SET THE SELECTED DEVICES 0070 00002 0 10 00411 JST PUTR PUNCH LEADER IN CASE PTP IS OBJECT DEVICE 0071 00003 0 10 00000 CALL F4$INI SET THE SIZE OF THE DATA POOL 0072 00004 140040 CRA 0073 00005 0 04 00501 STA SCNT SOURCE INPUT RECORD COUNTER/LINENUMBER = 0 0074 00006 0 12 00502 IRS INFL SET 1ST-TIME-CALL FLAG FOR LISTING DRIVER 0075 00007 -0 01 00000 JMP* F4IN 0076 * 0077 ************************************** 0078 * GENERAL SOURCE INPUT ROUTINE * 0079 * CALLING SEQUENCE: * 0080 * CALL F4$IN * 0081 * DAC SOURCEBUFFER * 0082 ************************************** 0083 * 0084 00010 0 000000 F4SI DAC *-* SOURCE INPUT DRIVER 0085 00011 -0 02 00010 LDA* F4SI GET SOURCE BUFFER ADDRESS 0086 00012 0 04 00037 STA IB1 AND STORE 0087 00013 0 04 00043 STA IB2 0088 00014 0 04 00047 STA IB3 0089 00015 0 04 00053 STA IB4 0090 00016 0 04 00062 STA IB5 0091 00017 0 04 00500 STA IB6 0092 00020 0 02 00475 IL6 LDA DSRC LOAD SELECTED SOURCE DEVICE 0093 00021 0 10 00451 JST SWCH JMP SWITCH 0094 00022 0 01 00031 JMP IL1 0 NON 0095 00023 0 01 00036 JMP IL2 1 TTY 0096 00024 0 01 00042 JMP IL3 2 CR 0097 00025 0 01 00046 JMP IL4 3 HSR 0098 00026 0 01 00052 JMP IL5 4 MAG TAPE 0099 00027 0 01 00031 JMP IL1 5 NON 0100 00030 0 01 00031 JMP IL1 6 NON