TRNDIN, TREND

* 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