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 4

0151 00100 0 06 00510 ADD OPTR POINTER TO OUTPUT BUFFER 0152 00101 0 06 00634 ADD IFLG INDEX FLAG 0153 00102 0 04 00504 STA ODES INDEXED DESTINATION 0154 00103 -0 02 00503 OL1 LDA* OSRC MOVE OBJECT TO INTERNAL OUTPUT BUFFER 0155 00104 -0 04 00504 STA* ODES 0156 00105 0 12 00000 IRS 0 0157 00106 0 01 00103 JMP OL1 0158 00107 0 02 00477 OL6 LDA DOBJ 0159 00110 0 10 00451 JST SWCH JMP SWITCH 0160 00111 -0 01 00072 JMP* F4OO 0 SUPPRESS OBJECT OUTPUT 0161 00112 0 01 00126 JMP OL2 1 PTP 0162 00113 0 01 00131 JMP OL3 2 TTY 0163 00114 0 01 00120 JMP OL4 3 NON 0164 00115 0 01 00134 JMP OL5 4 MAG TAPE 0165 00116 0 01 00120 JMP OL4 5 NON 0166 00117 0 01 00120 JMP OL4 6 NON 0167 * DUMMY OBJECT OUTPUT DEVICE DRIVER: SELECT PROPER DEVICE 0168 00120 0 02 00635 OL4 LDA MO5 7 NON =-5 0169 00121 0 10 00416 JST PRBF 0170 00122 0 000606 DAC MDEV MESSAGE: DEVICE? 0171 00123 0 10 00366 JST STOP SET DEFAULT OR NEW DEVICE SELECTION 0172 00124 0 10 00411 JST PUTR PUNCH TRAILER IN CASE PTP IS SELECTED 0173 00125 0 01 00107 JMP OL6 0174 * 0175 00126 0 10 00000 OL2 CALL O$PB PTP = OBJECT OUTPUT DEVICE 0176 00127 0 000512 DAC OBUF OUTPUT BUFFER ADDRESS 0177 00130 -0 01 00072 JMP* F4OO EXIT 0178 00131 0 10 00000 OL3 CALL O$AB TTY = OBJECT OUTPUT DEVICE 0179 00132 0 000512 DAC OBUF OUTPUT BUFFER ADDRESS 0180 00133 -0 01 00072 JMP* F4OO EXIT 0181 00134 0 10 00000 OL5 CALL O$MB MAG TAPE = OBJECT OUTPUT DEVICE 0182 00135 0 000513 DAC OBUF+1 BUFFER ADDRESS 0183 00136 000000 MTBL OCT 0 BUFFER LENGTH (WORDS) 0184 00137 000002 OCT 2 TAPE UNIT 2 = OBJECT DECK 0185 00140 0 01 00461 JMP ERR1 END OF TAPE RETURN 0186 00141 -0 01 00072 JMP* F4OO EXIT 0187 * 0188 ************************************** 0189 * GENERAL LISTING OUTPUT ROUTINE * 0190 * CALLING SEQUENCE: * 0191 * CALL F4$SYM * 0192 * DAC LINEBUFFER * 0193 ************************************** 0194 * 0195 00142 0 000000 F4LO DAC *-* LISTING OUTPUT DRIVER 0196 00143 0 02 00633 LDA SPSP <SPACE><SPACE> 0197 00144 0 04 00512 STA OBUF SET LINENUMBER FIELD 0198 00145 0 04 00513 STA OBUF+1 (6 CHARS) TO SPACES 0199 00146 0 04 00514 STA OBUF+2 0200 00147 -0 02 00142 LDA* F4LO EXTERNAL BUFFER ADDRESS