AVER

REL PAGE 1

0001 REL 0002 SUBR AVER 0003 00000 0 000000 AVER DAC ** 0004 00001 -0 04 00036 STA* TAB^ NEW VALUE TO TABLE 0005 00002 0 10 00015 JST RP ROTATE POINTER 1 STEP 0006 00003 -0 06 00036 ADD* TAB^ 0007 00004 0 10 00015 JST RP 0008 00005 -0 06 00036 ADD* TAB^ 0009 00006 0 10 00015 JST RP 0010 00007 -0 06 00036 ADD* TAB^ ADD OTHER 3 VALUES 0011 00010 0 06 00040 ADD =2 CORRECTION FOR LOOSING REM 0012 00011 0404 76 LGR 2 DIVIDE BY 4 0013 00012 0 10 00015 JST RP 0014 00013 0 10 00015 JST RP SET POINTER FOR NEXT ENTRY 0015 00014 -0 01 00000 JMP* AVER --> EXIT 0016 * 0017 * 0018 00015 0 000000 RP DAC ** 0019 00016 0 04 00037 STA SAVA SAVE A 0020 00017 0 12 00036 IRS TAB^ 0021 00020 0 02 00035 LDA !TAB 0022 00021 0 07 00036 SUB TAB^ 0023 00022 100040 SZE 0024 00023 0 01 00026 JMP SET 0025 00024 0 02 00030 LDA TAB! 0026 00025 0 04 00036 STA TAB^ 0027 00026 0 02 00037 SET LDA SAVA 0028 00027 -0 01 00015 JMP* RP 0029 * 0030 * 0031 00030 0 000031 TAB! DAC TAB TABLE START 0032 00031 000000 TAB BSZ 4 " OF 4 0033 00035 0 000035 !TAB DAC * " END 0034 00036 0 000031 TAB^ DAC TAB " POINTER 0035 00037 000000 SAVA BSZ 1 0036 00040 000002 END !TAB 000035 AVER 000000 RP 000015 SAVA 000037 SET 000026 TAB 000031 TAB! 000030 TAB^ 000036 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71