*BASIC 11 15-12-70 EI PAGE 2

0058 00063 0 07 00322 SUB =-1 0059 00064 0 04 00243 STA J2A 0060 00065 0 07 00244 SUB J2AP 0061 00066 101040 SNZ ARE VALUES EQUAL ? 0062 00067 0 01 00121 JMP OUT YES 0063 00070 100400 SPL 0064 00071 0 01 00074 JMP *+3 0065 00072 0 02 00323 LDA ='100000 SET NEG.SIGN 0066 00073 100000 SKP 0067 00074 140040 POS CRA 0068 00075 0 04 00247 STA DIRP 0069 00076 0 05 00246 ERA DIR IS DIRECTION SAME 0070 00077 101040 SNZ 0071 00100 0 01 00121 JMP OUT 0072 00101 0 02 00240 LDA J2D UPDATE J2 0073 00102 0 04 00237 STA J2 0074 00103 0 06 00241 ADD J2T 0075 00104 0 04 00241 STA J2T 0076 00105 101000 NOP 0077 00106 0 12 00245 IRS M4 UPDATE COUNTER 0078 00107 0 01 00117 JMP OUT2 0079 00110 0 02 00241 LDA J2T COMPUTE AVERAGE OF 4 0080 00111 0405 76 ARS 2 0081 00112 0 04 00237 STA J2 0082 00113 140040 CRA CRA 0083 00114 0 04 00241 STA J2T 0084 00115 0 02 00330 LDA =-4 0085 00116 0 04 00245 STA M4 0086 00117 0 10 00156 OUT2 JST OUTP 0087 00120 -0 01 00030 JMP* BASC 0088 00121 0 02 00240 OUT LDA J2D SET POINTERS 0089 00122 0 04 00237 STA J2 0090 00123 0 06 00233 ADD HF2! FOR 0091 00124 0 04 00262 STA T COMPENSATING FACT. 0092 00125 0 06 00324 ADD =31 0093 00126 0 04 00263 STA T+1 0094 00127 -0 02 00262 LDA* T GET HF2 FROM TABLE 0095 00130 0 04 00300 STA HF2 0096 00131 -0 02 00263 LDA* T+1 " HF5 " " 0097 00132 0 04 00301 STA HF5 0098 00133 0 02 00235 LDA HORZ SET POHNTERS 0099 00134 0 06 00232 ADD F2T! FOR 0100 00135 0 04 00262 STA T 0101 00136 0 06 00321 ADD =11 COMPENSATING FACTORS 0102 00137 0 04 00263 STA T+1 0103 00140 -0 02 00262 LDA* T GET F2 FROM TABLE 0104 00141 0 04 00302 STA F2 0105 00142 -0 02 00263 LDA* T+1 " F5 " " 0106 00143 0 04 00303 STA F5 0107 00144 0 02 00240 LDA J2D COMPENSATE J2 0108 00145 0 06 00302 ADD F2 0109 00146 0 06 00300 ADD HF2 0110 00147 0 03 00324 ANA ='37 0111 00150 0 04 00237 STA J2 0112 00151 0 02 00235 LDA HORZ COMPENSATE HORIZ 0113 00152 0 06 00303 ADD F5 0114 00153 0 06 00301 ADD HF5