IOS-O16X

* 0170-001-6801 (IOS-O16X) CCD NO. 70181495000 REV. A PAGE 7

0269 * 0270 * D$IN: INITIALIZATION 0271 * 0272 * 0273 00044 0 000000 D$IN DAC ** 0274 00045 0 04 00536 STA T111 SAVE A REGSITER SETTING 0275 00046 0 04 00537 STA DEVD 0276 00047 0 10 00000 CALL TBLSIZ SET UP THE SYMBOL TABLE 0277 00050 0 02 00000 LDA ZPT CHECK FOR ASSEMBLY PASS 0278 00051 101400 SMI 0279 00052 0 01 00056 JMP SPEC GO FIND THE FILE 0280 00053 0 02 00000 LDA ZP CHECK FOR SPECIAL 0281 00054 101400 SMI 0282 00055 0 01 00127 JMP GOAS GO ASSEMBLE 0283 00056 000201 SPEC IAB GET THE B REGISTER SETTING 0284 00057 0 04 00540 STA TMP2 SAVE IT 0285 00060 0414 72 LGL 6 GET THE CONTINUATION BIT 0286 00061 0 04 00541 STA B7 SAVE IT 0287 00062 101400 SMI IS IT ON 0288 00063 0 01 00101 JMP EEE NO - OMIT CONTINUATION PROCESSOR 0289 00064 0 02 00542 LDA TAB IS THIS THE FIRST TIME THROUGH 0290 00065 100040 SZE SKIP IF IT IS 0291 00066 0 01 00127 JMP GOAS NO - GO ASSEMBLE 0292 00067 140040 HHH CRA YES - GET SECOND B REGISTER SETTING 0293 00070 000201 IAB 0294 00071 000000 HLT ALLOW OPERATOR TO SET FILE COUNT 0295 00072 000201 IAB PLACE IT IN A 0296 00073 0 04 00543 STA TTT SAVE IT FOR FUTURE REFERENCE 0297 00074 140407 TCA 0298 00075 0 04 00544 STA COUN SAVE IT FOR COUNTING 0299 00076 0 02 00227 LDA NOP1 0300 00077 0 04 00407 STA HL1 0301 00100 0 04 00542 STA TAB MAKE TAB NON ZERO 0302 00101 0 02 00537 EEE LDA DEVD PICK UP THE I/O OPTIONS 0303 00102 0414 71 LGL 7 A(1) WILL BE SET IF MAG INPUT WAS SELECTED 0304 00103 101400 SMI SKIP IF MAG INPUT 0305 00104 0 01 00127 JMP GOAS NO - GET OUT 0306 00105 0 02 00540 LDA TMP2 GET THE B REGISTER SETTING 0307 00106 0404 62 LGR 14 PUT MTU NUMBER IN BITS 15 AND 16 0308 00107 101040 SNZ IF ZERO, USE MTU 1 0309 00110 141206 AOA 0310 00111 0 04 00125 STA KEM5 SAVE MTU NUMBER 0311 00112 0 02 00540 LDA TMP2 GET B AGAIN 0312 00113 0 03 00573 ANA ='777 ISOLATE STARTING FILE NUMBER 0313 00114 101040 SNZ IF ZERO, WE ARE AT THE RIGHT PLACE 0314 00115 0 01 00127 JMP GOAS NO POSITIONING REQUIRED 0315 00116 0 04 00545 STA TMP3 STORE FILE NUMBER 0316 00117 140407 TCA COMPLEMENT FILE NUMBER FOR COUNTING 0317 00120 0 04 00546 STA KEM6 SET COUNTER 0318 00121 0 12 00546 TT IRS KEM6 ARE WE AT THE DESIRED FILE