DAP-16M2

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 92

3160 * 3161 * UAC : UPDATE ASCII COUNTER 3162 * 3163 * 3164 * CALLING SEQUENCE: 3165 * JST UAC 3166 * DAC CNTR 3167 * DAC EXP 3168 * ......RETURN 3169 * 3170 * WHERE: 3171 * 3172 * CNTR - COUNTER IO BE UPDATED. IT IS FORMATTED 3173 * INTO FOUR FIELDS OF FOUR BITS EACH. 3174 * EACH FIELD MAY HAVE A VALUE FROM 0 TO 3175 * 9, AND CARRY FROM ONE FIELD IS 3176 * ADDED TO THE NEXT: OVERFLOW BEING IGNORED 3177 * IF THE VALUE EXCEEDS 9999. 3178 * EXP - TWO WORD BUFFER INTO WHICH THE ASCII 3179 * EXPANSION OF THE COUNTER IS PLACED. 3180 * 3181 * 3182 04264 0 000000 UAC DAC ** UPDATE ASCII COUNTER 3183 04265 -0 02 04264 LDA* UAC FETCH ADDRESS OF COUNTER 3184 04266 0 04 04430 STA CSRT SAVE IT 3185 04267 0 12 04264 IRS UAC INCREMENT ARGUMENT POINTER 3186 04270 -0 02 04264 LDA* UAC FETCH ADDRESS OF EXPANSION FIELD 3187 04271 0 04 04413 STA CHR SAVE IT 3188 04272 0 02 00700 LDA ONE SET COUNTER MODIFIER TO 1 3189 04273 0 04 00517 STA MOD 3190 04274 0 02 00626 LDA C12 SET CONSTANT FOR CARRY TEST 3191 04275 0 04 00510 STA ICON 3192 04276 0 02 00630 LDA C17 UNITS POSITION MASK 3193 04277 0 04 00520 LUDT STA MSK SET POSITION MASK 3194 04300 -0 02 04430 LDA* CSRT FETCH THE COUNTER 3195 04301 0 06 00517 ADD MOD ADD THE MODIFIER TO IT 3196 04302 -0 04 04430 STA* CSRT REPLACE THE COUNTER 3197 04303 0 03 00520 ANA MSK ISOLATE CURRENT POSITION 3198 04304 0 07 00510 SUB ICON TEST FOR POSITION OVERFLOW 3199 04305 100040 SZE SKIP IF OVERFLOW 3200 04306 0 01 04324 JMP LU1 NO OVERFLOW - GO EXPAND THE COUNTER 3201 04307 -0 02 04430 LDA* CSRT RETRIEVE THE COUNTER 3202 04310 0 07 00510 SUB ICON CLEAR CURRENT POSITION 3203 04311 -0 04 04430 STA* CSRT REPLACE THE COUNTER 3204 04312 0 02 00517 LDA MOD FETCH THE MODIFIER 3205 04313 0416 74 ALR 4 MOVE CARRY BIT TO NEXT POSITION 3206 04314 0 04 00517 STA MOD REPLACE THE MODIFIER 3207 04315 0 02 00510 LDA ICON FETCH CARRY TEST CONSTANT 3208 04316 0414 74 LGL 4 MOVE IT TO NEXT POSITION 3209 04317 0 04 00510 STA ICON REPLACE THE CONSTANT