*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