SOUND

* SUBR SOUND REV D PAGE 2

0051 00057 0 01 00056 JMP *-1 GET POSITION 0052 00060 0 03 00125 ANA ='37 0053 00061 0 07 00114 SUB HORZ 0054 00062 101400 SMI COMPARE MTH DESIRED P. 0055 00063 0 01 00066 JMP *+3 SET UP 1 BIT TOLLERAMCE 0056 00064 0 05 00123 ERA =-1 GET ABSOLUTE VALUE 0057 00065 0 07 00123 SUB =-1 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