00800003 /*****************************************************************/ 01600003 /* */ 02400003 /* ISDACVT - SDA CONTROL VECTOR TABLE */ 03200003 /* */ 04000003 /*****************************************************************/ 04800003 05600003 /* %INCLUDE ISDADCLS(ISDACVT) @Y30LB55*/ 06400003 07200003 DCL /* SDA CONTROL VECTOR TABLE 08000003 @Y30LB55*/ 08800003 1 ISDACVT BASED(CVTPTR), 09600003 2 CVTPTRS0, /* PROC WORK POINTERS @Y30LB55*/ 10400003 3 DATAPTR PTR(31), /* -> LOG RECORD (0) @Y30LB55*/ 11200003 3 SDATAPTR PTR(31), /* -> SENSE DATA (4) @Y30LB55*/ 12000003 3 PARMPTR PTR(31), /* -> SDA PARM TABLE (8) @Y30LB55*/ 12800003 3 SDA00PTR PTR(31), /* -> ISDASDA0 WORK AREA (12) 13600003 @Y30LB55*/ 14400003 3 PARM0PTR PTR(31), /* -> SDA PARM FIELD (16)@Y30LB55*/ 15200003 3 TYPE0PTR PTR(31), /* -> ISDATYPE WORKAREA (20) 16000003 @Y30LB55*/ 16800003 3 GET00PTR PTR(31), /* -> ISDAGET0 WORK AREA (24) 17600003 @Y30LB55*/ 18400003 3 PRT00PTR PTR(31), /* -> ISDAPRT0 WORK AREA (28) 19200003 @Y30LB55*/ 20000003 3 HIST0PTR PTR(31), /* -> ISDAHIST WORKAREA (32) 20800003 @Y30LB55*/ 21600003 3 LOG00PTR PTR(31), /* -> ISDALOG0 WORK AREA (36) 22400003 @Y30LB55*/ 23200003 3 DCS00PTR PTR(31), /* -> ISDADCS0 WORK AREA (40) 24000003 @Y30LB55*/ 24800003 3 PAD00PTR PTR(31), /* -> ISDAPAD0 WORK AREA (44) 25600003 @Y30LB55*/ 26400003 3 SUM00PTR PTR(31), /* -> ISDASUM0 WORK AREA (48) 27200003 @Y30LB55*/ 28000003 3 DHE00PTR PTR(31), /* -> ISDADHE0 WORK AREA (52) 28800003 @Y30LB55*/ 29600003 3 FSC00PTR PTR(31), /* -> ISDAFSC0 WORK AREA (56) 30400003 @Y30LB55*/ 31200003 3 EQC00PTR PTR(31), /* -> ISDAEQC0 WORK AREA (60) 32000003 @Y30LB55*/ 32800003 3 DCK00PTR PTR(31), /* -> ISDADCK0 WORK AREA (64) 33600003 @Y30LB55*/ 34400003 3 CSB00PTR PTR(31), /* -> ISDACSB0 WORK AREA (68) 35200003 @Y30LB55*/ 36000003 3 DAT00PTR PTR(31), /* -> ISDADAT0 WORK AREA (72) 36800003 @Y30LB55*/ 37600003 3 DRC00PTR PTR(31), /* -> ISDADRC0 WORK AREA (76) 38400003 @Y30LB55*/ 39200003 3 APR00PTR PTR(31), /* -> ISDAAPR0 WORK AREA (80) 40000003 @Y30LB55*/ 40800003 3 PWR00PTR PTR(31), /* SPARE - RESERVED (84) 41600003 @ZM30976*/ 42400003 3 CNFG0PTR PTR(31), /* -> CONFIGUATION TABLE (88) 43200003 @Y30LB55*/ 44000003 3 GEN00PTR PTR(31), /* -> ISDAGEN0 WORKAREA (92) 44800003 @Y30LB55*/ 45600003 /* TO CALL XXX(WORKPTR), SET R1=ADDR(WORKCALL) AND CALL XXX @Y30LB55*/ 46400003 47200003 3 WORKCALL PTR(31), /* =ADDR(WORKPTR) (96) @Y30LB55*/ 48000003 48800003 /***************************************************************/ 49600003 /* */ 50400003 /* PARAMETERS FOR ISDAGET0, ISDAGET1, AND ISDAFREE */ 51200003 /* */ 52000003 /***************************************************************/ 52800003 53600003 2 GET0CALL, /* PARAMETERS FOR ISDAGET0 (100) 54400003 @Y30LB55*/ 55200003 3 SPNOLEN FIXED(31), /* SPNO + LENGTH @Y30LB55*/ 56000003 4 SPNO BIT(8), /* SUBPOOL NUMBER @Y30LB55*/ 56800003 4 CORELEN FIXED(24), /* LENGTH OF REQUESTED AREA 57600003 @Y30LB55*/ 58400003 3 COREADDR PTR(31), /* ADDRESS OF AREA, FILLED IN BY 59200003 GET0 @Y30LB55*/ 60000003 60800003 /***************************************************************/ 61600003 /* */ 62400003 /* PARAMETERS FOR ISDAHEXP */ 63200003 /* */ 64000003 /***************************************************************/ 64800003 65600003 2 HEXPCALL, /* PARAMETERS FOR ISDAHEXP (108) 66400003 @Y30LB55*/ 67200003 3 DUMPADDR PTR(31), /* ADDRESS OF AREA TO DUMP 68000003 @Y30LB55*/ 68800003 3 DUMPLEN FIXED(31), /* LENGTH OF AREA TO DUMP@Y30LB55*/ 69600003 3 DUMPIDNO FIXED(31), /* ID NUMBER OF DUMP @Y30LB55*/ 70400003 71200003 /***************************************************************/ 72000003 /* */ 72800003 /* PARAMETERS FOR ISDAPRT0 AND ISDATYPE */ 73600003 /* */ 74400003 /***************************************************************/ 75200003 76000003 2 PRT0CALL, /* PARAMETERS FOR ISDAPRT0 (120) 76800003 @Y30LB55*/ 77600003 3 OUTLINE CHAR(133), /* FULL OUTPUT LINE @Y30LB55*/ 78400003 4 ANSI CHAR(1), /* PRINTER CONTROL CHARACTER 79200003 @Y30LB55*/ 80000003 4 LINE CHAR(132), /* TEXT FOR OUTPUT @Y30LB55*/ 80800003 3 SDARPTID CHAR(3), /* REPORT ID FOR PAGE HEADER. 81600003 SET TO 000000 TO NOT MOVE @ZD00192*/ 82400003 83200003 /***************************************************************/ 84000003 /* */ 84800003 /* SDA SAVE AREAS AND WORK AREAS FOR DATAREG */ 85600003 /* */ 86400003 /***************************************************************/ 87200003 88000003 2 SDADATD, /* 160 BYTE SDA SAVE AREA FOR ALL 88800003 PROCS @Y30LB55*/ 89600003 3 SDASA001(18) FIXED(31), /* MAIN SAVE AREA @Y30LB55*/ 90400003 3 SDAPC001 FIXED(31), /* PARAMETER SAVE @Y30LB55*/ 91200003 3 SDASA002(15) FIXED(31), /* INNER PROC SAVE AREA @Y30LB55*/ 92000003 3 SDATEMPS(6) FIXED(31), /* TEMP SPACE @Y30LB55*/ 92800003 2 PRTDATD, /* 160 BYTE SAVE AREA FOR 93600003 ISDAPRT0 AND ISDATYPE @Y30LB55*/ 94400003 3 PRTSA001(40) FIXED(31); /* 2ND LEVEL CALL SAVE @Y30LB55*/ 95200003 %SDACVTL='LENGTH(ISDACVT)'; /*@Y30LB55*/ 96000003 96800003 /* %SDACVTL='LENGTH(ISDACVT)' @Y30LB55*/ 97600003 /* DCL CVTPTR PTR(31) AND SET CVTPTR=WORKPTR @Y30LB55*/ 98400003