BASCIN, BASIC

*BASIC 11 15-12-70 EI PAGE 2

0051 00054 0 05 00250 ERA SIGN IS SIGN SAME AS LAST? 0052 00055 100040 SZE 0053 00056 0 01 00074 JMP POS NO - DIRECTION + 0054 00057 0 02 00240 LDA J2D YES - EVALUATE DIR. 0055 00060 101400 SMI 0056 00061 0 01 00064 JMP *+3 GET ABSOLUTE VALUE 0057 00062 0 05 00322 ERA =-1 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