IOS-O16X

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

0495 * 0496 * D$HD: INITIALIZE HEADING 0497 * 0498 00346 0 000000 D$HD DAC ** 0499 00347 0 00 00000 LHP *** ** CALL TO HEADING INITIALIZATION ROUTINE 0500 00350 0 000000 XAC OTPB BUFFER ADDRESS 0501 00351 -0 01 00346 JMP* D$HD RETURN 0502 * 0503 * 0504 * D$EJ: PAGE EJECT 0505 * 0506 * 0507 00352 0 000000 D$EJ DAC ** 0508 00353 0 00 00000 LJP *** ** CALL TO PAGE EJECT ROUTINE 0509 00354 -0 01 00352 JMP* D$EJ EXIT 0510 * 0511 * 0512 * D$SOM: OUTPUT LEADER IF PTP IS OBJECT DEVICE 0513 * 0514 00355 0 000000 D$SO DAC ** 0515 00356 0 00 00000 BEGF *** ** NOP OR CALL O$PLDR 0516 00357 -0 01 00355 JMP* D$SO EXIT 0517 * 0518 * 0519 * D$EOM: OUTPUT EOM CODE TO OBJECT DEVICE 0520 * 0521 00360 0 000000 D$EO DAC ** 0522 00361 0 02 00563 LDA HIGH TURN ON PUNCH INDICATOR 0523 00362 0 10 00502 JST HALT HALT IF ASR-33 IS OBJECT DEVICE 0524 00363 0 00 00000 ENDF *** ** OUTPUT EOM CODE GOES HERE 0525 00364 0 02 00564 LDA LOW TURN OFF PUNCH INDICATOR 0526 00365 0 10 00502 JST HALT 0527 00366 0 10 00355 JST D$SO OUTPUT TRAILER IF PTP IS OBJECT DEVICE 0528 00367 -0 01 00360 JMP* D$EO EXIT 0529 * 0530 * 0531 EJCT . . . . . . . . .