ACOUSTIC PUNCHOUT

* ACOUSTIC PUNCHOUT PAGE 1

0001 * ACOUSTIC PUNCHOUT 0002 * 23-10-70 EI 0003 REL 0004 00000 0 01 00003 JMP ST1 0005 00001 0 02 00105 LDA JMP! 0006 00002 0 04 00034 STA LGR PREPARE TO SKIP SHIFT 0007 00003 0 02 00106 ST1 LDA LGR! 0008 00004 0 04 00034 STA LGR RESTORE SHIFT 0009 00005 0 02 17700 LDA '17700 0010 00006 0 04 00077 STA STO^ 0011 00007 0 02 00115 LDA =-256 0012 00010 0 04 00100 STA TIME 0013 00011 0 02 00114 LDA =-16 0014 00012 0 04 00101 STA M16 0015 00013 0 02 00113 LDA =-64 0016 00014 0 04 00103 STA M64 0017 00015 14 0104 OCP '104 0018 00016 0 02 00112 LDA =-24 0019 00017 0 04 00102 STA M24 0020 00020 140040 CRA 0021 00021 74 0004 OTA 4 0022 00022 0 01 00021 JMP *-1 0023 00023 0 12 00102 IRS M24 0024 00024 0 01 00021 JMP *-3 PUNCH LEADER 0025 00025 0 02 00111 LDA ='377 0026 00026 74 0004 OTA 4 PUNCH START MARKER 0027 00027 0 01 00026 JMP *-1 0028 00030 0 12 00100 ST IRS TIME 0029 00031 100000 SKP 0030 00032 0 01 00047 JMP END TIME UP - GO PUNCH TAIL 0031 00033 -0 02 00077 LDA* STO^ 0032 00034 0404 64 LGR LGR 12 GET BOTTOM BITS 0033 00035 0 12 00103 IRS M64 0034 00036 100000 SKP 0035 00037 0 01 00063 JMP OUT GO PUNCH 64 MARKER 0036 00040 0 12 00101 ST2 IRS M16 0037 00041 100000 SKP 0038 00042 0 01 00071 JMP OUT1 GO PUNCH 16 MARKER 0039 00043 74 0004 ST3 OTA 4 0040 00044 0 01 00043 JMP *-1 0041 00045 0 12 00077 IRS STO^ 0042 00046 0 01 00030 JMP ST 0043 00047 0 02 00111 END LDA ='377 0044 00050 74 0004 OTA 4 PUNCH END MARKER 0045 00051 0 01 00050 JMP *-1 0046 00052 0 02 00112 LDA =-24 0047 00053 0 04 00102 STA M24 0048 00054 140040 CRA 0049 00055 74 0004 OTA 4 PUNCH TRAILER 0050 00056 0 01 00055 JMP *-1