         PAGE
R0       EQU      0
R1       EQU      1
R2       EQU      2
R3       EQU      3
R4       EQU      4
R5       EQU      5
R6       EQU      6
R7       EQU      7
SR1      EQU      8
SR2      EQU      9
SR3      EQU      10
SR4      EQU      11
D1       EQU       12
D2       EQU      13
D3       EQU      14
D4       EQU      15
         PAGE
TEXTARG  DSECT    1
         TITLE    'TEXTARG'
         SYSTEM   SIG7
*
* TEXTARG         TEXT ARGUMENT EDITOR
*
* INPUT
*
*        R1       0-7    ERROR CODE DESIRED
*                 16-23  MIN. NO. OF CHARACTERS
*                 24-31  MAX. NO. OF CHARACTERS
*        ARGBUFF  ARGUMENT STORAGE BUFFER
*
*
         REF      ERROR,ARGBUFF,NCHAR
*
         PSW,SR4  *R7               SAVE RETURN  RESGISTER
*
         LI,R3    2                 GET MIN. VALUE
         LB,R2    R1,R3
         AI,R3    1                 GET MAX. VALUE
         LB,R3    R1,R3
*
         CLR,R2   NCHAR,R7          TEST NO. OF CHARACTERS
         BCR,6    RETURN
*
         LB,R1    R1                SET GIVEN ERROR CODE
         BAL,SR4  ERROR
*
RETURN   PLW,SR4  *R7               RESTORE REGISTERS
         B        *SR4
         END

