IOS-O16X

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

0462 * 0463 * D$OB: OUTPUT OBJECT TEXT BLOCK 0464 * 0465 00315 0 000000 D$OB DAC ** 0466 00316 0 02 00563 LDA HIGH SET A(1-8) TO INDICATE PUNCH ON 0467 00317 0 10 00502 JST HALT 0468 00320 0 00 00000 OBP *** ** CALL TO OBJECT TEXT DEVICE 0469 00321 0 000000 XAC OUTB ADDRESS OF OBJECT TEXT BUFFER 0470 00322 0 02 00564 LDA LOW SET A(9-16) TO INDICATE PUNCH OFF 0471 00323 0 10 00502 JST HALT HALT IF ASR-33 IS USED 0472 00324 -0 01 00315 JMP* D$OB RETURN 0473 * 0474 00325 0 02 00540 MAGB LDA TMP2 FETCH FIRST B REGISTER SETTING 0475 00326 0404 64 LGR 12 ISOLATE OBJECT MTU NO. 0476 00327 0 03 00572 ANA =3 0477 00330 101040 SNZ IF ZERO, USE MTU NO. 2 0478 00331 0 02 00571 LDA =2 0479 00332 0 04 00342 STA MTBN PLACE IT IN CALLING SEUUENCE 0480 00333 0 04 00425 STA MTEB SAVE IT FOR EOF OUTPUT 0481 00334 0 12 00552 IRS MWF1 SET BINARY WRITE FLAG 0482 00335 -0 02 00345 LDA* MBXC FETCH WORD COUNT OF BLOCK 0483 00336 0 04 00341 STA MWB PLACE IT IN THE CALLING SEQUENCE 0484 00337 0 10 00000 CALL O$MC WRITE IN BINARY MODE 0485 00340 0 000000 XAC OTBX BUFFER ADDRESS 0486 00341 0 00 00000 MWB *** ** WORD COUNT OF BLOCK 0487 00342 0 00 00000 MTBN *** ** MTU NO. 0488 00343 0 10 00505 JST EOT END OF TAPE RETURN 0489 00344 -0 01 00315 JMP* D$OB EXIT 0490 * 0491 00345 0 000000 MBXC XAC OUTB ADDRESS OF WORD CONTAINING BLOCK COUNT 0492 * 0493 * 0494 EJCT ...................................................