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

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

0229 00050 0 02 00432 LDA PBRP OTA '2 0230 00051 0 01 00021 JMP SOTA STORE IT AWAY 0231 00052 140040 CONT CRA 0232 00053 0 04 00446 STA BLCT BLOCK COUNT 0233 00054 0 04 00450 STA ZCNT AND ZCOUNT 0234 00055 0 04 00443 STA Z 0235 00056 14 0002 EPNC OCP '2 ENABLE PUNCH 0236 00057 0 10 00410 JST TPON TURN PUNCH ON 0237 00060 0 01 00077 JMP LDR GO TO PUNCH LEADER 0238 00061 0 000000 LEAD DAC ** ROUTINE TO PUNCH 12 INCHES OF LEADER 0239 00062 0 02 00436 LDA N120 SET INDEX FOR 120 FRAMES 0240 00063 0 04 00453 STA NDX AND GO TO 0241 00064 0 01 00070 JMP *+4 PUNCH 0242 00065 0 000000 PNC DAC ** 0243 00066 0 02 00065 LDA PNC STORE RETURN ADDRESS 0244 00067 0 04 00061 STA LEAD IN LEAD 0245 00070 140040 LLOP CRA LEADER LOOP 0246 00071 74 0002 OTA '2 OUTPUT LEADER 0247 00072 0 01 00071 JMP *-1 0248 00073 0 12 00453 IRS NDX 0249 00074 0 01 00070 JMP *-4 0250 00075 0 04 00447 STA WDCT 0251 00076 -0 01 00061 JMP* LEAD RETURN 0252 00077 0 10 00061 LDR JST LEAD GO TO PUNCH 12 INCHES OF LEADER 0253 00100 0 02 00471 LDA ='52 GET FIRST RETURN FOR CHAR SUBROUTINE 0254 00101 0 04 00731 STA CHAR 0255 00102 0 04 00704 STA SWCH INITIALIZE TO PRISTINE CONDITION 0256 00103 0 04 00715 STA WORD INITIALIZE TO PRISTINE CONDITION 0257 00104 0 02 00434 LDA NBL1 LENGTH OF FIRST LEVEL BOOT (NEG) 0258 00105 0 04 00453 STA NDX FIRST 0259 00106 0 02 00440 LDA LOAD BLOCK 0260 00107 0 04 00401 STA PN88 OF 0261 00110 0 10 00400 JST PN PUNCH BL1 0262 00111 0 12 00401 IRS PN88 OMIT THE OCP OF BL2 0263 00112 0 12 00401 IRS PN88 OMIT THE INA OF BL2 0264 00113 0 02 00437 LDA NBL2 LENGTH OF SECOND LEVEL BOOT (NEG) 0265 00114 0 04 00453 STA NDX BLOCK 0266 00115 0 10 00400 JST PN PUNCH SECOND LEVEL BOOT 0267 00116 0 02 00472 ORUB LDA ='377 0268 00117 74 0002 OTA '2 0269 00120 0 01 00117 JMP *-1 0270 00121 0 10 00410 JST TPON 0271 00122 0 10 00061 JST LEAD TURN PUNCH ON. PUNCH LEADER 0272 00123 0 01 00125 JMP BGBL+1 0273 * 0274 * BEGIN PUNCHING BLOCK OF CHARACTERS 0275 * 0276 00124 0 10 00410 BGBL JST TPON 0277 00125 0 02 00433 LDA N6 BEGIN BLOCK. SET INDEX FOR 0278 00126 0 04 00453 STA NDX SIX FRAMES OF LEADER