* MAIN 3 11-12-70 EI PAGE 1

0001 * MAIN 3 11-12-70 EI 0002 SUBR CHECK 0003 SUBR ALARM 0004 REL 0005 00000 0 02 00025 LDA INT! 0006 00001 0 04 00063 STA '63 0007 00002 0 10 00000 STRT CALL BASCIN 0008 00003 0 10 00000 CALL TRNDIN 0009 00004 000401 ENB 0010 00005 0 10 00000 CALL LINK 0011 00006 0 01 00004 JMP *-2 0012 00007 0 000000 INTR DAC ** 0013 00010 54 1006 INA '1006 0014 00011 0 01 00010 JMP *-1 0015 00012 0 03 00035 ANA ='140 0016 00013 100040 SZE 0017 00014 0 01 00020 JMP CORL 0018 00015 0 10 00000 CALL RADINT 0019 00016 -0 01 00007 JMP* INTR 0020 00017 0 10 00000 CALL CORR 0021 00020 0 02 00017 CORL LDA *-1 0022 00021 0 03 00034 ANA ='101777 0023 00022 0 06 00033 ADD ='2001 0024 00023 0 04 00024 STA *+1 0025 00024 0 00 00000 PZE 0026 00025 0 000007 INT! DAC INTR 0027 00026 000000 T BSZ 1 0028 00027 0 000000 CHECKDAC ** 0029 00030 -0 01 00027 JMP* CHECK 0030 00031 0 000000 ALARMDAC ** 0031 00032 0 01 00004 JMP STRT+2 0032 00033 002001 END 00034 101777 00035 000140 ALAR 000031 CHEC 000027 CORL 000020 INT! 000025 INTR 000007 STRT 000002 T 000026 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71