TITLE 'IAPPFXAP - AP-1 PAGE FIX APPENDAGE *00001000 ' 00002000 IAPPFXAP CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 B 0(GPR14P) 00005000 * 01S0050 00006000 USING IAPPFXAP,GPR15P 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* BUILD FIX LIST FOR AP1BLOCK */ 00010000 * /* */ 00011000 * /*****************************************************************/ 00012000 * 01S0051 00013000 * PFXSTART=IOBAP1PT; /* FIRST BYTE TO BE FIXED */ 00014000 L @09,IOBAP1PT(,GPR02P) 01S0051 00015000 ST @09,PFXSTART(,GPR10P) 01S0051 00016000 * PFXEND=IOBAP1PT+LENGTH(AP1BLOCK);/* LAST BYTE TO BE FIXED PLUS 00017000 * ONE */ 00018000 AL @09,@CF00475 01S0052 00019000 ST @09,PFXEND(,GPR10P) 01S0052 00020000 * GPR11F=1; /* ONE ENTRY */ 00021000 * 01S0053 00022000 LA GPR11F,1 01S0053 00023000 * /*****************************************************************/ 00024000 * /* */ 00025000 * /* EPILOG */ 00026000 * /* */ 00027000 * /*****************************************************************/ 00028000 * 01S0054 00029000 * RFY 01S0054 00030000 * GPR09P RSTD; 01S0054 00031000 * GPR09P=0; /* RESTORE REG 9 */ 00032000 SLR GPR09P,GPR09P 01S0055 00033000 * GEN( BR GPR14P ); /* RETURN */ 00034000 BR GPR14P 00035000 * GEN DATA DEFS(PATCH); 01S0057 00036000 * END /* OF IAPPFXAP PROC */ 00037000 * 01S0058 00038000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00039000 */*%INCLUDE SYSLIB (AP1BLOCK) */ 00040000 */*%INCLUDE SYSLIB (IEZIOB ) */ 00041000 * 01S0058 00042000 * ; 01S0058 00043000 @EL00001 DS 0H 01S0058 00044000 @EF00001 DS 0H 01S0058 00045000 @ER00001 BR @14 01S0058 00046000 @DATA DS 0H 00047000 @DATD DSECT 00048000 DS 0F 00049000 IAPPFXAP CSECT 00050000 DS 0F 00051000 @CF00475 DC F'360' 00052000 @DATD DSECT 00053000 DS 0D 00054000 IAPPFXAP CSECT 00055000 NOPR ((@ENDDATD-@DATD)*16) 00056000 DS 0F 00057000 @SIZDATD DC AL1(0) 00058000 DC AL3(@ENDDATD-@DATD) 00059000 DS 0D 00060000 IAPPFXAP CSECT 00061000 * /* PATCH AREA */ 00062000 PATCH DC 13F'0' THIRTEEN WORD PATCH AREA 00063000 @DATD DSECT 00064000 @ENDDATD EQU * 00065000 IAPPFXAP CSECT 00066000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00067000 @01 EQU 01 00068000 @02 EQU 02 00069000 @03 EQU 03 00070000 @04 EQU 04 00071000 @05 EQU 05 00072000 @06 EQU 06 00073000 @07 EQU 07 00074000 @08 EQU 08 00075000 @09 EQU 09 00076000 @10 EQU 10 00077000 @11 EQU 11 00078000 @12 EQU 12 00079000 @13 EQU 13 00080000 @14 EQU 14 00081000 @15 EQU 15 00082000 GPR02P EQU @02 00083000 GPR00P EQU @00 00084000 GPR01P EQU @01 00085000 GPR03P EQU @03 00086000 GPR04P EQU @04 00087000 GPR05P EQU @05 00088000 GPR06P EQU @06 00089000 GPR07P EQU @07 00090000 GPR08P EQU @08 00091000 GPR09P EQU @09 00092000 GPR12P EQU @12 00093000 GPR14P EQU @14 00094000 GPR15P EQU @15 00095000 GPR10P EQU @10 00096000 GPR11F EQU @11 00097000 GPR00F EQU @00 00098000 GPR10F EQU @10 00099000 GPR11P EQU @11 00100000 GPR12F EQU @12 00101000 GPR13P EQU @13 00102000 AP1BLOCK EQU 0 00103000 AP1PRINT EQU AP1BLOCK+8 00104000 AP1PFLG1 EQU AP1BLOCK+144 00105000 AP1CCWA EQU AP1BLOCK+160 00106000 AP1BUFAD EQU AP1BLOCK+164 00107000 AP1TIMFL EQU AP1BLOCK+176 00108000 AP1TIMFA EQU AP1TIMFL 00109000 AP1SEEK EQU AP1BLOCK+213 00110000 CCHHR EQU AP1SEEK+3 00111000 CCHH EQU CCHHR 00112000 HH EQU CCHH+2 00113000 AP1CESK EQU AP1BLOCK+221 00114000 CECCHHR EQU AP1CESK+2 00115000 CECCHH EQU CECCHHR 00116000 AP1FLG2 EQU AP1BLOCK+244 00117000 AP1FLG3 EQU AP1BLOCK+245 00118000 AP1FLG4 EQU AP1BLOCK+246 00119000 IOBPREFX EQU 0 00120000 IOBCFLG1 EQU IOBPREFX 00121000 IOBSTDRD EQU 0 00122000 IOBFLAG1 EQU IOBSTDRD 00123000 IOBCYCCK EQU IOBFLAG1 00124000 IOBRSTRT EQU IOBFLAG1 00125000 IOBFLAG2 EQU IOBSTDRD+1 00126000 IOBPURGE EQU IOBFLAG2 00127000 IOBRDHA0 EQU IOBFLAG2 00128000 IOBSENS0 EQU IOBSTDRD+2 00129000 IOBS0B7 EQU IOBSENS0 00130000 IOBSENS1 EQU IOBSTDRD+3 00131000 IOBECBPT EQU IOBSTDRD+4 00132000 IOBFLAG3 EQU IOBSTDRD+8 00133000 IOBFL3 EQU IOBFLAG3 00134000 IOBCNC EQU IOBFL3 00135000 IOBICL EQU IOBFL3 00136000 IOBCSW EQU IOBSTDRD+9 00137000 IOBIOCSW EQU IOBCSW 00138000 IOBSTBYT EQU IOBIOCSW+3 00139000 IOBUSTAT EQU IOBSTBYT 00140000 IOBCSTAT EQU IOBSTBYT+1 00141000 IOBSTART EQU IOBSTDRD+16 00142000 IOBDCBPT EQU IOBSTDRD+20 00143000 IOBFLAG4 EQU IOBDCBPT 00144000 IOBRESTR EQU IOBSTDRD+24 00145000 IOBINCAM EQU IOBSTDRD+28 00146000 IOBBTAMF EQU IOBINCAM 00147000 PFXLIST EQU 0 00148000 PFXSTART EQU PFXLIST 00149000 PFXEND EQU PFXLIST+4 00150000 IOBEXTEN EQU IOBSTDRD+32 00151000 IOBSEEK EQU IOBEXTEN 00152000 IOBBB EQU IOBSEEK+1 00153000 IOBCC EQU IOBSEEK+3 00154000 IOBHH EQU IOBSEEK+5 00155000 IOBAP1PT EQU IOBSEEK+8 00156000 IOBORG01 EQU IOBPREFX+8 00157000 IOBNIOBA EQU IOBORG01 00158000 IOBNFLG1 EQU IOBNIOBA 00159000 IOBPRTOV EQU IOBNFLG1 00160000 IOBORG02 EQU IOBPREFX+8 00161000 IOBDQADA EQU IOBORG02 00162000 IOBDEQIN EQU IOBDQADA 00163000 IOBORG03 EQU IOBPREFX+12 00164000 IOBORG04 EQU IOBINCAM 00165000 IOBORG12 EQU IOBINCAM 00166000 IOBFL4 EQU IOBORG12 00167000 IOBORG05 EQU IOBEXTEN 00168000 IOBORG06 EQU IOBEXTEN 00169000 IOBNXTPT EQU IOBORG06+4 00170000 IOBSTATA EQU IOBNXTPT 00171000 IOBORG07 EQU IOBEXTEN+8 00172000 W1IEXTEN EQU IOBORG07 00173000 IOBORG08 EQU IOBEXTEN+8 00174000 IOBINDCT EQU IOBORG08+4 00175000 IOBUNSQR EQU IOBORG08+5 00176000 IOBFCHAD EQU IOBORG08+8 00177000 IOBORG09 EQU IOBEXTEN+8 00178000 IOBDPLAD EQU IOBORG09+4 00179000 IOBDTYPE EQU IOBORG09+8 00180000 IOBDTYP2 EQU IOBORG09+9 00181000 IOBDSTAT EQU IOBORG09+10 00182000 IOBSTAT1 EQU IOBDSTAT 00183000 IOBORG10 EQU IOBEXTEN+8 00184000 IOBSEEK2 EQU IOBORG10 00185000 IOBORG11 EQU IOBEXTEN 00186000 IOBERCT EQU IOBORG11 00187000 IOBUCBXV EQU IOBERCT 00188000 IOBNAME EQU IOBORG11+4 00189000 IOBORG13 EQU IOBEXTEN 00190000 IOBSKADR EQU IOBORG13 00191000 HHR EQU HH 00192000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00193000 IOBSKSS EQU IOBSKADR+3 00194000 IOBSK0 EQU IOBSKADR+2 00195000 IOBSKTT EQU IOBSKADR+1 00196000 IOBSKRV EQU IOBSKADR 00197000 IOBCSWSV EQU IOBORG11+17 00198000 IOBSENSV EQU IOBORG11+16 00199000 IOBRCD EQU IOBORG11+12 00200000 IOBMDREC EQU IOBORG11+8 00201000 IOBNAMEA EQU IOBNAME+1 00202000 IOBNAMSZ EQU IOBNAME 00203000 IOBERCTA EQU IOBERCT+1 00204000 IOBRTYPE EQU IOBUCBXV 00205000 IOBRDCHP EQU IOBORG10+20 00206000 IOBNEXTA EQU IOBORG10+16 00207000 IOBREADA EQU IOBORG10+12 00208000 IOBBUFC EQU IOBORG10+8 00209000 IOBSK2R EQU IOBSEEK2+7 00210000 IOBSK2HH EQU IOBSEEK2+5 00211000 IOBSK2CC EQU IOBSEEK2+3 00212000 IOBSK2BB EQU IOBSEEK2+1 00213000 IOBSK2M EQU IOBSEEK2 00214000 IOBCHNPR EQU IOBORG09+40 00215000 IOBDNCRF EQU IOBORG09+32 00216000 IOBRSV35 EQU IOBORG09+24 00217000 IOBDQPTR EQU IOBORG09+20 00218000 IOBRSV34 EQU IOBORG09+18 00219000 IOBDBYTN EQU IOBORG09+16 00220000 IOBDCPND EQU IOBORG09+12 00221000 IOBSTAT2 EQU IOBDSTAT+1 00222000 IOBSIORT EQU IOBSTAT1 00223000 IOBADDVU EQU IOBSTAT1 00224000 IOBBUFF EQU IOBSTAT1 00225000 IOBENQUE EQU IOBSTAT1 00226000 IOBPASS2 EQU IOBSTAT1 00227000 IOBSYNCH EQU IOBSTAT1 00228000 IOBNEWVL EQU IOBSTAT1 00229000 IOBABNRM EQU IOBSTAT1 00230000 IOBRELEX EQU IOBDTYP2 00231000 IOBADDTY EQU IOBDTYP2 00232000 IOBTYPE EQU IOBDTYP2 00233000 IOBRQUST EQU IOBDTYP2 00234000 IOBSUFFX EQU IOBDTYP2 00235000 IOBSBLKL EQU IOBDTYP2 00236000 IOBSKEY EQU IOBDTYP2 00237000 IOBRELBL EQU IOBDTYPE 00238000 IOBRDEXC EQU IOBDTYPE 00239000 IOBDYNBF EQU IOBDTYPE 00240000 IOBACTAD EQU IOBDTYPE 00241000 IOBFDBCK EQU IOBDTYPE 00242000 IOBEXTSC EQU IOBDTYPE 00243000 IOBOVFLO EQU IOBDTYPE 00244000 IOBVERFY EQU IOBDTYPE 00245000 IOBDPLB EQU IOBDPLAD+1 00246000 IOBDAYLI EQU IOBDPLAD 00247000 IOBDIOBS EQU IOBORG09+2 00248000 IOBDBYTR EQU IOBORG09 00249000 IOBBCHAD EQU IOBORG08+12 00250000 IOBFCHNB EQU IOBFCHAD+1 00251000 IOBCOUNT EQU IOBFCHAD 00252000 IOBASYN EQU IOBORG08+7 00253000 IOBAPP EQU IOBORG08+6 00254000 IOBRSV32 EQU IOBUNSQR 00255000 IOBRSV31 EQU IOBUNSQR 00256000 IOBRSV30 EQU IOBUNSQR 00257000 IOBKNRWR EQU IOBUNSQR 00258000 IOBKNWR EQU IOBUNSQR 00259000 IOBNTAV2 EQU IOBUNSQR 00260000 IOBNTAV1 EQU IOBUNSQR 00261000 IOBCPBSY EQU IOBUNSQR 00262000 IOBCHNNL EQU IOBINDCT 00263000 IOBRSV29 EQU IOBINDCT 00264000 IOBRSV28 EQU IOBINDCT 00265000 IOBRSV27 EQU IOBINDCT 00266000 IOBKEYAD EQU IOBINDCT 00267000 IOBOVPTR EQU IOBINDCT 00268000 IOBUNSCH EQU IOBINDCT 00269000 IOBDEQCP EQU IOBINDCT 00270000 IOBCCWAD EQU IOBORG08 00271000 W1OEXTEN EQU W1IEXTEN 00272000 IOBCCW EQU IOBORG06+8 00273000 IOBNXTPB EQU IOBNXTPT+1 00274000 IOBRSV26 EQU IOBSTATA 00275000 IOBRSV25 EQU IOBSTATA 00276000 IOBRSV24 EQU IOBSTATA 00277000 IOBRSV23 EQU IOBSTATA 00278000 IOBRSV22 EQU IOBSTATA 00279000 IOBRSV21 EQU IOBSTATA 00280000 IOBRSV20 EQU IOBSTATA 00281000 IOBAVLFL EQU IOBSTATA 00282000 IOBRSV37 EQU IOBORG06+1 00283000 IOBUCBXG EQU IOBORG06 00284000 IOBCPA EQU IOBORG05+32 00285000 IOBERINF EQU IOBORG05+16 00286000 IOBERCCW EQU IOBORG05+8 00287000 IOBSNDPT EQU IOBORG05+7 00288000 IOBRCVPT EQU IOBORG05+6 00289000 IOBWORK EQU IOBORG05+1 00290000 IOBUCBX EQU IOBORG05 00291000 IOBRSV46 EQU IOBFL4 00292000 IOBRSV47 EQU IOBFL4 00293000 IOBENT EQU IOBFL4 00294000 IOBEQP EQU IOBFL4 00295000 IOBBUS EQU IOBFL4 00296000 IOBDCK EQU IOBFL4 00297000 IOBREJ EQU IOBFL4 00298000 IOBOVR EQU IOBFL4 00299000 IOBCRILC EQU IOBORG04+1 00300000 IOBCRDCC EQU IOBORG04 00301000 IOBGQECB EQU IOBORG03 00302000 IOBSWAP EQU IOBORG02+4 00303000 IOBDQADB EQU IOBDQADA+1 00304000 IOBRSV13 EQU IOBDEQIN 00305000 IOBRSV12 EQU IOBDEQIN 00306000 IOBRSV11 EQU IOBDEQIN 00307000 IOBRSV10 EQU IOBDEQIN 00308000 IOBRSV09 EQU IOBDEQIN 00309000 IOBRSV08 EQU IOBDEQIN 00310000 IOBRSV07 EQU IOBDEQIN 00311000 IOBDEQ EQU IOBDEQIN 00312000 IOBNECB EQU IOBORG01+4 00313000 IOBNIOBB EQU IOBNIOBA+1 00314000 IOBFIRST EQU IOBNFLG1 00315000 IOBUPERR EQU IOBNFLG1 00316000 IOBSPAN EQU IOBNFLG1 00317000 IOBBKSPC EQU IOBNFLG1 00318000 IOBUPDAT EQU IOBNFLG1 00319000 IOBREAD EQU IOBNFLG1 00320000 IOBWRITE EQU IOBNFLG1 00321000 IOBSEGMT EQU IOBPRTOV 00322000 IOBR EQU IOBSEEK+7 00323000 IOBHH2 EQU IOBHH+1 00324000 IOBHH1 EQU IOBHH 00325000 IOBCC2 EQU IOBCC+1 00326000 IOBCC1 EQU IOBCC 00327000 IOBBB2 EQU IOBBB+1 00328000 IOBBB1 EQU IOBBB 00329000 IOBM EQU IOBSEEK 00330000 IOBERRCT EQU IOBSTDRD+30 00331000 IOBRSV19 EQU IOBINCAM+1 00332000 IOBOLTST EQU IOBBTAMF 00333000 IOBRFTMG EQU IOBBTAMF 00334000 IOBRSV17 EQU IOBBTAMF 00335000 IOBRSV16 EQU IOBBTAMF 00336000 IOBRSV15 EQU IOBBTAMF 00337000 IOBRSV14 EQU IOBBTAMF 00338000 IOBINUSE EQU IOBBTAMF 00339000 IOBPRMER EQU IOBBTAMF 00340000 IOBRSTRB EQU IOBRESTR+1 00341000 IOBREPOS EQU IOBRESTR 00342000 IOBDCBPB EQU IOBDCBPT+1 00343000 IOBRSV44 EQU IOBFLAG4 00344000 IOBJES3I EQU IOBFLAG4 00345000 IOBRSV42 EQU IOBFLAG4 00346000 IOBRSV41 EQU IOBFLAG4 00347000 IOBRSV40 EQU IOBFLAG4 00348000 IOBPMERR EQU IOBFLAG4 00349000 IOBCC3WE EQU IOBFLAG4 00350000 IOBGDPOL EQU IOBFLAG4 00351000 IOBSTRTB EQU IOBSTART+1 00352000 IOBSIOCC EQU IOBSTART 00353000 IOBCSB7 EQU IOBCSTAT 00354000 IOBCSB6 EQU IOBCSTAT 00355000 IOBCSB5 EQU IOBCSTAT 00356000 IOBCSB4 EQU IOBCSTAT 00357000 IOBCSB3 EQU IOBCSTAT 00358000 IOBCSB2 EQU IOBCSTAT 00359000 IOBCSB1 EQU IOBCSTAT 00360000 IOBCSB0 EQU IOBCSTAT 00361000 IOBUSB7 EQU IOBUSTAT 00362000 IOBUSB6 EQU IOBUSTAT 00363000 IOBUSB5 EQU IOBUSTAT 00364000 IOBUSB4 EQU IOBUSTAT 00365000 IOBUSB3 EQU IOBUSTAT 00366000 IOBUSB2 EQU IOBUSTAT 00367000 IOBUSB1 EQU IOBUSTAT 00368000 IOBUSB0 EQU IOBUSTAT 00369000 IOBCMDA EQU IOBIOCSW 00370000 IOBLOG EQU IOBFL3 00371000 IOBJAM EQU IOBICL 00372000 IOBMSG EQU IOBFL3 00373000 IOBSDR EQU IOBCNC 00374000 IOBACU EQU IOBFL3 00375000 IOBCDC EQU IOBFL3 00376000 IOBICC EQU IOBFL3 00377000 IOBCCC EQU IOBFL3 00378000 IOBECBPB EQU IOBECBPT+1 00379000 IOBECBCC EQU IOBECBPT 00380000 IOBS1B7 EQU IOBSENS1 00381000 IOBS1B6 EQU IOBSENS1 00382000 IOBS1B5 EQU IOBSENS1 00383000 IOBS1B4 EQU IOBSENS1 00384000 IOBS1B3 EQU IOBSENS1 00385000 IOBS1B2 EQU IOBSENS1 00386000 IOBS1B1 EQU IOBSENS1 00387000 IOBS1B0 EQU IOBSENS1 00388000 IOBSNSC9 EQU IOBS0B7 00389000 IOBS0B6 EQU IOBSENS0 00390000 IOBS0B5 EQU IOBSENS0 00391000 IOBS0B4 EQU IOBSENS0 00392000 IOBS0B3 EQU IOBSENS0 00393000 IOBS0B2 EQU IOBSENS0 00394000 IOBS0B1 EQU IOBSENS0 00395000 IOBS0B0 EQU IOBSENS0 00396000 IOBPNCH EQU IOBFLAG2 00397000 IOBSTATO EQU IOBFLAG2 00398000 IOBSKUPD EQU IOBFLAG2 00399000 IOBALTTR EQU IOBFLAG2 00400000 IOBRRT2 EQU IOBRDHA0 00401000 IOBRRT3 EQU IOBPURGE 00402000 IOBSENSE EQU IOBFLAG2 00403000 IOBHALT EQU IOBFLAG2 00404000 IOBSPSVC EQU IOBRSTRT 00405000 IOBUNREL EQU IOBFLAG1 00406000 IOBIOERR EQU IOBFLAG1 00407000 IOBFCREX EQU IOBCYCCK 00408000 IOBRPSTN EQU IOBFLAG1 00409000 IOBERRTN EQU IOBFLAG1 00410000 IOBCMDCH EQU IOBFLAG1 00411000 IOBDATCH EQU IOBFLAG1 00412000 IOBCNOPA EQU IOBPREFX+12 00413000 IOBCICB EQU IOBPREFX+8 00414000 IOBCECB EQU IOBPREFX+4 00415000 IOBCONOP EQU IOBPREFX+3 00416000 IOBCINOP EQU IOBPREFX+2 00417000 IOBRSV05 EQU IOBPREFX+1 00418000 IOBPCI EQU IOBCFLG1 00419000 IOBRSTCH EQU IOBCFLG1 00420000 IOBABAPP EQU IOBCFLG1 00421000 IOBPTST EQU IOBCFLG1 00422000 IOBRSV04 EQU IOBCFLG1 00423000 IOBRSV03 EQU IOBCFLG1 00424000 IOBRSV02 EQU IOBCFLG1 00425000 IOBRSV01 EQU IOBCFLG1 00426000 AP1END EQU AP1BLOCK+360 00427000 AP1ERRTF EQU AP1BLOCK+300 00428000 AP1ERRTM EQU AP1BLOCK+270 00429000 AP1ENQAD EQU AP1BLOCK+266 00430000 AP1DEVAD EQU AP1BLOCK+262 00431000 AP1LSTHH EQU AP1BLOCK+260 00432000 AP1LSTCC EQU AP1BLOCK+258 00433000 AP1SKCNT EQU AP1BLOCK+256 00434000 AP1ETABA EQU AP1BLOCK+252 00435000 AP1RET EQU AP1BLOCK+251 00436000 AP1DEVTP EQU AP1BLOCK+250 00437000 AP1TSTNO EQU AP1BLOCK+249 00438000 AP1DCCNT EQU AP1BLOCK+248 00439000 @NM00004 EQU AP1BLOCK+247 00440000 AP1ENQD EQU AP1FLG4 00441000 AP1DEBCH EQU AP1FLG4 00442000 AP1READ EQU AP1FLG4 00443000 AP1NORD EQU AP1FLG4 00444000 AP1RDERR EQU AP1FLG3 00445000 AP1RDTST EQU AP1FLG3 00446000 AP1VERIF EQU AP1FLG3 00447000 AP1QUIT EQU AP1FLG3 00448000 AP1PRERR EQU AP1FLG3 00449000 AP1ERROR EQU AP1FLG3 00450000 AP1LST EQU AP1FLG3 00451000 AP1PTRN2 EQU AP1FLG3 00452000 AP1NOERP EQU AP1FLG2 00453000 AP1FHF EQU AP1FLG2 00454000 AP1EDP EQU AP1FLG2 00455000 AP1IOC EQU AP1FLG2 00456000 AP1NOWR EQU AP1FLG2 00457000 AP1IOECB EQU AP1BLOCK+240 00458000 AP1IOBA EQU AP1BLOCK+236 00459000 AP1DEBA EQU AP1BLOCK+232 00460000 AP1DCBA EQU AP1BLOCK+228 00461000 CER EQU CECCHHR+4 00462000 CEHH EQU CECCHH+2 00463000 CECC EQU CECCHH 00464000 CEBB EQU AP1CESK 00465000 R EQU CCHHR+4 00466000 CC EQU CCHH 00467000 BB EQU AP1SEEK+1 00468000 M EQU AP1SEEK 00469000 AP1FM EQU AP1BLOCK+212 00470000 AP1SNS EQU AP1BLOCK+188 00471000 AP1CSW EQU AP1BLOCK+181 00472000 AP1PCODE EQU AP1BLOCK+180 00473000 AP1TIMIN EQU AP1TIMFA 00474000 AP1IOACT EQU AP1TIMFA 00475000 AP1TCBAD EQU AP1BLOCK+172 00476000 AP1TIMEA EQU AP1BLOCK+168 00477000 AP1BUFAB EQU AP1BUFAD+1 00478000 @NM00003 EQU AP1BUFAD 00479000 AP1CCWAB EQU AP1CCWA+1 00480000 @NM00002 EQU AP1CCWA 00481000 AP1WRKA EQU AP1BLOCK+156 00482000 AP1RECB EQU AP1BLOCK+152 00483000 @NM00001 EQU AP1BLOCK+150 00484000 AP1CNRPL EQU AP1BLOCK+146 00485000 AP1CNCOD EQU AP1BLOCK+145 00486000 AP1PRCLS EQU AP1PFLG1 00487000 AP1PRNP EQU AP1PFLG1 00488000 AP1PROPN EQU AP1PFLG1 00489000 AP1PRLIN EQU AP1BLOCK+142 00490000 AP1PRPAG EQU AP1BLOCK+140 00491000 AP1PRCOD EQU AP1BLOCK+139 00492000 AP1PRMSG EQU AP1PRINT+1 00493000 AP1PRASA EQU AP1PRINT 00494000 AP1PDCBA EQU AP1BLOCK+4 00495000 AP1HDR EQU AP1BLOCK 00496000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00497000 @ENDDATA EQU * 00498000 END IAPPFXAP,(C'PLS1801',0701,77308) 00499000