SUBR STRT REV E 1 PAGE 1

0001 SUBR STRT REV E 1 5-11-10 EI 0002 REL 0003 00000 0 000000 STRT DAC ** 0004 00001 001001 INH 0005 00002 0 02 00530 LDA =-3 0006 00003 0 04 00446 STA REPT SET COUNTER 0007 00004 140040 CRA 0008 00005 0 04 00451 STA T 0009 00006 0 04 00444 STA IND 0010 00007 0 04 00450 STA PHASE 0011 00010 54 1500 INA '1500 READ CONTROL REGISTER 0012 00011 0 01 00334 JMP INT2 INTERFACE 2 NOT ON 0013 00012 0 04 00447 STA SAVA 0014 00013 0 03 00527 ANA ='77 ARE ALL FFS OFF 0015 00014 101040 SNZ 0016 00015 0 01 00022 JMP LOWP YES 0017 00016 140040 CRA 0018 00017 0 10 00000 CALL HOLD NO - GO RESET 0019 00020 100000 SKP OK RETURN 0020 00021 0 01 00301 JMP ERR1 ERROR RETURN 0021 00022 0 02 00447 LOWP LDA SAVA 0022 00023 0 03 00526 ANA ='4000 INTERRUPT STILL ON? 0023 00024 100040 SZE 0024 00025 0 01 00336 JMP DOWN STRUCTURE IS DOW 0025 00026 000401 ENB 0026 00027 54 1012 INA '1012 0027 00030 0 01 00332 JMP INT1 INTERFACE 1 NOT ON 0028 00031 0 03 00526 ANA ='4000 BIG JACK AT ZERO? 0029 00032 100040 SZE 0030 00033 0 01 00432 JMP J6UP NO - GO COMPLAIN 0031 00034 0 02 00525 LDA ='10 OUTPUT REG. TEST. 0032 00035 74 0030 OTA '30 IF THEY ARE ON THIS 0033 00036 0 01 00035 JMP *-1 WILL SET BIT 11 IN R'12 0034 00037 0 12 00451 IRS T 0035 00040 0 01 00037 JMP *-1 0036 00041 54 1012 INA '1012 0037 00042 0 01 00041 JMP *-1 GET R.'12 0038 00043 0 03 00524 ANA ='40 IS IT SET 0039 00044 100040 SZE 0040 00045 0 12 00444 IRS IND YES - SET INDICATOR 0041 00046 140040 CRA RESET OUTPUTS 0042 00047 74 0022 OTA '22 0043 00050 0 01 00047 JMP *-1 0044 00051 74 0060 OTA '60 0045 00052 0 01 00051 JMP *-1 0046 00053 74 0030 OTA '30 0047 00054 0 01 00053 JMP *-1 0048 00055 0 12 00451 IRS T 0049 00056 0 01 00055 JMP *-1 0050 00057 54 1012 INA '1012 THIS SHOULD CHANGE IT 0051 00060 0 01 00057 JMP *-1 0052 00061 0 03 00524 ANA ='40 0053 00062 101040 SNZ 0054 00063 0 01 00070 JMP TEST IT IS RESET - CHEK IND 0055 00064 0 02 00444 LDA IND SET - IND SHOULD BE 0 0056 00065 100040 SZE 0057 00066 0 01 00346 JMP OUT NO - REGISTERS ARE OFF