IOS-O16X

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

0434 * 0435 * D$OL: LIST ONE LINE OF DATA 0436 * 0437 00270 0 000000 D$OL DAC ** 0438 00271 0 00 00000 LAP *** ** CALL TO LISTING DEVICE DRIVER 0439 00272 0 000000 XAC OTPB LIST BUFFER ADDRESS 0440 00273 -0 01 00270 JMP* D$OL RETURN 0441 * 0442 00274 0 02 00540 MAGL LDA TMP2 FETCH INITIAL B REGISTER SETTING 0443 00275 0404 66 LGR 10 ISOLATE LIST MTU NO. 0444 00276 0 03 00572 ANA =3 0445 00277 101040 SNZ IF ZERO, USE MTU 3 0446 00300 0 02 00572 LDA =3 0447 00301 0 04 00312 STA MTLN PLACE MTU NO. IN CALLING SEQUENCE 0448 00302 0 04 00432 STA MTEL SAVE IT FOR EOF CALL 0449 00303 0 12 00553 IRS MWF2 SET BCD WHITE FLAG 0450 00304 0 10 00000 CALL C$8TO6 CONVERT TO 6 BIT CODE 0451 00305 0 000000 XAC OTPB BUFFER ADDRESS 0452 00306 000074 DEC 60 60 WORD BUFFER 0453 00307 0 10 00000 CALL O$MA WRITE BCD 0454 00310 0 000000 XAC OTPB BUFFER ADDRESS 0455 00311 000074 DEC 60 60 WORD BUFFER 0456 00312 0 00 00000 MTLN *** ** LIST MTU NO. 0457 00313 0 10 00505 JST EOT END OF TAPE RETURN 0458 00314 -0 01 00270 JMP* D$OL RETURN 0459 * 0460 * 0461 EJCT . . . . . . . . . . . .