IOS-O16X

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

0319 00122 100000 SKP NO - FORWARD SPACE A FILE 0320 00123 0 01 00127 JMP GOAS YES - START ASSEMBLY 0321 00124 0 10 00000 GAT CALL C$FF FORWARD FILE 0322 00125 0 00 00000 KEM5 *** ** ON SPECIFIED MTU 0323 00126 0 01 00121 JMP TT 0324 00127 0 02 00537 GOAS LDA DEVD GET THE A REGISTER SETTING 0325 00130 0 03 00557 ANA C7 MASK FOR LIST DEVICE CODE 0326 00131 0 07 00560 SUB C5 IF VALID CODE, IT NOW WILL BE NEGATIVE 0327 00132 101400 SMI SKIP IF VALID CODE 0328 00133 0 02 00561 LDA M4 INVALID CODE - FORCE ASR LISTING 0329 00134 0 04 00547 STA LDEV SAVE LIST DEVICE CODE 0330 00135 0 04 00000 STA 0 PLACE DEVICE CALL POINTER IN INDEX 0331 00136 1 02 00012 LDA LH,1 PICK UP HEADING INITIALIZATION CALL 0332 00137 0 04 00347 STA LHP PLACE THE CALL IN THE D$HD ROUTINE 0333 00140 1 02 00005 LDA LA,1 PICK UP LISTING CALL 0334 00141 0 04 00271 STA LAP PLACE THE CALL IN THE D$OL ROUTINE 0335 00142 1 02 00017 LDA LJ,1 PICK UP PAGE EJECT CALL 0336 00143 0 04 00353 STA LJP PUT THE CALL IN THE D$EJ ROUTINE 0337 00144 0 02 00537 LDA DEVD PICK UP THE DEVICE CODES 0338 00145 0404 75 LGR 3 POSITION OBJECT DEVICE SELECTION CODE 0339 00146 0 03 00557 ANA C7 ELIMINATE ANY OTHER BITS 0340 00147 0 07 00560 SUB C5 IF GOOD CODE, A IS NOW NEGATIVE 0341 00150 101400 SMI SKIP IF VALID CODE 0342 00151 0 02 00561 LDA M4 INVALID CODE - FORCE ASR OBJECT 0343 00152 0 04 00000 STA 0 INDEX MODIFIED DEVICE CALL POINTER 0344 00153 1 02 00024 LDA OB,1 PICK UP OUTPUT OBJECT BLOCK CALL 0345 00154 0 04 00320 STA OBP PUT CALL IN D$OB ROUTINE 0346 00155 1 02 00031 LDA OF,1 PICK UP OBJECT INITIALIZATION CALL 0347 00156 0 04 00356 STA BEGF PLACE IT IN D$SOM ROUTINE 0348 00157 1 02 00036 LDA OS,1 PICK UP OUTPUT EOM CALL 0349 00160 0 04 00363 STA ENDF PLACE IT IN D$EOM ROUTINE 0350 00161 0 02 00537 LDA DEVD GET DEVICE SELECTION CODES 0351 00162 0404 72 LGR 6 POSITION SOURCE SELECTION CODE 0352 00163 0 03 00557 ANA C7 CLEAR OTHER BITS 0353 00164 101040 SNZ SKIP IF A DEVICE HAS BEEN SELECTED 0354 00165 141206 AOA OTHERWISE SOURCE IS FROM ASR 0355 00166 0 07 00560 SUB C5 A SHOULD BE MINUS IF VALID CODE 0356 00167 101400 SMI SKIP IF VALID CODE 0357 00170 0 02 00561 LDA M4 OTHERWISE INPUT FROM THE ASR 0358 00171 0 04 00000 STA 0 INDEX MODIFIED DEVICE SELECTION CODE 0359 00172 1 02 00042 LDA IB,1 PICK UP INPUT SOURCE CALL 0360 00173 0 04 00225 STA IBP PLACE IT IN D$RD ROUTINE 0361 00174 0 02 00000 LDA 0 CHECK FOR SOURCE FROM ASR 0362 00175 0 06 00562 ADD C4 0363 00176 100040 SZE SKIP IF IT IS 0364 00177 0 01 00210 JMP AJGO NO - NO SPECIAL MODIFICATIONS REQUIRED 0365 00200 0 06 00547 ADD LDEV CHECK FOR LISTING ALSO ON ASR 0366 00201 0 06 00562 ADD C4 0367 00202 100040 SZE SKIP IF IT IS 0368 00203 0 01 00210 JMP AJGO LISTING IS ON SOMETHING ELSE