BASIC-PTLB

* NAME BASIC-PTLB DOC. ??????????? REV. ? PAGE 11

0325 * 0326 * 0327 * PUNCH LEADER 0328 * 0329 * CALLING SEQUENCE: 0330 * 0331 * JST PLDR 0332 * ......RETURN 0333 * 0334 * 0335 * '100 ZERO FRAMES ARE PUNCHED (6.4 INCHES). 0336 * 0337 * 0338 00156 0 000000 PLDR DAC ** PUNCH LEADER 0339 00157 0 35 00000 LDX M100 INITIALIZE COUNTER 0340 00160 140040 CRA OUTPUT ZERO FRAME 0341 00161 74 0002 OTA '0002 OUTPUT TO PUNCH 0342 00162 0 01 00161 JMP *-1 0343 00163 0 12 00000 IRS 0 INCREMENT COUNTER 0344 00164 0 01 00161 JMP *-3 LOOP IF NON-ZERO 0345 00165 -0 01 00156 JMP* PLDR RETURN WHEN COUNTER HAS REACHED ZERO 0346 * 0347 * 0348 00166 000200 C200 OCT 200 0349 00167 000177 C177 OCT 177 0350 * 0351 * 0352 END BRKC 000117 BRKF 000000E C1 000000E C177 000167 C200 000166 C215 000000E C240 000000E C300 000000E C337 000000E CPOS 000000E DBP 000000E EOLA 000144 EOLP 000141 ETP 000152 IN01 000107 IN02 000114 INA1 000074 IP01 000002 IP02 000010 IP03 000011 IP04 000014 IP05 000015 IP06 000024 IP07 000036 IP08 000042 IP09 000047 IPUT 000000 ITP 000146 LF01 000135 LF02 000137 LFCR 000124 LODF 000000E LSTF 000000E M100 000000E OT01 000064 OT02 000067 OT03 000073 OTA1 000051 PLDR 000156 SBP 000000E SCHR 000000E TYPE 000000E 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71