DCL DD CHARVF  CHAR(16);
DCL DD CHARF   CHAR(16);
ADDLC CHARVF, CHARF, CHARF;

DCL DD NUMV  BIN(4);
DCL DD NUM   BIN(4);
ADDN NUMV, NUM, NUM;

AND CHARVF, CHARF, CHARF;

DCL SPCPTR .CHARVF INIT(CHARVF);
DCL DD CHAR32 CHAR(32);
DCL SPCPTR .CHARF INIT(CHARF);
CIPHER .CHARVF, CHAR32, .CHARF;

DCL DD CHARS CHAR(16);
DCL DD CHARD CHAR(16);
CMPBLA(B) CHARS, CHARD/EQ(DONE);
CMPBLAP(B) CHAR32, CHARS, " "/EQ(DONE);
CMPBRA(B) CHARS, CHARD/EQ(DONE);
CMPBLAP(B) CHAR32, CHARS, " "/EQ(DONE);

CMPNV(B) NUMV, NUM/EQ(DONE);

DCL DD BIN2V BIN(2);
DCL DD BIN2 BIN(2);
CAI BIN2, BIN2, BIN2, H'0001';

DCL DD CHAR2 CHAR(2);
/* CMF1 NUMV, CHAR2, NUM;
   CMF2 NUMV, CHAR2, NUM, NUM;
*/
CAT CHARVF, CHARF, CHARF;

DCL DD CHARV CHAR(16);
DCL DD CHAR3 CHAR(3);
CVTBC CHARV, CHAR3, CHARS;
CVTCB CHARV, CHAR3, CHARS;

CVTCH CHARV(1:1), CHARS(1:2);

DCL DD CHAR13 CHAR(13);
CVTCM CHARV, CHAR13, CHARS;

DCL DD CHAR7 CHAR(7);
CVTCN NUMV, CHARS, CHAR7;

DCL DD CHAR15 CHAR(15);
CVTCS CHARV, CHAR15, CHARS;

DCL DD FLOATV FLT(8);
DCL DD PKD15 PKD(15,0);
DCL DD ZND15 ZND(15,0);
/* CVTDFFP FLOATV, PKD15, ZND15;
   CVTEFN NUMV, CHARS, CHAR3;
   CVTFPDF PKD15, ZND15, FLOATV;
*/
CVTHC CHARV(1:2), CHARS(1:1);

DCL DD CHAR6 CHAR(6);
CVTMC CHARV, CHAR6, CHARS;

CVTNC CHARV, NUM, CHAR7;

DCL DD CHAR14 CHAR(14);
/* CVTSB CHARV, CHAR14, CHARS; */

CPYBTLLS CHARV, CHARS, CHAR2;
CPYBTRLS CHARV, CHARS, CHAR2;

CPYBLA CHARD, CHARS;
CPYBLAP CHARD, CHARS, " ";
CPYBOLA CHARD, CHARS;
CPYBOLAP CHARD, CHARS, " ";
CPYBRA CHARD, CHARS;
CPYBRAP CHARD, CHARS, " ";
CPYBREP CHARD, " ";

CPYHEXNN NUMV, CHARS;
CPYHEXNZ NUMV, CHARS;
CPYHEXZN NUMV, CHARS;
CPYHEXZZ NUMV, CHARS;

CPYNV NUMV, NUM;

DIV NUMV, NUM, NUM;
DIVREM NUMV, NUM, NUM, NUMV;

/* EDIT CHARV, NUM, NUM; */

EXCHBY CHARS, CHARD;

XOR CHARV, CHARS, CHARD;

DCL DD BINV BIN(4);
DCL DD CHAR1 CHAR(1);
ECSCAN(B) BINV, CHARS, CHARD, CHAR1/EC(DONE);

EXTREXP BINV, FLOATV;
EXTRMAG NUMV, NUM;

MULT NUMV, NUM, NUM;
NEG NUMV, NUM;
NOT CHARV, CHARS;
OR CHARV, CHARS, CHARD;

REM NUMV, NUM, NUM;
SCALE NUMV, NUM, BIN2;
SCAN BINV, CHARS, CHARD;

DCL DD CHAR8 CHAR(8);
DCL DD CHAR4 CHAR(4);
/* SCANWC .CHARVF, CHAR8, CHAR4, DONE;  */

DCL DD CHARA(2) CHAR(8);
/* SEARCH BINV, CHARA, CHARS, BIN2;  */

DCL INSPTR .IP;
SETIP .IP, DONE;

DCL DD CHAR5 CHAR(5);
SSCA CHAR5, CHAR5, CHAR5;

SUBLC CHARVF, CHARF, CHARF;
SUBN NUMV, NUM, NUM;

TSTRPLC CHARV, CHARS;
TSTBUM(B) CHARS, CHARD/ZER(DONE);

