*COPY CONBUF 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').CON01 00001400 PRINT OFF,NOGEN 00001600 .CON01 ANOP 00001800 BUFFER DSECT 00002000 SPACE 00003000 *** BUFFER - CONSOLE FUNCTION INPUT BUFFER 00004000 * 00005000 * 0 +------------------------------------------------+ 00006000 * | | 00007000 * = BUFIN = 00008000 * | | 00009000 * 88 +-----------------------+------------------------+ 00010000 * | BUFNXT | BUFCNT | 00011000 * 90 +-----------------------+------------------------+ 00012000 * 00013000 *** BUFFER - CONSOLE FUNCTION INPUT BUFFER 00014000 SPACE 00017000 BUFIN DS CL136 INPUT LINE 00018000 BUFNXT DS 1F POINTER TO NEXT BYTE IN BUFFER 00019000 BUFCNT DS 1F COUNT OF CHARACTERS IN INPUT LINE 00020000 SPACE 00021000 BUFINLTH EQU L'BUFIN INPUT BUFFER SIZE IN BYTES 00022000 BUFSIZE EQU (*-BUFFER)/8 CONBUF SIZE IN DOUBLE WORDS 00023000 EJECT 00024000 POP PRINT 00025000 SPACE 00026000