DAP-16M2

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

3232 * 3233 * OPT : OCTAL TO ASCII CONVERSION ROUTINE 3234 * 3235 * 3236 * CALLING SEQUENCE: 3237 * LDA VALU 3238 * JST OPT 3239 * VFD 8:D,8,COL 3240 * 3241 * WHERE: 3242 * 3243 * VALU - OCTAL VALUE THAT IS TO BE CONVERTED: POSITIONED 3244 * SO THAT IHE FIRST DIGIT IS IN A(1-3): ECT. 3245 * D - NUMBER OF DIGITS T0 BE CONVERTED 3246 * COL - ONE LESS THAN THE STARTING COLUMN 3247 * NUMBER IN WHICH IHE RESULT IS TO BE PLACED 3248 * 3249 * 3250 04343 0 000000 OPT DAC ** OCTAL - ASCII CONVERSION ROUTINE 3251 04344 000201 IAB PLACE VALUE IN B REGISTER 3252 04345 -0 02 04343 LDA* OPT FETCH PARAMETER WORD 3253 04346 141140 ICL POSITION DIGIT COUNT 3254 04347 140407 TCA COMPLEMENT THE COUNT 3255 04350 0 04 00477 STA VFD2 SAVE THE COUNT 3256 04351 -0 02 04343 LDA* OPT FETCH PARAMETER WORD 3257 04352 141050 CAL ISOLATE COLUMN NUMBER 3258 04353 0 04 04361 STA OPCL PLACE IT IN CHAR. INSERTION CALLING SEQ. 3259 04354 0 12 04343 IRS OPT INCREMENT RETURN ADDRESS 3260 04355 140040 LOPT CRA 3261 04356 0410 75 LLL 3 POSITION NEXT DIGIT 3262 04357 0 06 00643 ADD C260 CONVERT IT TO ASCII 3263 04360 0 10 04430 JST CSRT PLACE IT IN LISTING BUFFER 3264 04361 000000 OPCL OCT 0 COLUMN POINTER 3265 04362 0 12 04361 IRS *-1 INCREMENT COLUMN POINTER 3266 04363 0 12 00477 IRS VFD2 INCREMENT DIGIT COUNT 3267 04364 0 01 04355 JMP LOPT GO BACK FOR NEXT DIGIT 3268 04365 -0 01 04343 JMP* OPT EXIT 3269 * 3270 * ADV : ADVANCE CHARACTER POINTER TO NEXT FIELD 3271 * 3272 * 3273 * CALLING SEQUENCE: 3274 * JST ADV 3275 * ......RETURN 3276 * 3277 * 3278 * RESULTS: 3279 * 3280 * CHRC IS SET TO POINT TO THE FIRST CHARACTER 3281 * IN THE NEXT STATEMENT FIELD.