TITLE 'IGG019UM, 3890 SYNC MODULE *00001000 ' 00002000 IGG019UM CSECT , 0001 00003000 @PROLOG BALR @06,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@06 0001 00006000 STM RETR,ENTR,12(SAVR) 00007000 * IOBAR=DCBIOBA; /* REG3 POINTS TO IOB */ 00008000 L IOBAR,DCBIOBA+52(,DCBPTR) 0045 00009000 * GEN(LA IOBSTPTR,8(IOBAR)); /* ADDR OF IOB STANDARD */ 00010000 LA IOBSTPTR,8(IOBAR) 00011000 * MRWRITE='0'B; /* TURN WRITE FLAG OFF */ 00012000 NI MRWRITE(DCBPTR),B'01111111' 0047 00013000 * IMGEOF=OFF; /* SET IMAG FILE EOF OFF @ZA04468*/ 00014000 NI IMGEOF(DCBPTR),B'01111111' 0048 00015000 * RPARA1=ADDR(CCWEND); /* REG1 PT TO END CCW CHAIN */ 00016000 L RPARA1,IOBSTART(,IOBSTPTR) 0049 00017000 LA RPARA1,CCWEND(,RPARA1) 0049 00018000 * RPARA1=RPARA1+DCBBLKSI-TWELVE; /* HEADER OF LAST IMAGE */ 00019000 LR @00,RPARA1 0050 00020000 AH @00,DCBBLKSI+52(,DCBPTR) 0050 00021000 SL @00,@CF00754 0050 00022000 LR RPARA1,@00 0050 00023000 * IF IMGPROC=ON THEN /* IMAGE PROCESS ACTIVE @ZA04477*/ 00024000 TM IMGPROC(DCBPTR),B'00000001' 0051 00025000 BNO @RF00051 0051 00026000 * GEN( OC IMGFLGS(1,DCBPTR),0(RPARA1));/* IMAGE EOF IND 0052 00027000 * @ZA04468*/ 00028000 OC IMGFLGS(1,DCBPTR),0(RPARA1) 00029000 *A1: 0053 00030000 * IF CMPCODE=IOWAIT THEN /* TEST COMPLETION */ 00031000 @RF00051 DS 0H 0053 00032000 A1 L @01,DCBIOBA+52(,DCBPTR) 0053 00033000 CLI CMPCODE+4(@01),X'00' 0053 00034000 BNE @RF00053 0053 00035000 * DO; /* NOT COMPLETE @Y30GECD*/ 00036000 * IF DCBQSMEX=ZERO4 THEN /* IS A USER EXIT SPECIFIED 0055 00037000 * @Y30GECD*/ 00038000 L @15,DCBQSMEX(,DCBPTR) 0055 00039000 LTR @15,@15 0055 00040000 BNZ @RF00055 0055 00041000 * GEN(WAIT ECB=4(IOBAR)); /* NO, ISSUE WAIT MACRO */ 00042000 WAIT ECB=4(IOBAR) 00043000 * ELSE 0057 00044000 * DO; /* AN EXIT IS SPECIFIED @Y30GECD*/ 00045000 B @RC00055 0057 00046000 @RF00055 DS 0H 0058 00047000 * RPARA1=ADDR(ECB); /* REG1 = ECB ADDRESS @Y30GECD*/ 00048000 LA RPARA1,4 0058 00049000 AL RPARA1,DCBIOBA+52(,DCBPTR) 0058 00050000 * ENTR=DCBQSMEX; /* REG15 = ADDR OF USER EXIT 0059 00051000 * @Y30GECD*/ 00052000 L ENTR,DCBQSMEX(,DCBPTR) 0059 00053000 * GEN( BALR 14,15); /* GO TO USERS EXIT @Y30GECD*/ 00054000 BALR 14,15 00055000 * IF CMPCODE=IOWAIT THEN /* TEST IO COMPLETE @Y30GECD*/ 00056000 L @01,DCBIOBA+52(,DCBPTR) 0061 00057000 CLI CMPCODE+4(@01),X'00' 0061 00058000 BNE @RF00061 0061 00059000 * GEN(WAIT ECB=4(IOBAR));/* NOT COMPLETE - WAIT @Y30GECD*/ 00060000 WAIT ECB=4(IOBAR) 00061000 * END; /* @Y30GECD*/ 00062000 @RF00061 DS 0H 0064 00063000 * END; /* @Y30GECD*/ 00064000 @RC00055 DS 0H 0065 00065000 *A2: 0065 00066000 * IF CMPCODE^=CMPNOER THEN /* COMPLETE WITH ERROR */ 00067000 @RF00053 DS 0H 0065 00068000 A2 L @01,DCBIOBA+52(,DCBPTR) 0065 00069000 CLC CMPCODE+4(1,@01),CMPNOER 0065 00070000 BE @RF00065 0065 00071000 * DO; 0066 00072000 * 0066 00073000 */********************************************************************/ 00074000 */* HANDLE ERROR CONDITIONS */ 00075000 */********************************************************************/ 00076000 * 0067 00077000 *B1: 0067 00078000 * RPARA1=DCBPTR; /* DCB ADDR IS IN R1 FOR EOV */ 00079000 B1 LR RPARA1,DCBPTR 0067 00080000 * RPARA0=IOBAR; /* IOB ADDR IN REG 0 */ 00081000 LR RPARA0,IOBAR 0068 00082000 * GEN CODE; 0069 00083000 * /*@YM00625*/ 00084000 STM RPARA0,RPARA1,64(SAVR) SAVE DCB AND IOB 00085000 EOV 0(1) SVC 55 00086000 LTR ENTR,ENTR PERMANENT ERROR AND SYNAD 00087000 BZ A1 NO,WAIT ON ECB 00088000 BALR RETR,ENTR YES,GO TO USERS SYNAD ROUTINE 00089000 LM RPARA0,RPARA1,64(SAVR) RESTORE DCB AND IOB ADDR 00090000 EOV 0(1) SVC 55 00091000 * GOTO A1; /* RETEST ECB @YM00625*/ 00092000 B A1 0070 00093000 * END; 0071 00094000 * ELSE 0072 00095000 * DO; /* NO, PROCESS ORMALLY */ 00096000 @RF00065 DS 0H 0073 00097000 */********************************************************************/ 00098000 */* ECB COMPLETE */ 00099000 */********************************************************************/ 00100000 * 0073 00101000 *CONE: 0073 00102000 * USHDR=ZERO; /* ZERO OUT HEADER @YM00645*/ 00103000 CONE L @01,DCBHDR(,DCBPTR) 0073 00104000 MVC USHDR(12,@01),ZERO 0073 00105000 * IF UXFLG=ON|IOBS0B1=ON|IOBS0B6=ON THEN/* UX,UC @YM00645*/ 00106000 TM UXFLG(DCBPTR),B'00000001' 0074 00107000 BO @RT00074 0074 00108000 TM IOBS0B1(IOBSTPTR),B'01000010' 0074 00109000 BZ @RF00074 0074 00110000 @RT00074 DS 0H 0075 00111000 * DO; /* YES */ 00112000 * HDRSENS0=IOBSENS0; /* SENSE BYTE 1 INTO HDR */ 00113000 L @01,DCBHDR(,DCBPTR) 0076 00114000 MVC HDRSENS0(1,@01),IOBSENS0(IOBSTPTR) 0076 00115000 * HDRSENS1=IOBSENS1; /* SENSE BYTE 2 INTO HDR */ 00116000 L @01,DCBHDR(,DCBPTR) 0077 00117000 MVC HDRSENS1(1,@01),IOBSENS1(IOBSTPTR) 0077 00118000 * IF UXFLG=ON THEN /* IF JUST UNIT EXCEPTION 0078 00119000 * @YM00613*/ 00120000 TM UXFLG(DCBPTR),B'00000001' 0078 00121000 BNO @RF00078 0078 00122000 * HDRTYP=ONE; /* HDR TYPE IS X'01' @YM00613*/ 00123000 L @01,DCBHDR(,DCBPTR) 0079 00124000 MVI HDRTYP(@01),X'01' 0079 00125000 * ELSE 0080 00126000 * HDRTYP=TWO; /* JUST UC, TYPE=X'02' @YM00613*/ 00127000 B @RC00078 0080 00128000 @RF00078 L @01,DCBHDR(,DCBPTR) 0080 00129000 MVI HDRTYP(@01),X'02' 0080 00130000 * IF UXFLG=ON&IOBS0B1=ON THEN/* IF UNIT EXC & IRV */ 00131000 @RC00078 TM UXFLG(DCBPTR),B'00000001' 0081 00132000 BNO @RF00081 0081 00133000 TM IOBS0B1(IOBSTPTR),B'01000000' 0081 00134000 BNO @RF00081 0081 00135000 * HDRTYP=THREE; /* HDR TYPE IS X'03' */ 00136000 L @01,DCBHDR(,DCBPTR) 0082 00137000 MVI HDRTYP(@01),X'03' 0082 00138000 * IF UXFLG=ON&IOBS0B6=ON THEN/* IF UNIT EXC & NI */ 00139000 @RF00081 TM UXFLG(DCBPTR),B'00000001' 0083 00140000 BNO @RF00083 0083 00141000 TM IOBS0B6(IOBSTPTR),B'00000010' 0083 00142000 BNO @RF00083 0083 00143000 * HDRTYP=THREE; /* HDR TYPE IS X'03' */ 00144000 L @01,DCBHDR(,DCBPTR) 0084 00145000 MVI HDRTYP(@01),X'03' 0084 00146000 * UXFLG=OFF; /* TYRN UX FLAG OFF */ 00147000 @RF00083 NI UXFLG(DCBPTR),B'11111110' 0085 00148000 * RECLEN=DCBLRECL-TWELVE; /* LENGTH OF DATA RECORD */ 00149000 LH RECLEN,DCBLRECL+72(,DCBPTR) 0086 00150000 SL RECLEN,@CF00754 0086 00151000 * USDTA(1:RECLEN)=ZERO(1:RECLEN);/* 0 OUT REC. */ 00152000 LR @15,RECLEN 0087 00153000 BCTR @15,0 0087 00154000 EX @15,@SM00774 0087 00155000 * IF COMADR^=ADDR(CCWEND)&COMADR^=ADDR(ANTCPT)&/* @ZA04468*/ 00156000 * IMGEOF^=ON&IMGPROC=ON THEN/* WRITE & IMAGE PROCESS 0088 00157000 * @ZA04477*/ 00158000 L @01,IOBSTART(,IOBSTPTR) 0088 00159000 LA @15,CCWEND(,@01) 0088 00160000 L @14,COMADR-1(,IOBSTPTR) 0088 00161000 LA @14,0(,@14) 0088 00162000 CR @15,@14 0088 00163000 BE @RF00088 0088 00164000 L @01,IOBSTART(,IOBSTPTR) 0088 00165000 LA @15,ANTCPT(,@01) 0088 00166000 L @14,COMADR-1(,IOBSTPTR) 0088 00167000 LA @14,0(,@14) 0088 00168000 CR @15,@14 0088 00169000 BE @RF00088 0088 00170000 TM IMGPROC(DCBPTR),B'00000001' 0088 00171000 BNO @RF00088 0088 00172000 TM IMGEOF(DCBPTR),B'10000000' 0088 00173000 BNZ @RF00088 0088 00174000 * DO; /* & NOT IMAGE FILE EOF @ZA04477*/ 00175000 * SAVE17=R6; /* SAVE BASE REG @ZA00779*/ 00176000 ST R6,SAVE17(,SAVR) 0090 00177000 * SAVE18=IOBSTPTR; /* SAVE IOB ADDR @ZA00779*/ 00178000 ST IOBSTPTR,SAVE18(,SAVR) 0091 00179000 * GEN CODE; 0092 00180000 * /*@ZA00779*/ 00181000 LM RETR,R8,20(SAVR) RESTORE USERS REGS @ZA00779 00182000 LR RPARA0,RPARA1 PUT ADDR OF DCB IN REG 0 00183000 * @ZA00779 00184000 L ENTR,4(RPARA1) CALL DCBIMG @ZA00779 00185000 BALR RETR,ENTR GO TO IMAGE TRN @ZA00779 00186000 L WORK,28(,SAVR) RESTORE WORK AREA REG @ZA00779 00187000 L DCBPTR,32(,SAVR) RESTORE DCB PTR REG @ZA00779 00188000 * IOBSTPTR=SAVE18; /* RESTORE IOB PTR @ZA00779*/ 00189000 L IOBSTPTR,SAVE18(,SAVR) 0093 00190000 * R6=SAVE17; /* RESTORE BASE REG @ZA00779*/ 00191000 L R6,SAVE17(,SAVR) 0094 00192000 * RPARA1=DCBBLKSI; /* SET UP FOR MVCL INSTRUCTION 0095 00193000 * @ZA00779*/ 00194000 LH RPARA1,DCBBLKSI+52(,DCBPTR) 0095 00195000 * RETR=ADDR(CCWEND); /* @ZA00779*/ 00196000 L RETR,IOBSTART(,IOBSTPTR) 0096 00197000 LA RETR,CCWEND(,RETR) 0096 00198000 * ENTR=DCBBLKSI; /* @ZA00779*/ 00199000 LH ENTR,DCBBLKSI+52(,DCBPTR) 0097 00200000 * GEN(MVCL 14,0); /* @ZA00779*/ 00201000 MVCL 14,0 00202000 * IF COMADR=ADDR(WRITEND) THEN/* JUST A WRITE DONE 0099 00203000 * @ZA00779*/ 00204000 L @01,IOBSTART(,IOBSTPTR) 0099 00205000 LA @15,WRITEND(,@01) 0099 00206000 L @14,COMADR-1(,IOBSTPTR) 0099 00207000 LA @14,0(,@14) 0099 00208000 CR @15,@14 0099 00209000 BNE @RF00099 0099 00210000 * MRWRITE='1'B; /* YES,TURN WRITE FLAG ON 0100 00211000 * @ZA00779*/ 00212000 OI MRWRITE(DCBPTR),B'10000000' 0100 00213000 * END; /* @ZA00779*/ 00214000 * END; /* @ZA00779*/ 00215000 * ELSE 0103 00216000 * DO; /* NO, NOT UX OR UC */ 00217000 B @RC00074 0103 00218000 @RF00074 DS 0H 0104 00219000 * IF NIBIT=ON THEN /* DEVICE STILL NOT INIT. */ 00220000 L @01,DCBHDR(,DCBPTR) 0104 00221000 TM NIBIT(@01),B'00000010' 0104 00222000 BNO @RF00104 0104 00223000 * DO; 0105 00224000 * IOBSENS0=HDRSENS0; /* RESTORE IOB SENSE */ 00225000 L @01,DCBHDR(,DCBPTR) 0106 00226000 MVC IOBSENS0(1,IOBSTPTR),HDRSENS0(@01) 0106 00227000 * GOTO A3; /* RETURN TO USER WITH NI */ 00228000 B A3 0107 00229000 * END; 0108 00230000 * IF COMADR^=ADDR(CCWEND)&COMADR^=ADDR(ANTCPT)&/* @ZA04468*/ 00231000 * IMGEOF^=ON&IMGPROC=ON THEN/* WRITE & IMAGE PROCESS 0109 00232000 * @ZA04477*/ 00233000 @RF00104 L @01,IOBSTART(,IOBSTPTR) 0109 00234000 LA @15,CCWEND(,@01) 0109 00235000 L @14,COMADR-1(,IOBSTPTR) 0109 00236000 LA @14,0(,@14) 0109 00237000 CR @15,@14 0109 00238000 BE @RF00109 0109 00239000 L @01,IOBSTART(,IOBSTPTR) 0109 00240000 LA @15,ANTCPT(,@01) 0109 00241000 L @14,COMADR-1(,IOBSTPTR) 0109 00242000 LA @14,0(,@14) 0109 00243000 CR @15,@14 0109 00244000 BE @RF00109 0109 00245000 TM IMGPROC(DCBPTR),B'00000001' 0109 00246000 BNO @RF00109 0109 00247000 TM IMGEOF(DCBPTR),B'10000000' 0109 00248000 BNZ @RF00109 0109 00249000 * DO; /* & NOT IMAGE FILE EOF @ZA04477*/ 00250000 * SAVE17=R6; /* SAVE BASE REG */ 00251000 ST R6,SAVE17(,SAVR) 0111 00252000 * SAVE18=IOBSTPTR; /* SAVE IOB ADDR */ 00253000 ST IOBSTPTR,SAVE18(,SAVR) 0112 00254000 * GEN CODE; 0113 00255000 LM RETR,R8,20(SAVR) RESTORE USERS REGS 00256000 LR RPARA0,RPARA1 PUT ADDR OF DCB IN REG 0 00257000 L ENTR,4(RPARA1) CALL DCBIMG 00258000 BALR RETR,ENTR GO TO IMAGE TRN 00259000 L WORK,28(,SAVR) RESTORE WORK AREA REG 00260000 L DCBPTR,32(,SAVR) RESTORE DCB PTR REG 00261000 * IOBSTPTR=SAVE18; /* RESTORE IOB PTR */ 00262000 L IOBSTPTR,SAVE18(,SAVR) 0114 00263000 * R6=SAVE17; /* RESTORE BASE REG */ 00264000 L R6,SAVE17(,SAVR) 0115 00265000 * RPARA1=DCBBLKSI; /* SET UP FOR MVCL INSTRUCTIO */ 00266000 LH RPARA1,DCBBLKSI+52(,DCBPTR) 0116 00267000 * RETR=ADDR(CCWEND); 0117 00268000 L RETR,IOBSTART(,IOBSTPTR) 0117 00269000 LA RETR,CCWEND(,RETR) 0117 00270000 * ENTR=DCBBLKSI; 0118 00271000 LH ENTR,DCBBLKSI+52(,DCBPTR) 0118 00272000 * GEN(MVCL 14,0); 0119 00273000 MVCL 14,0 00274000 * IF COMADR=ADDR(WRITEND) THEN/* JUST A WRITE DONE */ 00275000 L @01,IOBSTART(,IOBSTPTR) 0120 00276000 LA @15,WRITEND(,@01) 0120 00277000 L @14,COMADR-1(,IOBSTPTR) 0120 00278000 LA @14,0(,@14) 0120 00279000 CR @15,@14 0120 00280000 BNE @RF00120 0120 00281000 * MRWRITE='1'B; /* YES,TURN WRITE FLAG ON */ 00282000 OI MRWRITE(DCBPTR),B'10000000' 0121 00283000 * END; 0122 00284000 @RF00120 DS 0H 0123 00285000 * END; 0123 00286000 @RF00109 DS 0H 0124 00287000 * END; 0124 00288000 @RC00074 DS 0H 0125 00289000 *A3: 0125 00290000 * GEN CODE; 0125 00291000 A3 DS 0H 0125 00292000 * /* RETURN TO CALLER */ 00293000 L 8,24(SAVR) 00294000 LM RETR,ENTR,12(SAVR) RESTORE REGS 14 & 15 00295000 BR RETR RETURN ON REG 14 00296000 * END IGG019UM /* RESTORE REGS & RETURN */ 00297000 * 0126 00298000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00299000 */*%INCLUDE SYSUT5 (IGG019UM) */ 00300000 */*%INCLUDE SYSUT5 (PROLG ) */ 00301000 */*%INCLUDE SYSUT5 (DCLARS ) */ 00302000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00303000 */*%INCLUDE SYSLIB (IHADCB ) */ 00304000 */*%INCLUDE SYSLIB (IEZIOB ) */ 00305000 */*%INCLUDE SYSUT5 (ERROR ) */ 00306000 */*%INCLUDE SYSUT5 (NOERR ) */ 00307000 * 0126 00308000 * ; 0126 00309000 @EL00001 DS 0H 0126 00310000 @EF00001 DS 0H 0126 00311000 @ER00001 BR @14 0126 00312000 @DATA DS 0H 00313000 @SM00774 MVC USDTA(0,WORK),ZERO 00314000 DS 0F 00315000 DS 0F 00316000 @CF00754 DC XL4'0C' 00317000 DS 0D 00318000 IOBPRPTR DS A 00319000 ZERO DS CL48 00320000 ORG ZERO 00321000 Z1 DC 48X'00' 00322000 ORG ZERO+48 00323000 CMPNOER DC X'7F' 00324000 DS CL3 00325000 NOPERM DC X'00000000' 00326000 UNITEX DC X'01' 00327000 MTAREA DS CL50 00328000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00329000 @01 EQU 01 00330000 @02 EQU 02 00331000 @03 EQU 03 00332000 @04 EQU 04 00333000 @05 EQU 05 00334000 @06 EQU 06 00335000 @07 EQU 07 00336000 @08 EQU 08 00337000 @09 EQU 09 00338000 @10 EQU 10 00339000 @11 EQU 11 00340000 @12 EQU 12 00341000 @13 EQU 13 00342000 @14 EQU 14 00343000 @15 EQU 15 00344000 DCBPTR EQU @02 00345000 IOBSTPTR EQU @07 00346000 RPARA0 EQU @00 00347000 RPARA1 EQU @01 00348000 IOBAR EQU @03 00349000 WORK EQU @04 00350000 RECLEN EQU @05 00351000 R6 EQU @06 00352000 R8 EQU @08 00353000 R9 EQU @09 00354000 R10 EQU @10 00355000 R11 EQU @11 00356000 R12 EQU @12 00357000 SAVR EQU @13 00358000 RETR EQU @14 00359000 ENTR EQU @15 00360000 IHADCB EQU 0 00361000 IHADCS07 EQU 0 00362000 DCBWTOID EQU IHADCS07 00363000 IHADCS09 EQU 0 00364000 DCBSSID EQU IHADCS09 00365000 IHADCS10 EQU 0 00366000 @NM00003 EQU IHADCS10 00367000 DCBQSMEX EQU @NM00003 00368000 DCBSSAD EQU IHADCS10+4 00369000 DCBIMG EQU DCBSSAD 00370000 DCBIMAGE EQU IHADCS10+8 00371000 DCBMRFG EQU DCBIMAGE 00372000 DCBECBLT EQU IHADCS10+12 00373000 DCBHDR EQU DCBECBLT 00374000 DCBMRIND EQU DCBHDR 00375000 DCBMRFLG EQU IHADCS10+16 00376000 IHADCS11 EQU 0 00377000 DCBRELB EQU IHADCS11 00378000 DCBREL EQU DCBRELB+1 00379000 DCBBUFCB EQU IHADCS11+4 00380000 DCBDSORG EQU IHADCS11+10 00381000 DCBDSRG1 EQU DCBDSORG 00382000 DCBDSRG2 EQU DCBDSORG+1 00383000 DCBIOBAD EQU IHADCS11+12 00384000 DCBODEB EQU DCBIOBAD 00385000 DCBLNP EQU DCBODEB 00386000 DCBQSLM EQU DCBLNP 00387000 DCBIOBAA EQU DCBODEB+1 00388000 IHADCS50 EQU 0 00389000 DCBSVCXL EQU IHADCS50 00390000 DCBEODAD EQU IHADCS50+4 00391000 DCBBFALN EQU DCBEODAD 00392000 DCBHIARC EQU DCBBFALN 00393000 DCBBFTEK EQU DCBHIARC 00394000 DCBBFT EQU DCBBFTEK 00395000 DCBEXLST EQU IHADCS50+8 00396000 DCBRECFM EQU DCBEXLST 00397000 DCBRECLA EQU DCBRECFM 00398000 IHADCS24 EQU 0 00399000 DCBOFLGS EQU IHADCS24+8 00400000 DCBOFLWR EQU DCBOFLGS 00401000 DCBIFLG EQU IHADCS24+9 00402000 DCBMACR EQU IHADCS24+10 00403000 DCBMACR1 EQU DCBMACR 00404000 DCBMRFE EQU DCBMACR1 00405000 DCBMRGET EQU DCBMRFE 00406000 DCBMRAPG EQU DCBMACR1 00407000 DCBMRRD EQU DCBMRAPG 00408000 DCBMRCI EQU DCBMACR1 00409000 DCBMRMVG EQU DCBMRCI 00410000 DCBMRLCG EQU DCBMACR1 00411000 DCBMRABC EQU DCBMACR1 00412000 DCBMRPT1 EQU DCBMRABC 00413000 DCBMRSBG EQU DCBMRPT1 00414000 DCBMRCRL EQU DCBMACR1 00415000 DCBMRCHK EQU DCBMRCRL 00416000 DCBMRRDX EQU DCBMRCHK 00417000 DCBMRDMG EQU DCBMACR1 00418000 DCBMACR2 EQU DCBMACR+1 00419000 DCBMRPUT EQU DCBMACR2 00420000 DCBMRWRT EQU DCBMACR2 00421000 DCBMRMVP EQU DCBMACR2 00422000 DCBMR5WD EQU DCBMACR2 00423000 DCBMRLDM EQU DCBMR5WD 00424000 DCBMRLCP EQU DCBMRLDM 00425000 DCBMR4WD EQU DCBMACR2 00426000 DCBMRPT2 EQU DCBMR4WD 00427000 DCBMRTMD EQU DCBMRPT2 00428000 DCBMR3WD EQU DCBMACR2 00429000 DCBMRCTL EQU DCBMR3WD 00430000 DCBMRSTK EQU DCBMRCTL 00431000 DCBMR1WD EQU DCBMACR2 00432000 DCBMRSWA EQU DCBMR1WD 00433000 DCBMRDMD EQU DCBMRSWA 00434000 IHADCS25 EQU 0 00435000 DCBMACRF EQU IHADCS25+2 00436000 DCBMACF1 EQU DCBMACRF 00437000 DCBMFFE EQU DCBMACF1 00438000 DCBMFGET EQU DCBMFFE 00439000 DCBMFAPG EQU DCBMACF1 00440000 DCBMFRD EQU DCBMFAPG 00441000 DCBMFCI EQU DCBMACF1 00442000 DCBMFMVG EQU DCBMFCI 00443000 DCBMFLCG EQU DCBMACF1 00444000 DCBMFABC EQU DCBMACF1 00445000 DCBMFPT1 EQU DCBMFABC 00446000 DCBMFSBG EQU DCBMFPT1 00447000 DCBMFCRL EQU DCBMACF1 00448000 DCBMFCHK EQU DCBMFCRL 00449000 DCBMFDMG EQU DCBMACF1 00450000 DCBMACF2 EQU DCBMACRF+1 00451000 DCBMFPUT EQU DCBMACF2 00452000 DCBMFWRT EQU DCBMACF2 00453000 DCBMFMVP EQU DCBMACF2 00454000 DCBMF5WD EQU DCBMACF2 00455000 DCBMFLDM EQU DCBMF5WD 00456000 DCBMFLCP EQU DCBMFLDM 00457000 DCBMF4WD EQU DCBMACF2 00458000 DCBMFPT2 EQU DCBMF4WD 00459000 DCBMFTMD EQU DCBMFPT2 00460000 DCBMF3WD EQU DCBMACF2 00461000 DCBMFCTL EQU DCBMF3WD 00462000 DCBMFSTK EQU DCBMFCTL 00463000 DCBMF1WD EQU DCBMACF2 00464000 DCBMFSWA EQU DCBMF1WD 00465000 DCBMFDMD EQU DCBMFSWA 00466000 DCBDEBAD EQU IHADCS25+4 00467000 DCBIFLGS EQU DCBDEBAD 00468000 IHADCS26 EQU 0 00469000 DCBWRITE EQU IHADCS26 00470000 DCBREAD EQU DCBWRITE 00471000 DCBWRITA EQU DCBREAD+1 00472000 IHADCS27 EQU 0 00473000 DCBGET EQU IHADCS27 00474000 DCBPUT EQU DCBGET 00475000 DCBGETA EQU DCBPUT+1 00476000 IHADCS36 EQU 0 00477000 DCBGERR EQU IHADCS36 00478000 DCBPERR EQU DCBGERR 00479000 DCBCHECK EQU DCBPERR 00480000 DCBOPTCD EQU DCBCHECK 00481000 DCBOPTH EQU DCBOPTCD 00482000 DCBOPTO EQU DCBOPTH 00483000 DCBOPTZ EQU DCBOPTCD 00484000 DCBGERRA EQU DCBCHECK+1 00485000 DCBPERRA EQU DCBGERRA 00486000 DCBSYNAD EQU IHADCS36+4 00487000 DCBCIND1 EQU IHADCS36+8 00488000 DCBCIND2 EQU IHADCS36+9 00489000 DCBBLKSI EQU IHADCS36+10 00490000 DCBIOBA EQU IHADCS36+16 00491000 DCBCICB EQU DCBIOBA 00492000 IHADCS52 EQU 0 00493000 DCBDIRCT EQU IHADCS52 00494000 DCBQSWS EQU DCBDIRCT 00495000 DCBUSASI EQU DCBQSWS 00496000 DCBQADFS EQU DCBUSASI 00497000 DCBBUFOF EQU DCBDIRCT+1 00498000 IHADCS37 EQU 0 00499000 DCBFLAG1 EQU IHADCS37 00500000 IHADCS38 EQU 0 00501000 DCBEOBR EQU IHADCS38 00502000 DCBLRECL EQU IHADCS38+10 00503000 DCBPOINT EQU IHADCS38+12 00504000 DCBCNTRL EQU DCBPOINT 00505000 IHADCS40 EQU 0 00506000 DCBEOBAD EQU IHADCS40 00507000 DCBCCCW EQU IHADCS40+4 00508000 DCBRECAD EQU DCBCCCW 00509000 DCBRECBT EQU DCBRECAD 00510000 DCBRCREL EQU DCBRECBT 00511000 @NM00028 EQU IHADCS40+12 00512000 DCBEROPT EQU @NM00028 00513000 IOBPREFX EQU 0 00514000 IOBCFLG1 EQU IOBPREFX 00515000 IOBSTDRD EQU 0 00516000 IOBFLAG1 EQU IOBSTDRD 00517000 IOBCYCCK EQU IOBFLAG1 00518000 IOBRSTRT EQU IOBFLAG1 00519000 IOBFLAG2 EQU IOBSTDRD+1 00520000 IOBPURGE EQU IOBFLAG2 00521000 IOBRDHA0 EQU IOBFLAG2 00522000 IOBSENS0 EQU IOBSTDRD+2 00523000 IOBS0B1 EQU IOBSENS0 00524000 IOBS0B6 EQU IOBSENS0 00525000 IOBS0B7 EQU IOBSENS0 00526000 IOBSENS1 EQU IOBSTDRD+3 00527000 IOBECBPT EQU IOBSTDRD+4 00528000 IOBFLAG3 EQU IOBSTDRD+8 00529000 IOBFL3 EQU IOBFLAG3 00530000 IOBCSW EQU IOBSTDRD+9 00531000 IOBIOCSW EQU IOBCSW 00532000 IOBSTART EQU IOBSTDRD+16 00533000 IOBDCBPT EQU IOBSTDRD+20 00534000 IOBFLAG4 EQU IOBDCBPT 00535000 IOBRESTR EQU IOBSTDRD+24 00536000 IOBINCAM EQU IOBSTDRD+28 00537000 IOBBTAMF EQU IOBINCAM 00538000 ECB EQU 0 00539000 CMPCODE EQU ECB 00540000 CCW EQU 0 00541000 USHDR EQU 0 00542000 HDRSENS0 EQU USHDR 00543000 NIBIT EQU HDRSENS0 00544000 HDRSENS1 EQU USHDR+1 00545000 HDRTYP EQU USHDR+11 00546000 SAVEAR EQU 0 00547000 SAVE17 EQU SAVEAR+64 00548000 SAVE18 EQU SAVEAR+68 00549000 USDTA EQU 0 00550000 IMGDATA EQU 0 00551000 SAVAR EQU 0 00552000 IOBORG01 EQU IOBPREFX+8 00553000 IOBNIOBA EQU IOBORG01 00554000 IOBNFLG1 EQU IOBNIOBA 00555000 IOBORG02 EQU IOBPREFX+8 00556000 IOBDQADA EQU IOBORG02 00557000 IOBDEQIN EQU IOBDQADA 00558000 IOBORG03 EQU IOBPREFX+12 00559000 IOBORG04 EQU IOBINCAM 00560000 IOBORG12 EQU IOBINCAM 00561000 IOBFL4 EQU IOBORG12 00562000 IOBEXTEN EQU IOBSTDRD+32 00563000 IOBSEEK EQU IOBEXTEN 00564000 IOBBB EQU IOBSEEK+1 00565000 IOBCC EQU IOBSEEK+3 00566000 IOBHH EQU IOBSEEK+5 00567000 IOBORG05 EQU IOBEXTEN 00568000 IOBORG06 EQU IOBEXTEN 00569000 IOBNXTPT EQU IOBORG06+4 00570000 IOBSTATA EQU IOBNXTPT 00571000 IOBORG07 EQU IOBEXTEN+8 00572000 W1IEXTEN EQU IOBORG07 00573000 IOBORG08 EQU IOBEXTEN+8 00574000 IOBINDCT EQU IOBORG08+4 00575000 IOBUNSQR EQU IOBORG08+5 00576000 IOBFCHAD EQU IOBORG08+8 00577000 IOBORG09 EQU IOBEXTEN+8 00578000 IOBDPLAD EQU IOBORG09+4 00579000 IOBDTYPE EQU IOBORG09+8 00580000 IOBDTYP2 EQU IOBORG09+9 00581000 IOBDSTAT EQU IOBORG09+10 00582000 IOBSTAT1 EQU IOBDSTAT 00583000 IOBORG10 EQU IOBEXTEN+8 00584000 IOBSEEK2 EQU IOBORG10 00585000 IOBORG11 EQU IOBEXTEN 00586000 IOBERCT EQU IOBORG11 00587000 IOBUCBXV EQU IOBERCT 00588000 IOBNAME EQU IOBORG11+4 00589000 IOBORG13 EQU IOBEXTEN 00590000 IOBSKADR EQU IOBORG13 00591000 CSW EQU IOBCSW 00592000 COMADR EQU CSW 00593000 CMDCHAIN EQU CCW 00594000 ANTCPT EQU CMDCHAIN+8 00595000 WRITEND EQU CMDCHAIN+72 00596000 CCWEND EQU CMDCHAIN+136 00597000 MRFLG EQU DCBMRFLG 00598000 MRWRITE EQU MRFLG 00599000 UXFLG EQU MRFLG 00600000 IMGFLGS EQU MRFLG+3 00601000 IMGEOF EQU IMGFLGS 00602000 IMGPROC EQU IMGFLGS 00603000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00604000 @NM00042 EQU IMGFLGS 00605000 @NM00041 EQU MRFLG+1 00606000 @NM00040 EQU MRFLG 00607000 @NM00034 EQU CMDCHAIN+80 00608000 @NM00033 EQU CMDCHAIN+16 00609000 @NM00032 EQU CMDCHAIN 00610000 CSWSTAT EQU CSW+3 00611000 IOBSKSS EQU IOBSKADR+3 00612000 IOBSK0 EQU IOBSKADR+2 00613000 IOBSKTT EQU IOBSKADR+1 00614000 IOBSKRV EQU IOBSKADR 00615000 IOBCSWSV EQU IOBORG11+17 00616000 IOBSENSV EQU IOBORG11+16 00617000 IOBRCD EQU IOBORG11+12 00618000 IOBMDREC EQU IOBORG11+8 00619000 IOBNAMEA EQU IOBNAME+1 00620000 IOBNAMSZ EQU IOBNAME 00621000 IOBERCTA EQU IOBERCT+1 00622000 IOBRTYPE EQU IOBUCBXV 00623000 IOBRDCHP EQU IOBORG10+20 00624000 IOBNEXTA EQU IOBORG10+16 00625000 IOBREADA EQU IOBORG10+12 00626000 IOBBUFC EQU IOBORG10+8 00627000 IOBSK2R EQU IOBSEEK2+7 00628000 IOBSK2HH EQU IOBSEEK2+5 00629000 IOBSK2CC EQU IOBSEEK2+3 00630000 IOBSK2BB EQU IOBSEEK2+1 00631000 IOBSK2M EQU IOBSEEK2 00632000 IOBCHNPR EQU IOBORG09+40 00633000 IOBDNCRF EQU IOBORG09+32 00634000 IOBRSV35 EQU IOBORG09+24 00635000 IOBDQPTR EQU IOBORG09+20 00636000 IOBRSV34 EQU IOBORG09+18 00637000 IOBDBYTN EQU IOBORG09+16 00638000 IOBDCPND EQU IOBORG09+12 00639000 IOBSTAT2 EQU IOBDSTAT+1 00640000 IOBSIORT EQU IOBSTAT1 00641000 IOBADDVU EQU IOBSTAT1 00642000 IOBBUFF EQU IOBSTAT1 00643000 IOBENQUE EQU IOBSTAT1 00644000 IOBPASS2 EQU IOBSTAT1 00645000 IOBSYNCH EQU IOBSTAT1 00646000 IOBNEWVL EQU IOBSTAT1 00647000 IOBABNRM EQU IOBSTAT1 00648000 IOBRELEX EQU IOBDTYP2 00649000 IOBADDTY EQU IOBDTYP2 00650000 IOBTYPE EQU IOBDTYP2 00651000 IOBRQUST EQU IOBDTYP2 00652000 IOBSUFFX EQU IOBDTYP2 00653000 IOBSBLKL EQU IOBDTYP2 00654000 IOBSKEY EQU IOBDTYP2 00655000 IOBRELBL EQU IOBDTYPE 00656000 IOBRDEXC EQU IOBDTYPE 00657000 IOBDYNBF EQU IOBDTYPE 00658000 IOBACTAD EQU IOBDTYPE 00659000 IOBFDBCK EQU IOBDTYPE 00660000 IOBEXTSC EQU IOBDTYPE 00661000 IOBOVFLO EQU IOBDTYPE 00662000 IOBVERFY EQU IOBDTYPE 00663000 IOBDPLB EQU IOBDPLAD+1 00664000 IOBDAYLI EQU IOBDPLAD 00665000 IOBDIOBS EQU IOBORG09+2 00666000 IOBDBYTR EQU IOBORG09 00667000 IOBBCHAD EQU IOBORG08+12 00668000 IOBFCHNB EQU IOBFCHAD+1 00669000 IOBCOUNT EQU IOBFCHAD 00670000 IOBASYN EQU IOBORG08+7 00671000 IOBAPP EQU IOBORG08+6 00672000 IOBRSV32 EQU IOBUNSQR 00673000 IOBRSV31 EQU IOBUNSQR 00674000 IOBRSV30 EQU IOBUNSQR 00675000 IOBKNRWR EQU IOBUNSQR 00676000 IOBKNWR EQU IOBUNSQR 00677000 IOBNTAV2 EQU IOBUNSQR 00678000 IOBNTAV1 EQU IOBUNSQR 00679000 IOBCPBSY EQU IOBUNSQR 00680000 IOBCHNNL EQU IOBINDCT 00681000 IOBRSV29 EQU IOBINDCT 00682000 IOBRSV28 EQU IOBINDCT 00683000 IOBRSV27 EQU IOBINDCT 00684000 IOBKEYAD EQU IOBINDCT 00685000 IOBOVPTR EQU IOBINDCT 00686000 IOBUNSCH EQU IOBINDCT 00687000 IOBDEQCP EQU IOBINDCT 00688000 IOBCCWAD EQU IOBORG08 00689000 W1OEXTEN EQU W1IEXTEN 00690000 IOBCCW EQU IOBORG06+8 00691000 IOBNXTPB EQU IOBNXTPT+1 00692000 IOBRSV26 EQU IOBSTATA 00693000 IOBRSV25 EQU IOBSTATA 00694000 IOBRSV24 EQU IOBSTATA 00695000 IOBRSV23 EQU IOBSTATA 00696000 IOBRSV22 EQU IOBSTATA 00697000 IOBRSV21 EQU IOBSTATA 00698000 IOBRSV20 EQU IOBSTATA 00699000 IOBAVLFL EQU IOBSTATA 00700000 IOBRSV37 EQU IOBORG06+1 00701000 IOBUCBXG EQU IOBORG06 00702000 IOBCPA EQU IOBORG05+32 00703000 IOBERINF EQU IOBORG05+16 00704000 IOBERCCW EQU IOBORG05+8 00705000 IOBSNDPT EQU IOBORG05+7 00706000 IOBRCVPT EQU IOBORG05+6 00707000 IOBWORK EQU IOBORG05+1 00708000 IOBUCBX EQU IOBORG05 00709000 IOBR EQU IOBSEEK+7 00710000 IOBHH2 EQU IOBHH+1 00711000 IOBHH1 EQU IOBHH 00712000 IOBCC2 EQU IOBCC+1 00713000 IOBCC1 EQU IOBCC 00714000 IOBBB2 EQU IOBBB+1 00715000 IOBBB1 EQU IOBBB 00716000 IOBM EQU IOBSEEK 00717000 IOBRSV46 EQU IOBFL4 00718000 IOBRSV47 EQU IOBFL4 00719000 IOBENT EQU IOBFL4 00720000 IOBEQP EQU IOBFL4 00721000 IOBBUS EQU IOBFL4 00722000 IOBDCK EQU IOBFL4 00723000 IOBREJ EQU IOBFL4 00724000 IOBOVR EQU IOBFL4 00725000 IOBCRILC EQU IOBORG04+1 00726000 IOBCRDCC EQU IOBORG04 00727000 IOBGQECB EQU IOBORG03 00728000 IOBSWAP EQU IOBORG02+4 00729000 IOBDQADB EQU IOBDQADA+1 00730000 IOBRSV13 EQU IOBDEQIN 00731000 IOBRSV12 EQU IOBDEQIN 00732000 IOBRSV11 EQU IOBDEQIN 00733000 IOBRSV10 EQU IOBDEQIN 00734000 IOBRSV09 EQU IOBDEQIN 00735000 IOBRSV08 EQU IOBDEQIN 00736000 IOBRSV07 EQU IOBDEQIN 00737000 IOBDEQ EQU IOBDEQIN 00738000 IOBNECB EQU IOBORG01+4 00739000 IOBNIOBB EQU IOBNIOBA+1 00740000 IOBFIRST EQU IOBNFLG1 00741000 IOBUPERR EQU IOBNFLG1 00742000 IOBSPAN EQU IOBNFLG1 00743000 IOBBKSPC EQU IOBNFLG1 00744000 IOBUPDAT EQU IOBNFLG1 00745000 IOBREAD EQU IOBNFLG1 00746000 IOBWRITE EQU IOBNFLG1 00747000 IOBPRTOV EQU IOBNFLG1 00748000 @NM00039 EQU SAVEAR+36 00749000 SAVE9 EQU SAVEAR+32 00750000 @NM00038 EQU SAVEAR 00751000 @NM00037 EQU USHDR+2 00752000 @NM00036 EQU HDRSENS0 00753000 @NM00035 EQU HDRSENS0 00754000 RQADDR EQU ECB+1 00755000 IOBERRCT EQU IOBSTDRD+30 00756000 IOBRSV19 EQU IOBINCAM+1 00757000 IOBOLTST EQU IOBBTAMF 00758000 IOBRFTMG EQU IOBBTAMF 00759000 IOBRSV17 EQU IOBBTAMF 00760000 IOBRSV16 EQU IOBBTAMF 00761000 IOBRSV15 EQU IOBBTAMF 00762000 IOBRSV14 EQU IOBBTAMF 00763000 IOBINUSE EQU IOBBTAMF 00764000 IOBPRMER EQU IOBBTAMF 00765000 IOBRSTRB EQU IOBRESTR+1 00766000 IOBREPOS EQU IOBRESTR 00767000 IOBDCBPB EQU IOBDCBPT+1 00768000 IOBRSV44 EQU IOBFLAG4 00769000 IOBJES3I EQU IOBFLAG4 00770000 IOBRSV42 EQU IOBFLAG4 00771000 IOBRSV41 EQU IOBFLAG4 00772000 IOBRSV40 EQU IOBFLAG4 00773000 IOBPMERR EQU IOBFLAG4 00774000 IOBCC3WE EQU IOBFLAG4 00775000 IOBGDPOL EQU IOBFLAG4 00776000 IOBSTRTB EQU IOBSTART+1 00777000 IOBSIOCC EQU IOBSTART 00778000 IOBSTBYT EQU IOBIOCSW+3 00779000 IOBCMDA EQU IOBIOCSW 00780000 IOBLOG EQU IOBFL3 00781000 IOBICL EQU IOBFL3 00782000 IOBMSG EQU IOBFL3 00783000 IOBCNC EQU IOBFL3 00784000 IOBACU EQU IOBFL3 00785000 IOBCDC EQU IOBFL3 00786000 IOBICC EQU IOBFL3 00787000 IOBCCC EQU IOBFL3 00788000 IOBECBPB EQU IOBECBPT+1 00789000 IOBECBCC EQU IOBECBPT 00790000 IOBS1B7 EQU IOBSENS1 00791000 IOBS1B6 EQU IOBSENS1 00792000 IOBS1B5 EQU IOBSENS1 00793000 IOBS1B4 EQU IOBSENS1 00794000 IOBS1B3 EQU IOBSENS1 00795000 IOBS1B2 EQU IOBSENS1 00796000 IOBS1B1 EQU IOBSENS1 00797000 IOBS1B0 EQU IOBSENS1 00798000 IOBSNSC9 EQU IOBS0B7 00799000 IOBS0B5 EQU IOBSENS0 00800000 IOBS0B4 EQU IOBSENS0 00801000 IOBS0B3 EQU IOBSENS0 00802000 IOBS0B2 EQU IOBSENS0 00803000 IOBS0B0 EQU IOBSENS0 00804000 IOBPNCH EQU IOBFLAG2 00805000 IOBSTATO EQU IOBFLAG2 00806000 IOBSKUPD EQU IOBFLAG2 00807000 IOBALTTR EQU IOBFLAG2 00808000 IOBRRT2 EQU IOBRDHA0 00809000 IOBRRT3 EQU IOBPURGE 00810000 IOBSENSE EQU IOBFLAG2 00811000 IOBHALT EQU IOBFLAG2 00812000 IOBSPSVC EQU IOBRSTRT 00813000 IOBUNREL EQU IOBFLAG1 00814000 IOBIOERR EQU IOBFLAG1 00815000 IOBFCREX EQU IOBCYCCK 00816000 IOBRPSTN EQU IOBFLAG1 00817000 IOBERRTN EQU IOBFLAG1 00818000 IOBCMDCH EQU IOBFLAG1 00819000 IOBDATCH EQU IOBFLAG1 00820000 IOBCNOPA EQU IOBPREFX+12 00821000 IOBCICB EQU IOBPREFX+8 00822000 IOBCECB EQU IOBPREFX+4 00823000 IOBCONOP EQU IOBPREFX+3 00824000 IOBCINOP EQU IOBPREFX+2 00825000 IOBRSV05 EQU IOBPREFX+1 00826000 IOBPCI EQU IOBCFLG1 00827000 IOBRSTCH EQU IOBCFLG1 00828000 IOBABAPP EQU IOBCFLG1 00829000 IOBPTST EQU IOBCFLG1 00830000 IOBRSV04 EQU IOBCFLG1 00831000 IOBRSV03 EQU IOBCFLG1 00832000 IOBRSV02 EQU IOBCFLG1 00833000 IOBRSV01 EQU IOBCFLG1 00834000 DCBEOB EQU IHADCS40+20 00835000 DCBPRECL EQU IHADCS40+18 00836000 @NM00031 EQU IHADCS40+16 00837000 @NM00030 EQU @NM00028+1 00838000 @NM00029 EQU DCBEROPT 00839000 DCBERABE EQU DCBEROPT 00840000 DCBERSKP EQU DCBEROPT 00841000 DCBERACC EQU DCBEROPT 00842000 @NM00027 EQU IHADCS40+10 00843000 @NM00026 EQU IHADCS40+9 00844000 @NM00025 EQU IHADCS40+8 00845000 DCBRECA EQU DCBRECAD+1 00846000 @NM00024 EQU DCBRECBT 00847000 DCBRCFGT EQU DCBRCREL 00848000 DCBRCTRU EQU DCBRCREL 00849000 DCBLCCW EQU DCBEOBAD 00850000 DCBNOTE EQU DCBCNTRL 00851000 @NM00023 EQU IHADCS38+8 00852000 DCBEOBW EQU IHADCS38+4 00853000 DCBEOBRA EQU DCBEOBR+1 00854000 DCBNCP EQU DCBEOBR 00855000 @NM00022 EQU DCBFLAG1 00856000 DCBSTFLS EQU DCBFLAG1 00857000 DCBSTQCK EQU DCBFLAG1 00858000 DCBDIRCQ EQU DCBBUFOF 00859000 DCBQSTRU EQU DCBUSASI 00860000 @NM00021 EQU DCBUSASI 00861000 DCBQADF3 EQU DCBQADFS 00862000 DCBQADF2 EQU DCBQADFS 00863000 DCBQADF1 EQU DCBQADFS 00864000 DCBBLBP EQU DCBUSASI 00865000 @NM00020 EQU DCBUSASI 00866000 DCBCICBA EQU DCBCICB+1 00867000 @NM00019 EQU DCBCICB 00868000 DCBOFFSW EQU IHADCS36+15 00869000 DCBOFFSR EQU IHADCS36+14 00870000 DCBWCPL EQU IHADCS36+13 00871000 DCBWCPO EQU IHADCS36+12 00872000 DCBCNQSM EQU DCBCIND2 00873000 DCBCNFEO EQU DCBCIND2 00874000 DCBCNCHS EQU DCBCIND2 00875000 DCBCNBFP EQU DCBCIND2 00876000 DCBCNIOE EQU DCBCIND2 00877000 DCBCNCLO EQU DCBCIND2 00878000 DCBCNWRO EQU DCBCIND2 00879000 DCBCNSTO EQU DCBCIND2 00880000 DCBCNEXB EQU DCBCIND1 00881000 @NM00018 EQU DCBCIND1 00882000 DCBCNBRM EQU DCBCIND1 00883000 @NM00017 EQU DCBCIND1 00884000 DCBCNEVA EQU DCBCIND1 00885000 DCBCNEVB EQU DCBCIND1 00886000 DCBCNSRD EQU DCBCIND1 00887000 DCBCNTOV EQU DCBCIND1 00888000 DCBSYNA EQU DCBSYNAD+1 00889000 DCBIOBL EQU DCBSYNAD 00890000 DCBCHCKA EQU DCBPERRA 00891000 @NM00016 EQU DCBOPTCD 00892000 DCBOPTT EQU DCBOPTCD 00893000 DCBSRCHD EQU DCBOPTZ 00894000 DCBOPTQ EQU DCBOPTCD 00895000 DCBBCKPT EQU DCBOPTO 00896000 DCBOPTC EQU DCBOPTCD 00897000 DCBOPTU EQU DCBOPTCD 00898000 DCBOPTW EQU DCBOPTCD 00899000 DCBPUTA EQU DCBGETA 00900000 @NM00015 EQU DCBPUT 00901000 DCBREADA EQU DCBWRITA 00902000 @NM00014 EQU DCBREAD 00903000 DCBDEBA EQU DCBDEBAD+1 00904000 @NM00013 EQU DCBIFLGS 00905000 DCBIFIOE EQU DCBIFLGS 00906000 DCBIFPCT EQU DCBIFLGS 00907000 DCBIFEC EQU DCBIFLGS 00908000 DCBMFSTI EQU DCBMFDMD 00909000 DCBMFAWR EQU DCBMFSTK 00910000 DCBMFUIP EQU DCBMFTMD 00911000 DCBMFIDW EQU DCBMFLCP 00912000 DCBMFWRK EQU DCBMFMVP 00913000 DCBMFRDQ EQU DCBMFWRT 00914000 DCBMFGTQ EQU DCBMFPUT 00915000 DCBMFSTL EQU DCBMACF2 00916000 DCBMFCK EQU DCBMFDMG 00917000 DCBMFRDX EQU DCBMFCHK 00918000 DCBMFDBF EQU DCBMFSBG 00919000 DCBMFRDI EQU DCBMFLCG 00920000 DCBMFRDK EQU DCBMFMVG 00921000 DCBMFWRQ EQU DCBMFRD 00922000 DCBMFPTQ EQU DCBMFGET 00923000 DCBMFECP EQU DCBMACF1 00924000 DCBTIOT EQU IHADCS25 00925000 DCBMRSTI EQU DCBMRDMD 00926000 DCBMRAWR EQU DCBMRSTK 00927000 DCBMRUIP EQU DCBMRTMD 00928000 DCBMRIDW EQU DCBMRLCP 00929000 DCBMRWRK EQU DCBMRMVP 00930000 DCBMRRDQ EQU DCBMRWRT 00931000 DCBMRGTQ EQU DCBMRPUT 00932000 DCBMRSTL EQU DCBMACR2 00933000 DCBMRCK EQU DCBMRDMG 00934000 DCBPGFXA EQU DCBMRRDX 00935000 DCBMRDBF EQU DCBMRSBG 00936000 DCBMRRDI EQU DCBMRLCG 00937000 DCBMRRDK EQU DCBMRMVG 00938000 DCBMRWRQ EQU DCBMRRD 00939000 DCBMRPTQ EQU DCBMRGET 00940000 DCBMRECP EQU DCBMACR1 00941000 @NM00012 EQU DCBIFLG 00942000 DCBIBIOE EQU DCBIFLG 00943000 DCBIBPCT EQU DCBIFLG 00944000 DCBIBEC EQU DCBIFLG 00945000 DCBOFIOF EQU DCBOFLGS 00946000 DCBOFUEX EQU DCBOFLGS 00947000 DCBOFTM EQU DCBOFLGS 00948000 DCBOFPPC EQU DCBOFLGS 00949000 DCBOFOPN EQU DCBOFLGS 00950000 DCBOFEOV EQU DCBOFLGS 00951000 DCBOFLRB EQU DCBOFLGS 00952000 DCBOFIOD EQU DCBOFLWR 00953000 DCBDDNAM EQU IHADCS24 00954000 DCBEXLSA EQU DCBEXLST+1 00955000 DCBRECKL EQU DCBRECFM 00956000 DCBRECCC EQU DCBRECFM 00957000 DCBRECSB EQU DCBRECFM 00958000 DCBRECBR EQU DCBRECFM 00959000 DCBRECTO EQU DCBRECLA 00960000 DCBRECL EQU DCBRECLA 00961000 DCBEODA EQU DCBEODAD+1 00962000 DCBBFA EQU DCBBFTEK 00963000 DCBH0 EQU DCBBFTEK 00964000 DCBBFTKD EQU DCBBFTEK 00965000 DCBBFTE EQU DCBBFT 00966000 DCBBFTKR EQU DCBBFT 00967000 DCBBFTS EQU DCBBFT 00968000 DCBH1 EQU DCBBFTEK 00969000 DCBSVCXA EQU DCBSVCXL+1 00970000 @NM00011 EQU DCBSVCXL 00971000 DCBODEBA EQU DCBIOBAA 00972000 @NM00010 EQU DCBQSLM 00973000 DCBUPDBT EQU DCBQSLM 00974000 DCBUPDCM EQU DCBQSLM 00975000 DCB1DVDS EQU DCBQSLM 00976000 @NM00009 EQU DCBDSRG2 00977000 DCBDSGTR EQU DCBDSRG2 00978000 DCBACBM EQU DCBDSRG2 00979000 @NM00008 EQU DCBDSRG2 00980000 DCBDSGTQ EQU DCBDSRG2 00981000 DCBDSGTX EQU DCBDSRG2 00982000 DCBDSGGS EQU DCBDSRG2 00983000 DCBDSGU EQU DCBDSRG1 00984000 DCBDSGPO EQU DCBDSRG1 00985000 DCBDSGMQ EQU DCBDSRG1 00986000 DCBDSGCQ EQU DCBDSRG1 00987000 DCBDSGCX EQU DCBDSRG1 00988000 DCBDSGDA EQU DCBDSRG1 00989000 DCBDSGPS EQU DCBDSRG1 00990000 DCBDSGIS EQU DCBDSRG1 00991000 DCBBUFL EQU IHADCS11+8 00992000 DCBBUFCA EQU DCBBUFCB+1 00993000 DCBBUFNO EQU DCBBUFCB 00994000 DCBDEVT EQU DCBREL 00995000 DCBKEYLE EQU DCBRELB 00996000 @NM00007 EQU IHADCS10+19 00997000 DCBAPPIN EQU IHADCS10+18 00998000 @NM00006 EQU IHADCS10+17 00999000 DCBMRUE EQU DCBMRFLG 01000000 DCBMRDWT EQU DCBMRFLG 01001000 DCBMRPCC EQU DCBMRFLG 01002000 DCBMRDR EQU DCBMRFLG 01003000 DCBMRDRU EQU DCBMRFLG 01004000 DCBMRDBG EQU DCBMRFLG 01005000 DCBMRSCC EQU DCBMRFLG 01006000 DCBECBLA EQU DCBHDR+1 01007000 DCBMRERS EQU DCBMRIND 01008000 DCBMRERP EQU DCBMRIND 01009000 DCBMRPLS EQU DCBMRIND 01010000 DCBMRPLO EQU DCBMRIND 01011000 DCBMRSCU EQU DCBMRIND 01012000 DCBMRDCT EQU DCBMRIND 01013000 DCBIMAGA EQU DCBIMAGE+1 01014000 @NM00005 EQU DCBMRFG 01015000 DCBMRBCT EQU DCBMRFG 01016000 DCBSSADA EQU DCBIMG+1 01017000 @NM00004 EQU DCBIMG 01018000 DCBWTOIA EQU DCBWTOID+1 01019000 @NM00002 EQU DCBWTOID 01020000 @NM00001 EQU IHADCB 01021000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01022000 @RF00088 EQU @RC00074 01023000 @RF00099 EQU @RC00074 01024000 @ENDDATA EQU * 01025000 END IGG019UM,(C'PLS1239',0603,76005) 01026000