TITLE 'AMDSAFRM DYNAMIC STORAGE DEALLOCATION ROUTINE *00001000 ' 00002000 AMDSAFRM CSECT 00003000 STM R0,R15,FRMSAVE SAVE REGISTERS IN LOW CORE 00004000 BALR BASEREG,0 SET UP ADDRESSABILITY 00005000 USING *,BASEREG 00006000 STOSM FRMMASK,0 GET CURRENT SYSTEM MASK 00007000 * 0173 00008000 * /*****************************************************************/ 00009000 * /* */ 00010000 * /* IF CALLER WAS EXECUTING IN TRANSLATED MODE, CONVERT ADDRESS TO*/ 00011000 * /* BE FREED TO A REAL ADDRESS. CHECK IF STORAGE TO BE FREED HAS */ 00012000 * /* BEEN ALLOCATED. */ 00013000 * /* */ 00014000 * /*****************************************************************/ 00015000 * 0173 00016000 */* D (YES,,NO,%FRMCONT) DAT BIT ON IN FRMMASK */ 00017000 */* P SUBTRACT VCTLPA FROM R1 TO GET REAL ADDR */ 00018000 */*%FRMCONT: P OBTAIN DSCE FROM VCTDSCE */ 00019000 */* D (NO,,YES,FRMERROR) R1 < DSCEBEGN */ 00020000 */* D (NO,,YES,FRMERROR) R1 > DSCENEXT - X'100' */ 00021000 */* P COMPUTE (R1 - DSCEBEGN) / X'100' */ 00022000 */* D (YES,,NO,FRMERROR) REMAINDER = 0 */ 00023000 * FRMRELOC = 0; /* SET RELOCATION ADDRESS TO 0 */ 00024000 SR FRMRELOC,FRMRELOC 0173 00025000 * IF PSWDAT = ON THEN /* CALLER EXECUTING IN TRANSLATED 00026000 * MODE */ 00027000 LA @15,FRMMASK 0174 00028000 TM PSWDAT(@15),B'00000100' 0174 00029000 BNO @RF00174 0174 00030000 * DO; /* YES - */ 00031000 * R1 = R1 - VCTLPA; /* YES - CONVERT AREA ADDRESS TO 00032000 * REAL */ 00033000 L @15,VCTLPA(,VCCTREG) 0176 00034000 SR R1,@15 0176 00035000 * FRMRELOC = VCTLPA; /* SET UP RELOCATION ADDRESS */ 00036000 LR FRMRELOC,@15 0177 00037000 * END; 0178 00038000 * IF R1 < DSCEBEGN THEN /* ADDRESS LESS THAN BEGINNING OF 00039000 * DYNAMIC AREA */ 00040000 @RF00174 LR @15,FRMRELOC 0179 00041000 A @15,VCTDSCE(,VCCTREG) 0179 00042000 L @10,DSCEBEGN(,@15) 0179 00043000 CR R1,@10 0179 00044000 BL @RT00179 0179 00045000 * GO TO FRMERROR; /* YES - ERROR */ 00046000 * IF R1 > DSCENEXT - STORSIZE THEN /* ADDRESS GREATER THAN LAST 0181 00047000 * ALLOCATED ADDRESS */ 00048000 L @05,DSCENEXT(,@15) 0181 00049000 SH @05,@CH00446 0181 00050000 CR R1,@05 0181 00051000 BH @RT00181 0181 00052000 * GO TO FRMERROR; /* YES - ERROR */ 00053000 * IF (R1 - DSCEBEGN) // STORSIZE ^= 0 THEN /* INTEGRAL NUMBER OF 0183 00054000 * ALLOCATED STORAGE UNITS */ 00055000 LR @02,@10 0183 00056000 LCR @02,@02 0183 00057000 AR @02,R1 0183 00058000 SRDA @02,32 0183 00059000 D @02,@CF00446 0183 00060000 LTR @02,@02 0183 00061000 BNZ @RT00183 0183 00062000 * GO TO FRMERROR; /* NO - ERROR */ 00063000 * 0185 00064000 * /*****************************************************************/ 00065000 * /* */ 00066000 * /* STORAGE TO BE FREED IS VALID. UPDATE DSCE AND RETURN TO CALLER*/ 00067000 * /* */ 00068000 * /*****************************************************************/ 00069000 * 0185 00070000 */* P SET DSCENEXT = R1 */ 00071000 */* P MARK AREA AS FREED ('F' IN FIRST BYTE) */ 00072000 */* P RESTORE REGISTERS FROM FRMSAVE */ 00073000 */* P SET RETURN CODE = 0 */ 00074000 */* R RETURN TO CALLER */ 00075000 * DSCENEXT = R1; /* POINT NEXT AVAILABLE SPACE TO 00076000 * AREA REQUESTED */ 00077000 ST R1,DSCENEXT(,@15) 0185 00078000 * EVAL(R1+FRMRELOC) -> SAVEID = 'F'; /* MARK AREA AS FREED */ 00079000 LR @15,R1 0186 00080000 AR @15,FRMRELOC 0186 00081000 MVI SAVEID(@15),C'F' 0186 00082000 * RESPECIFY (RETREG,RETCODE) RESTRICTED; 0187 00083000 * GEN(LM R0,R15,FRMSAVE); /* RESTORE CALLER'S REGISTERS */ 00084000 LM R0,R15,FRMSAVE 00085000 * RETCODE = 0; /* SET UP ZERO RETURN CODE */ 00086000 SR RETCODE,RETCODE 0189 00087000 * GENERATE REFS(RETREG) (BR RETREG); /* RETURN TO CALLER */ 00088000 BR RETREG 00089000 * RESPECIFY (RETREG,RETCODE) UNRESTRICTED; 0191 00090000 * 0192 00091000 * /*****************************************************************/ 00092000 * /* */ 00093000 * /* AREA TO BE FREED IS INVALID. SINCE THIS IS PROBABLY A SAVE */ 00094000 * /* AREA, USING IT TO RESTORE REGISTERS MAY CAUSE PROBLEMS. INVOKE*/ 00095000 * /* AMDSAAUD TO HANDLE ERROR RECOVERY. */ 00096000 * /* */ 00097000 * /*****************************************************************/ 00098000 * 0192 00099000 */*FRMERROR: P SET VCTSADMP BIT REQUESTING DUMP */ 00100000 */* P SET UP ERROR CODE */ 00101000 */* P RESTORE REGISTERS FROM FRMSAVE */ 00102000 */* N AMDSAAUD IS CALLED VIA SVC 13 TO DUMP AND RECOVER FROM ERROR */ 00103000 */* R AMDSAAUD: PERFORM ERROR RECOVERY */ 00104000 */*AMDSAFRM: END */ 00105000 * 0192 00106000 *FRMERROR: 0192 00107000 * VCTSADMP = ON; /* SET DUMP REQUEST BIT */ 00108000 FRMERROR OI VCTSADMP(VCCTREG),B'10000000' 0192 00109000 * VCTAUDIT = FRMERCD; /* SET UP ERROR CODE */ 00110000 MVC VCTAUDIT(2,VCCTREG),FRMERCD 0193 00111000 * RESPECIFY RETREG RESTRICTED; 0194 00112000 * GEN(LM R0,R15,FRMSAVE); /* RESTORE CALLER'S REGISTERS */ 00113000 LM R0,R15,FRMSAVE 00114000 * SVC(AUDSVC); /* CALL AMDSAAUD - CONTROL WILL 00115000 * BE RETURNED TO THE FIRST RCB 00116000 * EXIT */ 00117000 SVC 13 0196 00118000 * RESPECIFY RETREG UNRESTRICTED; 0197 00119000 * END AMDSAFRM 0198 00120000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00121000 */*%INCLUDE SYSLIB (AMDSARMK) * 00122000 *; 0198 00123000 @DATA DS 0H 00124000 DS 0F 00125000 DS 0F 00126000 @CF00446 DC F'256' 00127000 @CH00446 EQU @CF00446+2 00128000 DS 0D 00129000 FRMMASK DC X'00' 00130000 FRMERCD DS BL2 00131000 ORG FRMERCD 00132000 @NM00031 DC X'01' 00133000 @NM00032 DC AL1(5) 00134000 ORG FRMERCD+2 00135000 DS CL1 00136000 FRMPATCH DC 13F'0' 00137000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00138000 @01 EQU 01 00139000 @02 EQU 02 00140000 @03 EQU 03 00141000 @04 EQU 04 00142000 @05 EQU 05 00143000 @06 EQU 06 00144000 @07 EQU 07 00145000 @08 EQU 08 00146000 @09 EQU 09 00147000 @10 EQU 10 00148000 @11 EQU 11 00149000 @12 EQU 12 00150000 @13 EQU 13 00151000 @14 EQU 14 00152000 @15 EQU 15 00153000 FRMRELOC EQU @04 00154000 VCCTREG EQU @12 00155000 RETREG EQU @14 00156000 RETCODE EQU @15 00157000 BASEREG EQU @11 00158000 R0 EQU @00 00159000 R1 EQU @01 00160000 R13 EQU @13 00161000 R15 EQU @15 00162000 R10 EQU @10 00163000 R11 EQU @11 00164000 R12 EQU @12 00165000 R14 EQU @14 00166000 R2 EQU @02 00167000 R3 EQU @03 00168000 R4 EQU @04 00169000 R5 EQU @05 00170000 R6 EQU @06 00171000 R7 EQU @07 00172000 R8 EQU @08 00173000 R9 EQU @09 00174000 SADMPLSD EQU 3312 00175000 FRMSAVE EQU SADMPLSD+580 00176000 ARB EQU 0 00177000 BCTH EQU 0 00178000 BCT EQU 0 00179000 BCTLPID EQU BCT+28 00180000 BCTFLGT EQU BCT+44 00181000 BCTFLGI EQU BCT+45 00182000 CCT EQU 0 00183000 CTFLG1 EQU CCT+1 00184000 CTFLG2 EQU CCT+2 00185000 CTLOWFLG EQU CCT+48 00186000 CTDMPTYP EQU CCT+52 00187000 CTIOTYPE EQU CTDMPTYP 00188000 CTCONFLG EQU CTDMPTYP+2 00189000 CTBUFTYP EQU CTDMPTYP+3 00190000 CTPRMT1 EQU CTDMPTYP+24 00191000 CTPRMT2 EQU CTDMPTYP+26 00192000 CCW EQU 0 00193000 CCWFLAGS EQU CCW+4 00194000 CSW EQU 0 00195000 CSWKEY00 EQU CSW 00196000 CSWUSTAT EQU CSW+4 00197000 CSWCSTAT EQU CSW+5 00198000 DSCE EQU 0 00199000 DSCEBEGN EQU DSCE+4 00200000 DSCENEXT EQU DSCE+8 00201000 IODB EQU 0 00202000 IODBFLAG EQU IODB+8 00203000 IODBCCHH EQU IODB+32 00204000 IODBSRCH EQU IODBCCHH+3 00205000 MDCE EQU 0 00206000 MDCB EQU 0 00207000 MDCBGRS EQU MDCB+16 00208000 MDCBFLGS EQU MDCB+86 00209000 PSW EQU 0 00210000 PSWSM EQU PSW 00211000 PSWDAT EQU PSWSM 00212000 @NM00023 EQU PSW+1 00213000 PSWCCPM EQU PSW+2 00214000 @NM00026 EQU PSW+3 00215000 PTRT EQU 0 00216000 PTRTRSA EQU 0 00217000 RCB EQU 0 00218000 VCCT EQU 0 00219000 VCTRECSN EQU VCCT+8 00220000 VCTFLGS EQU VCCT+9 00221000 VCTSADMP EQU VCTFLGS 00222000 VCTMDCE EQU VCCT+12 00223000 VCTDSCE EQU VCCT+20 00224000 VCTBCTH EQU VCCT+24 00225000 VCTAUDIT EQU VCCT+62 00226000 VCTCBID EQU VCCT+64 00227000 VCTLPA EQU VCCT+84 00228000 SDL EQU 0 00229000 REGLOCAL EQU 0 00230000 SAVEFORM EQU 0 00231000 SAVEID EQU SAVEFORM 00232000 PTRTVSA EQU 0 00233000 CTLOWDMP EQU CTDMPTYP 00234000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00235000 CTADDRE EQU CTLOWDMP+4 00236000 CTADDRS EQU CTLOWDMP 00237000 SAVER12 EQU SAVEFORM+68 00238000 SAVER11 EQU SAVEFORM+64 00239000 SAVER10 EQU SAVEFORM+60 00240000 SAVER9 EQU SAVEFORM+56 00241000 SAVER8 EQU SAVEFORM+52 00242000 SAVER7 EQU SAVEFORM+48 00243000 SAVER6 EQU SAVEFORM+44 00244000 SAVER5 EQU SAVEFORM+40 00245000 SAVER4 EQU SAVEFORM+36 00246000 SAVER3 EQU SAVEFORM+32 00247000 SAVER2 EQU SAVEFORM+28 00248000 SAVER1 EQU SAVEFORM+24 00249000 SAVER0 EQU SAVEFORM+20 00250000 SAVER15 EQU SAVEFORM+16 00251000 SAVER14 EQU SAVEFORM+12 00252000 SAVENEXT EQU SAVEFORM+8 00253000 SAVEBACK EQU SAVEFORM+4 00254000 SAVENAME EQU SAVEFORM+1 00255000 REGL15 EQU REGLOCAL+60 00256000 REGL14 EQU REGLOCAL+56 00257000 REGL13 EQU REGLOCAL+52 00258000 REGL12 EQU REGLOCAL+48 00259000 REGL11 EQU REGLOCAL+44 00260000 REGL10 EQU REGLOCAL+40 00261000 REGL9 EQU REGLOCAL+36 00262000 REGL8 EQU REGLOCAL+32 00263000 REGL7 EQU REGLOCAL+28 00264000 REGL6 EQU REGLOCAL+24 00265000 REGL5 EQU REGLOCAL+20 00266000 REGL4 EQU REGLOCAL+16 00267000 REGL3 EQU REGLOCAL+12 00268000 REGL2 EQU REGLOCAL+8 00269000 REGL1 EQU REGLOCAL+4 00270000 REGL0 EQU REGLOCAL 00271000 SDLSPN EQU SDL+1 00272000 SDLNUM EQU SDL 00273000 VCTVCCTV EQU VCCT+108 00274000 VCTCCTV EQU VCCT+104 00275000 @NM00030 EQU VCCT+102 00276000 VCTEXTRA EQU VCCT+100 00277000 VCTCPOUT EQU VCCT+96 00278000 VCTSVCTB EQU VCCT+92 00279000 VCTPGT EQU VCCT+88 00280000 VCTCBADR EQU VCCT+80 00281000 VCTJBNME EQU VCCT+72 00282000 VCTCBIDN EQU VCTCBID+7 00283000 @NM00029 EQU VCTCBID 00284000 VCTASID EQU VCCT+60 00285000 VCTPTRT EQU VCCT+56 00286000 VCTMASCB EQU VCCT+52 00287000 VCTASCB EQU VCCT+48 00288000 VCTCPUC EQU VCCT+46 00289000 VCTWKC EQU VCCT+45 00290000 VCTWKHI EQU VCCT+44 00291000 VCTSUBPL EQU VCCT+40 00292000 VCTARB EQU VCCT+36 00293000 VCTIODB EQU VCCT+32 00294000 VCTBCTC EQU VCCT+28 00295000 VCTSTOR EQU VCCT+16 00296000 VCTRECVA EQU VCCT+10 00297000 @NM00028 EQU VCTFLGS 00298000 VCTLRCLM EQU VCTFLGS 00299000 VCTARCLM EQU VCTFLGS 00300000 VCTASMIC EQU VCTFLGS 00301000 VCTMEMIN EQU VCTFLGS 00302000 @NM00027 EQU VCTRECSN 00303000 VCTRSMR EQU VCTRECSN 00304000 VCTEXIR EQU VCTRECSN 00305000 VCTUPDR EQU VCTRECSN 00306000 VCTPGIR EQU VCTRECSN 00307000 VCTRCB EQU VCCT+4 00308000 VCTVCT EQU VCCT 00309000 RCBBASE EQU RCB+16 00310000 RCBEXIT EQU RCB+12 00311000 RCBSAVE EQU RCB+8 00312000 RCBSTOR EQU RCB+4 00313000 RCBNEXT EQU RCB 00314000 PTRTVS EQU PTRT+1032 00315000 PTRTRS EQU PTRT+8 00316000 PTRTLGID EQU PTRT+4 00317000 PTRTPTRT EQU PTRT 00318000 PSWEND EQU PSW+8 00319000 PSWIA EQU PSW+4 00320000 PSWSP EQU @NM00026 00321000 PSWSIG EQU PSWCCPM 00322000 PSWEU EQU PSWCCPM 00323000 PSWDO EQU PSWCCPM 00324000 PSWFPO EQU PSWCCPM 00325000 @NM00025 EQU PSWCCPM 00326000 @NM00024 EQU PSWCCPM 00327000 PSWPRBLM EQU @NM00023 00328000 PSWAIT EQU @NM00023 00329000 PSWMCH EQU @NM00023 00330000 PSWMODE EQU @NM00023 00331000 PSWKEY EQU @NM00023 00332000 PSWXTRNL EQU PSWSM 00333000 PSWIO EQU PSWSM 00334000 @NM00022 EQU PSWSM 00335000 @NM00021 EQU PSWSM 00336000 @NM00020 EQU PSWSM 00337000 PSWPER EQU PSWSM 00338000 @NM00019 EQU PSWSM 00339000 @NM00018 EQU MDCB+87 00340000 @NM00017 EQU MDCBFLGS 00341000 MDCBDUMP EQU MDCBFLGS 00342000 MDCBASMI EQU MDCBFLGS 00343000 MDCBPI EQU MDCB+84 00344000 MDCBSTOR EQU MDCB+80 00345000 MDCBGR15 EQU MDCBGRS+60 00346000 MDCBGR14 EQU MDCBGRS+56 00347000 MDCBGR13 EQU MDCBGRS+52 00348000 MDCBGR12 EQU MDCBGRS+48 00349000 MDCBGR11 EQU MDCBGRS+44 00350000 MDCBGR10 EQU MDCBGRS+40 00351000 MDCBGR9 EQU MDCBGRS+36 00352000 MDCBGR8 EQU MDCBGRS+32 00353000 MDCBGR7 EQU MDCBGRS+28 00354000 MDCBGR6 EQU MDCBGRS+24 00355000 MDCBGR5 EQU MDCBGRS+20 00356000 MDCBGR4 EQU MDCBGRS+16 00357000 MDCBGR3 EQU MDCBGRS+12 00358000 MDCBGR2 EQU MDCBGRS+8 00359000 MDCBGR1 EQU MDCBGRS+4 00360000 MDCBGR0 EQU MDCBGRS 00361000 MDCBPSW EQU MDCB+8 00362000 MDCBNEXT EQU MDCB+4 00363000 MDCBMDCB EQU MDCB 00364000 MDCEAVIL EQU MDCE+8 00365000 MDCEACTV EQU MDCE+4 00366000 MDCEMDCE EQU MDCE 00367000 IODBSENS EQU IODB+40 00368000 IODBR EQU IODBCCHH+7 00369000 IODBHH EQU IODBSRCH+2 00370000 IODBCC EQU IODBSRCH 00371000 IODBSEEK EQU IODBCCHH+1 00372000 IODBM EQU IODBCCHH 00373000 IODBCSW EQU IODB+24 00374000 IODBCAW EQU IODB+20 00375000 IODBBCT EQU IODB+16 00376000 IODBCPU EQU IODB+14 00377000 IODBTYPE EQU IODB+13 00378000 IODBCLAS EQU IODB+12 00379000 IODBDEV EQU IODB+10 00380000 @NM00016 EQU IODBFLAG+1 00381000 IODBSTRT EQU IODBFLAG 00382000 IODBCONW EQU IODBFLAG 00383000 IODBACTV EQU IODBFLAG 00384000 IODBHALT EQU IODBFLAG 00385000 IODBIOC EQU IODBFLAG 00386000 IODBINT EQU IODBFLAG 00387000 IODBPTRM EQU IODBFLAG 00388000 IODBTERM EQU IODBFLAG 00389000 IODBIDEN EQU IODB+4 00390000 IODBIODB EQU IODB 00391000 DSCETEND EQU DSCE+20 00392000 DSCETCUR EQU DSCE+16 00393000 DSCETBEG EQU DSCE+12 00394000 DSCEDSCE EQU DSCE 00395000 CSWCNT EQU CSW+6 00396000 CSWCHC EQU CSWCSTAT 00397000 CSWICC EQU CSWCSTAT 00398000 CSWCCC EQU CSWCSTAT 00399000 CSWCDC EQU CSWCSTAT 00400000 CSWPTC EQU CSWCSTAT 00401000 CSWPGC EQU CSWCSTAT 00402000 CSWIL EQU CSWCSTAT 00403000 CSWPCI EQU CSWCSTAT 00404000 CSWUE EQU CSWUSTAT 00405000 CSWUC EQU CSWUSTAT 00406000 CSWDE EQU CSWUSTAT 00407000 CSWCE EQU CSWUSTAT 00408000 CSWBUSY EQU CSWUSTAT 00409000 CSWCUE EQU CSWUSTAT 00410000 CSWSTMOD EQU CSWUSTAT 00411000 CSWATTN EQU CSWUSTAT 00412000 CSWCADDR EQU CSW+1 00413000 @NM00015 EQU CSWKEY00 00414000 CSWKEY EQU CSWKEY00 00415000 CCWCNT EQU CCW+6 00416000 @NM00014 EQU CCW+5 00417000 @NM00013 EQU CCWFLAGS 00418000 CCWIDA EQU CCWFLAGS 00419000 CCWPCI EQU CCWFLAGS 00420000 CCWSKIP EQU CCWFLAGS 00421000 CCWSLI EQU CCWFLAGS 00422000 CCWCC EQU CCWFLAGS 00423000 CCWDC EQU CCWFLAGS 00424000 CCWDADDR EQU CCW+1 00425000 CCWCMD EQU CCW 00426000 CTHWMAX EQU CTDMPTYP+29 00427000 CTHWM EQU CTDMPTYP+28 00428000 CTPRMT2X EQU CTPRMT2+1 00429000 CTPRMT2Y EQU CTPRMT2 00430000 CTPRMT1X EQU CTPRMT1+1 00431000 CTPRMT1Y EQU CTPRMT1 00432000 CTVCCT EQU CTDMPTYP+20 00433000 CTEOR EQU CTDMPTYP+16 00434000 CTCOMMIO EQU CTDMPTYP+12 00435000 CTLWKAD EQU CTDMPTYP+8 00436000 CTCONSOL EQU CTDMPTYP+4 00437000 @NM00012 EQU CTBUFTYP 00438000 CTDUMP EQU CTBUFTYP 00439000 CTLSQA EQU CTBUFTYP 00440000 CTASM EQU CTBUFTYP 00441000 CTPGT EQU CTBUFTYP 00442000 CTWKFLE EQU CTBUFTYP 00443000 @NM00011 EQU CTBUFTYP 00444000 @NM00010 EQU CTCONFLG 00445000 CTREAD EQU CTCONFLG 00446000 CTMSGOUT EQU CTCONFLG 00447000 @NM00009 EQU CTDMPTYP+1 00448000 @NM00008 EQU CTIOTYPE 00449000 CTIORSET EQU CTIOTYPE 00450000 CTIOINT EQU CTIOTYPE 00451000 CTIOCON EQU CTIOTYPE 00452000 CTIOWK EQU CTIOTYPE 00453000 CTIODA EQU CTIOTYPE 00454000 CTIOOUT EQU CTIOTYPE 00455000 CTIOTERM EQU CTIOTYPE 00456000 CTEBCOPR EQU CCT+49 00457000 @NM00007 EQU CTLOWFLG 00458000 CTWKSTUS EQU CTLOWFLG 00459000 CTINIT EQU CTLOWFLG 00460000 CTFP EQU CTLOWFLG 00461000 CTVIRTD EQU CTLOWFLG 00462000 CTEBCOPD EQU CCT+45 00463000 CTCONTYP EQU CCT+44 00464000 CTOUTAD EQU CCT+42 00465000 CTCPUI EQU CCT+40 00466000 CTERBCON EQU CCT+36 00467000 CTERBTPE EQU CCT+32 00468000 CTERBDA EQU CCT+28 00469000 CTCCHHW EQU CCT+24 00470000 CTCCHHE EQU CCT+20 00471000 CTCCHHS EQU CCT+16 00472000 CTPGECNT EQU CCT+15 00473000 CTCCHHR EQU CCT+8 00474000 CTINADDR EQU CCT+6 00475000 CTSENSE EQU CCT+4 00476000 CTDEVTYP EQU CCT+3 00477000 @NM00006 EQU CTFLG2 00478000 CTALTCON EQU CTFLG2 00479000 CTWKDONE EQU CTFLG2 00480000 CTVIRTR EQU CTFLG2 00481000 CTNOSTAT EQU CTFLG2 00482000 CTPGEFLT EQU CTFLG2 00483000 CTSTOR EQU CTFLG2 00484000 CTDUPSW EQU CTFLG2 00485000 CTERREC EQU CTFLG1 00486000 CTMP EQU CTFLG1 00487000 @NM00005 EQU CTFLG1 00488000 CTDEFO EQU CTFLG1 00489000 CTWORK EQU CTFLG1 00490000 CTMORTPE EQU CTFLG1 00491000 CTDEVICE EQU CTFLG1 00492000 CTERROR EQU CTFLG1 00493000 CTWAIT EQU CCT 00494000 @NM00004 EQU BCT+46 00495000 BCTRECLM EQU BCTFLGI 00496000 BCTIOERR EQU BCTFLGI 00497000 BCTALLOC EQU BCTFLGI 00498000 BCTCOMP EQU BCTFLGI 00499000 @NM00003 EQU BCTFLGT 00500000 BCTPGTF EQU BCTFLGT 00501000 BCTDUMP EQU BCTFLGT 00502000 BCTLSQA EQU BCTFLGT 00503000 BCTASM EQU BCTFLGT 00504000 BCTPGT EQU BCTFLGT 00505000 BCTWKFLE EQU BCTFLGT 00506000 @NM00002 EQU BCTFLGT 00507000 BCTRBA EQU BCT+40 00508000 BCTAMB EQU BCT+36 00509000 @NM00001 EQU BCTLPID+4 00510000 BCTLGN EQU BCTLPID 00511000 BCTMDCB EQU BCT+24 00512000 BCTPGTE EQU BCT+20 00513000 BCTRADDR EQU BCT+16 00514000 BCTVADDR EQU BCT+12 00515000 BCTASID EQU BCT+10 00516000 BCTKEY2 EQU BCT+9 00517000 BCTKEY1 EQU BCT+8 00518000 BCTNEXT EQU BCT+4 00519000 BCTBCT EQU BCT 00520000 BCTHLAST EQU BCTH+8 00521000 BCTHFRST EQU BCTH+4 00522000 BCTHBCTH EQU BCTH 00523000 ARBADDRE EQU ARB+4 00524000 ARBADDRB EQU ARB 00525000 GTMSAVE EQU SADMPLSD+684 00526000 GTMNAME EQU SADMPLSD+680 00527000 FRMNAME EQU SADMPLSD+576 00528000 AUDSAVE EQU SADMPLSD+476 00529000 AUDNAME EQU SADMPLSD+472 00530000 IOISAVE EQU SADMPLSD+372 00531000 IOINAME EQU SADMPLSD+368 00532000 PGISAVE EQU SADMPLSD+268 00533000 PGINAME EQU SADMPLSD+264 00534000 SVISAVE EQU SADMPLSD+164 00535000 SVINAME EQU SADMPLSD+160 00536000 LOWCRS EQU SADMPLSD+96 00537000 LOWGRS EQU SADMPLSD+32 00538000 SAVEDUMP EQU SADMPLSD+24 00539000 AUDPSW EQU SADMPLSD+16 00540000 SVIRPSW EQU SADMPLSD+8 00541000 PSWSADMP EQU SADMPLSD 00542000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00543000 @RT00179 EQU FRMERROR 00544000 @RT00181 EQU FRMERROR 00545000 @RT00183 EQU FRMERROR 00546000 @ENDDATA EQU * 00547000 END AMDSAFRM,(C'PL/S-II',0502,73230) 00548000