* SUBR SOUND REV D PAGE 1

0001 * SUBR SOUND REV D 0002 REL 0003 SUBR SOUND,SOUN 14-12-70 EI 0004 00000 0 000000 SOUN DAC ** 0005 00001 0 10 00000 CALL CORR 0006 00002 101000 NOP 0007 00003 0 04 00106 STA T 0008 00004 54 1011 INA '1011 0009 00005 0 01 00004 JMP *-1 0010 00006 0 04 00107 STA T+1 0011 00007 0414 65 LGL 11 0012 00010 0405 65 ARS 11 0013 00011 0 04 00115 STA PHOR 0014 00012 0 02 00107 LDA T+1 0015 00013 0414 72 LGL 6 0016 00014 0405 65 ARS 11 0017 00015 0 04 00113 STA PVRT 0018 00016 101000 NOP 0019 00017 54 1006 INA '1006 0020 00020 0 01 00017 JMP *-1 0021 00021 0414 66 LGL 10 0022 00022 0 04 00116 STA LEVL 0023 00023 0 02 00106 LDA T 0024 00024 0 03 00126 ANA ='1740 SEPARATE VERTICAL 0025 00025 0414 72 LGL 6 AND HORZ. SHIFTS 0026 00026 0405 65 ARS 11 0027 00027 0 10 00101 JST MLT3 GO MULTIPLY BY 3 0028 00030 0 06 00113 ADD PVRT 0029 00031 0 10 00000 CALL OVFL 0030 00032 0 03 00125 ANA ='37 0031 00033 0414 73 LGL 5 0032 00034 0 04 00112 STA VERT 0033 00035 0 02 00106 LDA T 0034 00036 0 03 00124 ANA ='160000 0035 00037 100040 SZE 0036 00040 0 10 00000 CALL ALARM 0037 00041 0 02 00106 LDA T 0038 00042 0414 65 LGL 11 0039 00043 0405 65 ARS 11 0040 00044 0 10 00101 JST MLT3 0041 00045 0 06 00115 ADD PHOR 0042 00046 0 10 00000 CALL OVFL 0043 00047 0 03 00125 ANA ='37 0044 00050 0 04 00114 STA HORZ 0045 00051 0 06 00112 ADD VERT 0046 00052 0 06 00116 ADD LEVL 0047 00053 74 0021 OTA '21 COMBINE VITH VERT* 0048 00054 0 01 00053 JMP *-1 AND OUTPUT* 0049 00055 0 04 00121 STA SAVE 0050 00056 54 1011 INA INA '1011 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