01800000 /*****************************************************************/ 02700000 /* */ 03600000 /* DATWORK IS THE STRUCTURE FOR THE DAT WORK AREA @Y30LB50*/ 04500000 /* */ 05400000 /*****************************************************************/ 06300000 07200000 DCL 08100000 1 DATWORK BASED(DATPTR), /* @Y30LB50*/ 09000000 2 CSPTRS(4) PTR(31), /* POINTERS TO ACCUMULATOR BLOCKS 09900000 FOR EACH CARTRIDGE STORE 10800000 ENCOUNTERED @Y30LB50*/ 11700000 2 TSUM FIXED(31), /* TOTAL OF BIT COUNTS @Y30LB50*/ 12600000 2 WORK1 CHAR(8), /* COMPACTED DAT CHECKS BYTES 13500000 @Y30LB50*/ 14400000 3 WORK2 BIT(8), /* @Y30LB50*/ 15300000 4 CURRBIT BIT(1), /* BIT BEING EXAMINED @Y30LB50*/ 16200000 4 RESTBITS BIT(7), /* @Y30LB50*/ 17100000 3 WORK3 BIT(56), /* @Y30LB50*/ 18000000 2 I FIXED(15), /* LOOP INDEX @Y30LB50*/ 18900000 2 J FIXED(15), /* LOOP INDEX @Y30LB50*/ 19800000 2 K FIXED(15), /* LOOP INDEX @Y30LB50*/ 20700000 2 L FIXED(15), /* LOOP INDEX @Y30LB50*/ 21600000 2 M FIXED(15), /* LOOP INDEX @Y30LB50*/ 22500000 2 LOOPEND FIXED(15), /* LOOP END COMPARAND @Y30LB50*/ 23400000 2 HOLDDBL CHAR(8), /* DOUBLE WORD FOR CONVERTING 24300000 @Y30LB50*/ 25200000 3 HOLD0 CHAR(4), /* @Y30LB50*/ 26100000 3 HOLD CHAR(4), /* WORK AREA FOR CONVERTING 27000000 @Y30LB50*/ 27900000 4 HOLD2 CHAR(1), /* @Y30LB50*/ 28800000 4 HOLD1 CHAR(3), /* @Y30LB50*/ 29700000 5 CSNUMB CHAR(2), /* ISOLATE INFO FROM SSID 30600000 @Y30LB50*/ 31500000 6 SSIDWORK CHAR(2), /* ISOLATE UNIT @Y30LB50*/ 32400000 5 XXX CHAR(1); /* @Y30LB50*/ 33300000 %DATWORKL='LENGTH(DATWORK)'; /* @Y30LB50 34200000 */ 35100000 @EJECT; 36000000 36900000 /*****************************************************************/ 37800000 /* */ 38700000 /* DESCRIPTION OF DAT ACCUMULATOR BLOCK @Y30LB50*/ 39600000 /* */ 40500000 /*****************************************************************/ 41400000 42300000 DCL 43200000 1 DATACCM BASED(CSPTR), /* @Y30LB50*/ 44100000 2 BYTEBIT FIXED(15), /* 2 BYTE COUNTER FOR ONE BIT FOR 45000000 ONE DRC @Y30LB50*/ 45900000 2 BYTEBIT3 CHAR(22), /* 2 BYTE COUNTER FOR ONE BIT FOR 46800000 OTHER DRCS AND DRDS @Y30LB50*/ 47700000 2 BYTE0 CHAR(168), /* BIT COUNTERS FOR OTHER BITS OF 48600000 MSC BYTE 4 @Y30LB50*/ 49500000 3 BIT0 CHAR(24), /* BIT COUNTERS FOR ONE BIT 50400000 @Y30LB50*/ 51300000 3 BITN CHAR(144), /* BIT COUNTERS FOR OTHER BITS 52200000 @Y30LB50*/ 53100000 2 BYTE1 CHAR(192), /* BIT COUNTERS FOR MSC BYTE 5 54000000 @Y30LB50*/ 54900000 2 BYTE2 CHAR(192), /* BIT COUNTERS FOR MSC BYTE 13 55800000 @Y30LB50*/ 56700000 2 BYTE3 CHAR(192), /* BIT COUNTERS FOR MSC BYTE 14 57600000 @Y30LB50*/ 58500000 2 BYTE4 CHAR(192); /* BIT COUNTERS FOR MSC BYTE 15 59400000 @Y30LB50*/ 60300000 %DATACCML='LENGTH(DATACCM)'; /* @Y30LB50 61200000 */ 62100000 @EJECT; 63000000 63900000 /*****************************************************************/ 64800000 /* */ 65700000 /* DESCRIPTION OF ISDADAT0 AND ISDADAT1 CONSTANTS @Y30LB50*/ 66600000 /* */ 67500000 /*****************************************************************/ 68400000 69300000 DCL 70200000 CVTPTR PTR(31) REG(2) RSTD; /* SDACVT POINTER @Y30LB50*/ 71100000 DCL 72000000 RETRNREG FIXED(31) REG(9) RSTD;/* RETURN CODE @Y30LB50*/ 72900000 DCL 73800000 DATPTR PTR(31) REG(10) RSTD; /* DAT WORK AREA PTR @Y30LB50*/ 74700000 DCL 75600000 CSPTR PTR(31) REG(8) RSTD; /* CARTRIDGE STORE-DAT 76500000 ACCUMULATOR POINTER @Y30LB50*/ 77400000 DCL 78300000 WORKPTR PTR(31); /* CALLING PARAMETER--SDACVT PTR 79200000 @Y30LB50*/ 80100000 DCL 81000000 R1 FIXED(31) REG(1) UNRSTD; /* @Y30LB50*/ 81900000 DCL 82800000 R0 FIXED(31) REG(0) UNRSTD; /* @Y30LB50*/ 83700000 DCL 84600000 R15 FIXED(31) REG(15) UNRSTD; /* @Y30LB50*/ 85500000 DCL 86400000 DATSPNO CHAR(1) STATIC LOCAL INIT('00'X);/* SUBPOOL NUMBER FOR 87300000 DAT REQUESTS @Y30LB50*/ 88200000 DCL 89100000 MAXDRC FIXED(15) CONSTANT(4); /* MAXIMUM NUMBER OF DRCS 90000000 @Y30LB50*/ 90900000 DCL 91800000 MAXCS FIXED(15) CONSTANT(4); /*MAXIMUM NUMBER OF CARTRIDGE 92700000 STORES @Y30LB50*/ 93600000 DCL 94500000 1 PATCH CHAR(50) STATIC LOCAL, 95400000 2 *(50) CHAR(1) INIT((50)'00'X);/* MAINTENANCE AREA @Y30LB50*/ 96300000