` DXCOMOBJ?  (@R#00182FC3DL001A0000C0082C0004B0300B0000B0201B0099B0202C00A4B02037F297F FC3D0001RR(B0007B9CB1B1616B0603B16FCB04C5B0206B0D7EBC060B00B0B04C2B06A0C00587F175F FC3D0002RN&B05C2B06A0C0058B05C2B06A0C0058B05C2B06A0C0058BC145B1601B0380BC06D7F195F FC3DN0003R(B0010B0209B2600BD849B0003BF860C00A2B0008B10F5BC145B160FBC0C1BA0C27F18CF FC3D0004RR(BC0D3B130BBC123B000CB1302BC0C4B10FBB81A3B000AB1604BC8E0C00C8B000A7F154F FC3D0005RD!B045BB0705B10FDB000CA0082A00A2B8000B0038B302EB3335B3400A00ACA00C87DF1B0F FC3D0006R(C00CABC1E0B00AAB0697C00D4B0380B000EC00E6B0E86B0F3AB0F8AB0FD4B0F807F10CF FC3D0007RR(B0D98B0F5EBC1A8B0008B0246B7000B1602B0460B0DBCBC048B0A26B1717BC2247F163F FC3D0008R:B005EB1306B04E4B005EB0209B8006B0420B0916BC200B130CB1E28B: C920B0CF07F192F FC3D0009R(B006EBC920C0080B0070B04C0B0209B8006B0420B0916B0A16B1711B1E12BC2647F1C6F FC3D0010RR(B0038B130DBC149B04E4B0038BC264B0064B0207B8006B06A0B1A6CB0207B80067F1AAF FC3D0011R0B0420B08C6BC1A1B0008B0A46B1713B1E13B1E10B1E19B0$C264B003CB130DBC1497F174F FC3D0012$R(B04E4B003CBC264B0062B0207B8006B06A0B1A6CB0207B8006B0420B08C6BC2017F1A8F FC3D0013RB0460B0F787FD96FFC3D0014D:  FC3DL001 08/21/81 15:41:29  SDSMAC 3.4.0 81.117FC3D0015D13B1E13B1E10B1E19B0P DX COMMON COMM. DSR SW OBJECT PP RELEASE: 1.0.0 P/N: 2276718-1601 PP MFG. REV.: ** MEDIA: XXXXXXXX PRP REFER TO OBJECT INSTALLATION MANUAL FOR INSTRUCTIONS PP^ COPYRIGHT 1981 TEXAS INSTRUMENTS INCORPORATED P MFG. REV.: ** MEDIA: XXXXXXXX PR@ BLDCOMA $  .SYN U$N="@D$VC@$XX".SYN $U="@U$N"* '<* ANY VALIDATION OF PROTOCOLS FOR PARTICULAR BOARD TYPES <<* SHOULD BE DONE IN THIS PROC BEFORE PROCEEDING TO BUILD < * THE PARTICULAR DSR. 6* A MESSAGE SHOULD BE REPORTED AND THE BOARD TYPE64* PROC 'BDTYP' SHOULD BE RE-EXECUTED TO MODIFY 48* THE TYPE SPECIFIED FOR THE CURRENT DEVICE. I.E., 8* ' *  .IF @$NBD, EQ, "BCAIM"  2* MSG TEXT="@P$RT@$XX IS NOT VALID ON BCAIM"2* .SYN $NBD=""* BDTYP * BLD@P$RT@$XX* .EXIT *  .ENDIF * '* '* '* '4* A COMM PACKAGE THAT HAS NO HAS NO LINE CONTROL46* IN THE DSR MUST PASS THE NEXT HIGHER LEVEL TABLE6 * ADDRESS AS 'PS'.6* SEE THE COMIF IST MACRO (COMIST) FOR INFO ON HOW6* THIS VALUE IS USED. * '* ':* COMIF DOES NOT RUN ANY PROTOCOL SPECIFIED AS 'COMA' :* ' .IF @$NBD, EQ, "COMIF"0 MSG TEXT="@P$RT@$XX IS NOT VALID ON COMIF" 0 .SYN $NBD=""   BDTYP!  BLDCOMA  .EXIT! .ENDIF" ! ' .SYN $NH@$XX="PS"! '* ' * PROTOCOL SPECIFICATION4* ALL COMM PROTOCOLS MUST HAVE A SPECIFICATION4** DEFINED FOR USE IN THE IST MACROS.*(* COMA PROTOCOL SPECIFICATION = 0 (* ' .SYN PRDF@$XX=0! '  DFNACU ! ! '.SYN U$N="" "J#* USE SYNONYM 'BADBD' TO FORCE BLDXXXX AFTER ANOTHER BOARD IS ENTERED J *  .IF "@BADBD", EQ, "01"  * BLD@P$RT@$XX* .SYN BADBD="" * .EXIT *  .ENDIF !* '* '* '* A COMM PACKAGE PUT(PATCH UTILITY TASKS), &TARGET DISK/VOLUME=ACNM(@$$DSC$), &*UTILITY PATCH ACCESS NAME=ACNM(@$CVN),**BATCH LISTING ACCESS NAME=ACNM(@$CLST)** '*  SET UP THE DEFAULTS * ' .SYN $$DSC$="@@&TARGET"  .SYN $CLST="@@&BATCH"  .SYN $CVN="@@&UTILITY"* ' ! INSTALL UTILITY PATCHES ( XB I=@$CVN.DUTIL.P.UTLPAT,L=@$CLST((.OVLY OVLY=>23,CODE=10,PARMS=("NO") ($.SYN $$DSC$="",$CLST="",$CVN="" $.00004DUMCMF A0000C0002B10FF7F9A4FDUMC0001.(50002COMEXT50002COMINT7FA41FDUMC0002(D:  DUMCMF  08/21/81 15:31:56  SDSMAC 3.4.0 81.117DUMC0003D.00004DUMBCM A0000C0002B10FF7F9A8FDUMB0001.(50002BCMEXT50002BCMINT7FA5BFDUMB0002(D:  DUMBCM  08/21/81 15:32:03  SDSMAC 3.4.0 81.117DUMB0003DDXCOMOBJ?  ( VCATALOGVCATALOGPATCH D  ڰ گM$LC `P گگ VCATALOGD ( ܹ<ڤ DXCMO D H $Tڥ TSKSRC D  گ0گ S$DIAG   (?((ڤڤS$PROC D گگMFG$$$ PF Z$ܹ9 TSKCPY D گuگ LCF D  گگBATCH D +گگICC `P(گگTSKOBJ D HHHڮڦDXCMO VCATALOGM$LC `P $DUTIL D $$MFG$$$ Pޓn$S$CPROC D fff$گDCOMM D  $6$IDC `P \$QD3780 D h ڰڥDCOMA D  _$h$S D3780 DXCMO B D CگگC D گگ{O D x ڦMڥP D ڰڰ L D tڥڥL D3780  O D3780 DUMCDT PڦڦMSBSCR PڥڥCDBSCR P*ڦڥ DSRPAT P |ڦHڦ$LCBSCR P+l$zڦڦM@R#0001AMSBSCR A0000B0210B7002B1061B0210B6B02B107CB0137B013DB012D7F224F MSBS0001R& B0202B2D02B1037B012F7FB81FMSBS0002&J67000ACK0C 50000ACK0M 50003ACK1M 50018BELM 61000DLEC 7F3F7F MSBS0003J, 50015DSCM 62D00ENQC 50010ENQM 5000CEOTM, 60300ETXC 7F3A3F MSBS0004J 63D00NAKC 5000ENAKM50009RVIM 60700SL278060400SL37807F39AF MSBS0005J(50012TTDM 50006WACKM 7FACAFMSBS0006(D:  MSBSCR  08/25/81 11:47:17  SDSMAC 3.4.0 81.117MSBS0007D50010ENQM 5000CEOTM,@R#003E8CDBSCR A0000B0084B0202B320AB00C3B3210B0005B0000B2000B32007F267F CDBS0001RR(B0000BFF02B4004B0000B0020B4800B0000B0000B0000C0032B0000B0000B00007F265F CDBS0002RN&B0000B0004B0000C0240B0000C0240B0000C004EC004EC004EC004EC03AEB00047F207F CDBSN0003R(B4000B000BB0005B0003B04E5B0018B04E5B0016BC225B0008B1603BC960C00487F1E8F CDBS0004RR(B0008B0208C007EB028AB3700B1327B028AB2F00B1327B028AB0200B131BB028A7F1BFF CDBS0005RD!B0100B1318B028AB3D00B1318B028AB2D00B131EB028AB1000B1307B028AB32007DF1D0F CDBS0006R(B1607BC960C004AB0008B105AB0208C0154B106AB8825B000AC004CB1666B10527F1C2F CDBS0007RR(B0208C00EAB1062B0206B008AB1008B0206B0081B1005B0206B0084B1002B02067F215F CDBS0008R:B0083BC946B0018B0208C022CB1052B028AB3200B133CB0208C00EAB: 028AB10007F1C4F CDBS0009R(B1603B0208C01A6B102CB028AB3200B1B0DB1330B028AB2D00B1328B028AB26007F1BCF CDBS0010RR(B131CB028AB1F00B135CB028AB0300B1313B8825B000AB0000B1618BC960C00467F1BEF CDBS0011R0B0018B0208C011EB101AB028ABFF00B1315B028AB2600B0$1306B028AB0300B16117F1CCF CDBS0012$R(B0206B008DB1002B0206B008CBE946B0018B0208C020ABC548B0460C03BEB02067F1B5F CDBS0013RR(B008BB10BEB0209B4000B1073B0208C007EB028AB3700B130EBC18AB0246BE0007F1A0F CDBS0014R&B0286B6000B130BB028AB0200B1B04BC28AB&.1302B0208C01D0B1061B0206B00827F1E1F CDBS0015.R(B10A5B0206B0085B028AB7000B13A0B0586B028AB6100B139CB0586B028AB6B007F1B1F CDBS0016RR(B1398B0586B028AB7C00B1394B0586B1092B0208C00EAB028AB0200B1B05BC28A7F18EF CDBS0017R B1303B0208C01D0B10C4B0458B80208C01C2B10C0B0208C01C8B1002B0208C00D47F1DDF CDBS00188R(B05CBB10B9B028AB1000B169AB0208C01DCB102FB028AB3200B1312B028AB1F007F187F CDBS0019RR(B13EAB028AB2600B13A4B028AB1000B1306B028AB0300B139BBE960B0000B00187F1B9F CDBS0020RB0208C01D0B109EBB 05CBB10B5B994AB0016B1303BE960C0046B0018B0208C021C7F1A0F CDBS0021BR(B100FB994AB0017B1302B0209B4000BE265B0018B1007B22A0C03E6B1302B02097F1DCF CDBS0022RR(B4000BE265B0018B05CBBC548B045BB04E5B0016B0208C0248B028AB1000B130A7F1A8F CDBS0023RB028ABL%0200B1B51B1303B028AB0100B164DB0208C0296B1016B0208C0268B10477F1ECF CDBS0024LR(B028AB0200B1BEBBC28AB13E9B0208C0334BC1A4B0078B0246B8000B1603B02067F195F CDBS0025RR(B7FFFB1002BC1A4B0062BC946B0018BC964B0084B001CB1030B028AB2D00B1B0A7F164F CDBS0026RT@R(B132CB028AB1F00B131AB028AB0300B137DB028AB2600B137ABC1A5B001CB157A7F176F CDBS0027RR(B1303B05A5B001CB1176B020AB3200B0208C02C8B1016B020AB3200B0208C02967F1EEF CDBS0028RN&BC964B0084B001CB100EB0208C02DEB1066B0208C02E8BD2A5B0016B1006B02087F1A2F CDBSN0029R(C02FABD2A5B0017B04E5B0016B05CBBC548B045BB020AB3200B0208C0304B10F87F17AF CDBS0030RR(B020AB3200B0208C0310B05CBB10BFB028AB1000B1306B0208C0296B028AB02007F1D6F CDBS0031RD!B16BBB1044B0208C0328B1041B0208C0334BC964B0062B0018B103BB8825B000A7DF1D3F CDBS0032R(C010EB1506B028AB2600B132CB028AB0300B1329B0625B0018B1509B1308B028A7F1D7F CDBS0033RR(B1F00B1619B0208C02D8B020AB1000B10CABC1A5B001CB1511B1303B05A5B001C7F1A9F CDBS0034R:B160DB020AB1000B0208C0378B10BEB020AB3200BC964B0084B001CB: 0208C03347F1C8F CDBS0035R(B10B6B028AB1000B160FB0208C0394B10B0B0208C0334B1008B020AB1000B02087F1F3F CDBS0036RR(C03A4B10A8B0208C03AEB05CBBC548B1008BD2A5B0016B0208C03B8B109EBD2A57F14BF CDBS0037R0B0017B109CBC18ABC265B0016B2989B0A89BD186B1C01B0$1002B2A60C03E4B09867F170F CDBS0038$DB0B16B2A46B0B16B2A46BC949B0016B04C9B045BB01C0B0F007F4B4FCDBS0039DJ50000CPARMS503BECRC16C30338WD000140000WD0004301FCWD40007F341F CDBS0040J<:  CDBSCR  08/25/81 11:47:29  SDSMAC 3.4.0 81.117< CDBS0041 B09867F170F CDBS0038$DB0B16B2A46B0B16B2A46BC949B0016B04C9B045BB01C0B0F007F4B4FCDBS0039DJ50000CPARMS503BECRC16C30338WD000140000WD0004301FCWD40007F341F CDBS0040J<:  CDBSCR  08/25/81 11:47:29  SDSMAC 3.4.0 81.117< 00000DUMCDT 7FCD8F DUMC0001  50000TB37807FD6CF DUMC0002D:  DUMCDT  08/25/81 11:48:42  SDSMAC 3.4.0 81.117DUMC0003D00140000WD0004301FCWD40007F341F CDBS0040J<:  CDBSCR  08/25/81 11:47:29  SDSMAC 3.4.0 81.117<@R#00202DSRPAT A0000B0202BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F040F DSRP0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRPN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F DSRP0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F DSRP0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0010RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0011R0BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB0$DEADBDEADBDEADBDEAD7EEB9F DSRP0012$R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0013RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0014R&BDEADBDEADBDEADBDEADBDEADBDEADBDEADB&.DEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0015.R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0016RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0017R BDEADBDEADBDEADBDEADBDEADB8DEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP00188R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0020RBDEAD7FE79F DSRP0021 50000P$37807FD8EF DSRP0022D:  DSRPAT  08/25/81 11:48:50  SDSMAC 3.4.0 81.117DSRP0023DADBDEAD7EEB9F DSRP0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F DSRP0020RBDEAD7FE79F DS@R#009C2LCBSCR A0000B2200A0002B0004A0004B000AB0140B0016C073AC04767F258F LCBS0001RR(C047CC073AC073AC0666C066AC0734C0634C073AC06E8B013EB001CC05D6C045E7F15EF LCBS0002RN&C0458C0424C05D6C0666C066AC0734C0634C05D6C06E8C05C0C04E0C04E0B000A7F182F LCBSN0003R(B013AB000AC03A0C045EC0458C04A6C03F8B000AB013CB000CC0448C0476C047C7F188F LCBS0004RR(C0494C0448C057AB0002C0484B0002C0594B0008C054EC045EC0458C054AB00027F1D1F LCBS0005RD!C0754B0016C0694C0476C047CC0694C0694C0694C0694C0694C0694C0694C06907DF1B6F LCBS0006R(B0000B0000B0000B0000B0100A009ABC240B04F9B04F9B04F9B04F9BC26DB00107F1C0F LCBS0007RR(BC909B006CBC909B0084B04E4B0036B0380C009AB0209C00C2B06A0B0000B03807F1B1F LCBS0008R:B0600C00D2C00DAC020AC0138C01AAC0214C020AB05A4B0056B0460C: 020AB04E47F1ABF LCBS0009R(B0114B04E4B00F6B04E4B00FCB04E4B0108B04E4B0102B04E4B010EB04E4B011A7F181F LCBS0010RR(B04E4B0060B04E4B011CB04CAB0209B0000B9828B0014C0000B1302B020AB80007F1E5F LCBS0011R0BDA09B0013B04E8B0014BD2E4B000CB024BB0F00BE2CAB0$D90BB000CB0209B00CC7F139F LCBS0012$R(BA244B020AB0026B04F9B064AB16FDB1069BC264B0036B1331B9828B0004B00007F1ABF LCBS0013RR(B130CBC241B06A0B0000B020AC0074BC264B0038B1540B115DB020AC0044B103C7F1C6F LCBS0014R&BC268B000EBC2A8B000CB079ABC329B0004B&.028CB8015B1202B020CB8015B07DA7F171F LCBS0015.R(BCA4CB0006B024CB7FFFB0206B0006BA189B079ABA1A9B0008B0209B0144BA2447F157F LCBS0016RR(B079ABDE76B060CB16FCB06A0B0000B0380B0207B4003B06A0B0000B0380B98287F1A0F LCBS0017R B0004B0000B132CBC264B0036B813F4BC264B0038B1507B1306B9828B0004B00007F1ECF LCBS00188R(B1602B0203B2051BC240B06A0C014AB020AC0066B0300B0002B82A4B0036B16197F1F4F LCBS0019RR(BC264B006AB1616BC264B0038B1508B1307BC264B003CB1304B8924B0058B005A7F1B1F LCBS0020RB130BBC80FC0202BB 0300B0002BC204B0228B0062BCA04B0002B06A0B0000B03807F1E5F LCBS0021BR(B0207B4002B06A0C01A6B0380B0209C0228B06A0C00BEB0380B0600C0238C02727F1E3F LCBS0022RR(C02C2C02E0C02EAC02EAC019CBC244B0229B0062B8209B1603B04E4B006AB104B7F175F LCBS0023RB0229BL%0018B8209B134DB0624B0056BC148BCA24B0012B0002B0207B4006B06A07F1DAF LCBS0024LR(C07F2BC205B06A0C0236BC264B0036B1329B101ABD1E8B0006BCA24B0012B00027F1A1F LCBS0025RR(B06A0C0268B0247B4000B162CBD2A4B000CB024AB8000B06A0C08E6B0022B04C17F1A6F LCBS0026RT@R(B04C2B04C3B04E4B001CB0724B0142B04E4B006AB04E4B00F4B04E4B00FAB04E47F16BF LCBS0027RR(B0106B04E4B0118B04E4B0100B04E4B010CB0460C0488BC148BCA24B0012B00027F1C4F LCBS0028RN&B04E4B0036B0207B4018B06A0C07F2BC205B1302B06A0C027EB0380B9828B00047F1BCF LCBSN0029R(B0000B1601B0450B9828B0004C01AEB1632BC2A8B000CBC268B000EB079ABC3297F190F LCBS0030RR(B0004B07DABCA4CB0006B028CB800BB1221B028CB8070B1205B020CB8070B07DA7F17DF LCBS0031RD!BCA4CB0006B024CB7FFFB022CBFFF4BC189B0226B0006B079ABA1A9B0008B07DA7DF0F9F LCBS0032R(BD9A0C0098B000BBC30CB1309B0226B000CB0209B00CCBA244B07DABDDB9B060C7F136F LCBS0033RR(B16FCB04C7B0460C02DCB0380BC264B0056B16C1BD1E4B007FB06C7BD1E4B00807F13CF LCBS0034R:BC287B024AB4000B1308B0287B4018B1303B0287B4003B1602B04C5B: 10A6BC2C07F1C2F LCBS0035R(BC1BBB21E0B0000B1606B0247B000FB0A17B8187B1401BA2C7BC2DBB045BB02077F16CF LCBS0036RR(B4054B06A0C080ABC264B0018B06A0B0000C03FEB04E4B00F4BC908B001AB9A207F17AF LCBS0037R0B0000B0004B16EFBC1E8B0012B0247B0003B1308B0A17B0$C227C0090B0200C00627F1DDF LCBS0038$R(B06A0C0936B0380BC2A8B0014BD264B000CB1304B1503B06A0C08E6B000CB05A47F19BF LCBS0039RR(B00CCB06A0C0864B0208C0090B06A0C0944B0380B0207B0150B100BBC184B02267F1CBF LCBS0040R&B00C4BC196B0246B7FFFB163EB05A4B0114B&.0207B4050BC264B0016B06A0C03A67F177F LCBS0041.R(C0488B06A0C021AB1032B05A4B00E2B06A0C07AEB0104B1204B0207B4057B04607F1C3F LCBS0042RR(C0620BC2A4B0060B1340B028AB00D8B163DB0460C0606B06A0C07AEB00F2B12CB7F17DF LCBS0043R B0207B4053B0460C064AB0207B84018B1002B0207B2000BC264B0016B06A0C041A7F1FCF LCBS00448R(C0470B06A0C0420B0287B4018B1303B0207B4051B1002B0207B4018B05A4B00EA7F1F4F LCBS0045RR(B06A0C080AB06A0C0858B06A0C0798B133CB108BBC264B0058B13D7B0207B40527F18DF LCBS0046RB05A4B00F0B06A0CB 080AB05A4B00CEBC264B0058B13ECB06A0C086AB13E9B05A47F141F LCBS0047BR(B00D0B0701B1003B0545B05A4B00E4B04C3B0209B00E4BC909B0060B04E4B01007F1C7F LCBS0048RR(B0208B0000B0545B168CB0208B0000B1089BC041B1109BC04AB05A4B00EEB06A07F1B3F LCBS0049RC0808BL%C281B0701B04C2B0705BC28AB130EB06A0C07AEB0116B127BB0207B40607F190F LCBS0050LR(B0460C0620BC204B0228B007AB06A0C0210B0380B04E4B0142B04E4B0118B04E47F1D1F LCBS0051RR(B0106BC264B0016B06A0C0468C0644B06A0C07C6B0006B028AB0000B1601B05837F1D8F LCBS0052RT@R(BC1E4B001CB06A0C046EBC1E4B001CB1303B107DB05A4B00E2B06A0C0782B130E7F160F LCBS0053RR(BC1E4B001CB1308BC264B0016B06A0C0528C0644B06A0C0540B106DB06A0C086A7F193F LCBS0054RN&B16A8B0200C0066B06A0C0836B0380B0581B05A4B00D2B04E4B0142B020AB00047F1D3F LCBSN0055R(BC90AB0110B06A0C08E6B002EB1077B06A0C0782B16DDBD2A4B000CB024ABF0007F15CF LCBS0056RR(B1609B05A4B00DCB0208B0000B06A0C0884B0200C006AB1055B06A0C0884B02007F1D5F LCBS0057RD!C0066B10A5B05A4B00D6BC041B111FB05A4B00EEB0701B04C2B04C3B0705B10187DF191F LCBS0058R(BC041B154DBC264B00C4B0249B7FFFB160AB06A0C07AEB0116B1203B0207B40607F16DF LCBS0059RR(B1017B06A0C086AB1089B06A0C07AEB00FEB1203B0207B4056B100DB05A4B00D87F184F LCBS0060R:B0209B00D8BC909B0060B04E4B0118B04E4B0106B0208B0000B1020B: C264B00167F1DFF LCBS0061R(B06A0C0560C064AB06A0C0566B0207B4051B100BB05A4B00ECBC082B1604B07027F1AEF LCBS0062RR(B0207B4055B1020B04C7B04E4B0100B06A0C080AB06A0C0858B04C3B04E4B001C7F1B0F LCBS0063R0B05A4B00E8B0208C0096B06A0C0944B0380B04CAB1001B0$070AB814AB1303BC0C37F19AF LCBS0064$R(B1134B1062B04E4B010CB05A4B00E6BC082B11E1B04C7B0545B04E4B00FAB06A07F17BF LCBS0065RR(C080AB1002B05A4B00DAB06A0C0798B136FBC908B001AB9828B0004B0000B13037F1A7F LCBS0066R&B0207B4054B10EFB06A0C07C6B0004B028AC&.0534B130AB028AB0000B1604B02027F1CAF LCBS0067.R(B0001B05A4B00D4B06A0C0884B1008B06A0C086AB1353B07D7BD9A4B0140B000A7F19AF LCBS0068RR(B0702B04C3BC224B001AB06A0C0928B0380BC041B1186B05A4B00DAB0207B40517F1AFF LCBS0069R BC082B15A9B06A0C07AEB00F8B81203B0207B4056B10A2B8824B00FAC0002B1AE77F16FF LCBS00708R(BC2A4B0110B081AB1507B1603B020ABFFE0B1003B028ABFFFCB15DCBC90AB01107F12EF LCBS0071RR(B06A0C08E6B002EBC224B001AB10BCB05A4B00DEB1007B06A0C07AEB010AB12037F162F LCBS0072RB0207B4057B1081BB 0703B05A4B00E0B0208C03F0B1086B06A0C0798B16A0BD2A47F1ADF LCBS0073BR(B000CB024ABF000B160AB05A4B00D4B0208B0000B06A0C0884B0200C0078B04607F1D3F LCBS0074RR(C0660B0200C0074B06A0C0836B0380BC224B0058B1306BC0C3B1304B8908B005A7F1CEF LCBS0075RB1601BL%04C8BC208B045BBC1CBBC224B001AB1605BC264B0018B06A0C0626C07AA7F166F LCBS0076LR(BC208B0457BC27BBA244BC1F9B0599BC1C7B1305B81D9B1203B04F9B0599BC2497F130F LCBS0077RR(B045BBC268B000EBC2A8B000CBC1FBBA1C9B079ABC1D7B0247B7FFFB0227B00067F0FAF LCBS0078RT@R(BA1C9B079ABA1E9B0008B0607B079ABD297B024ABFF00B045BBC18BBC264B00167F122F LCBS0079RR(B06A0B0000BC264B0018B06A0C07FABC2C6B1001B04C7BC224B001AB1312B04E47F18BF LCBS0080RN&B001ABC0E8B000EB130ABC268B000CB1305B0799B04F3B0799B04D3B1002B04F37F17AF LCBSN0081R(B04D3B04C3B0460C062CB045BBC204B0228B007AB04E8B000EB04E8B000CB04E87F171F LCBS0082RR(B0004B020AB0800BCA0AB0012B04E8B0014B0460C0512B0200C0040B04C1B04C27F1E7F LCBS0083RD!B04C5B1012B0200C0050B100FB0200C0020BC2A4B005AB1338BC204B0228B007A7DF1DFF LCBS0084R(BC1AAB000EBC1EAB000CB101EB0200C0004BC924B0142B0142B1305B020AB011C7F198F LCBS0085RR(B0209B0014B1003B020AB0130B04C9BA284BA270BC184B0226B00C2BC1E4B006C7F1A6F LCBS0086R:B6286B064AB0269B8000BCD89B04F6BC58AB0226BFFF8BC906B0088B: C907B00867F125F LCBS0087R(BC907B0092BC906B0094BC270BC920B0000B007EBA244B07D7BD999B000ABC9067F15DF LCBS0088RR(B0094B045BBC90AB00A0BC184B0226B0092BC906B0088BC924B006CB0086B04F67F179F LCBS0089R0B04F6B0209B8002BCD89BCD89B0208B0008BCD88B04F6B0$CDBBBC204B0228B007A7F119F LCBS0090$R(BDA20C02E4B0004B04E8B0012BC00BB06A0C0856B0380BC1A8B000EB020CB05007F18DF LCBS0091RR(BC1E8B000CB1030B020CB1300B04E4B0094B04E4B0092B1002B020CB1500BC2447F1C1F LCBS0092R&B0229B00A0BC2A4B0142B130ABC1C4B0227B&.0144BD2B7B1105B1304B098ABDE777F175F LCBS0093.R(B060AB16FDBC1C8BD2B7B098ABDE77B060AB16FDB6244B0229BFF60B0269B80007F100F LCBS0094RR(BC184B0226B0096BCD89B04F6B0208B0008BC588B0226BFFF8BC1E4B006CBC9067F128F LCBS0095R B0088BC907B0086BC204B0228B8007AB020AB0702B07D7BD98AB000AB07D7BCDA47F14EF LCBS00968:B0092B07D7BC5A4B0094BCA0CB0004B0460C09247F6FDF LCBS0097:J304D4ACK0M 304DCACK1M 60140ATM37830094BELM 6013CBTM3787F352F LCBS0098J240000BYTE0240000BYTE13307A6DQUE 30092DSCM60132EDTM3787F338F LCBS0099J 306BAENQC 30750ENQM 3065EEOTM 306B4ETXC 5021EL3780C7F35DF LCBS0100JJ500B8L3780R5021ELCDCMP500B8LCDREQ3061CNAKM301D0QUE 7F2F9F LCBS0101J@301C4RASCOP308D4READOP30802REPALL30832REPERR30352REPORT7F1C2F @ LCBS0102 J40000REPRTE309C0REQNLL302EERSTSOP40000SL278030102SL37807F251F LCBS0103JJ3076ATTDM 30224VECTOR305AAWACKM 30142WASCOP30384WD00807F298F LCBS0104JJ40000WD010040000WD400040000WD800040000WDFFFF303B4WEOFOP7F34CF LCBS0105J(30918WPRMOP306A2WRITOP7F9EEFLCBS0106(D:  LCBSCR  08/25/81 11:49:32  SDSMAC 3.4.0 81.117LCBS0107D5AAWACKM 30142WASCOP30384WD00807F298F LCBS0104JJ40000WD010040000WD400040000WD800040000WDFFFF303B4WEOFOP7F34CF LCBS0105JG5TSKOBJ VCATALOGCCMSG PG?hڧ(ڦGTFR PککoDXABT P  ککDXLCO Poګ+ګOP3780 P' hڮڮDNOPIF P* ګګ[TUK PکTکE CCPAT9 P ڨڧ TUSA Pک@ک! CCMGR Pڦڦ CCPAT2 Ph ڧkڧSCCPATB P ڨgڨN DNOPIS P5\ګګTDDR PککDXSRCV P0Nڬ{ڬXOP2780 PZ+ ڭڭ CI3780 P) ڮ"ڭ EM3780 P+p%Vڮڮ(DXIFC P96ڪڪCCPAT4 Pr ڧڧDXSTCT P  &ڬڬCCSBW P  <ڨڨXTBL PککDXFOPN P7ڪڪDXSTAT PڬڬCCSRQ P(کڨTASKBD P ! \گڮDXRCVQ P " ګګCCPAT6 P| ڧڧTJAP P ^کiکYCI2780 P ) ڭ"ڭ"DNINIT PPMګڪ#DXCFIL P* ڪک"DXWAIT PڬڬEM2780 P+/n$ڭڭ'(CCPAT8 P ڧڧ,CCPAT1 P ]ZڧMڧ--CCPATA P ڨDڨ"3TSWD Pکک4ST2780 Pi8:ڭڭ5CCPAT3 Pm ڧڧo6CCPATC P ڨڨl:DNLCON Pv+ ګWګ/;DXSB P+f!ڬTګ;DXSTID Pڬڬ;ST3780 P7ڮڮ>CCPAT5 Pw ڧڧ@TDNK PککADXSTQ P ڬڬCTSKBID PڬڬDDBASE P+p$HڪwڪFDNEND P ,vڪڪ|GCCPAT7 P ڧڧ@R00046CCMGR A0000B0000C0006B04C3BC088BC062B0000B1301B0412BA0877F265F CCMG0001RR(B8242B1AF9BC043B16F5B2160B0000B130BB2160B0000B130BB9805B0000B13057F1D5F CCMG0002RN&B2FE0B0000B2FE0B0000B10E8B2FE0B0000B1002B2FE0B0000B4160C001CB10E07F1A4F CCMGN0003J30000CMWS 50000COMMGR3000AENTOFS30022H00FE 30042H00FF 7F338F CCMG0004JJ30028HFF 30032NOSUSP3003ETO010030038TO10003002EWANYIO7F306F CCMG0005JB:  CCMGR 08/25/81 11:51:39  SDSMAC 3.4.0 81.117CCMG0006B@R00CAACCMSG A0000B0001B0203B0405B0607B0809BFFFFBFFFFBFFFFBFF0A7F152F CCMS0001RR(B0B0CB0D0EB0F30B3132B3334B3536B3738B3941B4243B4445B4600A0028B26457F1B9F CCMS0002RN&B4F46B0100A002EB000AB0050B0002B0003B1000B0018B2000B4000B00FFB00FE7F1F2F CCMSN0003R(B1C1DB2080B9193BA0BFBC0DFBE0F0B2A20B2C24B3E3CB2328B2931B3919B1B537F118F CCMS0004RR(B4546B541FB1E1DB2D27B3D00A0066B00F0B00F1B00F2B00F3B00F4B0000B00007F198F CCMS0005RD!B0000B0000B00F9B00FAB0000B0001B207FB0004C025EB0000C0C72B0000B00037DF208F CCMS0006R(C025EC0086C0859B0003C025EC0090C0845B0004C025EC0098C0BD8C008AB00047F1B0F CCMS0007RR(C025EC00A0C0CA3C00A4B0003C00AAC0C13C00AEB0003B0000C08DAC025EB00037F18CF CCMS0008R:C025EC03BCC0242B0001C00B2B0003C025EC00CAC0918B0003C025EC: 00D0C09037F1B0F CCMS0009R(B0002C03C5C0246B0002C03F9C0242B0003C025EC00D8C0931B0001C07E4B00037F1E6F CCMS0010RR(C025EC00ECC0990B0002C03CDC0246B0001C0A8CB0003C025EC00F8C09CCB00037F17CF CCMS0011R0C00BAC0942C025EB0002C03D5C0246B0002C03DDC0246B0$0002C03E5C023FB00027F1B9F CCMS0012$R(C03EFC0242B0002C0402C0242B0004C025EC010AC0B6BC00B6B0002C0417C02467F1D1F CCMS0013RR(B0004C025EC0138C0B55C013CB0004C025EC0148C0B95C014CB0004C025EC01527F1B9F CCMS0014R&C0BACC0156B0004C025EC015CC0BC3C0160B&.0003C025EC0166C0A11B0004C025E7F19CF CCMS0015.R(C0170C0B40C016AB0001B0000B0004C025EC0178C0BF8C017CB0004C025EC01867F1C5F CCMS0016RR(C0B1CC018AB0003C025EC0190C09F0B0001C0110B0004C025EC019AC0AF2C01947F1A8F CCMS0017R B0004C025EC01A6C0B02C01AAB80002C040EC0242B0004C025EC01B0C0C8AC01B47F19DF CCMS00188R(B0004C025EC01A0C0C59B0000B0002C01CAC0A2CB0004C025EC01C0C0B81C01C47F19FF CCMS0019RR(B0002C01D2C0A4AB0006C025EC01E2C02C3C01DAC0235C01DEB0006C025EC01EA7F171F CCMS0020RC02E4C01EEC0235CB 01F2B2041B424FB5254B0020B414CB4C00B2041B4C4CB51007F19BF CCMS0021BR(B2041B4E53B0020B4249B4400B2042B4C00B2043B414CB4C00B2043B4500B20437F1F4F CCMS0022RR(B4600B2043B4C52B0020B2D20B434FB4D4DB3D20B003AB2000B3A20B2000B3A207F1B6F CCMS0023RB2020BL%0020B2020B2020B2020B2000B2043B4F4DB0020B434FB4E00B0D0AB00207F1FDF CCMS0024LR(B4354B0020B4355B5200B2044B4953B4352B0020B4449B5343B0020B4500B20457F21CF CCMS0025RR(B4D00B2045B4D33B3738B3000B2045B4D32B3738B3000B2041B4E59B2056B414C7F1BFF CCMS0026RT@R(B4944B2046B4C41B4720B4E55B4D42B4552B0020B2445B4E44B0020B2445B4C537F1B2F CCMS0027RR(B4500B2049B4400B2049B4600B204CB4600B204CB4944B0020B2D20B4C4FB47207F1CDF CCMS0028RN&B4649B4C45B2033B3738B3020B4153B5349B474EB4544B202DB2052B4944B3D007F1B2F CCMSN0029R(B202DB204CB4F47B2046B494CB4520B3237B3830B2041B5353B4947B4E45B44207F1A6F CCMS0030RR(B2D20B5249B443DB0020B4E4FB0020B4F00B204FB4646B0020B4F4EB0020B50527F1A0F CCMS0031RD!B0020B5055B0020B3F00B2052B4200B2052B4553B4554B0020B5249B4400B20527DF221F CCMS0032R(B504EB0020B5250B5200B2052B5052B4400B2052B5052B524CB0020B5250B55007F214F CCMS0033RR(B2052B5055B4400B2052B5055B524CB0020B5352B5100B2053B0020B5345B54007F21CF CCMS0034R:B2053B5300B2053B524CB0020B5354B0020B5400B2054B4153B4B00B: 2054B42497F20BF CCMS0035R(B4400B2024B4F50B5200B2054B4552B4D00B2054B5900B2056B4643B0020B57417F1FCF CCMS0036RR(B4954B0020B5945B5300B2053B5250B5200B2053B5250B5500B2053B5245B43007F21AF CCMS0037R0B2054B5241B494CB4200B2043B4F4DB4D41B4E44B0020B0$4445B5649B4345B00207F1B8F CCMS0038$R(B4C45B4E47B5448B0020B4E55B4D42B4552B0020B4F50B5449B4F4EB0020B50417F18DF CCMS0039RR(B5448B4E41B4D45B0020B5345B5155B454EB4345B0020B4558B4543B5554B45007F1C2F CCMS0040R&B2050B4152B414DB4554B4552B5300B2053B&.5441B5449B4F4EB0020B5052B4F477F1C1F CCMS0041.R(B5241B4D00B2042B4944B204FB5645B5252B4944B4500B2042B4944B2054B48527F1D7F CCMS0042RR(B4553B484FB4C44B2045B5843B4545B4445B4400B2043B4F4DB4D20B4C49B4E4B7F167F CCMS0043R B2053B5441B5449B5354B4943B85300B2052B4543B4549B5645B2053B454EB44007F1DDF CCMS00448R(B2043B4F4EB5645B5253B4154B494FB4E41B4C20B5245B504CB5900B2045B4E517F180F CCMS0045RR(B2054B4852B4553B484FB4C44B2045B5843B4545B4445B4400B2049B444CB45207F1B8F CCMS0046RB5448B5245B5348BB 4F4CB4420B4558B4345B4544B4544B0020B4E41B4B20B54487F1A6F CCMS0047BR(B5245B5348B4F4CB4420B4558B4345B4544B4544B0020B5256B4900B2044B41547F1CFF CCMS0048RR(B4120B5448B5245B5348B4F4CB4420B4558B4345B4544B4544B0020B4249B44207F1CDF CCMS0049RB4143BL%4345B5054B4544B0020B5454B4400B204EB414BB0020B5741B434BB00207F1F0F CCMS0050LR(B454EB5100B2045B4F54B0020B4143B4B00B2054B4552B4D49B4E41B4C20B49447F1A9F CCMS0051RR(B454EB5449B4649B4341B5449B4F4EB0020B5245B4D4FB5445B2054B4552B4D497F175F CCMS0052RT@R(B4E41B4C20B4944B0020B4C4FB4341B4C20B5445B524DB494EB414CB2049B44007F181F CCMS0053RR(B2045B4D50B5459B0020B5245B4345B4956B4520B5052B494EB5420B5155B45557F1CBF CCMS0054RN&B4500B2052B4543B4549B5645B2050B554EB4348B2051B5545B5545B0020B53457F1E5F CCMSN0055R(B4E44B2051B5545B5545B0020B434FB4D4DB2044B4953B434FB4E4EB4543B54457F179F CCMS0056RR(B4400B2043B4F4EB4E45B4354B2049B4E20B5052B4F47B5245B5353B0020B434F7F19BF CCMS0057RD!B4D4DB2049B444CB4500B2050B5249B4D41B5259B2043B4F4DB4D41B4E44B20417DF17BF CCMS0058R(B4343B4553B5320B4E41B4D45B0020B5345B434FB4E44B4152B5920B434FB4D4D7F185F CCMS0059RR(B414EB4420B4143B4345B5353B204EB414DB4500B2043B4F4DB4D20B4445B56497F19CF CCMS0060R:B4345B204EB414DB4500B2054B5241B4E53B5041B5245B4E43B5900B: 2043B4F4D7F1A3F CCMS0061R(B5052B4553B5349B4F4EB2F45B5850B414EB5349B4F4EB0020B454EB4420B4F467F15FF CCMS0062RR(B204DB4544B4941B0020B5245B4345B4956B4520B5041B5448B4E41B4D45B00207F1CDF CCMS0063R0B5345B4E44B2052B4551B5545B5354B0020B5052B494EB0$5420B4649B4C45B20567F1BEF CCMS0064$R(B4643B0020B4249B4420B5441B534BB0020B4F50B4552B4154B4F52B204DB45537F1C8F CCMS0065RR(B5341B4745B0020B5245B5441B494EB2054B5241B494CB494EB4720B424CB414E7F19FF CCMS0066R&B4B53B0020B4449B5343B4F4EB4E45B4354B&.2052B454DB4F54B4500B2042B4C4F7F177F CCMS0067.R(B434BB204CB454EB4754B4800B2053B454EB4420B5245B434FB5244B204CB454E7F186F CCMS0068RR(B4754B4800B2052B4543B4549B5645B2050B5249B4E54B2052B4543B4F52B44207F1CBF CCMS0069R B4C45B4E47B5448B0020B5245B84345B4956B4520B5055B4E43B4820B5245B434F7F1A3F CCMS00708R(B5244B204CB454EB4754B4800B2046B4C41B4753B0020B544FB0020B5052B494D7F1B2F CCMS0071RR(B4152B5920B4C4FB4720B4143B4345B5353B204EB414DB4500B2053B4543B4F4E7F19BF CCMS0072RB4441B5259B204CBB 4F47B2041B4343B4553B5320B4E41B4D45B0020B464CB41477F1ADF CCMS0073BR(B533AB204EB4F4EB4500B2052B4543B4549B5645B2050B5249B4E54B0020B52457F1AAF CCMS0074RR(B4345B4956B4520B5055B4E43B4800B2054B5241B4E53B4D49B5454B494EB47007F1A1F CCMS0075RB2054BL%5241B4E53B4D49B5420B5045B4E44B494EB4700B204AB4F55B524EB414C7F170F CCMS0076LR(B2041B4343B4553B5320B4E41B4D45B0020B5245B434FB5244B5320B5045B52207F1DDF CCMS0077RR(B424CB4F43B4B00B2041B4E59B2056B414CB4944B2054B5241B4E53B4143B54497F195F CCMS0078RT@R(B4F4EB2049B4400B202AB2A2AB2049B4E56B414CB4944B2049B4E50B5554B00207F184F CCMS0079RR(B2A2AB2A20B434FB4D4DB2054B4153B4B20B4F50B4552B4154B4F52B2043B4F4E7F159F CCMS0080RN&B534FB4C45B2049B2F4FB2045B5252B4F52B0020B3130B3031B2049B4E56B414C7F193F CCMSN0081R(B4944B2043B4F4DB4D20B4445B5649B4345B2053B5045B4349B4649B4544B00207F1B6F CCMS0082RR(B3130B3032B2042B454CB4C20B5245B4345B4956B4544B0020B3130B3033B20427F1FCF CCMS0083RD!B4944B2045B5252B4F52B0020B3130B3035B2043B4F4DB4D20B4445B5649B43457DF1BEF CCMS0084R(B204EB4F54B2041B5641B494CB4142B4C45B0020B3130B3036B2049B4E56B414C7F1A7F CCMS0085RR(B4944B2050B524FB4320B5553B4544B2054B4F20B4249B4420B434FB4D4DB20547F1A6F CCMS0086R:B4153B4B00B2031B3030B3720B434FB4D4DB2043B4F4DB4D41B4E44B: 2044B45567F18CF CCMS0087R(B4943B4520B4E4FB5420B4156B4149B4C41B424CB4500B2031B3030B3820B434F7F1B4F CCMS0088RR(B4D4DB414EB442FB4C4FB4720B4649B4C45B2041B5353B4947B4E2FB4F50B454E7F12BF CCMS0089R0B2045B5252B4F52B0020B3130B3039B2043B4F4EB4E45B0$4354B2046B4149B4C457F1B1F CCMS0090$R(B4400B2031B3031B3020B434FB4E4EB4543B5420B5355B4343B4553B5346B554C7F1C3F CCMS0091RR(B0020B3130B3131B2049B444CB4520B4552B524FB5200B2031B3031B3220B494E7F1F3F CCMS0092R&B5355B4646B4943B4945B4E54B204DB454DB&.4F52B5920B464FB5220B434FB4D4D7F153F CCMS0093.R(B414EB4420B494EB5055B5400B2031B3031B3320B4944B0020B3130B3134B20497F1FCF CCMS0094RR(B4E56B414CB4944B2050B4152B414DB4554B4552B5300B2031B3031B3520B4C497F1C5F CCMS0095R B4E45B2044B4953B434FB4E4EB84543B5445B4400B2031B3031B3620B434FB4D4D7F188F CCMS00968R(B204CB4F47B2044B4556B4943B4520B4E4FB5420B4156B4149B4C41B424CB45007F192F CCMS0097RR(B2031B3031B3720B4E4FB2052B4543B4549B5645B2050B4154B484EB414DB45207F1BEF CCMS0098RB5350B4543B4946BB 4945B4400B2031B3031B3920B5345B4E44B2052B4551B55457F1E5F CCMS0099BR(B5354B2043B4F4DB4D41B4E44B2045B5252B4F52B0020B3130B3230B2052B504E7F1B3F CCMS0100RR(B414DB4520B434FB4D4DB414EB4420B4552B524FB5200B2031B3032B3120B54527F1B2F CCMS0101RB414EBL%5341B4354B494FB4E20B494EB2050B524FB4752B4553B5300B2031B30327F1ABF CCMS0102LR(B3220B5452B414EB5341B4354B494FB4E20B4E4FB5420B4F4EB2051B5545B55457F17CF CCMS0103RR(B0020B3130B3233B2054B5241B4E53B4C41B5449B4F4EB2054B4142B4C45B204C7F1AFF CCMS0104RT@R(B4F41B4420B4552B524FB5200B2031B3032B3420B2A2AB2A20B4C4FB4720B51557F1AEF CCMS0105RR(B4555B4520B4655B4C4CB0020B3130B3235B2043B4F4DB4D20B4A4FB5552B4E417F186F CCMS0106RN&B4C20B4649B4C45B204EB4F54B2041B5641B494CB4142B4C45B0020B3130B32367F1A4F CCMSN0107R(B2049B4E56B414CB4944B204AB4F55B524EB414CB2F4CB4F47B2041B4343B45537F15AF CCMS0108RR(B5320B4E41B4D45B5300B2032B3030B3120B492FB4F20B4552B524FB5200B20327F1CBF CCMS0109RD!B3030B3220B4F50B454EB2F50B4F53B4954B494FB4E20B4552B524FB5200B20337DF18AF CCMS0110R(B3030B3120B5245B4345B4956B4544B2053B454EB4420B5245B5155B4553B54207F1E8F CCMS0111RR(B434FB4D4DB414EB4400B2033B3030B3220B5250B4E41B4D45B2043B4F4DB4D417F180F CCMS0112R:B4E44B0020B3430B3031B2052B5052B494EB5420B434FB4D50B4C45B: 5445B00207F1C3F CCMS0113R(B3430B3032B2052B5055B4E43B4820B434FB4D50B4C45B5445B0020B3430B30337F1D2F CCMS0114RR(B2053B454EB4420B434FB4D50B4C45B5445B0020B3830B3031B2052B5055B4E437F1BAF CCMS0115R0B4820B494EB4954B4941B5445B4400B2038B3030B3220B0$5250B5249B4E54B20497F1CEF CCMS0116$R(B4E49B5449B4154B4544B0020B3830B3033B2053B454EB4420B494EB4954B49417F1B7F CCMS0117RR(B5445B4400B2035B3030B3120B5441B534BB2042B4944B2052B4551B5545B53547F1FAF CCMS0118R&B2052B4543B4549B5645B4400B2035B3030B&.3220B4341B4C4CB2052B4554B52597F1E3F CCMS0119.R(B204EB4543B4553B5341B5259B0020B3530B3033B2043B4F4DB4D20B4445B56497F1BDF CCMS0120RR(B4345B204EB4F54B2041B5641B494CB4142B4C45B0020B3530B3034B2053B54417F1CCF CCMS0121R B5449B4320B4255B4646B4552B82041B4C4CB4F43B4154B494FB4E20B4641B494C7F183F CCMS01228R(B4544B0020B3530B3035B2054B4153B4B20B4249B4420B5052B4F43B4553B53457F1EAF CCMS0123RR(B4400B2035B3030B3620B4143B5520B4E4FB5420B4156B4149B4C41B424CB45007F1D2F CCMS0124RB2036B3030B3120BB 5452B414EB5350B4152B454EB4359B2045B5252B4F52B00207F1DEF CCMS0125B" B3730B3031B20007FCADF CCMS0126"J50000ABTBL 50028AMPSND5002AANDEO250028ANDEOF50017ASC0 7F2FCF CCMS0127J@ 50057ASC1 50058ASC9 5004FASCBLK5005CASCE 50059ASCEM 7F37AF @ CCMS0128 J 5005AASCESC5005DASCF 5005BASCS 5005EASCT 5004EASTRSK7F2CBF CCMS0129JJ5004FBLANK 30200CMMSG2301FCCMMSGB50050COMMA 50066CTBL 7F2D1F CCMS0130JJ5002ED10 50030D80 50051DOLLAR5003CEBCBLK50036EBCDLE7F3B0F CCMS0131JJ50059EBCEM 50062EBCENQ50063EBCESC50028EBCETB50003EBCETX7F2A5F CCMS0132JJ50061EBCIGS50060EBCIRS5005FEBCIUS50064EBCNAK5003CEBCSCB7F252F CCMS0133JJ50002EBCSTX50052GTSIGN50000H00 50000H0001 50032H0002 7F402F CCMS0134J50034H0003 500<38H0018 50030H0050 50040H00FE 5003EH00FF 7F49FF CCMS0135<J50001H01 50002H02 50004H04 50006H06 50009H09 7F5ACF CCMS0136JJ50012H0B 50036H10  50036H1000 50042H1C 50043H1D 7F559F CCMS0137J50044H20 5003AH2000 5003CH.40 5003CH4000 50045H80 7F533F CCMS0138.J50046H91 50047H93 50048HA0 50049HBF 5004AHC0 7F533F CCMS0139JJ5004BHDF 5004CHE0 50052HEX 50017HEXTBL5004DHF0 7F433F CCMS0140J,5000AHFF 5000CHFFFF 5007EIDCHK 50055LPAR, EN50053LTSIGN7F2E4F CCMS0141 J5024BNBLK1050248NBLK2 5023FNCOL1 5025ENCRLF 50054POUND 7F2E1F CCMS0142JJ50056RPAREN50202SABORT5050FSACK 50C72SACUNA50209SALL 7F293F CCMS0143J: 5020ESALLQ 50214SANS50889SBDPRC5042ESBDTRX50675SBDTSK7:F22AF CCMS0144J 50845SBELRC50219SBID504E7SBIDAC50859SBIDER50420SBIDOV7F264F CCMS0145JJ5021ESBL 506BCSBLGTH50C33SBTANA50222SCALL 50BF8SCALRE7F267F CCMS0146JH50228SCE 50620SCEM5022CSCF 508DASCLOPN50230SCLR 7F381F CCMS01H47J503BCSCMD 508B2SCMDNA50591SCMDSC50600SCMDVN505B9SCMIDL7F226F CCMS0148JJ50254SCOM 50235SCOMDV50446SCOMLK50C13SCOMNA50259SCON 7F27BF CCMS0149JJ505A4SCONIN50903SCONNF50918SCONNS507F7SCONSL301CESCR20 7F1DCF CCMS0150J301F8SD CRACH5025ESCRLF 50261SCT 50265SCUR 5046ASCVRPY7F29AF CCMS0151DJ 504CESDATX 503C5SDEV50271SDIS 5026ASDISCR506A9SDSCRM7F259F CCMS0152JJ50277SE  502ABSELS5027ASEM 50286SEM2785027ESEM3787F3A2F CCMS0153J 50637SEMO 50554SEMP6 TY502A5SEND 50505SENQ 50480SENQTX7F29AF CCMS01546J5050ASEOT 503F9SEXEC 50718SFLAGS5028ESFLG 50382SGOPR 7F2A2F CCMS0155JJ502B2SID 50931SIDLER50498SIDLTX5096ESIDMSG502B6SIF 7F2A6F CCMS0156J$507E4SINVIN50ACBSINVJL50977SINVPM5$(0AF2SIOERR50821SIVCOM7F130F CCMS0157(J507A2SJRNAN50AA5SJRNNA502BASLF 503CDSLGTH 502BESLID 7F25CF CCMS0158JJ50990SLNDSC50541SLOCAL502E4SLOG27502C3SLOG37509A8SLOGNA7F209F CCMS0159J2 50A8CSLQFUL504FASNAK 504B1SNAKTX509F0SNDCDE50B821SNDCMP7F1C5F CCMS0160J506CASNDLGT50585SNDQUE50657SNDREQ50305SNO  50942SNOBF 7F24AF CCMS0161JJ50869SNOCOM50757SNOFLG503D5SNR 509CCSNRCPN50309SO  7F29EF CCMS0162J@ 5030CSOFF 50311SON 5067FSOPMSG50B02SOPNER50CA3SOPRNO7F238F @ CCMS0163 J503DDSOPT 50402SPARM 505C4SPCACN50B95SPCHIN50665SPFVFC7F214F CCMS0164JJ50417SPGM 50723SPLGAN503E5SPN 50315SPR  50BACSPRTIN7F2CAF CCMS0165JJ50319SPU 5031DSQSL50320SRB 507B7SRCDBL506DESRCPLT7F2D3F CCMS0166JJ50764SRCPRN5055BSRCPRQ506FBSRCPUL50773SRCPUN50570SRCPUQ7F143F CCMS0167JJ50645SRCVPN50B1CSRCVSN5045CSRCXMT5052DSREMOT50324SRESET7F13FF CCMS0168JJ 50691SRETAN5032BSRID50330SRPN 50B40SRPNCD50A11SRPNER7F244F CCMS0169J50335SRPR 50B<55SRPRCM5033ASRPRD 50340SRPRRL50347SRPU 7F235F CCMS0170<J5034CSRPUD 50352SRPURL50359SRTR 504C9SRVI5035ESS  7F2C3F CCMS0171JJ 505E1SSCACN503EFSSEQ50361SSET 5073CSSLGAN503AESSREC 7F249F CCMS0172J5036ASSRL 503A2SSRPR 503A8S.SRPU 50359SSRQ50366SSS 7F2B7F CCMS0173.J5036FSST 5040ESSTID 50373ST  50376STASK 5037CSTBID 7F32AF CCMS0174JJ 503B4STBLNK50C59STBP 50388STERM 5071FSTO  50782STRANS7F261F CCMS0175J,50514STRMID50BD8STSKBD504F5STTD 5038ESTY , 5002CSUSPEN7F219F CCMS0176J 507CASVALID50392SVFC504FFSWACK 50397SWAIT 50A2CSXACTI7F21CF CCMS0177JJ50A4ASXACTN50A69SXLATE50790SXMPND50BC3SXMTIN50612SXPAR 7F16CF CCMS0178J< 50C8ASXPNCY5039DSYES50082VACUNO5008CVBDERR50094VBELRC7F1<CAF CCMS0179J 5009CVBIDTK500B0VBUS 500B8VCLAOE500C0VCMD 500C8VCMMSG7F255F CCMS0180JJ500CCVCONNS500D4VCONNU500DCVDEV 500E2VEXEC 50128VID 7F276F CCMS0181JJ500E8VIDLER501F4VINTL2501E6VINTL3500F0VINVIP500F4VLDISC7F196F CCMS0182J@J 500FCVLGTH 50102VMQF50106VNDSE 5010EVNOBUF50116VNR 7F2CAF CCMS0183JJ 500A6VOPRTK5011CVOPT5012EVPARM 50134VPCHCP5014EVPCHIN7F1F9F CCMS0184JJ 5013EVPGM 50122VPN 50144VPRTCP50158VPRTIN5016CVRCPNE7F253F CCMS0185J50174VRCPNS501<7EVREPLY50182VRETRY50196VRTRER5018CVRTRQ 7F152F CCMS0186<J5019EVSCR 5019EVSCRCH501A2VSDEVE501ACVSDOPE501B6VSTID 7F1E1F CCMS0187JJ501BCVSTRNE501C6VTASKB501D0VXINPG501D6VXMTCP50162VXMTIN7F136F CCMS0188J501E0VXNOQ 30180XREPLY50017ZERO 7F7A5F CCMS0189B:  CCMSG 08/25/81 11:51:53  SDSMAC 3.4.0 81.117CCMS0190B01ACVSDOPE501B6VSTID 7F1E1F CCMS0187JJ501BCVSTRNE501C6VTASKB501D0VXINPG501D6VXMTCP50162VXMTIN7F136F CCMS0188J501E0VXNOQ 30180XREPLY50017Z@R#00202CCPAT1 A0000B0202BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F072F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0011R0BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB0$DEADBDEADBDEADBDEAD7EEB9F CCPA0012$R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0013RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0014R&BDEADBDEADBDEADBDEADBDEADBDEADBDEADB&.DEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0015.R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0016RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0017R BDEADBDEADBDEADBDEADBDEADB8DEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA00188R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0020RBDEAD7FE79F CCPA0021D:  CCPAT1  08/25/81 11:53:16  SDSMAC 3.4.0 81.117CCPA0022DDBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0020RBDEAD7FE79F CC@R#00102CCPAT2 A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F073F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPAT2  08/25/81 11:53:54  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPAT3 A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F072F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPAT3  08/25/81 11:54:22  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPAT4 A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F071F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPAT4  08/25/81 11:54:46  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPAT5 A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F070F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPAT5  08/25/81 11:55:09  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPAT6 A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F06FF CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPAT6  08/25/81 11:55:31  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPAT7 A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F06EF CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPAT7  08/25/81 11:55:54  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPAT8 A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F06DF CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPAT8  08/25/81 11:56:21  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPAT9 A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F06CF CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPAT9  08/25/81 11:56:46  SDSMAC 3.4.0 81.117CCPA0012DMD$ = "",LE,DK99@R#00102CCPATA A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F064F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPATA  08/25/81 11:57:22  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPATB A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F063F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPATB  08/25/81 11:58:06  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R#00102CCPATC A0000B0102BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F062F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010R" BDEADBDEADBDEAD7FBD9F CCPA0011"D:  CCPATC  08/25/81 11:58:35  SDSMAC 3.4.0 81.117CCPA0012DDBDEADBDEADBDEADBDEADB:@R0023ECCSBW A0000B0000C000EB2000B2003B2002B3A02B3A02B43E0B00007F271F CCSB0001RR(B0201B0000BD860B0000B0001B2FD1BD1A1B0001B1308B0206B0008BE3E0C00107F1E9F CCSB0002RN&B04E6B0000B0606B16FABC2ADB0014B022AB000ABCB4AB0014B0206B0006BC2267F187F CCSBN0003R(C002EBD266C0005B0989B06A0B0000B060ABD6A6C0004B0646B15F4B0380C00007F1B5F CCSB0004RR(C0062B43E0C002ABC02DB0000BC06DB0002BC000B132DB020AB000AB9811B00007F1BAF CCSB0005RD!B1309B9811B0000B1325B9811B0000B1605B0581B0600B131FB020AB0010B04C87DF203F CCSB0006R(B9811C007EB131CB3A0ABC209BD271B0989B028AB000AB1303B0289B0046B12037F196F CCSB0007RR(B0289B0039B1B0CB0229BFFD0B1109BD269B0000B1106B0989BA209B1803B06007F19DF CCSB0008R:B16E5B1003B04C0BE3E0C0064BCB40B0000BCB41B0002BCB48B0010B: 0380C005E7F18EF CCSB0009R(C00F8C00E0C00F2C00E4C00ECB0209B0005B1005B0209B0002B1002BC26DB00127F1C6F CCSB0010RR(BC22DB0010BC2ADB0014BA289B058ABCB4AB0014B06A0C0050B060ABD6A0B00007F164F CCSB0011R0B0380C00E8C012EC0118C0124C011CC013CB0208B0005B0$A22DB0010B1002BC22D7F1C5F CCSB0012$R(B0010BC2ADB0014BDEA0C0114B1004BC22DB0010BC2ADB0014B43E0C00D0BD2787F168F CCSB0013RR(B1306B0989BDEB8B0609B16FDBCB4AB0014B0380C0120C015EBC2ADB0014BC22D7F134F CCSB0014R&B0010BDEB8B16FEB060ABCB4AB0014B0380C&.015AC0176BC22DB0004BC228B00087F15BF CCSB0015.R(B0209B0005B0460C0100C0172C01A8C0186C0198C018AC0192BC22DB0010B10037F1F2F CCSB0016RR(BC22DB0010B06C8BC2ADB0014BDEA0C0138B100BBC22DB0010BC2ADB0014BDEA07F124F CCSB0017R C01A4BC1C8B06C8B06A0B0000B8C207B06A0C01BABCB4AB0014B0380C018EC01CC7F148F CCSB00188R(B0201B0000B0208B0000B05C8BC861B0002B0002B1304BC221B0002B0228B00057F229F CCSB0019RR(B0201B0000B0209B0000B05C9BC861B0002B0002B1304BC261B0002B0229B00057F222F CCSB0020RB04E1B000EBC148BB C189B06A0B0000B1602B0721B000EB020AB0000B05CABC1497F19FF CCSB0021BR(BC18AB06A0C020AB1602B0721B000EB0201B0000B04E1B000EBC14ABC188B06A07F199F CCSB0022R,C021EB1602B0721B000EB03807FA73F CCSB0023,.300BCABTBL 5005EASCBN 30096ASTRSK301B2BLANK . 3010EBTDAE 7F2A3F CCSB0024J301CECFCTBL301D2CMDID 30234COMPAR50000DATASC30046DATBUF7F25EF CCSB0025JJ30014DATSCB500E4DECAS2500E8DECAS5500E0DECASC30018H00 7F328F CCSB0026J< 30146H1000 30084HEX 301C0HEXAS25018AHEXASL5018EHEXASR7F2<FAF CCSB0027J50186HEXASW30228JNCTBL30214JNLID 301E8LFCTBL501C8LOGCHK7F21DF CCSB0028JJ301ECLOGID 50118PNSEG 5011CPNSEGB50120PNSEGN301C8SBWS 7F268F CCSB0029J45015ASETSEG50172XIDASC30078ZERO 7F7B5F CCSB00304:  CCSBW 08/225/81 11:59:01  SDSMAC 3.4.0 81.117CCSB0031201E8LFCTBL501C8LOGCHK7F21DF CCSB0028JJ301ECLOGID 50118PNSEG 5011CPNSEGB50120PNSEGN301C8SBWS 7F268F CCSB0029J45015ASETSEG50172XIDASC30078ZERO 7F7B5F CCSB00304:  CCSBW 08/@R00130CCSRQ A0000B0000C0052B0000C0056B0000B0000B0001B0000B00027F2CFF CCSR0001RR(B0000B0000C0078B0000C0080B0000B0000C0092C0018C009AB0000B0000C002C7F24FF CCSR0002RN&B43E0B0000B06A0B0000BC088B1379BCB42B0010BC06DB0018BC02DB0016B02087F1A9F CCSRN0003R(C0000B06A0B0000BC249B136AB0459B0760B0000B0581B0600BC8A0B0000B00087F1F3F CCSR0004RR(B05A0C005CBD8A0B0000B0007B0208C0014B06A0C004ABC249B1357B0459B02097F1C0F CCSR0005RD!B0100BD889B000AB0581B0600B0208C001EB06A0C0070BC249B134AB0459B02097DF1C4F CCSR0006R(B0100BD889B000BB0581B0600B0420B0000B1709B06A0B0000B0208B0000B06A07F20CF CCSR0007RR(B0000B04E0B0000B1037BC888B000CB0581B0600BC220C0054B150CB130BB02087F1DFF CCSR0008R:C000AB06A0C008ABC249B1329B06C9BD889B0005B0581B0600B0720C: 00C0BC1027F1A0F CCSR0009R(B06A0C0032BC0C8B131ABF8E0B0000B0004B06A0B0000BD223B0005B130FBB8A07F19BF CCSR0010RR(B0000B0006BC503BC103BC000B1303B0581B0600B16EAB0208B0000B06A0B00007F1FBF CCSR0011R0B0380BC203B06A0B0000BD222B0006B16F5BC202B06A0C0$011CBE3E0C002EB03807F19FF CCSR0012$J300A0ASCBN 300DEDEVICE30114ENQUE 300E4GETONE300FCH01 7F2E8F CCSR0013JJ 3012CH1000 300ECH20 300F2PNSET 30128RELBUF300CCRPYCK17F32CF CCSR0014J6300A6SCRAVB300AESCRMSG300B2SCRSTF3001ESE30022SO 6 7F300F CCSR0015H3000ASPR 30066SPRI3000ESPU 30000SS30004SSS 7F42AF CCSR0016HJ30014ST  50028TRRQ300AAVINVIP30062XACTID30110XQHP 7F303F CCSR0017J 30028XTWS 7FD36F CCSR0018&:  CCSRQ 08/25/81 12:00:26  S& DSMAC 3.4.0 81.117CCSR0019 30066SPRI3000ESPU 30000SS30004SSS 7F42AF CCSR0016HJ30014ST  50028TRRQ300AAVINVIP30062XACTID30110XQHP 7F303F CCSR0017J 30028XTWS 7FD36F CCSR0018&:  CCSRQ 08/25/81 12:00:26  S&*00200XTBL  A0000A01007FB1AF XTBL0001*450000ATE 50100ETA  50000XTBL 7F8FBF XTBL00024B:  XTBL  08/25/81 12:01:17  SDSMAC 3.4.0 81.117XTBL0003BTITLE: XTBL  *  *  * @* ABSTRACT: INTO THIS RESERVED SECTION@R00200TUSA  A0000B0001B0203B372DB2E2FB1605B250BB0C0DB0E0FB10117F238F TUSA0001RR(B1213B3C3DB3226B1819B3F27B1C1DB1E1FB405AB7F7BB5B6CB507DB4D5DB5C4E7F0E1F TUSA0002RN&B6B60B4B61BF0F1BF2F3BF4F5BF6F7BF8F9B7A5EB4C7EB6E6FB7CC1BC2C3BC4C57F047F TUSAN0003R(BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E8BE94ABE04FB5F6D7F017F TUSA0004RR(B7981B8283B8485B8687B8889B9192B9394B9596B9798B99A2BA3A4BA5A6BA7A87F112F TUSA0005RD!BA9C0B6AD0BA107A0100B0001B0203B0009B007FB0000B000BB0C0DB0E0FB10117DF1ABF TUSA0006R(B1213B0000B0800B1819B0000B1C1DB1E1FB0000B0000B000AB171BB0000B00007F20BF TUSA0007RR(B0005B0607B0000B1600B0000B0004B0000B0000B1415B001AB2020B2020B20207F269F TUSA0008R:B2020B2020B5B2EB3C28B2B5DB2620B2020B2020B2020B2020B2124B: 2A29B3B5E7F1BCF TUSA0009R(B2D2FB2020B2020B2020B2020B7C2CB255FB3E3FB2020B2020B2020B2020B20607F1D7F TUSA0010RR(B3A23B4027B3D22B2061B6263B6465B6667B6869B2020B2020B2020B206AB6B6C7F1B3F TUSA0011R0B6D6EB6F70B7172B2020B2020B2020B207EB7374B7576B0$7778B797AB2020B20207F1A1F TUSA0012$R(B2020B2020B2020B2020B2020B2020B2020B2020B2020B7B41B4243B4445B46477F23AF TUSA0013RR(B4849B2020B2020B2020B7D4AB4B4CB4D4EB4F50B5152B2020B2020B2020B5C207F1AAF TUSA0014R&B5354B5556B5758B595AB2020B2020B2020B&.3031B3233B3435B3637B3839B20207F1F1F TUSA0015.B2020B20207FDBDFTUSA0016 50000TUSA 7FD57F TUSA0017B:  TUSA  08/25/81 12:01:35  SDSMAC 3.4.0 81.117TUSA0018B @P00200TUK A0000B0001B0203B372DB2E2FB1605B250BB0C0DB0E0FB10117F261F TUK 0001PR(B1213B3C3DB3226B1819B3F27B1C1DB1E1FB404FB7F7BB5B6CB507DB4D5DB5C4E7F0DDF TUK 0002RP'B6B60B4B61BF0F1BF2F3BF4F5BF6F7BF8F9B7A5EB4C7EB6E6FB7CC1BC2C3BC4C57F047F TUK 00P03R(BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E8BE94ABE05AB5F6D7F01BF TUK 0004RR(B7981B8283B8485B8687B8889B9192B9394B9596B9798B99A2BA3A4BA5A6BA7A87F112F TUK 0005RF"BA9C0B6AD0BA107A0100B0001B0203B0009B007FB0000B000BB0C0DB0E0FB10117F1FABF TUK 0006R(B1213B0000B0800B1819B0000B1C1DB1E1FB0000B0000B000AB171BB0000B00007F20BF TUK 0007RR(B0005B0607B0000B1600B0000B0004B0000B0000B1415B001AB2020B2020B20207F269F TUK 0008R<B2020B2020B5B2EB3C28B2B21B2620B2020B2020B2020B2020B5D24B2A< 29B3B5E7F1BCF TUK 0009R(B2D2FB2020B2020B2020B2020B7C2CB255FB3E3FB2020B2020B2020B2020B20607F1D7F TUK 0010RR(B3A23B4027B3D22B2061B6263B6465B6667B6869B2020B2020B2020B206AB6B6C7F1B3F TUK 0011R2B6D6EB6F70B7172B2020B2020B2020B205FB7374B7576B772"78B797AB2020B20207F1A2F TUK 0012"R(B2020B2020B2020B2020B2020B2020B2020B2020B2020B7B41B4243B4445B46477F23AF TUK 0013RR(B4849B2020B2020B2020B7D4AB4B4CB4D4EB4F50B5152B2020B2020B2020B5C207F1AAF TUK 0014R(B5354B5556B5758B595AB2020B2020B2020B30(,31B3233B3435B3637B3839B20207F1F1F TUK 0015,B2020B20207FDBDFTUK 001650000TUK 7FD80F TUK 0017@:  TUK 08/25/81 12:02:12  SDSMAC 3.4.0 81.117TUK 0018@20B5C207F1AAF TUK 0014R(B5354B5556B5758B595AB2020B2020B2020B30(@R00200TJAP  A0000B0001B0203B372DB2E2FB1605B250BB0C0DB0E0FB10117F246F TJAP0001RR(B1213B3C3DB3226B1819B3F27B1C1DB1E1FB405AB7F7BBE06CB507DB4D5DB5C4E7F0E3F TJAP0002RN&B6B60B4B61BF0F1BF2F3BF4F5BF6F7BF8F9B7A5EB4C7EB6E6FB7CC1BC2C3BC4C57F047F TJAPN0003R(BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E8BE94AB5B4FB5F6D7F015F TJAP0004RR(B79C1BC2C3BC4C5BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E87F030F TJAP0005RD!BE9C0B6AD0BA107B4040B4040B4040B4040B4040B4040B4040B4040B4040B40407DF1EAF TJAP0006R(B4040B4040B4040B4040B4040B4040B4041B4243B4445B4647B4849B5152B53547F20CF TJAP0007RR(B5556B5881B8283B8485B8687B8889B8A8CB8D8EB8F90B9192B9394B9596B97987F118F TJAP0008R:B999AB9D9EB9FA2BA3A4BA5A6BA7A8BA9AABACADBAEAFBBABBBBCBDB: BEBFB79C17EFB8F TJAP0009R(BC2C3BC4C5BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E8BE9C07F023F TJAP0010RR(B6AD0BA107B0001B0203B0009B007FB0000B000BB0C0DB0E0FB1011B1213B00007F1D1F TJAP0011R0B0800B1819B0000B1C1DB1E1FB0000B0000B000AB171BB0$0000B0000B0005B06077F200F TJAP0012$R(B0000B1600B0000B0004B0000B0000B1415B001AB20A1BA2A3BA4A5BA6A7BA8A97F1BFF TJAP0013RR(B5B2EB3C28B2B5DB26AABABACBADAEBAF20BB020B215CB2A29B3B5EB2D2FB20207F0A1F TJAP0014R&B2020B2020B2020B7C2CB255FB3E3FB2020B&.2020B2020B2020B2060B3A23B40277F1E3F TJAP0015.R(B3D22B20B1BB2B3BB4B5BB6B7BB8B9BBA20BBBBCBBDBEBBFC0BC1C2BC3C4BC5C67F046F TJAP0016RR(BC7C8BC920B20CABCBCCB207EBCDCEBCFD0BD1D2BD3D4BD520BD6D7BD8D9B20207F05AF TJAP0017R B2020B2020B2020B2020BDADBB8DCDDBDEDFB7B41B4243B4445B4647B4849B20207F144F TJAP00188R(B2020B2020B7D4AB4B4CB4D4EB4F50B5152B2020B2020B2020B2420B5354B55567F1B3F TJAP0019RR(B5758B595AB2020B2020B2020B3031B3233B3435B3637B3839B2020B2020B20207F20FF TJAP0020R50000TJAP 7FD65F TJAP0021B:  TJAP  08/25/81 12:02:32  SDSMAC 3.4.0 81.117TJAP0022B50B5152B2020B2020B2020B2420B5354B55567F1B3F TJAP0019RR(B5758B595AB2020B2020B2020B3031B3233B3435B3637B3839B2020B2020B20207F20FF TJAP0020R50000TJAP 7FD65@P00200TFR A0000B0001B0203B372DB2E2FB1605B250BB0C0DB0E0FB10117F269F TFR 0001PR(B1213B3C3DB3226B1819B3F27B1C1DB1E1FB404FB7F7BB5B6CB507DB4D5DB5C4E7F0DDF TFR 0002RP'B6B60B4B61BF0F1BF2F3BF4F5BF6F7BF8F9B7A5EB4C7EB6E6FB7CC1BC2C3BC4C57F047F TFR 00P03R(BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E8BE94ABE05AB5F6D7F01BF TFR 0004RR(B7981B8283B8485B8687B8889B9192B9394B9596B9798B99A2BA3A4BA5A6BA7A87F112F TFR 0005RF"BA9C0B6AD0BA107A0100B0001B0203B0009B007FB0000B000BB0C0DB0E0FB10117F1FABF TFR 0006R(B1213B0000B0800B1819B0000B1C1DB1E1FB0000B0000B000AB171BB0000B00007F20BF TFR 0007RR(B0005B0607B0000B1600B0000B0004B0000B0000B1415B001AB2020B2020B20207F269F TFR 0008R<B2020B2020B5B2EB3C28B2B21B2620B2020B2020B2020B2020B5D24B2A< 29B3B5E7F1BCF TFR 0009R(B2D2FB2020B2020B2020B2020B7C2CB255FB3E3FB2020B2020B2020B2020B20607F1D7F TFR 0010RR(B3A23B4027B3D22B2061B6263B6465B6667B6869B2020B2020B2020B206AB6B6C7F1B3F TFR 0011R2B6D6EB6F70B7172B2020B2020B2020B207EB7374B7576B772"78B797AB2020B20207F1A1F TFR 0012"R(B2020B2020B2020B2020B2020B2020B2020B2020B2020B7B41B4243B4445B46477F23AF TFR 0013RR(B4849B2020B2020B2020B7D4AB4B4CB4D4EB4F50B5152B2020B2020B2020B5C207F1AAF TFR 0014R(B5354B5556B5758B595AB2020B2020B2020B30(,31B3233B3435B3637B3839B20207F1F1F TFR 0015,B2020B20207FDBDFTFR 001650000TFR 7FD88F TFR 0017@:  TFR 08/25/81 12:02:54  SDSMAC 3.4.0 81.117TFR 0018@20B5C207F1AAF TFR 0014R(B5354B5556B5758B595AB2020B2020B2020B30(@R00200TDNK  A0000B0001B0203B372DB2E2FB1605B250BB0C0DB0E0FB10117F244F TDNK0001RR(B1213B3C3DB3226B1819B3F27B1C1DB1E1FB404FB7F4AB5A6CB507DB4D5DB5C4E7F0E2F TDNK0002RN&B6B60B4B61BF0F1BF2F3BF4F5BF6F7BF8F9B7A5EB4C7EB6E6FB7CC1BC2C3BC4C57F047F TDNKN0003R(BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E8BE97BB7C5BB5F6D7F011F TDNK0004RR(B7981B8283B8485B8687B8889B9192B9394B9596B9798B99A2BA3A4BA5A6BA7A87F112F TDNK0005RD!BA9C0B6AD0BA107A0100B0001B0203B0009B007FB0000B000BB0C0DB0E0FB10117DF1ABF TDNK0006R(B1213B0000B0800B1819B0000B1C1DB1E1FB0000B0000B000AB171BB0000B00007F20BF TDNK0007RR(B0005B0607B0000B1600B0000B0004B0000B0000B1415B001AB2020B2020B20207F269F TDNK0008R:B2020B2020B232EB3C28B2B21B2620B2020B2020B2020B2020B245DB: 2A29B3B5E7F1CEF TDNK0009R(B2D2FB2020B2020B2020B2020B7C2CB255FB3E3FB2020B2020B2020B2020B20607F1D7F TDNK0010RR(B3A5BB5C27B3D22B2061B6263B6465B6667B6869B2020B2020B2020B206AB6B6C7F18DF TDNK0011R0B6D6EB6F70B7172B2020B2020B2020B207EB7374B7576B0$7778B797AB2020B20207F1A1F TDNK0012$R(B2020B2020B2020B2020B2020B2020B2020B2020B2020B7B41B4243B4445B46477F23AF TDNK0013RR(B4849B2020B2020B2020B7D4AB4B4CB4D4EB4F50B5152B2020B2020B2020B20207F1C0F TDNK0014R&B5354B5556B5758B595AB2020B2020B2020B&.3031B3233B3435B3637B3839B20207F1F1F TDNK0015.B2020B20207FDBDFTDNK0016 50000TDNK 7FD63F TDNK0017B:  TDNK  08/25/81 12:03:18  SDSMAC 3.4.0 81.117TDNK0018BB20207F1C0F TDNK0014R&B5354B5556B5758B595AB2020B2020B2020B&@R00200TDDR  A0000B0001B0203B372DB2E2FB1605B250BB0C0DB0E0FB10117F247F TDDR0001RR(B1213B3C3DB3226B1819B3F27B1C1DB1E1FB404FB7F4AB5A6CB507DB4D5DB5C4E7F0E2F TDDR0002RN&B6B60B4B61BF0F1BF2F3BF4F5BF6F7BF8F9B7A5EB4C7EB6E6FB7CC1BC2C3BC4C57F047F TDDRN0003R(BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E8BE97BB7C5BB5F6D7F011F TDDR0004RR(B7981B8283B8485B8687B8889B9192B9394B9596B9798B99A2BA3A4BA5A6BA7A87F112F TDDR0005RD!BA9C0B6AD0BA107A0100B0001B0203B0009B007FB0000B000BB0C0DB0E0FB10117DF1ABF TDDR0006R(B1213B0000B0800B1819B0000B1C1DB1E1FB0000B0000B000AB171BB0000B00007F20BF TDDR0007RR(B0005B0607B0000B1600B0000B0004B0000B0000B1415B001AB2020B2020B20207F269F TDDR0008R:B2020B2020B232EB3C28B2B21B2620B2020B2020B2020B2020B245DB: 2A29B3B5E7F1CEF TDDR0009R(B2D2FB2020B2020B2020B2020B7C2CB255FB3E3FB2020B2020B2020B2020B20607F1D7F TDDR0010RR(B3A5BB5C27B3D22B2061B6263B6465B6667B6869B2020B2020B2020B206AB6B6C7F18DF TDDR0011R0B6D6EB6F70B7172B2020B2020B2020B207EB7374B7576B0$7778B797AB2020B20207F1A1F TDDR0012$R(B2020B2020B2020B2020B2020B2020B2020B2020B2020B7B41B4243B4445B46477F23AF TDDR0013RR(B4849B2020B2020B2020B7D4AB4B4CB4D4EB4F50B5152B2020B2020B2020B20207F1C0F TDDR0014R&B5354B5556B5758B595AB2020B2020B2020B&.3031B3233B3435B3637B3839B20207F1F1F TDDR0015.B2020B20207FDBDFTDDR0016 50000TDDR 7FD66F TDDR0017B:  TDDR  08/25/81 12:03:41  SDSMAC 3.4.0 81.117TDDR0018BB20207F1C0F TDDR0014R&B5354B5556B5758B595AB2020B2020B2020B&@R00200TSWD  A0000B0001B0203B372DB2E2FB1605B250BB0C0DB0E0FB10117F233F TSWD0001RR(B1213B3C3DB3226B1819B3F27B1C1DB1E1FB404FB7F4AB5A6CB507DB4D5DB5C4E7F0E2F TSWD0002RN&B6B60B4B61BF0F1BF2F3BF4F5BF6F7BF8F9B7A5EB4C7EB6E6FBE0C1BC2C3BC4C57F04CF TSWDN0003R(BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E6BE7E8BE97BB7C5BB5F6D7F011F TSWD0004RR(B7981B8283B8485B8687B8889B9192B9394B9596B9798B99A2BA3A4BA5A6BA7A87F112F TSWD0005RD!BA9C0B6AD0BA107A0100B0001B0203B0009B007FB0000B000BB0C0DB0E0FB10117DF1ABF TSWD0006R(B1213B0000B0800B1819B0000B1C1DB1E1FB0000B0000B000AB171BB0000B00007F20BF TSWD0007RR(B0005B0607B0000B1600B0000B0004B0000B0000B1415B001AB2020B2020B20207F269F TSWD0008R:B2020B2020B232EB3C28B2B21B2620B2020B2020B2020B2020B245DB: 2A29B3B5E7F1CEF TSWD0009R(B2D2FB2020B2020B2020B2020B7C2CB255FB3E3FB2020B2020B2020B2020B20607F1D7F TSWD0010RR(B3A5BB5C27B3D22B2061B6263B6465B6667B6869B2020B2020B2020B206AB6B6C7F18DF TSWD0011R0B6D6EB6F70B7172B2020B2020B2020B207EB7374B7576B0$7778B797AB2020B20207F1A1F TSWD0012$R(B2020B2020B2020B2020B2020B2020B2020B2020B2020B7B41B4243B4445B46477F23AF TSWD0013RR(B4849B2020B2020B2020B7D4AB4B4CB4D4EB4F50B5152B2020B2020B2020B40207F1BEF TSWD0014R&B5354B5556B5758B595AB2020B2020B2020B&.3031B3233B3435B3637B3839B20207F1F1F TSWD0015.B2020B20207FDBDFTSWD0016 50000TSWD 7FD52F TSWD0017B:  TSWD  08/25/81 12:04:00  SDSMAC 3.4.0 81.117TSWD0018BB40207F1BEF TSWD0014R&B5354B5556B5758B595AB2020B2020B2020B&@R001DCDXABT A0000B0000C0004BC000B1609B06A0B0000B0208B0000B02097F277F DXAB0001RR(C001EB0420B0000B0380B0581B0600B04E0B0000B05A0B0000B06A0B0000BC0007F21AF DXAB0002RN&B13EDB9811B0000B13F3B0208C01BAB06A0B0000BC249B160EB0420B0000B17097F1B7F DXABN0003R(B06A0B0000B0208B0000B06A0B0000B04E0B0000B10D8B0460C008AB0699B04607F1FBF DXAB0004RR(B0000BC820C006EB0000B0420B0000B0380C0060B0208C01BAB06A0B0000B06A07F201F DXAB0005RD!C0048B0208C01D8B06A0C0050B04E0C0054B10BFB0207B0006B0647B112FBC2677DF1B5F DXAB0006R(C0188B0229BFFFEBC289BC26AB0002B13F6B8A48B0008B16F9B9829B0007B00007F14FF DXAB0007RR(B1416BC227C018EB8609B1308BCAA9B0002B0002BC209B06A0B0000B0460C006E7F1A6F DXAB0008R:B9829B0007B0000B1603BDA60B0000B0007B0206B0000B100CB06A0C: 007AB02087F1FAF DXAB0009R(C004CB06A0C0082B04E0C0086B0460C00C6B0206B0000B06A0C00DEB020AB00007F1CDF DXAB0010RR(B0420B0000BD6A0C00D2BC206B0209C00EAB0420B0000B0460C00EEB04C5BC2207F1ACF DXAB0011R0B0000B1623B101EB0205B0002BC220B0000B161DB1018B0$0205B0002BC220C01227F220F DXAB0012$R(B1303B06A0C0168B1002B06A0C0194B04C5BC220C0116B1303B06A0C0168B10027F1EBF DXAB0013RR(B06A0C0194B0205B0004BC220B0000B1604B06A0C0194B0460C0110B06A0C01687F202F DXAB0014R&B0460C015EBC30BB06A0C00F6B020AC00FAB&.0420C00FEBD6A0C0102B0208C00D87F16AF DXAB0015.R(B0209C0108B0420C010CB045CB0000B0000B0000B0000B0000B0000BC30BBC1E57F20DF DXAB0016RR(C0188BC187B0226BFFFEBC1A6B0002B1308B9826B0007C00ACB1404BC206B06A07F160F DXAB0017R C00C2B10F5BC5C6B045CB0000C80062B0000B0000B0000C0128B0000C011CB00007F205F DXAB00188:C0112B0000C014EB0000C0070B0000B0001B00007F790F DXAB0019:J50004ABORT 30028ABTCHK301C0ABTTSK30042ASCBN 30030ASTRSK7F270F DXAB0020J230000CIWS 30166CMDXIT40000CMOPCL40000CONNFL300224CSMSAF7F27BF DXAB0021J30174DATASC3006ADSCCAL30066FTERM 30178H00 301AAHF0 7F38AF DXAB0022JJ30184MSGSTF50000OVABT 30140PCHSTS30190PRCCB 30016PROMPT7F234F DXAB0023J@3018APRQHP 3012EPRTSTS3018EPUCCB 30188PUQHP 300CCR$PRI 7F22CF @ DXAB0024 J30192RDRCCB301B2RELBUF3000ARPYAVB3003ARPYCHK30076RPYQSL7F1B7F DXAB0025JJ30020SACMD 301C2SALLQ 30154SAXMT 301BASCOM 30170SCRACH7F2C4F DXAB0026JJ3016CSCRAVB300E6SCRMSG30180SCRSTF301D2SQSL 301C6SRPR 7F22CF DXAB0027JH 301CASRPU 301CESS301BESTASK 301DASVALID300E2VINVIP7F262F DXAB0028H>3000EVOPT 3017CVXINPG300F2VXNOQ 3018CXQHP7F4F7F DXAB0029>B:  DXABT 08/25/81 12:04:17  SDSMAC 3.4.0 81.117DXAB0030B 301C6SRPR 7F22CF DXAB0027J@R#002E6DXCFIL A0000B0000C0008C0000C0158B0204B0000BC154B06A0B00007F25CF DXCF0001RR(BC0C8BC000B1609B06A0B0000B0208B0000B0209C002EB0420B0000B0380B05817F1FBF DXCF0002RN&B0600B06A0B0000BC000B1356B58E0B0000B0004B06A0B0000BD223B0005B13077F208F DXCFN0003R(BC000B130EB9811B0000B1602B0600B1309B06A0B0000B0208B0000B06A0B00007F21CF DXCF0004RR(B04E0B0000B10D9B06A0C02ACB9820B0000B0000B1614BD920B0000B0008BD0237F1DBF DXCF0005RD!B0005B0980BC043B0221B0006B0420B0000B1808B0A88BD908B0004BD948B00037DF1E7F DXCF0006R(BD920B0000B0008BC903B0002BC204BD924B0008B0008B162AB06A0B0000B22607F1E0F DXCF0007RR(B0000B1625BD964B0007B0003BD924B0010B0008B06A0C0056B020AB0000B04207F208F DXCF0008R:B0000BD6A0C0074B0208B0000B0209C0062B0420B0000BC204B06A0B: 0000B10057F21EF DXCF0009R(B06A0C02B2BD964B0007B0003B04E4B0002BC203B06A0B0000B0420B0000B102A7F1E8F DXCF0010RR(B0209C00D4B020AC00C4B0420C00C8BD6A0C00CCB04C8B2FE0B0000BD220B00007F188F DXCF0011R0B020AB0000B0420B0000BD6A0C010AB020AB0000B0208B0$0000B05C8B0420B00007F215F DXCF0012$R(BD6A0C0120B0208B2200B8808B0000B1603B0208B0000B1002B0208B0000B04207F233F DXCF0013RR(C00F8B0420C00D8B05A0B0000B0460B0000B0204B0000BC154B06A0C0010BC0C87F1E3F DXCF0014R&BC000B1609B06A0C001AB0208C001EB0209C&.017EB0420C0026B0380B0581B06007F1EAF DXCF0015.R(B06A0C0030BC000B1353B58E0C0038B0004B06A0C003EBD223B0005B1307BC0007F1D5F DXCF0016RR(B130EB9811C004CB1602B0600B1309B06A0C00C0B0208C005AB06A0C005EB04E07F1B8F DXCF0017R C00FEB10D9B06A0C02ACB9820C8006CC006EB1614BD920C0132B0008BD023B00057F186F DXCF00188R(B0980BC043B0221B0006B0420C0086B1808B0A88BD908B0004BD948B0003BD9207F1BEF DXCF0019RR(C0096B0008BC903B0002BD824B0008B0000BC204BD924B0008B0008B1636B06A07F1D9F DXCF0020RC00AAB2260C00AEBB 1631B06A0C01A6B020AC0102B0420C0106BD6A0C01C4B02087F1ADF DXCF0021BR(C00D0B0209C01B2B0420C014EBC204B06A0C00DEB1002B06A0C02B2BD924B00097F1A1F DXCF0022RR(B0009B1302B0720B0000B04E4B0002BD924B0010B0008BD824B0010C01F2BC2037F1F7F DXCF0023RB06A0CL%00F4BD964B0007B0003B0209B0000BDA64B0007B0003BDA64B0007B00017F1D1F DXCF0024LR(B1016B0209C025ABDA64B0004B0003BDA64B0004B0001BC26AB0006B130BB02897F1BEF DXCF0025RR(B0001B1306B0289B0005B1303B04E0C023AB1002B0720C028EB0420C014AB05A07F1F6F DXCF0026RTR(C0152B0460C0156BC820C02AAB0000B0380C02ACBC225B0004B11F8BC30BBC2247F198F DXCF0027RR(B0002B1607BC925B000CB000ABC925B000EB000CB100EB06A0C0250BC204BD9247F19CF DXCF0028RJB0008B0008B1602B06A0C0228B04E4B0002BD924B0010B0008B045C7F40FF DXCF0029JRN@J30180ABTCHK3026CAIOSCB301D6ASCBN 3019CASTRSK40000BSNA 7F28CF DXCF0030JJ 3015ACFCTBL30004CIWS30294CMDDEV50158CMDFIL302A0CMDXIT7F26EF DXCF0031JJ30124CMMSG230118CMMSGB301BCCODEV 30128COMID 3029CCSMSAF7F26EF DXCF0032J3024ACSMWDF302<12DATASC3013ADSRFLG301BEDX10 302D8FILCLS7F263F DXCF0033<J30200FILOPN30160GETB1 30216H00 30188H20  30204H4000 7F468F DXCF0034JJ 3011CHEXASL301E6HFF 3000ALFCTBL30298LOGCHK50008LOGFIL7F286F DXCF0035J40000LOGFLG40000LOGITC30222M.SGSTF50004OVCMDF50000OVLOGF7F21DF DXCF0036.J3012EPNSEGN3018EPNSET 30176PROMPT302CARELBUF3016ARPYAVB7F19DF DXCF0037JJ302A6SACMD 3020ESCRACH3020ASCRAVB301AESCRMSG3021ESCRSTF7F1E7F DXCF0038J,30110SELFID30114TASKRT3021AVCLAOE30146VINT, L230140VINTL37F215F DXCF0039 ( 301AAVINVIP3016EVPN 7FA74FDXCF0040(D:  DXCFIL  08/25/81 12:04:53  SDSMAC 3.4.0 81.117DXCF0041D20ASCRAVB301AESCRMSG3021ESCRSTF7F1E7F DXCF0038J,30110SELFID30114TASKRT3021AVCLAOE30146VINT,@R008F0DBASE A0000C028CC0006C0010B0420B0000A000ABE064BF110B02007F273F DBAS0001RR(A0010B0420B0000B0380B0400A0018B0030A001AA004CB0030A004EA0080B00307F243F DBAS0002RN&A0082A00B4B000AA00B6A00C2B000AA00C4A00D0C072AB0000B2603B0100B00007F1F4F DBASN0003R(B0000B0000B0000B0000C0752B0000B2703B0200B0000A00EAA00F2B0000C077A7F236F DBAS0004RR(B0000B2803B0200B0000A00FCA0106B0000B0000B0F23B8023B0000B0000B00007F24AF DBAS0005RD!B028DB0000B0000B0000B0000B0000B0001B0001B0002B0000A0128B0000B00007DF283F DBAS0006R(A012CC0108B0000B0F22B8022B0000B0000B0000B028DB0000B0000B0000B00007F24CF DBAS0007RR(B0000B0002B0000B0002B0000A014EB0000B0000A0152B0000C012EB0000B0F217F259F DBAS0008R:B8021B0000B0000B0000B008DB0000B0000B0000B0000B0000B0000B: 0002B00017F285F DBAS0009R(B0000A0176B0000B1100A017AB0000B0000B0000B0000B0000B0000B0000B91007F27EF DBAS0010RR(A018AA0196B0000A0198A019CB0000A019EA01A2B3000A01A2A01D4A01D6A01D87F1C5F DBAS0011R0B3100B0000B0000B0000B0000B0000B0000B0000B2B00B0$0000B0000B0000B00007F297F DBAS0012$R(B0000B3F00B8580B0001B010EB0000B0000B0000B0000B1400B0000B0000BFF007F239F DBAS0013RR(A020CB2E00B0000B0000A0212B0000B0000B0000B4A00B0000B0000B0000A02207F268F DBAS0014R&A0222A0224A0244A0246A0248C0264B0000A&.024CA024EB0000B0002B0004C02647F230F DBAS0015.R(C0284C06A4A025AA025CA025EA0260A0262A0264C04E0B0000C0506B0000C02D87F1D9F DBAS0016RR(B0000C02D8B0000C02D8B0000C02D8B0000C028CB0000C026CB0000A0284A028C7F1EFF DBAS0017R B0000B0000B0000A0292A0294A80296A0298A029AA029CA029EA02A0A02A2A02A47F1E0F DBAS00188R(A02A6A02A8A02AAA02ACB0000A02AEB0000B0000B0000B0000B0001B0000B00007F20DF DBAS0019RR(B0000B0000B0000B0000C0160B0000B0000B0000B0000B0000B0000B0000B00007F2A7F DBAS0020RB0000A02D8A02DAAB 02DCA02DEC02F8C077AC0752C072AA02E6A02E8A02EAA02EC7F125F DBAS0021BR(A02EEA02F0A02F2A02F4A02F6A02F8A0338B0000B0000B0000B0000B0000A03427F1E8F DBAS0022RR(A0342B0020A0344A03C0A03C2B0D0AA03C4A0410B0D0AA0412A049EB0000B00007F1E1F DBAS0023RB0000BL%0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF DBAS0024LR(B0000BFFFFB0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F257F DBAS0025RR(B0000B0000B0000B0000B0000C0266C0602C0658C0108B0000B0000B0000B00007F279F DBAS0026RT@R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000C026AC05D27F279F DBAS0027RR(C0668C0156B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F28DF DBAS0028RN&B0000B0000B0000B0000A052CA054CB0000B0020B0082B0000B0000B0000B00007F26FF DBASN0029R(B0000B0000B0000B0000B0000B0820B0002B0000B0000B0000B0000B0000B00007F2A3F DBAS0030RR(B0000B7000B0000B0D20B0082B0000B0000B0000B0000B0000B0000B0000B00007F288F DBAS0031RD!B0000B0D20B0082B0000B0000B0000B0000B0000B0000B0000B0000B0000B05207DF288F DBAS0032R(B0082C0412B007CB007CB0000B0000B0000B0000B0000B0000B0B20B0082B00007F24BF DBAS0033RR(B0000C05C2B0000B0000B0000B0000B0000C05EAB0000B0C20B0082B0000B00007F249F DBAS0034R:C05DAB0000B0000B0000B0000B0000C05D2B0000B0C20B0082B0000C: 05DCC05F27F1FEF DBAS0035R(B0000B0000B0000B0000B0000C061AB0000B0A20B0082B0000C05F4C060AB00007F241F DBAS0036RR(B0000B0000B0000B0000C0602B0000B0A20B0082B0000C060CC0622B0000B00007F264F DBAS0037R0B0000B0000B0000B0000B0300B0000B0000B0000B0000B0$0000B0000B108DB00507F28AF DBAS0038$R(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0B00B00807F295F DBAS0039RR(C05C0B0000C0660B0000B0000B0000B0900B0080B0000B0000C0670B0000B00007F26AF DBAS0040R&B0000B0000B0000B0000B0000B0000B0000B&.0000B0000B0000B0000B0000B00007F2AFF DBAS0041.R(B0000B0000B0000B0000B0000B0000B0000B0000B0003B0200B000AB0F00B80007F27BF DBAS0042RR(B0000B0000B0100B0000B3600B0000B0200B0002B0200B0014B0978B2100B00007F27FF DBAS0043R C06CCB0000C06CCB2A2AB2A20B83337B3830B2F32B3738B3020B5752B4954B45207F191F DBAS00448R(B4552B524FB5220B544FB204CB4F47B2045B5252B3D20B2020B202AB2A00A06F87F193F DBAS0045RR(C06FAB2E2AB2A20B3337B3830B2F32B3738B3020B5752B4954B4520B4552B524F7F188F DBAS0046RB5220B544FB204ABB 4F55B524EB414CB2045B5252B3D20B2020B202AB2A00A072A7F195F DBAS0047BR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000A07427F2A3F DBAS0048RR(A0752B0000B0000B0000B0000B0000B0000B0000B0000B0205B0000B0000B00007F29BF DBAS0049RA076AAL%077AB0000B0000B0000B0000B0000B0000B0000B0000B0225B0000B00007F26BF DBAS0050LR(B0000A0792A07A2B0000A07A4A081CB0000A081EA086EA088EB5000A088EA08E07F1A7F DBAS0051R:B0300C08E4A08E4A08E6A08E8A08EAA08ECA08EE7F6A1F DBAS0052: 502AEABRPY 502B2ABRT6FL50562ABTCOM50010ABTTSK500C2ACUAD 7F249F DBAS00536J5067AACUCAL50692ACUCNT502D6ACUCRU506A8AIOSCB50212BDINFO7F204F DBAS0054JJ30608BF1COM305D8BF1SPA30620BF2COM305F0BF2SPA50698BFTEMP7F275F DBAS0055J$504C0BIDWS 502BEBLKSIZ302BEBLMAX 5$(0686BNRY 3021CBTALGT7F23CF DBAS0056(J501F5CERR 500D0CFCTBL501FECFLAG 5028CCIWS 30008CLINIT7F2B1F DBAS0057JJ60024CLUNO 502B4CMDDEV500D8CMDFLG50018CMDID 500D7CMDLUN7F25CF DBAS0058J25072ACMDSCB507B8CMMSG2507A4CMMSGB507A2CMMSGF506A20CMPNUM7F1DDF DBAS0059J50244CMWS 502ACCNDFLG50215CODEV 500B4COMID 60020COMLUN7F29CF DBAS0060JJ50682COMPR 50186COMSCB50678CONNFL5024ACSMSAF5024ECSMWDF7F201F DBAS0061J@5000CD$PRI 508E4DATBUF508E0DATSCB50216DEALOC302C8DEFRPB7F256F @ DBAS0062 J302C6DEFVFC504BEDEVICE5000EDX10 60002ENTOFS50219ERRBTA7F26EF DBAS0063JJ501E8EXECTK502D0FBTRL 500D2FCFIL 502BAFCPEX 502D2FDISCR7F246F DBAS0064JJ500F6FJFIL 500E4FLFIL 502C6FLGVFC50630FMPSVC50340FREPLY7F22FF DBAS0065JJ 5068EFRESET502C0FRPN502BCFRTRQ 502CAFTBID 502C2FTERM 7F24FF DBAS0066JJ502B8FXPAR 501F4GTCTRY305C4IDSIZE3066EINPBUF30672INPMAX7F1ACF DBAS0067JJ502D4INTFLG506A2INTNUM502B0ITCQUE500F4JNCTBL50723JNERR 7F1CBF DBAS0068J500FCJNLFLG500<80JNLID 500FBJNLLUN5077AJNLSCB500F8JNLUN 7F1E6F DBAS0069<J60028JNLUNO506F8JNMSG 50204LDOVLY500E2LFCTBL500E6LFLUN 7F1F2F DBAS0070JJ506F1LGERR 506CALGMSG 60025LLUNO 500EALOGFLG5004CLOGID 7F24AF DBAS0071J500F2LOGITC500E9LOGLUN50752L.OGSCB50218MODBTA5021CMODLGT7F1D0F DBAS0072.J503C4MSGBF2503C2MSGBUF50410MSGEND5069EMSGFLG502DEMSGQEC7F1D7F DBAS0073JJ60010MSGQL 502F8MSGQUE50338MSGQX 5017AMSGTAB5052CMSWS 7F22FF DBAS0074J, 506C0NOSUSP502D8OIWS 5054COPNCOM3055COTO , 3065EOUTBUF7F217F DBAS0075J30662OUTMAX50284OVR12 50205OVYERR50208OVYNBR50412PARBUF7F1EFF DBAS0076JJ5048APAREND5012EPCHDB 30138PCHRL 5012EPCHSTS501D8PGMID 7F252F DBAS0077J<50118PRCCB 5011APRCPN 5033EPRPSAD5033CPRPVEC50116PRQHP 7F2<35F DBAS0078J5011CPRRCT 50108PRTDB 30112PRTRL 50108PRTSTS5013EPUCCB 7F246F DBAS0079JJ50140PUCPN 5013CPUQHP 50142PURCT 50222QBUFCT50220QBUFMX7F239F DBAS0080JJ5000BR$MAX 5000AR$PRI 60002RBUF 30624RBUFSZ50694RCVEND7F2B3F DBAS0081J@J5068ARCVETX5068CRCVVFC50690RCVXP 50668RD1INP50166RDRCCB7F1D9F DBAS0082JJ50168RDRCPN50156RDRDB 5016CRDROVR5016ARDRRCT302C4RDRRL 7F1EFF DBAS0083JJ50152RDRSTS505A4RDSCOM502C8RECBLK5068ERENDFL50344REPLY 7F1CFF DBAS0084J50688RERROR501<12RPRRL 50138RPURL 5028CRPYCCT503C0RPYEND7F1BDF DBAS0085<J 5028ERPYPTR50224RQWS504E0RWSP 50500RWSP1650502RWSP177F243F DBAS0086JJ50504RWSP18502CES$FLAG5027ESACMD 5026ESALOG 50272SAOPC 7F28DF DBAS0087J50282SAOVR 50266SARCV 5027AS.ARPC 50276SARPY 501D4SAVR0 7F286F DBAS0088.J501D6SAVR11508EESAVR5 5026ASAXMT 5086ESBWS 50828SCR10 7F2A1F DBAS0089JJ50832SCR20 5081ESCRACH5081CSCRSTF5020CSELFID502CCSOPRBD7F208F DBAS0090J, 302CCSOPRF 50224SOWS 5000DSPRI 5069CSREC, FL50128SRPRFL7F245F DBAS0091 J 5014ESRPUFL5069ASSFL3068CSSPMSG50438STACKR50436STACKX7F1C4F DBAS0092JJ5041ASTACU 50424STBDAR50422STBDAX50448STBID050442STBIDO7F22DF DBAS0093J:50420STBIDR5041ESTBIDX50417STCHNL50440STCONV50418STCRU 7:F1CFF DBAS0094J5041DSTCTRL5046CSTDAT050416STDSR 5045ASTENQ050460STENQ17F1E8F DBAS0095JJ50434STENQR50432STENQX5043CSTEOTR5043ASTEOTX5046ESTID 7F19FF DBAS0096JH50466STIDLT50414STKSB 50412STLEN 5044ESTNAK050454STNAK17F232F DBAS00H97J5042CSTNAKR5042ASTNAKX5043ESTRVIR50428STTTDR50426STTTDX7F134F DBAS0098JJ50430STWAKR5042ESTWAKX5021ASUBBTA501A2SYNBSZ506C2SYSLOG7F152F DBAS0099JJ506C6SYSMSG5020ETASKID5020DTASKRT5020FTASKST506A4TDSCB 7F198F DBAS0100J508E8TDIMBUF5088ETMPMSG50696TMPVEC506B8TO0100506BCTO10007F220F DBAS0101DJ50680TRANSP50016TRMSCB30012TSKTRM302D0UBLKTL302BAUCPEX 7F1B8F DBAS0102JJ302D2UDISCR302C0UDPNS 302BCURTRQ 302CAUTBID 302B8UXPAR 7F1FAF DBAS0103J 3017AVPCHCP30180VPCH6IN3017CVPRTCP30182VPRTIN3017EVXMTCP7F175F DBAS01046J30184VXMTIN506B0WAITIO506B4WANYIO506B2WATPRB50578WBDCOM7F17DF DBAS0105JJ50658WD1OUT5058EWETCOM505BAWIDCOM502B6XACTID50684XMTRCS7F183F DBAS0106J$50160XMTRLN5067CXMTRPB5067EXMXRPB5$(0164XQHP 502C4XRECL 7F1D1F DBAS0107(J 50343XREPLY5081EXSCR5085AXSCR6050824XSPN1 5086CXSPNE 7F239F DBAS0108JJ5081EXSTA1 5081EXSXID 30206XTBL 5049EXTWS 50526XWSP167F285F DBAS0109J(50528XWSP175052AXWSP187FA43FDBAS0110(: > DBASE 08/25/81 12:05:43  SDSMAC 3.4.0 81.117DBAS0111>5085AXSCR6050824XSPN1 5086CXSPNE 7F239F DBAS0108JJ5081EXSTA1 5081EXSXID 30206XTBL 5049EXTWS 50526XWSP167F285F DBAS0109J(50528XWSP175052AXWSP187FA43FDBAS0110(: @R00156DNEND A0000B0380A0002B0000C0006BC220B0000BC618B1305B02087F292F DNEN0001RR(C0006BC808B0000B0380B0208B0000BD028B0004B1306B1505B0208C0018BC8087F202F DNEN0002RN&C0014B0380B0208B0000BD028B0004B1306B1505B0208C002EBC808C002AB03807F1F9F DNENN0003R(B0208B0000BC028B0002B1302B06A0C0100B0208B0000BC028B0002B1302B06A07F221F DNEN0004RR(C0100B0208B0000BC028B0002B1302B06A0C0100BD020B0000B1604B0208C00467F22FF DNEN0005RD!B06A0C00FABD020B0000B1608B9820B0000B0000B1304B0208C0054B06A0C00FA7DF1DDF DNEN0006R(BD020B0000B1607B0208C0062BC028B0002B1302B06A0C00FABC220B0000B11147F1F6F DNEN0007RR(BC220B0000B1603BC220B0000B1302B2FE0B0000B0209B0000BDA60B0000B00027F20CF DNEN0008R:BDA60B0000B0005B2FD9BDA60B0000B0002B0209C00BEB2FD9B0420C: 011EBC8207F17AF DNEN0009R(B0000C00E0B1308BD820C00C2B0000BD820C00C8B0000B2FE0B0000B2FE0B00007F1C5F DNEN0010RR(BDA28B0007B0004B0209B0000BDA68B0004B0003BDA68B0004B0001B2FD9BD2687F19FF DNEN0011R0B0004B1302B0460B0000B045BB0000C0122B0203B0000B0$06A0B0000BC0E3BFFFE7F1DCF DNEN0012$R(B16FBBC250B130FBC320B0000B1105B4320B0000B1D0DB04C9B3009B0209B01807F1BBF DNEN0013R6B06A0B0000BD2A8B0004B11FDB0460C00007F83AF DNEN00146B30128ABCLRL300A8ABRTFL300BAABTCOM30136ACUCRU30102AIOSCB7F221F B DNEN0015 J 30076CFCTBL30002CIWS30070CMDFLG30084CMDLUN3014ACMOPCL7F280F DNEN0016JJ40000COMLUN40000COMMGR300D6COMSCB300AECONNFL300E2DEALOC7F1FFF DNEN0017JJ50006ENDACT300F0ERRBTA3011AFILCLS300EEH00  3013CH0001 7F33BF DNEN0018JJ300E8H01 300D0H93 3009AJNCTBL30094JNLFLG30030JNLSCB7F35CF DNEN0019JJ3008CLFCTBL3007ELOGFLG30086LOGLUN3001ALOGSCB300F4MODBTA7F1E5F DNEN0020JJ30008MSGQEC30124RDRDB 3011ERWSP 30040SACMD 300B4SARCV 7F2C9F DNEN0021J300EASUBBTA300& F8TRMSCB50002TSKTRM7F737F DNEN0022&B:  DNEND 08/25/81 12:07:23  SDSMAC 3.4.0 81.117DNEN0023B001ALOGSCB300F4MODBTA7F1E5F DNEN0020JJ30008MSGQEC30124RDRDB 3011ERWSP 30040SACMD 300B4SARCV 7F2C9F DNEN0021J300EASUBBTA300@R#00048DXFOPN A0000BC298B04DABC268B0002B0229B0005BCA89B0016BDAA87F1ABF DXFO0001RR(B0004B0003BFAA0B0000B0010BDAA0B0000B0002BDAA0B0000B0005B2FDABC26A7F193F DXFO0002RN&B0004B2260B0000B1309BDA2AB0003B0004BDAA8B0005B0002B2FDABC26AB00047F1A3F DXFON0003B045B7FEACF DXFO0004J 50000FILOPN30024H00 30018H04 30030H4000 3001EH91 7F4C6F DXFO0005JD:  DXFOPN  08/25/81 12:07:58  SDSMAC 3.4.0 81.117DXFO0006D1309BDA2AB0003B0004BDAA8B0005B0002B2FDABC26AB00047F1A3F DXFON@R003D6DXIFC A0000B0000C0014C0000C0316C0004C033AC0008C0354C000C7F282F DXIF0001RR(C0350BC220B0000B1303B1502B0460B0000BC000B1609B06A0B0000B0208B00007F232F DXIF0002RN&B0209C003AB0420B0000B0380B0581B0600B04E0B0000B05A0B0000B06A0B00007F224F DXIFN0003R(BC000B13EDB0208C0282B06A0B0000BC249B160DB0208B0000B130BB0420B00007F1DEF DXIF0004RR(B1808B0288C0058B1405BD268B0000B1369B106AB0459B06A0B0000B0208B00007F1F2F DXIF0005RD!B06A0B0000B04E0B0000B10D0BC000B1609B06A0C0026B0208B0000B0209C009E7DF1F3F DXIF0006R(B0420C0032B0380B0581B0600B04E0C003CB05A0C0040B06A0C0044BC000B13147F1FDF DXIF0007RR(B9811B0000B13F3BC1C1B06A0B0000B0000B1603B8800B0000B1209B06A0C00747F1F7F DXIF0008R:B0208C0078B06A0C007CB04E0C0080B10D9BC1C0B0206C02C4BDDB1B: 0600B15FD7F169F DXIF0009R(B0201C02C4B0208B0000B04F8B0288B0000B12FCB2FE0B0000B0200C00A0B02087F1DDF DXIF0010RR(C00F4B06A0B0000B0208B0000BD618B1603BC1C7B131BB1018BD278B06A0C02707F1B1F DXIF0011R0B1603BC1C7B1612B1013BC1C7B1604B06A0C0270B160CB0$100DB0989BD269B00007F1A0F DXIF0012$R(B9271B1606B0607B9811C00B0B16EAB04C7B10E8B0460C0266B0460C025CBC0007F1A2F DXIF0013RR(B1609B06A0C008AB0208C008EB0209C0162B0420C0096B0380B0581B0600B04E07F1E3F DXIF0014R&C00F8B05A0C00A4B06A0C00A8BC000B1314B&.9811C0138B13F3BC1C1B06A0C00B87F180F DXIF0015.R(C00BAB1603B8800C00C0B1209B06A0C00C6B0208C00CAB06A0C00CEB04E0C00D27F181F DXIF0016RR(B10D9BC1C0B0208B0000BD618B1603BC1C7B13CEB10CBBD278B1603BC1C7B16C77F135F DXIF0017R B10C8BC1C7B1603BD249B16C2B810C3B9271B16BFB0607B9811C0174B16F0B04C77F15BF DXIF00188R(B10EEBC220B0000B1644B1048BC220C01D0B1645B103FB020AB0000BC29AB16407F1ADF DXIF0019RR(B103AB020AB0000BC29AB1336BD22AB0007B1133B1037B020AB0000B10F7B020A7F1C4F DXIF0020RC01EABC29AB1304BB D22AB0007B1101B102CB020AC01FABC29AB13E4BD22AB00077F14FF DXIF0021BR(B11E1B1024B020AB2300B1002B020AB2200B880AB0000B1317B101BBC220B00007F206F DXIF0022RR(B1313B1017BC220B0000B130FB1013BC220B0000B130BB100FBC220B0000B13077F202F DXIF0023RB100BBL%0208C0282B06A0B0000B0460C0024BD820B0000C0016B0460B0000BD8207F20FF DXIF0024LR(B0000C0260B0460C0264B9809B0000B1305B9809B0000B1302B9809B0000B045B7F217F DXIF0025RR(B0000C01CEB0000C01D6B0000C0148B0000C0084B0000C01DEB0000C01E8B00007F204F DXIF0026RT@R(C01F8B0000C01FEB0000C0224B0000C021EB0000C0230B0000C0238B0000C02407F225F DXIF0027RR(B0000C0248B0000C0250B0000C0250B0000A02C4A0316BD0E0C026AB1101B10177F220F DXIF0028RN&B20E0B0000B1314B9803C0268B1604BD820B0000C0318B100BBD820B0000C032E7F1E8F DXIFN0029R(B1007BD0E0C0336B1306B1505B7820C033CC0344B0460C026EB0460C001EB04C47F1C1F DXIF0030RR(B1001B0704B0208C0064B130BBC000B160BB06A0C014EB0208B0000B0209C037A7F1E8F DXIF0031RD!B0420C015AB0380B0460C034EB0581B0600B04E0C0164B05A0C0168B06A0C016C7DF1CEF DXIF0032R(BC000B13EBB9811C01C6B13F3B0208C03D0B06A0C0050BC249B160AB0420C005E7F18CF DXIF0033RR(B180EB0288C0358B140BBDA04C006AB0460C034AB0208C03A4B0608B11FABDA047F170F DXIF0034R:C03AAB10FBB06A0C018AB0208C018EB06A0C0192B04E0C0196B10C8B: 0000BFFFF7F143F DXIF0035B00007FEC7F DXIF0036J30384ABTCHK3039EASCBN 3038CASTRSK30010CIWS 50350CLRFLG7F275F DXIF0037JJ30374CMDINV303AECMDXIT50316CNDELS5033ACNDEND30346CNDFLG7F204F DXIF0038J$301D8CONNFL30380CSMSAF3022ADSRFLG3$(0272EBCDLE30278EBCENQ7F225F DXIF0039(J 3027EEBCNAK3012EETA  30320H2000 30326H80 3032CHA0 7F47BF DXIF0040JJ3025EHC0 30334HE0 40000HFF 3017EIDCHK 30184IDMAX 7F437F DXIF0041J250014IFCND 50010OVCLR 50004OVRELS50008OVREND500020OVRIF 7F275F DXIF0042J5000COVSET 300E8PARBUF300EEPAREND3036EPROMPT30200PRQHP 7F1D6F DXIF0043JJ30210PUQHP 3017CRANGEC300FCRDSCOM30362RPYAVB30396RPYCHK7F1DBF DXIF0044J@30256RPYQSL3037CSACMD 303D0SALL 3029ESALLQ 40000SARCV 7F28DF @ DXIF0045 J30282SCON 303C0SCRAVB303C8SCRMSG303CCSCRSTF30286SDIS 7F246F DXIF0046JJ302A6SEM278302A2SEM37850354SETFLG302BASFLG 3028ASLID 7F2E4F DXIF0047JJ302BESQSL 3024ASRECFL3028ESRID 30296SRPR 3023ASRPRFL7F270F DXIF0048JJ3029ASRPU 30242SRPUFL30292SS  30232SSFL 302B6SSREC 7F314F DXIF0049JJ302AESSRPR 302B2SSRPU 302AASSS 30104STID 303BAUFLAG 7F2AAF DXIF0050JJ 303B2UFLGNO30152VID 40000VINIP 303C4VINVIP30366VNR 7F2DBF DXIF0051J3002AVOPT 301000WATCOM3019EXMTID 301E0XQHP7F539F DXIF00520B:  DXIFC 08/25/81 12:08:12  SDSMAC 3.4.0 81.117DXIF0053B303BAUFLAG 7F2AAF DXIF0050JJ 303B2UFLGNO30152VID 40000VINIP 303C4VINVIP30366VNR 7F2DBF DXIF0051J3002AVOPT 301@R#004E6DNINIT A0000B0000C0004A0004B0200B0000B04F0B028040000MSGQX 7F1D3FDNIN0001RR#E00000004B16FCB06A0C00B8B06A0C0082B06A0C0034B06A0C03D0B06A0C040C7F1E9FDNIN0002RN&B0420C0464B06A0C0448B06A0C039CB0460B0000BC30BBD820B0000B0000B98207F1D8F DNINN0003R(B0000B0000B131EBD820C0038B0000B2FE0B0000BD020C003AB1314B020AB00007F1F7F DNIN0004RR(B0420B0000BDEA0C0046B020AB0000BD200B0420B0000BDEA0C005EB0208C04D27F1BBF DNIN0005RD!B0420B0000B0420B0000B045CB0720B0000B045CB2FE0B0000BD820B0000C00887DF206F DNIN0006R(B04C1B1602BC060B0000B0971BC821B0000B0000BD820C006CB0000B2FE0B00007F1E1F DNIN0007RR(BD820C00A0C00A8B1304B0208C04CEB0460C02FAB045BBC30BB0420B0000BC0007F196F DNIN0008R:B161AB0203B0000B0420B0000BD820C003EC00CCB1310B04C2B0204C: 0350BC2747F1E0F DNIN0009R(B130FB0582BC074BC271B06C9BD449B0420B0000B0201BC000B1603B10F3B04607F1BAF DNIN0010RR(C02F6B0460C02F0B0420B0000BC000B16FAB0204C0350BC234B1303BC174B05C57F1B8F DNIN0011R0B0458B045CB0203B0000BC045BD031B0980BC000B1606B0$2FE0B0000BD220B00007F1D3F DNIN0012$R(B0988B1003B0420B0000B180BB06C8BC048BD260B0000BD820C0138B0000BC2937F1C9F DNIN0013RR(BDA81B0003B1019B0201B0000B06C1B0200C04C2B06A0C0362BC268B0006B130E7F1D5F DNIN0014R&B0289B0001B1306B0289B0005B1303B04E0B&.0000B1005B0720C016ABD8E0C013C7F1E8F DNIN0015.R(B0009B04C9BD8C9B0008BD8C9B0010BD8C1B0007B0209B0000BDA41B0001BDA417F176F DNIN0016RR(B0003B0460C0106B0203B0000BC045BD031B0980BC000B1359B0420C012EB18087F1FBF DNIN0017R B06C8BC048BD260C0174BC213B8DA01B0003B101EBC213B0209B0000B05C9BC2857F186F DNIN00188R(BD019B0980B9EB9B160DB0600B1101B10FBB0203C0114BD063B0007B0203C01987F1B2F DNIN0019RR(BC213BDA01B0003B1007B0201B0000B06C1B0200C04C6B06A0C0362B04C9BD8C97F1ADF DNIN0020RB0008BD8C9B0010BB D8C1B0007B0209B0000B020AB0000B0420C005ABD6A0C009E7F1B2F DNIN0021BR(B04C8B2FE0C0122BD220C0126B020AC0056B0420C0068BD6A0C0210B020AC00627F1BCF DNIN0022RR(B0208B0000B05C8B0420B0000BD6A0C0226B0208B2200B8808B0000B1603B02087F20FF DNIN0023RB0000BL%1002B0208B0000B0420C0074B0420C0078B0460C0106B0203B0000BC0457F247F DNIN0024LR(BD031B0980BC000B13F7B0420C01A6B1809B06C8BC048BD260C01B0BC213BDA017F172F DNIN0025RR(B0003B0708B1001B04C8B0209B0000B05C9BC285BD019B0980B9EB9B1603B06007F1B6F DNIN0026RT@R(B1116B10FBBC208B1609BC213B0201B0000B06C1B0200C04DAB06A0C0362B04C97F1ABF DNIN0027RR(BD8C9B0008BD8C9B0010BD8C1B0007B0420C0250B0460C0106B0208C04DEB04607F19DF DNIN0028RN&C02FAB0208B0000BCA05B0016B0209B0000B06C9BDA09B0003B2FD8BC258B16027F18EF DNINN0029R(B0460C0106B0208C04BEB1007BC200B1005B0208C04CAB1002B0208C04E2B02017F1E5F DNIN0030RR(B0000B0420B0000B0420B0000B06CABD80AB0000B06CAB0207B0000BD9E7B00007F1E0F DNIN0031RD!40000TMPMSGE00010001B0587B060AB16FAB0201C030AB0202B0000B0420B00007DF1A9F DNIN0032R(B0420B0000B0201B0000B0420B0000BC020C007EB1308BD820C0238C0050BD8207F212F DNIN0033RR(B0000C0048B2FE0C004CB2FE0B0000C0112C01BEC0196C0284C025AB0000C02CA7F1A2F DNIN0034R:C022EB0000BC213BCA05B0016B0209B0091B06C9BDA09B0002BDA01B: 0003BFA207F193F DNIN0035R(B0000B0010B2FD8BC258B16B5BD068B0003BDA20C033EB0002B2FD8BC268B00047F175F DNIN0036RR(B11FDB2260B0000B13A9B045BB0208B0000B04F8B0288B0000B12FCB2FE0B00007F1A9F DNIN0037R0B0208C03AABC268B0004B11FDBC820B0000B0000B9820B0$0000C0344B1304B02087F1DEF DNIN0038$R(C04BAB0460C02FAB045BB0380B0208B0000BC808B0000B020AB0000BC80AB00007F1C1F DNIN0039RR(BC80AB0000B1002B0228B0000BC248B0229C03E8BC609B060AB16F8B04D8B02087F19DF DNIN0040R&B0000B1306B0209B0000B04CABDE4AB0608B&.16FDB045BBC1CBB0208B0000B06A07F180F DNIN0041.R(B0000B0209B0000B020AB0000BD2FAB098BB020CBF001B0420B0000B0208C04107F1EFF DNIN0042RR(B06A0C0414B0209B0000B020AB0000BD2FAB098BB020CBF002B0420C0428B04577F1BEF DNIN0043R BC30BB0209C0204B020AC0208B80420C020CBD6A0C0388B0208B0000B0420C02547F1E0F DNIN00448R(B045CB0000C0468B020BB0000B070ABDECAB028BB0000B1AFCB04E0B0000B02007F195F DNIN0045RR(B0000B04D0B04CABD84AB0004BC061BFFFEBD84AB0004BD88AB0004B04E0B00007F142F DNIN0046RB04E0B0000B0203BB 0000B04D3B04E0B0000B04E0B0000B04E0B0000BC820B00007F20EF DNIN0047BR(B0000B04E0B0000B0460C03CEB0001B0000B0001B0000B0001B0000B0001B00007F25CF DNIN0048RR(B0001B0000B0001B0000B0003C021EB0000C022AB0001B0000B0001B0000B00017F278F DNIN0049RB00007FEC7F DNIN0050J40000ACUAD 303BAACUCRU30188AIOSCB3026AASCBN 300C4BDINFO7F277F DNIN0051JJ303D2BUFERS303D6BUFPTR30304BUILD 3008ACERR 301D4CFCTBL7F257F DNIN0052JH 30092CFLAG 30000CIWS50000CLINIT3014ACLUNO 30170CMDDEV7F2D5F DNIN00H53J30352CMDID 30032CMDSET304D8CMMSG2304D4CMMSGB300CECODEV 7F263F DNIN0054JJ3035ECOMID 302D4COMLUN302CCCOMSCB304AACONNFL3013ECSMWDF7F1D7F DNIN0055JJ30098CTBL 30454DATASC30338DEALOC30240DSRFLG30040DX10 7F318F DNIN0056J30340EDRRBTA30430GETBUF30084GTCTRY30458H00 303C0H01 7F35EF DNIN0057DJ30378H04 30396H4000 30222HEXASL30274HFF  40000INTCNV7F3CFF DNIN0058JJ3025CJNCTBL3035AJNLID 302A0JNLUNO300A4LDOVLY301DCLFCTBL7F1D2F DNIN0059J 301E8LLUNO 40000LOG 4302BCLOGCHK30356LOGID 40000LOGLUN7F2B1F DNIN00604J40000LOGSCB3034AMODBTA30314MSGBF230006MSGQUE30460MSGSTF7F221F DNIN0061JJ300AAOVYERR3009AOVYNBR3039EPARBUF303A4PAREND30498PCHDB 7F1BEF DNIN0062J&30234PNSEGN3041CPRDEF 30418PRQHP 304&& 9CPRTDB 30438PUDEF 7F276F DNIN0063&J30434PUQHP 303E2QBUFCT303DEQBUFMX303DAQUEMAX3042CRBUF 7F1F2F DNIN0064JJ304B4RCVETX30444RCVQUE304B0RCVVFC304A2RDRDB 304A6RDRSTS7F1B0F DNIN0065J4303AERDSCOM30494RERROR30464RWSP 30334S$CLOS300BCS4$GTCA7F225F DNIN0066J30300S$OPEN300E8S$PARM300FCS$RTCA300C8S$STAT3032CS$WEOL7F23CF DNIN0067JJ30328S$WRIT3047CSARCV 30478SAXMT 304E4SBDPRC304D6SBTANA7F211F DNIN0068JB304C4SCMDNA40000SCOMDV30450SCRACH40000SCRAVB40000SCRLF 7F252F B DNIN0069 J40000SCRMSG3044CSCRSTF30216SELFID40000SETTIM304E0SINVJL7F1C4F DNIN0070JJ304CCSINVPM304BCSIVCOM304DCSJRNNA40000SLOGIN304C8SLOGNA7F162F DNIN0071JJ304C0SNOCOM304AESSMSGP303B8STACU 303BESTCTRL30346SUBBTA7F18CF DNIN0072JJ304D0SXLATE30472TABEND3046ATABSTP3021ATASKRT30320TMPMSG7F1B3F DNIN0073JJ3034ETRMSCB30400UFLAG 303FAUFLGNO303EEUOBLGT3045CVINIT 7F1DBF DNIN0074J(3024CVINTL230246VINTL37FA3FFDNIN0075(2:  DNINIT  08/25/81 12:08:56  SDSMAC 3.4.20 81.117DNIN007646ATABSTP3021ATASKRT30320TMPMSG7F1B3F DNIN0073JJ3034ETRMSCB30400UFLAG 303FAUFLGNO303EEUOBLGT3045CVINIT 7F1DBF DNIN0074J(3024CVINTL230246VINTL37FA3FFDNIN0075(2:  DNINIT  08/25/81 12:08:56  SDSMAC 3.4.2@R000FCDXLCO A0000B0000C0020C0000C0014C0004C00C8C0008C00C2C000C7F265F DXLC0001RR(C00BABC220B0000B164EB0208BFF00B103ABC260C0016B1648BC140B0208B00007F1B1F DXLC0002RN&B04F8B0288B0000B12FCB2FE0B0000B0208C0036B0200B0000B06A0B0000BC0057F1DDF DXLCN0003R(BC260B0000B112AB0720B0000BC000B1609B06A0B0000B0208B0000B0209C006A7F20FF DXLC0004RR(B0420B0000B0380B0581B0600B04E0C003EB05A0B0000B06A0B0000BC000B13137F210F DXLC0005RD!BC200B13EBB0209B0000B9811B0000B1303BDE71B0608B16FAB0508BA200B06C87DF19CF DXLC0006R(BD808B0000B0420B0000B0460B0000B04C8B10F8B06A0B0000B0208B0000B06A07F205F DXLC0007RR(B0000B04E0B0000B10CFB0460B0000B0720B0000B0460C009EB0208B0000B10027F223F DXLC0008R:B0208B0000BC808B0000B04E0C006CBC220B0000B1309BC220B0000B: 160ABC2207F1E5F DXLC0009R(B0000B1607BC220B0000B1604B0420B0000B0380C00D0BC820C00F2C00D2B03807F201F DXLC0010RJ30074ABTCHK300C4ABTTSK3004EACUCAL50014ANSWER30084ASTRSK7F1F5F DXLC0011J8 30080BF1COM50020CALL30010CIWS 300B8CMDINV300CACMDSE8T7F2D4F DXLC0012J300C0CMDXIT3009ACONCAL300D6CONNFL30070CSMSAF500C8DISCON7F1E9F DXLC0013JJ300EEDSCCAL30096FONENO300BCFRESET300CEFTERM 40000H0001 7F284F DXLC0014JF50004OVANS 50000OVCALL50008OVDISC50010OVRSET5000COVTERM7F1F0F DXLCF0015J3002APARBUF30030PAREND300E8PCHSTS30062PROMPT300E2PRTSTS7F197F DXLC0016JJ3003ARDSCOM500BARESET 30056RPYAVB300F8SACMD 30022SARCV 7F23EF DXLC0017JJ300DCSAXMT 300A6SCRAVB300AESCRMSG300B2SCRSTF30048STACU 7F1D4F DXLC0018J500C: 2TERM 300AAVINVIP3005AVNR 30042WATCOM7F533F DXLC0019:B:  DXLCO 08/25/81 12:10:02  SDSMAC 3.4.0 81.117DXLC0020B30022SARCV 7F23EF DXLC0017JJ300DCSAXMT 300A6SCRAVB300AESCRMSG300B2SCRSTF30048STACU 7F1D4F DXLC0018J500C@R#002FEDNLCON A0000B0901B0000C0006BC820B0000B0000B0205B0000B04C47F24BF DNLC0001RR(BD135B1103B1604B0460C01A6B0460C01B2B0209BAF00BC320B0000B110CB43207F1D7F DNLC0002RN&B0000B2FE0C0000B0209BAD00B1F04B1604B0209BAE00B1F01B1602B0460C01847F1C1F DNLCN0003R(B1D0DB04CAB300AB0944B0944B0209B0382B1D05B06A0B0000B176ABC320C00267F19FF DNLC0004RR(B2320C002CB1603B4320C0062B1D0BBC2A0B0000B1304B06A0B0000B060AB10FB7F1CAF DNLC0005RD!B1F03B135DB1F00B1307BC2A0B0000B13F9B06A0C0074B060AB10FBBC2A0B00007DF184F DNLC0006R(B130FB06A0C008AB060AB10FBB1F03B134BB1F00B1307BC2A0C0084B13F9B06A07F161F DNLC0007RR(C0098B060AB10FBB06A0B0000B1117B028AB2D00B13FAB028AB2800B13F7B028A7F17FF DNLC0008R:B2900B13F4B310AB1D04B024AB0F00B028AB0C00B1307BC2A0C00A8B: 13DFB06A07F16DF DNLC0009R(C00AEB060AB10FBB020AB0078B06A0B0000B1F03B1322B1F02B1305B060AB15F87F190F DNLC0010RR(B0205BAA00B100CB020AB001EB06A0C00EEBD268B0004B1310B150FB060AB15F87F183F DNLC0011R0B0205BAB00B0208B0000B2FD8B04CAB1D0DB300AB06A0B0$0000BC245B0460C01847F195F DNLC0012$R(B1D0DB04CAB300AB1041B0208C011CB2FD8B04CAB1D0DB300AB06A0C0128B02097F15DF DNLC0013RR(BAC00B0620C000AB1503B1302B0460C0280BC149B06A0B0000B020AB0000BC2057F1E8F DNLC0014R&B0420B0000BDEA0B0000B0208B0000B0420B&.0000BC2A0B0000B06A0C0108B060A7F201F DNLC0015.R(B15FCB0460C000CBC149B06A0C015CB020AC0160BC205B0420C0166BDEA0C016A7F174F DNLC0016RR(B0208B0000B0420C0172B04D0B0460C028EB0209B0382BD820C0196C000EB10027F1F2F DNLC0017R B0209B0086B06A0C0058B06A0C80146B1843B0208B0000B0209B0000BC1E0B00007F200F DNLC00188R(B0587B04CABD2B8B06A0B0000BDE4AB0607B16F9BD820C01C2C01C6B0208B00007F161F DNLC0019RR(B04C9BD260C01DEB0289BFF00B1601B04C9B0989B0589BCA09B0008BCA09B000A7F13EF DNLC0020RB2FD8B0720B0000BB 04E0B0000B04E0B0000B04E0B0000B04E0B0000B04E0B00007F1F5F DNLC0021BR(B06A0C0188B0208B0000B0420C019EB0209B0000BC409BC201B2FD8BC221BFFFE7F172F DNLC0022RR(B2FD8BC260B0000B1329B0209B0000BC809B0000B1024B0289B0F00B130BB02897F1C9F DNLC0023RB3B00BL%1308B0289B9D00B1305B0289B9C00B1302B0460C014CBC149B06A0C021C7F1AEF DNLC0024LR(B020AC018CBC205B0420C0192BDEA0C01ACB0208B0000B0720B0000B1004B06A07F1C3F DNLC0025RR(C0266B0208B0000B0420C0224B04D0BD820C0274C01AEB04E0B0000B0380C00027F1F4F DNLC0026RT@R(C029EB04E0B0000BC220C027CB1125BC220C0204B1605BC220B0000B131FB07207F1D3F DNLC0027RR(C02A0B0208C013AB2FD8B2FE0B0000BD260C0292B1308B1107BC320C005EB43207F19FF DNLC0028RN&C0068B04CAB1D0DB300AB0709B06A0B0000BC820C02B6C02E0B04E0C02E2B16047F186F DNLCN0029DB0209C0228BC409B1003B04D0B04E0C0242BC260B0000B04597F512FDNLC0030DJ302A4ABRTFL302BAABTCOM3006EACDIAL300DCACDIGT30092ACFRST7F203F DNLC0031JJ30296ACUCAL3014EACUCNT302CCACUCRU30176ACUDLY3026ACMMSG27F1FBF DNLC0032J 301B8CMOPC @L50002CONCAL302AACONNFL3017ADELAY 300E2DLY1007F260F DNLC0033@J5029ADSCCAL300B6FETCHC302C4FONENO302FAFTERM 30290H00 7F2C5F DNLC0034JJ 302D0H0001 40000H01 30270HEXASL301CAIDMAX 3028AMSGSTF7F34CF DNLC0035J 301E0OUTBUF30218RCVETX30229ARWSP 302E6RWSP17302B0SARCV 7F20CF DNLC00362J302F6SAXMT 30282SETTIM30214SRECFL3020CSRPRFL30210SRPUFL7F1CAF DNLC0037JJ30208SSFL 302ECSVCRCV3023ESVCXMT302C0TDSCB 301EATERMID7F1F7F DNLC0038J( 302DCTRMMSG40000UADT30008UARC 3019A($ VACUNO30278VBUS 7F2ADF DNLC0039$J30220VCONNS30286VCONNU3016EVRETRY301BCWATCOM301E4WIDCOM7F170F DNLC0040J( 301D4XLCATE30238XQHP7FA7BFDNLC0041(D:  DNLCON  08/25/81 12:10:22  SDSMAC 3.4.0 81.117DNLC0042D008UARC 3019A(@R#002E4DNOPIF A0000B80C0B8000B0000C0008BC2ADB0010BC32DB0012B04E07F1FCF DNOP0001RR(B0000BC820B0000C0016B1309BC066B0004B2060C0000B1604B0720B0000B2FE07F210F DNOP0002RN&B0000B06A0B0000B0200C0048BC800B0000BC820C0012C003CB1602B05A0B00007F217F DNOPN0003R(B0380BC064B0004B2060C0002B1602B0460C0178BC065B0004B2060C0002B16027F21EF DNOP0004RR(B0460C0178BC066B0004B2060C0002B1602B0460C0178B9826B0002B0000B16067F21AF DNOP0005RD!BC9A6B000AB000AB1302B0460C0178BC820B0000C0088B1675B04E0C0038B06A07DF1BCF DNOP0006R(B0000B1370B2220B0000B160DBC808B0000BC809B0000BC4D3B1307B0720C00287F1EFF DNOP0007RR(B0200C017ABC800B0000B1060B06A0B0000B2220C009AB1607B06A0B0000B02007F212F DNOP0008R:C00EEBC800C008AB100FBC820C0018C00D2B1302B06A0B0000B0200C: 00E4BC8007F1A6F DNOP0009R(C00CCBC066B0004B2060C0002B1345BC065B0004B2060C0002B1340B0241B60007F20BF DNOP0010RR(B1313BC048BD225B0001B020AB0000B0420B0000BC201BC820B0000B0000B2FE07F1F1F DNOP0011R0B0000B0201B0000BD861B0007B0007B1315BC064B0004B0$2060C0002B1325B02417F233F DNOP0012$R(B6000B130DBC048BD224B0001B020AB0000B0420C010ABC201BC820B0000C01127F1F1F DNOP0013RR(B2FE0C0116B04E0C00E2B2220C00BEB1609B0200C017ABC800C00B4B9820B00007F1A9F DNOP0014R&B0000B1606B1007B0200C0048BC800C0090B&.04D9B05A0C0044B0380BC066B00047F1F8F DNOP0015.R(B2060C0002B1304BC820B0000C0186B1302B0460C02E2B04E0C015EBC820C00AC7F1CEF DNOP0016RR(C0196B04E0C0198B1608B9826B0001C0162B1304B9826B0001B0000B1606BC2A07F1EAF DNOP0017R C00A0BC320C00A4B0460C0014B80208B0000BC2A6B000AB06A0B0000BC808B00007F1DEF DNOP00188R(BC80AB0000BC820C00D4C01D2B1305BC826B0026C01CEBC2A6B0026BA288BD6A07F155F DNOP0019RR(B0000BC066B0004B0241B6000B1347BC820C01D4C01F4B1606B0201B0000BC8617F1EBF DNOP0020RB0002B0002B1604BB 0420B0000B0420B0000B0201C01FCB020AC01BEBC80AC01CA7F1D8F DNOP0021BR(BC820C0154C01DCBCEA0B0000BCEA0B0000BD226B0001B0420C0140BC221B00027F1A7F DNOP0022RR(B0420B0000BD6A0C01E6BC201B06A0B0000BC221B0002B06A0B0000B04E1B00027F1E7F DNOP0023RBD861BL%0009B0009B1302B0720C01F6BD9A1B0007B0003B0209C002CBDA61B00077F1C0F DNOP0024LR(B0003BDA61B0007B0001BC9A1B000AB000CBC9A1B000CB000EB0420B0000B04E07F1B1F DNOP0025RR(C01B2B0208B0000B0209B0000B0200C0298BC800C0188B06A0C00BABC065B00047F1E4F DNOP0026RT@R(B2060C0002B1320B0241B6000B1309B0201C011ABD861B0007B0007B1603B2FE07F205F DNOP0027RR(C014CB100BBC064B0004B2060C0002B130FB0241B6000B1303B2FE0C02B6B10097F1D7F DNOP0028RDB04E0C028AB04E6B000AB04E0C0292BC820C01B6B0000B03807F4E7FDNOP0029D3019FCABRPY 30262AIOSCB30226ANDEO230222ANDEOF30210CFCTBL7F28DF DNOP0030FJ300C4CMD 30258CMDDEV3020CCOMMGR30176CSMSAF30164CSMWDF7F289F DNOP0031JJ40000D80 30094DQUE30240FILCLS302D2FREPLY3023AH00 7F3B6F DNOP0032J 3021CH0001 301ACH086 30076H09 40000HC0  3022EHEXASL7F480F DNOP00338J301A4HFF 3003EITCQUE302AAJNCTBL3013CJNERR 30146JNMSG 7F29AF DNOP0034JJ30106LGERR 30110LGMSG 30296LOG 3027ELOGCHK300DALOGKEY7F2B2F DNOP0035J"30004OIWS 30208OVTERM30236PNSEG"*B302DEPRPSAD30282PRPVEC7F202F DNOP0036*J30030QUE 50004QUEMSG30248RELBUF30214REPLY 3021ERPYCCT7F276F DNOP0037JJ30218RPYPTR302E0SACMD 30170SALOG 30150SAOPC 302DASARPC 7F275F DNOP0038J030192SARPY 302CCSYSLOG30148SYSMSG301C6TRUNCB300286VREPLY7F179F DNOP0039 50048WRTMSG7FCE4F DNOP0040D:  DNOPIF  08/25/81 12:11:07  SDSMAC 3.4.0 81.117DNOP0041DE0SACMD 30170SALOG 30150SAOPC 302DASARPC 7F275F DNOP0038J030192SARPY 302CCSYSLOG30148SYSMSG301C6TRUNCB300@R#003E2DNOPIS A0000B0209B0000B0420C017EBC820C0010B0000B0380C00127F242F DNOP0001RR(BC260C0002B16F8B0720C0014B04E0C000CB045BBC820B0000C0024B1605B07207F1DCF DNOP0002RN&C0026B04E0C001EB045BBC820C003CC0030B0380C0022BC1C1BA1C0B0287B00007F1B5F DNOPN0003R(B151EB04C9BC000B131BB04CABC1C1B9837B0000B1305B058AB800AB1AFAB10017F163F DNOP0004RR(B05C8BC278B130FBC1C1BC18AB0589B1002B9E77B16F7B0606B15FCB13FBB98197F111F DNOP0005RD!B0000B16F1BC258BA04AB600AB045BBC28BB06A0C0012BC1C8B0208B0000B02067DF18CF DNOP0006R(B0000BC177B1307BDDB5B16FEB0606B05C7B0286B0000B12F7B0286C0094B13067F18EF DNOP0007RR(BDDA0C007AB06A0C0000BC145B16ECB04E0C001AB045ABC200B1318BC241B04CA7F14FF DNOP0008R:B9819B0000B1608B0589B058AB0608B130FB9839B0000B16FAB1006B: 9819B00007F1BCF DNOP0009R(B1309B9839B0000B1304B058AB0608B1302B10EBBC00AB045BBC202B1302B06A07F1B0F DNOP0010RR(B0000B0460B0000BC23BBC140B9817C0054B130FBC278BC288B9E97B1A07B96977F177F DNOP0011R0B1505B0587B0648B0605B16F3B1004B058AB0609B16F4B0$0549B045BB0000C01307F1CEF DNOP0012$R(BC22DB0010BC088BC078B0241B00FFB0200B0002B0209B0000BC2B8BDE7AB13057F183F DNOP0013RR(B0580B0289B0000B1404B10F9B0609B0601B16F5BC200B2220B0000B1603BDE607F1DAF DNOP0014R&C00E6B0588BCB48B0014B0380B0000C0172B&.C22DB0010BC26DB0012B0588B10067F1B8F DNOP0015.R(C016EC0182BC26DB0012BC22DB0010B0420B0000B0380B6000B0000B0000BC08B7F1E4F DNOP0016RR(B0201B0000BD061B0008B1616BC820B0000C01A4B1638B04E6B0000B020AB09007F1FAF DNOP0017R BD98AB0002BD9A0B0000B0005B8C9A0C0194B0006BC9A0B0000B0008B2FE0B00007F1A0F DNOP00188R(B1046BD9A0B0000B0000BD9A0C00B0B0001BD9A0C01D6B0002BC9A0C0194B00047F1A8F DNOP0019RR(BC9A0C01C4B0006B04E6B000AB2FE0C01CABD9A6B0001B0001B1608B04E6B00047F178F DNOP0020RBC9A6B0008B000ABB 04E0B0000B1027B9826B0001B0000B1623B0720C0208B10207F203F DNOP0021BR(B04E6B0000B020AB0B00BD98AB0002BD9A0B0000B0005BC9A0C0192B0006B02017F1BDF DNOP0022RR(B0022BA046BC981B000CBC9A0C0194B0022BC9A0C01E8B0024BC9A0C0244B00267F186F DNOP0023RB0420CL%012CBC98AB000AB2FE0C01F2BC2C2B045BB0420C012CB0201B0000BC8207F183F DNOP0024LR(C0216C0268B1302B0460C0386BC861B000EB000EB1639BD861B0002B0002B16047F1E1F DNOP0025RR(BD861B0007B0007B1331BD861B0008B0008B1611B04E5B0000B0201B0B00BD9417F1E5F DNOP0026RT@R(B0002BD960C01B8B0005BC960C0192B0006BC94AB000AB2FE0B0000B101CBD9607F18DF DNOP0027RR(B0000B0000BD960C01DCB0001BD960C02BCB0002BC960C0192B0004BC94AB00087F1A9F DNOP0028RN&B04E5B000AB2FE0C02B0B04E5B0004BD965B0001B0001B1351BD960C0190B00047F1B6F DNOPN0029R(B104DB0201B0000BC861B000EB000EB1647BD861B0007B0007B1343BD861B00087F1CEF DNOP0030RR(B0008B1611B04E4B0000B0201B0B00BD901B0002BD920C02A0B0005BC920C01927F1E9F DNOP0031RD!B0006BC90AB000AB2FE0B0000B102EBD920C02B6B0000BD920C02C2B0001BD9207DF195F DNOP0032R(C0332B0002BC920C0192B0004BC90AB0008B04E4B000AB2FE0C0326B04E4B00047F1B8F DNOP0033RR(BD924B0001B0001B1316BD920C0190B0004B1012B04E6B0000B0201B0B00BD9817F1F3F DNOP0034R:B0002BD9A0C0316B0005BC9A0C0192B0006B0420C012CBC98AB000AB: 2FE0C02587F18FF DNOP0035R(B045BBC1C3B0283B0000B1306B0223BFFFCBC4D3B1306BC0C7B1013BC820B00007F170F DNOP0036RR(C039EB160FBC0C7BC4D3B1308B8CF3B0283C03A0B11FAB13F9B0203C038CB10F67F126F DNOP0037R0BCCCABC4CCBC0C7B80C3B045BBC1C3BC4D3B130BBC233B0$C273B04D7B0283C03AE7F0C4F DNOP0038$6B1503B0283B0000B1002B0203C03B6B045B7F866F DNOP00396J500C0ABTCHK300E0AMPSND30108ASTRSK30164BLANK 5012CBUILD 7F254F DNOP0040JJ 3019ACFCTBL50196CMD 301A6CMDDEV30384CMDSCB30100CMDXIT7F2ABF DNOP0041J@J3024AD80 503C4DQUE3002CFREPLY300D8GTSIGN30338H00 7F377F DNOP0042JJ 3015EH0001 3032CH1C 301D0H1D 30370H80 30228HC0 7F51FF DNOP0043JJ30210HFF 3026AITCQUE302EEJNCTBL3034CJNLSCB30264LFCTBL7F26DF DNOP0044J5025ELOG 503<62LOGKEY302D6LOGSCB300CALTSIGN30142MSGBF27F25FF DNOP0045<J30192MSGBUF3014EMSGEND303DEMSGQUE303D2MSGQX 5017EMSGSTF7F1A8F DNOP0046JJ3017EMSWS 5016EPROMPT50388QUE 3018CQUEMSG50102RANGEC7F260F DNOP0047J300FCRELBUF30194REPLY 50022R.PYAVB5003ERPYCHK50048RPYCK17F1DAF DNOP0048.J30044RPYEND50086RPYQSL30038SACMD 40000SAOPC 40000SBLANK7F24FF DNOP0049JJ3012CSBWS 50012SCRAVB50000SCRMSG300BCSCRSTF40000SYSLOG7F202F DNOP0050J, 30090VSCR 300AAXSCR 300A4XSCR607F80CF , DNOP0051 D:  DNOPIS  08/25/81 12:11:57  SDSMAC 3.4.0 81.117DNOP0052D00SAOPC 40000SBLANK7F24FF DNOP0049JJ3012CSBWS 50012SCRAVB50000SCRMSG300BCSCRSTF40000SYSLOG7F202F DNOP0050J, 30090VSCR 300AAXSCR 300A4XSCR607F80CF ,@R#0025ADXRCVQ A0000BC805B0000BC800B0000B0420B0000BC000B1619BC1437F216F DXRC0001RR(B0225B0005B0206B0000B0420B0000B0506BC000B160DB04C7BD1E0C0018B13097F1FBF DXRC0002RN&BD8C7B0005B06C7B0585B0586BDD76B0607B1301B10FCB0420B0000BC020C00067F19CF DXRCN0003R(B0205B3000BD805C0028BC160C0002B045BB0000C0058B43E0B0000BC0ADB00107F1DEF DXRC0004RR(BC26DB0018BD889B0007B06C9BD889B0004BD889B0005BD8A0B0000B0006BC8A07F15FF DXRC0005RD!B0000B0008B05A0C007AB04C8BD888B000ABD888B000BBD888B000EBD888B000F7DF15BF DXRC0006R(BC0D2BC06DB0014B1337BC02DB0016B1334B58E0B0000B0004B06A0C011CBD2637F199F DXRC0007RR(B0005B132CB0989B0229B0006BA243B0609B9819B0000B161CBD8A0B0000B000E7F1C3F DXRC0008R:BD8A0B0000B0007BD660B0000B0609B9819C00BEB1603BD660C00D0B: 100DBD2237F19AF DXRC0009R(B0005B0988B0588B0288B0000B1B0BB05C9BD660C00DCBB8E0C0074B0005BC22D7F171F DXRC0010RR(B0012B06A0C023AB0380BD8E0B0000B0005BE3E0C005AB0620C0080B04D2BC2037F1B6F DXRC0011R0B06A0B0000B0380B58E0B0000B0004BC8E0B0000B0002B0$C203B0228B0006B04C97F1EBF DXRC0012$R(B9811B0000B1617BF8E0B0000B0004B0581B0600B9811B0000B130CB0289C00EA7F1DEF DXRC0013RR(B1474BDE31B0589B0600B16F6BC1A3B0004B0A16B186CB105EB0581B0600B105B7F186F DXRC0014R&B9811B0000B1606BF8E0B0000B0004B0581B&.0600B10DDB98E0C00A4B0004B163E7F1BCF DXRC0015.R(B9811B0000B163BB0581B0600B1355B020AB0001B9811C0142B1306B9811B00007F212F DXRC0016RR(B112EB9811B0000B152BB0581B0600B1347B9811B0000B130BB9811B0000B13417F201F DXRC0017R B9811B0000B133EB9811B0000B8133BB058AB10EFB604AB280AB2A80B280ABC1887F17AF DXRC00188R(B0420B0000B1831BC8C8B0002B132EB0581BC206BC00AB0600B131CB9811C01AE7F1A3F DXRC0019RR(B1319B9811C01B4B1316B9811C01BAB1313B101FB0601B0580B9811C01E4B130D7F1B9F DXRC0020RB9811C01EAB130ABB 9811C01F0B1307B0289C0148B1411BDE31B0589B0600B16AE7F18BF DXRC0021BR(B06C9BD8C9B0005BD263B0004B1106BC80BB0000B06A0C0000BC2E0C0228B045B7F18EF DXRC0022RR(B04C0B04C9B10F0BC288B022ABFFFEBC24ABC2A9B0002B1304B9AA2B0007B00077F132F DXRC0023RB14F8B*C88AB0002BCA42B0002B045B7F91DFDXRC0024*J 30196ASC0 3019CASC9301CEASCBN 301FCASTRSK30208BLANK 7F302F DXRC0025JJ30202COMMA 300D6DLROPT40000DOLLAR5023AENQUE 30190GTSIGN7F23FF DXRC0026J030106H00 30124H0001 300F6H01 3010CH1000 300178H20 7F54FF DXRC0027J3016CH40 30138H80 3011EHDF 300C4HFF  30180LPAREN7F469F DXRC0028JJ30132LTSIGN5011CPNSET 30166POUND 300CAR$PRI 50054RCVQUE7F239F DXRC0029J>30118RELBUF301A8RPAREN30054RQWS 3000AS$GTCA3001CS$MAPS7F265>F DXRC0030J30040S$RTCA30044SAVR0 30230SAVR1130050SAVR5 3004CSYNBSZ7F298F DXRC0031JJ40000SYNBUF50000SYNEXP3020EUPNLGT30110XACTID300F2ZERO 7F201F DXRC0032JD:  DXRCVQ  08/25/81 12:13:03  SDSMAC 3.4.0 81.117DXRC0033D65@R00780DXSB  A0000B0001B0003B61E1B0006BC847B000ABC847B0008BC2A37F251F DXSB0001RR(B0010BC86AB000CB0012BC201BC061BFFFEB2FD8B045BBC1CBB0208B0000BDA097F11FF DXSB0002RN&B0002B06C9BDA09B0005BCA20B0000B0012B2FD8B0208C0028BD2A8B0004B0A1A7F190F DXSBN0003R(B0457BC202B05A0B0000BC420C0076B0380B04CABD2A8B0004B11FBB05A0C004C7F18DF DXSB0004RR(B04C9BD268B0001BDA20B0000B0001BDA20C0068B0004B0A2AB045BC0054BC2017F1A9F DXSB0005RD!B05A0C005EBC420C009AB0380B04CABD2A8B0004B11FBB05A0C007CB04C9BD2687DF145F DXSB0006R(B0001B0A2AB045BC0084B05A0C008EBC298BC420C00B4B0380BC69AB16FDB05A07F153F DXSB0007RR(C009EB071AB045BC00A8BE820B0000B0000B1003BE820B0000C00BABC40BB03807F1A8F DXSB0008R:BC23BB9E0AB1B07B1304BDE18B1104B05C8B10F9B0588BC2D8B045BB: C104B13037F13CF DXSB0009R(B1103B04CABD2B5B0604B045BB06CABD2AAB0000B045BBC2BBBD29AB1003B098A7F124F DXSB0010RR(BD2AAB0000BC186B1103B1302BDDCAB0606B045BBC1CBB0720B0000B0208B00007F18BF DXSB0011R0BFA20B0000B0005BCA20B0000B0012B04E8B000AB04E8B0$0010B2FD8B0208C01147F1BFF DXSB0012$R(B06A0C007AB1725B0289B1800B131AB0289B5200B13E8B0289B0600B1314B02897F1CEF DXSB0013RR(B0300B1311B06A0C0574B0208B0000B0420B0000B020AB0003B06A0C00B6B060A7F211F DXSB0014R&B16FCBD220B0000B13D3B06A0C01C2B06A0C&.03A0B04E3B0010B04D0B04E0C01107F1A1F DXSB0015.R(B0380B04E0C017CB0457BC30BB04D0BC820B0000C018CB132EBC809C018EB02087F17DF DXSB0016RR(C04E2B06A0C009CB020AB0000B0420B0000BD6A0C006EB0208B0000B0209B00007F1EAF DXSB0017R B0420C0158BC260C0194B0289B81800B1317B1001BC30BBC820C01B8C01C6B13117F1C4F DXSB00188R(B0208B0000BCA20C0002B0010BC820B0000C01D8B1303BCA20C0000B0010B2FD87F1DDF DXSB0019RR(B0208C01CEB06A0C007AB0209B0100B06A0C0024B04E0C01C8B045CBA288B060A7F195F DXSB0020RB820AB1A03B96A0BB 0000B13FAB058AB6288B045BBC223B000EB1602B0460C03587F190F DXSB0021BR(B04E3B0014B04E3B0016BC8C8B0010BC298BC8C8B0012BC2A3B0012BC29AB16027F171F DXSB0022RR(B0460C0358BC8CAB0012B05CBBC263B0018B1603BD26AB0004B115DBD26AB00047F17AF DXSB0023RB022ABL%0005B0208B0000BCA0AB0016B020AB9100BDA0AB0002BDA23B0005B00037F1C8F DXSB0024LR(BCA23B000CB0010B2260B0000B1603B4A20B0000B0010BCA23B000AB0012BFA207F1E0F DXSB0025RR(B0000B0010B2FD8BD2A8B0004B0A2AB183EBD8E8B0003B0005B0593B04CABDA0A7F152F DXSB0026RT@R(B0002BDA23B0022B0005B2FD8BD2A8B0004B0A2AB182FB0593BD8E8B0007B001C7F169F DXSB0027RR(B1527B020AB0E00BDA0AB0002B2FD8B04E2B000CB04E2B000EBC263B0018B161B7F16DF DXSB0028RN&B0208C0254B020AB0600BDA0AB0002BC2A3B0012BC26AB0002B0609B130FBCA097F198F DXSBN0029R(B000ABC889B000EB2FD8BD2A8B0004B0A2AB1809B0A1AB1704B0209B3000B102A7F16FF DXSB0030RR(B0713B04CAB0A1AB1026B04C9BD268B0001BC223B0010BD328B000EB131EB04CC7F176F DXSB0031RD!B9A20B0000B0007B1615BDA28B000FB000FB1315BDA0CB000FBC2A3B0012BD32A7DF176F DXSB0032R(B0005B098CB022CB0006BA30AB064CBDF20B0000BDF20C0346B0460C024ABDA0C7F167F DXSB0033RR(B000EBDA0CB0007B045BB070AB8293B1106B1309BD8A3B0005B0003B2FD2B10147F191F DXSB0034R:BD8A0B0000B0004B1010BC2A3B0012B022AB0005BD23AB0988BC888B: 000ABC2627F19AF DXSB0035R(B0006BDE7AB0608B16FDBD888B0004B0613B045BBC293B1126B1325B2FE3B00027F16CF DXSB0036RR(BC293B1121B1320B0208C02D2BDA23B0005B0003B060AB1314B020AB0100BC2637F1DCF DXSB0037R0B0018B130CB9823B001CB0000B1208B020AB0200BCA22B0$000CB000CBCA22B000E7F1BAF DXSB0038$R(B000EBDA0AB0002B2FD8B020AB9300BDA0AB0002B2FD8B04D3B045BBC223B00107F152F DXSB0039RR(B04E3B0010BD2A8B0007B1110BC243B0229B000CBC2A9B0002B1307B820AB13027F1C0F DXSB0040R&BC24AB10F9BCA68B0002B0002B0460C076AB&.045BBD2A8B000EB13FCBBA20B00007F155F DXSB0041.R(B000FB9828B000FB0000B1107B9A20C0320B0007B16E2BDA20C01A8B000FBD2687F19CF DXSB0042RR(B000FB0989BC218B0228B0005BD298B098ABA20AB0648B1000B020AB0002B10047F1B6F DXSB0043R BD620C0206B020AB0005BC808B80000BA20ABC289B04C9B3E60B0000BD62AB00007F19AF DXSB00448R(B0608B8808C0460B1BF6B0228B0006B045BBC30BBC808B0000BC809B0000BC80A7F187F DXSB0045RR(B0000B0208C04E2B06A0C009CB020AC01A0B0420C01A4BDEA0C0436B020AB00007F1B7F DXSB0046RBC220C0486B0288BB 5200B1308B0420B0000BC220C048AB1308B0420B0000B10057F20DF DXSB0047BR(BC220C04B4B1302B0420B0000BC223B0012B0420B0000BDEA0C049EB0209C01B07F1D2F DXSB0048RR(BC220C0482B0420C01B4B045CC04D6BC30BB0208C04E2B06A0C009CBC823B001A7F17CF DXSB0049RC04DABL%A83CC04F2BC220C04F6B0A18BC808C04FABC809C04A6B020AC0496B04207F12BF DXSB0050LR(C049ABDEA0C04D2B020AC04A2BC220C0500B0288B0006B1101B1004BC220C05047F1B2F DXSB0051RR(B0420C04B0BC263B0010BC229B0008B0420C04C6BC220C0518B0288B0006B11017F1E6F DXSB0052RT@R(B1008BC223B0014B0420C0534BC223B0016B0420C0548BC263B0010BC219B04207F1F7F DXSB0053RR(C04CEBDEA0C0510B0209B0000BA260C0538BC219B0209C04E2B0420C04DEB045C7F176F DXSB0054RN&BC30BB0208C04E2B06A0C009CB020AC0508B0420C050CBDEA0C055EB0209C056C7F169F DXSBN0055R(B045CBC24BB04E0B0000BC322B0006BC2C7B62CCBD23AB0988B820BB1504BC8207F14CF DXSB0056RR(C0420C0594B1008B9EBCB1304BC820C05A8C05AAB1002B0608B16F8B0459BC80B7F168F DXSB0057RD!B0000B06A0C0210B1012B1723B0208B0000B04CAB06A0C047EBC323B0010B06A07DF1E6F DXSB0058R(C03A0B06A0C03EABC2E0C05C2B88CCB000EB16EAB1006B06A0C0574B0208B00007F163F DXSB0059RR(B0420C0570BC80BC05E4B0720B0000BC1E2B0006B0720B0000BC2E0C05FCBC2DB7F179F DXSB0060R:B1008BC293B1303B06A0C04E4B0003BC2E0C060CB05CBB045BBA289B: 060AB04C77F164F DXSB0061R(B3DE0C046ABD6A8C046EBC207B0609B16F7B045BBC248B0949B0249B000FBDEA97F10BF DXSB0062RR(C0630B0248B000FBDEA8C0644B045BB9595B1607BD1D5B0987B0587B9DB5B16027F154F DXSB0063R0B0607B16FCB045BBC260B0000B0283B0000B1309B0283B0$0000B160EBC820B00007F1DCF DXSB0064$R(C0676B160BBC260B0000BA248BA288BDEA0B0000B824AB12FCB060AB6288B045B7F156F DXSB0065RR(B05CBB045BBC298BDAA8B0006B0002BDAA8B0004B0003BDAA0C0588B0005B2FDA7F12BF DXSB0066R&BDAA0B0000B0002B2FDABC26AB0004B045BB&.04C2BC30BB06A0C072ABC208B13017F15AF DXSB0067.R(B045CB06A0B0000B020AB0000B0420C0584BD6A0C06A6B0208B0000B0209B00007F1F3F DXSB0068RR(B0420C05F8B9820B0000C05B4B130DB0208B0000B0209B0000B9A68B0003B00037F1FBF DXSB0069R B1605BC202B06A0C076AB0460B80000BC260C01F8B1603BC260B0000B13F5BC8207F1B0F DXSB00708R(C071AB0000B0380C071CB06A0C072ABC208B13F1B04E0C0716B045CB0208B00017F1B5F DXSB0071RR(BC288B1309BC220B0000B1306BC248B060AB1304BC259B16FCB04C8B045BBC8197F16AF DXSB0072RC0734B04D9BC288BB C288B0209B0000B05CAB0649B04FAB0649B15FDB0209C07527F166F DXSB0073BR(B6289BC29AB16F6B045BBC2A0C0748B1305BC24ABC299B16FDBC648B045BBC8087F101F DXSB0074RC076CB045B7FD89FDXSB0075>50396ABCLRL30458ASCBLK50210ASGOPN300F0ATE 30474BFTEMP7F29B>F DXSB0076J5010CBIDLIN50624BINDEC30686BLANK 50626BTDAE 3077CBUFPTR7F26FF DXSB0077JJ500C8CHARPR503A0CLSRLS306E6CMDFLG306EECMDSCB30704CMDXIT7F1C6F DXSB0078JJ30514CMMSG230580CMMSGB3058CCMMSGF50024CMOPCL504E4CMPMSG7F208F DXSB0079JL@J50650COMPAR30708CONNFL300AECSMSAF300C2CSMWDF3042ED$PRI 7F222F DXSB0080JJ3062CD10 306D2DATASC30550DECAS5500B6DELAY 500BEDLY1007F333F DXSB0081JJ30036DSRFLG30168ERRDIS5047EERRMSG300FEETA  301DAFDISCR7F22FF DXSB0082J500DEFETCHC506<96FILCLS30678FLGVFC303A8FMPSVC506BAGETB1 7F208F DXSB0083<J506BCGETBS 5072EGETBUF5072AGETONE505C0GETOPN306D6H00 7F27EF DXSB0084JJ30276H0018 300C0H00FE 300B8H00FF 306E8H01 303C2H02 7F4A8F DXSB0085J30282H04 3036EH2000 30270H.4000 30118H80 306AEH93 7F51BF DXSB0086.J50646HEXAS15063AHEXAS230528HEXASL304BAHEXASW3064CHEXTBL7F1D8F DXSB0087JJ40000HF0 40000IDFLAG306F2LOGSCB40000MESAGE306E2MSGSTF7F2C7F DXSB0088J,30562MSGTAB3003EOPNCOM505FAOPNERA3066APCHD, B 3055APNSEGB7F1F0F DXSB0089 J30670PRTDB 30428R$MAX 30182RDRSTS5035AREADIN5022CREASGO7F242F DXSB0090JJ5076ARELBUF30600RENDFL50004REQXMT30608RERROR5076ARLBUF 7F1DDF DXSB0091J:503EARLSQEN3067ERPRRL 30666RPURL 3061ERWSP18305B6S$FLAG7:F1F0F DXSB0092J50590S$TASK30726SACMD 3070ESARCV 306CESCRACH306CASCRAVB7F231F DXSB0093JJ306DESCRSTF40000SETSEG50574SETTIM500FASTOREA50100STOREC7F188F DXSB0094JH500F4STOREX5001ASWPCHL40000TMPVEC50664TRAILB501C2TRMCON7F199F DXSB00H95J50186TRMMSG501FCTRUNCB30760UOBLGT30154VBDERR301ACVLDISC7F192F DXSB0096JJ305F4VNDSE 306DAVNOBUF305CEVSDOPE50078WAITCM40000WAITIO7F1AEF DXSB0097JJ50048WAITSY5007AWATCOM5009CWATFLG40000WATPRB5004AWATSYS7F180F DXSB0098J3012EWDBDCOM301E8WETCOM500ECXLCATE3011EXMTRLN30566XWSP167F198F DXSB0099D430524XWSP17304C0XWSP183034AZERO 7F7C1F DXSB01004B:  DXSB  08/25/81 12:13:38  SDSMAC 3.4.0 81.117DXSB0101B0000WATPRB5004AWATSYS7F180F DXSB0098J3012EW@R#002ECDXSRCV A0000B0000B0001B0000B0002B0000B00FFB0000B0000C007A7F23AF DXSR0001RR(C000EC0026C0012C01D0C0016C01C6C001AC022EC001EC0228B06A0B0000BC0887F1C8F DXSR0002RN&BC000B1605B0208B0000B0209C003EB102DB0581B0600B04E0B0000BC000B13F57F1ECF DXSRN0003R(B06A0B0000B0208C0000B06A0B0000BC249B1309B06C9B9809B0000B1612B02087F1F7F DXSR0004RR(C0000B06A0B0000B10E4B06A0B0000B0208B0000B06A0B0000B04E0B0000B10DB7F205F DXSR0005RD!B06A0C0028BC088B04C9BD889B0005BC0C2BC000B1609B0209C00A2B0208B00007DF1A4F DXSR0006R(B06A0B0000B0420B0000B0380B0581B0600B04E0C0040B05A0B0000B06A0C00487F21BF DXSR0007RR(BC000B1331B06A0B0000BC103BC4C8BC0C8BF8E0B0000B0004B06A0B0000BD2637F199F DXSR0008R:B0005B1312BB8A0B0000B0006BC000B13DBB9811B0000B1307B9811B: 0000B13DE7F1D7F DXSR0009R(B78A0C00CEB0006B1003B0581B0600B16D9BC203B80D2B1602BC0C2B1001BC0C47F191F DXSR0010RR(B04D3B06A0B0000B06A0C006AB0208C006EB06A0C0072B04E0C0076B10BCBD2627F19CF DXSR0011R0B0006B13B9BC8A0B0000B0008B05A0C011CBC260B0000B0$C220B0000B06C8BC0D27F1AEF DXSR0012$R(BD2A3B0004B22A0B0000B1602B0208B0100BE248BC889B000ABD8A0B0000B00077F1C4F DXSR0013RR(BC8A0B0000B000CBC220B0000B06C8BD888B0010B04C9B22A0C0136B1601B07097F1B3F DXSR0014R&BD222B0006B0988B0608B1208B1307BC0D3B&.C249B10FABF8E0B0000B0004B10F67F18AF DXSR0015.R(B0208B0000B06A0B0000BC260B0000B1306BC260B0000B1603BC820C01C4C018E7F1EFF DXSR0016RR(B06A0C0104B020AB0000B0420B0000B0208B0000B0420B0000B0420B0000BD6A07F238F DXSR0017R B0000B0208B0000B06A0C010CB804E0C0110B0460B0000B0000B0205B1002B02047F243F DXSR00188R(B0000B1004B0205B1001B0204B0000B06A0C007CBC088BC000B1604B0209C01EE7F1F1F DXSR0019RR(B0460C0090B0600B0581B04E0C00A4B06A0C00ACBC000B13F4B06A0C00B4BC4887F196F DXSR0020RBC0C8BC305BC2C0BB C281BC244BC202B0420B0000B1802BC0D2B10C1B06A0C019A7F16AF DXSR0021BR(B0208C0108B06A0C01BAB04E0C01BEB10DDB0204C01CCB1002B0204C01D6BC0D47F176F DXSR0022RR(BC103BC0E4B0002B16FCBC000B1604B0209C024CB0460C0090B0600B0581B04E07F1B6F DXSR0023RC01F0BL%06A0C01F4BC000B13F4BC0D4B58E0C00BEB0004B06A0C00C4BD023B00057F16DF DXSR0024LR(B1338BD263B0005B0989B0229B0006BA243B0609B9819B0000B1620BD660B00007F1E2F DXSR0025RR(B0609B9819C027AB1603BD660C0280B100DBD223B0005B0988B0588B0288B00007F1C0F DXSR0026RT@R(B1B1BB05C9BD660C028CBB8E0C00E4B0005BD920C005AB000EBD920B0000B00077F16BF DXSR0027RR(BD920C01B2B000FB1009BD920C02B8B000EBD920B0000B0007BD920C02C0B000F7F198F DXSR0028RN&B0460C01C2BD8E0C02CCB0005B06A0C0218B0208C021CB06A0C0220B04E0C02247F1ADF DXSRN0029B10AA7FEA4F DXSR0030J30252ABTCHK300DEASTRSK30022CIWS 302D2CMDXIT300D8COMMA 7F24FF DXSR0031JJ30188CONNFL300A8CSMSAF302B2D$PRI 301A2DATASC30286DLROPT7F231F DXSR0032J830184ENQUE 30126FCPEX 3012AFXPAR 301DAGETB1 301FCGETBS8 7F2B3F DXSR0033J302D6H00 302A6H01 40000H10 3025CH20 30178H40 7F57AF DXSR0034JJ 3015EH4000 302C6HF0 302ACHFF 40000IDSEGB50016OVRPR 7F3BFF DXSR0035JF5001EOVRPRD5001AOVRPU 50022OVRPUD5000EOVSEND50012OVSNDS7F197F DXSRF0036J30262PNSET 40000PNSET23009APROMPT30230PRQHP 3022APUQHP 7F22AF DXSR0037JJ5007AQJOB 50026QJOBDS40000R$MAX 40000RBUF 501D0RCVPR 7F306F DXSR0038JJ501C6RCVPU 3020ERCVQUE30152RECBLK30100RELBUF5022ERPRDEF7F1F7F DXSR0039J5022F8RPUDEF30096RPYAVB30050RPYCHK30064RPYQSL3024ESACMD 7F1E5F DXSR0040FJ30196SAXMT 3019ESCRACH302DCSCRAVB302E4SCRMSG302E8SCRSTF7F1B2F DXSR0041JJ301AASETSEG301A6SIDMSG30000SPR 30146SPRI30004SPU 7F303F DXSR0042J 30008SQSL 301C4SV8CXMT3029AUPNLGT40000UPNMAX30032VDEV 7F238F DXSR00438J 302E0VINVIP30092VPN 40000VQEMP 301B6VSCRCH40000VXID 7F2B0F DXSR0044JJ30122XACTID301AEXIDASC30180XQHP 3014CXRECL 40000XSXID 7F274F DXSR0045J 302A2ZERO 7FD41F DXSR0046SV"D:  DXSRCV  08/25/81 12:15:20  SDSMAC 3.4.0 81.117DXSR0047D0092VPN 40000VQEMP 301B6VSCRCH40000VXID 7F2B0F DXSR0044JJ30122XACTID301AEXIDASC30180XQHP 3014CXRECL 40000XSXID 7F274F DXSR0045J 302A2ZERO 7FD41F DXSR0046SV"@R#000EEDXSTAT A0000B0000C0004B04E0B0000BC000B1609B06A0B0000B02087F222F DXST0001RR(B0000B0209C0022B0420B0000B0380B0581B0600B04E0C0006B05A0B0000B06A07F22DF DXST0002RN&B0000BC000B130EB0208C00C8B06A0B0000BC109B130BB0289C009EB1302B06A07F1C4F DXSTN0003R(C00A8B0694B0460B0000B0204C0066B10F8B06A0B0000B0208B0000B06A0B00007F20EF DXST0004RR(B04E0B0000B10D3B0420B0000B0420B0000B0420B0000B0420B0000B0420B00007F260F DXST0005RD!B0420B0000B10E5B0420C0078B10E2B0420C0074B10DFB0420C0068B10DCB04207DF1E0F DXST0006R(C006CB10D9B0420C0070B10D6B0208C00C8B06A0B0000B10B2BC30BB06A0C00567F1B1F DXST0007RR(B020AB0000B0420B0000BD6A0B0000B0208B0000B0209C0062B0420B0000B045C7F22BF DXST0008R:B0000C0086B0000C0080B0000C007AB0000C0072B0000C0092B0000C: 008CB00007F24CF DXST00090C0098B0000C0066B0000C009EB00007F97FFDXST00100J3002CABTCHK40000ASTRSK30000CIWS 3004CCMDXIT30028CSMSAF7F252F DXST0011JJ 300B4DATASC300B8H00 300C4MSGSTF3008EOVCOM 30094OVCONS7F291F DXST0012J 30082OVRPR @Q3007COVRPUQ30088OVSQ 50000OVSTAT3009AOVTID 7F1D3F DXST0013@J3001APROMPT3000ERPYAVB30038RPYCHK300A4RPYQSL30024SACMD 7F1C3F DXST0014JJ300E4SALL 300D4SALLQ 300B0SCRACH300ACSCRAVB3005ESCRMSG7F23CF DXST0015J 300C0SCRSTF300D8SCT 302 0DCSCUR 300E0SID  300E8SQSL 7F323F DXST00162J 300CCSRPR 300D0SRPU300C8SS  50004STATS 300BCVINIT 7F2FAF DXST0017J( 3005AVINVIP30012VOPT7FA65FDXST0018(D:  DXSTAT  08/25/81 12:15:59  SDSMAC 3.4.0 81.117DXST0019D@R#0014ADXSTCT A0000B0000C0004BCB4EB0016B02E0B0000B1000BC30BB06A07F1F5F DXST0001RR(B0000B0208B0000B04F8B0288B0000B12FCB2FE0B0000B0200B0000B0208C00227F207F DXST0002RN&B06A0B0000B0208C00ECB06A0B0000B0204C007EB020BB0002B020AB0000B060B7F1EAF DXSTN0003R(B1112BC234B1316B0288C00DEB1605B0208B0000B0420B0000B10F4BC218B04207F1ECF DXST0004RR(B0000B0208B0000B0420C0058B10ECBD6A0B0000BC234B06A0C0036B10E2B04E07F1CFF DXST0005RD!B0000B045CB0000B0000C011AB0000B0000C0120B0000B0000C0126B0000B00007DF271F DXST0006R(C012CB0000B0000C0132B0000B0000C0138B0000B0000C013EB0000B0000C01447F260F DXST0007RR(B0000C00DEC00F6B0000C00DEC010EB0000C00DEC00E0B0000C00DEC00E6B00007F1A1F DXST0008R:B0000C0108B0000B0000C00FCB0000C00DEC0102B0000C00DEC0114B: 0000B00027F21AF DXST0009R(C0042B0000B0002C00E2B0000B0004B0000B0000C00EEB0000B0002C00E8B00007F23FF DXST0010RR(B0002C00F8B0000B0002C00FEB0000B0002C0104B0000B0002C010AB0000B00027F241F DXST0011R0C0110B0000B0002C0116B0000B0002C011CB0000B0002C0$0122B0000B0002C01287F273F DXST0012$R(B0000B0002C012EB0000B0002C0134B0000B0002C013AB0000B0002C0140B00007F269F DXST0013RJ3000ACIWS 30060DECAS540000EBCDLE40000EBCENQ40000EBCNAK7F2F4F DXST0014J.40000ETA 3006EH00  30054NBLK1030064NBLK2 . 50000OVCONS7F3BEF DXST0015J30016PARBUF3001CPAREND3002ARDSCOM30148SACK 30026SACMD 7F29BF DXST0016JJ 300EASBDTRX3011ESBID30124SBIDAC300E4SBIDOV300F0SCOMLK7F228F DXST0017J<30146SCRACH30012SCRAVB300F2SCRLF 30074SCRMSG3007ASCRSTF7F2<0EF DXST0018J300FASCVRPY30118SDATX 3013CSENQ 30100SENQTX30142SEOT 7F25AF DXST0019JJ30068SETSEG30106SIDLTX30130SNAK 3010CSNAKTX30000SOWS 7F268F DXST0020JJ 300F4SRCXMT30112SRVI300A8STACKR300AASTACKX30084STBDAR7F1EAF DXST0021J@J30086STBDAX300C0STBID0300BASTBIDO3007ESTBIDR30080STBIDX7F1DBF DXST0022JJ300AESTCONV300D8STDAT0300CCSTENQ0300CESTENQ13009CSTENQR7F17DF DXST0023JJ3009ESTENQX300A2STEOTR300A4STEOTX40000STID 300D2STIDLT7F1BAF DXST0024J300C6STNAK0300<C8STNAK130090STNAKR30092STNAKX300B4STRVIR7F1B3F DXST0025<J3012ASTTD 3008ASTTTDR3008CSTTTDX30096STWAKR30098STWAKX7F195F DXST0026J>30136SWACK 40000VSCRCH3002EWATCOM40000XMTID 7F507F DXST0027>*:  DXSTCT  08/25/81 12:16:24  SDS*MAC 3.4.0 81.117DXST00280B4STRVIR7F1B3F DXST0025<J3012ASTTD 3008ASTTTDR3008CSTTTDX30096STWAKR30098STWAKX7F195F DXST0026J>30136SWACK 40000VSCRCH3002EWATCOM40000XMTID 7F507F DXST0027>*:  DXSTCT  08/25/81 12:16:24  SDS*@R000D0DXSTQ A0000B0000C0004BCB4EB0016B02E0B0000B1018C0000C00127F24EF DXST0001RR(BCB4EB0016B02E0C000AB1007C000EC0020BCB4EB0016B02E0C0018B1005B02087F1AAF DXST0002RN&C00B8BC120B0000B1009B0208C00BEBC120B0000B1004B0208C00CABC120B00007F1E2F DXSTN0003R(BC30BB06A0B0000B06A0B0000B04E0B0000BC104B1325B06A0C004AB020AB00007F1DDF DXST0004RR(BC224B0008B0420B0000BC0D4BC203B0228B0005BDEA0B0000BD278B1309B09897F1ACF DXST0005RD!BDEB8B028AB0000B1404B0609B16FABC0D3B16F0BD6A0B0000B0208B0000B06A07DF178F DXST0006R(C004EBC124B0002B16E0B04E0C0052B045CB06A0C005AB0208C00B4B06A0C00947F1ACF DXST0007RR(B04E0C009EB045CB0001B0000B0002B0000B0000B0002C00BAB0000B0002B00007F230F DXST0008R& B0000B0002C00C0B00007FBABFDXST0009&30072BLANK 300<26CIWS 30066DECAS53008CH00  5000EOVRPRQ7F336F DXST0010<J 5001COVRPUQ50000OVSQ30030PRQHP 3003APUQHP 3005ESCRACH7F23EF DXST0011JJ300A4SCRAVB300CCSCRLF 300ACSCRMSG300B0SCRSTF300B6SEMPTY7F1A0F DXST0012J 300CESNDQUE3001CSOWS300BCS.RCPRQ300C2SRCPUQ30090VSCR 7F1F8F DXST0013.>30044XQHP 300C8XSPN1 3007EXSPNE 300C6XSXID 7F52CF DXST0014>B:  DXSTQ 08/25/81 12:16:47  SDSMAC 3.4.0 81.117DXST0015B300B6SEMPTY7F1A0F DXST0012J 300CESNDQUE3001CSOWS300BCS@R#00098DXSTID A0000B0000C0004BCB4EB0016B02E0B0000B1000BC30BB06A07F204F DXST0001RR(B0000B0208B0000B04F8B0288B0000B12FCB2FE0B0000B0200B0000B0208C00227F207F DXST0002RN&B06A0B0000B020AB0000B0208B0000BD278B130EB9809B0000B130BB9809B00007F1F3F DXSTN0003R(B1308B9809B0000B1305B0989BD269B0000BDE89B10F0BDEA0B0000B0208C00827F1A1F DXST0004RR(B06A0B0000B020AC0032B0208B0000B0420B0000BD6A0C005AB0208C0090B06A07F202F DXST0005RD!C0062B04E0B0000B045CB0006B0000B0000C0084B0000B0000C0066B0003B00007DF24EF DXST0006C008CC008E7FD8BFDXST0007J3000ACIWS 3003EEBCDLE30044EBCENQ3004AEBCNAK30052ETA 7F31CF DXST0008JJ30072H00 30094NCOL1 50000OVTID 30016PARBUF3001CPAREND7F332F DXST0009J*3002ARDSCOM30026SACMD 30096SCRACH30012SC*" RAVB30088SCRLF 7F26EF DXST0010"J3007ASCRMSG3007ESCRSTF3006ESETSEG30092SLOCAL30000SOWS 7F1F7F DXST0011JJ 3008ASREMOT30036STID30086STRMID3002EWATCOM3006AXMTID 7F21AF DXST0012J8:  DXSTID  08/25/81 12:17:08  SDSMAC 3.4.0 81.1817DXST00136EF DXST0010"J3007ASCRMSG3007ESCRSTF3006ESETSEG30092SLOCAL30000SOWS 7F1F7F DXST0011JJ 3008ASREMOT30036STID30086STRMID3002EWATCOM3006AXMTID 7F21AF DXST0012J8:  DXSTID  08/25/81 12:17:08  SDSMAC 3.4.0 81.18@R#0011CTSKBID A0000B0000C0004B0209B5900BC06DB0018BC02DB0016BC0ED7F1F0F TSKB0001RR(B0006B0206B0000B020AB0000BC1C6B0227B0004B0205B0008BDDE0B0000B06057F1FBF TSKB0002RN&B16FCBC1CAB0227B0004B04F7B04D7BD9A0B0000B0001BDAA0C003AB0001B98117F16AF TSKBN0003R(B0000B1666B0581B0600B1363B0205B0009BC1C6B0227B0004B9811C0046B13077F206F TSKB0004RR(BDDD1B0581B0600B1357B0605B16F7B1054B2FE0C0016BD266B0001B164FBDAA67F160F TSKB0005RD!B000DB0002B0209B5900B0581B0600B1347BC140B0200B0003B0420B0000B18417DF22CF TSKB0006R(B0220BFFFDBA005B113DB0288B00FFB1B3AB0B88BDA88B0008B9811C005CB16347F128F TSKB0007RR(B0581B0600B1331B5AA0B0000B0003B9811B0000B1306B9811B0000B1628BFAA07F1F0F TSKB0008R:C00B6B0003B0581B0600B1322B9811C00AAB161FB0581B0600B1318B: C1CAB02277F1BFF TSKB0009R(B0004B0205B0005B9811C00D4B1310B0605B1305BDDD1B0581B0600B130EB10F67F1D3F TSKB0010RR(BC1CAB0227B0004B0205B0004BDDE0C0040B0605B16FCB2FE0C001ABD26AB00017F172F TSKB0011R" BCB49B0010B03807FC85F TSKB0012" 30090ASC BBN 300BCASCE300C2ASCS 300EAASTRSK30000BIDWS 7F2E3F TSKB0013BJ30028BLANK 30110EXECTK30108H00 30070PGMID 300C8SUSPEN7F310F TSKB0014J 50000TSKBID7FD13F TSKB0015D:  TSKBID  08/25/81 12:17:23  SDSMAC 3.4.0 81.117TSKB0016D SVC 0059 TB00000004' 00910081 TB09000026' 01010104 TB1000005A' 01240132 TB2000006E' 01400126 TB300000CC' 01820178 TB400000E8' 01990208 TB500000FC' 02140203@R#000C8DXWAIT A0000B0000C0004BC000B1609B06A0B0000B0208B0000B02097F246F DXWA0001RR(C001EB0420B0000B0380B0581B0600B04E0B0000B05A0B0000B06A0B0000BC0007F21AF DXWA0002RN&B13EDB0208C00AAB06A0B0000BC249B1303B0699B0460B0000B06A0B0000B02087F1D2F DXWAN0003R(B0000B06A0B0000B04E0B0000B10DBB0208C00AAB06A0B0000B10D6B020AB00007F1E6F DXWA0004RR(B1002B020AB0000BC29AB1306BD22AB0007B1103BC220B0000B1617B045BB020A7F1D7F DXWA0005RD!C0064B06A0C0066B020AC005EB06A0C0066BC2A0B0000B13D7BC220C0072B16087DF1B9F DXWA0006R(B10D3BC220B0000B13EAB045BBC220C0090B13CCBC809C0020B0380B0000C00627F1B5F DXWA0007RR(B0000C005CB0000C0078B0000C0088B0000C0096B0000C009EB0000C0052B00007F23EF DXWA0008R:30028ABTCHK40000ASTRSK30000CIWS 3003ECMDXIT30098CONNFL7:F252F DXWA0009J30024CSMSAF50000OVWAIT30016PROMPT3007APRQHP 30082PUQHP 7F207F DXWA0010JJ3000ARPYAVB30034RPYCHK30058RPYQSL300A6SACMD 300B2SALLQ 7F205F DXWA0011JH300A0SARCV 3008ASAXMT 300BASCON 30042SCRAVB3004ASCRMSG7F253F DXWA00H12J 3004ESCRSTF300BESDIS 300C2SQSL 300AASRPR 300AESRPU 7F291F DXWA0013JJ300B6SS  30046VINVIP3000EVOPT 50004WAIT 40000XQHP 7F34BF DXWA0014JD:  DXWAIT  08/25/81 12:17:45  SDSMAC 3.4.0 81.117DXWA0015D53F DXWA00H@R#001DCCI2780 A0000BC820C000AB0000B0420B0000C000CB06A0B0000B05A07F28BF CI270001RR(B0000B0208B0000B0209C0022B0420B0000B0380B04E0C0004B04C2B06A0B00007F236F CI270002RN&BC000B1323B0208C00AEB06A0B0000BC249B1315BD0E0B0000B1320B151FB98037F1BFF CI27N0003R(B0000B131CB9803B0000B1307B9803B0000B1301B1015B0289C01B0B1312B02897F217F CI270004RR(C01B4B130FB1008B06A0B0000B0208B0000B06A0B0000B04E0B0000BC820C000A7F1F4F CI270005RD!C0024B05A0C0012B0380BC809B0000BC820C008EB0000B0380C0090B04E0C008A7DF1DCF CI270006R(BC32CB0002B041CB0380B0420C00A0B0000C00A4B0208C00AEB06A0B0000B10E47F1CFF CI270007RR(B0000C0148B0000C0154B0000C0150B0000C0158B0000C01A4B0000C01A8B00007F24EF CI270008R:C0180B0000C0184B0000C01D8B0000C0188B0000C018CB0000C01A0B: 0000C019C7F219F CI270009R(B0000C0190B0000C015CB0000C0160B0000C0168B0000C0164B0000C016CB00007F24BF CI270010RR(C0198B0000C0170B0000C0174B0000C0178B0000C0194B0000C01B8B0000C01BC7F223F CI270011R0B0000C01C0B0000C01C4B0000C017CB0000C01ACB0000C0$01B0B0000C01B4B00007F213F CI270012$R(C01CCB0000C01D0B0000C01D4B0000C01C8B0000C014CB0000C009CB0000B04207F1FEF CI270013RR(B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B00007F28BF CI270014R&B0420B0000B0420B0000B0420B0000B0420B&.0000B0420B0000B0420B0000B04207F285F CI270015.R(B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B00007F28BF CI270016RR(B0420B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B0000B04207F285F CI270017R B0000B0420B0000B0420B0000B80420B0000B0420B0000B0420B0000B0420B00007F28BF CI2700188:B0420B0000B0420B0000B0420B0000B0420B00007F7A1F CI270019:J 3002AABTCHK300A0CIWS50066CMDINV50000CMDSET50076CMDXIT7F25AF CI270020J240000CNDELS40000CNDEND3003ECNDFLG30008COMMGR30072ECSMSAF7F237F CI270021J30052H80 30046HC0 3004CHE0 30172OVABT 30162OVANS 7F444F CI270022JJ3014EOVBID 3019EOVBLSP3015EOVCALL301D6OVCLR 3017AOVCMDF7F1F2F CI270023J@30166OVDISC3016AOVDSCR301CAOVID 30196OVLOGF3018EOVPRRL7F1D5F @ CI270024 J301A2OVPURL30084OVR12 301DAOVRBSP301B2OVRELS301B6OVREND7F1AFF CI270025JJ301AEOVRIF 30192OVRPN 30152OVRPR 301A6OVRPRD3015AOVRPU 7F1F3F CI270026JJ301AAOVRPUD3019AOVRSET301BAOVRTRQ301CEOVRVFC3014AOVSEND7F113F CI270027JJ301D2OVSET 30156OVSNDS301C2OVSOPR30186OVSPCE3018AOVSRL 7F1ABF CI270028JJ3017EOVSTAT301BEOVTBID301C6OVTBLK3016EOVTERM30176OVWAIT7F14FF CI270029JJ30182OVXPAR3001EPROMPT3000ERPYAVB30036RPYCHK300AARPYQSL7F157F CI270030J300FESABORT300<7ASACMD 300EASANS 30092SAOVR 3013ESBID 7F2A8F CI270031<J300DESBL 300E6SCALL 30106SCF 30136SCLR 30068SCRAVB7F366F CI270032JJ30070SCRMSG30074SCRSTF300F2SDIS 300EESDISCR30126SELS 7F257F CI270033J300CASEM 3012ASEND30116S.GOPR 3013ASID 30122SIF 7F3D4F CI270034.J3010ASLF 30142SQSL300CESRB 300FASRESET300E2SRPN 7F323F CI270035JJ300B6SRPR 300BESRPRD 300D6SRPRRL300BASRPU 300C2SRPUD 7F22AF CI270036J, 300DASRPURL3010ESRTR300AESS  30132SSET, 300D2SSRL 7F2F1F CI270037J300B2SSS 3011ESST 30112STBID 3011ASTBLNK300F6STERM 7F2EAF CI270038JJ300C6STY 3012ESVFC 30102SWAIT 30016VCMD 3006CVINVIP7F2F6F CI270039J<:  CI2780  08/25/81 12:18:09  SDSMAC 3.4.0 81.117< CI270040 F1F CI270037J300B2SSS 3011ESST 30112STBID 3011ASTBLNK300F6STERM 7F2EAF CI270038JJ300C6STY 3012ESVFC 30102SWAIT 30016VCMD 3006CVINVIP7F2F6F CI270039J<:  CI2780  08/25/81 12:18:09  SDSMAC 3.4.0 81.117<@R#0087CEM2780 A0000B04C7B06A0B0000B1811B110AB0289B5000B1652B06A07F271F EM270001RR(B0000B0208B0000B0420B0000B103EBC2A0B0000B1103B1302B0209B5100BC8097F220F EM270002RN&B0000B020AB0000BC0CABC293B130DBC260C002CBC8C9B0020BC809B0000B06A07F187F EM27N0003R(B0000B0000B06A0B0000B06A0B0000BC2A3BFFFEB16EDB04C9B04E0B0000BD2607F17CF EM270004RR(C003AB0289B5000B160ABD220B0000B1316B06A0C0012B0208B0000B0420C001A7F209F EM270005RD!B100BB0289B1800B1308B0289B0600B1305B0289B0300B1302B0460C009AB06A07DF1FAF EM270006R(B0000B04D0B0380B0209B0A00B0760B0000B1503B1302B0209B0900BD849B00027F215F EM270007RR(B06A0B0000B10A7BC260C005CB16F0B04E0C0020BC161B0006BC121B000AB04E07F1B0F EM270008R:B0000B06A0B0000B980AB0000B1604B0720C00C8B06A0C00CCBC1C7B: 1611B06A07F1BAF EM270009R(B0000B170AB0208B0000B04CAB06A0B0000B06A0B0000C009AB0460C03B8BC1E27F1C8F EM270010RR(B0006BC1A2B0008BD8E0B0000B001EBC263B000EBC259BD269B0004B2260B00007F1AAF EM270011R0B1603BD8E0B0000B001EB06A0C00DAB11BBBD8E3B001EB0$001EB1304BC820C00D67F15BF EM270012$R(C012EB1621B980AB0000B161EB06A0C0120B11ADB06A0B0000C04BCBC24AB06A07F189F EM270013RR(B0000B0000BC289BC260C0130B1344B101BB04C9BD268BFFFFB0979BC829C05247F162F EM270014R&B0000B0203B0000BC260C0152B1334BC263B&.000AB1006BC260C016CB1331BC2637F1E9F EM270015.R(B000AB1006B06A0C013CB1402B0460C009AB130CBD223B001EB1603B06CABD2AA7F188F EM270016RR(B0000B06A0B0000B0609B16F0B06A0C0184B06A0C0142C050CB1064B06A0C01A47F1D6F EM270017R B980AC00D0B1303B0584B0605B8105CB06A0C01B0B980AB0000B1357B05C4B06457F1B4F EM2700188R(B1054BC260C0178B16B9B0203C0030B06A0C01C0B1147B06A0C01A8C04A8B06A07F1AEF EM270019RR(B0000B10F7B06A0C01DAB06A0C01E0C0518BC24AB06A0C014AB0000BC289B10EF7F16CF EM270020RBC818B0000B06A0CB 0070B020AB0000BC220C0202B0420B0000BD6A0C0104B02087F1FCF EM270021BR(B0000B0209B0000B0420C0078B1018BC818C020EB06A0C0206B020AC020ABC2207F1EAF EM270022RR(C0228B0420C0212BD6A0C0216B0208B0000B0209C021EB0420C0222BC220B00007F20FF EM270023RB1603BL%C820C03B0C024CBC1E2B0006BC1A2B0008B0460C043AB05A0C00BCB10027F196F EM270024LR(B0720C0264B8887B0006B1602B0460C009ABC4D3B1302B0460C03B8BC820B00007F1CDF EM270025RR(C0280B1324B020AB0000B06A0B0000BC820B0000C0290B161CB0208B0002B06A07F209F EM270026RT@R(B0000BC208B130FBC28CBC2C7B62CCBC323B0018BC243B0229B000EB0420B00007F183F EM270027RR(B1802B0460C0200B06A0B0000B06A0C022CB0208B0000B0420C0248B1072BC8207F20BF EM270028RN&B0000C02D0B1319B020AB0000B06A0C028CBC820C0292C02E0B1611B06CBB72E07F1ADF EM27N0029R(C02D8B06CBB0420B0000B1802B0460C0226B06A0C02C2B0208B0000B0420C02CA7F1D9F EM270030RR(B0460C0256BC820B0000C030AB1320B020AB0000B06A0C02DCBC820C02E2C031A7F1BEF EM270031RD!B1618B06CBB72E0C0312B06CBB0420B0000BC1C8B06A0C02FAB020AC0230BC2077DF179F EM270032R(B0420B0000BDEA0C023CB0208B0000B0209C0244B0420C0302B0460C0256BC8207F1F5F EM270033RR(B0000C0352B132DB020AB0000B06A0C0316BC820C031CC0362B1625B06CBB72E07F1BDF EM270034R:C035AB06CBB1320BC80BB0000BC80CC0234B06A0C0330BC320C0378B: C2E0C03747F17DF EM270035R(B0208B0000B020AC0334BDEBCB060BB1302B0608B16FBBDEA0C033EB020AC038C7F156F EM270036RR(B0208B0000B0209C0346B0420C034AB0460C0256C054CB06A0B0000C009AB05A37F1EDF EM270037R0B0014BC287BC222B0006B6288BC263B0012BC269B0004B0$2260C0114B1325BC8207F1CDF EM270038$R(B0000C03D4B1303B06A0B0000B1006B06A0B0000B1603B058ABD620B0000B88CA7F1DFF EM270039RR(B000AB1204BC2A3B000AB05A3B0016BC1C8BA1CABC220C0164BD2E3B001CB11237F16CF EM270040R&B980BB0000B1302B0208C0532BD278B0989B&.DDF8B0609B16FDBC2C7B61E2B00067F159F EM270041.R(BC887B000AB0247B0001B1302BD6E0C039AB04C7BD8A3B0005B0003B2FD2BC8207F172F EM270042RR(C0526C0400BC220C026AB1602B0460C00DCB0460C009AB0283C01D6B13E4BC2E07F19BF EM270043R B0000B16DCB10E0BC247B6262B80006B0229B0000B0589BD2A0C03EAB06A0C019C7F18CF EM2700448R(BDE59B1603B0289B0000B12F9B0460C01D8B0209C0464B06A0C01ECB06A0C01F07F187F EM270045RR(C04F0BDE60C042EB1002BDE60B0000B0288C0476B12F3B06A0C0484B06A0C04887F183F EM270046RC0500B10FAB2600CB 0262B1F00C0276B1900C01EAB0500C045CB03FFC0268BF4007F199F EM270047BR(C01CEBE303C0158BE202C0158BC806C0158BC706C0158BC606C0158BC506C01587F179F EM270048RR(BC406C0158BC306C0158BC205C0158BC104C0158B6101C0158B05FFC047EB26007F197F EM270049RC0262BL%1500C0256B0500C0492B03FFC0268B2600C009AB1500C0256B03FFC009A7F1BAF EM270050LR(B2600C0262B1F00C01AEB03FFC0268B2600C0262B1F00C0276B03FFC0268B00007F1A3F EM270051RR(C0532C0535C0539C053EC0541C0544B020DB0A03B0D0AB0A04B0D0AB0A0AB020D7F18CF EM270052RT@R(B0C02B0D0BB070DB0A0AB0A0AB0A0ABC260B0000B130DB06A0B0000B100AB170B7F17DF EM270053RR(B0208B0000B04CAB06A0C00EEB06A0C004CB0460C0838B04D0B0380BC2A3B00107F1A1F EM270054RN&BD82AB000AB0000BD82AB000BB0000BD16AB0005BC2EAB000CBC80BB0000B05CB7F158F EM27N0055R(BC80BB0000BD2EAB0010B098BBC80BB0000BC29ABD82AB0004B0000B5820B00007F184F EM270056RR(C05A2B06A0B0000B06A0B0000B04C9B06A0C0046B0003BD145B1330B04E0B00007F1E5F EM270057RD!BC1E1B0006BC1A0B0000B06A0C01F8C01C4B06A0C05CCC0136B020AB6100B98057DF18CF EM270058R(C0494B1302B020ABF400B06A0C046EBD2A0C0578B132BB0460C072CB0460C07FA7F17FF EM270059RR(B06A0C0004B1711B0289B5500B16F8BC061BFFFEB06A0C05F8B18F3B04CABD84A7F120F EM270060R:B0004BC061BFFFEBD84AB0004B06A0C05ACB04E0C05C0BC1E1B0006B: C1A0C05C87F11CF EM270061R(BC2A0C05A8B1304BC1A0C0590B05C6B1006BD2A0C05EAB1603B06A0C05D2C05CE7F14BF EM270062RR(BC820C054EC0646B1604B0209B1800B0460C07FAB06A0C00E2B187AB1303B15027F1ABF EM270063R0B0460C0796B8806C0632B1160BC2A0C059AB1303B880AC0$0620B125AB05A0C06707F1B0F EM270064$R(B05A0B0000BC162B0006BC122B000AB8804C058AB1204BC120C0686B05A0B00007F1D3F EM270065RR(BD2A0C062CB1603BD2A0C063AB1309B06A0C0640C01B4B06A0C06A0C0642BD2A07F176F EM270066R&C0694B161EBC260C068CB6244B1305BA105B&.DD20C046AB0609B16FCBC120C06B27F15BF EM270067.R(BD2E0C069AB1610BC2E0C057EB130DBC284BC205B06A0C03E2B1601B058AB810A7F14AF EM270068RR(B1305BA285BDEA0C01FAB6285BC10AB06A0C049EB110EBD2E0C06ACB1608BD2E07F108F EM270069R C06C8B1603B06A0C04A2C0850B806A0B0000B06A0C05E6B10EFB06A0C06A6B00007F196F EM2700708R(B06A0C05B0B1095B06A0C0710B0000BC2E0C06CEB16F4B10E2B0586B0607B06A07F188F EM270071RR(C071CB0000B06A0B0000B0460C05F6B0208B0000BC2A0C067AB0209B5200BD8A07F1C2F EM270072RC03CEB0004B1003BB 0208C00E8B04CAB06A0C0562BC287B62A1B0006BD2E0C06FA7F169F EM270073BR(B1301B060AB060AB150BBC1E1B0006BC1A0C0628B06A0C072EC06A8B06A0C07747F17EF EM270074RR(B0000B1033B0586B0607B06A0C077AC0730B06A0C0734B06A0C0608B17EBB10327F1C5F EM270075RB06A0CL%0566B06A0B0000B101BB1814B06A0C0716BC2A3B0012BD2AAB0004B52A07F1A7F EM270076LR(C05A6B1602B0460C0644BC2A3B0012BF82AB0004C06F4B5820C07B0C07C0B10B17F196F EM270077RR(BD8A0C0748B0004B0208C055CB10BEBC2A0C0740B13BEB0586B0607B06A0C07867F170F EM270078RT@R(B0000B06A0C078CB06A0C0790B1805BC061BFFFEB06A0C07ECB1706BC309BC0617F140F EM270079RR(BFFFEB06A0C07F6BC24CB04CABD88AB0004BD84AB0004BC061BFFFEBD84AB00047F0B5F EM270080RN&BC809B0000BC809C0042B06A0C05B6B0000BC260C081EB0289B1800B1602B06A07F1B5F EM27N0081R(C0094B06A0C0798B06A0C0050B020AB0003B06A0B0000B060AB15FCB0209C054C7F1B9F EM270082RR(BC409B0459B1F00C073AB1900C071AB1700C073AB1600C073AB1500C073AB10007F1BCF EM270083RDC073AB0500C073AB0400C073AB0300C073AB0200C073AB01FFC073A7F3D0F EMD270084J306BCASCBLK306E6ASCEM 3014CASCESC30554ASGOPN3061CBIDLIN7F219F EM270085JJ 30770BLKSIZ307C6BNRY30700CHARPR30836CLSRLS3039ECMMSG27F21DF EM270086JJ40000CMMSGB303A6CMMSGF30822CMPMSG40000CMPNUM30722COMPR 7F229F EM270087J30H648CONNFL30842DELAY 40000EBCBLK306A2EBCDLE3071EEBCEM 7F2A6F EM270088HJ3077CEBCENQ305D4EBCESC30788EBCETB307E4EBCETX30712EBCIUS7F21DF EM270089JJ30776EBCSTX3006AERRDIS30756ERRMSG30198ETA  303D6FBTRL 7F268F EM270090J306EEFETCHC30456:FLGVFC30282FRPN 302D2FRTRQ 3030CFTBID 7F27EF EM270091:J3029CGETBUF303B4GETOPN3048EH00 305DCH01 3040AH02 7F3CCF EM270092JJ 307CCH4000 307C4HBF 3033AHEXASL40000HEXASW3011AHFF 7F36FF EM270093J 40000INTNUM303AAMSGSTF300F2OPN ,ERA3036COPRDEF30450PCHDB 7F1F2F EM270094,J30288PNDEF 30238PNSEGB30168PRTDB 30060RCVEND30442RCVETX7F246F EM270095JJ302B4RCVQUE3043ERCVVFC301D0RCVXP 30690RDROVR307D8RDRRCT7F18CF EM270096J.307A4READIN3079CREASGO302BERELBUF300A0RENDFL. 307E8REQXMT7F19DF EM270097J300B6RERROR3083ARLSQEN302EARTRDEF30380RWSP1630384RWSP187F1B4F EM270098JJ30364S$FLAG3035ES$TASK30254SAXMT 3037CSETTIM30354SOPRBD7F224F EM270099J<30828SRECFL40000SRECL 3081ASSFL 50526SSMSGP50532SSPMSG7F2<38F EM270100J301E6STOREA3070ASTOREC307E2STOREX50000SVCRCV5054CSVCXMT7F159F EM270101JJ300B0SWPCHL30498TABEND30480TABSTP30324TBDDEF303DCTRAILB7F1F0F EM270102JJ30760TRANSP30832TRMMSG302F0TRRQ 306D8TRUNCB3032ATSKBID7F1D6F EM270103J@J30388UPNLGT30016VBELRC30342VBIDTK30074VIDLER40000VNDSE 7F219F EM270104JJ303A2VOPRTK302C6VRCPNE3021AVRCPNS302FEVRTRER30240VRTRQ 7F15EF EM270105JJ30750VSDEVE307D2VSDOPE3073CVSTRNE30802WAITCM30656WAITSY7F183F EM270106J40000WATFLG307<06XLCATE30664XMTRCS306C4XMTRLN30676XMTRPB7F193F EM270107< 3066AXMXRPB7FCD8F EM270108D:  EM2780  08/25/81 12:18:45  SDSMAC 3.4.0 81.117EM270109DD2VSDOPE3073CVSTRNE30802WAITCM30656WAITSY7F183F EM270106J40000WATFLG307@R#00274OP2780 A0000B0000C0054C0000C0042C0004C00DEC0008C0102C000C7F2A7F OP270001RR(C011AC0010C003CC0014C0132C0018C01A0C001CC0048C0020C004EC0024C005A7F1FBF OP270002RN&C0028C0060C002CC0066C0030C006CC0034C01ECB0204B0000B1017B0204B00007F215F OP27N0003R(B1014B0204B0000B1011B0204B0000B100EB0204B0000B100BB0204B0000B10087F25CF OP270004RR(B0204B0000B1005B0204B0000B1002B0204B0000BC000B1609B06A0B0000B02087F250F OP270005RD!B0000B0209C008AB0420B0000B0380B0581B0600B04E0B0000B05A0B0000B06A07DF21FF OP270006R(B0000BC000B13EDB0208C00D0B06A0B0000BC249B1307B0289BFFFFB130DB06097F17AF OP270007RR(BC509B0460B0000B06A0B0000B0208B0000B06A0B0000B04E0B0000B10D7B02087F20DF OP270008R:C00D0B06A0B0000B10D2B0000B0002B0000B0001B0000BFFFFB0000B: 0204C00E47F1F1F OP270009R(B1039B0288B0000B1B52BC208B1350BC260B0000B0649B0609B8248B1B4ABC8087F1B2F OP270010RR(B0000B0460C00B2B0204C0108B1027B0288B0000B1B40BC208B133EBC808B00007F1F1F OP270011R0B0460C0100B0204C0120B101BB0288C010AB1B34BC208B0$1332BC808B0000B04607F1F3F OP270012$R(C0118B0204C0138B100FB0288B0000B1B28BC208B1326BC248B0649B0609B88097F1C6F OP270013RR(C00FCB1120BC808C00F0B0460C0130BC000B1609B06A0C0076B0208B0000B02097F1DBF OP270014R&C0170B0420C0082B0380B0581B0600B04E0C&.008CB05A0C0090B06A0C0094BC0007F1E9F OP270015.R(B13EDB9811B0000B13F3B0420B0000B1801B0454B06A0C00B6B0208C00BAB06A07F1C0F OP270016RR(C00BEB04E0C00C2B10DDBC000B1609B06A0C015CB0208B0000B0209C01BAB04207F19BF OP270017R C0168B0380B0581B0600B04E0C80172B05A0C0176B06A0C017AB0420C0188B18EC7F1BDF OP2700188R(B0288B00FFB1B04BC808B0000B0460C0154B06A0C0190B0208C0194B06A0C01987F1BDF OP270019RR(B04E0C019CB10DCBC000B1609B06A0C01A6B0208B0000B0209C0206B0420C01B27F1C3F OP270020RB0380B0581B0600BB 04E0C01BCB05A0C01C0B06A0C01C4BC000B1325B9811C01827F1B8F OP270021BR(B13F3BC1C1B06A0B0000B0000B1603B8800B0000B1209B06A0C01DCB0208C01E07F1CCF OP270022RR(B06A0C01E4B04E0C01E8B10D9BD820B0000B0000BC1C0B0209B0000B9811C02187F1B8F OP270023RB1308BL%DE71BD660C0240BB820B0000C0242B0607B16F5BC000B1606BD820B00007F1B9F OP270024L0C025ABD820C0254C0248B0460C01D87F943FOP2700250J30210ABTCHK301C8ASCBN 3024CASTRSK30150BLKSIZ3013ABLMAX 7F248F OP270026J( 50132BLSPEC30038CIWS30272CMDXIT3020C($ CSMSAF5006CDISCR 7F272F OP270027$J30068FBTRL 30044FCPEX 3006EFDISCR5004EFILVFC30050FLGVFC7F25CF OP270028JJ3003EFRPN 3004AFRTRQ 3005CFTBID 30056FXPAR 3026CH00 7F348F OP270029J630258H01 30266HFF 30222IDCHK 30268IDFLAG30228IDM6AX 7F3D1F OP270030J501ECIDTRML300E6INPMAX30122OUTMAX50018OVBLSP50034OVDSCR7F18DF OP270031JJ50038OVID 5000COVPRRL50010OVPURL5001COVRBSP50014OVRPN 7F1F8F OP270032JD50020OVRTRQ50024OVRVFC5002COVSOPR50004OVSPCE50008OVSRL 7F1A4F OPD270033J50028OVTBID50030OVTBLK50000OVXPAR301FEPROMPT50102PRRLSP7F187F OP270034JJ5011APURLSP30220RANGEC501A0RBSPEC301D4RECBLK500DERLSPEC7F1C8F OP270035JJ5003CRPNAME30114RPRRL 3012CRPURL 301F2RPYAVB300A0RPYCHK7F1DDF OP270036J30H0CCRPYQSL30208SACMD 3022ESCRAVB30236SCRMSG3023ASCRSTF7F1C8F OP270037HJ 300D4SOFF 300D0SON  30062SOPRBD50042SPCE 300D8SQSL 7F33CF OP270038JJ5005ATASKBD50066TBLANK50048TRNRQ 50060TSKOPR301F6VID 7F25FF OP270039J30232VINVIP30160:VLGTH 301AAVNR 3007AVOPT 3026EXMTID 7F29EF OP270040:(50054XPAR 3014AXRECL 7FAA9FOP270041(D:  OP2780  08/25/81 12:20:50  SDSMAC 3.4.0 81.117OP270042D048TRNRQ 50060TSKOPR301F6VID 7F25FF OP270039J30232VINVIP30160@R#00382ST2780 A0000B0000C0004BCB4EB0016B02E0B0000B1000BC30BB06A07F260F ST270001RR(B0000B0208C02E8B06A0B0000B04E0B0000B06A0C0012BC260B0000B1609BC2607F1F4F ST270002RN&B0000B1603B0208C02CAB1057B0208C02CEB1054B04C4BC260B0000B131CBC0A07F1B6F ST27N0003R(B0000B1319B0584B020AB0000B0420B0000BC220B0000B0420B0000BC220B00007F243F ST270004RR(B0420B0000BD6A0B0000BC260B0000B1603B0208C036AB1002B0208C0370B06A07F205F ST270005RD!C001ABC260B0000B1315B0584BC0A0B0000B020AC004EB0420C0052BC220B00007DF1F0F ST270006R(B0420C005ABC220B0000B0420C0062BD6A0C0066B0208C035EB06A0C007ABC2607F1C1F ST270007RR(B0000B1315B0584BC0A0B0000B020AC008AB0420C008EBC220B0000B0420C00967F1F2F ST270008R:BC220B0000B0420C009EBD6A0C00A2B0208C0364B06A0C00AABC104B: 1604B02087F1B5F ST270009R(C02D2B06A0C00DAB0204C0280BC174B1312BC2B4B130CB0208B0000BC274BC2597F193F ST270010RR(B1302B0208B0000B0420B0000BDEA0C00D2B10F2BC205B06A0C00E6B10ECB02047F1B3F ST270011R0C0256BC174B130DBC2B4B1307BC234BC218B0420C00C6B0$D6A0C0108B10F7BC2057F16DF ST270012$R(B06A0C0110B10F1B020AC00BAB0208B0000B05C8B0420B0000BD6A0C012AB02087F1CCF ST270013RR(C02D6B06A0C0132BC220B0000B130AB020AC0138B0420C00CEBD6A0C0146B02087F1B8F ST270014R&C02DCB06A0C014EB020AC0158B0208B0000B&.05C8B0420C0142BD6A0C0160B02087F1BCF ST270015.R(C034EB06A0C0168BC220B0000B130AB020AC016CB0420C015CBD6A0C017AB02087F1A2F ST270016RR(C0354B06A0C0182B020AC018CB0208B0000B05C8B0420C0176BD6A0C0194B02087F1CCF ST270017R C0376B06A0C019CB020AC01A0B80208B0000B05C8B0420C01AABD6A0C01AEB02087F192F ST2700188R(C02E2B06A0C01B6B0203B0000BC0C3B1609B06A0C0022B0208C035AB06A0C01D07F1B9F ST270019RR(B04E0C001EB045CB0204B0000B04C5B020AC01BAB0206B0004BC205B0420C01267F1D3F ST270020RBD6A0C01C8B020ABB 0000BC205B0228B000FB0420C01FEBD6A0C0202B020AB00007F1A2F ST270021BR(BDEA0B0000B0207B0004BD220B0000BD274B1302BD220B0000BDE88B0585B06077F1B9F ST270022RR(B1303B80C5B16F4B1002B0606B16EDBD6A0C0214B0208C0340B06A0C01E4B80C57F191F ST270023RB16D1BL%04E0C01E8B045CC0328C01F4B0000B0000C032EC0258B0000B0000C03347F1DFF ST270024LR(C0260B0000B0000C033AC0268B0000B0000C037CC0270B0000B0000B0000C02EC7F22AF ST270025RR(C0278B0000B0000C0322C0282B0000B0000C02F8C028AB0000B0000C02FEC02927F20FF ST270026RT@R(B0000B0000C0304C029AB0000B0000C030AC02A2B0000B0000C0310C02AAB00007F235F ST270027RR(B0000C0316C02B2B0000B0000C031CC02BAB0000B0000B0000B0001B0000B00017F24DF ST270028RN&B0000B0001B0000B0002B0000C02C2B0002B0000C02DAB0002B0000C02E0B00017F24FF ST27N0029R(B0000B0002B0000C02E6B0002B0000C02F0B0002B0000C02F6B0002B0000C02FC7F225F ST270030RR(B0002B0000C0302B0002B0000C0308B0002B0000C030EB0002B0000C0314B00027F271F ST270031RD!B0000C031AB0002B0000C0320B0002B0000C0326B0002B0000C032CB0002B00007DF266F ST270032R(C0332B0002B0000C0338B0006B0000C033EB0000C0206B0000C0218B0002B00007F25CF ST270033RR(C0344B0002B0000C0352B0001B0000B0002B0000C0358B0002B0000C0362B00027F272F ST270034R:B0000C0368B0002B0000C036EB0002B0000C0374B0002B0000C037A7:F451F ST270035J 30224ASC0 3022CASC13021CBLANK 3025ABLKSIZ3000ACIWS 7F350F ST270036JJ3013CCMDID 301BECOMID 30026CONNFL30210DECAS5302BCFBTRL 7F29DF ST270037JH30152FCFIL 3028CFCPEX 302C4FDISCR30186FLFIL 302A4FLGVFC7F28CF ST2700H38J30294FRPN 3029CFRTRQ 302ACFTBID 30284FXPAR 30242H00 7F34AF ST270039JJ301A4JNLID 30170LOGID 302EANBLK2 3034ANCOL1 50000OVCOM 7F2F0F ST270040JJ300AEPCHSTS301C4PNSEG 30190PNSEGB30086PRCCB 3009APRCPN 7F23CF ST270041J30092PDRRCT 3007EPRTSTS300B6PUCCB 300CAPUCPN 300C2PURCT 7F216F ST270042DJ30046RDRCCB3005ERDRCPN30056RDRRCT3006ARDRSTS3027ARECBLK7F1CBF ST270043JJ3026ARPRRL 30272RPURL 3002CSARCV 30040SAXMT 3030CSBDTSK7F239F ST270044J 3032ASBLGTH302F4SCEM4302CCSCMDSC302E4SCMDVN302D4SCMIDL7F20BF ST2700454J302D0SCONIN30348SCR10 3034CSCR20 30380SCRACH301DCSCRAVB7F286F ST270046JJ3024ASCRMSG30252SCRSTF3031ESDSCRM30324SEMO 30104SETSEG7F214F ST270047J&30342SFLAGS30378SJRNAN30330SNDLGT303&& 00SNDREQ3035CSNOFLG7F1DDF ST270048&J 300F6SOFF 30100SON 30312SOPMSG302B4SOPRBD30000SOWS 7F2E2F ST270049JJ302D8SPCACN30306SPFVFC30350SPLGAN3037ESRCDBL30336SRCPLT7F1D9F ST270050J430360SRCPRN3033CSRCPUL30366SRCPUN302FASRCVPN30318S4RETAN7F16FF ST270051J302DESSCACN30356SSLGAN30346STO 3036CSTRANS30372SXMPND7F20EF ST270052JJ302EESXPAR 301EEUFLAG 301D4UFLGNO300BEXIDASC30262XRECL 7F207F ST270053J(40000XSPN1 40000XSTA1 7FAB6FST270054(:  ST2780  08/250/81 12:21:31  SDSMAC 3.4.0 81.117ST2700550346STO 3036CSTRANS30372SXMPND7F20EF ST270052JJ302EESXPAR 301EEUFLAG 301D4UFLGNO300BEXIDASC30262XRECL 7F207F ST270053J(40000XSPN1 40000XSTA1 7FAB6FST270054(:  ST2780  08/25@R#001D4CI3780 A0000BC820C000AB0000B0420B0000C000CB06A0B0000B05A07F299F CI370001RR(B0000B0208B0000B0209C0022B0420B0000B0380B04E0C0004B04C2B06A0B00007F236F CI370002RN&BC000B1323B0208C00AEB06A0B0000BC249B1315BD0E0B0000B1320B151FB98037F1BFF CI37N0003R(B0000B131CB9803B0000B1307B9803B0000B1301B1015B0289C01ACB1312B02897F205F CI370004RR(C01B0B130FB1008B06A0B0000B0208B0000B06A0B0000B04E0B0000BC820C000A7F1F8F CI370005RD!C0024B05A0C0012B0380BC809B0000BC820C008EB0000B0380C0090B04E0C008A7DF1DCF CI370006R(BC32CB0002B041CB0380B0420C00A0B0000C00A4B0208C00AEB06A0B0000B10E47F1CFF CI370007RR(B0000C0144B0000C0150B0000C014CB0000C0154B0000C01A0B0000C01A4B00007F250F CI370008R:C017CB0000C0180B0000C0184B0000C0188B0000C019CB0000C0198B: 0000C018C7F21BF CI370009R(B0000C0158B0000C015CB0000C0164B0000C0160B0000C0168B0000C0194B00007F253F CI370010RR(C016CB0000C0170B0000C0174B0000C0190B0000C01B4B0000C01B8B0000C01BC7F218F CI370011R0B0000C01C0B0000C0178B0000C01A8B0000C01ACB0000C0$01B0B0000C01C8B00007F217F CI370012$R(C01CCB0000C01D0B0000C01C4B0000C0148B0000C009CB0000B0420B0000B04207F221F CI370013RR(B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B00007F28BF CI370014R&B0420B0000B0420B0000B0420B0000B0420B&.0000B0420B0000B0420B0000B04207F285F CI370015.R(B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B00007F28BF CI370016RR(B0420B0000B0420B0000B0420B0000B0420B0000B0420B0000B0420B0000B04207F285F CI370017R B0000B0420B0000B0420B0000B80420B0000B0420B0000B0420B0000B0420B00007F28BF CI3700188& B0420B0000B0420B00007FBB5FCI370019&J 3002AABTCHK300A0CIWS50066CMDINV50000CMDSET50076CMDXIT7F25AF CI370020JF40000CNDELS40000CNDEND3003ECNDFLG30008COMMGR3007ECSMSAF7F237F CI37F0021J30052H80 30046HC0 3004CHE0 3016EOVABT 3015EOVANS 7F420F CI370022JJ3014AOVBID 3019AOVBLSP3015AOVCALL301D2OVCLR 30176OVCMDF7F20DF CI370023JJ30162OVDISC30166OVDSCR301C6OVID 30192OVLOGF3018AOVPRRL7F1F7F CI370024J3019FEOVPURL30084OVR12 301AEOVRELS301B2OVREND301AAOVRIF 7F1CFF CI370025FJ3018EOVRPN 3014EOVRPR 301A2OVRPRD30156OVRPU 301A6OVRPUD7F1B3F CI370026JJ30196OVRSET301B6OVRTRQ301CAOVRVFC30146OVSEND301CEOVSET 7F161F CI370027J 30152OVSNDS301BEOV8SOPR30182OVSPCE30186OVSRL 3017AOVSTAT7F17AF CI3700288J301BAOVTBID301C2OVTBLK3016AOVTERM30172OVWAIT3017EOVXPAR7F160F CI370029JJ3001EPROMPT3000ERPYAVB30036RPYCHK300AARPYQSL300FASABORT7F150F CI370030J" 3007ASACMD 300E6SANS30092SAOVR"* 3013ASBID300DASBL 7F347F CI370031*J 300E2SCALL 300CASCE 30102SCF 30132SCLR 30068SCRAVB7F37DF CI370032JJ30070SCRMSG30074SCRSTF300EESDIS 300EASDISCR30122SELS 7F24DF CI370033J030126SEND 30112SGOPR 30136SID 3011ESIF 300106SLF 7F3F9F CI370034J3013ESQSL 300F6SRESET300DESRPN 300B6SRPR 300BESRPRD 7F25FF CI370035JJ 300D2SRPRRL300BASRPU300C2SRPUD 300D6SRPURL3010ASRTR 7F200F CI370036J>300AESS  3012ESSET 300CESSRL 300B2SSS 3011ASST 7F3A1>F CI370037J3010ESTBID 30116STBLNK300F2STERM 300C6STY  3012ASVFC 7F2C6F CI370038J4 300FESWAIT 30016VCMD 3006CVINVIP7F7B7F CI3700394D:  CI3780  08/25/81 12:22:20  SDSMAC 3.4.0 81.117CI370040DB2SSS 3011ASST 7F3A1>@R#008B6EM3780 A0000BC820B0000C0002B1303B1502B0209B5100BC809B00007F29EF EM370001RR(BC103B0203B0000BC293B130DBC260C0010BC8C9B0020BC809B0000B06A0B00007F1C9F EM370002RN&B0000B06A0B0000B06A0B0000BC0E3BFFFEB16EEBC0C4BC120C0004B1602B02037F17BF EM37N0003R(B0000B04E0C0040B04C9B04C7B04E0B0000BD260C001EB0289B5000B1631BD2207F1CCF EM370004RR(B0000B1627B0460C01B8BD228BFFFFB0978B0248B00FEBC828C055CB0000B04607F163F EM370005RD!C01A2B06A0B0000B06A0B0000C04F4BC24AB06A0B0000B0000BC289B0460C01A87DF1C1F EM370006R(B0209C0016B1002B0209C0046BC2E0C004AB1302B0460C01AEB0720C00A0BC0C97F1C1F EM370007RR(B0460C01A2B06A0B0000B0208B0000B0420B0000B1009B0289B1800B1306B02897F226F EM370008R:B0600B1303B0289B0300B1673B06A0B0000B04D0B0380B04C7B06A0B: 0000B18967F1F4F EM370009R(B118EB0289B5000B1608B06A0C00B4B0208B0000B0420C00BCB0460C01B8BC2607F1C4F EM370010RR(C0052B165CBC161B0006BC121B000AB04E0B0000B06A0C007EB980AB0000B16047F1C5F EM370011R0B0720C010AB06A0C010EBC1C7B1611B06A0B0000B170AB0$0208B0000B04CAB06A07F1B5F EM370012$R(B0000B06A0B0000C01B8B0460C03DEBC1E2B0006BC1A2B0008B04C9BD8C9B001E7F177F EM370013RR(BC263B000EBC259BD269B0004B2260B0000B1603B0709BD8C9B001EBC260C01187F198F EM370014R&B131EBC263B000AB06A0C011CB1124B130CB&.D223B001EB1603B06CABD2AAB00007F17DF EM370015.R(B06A0B0000B0609B16F2B0460C02A6B0720C00AAB980AB0000B1602B04E0C018C7F1B9F EM370016RR(B8887B0006B130DB0460C02A6B06A0C016CB1108B06A0C0082C04BCB0720C01967F1ACF EM370017R B06A0B0000B10F5B0209B0A00B80760B0000B1507B1306B0209B0900B04E0C01B07F1FBF EM3700188R(B0203C009CBD849B0002B06A0B0000B0460C00DCBC820C0564C0076B1061BC8207F1B9F EM370019RR(C0566C01E0B105DB06A0C01A4BD24AB06C9B0249B003FBD2A0B0000B06A0C01807F181F EM370020RB0609B16FCB10CEBB C247B6262B0006B0229B0000B0589BD2A0C01FAB06A0C01FE7F15AF EM370021BR(BDE59B16C2B0289B0000B1AF9B10BEBC818B0000B06A0C00ECB020AB0000BC2207F162F EM370022RR(C0228B0420B0000BD6A0B0000B0208B0000B0209B0000B0420C00F4B0460C013C7F219F EM370023RBC818CL%0234B06A0C022CB020AC0230BC220C0250B0420C0238BD6A0C023CB02087F1B8F EM370024LR(B0000B0209C0244B0420C0248BC220B0000B1603BC820C03D6C0274B0460C013C7F1F8F EM370025RR(B04E0C01CAB8887B0006B160DBC121B000AB8804B0000B1591B06A0B0000C01B87F1B1F EM370026RT@R(B0460C01B8B0720C0284B10F3BC4D3B1302B0460C03DEBC820B0000C02B0B13217F1B3F EM370027RR(B020AB0000B06A0B0000BC820B0000C02C0B1619B0208B0002B06A0B0000BC2087F201F EM370028RN&B130DBC28CBC2C7B62CCBC323B0018BC243B0229B000EB0420B0000B179FB06A07F164F EM37N0029R(B0000B06A0C0254B0208B0000B0420C0270BC820B0000C02FAB1317B020AB00007F20CF EM370030RR(B06A0C02BCBC820C02C2C030AB160FB06CBB72E0C0302B06CBB0420B0000B17987F170F EM370031RD!B06A0C02EEB0208B0000B0420C02F6B0460C013CBC820B0000C0330B1320B020A7DF1DDF EM370032R(B0000B06A0C0306BC820C030CC0340B1618B06CBB72E0C0338B06CBB0420B00007F1B9F EM370033RR(BC1C8B06A0C0320B020AC0258BC207B0420B0000BDEA0C0264B0208B0000B02097F1C2F EM370034R:C026CB0420C0328B0460C013CBC820B0000C0378B132DB020AB0000B: 06A0C033C7F1CFF EM370035R(BC820C0342C0388B1625B06CBB72E0C0380B06CBB1320BC80BB0000BC80CC025C7F16AF EM370036RR(B06A0C0356BC2E0C039ABC320C039EB0208B0000B020AC035ABDEBCB060BB13027F164F EM370037R0B0608B16FBBDEA0C0364B020AC03B2B0208B0000B0209C0$036CB0420C0370B04607F1B2F EM370038$R(C013CC058AB06A0C0298C01B8B05A3B0014BC287BC222B0006B6288BC263B00127F197F EM370039RR(BC269B0004B2260C0156B1325BC820B0000C03FAB1303B06A0B0000B1006B06A07F1E1F EM370040R&B0000B1603B058ABD620C0214B88CAB000AB&.1204BC2A3B000AB05A3B0016BC1C87F18EF EM370041.R(BA1CABC220C01E8BD2E3B001CB111EB980BB0000B1302B0208C056ABD278B09897F15AF EM370042RR(BDDF8B0609B16FDBC2C7B61E2B0006BC887B000AB0247B0001B1302BD6E0C03C07F141F EM370043R B04C7BD8A3B0005B0003B2FD2B8C820C055EC0426B0460C011EB0283C0096B13E97F180F EM3700448R(BC2E0B0000B16E1B10E5B0209C020EB06A0C01EEB06A0C01AAC0544BDE60C04547F161F EM370045RR(B1002BDE60B0000B0289C0220B1AF3B06A0C047EB06A0C0482C0538B10FAB06A07F18CF EM370046RC0498B06CAB024ABB 003FBDE60C0488B060AB13EEB0289C0492B1AF9B10EDB27007F12FF EM370047BR(C007CB2600C02A0B2500C02A6B1F00C02A6B1E00C02A6B1D00C01ECB1500C02A67F197F EM370048RR(B1300C0094B1200C0094B1100C009AB0C00C01DCB0B00C01E4B0500C0206B03FF7F1C9F EM370049RC0282BL%E303C0068BE202C0068BD400C0068BD306C0068BD206C0068BD106C00687F1A8F EM370050LR(BC906C0068BC806C0068BC706C0068BC606C0068BC506C0068BC406C0068BC3067F17CF EM370051RR(C0068BC205C0068BC104C0068B6101C0068B05FFC0478B2600C02A0B1500C013C7F1BAF EM370052RT@R(B03FFC0282B2600C02A0B1E00C047CB1D00C04A2B1500C013CB0500C048CB03FF7F183F EM370053RR(C0282C0576C056AC056DC0571C0578C057BC057EB020DB0A03B0D0AB0A04B0D0A7F165F EM370054RN&B0A0AB010DB020DB0C02B0D0BB070DB0A0AB0A0AB0A0AB04D0B0380BC260B00007F168F EM37N0055R(B13FBB06A0B0000B10F8B1709B0208B0000B04CAB06A0C0130B06A0C0030B04607F1C9F EM370056RR(C086EBC2A3B0010BD82AB000AB0000BD82AB000BB0000BD16AB0005BC2EAB000C7F161F EM370057RD!BC80BB0000B05CBBC80BB0000BC29ABD82AB0004B0000B5820B0000C05D2B06A07DF187F EM370058R(B0000B06A0B0000B04C9B06A0C002AB0003BD145B1315BC1E1B0006BC1A0B00007F1CDF EM370059RR(B06A0C008AB0000B020AB1100B9805C048EB1302B020AB0000B06A0C0218BD2A07F1CEF EM370060R:C05B2B132DB0460C07C6B06A0C00DEB1713B0289B5500B1302B0460C: 0830BC0617F1B0F EM370061R(BFFFEB06A0C061AB18F9B04CABD84AB0004BC061BFFFEBD84AB0004B06A0C05DC7F0B9F EM370062RR(BC1E1B0006BC1A0C05F4B04CABD2A0C05D8B1304BC1A0C05CAB05C6B1003BD2A07F129F EM370063R0C0610B1303B06A0C05F8C0112B06A0C0664C05FABC820C0$058CC0670B1604B02097F1A9F EM370064$R(B1800B0460C0830B06A0C0124B187FB1303B1502B0460C07D4B8806C0656B15037F1E1F EM370065RR(B1302B0460C07C6B05A0B0000BC162B0006BC122B000AB8804C05C4B1204BC1207F1CFF EM370066R&C06A6B05A0B0000BC222B0006BC284BD820C&.0650C06BAB1617BD820C065EC06C27F17DF EM370067.R(B1607BD820C05B8C06CAB1603B06A0C0408B100CBC260C06ACB6244B1308BA1227F17EF EM370068RR(B0006BDD20C0410B0609B16FCBC2A0C06D8BC10AB06A0C04A4B112FBD820C06BC7F137F EM370069R C06F8B1627B06A0B0000BD820C806C4C0704B1621B06A0C049CC0886BD820C06CC7F177F EM3700708R(C0712B131AB980AB0000B1617B9815C06E4B1614B06A0C066AB0000B020AB02007F1D0F EM370071RR(B0585B0604B120AB9815C0720B1607B022AB0100B028AB3F00B16F5B0585B06047F1C8F EM370072RBF2A0B0000B06A0CB 060CB0460C06F0BD2A0C0706B1607BD820C06FAC075CB16037F175F EM370073BR(B06A0C0726B0000B06A0C05E0B1080B0208B0000BC2A0C069AB0209B5200BD8A07F1BDF EM370074RR(C03F4B0004B1003B0208C012AB04CAB06A0C05A0BC287B62A1B0006BD2E0C07567F192F EM370075RB1301BL%060AB060AB150BBC1E1B0006BC1A0C064AB06A0C0764C066CB06A0C07A87F172F EM370076LR(B0000B1034B06A0C07AEB0000B06A0B0000B06A0C062EB1836B10ECB06A0C07B67F1A4F EM370077RR(C07B8B06A0C07BCB0460C0618B06A0C05A4B06A0B0000B101CB1815B06A0C076A7F18CF EM370078RT@R(BC2A3B0012BD2AAB0004B52A0C05D6B1602B0460C066EBC2A3B0012BF82AB00047F179F EM370079RR(C075EB5820C07EEC07FEB0460C07C6BD8A0C077CB0004B0208C059AB10B8B06A07F13FF EM370080RN&C07C8C0190B06A0C07CEB06A0C07C0B1805BC061BFFFEB06A0C0822B1706BC3097F138F EM37N0081R(BC061BFFFEB06A0C082CBC24CB04CABD88AB0004BD84AB0004BC061BFFFEBD84A7F0A5F EM370082RR(B0004BC809B0000BC809C0026B06A0C05E6B0000BC260C0854B0289B1800B16027F1D0F EM370083RD!B06A0C00D4B06A0C07D6B06A0C0034B020AB0003B06A0B0000B060AB15FCB02097DF1A9F EM370084R(C058ABC409B0459B3D00C076EB3700C076EB3200C076EB2D00C076EB2600C076E7F16BF EM370085RR(B1F00C076EB1E00C076EB1D00C076EB1000C076EB0300C076EB0200C076EB01FF7F168F EM370086RC076E7FEA4F EM37008730736ASCBLK3008CASCESC30592A.SGOPN30642BIDLIN307A4BLKSIZ7F1FCF EM370088.J30804BNRY 3070CCHARPR3086CCLSRLS303C4CMMSG2303CCCMMSGF7F20CF EM370089JJ30858CMPMSG40000CMPNUM30714COMPR 30672CONNFL30878DELAY 7F23BF EM370090J,3071AEBCBLK30666EBCDLE307B0EBCENQ307CAEBCE, TB3081AEBCETX7F231F EM370091 J30728EBCIGS30766EBCIRS3074AEBCSCB307AAEBCSTX30060ERRDIS7F202F EM370092JJ 3078AERRMSG3017CETA 303FCFBTRL 306F2FETCHC30472FLGVFC7F26FF EM370093J:302B2FRPN 302FCFRTRQ 30332FTBID 302CCGETBUF303DAGETOPN7:F239F EM370094J304AEH00 40000H0002 30292H0003 30602H01 30430H02 7F553F EM370095JJ 3080CH4000 40000H80 30802HBF 30360HEXASL40000HEXASW7F3D9F EM370096JH40000INTNUM303D0MSGSTF30134OPNERA30392OPRDEF3046CPCHDB 7F20AF EM3700H97J302B8PNDEF 30260PNSEGB301CEPRTDB 30056RCVEND302A2RCVETX7F217F EM370098JJ302E4RCVQUE30464RCVVFC30162RCVXP 306B0RDROVR30774RDRRCT7F1ABF EM370099JJ307E2READIN307DAREASGO301BERENDFL3081EREQXMT300FCRERROR7F165F EM370100J302EARDLBUF 30870RLSQEN30314RTRDEF303AARWSP16303A6RWSP187F1EDF EM370101DJ3038AS$FLAG30384S$TASK3027CSAXMT 303A2SETTIM3037ASOPRBD7F20AF EM370102JJ 3085ESRECFL30850SSFL5055ESSMSGP5056ASSPMSG301B4STOREA7F1C6F EM370103J 3074ESTOREC30818STOR6EX500DASVCRCV5058ASVCXMT301D6SWPCHL7F135F EM3701046J304B6TABEND3047ATABSTP3034ATBDDEF30402TRAILB30794TRANSP7F1E5F EM370105JJ 30868TRMMSG3031ATRRQ306D2TRUNCB30350TSKBID303AEUPNLGT7F1C6F EM370106J$30608USPU 300F0VBELRC30368VBIDTK3$(00B8VIDLER40000VNDSE 7F245F EM370107(J303C8VOPRTK302F2VRCPNE30240VRCPNS30324VRTRER30268VRTRQ 7F17FF EM370108JJ30784VSDEVE30812VSDOPE30770VSTRNE30838WAITCM30680WAITSY7F197F EM370109J230700XLCATE3068EXMTRCS306ECXMTRLN7F711F EM3701210D:  EM3780  08/25/81 12:23:03  SDSMAC 3.4.0 81.117EM370111D24VRTRER30268VRTRQ 7F17FF EM370108JJ30784VSDEVE30812VSDOPE30770VSTRNE30838WAITCM30680WAITSY7F197F EM370109J230700XLCATE3068EXMTRCS306ECXMTRLN7F711F EM37012@R#00224OP3780 A0000B0000C0050C0000C003EC0004C00DAC0008C00FEC000C7F279F OP370001RR(C0116C0010C0038C0014C012EC0018C0044C001CC004AC0020C0056C0024C005C7F20CF OP370002RN&C0028C0062C002CC0068C0030C019CB0204B0000B1017B0204B0000B1014B02047F233F OP37N0003R(B0000B1011B0204B0000B100EB0204B0000B100BB0204B0000B1008B0204B00007F262F OP370004RR(B1005B0204B0000B1002B0204B0000BC000B1609B06A0B0000B0208B0000B02097F24BF OP370005RD!C0086B0420B0000B0380B0581B0600B04E0B0000B05A0B0000B06A0B0000BC0007DF222F OP370006R(B13EDB0208C00CCB06A0B0000BC249B1307B0289BFFFFB130DB0609BC509B04607F150F OP370007RR(B0000B06A0B0000B0208B0000B06A0B0000B04E0B0000B10D7B0208C00CCB06A07F1FAF OP370008R:B0000B10D2B0000B0002B0000B0001B0000BFFFFB0000B0204C00E0B: 1039B02887F202F OP370009R(B0000B1B52BC208B1350BC260B0000B0649B0609B8248B1B4ABC808B0000B04607F1C7F OP370010RR(C00AEB0204C0104B1027B0288B0000B1B40BC208B133EBC808B0000B0460C00FC7F1B9F OP370011R0B0204C011CB101BB0288C0106B1B34BC208B1332BC808B0$0000B0460C0114B02047F1EBF OP370012$R(C0134B100FB0288B0000B1B28BC208B1326BC248B0649B0609B8809C00F8B11207F1B8F OP370013RR(BC808C00ECB0460C012CBC000B1609B06A0C0072B0208B0000B0209C016CB04207F1C8F OP370014R&C007EB0380B0581B0600B04E0C0088B05A0C&.008CB06A0C0090BC000B13EDB98117F1A3F OP370015.R(B0000B13F3B0420B0000B1801B0454B06A0C00B2B0208C00B6B06A0C00BAB04E07F1D2F OP370016RR(C00BEB10DDBC000B1609B06A0C0158B0208B0000B0209C01B6B0420C0164B03807F1C9F OP370017R B0581B0600B04E0C016EB05A0C80172B06A0C0176BC000B1325B9811C017EB13F37F1B2F OP3700188R(BC1C1B06A0B0000B0000B1603B8800B0000B1209B06A0C018CB0208C0190B06A07F1EAF OP370019RR(C0194B04E0C0198B10D9BD820B0000B0000BC1C0B0209B0000B9811C01C8B13087F1CAF OP370020RBDE71BD660C01F0BB B820B0000C01F2B0607B16F5BC000B1606BD820B0000C020A7F18FF OP370021B,BD820C0204C01F8B0460C01507FA69F OP370022,J301C0ABTCHK30184ASCBN 301FCASTRSK3014CBLKSIZ30136BLMAX 7F22EF OP370023J6 5012EBLSPEC30034CIWS30222CMDXIT301BCCSMSAF50068DIS6CR 7F263F OP370024J30064FBTRL 30040FCPEX 3006AFDISCR5004AFILVFC3004CFLGVFC7F25AF OP370025JJ3003AFRPN 30046FRTRQ 30058FTBID 30052FXPAR 3021CH00 7F36BF OP370026JD30208H01 30216HFF 301D2IDCHK 30218IDFLAG301D8IDMAX 7F3BEF OPD370027J5019CIDTRML300E2INPMAX3011EOUTMAX50018OVBLSP50030OVDSCR7F18FF OP370028JJ50034OVID 5000COVPRRL50010OVPURL50014OVRPN 5001COVRTRQ7F1EAF OP370029JJ50020OVRVFC50028OVSOPR50004OVSPCE50008OVSRL 50024OVTBID7F1D5F OP370030J50H02COVTBLK50000OVXPAR301AEPROMPT500FEPRRLSP50116PURLSP7F136F OP370031HJ301D0RANGEC500DARLSPEC50038RPNAME30110RPRRL 30128RPURL 7F211F OP370032JJ301A2RPYAVB3009CRPYCHK300C8RPYQSL301B8SACMD 301DESCRAVB7F1A1F OP370033J301E6SCRMSG301EA: SCRSTF300D0SOFF 300CCSON  3005ESOPRBD7F247F OP370034:J 5003ESPCE 300D4SQSL50056TASKBD50062TBLANK50044TRNRQ 7F29DF OP370035JJ 5005CTSKOPR301A6VID 301E2VINVIP3015CVLGTH 30076VOPT 7F26AF OP370036J 3021EXMTID 50050XPAR30146XRE CL 7F807F OP370037D:  OP3780  08/25/81 12:24:56  SDSMAC 3.4.0 81.117OP370038D62TBLANK50044TRNRQ 7F29DF OP370035JJ 5005CTSKOPR301A6VID 301E2VINVIP3015CVLGTH 30076VOPT 7F26AF OP370036J 3021EXMTID 50050XPAR30146XRE @R#00374ST3780 A0000B0000C0004BCB4EB0016B02E0B0000B1000BC30BB06A07F25EF ST370001RR(B0000B0208C02E0B06A0B0000B04E0B0000B06A0C0012BC260B0000B1609BC2607F1FCF ST370002RN&B0000B1603B0208C02C2B1057B0208C02C6B1054B04C4BC260B0000B131CBC0A07F1D4F ST37N0003R(B0000B1319B0584B020AB0000B0420B0000BC220B0000B0420B0000BC220B00007F243F ST370004RR(B0420B0000BD6A0B0000BC260B0000B1603B0208C0362B1002B0208C0368B06A07F20DF ST370005RD!C001ABC260B0000B1315B0584BC0A0B0000B020AC004EB0420C0052BC220B00007DF1F0F ST370006R(B0420C005ABC220B0000B0420C0062BD6A0C0066B0208C0356B06A0C007ABC2607F1D0F ST370007RR(B0000B1315B0584BC0A0B0000B020AC008AB0420C008EBC220B0000B0420C00967F1F2F ST370008R:BC220B0000B0420C009EBD6A0C00A2B0208C035CB06A0C00AABC104B: 1604B02087F1A7F ST370009R(C02CAB06A0C00DAB0204C0278BC174B1312BC2B4B130CB0208B0000BC274BC2597F17EF ST370010RR(B1302B0208B0000B0420B0000BDEA0C00D2B10F2BC205B06A0C00E6B10ECB02047F1B3F ST370011R0C0256BC174B130DBC2B4B1307BC234BC218B0420C00C6B0$D6A0C0108B10F7BC2057F16DF ST370012$R(B06A0C0110B10F1B020AC00BAB0208B0000B05C8B0420B0000BD6A0C012AB02087F1CCF ST370013RR(C02CEB06A0C0132BC220B0000B130AB020AC0138B0420C00CEBD6A0C0146B02087F1AAF ST370014R&C02D4B06A0C014EB020AC0158B0208B0000B&.05C8B0420C0142BD6A0C0160B02087F1CBF ST370015.R(C0346B06A0C0168BC220B0000B130AB020AC016CB0420C015CBD6A0C017AB02087F1B1F ST370016RR(C034CB06A0C0182B020AC018CB0208B0000B05C8B0420C0176BD6A0C0194B02087F1BEF ST370017R C036EB06A0C019CB020AC01A0B80208B0000B05C8B0420C01AABD6A0C01AEB02087F184F ST3700188R(C02DAB06A0C01B6B0203B0000BC0C3B1609B06A0C0022B0208C0352B06A0C01D07F1BAF ST370019RR(B04E0C001EB045CB0204B0000B04C5B020AC01BAB0206B0004BC205B0420C01267F1D3F ST370020RBD6A0C01C8B020ABB 0000BC205B0228B000FB0420C01FEBD6A0C0202B020AB00007F1A2F ST370021BR(BDEA0B0000B0207B0004BD220B0000BD274B1302BD220B0000BDE88B0585B06077F1B9F ST370022RR(B1303B80C5B16F4B1002B0606B16EDBD6A0C0214B0208C0338B06A0C01E4B80C57F18AF ST370023RB16D1BL%04E0C01E8B045CC0320C01F4B0000B0000C0326C0258B0000B0000C032C7F1E8F ST370024LR(C0260B0000B0000C0332C0268B0000B0000B0000C02E4C0270B0000B0000C02EA7F23DF ST370025RR(C027AB0000B0000C02F0C0282B0000B0000C02F6C028AB0000B0000C02FCC02927F1F9F ST370026RT@R(B0000B0000C0302C029AB0000B0000C0308C02A2B0000B0000C030EC02AAB00007F22CF ST370027RR(B0000C0314C02B2B0000B0000B0000B0001B0000B0001B0000B0001B0000B00027F28AF ST370028RN&B0000C02BAB0002B0000C02D2B0002B0000C02D8B0001B0000B0002B0000C02DE7F21EF ST37N0029R(B0002B0000C02E8B0002B0000C02EEB0002B0000C02F4B0002B0000C02FAB00027F211F ST370030RR(B0000C0300B0002B0000C0306B0002B0000C030CB0002B0000C0312B0002B00007F27BF ST370031RD!C0318B0002B0000C031EB0002B0000C0324B0002B0000C032AB0002B0000C03307DF258F ST370032R(B0006B0000C0336B0000C0206B0000C0218B0002B0000C033CB0002B0000C034A7F250F ST370033RR(B0001B0000B0002B0000C0350B0002B0000C035AB0002B0000C0360B0002B00007F279F ST370034R& C0366B0002B0000C036C7FB92FST370035&30224ASC0 302<2CASC13021CBLANK 3025ABLKSIZ3000ACIWS 7F350F ST370036<J3013CCMDID 301BECOMID 30026CONNFL30210DECAS5302B4FBTRL 7F2ACF ST370037JJ30152FCFIL 30284FCPEX 302BCFDISCR30186FLFIL 3029CFLGVFC7F286F ST370038J3028CFRPN 30294FRTRQ 302A4F. TBID 3027CFXPAR 30242H00 7F34CF ST370039.J301A4JNLID 30170LOGID 302E2NBLK2 30342NCOL1 50000OVCOM 7F30EF ST370040JJ300AEPCHSTS301C4PNSEG 30190PNSEGB30086PRCCB 3009APRCPN 7F23CF ST370041J,30092PRRCT 3007EPRTSTS300B6PUCCB 300CAPUCP, N 300C2PURCT 7F216F ST370042 J30046RDRCCB3005ERDRCPN30056RDRRCT3006ARDRSTS3026ARPRRL 7F1CDF ST370043JJ30272RPURL 3002CSARCV 30040SAXMT 30304SBDTSK30322SBLGTH7F248F ST370044J:302ECSCEM 302C4SCMDSC302DCSCMDVN302CCSCMIDL302C8SCONIN7:F1E3F ST370045J30340SCR10 30344SCR20 30372SCRACH301DCSCRAVB3024ASCRMSG7F296F ST370046JJ30252SCRSTF30316SDSCRM3031CSEMO 30104SETSEG3033ASFLAGS7F224F ST370047JH30370SJRNAN30328SNDLGT302F8SNDREQ30354SNOFLG300F6SOFF 7F20FF ST3700H48J30100SON 3030ASOPMSG302ACSOPRBD30000SOWS 302D0SPCACN7F282F ST370049JJ302FESPFVFC30348SPLGAN3032ESRCPLT30358SRCPRN30334SRCPUL7F184F ST370050JJ3035ESRCPUN302F2SRCVPN30310SRETAN302D6SSCACN3034ESSLGAN7F190F ST370051J3033ESDTO 30364STRANS3036ASXMPND302E6SXPAR 301EEUFLAG 7F238F ST370052DJ301D4UFLGNO300BEXIDASC30262XRECL 40000XSPN1 40000XSTA1 7F26EF ST370053JD:  ST3780  08/25/81 12:25:36  SDSMAC 3.4.0 81.117ST370054D90F ST370051J3033ES@R#0029ETASKBD A0000B0000C0004B04E0B0000BC000B1609B06A0B0000B02087F24BF TASK0001RR(B0000B0209C0024B0420B0000B0380B0581B0600B13F4B04E0C0006B05A0B00007F224F TASK0002RN&B06A0B0000BC000B131AB9811B0000B1317BC1C1B06A0B0000C0296B1612B02077F1ECF TASKN0003R(B0008B0205C0202BDD60C0036B9811C004EB1306BDD71B0600B1303B0607B16F87F1BDF TASK0004RR(B1003BDD60C0052B1003B06A0C01EEB10CFBC000B1609B06A0C000EB0208B00007F1AAF TASK0005RD!B0209C008AB0420C001AB0380B0581B0600B13F4B04E0C0026B05A0C002AB06A07DF1D1F TASK0006R(C002EBC000B1303B9811C0064B1607BDD60B0000BDD60B0000BDD60C00A6B101D7F199F TASK0007RR(BC205B0203C0258B04E0C0256BDCF1B05A0C0256B0600B1304B9811C009CB13017F1B4F TASK0008R:B10F7B0203C0252B06A0B0000BC148B0207C0258B9837B0000B1608B: 9837B00007F1EDF TASK0009R(B1605BDD77BDD77BDD60C00C4B1003B06A0C01EEB10BFBC000B1609B06A0C00747F13BF TASK0010RR(B0208B0000B0209C0110B0420C0080B0380B0581B0600B13F4B04E0C008CB05A07F200F TASK0011R0C0090B06A0C0094BC000B131AB9811C00EAB1317B0208C0$0288B06A0B0000BC1097F1C0F TASK0012$R(B1311B0454BDD60B0000B100ABDD60C00DAB1007BC105B0208C0288B06A0B00007F1B3F TASK0013RR(BC144B10D5BDD60C0122B1003B06A0C01EEB10CFBC000B1609B06A0C00FAB02087F168F TASK0014R&B0000B0209C0174B0420C0106B0380B0581B&.0600B04E0C0112B05A0C0116B06A07F216F TASK0015.R(C011ABC000B130FB9811C0150B130CB0207B0004B9811C0186B1307BDD51B05817F1C6F TASK0016RR(B0600B1303B0607B16F7B1003BDD60C0190B1003B06A0C01EEB10D8B0200C02027F1C9F TASK0017R B6140BC2C5B020CC0202B0420B80000BC1C8B06A0B0000B020AB0000B0420B00007F1F8F TASK00188R(BD6A0B0000B020AB0000BC207B0420B0000BDEA0C01CEB0208B0000B06A0B00007F1CAF TASK0019RR(B04E0B0000B0460B0000BC30BB06A0C01C2B0208B0000B06A0C01E4B04E0C01E87F1C2F TASK0020RB045CA0202A0252AB 0288B0000C0134B0000C013AB0000C0140B0000B0003B30397F240F TASK0021BB415AB24247FD9EFTASK0022J 3017EABTCHK300A2ASC0 40000ASCBN 30136ASCE 300AAASCF 7F379F TASK0023JF 3013CASCS 300E0ASCT301A4ASTRSK40000BLANK 30000CIWS 7F31CF TASKF0024J301ECCMDXIT3017ACSMSAF301CADATASC40000EXECTK301DCH00 7F278F TASK0025JJ301D8HEXASL50000OVBID 40000PGMID 3016CPROMPT3003ERANGEC7F23CF TASK0026JJ30160RPYAVB3012CRPYCHK30148RPYQSL30176SACMD 301D2SCR20 7F239F TASK0027J301CF6SCRACH301F2SCRAVB301FASCRMSG301FESCRSTF3028CSNO 7F1FDF TASK0028FJ30290SQSL 40000SUSPEN30288SYES 300D0SYNEXP301BCTSKBID7F225F TASK0029JJ300FEVEXEC 301F6VINVIP30164VPARM 30012VPGM 30078VSTID 7F264F TASK0030J 301E0VTASKB7FCF5F  TASK0031 D:  TASKBD  08/25/81 12:26:20  SDSMAC 3.4.0 81.117TASK0032D0000SUSPEN30288SYES 300D0SYNEXP301BCTSKBID7F225F TASK0029JJ300FEVEXEC 301F6VINVIP30164VPARM 30012VPGM 30078VSTID 7F264F TASK0030J 301E0VTASKB7FCF5F  TSKSRC VCATALOGMSTRMSG `P'| گ$CCMSG `P'>| گ/ DXCF3 `P 5dĬگ DXCF2 `P 5bĬzگ TSKCPY VCATALOGDATCON `Pe(گ=MSLOG `P}uگFCFCOPY `P OگW L6C16 `Pkگt CMDOPT `P گM L6C10 `P^گe@* '<* (C)COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1981. <:* ALL RIGHTS RESERVED. PROPERTY OF TEXAS INSTRUMENTS :@* INCORPORATED.RESTRICTED RIGHTS -- USE, DUPLICATION, OR @<* DISCLOSURE SUBJECT TO RESTRICTIONS SET FORTH IN TI'S <>* PROGRAM LICENSE AGREEMENT AND ASSOCIATED DOCUMENTATION. >* '* '( TITL 'DX/2780 CONFIGURATION MODULE'( IDT'DXCF2' @************************************************************ @* '* TITLE DXCF2 * ':* ABSTRACTDX/2780 EMULATOR CONFIGURATION PARAMETERS. :4* THIS MODULE CONTAINS ALL VARIABLE PARAMETERS 40* THAT MAY BE PECULIAR TO AN INSTALLATION.0* ' * NOTES $ * '6*  *WHERE APPLICABLE, THESE PARAMETERS REFLECT 68* VALUES THAT WOULD BE USED BY THE ACTUAL EMULATED 88* DEVICE (TIMEOUT VALUES, RETRY THRESHOLDS, ETC.). 8* '<*  *IF THE "STANDARD" VALUES FOR PARAMETERS IN THIS <6* MODULE ARE ACCEPTABLE FOR USE ON THE INSTALLED 66* SYSTEM, THEN NO MODIFICATIONS ARE REQUIRED AND 66* THE EMULATOR MAY BE INSTALLED AS RELEASED.IF 68* ANY OF THESE "STANDARD" PARAMETER VALUES ARE NOT 88* ACCEPTABLE, THEN PARAMETERS MUST BE MODIFIED AS 84* NECESSARY BY EDITING THIS MODULE. THEN THIS 46* MODULE MUST BE ASSEMBLED AND THE EMULATOR TASK 68* LINKED BY EXECUTING THE APPROPRIATE BATCH STREAM 86* AS DESCRIBED IN THE OBJECT INSTALLATION GUIDE. 6* '@************************************************************ @>***** THIS IS THE EMULATOR HEADER. NO PARAMETERS IN THIS >$***** BLOCK SHOULD BE ALTERED. $ ***** %   EVEN "  DEFVINIT  REFSCRLF,SCRACH*VINIT DATA 4,SCRLF,SCRACH,SYSEM,SRLDT* SYSEM TEXT ' DX/2780'  BYTE 0 ! SRLDT TEXT ' 4.0.0 81.275'  BYTE 0 ! @************************************************************ @  PAGE "  COPY COPY.CF2780  COPY COPY.CFCOM END#LUES ARE NOT 88* ACCEPTABLE, THEN PARAMETERS MUST BE MODIFIED AS 84* NECESSARY BY EDITING THIS MODULE. THEN THIS 46* MODULE MUST BE ASSEMBLED AND THE EMULATOR TASK 68* LINKED BY EXECUTING THE APPROPRIATE BATCH STREAM 86* AS DESCRIBED IN THE OBJECT INSTALLATION GUIDE. 6* '@************************************************************ @>***** THIS IS THE EMULATOR HEADER. NO PARAMETERS IN THIS >$***** BLOCK SHOULD BE ALTERED. $ ***** % @* '<* (C)COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1981. <:* ALL RIGHTS RESERVED. PROPERTY OF TEXAS INSTRUMENTS :@* INCORPORATED.RESTRICTED RIGHTS -- USE, DUPLICATION, OR @<* DISCLOSURE SUBJECT TO RESTRICTIONS SET FORTH IN TI'S <>* PROGRAM LICENSE AGREEMENT AND ASSOCIATED DOCUMENTATION. >* '* '( TITL 'DX/3780 CONFIGURATION MODULE'( IDT'DXCF3' @************************************************************ @* '* TITLE DXCF3 * ':* ABSTRACTDX/3780 EMULATOR CONFIGURATION PARAMETERS. :4* THIS MODULE CONTAINS ALL VARIABLE PARAMETERS 40* THAT MAY BE PECULIAR TO AN INSTALLATION.0* ' * NOTES $ * '6*  *WHERE APPLICABLE, THESE PARAMETERS REFLECT 68* VALUES THAT WOULD BE USED BY THE ACTUAL EMULATED 88* DEVICE (TIMEOUT VALUES, RETRY THRESHOLDS, ETC.). 8* '<*  *IF THE "STANDARD" VALUES FOR PARAMETERS IN THIS <6* MODULE ARE ACCEPTABLE FOR USE ON THE INSTALLED 66* SYSTEM, THEN NO MODIFICATIONS ARE REQUIRED AND 66* THE EMULATOR MAY BE INSTALLED AS RELEASED.IF 68* ANY OF THESE "STANDARD" PARAMETER VALUES ARE NOT 88* ACCEPTABLE, THEN PARAMETERS MUST BE MODIFIED AS 84* NECESSARY BY EDITING THIS MODULE. THEN THIS 46* MODULE MUST BE ASSEMBLED AND THE EMULATOR TASK 68* LINKED BY EXECUTING THE APPROPRIATE BATCH STREAM 86* AS DESCRIBED IN THE OBJECT INSTALLATION GUIDE. 6* '@************************************************************ @<***** THIS IS THE EMULATOR HEADER. NO PARMATERS IN THIS <$***** BLOCK SHOULD BE ALTERED. $ ***** %   EVEN "  DEFVINIT  REFSCRLF,SCRACH*VINIT DATA 4,SCRLF,SCRACH,SYSEM,SRLDT* SYSEM TEXT ' DX/3780'  BYTE 0 ! SRLDT TEXT ' 4.0.0 81.275'  BYTE 0 ! B************************************************************* B  PAGE "  COPY COPY.CF3780  COPY COPY.CFCOM END#ES ARE NOT 88* ACCEPTABLE, THEN PARAMETERS MUST BE MODIFIED AS 84* NECESSARY BY EDITING THIS MODULE. THEN THIS 46* MODULE MUST BE ASSEMBLED AND THE EMULATOR TASK 68* LINKED BY EXECUTING THE APPROPRIATE BATCH STREAM 86* AS DESCRIBED IN THE OBJECT INSTALLATION GUIDE. 6* '@************************************************************ @<***** THIS IS THE EMULATOR HEADER. NO PARMATERS IN THIS <$***** BLOCK SHOULD BE ALTERED. $ ***** % @* '<* (C)COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1981. <:* ALL RIGHTS RESERVED. PROPERTY OF TEXAS INSTRUMENTS :@* INCORPORATED.RESTRICTED RIGHTS -- USE, DUPLICATION, OR @<* DISCLOSURE SUBJECT TO RESTRICTIONS SET FORTH IN TI'S <>* PROGRAM LICENSE AGREEMENT AND ASSOCIATED DOCUMENTATION. >* '* ' TITL 'EMULATOR MESSAGES'  IDT'CCMSG' @************************************************************ @* '* TITLE CCMSG * ':* ABSTRACTLOG MESSAGES, DATA CONSTANTS, TRANSLATION :* TABLES. * '@************************************************************ @  PAGE "  COPY COPY.DATCON  COPY COPY.MSLOG COPY COPY.CMDOPT N%**************************************************************************N* '0* EMULATOR LOG MESSAGES AND COMMAND PROMPTS 0* ':*  THE FOLLOWING IS THE MODIFIABLE TEXT FOR EMULATOR :&*  MESSAGES AND COMMAND PROMPTS.&* '*  FORMAT:!0* TEXT 02* BYTE 0NULL BYTE TERMINATES EACH SEGMENT 2N%**************************************************************************N * COMMAND PROMPTSN%**************************************************************************N DEFSCMD SCMD TEXT ' COMMAND'  BYTE 0 !  DEFSDEV SDEV TEXT ' DEVICE'   BYTE 0 !  DEFSLGTH  SLGTH TEXT ' LENGTH'   BYTE 0 !  DEFSNR SNR  TEXT ' NUMBER'   BYTE 0 !  DEFSOPT SOPT TEXT ' OPTION'   BYTE 0 !  DEFSPN SPN  TEXT ' PATH NAME'   BYTE 0 !  DEFSSEQ SSEQ TEXT ' SEQUENCE'   BYTE 0 !  DEFSEXEC  SEXEC TEXT ' EXECUTE'  BYTE 0 !  DEFSPARM  SPARM TEXT ' PARAMETERS'   BYTE 0 !  DEFSSTID  SSTID TEXT ' STATION'  BYTE 0 !  DEFSPGM SPGM TEXT ' PROGRAM'  BYTE 0 ! N%**************************************************************************N * 'ST' COMMAND MESSAGES N%**************************************************************************N DEFSBIDOV ST*CT  SBIDOV TEXT ' BID OVERRIDE'   BYTE 0 !  DEFSBDTRX*SBDTRX TEXT ' BID THRESHOLD EXCEEDED' *  BYTE 0 ! 0 DEFSCOMLK (COMM LINK STATISTICS HEADER) 0(SCOMLK TEXT ' COMM LINK STATISTICS' (  BYTE 0 !  DEFSRCXMT(COMM LINK STATISTICS HEADER)  SRCXMT TEXT ' RECEIVE SEND'   BYTE 0 !  DEFSCVRPY(SCVRPY TEXT ' CONVERSATIONAL REPLY' (  BYTE 0 !  DEFSENQTX*SENQTX TEXT ' ENQ THRESHOLD EXCEEDED' *  BYTE 0 !  DEFSIDLTX*SIDLTX TEXT ' IDLE THRESHOLD EXCEEDED'*  BYTE 0 !  DEFSNAKTX*SNAKTX TEXT ' NAK THRESHOLD EXCEEDED' *  BYTE 0 !  DEFSRVI SRVI TEXT ' RVI'  BYTE 0 !  DEFSDATX *SDATX TEXT ' DATA THRESHOLD EXCEEDED'*  BYTE 0 !  DEFSBIDAC SBIDAC TEXT ' BID ACCEPTED'   BYTE 0 !  DEFSTTD STTD TEXT ' TTD'  BYTE 0 !  DEFSNAK SNAK TEXT ' NAK'  BYTE 0 !  DEFSWACK  SWACK TEXT ' WACK'   BYTE 0 !  DEFSENQ SENQ TEXT ' ENQ'  BYTE 0 ! DEFSEOT SEOT TEXT ' EOT'  BYTE 0 !  DEFSACK SACK TEXT ' ACK'  BYTE 0 !  DEFSTRMID ST*ID*STRMID TEXT ' TERMINAL IDENTIFICATION'*  BYTE 0 !  DEFSREMOT&SREMOT TEXT ' REMOTE TERMINAL ID' &  BYTE 0 !  DEFSLOCAL$SLOCAL TEXT ' LOCAL TERMINAL ID'$  BYTE 0 ! , DEFSEMPTY STATISTICS QUEUE MESSAGES , SEMPTY TEXT ' EMPTY'  BYTE 0 !  DEFSRCPRQ&SRCPRQ TEXT ' RECEIVE PRINT QUEUE'&  BYTE 0 !  DEFSRCPUQ&SRCPUQ TEXT ' RECEIVE PUNCH QUEUE'&  BYTE 0 !  DEFSNDQUE SNDQUE TEXT ' SEND QUEUE'   BYTE 0 !  DEFSCMDSC ST*CUR$SCMDSC TEXT ' COMM DISCONNECTED'$  BYTE 0 !  DEFSCONIN&SCONIN TEXT ' CONNECT IN PROGRESS'&  BYTE 0 !  DEF SCMIDL  SCMIDL TEXT ' COMM IDLE'  BYTE 0 !  DEFSPCACN.SPCACN TEXT ' PRIMARY COMMAND ACCESS NAME'.  BYTE 0 !  DEFSSCACN0SSCACN TEXT ' SECONDARY COMMAND ACCESS NAME'0  BYTE 0 !  DEFSCMDVN$SCMDVN TEXT ' COMM DEVICE NAME' $  BYTE 0 !  DEFSXPAR  SXPAR TEXT ' TRANSPARENCY'   BYTE 0 !  DEFSCEM (SCEM TEXT ' COMPRESSION/EXPANSION'(  BYTE 0 !  DEFSEMO  SEMO TEXT ' END OF MEDIA'   BYTE 0 !  DEFSRCVPN$SRCVPN TEXT ' RECEIVE PATHNAME' $  BYTE 0 !  DEFSNDREQ SNDREQ TEXT ' SEND REQUEST'   BYTE 0 !  DEFSPFVFC"SPFVFC TEXT ' PRINT FILE VFC' "  BYTE 0 !  DEFSBDTSK SBDTSK TEXT ' BID TASK'   BYTE 0 !  DEFSOPMSGSOPMSG TEXT '  OPERATOR MESSAGE'   BYTE 0 !  DEFSRETAN*SRETAN TEXT ' RETAIN TRAILING BLANKS' *  BYTE 0 !  DEFSDSCRM$SDSCRM TEXT ' DISCONNECT REMOTE'$  BYTE 0 !  DEFSBLGTH SBLGTH TEXT ' BLOCK LENGTH'   BYTE 0 !  DEFSNDLGT&SNDLGT TEXT ' SEND RECORD LENGTH' &  BYTE 0 !  DEFSRCPLT.SRCPLT TEXT ' RECEIVE PRINT RECORD LENGTH'.  BYTE 0 !  DEFSRCPUL.SRCPUL TEXT ' RECEIVE PUNCH RECORD LENGTH'.  BYTE 0 ! " DEFSFLAGSFLAGS TO " SFLAGS TEXT ' FLAGS'  BYTE 0 !  DEFSTO STO  TEXT ' TO'   BYTE 0 !  DEFSPLGAN*SPLGAN TEXT ' PRIMARY LOG ACCESS NAME'*  BYTE 0 !  DEFSSLGAN,SSLGAN TEXT ' SECONDARY LOG ACCESS NAME',  BYTE 0 !  DEFSNOFLGSNOFLG TEXT ' FLAGS: NONE'  BYTE 0 !  DEFSRCPRN SRCPRN TEXT ' RECEIVE PRINT'  BYTE 0 !  DEFSRCPUN SRCPUN TEXT ' RECEIVE PUNCH'  BYTE 0 !  DEFSTRANS STRANS TEXT ' TRANSMITTING'   BYTE 0 !  DEFSXMPND$SXMPND TEXT ' TRANSMIT PENDING' $  BYTE 0 !  DEFSJRNAN&SJRNAN TEXT ' JOURNAL ACCESS NAME'&  BYTE 0 !  DEFSRCDBL$SRCDBL TEXT ' RECORDS PER BLOCK'$  BYTE 0 ! N%**************************************************************************N* ' * GENERAL MESSAGESN%**************************************************************************N DEFSVALID,SVALID TEXT ' ANY VALID TRANSACTION ID' ,  BYTE 0 !  DEFSINVIN$SINVIN TEXT ' *** INVALID INPUT'$  BYTE 0 !  DEFSCONSL TX VERSION ONLY<SCONSL TEXT ' *** COMM TASK OPERATOR CONSOLE I/O ERROR' <  BYTE 0 ! N%**************************************************************************N * MESSAGES FROM APPENDIX E  N%**************************************************************************N DEFSIVCOM6SIVCOM TEXT ' 1001 INVALID COMM DEVICE SPECIFIED' 6  BYTE 0 !  DEFSBELRC&SBELRC TEXT ' 1002 BELL RECEIVED' &  BYTE 0 !  DEFSBIDER"SBIDER TEXT ' 1003 BID ERROR' "  BYTE 0 !  DEFSNOCOM2SNOCOM TEXT ' 1005 COMM DEVICE NOT AVAILABLE' 2  BYTE 0 !  DEFSBDPRC:SBDPRC TEXT ' 1006 INVALID PROC USED TO BID COMM TASK' :  BYTE 0 !  DEFSCMDNA:SCMDNA TEXT ' 1007 COMM COMMAND DEVICE NOT AVAILABLE' :  BYTE 0 !  DEFSCLOPN:SCLOPN TEXT ' 1008 COMMAND/LOG FILE ASSIGN/OPEN ERROR' :  BYTE 0 !  DEFSCONNF&SCONNF TEXT ' 1009 CONNECT FAILED'&  BYTE 0 !  DEFSCONNS*SCONNS TEXT ' 1010 CONNECT SUCCESSFUL'*  BYTE 0 !  DEFSIDLER"SIDLER TEXT ' 1011 IDLE ERROR'"  BYTE 0 !  DEFSNOBF >SNOBF TEXT ' 1012 INSUFFICIENT MEMORY FOR COMMAND INPUT' >  BYTE 0 !  DEFSIDMSG SIDMSG TEXT ' 1013 ID'  BYTE 0 !  DEFSINVPM*SINVPM TEXT ' 1014 INVALID PARAMETERS'*  BYTE 0 !  DEFSLNDSC*SLNDSC TEXT ' 1015 LINE DISCONNECTED' *  BYTE 0 !  DEFSLOGNA6SLOGNA TEXT ' 1016 COMM LOG DEVICE NOT AVAILABLE' 6  BYTE 0 !  DEFSNRCPN6SNRCPN TEXT ' 1017 NO RECEIVE PATHNAME SPECIFIED' 6  BYTE 0 !  DEFSNDCDEPN@2SNDCDE TEXT ' 1019 SEND REQUEST COMMAND ERROR'2  BYTE 0 !  DEFSRPNER,SRPNER TEXT ' 1020 RPNAME COMMAND ERROR',  BYTE 0 !  DEFSXACTI0SXACTI TEXT ' 1021 TRANSACTION IN PROGRESS' 0  BYTE 0 !  DEFSXACTN0SXACTN TEXT ' 1022 TRANSACTION NOT ON QUEUE'0  BYTE 0 !  DEFSXLATE4SXLATE TEXT ' 1023 TRANSLATION TABLE LOAD ERROR'4  BYTE 0 !  DEFSLQFUL*SLQFUL TEXT ' 1024 *** LOG QUEUE FULL'*  BYTE 0 !  DEFSJRNNA8SJRNNA TEXT ' 1025 COMM JOURNAL FILE NOT AVAILABLE' 8  BYTE 0 !  DEFSINVJL8SINVJL TEXT ' 1026 INVALID JOURNAL/LOG ACCESS NAMES'8  BYTE 0 !  DEFSIOERR"SIOERR TEXT ' 2001 I/O ERROR' "  BYTE 0 !  DEFSOPNER,SOPNER TEXT ' 2002 OPEN/POSITION ERROR' ,  BYTE 0 !  DEFSRCVSN6SRCVSN TEXT ' 3001 RECEIVED SEND REQUEST COMMAND' 6  BYTE 0 !  DEFSRPNCD&SRPNCD TEXT ' 3002 RPNAME COMMAND'&  BYTE 0 !  DEFSRPRCM(SRPRCM TEXT ' 4001 RPRINT COMPLETE' (  BYTE 0 !  DEFSRPRCM(SRPUCM TEXT ' 4002 RPUNCH COMPLETE' (  BYTE 0 !  DEFSNDCMP&SNDCMP TEXT ' 4003 SEND COMPLETE' &  BYTE 0 !  DEFSPCHIN(SPCHIN TEXT ' 8001 RPUNCH INITIATED'(  BYTE 0 !  DEFSPRTIN(SPRTIN TEXT ' 8002 RPRINT INITIATED'(  BYTE 0 !  DEF SXMTIN &SXMTIN TEXT ' 8003 SEND INITIATED'&  BYTE 0 !  DEFSTSKBD2STSKBD TEXT ' 5001 TASK BID REQUEST RECEIVED' 2  BYTE 0 !  DEFSCALRE,SCALRE TEXT ' 5002 CALL RETRY NECESSARY',  BYTE 0 !  DEF SCOMNA SCOMNA TEXT ' 50"03 COMM DEVICE NOT AVAILABLE' "  BYTE 0 !  DEFSBTANA8SBTANA TEXT ' 5004 STATIC BUFFER ALLOCATION FAILED' 8  BYTE 0 !  DEFSTBP *STBP TEXT ' 5005 TASK BID PROCESSED'*  BYTE 0 !  DEFSACUNA*SACUNA TEXT ' 5006 ACU NOT AVAILABLE' *  BYTE 0 !  DEFSXPNCY*SXPNCY TEXT ' 6001 TRANSPARENCY ERROR'*  BYTE 0 !  DEFSOPRNO SOPRNO TEXT ' 7001 '  BYTE 0 !  END# BYTE 0 !  DEFSPRTIN(SPRTIN TEXT ' 8002 RPRINT INITIATED'(  BYTE 0 !  DEF SXMTIN &SXMTIN TEXT ' 8003 SEND INITIATED'&  BYTE 0 !  DEFSTSKBD2STSKBD TEXT ' 5001 TASK BID REQUEST RECEIVED' 2  BYTE 0 !  DEFSCALRE,SCALRE TEXT ' 5002 CALL RETRY NECESSARY',  BYTE 0 !  DEF SCOMNA SCOMNA TEXT ' 50@* '<* (C)COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1981. <:* ALL RIGHTS RESERVED. PROPERTY OF TEXAS INSTRUMENTS :@* INCORPORATED.RESTRICTED RIGHTS -- USE, DUPLICATION, OR @<* DISCLOSURE SUBJECT TO RESTRICTIONS SET FORTH IN TI'S <>* PROGRAM LICENSE AGREEMENT AND ASSOCIATED DOCUMENTATION. >* '* ' TITL 'EMULATOR MESSAGES'  IDT'CCMSG' @************************************************************ @* '* TITLE CCMSG * ':* ABSTRACTLOG MESSAGES, DATA CONSTANTS, TRANSLATION :* TABLES. * '@************************************************************ @  PAGE "  COPY COPY.DATCON  COPY COPY.MSLOG COPY COPY.CMDOPT N%**************************************************************************N* '0* EMULATOR LOG MESSAGES AND COMMAND PROMPTS 0* ':*  THE FOLLOWING IS THE MODIFIABLE TEXT FOR EMULATOR :&*  MESSAGES AND COMMAND PROMPTS.&* '*  FORMAT:!0* TEXT 02* BYTE 0NULL BYTE TERMINATES EACH SEGMENT 2N%**************************************************************************N * COMMAND PROMPTSN%**************************************************************************N DEFSCMD SCMD TEXT ' COMMAND'  BYTE 0 !  DEFSDEV SDEV TEXT ' DEVICE'   BYTE 0 !  DEFSLGTH  SLGTH TEXT ' LENGTH'   BYTE 0 !  DEFSNR SNR  TEXT ' NUMBER'   BYTE 0 !  DEFSOPT SOPT TEXT ' OPTION'   BYTE 0 !  DEFSPN SPN  TEXT ' PATH NAME'   BYTE 0 !  DEFSSEQ SSEQ TEXT ' SEQUENCE'   BYTE 0 !  DEFSEXEC  SEXEC TEXT ' EXECUTE'  BYTE 0 !  DEFSPARM  SPARM TEXT ' PARAMETERS'   BYTE 0 !  DEFSSTID  SSTID TEXT ' STATION'  BYTE 0 !  DEFSPGM SPGM TEXT ' PROGRAM'  BYTE 0 ! N%**************************************************************************N * 'ST' COMMAND MESSAGES N%**************************************************************************N DEFSBIDOV ST*CT  SBIDOV TEXT ' BID OVERRIDE'   BYTE 0 !  DEFSBDTRX*SBDTRX TEXT ' BID THRESHOLD EXCEEDED' *  BYTE 0 ! 0 DEFSCOMLK (COMM LINK STATISTICS HEADER) 0(SCOMLK TEXT ' COMM LINK STATISTICS' (  BYTE 0 !  DEFSRCXMT(COMM LINK STATISTICS HEADER)  SRCXMT TEXT ' RECEIVE SEND'   BYTE 0 !  DEFSCVRPY(SCVRPY TEXT ' CONVERSATIONAL REPLY' (  BYTE 0 !  DEFSENQTX*SENQTX TEXT ' ENQ THRESHOLD EXCEEDED' *  BYTE 0 !  DEFSIDLTX*SIDLTX TEXT ' IDLE THRESHOLD EXCEEDED'*  BYTE 0 !  DEFSNAKTX*SNAKTX TEXT ' NAK THRESHOLD EXCEEDED' *  BYTE 0 !  DEFSRVI SRVI TEXT ' RVI'  BYTE 0 !  DEFSDATX *SDATX TEXT ' DATA THRESHOLD EXCEEDED'*  BYTE 0 !  DEFSBIDAC SBIDAC TEXT ' BID ACCEPTED'   BYTE 0 !  DEFSTTD STTD TEXT ' TTD'  BYTE 0 !  DEFSNAK SNAK TEXT ' NAK'  BYTE 0 !  DEFSWACK  SWACK TEXT ' WACK'   BYTE 0 !  DEFSENQ SENQ TEXT ' ENQ'  BYTE 0 ! DEFSEOT SEOT TEXT ' EOT'  BYTE 0 !  DEFSACK SACK TEXT ' ACK'  BYTE 0 !  DEFSTRMID ST*ID*STRMID TEXT ' TERMINAL IDENTIFICATION'*  BYTE 0 !  DEFSREMOT&SREMOT TEXT ' REMOTE TERMINAL ID' &  BYTE 0 !  DEFSLOCAL$SLOCAL TEXT ' LOCAL TERMINAL ID'$  BYTE 0 ! , DEFSEMPTY STATISTICS QUEUE MESSAGES , SEMPTY TEXT ' EMPTY'  BYTE 0 !  DEFSRCPRQ&SRCPRQ TEXT ' RECEIVE PRINT QUEUE'&  BYTE 0 !  DEFSRCPUQ&SRCPUQ TEXT ' RECEIVE PUNCH QUEUE'&  BYTE 0 !  DEFSNDQUE SNDQUE TEXT ' SEND QUEUE'   BYTE 0 !  DEFSCMDSC ST*CUR$SCMDSC TEXT ' COMM DISCONNECTED'$  BYTE 0 !  DEFSCONIN&SCONIN TEXT ' CONNECT IN PROGRESS'&  BYTE 0 !  DEF SCMIDL  SCMIDL TEXT ' COMM IDLE'  BYTE 0 !  DEFSPCACN.SPCACN TEXT ' PRIMARY COMMAND ACCESS NAME'.  BYTE 0 !  DEFSSCACN0SSCACN TEXT ' SECONDARY COMMAND ACCESS NAME'0  BYTE 0 !  DEFSCMDVN$SCMDVN TEXT ' COMM DEVICE NAME' $  BYTE 0 !  DEFSXPAR  SXPAR TEXT ' TRANSPARENCY'   BYTE 0 !  DEFSCEM (SCEM TEXT ' COMPRESSION/EXPANSION'(  BYTE 0 !  DEFSEMO  SEMO TEXT ' END OF MEDIA'   BYTE 0 !  DEFSRCVPN$SRCVPN TEXT ' RECEIVE PATHNAME' $  BYTE 0 !  DEFSNDREQ SNDREQ TEXT ' SEND REQUEST'   BYTE 0 !  DEFSPFVFC"SPFVFC TEXT ' PRINT FILE VFC' "  BYTE 0 !  DEFSBDTSK SBDTSK TEXT ' BID TASK'   BYTE 0 !  DEFSOPMSGSOPMSG TEXT '  OPERATOR MESSAGE'   BYTE 0 !  DEFSRETAN*SRETAN TEXT ' RETAIN TRAILING BLANKS' *  BYTE 0 !  DEFSDSCRM$SDSCRM TEXT ' DISCONNECT REMOTE'$  BYTE 0 !  DEFSBLGTH SBLGTH TEXT ' BLOCK LENGTH'   BYTE 0 !  DEFSNDLGT&SNDLGT TEXT ' SEND RECORD LENGTH' &  BYTE 0 !  DEFSRCPLT.SRCPLT TEXT ' RECEIVE PRINT RECORD LENGTH'.  BYTE 0 !  DEFSRCPUL.SRCPUL TEXT ' RECEIVE PUNCH RECORD LENGTH'.  BYTE 0 ! " DEFSFLAGSFLAGS TO " SFLAGS TEXT ' FLAGS'  BYTE 0 !  DEFSTO STO  TEXT ' TO'   BYTE 0 !  DEFSPLGAN*SPLGAN TEXT ' PRIMARY LOG ACCESS NAME'*  BYTE 0 !  DEFSSLGAN,SSLGAN TEXT ' SECONDARY LOG ACCESS NAME',  BYTE 0 !  DEFSNOFLGSNOFLG TEXT ' FLAGS: NONE'  BYTE 0 !  DEFSRCPRN SRCPRN TEXT ' RECEIVE PRINT'  BYTE 0 !  DEFSRCPUN SRCPUN TEXT ' RECEIVE PUNCH'  BYTE 0 !  DEFSTRANS STRANS TEXT ' TRANSMITTING'   BYTE 0 !  DEFSXMPND$SXMPND TEXT ' TRANSMIT PENDING' $  BYTE 0 !  DEFSJRNAN&SJRNAN TEXT ' JOURNAL ACCESS NAME'&  BYTE 0 !  DEFSRCDBL$SRCDBL TEXT ' RECORDS PER BLOCK'$  BYTE 0 ! N%**************************************************************************N* ' * GENERAL MESSAGESN%**************************************************************************N DEFSVALID,SVALID TEXT ' ANY VALID TRANSACTION ID' ,  BYTE 0 !  DEFSINVIN$SINVIN TEXT ' *** INVALID INPUT'$  BYTE 0 !  DEFSCONSL TX VERSION ONLY<SCONSL TEXT ' *** COMM TASK OPERATOR CONSOLE I/O ERROR' <  BYTE 0 ! N%**************************************************************************N * MESSAGES FROM APPENDIX E  N%**************************************************************************N DEFSIVCOM6SIVCOM TEXT ' 1001 INVALID COMM DEVICE SPECIFIED' 6  BYTE 0 !  DEFSBELRC&SBELRC TEXT ' 1002 BELL RECEIVED' &  BYTE 0 !  DEFSBIDER"SBIDER TEXT ' 1003 BID ERROR' "  BYTE 0 !  DEFSNOCOM2SNOCOM TEXT ' 1005 COMM DEVICE NOT AVAILABLE' 2  BYTE 0 !  DEFSBDPRC:SBDPRC TEXT ' 1006 INVALID PROC USED TO BID COMM TASK' :  BYTE 0 !  DEFSCMDNA:SCMDNA TEXT ' 1007 COMM COMMAND DEVICE NOT AVAILABLE' :  BYTE 0 !  DEFSCLOPN:SCLOPN TEXT ' 1008 COMMAND/LOG FILE ASSIGN/OPEN ERROR' :  BYTE 0 !  DEFSCONNF&SCONNF TEXT ' 1009 CONNECT FAILED'&  BYTE 0 !  DEFSCONNS*SCONNS TEXT ' 1010 CONNECT SUCCESSFUL'*  BYTE 0 !  DEFSIDLER"SIDLER TEXT ' 1011 IDLE ERROR'"  BYTE 0 !  DEFSNOBF >SNOBF TEXT ' 1012 INSUFFICIENT MEMORY FOR COMMAND INPUT' >  BYTE 0 !  DEFSIDMSG SIDMSG TEXT ' 1013 ID'  BYTE 0 !  DEFSINVPM*SINVPM TEXT ' 1014 INVALID PARAMETERS'*  BYTE 0 !  DEFSLNDSC*SLNDSC TEXT ' 1015 LINE DISCONNECTED' *  BYTE 0 !  DEFSLOGNA6SLOGNA TEXT ' 1016 COMM LOG DEVICE NOT AVAILABLE' 6  BYTE 0 !  DEFSNRCPN6SNRCPN TEXT ' 1017 NO RECEIVE PATHNAME SPECIFIED' 6  BYTE 0 !  DEFSNDCDEPN@2SNDCDE TEXT ' 1019 SEND REQUEST COMMAND ERROR'2  BYTE 0 !  DEFSRPNER,SRPNER TEXT ' 1020 RPNAME COMMAND ERROR',  BYTE 0 !  DEFSXACTI0SXACTI TEXT ' 1021 TRANSACTION IN PROGRESS' 0  BYTE 0 !  DEFSXACTN0SXACTN TEXT ' 1022 TRANSACTION NOT ON QUEUE'0  BYTE 0 !  DEFSXLATE4SXLATE TEXT ' 1023 TRANSLATION TABLE LOAD ERROR'4  BYTE 0 !  DEFSLQFUL*SLQFUL TEXT ' 1024 *** LOG QUEUE FULL'*  BYTE 0 !  DEFSJRNNA8SJRNNA TEXT ' 1025 COMM JOURNAL FILE NOT AVAILABLE' 8  BYTE 0 !  DEFSINVJL8SINVJL TEXT ' 1026 INVALID JOURNAL/LOG ACCESS NAMES'8  BYTE 0 !  DEFSIOERR"SIOERR TEXT ' 2001 I/O ERROR' "  BYTE 0 !  DEFSOPNER,SOPNER TEXT ' 2002 OPEN/POSITION ERROR' ,  BYTE 0 !  DEFSRCVSN6SRCVSN TEXT ' 3001 RECEIVED SEND REQUEST COMMAND' 6  BYTE 0 !  DEFSRPNCD&SRPNCD TEXT ' 3002 RPNAME COMMAND'&  BYTE 0 !  DEFSRPRCM(SRPRCM TEXT ' 4001 RPRINT COMPLETE' (  BYTE 0 !  DEFSRPRCM(SRPUCM TEXT ' 4002 RPUNCH COMPLETE' (  BYTE 0 !  DEFSNDCMP&SNDCMP TEXT ' 4003 SEND COMPLETE' &  BYTE 0 !  DEFSPCHIN(SPCHIN TEXT ' 8001 RPUNCH INITIATED'(  BYTE 0 !  DEFSPRTIN(SPRTIN TEXT ' 8002 RPRINT INITIATED'(  BYTE 0 !  DEF SXMTIN &SXMTIN TEXT ' 8003 SEND INITIATED'&  BYTE 0 !  DEFSTSKBD2STSKBD TEXT ' 5001 TASK BID REQUEST RECEIVED' 2  BYTE 0 !  DEFSCALRE,SCALRE TEXT ' 5002 CALL RETRY NECESSARY',  BYTE 0 !  DEF SCOMNA SCOMNA TEXT ' 50"03 COMM DEVICE NOT AVAILABLE' "  BYTE 0 !  DEFSBTANA8SBTANA TEXT ' 5004 STATIC BUFFER ALLOCATION FAILED' 8  BYTE 0 !  DEFSTBP *STBP TEXT ' 5005 TASK BID PROCESSED'*  BYTE 0 !  DEFSACUNA*SACUNA TEXT ' 5006 ACU NOT AVAILABLE' *  BYTE 0 !  DEFSXPNCY*SXPNCY TEXT ' 6001 TRANSPARENCY ERROR'*  BYTE 0 !  DEFSOPRNO SOPRNO TEXT ' 7001 '  BYTE 0 !  END# BYTE 0 !  DEFSPRTIN(SPRTIN TEXT ' 8002 RPRINT INITIATED'(  BYTE 0 !  DEF SXMTIN &SXMTIN TEXT ' 8003 SEND INITIATED'&  BYTE 0 !  DEFSTSKBD2STSKBD TEXT ' 5001 TASK BID REQUEST RECEIVED' 2  BYTE 0 !  DEFSCALRE,SCALRE TEXT ' 5002 CALL RETRY NECESSARY',  BYTE 0 !  DEF SCOMNA SCOMNA TEXT ' 50@@************************************************************ @*  COPY.DATCON *  EMULATOR DATA CONSTANTS @************************************************************ @* '(* ASCII TO BINARY CONVERSION TABLE (* ' DEFABTBL $ABTBL BYTE 0,1,2,3,4,5,6,7,8,9 $,ABTBLF BYTE >FF,>FF,>FF,>FF,>FF,>FF,>FF ,(ABTBLH BYTE >0A,>0B,>0C,>0D,>0E,>0F (@************************************************************ @* ',* HEXADECIMAL TO ASCII CONVERSION TABLE,* ' DEFHEXTBL"HEXTBL TEXT '0123456789ABCDEF'"@************************************************************ @* ' * MISCELLANEOUS CONSTANTS* '  EVEN "  DEF ANDEOF,ANDEO2,SUSPENANDEOF DATA '&E''&EOF'ANDEO2 DATA 'OF' SUSPEN BYTE 1 SUSPEND TASK FLAG.@************************************************************ @* ' * DECIMAL WORD CONSTANTS * '  EVEN "  DEFD10,D80 (D10  DATA 10DECIMAL 10(>000A) (D80  DATA 80DECIMAL 80@************************************************************ @* '"* HEXADECIMAL WORD CONSTANTS "* '4 DEFH0001,H0018,H1000,H2000,H4000,H00FF,HFFFF 4" DEF H0050,H00FE,H0002,H0003 "  EVEN " H0001 EQUABTBL >0001  H0002 DATA >0002 >0002  H0003 DATA >0003 >0003  H1000 DATA >1000 >1000  H0018 DATA >0018 >0018 H0050 EQUD80 >0050  H2000 DATA >2000 >2000  H4000 DATA >4000 >4000  H00FF DATA >00FF >00FF  HFFFF EQUABTBLF+2>FFFF   H00FE DATA >00FE >00FE @  PAGE " @************************************************************ @* '"* HEXADECIMAL BYTE CONSTANTS "* ' DEF HA0,HC0,HE0,HBF,H40 2 DEFH00,H01,H02,H04,H06,H09,H0B,H10,H1C,H1D 2& DEFH20,H80,H91,H93,HDF,HF0,HFF &H00  EQUABTBL >00 H01  EQUABTBL+1 >01 H02  EQUABTBL+2 >02 H03  EQUABTBL+3 >03 H04  EQUABTBL+4 >04 H05  EQUABTBL+5 >05 H06  EQUABTBL+6 >06 H07  EQUABTBL+7 >07 H08  EQUABTBL+8 >08 H09  EQUABTBL+9 >09 H0A  EQUABTBLH>0A H0B  EQUABTBLH+1>0B H0C  EQUABTBLH+2>0C H0D  EQUABTBLH+3>0D H0E  EQUABTBLH+4>0E H0F  EQUABTBLH+5>0F H10  EQUH1000 >10 H1C  BYTE >1 C >1C  H1D  BYTE >1D >1D H20  BYTE >20 >20 H40  EQUH4000 >40 H80  BYTE >80 >80 H91  BYTE >91 >91 H93  BYTE >93 >93 HA0  BYTE >A0 >A0 HBF  BYTE >BF >BF HC0  BYTE >C0 >C0 HDF  BYTE >DF >DF HE0  BYTE >E0 >E0 HF0  BYTE >F0 >F0 HFF  EQUABTBLF>FF   PAGE " @************************************************************ @* ' * ASCII CONSTANTS* ' DEF AMPSND,ASTRSK,BLANK  DEF COMMA,DOLLAR,GTSIGN   DEF HEX,LTSIGN,POUND,ZERO   DEFLPAREN,RPAREN "AMPSND EQUANDEOF '&'>26 "ASTRSK TEXT '*' >2A BLANK TEXT ' ' >20 COMMA TEXT ',' >2C DOLLAR TEXT '$' >24 GTSIGN TEXT '>' >3E >1@HEX  EQUGTSIGN>3E LTSIGN TEXT '<' >3C POUND TEXT '#' >23 LPAREN TEXT '(' >28 RPAREN TEXT ')' >29 "ZERO EQUHEXTBL '0'>30 "* '6 DEFASCBLK,ASCEM,ASC0,ASC1,ASC9,ASCS,ASCE,ASCESC 6 DEFASCF,ASCT "ASC0 EQUHEXTBL '0'>30 "ASC1 TEXT '1' >31 ASC9 TEXT '9' >39 "ASCBLK EQUBLANK  ' '>20 "$ASCEM BYTE >19 >19 ASCII EM $$ASCESC BYTE >1B >1B ASCII ESC$ASCS TEXT 'S' >53 ASCE TEXT 'E' >45 ASCF TEXT 'F' >46 ASCT TEXT 'T' >54 @************************************************************ @* ' * EBCDIC CONSTANTS * ', DEFEBCDLE,EBCENQ,EBCESC,EBCETB,EBCETX,2 DEFEBCEM,EBCIUS,EBCIGS,EBCIRS,EBCSCB,EBCSTX2 DEFEBCBLK,EBCNAK (EBCETB EQUANDEOF>26 EBCDIC ETB (&EBCETX EQUH03 >03 EBCDIC ETX &&EBCDLE EQUH10 >10 EBCDIC DLE &&EBCEM EQUASCEM >19 EBCDIC EM&&EBCIUS BYTE >1F >1F EBCDIC IUS &&EBCIRS BYTE >1E >1E EBCDIC IRS &&EBCIGS BYTE >1D >1D EBCDIC IGS &&EBCSTX EQUH02 >02 EBCDIC STX &&EBCENQ BYTE >2D >2D EBCDIC ENQ &&EBCESC BYTE >27 >27 EBCDIC ESC &&EBCNAK BYTE >3D >3D EBCDIC NAK &&EBCSCB EQUH40 >40 EBCDIC SCB &(EBCBLK EQUH40  >40 EBCDIC BLANK (  PAGE " @************************************************************ @8* TRANSLATION TABLE TABLE FOR INTERNATIONALIZATION. 86* CONTAINS OVERLAY NUMBERS OF TRANSLATION TABLES. 6* '  EVEN " * ' DEFCTBL * '(CTBL EQU$  --COUNTRY-- --COUNT(RY CODE-- $ DATA >F0  UNITED STATES(0) $& DATA >F1  UNITED KINGDOM (1) & DATA >F2  JAPAN(2) & DATA >F3  FRANCE/BELGIUM (3) && DATA >F4  DENMARK/NORWAY (4) && DATA 0  ARABIAN COUNTRIES(5) & DATA 0  RESERVED (6)  DATA 0  RESERVED (7)  DATA 0  RESERVED (8) & DATA >F9  GERMANY/AUSTRIA(9) && DATA >FA  SWEDEN/FINLAND (A) & DATA 0  SPARE(B) * '  PAGE " * '@************************************************************ @4* CHARACTER VALIDATION TABLE FOR TERMINAL ID * 4@************************************************************ @* ' DEFIDCHK * 'IDCHK EQU$ !$ DATA 1  NUMBER OF RANGE PAIRS$ BYTE >20  LOWER BOUND BYTE >7F  UPPER BOUND* '  PAGE " TED STATES(0) $& DATA >F1  UNITED KINGDOM (1) & DATA >F2  JAPAN(2) & DATA >F3  FRANCE/BELGIUM (3) && DATA >F4  DENMARK/NORWAY (4) && DATA 0  ARABIAN COUNTRIES(5) & DATA 0  RESERVED (6)  DATA 0  RESERVED (7)  DATA 0  RESERVED (8) & DATA >F9  GERMANY/AUSTRIA(9) && DATA >FA  SWEDEN/FINLAND (A) & DATA 0  SPARE(B) * '  PAGE " * '@************************************************************ @4* CHARACTER VALIDATION TABLE FOR TERMINAL ID * 4@************************************************************ @* ' DEFIDCHK * 'IDCHK EQU$ !$ DATA 1  NUMBER OF RANGE PAIRS$ BYTE >20  LOWER BOUND BYTE >7F  UPPER BOU@@************************************************************ @* ' * EMULATOR LOG MESSAGES  * MESSAGE VECTORS * '* FORMAT: #.*  DATA N  NUMBER OF MESSAGE SEGMENTS .6*  DATA ADRES1 ADDRESS OF 1ST MESSAGE SEGMENT 6*  ---- "6*  DATA ADRESN ADDRESS OF NTH MESSAGE SEGMENT 6* '@************************************************************ @$ REF SCRACH,SCR20,CMMSGB,CMMSG2$  EVEN " 0 DEFVACUNO
ACU NOT AVAILABLE 0,VACUNO DATA 4,NCRLF,CMMSGB,SACUNA,CMMSG2," DEFVBDERR
BID ERROR "&VBDERR DATA 3,NCRLF,CMMSGB,SBIDER && DEFVBELRC
BELL RECEIVED &&VBELRC DATA 3,NCRLF,CMMSGB,SBELRC &8 DEFVBIDTK
TASK BID REQUEST RECEIVED 8,VBIDTK DATA 4,NCRLF,CMMSGB,STSKBD,CMMSG2, DEF"VOPRTK
",VOPRTK DATA 4,NCRLF,CMMSGB,SOPRNO,CMMSG2,6 DEFVBUS
COMM DEVICE NOT AVAILABLE 6&VBUS DATA 3,CMMSGB,SCOMNA,CMMSG2&6 DEFVCLAOE
CMD/LOG FILE ASSIGN/OPEN ERROR 6&VCLAOE DATA 3,SCRACH,SCLOPN,NCRLF & DEFVCMD COMMAND: "VCMD DATA 3,NCRLF,SCMD,NCOL2"$ DEFVCMMSG $ VCMMSG DATA 1,CMMSGB* DEFVCONNS
CONNECT SUCCESSFUL*&VCONNS DATA 3,NCRLF,CMMSGB,SCONNS &, DEFVCONNU
CONNECT UNSUCCESSFUL,&VCONNU DATA 3,NCRLF,CMMSGB,SCONNF & DEFVDEV DEVICE:VDEV DATA 2,SDEV,NCOL3 DEFVEXEC  EXECUTE:  VEXEC DATA 2,SEXEC,NCOL2 " DEFVIDLER
IDLE ERROR"&VIDLER DATA 3,NCRLF,CMMSGB,SIDLER &$ DEFVINVIP *** INVALID INPUT$ VINVIP DAT A 1,SINVIN* DEFVLDISC
LINE DISCONNECTED *&VLDISC DATA 3,NCRLF,CMMSGB,SLNDSC & DEFVLGTH  LENGTH: VLGTH DATA 2,SLGTH,NCOL3 $ DEFVMQF *** LOG QUEUE FULL $VMQF DATA 1,SLQFUL2 DEFVNDSE 
NO RECEIVE PNAME SPECIFIED 2&VNDSE DATA 3,NCRLF,CMMSGB,SNRCPN &6 DEFVNOBUF
INSUFFICIENT MEM FOR CMD INPUT 6$VNOBUF DATA 3,SCRACH,SNOBF,NCRLF$ DEFVNR  NUMBER:VNR  DATA 2,SNR,NCOL3  DEFVOPT OPTION:VOPT DATA 2,SOPT,NCOL3 DEFVPN  PATHNAME:VPN  DATA 2,SPN,NCOL1  DEFVID  ID SEQUENCE: VID  DATA 2,SSEQ,NCOL2 DEFVPARM  PARAMETER:  VPARM DATA 2,SPARM,NCOL2 . DEFVPCHCP
RPUNCH COMPLETE .,VPCHCP DATA 4,NCRLF,CMMSGB,SRPUCM,CMMSG2,  DEFVPGM  PROGRAM: VPGM DATA 2,SPGM,NCOL3. DEFVPRTCP
RPRINT COMPLETE .,VPRTCP DATA 4,NCRLF,CMMSGB,SRPRCM,CMMSG2,****&0 DEFVPCHIN
RPUNCH INITIATED 0,VPCHIN DATA 4,NCRLF,CMMSGB,SPCHIN,CMMSG2,0 DEFVPRTIN
RPRINT INITIATED 0,VPRTIN DATA 4,NCRLF,CMMSGB,SPRTIN,CMMSG2,. DEFVXMTIN
SEND INITIATED .,VXMTIN DATA 4,NCRLF,CMMSGB,SXMTIN,CMMSG2,****&4 DEFVRCPNE
RECEIVE PNAME COMMAND ERROR 4&VRCPNE DATA 3,NCRLF,CMMSGB,SRPNER &4 DEFVRCPNS
RECEIVE PNAME COMMAND 4,VRCPNS DATA 4,NCRLF,CMMSGB,SRPNCD,CMMSG2,  DEFVREPLY   REFXREPLY VREPLY DATA 1,XREPLY4 DEFVRETRY
CALL RETRY NECESSARY 4,VRETRY DATA 4,NCRLF,CMMSGB,SCALRE,CMMSG2,.@0 DEFVRTRQ 
RECEIVED SRQ CMD 0,VRTRQ DATA 4,NCRLF,CMMSGB,SRCVSN,CMMSG2,. DEFVRTRER
RECEIVED SRQ CMD ERROR.&VRTRER DATA 3,NCRLF,CMMSGB,SNDCDE &( DEFVSCR,VSCRCH (VSCRCH EQU$ !VSCR DATA 1,SCRACH, DEFVSDEVE
I/O ERROR ,,VSDEVE DATA 4,NCRLF,CMMSGB,SIOERR,CMMSG2,6 DEFVSDOPE
OPEN/POSITION ERROR 6,VSDOPE DATA 4,NCRLF,CMMSGB,SOPNER,CMMSG2, DEFVSTID  STATION:  VSTID DATA 2,SSTID,NCOL2 2 DEFVSTRNE <DT> TRANSPARENCY ERROR 2,VSTRNE DATA 4,NCRLF,CMMSGB,SXPNCY,CMMSG2,2 DEFVTASKB
TASK BID PROCESSED 2*VTASKB DATA 4,NCRLF,SCRACH,STBP,SCR20 *0 DEFVXINPG
TRANSACTION IN PROGRESS 0 VXINPG DATA 2,SCRACH,SXACTI   DEFVXMTCP
SEND COMPLETE ,VXMTCP DATA 4,NCRLF,CMMSGB,SNDCMP,CMMSG2,0 DEFVXNOQ 
TRANSACTION NOT ON QUEUE 0 VXNOQ DATA 2,SCRACH,SXACTN  8* 
- LOG FILE 3780/2780 - RID= XX - COMM= CMXX 8 DEFVINTL3:VINTL3 DATA 6,SCRLF,SCRACH,SLOG37,CMMSGB,SCOMDV,CMMSG2 : DEFVINTL2:VINTL2 DATA 6,SCRLF,SCRACH,SLOG27,CMMSGB,SCOMDV,CMMSG2 :  PAGE " OSITION ERROR 6,VSDOPE DATA 4,NCRLF,CMMSGB,SOPNER,CMMSG2, DEFVSTID  STATION:  VSTID DATA 2,SSTID,NCOL2 2 DEFVSTRNE <DT> TRANSPARENCY ERROR 2,VSTRNE DATA 4,NCRLF,CMMSGB,SXPNCY,CMMSG2,2 DEFVTASKB
TASK BID PROCESSED 2*VTASKB DATA 4,NCRLF,SCRACH,STBP,SCR20 *0 DEFVXINPG
TRANSACTION IN PROGRESS 0 VXINPG DATA 2,SCRACH,SXACTI   DEFVXMTCP@@************************************************************ @* '0* VALID COMMAND AND OPTION MESSAGE SEGMENTS 0* '* FORMAT: #0*  TEXT 04*  BYTE 0  NULL BYTE TERMINATES EACH SEGMENT 4* '@************************************************************ @* ' DEFSABORT SABORT TEXT ' ABORT'  BYTE 0 !  DEFSALL SALL TEXT ' ALL'  BYTE 0 !  DEFSALLQ  SALLQ TEXT ' ALLQ'   BYTE 0 !  DEFSANS SANS TEXT ' ANS'  BYTE 0 !  DEFSBID SBID TEXT ' BID'  BYTE 0 !  DEFSBL SBL  TEXT ' BL'   BYTE 0 !  DEFSCALL  SCALL TEXT ' CALL'   BYTE 0 !  DEFSCE SCE  TEXT ' CE'   BYTE 0 !  DEFSCF  SCF  TEXT ' CF'   BYTE 0 !  DEFSCLR SCLR TEXT ' CLR'  BYTE 0 !  DEFSCOMDV SCOMDV TEXT ' - COMM= '   BYTE 0 !  DEFNCOL1 NCOL1 TEXT ': '': '  BYTE 0 ! NCOL2 TEXT ':' ':'   BYTE 0 !  DEFNBLK2 NCOL3 TEXT ': '': '&NBLK2 TEXT ' ' ' ' 2 BLANKS &$NBLANK TEXT ' ' ' '  1 BLANK$  BYTE 0 !  DEFNBLK1010 BLANKS NBLK10 TEXT '  '  BYTE 0 !  DEFSCOM SCOM TEXT ' COM'  BYTE 0 !  DEFSCON SCON TEXT ' CON'  BYTE 0 !  DEFSCRLF,NCRLF SCRLF EQU$ !" NCRLF BYTE >0D,>0A,0 CR/LF " DEFSCT SCT  TEXT ' CT'   BYTE 0 !  DEFSCUR SCUR TEXT ' CUR'  BYTE 0 !  DEFSDISCR@ SDISCR TEXT ' DISCR'  BYTE 0 !  DEFSDIS SDIS TEXT ' DISC'   BYTE 0 !  DEFSE! SE TEXT ' E'   BYTE 0 !  DEFSEM SEM  TEXT ' EM'   BYTE 0 !  DEFSEM378 SEM378 TEXT ' EM3780'   BYTE 0 !  DEFSEM278 SEM278 TEXT ' EM2780'   BYTE 0 !  DEFSFLG (SFLG TEXT ' ANY VALID FLAG NUMBER'(  BYTE 0 !  DEFSEND SEND TEXT ' $END'   BYTE 0 !  DEFSELS SELS TEXT ' $ELSE'  BYTE 0 !  DEFSID SID  TEXT ' ID'   BYTE 0 !  DEFSIF SIF  TEXT ' IF'   BYTE 0 !  DEFSLF SLF  TEXT ' LF'   BYTE 0 !  DEFSLID SLID TEXT ' LID'  BYTE 0 !  DEFSLOG37,SLOG37 TEXT ' - LOG FILE 3780 ASSIGNED - R,ID='  BYTE 0 !  DEFSLOG272SLOG27 TEXT ' - LOG FILE 2780 ASSIGNED - RID='2  BYTE 0 !  DEFSNO SNO  TEXT ' NO'   BYTE 0 !  DEFSO! SO TEXT ' O'   BYTE 0 !  DEFSOFF SOFF TEXT ' OFF'  BYTE 0 !  DEFSON SON  TEXT ' ON'   BYTE 0 !  DEFSPR SPR  TEXT ' PR'   BYTE 0 !  DEFSPU SPU  TEXT ' PU'   BYTE 0 !  DEFSQSL SQSL TEXT ' ?'   BYTE 0 !  DEFSRB SRB  TEXT ' RB'   BYTE 0 !  DEFSRESET SRESET TEXT ' RESET'  BYTE 0 !  DEFSRID SRID TEXT ' RID'  BYTE 0 !  DEFSRPN SRPN TEXT ' RPN'  BYTE 0 !  DEFSRPR SRPR TEXT ' RPR'  BYTE 0 !  DEFSRPRD SR PRD TEXT ' RPRD'   BYTE 0 !  DEFSRPRRL SRPRRL TEXT ' RPRRL'  BYTE 0 !  DEFSRPU SRPU TEXT ' RPU'  BYTE 0 !  DEFSRPUD  SRPUD TEXT ' RPUD'   BYTE 0 !  DEFSRPURL SRPURL TEXT ' RPURL'  BYTE 0 !  DEFSRTR,SSRQ SSRQ&SRTR TEXT ' SRQ'  BYTE 0 !  DEFSS! SS TEXT ' S'   BYTE 0 !  DEFSSET SSET TEXT ' SET'  BYTE 0 !  DEFSSS SSS  TEXT ' SS'   BYTE 0 !  DEFSSRL SSRL TEXT ' SRL'  BYTE 0 !  DEFSST SST  TEXT ' ST'   BYTE 0 !  DEFST! ST TEXT ' T'   BYTE 0 !  DEFSTASK  STASK TEXT ' TASK'   BYTE 0 !  DEFSTBID  STBID TEXT ' TBID'   BYTE 0 !  DEFSG OPR  SGOPR TEXT ' $OPR'   BYTE 0 !  DEFSTERM  STERM TEXT ' TERM'   BYTE 0 !  DEFSTY STY  TEXT ' TY'   BYTE 0 !  DEFSVFC SVFC TEXT ' VFC'  BYTE 0 !  DEFSWAIT  SWAIT TEXT ' WAIT'   BYTE 0 !  DEFSYES SYES TEXT ' YES'  BYTE 0 !  DEFSSRPR  SSRPR TEXT ' SRPR'   BYTE 0 !  DEFSSRPU  SSRPU TEXT ' SRPU'   BYTE 0 !  DEFSSREC  SSREC TEXT ' SREC'   BYTE 0 !  DEFSTBLNK STBLNK TEXT ' TRAILB'   BYTE 0 !  PAGE " ' ST'   BYTE 0 !  DEFST! ST TEXT ' T'   BYTE 0 !  DEFSTASK  STASK TEXT ' TASK'   BYTE 0 !  DEFSTBID  STBID TEXT ' TBID'   BYTE 0 !  DEFSG @@************************************************************ @  PAGE " 8 DEFBTALGT DNOS-BEETS TO INCREASE SYSTBL AREA-ES 8 DEFBLMAX  DEFUCPEX  DEFDEFRPB DEFDSRFLG DEFPRDEF  DEFPUDEF  DEFUFLGNO DEFQUEMAX4 DEFUPNLGT STANDARD DX10 PATHNAME LENGTH IS 4"UPNLGT EQU48 48 CHARACTERS" DEFERRDIS DEFOPRDEF DEFSOPRF  DEFACDIAL DEFACDIGT DEFACFRST DEFUARC  DEFUXPAR  DEFUDPNS  DEFURTRQ  DEFRTRDEF DEFUTBID  DEFUDISCR DEFUBLKTL DEFTBDDEF DEFDLROPT DEFPNDEF  DEFDEFVFC DEFINPMAX DEFOUTMAX DEFRDRRL  DEFPCHRL  DEFIDFLAG DEFTERMID DEFXMTID  DEFIDMAX  DEFIDSIZE DEFPRTRL 4 DEFACUDLY APPROXIMATE NUMBER OF SYSTEM TIME 4 ACUDLY DATA UARI*1 UNITS DEFOTO OTO  EQU>100*UCONTO  DEFINPBUF,OUTBUF   EVEN " ,INPBUF BSSINPMAX SYSTEM INPUT BUFFER,  EVEN " .OUTBUF BSSOUTMAX SYSTEM OUTPUT BUFFER . BSS14 VFC INFO SPACE   EVEN "  DEF TABSTP,TABEND(TABSTP BSSOUTMAX TAB STOP BUFFER(TABEND EQU$ ! DEFUOBLGTUOBLGT EQUUPNLGT+6  EVEN "  DEFBUFPTR,BUFERS 4 BUFPTR DATA BUFERSADDRESS OF 1ST AVAILABLE BUF 4(BUFERS BSSQUEMAX*UOBLGT BUFFERS ( DEFUFLAG UFLAG BSSUFLGNO  EVEN " 4 DEFBF1COM,BF2COM,FONENO,BF1SPA,BF2SPA,RBUFSZ 4SPAREC EQU4  R&ESERVE 4 CHARS AT START OF BUFFER &$* AND 14 AT THE END OF BUFFER $:RBUFSZ EQUBLMAX+SPAREC COMM BUFS INCLUDE EXTRA SPACE :, BSS1  FORCE BF1COM TO EVEN BOUNDARY ,6FONENO BYTE 0  ACU PHONE NUMBER CHARACTER COUNT 6.BF1COM BSSRBUFSZ+14  READ COMM BUFFER 1..BF2COM BSSRBUFSZ+14  READ COMM BUFFER 2.0BF1SPA BSSRBUFSZ+14  WRITE COMM BUFFER 1 00BF2SPA BSSRBUFSZ+14  WRITE COMM BUFFER 2 06BTAOVH EQU45 OVERHEAD FOR #BEETS IN BTALGT-ES 6HBTALGT EQU(RBUFSZ+BTAOVH)/8 DNOS BEETS TO INCREASE SYSTBL AREA-ES H@************************************************************ @  PAGE " 4(BUFERS BSSQUEMAX*UOBLGT BUFFERS ( DEFUFLAG UFLAG BSSUFLGNO  EVEN " 4 DEFBF1COM,BF2COM,FONENO,BF1SPA,BF2SPA,RBUFSZ 4SPAREC EQU4  R46& PAGE " ********************************** @* '* TITLE COPY.XIDASC * '<* ABSTRACTCONVERT A BINARY TRANSACTION ID INTO A FIVE <4* CHARACTER DECIMAL ASCII MESSAGE SEGMENT AND 4$* PLACE IN A SPECIFIED BUFFER.$* '4* LINKAGE R2, ADDRESS OF COMMAND BUFFER BLOCK 42* R10, BUFFER ADDRESS TO PLACE ASCII NUMBER 2* BL@XIDASC * '<* RETURNCALLER'S R10 UPDATED TO NEXT ADDRESS FOLLOWING <*  BUILT MESSAGE SEGMENT.* '@************************************************************ @* ' REFSBWS  DEFXIDASC* ' XIDASC DATA SBWS,XA000* '2XA000 MOV@4(R13),R8 COMMAND BUFFER ADDRESS28 MOV@CBXID(R8),R8 XACTION ID FROM COMMAND BUFFER 8 LI R9,5CHAR COUNT B@D47& PAGE " ********************************** @* '* TITLE COPY.XIDASC * '<* ABSTRACTCONVERT A BINARY TRANSACTION ID INTO A FIVE <4* CHARACTER DECIMAL ASCII MESSAGE SEGMENT AND 4$* PLACE IN A SPECIFIED BUFFER.$* '4* LINKAGE R2, ADDRESS OF COMMAND BUFFER BLOCK 42* R10, BUFFER ADDRESS TO PLACE ASCII NUMBER 2* BL@XIDASC * '<* RETURNCALLER'S R10 UPDATED TO NEXT ADDRESS FOLLOWING <*  BUILT MESSAGE SEGMENT.* '@************************************************************ @* ' REFSBWS  DEFXIDASC* ' XIDASC DATA SBWS,XA000* '2XA000 MOV@4(R13),R8 COMMAND BUFFER ADDRESS28 MOV@CBXID(R8),R8 XACTION ID FROM COMMAND BUFFER 8 LI R9,5CHAR COUNT B@DC D3780 LC3780 `P گSC3780 `P0گMAC3780 `Pگ@* '$* 3780 LINE CONTROL STATUS TABLE$* ' * LC3780 $MACRO UN,NH,NL,SL   * UN = UNIT NUMBER** NH = NEXT HIGHER LEVEL TABLE ADDRESS*$* NL = NEXT LOWER TABLE ADDRESS $(* SL = SOFTWARE LEVEL QUEUE ADDRESS ( UNL# LC3780 $MACRO UN,NH,NL,SL$ DEFLTCM:UN: 31 LCT ADDRESS $* REF:NH.S: NEXT HIGHER LEVEL TABLE *6 LTCM:UN: DATA -1,0,0 31 NI ENTRY FLAG AND QUEUE 6& DATA CLN:UN:,0 NI ENTRY VECTOR &, DATA :SL:SOFTWARE LEVEL QUEUE ADDRESS , BYTE >00 TABLE TYPE LCD. BYTE >B0 DATA BUFFERING - FILE ORIENTED .$ DATA CLI:UN:,0 I ENTRY VECTOR$4 DATA :NH:,:NL: NEXT HIGHER,LOWER TABLE ADDRES 4>CLN:UN: DATA CRQ:UN:,CTQ:UN:,0,0,LTCM:UN:,514,0,0 NI WS > DATA 0,0,0,0,0,0,0,0 2CLI:UN: DATA 0,0,0,0,LTCM:UN:,0,0,0 I WORKSPA2CE DATA 0,0,0,0,0,0,0,0  DATA 0 ABORT FLAG& CRQ:UN: DATA 0,0 RECEIVE QUEUE && CTQ:UN: DATA 0,0 TRANSMIT QUEUE&" DATA 0  LAST MESSAGE ADDRESS" CRB>70,0 ABORT CRB & CRB>05,CTCB:UN:IO REQUEST CRB&$CTCB:UN: TCB0,0 TRANSMIT TCB$&CTBF:UN: BSS30TRANSMIT BUFFER &$CRCB:UN: TCB0,0 RECEIVE TCB $. DATA 0,0,0,0,0,0,0,0  PROTOCOL COUNTERS .2 DATA 0,0,0,0,0,0,0,0  MORE PROTOCOL COUNTERS2  DATA 0,0,0 AND STILL MORE 0 DATA BTH:UN:,0,0  BID THRESHOLD,CTR,ERRORS 00 DATA NTH:UN:,0,0  NAK THRESHOLD,CTR,ERRORS 04 DATA NK1:UN:,0,0 XMT NAK THRESHOLD,CTR,ERRORS 40 DATA ETH:UN:,0,0  ENQ THRESHOLD,CTR,ERRORS 04 DATA EQ1:UN:,0,0 XMT ENQ THRESHOLD,CTR,ERRORS 4" DATA 0  SYNC INSERTION VALUE" DATA 0,0 SPARE,IDLE E RRORS  2 DATA DTH:UN:,0,0  DATA THRESHOLD,CTR,ERRORS 2 BSS20RCVD TERMINAL ID( BSS10 RECEIVED RESPONSE MESSAGE (  DATA ITO:UN: IDLE TIMEOUT  DATA BTO:UN: BID TIMEOUT   DATA DTO:UN: DATA TIMEOUT  DATA ATO:UN: ACK TIMEOUT  & DATA 0 TERMINAL ID ENABLE FLAG && BSS20 CONSTRUCTED TERMINAL ID &" DATA 0 TERMINAL ID END WORD" $END  LC3780   PAGE "  LIST "  ASMIF DEFINE#=04* 3780 LINE CONTROL DISCIPLINE TABLE DEFINITION 4  DORG 0 ! LST  EQU$ START OF LST $ NIBUSY DATA >FFFF NI BUSY FLAG$$NIQUE DATA 0,0 NI ENTRY QUEUE$$NIVCTR DATA NIR0GNNI WORKSPACE$$ DATA L3780R GNNI ENTRY ADDRESS$2SOFTLY DATA 0 GNSOFTWARE LEVEL QUEUE ADDRESS 2,TBLTYP BYTE >23  J2TABLE TYPE (LCT #2) , E0@ * J2 >22=3780, >23=2780  ,DEVFCN BYTE >0A  GNFUNCTIONS SUPPORTED ,(IVCTR DATA IR0  GN I WORKSPACE PTR($ DATA L3780C GN I ENTRY ADDRESS$2NHLTAD DATA 0 GNNEXT HIGHER LEVEL TABLE ADDR 22NLLTAD DATA 0 GNNEXT LOWER LEVEL TABLE ADDR 2* '* NI WORKSPACE!*NIR0 EQU$  START OF NI WORKSPACE *6 RQADDR DATA RQ3780 R0  ADDRESS OF RECEIVE QUEUE 68 TQADDR DATA TQ3780 R1  ADDRESS OF TRANSMIT QUEUE 8*USRCRB DATA 0  R2 USER CRB, IF ANY*.RCVST DATA 0  R3 04FLAGS EOT TO BE SENT.*NITAB DATA LST  R4 GNTABLE ADDRESS *.RBUFSZ DATA 0  R5  RECEIVE BUFFER SIZE . DATA 0  R6 TEMP DATA 0  R7 TEMP* DATA 0  R8  CONTAINS CRB ON ENTRY * DATA 0  R9 TEMP DATA 0  R10TEMP$ DATA 0  R11 SUBROUTINE LINKAGE$ AND TEMP  DATA 0  R12 DATA 0  R13CALLING WP DATA 0  R14PC DATA 0  R15ST* ' * COMPLETION WORKSPACE0IR0  EQU$ START O INTERRUPT WORKSPACE 08CRCVST DATA 0  R0 CURRENT RECEIVE STATE TRN ADDR 88LINEST DATA 0  R1 LINE STATE (-RCV,OIDLE,+XMIT) 8.XMTST DATA 0  R2  XMIT STATE (-ENDPND).4ENQFLG DATA 0  R3 02ENQ STATE (0 IF NONE SENT) 4*ITAB DATA LST  R4 GNTABLE ADDRESS *0ACKNO DATA 0  R5  CURRENT ACK INDICATOR 0 DATA 0  R6 TEMP DATA 0  R7 TEMP* DATA 0  R8  CONTAINS CRB ON ENTRY * DATA 0  R9 TEMP DATA 0  R10TEMP0 DATA 0  R11SUBROUTINE LINKAGE AND TEMP 0 DATA 0  R12 DATA 0  R13CALLING WP DATA 0  R14PC DATA 0  R15ST@* ' *MISCELLANEOUS TABLE VALUES  *ABORTF DATA 0  ABORT IN PROGRESS FLAG*$RQ3780 DATA 0,0 RECEIVE QUEUE $$TQ3780 DATA 0,0 TRANSMIT QUEUE$8LSTMSG DATA 0 LAST TRANSMITTED MESSAGE CTR ADDRESS8* '* INTERNAL CRBS :ABTCRB CRB>60,0 14INTERNAL CRB FOR ABORT REQUESTS :0ABTOWN EQUABTCRB+CCSTBA 14CRB OWNER CELL08LCDMAP EQUABTCRB+CCSMAP  D6CRB DSR MAP FILE CELL 8* '8INCRB CRB>03,INTCBXINTERNAL CRB FOR IO REQUESTS 82ERCODE EQUINCRB+CCERCD CRB COMPLETION CODE 20SYSTF EQUINCRB+CCSYSF SYSTEM FLAGS BYTE 02TCBLNK EQUINCRB+CCTCBL POINTER TO FIRST TCB28TCBMAP EQUINCRB+CCTCBM MAPFILE ADDR OF FIRST TCB 8* ' * INTERNAL TRANSMIT TCB 0INTCBX TCBINTCBR,0 INTERNAL TRANSMIT TCB 0"INTCBL EQUINTCBX+TCLNKA TRAN" SMIT CRB LINK ADDRESS 0TRNBUF BSSTMSGLN TRANSMIT MESSAGE LENGTH 0FBUFOFF EQU TRNBUF-INTCBX-TCACTLXMIT BUFFER OFFSET FROM INT TCBXF* ' * INTERNAL RECEIVE TCB*INTCBR TCB0,0  INTERNAL RECEIVE TCB*6RRECLN EQUINTCBR+TCOFFS  RECEIVE RECORD LENGTH 68RCHARC EQUINTCBR+TCACTL  RECEIVE CHARACTER COUNT 80RTIMOC EQUINTCBR+TCTIM0 RECEIVE TIMEOUT 0* '* ERROR COUNTERS .ERRCNT EQU$  AASTART OF ERROR COUNTERS .&BIDXMT DATA 0  AABIDS TRANSMITTED&$BIDRCV DATA 0 AABIDS RECEIVED $.BACXMT DATA 0  AABID ACCEPTS TRANSMITTED .*BACRCV DATA 0  AABID ACCEPTS RECEIVED*&TTDXMT DATA 0  AATTDS TRANSMITTED&$TTDRCV DATA 0 AATTDS RECEIVED $$NAKXMT DATA 0 NAKS TRANSMITTED$"NAKRCV DATA 0 NAKS RECEIVED "WAKXMT DATA 0 AAWACKS XMITTED $WAKRCV DATA 0 AAWACKS RECEIVED$$ENQXMT DATA 0 ENQS TRANSMITTED$"ENQRCV DATA 0 ENQS RECEIVED "&ACKXMT DATA 0  AAACKS TRANSMITTED&$ACKRCV DATA 0 AAACKS RECEIVED $&EOTXMT DATA 0  AAEOTS TRANSMITTED&$EOTRCV DATA 0 AAEOTS RECEIVED $$RVIRCV DATA 0 AARVIS RECEIVED $6CRPRCV DATA 0 AACONVERSATIONAL REPLIES RECEIVED 6&BOVRCV DATA 0  AABIDS OVERRIDDEN &8ERRCNC EQU$-ERRCNTAALENGTH OF ERROR COUNTER AREA 8* ' * FLAGS AND COUNTERS0BTH378 DATA 0 BABID THRESHOLD (0=INFINITE) 0&BIDCTR DATA 0  ACTUAL BID COUNTER&4BIDERR DATA 0 02NUMBER OF BID THRESHOLD ERRORS 40NTH378 DATA 0 BANAK THRESHOLD (0=INFINITE) 0&NAKCTR DATA 0  ACTUAL NAK COUNTER&4NAKERR DATA 0 02NUMBER OF NAK THRESHOLD ERRORS 4NK1378 DATA 0 15 XMT NAK THRESHOLD$NK1CTR DATA 0 15 XMT NAK CNTR $4NK1ERR DATA 0 15 NBR XMT NAK THRESHOLD ERRORS. 44ETHRCV DATA 0 BARCVENQ THRESHOLD (0=INFINITE) 4,ENQRCT DATA 0  02ACTUAL RCV ENQ COUNTER,8ENQRER DATA 0 02NUMBER OF RCV ENQ THRESHOLD ERRORS8(ETHXMT DATA 0  15 XMT ENQ THRESHOLD($ENQXCT DATA 0 15 XMT ENQ CNTR $4ENQXER DATA 0 15 NBR XMT ENQ THRESHOLD ERRORS 4(SYNINS DATA 0  SYNC INSERTION VALUE( DATA 0 D7SPARE 6IDLERR DATA 0 AANUMBER OF IDLE THRESHOLD ERRORS 6*DTH378 DATA 0  15 RCV DATA THRESHOLD *$DTHCTR DATA 0 15 RCV DATA CNTR$4DTHERR DATA 0 15 NBR RCV DATA THRESHOLD ERRORS 4,RCVID BSSIDLEN  16 RCVD TERMINAL ID.,4STSCNT EQU$-ERRCNT AALENGTH OF STATUS MESSAGE 44INRBUF BSSRESPLN18RECEIVED RESPONSE MESSAGE 4* '* TIMEOUT VALUES  DEF BTM378,DTM378,ATM378$ IDLTIM DATA >5100 D6IDLE TIMER$. BTM378 DATA >0500  BABID RESPONSE TIMEOUT.. DTM378 DATA >0C00  BARECEIVE DATA TIMEOUT.* ATM378 DATA >0D00  BARESPONSE TIMEOUT** '(* TRANSMIT TERMINAL ID INFORMATION. (.IDFLG DATA 0  16 TERMINAL ID ENABLE FLAG .0XMITID BSSIDLEN+2  16 TERMINAL ID TO XMIT0* 'LSTLEN EQU$ !  ASMEND !  RORG "  PAGE " E 6IDLERR DATA 0 AANUMBER OF IDLE THRESHOLD ERRORS 6*DTH378 DATA 0  15 RCV DATA THRESHOLD *$DTHCTR DATA 0 15 RCV DATA CNTR$4DTHERR DATA 0 15 NBR RCV DATA THRESHOLD ERRORS 4,RCVID BSSIDLEN  16 RCVD TERMINAL ID.,4STSCNT EQU$-ERRCNT AALENGTH OF STATUS MESSAGE 44INRBUF BSSRESPLN18RECEIVED RESPONSE MESSAGE 4@P************************************************************ PP* PP* TITLE: SC3780 PP* PP* ABSTRACT: DPOS 3780/2780 SYSTEM CONFIGURATION MACRO. PP* THIS MACRO GENERATES A CONFIGURATION TABLE FOR PP* ONE 3780 COMMUNICATIONS LINK. A COUNTER IS PP* MAINTAINED THAT SPECIFIES THE NUMBER OF DATA PP* BUFFERS TO ALLOCATE. PP* P******************>****************************************** >P* DPOS SYSTEM CONFIGURATION TABLE FOR 3780/2780 PP* EMULATION PP* PP* SC3780 $MACRO UN,UC,UB,UA,UD,BT,ET,EX,NT,NX,IT,DR PP* UN = UNIT NUMBER (00-99) PP* UC = CRU ADDRESS OF COMMUNICATIONS INTERFACE CARD (HEX) PP* UB = BID TIMEOUT (IN SECONDS, 3=PRIMARY, 1=SECONDARY) PP* UA = ACK TIMEOUT (IN SECONDS) PP* UD = DATA TIMEOUT (IN SECONDS) P$* BT = BID RETRY THRESHOLD (DECIMAL $,COUNT) ,P* ET = ENQ RCV RETRY THRESHOLD (DECIMAL COUNT) PP* EX = ENQ XMT RETRY THRESHOLD (DECIMAL COUNT) PP* NT = NAK RCV RETRY THRESHOLD (DECIMAL COUNT) PP* NX = NAK XMT RETRY THRESHOLD (DECIMAL COUNT) PP* IT = IDLE LINE TIMEOUT (IN SECONDS) PP* DR = DATA RCV THRESHOLD (DECIMAL COUNT) PP* PP UNL PPSC3780 $MACRO UN,UC,UB,UA,UD,BT,ET,EX,NT,NX,IT,DR P6 $VAR X,Z,P,C 6 P $VAR B,A,D,BR,ER,NR,I,EQ,NK,DT PP************************************************************ PP* DEFAULT VALUES ARE SPECIFIED FOR MACRO PARAMETERS PP* PP $ASG 1 TO B.V DEFAULT BID TIMEOUT (SECONDS) PP $ASG 3 TO A.V DEFAULT ACK TIMEOUT (SECONDS) PP $ASG 0 TO D.V DEFAULT DATA TIMEOUT (INFINITE) PP $ASG 15 TO BR.V BID RETRY THRESHOLD (DECIMAL) PP $ASG 15 TO ER.V ENQ RCV RETRY THRESHOLD (DECIMAL) PH $ASG 15 TO EQ.V ENQ XMT RETRY THRESHOLD (DECIMAL) H P $ASG 0 TO NR.V NAK RCV RETRY THRESHOLD (DECIMAL) PP $ASG 0 TO NK.V NAK XMT RETRY THRESHOLD (DECIMAL) PP $ASG 20 TO I.V IDLE LINE TIMEOUT (IN SECONDS) PP $ASG 3 TO DT.V DATA RCV THRESHOLD (DECIMAL) PP************************************************************ PP $ASG '*' TO X.S PP $ASG 'BF' TO Z.S PP $ASG Z.SV+2 TO Z.SV PP* PP DEF UCRU:UN: PUCRU:UJN: EQU >:UC: COMM DEVICE CRU ADDRESS JP* PP* THE FOLLOWING ARE USER SPECIFIED TIMEOUT VALUES. EACH IS PP* SPECIFIED IN SECONDS (60 OR LESS) OR INFINITE (INDICATED PP* BY ZERO). THESE TIMEOUTS ARE USED FOR TIMING OUT BID PP* RESPONSE (UBIDTO), DELAY FOR DATA RECEPTION (UDATTO), PP* ACK RESPONSE (UACKTO), AND IDLE TIMEOUT (UIDLTO) PP************************************************************ PP $IF UB.A&$PCALL PP $ASG UB.V TO B.V P:X: :UB: SECOND BID8 TIMEOUT 8P $ELSE PP:X: :B.V: SECOND BID TIMEOUT PP $ENDIF PP $IF B.V PP $ASG B.V*4+1*>100+2 TO B.V PP $ELSE PP $ASG 2 TO B.V PP $ENDIF PPBTO:UN: EQU :B.V: TIMER VALUE FOR LC3780 P********************************************&****************** &P $IF UA.A&$PCALL PP $ASG UA.V TO A.V PP:X: :UA: SECOND ACK TIMEOUT PP $ELSE PP:X: :A.V: SECOND ACK TIMEOUT PP $ENDIF PP $IF A.V PP $ASG A.V*4+1*>100+2 TO A.V PP $ELSE P< $ASG 2 TO A.V < P $ENDIF PPATO:UN: EQU :A.V: TIMER VALUE FOR LC3780 PP************************************************************ PP $IF UD.A&$PCALL PP $ASG UD.V TO D.V PP:X: :UD: SECOND DATA TIMEOUT PP $ELSE PP:X: :D.V: SECOND DATA TIMEOUT PP $ENDIF PN $IF D.V N P $ASG D.V*4+1*>100+2 TO D.V PP $ELSE PP $ASG 2 TO D.V PP $ENDIF PPDTO:UN: EQU :D.V: TIMER VALUE FOR LC3780 PP************************************************************ PP $IF IT.A&$PCALL PP $ASG IT.V TO I.V PP:X: :IT: SECOND DATA TIMEOUT PP $ELSE P :X: :I. DV: SECOND DATA TIMEOUT DP $ENDIF PP $IF I.V PP $ASG I.V*4+1*>100+2 TO I.V PP $ELSE PP $ASG 2 TO I.V PP $ENDIF PPITO:UN: EQU :I.V: TIMER VALUE FOR LC3780 PP************************************************************ PP:X: P:X: THE FOLLOWING ARE USER SPE2CIFIED THRESHOLDS FOR THE 2P:X: NUMBER OF RETRIES ON BIDS,ENQS,NAKS,AND IDLE LINE:P: PP:X: THEY ARE SPECIFIED BY THE USER IN A COUNT OF 1-64218 PP:X: FOR A NON-INFINITE THRESHOLD AND 0 FOR AN INFINITE PP:X: THRESHOLD:P: PP:X: PP $IF BT.A&$PCALL PPBTH:UN: EQU :BT: BID RETRY THRESHOLD PP $ELSE PPBTH:UN: EQU :BR.V: BID RETRY THRESHOLD P0 $ENDIF 0 P $IF ET.A&$PCALL PPETH:UN: EQU :ET: ENQ RCV RETRY THRESHOLD PP $ELSE PPETH:UN: EQU :ER.V: ENQ RCV RETRY THRESHOLD PP $ENDIF PP $IF EX.A&$PCALL PPEQ1:UN: EQU :EX: ENQ XMT RETRY THRESHOLD PP $ELSE PPEQ1:UN: EQU :EQ.V: ENQ XMT RETRY THRESHOLD PB $ENDIF B P $IF NT.A&$PCALL PPNTH:UN: EQU :NT: NAK RCV RETRY THRESHOLD PP $ELSE PPNTH:UN: EQU :NR.V: NAK RCV RETRY THRESHOLD (INFINITE) PP $ENDIF PP $IF NX.A&$PCALL PPNK1:UN: EQU :NX: NAK XMT RETRY THRESHOLD PP $ELSE PPNK1:UN: EQU :NK.V: NAK XMT RETRY THRESHOLD (INFINITE) PP $ENDIF P T@P $IF DR.A&$PCALL PPDTH:UN: EQU :DR: DATA RCV THRESHOLD PP $ELSE PPDTH:UN: EQU :DT.V: DATA RCV THRESHOLD PP $ENDIF PP* PP* LST FOR THIS UNIT PP* PP REF SLVLBQ,PSCM:UN: PP LC3780 :UN:,PSCM:UN:,CIST:UN:,SLVLBQ P* > >P* PP PP LIST PP $END SC3780 PP UNL P PP* LST FOR THIS UNIT PP* PP REF SLVLBQ,PSCM:UN: PP LC3780 :UN:,PSCM:UN:,CIST:UN:,SLVLBQ P* D ****************************************************************DD* THIS MODULE PLACES ALL COMM MACROS NEEDED BY DX 3780/2780 *D2* GENERATION ON THE DX COMM MACRO LIBRARY  *2B* ($CDAT.S$SYSGEN.MACROS.COMM). THESE MACROS ARE USED BY  *B** THE DSR CONFIG MODULE (CFDSR). ** *  * @* THE FOLLOWING SYNONYMS MUST BE ASSIGNED ACCORDINGLY:  *@ *  $CDAT - SYSTEM DISK * (*  $COBJ - COMMON DX DSR PARTS *(D ****************************************************************D& LIBOUT $CDAT.S$SYSGEN.MACROS.COMM&.DEFINE EQU0  INDICATE NO DORG ASSEMBLY . COPY $COBJ.D3780.C.SC3780 COPY $COBJ.D3780.C.LC3780 END#B MAP INTO THIS TCB (XMT) @ LDD*R7 18FOR BOTH: MOV@INTCBL(R4),*R6 AND ALSO THE LINK SAVED THERE :  MOVR12,  LCF VCATALOG TASK2780`P C: گ TASK3780`P C: گ@ NOSYMT% LIBRARY $$DSC$.S$SYSLIB $LIBRARY  $CDAT.SCI990.S$OBJECT $FORMATIMAGE,REPLACE,4 PROCP2780 INCLUDE OBJ.CCPAT12INCLUDE OBJ.CCMGR  ;TASK MANAGER/SCHEDULER 20INCLUDE OBJ.CCMSG  ;MESSAGES & CONSTANTS 0,INCLUDE OBJ.CCSBW  ;BLWP SUBROUTINES,4INCLUDE OBJ.CCSRQ  ;SEND REQUEST PROCESSING 40INCLUDE OBJ.TSKBID ;BID TASK PROCESSING 04INCLUDE OBJ.DNLCON ;LINE CONNECT/DISCONNECT 4.INCLUDE OBJ.DNOPIF ;OPERATOR INTERFACE.:INCLUDE OBJ.DNOPIS ;OPERATOR INTERFACE SUBROUTINES:4INCLUDE OBJ.DXRCVQ ;RECEIVE QUEUE PROCESSING 46INCLUDE OBJ.DXSB ;GENERAL PURPOSE SUBROUTINES 64INCLUDE OBJ.CI2780 ;COMMAND REPONSE ANALYSIS 4*INCLUDE OBJ.EM2780 ;2780 EMULATOR *TASKEM2780INCLUDE OBJ.DBASE  ;TASK LEVEL DATABASE ,INCLUDE OBJ.XTBL ;TRANSLATION TABLES,@INCLUDE OBJ.DXCF2  ;TASK CONFIGURATION (USER MODIFIABLE)@LOAD&PHASE 1,OI27804INCLUDE OBJ.DNINIT ;EMULATOR INITIALIZATION 4PHASE 1,OE2780INCLUDE OBJ.CCPAT22INCLUDE OBJ.DNEND  ;END ACTION PROCESSING 2PHASE 1,OB27802INCLUDE OBJ.TASKBD ;BID COMMAND PROCESSOR 2PHASE 1,OS2780@INCLUDE OBJ.DXSTAT ;STATISTICS REQUEST PROCESSOR (ROOT) @PHASE 2,O22780<INCLUDE OBJ.ST2780 ;CUR STATISTICS REQUEST PROCESSOR<PHASE 2,O32780INCLUDE OBJ.CCPAT3<INCLUDE OBJ.DXSTCT ;CTSTATISTICS REQUEST PROCESSOR<PHASE 2,O42780INCLUDE OBJ.CCPAT4>INCLUDE OBJ.DXSTQ  ;ALLQ STATISTICS REQUEST PROCESSOR >PHASE 2,O52780@INCLUDE OBJ.CCPAT5<INCLUDE OBJ.DXSTID ;ID STATISTICS REQUEST PROCESSOR <PHASE 1,OQ2780INCLUDE OBJ.CCPAT6<INCLUDE OBJ.DXSRCV ;SEND/RECEIVE COMMAND PROCESSING <PHASE 1,OF2780INCLUDE OBJ.CCPAT74INCLUDE OBJ.DXCFIL ;CF/LF COMMAND PROCESSING 4INCLUDE OBJ.DXFOPNPHASE 1,OP2780INCLUDE OBJ.CCPAT86INCLUDE OBJ.OP2780 ;OPTIONS PROMPT PROCESSING 6PHASE 1,OW2780INCLUDE OBJ.CCPAT94INCLUDE OBJ.DXWAIT ;WAIT COMMAND PROCESSING 4PHASE 1,OC2780INCLUDE OBJ.CCPATA@INCLUDE OBJ.DXLCO  ;CONNECT/DISCONECT COMMAND PROCESSING@PHASE 1,OA2780INCLUDE OBJ.CCPATB4INCLUDE OBJ.DXABT  ;ABORT COMMAND PROCESSING 4PHASE 1,ON2780INCLUDE OBJ.CCPATCINCLUDE OBJ.$DXIFC  ;IF COMMAND PROCESSING $END &ID STATISTICS REQUEST PROCESSOR <PHASE 1,OQ2780INCLUDE OBJ.CCPAT6<INCLUDE OBJ.DXSRCV ;SEND/RECEIVE COMMAND PROCESSING <PHASE 1,OF2780INCLUDE OBJ.CCPAT74INCLUDE OBJ.DXCFIL ;CF/LF COMMAND PROCESSING 4INCLUDE OBJ.DXFOPNPHASE 1,OP2780INCLUDE OBJ.CCPAT86INCLUDE OBJ.OP2780 ;OPTIONS PROMPT PROCESSING 6PHASE 1,OW2780INCLUDE OBJ.CCPAT94INCLUDE OBJ.DXWAIT ;WAIT COMMAND PROCESSING 4PHASE 1,OC2780INCLUDE OBJ.CCPATA@INCLUDE OBJ.DXLCO  ;CONNECT/DISCONECT COMMAND PROCESSING@PHASE 1,OA2780INCLUDE OBJ.CCPATB4INCLUDE OBJ.DXABT  ;ABORT COMMAND PROCESSING 4PHASE 1,ON2780INCLUDE OBJ.CCPATCINCLUDE OBJ.@ NOSYMT% LIBRARY $$DSC$.S$SYSLIB $LIBRARY  $CDAT.SCI990.S$OBJECT $FORMATIMAGE,REPLACE,4 PROCP3780 INCLUDE OBJ.CCPAT12INCLUDE OBJ.CCMGR  ;TASK MANAGER/SCHEDULER 20INCLUDE OBJ.CCMSG  ;MESSAGES & CONSTANTS 0,INCLUDE OBJ.CCSBW  ;BLWP SUBROUTINES,4INCLUDE OBJ.CCSRQ  ;SEND REQUEST PROCESSING 40INCLUDE OBJ.TSKBID ;BID TASK PROCESSING 04INCLUDE OBJ.DNLCON ;LINE CONNECT/DISCONNECT 4.INCLUDE OBJ.DNOPIF ;OPERATOR INTERFACE.:INCLUDE OBJ.DNOPIS ;OPERATOR INTERFACE SUBROUTINES:4INCLUDE OBJ.DXRCVQ ;RECEIVE QUEUE PROCESSING 46INCLUDE OBJ.DXSB ;GENERAL PURPOSE SUBROUTINES 64INCLUDE OBJ.CI3780 ;COMMAND REPONSE ANALYSIS 4*INCLUDE OBJ.EM3780 ;3780 EMULATOR *TASKEM3780INCLUDE OBJ.DBASE  ;TASK LEVEL DATABASE ,INCLUDE OBJ.XTBL ;TRANSLATION TABLES,@INCLUDE OBJ.DXCF3  ;TASK CONFIGURATION (USER MODIFIABLE)@LOAD&PHASE 1,OI37804INCLUDE OBJ.DNINIT ;EMULATOR INITIALIZATION 4PHASE 1,OE3780INCLUDE OBJ.CCPAT22INCLUDE OBJ.DNEND  ;END ACTION PROCESSING 2PHASE 1,OB37802INCLUDE OBJ.TASKBD ;BID COMMAND PROCESSOR 2PHASE 1,OS3780@INCLUDE OBJ.DXSTAT ;STATISTICS REQUEST PROCESSOR (ROOT) @PHASE 2,O23780<INCLUDE OBJ.ST3780 ;CUR STATISTICS REQUEST PROCESSOR<PHASE 2,O33780INCLUDE OBJ.CCPAT3<INCLUDE OBJ.DXSTCT ;CTSTATISTICS REQUEST PROCESSOR<PHASE 2,O43780INCLUDE OBJ.CCPAT4>INCLUDE OBJ.DXSTQ  ;ALLQ STATISTICS REQUEST PROCESSOR >PHASE 2,O53780@INCLUDE OBJ.CCPAT5<INCLUDE OBJ.DXSTID ;ID STATISTICS REQUEST PROCESSOR <PHASE 1,OQ3780INCLUDE OBJ.CCPAT6<INCLUDE OBJ.DXSRCV ;SEND/RECEIVE COMMAND PROCESSING <PHASE 1,OF3780INCLUDE OBJ.CCPAT74INCLUDE OBJ.DXCFIL ;CF/LF COMMAND PROCESSING 4INCLUDE OBJ.DXFOPNPHASE 1,OP3780INCLUDE OBJ.CCPAT86INCLUDE OBJ.OP3780 ;OPTIONS PROMPT PROCESSING 6PHASE 1,OW3780INCLUDE OBJ.CCPAT94INCLUDE OBJ.DXWAIT ;WAIT COMMAND PROCESSING 4PHASE 1,OC3780INCLUDE OBJ.CCPATA@INCLUDE OBJ.DXLCO  ;CONNECT/DISCONECT COMMAND PROCESSING@PHASE 1,OA3780INCLUDE OBJ.CCPATB4INCLUDE OBJ.DXABT  ;ABORT COMMAND PROCESSING 4PHASE 1,ON3780INCLUDE OBJ.CCPATCINCLUDE OBJ.$DXIFC  ;IF COMMAND PROCESSING $END &ID STATISTICS REQUEST PROCESSOR <PHASE 1,OQ3780INCLUDE OBJ.CCPAT6<INCLUDE OBJ.DXSRCV ;SEND/RECEIVE COMMAND PROCESSING <PHASE 1,OF3780INCLUDE OBJ.CCPAT74INCLUDE OBJ.DXCFIL ;CF/LF COMMAND PROCESSING 4INCLUDE OBJ.DXFOPNPHASE 1,OP3780INCLUDE OBJ.CCPAT86INCLUDE OBJ.OP3780 ;OPTIONS PROMPT PROCESSING 6PHASE 1,OW3780INCLUDE OBJ.CCPAT94INCLUDE OBJ.DXWAIT ;WAIT COMMAND PROCESSING 4PHASE 1,OC3780INCLUDE OBJ.CCPATA@INCLUDE OBJ.DXLCO  ;CONNECT/DISCONECT COMMAND PROCESSING@PHASE 1,OA3780INCLUDE OBJ.CCPATB4INCLUDE OBJ.DXABT  ;ABORT COMMAND PROCESSING 4PHASE 1,ON3780INCLUDE OBJ.CCPATCINCLUDE OBJ.BATCH VCATALOGDSDD `P*l گHDISK `P*~ گDXPI3780`P4ħگDXTI3780`P j[6ħwگDXTI2780`P ^[6ħpگDXTSKINS`P RIħfگDXPI2780`Pv4ħگB D3780 DSR `P I7B گ@@************************************************************ @* '* TITLE:DXDSR378* '>* ABSTRACT: THIS BATCH STREAM IS EXECUTED TO CONFIGURE THE >6* DX 3780/2780 EMULATOR DSR PRIOR TO LINKING THE 62* DX SYSTEM.THIS BATCH STREAM INSTALLS THE 2:* EMULATOR DSR COMM MACROS AND LINKS THE DSR. IT IS :<* ASSUMED THAT THE BUILD COMM DSR (BCD) PROCEDURE HAS <4* COMPLETED AND THAT THE DSR LINK CONTROL FILE 4*  HAS BEEN CREATED. * '>* SYNONYMS: THIS BATCH STREAM USES THE FOLLOWING SYNONYMS. >2* ALTERNATE SYNONYM VALUES MAY BE ASSIGNED. 2* ' * SYNONYM DEFAULT  USE * '6* $COBJ  DXCOMOBJ.DXCMO EMULATOR OBJECT INPUT 6,* $CLST  @$COBJ  LISTING DIRECTORY ,2* $CDAT  DS01  SYSTEM SYSGEN PARTS VOLUME2* $CSNAM NONE SYSTEM NAME @************************************************************ @BATCH LS=YES !@***** SYNONYMS ******************************************* @.SYN $E$C="0" .IF  @$COBJ,EQ,$COBJ"AS S=$COBJ,V=@DXCOMOBJ.DXCMO" .ENDIF% .IF  @$CLST,EQ,$CLSTAS S=$CLST,V=@$COBJ  .ENDIF% .IF  @$CDAT,EQ,$CDATAS S=$CDAT,V=@DS01 .ENDIF% Q$SYN % 4***** INSTALL COMM MACROS ON SYSGEN PARTS DISK 4.XMA  SA=@$COBJ.D3780.C.MAC3780,OA=DUMY, . LA=@$COBJ.D3780.MAC3780EC' ***** DSR PARTIAL LINKS4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.DMAP3780, 4 WRITE-DELETE PROTECT?=NO, DELETE PROTECT?=NO FXLE  CN=@$COBJ.D3780.L.DSR,LOAN=@$CDAT.S$SYSGEN.@$CSNAM.DSR3780,F LIST=@$CDAT.S$SYSGEN.@$CSNAM.DMAP3780EC'4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.DMAP3780, 4  WRITE-DELETE PROTECT?=YES,   DELETE PROTECT?=YESEC'@************************************************************ @<CM R=ME,M="@$E$C ERRORS REPORTED IN @$CLST.BL.DSR3780" <LS' EBATCH% CLSTAS S=$CLST,V=@$COBJ  .ENDIF% .IF  @$CDAT,EQ,$CDATAS S=$CDAT,V=@DS01 .ENDIF% Q$SYN % 4***** INSTALL COMM MACROS ON SYSGEN PARTS DISK 4.XMA  SA=@$COBJ.D3780.C.MAC3780,OA=DUMY, . LA=@$COBJ.D3780.MAC3780EC' ***** DSR PARTIAL LINKS4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.DMAP3780, 4 WRITE-DELETE PROTECT?=NO, DELETE PROTECT?=NO FXLE  CN=@$COBJ.D3780.L.DSR,LOAN=@$CDAT.S$SYSGEN.@$CSNAM.DSR3780,F LIST=@$CDAT.S$SYSGEN.@$CS@@************************************************************ @* '* TITLE:DXTSKINS* '<* ABSTRACT: THIS BATCH STREAM PERFORMS ALL FUNCTIONS OF <6* INSTALLING THE DX10 3780/2780 EMULATOR TASK BY 62* EXECUTING THE BATCH STREAMS TO PERFORM THE 2&* VARIOUS PARTIAL INSTALLATIONS.&* ' * REVISION: V.4.0 02/10/81  * '* '>* SYNONYMS: THE FOLLOWING SYNONYMS ARE USED IN THIS BATCH >0* STREAM. ALTERNATE SYNONYM VALUES MAY BE0* ASSIGNED. * ' *  SYNONYMDEFAULT VALUE  * '*  $C378NULL*  $C278NULL*  $COBJ DXCOMOBJ *  $CLST $COBJ*  $$DSC$ DS01@************************************************************ @BATCH LS=YES !.SYN $$BCC="0"!.IF  @$$DSC$,EQ,"$ $DSC$" AS S=$$DSC$,V=DS01 .ENDIF% .IF  @$COBJ,EQ,"$COBJ"AS S=$COBJ,V=@DXCOMOBJ .ENDIF% .IF  @$CLST,EQ,"$CLST"AS S=$CLST,V=@@$COBJ .ENDIF% CFDIR P=@$CLST.BATLST,M=10  Q$SYN % @ ***** INSTALL 3780 TASK********************************** @.IF  @$C378,EQ,"YES"&***** LINK AND INSTALL 3780 TASK &:XB I=@$COBJ.BATCH.DXTI3780,L=@$CLST.BATLST.DXTI3780 : .EVAL $$BCC="@$$BCC+@$$BC"  "***** INSTALL 3780 SCI PROCS ":XB I=@$COBJ.BATCH.DXPI3780,L=@$CLST.BATLST.DXPI3780 : .EVAL $$BCC="@$$BCC+@$$BC"  $***** INSTALL 3780 TASK PATCHES$:XPS  L=@$CLST.MAP.TASK3780,I=@$COBJ.PATCH.DXTP3780, :" O=@$COBJ.BATCH.TP3780,E=DUMY "* '8XB I=@$COBJ.BATCH.TP3780,L=@$CLST.BATLST.DXTP3780 8.EVAL $$BCC="@$$BCC+@$$BC"  Q$SYN % .ENDIF% @ ***** INSTALL 2780 TASK********************************** @.IF  @$C278,EQ,"YES"&***** LINK AND INSTALL 2780 TASK &:XB I=@$COBJ.BATCH.DXTI2780,L=@$CLST.BATLST.DXTI2780 : .EVAL $$BCC="@$$BCC+@$$BC"  "***** INSTALL 2780 SCI PROCS ":XB I=@$COBJ.BATCH.DXPI2780,L=@$CLST.BATLST.DXPI2780 : .EVAL $$BCC="@$$BCC+@$$BC"  $***** INSTALL 2780 TASK PATCHES$:XPS  L=@$CLST.MAP.TASK2780,I=@$COBJ.PATCH.DXTP2780, :" O=@$COBJ.BATCH.TP2780,E=DUMY "* '8XB I=@$COBJ.BATCH.TP2780,L=@$CLST.BATLST.DXTP2780 8 .EVAL $$BCC="@$$BCC+@$$BC"  Q$SYN % .ENDIF% @ ***** REPORT ERRORS************************************** @BCM R=ME,M="@$$BCC ERRORS REPORTED IN @$CLST.BATLST.DXTSKINS"BEBATCH LS=YES !TED IN @$CLST.BATLST.DXTSKINS"BEBATCH LS=YES !* '* TI P "  !PP!"()"H *#$#&PPV.H +F($ $"%(PP)%H ,FH -D &&.* &PP '&' &z(()T)PP *K' *G &&D.HPP .K &  ^ H /3R$TERM #  # PPX# # 1H 0H 1HPP 2H 3H 4&F.3SVC$ #1P(T@@************************************************************ @* '* TITLE:DXTI2780* ':* ABSTRACT: THIS BATCH STREAM PRODUCES AND INSTALLS A : *  DX10/2780 EMULATOR TASK. * ' * REVISION: V4.0.002/10/81 (2* NOTE: SEE "DX10 2780/2780 EMULATOR OBJECT 24* INSTALLATION" (2250918-9701, 1 OCTOBER 1981) 48* SECTION 3.2 FOR FURTHER INFORMATION ON EXECUTION 8*  OF THIS BATCH STREAM. * '>* SYNONYMS: THE FOLLOWING SYNONYMS ARE USED IN THIS BATCH >0* STREAM. ALTERNATE SYNONYM VALUES MAY BE0* ASSIGNED. * ' *  SYNONYMDEFAULT VALUE  * '*  $COBJ DXCOMOBJ *  $CLST $COBJ*  $$DSC$ DS01* '@************************************************************ @BATCH LS=YES !.SYN $E$C="0" .IF  @$COBJ,EQ,"$COBJ"AS S=$COBJ,V=@DXCOMOBJ .ENDIF% .IF  @$CLST,EQ,"$CLST"AS S=$CLST,V=@@$COBJ .ENDIF% .IF  @$$DSC$,EQ,"$$DSC$"AS S=$$DSC$,V=@DS01  .ENDIF% AS S=COPY,V=@@$COBJ.TSKCPY AS S=OBJ, V=@@$COBJ.TSKOBJ .***** ASSEMBLE TASK CONFIGURATION MODULE . CFDIR P=@$CLST.TSKLST,M=10  0XMA  SA=@$COBJ.TSKSRC.DXCF2,OA=@OBJ.DXCF2,0  LA=@$CLST.TSKLST.DXCF2,OP=X EC'.SYN COPY=""!.***** SET TRANSLATION TABLES AS OVERLAYS . CFPRO P=@$$DSC$.S$COMMPF, MAX NUMBER OF TASKS=80," MAX NUMBER OF PROCEDURES=80, "  MAX NUMBER OF OVERLAYS=255  &DO PROG=@$$DSC$.S$COMMPF,OVER=TUSA&&DO PROG=@$$DSC$.S$COMMPF,OVER=TUK &&DO PROG=@$$DSC$.S$COMMPF,OVER=TJAP&DO PRO G=@$$DSC$.S$COMMPF,OVER=TFR  &DO PROG=@$$DSC$.S$COMMPF,OVER=TDNK&&DO PROG=@$$DSC$.S$COMMPF,OVER=TDDR&&DO PROG=@$$DSC$.S$COMMPF,OVER=TSWD&@IO P=@$$DSC$.S$COMMPF,OVERNAME=TUSA,OVERID=>F0,OBJ=@OBJ.TUSA @EC'>IO P=@$$DSC$.S$COMMPF,OVERNAME=TUK,OVERID=>F1,OBJ=@OBJ.TUK >EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TJAP,OVERID=>F2,OBJ=@OBJ.TJAP @EC'>IO P=@$$DSC$.S$COMMPF,OVERNAME=TFR,OVERID=>F3,OBJ=@OBJ.TFR >EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TDNK,OVERID=>F4,OBJ=@OBJ.TDNK @EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TDDR,OVERID=>F9,OBJ=@OBJ.TDDR @EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TSWD,OVERID=>FA,OBJ=@OBJ.TSWD @EC'6***** LINK, INSTALL, & MAKE PRIVELEGED 2780 TASK 6 CFDIR P=@$CLST.MAP,M=50&MFP  PATHNM=@$CLST.MAP.TASK2780,& WRITE-DELETE PROTEC T?=NO,  DELETE PROTECT?=NO 6XLE  C=@$COBJ.LCF.TASK2780,LO=@$$DSC$.S$COMMPF, 6 LA=@$CLST.MAP.TASK2780 EC'&MFP  PATHNM=@$CLST.MAP.TASK2780,&  WRITE-DELETE PROTECT?=YES,   DELETE PROTECT?=YESEC'FMTE  PROG=@$$DSC$.S$COMMPF,MN=EM2780,PRIV=Y,DEL=N,EXEC=N,OVER=N FEC' Q$SYN % @************************************************************ @BCM R=ME,M="@$E$C ERRORS REPORTED IN @$CLST.BATLST.DXTI2780" BLS'.SYN COPY="",OBJ=""  .STOP CODE=@$E$C .S$COMMPF,OVERNAME=TDDR,OVERID=>F9,OBJ=@OBJ.TDDR @EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TSWD,OVERID=>FA,OBJ=@OBJ.TSWD @EC'6***** LINK, INSTALL, & MAKE PRIVELEGED 2780 TASK 6 CFDIR P=@$CLST.MAP,M=50&MFP  PATHNM=@$CLST.MAP.TASK2780,& WRITE-DELETE PROTEC@************************************************************ @* '* TITLE:DXTI3780* ':* ABSTRACT: THIS BATCH STREAM PRODUCES AND INSTALLS A : *  DX10/3780 EMULATOR TASK. * ' * REVISION: V4.0.002/10/81 * '2* NOTE: SEE "DX10 3780/2780 EMULATOR OBJECT 24* INSTALLATION" (2250918-9701, 1 OCTOBER 1981) 48* SECTION 3.2 FOR FURTHER INFORMATION ON EXECUTION 8*  OF THIS BATCH STREAM. * '>* SYNONYMS: THE FOLLOWING SYNONYMS ARE USED IN THIS BATCH >0* STREAM. ALTERNATE SYNONYM VALUES MAY BE0* ASSIGNED. * ' *  SYNONYMDEFAULT VALUE  * '*  $COBJ DXCOMOBJ *  $CLST $COBJ*  $$DSC$ DS01* '@************************************************************ @BATCH LS=YES !@.SYN $E$C="0" .IF  @$COBJ,EQ,"$COBJ"AS S=$COBJ,V=@DXCOMOBJ .ENDIF% .IF  @$CLST,EQ,"$CLST"AS S=$CLST,V=@@$COBJ .ENDIF% .IF  @$$DSC$,EQ,"$$DSC$"AS S=$$DSC$,V=@DS01  .ENDIF% AS S=COPY,V=@@$COBJ.TSKCPY AS S=OBJ, V=@@$COBJ.TSKOBJ .***** ASSEMBLE TASK CONFIGURATION MODULE . CFDIR P=@$CLST.TSKLST,M=10  0XMA  SA=@$COBJ.TSKSRC.DXCF3,OA=@OBJ.DXCF3,0  LA=@$CLST.TSKLST.DXCF3,OP=X EC'.SYN COPY=""!.***** SET TRANSLATION TABLES AS OVERLAYS . CFPRO P=@$$DSC$.S$COMMPF, MAX NUMBER OF TASKS=80," MAX NUMBER OF PROCEDURES=80, "  MAX NUMBER OF OVERLAYS=255  &DO PROG=@$$DSC$.S$COMMPF,OVER=TUSA&&DO PROG=@$$DSC$.S$COMMPF,OVER=TUK &&DO PROG=@$$DSC$.S$COMMPF,OVER=TJAP&DO PRO G=@$$DSC$.S$COMMPF,OVER=TFR  &DO PROG=@$$DSC$.S$COMMPF,OVER=TDNK&&DO PROG=@$$DSC$.S$COMMPF,OVER=TDDR&&DO PROG=@$$DSC$.S$COMMPF,OVER=TSWD&@IO P=@$$DSC$.S$COMMPF,OVERNAME=TUSA,OVERID=>F0,OBJ=@OBJ.TUSA @EC'>IO P=@$$DSC$.S$COMMPF,OVERNAME=TUK,OVERID=>F1,OBJ=@OBJ.TUK >EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TJAP,OVERID=>F2,OBJ=@OBJ.TJAP @EC'>IO P=@$$DSC$.S$COMMPF,OVERNAME=TFR,OVERID=>F3,OBJ=@OBJ.TFR >EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TDNK,OVERID=>F4,OBJ=@OBJ.TDNK @EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TDDR,OVERID=>F9,OBJ=@OBJ.TDDR @EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TSWD,OVERID=>FA,OBJ=@OBJ.TSWD @EC'6***** LINK, INSTALL, & MAKE PRIVELEGED 3780 TASK 6 CFDIR P=@$CLST.MAP,M=50&MFP  PATHNM=@$CLST.MAP.TASK3780,& WRITE-DELETE PROTEC T?=NO,  DELETE PROTECT?=NO 6XLE  C=@$COBJ.LCF.TASK3780,LO=@$$DSC$.S$COMMPF, 6 LA=@$CLST.MAP.TASK3780 EC'&MFP  PATHNM=@$CLST.MAP.TASK3780,&  WRITE-DELETE PROTECT?=YES,   DELETE PROTECT?=YESEC'FMTE  PROG=@$$DSC$.S$COMMPF,MN=EM3780,PRIV=Y,DEL=N,EXEC=N,OVER=N FEC' Q$SYN % @************************************************************ @BCM R=ME,M="@$E$C ERRORS REPORTED IN @$CLST.BATLST.DXTI3780" BLS'.SYN COPY="",OBJ=""  .STOP CODE=@$E$C .S$COMMPF,OVERNAME=TDDR,OVERID=>F9,OBJ=@OBJ.TDDR @EC'@IO P=@$$DSC$.S$COMMPF,OVERNAME=TSWD,OVERID=>FA,OBJ=@OBJ.TSWD @EC'6***** LINK, INSTALL, & MAKE PRIVELEGED 3780 TASK 6 CFDIR P=@$CLST.MAP,M=50&MFP  PATHNM=@$CLST.MAP.TASK3780,& WRITE-DELETE PROTEC@@************************************************************ @* '* TITLE DXPI2780* '8* ABSTRACTTHE "DXPI2780" BATCH STREAM INSTALLS THE80* X2780, DPF AND EPF PROC FILES IN .S$PROC0* PROC DIRECTORY* ' * REVISION: V4.0(02/10/81) * '<* SYNONYMS: THE FOLLOWING SYNONYM IS USED IN THIS BATCH <2* STREAM. AN ALTERNATE SYNONYM VALUE MAY BE 2* ASSIGNED. * '* SYNONYM = $$DSC$*  DEFAULT VALUE = DS016* USE = SYSTEM VOLUME NAME ON WHICH PROCS ARE TO 6* BE INSTALLED. * '@* 7/20/81 ADD INSTALLATION OF .LP.L6C10 & .LP.L6C16 (EPF) @8* SYNONYMS: $COBJ MUST BE THE OBJECT INSTALLATION 8*  DISK OR VOLUME NAME.* '@************************************************************ @BATCH   LS=YES ! .SYN $E$C="0" .IF  @$$DSC$,EQ,"$$DSC$"AS S=$$DSC$,V=@DS01  .ENDIF% Q$SYN %  .USE @$$DSC$.S$PROC ****** INSTALL X2780 SCI COMMAND PROC * .PROC % "X2780(EXECUTE 2780 EMULATOR), "$COMMAND ACCESS NAME=*STRING(ME),$ LOG ACCESS NAME=*STRING(ME),  JOURNAL ACCESS NAME=*ACNM,"COMM DEVICE NAME=ACNM(@$CM$DV)"$.SYN $CM$DV="@&COMM DEVICE NAME"$(AGL ACNM=.S$COMMPF,PF=YES,DISPLAY=NO(D.IF "@&COMMAND ACCESS NAME",EQ,"@ME" ! I/O AT BIDDING STATION? D".BID TASK=EM2780,LUNO="@$$LU","8PARMS=("@&COMMAND ACCESS NAME","@&LOG ACCESS NAME", 8,"@&JOURNAL ACCESS NAME",@$CM$DV),CODE=2 , .ELSE % @.IF "@&LOG ACCESS NAME",EQ,"@ME" ! I/O AT BIDDING STATION? @".BID TASK=EM2780,LUNO="@$$LU","PARMS=("@&COMMAND ACCESS NAM E","@&LOG ACCESS NAME", ,"@&JOURNAL ACCESS NAME",@$CM$DV),CODE=2 , .ELSE % D.IF "@&JOURNAL ACCESS NAME",EQ,"@ME" ! I/O AT BIDDING STATION? D".BID TASK=EM2780,LUNO="@$$LU","8PARMS=("@&COMMAND ACCESS NAME","@&LOG ACCESS NAME", 8,"@&JOURNAL ACCESS NAME",@$CM$DV),CODE=2 , .ELSE % $.QBID TASK=EM2780,LUNO="@$$LU", $8PARMS=("@&COMMAND ACCESS NAME","@&LOG ACCESS NAME", 8,"@&JOURNAL ACCESS NAME",@$CM$DV),CODE=2 , .ENDIF% .ENDIF% .ENDIF% RGL L="@$$LU" !.EOP&.USE&EC' .USE @$$DSC$.S$PROC (******INSTALL DPF SCI COMMAND PROC( .PROC % (DPF (DELETE EMULATOR PRINT FILES)=2,( BASE PATHNAME=ACNM(.PRINT),   STARTING OFFSET=INT(00), ENDING OFFSET=INT(99) ".EVAL $OFF$="&STARTING OFFSET"" .SYN $BAS$="@&BASE PATHNAME" .LOOP %  .IF "@$OFF$",LT,10".SYN $JLH$="@@$BAS$^0@@$OFF$" " .ELSE % .SYN $JLH$="@@$BAS$^@@$OFF$" .ENDIF% ..OVLY OVLY=>1B,LUNO=0,PARMS=(8,"@@$JLH$") . .IF "@$$CC",NE,"00000" .EVAL $OFF$="&ENDING OFFSET" .ENDIF%  .EVAL $OFF$ =@$OFF$+1 (.WHILE "@$OFF$",LE,"&ENDING OFFSET" ( .REPEAT $ $.SYN $JLH$="",$OFF$="",$BAS$="" $.EOP&.USE&EC' .USE @$$DSC$.S$PROC (******INSTALL EPF SCI COMMAND PROC( .PROC % &EPF (PRINT EMULATOR PRINT FILES), &"OUTPUT DEVICE NAME=ACNM(LP01)," BASE PATHNAME=ACNM(.PRINT),   STARTING OFFSET=INT(00), ENDING OFFSET=INT(99), DELETE=YESNO(NO),  COMPRESSED=YESNO(NO),  ANSI FORMAT=YESNO(NO)  .SYN $PF$D="&OUTPUT DEVICE"  .EVAL $OFF$="&STARTING OFFSET" .SYN $BAS$="@&BASE PATHNAME"  .IF "&COMPRESSED",NE,"NO" >.OVLY OVLY=>24,CODE=0,PARMS=(".LP.L6C16","@@$PF$D",N,N,"") > .ENDIF% .LOOP %  .IF "@$OFF$",LT,10".SYN $JLH$="@@$BAS$^0@@$OFF$" " .ELSE % .SYN $JLH$="@@$BAS$^@@$OFF$" .ENDIF% J#.OVLY OVLY=>24,CODE=0,PARMS=("@@$JLH$","@@$PF$D","&ANSI","&DELETE","")J .EVAL $OFF$ =@$OFF$+1 (.WHILE "@$OFF$",LE,"&ENDING OFFSET" ( .REPEAT $  .IF "&COMPRESSED",NE,"NO" >OVLY OVLY=>24,CODE=0,PARMS=(".LP.L6C10","@@$PF$D",N,N,"") > .ENDIF% ,.SYN $BAS$="",$JLH$="",$OFF$="",$BAN$="", .SYN $SOS$ = ".S$FTLF@$$ST" .IF @$$MO, EQ, 0 .SYN $SOS$ = ".S$BTLF@$$ST" .ENDIF% .IF @$$MO, EQ, 1 .SYN $SOS$ = "@ME" .ENDIF% $.OVLY OVLY=>24,CODE=4,PARMS=("@@$P$F$D","",@$SOS$) .SYN$SOS$ = "" .EOP&.USE&EC'@******COPY PRINT CONTROL FILES FOR EPF ****************** @ CFDIR P=@$$DSC$.LP,M=17:CC IN="@$COBJ.TSKCPY.L6C10",OUT="@$$DSC$.LP.L6C10", : REPLACE?=YES EC':CC IN="@$COBJ.TSKCPY.L6C16",OUT="@$$DSC$.LP.L6C16", : REPLACE?=YES EC'@************************************************************ @ Q$SYN % BCM R=ME,M="@$E$C ERRORS REPORTED IN @$CLST.BATLST.DXPI2780" BLS' .STOP CODE=@$E$C @$PF$D",N,N,"") > .ENDIF% ,.SYN $BAS$="",$JLH$="",$OFF$="",$BAN$="", .SYN $SOS$ = ".S$FTLF@$$ST" .IF @$$MO, EQ, 0 .SYN $SOS$ = ".S$BTLF@$$ST" .ENDIF% .IF @$$MO, EQ, 1 .SYN $SOS$ = "@ME" .ENDIF% $.OVLY OVLY=>24,CODE=4,PARMS=("@@$P$@@************************************************************ @* '* TITLE DXPI3780* '8* ABSTRACTTHE "DXPI3780" BATCH STREAM INSTALLS THE80* X3780, DPF AND EPF PROCS IN THE .S$PROC 0* PROC DIRECTORY. * ' * REVISION: V4.0 (02/10/81)  * '<* SYNONYMS: THE FOLLOWING SYNONYM IS USED IN THIS BATCH <2* STREAM. AN ALTERNATE SYNONYM VALUE MAY BE 2* ASSIGNED. * '* SYNONYM = $$DSC$*  DEFAULT VALUE = DS016* USE = SYSTEM VOLUME NAME ON WHICH PROCS ARE TO 6* BE INSTALLED. * '@* 7/20/81 ADD INSTALLATION OF .LP.L6C10 & .LP.L6C16 (EPF) @8* SYNONYMS: $COBJ MUST BE THE OBJECT INSTALLATION 8*  DISK OR VOLUME NAME.* '@************************************************************ @BATCH LS=YES !.SYN $E$C="0" .IF  @$$DSC$,EQ,"$$DSC$"AS S=$$DSC$,V=@DS01  .ENDIF% Q$SYN %  .USE @$$DSC$.S$PROC ****** INSTALL X3780 SCI COMMAND PROC * .PROC % "X3780(EXECUTE 3780 EMULATOR), "$COMMAND ACCESS NAME=*STRING(ME),$ LOG ACCESS NAME=*STRING(ME),  JOURNAL ACCESS NAME=*ACNM,"COMM DEVICE NAME=ACNM(@$CM$DV)"$.SYN $CM$DV="@&COMM DEVICE NAME"$(AGL ACNM=.S$COMMPF,PF=YES,DISPLAY=NO(D.IF "@&COMMAND ACCESS NAME",EQ,"@ME" ! I/O AT BIDDING STATION? D".BID TASK=EM3780,LUNO="@$$LU","8PARMS=("@&COMMAND ACCESS NAME","@&LOG ACCESS NAME", 8,"@&JOURNAL ACCESS NAME",@$CM$DV),CODE=2 , .ELSE % @.IF "@&LOG ACCESS NAME",EQ,"@ME" ! I/O AT BIDDING STATION? @".BID TASK=EM3780,LUNO="@$$LU"," PARMS=("@&COMMAND ACCESS N AME","@&LOG ACCESS NAME", ,"@&JOURNAL ACCESS NAME",@$CM$DV),CODE=2 , .ELSE % D.IF "@&JOURNAL ACCESS NAME",EQ,"@ME" ! I/O AT BIDDING STATION? D".BID TASK=EM3780,LUNO="@$$LU","8PARMS=("@&COMMAND ACCESS NAME","@&LOG ACCESS NAME", 8,"@&JOURNAL ACCESS NAME",@$CM$DV),CODE=2 , .ELSE % :.QBID TASK=EM3780,LUNO="@$$LU",  ! BID IN BACKGROUND:8PARMS=("@&COMMAND ACCESS NAME","@&LOG ACCESS NAME", 8,"@&JOURNAL ACCESS NAME",@$CM$DV),CODE=2 , .ENDIF% .ENDIF% .ENDIF% RGL L="@$$LU" !.EOP&.USE&EC' .USE @$$DSC$.S$PROC &***** INSTALL DPF SCI COMMAND PROC& .PROC % (DPF (DELETE EMULATOR PRINT FILES)=2,( BASE PATHNAME=ACNM(.PRINT),   STARTING OFFSET=INT(00), ENDING OFFSET=INT(99) ".EVAL $OFF$="&STARTING OFFSET""$@ .SYN $BAS$="@&BASE PATHNAME" .LOOP %  .IF "@$OFF$",LT,10".SYN $JLH$="@@$BAS$^0@@$OFF$" " .ELSE % .SYN $JLH$="@@$BAS$^@@$OFF$" .ENDIF% ..OVLY OVLY=>1B,LUNO=0,PARMS=(8,"@@$JLH$") . .IF "@$$CC",NE,"00000" .EVAL $OFF$="&ENDING OFFSET" .ENDIF%  .EVAL $OFF$ =@$OFF$+1 (.WHILE "@$OFF$",LE,"&ENDING OFFSET" ( .REPEAT $ $.SYN $JLH$="",$OFF$="",$BAS$="" $.EOP&.USE&EC' .USE @$$DSC$.S$PROC &***** INSTALL EPF SCI COMMAND PROC& .PROC % &EPF (PRINT EMULATOR PRINT FILES), &"OUTPUT DEVICE NAME=ACNM(LP01)," BASE PATHNAME=ACNM(.PRINT),   STARTING OFFSET=INT(00), ENDING OFFSET=INT(99), DELETE=YESNO(NO),  COMPRESSED= YESNO(NO), ANSI FORMAT=YESNO(NO)  .SYN $PF$D="&OUTPUT DEVICE"  ".EVAL $OFF$="&STARTING OFFSET"" .SYN $BAS$="@&BASE PATHNAME" .IF "&COMPRESSED", NE, "NO"  >.OVLY OVLY=>24,CODE=0,PARMS=(".LP.L6C16","@@$PF$D",N,N,"") > .ENDIF% .LOOP %  .IF "@$OFF$",LT,10".SYN $JLH$="@@$BAS$^0@@$OFF$" " .ELSE % .SYN $JLH$="@@$BAS$^@@$OFF$" .ENDIF% J#.OVLY OVLY=>24,CODE=0,PARMS=("@@$JLH$","@@$PF$D","&ANSI","&DELETE","")J .EVAL $OFF$ =@$OFF$+1 (.WHILE "@$OFF$",LE,"&ENDING OFFSET" ( .REPEAT $  .IF "&COMPRESSED",NE,"NO" >.OVLY OVLY=>24,CODE=0,PARMS=(".LP.L6C10","@@$PF$D",N,N,"") > .ENDIF% $.SYN $BAS$="",$JLH$="",$OFF$="" $ .SYN $SOS$=".S$FTLF@$$ST" .IF @$$MO, EQ, 0  .SYN $SOS$=".S$BTLF@$$ST"  .ENDIF% .IF @$$MO, EQ, 1  .SYN $SOS$ = "@ME" .ENDIF% ".OVLY OVLY=>24,CODE=4,PARMS=("@@" $PF$D","",@$SOS$) .SYN $SOS$="" !.EOP&.USE&EC'@******COPY PRINT CONTROL FILES FOR EPF ****************** @ CFDIR P=@$$DSC$.LP,M=17:CC IN="@$COBJ.TSKCPY.L6C10",OUT="@$$DSC$.LP.L6C10", : REPLACE?=YES EC':CC IN="@$COBJ.TSKCPY.L6C16",OUT="@$$DSC$.LP.L6C16", : REPLACE?=YES EC'@************************************************************ @ Q$SYN % BCM R=ME,M="@$E$C ERRORS REPORTED IN @$CLST.BATLST.DXPI3780" BLS' .STOP CODE=@$E$C RMS=(".LP.L6C10","@@$PF$D",N,N,"") > .ENDIF% $.SYN $BAS$="",$JLH$="",$OFF$="" $ .SYN $SOS$=".S$FTLF@$$ST" .IF @$$MO, EQ, 0  .SYN $SOS$=".S$BTLF@$$ST"  .ENDIF% .IF @$$MO, EQ, 1  .SYN $SOS$ = "@ME" .ENDIF% ".OVLY OVLY=>24,CODE=4,PARMS=("@@"@************************************************************ @* '* TITLE:DSDD * '<* ABSTRACT: THIS BATCH STREAM IS USED TO PERFORM THE IDS <2* AND INV NECESSARY TO FORMAT DSDD MEDIA FOR 2$* THE COMMUNICATIONS PACKAGES.$.* DSDD MEDIA IS ALWAYS FORMATTED WITH A .** DEFAULT PHYSICAL RECORD SIZE: 288 ** '*  SYNONYM VALUE USE.*  DSKNM NONE  VOLUME NAME TO ASSIGN ..*  DRIVE NONE  UNIT NAME FOR IDS/INV .2*  MAXENT 30 NUMBER OF VCATALOG ENTRIES 2@************************************************************ @BATCH LS=YES !.SYN $E$C="0" .IF  @DSKNM,EQ,"DSKNM",CMR=ME, M="SYNONYM DSKNM NOT ASSIGNED", EBATCH% .ENDIF%  .IF @DRIVE,EQ,"DRIVE" ,CMR=ME, M="SYNONYM DRIVE NOT ASSIGNED", EBATCH% .ENDIF%  .IF @MAXENT, EQ, "MAXENT" ASS=MAXENT, V=30 .ENDIF%  IDS UNIT NAME="@DRIVE",  INITIALIZE NEW VOLUME=YES,   VOLUME NAME="@DSKNM",* NUMBER OF VCATALOG ENTRIES="@MAXENT",*& DEFAULT PHYSICAL RECORD SIZE=288,& HARDWARE INTERLEAVING=1,  USED AS SYSTEM DISK?=NOEC'F!***************************************************************** F$.SYN DSKNM="",DRIVE="",MAXENT=""$,CM R=ME, M="@DSKNM FORMATTING COMPLETE" ,>CM R=ME, M=" @$E$C ERROR(S) REPORTED IN DSDD BATCH STREAM" >EBATCH LS=YES !******** @BATCH LS=YES !.SYN $E$C="0" .IF  @DSKNM,EQ,"DSKNM",CMR=ME, M="SYNONYM DSKNM NOT ASSIGNED", EBATCH% .ENDIF%  .IF @DRIVE,EQ,"DRIVE" ,CMR=ME, M="SYNONYM DRIVE NOT ASSIGNED",@@************************************************************ @* '* TITLE:HDISK * '<* ABSTRACT: THIS BATCH STREAM IS USED TO PERFORM THE IDS <8* AND INV NECESSARY TO FORMAT HARD DISK MEDIA FOR 8$* THE COMMUNICATIONS PACKAGES.$2* HARD DISK MEDIA IS ALWAYS FORMATTED WITH A 2** DEFAULT PHYSICAL RECORD SIZE: 256 ** '*  SYNONYM VALUE USE.*  DSKNM NONE  VOLUME NAME TO ASSIGN ..*  DRIVE NONE  UNIT NAME FOR IDS/INV .2*  MAXENT 30 NUMBER OF VCATALOG ENTRIES 2@************************************************************ @BATCH LS=YES !.SYN $E$C="0" .IF  @DSKNM,EQ,"DSKNM",CMR=ME, M="SYNONYM DSKNM NOT ASSIGNED", EBATCH% .ENDIF%  .IF @DRIVE,EQ,"DRIVE"  CM R=ME, M="SYNONYM DRIVE NOT  ASSIGNED" EBATCH% .ENDIF%  .IF @MAXENT, EQ, "MAXENT" ASS=MAXENT, V=30 .ENDIF%  IDS UNIT NAME="@DRIVE",  INITIALIZE NEW VOLUME=YES,   VOLUME NAME="@DSKNM",* NUMBER OF VCATALOG ENTRIES="@MAXENT",*& DEFAULT PHYSICAL RECORD SIZE=256,& HADWARE INTERLEAVING=1, USED AS SYSTEM DISK?=NOEC'F!***************************************************************** F$.SYN DSKNM="",DRIVE="",MAXENT=""$,CM R=ME, M="@DSKNM FORMATTING COMPLETE" ,@CM R=ME, M=" @$E$C ERROR(S) REPORTED IN HDISK BATCH STREAM" @EBATCH LS=YES !** @BATCH LS=YES !.SYN $E$C="0" .IF  @DSKNM,EQ,"DSKNM",CMR=ME, M="SYNONYM DSKNM NOT ASSIGNED", EBATCH% .ENDIF%  .IF @DRIVE,EQ,"DRIVE"  CM R=ME, M="SYNONYM DRIVE NOT  S$PROC VCATALOGCOMTASKE`PX8EگCOMTASKB`P-8EگCOMTASKG`P8گ T$SYN `P lگ PT3780 `P3Pگ COMTSKA1`Pfگ C$SYN `P "fگ COMTASKD`P8,گCOMTASK `P'hfگCOMTASKF`P8qگCOMTASKA`PTfگBET `PC^گCOMTSKB1`P1 fگCOMTASKC`P 8گ,COMTASKE (DEFINE 2780 TASK PARAMETERS), , END OF MEDIA ON?=*YESNO(NO), (2780 MAX BLOCK SIZE(BYTES)=INT(400),( RECORDS PER BLOCK=INT(7)(( .IF "&END",GE,"Y"  .SYN E$M="1"  .ELSE %  .SYN E$M="0"  .ENDIF% (&.SYN C$2780="@$COBJ.TSKCPY.CF2780"&((.DATA @C$2780,EXT=NO,REP=YES,SUB=YES(UCPEX EQU@E$M BLMAX EQU"&2780" DEFRPB EQU"&RECORDS"K0000 EVEN " DSRFLG DATA >2300 IDMAX DATA 20!IDSIZE EQU21!.EOD&( .SYN C$2780="",E$M="" (@0COMTASKB(DEFINE 3780/2780 TASK PARAMETERS), 0 RPN ON?=*YESNO(NO),  RPN CODE=STRING('$$$$'), VFC ON?=*YESNO(NO),  SRQ ON?=*YESNO(NO),  SRQ CODE=STRING('$$$S') ( .IF "&RPN ON",GE,"Y".SYN R$PN="1" ! .ELSE % .SYN R$PN="0" ! .ENDIF% * ' .IF "&VFC",GE,"Y" .SYN V$FC="1" ! .ELSE % .SYN V$FC="0" ! .ENDIF% * ' .IF "&SRQ",GE,"Y" .SYN S$RQ="1" ! .ELSE % .SYN S$RQ="0" ! .ENDIF% * '&.SYNT$TBL="@$COBJ.TSKCPY.CFCOM" &* ' .DATA @T$TBL,E=Y,S=Y,R=YUDPNS EQU@R$PN URTRQ EQU@S$RQ E0000 EVEN " RTRDEF BYTE RTRFL USTR TEXT "&SRQ CODE" RTRFL EQU$-USTRG0000 EVEN " PNDEF BYTE PNDEFLUSPN TEXT "&RPN CODE" PNDEFL EQU$-USPNDEFVFC EQU@V$FC .EOD&(*.SYN S$RPN="",S$SRQ="",S$RQ="",R$PN=""* .SYN V$FC="",T$TBL="" (N=NO)(NO),$$SRQ ON?=ELEMENT(Y=YES,N=NO)(NO),$ SRQ CODE=STRING('$$$S') ( .IF "&RPN ON",GE,"Y".SYN R$PN="1" ! .ELSE % .SYN R$PN="0" ! .ENDIF% * ' .IF "&VFC",GE,"Y" .SYN V$FC="1" ! .ELSE % .SYN V$FC="0" ! .ENDIF% * ' .IF "&SRQ",GE,"Y" .SYN S$RQ="1" ! .ELSE % .SYN S$RQ="0" ! .ENDIF% * '&.SYNT$TBL="@$COBJ.TSKCPY.CFCOM" &* ' .DATA @T$TBL,E=Y,S=Y,R=YUDPNS EQU@R$PN URTRQ EQU@S$RQ E0000 EVEN " RTRDEF BYTE RTRFL USTR TEXT "&SRQ CODE" RTRFL EQU$-USTRG0000 EVEN " PNDEF BYTE PNDEFLUS6.PROC COMTASKG(DEFINE 3780/2780 TASK PARAMETERS), 68 TERMINAL ID SEQUENCE=STRING("00000000000000000000") 8( .SYN T$ERM="&TERMINAL"$.SYN T$TBL="@$COBJ.TSKCPY.CFCOM"$(".DATA @T$TBL,REP=Y,EXT=Y,SUB=Y"R0000 EVEN "IDFLAG EQU$ ! TERMID BYTE M0000-XMTID  XMTID TEXT '@T$ERM'M0000 BYTE 0 ! S0000 RORG XMTID+21T0000 BYTE 0 !L0000 EVEN " START COPY COPY.CFCOPY .EOD&( .SYN T$ERM="",T$TBL=""(.EOP& T$SYN % ..SYN $$DSCD="",$$DSC$="",$CLST="",$COBJ="".,.SYN $C378="",$C278="",$CVN="",$CDAT="" ,(.SYN $C78="",$COK="",T$Y="",P$END=""(..SYN P$EN="",P$ACNM="",PU$ACN="",T$TBL="" .,.SYN D$ISCO="",D$RMTE="",R$PN="",V$FC="",,.SYN S$RQ="",S$SRQ="",S$RPN="",T$BID="" ,*.SYN $OPR="",T$BL="",S$TBD="",S$DLR=""*4.SYN C$E="",C$3780="",E$M="",C$2780="",T$TERM=""40COMTSKA1(DEFINE 3780/2780 TASK PARAMETERS), 0&CALL CONNECT TIMEOUT(MIN)=INT(0), & CALL RETRY COUNT=INT(3), CALL RETRY TIME(MIN)=INT(3), &INTERDIGIT TIMEOUT(100MS)=INT(10),&&DIAL TONE TIMEOUT(100MS)=INT(10), & PND TIMEOUT(100MS)=INT(0) (& .SYN T$TBL="@$COBJ.TSKCPY.CFCOM" & .DATA @T$TBL,E=Y,S=Y,R=YUCONTO EQU&CALL D0000 EVEN "$UARC DATA "&CALL RETRY COUNT" $(UARI EQU "&CALL RETRY TIME(MIN)" (&ACDIGT DATA "&INTERDIGIT TIMEOUT" &$ACDIAL DATA "&DIAL TONE TIMEOUT"$ ACFRST DATA "&PND TIMEOUT".EOD&(.SYN T$TBL="" ! C$SYN % 2.SYN C$RU="",C$HCT="",I$NTR="",R$EC="",B$UN=""22.SYN $XX="",$CTCHN="",$BCC="",C$TBL="",C$NT=""20.SYN P$RT00="",P$RT01="",P$RT02="",P$RT03=""00.SYN D$VC00="",D$VC01="",D$VC02="",D$VC03=""02.SYN $NH00="",$NH01="",$NH02="",$NH03="",$U=""20.SYN $ACU00="",$ACU01="",$ACU02="",$ACU03=""00.SYN B$FR00="",B$FR01="",B$FR02="",B$FR03=""00.SYN PRDF00="",PRDF01="",PRDF02="",PRDF03=""04.SYN $$DSCD="",$COBJ="",$NBD="",$DSR="",$CVN="" 4,.SYN $COK="",$CDAT="",$LNK="",$CSNAM="" ,@4PT3780 (PATCH 3780/2780 COMMUNICATIONS TASKS)=2,4$TARGET VOLUME = ACNM("@$$DSC$"),$0"EMULATOR OBJECT PATHNAME"=(ACNM)("@$CVN"), 0 3780 TASK?=YESNO(YES), 2780 TASK?=YESNO(NO), (LISTING DIRECTORY NAME=ACNM(@$CLST) ((B.SYN $CVN="&EMULATOR",$$DSC$="&TARGET",$CPGF=@$$DSC$.S$COMMPF B$.SYN $E$C="0",$$BC="0",$CER="0" $ .SYN $CLST="&LISTING" $.SYN $C378="&3780",$C278="&2780"$.SYN $COBJ=@$CVN (( .IF &3780, GE, "Y"(" XPS LINK=@$CLST.MAP.TASK3780,"" INPUT=@$COBJ.PATCH.DXTP3780, "  OUTPUT=@$COBJ.BATCH.TP3780  ( .IF @$XPS$E, NE, 0 :MSG TEXT="PATCH SYNONYM ERROR IN @$COBJ.BATCH.TP3780" :*.SYN $CER="",$E$C="",$$BC="",$CPGF="" * .EXIT   .ENDIF " (6 XB I=@$COBJ.BATCH.TP3780,L=@$CLST.BATLST.DXTP3780 6 .&OVLY OVLY=>23,CODE=10,PARMS=("NO")& .ENDIF% ( .IF &2780, GE, "Y"(" XPS LINK=@$CLST.MAP.TASK2780,"" INPUT=@$COBJ.PATCH.DXTP2780, "  OUTPUT=@$COBJ.BATCH.TP2780  ( .IF @$XPS$E, NE, 0 :MSG TEXT="PATCH SYNONYM ERROR IN @$COBJ.BATCH.TP2780" :*.SYN $CER="",$E$C="",$$BC="",$CPGF="" * .EXIT   .ENDIF " (6 XB I=@$COBJ.BATCH.TP2780,L=@$CLST.BATLST.DXTP2780 6( .OVLY OVLY=>23,CODE=10,PARMS=("NO")( .ENDIF% ((<.SYN $CER="",$E$C="",$$BC="",$CICS="",$COBJ="",$CPGF="" < .SYN $C278="",$C378=""*MSG TEXT="COMM TASK PATCHING COMPLETE"*MSG TEXT="PATCH SYNONYM ERROR IN @$COBJ.BATCH.TP3780" :*.SYN $CER="",$E$C="",$$BC="",$CPGF="" * .EXIT   .ENDIF " (6 XB I=@$COBJ.BATCH.TP3780,L=@$CLST.BATLST.DXTP3780 6 .@.COMTASK(DEFINE 3780/2780 TASK PARAMETERS),.$PRINTER ACCESS NAME=ACNM(LP$1), $"PUNCH ACCESS NAME=ACNM(DUMY), ""NUMBER OF USER FLAGS=INT(16), "&PENDING REC/SEND REQUESTS=INT(8), & TY ON?=*YESNO(NO) ((.IF "&TY",GE,"Y" .SYN T$Y="1"" .ELSE % .SYN T$Y="0"" .ENDIF% (.SYNP$END="&PENDING"(.EVAL P$EN="@P$END/2+@P$END+@P$END" (.SYNP$END=""!.SYN P$ACNM="&PRINTER" .SYNPU$ACN="&PUNCH" ($.SYN T$TBL="@$COBJ.TSKCPY.CFCOM"$( .DATA @T$TBL,E=N,S=Y,R=YA0000 EVEN " PRDEF BYTE PRDEFL UPRDEF TEXT '@P$ACNM' PRDEFL EQU$-UPRDEFB0000 EVEN " PUDEF BYTE PUDEFL UPUDEF TEXT '@PU$ACN' PUDEFL EQU$-UPUDEFUFLGNO EQU"&NUMBER" QUEMAX EQU@P$EN UXPAR  EQU@T$Y .EOD&((4.SYN P$ACNM="",PU$ACN="",T$Y="",P$EN="",T$TBL=""4CESS NAME=ACNM(DUMY), ""NUMBER OF USER FLAGS=INT(16), "&PENDING REC/SEND REQUESTS=INT(8), & TY ON?=*YESNO(NO) ((.IF "&TY",GE,"Y" .SYN T$Y="1"" .ELSE % .SYN T$Y="0"" .ENDIF% (.SYNP$END="&PENDING"(.EVAL P$EN="@P$END/2+@P$END+@P$END" (.SYNP$END=""!.SYN P$ACNM="&PRINTER" .SYNPU$ACN="&PUNCH" ($.SYN T$TBL="@$COBJ.TSKCPY.CFCOM"$( .DATA @T$TBL,E=N,S=Y,R=YA0000 EVEN " PRDEF BYTE PRDEFL UPRDEF TEXT '@P$ACNM' PRDEFL EQU$-UPRDEFB0000 EVEN " PUDEF BYTE PUDEFL UPUDEF TEXT '@PU$ACN' PUDEFL EQU$-UPUDEFUFLGNO EQU"&NUMBER" QUEMAX EQU@P$EN UXPAR 0COMTASKF(DEFINE 3780/2780 TASK PARAMETERS), 0*ENABLE TERMINAL ID OPTION?=*YESNO(NO) *( .IF "&ENABLE",GE,"Y"  COMTASKG   .ELSE$ & .SYN T$TBL="@$COBJ.TSKCPY.CFCOM" &($ .DATA @T$TBL,REP=Y,EXT=Y,SUB=Y $ R0000EVEN IDFLAG EQU $ TERMID BYTE >FF XMTIDBYTE 0( S0000TEXT '00000000000000000000' ( M0000BYTE 0 L0000EVEN STARTCOPY COPY.CFCOPY  .EOD " .ENDIF$ (.SYN T$TBL="" !(0COMTASKA(DEFINE 3780/2780 TASK PARAMETERS), 0$DISCONNECT ON ERROR?=*YESNO(NO),$"DISCONNECT REMOTE?=*YESNO(NO) "((  .IF "&DISCONNECT ON",GE,"Y" .SYN D$ISCO="1"   .ELSE# .SYN D$ISCO="0"   .ENDIF " $ .IF "&DISCONNECT REMOTE",GE,"Y"$.SYN D$RMTE="1"   .ELSE# .SYN D$RMTE="0"   .ENDIF " & .SYN T$TBL="@$COBJ.TSKCPY.CFCOM" & .DATA @T$TBL,E=Y,S=Y,R=YC0000 EVEN " ERRDIS BYTE @D$ISCO UDISCR EQU@D$RMTE .EOD&(&.SYN D$ISCO="",D$RMTE="",T$TBL="" &(@*BET(BUILD 3780/2780 EMULATOR TASK(S)),*,SYSGEN DATA DISK/VOLUME =ACNM(@$$DSCD), ,&TARGET DISK/VOLUME=ACNM(@$$DSC$), &(LISTING DIRECTORY NAME=ACNM(@$CLST),(( 3780 SYSTEM?=*YESNO(@$C378), 2780 SYSTEM?=*YESNO(@$C278)  (* '* '".SYN $C78="",$C378="",$C278=""".SYN $COBJ=@$CVN  .SYN $$DSCD="@@&SYSGEN"  .SYN $CDAT="@$$DSCD" .IF &3780, LT, "Y" .IF &2780, LT, "Y" $MSG TEXT="NO EMULATOR SPECIFIED"$ .EXIT   .ENDIF ! .ELSE %  .SYN $C78=YES,$C378=YES  .ENDIF% (( .IF &2780, GE, "Y" .SYN $C78="YES",$C278=YES .ENDIF% * '*  SET UP THE DEFAULTS * ' .SYN $$DSC$="@@&TARGET"  .SYN $CLST="@@&LISTING" * ' CFDIR P=@$CLST,M=10  CFDIR P=@$CLST.BATLST,M=35( *DEFINE TASK PARAMETERS ( .IF @$C78,EQ,"YES"   COMTASK  COMTASKA  COMTSKA1  COMTASKB  COMTSKB1  COMTASKC  COMTASKF  .IF @$C378,EQ,"YES"  COMTASKD .ENDIF  .IF @$C278,EQ,"YES"  COMTASKE .ENDIF  .ENDIF ! > MSG TEXT="ENTER TO START TASK GENERATION PROCESS.", > REP=$COK  .IF @$COK,NE,$COK .EXIT   .ENDIF !  .IF @$C78,EQ,"YES"8XBI=@$COBJ.BATCH.DXTSKINS,L=@$CLST.BATLST.DXTSKINS8(.OVLY OVLY=>23,CODE=10,PARMS=("NO") ( .ENDIF" (MSG TEXT="TASK GENERATION COMPLETE" ((.SYN $C78="""6.SYN $$DSC$="",$CDAT="",$COK="",$C378="",$C278="" 6RGET"  .SYN $CLST="@@&LISTING" * ' CFDIR P=@$CLST,M=10  CFDIR P=@$CLST.BATLST,M=350COMTSKB1(DEFINE 3780/2780 TASK PARAMETERS), 0 TRAILING BLANKS?=*YESNO(NO),  TBID ON?=*YESNO(NO),"TASK BID CODE=STRING('$BID'), " $OPR ON?=*YESNO(NO), $OPR CODE=STRING('$OPR'), "$-OPTION CHARACTER=STRING('$')"(* ' .IF "&TBID",GE,"Y".SYN T$BID="1"! .ELSE % .SYN T$BID="0"! .ENDIF% * ' .IF "&$OPR ON",GE,"Y" .SYN $OPR="1" ! .ELSE % .SYN $OPR="0" ! .ENDIF% * ' .IF "&TRAI",GE,"Y".SYN T$BL="1" ! .ELSE % .SYN T$BL="0" ! .ENDIF% * '&.SYNT$TBL="@$COBJ.TSKCPY.CFCOM" &* ' .DATA @T$TBL,E=Y,S=Y,R=YUBLKTL EQU@T$BL SOPRF EQU@$OPR UTBID EQU@T$BIDF0000 EVEN " TBDDEF BYTE TBDFL USTB TEXT &TASK TBDFL EQU$-USTBZ0000 EVEN " OPRDEF BYTE OPRFL  USOPR TEXT "&$OPR CODE"OPRFL EQU$-USOPR H0000 EVEN " DLROPT TEXT "&$-OPTION" .EOD&($.SYN S$TBD="",S$DLR="",T$BID="" $".SYN T$TBL="",$OPR="",T$BL="" "(* ' .IF "&TBID",GE,"Y".SYN T$BID="1"! .ELSE % .SYN T$BID="0"! .ENDIF% * ' .IF "&$OPR ON",GE,"Y" .SYN $OPR="1" ! .ELSE % .SYN $OPR="0" ! .ENDIF% * ' .IF "&TRAI",GE,"Y".SYN T$BL="1" ! .ELSE % .SYN T$BL="0" ! .ENDIF% * '&.SYNT$TBL="@$COBJ.TSKCPY.CFCOM" &* ' .DATA @T$TBL,E=Y,S=Y,R=YUBLKTL EQU@T$BL SOPRF EQU@$OPR UTBID EQU@T$BIDF0000 EVEN " TBDDEF BYTE TBDFL USTB TEXT &TASK TBDFL EQU$-USTB0COMTASKC(DEFINE 3780/2780 TASK PARAMETERS), 0(MAX TRANSMIT RECORD LENGTH=INT(256),((MAX RECEIVE RECORD LENGTH=INT(256), ( SRL DEFAULT=INT(80), RPURL DEFAULT=INT(80), RPRRL DEFAULT=INT(132)((&.SYNT$TBL="@$COBJ.TSKCPY.CFCOM" &( .DATA @T$TBL,E=Y,S=Y,R=Y INPMAX EQU"&MAX TRANSMIT"  "OUTMAX EQU "&MAX RECEIVE"+14 "RDRRL EQU"&SRL"PCHRL EQU"&RPURL"PRTRL EQU"&RPRRL".EOD&(.SYN T$TBL="" !,COMTASKD (DEFINE 3780 TASK PARAMETERS), ,*COMPRESSION/EXPANSION ON?=*YESNO(NO), *(3780 MAX BLOCK SIZE(BYTES)=INT(512),(*PUNCH DEVICE SELECT(DC2/DC3)=NAME(DC2)*( .IF "&COM",GE,"Y"  .SYN C$E="1"  .ELSE %  .SYN C$E="0"  .ENDIF% (&.SYN C$3780="@$COBJ.TSKCPY.CF3780"&((.DATA @C$3780,EXT=NO,REP=YES,SUB=YES(UCPEX EQU@C$E BLMAX EQU"&3780" DC2  EQU>1200 DC3  EQU>1300 USPU EQUDC2 I0000 DEFUSPU DEFRPB EQU0 !K0000 EVEN " DSRFLG DATA >2200 IDMAX DATA 20!IDSIZE EQU21!.EOD&( .SYN C$3780="",C$E="" ((((2 --- COMMUNICATIONS SOFTWARE INSTALLATION --- 2((<TO BEGIN COMMUNICATIONS SYSTEM INSTALLATION, TYPE 'ICC' <((B REFER TO THE OBJECT INSTALLATION MANUAL(S) FOR INSTRUCTIONS. B(1Ԁ Y$&v `5T΋11`5~DS09DS01?z&DXCOMOBJ΋5&*&&/& &?a&$' && && &&j1 &&z&/&&$'& s-&V$*"'*r'ؠEtNȃȣ /$'jc cDb`5L΋1`5~΋5 YM ] M  X`)J`)HOa ]Б BԠ.)P ]`)J _~`LE)T)H%FCF)T)Hd#lLr)T)HL2 Lt)T)H Lr$E@*ICC(INSTALL COMMUNICATIONS COMMANDS), *&EMULATOR OBJECT ACCESS NAME=ACNM, &$COPY COMM DSR PARTS?=YESNO(YES),$ PATCH PROCEDURES?=YESNO(YES) * '8* ASSIGN $PROT TO THE PROTOCOL NAME ENTERED IN XGEN.80* THIS WILL ENABLE COMMON PROCS TO WORK WITH0 * PROTOCOL SPECIFIC FILES.* ' .SYN $PROT="3780" * ' .SYN $CVN="@@&EMUL" .SYN $CLST=@$CVN * ' * PATCH BUILD PROCEDURES .IF "&PATCH", EQ, "YES" (.USE @$CVN.DXCMO.S$CPROC,DS01.S$PROC( PPR# .ENDIF% * '".USE @$CVN.S$PROC,DS01.S$PROC "* ' * COPY COMM DSR PARTS  .IF "©", EQ, "YES" .PROMPT,#  DSR PARTS ACCESS NAME=ACNM( .SYN $DSR="@@&DSR PARTS"(&* DELETE ANY EXISTING $PROT PARTS &*DD PATHNAME=@$DSR.D@$PROT, LISTING=DUMY,* ARE YOU SURE?=YES $* COPY DSR COMMON AND 3780 PARTS$&CD INP=@$CVN.DXCMO, OUTP=@$DSR, & LISTING=DUMY, OPTI=ADD  .ENDIF% ((,.SYN $CLST="", $REP="", $DSR="",$PROT="", XGEN.80* THIS WILL ENABLE COMMON PROCS TO WORK WITH0 * PROTOCOL SPECIFIC FILES.* ' .SYN $PROT="3780" * ' .SYN $CVN="@@&EMUL" .SYN $CLST=@$CVN * ' * PATCH BUILD PROCEDURES .IF "&PATCH", EQ, "YES" (.USE @$CVN.DXCMO.S$CPROC,DS01.S$PROC( PPR# .ENDIF% * '".USE @$CVN.S$PROC,DS01.S$PROC "* ' * COPY COMM DSR PARTS  .IF "©", EQ, "YES" .PROMPT,#  DSR PARTS ACCESS NAME=ACNM( .SYN $DSR="@@&DSR PARTS"(&* DELETE ANY EXISTING $PROT PARTS &*DD PATHNAME=@$DSR.D@$PROT, LISTING=DUMY,*eSS$CPROC DXCMO LNK3780 `P fkhگDFNACU `P  8$BLDCOMA `P5`fV$ IUT `P 2$LINTIM `Pr%VLگUPGEN990`P $BDTYP `P P$CLDP P +VfL$"BLD3780 `Px3fگ#PGEN990 `P S$%LNKCOMA `P F$9LINARG `P~j8گAPCS `P $<$EACUPRM `P 8o$RPPR `P FІ$RC$SYN `P  "f$cPUT `P!3Q$cBCD `P ¾$D LNK3780 (GENERATE 3780/2780 DSR LINK CONTROL FILE AND LINK DSR) D* '@* THIS PROC GENERATES THE DX 3780/2780 DSR LINK CONTROL FILE @4* AND EXECUTES THE BATCH STREAM TO LINK THE DSR 4* '< .DATA @$COBJ.D3780.L.DSR,EXTEND=NO,REPLACE=YES,SUB=YES < NOSYMT% . LIBRARY $COBJ.DCOMM.O  ;COMMON DSR PARTS.2 LIBRARY $COBJ.D3780.O  ;3780/2780 DSR PARTS 2PHASE 0,DSR3780  PARTIAL $ INCLUDE (CSUPSY)INCLUDE (CSUPIN)INCLUDE (QUEUES)8INCLUDE (COMPAT) ;COMMON PARTS PATCH AREA-C$$PAT 8<INCLUDE (DSRPAT) ;3780/2780 PARTS PATCH AREA-P$3780 <  .EOD % (* '2*SPLIT LIST (BD3780) TO DECIDE IF FC3 IS USED 2 *IF SO INCLUDE FC3 ISR* ' .SYN $LST="(@BD3780)"  .LOOP" ..SPLIT LIST="@$LST", FIRST=$BD1, REST=$LST .2@  .UNTIL "@$BD1", EQ, "FCCC"   .WHILE "@$LST", NE, "$LST"   .REPEAT!  .IF "@$BD1", EQ, "FCCC"< .DATA @$COBJ.D3780.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (FC3ISR)  .EOD $ .ELSE % < .DATA @$COBJ.D3780.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (DUMFC3)  .EOD $ .ENDIF% (* '4*SPLIT LIST (BD3780) TO DECIDE IF COMIF IS USED 44*IF SO INCLUDE COMIF ISR AND SET $CMF TO INCLUDE4 *CHARACTER DETECT * ' .SYN $LST="(@BD3780)"  .LOOP" ..SPLIT LIST="@$LST", FIRST=$BD1, REST=$LST .  .UNTIL "@$BD1", EQ, "COMIF"  .WHILE "@$LST", NE, "$LST"   .REPEAT!  .IF "@$BD1", EQ, "COMIF"  .SYN $CMF="01" < .DATA @$COBJ.D3780.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (COMISR) .EOD $ .ELSE %  .SYN $CMF="" < .DATA @$COBJ.D3780.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (DUMCMF)  .EOD $ .ENDIF% (* '4*SPLIT LIST (BD3780) TO DECIDE IF BCAIM IS USED 4 *IF SO INCLUDE BCAIM ISR* ' .SYN $LST="(@BD3780)"  .LOOP" ..SPLIT LIST="@$LST", FIRST=$BD1, REST=$LST .  .UNTIL "@$BD1", EQ, "BCAIM"  .WHILE "@$LST", NE, "$LST"   .REPEAT!  .IF "@$BD1", EQ, "BCAIM" < .DATA @$COBJ.D3780.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (BCMISR)  .EOD $ .ELSE % < .DATA @$COBJ.D3780.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (DUMBCM)  .EOD $ .ENDIF% (* '.*CHARACTER DETECT INCLUDED IF COMIF IN USE.* ' .IF @$CMF, EQ, "01"  .DATA @$COBJ.D3780.L.DSR,E"XTEND=YES,REPLACE=YES,SUB=YES "INCLUDE (LCBSCR)INCLUDE (CDBSCR)INCLUDE (MSBSCR)END &.EOD% .ELSE % <.DATA @$COBJ.D3780.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (LCBSCR)INCLUDE (DUMCDT)INCLUDE (MSBSCR)END &.EOD% .ENDIF% (*.SYN $CMF="",$BD1="",BD3780="",$LST=""** '0XB I=@$COBJ.D3780.B.DSR,L=@$COBJ.BL.DSR3780 0(.OVLY OVLY=>23,CODE=10,PARMS=("NO") (* '("LAST ERROR AT LINE 342 ON PAGE 8" **** ERROR # 103 ****  **** ERROR # 186 **** 8 344 3:(COLATRB :EIGHT-BITS); "COLOR ATTRIBUTE BYTE8***  !104,4!104,15,5,9 "LAST ERROR AT LINE 343 ON PAGE 8" **** ERROR # 103 ****  **** ERROR # 186 **** > 345 4:(PRSATRB :EIGHT-BITS); "PROGRAM SYMBOLS ATTR BYTE >B@H"LINTIM(DEFINE 3780/2780 LINK CONTROL PARAMETERS FOR DEVICE CM@U$N), H&BID RESPONSE TIMEOUT(SEC)=INT(01),&&RECEIVE ACK TIMEOUT(SEC)=INT(03), &&RECEIVE DATA TIMEOUT(SEC)=INT(00),& IDLE LINE TIMEOUT=INT(20) * '..SYN $MSG1="MAXIMUM TIMEOUT IS 63 SECONDS".* ' .IF "&BID RESPONSE",GT,63  MSG T=@$MSG1   LINTIM !  .EXIT" .ENDIF%  .IF "&RECEIVE ACK",GT,63 MSG T=@$MSG1   LINTIM !  .EXIT" .ENDIF%  .IF "&RECEIVE DATA",GT,63  MSG T=@$MSG1   LINTIM !  .EXIT" .ENDIF%  .IF "&IDLE LINE",GT,63 MSG T=@$MSG1   LINTIM !  .EXIT" .ENDIF% .SYN $MSG1="" !* '..DATA @C$TBL,EXTEND=YES,REPLAC=YES,SUB=YES. P@$U EQU "&BID RESPONSE" Q@$U EQU "&RECEIVE ACK"  R@$U EQU "&RECEIVE DATA"W@$U EQU "&IDLE LINE" .EOD&RESPONSE TIMEOUT(SEC)=INT(01),&&RECEIVE ACK TIMEOUT(SEC)=INT(03), &&RECEIVE DATA TIMEOUT(SEC)=INT(00),& IDLE LINE TIMEOUT=INT(20) * '..SYN $MSG1="MAXIMUM TIMEOUT IS 63 SECONDS".* ' .IF "&BID RESPONSE",GT,63  MSG T=@$MSG1   LINTIM !  .EXIT" .ENDIF%  .IF "&RECEIVE ACK",GT,63 MSG T=@$MSG1   LINTIM !  .EXIT" .ENDIF%  .IF "&RECEIVE DATA",GT,63  MSG T=@$MSG1   LINTIM !  .EXIT" .ENDIF%  .IF "&IDLE LINE",GT,63 MSG T=@$MSG1   LINTIM !  .EXIT" .ENDIF% .SYN $MSG1="" !* '..DATA @C$TBL,EXTEND=YES,REPLAC=YES,SUB=YES. P@$U EQU "&BID RESPONSE" Q@$U EQU "&RECEIVE ACK"  R@@ BLD3780 $  .SYN U$N="@D$VC@$XX".SYN $U="@U$N"* '<* ANY VALIDATION OF PROTOCOLS FOR PARTICULAR BOARD TYPES <<* SHOULD BE DONE IN THIS PROC BEFORE PROCEEDING TO BUILD < * THE PARTICULAR DSR. 6* A MESSAGE SHOULD BE REPORTED AND THE BOARD TYPE64* PROC 'BDTYP' SHOULD BE RE-EXECUTED TO MODIFY 48* THE TYPE SPECIFIED FOR THE CURRENT DEVICE. I.E., 8* ' *  .IF @$NBD, EQ, "BCAIM"  2* MSG TEXT="@P$RT@$XX IS NOT VALID ON BCAIM"2* .SYN $NBD=""* BDTYP * BLD@P$RT@$XX* .EXIT *  .ENDIF !* '* '* '<* 3780/2780 EMULATOR PACKAGES ALWAYS HAVE A LINE CONTROL <:* IN THE DSR THEREFORE THE STRING PASSED FOR THE NEXT :4* HIGHER LEVEL TABLE ADDRESS SHOULD BE 'LT'. IF 4"* NO LINE CONTROL WERE PRESENT, " THE STRING PASSED FOR :* THE NEXT HIGHER LEVEL TABLE ADDRESS SHOULD BE 'PS'. :6* SEE THE COMIF IST MACRO (COMIST) FOR INFO ON HOW6 * THIS VALUE IS USED. * '* ' .SYN $NH@$XX="LT"(* ' * PROTOCOL SPECIFICATION4* ALL COMM PROTOCOLS MUST HAVE A SPECIFICATION4** DEFINED FOR USE IN THE IST MACROS.*(* 3780 PROTOCOL SPECIFICATION = 4 ((* 2780 PROTOCOL SPECIFICATION = 7 (* ' .IF @P$RT@$XX, EQ, "3780"  .SYN PRDF@$XX=4 .ELSE %  .SYN PRDF@$XX=7 .SYN P$RT@$XX="3780"  .ENDIF%  DFNACU !  LINTIM !  LINARG ! (.SYN U$N="" "NE CONTROL <:* IN THE DSR THEREFORE THE STRING PASSED FOR THE NEXT :4* HIGHER LEVEL TABLE ADDRESS SHOULD BE 'LT'. IF 4"* NO LINE CONTROL WERE PRESENT, "BLINARG(DEFINE 3780/2780 LINK THRESHOLD PARAMETERS FOR CM@U$N), B TRANSMIT BID=INT(15),  RECEIVE ENQ=INT(15), TRANSMIT ENQ=INT(15),  RECEIVE NAK=INT(00), TRANSMIT NAK=INT(00),  RECEIVE DATA=INT(20)(..DATA @C$TBL,EXTEND=YES,REPLAC=YES,SUB=YES."BT@$U EQU "&TRANSMIT BID" "S@$UEQU "&RECEIVE ENQ" T@$UEQU "&TRANSMIT ENQ"  U@$UEQU "&RECEIVE NAK" V@$UEQU "&TRANSMIT NAK"  X@$UEQU "&RECEIVE DATA"  L$L@$U SC3780 @$U,@C$RU,P@$U,Q@$U,R@$U,BT@$U,S@$U,T@$U,U@$U,V@$U,W@$U,X@$UL.EOD&(  PATCH VCATALOG DXTP3780`P0Hxڰ DXTP2780`P' ܀ڰ P D3780 DPT3780 `P O, *ڰPPR3780 `P$ .ڰ@@************************************************************ @BATCH LS=YES"@************************************************************ @>* ***PATCH FILE DXTP3780 V4.0.0  LAST UPDATE 07/08/81 >@************************************************************ @* '8* ***S P E C I A L I N S T R U C T I O N S ***8* '4* TITLE:DXTP3780 *** TASK PATCHES TO DX 3780 4* RELEASE 4.0.0 * ':* ABSTRACT: DX/3780 EMULATOR TASK PATCHES.THIS PATCH :.* FILE CORRECTS PROBLEMS IN THE DX/3780 .4* EMULATOR BY MODIFYING THE 3780 TASK IMAGE ON 4* DISK. * ':* THIS PATCH FILE MAY BE APPLIED BY SEVERAL METHODS. :* '4*  1) BY REPLACING ONE OF THE FOLLOWING FILES,40*  SOURCE MEDIUM: DXCOMSRC.PATCH.DXTP3780 0*  OBJECT MEDIUM : DXCOMOBJ.PATCH.DXTP3780 :* USING THE CC COMMAND. THEN FOLLOW THE DIRECTIONS :<* IN PARAGRAPH 3.3 OF THE DX 3780/2780 EMULATOR OBJECT<4* INSTALLATION, PART NUMBER, 2250918-9701 *C. 4* '2*  2) BY FOLLOWING THE STEPS OUTLINED BELOW.2* '* '>* THIS PATCH FILE CAN NOT BE EXECUTED DIRECTLY AS A BATCH ><* STREAM. TO APPLY THESE PATCHES TO A EMULATOR TASK,THE <>* SYNONYM "$$DSC$" MUST BE ASSIGNED THE VOLUME NAME OF THE >8* DISK ON WHICH THE PATCHES ARE TO BE APPLIED, THEN 80* EITHER (A) OR (B) BELOW MUST BE PERFORMED.0* '<* NOTE THAT THE DEFAULT IF $$DSC$ IS UNASSIGNED IS DS01. <* '@* (A) IF THE LINK MAP OF THE EMULATOR TASK TO BE PATCHED IS @>* AVAILABLE IN A DISK FILE, EXECUTE THE "XPS" SCI COMMAND > * WITH THE FOLLOWING INPUTS. @@*  LINK:FILE NAME OF LINK MAP OF EMULATOR TO BE PATCHED @.*  INPUT: FILE NAME OF THIS PATCH FILE .>*  OUTPUT:FILE NAME OF FILE TO BE USED AS BATCH STREAM >,*  ERROR: FILE NAME OF AN ERROR FILE ,@* THE "OUTPUT" FILE WILL BE AN EXECUTABLE BATCH STREAM THAT @6* CAN BE EXECUTED TO APPLY THEM TO THE COMM TASK. 6* '@* (B) IF THE LINK MAP IS NOT AVAILABLE IN A FILE, THEN THIS @>* PATCH FILE WILL HAVE TO BE TRANSLATED MANUALLY. IF THE >@* LINK MAP LIST IS ALSO NOT AVAILABLE, IT WILL NECESSARY TO @<* REGENERATE THE EMULATOR TASK TO BE PATCHED IN ORDER TO <8 * OBTAIN A VALID LINK MAP. IF THE LINK MAP LIST IS 8>* AVAILABLE, THEN COPY THIS PATCH FILE TO ANOTHER FILE AND > * EDIT THAT FILE AS FOLLOWS. * '4* FOR EACH #SYN COMMAND IN THE PATCH FILE, TWO OR 4MORE <* SYNONYMS MUST BE DEFINED. EACH #SYN IS IN THE FORMAT <D*  #SYN ,,,.....D* FOR EXAMPLE,!*  #SYN SROOT,ROOT>* WHERE "SROOT" IS THE SYNONYM NAME, >:* AND "ROOT" IS THE OF THE MODULE TO BE :* PATCHED.#* '>* FOR EACH #SYN, FIND THE S IN THE LINK MAP. >@* ALL MODULES ON ONE #SYN LINE WILL RESIDE IN THE SAME PHASE @>* OF A LINK.DETERMINE THE FROM THE >>* PHASE HEADER LINE WHERE THE SPECIFIED MODULES ARE FOUND. >>* INSERT A .SYN COMMAND INTO THE PATCH FILE TO DEFINE THE >,* OVERLAY OR TASK ID, AS IN THE EXAMPLE ,*  .SYN SROOT=1 >* WHERE "SROOT" IS THE SYNONYM IN THE > * #SYN COMMAND AND "1" IS THE " FROM THE "@* PHASE IN WHICH THE LISTED MODULES RESIDE. ("1" IS THE ID @6* FOR THE FIRST TASK. THIS WILL BE DIFFERENT FOR 6 * ADDITIONAL TASKS.)* '@* INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH IN THE #SYN COMMAND.FOR EXAMPLE,.*  .SYN ROOT=031DA@* WHERE "ROOT" IS THE OF THE MODULE (FROM THE @6* #SYN COMMAND) TO BE PATCHED, AND "031DA" IS THE 6@* HEXADECIMAL ADDRESS OF THE MODULE ORIGIN FOR A TI-SUPPLIED @6* TASK (THIS MAY BE DIFFERENT FOR A CUSTOM TASK). 6* '@* AFTER ALL SYNONYMS HAVE BEEN DEFINED FOR THE #SYN COMMAND, @0* DELETE THE #SYN LINE FROM THE PATCH FILE. 0* '>* REPEAT THIS PROCEDURE FOR EACH #SYN COMMAND IN THE FILE. >4* WHEN THE EDIT IS COMPLETED, THE RESULTING FILE I4S AN @* EXECUTABLE BATCH STREAM THAT CAN BE EXECUTED TO APPLY THE @ * COMM TASK PATCHES.* '@************************************************************ @* '6* ***S Y N O N Y M  A S S I G N M E N T ***6* ',Q$SYN !REQUIRED: CLEAR SECRET SYNONYMS,6.SYN $E$C="0" !REQUIRED: SET ERROR COUNT TO 0 6.IF  @$$DSC$,EQ,"$$DSC$"<.SYN $$DSC$=@DS01 !LET DS01 BE DEFAULT IF UNASSIGNED< .ENDIF% @.SYN PFIL=@@$$DSC$.S$COMMPF !PROGRAM FILE TO BE PATCHED @@************************************************************ @ ***** LINK DEFINED SYNONYMS @************************************************************ @#SYN CF3,DXCF3 #SYN INT,DNINIT #SYN LCN,DNLCON #SYN MGR,CCMGR #SYN WAT,DXWAIT  #SYN E MU,EM3780 #SYN CI,CI3780 #SYN SB,DXSB!#SYN DB,DBASE #SYN MSG,CCMSG #SYN RCV,DXRCVQ #SYN IFC,DXIFC #SYN SBW,CCSBW #SYN OPIS,DNOPIS#SYN OPIF,DNOPIF#SYN DND,DNEND @.SYN CF3="",INT="",MGR="",WAT="",EMU="",CI="",SB="",DB="" @<.SYN MSG="",RCV="",IFC="",SBW="",OPIF="",DND="",LCN="" <@************************************************************ @"***** PATCHES RELEASE 4.0.0"J#**********************************************************************JJ#**********************************************************************J* 'H*=P1148 SLC 05/29/81 STR#9238 DXTP3780 EM3780 DX10 4.0.1 H* '>*  THIS PATCH ALLOWS RECEPTION OF DX PRINT FILES (990 TO >(*  990) WITH TRANSPARENCY OFF AND RE(CEIVE VFC OFF. <*  INSTALLATION OF THIS PATCH COULD CAUSE PROBLEMS IN <2*  RECEPTION OF PRINT FILES FROM IBM HOSTS. 2@*  TO INSTALL THIS PATCH, REMOVE THE ASTERISK FROM COLUMN @8*  1 OF EACH PATCH RECORD IN THE FOLLOWING BLOCK. 8* '6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04C4", 6 *  V=02500,D=02600,C=02600 *EC &* '6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04D4", 6 *  V=01500,D=01D00,C=01D00 *EC &* '6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04E4", 6 *  V=0C00,D=01100,C=01100  *EC &*$'* 'L$*********************************************************************** LH*=P1226 SLC 05/29/81 STR#9125 DXTP3780 EM3780DX104.0.1 H* '8*  --------- OPTIONAL PATCH FOR DX10 4.0 ---------- 8 * 'L$* IF DISCONNECT ON ERROR IS ENABLED, THE IDLE LINE ERROR WILL BE SEEN, LL * OTHERWISE, IT IS NOT.THIS PATCH FORCES IT TO BE SEEN.TO USE THIS LL$* PATCH DELETE THE ASTERISK IN COLUMN 1 OF EACH RECORD IN THE FOLLOWINGL* BLOCK. #* '4*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+05E",4&*  V=0D220,D=(0460,0004),C=0464 &*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=>0004,,&*  V=(0DEAD,0DEAD,0DEAD,0DEAD), &2*  D=(06A0,"@DXSB+0574",0208,"@CCMSG+0E8"), 2*  C=02296!*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=>000C,,&*  V=(0DEAD,0DEAD,0DEAD,0DEAD), &4*  D=(0420,"@DNOPIS+017E",0D220,"@DXCF3+032"),4*  C=0F03E!*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=>0014,,*  V=(0DEAD,0DEAD),  *  D=(0460,"@EM3780+062"), @*  C=02D30!*EC &4*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+0B2",4 *  V=006A0,D=0100E,C=0100E *EC &* '*$'N%**************************************************************************N* 'F*=P1248 SLC07/02/81 STR #6169 DXTP3780 EM3780DX10V4.0.1F* '@*  ENABLE THIS PATCH ONLY IF COMMUNICATING WITH A DTS CASH @*  REGISTER * 'L* " USERS COMMUNICATING WITH A DTS CASH REGISTER NEED TO RECOGNIZE THE LL*  RS CHARACTER.THIS PATCH ADDS RS TO CHARACTER DETECT TABLE TXTTBL L(*  AND DELETES DC3 TO ALLOW SPACE.(* 'F*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04BC",V=02700,D=(03500,FB*  "@EM3780+02A6",02700,"@EM3780+07C",02600,"@EM3780+02A0", B&*  02500,"@EM3780+02A6"),C=013E4&*MPI PF=PFIL,MT=PR,MN=.P3780,ADR="@EM3780+04CC",V=01E00,D=(01F00,.B*  "@EM3780+02A6",01E00,"@EM3780+02A6",01D00,"@EM3780+01EC",B&*  01500,"@EM3780+02A6"),C=0084E&*EC &*$'J#********************************************************************* JF*=P1255 SLC07/08/81 STR #9234 DXTP3780 TDDR DX10 V4.0.1F* '8* ----------OPTIONAL DX10 4.0 PATCH ---------- 8* '>* THIS IS AN OPTIONAL PATCH TO UPDATE THE GERMANY/AUSTRIA >@* TRANSLATION TABLE TO BE COMPATIBLE WITH THE NEW(CURRENT) @B* CHARACTER SET. TO APPLY THIS PATCH, DELETE THE ASTERISK IN B<* COLUMN 1 OF EACH RECORD IN THE FOLLOWING PATCH BLOCK. <* '(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=022,( *  V=07F4A,D=07F7B,C=07F7B  *EC &(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=024,(*  V=05A6C,D=05B6C,C=05B6C *EC &* '(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=05A,( *  V=0E97B,D=0E94A,C=0E94A  *EC &(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=05C,( *  V=07C5B,D=0E05A,C=0E05A  *EC &(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=020,( *  V=0404F,D=07C4F,C=07C4F  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=014A, * *  V=0232E,D=05B2E,C=05B2E  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=015A, * *  V=0245D,D=05D24,C=05D24  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=017A, * *  V=03A5B,D=03A23,C=03A23  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=017C, * *  V=05C27,D=02027,C=02027  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=01E0, * *  V=02020,D=05C20,C=05C20  *EC &*$'F"********************************************************************F****D*=P1259 SLC07/08/81 STR #9240 DXTP3780 TUK DX10 4.0.1 D* '8* ----------OPTIONAL DX10 4.0 PATCH ---------- 8* 'F!* THIS IS AN OPTIONAL PATCH TO UPDATE THE UNITED KINGDOM(ENGLAND)F@* TRANSLATION TABLE TO BE COMPATIBLE WITH THE NEW(CURRENT) @B* CHARACTER SET. TO APPLY THIS PATCH, DELETE THE ASTERISK IN B<* COLUMN 1 OF EACH RECORD IN THE FOLLOWING PATCH BLOCK. <* '(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=020, ( *  V=0404F,D=0405A,C=0405A  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=022, ( *  V=07F7B,D=07F5B,C=07F5B  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=024, ( *  V=05B6C,D=04A6C,C=04A6C  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=05A, ( *  V=0E94A,D=0E97B,C=0E97B  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=05C, (@ *  V=0E05A,D=0E04F,C=0E04F  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=014A,( *  V=05B2E,D=0242E,C=0242E  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=014E,( *  V=02B21,D=02B5D,C=02B5D  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=015A,( *  V=05D24,D=02123,C=02123  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=017A,( *  V=03A23,D=03A5B,C=03A5B  *EC &L$************************************************************************LF*=P1308 SLC08/03/81 STR #9707 DXTP3780 DBASE DX10 4.0.1 F* 'J#* DUE TO INCOMPATABILITY ACROSS THE OS'S(DNOS AND DX10), THE COUNTRY JF* CODE SCB'S ARE DIFFERENT.THIS PATCH CHANGES THE COUNTRY CODE F * SCB TO CONFORM TO DX10.* '4MPI PF=PFIL,MT=TA,MN=EM3780,ADR="@DBASE+01F6", 4 V=08580,D=00280,C=00280EC'4MPI PF=PFIL,MT=TA,MN=EM3780,ADR="@DBASE+01FA", 4 V=0010E,D=0017C,C=0017CEC'N%**************************************************************************N$*  INSERT NEW PATCHESHERE$N%**************************************************************************N* '<*=P0000 RLL02/05/81 STR # N/ADXTP3780V4.0.0DX <* '8*  UPDATE THE EMULATOR RELEASE NUMBER AND DATE TO 8*  "4.0.0 81.275" * '<*MPIPF=PFIL,MT=TA,MN=EM3780,ADR="@DXCF3+014",V=02E30, <0* D=(02E30,02E30,02038,0312E,03237,03500) 0*EC &*$'@************************************************************ @* 'D CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.BATLST.DXTP3780" DLS'* ' Q$SYN % .SYN DNINIT=""  .SYN CCM GR="" .SYN DXWAIT="" .SYN CI3780="" $.SYN DBASE="",CCMSG="",DXSB=""$.SYN EM3780="",DNOPIS="".SYN DXRCVQ="",DNLCON="".SYN DXCF3="",DNEND=""&.SYN DXIFC="",CCSBW="",DNOPIF=""&.SYN PFIL=""!EC'EBATCH LS=Y " .STOP CODE=@$E$C ,*  NEXT AVAILABLE PATCH AREA IS >0018 ,80V4.0.0DX <* '8*  UPDATE THE EMULATOR RELEASE NUMBER AND DATE TO 8*  "4.0.0 81.275" * '<*MPIPF=PFIL,MT=TA,MN=EM3780,ADR="@DXCF3+014",V=02E30, <0* D=(02E30,02E30,02038,0312E,03237,03500) 0*EC &*$'@************************************************************ @* 'D CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.BATLST.DXTP3780" DLS'* ' Q$SYN % .SYN DNINIT=""  .SYN CCM @@************************************************************ @BATCH LS=YES"@************************************************************ @>* ***PATCH FILE DXTP2780 V4.0.0  LAST UPDATE 07/08/81 >@************************************************************ @* ':* *** S P E C I A L I N S T R U C T I O N S *** :* '2* TITLE:DXTP2780 *** TASK PATCHES TO DX 27802*  RELEASE 4.0.0* ':* ABSTRACT: DX/2780 EMULATOR TASK PATCHES.THIS PATCH :.* FILE CORRECTS PROBLEMS IN THE DX/2780 .4* EMULATOR BY MODIFYING THE 2780 TASK IMAGE ON 4* DISK. * ':* THIS PATCH FILE MAY BE APPLIED BY SEVERAL METHODS. :* '4*  1) BY REPLACING ONE OF THE FOLLOWING FILES,40*  SOURCE MEDIUM: DXCOMSRC.PATCH.DXTP2780 0*  OBJECT MEDIUM : DXCOMOBJ.PATCH.DXTP2780 :* USING THE CC COMMAND. THEN FOLLOW THE DIRECTIONS ::* IN PARAGRAPH 3.3 OF THE 3780/2780 EMULATOR OBJECT :4* INSTALLATION, PART NUMBER, 2250918-9701 *C. 4* '2*  2) BY FOLLOWING THE STEPS OUTLINED BELOW.2* '* '<* THIS PATCH FILE CANNOT BE EXECUTED DIRECTLY AS A BATCH <>* STREAM. TO APPLY THESE PATCHES TO AN EMULATOR TASK, THE >>* SYNONYM "$$DSC$" MUST BE ASSIGNED THE VOLUME NAME OF THE >6* DISK ON WHICH THE PATCHES ARE TO BE APPLIED THEN60* EITHER (A) OR (B) BELOW MUST BE PERFORMED.0* '@* (A) IF THE LINK MAP OF THE EMULATOR TASK TO BE PATCHED IS @>* AVAILABLE IN A DISK FILE, EXECUTE THE "XPS" SCI COMMAND > * WITH THE FOLLOWING INPUTS. @*  LINK:FILE NAME OF LINK MAP OF EMULATOR TO BE PATCHED @* * INPUT: FILE NAME OF THIS PATCH FILE *>*  OUTPUT:FILE NAME OF FILE TO BE USED AS BATCH STREAM >,*  ERROR: FILE NAME OF AN ERROR FILE ,@* THE "OUTPUT" FILE WILL BE AN EXECUTABLE BATCH STREAM THAT @6* CAN BE EXECUTED TO APPLY THEM TO THE COMM TASK. 6* '@* (B) IF THE LINK MAP IS NOT AVAILABLE IN A FILE, THEN THIS @>* PATCH FILE WILL HAVE TO BE TRANSLATED MANUALLY. IF THE >@* LINK MAP LIST IS ALSO NOT AVAILABLE, IT WILL NECESSARY TO @<* REGENERATE THE EMULATOR TASK TO BE PATCHED IN ORDER TO <8 * OBTAIN A VALID LINK MAP. IF THE LINK MAP LIST IS 8>* AVAILABLE, THEN COPY THIS PATCH FILE TO ANOTHER FILE AND > * EDIT THAT FILE AS FOLLOWS. * ':* FOR EACH #SYN COMMAND IN THE PATCH FILE, TWO OR MORE :<* SYNONYMS MUST BE DEFINED. EACH #SYN IS IN THE FORMAT <>@D*  #SYN ,,,.....D* FOR EXAMPLE,!*  #SYN SROOT,ROOT>* WHERE "SROOT" IS THE SYNONYM NAME, >:* AND "ROOT" IS THE OF THE MODULE TO BE :* PATCHED.#* '>* FOR EACH #SYN, FIND THE S IN THE LINK MAP. >@* ALL MODULES ON ONE #SYN LINE WILL RESIDE IN THE SAME PHASE @>* OF A LINK.DETERMINE THE FROM THE >>* PHASE HEADER LINE WHERE THE SPECIFIED MODULES ARE FOUND. >>* INSERT A .SYN COMMAND INTO THE PATCH FILE TO DEFINE THE >,* OVERLAY OR TASK ID, AS IN THE EXAMPLE ,*  .SYN SROOT=1 >* WHERE "SROOT" IS THE SYNONYM IN THE >@* #SYN COMMAND AND "1" IS THE FROM THE @(* PHASE IN WHICH THE LISTED MODULES RE( SIDE. ("1" IS THE ID 6* FOR THE FIRST TASK. THIS WILL BE DIFFERENT FOR 6 * ADDITIONAL TASKS.)* '@* INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH IN THE #SYN COMMAND.FOR EXAMPLE,.*  .SYN ROOT=031DA@* WHERE "ROOT" IS THE OF THE MODULE (FROM THE @6* #SYN COMMAND) TO BE PATCHED, AND "031DA" IS THE 6@* HEXADECIMAL ADDRESS OF THE MODULE ORIGIN FOR A TI-SUPPLIED @6* TASK (THIS MAY BE DIFFERENT FOR A CUSTOM TASK). 6* '@* AFTER ALL SYNONYMS HAVE BEEN DEFINED FOR THE #SYN COMMAND, @0* DELETE THE #SYN LINE FROM THE PATCH FILE. 0* '>* REPEAT THIS PROCEDURE FOR EACH #SYN COMMAND IN THE FILE. >:* WHEN THE EDIT IS COMPLETED, THE RESULTING FILE IS AN :@* EXECUTABLE BATCH STREAM THAT CAN BE EXECUTED TO APPLY THE @B@4 * COMM TASK PATCHES. EXECUTE THE BATCH STREAM. 4* '@************************************************************ @* '6* ***S Y N O N Y M  A S S I G N M E N T*** 6* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 0 6.IF  @$$DSC$,EQ,"$$DSC$">.SYN $$DSC$=@DS01  !LET DS01 BE DEFAULT IF UNASSIGNED > .ENDIF% >.SYN PFIL=@@$$DSC$.S$COMMPF !PROGRAM FILE TO BE PATCHED >@************************************************************ @ ***** LINK DEFINED SYNONYMS @************************************************************ @#SYN CF2,DXCF2 #SYN INT,DNINIT #SYN LCN,DNLCON #SYN DND,DNEND #SYN MGR,CCMGR #SYN WAT,DXWAIT #SYN EMU,EM2780  #SYN C I,CI2780 #SYN SB,DXSB!#SYN DB,DBASE #SYN MSG,CCMSG #SYN RCV,DXRCVQ #SYN IFC,DXIFC #SYN SBW,CCSBW #SYN OPIF,DNOPIF#SYN OPIS,DNOPIS@.SYN CF2="",INT="",MGR="",WAT="",EMU="",CI="",SB="",DB="" @<.SYN MSG="",RCV="",IFC="",SBW="",OPIF="",LCN="",DND="" <N%**************************************************************************N"***** PATCHES RELEASE 4.0.0"N%**************************************************************************NF*=P1242 SLC06/30/81STR #9125 DXTP2780 EM2780 DX104.0.1 F* '8* ----------OPTIONAL DX10 4.0 PATCH ---------- 8* 'F!* IF DISCONNECT ON ERROR IS ENABLED, THE IDLE LINE ERROR IS SEEN,FL$* OTHERWISE IT IS NOT. THIS PATCH FORCES THE ERROR MESSAGE TO BE SEEN.L* @ TO USE THIS PATCH, DELETE THE ASTERISK IN COLUMN 1 OF EACH @,* RECORD IN THE FOLLOWING PATCH BLOCK. ,* '4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+068", 4** V=(0D220,"@DXCF2+032",01316,06A0),*0* D=(06A0,"@DXSB+0574",0208,"@CCMSG+0E8"),0* C=02296 !*EC &4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+070", 4@* V=("@DXSB+0574",0208,"@CCMSG+0E8",0420,"@DNOPIS+017E"), @:* D=(0420,"@DNOPIS+017E",0D220,"@DXCF2+032",01310), :* C=0E36E !*EC &* '*$'L$************************************************************************LD*=P1254 SLC07/08/81STR #9234 DXTP2780TDDRDX10 4.0.1D* '8* ----------OPTIONAL DX10 4.0 PATCH ---------- 8* '>* THIS IS AN OPTIONAL PATCH TO UPDATE THE GERMANY/AUSTRIA > * TRANS 8LATION TABLE TO BE COMPATIBLE WITH THE NEW(CURRENT) 8B* CHARACTER SET. TO APPLY THIS PATCH, DELETE THE ASTERISK IN B<* COLUMN 1 OF EACH RECORD IN THE FOLLOWING PATCH BLOCK. <* '(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=022,( *  V=07F4A,D=07F7B,C=07F7B  *EC &(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=024,( *  V=05A6C,D=05B6C,C=05B6C  *EC &* '(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=05A,( *  V=0E97B,D=0E94A,C=0E94A  *EC &(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=05C,( *  V=07C5B,D=0E05A,C=0E05A  *EC &(*MPIPF=PFIL,MT=OV,MN=TDDR,ADR=020,( *  V=0404F,D=07C4F,C=07C4F  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=014A, * *  V=0232E,D=05B2E,C=05B2E  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=015A, * *  V=0245D,D=05D24,C=05D24  *EC &@**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=017A, * *  V=03A5B,D=03A23,C=03A23  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=017C, * *  V=05C27,D=02027,C=02027  *EC &**MPIPF=PFIL,MT=OV,MN=TDDR,ADR=01E0, * *  V=02020,D=05C20,C=05C20  *EC &**$ &L$************************************************************************LD*=P1258 SLC07/08/81STR #9238 DXTP2780 TUKDX10 4.0.1D* '8* ----------OPTIONAL DX10 4.0 PATCH ---------- 8* 'F!* THIS IS AN OPTIONAL PATCH TO UPDATE THE UNITED KINGDOM(ENGLAND)F@* TRANSLATION TABLE TO BE COMPATIBLE WITH THE NEW(CURRENT) @B* CHARACTER SET. TO APPLY THIS PATCH, DELETE THE ASTERISK IN B<* COLUMN 1 OF EACH RECORD IN THE FOLLOWING PATCH BLOCK. <* '(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=020, ( *  V=0404F,D=0405A,C=0405A  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=022, ( *  V=07F7B,D=07F5B,C=07F5B  *EC &* '(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=024, ( *  V=05B6C,D=04A6C,C=04A6C  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=05A, ( *  V=0E94A,D=0E97B,C=0E97B  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=05C, ( *  V=0E05A,D=0E04F,C=0E04F  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=014A,( *  V=05B2E,D=0242E,C=0242E  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=014E,( *  V=02B21,D=02B5D,C=02B5D  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=015A,( *  V=05D24,D=02123,C=02123  *EC &(*MPIPF=PFIL,MT=OV,MN=TUK,ADR=017A,( *  V=03A23,D=03A5B,C=03A5B  *EC &@**************************************************************@**********F*=P1309 SLC08/03/81STR #9707 DXTP2780DBASE DX10 4.0.1 F* 'J#* DUE TO INCOMPATABILITY ACROSS THE OS'S(DNOS AND DX10), THE COUNTRY JJ* CODE SCB'S ARE DIFFERENT.THIS PATCH CHANGES THE COUNTRY CODE SCB J * TO CONFORM TO DX10.* '4MPI PF=PFIL,MT=TA,MN=EM2780,ADR="@DBASE+01F6", 4 V=08580,D=00280,C=00280EC'4MPI PF=PFIL,MT=TA,MN=EM2780,ADR="@DBASE+01FA", 4 V=010E,D=017C,C=017C EC'D *************************************************************** D$*  INSERT NEWPATCHES HERE $D *************************************************************** D* ':*=P0000 RLL09/09/80STR N/A  DXTP2780 V4.0.0DX :* '8*  UPDATE THE EMULATOR RELEASE NUMBER AND DATE TO 8*  "4.0.0 81.275" * '<*MPIPF=PFIL,MT=TA,MN=EM2780,ADR="@DXCF2+014",V=02E30, <0* D=(02E30,02E31,02038,0312E,03237,03500) 0*EC &*$'@************************************************************ @.SYN DNINIT="" .SYN CCMGR="" .SYN DXWAIT="" .SYN CI2780="" $.SYN DBASE="",CCMSG="",DXSB=""$.SYN EM2780="" .SYN DXRCVQ="",DNEND="" .SYN DXCF2="",DNLCON="" .SYN DNOPIS="" &.SYN DXIFC="",CCSBW="",DNOPIF=""& Q$SYN % @************************************************************ @D CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.BATLST.DXTP2780" D.SYN PFIL="""LS' .STOP CODE=@$E$C 0*  NEXT AVAILABLE PATCH LOCATION IS >0002 0 UPDATE THE EMULATOR RELEASE NUMBER AND DATE TO 8*  "4.0.0 81.275" * '@@************************************************************ @BATCH LS=YES"@************************************************************ @4* *** PATCH FILE DPT3780 LAST UPDATE 06/15/81 4@************************************************************ @* '* TITLE: DPT3780* '@* ABSTRACT: THIS PATCH FILE PATCHES THE COMMUNICATIONS DSR @4*  ASSOCIATED WITH THE 3780 EMULATOR. COMMON 44*  MODULES IN THE PARTIAL LINK "DSR3780", ARE 42*  PATCHED BY "DPTCMON". PROTOCOL DEPENDENT 2**  MODULES ARE PATCHED BY "DPT3780".** '@************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* ':*  THIS PATCH FILE MUST BE APPLIED USING THE CURRENT :(*  "PCS" PROC. "PCS" IS AVAILABLE O( N EACH :*  COMMUNICATION EMULATOR OBJECT INSTALLATION DISK. :* '<*  ALL EMULATOR DSRS MUST BE GENERATED AND THE SYSTEM <2*  "ALGS" PERFORMED BEFORE PATCHING BEGINS. 2* '<*  FOLLOW THE INSTRUCTIONS IN THE OBJECT INSTALLATION <8*  MANUAL(S) FOR THE EMULATOR(S) BEING INSTALLED. 8* '@************************************************************ @* '8* *** S Y N O N Y M A S S I G N M E N T S ***8* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 06@************************************************************ @(***** SYSTEM LINK DEFINED SYNONYMS (@************************************************************ @#SYN DSR,DSR3780.SYN DSRCMON="@DSR3780" ************4************************************************ 4(***** PARTIAL LINK DEFINED SYNONYMS(@************************************************************ @#SYN C,LCBSCR #SYN C,CDBSCR #SYN C,MSBSCR #SYN C,DSRPAT .SYN C="" "@************************************************************ @,***** CALCULATED USING DSR3780'S OFFSET,@************************************************************ @$.EVAL LCBSCR="@DSR3780+@LCBSCR"$$.EVAL CDBSCR="@DSR3780+@CDBSCR"$$.EVAL MSBSCR="@DSR3780+@MSBSCR"$$.EVAL D$$PAT="@DSR3780+@DSRPAT"$@************************************************************ @ *  PATCHES RELEASE 4.0.0 @************************************************************ @:********************************************************:**** * '@************************************************************ @ *  INSERT NEW PATCHES HERE  @************************************************************ @* '>CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.DPT3780" >* '.IF @$E$C,NE,"0"  .EVAL $E$PCS="@$E$PCS+1"  .ENDIF% (.SYN DCMON="@DSR",DSRCMON="@DSR3780"(LS'(.SYN CDBSCR="",LCBSCR="",MSBSCR="", (" C$$PAT="",D$$PAT="",DSRPAT="""B************************************************************* BB* ASSIGN $PROT TO PROTOCOL NAME FOR COMMON, "DPTCMON" PATCHES B .SYN $PROT="3780" * ' .STOP % <* NEXT AVAILABLE COMMCOM PATCH LOCATION IS C$$PAT+>0000 <<* NEXT AVAILABLE DSR3780 PATCH LOCATION IS D$$PAT+>0000 <**************************************************:@@************************************************************ @6* *** PATCH FILE PPR3780LAST UPDATE:06/30/816@************************************************************ @* '* TITLE: PPR3780* '@* ABSTRACT: THIS PATCH FILE PATCHES THE 3780 BUILD PROCESS @4*  PROCDURES BEFORE THE BUILD PROCESS BEGINS. 4:*  THE DISK PATCHED IS THE OBJECT INSTALLATION DISK. :0*  $CVN REPRESENTS THE DISK TO BE PATCHED.0* '@************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* '4*  THIS PATCH FILE SHOULD BE APPLIED USING THE46*  "PPR" PROC, WHICH IS INVOKED BY "ICC" DURING 64*  THE INITIAL PHASE OF A COMMUNICATION BUILD.4* '2************************************************2************ * '8* *** S Y N O N Y M A S S I G N M E N T S ***8* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 06** ! READY TO DO .PROC FOR DSR PROCS **.USE @$CVN.DXCMO.S$CPROC,DS01.S$PROC*$* ! READY TO DO .PROC FOR TASK $$.USE @$CVN.S$PROC,DS01.S$PROC $@************************************************************ @$*  PATCH PROCS RELEASE 4.0.0$@************************************************************ @* '@CMR=ME,M="@$E$C ERRORS IN PATCH STREAM @$PLST.BL.PPR3780" @LS' .STOP % APPLIED USING THE46*  "PPR" PROC, WHICH IS INVOKED BY "ICC" DURING 64*  THE INITIAL PHASE OF A COMMUNICATION BUILD.4* '2************************************************2P DX 3780/2780 EMULATOR OBJECT PP RELEASE: 4.0.0 P/N: 2250913-1601 PP MFG. REV.: *E MEDIA: XXXXXXXX PRP REFER TO 2250918 FOR LOADING INSTRUCTIONS PP^ COPYRIGHT 1978 TEXAS INSTRUMENTS INCORPORATED PP DX COMMON COMM. DSR SW OBJECT PR(((2 --- COMMUNICATIONS SOFTWARE INSTALLATION --- 2((<TO BEGIN COMMUNICATIONS DSR INSTALLATION(S), TYPE 'IDC' <((B REFER TO THE OBJECT INSTALLATION MANUAL(S) FOR INSTRUCTIONS. B(DUTIL DXCMO P D $$B D $$S D K$$O D T$$P DUTIL UTLPAT P M$@J#**********************************************************************JBATCH LS=YES"J#**********************************************************************J * *** PATCH FILE UTLPATJ#**********************************************************************JD * THE FOLLOWING SYNONYMS MUST BE ASSIGNED BEFORE RUNNING THIS: D* '<* $$DSC$ - VOLUME NAME WITH PROGRAM FILE TO BE PATCHED <J#**********************************************************************JJ#**********************************************************************JH"* The following are the current versions of the templates for each HL$* type of patch. For details, see Engineering TI Style, pages 7-61 ff.L* Note each com: ment starts in column 4.Each line extends no further:H"* than column 70, with the exception of star lines for separators. HR'******************************************************************************RR'******************************************************************************R@*=Pnnnn INTMM/DD/YYSTR #mmmmmv.r.e filename osname @* 'J#* up to ten lines of description of the patch (each line of the form J2* shown here - star, two blanks, then words) 2* 'B*MPI PF=@$$DSC$.S$COMM.S$COMMPF, MT=tt, MN=modnam, ADR=>0000, B&*  V=(>  ,>  ,>  ,>  ), &&*  D=(>  ,>  ,>  ,>  ), & *  C=># *EC &*$'(**************************************(,****************************************,@*=Pnnnn INTMM/DD/YYSTR #mmmmmv.r.e filename osname @* 'J#* up to ten lines of description of the patch (each line of the form J2* shown here - star, two blanks, then words) 2* '**MRFPN=pathname, RN=nnnn, FW=mmmm, *&*  V=(>  ,>  ,>  ,>  ), &&*  D=(>  ,>  ,>  ,>  ), & *  C=># *EC &*$'R'******************************************************************************R@*=Pnnnn INTMM/DD/YYSTR #mmmmmv.r.e filename osname @* 'J#* up to ten lines of description of the patch (each line of the form J2* shown here - star, two blanks, then words) 2* '*MTEPF=programfi le, MN=module, PRIORITY=*EC &*$'R'******************************************************************************R@*=Pnnnn INTMM/DD/YYSTR #mmmmmv.r.e filename osname @* 'J#* up to ten lines of description of the patch (each line of the form J2* shown here - star, two blanks, then words) 2* ':*MADDISK=diskname, TRACK=nnnn, SECTOR=mmmm, FW=wwww, :&*  V=(>  ,>  ,>  ,>  ), &&*  D=(>  ,>  ,>  ,>  ), & *  C=># *EC &*$'R'******************************************************************************RJ#**********************************************************************J * end of templates **************************0********************************************0* '$* *** SYNONYM ASSIGNMENT ***$J#**********************************************************************J(Q$SYN !CLEAR SYSTEM USED SYNONYMS (&.SYN $E$C=0 !CLEAR ERROR COUNTER&J#**********************************************************************JJ#**********************************************************************J,******* PLACE PATCHES BEFORE THIS LINE,J#**********************************************************************JLS'4CM R=ME,M="@$E$C ERRORS IN UTILITY PATCH STREAM"4.STOP CODE=@$E$C **************************************************************J * end of templates **************************B DUTIL UTLINS `P-($L$************************************************************************L* TITLE:UTLINS * '8* ABSTRACT: THIS BATCH STREAM INSTALLS THE CDL, CMM 8.* AND CLM PROCS IN THE .S$PROC DIRECTORY.6* AND INSTALLS THE THREE TASKS, COMMOD, COMMDWNL 68* AND COMMLM ON THE PROGRAM FILE .S$COMM.S$COMMPF. 88* THE FC3 FIRMWARE FIX (FC3DP1) IS ALSO INSTALLED 86* ON .S$COMM.S$COMMPF. THE FC3 DOWNLOAD CONTROL 6:* FILE (FC3CTL) IS LOCATED ON THE .S$COMM DIRECTORY. :* '>* SYNONYMS: THE FOLLOWING SYNONYMS ARE USED IN THIS BATCH >2* STREAM. ALTERNATE VALUES MAY BE ASSIGNED. 2* '**  SYNONYMS  DEFAULT VALUEUSAGE *** $$DSC$ DS01  TARGET VOLUME/DISK *6* OBJ  $COBJ.DUTIL.O UTILITY OBJECT DIRETORY 6.* $COBJ  DXCMO COMM COMMON DSR PARTS .@H"******************************************************************* HBATCH LS=YES !.SYN$E$C="0"! .IF @$$DSC$, EQ, "$$DSC$"  AS S=$$DSC$, V=@DS01 .ENDIF%  .IF @$COBJ, EQ, "$COBJ"  AS S=$COBJ, V=DXCMO  .ENDIF%  .SYN OBJ=@$COBJ.DUTIL.O  .SYN SRC=@$COBJ.DUTIL.S  Q$SYN % "CFDIR PN=@$$DSC$.S$COMM, ME=30"* '$CFPRO P=@$$DSC$.S$COMM.S$COMMPF,$ MAX NUMBER OF TASKS=80,  MAX NUMBER OF PROCEDURES=80,  MAX NUMBER OF OVERLAYS=255* '*DT P=@$$DSC$.S$COMM.S$COMMPF,TN=COMMOD*,DT P=@$$DSC$.S$COMM.S$COMMPF,TN=COMMDWNL,*DT P=@$$DSC$.S$COMM.S$COMMPF,TN=COMMLM**DT P=@$$DSC$.S$COMM.S$COMMPF,TN=FC3DP1** '<IT PF=@$$DSC$.S$COMM.S$COMMPF,TN=COMMOD,OBJPN=OBJ.COMMOD <EC'(IT PF=@$$DSC$.S$COMM.S$COMMPF,TN=COMMD( WNL,OBJPN=OBJ.COMMDWNL EC'<IT PF=@$$DSC$.S$COMM.S$COMMPF,TN=COMMLM,OBJPN=OBJ.COMMLM <EC'<IT PF=@$$DSC$.S$COMM.S$COMMPF,TN=FC3DP1,OBJPN=OBJ.FC3DP1 <EC'* '******** COPY FC3DP1 INPUT CONTROL FILE*"MFP PN=@$$DSC$.S$COMM.FC3CTL, " WRITE-DELETE PROTECT?=NO,  DELETE PROTECT?=NO* '0CC I=SRC.FC3CTL,O=@$$DSC$.S$COMM.FC3CTL, R=Y0EC'* '"MFP PN=@$$DSC$.S$COMM.FC3CTL, " WRITE-DELETE PROTECT?=YES, DELETE PROTECT?=YES EC' .USE @$$DSC$.S$PROC &******INSTALL CDL SCI COMMAND PROC& .PROC % *CDL(COMM DEVICE DOWNLOAD UTILITY) = 2,*&COMM DEVICE NAME= ACNM(@$COMMDV), &&INPUT CONTROL ACNM= ACNM(@$INPUT),&(OUTPUT CONTROL ACNM= ACNM(@$OUTCTL),( LISTING ACNM= *ACNM(@$OUT).IF "@$$MO",EQ,0 MSG T=2"ERROR: COMMDWNL CANNOT BE BID IN BATCH MODE" 2 .EXIT % .ENDIF% &.SYN $COMMDV="@&COMM DEVICE NAME" & .IF "@$COMMDV",LE,"DS99" .IF "@$COMMDV",GE,"DS00"&MSG T="ERROR: INVALID DEVICE NAME"& .EXIT % .ENDIF%  .IF "@$COMMDV",LE,"DK99" .IF "@$COMMDV",GE,"DK00"&MSG T="ERROR: INVALID DEVICE NAME"& .EXIT % .ENDIF% .ENDIF% .ENDIF% @.SYN $INPUT = "@&INPUT CONTROL",$OUTCTL = "@&OUTPUT CONTROL" @ .IF "@$OUTCTL",NE,"DUMY" .DATA .S$PROC.M$ST@$$ST  READ RESERVED MEMORY STATUS  :BEG ENDPATHNAME OF 1ST DOWNLOADED FILE DATETIME:.EOD& .ENDIF% :.SYN COMM=@@$COMMDV,INPUT="@$INPUT",OUTCTL="@$OUTCTL" :$AL ACCESS NAME=@@COMM,P=NO,D=NO $ .IF @@$$CC,NE,00000  .EXIT % .ENDIF%  .EVAL $CMLU=@@$$LU@ .SYN OBJFILE="DUMY" $AL ACCESS NAME=OBJFILE,P=NO,D=NO$ .SYN OBJLUNO=@@$$LU $AL ACCESS NAME=@$INPUT,P=NO,D=NO$ .SYN INLUNO=@@$$LU&AL ACCESS NAME=@$OUTCTL,P=NO,D=NO & .SYN OUTCLUN=@@$$LU  .IF "@&LISTING",NE,""  .SYN OUTPUT="@&LISTING"  .SYN $OUT="@&LISTING"  .ELSE %  .SYN OUTPUT=".OUTPUT@$$ST".SYN $OUT = ""! .ENDIF%  .IF "@@OUTPUT",NE,"DUMY".DATA @@OUTPUT!.EOD& .ENDIF% &AL ACCESS NAME=@@OUTPUT,P=NO,D=NO & .SYN OUTLUNO=@@$$LU 2AGL ACNM=".S$COMM.S$COMMPF",PF=YES,DISPLAY=NO 20.BID TASK=COMMDWNL,LUNO=@$$LU,PARMS=("2,2") 0 .IF "@$$CC" ,NE,"00000" .SYN CMERR=@$$CC  .ENDIF% RGL L="@$$LU" !RL LUNO=@INLUNO RL LUNO=@OBJLUNO RL LUNO=@$CMLU! .IF "@$OUT",NE,"" RL LUNO=@OUTLUNO .SYN OUTLUNO= ""  .ENDIF% B.SYN $$LU= "",INLUNO="",$CMLU="",COMM="",OBJLUNO="",OBJFILE="" B,.SYN $RM= "",$PRMB="",INPUT="",OUTCTL="",$.IF "@OUTPUT",EQ,".OUTPUT@$$ST" $ DF P=.OUTPUT@$$ST  .ENDIF%  DF P=.SYSMSG@$$ST  .IF "@$OUTCTL",NE,"DUMY".AF INPUT=@$OUTCTL,OUTPUT=.S$PROC.M$ST@$$ST. .ENDIF% RL LUNO=@OUTCLUN  .SYN OUTCTL= "",OUTCLUN="" .IF "@&LISTING",EQ,"" .SHOW @OUTPUT  .ENDIF% .SYN OUTPUT=""! .IF "@$OUTCTL",NE,"DUMY"/@ME& .ENDIF% .EOP&.USE&EC' .USE @$$DSC$.S$PROC (****** INSTALL CLM SCI COMMAND PROC ( .PROC % &CLM (COMM DEVICE LIST MEMORY) = 2,&( COMM DEVICE NAME= ACNM (@$COMMDV), (  LISTING ACNM= *ACNM(@$OUT)  .IF "@$$MO",EQ,0   MSG T=" ,ERROR: CLM CANNOT BE BID IN BATCH MODE" ,  .EXIT$ .ENDIF% * '6*  VALIDATE DEVICE NAME AND ASSIGN TO '$COMMDV' 6* '&.SYN $COMMDV="@&COMM DEVICE NAME" & .IF "@$COMMDV",LE,"DS99" .IF "@$COMMDV",GE,"DS00" &MSG T="ERROR: INVALID DEVICE NAME"&.SYN $COMMDV=""  .EXIT "  .ENDIF #  .IF "@$COMMDV",LE,"DK99"  .IF "@$COMMDV",GE,"DK00"( MSG T="ERROR: INVALID DEVICE NAME" ( .SYN $COMMDV=""  .EXIT! .ENDIF"  .ENDIF # .ENDIF% * ',*  ASSIGN SYNONYM TO SAVED OUTPUT FILE,* ' .IF "&LISTING ACNM",NE,""   .IF "&LISTING ACNM",NE,@ME   .SYN OUT="&LISTING ACNM".DATA @@OUT (.EOD#  .ELSE$ .SYN OUT=@ME  .ENDIF # .ELSE %  .SYN OUT=.COMMLM@$$ST.ENDIF%* ' *  GET PARAMETERS FOR TASK * ' .LOOP % CLM1& .UNTIL "@$$CC",NE,"00000"  .REPEAT $ * '*  DELTETE SYNONYMS * ' .SYN $FP1="",$FP2="",$FP3=""  .IF "&LISTING ACNM",NE,""  .SYN $OUT=@OUT  .ELSE %  .SYN $OUT=""  .ENDIF% .SYN OUT="" "* '*  RELEASE LUNOS* '.SYN $$LU="""RLLUNO=@$CMLU .SYN $CMLU="" !.EOP&.USE&EC' .USE @$$DSC$.S$PROC &***** INSTALL CMM SCI COMMAND PROC& .PROC % (CMM (MODIFY COMM DEVICE MEMORY) = 2,(( COMM DEVICE NAME= ACNM (@$COMMDV), ( STARTING ADDRESS= INT.IF "@$$MO",EQ,0 4 MSG T="ERROR: CMM CANNOT BE BID IN BATCH MODE" 4  .EXIT$ .ENDIF% * '*  VALIDATE DEVICE NAME * '&.SYN $COMMDV="@&COMM DEVICE NAME" & .IF "@$COMMDV",LE,"DS99" .IF "@$COMMDV",GE,"DS00" &MSG T="ERROR: INVALID DEVICE NAME"&.SYN $COMMDV=""  .EXIT "  .ENDIF #  .IF "@$COMMDV",LE,"DK99"  .IF "@$COMMDV",GE,"DK00"( MSG T="ERROR: INVALID DEVICE NAME" ( .SYN $COMMDV=""  .EXIT! .ENDIF"  .ENDIF # .ENDIF% * '8*  VALIDATE STARTING ADDRESS AND ASSIGN TO '$FP1' 8* '&.IF "&STARTING ADDRESS",GT,">FFFF"&( MSG T="ERROR: ADDRESS OUT OF RANGE"(  .EXIT$ .ENDIF% &.IF "&STARTING ADDRESS",LT,">8000"&2 MSG T="ERROR: ROM ADDRESS,CANNOT BE MODIFIED"2  .EXIT$ .ENDIF% "* ENTER AS A NEGATIVE NUMBER "".SYN $FP1="&STARTING ADDRESS" " .EVAL $FP1=@$FP1->10000  * IS $FP1 AN ODD NUMBER?  .EVAL TEMP= @$FP1/2 *2 .IF "@TEMP",NE,"@$FP1" .EVAL $FP1=@TEMP-2 **  MAKE $FP1 EVEN NEXT LOWER ADDRESS * .ENDIF% * '*  ASSIGN LUNO TO FCCC* '(AL ACCESS NAME=@$COMMDV,P=NO,D=NO ((*  WAS LUNO ASSIGNED SUCCESSFULLY?( .IF @@$$CC,NE,00000   .EXIT$ .ENDIF%  .EVAL $CMLU=@@$$LU* ' *  PASS MODE AS PARAMETER  * ' .EVAL MODE=@@$$MO :.SYN OUTPUT=.OUTPUT@$$ST,SYSMSG=.SYSMSG@$$ST,INPUT="" :* '*  BID TASK * '2AGL ACNM=".S$COMM.S$COMMPF",PF=YES,DISPLAY=NO 2..BID TASK=COMMOD,LUNO=@$$LU,PARMS=("1,1") . .SYN P$SC="",MODE="",TEMP=""  DF P=.SYSMSG@$$ST  DF P=.OUTPUT@$$ST .SYN $FP1="""RGL L=@$$LU "RL LUNO=@$CMLU!.SYN $CMLU="" !.EOP&.USE&EC' .USE @$$DSC$.S$PROC (***** INSTALL CLM1 SCI COMMAND PROC ( .PROC % &CLM1(COMM DEVICE LIST MEMORY)= 2, & LENGTH(BYTES)= *INT("32")* '4*  VALIDATE LENGTH(BTYES) AND ASSIGN TO '$FP1'4* ' .IF "&LENGTH(BYTES)",EQ,"" .SYN $$CC="04000"  .EXIT$ .ENDIF%  .IF "&LENGTH(BYTES)",EQ,0  .SYN $$CC="04000"  .EXIT$ .ENDIF%  .SYN $FP1="&LENGTH(BYTES)".EVAL $FP1=@$FP1  .IF "@$FP1",GT,">FFFF"( MSG T="ERROR: LENGTH OUT OF RANGE" (  .EXIT$ .ENDIF%  .IF "@$FP1",GT,">7FFF""* ENTER AS A NEGATIVE DECIMAL" .EVAL $FP1=@$FP1->10000 .ENDIF% * '2* GET STARTING ADDRESS AND FORMAT PARAMETERS 2* ' .LOOP % CLM2&* '(* LOOP UNTIL VALID STARTING ADDRESS (AND FORMAT * ' .UNTIL "@$$CC",EQ,"00000"  .REPEAT $ .EOP&.USE&EC' .USE @$$DSC$.S$PROC (***** INSTALL CLM2 SCI COMMAND PROC ( .PROC % &CLM2(COMM DEVICE LIST MEMORY)= 2,&$ STARTING ADDRESS= INT(@$SVFP2),$( FORMAT(ASCII OR EBCDIC)= STRING(A) ( .SYN $$CC="00000" * '8*  VALIDATE STARTING ADDRESS AND ASSIGN TO '$FP2' 8* '&.IF "&STARTING ADDRESS",GT,">FFFF"&( MSG T="ERROR: ADDRESS OUT OF RANGE"( .SYN $$CC= "01000"   .EXIT$ .ENDIF% ".SYN $FP2="&STARTING ADDRESS" " .SYN $SVFP2=@$FP2  .IF "@$FP2",GT,">7FFF""* ENTER AS A NEGATIVE NUMBER " .EVAL $FP2=@$FP2->10000 .ELSE %  * POSITIVE OR ZERO  .EVAL $FP2=@$FP2  .ENDIF% * '*  VALIDATE FORMAT AND ASSIGN TO '$FP3' * '*.IF "&FORMAT(ASCII OR EBCDIC)",GE,"A" ** .IF "&FORMAT(ASCII OR EBCDIC)",GE,"B"**.IF "&FORMAT(ASCII OR EBCDIC)",LT,"E" *" MSG T="ERROR: INVALID FORMAT"" .SYN $$CC= "02000"   .EXIT! .ELSE " * .IF "&FORMAT(ASCII OR EBCDIC)",GE,"F"*"MSG T="ERROR: INVALID FORMAT" " .SYN $$CC= "02000" .EXIT   .ELSE! .SYN $FP3="E"   .ENDIF .ENDIF"  .ELSE$ .SYN $FP3="A"   .ENDIF # .ELSE % " MSG T="ERROR: INVALID FORMAT"" .SYN $$CC= "02000"   .EXIT$ .ENDIF% * '&*  CREATE TEMPORARY OUTPUT FILE &* ' .IF "@OUT",EQ,".COMMLM@$$ST"  .DATA @@OUT!(  .EOD $ .ENDIF% * '*  BID UP FCCCLM* '(AL ACCESS NAME=@$COMMDV,P=NO,D=NO ( .IF @@$$CC,NE,00000   .EXIT$ .ENDIF%  .EVAL $CMLU=@@$$LU2AGL ACNM=".S$COMM.S$COMMPF",PF=YES,DISPLAY=NO 2..BID TASK=COMMLM,LUNO=@$$LU,PARMS=("2,2") .* '2*  DISPLAY TEMPORARY FILE AND THEN DELETE IT2* '".IF "@@OUT",EQ,".COMMLM@$$ST" " .SHOW @@OUT! DF PATHNAME=.COMMLM@$$ST  .ENDIF%  DF P=.OUTPUT@$$ST  DF P=.SYSMSG@$$ST RL L=@$CMLU " .SYN P$SC="",$CMLU="" RGL L=@$$LU ".EOP&.USE&EC' .USE @$$DSC$.S$PROC  .PROC % 6CRMS(COMM DEVICE READ RESERVED MEMORY STATUS) = 2,6&COMM DEVICE NAME= ACNM(@$FCCCDV), &(OUTPUT CONTROL ACNM= ACNM(@$OUTCTL) ($AL ACCESS=@@&OUTPUT CONTROL ACNM$ .IF "@$$CC",NE,"0".CM M="OUTPUT CONTROL FILE DOES NOT EXIST ". .EXIT $ .ENDIF% CDL :C="&COMM DEVICE NAME",I=DUMY,O="&OUTPUT CONTROL ACNM", : L=DUMY% .EOP&.USE&EC'F!******************************************************************F Q$SYN % 6CM R=ME, M="@$E$C ERRORS REPORTED IN BATCH UTLINS"6LS'.STOP CODE=@$E$C " .SHOW @@OUT! DF PATHNAME=.COMMLM@$$ST  .ENDIF%  DF P=.OUTPUT@$$ST  DF P=.SYSMSG@$$ST RL L=@$CMLU " .SYN P$SC="",$CMLU="" RGL L=@$$LU ".EOP&.USE&EC' .USE @$$DSC$.S$PROC  .PROC % 6CRMS(COMM DEVICE READ RESERVED MEMORY STATUS) = 2,6&COMM DEVICE NAME= ACNM(@$FCCCDV), &(OUTPUT CONTROL ACNM= ACNM(@$OUTCTL) ($AL ACCESS=@@&OUTPUT CONTROL ACNM$ .IF "@$$CC",NE,"0".CM M="OUTPUT CONTROL FILE DOES NOT EXIST ". .EXIT $ .ENDIF% CDL S DUTIL FC3CTL `PQ.f$$.S$COMM.S$COMMPF0000 FC3DP1 $@&&`΋ gEFD݄DՄh&h 4S /( . H`h<g'  h&gE  !     2  `΋# 6 . T  6 ݂݂ `  E`šݴ &`ݠݠݱ `!     2 ݲݲݲՒ`΋ê'  (Dg D*'g DD gg DDD  'g DD g' hgE   `h`΋ ///'  `h( . H`h `   "``Ƌ  >>      2   2 Vy/' `hO DUTIL COMMDWNL PZ $COMMLM PCA$COMMOD PZ$FC3DP1 P$P"COMMDWNL2AC~CCDBCLBBB Cz~B CBB2BBBCBBF COMMDWNLPPC6CyCzzBC6CzC~BCzBB{BBBBB[BB/C~B C~B B`F COMMDWNLPPCBàCBCB`BB BB CLB BB`C BBBCnBB CLB`F COMMDWNLPRPCBBABBENBD$B BCBʀB(BƋB CB BÀBCrB*B`CBB)B(F COMMDWNLPPBBBB`BBCCBCBBBBB0BBCJCBF COMMDWNLPRPCB:BB*B BBB*BB B C BB C2B B C'.B BB)B*BF COMMDWNLPPBDB6BBB,BCB C:B BB B CB)B6B BB B C B)B.F COMMDWNLPPB C2B B)B,BB_BB0B\B)B,BTB CPB B_B2B)B2BBB F COMMDWNLPRPBBCB)B2BB,BB)B0BBDB"BiB(B$BB(B`CB*BB,F COMMDWNLPPBiB0B.BDB0BB0BB6BCB2B)B0B)B(BB0BiB0BB)B6B$F COMMDWNLPPBBDB8BFB8BBBB CBBB)B0B$BBDBBB)B,BB&F COMMDWNLPRPBCBDBBB2BcB&BBB)B,BB`CBBCrB0BLB(B`CF COMMDWNLPPBBB B BBB=B[B B=BB[BB B BB=BBB[B B=BF COMMDWNLPPB[BBB`CBBB-BBCBBB CB BBBʀB(B CB F COMMDWNLPRPBDMBPPB$HBEABBBB**B* BDUBMPB OBF BHEBAPB *B**CBCNCBCF COMMDWNLPPB6BBBB@B C2B BBB@BCBCBCB C2|B BB@B F COMMDWNLPPC2B BB(B#B8BB4BB(BCBCB*BCB,BB,BB4BGBBDCF COMMDWNLPRPBBB,BB,BB.BBBBB.BB.BB4BGBBDCBBB,BBBF COMMDWNLPPBBB,BBB*BB)B4CBeB`CB4BdBB0BiB0BUB*BB*B BF COMMDWNLPPBB BBHBB*BSB2BBB*B`BBCB2BB2B BBiB2B*BF COMMDWNLPRPBB*BBCB,BB*BB2BBBB*BBBBB.BB BBB BBBeF COMMDWNLPPBB.BB,B BB.B BBBeBB*BiB*B.BB@B C2B BBF COMMDWNLPPB,BB.B C B BBB0BcBB0B)B0BBB`C&B`CBDUBMPB$PF COMMDWNLPRPBROBBBBB *B**B DBUMBP BOFB PBROBCEBSSB *B**CbBB PBROBCEBSSF COMMDWNLPPB RBECBORBD BFOBR C~B BB B BENBTRBY BPOBINBT CBB8B B TBOPF COMMDWNLPPB OBF BSTBACBK CB *B**B EBNDB OBF BPRBOCBESBS BDUBMPCCCRBCF COMMDWNLPRPB:BBB`C\B6BiB(B,B CPB B_B.BB@B C2B BBB@BF COMMDWNLPPC^BC`BCzB C2|B BB@B C2B B)B,BiB,B.BB C'"B B_F COMMDWNLPPB0BiB0B%BB"B%BB$B$B&BB@B C2B BBB@BC|BBF COMMDWNLPRPCB C2|B BB.BSB8BB8BCBCB2BSB2B BBB@BCBCF COMMDWNLPPBB2BBBB@BCBCBCB C2|B BBB@BCBCZBF COMMDWNLPPBCB C3B BB@B C2B BB,B#BB B EBNTBRYB PBOIBNTF COMMDWNLPRPCB2BBLEBVEBL=CC CBC B@BBB)B(BB,BBdB,B>BF COMMDWNLPPBdB"B>BB4BB`CB4BBB4BB>BcBB.BiB>BʯB@B(B F COMMDWNLPPC2B BʯB@B(BʠCB*BʠCB,BʠCB.B C2|B BB4BQBB#B(F COMMDWNLPRPBB@BCBCBB B BʯB@B(BʠCB*BʠCB,BʠCB.B BʯF COMMDWNLPPB@B(B C2B B%B$CBBB"BB>BBBBB#B>BCBB(BʩBB F COMMDWNLPRPBiBBCBB:BB`CZB`CBENBC$BT B BBB C F COMMDWNLPPC BCrBB`C F COMMDWNLPPB6BiB.BBYBXBiB.BUB2BSBB,BPBOBiB*B,BBBiB,B*F COMMDWNLPPBiB.BB)B*BBDB8BDB2BBB`C B6B7BiB8B2BiB2BaiB,F COMMDWNLPRPBEB8B)B.BBEBB)B:B B BDBBB BB`CBBiBB%B0F COMMDWNLPPB)B8B B BB@BB8B)B,BBiB8B BIB%B BREBCOBRDB LBENBGTBH BBkBCB RF COMMDWNLPRPBEABD BERBROBRBUBhBB BBBBCB ABTTBEMBPTB TBO BREBADB PF COMMDWNLPPBASBT BEOBFBLBBBBBBBCB ABTTBEMBPTB TBO BSKBIPB BBEYF COMMDWNLPPBONBD BEOBMB5BCB NBOTB OBPEBNEBD BFOBR BREBADBINBGB&BCB WF COMMDWNLPRPBRIBTEB EBRRBORBBBCB NBOTB OBPEBNEBD BFOBR BWRBITBINBGB BF COMMDWNLPPB BCB -B SBTABTUBS B= BBCBCB CB B`CBMABP$B B F COMMDWNLPPBBOBB8B BBB B.CCBCBBBBBBBIBFB%B'F COMMDWNLPRPB BB BBFB4BeB'BBBBiB4BqEBBEBB`CB8BOBIB`F COMMDWNLPPCBIB`CB C-|B BiB8B:B`CBBOBIB`CBIB`CB BiBF COMMDWNLPPB BB'BB B(B8B B BCBiB8B BEB6BB0BBBBEBF COMMDWNLPRPBʅB*B C:B BBiB6BBFBBJBiB0BBBIBFB%B8BBBOF COMMDWNLPPBiB0B`CB C:B B)B4CBB`CB4BB`CB4BiB0BBB4F COMMDWNLPPBpBBBiB0BB CBBBBBB BiB0BBBIBFB%B'BF COMMDWNLPRPBBBiB0BB)B4B CBBiB0BB)B4B CB`CB7B BB7F COMMDWNLPPB7B7B7B7B7B7BB[BCrB,B,B:BBBKBB[BNEBW$B B BF COMMDWNLPPBBB4CC&BCB>BB*B BBB*BBBB BiB4B F COMMDWNLPRPBFBBiB,BB6B B BBCBB`CB,B`CB0BiB,B-BBMF COMMDWNLPPB>BB BiB4B BFBBiB6B-BBMB>BB>B BiB,B BFBB`F COMMDWNLPPC 2B/B@BB BC"BʯB@B(BʠCB*BʠCB,BMBRBʉB.BCB.F COMMDWNLPRPB C3B B/B@BB-BC"BʯB@B(BʠCB*BʠCB,BiB,B BMBRF COMMDWNLPPBʉB.BCB.B C3B BʯB@B(BʠCB*BʠCB,BʠC B.B C2|B F COMMDWNLPPBʯB@B(B C2B B`C 2B`CBBB,BBB B BʌB(B B C2B F COMMDWNLPRPBB,BBB,BB,BBBBBB[BPUBT$BRCBORBB BB B B F COMMDWNLPPBC#C#BCB2BB(B٠C##BB٠C#%BBB,B BBiB*BiB,B`F COMMDWNLPPC#'BB,BfB%B BB BfB%B BEBBfB%B BBBB`C#(B0BIF COMMDWNLPRPB%B0BɅBBɠC# B BB(B C'FB BfBBBB,B BIB%B0BEB*F COMMDWNLPPB`C# B,B`C#*B0BɩB*BBɩB,B BC#,BBB(B C'FB BfBB F COMMDWNLPPB)B.BB`CBREBWNBD$B BBBC$VC#BCB*BiB(B%BB#BF COMMDWNLPRPBBfB%B BBBBfB%B BEBB٠C#BBB C'FB BfBB BOF COMMDWNLPPBiB(BB CB BiB(B`C#BB`CBREBWRBT$B BBC$C$ZBCF COMMDWNLPPB*BB(BOBiB(B`C$dB CB BiB(BBBBB(B C$B BiB(F COMMDWNLPRPBBB BfBB B BEBBB(B C0B BBB`CBREBSUBM$B BF COMMDWNLPPC%C$B CLBB B"BB$BB&BB(BBB(BB(BkB"BëB$BF COMMDWNLPPB&BMBBCB CLBBBCrB0BlB(B(B`CBS$BNABMEB BB8F COMMDWNLPRPB6C%pC%BCB:BB(BfBB8BBBC%$B CB BB'B*BBF COMMDWNLPPCBʉB0BC%&B0B CB BB(BɩB6BB`CBSCBB$BFRBEEBB,B*F COMMDWNLPPC%C%tBCB.BiB(BBfBB,BBBC%~B CB BBBiB(BUF COMMDWNLPRPB*BBC%B CB BiB(BB`CBSCBB$BINBITBB,B&BBBC&@F COMMDWNLPPC%BCB2BOBIB`C%B`C%B C:B BBBBBFB BiB,BBF COMMDWNLPPBBB,BiB(BiB,BC%BBB*BBIC%BBC%BBBIC%BF COMMDWNLPRPBC%BB`CBSEBT$BACBNMBB,C&C&DBCB2B)B(BdBBBB F COMMDWNLPPBB*BГB BBBSB BBB"BeBB,BBBC&NB CB BB*BГF COMMDWNLPPB BBBB.BB BBB.BBBC&NBB.B C:B BiB,BBBF COMMDWNLPRPB*BB0BSB1BFB0B BBBBB*BBBBB`CBSEBT$BNABMEF COMMDWNLPPBC'C&BC B2BB(BʯBB(BB'B*B B(B*BCB C%,B B`F COMMDWNLPPCBBB$BMB(BBB`CB(BBSVBC$B B BC'RC'8BCrB*BiF COMMDWNLPRPB(B/BBTEBRMB$ B BBBNOBRMBALB TBERBMIBNABTIBONC'`BBMEBMOBRYF COMMDWNLPPB PBARBITBY C'vBBILBLEBGABL BOPBCOBDEC'BILBLEBGABL BTIBLIBNEB ABDDF COMMDWNLPPBREBSSB C'BBILBLEBGABL BSUBPEBRVBISBORB CBALBL C'BADBDRBESBSIBNGF COMMDWNLPRPB EBRRBORC'BBPRBIVBILBEGBEDB IBNSBTRBUCBTIBONB C'BTABSKB KBILBLEF COMMDWNLPPBD C'B B.B B\B*B&BTABSKB EBRRBORB #C(BXBB C*C)C)C)C)F COMMDWNLPPC)C)C*BSTBACBK BOVBERBFLBOWC(:BHABLTB CBALBLEBD C(JBHEBAPB FBULBL F COMMDWNLPRPC(XB BDIBVIBDEB BBY BZEBROC(fBFTBN BARBGUBMEBNTB EBRRBORC(vBFTBN BSTF COMMDWNLPPBACBK BOVBERBFLBOWC(BDYBNABMIBC BARBRABY BSIBZEB OBUTB OBF BRABNGBE F COMMDWNLPPC(BBFTBN BFLBOABTIBNGB PBOIBNTB EBRRBORC(C*C*C*C*C*C*C*BCAF COMMDWNLPRPBNNBOTB LBOABD BOVBERBLABY C(BC)C*C*C+C+DC+DC+DC+DC+DC+$BERBROF COMMDWNLPPBR BCOBDEB =B PC)BBB.BB4BB/B(B:BBPABTHBNABMEB B B B B B B B C8F COMMDWNLPPB B B B B B B B B B B B B B BACBTIBONC8B EBRRBORBS C9F COMMDWNLPRPC=&C8BC B6BBBC8BBC8BB(BBCBBBBB BOF COMMDWNLPPBNBBBfBBBBBC8BBʏB(BC8B(BʏB*BC8B*B C-|F COMMDWNLPPB BoBBBC8BB`C=&BBBBB BOBNBBBfBBBBF COMMDWNLPRPBʯB@B(BʠC8B*BʠC8B,BʠC8B.B C2|B BJB-B(BoB@B`C8B}F COMMDWNLPPBOB`C8B BʯB@B(BʠC8B*BʠC8B,BʠC8B.B BBBBB B`F COMMDWNLPPC8BNBBBfBB BBBʉB(BC8B(B CmB B`C8B4BJB-B(F COMMDWNLPRPBOB`C8B`C8BIB`C8BOB`C8B`C8BiB0B C B BoBB B/B@F COMMDWNLPPBBC"BoBB B/B@BBC"B/B@BB/BC"BBBBBBF COMMDWNLPPBC8BB`C8B4BJB-B(BOB`C8B`C8BIB`C8BOB`C8B`C8BiF COMMDWNLPRPB2B C B BoBB B/B@BBC"BoBB B/B@BBC"B/B@BF COMMDWNLPPB/BC"BBBBBBBC8BB`C8B4BJB-B(BOB`C8B`C8F COMMDWNLPPBIB`C8BOB`C8B`C8BiB.B C B BoBB B/B@BBC"BoBF COMMDWNLPRPB B/B@BBC"BBBBBBBʉB(BC8B(B Cn B B`C8B4F COMMDWNLPPBJB-B(BOB`C8B`C8BIB`C8BOB`C8B`C8BiB(B C B B/B@F COMMDWNLPPBB BC"BoBB B/B@BBC"BoBB B/B@BBC"B/B@BF COMMDWNLPRPB:BC"BBBBBBBC8BB`C8B4BJB-B(BOB`C8B`C8F COMMDWNLPPBIB`C8BOB`C8B`C8BiB*B C B BoBB B/B@BBC"BoBF COMMDWNLPPB B/B@BBC"B/B@BB:BC"BBBBBBBC8BB`C8F COMMDWNLPRPB4BJB-B(BOB`C8B`C8BIB`C8BOB`C8B`C8BiB,B C B BoF COMMDWNLPPBB B/B@BBC"BoBB B/B@BBC"BʯB@B(B C2B BBF COMMDWNLPPBBBBBʯB@B(B BʯB@B(BʠC8B*BʠC8B,BʠC8B.B C2|B F COMMDWNLPRPBʯB@B(BʠC8B*BʠC8B,BʠC9 B.B BʯB@B(BʠC8B*BʠC8B,BʠF COMMDWNLPPC9B.B BʯB@B(B C2B BʯB@B(B B`CBEVBALBSYBN BBBBF COMMDWNLPPB@B.B,BBB C>C=*BCB8BBB)B(BqBBلBBBBiB(F COMMDWNLPRPB6BEB6B BBBBB#BBBBB٠C=5BBBB C=6BB C=8F COMMDWNLPPB C-|B B&BB BDB,BBC=:BB2BBBiB,B6BEB6B BBa)F COMMDWNLPPB,B BBB#BB4BBBBBa)B,BDB,BBBC=F COMMDWNLPRPBBC=@BC=4BBC=BB CnRB BBBBC=DBB`CBCOBMMBVEBRSF COMMDWNLPPBBBBBBBC>CBBB"B**BERBROBR*B* BUNBIDBENBTIBFIBEDF COMMDWNLPPB CBOMBM BDEBVIBCEC>8C>C>C?C?DC>BCB,BBB C>#CB C>%CF COMMDWNLPRPB C>'CB C>)CB C>+CBCB C'FB B CB B BC>,BB CF COMMDWNLPPB BɄBPBIBBBBB B C>.BBC>0BBB BBB`CB(BF COMMDWNLPPB*BiB(B+BB*B(B'BBɠC>2BBBB'BBBɠC>4BB!BBF COMMDWNLPRPBɠC> BBBC>$BBB&B@B C>6B4B C>ZB C2|B BB@B C2B F COMMDWNLPPBBBBB B'C>\BXB`CBFIBNDBPFB BBCBBBBBB F COMMDWNLPPB BBBB>BB2B*B**BERBROBR*B* B TBASBKNBAMBE BANBD BTABSKBIDF COMMDWNLPRPB NBOTB MBATBCHBEDC?rBBCCC?HBCBBBBB`C?RB*BB)B*BF COMMDWNLPPB_B BB B B C?TB)B*BBB*B#B_BB*BB)B*BB_B BF COMMDWNLPPB BB)B*BBBCB C?WCBCB C'FB B CB BB`CCB F COMMDWNLPRPC?[CB C?]CBCB C'FB B CB BB CC?^BB`CCB C?aCF COMMDWNLPPB C?[CB CBBB C?hB4B B C?jBB C?lB C?PB B C?nB CnRB BBF COMMDWNLPPBBC?PBB&BB BB B!B&BB BB BBiB4B2BBBBF COMMDWNLPPBC?XBBB&B@B C?pB4B C?B C2|B BB@B C2B BBBBF COMMDWNLPRPB&BB BB B B&BB BB BBiB2B4BBB>B)B4B DB&BF COMMDWNLPPBDB4BBBBB BBC^BGB0B)B4B BBC^BHB4B&BB)F COMMDWNLPPB0BBBBCBCBBBBBBCBCBCBCB C'FF COMMDWNLPRPB B CB BBC?XBBBBBɠC?RBBVBBBBB)B4B$B F COMMDWNLPPBB٣CBB&BBBC?BB)B4B$B BB٣CBB)B4B$B BF COMMDWNLPPB٣CBBBBBC?BBBB+B)B4B$BBB٣CBB)B4B$F COMMDWNLPRPBBB٣CBBɦBBB)B4B٤CBB)B4BBB٣CBBB(B F COMMDWNLPPBBBBBBBBBBB(BB C?SCBCB C'FB B CB F COMMDWNLPPBBC?XBBB(BB C?CBCB C'FB B CB BBC?XBB&F COMMDWNLPRPBB tBB CB BɄBBBBBɠC?RBB`CBINBITBORBECBBCD(F COMMDWNLPPCDBCrB(BBBBBBBɠCD BB`CBOTBAGB B BBB@B F COMMDWNLPPBCDCD,BCB(BBBFBfBB%BB BB0BBɠCD6BBBFBfF COMMDWNLPRPBB%BB BBBɠCD8BBBCD:BBBB+BFBfBB%BB BF COMMDWNLPPBBBBBB C7B BɦBBBBCDBϠCEBǏBCEB CpB BÊB.B(BϯB`B>F COMMDWNLPPBϠCEBǏBCEB BÊB.B(BϯB`B>BϠCEBǏBCEB BÊB.B(BϯB`F COMMDWNLPRPB>BϠCEBǏBCEB BÊB.B(BϯB`B>BϠCEBǏBCEB BÊB.B(BϯF COMMDWNLPPB`B>BϠCEBǏBCEB BʯB`B(B Cr>B BB'BB CEB BBCF COMMDWNLPPBB`CEB(BÊB.B(BǏBCEBϠCEBϠCEBljBCEBǏBCEBϠCEBǏF COMMDWNLPRPBCEB CkB BBB BB'BB CEB BBCBBCEBBIBF COMMDWNLPPBoBB BB BBoBB BB BBBBRB CECB CECBBRF COMMDWNLPPBB CH^BB C[B B CLFB BBBBBB BBBBBCEBF COMMDWNLPRPBB CDB BBB B CPB BBBBBBBBBBBBBF COMMDWNLPPBBBBÊB.B(BϯB@BǠCEBϾBǏBCEB C2|B B/B@BB BC"F COMMDWNLPPBÊB.B(BϯB@BǠCEBϾBǏBCEB C2|B B/B@BB BC"BBBF COMMDWNLPRPB CPB B C\B B`CF.B`CBDWBNLBPFB BBB B BBBCJjCHDF COMMDWNLPPBCBB*BBB*B B/BBCpBBCL@BBBBF COMMDWNLPRPBB CJB BʯBB(B CB B`CsBPTBAGB B BBCMCMCMCMCMF COMMDWNLPPCMCMCMCMCMCMCMCMCMCMCMCMCMCMCMCMCMCMCMCMCMCM"BF COMMDWNLPPCu2B*BBBÏBBBnBB BBBÏBBBnBB BMB(BBBF COMMDWNLPRPB(BB2B)B(B"B CNBB COBB CO8BB CN4BB CNBB CNF COMMDWNLPPBB CPB B CNBB CNBB COBB CPB BBCM,BB`CuFBF COMMDWNLPPBJBB'BB B'CM.BXBABBSDBATBA BCN CNBCB(B C7B B CKF COMMDWNLPRPB B`CBCHBECBKSBUMBBCNrCN$BCB*BBBfBB(B C7B BF COMMDWNLPPBB)B(BDBB&BBfBBBBEB(BB(BBCN.BB`CBENBDRF COMMDWNLPPBECB BBCNCNvBCrB(BBBɠCNBB`CBIGBNCBSUBM BCNCNF COMMDWNLPRPBC B(B C7B B`CBJSBYMBDEBFNBCNCNBCB(B CPB B C7F COMMDWNLPPB B`CBPRBOGBDEBFNBCO$CNBCB(BBB C7B BfBB%BBɅF COMMDWNLPPBBFBfBB%BB BBBBBBBBBB`CBREBLABDDBR BF COMMDWNLPRPBCOCO(BCB,BBBlBB C7B BB(B B`CO2B(BBBBF COMMDWNLPPBBBBBBBfBB(BfBB*BBBBBfBB(BBBfBF COMMDWNLPPB*BB CKB BB`CBREBLDBATBA BCOCOBCB*BBB C7B F COMMDWNLPRPBBBBBBBBBB CKB B`CBREBLEBNTBRYBCOCOBC F COMMDWNLPPB(B C7B B`CBSYBMDBEFBN BCP>COBCB(BBB C7B BfBF COMMDWNLPPB%BBɅBBFBfBB%BB BBBBBBBBBB`CBPLBOGF COMMDWNLPRPBMSBG BBEBBB(BBBBREBLEBASBE CPZBRC>BLBBB**B SBYSF COMMDWNLPPBTEBM BLOBG BERBROBR:B CPnB B- CPCBCR$CPBBCB*BBBBF COMMDWNLPPBB CPMCUB`CPNB(BBC>BB CPPB CPJB B CPRBB CPTB CPVF COMMDWNLPRPBB CPXB5BB'BB CPbB BBCBB CPeCUBBBBB&B F COMMDWNLPPCPfBBBB#BBBBB CPiCUB`CPNB(BBC>BB CPPB CPJF COMMDWNLPPB B CPRBB CPTB CPVBB CPjB CB BBBBBBB0B B F COMMDWNLPRPCPfBBBB#B_BHBBBBBBB B CPfBBBB#BB{BF COMMDWNLPPBBCB C'FB B CBEBB&B@B CPlB4B CPB C2|B BB@B F COMMDWNLPPC2B BBBB)BB&B@B CPBB C16B BB&B@B CPJB4B CPF COMMDWNLPRPB C2|B BB&B@B CPBCPBBГB BB C16B BB@B C2B BF COMMDWNLPPBBCPBB CB BɄBPB`CBPOBUTBCTBL BBBBB.BBB F COMMDWNLPPB,CSCR(BCB4BBBBB CujB BBfBB2BDB2BBB`CSF COMMDWNLPRPBBBBB.BCB0BOBfBBBBCBFB`CR2B CuB B`CR4B.BBBF COMMDWNLPPCR2BCR6BCR0BBCR8BBCR:BCR6BB "BB"B>BB CB B`F COMMDWNLPPCR4B.BBBCRB4BBB BB B.BBBBBBF COMMDWNLPPBBBBBBBBBBBBBBBBɠCR>BBɠCR>BBɠCR@F COMMDWNLPPBBɠCR@BB&BNBBB'BBB(BB BBCBBBBB.BCB0F COMMDWNLPRPBOBfBBBBCBFB`CR2B Cv6B BB`CRbBBBB0BBBBCR?F COMMDWNLPPBBBB`CBREBADBMSB BB,BBCBCTCSBCB0BBB F COMMDWNLPPCSCB CSCBCB C'FB B CB B&BCSBB CB BɄBPBF COMMDWNLPRPBBABBB>B&BBBBBBBB&BB $BBB>BBBBF COMMDWNLPPBB'BɦBBNB&BBfBB.BEB.BBB $BDB,BBBCSBB,F COMMDWNLPPBB>BBBBB?BBBBB@BB"BBABBBCSBB`CF COMMDWNLPRPBREBLEBASBEMBBmBBBCUCTBCB(BBB CTCB CTCB F COMMDWNLPPCTCB CTCB CTCB CTCB&BCB&BCB CTCB CTCF COMMDWNLPPBCB C'FB B CTCB`CB BBCTBB`CB BɅBPB`CBREF COMMDWNLPRPBLRBESBV BBB0B`BBBBBBBBB B B B CU>BREBLEBASF COMMDWNLPPBE CUHBB,BBBB B CU\BBB$BBB*BBBB]BBBF COMMDWNLPPC[CUBCB4BBB C>fB BB`B CpfB B&B`BCpBBɠCU(BF COMMDWNLPRPB`C[BBB&B`BCpBB`CXBBBB`CXBB&B`B4B CU*BF COMMDWNLPPB CU,B CpB BB&B`B4B CU.BB CU0B BB&B`B4B CU2BB F COMMDWNLPPCU4B BB&B`B4B CU.BB CU6B BB&B`B4B CU8BB CU:B BF COMMDWNLPRPB&B`B4B CU&BB CUB BBBB BB BBBF COMMDWNLPPB BB BBBɄBRBB'BB CUFB BBCBBɠCU(BBBB'F COMMDWNLPPBB CUPB BBCBBCURBB`CXjB`CU(B,BBB CU6B CU.B F COMMDWNLPRPCU&B B CUTBB CUVB CU.BB CUXB CkB BBBBCU&BB`CXjF COMMDWNLPPB`CU(B,BBB CU0B CU.B CU&B B CUTBB CUVB CU.BB CUZB F COMMDWNLPPCkB BBB BB'BB CU`B BBCBBCU(BB`CXjBɦBBF COMMDWNLPRPBBB CujB B&BBBBBBBBBBBBCB,BDB.BB̦F COMMDWNLPPBB̃B̄BĆBCUbB CuB BB'BBB(BB BBCBBBBF COMMDWNLPPBBBBB CB BBBBBB'B`BB(BB B0BCBB&F COMMDWNLPRPB`B BB BBCUdBBBCU(BB&B`B BB BBɠCUfBBBF COMMDWNLPPB.BBB+B`CU(B,BBB CUhB CU.B CU&B B CUTBB CUVB CU.F COMMDWNLPPBB CUjB CkB BBB B&BBa&BBBBBB CDB BBCU(F COMMDWNLPRPBBBBB CTB BB&B@B CU*B4BB CU,B C2|B B&B@BB F COMMDWNLPPBC"BB&B@B CU2B4BB CU4B C2|B B&B@BB BC"B CPB F COMMDWNLPPB C\B B`CUBBBBBBBB`C[8BBBB0B BBBBF COMMDWNLPRPB#B_B BBBBBBRB BB&BB B CUlBB CvB B`CU(B(F COMMDWNLPPBBRBBB(B C?B3B C[B BBB CtB BʦBB0B CvB BɟF COMMDWNLPPBBBCUdBBB CDB BB&BBB CUnB CttB B CDBB BBF COMMDWNLPRPBBBBBBBBBBBB CB BBB*BB&B@B CU*B4F COMMDWNLPPBB CU,B C2|B B&B@BB BC"BB&B@B CU2B4BB CU4B C2|F COMMDWNLPPB B&B@BB BC"B CPB B C\B B&B`BCpBB`C[ BB&B`F COMMDWNLPRPB4B CU*BB CU,B CpB BB&B`B4B CU.BB CU0B BB&B`B4F COMMDWNLPPB CU2BB CU4B BB&B`B4B CU.BB CU6B BB&B`B4B CU8BF COMMDWNLPPB CU:B BB&B`B4B CU&BB CUB BBBB BF COMMDWNLPRPB BBBB BB BBBɄBRBB'BB CUFB BBCB1BCU&F COMMDWNLPPBBB&B@B CU*B4BB CU,B C2|B B&B@BB BC"BB&B@B F COMMDWNLPPCU2B4BB CU4B C2|B B&B@BB BC"B CPB B C\B BBɠCU(F COMMDWNLPRPBBB'BB CUFB BBCBBBBB`CYBBBB`CYBB`F COMMDWNLPPB CB B&BCUpBB>B&BCUrB:BBB7B&BB BBC^BBF COMMDWNLPPBBB&BCB&BCB CUuCB CUwCB CUwCBCB C'FB B F COMMDWNLPRPCUyCB٠CBB٠CBB CB B BCUzBB CB BɄBPBBɠCU(F COMMDWNLPPBB`CBSEBTABCNBM BB0BB(C\ZC[BC BZBBBBBBBÉF COMMDWNLPPBBBOBoBBۭB_B(BÉBBBnB(B BB BB/BC[BBÉBF COMMDWNLPRPBBnB(B BB BB/BBïBBsBBNB(BʏB(BC[B(BʉB*BF COMMDWNLPPC[B*B C&TB B`CBUPBDLBISBT BBBBB*BBBBB(B BOF COMMDWNLPPBSB'C]C\^BC B,BBBBBBC\hBB`C\hB*BÊB.B(BǏBF COMMDWNLPRPC\jBϠC\lBϠC\fBljBC\nBǏBC\pBϠC\lBǏBC\rB CB BÊB.B(BϯF COMMDWNLPPB@BǠC\lBϾBǏBC\jB C2|B BïBB ~B/B`C\hB*BÊB.B(BǏBC\jF COMMDWNLPPBϠC\lBϠC\fBljBC\nBǏBC\pBϠC\lBǏBC\tB CB B/B@BB,BF COMMDWNLPRPC"BÊB.B(BϯB@BǠC\lBϾBǏBC\jB C2|B BʯB@B(B C2B BïBF COMMDWNLPPB ^BFB`C\wB(BoBQB)B`C\hB*BÊB.B(BǏBC\jBϠC\lBϠC\fBljBF COMMDWNLPPC\nBǏBC\pBϠC\lBljBC\xB CB B/BCB/BC BӠCB BBF COMMDWNLPRPB B C\{CB C\}CB C\CB C\{CBʠC\xB*BʠC\B(BCBʇB,F COMMDWNLPPB CwB BBB`CBBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMDWNLPPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBB BB|BBB1BBF COMMDWNLPRPBB2BBBBBCbLBBB BBBB|BBB1BB`BBBa2F COMMDWNLPPBBBBBCbLBBBBBB B ?BB ?BmBBBCBDB[B-BF COMMDWNLPPBmBBqBBBBBpBBB00BBBABBB BCcBB BB'F COMMDWNLPRPBBJB)B#BBGBBCcB(B0BB9BB(BBBHB BEBBBF COMMDWNLPPBBBB`CbhB B B B#B` BBmBBB@B BB BB@B Bp@B F COMMDWNLPPBbABB@BABIBBBCcBBBBBmBBqBBmBBBBCcF COMMDWNLPRPBCcBBBFBEBBBBmBBBGBHBBBBBBBBmBF COMMDWNLPPBBBrBBBBCcBBB8B9B9@BDBBBBBBDBEBBF COMMDWNLPPBBBBBBBBBBBBBB B B B BBB BBB F COMMDWNLPRPBBBBBBBBbBBBaBB BB[BB[BBBBBBF COMMDWNLPPBBBCBBBBEBBBBEBFBBBB[BABBCdBIB1BBF COMMDWNLPPB܀B BBܱBBBBB@B[BB>KB-+B09BA/B*BBmBBBBBF COMMDWNLPRPBB BBBB`CdFBBBѱB B*BBBBBBBBBB BF COMMDWNLPPCd#BBCd"BBBB@BBBBBBmBBBBB BB BB@F COMMDWNLPPBBB"BBBB BBB B*BBB@BB*B BB*BBBB*F COMMDWNLPRPBBB@BBB BB BCd(BB*B BCd'BBBBBEBBFB F COMMDWNLPPBHBBIBBBBmB BBBBBBBBB B4BCd#BBCd"F COMMDWNLPPBBBBBB)BCd$BBCd BBBB BBBCd$BB B+BF COMMDWNLPRPBBBBBBBB+BBB B8BB8GBBBBBBBBBBF COMMDWNLPPBBB BCd!B B B bBB@BBBBB@BBBBBABBBBBF COMMDWNLPPBEB BFB BABBBBBIBBBB@BB0$B.(BBBBBB B:F COMMDWNLPRPBBBBB6BBBB1BB BCeBBCeBBBBBCeBF COMMDWNLPPBCeB B`BBBBBBBBBBBBBBpBBB܀B4B F COMMDWNLPPBܴBBB1B BB`BCBܱBBBBBBBBCBBBBBBF COMMDWNLPRPB@BBjBBBB/BBjB BB*BBB*B"B/B*B$BPB BBBF COMMDWNLPPBBBB BRBʁB BBAB?BʁBB CBB*B&B*BBBBFBʃBBF COMMDWNLPPB*BBBڄBBAB9`CfB=`CfBFB%B00BڅBBBڅBBjB B BʁBF COMMDWNLPRPB*BBBB BBBBBBBBBBJB!BBBBBB BCgZF COMMDWNLPPBBBBBCBCg6BBBBBBCg6BBABBCgXB1BBB܀F COMMDWNLPPB BBܱBBBBB@B[BBjB BYBBB B*BBB BBBF COMMDWNLPRPB BB BBHBBBBBvBBBBB B8B BB8B BBBF COMMDWNLPPBB@BBŒB[BBChBCh(BBBBBCgBBjBBYB*B B*F COMMDWNLPPBBB BB BBBBBB BђB BB'BBBBBBBBF COMMDWNLPRPBBBB B6BBBBBB B6BBBBvB[BBB@B[BjBF COMMDWNLPPBYB-B B*BBB BBHBB BBBsB BBBB8B BB8B F COMMDWNLPPBBBBB8BB BBBBBBBjBBYBBBBSBBGBF COMMDWNLPRPB[BBB@B[BNBBBB qBMBQBB rBBB[BmBBBB*BBF COMMDWNLPPB BB"BBBrBòBBBABCBBB*BBBBBBBCiB*F COMMDWNLPPBBBBB BBBBāB*BBB/B BBB*BpB B*BxBBJF COMMDWNLPRPB!BBʁBpB*BvBBBBCiBCiPBCiB Ci:BjBdBB BCiF COMMDWNLPPBCiPBIB`BBBBB@BBB*BvBBB*BpBBʪBhBjBCiF COMMDWNLPPBCiBCiB Ci~BBB@BCiBCiB BBBBB@BBBBڻF COMMDWNLPRPBbBB*BzBʐBnBBʪBpBfB/B`B*BaB B BB;BBB BBKF COMMDWNLPPB/BrBBB[BBBB\BINBITB$1B BB@BOUBTPBUTB CiBCj2CiF COMMDWNLPPBCB(BBBBCiBCiB B(B*BCBʠCiB2BʠCiB4B CF COMMDWNLPRPB BB@B C$jB B`CBBBMEBSABG$BDXBBCB B.B,CkCj:BF COMMDWNLPPC BBàCB BRBH CjDCBӠCB5BʠCxB(B C$jB BӠCB,BBF COMMDWNLPPBBB BÉBB`CjFBOB۝B-BBB`CjIB,B`CjKB-B`CB4B`CF COMMDWNLPRPB5BCxBʇB(BʉB*BCjLB*B C&TB BʠCxB(B C$jB BÊB.B(BF COMMDWNLPPCxBχBǩB*BϾBϩB(B C2|B BʠCxB(B C2B B CjDCB`CBP$BTEF COMMDWNLPPBRMB BCk6CkBCrB(B,B:BhB BB BBaBBBB C*BBP$F COMMDWNLPRPBUCB B BCkdCk8BCrB*BB(BBCVBBB(BB BCVB`CF COMMDWNLPPBDEBX$BT B BBBBBB#BBB0BCmCkhBCBB`CkrBBiB8B2BBBfBB8BBiB(BiB8B%BB F COMMDWNLPPBDB6BB0BBB9BBBAB&BBFB#BBABBj`Ck|B6BB:BiF COMMDWNLPPB,B BiB:BBB`Ck~BB`CkBF COMMDWNLPRPBBBBCBF COMMDWNLPRPB)B,BiB:BBiB2BB)B.BBiB0BiBBiB8B0BBB(BB8BfBB BEB6BB B$BEB@BBEB>B F COMMDWNLPRPB`CnF COMMDWNLPPB>B`Cn>B@B`Cn@B:BB8BBB(BB8BfBB BEB6BB0BBF COMMDWNLPPB9BBB B8B4BDB%BBEB4B B BBBBBBBB`CnDB:BaF COMMDWNLPRPBB:B`CnFBB B`CB,BCpB[BBRDBS$BT B BBBBBB4B0Cr CpBF COMMDWNLPPCB:BB(BfBB BEB BOBiB(B`CpB CB B`CrB`CpB2BF COMMDWNLPPB*BBBiB,B*BB2BiB(BBCpBB`CpB0ByBfBBiB*BF COMMDWNLPRPB BBB`CpB0BB2BkBiB(BB Cr>B BBBjBB*B B^BfF COMMDWNLPPBBBEB4BB8BiB(BBC4B+BfBBafBBBEB6BEB*B&B%F COMMDWNLPPB)B*BaBDB8BDB,BBiB6B4BBiB*B,B BiB*BaiB,BEB4B)F COMMDWNLPRPB6BaBDB*B BiB6B*BBiB*B8BB*BOBfBBiB*BiB,BIB`F COMMDWNLPPCpBIB`CpB&BBBDBiB.B CwXB BiB4BBɅBBB0BBB8F COMMDWNLPPBBOBiB(BiB0B C.jB B`CBRDBLNB$ B BB,BBBBBCrF COMMDWNLPRPCr$BCB.BB(BfBB BEBEBB,BBBOBfBBfBBfB BIF COMMDWNLPPB`Cr.B CxTB B)B,Cr0B BɩB,BB&BBOBiB(B`Cr2B*BBB)F COMMDWNLPPB,Cr4BB٠Cr7BBBB!BiB,BBEB*BB*B B BfBBiB*BF COMMDWNLPRPB BB BB)B*BBɩB*BBBOBiB(B`Cr8B CB B`CBBF COMMDWNLPPBCsBBBBB$BCsBBAB,B$B$BBBDBBBBB B F COMMDWNLPPB B"BB BBBCrB(BBB`CBBBBBBBBBBBB+@F COMMDWNLPRPBBBB@BBBBB B BBBBB0BCBBBBBBB!F COMMDWNLPPBBCBBBBB BBBGB B BBBBBBBB B BBF COMMDWNLPPBBKBBB B`IBBB`BBMBBBDBBBBB BlB"B[BF COMMDWNLPRPB CLBlBB B BB`C B CLB)B BBiB"BéB$B`CBREBSTB$SF COMMDWNLPPB BCtRCtBCB*BB(BOBiB(BB CB BfBB BEBBB(F COMMDWNLPPB C$B BBBBOBiB(BfBB CttB B`CBREBADB$ B BBPBF COMMDWNLPRPB0BBBBBCu.CtVBCB4BiB(B%BB BDBKB%B Ct`BB)F COMMDWNLPPB*BBBBB B BCB`CtbB0BB%BB%BB%B B B CtdB F COMMDWNLPPCxTB B)B0CtfBBBB%B BBBBBBDB2BFB2BBB BF COMMDWNLPRPBBB)B*BBBB`CtiBBB)B0CtjBBB)B(B CtlB CB F COMMDWNLPPBBB)B(B CtnB CB B`CBB CLBlBB B BB`C B CLF COMMDWNLPPB)B BBiB"BéB$B`CBEXBTNBD$B BCuCu\BC B*BʩB(B(BʠF COMMDWNLPRPCudB*B CB BB(BBB`CBREBADB$RBELBB0BBBBCvCuF COMMDWNLPPBCB4BB(BfBB,BiB.B2BOBfBBiB2BiB*BiB,BfB BIF COMMDWNLPPB`CuB CyB B)B0CuBB٠CuBBɠCuBBB٠CuBBB0BBF COMMDWNLPRPBOBiB(B`CuBBOBiB(B`CuB CB B`CBWRBT$BREBL BB0BF COMMDWNLPPBCvCv"BCB4BB(BfBBBiB.B2BOBfBBiB2BiB*BiB,F COMMDWNLPPBfB BIB`Cv,B CylB BB0BBOBiB(B`Cv.BBOBiB(B`Cv0B F COMMDWNLPRPCB B`CBIOB$TBERBM BBCvCvBCrB.BB(BfBBEBB)B*F COMMDWNLPPBBB,BGBBICvBBBB`CBSTBATBU$B BCvCvBCrB2BF COMMDWNLPPB0BfBB(B`CBTRBM$BMSBG BCwBCvBC B.BB#B(BB:B&BF COMMDWNLPRPBBBB CB BB(B BBB C:B BBiB,B)B)B5BBB`F COMMDWNLPPCBDEBS$BT B BBB Cx:CwFBCrB>B`CwPB8BB,BdBcBB*BF COMMDWNLPPBBiB,B*BB*BBiB.BBUBTBiB.BUB2BOB`CwNB8BiB.BF COMMDWNLPRPB)B*BBDB2BCBBiB,BBEBBCF COMMDWNLPPB0BB(BɩB*BBICxHBBfB%B BBBfB%B BBBBiB*B`F COMMDWNLPPCxJB٠CxMBBɠCxFB BB(B C'FB B٠CxOBBɩB,BBiB.BBBF COMMDWNLPRPBCxHBBB(B C'FB BiB.BfB BfBB 5BBiB.BBfBBBfF COMMDWNLPPBB B)B.BBB`CBGEBT$BRLBREBB CyXCxBCB4BB(B٠CxF COMMDWNLPPBBɩB*BBɩB,B BɩB.BBɩB0BBB(B C'FB BfBB B)B2F COMMDWNLPRPBBBB 3BBEBBB0BBiB2BB`CBPUBT$BRLBREBB CyCy\F COMMDWNLPPBCB4BB(B٠CygBBɩB*BBɩB,B BɩB.BBɩB0B BB(B F COMMDWNLPPC'FB BfBB B)B2BB`CAyCyC~CyBC~C~Az|BCCz~BBBF COMMDWNLPRPBBBBBBBBBBBBBCzCBBBBCzCzC~BF COMMDWNLPPAzChCLBBBCAzCz~AzCzCzAzCzCBA~BBCyCyCBF COMMDWNLPPBBBBBBBBC~C~BBBBBBC~BCz~Cz~B/BBF COMMDWNLPRPBBCC B`CaCCB`Cb"B`CbLCC B C(B`CbjCALCCPB F COMMDWNLPPC(B`CcCC\B C(B`CcLC,ChB CpB`Cd*CCLCXC|CBC CF COMMDWNLPPB CpB`Cd~CCB CpB`CdCCB CB`CeC"CC&CCCB F COMMDWNLPRPCB`CfdBBBBBBBBCB .BS$BFTBLFB00BBBBBCF COMMDWNLPPCCB CB B`CfC"C&BBBCCCB CB`Cg(B`Cg6B B F COMMDWNLPPCB`CgZCCB CB`CgB BCB`ChB`ChC,C.B C6B`ChCF COMMDWNLPRPCLCXCBCBBBBBC CPB CpB`CiCC\B CpB`CiTCF COMMDWNLPPChB CpB`CiB`BBBB:B`BBBSYBSTBEMBBBpBBBBF COMMDWNLPPBBBB B B B B B B B BABBBBB`BBBBBF COMMDWNLPRPBCCCALCz~BARC~CxBBBC4AbCjRCkBAhCyCyCyBF COMMDWNLPPBAtBAxB PB$MBAIBN BCCxBBB(BABBBABBBF COMMDWNLPPCBBBBBBBBBBBBBACABBBBBBF COMMDWNLPRPBBBDBBCBBBBBBABCBOMBMDBWNBL(ALB,ARF COMMDWNLPPB)B,B=AZB,B B B B B B B B B B B B B B B B B B F COMMDWNLPPB B B PB=AB,BB=ACABBBBBBACACAB!BF COMMDWNLPRPC>BABABBNOBRMBALB TBERBMIBNABTIBONB, BCOBMMB SBVCB EBRRB =B 0B0F COMMDWNLPP: 08/21/81 16:02:29 SDSLNK 3.4.0 COMMDWNLP B B PB=AB,BB=ACABBBBBBACACAB!BF COMMDWNLPRP\tCOMMLM 2ACSCCDBCYRBBB COB CBB2BBBCBBF COMMLM PPC6CNCOBC6COCSBCOBB{BBBBB[BB/CTB CTB B`F COMMLM PPCTBàCTBCT B`BB BB CYRB BB`C BBBCnBB CYRB`F COMMLM PRPCBBABBENBD$B BCBʀB(BƋB CB BÀBCrB*B`CBB)B(F COMMLM PPBBBB`BBCCBCBBBBB0BBCJCBF COMMLM PRPCB:BB*B BBB*BB B C BB C2B B C'.B BB)B*BF COMMLM PPBDB6BBB,BCB C:B BB B CB)B6B BB B C B)B.F COMMLM PPB C2B B)B,BB_BB0B\B)B,BTB CPB B_B2B)B2BBB F COMMLM PRPBBCB)B2BB,BB)B0BBDB"BiB(B$BB(B`CB*BB,F COMMLM PPBiB0B.BDB0BB0BB6BCB2B)B0B)B(BB0BiB0BB)B6B$F COMMLM PPBBDB8BFB8BBBB CBBB)B0B$BBDBBB)B,BB&F COMMLM PRPBCBDBBB2BcB&BBB)B,BB`CBBCrB0BLB(B`CF COMMLM PPBBB B BBB=B[B B=BB[BB B BB=BBB[B B=BF COMMLM PPB[BBB`CBBB-BBCBBB CB BBBʀB(B CB F COMMLM PRPBDMBPPB$HBEABBBB**B* BDUBMPB OBF BHEBAPB *B**CBCNCBCF COMMLM PPB6BBBB@B C2B BBB@BCBCBCB C2|B BB@B F COMMLM PPC2B BB(B#B8BB4BB(BCBCB*BCB,BB,BB4BGBBDCF COMMLM PRPBBB,BB,BB.BBBBB.BB.BB4BGBBDCBBB,BBBF COMMLM PPBBB,BBB*BB)B4CBeB`CB4BdBB0BiB0BUB*BB*B BF COMMLM PPBB BBHBB*BSB2BBB*B`BBCB2BB2B BBiB2B*BF COMMLM PRPBB*BBCB,BB*BB2BBBB*BBBBB.BB BBB BBBeF COMMLM PPBB.BB,B BB.B BBBeBB*BiB*B.BB@B C2B BBF COMMLM PPB,BB.B C B BBB0BcBB0B)B0BBB`C&B`CBDUBMPB$PF COMMLM PRPBROBBBBB *B**B DBUMBP BOFB PBROBCEBSSB *B**CbBB PBROBCEBSSF COMMLM PPB RBECBORBD BFOBR C~B BB B BENBTRBY BPOBINBT CBB8B B TBOPF COMMLM PPB OBF BSTBACBK CB *B**B EBNDB OBF BPRBOCBESBS BDUBMPCCCRBCF COMMLM PRPB:BBB`C\B6BiB(B,B CPB B_B.BB@B C2B BBB@BF COMMLM PPC^BC`BCzB C2|B BB@B C2B B)B,BiB,B.BB C'"B B_F COMMLM PPB0BiB0B%BB"B%BB$B$B&BB@B C2B BBB@BC|BBF COMMLM PRPCB C2|B BB.BSB8BB8BCBCB2BSB2B BBB@BCBCF COMMLM PPBB2BBBB@BCBCBCB C2|B BBB@BCBCZBF COMMLM PPBCB C3B BB@B C2B BB,B#BB B EBNTBRYB PBOIBNTF COMMLM PRPCB2BBLEBVEBL=CC CBC B@BBB)B(BB,BBdB,B>BF COMMLM PPBdB"B>BB4BB`CB4BBB4BB>BcBB.BiB>BʯB@B(B F COMMLM PPC2B BʯB@B(BʠCB*BʠCB,BʠCB.B C2|B BB4BQBB#B(F COMMLM PRPBB@BCBCBB B BʯB@B(BʠCB*BʠCB,BʠCB.B BʯF COMMLM PPB@B(B C2B B%B$CBBB"BB>BBBBB#B>BCBB(BʩBB F COMMLM PRPBiBBCBB:BB`CZB`CBENBC$BT B BBB C F COMMLM PPC BCrBB`C F COMMLM PPB6BiB.BBYBXBiB.BUB2BSBB,BPBOBiB*B,BBBiB,B*F COMMLM PPBiB.BB)B*BBDB8BDB2BBB`C B6B7BiB8B2BiB2BaiB,F COMMLM PRPBEB8B)B.BBEBB)B:B B BDBBB BB`CBBiBB%B0F COMMLM PPB)B8B B BB@BB8B)B,BBiB8B BIB%B BREBCOBRDB LBENBGTBH BBkBCB RF COMMLM PRPBEABD BERBROBRBUBhBB BBBBCB ABTTBEMBPTB TBO BREBADB PF COMMLM PPBASBT BEOBFBLBBBBBBBCB ABTTBEMBPTB TBO BSKBIPB BBEYF COMMLM PPBONBD BEOBMB5BCB NBOTB OBPEBNEBD BFOBR BREBADBINBGB&BCB WF COMMLM PRPBRIBTEB EBRRBORBBBCB NBOTB OBPEBNEBD BFOBR BWRBITBINBGB BF COMMLM PPB BCB -B SBTABTUBS B= BBCBCB CB B`CBMABP$B B F COMMLM PPBBOBB8B BBB B.CCBCBBBBBBBIBFB%B'F COMMLM PRPB BB BBFB4BeB'BBBBiB4BqEBBEBB`CB8BOBIB`F COMMLM PPCBIB`CB C-|B BiB8B:B`CBBOBIB`CBIB`CB BiBF COMMLM PPB BB'BB B(B8B B BCBiB8B BEB6BB0BBBBEBF COMMLM PRPBʅB*B C:B BBiB6BBFBBJBiB0BBBIBFB%B8BBBOF COMMLM PPBiB0B`CB C:B B)B4CBB`CB4BB`CB4BiB0BBB4F COMMLM PPBpBBBiB0BB CBBBBBB BiB0BBBIBFB%B'BF COMMLM PRPBBBiB0BB)B4B CYBBiB0BB)B4B CYB`CB7B BB7F COMMLM PPB7B7B7B7B7B7BB[BCrB,B,B:BBBKBB[BNEBW$B B BF COMMLM PPBBB4CC&BCB>BB*B BBB*BBBB BiB4B F COMMLM PRPBFBBiB,BB6B B BBCBB`CB,B`CB0BiB,B-BBMF COMMLM PPB>BB BiB4B BFBBiB6B-BBMB>BB>B BiB,B BFBB`F COMMLM PPC 2B/B@BB BC"BʯB@B(BʠCB*BʠCB,BMBRBʉB.BCB.F COMMLM PRPB C3B B/B@BB-BC"BʯB@B(BʠCB*BʠCB,BiB,B BMBRF COMMLM PPBʉB.BCB.B C3B BʯB@B(BʠCB*BʠCB,BʠC B.B C2|B F COMMLM PPBʯB@B(B C2B B`C 2B`CBBB,BBB B BʌB(B B C2B F COMMLM PRPBB,BBB,BB,BBBBBB[BPUBT$BRCBORBB BB B B F COMMLM PPBC#C#BCB2BB(B٠C##BB٠C#%BBB,B BBiB*BiB,B`F COMMLM PPC#'BB,BfB%B BB BfB%B BEBBfB%B BBBB`C#(B0BIF COMMLM PRPB%B0BɅBBɠC# B BB(B C'FB BfBBBB,B BIB%B0BEB*F COMMLM PPB`C# B,B`C#*B0BɩB*BBɩB,B BC#,BBB(B C'FB BfBB F COMMLM PPB)B.BB`CBREBWNBD$B BBBC$VC#BCB*BiB(B%BB#BF COMMLM PRPBBfB%B BBBBfB%B BEBB٠C#BBB C'FB BfBB BOF COMMLM PPBiB(BB CB BiB(B`C#BB`CBREBWRBT$B BBC$C$ZBCF COMMLM PPB*BB(BOBiB(B`C$dB CB BiB(BBBBB(B C$B BiB(F COMMLM PRPBBB BfBB B BEBBB(B C0B BBB`CBREBSUBM$B BF COMMLM PPC%C$B CYRBB B"BB$BB&BB(BBB(BB(BkB"BëB$BF COMMLM PPB&BMBBCB CYRBBBCrB0BlB(B(B`CBS$BNABMEB BB8F COMMLM PRPB6C%pC%BCB:BB(BfBB8BBBC%$B CB BB'B*BBF COMMLM PPCBʉB0BC%&B0B CB BB(BɩB6BB`CBSCBB$BFRBEEBB,B*F COMMLM PPC%C%tBCB.BiB(BBfBB,BBBC%~B CB BBBiB(BUF COMMLM PRPB*BBC%B CB BiB(BB`CBSCBB$BINBITBB,B&BBBC&@F COMMLM PPC%BCB2BOBIB`C%B`C%B C:B BBBBBFB BiB,BBF COMMLM PPBBB,BiB(BiB,BC%BBB*BBIC%BBC%BBBIC%BF COMMLM PRPBC%BB`CBSEBT$BACBNMBB,C&C&DBCB2B)B(BdBBBB F COMMLM PPBB*BГB BBBSB BBB"BeBB,BBBC&NB CB BB*BГF COMMLM PPB BBBB.BB BBB.BBBC&NBB.B C:B BiB,BBBF COMMLM PRPB*BB0BSB1BFB0B BBBBB*BBBBB`CBSEBT$BNABMEF COMMLM PPBC'C&BC B2BB(BʯBB(BB'B*B B(B*BCB C%,B B`F COMMLM PPCBBB$BMB(BBB`CB(BBSVBC$B B BC'RC'8BCrB*BiF COMMLM PRPB(B/BBTEBRMB$ B BBBNOBRMBALB TBERBMIBNABTIBONC'`BBMEBMOBRYF COMMLM PPB PBARBITBY C'vBBILBLEBGABL BOPBCOBDEC'BILBLEBGABL BTIBLIBNEB ABDDF COMMLM PPBREBSSB C'BBILBLEBGABL BSUBPEBRVBISBORB CBALBL C'BADBDRBESBSIBNGF COMMLM PRPB EBRRBORC'BBPRBIVBILBEGBEDB IBNSBTRBUCBTIBONB C'BTABSKB KBILBLEF COMMLM PPBD C'B B.B B\B*B&BTABSKB EBRRBORB #C(BXBB C*C)C)C)C)F COMMLM PPC)C)C*BSTBACBK BOVBERBFLBOWC(:BHABLTB CBALBLEBD C(JBHEBAPB FBULBL F COMMLM PRPC(XB BDIBVIBDEB BBY BZEBROC(fBFTBN BARBGUBMEBNTB EBRRBORC(vBFTBN BSTF COMMLM PPBACBK BOVBERBFLBOWC(BDYBNABMIBC BARBRABY BSIBZEB OBUTB OBF BRABNGBE F COMMLM PPC(BBFTBN BFLBOABTIBNGB PBOIBNTB EBRRBORC(C*C*C*C*C*C*C*BCAF COMMLM PRPBNNBOTB LBOABD BOVBERBLABY C(BC)C*C*C+C+DC+DC+DC+DC+DC+$BERBROF COMMLM PPBR BCOBDEB =B PC)BBB(BBBC5@BC5BBC5DBBC5FBF COMMLM PPBC5HBC5BBBC5JB CB BBBBB BC5LBBBBB9BF COMMLM PPBBɠC5NBBɠC5>BB`CBFIBNIBSHB_LBCYB B2B.BPC6C5BC F COMMLM PRPB*BBBBB/BBBPBBC5BBC5BBBBC5BB/BF COMMLM PPBBBoBB(BDB(B6BB BB#B(BCBB BBB BB~BB`F COMMLM PPC5BBB BBBB BB~BB`C5BBC5BBBB BFBBBF COMMLM PRPB(BBBBC5BBBBB)BBBBBBB#B(BBBC5F COMMLM PPBBCYBB C2|B BʯBB(B C2B B`CBSHBOWB_MBEMBBBB:F COMMLM PPBB>BBB~B BOBSB'BBBC[LB(BBEB C8C6BC B@BF COMMLM PRPBBBBBB`C8B/BC[JB/BC[KBʠC[B(B C'FB B`C[BQBF COMMLM PPC6BBC[BB`C6B>BJB-B(BIB`C6B`C6B`C6BIB`C6BOB`F COMMLM PPC6B`C6BOB`C6B CB B)BBJB-B(BIB`C6B`C6B`C6BIB`C6BOB`F COMMLM PPC6B`C6BIB`C6B CB BBBBB BoBBNBBBfB9CYBF COMMLM PPBBC6BB/BC6BB`C6BoBBѝB BfCZB(B`C6BoBBѭBF COMMLM PRPB BfCZB)BoBB BIBiB(B(BBBBBBB/BC6BB C5F COMMLM PPB B C5TB B/BC6BB`C6BBBBB`C6B/BC6BB C5B F COMMLM PPB`CBCOBMMBLMB BBBOUBT B B C8BB`BINBPUBT B C9B$CBMLBU F COMMLM PRPBB$FBP1B BB$FBP2B B$FBP3B BBBBC:C8BC`BBʉB(BF COMMLM PPC8B(BC9B B(B*BCBʠC8B2BʠC9B4B CB BʉB(BC9B(F COMMLM PPBC9B B(B*BCBʠC8B2BʠC9B4B CB BʩBB(B CKB BʩF COMMLM PRPBB(B CKB B`C9BB`C9BB`C9BB`C9BBʩBB(B C4B F COMMLM PPB)BC[B`C9BB`C9BB`C9BB`C9 BBʩBB(B BiBBB`F COMMLM PPC9"BB`C9$BB`C9&BB`C9 BBʩBB(B BiBBB`C9(BB`C9*F COMMLM PRPBB`C9,BB`C9 BBʩBB(B BBB BOBBéBBBBNBBF COMMLM PPB BBBBBB BBBBBOBBBiBBB)BC9.BB C91F COMMLM PPC[BB C93C[CBB C95C[BB)BC[CB C6B BʉB(BC9B(B ChB BʉF COMMLM PRPB(BC8B(B B`CnBBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMLM PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBB BB|BBB1BBF COMMLM PPBB2BBBBBC?BBB BBBB|BBB1BB`BBBa2F COMMLM PRPBBBBBC?BBBBBB B ?BB ?BmBBBCBDB[B-BF COMMLM PPBmBBqBBBBBpBBB00BBBABBB BC@BB BB'F COMMLM PPBBJB)B#BBGBBC@VB(B0BB9BB(BBBHB BEBBBF COMMLM PRPBBBB`C?0B B B B#B` BBmBBB@B BB BB@B Bp@B F COMMLM PPBbABB@BABIBBBC@BBBBBmBBqBBmBBBBC@F COMMLM PPBC@VBBBFBEBBBBmBBBGBHBBBBBBBBmBF COMMLM PRPBBBrBBBBC@BBB8B9B9@BDBBBBBBDBEBBF COMMLM PPBBBBBBBBBBBBBB B B B BBB BBB F COMMLM PPBBBBBBBBbBBBaBB BB[BB[BBBBBBF COMMLM PRPBBBCBBBBEBBBBEBFBBBB[BABBC@BIB1BBF COMMLM PPB܀B BBܱBBBBB@B[BB>KB-+B09BA/B*BBmBBBBBF COMMLM PPBB BBBB`CABBBѱB B*BBBBBBBBBB BF COMMLM PRPC@BBC@BBBB@BBBBBBmBBBBB BB BB@F COMMLM PPBBB"BBBB BBB B*BBB@BB*B BB*BBBB*F COMMLM PPBBB@BBB BB BC@BB*B BC@BBBBBEBBFB F COMMLM PRPBHBBIBBBBmB BBBBBBBBB B4BC@BBC@F COMMLM PPBBBBBB)BC@BBC@BBBB BBBC@BB B+BF COMMLM PPBBBBBBBB+BBB B8BB8GBBBBBBBBBBF COMMLM PRPBBB BC@B B B bBB@BBBBB@BBBBBABBBBBF COMMLM PPBEB BFB BABBBBBIBBBB@BB0$B.(BBBBBB B:F COMMLM PPBBBBB6BBBB1BB BCBBBCBBBBBBCBBF COMMLM PRPBCBB B`BBBBBBBBBBBBBBpBBB܀B4B F COMMLM PPBܴBBB1B BB`BCBܱBBBBBBBBCBBBBBBF COMMLM PPB@BBjBBBB/BBjB BB*BBB*B"B/B*B$BPB BBBF COMMLM PRPBBBB BRBʁB BBAB?BʁBB CBB*B&B*BBBBFBʃBBF COMMLM PPB*BBBڄBBAB9`CCB=`CCBFB%B00BڅBBBڅBBjB B BʁBF COMMLM PPB*BBBB BBBBBBBBBBJB!BBBBBB BCD"F COMMLM PRPBBBBBCBCCBBBBBBCCBBABBCD B1BBB܀F COMMLM PPB BBܱBBBBB@B[BBjB BYBBB B*BBB BBBF COMMLM PPB BB BBHBBBBBvBBBBB B8B BB8B BBBF COMMLM PRPBB@BBŒB[BBCE\BCDBBBBBCDBBjBBYB*B B*F COMMLM PPBBB BB BBBBBB BђB BB'BBBBBBBBF COMMLM PPBBBB B6BBBBBB B6BBBBvB[BBB@B[BjBF COMMLM PRPBYB-B B*BBB BBHBB BBBsB BBBB8B BB8B F COMMLM PPBBBBB8BB BBBBBBBjBBYBBBBSBBGBF COMMLM PPB[BBB@B[BNBBBB qBMBQBB rBBB[BmBBBB*BBF COMMLM PRPB BB"BBBrBòBBBABCBBB*BBBBBBBCEB*F COMMLM PPBBBBB BBBBāB*BBB/B BBB*BpB B*BxBBJF COMMLM PPB!BBʁBpB*BvBBBBCFbBCFBCFbB CFBjBdBB BCFbF COMMLM PRPBCFBIB`BBBBB@BBB*BvBBB*BpBBʪBhBjBCFbF COMMLM PPBCFZBCFbB CFFBBB@BCFbBCFZB BBBBB@BBBBڻF COMMLM PPBbBB*BzBʐBnBBʪBpBfB/B`B*BaB B BB;BBB BBKF COMMLM PRPB/BrBBB[BBBB\BINBITB$1B BB@BOUBTPBUTB CFBCFCFF COMMLM PPBCB(BBBBCFBCFB B(B*BCBʠCFB2BʠCFB4B CF COMMLM PPB BB@B C$jB B`CBBBMEBSABG$BDXBBCYB B.B,CGCGBF COMMLM PRPC BBàCYB BRBH CG CYBӠCYB5BʠCY~B(B C$jB BӠCYB,BBF COMMLM PPBBB BÉBB`CGBOB۝B-BBB`CGB,B`CGB-B`CYB4B`CYF COMMLM PPB5BCY~BʇB(BʉB*BCGB*B C&TB BʠCY~B(B C$jB BÊB.B(BF COMMLM PRPCY~BχBǩB*BϾBϩB(B C2|B BʠCY~B(B C2B B CG CYB`CBP$BTEF COMMLM PPBRMB BCGCGBCrB(B,B:BhB BB BBaBBBB CU0BBREF COMMLM PPBTRBN$B BBB B B B CH BCIRCHBC BHBB>B C'"B BjB(F COMMLM PRPBBB>B BiB@BDF COMMLM PPBBBiBBBFBB CLTB BB0BB$BB/B$CH BBB6BBBF COMMLM PRPB6B$BB>BB`CH2B`CBDEBI$BT B BBB+B-BB BB#BB0F COMMLM PPB8B:B4CK~CIVBCBFBB*B B`CI`B:BB,BBB`CKvBB,BVF COMMLM PPB0BBB`CKvB`CI^B:BB,BVBiB*BBEB0BBB`CKvBB:BF COMMLM PRPB4BBBBB,BVB8BB*BBB,BVBiB*BBEB0B`CIbB@B`CIdF COMMLM PPB>BiB8B0BBB(BB8BfBB BEB6BB B$BEB@BBEB>B F COMMLM PPB`CIfB:B`CIlBB`CIhB@B`CIjB:BB8BBB(BB8BfBB BEB6BB0BBF COMMLM PPB9BBB B8B4BDB%BBEB4B B BBBBBBBB`CInB:BaF COMMLM PPBB:B`CIpBBiB8B2BF COMMLM PRPBBfBB8BBiB(BiB8B%BB BDB6BB0BBB9BBBAB&F COMMLM PPBBFB#BBABBj`CLB6BB:BiB,B BiB:BBB`CLBB`CLBBBBBCBB)B,BiB:BBiB2BB)B.BF COMMLM PRPBiB0BiBCXCTB`C>B`C?CXCT&B CT.B`C?2CTATRCXCTVB CT.B`C?CXF COMMLM PPCTbB CT.B`C@CY2CTnB CTvB`C@CTCTRCT^CTCTBCYCTB CTvB`CAFF COMMLM PRPCXCTB CTvB`CACXCTB CTB`CBCU(CUCU,CU CXCTB CTB`CC,BF COMMLM PPBBBBBBBCTB .BS$BFTBLFB00BBBBBCXCXCTB CTF COMMLM PPB B`CCCU(CU,BBBCXCXCUB CTB`CCB`CCB B CTB`CD"CXF COMMLM PRPCUB CU"B`CDtB BCXB`CEZB`CE\CY2CU4B CU?BBBBB`B:#B@'F COMMLM PPB="BaBbcBdeBfgBhiBBBBjBklBmnBopBqrBBBB~BstBuvBwxByzBF COMMLM PRPBBBBBBBBBBB{ABBCBDEBFGBHIBBBB}JBKLBMNBOPBQRF COMMLM PPBBBB\BSTBUVBWXBYZBBBB01B23B45B67B89BBBA[C[A[BF COMMLM PPBBC[>BBBBBBBBBBBBBA[>BBBBBBF COMMLM PRPBA\LBABBNOBRMBALB TBERBMIBNABTIBONB, BFCBCCB SBVCB EBRRB =B 0B0F COMMLM PP: 08/21/81 15:59:53 SDSLNK 3.4.0 COMMLM PBC[>BBBBBBBBBBBBBA[>BBBBBBF COMMLM PRP_COMMOD 2ACXFCCDBC]BBB CSB CBB2BBBCBBF COMMOD PPC6CS,CSBC6CTTCXB0BBCJCBF COMMOD PRPCB:BB*B BBB*BB B C BB C2B B C'.B BB)B*BF COMMOD PPBDB6BBB,BCB C:B BB B CB)B6B BB B C B)B.F COMMOD PPB C2B B)B,BB_BB0B\B)B,BTB CPB B_B2B)B2BBB F COMMOD PRPBBCB)B2BB,BB)B0BBDB"BiB(B$BB(B`CB*BB,F COMMOD PPBiB0B.BDB0BB0BB6BCB2B)B0B)B(BB0BiB0BB)B6B$F COMMOD PPBBDB8BFB8BBBB CBBB)B0B$BBDBBB)B,BB&F COMMOD PRPBCBDBBB2BcB&BBB)B,BB`CBBCrB0BLB(B`CF COMMOD PPBBB B BBB=B[B B=BB[BB B BB=BBB[B B=BF COMMOD PPB[BBB`CBBB-BBCBBB CB BBBʀB(B CB F COMMOD PRPBDMBPPB$HBEABBBB**B* BDUBMPB OBF BHEBAPB *B**CBCNCBCF COMMOD PPB6BBBB@B C2B BBB@BCBCBCB C2|B BB@B F COMMOD PPC2B BB(B#B8BB4BB(BCBCB*BCB,BB,BB4BGBBDCF COMMOD PRPBBB,BB,BB.BBBBB.BB.BB4BGBBDCBBB,BBBF COMMOD PPBBB,BBB*BB)B4CBeB`CB4BdBB0BiB0BUB*BB*B BF COMMOD PPBB BBHBB*BSB2BBB*B`BBCB2BB2B BBiB2B*BF COMMOD PRPBB*BBCB,BB*BB2BBBB*BBBBB.BB BBB BBBeF COMMOD PPBB.BB,B BB.B BBBeBB*BiB*B.BB@B C2B BBF COMMOD PPB,BB.B C B BBB0BcBB0B)B0BBB`C&B`CBDUBMPB$PF COMMOD PRPBROBBBBB *B**B DBUMBP BOFB PBROBCEBSSB *B**CbBB PBROBCEBSSF COMMOD PPB RBECBORBD BFOBR C~B BB B BENBTRBY BPOBINBT CBB8B B TBOPF COMMOD PPB OBF BSTBACBK CB *B**B EBNDB OBF BPRBOCBESBS BDUBMPCCCRBCF COMMOD PRPB:BBB`C\B6BiB(B,B CPB B_B.BB@B C2B BBB@BF COMMOD PPC^BC`BCzB C2|B BB@B C2B B)B,BiB,B.BB C'"B B_F COMMOD PPB0BiB0B%BB"B%BB$B$B&BB@B C2B BBB@BC|BBF COMMOD PRPCB C2|B BB.BSB8BB8BCBCB2BSB2B BBB@BCBCF COMMOD PPBB2BBBB@BCBCBCB C2|B BBB@BCBCZBF COMMOD PPBCB C3B BB@B C2B BB,B#BB B EBNTBRYB PBOIBNTF COMMOD PRPCB2BBLEBVEBL=CC CBC B@BBB)B(BB,BBdB,B>BF COMMOD PPBdB"B>BB4BB`CB4BBB4BB>BcBB.BiB>BʯB@B(B F COMMOD PPC2B BʯB@B(BʠCB*BʠCB,BʠCB.B C2|B BB4BQBB#B(F COMMOD PRPBB@BCBCBB B BʯB@B(BʠCB*BʠCB,BʠCB.B BʯF COMMOD PPB@B(B C2B B%B$CBBB"BB>BBBBB#B>BCBB(BʩBB F COMMOD PRPBiBBCBB:BB`CZB`CBENBC$BT B BBB C F COMMOD PPC BCrBB`C F COMMOD PPB6BiB.BBYBXBiB.BUB2BSBB,BPBOBiB*B,BBBiB,B*F COMMOD PPBiB.BB)B*BBDB8BDB2BBB`C B6B7BiB8B2BiB2BaiB,F COMMOD PRPBEB8B)B.BBEBB)B:B B BDBBB BB`CBBiBB%B0F COMMOD PPB)B8B B BB@BB8B)B,BBiB8B BIB%B BREBCOBRDB LBENBGTBH BBkBCB RF COMMOD PRPBEABD BERBROBRBUBhBB BBBBCB ABTTBEMBPTB TBO BREBADB PF COMMOD PPBASBT BEOBFBLBBBBBBBCB ABTTBEMBPTB TBO BSKBIPB BBEYF COMMOD PPBONBD BEOBMB5BCB NBOTB OBPEBNEBD BFOBR BREBADBINBGB&BCB WF COMMOD PRPBRIBTEB EBRRBORBBBCB NBOTB OBPEBNEBD BFOBR BWRBITBINBGB BF COMMOD PPB BCB -B SBTABTUBS B= BBCBCB CB B`CBMABP$B B F COMMOD PPBBOBB8B BBB B.CCBCBBBBBBBIBFB%B'F COMMOD PRPB BB BBFB4BeB'BBBBiB4BqEBBEBB`CB8BOBIB`F COMMOD PPCBIB`CB C-|B BiB8B:B`CBBOBIB`CBIB`CB BiBF COMMOD PPB BB'BB B(B8B B BCBiB8B BEB6BB0BBBBEBF COMMOD PRPBʅB*B C:B BBiB6BBFBBJBiB0BBBIBFB%B8BBBOF COMMOD PPBiB0B`CB C:B B)B4CBB`CB4BB`CB4BiB0BBB4F COMMOD PPBpBBBiB0BB CBBBBBB BiB0BBBIBFB%B'BF COMMOD PRPBBBiB0BB)B4B C^ BBiB0BB)B4B C^ B`CB7B BB7F COMMOD PPB7B7B7B7B7B7BB[BCrB,B,B:BBBKBB[BNEBW$B B BF COMMOD PPBBB4CC&BCB>BB*B BBB*BBBB BiB4B F COMMOD PRPBFBBiB,BB6B B BBCBB`CB,B`CB0BiB,B-BBMF COMMOD PPB>BB BiB4B BFBBiB6B-BBMB>BB>B BiB,B BFBB`F COMMOD PPC 2B/B@BB BC"BʯB@B(BʠCB*BʠCB,BMBRBʉB.BCB.F COMMOD PRPB C3B B/B@BB-BC"BʯB@B(BʠCB*BʠCB,BiB,B BMBRF COMMOD PPBʉB.BCB.B C3B BʯB@B(BʠCB*BʠCB,BʠC B.B C2|B F COMMOD PPBʯB@B(B C2B B`C 2B`CBBB,BBB B BʌB(B B C2B F COMMOD PRPBB,BBB,BB,BBBBBB[BPUBT$BRCBORBB BB B B F COMMOD PPBC#C#BCB2BB(B٠C##BB٠C#%BBB,B BBiB*BiB,B`F COMMOD PPC#'BB,BfB%B BB BfB%B BEBBfB%B BBBB`C#(B0BIF COMMOD PRPB%B0BɅBBɠC# B BB(B C'FB BfBBBB,B BIB%B0BEB*F COMMOD PPB`C# B,B`C#*B0BɩB*BBɩB,B BC#,BBB(B C'FB BfBB F COMMOD PPB)B.BB`CBREBWNBD$B BBBC$VC#BCB*BiB(B%BB#BF COMMOD PRPBBfB%B BBBBfB%B BEBB٠C#BBB C'FB BfBB BOF COMMOD PPBiB(BB CB BiB(B`C#BB`CBREBWRBT$B BBC$C$ZBCF COMMOD PPB*BB(BOBiB(B`C$dB CB BiB(BBBBB(B C$B BiB(F COMMOD PRPBBB BfBB B BEBBB(B C0B BBB`CBREBSUBM$B BF COMMOD PPC%C$B C]BB B"BB$BB&BB(BBB(BB(BkB"BëB$BF COMMOD PPB&BMBBCB C]BBBCrB0BlB(B(B`CBS$BNABMEB BB8F COMMOD PRPB6C%pC%BCB:BB(BfBB8BBBC%$B CB BB'B*BBF COMMOD PPCBʉB0BC%&B0B CB BB(BɩB6BB`CBSCBB$BFRBEEBB,B*F COMMOD PPC%C%tBCB.BiB(BBfBB,BBBC%~B CB BBBiB(BUF COMMOD PRPB*BBC%B CB BiB(BB`CBSCBB$BINBITBB,B&BBBC&@F COMMOD PPC%BCB2BOBIB`C%B`C%B C:B BBBBBFB BiB,BBF COMMOD PPBBB,BiB(BiB,BC%BBB*BBIC%BBC%BBBIC%BF COMMOD PRPBC%BB`CBSEBT$BACBNMBB,C&C&DBCB2B)B(BdBBBB F COMMOD PPBB*BГB BBBSB BBB"BeBB,BBBC&NB CB BB*BГF COMMOD PPB BBBB.BB BBB.BBBC&NBB.B C:B BiB,BBBF COMMOD PRPB*BB0BSB1BFB0B BBBBB*BBBBB`CBSEBT$BNABMEF COMMOD PPBC'C&BC B2BB(BʯBB(BB'B*B B(B*BCB C%,B B`F COMMOD PPCBBB$BMB(BBB`CB(BBSVBC$B B BC'RC'8BCrB*BiF COMMOD PRPB(B/BBTEBRMB$ B BBBNOBRMBALB TBERBMIBNABTIBONC'`BBMEBMOBRYF COMMOD PPB PBARBITBY C'vBBILBLEBGABL BOPBCOBDEC'BILBLEBGABL BTIBLIBNEB ABDDF COMMOD PPBREBSSB C'BBILBLEBGABL BSUBPEBRVBISBORB CBALBL C'BADBDRBESBSIBNGF COMMOD PRPB EBRRBORC'BBPRBIVBILBEGBEDB IBNSBTRBUCBTIBONB C'BTABSKB KBILBLEF COMMOD PPBD C'B B.B B\B*B&BTABSKB EBRRBORB #C(BXBB C*C)C)C)C)F COMMOD PPC)C)C*BSTBACBK BOVBERBFLBOWC(:BHABLTB CBALBLEBD C(JBHEBAPB FBULBL F COMMOD PRPC(XB BDIBVIBDEB BBY BZEBROC(fBFTBN BARBGUBMEBNTB EBRRBORC(vBFTBN BSTF COMMOD PPBACBK BOVBERBFLBOWC(BDYBNABMIBC BARBRABY BSIBZEB OBUTB OBF BRABNGBE F COMMOD PPC(BBFTBN BFLBOABTIBNGB PBOIBNTB EBRRBORC(C*C*C*C*C*C*C*BCAF COMMOD PRPBNNBOTB LBOABD BOVBERBLABY C(BC)C*C*C+C+DC+DC+DC+DC+DC+$BERBROF COMMOD PPBR BCOBDEB =B PC)BBB CB B&F COMMOD PRPBC^B&BC^B٠C^LBB&BC5@B B C5CC^pB C5EC^qB C5GC^rB C5CF COMMOD PPC^sBʠC5:B*BʠC5HB(BC^ZBʇB,B CLB BC5JB B(B(BCB CMF COMMOD PPB BfBB BFB`C^JBBfBB BFB`C^KBBBBBB&BC^HB&F COMMOD PRPBC^IBB`CBLOBADBMEBM BBBBBBB(BBB~B BOBSB'F COMMOD PPBCOBMMBODB C7C6pBCB,BBBɦBBB C6{C^LBBBfBB*BEF COMMOD PPB*BmB&BC^HB&BC^IBB BBB#BC^JBB$BC^KBC^6B C'FF COMMOD PRPB B C^BBBBBB@BB F COMMOD PRPBBBBBILBLEBGABL BKEBY BINBPUBT B B B BINBVABLIBD BEXBPRBESF COMMOD PPBSIBONB B B BVABLUBE BEXBCEBEDBS B16B BBITBS B B B B B B B F COMMOD PPB B B B B B BB BBBBBBBBB BB BC=BBF COMMOD PRPBBBBPC?LC=JBCrB2BiB0B`C=nB(B!BC=TBB`C?LB)B2C=lF COMMOD PPBBC=B C=jC=BaBBEBB/BBB!C=`BB!C=bBBBBC=\F COMMOD PPB B!C=fB4B!C=dB"BC=WBBC=^BrBC>zC=pBBEBBEBBB)F COMMOD PRPB2C=lBBC=B/BC=BBBBB/B)B2C=lBcB[BC=]BBC=ZF COMMOD PPBBC=XBBC=YBBC=[BB`C=mBB Bx`C=mBB`C=hBBzC=BBBBF COMMOD PPBC>zC=BBBC=nBBB(BHB*B)B2C=lBBC=B/BBC>zC=F COMMOD PPBB`CBBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭF COMMOD PRPBޭBޭBޭBޭBޭBޭBޭBޭBޭBޭBB BB|BBB1BBBB2BBF COMMOD PPBBBCCBBB BBBB|BBB1BB`BBBa2BBBBF COMMOD PPBCCBBBBBB B ?BB ?BmBBBCBDB[B-BBmBBqBF COMMOD PRPBBBBpBBB00BBBABBB BCEKB-+B09BA/B*BBmBBBBBBB BBF COMMOD PPBB`CEBBBѱB B*BBBBBBBBBB BCEBBCEF COMMOD PPBBBB@BBBBBBmBBBBB BB BB@BBB"BF COMMOD PRPBBB BBB B*BBB@BB*B BB*BBBB*BBB@BF COMMOD PPBB BB BCEBB*B BCEBBBBBEBBFB BHBBIBF COMMOD PPBBBmB BBBBBBBBB B4BCEBBCEBBBBF COMMOD PRPBB)BCEBBCEBBBB BBBCEBB B+BBBBBF COMMOD PPBBBB+BBB B8BB8GBBBBBBBBBBBBB BF COMMOD PPCEB B B bBB@BBBBB@BBBBBABBBBBBEB BFB F COMMOD PRPBABBBBBIBBBB@BB0$B.(BBBBBB B:BBBBF COMMOD PPB6BBBB1BB BCG1BBCG0BBBBBCG2BBCG3B B`F COMMOD PPBBBBBBBBBBBBBBpBBB܀B4B BܴBBB1F COMMOD PRPB BB`BCBܱBBBBBBBBCBBBBBBB@BBjBF COMMOD PPBBB/BBjB BB*BBB*B"B/B*B$BPB BBBBBBB F COMMOD PPBRBʁB BBAB?BʁBB CBB*B&B*BBBBFBʃBBB*BBBڄF COMMOD PRPBBAB9`CH\B=`CH^BFB%B00BڅBBBڅBBjB B BʁBB*BBBF COMMOD PPB BBBBBBBBBBJB!BBBBBB BCHBBBBF COMMOD PPBCBCHBBBBBBCHBBABBCHB1BBB܀B BBܱBF COMMOD PRPBBBB@B[BBjB BYBBB B*BBB BBBB BB BF COMMOD PPBHBBBBBvBBBBB B8B BB8B BBBBB@BBŒF COMMOD PPB[BBCJBCIBBBBBCI0BBjBBYB*B B*BBB BF COMMOD PRPB BBBBBB BђB BB'BBBBBBBBBBBB F COMMOD PPB6BBBBBB B6BBBBvB[BBB@B[BjBBYB-B B*F COMMOD PPBBB BBHBB BBBsB BBBB8B BB8B BBBBF COMMOD PRPB8BB BBBBBBBjBBYBBBBSBBGBB[BBB@F COMMOD PPB[BNBBBB qBMBQBB rBBB[BmBBBB*BBB BB"BF COMMOD PPBBrBòBBBABCBBB*BBBBBBBCJlB*BBBBF COMMOD PRPB BBBBāB*BBB/B BBB*BpB B*BxBBJB!BBʁBpF COMMOD PPB*BvBBBBCKBCJBCKB CJBjBdBB BCKBCJBIB`F COMMOD PPBBBBB@BBB*BvBBB*BpBBʪBhBjBCKBCJBCKF COMMOD PRPB CJBBB@BCKBCJB BBBBB@BBBBڻBbBB*BzF COMMOD PPBʐBnBBʪBpBfB/B`B*BaB B BB;BBB BBKB/BrBBF COMMOD PPB[BBBB\BINBITB$1B BB@BOUBTPBUTB CKTBCKCKHBCB(BF COMMOD PRPBBBCKRBCK\B B(B*BCBʠCK^B2BʠCK^B4B CB BB@B F COMMOD PPC$jB B`CBBBMEBSABG$BDXBBC]B B.B,CLpCKBC BBàC]F COMMOD PPB BRBH CKC]BӠC]B5BʠC]B(B C$jB BӠC]B,BBBBB BÉF COMMOD PRPBB`CKBOB۝B-BBB`CKB,B`CKB-B`C^ B4B`C^ B5BC]BʇF COMMOD PPB(BʉB*BCKB*B C&TB BʠC]B(B C$jB BÊB.B(BC]BχBǩB*F COMMOD PPBϾBϩB(B C2|B BʠC]B(B C2B B CKC]B`CBP$BTEBRMB BCLF COMMOD PRPCLtBCrB(B,B:BhB BB BBaBBBB CYBBTRBM$BMSBG BF COMMOD PPCLCLBC B.BB#B(BB:B&BBBBB CB BB(B BBF COMMOD PPB C:B BBiB,B)B)B5BBB`CBREBTRBN$B BBB B B B F COMMOD PRPCMBCNHCLBC BHBB>B C'"B BjB(BBB>B BiB@BDBBBiBBBFBB CPB F COMMOD PRPBB0BB$BB/B$CMBBB6BBBB6B$BB>BB`CM(B`CF COMMOD PPBDEBI$BT B BBB+B-BB BB#BB0B8B:B4CPtCNLBCBFBF COMMOD PPB*B B`CNVB:BB,BBB`CPlBB,BVB0BBB`CPlB`CNTB:BF COMMOD PRPB,BVBiB*BBEB0BBB`CPlBB:BB4BBBBB,BVB8BB*F COMMOD PPBBB,BVBiB*BBEB0B`CNXB@B`CNZB>BiB8B0BBB(BB8F COMMOD PPBfBB BEB6BB B$BEB@BBEB>B B`CN\B:B`CNbBB`CN^B@B`CN`B:BB8F COMMOD PPBBB(BB8BfBB BEB6BB0BBB9BBB B8B4BDB%BF COMMOD PPBEB4B B BBBBBBBB`CNdB:BaBB:B`CNfBBiB8B2BBBfBB8BBiB(BiB8F COMMOD PPB%BB BDB6BB0BBB9BBBAB&BBFB#BBABBj`CQB6F COMMOD PPBB:BiB,B BiB:BBB`CQBF COMMOD PRPB`CQBBBF COMMOD PRPBBCBB)B,BiB:BBiB2BB)B.BBiB0BiBCX>ASBCCSBBBBBBBBBBBBBBBBF COMMOD PPCT4CBBBBCT2CT4CX B B B B B B B B F COMMOD PPB B B B B B B B B B B B B B B B B B B B A^BB F COMMOD PPBC_ B@BBBBBBBB B B B B B B B B B B B B F COMMOD PRPB B B B B B B B B B B B B B B B B B B A_`BLUBNOB=0F COMMOD PPB0 BNOBT BANB IBNTBERBACBTIBVEB DBEVBICBEA_C_A_BBBBBBF COMMOD PPBA_C_BB BC_BBBB F COMMOD PRP: 08/21/81 16:01:12 SDSLNK 3.4.0 COMMOD P BNOBT BANB IBNTBERBACBTIBVEB DBEVBICBEA_C_A_BBBBBBF COMMOD PPBA_C_BB BC_BBBB F COMMOD PR@DFNACU(DEFINE AUTO CALL UNIT CRU ADDRESS FOR DEVICE CM@U$N), @*ACU CRU(FOUR HEX DIGITS)=STRING(FFFF) *( .SYN $ACU@$XX="&ACU CRU" .IF @$ACU@$XX, EQ, "FFFF" .SYN $ACU@$XX=-1 .ELSE % ACUPRM$ .ENDIF% IUT(INSTALL UTILITY TASKS),  &TARGET DISK/VOLUME=ACNM(@$$DSC$), &,COMM DSR PARTS ACCESS NAME=ACNM(@$CVN), ,*BATCH LISTING ACCESS NAME=ACNM(@$CLST)** '* ' .SYN $CVN="@@&COMM DSR" .SYN $COBJ=@$CVN * '*  SET UP THE DEFAULTS * ' .SYN $$DSC$="@@&TARGET"  .SYN $CLST="@@&BATCH" * '&! INSTALL UTILITY TASKS AND PROCS &* XB I=@$COBJ.DUTIL.B.UTLINS,L=@$CLST *(.OVLY OVLY=>23,CODE=10,PARMS=("NO") (.SYN $$DSC$=""!(PPR(PATCH COMMUNICATION PROCEDURES),((LISTING DIRECTORY NAME=ACNM(@$PLST) (* '4* THIS PROC INVOKES BATCH STREAMS TO PATCH BCD &42* OTHER BUILD PROCS BEFORE THEY ARE EXECUTED. 2* ' .SYN $PLST="@&LISTING" CFDIR P=@$PLST,ME=10  CFDIR P=@$PLST.BL,M=33 * '(XB IN=@$CVN.DXCMO.DCOMM.P.PPRCOMM,( LIST=@$PLST.BL.PPRCOMM (.OVLY OVLY=>23,CODE=10,PARMS=("NO") (* ',XB IN=@$CVN.DXCMO.D@$PROT.P.PPR@$PROT,, LIST=@$PLST.BL.PPR@$PROT (.OVLY OVLY=>23,CODE=10,PARMS=("NO") ("UPGEN990(UNPATCH GEN990 TASK)," VOLUME TO BE PATCHED=ACNM, LISTING ACCESS NAME=ACNM* '4* PATCH GEN990 TASK UNTIL DX10 3.4.2 IS RELEASED4* '(.SYN VOLBLD="@&VOLUME TO BE PATCHED"( .SYN PROGA="@VOLBLD.S$PROGA" * '$XB IN=@$CVN.DCOMM.P.UPGEN990, $" LIST="@&LISTING ACCESS NAME" "(.OVLY OVLY=>23,CODE=10,PARMS=("NO") (* ' .SYN VOLBLD="",PROGA="" (PCS (PATCH COMMUNICATIONS SYSTEM)=2,((DSR PATCH ACCESS NAME = ACNM(@$CVN),(,SYSGEN DATA DISK/VOLUME = ACNM(@$$DSCD),,(TARGET DISK/VOLUME = ACNM(@$$DSC$), ( SYSTEM NAME =ACNM(@$CSNAM),  ("PROTOCOL NAME(S)"=STRING("@$PROT"),( LISTING ACCESS NAME=ACNM,  LISTING DEVICE NAME=*ACNM,&INSTALL MEMRES PATCHES?=YESNO(NO) &* ' .SYN $$DSCD="&SYSGEN"  .SYN $$DSC$="&TARGET"  .SYN $CSNAM="&SYSTEM"  .SYN $INS="&INSTALL"..SYN $PROT="&PROTOCOL",$CVN="@@&DSR PATCH"...SYN $DLST="&LISTINGD",$CLST="@@&LISTINGA". .SYN $CLST="@$CLST^.BL"  .SYN $E$C="0",$E$PCS="0"* 'CFDIR P="@$CLST",M=33 * '*XB IN=@$CVN.DCOMM.B.PCS,L=@$CLST.PCS*".SYN $INS="",$E$C="",$E$PCS=""" PGEN990(PATCH GEN990 TASK),   VOLUME TO BE PATCHED=ACNM, LISTING ACCESS NAME=ACNM* '4* PATCH GEN990 TASK UNTIL DX10 3.4.2 IS RELEASED4* '(.SYN VOLBLD="@&VOLUME TO BE PATCHED"( .SYN PROGA="@VOLBLD.S$PROGA" * '"XB IN=@$CVN.DCOMM.P.PGEN990,"" LIST="@&LISTING ACCESS NAME" "(.OVLY OVLY=>23,CODE=10,PARMS=("NO") (* ' .SYN VOLBLD="",PROGA="" F!BDTYP(DEFINE COMMUNICATIONS BOARD TYPE AT DEVICE ADDRESS >@C$RU), F( BOARD TYPE=ACNM(COMIF)( .IF "&BOARD", NE, "COMIF"  .IF "&BOARD", NE, "BCAIM" .IF "&BOARD", NE, "FCCC"F!MSG TEXT="INVALID TYPE.VALID RESPONSES ARE COMIF, BCAIM OR FCCC." F BDTYP % .EXIT % .ENDIF"  .ENDIF # .ENDIF% ( .SYN $NBD="&BOARD"GETBUF[I]:=SCREEN[I]; @ABCDF* ' .IF "&BOARD", EQ, "BCAIM" .SYN B$CM="01"  *INDICATE BCAIM HAS A  F_IF ST = 0 THEN R$TERM(R$TERM_ERR,VARSTR.PTR,MSGIND,5) <@ACUPRM(DEFINE AUTO CALL UNIT PARAMETERS FOR DEVICE CM@U$N), @&DIAL TYPE (1=PULSE/0=TOUCH)=INT(1)&( .IF "&DIAL", EQ, "1"" .EVAL $ACU@$XX="@$ACU@$XX+1" " .ELSE %  .IF "&DIAL", EQ, "0"  .EVAL $ACU@$XX="@$ACU@$XX"  .ELSE" :MSG TEXT="INVALID INPUT. VALID RESPONSES ARE 0 OR 1." : ACUPRM  .EXIT  .ENDIF ! .ENDIF% BUFPTR; $L 6344 FOR I:=0 TO PROTBL.HEADER1 DO "PUT IN THE TRANSMISSION HEADER L" 6355  BUFFER@[I]:=SRBUF[I]; "@ 6366 BUFFER@[PROTBL.AIDLOC]:=AID; "AND THE READ HEADER @> 6377 BUFFER@[PROTBL.HEADER1]:=IBMTBL[AHDR.ICP DIV 64]; >@ 6388 BUFFER@[PROTBL.HEADER1+1]:=IBMTBL[AHDR.ICP MOD 64]; @& 6399  BUFNDX:=PROTBL.HEADER1+2; & 640 10  CURFLD:=AHDR.FLNK;  641 11  SCRNDX:=CURFLD@.FCP;  642 12  6@.CLDP(CREATE LIST OF DEVICES AND PROTOCOLS).* '$* LIST OF PROTOCOLS TO BE LINKED$* ' .IF "@$LNK", EQ, "$LNK"  .SYN $LNK="@P$RT@$XX"  .ELSE %  .SYN $R1="(@$LNK)"  .LOOP " *.SPLIT LIST="@$R1",FIRST=$F1,REST=$R1 *" .UNTIL "@$F1",EQ,"@P$RT@$XX" " .WHILE "@$R1",NE,"$R1"  .REPEAT ! .IF "@$F1", NE, "@P$RT@$XX"   .SYN $F1="," & .SYN $LNK="@$LNK^@$F1^@P$RT@$XX" & .ENDIF" .SYN $F1="" ! .ENDIF% * '6* PROTOCOL CMNS REQUIRES NO BOARD TYPE INFORMATION6* ' .IF @P$RT@$XX, EQ, "CMNS"  .EXIT " .ELSE % *.IF "@BD@P$RT@$XX", EQ, "BD@P$RT@$XX" * .SYN BD@P$RT@$XX=@$NBD .EXIT ! .ELSE # .SYN $R1  ="(@BD@P$RT@$XX)"   .ENDIF "  .LOOP# * .SPLIT LIST="@$R1",FIRST=$F1,REST=$R1* .UNTIL "@$F1",EQ,"@$NBD"  .WHILE "@$R1",NE,"$R1"   .REPEAT"  .IF "@$F1",NE,"@$NBD"  .SYN $F1="," 0 .SYN BD@P$RT@$XX="@BD@P$RT@$XX^@$F1^@$NBD" 0 .ENDIF# .SYN $F1=""  .ENDIF% SYN $R1="(@$LNK)"  .LOOP " *.SPLIT LIST="@$R1",FIRST=$F1,REST=$R1 *" .UNTIL "@$F1",EQ,"@P$RT@$XX" " .WHILE "@$R1",NE,"$R1"  .REPEAT ! .IF "@$F1", NE, "@P$RT@$XX"   .SYN $F1="," & .SYN $LNK="@$LNK^@$F1^@P$RT@$XX" & .ENDIF" .SYN $F1="" ! .ENDIF% * '6* PROTOCOL CMNS REQUIRES NO BOARD TYPE INFORMATION6* ' .IF @P$RT@$XX, EQ, "CMNS"  C$SYN % 2.SYN C$RU="",C$HCT="",I$NTR="",R$EC="",B$UN=""22.SYN $XX="",$CTCHN="",$BCC="",C$TBL="",C$NT=""20.SYN P$RT00="",P$RT01="",P$RT02="",P$RT03=""00.SYN D$VC00="",D$VC01="",D$VC02="",D$VC03=""02.SYN $NH00="",$NH01="",$NH02="",$NH03="",$U=""20.SYN $ACU00="",$ACU01="",$ACU02="",$ACU03=""00.SYN B$FR00="",B$FR01="",B$FR02="",B$FR03=""00.SYN PRDF00="",PRDF01="",PRDF02="",PRDF03=""04.SYN $$DSCD="",$COBJ="",$NBD="",$DSR="",$CVN="" 4,.SYN $COK="",$CDAT="",$LNK="",$CSNAM="" ,$BCD(BUILD COMMUNICATIONS DSRS), $,SYSGEN DATA DISK/VOLUME =ACNM(@$$DSCD), , SYSTEM NAME=ACNM(@$CSNAM),,COMM DSR PARTS ACCESS NAME=(ACNM)(@$CVN),(* '* ' .SYN $CVN="@@&COMM"  .SYN $COBJ="@@$CVN"  .SYN $$DSCD="@@&SYSGEN"  .SYN $CDAT="@$$DSCD" .SYN $CSNAM="&SYSTEM" * ' * BATCH LISTING DIRECTORY  .SYN $CLST="@@$COBJ" CFDIR P=@$CLST.BL,M=35* ' * COMM MACROS DIRECTORY * '*CFDIR P=@$$DSCD.S$SYSGEN.MACROS, ME=5 *0CFDIR P=@$$DSCD.S$SYSGEN.MACROS.COMM, ME=35 0* '*  GENERATE THE PARTS* '. .SYN C$TBL=@$$DSCD.S$SYSGEN.@$CSNAM.CFDSR .. .DATA @C$TBL,EXTEND=NO,REPLAC=YES,SUB=YES .* '.* COMMUNICATION DSR CONFIGURATION MODULE. .6* THIS MODULE DEFINES ALL TABLES USED BY THE COMM 6@6* SOFTWARE PACKAGES. IT IS EXPECTED TO BE MODIFIED68* BY THE CUSTOMER AT GENERATION TIME TO SERVICE THE 86* SYSTEM CONFIGURATION AS DEFINED BY HIS HARDWARE 6"* AND SOFTWARE CONFIGURATION. "* 'CFDIDT IDT'CFDSR' ,CFSTRT LIBIN $CDAT.S$SYSGEN.MACROS.COMM ,  .EOD  ! '* ' * INSTALL COM GEN TASK* '2XB I=@$COBJ.DCOMM.B.GENINS,L=@$COBJ.BL.GENINS 2(.OVLY OVLY=>23,CODE=10,PARMS=("NO") (! ' .SYN R$EC="00"  .SYN $BCC="0000"  .SYN $LNK=""  *AGL FOR DX VERSIONS ONLY .AGL ACNM=@$COBJ.S$COMGEN,DISPLAY=NO,PF=YES.  .LOOP# $ .BID TASK=CONFIG,LUNO="@$$LU", $4 PARMS=("@$CDAT.S$SYSGEN.@$CSNAM.CONFIG",@R$EC) 4 .EVAL $BCC="@$$CC"  .UNTIL @$BCC,NE,"0000"  .SYN $XX="00" .SYN $CTCHN="00"  .SYN $NBD="" ! '8*SAVE NUMBER OF CHANNELS FOR LOOPING TO BUILD DSR'S 8 .EVAL $CTCHN="@C$HCT"! '6*GET BOARD TYPE FOR DEVICE IF PROTOCOL NOT 'CMNS' 6 .IF @P$RT@$XX, NE, "CMNS" BDTYP   .ENDIF ! ! '  .LOOP!  .EVAL $CTCHN="@$CTCHN-1" ! ' *IF P$RTXX IS SET "*BUILD SPECIFIC PROTOCOL'S DSR"  .IF @P$RT@$XX, NE, P$RT@$XX  .IF @P$RT@$XX, EQ, "2780" BLD3780   .ELSE BLD@P$RT@$XX  .ENDIF  <*ADD BOARD TYPE TO LIST OF DEVICES RUNNING THIS PROTOCOL < *AND PROTOCOL TO LINK LISTCLDP   .ENDIF !  .WHILE @$CTCHN, GT, "00"  .EVAL $XX="@$XX+01" .IF @$XX, LT, 10  .SYN $XX="0@$XX"   .ENDIF   .REPEAT * '0*MACRO COMIST IS USED IF COMM BOARD IS COMIF0* ' .IF @$NBD, EQ, "COMIF"..DATA @C$TBL,EXTEND=YES,REPLAC=YES,SUB=YES.6Y@$U COMIST @$U,@C$RU,@$NH@$XX,@PRDF@$XX,@$ACU@$XX6.EOD% .ENDIF% * '2*MACRO BCMIST IS USED IF COMM BOARD ISBCAIM 2* ' .IF @$NBD, EQ, "BCAIM"..DATA @C$TBL,EXTEND=YES,REPLAC=YES,SUB=YES.6Y@$U BCMIST @$U,@C$RU,@$NH@$XX,@PRDF@$XX,@$ACU@$XX6.EOD% .ENDIF% * '<*MACROS FC3IST AND FC3CHN ARE USED IF COMM BOARD IS FC3 <0*FC3CHN IS CALLED ONLY FOR DEFINED CHANNELS 0* ' .IF @$NBD, EQ, "FCCC" ..DATA @C$TBL,EXTEND=YES,REPLAC=YES,SUB=YES.$Y@B$UN FC3IST @B$UN,@C$RU,@C$HCT$.EOD%.SYN $XX="00"  .LOOP "  .EVAL C$HCT="@C$HCT-1" .IF @P$RT@$XX, NE, P$RT@$XX  0.DATA @C$TBL,EXTEND=YES,REPLACE=YES,SUB=YES 0 Z@D$VC@$XX FC3CHN @B$U2N,@D$VC@$XX,@$XX,@$NH@$XX,@PRDF@$XX,@$ACU@$XX 2.EOD  .ENDIF  ! CLEAR CHANNEL SYNONYMS,.SYN P$RT@$XX="",B$FR@$XX="",D$VC@$XX="",,.SYN PRDF@$XX="",$NH@$XX="",$ACU@$XX="" , .WHILE @C$HCT, GT, "00"  .EVAL $XX="@$XX+01"  .IF @$XX, LT, 10  .SYN $XX="0@$XX"   .ENDIF  .REPEAT ! .ENDIF%  .REPEAT" ! ' RGL LUNO="@$$LU"  .IF @$BCC, EQ, "0002"< MSG TEXT="ENTER TO START DSR GENERATION PROCESS.", < REP=$COK  .IF @$COK, NE, $COK .EXIT  .ENDIF !  .ELSE$ F! MSG TEXT="DSR GENERATION FAILED. CHECK FOLLOWING ERROR MESSAGE." F  .EXIT"  .ENDIF # * '<*RELEASE UNNECESSARY SYNONYMS (AVOID SYN TABLE OVERFLOW) <2.SYN C$RU="",C$HCT="",I$NTR="",R$EC="",B$UN=""2 .SYN $XX="",$CTCHN="", $BCC="",C$TBL="",C$NT=""0.SYN P$RT00="",D$VC00="",B$FR00="",$NH00="" 0".SYN $ACU00="",$U="",PRDF00="""* '* LINK DSR(S) !* ' .SYN $DSRL="(@$LNK)"  .LOOP $ ..SPLIT LIST="@$DSRL",FIRST=$DSR,REST=$DSRL. .UNTIL "@$DSR", EQ, "$DSRL"  LNK@$DSR! .REPEAT # * ' * ASSEMBLE CONFIG MODULE AND * LINK COMMCOM!* '4XB I=@$COBJ.DCOMM.B.COMMCOM,L=@$COBJ.BL.COMMCOM 4(.OVLY OVLY=>23,CODE=10,PARMS=("NO") (! ' * DSR GENERATION COMPLETE ! '< MSG TEXT="COMPLETE XGEN PROCESS AND APPLY DSR PATCHES" <! '2.SYN $CDAT="",$COK="",$DSR="",$NBD="",$COBJ=""2.SYN $LNK=""" .SYN $CVN="&COMM" SARY SYNONYMS (AVOID SYN TABLE OVERFLOW) <2.SYN C$RU="",C$HCT="",I$NTR="",R$EC="",B$UN=""2 .SYN $XX="",$CTCHN="",@>LNKCOMA (GENERATE COMA DSR LINK CONTROL FILE AND LINK DSR) >* '4* N.B. PROTOCOL COMA RUNS ONLY ON FCCC AND BCAIM4* '(< .DATA @$COBJ.DCOMA.L.DSR,EXTEND=NO,REPLACE=YES,SUB=YES < NOSYMT% . LIBRARY $COBJ.DCOMM.O ;COMMON DSR PARTS.PHASE 0,DSRCOMA  PARTIAL $ INCLUDE (CSUPSY)INCLUDE (CSUPIN)INCLUDE (QUEUES)2INCLUDE (COMPAT) ;COMMON PATCH AREA-C$$PAT2  .EOD % (* '2*SPLIT LIST (BDCOMA) TO DECIDE IF FC3 IS USED 2 *IF SO INCLUDE FC3 ISR* ' .SYN $LST="(@BDCOMA)"  .LOOP" ..SPLIT LIST="@$LST", FIRST=$BD1, REST=$LST .  .UNTIL "@$BD1", EQ, "FCCC"   .WHILE "@$LST", NE, "$LST"   .REPEAT!  .IF "@$BD1", EQ, "FCCC"< .DATA @$COBJ.DCOMA.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (FC3ISR)  .EOD $ .ELSE % < .DATA @$COBJ.DCOMA.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (DUMFC3)  .EOD $ .ENDIF% (* '4*SPLIT LIST (BDCOMA) TO DECIDE IF BCAIM IS USED 4 *IF SO INCLUDE BCAIM ISR* ' .SYN $LST="(@BDCOMA)"  .LOOP" ..SPLIT LIST="@$LST", FIRST=$BD1, REST=$LST .  .UNTIL "@$BD1", EQ, "BCAIM"  .WHILE "@$LST", NE, "$LST"   .REPEAT!  .IF "@$BD1", EQ, "BCAIM" < .DATA @$COBJ.DCOMA.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (DUMCMF)INCLUDE (BCMISR)INCLUDE (DUMLCD)END &  .EOD $ .ELSE % < .DATA @$COBJ.DCOMA.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (DUMCMF)INCLUDE (DUMBCM)INCLUDE (DUMLCD)END &  .EOD $ .ENDIF% ((".SYN $BD1="",BDCOMA="",$LST="""* '0XB I=@$COBJ.DCOMA.B.DSR,L=@$COBJ.BL.DSRCOMA 0WAIT MESSAGE=NO * '(.ENDIF% (* '4*SPLIT LIST (BDCOMA) TO DECIDE IF BCAIM IS USED 4 *IF SO INCLUDE BCAIM ISR* ' .SYN $LST="(@BDCOMA)"  .LOOP" ..SPLIT LIST="@$LST", FIRST=$BD1, REST=$LST .  .UNTIL "@$BD1", EQ, "BCAIM"  .WHILE "@$LST", NE, "$LST"   .REPEAT!  .IF "@$BD1", EQ, "BCAIM" < .DATA @$COBJ.DCOMA.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (DUMCMF)INCLUDE (BCMISR)INCLUDE (DUMLCD)END &  .EOD $ .ELSE % < .DATA @$COBJ.DCOMA.L.DSR,EXTEND=YES,REPLACE=YES,SUB=YES <INCLUDE (DUMCMF)INCLUDE (DUMBCM)INCLUDE (DUMLCD)END &  .EOD $ .ENDIF%  DCOMM DXCMO  L D  $$ O D  $$ P D $#$B D $2$&C D  $K$6L DCOMM COMMCOM `P  $CONFIG `P  $ NOSYMT%  LIBRARY $COBJ.DCOMM.O PHASE 0,COMMCOM  PARTIAL $ INCLUDE (SWSPAT)INCLUDE (COMSWS)INCLUDE (COMSUP)INCLUDE (CFDSR) END & NOSYMT% $LIBRARY  $CDAT.SCI990.S$OBJECT $FORMATIMAGE,REPLACE TASKCONFIG"INCLUDE  $COBJ.DCOMM.O.CONFIG""INCLUDE  $COBJ.DCOMM.O.CCPAT1"END &D &O DCOMM CCPAT1 P Z$SWSPAT P  Xf$CSUPSY P 9$DUMCMF P$p$COMISR P Lx[$BCMISR P +X$ FC3ISR P I;۠$ COMPAT P ]|$ DUMBCM P%x$ DUMLCD P eڀ$QUEUES P fڜ$CONFIG P h5$COMSWS P zV$ COMSUP P # @_$ DUMFC3 P h$CSUPIN P  ي$@R#00202CCPAT1 A0000B0202BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F072F CCPA0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPAN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F CCPA0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F CCPA0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0010RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0011R0BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB0$DEADBDEADBDEADBDEAD7EEB9F CCPA0012$R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0013RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0014R&BDEADBDEADBDEADBDEADBDEADBDEADBDEADB&.DEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0015.R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0016RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0017R BDEADBDEADBDEADBDEADBDEADB8DEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA00188R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0020RBDEAD7FE79F CCPA0021D:  CCPAT1  08/21/81 15:37:08  SDSMAC 3.4.0 81.117CCPA0022DDBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CCPA0020RBDEAD7FE79F CC@R#00082SWSPAT A0000B0082BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F020F SWSP0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F SWSP0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F SWSPN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F SWSP0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F SWSP0005R& BDEADBDEADBDEADBDEAD7FA89FSWSP0006& 50000CS$PAT7FD35F SWSP0007D:  SWSPAT  08/21/81 15:27:21  SDSMAC 3.4.0 81.117SWSP0008DSWSP0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F SWSP0005R& BDEADBDEADBDEADBDEAD7FA89FSWSP0006& 50000CS$PAT7FD35F SWSP@R#0046ACSUPSY A0000BFFFFB4004B0002B0800B1000B3000B0000C0306C02CC7F1E3F CSUP0001RR(C036AC0326BC1D1B0221BFFF6BC201BA228BFFFEB0228BFFE2BD183B06C6BD1827F0DBF CSUP0002RN&B41A0C0004BC264B0068B1307BE1A0C0004BC261B0002B7A60B0000B001FBCE067F1AFF CSUPN0003R(BCE01BC248B04F9BCE44B9807C0006B1602B0460C01D0B0987B05C9BCE61B000C7F14FF CSUP0004RR(BCE44BCE64B0002B0287B0010B1424B04CABD2A7C0456BCA0AB0004BC1A4B00007F166F CSUP0005RD!B1602BC1A0B0000B024AB0F00B980AC0462B1306B980AC0460B1306B05A6BFFFC7DF173F CSUP0006R(B1005B05A6BFFFAB1002B05A6BFFF8B087AB046AC00A6B1006B100DB1012B10147F158F CSUP0007RR(B101BB1001B100EB0206B4002BFA06B0006B06C6BDA06B0005B1006BC921B00067F1C7F CSUP0008R:B0066BC921B0002B0062B04F9B04F9B1039B9828B0004C0463B13F9B: C161B00127F1B9F CSUP0009R(B13F6B1003BC161B0010B13F2BC2A4B0002BC183B0A26B1704BC2A1B0002B022A7F1A5F CSUP0010RR(B0032BCE4ABC2E1B000EBC18BBA2C5B058BB024BBFFFEBCE4BB079AB04FBB079A7F09AF CSUP0011R0B04FBB0265B8000B07DABCEC5B618BB079AB04FBB07DAB0$CEC6BD1E1B000DB0A777F0C9F CSUP0012$R(B1707BD1E1B0018B0247BFF00B07DABCEC7B1002B079AB04FBB079AB04DBBD2A17F102F CSUP0013RR(B000DB0A7AB1709BCE61B0016BCE61B0018BCE61B001ABCE61B001CB1004B04F97F147F CSUP0014R&B04F9B04F9B04F9B04E4B0046B0242BBFFFB&.0300B0002BC464B0048BC901B00487F168F CSUP0015.R(B0300B000FBC1A8B0006B0A26B1720BC244B0229B0054B0300B0002BC199B13037F1DBF CSUP0016RR(BC588BC648B1002BCE48BCE48B0300B000FB05A0B0000B05A4B0060B0262B02007F19CF CSUP0017R BC268BFFFEBC229B0002BBA20C80040B0060B0229B000AB06A0B0000B0380B06A07F18CF CSUP00188R(B0000B0380BD2A1B000DB0A7AB175FB04F9BCE61B000CBCE44BC2C4B022BB00027F143F CSUP0019RR(BCE5BB04F9B04F9BCE61B0016BCE61B0018BCE61B001ABC2A1B001CBCE4ABDA0A7F0CDF CSUP0020RB0004BC2E1B0012BB 13B1BC261B0002B0229B0032BD168B0004B0245B0F00BC2E17F1C3F CSUP0021BR(B0004B0799BC2EBB0006BCA09B000CBCA0BB000EB04E0C000CB0207BFFFABC2897F116F CSUP0022RR(BC1BAB0546B818BB1204B05CAB05C7B11F9B1029BC1A1B0002B05C7B130BB02277F162F CSUP0023RB0024BL%A1C6BC1D7B1306BD1E7B0001B0247B8000B1608B1005BC1E6B000AB02477F19CF CSUP0024LR(B2000B1602B0720C000CB0799BC1EBB0004B0799B04EBB0006B1505B130BB98057F1AEF CSUP0025RR(C0468B1610B04C5B07D9BC6C9B0799BC2EBB0002B1301B10CCB0209B4072BFA097F154F CSUP0026RT@R(B0006B06C9BDA09B0005B1011BD183B06C6BD182B0246BFFBDBC260C000CB13077F15BF CSUP0027RR(BC261B0002BBA60C01BCB001FB0266B0040BCA06BFFFCB0460C016ABC22DB00107F14AF CSUP0028RN&BC1EDB0004B0300B0002BC264B0048B1312B8229B0002B160DB8A47B0004B160A7F1C5F CSUPN0029R(B5A60B0000B000DBC269B0006B7A60C02BCB0003BC39EB0380BC259B16EEB05CE7F14CF CSUP0030RR(B0380B892DB0008B0062B1602BC082B1103B0242BC7FFB0380B0262B1000B02427F1D6F CSUP0031RD!BF7FFB0207B0200B1002B0207B7000BC204B0228B0072BC228B0008B1619BC2247DF1C7F CSUP0032R(B0066BBA20C02F6B0003BC224B0062BBA20C033CB0061BC204B0228B0072BDA077F199F CSUP0033RR(B0004BC1C4B0227B0060BCA07BFFFEBD9E0C02ECB000DB06A0C01CCB0380B98207F11FF CSUP0034R:C0444B0000B1A03BD820C0444C036EB0208B0000BC278B1305B04F9B: 04F9B07297F1B4F CSUP0035R(B0002B10F9BC244B0229B0048BC219B1315B8248B1602B04D9B1011BC219B130F7F1B2F CSUP0036RR(BC658BA228BFFFEB0228BFFE6BDA20C0003B0005BFA20C0002B0006BC244B06A07F12CF CSUP0037R0B0000B10E6B04E4B005EBC224B0002BC908B007CB04C6B0$C244BC1C4BC2E9B00507F164F CSUP0038$R(B818BB1305BC1C9BC24BBC2E9B0014B10F9BC189B0736B04F6B04F6BC2B6BD2E97F0FAF CSUP0039RR(B000CB024BB0F00B06CBB0A1BBCA6BC0446B0010BC2EBC044EBC58BBC2EBBFFFE7F0B4F CSUP0040R&B040ABC189B8906B0050B16DDBC264B0050B&.04CABD2A9B000DBC2CAB024AB80007F142F CSUP0041.R(B0243B7FFFBE0CAB2AE0C000ABC28BB0A1AB024AB4400BD90AB0065B0A2BB024B7F103F CSUP0042RR(B4400BD90BB0064B0380B0600B0000B0000B0000B0000B0000B0000B0000B00007F25DF CSUP0043R B1102B1221B2254B3646B7614B*0413B0353B1626B7473B05707F536FCSUP0044*J50469ABRTOP30454BCMEXT3044CBCMINT5045DBSPCOP30346BYTE017F1FDF CSUP0045JJ30360BYTE8030366CALLHL50458CEOFOP50457CLOPCD6B810CLSAFL7F23DF CSUP0046J0 5045ACLUNOP303BACNHL 50012COMDSR50016COMENT300450COMEXT7F21DF CSUP0047J30448COMINT50468CWRTOP301A8DDTFLG301C6ENDR0 40000ETSK 7F263F CSUP0048JJ30452FCCEXT3044AFCCINT5045CFSPCOP50444IORQMX30446LCDCMP7F1DAF CSUP0049J>3044ELCDREQ40000MASKIN30376MAXIO 40000MM$GS040000MM$RSA7F292>F CSUP0050J40000NXTCRB50456OPENOP50459OPRWOP3007EPDTLST60000PDTSTK7F187F CSUP0051JJ40000POP0 5045FRASCOP50460READOP50466RPRMOP5045BRSTSOP7F200F CSUP0052JJ50464RWDOP 40000SCRASH3037ASLQADD50465UNLOP 40000UNMASK7F226F CSUP0053JLJ50461WASCOP40000WD020040000WD380050463WEOFOP50467WPRMOP7F294F CSUP0054J 50462WRITOP7FCE3F CSUP0055D:  CSUPSY  08/21/81 15:28:13  SDSMAC 3.4.0 81.117CSUP0056D 40000SCRASH3037ASLQADD50465UNLOP 40000UNMASK7F226F CSUP0053JL@R#006FCCOMISR A0000C03B6C03D0C0448B404FB404EB404DB404CB1D08B1D0A7F190F COMI0001RR(B1D05B06A0C04A6B0380C000EB1F0BB130DB1E0EB0209C002AB06A0B0000B06007F199F COMI0002RN&C0044C00D6C00F2C013EC014CC0136C0114B0209B4007B05A4B0090B1075BD0A87F1BAF COMIN0003R(B0004B0242BF000B1339B0207B4006BC048B0A22B1802B1516B1315B1E0FB1D087F1CBF COMI0004RR(B1E01B1E02B1E0BBC264B003CB04E9B0008B0229B0010B06A0B0000BC264B00387F1AAF COMI0005RD!B04E9B0008B0229B0010B06A0C0074B0A22B1719BC224B008CB1306B04E4B008E7DF1B3F COMI0006R(B04E4B008CB06A0B0000BC200B130EB1D08B1E00B1E0BBC920C0000B0088B04E47F18BF COMI0007RR(B008ABD924B006EB008BB04C0B06A0C009ABC201B1036BC2A4B008CB162ABC9087F152F COMI0008R:B008CBD2A8B0012B06CABC90AB008EB102EBC1E4B000AB131FBC000B: 161DBC1E47F121F COMI0009R(B008AB1604B06A0C04A6B06A0C0542BC008B1020BC048BC200B1304B0209B40067F1C6F COMI0010RR(B06A0B0000BC001BC920C0004B0088BC920B0000B008AB0724B000AB100FB02097F1DAF COMI0011R0B4002B100AB0209B4003B1007B0209B4018B1004B0209B0$4043B1001B04C9B06A07F211F COMI0012$R(C00FEB1D0EB0380B8924B0038B003CB16EBB9A20B0000B0004B131ABC164B003C7F17EF COMI0013RR(B100AB9A20B0000B0004B13ECB9A20B0000B0004B1336BC164B0038BC2A4B000A7F1C0F COMI0014R&B16DDBC245B0229B0010B06A0B0000B8679B&.16DFB06A0C062EB10DCBC2E8B000E7F14AF COMI0015.R(BC2A8B000CB079ABC26BB0004B079ABC1EBB000CB0287B0032B1BCCB0917B18C77F12AF COMI0016RR(B0A17B07DABCAC9B0006BC187B0227B0056BA1C4B0226BFFCEB0506B8246B15017F13EF COMI0017R BC246B079ABA2EBB0008B022BB80006B079ABCDFBB0649B15FCB10B2BC2E8B000E7F103F COMI00188R(BC2A8B000CB079ABC26BB0004B0249B0FFFB0229BFFFAB11A6B079ABA2EBB00087F0EFF COMI0019RR(B022BB0006B04C7B07DABDAC7B0005B0609B119BB07DABCACCB0006B0649B11967F139F COMI0020RB07DABCAE4B009CBB 0008B0649B1190B07DABDAE4B000CB000AB04C9B108AB1F087F11DF COMI0021BR(B1654BC000B1604B1D0AB1E03B1E0BB0700BC141B04CAB1D0BB1F0BB1000B10007F180F COMI0022RR(B360AB1F0FB1617B04C7B1F0EB1307B05C7B1F0DB1304B05C7B1F0CB1301B05C77F145F COMI0023RBC1A7CL%0006BA1C4B05A7B0094BC1E4B0064B0247B0040B1303B1E0BBC246B10077F18BF COMI0024LR(B1E0BBC215B1304B0698B1002B100BB1010B05C5BC195B05B5BC1F5B1301B07D77F184F COMI0025RR(BD58ABCD75B0615B1302BC249B1318BC141B06A0C0566B1014BC1E5B0014BC9477F167F COMI0026RT@R(B0018B0287BFFFFB130ABC1E5B000CBC2A5B0004B06A0C063CBC861B0018B00147F154F COMI0027RR(B1003B0209B4013B10E8B1F0EB13ABB0380B1F0FB1635BC282B1306B1126B32247F1A2F COMI0028RN&B005EB1E0BB0602B10F3BC143B04CAB05C5BC1B5BC1D5B1301B0797BD296BC1437F137F COMIN0029R(BC215B1303B0698B1001B1005B05C5B05B5B05C5BCD75B0615B320AB1E0BBC1D57F16EF COMI0030RR(B1302BC249B13DABC223B000EB150DBC8C9B0016B0202BFFFEB10D2B020ABFF007F126F COMI0031RD!B320AB1E0BB0582B16CCBC263B0016BC143B06A0C0566B10C6B1F0DB1302B04607DF177F COMI0032R(C04A0BC221B0008B130CBC221B001CB1103B1302B0621B001CB0621B0008B16037F1F3F COMI0033RR(BC141B06A0C0562BC221B0014B1305B0621B0014B1602B0721B0014B80C1B130F7F1EFF COMI0034R:BC223B0008B130CBC223B001CB1303B1102B0623B001CB0623B0008B: 1603BC1437F1E6F COMI0035R(B06A0C0562BC2A4B008EB130CB0624B008EB1609BC224B008CB1306B0209B40137F1A0F COMI0036RR(B06A0C00BAB04E4B008CBC144B0225B0088B04C9BC2B5BC215B045AB130AB06157F165F COMI0037R0B1670BC224B0016B1305B06A0C04C6B06A0C0542B1068B0$1E0EB1066B1F04B13027F1B6F COMI0038$R(B1F00B1612B0207C03EABD1A4B006CB0986B1D08B1D00B1E0BB1056B1F00B16077F176F COMI0039RR(BC2A4B0064B024AB0200B1309B1F05B1307BC295B134EB0615B164CB0209B40137F1B1F COMI0040R&B1032B0207C0418B04C6B04E4B000AB04C9B&.1038B1F00B1607BC2A4B0064B024A7F1ABF COMI0041.R(B0200B133BB1F05B1339BD1A4B006DB0986B0207C0436B1030B1F00B1607BC2A47F1A3F COMI0042RR(B0064B024AB0200B13E3B1F05B13E1B0615B1628B0207B4018BC241B04E9B00087F1C3F COMI0043R B0229B0010B06A0C0084BC243B804E9B0008B0229B0010B06A0C045CB04C9B07247F1C8F COMI00448R(B000AB1D08B1E00B1E01B1E02B1E0BB1E0FB0207C03B6BC1A4B006EB0986BC2247F14DF COMI0045RR(B0016B1304B06A0C0130B04E4B0016BC546BC947BFFFEB1E0DB1D0DB04C9B1E0C7F124F COMI0046RB0380B04E4B0016BB 04E4B008CB04E4B008EB0207B0000B020AB0056BA284B02097F1BDF COMI0047BR(B0032BCEB7B0649B16FDBC244B0229B00BCBC909B0038BC164B0064B0245B04007F16FF COMI0048RR(B1603BC924B003CB0038BC164B0038B04E5B0010B04E5B0012B04E5B0008B1D097F1B5F COMI0049RB3224BL%005EB1E0BBC164B003CB04E5B0010B04E5B0012B04E5B0008B1D0AB1D087F185F COMI0050LR(B3224B0072B1E08B1D09B1E09B3224B0071B1E0BB04E4B008ABD924B006EB008B7F177F COMI0051RR(BC920C0000B0088B0724B000AB04E4B0048B1D08B3224B0070B1E0BB1E0DB1D0D7F18FF COMI0052RT@R(B045BB9A20B0000B0004B1303B1D08B1D00B1E0BB04E4B008ABD928B0012B008A7F19AF COMI0053RR(BC920C0002B0088B045BB0209B4013B04E5B0008BC1E5B000CBC1A5B000EBC2867F187F COMI0054RN&B0246B7FFFB61A5B000ABC249B1602B074AB1502B0266B8000BC2A5B0004B07DA7F16CF COMIN0055R(BC9C6B0006BC249B1609BC24AB079ABC2B7B0799BC1D7B04C9B0286B8000B1A1E7F121F COMI0056RR(B9825B001AB0000B1308B1F0AB1602B05A4B0092B1E0FB1D08B1E01B1002B1D087F1A3F COMI0057RD!B1E02B1E0BBC249B1623B9825B001AB0000B161FBD265B001BB0249BF000BB2607DF186F COMI0058R(C05ACBD949B001BB102CBC947B000CB05C5B079ABC1A7B0004B079ABC227B00087F143F COMI0059RR(B0228B0006BA207BCD48BCD4ABCD75BC206B0246B7FFFBCD46BCD47BC548B100D7F0D5F COMI0060R:BC225B0012BC958B0012BC18BB06A0C0490BC2C6BC225B0012B1604B: 04E5B00107F19AF COMI0061R(B04C9B045BBC2A8B000CBC1E8B000EBD968B0004B001BBC947B000CBD265B001B7F13DF COMI0062RR(BC189B0246B0F00BD946B001AB91A0C05DCB1602B0226B0008B0246B000FB02497F19BF COMI0063R0B3000B09B9BA189BA1A4B007ABCD56B079ABC1A7B0004B0$079ABC227B0008B079A7F13BF COMI0064$R(BD267B000AB0989B0228B0006BA207BCD48BCD4AB04F5BCD49BC206B0246B7FFF7F103F COMI0065RR(BCD46BCD47BC548B9960C0650B000CB1317BD964B0058BFFF9B04E5B0006B1D087F125F COMI0066R&B1D01B1E0BB1D0FB04E4B003ABD924B0061B&.003BB131DB1F0FB161BB3224B005E7F151F COMI0067.R(B1E0BB0624B003AB10F7BD964B0059BFFF9BC965BFFFAB0006B1F09B160AB1D087F0F4F COMI0068RR(B1E02B1E0BB04E4B0036B1D0AB1D03B1E0BB04E4B0036B1D08B1D02B1E0BB04C97F141F COMI0069RB045B7FEACF COMI00701B@J5001CCOMEXT502BECOMINT304B4CPARMS305CECWRTOP30544OPENOP7F165F COMI0071JJ3016EQUE 3069AREADOP3046AREPALL303A2REPERR3061CREPRTE7F21BF COMI0072JJ3014ERPRMOP30156RSTSOP30028VECTOR3010AWD000140000WD10007F271F COMI0073J40000WD4000400& 00WD800030140WPRMOP7F842F COMI0074&D:  COMISR  08/21/81 15:34:24  SDSMAC 3.4.0 81.117COMI0075DA2REPERR3061CREPRTE7F21BF COMI0072JJ3014ERPRMOP30156RSTSOP30028VECTOR3010AWD000140000WD10007F271F COMI0073J40000WD4000400@R#0085CBCMISR A0000B0FAAB55FFB0000B8000B0C1CB2C73B7454B0505B43007F1C5F BCMI0001RR(A0012B04E4B005AB04E4B0056B04E4B0058B04E4B005EB3400B0580B131DB1D0B7F19DF BCMI0002RN&B0206B0015B0205B5668B0606B1316B1F0BB1617B1F0AB1303B0605B13F6B10F97F1B8F BCMIN0003R(B0202B0006BC244B0229B008FB3639B1E0AB0207B0400B0602B1304B1F0AB13F87F1BAF BCMI0004RR(B0607B16FCB0724B0060B0380B0209C0000B0202B0005B1D08B0207B0400B1F0D7F1EAF BCMI0005RD!B1303B0607B16FCB10F1B3239B0602B16F6BC284B022AB008FB0202B0006B02097DF1AEF BCMI0006R(C0000B0207B0400B1F0AB1303B0607B16FCB10E0B361AB1E0AB9E7AB1302B07247F194F BCMI0007RR(B0060B0602B16F1BC0A4B0060B1601B1D0AB0380C0012BC2A4B0060B1638B02097F1CBF BCMI0008R:C00CEB06A0B0000B0380B0F00C0100C00F0C0100C0174C0174C0174C: 0100C01007F208F BCMI0009R(C0100C0100C0100C0100C014EC0100C0142C0100B04CABD2A8B0013B1604BD2A47F1EFF BCMI0010RR(B005DBDA0AB0013BDA28B0004B0016BDA20C000FB0017B1E0FBC244B0229B00567F17BF BCMI0011R0B06A0B0000BC264B0098B1609B0724B009CB0200B0040B0$06A0C02E4B1000B04E47F1D8F BCMI0012$R(B009CB1D0FB0380B0209B4007B05A4B005AB06A0B0000B0380B0209B4002B10FA7F1BCF BCMI0013RR(B0209B4028B10F7BC2A8B000EBC1E8B000CB1301B0797BCA2AB000CB0012BC1C77F15AF BCMI0014R&B1301B0797BC1AAB0004B0246B0FFFBCA06B&.0014B10C6BD1A8B0004B9806C000D7F164F BCMI0015.R(B1369B05A4B005EBDA06B0016B04E8B0014BC2A8B000EB1322BC1E8B000CB13017F17CF BCMI0016RR(B0797BDA2AB000AB0012BC1C7B1301B0797BC26AB0004BC1C7B1301B07D7BCA897F148F BCMI0017R B0006B110EBAA09B0014BC1C7B81301B0797BC16AB0002B13C2BC1C7B1301B07977F188F BCMI00188R(BC1DABC285B10E7BAA09B0014B0246BFF00BC1E8B000EB130BBC1E8B000CB02867F11FF BCMI0019RR(B3500B1215B9806C0010B132CB9806C000CB1305B9806C000BB1302B0460C01427F1F6F BCMI0020RBC2A8B000EB1324BB C1C7B1301B0797BDA2AB000DB0013B101DB0246B0F00B98067F179F BCMI0021BR(C000EB1615BC1C7B1301B0797BC16AB0002B0797BC1DABC285B138DBC1C7B13017F150F BCMI0022RR(B0797BC26AB0004BC1C7B1301B07D7BCA89B0006B1101B10EBBDA24B005FB00137F163F BCMI0023RB0460CL%0106BC2A8B000EBC1E8B000CB1301B0797BC26AB0004B0249B0FFFB02297F16CF BCMI0024LR(BFFFAB1124BC1C7B1301B0797BA2AAB0008B022AB0006B04C6BC1C7B1301B07D77F140F BCMI0025RR(BDA86B0005B0609B1115BC1C7B1301B07D7BCA8CB0006B0649B110EBC1C7B13017F169F BCMI0026RT@R(B07D7BCAA4B009EB0008B0649B1106BC1C7B1301B07D7BDAA4B000CB000AB04C97F140F BCMI0027RR(B0460C013CB1F0EB1610B1F0AB1602B0460C056CB1F0DB160ABC024B009CB16077F179F BCMI0028RN&B0200B0004B06A0C02DEB10F0B0460C04BEB0380BC224B0098B1338B1F0DB166D7F187F BCMIN0029R(BC188B0226B0016BC096B0242B00FFB1307B0282B0005B1614BD296B0226BFFFC7F178F BCMI0030RR(B1012BC096B9802C000BB1309B0242BFF00B0282B0C00B1304BC924B0058B00987F1BBF BCMI0031RD!B10E0BC08BB0460C0488B6182BD2B6BC240B1F0DB1306B0609B16FCBA182B0A827DF14AF BCMI0032R(BD582B1044B1D08B320AB0602B16F2B1E0FBD982B0001B1E08BC08BB0209C03707F174F BCMI0033RR(B06A0C00CAB05CBB045BB04D8BC2C2BC924B0058B0098B04E4B009CB8143B16017F153F BCMI0034R:B1D0DB1D0FB10F2B0F00C03CEC03CEC03CEC03D6C03E0C03F2C03CEC: 03CEC03CE7F0D1F BCMI0035R(C03CEC03CEC03CEC0466C03CEC0358C03CEBC1D5B1605BC548BC189B06A0C07EE7F0E6F BCMI0036RR(BC246BC299B1302BC688B1002BCA48B0002BC648BD1A8B0017B16D3BC244B02297F162F BCMI0037R0B0056B06A0B0000C0358B10CBBC908B0098B04E4B009CB0$1D0DB045BBC244B02297F17AF BCMI0038$R(B008AB10E5B95A0C000BB1348BC143B1005B9A20C000CB0004B13F3BC141BC2457F190F BCMI0039RR(B0229B000AB10D0BD1A8B0016B09E6B16F3B0206B4005BAA06B0016B04C5B07287F196F BCMI0040R&B0014B04CBBC2A8B000EBC1E8B000CBC2CBB&.1307B04CBBC1C7B1301B0797BDA2A7F10AF BCMI0041.R(B000AB0012BC1C7B1301B0797BC1AAB0004B110DB0246B0FFFBA146BC1C7B13017F164F BCMI0042RR(B0797BC27ABC1C7B1301B0797BC29ABC1C9B10E4BC268B0014B1305B04C5B04E87F13AF BCMI0043R B0014B070BB10EEB0246B0FFFB8A146BCA05B0014B10BBB95A0C0008B16B1B1D0F7F13CF BCMI00448R(BC268B000EBC1A8B0014BC1E8B000CB1301B0797BA269B0008B0229B0006B100B7F195F BCMI0045RR(BC1E8B000CBC264B00A0BC1A8B0014BC140B1F0DB1308B0605B16FCBCA06B00147F150F BCMI0046RBC909B00A0BC2C2BB 108CBC1C7B1301B0797B3239B0606B16EFB1E0FBCA06B00147F13FF BCMI0047BR(B1088BC143BC215B134DBC2A5B0008B1602B06A0C07EEB05C5BC1F5BC275BC1437F13FF BCMI0048RR(BC0A5B0006B131DB0200B0010BC1C7B1301B0797BD299B1F0DB1604B1F0CB130C7F17BF BCMI0049RB1D0CBL%1004B0600B16F8B1D0CB1E0DBC949B0004BC942B0006B0460C02B8B1E087F16BF BCMI0050LR(B320AB0589B0602B16E5B04E5B0006BC2A5B0008BC1C7B1301B0797BC1AAB00047F17FF BCMI0051RR(BC246BC1C7B1301B07D7BCA89B0006BC186B1111BC1C7B1301B0797BC1BABC1C77F12BF BCMI0052RT@R(B1301B0797BC29AB1602B0460C0148BC1C6B06A0C082EBC265B0004B10C0B04E57F189F BCMI0053RR(B0008BC558B1605B1E0CBC224B0098B1601B1E0DB0460C02B8BC0A4B0062B16087F189F BCMI0054RN&B1F08B1302B0460C071CB1F09B1314B0202B0006BC244B0229B0095B6242B02007F1E9F BCMIN0055R(B0004B3639B1D0AB0602B130DB1F0AB13F8B0600B16FCBC902B0062B0460C02B87F183F BCMI0056RR(B1D0AB04E4B007AB0460C02B8BC902B0062BD0A4B008FB0242B7FFFBC182B02467F145F BCMI0057RD!B0F00B0976B0466C05C8B100FB100EB100DB1013B1017B100EB1009B1008B10077DF1D1F BCMI0058R(B1006B1005B1004B1014B1002B1001B1000BC144B0225B0080B101FBC002B09E07F219F BCMI0059RR(B1605B90A0C000BB13F6BC143B1017B90A0C000CB1305BC141B1012B90A0C00087F1BBF BCMI0060R:B13ECBC144B0225B0080BD1E4B008FB21E0B0000B1307BC225B000CB: 1302B06A07F19BF BCMI0061R(C07EEB0460C02B8BC245B0229B000CBC289BC219B1310BC182B0246B0F00B02867F17EF BCMI0062RR(B0500B131BB9A02B0016B1315BC248B16F3B1004B05A4B0096B0460C02B8BC2247F1B5F BCMI0063R0B0098B9A02B0016B16F7B04E4B0098BC244B0229B0056B0$06A0C03BCC0652B10287F19BF BCMI0064$R(B8905B009AB1304B9A24B0091B0013B16E4BC658B1607B8289B1603BC958B000A7F196F BCMI0065RR(B1002BC949B000AB8215B1616BC558BC2A5B0008BC1E5B0002B1301B0797BC1AA7F17AF BCMI0066R&B0004B0246B7FFFB61A5B0006BE1A0C061CB&.C1C7B1301B07D7BCA86B0006B04E57F146F BCMI0067.R(B0008BC182B0246B0F00B0286B0500B1611BD1A8B0006B0A26B181DB80C5B160B7F1A5F BCMI0068RR(BD1A4B008FB0A16B1719BDA24B0094B0005BFA20B0000B0006B1012BCA24B00907F19AF BCMI0069R B0012BCA24B0092B0014BDA24B80094B0005BD1A4B008FB0246B8000B0916BFA067F19CF BCMI00708R(B0006B06A0B0000B0460C02B8BC144B0225B0080BC215B160ABC141BC215B16077F1C9F BCMI0071RR(BC225B000CB1602B0460C02B8B06A0C07EEBC2A5B0008B13FBBC1E5B0002BC2657F158F BCMI0072RB0004BC0A5B0006BB 1601B101CB0200B0010B360ABC1C7B1301B07D7BDE4AB1D0A7F189F BCMI0073BR(B0602B1312B1F0AB1308B0600B16FCBC949B0004BC942B0006B0460C02B8B1F087F19BF BCMI0074RR(B16EABC942B0006BC949B0004B0460C057ABC942B0006BC2A5B0008BC1C7B13017F177F BCMI0075RB0797BL%C0AAB0004B20A0C06B6B161ABD0A8B0004B9802C0009B1303B9802C000A7F19AF BCMI0076LR(B1603B04D5B0460C062EBC1C7B1302B07D7B0797BCAAAB0004B0006BC558B04E57F160F BCMI0077RR(B0008B9802C000CB13F1B0460C02B8BC1C7B1301B0797BC1BABC1C7B1301B07977F173F BCMI0078RT@R(BC29ABC1C6B06A0C082EB0460C02B8BC548BC2A8B000EBC1E8B000CB8141B16197F12BF BCMI0079RR(BD268B0004B0249B0F00B0289B0500B1612BC1C7B1301B0797BC23ABC1C7B13017F19AF BCMI0080RN&B0797BC26AB0002BC1C7B1301B0797BC29ABC1C8BC249B1101B10EFBC215B05C57F139F BCMIN0081R(BC1C7B1301B0797BC26AB0008BA24AB0229B0006BCD47BCD49BC1C7B1301B07977F146F BCMI0082R@BC26AB0004B0249B0FFFBCD49BC54AB0225BFFF8B045B7F567F BCMI0083@J500BEBCMEXT502B8BCMINT30670DQUE 30116QUE  30716REPORT7F28AF BCMI0084J3013ERDEPRTE30352VECTOR40000VECTRX306EEWD40003079CWD80007F250F BCMI0085D 40000WDFFFF7FD22F BCMI0086D:  BCMISR  08/21/81 15:32:48  SDSMAC 3.4.0 81.117BCMI0087DB8BCMINT30670DQUE 30116QUE  30716REPORT7F28AF BCMI0084J3013ER@R#00564FC3ISR A0000B8000B4000B0800B0400B0200B0100B2000BAAAAB55557F258F FC3I0001RR(BFFFFB0000C0084BC2A4B0056B1614BC29CB024AB0300B160EB06A0C04E6B10057F165F FC3I0002RN&B0209C0062B06A0B0000B0380B0209B400CB1009B0209B4002B1006B0724B00567F21DF FC3IN0003R(B0209B4007B05A4B005CBFA09B0006B06C9BDA09B0005BC268B0002B06A0B00007F1A0F FC3I0004RR(B0380B0F00C0292C0292C0292C01D8C01D8C01D8C0292C0292C01D8C01D8C01D87F194F FC3I0005RD!C01D8C01DCC02B2C003CC02B2BC26DB000EB06A0C04EAB10D3B9923B0010B000A7DF15CF FC3I0006R(B16CFB04E4B005CB04E4B0058B04E4B005ABC2A4B005EBC244B0229B0060BC0F97F147F FC3I0007RR(B1302B06A0C048EB060AB16FAB0300B0001B020CB1FC0B1E0FBC324B004EBC19C7F157F FC3I0008R:B25A0C000CB1619B020CB1FC0B1F0FB1312BC324B004EB0206B003CB: 0205B56B87F180F FC3I0009R(B0606B1328BC29CB22A0C000AB1621B22A0C0004B1309B0605B13F3B10F6B1E0F7F19BF FC3I0010RR(BC324B004EB0724B0056B1064BC2ACB0006B980AC0012B1313BC2ACB0002B06A07F198F FC3I0011R0C050CB1008B0733BCCDCBCCECB0002BCCECB0004BC4ECB0$0006BC720C0004B10D57F111F FC3I0012$R(B22A0C0008B160EBC0C4B0223B0056B0733BCCDCBCCECB0002BCCECB0004BC4EC7F0FEF FC3I0013RR(B0006BC720C0004B103EB0206B0015B0205B7882B0606B13ECBC29CB22A0C00027F1C0F FC3I0014R&B1603B0605B13F6B10F9B22A0C0006B132EB&.C16DB0010BC184B0226B0056B07167F1B1F FC3I0015.R(B06A0C0524B1000B06C5BCB05B0002BCB06B0004B0207B0F00BCB07B0006BC29C7F190F FC3I0016RR(B22A0C0004B16FCB0209C000EBC204B0228B0056B020BB0004B8E78B16C3B060B7F19BF FC3I0017R B16FCB22A0C0008B13BEBC720C80004B04E4B0056B04E4B005CB04E4B0058B04E47F171F FC3I00188R(B005ABC80FC01D4B0300B0000B0380BC293B1659BDA23B0011B0017BC068B000C7F1A2F FC3I0019RR(BC0A8B000EBC182BC141B0226B0006B06A0C0524B101BBCA06B0014BDA05B00137F193F FC3I0020RBDA28B0004B0016BB C041B1301B0791BDA22B000AB0012B0700BC041B130FB07917F1C0F FC3I0021BR(BC1A2B0002B0791BC152B07D1B0791BC8A2B0004B0006B100AB0209B4005B04607F1C5F FC3I0022RR(C004EBC1A2B0002BC152BC8A2B0004B0006B1509BD2A8B0004B024AB0F00B028A7F18FF FC3I0023RB0500BL%1636B0580B1634B0226B0006B06A0C0524B10E7BC041B130DB07D1BD8857F1BAF FC3I0024LR(B000BB07D1BC886B000CB0791BC152B0791BC0A2B0002BC045B10CCBD885B000B7F162F FC3I0025RR(BC886B000CBC0A2B0002BC052B10C4B0460C0046BC293B16FCBD1A8B0004B02467F175F FC3I0026RT@R(B0F00B0286B0100B1607BD1A8B0013B1604BD1A3B001DBDA06B0013BDA23B00117F1A4F FC3I0027RR(B0017BDA28B0004B0016BC29CB04DCB22A0C0006B1308BC2A4B0058B1605B06A07F18FF FC3I0028RN&C04A4B020AB2000B1007B0209B0058BA244B06A0B0000B020AB3000BC70AB03807F1E2F FC3IN0029R(BC29CB22A0C0000B1649B22A0C0004B1636BC16CB0002BC1ACB0004BC1ECB00067F17DF FC3I0030RR(B9807C0012B1646BC244B0229B0058B06A0B0000C0326B0209B4007BC928B00027F1EAF FC3I0031RD!B0012B06A0B0000B10F2B0203B0056BA0C4B0733BC024B005EBC1C0B06A0C050A7DF1AFF FC3I0032R(B1010B0207B4007BC243B0739BCE5CBCE45BCE46BCE6CB0006B0229B000EBC9237F13DF FC3I0033RR(B0012B0012B06A0B0000B0600B15EAB13E9B04DCB0380B22A0C0006B130DB02097F1C9F FC3I0034R:B0058BA244B06A0C0312C0384B04D8B06A0C04E6B1000B06A0C04A4B: 10B3B020A7F1A7F FC3I0035R(B2000BC264B0058B1302B020AB3000BC70AB0380B06A0C050AB1025BC083B05C27F1C1F FC3I0036RR(BCC9CBCC85BCC86BCC87B0202B001ABA083BC212B1318BC287B024AB7F7FB8A0A7F0DBF FC3I0037R0B0016B1610B024AB0F00B028AB0600B1313B028AB0D00B0$1310B06C5B9A05B00137F1D5F FC3I0038$R(B06C5B1603B8A06B0014B1308BC088B16E6B05A3B001EBC720C0004B0460C02EA7F18FF FC3I0039RR(BC498B1602BC8C2B0018BC0A3B001AB1602B04E3B0018BCA05B0012BCA06B00147F183F FC3I0040R&BCA07B0016BC25CB06C9BDA09B0005B0247B&.8080B0917BFA07B0006B06C7B09177F168F FC3I0041.R(BFA07B0006B9A20B0000B0004B1626BC2E8B000EBC2A8B000CB079ABC26BB00047F172F FC3I0042RR(B0249B0FFFB0229BFFFAB111AB079ABA2EBB0008B022BB0006B07DABDAE3B00117F100F FC3I0043R B0005B0609B110FB07DABCACCB80006B0649B110AB07DABCAE3B0022B0008B06497F15AF FC3I00448R(B1104B07DABDAE4B000CB000ABC268B0002BC720C0004B0623B0014B06A0C005E7F193F FC3I0045RR(B0460C02EAB04E3B0000B04E3B0014B04E3B0016B04E3B0018B04E3B001AB045B7F1AEF FC3I0046RBC00BB0209B0018BB A243B06A0C02E0B05A3B0014B05A3B0016BC2A8B0012BC8CA7F17FF FC3I0047BR(B000ABCB0AB0002BC2A8B0014BC8CAB000CBCB0AB0004BC2A8B0016B024AB7FFF7F112F FC3I0048RR(BCA0AB0016BC8CAB000EBCB0AB0006B0450BC268B0002BC2A4B005EB060ABC1C47F12FF FC3I0049RB0227BL%0060BC0F7B1303B88C9B0012B1303B060AB1102B10F8B05CBB045BBC2877F18EF FC3I0050LR(B024AB007FB890AB005EB1406B0A1ABA284BC0EAB0060B1301B05CBB045BBC2857F147F FC3I0051RR(B131BB0207B0003BC27AB0549B8246B1204B05CAB0607B15F9B1013BC246B02277F1A8F FC3I0052RT@R(BFFFDB1305BC1EABFFFABA247B0507B0957BC15ABA147BC185B0A56B09B5BA1897F0BDF FC3I0053R,B1701B0585B06C5B05CBB045B7FA41F FC3I0054,J 30488CNHL 30372DQUE50018FC3EXT502EAFC3INT50018FCCEXT7F2C5F FC3I0055J& 502EAFCCINT304AEQUE 30358REPALL303&& 22REPRTE30428RSTSOP7F212F FC3I0056&430032VECTOR40000VECTRX40000WD80007F7D7F FC3I00574D:  FC3ISR  08/21/81 15:35:59  SDSMAC 3.4.0 81.117FC3I0058DEAFC3INT50018FCCEXT7F2C5F FC3I0055J& 502EAFCCINT304AEQUE 30358REPALL303&@R#00202COMPAT A0000B0202BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7F04AF COMP0001RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0002RN&BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMPN0003R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0004RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0005RD!BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7DEEB9F COMP0006R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0007RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0008R:BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB: DEADBDEAD7EEB9F COMP0009R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0010RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0011R0BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADB0$DEADBDEADBDEADBDEAD7EEB9F COMP0012$R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0013RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0014R&BDEADBDEADBDEADBDEADBDEADBDEADBDEADB&.DEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0015.R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0016RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0017R BDEADBDEADBDEADBDEADBDEADB8DEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP00188R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0020RBDEAD7FE79F COMP0021 50000C$$PAT7FD64F COMP0022D:  COMPAT  08/21/81 15:29:45  SDSMAC 3.4.0 81.117COMP0023DADBDEAD7EEB9F COMP0019RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F COMP0020RBDEAD7FE79F CO.00004DUMLCD A0000C0002B10FF7F9A7FDUML0001.(50002LCDCMP50002LCDREQ7FA6DFDUML0002(D:  DUMLCD  08/21/81 15:32:11  SDSMAC 3.4.0 81.117DUML0003D@R#00046QUEUES A0000BFFFFB045BB02CAB0300B0000BC80AC001ABC299B13067F198F QUEU0001RR(BC688B04D8BC648B0300B0000B045BBCA48B0002B10F8B02CAB0300B0000BC80A7F17DF QUEU0002RN&C001ABC229B0002B1307BCA58B0002B1302B05CBB10EDB04D9B10FCBC2DBB10E97F13DF QUEUN0003J 40000BYTE0150024DQUE50004QUE 50000SLVLBS50002TILIOC7F30CF QUEU0004J 40000WD40007FD76F QUEU0005D:  QUEUES  08/21/81 15:32:19  SDSMAC 3.4.0 81.117QUEU0006DA58B0002B1302B05CBB10EDB04D9B10FCBC2DBB10E97F13DF QUEUN@R#01970CONFIG A0000C0006C0026B0000B0000B0000C046DC0418B0010C041C7F268F CONF0001RR(B0001B0002C056EB0000B0000B0000B0000B0000B0000B0000B0420B0000BC0007F272F CONF0002RN&B161AB0420B0000B0605BC000B1615B0420C0030B0702BC000B1610B2FE0C03C47F1EFF CONFN0003R(BC020C03C4B160BBD820C03C7C03EDB2FE0C03EABD020C03EBB1305B06C0B04607F139F CONF0004RR(C01F0B0460C0204B0420B0000BC000B16F8BC0A0C041AB1304B1110B0720C04787F1E5F CONF0005RD!BA202BD820C03C7C03FDB2FE0C03FABD020C03FBB16E8B1006B0202C037EB04607DF13DF CONF0006R(C022AB0460C01E6BC020C0478B1601B05C8BA220C056EBC0A8B0000B9828B00027F1A2F CONF0007RR(C0472B130ABC082B1604BC020C0478B13E9B10ECB0208C056EBA202B10EEB07207F17CF CONF0008R:C0478BC802C0474BD828B0003C040DB0201C040AB0202C0415B0203B: 0210B04207F1F6F CONF0009R(B0000BC000B16BBB0202C0415B0201C0498B0420B0000B0102BC000B16B2BC8287F1EDF CONF0010RR(B000AC040CB0201C040AB0202C040FB0203B0410B0420C00E2BC000B166EB02027F1EDF CONF0011R0C040FB0201C048DB0420C00F2B0102BC000B1665BC828B0$000CC040CB0201C040A7F1C0F CONF0012$R(B0202C0415B0203B0210B0420C010EBC000B1658B0202C0415B0201C0492B04207F22CF CONF0013RR(C011EB0102BC000B164FB04C4BC2A8B000CB0228B000EBC1C8B06A0C024AC01F07F16DF CONF0014R&B0209C0484B0202C0488B9DF9B1607B8242B&.1BFCB06A0C0284C01F0B0460C01867F18CF CONF0015.R(B06A0C02B8C01F0C008EB060AB1305B0584B0228B0008BC1C8B10E5BC820C04747F189F CONF0016RR(C040CB1602B0720C040CB0201C040AB0202C040FB0203B0410B0420C013ABC0007F1FCF CONF0017R B161EB0202C040FB0201C04B3B80420C014AB0102BC000B1615B04C1B04C2B04207F1DFF CONF00188R(B0000BD820C03E8C03ECB2FE0C03EABD820C03C2C03C6B2FE0C03C4B0460C02427F13EF CONF0019RR(B0201B0002B04C2B0460C01CEBD820C03E8C03ECB2FE0C03EABD820C03C2C03C67F147F CONF0020RB2FE0C03C4BC800CB 040CB0201C040AB0202C040FB0203B0410B0420C01AEBC8207F1A7F CONF0021BR(C0410C037ABC820C0412C037CB0202C035CB100ABD820C03E8C03ECB2FE0C03EA7F156F CONF0022RR(BD820C03C2C03C6B2FE0C03C4B0201B0001B0420B0000B0420B0000BC804C040C7F1CCF CONF0023RB0201CL%040AB0202C0415B0203B0210B0420C0216BC000B160FB0582BD812C04A37F1F8F CONF0024LR(BD812C04B1BD832C04AABD812C04A4BD812C04B2BD812C04ABB05CBB045BBC2DB7F0F8F CONF0025RR(B045BB0206C049EB04C1B0420C01BEB0601BC000B1610B0206C04A5B0420C028C7F1B9F CONF0026RT@R(B0601BC000B1609B0206C04ACB0420C029AB0601BC000B1602B05CBB045BBC2DB7F18EF CONF0027RR(B045BB0201C047ABC1C1B0587B04C5BC088B0222B0002BC0C8B0223B0004BDDF27F178F CONF0028RN&B0585B0285B0008B1B3FB8083B1BF9B06C5BD805C047ABC1A0C0476B1609B07207F169F CONFN0029R(C0476B0206C0488B0420C02A8B0601BC000B162FB0206C04A5B0420C02F2B06017F1DAF CONF0030RR(BC000B1628B0209C04B8BC159B1123B84F9B1302B05C9B10FABC259B0206C049E7F170F CONF0031RD!B0420C0300B0609BC000B1618BC828B0006C040CB0201C040AB0202C040FB02037DF1F3F CONF0032R(B0410B0420C025CBC000B160BB0206C04ACB0420C0320B0602BC000B1604B05CB7F1D0F CONF0033RR(B05CBB045BB05CBBC2DBB045BB2141B424EB4F52B4D41B4C20B5445B524DB494E7F115F CONF0034R:B4154B494FB4E20B4552B524FB5220B203EB5858B5858B4241B424EB: 4F52B4D417F16FF CONF0035R(B4C20B5445B524DB494EB4154B494FB4E20B2D20B494CB4C45B4741B4C20B464F7F146F CONF0036RR(B524DB4154B204FB4620B5359B5354B454DB2043B4F4EB4649B4755B5241B54497F188F CONF0037R0B4F4EB2046B494CB4500A03C2B9300B0000B9100B0000B0$0000B0000B0000B00007F216F CONF0038$R(B0000B1400B0000B0000C041CB0000B0000B0000B0000B0000B0000B0100B00007F290F CONF0039RR(B0000B0008B0000B0000B0000B0000B0000B0000B0A00B0019C056EB1400B14007F261F CONF0040R&B0000B0000B0000B0000B0004A0410A0414B&.0002A0416A0418B0000B0000B50007F282F CONF0041.R(A041CA046CB0004A046EA0472B0900B0000B0000B0000B0000A047CB0000B00007F228F CONF0042RR(B0000B0000B4E4FB4E45B0442B2455B4E04B4324B5255B0543B2448B4354B05497F1C5F CONF0043R B244EB5452B0650B2452B5458B85806B4424B5643B5858B0642B2446B5258B58047F1C4F CONF00448R(B5224B4543B5020C04F6B4C43C04FAB4E53C04FFB0ADCC0504B0CC6C0509B0EC47F125F CONF0045RR(C050EB4D41C0513B4D42C0518BFFFFB0000BFFFFB0000BFFFFB0000BFFFFB00007F0E0F CONF0046RBFFFFB0000BFFFFBB 0000BFFFFB0000BFFFFB034CB4150B0448B444CB4304B434D7F0D2F CONF0047BR(B4E53B0432B3738B3004B3332B3730B0433B3738B3004B434FB4D41B0443B4F4D7F1B0F CONF0048R,B4250A051EA056EB1400A05707FA6BF CONF0049,.30028S$GTCA3033CS$IASC30068S$INT 3003AS$PARM. 301CCS$PTCA7F2A9F CONF0050430244S$RTCA30348S$SETS30248S$STOP7F7B5F CONF00514D:  CONFIG  08/21/81 15:37:41  SDSMAC 3.4.0 81.117CONF0052D051EA056EB1400A05707FA6BF CONF0049,.30028S$GTCA3033CS$IASC30068S$INT 3003AS$PARM.@R#001D2COMSWS A0000C000CC0036B0000C000CC018CB000BB0000B0000C00067F22BF COMS0001RR(BFFFFB000BB0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F245F COMS0002RN&C0032C012CB000FB0000B0000B0000B0000C002CBFFFFB000FB0000B0000B00007F1F8F COMSN0003R(B0000B0000B0000B0000B0000B0000BC2A4B0012B02C8B0300B0002BC808C00EA7F216F COMS0004RR(BC229B0002B1341BFA07B0006B06C7BDA07B0005B06C7BCA0AB0008BC218B16F67F161F COMS0005RD!BC229B0002B8AA8B000AB0002B1303BC2AAB000AB1002B020AC0036BC21AB13057DF1A9F COMS0006R(BC699B04F9BC619B04D9B1025BC219BCE88B04F9BCE99B04D9B1025BC247BFA097F0E8F COMS0007RR(B0006B06C9BDA09B0005BC264B0012BC208B1318BCA09B0008B8A29B0002B000A7F19CF COMS0008R:B1303BC2A9B000AB1002B020AC0036B04D8B02C9B0300B0002BC809C: 00EABC25A7F18FF COMS0009R(B1306BC648BC688B0300B0000B04C8B045BBCE88BCE88B05CAB075AB15F7BC20D7F118F COMS0010RR(BC268B001EB0249B000FB826AB0002B1203BC228B001AB10F6B0228B001ABC26A7F190F COMS0011R0BFFFEBC299B022AB001ABCE98BCE39BCE98BCE39BC698B0$C619B10DEB0300B00027F0B4F COMS0012$R(BC243B1329BC0D9B1601B04C2B04D9BC229B0008BC288B022AB0054BC01AB13037F17BF COMS0013RR(BC409BC689B1002BCE89BC689B0300B000FB05A0B0000B05A8B0060BEA20B00007F184F COMS0014R&B0008BC269BFFFEBC229B0002BBA20B0000B&.0060B04E8B002EB04E8B0030B02297F176F COMS0015.R(B000AB06A0B0000B10D3B0705B0460B0000B0300B0002BC201B131CBC058B16017F1FEF COMS0016RR(B04C0BC804C01A0B0300B0000BC1A8B000ABC2E0B0000BC806C01A8B0326BC2687F191F COMS0017R B0008BC1E9B000EBC9C8B0010B804D8B0229B000EB0419BC80BC01ACB032BB10E07F158F COMS00188" B0703B0460C018A7FC94F COMS0019"J30170BYTE0140000BYTE0240000BYTE04500BACNHL 301C6CURMAP7F2D1F COMS0020JJ3015ADDTFLG30182ENDR0 50056REPA1050052REPALL500AAREPERR7F267F COMS0021JJ5018CREPNHL500B6REPORT500ACREPRTE40000SCB  50000SLQADD7F241F COMS0022JJ5000CSLVLBQ50036SLVLFQ301D0TRAPRT40000WD000030162WD02007F28AF COMS0023JD:  COMSWS  08/21/81 15:26:10  SDSMAC 3.4.0 81.117COMS0024D @R#002B8COMSUP A0000B0800A0002B8800A0004B0000B1916B0000B0000B00007F266F COMS0001RR(B0C0AB0104B0000B0302B0004B0104B0006B0000B0000B0000B0000B0000BFFFF7F21AF COMS0002RN&B090AB0B0CB1100A002EBCE8BBC027B000AB0240B0400B1330BC027B000AB02407F1A5F COMSN0003R(B000FB0280B000AB1602B04C0B1027B0200B4000B49C0B000AB0203C0004B07957F1FEF COMS0004RR(BD026B0002B04E7B0068B9800C0028B1303B9800C0029B1603BD027B0065B10087F1E8F COMS0005RD!B9800C002AB1303B9800C002BB160CBD027B0064BC040B0240B4000BE9C0B000A7DF1B9F COMS0006R(B0241B0400B1302B0727B0068B0700B0460B0000BCE8BBC024B000AB0240B04007F1F9F COMS0007RR(B13F8BC164B0026BC2E0B0000BC264B0002BC809C00B0B0329BC165BFFFEB02247F159F COMS0008R:B0004B0404C00D4BC80BC00B8B032BB064AB0460B0000BC80BC00CAB: 032BB10DE7F173F COMS0009R(BCE8BBC027B000AB0240B0400B13D9BC027B000AB0240B000FB0280B000AB16027F1A8F COMS0010RR(B04C0B10D0BA367B0060B060DBC047B0221B0056BC251B13C7B0300B0002BC4597F1B1F COMS0011R0B1602B04E1BFFFEB0300B000FBC049BC261BFFFEBC087B0$0222B0072B8081B16217F13DF COMS0012$R(B04C2BD0A1B0004B0282B0200B1608BC0A7B0066B04E2B0008B49E0C0002B00087F1C8F COMS0013RR(B1003B49E0B0000B0008B04E1B0008BC0A9B0002B78A0B0000B0060B78A0C01567F1DDF COMS0014R&B0061B0620B0000B060DB0627B0060B10CAB&.DA61B0006B000CBDA61B0005B00097F1CDF COMS0015.R(B1304B9821B0004C002CB130BBC0A1BFFFCB0A52B170BBC0A9B0006B04E2B00087F161F COMS0016RR(B59E0B0000B0008BF9E0B0000B0008B1003B59E0C019AB0008BD0A1B0007B0A727F1B6F COMS0017R B1709BCA61B0012B0018BCA61B80014B001ABCA61B0016B001CBC3E7B0008BCEA07F16CF COMS00188R(C0208BC229B0002B9828B0009B0000B1605BD0E8B000FB0202B0E00B2FC2B06A07F1AEF COMS0019RR(B0000C01EAB0627B0060B108BBC241BC047B0221B0056B0300B0002BC651B16027F1E2F COMS0020RBC849BFFFEBC449BB 0300B000FB0460C00DAC01E2B05CBBC027B000AB0240B04007F149F COMS0021BR(B1350BC027B000AB0240B000FB0280B000AB1602B04C0B1047BC049BA061BFFFE7F187F COMS0022RR(B0221BFFE6B9829B000AC01A2B130DBC0A1B000EB130ABC021B000CB1301B07907F17CF COMS0023RBC022BL%0006B0240B0FFFBCA40B0012BC021BFFFCBC080B0240B0040B1308B05A07F16DF COMS0024LR(B0000B0242B0002B1303BBA20C015CB001FBC007B0220B0048B0300B0002BC0D07F1F2F COMS0025RR(B1305B8243B1302BC003B10FABC419B0300B000FB0203B0800B49C3B0008BC0E17F1B6F COMS0026RT@R(BFFFCB0243B0800BE9C3B0008B0203B4000B49C3B000ABC0E1BFFFCB06C3B02437F12DF COMS0027R& B4000BE9C3B000AB045B7FB5DFCOMS0028&J3026CBYTE01301D0BYTE0540000CLSAFL500DCCOMEND5009ECOMMWT7F220F COMS0029J,5020ACOMTHR5002ECOMUCB300D6CURMAP301E0DD$E, 0130162DDTFLG7F24EF COMS0030 J3000ADEV0RD40000MM$RSA3009CPOP0 30262SCB  40000SCRASH7F32DF COMS0031JJ40000WD000140000WD001030236WD080030148WD300040000WD40007F417F COMS0032J(30194WD8000300D2XOPRT17FA8EFCOMS0033(:  COMSUP 6 08/21/81 15:30:29  SDSMAC 3.4.0 81.117COMS003463009CPOP0 30262SCB  40000SCRASH7F32DF COMS0031JJ40000WD000140000WD001030236WD080030148WD300040000WD40007F417F COMS0032J(30194WD8000300D2XOPRT17FA8EFCOMS0033(:  COMSUP .00004DUMFC3 A0000C0002B10FF7F9BEFDUMF0001.(50002FCCEXT50002FCCINT7FA67FDUMF0002(D:  DUMFC3  08/21/81 15:31:47  SDSMAC 3.4.0 81.117DUMF0003D@R#00098CSUPIN A0000BC264B0050B1002BC264B0014BC208B131EB04D8BCA097F1D4F CSUP0001RR(B0008BCA04B0002B04CABDA0AB0005BDA0AB0006B05B9B161EB0229B0004BCA487F160F CSUP0002RN&B0020B0419B02CAB0300B0002BC229BFFFEB1608BC80AC0046B0729BFFFAB03007F14FF CSUPN0003R(B0000B04C8B045BBCA58BFFFEB1602B04E9BFFFCBC80AC005CB0300B0000B04D87F105F CSUP0004RR(B10E4B02CAB04E9BFFFEB0300B0002BC80AC0046BC299B1303BC688BC648B10E57F123F CSUP0005RD!BCE48BC648B10E2BD2A8B0004B024AB0F00B964AB1201BD299B097AB05CABA2897DF120F CSUP0006BC29AB045A7FD7CFCSUP0007J 50000CALLHL5000ACNLL40000JMPSP440000QUEHDR50006REQNLL7F27DF CSUP0008J440000SLQADD50080VECTOR40000WDFFFF7F7A5F CSUP00094@:  CSUPIN  08/21/81 15:27:38  SDSMAC 3.4.0 81.117CSUP@00100006BC29AB045A7FD7CFCSUP0007J 50000CALLHL5000ACNLL40000JMPSP440000QUEHDR50006REQNLL7F27DF CSUP0008J440000SLQADD50080VECTOR40000WDFFFF7F7A5F CSUP00094@:  CSUPIN  08/21/81 15:27:38  SDSMAC 3.4.0 81.117CSUP@ P DCOMM DPTCOMM `P DT$PPRCOMM `P "D$DPTCMON `P 5$UPGEN990`Pf E!$PGEN990 `Pl #$  GENPAT `P ($"@************************************************************ @6* *** PATCH FILE DPTCOMMLAST UPDATE:07/20/816@************************************************************ @* '* TITLE: DPTCOMM* '@* ABSTRACT: THIS PATCH FILE PATCHES THE COMMUNICATIONS DSR @8*  SUBSYSTEM, WHICH IS COMMON TO ALL COMMUNICATION 86*  EMULATORS. THIS COMMON SEGMENT IS PATCHED ON 6**  .S$IMAGES AND IS NAMED "COMMCOM".*:*  "XB"S WILL BE APPENDED AUTOMATICALY TO THIS FILE :8*  TO INVOKE TWO MORE PATCH STREAMS PER PROTOCOL. 8* '@************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* ':*  THIS PATCH FILE MUST BE APPLIED USING THE CURRENT :0*  "PCS" PROC. "PCS" IS AVAILABLE ON EACH0`4@:*  COMMUNICATION EMULATOR OBJECT INSTALLATION DISK. :* '<*  ALL EMULATOR DSRS MUST BE GENERATED AND THE SYSTEM <2*  "ALGS" PERFORMED BEFORE PATCHING BEGINS. 2* '<*  FOLLOW THE INSTRUCTIONS IN THE OBJECT INSTALLATION <8*  MANUAL(S) FOR THE EMULATOR(S) BEING INSTALLED. 8* '@************************************************************ @* '8* *** S Y N O N Y M A S S I G N M E N T S ***8* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 06.IF  @$$DSC$,EQ,"$$DSC$"6.SYN $$DSC$=@DS01  !LET DS01 BE DEFAULT VOLUME 6 .ENDIF% @.SYN IMAGE="@$$DSC$.S$IMAGES" !PROGRAM FILE TO BE PATCHED @@************************************************************ @ ***** LINK DEFINED SYNONYMS@************************************************************ @@************************************************************ @$***** PRE-LINK DEFINED SYNONYMS$@************************************************************ @#SYN DATA,D$DATA#SYN COMMC,COMMCOM#SYN SROOT,ROOT @************************************************************ @ .EVAL CS$PAT="@COMMCOM" .EVAL MAXIO="@D$DATA+4"@************************************************************ @ *  PATCHES RELEASE 4.0.0 @************************************************************ @* PATCHES GO HERE @************************************************************ @ *  INSERT NEW PATCHES HERE  @************************************************************ @.SYN COMMC="","COMMCOM="",DATA="",D$DATA="", " SROOT="",ROOT="", CS$PAT="",MAXIO="" * '>CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.DPTCOMM" >.IF @$E$C,NE,"0"  .EVAL $E$PCS="@$E$PCS+1"  .ENDIF% LS'* '<* NEXT AVAILABLE COMMCOM PATCH LOCATION IS CS$PAT+>0000 <* '************************************************************ @ .EVAL CS$PAT="@COMMCOM" .EVAL MAXIO="@D$DATA+4"@************************************************************ @ *  PATCHES RELEASE 4.0.0 @************************************************************ @* PATCHES GO HERE @************************************************************ @ *  INSERT NEW PATCHES HERE  @************************************************************ @.SYN COMMC="",@@************************************************************ @6* *** PATCH FILE PPRCOMMLAST UPDATE:06/30/816@************************************************************ @* '* TITLE: PPRCOMM* 'B* ABSTRACT: THIS PATCH FILE PATCHES THE COMMON BUILD PROCESS B4*  PROCDURES BEFORE THE BUILD PROCESS BEGINS. 4:*  THE DISK PATCHED IS THE OBJECT INSTALLATION DISK. :0*  $CVN REPRESENTS THE DISK TO BE PATCHED.0* '@************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* '4*  THIS PATCH FILE SHOULD BE APPLIED USING THE46*  "PPR" PROC, WHICH IS INVOKED BY "ICC" DURING 64*  THE INITIAL PHASE OF A COMMUNICATION BUILD.4* '0**********************************************0************** * '8* *** S Y N O N Y M A S S I G N M E N T S ***8* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 06** ! READY TO DO .PROC FOR DSR PROCS *$.USE @$CVN.S$CPROC,DS01.S$PROC$@************************************************************ @$*  PATCH PROCS RELEASE 4.0.0$@************************************************************ @* '@CMR=ME,M="@$E$C ERRORS IN PATCH STREAM @$PLST.BL.PPRCOMM" @LS' .STOP % I A L  I N S T R U C T I O N S *** :* '4*  THIS PATCH FILE SHOULD BE APPLIED USING THE46*  "PPR" PROC, WHICH IS INVOKED BY "ICC" DURING 64*  THE INITIAL PHASE OF A COMMUNICATION BUILD.4* '0**********************************************0@@************************************************************ @BATCH LS=YES"@************************************************************ @6* *** PATCH FILE DPTCMONLAST UPDATE:06/30/816@************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* '2*  PCS MUST BE USED TO APPLY THESE PATCHES. 2* '* TITLE:DPTCMON * ':* ABSTRACT: DX COMMON DSR PARTS DSR PATCH FILE. THIS :6* PATCH FILE CORRECTS PROBLEMS IN THE DX COMMON 68* DSR MODULES, WHICH ARE LINKED INTO EACH PROTOCOL 88* OVERLAY, BY MODIFYING THEM ON THE S$IMAGES FILE. 86* THIS PATCH FILE IS RUN AGAINST EACH PROTOCOL'S 64* LINKMAP & PATCHED IN EACH PROTOCOL OVERLAY. 4* '(**************************************( ********************** * '8* *** S Y N O N Y M A S S I G N M E N T S ***8* ',Q$SYN !REQUIRED: CLEAR SECRET SYNONYMS ,4.SYN $E$C="0" !ERROR COUNT WITHIN A PATCH FILE 4@************************************************************ @ ***** LINK DEFINED SYNONYMS @************************************************************ @#SYN COMP,COMPAT@************************************************************ @(***** EVALUATED SYNONYMS, REQUIRE: (6*  "@DSR" MUST BE VALUE OF OVERLAY BEING PATCHED64*  "@DSRCMON" MUST BE VALUE OF OVERLAY ORIGIN 4* '$.EVAL C$$PAT="@DSRCMON+@COMPAT"$@************************************************************ @* '@************************************************************ @ ************************************************************* * *  INSERT NEW PATCHES HERE  @************************************************************ @LS'.SYN DSR="",DSRCMON=""&.SYN C$$PAT="",COMP="",COMPAT=""&* '@CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.CMN@$PROT" @.IF @$E$C,NE,"0"  .SYN $E$PCS="@$E$PCS+1" .ENDIF% .SYN $PROT="" !* ' .STOP % <* NEXT AVAILABLE COMMON PATCH LOCATION IS C$$PAT+>0000 <ATED SYNONYMS, REQUIRE: (6*  "@DSR" MUST BE VALUE OF OVERLAY BEING PATCHED64*  "@DSRCMON" MUST BE VALUE OF OVERLAY ORIGIN 4* '$.EVAL C$$PAT="@DSRCMON+@COMPAT"$@************************************************************ @* '@************************************************************ @ **********************BATCH LS=YES"R(********************************************************************************R* GEN990 PATCH FILE  *N%**************************************************************************NJ* !APPLY THIS PATCH FILE TO UNPATCH GEN990 TASK THAT HAS BEEN PATCHEDJ@* TO BE ABLE TO GENERATE COMM PACKAGES PRIOR TO DX10 3.4.2 @R(********************************************************************************R@* BEFORE EXECUTING THIS BATCH STREAM, THE SYNONYM 'PROGA' @D* MUST BE ASSIGNED THE VALUE OF THE PROGRAM FILE THAT CONTAINSD&* THE GEN990 TASK BEING PATCHED.&* '*  ASSIGN SYNONYM VALUE* SYNONYM: PROGA* VALUE: DS01.PROGA * 'R(********************************************************************************R* '.SYN $E$C="0" !@* 'N%**************************************************************************N* '6*=P0XXX RVL05/10/81STR# XXXXX3.4.0 GEN990 6* 'J#* THIS PATCH REMOVES THE 3270 ASSOCIATION FROM 911 CRTS AND PRINTERS. J * FROM MODULE "DEVICE" * LINE 514 IN DEVICE* '* '0*  VERIFY CURRENT GEN990 IS RELEASE 3.4.0 0* 'BMPI  PF=PROGA,MT=TA,MN=>33,ADR=>0006,V=>0008,D=>0008,C=>0008 BEC' .IF "@$E$C",NE,"0""CM R=ME,M="BAD GEN990 VERSION"" .STOP % .ELSE % 0MPI  PF=PROGA,MT=OV,MN=5,ADR=>2A0C+>0364, 0$D=(>06A0,>3C30),V=(>0703,>1011) $EC' * LINE 594 IN DEVICE0MPI  PF=PROGA,MT=OV,MN=5,ADR=>2A0C+>0446, 0D=>0283,V=>1002 EC'* '8* THIS ALLOWS 3270 PROTOCOL TO BE GIVEN NAME "CMXX"8 * LINE 14 .21 IN DEVICE; DELETE LINES 1430-1431 ALSO..* '0MPI  PF=PROGA,MT=OV,MN=5,ADR=>2A0C+>0CDA, 0D=>028B,V=>1002 EC' ***************************  6* THE FOLLOWING PATCHES REFERENCE MODULE "CHANGE"6 ***************************  H"* LINE 1128 IN CHANGE REMOVES "3270 CR ADDRESS" PROMPT FOR PRINTERSH0MPI  PF=PROGA,MT=OV,MN=5,ADR=>4D96+>0A3E, 0D=>C16A,V=>1021 EC'D * LINE 1247 IN CHANGE REMOVES "3270 CRU ADDRESS" PROMPT FOR 911D0MPI  PF=PROGA,MT=OV,MN=5,ADR=>4D96+>0B90, 0D=>C12A,V=>1006 EC'* 'B*  THE FOLLOWING CHANGES THE LOGIC FOR SEARCHING NON-NUMERICBD*  COMM PROTOCOL TYPES. COMA & COMB ARE ALLOWED AS PROTOCOLS. D* ' * LINES 1215-1216 CHANGE  * TO:% *  CI R5,2780*  JLT CCOM10 *   FROM:$ *  CI R5,3780 *  JGTCCOM100MPI  PF=PROGA,MT=OV,MN=5,ADR=>4D96+>0FD6, 0$D=(>0ADC,>1105),V=(>0EC4,>1505) $EC'* ' * LINES 1620-1625 CHANGE  * TO:%  * CCOM10 SLA R5,8 * SB @T$LAP,R5* SRL R5,7 * AI R5,COMLBL* MOV *R5,R6  * FROM:$ * CCOM10 LI R6,COMTBL * CCOM12 INCT R6 * C  R5,*R6+* JNE CCOM12 * AI R6,-4* '0MPI  PF=PROGA,MT=OV,MN=5,ADR=>4D96+>0FE4, 02D=(>0A85,>7160,>15FD,>0975,>0225,>4A56,>C195), 22V=(>0206,>49C8,>05C6,>8D85,>16FD,>0226,>FFFC) 2EC'H"******************************************************************* H* 'D * THE FOLLOWING IS A REAL PATCH TO ALLOW A NON-NUMERIC PROTOCOL D * TO BE ENTERED ON A CHANGE COMMAND.* 'B* A "LI R2,1" NEEDS TO BE INSERTED AFTER LINE 1630 IN CHANGE. B* '.MPI PF=PROGA,MT=OV,MN=>5,ADR=>4D96+>1004, .$ D=(>0420,>2132),V=(>0460,>627A)$EC'* '6* THIS USES THE FIRST AVAIL PATCH AREA IN "CHANGE"6* '*MPI  PF=PROGA,MT=OV,MN=>5,ADR=>627A,*,D=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),,,V=(>0420,>2132,>0202,>0001,>0460,>5D9E) ,EC'* '<*  PATCH IN "LIST" TO SET CORRECT GENDAT POINTERS FOR <B*  "DEVICE", "CRU" AND "INTERRUPT" EXPLANATIONS WHEN ?/WHAT B*  IS USED. * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0E6E, 2D=>001D,V=>002F EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0E76, 2D=>010F,V=>003F EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0E7A, 2 D=>0030,V= >001C  EC'H"******************************************************************* H* '@* THE FOLLOWING SETS THE 3270 BUFFER SIZE TO >130 IN CHANGE. @B* LINES 1643-1644 NEED TO CHANGE. PATCH AREA FREED IN "DEVICE" B * TO: % * C  @CTYPE,@X3270* JEQ CCM40 * FROM: $ * C  @CTYPE,@X3270* JNE CCM32* ABS @PRNTSW* JEQ CCM34* LI R3,>130,* JMP CCM38 WHERE CCM38 IS LINE 1651 ,* CCM32 EQU $ * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>4D96+>102C, 2*D=(>8820,>5C16),V=(>0460,>2A0C+>0368) *EC'* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>0368, 2&D=(>0378,>9820,>1FE0,>15D5,>130E),&&V=(>8820,>5C16,>15AA,>1609,>0760) &EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>0372, 2&D=(>0703,>9820,>1FE0,>15D8,>1307),&,V=(>157A,>1302,>0460,>4D96+>1052,>0203) ,EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>037C, 2&D=(>06A0,>2972,>1006,>10F0,>06A0),&2V=(>0130,>0460,>4D96+>1048,>0460,>4D96+>1034) 2EC' ***************** * '0* THE FOLLOWING ARE CHANGES TO MODULE "LIST"0* ' ***************** * '>* REMOVE LISTING THE 3270 ASSOCIATED PROMPT FOR 911 CTRS. >* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>07C0, 2D=>C162,V=>1013 EC'* '@* WHEN LISTING COMM DEVICE NAMES, ALLOW 3270 PROTOCOL NAME. @* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0AE6, 2D=>8811,V=>1002 EC'* 'D * THIS PATCH ALLOWS ALL NON-NUMERIC PROTOCOL NAMES TO BE ENTEREDD** AND VERIFIED. IT BEGINS AT LINE 1379 I* N "LIST" AND USES H"* PATCH AREA WHICH WAS FREED UP IN MODULE LIST FROM LINES 1290-1358.H * TO: % * CB R3,@T$LAP* JL DCOM06 * CB R3,@T$CMNS * JLE DCOM30  * FROM: $ ** LI R2,LINES  IN MODULE "SCAN" *"* LI R3,COMTBL IN PATCH ",* LI R5,5  5 NON-NUMERIC PROTOCOLS ,(* LBLAC  *R3+,*R2  FIND MATCH (* JEQ LBLC (* LBLBINCT R3  NEXT TABLE ENTRY (** DEC R5  FINISHED ALL POSSIBLE? ** JNE LBLA  NO * B  @DCOM06 ERROR** LBLCINCT R2  NEXT 2 INPUT DIGITS ** C  *R2,*R3 * JEQ LBLD  FOUND MATCH ** DECT R2  RESET TO FIRST 2 DIGITS *$* JMP LBLB  CONTINUE SEARCH$* LBLDMOV *R3,R3  * RT" * ' MPI  PF=PROGA,MT=OV,MN=>05,A DR=>3EAC+>0BD4, ,D=(>9803,>15FD,>1A03,>9803,>15FF,>1210),,8V=(>0202,>20D2,>0203,>3EAC+>0B1C,>0460,>3EAC+>0B34) 8EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B34, 2&D=(>4A42,>1002,>C155,>10E7,>CDA5),&&V=(>0205,>0005,>84B3,>1305,>05C3) &EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B3E, 2&D=(>000E,>05A0,>4D96,>05C6,>0604),&,V=(>0605,>16FB,>0460,>3EAC+>0BE0,>05C2) ,EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B48, 2,D=(>15F7,>0204,>18F4,>0504,>A184,>0226),,,V=(>8493,>1302,>0642,>10F6,>C0D3,>045B) ,EC'* '@*  CHANGE COMTBL ADDRESS IN "LIST" AT LINE 1390 TO PATCHED @*  ADDRESS!* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0BF4, 2 D=>4A48,V=>3EAC+>0B06 EC'* '**  THIS ALLOWS THE 3270 BUFFER SIZE TO* DEFAULT TO >130. $*  USES PATCH AREA IN "DEVICE"$* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0C14, 2*D=(>0283,>0CC6),V=(>0460,>2A0C+>044E) *EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>044E, 2&D=(>06A0,>3C30,>0378,>9820,>1FE0),&&V=(>0283,>0CC6,>1604,>0203,>0130) &EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>0458, 2 D=(>15D8,>1309,>06A0,>2972), ,V=(>0460,>3EAC+>0C66,>0460,>3EAC+>0C1A) ,EC'* 'B*  THIS PATCHES IN THE COMTYP TABLE USED IN "UTIL" AT @SAVE BH*  TO SCAN THE DEVICE/PROTOCOL LIST TO UPSIZE THE SYSGEN DIRECTORYH* ' * COMTYP DATA 32703270*  DATA 37803780*  DATA 27802780*  TEXT 'P 'LAP *  TEXT 'LC'HDLC*  TEXT 'NS'CMNS*  TEXT 'MA'COMA *  TEX T 'MB'COMB*  DATA 0 *  DATA 0 * PROCNT DATA 1 * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B06, 2&D=(>C160,>01EE,>1332,>A160,>01F6),&&V=(>0CC6,>0EC4,>0ADC,>5020,>4C43) &EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B10, 2 D=(>9825,>0002,>15BF,>1606), V=(>4E53,>4D41,>4D42,>0000)  EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B18, 2$D=(>80A5,>0012),V=(>0000,>0001) $EC'* '*  THIS DEFINES "COMTBL"*  IT IS OF THE FORM * COMTBL TEXT 'HDLC'*  TEXT 'LAP '*  TEXT 'CMNS'*  TEXT 'COMA'*  TEXT 'COMB'*  DATA 0,0 * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B1C, 2&D=(>160D,>CDA0,>4A40,>100C,>9825),&&V=(>4844,>4C43,>4C41,>5020,>434D) &EC'@2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B26, 22D=(>0002,>15C4,>1606,>80A5,>0014,>1603,>CDA0), 22V=(>4E53,>434F,>4D41,>434F,>4D42,>0000,>0000) 2EC'* 'D*  THIS IS THE IN-LINE CODE TO SET THE DIRECTORY SIZE. ENTEREDD<*  FORM "UTIL" AT @4E2 I.E. MOV @X10,@ALOC1-->B @PATCH <* '.*  LI R1,COMTYP  SEARCH ALL PROTOCOLS.2* GCM$10 MOV*R1+,R3  GET NEXT PROTOCOL TYPE 2**  JEQGCM$60 IF ZERO, END OF LIST*2*  MOV@DEVHED,R2 GET START OF DEVICE LIST 24* GCM$20 JEQGCM$10 AT END, GET NEXT PROTOCOL 4*  A@AVAIL,R2 2*  CB @ETYP(R2),@T$COM IF NOT COMM, SKIP 2*  JNEGCM$406*  MOV@ECNT(R2),R0 COUNT OF DEFINED CHANNELS 6*  MOVR2,R4 **  AI R4,ECHAN POINT TO PROTOCOL *&* GCM$30 C*R4,R3THIS CHANNEL/THI&S PROTOCOL? *  JEQGCM$50YES  *  AI R4,8NEXT CHANNEL *  DECR0 *  JGTGCM$30CONTINUE&* GCM$40 MOV*R2,R2NEXT DEVICE &*  JMPGCM$200* GCM$50 INC@PROCNT  BUMP PROTOCOL COUNT 0*  JMPGCM$10* GCM$60 MOV@PROCNT,R0.*  SLAR0,1 *2 DIRECTORY ENT/PROTOCOL .6*  AI R0,14 +10 (SYSTEM) +4 (CFDSR&COMMCOM) 6"*  MOVR0,@ALOC1 IN UTIL ""*  B@0000 RETURN TO UTIL"* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>383A+>04E2, 2*D=(>C820,>159C),V=(>0460,>3EAC+>0B54) *EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B54, 2&D=(>0004,>0420,>6312,>0420,>630E),&,V=(>0201,>3EAC+>0B06,>C0F1,>1319,>C0A0) ,EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B5E, 2 D=(>03DF,>0000,>0204,>0006,>02 06),&V=(>01EE,>13FB,>A0A0,>01F6,>9822) &EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B68, 2&D=(>0014,>0226,>18F4,>10E4,>0760),&&V=(>0002,>15C6,>160B,>C022,>000C) &EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B72, 2&D=(>4D96,>1509,>0204,>18F4,>0504),&&V=(>C102,>0224,>0012,>80D4,>1306) &EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B7C, 2&D=(>A184,>0226,>0004,>0420,>6312),&&V=(>0224,>0008,>0600,>15FA,>C092) &EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B86, 2&D=(>045B,>0284,>0006,>16F4,>0420),&,V=(>10EC,>05A0,>3EAC+>0B1A,>10E5,>C020) ,EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B90, 2&D=(>6316,>045B,>434C,>4343,>2424),&,V=(>3EAC+>0B1A,>0A10,>0220,>000E,>C800) ,EC'*MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>* 0B9A,   D=(>2424,>0EC4,>0ADC), V=(>0046,>0460,>383A+>04E8)  EC'J#**********************************************************************J * ! * F*  THE FOLLOWING PATCHES REFERENCE THE SECOND GEN990 OVERLAY *F * ! * J#**********************************************************************J* '@*  SKIP 3270/CRT/LP TEST BEGINING AT LINE 353 TO LINE 395 @* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0290, 2D=>1333,V=>1033 EC'* '2*  SKIP ZEROING OF COMM COUNTS LINES 497-5012* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0432, 2D=>0205,V=>1006 EC'* '0*  USE NEW GLOBAL COMM COUNT LINES 509-5150* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>045C, 2D=>C2E0,V=>1009 EC' MPI  PF= (PROGA,MT=OV,MN=>06,ADR=>23AA+>0470, (*D=(>A2E0,>24CE),V=(>C2E0,>23AA+>0AFC) *EC'* 'B*  CHANGE DATA STATEMENTS FOR LP/CRT IN BRANCH TABLE LOCATEDB*  AT LINE 615. * '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>056A, 2 D=>23AA+>05E4,V=>23AA+>0620  EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0574, 2 D=>23AA+>05F2,V=>23AA+>0620  EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>057E, 2 D=>23AA+>05F2,V=>23AA+>0620  EC'* '$*  SKIP 3270 TEST AT LINE 708 $* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0652, 2D=>8812,V=>1002 EC'* '@*  SKIP 3270 CRT/LP DEVICE ASSOCIATED TESTS (LINE 774-791) @* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0716, 2D=>9821,V=>1021 EC'* '*  S KIP 3270 REF AT LINE 808* '0MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>780,0D=>8812,V=>1002 EC'* ',*  SKIP 3270 MAPBUILD AT LINES 940-946,* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>08E8, 2D=>0207,V=>100A EC'* ':*  THIS CODE REPLACES LINES 1053 - 1202 IN "DXDATA" :* '6* MAPCOM MOVR11,@MAPCRT+2  SAVE RETURN ADDRESS 62* CMP$00 LI R6,COMLBL  :=PROTOCOL LIST 2* CMP$10 CLRR8 .*  MOV@DEVHED,R1 SEARCH DEVICE CHAIN .* CMP$15 JEQCMP$70*  A@AVAIL,R1 6*  CB @ETYP(R1),@T$COM IS THIS A COMM DEVICE? 6*  JNECMP$60NO2*  MOV@ECNT(R1),R9 YES, :=# CHANNELS 2*  MOVR1,R2 &*  AI R2,ECHAN:=PROTOCOL&$* CMP$20 C*R2,@X2780IF 2780 $*  JNECMP$30,*  MOV@X3780,*R2 REPLACE WITH 3780 ,6* CMP$30 C*R2,*R6 THIS CHANNEL; THIS PROTOCOL? 6*  JNECMP$50NO.*  INC@8(R6) YES, BUMP PROTOCOL COUNT .4*  INC@COMCNT BUMP GLOBAL PROTOCOL COUNT. 40*  MOV@F$MAP,@GENRCD READ GENDAT RECORD0*  READ @GENIO4*  MOVR8,R8 FIRST TIME FOR THIS PROTOCOL? 4*  JGTCMP$40NO$*  INCR8 YES, SET SEEN FLAG$*  LI R4,BUFF ,*  MOV@PREMP,*R4+ WRITE "MP" LABEL,>*  MOV@4(R6),*R4+ WRITE FIRST 2 PROTOCOL LABEL BYTES>>*  MOV@6(R6),*R4+ WRITE NEXT 2 PROTOCOL LABEL BYTES >(*  WRIT @DXIO  WRITE TO D$SOURCE (* CMP$40 LI R4,BUFF &*  MOV@PREMP,*R4+ WRITE "MP"&:*  AI R2,-4 R2->COMM NAME (E.R. CM01,CM03,ETC..):*  BL @PUTNM1 WRITE IT$* CMP$50 AI R2,8NEXT CHANNEL$(*  DECR9 FINISHED ALL CHANNELS? (*  JGTCMP$20CONTINUE&* CMP$60 MOV*R1,R1NEXT DEVICE &*  JMPCMP$158* CMP$70 MOVR8,R8 ANY OF THIS PROTOCOL DEFINED? 8*  JEQCMP$80NO(*  MOV@2(R6),R5 GET OVERLAY ID(2*  BL @MAPBLD  FINISH MAPFILE DEFINITION 2(* CMP$80 AI R6,>A NEXT PROTOCOL (.*  MOV*R6,*R6  END OF PROTOCOL LIST? ..*  JNECMP$10 NO, SEARCH DEVICES AGAIN .* MAPCRT B@0000 RETURN* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A10, 2&D=(>C80B,>2EA4,>C060,>01EE,>1320),&2V=(>C80B,>23AA+>0AA2,>0206,>23AA+>0B08,>04C8) 2EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A1A, 2&D=(>A060,>01F6,>9821,>0002,>15C6),& V=(>C060,>01EE,>1336,>A060,>01F6) EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A24, 2&D=(>1302,>C051,>10F7,>C021,>000C),&&V=(>9821,>0002,>15C6,>162E,>C261) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A2E, 2&D=(>C081,>0222,>0012,>0205,>24C6),&&V=(>000C,>C081,>0222,>0012,>8812) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A38, 2&D=(>0206,>24DE,>8812,>15AA,>1307),&&V=(>2EAA,>1602,>C4A0,>2EA8,>8592) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A42, 2&D=(>8D92,>1602,>0595,>1003,>05C5),&&V=(>161E,>05A6,>0008,>05A0,>2EA6) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A4C, 2&D=(>C596,>16F9,>0222,>0008,>0600),&&V=(>C820,>2492,>23DC,>2FE0,>23CE) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A56, 2D=(>15EE,>10E6,>0207,>24C6,> C017), &V=(>C208,>150B,>0588,>0204,>23F2) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A60, 2&D=(>1305,>C0A7,>0002,>1302,>04D7),&&V=(>CD20,>2454,>CD26,>0004,>CD26) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A6A, 2&D=(>04C8,>0206,>24DE,>020A,>24EA),&&V=(>0006,>2FE0,>23DE,>0204,>23F2) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A74, 2&D=(>C060,>01EE,>1332,>A060,>01F6),&&V=(>CD20,>2454,>0222,>FFFC,>06A0) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A7E, 2&D=(>9821,>0002,>15C6,>162A,>C261),&&V=(>3406,>0222,>0008,>0609,>15D7) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A88, 2&D=(>000C,>C081,>0222,>0012,>8592),&&V=(>C051,>10C9,>C208,>1304,>C166) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A92, 24@&D=(>161F,>C5D7,>1503,>C4A0,>24E0),&&V=(>0002,>06A0,>2F42,>0226,>000A) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A9C, 2 D=(>101E,>C820,>2492,>23DC), V=(>C596,>16BC,>0460,>0000)  EC'* '<*  THE FOLLOWING IS A LIST OF THE COMLBL TABLE. IT IS <D*  LOCATED IN "DXDATA" STARTING AT LINE 1152 (@>AFC) PATCHED. D* '(* COMCNT DATA 0  GLOBAL COMM COUNT( * X3780 DATA 3780 * X2780 DATA 2780*  DATA 0 *  DATA 0 *  DATA 0  * COMLBL DATA 3780*  TEXT 'E ' OVERLAY*  TEXT '3780'"* CNT378 DATA 0  3780 COUNT "*  TEXT 'P '*  TEXT 'N ' OVERLAY*  TEXT 'LAP ' * CNTLAP DATA 0 LAP COUNT  *  TEXT 'LC'*  TEXT 'O 'OVERLAY *  TEXT 'HDLC'* CNTHLC DATA 0 HDLC COUNT*  TEXT 'NS'*  TEXT 'P 'OVERLAY *  TEXT 'CMNS' * CNTCMN DATA 0 CMNS COUNT *  DATA 3270*  TEXT 'F 'OVERLAY *  TEXT '3270' * CNT327 DATA 0 3270 COUNT *  TEXT 'MA'*  TEXT 'S 'OVERLAY  * CNTCMA TEXT 'COMA'*  DATA 0 COMA COUNT*  TEXT 'MB'*  TEXT 'T 'OVERLAY *  TEXT 'COMB' * CNTCMB DATA 0 COMB COUNT *  DATA 0 END LIST* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0AFC, 2,D=(>C820,>2492,>23DC,>2FE0,>23CE,>04C6),,,V=(>0000,>0EC4,>0ADC,>0000,>0000,>0000) ,EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B08, 2&D=(>C060,>01EE,>1601,>045B,>A060),&&V=(>0EC4,>4520,>3337,>3830,>0000) &EC'MPI  PF=PROGA,MT =OV,MN=>06,ADR=>23AA+>0B12,  &D=(>01F6,>D0E1,>0002,>9803,>15C4),&&V=(>5020,>4E20,>4C41,>5020,>0000) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B1C, 2&D=(>1305,>9803,>15BF,>130B,>C051),&&V=(>4C43,>4F20,>4844,>4C43,>0000) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B26, 2&D=(>10F2,>C0E1,>0012,>0283,>038F),&&V=(>4E53,>5020,>434D,>4E53,>0000) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B30, 2&D=(>16F9,>C0E1,>0014,>11F6,>1003),&&V=(>0CC6,>4620,>3332,>3730,>0000) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B3A, 2&D=(>C0E1,>0012,>11F2,>C023,>000C),&&V=(>4D41,>5320,>434F,>4D41,>0000) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B44, 2,D=(>C083,>0222,>0012,>8812,>15AA,>161F),,"V=(>4D42,>5420,>434F,>4D42,>0000" ,>0000)  EC'* '8*  THE FOLLOWING ARE THE DSR NAMES FOR THE "COMA" 8@*  AND "COMB" OVERLAYS. THESE ARE REFERENCED IN "LNKSTM". @* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B50, 2 D=(>0203,>4343,>9821,>0002), V=(>4453,>5243,>4F4D,>4120)  EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B58, 2 D=(>15C4,>1302,>0203,>434C), V=(>4453,>5243,>4F4D,>4220)  EC'* '*  CHANGES TO "PDTBLD"* '>* DELETE LINES 265-292 INSERT A JMP NXTPDT AFTER LINE 264 >2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>3540+>0174, 2D=>13CA,V=>10CA EC' * NOP 911 3270 TEST 2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>3540+>02B0, 2D=>1602,V=>1000 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>3540+>03F2, 2D=>8812,V=>1002 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>3540+>0448, 2D=>1302,V=>1000 EC'* '6*  THE FOLLOWING CHANGES "INTBLD" TO PUT OUT THE6:*  MAPFILE ADDRESS OF THE FIRST COMM CHANNEL IN THE :<*  INTERRUPT VECTOR. (STARTS AT LINE 720) ALSO DELETE <*  LINES 736-741* '*  MOVR1,R2 *  MOV@ECNT(R1),R0*  JEQ$ ,*  AI R2,ECHAN :=FIRST PROTOCOL,* LAB42 MOV*R2,R11  *  JNELAB43 NOT "NONE" $*  AI R2,8CURRENT = "NONE"$*  DECR0 *  JGTLAB42 &*  JMP$  SHOULD NEVER HAPPEN &(* LAB43 AI R2,-4 ADJUST TO NAME(*  MOVB *R2+,*R4+ *  MOVB *R2+,*R4+ *  MOVB *R2+,*R4+ *  MOVB *R2+,*R4+ * '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>4058+>06B6, 2D=(>"C021,>000A,>1112,>C081,>0222),"&V=(>C081,>C021,>000C,>13FF,>0222) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>4058+>06C0, 2&D=(>0012,>020B,>40FA,>0200,>0006),&&V=(>0012,>C2D2,>1605,>0222,>0008) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>4058+>06CA, 2&D=(>84BB,>1304,>022B,>0004,>0600),&&V=(>0600,>15FA,>10FF,>0222,>FFFC) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>4058+>06D4, 2&D=(>15FA,>DD3B,>DD3B,>DD3B,>DD3B),&&V=(>DD32,>DD32,>DD32,>DD32,>1000) &EC'* '*  CHANGES TO "LNKSTM"* ':*  THE DEVTAB LIST IN "LNKSTM" MUST BE EXTENDED FOR : *  COMA & COMB PROTOCOLS.  * '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0090, 2&D=(>0000,>24DA,>0662,>4B20,>4977),&8V=(>23AA+>0B42,>0676,>5320,>23AA+>0B50,>23AA+>0B4C) 8EC'@2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>009A, 2 D=(>24D8,>0660,>4C20,>4980), &V=(>0676,>5420,>23AA+>0B58,>0000) &EC'* '>*  SINCE WE OVERWROTE THE DEVICE LIST, WE HAVE TO PATCH >0*  THE OVERLAY TYPE FOR RTS/POWERFAIL/ADDS0* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0412, 2$D=(>C160,>4876),V=(>0205,>4B20) $EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>043A, 2$D=(>C160,>487E),V=(>0205,>4C20) $EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0478, 2$D=(>C160,>4886),V=(>0205,>4920) $EC'* '<*  REFERENCES TO THE COMM COUNTS NEED TO BE CHANGED TO <$*  REFLECT THEIR NEW PLACEMENT$* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0040, 2 D=>24C8,V=>23AA+>0B10 EC'0MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0048, 0 D=>24D0,V=>23AA+>0B38 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0058, 2 D=>24C6,V=>23AA+>0B06 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0068, 2 D=>24CA,V=>23AA+>0B1A EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0070, 2 D=>24CC,V=>23AA+>0B24 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0078, 2 D=>24CE,V=>23AA+>0B2E EC'* '@*  THIS PATCHES LINE 393 IN LNKSTM TO BRANCH TO THE PATCH @@*  AREA IN DXDATA AT LINE 359. THE SOURCE CODE NEEDS TO BE @:*  CHANGED TO ADD A DEVICE TYPE TO DEVTBL IN LNKSTM. :D*  CURRENTLY THE PATCH CHECKS AGAINST THE KNOWN COMM OVERLAYS.D* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>03D4, 2*D=(>C166,>0004),V=(>0460,>23AA+>0292) *EC'* '*  THIS IS THE SOURCE  CODE FOR THE FOLLOWING PATCH * '* MOV @4(R6),R5(* CB R5,@>47E0+>0044IS IT 'E'?(* JEQ A (* CB R5,@>47E0+>004CIS IT 'F'?(* JEQ A (* CB R5,@>47E0+>005CIS IT 'J'?(* JEQ A (* CB R5,@>47E0+>006CIS IT 'N'?(* JEQ A (* CB R5,@>47E0+>0074IS IT 'O'?(* JEQ A (* CB R5,@>47E0+>007CIS IT 'P'?(* JEQ A (* CB R5,@>47E0+>0096IS IT 'S'?(* JEQ A (* CB R5,@>47E0+>009EIS IT 'T'?(* JEQ A 0* B  @>47E0+>03D8  NOT A COMM OVERLAY! 0* AMOV @2(R6),@B** BL @PHASE2 WRITE "PHASE 2" LINE ** BDATA 0 ,* MOV @6(R6),@INC DSR LABEL POINTER ,* CLR R5 (* BL @INCLD2 INCLUDE STATEMENT (* DATA DATDSC * DATA SYSGEN * DATA OUTPUT  * INCDATA 0 NAME OF DSR * DATA 0 END LIST$* WRIT @DXIO WRITE THE RECORD $0* B  @>47E0+>03EA  RETURN TO MAIN CODE 0* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0292, 2&D=(>A0A0,>01F6,>9822,>0002,>15C6),&&V=(>C166,>0004,>9805,>4824,>1317) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>029C, 2&D=(>160C,>C022,>000C,>C102,>0224),&&V=(>9805,>482C,>1314,>9805,>483C) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02A6, 2&D=(>0012,>8814,>15AA,>1307,>0224),&&V=(>1311,>9805,>484C,>130E,>9805) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02B0, 2&D=(>0008,>0600,>15F9,>C042,>C091),&&V=(>4854,>130B,>9805,>485C,>1308) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02BA, 2D=$(>10EA,>C0E0,>01EE,>1313,>A0E0),$&V=(>9805,>4874,>1305,>9805,>487C) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02C4, 2&D=(>01F6,>9823,>0002,>15C4,>1604),&&V=(>1302,>0460,>4BB8,>C826,>0002) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02CE, 2&D=(>80A3,>0014,>13F1,>1007,>9823),&,V=(>23AA+>02D4,>06A0,>4E4A,>0000,>C826) ,EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02D8, 2&D=(>0002,>15BF,>1603,>80A3,>0012),&,V=(>0006,>23AA+>02E8,>04C5,>06A0,>4EAA) ,EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02E2, 2&D=(>13E9,>C0D3,>10EC,>04C3,>C0E2),&&V=(>010C,>00FA,>014C,>0000,>0000) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02EC, 2 D=(>0003,>0973,>0623,>0194), V=(>2FE0,>23DE,>0460,>4BCA)  EC'* '*  CHANGE LI.NES 334-342 IN "LNKSTM" TO INCLUDE COMMCOM .&*  FROM SYSGEN-OUTPUT DIRECTORY &* '(*  MOV@COMCNT,R0COMM DEFINED? (*  JEQLNK63 ,*  BL @INCLD2  YES, INCLUDE COMMCOM, *  DATA DATDSCDATA DISK  *  DATA SYSGEN.S$SYSGEN  $*  DATA OUTPUT"SYSTEM" NAME $*  DATA N$COMMCOMMCOM *  DATA 0 *  WRIT @DXIO *  JMPLNK65 * '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0336, 2&D=(>C020,>24D0,>A020,>24C8,>A020),&&V=(>C020,>2EA6,>1309,>06A0,>4EAA) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0340, 2&D=(>24C6,>A020,>24CA,>A020,>24CC),&&V=(>010C,>00FA,>014C,>4944,>0000) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>034A, 2,D=(>A020,>24CE,>1304,>06A0,>4E82,>4944),,V=(>2FE0,>23DE,> 1000,>1000,>1000,>1000) EC'*$'N%**************************************************************************N*  INSERT PATCHES HERE. * 'B*  FOLLOW EACH PATCH COMMAND (MPI, MRF) WITH AN EC COMMAND. B* 'N%**************************************************************************N* '* ':CM R=ME,M="UPGEN990 PATCH STREAM ERROR COUNT = @$E$C" :* ' .ENDIF% ,.SYN PROGA="" ! TARGET PROGRAM FILE ,* 'SDT & EBATCH% &&V=(>C020,>2EA6,>1309,>06A0,>4EAA) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0340, 2&D=(>24C6,>A020,>24CA,>A020,>24CC),&&V=(>010C,>00FA,>014C,>4944,>0000) &EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>034A, 2,D=(>A020,>24CE,>1304,>06A0,>4E82,>4944),,V=(>2FE0,>23DE,>@BATCH LS=YES"R(********************************************************************************R* GEN990 PATCH FILE  *N%**************************************************************************ND* APPLY THIS PATCH FILE TO THE GEN990 TASK PRIOR TO DX10 3.4.2D6* BEFORE GENERATING ANY COMMUNICATIONS PACKAGES.6R(********************************************************************************R@* BEFORE EXECUTING THIS BATCH STREAM, THE SYNONYM 'PROGA' @D* MUST BE ASSIGNED THE VALUE OF THE PROGRAM FILE THAT CONTAINSD&* THE GEN990 TASK BEING PATCHED.&* '*  ASSIGN SYNONYM VALUE* SYNONYM: PROGA* VALUE: DS01.PROGA * 'R(********************************************************************************R* '.SYN $E$C="0" !* 'N%**************************************************************************N* '6*=P0XXX RVL05/10/81STR# XXXXX3.4.0 GEN990 6* 'J#* THIS PATCH REMOVES THE 3270 ASSOCIATION FROM 911 CRTS AND PRINTERS. J * FROM MODULE "DEVICE" * LINE 514 IN DEVICE* '* '0*  VERIFY CURRENT GEN990 IS RELEASE 3.4.0 0* 'BMPI  PF=PROGA,MT=TA,MN=>33,ADR=>0006,V=>0008,D=>0008,C=>0008 BEC' .IF "@$E$C",NE,"0""CM R=ME,M="BAD GEN990 VERSION""LS' .STOP % .ELSE % 0MPI  PF=PROGA,MT=OV,MN=5,ADR=>2A0C+>0364, 0,V=(>06A0,>3C30),D=(>0703,>1011),C=>1712 ,EC' * LINE 594 IN DEVICE0MPI  PF=PROGA,MT=OV,MN=5,ADR=>2A0C+>0446, 0 V=>0283,D=>1002,C=>1002 EC'* '8* THIS ALLOWS 3270 PROTOCOL TO BE GIVEN NAME "CMXX"8@8* LINE 1421 IN DEVICE; DELETE LINES 1430-1431 ALSO.8* '0MPI  PF=PROGA,MT=OV,MN=5,ADR=>2A0C+>0CDA, 0 V=>028B,D=>1002,C=>1002 EC' ***************************  6* THE FOLLOWING PATCHES REFERENCE MODULE "CHANGE"6 ***************************  H"* LINE 1128 IN CHANGE REMOVES "3270 CR ADDRESS" PROMPT FOR PRINTERSH0MPI  PF=PROGA,MT=OV,MN=5,ADR=>4D96+>0A3E, 0 V=>C16A,D=>1021,C=>1021 EC'D * LINE 1247 IN CHANGE REMOVES "3270 CRU ADDRESS" PROMPT FOR 911D0MPI  PF=PROGA,MT=OV,MN=5,ADR=>4D96+>0B90, 0 V=>C12A,D=>1006,C=>1006 EC'* 'B*  THE FOLLOWING CHANGES THE LOGIC FOR SEARCHING NON-NUMERICBD*  COMM PROTOCOL TYPES. COMA & COMB ARE ALLOWED AS PROTOCOLS. D* ' * LINES 1215-1216 CHANGE  * FROM:$ *  CI R5,2780*  JLT CCOM10  * TO:% *  CI R5,3780 *  JGTCCOM100MPI  PF=PROGA,MT=OV,MN=5,ADR=>4D96+>0FD6, 0,V=(>0ADC,>1105),D=(>0EC4,>1505),C=>1BC1 ,EC'* ' * LINES 1620-1625 CHANGE  * FROM:$  * CCOM10 SLA R5,8 * SB @T$LAP,R5* SRL R5,7 * AI R5,COMLBL* MOV *R5,R6  * TO:% * CCOM10 LI R6,COMTBL * CCOM12 INCT R6 * C  R5,*R6+* JNE CCOM12 * AI R6,-4* '0MPI  PF=PROGA,MT=OV,MN=5,ADR=>4D96+>0FE4, 02V=(>0A85,>7160,>15FD,>0975,>0225,>4A56,>C195), 22D=(>0206,>49C8,>05C6,>8D85,>16FD,>0226,>FFFC), 2 C=>28AA EC'H"******************************************************************* H* '(* THE FOLLOWING IS A REAL PATCH TO ALL( OW A NON-NUMERIC PROTOCOL (* TO BE ENTERED ON A CHANGE COMMAND.(* 'B* A "LI R2,1" NEEDS TO BE INSERTED AFTER LINE 1630 IN CHANGE. B* '.MPI PF=PROGA,MT=OV,MN=>5,ADR=>4D96+>1004, ., V=(>0420,>2132),D=(>0460,>627A),C=>661A,EC'* '6* THIS USES THE FIRST AVAIL PATCH AREA IN "CHANGE"6* '*MPI  PF=PROGA,MT=OV,MN=>5,ADR=>627A,*,V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),,,D=(>0420,>2132,>0202,>0001,>0460,>5D9E),, C=>7EEF EC'* '<*  PATCH IN "LIST" TO SET CORRECT GENDAT POINTERS FOR <B*  "DEVICE", "CRU" AND "INTERRUPT" EXPLANATIONS WHEN ?/WHAT B*  IS USED. * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0E6E, 2 V=>001D,D=>002F,C=>002F EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0E76, 2 V=>010F, D=>003F,C=>003F EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0E7A, 2 V=>0030,D=>001C,C=>001C EC'H"******************************************************************* H* '@* THE FOLLOWING SETS THE 3270 BUFFER SIZE TO >130 IN CHANGE. @B* LINES 1643-1644 NEED TO CHANGE. PATCH AREA FREED IN "DEVICE" B * FROM: $ * C  @CTYPE,@X3270* JEQ CCM40 * TO: % * C  @CTYPE,@X3270* JNE CCM32* ABS @PRNTSW* JEQ CCM34* LI R3,>130,* JMP CCM38 WHERE CCM38 IS LINE 1651 ,* CCM32 EQU $ * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>4D96+>102C, 22V=(>8820,>5C16),D=(>0460,>2A0C+>0368),C=>2914 2EC'* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>0368, 2$V=(>0378,>9820,>1FE0,>15D5,>130E),$&D=(>8820,>5C16,>15AA,>1609,>0760),& C=>D0F5 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>0372, 2&V=(>0703,>9820,>1FE0,>15D8,>1307),&,D=(>157A,>1302,>0460,>4D96+>1052,>0203),, C=>5DF3 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>037C, 2&V=(>06A0,>2972,>1006,>10F0,>06A0),&2D=(>0130,>0460,>4D96+>1048,>0460,>4D96+>1034), 2 C=>0124 EC' ***************** * '0* THE FOLLOWING ARE CHANGES TO MODULE "LIST"0* ' ***************** * '>* REMOVE LISTING THE 3270 ASSOCIATED PROMPT FOR 911 CTRS. >* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>07C0, 2 V=>C162,D=>1013,C=>1013 EC'* '@* WHEN LISTING COMM DEVICE NAMES, ALLOW 3270 PROTOCOL NAME. @* ',MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0A,E6,  V=>8811,D=>1002,C=>1002 EC'* 'D * THIS PATCH ALLOWS ALL NON-NUMERIC PROTOCOL NAMES TO BE ENTEREDD>* AND VERIFIED. IT BEGINS AT LINE 1379 IN "LIST" AND USES >H"* PATCH AREA WHICH WAS FREED UP IN MODULE LIST FROM LINES 1290-1358.H * FROM: $ * CB R3,@T$LAP* JL DCOM06 * CB R3,@T$CMNS * JLE DCOM30  * TO: % ** LI R2,LINES  IN MODULE "SCAN" *"* LI R3,COMTBL IN PATCH ",* LI R5,5  5 NON-NUMERIC PROTOCOLS ,(* LBLAC  *R3+,*R2  FIND MATCH (* JEQ LBLC (* LBLBINCT R3  NEXT TABLE ENTRY (** DEC R5  FINISHED ALL POSSIBLE? ** JNE LBLA  NO * B  @DCOM06 ERROR** LBLCINCT R2  NEXT 2 INPUT DIGITS ** C  *R2,*R3* JEQ LBLD  FOUND MATCH** DECT R2  RESET TO FIRST 2 DIGITS *$* JMP LBLB  CONTINUE SEARCH$* LBLDMOV *R3,R3  * RT" * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0BD4, 2,V=(>9803,>15FD,>1A03,>9803,>15FF,>1210),,8D=(>0202,>20D2,>0203,>3EAC+>0B1C,>0460,>3EAC+>0B34), 8 C=>249B EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B34, 2&V=(>4A42,>1002,>C155,>10E7,>CDA5),&&D=(>0205,>0005,>84B3,>1305,>05C3),& C=>9075 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B3E, 2&V=(>000E,>05A0,>4D96,>05C6,>0604),&,D=(>0605,>16FB,>0460,>3EAC+>0BE0,>05C2),, C=>5BD0 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B48, 2,V=(>15F7,>0204,>18F4,>0504,>A184,>0226),,,D=(>8493,>1302,>0642,>10F6,>C0D3,>045B),, C=>45AD EC'* '* < CHANGE COMTBL ADDRESS IN "LIST" AT LINE 1390 TO PATCHED <*  ADDRESS!* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0BF4, 2(V=>4A48,D=>3EAC+>0B06,C=>3EAC+>0B06 (EC'* '>*  THIS ALLOWS THE 3270 BUFFER SIZE TO DEFAULT TO >130. >$*  USES PATCH AREA IN "DEVICE"$* '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0C14, 22V=(>0283,>0CC6),D=(>0460,>2A0C+>044E),C=>2A3A 2EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>044E, 2&V=(>06A0,>3C30,>0378,>9820,>1FE0),&&D=(>0283,>0CC6,>1604,>0203,>0130),& C=>1B72 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>2A0C+>0458, 2 V=(>15D8,>1309,>06A0,>2972), ,D=(>0460,>3EAC+>0C66,>0460,>3EAC+>0C1A),, C=>01D4 EC'* 'B*  THIS PATCHES IN THE COMTYP TABLE USED IN "UTIL" AT @SAVE B* D TO SCAN THE DEVICE/PROTOCOL LIST TO UPSIZE THE SYSGEN DIRECTORYD* ' * COMTYP DATA 32703270*  DATA 37803780*  DATA 27802780*  TEXT 'P 'LAP *  TEXT 'LC'HDLC*  TEXT 'NS'CMNS*  TEXT 'MA'COMA*  TEXT 'MB'COMB*  DATA 0 *  DATA 0 * PROCNT DATA 1 * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B06, 2&V=(>C160,>01EE,>1332,>A160,>01F6),&&D=(>0CC6,>0EC4,>0ADC,>5020,>4C43),& C=>14BD EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B10, 2 V=(>9825,>0002,>15BF,>1606), D=(>4E53,>4D41,>4D42,>0000), C=>4E50 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B18, 2,V=(>80A5,>0012),D=(>0000,>0001),C=>0001 ,EC'* '*  THIS DEFINES "COMTBL"*  IT IS OF THE FORM * COMTBL TEXT 'HDLC'*  TEXT 'LAP '*  TEXT 'CMNS'*  TEXT 'COMA'*  TEXT 'COMB'*  DATA 0,0 * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B1C, 2&V=(>160D,>CDA0,>4A40,>100C,>9825),&&D=(>4844,>4C43,>4C41,>5020,>434D),& C=>5B2B EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B26, 22V=(>0002,>15C4,>1606,>80A5,>0014,>1603,>CDA0), 22D=(>4E53,>434F,>4D41,>434F,>4D42,>0000,>0000), 2 C=>4E50 EC'* 'D*  THIS IS THE IN-LINE CODE TO SET THE DIRECTORY SIZE. ENTEREDD<*  FORM "UTIL" AT @4E2 I.E. MOV @X10,@ALOC1-->B @PATCH <* '.*  LI R1,COMTYP  SEARCH ALL PROTOCOLS.2* GCM$10 MOV*R1+,R3  GET NEXT PROTOCOL TYPE 2**  JEQGCM$60 IF ZERO, END OF LIST**  MOV@D&EVHED,R2 GET START OF DEVICE LIST &4* GCM$20 JEQGCM$10 AT END, GET NEXT PROTOCOL 4*  A@AVAIL,R2 2*  CB @ETYP(R2),@T$COM IF NOT COMM, SKIP 2*  JNEGCM$406*  MOV@ECNT(R2),R0 COUNT OF DEFINED CHANNELS 6*  MOVR2,R4 **  AI R4,ECHAN POINT TO PROTOCOL *4* GCM$30 C*R4,R3THIS CHANNEL/THIS PROTOCOL? 4*  JEQGCM$50YES  *  AI R4,8NEXT CHANNEL *  DECR0 *  JGTGCM$30CONTINUE&* GCM$40 MOV*R2,R2NEXT DEVICE &*  JMPGCM$200* GCM$50 INC@PROCNT  BUMP PROTOCOL COUNT 0*  JMPGCM$10* GCM$60 MOV@PROCNT,R0.*  SLAR0,1 *2 DIRECTORY ENT/PROTOCOL .6*  AI R0,14 +10 (SYSTEM) +4 (CFDSR&COMMCOM) 6"*  MOVR0,@ALOC1 IN UTIL " *  B@0000 RETURN TO UTIL * '2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>383A+>04E2, 22V=(>C820,>159C),D=(>0460,>3EAC+>0B54),C=>4E60 2EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B54, 2&V=(>0004,>0420,>6312,>0420,>630E),&,D=(>0201,>3EAC+>0B06,>C0F1,>1319,>C0A0),, C=>58FB EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B5E, 2&V=(>03DF,>0000,>0204,>0006,>0206),&&D=(>01EE,>13FB,>A0A0,>01F6,>9822),& C=>2B61 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B68, 2&V=(>0014,>0226,>18F4,>10E4,>0760),&&D=(>0002,>15C6,>160B,>C022,>000C),& C=>C3E1 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B72, 2&V=(>4D96,>1509,>0204,>18F4,>0504),&&D=(>C102,>0224,>0012,>80D4,>1306),& C=>50E6 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B7C, 2V=(>A1 84,>0226,>0004,>0420,>6312), &D=(>0224,>0008,>0600,>15FA,>C092),& C=>D144 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B86, 2&V=(>045B,>0284,>0006,>16F4,>0420),&,D=(>10EC,>05A0,>3EAC+>0B1A,>10E5,>C020),, C=>8C4F EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B90, 2&V=(>6316,>045B,>434C,>4343,>2424),&,D=(>3EAC+>0B1A,>0A10,>0220,>000E,>C800),, C=>89F8 EC'2MPI  PF=PROGA,MT=OV,MN=>05,ADR=>3EAC+>0B9A, 2 V=(>2424,>0EC4,>0ADC), D=(>0046,>0460,>383A+>04E8), C=>3904 EC'J#**********************************************************************J * ! * F*  THE FOLLOWING PATCHES REFERENCE THE SECOND GEN990 OVERLAY *F * ! * J#**********************************************************************J* 'A1 @*  SKIP 3270/CRT/LP TEST BEGINING AT LINE 353 TO LINE 395 @* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0290, 2 V=>1333,D=>1033,C=>1033 EC'* '2*  SKIP ZEROING OF COMM COUNTS LINES 497-5012* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0432, 2 V=>0205,D=>1006,C=>1006 EC'* '0*  USE NEW GLOBAL COMM COUNT LINES 509-5150* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>045C, 2 V=>C2E0,D=>1009,C=>1009 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0470, 2*V=(>A2E0,>24CE),D=(>C2E0,>23AA+>0AFC),* C=>EC46 * 'B*  CHANGE DATA STATEMENTS FOR LP/CRT IN BRANCH TABLE LOCATEDB*  AT LINE 615. * '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>056A, 2.V=>23AA+>05E4,D=>23AA+>0620,C=>23AA+>0620 .EC'A1 @2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0574, 2.V=>23AA+>05F2,D=>23AA+>0620,C=>23AA+>0620 .EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>057E, 2.V=>23AA+>05F2,D=>23AA+>0620,C=>23AA+>0620 .EC'* '$*  SKIP 3270 TEST AT LINE 708 $* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0652, 2 V=>8812,D=>1002,C=>1002 EC'* '@*  SKIP 3270 CRT/LP DEVICE ASSOCIATED TESTS (LINE 774-791) @* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0716, 2 V=>9821,D=>1021,C=>1021 EC'* '"*  SKIP 3270 REF AT LINE 808"* '0MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>780,0 V=>8812,D=>1002,C=>1002 EC'* ',*  SKIP 3270 MAPBUILD AT LINES 940-946,* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>08E8, 2V=>0207,D=>100A,C=>100A EC'* ':*  THIS CODE REPLACES LINES 1053 - 1202 IN "DXDATA" :* '6* MAPCOM MOVR11,@MAPCRT+2  SAVE RETURN ADDRESS 62* CMP$00 LI R6,COMLBL  :=PROTOCOL LIST 2* CMP$10 CLRR8 .*  MOV@DEVHED,R1 SEARCH DEVICE CHAIN .* CMP$15 JEQCMP$70*  A@AVAIL,R1 6*  CB @ETYP(R1),@T$COM IS THIS A COMM DEVICE? 6*  JNECMP$60NO2*  MOV@ECNT(R1),R9 YES, :=# CHANNELS 2*  MOVR1,R2 &*  AI R2,ECHAN:=PROTOCOL&$* CMP$20 C*R2,@X2780IF 2780 $*  JNECMP$30,*  MOV@X3780,*R2 REPLACE WITH 3780 ,6* CMP$30 C*R2,*R6 THIS CHANNEL; THIS PROTOCOL? 6*  JNECMP$50NO.*  INC@8(R6) YES, BUMP PROTOCOL COUNT .4*  INC@COMCNT BUMP GLOBAL PROTOCOL COUNT. 46@0*  MOV@F$MAP,@GENRCD READ GENDAT RECORD0*  READ @GENIO4*  MOVR8,R8 FIRST TIME FOR THIS PROTOCOL? 4*  JGTCMP$40NO$*  INCR8 YES, SET SEEN FLAG$*  LI R4,BUFF ,*  MOV@PREMP,*R4+ WRITE "MP" LABEL,>*  MOV@4(R6),*R4+ WRITE FIRST 2 PROTOCOL LABEL BYTES>>*  MOV@6(R6),*R4+ WRITE NEXT 2 PROTOCOL LABEL BYTES >(*  WRIT @DXIO  WRITE TO D$SOURCE (* CMP$40 LI R4,BUFF &*  MOV@PREMP,*R4+ WRITE "MP"&:*  AI R2,-4 R2->COMM NAME (E.R. CM01,CM03,ETC..): *  BL @PUTNM1 WRITE IT $* CMP$50 AI R2,8NEXT CHANNEL$(*  DECR9 FINISHED ALL CHANNELS? (*  JGTCMP$20CONTINUE&* CMP$60 MOV*R1,R1NEXT DEVICE &*  JMPCMP$156* CMP$70 MOVR8,R8 ANY OF THIS PROTOCOL DEFINED? 6 *  JEQCMP$80NO(*  MOV@2(R6),R5 GET OVERLAY ID(2*  BL @MAPBLD  FINISH MAPFILE DEFINITION 2(* CMP$80 AI R6,>A NEXT PROTOCOL (.*  MOV*R6,*R6  END OF PROTOCOL LIST? ..*  JNECMP$10 NO, SEARCH DEVICES AGAIN .* MAPCRT B@0000 RETURN* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A10, 2&V=(>C80B,>2EA4,>C060,>01EE,>1320),&2D=(>C80B,>23AA+>0AA2,>0206,>23AA+>0B08,>04C8), 2 C=>CE3B EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A1A, 2&V=(>A060,>01F6,>9821,>0002,>15C6),&&D=(>C060,>01EE,>1336,>A060,>01F6),& C=>732E EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A24, 2&V=(>1302,>C051,>10F7,>C021,>000C),&&D=(>9821,>0002,>15C6,>162E,>C261),& C=>59AA EC'"MPI  PF=PROGA,MT=OV,MN=>06,ADR"=>23AA+>0A2E, &V=(>C081,>0222,>0012,>0205,>24C6),&&D=(>000C,>C081,>0222,>0012,>8812),& C=>4AAF EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A38, 2&V=(>0206,>24DE,>8812,>15AA,>1307),&&D=(>2EAA,>1602,>C4A0,>2EA8,>8592),& C=>5732 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A42, 2&V=(>8D92,>1602,>0595,>1003,>05C5),&&D=(>161E,>05A6,>0008,>05A0,>2EA6),& C=>38B6 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A4C, 2&V=(>C596,>16F9,>0222,>0008,>0600),&&D=(>C820,>2492,>23DC,>2FE0,>23CE),& C=>C340 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A56, 2&V=(>15EE,>10E6,>0207,>24C6,>C017),&&D=(>C208,>150B,>0588,>0204,>23F2),& C=>F37D EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A60, 2V=(>1305,>C0A7 ,>0002,>1302,>04D7),&D=(>CD20,>2454,>CD26,>0004,>CD26),& C=>E970 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A6A, 2&V=(>04C8,>0206,>24DE,>020A,>24EA),&&D=(>0006,>2FE0,>23DE,>0204,>23F2),& C=>2DCE EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A74, 2&V=(>C060,>01EE,>1332,>A060,>01F6),&&D=(>CD20,>2454,>0222,>FFFC,>06A0),& C=>120A EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A7E, 2&V=(>9821,>0002,>15C6,>162A,>C261),&&D=(>3406,>0222,>0008,>0609,>15D7),& C=>25F2 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A88, 2&V=(>000C,>C081,>0222,>0012,>8592),&&D=(>C051,>10C9,>C208,>1304,>C166),& C=>C0F2 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A92, 2&V=(>161F,>C5D7,>1503,>C4A0,>24E0),& D=(>0002  ,>06A0,>2F42,>0226,>000A), C=>2BCC EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0A9C, 2 V=(>101E,>C820,>2492,>23DC), D=(>C596,>16BC,>0460,>0000), C=>D74A EC'* '<*  THE FOLLOWING IS A LIST OF THE COMLBL TABLE. IT IS <D*  LOCATED IN "DXDATA" STARTING AT LINE 1152 (@>AFC) PATCHED. D* '(* COMCNT DATA 0  GLOBAL COMM COUNT( * X3780 DATA 3780 * X2780 DATA 2780*  DATA 0 *  DATA 0 *  DATA 0  * COMLBL DATA 3780*  TEXT 'E ' OVERLAY*  TEXT '3780'"* CNT378 DATA 0  3780 COUNT "*  TEXT 'P '*  TEXT 'N ' OVERLAY*  TEXT 'LAP ' * CNTLAP DATA 0 LAP COUNT  *  TEXT 'LC'*  TEXT 'O 'OVERLAY *  TEXT 'HDLC'* CNTHLC DATA 0 HD LC COUNT *  TEXT 'NS'*  TEXT 'P 'OVERLAY *  TEXT 'CMNS' * CNTCMN DATA 0 CMNS COUNT *  DATA 3270*  TEXT 'F 'OVERLAY *  TEXT '3270' * CNT327 DATA 0 3270 COUNT *  TEXT 'MA'*  TEXT 'S 'OVERLAY  * CNTCMA TEXT 'COMA'*  DATA 0 COMA COUNT*  TEXT 'MB'*  TEXT 'T 'OVERLAY *  TEXT 'COMB' * CNTCMB DATA 0 COMB COUNT *  DATA 0 END LIST* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0AFC, 2,V=(>C820,>2492,>23DC,>2FE0,>23CE,>04C6),,,D=(>0000,>0EC4,>0ADC,>0000,>0000,>0000),, C=>0418 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B08, 2&V=(>C060,>01EE,>1601,>045B,>A060),&&D=(>0EC4,>4520,>3337,>3830,>0000),& C=>40E3 EC'MPI , PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B12, ,&V=(>01F6,>D0E1,>0002,>9803,>15C4),&&D=(>5020,>4E20,>4C41,>5020,>0000),& C=>0261 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B1C, 2&V=(>1305,>9803,>15BF,>130B,>C051),&&D=(>4C43,>4F20,>4844,>4C43,>0000),& C=>0764 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B26, 2&V=(>10F2,>C0E1,>0012,>0283,>038F),&&D=(>4E53,>5020,>434D,>4E53,>0000),& C=>136D EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B30, 2&V=(>16F9,>C0E1,>0014,>11F6,>1003),&&D=(>0CC6,>4620,>3332,>3730,>0000),& C=>4EE4 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B3A, 2&V=(>C0E1,>0012,>11F2,>C023,>000C),&&D=(>4D41,>5320,>434F,>4D41,>0000),& C=>106F EC',MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B,44, ,V=(>C083,>0222,>0012,>8812,>15AA,>161F),,,D=(>4D42,>5420,>434F,>4D42,>0000,>0000),, C=>176F EC'* '8*  THE FOLLOWING ARE THE DSR NAMES FOR THE "COMA" 8@*  AND "COMB" OVERLAYS. THESE ARE REFERENCED IN "LNKSTM". @* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B50, 2 V=(>0203,>4343,>9821,>0002), D=(>4453,>5243,>4F4D,>4120), C=>187D EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0B58, 2 V=(>15C4,>1302,>0203,>434C), D=(>4453,>5243,>4F4D,>4220), C=>1B7D EC'* '*  CHANGES TO "PDTBLD"* '>* DELETE LINES 265-292 INSERT A JMP NXTPDT AFTER LINE 264 >2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>3540+>0174, 2 V=>13CA,D=>10CA,C=>10CA EC' * NOP 911 3270 TEST MPI  PF=PROGA,MT=OV,MN=>06 ,ADR=>3540+>02B0,  V=>1602,D=>1000,C=>1000 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>3540+>03F2, 2 V=>8812,D=>1002,C=>1002 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>3540+>0448, 2 V=>1302,D=>1000,C=>1000 EC'* '6*  THE FOLLOWING CHANGES "INTBLD" TO PUT OUT THE6:*  MAPFILE ADDRESS OF THE FIRST COMM CHANNEL IN THE :<*  INTERRUPT VECTOR. (STARTS AT LINE 720) ALSO DELETE <*  LINES 736-741* '*  MOVR1,R2 *  MOV@ECNT(R1),R0*  JEQ$ ,*  AI R2,ECHAN :=FIRST PROTOCOL,* LAB42 MOV*R2,R11  *  JNELAB43 NOT "NONE" $*  AI R2,8CURRENT = "NONE"$*  DECR0 *  JGTLAB42 &*  JMP$  SHOULD NEVER HAPPEN &(* LAB43 AI R2,-4 ADJUST TO NAME( *  MOV B *R2+,*R4+ *  MOVB *R2+,*R4+ *  MOVB *R2+,*R4+ *  MOVB *R2+,*R4+ * '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>4058+>06B6, 2&V=(>C021,>000A,>1112,>C081,>0222),&&D=(>C081,>C021,>000C,>13FF,>0222),& C=>1171 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>4058+>06C0, 2&V=(>0012,>020B,>40FA,>0200,>0006),&&D=(>0012,>C2D2,>1605,>0222,>0008),& C=>D6EF EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>4058+>06CA, 2&V=(>84BB,>1304,>022B,>0004,>0600),&&D=(>0600,>15FA,>10FF,>0222,>FFFC),& C=>FEDB EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>4058+>06D4, 2&V=(>15FA,>DD3B,>DD3B,>DD3B,>DD3B),&&D=(>DD32,>DD32,>DD32,>DD32,>1000),& C=>1000 EC'* '*  CHANGES TO "LNKSTM"* '$*  THE DEVTAB LIST IN "LNKSTM" M$ UST BE EXTENDED FOR  *  COMA & COMB PROTOCOLS.  * '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0090, 2&V=(>0000,>24DA,>0662,>4B20,>4977),&8D=(>23AA+>0B42,>0676,>5320,>23AA+>0B50,>23AA+>0B4C), 8 C=>7BB6 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>009A, 2 V=(>24D8,>0660,>4C20,>4980), &D=(>0676,>5420,>23AA+>0B58,>0000),& C=>7D54 EC'* '>*  SINCE WE OVERWROTE THE DEVICE LIST, WE HAVE TO PATCH >0*  THE OVERLAY TYPE FOR RTS/POWERFAIL/ADDS0* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0412, 2,V=(>C160,>4876),D=(>0205,>4B20),C=>4925 ,EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>043A, 2,V=(>C160,>487E),D=(>0205,>4C20),C=>4E25 ,EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0478, 2 V=(>C160,>4886),D=(>0205,>4920),C=>4B25 EC'* '<*  REFERENCES TO THE COMM COUNTS NEED TO BE CHANGED TO <$*  REFLECT THEIR NEW PLACEMENT$* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0040, 2(V=>24C8,D=>23AA+>0B10,C=>23AA+>0B10 (EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0048, 2(V=>24D0,D=>23AA+>0B38,C=>23AA+>0B38 (EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0058, 2(V=>24C6,D=>23AA+>0B06,C=>23AA+>0B06 (EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0068, 2(V=>24CA,D=>23AA+>0B1A,C=>23AA+>0B1A (EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0070, 2(V=>24CC,D=>23AA+>0B24,C=>23AA+>0B24 (EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0078, 2(V=>24CE,D=>23AA+>0B2E,C=>23AA+>0B2E (EC'* ',*  THIS PATCHES LINE 393 IN LNKSTM TO BR, ANCH TO THE PATCH @*  AREA IN DXDATA AT LINE 359. THE SOURCE CODE NEEDS TO BE @:*  CHANGED TO ADD A DEVICE TYPE TO DEVTBL IN LNKSTM. :D*  CURRENTLY THE PATCH CHECKS AGAINST THE KNOWN COMM OVERLAYS.D* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>03D4, 22V=(>C166,>0004),D=(>0460,>23AA+>0292),C=>225C 2EC'* '8*  THIS IS THE SOURCE CODE FOR THE FOLLOWING PATCH 8* '* MOV @4(R6),R5(* CB R5,@>47E0+>0044IS IT 'E'?(* JEQ A (* CB R5,@>47E0+>004CIS IT 'F'?(* JEQ A (* CB R5,@>47E0+>005CIS IT 'J'?(* JEQ A (* CB R5,@>47E0+>006CIS IT 'N'?(* JEQ A (* CB R5,@>47E0+>0074IS IT 'O'?(* JEQ A (* CB R5,@>47E0+>007CIS IT 'P'?(* JEQ A * CB R5,@>47E0+>0096IS IT 'S'?* JEQ A (* CB R5,@>47E0+>009EIS IT 'T'?(* JEQ A 0* B  @>47E0+>03D8  NOT A COMM OVERLAY! 0* AMOV @2(R6),@B** BL @PHASE2 WRITE "PHASE 2" LINE ** BDATA 0 ,* MOV @6(R6),@INC DSR LABEL POINTER ,* CLR R5 (* BL @INCLD2 INCLUDE STATEMENT (* DATA DATDSC * DATA SYSGEN * DATA OUTPUT  * INCDATA 0 NAME OF DSR * DATA 0 END LIST$* WRIT @DXIO WRITE THE RECORD $0* B  @>47E0+>03EA  RETURN TO MAIN CODE 0* '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>0292, 2&V=(>A0A0,>01F6,>9822,>0002,>15C6),&&D=(>C166,>0004,>9805,>4824,>1317),& C=>0254 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>029C, 2&V=(>160C,>C022,>000C,>C102,>0224),&00*@&D=(>9805,>482C,>1314,>9805,>483C),& C=>1304 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02A6, 2&V=(>0012,>8814,>15AA,>1307,>0224),&&D=(>1311,>9805,>484C,>130E,>9805),& C=>4853 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02B0, 2&V=(>0008,>0600,>15F9,>C042,>C091),&&D=(>4854,>130B,>9805,>485C,>1308),& C=>980E EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02BA, 2&V=(>10EA,>C0E0,>01EE,>1313,>A0E0),&&D=(>9805,>4874,>1305,>9805,>487C),& C=>130D EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02C4, 2&V=(>01F6,>9823,>0002,>15C4,>1604),&&D=(>1302,>0460,>4BB8,>C826,>0002),& C=>94FE EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02CE, 2&V=(>80A3,>0014,>13F1,>1007,>9823),&&D=(>23AA+>02D4,>06A0,>4E4A,>0000,>C8&26), C=>A6B2 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02D8, 2&V=(>0002,>15BF,>1603,>80A3,>0012),&,D=(>0006,>23AA+>02E8,>04C5,>06A0,>4EAA),, C=>6A5B EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02E2, 2&V=(>13E9,>C0D3,>10EC,>04C3,>C0E2),&&D=(>010C,>00FA,>014C,>0000,>0000),& C=>00BA EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>23AA+>02EC, 2 V=(>0003,>0973,>0623,>0194), D=(>2FE0,>23DE,>0460,>4BCA), C=>4394 EC'* '<*  CHANGE LINES 334-342 IN "LNKSTM" TO INCLUDE COMMCOM <&*  FROM SYSGEN-OUTPUT DIRECTORY &* '(*  MOV@COMCNT,R0COMM DEFINED? (*  JEQLNK63 ,*  BL @INCLD2  YES, INCLUDE COMMCOM, *  DATA DATDSCDATA DISK  *  DATA SYSGEN.S$SYSGEN  *  DATA OUTPUT"SYSTEM" NAME *  DATA N$COMMCOMMCOM *  DATA 0 *  WRIT @DXIO *  JMPLNK65 * '2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0336, 2&V=(>C020,>24D0,>A020,>24C8,>A020),&&D=(>C020,>2EA6,>1309,>06A0,>4EAA),& C=>B585 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0340, 2&V=(>24C6,>A020,>24CA,>A020,>24CC),&&D=(>010C,>00FA,>014C,>4944,>0000),& C=>49FE EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>034A, 2,V=(>A020,>24CE,>1304,>06A0,>4E82,>4944),,,D=(>2FE0,>23DE,>1000,>1000,>1000,>1000),, C=>0C3E EC'*$'N%**************************************************************************N*  INSERT PATCHES HERE. * 'B*  FOLLOW EACH PATCH COMMAND (MPI, MRF) WITH AN EC COMMAND. B* '**L$************************************************************************L* '* '8CM R=ME,M="PGEN990 PATCH STREAM ERROR COUNT = @$E$C"8* ' .ENDIF% ,.SYN PROGA="" ! TARGET PROGRAM FILE ,* 'SDT & EBATCH% C=>B585 EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>0340, 2&V=(>24C6,>A020,>24CA,>A020,>24CC),&&D=(>010C,>00FA,>014C,>4944,>0000),& C=>49FE EC'2MPI  PF=PROGA,MT=OV,MN=>06,ADR=>47E0+>034A, 2,V=(>A020,>24CE,>1304,>06A0,>4E82,>4944),,,D=(>2FE0,>23DE,>1000,>1000,>1000,>1000),, C=>0C3E EC'*$'N%**************************************************************************N*  INSERT PATCHES HERE. * 'B*  FOLLOW EACH PATCH COMMAND (MPI, MRF) WITH AN EC COMMAND. B* '**@@************************************************************ @BATCH LS=YES"@************************************************************ @6* *** PATCH FILE GENPAT  LAST UPDATE 06/15/81 6@************************************************************ @* '* TITLE: GENPAT * '@* ABSTRACT: THIS PATCH FILE PATCHES THE COMMUNICATIONS DSR @<*  CONFIG TASK, USED TO READ THE SYSTEM CONFIGURATION <"*  FILE GENERATED BY GEN990 "@************************************************************ @* '8* *** S Y N O N Y M A S S I G N M E N T S ***8* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 06@.SYN PFIL="@$COBJ.S$COMGEN"  !PROGRAM FILE TO BE PATCHED @$**********************************$ **************************  ***** LINK DEFINED SYNONYMS @************************************************************ @#SYN FIG,CONFIG #SYN CCP,CCPAT1 .SYN FIG="",CCP=""@************************************************************ @@************************************************************ @ *  PATCHES RELEASE 4.0.0 @************************************************************ @@************************************************************ @ *  INSERT NEW PATCHES HERE  6* NEXT AVAILABLE PATCH LOCATION IS CCPAT1+>0002 6@************************************************************ @LS'.SYN CCPAT1="",CONFIG=""* '<CM R=ME,M="@$E$C ERRORS REPORTED IN @$CLST.BL.GENPAT" <* 'EBATCHLS=YES!.STOP CODE=@$E$C **************************  ***** LINK DEFINED SYNONYMS @************************************************************ @#SYN FIG,CONFIG #SYN CCP,CCPAT1 .SYN FIG="",CCP=""@************************************************************ @@************************************************************ @ *  PATCHES RELEASE 4.0.0 @************************************************************ @@************************************************************ @ *  INSERT NEW PATCHES HERE  6* NEXT AVAILABLE PATCH LOCATION IS CCPAT1+>0002 6@************************************************************ @LS'.SYN CCPAT1="",CONFIG=""* '@CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.BL.GENPAT" @* 'EBATCHLS=YES!.STOP CODE=@$E B DCOMM COMMCOM `P DHo$*DSDD `P *l$,HDISK `P *~$.GENINS `P F x$/ PCS `P j}$1@@************************************************************ @* '* TITLE:COMMCOM * '>* ABSTRACT: THIS BATCH STREAM IS EXECUTED TO ASSEMBLE THE >6* DX 3780/2780 DSR CONFIGURATION TABLE (CFDSR), 62* INSTALL THE COMMON DSR MACROS AND LINK THE 24* SOFTWARE SCHEDULER AND CONFIG TABLE PRIOR TO 44* THE SYSTEM LINK (ALGS). THE OUTPUT FROM THIS 42* PARTIAL LINK AND ITS LINKMAP ARE STORED ON 24* THE S$SYSGEN DIRECTORY FOR THE SYSTEM BEING 40* GENERATED. I.E., .S$SYSGEN.0* '0* NOTE: SEE "DX 3780/2780 EMULATOR OBJECT 0D* INSTALLATION" (PART NUMBER 2250918-9701, 25 SEPTEMBER 1981),D:* SECTION 4.3.3 FOR FURTHER INFORMATION ON EXECUTION :*  OF THIS BATCH STREAM. * '4* SYNONYMS: THIS BATCH STREAM USES THE FOLLOWING S4 YNONYMS. 2* ALTERNATE SYNONYM VALUES MAY BE ASSIGNED. 2* ' * SYNONYM DEFAULT  USE * '2* $COBJ  DXCOMOBJ.DXCMO DSR OBJECT INPUT 2$* $CLST  $COBJ LIST OUTPUT$,* $CDAT  DS01  SYSTEM PARTS OUTPUT ,$* $CSNAM NONE SYSTEM NAME $* '@************************************************************ @BATCH LS=YES !@***** SYNONYMS ******************************************* @.SYN $E$C="0" .IF  @$COBJ,EQ,"$COBJ""AS S=$COBJ,V=@DXCOMOBJ.DXCMO" .ENDIF% .IF  @$CLST,EQ,"$CLST"AS S=$CLST,V=@@$COBJ .ENDIF% .IF  @$CDAT,EQ,"$CDAT"AS S=$CDAT,V=@DS01 .ENDIF% Q$SYN % $***** INSTALL COMMON DSR MACROS$.XMA  SA=@$COBJ.DCOMM.C.MACCOMM, OA=DUMY,. LA=@$COBJ.DCOMM.M ACCOMM EC'0***** BUILD DSR CONFIGURATION MODULE CFDSR 0DXMA  SA=@$CDAT.S$SYSGEN.@$CSNAM.CFDSR,OA=@$COBJ.DCOMM.O.CFDSR,D( LA=@$CDAT.S$SYSGEN.@$CSNAM.LSTCFDSR(EC' Q$SYN % ***** COMMCOM PARTIAL LINK  4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.MCOMMCOM, 4 WRITE-DELETE PROTECT?=NO, DELETE PROTECT?=NO * ' AS S=OBJ,V=@@$COBJ.DCOMM.O HXLE  CN=@$COBJ.DCOMM.L.COMMCOM,LO=@$CDAT.S$SYSGEN.@$CSNAM.COMMCOM,H( LA=@$CDAT.S$SYSGEN.@$CSNAM.MCOMMCOM(EC'4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.MCOMMCOM, 4  WRITE-DELETE PROTECT?=YES,   DELETE PROTECT?=YES Q$SYN % @************************************************************ @<CM R=ME,M="@$E$C ERRORS REPORTED IN @$CLST.BL.COMMCOM" <EBATCH LS=YES ! LA=@$COBJ.DCOMM.M@************************************************************ @* '* TITLE:DSDD * '<* ABSTRACT: THIS BATCH STREAM IS USED TO PERFORM THE IDS <2* AND INV NECESSARY TO FORMAT DSDD MEDIA FOR 2$* THE COMMUNICATIONS PACKAGES.$.* DSDD MEDIA IS ALWAYS FORMATTED WITH A .** DEFAULT PHYSICAL RECORD SIZE: 288 ** '*  SYNONYM VALUE USE.*  DSKNM NONE  VOLUME NAME TO ASSIGN ..*  DRIVE NONE  UNIT NAME FOR IDS/INV .2*  MAXENT 30 NUMBER OF VCATALOG ENTRIES 2@************************************************************ @BATCH LS=YES !.SYN $E$C="0" .IF  @DSKNM,EQ,"DSKNM",CMR=ME, M="SYNONYM DSKNM NOT ASSIGNED", EBATCH% .ENDIF%  .IF @DRIVE,EQ,"DRIVE" ,CMR=ME, M="SYNONYM DRIVE NOT ASSIGNED", EBATCH% .ENDIF%  .IF @MAXENT, EQ, "MAXENT" ASS=MAXENT, V=30 .ENDIF%  IDS UNIT NAME="@DRIVE",  INITIALIZE NEW VOLUME=YES,   VOLUME NAME="@DSKNM",* NUMBER OF VCATALOG ENTRIES="@MAXENT",*& DEFAULT PHYSICAL RECORD SIZE=288,& HARDWARE INTERLEAVING=1,  USED AS SYSTEM DISK?=NOEC'F!***************************************************************** F$.SYN DSKNM="",DRIVE="",MAXENT=""$,CM R=ME, M="@DSKNM FORMATTING COMPLETE" ,>CM R=ME, M=" @$E$C ERROR(S) REPORTED IN DSDD BATCH STREAM" >EBATCH LS=YES !******** @BATCH LS=YES !.SYN $E$C="0" .IF  @DSKNM,EQ,"DSKNM",CMR=ME, M="SYNONYM DSKNM NOT ASSIGNED", EBATCH% .ENDIF%  .IF @DRIVE,EQ,"DRIVE" ,CMR=ME, M="SYNONYM DRIVE NOT ASSIGNED",@@************************************************************ @* '* TITLE:HDISK * '<* ABSTRACT: THIS BATCH STREAM IS USED TO PERFORM THE IDS <8* AND INV NECESSARY TO FORMAT HARD DISK MEDIA FOR 8$* THE COMMUNICATIONS PACKAGES.$2* HARD DISK MEDIA IS ALWAYS FORMATTED WITH A 2** DEFAULT PHYSICAL RECORD SIZE: 256 ** '*  SYNONYM VALUE USE.*  DSKNM NONE  VOLUME NAME TO ASSIGN ..*  DRIVE NONE  UNIT NAME FOR IDS/INV .2*  MAXENT 30 NUMBER OF VCATALOG ENTRIES 2@************************************************************ @BATCH LS=YES !.SYN $E$C="0" .IF  @DSKNM,EQ,"DSKNM",CMR=ME, M="SYNONYM DSKNM NOT ASSIGNED", EBATCH% .ENDIF%  .IF @DRIVE,EQ,"DRIVE"  CM R=ME, M="SYNONYM DRIVE NOT  ASSIGNED" EBATCH% .ENDIF%  .IF @MAXENT, EQ, "MAXENT" ASS=MAXENT, V=30 .ENDIF%  IDS UNIT NAME="@DRIVE",  INITIALIZE NEW VOLUME=YES,   VOLUME NAME="@DSKNM",* NUMBER OF VCATALOG ENTRIES="@MAXENT",*& DEFAULT PHYSICAL RECORD SIZE=256,& HADWARE INTERLEAVING=1, USED AS SYSTEM DISK?=NOEC'F!***************************************************************** F$.SYN DSKNM="",DRIVE="",MAXENT=""$,CM R=ME, M="@DSKNM FORMATTING COMPLETE" ,@CM R=ME, M=" @$E$C ERROR(S) REPORTED IN HDISK BATCH STREAM" @EBATCH LS=YES !** @BATCH LS=YES !.SYN $E$C="0" .IF  @DSKNM,EQ,"DSKNM",CMR=ME, M="SYNONYM DSKNM NOT ASSIGNED", EBATCH% .ENDIF%  .IF @DRIVE,EQ,"DRIVE"  CM R=ME, M="SYNONYM DRIVE NOT @************************************************************ @* '* TITLE:GENINS* '<* ABSTRACT: THIS BATCH STREAM PERFORMS ALL FUNCTIONS OF <.* INSTALLING TH DX COMM GENERATION TASK..* USED BY 'BCD' TO GENERATE THE SYNONYMS..* REQUIRED TO BUILD THE DSR LINK CONTROL.(* FILE(S) AND DSR 'CFDSR' MODULE. (6* THE CONFIG TASK READS THE DX SYSTEM GENERATED 6:* CONFIGURATION FILE TO OBTAIN THE COMM DEVICE BASE :8* UNIT NUMBER AND CRU/TILINE ADDRESS, UNIT NUMBER, 8B* PROTOCOL TYPE AND CHANNEL ASSOCIATION, DEVICE BUFFER SIZE,B:* MAXIMUM NUMBER OF CHANNELS DEFINED AND THE DEVICE ::* INTERRUPT. THIS INFORMATION IS PASSED BACK IN THE :* SYNONYMS: 4*  B$UN BASE UNIT NUMBER/DEVICE NAME (CMXX) 4$*  C$RU  COMM DEVICE ADDRESS $@**  C$HCT NUMBER OF CHANNELS DEFINED*6*  P$RTXX PROTOCOL ASSOCIATED WITH CHANNEL XX 62*  D$VCXX DEVICE NAME (CMXX) OF CHANNEL XX 2**  B$FRXX  DEICE BUFFER SIZE (HEX) *&*  I$NTR COMM DEVICE INTERRUPT &,*  R$EC RECORD NUMBER FOR NEXT READ ,* ':* NOTE: THE CONFIG TASK IS INSTALLED ON THE PROGRAM :<* FILE S$COMGEN LOCATED ON THE COMMON PARTS DIRECTORY.<4* THIS TASK IS RELINKED AND REINSTALLED DURING 42* EVERY INITIAL PASS THROUGH 'BCD' TO INSURE 22* LINKAGE WITH THE LATEST DX SCI990-S$OBJECT 2* (S$ ROUTINES).* '* '>* SYNONYMS: THE FOLLOWING SYNONYMS ARE USED IN THIS BATCH >0* STREAM. ALTERNATE SYNONYM VALUES MAY BE0* ASSIGNED. * '&*  SYNONYMDEFAULT VALUE USE &* '* $COBJ NULL DSR PARTS DIRECTORY (* $CDAT DS01 SYSGEN DATA DISK ("* $CLST $COBJ  LISTINGS "@************************************************************ @BATCH LS=YES !.SYN $$BCC="0"!.IF  @$CLST,EQ,"$CLST"AS S=$CLST,V=@@$COBJ .ENDIF% .IF  @$CDAT,EQ,"$CDAT"AS S=$CDAT,V=@DS01 .ENDIF% Q$SYN % @***** CREATE S$COMGEN PROGRAM FILE ************************ @ CFPRO P=@$COBJ.S$COMGEN,  MAX NUMBER OF TASKS=5,   MAX NUMBER OF PROCEDURES=5,  MAX NUMBER OF OVERLAYS=5 @***** INSTALL TASK TO READ CONFIG FILE ******************** @6XLE  C=@$COBJ.DCOMM.L.CONFIG,LO=@$COBJ.S$COMGEN,6 LA=@$COBJ.DCOMM.MCONFIGEC' .EVAL $$BCC="@$$BCC+@$E$C">***** PATCH THE CONFIG TASK *******************************> <XPS  L=@$COBJ.DCOMM.MCONFIG, I=@$COBJ.DCOMM.P.GENPAT, <$ O=@$COBJ.DCOMM.B.GENPAT, E=DUMY$2XB I=@$COBJ.DCOMM.B.GENPAT,L=@$CLST.BL.GENPAT 2 .EVAL $$BCC="@$$BCC+@$$BC":CM R=ME,M="@$$BCC ERRORS REPORTED IN @$CLST.BL.GENINS" :EBATCH LS=YES ! .ENDIF% .IF  @$CDAT,EQ,"$CDAT"AS S=$CDAT,V=@DS01 .ENDIF% Q$SYN % @***** CREATE S$COMGEN PROGRAM FILE ************************ @ CFPRO P=@$COBJ.S$COMGEN,  MAX NUMBER OF TASKS=5,   MAX NUMBER OF PROCEDURES=5,  MAX NUMBER OF OVERLAYS=5 @***** INSTALL TASK TO READ CONFIG FILE ******************** @6XLE  C=@$COBJ.DCOMM.L.CONFIG,LO=@$COBJ.S$COMGEN,6 LA=@$COBJ.DCOMM.MCONFIGEC' .EVAL $$BCC="@$$BCC+@$E$C">***** PATCH THE CONFIG TASK *******************************>@************************* PCS BATCH STREAM **************** @LS'.SYN $E$C=""" .SYN $LDIR=@$CLST  .IF @$DLST,NE,"$DLST" .SYN $CLST=" " .ENDIF% * ' * GET COPY OF DPTCOMM* '$CC IN="@$CVN.DCOMM.P.DPTCOMM",$  OUT="@$CVN.DCOMM.B.B",REP=Y * ' * PROCESS LIST OF PROTOCOLS  * '.SYN $P3780=""! .SYN $R="(@$PROT)" .LOOP % @************************************************* LOOP **** @&.SPLIT LIST="@$R",FIRST=$F,REST=$R&* '6* CHECK FOR "2780". REPLACE WITH "3780" FOR DSR. 6* ' .IF @$F ,EQ, "2780"  .SYN $F="3780"  .ENDIF% * '4* SET $Z TO SKIP, TO AVOID PATCHING 3780 TWICE. 4* '.SYN $Z=""# .IF @$F ,EQ, "3780"  .IF @$P3780 ,EQ, "1" .SYN $Z="1"   .ENDIF ! .ENDIF% .IF @$Z ,NE, "1" @**************************** BEGIN 3780 CONDITIONAL ******* @* '$* TEST IF MAP FOR PROTOCOL EXIST$* '.SYN $$LU="""<ALACCESS="@$$DSCD.S$SYSGEN.@$CSNAM.DMAP@$F",PROGRAM=NO < .IF "@$$CC",GT,00000:CM R=ME,M="@$$DSCD.S$SYSGEN.@$CSNAM.DMAP@$F NOT FOUND" :&CM R=ME,M="COMM PATCHING ABORTED" & .STOP % .ENDIF% RL LUNO="@$$LU" * '0* XPS PROTOCOL'S PATCH FILE AGAINST LINKMAP 0,* WITH PROTOCOL PATCHES & ISR PATCHES ,* '2XPS LINK="@$$DSCD.S$SYSGEN.@$CSNAM.LINKMAP",2"INPUT ="@$CVN.D@$F.P.DPT@$F", "&OUTPUT="@$CVN.D@$F.B.A",ERROR=DUMY&* '2XPS LINK="@$$DSCD.S$SYSGEN.@$CSNAM.DMAP@$F",2 INPUT ="@$CVN.D@$F.B.A",,OUTPUT="@$CVN.D@$F.B.DPT@$F",ERROR=DUMY ,* ' @DF P="@$CVN.D@$F.B.A"* '2XPS LINK="@$$DSCD.S$SYSGEN.@$CSNAM.DMAP@$F",2$INPUT ="@$CVN.DCOMM.P.DPTCMON", $.OUTPUT="@$CVN.D@$F.B.DPTCMON", ERROR=DUMY .* '@* IF LISTING DEVICE IS PRESENT SEND ALL PATCH LISTINGS TO IT @* ' .IF @$DLST,NE,"$DLST" 8.DATA @$CVN.DCOMM.B.B,EXTEND=YES,REPLACE=YES,SUB=YES8,XB IN="@$CVN.D@$F.B.DPT@$F",LIST=@$DLST ,EC',XB IN="@$CVN.D@$F.B.DPTCMON",LIST=@$DLST,EC'".SYN D@$F="""""",DSR@$F="""""""$.SYN DCMON="""""",DSRCMON=""""""$.EOD& .ELSE % 4*  SEND EACH FILE TO UNIQUE ENTRY UNDER $CLST 4* '8.DATA @$CVN.DCOMM.B.B,EXTEND=YES,REPLACE=YES,SUB=YES84XB IN="@$CVN.D@$F.B.DPT@$F",LIST="@$CLST.DPT@$F"4EC'6XB IN="@$CVN.D@$F.B.DPTCMON",LIST="@$CLST.CMN@$F" 6EC'.SYN D@$F="""""",DSR@$F=""""""$.SYN DCMON="""""",DSRCMON=""""""$.EOD& .ENDIF% @****************************** END 3780 CONDITIONAL ******* @ .ENDIF%  .IF @$F ,EQ, "3780"  .SYN $P3780="1" .ENDIF%  .UNTIL "@$R",EQ,"$R" .REPEAT $ @************************************************ END LOOP * @8.DATA @$CVN.DCOMM.B.B,EXTEND=YES,REPLACE=YES,SUB=NO 8* '8CM R=ME,M="NUMBER OF BATCHES WITH ERRORS = @$E$PCS" 8LS' .STOP % .EOD&* '*  CLEAN UP * '.SYN $F="",$R=""  .SYN $P3780="",$Z=""* '* '* '(* EACH BATCH PROVIDES ITS OWN ERROR(0* NOTIFICATION VIA "CM" & INCREMENTS $E$PCS0(* TO COUNT A BATCH HAVING AN ERROR.(* '2XPS LINK="@$$DSCD.S$SYSGEN.@$CSNAM.LINKMAP", 2 INPUT="@$CVN.DCOMM.B.B", . OUTPUT="@$CVN.DCOMM.B.DPTCOMM",ERROR=DUMY.* 'DF P =@$CVN.DCOMM.B.B * '4XB I="@$CVN.DCOMM.B.DPTCOMM",L="@$LDIR.DPTCOMM" 4* ' .IF @$DLST,NE,"$DLST" *CC IN="@$LDIR.DPTCOMM",OUT=@$DLST,R=Y * DF PATH="@$LDIR.DPTCOMM" .ENDIF% * ' .IF @$E$PCS,NE,"0"2CM R=ME,M="ERROR OCCURED DURING COMM PATCHING"2 .ELSE % &CM R=ME,M="COMM PATCHING COMPLETE"& .SYN $CVN="",$PROT=""  .ENDIF% * ' *  PROCESS MEMRES PATCHES  * ' .IF @$INS ,GE, "Y" .SYN $INS="" & CM R=ME,M="BEGIN MEMRES PATCHING"& .IF @$DLST,NE,"$DLST" 6XB I="@$$DSCD.S$SYSGEN.@$CSNAM.PATCHFIL",L=@$DLST 6 .ELSE $ >XB I="@$$DSCD.S$SYSGEN.@$CSNAM.PATCHFIL",L="@$LDIR.MEMRES" > .ENDIF$ .ENDIF% LS'.S"YN $E$C="",$E$PCS="",$LDIR="" ",.SYN IMAGE="",$INS="",$DLST="",$CLST="" , .STOP % M.B.B * '4XB I="@$CVN.DCOMM.B.DPTCOMM",L="@$LDIR.DPTCOMM" 4* ' .IF @$DLST,NE,"$DLST" *CC IN="@$LDIR.DPTCOMM",OUT=@$DLST,R=Y * DF PATH="@$LDIR.DPTCOMM" .ENDIF% * ' .IF @$E$PCS,NE,"0"2CM R=ME,M="ERROR OCCURED DURING COMM PATCHING"2 .ELSE % &CM R=ME,M="COMM PATCHING COMPLETE"& .SYN $CVN="",$PROT=""  .ENDIF% * ' *  PROCESS MEMRES PATCHES  * ' .IF @$INS ,GE, "Y" .SYN $INS="" & CM R=ME,M="BEGIN MEMRES PATCHING"& .IF @$DLST,NE,"$DLST" 6XB I="@$$DSCD.S$SYSGEN.@$CSNAM.PATCHFIL",L=@$DLST 6 .ELSE $ >XB I="@$$DSCD.S$SYSGEN.@$CSNAM.PATCHFIL",L="@$LDIR.MEMRES" > .ENDIF$ .ENDIF% LS'.S C DCOMM  BCMIST `P D4$KDEAD `P  (G$;FC3IST `P R$=COMIST `P 9$?COMTBL  P )>$AMACCOMM `P "\$C CHPARM `P "rC$E DXCRB  P 4W L$G STSBUF `P >`$9 ISRXCB `P AJW$I* '0* READ STATUS COMMAND DATA BUFFER DEFINITION0  DORG 0 ! 8SBBLRL DATA 0  CSUP BLOCK/RECORD LENGTH (FROM PDT) 84SBKSBA DATA 0  CSUP KSB ADDRESS (0 IF ABSENT) 4"SBDSRT BYTE 7  CSUP DSR TYPE"** 07 STANDARD COMMUNICATIONS DEVICE *0SBCHNO BYTE 0  ISR DEVICE CHANNEL NUMBER 0,SBCRUA DATA 0  ISR CRU/TILINE ADDRESS,8SBACUA DATA 0  ISRACU CRU ADDRESS (-1 IF ABSENT) 8"SBISRT BYTE 0  ISRISR TYPE"* 00 NONE PRESENT * 01 COMMIF * 02 FCCC * 03 BCAIM* 04 HSCC "SBLCDT BYTE 0  LCDLCD TYPE"* 00 NONE PRESENT * 01 3780/2780 BSC* 02 3270 BSC * 03 3270 SDLC* 04 LAP HDLC 6* OTHER INFORMATION IS A FUNCTION OF LINE CONTROL 6  RORG " /' `h *SPACE RESERVATION MACRO6*SZ = SIZE OF SPACE TO RESERVE AND FILL WITH >DEAD6DEAD $MACRO SZ  DATA  :SZ:+2 Z  $NAME" $IF SZ.V#=0 DATA  >DEAD $ASG  SZ.V-2 TO SZ.V  $GOTO Z   $ENDIF !  $END  DEAD . T  6 ݂݂ `  E`šݴ &`ݠݠݱ `!     2 ݲݲݲՒ`΋ê'  (Dg D*'g DD gg DDD  'g DD g' hgE   `h`΋ ///'  `h( . H`h `   "``Ƌ  >>      2   2 Vy/' `h* '$* CHANNEL TABLE MACRO DEFINITION$$*FC3CHN $MACRO BU,UN,CH,HL,PR,AC$$*BU= BASE UNIT NUMBER OF BOARD$*UN= UNIT NUMBER*CH= CHANNEL NUMBER &*NH= HIGHER LEVEL TABLE ADDRESS &*PR= PROTOCOL SELECTION .*AC= ACU CRU ADDRESS(DECIMAL EQUIVALENT). UNL#$FC3CHN $MACRO BU,UN,CH,NH,PR,AC $  $VAR XX!  $ASG 'LT' TO XX.S4 $ASG UN.V TO NH.SV  ELIMINATE UNDEFINED LABEL 4 $IF NH.S#=XX.S  REF:NH:CM:UN:& DEFLTCM:UN: LINE TABLE ADDRESS& LTCM:UN: EQU CIST:BU:   $ENDIF !  $IF UN.V#=BU.V  DEFCIST:UN:. CIST:UN: EQU CIST:BU:  IST TABLE ADDRESS .  $ENDIF ! *FC3C:UN: EQU $ CHANNEL TABLE ADDRESS *4 RORG 2*:CH.V:+FCCT:BU: RESET TO TABLE INSERTION 4. DATA FC3C:UN: CHANNEL :UN: TABLE ADDRESS .@2 RORG FC3C:UN:RESET TO CHANNEL TABLE ADDRESS 2  DATA >FFFF CHANNEL STATUS " DATA 0,0,0,0 SAVED ROSW0-3 "  DATA 0,0,0 SAVED WOSW0-3  * BYTE :UN:,:CH:  UNIT, CHANNEL NUMBER*0 DATA :NH:CM:UN: HIGHER LEVEL TABLE ADDRESS 00 DATA 0,0 NUMBER OF OUTSTANDING/TOTAL REQS 0* DATA 0,0  QUEUE OF OUTSTANDING CRBS *" DATA :PR: PROTOCOL SELECTION" DATA 0 LOST CRB COUNT  DATA 0  DSR MAP FILE ADDR   DATA :AC:ACU CRU ADDRESS   $END FC3CHN  LIST "  ASMIF DEFINE#=0* '&* CHANNEL TABLE OFFSET DEFINITIONS&  DORG 0 ! & STATE DATA >FFFF CHANNEL STATUS&( SVROSW DATA 0,0,0,0 SAVED ROSW0-3 (& SVWOSW DATA 0,0,0 SAVED WOSW1-3 &&UNITNO BYTE 0  GENUNIT NUMBER &(CHANNO BYTE 0  GENCHANNEL NUMBER(NHLTPT DATA 0 * GENNEXT HIGHER LEVEL TABLE ADDRESS *2REQCNT DATA 0 NUMBER OF OUTSTANDING REQUESTS 2,OUTREQ DATA 0  NUMBER OF TOTAL REQUESTS ,0REQQUE DATA 0,0  OUTSTANDING REQUEST QUEUE 0&PROSEL DATA 0  PROTOCOL SELECTION&$LCRBCT DATA 0 LOST CRB COUNTER$(DSRMAP DATA 0  DSR MAP FILE ADDRESS($ACUCRU DATA 0 ACU CRU ADDRESS $2CHTLEN EQU$ LENGTH OF TABLE, NOT AN ENTRY 2  RORG "  ASMEND ! * ' * IST MACRO DEFINITION *FC3IST $MACRO UN,TI,NC *UN= BASE UNIT NUMBER *TI= TILINE ADDRESS (*NC= NUMBER OF CHANNELS AVAILABLE ( UNL# FC3IST $MACRO UN,TI,NC4 $ASG UN.V TO TI.SV  ELIMINATE UNDEFINED LABEL 4( $VAR XX VARIABLE FOR INTERNAL USE ( $ASG 0 TO XX.V  DEFCIST:UN:* CIST:UN: DATA >FFFF  NON INTERRUPT BUSY*  FLAG * DATA 0,0  NON INTERRUPT ENTRY QUEUE *. DATA CN:UN:,0 NON INTERRUPT ENTRY VECTOR .  BYTE :UN:,0BASE UNIT TYPE , BYTE 2,>83  TABLE TYPE, FCNS SUPPORTED , DEFIT:TI:0 IT:TI: DATA CI:UN:,0 INTERRUPT ENTRY VECTOR0. DATA 0 NEXT HIGHER LEVEL TABLE ADDRESS ., DATA 0 NEXT LOWER LEVEL TABLE ADDRESS ,4CN:UN: DATA 0,0,0,0,CIST:UN:,0,0,0NI WORKSPACE4 DATA 0,0,0,0,>:TI:,0,0,0 . DEFWPCM:UN: DEF FOR INTERRUPT DECODER .WPCM:UN: EQU$ 4CI:UN: DATA 0,0,0,0,CIST:UN:,0,0,0I WORKSPACE 4 DATA 0,0,0,0,>:TI:,0,0,0 * DATA >FFFF  BOARD FAILURE INDICATOR* DATA 0,0  PENDING QUEUE" DATA 0  DEVICE ERROR COUNT ". DATA :NC: NUMBER OF SUPPORTED CHANNELS ..FCCT:UN: EQU$  START OF CHANNEL TABLE .LP $NAME" $IF XX.V#=NC.V " DATA 0  CHANNEL :XX.V: TABLE" $ASG XX.V+1 TO XX.V $GOTO LP   $ENDIF !  $END FC3IST  LIST "  ASMIF DEFINE#=0* ' * ISR TABLE DEFINITION* COMMON PREFIX * DORG 0 IST BEGINNING,BASE ADDRESS=0 *,IST  EQU$  START OF IST (ISR TABLE) ,0 NIBUSY DATA >FFFF  NON INTERRUPT BUSY FLAG 00NIQUE DATA 0,0  NON INTERRUPT ENTRY QUEUE 0$* NEWEST/OLDEST ENTRY POINTERS $6NIWSP DATA NIR0 GEN NON INTERRUPT ENTRY POINT 6&NIADD DATA 0  GENNI CODE BASE&,BASUNT BYTE 0,0  GENBASE UNIT NUMBER,2TBLTYP BYTE 2  GEN DEVICE (IST) TABLE TYPE 2:DEVFCN BYTE >B0  GENDATA BUFFERING, FILE ORIENTED :8IWSP DATA IR0  GENINTERRUPT WORKSPACE ADDRESS 8&IADD DATA 0  GENINTERRUPT PC& NHLTAD D 2ATA 0  GEN11NEXT HIGHER LEVEL TABLE ADDRESS 28NLLTAD DATA 0  GEN11NEXT LOWER LEVEL TABLE ADDRESS 8 * ISR TABLE DEFINITION * NON-INTERRUPT WORKSPACE 6NIR0 EQU$  R0 START OF NON-INT WORKSPACE 6 DATA 0  R0 TEMP DATA 0  R1 TEMP DATA 0  R2 TEMP DATA 0  R3 TEMP4NITAB DATA IST  R4GENPOINTER TO IST BEGINNING 40 DATA 0  R5 CONTROL BLOCK ADDRESS (TEMP) 0 DATA 0  R6 TEMPORARY  DATA 0  R7 TEMP& DATA 0  R8  ENTRY CRB ADDRESS &" DATA 0,0,0 REGISTERS R9-R11"" DATA 0  R12GNTILINE ADDRESS" DATA 0  R13CALLING WP DATA 0  R14CALLING PC$NIST DATA 0  R15CALLING ST$ * END OF NI WORKSPACE * ' * ISR TABLE DEFINITION * INTERRUPT WORKSPACE IR0  EQU$ ! DATA 0  R0 TEMP DATA 0  R1 TEMP DATA 0  R2 TEMP DATA 0  R3 TEMP2ITAB DATA IST  R4  POINT TO START OF IST 2 DATA 0  R5 TEMP DATA 0  R6 TEMP DATA 0  R7 TEMP. DATA 0  R8  TEMP REGISTER I WORKSPCAE .*ERRREG DATA 0  R9 ERROR INDICATOR *( DATA 0  R10 TEMP REGISTER I WSP (" DATA 0  R11TEMP REGISTER "(REG12 DATA 0  R12GNTILINE ADDRESS(" DATA 0  R13INTERRUPTED WP"" DATA 0  R14INTERRUPTED PC"" DATA 0  R15INTERRUPTED ST"* '$* IST EXTENSION FOR BOARD USAGE $0 STATEC DATA >FFFF  BOARD FAILURE INDICATION 0,PENDQ DATA 0,0  PENDING REQUEST QUEUE ,(DERRCT DATA 0  ERROR REQUEST COUNT (6NUMCHN DATA 4  GENNUMBER OF SUPPORTED CHANNELS 6 CHTADD D BATA 0,0,0,0  GENCHANNEL TABLE ADDRESSES FOR USED CHANNELS B* '@* CHANNEL INFORMATION FOLLOWS AND IS NOT PART OF THIS TABLE @  EVEN " (ISTLEN EQU$  LENGTH OF ISR TABLE ( * END OF IST DEFINITION   RORG "  ASMEND !  R8  TEMP REGISTER I WORKSPCAE .*ERRREG DATA 0  R9 ERROR INDICATOR *( DATA 0  R10 TEMP REGISTER I WSP (" DATA 0  R11TEMP REGISTER "(REG12 DATA 0  R12GNTILINE ADDRESS(" DATA 0  R13INTERRUPTED WP"" DATA 0  R14INTERRUPTED PC"" DATA 0  R15INTERRUPTED ST"* '$* IST EXTENSION FOR BOARD USAGE $0 STATEC DATA >FFFF  BOARD FAILURE INDICATION 0,PENDQ DATA 0,0  PENDING REQUEST QUEUE ,(DERRCT DATA 0  ERROR REQUEST COUNT (6NUMCHN DATA 4  GENNUMBER OF SUPPORTED CHANNELS 6 CHTADD D @* '"* COMM IF IST MACRO DEFINITION""*COMIST $MACRO UN,CR,NH,PR,AC " *UN = UNIT NUMBER  *CR = CRU BASE ADDRESS**NH = NEXT HIGHER LEVEL TABLE ADDRESS * *PR = PROTOCOL NUMBER .*AC = ACU CRU ADDRESS(DECIMAL EQUIVALENT) . UNL#"COMIST $MACRO UN,CR,NH,PR,AC "* $VAR XX VARIABLES FOR INTERNAL USE * $ASG 'LT' TO XX.S4 $ASG UN.V TO NH.SV  ELIMINATE UNDEFINED LABEL 4 $IF XX.S#=NH.S  REF:NH:CM:UN:. DEFLTCM:UN: LINE TABLE ADDRESS IF NONE .LTCM:UN: EQU $!  $ENDIF ! ( CIST:UN: DATA >FFFF  NI BUSY FLAG (  DATA 0,0  NI ENTRY QUEUE  $ DATA CN:UN:,0NI ENTRY VECTOR $& DATA 0  CURRENT CONNECTED STATE &, BYTE 1,>B0  TABLE TYPE, FCNS SUPPORTED , DEFIT:CR:. IT:CR: DATA CI:UN:,0 31 INTERRUPT WORKSPACE., PC 6 DATA :NH:CM:UN:,0NEXT HIGHER,LOWER TABLE ADDRES68CN:UN: DATA 0,0,0,0,CIST:UN:,0,0,0 NI WORKSPACE 8 DATA 0,0,0,0,>:CR:,0,0,0 . DEFWPCM:UN: DEF FOR INTERRUPT DECODER.WPCM:UN:EQU $ >CI:UN: DATA -1,CIRB:UN:,0,CITB:UN:,CIST:UN:,0,0,0 I WS > DATA 0,0,0,0,>:CR:,0,0,0 * CPTISR  ISR CHANNEL PARAMETER TABLE*$ DATA 0,0  MODEM SERVICE WORDS $$ DATA 0,0  TIMEOUT QUEUE WORDS $& DATA 0,0,0,0,0,0 ERROR COUNTERS&  DATA :AC: ACU CRU ADDRESS H"CITB:UN: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 XMIT XFER CONTROL BLOCKHH"CIRB:UN: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 RCV XFER CONTROL BLOCK H $END COMIST   LIST "  ASMIF DEFINE#=0* COMMON PREFIX * DORG 0 IST BEGINNING,BASE ADDRESS=0 *"IST  EQU$ START OF IST (IS" R TABLE) 0 NIBUSY DATA >FFFF  NON INTERRUPT BUSY FLAG 00NIQUE DATA 0,0  NON INTERRUPT ENTRY QUEUE 0$* NEWEST/OLDEST ENTRY POINTERS $6NIWSP DATA NIR0 GEN NON INTERRUPT ENTRY POINT 6* NIADD DATA COMEXT GENNI CODE BASE*6 STATE DATA >FFFF CURRENT LINE STATE 0=CONNECTED 62TBLTYP BYTE 2  GEN DEVICE (IST) TABLE TYPE 26DEVFCN BYTE >B0  GEN FILE OPIENTED, BUFFER DATA 6<IWSP DATA IR0,COMINT GENNI INTERRUPT ENTRY POINT <:NHLTAD DATA 0  GEN11NEXT HIGHER LEVEL TABLE ADDRESS :8NLLTAD DATA 0  GEN11NEXT LOWER LEVEL TABLE ADDRESS 8* ' * NON-INTERRUPT WORKSPACE 6NIR0 EQU$  R0 START OF NON-INT WORKSPACE 66MQUEUE DATA 0  R0 MISCELLANEOUS QUEUE OLDEST) 6 DATA 0  R1 TEMP DATA 0  R2 TEMP DATA 0  R3 TEMP4NITAB DATA IST  R4GENPOINTER TO IST BEGINNING 40 DATA 0  R5 CONTROL BLOCK ADDRESS (TEMP) 0 DATA 0  R6 TEMPORARY  DATA 0  R7 TEMP& DATA 0  R8  ENTRY CRB ADDRESS &" DATA 0,0,0 REGISTERS R9-R11"*CRUADD DATA 0  R12GNCRU BASE ADDRESS* DATA 0  R13CALLING WP DATA 0  R14CALLING PC$NIST DATA 0  R15CALLING ST$ * END OF NI WORKSPACE * ' * INTERRUPT WORKSPACE IR0  EQU$ !B RFLAG DATA >FFFF  R0GENCURRENT RECEIVE STATE 0=CLR STR SYN B< RCBLKA DATA RRTNAD R1GENRECEIVE CONTROL BLOCK ADDRESS <:TFLAG DATA 0  R2 NUMBER OF SYNCS TO SEND, IF ANY :< TCBLKA DATA TRTNAD R3GENTRANSMIT CONTROL BLOCK ADDRESS <2ITAB DATA IST  R4GENPOINT TO START OF IST 2* DATA 0  R5  CURRENT CNTRL BLOCK ADDR*ESS  DATA 0  R6 TEMP DATA 0  R7 TEMP. DATA 0  R8  TEMP REGISTER I WORKSPCAE .*ERRREG DATA 0  R9 ERROR INDICATOR *( DATA 0  R10 TEMP REGISTER I WSP (" DATA 0  R11TEMP REGISTER "$ DATA 0  R12GNCRU BASE ADDRESS$" DATA 0  R13INTERRUPTED WP"" DATA 0  R14INTERRUPTED PC"" DATA 0  R15INTERRUPTED ST"* ' * CHANNEL PARAMETER TABLE ,ISRPRM CPTISR  CHANNEL PARAMETER TABLE ,* ' * TIMER INFORMATION *MDMADD DATA 0  MODEM SVC RTN ADDRESS *(MDMTIM DATA 0  MODEM TIMEOUT VALUE ( TIMEOQ DATA 0 TIMER QUEUE  TIMEOV DATA 0 TIMER VALUE  * ' * ERROR INFORMATION &DERRCT DATA 0  DEVICE ERROR COUNT&*XMTERR DATA 0  TRANSMIT ERROR COUNTER*(ROVRCT DATA 0  NUMBER OF RECEIVE OVER(RUN ERRORS 4RFERCT DATA 0 NUMBER OF RECEIVE FRAMING ERRORS 44RPERCT DATA 0 NUMBERO OF RECEIVE PARITY ERRORS 48RUERCT DATA 0 NUMBER OF UNEXPLAINED RECEIVE ERRORS8* ' * GEN INFORMATION *ACUCRU DATA 0  GENR4ACU CRU ADDRESS ** '&* TRANSMIT TRANSFER CONTROL BLOCK &0TRTNAD DATA 0 TRANSMIT CHARACTER SVC ADDR 04CTBA DATA 0 CURRENT TRANSMIT BUFFER ADDRESS 4(CTMAP DATA 0  CURRENT TRANSMIT MAP(0TTIMER DATA 0 INTER CHAR XMIT TIMER VALUE 0*TTIMEO DATA 0  TRANSMIT TIMEOUT VALUE*0CTBC DATA 0 CURRENT TRANSMIT BYTE COUNT 00CTTCB DATA 0 CURRENT TRANSMIT TCB ADDRESS 0.CRFLAG DATA 0  CURRENT RECEIVE FLAG WORD ..TQOLD DATA 0  OLDEST ENTRY IN XMIT QUEUE ..TQUEUE DATA 0  NEWEST ENTRY IN XMIT QUEUE .TRSTTM DATA 0 RESTART TIMER (TTEMP1 DATA 0  TRANSMIT TEMPORARY 1((TTEMP2 DATA 0  TRANSMIT TEMPORARY 2($TCBOP DATA 0 OP CODE FROM CRB$8TTICKC DATA 0 D1TRANSMIT TICK COUNTER FOR CHAR DET8* '$* RECEIVE TRANSFER CONTROL BLOCK$6RRTNAD DATA 0 RECEIVE CHARACTER ROUTINE ADDRESS 62CRBA DATA 0 CURRENT RECEIVE BUFFER ADDRESS 2(CRMAP DATA 0  CURRENT RECEIVE MAP (4RTIMER DATA 0 CURRENT RECEIVE TIMER (TEMP REG) 4*RTIMEO DATA 0  RECEIVE TIMEOUT VALUE *.CRBC DATA 0  CURRENT RECEIVE BYTE COUNT .0CRTCB DATA 0 CURRENT RECEIVE TCB ADDRESS 0.CTFLAG DATA 0  CURRENT TRANSMIT FLAG WORD ..RQOLD DATA 0  OLDEST ENTRY IN RCV QUEUE ..RQUEUE DATA 0  NEWEST ENTRY IN RCV QUEUE ."RRSTTM DATA 0 RESTART TIMER "(RTEMP1 DATA 0  RECEIVE TEMPORARY 1 (RTEMP2 DATA 0  RECEIVE TEMPORARY 2 $RCBOP DATA 0 OP CODE FROM CRB$8RTICKC DATA 0 D1RECEIVE TICK COUNTER FOR CHAR DET 8  EVEN " (ISTLEN EQU$  LENGTH OF ISR TABLE ( * END OF IST DEFINITION   RORG "  ASMEND ! RRTNAD DATA 0 RECEIVE CHARACTER ROUTINE ADDRESS 62CRBA DATA 0 CURRENT RECEIVE BUFFER ADDRESS 2(CRMAP DATA 0  CURRENT RECEIVE MAP (4RTIMER DATA 0 CURRENT RECEIVE TIMER (TEMP REG) 4*RTIMEO DATA 0  RECEIVE TIMEOUT VALUE *.CRBC DATA 0  CURRENT RECEIVE BYTE COUNT .0CRTCB DATA 0 CURRENT RECEIVE TCB ADDRESS 0.CTFLAG DATA 0  CURRENT TRANSMIT FLAG WORD ..RQOLD DATA 0  OLDEST ENTRY IN RCV QUEUE ..RQUEUE DATA 0  NEWEST ENTRY IN RCV QUEUE ."RRSTTM DATA 0 RESTART TIMER "(RTEMP1 DATA 0  RECEIVE TEMPORARY 1 (RTEMP2 DATA 0 @D ****************************************************************D.* COMMON IST,LCT,PST DEFINITIONS(COMTBL).D ****************************************************************D  DORG 0 ! 4COMTBL EQU$ FIRST WORD OF COMMON TABLE DEFS 4NIBUSY DATA >F"FFF  NON INTERRUPT BUSY FLAG "0NIQUE DATA 0,0  NON INTERRUPT ENTRY QUEUE 0$* NEWEST/OLDEST ENTRY POINTERS $* ':NIWSP DATA NIR0 GENNON INTERRUPT ENTRY WORKSPACE :>NIOWSP EQUNIQUE+2-NIWSP OFFSET FROM NIWSP TO OLDEST Q >NINWSP EQU0NIQUE-NIWSP OFFSET FROM NIWSP TO NEWEST Q 0DNIADD DATA 0  GENNI CODE BASE ADDRESSS OF INTERRUPT SERVICED2SOFTLV DATA 0 SOFTWARE LEVEL ADDRESS FOR I C 2,TBLTYP BYTE 0  IDENTIFIES TYPE OF TABLE ,2SUPFCN BYTE 0 IDENTIFIES FUNCTIONS SUPPORTED 24IWSP DATA IR0  GEN INTERRUPT/COMPLETION WSP 42IADD DATA 0 INTERRUPT/COMPLETION ENTRY PC 26NHLTAD DATA 0  GENNEXT HIGHER LEVEL TABLE ADDR 66NLLTAD DATA 0  GENNEXT LOWER LEVEL TABLE ADDR 6 * NON-INTERRUPT WORKSPACE NIR0 DATA 0,0,0,0 & R0 START OF NON-INT WORKSPACE &6 NITAB DATA COMTBL GENR4POINTER TO TBL BEGINNING 6. DATA 0,0,0  REGISTERS 5-7 NI WORKSPACE .&NIR8 DATA 0  ENTRY CRB ADDRESS &4NIR9 DATA 0,0,0  REGISTERS 9-11 NI WORKSPACE 4" NIR12 DATA 0,0,0,0 REGISTERS " 12-15 NI WORKSPACE  * END OF NI WORKSPACE * ' *INTERRUPT WORKSPACE.IR0  DATA 0,0,0,0  REGS 0-3 I WORKSPACE.6ITAB DATA COMTBL GENR4POINT TO START OF TABLE 6,IR5  DATA 0,0,0  REGS 5-7 I WORKSPACE, IR8  DATA 0 ENTRY CRB FOR I ENRTY  .IR9  DATA 0,0,0  REGS 9-11 I WORKSPACE .0IR12 DATA 0,0,0,0  REGS 12-15 I WORKSPACE0* '4ISRPRM EQU$ ISR PARAMETERS TABLE MUST FOLLOW 4  PAGE "  RORG " A 0,0,0  REGS 5-7 I WORKSPACE, IR8  DATA 0 ENTRY CRB FOR D ****************************************************************D>* THIS MODULE PLACES ALL COMMON COMM MACROS NEEDED TO *><* GENERATE A DX COMMUNICATIONS SYSTEM ON TO THE DX  *< * SYSGEN DATA DISK. *,* THESE MACROS ARE CALLED BY CFDSR.  *, *  * @* THE FOLLOWING SYNONYMS MUST BE ASSIGNED ACCORDINGLY:  *@&*  $CDAT - SYSGEN DATA DISK  *&(*  $COBJ - COMMON DX DSR PARTS *(D ****************************************************************D& LIBOUT $CDAT.S$SYSGEN.MACROS.COMM&.DEFINE EQU0  INDICATE NO DORG ASSEMBLY . COPY $COBJ.DCOMM.C.COMIST COPY $COBJ.DCOMM.C.CHPARM COPY $COBJ.DCOMM.C.DXCRB  COPY $COBJ.DCOMM.C.FC3IST COPY $COBJ.DCOMM.C.BCMIST END# Vy/' `hD ****************************************************************D**  COMUNICATIONS REQUEST BLOCK (CRB)*D ****************************************************************D*CPTISR $MACRO!CPTISR $MACRO !& DATA 0  PROTOCOL SELECTION WORD &0 DATA 0 TRANSMIT/RECEIVE INTERCHARACTER TO0" DATA 0  XMIT CRU INSTRUCTION"  DATA 0  9903 CONTROL WORD  & DATA 0  SYNC1, SYNC2 CHARACTERS &" DATA 0  MODIFIERS, NO SYNCS " DATA 0 RECORD LENGTH   DATA 0  ISR PARAMETER FLAG $ DATA 0  CON RTS IDLE, RESERVED$" DATA 0  XMIT DATA THRESHOLD "& DATA 0  TRAILING PAD VALUE,COUNT &2 DATA 0 OPEN COMPLETION, DISCONNECT TIMEOUT 2" DATA 0  IDLE TIMER, RESERVED" DATA 0 COMMIF OW2,OW3" DATA 0  COMMIF OW4, RESERVED" DATA 0 RESERVED`@$ DATA 0  CHAR MODE INSTRUCTION $$ DATA 0  CHARACTER DETECT FLAG $ DATA 0 CD RTN ADDRESSES" DATA 0,0,0,0 POLL ADDRESSES"" DATA 0  SYNC INSERTION TIMER" DATA 0 GLOBAL FLAGS $END CPTISR* '4*  DEFINITION OF CHANNEL PARAMETER TABLE (CPT)4"*  ISR - RELATED PARAMETERS "  DORG 0 ! ,CPPROS DATA 0  PROTOCOL SELECTION WORD,*  BIT0  RESERVED *  BIT1  RESERVED (*  BIT2  INTERNAL CLOCK SELECT(6*  BIT3  INTERNAL CLOCK SELECTION FOR PIN 24 6.*  BITS 4-7  TRANSMIT SPEED SELECTION .* 0= 50 BPS * 1= 75 BPS * 2= 110 BPS* 3= 134.5 BPS* 4= 150 BPS* 5= 200 BPS* 6= 300 BPS* 7= 600 BPS* 8= 1200 BPS * 9= 180 0 BPS  * A= 2400 BPS * B= 3600 BPS * C= 4800 BPS * D= 7200 BPS * E= 9600 BPS * F= RESERVED  *  BIT8  DISABLE ECHO  "*  BIT9  CONTINUOUS RTS "*  BIT10 FULL DUPLEX*  BIT11 RESERVED <*  BITS 12-15  RECEIVE SPEED SELECTION (SAME AS 4-7) <0CPXTOC BYTE 0  XMIT TIMEOUT INTERCHARACTER02CPRTOC BYTE 0  RECV TIMEOUT INTER CHARACTER 2*CPCRUI DATA 0  XMIT CRU INSTRUCTION *&CPCNTL DATA 0  9903 CONTROL WORD&&CPSYN1 BYTE 0  SYNC 1 CHARACTER &&CPSYN2 BYTE 0  SYNC 2 CHARACTER &&CPSPCL BYTE 0  SPECIAL MODIFIERS&**  BIT0  TRANSPARENCY SELECTION **  BITS 1-7  RESERVED 0CPSCNT BYTE 0  # OF INITIAL SYNCS TO SEND 0 CPRECL DATA 0  RECORD LENGTH (CPISRF DATA 0  ISR PARAMETER FLAG (8*  BIT0  TRANSMIT TIMEOUT SELECTION - MINUTES 86*  BIT1  RECEIVE TIMEOUT SELECTION - MINUTES 64*  BIT2  OPEN TIMEOUT SELECTION - MINUTES 42*  BIT3  NOP TIMEOUT SELECTION - MINUTES 26*  BIT4  CLEAR RECEIVER AFTER FRAME COMPLETE 68*  BIT5  SEPARATE TRANSMIT AND RECEIVE QUEUES 8&*  BIT6  ASSERT RTS ON OPENS&<*  BIT7  REQIRE DCD AS WELL AS DSR FOR CONNECTIONS<6*  BIT8  DEASSERT RTS AFTER OPEN COMPLETION 68*  BIT9  REPORT DEVICE REPORTED ERRORS ON RCV 8 *  BITS 10-12  RESERVED  (*  BITS 13-15  FIRMWARE USE ONLY(&CPIDLE BYTE 0  CON RTS IDLE CHAR& BYTE 0  RESERVED 6CPXMTT DATA 0  XMIT DATA THRESHOLD (OUTPUT FIFO) 6CPTPAD BYTE 0  TRAILING PA D VALUE  (CPPADC BYTE 0  TRAILING PAD COUNT (6CPOPNT BYTE 0  WAIT FOR OPEN COMPLETION TIMEOUT 6.CPDIST BYTE 0  DISCONNECT DETECT TIMEOUT.6CPCDLY BYTE 0  DELAY FORCED BETWEEN CONNECTIONS 6 BYTE 0  RESERVED *CPCOW2 BYTE 0  COMM IF OUTPUT WORD 2**CPCOW3 BYTE 0  COMM IF OUTPUT WORD 3**CPCOW4 BYTE 0  COMM IF OUTPUT WORD 4* BYTE 0  RESERVED  DATA 0  RESERVED 4CPXONI DATA 0  CHAR MODE SBO XMTON INSTRUCTION 4* '2*  ISR - CHARACTER DETECT RELATED PARAMETERS2*CPCDFL DATA 0  CHARACTER DETECT FLAG*&*  BIT0  BSCR 2780 SELECTION&8*  BIT1  BOPIGNORE ABORT ON FIRST CHARACTER 82CPCDTB DATA 0  TABLE OF CD ROUTINE ADDRESSES 26 CPOLAD DATA 0,0,0,0  POLL ADDRESSES OR POINTERS 6CPSYNI DATA 0  1/4 SEC TIC KS BEFORE SYNC INSERTION * '*  GLOBAL FLAGS ,CPGLFL BYTE 0  GLOBAL FLAGS (RESERVED),CPBFCT BYTE 0  RESERVED 2CPEISR EQU$  END OF ISR HANDLED PARAMETERS 28CPSIZE EQUCPEISR-CPPROS  SIZE OF CHAN PARAM TABLE 8  RORG " OUTPUT WORD 2**CPCOW3 BYTE 0  COMM IF OUTPUT WORD 3**CPCOW4 BYTE 0  COMM IF OUTPUT WORD 4* BYTE 0  RESERVED  DATA 0  RESERVED 4CPXONI DATA 0  CHAR MODE SBO XMTON INSTRUCTION 4* '2*  ISR - CHARACTER DETECT RELATED PARAMETERS2*CPCDFL DATA 0  CHARACTER DETECT FLAG*&*  BIT0  BSCR 2780 SELECTION&8*  BIT1  BOPIGNORE ABORT ON FIRST CHARACTER 82CPCDTB DATA 0  TABLE OF CD ROUTINE ADDRESSES 26 CPOLAD DATA 0,0,0,0  POLL ADDRESSES OR POINTERS 6CPSYNI DATA 0  1/4 SEC TIC@D ****************************************************************D@*  COMUNICATIONS REQUEST BLOCK (CRB) 12/09/80 DX10 V3.4 @D ****************************************************************D*CRB $MACRO OP,TC*OP= OPCODE !*TC= TCB ADDRESSCRB  $MACRO OP,TC  DATA 0  CRB QUEUE LINKAGE  $ DATA 0  REQUESTING TABLE ADDR $& BYTE :OP:,0 OPCODE - ERROR CODE &  BYTE 0,0 SYSFLG - USERFLG  DATA 0 CRB OWNER " DATA 0  DSR MAP FILE ADDRESS" DATA 0 FIRST TCB MAP FILE" DATA :TC: FIRST TCB ADDRESS "0 DATA 0 TEMP A - FIRST EXTENDED FLAGS WORD0 DATA 0 TEMP 1 - SLAVE 1 DATA 0 TEMP 2 - SLAVE 2 DATA 0 TEMP 3 - SLAVE 3 $END CRB * '  DORG -4! $CCFLAG DATA 0  LEFT BYTE = PDTDS$F * RIGHT BYTE = PDTDTF CCFTIL EQU>0040  TILINE  &CCFPSU EQU>0002  PSEUDO TILINE&.CCIRBP DATA 0  POINTER TO ASSOCIATED IRB.  DORG 0 ! "CCLNK DATA 0  QUEUE LINKAGE"*CCRTA DATA 0  REQUESTING TABLE ADDR* CCOPCD BYT E 0  COMM SYSTEM OPCODE  CCERCD BYTE 0  ERROR CODE  &CCSYSF BYTE 0  SYSTEM FLAG BYTE &* BIT 0  BUSY FLAG* 1  ERROR FLAG "* 2  END OF FILE DETECTED "$CCUSRF BYTE 0  USER FLAG BYTE $* BIT 0  INITIATE I/O YT"@* 1  REPLY* 2  RESERVED  * 3  ACCESS PRIVILEDGES * 4  ACCESS PRIVILEDGES * 5  =0 INIT CALL(OPEN) *  =1 ACCEPT CALL(OPEN) * 6  =0 NO TIME OUT *  =1 TIME OUT ENABLE * 7  BLANK ADJUSTMENT 0CCSTBA DATA 0  TABLE ADDRESS OF CRB OWNER 0*CCSMAP DATA 0  PDT MAP FILE ADDRESS *6 CCTCBM DATA CCTCBX MAP FILE FOR 1ST TCB IN CHAIN 60CCTCBL DATA 0  ADDRESS OF 1ST TCB IN CHAIN0.CCTMPA DATA 0  FIRST EXTENDED FLAGS WORD.CCTMP1 DATA 0  SAVED WOSW1 CCTMP2 DATA 0  SAVED WOSW2 CCTMP3 DATA 0  SAVED WOSW3 CCRBLN EQU$  CRB LENGTH  >CRBOFF EQU@-$-2 OFFSET TO FIND STRT OF CRB (DX10 ONLY) ><CCTCBX DATA 0,0,0,0,0,0 SAVED MAP FILE FOR SYS REQUEST <CCRBSZ EQU$ !D ****************************************************************D&*  TRANSFER CONTROL BLOCK (TCB) &F!***************************************************************** F*TCB $MACRO TC,TM*TC= NEXT TCB ADDRESS *TM= TIMEOUT VALUETCB  $MACRO TC,TM& DATA 0  NEXT TCB MAPFILE ADDRESS &2 DATA :TC:NEXT TCB ADDRESS (REL TO MAPFILE) 26 DATA 0,0,0 REQUEST LENGTH,CHAR CNT,DATA OFFSET 6 BYTE :TM:TIMEOUT , BYTE 0 MOST SIG 8 BITS BUFFER ADDRESS , DATA 0  LEAST SIG 16 BITS BUFFER ADDRESS  $END TCB * '  DORG 0 ! .TCLNKM DATA 0  NEXT TCB MAPFILE ADDRESS .6TCLNKA DATA 0  NEXT TCB ADDRESS (REL TO MAPFILE) 6:TCREQL DATA 0  DATA REQ LENGTH (BIT 0=1 IF LAST TCB) :.TCACTL DATA 0  ACTUAL DATA BYTE COUNT ON C.OMPLETION 4TCOFFS DATA 0  DATA OFFSET FROM TCACTL(+ OR -) 4TCTIM0 BYTE 0  TIMEOUT6TCRADM BYTE 0  NEXT TCB ADDRESS (MOST SIG BITS) 66TCRADL DATA 0  NEXT TCB ADDRESS (LEAST SIG BITS) 6&TCBLEN EQU$  NORMAL TCB LENGTH&  RORG "  PAGE "4TCOFFS DATA 0  DATA OFFSET FROM TCACTL(+ OR -) 4TCTIM0 BYTE 0  TIMEOUT6TCRADM BYTE 0  NEXT TCB ADDRESS (MOST SIG BITS) 66TCRADL DATA 0  NEXT TCB ADDRESS (LEAST SIG BITS) 6&TCBLEN EQU$  NORMAL TCB LENGTH&  RORG "  P"* IO CONTROL BLOCK DEFINITIONS"6* USED BY ALL ISRS FOR CHARACTER INTERRUPT DEVICES6  DORG 0 ! ,CBRTN DATA 0  SERVICE ROUTINE ADDRESS ,"CBBUFF DATA 0 BUFFER ADDRESS"*CBMAP DATA 0  DATA MAP FILE ADDRESS * CBTIMR DATA 0 TIMER VALUE  CBTIMO DATA 0 TIMER VALUE  &CBBCT DATA 0  REMAING CHAR COUNT&(CBTCB DATA 0  CURRENT TCB ADDRESS (&CBFLG DATA 0  CURRENT FLAG WORD &&CBQUEN DATA 0  NEWEST QUEUE ENTRY&&CBQUEO DATA 0  OLDEST QUEUE ENTRY&$CBRTIM DATA 0 RESTART TIMEOUT $(CBTMP1 DATA 0  REQUEST TEMPORARY 1 ((CBTMP2 DATA 0  REQUEST TEMPORARY 2 (.CBOP BYTE 0  D3OP CODE WITHOUT MODIFIER .,CBSVOP BYTE 0  D3SAVED OPCODE FROM CRB ,2CBTICK DATA 0 CHARACTER DETECT TICK COUNTER 2  RORG "  PAGE " /' `h@* '* ' * IST MACRO DEFINITION"*BCMIST $MACRO UN,CR,NH,PR,AC "*UN= BASE UNIT NUMBER *CR= CRU BASE ADDRESS **NH= NEXT HIGHER LEVEL TABLE ADDRESS*$*PR= PROTOCOL SELECTION PARMS $0*AC= ACU CRU ADDRESS (DECIMAL EQUIVALENT) 0* ' UNL#"BCMIST $MACRO UN,CR,NH,PR,AC "* $VAR XX VARIABLES FOR INTERNAL USE * $ASG 'LT' TO XX.S4 $ASG UN.V TO NH.SV  ELIMINATE UNDEFINED LABEL 4 $IF XX.S#=NH.S  REF:NH:CM:UN:. DEFLTCM:UN: LINE TABLE ADDRESS IF NONE .LTCM:UN: EQU $!  $ENDIF ! ( CIST:UN: DATA >FFFF  NI BUSY FLAG (  DATA 0,0  NI ENTRY QUEUE  $ DATA CN:UN:,0NI ENTRY VECTOR $& DATA 0  CURRENT CONNECTED STATE &, BYTE 3,>B0  TABLE TYPE, FCNS SUPPORTED , DEFIT:CR:IT:CR: DATA *CI:UN:,0 31 INTERRUPT WORKSSPACE, PC *6 DATA :NH:CM:UN:,0NEXT HIGHER,LOWER TABLE ADDRES6FCN:UN: DATA 0,BCRB:UN:,0,BCXB:UN:,CIST:UN:,0,0,0 NI WORKSPACE F DATA 0,0,0,0,>:CR:,0,0,0 . DEFWPCM:UN: DEF FOR INTERRUPT DECODER .WPCM:UN: EQU$ >CI:UN: DATA 0,BCRB:UN:,0,BCXB:UN:,CIST:UN:,0,0,0 I WS > DATA 0,0,0,0,>:CR:,0,0,0 8 DATA 0,0,0 PENDING REQUEST QUEUE AND ERROR COUNT 8" DATA :PR: PROTOCOL SELECTION" DATA 0 SEQUENCE COUNT DATA 0 BOARD STATUS$ DATA 0  STATUS COUNT REMAINING$BCXB:UN: EQU$ , DATA 0,0,0,0,0,0,0  TRANSMIT CTL BLK ,BCRB:UN: EQU$ , DATA 0,0,0,0,0,0,0  RECEIVECTL BLK ,BCEB:UN: EQU$ ( DATA 0,0,0,0,0,0,0  OTHER CTL BLK(0 DATA 0 FILLER/STATUS OP (LEAVE THIS ODD) 0 DATA "0,0  NEXT 4 BYTES OF STATUS " BYTE 0  COMPLETION CODE DATA 0 LOST CRB COUNT  DATA 0  ACTIVE COMMAND PTR ( DATA BCEB:UN: PTR TO OTHER CTL BLK( DATA 0 COMMAND INHIBIT   DATA :AC:ACU CRU ADDRESS   DATA 0  BOARD DATA ADDRESS  $END BCMIST  LIST "  ASMIF DEFINE=1 * ' * ISR TABLE DEFINITION* COMMON PREFIX * DORG 0 IST BEGINNING,BASE ADDRESS=0 *,IST  EQU$  START OF IST (ISR TABLE) ,0 NIBUSY DATA >FFFF  NON INTERRUPT BUSY FLAG 00NIQUE DATA 0,0  NON INTERRUPT ENTRY QUEUE 0$* NEWEST/OLDEST ENTRY POINTERS $6NIWSP DATA NIR0 GEN NON INTERRUPT ENTRY POINT 6* NIADD DATA BCMEXT GENNI CODE BASE*4 DATA 0  GENBASE UNIT NUMBER (N,N+1,N+2,N+3) 40TBLTYP BYTE 2  GEN DEVICE (IST) TABLE TYPE 0 .DEVFCN BYTE >0A  GEN IST FCNS SUPPORTED.<IWSP DATA IR0,BCMINT GENNI INTERRUPT ENTRY POINT <:NHLTAD DATA 0  GEN11NEXT HIGHER LEVEL TABLE ADDRESS :8NLLTAD DATA 0  GEN11NEXT LOWER LEVEL TABLE ADDRESS 8 * ISR TABLE DEFINITION * NON-INTERRUPT WORKSPACE 0NIR0 EQU$ START OF NON-INT WORKSPACE 0 DATA 0  R0 TEMP DATA RCVBLK R1 TEMP DATA 0  R2 TEMP DATA XMTBLK R3 TEMP4NITAB DATA IST  R4GENPOINTER TO IST BEGINNING 40 DATA 0  R5 CONTROL BLOCK ADDRESS (TEMP) 0 DATA 0  R6 TEMPORARY  DATA 0  R7 TEMP& DATA 0  R8  ENTRY CRB ADDRESS &" DATA 0,0,0 REGISTERS R9-R11"  DATA 0  R12GNCRU ADDRESS   DATA 0  R13CALLING WP DATA 0  R14CALLING PCNIST DATA 0  R15CA LLING ST  * END OF NI WORKSPACE * ' * ISR TABLE DEFINITION * INTERRUPT WORKSPACE IR0  EQU$ ! DATA 0  R0 TEMP DATA RCVBLK R1 TEMP DATA 0  R2 TEMP DATA XMTBLK R3 TEMP2ITAB DATA IST  R4  POINT TO START OF IST 2 DATA 0  R5 TEMP DATA 0  R6 TEMP DATA 0  R7 TEMP. DATA 0  R8  TEMP REGISTER I WORKSPCAE .*ERRREG DATA 0  R9 ERROR INDICATOR *( DATA 0  R10 TEMP REGISTER I WSP (" DATA 0  R11TEMP REGISTER "&REG12 DATA 0  R12GNCRU ADDRESS &" DATA 0  R13INTERRUPTED WP"" DATA 0  R14INTERRUPTED PC"" DATA 0  R15INTERRUPTED ST"* '* ' * ISR TABLE DEFINITION * CONTROLLER INFORMATION* '$PENDQ DATA 0,0 PENDING REQUEST $ QUEUE  (DERRCT DATA 0  ERROR REQUEST COUNT (&PROSEL DATA 0  PROTOCOL SELECTION&.SEQCT DATA 0  READ/WRITE SEQUENCE COUNT . BDSTAT DATA 0 BOARD STATUS *STATCT DATA 0  STATUS COUNT REMAINING** '* CONTROL BLOCKS* '* '*  TO BCAIM * 'XMTBLK EQU$ !BCRB EQU$-XMTBLKCRB   DATA 0 ! &BMAP EQU$-XMTBLKMAP ADDRESS &  DATA 0 ! (BBAD EQU$-XMTBLKBUFFER ADDRESS(  DATA 0 ! (BACTL EQU$-XMTBLKREQUEST LENGTH(  DATA 0 ! &BTCB EQU$-XMTBLKTCB ADDRESS &  DATA 0 ! 0BQUEN EQU$-XMTBLK AWAITING QUEUE NEWEST 0  DATA 0 ! BQUEO EQU$-XMTBLKOLDEST  DATA 0 ! * '* '*  TO HOST* '* 'RCVBLK EQU$ !HCRB EQU$-RCVBLKCRB   DATA 0 ! &HMAP EQU$-RCVBLKMAP ADDRESS &  DATA 0 ! (HBAD EQU$-RCVBLKBUFFER ADDRESS(  DATA 0 ! (HACTL EQU$-RCVBLKREQUEST LENGTH(  DATA 0 ! &HTCB EQU$-RCVBLKTCB ADDRESS &  DATA 0 ! 0HQUEN EQU$-RCVBLK AWAITING QUEUE NEWEST 0  DATA 0 ! HQUEO EQU$-RCVBLKOLDEST  DATA 0 ! * '* '* '*  OTHER * 'OTHBLK EQU$ !OCRB EQU$-OTHBLKCRB   DATA 0 ! &OMAP EQU$-OTHBLKMAP ADDRESS &  DATA 0 ! (OBAD EQU$-OTHBLKBUFFER ADDRESS(  DATA 0 ! (OACTL EQU$-OTHBLKREQUEST LENGTH(  DATA 0 ! &OTCB EQU$-OTHBLKTCB ADDRESS &  DATA 0 ! 0OTHQUE EQU$-OTHBLK AWAITING QUEUE NEWEST 0  DATA 0 ! OTHQUO EQU$-OTHBLKOLDEST  DATA 0 !* '* '<* THE FOLLOWING BLOCK IS ORDER AND CONTIGOUS DEPENDENT <* ',ODDFIL BYTE 0  THIS MAKES OP STATUS ODD ,"STATUS BYTE 0 LAST STATUS OP" DATA 0  STATUS  DATA 0  STATUS $STATCC BYTE 0  COMPLETION CODE$* '* '*  END OF DEPENDENCY * '"LOSTB DATA 0 LOST CRB COUNT"* '* '"CMDACT DATA 0 ACTIVE COMMAND"* '* '* OTHPTR DATA OTHBLK CTL BLOCK POINTER *$INHCMD DATA 0 INHIBIT COMMAND $ ACUCRU DATA 0 ACU ADDRESS  (BDATAD DATA 0  BOARD DATA TEMP ADDR(  EVEN " (ISTLEN EQU$  LENGTH OF ISR TABLE ( * END OF IST DEFINITION   RORG "  ASMEND !  PAGE " $-OTHBLK AWAITING QUEUE NEWEST 0  DATA 0 ! OTHQUO EQU$-OTHBLKOLDEST  DATA 0 .IDC(INSTALL COMMUNICATIONS DSR COMMANDS), . DSR PARTS ACCESS NAME=ACNM( .SYN $CVN="@@&DSR"".USE @$CVN.S$CPROC,DS01.S$PROC"dCP ~MP/'  `h~g!!!!D6( ( ! Dd> H/(  H`hĘ Ę /(  H`h (  H`h   `E  H `h &\&   d``  >    =@/  2  EE [΋/' 3  `h΋gE %g   F F ՠ &`΋DCOMA DXCMO P D  e$\$WB D  }$d$`L D   $hP DCOMA DPTCOMA `P kH@$ZPPRCOMA `P w $\@@************************************************************ @BATCH LS=YES"@************************************************************ @4* *** PATCH FILE DPTCOMA LAST UPDATE 06/15/81 4@************************************************************ @* '* TITLE: DPTCOMA* '@* ABSTRACT: THIS PATCH FILE PATCHES THE COMMUNICATIONS DSR @4*  ASSOCIATED WITH THE COMA PROTOCOL. COMMON 44*  MODULES IN THE PARTIAL LINK "DSRCOMA", ARE 42*  PATCHED BY "DPTCMON". PROTOCOL DEPENDENT 2**  MODULES ARE PATCHED BY "DPTCOMA".** '@************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* ':*  THIS PATCH FILE MUST BE APPLIED USING THE CURRENT :(*  "PCS" PROC. "PCS" IS AVAILABLE O( N EACH :*  COMMUNICATION EMULATOR OBJECT INSTALLATION DISK. :* '<*  ALL EMULATOR DSRS MUST BE GENERATED AND THE SYSTEM <2*  "ALGS" PERFORMED BEFORE PATCHING BEGINS. 2* '<*  FOLLOW THE INSTRUCTIONS IN THE OBJECT INSTALLATION <8*  MANUAL(S) FOR THE EMULATOR(S) BEING INSTALLED. 8* '@************************************************************ @* '8* *** S Y N O N Y M A S S I G N M E N T S ***8* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 06@************************************************************ @(***** SYSTEM LINK DEFINED SYNONYMS (@************************************************************ @#SYN DSR,DSRCOMA.SYN DSRCMON="@DSRCOMA" ************4************************************************ 4(***** PARTIAL LINK DEFINED SYNONYMS(@************************************************************ @#SYN C,COMPAT .SYN C="" "@************************************************************ @,***** CALCULATED USING DSRCOMA'S OFFSET,@************************************************************ @$.EVAL D$$PAT="@DSRCOMA+@COMPAT"$@************************************************************ @ *  PATCHES RELEASE 4.0.0 @************************************************************ @@************************************************************ @* '@************************************************************ @ *  INSERT NEW PATCHES HERE  @************************************************************ @**D* '>CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.DPTCOMA" >* '.IF @$E$C,NE,"0"  .EVAL $E$PCS="@$E$PCS+1"  .ENDIF% (.SYN DCMON="@DSR",DSRCMON="@DSRCOMA"(LS'&.SYN C$$PAT="",D$$PAT="",COMPAT=""&@************************************************************ @B* ASSIGN SYNONYM $PROT TO PROTOCOL FOR COMMON DPTCMON PATCHES B .SYN $PROT="COMA" * ' .STOP % <* NEXT AVAILABLE COMMCOM PATCH LOCATION IS C$$PAT+>0000 <<* NEXT AVAILABLE DSRCOMA PATCH LOCATION IS D$$PAT+>0000 <ES ARE PATCHED BY "DPTCOMA".** '@************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* ':*  THIS PATCH FILE MUST BE APPLIED USING THE CURRENT :(*  "PCS" PROC. "PCS" IS AVAILABLE O(@@************************************************************ @6* *** PATCH FILE PPRCOMALAST UPDATE:06/30/816@************************************************************ @* '* TITLE: PPRCOMA* '@* ABSTRACT: THIS PATCH FILE PATCHES THE COMA BUILD PROCESS @4*  PROCDURES BEFORE THE BUILD PROCESS BEGINS. 4:*  THE DISK PATCHED IS THE OBJECT INSTALLATION DISK. :0*  $CVN REPRESENTS THE DISK TO BE PATCHED.0* '@************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* '4*  THIS PATCH FILE SHOULD BE APPLIED USING THE46*  "PPR" PROC, WHICH IS INVOKED BY "ICC" DURING 64*  THE INITIAL PHASE OF A COMMUNICATION BUILD.4* '2************************************************2************ * '8* *** S Y N O N Y M A S S I G N M E N T S ***8* '.Q$SYN  !REQUIRED: CLEAR SECRET SYNONYMS .6.SYN $E$C="0"  !REQUIRED: SET ERROR COUNT TO 06@************************************************************ @$*  PATCH PROCS RELEASE 4.0.0$@************************************************************ @* '@CMR=ME,M="@$E$C ERRORS IN PATCH STREAM @$PLST.BL.PPRCOMA" @LS' .STOP % ************************************************************ @:* ***S P E C I A L  I N S T R U C T I O N S *** :* '4*  THIS PATCH FILE SHOULD BE APPLIED USING THE46*  "PPR" PROC, WHICH IS INVOKED BY "ICC" DURING 64*  THE INITIAL PHASE OF A COMMUNICATION BUILD.4* '2************************************************2B DCOMA DSR `P 1Ds$c@@************************************************************ @* '* TITLE:DXDSRCMA* '>* ABSTRACT: THIS BATCH STREAM IS EXECUTED TO CONFIGURE THE >(* DX COMA DSR PRIOR TO LINKING THE(8* DX SYSTEM. IT IS ASSUMED THAT THE BUILD COMM DSR 86* (BCD) PROCEDURE HAS COMPLETED AND THAT THE DSR 6,* LINK CONTROL FILE HAS BEEN CREATED. ,* '>* SYNONYMS: THIS BATCH STREAM USES THE FOLLOWING SYNONYMS. >2* ALTERNATE SYNONYM VALUES MAY BE ASSIGNED. 2* ' * SYNONYM DEFAULT  USE * '6* $COBJ  DXCOMOBJ.DXCMO EMULATOR OBJECT INPUT 6,* $CLST  @$COBJ  LISTING DIRECTORY ,2* $CDAT  DS01  SYSTEM SYSGEN PARTS VOLUME2$* $CSNAM NONE SYSTEM NAME $@************************************************************ @BATCH LS=YES !@***** SYNONYMS ******************************************* @.SYN $EC="0"!.IF  @$COBJ,EQ,$COBJ"AS S=$COBJ,V=@DXCOMOBJ.DXCMO" .ENDIF% .IF  @$CLST,EQ,$CLSTAS S=$CLST,V=@$COBJ  .ENDIF% .IF  @$CDAT,EQ,$CDATAS S=$CDAT,V=@DS01 .ENDIF% Q$SYN %  ***** DSR PARTIAL LINKS4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.DMAPCOMA, 4 WRITE-DELETE PROTECT?=NO, DELETE PROTECT?=NO FXLE  CN=@$COBJ.DCOMA.L.DSR,LOAN=@$CDAT.S$SYSGEN.@$CSNAM.DSRCOMA,F* LIST=@$CDAT.S$SYSGEN.@$CSNAM.DMAPCOMA*EC'4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.DMAPCOMA, 4  WRITE-DELETE PROTECT?=YES,   DELETE PROTECT?=YESEC'@************************************************************ @&CM R=ME,M="@$E$C ERRORS REPORTED I& N @$CLST.BL.DSRCOMA" LS'.STOP CODE=@$E$C ******** @.SYN $EC="0"!.IF  @$COBJ,EQ,$COBJ"AS S=$COBJ,V=@DXCOMOBJ.DXCMO" .ENDIF% .IF  @$CLST,EQ,$CLSTAS S=$CLST,V=@$COBJ  .ENDIF% .IF  @$CDAT,EQ,$CDATAS S=$CDAT,V=@DS01 .ENDIF% Q$SYN %  ***** DSR PARTIAL LINKS4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.DMAPCOMA, 4 WRITE-DELETE PROTECT?=NO, DELETE PROTECT?=NO FXLE  CN=@$COBJ.DCOMA.L.DSR,LOAN=@$CDAT.S$SYSGEN.@$CSNAM.DSRCOMA,F* LIST=@$CDAT.S$SYSGEN.@$CSNAM.DMAPCOMA*EC'4MFP  PATHNM=@$CDAT.S$SYSGEN.@$CSNAM.DMAPCOMA, 4  WRITE-DELETE PROTECT?=YES,   DELETE PROTECT?=YESEC'@************************************************************ @&CM R=ME,M="@$E$C ERRORS REPORTED I&L DCOMA P RELEASE: 1.0.0 P/N: 2276718-1601 PP MFG. REV.: ** MEDIA: XXXXXXXX PP REFER TO OBJECT INSTALLATION MANUAL FOR INSTRUCTIONS PRP^ COPYRIGHT 1981 TEXAS INSTRUMENTS INCORPORATED P MFG. REV.: ** MEDIA: XXXXXXXX PP REFER TO OBJECT INSTALLATION MANUAL FOR INSTRUCTIONS PR6*b#0x{^S?=ݻ-ɳ緌r\ShZΠ̄t yن^|EBxX}Q>/Mt❁z)Gyl7|H_dMK@bfow\ۥc"8`+TEZn{-ڧ LUb(}a=D} 9;Fׂ< 6C,>4]:RŶm,rus &bnd$ d&7JeXmqޭOW<?;pIg 0Rg!Nmmko`HŠ"PͩvǠu23ȩ.`߹;juˏ@Y%6cwt1:s}O-0# VD'r."7?-J+ sWhrۘՑ~Xo&ݺ[i6Ff5&[lA *6?'b?#xF^n=z熌һShe:Γ;Q ym|wEBXQK>E/tz!Ѓ)ZGlN߳cHo_d-M7K.fw\"8Y(ZTZ1{l֭L,U(a0D^ 9BFב< CTq4]v: ,rsIn $ gx ^6&7[eq`O;lpsIݖgn ?Rӆ!N mFpk.`sTŢ­BmўޯS3›P8v$u2324.ߨ:uj@Y,K^4%cV?1} 0 oV'Ai(*?.f-J+> ƆW#x: (~o_1[i06ca5A*~P"[b#x^ϝE=c+AUhҞShpΆ y熫||2EBrXQ>x/tozd)NGleBH֮_dHMPKmpfw&\Q"*8$OƏTZ{RրLUw(a[#fD49IFנ<'CF74o]:(SC ,޵ r;sJ<0nJ$/  r&7eⳣwqO;p^Ig= &Rӥ!UNbm}sk`yظEPEvw>}u2t3ȿ.FߗU,j{ @lYo%<|c5 1➠ )}+0 6V'\ͨ?-+J+ IƙWޅOÙk~oݨ6[^iw6쇲\5󙈂Asz*<751]b#x ^l̔=&~$!ҁS5h{y L4y|EeBX^Q>/ZtszY)Gflz|H_dcM=KAf(w\h"8vyTV}Z{jSxL"U'Z(aŽDNFܠ_9PF"ׯ<<JCI4J]d:W隶Z,ٵ"rsn$J ժ~ ܀&7ye]VBqOM;jpIIkhg mRr!NUmvk`ǗPDa!HPvǍxu23pJ.߆pjL@Y:q|ܪ%c1 SOԄ}ژ0 V'_˓쨣? Ĝ-bJ+ tƬW&v~oy[i6?W5-O8 Ab׍1*v b(#x3^=)Q^dSThol"P _y|E/ tN]z)/Glu@Hs_~d~MK~fwD\ǥ"p8,TtZz{ى&GLU=(a) DD}9WF5׾<mCI 4%]:,Ե9rsRn0$e  7&@76e qFyOK;p4I2;g RU !#N@mykk`ڗ!'_Nѓw`<Pyvsu2:3Ձ.,u͚jˋ@Y %c10~}[)0 V'Պ ]?{7-J+{ ƿWżTW~$olݖ[4i6PR5D׈AqiQ*B;C O`b#xrZ^*V=ɖ$ŒٕOGSsh_ y|cEB'XQ>/t)z-/)vGGlpkH_mdMuCK*fNw\"c8ߏT kZ={hĉLUU (aDZ9^FH<iC'=D4]R:i(<,ϵPrds'n$ C Z&7qe ✣zqm,OB;hpIg R8!Nm"|k*`0@9ؙ:ΛPvp+nu623`.dQj@mYH %AecҸk1W:}0 Vc'}U!*?-J+: ʹWԼԂ!öL~Wom [iL6凟M5[v#AXܟ@ *ŋz8ʦޜbn#jx=^Y=o']瑌T*Sh=RfX y|EBJX?Q>D/gtKzp)GSlkγ~H&rY_\dM,KiBٌfwb\=m"B8PETgbZ{簯ņLU:(a"D9eF[w/tߝz)Glfز1HY_KdMIKftw\x"Y!8EtTYZ{f5֟LUY(a^⿑D"!ؠ 9lFn<(C>4]@:c?鶶,ŵ~r*sen$ ؀8&7e8nqޒOw;fpIgH R@-!XNmk`uNŬ|/шmTPvdud2c3vM.BͿj H@YVܖ%c1 }ڤ0 V 'KOWh?->J#+ W򼅅gt~oy#[~ui6=C59A&ŸC *ˋئ·eb#(x^Ϸg=r%j/JSh 8D,  y|EBXQ>/t9zp)K@GlaﲔH<@?_:dMKٚfw\"89TPZ{尅rLUx(aŎտDUY$69sF<C$Q4]:5,rs~n$ h 㙜&7D"eⅣ9qEOnW;pINg `R_8!N\mNJkg`&]qŃ¢z/CtP%vi_u{234.1vjˇ@nYPG%FNco1̞:K}g%0{ V':?7ģ-uJ&+w K W@YӘ-~o(r[}i!6އ>5>SA 5 ^*N79_UbW#x^=iUɲpŕShr+)c 6y0|OEoB X Q>/ttz9)G@l\[H'_)dMQOK&C!fw\r"8`TxGZI{dpERLU(a,ȿoD'Va9zF <CS 4l].:D4,rs no$  V#&7]eg(q Ooe;dpIZg R~C!&Nkmk&`9l,Z:־vڛP6vgZu2)3*Ȍ.k -j@Yd %cN1iԦ}*0f V'A}`?>-J)+6 vW02x`~#o״ [|Kih61۬95OAy{*ыvb#xi^Q=`{#@yC͌@BҶShȡ" ayC| EFBփjXkQ*>/#tp'z|F)GlWZHR%_d MKe٨f-w\)"B8|^T>Z {[!LUH(aD*9F+@県ҙS-hӡ@_ Dy&V|EBXQ>C/tKzб) 9GlR4H_d;MUK/fw-\d "8G0T.5Z{bFQLUߒr(aMD&-Ԡ9F'<sbCAo^4"]:oҶ.,rsOnUc$" Ԁ1&E7enqW^O\%S;bpIg y%RӼY!NI-mlk`!*_ [$ܯ)9`PfvbPu23hȢ.QH͛jD@oYr ܂%K7c -1A\}ڰ0< 5VU'W7ի.?t-J/+ ̹ DW.qނ~o5׺[z!i6ׇy/5g0eAڤ*׋:8pb@#xk^s=N!k6p|SLhޡ y-i|EB(XQx>v/t&z)gG-lMK 8Hhܮ _dVMvKDٶfSw\w"|8ď_T,Z{1־LuUvU(aaD509F6<JC4 4]:V!,rs6nR$= D &7eleq~OJc;pIjgS Rmd![N~mkc`L1r].Wئ˾PPѩ vTKu2R3-.cRj˃@Yܽ%c1hԷ}s!0' V('&̲BƓ?-QJ2+s WW=,OYU~ojN[yi=6*Ȭ*5ψAɤʍ*Z3{ǜb#x^jϢ.=EĻ:_Skho? y4|!|;EB?XLQ>/0tzEЇ)G|lHbHî~_dqM-[K"=fwK\ڥ"+[8ݱwT#ZU{`֑LU 8( aȎ+D\l3R 9FE<!C(4] :`p,r|s5n;A$X R:?&k7Ieⴣr0qO۽A&;`pwI1g" oSRPo!Nq'cmڊk"`w8ŶQrB曘P/tܝz)2GlCyvH~_dMKafyw\%":8#*T?Z{߰d]LkU2(a/D689FT)Pv[Au23EC.j@pY3%P c1Tm}0 V'̨pAc?E-J8+ M }W[c\ ~"oB /tzz])IH d_dMaKEKf wi\P|"q8sJݏTZ{^m7,LU;Q("az D9Рc9Fc<Cv;4]:{z,6rBs]Kn!$ i ЀM&7-eq0q*O/;^pMILg eR8!NWmHk`Fd—t؇lPvAB/=tz)Gil9Hx_dMRKfw\"8>qTZ{ݰ݉4 LaUҒp(-amxD-<9Fr<C`n4i]o:5],Mrsn$ % ;&$7e❣qOG&o;p8Ig RW!NJt4mk_`MI;ºgۯ,P}'vǐ7u323Yl.ߩ.j@Yܩ%fcg$1j#}0 Vt'b̞՞R21g?{--J>+o .ƣWy˘~o*[u8iY6v5XVKAE͟6|*f/tbo#x.^6^=!лvcSh+ yP]|'E'B˃XxQ>u/tmhzQ3)+Gl4SH_J_dM gKYf2w\ƥ*"8 CJTPZa{\ȉݧLUi(8ad`DȭH?N9F,ׁ/tHzО)~Gl/ղrHF_dMK]Ffw\"Z8ԱyTZ${۰ְLWU(CaˎSVDcB 9F?א<1TWCk'4]]:Dös,{rks:nz$ + &J7pev'qhCO;pIg- FRӕ!N0Rjm튣k`N[hѵA65PSv.-ua23o:.v߇͜j@Y#%c%1R}q0 V'̔HM?ı-JD+ /Jt#Vz )XGVl*ճH5-0_dMwmKgfXw\<"8TZ{ZփhLU(Na2FDE̠9FRן<+zC9A4]:C J,rswn$ E ̀/tzt)$Gl%80H_nd.M.Kfw4\w/"t8j \TaZ{ٰPV7LMU.m(Ya94DH:9Fe׮<C:4]K:Q,r1sxnn`$ 1 &p7e$)qީOX{;pIkg tR!N0m[k[`i 5ŗFOPP)CvM#u2j3ȅ.\e; j{@rY14ܕ%ZcP16nԏ}_ڋ0 4V'̊ޓ^3?k- JJ+k OJWm.G~To\B[qiu6‡@5LjHAAX*r+=9?b#{x"^=ܻYT粌wSchAFΏm *:yl|EBWXQW>A/tٝDz])wGl HK_]dIMsKGuf~w\"CS854TZm{Xt)LUŒP (da,D4$KJe9Fx׽;XpIi>g G Rh!N ;mk`p niIѪگPvu23.TVj4˺@Y%c¸1Ǟ}VN0j V'mՑi4&?Ă-@JM+* zQWļDQæ4~o }/[pOi65EfA 0*j:̷Μ'b#Zx^Ia=D'灌VZShL΂V. -yeys'|EZBzXQ>t/WtzJ)-GCl1nH⮉_LddMKYfwR\"28[5TZ0{װ_LCU\3*(oagDϭ[N 9F<CV"4]9:P߶7,zrs