TITLE ' IEADQIQE: PROC OPTIONS(REENTRANT NOSAVEAREA NOAUTO' 00001000 IEADQIQE CSECT , 01.0001 00002000 @PROLOG STM @14,@12,12(@13) 01.0001 00003000 BALR @10,0 01.0001 00004000 @PSTART DS 0H 01.0001 00005000 USING @PSTART,@10 01.0001 00006000 *R15 = R13 ; /* SAVE REGISTER */ 00007000 LR R15,R13 03.0023 00008000 *GEN CODE ; 03.0024 00009000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *00010000 RELATED=('RESOURCE=IQE QUEUE, RELEASED IN THIS MODULE') 00011000 * R13 = R15 ; /* RESTORE REGISTER */ 00012000 LR R13,R15 03.0025 00013000 *RESPECIFY (R11,R14,R15) UNRSTD; /* FREE REGISTERS */ 00014000 */********************************************************************/ 00015000 */* END OF LOCK- */ 00016000 */* OUTPUT- */ 00017000 */* R11,R14,R15 = VOLATILE */ 00018000 */********************************************************************/ 00019000 * 02.0027 00020000 *IQEPTR = ASXBFIQE; /*POINT TO FIRST IQE */ 00021000 L @11,ASCBPTR 02.0027 00022000 L @11,ASXBPTR(,@11) 02.0027 00023000 L IQEPTR,ASXBFIQE(,@11) 02.0027 00024000 *PREVIQE = 0 ; /* INIT POINTER TO PREVIOUS */ 00025000 SR PREVIQE,PREVIQE 02.0028 00026000 */* SCAN THE QUEUE,DEQUEUEING IQES FOR THE TASK */ 00027000 *DO WHILE (IQEPTR ^= 0) ; /* SEARCH WHILE THERE ARE 00028000 * UNSEARCHED IQES */ 00029000 B @DE00029 02.0029 00030000 @DL00029 DS 0H 02.0030 00031000 * IF IQETCBA = RMPLTCBA /* IF IQE IS FOR TASK */ 00032000 * THEN 02.0030 00033000 * 02.0030 00034000 L @11,RMPLPTR(,PARMREG) 02.0030 00035000 SR @00,@00 02.0030 00036000 ICM @00,7,IQETCBA(IQEPTR) 02.0030 00037000 C @00,RMPLTCBA(,@11) 02.0030 00038000 BNE @RF00030 02.0030 00039000 */********************************************************************/ 00040000 */* DEQUEUE THE IQE FROM THE QUEUE. */ 00041000 */********************************************************************/ 00042000 * DO; 02.0031 00043000 */********************************************************************* 00044000 */* DQIQE - * 00045000 */* THIS SEGMENT DEQUEUES THE IQE FROM THE ASYNCHRONOUS EXIT Q. * 00046000 */* INPUT: * 00047000 */* IQEPTR (R2) - POINTS TO THE IQE TO BE DEQUEUED * 00048000 */* PREVIQE (R3) - CONTAINS ADDR OF THE IQE PRECEDING THE ONE * 00049000 */* TO BE DEQUEUED. IF THERE IS NO PREVIOUS , THEN IT * 00050000 */* CONTAINS ZEROES. * 00051000 */********************************************************************* 00052000 *IF PREVIQE = 0 /* IF THIS IS THE TOP IQE * 00053000 * THEN 03.0032 00054000 LTR PREVIQE,PREVIQE 03.0032 00055000 BNZ @RF00032 03.0032 00056000 * ASXBFIQE = IQEPTR-> IQELNKA; /* UPDATE PTR TO FIRST * 00057000 L @11,ASCBPTR 03.0033 00058000 L @11,ASXBPTR(,@11) 03.0033 00059000 SR @00,@00 03.0033 00060000 ICM @00,7,IQELNKA(IQEPTR) 03.0033 00061000 ST @00,ASXBFIQE(,@11) 03.0033 00062000 * ELSE 03.0034 00063000 * PREVIQE-> IQELNKA = IQEPTR-> IQELNKA; /* UPDATE CHAIN IN PREVIOUS 00064000 * IQE * 00065000 B @RC00032 03.0034 00066000 @RF00032 MVC IQELNKA(3,PREVIQE),IQELNKA(IQEPTR) 03.0034 00067000 *IF ASXBLIQE = IQEPTR /* IF THIS WAS LAST IQE * 00068000 * THEN 03.0035 00069000 @RC00032 L @11,ASCBPTR 03.0035 00070000 L @11,ASXBPTR(,@11) 03.0035 00071000 C IQEPTR,ASXBLIQE(,@11) 03.0035 00072000 BNE @RF00035 03.0035 00073000 * ASXBLIQE = PREVIQE; /* UPDATE PTR TO LAST IQE * 00074000 ST PREVIQE,ASXBLIQE(,@11) 03.0036 00075000 */********************************************************************/ 00076000 */* END OF DQIQE - * 00077000 */********************************************************************/ 00078000 * 02.0037 00079000 * END; 02.0037 00080000 * 02.0037 00081000 * ELSE 02.0038 00082000 * PREVIQE = IQEPTR; /* UPDATE PTR TO PREVIOUS */ 00083000 * 02.0038 00084000 B @RC00030 02.0038 00085000 @RF00030 LR PREVIQE,IQEPTR 02.0038 00086000 * IQEPTR = IQELNKA; /* GET NEXT IQE */ 00087000 @RC00030 SR @11,@11 02.0039 00088000 ICM @11,7,IQELNKA(IQEPTR) 02.0039 00089000 LR IQEPTR,@11 02.0039 00090000 *END; 02.0040 00091000 * 02.0040 00092000 @DE00029 LTR IQEPTR,IQEPTR 02.0040 00093000 BNZ @DL00029 02.0040 00094000 */********************************************************************/ 00095000 */* DELETE THE FRR FROM STACK AND RELEASE THE LOCAL LOCK. */ 00096000 */********************************************************************/ 00097000 */********************************************************************/ 00098000 */* UNLOCK - */ 00099000 */* THIS SEGMENT RELEASE THE LOCAL LOCK AND DELETES THE */ 00100000 */* RECOVERY FOOTPRINT. */ 00101000 */********************************************************************/ 00102000 *RESPECIFY (R11,R14,R15) RSTD ; /* RESTRICT REGISTERS */ 00103000 *R15 = R13 ; /* SAVE REGISTER */ 00104000 LR R15,R13 03.0042 00105000 *GEN CODE ; 03.0043 00106000 SETLOCK RELEASE,TYPE=LOCAL, *00107000 RELATED=('RESOURCE=IQE QUEUE, OBTAINED IN THIS MODULE') 00108000 *R13 = R15 ; /* RESTORE REGISTER */ 00109000 LR R13,R15 03.0044 00110000 *RESPECIFY (R11,R14,R15) UNRSTD ; /* FREE THE REGISTERS */ 00111000 */********************************************************************/ 00112000 */* END OF UNLOCK */ 00113000 */* OUTPUT: */ 00114000 */* R11,R12,R14,R15 = VOLATILE */ 00115000 */********************************************************************/ 00116000 * 02.0046 00117000 *IEAVEER1: ; 01.0046 00118000 *END IEADQIQE 01.0047 00119000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00120000 */*%INCLUDE SYSUT5 (PROLOG ) * 00121000 */*%INCLUDE SYSUT5 (DECLARES) * 00122000 */*%INCLUDE SYSUT5 (MAPMACS ) * 00123000 */*%INCLUDE SYSLIB (IHAIQE ) * 00124000 */*%INCLUDE SYSLIB (IHARMPL ) * 00125000 */*%INCLUDE SYSLIB (IHAASXB ) * 00126000 */*%INCLUDE SYSLIB (IHAASCB ) * 00127000 */*%INCLUDE SYSLIB (IHAPSA ) * 00128000 */*%INCLUDE SYSUT5 (REGS ) * 00129000 */*%INCLUDE SYSUT5 (IQEPURGE) * 00130000 */*%INCLUDE SYSUT5 (LOCK ) * 00131000 */*%INCLUDE SYSUT5 (DQIQE ) * 00132000 */*%INCLUDE SYSUT5 (UNLOCK ) * 00133000 *; 01.0047 00134000 @EL00001 DS 0H 01.0047 00135000 @EF00001 DS 0H 01.0047 00136000 @ER00001 LM @14,@12,12(@13) 01.0047 00137000 BR @14 01.0047 00138000 @DATA DS 0H 00139000 @DATD DSECT 00140000 DS 0F 00141000 IEADQIQE CSECT 00142000 DS 0F 00143000 @DATD DSECT 00144000 DS 0D 00145000 @ENDDATD EQU * 00146000 IEADQIQE CSECT 00147000 NOPR ((@ENDDATD-@DATD)*16) 00148000 DS 0F 00149000 @SIZDATD DC AL1(0) 00150000 DC AL3(@ENDDATD-@DATD) 00151000 DS 0D 00152000 NULL DC X'00' 00153000 DC XL23'0' 00154000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00155000 @01 EQU 01 00156000 @02 EQU 02 00157000 @03 EQU 03 00158000 @04 EQU 04 00159000 @05 EQU 05 00160000 @06 EQU 06 00161000 @07 EQU 07 00162000 @08 EQU 08 00163000 @09 EQU 09 00164000 @10 EQU 10 00165000 @11 EQU 11 00166000 @12 EQU 12 00167000 @13 EQU 13 00168000 @14 EQU 14 00169000 @15 EQU 15 00170000 IQEPTR EQU @02 00171000 PARMREG EQU @01 00172000 PREVIQE EQU @03 00173000 R11 EQU @11 00174000 R12 EQU @12 00175000 R13 EQU @13 00176000 R14 EQU @14 00177000 R15 EQU @15 00178000 PSA EQU 0 00179000 FLCRNPSW EQU PSA 00180000 FLCROPSW EQU PSA+8 00181000 FLCICCW2 EQU PSA+16 00182000 PSAEEPSW EQU PSA+132 00183000 PSAESPSW EQU PSA+136 00184000 FLCSVILC EQU PSAESPSW+1 00185000 PSAEPPSW EQU PSA+140 00186000 FLCPIILC EQU PSAEPPSW+1 00187000 FLCPICOD EQU PSAEPPSW+2 00188000 PSAPICOD EQU FLCPICOD+1 00189000 FLCTEA EQU PSAEPPSW+4 00190000 FLCPER EQU PSA+152 00191000 FLCMCLA EQU PSA+168 00192000 FLCIOEL EQU FLCMCLA+4 00193000 FLCIOA EQU FLCMCLA+16 00194000 FLCFSA EQU FLCMCLA+80 00195000 PSAAOLD EQU PSA+548 00196000 PSASUPER EQU PSA+552 00197000 PSASUP1 EQU PSASUPER 00198000 PSASUP2 EQU PSASUPER+1 00199000 PSASUP3 EQU PSASUPER+2 00200000 PSASUP4 EQU PSASUPER+3 00201000 PSACLHT EQU PSA+640 00202000 PSALKSA EQU PSA+696 00203000 PSAHLHI EQU PSA+760 00204000 PSADSSFL EQU PSA+836 00205000 PSADSSF1 EQU PSADSSFL 00206000 PSADSSF3 EQU PSADSSFL+2 00207000 PSADSSF4 EQU PSADSSFL+3 00208000 PSARSVT EQU PSA+896 00209000 IQESECT EQU 0 00210000 IQELNK EQU IQESECT 00211000 IQELNKA EQU IQELNK+1 00212000 IQEIRB EQU IQESECT+8 00213000 IQEFLAGS EQU IQEIRB 00214000 IQETCB EQU IQESECT+12 00215000 IQETCBA EQU IQETCB+1 00216000 RMPL EQU 0 00217000 RMPLFLG1 EQU RMPL 00218000 RMPLTCBA EQU RMPL+8 00219000 RMPLPTR EQU 0 00220000 ASXB EQU 0 00221000 ASXBAEQ EQU ASXB+168 00222000 ASXBFIQE EQU ASXBAEQ 00223000 ASXBLIQE EQU ASXBAEQ+4 00224000 ASCB EQU 0 00225000 ASCBFW1 EQU ASCB+100 00226000 ASCBRCTF EQU ASCBFW1+2 00227000 ASCBFLG1 EQU ASCBFW1+3 00228000 ASCBASXB EQU ASCB+108 00229000 ASCBDSP1 EQU ASCB+114 00230000 ASCBFLG2 EQU ASCB+115 00231000 IQEEND EQU 0 00232000 ASXBPTR EQU ASCBASXB 00233000 ASCBPTR EQU PSAAOLD 00234000 PSARSVTE EQU PSARSVT 00235000 FLC EQU PSA 00236000 * START UNREFERENCED COMPONENTS 00237000 PSARSAV EQU PSARSVTE+60 00238000 PSARSTK EQU PSARSVTE+56 00239000 PSAESAV3 EQU PSARSVTE+52 00240000 PSAESTK3 EQU PSARSVTE+48 00241000 PSAESAV2 EQU PSARSVTE+44 00242000 PSAESTK2 EQU PSARSVTE+40 00243000 PSAESAV1 EQU PSARSVTE+36 00244000 PSAESTK1 EQU PSARSVTE+32 00245000 PSAPSAV EQU PSARSVTE+28 00246000 PSAPSTK EQU PSARSVTE+24 00247000 PSAMSAV EQU PSARSVTE+20 00248000 PSAMSTK EQU PSARSVTE+16 00249000 PSASSAV EQU PSARSVTE+12 00250000 PSASSTK EQU PSARSVTE+8 00251000 PSANSTK EQU PSARSVTE+4 00252000 PSACSTK EQU PSARSVTE 00253000 ASCBEND EQU ASCB+208 00254000 ASCBSRBT EQU ASCB+200 00255000 ASCBSWTL EQU ASCB+196 00256000 ASCBRS14 EQU ASCB+195 00257000 ASCBSMCT EQU ASCB+194 00258000 ASCBRS12 EQU ASCB+192 00259000 ASCBPCTT EQU ASCB+188 00260000 ASCBVGTT EQU ASCB+184 00261000 ASCBLGCB EQU ASCB+180 00262000 ASCBJBNS EQU ASCB+176 00263000 ASCBJBNI EQU ASCB+172 00264000 ASCBMCC EQU ASCB+168 00265000 ASCBRTWA EQU ASCB+164 00266000 ASCBIQEA EQU ASCB+160 00267000 ASCBXMPQ EQU ASCB+156 00268000 ASCBRS01 EQU ASCB+154 00269000 ASCBFMCT EQU ASCB+152 00270000 ASCBOUXB EQU ASCB+148 00271000 ASCBOUCB EQU ASCB+144 00272000 ASCBMECB EQU ASCB+140 00273000 ASCBQECB EQU ASCB+136 00274000 ASCBCMSB EQU ASCB+132 00275000 ASCBCMSF EQU ASCB+128 00276000 ASCBTCBS EQU ASCB+124 00277000 ASCBNVSC EQU ASCB+122 00278000 ASCBVSC EQU ASCB+120 00279000 ASCBSRBS EQU ASCB+118 00280000 ASCBSSRB EQU ASCB+116 00281000 ASCBRV06 EQU ASCBFLG2 00282000 ASCBRV05 EQU ASCBFLG2 00283000 ASCBRV04 EQU ASCBFLG2 00284000 ASCBSNQS EQU ASCBFLG2 00285000 ASCBS2S EQU ASCBFLG2 00286000 ASCBCEXT EQU ASCBFLG2 00287000 ASCBPXMT EQU ASCBFLG2 00288000 ASCBXMPT EQU ASCBFLG2 00289000 ASCBRF07 EQU ASCBDSP1 00290000 ASCBRF06 EQU ASCBDSP1 00291000 ASCBRF05 EQU ASCBDSP1 00292000 ASCBRF04 EQU ASCBDSP1 00293000 ASCBRF03 EQU ASCBDSP1 00294000 ASCBRF02 EQU ASCBDSP1 00295000 ASCBFAIL EQU ASCBDSP1 00296000 ASCBNOQ EQU ASCBDSP1 00297000 ASCBSWCT EQU ASCB+112 00298000 ASCBTMCH EQU ASCB+104 00299000 ASCBNSWP EQU ASCBFLG1 00300000 ASCBTYP1 EQU ASCBFLG1 00301000 ASCBSTND EQU ASCBFLG1 00302000 ASCBABNT EQU ASCBFLG1 00303000 ASCBTERM EQU ASCBFLG1 00304000 ASCBS3S EQU ASCBFLG1 00305000 ASCBCMSH EQU ASCBFLG1 00306000 ASCBTOFF EQU ASCBFLG1 00307000 ASCBRF01 EQU ASCBRCTF 00308000 ASCBTMLW EQU ASCBRCTF 00309000 ASCBOUT EQU ASCBRCTF 00310000 ASCBWAIT EQU ASCBRCTF 00311000 ASCBFND EQU ASCBRCTF 00312000 ASCBFQU EQU ASCBRCTF 00313000 ASCBFRS EQU ASCBRCTF 00314000 ASCBTMNO EQU ASCBRCTF 00315000 ASCBAFFN EQU ASCBFW1 00316000 ASCBDUMP EQU ASCB+96 00317000 ASCBQSVC EQU ASCB+92 00318000 ASCBUBET EQU ASCB+88 00319000 ASCBECB EQU ASCB+84 00320000 ASCBJSTL EQU ASCB+80 00321000 ASCBEWST EQU ASCB+72 00322000 ASCBEJST EQU ASCB+64 00323000 ASCBTSB EQU ASCB+60 00324000 ASCBCSCB EQU ASCB+56 00325000 ASCBRSM EQU ASCB+52 00326000 ASCBLDA EQU ASCB+48 00327000 ASCBSTOR EQU ASCB+44 00328000 ASCBDP EQU ASCB+43 00329000 ASCBRV07 EQU ASCB+42 00330000 ASCBIOSM EQU ASCB+40 00331000 ASCBSEQN EQU ASCB+38 00332000 ASCBASID EQU ASCB+36 00333000 ASCBCPUS EQU ASCB+32 00334000 ASCBSPL EQU ASCB+28 00335000 ASCBLSLQ EQU ASCB+24 00336000 ASCBFSLQ EQU ASCB+20 00337000 ASCBIOSP EQU ASCB+16 00338000 ASCBLOCK EQU ASCB+12 00339000 ASCBBWDP EQU ASCB+8 00340000 ASCBFWDP EQU ASCB+4 00341000 ASCBASCB EQU ASCB 00342000 ASCBEGIN EQU ASCB 00343000 ASXBEND EQU ASXB+232 00344000 ASXBRV25 EQU ASXB+228 00345000 ASXBRV24 EQU ASXB+224 00346000 ASXBRV23 EQU ASXB+220 00347000 ASXBRV22 EQU ASXB+216 00348000 ASXBRV21 EQU ASXB+212 00349000 ASXBRV20 EQU ASXB+208 00350000 ASXBRV19 EQU ASXB+204 00351000 ASXBRV18 EQU ASXB+200 00352000 ASXBRV17 EQU ASXB+196 00353000 ASXBRV16 EQU ASXB+192 00354000 ASXBLSRB EQU ASXBAEQ+20 00355000 ASXBFSRB EQU ASXBAEQ+16 00356000 ASXBLRQE EQU ASXBAEQ+12 00357000 ASXBFRQE EQU ASXBAEQ+8 00358000 ASXBETSK EQU ASXB+164 00359000 ASXBSIRB EQU ASXB+160 00360000 ASXBPSWD EQU ASXB+152 00361000 ASXBPRG EQU ASXB+136 00362000 ASXBTAXE EQU ASXB+132 00363000 ASXBOUSB EQU ASXB+128 00364000 ASXBDDR EQU ASXB+124 00365000 ASXBRCTD EQU ASXB+120 00366000 ASXBRSMD EQU ASXB+116 00367000 ASXBSPSA EQU ASXB+112 00368000 ASXBFRWA EQU ASXB+108 00369000 ASXBFLSA EQU ASXB+36 00370000 ASXBIHSA EQU ASXB+32 00371000 ASXBRV15 EQU ASXB+28 00372000 ASXBRV14 EQU ASXB+24 00373000 ASXBLWA EQU ASXB+20 00374000 ASXBMPST EQU ASXB+16 00375000 ASXBRS00 EQU ASXB+14 00376000 ASXBTCBS EQU ASXB+12 00377000 ASXBLTCB EQU ASXB+8 00378000 ASXBFTCB EQU ASXB+4 00379000 ASXBASXB EQU ASXB 00380000 ASXBEGIN EQU ASXB 00381000 RMPLDCBL EQU RMPL+20 00382000 RMPLRMWA EQU RMPL+16 00383000 RMPLRBPA EQU RMPL+12 00384000 RMPLASCB EQU RMPL+4 00385000 RMPLASID EQU RMPL+2 00386000 RMPLFLG2 EQU RMPL+1 00387000 @NM00008 EQU RMPLFLG1 00388000 RMPLWT1M EQU RMPLFLG1 00389000 RMPLJST EQU RMPLFLG1 00390000 RMPLRCOV EQU RMPLFLG1 00391000 RMPLIPUF EQU RMPLFLG1 00392000 RMPLRBPP EQU RMPLFLG1 00393000 RMPLTERM EQU RMPLFLG1 00394000 RMPLTYPE EQU RMPLFLG1 00395000 IQEOUTLM EQU IQESECT+20 00396000 IQEDCB EQU IQESECT+16 00397000 IQESTAT2 EQU IQETCB 00398000 IQEIRBA EQU IQEIRB+1 00399000 @NM00007 EQU IQEFLAGS 00400000 @NM00006 EQU IQEFLAGS 00401000 @NM00005 EQU IQEFLAGS 00402000 @NM00004 EQU IQEFLAGS 00403000 @NM00003 EQU IQEFLAGS 00404000 @NM00002 EQU IQEFLAGS 00405000 @NM00001 EQU IQEFLAGS 00406000 IQEPURGE EQU IQEFLAGS 00407000 IQEPARAM EQU IQESECT+4 00408000 IQESTAT1 EQU IQELNK 00409000 @NM00032 EQU PSA+3412 00410000 PSASTAK EQU PSA+3072 00411000 @NM00031 EQU PSA+1024 00412000 PSAUSEND EQU PSA+1024 00413000 PSARV060 EQU PSA+1020 00414000 PSARV059 EQU PSA+1018 00415000 PSASVC13 EQU PSA+1016 00416000 PSALSFCC EQU PSA+1012 00417000 PSASFACC EQU PSA+1008 00418000 PSASTOP EQU PSA+992 00419000 PSASTART EQU PSA+976 00420000 PSARSPSW EQU PSA+968 00421000 PSASRPSW EQU PSA+960 00422000 PSARV045 EQU PSA+892 00423000 PSARV044 EQU PSA+888 00424000 PSARV043 EQU PSA+884 00425000 PSARV042 EQU PSA+880 00426000 PSARV041 EQU PSA+876 00427000 PSARV040 EQU PSA+872 00428000 PSARV025 EQU PSA+868 00429000 PSADSSED EQU PSA+868 00430000 PSADSSPR EQU PSA+864 00431000 PSADSSFW EQU PSA+860 00432000 PSADSS14 EQU PSA+856 00433000 PSADSSPP EQU PSA+848 00434000 PSADSSRP EQU PSA+840 00435000 PSADSS05 EQU PSADSSF4 00436000 PSADSS10 EQU PSADSSF4 00437000 PSADSSVE EQU PSADSSF4 00438000 PSADSSDE EQU PSADSSF4 00439000 PSADSSC0 EQU PSADSSF4 00440000 PSADSSIE EQU PSADSSF4 00441000 PSADSS12 EQU PSADSSF4 00442000 PSADSSRC EQU PSADSSF4 00443000 PSARV057 EQU PSADSSF3 00444000 PSARV056 EQU PSADSSF3 00445000 PSARV055 EQU PSADSSF3 00446000 PSARV054 EQU PSADSSF3 00447000 PSADSSRW EQU PSADSSF3 00448000 PSADSSNM EQU PSADSSF3 00449000 PSADSSES EQU PSADSSF3 00450000 PSADSSGP EQU PSADSSF3 00451000 PSADSSF2 EQU PSADSSFL+1 00452000 PSADSSPI EQU PSADSSF1 00453000 PSADSSOI EQU PSADSSF1 00454000 PSADSSSP EQU PSADSSF1 00455000 PSADSSTP EQU PSADSSF1 00456000 PSADSSDW EQU PSADSSF1 00457000 PSADSSDD EQU PSADSSF1 00458000 PSADSSDM EQU PSADSSF1 00459000 PSADSSMV EQU PSADSSF1 00460000 PSADSSTS EQU PSA+816 00461000 PSADSSWK EQU PSA+812 00462000 PSADSSR3 EQU PSA+808 00463000 PSADSSR2 EQU PSA+804 00464000 PSADSSRS EQU PSA+800 00465000 PSASTOR EQU PSA+796 00466000 PSARV058 EQU PSA+794 00467000 PSAVSTAP EQU PSA+792 00468000 PSAWKVAP EQU PSA+788 00469000 PSAWKRAP EQU PSA+784 00470000 PSAMCHIC EQU PSA+783 00471000 PSAMODE EQU PSA+782 00472000 PSASYMSK EQU PSA+781 00473000 PSAMCHFL EQU PSA+780 00474000 PSACR0 EQU PSA+776 00475000 PSAPSWSV EQU PSA+768 00476000 PSALITA EQU PSA+764 00477000 PSACLHS EQU PSAHLHI 00478000 PSALKR15 EQU PSALKSA+60 00479000 PSALKR14 EQU PSALKSA+56 00480000 PSALKR13 EQU PSALKSA+52 00481000 PSALKR12 EQU PSALKSA+48 00482000 PSALKR11 EQU PSALKSA+44 00483000 PSALKR10 EQU PSALKSA+40 00484000 PSALKR9 EQU PSALKSA+36 00485000 PSALKR8 EQU PSALKSA+32 00486000 PSALKR7 EQU PSALKSA+28 00487000 PSALKR6 EQU PSALKSA+24 00488000 PSALKR5 EQU PSALKSA+20 00489000 PSALKR4 EQU PSALKSA+16 00490000 PSALKR3 EQU PSALKSA+12 00491000 PSALKR2 EQU PSALKSA+8 00492000 PSALKR1 EQU PSALKSA+4 00493000 PSALKR0 EQU PSALKSA 00494000 PSARV023 EQU PSACLHT+52 00495000 PSALOCAL EQU PSACLHT+48 00496000 PSACMSL EQU PSACLHT+44 00497000 PSAOPTL EQU PSACLHT+40 00498000 PSATPACL EQU PSACLHT+36 00499000 PSATPDNL EQU PSACLHT+32 00500000 PSATPNCL EQU PSACLHT+28 00501000 PSAIOSLL EQU PSACLHT+24 00502000 PSAIOSUL EQU PSACLHT+20 00503000 PSAIOSCL EQU PSACLHT+16 00504000 PSAIOSSL EQU PSACLHT+12 00505000 PSASALCL EQU PSACLHT+8 00506000 PSAASML EQU PSACLHT+4 00507000 PSADISPL EQU PSACLHT 00508000 PSASRSA EQU PSA+636 00509000 PSARV050 EQU PSA+634 00510000 PSADSSGO EQU PSA+633 00511000 PSARECUR EQU PSA+632 00512000 PSAHLHIS EQU PSA+628 00513000 PSAIPCSA EQU PSA+624 00514000 @NM00030 EQU PSA+621 00515000 PSAIPCDM EQU PSA+620 00516000 PSAIPCD EQU PSA+616 00517000 @NM00029 EQU PSA+613 00518000 PSAIPCRM EQU PSA+612 00519000 PSAIPCR EQU PSA+608 00520000 PSAMCHEX EQU PSA+600 00521000 PSAMPSW EQU PSA+592 00522000 PSAEXPS2 EQU PSA+584 00523000 PSAEXPS1 EQU PSA+576 00524000 PSAPIREG EQU PSA+572 00525000 PSARSREG EQU PSA+568 00526000 PSAGPREG EQU PSA+556 00527000 PSARV022 EQU PSASUP4 00528000 PSARV021 EQU PSASUP4 00529000 PSARV020 EQU PSASUP4 00530000 PSARV019 EQU PSASUP4 00531000 PSARV018 EQU PSASUP4 00532000 PSARV017 EQU PSASUP4 00533000 PSARV016 EQU PSASUP4 00534000 PSARV015 EQU PSASUP4 00535000 PSARV014 EQU PSASUP3 00536000 PSARV013 EQU PSASUP3 00537000 PSARV012 EQU PSASUP3 00538000 PSARV011 EQU PSASUP3 00539000 PSARV010 EQU PSASUP3 00540000 PSARV009 EQU PSASUP3 00541000 PSARV008 EQU PSASUP3 00542000 PSARV007 EQU PSASUP3 00543000 PSALCR EQU PSASUP2 00544000 PSARTM EQU PSASUP2 00545000 PSAACR EQU PSASUP2 00546000 PSAIPCE2 EQU PSASUP2 00547000 PSAIPCES EQU PSASUP2 00548000 PSAIPCEC EQU PSASUP2 00549000 PSAGTF EQU PSASUP2 00550000 PSAIPCRI EQU PSASUP2 00551000 PSAIPCRP EQU PSASUP1 00552000 PSAIPCDR EQU PSASUP1 00553000 PSADISP EQU PSASUP1 00554000 PSALOCK EQU PSASUP1 00555000 PSAPI EQU PSASUP1 00556000 PSAEXT EQU PSASUP1 00557000 PSASVC EQU PSASUP1 00558000 PSAIO EQU PSASUP1 00559000 PSAANEW EQU PSA+544 00560000 PSATOLD EQU PSA+540 00561000 PSATNEW EQU PSA+536 00562000 PSALCCAR EQU PSA+532 00563000 PSALCCAV EQU PSA+528 00564000 PSAPCCAR EQU PSA+524 00565000 PSAPCCAV EQU PSA+520 00566000 PSACPULA EQU PSA+518 00567000 PSACPUPA EQU PSA+516 00568000 PSAPSA EQU PSA+512 00569000 FLCHDEND EQU PSA+512 00570000 FLCCRSAV EQU FLCMCLA+280 00571000 FLCGRSAV EQU FLCMCLA+216 00572000 FLCFPSAV EQU FLCMCLA+184 00573000 FLCFLA EQU FLCMCLA+88 00574000 FLCRGNCD EQU FLCMCLA+84 00575000 FLCFSAA EQU FLCFSA+1 00576000 @NM00028 EQU FLCFSA 00577000 @NM00027 EQU FLCMCLA+72 00578000 FLCMCIC EQU FLCMCLA+64 00579000 @NM00026 EQU FLCMCLA+20 00580000 FLCIOAA EQU FLCIOA+1 00581000 @NM00025 EQU FLCIOA 00582000 @NM00024 EQU FLCMCLA+15 00583000 @NM00023 EQU FLCMCLA+14 00584000 @NM00022 EQU FLCMCLA+12 00585000 FLCLCL EQU FLCMCLA+8 00586000 FLCIOELA EQU FLCIOEL+1 00587000 @NM00021 EQU FLCIOEL 00588000 FLCCHNID EQU FLCMCLA 00589000 @NM00020 EQU PSA+160 00590000 FLCMTRCD EQU PSA+157 00591000 @NM00019 EQU PSA+156 00592000 FLCPERA EQU FLCPER+1 00593000 @NM00018 EQU FLCPER 00594000 @NM00017 EQU PSA+151 00595000 FLCPERCD EQU PSA+150 00596000 FLCMCNUM EQU PSA+149 00597000 @NM00016 EQU PSA+148 00598000 FLCTEAA EQU FLCTEA+1 00599000 @NM00015 EQU FLCTEA 00600000 PSAPIPC EQU PSAPICOD 00601000 PSAPIMC EQU PSAPICOD 00602000 PSAPIPER EQU PSAPICOD 00603000 PSARV049 EQU FLCPICOD 00604000 FLCPILCB EQU FLCPIILC 00605000 @NM00014 EQU FLCPIILC 00606000 @NM00013 EQU PSAEPPSW 00607000 FLCSVCN EQU PSAESPSW+2 00608000 FLCSILCB EQU FLCSVILC 00609000 @NM00012 EQU FLCSVILC 00610000 @NM00011 EQU PSAESPSW 00611000 FLCEICOD EQU PSAEEPSW+2 00612000 PSASPAD EQU PSAEEPSW 00613000 @NM00010 EQU PSA+128 00614000 FLCINPSW EQU PSA+120 00615000 FLCMNPSW EQU PSA+112 00616000 FLCPNPSW EQU PSA+104 00617000 FLCSNPSW EQU PSA+96 00618000 FLCENPSW EQU PSA+88 00619000 FLCTRACE EQU PSA+84 00620000 FLCTIMER EQU PSA+80 00621000 FLCCVT2 EQU PSA+76 00622000 FLCCAW EQU PSA+72 00623000 FLCCSW EQU PSA+64 00624000 FLCIOPSW EQU PSA+56 00625000 FLCMOPSW EQU PSA+48 00626000 FLCPOPSW EQU PSA+40 00627000 FLCSOPSW EQU PSA+32 00628000 FLCEOPSW EQU PSA+24 00629000 @NM00009 EQU FLCICCW2+4 00630000 FLCCVT EQU FLCICCW2 00631000 FLCICCW1 EQU FLCROPSW 00632000 FLCIPPSW EQU FLCRNPSW 00633000 * END UNREFERENCED COMPONENTS 00634000 @RF00035 EQU @RC00030 00635000 IEAVEER1 EQU @EL00001 00636000 @ENDDATA EQU * 00637000 END IEADQIQE 00638000