* 00060002 * %GOTO COM1; /* 00062002 MACRO 00070002 COMMON &MF=E 00100002 GBLB &BALMOD DEFINE GLOBAL SWITCH Y02006 00110002 &BALMOD SETB 1 INDICATE BAL MODULE ISSUED COMMON Y02006 00120002 AIF ('&MF' EQ 'E').GEND 00150002 AIF ('&MF' EQ 'L').GENC 00200002 MNOTE 12,'INVALID MACRO FORMAT' 00250002 MEXIT 00300002 .GEND ANOP 00350002 COMMON DSECT 00400002 AGO .GEN 00450002 .GENC ANOP 00500002 AMDPRCOM CSECT Y01980 00550002 COMMON EQU AMDPRCOM . Y01980 00600002 .GEN ANOP 00650002 SPACE 1 */ 00700002 *%COM1 : ; 00750002 * 00800002 */********************************************************************/ 00850002 */* */ 00900002 */* AMDPRDMP COMMON AREA MACRO */ 00950002 */* OS/VS2 RELEASE 2 -- LEVEL 001 */ 00960002 */* */ 00970002 */* THIS MACRO DEFINES CONSTANTS AND POINTERS COMMON TO ALL */ 00980002 */* PRDMP ROUTINES */ 00990002 */* */ 00992002 */* TO USE THIS MACRO TO OBTAIN A DSECT OF THE AMDPRDMP COMMON */ 00994002 */* AREA IN A BAL MODULE, CODE: */ 00996002 */* COMMON */ 00998002 */* ISSUE A USING ON COMMON IN ORDER TO REFERENCE THE AREAS */ 00998402 */* DEFINED IN THE DSECT. */ 00998802 */* */ 00999202 */* TO USE THIS MACRO TO DEFINE THE COMMON AREA,CODE: */ 00999602 */* COMMON MF=L */ 00999702 */* ONLY MODULE AMDPRCOM SHOULD USE THE MACRO IN THIS MANNER. */ 00999802 */* */ 00999902 */* TO USE THIS MACRO IN A PLS2 MODULE,CODE: */ 01016602 */* % INCLUDE SYSLIB(COMMON) */ 01026602 */* SINCE THIS IS A BASED STRUCTURE, A RESPECIFY STATEMENT IS */ 01028602 */* ALSO REQUIRED PRIOR TO REFERENCING FIELDS DEFINED HEREIN */ 01030602 */* IN ORDER TO PROVIDE A POINTER VALUE FOR LOCATING THE DATA. */ 01032602 */* */ 01032702 */*C024000,053500,116000,144000 Y02006*/ 01032802 */*A001100-001200,086000-086480,146000-340443 Y02006*/ 01032902 */*D013500,014500-015500,017000-017500,020000,021000-023000 Y02006*/ 01041202 */*D024000-024500,026000-031500,034000-039000,045000-046000 Y02006*/ 01043202 */*D052000-053000,056000,057500,097500,101000-102500,115500 Y02006*/ 01045202 */*D120000,124500-127000,136500,137500-140500,141500-143000 Y02006*/ 01047202 */*D144500-149600,150000 Y02006*/ 01049202 */* */ 01050202 */********************************************************************/ 01058502 * 01066802 *%GOTO COM2; /* 01075102 SPACE 01083402 * * * * * * * * COMMON MACRO DEL IS D82 * * * * * * * * * * 01087400 ERRADDR DC F'0' ERROR ROUTINE ADDRESS 01091702 VERBGN DC F'0' 01100002 VERBEND DC F'0' 01150002 KYWDBGN DC F'0' 01200002 KYWDEND DC F'0' 01250002 DELIMCD DC F'0' 01300002 WORK1 DC D'0' 01400002 NUCTOP DC F'250000' 01600002 SIX DC F'6' 01650002 LINECNT DC F'1' 01800002 PAGENUMB DC F'0' 01850002 CURBUF DC F'0' 01900002 TCBLIST DC F'0' 01950002 CVTADDR DC F'0' 02050002 PCBPTR DC F'0' 02350002 STORSIZE DC F'0' AVAILABLE STORAGE SIZE Y02006 02400002 INDD DC CL8'TAPE' 02500002 FILESEQ DC H'0' . X01980 02550002 RDENTRY DC F'0' 03200002 READNO DC F'0' 03250002 RDERCNT DC F'0' 03300002 READTM DC F'0' 03350002 ONEA DC H'1' 03950002 TWO DC H'2' 04000002 THREE DC H'3' 04050002 FOUR DC H'4' 04100002 FIVE DC H'5' 04150002 SEVEN DC H'7' 04200002 EIGHT DC H'8' 04250002 HTEN DC H'10' 04300002 ELEVEN DC H'11' 04350002 TWELVE DC H'12' 04400002 SIXTEEN DC H'16' 04450002 LNCNT EQU 58 04650002 LINENUMB DC AL2(LNCNT) 04700002 LINENUM DC AL2(LNCNT-2) 04750002 SWA DC X'00' 04800002 SWB DC X'00' 04850002 SWC DC X'00' 04900002 SWD DC X'00' 04950002 SWE DC X'00' 05000002 SWF DC X'00' ALWAYS RESET ON NEWDUMP OR NEWTAPE Y01980 05050002 BUFSW DC X'00' 05100002 PRSW DC X'00' 05150002 DC CL3' ' Y02006 05350002 WTORMSG DC CL81' ' 05400002 BLANKS DC CL8' ' 05450002 TITLE DC C'TITLE' 05500002 STOP DC C'STOP' 05550002 MSG1 DC C'AMD161I FORMAT ERROR ' Y01980 05650002 MSG2 DC C'AMD158I I/O ERROR ON DUMP ' Y01980 05700002 TITLEMSG DC CL64' ' 05800002 TITLEMOD DC CL15'MODULE' . MODULE ISSUING DUMP 05850002 DC CL2' ' 05900002 TITLEDTE DC CL13'DATE' 05950002 DC CL2' ' 06000002 TITLETME DC CL13'TIME' 06050002 DC CL2' ' 06100002 TITLEPGE DC CL9'PAGE' 06150002 CAPTABL DC X'000102030405060708090A0B0C0D0E0F' 06200002 DC X'101112131415161718191A1B1C1D1E1F' 06250002 DC X'202122232425262728292A2B2C2D2E2F' 06300002 DC X'303132333435363738393A3B3C3D3E3F' 06350002 DC X'404142434445464748494A4B4C4D4E4F' 06400002 DC X'505152535455565758595A5B5C5D5E5F' 06450002 DC X'606162636465666768696A6B6C6D6E6F' 06500002 DC X'707172737475767778797A7B7C7D7E7F' 06550002 DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' 06600002 DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' 06650002 DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' 06700002 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' 06750002 DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' 06800002 DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' 06850002 DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' 06900002 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' 06950002 TABLE DC 64C'.' 07000002 DC C' ' 07050002 DC 128C'.' 07100002 DC C'ABCDEFGHI' 07150002 DC 7C'.' 07200002 DC C'JKLMNOPQR' 07250002 DC 8C'.' 07300002 DC C'STUVWXYZ' 07350002 DC 6C'.' 07400002 DC C'0123456789' 07450002 DC 6C'.' 07500002 ORG *-193 07550002 HEXTABL EQU * 07600002 ORG *+193 07650002 DC X'FAFBFCFDFEFF' 07700002 ORG *+41 07750002 DC C'0123456789' 07800002 ORG *-240 07850002 EBCTABL EQU * 07900002 ORG *+240 07950002 DC C'0123456789ABCDEF' 08000002 BLNK DC 64X'00' 08050002 DC X'0C' BLANK 08100002 DC 12X'00' 08150002 DC X'10' LEFT PAREN 08200002 DC 15X'00' 08250002 DC X'14' RIGHT PAREN 08300002 DC 13X'00' 08350002 DC X'04' COMMA 08400002 DC 18X'00' 08450002 DC X'08' EQUAL SIGN 08500002 DC 129X'00' 08550002 NONBLNK DC 193X'00' Y02006 08600002 DC 9C'*' Y02006 08610002 DC 7X'00' Y02006 08620002 DC 9C'*' Y02006 08630002 DC 8X'00' Y02006 08640002 DC 8C'*' Y02006 08642002 DC 6X'00' Y02006 08644002 DC 10C'*' Y02006 08646002 DC 6X'00' Y02006 08648002 *********************************************************************** 08650002 * * 08700002 * COMMON A TYPE ADDRESS CONSTANTS * 08750002 * * 08800002 *********************************************************************** 08850002 SPACE 08900002 AIF ('&MF' EQ 'E').GENDS 08950002 AWRITE DC A(AMDPRWTR) ADDRESS OF ROUTINE FOR OUTPUT 09000002 APRTMSG DC A(AMDPRMSG) ADDR OF MESSAGE ON SYSPRINT RTN 09050002 ASYNTAX DC A(AMDPRSYN) ADDR OF SYNTAX ERROR ROUTINE 09100002 AFMTLINE DC A(AMDPRGFR) ADDR OF LINE FORMAT ROUTINE 09150002 AADRCNVT DC A(ADRCNVT) ADDR OF 3 BYTE CONVERT ROUTINE 09200002 AWRDCNVT DC A(WRDCNVT) ADDR OF 4 BYTE CONVERT ROUTINE 09250002 AGO .NOGENDS 09300002 .GENDS ANOP 09350002 AWRITE DS A ADRESS OF ROUTINE FOR OUTPUT 09400002 APRTMSG DS A ADDR OF MESSAGE ON SYSPRINT RTN 09450002 ASYNTAX DS A ADDR OF SYNTAX ERROR ROUTINE 09500002 AFMTLINE DS A ADDR OF LINE FORMAT ROUTINE 09550002 AADRCNVT DS A ADDR OF 3 BYTE CONVERT ROUTINE 09600002 AWRDCNVT DS A ADDR OF 4 BYTE CONVERT ROUTINE 09650002 .NOGENDS ANOP 09700002 ARGNBND DS A ADDRESS OF REGION BOUNDARY ROUTINE 09800002 STOPEXIT DS A . ADDR STOP EXIT ROUTINE 09850002 SYNMSGA DS A ADDR OF SYNTAX ERROR MSG ARRAY 09900002 AEREXIT DC V(AMDPRXIT) . ADDR OF ERROR EXIT ROUTINE 09950002 ALOADER DC V(AMDPRSEG) ADDR SEGMENT LOAD ROUTINE 10000002 QATMERTN DC V(TODCNVRT) . ADDR OF TOD CLOCK CONVERT RTN Y01980 10050002 AIF ('&MF' EQ 'E').GENDS1 10300002 ATCBSAVE DC A(AMDPRTSV) . ADDR OF TCB SAVE ROUTINE 10350002 ATCBREMV DC A(TCBREMV) . ADDRESS OF ROUTINE FOR REMOVING TCBS 10400002 ATCBRTRV DC A(TCBRTRV) . ADDR OF TCB RETRIEVE ROUTINE 10450002 AGO .NGENDS1 10500002 .GENDS1 ANOP 10550002 ATCBSAVE DS A . ADDR OF TCB SAVE ROUTINE 10600002 ATCBREMV DS A . ADDRESS OF ROUTINE FOR REMOVING TCBS 10650002 ATCBRTRV DS A . ADDR OF TCB RETRIEVE ROUTINE 10700002 .NGENDS1 ANOP 10750002 APCBENQ DS A PCB Q MGMT. 10800002 AIF ('&MF' EQ 'E').GENDS2 10850002 ASTPROUT DC A(AMDPRSTP) . ADDR OF THE STOP ROUTINE 10900002 AGO .NGENDS2 10950002 .GENDS2 ANOP 11000002 ASTPROUT DS A . ADDR OF THE STOP ROUTINE 11050002 .NGENDS2 ANOP 11100002 AFORMAT DS A ADDR OF ROUTINE THAT CONTROLS THE 11150002 * FORMATTING OF THE CONTROL BLOCKS 11200002 APRTSTG DS A ADDR OF PRINT STORAGE SERVICE 11250002 * ROUTINE 11300002 BUFSUM DC F'0' . TOTAL NUMBER OF BUFFERS FOR THIS 11350002 * EXECUTION 11400002 BUFREINT DC F'0' . NUMBER OF TIMES BUFFERS WERE 11450002 * INITIALIZED 11500002 AERRMSGA DC A(MSG1) ERROR MESSAGE ARRAY - MESSAGE 11600002 DC A(MSG2) TEXT IS DEFINE IN COMMON CONSTANTS 11650002 * ABOVE 11700002 AEND DC V(AMDPREND) 11750002 ONGOPTR DS A . POINTER TO ONGO OPERAND 11800002 ATCBSMFR DS A SUMMARY TABLE FREE ROUTINE 11850002 ATCBSMRY DS A SUMMARY TABLE PRINT ROUTINE 11950002 DCBADDRS DS 0F 12050002 AOUTDCB DC A(0) . ADDR OF OUTPUT DCB (PRINTER) M0732 12100002 APTRDCB DC A(0) . ADDR OF MESSAGE DCB M0732 12150002 * (SYSPRINT) M0732 12200002 ARDRDCB DC A(0) . ADDR OF CNTRL CARD INPUT DCB M0732 12250002 * (SYSIN) M0732 12300002 AINDCB DC A(0) . ADDR OF DUMP TAPE INPUT DCB M0732 12350002 * (TAPE) M0732 12400002 DC AL1(X'80') . END OF LIST INDICATOR M1634 12750002 ASYSUDCB DC AL3(0) . ADDR OF UTILITY DA DCB M1634 12800002 * (SYSUT1 OR 2) M1634 12850002 *****************************************************************S21014 12900002 * S21014 12950002 * AMDPRCOM CHANGES FOR GTF S21014 13000002 * S21014 13050002 *****************************************************************S21014 13100002 SPACE 13150002 TRCCOUNT DC F'0' . COUNT OF ENTRIES TO AMDPRGET S21014 13200002 AEDITCB DC A(0) . ADDRESS OF EDIT COMMUNICATION S21014 13250002 * AREA - AMDPRTAB S21014 13300002 AROOT DC A(0) . ADDRESS OF AMDPRTAB INIT RTN. S21014 13350002 EDITER DC X'02' . VALUE OF ER PARAMETER OF S21014 13400002 * EXECUTE CARD S21014 13450002 *********************************************************************** 13500002 *** ADDITIONS FOR X01980/Y01980 SUPPORT *** 13550002 *********************************************************************** 13600002 SPACE 13650002 REALMAP DC F'0' . POINTER TO REAL DUMP MAP X01980 13700002 SEGTABOR DC F'0' . SEGMENT TABLE ORIGIN X01980 14100002 REALMAX DC X'00FFFFFF' TOP OF REAL STORAGE @OZ00404 14350003 DC F'0' . SPARE WORD Y02006 14400002 QAPFT DC A(0) . ADDRESS OF PFT IN DUMP Y01980 14560002 *********************************************************************** 14600002 *** ADDITIONS FOR Y02006 SUPPORT *** 14650002 *********************************************************************** 14700002 SPACE 14750002 QASID DC H'0' . ASID OF IPLED'ED CPU Y02006 14900002 IPLCPU DC H'0' . ADDRESS OF IPL'ED CPU Y02006 14950002 * CONTAINS 256 IF THE IPL'ED Y02006 15000002 * CPU STATUS WAS UNAVAILABLE - Y02006 15010002 * I.E. AN I/O ERROR OCCURRED Y02006 15020002 * WHEN THE CPU STATUS RECORD Y02006 15030002 * WAS BEING READ Y02006 15040002 CURASCB DC F'0' . ADDRESS OF CURRENT ASCB IN Y02006 15042002 * DUMPED SYSTEM Y02006 15044002 PREFXRGR DC F'0' . REAL ADDRESS IN PSA PREFIX Y02006 15048402 * REGISTER (SADMP INPUT ONLY) Y02006 15048802 PREFXRGV DC F'0' . VIRTUAL ADDRESS IN PSA PREFIX Y02006 15049202 * REGISTER (SADMP INPUT ONLY) Y02006 15049602 ASVTADDR DC F'0' . ADDRESS OF ASVT IN DUMPED Y02006 15049702 * SYSTEM Y02006 15049802 SACSWCAW DC 3F'0' . CSW (FIRST 8 BYTES) AND CAW Y02006 15049902 * (LAST 4 BYTES) FROM AMDSADMP Y02006 15066602 * HEADER RECORD Y02006 15076602 HDRREGS DC 42F'0' . REGISTERS AND CURRENT PSW Y02006 15078602 * FROM SVCDUMP OR DSS HEADER Y02006 15080602 HDRTITLE DC 100C' ' . TITLE FROM HEADER RECORD Y02006 15081002 DC A(0) . SPARE WORD Y02006 15082602 ASIDNDX DC A(0) . POINTER TO ASID INDEX Y02006 15083002 CPUMAP DC A(0) . POINTER TO CPU STATUS RECORD Y02006 15083102 * MAPS Y02006 15083202 ASCBMAP DC A(0) . POINTER TO ASCB MAP THAT IS Y02006 15088802 * CREATED BY AMDPRRDC Y02006 15090802 BUFERMAP DC A(0) . ADDRESS OF FIRST PHYSICAL Y02006 15092802 * BUFFER MAP ENTRY IN RDC Y02006 15093202 BRRDDATA DC V(AMDPRRDD) . ADDRESS OF AMDPRRDC READ DATA Y02006 15093302 * ROUTINE Y02006 15093402 BRRDINIT DC V(AMDPRRDC) . ADDRESS OF BRREAD INIT Y02006 15093502 * ROUTINE Y02006 15096102 BRRDADJ DC V(AMDPRRDA) . ADDRESS OF BRREAD ADJUST Y02006 15098102 * ROUTINE Y02006 15098502 AASCBFMT DC A(0) . ADDRESS OF AMDPRFAR Y02006 15098802 ASRBFMT DC A(0) . ADDRESS OF AMDPRSRB Y02006 15101402 AUSRINIT DC V(AMDPRUIM) . ADDRESS OF USER INTERFACE MODULE 15104002 * INITIALIZATION ROUTINE Y02006 15114002 AUSREXIT DC V(AMDUSRXT) . MAIN ENTRY POINT TO AMDPRUIM Y02006 15114102 AUSRDEL DC V(AMDUSRDL) . ENTRY POINT FOR AMDPRUIM Y02006 15114202 * CLEAN-UP Y02006 15117502 AUSRTCBA DC F'0' . ADDR OF TCB CURRENTLY BEING Y02006 15119902 * PROCESSED BY FSR Y02006 15120302 AUSRASID DC H'0' . ASID OF MEMORY CURRENTLY Y02006 15120702 * BEING PROCESSED BY FSR OR FAR Y02006 15120802 EXITFLAG DC X'00' . FLAGS INDICATING ACTION Y02006 15120902 * AMDPRUIM IS TO PERFORM Y02006 15124202 RBMAX DC H'50' . LOOP CONTROL VALUE Y02006 15127702 PQEMAX DC H'50' . Y02006 15131002 LLEMAX DC H'255' . Y02006 15134302 JPQMAX DC H'256' . Y02006 15144302 DEBMAX DC H'200' . Y02006 15164302 DDMAX DC H'1635' . Y02006 15174302 SRBMAX DC H'50' . Y02006 15186702 TCBMAX DC H'256' . @ZA00413 15186800 ASCBMAX DC H'200' . Y02006 15186902 DQEMAX DC H'50' . Y02006 15187002 XLMAX DC F'25' . Y02006 15187102 DNUCTOP DC AL4(X'00200000') . DEFAULT NUCTOP VALUE Y02006 15188302 LPAMAX DC F'500' . LOOP CONTROL VALUE Y02006 15190302 DFLTCSA DC AL4(X'00B00000') . DEFAULT CSA ADDRESS Y02006 15192302 TOPICHDR DC CL10' ' . OPTIONAL PAGE HEADER Y02006 15192702 CSADDR DC F'0' CSA ADDRESS Y02006 15193502 I3800SW DC X'00' SWITCHES FOR 3800 SUPPORT CODE @Z40MI3F 15193700 TITLEKEY DC CL16'STORAGE KEY ' MSG IN PGE TITLE DURING @Z40MI3F 15193900 * CONDENSED DUMPING ONLY @Z40MI3F 15194100 Z9SVCBUF DS F'0' ADDR OF SVC BUFFER MAP OZ09006 15194200 Z9SUBITS DC XL15'00' SU BIT STRING OZ09006 15194300 Z9SUFLG DC XL1'00' SU FLAG BYTE OZ09006 15204300 Z9ERRID DS CL12 STORED FROM SVC DUMP UZ81700 15209300 EJECT 15214300 MEND */ 15244302 *%COM2 : ; 15294302 * 15344302 *DECLARE 15394302 * 1 COMMON BASED, 15444302 * 2 ERRADDR PTR(31) BDY(WORD), /* ERROR ROUTINE ADDRESS */ 15494302 * 2 VERBGN PTR(31), /* BEGINNING ADDRESS OF VERB */ 15544302 * 2 VERBEND PTR(31), /* ENDING ADDRESS OF VERB */ 15594302 * 2 KYWDBGN PTR(31), /* BEGINNING ADDR OF KEYWORD */ 15644302 * 2 KYWDEND PTR(31), /* ENDING ADDRESS OF KEYWORD */ 15694302 * 2 DELIMCD FIXED(31), /* CODE INDICATING TYPE OF 15744302 * DELIMITER ENCOUNTERED DURING 15794302 * CONTROL STATEMENT SCAN */ 15844302 * 2 WORK1 CHAR(8) BDY(DWORD), /* DOUBLEWORD WORK AREA */ 15894302 * 2 NUCTOP FIXED(31), /* TOP OF NUCLEUS */ 15944302 * 2 SIX FIXED(31), /* CONSTANT 6 */ 16094302 * 2 LINECNT FIXED(31), /* CURRENT LINE NUMBER,USED TO 16144302 * DETERMINE WHEN A NEW PAGE IS 16194302 * NEEDED */ 16244302 * 2 PAGENUMB FIXED(31), /* CURRENT PAGE NUMBER */ 16294302 * 2 CURBUF PTR(31), /* ADDRESS OF CURRENT OUTPUT 16344302 * BUFFER - SUPPLIED BY 16394302 * AMDPRWTR */ 16444302 * 2 TCBLIST PTR(31), /* ORIGIN OF TCB LIST */ 16494302 * 2 CVTADDR FIXED(31), /* ADDRESS OF CVT IN DUMPED 16544302 * SYSTEM */ 16594302 * 2 PCBPTR PTR(31), /* ORIGIN OF PCB QUEUE */ 16644302 * 2 STORSIZE FIXED(31), /* AVAILABLE STORAGE SIZE */ 16694302 * 2 INDD CHAR(8), /* DDNAME ON INPUT DATA SET 16844302 * DD STATEMENT - DEFAULT VALUE 16894302 * IS 'TAPE' */ 16944302 * 2 FILESEQ FIXED(15), /* VALUE OF FILESEQ PARAMETER 16994302 * ON NEWDUMP CONTROL STMT */ 17044302 * 2 * CHAR(2), /* UNUSED FIELD */ 17094302 * 2 RDENTRY FIXED(31), /* COUNT OF DATA ENTRIES TO 17144302 * AMDPRRDC */ 17194302 * 2 READNO FIXED(31), /* NUMBER OF BLOCKS READ */ 17244302 * 2 RDERCNT FIXED(31), /* NUMBER OF I/O ERRORS WHILE 17294302 * ATTEMPTING TO READ SYSUT1 OR 17344302 * DUMP DATA SET */ 17394302 * 2 READTM FIXED(31), /* NUMBER OF TIMES REQUESTED 17444302 * DATA WAS NOT IN A BUFFER */ 17494302 * 2 ONEA FIXED(15), /* CONSTANT: 1 */ 17544302 * 2 TWO FIXED(15), /* CONSTANT: 2 */ 17594302 * 2 THREE FIXED(15), /* CONSTANT: 3 */ 17644302 * 2 FOUR FIXED(15), /* CONSTANT: 4 */ 17694302 * 2 FIVE FIXED(15), /* CONSTANT: 5 */ 17744302 * 2 SEVEN FIXED(15), /* CONSTANT: 7 */ 17794302 * 2 EIGHT FIXED(15), /* CONSTANT: 8 */ 17844302 * 2 HTEN FIXED(15), /* CONSTANT: 10 */ 17894302 * 2 ELEVEN FIXED(15), /* CONSTANT: 11 */ 17944302 * 2 TWELVE FIXED(15), /* CONSTANT: 12 */ 17954302 * 2 SIXTEEN FIXED(15), /* CONSTANT: 16 */ 17994302 * 2 LINENUMB FIXED(15), /* VALUE OF LINECNT PARAMETER 18044302 * IN PARM FIELD OF EXEC 18094302 * STATEMENT OR DEFAULT OF 58 */ 18144302 * 2 LINENUM FIXED(15), /* VALUE OF LINECNT PARAMETER 18194302 * MINUS 2 */ 18244302 * 2 SWA CHAR(1), /* SWITCHES */ 18294302 * 3 * BIT(1), 18344302 * 3 * BIT(1), 18394302 * 3 * BIT(1), 18444302 * 3 * BIT(1), 18494302 * 3 GOSW BIT(1), /* GO CONTROL STATEMENT 18544302 * PROCESSING IN PROGRESS */ 18594302 * 3 * BIT(1), 18644302 * 3 SETCVTSW BIT(1), /* CVTADDR FIELD HAS BEEN FILLED 18694302 * BY CVT= CONTROL STATEMENT */ 18744302 * 3 RDRSW BIT(1), /* CONTROL STATEMENTS COMING 18794302 * FROM SYSIN DATA SET IF =1 */ 18844302 * 2 SWB CHAR(1), 18894302 * 3 IOERR BIT(1), /* I/O ERROR WHILE READING FROM 18944302 * SYSUT1 OR DUMP DATA SET */ 18994302 * 3 FMTERR BIT(1), /* REQUESTED INFORMATION NOT IN 19044302 * DUMP DATA SET */ 19094302 * 3 * BIT(1), 19144302 * 3 * BIT(1), 19194302 * 3 ENDSW BIT(1), /* END CONTROL STATEMENT BEING 19244302 * PROCESSED */ 19294302 * 3 QSYSUT2 BIT(1), /* IF =1, SYSUT2 EXISTS */ 19344302 * 3 * BIT(1), 19394302 * 3 * BIT(1), 19444302 * 2 SWC CHAR(1), 19494302 * 3 MSTRSW BIT(1), /* AMDPRMST HAS ATTEMPTED DUMP 19544302 * DATA SET INITIALIZATION */ 19594302 * 3 SETFLSH BIT(1), /* SET FLUSHMODE INDICATOR */ 19644302 * 3 POSITSW BIT(1), /* POSITIONING OF DUMP DATA SET 19744302 * MUST BE PERFORMED */ 19794302 * 3 TREADIN BIT(1), /* AMDPREAD HAS BEEN LOADED */ 19844302 * 3 EDITSW BIT(1), /* EDIT FUNCTION IS BEING 19894302 * PERFORMED */ 19944302 * 3 * BIT(1), 19994302 * 3 * BIT(1), 20044302 * 3 * BIT(1), 20094302 * 2 SWD CHAR(1), 20144302 * 3 FLSHMODE BIT(1), /* CONTROL STATEMENTS ARE BEING 20194302 * SCANNED FOR SYNTAX ERRORS 20244302 * ONLY */ 20294302 * 3 * BIT(1), 20344302 * 3 * BIT(1), 20394302 * 3 NOSTDMG BIT(1), /* DO NOT ISSUE MESSAGE AMD165I 20444302 * BEFORE SERVICING CALLER'S 20494302 * MESSAGE REQUEST */ 20544302 * 3 NOLOADSW BIT(1), /* IF =1, A VERB CAME BEFORE 20594302 * END VERB */ 20644302 * 3 CONTSW BIT(1), /* CONTINUATION OF EDIT CONTROL 20694302 * STATEMENT MUST BE OBTAINED */ 20744302 * 3 GPRSFND BIT(1), /* PRINT GENERAL REGISTERS 20794302 * CONTENTS (SADMP INPUT) */ 20844302 * 3 * BIT(1), 20894302 * 2 SWE CHAR(1), 20944302 * 3 STOPSW BIT(1), /* STOP OPTION SPECIFIED */ 20994302 * 3 * BIT(1), 21044302 * 3 RESPC BIT(1), /* USER MUST RESPECIFY EDIT 21094302 * OPTIONS */ 21144302 * 3 TITLESW BIT(1), /* TITLE OPTION SPECIFIED */ 21194302 * 3 BUILDMAP BIT(1), /* AMDPREAD MUST SCAN DUMP TO 21244302 * BUILD MAP(S) */ 21294302 * 3 * BIT(1), 21344302 * 3 * BIT(1), 21644302 * 3 * BIT(1), 21694302 * 2 SWF CHAR(1), 21744302 * 3 QPRDINIT BIT(1), /* AMDPREAD INIT. REQUIRED IF 21794302 * =0 */ 21844302 * 3 NUCTFRMC BIT(1), /* IF 1 NUCTOP IS FROM CVT */ 21894302 * 3 QSADMP BIT(1), /* INPUT IS FROM AMDSADMP */ 21944302 * 3 DMPIC BIT(1), /* ENTIRE DUMP IN BUFFERS */ 21994302 * 3 PAGEOK BIT(1), /* SWITCH FOR FCB */ 22044302 * 3 * BIT(1), 22094302 * 3 QUT1LOD BIT(1), /* SYSUT1 LOADED BY LOD */ 22144302 * 3 * BIT(1), 22194302 * 2 BUFSW CHAR(1), 22244302 * 3 * BIT(1), 22294302 * 3 * BIT(1), 22344302 * 3 * BIT(1), 22394302 * 3 * BIT(1), 22444302 * 3 * BIT(1), 22494302 * 3 * BIT(1), 22594302 * 3 PREFM BIT(1), /* PREFORMATTED DUMP IS BEING 22644302 * PROCESSED */ 22694302 * 3 * BIT(1), 22744302 * 2 PRSW CHAR(1), 22794302 * 3 * BIT(1), 22844302 * 3 QSEGTBSW BIT(1), /* SEGMENT TABLE ORIGIN GIVEN 22944302 * BY USER */ 22994302 * 3 * BIT(1), 23044302 * 3 TTLSW BIT(1), /* PRINT TITLE FROM HEADER 23094302 * RECORD ON PRINTER DATA SET */ 23144302 * 3 PRNTRL BIT(1), /* PRINT REAL VERB IS CURRENT 23194302 * VERB */ 23244302 * 3 PRNTREAL BIT(1), /* REAL STORAGE DATA REQUESTED*/ 23294302 * 3 * BIT(1), 23344302 * 3 * BIT(1), 23394302 * 2 * CHAR(3), /* SPARE BYTES */ 23894302 * 2 WTORMSG CHAR(81), /* CONTROL STATEMENT INPUT 23994302 * AREA */ 24044302 * 2 BLANKS CHAR(8), /* 8 BYTES OF BLANKS */ 24094302 * 2 TITLE CHAR(5), /* CHARACTER STRING - TITLE */ 24144302 * 2 STOP CHAR(4), /* CHARACTER STRING - STOP */ 24194302 * 2 MSG1 CHAR(26), /* ID AND SKELETON OF MESSAGE 24294302 * AMD161I */ 24344302 * 2 MSG2 CHAR(26), /* ID AND SKELETON OF MESSAGE 24394302 * AMD158I */ 24444302 * 2 TITLEMSG CHAR(64), /* TITLE AREA FOR USER-SUPPLIED 24494302 * TITLE */ 24544302 * 2 TITLEMOD CHAR(15), /* LABEL AND FIELD FOR MODULE 24594302 * NAME FROM DUMP DATA SET 24644302 * HEADER */ 24694302 * 2 * CHAR(2), /* 2 BLANKS */ 24744302 * 2 TITLEDTE CHAR(13), /* LABEL AND FIELD FOR DATE ON 24794302 * WHICH DUMP WAS TAKEN */ 24844302 * 2 * CHAR(2), /* 2 BLANKS */ 24894302 * 2 TITLETME CHAR(13), /* LABEL AND FIELD FOR TIME AT 24944302 * WHICH DUMP WAS TAKEN */ 24994302 * 2 * CHAR(2), /* 2 BLANKS */ 25044302 * 2 TITLEPGE CHAR(9), /* LABEL AND FIELD FOR PAGE 25094302 * NUMBER */ 25144302 * 2 CAPTABL CHAR(256), /* TRANSLATE TABLE FOR TRANSLA- 25194302 * TING EBCDIC LOWER CASE TO 25244302 * UPPER CASE */ 25294302 * 2 TABLE CHAR(256), /* TRANSLATE TABLE TO FORM 25344302 * EBCDIC PRINTOUT AT RIGHT 25394302 * MARGIN OF GENERAL FORMAT */ 25444302 * 3 * CHAR(63), 25494302 * 3 HEXTABL CHAR(256), /* TRANSLATE TABLE FOR 1ST STAGE 25544702 * OF CONVERSION OF BINARY 25546302 * NUMBER TO CHARACTER 25548302 * HEXADECIMAL */ 25550302 * 4 * CHAR(10), 25554302 * 4 EBCTABL CHAR(256), /* TRANSLATE TABLE FOR 2ND STAGE 25564302 * OF CONVERSION OF BINARY 25566302 * NUMBER TO CHARACTER 25568302 * HEXADECIMAL */ 25570302 * 2 * CHAR(57), 25574302 * 2 * CHAR(16), 25590302 * 2 BLNK CHAR(256), /* MAIN SCAN TABLE */ 25593502 * 2 NONBLNK CHAR(256), /* TABLE FOR NON-BLANK CHAR 25595502 * SCAN */ 25597502 * 25598902 */********************************************************************/ 25601302 */* */ 25603702 */* COMMON ADDRESS CONSTANTS */ 25606102 */* */ 25608502 */********************************************************************/ 25610902 * 25627602 * 2 AWRITE PTR(31) BDY(WORD), /* ADDRESS OF PRINTER DATA SET 25644302 * WRITE ROUTINE AMDPRWTR */ 25694302 * 2 APRTMSG PTR(31), /* ADDRESS OF SYSPRINT DATA SET 25744302 * WRITE ROUTINE AMDPRMSG */ 25794302 * 2 ASYNTAX PTR(31), /* ADDRESS OF MESSAGE WRITER 25844302 * ROUTINE, AMDPRSYN */ 25894302 * 2 AFMTLINE PTR(31), /* ADDRESS OF GENERAL FORMAT 25944302 * ROUTINE, AMDPRGFR */ 25994302 * 2 AADRCNVT PTR(31), /* ADDRESS OF 3 BYTE BINARY TO 26044302 * CHARACTER HEXADECIMAL CON- 26094302 * VERSION ROUTINE IN CSECT 26144302 * AMDPRSYN */ 26194302 * 2 AWRDCNVT PTR(31), /* ADDRESS OF 4 BYTE CONVERSION 26244302 * ROUTINE */ 26294302 * 2 ARGNBND PTR(31), /* ADDRESS OF REGION BOUNDARY 26404302 * ROUTINE */ 26414302 * 2 STOPEXIT PTR(31), /* ADDRESS OF CURRENT STOP EXIT 26444302 * ROUTINE */ 26494302 * 2 SYNMSGA PTR(31), /* ADDRESS OF SYNTAX ERROR 26544302 * MESSAGE ARRAY */ 26594302 * 2 AEREXIT PTR(31), /* ADDRESS OF ERROR EXIT 26644302 * (TERMINATION) ROUTINE */ 26694302 * 2 ALOADER PTR(31), /* ADDRESS OF SEGMENT LOAD 26744302 * ROUTINE,AMDPRSEG */ 26794302 * 2 QATMERTN PTR(31), /* ADDRESS OF TOD CLOCK CONVERT 26844302 * ROUTINE */ 26894302 * 2 ATCBSAVE PTR(31), /* ADDR OF TCB SAVE ROUTINE */ 26944302 * 2 ATCBREMV PTR(31), /* ADDR OF ROUTINE FOR REMOVING 26994302 * TCBS FROM THE TCBLIST */ 27044302 * 2 ATCBRTRV PTR(31), /* ADDR OF TCB RETREIVE RTN */ 27094302 * 2 APCBENQ PTR(31), /* PCB QUEUE MANAGEMENT RTN */ 27144302 * 2 ASTPROUT PTR(31), /* ADDR OF MAIN STOP ROUTINE */ 27194302 * 2 AFORMAT PTR(31), /* ADDR OF ROUTINE THAT CONTROLS 27244302 * THE FORMATTING OF CONTROL 27294302 * BLOCKS */ 27344302 * 2 APRTSTG PTR(31), /* ADDR OF PRINT STORAGE SERVICE 27394302 * ROUTINE */ 27444302 * 2 BUFSUM FIXED(31), /* TOTAL NUMBER OF BUFFERS FOR 27494302 * THIS EXECUTION */ 27544302 * 2 BUFREINT FIXED(31), /* NUMBER OF TIMES BUFFERS WERE 27594302 * INITIALIZED */ 27644302 * 2 AERRMSGA(2) PTR(31), /* ERROR MESSAGE ARRAY */ 27694302 * 2 AEND PTR(31), /* ADDR OF AMDPREND */ 27744302 * 2 ONGOPTR PTR(31), /* POINTER TO ONGO OPERAND */ 27794302 * 2 ATCBSMFR PTR(31), /* ADDR OF TCB SUMMARY TABLE 27844302 * FREE ROUTINE */ 27894302 * 2 ATCBSMRY PTR(31), /* ADDR OF TCB SUMMARY TABLE 28044302 * PRINT ROUTINE */ 28094302 * 2 DCBADDRS CHAR(20) BDY(WORD), /* DCB ADDRESS ARRAY */ 28144302 * 3 AOUTDCB PTR(31), /* ADDR OF OUTPUT(PRINTER) DCB*/ 28194302 * 3 APTRDCB PTR(31), /* ADDR OF MSG(SYSPRINT) DCB */ 28244302 * 3 ARDRDCB PTR(31), /* ADDR OF CONTROL CARD INPUT 28294302 * DCB (SYSIN) */ 28344302 * 3 AINDCB PTR(31), /* ADDR OF INPUT DUMP DATA SET 28394302 * DCB (TAPE) */ 28444302 * 3 * PTR(31), 28494302 * 4 * CHAR(1), 28594302 * 5 ENDLIST BIT(1), /* END OF LIST INDICATOR */ 28644302 * 4 ASYSUDCB PTR(24), /* ADDR OF SYSUT1 OR SYSUT2 28654302 * DCB */ 28664302 */********************************************************************/ 28694302 */* */ 28744302 */* AREAS NEEDED FOR GTF EDIT INTERFACE */ 28794302 */* */ 28844302 */********************************************************************/ 28894302 * 2 TRCCOUNT FIXED(31), /* COUNT OF ENTRIES TO 28944302 * AMDPRGET */ 28994302 * 2 AEDITCB PTR(31), /* ADDR OF EDIT COMMUNICATION 29044302 * AREA - AMDPRTAB */ 29094302 * 2 AROOT PTR(31), /* ADDR OF AMDPRTAB INIT. RTN */ 29144302 * 2 EDITER CHAR(1), /* VALUE OF ER PARAMETER OF 29194302 * EXECUTE STATEMENT */ 29244302 * 2 * CHAR(3), 29294302 */********************************************************************/ 29344302 */* */ 29394302 */* ADDITIONS FOR X01980/Y01980 SUPPORT */ 29444302 */* */ 29494302 */********************************************************************/ 29544302 * 2 REALMAP PTR(31) BDY(WORD), /* POINTER TO REAL DUMP MAPS */ 29594302 * 2 SEGTABOR PTR(31), /* SEGMENT TABLE ORIGIN */ 29644302 * 2 REALMAX FIXED(31), /* TOP OF REAL STORAGE-CVTEORM*/ 29694302 * 2 * FIXED(31), /* SPARE WORD */ 29744302 * 2 QAPFT PTR(31), /* ADDRESS OF PFT IN DUMP */ 29944302 */********************************************************************/ 29994302 */* */ 30044302 */* ADDITIONS FOR Y02006 SUPPORT */ 30094302 */* */ 30144302 */********************************************************************/ 30194302 * 2 QASID BIT(16), /* ASID OF IPL'ED CPU */ 30344302 * 2 IPLCPU BIT(16), /* ADDRESS OF IPL'ED CPU - 30394302 * CONTAINS 256 IF THE IPL'ED 30444302 * CPU STATUS WAS UNAVAIBLE - 30494302 * I.E. AN I/O ERROR OCCURRED 30544302 * WHEN THE CPU STATUS RECORD 30594302 * WAS BEING READ */ 30644302 * 2 CURASCB PTR(31), /* ADDR OF CURRENT ASCB IN 30694302 * DUMPED SYSTEM */ 30744302 * 2 PREFXRGR PTR(31), /* REAL ADDRESS IN PSA PREFIX 30894302 * REGISTER (SADMP INPUT ONLY)*/ 30944302 * 2 PREFXRGV PTR(31), /* VIRTUAL ADDRESS IN PSA PREFIX 30994302 * REGISTER (SADMP INPUT ONLY)*/ 31044302 * 2 ASVTADDR PTR(31), /* ADDR OF ASVT IN DUMPED SYS */ 31094302 * 2 SACSWCAW CHAR(12), /* CSW (FIRST 8 BYTES) AND CAW 31144302 * (LAST 4 BYTES) FROM AMDSADMP 31194302 * HEADER RECORD */ 31244302 * 2 HDRREGS CHAR(168), /* REGISTERS AND CURRENT PSW 31294302 * FROM SVCDUMP OR DSS HEADER */ 31344302 * 2 HDRTITLE CHAR(100), /* TITLE FROM HEADER RECORD */ 31354302 * 2 * PTR(31), /* SPARE WORD */ 31394302 * 2 ASIDNDX PTR(31), /* POINTER TO ASID INDEX */ 31444302 * 2 CPUMAP PTR(31), /* POINTER TO CPU STATUS RECORD 31494302 * MAPS */ 31544302 * 2 ASCBMAP PTR(31), /* POINTER TO THE ASCB MAP THAT 31594302 * IS CREATED BY AMDPRRDC */ 31644302 * 2 BUFERMAP PTR(31), /* ADDRESS OF THE FIRST PHYSICAL 31694302 * BUFFER MAP ENTRY IN RDC */ 31744302 * 2 BRRDDATA PTR(31), /* ADDRESS OF AMDPRRDC READ DATA 31754302 * ROUTINE */ 31764302 * 2 BRRDINIT PTR(31), /* ADDRESS OF BRREAD INIT 31774302 * ROUTINE */ 31784302 * 2 BRRDADJ PTR(31), /* ADDRESS OF BRREAD ADJUST 31786302 * ROUTINE */ 31788302 * 2 AASCBFMT PTR(31), /* ADDRESS OF AMDPRFAR */ 31794302 * 2 ASRBFMT PTR(31), /* ADDRESS OF AMDPRSRB */ 31844302 * 2 AUSRINIT PTR(31), /* ADDRESS OF AMDPRUIM INIT. 31854302 * ROUTINE */ 31864302 * 2 AUSREXIT PTR(31), /* MAIN ENTRY POINT TO AMDPRUIM 31874302 * */ 31884302 * 2 AUSRDEL PTR(31), /* ENTRY POINT FOR AMDPRUIM 31886302 * CLEAN-UP ROUTINE */ 31888302 * 2 AUSRTCBA PTR(31), /* ADDR OF TCB CURRENTLY BEING 31892302 * PROCESSED BY FSR */ 31892702 * 2 AUSRASID BIT(16), /* ASID OF MEMORY CURRENTLY 31893102 * BEING PROCESSED BY FSR OR 31893502 * FAR */ 31893902 * 2 EXITFLAG CHAR(1), /* FLAGS INDICATING ACTION 31894002 * AMDPRUIM IS TO PERFORM */ 31894102 * 2 * CHAR(1), 31927402 * 2 RBMAX FIXED(15), /* LOOP CONTROL VALUE =50 */ 31927602 * 2 PQEMAX FIXED(15), /* LOOP CONTROL VALUE =50 */ 31944302 * 2 LLEMAX FIXED(15), /* LOOP CONTROL VALUE =255 */ 31994302 * 2 JPQMAX FIXED(15), /* LOOP CONTROL VALUE =256 */ 32044302 * 2 DEBMAX FIXED(15), /* LOOP CONTROL VALUE =200 */ 32144302 * 2 DDMAX FIXED(15), /* LOOP CONTROL VALUE =1635 */ 32194302 * 2 SRBMAX FIXED(15), /* LOOP CONTROL VALUE =50 */ 32296302 2 TCBMAX FIXED(15), /* LOOP CONTROL VALUE=256 @ZA00413*/ 32298300 * 2 ASCBMAX FIXED(15), /* LOOP CONTROL VALUE =200 */ 32298702 * 2 DQEMAX FIXED(15), /* LOOP CONTROL VALUE =50 */ 32299102 * 2 XLMAX FIXED(31) BDY(WORD), /* LOOP CONTROL VALUE =25 */ 32300302 * 2 DNUCTOP FIXED(31) BDY(WORD), /* DEFAULT TOP OF NUCLEUS */ 32304302 * 2 LPAMAX FIXED(31) BDY(WORD), /* LOOP CONTROL VALUE = 500 */ 32314302 * 2 DFLTCSA PTR(31), /* DEFAULT CSA ADDRESS */ 32324302 * 2 TOPICHDR CHAR(10), /* OPTIONAL PAGE HEADER */ 32334302 * 2 * CHAR(2), /* UNUSED FIELD */ 32337302 * 2 CSADDR FIXED(31), /* CSA ADDRESS */ 32340300 * 2 I3800SW CHAR(1), /* SWITCHES FOR 3800 SUPPORT */ 32340700 * 3 * BIT(1), /* UNUSED @Z40MI3F*/ 32341100 * 3 * BIT(1), /* UNUSED @Z40MI3F*/ 32341500 * 3 * BIT(1), /* UNUSED @Z40MI3F*/ 32341900 * 3 * BIT(1), /* UNUSED @Z40MI3F*/ 32342300 * 3 I3800KEY BIT(1), /* KEY MSG NEEDED @Z40MI3F */ 32342700 * 3 I3800ULN BIT(1), /* USER-SPEC-PAGE-LEN */ 32343100 * 3 I380080 BIT(1), /* LONG PAGE FORMAT */ 32343500 * 3 I3800204 BIT(1), /* CONDENSED DUMP FORMAT @Z40MI3F */ 32343900 * 2 TITLEKEY CHAR(16), /* KEY MSG IN PGE TITLE @Z40MI3F */ 32344000 * 3 * CHAR(12), /* DURING CONDENSED ONLY @Z40MI3F */ 32344100 * 3 TITLESTK CHAR(2), /* STORAGE KEY VALUE @Z4OM13F*/ 32344200 * 2 Z9SVCBUF PTR(31), /* ADDR OF SVC BUFFER OZ09006 */ 32344300 * 2 Z9SUBITS CHAR(15), /* SU BIT STRING OZ09006 */ 32346300 * 2 Z9SUFLG BIT(8), /* SU FLAG OZ09006 */ 32348300 * 2 Z9ERRID CHAR(12); /* SET FROM SVC DUMP UZ81700 */ 32349300 * 32350300 */********************************************************************/ 32354302 */* */ 32364302 */* EXITFLAG VALUES */ 32374302 */* */ 32384302 */********************************************************************/ 32384702 * 32386302 *DECLARE 32388302 * ATCB BIT(8) CONSTANT('80'X), /* ENTER FOR EACH TCB */ 32390302 * BASID BIT(8) CONSTANT('40'X), /* ENTER FOR EACH ASID */ 32392302 * CFORMAT BIT(8) CONSTANT('20'X), /* ENTER ON EACH FORMAT STMT */ 32392702 * DCURJOB BIT(8) CONSTANT('10'X), /* ENTER FOR PRINT CURRENT AND 32393102 * PRINT JOBNAME STMT'S */ 32393202 * ENUCLEUS BIT(8) CONSTANT('08'X), /* ENTER FOR PRINT NUCLEUS 32393502 * STMT */ 32393602 * ZVERB BIT(8) CONSTANT('00'X); /* ENTER TO DECODE VERB */ 32393902 * 32394002 */********************************************************************/ 32394102 */* */ 32394202 */* FMTPTRN FLAG BYTE VALUES */ 32410902 */* */ 32420902 */********************************************************************/ 32422902 * 32423302 *GEN DATA; 32423702 DTAE EQU 32 DATA EBCDIC BIT 32423802 DTAC EQU 16 DATA IN CORE BIT 32423902 DTAP EQU 8 DATA PTR BIT 32424002 DTA EQU 4 DATA INCLUDED BIT 32428002 LBLP EQU 2 LABEL PTR BIT 32430002 LBL EQU 1 LABEL INCLUDED BIT 32432002 *@ENDGEN; 32432302 * 32436302 */********************************************************************/ 32440302 */* */ 32444302 */* REGISTER DEFINITIONS */ 32494302 */* */ 32544302 */********************************************************************/ 32594302 * 32644302 *DECLARE 32694302 * R0 REG(0) PTR(31), /* GENERAL REGISTER 0 */ 32744302 * R1 REG(1) PTR(31), /* GENERAL REGISTER 1 */ 32794302 * R2 REG(2) PTR(31), /* GENERAL REGISTER 2 */ 32844302 * R3 REG(3) PTR(31), /* GENERAL REGISTER 3 */ 32894302 * R4 REG(4) PTR(31), /* GENERAL REGISTER 4 */ 32944302 * R5 REG(5) PTR(31), /* GENERAL REGISTER 5 */ 32994302 * R6 REG(6) PTR(31), /* GENERAL REGISTER 6 */ 33044302 * R7 REG(7) PTR(31), /* GENERAL REGISTER 7 */ 33094302 * R8 REG(8) PTR(31), /* GENERAL REGISTER 8 */ 33144302 * R9 REG(9) PTR(31), /* GENERAL REGISTER 9 */ 33194302 * R10 REG(10) PTR(31), /* GENERAL REGISTER 10 */ 33244302 * R11 REG(11) PTR(31), /* GENERAL REGISTER 11 */ 33294302 * R12 REG(12) PTR(31), /* GENERAL REGISTER 12 */ 33344302 * R13 REG(13) PTR(31), /* GENERAL REGISTER 13 */ 33394302 * R14 REG(14) PTR(31), /* GENERAL REGISTER 14 */ 33444302 * R15 REG(15) PTR(31), /* GENERAL REGISTER 15 */ 33494302 * COMBASE REG(12) PTR(31), /* COMMON AREA BASE REGISTER */ 33594302 * BASE1 REG(11) PTR(31), /* BASE REGISTER */ 33644302 * BASE2 REG(10) PTR(31), /* SECOND BASE REGISTER */ 33694302 * BASE3 REG(9) PTR(31), /* THIRD BASE REGISTER */ 33744302 * STOPBASE REG(5) PTR(31), /* STOP EXIT BASE REGISTER */ 33794302 * LINEREG REG(8) PTR(31), /* */ 33844302 * BUFREG REG(6) PTR(31), /* POINTER TO OUTPUT BUFFER */ 33894302 * CNTREG REG(3) PTR(31), /* */ 33944302 * PREG REG(1) PTR(31); /* PARAMETER REGISTER */ 33994302 * 34044302