XLATE CHARV, CHARS, CHARD, CHARV;
DCL DD CHAR256 CHAR(256);
XLATEWT CHARV, CHARS, CHAR256;

TRIML NUMV, CHARV, CHAR1;

VERIFY BINV, CHARS, CHARD;

/*-----------*/

CMPPTRA(B) .CHARVF, .CHARF/EQ(DONE);
CMPPTRT(B) .CHARVF, */EQ(DONE);
CPYBWP CHARS, CHARD;

DCL SYSPTR .SYS1;
DCL SPCPTR .SPC1;
MATCTX .SPC1, .SYS1, CHARS;

DCL DTAPTR .DTA1;
RSLVDP .DTA1, CHAR32, .SYS1;
DCL DD CHAR34 CHAR(34);
RSLVSP .SYS1, CHAR34, .SYS1, *;

/*-----------*/

DCL SPCPTR .SPC2;
ADDSPP .SPC1, .SPC2, BIN2;
CMPPSPAD(B) .SPC1, .SPC2/EQ(DONE);
CMPSPAD(B) CHARS, CHARD/EQ(DONE);

SETDP .DTA1, CHARV;
SETDPADR .DTA1, CHARV;
SETDPAT .DTA1, CHAR7;
SETSPP .SPC1, CHARV;
SETSPPD .SPC1, CHARV, BIN2;
SETSPPFP .SPC1, .SYS1;
SETSPPO .SPC1, BIN2;
SETSPFP .SYS1, .SPC1;
STSPPO BINV, .SPC1;
SUBSPP .SPC1, .SPC2, BIN2;

/*-----------*/

CRTS .SYS1, .SPC1;
DESS .SYS1;
MATS .SPC1, .SYS1;
MODS .SYS1, BIN2;

/*-----------*/

CRTINX .SYS1, .SPC1;
DESINX .SYS1;
DCL SPCPTR .SPC3;
FNDINXEN .SPC1, .SYS1, .SPC2, .SPC3;
INSINXEN .SYS1, .SPC1, .SPC2;
MODINX .SYS1, CHAR4;
RMVINXEN *, .SYS1, .SPC1, .SPC2;

/*-----------*/

DCL SYSPTR .SYS2;
MATAU .SPC1, .SYS1, .SYS2;
MATAUOBJ .SPC1, .SYS1, CHAR1;
MATAUU .SPC1, .SYS1, CHAR1;
MATUP .SPC1, .SYS1;
TESTAU CHAR2, .SYS1, CHAR2;

/*-----------*/

MATPG .SPC1, .SYS1;
ACTPG .SPC1, .SYS1;
DCL OL OPL (.SPC1, .SPC2) ARG;
CALLX .SYS1, OPL, *;
CALLI SUBR, *, .SUBR;
CLRIEXIT;
DEACTPG .SYS1;
MODASA *, BIN2;
/* SETALLEN OPL, 2; */
SETIEXIT .SYS1, OPL;
STPLLEN BIN2;
XCTL .SYS1, OPL;
MATPRATR .SPC1, .SYS1, CHAR1;

DCL DD CHAR16 CHAR(16);
WAITTIME CHAR16;

/*-----------*/

DCL EXCM EX EXCID(0000) BP (DONE) RSG;
MATEXCPD .SPC1, EX, CHAR1;
MODEXCPD EX, .SPC1, CHAR1;
RETEXCPD .SPC1, CHAR1;
RTNEXCP .SPC1;
SNSEXCPD .SPC1, .SPC2, .SPC3;
SIGEXCP .SPC1, .SPC2;
TESTEXCP .SPC1, EX;

/*-----------*/

/* CRTQ .SYS1, .SPC1; */
DEQ CHARVF, .SPC1, .SYS1;
/* DESQ .SYS1; */
ENQ .SYS1, CHARS, .SPC1;
MATQAT .SPC1, .SYS1;
MATQMSG .SPC1, .SYS1, CHAR16;

/*-----------*/

/* CRMD .SPC1, .SPC2, CHAR8; */
ENSOBJ .SYS1;
MATAGAT .SPC1, .SYS1;
MATRMD .SPC1, CHAR8;
SETACST .SPC1;

/*-----------*/

LOCK .SPC1;
LOCKSL .SYS1, CHAR1;
MATAOL .SPC1, .SYS1;
MATDRECL .SPC1, .SPC2;
MATOBJLK .SPC1, .SYS1;
MATPRLK .SPC1, .SYS1;
MATPRECL .SPC1, .SPC2;
MATSELLK .SPC1, .SYS1;
XFRLOCK .SYS1, .SPC1;
UNLOCK .SPC1;
UNLOCKSL .SYS1, CHAR1;

DONE:
RTX *;

DCL INSPTR .SUBR;
ENTRY SUBR INT;
B .SUBR;

PEND;