Previous Page Single Page Next Page  

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

0329 00211 101040 SNZ IS IT ZERO 0330 00212 0 12 00207 IRS DECD YES, INCREMENT RETURN ADDRESS 0331 00213 0 02 00444 CKLA LDA FADD NO, CHECK 0332 00214 0 07 00470 SUB =1 0333 00215 0 05 00445 ERA LADD LAST 0334 00216 100040 SZE ADDRESS 0335 00217 -0 01 00207 JMP* DECD NOT REACHED. RETURN 0336 00220 0 01 00263 JMP CHEK LAST ADDRESS REACHED, CHECK ZCOUNT 0337 00221 140040 GO CRA RESTORE 0338 00222 0 04 00450 STA ZCNT ZCOUNT TO ZERO 0339 00223 0 02 00454 LDA WD TAKE STORED WORD 0340 00224 0 10 00277 JST LOOP AND PUNCH IT 0341 00225 0 01 00147 JMP MOVE AND CONTINUE. 0342 * 0343 * END BLOCK 0344 * 0345 00226 0 02 00450 ENBL LDA ZCNT 0346 00227 0 04 00443 STA Z 0347 00230 140040 CRA 0348 00231 0 04 00450 STA ZCNT 0349 00232 0 02 00447 LDA WDCT 0350 00233 0 05 00452 ERA CKSM WITH CHECKSUM 0351 00234 0 10 00277 JST LOOP AND PUNCH 0352 00235 0 10 00267 JST XOF PUNCH XOFF 0353 00236 0 01 00124 JMP BGBL BEGIN NEW BLOCK 0354 00237 0 10 00277 ZNZ JST LOOP ZCOUNT NOT ZERO, PUNCH IT. 0355 00240 0 05 00452 ERA CKSM UPDATE 0356 00241 0406 77 ARR 1 0357 00242 0 04 00452 STA CKSM CHECKSUM 0358 00243 140040 CRA 0359 00244 0 04 00450 STA ZCNT 0360 00245 0 02 00447 LDA WDCT LOAD WORD COUNT AND 0361 00246 0 05 00452 ERA CKSM ERA IT WITH CHECKSUM 0362 00247 0 10 00277 JST LOOP PUNCH CHECKSUM 0363 00250 0 10 00267 JST XOF PUNCH TWO XOF'S 0364 00251 0 10 00410 JST TPON TURN PUNCH ON 0365 00252 0 10 00267 JST XOF SECOND XOF 0366 00253 0 10 00410 JST TPON 0367 00254 0 10 00061 JST LEAD TURN PUNCH ON, PUNCH LEADER 0368 00255 0 02 00460 LDA CODE PICKUP OUTPUT DEVICE 0369 00256 0416 77 ALR 1 CHECK IF ASR-35 0370 00257 101400 SMI * 0371 00260 100000 SKP EITHER 33 OR H/S 0372 00261 0 10 00267 JST XOF STOP PUNCH ON ASR-35 0373 00262 0 01 00371 JMP DONE GO WRAP UP 0374 00263 0 02 00450 CHEK LDA ZCNT IS ZCOUNT ZERO 0375 00264 100040 SZE 0376 00265 0 01 00237 JMP ZNZ NO, PUNCH IT 0377 00266 0 01 00245 JMP ZNZ+6 0378 00267 0 000000 XOF DAC ** PUNCH XOFF ROUTINE
  Previous Page Single Page Next Page