OK, happy now? Sheesh!
* =================================================================== *
TXTMAN HEADER VERSION='2.0',AUTHOR='DLC',DATE='(C)DEC89', X
BASE=R11
* ------------------------------------------------------------------- *
IF R1,(EQ,CR),R11 IF PARM LIST IS MISSING
WTO 'TXTMAN: PARAMETER LIST REQUIRED'
B RETURN GO RETURN TO CALLER
ENDIF ENDIF
IF 0(R1),(O,TM),X'80',OR, PARM LIST CAN'T END X
4(R1),(O,TM),X'80' WITH PARM 1 OR 2
MVI TXTRETN,C'L' SIGNAL PARMLIST LENGTH ERROR
B RETURN GO RETURN TO CALLER
ENDIF ENDIF
*
LM R8,R9,0(R1) GET ADDR. OF FIRST 2 PARAMETERS
USING TXTPARM,R8 ESTABLISH REG 8 AS BASE
USING TXTMSTR,R9 ESTABLISH REG 9 AS BASE
LA R1,4(,R1) INCREMENT TO LAST PARM REFERENCED
ST R1,SAVEPTR SAVE PARAMETER ADDRESSES POINTER
* ------------------------------------------------------------------- *
SETUP EQU * LOOP TIL ALL PARM STRINGS PROCESSED
BAS R2,GETSTRG GET (NEXT) STRING PARAMETER ADDRESS
USING TXTINPT,R10 ESTABLISH REG 10 AS BASE
...etc...
Sincerely,
Dave Clark
