DAP-16M2

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

3327 * 3328 * CHR : FETCH NEXT CHARACTER FROM INPUT BUFFER 3329 * 3330 * 3331 * CALLING SEQUENCE: 3332 * JST CHR 3333 * ......RETURN NEXT CHARACTER IN A ON RETURN 3334 * 3335 * 3336 * RESULTS: 3337 * 3338 * TERM=INPB(CHRC) 3339 * CHRC=CHRC+1 3340 * 3341 * 3342 04413 0 000000 CHR DAC ** FETCH NEXT CHARACTER 3343 04414 0 02 00521 LDA CHRC FETCH CHARACTER COUNTER 3344 04415 0406 77 ARR 1 A(1)= CHAR. POINTER, A(2-16)= WORD NUMBER 3345 04416 0 06 00714 ADD INPD ADD BUFFER ADDRESS TO WORD NUMBER 3346 04417 140320 CSA C=CHARACTER POINTER, A(1)= 0 3347 04420 0 04 00520 STA MSK SAVE WORD POINTER 3348 04421 -0 02 00520 LDA* MSK FETCH CHARACTER PAIR FROM SOURCE BUFFER 3349 04422 101001 SSC SKIP IF FETCHING LOW ORDER CHAR. 3350 04423 141340 ICA REPOSITION HIGH ORDER CHARACTER 3351 04424 141050 CAL ISOLATE LOW ORDER CHARACTER 3352 04425 0 04 00444 STA TERM PLACE IT IN TERM FOR FUTURE REFERENCE 3353 04426 0 12 00521 IRS CHRC INCREMENT THE CHARACTER COUNT 3354 04427 -0 01 04413 JMP* CHR EXIT 3355 * 3356 * 3357 EJCT *************************************************************