TRNDIN, TREND

* SUBR TREND & TRNDIN 4-12-70 EI PAGE 2

0051 00055 0 01 00136 JMP RT2 DZ=DY 0052 00056 101400 SMI 0053 00057 0 01 00132 JMP ONDA DZ>DY 0054 00060 0 02 00223 LDA ='120000 DY>DZ 0055 00061 0 04 00211 RT STA DA 0056 00062 0 02 00214 LDA DX 0057 00063 0 07 00213 SUB DU 0058 00064 101040 SNZ 0059 00065 0 01 00136 JMP RT2 0060 00066 101400 SMI 0061 00067 0 01 00134 JMP ONDB DX>DU 0062 00070 0 02 00222 LDA ='140000 DU>DX 0063 00071 0 04 00212 STA DB 0064 00072 0 03 00211 RT1 ANA DA 0065 00073 0 04 00176 STA T 0066 00074 100400 SPL 0067 00075 0 01 00100 JMP *+3 0068 00076 0 02 00203 LDA D+1 0069 00077 0 04 00177 STA T+1 0070 00100 0 02 00176 LDA T 0071 00101 0414 77 LGL 1 0072 00102 0 04 00176 STA T 0073 00103 100400 SPL 0074 00104 0 01 00110 JMP *+4 0075 00105 0 02 00177 LDA T+1 0076 00106 0 06 00204 ADD D+2 0077 00107 0 04 00177 STA T+1 0078 00110 0 02 00176 LDA T 0079 00111 0414 77 LGL 1 0080 00112 0 04 00176 STA T 0081 00113 100400 SPL 0082 00114 0 01 00120 JMP *+4 0083 00115 0 02 00177 LDA T+1 0084 00116 0 06 00205 ADD D+3 0085 00117 0 04 00177 STA T+1 0086 00120 0 02 00176 LDA T 0087 00121 0414 77 LGL 1 0088 00122 0 04 00176 STA T 0089 00123 100400 SPL 0090 00124 0 01 00130 JMP *+4 0091 00125 0 02 00177 LDA T+1 0092 00126 0 06 00206 ADD D+4 0093 00127 100000 SKP 0094 00130 0 02 00177 LDA T+1 0095 00131 0 01 00153 JMP OUT 0096 00132 0 02 00221 ONDA LDA ='50000 0097 00133 0 01 00061 JMP RT 0098 00134 0 02 00220 ONDB LDA ='30000 0099 00135 0 01 00072 JMP RT1 0100 00136 0 02 00203 RT2 LDA D+1