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
* ACOUSTIC PUNCHOUT PAGE 2

0051 00057 0 12 00102 IRS M24 0052 00060 0 01 00055 JMP *-3 0053 00061 000000 HLT 0054 00062 101000 NOP 0055 00063 0 06 00110 OUT ADD ='300 0056 00064 0 04 00104 STA TEMP 0057 00065 0 02 00113 LDA =-64 0058 00066 0 04 00103 STA M64 0059 00067 0 02 00104 LDA TEMP 0060 00070 0 01 00040 JMP ST2 0061 00071 0 06 00107 OUT1 ADD ='20 0062 00072 0 04 00104 STA TEMP 0063 00073 0 02 00114 LDA =-16 0064 00074 0 04 00101 STA M16 0065 00075 0 02 00104 LDA TEMP 0066 00076 0 01 00043 JMP ST3 0067 00077 000000 STO^ BSZ 1 0068 00100 000000 TIME BSZ 1 0069 00101 000000 M16 BSZ 1 0070 00102 000000 M24 BSZ 1 0071 00103 000000 M64 BSZ 1 0072 00104 000000 TEMP BSZ 1 0073 00105 0 01 00043 JMP! JMP ST3 0074 00106 0404 64 LGR! LGR 12 0075 037600 STO! COMN 0076 037577 TIM! COMN 1 0077 00107 000020 END 00110 000300 00111 000377 00112 177750 00113 177700 00114 177760 00115 177400 END 000047 JMP! 000105 LGR 000034 LGR! 000106 M16 000101 M24 000102 M64 000103 OUT 000063 OUT1 000071 ST 000030 ST1 000003 ST2 000040 ST3 000043 STO! 037600A STO^ 000077 TEMP 000104 TIM! 037577A TIME 000100 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71