* SUBR SOUND REV D PAGE 2
0058 00066 0 03 00122 ANA ='177776
0059 00067 101040 SNZ
0060 00070 0 01 00073 JMP ON
0061 00071 0 12 00117 IRS CYCL
0062 00072 0 01 00056 JMP INA
0063 00073 0 02 00120 ON LDA DLAY
0064 00074 0 10 00000 CALL WAIT
0065 00075 140040 CRA
0066 00076 0 04 00117 STA CYCL
0067 00077 0 02 00121 LDA SAVE
0068 00100 -0 01 00000 JMP*
SOUN
0069 00101 0 000000 MLT3 DAC **
0070 00102 0 04 00110 STA T+2
0071 00103 0414 77 LGL 1
0072 00104 0 06 00110 ADD T+2
0073 00105 -0 01 00101 JMP*
MLT3
0074 *
0075 00106 T BSS 4
0076 00112 000000 VERT BSZ 1
0077 00113 000000 PVRT BSZ 1
0078 00114 000000 HORZ BSZ 1
0079 00115 000000 PHOR BSZ 1
0080 00116 000000 LEVL BSZ 1
0081 00117 177770 CYCL OCT -10
0082 00120 000003 DLAY OCT 3
0083 00121 000000 SAVE BSZ 1
0084 00122 177776 END
00123 177777
00124 160000
00125 000037
00126 001740
CYCL 000117 DLAY 000120 HORZ 000114 INA 000056
LEVL 000116 MLT3 000101 ON 000073 PHOR 000115
PVRT 000113 SAVE 000121 SOUN 000000 T 000106
VERT 000112
0000 WARNING OR ERROR FLAGS
DAP-16 MOD 2 REV. C 01-26-71