TITLE 'IGFCIC-INTEGRATED CHANNEL ANALYSIS *00001000 ' 00002000 IGFCIC CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IGFCIC 77.172' 0001 00008000 DROP @15 00009000 @PROLOG BALR @03,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@03 0001 00012000 * PCCACF22='1'B; /* SET FOOTPRINT */ 00013000 OI PCCACF22(PCCAPTR),B'01000000' 0021 00014000 */********************************************************************/ 00015000 */* A CHECK IS MADE FOR AN INVALID ECSW. IF INVALID, THE */ 00016000 */* RECORD ONLY AND I/O RESTART BITS ARE SET IN THE CCH */ 00017000 */* SWITCHES. THE ECSW'S LAST 3 BYTES ARE MOVED TO THE WORK */ 00018000 */* ERPIB IN THE PCCA. */ 00019000 */********************************************************************/ 00020000 * 0022 00021000 * IF ECSWVLD='1'B THEN 0022 00022000 TM ECSWVLD,B'10000000' 0022 00023000 BNO @RF00022 0022 00024000 * DO; /* Q. ECSW VALID */ 00025000 * PCCACNLG='1'B; /* SET FAIL TO LOG FLG */ 00026000 * PCCACIOR='1'B; /* SET I/O RESTART */ 00027000 OI PCCACNLG(PCCAPTR),B'10010000' 0025 00028000 * PCCACNLS='1'B; /* SET RECORD ONLY */ 00029000 OI PCCACNLS(PCCAPTR),B'00010000' 0026 00030000 * END; 0027 00031000 * PCCAWERP(6:8)=ECSWBLME; /* COMPLETE ERPIB */ 00032000 @RF00022 MVC PCCAWERP+5(3,PCCAPTR),ECSWBLME 0028 00033000 */********************************************************************/ 00034000 */* IF THE CHANNEL ERROR WAS DURING THE EXECUTION OF A TIO */ 00035000 */* A CHECK IS MADE FOR A VALID UNIT ADDRESS (DOES HARDWARE */ 00036000 */* UNIT ADDRESS = IOS UNIT ADDRESS?). IF INVALID, THE DEVICE*/ 00037000 */* ADDRESS VALID BIT IS RESET IN THE WORK ERPIB. */ 00038000 */********************************************************************/ 00039000 * 0029 00040000 * IF PCCACTIB='1'B THEN /* Q. TIO INTERCEPT */ 00041000 TM PCCACTIB(PCCAPTR),B'00100000' 0029 00042000 BNO @RF00029 0029 00043000 * IF UAREG^=FLCIOA THEN 0030 00044000 C UAREG,FLCIOA 0030 00045000 BE @RF00030 0030 00046000 * PCCACDAV='0'B; /* Q. U.A. PASSED= */ 00047000 NI PCCACDAV(PCCAPTR),B'11111110' 0031 00048000 */********************************************************************/ 00049000 */* IF THE LOGOUT AREA IS FOXES (IE THE HARDWARE @G51BPLC */ 00050000 */* DID NOT STORE A LOGOUT) OR THE UNRECOGNIZABLE @G51BPLC */ 00051000 */* CHANNEL BIT IS SET IN PCCA, THE LOGOUT LENGTH IS */ 00052000 */* ZERO AND PROCESSING IS COMPLETE. @G51BPLC */ 00053000 */********************************************************************/ 00054000 * 0032 00055000 * IF PCCACURC='1'B|CCHLOGA=FOXES THEN 0032 00056000 @RF00030 DS 0H 0032 00057000 @RF00029 TM PCCACURC(PCCAPTR),B'00001000' 0032 00058000 BO @RT00032 0032 00059000 L @15,PCCAELAD(,PCCAPTR) 0032 00060000 CLC CCHLOGA(4,@15),@CB00603 0032 00061000 BNE @RF00032 0032 00062000 @RT00032 DS 0H 0033 00063000 * PCCALOGL='00'X; /* @G51BPLC*/ 00064000 SLR @15,@15 0033 00065000 STH @15,PCCALOGL(,PCCAPTR) 0033 00066000 */********************************************************************/ 00067000 */* THE I/O EXTENDED LOGOUT PTR AT PCCAELAD IS USED */ 00068000 */* TO LOCATE THE LOGOUT. THE LOGOUT ADDRESS IS */ 00069000 */* MOVED INTO THE PCCA AND PROCESSING CONTINUES. @G51BPLC*/ 00070000 */********************************************************************/ 00071000 * 0034 00072000 * ELSE 0034 00073000 * DO; 0034 00074000 B @RC00032 0034 00075000 @RF00032 DS 0H 0035 00076000 * PCCALOGA=PCCAELAD; /* PUT LOGOUT ADDR IN PCCA 0035 00077000 * @G51BPLC*/ 00078000 L @15,PCCAELAD(,PCCAPTR) 0035 00079000 ST @15,PCCALOGA(,PCCAPTR) 0035 00080000 */********************************************************************/ 00081000 */* IF THE CPU IS NOT A 145 THEN THE LOGOUT LENGTH @G51BPLC*/ 00082000 */* IS EQUAL TO 112 OR THE MAX LOGOUT LENGTH IN @G51BPLC*/ 00083000 */* PCCACELL, WHICHEVER IS GREATER. @G51BPLC*/ 00084000 */********************************************************************/ 00085000 * 0036 00086000 * IF PCCACPID(9:12)^=CPU145 THEN/* @G51BPLC*/ 00087000 CLC PCCACPID+8(4,PCCAPTR),CPU145 0036 00088000 BE @RF00036 0036 00089000 * PCCALOGL=PCCACELL; /* @G51BPLC*/ 00090000 LH @15,PCCACELL(,PCCAPTR) 0037 00091000 STH @15,PCCALOGL(,PCCAPTR) 0037 00092000 * ELSE 0038 00093000 * DO; /* IF CPU=145 DO FURTHER CHECKING 00094000 * @G51BPLC*/ 00095000 B @RC00036 0038 00096000 @RF00036 DS 0H 0039 00097000 */********************************************************************/ 00098000 */* FROM THE CAT ,THE TYPE OF CHANNEL IS DETERMINED. IF */ 00099000 */* NOT A BYTE MULTIPLEXOR, THE LENGTH OF THE LOGOUT IS */ 00100000 */* IN THE FIRST BYTE OF THE LOGOUT AND IS MOVED INTO */ 00101000 */* THE PCCA. */ 00102000 */********************************************************************/ 00103000 * 0039 00104000 * WORKREG=(UAREG/256)*8; /* GET CHAN. ADDR */ 00105000 LR @00,UAREG 0039 00106000 SRDA @00,32 0039 00107000 D @00,@CF00636 0039 00108000 SLA @01,3 0039 00109000 LR WORKREG,@01 0039 00110000 * CATPTR=ADDR(PCCACAT); /* GET PTR TO CAT */ 00111000 LA CATPTR,PCCACAT(,PCCAPTR) 0040 00112000 * CATPTR=CATPTR+WORKREG; /* GET CAT ENTRY @ */ 00113000 ALR CATPTR,WORKREG 0041 00114000 * RESPECIFY 0042 00115000 * (WORKREG) UNRSTD; /* RELEASE REG 11 */ 00116000 * IF CCHCATT='1'B THEN 0043 00117000 TM CCHCATT(CATPTR),B'00010000' 0043 00118000 BNO @RF00043 0043 00119000 * DO; /* BYTE MULTIPLEX */ 00120000 */********************************************************************/ 00121000 */* THE TYPE OF CHANNEL IS A BYTE MULTIPLEXOR. A TEST */ 00122000 */* IS MADE FOR AN INTERFACE CONTROL CHECK. IF THIS IS */ 00123000 */* AN ICC ,THE LOGOUT LENGTH IS 36 BYTES. OTHERWISE */ 00124000 */* THE LENGTH IS 72 BYTES. */ 00125000 */********************************************************************/ 00126000 * 0045 00127000 * IF CCHLOGB='0'B THEN/* Q. LOG APPLY */ 00128000 L @15,PCCAELAD(,PCCAPTR) 0045 00129000 TM CCHLOGB(@15),B'10000000' 0045 00130000 BNZ @RF00045 0045 00131000 * PCCALOGL='00'X; /* SET LOG LEN TO ZERO @G51BPLC*/ 00132000 SLR @15,@15 0046 00133000 STH @15,PCCALOGL(,PCCAPTR) 0046 00134000 * ELSE /* @G51BPLC*/ 00135000 * IF ICCBIT='1'B THEN 0047 00136000 B @RC00045 0047 00137000 @RF00045 TM ICCBIT,B'00000010' 0047 00138000 BNO @RF00047 0047 00139000 * PCCALOGL='24'X; /* Q. ERROR ICC, YES, SET LOG 0048 00140000 * LEN=36 */ 00141000 LA @15,36 0048 00142000 STH @15,PCCALOGL(,PCCAPTR) 0048 00143000 * ELSE 0049 00144000 * PCCALOGL='4C'X; /* NO. LOG LEN=76 */ 00145000 B @RC00047 0049 00146000 @RF00047 LA @15,76 0049 00147000 STH @15,PCCALOGL(,PCCAPTR) 0049 00148000 * END; 0050 00149000 * ELSE 0051 00150000 * PCCALOGL=CCHLOGL; /* GET CORRECT LN */ 00151000 B @RC00043 0051 00152000 @RF00043 L @15,PCCAELAD(,PCCAPTR) 0051 00153000 SLR @12,@12 0051 00154000 IC @12,CCHLOGL(,@15) 0051 00155000 STH @12,PCCALOGL(,PCCAPTR) 0051 00156000 * END; /* @G51BPLC*/ 00157000 * END; /* @G51BPLC*/ 00158000 *CICRTN: 0054 00159000 * RETURN; /* GOTO CCH CENT */ 00160000 @EL00001 DS 0H 0054 00161000 @EF00001 DS 0H 0054 00162000 @ER00001 BR @14 0054 00163000 * END IGFCIC 0055 00164000 * 0055 00165000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00166000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 00167000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00168000 * 0055 00169000 * ; 0055 00170000 B @EL00001 0055 00171000 @DATA DS 0H 00172000 @DATD DSECT 00173000 DS 0F 00174000 IGFCIC CSECT 00175000 DS 0F 00176000 @CF00636 DC F'256' 00177000 @DATD DSECT 00178000 DS 0D 00179000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00180000 @ENDDATD EQU * 00181000 IGFCIC CSECT 00182000 DS 0F 00183000 @SIZDATD DC AL1(0) 00184000 DC AL3(@ENDDATD-@DATD) 00185000 DS 0D 00186000 ABSZERO DC A(0) 00187000 @CB00603 DC X'FFFFFFFF' 00188000 CPU145 DC CL4'0145' 00189000 ICMAINT DC 25H'0' 00190000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00191000 @01 EQU 01 00192000 @02 EQU 02 00193000 @03 EQU 03 00194000 @04 EQU 04 00195000 @05 EQU 05 00196000 @06 EQU 06 00197000 @07 EQU 07 00198000 @08 EQU 08 00199000 @09 EQU 09 00200000 @10 EQU 10 00201000 @11 EQU 11 00202000 @12 EQU 12 00203000 @13 EQU 13 00204000 @14 EQU 14 00205000 @15 EQU 15 00206000 PCCAPTR EQU @08 00207000 RTNREG EQU @14 00208000 UAREG EQU @06 00209000 WRKREG2 EQU @02 00210000 SAVREG EQU @13 00211000 WORKREG EQU @11 00212000 CATPTR EQU @02 00213000 PSA EQU 0 00214000 FLCRNPSW EQU PSA 00215000 FLCROPSW EQU PSA+8 00216000 FLCICCW2 EQU PSA+16 00217000 FLCCSW EQU PSA+64 00218000 PSAEEPSW EQU PSA+132 00219000 PSAESPSW EQU PSA+136 00220000 FLCSVILC EQU PSAESPSW+1 00221000 PSAEPPSW EQU PSA+140 00222000 FLCPIILC EQU PSAEPPSW+1 00223000 FLCPICOD EQU PSAEPPSW+2 00224000 PSAPICOD EQU FLCPICOD+1 00225000 FLCTEA EQU PSAEPPSW+4 00226000 FLCPER EQU PSA+152 00227000 FLCMCLA EQU PSA+168 00228000 FLCCHNID EQU FLCMCLA 00229000 FLCCHTM EQU FLCCHNID 00230000 FLCIOEL EQU FLCMCLA+4 00231000 FLCLCL EQU FLCMCLA+8 00232000 FLCIOA EQU FLCMCLA+16 00233000 PSAMEDC EQU FLCMCLA+76 00234000 FLCFSA EQU FLCMCLA+80 00235000 PSASUPER EQU PSA+552 00236000 PSASUP1 EQU PSASUPER 00237000 PSASUP2 EQU PSASUPER+1 00238000 PSASUP3 EQU PSASUPER+2 00239000 PSASUP4 EQU PSASUPER+3 00240000 PSACLHT EQU PSA+640 00241000 PSALKSA EQU PSA+696 00242000 PSAHLHI EQU PSA+760 00243000 PSADSSFL EQU PSA+836 00244000 PSADSSF1 EQU PSADSSFL 00245000 PSADSSF3 EQU PSADSSFL+2 00246000 PSADSSF4 EQU PSADSSFL+3 00247000 PSARSVT EQU PSA+896 00248000 PCCA EQU 0 00249000 PCCACPID EQU PCCA+4 00250000 PCCATMST EQU PCCA+128 00251000 PCCATMFL EQU PCCATMST 00252000 PCCATODE EQU PCCATMST+1 00253000 PCCACCE EQU PCCATMST+2 00254000 PCCAINTE EQU PCCATMST+3 00255000 PCCAEMSB EQU PCCA+136 00256000 PCCAEMSI EQU PCCAEMSB 00257000 PCCARISP EQU PCCAEMSI 00258000 PCCAEMS2 EQU PCCAEMSI+1 00259000 PCCAEMS3 EQU PCCAEMSI+2 00260000 PCCARMSB EQU PCCAEMSI+3 00261000 PCCAELAD EQU PCCA+168 00262000 PCCACHAN EQU PCCA+224 00263000 PCCAWERP EQU PCCA+280 00264000 PCCACHPF EQU PCCAWERP+4 00265000 PCCACHBL EQU PCCAWERP+5 00266000 PCCACHVA EQU PCCAWERP+6 00267000 PCCACDAV EQU PCCACHVA 00268000 PCCACHTS EQU PCCAWERP+7 00269000 PCCACHS1 EQU PCCA+288 00270000 PCCACNLS EQU PCCACHS1 00271000 PCCACHS2 EQU PCCA+289 00272000 PCCACIOR EQU PCCACHS2 00273000 PCCACNLG EQU PCCACHS2 00274000 PCCACURC EQU PCCACHS2 00275000 PCCACHRB EQU PCCA+290 00276000 PCCACTIB EQU PCCACHRB 00277000 PCCALOGL EQU PCCA+300 00278000 PCCACELL EQU PCCA+302 00279000 PCCACHF1 EQU PCCA+308 00280000 PCCACHF2 EQU PCCA+309 00281000 PCCACF22 EQU PCCACHF2 00282000 PCCACHF3 EQU PCCA+310 00283000 PCCACHF4 EQU PCCA+311 00284000 PCCALOGA EQU PCCA+332 00285000 PCCAATTR EQU PCCA+376 00286000 PCCACAT EQU PCCA+384 00287000 CCHLOGA EQU 0 00288000 CCHLOGL EQU CCHLOGA 00289000 CCHLOGB EQU CCHLOGL 00290000 CCHCAT EQU 0 00291000 CCHCATP EQU CCHCAT+4 00292000 CCHCATT EQU CCHCATP 00293000 PSARSVTE EQU PSARSVT 00294000 ECSW EQU FLCLCL 00295000 ECSWB0 EQU ECSW 00296000 ECSWVLD EQU ECSWB0 00297000 ECSWBLME EQU ECSW+1 00298000 CSW EQU FLCCSW 00299000 CSWSTAT EQU CSW+5 00300000 ICCBIT EQU CSWSTAT 00301000 FLC EQU PSA 00302000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00303000 BITS EQU CSWSTAT 00304000 @NM00029 EQU CSW 00305000 PSARSAV EQU PSARSVTE+60 00306000 PSARSTK EQU PSARSVTE+56 00307000 PSAESAV3 EQU PSARSVTE+52 00308000 PSAESTK3 EQU PSARSVTE+48 00309000 PSAESAV2 EQU PSARSVTE+44 00310000 PSAESTK2 EQU PSARSVTE+40 00311000 PSAESAV1 EQU PSARSVTE+36 00312000 PSAESTK1 EQU PSARSVTE+32 00313000 PSAPSAV EQU PSARSVTE+28 00314000 PSAPSTK EQU PSARSVTE+24 00315000 PSAMSAV EQU PSARSVTE+20 00316000 PSAMSTK EQU PSARSVTE+16 00317000 PSASSAV EQU PSARSVTE+12 00318000 PSASSTK EQU PSARSVTE+8 00319000 PSANSTK EQU PSARSVTE+4 00320000 PSACSTK EQU PSARSVTE 00321000 CCHCAT3 EQU CCHCATP 00322000 @NM00028 EQU CCHCAT 00323000 CCHLOGV EQU CCHLOGA+1 00324000 @NM00001 EQU PCCA+512 00325000 PCCARV36 EQU PCCA+380 00326000 PCCARV35 EQU PCCA+378 00327000 PCCARV01 EQU PCCA+377 00328000 PCCAR105 EQU PCCAATTR 00329000 PCCAR104 EQU PCCAATTR 00330000 PCCAR103 EQU PCCAATTR 00331000 PCCAR102 EQU PCCAATTR 00332000 PCCAR101 EQU PCCAATTR 00333000 PCCAR100 EQU PCCAATTR 00334000 PCCAIO EQU PCCAATTR 00335000 PCCACPUM EQU PCCAATTR 00336000 PCCARV63 EQU PCCA+372 00337000 PCCARV62 EQU PCCA+368 00338000 PCCARV61 EQU PCCA+364 00339000 PCCARV60 EQU PCCA+360 00340000 PCCARV59 EQU PCCA+356 00341000 PCCARV58 EQU PCCA+352 00342000 PCCARV57 EQU PCCA+348 00343000 PCCARV56 EQU PCCA+344 00344000 PCCARV55 EQU PCCA+340 00345000 PCCARV54 EQU PCCA+336 00346000 PCCACHID EQU PCCA+324 00347000 PCCACHSV EQU PCCA+312 00348000 PCCARV79 EQU PCCACHF4 00349000 PCCARV78 EQU PCCACHF4 00350000 PCCARV77 EQU PCCACHF4 00351000 PCCARV76 EQU PCCACHF4 00352000 PCCARV75 EQU PCCACHF4 00353000 PCCARV74 EQU PCCACHF4 00354000 PCCARV73 EQU PCCACHF4 00355000 PCCARV72 EQU PCCACHF4 00356000 PCCARV71 EQU PCCACHF3 00357000 PCCARV70 EQU PCCACHF3 00358000 PCCARV69 EQU PCCACHF3 00359000 PCCARV68 EQU PCCACHF3 00360000 PCCARV67 EQU PCCACHF3 00361000 PCCARV66 EQU PCCACHF3 00362000 PCCASLCK EQU PCCACHF3 00363000 PCCAISRB EQU PCCACHF3 00364000 PCCACF28 EQU PCCACHF2 00365000 PCCACF27 EQU PCCACHF2 00366000 PCCACF26 EQU PCCACHF2 00367000 PCCACF25 EQU PCCACHF2 00368000 PCCACF24 EQU PCCACHF2 00369000 PCCACF23 EQU PCCACHF2 00370000 PCCACF21 EQU PCCACHF2 00371000 PCCACF18 EQU PCCACHF1 00372000 PCCACF17 EQU PCCACHF1 00373000 PCCACF16 EQU PCCACHF1 00374000 PCCACF15 EQU PCCACHF1 00375000 PCCACF14 EQU PCCACHF1 00376000 PCCACF13 EQU PCCACHF1 00377000 PCCACF12 EQU PCCACHF1 00378000 PCCACF11 EQU PCCACHF1 00379000 PCCARV05 EQU PCCA+307 00380000 PCCACHPB EQU PCCA+306 00381000 PCCALGP2 EQU PCCA+305 00382000 PCCALGP1 EQU PCCA+304 00383000 PCCACHW2 EQU PCCA+296 00384000 PCCACHW1 EQU PCCA+292 00385000 PCCAIOSI EQU PCCA+291 00386000 PCCACNRB EQU PCCACHRB 00387000 PCCACCVB EQU PCCACHRB 00388000 PCCACSNB EQU PCCACHRB 00389000 PCCARV52 EQU PCCACHRB 00390000 PCCACHIB EQU PCCACHRB 00391000 PCCACINB EQU PCCACHRB 00392000 PCCACSIB EQU PCCACHRB 00393000 PCCARV51 EQU PCCACHS2 00394000 PCCARV50 EQU PCCACHS2 00395000 PCCACCRA EQU PCCACHS2 00396000 PCCACMOD EQU PCCACHS2 00397000 PCCACALT EQU PCCACHS2 00398000 PCCARV47 EQU PCCACHS1 00399000 PCCACUCB EQU PCCACHS1 00400000 PCCACIBC EQU PCCACHS1 00401000 PCCACAND EQU PCCACHS1 00402000 PCCACFRR EQU PCCACHS1 00403000 PCCACNRE EQU PCCACHS1 00404000 PCCACCMP EQU PCCACHS1 00405000 PCCACSEQ EQU PCCACHTS 00406000 PCCACDIN EQU PCCACHTS 00407000 PCCARV44 EQU PCCACHTS 00408000 PCCARV43 EQU PCCACHTS 00409000 PCCACTEC EQU PCCACHTS 00410000 PCCACCHV EQU PCCACHVA 00411000 PCCACCMD EQU PCCACHVA 00412000 PCCACUNS EQU PCCACHVA 00413000 PCCACSQV EQU PCCACHVA 00414000 PCCARV42 EQU PCCACHVA 00415000 PCCARV41 EQU PCCACHVA 00416000 PCCACITF EQU PCCACHVA 00417000 PCCARV40 EQU PCCACHBL 00418000 PCCARV39 EQU PCCACHBL 00419000 PCCARV38 EQU PCCACHBL 00420000 PCCACCUE EQU PCCACHBL 00421000 PCCACSTG EQU PCCACHBL 00422000 PCCACSCU EQU PCCACHBL 00423000 PCCACCHA EQU PCCACHBL 00424000 PCCACCPU EQU PCCACHBL 00425000 PCCACNOR EQU PCCACHPF 00426000 PCCACCNT EQU PCCACHPF 00427000 PCCACSNS EQU PCCACHPF 00428000 PCCARV37 EQU PCCACHPF 00429000 PCCACHIO EQU PCCACHPF 00430000 PCCACTIO EQU PCCACHPF 00431000 PCCACINT EQU PCCACHPF 00432000 PCCACSIO EQU PCCACHPF 00433000 PCCACHUB EQU PCCAWERP 00434000 PCCAR106 EQU PCCA+228 00435000 PCCAR113 EQU PCCA+226 00436000 PCCASRBL EQU PCCA+225 00437000 PCCAR112 EQU PCCACHAN 00438000 PCCAR111 EQU PCCACHAN 00439000 PCCAR110 EQU PCCACHAN 00440000 PCCAR109 EQU PCCACHAN 00441000 PCCAR108 EQU PCCACHAN 00442000 PCCAR107 EQU PCCACHAN 00443000 PCCAEXDM EQU PCCACHAN 00444000 PCCAIRST EQU PCCACHAN 00445000 PCCASRB EQU PCCA+180 00446000 PCCACCHM EQU PCCA+176 00447000 PCCAELBA EQU PCCA+172 00448000 PCCALRBR EQU PCCA+164 00449000 PCCALRBV EQU PCCA+160 00450000 PCCAPWAR EQU PCCA+156 00451000 PCCAPWAV EQU PCCA+152 00452000 PCCAEMSA EQU PCCAEMSB+12 00453000 PCCAEMSE EQU PCCAEMSB+8 00454000 PCCAEMSP EQU PCCAEMSB+4 00455000 PCCARMS EQU PCCARMSB 00456000 PCCARV34 EQU PCCARMSB 00457000 PCCARV33 EQU PCCARMSB 00458000 PCCARV32 EQU PCCARMSB 00459000 PCCARV31 EQU PCCARMSB 00460000 PCCARV30 EQU PCCARMSB 00461000 PCCARV29 EQU PCCARMSB 00462000 PCCARV28 EQU PCCARMSB 00463000 PCCARV27 EQU PCCAEMS3 00464000 PCCARV26 EQU PCCAEMS3 00465000 PCCARV25 EQU PCCAEMS3 00466000 PCCARV24 EQU PCCAEMS3 00467000 PCCARV23 EQU PCCAEMS3 00468000 PCCARV22 EQU PCCAEMS3 00469000 PCCARV21 EQU PCCAEMS3 00470000 PCCARV20 EQU PCCAEMS3 00471000 PCCARV19 EQU PCCAEMS2 00472000 PCCARV18 EQU PCCAEMS2 00473000 PCCARV17 EQU PCCAEMS2 00474000 PCCARV16 EQU PCCAEMS2 00475000 PCCARV15 EQU PCCAEMS2 00476000 PCCARV14 EQU PCCAEMS2 00477000 PCCARV13 EQU PCCAEMS2 00478000 PCCARV12 EQU PCCAEMS2 00479000 PCCARV11 EQU PCCARISP 00480000 PCCARV10 EQU PCCARISP 00481000 PCCARV09 EQU PCCARISP 00482000 PCCARV08 EQU PCCARISP 00483000 PCCARV07 EQU PCCARISP 00484000 PCCARV06 EQU PCCARISP 00485000 PCCASERL EQU PCCARISP 00486000 PCCAPARL EQU PCCARISP 00487000 PCCARPB EQU PCCA+132 00488000 PCCACTIN EQU PCCAINTE 00489000 PCCANFIN EQU PCCAINTE 00490000 PCCANUIN EQU PCCAINTE 00491000 PCCACTCC EQU PCCACCE 00492000 PCCANFCC EQU PCCACCE 00493000 PCCANUCC EQU PCCACCE 00494000 PCCACTTD EQU PCCATODE 00495000 PCCANFTD EQU PCCATODE 00496000 PCCANUTD EQU PCCATODE 00497000 PCCARV04 EQU PCCATMFL 00498000 PCCARV03 EQU PCCATMFL 00499000 PCCARV02 EQU PCCATMFL 00500000 PCCAMINT EQU PCCATMFL 00501000 PCCAMCC EQU PCCATMFL 00502000 PCCAVKIL EQU PCCATMFL 00503000 PCCASYNC EQU PCCATMFL 00504000 PCCAINIT EQU PCCATMFL 00505000 PCCARV9E EQU PCCA+124 00506000 PCCARV9D EQU PCCA+120 00507000 PCCARV9C EQU PCCA+116 00508000 PCCARV9B EQU PCCA+112 00509000 PCCARV9A EQU PCCA+108 00510000 PCCARV99 EQU PCCA+104 00511000 PCCARV98 EQU PCCA+100 00512000 PCCARV97 EQU PCCA+96 00513000 PCCARV96 EQU PCCA+92 00514000 PCCARV95 EQU PCCA+88 00515000 PCCARV94 EQU PCCA+84 00516000 PCCARV93 EQU PCCA+80 00517000 PCCARV92 EQU PCCA+76 00518000 PCCARV91 EQU PCCA+72 00519000 PCCARV90 EQU PCCA+68 00520000 PCCARV89 EQU PCCA+64 00521000 PCCARV88 EQU PCCA+60 00522000 PCCARV87 EQU PCCA+56 00523000 PCCARV86 EQU PCCA+52 00524000 PCCARV85 EQU PCCA+48 00525000 PCCARV84 EQU PCCA+44 00526000 PCCARV83 EQU PCCA+40 00527000 PCCARV82 EQU PCCA+36 00528000 PCCARV81 EQU PCCA+32 00529000 PCCAPSAR EQU PCCA+28 00530000 PCCAPSAV EQU PCCA+24 00531000 PCCATQEP EQU PCCA+20 00532000 PCCACAFM EQU PCCA+18 00533000 PCCACPUA EQU PCCA+16 00534000 PCCAPCCA EQU PCCA 00535000 @NM00027 EQU PSA+3668 00536000 PSASTAK EQU PSA+3072 00537000 @NM00026 EQU PSA+1048 00538000 PSAUSEND EQU PSA+1048 00539000 PSARV062 EQU PSA+1044 00540000 PSACDAL EQU PSA+1040 00541000 PSAWTCOD EQU PSA+1036 00542000 PSAATCVT EQU PSA+1032 00543000 PSAPCPSW EQU PSA+1024 00544000 PSAPIR2 EQU PSA+1020 00545000 PSARV059 EQU PSA+1018 00546000 PSASVC13 EQU PSA+1016 00547000 PSALSFCC EQU PSA+1012 00548000 PSASFACC EQU PSA+1008 00549000 PSASTOP EQU PSA+992 00550000 PSASTART EQU PSA+976 00551000 PSARSPSW EQU PSA+968 00552000 PSASRPSW EQU PSA+960 00553000 PSARV045 EQU PSA+892 00554000 PSARV044 EQU PSA+888 00555000 PSARV043 EQU PSA+884 00556000 PSARV042 EQU PSA+880 00557000 PSARV041 EQU PSA+876 00558000 PSARV040 EQU PSA+872 00559000 PSARV025 EQU PSA+868 00560000 PSADSSED EQU PSA+868 00561000 PSADSSPR EQU PSA+864 00562000 PSADSSFW EQU PSA+860 00563000 PSADSS14 EQU PSA+856 00564000 PSADSSPP EQU PSA+848 00565000 PSADSSRP EQU PSA+840 00566000 PSADSS05 EQU PSADSSF4 00567000 PSADSS10 EQU PSADSSF4 00568000 PSADSSVE EQU PSADSSF4 00569000 PSADSSDE EQU PSADSSF4 00570000 PSADSSC0 EQU PSADSSF4 00571000 PSADSSIE EQU PSADSSF4 00572000 PSADSS12 EQU PSADSSF4 00573000 PSADSSRC EQU PSADSSF4 00574000 PSARV057 EQU PSADSSF3 00575000 PSARV056 EQU PSADSSF3 00576000 PSARV055 EQU PSADSSF3 00577000 PSADSSMC EQU PSADSSF3 00578000 PSADSSRW EQU PSADSSF3 00579000 PSADSSNM EQU PSADSSF3 00580000 PSADSSES EQU PSADSSF3 00581000 PSADSSGP EQU PSADSSF3 00582000 PSADSSF2 EQU PSADSSFL+1 00583000 PSADSSPI EQU PSADSSF1 00584000 PSADSSOI EQU PSADSSF1 00585000 PSADSSSP EQU PSADSSF1 00586000 PSADSSTP EQU PSADSSF1 00587000 PSADSSDW EQU PSADSSF1 00588000 PSADSSDD EQU PSADSSF1 00589000 PSADSSDM EQU PSADSSF1 00590000 PSADSSMV EQU PSADSSF1 00591000 PSADSSTS EQU PSA+816 00592000 PSADSSWK EQU PSA+812 00593000 PSADSSR3 EQU PSA+808 00594000 PSADSSR2 EQU PSA+804 00595000 PSADSSRS EQU PSA+800 00596000 PSASTOR EQU PSA+796 00597000 PSACPUSA EQU PSA+794 00598000 PSAVSTAP EQU PSA+792 00599000 PSAWKVAP EQU PSA+788 00600000 PSAWKRAP EQU PSA+784 00601000 PSAMCHIC EQU PSA+783 00602000 PSAACTCD EQU PSA+782 00603000 PSASYMSK EQU PSA+781 00604000 PSAMCHFL EQU PSA+780 00605000 PSACR0 EQU PSA+776 00606000 PSAPSWSV EQU PSA+768 00607000 PSALITA EQU PSA+764 00608000 PSACLHS EQU PSAHLHI 00609000 PSALKR15 EQU PSALKSA+60 00610000 PSALKR14 EQU PSALKSA+56 00611000 PSALKR13 EQU PSALKSA+52 00612000 PSALKR12 EQU PSALKSA+48 00613000 PSALKR11 EQU PSALKSA+44 00614000 PSALKR10 EQU PSALKSA+40 00615000 PSALKR9 EQU PSALKSA+36 00616000 PSALKR8 EQU PSALKSA+32 00617000 PSALKR7 EQU PSALKSA+28 00618000 PSALKR6 EQU PSALKSA+24 00619000 PSALKR5 EQU PSALKSA+20 00620000 PSALKR4 EQU PSALKSA+16 00621000 PSALKR3 EQU PSALKSA+12 00622000 PSALKR2 EQU PSALKSA+8 00623000 PSALKR1 EQU PSALKSA+4 00624000 PSALKR0 EQU PSALKSA 00625000 PSARV023 EQU PSACLHT+52 00626000 PSALOCAL EQU PSACLHT+48 00627000 PSACMSL EQU PSACLHT+44 00628000 PSAOPTL EQU PSACLHT+40 00629000 PSATPACL EQU PSACLHT+36 00630000 PSATPDNL EQU PSACLHT+32 00631000 PSATPNCL EQU PSACLHT+28 00632000 PSAIOSLL EQU PSACLHT+24 00633000 PSAIOSUL EQU PSACLHT+20 00634000 PSAIOSCL EQU PSACLHT+16 00635000 PSAIOSSL EQU PSACLHT+12 00636000 PSASALCL EQU PSACLHT+8 00637000 PSAASML EQU PSACLHT+4 00638000 PSADISPL EQU PSACLHT 00639000 PSASRSA EQU PSA+636 00640000 PSARV050 EQU PSA+634 00641000 PSADSSGO EQU PSA+633 00642000 PSARECUR EQU PSA+632 00643000 PSAHLHIS EQU PSA+628 00644000 PSAIPCSA EQU PSA+624 00645000 @NM00025 EQU PSA+621 00646000 PSAIPCDM EQU PSA+620 00647000 PSAIPCD EQU PSA+616 00648000 @NM00024 EQU PSA+613 00649000 PSAIPCRM EQU PSA+612 00650000 PSAIPCR EQU PSA+608 00651000 PSAMCHEX EQU PSA+600 00652000 PSAMPSW EQU PSA+592 00653000 PSAEXPS2 EQU PSA+584 00654000 PSAEXPS1 EQU PSA+576 00655000 PSAPIREG EQU PSA+572 00656000 PSARSREG EQU PSA+568 00657000 PSAGPREG EQU PSA+556 00658000 PSARV022 EQU PSASUP4 00659000 PSARV021 EQU PSASUP4 00660000 PSARV020 EQU PSASUP4 00661000 PSARV019 EQU PSASUP4 00662000 PSARV018 EQU PSASUP4 00663000 PSARV017 EQU PSASUP4 00664000 PSARV016 EQU PSASUP4 00665000 PSARV015 EQU PSASUP4 00666000 PSARV014 EQU PSASUP3 00667000 PSARV013 EQU PSASUP3 00668000 PSARV012 EQU PSASUP3 00669000 PSAESTA EQU PSASUP3 00670000 PSASPR EQU PSASUP3 00671000 PSAPSREG EQU PSASUP3 00672000 PSAPI2 EQU PSASUP3 00673000 PSAIOSUP EQU PSASUP3 00674000 PSALCR EQU PSASUP2 00675000 PSARTM EQU PSASUP2 00676000 PSAACR EQU PSASUP2 00677000 PSAIPCE2 EQU PSASUP2 00678000 PSAIPCES EQU PSASUP2 00679000 PSAIPCEC EQU PSASUP2 00680000 PSAGTF EQU PSASUP2 00681000 PSAIPCRI EQU PSASUP2 00682000 PSATYPE6 EQU PSASUP1 00683000 PSATCTL EQU PSASUP1 00684000 PSADISP EQU PSASUP1 00685000 PSALOCK EQU PSASUP1 00686000 PSAPI EQU PSASUP1 00687000 PSAEXT EQU PSASUP1 00688000 PSASVC EQU PSASUP1 00689000 PSAIO EQU PSASUP1 00690000 PSAAOLD EQU PSA+548 00691000 PSAANEW EQU PSA+544 00692000 PSATOLD EQU PSA+540 00693000 PSATNEW EQU PSA+536 00694000 PSALCCAR EQU PSA+532 00695000 PSALCCAV EQU PSA+528 00696000 PSAPCCAR EQU PSA+524 00697000 PSAPCCAV EQU PSA+520 00698000 PSACPULA EQU PSA+518 00699000 PSACPUPA EQU PSA+516 00700000 PSAPSA EQU PSA+512 00701000 FLCHDEND EQU PSA+512 00702000 FLCCRSAV EQU FLCMCLA+280 00703000 FLCGRSAV EQU FLCMCLA+216 00704000 FLCFPSAV EQU FLCMCLA+184 00705000 FLCFLA EQU FLCMCLA+88 00706000 FLCRGNCD EQU FLCMCLA+84 00707000 FLCFSAA EQU FLCFSA+1 00708000 @NM00023 EQU FLCFSA 00709000 @NM00022 EQU FLCMCLA+77 00710000 PSAMDISC EQU PSAMEDC 00711000 PSAMINTR EQU PSAMEDC 00712000 PSAMINST EQU PSAMEDC 00713000 PSAMCCF EQU PSAMEDC 00714000 PSAMCNOP EQU PSAMEDC 00715000 PSAMEXSR EQU PSAMEDC 00716000 PSAMCOPR EQU PSAMEDC 00717000 @NM00021 EQU PSAMEDC 00718000 @NM00020 EQU FLCMCLA+72 00719000 FLCMCIC EQU FLCMCLA+64 00720000 @NM00019 EQU FLCMCLA+20 00721000 FLCIOAA EQU FLCIOA+1 00722000 @NM00018 EQU FLCIOA 00723000 @NM00017 EQU FLCMCLA+15 00724000 @NM00016 EQU FLCMCLA+14 00725000 @NM00015 EQU FLCMCLA+12 00726000 FLCIOELA EQU FLCIOEL+1 00727000 @NM00014 EQU FLCIOEL 00728000 FLCCHIL EQU FLCCHNID+2 00729000 FLCCHMOD EQU FLCCHTM 00730000 FLCCHTYP EQU FLCCHTM 00731000 @NM00013 EQU PSA+160 00732000 FLCMTRCD EQU PSA+157 00733000 @NM00012 EQU PSA+156 00734000 FLCPERA EQU FLCPER+1 00735000 @NM00011 EQU FLCPER 00736000 @NM00010 EQU PSA+151 00737000 FLCPERCD EQU PSA+150 00738000 FLCMCNUM EQU PSA+149 00739000 @NM00009 EQU PSA+148 00740000 FLCTEAA EQU FLCTEA+1 00741000 @NM00008 EQU FLCTEA 00742000 PSAPIPC EQU PSAPICOD 00743000 PSAPIMC EQU PSAPICOD 00744000 PSAPIPER EQU PSAPICOD 00745000 PSARV049 EQU FLCPICOD 00746000 FLCPILCB EQU FLCPIILC 00747000 @NM00007 EQU FLCPIILC 00748000 @NM00006 EQU PSAEPPSW 00749000 FLCSVCN EQU PSAESPSW+2 00750000 FLCSILCB EQU FLCSVILC 00751000 @NM00005 EQU FLCSVILC 00752000 @NM00004 EQU PSAESPSW 00753000 FLCEICOD EQU PSAEEPSW+2 00754000 PSASPAD EQU PSAEEPSW 00755000 @NM00003 EQU PSA+128 00756000 FLCINPSW EQU PSA+120 00757000 FLCMNPSW EQU PSA+112 00758000 FLCPNPSW EQU PSA+104 00759000 FLCSNPSW EQU PSA+96 00760000 FLCENPSW EQU PSA+88 00761000 FLCTRACE EQU PSA+84 00762000 FLCTIMER EQU PSA+80 00763000 FLCCVT2 EQU PSA+76 00764000 FLCCAW EQU PSA+72 00765000 FLCIOPSW EQU PSA+56 00766000 FLCMOPSW EQU PSA+48 00767000 FLCPOPSW EQU PSA+40 00768000 FLCSOPSW EQU PSA+32 00769000 FLCEOPSW EQU PSA+24 00770000 @NM00002 EQU FLCICCW2+4 00771000 FLCCVT EQU FLCICCW2 00772000 FLCICCW1 EQU FLCROPSW 00773000 FLCIPPSW EQU FLCRNPSW 00774000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00775000 @RC00032 EQU @EL00001 00776000 CICRTN EQU @EL00001 00777000 @RC00036 EQU @EL00001 00778000 @RC00043 EQU @EL00001 00779000 @RC00047 EQU @RC00043 00780000 @RC00045 EQU @RC00043 00781000 @ENDDATA EQU * 00782000 END IGFCIC,(C'PLS2320',0701,77172) 00783000