NAME: (PAL-AP) DOC. 70180311000 REV.H

* NAME: (PAL-AP) DOC. 70180311000 REV.H PAGE 10

0429 00352 0 01 00342 JMP *-8 AND RETURN. 0430 00353 0 02 00456 TRNS LDA SAVA PICK UP ORIGINAL CHARACTER 0431 00354 0 03 00463 ANA ='200 CLEAR ALL BUT BIT 8 0432 00355 0 04 00456 STA SAVA SAVE BIT 0433 00356 -0 02 00421 LDA* ADC2 PICK UP SUBROUTINE 0434 00357 0404 70 LGR 8 CHARACTER 0435 00360 0 05 00456 ERA SAVA OBTAIN CORRECT BIT 8 0436 00361 0 01 00363 JMP *+2 PUNCH 0437 00362 0 02 00456 OK LDA SAVA NO TRANSLATION, GET CHARACTER 0438 00363 74 0002 OTA '2 PUNCH 0439 00364 0 01 00363 JMP *-1 (DELAY IF PUNCH NOT READY) 0440 00365 0 02 00455 LDA SAVE POSITION WORD 0441 00366 0416 72 ALR 6 FOR NEXT CHARACTER 0442 00367 0 04 00455 STA SAVE STORE CHARACTER 0443 00370 -0 01 00331 JMP* PNCH AND RETURN 0444 00371 14 0102 DONE OCP '102 0445 00372 0 01 00002 JMP BEGN RESTART IF DESIRED 0446 00373 0 000000 P DAC ** 0447 00374 0406 70 ARR 8 0448 00375 74 0002 OTA '2 PUNCH 0449 00376 0 01 00375 JMP *-1 0450 00377 -0 01 00373 JMP* P 0451 00400 0 00 00000 PN PZE ** 0452 00401 0 00 00000 PN88 PZE ** 0453 00402 0 10 00373 JST P PUNCH LOAD PROGRAM 0454 00403 0 10 00373 JST P IN 8-8 FORMAT 0455 00404 0 12 00401 IRS PN88 0456 00405 0 12 00453 IRS NDX 0457 00406 0 01 00401 JMP PN88 0458 00407 -0 01 00400 JMP* PN 0459 00410 0 000000 TPON DAC ** TURN PUNCH ON 0460 00411 0 02 00461 LDA PON OUTPUT '222 0461 00412 74 0002 OTA '2 IF ASR-35 IN USE. 0462 00413 0 01 00412 JMP *-1 0463 00414 0 02 00462 LDA RUB OUTPUT '377 0464 00415 74 0002 OTA '2 IF ASR-35 IN USE. 0465 00416 0 01 00415 JMP *-1 0466 00417 -0 01 00410 JMP* TPON 0467 00420 0 000422 ADC1 DAC C1 ADDRESS OF C1 0468 00421 ADC2 BSS 1 0469 * 0470 * TRANSLATION TABLE. ILLEGAL CHARACTER (7 LOW ORDER BITS) 0471 * IN RIGHT-HAND HALF, AND SUBSTITUTION CHARACTER (7 LOW ORDER BITS) 0472 * IN LEFT-HAND HALF. 0473 * 0474 00422 077423 C1 OCT 77423,77021,76412,76005,0 00423 077021 00424 076412 00425 076005 00426 000000