SUBR SEQU ENCE 10-10- PAGE 1

0001 SUBR SEQU ENCE 10-10-70 EI 0002 * RECEIVES ONE OF THREE POSSIBLE INPUTS 0003 * CHECKS IF SAME AS LAST INPUT. IF SO 0004 * PUTS IT OUT - IF NOT UPDATES LAST IN- 0005 * PUT AMD REPEATS. 0006 REL 0007 00000 0 000000 SEQU DAC ** 0008 00001 0 10 00000 CALL RADA 0009 00002 0 01 00001 JMP *-1 0010 00003 0 01 00017 JMP UP 0011 00004 0 01 00021 JMP LEFT 0012 00005 0 02 00032 RGHT LDA =3 0013 00006 0 04 00027 STA SAVA 0014 00007 0 05 00026 ERA LAST 0015 00010 100040 SZE 0016 00011 0 01 00023 JMP OUT 0017 00012 0 02 00027 LDA SAVA 0018 00013 0 04 00026 STA LAST 0019 00014 0 06 00000 ADD SEQU 0020 00015 0 04 00000 STA SEQU 0021 00016 -0 01 00000 JMP* SEQU 0022 00017 0 02 00031 UP LDA =1 0023 00020 0 01 00006 JMP RGHT+1 0024 00021 0 02 00030 LEFT LDA =2 0025 00022 0 01 00006 JMP RGHT+1 0026 00023 0 02 00027 OUT LDA SAVA 0027 00024 0 04 00026 STA LAST 0028 00025 -0 01 00000 JMP* SEQU 0029 * 0030 00026 000000 LAST BSZ 1 0031 00027 000000 SAVA BSZ 1 0032 00030 000002 END 00031 000001 00032 000003 LAST 000026 LEFT 000021 OUT 000023 RGHT 000005 SAVA 000027 SEQU 000000 UP 000017 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71