02000000 /*****************************************************************/ 03000000 /* */ 04000000 /* DRCWORK IS THE STRUCTURE FOR THE DRC WORK AREA @Y30LB50*/ 05000000 /* */ 06000000 /*****************************************************************/ 07000000 08000000 DCL 09000000 1 DRCWORK BASED(DRCPTR), /* @Y30LB50*/ 10000000 2 CSPTRS(4) PTR(31), /* POINTERS TO ACCUMULATOR BLOCKS 11000000 FOR EACH CARTRIDGE STORE 12000000 ENCOUNTERED @Y30LB50*/ 13000000 2 TSUM FIXED(31), /* TOTAL OF BIT COUNTS @Y30LB50*/ 14000000 2 WORK1 CHAR(4), /* COMPACTED DRC CHECKS BYTES 15000000 @Y30LB50*/ 16000000 3 WORK2 BIT(8), /* @Y30LB50*/ 17000000 4 CURRBIT BIT(1), /* @Y30LB50*/ 18000000 4 RESTBITS BIT(7), /* @Y30LB50*/ 19000000 3 WORK3 BIT(24), /* @Y30LB50*/ 20000000 2 I FIXED(15), /* LOOP INDEX @Y30LB50*/ 21000000 2 J FIXED(15), /* LOOP INDEX @Y30LB50*/ 22000000 2 K FIXED(15), /* LOOP INDEX @Y30LB50*/ 23000000 2 L FIXED(15), /* LOOP INDEX @Y30LB50*/ 24000000 2 HOLDDBL CHAR(8), /* DOUBLE WORD FOR CONVERTING 25000000 @Y30LB50*/ 26000000 3 HOLD0 CHAR(4), /* @Y30LB50*/ 27000000 3 HOLD CHAR(4), /* @Y30LB50*/ 28000000 4 HOLD2 CHAR(1), /* @Y30LB50*/ 29000000 4 HOLD1 CHAR(3), /* @Y30LB50*/ 30000000 5 CSNUMB CHAR(2), /* SSID WORKAREA @Y30LB50*/ 31000000 5 XXX CHAR(1); /* @Y30LB50*/ 32000000 %DRCWORKL='LENGTH(DRCWORK)'; /* @Y30LB50 33000000 */ 34000000 @EJECT; 35000000 36000000 /*****************************************************************/ 37000000 /* */ 38000000 /* DESCRIPTION OF DRC ACCUMULATOR BLOCK @Y30LB50*/ 39000000 /* */ 40000000 /*****************************************************************/ 41000000 42000000 DCL 43000000 1 DRCACCM BASED(CSPTR), /* @Y30LB50*/ 44000000 2 BYTEBIT FIXED(15), /* 2 BYTE COUNTER FOR ONE BIT FOR 45000000 ONE DRC @Y30LB50*/ 46000000 2 BYTEBIT3 CHAR(6), /* BIT COUNTERS FOR ONE BIT FOR 47000000 OTHER DRCS @Y30LB50*/ 48000000 2 BYTE0 CHAR(56), /* BIT COUNTERS FOR MSC BYTE 4 49000000 @Y30LB50*/ 50000000 3 BIT0 CHAR(8), /* BIT COUNTERS FOR ONE BIT 51000000 @Y30LB50*/ 52000000 3 BITS1TO7 CHAR(48), /* BIT COUNTERS FOR OTHER BITS 53000000 @Y30LB50*/ 54000000 2 BYTE1 CHAR(64), /* BIT COUNTERS FOR MSC BYTE 20 55000000 @Y30LB50*/ 56000000 2 BYTE2 CHAR(64), /* BIT COUNTERS FOR MSC BYTE 21 57000000 @Y30LB50*/ 58000000 2 BYTE3 CHAR(64); /* BIT COUNTERS FOR MSC BYTE 22 59000000 @Y30LB50*/ 60000000 %DRCACCML='LENGTH(DRCACCM)'; /* @Y30LB50 61000000 */ 62000000 @EJECT; 63000000 64000000 /*****************************************************************/ 65000000 /* */ 66000000 /* DESCRIPTION OF ISDADRC0 AND ISDADRC1 CONSTANTS @Y30LB50*/ 67000000 /* */ 68000000 /*****************************************************************/ 69000000 70000000 DCL 71000000 CVTPTR PTR(31) REG(2) RSTD; /* SDACVT POINTER @Y30LB50*/ 72000000 DCL 73000000 RETRNREG FIXED(31) REG(9) RSTD;/* RETURN CODE REG @Y30LB50*/ 74000000 DCL 75000000 DRCPTR PTR(31) REG(10) RSTD; /* DRC WORK AREA POINTER @Y30LB50*/ 76000000 DCL 77000000 CSPTR PTR(31) REG(8) RSTD; /* CARTRIDGE STORE-DRC 78000000 ACCUMULATOR POINTER @Y30LB50*/ 79000000 DCL 80000000 WORKPTR PTR(31); /* CALLING PARAMETER--SDACVT 81000000 POINTER @Y30LB50*/ 82000000 DCL 83000000 MAXCS FIXED(15) CONSTANT(4); /* MAXIMUM NUMBER OF CARTRIDGE 84000000 STORES @Y30LB50*/ 85000000 DCL 86000000 R1 FIXED(31) REG(1) UNRSTD; /* @Y30LB50*/ 87000000 DCL 88000000 R0 FIXED(31) REG(0) UNRSTD; /* @Y30LB50*/ 89000000 DCL 90000000 R15 FIXED(31) REG(15) UNRSTD; /* @Y30LB50*/ 91000000 DCL 92000000 DRCSPNO CHAR(1) STATIC LOCAL INIT('00'X);/* SUBPOOL NUMBER FOR 93000000 DRC ISDAGET1 REQUESTS @Y30LB50*/ 94000000 DCL 95000000 1 PATCH CHAR(50) STATIC LOCAL, 96000000 2 *(50) CHAR(1) INIT((50)'00'X);/* MAINTENANCE AREA @Y30LB50*/ 97000000