TITLE 'IGG019UO, CONTROL MODULE FOR 3890 MICR READER ' 00001000 IGG019UO CSECT , 0001 00002000 @PROLOG STM @14,@12,12(@13) 0001 00003000 BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * 0037 00007000 */***************************** */ 00008000 */* HANDLE ENG OR DSG FUNCTION */ 00009000 */***************************** */ 00010000 * 0037 00011000 * IOBSTPTR=DCBIOBA+PRFXLN; /* ESTABLISH POINTER TO IOB */ 00012000 LA IOBSTPTR,8 0037 00013000 A IOBSTPTR,DCBIOBA+52(,DCBPTR) 0037 00014000 * CCWPTR=IOBSTART; /* ESTABLISH PTR TO 3890 CCWCHAIN*/ 00015000 L CCWPTR,IOBSTART(,IOBSTPTR) 0038 00016000 * IF FUNCTION=ENGAGE THEN /* IF ENGAGE REQUESTED,SET CCW */ 00017000 LR @15,PRMPTR 0039 00018000 CLI FUNCTION(@15),4 0039 00019000 BNE @RF00039 0039 00020000 * CCWOPCDE=STARTCMD; /* COMMAND CODE TO ANTICIPATE. */ 00021000 MVI CCWOPCDE(CCWPTR),X'23' 0040 00022000 * ELSE /* ELSE,TEST FOR DISENGAGE... */ 00023000 * IF FUNCTION=DISENG THEN /* IF DISENGAGE REQUESTED,SET CCW*/ 00024000 B @RC00039 0041 00025000 @RF00039 LR @15,PRMPTR 0041 00026000 CLI FUNCTION(@15),8 0041 00027000 BNE @RF00041 0041 00028000 * CCWOPCDE=STOPCMD; /* OP CODE TO ANTICIPATE AND STOP*/ 00029000 MVI CCWOPCDE(CCWPTR),X'33' 0042 00030000 * END IGG019UO 0043 00031000 * 0043 00032000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00033000 */*%INCLUDE SYSUT5 (CONTROL ) */ 00034000 */*%INCLUDE SYSUT5 (PROLOG ) */ 00035000 */*%INCLUDE SYSLIB (IEZIOB ) */ 00036000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00037000 */*%INCLUDE SYSLIB (IHADCB ) */ 00038000 * 0043 00039000 * ; 0043 00040000 @EL00001 DS 0H 0043 00041000 @EF00001 DS 0H 0043 00042000 @ER00001 LM @14,@12,12(@13) 0043 00043000 BR @14 0043 00044000 @DATA DS 0H 00045000 DS 0F 00046000 DS 0F 00047000 DS 0D 00048000 MTAREA DC 13CL4'ZAPS' 00049000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00050000 @01 EQU 01 00051000 @02 EQU 02 00052000 @03 EQU 03 00053000 @04 EQU 04 00054000 @05 EQU 05 00055000 @06 EQU 06 00056000 @07 EQU 07 00057000 @08 EQU 08 00058000 @09 EQU 09 00059000 @10 EQU 10 00060000 @11 EQU 11 00061000 @12 EQU 12 00062000 @13 EQU 13 00063000 @14 EQU 14 00064000 @15 EQU 15 00065000 IOBPRPTR EQU @04 00066000 IOBSTPTR EQU @02 00067000 DCBPTR EQU @01 00068000 PRMPTR EQU @00 00069000 CCWPTR EQU @03 00070000 IOBPREFX EQU 0 00071000 IOBCFLG1 EQU IOBPREFX 00072000 IOBSTDRD EQU 0 00073000 IOBFLAG1 EQU IOBSTDRD 00074000 IOBCYCCK EQU IOBFLAG1 00075000 IOBRSTRT EQU IOBFLAG1 00076000 IOBFLAG2 EQU IOBSTDRD+1 00077000 IOBPURGE EQU IOBFLAG2 00078000 IOBRDHA0 EQU IOBFLAG2 00079000 IOBSENS0 EQU IOBSTDRD+2 00080000 IOBS0B7 EQU IOBSENS0 00081000 IOBSENS1 EQU IOBSTDRD+3 00082000 IOBECBPT EQU IOBSTDRD+4 00083000 IOBFLAG3 EQU IOBSTDRD+8 00084000 IOBFL3 EQU IOBFLAG3 00085000 IOBCSW EQU IOBSTDRD+9 00086000 IOBIOCSW EQU IOBCSW 00087000 IOBSTART EQU IOBSTDRD+16 00088000 IOBDCBPT EQU IOBSTDRD+20 00089000 IOBFLAG4 EQU IOBDCBPT 00090000 IOBRESTR EQU IOBSTDRD+24 00091000 IOBINCAM EQU IOBSTDRD+28 00092000 IOBBTAMF EQU IOBINCAM 00093000 IHADCB EQU 0 00094000 IHADCS07 EQU 0 00095000 DCBWTOID EQU IHADCS07 00096000 IHADCS09 EQU 0 00097000 DCBSSID EQU IHADCS09 00098000 IHADCS10 EQU 0 00099000 DCBSSAD EQU IHADCS10+4 00100000 DCBIMG EQU DCBSSAD 00101000 DCBIMAGE EQU IHADCS10+8 00102000 DCBMRFG EQU DCBIMAGE 00103000 DCBECBLT EQU IHADCS10+12 00104000 DCBHDR EQU DCBECBLT 00105000 DCBMRIND EQU DCBHDR 00106000 DCBMRFLG EQU IHADCS10+16 00107000 IHADCS11 EQU 0 00108000 DCBRELB EQU IHADCS11 00109000 DCBREL EQU DCBRELB+1 00110000 DCBBUFCB EQU IHADCS11+4 00111000 DCBDSORG EQU IHADCS11+10 00112000 DCBDSRG1 EQU DCBDSORG 00113000 DCBDSRG2 EQU DCBDSORG+1 00114000 DCBIOBAD EQU IHADCS11+12 00115000 DCBODEB EQU DCBIOBAD 00116000 DCBLNP EQU DCBODEB 00117000 DCBQSLM EQU DCBLNP 00118000 DCBIOBAA EQU DCBODEB+1 00119000 IHADCS50 EQU 0 00120000 DCBSVCXL EQU IHADCS50 00121000 DCBEODAD EQU IHADCS50+4 00122000 DCBBFALN EQU DCBEODAD 00123000 DCBHIARC EQU DCBBFALN 00124000 DCBBFTEK EQU DCBHIARC 00125000 DCBBFT EQU DCBBFTEK 00126000 DCBEXLST EQU IHADCS50+8 00127000 DCBRECFM EQU DCBEXLST 00128000 DCBRECLA EQU DCBRECFM 00129000 IHADCS24 EQU 0 00130000 DCBOFLGS EQU IHADCS24+8 00131000 DCBOFLWR EQU DCBOFLGS 00132000 DCBIFLG EQU IHADCS24+9 00133000 DCBMACR EQU IHADCS24+10 00134000 DCBMACR1 EQU DCBMACR 00135000 DCBMRFE EQU DCBMACR1 00136000 DCBMRGET EQU DCBMRFE 00137000 DCBMRAPG EQU DCBMACR1 00138000 DCBMRRD EQU DCBMRAPG 00139000 DCBMRCI EQU DCBMACR1 00140000 DCBMRMVG EQU DCBMRCI 00141000 DCBMRLCG EQU DCBMACR1 00142000 DCBMRABC EQU DCBMACR1 00143000 DCBMRPT1 EQU DCBMRABC 00144000 DCBMRSBG EQU DCBMRPT1 00145000 DCBMRCRL EQU DCBMACR1 00146000 DCBMRCHK EQU DCBMRCRL 00147000 DCBMRRDX EQU DCBMRCHK 00148000 DCBMRDMG EQU DCBMACR1 00149000 DCBMACR2 EQU DCBMACR+1 00150000 DCBMRPUT EQU DCBMACR2 00151000 DCBMRWRT EQU DCBMACR2 00152000 DCBMRMVP EQU DCBMACR2 00153000 DCBMR5WD EQU DCBMACR2 00154000 DCBMRLDM EQU DCBMR5WD 00155000 DCBMRLCP EQU DCBMRLDM 00156000 DCBMR4WD EQU DCBMACR2 00157000 DCBMRPT2 EQU DCBMR4WD 00158000 DCBMRTMD EQU DCBMRPT2 00159000 DCBMR3WD EQU DCBMACR2 00160000 DCBMRCTL EQU DCBMR3WD 00161000 DCBMRSTK EQU DCBMRCTL 00162000 DCBMR1WD EQU DCBMACR2 00163000 DCBMRSWA EQU DCBMR1WD 00164000 DCBMRDMD EQU DCBMRSWA 00165000 IHADCS25 EQU 0 00166000 DCBMACRF EQU IHADCS25+2 00167000 DCBMACF1 EQU DCBMACRF 00168000 DCBMFFE EQU DCBMACF1 00169000 DCBMFGET EQU DCBMFFE 00170000 DCBMFAPG EQU DCBMACF1 00171000 DCBMFRD EQU DCBMFAPG 00172000 DCBMFCI EQU DCBMACF1 00173000 DCBMFMVG EQU DCBMFCI 00174000 DCBMFLCG EQU DCBMACF1 00175000 DCBMFABC EQU DCBMACF1 00176000 DCBMFPT1 EQU DCBMFABC 00177000 DCBMFSBG EQU DCBMFPT1 00178000 DCBMFCRL EQU DCBMACF1 00179000 DCBMFCHK EQU DCBMFCRL 00180000 DCBMFDMG EQU DCBMACF1 00181000 DCBMACF2 EQU DCBMACRF+1 00182000 DCBMFPUT EQU DCBMACF2 00183000 DCBMFWRT EQU DCBMACF2 00184000 DCBMFMVP EQU DCBMACF2 00185000 DCBMF5WD EQU DCBMACF2 00186000 DCBMFLDM EQU DCBMF5WD 00187000 DCBMFLCP EQU DCBMFLDM 00188000 DCBMF4WD EQU DCBMACF2 00189000 DCBMFPT2 EQU DCBMF4WD 00190000 DCBMFTMD EQU DCBMFPT2 00191000 DCBMF3WD EQU DCBMACF2 00192000 DCBMFCTL EQU DCBMF3WD 00193000 DCBMFSTK EQU DCBMFCTL 00194000 DCBMF1WD EQU DCBMACF2 00195000 DCBMFSWA EQU DCBMF1WD 00196000 DCBMFDMD EQU DCBMFSWA 00197000 DCBDEBAD EQU IHADCS25+4 00198000 DCBIFLGS EQU DCBDEBAD 00199000 IHADCS26 EQU 0 00200000 DCBWRITE EQU IHADCS26 00201000 IHADCS27 EQU 0 00202000 DCBGET EQU IHADCS27 00203000 IHADCS36 EQU 0 00204000 DCBGERR EQU IHADCS36 00205000 DCBPERR EQU DCBGERR 00206000 DCBCHECK EQU DCBPERR 00207000 DCBOPTCD EQU DCBCHECK 00208000 DCBOPTH EQU DCBOPTCD 00209000 DCBOPTO EQU DCBOPTH 00210000 DCBOPTZ EQU DCBOPTCD 00211000 DCBGERRA EQU DCBCHECK+1 00212000 DCBPERRA EQU DCBGERRA 00213000 DCBSYNAD EQU IHADCS36+4 00214000 DCBCIND1 EQU IHADCS36+8 00215000 DCBCIND2 EQU IHADCS36+9 00216000 DCBIOBA EQU IHADCS36+16 00217000 DCBCICB EQU IHADCS36+20 00218000 IHADCS52 EQU 0 00219000 DCBDIRCT EQU IHADCS52 00220000 DCBQSWS EQU DCBDIRCT 00221000 DCBUSASI EQU DCBQSWS 00222000 DCBQADFS EQU DCBUSASI 00223000 DCBBUFOF EQU DCBDIRCT+1 00224000 IHADCS37 EQU 0 00225000 DCBFLAG1 EQU IHADCS37 00226000 IHADCS38 EQU 0 00227000 DCBEOBR EQU IHADCS38 00228000 DCBPOINT EQU IHADCS38+12 00229000 DCBCNTRL EQU DCBPOINT 00230000 IHADCS40 EQU 0 00231000 DCBEOBAD EQU IHADCS40 00232000 DCBCCCW EQU IHADCS40+4 00233000 DCBRECAD EQU DCBCCCW 00234000 DCBRECBT EQU DCBRECAD 00235000 DCBRCREL EQU DCBRECBT 00236000 @NM00026 EQU IHADCS40+12 00237000 DCBEROPT EQU @NM00026 00238000 PLIST EQU 0 00239000 FUNCTION EQU PLIST 00240000 CCW EQU 0 00241000 CCWOPCDE EQU CCW 00242000 IOBORG01 EQU IOBPREFX+8 00243000 IOBNIOBA EQU IOBORG01 00244000 IOBNFLG1 EQU IOBNIOBA 00245000 IOBORG02 EQU IOBPREFX+8 00246000 IOBDQADA EQU IOBORG02 00247000 IOBDEQIN EQU IOBDQADA 00248000 IOBORG03 EQU IOBPREFX+12 00249000 IOBORG04 EQU IOBINCAM 00250000 IOBORG12 EQU IOBINCAM 00251000 IOBFL4 EQU IOBORG12 00252000 IOBEXTEN EQU IOBSTDRD+32 00253000 IOBSEEK EQU IOBEXTEN 00254000 IOBBB EQU IOBSEEK+1 00255000 IOBCC EQU IOBSEEK+3 00256000 IOBHH EQU IOBSEEK+5 00257000 IOBORG05 EQU IOBEXTEN 00258000 IOBORG06 EQU IOBEXTEN 00259000 IOBNXTPT EQU IOBORG06+4 00260000 IOBSTATA EQU IOBNXTPT 00261000 IOBORG07 EQU IOBEXTEN+8 00262000 W1OEXTEN EQU IOBORG07 00263000 IOBORG08 EQU IOBEXTEN+8 00264000 IOBINDCT EQU IOBORG08+4 00265000 IOBUNSQR EQU IOBORG08+5 00266000 IOBFCHAD EQU IOBORG08+8 00267000 IOBORG09 EQU IOBEXTEN+8 00268000 IOBDPLAD EQU IOBORG09+4 00269000 IOBDTYPE EQU IOBORG09+8 00270000 IOBDTYP2 EQU IOBORG09+9 00271000 IOBDSTAT EQU IOBORG09+10 00272000 IOBSTAT1 EQU IOBDSTAT 00273000 IOBORG10 EQU IOBEXTEN+8 00274000 IOBSEEK2 EQU IOBORG10 00275000 IOBORG11 EQU IOBEXTEN 00276000 IOBERCT EQU IOBORG11 00277000 IOBUCBXV EQU IOBERCT 00278000 IOBNAME EQU IOBORG11+4 00279000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00280000 IOBCSWSV EQU IOBORG11+17 00281000 IOBSENSV EQU IOBORG11+16 00282000 IOBRCD EQU IOBORG11+12 00283000 IOBMDREC EQU IOBORG11+8 00284000 IOBNAMEA EQU IOBNAME+1 00285000 IOBNAMSZ EQU IOBNAME 00286000 IOBERCTA EQU IOBERCT+1 00287000 IOBRTYPE EQU IOBUCBXV 00288000 IOBRDCHP EQU IOBORG10+20 00289000 IOBNEXTA EQU IOBORG10+16 00290000 IOBREADA EQU IOBORG10+12 00291000 IOBBUFC EQU IOBORG10+8 00292000 IOBSK2R EQU IOBSEEK2+7 00293000 IOBSK2HH EQU IOBSEEK2+5 00294000 IOBSK2CC EQU IOBSEEK2+3 00295000 IOBSK2BB EQU IOBSEEK2+1 00296000 IOBSK2M EQU IOBSEEK2 00297000 IOBCHNPR EQU IOBORG09+40 00298000 IOBDNCRF EQU IOBORG09+32 00299000 IOBRSV35 EQU IOBORG09+24 00300000 IOBDQPTR EQU IOBORG09+20 00301000 IOBRSV34 EQU IOBORG09+18 00302000 IOBDBYTN EQU IOBORG09+16 00303000 IOBDCPND EQU IOBORG09+12 00304000 IOBSTAT2 EQU IOBDSTAT+1 00305000 IOBSIORT EQU IOBSTAT1 00306000 IOBADDVU EQU IOBSTAT1 00307000 IOBBUFF EQU IOBSTAT1 00308000 IOBENQUE EQU IOBSTAT1 00309000 IOBPASS2 EQU IOBSTAT1 00310000 IOBSYNCH EQU IOBSTAT1 00311000 IOBNEWVL EQU IOBSTAT1 00312000 IOBABNRM EQU IOBSTAT1 00313000 IOBRELEX EQU IOBDTYP2 00314000 IOBADDTY EQU IOBDTYP2 00315000 IOBTYPE EQU IOBDTYP2 00316000 IOBRQUST EQU IOBDTYP2 00317000 IOBSUFFX EQU IOBDTYP2 00318000 IOBSBLKL EQU IOBDTYP2 00319000 IOBSKEY EQU IOBDTYP2 00320000 IOBRELBL EQU IOBDTYPE 00321000 IOBRDEXC EQU IOBDTYPE 00322000 IOBDYNBF EQU IOBDTYPE 00323000 IOBACTAD EQU IOBDTYPE 00324000 IOBFDBCK EQU IOBDTYPE 00325000 IOBEXTSC EQU IOBDTYPE 00326000 IOBOVFLO EQU IOBDTYPE 00327000 IOBVERFY EQU IOBDTYPE 00328000 IOBDPLB EQU IOBDPLAD+1 00329000 IOBDAYLI EQU IOBDPLAD 00330000 IOBDIOBS EQU IOBORG09+2 00331000 IOBDBYTR EQU IOBORG09 00332000 IOBBCHAD EQU IOBORG08+12 00333000 IOBFCHNB EQU IOBFCHAD+1 00334000 IOBCOUNT EQU IOBFCHAD 00335000 IOBASYN EQU IOBORG08+7 00336000 IOBAPP EQU IOBORG08+6 00337000 IOBRSV32 EQU IOBUNSQR 00338000 IOBRSV31 EQU IOBUNSQR 00339000 IOBRSV30 EQU IOBUNSQR 00340000 IOBKNRWR EQU IOBUNSQR 00341000 IOBKNWR EQU IOBUNSQR 00342000 IOBNTAV2 EQU IOBUNSQR 00343000 IOBNTAV1 EQU IOBUNSQR 00344000 IOBCPBSY EQU IOBUNSQR 00345000 IOBCHNNL EQU IOBINDCT 00346000 IOBRSV29 EQU IOBINDCT 00347000 IOBRSV28 EQU IOBINDCT 00348000 IOBRSV27 EQU IOBINDCT 00349000 IOBKEYAD EQU IOBINDCT 00350000 IOBOVPTR EQU IOBINDCT 00351000 IOBUNSCH EQU IOBINDCT 00352000 IOBDEQCP EQU IOBINDCT 00353000 IOBCCWAD EQU IOBORG08 00354000 W1IEXTEN EQU W1OEXTEN 00355000 IOBCCW EQU IOBORG06+8 00356000 IOBNXTPB EQU IOBNXTPT+1 00357000 IOBRSV26 EQU IOBSTATA 00358000 IOBRSV25 EQU IOBSTATA 00359000 IOBRSV24 EQU IOBSTATA 00360000 IOBRSV23 EQU IOBSTATA 00361000 IOBRSV22 EQU IOBSTATA 00362000 IOBRSV21 EQU IOBSTATA 00363000 IOBRSV20 EQU IOBSTATA 00364000 IOBAVLFL EQU IOBSTATA 00365000 IOBRSV37 EQU IOBORG06+1 00366000 IOBUCBXG EQU IOBORG06 00367000 IOBCPA EQU IOBORG05+32 00368000 IOBERINF EQU IOBORG05+16 00369000 IOBERCCW EQU IOBORG05+8 00370000 IOBSNDPT EQU IOBORG05+7 00371000 IOBRCVPT EQU IOBORG05+6 00372000 IOBWORK EQU IOBORG05+1 00373000 IOBUCBX EQU IOBORG05 00374000 IOBR EQU IOBSEEK+7 00375000 IOBHH2 EQU IOBHH+1 00376000 IOBHH1 EQU IOBHH 00377000 IOBCC2 EQU IOBCC+1 00378000 IOBCC1 EQU IOBCC 00379000 IOBBB2 EQU IOBBB+1 00380000 IOBBB1 EQU IOBBB 00381000 IOBM EQU IOBSEEK 00382000 IOBRSV46 EQU IOBFL4 00383000 IOBRSV47 EQU IOBFL4 00384000 IOBENT EQU IOBFL4 00385000 IOBEQP EQU IOBFL4 00386000 IOBBUS EQU IOBFL4 00387000 IOBDCK EQU IOBFL4 00388000 IOBREJ EQU IOBFL4 00389000 IOBOVR EQU IOBFL4 00390000 IOBCRILC EQU IOBORG04+1 00391000 IOBCRDCC EQU IOBORG04 00392000 IOBGQECB EQU IOBORG03 00393000 IOBSWAP EQU IOBORG02+4 00394000 IOBDQADB EQU IOBDQADA+1 00395000 IOBRSV13 EQU IOBDEQIN 00396000 IOBRSV12 EQU IOBDEQIN 00397000 IOBRSV11 EQU IOBDEQIN 00398000 IOBRSV10 EQU IOBDEQIN 00399000 IOBRSV09 EQU IOBDEQIN 00400000 IOBRSV08 EQU IOBDEQIN 00401000 IOBRSV07 EQU IOBDEQIN 00402000 IOBDEQ EQU IOBDEQIN 00403000 IOBNECB EQU IOBORG01+4 00404000 IOBNIOBB EQU IOBNIOBA+1 00405000 IOBFIRST EQU IOBNFLG1 00406000 IOBUPERR EQU IOBNFLG1 00407000 IOBSPAN EQU IOBNFLG1 00408000 IOBBKSPC EQU IOBNFLG1 00409000 IOBUPDAT EQU IOBNFLG1 00410000 IOBREAD EQU IOBNFLG1 00411000 IOBWRITE EQU IOBNFLG1 00412000 IOBPRTOV EQU IOBNFLG1 00413000 @NM00031 EQU CCW+1 00414000 @NM00030 EQU PLIST+1 00415000 DCBEOB EQU IHADCS40+20 00416000 DCBPRECL EQU IHADCS40+18 00417000 @NM00029 EQU IHADCS40+16 00418000 @NM00028 EQU @NM00026+1 00419000 @NM00027 EQU DCBEROPT 00420000 DCBERABE EQU DCBEROPT 00421000 DCBERSKP EQU DCBEROPT 00422000 DCBERACC EQU DCBEROPT 00423000 @NM00025 EQU IHADCS40+10 00424000 @NM00024 EQU IHADCS40+9 00425000 @NM00023 EQU IHADCS40+8 00426000 DCBRECA EQU DCBRECAD+1 00427000 @NM00022 EQU DCBRECBT 00428000 DCBRCFGT EQU DCBRCREL 00429000 DCBRCTRU EQU DCBRCREL 00430000 DCBLCCW EQU DCBEOBAD 00431000 DCBNOTE EQU DCBCNTRL 00432000 DCBLRECL EQU IHADCS38+10 00433000 @NM00021 EQU IHADCS38+8 00434000 DCBEOBW EQU IHADCS38+4 00435000 DCBEOBRA EQU DCBEOBR+1 00436000 DCBNCP EQU DCBEOBR 00437000 @NM00020 EQU DCBFLAG1 00438000 DCBSTFLS EQU DCBFLAG1 00439000 DCBSTQCK EQU DCBFLAG1 00440000 DCBDIRCQ EQU DCBBUFOF 00441000 DCBQSTRU EQU DCBUSASI 00442000 @NM00019 EQU DCBUSASI 00443000 DCBQADF3 EQU DCBQADFS 00444000 DCBQADF2 EQU DCBQADFS 00445000 DCBQADF1 EQU DCBQADFS 00446000 DCBBLBP EQU DCBUSASI 00447000 @NM00018 EQU DCBUSASI 00448000 DCBCICBA EQU DCBCICB+1 00449000 @NM00017 EQU DCBCICB 00450000 DCBOFFSW EQU IHADCS36+15 00451000 DCBOFFSR EQU IHADCS36+14 00452000 DCBWCPL EQU IHADCS36+13 00453000 DCBWCPO EQU IHADCS36+12 00454000 DCBBLKSI EQU IHADCS36+10 00455000 DCBCNQSM EQU DCBCIND2 00456000 DCBCNFEO EQU DCBCIND2 00457000 DCBCNCHS EQU DCBCIND2 00458000 DCBCNBFP EQU DCBCIND2 00459000 DCBCNIOE EQU DCBCIND2 00460000 DCBCNCLO EQU DCBCIND2 00461000 DCBCNWRO EQU DCBCIND2 00462000 DCBCNSTO EQU DCBCIND2 00463000 DCBCNEXB EQU DCBCIND1 00464000 @NM00016 EQU DCBCIND1 00465000 DCBCNBRM EQU DCBCIND1 00466000 @NM00015 EQU DCBCIND1 00467000 DCBCNEVA EQU DCBCIND1 00468000 DCBCNEVB EQU DCBCIND1 00469000 DCBCNSRD EQU DCBCIND1 00470000 DCBCNTOV EQU DCBCIND1 00471000 DCBSYNA EQU DCBSYNAD+1 00472000 DCBIOBL EQU DCBSYNAD 00473000 DCBCHCKA EQU DCBPERRA 00474000 @NM00014 EQU DCBOPTCD 00475000 DCBOPTT EQU DCBOPTCD 00476000 DCBSRCHD EQU DCBOPTZ 00477000 DCBOPTQ EQU DCBOPTCD 00478000 DCBBCKPT EQU DCBOPTO 00479000 DCBOPTC EQU DCBOPTCD 00480000 DCBOPTU EQU DCBOPTCD 00481000 DCBOPTW EQU DCBOPTCD 00482000 DCBPUT EQU DCBGET 00483000 DCBREAD EQU DCBWRITE 00484000 DCBDEBA EQU DCBDEBAD+1 00485000 @NM00013 EQU DCBIFLGS 00486000 DCBIFIOE EQU DCBIFLGS 00487000 DCBIFPCT EQU DCBIFLGS 00488000 DCBIFEC EQU DCBIFLGS 00489000 DCBMFSTI EQU DCBMFDMD 00490000 DCBMFAWR EQU DCBMFSTK 00491000 DCBMFUIP EQU DCBMFTMD 00492000 DCBMFIDW EQU DCBMFLCP 00493000 DCBMFWRK EQU DCBMFMVP 00494000 DCBMFRDQ EQU DCBMFWRT 00495000 DCBMFGTQ EQU DCBMFPUT 00496000 DCBMFSTL EQU DCBMACF2 00497000 DCBMFCK EQU DCBMFDMG 00498000 DCBMFRDX EQU DCBMFCHK 00499000 DCBMFDBF EQU DCBMFSBG 00500000 DCBMFRDI EQU DCBMFLCG 00501000 DCBMFRDK EQU DCBMFMVG 00502000 DCBMFWRQ EQU DCBMFRD 00503000 DCBMFPTQ EQU DCBMFGET 00504000 DCBMFECP EQU DCBMACF1 00505000 DCBTIOT EQU IHADCS25 00506000 DCBMRSTI EQU DCBMRDMD 00507000 DCBMRAWR EQU DCBMRSTK 00508000 DCBMRUIP EQU DCBMRTMD 00509000 DCBMRIDW EQU DCBMRLCP 00510000 DCBMRWRK EQU DCBMRMVP 00511000 DCBMRRDQ EQU DCBMRWRT 00512000 DCBMRGTQ EQU DCBMRPUT 00513000 DCBMRSTL EQU DCBMACR2 00514000 DCBMRCK EQU DCBMRDMG 00515000 DCBPGFXA EQU DCBMRRDX 00516000 DCBMRDBF EQU DCBMRSBG 00517000 DCBMRRDI EQU DCBMRLCG 00518000 DCBMRRDK EQU DCBMRMVG 00519000 DCBMRWRQ EQU DCBMRRD 00520000 DCBMRPTQ EQU DCBMRGET 00521000 DCBMRECP EQU DCBMACR1 00522000 @NM00012 EQU DCBIFLG 00523000 DCBIBIOE EQU DCBIFLG 00524000 DCBIBPCT EQU DCBIFLG 00525000 DCBIBEC EQU DCBIFLG 00526000 DCBOFIOF EQU DCBOFLGS 00527000 DCBOFUEX EQU DCBOFLGS 00528000 DCBOFTM EQU DCBOFLGS 00529000 DCBOFPPC EQU DCBOFLGS 00530000 DCBOFOPN EQU DCBOFLGS 00531000 DCBOFEOV EQU DCBOFLGS 00532000 DCBOFLRB EQU DCBOFLGS 00533000 DCBOFIOD EQU DCBOFLWR 00534000 DCBDDNAM EQU IHADCS24 00535000 DCBEXLSA EQU DCBEXLST+1 00536000 DCBRECKL EQU DCBRECFM 00537000 DCBRECCC EQU DCBRECFM 00538000 DCBRECSB EQU DCBRECFM 00539000 DCBRECBR EQU DCBRECFM 00540000 DCBRECTO EQU DCBRECLA 00541000 DCBRECL EQU DCBRECLA 00542000 DCBEODA EQU DCBEODAD+1 00543000 DCBBFA EQU DCBBFTEK 00544000 DCBH0 EQU DCBBFTEK 00545000 DCBBFTKD EQU DCBBFTEK 00546000 DCBBFTE EQU DCBBFT 00547000 DCBBFTKR EQU DCBBFT 00548000 DCBBFTS EQU DCBBFT 00549000 DCBH1 EQU DCBBFTEK 00550000 DCBSVCXA EQU DCBSVCXL+1 00551000 @NM00011 EQU DCBSVCXL 00552000 DCBODEBA EQU DCBIOBAA 00553000 @NM00010 EQU DCBQSLM 00554000 DCBUPDBT EQU DCBQSLM 00555000 DCBUPDCM EQU DCBQSLM 00556000 DCB1DVDS EQU DCBQSLM 00557000 @NM00009 EQU DCBDSRG2 00558000 DCBACBM EQU DCBDSRG2 00559000 @NM00008 EQU DCBDSRG2 00560000 DCBDSGTQ EQU DCBDSRG2 00561000 DCBDSGTX EQU DCBDSRG2 00562000 DCBDSGGS EQU DCBDSRG2 00563000 DCBDSGU EQU DCBDSRG1 00564000 DCBDSGPO EQU DCBDSRG1 00565000 DCBDSGMQ EQU DCBDSRG1 00566000 DCBDSGCQ EQU DCBDSRG1 00567000 DCBDSGCX EQU DCBDSRG1 00568000 DCBDSGDA EQU DCBDSRG1 00569000 DCBDSGPS EQU DCBDSRG1 00570000 DCBDSGIS EQU DCBDSRG1 00571000 DCBBUFL EQU IHADCS11+8 00572000 DCBBUFCA EQU DCBBUFCB+1 00573000 DCBBUFNO EQU DCBBUFCB 00574000 DCBDEVT EQU DCBREL 00575000 DCBKEYLE EQU DCBRELB 00576000 @NM00007 EQU IHADCS10+19 00577000 DCBAPPIN EQU IHADCS10+18 00578000 @NM00006 EQU IHADCS10+17 00579000 DCBMRUE EQU DCBMRFLG 00580000 DCBMRDWT EQU DCBMRFLG 00581000 DCBMRPCC EQU DCBMRFLG 00582000 DCBMRDR EQU DCBMRFLG 00583000 DCBMRDRU EQU DCBMRFLG 00584000 DCBMRDBG EQU DCBMRFLG 00585000 DCBMRSCC EQU DCBMRFLG 00586000 DCBECBLA EQU DCBHDR+1 00587000 DCBMRERS EQU DCBMRIND 00588000 DCBMRERP EQU DCBMRIND 00589000 DCBMRPLS EQU DCBMRIND 00590000 DCBMRPLO EQU DCBMRIND 00591000 DCBMRSCU EQU DCBMRIND 00592000 DCBMRDCT EQU DCBMRIND 00593000 DCBIMAGA EQU DCBIMAGE+1 00594000 @NM00005 EQU DCBMRFG 00595000 DCBMRBCT EQU DCBMRFG 00596000 DCBSSADA EQU DCBIMG+1 00597000 @NM00004 EQU DCBIMG 00598000 @NM00003 EQU IHADCS10 00599000 DCBWTOIA EQU DCBWTOID+1 00600000 @NM00002 EQU DCBWTOID 00601000 @NM00001 EQU IHADCB 00602000 IOBERRCT EQU IOBSTDRD+30 00603000 IOBRSV19 EQU IOBINCAM+1 00604000 IOBOLTST EQU IOBBTAMF 00605000 IOBRFTMG EQU IOBBTAMF 00606000 IOBRSV17 EQU IOBBTAMF 00607000 IOBRSV16 EQU IOBBTAMF 00608000 IOBRSV15 EQU IOBBTAMF 00609000 IOBRSV14 EQU IOBBTAMF 00610000 IOBINUSE EQU IOBBTAMF 00611000 IOBPRMER EQU IOBBTAMF 00612000 IOBRSTRB EQU IOBRESTR+1 00613000 IOBREPOS EQU IOBRESTR 00614000 IOBDCBPB EQU IOBDCBPT+1 00615000 IOBRSV44 EQU IOBFLAG4 00616000 IOBRSV43 EQU IOBFLAG4 00617000 IOBRSV42 EQU IOBFLAG4 00618000 IOBRSV41 EQU IOBFLAG4 00619000 IOBRSV40 EQU IOBFLAG4 00620000 IOBRSV39 EQU IOBFLAG4 00621000 IOBRSV38 EQU IOBFLAG4 00622000 IOBGDPOL EQU IOBFLAG4 00623000 IOBSTRTB EQU IOBSTART+1 00624000 IOBSIOCC EQU IOBSTART 00625000 IOBSTBYT EQU IOBIOCSW+3 00626000 IOBCMDA EQU IOBIOCSW 00627000 IOBLOG EQU IOBFL3 00628000 IOBICL EQU IOBFL3 00629000 IOBMSG EQU IOBFL3 00630000 IOBCNC EQU IOBFL3 00631000 IOBACU EQU IOBFL3 00632000 IOBCDC EQU IOBFL3 00633000 IOBICC EQU IOBFL3 00634000 IOBCCC EQU IOBFL3 00635000 IOBECBPB EQU IOBECBPT+1 00636000 IOBECBCC EQU IOBECBPT 00637000 IOBS1B7 EQU IOBSENS1 00638000 IOBS1B6 EQU IOBSENS1 00639000 IOBS1B5 EQU IOBSENS1 00640000 IOBS1B4 EQU IOBSENS1 00641000 IOBS1B3 EQU IOBSENS1 00642000 IOBS1B2 EQU IOBSENS1 00643000 IOBS1B1 EQU IOBSENS1 00644000 IOBS1B0 EQU IOBSENS1 00645000 IOBSNSC9 EQU IOBS0B7 00646000 IOBS0B6 EQU IOBSENS0 00647000 IOBS0B5 EQU IOBSENS0 00648000 IOBS0B4 EQU IOBSENS0 00649000 IOBS0B3 EQU IOBSENS0 00650000 IOBS0B2 EQU IOBSENS0 00651000 IOBS0B1 EQU IOBSENS0 00652000 IOBS0B0 EQU IOBSENS0 00653000 IOBPNCH EQU IOBFLAG2 00654000 IOBSTATO EQU IOBFLAG2 00655000 IOBSKUPD EQU IOBFLAG2 00656000 IOBALTTR EQU IOBFLAG2 00657000 IOBRRT2 EQU IOBRDHA0 00658000 IOBRRT3 EQU IOBPURGE 00659000 IOBSENSE EQU IOBFLAG2 00660000 IOBHALT EQU IOBFLAG2 00661000 IOBSPSVC EQU IOBRSTRT 00662000 IOBUNREL EQU IOBFLAG1 00663000 IOBIOERR EQU IOBFLAG1 00664000 IOBFCREX EQU IOBCYCCK 00665000 IOBRPSTN EQU IOBFLAG1 00666000 IOBERRTN EQU IOBFLAG1 00667000 IOBCMDCH EQU IOBFLAG1 00668000 IOBDATCH EQU IOBFLAG1 00669000 IOBCNOPA EQU IOBPREFX+12 00670000 IOBCICB EQU IOBPREFX+8 00671000 IOBCECB EQU IOBPREFX+4 00672000 IOBCONOP EQU IOBPREFX+3 00673000 IOBCINOP EQU IOBPREFX+2 00674000 IOBRSV05 EQU IOBPREFX+1 00675000 IOBPCI EQU IOBCFLG1 00676000 IOBRSTCH EQU IOBCFLG1 00677000 IOBABAPP EQU IOBCFLG1 00678000 IOBPTST EQU IOBCFLG1 00679000 IOBRSV04 EQU IOBCFLG1 00680000 IOBRSV03 EQU IOBCFLG1 00681000 IOBRSV02 EQU IOBCFLG1 00682000 IOBRSV01 EQU IOBCFLG1 00683000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00684000 @RF00041 EQU @EL00001 00685000 @RC00039 EQU @EL00001 00686000 @ENDDATA EQU * 00687000 END IGG019UO,(C'PL/S-II',0402,73136) 00688000