RADA

SUBR RADA REV E 10-10-70 EI PAGE 2

0051 00060 0 12 00151 IRS L 0052 00061 100000 SKP 0053 00062 0 01 00076 JMP RST2 0054 00063 0 02 00151 LDA L 0055 00064 0 05 00156 ERA =1 0056 00065 100040 SZE 0057 00066 0 01 00133 JMP LEFT 0058 00067 0 02 00147 LDA TR 0059 00070 101400 SMI 0060 00071 0 01 00133 JMP LEFT 0061 00072 0 02 00150 LDA R 0062 00073 0 05 00156 ERA =1 0063 00074 101040 SNZ 0064 00075 0 01 00131 JMP UP 0065 00076 0 02 00160 RST2 LDA ='170000 0066 00077 0 04 00146 STA TL 0067 00100 0 01 00017 JMP INA3 0068 00101 0 12 00146 IRSL IRS TL 0069 00102 0 01 00017 JMP INA3 0070 00103 0 02 00147 LDA TR 0071 00104 101400 SMI 0072 00105 -0 01 00000 JMP* RADA 0073 00106 0 02 00150 LDA R 0074 00107 100400 SPL 0075 00110 -0 01 00000 JMP* RADA 0076 00111 100040 SZE 0077 00112 0 01 00137 JMP RGHT 0078 00113 0 01 00017 JMP INA3 0079 00114 0 000000 READ DAC ** 0080 00115 101000 NOP 0081 00116 0 04 00144 STA RAD 0082 00117 0 03 00155 ANA ='34 0083 00120 101040 SNZ 0084 00121 0 01 00126 JMP OUT 0085 00122 0 02 00144 LDA RAD 0086 00123 0 03 00154 ANA ='1600 0087 00124 100040 SZE 0088 00125 -0 01 00000 JMP* RADA 0089 00126 0 02 00143 OUT LDA JMP 0090 00127 0 04 00115 STA READ+1 0091 00130 -0 01 00114 JMP* READ 0092 00131 0 12 00000 UP IRS RADA 0093 00132 -0 01 00000 JMP* RADA 0094 00133 0 02 00000 LEFT LDA RADA 0095 00134 0 06 00153 ADD =2 0096 00135 0 04 00000 STA RADA 0097 00136 -0 01 00000 JMP* RADA 0098 00137 0 02 00000 RGHT LDA RADA 0099 00140 0 06 00152 ADD =3 0100 00141 0 04 00000 STA RADA