DAP-16M2

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

3358 * 3359 * CSRT: INSERT CHARACTER IN LISTING BUFFER 3360 * 3361 * 3362 * CALLING SEQUENCE: 3363 * LDA CHAR 3364 * JST CSRT 3365 * OCT COL 3366 * ......RETURN 3367 * 3368 * WHERE: 3369 * CHAR - CHARACTER TO BE INSERTED 3370 * COL - ONE LESS THAN COLUMN NUMBER THAT THE 3371 * CHARACTER IS TO BE PLACED 3372 * 3373 * 3374 04430 0 000000 CSRT DAC ** INSERT CHARACTER IN LISTING BUFFER 3375 04431 141050 CAL A(1-8)=0 3376 04432 0 04 04452 STA TRUN SAVE THE CHARACTER 3377 04433 -0 02 04430 LDA* CSRT FETCH COLUMN POINTER 3378 04434 0406 77 ARR 1 A(1)=CHAR. POSITION INDICATOR, A(2-16)=WORD 3379 04435 0 06 00715 ADD DCON ADD BUFFER ADDRESS TO WORD NUMBER 3380 04436 140320 CSA C=POSITION INDICATOR: A(1)=0 3381 04437 0 04 00520 STA MSK SAVE LIST BUFFER WORD POINTER 3382 04440 -0 02 00520 LDA* MSK FETCH CURRENT CONTENTS OF BUFFER WORD 3383 04441 101001 SSC SKIP IF CHAR. GOES TO LOW HALF OF WORD 3384 04442 141340 ICA SWAP CHARS. FOR THE INSERTION 3385 04443 141044 CAR A(9-16)=0 3386 04444 0 05 04452 ERA TRUN INSERT NEW CHARACTER 3387 04445 101001 SSC SKIP IF CHARS. IN RIGHT ORDER 3388 04446 141340 ICA REORDER THE CHARACTERS 3389 04447 -0 04 00520 STA* MSK REPLACE THE CHARACTER PAIR 3390 04450 0 12 04430 IRS CSRT INCREMENT THE RETURN ADDRESS 3391 04451 -0 01 04430 JMP* CSRT RETURN TO CALLER 3392 * 3393 * 3394 EJCT *************************************************************