Previous File Previous Page Single Page Next Page Next File

* 0066-001-H003 (GEN-IOL) DRAWING NO. 41286164-001-01 PAGE 11

0501 * 0502 * USING THE CHARACTER INPUT FILL ROUTINE. SPACES ('240) ARE 0503 * INSERTED INTO THE BUFFER, STARTING AT THE NEXT CHARACTER 0504 * POSITION, UP TO BUT NOT INCLUDING THE FIRST TAB POSITION WHOSE 0505 * VALUE IS GREATER THAN THE NEXT CHARACTER POSITION. IF NO SUCH 0506 * TAB POSITION EXISTS. ONE SPACE IS INSERTED USING CHARACTER INPUT 0507 * FILL. 0508 * 0509 * CHARACTER INPUT FILL 0510 * 0511 * IF THE A-REGISTER CONTAINS '210 (BS, CONTROL 'H'). THE CHARACTER 0512 * POINTER IS DECREMENTED BY 1 UNLESS IT IS ALREADY 1. 0513 * OTHERWISE, IF THE BUFFER IS FULL (AS INDICATED BY THE POINTER), 0514 * THE 'BUFFER FULL' EXIT IS TAKEN, BUT IF NOT, BITS 1-8 OF THE 0515 * A-REGISTER ARE INSERTED IN THE NEXT CHARACTER POSITION, THE 0516 * POINTER IS INCREMENTED BY 1, AND THE NORMAL RETURN IS TAKEN. 0517 * TWO 8-BIT CHARACTERS PER WORD ARE STORED IN THE BUFFER. 0518 * THE X-REGISTER IS NOT USED. BUT THE CONTENT OF THE A-REGISTER IS 0519 * NOT PRESERVED. 0520 * 0521 * CHARACTER OUTPUT INITIALISE 0522 * 0523 * TWO CHARACTER POINTERS, INDICATING CURRENT CHARACTER AND LAST 0524 * CHARACTER, ARE SET TO ZERO. 0525 * THE X-REGISTER IS NOT USED. 0526 * 0527 * CHARACTER OUTPUT EXTRACT 0528 * 0529 * IF THE BUFFER IS EXHAUSTED (AS INDICATED BY THE CURRENT CHARACTER 0530 * POINTER). THE APPROPRIATE EXIT IS TAKEN. OTHERWISE; THE BUFFER 0531 * IS SCANNED FROM THE LAST CHARACTER POSITION UNTIL EITHER 0532 * 0533 * A) THE BUFFER IS EXHAUSTED. WHEN THE APPROPRIATE EXIT IS 0534 * TAKEN 0535 * 0536 * OR B) A NON-SPACE CHARACTER IS FOUND. IN POSITION P, SAY. 0537 * 0538 * IN CASE B. IF A TAB POSITION T EXISTS SUCH THAT LAST CHARACTER 0539 * POSITION + 1 < T < OR = P, RETURN IS EFFECTED WITH A BACKSLASH 0540 * (TAB) CHARACTER ('334) IN THE A-REGISTER, OTHERWISE RETURN IS 0541 * EFFECTED WITH THE CHARACTER AFTER THE LAST CHARACTER POSITION IN 0542 * THE A-REGISTER. 0543 * 0544 * CHARACTER COUNT, TAB COUNT NEGATED, TAB TABLE LINK 0545 * 0546 * THIS MODULE ADDITIONALLY CONTAINS A DEFAULT TAB TABLE. 0547 * THE DEFAULT VALUES ARE: CHARACTER COUNT (C$CC) 80 0548 * 0549 * TAB COUNT NEGATED (C$TC) -4 0550 *
Previous File Previous Page Single Page Next Page Next File