TRNDIN, TREND

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

0001 * SUBR TREND & TRNDIN 4-12-70 EI 0002 SUBR TRNDIN,TRNN 0003 SUBR TREND,TRND 0004 REL 0005 00000 0 000000 TRNN DAC ** 0006 00001 0 10 00164 JST RSET 0007 00002 140040 CRA 0008 00003 0 04 00215 STA V 0009 00004 -0 01 00000 JMP* TRNN 0010 * 0011 00005 0 000000 TRND DAC ** 0012 00006 0 04 00176 STA T 0013 00007 0 07 00215 SUB V LAST VALUE 0014 00010 101400 SMI 0015 00011 0 01 00014 JMP *+3 ABSOLUTE VALUE 0016 00012 0 05 00226 ERA =-1 0017 00013 0 06 00225 ADD =1 0018 00014 0 07 00224 SUB =4 0019 00015 101400 SMI 0020 00016 0 01 00024 JMP EVAL YES - EVALUATE 0021 00017 0 10 00164 JST RSET 0022 00020 0 02 00176 LDA T 0023 00021 0 04 00215 STA V 0024 00022 0 12 00005 IRS TRND BUMP EXIT 0025 00023 -0 01 00005 JMP* TRND 0026 00024 0 02 00176 EVAL LDA T 0027 00025 -0 04 00210 STA* D^ 0028 00026 0 04 00215 STA V 0029 00027 0 12 00210 IRS D^ 0030 00030 0 12 00175 IRS M4 0031 00031 -0 01 00005 JMP* TRND 0032 00032 101000 NOP 0033 00033 0 10 00164 JST RSET 0034 00034 0 02 00203 LDA D+1 0035 00035 0 07 00204 SUB D+2 0036 00036 0 10 00144 JST INVT 0037 00037 0 04 00213 STA DU 0038 00040 0 02 00205 LDA D+3 0039 00041 0 07 00206 SUB D+4 0040 00042 0 10 00144 JST INVT 0041 00043 0 04 00214 STA DX 0042 00044 0 02 00203 LDA D+1 0043 00045 0 07 00205 SUB D+3 0044 00046 0 10 00144 JST INVT 0045 00047 0 04 00216 STA DY 0046 00050 0 02 00204 LDA D+2 0047 00051 0 07 00206 SUB D+4 0048 00052 0 10 00144 JST INVT 0049 00053 0 07 00216 SUB DY 0050 00054 101040 SNZ
* 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
* SUBR TREND & TRNDIN 4-12-70 EI PAGE 3

0101 00137 0 06 00204 ADD D+2 0102 00140 0 06 00205 ADD D+3 0103 00141 0 06 00206 ADD D+4 0104 00142 0405 76 ARS 2 0105 00143 0 01 00160 JMP OUT+5 0106 00144 0 000000 INVT DAC ** 0107 00145 101400 SMI 0108 00146 -0 01 00144 JMP* INVT 0109 00147 0 04 00176 STA T 0110 00150 140040 CRA 0111 00151 0 07 00176 SUB T 0112 00152 -0 01 00144 JMP* INVT 0113 00153 101000 OUT NOP 0114 00154 0 04 00176 STA T 0115 00155 0405 76 ARS 2 0116 00156 0 06 00176 ADD T 0117 00157 0405 76 ARS 2 0118 00160 0 04 00215 STA V 0119 00161 101000 NOP 0120 00162 0 12 00005 IRS TRND 0121 00163 -0 01 00005 JMP* TRND 0122 00164 0 000000 RSET DAC ** 0123 00165 0 02 00207 LDA D! 0124 00166 0 04 00210 STA D^ 0125 00167 0 02 00217 LDA =-4 0126 00170 0 04 00175 STA M4 0127 00171 140040 CRA 0128 00172 0 04 00177 STA T+1 0129 00173 0 04 00215 STA V 0130 00174 -0 01 00164 JMP* RSET 0131 00175 000000 M4 BSZ 1 0132 00176 T BSS 4 0133 00202 D BSS 5 0134 00207 0 000203 D! DAC D+1 0135 00210 000000 D^ BSZ 1 0136 00211 000000 DA BSZ 1 0137 00212 000000 DB BSZ 1 0138 00213 000000 DU BSZ 1 0139 00214 000000 DX BSZ 1 0140 00215 000000 V BSZ 1 0141 00216 000000 DY BSZ 1 0142 00217 177774 END 00220 030000 00221 050000 00222 140000 00223 120000 00224 000004 00225 000001 00226 177777
* SUBR TREND & TRNDIN 4-12-70 EI PAGE 4

D 000202 D! 000207 DA 000211 DB 000212 DU 000213 DX 000214 DY 000216 D^ 000210 EVAL 000024 INVT 000144 M4 000175 ONDA 000132 ONDB 000134 OUT 000153 RSET 000164 RT 000061 RT1 000072 RT2 000136 T 000176 TRND 000005 TRNN 000000 V 000215 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71