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