DAP-16M2

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

3210 04320 0 02 00520 LDA MSK FETCH POSITION MASK 3211 04321 0414 74 LGL 4 MOVE IT TO NEXT POSITION 3212 04322 100040 SZE SKIP IF FOUR DIGITS HAVE BEEN UPDATED 3213 04323 0 01 04277 JMP LUDT OTHERWISE: UPDATE NEXT POSITION 3214 04324 -0 02 04430 LU1 LDA* CSRT FETCH THE UPDATED COUNTER 3215 04325 000201 IAB PLACE IT IN B REGISTER 3216 04326 0 02 00672 LDA M2 SET UP COUNTER FOR TWO WORD EXPANSION 3217 04327 0 04 00517 STA MOD 3218 04330 140040 LU2 CRA 3219 04331 0410 74 LLL 4 MOVE DIGIT INTO A 3220 04332 0414 74 LGL 4 POSITION IT 3221 04333 0410 74 LLL 4 MOVE IN NEXT DIGIT 3222 04334 0 06 00615 ADD ZX3 CONVERT DIGIT PAIR TO ASCII 3223 04335 -0 04 04413 STA* CHR PLACE CHAR. PAIR IN EXPANSION FIELD 3224 04336 0 12 04413 IRS CHR INCREMENT FIELD POINTER 3225 04337 0 12 00517 IRS MOD INCREMENT THE WORD COUNTER 3226 04340 0 01 04330 JMP LU2 GO BACK FOR NEXT DIGIT PAIR 3227 04341 0 12 04264 IRS UAC INCREMENT RETURN ADDRESS 3228 04342 -0 01 04264 JMP* UAC EXIT 3229 * 3230 * 3231 EJCT *************************************************************