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

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

0279 00127 0 10 00065 JST PNC AND PUNCH 0280 00130 0 02 00441 LDA SOM LOAD START-OF-MESSAGE 0281 00131 74 0002 OTA '2 PUNCH 0282 00132 0 01 00131 JMP *-1 (DELAY IF PUNCH NOT READY) 0283 00133 0 02 00435 LDA N50 INITIALIZE 0284 00134 0 04 00451 STA PNCT PUNCH COUNT 0285 00135 0 02 00446 LDA BLCT INITIALIZE CHECKSUM 0286 00136 0 04 00452 STA CKSM WITH BLOCKCOUNT 0287 00137 0 12 00446 IRS BLCT AND INCRENENT BLOCKCOUNT 0288 00140 0 02 00444 LDA FADD LOAD FIRST ADDRESS OF BLOCK 0289 00141 0 07 00470 SUB =1 0290 00142 0 10 00277 JST LOOP AND PUNCH IT. 0291 00143 0 02 00443 LDA Z 0292 00144 0 04 00450 STA ZCNT 0293 00145 0 02 00455 LDA SAVE 0294 00146 0 01 00150 JMP *+2 0295 00147 0 12 00444 MOVE IRS FADD INCREMENT FIRST ADDRESS 0296 00150 0 12 00447 IRS WDCT AND WORD COUNT 0297 00151 0 05 00452 ERA CKSM UPDATE CHECKSUM WITH 0298 00152 0406 77 ARR 1 0299 00153 0 04 00452 STA CKSM CHARACTER JUST PUNCHED 0300 00154 0 12 00451 IRS PNCT INCREMENT PUNCHCOUNT 0301 00155 0 01 00157 JMP *+2 50 WORDS NOT YET PUNCHED 0302 00156 0 01 00226 JMP ENBL 50 WORDS PUNCHED-END BLOCK 0303 00157 0 10 00207 JST DECD CHECK IF ZCOUNT ZERO 0304 00160 0 01 00221 JMP GO NO,PUNCH STORED WORD 0305 00161 -0 02 00444 LDA* FADD YES, LOAD NEXT WORD FROM MEMORY 0306 00162 100040 SZE IS IT ZERO 0307 00163 0 01 00201 JMP NZZZ NO 0308 00164 0 12 00450 IRS ZCNT YES,INCREMENT ZCOUNT 0309 00165 0 12 00447 IRS WDCT AND WORDCOUNT 0310 00166 0 12 00444 IRS FADD AND FIRST ADDRESS 0311 00167 0 12 00451 IRS PNCT BUMP WORD COUNT 0312 00170 0 01 00213 JMP CKLA CHECK FOR LAST ADDRESS 0313 00171 0 02 00450 LDA ZCNT GO TERMINATE BLOCK 0314 00172 0 10 00277 JST LOOP PUNCH NO. OF ZERO WORDS 0315 00173 0 05 00452 ERA CKSM CALCULATE NEW CKSM 0316 00174 0406 77 ARR 1 * 0317 00175 0 04 00452 STA CKSM SAVE IT 0318 00176 140040 CRA RESET ZCOUNT 0319 00177 0 04 00450 STA ZCNT DO IT 0320 00200 0 01 00226 JMP ENBL GO FINISH BLOCK 0321 00201 0 04 00454 NZZZ STA WD WORD NOT ZERO, STORE IT 0322 00202 0 02 00450 LDA ZCNT CHECK ZCOUNT 0323 00203 101040 SNZ IS IT ZERO 0324 00204 0 01 00223 JMP GO+2 0325 00205 0 10 00277 JST LOOP NO, TAKE ZCOUNT. PUNCH, 0326 00206 0 01 00151 JMP MOVE+2 RETURN 0327 00207 0 000000 DECD DAC ** DECISION SUBROUTINE 0328 00210 0 02 00450 LDA ZCNT CHECK ZCOUNT