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

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

0379 00270 0 02 00442 LDA XOFF LOAD XOFF 0380 00271 74 0002 OTA '2 PUNCH 0381 00272 0 01 00271 JMP *-1 (DELAY IF PUNCH NOT READY) 0382 00273 0 02 00472 LDA ='377 0383 00274 74 0002 OTA '2 0384 00275 0 01 00274 JMP *-1 0385 00276 -0 01 00267 JMP* XOF RETURN 0386 00277 0 000000 LOOP DAC ** MAIN PUNCH LOOP 0387 00300 0 10 00306 JST TEST IS WORD A ZCOUNT 0388 00301 0 05 00467 ERA ='100000 YES, PUT ONE IN HIGH ORDER BIT 0389 00302 0 10 00331 JST PNCH PUNCH 0390 00303 0 10 00331 JST PNCH THREE 0391 00304 0 10 00331 JST PNCH CHARACTERS 0392 00305 -0 01 00277 JMP* LOOP RETURN 0393 00306 0 000000 TEST DAC ** 0394 00307 0 04 00455 STA SAVE SAVE WORD 0395 00310 0 02 00450 LDA ZCNT 0396 00311 101040 SNZ 0397 00312 0 01 00317 JMP *+5 0398 00313 0 05 00466 ERA =-1 TAKE TWO'S 0399 00314 0 06 00470 ADD =1 COMPLEMENT 0400 00315 0 04 00455 STA SAVE UPDATE SAVE 0401 00316 0 01 00321 JMP *+3 CONTINUE 0402 00317 0 12 00306 IRS TEST ZCOUNT ZERO, CO 0403 00320 0 02 00455 LDA SAVE REGAIN SAVE 0404 00321 0406 76 ARR 2 POSITION CHARACTER 0405 00322 0 04 00455 STA SAVE 0406 00323 0 03 00465 ANA ='36000 CLEAR TO CHARACTER 0407 00324 -0 01 00306 JMP* TEST RETURN 0408 00325 0404 66 HOB LGR 10 CHANGE HIGH-ORDER 0409 00326 0 03 00464 ANA ='37 BIT FROM CHANNEL 6 0410 00327 0 05 00463 ERA ='200 TO CHANNEL 8 0411 00330 0 01 00335 JMP *+5 AND GO TO PUNCH 0412 00331 0 000000 PNCH DAC ** PUNCH ROUTINE 0413 00332 100400 SPL CHECK FOR 0414 00333 0 01 00325 JMP HOB HIGH ORDER BIT 0415 00334 0404 66 LGR 10 POSITION CHARACTER 0416 00335 0 04 00456 STA SAVA STORE IT 0417 00336 0 03 00464 ANA ='37 SET UP FOR TRANSLATION CHECK 0418 00337 0 04 00457 STA SAVB STORE 0419 00340 0 02 00420 LDA ADC1 LOAD ADDRESS OF TABLE 0420 00341 0 04 00421 STA ADC2 SETUP FOR CHECK 0421 00342 -0 02 00421 LDA* ADC2 LOAD FROM TABLE 0422 00343 101040 SNZ CHECK FOR END OF TABLE 0423 00344 0 01 00362 JMP OK DONE, NO TRANSLATION NEEDED 0424 00345 0 03 00472 ANA ='377 CLEAR 9 HIGH-ORDER BITS 0425 00346 0 05 00457 ERA SAVB CHECK FOR 0426 00347 101040 SNZ MATCH 0427 00350 0 01 00353 JMP TRNS YES, TRANSLATE 0428 00351 0 12 00421 IRS ADC2 NO, INCREMENT ADDRESS