¢**HDR*D&%€€ VOLUME= 1 SECTOR SIZE= 256SOURCE=H.DXPATCH ¢€%.S$SYSGEN..LINKMAP. *8>* IF THE SYSTEM LINK MAP IS NOT AVAILABLE, THE DX10 *><* SYSTEM MUST BE REGENERATED IN ORDER TO OBTAIN A VALID <À ** LINK MAP. * * ! * 6* [] .USE .S$PROC,.S$PROC *6 * ! * * [] RTSPATCH *&* RTS PATCH PROCEDURE <3.1> *&:* DATA DISK NAME: VOLUME NAME OF DISK CONTAINING THIS :À FILE * D* TARGET DISK NAME: VOLUME NAME OF DISK CONTAINING DX10/RTS *D@* DX10 SYSTEM NAME: DX10/RTS IMAGE NAME TO BE PATCHED *@F* PATCH RTS PROGRAMS ALSO: YES (THIS WILL APPLY THE "RTSPROG" *F* PATCHES ALSO) *À * ! * * [] WAIT * * ! * 6* AFTER THE BATCH STREAM COMPLETES, INSPECT *6F* .S$SYSGEN.S$RTS..RTSPATL AND *F<* .S$SYSGEN.S$RTS..RTSMEMPL<À FOR ** ERRORS! * * ! * * [] .USE * * ! * J#**********************************************************************JBATCH LS=YES !RTSMEM******** SYNONYM ASSIGNMEMT !RTSMEM*ÀQ$SYN !RTSMEM<.SYN $E$C="0" !INITIALIZE ERROR COUNT TO ZERO !RTSMEM<H.SYN IMAGE="@$$DSC$.S$IMAGES" !DX10/RTS SYSTEM IMAGE FILE !RTSMEMH,#SYN SROOT,ROOT !DX10 ROOT !RTSMEM,#SYN IOC,IOCOM !RTSMEM#SÀ,YN SMPM,DSRMPM!RTS POLLER !RTSMEM,0#SYN SRTS,DSRRTS!RTS EMULATOR !RTSMEM0J#**********************************************************************J8******* BEGIN PATCHES FOR DX10/RTS 3.1.1 *******8**********À@************************************************************@<*=P1439 CAN10/22/81STR #106163.1.1 DX10 !P1439<* !P1439D* RTS 3.1.1 - A TASK ISSUED ABORT OF AN INITIATED READ !P1439D * CAN CAUSE A SUBSEQUENT €,I/O, USING THE SAME CALL BLOCK, !P1439,B* TO BE COMPLETED IN ERROR WITH AN ERROR CODE OF >06.!P1439B0* MODULES AFFECTED: DSRRTS, DSRMPM.!P14390* !P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0086, !P1439:-->@$V=>E960,D=>0460,C=>0460 !P1439$EC!P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0088, !P1439::V=@ROOT+>025E,D=@DSRRTS+>07B6,C=@DSRRTS+>07B6 !P1439:EC!P14392MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>008A, 2€ !P1439 $V=>000C,D=>8040,C=>8040 !P1439$EC!P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07B6, !P1439:$V=>DEAD,D=>F960,C=>F960 !P1439$EC!P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07B8, !P1439:4V=>DEAD,D=@DSRRTS+>008A,C=@DSRRTS+>008A !P14394EC!P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07BA, !P1439:(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1439(0D=(>000C,>06C0,>D840,>FFFF),C=>2173 !P14390EC!P1439@:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07C2, !P1439:$V=>DEAD,D=>F860,C=>F860 !P1439$EC!P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07C4, !P1439:4V=>DEAD,D=@DSRRTS+>008B,C=@DSRRTS+>008B !P14394EC!P1439€:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07C6, !P1439:V=(>DEAD,>DEAD),!P1439$D=(>0002,>0460),C=>0462 !P1439$,!EC THIS PATCH MODIFIED BY P1546!P1439,:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07CA, !P1439:J>@4V=>DEAD,D=@DSRRTS+>06B6,C=@DSRRTS+>06B6 !P14394,!EC THIS PATCH MODIFIED BY P1546!P1439,* !P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>065C, !P1439:V=(>110E,>1801),!P1439"D=(>1802,>0460),C=>1C62 !P1439"ÀEC!P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0660, !P1439:4V=>0380,D=@DSRRTS+>07CC,C=@DSRRTS+>07CC !P14394EC!P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07CC, !P1439: V=(>DEAD,>DEAD,>DEAD,>DEADÀ),!P14390D=(>0A88,>1801,>0380,>0460),C=>1569 !P14390EC!P1439:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07D4, !P1439:4V=>DEAD,D=@DSRRTS+>0120,C=@DSRRTS+>0120 !P14394EC!P1439* !P1439MPI PFÀ:=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0250,!P1439:$V=>0606,D=>0000,C=>0000 !P1439$EC!P1439*$!P1439J#**********************************************************************J"*=P1546 CAN12/21/81STR #110"À483.1.1 DX10 !P1546* !P1546>* RTS 3.1.1 - THIS PATCH CORRECTS REMOTE PRINTER !P1546>@* OPERATION, AND ENABLES 30 SECOND PRINTER TIMEOUT.!P1546@8* RTSPROG PATCH P1547 MUST ALSO BE APPLIED. !P15468* MÀ,ODULES AFFECTED: DSRRTS, DSRMPM.!P1546,* !P15460* 1) IF LP TIMEOUT, GO POST ERR >06 !P15460* !P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>008C, !P1546:$V=>06C0,D=>0460,C=>0460 !P1546$EC!P1546À:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>008E, !P1546:4V=>D840,D=@DSRRTS+>07BC,C=@DSRRTS+>07BC !P15464EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0090, !P1546:$V=>FFFF,D=>0200,C=>0200 !P1546$EC€ !P1546 * !P15462* 2) IF LP, LOG ERR >06 ON SYSTEM LOG !P15462* !P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07C8, !P1546:$V=>0460,D=>1006,C=>1006 !P1546$*EC ! THIS PATCH MODIFIES P1439!P1546*,@:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07CA, !P1546:,V=@DSRRTS+>06B6,D=>2000,C=>2000 !P1546,*EC ! THIS PATCH MODIFIES P1439!P1546*:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07D6, !P1546: V=>DEAD,D=>20E0,C=>20E0 !P15 À46EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07D8, !P1546:4V=>DEAD,D=@DSRRTS+>07CA,C=@DSRRTS+>07CA !P15464EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07DA, !P1546:V=(>DEAD,>DEAD,>DEAD),€ !P1546 *D=(>1608,>C1E4,>FFFC),C=>2810 !P1546*EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07E0, !P1546:(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1546(0D=(>1505,>D900,>FFE0,>F920),C=>CAC5 !P15460EC!P1546@:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07E8, !P1546:4V=>DEAD,D=@DSRRTS+>0090,C=@DSRRTS+>0090 !P15464EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07EA, !P1546:V=(>DEAD,>DEAD),!P1546 D=(>FFE1,>0460),C=À>FB81 !P1546EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07EE, !P1546:4V=>DEAD,D=@DSRRTS+>06B6,C=@DSRRTS+>06B6 !P15464EC!P1546* !P15468* 3) IF TIMEOUT ENABLED, WAIT FOR TIMEOUT TO POST ERR 8À !P1546 * !P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>068E, !P1546:$V=>1000,D=>20E0,C=>20E0 !P1546$EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0690, !P1546:$V=>C2E1,D=@DSRRTS+>07CA,C=@DSRRTS+$€>07CA !P1546EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0692, !P1546:V=(>FFF8,>982B),!P1546$D=(>1611,>D860),C=>CE71 !P1546$EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0696, !P1546:@4V=>000E,D=@DSRRTS+>000A,C=@DSRRTS+>000A !P15464EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0698, !P1546:,V=@DSRRTS+>000B,D=>FFFF,C=>FFFF !P1546,EC!P15460MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>069A,0À !P1546 V=(>160D,>D860),!P1546$D=(>C1A5,>0004),C=>C1A1 !P1546$EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>069E, !P1546:,V=@DSRRTS+>000A,D=>D026,C=>D026 !P1546,EC!P1546MPI PF=IMAGE,MT=À*OV,MN=@SRTS,ADR=@DSRRTS+>06A0, !P1546*(V=(>FFFF,>04CB,>D94B,>000E),!P1546(0D=(>0004,>0240,>4800,>1309),C=>594D !P15460EC!P1546* !P1546"* 4) ENABLE LP TIMEOUT!P1546"* !P1546MPI PF=IMAGE,MÀ,T=OV,MN=@SRTS,ADR=@DSRRTS+>0050, !P1546,$V=>0200,D=>06A0,C=>06A0 !P1546$EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0052, !P1546:4V=>0404,D=@DSRRTS+>07F0,C=@DSRRTS+>07F0 !P15464EC!P1546MPI PFÀ4=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07F0, !P15464(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1546(0D=(>0200,>0404,>C0C3,>1502),C=>D3C5 !P15460EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07F8, !P1546:V=(>DEAD,>DEAD,>ÀDEAD),!P1546*D=(>0263,>2000,>045B),C=>2638 !P1546*EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0062, !P1546:$V=>1603,D=>1503,C=>1503 !P1546$EC!P1546* !P1546* 5) ENABLE ABORT,D/L WI€"TH TIMEOUT OUTSTANDING !P1546"* !P1546@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>006A,!P1546@$V=>C027,D=>0460,C=>0460 !P1546$EC!P1546@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>006C,!P1546@C3D4V=>0008,D=@DSRMPM+>05C6,C=@DSRMPM+>05C6 !P15464EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05C6, !P1546:(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1546(0D=(>C027,>000A,>0A30,>1702),C=>DD1F !P15460EC!P1546H :MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05CE, !P1546:$V=>DEAD,D=>0460,C=>0460 !P1546$EC!P1546:€%€%MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05D0, !P1546:@V=>DEAD,D=@DSRMPM+>081E+>0074,C=@DSRMPM+>081E+>0074 !P1546@ORD@EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05D2, !P1546:"V=(>DEAD,>DEAD,>DEAD),!P1546"*D=(>C027,>0008,>0460),C=>C44F !P1546*EC!P1546:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05D8, !P1546:V=>DÀ<EAD,D=@DSRMPM+>081E+>006E,C=@DSRMPM+>081E+>006E !P1546<EC!P1546*$!P1546J#**********************************************************************J<*=P1701 CAN04/05/82STR #117703.1.1 DX10 !P1701<* !PÀ1701>* RTS 3.1.1 - THIS PATCH CORRECTS A PROBLEM WITH !P1701>D* THE CURSOR POSITION RETURNED FROM A WRITE ASCII CALL !P1701D(* WITH PRE-COMPRESSED DATA.!P1701((* MODULES AFFECTED: DSRRTS.!P1701(* !P1701À:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0562, !P1701:$V=>1433,D=>140F,C=>140F !P1701$EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0568, !P1701:$V=>1330,D=>130C,C=>130C !P1701$EC!P1701MPÀ8I PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>057C, !P17018$V=>981A,D=>0460,C=>0460 !P1701$EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>057E, !P1701:<V=@DSRRTS+>0014,D=@DSRRTS+>07FE,C=@DSRRTS+>07FE !P1701<EC€ !P1701 :MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>07FE, !P1701:$V=>DEAD,D=>981A,C=>981A !P1701$EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0800, !P1701:4V=>DEAD,D=@DSRRTS+>0014,C=@DSRRTS+>0014 !P170146@EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0802, !P1701:V=(>DEAD,>DEAD),!P1701$D=(>1302,>0460),C=>1762 !P1701$EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0806, !P1701:V=>DEAD,D=@DSRRTÀ$S+>05CC,C=@DSRRTS+>05CC !P1701$EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0808, !P1701:$V=>DEAD,D=>0460,C=>0460 !P1701$EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>080A, !P1701: V=>DEAD, À,D=@DSRRTS+>05C8,C=@DSRRTS+>05C8 !P1701,EC!P1701* !P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>05BC, !P1701:$V=>982A,D=>0460,C=>0460 !P1701$EC!P1701.MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>05B.ÀE, !P17014V=>FFFE,D=@DSRRTS+>080C,C=@DSRRTS+>080C !P17014EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>080C, !P1701:V=(>DEAD,>DEAD),!P1701$D=(>982A,>FFFE),C=>67D4 !P1701$EC!P1701MPI €6PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0810, !P170164V=>DEAD,D=@DSRRTS+>0014,C=@DSRRTS+>0014 !P17014EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0812, !P1701:$V=>DEAD,D=>0460,C=>0460 !P1701$EC!P1701@:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0814, !P1701:4V=>DEAD,D=@DSRRTS+>05C0,C=@DSRRTS+>05C0 !P17014EC!P1701:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>05C0, !P1701:,V=@DSRRTS+>0014,D=>1303,C=>1303 !P1701,ECÀ !P1701 :MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>05C2, !P1701:$V=>1302,D=>1004,C=>1004 !P1701$EC!P1701*$!P1701J#**********************************************************************J*=P1762 CAN07/0À*1/82STR #126823.1.1 DX10 !P1762** !P1762@* RTS 3.1.1 - THIS PATCH CHANGES THE HOST DATA LINK!P1762@B* LOGIC TO START CRC COMPUTATION AFTER THE SOH CHAR. !P1762B0* NOTE: RTSPROG PATCH P1830 MUST ALSO BE APPL0€IED.!P1762(* MODULES AFFECTED: DSRMPM.!P1762(* !P1762* XMT SIDE!P1762* !P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>025C,!P1762@$V=>1306,D=>1305,C=>1305 !P1762$EC!P1762@@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0264,!P1762@$V=>3207,D=>0460,C=>0460 !P1762$EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0266,!P1762@8V=>1E0B,D=@DSRMPM+>0EF6+>036A,C=@DSRMPM+>0EF6+>036A 8À !P1762 EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0268,!P1762@$V=>0380,D=>04C6,C=>04C6 !P1762$EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0280,!P1762@V=>04C6,D=>1000,C=>100À0 !P1762EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0296,!P1762@"V=@DSRMPM+>0EF6+>0360,!P1762"8D=@DSRMPM+>0EF6+>0368,C=@DSRMPM+>0EF6+>0368 !P17628EC!P1762MPI PF=IMAGE,MT=OV,MN=@SMPM,À$ADR=@DSRMPM+>0EF6+>02A2,!P1762$"V=@DSRMPM+>0EF6+>0360,!P1762"8D=@DSRMPM+>0EF6+>0368,C=@DSRMPM+>0EF6+>0368 !P17628EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>02AA,!P1762@V=@DSRMPM+>0EF6+>0360,À !P1762 8D=@DSRMPM+>0EF6+>0368,C=@DSRMPM+>0EF6+>0368 !P17628EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>02FA,!P1762@$V=>C0C3,D=>06A0,C=>06A0 !P1762$EC!P1762 MPI PF=IMAGE,MT=OV,MN=@SMPM,AD À"R=@DSRMPM+>0EF6+>02FC,!P1762"4V=>1310,D=@DSRMPM+>05DA,C=@DSRMPM+>05DA !P17624EC!P1762:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05DA, !P1762:(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1762( D=(>04C6,>C0C3,>1301,>045B),C= À>D35F !P1762EC!P1762:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05E2, !P1762:$V=>DEAD,D=>0460,C=>0460 !P1762$EC!P1762:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05E4, !P1762: V=>DEAD,D=@DSRMPM+0EF6+031À$E,C=@DSRMPM+>0EF6+>031E !P1762$EC!P1762* !P1762* RCV SIDE!P1762* !P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0432,!P1762@"V=@DSRMPM+>0EF6+>05F0,!P1762"D=@DSRMPM+>05E6,C=@DSRÀMPM+>05E6 !P1762EC!P1762:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05E6, !P1762:V=(>DEAD,>DEAD),!P1762$D=(>04C6,>0460),C=>00A6 !P1762$EC!P17626MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05EA, !P176À62@V=>DEAD,D=@DSRMPM+>0EF6+>038C,C=@DSRMPM+>0EF6+>038C !P1762@EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0444,!P1762@"V=@DSRMPM+>0EF6+>05F0,!P1762"0D=@DSRMPM+>0EF6+>038C,C=@DSRMPM+>0EF6+>038C 0À !P1762 EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>044A,!P1762@"V=@DSRMPM+>0EF6+>05F0,!P1762"8D=@DSRMPM+>0EF6+>038C,C=@DSRMPM+>0EF6+>038C !P17628EC!P1762"MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR="À @DSRMPM+>0EF6+>044C,!P1762 $V=>C1AA,D=>C2EA,C=>C2EA !P1762$EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0450,!P1762@$V=>D987,D=>DAC7,C=>DAC7 !P1762$EC!P1762MPI PF=IMAGE,MT=OV,MN=@SMPM,À$ADR=@DSRMPM+>0EF6+>0456,!P1762$"V=@DSRMPM+>0EF6+>05F0,!P1762"8D=@DSRMPM+>0EF6+>038C,C=@DSRMPM+>0EF6+>038C !P17628EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>045E,!P1762@V=>04C6,D=>1001,C=>1001 À !P1762 EC!P1762@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0464,!P1762@"V=@DSRMPM+>0EF6+>05F0,!P1762"8D=@DSRMPM+>0EF6+>038C,C=@DSRMPM+>0EF6+>038C !P17628EC!P1762*$!P1762**************À<********************************************************<<*=P1831 CAN07/01/82STR #126833.1.1 DX10 !P1831<* !P1831@* RTS 3.1.1 - THIS PATCH CHANGES THE HOST DATA LINK!P1831@$* LOGIC TO TREAT ID/SEQ/IDLE/UNK $À"RESPONSES AS TIMEOUTS,!P1831"<* INSTEAD OF IMMEDIATELY RE-TRANSMITTING.THIS!P1831<:* WILL GIVE A NOISY LINE MORE TIME TO SETTLE. !P1831:>* NOTE: RTSPROG PATCH P1832 MUST ALSO BE APPLIED.!P1831> * MODULES AFFECTEÀ.D: DSRMPM.ALSO FIXES STR 13338. !P1831.* !P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0238,!P1831@$V=>06A0,D=>1001,C=>1001 !P1831$EC!P18318MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0242,8À !P1831 "V=@DSRMPM+>081E+>03A0,!P1831"8D=@DSRMPM+>081E+>0372,C=@DSRMPM+>081E+>0372 !P18318EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>02E8,!P1831@$V=>160D,D=>1606,C=>1606 !P1831$EC!P1831À@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>02EE,!P1831@"V=(>C0AA,>003A,>0622),!P1831"*D=(>0203,>0200,>0460),C=>0463 !P1831*EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>02F4,!P1831@V=>0À<012,D=@DSRMPM+>081E+>0416,C=@DSRMPM+>081E+>0416 !P1831<EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>02F6,!P1831@V=(>1202,>0460),!P1831$D=(>05AA,>005E),C=>05F4 !P1831$EC!P1831 MPI PF=I À8MAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>02FA,!P183182V=@DSRMPM+>081E+>029A,D=>10F9,C=>10F9 !P18312EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>03F4,!P1831@"V=(>062A,>003E,>1102),!P1831"D=(>0203,>À 0400,>100E),C=>160D !P1831 EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>04AC,!P1831@"V=(>062A,>003E,>150E),!P1831"*D=(>0203,>0500€%€%,>0460),C=>0363 !P1831*EC!P1831MPI PF=IMAGE,MT=OV,MN=@SÀ(MPM,ADR=@DSRMPM+>081E+>04B2,!P1831(@V=>C1EA,D=@DSRMPM+>081E+>0416,C=@DSRMPM+>081E+>0416 !P1831@EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0538,!P1831@$V=>106F,D=>1005,C=>1005 !P1831$EC!P1831À@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0556,!P1831@$V=>1072,D=>10F6,C=>10F6 !P1831$EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>055C,!P1831@$V=>106F,D=>10F3,C=>10F3 !P1831$ EC!P18 À31@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>056E,!P1831@V=(>028B,>4200),!P1831$D=(>024B,>BD00),C=>BF4B !P1831$EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0650,!P1831@V=>D025,D=>0À6A0,C=>06A0 !P1831EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0652,!P1831@@V=>0006,D=@DSRMPM+>081E+>03FA,C=@DSRMPM+>081E+>03FA !P1831@EC!P18312MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>02À3FA,!P1831$V=>0460,D=>D025,C=>D025 !P1831$EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>03FC,!P1831@2V=@DSRMPM+>081E+>0238,D=>0006,C=>0006 !P18312EC!P1831 MPI PF=IMAGE,MT=OV,MN=@SMPM,AD À"R=@DSRMPM+>081E+>03FE,!P1831""V=(>05AA,>00A4,>0203),!P1831"*D=(>1501,>045B,>0460),C=>153A !P1831*EC!P1831@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0404,!P1831@*V=>0400,D=@DSRMPM+>081E+>0658,C=@DSRMPM+*À>081E+>0658 !P1831EC!P1831*$!P1831J#**********************************************************************J<*=P1833 CAN07/01/82STR #126853.1.1 DX10 !P1833<* !P1833* RTS 3.1.1 - THIS PATCÀ"H ADDS TESTS TO ENSURE !P1833"B* VALID PRB IS STILL ALLOCATED WHEN RECEIVING A DATA !P1833BD* FRAME CONTAINING REPLY TEXT; THIS WILL AVOID POSSIBLE!P1833D& * DX10 CRASH >20 OR >27. !P1833& * MODULES AFFECTED: DSRRTÀS, DSRMPM.!P1833* !P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0542,!P1833@$V=>C061,D=>1001,C=>1001 !P1833$EC!P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0588,!P1833@V=>20A0,D=À>06A0,C=>06A0 !P1833EC!P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>058A,!P1833@"V=@DSRMPM+>0EF6+>0026,!P1833"8D=@DSRMPM+>0EF6+>05E2,C=@DSRMPM+>0EF6+>05E2 !P18338EC!P1833MPI PF=IMAGE,MT=À0OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>05E2,!P18330V=(>10F2,>9807),!P1833$D=(>C021,>0046),C=>C067 !P1833$EC!P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>05E6,!P1833@(V=@DSRMPM+>0EF6+>0010,D=>13EB,C=>13EB (À !P1833 EC!P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>05E8,!P1833@$V=>13ED,D=>0460,C=>0460 !P1833$EC!P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>05EA,!P1833@V=>10DC,D=@DSRMPM+>05EÀ C,C=@DSRMPM+>05EC !P1833EC!P1833:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05EC, !P1833:(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1833(0D=(>C0E1,>0008,>0A73,>1804),C=>D29E !P18330EC!P1833 MPI PF=IMAGE,MT=OV,MÀ& N=@SMPM,ADR=@DSRMPM+>05F4, !P1833&V=(>DEAD,>DEAD),!P1833$D=(>C040,>20A0),C=>E0E0 !P1833$EC!P1833:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05F8, !P1833:8V=>DEAD,D=@DSRMPM+>0EF6+>0026,C=@DSRMPM+>0EF6+>0026 8À !P1833 EC!P1833:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05FA, !P1833:V=(>DEAD,>DEAD),!P1833$D=(>045B,>0460),C=>003B !P1833$EC!P1833:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>05FE, !P1833:V=À>>DEAD,D=@DSRMPM+>0EF6+>05BE,C=@DSRMPM+>0EF6+>05BE !P1833>EC!P1833* !P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0592,!P1833@$V=>131A,D=>1315,C=>1315 !P1833$EC!P1833 MPI PF=IMAGE,MT=OV,MÀ,N=@SMPM,ADR=@DSRMPM+>0EF6+>05C0,!P1833,V=(>001E,>1068),!P1833$D=(>0064,>1000),C=>1064 !P1833$EC!P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>05D6,!P1833@V=(>132A,>9807),!P1833D=(>1302,>À0600),C=>1502 !P1833EC!P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>05DA,!P1833@2V=@DSRMPM+>0EF6+>0016,D=>15F4,C=>15F4 !P18332EC!P1833>MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>05DC,!P1833>€V=(>1603,>06A0),!P1833$D=(>0200,>001E),C=>021E !P1833$EC!P1833@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>05E0,!P1833@2V=@DSRMPM+>0EF6+>05F0,D=>1059,C=>1059 !P18332EC!P1833* !P1833@:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>06B8, !P1833::V=@IOCOM+>002C,D=@DSRRTS+>0816,C=@DSRRTS+>0816!P1833:EC!P1833:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0816, !P1833:$V=>DEAD,D=>5960,C=>5960 !P1833$ECÀ !P1833 :MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0818, !P1833:4V=>DEAD,D=@DSRRTS+>0010,C=@DSRRTS+>0010 !P18334EC!P1833:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>081A, !P1833:&V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1833&À0D=(>000C,>C024,>FFFE,>1302),C=>2CD4 !P18330EC!P1833:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0822, !P1833:$V=>DEAD,D=>0460,C=>0460 !P1833$EC!P18336MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0824, !P186À332V=>DEAD,D=@IOCOM+>002C,C=@IOCOM+>002C !P18332EC!P1833:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0826, !P1833:$V=>DEAD,D=>045B,C=>045B !P1833$EC!P1833*$!P1833****************************À.******************************************.B*=P2280 RJB 10/01/82STR #13722 DX10/RTS 3.1.1 !P2280B* !P2280F* RTS 3.1.1 - UNDER CERTAIN CONDITIONS RTS WILL WIPE OUT !P2280F&* A TSB POINTER RESULTING IN A DX10&À" CRASH >0027 OR >0043.!P2280"(* MODULES AFFECTED: DSRRTS.!P2280(* !P2280:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0666, !P2280:,V=>20A0,D=(>C055,>0460),C=>C435 !P2280,EC!P2280 MPI PF=IMAGE,MT=OV,MÀ& N=@SRTS,ADR=@DSRRTS+>066A, !P2280&4V=>1627,D=@DSRRTS+>0828,C=@DSRRTS+>0828 !P22804EC!P2280:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0828, !P2280:(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P2280( D=(>C061,>0046,>1302,>0460À),C=>D745 !P2280EC!P2280:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0830, !P2280:4V=>DEAD,D=@DSRRTS+>066C,C=@DSRRTS+>066C !P22804EC!P2280:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0832, !P2280:V=>DEAÀ D,D=>0380,C=>0380 !P2280EC!P2280*$!P2280J#**********************************************************************JB*=P2341 RJB 10/08/82STR #13724 DX10/RTS 3.1.1 !P2341B* !P2341* RTS 3.1.1À: - RTS HOST STOPS POLLING WITH LINE ERROR 02. !P2341:0* ASSOCIATED RTSPROG PATCH:P2281.!P23410(* MODULES AFFECTED: DSRRTS.!P2341(* !P2341@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>081E+>0584,!P2341@V=>1À 602,D=>1002,C=>1002 !P2341 EC!P2341*$!P2341J#**********************************************************************JB*=P2365 RJB 10/22/82STR #13723 DX10/RTS 3.1.1 !P2365B* !P2365* DX10 3.À<5 HAS A NEW (DIFFERENT) 911 DSR.THE PURPOSE OF!P2365<B* THIS PATCH IS TO MAKE THE RTS 3.1 911 AND 915 DSR'S!P2365BB* FUNCTIONALLY COMPATIBLE WITH THE DX10 3.5 911 DSR. !P2365B.* ASSOCIATED RTSPROG PATCH:P2141.!P2365.À(* MODULES AFFECTED: DSRRTS.!P2365(* !P2365:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0174, !P2365:<V=@DSRRTS+>01D0,D=@DSRRTS+>0834,C=@DSRRTS+>0834 !P2365<EC!P2365&MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSR&ÀRTS+>0834, !P2365$V=>DEAD,D=>E960,C=>E960 !P2365$EC!P2365:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0836, !P2365:0V=>DEAD,D=@ROOT+>0264,C=@ROOT+>0264 !P23650EC!P2365"MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR="À@DSRRTS+>0838, !P23654V=(>DEAD,>DEAD),D=(>002E,>0460),C=>044E !P23654EC!P2365:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>083C, !P2365:4V=>DEAD,D=@DSRRTS+>01D0,C=@DSRRTS+>01D0 !P23654EC!P2365 MPI PF=I À2MAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>03A6, !P23652$V=>1606,D=>1608,C=>1608 !P2365$EC!P2365*$!P2365J#**********************************************************************J**=P2465 RJB 11/12/82STR #11213 D*€X10/RTS 3.1.1 !P2465* !P2465J* RTS 3.1.1 - RTS SHOULD IGNORE EXTENDED SVC BLOCK USER FLAG.!P2465J(* MODULES AFFECTED: DSRRTS.!P2465(* !P2465:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0228, !P2465:8>@$V=>0220,D=>06A0,C=>06A0 !P2465$EC!P2465:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>022A, !P2465:4V=>0800,D=@DSRRTS+>083E,C=@DSRRTS+>083E !P24654EC!P24658MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@D€%€%SRRTS+>083E, !P24658À$V=>DEAD,D=>20E0,C=>20E0 !P2465$EC!P2465:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0840, !P2465:4V=>DEAD,D=@DSRRTS+>0846,C=@DSRRTS+>0846 !P24654EC!P24652MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0842, 2À !P2465 (V=(>DEAD,>DEAD,>DEAD,>DEAD),!P2465(0D=(>1602,>0220,>0800,>045B),C=>1879 !P24650EC!P2465*$!P2465J#**********************************************************************J*=P2547 RJB 12/15/82À( STR #14261 DX10/RTS 3.1.1!P2547(* !P2547H* RTS WILL NOT WORK PROPERLY WITH GDC 201C-M MODEMS. THERE!P2547HF* IS A PERIOD OF GDC MODEM INSTABILITY FOLLOWING DATA SET!P2547F&* READY. THIS PATCH ESTABLISHES A &À"DELAY BETWEEN DATA SET!P2547"6* READY AND THE FIRST RTS DOWNLOAD POLL. !P25476(* MODULES AFFECTED: DSRMPM.!P2547(* !P2547@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0724,!P2547@V=>C2EA,D=>0460,C=>046À0 !P2547EC!P2547@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0726,!P2547@4V=>0032,D=@DSRMPM+>0600,C=@DSRMPM+>0600 !P25474EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0600, !P2547: V=(>DEAD À,,>DEAD),D=(>882A,>002C),C=>8806 !P2547,EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0604, !P2547:@V=>DEAD,D=@DSRMPM+>0EF6+>0074,C=@DSRMPM+>0EF6+>0074 !P2547@EC!P2547$MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@D$ÀSRMPM+>0606, !P2547$V=>DEAD,D=>1304,C=>1304 !P2547$EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0608, !P2547:4V=(>DEAD,>DEAD),D=(>C2EA,>0032),C=>C2D8 !P25474EC!P2547 MPI PF=IMAGE,MT=OV,MN=@SMPÀ M,ADR=@DSRMPM+>060C, !P2547 $V=>DEAD,D=>0460,C=>0460 !P2547$EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>060E, !P2547:@V=>DEAD,D=@DSRMPM+>0EF6+>0728,C=@DSRMPM+>0EF6+>0728 !P2547@EC!P2547MPI PFÀ4=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0610, !P25474$V=>DEAD,D=>0380,C=>0380 !P2547$EC!P2547@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0066,!P2547@$V=>EAA0,D=>0460,C=>0460 !P2547$EC!P2547 MPI PF=I À8MAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>0068,!P25478:V=@ROOT+>026E,D=@DSRMPM+>0612,C=@DSRMPM+>0612 !P2547:EC!P2547@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>006A,!P2547@$V=>0032,D=>1400,C=>1400 !P2547$À"*EC MODIFIED BY P2589 !P2547":MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0612, !P2547:$V=>DEAD,D=>DAA0,C=>DAA0 !P2547$EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0614, !P2547:V=>DEAD,D=@DSRMPM+>0EF6+>006À$A,C=@DSRMPM+>0EF6+>006A !P2547$EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0616, !P2547:$V=>DEAD,D=>0037,C=>0037 !P2547$EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0618, !P2547: V=>DEAD, ÀD=>C1DA,C=>C1DA !P2547EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>061A, !P2547:4V=(>DEAD,>DEAD),D=(>C1E7,>000E),C=>C1E9 !P25474EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>061E, !P2547:À$V=>DEAD,D=>D9E0,C=>D9E0 !P2547$EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0620, !P2547:@V=>DEAD,D=@DSRMPM+>0EF6+>006A,C=@DSRMPM+>0EF6+>006A !P2547@EC!P2547,MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0,À622, !P2547$V=>DEAD,D=>0006,C=>0006 !P2547$EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0624, !P2547:$V=>DEAD,D=>EAA0,C=>EAA0 !P2547$EC!P25474MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0626, !P4À25474V=>DEAD,D=@DSRMPM+>062E,C=@DSRMPM+>062E !P25474EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0628, !P2547:$V=>DEAD,D=>0032,C=>0032 !P2547$EC!P2547,MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0,À62A, !P2547$V=>DEAD,D=>0460,C=>0460 !P2547$EC!P2547:MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>062C, !P2547:@V=>DEAD,D=@DSRMPM+>0EF6+>006C,C=@DSRMPM+>0EF6+>006C !P2547@EC!P2547MPI PF=IMAGE,MT=OV,MN=À$@SMPM,ADR=@DSRMPM+>062E, !P2547$$V=>DEAD,D=>0080,C=>0080 !P2547$EC!P2547*$!P2547J#**********************************************************************J8*=P2589 RJB 12/31/82 STR #14261 DX10/RTS 3.1.18À !P2589 * !P2589:* INCREASE P2547 DELAY COUNT FOR GDC MODEMS. !P2589:(* MODULES AFFECTED: DSRMPM.!P2589(* !P2589@MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0EF6+>006A,!P2589@V=>1400,D=>2000,C=>2000 À !P2589 EC!P2589*$!P2589J#**********************************************************************JB*=P2722 RJB 03/01/83STR #14189 DX10/RTS 3.1.1 !P2722B* !P2722"* WHEN PRB IS WAITING FOR TRANS"À*MIT BUFFER AND THE I/O REQUEST!P2722*F* IS ABORTED OR TIMED OUT, THE FLAG FOR "PRB WAITING FOR !P2722FJ * BUFFER" IS NOT CLEARED.WHEN THE BUFFER BECOMES AVAILABLE,!P2722J4* RTS TRIES TO ACTIVATE THE WAITING PRB. THE PRB4À POINTER NOW!P2722J* POINTS TO A TSB, AND THE TSB IS DESTROYED. THIS CAN CAUSE !P2722JF* DX10 CRASH >0027 OR >0043, POSSIBLY OTHERS.THIS PATCH!P2722FF* CLEARS FLAG "PRB WAITING FOR BUFFER" ON ABORT OR TIMEOUT.!P2722FÀH* THIS PATCH ALSO ADDRESSES THE PROBLEMS REPORTED IN STR'S !P2722HJ* 13722 AND 14077, AND AND SUPPLEMENTS PATCH P2280.MODULES !P2722J * PATCHED: DSRRTS. !P2722 * !P2722$MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@D$ÀSRRTS+>006E, !P2722$V=>C1C2,D=>06A0,C=>06A0 !P2722$EC!P2722:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0070, !P2722:4V=>0A27,D=@DSRRTS+>084A,C=@DSRRTS+>084A !P27224EC!P2722 MPI PF=IMAGE,MT=OV,MN=@SRTÀ S,ADR=@DSRRTS+>084A, !P2722 $V=>DEAD,D=>5960,C=>5960 !P2722$EC!P2722:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>084C, !P2722:4V=>DEAD,D=@DSRRTS+>0010,C=@DSRRTS+>0010 !P27224EC!P2722 MPI PF=IMAGE,MT=OV€(,MN=@SRTS,ADR=@DSRRTS+>084E, !P2722((V=(>DEAD,>DEAD,>DEAD,>DEAD),!P2722(0D=(>000C,>C1C2,>0A27,>045B),C=>CFB2 !P27220EC!P2722*$!P2722J#**********************************************************************J@J!* *** PATCHES BELOW THIS COMMENT SHIPPED WITH PATCH UPDATE 3.6.0. *JJ#**********************************************************************JB*=P2969 JMR 08/05/83STR #15984 DX10/RTS 3.1.1 !P2969B* !P2969* 3ÀB780 DOES NOT FUNCTION CORRECTLY WHEN EXECUTED FROM RTS!P2969BH* STATION. THIS PATCH CORRECTS LOGIC FOR WRITE WITH REPLY !P2969HH* WHEN REPLY IS 0 LENGTH TO ALLOW CORRECT RESPONSE TO 3780 !P2969H * COMMAND PROMPTS. !P29€698* RTSPROG PATCH 2968 MUST ALSO BE APPLIED. !P29698(* MODULES PATCHED: DSRRTS !P2969(* !P2969:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>01E2, !P2969:$V=>0220,D=>06A0,C=>06A0 !P2969$EC!P2969:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>01E4, !P2969:4V=>1000,D=@DSRRTS+>0856,C=@DSRRTS+>0856 !P29694EC!P2969:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0856, !P2969:4V=(>DEAD,>DEAD),D=(>0220,>1000),C=>1220 !P29694@EC!P2969:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>085A, !P2969:(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P2969(0D=(>C1E1,>000A,>04E7,>0004),C=>C508 !P29690EC!P29698MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0862, !P29698À$V=>DEAD,D=>045B,C=>045B !P2969$EC!P2969*$!P2969J#**********************************************************************JJ!* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH UPDATE 3.6.0. *J**********À@************************************************************@B*=P3448 JMR 02/13/84STR #17467 DX10/RTS 3.1.1 !P3448B* !P3448@* DX10 3.6 PDT IS 1 WORD LONGER THAN DX10 3.5 PDT. !P3448@* WHEN AN RTS DEVICE REÀ.QUESTS STATISTICS FROM OS ROUTINE !P3448.H* 'BRSTAT', THE OS CLOBBERS A VALUE IN THE RTS PDT, CAUSING!P3448H* CRASH >20. !P3448H* THIS PATCH INHIBITS REQUEST FOR STATISTICS FROM 'BRSTAT'.!P3448H* MODULES PATCHÀED: DSRRTS !P3448* !P3448:MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>013E, !P3448:<V=(>020A,@DSRRTS+>0024),D=(>04CA,>1000),C=>14CA !P3448<EC!P3448*$!P3448******************************************€"******************************"J!* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH UPDATE 3.7.0. *JJ#**********************************************************************J4******* ADD ADDITIONAL PATCHES HERE *******4 8@J#**********************************************************************J6******* NEXT AVAILABLE PATCH LOCATION: *******6&******* DSRMPM+>0630 *******&&******* DSRRTS+>0864 *******&****************************À.************************€%€%******************.0******* RTSMEM PATCH LEVEL STAMP !RTSMEM0$.IF @$E$C,EQ,"0" !311B !RTSMEM$<MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0006, !RTSMEM<,V=>3331,D=(>3331,>3142),C=>0273 !RTSMEM,€EC !RTSMEM<MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0006, !RTSMEM<.V=>3331,D=(>3331,>3142),C=>0273 !RTSMEM.EC !RTSMEM.ELSE !3110 !RTSMEM<MPI PF=IMAGE,MT=OV,MN=@SRTS,ADR=@DSRRTS+>0006, !RTSMEM<@.V=>3331,D=(>3331,>3130),C=>0201 !RTSMEM.EC !RTSMEM<MPI PF=IMAGE,MT=OV,MN=@SMPM,ADR=@DSRMPM+>0006, !RTSMEM<.V=>3331,D=(>3331,>3130),C=>0201 !RTSMEM.EC !RTSMEM.ENDIF !RTSMEM ********************À6**************************************************6J***** DELETE SYNONYMS THAT ARE UNIQUE TO THIS BATCH STREAM !RTSMEMJ$.SYN SROOT="",ROOT="" !RTSMEM$$.SYN SRTS="",DSRRTS="" !RTSMEM$".SYN SMPM="",DSRMPM="" !RTSMEM"€BCM R=ME,M="RTS <3.1> RTSMEM PATCH ERROR COUNT=@$E$C" !RTSMEMBEBATCH LS=YES !RTSMEMJ#**********************************************************************J**************J**=P2465 RJB 11/12/82STR #11213 D*ÿÿ† RTSPROG P´` :‚ÀlÖžÀˆÛ@J#**********************************************************************JF* PATCH FILE: DX10/RTS 3.1.0 RTSPROGLAST UPDATE: P2968 08/08/83 FJ#**********************************************************************J ******************À8****************************************************8************"******W A R N I N G ******"************>******THIS PATCH FILE SHOULD BE APPLIED ONLY TO ******>*******SYSTEMS THAT ARE OPERATING WITH *€DX10 3.5************OR LATER. ******************J#**********************************************************************JJ#**********************************************************************J * ! * ="@D* *******S P E C I A L I N S T R U C T I O N S ******* *D * ! * F* THIS IS THE DX10/RTS PROGRAM PATCH FILE. THESE PATCHES ARE *FJ!* AUTOMATICALLY APPLIED DURING RTS <3.1> OBJECT INSTALLATION, AND *J* NEED NOÀ:T BE RE-APPLIED UNLESS NEW RTS PROGRAM PATCHES ARE *:@* RECEIVED FROM T.I. SUBSEQUENT TO THE INITIAL RELEASE. *@ * ! * J!* IF THIS FILE HAS BEEN RECEIVED FROM T.I. SEPARATELY, AS A PATCH *J * UPDATE, THEN FOLLOW THE€ STEPS LISTED BELOW. * * ! * F* STEP 1:COPY THIS PATCH FILE TO THE DATA DISK YOU USED TO *F:* GENERATE YOUR ORIGINAL RTS SYSTEM AS FOLLOWS: *: * ! * * [] CC ** COPY/CONCATENATE *SR @:* INPUT ACCESS NAME(S): *:6* OUTPUT ACCESS NAME: .S$SYSGEN. *6 * S$RTS.PATCH.RTSPROG * * REPLACE?: YES *$* MAXIMUM RECORD LENGTH: *$ * ! * * STEP €B2:APPLY THE PATCHES BY EXECUTING EITHER PROCEDURE (A) OR *B* (B) BELOW: * * ! * * PROCEDURE A ** =========== * * ! * J#* A1. THESE PATCHES MAY BE APPLIED BY EXECUTING THE "RTSPATCH" SCI *J@H* COMMAND AND SPECIFYING "PATCH RTS PROGRAMS ALSO: YES". SEE *HH* THE INSTRUCTIONS AT THE BEGINNING OF THE "RTSMEM" PATCH FILE *H4* FOR EXECUTING THE "RTSPATCH" PROCEDURE. *4 * ! * * PROCEDURE B *À* =========== * * ! * 4* TO APPLY THESE PATCHES, DO THE FOLLOWING: *4 * ! * ,* B1.ASSIGN SYNONYMS AS FOLLOWS: *, * ! * * [] AS * * ASSIGN SYNONYM VALUE * * SYNONYM: $$DSCÀ $ * 8* VALUE: VOLUME NAME OF THE DX10/RTS SYSTEM DISK *8 * ! * * [] AS * * ASSIGN SYNONYM VALUE * * SYNONYM: VOLBLD *6* VALUE: VOLUME NAME OF THE DISK CONTAINING *6* THIS PAÀTCH FILE * * ! * 6* B2.EXECUTE THIS BATCH STREAM AS FOLLOWS: *6 * ! * * [] XB ** EXECUTE BATCH *D* INPUT ACCESS NAME: VOLBLD.S$SYSGEN.S$RTS.PATCH.RTSPROG *D* LISTING ACCESÀ4S NAME: VOLBLD.S$SYSGEN.S$RTS.PATCH.RTSPROGL *4 * ! * $* B3. ENTER THE FOLLOWING: *$ * ! * * [] WAIT * * ! * ** B4. INSPECT THE BATCH LISTING **** VOLBLD.S$SYSGEN.S$RTS.PATCH.RTSPROGL*À FOR ERRORS!! * * ! * J#**********************************************************************JBATCH LS=YES !RTSPROG******** SYNONYM ASSIGNMENT !RTSPROG*Q$SYN !RTSPROG.IF @$$DSC$,EQ,$$DSC$ !DX1À 0/RTS TARGET DISK !RTSPROG .SYN $$DSC$="DS01"!RTSPROG .ENDIF!RTSPROGD.SYN PROGA="@$$DSC$.S$PROGA"!DX10 SYSTEM PROGRAM FILE !RTSPROGDJ#.SYN RTPROG="@$$DSC$.S$RTS.RT$PROG" !RTS SUPPORT PROGRAM FILE !RTSPROGJ.SÀ@YN LDR="@$$DSC$.S$RTS.RT$LDR" !RTS REMOTE LOADER!RTSPROG@:******* DETERMINE WHICH RTC'S ARE INSTALLED !RTSPROG:0AL AN=@$$DSC$.S$RTS.RT$DLC1 ,PF=Y !RTSPROG0,*** 0027 ERROR CAN BE IGNORED !RTSPROG, .IF @$$CC,EQ,00027À!RTSPROG.SYN RTC1=""!RTSPROG.ELSE !RTSPROG0.SYN RTC1="@$$DSC$.S$RTS.RT$DLC1" !RTSPROG0RL L=@$$LU!RTSPROG.ENDIF!RTSPROG0AL AN=@$$DSC$.S$RTS.RT$DLC5 ,PF=Y !RTSPROG0*** 0027 ERROR CAN BE ÀIGNORED !RTSPROG .IF @$$CC,EQ,00027!RTSPROG .SYN RTC5=""!RTSPROG.ELSE !RTSPROG0.SYN RTC5="@$$DSC$.S$RTS.RT$DLC5" !RTSPROG0RL L=@$$LU!RTSPROG.ENDIF!RTSPROGAL AN=@$$DSC$.S$RTS.RT$DLC9 À,PF=Y !RTSPROG,*** 0027 ERROR CAN BE IGNORED !RTSPROG, .IF @$$CC,EQ,00027!RTSPROG .SYN RTC9=""!RTSPROG.ELSE !RTSPROG0.SYN RTC9="@$$DSC$.S$RTS.RT$DLC9" !RTSPROG0RL L=@$$LU!RTSPROG.ENDIFÀ!RTSPROGQ$SYN !RTSPROG>.SYN $E$C="0" !INITIALIZE ERROR COUNT TO ZERO !RTSPROG>J#**********************************************************************J8******* BEGIN PATCHES FOR DX10/RTS 3.1.1 ********8****€F!******************************************************************F* !P1391<*=P1391 CAN09/15/81STR #101413.1.1 DX10 !P1391<* !P1391H* RTS 3.1.1 - FOR REMOTE 911/915 NON-READ-ASCII OPERATIONS,!P1391HL@J* THE RETURNED SYSTEM FLAGS BYTE IS INCORRECTLY ALTERED; THIS!P1391JD* CAUSES FAILURES IN RPGEDIT AND POSSIBLY OTHER TASKS. !P1391D* !P1391 .IF @RTC1,NE,"RTC1" !P1391 .MRF PN=RTC1,RN=0,FW=>1EF0->0160+>082A, !P13.À91$V=>05A1,D=>06A0,C=>06A0 !P1391$EC!P13912MRF PN=RTC1,RN=0,FW=>1EF0->0160+>082C, !P139120V=>0008,D=>1EF0+>0EB2,C=>1EF0+>0EB2 !P13910EC!P13912MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EB2, !P13912V=À (>DEAD,>DEAD,>DEAD),!P1391 *D=(>05A1,>0008,>F860),C=>FDC9 !P1391*EC!P13912MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EB8, !P13912"V=(>DEAD,>DEAD,>DEAD),!P1391"0D=(>0160+>0032,>0002,>045B),C=>05CB !P13910ECÀ !P1391 * !P13912MRF PN=RTC1,RN=0,FW=>1EF0->0160+>09A6, !P13912$V=>1711,D=>1704,C=>1704 !P1391$"*EC MODIFIED BY P2141 !P1391"2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0424, !P13912 V=>1100+>023C,D=>1EF0+>0EBE,C= À>1EF0+>0EBE !P1391EC!P13912MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EBE, !P13912(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1391(6D=(>9811,>0160+>004F,>1303,>5860),C=>D2DD !P13916"*EC MODIFIED BY P2141 !P1391" MRF PN=R À*TC1,RN=0,FW=>1EF0->0160+>0EC6, !P1391*(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1391(<D=(>0160+>0032,>0002,>0460,>1100+>023C),C=>16CC !P1391<"*EC MODIFIED BY P2141 !P1391"* !P1391(MRF PN=RTC1,RN=0,FW=>34CC->0160+>0050,(À !P1391 $V=>0064,D=>FF9C,C=>FF9C !P1391$EC!P13912MRF PN=RTC1,RN=0,FW=>34CC->0160+>0056, !P13912$V=>1A03,D=>1403,C=>1403 !P1391$EC!P13912MRF PN=RTC1,RN=0,FW=>1612->0160+>064A, !P13912V=>1100,D=À>1102,C=>1102 !P1391EC!P1391.ENDIF!P1391* !P1391 .IF @RTC5,NE,"RTC5" !P1391 2MRF PN=RTC5,RN=0,FW=>1F98->0160+>082A, !P13912$V=>05A1,D=>06A0,C=>06A0 !P1391$EC!P1391MRF PN=RTC5,€& RN=0,FW=>1F98->0160+>082C, !P1391&0V=>0008,D=>1F98+>0EB2,C=>1F98+>0EB2 !P13910EC!P13912MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EB2, !P13912"V=(>DEAD,>DEAD,>DEAD),!P1391"*D=(>05A1,>0008,>F860),C=>FDC9 !P1391*OV.EC!P13912MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EB8, !P13912"V=(>DEAD,>DEAD,>DEAD),!P1391"0D=(>0160+>0032,>0002,>045B),C=>05CB !P13910EC!P1391* !P13912MRF PN=RTC5,RN=0,FW=>1F98->0160+>09A6, !P139124@$V=>1711,D=>1704,C=>1704 !P1391$"*EC MODIFIED BY P2141 !P1391"2MRF PN=RTC5,RN=0,FW=>1F98->0160+>0424, !P139126V=>1100+>023C,D=>1F98+>0EBE,C=>1F98+>0EBE !P13916"*EC MODI€%€%FIED BY P2141 !P1391" MRF PN=RTC5,RN=0,FW=À >1F98->0160+>0EBE, !P1391(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1391(6D=(>9811,>0160+>004F,>1303,>5860),C=>D2DD !P13916"*EC MODIFIED BY P2141 !P1391"2MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EC6, !P13912 V=(>DEAD,>DEAD,>DEADÀ,>DEAD),!P1391<D=(>0160+>0032,>0002,>0460,>1100+>023C),C=>16CC !P1391<"*EC MODIFIED BY P2141 !P1391"* !P13912MRF PN=RTC5,RN=0,FW=>3574->0160+>0050, !P13912$V=>0064,D=>FF9C,C=>FF9C !P1391$EC!P1391À2MRF PN=RTC5,RN=0,FW=>3574->0160+>0056, !P13912$V=>1A03,D=>1403,C=>1403 !P1391$EC!P1391.ENDIF!P1391* !P1391 .IF @RTC9,NE,"RTC9" !P1391 2MRF PN=RTC9,RN=0,FW=>26B4->0900+>00D8, !P13912À"V=(>028A,>A100,>1B04),!P1391"0D=(>06A0,>26B4+>1392,>1404),C=>28E2 !P13910EC!P13912MRF PN=RTC9,RN=0,FW=>26B4->0900+>1392, !P13912(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1391(,D=(>02A9,>C269,>FFC0,>0A89),C=>3589 !P13,€91EC!P13912MRF PN=RTC9,RN=0,FW=>26B4->0900+>139A, !P13912(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1391(0D=(>1703,>028A,>A100,>1002),C=>A48B !P13910EC!P13912MRF PN=RTC9,RN=0,FW=>26B4->0900+>13A2, !P13912696@"V=(>DEAD,>DEAD,>DEAD),!P1391"*D=(>028A,>A200,>045B),C=>A4D1 !P1391*EC!P1391* !P13912MRF PN=RTC9,RN=0,FW=>26B4->0900+>0D4E, !P13912$V=>05A1,D=>06A0,C=>06A0 !P1391$EC!P1391MRF PN=RTC9,RN=0À",FW=>26B4->0900+>0D50, !P1391"0V=>0008,D=>26B4+>13A8,C=>26B4+>13A8 !P13910EC!P13912MRF PN=RTC9,RN=0,FW=>26B4->0900+>13A8, !P13912"V=(>DEAD,>DEAD,>DEAD),!P1391"*D=(>05A1,>0008,>F860),C=>FDC9 !P1391*ECÀ !P1391 2MRF PN=RTC9,RN=0,FW=>26B4->0900+>13AE, !P13912"V=(>DEAD,>DEAD,>DEAD),!P1391"0D=(>0900+>0032,>0002,>045B),C=>0D6B !P13910EC!P1391* !P13912MRF PN=RTC9,RN=0,FW=>26B4->0900+>0F00, !P13912À$V=>1711,D=>1704,C=>1704 !P1391$"*EC MODIFIED BY P2141 !P1391"2MRF PN=RTC9,RN=0,FW=>26B4->0900+>08B2, !P139126V=>18EC+>024E,D=>26B4+>13B4,C=>26B4+>13B4 !P13916EC!P1391*MRF PN=RTC9,RN=0,FW=>26B4->0900+>13B4, *€ !P1391 (V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1391(6D=(>9811,>0900+>004F,>1303,>5860),C=>DA3D !P13916"*EC MODIFIED BY P2141 !P1391"2MRF PN=RTC9,RN=0,FW=>26B4->0900+>13BC, !P13912(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1391(*@<D=(>0900+>0032,>0002,>0460,>18EC+>024E),C=>166A !P1391<"*EC MODIFIED BY P2141 !P1391"* !P13912MRF PN=RTC9,RN=0,FW=>3DF8->0900+>0050, !P13912$V=>0064,D=>FF9C,C=>FF9C !P1391$EC!P1391MRF PN=RTC9,RN=0À",FW=>3DF8->0900+>0056, !P1391"$V=>1A03,D=>1403,C=>1403 !P1391$EC!P1391.ENDIF!P1391*$!P1391J#**********************************************************************J* !P1398*=P1398 CAN10À,/05/81STR #103683.1.1 DX10 !P1398,* !P1398D* RTS 3.1.1 - THIS PATCH SUPPLIES A DEFAULT OF LP$1 TO !P1398DB* XRTSGEN PROC LISTING ACCESS NAME; THIS WILL PREVENT!P1398B** INADVERTENT 'P' COMMAND FROM ABORTING*À RTSGEN TASK. !P1398* !P1398 .USE @$$DSC$.S$PROC !P1398 .PROC !P13986XRTSGEN (EXECUTE RTS PRE-SYSGEN <3.1>)=6, !(P1398)6&TARGET DISK NAME=*NAME("@$$DSC$"),&$LISTING ACCESS NAME=*ACNM(LP$1) $.IÀ F "&TARGET DISK NAME",EQ,"" .SYN $$DSC$="DS01" .ELSE % $.SYN $$DSC$="@&TARGET DISK NAME"$ .ENDIF% .OVLY OVLY=>1B, 6PARMS=(6,,"@$$DSC$.S$RTS.RT$PROG",Y,"$$LU",Y,"N") 6 .SYN UNIT10="@ME" .SYN UNIT2À0="@ME" &.SYN UNIT6="@&LISTING ACCESS NAME"&.BID TASK=>2,LUNO=@$$LU :MSG TEXT=" **** RTS <3.1> PRE-SYSGEN TERMINATED ****" :*.OVLY OVLY=>1B,LUNO=0,PARMS=(30,@$$LU)*.SYN UNIT10=""!.SYN UNIT20=""!.SYN U€NIT6="" !.EOP!P1398.USE!P1398*$!P1398J#**********************************************************************J* !P1438<*=P1438 CAN10/22/81STR #106153.1.1 DX10 !P1438<* !P1438@D* RTS 3.1.1 - WHEN WRITE DIRECT, ISSUED TO REMOTE VDT, !P1438DH* CONTAINS A STRING OF ONE OR MORE >7F DATA CHARACTERS, THE!P1438H8* LAST >7F IN THE STRING IS NOT DISPLAYED. !P14388* !P1438 .IF @RTC1,NE,"RTC1" À !P1438 2MRF PN=RTC1,RN=0,FW=>1100->0160+>0152, !P14382$V=>0600,D=>0460,C=>0460 !P1438$EC!P14382MRF PN=RTC1,RN=0,FW=>1100->0160+>0154, !P14382*V=>D133,D=>0160+>0252,C=>03B2 !P1438*EC!P1438MRF À.PN=RTC1,RN=0,FW=>0160->0160+>0252, !P1438.(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1438(0D=(>0600,>D133,>0984,>0460),C=>DAD7 !P14380EC!P14382MRF PN=RTC1,RN=0,FW=>0160->0160+>025A, !P14382 V=>DEAD,D=>1100+>015A,C=>125A À !P1438 EC!P1438.ENDIF!P1438* !P1438 .IF @RTC5,NE,"RTC5" !P1438 2MRF PN=RTC5,RN=0,FW=>1100->0160+>0152, !P14382$V=>0600,D=>0460,C=>0460 !P1438$EC!P1438MRF PN=RTC5,RN=0,FW=>1100->0À160+>0154, !P1438*V=>D133,D=>0160+>0252,C=>03B2 !P1438*EC!P14382MRF PN=RTC5,RN=0,FW=>0160->0160+>0252, !P14382(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1438(0D=(>0600,>D133,>0984,>0460),C=>DAD7 !P14380 EC!P14 À382MRF PN=RTC5,RN=0,FW=>0160->0160+>025A, !P14382*V=>DEAD,D=>1100+>015A,C=>125A !P1438*EC!P1438.ENDIF!P1438* !P1438 .IF @RTC9,NE,"RTC9" !P1438 .MRF PN=RTC9,RN=0,FW=>18EC->0900+>0152, !P14.À38$V=>0600,D=>0460,C=>0460 !P1438$EC!P14382MRF PN=RTC9,RN=0,FW=>18EC->0900+>0154, !P14382*V=>D133,D=>0900+>02DC,C=>0BDC !P1438*EC!P14382MRF PN=RTC9,RN=0,FW=>0900->0900+>02DC, !P14382 V=(>DEAD À ,>DEAD,>DEAD,>DEAD),!P1438 0D=(>0600,>D133,>0984,>0460),C=>DAD7 !P14380EC!P14382MRF PN=RTC9,RN=0,FW=>0900->0900+>02E4, !P14382*V=>DEAD,D=>18EC+>015A,C=>1A46 !P1438*EC!P1438.ENDIF!P1438*$À !P1438 J#**********************************************************************J* !P1440<*=P1440 CAN10/22/81STR #106173.1.1 DX10 !P1440<* !P1440:* RTS 3.1.1 - FOR REMOTE VDTS, THIS PATCH PREVENTS BLAN:€KS FROM !P1440H* BEING CONVERTED TO LOW INTENSITY ON EXTENDED WRITE ASCII.!P1440H* !P1440 .IF @RTC1,NE,"RTC1" !P1440 2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0246, !P14402(V=(>0285,>A000,>1604,>C2E4),!P1440(HE,@0D=(>C2E4,>003C,>0ABB,>1703),C=>DF60 !P14400EC!P14402MRF PN=RTC1,RN=0,FW=>1EF0->0160+>024E, !P14402V=(>003C,>0ABB),!P1440$D=(>1000,>06A0),C=>16A0 !P1440$EC!P1440$MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0$€252, !P1440*V=>1801,D=>1EF0+>0ECE,C=>2DBE !P1440*EC!P14402MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0ECE, !P14402(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1440(0D=(>0285,>A000,>1303,>0285),C=>B303 !P14400EC!P1440@2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0ED6, !P14402(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1440(0D=(>2000,>1601,>05CB,>045B),C=>3791 !P14400EC!P1440.ENDIF!P1440* !P1440 .IF @RTC5,NE,"RTC5" !P1440 MRF €.PN=RTC5,RN=0,FW=>1F98->0160+>0246, !P1440.(V=(>0285,>A000,>1604,>C2E4),!P1440(0D=(>C2E4,>003C,>0ABB,>1703),C=>DF60 !P14400EC!P14402MRF PN=RTC5,RN=0,FW=>1F98->0160+>024E, !P14402V=(>003C,>0ABB),!P1440 @$D=(>1000,>06A0),C=>16A0 !P1440$EC!P14402MRF PN=RTC5,RN=0,FW=>1F98->0160+>0252, !P14402*V=>1801,D=>1F98+>0ECE,C=>2E66 !P1440*EC!P14402MRF PN=RTC5,RN=0,FW=>1F98->0160+>0ECE, !P14402 V=(>DEAD,>DEAD,>DEÀAD,>DEAD),!P14400D=(>0285,>A000,>1303,>0285),C=>B303 !P14400EC!P14402MRF PN=RTC5,RN=0,FW=>1F98->0160+>0ED6, !P14402(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1440(0D=(>2000,>1601,>05CB,>045B),C=>3791 !P14400ECÀ !P1440 .ENDIF!P1440* !P1440 .IF @RTC9,NE,"RTC9" !P1440 2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0698, !P14402(V=(>0285,>A000,>1604,>C2E4),!P1440(0D=(>C2E4,>003C,>0ABB,>1703),C=>DF60 !P14400 EC!P14 €402MRF PN=RTC9,RN=0,FW=>26B4->0900+>06A0, !P14402V=(>003C,>0ABB),!P1440$D=(>1000,>06A0),C=>16A0 !P1440$EC!P14402MRF PN=RTC9,RN=0,FW=>26B4->0900+>06A4, !P14402*V=>1801,D=>26B4+>13C4,C=>3A78 !P1440*@EC!P14402MRF PN=RTC9,RN=0,FW=>26B4->0900+>13C4, !P14402(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1440(0D=(>0285,>A000,>1303,>0285),C=>B303 !P14400EC!P14402MRF PN=RTC9,RN=0,FW=>26B4->0900+>13CC, !P14402 V=(>DEAD À ,>DEAD,>DEAD,>DEAD),!P1440 0D=(>2000,>1601,>05CB,>045B),C=>3791 !P14400EC!P1440.ENDIF!P1440*$!P1440J#**********************************************************************J* !P1447*=P144€%€%À67 CAN10/26/81STR #106353.1.1 DX10 !P14476* !P1447H* RTS 3.1.1 - IMPROPER INITIALIZATION OF COMM I/F CAN CAUSE!P1447HF* BAD DATA FRAME HEADER SEQUENCE TO BE TRANSMITTED BY RTC!P1447F* AT 9600 BPS. !P14À47* !P1447& MRF PN=LDR,RN=0,FW=>0878, !P1447&$V=>3031,D=>3131,C=>3131 !P1447$EC!P1447& MRF PN=LDR,RN=0,FW=>0888, !P1447&$V=>4343,D=>4342,C=>4342 !P1447$EC!P1447 MRF PN=LDR,RN=0,FW=>À14EA, !P1447V=(>3332,>3142),!P1447$D=(>3330,>3542),C=>0672 !P1447$EC!P1447& MRF PN=LDR,RN=0,FW=>151E, !P1447&$V=>3539,D=>3537,C=>3537 !P1447$EC!P1447*$!P1447 ******************À8****************************************************8* !P1487<*=P1487 CAN11/12/81STR #107983.1.1 DX10 !P1487<* !P1487D* RTS 3.1.1 - IMPROPER INITIALIZATION OF 9903 CAN CAUSE!P1487D* DOWNLOAD FAILÀ2URE ON RTC/5 USING -1, -2 LOADER ROMS.!P14872B* SYMPTOM IS RTS ERROR 88 AFTER 5-10 FRAMES HAVE BEEN!P1487B* DOWNLOADED.!P1487* !P1487& MRF PN=LDR,RN=0,FW=>13F2, !P1487&V=(>3133,>3134),!P1487D=€"(>3130,>3030),C=>0100 !P1487"EC!P1487& MRF PN=LDR,RN=0,FW=>13F8, !P1487&(V=(>4431,>4642,>4333,>3043),!P1487(0D=(>4432,>3042,>3144,>3237),C=>7703 !P14870EC!P1487& MRF PN=LDR,RN=0,FW=>1402, !P1487&@V=(>4432,>3742),!P1487$D=(>4430,>4542),C=>0172 !P1487$EC!P1487& MRF PN=LDR,RN=0,FW=>141C, !P1487&$V=>3442,D=>3637,C=>3637 !P1487$EC!P1487*$!P1487******************************************À"******************************"* !P1547<*=P1547 CAN12/21/81STR #110483.1.1 DX10 !P1547<* !P1547B* RTS 3.1.1 - CORRECT LOGIC IN REMOTE TO ALLOW PROPER!P1547B** HANDLING OF REMOTE PRINTER TIMEOUT. *À !P1547 >* NOTE: RTSMEM PATCH P1546 MUST ALSO BE APPLIED. !P1547>* !P1547 .IF @RTC1,NE,"RTC1" !P1547 2MRF PN=RTC1,RN=0,FW=>0A02->0160+>029A, !P15472$V=>5820,D=>49E0,C=>49E0 !P1547$EC!P1547MRÀ0F PN=RTC1,RN=0,FW=>0A02->0160+>029C, !P154706V=>0160+>002E,D=>0160+>0028,C=>0160+>0028 !P15476EC!P15472MRF PN=RTC1,RN=0,FW=>0A02->0160+>029E, !P15472*V=>0160+>018E,D=>000A,C=>000A !P1547*EC!P1547.EÀNDIF!P1547* !P1547 .IF @RTC5,NE,"RTC5" !P1547 2MRF PN=RTC5,RN=0,FW=>0A02->0160+>029A, !P15472$V=>5820,D=>49E0,C=>49E0 !P1547$EC!P15472MRF PN=RTC5,RN=0,FW=>0A02->0160+>029C, !P15472 V=>0160+ À.>002E,D=>0160+>0028,C=>0160+>0028 !P1547.EC!P15472MRF PN=RTC5,RN=0,FW=>0A02->0160+>029E, !P15472*V=>0160+>018E,D=>000A,C=>000A !P1547*EC!P1547.ENDIF!P1547* !P1547 .IF @RTC9,NE,"RTC9" À !P1547 2MRF PN=RTC9,RN=0,FW=>122C->0900+>02CA, !P15472$V=>5820,D=>49E0,C=>49E0 !P1547$EC!P15472MRF PN=RTC9,RN=0,FW=>122C->0900+>02CE, !P15472*V=>0900+>018E,D=>000A,C=>000A !P1547*EC!P1547.ENDÀIF!P1547*$!P1547J#**********************************************************************J* !P1552<*=P1552 CAN12/22/81STR #110563.1.1 DX10 !P1552<* !P1552$* RTS 3.1.1 - FOR REMOTE VDTS, TH$€$IS PATCH STRIPS TRAILING!P1552$J#* NULLS AND CONVERTS EMBEDDED NULLS TO SPACES IF THESE OPTIONS !P1552J* ARE SET. !P1552* !P1552 .IF @RTC1,NE,"RTC1" !P1552 2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0952, !P15522@(V=(>0285,>A000,>1601,>4149),!P1552(0D=(>DE85,>05A1,>0008,>0607),C=>DD2B !P15520EC!P15522MRF PN=RTC1,RN=0,FW=>1EF0->0160+>095A, !P15522(V=(>DE85,>05A1,>0008,>0607),!P1552(&D=(>15D8,>C1E4,>003C,>0AB7),C=>DEB7 &À !P1552 "*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0962, !P15522"V=(>15D4,>C2E4,>003C),!P1552"*D=(>170E,>060A,>981A),C=>891E !P1552*"*EC MODIFIED BY P2141 !P1552" MRF PN=RTC1,RN=0,FW=À >1EF0->0160+>0968, !P15520V=>0ABB,D=>1EF0+>0978,C=>1EF0+>0978 !P15520"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>096A, !P15522"V=(>170A,>060A,>981A),!P1552""D=(>1603,>0621,>0008),C=>102A "À !P1552 EC!P15522MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0970, !P15522* V=>1EF0+>072E,D=>15F9,C=>15F9!P1552*EC!P15522MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0972, !P15522(V=(>1606,>0621,>0008,>15F9),!P1552(À0D=(>C1E1,>0008,>0208,>A000),C=>63E1 !P15520"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>097A, !P15522$V=>5860,D=>06A0,C=>06A0 !P1552$"*EC MODIFIED BY P2141 !P1552" MRF PN=RTC1,RN=0,FW=>1EF0-À>0160+>097C, !P15526V=>0160+>0032,D=>1EF0+>0EDE,C=>1EF0+>0EDE !P15526"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>097E, !P15522$V=>0002,D=>1000,C=>1000 !P1552$ *EC MODIFIED BY P2141 !P1552 À2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EDE, !P15522(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1552(0D=(>921A,>1601,>5689,>060A),C=>D498 !P15520EC!P15522MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EF6, !P15522 V=(>DEAD,>DEAD,>DEADÀ),!P1552*D=(>0607,>15FA,>045B),C=>17A6 !P1552*"*EC MODIFIED BY P2141 !P1552".ENDIF!P1552* !P1552 .IF @RTC5,NE,"RTC5" !P1552 2MRF PN=RTC5,RN=0,FW=>1F98->0160+>0952, !P15522V=(>0285,>A000,>À1601,>4149),!P15520D=(>DE85,>05A1,>0008,>0607),C=>DD2B !P15520EC!P15522MRF PN=RTC5,RN=0,FW=>1F98->0160+>095A, !P15522(V=(>DE85,>05A1,>0008,>0607),!P1552(0D=(>15D8,>C1E4,>003C,>0AB7),C=>DEB7 !P15520À"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC5,RN=0,FW=>1F98->0160+>0962, !P15522"V=(>15D4,>C2E4,>003C),!P1552"*D=(>170E,>060A,>981A),C=>891E !P1552*"*EC MODIFIED BY P2141 !P1552"$MRF PN=RTC5,RN=0,FW=>1F98->0160+>0$À968, !P15520V=>0ABB,D=>1F98+>0978,C=>1F98+>0978 !P15520"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC5,RN=0,FW=>1F98->0160+>096A, !P15522"V=(>170A,>060A,>981A),!P1552"*D=(>1603,>0621,>0008),C=>102A !P1552*ÀEC!P15522MRF PN=RTC5,RN=0,FW=>1F98->0160+>0970, !P15522* V=>1F98+>072E,D=>15F9,C=>15F9!P1552*EC!P15522MRF PN=RTC5,RN=0,FW=>1F98->0160+>0972, !P15522(V=(>1606,>0621,>0008,>15F9),!P1552(D=(>C1E1,>0008À",>0208,>A000),C=>63E1 !P1552""*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC5,RN=0,FW=>1F98->0160+>097A, !P15522$V=>5860,D=>06A0,C=>06A0 !P1552$"*EC MODIFIED BY P2141 !P1552"*MRF PN=RTC5,RN=0,FW=>1F98->0160+>097C, *À !P1552 6V=>0160+>0032,D=>1F98+>0EDE,C=>1F98+>0EDE !P15526"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC5,RN=0,FW=>1F98->0160+>097E, !P15522$V=>0002,D=>1000,C=>1000 !P1552$"*EC MODIFIED BY P2141 !P1552"MRF PN€,=RTC5,RN=0,FW=>1F98->0160+>0EDE, !P1552,(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1552(0D=(>921A,>1601,>5689,>060A),C=>D498 !P15520EC!P15522MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EF6, !P15522"V=(>DEAD,>DEAD,>DEAD),!P1552"@*D=(>0607,>15FA,>045B),C=>17A6 !P1552*"*EC MODIFIED BY P2141 !P1552".ENDIF!P1552* !P1552 .IF @RTC9,NE,"RTC9" !P1552 2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EA8, !P15522$V=(>0285,>A000,>1601,>4149),!P15$À520D=(>DE85,>05A1,>0008,>0607),C=>DD2B !P15520EC!P15522MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EB0, !P15522(V=(>DE85,>05A1,>0008,>0607),!P1552(0D=(>15C8,>C1E4,>003C,>0AB7),C=>DEA7 !P15520 *EC MODIFIED BY P2€141 !P15522MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EB8, !P15522"V=(>15C4,>C2E4,>003C),!P1552"*D=(>170E,>060A,>981A),C=>891E !P1552*"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EBE, !P15522>06@0V=>0ABB,D=>26B4+>0ECE,C=>26B4+>0ECE !P15520"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EC0, !P15522"V=(>170A,>060A,>981A),!P1552"*D=(>1603,>0621,>0008),C=>102A !P1552*EC!P1552MRÀ0F PN=RTC9,RN=0,FW=>26B4->0900+>0EC6, !P15520* V=>26B4+>0C2A,D=>15F9,C=>15F9!P1552*EC!P15522MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EC8, !P15522(V=(>1606,>0621,>0008,>15F9),!P1552($D=(>C1E1,>0008,>0208,>A000),C=>63E$À1 !P1552"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0ED0, !P15522$V=>5860,D=>06A0,C=>06A0 !P1552$"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0ED2, !P15522V=>090À00+>0032,D=>26B4+>13D4,C=>26B4+>13D4 !P15520"*EC MODIFIED BY P2141 !P1552"2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0ED4, !P15522$V=>0002,D=>1000,C=>1000 !P1552$"*EC MODIFIED BY P2141 !P1552" MRF PN=RTC9,RN=0,FW=>26B4-À>0900+>13D4, !P1552(V=(>DEAD,>DEAD,>DEAD€%€%,>DEAD),!P1552(0D=(>921A,>1601,>5689,>060A),C=>D498 !P15520EC!P15522MRF PN=RTC9,RN=0,FW=>26B4->0900+>13DC, !P15522"V=(>DEAD,>DEAD,>DEAD),!P1552"D=(>0607,>15FA€,>045B),C=>17A6 !P1552EC!P1552.ENDIF!P1552*$!P1552J#**********************************************************************J* !P1672<*=P1672 CAN06/22/82STR #115533.1.1 DX10 !P1672<13@@* !P1672F* RTS 3.1.1 - THIS PATCH HELPS POTENTIAL 201-C MODEM DATA!P1672FJ* SENSITIVITY BY INSERTING DLE-SYN EVERY 4TH EQUAL CHARACTER !P1672JJ* TRANSMITTED. ALSO, FOR RTC'S, THIS PATCH RELOCATES 3 WORDS !P1672J€ * OF PATCH P1552.!P1672* !P1672 .IF @RTC1,NE,"RTC1" !P1672 2MRF PN=RTC1,RN=0,FW=>1612->0160+>02C2, !P16722$V=>1625,D=>1624,C=>1624 !P1672$EC!P16722MRF PN=RTC1,RN=0,FW=>1612->0160+>02EC, !P16722@$V=>1610,D=>160F,C=>160F !P1672$EC!P16722MRF PN=RTC1,RN=0,FW=>1612->0160+>02FA, !P16722V=(>D1F4,>9807),!P1672$D=(>1018,>0603),C=>161B !P1672$EC!P16720MRF PN=RTC1,RN=0,FW=>1612->0160+>02FE, !P16720À*V=>1612+>0010,D=>1519,C=>1519 !P1672*EC!P16722MRF PN=RTC1,RN=0,FW=>1612->0160+>0300, !P16722V=(>1602,>06A0),!P1672$D=(>C000,>1634),C=>D634 !P1672$EC!P1672$MRF PN=RTC1,RN=0,FW=>1612->0160+>0$À304, !P1672*V=>1612+>03AE,D=>C0A0,C=>C0A0 !P1672*EC!P16722MRF PN=RTC1,RN=0,FW=>1612->0160+>0306, !P167220 V=>06A0,D=>0160+>007C,C=>0160+>007C!P16720EC!P1672*MRF PN=RTC1,RN=0,FW=>1612->0160+>0308, *À !P1672 *V=>1612+>03C6,D=>1000,C=>1000 !P1672*EC!P16722MRF PN=RTC1,RN=0,FW=>1612->0160+>030A, !P16722V=(>0603,>15F6),!P1672$D=(>1000,>C002),C=>D002 !P1672$EC!P1672 MRF PN=RTC1,RN=0,FW=>1612-À>0160+>033E, !P1672V=(>000B,>1108),!P1672$D=(>0003,>110A),C=>1109 !P1672$EC!P16722MRF PN=RTC1,RN=0,FW=>1612->0160+>0352, !P16722$V=>D807,D=>04C2,C=>04C2 !P1672$EC!P1672 MRF PN=RTC1,RN=0,FÀ W=>1612->0160+>0354, !P1672 *V=>1612+>0025,D=>1000,C=>1000 !P1672*EC!P16722MRF PN=RTC1,RN=0,FW=>1612->0160+>0356, !P16722$V=>0202,D=>D807,C=>D807 !P1672$EC!P1672&MRF PN=RTC1,RN=0,FW=>1612->0160+>035&€8, !P16720V=>0001,D=>1612+>0025,C=>1612+>0025 !P16720EC!P16722MRF PN=RTC1,RN=0,FW=>1612->0160+>0368, !P16722$V=>0603,D=>10C9,C=>10C9 !P1672$* !P16722MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EE6, !P16722@"V=(>DEAD,>DEAD,>DEAD),!P1672"*D=(>0607,>15FA,>045B),C=>17A6 !P1672*EC!P1672.ENDIF!P1672* !P1672 .IF @RTC5,NE,"RTC5" !P1672 2MRF PN=RTC5,RN=0,FW=>1612->0160+>02A6, !P16722V=>1625,D=>1624,ÀC=>1624 !P1672EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>02D0, !P16722$V=>1610,D=>160F,C=>160F !P1672$EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>02DE, !P16722V=(>D1F4,>9807),!P1672 D=(>1018 €,>0603),C=>161B !P1672EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>02E2, !P16722*V=>1612+>000A,D=>1519,C=>1519 !P1672*EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>02E4, !P16722V=(>1602,>06A0),!P1672@$D=(>C000,>1634),C=>D634 !P1672$EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>02E8, !P16722*V=>1612+>038A,D=>C0A0,C=>C0A0 !P1672*EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>02EA, !P16722 V=>06A0,D=>0160+>À 007C,C=>0160+>007C!P1672EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>02EC, !P16722*V=>1612+>03A4,D=>1000,C=>1000 !P1672*EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>02EE, !P16722V=(>0603,>15F6),!P1672À$D=(>1000,>C002),C=>D002 !P1672$EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>0322, !P16722V=(>000B,>1108),!P1672$D=(>0003,>110A),C=>1109 !P1672$EC!P1672*MRF PN=RTC5,RN=0,FW=>1612->0160+>0336, *À !P1672 $V=>D807,D=>04C2,C=>04C2 !P1672$EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>0338, !P16722*V=>1612+>001F,D=>1000,C=>1000 !P1672*EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>033A, !P16722V=>0À 202,D=>D807,C=>D807 !P1672 EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>033C, !P167220V=>0001,D=>1612+>001F,C=>1612+>001F !P16720EC!P16722MRF PN=RTC5,RN=0,FW=>1612->0160+>034C, !P16722V=>0603,D=>10C9,ÀC=>10C9 !P1672* !P16722MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EE6, !P16722"V=(>DEAD,>DEAD,>DEAD),!P1672"*D=(>0607,>15FA,>045B),C=>17A6 !P1672*EC!P1672.ENDIF!P1672* !P1672.IF @RTC9,€NE,"RTC9" !P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>02DA, !P16722$V=>1625,D=>1624,C=>1624 !P1672$EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>0304, !P16722$V=>1610,D=>160F,C=>160F !P1672$EC!P1672 -@2MRF PN=RTC9,RN=0,FW=>1E08->0900+>0312, !P16722V=(>D1F4,>9807),!P1672$D=(>1018,>0603),C=>161B !P1672$EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>0316, !P16722*V=>1E08+>000C,D=>1519,C=>1519 !P1672*ECÀ !P1672 2MRF PN=RTC9,RN=0,FW=>1E08->0900+>0318, !P16722V=(>1602,>06A0),!P1672$D=(>C000,>1634),C=>D634 !P1672$EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>031C, !P16722&V=>1E08+>03C0,D=>C0A0,C=>C0A0 !P16&€72EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>031E, !P167220 V=>06A0,D=>0900+>007C,C=>0900+>007C!P16720EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>0320, !P16722*V=>1E08+>03DC,D=>1000,C=>1000 !P1672*,@EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>0322, !P16722V=(>0603,>15F6),!P1672$D=(>1000,>C002),C=>D002 !P1672$EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>0356, !P16722V=(>000B,>1108),!P1672À$D=(>0003,>110A),C=>1109 !P1672$EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>036A, !P16722$V=>D807,D=>04C2,C=>04C2 !P1672$EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>036C, !P16722V=>1E08+>0021,D=>1000,C=À>1000 !P1672EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>036E, !P16722$V=>0202,D=>D807,C=>D807 !P1672$EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>0370, !P16722,V=>0001,D=>1E08+>0021,C=>1E08+>0021 !P16,À72EC!P16722MRF PN=RTC9,RN=0,FW=>1E08->0900+>0380, !P16722$V=>0603,D=>10C9,C=>10C9 !P1672$EC!P1672.ENDIF!P1672*$!P1672F"********************************************************************F€*** !P1830<*=P1830 CAN07/01/82STR #126823.1.1 DX10 !P1830<* !P1830B* RTS 3.1.1 - THIS PATCH CHANGES THE SLAVE DATA LINK !P1830BB* LOGIC TO START CRC COMPUTATION AFTER THE SOH CHAR, !P1830BF@8* AND INCREASE POLL TIMEOUT TO 20 SECONDS. !P183084* ALSO ON RTC/5, CLEAR RECEIVER TWICE. !P18304>* NOTE: RTSMEM PATCH P1762 MUST ALSO BE APPLIED. !P1830>* !P1830* XMT SIDE!P1830* !P1830.IF À@RTC1,NE,"RTC1" !P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0016, !P18302$V=>00C8,D=>0190,C=>0190 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>01F8, !P18302$V=>C820,D=>1002,C=>1002 !P1830$EC!P1830À2MRF PN=RTC1,RN=0,FW=>1612->0160+>022C, !P18302$V=>130F,D=>130E,C=>130E !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0234, !P18302$V=>3207,D=>0460,C=>0460 !P1830$EC!P1830 MRF PN=RTC1,RN=0,FÀ W=>1612->0160+>0236, !P1830 0V=>1E0B,D=>1612+>03C8,C=>1612+>03C8 !P18300EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>024A, !P18302$V=>0380,D=>04C6,C=>04C6 !P1830$EC!P1830 MRF PN=RTC1,RN=0,FW=>1612->016 À0+>027E, !P18306 V=>1612+>03B2,D=>1612+>03C6,C=>1612+>03C6 !P18306EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0286, !P183026V=>1612+>03B2,D=>1612+>03C6,C=>1612+>03C6 !P18306EC!P1830 MRF PN=RTC1,RN=0,FÀ W=>1612->0160+>028E, !P1830 6V=>1612+>03B2,D=>1612+>03C6,C=>1612+>03C6 !P18306EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0290, !P18302$V=>04C6,D=>1000,C=>1000 !P1830$EC!P1830MRF PN=RTC1,RN=0,FW=>161À2->0160+>0396, !P1830$V=>0720,D=>1001,C=>1001 !P1830$EC!P1830* !P1830* RCV SIDE!P1830* !P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0406, !P18302$V=>C820,D=>1002,C=>1002 !P1830$ECÀ !P1830 2MRF PN=RTC1,RN=0,FW=>1612->0160+>04A8, !P183026V=>1612+>059A,D=>0160+>025E,C=>0160+>025E !P18306EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>04C4, !P183024V=>1612+>059A,D=>0160+>025E,C=>0160+>025E !P18304ÀEC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>04E0, !P183026V=>1612+>059A,D=>0160+>0€%€%25E,C=>0160+>025E !P18306EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0534, !P18302*V=>1612+>059A,D=>0160+>025C,C=>0160+>025*ÀC !P1830EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>025C, !P18302V=(>DEAD,>DEAD),!P1830$D=(>04C6,>C820),C=>CCE6 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0260, !P18302V=>DEAD,D=>016À"0+>0016,C=>0160+>0016 !P1830"EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0262, !P183020V=>DEAD,D=>0160+>0188,C=>0160+>0188 !P18300EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0264, !P18302V=>DEAD,D=>046À0,C=>0460 !P1830EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0266, !P183020V=>DEAD,D=>1612+>03FE,C=>1612+>03FE !P18300EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0542, !P18302 V=>1612+>059A,D=>1612+>03FÀE,C=>1612+>03FE !P1830EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0544, !P18302V=(>0987,>C807),!P1830$D=(>1000,>D807),C=>C807 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0548, !P18302À6V=>1612+>002A,D=>1612+>002B,C=>1612+>002B !P18306EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>054C, !P183026V=>1612+>059A,D=>1612+>03FE,C=>1612+>03FE !P18306EC!P1830,MRF PN=RTC1,RN=0,FW=>1612->0160+>0564, !P,€1830$V=>1304,D=>1302,C=>1302 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0570, !P183026V=>1612+>0628,D=>0160+>0268,C=>0160+>0268 !P18306EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0268, !P18302@$V=>DEAD,D=>C806,C=>C806 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>026A, !P183020V=>DEAD,D=>1612+>0594,C=>1612+>0594 !P18300EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>026C, !P18302V=>DEAD,D=>0À460,C=>0460 !P1830EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>026E, !P183020V=>DEAD,D=>1612+>0628,C=>1612+>0628 !P18300EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>0584, !P18302V=>1612+>059A,D=>0160+>0€ 270,C=>0160+>0270 !P1830EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0270, !P18302V=(>DEAD,>DEAD),!P1830$D=(>04C7,>D1E0),C=>D527 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0274, !P18302>06@.V=>DEAD,D=>0160+005B,C=>0160+>005B !P1830.EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0276, !P18302$V=>DEAD,D=>C1A0,C=>C1A0 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>0278, !P18302V=>DEAD,D=>161À"2+>0594,C=>1612+>0594 !P1830"EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>027A, !P18302$V=>DEAD,D=>0460,C=>0460 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>0160->0160+>027C, !P18302 V=>DEAD,D=>1612+>03FE,C=>1À612+>03FE !P1830EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>058C, !P18302(V=(>04C6,>04C7,>C125,>000A),!P1830(0D=(>04C3,>C125,>000A,>1005),C=>D5E9 !P18300EC!P1830&MRF PN=RTC1,RN=0,FW=>1612->0160+>061&ÀA, !P1830$V=>0720,D=>D800,C=>D800 !P1830$EC!P18302MRF PN=RTC1,RN=0,FW=>1612->0160+>061C, !P183026V=>0160+>0188,D=>0160+>018F,C=>0160+>018F !P18306EC!P1830.ENDIF!P1830* !P1830* ÀXMT SIDE!P1830* !P1830 .IF @RTC5,NE,"RTC5" !P1830 2MRF PN=RTC5,RN=0,FW=>0160->0160+>0016, !P18302$V=>00C8,D=>0190,C=>0190 !P1830$EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>01DC, !P18302V=>CÀ 820,D=>1002,C=>1002 !P1830 EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>020C, !P18302$V=>1310,D=>130F,C=>130F !P1830$EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0214, !P18302V=>1D19,D=>0460,C=>0460 !PÀ1830EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0216, !P183020V=>3207,D=>1612+>03A6,C=>1612+>03A6 !P18300EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>022C, !P18302$V=>0380,D=>04C6,C=>04C6 !P1830$ÀEC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0262, !P183026 V=>1612+>038E,D=>1612+>03A4,C=>1612+>03A4 !P18306EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>026A, !P183020V=>1612+>038E,D=>1612+>03A4,C=>1612+>03A4 !P0€1830EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0272, !P183026V=>1612+>038E,D=>1612+>03A4,C=>1612+>03A4 !P18306EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0274, !P18302$V=>04C6,D=>1000,C=>1000 !P1830$@EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>037A, !P18302$V=>0720,D=>1001,C=>1001 !P1830$EC!P1830* !P1830* RCV SIDE!P1830* !P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>03E6, !P18302V=À">C820,D=>1001,C=>1001 !P1830"EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>03EA, !P18302(V=>0160+0188,D=>1E1E,C=>1E1E!P1830(EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0488, !P18302V=>1612+>057A,D=>0160+À >025E,C=>0160+>025E !P1830 EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>04A4, !P183026V=>1612+>057A,D=>0160+>025E,C=>0160+>025E !P18306EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>04C0, !P18302V=>1612+>0€,57A,D=>0160+>025E,C=>0160+>025E !P1830,EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0514, !P183026V=>1612+>057A,D=>0160+>025C,C=>0160+>025C !P18306EC!P18302MRF PN=RTC5,RN=0,FW=>0160->0160+>025C, !P18302966@V=(>DEAD,>DEAD),!P1830$D=(>04C6,>C820),C=>CCE6 !P1830$EC!P18302MRF PN=RTC5,RN=0,FW=>0160->0160+>0260, !P183020V=>DEAD,D=>0160+>0016,C=>0160+>0016 !P18300EC!P1830$MRF PN=RTC5,RN=0,FW=>0160->0160+>0$À262, !P18300V=>DEAD,D=>0160+>0188,C=>0160+>0188 !P18300EC!P18302MRF PN=RTC5,RN=0,FW=>0160->0160+>0264, !P18302$V=>DEAD,D=>0460,C=>0460 !P1830$EC!P18300MRF PN=RTC5,RN=0,FW=>0160->0160+>0266, !P18300À0V=>DEAD,D=>1612+>03DE,C=>1612+>03DE !P18300EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0522, !P183026V=>1612+>057A,D=>1612+>03DE,C=>1612+>03DE !P18306EC!P1830,MRF PN=RTC5,RN=0,FW=>1612->0160+>0524, !P,À1830V=(>0987,>C807),!P1830$D=(>1000,>D807),C=>C807 !P1830$EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0528, !P183026V=>1612+>0024,D=>1612+>0025,C=>1612+>0025 !P18306EC!P1830MRF PN=RTC5,RN=0À",FW=>1612->0160+>052C, !P1830"6V=>1612+>057A,D=>1612+>03DE,C=>1612+>03DE !P18306EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0544, !P18302$V=>1304,D=>1302,C=>1302 !P1830$EC!P1830MRF PN=RTC5,RN=0,FW=>1À612->0160+>0550, !P18306V=>1612+>0604,D=>0160+>0268,C=>0160+>0268 !P18306EC!P18302MRF PN=RTC5,RN=0,FW=>0160->0160+>0268, !P18302$V=>DEAD,D=>C806,C=>C806 !P1830$EC!P1830MRF PN=RTC5,RN=0,FW=>0160->0À160+>026A, !P18300V=>DEAD,D=>1612+>0574,C=>1612+>0574 !P18300EC!P18302MRF PN=RTC5,RN=0,FW=>0160->0160+>026C, !P18302$V=>DEAD,D=>0460,C=>0460 !P1830$EC!P1830*MRF PN=RTC5,RN=0,FW=>0160->0160+>026E, *À !P1830 0V=>DEAD,D=>1612+>0604,C=>1612+>0604 !P18300EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>0564, !P183026V=>1612+>057A,D=>0160+>0270,C=>0160+>0270 !P18306EC!P1830$MRF PN=RTC5,RN=0,FW=>0160->0160+>0$À270, !P1830V=(>DEAD,>DEAD),!P1830$D=(>04C7,>D1E0),C=>D527 !P1830$EC!P18302MRF PN=RTC5,RN=0,FW=>0160->0160+>0274, !P183020V=>DEAD,D=>0160+>005B,C=>0160+>005B !P18300EC!P1830MRF PN=RTC5,RNÀ$=0,FW=>0160->0160+>0276, !P1830$$V=>DEAD,D=>C1A0,C=>C1A0 !P1830$EC!P18302MRF PN=RTC5,RN=0,FW=>0160->0160+>0278, !P183020V=>DEAD,D=>1612+>0574,C=>1612+>0574 !P18300EC!P1830 MRF PN=RTC5,RN=0,FW=>0160-À>0160+>027A, !P1830$V=>DEAD,D=>0460,C=>0460 !P1830$EC!P18302MRF PN=RTC5,RN=0,FW=>0160->0160+>027C, !P183020V=>DEAD,D=>1612+>03DE,C=>1612+>03DE !P18300EC!P1830(MRF PN=RTC5,RN=0,FW=>1612->0160+>056C,(À !P1830 (V=(>04C6,>04C7,>C125,>000A),!P1830(0D=(>04C3,>C125,>000A,>1005),C=>D5E9 !P18300EC!P18302MRF PN=RTC5,RN=0,FW=>1612->0160+>05FA, !P18302$V=>0720,D=>D800,C=>D800 !P1830$EC!P1830 MRF PN=R À*TC5,RN=0,FW=>1612->0160+>05FC, !P1830*6V=>0160+>0188,D=>0160+>018F,C=>0160+>018F !P18306EC!P1830.ENDIF!P1830* !P1830* XMT SIDE!P1830* !P1830 .IF @RTC9,NE,"RTC9" !P1830 MRF PNÀ,=RTC9,RN=0,FW=>0900->0900+>0016, !P1830,$V=>00C8,D=>0190,C=>0190 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>01F0, !P18302$V=>C820,D=>1002,C=>1002 !P1830$EC!P1830 MRF PN=RTC9,RN=0,FW=>1E08->090 À0+>023C, !P1830$V=>1311,D=>1310,C=>1310 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>0244, !P18302$V=>3207,D=>0460,C=>0€%€%460 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>0246, !P18302À0V=>1F12,D=>1E08+>03DE,C=>1E08+>03DE !P18300EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>025E, !P18302$V=>0380,D=>04C6,C=>04C6 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>0296, !P18302 V=>1E08+>03À*C4,D=>1E08+>03DC,C=>1E08+>03DC !P1830*EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>029E, !P183026V=>1E08+>03C4,D=>1E08+>03DC,C=>1E08+>03DC !P18306EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>02A6, !P18302À6V=>1E08+>03C4,D=>1E08+>03DC,C=>1E08+>03DC !P18306EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>02A8, !P18302$V=>04C6,D=>1000,C=>1000 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>03AE, !P18302V=>072À 0,D=>1001,C=>1001 !P1830EC!P1830* !P1830* RCV SIDE!P1830* !P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>0420, !P18302$V=>C820,D=>1002,C=>1002 !P1830$EC!P1830MRF PN=RTC9,RN=0,FW=>1ÀE08->0900+>04C2, !P18306V=>1E08+>05B4,D=>0900+>02E8,C=>0900+>02E8 !P18306EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>04DE, !P183026V=>1E08+>05B4,D=>0900+>02E8,C=>0900+>02E8 !P18306EC!P1830MRF PN=RTC€(9,RN=0,FW=>1E08->0900+>04FA, !P1830(6V=>1E08+>05B4,D=>0900+>02E8,C=>0900+>02E8 !P18306EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>054E, !P183026V=>1E08+>05B4,D=>0900+>02E6,C=>0900+>02E6 !P18306EC!P1830302MRF PN=RTC9,RN=0,FW=>0900->0900+>02E6, !P18302V=(>DEAD,>DEAD),!P1830$D=(>04C6,>C820),C=>CCE6 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>02EA, !P183020V=>DEAD,D=>0900+>0016,C=>0900+>0016 !P183009,4EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>02EC, !P183020V=>DEAD,D=>0900+>0188,C=>0900+>0188 !P18300EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>02EE, !P18302$V=>DEAD,D=>0460,C=>0460 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>02F0, !P183020V=>DEAD,D=>1E08+>0418,C=>1E08+>0418 !P18300EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>055C, !P183026V=>1E08+>05B4,D=>1E08+>0418,C=>1E08+>0418 !P18306EC!P1830@2MRF PN=RTC9,RN=0,FW=>1E08->0900+>055E, !P18302V=(>0987,>C807),!P1830$D=(>1000,>D807),C=>C807 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>0562, !P183024V=>1E08+>0026,D=>1E08+>0027,C=>1E08+>0027 !P18304ÀEC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>0566, !P183026V=>1E08+>05B4,D=>1E08+>0418,C=>1E08+>0418 !P18306EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>057E, !P18302$V=>1304,D=>1302,C=>1302 !P1830$ÀEC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>058A, !P183026V=>1E08+>063E,D=>0900+>02F2,C=>0900+>02F2 !P18306EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>02F2, !P18302$V=>DEAD,D=>C806,C=>C806 !P1830$EC!PÀ18302MRF PN=RTC9,RN=0,FW=>0900->0900+>02F4, !P183020V=>DEAD,D=>1E08+>05AE,C=>1E08+>05AE !P18300EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>02F6, !P18302$V=>DEAD,D=>0460,C=>0460 !P1830$EC!P1830€2MRF PN=RTC9,RN=0,FW=>0900->0900+>02F8, !P183020V=>DEAD,D=>1E08+>063E,C=>1E08+>063E !P18300EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>059E, !P183026V=>1E08+>05B4,D=>0900+>02FA,C=>0900+>02FA !P18306EC!P1830@2MRF PN=RTC9,RN=0,FW=>0900->0900+>02FA, !P18302V=(>DEAD,>DEAD),!P1830$D=(>04C7,>D1E0),C=>D527 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>02FE, !P18302.V=>DEAD,D=>0900+005B,C=>0900+>005B !P1830.€EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>0300, !P18302$V=>DEAD,D=>C1A0,C=>C1A0 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>0302, !P183020V=>DEAD,D=>1E08+>05AE,C=>1E08+>05AE !P18300EC!P1830@2MRF PN=RTC9,RN=0,FW=>0900->0900+>0304, !P18302$V=>DEAD,D=>0460,C=>0460 !P1830$EC!P18302MRF PN=RTC9,RN=0,FW=>0900->0900+>0306, !P183020V=>DEAD,D=>1E08+>0418,C=>1E08+>0418 !P18300EC!P1830MRF PN=RTC9,€& RN=0,FW=>1E08->0900+>05A6, !P1830&(V=(>04C6,>04C7,>C125,>000A),!P1830(0D=(>04C3,>C125,>000A,>1005),C=>D5E9 !P18300EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>0634, !P18302$V=>0720,D=>D800,C=>D800 !P1830$46(@EC!P18302MRF PN=RTC9,RN=0,FW=>1E08->0900+>0636, !P183026V=>0900+>0188,D=>0900+>018F,C=>0900+>018F !P18306EC!P1830.ENDIF!P1830*$!P1830>************************************************************>À********** **** * !P1832<*=P1832 CAN07/01/82STR #126833.1.1 DX10 !P1832< * ALSO STR #13338!P1832 * !P1832B* RTS 3.1.1 - THIS PATCH CHANGES THE SLAVE DATA LINK !P1832B * ERROR RECOVERY À.LOGIC TO NOT RESPOND TO ID/SEQ/CRC!P1832.B* SEQUENCES WITH A NAK.ALSO, ON AN RTC, THIS PATCH !P1832B>* DISPLAYS THE APPLICABLE ERROR CODE ON THE FRONT!P1832> * PANEL BITS 8-15. !P1832 * NOTE: RTSMEM PATCH P183À$1 MUST ALSO BE APPLIED. !P1832$* !P1832 .IF @RTC1,NE,"RTC1" !P1832 2MRF PN=RTC1,RN=0,FW=>0542->0160+>002E, !P18322$V=>0280,D=>1002,C=>1002 !P1832$EC!P1832,MRF PN=RTC1,RN=0,FW=>0542->0160+>0178, !P,€1832$V=>06A0,D=>E800,C=>E800 !P1832$EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>017A, !P183226V=>1612+>01EA,D=>0160+>018E,C=>0160+>018E !P18326EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>017E, !P18322@6V=>0542+>004E,D=>0542+>002A,C=>0542+>002A !P18326EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>0238, !P18322$V=>1602,D=>1605,C=>1605 !P1832$EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>0246, !P18322V=>001À 0,D=>0028,C=>0028 !P1832EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>024C, !P183226V=>0542+>0172,D=>0542+>00D6,C=>0542+>00D6 !P18326EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>025A, !P18322V=>06A0,D=>0À460,C=>0460 !P1832EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>025C, !P183226V=>1612+>01EA,D=>0542+>0172,C=>0542+>0172 !P18326EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>0294, !P18322 V=>1310,D=>1311,C=À>1311 !P1832EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>02A0, !P18322$V=>13CC,D=>1313,C=>1313 !P1832$EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>02AE, !P18322$V=>F820,D=>0280,C=>0280 !P1832$EC€ !P1832 2MRF PN=RTC1,RN=0,FW=>0542->0160+>02B0, !P18322*V=>0160+>002C,D=>0006,C=>0006 !P1832*EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>02B2, !P18322*V=>0160+>018E,D=>13E6,C=>13E6 !P1832*EC!P1832>1@2MRF PN=RTC1,RN=0,FW=>0542->0160+>02B4, !P18322$V=>10E5,D=>0460,C=>0460 !P1832$EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>02B6, !P183220V=>D820,D=>0542+>0172,C=>0542+>0172 !P18320EC!P1832MRF PN=RTC1,À& RN=0,FW=>0542->0160+>02B8, !P1832&*V=>0160+>0062,D=>0720,C=>0720 !P1832*EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>02CA, !P183226V=>0542+>00D6,D=>0542+>03AE,C=>0542+>03AE !P18326EC!P1832MRF PN=RTC1,À& RN=0,FW=>0542->0160+>038A, !P1832&"V=(>0002,>139B,>F820),!P1832"*D=(>0006,>13F3,>0460),C=>1795 !P1832*EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>0390, !P183224V=>0160+>002C,D=>0542+>029C,C=>0542+>029C !P18324ÀEC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>03AE, !P18322$V=>C025,D=>C2E5,C=>C2E5 !P1832$EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>03B4, !P18322$V=>9800,D=>980B,C=>980B !P1832$EC!P1832À2MRF PN=RTC1,RN=0,FW=>0542->0160+>03CE, !P18322$V=>C020,D=>06A0,C=>06A0 !P1832$EC!P18322MRF PN=RTC1,RN=0,FW=>0542->0160+>03D0, !P183226V=>0542+>0014,D=>0160+>027E,C=>0160+>027E !P18326EC!P1832MRF PNÀ,=RTC1,RN=0,FW=>0160->0160+>027E, !P1832,(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1832(0D=(>0280,>001A,>1602,>0460),C=>10F8 !P18320EC!P18322MRF PN=RTC1,RN=0,FW=>0160->0160+>0286, !P18322"V=>DEAD,D=>0542+>00B6,C=>0542+>0"À0B6 !P1832EC!P18322MRF PN=RTC1,RN=0,FW=>0160->0160+>0288, !P18322(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1832(0D=(>0280,>0028,>1602,>0460),C=>10CA !P18320EC!P1832,MRF PN=RTC1,RN=0,FW=>0160->0160+>0290, !P,À18320V=>DEAD,D=>0542+>00D6,C=>0542+>00D6 !P18320EC!P18322MRF PN=RTC1,RN=0,FW=>0160->0160+>0292, !P18322$V=>DEAD,D=>C800,C=>C800 !P1832$EC!P18322MRF PN=RTC1,RN=0,FW=>0160->0160+>0294, !P18322À0V=>DEAD,D=>0542+>0014,C=>0542+>0014 !P18320EC!P18322MRF PN=RTC1,RN=0,FW=>0160->0160+>0296, !P18322$V=>DEAD,D=>045B,C=>045B !P1832$EC!P1832.ENDIF!P1832* !P€%€%1832 .IF @RTC5,NE,"RTC5" !P18À322MRF PN=RTC5,RN=0,FW=>0542->0160+>002E, !P18322$V=>0280,D=>1002,C=>1002 !P1832$EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>0178, !P18322$V=>06A0,D=>E800,C=>E800 !P1832$EC!P1832MRF PN=RTC5,RNÀ$=0,FW=>0542->0160+>017A, !P1832$6V=>1612+>01CE,D=>0160+>018E,C=>0160+>018E !P18326EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>017E, !P183226V=>0542+>004E,D=>0542+>002A,C=>0542+>002A !P18326EC!P1832MRÀ0F PN=RTC5,RN=0,FW=>0542->0160+>0238, !P18320$V=>1602,D=>1605,C=>1605 !P1832$EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>0246, !P18322$V=>0010,D=>0028,C=>0028 !P1832$EC!P1832 MRF PN=RTC5,RN=0,FW=>0542-À>0160+>024C, !P18326V=>0542+>0172,D=>0542+>00D6,C=>0542+>00D6 !P18326EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>025A, !P18322$V=>06A0,D=>0460,C=>0460 !P1832$EC!P1832"MRF PN=RTC5,RN=0,FW=>0542->0160+"À>025C, !P18326V=>1612+>01CE,D=>0542+>0172,C=>0542+>0172 !P18326EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>0294, !P18322$V=>1310,D=>1311,C=>1311 !P1832$EC!P1832(MRF PN=RTC5,RN=0,FW=>0542->0160+>02A0,(À !P1832 $V=>13CC,D=>1313,C=>1313 !P1832$EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>02AE, !P18322$V=>F820,D=>0280,C=>0280 !P1832$EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>02B0, !P18322V=>0160+>0À 02C,D=>0006,C=>0006 !P1832 EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>02B2, !P18322*V=>0160+>018E,D=>13E6,C=>13E6 !P1832*EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>02B4, !P18322V=>10E5,D=>0460,C=>046À0 !P1832EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>02B6, !P183220V=>D820,D=>0542+>0172,C=>0542+>0172 !P18320EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>02B8, !P18322$V=>0160+>0062,D=>0720,C=>0720 !P$€1832EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>02CA, !P183226V=>0542+>00D6,D=>0542+>03AE,C=>0542+>03AE !P18326EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>038A, !P18322"V=(>0002,>139B,>F820),!P1832"$@*D=(>0006,>13F3,>0460),C=>1795 !P1832*EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>0390, !P183226V=>0160+>002C,D=>0542+>029C,C=>0542+>029C !P18326EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>03AE, !P18322À$V=>C025,D=>C2E5,C=>C2E5 !P1832$EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>03B4, !P18322$V=>9800,D=>980B,C=>980B !P1832$EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>03CE, !P18322V=>C020,D=>06A0,C=>06A0 À !P1832 EC!P18322MRF PN=RTC5,RN=0,FW=>0542->0160+>03D0, !P183226V=>0542+>0014,D=>0160+>027E,C=>0160+>027E !P18326EC!P18322MRF PN=RTC5,RN=0,FW=>0160->0160+>027E, !P18322"V=(>DEAD,>DEAD,>DEAD,>DEAD),!P"À18320D=(>0280,>001A,>1602,>0460),C=>10F8 !P18320EC!P18322MRF PN=RTC5,RN=0,FW=>0160->0160+>0286, !P183220V=>DEAD,D=>0542+>00B6,C=>0542+>00B6 !P18320EC!P1832,MRF PN=RTC5,RN=0,FW=>0160->0160+>0288, !P,€1832(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1832(0D=(>0280,>0028,>1602,>0460),C=>10CA !P18320EC!P18322MRF PN=RTC5,RN=0,FW=>0160->0160+>0290, !P183220V=>DEAD,D=>0542+>00D6,C=>0542+>00D6 !P18320EC!P1832C,@2MRF PN=RTC5,RN=0,FW=>0160->0160+>0292, !P18322$V=>DEAD,D=>C800,C=>C800 !P1832$EC!P18322MRF PN=RTC5,RN=0,FW=>0160->0160+>0294, !P183220V=>DEAD,D=>0542+>0014,C=>0542+>0014 !P18320EC!P1832MRF PN=RTC5,À& RN=0,FW=>0160->0160+>0296, !P1832&$V=>DEAD,D=>045B,C=>045B !P1832$EC!P1832.ENDIF!P1832* !P1832 .IF @RTC9,NE,"RTC9" !P1832 2MRF PN=RTC9,RN=0,FW=>0D6C->0900+>002E, !P18322 V=>0280,D=>1002,C=À>1002 !P1832EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>0178, !P18322$V=>06A0,D=>E800,C=>E800 !P1832$EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>017A, !P18322,V=>1E08+>01E2,D=>0900+>018E,C=>0900+>018E ,À !P1832 EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>017E, !P183226V=>0D6C+>004E,D=>0D6C+>002A,C=>0D6C+>002A !P18326EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>0238, !P18322"V=>1602,D=>1605,C=>1605 !P1832"ÀEC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>0246, !P18322$V=>0010,D=>0028,C=>0028 !P1832$EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>024C, !P183226V=>0D6C+>0172,D=>0D6C+>00D6,C=>0D6C+>00D6 !P18326ÀEC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>025A, !P18322$V=>06A0,D=>0460,C=>0460 !P1832$EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>025C, !P183226V=>1E08+>01E2,D=>0D6C+>0172,C=>0D6C+>0172 !P18326EC!PÀ18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>0294, !P18322$V=>1310,D=>1311,C=>1311 !P1832$EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>02A0, !P18322$V=>13CC,D=>1313,C=>1313 !P1832$EC!P1832MRF PN=RTC9,À& RN=0,FW=>0D6C->0900+>02AE, !P1832&$V=>F820,D=>0280,C=>0280 !P1832$EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>02B0, !P18322*V=>0900+>002A,D=>0006,C=>0006 !P1832*EC!P1832 MRF PN=RTC9,RN=0,FW=>0D6C->090 €0+>02B2, !P1832*V=>0900+>018E,D=>13E6,C=>13E6 !P1832*EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>02B4, !P18322$V=>10E5,D=>0460,C=>0460 !P1832$EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>02B6, !P18322@0V=>D820,D=>0D6C+>0172,C=>0D6C+>0172 !P18320EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>02B8, !P18322*V=>0900+>0062,D=>0720,C=>0720 !P1832*EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>02CA, !P18322V=>0D6À0C+>00D6,D=>0D6C+>03AE,C=>0D6C+>03AE !P18320EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>038A, !P18322"V=(>0002,>139B,>F820),!P1832"*D=(>0006,>13F3,>0460),C=>1795 !P1832*EC!P1832MRF PN=RTC9,RN=0,FW=>0ÀD6C->0900+>0390, !P18326V=>0900+>002A,D=>0D6C+>029C,C=>0D6C+>029C !P18326EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>03AE, !P18322$V=>C025,D=>C2E5,C=>C2E5 !P1832$EC!P1832MRF PN=RTC9,RN=0,FW=>0D6C->0€900+>03B4, !P1832$V=>9800,D=>980B,C=>980B !P1832$EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>03CE, !P18322$V=>C020,D=>06A0,C=>06A0 !P1832$EC!P18322MRF PN=RTC9,RN=0,FW=>0D6C->0900+>03D0, !P18322306@6V=>0D6C+>0014,D=>0900+>0308,C=>0900+>0308 !P18326EC!P18322MRF PN=RTC9,RN=0,FW=>0900->0900+>0308, !P18322(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1832(0D=(>0280,>001A,>1602,>0460),C=>10F8 !P18320EC!P1832MRF À.PN=RTC9,RN=0,FW=>0900->0900+>0310, !P1832.0V=>DEAD,D=>0D6C+>00B6,C=>0D6C+>00B6 !P18320EC!P18322MRF PN=RTC9,RN=0,FW=>0900->0900+>0312, !P18322(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P1832( D=(>0280,>0028,>1602,>0460),C= À>10CA !P1832EC!P18322MRF PN=RTC9,RN=0,FW=>0900->0900+>031A, !P183220V=>DEAD,D=>0D6C+>00D6,C=>0D6C+>00D6 !P18320EC!P18322MRF PN=RTC9,RN=0,FW=>0900->0900+>031C, !P18322 V=>DEAD,D=>C800,C=>C800 !P18 À32EC!P18322MRF PN=RTC9,RN=0,FW=>0900->0900+>031E, !P183220V=>DEAD,D=>0D6C+>0014,C=>0D6C+>0014 !P18320EC!P18322MRF PN=RTC9,RN=0,FW=>0900->0900+>0320, !P18322$V=>DEAD,D=>045B,C=>045B !P1832$ECÀ !P1832 .ENDIF!P1832*$!P1832J#**********************************************************************J* !P2141B*=P2141 RJB 09/02/82STR #13723 DX10/RTS 3.1.1 !P2141B* !P2141* DX10 3.À<5 HAS A NEW (DIFFERENT) 911 DSR.THE PURPOSE OF!P2141<B* THIS PATCH IS TO MAKE THE RTS 3.1 911 AND 915 DSR'S!P2141BB* FUNCTIONALLY COMPATIBLE WITH THE DX10 3.5 911 DSR. !P2141B.* ASSOCIATED RTSMEM PATCH: P2365. !P2141.À* !P2141& .IF @RTC1,NE,"RTC1" !RTC1 !P2141&2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>00DA, !P21412@V=(>FCFC,>FCFC),D=(>1EF0+>0372,>1EF0+>0598),C=>06EA !P2141@EC!P2141,MRF PN=RTC1,RN=0,FW=>1EF0->0160+>00AA, !P,À2141$V=>0015,D=>0017,C=>0017 !P2141$EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>01C0, !P21412$V=>1100,D=>1200,C=>1200 !P2141$EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>039C, !P21412V=(>C2E1,>00À.02),D=(>0460,>1EF0+>00DE),C=>1BAE !P2141.EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+00DE, !P21412"V=(>0000,>0000,>00F8),!P2141"0D=(>9811,>0160+>0070,>1604),C=>8FC5 !P21410EC!P2141 MRF PN=RTC1,RN=0,FÀ W=>1EF0->0160+00E4, !P2141 4V=(>F8FA,>FA00),D=(>C2E1,>0002),C=>C2E3 !P21414EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>00E8, !P21412(V=(>FC00,>0000,>0000,>0000),!P2141(*D=(>0460,>1EF0+>03A0,>0460,>1EF0+03AC),C*À=>000C€%€%!P2141EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>03D6, !P21412(V=(>D920,>0160+>0046,>FFE0),!P2141(0D=(>5860,>0160+>0032,>0002),C=>59F0 !P21410EC!P2141*MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0F16, *À !P2141 "V=(>4453,>524B,>5352),!P2141"0D=(>D920,>0160+>0046,>FFE0),C=>2766 !P21410EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0F1C, !P21412:V=(>3331,>3020),D=(>0460,>1EF0+>03D6),C=>26A6 !P2141:EC!P2141À2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>00BA, !P21412(V=(>1EF0+>03DC,>1EF0+>03DC),!P2141(,D=(>1EF0+>03D6,>1EF0+>03D6),C=0 !P2141,EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>00C8, !P21412V=>1EF0+>03DC,D=>1EF0+>0À 3D6,C=>1EF0+>03D6 !P2141EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>00CC, !P214126V=>1EF0+>03DC,D=>1EF0+>03D6,C=>1EF0+>03D6 !P21416EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>00D4, !P21412V=>1EF0+>03DÀ*6,D=>1EF0+>0F16,C=>1EF0+>0F16 !P2141*EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>01BA, !P214126V=>1EF0+>03DC,D=>1EF0+>03D6,C=>1EF0+>03D6 !P21416EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>036A, !P21412À$V=>1038,D=>1035,C=>1035 !P2141$EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>03D4, !P21412$V=>1003,D=>1000,C=>1000 !P2141$EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0596, !P21412V=>1EF0+>03DC,D=>1EF0+>0À 3D6,C=>1EF0+>03D6 !P2141EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0DC4, !P214126V=>1EF0+>03DC,D=>1EF0+>03D6,C=>1EF0+>03D6 !P21416EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>041E, !P21412V=(>020A,>1EÀF0+>00DA,>06A0),!P2141*D=(>04CA,>1000,>06A0),C=>126A !P2141*EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0424, !P214126V=>1EF0+>0EBE,D=>1100+>023C,C=>1100+>023C !P21416EC!P2141MRF PN=RTC1,RN=0,FW=>1ÀEF0->0160+>0698, !P2141$V=>060A,D=>1000,C=>1000 !P2141$EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0908, !P214124V=(>0949,>0AF9),D=(>1000,>0AA9),C=>1AA9 !P21414EC!P2141 MRF PN=RTC1,RN=0,FW=>1EF0->016 À0+>0916, !P2141@V=(>1604,>C2E4,>003C),D=(>1602,>C249,>111B),C=>C550 !P2141@EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>091C, !P21412:V=(>0ABB,>1801),D=(>0460,>1EF0+>0EEC),C=>29BC !P2141:EC!P2141MRF À.PN=RTC1,RN=0,FW=>1EF0->0160+>0EEC, !P2141."V=(>DEAD,>DEAD,>DEAD),!P2141"0D=(>20A0,>0160+>0038,>130A),C=>3232 !P21410EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EF2, !P21412&V=(>DEAD,>DEAD),D=(>C2E4,>003E),C=>C&€2DA !P2141EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EF6, !P21412"V=(>0607,>15FA,>045B),!P2141"0D=(>22E0,>0160+>003C,>1605),C=>3579 !P21410EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EFC, !P21412@4V=(>DEAD,>DEAD),D=(>C2E4,>002C),C=>C2C8 !P21414EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0F00, !P21412"V=(>DEAD,>DEAD,>DEAD),!P2141"0D=(>22E0,>0160+>002C,>13E2),C=>308E !P21410EC!P2141MRF PN=RTC1,À& RN=0,FW=>1EF0->0160+>0F06, !P2141&:V=(>DEAD,>DEAD),D=(>0460,>1EF0+>0920),C=>2C70 !P2141:EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0ECA, !P21412"V=(>0460,>1100+>023C),!P2141"$D=(>0460,>1EF0+>0944),C=>2C54 !P$€2141EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>095C, !P21412(V=(>C1E4,>003C,>0AB7,>170E),!P2141(0D=(>C249,>1101,>100F,>1000),C=>D347 !P21410EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0968, !P214124@6V=>1EF0+>0978,D=>1EF0+>092C,C=>1EF0+>092C !P21416EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0976, !P21412@V=(>0208,>A000,>06A0),D=(>C264,>003C,>170B),C=>D553 !P2141@EC!P2141"MRF PN=RTC1,RN=0,FW=>1EF0->0160+"À>097C, !P2141"V=(>1EF0+>0EDE,>1000),!P2141"*D=(>06A0,>1EF0+>0F0A),C=>2B5A !P2141*EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0F0A, !P21412@V=(>DEAD,>DEAD,>DEAD),D=(>17EF,>0208,>A000),C=>B5E7 !P2141@EC€ !P2141 2MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0F10, !P21412@V=(>DEAD,>DEAD,>DEAD),D=(>0209,>8000,>10E7),C=>92EE !P2141@EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>09A0, !P21412(V=(>C2E1,>0002,>097B,>1704),!P2141(*@6D=(>9821,>0000,>0160+>0070,>1604),C=>8FF5 !P21416EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0B5A, !P21412"V=(>0621,>0008,>045B),!P2141"0D=(>0460,>1EF0+>0EBE,>DEAD),C=>F763 !P21410EC!P2141MRF PN=RTC€(1,RN=0,FW=>1EF0->0160+>0EBE, !P2141((V=(>9811,>0160+>004F,>1303),!P2141(*D=(>0621,>0008,>1502),C=>132B !P2141*EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0EC4, !P21412(V=(>5860,>0160+>0032,>0002),!P2141(4,,*D=(>04E1,>0008,>045B),C=>00B2 !P2141*EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>03E2, !P21412:V=(>092B,>1714),D=(>0460,>1EF0+>0CEE),C=>2FBE !P2141:EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0CEC, !P214124@$V=>1653,D=>1053,C=>1053 !P2141$EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0CEE, !P21412:V=(>C807,>1EF0+>0B70),D=(>092B,>1707),C=>1E2C !P2141:EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0CF2, !P21412V=À& (>C260,>1EF0+>0EA4,>0A1B),!P2141&0D=(>9811,>1EF0+>0D04,>1302),C=>A0E7 !P21410EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0CF8, !P21412(V=(>1703,>020B,>01E0,>1020),!P2141((D=(>0460,>1EF0+>03E6,>0460,>1EF0+>03EC(À),C=>000A !P2141EC!P21412MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0D00, !P21412"V=(>0A1B,>170D,>C1E4),!P2141"0D=(>0460,>1EF0+>040E,>0500),C=>239E !P21410EC!P2141,MRF PN=RTC1,RN=0,FW=>1EF0->0160+>0C82, !P,À21414V=(>C264,>0010),D=(>C261,>000A),C=>C26B !P21414EC!P2141.ENDIF!P2141* !P2141& .IF @RTC5,NE,"RTC5" !RTC5 !P2141&2MRF PN=RTC5,RN=0,FW=>1F98->0160+>00DA, !P21412 V=(>FCFC,>FCFC),D=(>1F98+>À& 0372,>1F98+>0598),C=>063A !P2141&EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>00AA, !P21412$V=>0015,D=>0017,C=>0017 !P2141$EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>01C0, !P21412V=>1100,D=>1200,C=>120À0 !P2141EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>039C, !P21412:V=(>C2E1,>0002),D=(>0460,>1F98+>00DE),C=>2416 !P2141:EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+00DE, !P21412V=(>0000,>0000,>00F8),À !P2141 0D=(>9811,>0160+>0070,>1604),C=>8FC5 !P21410EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+00E4, !P214124V=(>F8FA,>FA00),D=(>C2E1,>0002),C=>C2E3 !P21414EC!P2141&MRF PN=RTC5,RN=0,FW=>1F98->0160+>00E&À8, !P2141(V=(>FC00,>0000,>0000,>0000),!P2141(:D=(>0460,>1F98+>03A0,>0460,>1F98+03AC),C=>007C!P2141:EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>03D6, !P21412(V=(>D920,>0160+>0046,>FFE0),!P2141( D=(>5860 À(,>0160+>0032,>0002),C=>59F0 !P2141(EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0F16, !P21412"V=(>4453,>524B,>5352),!P2141"0D=(>D920,>0160+>0046,>FFE0),C=>2766 !P21410EC!P2141MRF PN=RTC5,RN=0,FW=>1F9À8->0160+>0F1C, !P2141:V=(>3331,>3020),D=(>0460,>1F98+>03D6),C=>270E !P2141:EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>00BA, !P21412(V=(>1F98+>03DC,>1F98+>03DC),!P2141(*D=(>1F98+>03D6,>1F98+>03D6),C=0 !P2141*ÀEC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>00C8, !P214126V=>1F98+>03DC,D=>1F98+>03D6,C=>1F98+>03D6 !P21416EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>00CC, !P21412*V=>1F98+>03DC,D=>1F98+>03D6,C=>1F98+>03D*À6 !P2141EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>00D4, !P214126V=>1F98+>03D6,D=>1F98+>0F16,C=>1F98+>0F16 !P21416EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>01BA, !P21412V=>1F98+>03DC,D=>1F98+>03D6,€C=>1F98+>03D6 !P2141EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>036A, !P21412$V=>1038,D=>1035,C=>1035 !P2141$EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>03D4, !P21412$V=>1003,D=>1000,C=>1000 !P2141$@EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0596, !P214126V=>1F98+>03DC,D=>1F98+>03D6,C=>1F98+>03D6 !P21416EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0DC4, !P214120V=>1F98+>03DC,D=>1F98+>03D6,C=>1F98+>03D6 !P0À2141EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>041E, !P21412(V=(>020A,>1F98+>00DA,>06A0),!P2141(*D=(>04CA,>1000,>06A0),C=>126A !P2141*EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0424, !P21412V=À4>1F98+>0EBE,D=>1100+>023C,C=>1100+>023C !P21414EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0698, !P21412$V=>060A,D=>1000,C=>1000 !P2141$EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0908, !P21412 V=(>0949 À,,>0AF9),D=(>1000,>0AA9),C=>1AA9 !P2141,EC!P2141€%€%2MRF PN=RTC5,RN=0,FW=>1F98->0160+>0916, !P21412@V=(>1604,>C2E4,>003C),D=(>1602,>C249,>111B),C=>C550 !P2141@EC!P2141,MRF PN=RTC5,RN=0,FW=>1F98->0160+>091C, !P,€2141:V=(>0ABB,>1801),D=(>0460,>1F98+>0EEC),C=>2AE4 !P2141:EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EEC, !P21412"V=(>DEAD,>DEAD,>DEAD),!P2141"0D=(>20A0,>0160+>0038,>130A),C=>3232 !P21410EC!P2141@2MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EF2, !P214124V=(>DEAD,>DEAD),D=(>C2E4,>003E),C=>C2DA !P21414EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EF6, !P21412"V=(>0607,>15FA,>045B),!P2141"D=(>22E0,>0160+>003C,>1605),ÀC=>3579 !P2141EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EFC, !P214124V=(>DEAD,>DEAD),D=(>C2E4,>002C),C=>C2C8 !P21414EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0F00, !P21412V=(>DEAD,>DEAD,>DEAD),À !P2141 0D=(>22E0,>0160+>002C,>13E2),C=>308E !P21410EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0F06, !P21412:V=(>DEAD,>DEAD),D=(>0460,>1F98+>0920),C=>2CD8 !P2141:EC!P2141 MRF PN=RTC5,RN=0,FW=>1F98->016 À0+>0ECA, !P2141@V=(>0460,>1100+>023C),D=(>0460,>1F98+>0944),C=>2CBC !P2141@EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>095C, !P21412(V=(>C1E4,>003C,>0AB7,>170E),!P2141(*D=(>C249,>1101,>100F,>1000),C=>D347 !P*À2141EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0968, !P214126V=>1F98+>0978,D=>1F98+>092C,C=>1F98+>092C !P21416EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0976, !P21412$V=(>0208,>A000,>06A0),D=(>C264,>00$À 3C,>170B),C=>D553 !P2141EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>097C, !P21412@V=(>1F98+>0EDE,>1000),D=(>06A0,>1F98+>0F0A),C=>2802 !P2141@EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0F0A, !P21412V=À>(>DEAD,>DEAD,>DEAD),D=(>17EF,>0208,>A000),C=>B5E7 !P2141>EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0F10, !P21412@V=(>DEAD,>DEAD,>DEAD),D=(>0209,>8000,>10E7),C=>92EE !P2141@EC!P2141MRF PN=RTC5,RN=0,FW=>1F9À8->0160+>09A0, !P2141(V=(>C2E1,>0002,>097B,>1704),!P2141(6D=(>9821,>0000,>0160+>0070,>1604),C=>8FF5 !P21416EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0B5A, !P21412"V=(>0621,>0008,>045B),!P2141"D=(>04À*60,>1F98+>0EBE,>DEAD),C=>F49B !P2141*EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0EBE, !P21412(V=(>9811,>0160+>004F,>1303),!P2141(*D=(>0621,>0008,>1502),C=>132B !P2141*EC!P2141MRF PN=RTC5,RN=0,FW=>1ÀF98->0160+>0EC4, !P2141(V=(>5860,>0160+>0032,>0002),!P2141(*D=(>04E1,>0008,>045B),C=>00B2 !P2141*EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>03E2, !P214128V=(>092B,>1714),D=(>0460,>1F98+>0CEE),C=>28E6 !P21418€EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0CEC, !P21412$V=>1653,D=>1053,C=>1053 !P2141$EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0CEE, !P21412:V=(>C807,>1F98+>0B70),D=(>092B,>1707),C=>1E2C !P2141:<@EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0CF2, !P21412(V=(>C260,>1F98+>0EA4,>0A1B),!P2141(0D=(>9811,>1F98+>0D04,>1302),C=>A78F !P21410EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0CF8, !P21412 V=(>1703 À ,>020B,>01E0,>1020),!P2141 <D=(>0460,>1F98+>03E6,>0460,>1F98+>03EC),C=>00FA !P2141<EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0D00, !P21412"V=(>0A1B,>170D,>C1E4),!P2141"(D=(>0460,>1F98+>040E,>0500),C=>22C6 (À !P2141 EC!P21412MRF PN=RTC5,RN=0,FW=>1F98->0160+>0C82, !P214124V=(>C264,>0010),D=(>C261,>000A),C=>C26B !P21414EC!P2141.ENDIF!P2141* !P2141& .IF @RTC9,NE,"RTC9" !RTC9 !P2141&MRF PNÀ,=RTC9,RN=0,FW=>26B4->0900+>0564, !P2141,@V=(>FCFC,>FCFC),D=(>26B4+>0802,>26B4+>0A6C),C=>1F96 !P2141@EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0534, !P21412$V=>0015,D=>0017,C=>0017 !P2141$EC!P2141MRÀ0F PN=RTC9,RN=0,FW=>26B4->0900+>0612, !P21410$V=>1100,D=>1200,C=>1200 !P2141$EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>082C, !P21412:V=(>C2E1,>0002),D=(>0460,>26B4+>0568),C=>287C !P2141:EC!P2141MRF À.PN=RTC9,RN=0,FW=>26B4->0900+0568, !P2141."V=(>0000,>0000,>00F8),!P2141"0D=(>9811,>0900+>0070,>1604),C=>8765 !P21410EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+056E, !P21412&V=(>F8FA,>FA00),D=(>C2E1,>0002),C=>C&À2E3 !P2141EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0572, !P21412(V=(>FC00,>0000,>0000,>0000),!P2141(:D=(>0460,>26B4+>0830,>0460,>26B4+083C),C=>0014!P2141:EC!P2141"MRF PN=RTC9,RN=0,FW=>26B4->0900+"À>0862, !P2141(V=(>D920,>0900+>0046,>FFE0),!P2141(0D=(>5860,>0900+>0032,>0002),C=>5150 !P21410EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0544, !P21412(V=(>26B4+>0868,>26B4+>0868),!P2141(D=(>26B4+>0862À ,>26B4+>0862),C=0 !P2141EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0552, !P214126V=>26B4+>0868,D=>26B4+>0862,C=>26B4+>0862 !P21416EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0556, !P21412V=>26B4+>086À*8,D=>26B4+>0862,C=>26B4+>0862 !P2141*EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>060C, !P214126V=>26B4+>0868,D=>26B4+>0862,C=>26B4+>0862 !P21416EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>07FA, !P21412À$V=>1036,D=>1033,C=>1033 !P2141$EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0860, !P21412$V=>1003,D=>1000,C=>1000 !P2141$EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0A6A, !P21412V=>26B4+>0868,D=>26B4+>0À 862,C=>26B4+>0862 !P2141EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>1380, !P214126V=>26B4+>0868,D=>26B4+>0862,C=>26B4+>0862 !P21416EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>08AC, !P21412V=(>020A,>26€.B4+>0564),D=(>04CA,>1000),C=>14CA !P2141.EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>08B2, !P214126V=>26B4+>13B4,D=>18EC+>024E,C=>18EC+>024E !P21416EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0B92, !P214124@$V=>060A,D=>1000,C=>1000 !P2141$EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0E3E, !P214124V=(>0949,>0AF9),D=(>1000,>0AA9),C=>1AA9 !P21414EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0E6C, !P21412 V=(>1604 À8,>C2E4,>003C),D=(>1602,>C249,>111B),C=>C550 !P21418EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0E72, !P21412:V=(>0ABB,>1801),D=(>0460,>26B4+>1282),C=>3D56 !P2141:EC!P2141&MRF PN=RTC9,RN=0,FW=>26B4->0900+>128&À0, !P2141$V=>1667,D=>1067,C=>1067 !P2141$EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>1282, !P21412(V=(>C807,>26B4+>11A4,>C260),!P2141(0D=(>20A0,>0900+>0038,>130A),C=>3A92 !P21410EC!P2141MRF À.PN=RTC9,RN=0,FW=>26B4->0900+>1288, !P2141.:V=(>26B4+>1384,>0A1B),D=(>C2E4,>003E),C=>C2DA !P2141:EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>128C, !P21412"V=(>1703,>020B,>01E0),!P2141" D=(>22E0,>0900+>003C,>1605À),C=>3DD9 !P2141EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>1292, !P214124V=(>1020,>0A1B),D=(>C2E4,>002C),C=>C2C8 !P21414EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>1296, !P21412V=(>170D,>C1E4,>002E),À !P2141 0D=(>22E0,>0900+>002C,>1302),C=>38CE !P21410EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>129C, !P21412:V=(>A264,>0032),D=(>0460,>26B4+>0E76),C=>314A !P2141:EC!P2141 MRF PN=RTC9,RN=0,FW=>26B4->090 €0+>12A0, !P2141:V=(>C2E4,>0030),D=(>0460,>26B4+>0E9A),C=>312E !P2141:EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EB2, !P21412(V=(>C1E4,>003C,>0AB7,>170E),!P2141(0D=(>C249,>1101,>100F,>1000),C=>D347 !P21410@EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EBE, !P214126V=>26B4+>0ECE,D=>26B4+>0E82,C=>26B4+>0E82 !P21416EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0ECC, !P214120V=(>0208,>A000,>06A0),D=(>C264,>003C,>170B),C=0À>D553 !P2141EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>0ED2, !P21412@V=(>26B4+>13D4,>1000),D=(>06A0,>26B4+>13B4),C=>3CC8 !P2141@EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>13B4, !P21412V=(>9811,>0900À+>004F,>1303),!P2141*D=(>17FE,>0208,>A000),C=>B5F6 !P2141*EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>13BA, !P21412(V=(>5860,>0900+>0032,>0002),!P2141(*D=(>0209,>8000,>100D),C=>9204 !P2141*EC!P2141À2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0EFA, !P21412(V=(>C2E1,>0002,>097B,>1704),!P2141(6D=(>9821,>0000,>0900+>0070,>1604),C=>8755 !P21416EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>118A, !P21412V=(>0621,>0008À,),D=(>0460,>26B4+>12A4),C=>3D38 !P2141,EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>12A4, !P2141€%€%2@V=(>62E4,>0032,>1351),D=(>0621,>0008,>1502),C=>132B !P2141@EC!P2141,MRF PN=RTC9,RN=0,FW=>26B4->0900+>12AA, !P,À2141@V=(>DE47,>060B,>15FD),D=(>04E1,>0008,>045B),C=>00B2 !P2141@EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>086C, !P21412:V=(>092B,>1715),D=(>0460,>26B4+>13E2),C=>3EF6 !P2141:EC!P2141MRF PN=RTC9,RN=0À",FW=>26B4->0900+>13E2, !P2141"4V=(>DEAD,>DEAD),D=(>092B,>17ED),C=>1EC6 !P21414EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>13E6, !P21412"V=(>DEAD,>DEAD,>DEAD),!P2141".D=(>9811,>26B4+>12B0,>1302),C=>B277 !P2141.ÀEC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>13EC, !P21412(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P2141(<D=(>0460,>26B4+>0870,>0460,>26B4+>0876),C=>000E !P2141<EC!P2141.MRF PN=RTC9,RN=0,FW=>26B4->0900+>12B0, !P21.À41$V=>104D,D=>0500,C=>0500 !P2141$EC!P21412MRF PN=RTC9,RN=0,FW=>26B4->0900+>13C0, !P21412@V=(>0460,>18EC+>024E),D=(>0460,>26B4+>089A),C=>2B2E !P2141@EC!P2141*MRF PN=RTC9,RN=0,FW=>26B4->0900+>1216, *À !P2141 4V=(>C264,>0010),D=(>C261,>000A),C=>C26B !P21414EC!P2141.ENDIF!P2141*$!P2141J#**********************************************************************J* !P2281*=P2281 RJB 10/08/82À( STR #13724 DX10/RTS 3.1.1!P2281(* !P2281F* RTS 3.1.1 - RTS HOST STOPS POLLING WITH LINE ERROR 02. !P2281F.* ASSOCIATED RTSMEM PATCH: P2341.!P2281.* !P2281 .IF @RTC1,NE,"RTC1" !P2281 MRF PN=R À*TC1,RN=0,FW=>0542->0160+>002E, !P2281*$V=>1002,D=>0280,C=>0280 !P2281$EC!P2281.ENDIF!P2281 .IF @RTC5,NE,"RTC5" !P2281 2MRF PN=RTC5,RN=0,FW=>0542->0160+>002E, !P22812"V=>1002,D=>0280,C=>0280 !P2281"ÀEC!P2281.ENDIF!P2281 .IF @RTC9,NE,"RTC9" !P2281 2MRF PN=RTC9,RN=0,FW=>0D6C->0900+>002E, !P22812$V=>1002,D=>0280,C=>0280 !P2281$EC!P2281.ENDIF!P2281*$!P2281**************À<********************************************************<* !P2375B*=P2375 RJB 10/29/82STR #13851 DX10/RTS 3.1.1 !P2375B* !P2375B* RTS 3.1.1 - TIPE 2.0 DOES NOT WORK PROPERLY ON 915 !P2375B * REMOT À<E TERMINAL WITH DX10 3.5. INTENSITY OF GRAPHICS!P2375<4* CHARACTERS IS NOT HANDLED CORRECTLY. !P23754* !P2375 .IF @RTC9,NE,"RTC9" !P2375 2MRF PN=RTC9,RN=0,FW=>26B4->0900+>0040, !P23752 V=(>CD65,>6F80),D=(>À& 0460,>26B4+>0A40),C=>3494 !P2375&EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0A3A, !P23752.V=(>D820,>26B4+>0294,>26B4+>0297), !P2375.0D=(>D220,>26B4+>0294,>100D),C=>EB65 !P23750EC!P2375MRF PN=RTC9,RNÀ$=0,FW=>26B4->0900+>0A40, !P2375$4V=(>9820,>26B4+>0297,>26B4+>02AE,>1A07), !P237546D=(>D565,>7000->0080,>9815,>0928),C=>2BD8 !P23756EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0A48, !P23752V=(>9820,>26B4+>0297,>À 26B4+>02AF,>1B03), !P23750D=(>1402,>F560,>0924,>0585),C=>EDC3 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0A50, !P23752(V=(>5820,>0924,>26B4+0297), !P2375(*D=(>0285,>0800,>1AF5),C=>1070 !P2375*ÀEC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0A56, !P23752@V=(>D220,>26B4+>0297),D=(>0460,>26B4+>004A),C=>229E !P2375@EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0078, !P23752&V=(>D843,>7000),D=(>0460,>26B4+>0B6C&À),C=>3640 !P2375EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0B66, !P23752.V=(>D820,>26B4+>0294,>26B4+>0297), !P2375.0D=(>D160,>26B4+>0294,>100D),C=>E825 !P23750EC!P2375 MRF PN=RTC9,RN=0,FW=>26B4->090 À0+>0B6C, !P23754V=(>9820,>26B4+>0297,>26B4+>02AE,>1A07), !P237540D=(>D843,>0080,>9803,>0928),C=>49E8 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0B74, !P23752.V=(>9820,>26B4+>0297,>26B4+>02AF,>1B03), !P.À23750D=(>1403,>F860,>0924,>0080),C=>E5C7 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0B7C, !P23752:V=(>5820,>0924),D=(>0460,>26B4+>0084),C=>2358 !P2375:EC!P2375"MRF PN=RTC9,RN=0,FW=>26B4->0900+"À>0322, !P2375:V=(>D843,>0080),D=(>0460,>26B4+>0C74),C=>3748 !P2375:EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0C6E, !P23752.V=(>D820,>26B4+>0294,>26B4+>0297), !P2375.,D=(>D160,>26B4+>0294,>100D),C=>E825 !P23,À75EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0C74, !P237524V=(>9820,>26B4+>0297,>26B4+>02AE,>1A07), !P237540D=(>D843,>0080,>9803,>0928),C=>49E8 !P23750EC!P2375*MRF PN=RTC9,RN=0,FW=>26B4->0900+>0C7C, *À !P2375 4V=(>9820,>26B4+>0297,>26B4+>02AF,>1B03), !P237540D=(>1403,>F860,>0924,>0080),C=>E5C7 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0C84, !P237528V=(>5820,>0924),D=(>0460,>26B4+>0326),C=>2DBA !P23758ÀEC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>034E, !P23752(V=(>E0C7,>9803,>0928,>1402),!P2375(0D=(>D843,>7000,>074B,>160A),C=>B902 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0356, !P23752V=À& (>0263,>8000,>D843,>7000),!P2375&0D=(>D843,>0080,>9803,>0928),C=>49E8 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>035E, !P23752(V=(>074B,>1604,>D843,>0080),!P2375((D=(>1403,>F860,>0924,>0080),C=>E5C7 (À !P2375 EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>036E, !P23752$V=>1307,D=>130D,C=>130D !P2375$EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0378, !P23752$V=>1602,D=>1608,C=>1608 !P2375$EC!P2375À2MRF PN=RTC9,RN=0,FW=>26B4->0900+>037E, !P23752@V=(>D0C4,>E0C7,>9803),D=(>9803,>0928,>1403),C=>8528 !P2375@EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0384, !P23752(V=(>0928,>1402,>0263,>8000),!P2375(D=(>À,F860,>0924,>0080,>D0C4),C=>2100 !P2375,EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>0E44, !P23752.V=(>D820,>26B4+>0294,>26B4+>0297), !P2375.0D=(>D160,>26B4+>0294,>100D),C=>E825 !P23750EC!P2375 MRF PN=R À*TC9,RN=0,FW=>26B4->0900+>0FCE, !P2375*.V=(>D820,>26B4+>0294,>26B4+>0297), !P2375.0D=(>D260,>26B4+>0294,>100D),C=>EB25 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>101C, !P23752V=(>D820,>26B4+>0294,>26B4+>À0297), !P23750D=(>D160,>26B4+>0294,>100D),C=>E825 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>108A, !P23752.V=(>D820,>26B4+>0294,>26B4+>0297), !P2375.0D=(>D260,>26B4+>0294,>100D),C=>EB25 !P23750ÀEC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>10FC, !P23752.V=(>D820,>26B4+>0294,>26B4+>0297), !P2375.0D=(>D260,>26B4+>0294,>100D),C=>EB25 !P23750EC!P23752MRF PN=RTC9,RN=0,FW=>26B4->0900+>1142, !P23752V=€,(>D820,>26B4+>0294,>26B4+>0297), !P2375,0D=(>D260,>26B4+>0294,>100D),C=>EB25 !P23750EC!P2375.ENDIF!P2375*$!P2375J#**********************************************************************J* !P2475@>*=P2475 CAN06/04/82STR #14124DX10/RTS 3.1.1!P2475>* !P2475F* RTS 3.1.1 - THIS PATCH SHOULD ONLY BE APPLIED IF RTS IS!P2475FH* RUNNING UNDER DX10 3.5.X OR LATER. XRTSGEN BUILDS DEVICE!P2475H* TABLES WITHÀ: A REFERENCE TO 'DDTTSB' WHICH IS NOT DEFINED !P2475: * IN DX10 3.5.X. !P2475* !P2475J* ====> WARNING: DO NOT APPLY THIS PATCH ON DX10 3.4.X <==== !P2475J* !P2475(MPI PF=RTPROG,MT=TA,MN=RTSGEN,ADR=>3FA(À6,!P2475@V=(>4444,>5454,>5342),D=(>3020,>2020,>2020),C=>3020 !P2475@EC!P2475*$!P2475J#**********************************************************************J2* *** PATCHES BELOW THIS COMMENT SHIPPED WITH P2À ATCH UPDATE 3.6.0. *J#**********************************************************************J* !P2967>*=P2967 JMR07/27/83STR #14124DX10/RTS 3.1.1!P2967>* !P2967(* PATCH 2475 IS INCOMPLETE.THE TASK(À ID ASSOCIATED WITH !P2967 @* 'DDTTSB' SHOULD ALSO BE DELETED UNDER DX10 3.5.X.!P2967@(* MODULES PATCHED: RTSGEN !P2967(* !P2967J* ====> WARNING: DO NOT APPLY THIS PATCH ON DX10 3.4.X <==== !P2967J* À !P2967 4MPI PF=RTPROG,MT=TA,MN=RTSGEN,ADR=>3FD8,!P29674(V=(>4520),D=(>3020),C=>3020 !P2967(EC!P2967*$!P2967J#**********************************************************************J* !P2968*=À@P2968 CAN/JMR08/05/83STR #15984DX10/RTS 3.1.1!P2968@* !P2968F* 3780 DOES NOT FUNCTION CORRECTLY WHEN EXECUTED FROM RTS!P2968FH* STATION. THIS PATCH CORRECTS LOGIC FOR WRITE WITH REPLY !P2968H* PROCESSINÀ>G TO ALLOW CORRECT RESPONSE TO 3780 COMMAND PROMPT. !P2968>6* RTSMEM PATCH 2969 MUST ALSO BE APPLIED.!P29686.* MODULES PATCHED: RIOCOM, PWRUP!P2968€%€%.* !P2968 .IF @RTC1,NE,"RTC1" !P2968 MRF PN=RTC1,RN=0,FW=À >0D58->0160+>0214, !P2968$V=>0014,D=>001A,C=>001A !P2968$EC!P29682MRF PN=RTC1,RN=0,FW=>1100->0160+>0068, !P29682(V=(>C266,>000A,>0229,>0002),!P2968(0D=(>C246,>0229,>0014,>0460),C=>C41B !P29680EC!PÀ29682MRF PN=RTC1,RN=0,FW=>1100->0160+>0070, !P29682*V=>1003,D=>0160+>0298,C=>03F8 !P2968*EC!P29682MRF PN=RTC1,RN=0,FW=>0160->0160+>0298, !P29682(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P2968( D=(>C989,>000A,>CE67À,>0032),C=>07D6 !P2968EC!P29682MRF PN=RTC1,RN=0,FW=>0160->0160+>02A0, !P29682$V=>DEAD,D=>0460,C=>0460 !P2968$EC!P29682MRF PN=RTC1,RN=0,FW=>0160->0160+>02A2, !P29682"V=>DEAD,D=>1100+>0078,C=>1178 "À !P2968 EC!P2968.ENDIF!P2968* !P2968 .IF @RTC5,NE,"RTC5" !P2968 2MRF PN=RTC5,RN=0,FW=>0D58->0160+>0214, !P29682$V=>0014,D=>001A,C=>001A !P2968$EC!P2968MRF PN=RTC5,RN=0,FW=>1100->0À160+>0068, !P2968(V=(>C266,>000A,>0229,>0002),!P2968(0D=(>C246,>0229,>0014,>0460),C=>C41B !P29680EC!P29682MRF PN=RTC5,RN=0,FW=>1100->0160+>0070, !P29682*V=>1003,D=>0160+>0298,C=>03F8 !P2968* EC!P29 À682MRF PN=RTC5,RN=0,FW=>0160->0160+>0298, !P29682(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P2968(0D=(>C989,>000A,>CE67,>0032),C=>07D6 !P29680EC!P29682MRF PN=RTC5,RN=0,FW=>0160->0160+>02A0, !P29682V=>DEAD,D=>0460,ÀC=>0460 !P2968EC!P29682MRF PN=RTC5,RN=0,FW=>0160->0160+>02A2, !P29682*V=>DEAD,D=>1100+>0078,C=>1178 !P2968*EC!P2968.ENDIF!P2968* !P2968 .IF @RTC9,NE,"RTC9" !P2968 MRF PN=RTC9,€& RN=0,FW=>15B2->0900+>021A, !P2968&$V=>0014,D=>001A,C=>001A !P2968$EC!P29682MRF PN=RTC9,RN=0,FW=>18EC->0900+>0068, !P29682(V=(>C266,>000A,>0229,>0002),!P2968(0D=(>C246,>0229,>0014,>0460),C=>C41B !P29680!P4@EC!P29682MRF PN=RTC9,RN=0,FW=>18EC->0900+>0070, !P29682*V=>1003,D=>0900+>0322,C=>0C22 !P2968*EC!P29682MRF PN=RTC9,RN=0,FW=>0900->0900+>0322, !P29682(V=(>DEAD,>DEAD,>DEAD,>DEAD),!P2968(D=(>C989,>000AÀ",>CE67,>0032),C=>07D6 !P2968"EC!P29682MRF PN=RTC9,RN=0,FW=>0900->0900+>032A, !P29682$V=>DEAD,D=>0460,C=>0460 !P2968$EC!P29682MRF PN=RTC9,RN=0,FW=>0900->0900+>032C, !P29682 V=>DEAD,D=>18EC+>0078,C=>1À964 !P2968EC!P2968.ENDIF!P2968*$!P2968J#**********************************************************************JJ!* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH UPDATE 3.6.0. *J**************À<********************************************************<4******* ADD ADDITIONAL PATCHES HERE ********4J#**********************************************************************J4******* NEXT AVAILABLE PATCH LOCATION: ********4À,******* RT$DLC1 >0160+>02A4 ********,,******* RT$DLC5 >0160+>02A4 ********,,******* RT$DLC9 >0900+>032E ********,J#**********************************************************************J******* RTSPROG PA€TCH LEVEL STAMP !RTSPROG$.IF @$E$C,EQ,"0"!311A !RTSPROG$" .IF @RTC1,NE,"RTC1" !RTSPROG"( MRF PN=RTC1,RN=0,FW=>000C,!RTSPROG(.V=>3331,D=(>3331,>3141),C=>0270 !RTSPROG.EC!RTSPROG.ENDIF!RTSPROGMR@" .IF @RTC5,NE,"RTC5" !RTSPROG"( MRF PN=RTC5,RN=0,FW=>000C,!RTSPROG(.V=>3331,D=(>3331,>3141),C=>0270 !RTSPROG.EC!RTSPROG.ENDIF!RTSPROG" .IF @RTC9,NE,"RTC9" !RTSPROG"$ MRF PN=RTC9,RN=0,FW=>000C,!RTSPR$ÀOG.V=>3331,D=(>3331,>3141),C=>0270 !RTSPROG.EC!RTSPROG.ENDIF!RTSPROG.ELSE !3110 !RTSPROG" .IF @RTC1,NE,"RTC1" !RTSPROG"( MRF PN=RTC1,RN=0,FW=>000C,!RTSPROG("V=>3331,D=(>3331,>3130),C=>0201 "À !RTSPROGEC!RTSPROG.ENDIF!RTSPROG" .IF @RTC5,NE,"RTC5" !RTSPROG"( MRF PN=RTC5,RN=0,FW=>000C,!RTSPROG(.V=>3331,D=(>3331,>3130),C=>0201 !RTSPROG.EC!RTSPROG.ENDIF!RTSPROG.IF @RTC9,NEÀ,"RTC9" !RTSPROG( MRF PN=RTC9,RN=0,FW=>000C,!RTSPROG(.V=>3331,D=(>3331,>3130),C=>0201 !RTSPROG.EC!RTSPROG.ENDIF!RTSPROG.ENDIF!RTSPROG>************************************************************>À*************** MESSAGES !RTSPROGFCM R=ME,M="RTS <3.1> RTSPROG PATCH ERROR COUNT = @$E$C" !RTSPROGFJ***** DELETE SYNONYMS THAT ARE UNIQUE TO THIS BATCH STREAM !RTSPROGJ..SYN PROGA="",RTPROG="",LDR="",RTC1="",RTC5=.€"",RTC9=""!RTSPROGEBATCH LS=YES !RTSPROGJ#**********************************************************************JÿÿEOD †SORTMERG PS´áêøZÀlâÌÀˆÛP*--------------------------------------------------------------------* PP* *** PATCH FILE DX10 3.6.0 SORT/MERGE 3.2.0 LAST UPDATE 02/20/84 * PP*--------------------------------------------------------------------* PRP* PP* * * * S P E C I A L I N S T R U C I O N S * * * PP* PRP* THE FOLLOWING SYNONYMS ARE OR MUST BE ASSIGNED BEFORE RUNNING PP* THIS BATCH STREAM: PP* PRP* VOLBLD - THE VOLUME NAME ON WHICH THE SORT/MERGE PACKAGE WAS PP* INSTALLED (USUALLY THE SYSTEM DISK) PP* PRP* S$PROC - THE FULL PATHNAME OF THE PROC LIBRARY THAT CONTAINS PP* THE SORT/MERGE PROCS. IF UNASSIGNED, THE DEFAULT PP* LIBRARY .S$PROC ON THE SYSTEM DISK WILL BE USED. PRP* PP* VOLADU - OPTIONAL SYNONYM FOR PATCH 1734 THAT IS ASSIGNED TO PP* THE NUMBER OF BYTES PER ADU ON THE SYSTEM DISK. PRP* SEE SECTION ON OPTIONAL PATCHES AND INSTRUCTIONS FOR PP* PATCH 1734 PP* PRP* TO ASSIGN SYNONYMS, USE THE AS COMMAND AND ENTER THE FOLLOWING PP* VALUES: PP* PRP* ASSIGN SYNONYM VALUE PP* SYNONYM: VOLBLD PP* VALUE: (VOLUME NAME OF THE SYSTEM DISK) PRP* PP* PP* * * * O P T I O N A L P A T C H E S * * * PRP* PP* THE FOLLOWING PATCH NUMBERS ARE OPTIONAL; APPLYING TO PARTICULAR PP* USER PROBLEMS. USERS SHOULD READ THE DESCRIPTIONS OF THESE PRP* PATCHES AND REMOVE THE COMMENT MARKS (ASTERISKS IN COLUMN ONE) PP* IF THEY WANT ONE OF THE OPTIONAL PATCHES. PP* PRP* PP* OPTIONAL PATCHES - P1734 PP* PRP* OPTIONAL PATCH P1734 REQUIRES THE ASSIGNMENT OF A SPECIAL SYNONYM. PP* PLEASE READ THE INSTRUCTIONS FOR THIS PATCH BEFORE ATTEMPTING TO PP* APPLY IT. IT IS RECOMMENDED THAT THE PATCH BE APPLIED. HOWEVER, PRP* IT HAS BEEN LEFT OPTIONAL AS IT WILL PROBABLY CAUSE A DIFFERENT, PP* BUT LEGAL, SEQUENCED OUTPUT IF THE VALUES OF THE INPUT SORT KEY PP* USED ARE NON-UNIQUE AND THE TAG ALONG DATA FOR THE KEYS IS PRP* UNIQUE. PP*--------------------------------------------------------------------* PP* PRP* * * * S Y N O N Y M A S S I G N M E M T * * * €%€%PP* PPBATCH LS=Y PRPQ$SYN PP.SYN $E$C="0" PP* PRP.IF "@VOLBLD",EQ,"VOLBLD" PPCM R=ME, PPM="SYNONYM VOLBLD NOT ASSIGNED: DX10 SORT/MERGE PATCH STREAM ABORTED" PRP.STOP PPT="SYNONYM VOLBLD NOT ASSIGNED: DX10 SORT/MERGE PATCH STREAM ABORTED" PP.ENDIF PRP* PP.SYN PROGF = @VOLBLD.S$PROGA PP.SYN LIBNAM = @VOLBLD.SMLIB PRP.IF "@S$PROC",EQ,"S$PROC" PP .SYN S$PROC=".S$PROC" PP.ENDIF PRP.USE @S$PROC,.S$PROC PP*$ PP*--------------------------------------------------------------------* PRP* BEGIN PATCHES FOR SORT/MERGE 3.2.0 * PP*--------------------------------------------------------------------* PP*=P0797 BH 01/27/81 STR #08080 DX10 SORT/MERGE 3.2.0 (BASCSM) PRP* PP* PROBLEM: ON RCVREC CALLS FROM BASIC, IF THE RECORD LENGTH IS PP* DIFFERENT FROM THE STRING LENGTH THE BASIC/SORT MERGE PRP* INTERFACE WOULD CHANGE THE STRING LENGTH, WHICH LED PP* TO INTERNAL BASIC PROBLEMS. PP* SOLUTION: THIS MODIFY RELATIVE TO FILE COMMAND MODIFIES THE PRP* PROBLEM WHICH EXISTS IN BASCSM. PP* PPMRF PN=@LIBNAM.BASCSM, RN=2, FW=>BA, PRP V=(>DC83), PP D=(>0582), C=>0582 PPEC PRP*$ PP*--------------------------------------------------------------------* PP*=P1030 TGS 04/14/81 STR #08600 DX10 SORT/MERGE 3.2.0 (SIN) PRP* MAB 07/21/82 PP* PP* ** OBSOLETE ** OBSOLETE ** OBSOLETE ** OBSOLETE ** OBSOLETE ** PRP* PP* ** SUPERSEDED BY PATCH 1897 ** PP* PRP* PROBLEM: WHEN A SYNONYM IS USED FOR THE WORK FILE PP* DISK/VOLUME NAME AND SORT/MERGE IS RUN IN A BATCH PP* STREAM, THE FUNCTION KEYS ARE DISARMED. PRP* SOLUTION: THE PROBLEM IS SOLVED BY PATCH 1897 AND THIS PATCH PP* WILL BE BACKED OUT BY PATCH 1897 PP* PRP*MPI PF=@PROGF, MT=OVLY, MN=XSRTINT, ADR=>321A, PP* V=(>0201,>9100), PP* D=(>0460,>3230), PRP* C=>3650 PP*EC PP*$ PRP*--------------------------------------------------------------------* PP*=P1055 TGS 04/21/81 STR #08640 DX10 SORT/MERGE 3.2.0 (CMPPCK) PP* MAB 08/04/82 PRP* PP* PROBLEM: IF PACKED FIELDS ARE SPECIFIED IN THE RECORD SELECTION PP* SPECS, THE FIRST RECORD MEETING THE CRITERIA IS NOT PRP* OMITTED OR INCLUDED. PP* SOLUTION: THIS PATCH MODIFIES THE PROGRAM IMAGE TO CORRECT PP* THIS PROBLEM. THIS PATCH WAS ALSO UPDATED TO INCLUDE PRP* TWO OTHER OVERLAYS THAT SHARE THE SAME CODE. PP* PPMPI PF=@PROGF, MT=OVLY, MN=XSRTINT, ADR=>3F5E, PRP V=(>C160,>4062), PP D=(>C144,>1000), PP C=>D144 PRPEC PPMPI PF=@PROGF, MT=OVLY, MN=XSRT, ADR=>3D46, PP V=(>C160,>3E4A), PRP D=(>C144,>1000), PP C=>D144 PPEC PRPMPI PF=@PROGF, MT=OVLY, MN=XFILMRG, ADR=>3BA4, PP V=(>C160,>3CA8), PP D=(>C144,>1000), PRP C=>D144 PPEC PP*$ PRP*--------------------------------------------------------------------* PP*=P1098 TGS 05/07/81 STR #08600 DX10 SORT/MERGE 3.2.0 (SIN) PP* MAB 07/21/82 PRP* PP* ** OBSOLETE ** OBSOLETE ** OBSOLETE ** OBSOLETE ** OBSOLETE ** PP* PRP* ** SUPERSEDED BY PATCH 1897 ** PP* PP* THIS PATCH HAS BEEN REMOVED AND REPLACED BY PATCH 1897. PRP* PP*MPI PF=@PROGF, MT=OVLY, MN=XSRTINT, ADR=>321A, PP* V=(>0460,>3230), PRP* D=(>0201,>9100), PP* C=>9301 PP*EC PRP*MPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>0138, PP* V=(>0146), PP* D=(>0880), PRP* C=>0880 PPEC PP*$ PRP*--------------------------------------------------------------------* PP*=P1212 JWR 06/17/81 STR #09084 DX10 SORT/MERGE 3.2.0 (RCVREC) PP* MAB 07/21/82 PRP* PP* <> PP* ** APPLICATION RELINKING REQUIRED IN ORDER FOR PATCH TO WORK. ** PRP* ** APPLY PATCH UNCONDITIONALY, RELINK IF YOU HAVE THIS PROBLEM ** PP* €%€% PP* PROBLEM: SORT AND THE APPLICATION ARE HUNG IN STATE 5 (BOTH TRYING PRP* TO SYNCHRONIZE TERMINATION) ON SYSTEMS THAT ARE RUNNING PP* ONLY A SORT/MERGE INVOKING TASK. PP* SOLUTION: THIS PATCH WAS PREVIOUSLY OPTIONAL BECAUSE IT WAS THOUGHT PRP* THAT THE PROBLEM WAS UNIQUE TO SYSTEMS WITH 96K BYTES PP* OF MEMORY OR LESS, HOWEVER, IT WAS LATER DETERMINED THAT PP* IT APPLIES TO ANY DX10 SYSTEM. PRP* PPMRF PN=@LIBNAM.RCVREC, RN=0, FW=>C2, PP V=(>4338,>3030,>4230), PRP D=(>3130,>3030,>4231), PP C=>4331 PPEC PRPMRF PN=@LIBNAM.RCVREC, RN=0, FW=>F2, PP V=(>3637), PP D=(>3638), PRP C=>3638 PPEC PPMRF PN=@LIBNAM.RCVREC, RN=0, FW=>1F4, PRP V=(>5933,>3030,>3334,>4C44), PP D=(>5934,>3030,>3030,>4C44), PP C=>1570 PRPEC PPMRF PN=@LIBNAM.RCVREC, RN=0, FW=>1FC, PP V=(>4C49,>564C,>3430,>3030), PRP D=(>4C53,>5643,>3846,>3230), PP C= >1066 PPEC PRP*--------------------------------------------------------------------* PP* THE FOLLOWING 2 MRF'S ARE BACKED OUT DUE TO FILE CONVERSION * PP* PROBLEMS. BOTH MRF'S ARE REPLACED BY THE FOLLOWING SINGLE MRF. * PRP*--------------------------------------------------------------------* PP*MRF PN=@LIBNAM.RCVREC, RN=0, FW=>204, PP* V=(>304C,>444C,>5356,>4337), PRP* D=(>3446,>2020,>2020,>2020), PP* C=>1466 PP*EC PRP*MRF PN=@LIBNAM.RCVREC, RN=0, FW=>20C, PP* V=(>4632,>3034,>4620), PP* D=(>2020,>2020,>2020), PRP* C=>2020 PP*EC PP*--------------------------------------------------------------------* PRPMRF PN=@LIBNAM.RCVREC, RN=0, FW=>204, PP V=(>304C), PP D=(>3446), PRP C=>3446 PPEC PP*--------------------------------------------------------------------* PRP* THE FOLLOWING 2 MRF'S ARE BACKED OUT BY THE NEXT 2 MRF'S * PP*--------------------------------------------------------------------* PP* PRP*EC PP*MRF PN=@LIBNAM.SRTINT, RN=2, FW=>27E, PP* V=(>3030,>4342), PRP* D=(>3036,>3442), PP* C=>0474 PP*EC PRP*MRF PN=@LIBNAM.SRTINT, RN=2, FW=>2BC, PP* V=(>3037), PP* D=(>3038), PRP* C=>3038 PP*--------------------------------------------------------------------* PP* RESTORE TIME DELAY FROM 5 SEC. BACK TO 0.6 SECONDS * PRP* NO VERIFICATION CAN BE PERFORMED FOR THESE CHANGES. * PP*--------------------------------------------------------------------* PPMRF PN=@LIBNAM.SRTINT, RN=2, FW=>27E, PRP D=(>3030,>4342), PP C=>7372 PPEC PRPMRF PN=@LIBNAM.SRTINT, RN=2, FW=>2BC, PP D=(>3037), PP C=>3037 PRPEC PP*$ PP*--------------------------------------------------------------------* PRP*=P1734 MAB 07/21/82 STR #12025 DX10 SORT/MERGE 3.2.0 PP* PP* ADDITIONAL STR'S - #10922, #05724, #09962 PRP* PP* PROBLEM: NONE - THE FOLLOWING PATCH WILL ENABLE SORT/MERGE TO MORE PP* EFFECTIVELY USE ITS TEMPORARY FILE ALLOCATION ON THE PRP* SYSTEM DISK AND, DEPENDING ON THE PARTICULAR APPLICATION, PP* SAVE A SIGNIFICANT AMOUNT OF DISK SPACE DURING THE SORT. PP* PRP* SOLUTION: ASSIGN THE SYNONYM VOLADU TO THE NUMBER OF BYTES PER ADU PP* OF THE SYSTEM DISK PRIOR TO APPLYING THIS PATCH (SEE PP* WARNING). NOTE THAT FOR ADU SIZES GREATER THAN 288 BYTES, PRP* AN ADDITIONAL PATCH IS APPLIED THAT CHANGES THE DEFAULT PP* WORKSPACE SIZE FROM 2800 BYTES, WHICH IS REALLY TOO SMALL, PP* TO 4000 BYTES; OTHERWISE, A MODERATELY SIZED SORT PRP* PERFORMED IN 2800 BYTES OF WORKSPACE AND A LARGE DISK ADU PP* SIZE WILL CAUSE WORKFILE ERRORS. IF IT IS DESIRED TO USE PP* THE 4000 BYTES AS THE DEFAULT (RECOMMENDED), REGARDLESS OF PRP* THE ADU SIZE, THEN REMOVE THE .IF AND .ENDIF STATEMENT PP* PAIR FROM AROUND THAT PART OF THE PATCH. PP* PRP* ** WARNING ** PP* PP* IN ORDER FOR THIS PATCH TO BE APPLIED CORRECTLY THE SYNONYM PRP* VOLADU MUST BE ASSIGNED TO THE EXACT NUMBER OF BYTES PER ADU OF PP* THE SYSTEM DISK. TO DETERMINE THIS VALUE ENTER THE COMMAND SVS PP* (SHOW VOLUME STATUS) AND TYPE IN THE VOLUME NAME (VOLBLD) OR THE PRP* DRIVE NAME OF THE SYSTEM DISK WHERE SORT/MERGE IS INSTALLED. THE PP* NUMBER OF BYTES/ADU WILL BE DISPLAYED IN DECIMAL IN THE UPPER PP* RIGHT HAND CORNER OF THE SCREEN. ASSIGN THE SYNONYM VOLADU TO PRP* THIS VALUE AS IT APPEARS. DO NOT USE LEADING ZEROS. INCORRECT PP* ASSIGNMENT OR CHANGING TO A SYSTEM DISK THAT USES A DIFFERENT PP* NUMBER OF BYTES/ADU MAY YIELD UNPREDICTABLE RESULTS; PRP* CONSEQUENTLY, WHEN THE NUMBER OF BYTES/ADU OF THE SYSTEM DISK PP* CHANGES THE USER MUST RERUN THIS PATCH STREAM WITH A NEW 'VOLADU' PP* VALUE. BECAUSE O€%€%F THIS NO VERIFICATION DATA IS PROVIDED FOR THIS PRP* PATCH. PP* PP*-------------------------------------------------------------------* PRP* THE FOLLOWING PATCH IS OPTIONAL; APPLYING TO A PARTICULAR PP* USER PROBLEM. USERS SHOULD REMOVE THE COMMENT MARKS (ASTERISKS PP* IN COLUMN ONE) IF THEY WANT THIS OPTIONAL PATCH. PRP*-------------------------------------------------------------------* PP PP.IF @VOLADU,NE,"VOLADU" PRP .EVAL VOLADU=@VOLADU/2 PP MPI PF=@PROGF, MT=OVLY, MN=XSRTINT, ADR=>329C, PP D=(@VOLADU*12,@VOLADU*10,@VOLADU*8,@VOLADU*6) PRP EC PP MPI PF=@PROGF, MT=OVLY, MN=XSRTINT, ADR=>32A4, PP D=(@VOLADU*4,@VOLADU*3,@VOLADU*2,>0120) PRP EC PP MPI PF=@PROGF, MT=OVLY, MN=XSRTINT, ADR=>32B0, PP D=(>000A), PRP C=>000A PP EC PP MPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>012A, PRP D=(>0120,>0120), PP C=>0000 PP EC PRP MPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>0134, PP D=(>0120,>0120), PP C=>0000 PRP EC PP*-------------------------------------------------------------------* PP* THE FOLLOWING SETS DEFAULT WORK SPACE TO 4000 BYTES - THE * PRP* FOLLOWING .IF AND SUCCEEDING .ENDIF MUST BE REMOVED IF THE * PP* PATCH IS TO BE APPLIED UNCONDITIONALLY. * PP*-------------------------------------------------------------------* PRP* .IF @VOLADU,GT,144 PP MPI PF=@PROGF, MT=OVERLAY, MN=XHEADER, ADR=>3AAE, PP V=(>0AF0), PRP D=(>0FA0), PP C=>0FA0 PP EC PRP MPI PF=@PROGF, MT=OVERLAY, MN=XHEADER, ADR=>3AEA, PP V=(>03E8), PP D=(>0FA0), PRP C=>0FA0 PP EC PP MPI PF=@PROGF, MT=OVERLAY, MN=XTRANSL, ADR=>2DD0, PRP V=(>03E8), PP D=(>0FA0), PP C=>0FA0 PRP EC PP* .ENDIF PP*-------------------------------------------------------------------* PRP* END OF DEFAULT WORK SPACE PATCH - THE ABOVE .ENDIF AND PRE- * PP* CEDING .IF MUST BE REMOVED IF THE PATCH IS TO BE APPLIED * PP* UNCONDITIONALLY. * PRP*-------------------------------------------------------------------* PP.ELSE PP CM R=ME, PRP M="SYNONYM 'VOLADU' MUST BE ASSIGNED. PATCH 1734 NOT APPLIED" PP .SYN $$CC=>C000 PP EC PRP.ENDIF PP*$ PP*--------------------------------------------------------------------* PRP*=P1897 MAB 07/21/82 STR #06755 DX10 SORT/MERGE 3.2.0 PP* PP* ADDITIONAL STR'S - #10564, #12729, #07766, #08600, #09206 PRP* PP* *** CRITICAL PATCH *** PP* PRP* PROBLEM: AS STATED IN PATCH 1030 AND 1098 ABOVE. PP* PP* SOLUTION: HERE IT IS! THIS PATCH WILL SOLVE WORK FILE SYNONYM PRP* PROBLEMS (ATTEMPTED BY PATCH 1030 AND 1098), FUNCTION KEYS PP* DISARMED BY BACKGROUND EXECUTION OR BY EXECUTION FROM PP* COBOL, FORTRAN, ASSEMBLY, BASIC, QUERY, AND PASCAL; PRP* PROBLEMS WITH GARBAGE TO THE SCREEN, AND WORK FILE I/O PP* ERROR PROBLEMS ON LARGE SORTS THAT ARE NOT RELATED TO PP* OPTIONAL PATCH 1734. PRP* PP*--------------------------------------------------------------------* PP* REMOVE PATCH 1098 IF APPLIED * PRP* NO VERIFICATION CAN BE PERFORMED FOR THIS MPI * PP*--------------------------------------------------------------------* PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>0138, PRP D=(>0146), PP C=>0146 PPEC PRP*--------------------------------------------------------------------* PP* END OF PATCH PATCHES - START OF FINAL PATCH * PP* THE FIRST MPI CONTAINS NO VERIFICATION DATA DUE TO A POSSIBLE * PRP* APPLICATION OF A HOT-LINE RELEASED TEMPORARY PATCH. * PP*--------------------------------------------------------------------* PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>0880, PRP D=(>1100), PP C=>1100 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>0892, PP2 V=(>0000,>0000,>0000), PP D=(>0444,>5330,>3100), PRP C=>6674 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08A4, PRP V=(>0000), PP D=(>1100), PP C=>1100 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08B6, PP V=(>0000,>0000,>0000,>0000), PRP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PPEC €%€% PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08BE, PP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PRP C=>0000 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08C6, PRP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08CE, PP V=(>0000,>0000,>0000,>0000), PRP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08D6, PP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PRP C=>0000 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08DE, PRP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08E6, PP V=(>0000,>0000,>0000,>0000), PRP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08EE, PP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PRP C=>0000 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08F6, PRP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>08FE, PP V=(>0000), PRP D=(>DEAD), PP C=>DEAD PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>0138, PP V=(>0146), PP D=(>0892), PRP C=>0892 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>0146, PRP V=(>0444,>5330,>3100,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>014E, PP V=(>0000,>0000,>0000,>0000), PRP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>0156, PP V=(>0000), PP D=(>DEAD), PRP C=>DEAD PPEC PPMPI PF=@PROGF, MT=OVERLAY, MN=XHEADER, ADR=>3F36, PRP V=(>C160,>01C4,>0225), PP D=(>C1E0,>01C4,>0227), PP C=>C203 PRPEC PPMPI PF=@PROGF, MT=OVERLAY, MN=XHEADER, ADR=>3F4A, PP V=(>C085), PRP D=(>C087), PP C=>C087 PPEC PRPMPI PF=@PROGF, MT=OVERLAY, MN=XHEADER, ADR=>3F5C, PP V=(>0201,>0008,>0202,>0147), PP D=(>0203,>0892,>06C1,>DCC1), PRP C=>D091 PPEC PPMPI PF=@PROGF, MT=OVERLAY, MN=XHEADER, ADR=>3F64, PRP V=(>C0C6,>06A0,>352E,>06C1), PP D=(>C183,>06C1,>1000,>DCF7), PP C=>0BB5 PRPEC PPMPI PF=@PROGF, MT=OVERLAY, MN=XHEADER, ADR=>3F6C, PP V=(>D801,>0146,>C060,>3FFA), PRP D=(>0601,>16FD,>C060,>3FFA), PP C=>EF66 PPEC PRP*--------------------------------------------------------------------* PP* NO VERIFICATION IS MADE FOR THE FOLLOWING MPI AS IT WILL BACK OUT* PP* BY PATCHES 1030 AND 1098 EITHER OF WHICH MAY NOT HAVE BEEN * PRP* APPLIED. * PP*--------------------------------------------------------------------* PPMPI PF=@PROGF, MT=OVERLAY, MN=XSRTINT, ADR=>321A, PRP D=(>0460,>1FE0,>C041,>1307), PP C=>C8C6 PPEC PRPMPI PF=@PROGF, MT=OVERLAY, MN=XSRTINT, ADR=>3222, PP V=(>C881,>0002,>2FD2,>04C1), PP D=(>0202,>0002,>06A0,>1380), PRP C=>1720 PPEC PPMPI PF=@PROGF, MT=OVERLAY, MN=XSRTINT, ADR=>322A, PRP V=(>D881,>0002,>2FD2), PP D=(>DEAD,>DEAD,>DEAD), PP C=>DEAD PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>1FE0, PP V=(>0000,>0000,>0000,>0000), PRP D=(>C020,>0F06,>160C,>0201), €%€% PP C=>DB2B PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>1FE8, PP V=(>0000,>0000,>0000,>0000), PP D=(>0892,>0202,>08A4,>0420), PRP C=>0614 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>1FF0, PRP V=(>0000,>0000,>0000,>0000), PP D=(>24B0,>0102,>D020,>08A4), PP C=>FD36 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>1FF8, PP V=(>0000,>0000,>0000,>0000), PRP D=(>1302,>C802,>0138,>0201), PP C=>D839 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2000, PP V=(>0000,>0000,>0000,>0000), PP D=(>9100,>D801,>0124,>2FE0), PRP C=>67C5 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2008, PRP V=(>0000,>0000,>0000,>0000), PP D=(>0122,>C060,>0122,>1606), PP C=>D666 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2010, PP V=(>0000,>0000,>0000,>0000), PRP D=(>D801,>0124,>2FE0,>0122), PP C=>F7E7 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2018, PP V=(>0000,>0000,>0000,>0000), PP D=(>C060,>0122,>0460,>321E), PRP C=>F73C PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2020, PRP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2028, PP V=(>0000,>0000,>0000,>0000), PRP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2030, PP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PRP C=>0000 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2038, PRP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2040, PP V=(>0000,>0000,>0000,>0000), PRP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2048, PP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PRP C=>0000 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2050, PRP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2058, PP V=(>0000,>0000,>0000,>0000), PRP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PPEC PRPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2060, PP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PRP C=>0000 PPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2068, PRP V=(>0000,>0000,>0000,>0000), PP D=(>DEAD,>DEAD,>DEAD,>DEAD), PP C=>0000 PRPEC PPMPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>2070, PP V=(>0000,>0000,>0000), PRP D=(>DEAD,>DEAD,>DEAD), PP C=>DEAD PPEC PRP*$ PP*--------------------------------------------------------------------* PP*=P2028 MAB 07/29/82 STR #13120 DX10 SORT/MERGE 3.2.0 (INVMSK) PRP* PP* PROBLEM: SORT/MERGE DOES NOT CORRECTLY SORT NEGATIVE FLOATING POINT PP* VALUES IF THE SEQUENCE IS OPPOSITE. PRP* SOLUTION: THIS PATCH MODIFIES THE PROGRAM IMAGE TO CORRECT THE PP* PROBLEM. PP* PRPMPI PF=@PROGF, MT=OVERLAY, MN=XSRTINT, ADR=>4502, PP V=(>0241), PP D=(>0242), PRP C=>0242 PPEC PPMPI PF=@PROGF, MT=OVERLAY, MN=XSRT, ADR=>42EA, PRP V=(>0241), PP D=(>0242), PP C=>0242 PRPEC PPMPI PF=€%€%@PROGF, MT=OVERLAY, MN=XFILMRG, ADR=>4148, PP V=(>0241), PRP D=(>0242), PP C=>0242 PPEC PRP*$ PP*--------------------------------------------------------------------* PP* * PRP* END OF ALL 3.2.0 PATCHES * PP* UPDATE VERSION TO 3.2.1. UPDATE S$PROC * PP* * PRP*--------------------------------------------------------------------* PP*=P1898 MAB 08/04/82 STR #08323 DX10 SORT/MERGE 3.2.0 (PRTHDR) PP* PRP* PROBLEM: UPDATED LISTINGS PP* SOLUTION: PUT 3.2.1 VERSION NUMBER ON LISTINGS IF ALL ABOVE PATCHES PP* WORKED. UPDATE S$PROC. NO VERIFICATION CAN BE USED FOR PRP* THESE CHANGES. PP* PP.IF @$E$C,EQ,0 PRP MPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>1644, PP D=(>322E,>3120), PP C=>030E PRP EC PP MPI PF=@PROGF, MT=TASK, MN=SORTMG, ADR=>164A, PP D=(>322E,>3232,>3820), PRP C=>383C PP EC PP* PRP .PROC XBSM(EXECUTE BATCH SORT/MERGE ), PP = CONTROL FILE NAME = ACNM, PP = LISTING DEVICE NAME = ACNM, PRP = PROCESSING MODE(F,B)=STRING(F) PP = .IF @&CONTROL,EQ,@&LISTING PP = CM R=ME, PRP = M="CONTROL AND LISTING FILE ARE THE SAME: SORT/MERGE ABORTED" PP = .EXIT PP = .ENDIF PRP = .IF &PROCESSING,EQ,"F" PP = .BID TASK=>2A, CODE=1, PP = PARMS=("@&CONTROL FILE NAME","@&LISTING DEVICE NAME") PRP = .ELSE PP = .IF &PROCESSING,EQ,"B" PP = .QBID TASK=>2A, CODE=1, PRP = PARMS=("@&CONTROL FILE NAME","@&LISTING DEVICE NAME") PP = .ELSE PP = CM R=ME, PRP = M="INVALID PROCESSING MODE: SORT/MERGE ABORTED" PP = .ENDIF PP = .ENDIF PRP .EOP PPEC PP.EVAL $$CC=0 PRP* PP .PROC XSM (EXECUTE SORT/MERGE ), PP = NEW CONTROL FILE? (YES,NO) = YESNO, PRP = CONTROL FILE NAME = ACNM PP = .SYN $SMEC$ = 0 PP = .SYN $XSM$CFN="@&CONTROL FILE NAME" PRP = .BID TASK=>2D, PP = PARMS=("0","&NEW CONTROL FILE?", PP = "@&CONTROL FILE NAME") PRP = .IF "@$$CC", NE, 0 PP = .EXIT PP = .ENDIF PRP = .IF &NEW CONTROL FILE?, GE, Y PP = SM$CRT PP = .IF @$SMEC$, NE,0 PRP = .EXIT PP = .ENDIF PP = .ENDIF PRP = .SYN $XSM$BK = "NONNIL" PP = SM$END PP = .SYN $XSM$CFN="" PRP = .SYN $XSM$BK="" PP .EOP PPEC PRP.EVAL $$CC=0 PP* PP.ENDIF PRP*$ PP*--------------------------------------------------------------------* PP* BEGIN 3.2.1 PATCHES * PRP*--------------------------------------------------------------------* PP*=P2273 MAB 10/05/82 STR #13565 DX10 SORT/MERGE 1.0.1 (CHKOPF) PP* PRP* PROBLEM: THE USER HAS NOT SPECIFIED THE PHYSICAL RECORD SIZE IN PP* THE SORT/MERGE CONTROL FILE. PP* SOLUTION: THIS PATCH WILL FORCE SORT/MERGE TO USE THE SYSTEM DEFAULT PRP* PHYSICAL RECORD SIZE FOR A NEW (NONEXISTING) OUTPUT FILE PP* IF THE USER HAS NOT SPECIFIED THE PHYSICAL RECORD SIZE IN PP* THE SORT/MERGE CONTROL FILE. PREVIOUSLY, SORT/MERGE WOULD PRP* NOT ALLOW BLOCKING OF RECORDS AND WOULD FORCE THE PHYSICAL PP* RECORD LENGTH THE SAME AS THE LOGICAL RECORD LENGTH; AND PP* IN MOST CASES, DISK WASTAGE WOULD OCCUR. PRP* PP* N O T E: PP* ------- PRP* THE USER MAY WISH TO NOTE THIS CHANGE IN PARAGRAPH 5.2.2.3 OF PP* THE SORT/MERGE USER'S GUIDE. IF PROBLEMS OCCUR WITH BLOCKING PP* OF OUTPUT, THE USER SHOULD BACK OUT THIS PATCH. PRP* PPMPI PF=@PROGF, MT=OVERLAY, MN=XHEADER, ADR=>41D0, PP V=(>1302), PRP D=(>1316), PP C=>1316 PPEC PRP*$ PP*--------------------------------------------------------------------* PP*=P2277 MAB 10/06/82 STR #13625 DX10 SORT/MERGE 1.0.1 (BASCSM) PRP* PP* PROBLEM: BASIC ERROR 172 IS ENCOUNTERED WHEN TRYING TO CALL€%€% SRTINT PP* (VIA BASCSM). PRP* SOLUTION: THIS PATCH WILL SOLVE BASIC ERROR 172. PP* PPMRF P=@LIBNAM.BASCSM, RN=4, FW=>0094, PRP V=(>D022), PP D=(>1008), PP C=>1008 PRPEC PP*$ PP*--------------------------------------------------------------------* PRP* END OF ALL DX10 SORT/MERGE PATCHES * PP*--------------------------------------------------------------------* PP*--------------------------------------------------------------------* PRP* *** DELETE SYNONYMS THAT ARE UNIQUE TO THIS BATCH STREAM *** * PP*--------------------------------------------------------------------* PPCM R=ME, M="DX10 SORT/MERGE PATCH FILE ERROR COUNT = @$E$C" PRP.SYN PROGF = "" PP.SYN LIBNAM = "" PP* PRPSDT PPEBATCH LS=YES, PP TEXT="@$E$C ERRORS ON SORTMERGE PATCH STREAM", PRP CODE=@$E$C PP*--------------------------------------------------------------------* PP* *** NEXT AVAILABLE PATCH LOCATION = >2020 *** * PRP*--------------------------------------------------------------------* P ðð* NOT ALLOW BLOCKING OF RECORDS ANÿÿ†QUERY PIU¼>ZÀˆÛÉÀˆÛP*--------------------------------------------------------------------* PP* *** PATCH FILE DX10 QUERY-990 1.4.0 LAST UPDATE 03/08/84 * PP*--------------------------------------------------------------------* PRP* PP* YOU MUST ASSIGN THE FOLLOWING SYNONYMS BEFORE YOU RUN THIS BATCH PP* STREAM: PRP* PP* VOLBLD - VOLUME NAME OF THE DISK WHERE THE QUERY-990 PACKAGE IS PP* INSTALLED PRP* PP* PROC - DIRECTORY WHICH CONTAINS THE QUERY PROC TO BE MODIFIED. PP* USUALLY (.S$PROC). PRP*--------------------------------------------------------------------* PPBATCH LS=YES PP*--------------------------------------------------------------------* PRP* PP* U S E R M O D I F I E D A R E A PP* PRP*--------------------------------------------------------------------* PP* THE FOLLOWING SYNONYM MUST BE ASSIGNED. THE VALUE IS FOUND IN THE PP* LINK MAP GENERATED BY QGEN. PRP* PP* PATHNAME = Q.LNK.MAP PP* PRP* WHERE 'Q' IS THE PATHNAME OF THE DIRECTORY WHERE QUERY IS INSTALLED. PP* PP* SYNONYM VALUE/ORIGIN CORRESPONDING MODULE IN LINK MAP PAGE PRP* ------- ------------ -------------------------------- ---- PP* CONVRE >XXXX CONVRESU 4 PP.SYN CONVRE =>2A2A PRP*--------------------------------------------------------------------* PP* PP* E N D U S E R M O D I F I E D A R E A PRP* PP*--------------------------------------------------------------------* PP.IF "@VOLBLD",EQ,"VOLBLD" PRPCM R=ME, PPM="SYNONYM VOLBLD NOT ASSIGNED: DX10 QUERY-990 BATCH STREAM ABORTED" PP.STOP PRPT="SYNONYM VOLBLD NOT ASSIGNED: DX10 QUERY-990 BATCH STREAM ABORTED" PP.ENDIF PP* PRP.IF "@PROC",EQ,"PROC" PP .SYN PROC=".S$PROC" PP.ENDIF PRP* PP.USE PROC PP*--------------------------------------------------------------------* PRP* *** BEGIN PATCHES FOR DX10 QUERY-990 1.4.0 * PP*--------------------------------------------------------------------* PP*$ PRP*--------------------------------------------------------------------* PP*=P3331 ARG 12/7/83 STR #17093 DX10 QUERY-990 1.4.0 (PROCS) PP* PRP* PROBLEM: QUERY/SORT WORK FILE NOT BEING DELETED WHEN QUERY TASK PP* HAS TERMINATED. QUERIES THAT CONTAIN A 'SORTED BY' PP* CLAUSE CREATE A FILE THAT HAS THE PATHNAME .SMFILXX PRP* (WHERE XX IS THE STATION NUMBER). THIS FILE IS PP* APPARENTLY USED AS A SORT WORK FILE. IT CONTAINS ONE PP* ENTRY FOR EACH KEY SORTED & CAN BECOME A HUGE FILE (E.G. PRP* 100,000+RECORDS). THIS SHOULD BE A TEMP FILE AND SHOULD PP* BE DELETED WHEN QUERY TERMINATES. PP* PRP* SOLUTION: REPLACE THE 'QUERY' PROC WITH A NEW ONE THAT CAN DELETE PP* THE TEMPORARY FILE. PP* PRP*--------------------------------------------------------------------* PP.PROC QUERY (QUERY-990 ), PP= INPUT STATEMENT PATHNAME = *ACNM (@$Q$SF), PRP= OUTPUT STATEMENT PATHNAME = *ACNM, PP= REPORT ACCESS NAME = *ACNM (@$Q$O), PP= DEFAULT REPORT PARAMETERS? = ELEMENT(Y=YES,N=NO) (YES) PRP=.IF &DEFAULT REPORT PARAMETERS?, LT, Y PP= .PROMPT (QUERY REPORT PARAMETERS), PP= REPORT/UNFORMATTED = *ELEMENT(R=REPORT,U=UNFORMATTED) (R), PRP= NUMBER OF LINES PER PAGE = *INT (60), PP= NUMBER OF COLUMNS PER LINE = *INT (80), PP= LIST QUERY TEXT? = *ELEMENT(Y=YES,N=NO) (YES), PRP= CHANGE DATA PATHNAME = *ACNM PP=.ENDIF PP=CFSEQ PATHNAME=.SMFIL@$$ST PRP=.IF &INPUT STATEMENT PATHNAME, EQ, "" €%€% PP= .SYN $Q$N=Y PP=.ELSE PRP= .SYN $Q$N=N, PP= $Q$SF="&INPUT STATEMENT PATHNAME" PP=.ENDIF PRP=.IF &OUTPUT STATEMENT PATHNAME, EQ, "" PP= .SYN $Q$E=N, PP= $Q$S=N PRP=.ELSE PP= .SYN $Q$E=Y PP= .IF &OUTPUT STATEMENT PATHNAME, NE, DUMY PRP= .SYN $Q$SF="&OUTPUT STATEMENT PATHNAME" PP= .ENDIF PP= .SYN $Q$S=Y PRP=.ENDIF PP=.IF "&REPORT/UNFORMATTED", EQ, "" PP= .SYN $Q$F=R PRP=.ELSE PP= .SYN $Q$F="&REPORT/UNFORMATTED" PP=.ENDIF PRP=.IF @$Q$F, LT, U PP= .IF "&REPORT ACCESS NAME", EQ, "" PP= .SYN $Q$L=.LISTIN@$$ST, PRP= $Q$O="" PP= .ELSE PP= .SYN $Q$L="@&REPORT ACCESS NAME", PRP= $Q$O="&REPORT ACCESS NAME" PP= .ENDIF PP=.ELSE PRP= .SYN $Q$L="@&REPORT ACCESS NAME" PP=.ENDIF PP=.IF "&NUMBER OF LINES PER PAGE", EQ, "" PRP= .SYN $Q$R=60 PP=.ELSE PP= .SYN $Q$R="&NUMBER OF LINES PER PAGE" PRP=.ENDIF PP=.IF "&NUMBER OF COLUMNS PER LINE", EQ, "" PP= .SYN $Q$C=80 PRP=.ELSE PP= .SYN $Q$C="&NUMBER OF COLUMNS PER LINE" PP=.ENDIF PRP=.IF "&LIST QUERY TEXT", EQ, "" PP= .SYN $Q$T=Y PP=.ELSE PRP= .SYN $Q$T="&LIST QUERY TEXT?" PP=.ENDIF PP=.SYN $Q$D="@&CHANGE DATA PATHNAME" PRP=.BID TASK = 0C0, LUNO = 010, PP= PARMS = (2000, 6000, @$MR$,, @$Q$R, @$Q$C,, PP= @$Q$F, @$Q$N, @$Q$E, @$Q$T, @$$ST, @$Q$S, PRP= @$Q$D, "@&INPUT STATEMENT PATHNAME", PP= @$Q$L,,, "@&OUTPUT STATEMENT PATHNAME",@$MT$) PP=.IF "&REPORT ACCESS NAME", EQ, "" PRP= .IF @$$CC, NE, >800C PP= .IF @$$CC, NE, >800B PP= .IF @$$CC, NE, >8008 PRP= .IF @$$CC, NE, >8007 PP= .IF @$$CC, NE, >8006 PP= .IF @$$CC, NE, >8005 PRP= .IF @$$CC, NE, >8001 PP= .SHOW .LISTIN@$$ST PP= DF P=.LISTIN@$$ST PRP= .ENDIF PP= .ENDIF PP= .ENDIF PRP= .ENDIF PP= .ENDIF PP= .ENDIF PRP= .ENDIF PP=.ENDIF PP=DF P=.SMFIL@$$ST PRP=.SYN $Q$C="", $Q$D="", $Q$E="", $Q$F="", $Q$I="", PP= $Q$L="", $Q$N="", $Q$R="", $Q$S="", $Q$T="" PP.EOP PRP.USE PPEC PP*$ PRP*--------------------------------------------------------------------* PP*=P3396 ARG 01/18/84 STR #17026 DX10 QUERY-990 1.4.0 PP* PRP* PROBLEM: WHEN TOTAL IS USED FOLLOWING A FIELD WITH A VALUE OF 0, PP* THE LISTING WILL INCLUDE A NUMBER OF ASTERISKS (THE PP* NUMBER USUALLY EQUAL TO THE LENGTH OF THE FIELD) STARTING PRP* IN COLUMN 11 OF THE REPORT LINE BEING OUTPUT. THE COUNT PP* OPTION RESULT IS NORMAL BUT AN ARITHMETIC OVERFLOW IS PP* DETECTED. THIS OCCURS WITH PACKED DECIMAL TYPES (PK). PRP* SOLUTION: REMOVE ENHANCEMENT CHECK FOR A COUNT OVERFLOW WITH (IS) PP* DATA TYPES BEING CONVERTED TO PACKED DECIMAL DATA TYPES. PP* PRPMPI P=@VOLBLD.S$SDS$,MT=PROCEDURE,MN=0C0,ADDRESS=@CONVRE+>3C8, PP V=>154A, PP D=>1000, PRP C=>1000 PPEC PP*--------------------------------------------------------------------* PRP* *** DELETE SYNONYMS THAT ARE UNIQUE TO THIS BATCH STREAM *** * PP*--------------------------------------------------------------------* PP.SYN PROC="" PRP.SYN CONVRE="" PPSDT PPEBATCH TEXT="@$E$C ERRORS ON QUERY PATCH STREAM", PRPCODE=@$E$C PP*--------------------------------------------------------------------* PP* NEXT AVAILABLE PATCH LOCATION =>0000 IN PATCH AREA PRP*--------------------------------------------------------------------* P-------------------------------------------------------------------* PP* NEXT AVAILABLE PATCH LOCATION =>0000 IN PATCH AREA PRÿÿ†DXBASIC P ˜]A^úÀlãÀˆÛ@J#*--------------------------------------------------------------------*JF* *** PATCH FILE DX10 3.6.0 BASIC 4.1.0 LAST UPDATE 02/21/84*FJ#*--------------------------------------------------------------------*J* €%€% INSTRUCTIONS:À* '@* YOU MUST ASSIGN THE FOLLOWING SYNONYM BEFORE RUNNING THIS @* BATCH STREAM: * 'B* DSC- VOLUME NAME OF THE DISK ON WHICH BASIC IS INSTALLED.B* '4* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH4À FEW, * IF ANY, USER SYNONYMS. J#*--------------------------------------------------------------------*JBATCH LS=YES".IF "@DSC", EQ, "DSC" 0 CM MESSAGE="SYNONYM 'DSC' MUST BE ASSIGNED"0 .STOP$ .ENDIFÀ%J#*--------------------------------------------------------------------*J$Q$SYN ! CLEAR SECRET SYNONYMS $(.SYN $E$C=0 ! CLEAR ERROR COUNTER (@.SYN S$BAS=@@DSC.S$BASIC! SET SYNONYM FOR BASIC DIRECTORY @*-----------À>---------------------------------------------------------*> * ! * 4* ***BEGIN PATCHES FOR DX10 BASIC4.1.0 *4 * ! * J#*--------------------------------------------------------------------*J* '.SYN EA=>0€8DA !.SYN I1=>67E2 !.SYN IG=>13AE !.SYN M1=>4E50 !.SYN MI2=>9C00!.SYN OM=>2010 !.SYN P1=>5622 !.SYN P2=>A000 !.SYN RA=>6250 !.SYN RE=>231C !.SYN RO=>07F6 !.SYN SR=>252E !.SYN ST=>2404 !.SYN TL=>C800 !.SYN UT=>2EFE !.SYN V1=>EC00 !* ',* VERIFY THE CORRECT VERSION OF BASIC. ,* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=TASK, MODULE NAME OR ID=>1,@ ADDRESS=@I1+>1372, , VERIFICATION DATA=(>2034,>2E31,>2E30), , DATA=(>2034,>2E31,>2E30), RELOCATION=(N,N,N)* '.IF @$$CC, NE, 0 8CM R=ME,M="CANNOT PATCH; BASIC IS NOT VERSION 4.1.0" 8 .STOP $ .ENDÀIF%* '* 'J#*--------------------------------------------------------------------*J* '<*=P3313 LJ 11/02/83STR #17070DX10BASIC 4.1.0 <* ':* PRESSING THE "TAB" KEY ON A LINE WHOSE LENGTH IS GREA:€TER THAN 39 2* DELETES THE PART OF THE LINE TO THE RIGHT. 2* '* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>0056, & VERIFICATION DATA=(>0200,>0050), &DATA=(>06A0,@V1+>0312)@EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>0312, VERIFICATION DATA=>0000, "DATA=(>0200,>0050,>0744,>1601)"EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBÀ ER=27, FIRST WORD=>031A, VERIFICATION DATA=>0000, *DATA=(>045B,>D820,@RA+>0207,@RA+>0201)*EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>0322, VERIFICATION DATA=>À 0000, DATA=(>0460,@V1+>006C)EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>0404, VERIFICATION DATA=>0D03, DATA=>0D0BEC'* 'MRF PATHNAME=@S$BAS.OV€400, RECORD NUMBER=27, FIRST WORD=>0430, VERIFICATION DATA=>F000, DATA=(>F001,>A000)EC'* '* '*$'* 'J#*--------------------------------------------------------------------*JL@* '<*=P3314 LJ 11/07/83STR #17072DX10BASIC 4.1.0 <* 'H"* A NEGATIVE NUMBER IN A "PRINT" OR "DISPLAY" STATEMENT MAY CAUSE AH * TASK ERROR 05 TO OCCURR. * '* '"MPI PROGRAM FILE=@S$BAS.PROG, "À MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>022A, 6 VERIFICATION DATA=(>C020,@RA+>015A,>C010,>0520), 6(DATA=(>0520,@RA+>0158,>1110,>0420), ( RELOCATION=(N,Y,N,N)EC'* ' MPI PR €OGRAM FILE=@S$BAS.PROG, MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>0232, : VERIFICATION DATA=(@RA+>0158,>1110,>0420,@OM+>0010), :,DATA=(@OM+>0010,@M1+>0014,>04CF,>C006), , RELOCATION=(Y,Y,N,N)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>023A, 6 VERIFICATION DATA=(@M1+>0014,>04CF,>C006,>06A0), 6,DATA=(>06A0,@P1+>0296,>C020,@RA+>0228), , 0@ RELOCATION=(N,Y,N,Y)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>0242, : VERIFICATION DATA=(@P1+>0296,>C020,@RA+>0228,>160D), :DATA=(>1610,>0À 202,>0001,>06A0), RELOCATION=(N,N,N,N)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>024A, 4 VERIFICATION DATA=(>0202,>0001,>06A0,@P1+>0278), 4À,DATA=(@P1+>0278,>0460,@P1+>0166,>C020), , RELOCATION=(Y,N,Y,N)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>0252, VERIFICATION DATA=(>0À460,@P1+>0166), DATA=(@RA+>015A,>C010), RELOCATION=(Y,N)EC'* '* '*$'* 'J#*--------------------------------------------------------------------*J* ' *=P3315 LJ 11/07/83STR #1 À7073DX10BASIC 4.1.0 * '@* A NEGATIVE "SIZE" PHRASE WITH A NULL STRING PRINTS OUT A @$* VERY LARGE NUMBER OF BLANKS. $* '* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAÀME OR ID=>1, ADDRESS=@P1+>02CE, * VERIFICATION DATA=(>C320,@RA+>0228), *DATA=(>06A0,@P1+>05E0), RELOCATION=(N,Y)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAMEÀ OR ID=>1, ADDRESS=@P1+>02F6, * VERIFICATION DATA=(>C320,@RA+>0228), *DATA=(>06A0,@P1+>05E0), RELOCATION=(N,Y)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OÀR ID=>1, ADDRESS=@P1+>05E0, 2 VERIFICATION DATA=(>DEAD,>DEAD,>DEAD,>DEAD), 2(DATA=(>C320,@RA+>0228,>074C,>C30C), ( RELOCATION=(N,Y,N,N)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC,À MODULE NAME OR ID=>1, ADDRESS=@P1+>05E8, VERIFICATION DATA=>DEAD, DATA=>045B, RELOCATION=NEC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=18, FIRST WORD=>00CE, V€ERIFICATION DATA=>0720, DATA=>04E0EC'* '* '*$'* 'J#*--------------------------------------------------------------------*J* '<*=P3316 LJ 11/15/83STR #17074DX10BASIC 4.1.0 <>* '<* TASK ERROR MESSAGES ARE NOT REPORTED PROPERLY TO SCI.<* '* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=7, FIRST WORD=>019C, " VERIFICATION DATA=@RA+>02FC, "DATA=@RA+>01A9EC'@* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=7, FIRST WORD=>0242, VERIFICATION DATA=>D480, DATA=>1000EC'* '* '*$'* '2*-----------------------------------------------2À---------------------** '<*=P3317 LJ 11/16/83STR #17076DX10BASIC 4.1.0 <* '4* "NUM" DOES NOT ALWAYS SCROLL LINES PROPERLY. 4* '* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC,€ MODULE NAME OR ID=>1, ADDRESS=@P1+>05EA, 2 VERIFICATION DATA=(>DEAD,>DEAD,>DEAD,>DEAD), 2,DATA=(>A120,@RA+>03D6,>0420,@P1+>0358), , RELOCATION=(N,Y,N,Y)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $@ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>05F2, VERIFICATION DATA=>DEAD, DATA=>045B, RELOCATION=NEC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=18, FIRST WO ÀRD=>00A0, * VERIFICATION DATA=(>A120,@RA+>03D6), *DATA=(>06A0,@P1+>05EA)EC'* '* '*$'* 'J#*--------------------------------------------------------------------*J* '*=P3318 LJ 11À,/17/83STR #17077DX10BASIC 4.1.0 ,* 'F!* "RETURN NEXT" IN LOCK MODE SOMETIMES TERMINATES WITH "ERROR 14"F* '* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1,À ADDRESS=@P1+>05F4, 2 VERIFICATION DATA=(>DEAD,>DEAD,>DEAD,>DEAD), 2$DATA=(>028F,>0091,>1302,>0460), $ RELOCATION=(N,N,N,N)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAMEÀ OR ID=>1, ADDRESS=@P1+>05FC, , VERIFICATION DATA=(>DEAD,>DEAD,>DEAD), ,&DATA=(@IG+>000C,>0460,@IG+>001A), & RELOCATION=(Y,N,Y)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC,À MODULE NAME OR ID=>1, ADDRESS=@RE+>00C0, " VERIFICATION DATA=@IG+>000C, "DATA=@P1+>05F4, RELOCATION=YEC'* '* '*$'* '<*---------------------------------------------------------<À-----------** '<€%€%*=P3319 LJ 11/22/83STR #17079DX10BASIC 4.1.0 <* 'D * "SIZE" PHRASE DOES NOT WORK WITH "USING" IN PRINT STATEMENT. D* '* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8€, FIRST WORD=>000C, * VERIFICATION DATA=(>C1A0,@RA+>015A), *DATA=(>06A0,@P2+>03D2)EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03D2, VERIFICATION DATA=>0000, &DATA=(>C020,@RA+>0228,>0740,>C800)&EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03DA, VERIFICATION DATA=>0000, *DATA=(@RA+>022E,>04E0,@RA+>0228,>C1A0)*EC'* 'NT @ MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03E2, VERIFICATION DATA=>0000, DATA=(@RA+>015A,045B) EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03À98, & VERIFICATION DATA=(>028F,>003B), &DATA=(>0460,@P2+>03E6)*EC &H"*VERIFICATION FAILURE OK IF PATCH 3482 PREVIOUSLY APPLIED CORRECTLY.H* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRSÀT WORD=>03E6, VERIFICATION DATA=>0000, &DATA=(>C0A0,@RA+>022E,>1106,>06A0)&*EC &H"*VERIFICATION FAILURE OK IF PATCH 3482 PREVIOUSLY APPLIED CORRECTLY.H* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8€, FIRST WORD=>03EE, VERIFICATION DATA=>0000, .DATA=(@P1+>0278,>8820,@RA+>0386,@RO+>0044).*EC &H"*VERIFICATION FAILURE OK IF PATCH 3482 PREVIOUSLY APPLIED CORRECTLY.H* ' MRF PATHNAME=@S$BAS.OV400, @ RECORD NUMBER=8, FIRST WORD=>03F6, VERIFICATION DATA=>0000, "DATA=(>13D9,>028F,>003B,>0460)"*EC &H"*VERIFICATION FAILURE OK IF PATCH 3482 PREVIOUSLY APPLIED CORRECTLY.H* 'MRF PATHNAME=@S$BAS.OV40€0, RECORD NUMBER=8, FIRST WORD=>03FE, VERIFICATION DATA=>0000, DATA=@P2+>039C*EC &H"*VERIFICATION FAILURE OK IF PATCH 3482 PREVIOUSLY APPLIED CORRECTLY.H* ' MRF PATHNAME=@S$BAS.OV400, "@ RECORD NUMBER=8, FIRST WORD=>0438, VERIFICATION DATA=>04D0, DATA=>04D4*EC &H"*VERIFICATION FAILURE OK IF PATCH 3482 PREVIOUSLY APPLIED CORRECTLY.H* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUÀMBER=8, FIRST WORD=>043C, VERIFICATION DATA=>0000, DATA=(>0025,>4961)*EC &H"*VERIFICATION FAILURE OK IF PATCH 3482 PREVIOUSLY APPLIED CORRECTLY.H* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE ÀTYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>02DE, " VERIFICATION DATA=@P1+>0510, "DATA=@P1+>0602, RELOCATION=YEC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODÀ ULE NAME OR ID=>1, ADDRESS=@P1+>0602, 2 VERIFICATION DATA=(>DEAD,>DEAD,>DEAD,>DEAD), 2,DATA=(>0620,@RA+>022E,>0460,@P1+>0510), , RELOCATION=(N,Y,N,Y)EC'* '* '*$'* '*-------------À<-------------------------------------------------------*<* '<*=P3320 LJ 11/23/83STR #17080DX10BASIC 4.1.0 <* '4* "ACCEPT" FROM COLUMN 79 CAUSES TASK ERROR 2. 4* '* 'MRF PATHNAME=@S$BAS.OVÀ400, RECORD NUMBER=27, FIRST WORD=>0062, & VERIFICATION DATA=(>1501,>C140), &DATA=(>06A0,@V1+>0326)EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>0326, VERÀIFICATION DATA=>0000, "DATA=(>1504,>C140,>1602,>0205)"EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>032E, VERIFICATION DATA=>0000, DATA=(>0001,>045B)EC'* À' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>0406, VERIFICATION DATA=>0155, DATA=>2155EC'* '* '*$'* '6*---------------------------------------------------6À -----------------** '<*=P3325 LJ 11/30/83STR #09383DX10BASIC 4.1.0 <* 'J#* NOT ALL TERMINAL ERRORS ARE DETECTED PROPERLY; E. G. TURNING A 911 J* OFF. $* '* 'MRF PATHNAME=@S$BAS.OVÀ400, RECORD NUMBER=27, FIRST WORD=>0094, & VERIFICATION DATA=(>0280,>000A), &DATA=(>06A0,@V1+>0332)EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>0332, VER€IFICATION DATA=>0000, "DATA=(>0280,>0007,>1303,>0280)"EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>033A, VERIFICATION DATA=>0000, &DATA=(>000A,>045B,>0460,@EA+>0000)&(@EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27, FIRST WORD=>0408, VERIFICATION DATA=>4482, DATA=>4492EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=27,FIRST ÀWORD=>0434, VERIFICATION DATA=>0000, DATA=>8000EC'* '* '*$'* 'J#*--------------------------------------------------------------------*J* '(*=P3350 LJ 12/07/83STR #17191DX(À10BASIC 4.1.0 * 'D * ERROR MESSAGES SOMETIMES CAUSE AN EXTRA SCROLL OF THE SCREEN D* '* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=7, FIRST WORD=>0058, " VERIFICATION DATA=(>0420,@OM+>0"€040,@P1+>0358), DATA=(>0460,@MI2+>03A4) EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=7, FIRST WORD=>03A4, VERIFICATION DATA=>0000, *DATA=(>9820,@RA+>011C,@RO+>006B,>1503)*EC'@* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=7, FIRST WORD=>03AC, VERIFICATION DATA=>0000, *DATA=(>0420,@OM+>0040,@P1+>0358,>0460)*EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBERÀ=7, FIRST WORD=>03B4, VERIFICATION DATA=>0000, DATA=(@MI2+>005E) EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=7, FIRST WORD=>043A, VERIFICATION DATA=>0000, DATA=>19 ÀA0EC'* '* '*$'* 'J#*--------------------------------------------------------------------*J* '<*=P3351 LJ 12/20/83STR #17192DX10BASIC 4.1.0 <* ' * PRINT STATEMENT TO SCREÀ*EN WHICH USES TABS AND SEMICOLONS MAY ** NOT SCROLL PROPERLY. * '* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>02CA, VERIFICATION DATA=(>06A0,À@P1+>054C), DATA=(>0460,@P1+>060A), RELOCATION=(N,Y)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>060A, VERIFICATION DATA=(>DEAD,>DÀ EAD,>DEAD,>DEAD), ,DATA=(>06A0,@P1+>057C,>06A0,@P1+>054C), , RELOCATION=(N,Y,N,Y)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>0612, VÀ$ERIFICATION DATA=(>DEAD,>DEAD), $DATA=(>0460,@P1+>02CE), RELOCATION=(N,Y)EC'* '* '*$'* 'J#*--------------------------------------------------------------------*J* '*=P3482 LJ À.02/10/84STR #17520DX10BASIC 4.1.0 .* 'F!* "SIZE" PHRASE WITH MORE CHARACTERS THAN "USING" IMAGE GENERATESF.* SYNTAX ERROR IF PATCH 3319 IS APPLIED. .* '* ' MRF PATHNAME=@S$BAS.OV400, RECORD ÀNUMBER=8, FIRST WORD=>0398, 6 VERIFICATION DATA=(>0460,@P2+>03E6,>1304,>0420), 6*DATA=(>8820,@RA+>0386,@RO+>0044,>1606)*EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03A0, À: VERIFICATION DATA=(@OM+>0010,@P1+>0328,>1005,>06A0), :&DATA=(>C0A0,@RA+>022E,>1103,>1302)&EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03A8, VERIFICATION DATA=(@UT+>0002, À >0420,@OM+>0040,@P1+>0316), &DATA=(>06A0,@P1+>0278,>028F,>003B)&EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03B0, 6 VERIFICATION DATA=(>C0A0,@RA+>0390,>0602,>020B), 6DATAÀ&=(>1304,>0420,@OM+>0010,@P1+>0328)&EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03B8, > VERIFICATION DATA=(@ST+>0068,>0420,@OM+>0000,@SR+>01F8), >"DATA=(>101D,>06A0,@UT+>0002,>101"À3)EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03E6, 6 VERIFICATION DATA=(>C0A0,@RA+>022E,>1106,>06A0), 6*DATA=(>8820,@RA+>0386,@RO+>0044,>1603)*EC'* 'MRF €PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03EE, > V€%€%ERIFICATION DATA=(@P1+>0278,>8820,@RA+>0386,@RO+>0044), >*DATA=(>0420,@OM+>0040,@P1+>0316,>C0A0)*EC'* ' MRF PATHNAME=@S$BAS.OV400, EL$@ RECORD NUMBER=8, FIRST WORD=>03F6, 2 VERIFICATION DATA=(>13D9,>028F,>003B,>0460), 2*DATA=(@RA+>0390,>020B,@ST+>0068,>0460)*EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>03ÀFE, " VERIFICATION DATA=@P2+>039C, "DATA=@P1+>0616EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=8, FIRST WORD=>0438, 2 VERIFICATION DATA=(>04D4,>CB4B,>0025,>4961), 2DATA=(>04D6,>4À432,>0025,>4CD5)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>0616, 2 VERIFICATION DATA=(>DEAD,>DEAD,>DEAD,>DEAD), 2 DATA=(>0602,>0420,@OM+>000€0,@SR+>01F8), RELOCATION=(N,N,Y,Y)EC'* '* '*$'* 'J#*--------------------------------------------------------------------*J* '<*=P3483 LJ 02/16/84STR #17521DX10BASIC 4.1.0 <>@* '>* A NULL STRING DOES NOT ERASE THE SCREEN TO END OF LINE.>* '* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>02FA, VERIFICATION DATA=(>16F6,>0À 380), DATA=(>0460,@P1+>061E), RELOCATION=(N,Y)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>061E, $ VERIFICATION DATA=(>DEAD,>DEAD,>D$ÀEAD,>DEAD), $DATA=(>1603,>C305,>6303,>730C), $ RELOCATION=(N,N,N,N)EC'* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=PROC, MODULE NAME OR ID=>1, ADDRESS=@P1+>0626, VERIFICATION DAÀ TA=(>DEAD,>DEAD), DATA=(>0460,@P1+>02E8), RELOCATION=(N,Y)EC'* '* '*$'* 'J#*--------------------------------------------------------------------*J* '*=P3484 LJ 02/20/84STR À #17518DX10BASIC 4.1.0 * 'D * "LIST" OR "SAVE" OF PROGRAMS WITH TWO DOUBLE QUOTES IN A ROW D(* IGNORES THE SECOND DOUBLE QUOTE. (* '* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=18,FIRSÀT WORD=>034C, * VERIFICATION DATA=(>9802,@RO+>0056), *DATA=(>06A0,@TL+>03F0)EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=18, FIRST WORD=>03F0, VERIFICATION DATA=>0000, DATA=(>9 À"820,@RA+>016F,@RO+>0056,>045B)"EC'* ' MRF PATHNAME=@S$BAS.OV400, RECORD NUMBER=18, FIRST WORD=>043E, VERIFICATION DATA=>B200, DATA=>B260EC'* '* '*$'* 'ÀJ#*--------------------------------------------------------------------*J* '.IF @$E$C,EQ,0!* '.* THIS CHANGES THE PATCH NUMBER TO 3484. .* '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=TASK, MÀ ODULE NAME OR ID=>1, ADDRESS=@RA+>02DE, " VERIFICATION DATA=@I1+>04C0, "DATA=@I1+>04C4, RELOCATION=YEC'* 'H"* NO VERIFICATION DATA HERE, BECAUSE IT IS THE LAST PATCH NUMBER ANDH* WILL CHANGE €WITH EACH PATCH * '$MPI PROGRAM FILE=@S$BAS.PROG, $ MODULE TYPE=TASK, MODULE NAME OR ID=>1, ADDRESS=@I1+>04C0, DATA=(>3334,>3834), RELOCATION=(N,N)EC'* ' .ENDIF% * '@* 'J#*--------------------------------------------------------------------*J* '.SYN EA=""#.SYN I1=""#.SYN IG=""#.SYN M1=""#.SYN MI2="" ".SYN OM=""#.SYN P1=""#.SYN P2=""#.SYNÀ RA=""# .SYN RE=""#.SYN RO=""#.SYN SR=""#.SYN ST=""#.SYN TL=""#.SYN UT=""#.SYN V1=""#* 'J#*--------------------------------------------------------------------*J * *** PATCHES ABOVEÀ6 THIS COMMENT SHIPPED WITH PATCH RELEASE 3.7.0 *6J#*--------------------------------------------------------------------*J* '<CM MESSAGE="@$E$C ERRORS ON BASIC 4.1.0 PATCH STREAM"<EBATCH LS=YES !* '*-----ÀD ---------------------------------------------------------------*D* '0* *** NEXT PATCH LOCATION IN INIT1:>04C4 02* *** NEXT PATCH LOCATION IN OVMISC2:>03B6 22* *** NEXT PATCH LOCATION IN OVPRINT1: >062A 2* ***€, NEXT PATCH LOCATION IN OVPRINT2: (NONE),2* *** NEXT PATCH LOCATION IN OVTOPLST: >03F8 22* *** NEXT PATCH LOCATION IN OVVDT1: >0342 2* 'J#*--------------------------------------------------------------------*Jÿÿ†MFG$$$ PD—®Àn|ZÀˆÛ#P DX10 PRODUCTS PATCH DISK/TAPE PP RELEASE: 3.7.0 P/N: 2250703-3610 PP MFG. REV.: *V MEDIA: PRP REFERENCE RELEASE INFORMATION, 2250703-9903 PP^ COPYRIGHT 1980 TEXAS INSTRUMENTS INCORPORATED P MFG. REV.: *V MEDIA: 8" DSDD PATCH1 PRÿÿ†FORT78EOPIjATÀlãÀˆÛ%@J#*--------------------------------------------------------------------*JH* *** PATCH FILE DX10 FORTRAN-78 (EO)1.3.0LAST UPDATE 02/21/84 *HJ#*--------------------------------------------------------------------*J* INSTRUCTIONÀS:* 'B* THIS BATCH STREAM SHOULD ONLY BE RUN IF YOU HAVE INSTALLED BB* THE EXECUTE-ONLY PORTION OF DX10 FORTRAN-78 1.3.0 USING THE B<* EXECUTE-ONLY INSTALLATION PROCEDURE DESCRIBED IN THE <* DX10 FORTRAN-78 OBJECÀT INSTALLATION MANUAL.* '@* YOU MUST ASSIGN THE FOLLOWING SYNONYM BEFORE RUNNING THIS @* BATCH STREAM: * 'D * VOLBLD - THE VOLUME NAME OF THE DISK CONTAINING THE MESSAGE D$* FILE DIRECTORY .S$MSG$€ X. THIS IS NORMALLY * THE SYSTEM DISK. * 'B* YOU MUST ASSIGN THE FOLLOWING SYNONYM IF YOU HAVE MOVED SCI BD * COMMAND PROCEDURES INTO COMMAND DIRECTORIES OTHER THAN THOSE D$* SUPPLIED WITH YOUR SOFTWARE: $T (@* '2* $CMDS- THE MAJOR COMMANDS DIRECTORY(IES) 2* 'H"* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS.HJ#*--------------------------------------------------------------------*JBATCH LS=YES"À.IF "@$CMDS",EQ,"$CMDS" .SYN $CMDS = ".S$PROC" .ENDIF% .USE @$CMDS "J#*--------------------------------------------------------------------*J0* VERIFY THAT SYNONYM VOLBLD HAS BEEN SET. 0* '.IF @VOLBLÀD,EQ,VOLBLD CM R=ME,$F! M="SYNONYM VOLBLD MUST BE SET BEFORE RUNNING FORTRAN-78 PATCHES" F .STOP % .ENDIF% * 'J#*--------------------------------------------------------------------*J*=P3360 PNK/CEW01/1À,2/84STR #17219DX10 FORTRAN-78 1.3.0 ,* 'H"* PROBLEM: THE WRONG ALIAS IS ASSIGNED TO THE FORTRAN-78 RUN-TIME HB* MESSAGE FILE WHEN THE EXECUTE-ONLY INSTALLATION PROCEDUREB* IS PERFORMED. * SOLUTION: ASSIGÀ N THE CORRECT ALIAS.* 'D * OMIT ERROR COUNT SO THIS PATCH MAY BE APPLIED MORE THAN ONCE. DDA PATHNAME=.S$MSGX.M$62* '4AA PATHNAME=.S$MSGX.FORT78RT, ALIAS=.S$MSGX.M$424* ' * THE FOLLOWING ADD ALIAS IS P À(ROVIDED IN CASE THIS PATCH STREAM IS(F!* MISTAKENLY RUN AGAINST A NON EXECUTE-ONLY INSTALLATION. IT WILL FF!* REPLACE THE COMPILER MESSAGE FILE ALIAS IF THE COMPILER MESSAGE F0* FILE EXISTS. ERROR COUNT MUST BE OMITTED. 0AA P€0ATHNAME=.S$MSGX.FORT78CP, ALIAS=.S$MSGX.M$620* '*$'J#*--------------------------------------------------------------------*JEBATCH LS=YES,!: TEXT="@$E$C ERRORS ON DX10 FORTRAN-78 PATCH STREAM", : CODE=@$E$C J#*--------------------------------------------------------------------*J 08402282000RFC019 SNOW BACKUP.BATCH.BKUPINIT BACKUP.BATCHLST.BKINILST ÿÿ†FORT78 P˜}žÀlãÀˆÛ&@J#*--------------------------------------------------------------------*JF* *** PATCH FILE DX10 FORTRAN-78 1.3.0 LAST UPDATE 02/21/84 *FJ#*--------------------------------------------------------------------*J* INSTRUCTIONS:À* '@* YOU MUST ASSIGN THE FOLLOWING SYNONYM BEFORE RUNNING THIS @* BATCH STREAM: * 'H"* VOLBLD - THE VOLUME NAME OF THE DISK CONTAINING THE PROGRAM FILEH* S$SDS$.* '* YOU MUST ASSI€%€%GN THE FÀ,OLLOWING SYNONYMS IF YOU HAVE MOVED SCI ,D * COMMAND PROCEDURES INTO COMMAND DIRECTORIES OTHER THAN THOSE D$* SUPPLIED WITH YOUR SOFTWARE: $* '2* $CMDS- THE MAJOR COMMANDS DIRECTORY(IES) 2* CMDLIB - THE COMMANDÀ, DIRECTORY CONTAINING THE XF78 AND XF78F,* COMMANDS.* 'H"* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS.HL$*---------------------------------------------------------------------* LBATCH LS=YESÀ".IF "@$CMDS",EQ,"$CMDS" .SYN $CMDS = ".S$PROC" .ENDIF% .IF "@CMDLIB", EQ, "CMDLIB" .SYN CMDLIB = ".S$PROC" .ENDIF% .USE @$CMDS "@*-------------------------------------------------------------@À--------* 0* VERIFY THAT SYNONYM VOLBLD HAS BEEN SET. 0* '.IF @VOLBLD,EQ,VOLBLD CM R=ME,$F! M="SYNONYM VOLBLD MUST BE SET BEFORE RUNNING FORTRAN-78 PATCHES" F .STOP % .ENDIF% * '* VERIFY À&THAT FORTRAN-78 1.3.0 IS INSTALLED&* 'MPI PROG=VOLBLD.S$SDS$, MT=TASK, ! MN=FORT78, ADDR=>079A, V=(>312E,>332E), D=(>312E,>332E).IF @$$CC,NE,0!$CM R=ME,M="FORTRAN-78 1.3.0 IS NOT$À INSTALLED" .STOP % .ENDIF% L$*-----------------------------------------------------------------------LB*=P3326 PNK/JRS12/02/83STR #16947DX10 FORTRAN-78 1.3.0 B* '** PROBLEM: THE XF78 AND XF78F COMMANDS*À DO NOT ALLOW THE USE OF AB* SYNONYM IN THE RESPONSE TO THE ERROR ACCESS NAME PROMPT. BL$* SOLUTION: REPLACE THE XF78 AND XF78 COMMANDS WITH CORRECTED VERSIONS.L* '.USE @CMDLIB"$.PROC XF78(EXECUTE FORTRAN-78 COMP$À$ILER )=2, $&SOURCE ACCESS NAME = ACNM("@$$S"),&*OBJECT ACCESS NAME = ACNM("@$XFC$O"), **LISTING ACCESS NAME = ACNM("@$XFC$L"),**ERROR ACCESS NAME = *ACNM("@$XFC$E"), *OPTIONS = *STRING("@$XFC$OP"À),PRINT WIDTH = INT(80),PAGE LENGTH = INT(56),&EXECUTION MODE (F/B) = *STRING(B) &< .IF"@&SOURCE ACCESS NAME", EQ, "@&OBJECT ACCESS NAME" <2MSG T="ERROR: SOURCE AND OBJECT ARE SAME NAME"2 .EXIT .ENDÀIF> .IF"@&SOURCE ACCESS NAME", EQ, "@&LISTING ACCESS NAME" >4MSG T="ERROR: SOURCE AND LISTING ARE SAME NAME" 4 .EXIT .ENDIF :.IF "@&SOURCE ACCESS NAME", EQ, "@&ERROR ACCESS NAME" : MSG T="ERROR: SOURCE AND EÀ RROR ARE SAME NAME" .EXIT .ENDIF & .SYN $$S = "&SOURCE ACCESS NAME" &( .SYN $XFC$O = "&OBJECT ACCESS NAME"(* .SYN $XFC$L = "&LISTING ACCESS NAME" *( .SYN $XFC$E = "&ERROR ACCESS NAME" ( .SYN $XFC$OP = À"&OPTIONS" .IF &EXECUTION MODE, GE, B .IF &EXECUTION MODE, LT, C ".QBID TASK = >78, LUNO = >10,"4 PARMS = (@@$$S, @@$XFC$O, @@$XFC$L, "&OPTIONS",4&4096, &PRINT WIDTH, &PAGE LENGTH, &"@&ERROR ACCESS NAME")€ .EXIT .ENDIF .ENDIF .IF &EXECUTION MODE, GE, F IF &EXECUTION MODE, LT, G".BID TASK = >78, LUNO = >10,"4 PARMS = (@@$$S, @@$XFC$O, @@$XFC$L, "&OPTIONS",4&4096, &PRINT WIDTH, &PAGE LENGTH, &(@"@&ERROR ACCESS NAME") .EXIT .ENDIF .ENDIF 8MSG T="XF78: MODE MUST BE FOREGROUND OR BACKGROUND" 8 .EOP " EC'H".PROC XF78F(EXECUTE FORTRAN-78 FOREGROUND )=2,HSOURCE ACCESS NAÀ ME = ACNM("@$$S"),*OBJECT ACCESS NAME = ACNM("@$XFC$O"), **LISTING ACCESS NAME = ACNM("@$XFC$L"),**ERROR ACCESS NAME = *ACNM("@$XFC$E"), *"OPTIONS = *STRING("@$XFC$OP"),"PRINT WIDTH = INT(80),PAGE LENGTH = INÀ T(56) < .IF"@&SOURCE ACCESS NAME", EQ, "@&OBJECT ACCESS NAME" <2MSG T="ERROR: SOURCE AND OBJECT ARE SAME NAME"2 .EXIT .ENDIF > .IF"@&SOURCE ACCESS NAME", EQ, "@&LISTING ACCESS NAME" >MSG T="ERROR: SOURCE A€ ND LISTING ARE SAME NAME" .EXIT .ENDIF < .IF"@&SOURCE ACCESS NAME", EQ, "@&ERROR ACCESS NAME" <2MSG T="ERROR: SOURCE AND ERROR ARE SAME NAME" 2 .EXIT .ENDIF & .SYN $$S = "&SOURCE ACCESS NAME" &*@( .SYN $XFC$O = "&OBJECT ACCESS NAME"(* .SYN $XFC$L = "&LISTING ACCESS NAME" *( .SYN $XFC$E = "&ERROR ACCESS NAME" ( .SYN $XFC$OP = "&OPTIONS"" .BID TASK = >78, LUNO = >10,",PARMS = (@@$$S, @@$XFC$O, @@$XFC$L, "&OPTI,À ONS", & 4096, &PRINT WIDTH, &PAGE LENGTH,&"@&ERROR ACCESS NAME") .EOP " EC'*$'J#*---------------------------------------------------------------------J.USE @$CMDS "EBATCH LS=YES,! TEXT="@ €2$E$C ERRORS ON DX10 FORTRAN-78 PATCH STREAM", 2 CODE=@$E$C J#*---------------------------------------------------------------------J‘ÿÿÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÿÿ†!DX10 D ††žîÀˆÛ2ÀˆÛ(†DSKBLD PžòaºÀlÖ¬ÀˆÛ*@R(*-------------------------------------------------------------------------------RBATCH LS=YES"R(*------------------------------------------------------------------------------*R:*** PATCH FILE DSKBLDDX10 3.6.0 LAST UPDATE 10/:€12/83 ***R(*-------------------------------------------------------------------------------R* '(* *** SPECIAL INSTRUCTIONS*** (* 'F* THIS PATCH FILE IS FOR DSKBLD (FLOPPY DISKETTE ONLY) PATCHES F* '@** THE FOLLOWING MUST BEPERFORMED.** '** 1 XB IAN= *>* LAN= * 'H#*---------------------------------------------------------------------HÀ----------*** SYNONYM ASSIGNMENT * ' Q$SYN % .SYN $E$C="0" !R(*-------------------------------------------------------------------------------R2* THE SYNONYMS ARE DEFINED BY THE FACTORY. 2* THEY SHOUÀ$LD NOT BE MODIFIED BY THE USER. $R(*-------------------------------------------------------------------------------R* 'R(*-------------------------------------------------------------------------------R* '* BEGIN DSKBLDÀ PATCHES FOR RELEASE 3.6.0 * 'N%*------------------------------------------------------------------------*N:*** PATCHES ABOVE THIS COMMENT SHIPPED WITH DX10 3.6.0 :>*----------------------------------------------------------->À--------------* '>*=P3077 MPS/CIW 09/07/83 STR#16246DX103.6.0 I$DSC>* '*PROBLEM$>* INV CRASHES WITH A >13B CRASH WHEN CERTAIN TRACKS ARE ><* BAD.IF THE BEGINNING OF A BAD ADU RANGE IS LESS THAN<À>* >8000 AND THE ENDING ADU OF THE RANGE IS GREATER THAN >B* >8000 THEN INV THINKS THE END IS LESS THAN THE BEGINNING. B*SOLUTION #>* PURPOSE OF THIS PATCH IS TO USE A LOGICAL RATHER THAN >* ARITHEMETIC CONDITÀ&IONAL JUMP WHEN DETERMINING IF BAD&* ADU RANGES OVERLAP* ':MPI PF=REL36DB.B$PROGA,MT=TA,MN=INVOL,ADR=>CA4A+>0DC8, : V=(>151E), D=(>1B1E),C=>1B1EEC'*$'(*-------------------------------------(À(------------------------------------(>*=P3122 MPS/CIW10/06/83STR#16506 DX10 3.6.0IDSDAT>* '*PROBLEM$* IDS TAKES TOO LONG*SOLUTION #B* THIS PATCH WILL REDUCE THE NUMBER OF WRITES PER PATTERN AND BÀH* THE NUMBER OF PATTERNS FOR EACH LEVEL OF TESTING. IT WILL ALSO HB* OVERRIDE THE MULTIPLICATION FACTOR FOR DISKS WHICH DO NOT B$* SUPPORT OFFSETS OR STROBING.$* '0MPI PF=REL36DB.B$PROGA,MT=TA,MN=IDS,ADR=>2C5C+0À >0336, V=(>5308,>0502), D=(>5304,>0201), C=>5105 $EC'8MPI PF=REL36DB.B$PROGA,MT=TA,MN=IDS,ADR=>3324+>0060,8V=>1701,$D=>1001,$C=>1001 $EC',*-----------------------------------------,À$-------------------------------*$B*** PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH RELEASE 3.6. BN%*------------------------------------------------------------------------*N:*-------------------------------------------------------:À ------------------* 'BCM R=ME,M="@$E$C ERRORS ON DX10 REL36DB.B$PROGA PATCH STREAM" B* 'N%*-------------------------------------------------------------------------N4*-------------------------------------------------4À ------------------------------ * '8CM R=ME,M="@$E$C ERROR ON DX10 DSKBLD PATCH STREAM" 8* 'R(*-------------------------------------------------------------------------------R* '&* *** DELETE SYNONYMS THAT ARE &À&UNIQUE TO THIS BATCH STREAM *** &* ' Q$SYN % .SYN IMAGE="", S$$PAT="".SYN SROOT="", ROOT=""R(*-------------------------------------------------------------------------------RSDT &EBATCH,LS=Y "*-€P'--------------------€%€%----------------------------------------------------------P* 'R(*-------------------------------------------------------------------------------RO THIS BATCH STREAM !RTSPROGJD.SYN PROGA="",RTPROG="",LDR="",Rÿÿ†PROGA P0µ4æÀlÖÓÀˆÛ,@N%*-------------------------------------------------------------------------ND * *** PATCH FILE DX10 3.6.0 PROGA LAST UPDATE 02/21/84 DN%*-------------------------------------------------------------------------N* BEFORE E€4XECUTING THIS BATCH STREAM, THE SYNONYM 'VOLBLD' 4D* MUST BE ASSIGNED THE VALUE OF THE DISK VOLUME NAME ON WHICH DF* THE PATCHES ARE TO BE APPLIED.THIS IS ACCOMPLISHED USING THEF0* 'AS' COMMAND WITH THE FOLLOWING VALUES: 0@* '* ASSIGN SYNONYM VALUE* SYNONYM: VOLBLD * VALUE: (NAME OF DISK) * 'N%*-------------------------------------------------------------------------NBATCH LS=YES"*** SYNONYM ASSIGNMENTÀ* '.SYN $E$C="0" !:.SYN PROGA = @VOLBLD.S$PROGA ! TARGET PROGRAM FILE :4.SYN LOADER = @VOLBLD.S$LOADER! TARGET LOADER 4:.SYN OVLYA = @VOLBLD.S$OVLYA ! TARGET OVERLAY FILE :&.SYN S$SDS$ = @VOLBLD.S$SDS$! TARG&À ET SDS PROGRAM FILE .SYN SCI990 = @VOLBLD.SCI990 N%*-------------------------------------------------------------------------N* '(* BEGIN PATCHES FOR RELEASE 3.6.0(* '(*-------------------------------------(€(------------------------------------(>*=P2984 SDK/BJF08/18/83STR #16039DX103.6.0 CDDIR>* '@* PROBLEM: WHEN A CD IS ATTEMPTED AND ONE OF THE FILES IS @:* OPEN, IT GETS A 3B ERROR.IF OPEN FOR TEXT EDIT, :OU>@8* AND QE IS ATTEMPTED BEFORE THE CD FINISHES, QE 8:* CANNOT COMPLETE BECAUSE A LUNO IS STILL ASSIGNED. :B* SOLUTION: THIS PATCH MAKES CD RELEASE THE LUNO IT ASSIGNED B"* IF IT GETS AN OPEN ERROR."* ' MPI PF=P À(ROGA, MT=TA, MN=CD, ADR=>11BE+>00E0,("V=>11BE+>00F4,D=>60AA,C=>60AA "EC'*MPI PF=PROGA, MT=TA, MN=CD, ADR=>60AA,* V=(>0000,>0000,>0000,>0000), D=(>06A0,>2932,>0000,>0460) EC'MPI PF=PROGA, MT=TA, MN=CD, €ADR=>60AA+>0008, V=0,D=>11BE+>00F4,C=>12B2 EC'*$'J#*-------------------------------------------------------------------* J>*=P2985 SDK/BJF08/10/83STR #16040DX10 3.6.0EOTCHK>* '* PROBLEM:#--@F* RESTORE DIRECTORY DOES NOT HANDLE THE ERROR ON EOT CONDITION FD* PROPERLY.ERRORS ON EOT ON A TAPE MADE WITH OLD EOT WOULD D,* NOT RESTORE ON A NEW EOT STYLE RD. ,* SOLUTION: "$* ADD CODE TO END OF TAPE CHECK$€ ING TO ONLY REPORT EOT WITH @* ERROR IF NEW BD. ACCEPT EOT WITH ERROR ON BD'S MADE BY @&* OLDER RELEASES OF THE SYSTEM.&* ' * PATCH RESTORE DIRECTORY * '.MPI PF=PROGA,MT=TA,MN=RD,ADR=>1CEA+>00CE, .0@, V=(>9800,>67BC),D=(>0460,>709E),C=>74FE,EC'(MPI PF=PROGA,MT=TA,MN=RD,ADR=>709E, (" V=(>0000,>0000,>0000,>0000), "( D=(>9800,>67BC,>1602,>0460),C=>EDDE(EC'.MPI PF=PROGA,MT=TA,MN=RD,ADR=>709E+>0008, . V=(À >0000,>0000,>0000,>0000), . D=(>1CEA+>00D4,>0280,>4F00,>1607),C=>4639.EC'.MPI PF=PROGA,MT=TA,MN=RD,ADR=>709E+>0010, ." V=(>0000,>0000,>0000,>0000), "( D=(>C060,>5F96,>2060,>5F2C),C=>E0BA(EC'MPI PF=PROGAÀ",MT=TA,MN=RD,ADR=>709E+>0018, "" V=(>0000,>0000,>0000,>0000), ". D=(>1302,>0460,>1CEA+>00E2,>0460),C=>0ECE.EC'.MPI PF=PROGA,MT=TA,MN=RD,ADR=>709E+>0020, ." V=>0000,D=>1CEA+>00F2,C=>1DDC"EC'* '* À PATCH VERIFY BACKUP* '.MPI PF=PROGA,MT=TA,MN=VB,ADR=>1458+>00CE, ., V=(>9800,>6094),D=(>0460,>6A64),C=>6E04,EC'(MPI PF=PROGA,MT=TA,MN=VB,ADR=>6A64, (" V=(>0000,>0000,>0000,>0000), " D=(>9800,>6094,>160À2,>0460),C=>EAF6EC'.MPI PF=PROGA,MT=TA,MN=VB,ADR=>6A64+>0008, ." V=(>0000,>0000,>0000,>0000), ". D=(>1458+>00D4,>0280,>4F00,>1607),C=>4EAB.EC'.MPI PF=PROGA,MT=TA,MN=VB,ADR=>6A64+>0010, . V=(>0000,>0000,À>0000,>0000), ( D=(>C060,>5874,>2060,>5814),C=>E060(EC'.MPI PF=PROGA,MT=TA,MN=VB,ADR=>6A64+>0018, ." V=(>0000,>0000,>0000,>0000), ". D=(>1302,>0460,>1458+>00E2,>0460),C=>0638.EC'MPI PF=PROGA,MT=TA,MN=VBÀ ,ADR=>6A64+>0020, " V=>0000,D=>1458+>00F2,C=>154A"EC'*$'N%*-------------------------------------------------------------------------N>*=P2990 YC 08/12/83STR #16055DX10 3.6.0A10_TO_990>* '* PROÀ BLEM: " D * SOLUTION: DO NOT SEND END OF TRANSMISSION BLOCK IF ERR_COMM. D* '0MPI PF=PROGA,MT=TA,MN=TFTPC ,ADR=>0474+>F4, 0 V=>C82D, ! D=>100B"EC'*$'0*---------------------------------------------0À"----------------------------- "@*=P2991 YC 08/12/83STR #16056DX10 3.6.0 B40_GET_COMM @* '* PROBLEM: ":* SOLUTION:POSITION USERFLAG WITH EXTENDED PRB BIT. :* '*MPI PF=PROGA,MT=TA,MN=TFTPC ,ADR=>0DC8+>*À1C, V=>0080, ! D=>0082"EC'*$'P&*-------------------------------------------------------------------------- P@*=P2992 YC 08/12/83STR #16057DX10 3.6.0B00_PUT_COMM @* '* PROBLEM: "À** SOLUTION:FIX TEMP_RETRIES CHECK. ** '0MPI PF=PROGA,MT=TA,MN=TFTPC ,ADR=>0BD8+>BE, 0 V=(>022A,>000A,>828C), D=(>022C,>000A,>830A)EC'*$'* '2*-----------------------------------------------2À -------------------------*>*=P2994 BJF/SDK 08/11/83 STR #16068 DX10 3.6.0CVCDEV>* 'D * PROBLEM: SYSTEM CRASHES WITH A >77 WHEN A T80,T300, CMD1400 D0* SYSTEM DISK HAS POWER CYCLED DURING CV.0* SOLUTION: I€6SSUE RESTORE COMMAND BEFORE FIRST READ OF ANY DISK6* ' Q$SYN % .MPI PF=PROGA,MT=TA,MN=CV,ADR=>0392+>000E, . V=>0009,D=>0709,C=>0709EC'.MPI PF=PROGA,MT=TA,MN=CV,ADR=>0392+>0032, . V=(>0206,>0001), D=(>0460,>4990), C=>4DF0"EC'(MPI PF=PROGA,MT=TA,MN=CV,ADR=>4990, (" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>D860,>0392+>000E,>0002,>2FD1), ( C=>F413"EC'.MPI PF=PROGA,MT=TA,MN=CV,ADR=>4990+>0008, .@" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>0206,>0001,>0460,>0392+>0036), ( C=>05AF"EC'*$'N%*------------------------------------------------------------------------*N2*=P2993 BJF/SDK 08/11/83 STR #16068 DX10 3.62€.0BDGVIF* 'D * PROBLEM: SYSTEM CRASHES WITH A >77 WHEN A T80,T300, CMD1400 D2* SYSTEM DISK HAS POWER CYCLED DURING BDD. 2D * SOLUTION: ISSUE RESTORE COMMAND BEFORE FIRST READ OF ANY DISKD* ' Q$SYN % @.MPI PF=PROGA,MT=TA,MN=BDD,ADR=>21AE+>0010,. V=>0009,D=>0709,C=>0709EC'.MPI PF=PROGA,MT=TA,MN=BDD,ADR=>21AE+>0080,. V=(>2FE0,>694E), D=(>0460,>37E4), C=>3384"EC'MPI PF=PROGA,MT=TA,MN=BDD,ADÀR=>37E4+>0000," V=(>DEAD,>DEAD,>DEAD,>DEAD), ". D=(>D820,>21AE+>0010,>694E+>0002,>2FE0), . C=>BF2E"EC'.MPI PF=PROGA,MT=TA,MN=BDD,ADR=>37E4+>0008,." V=(>DEAD,>DEAD,>DEAD,>DEAD), " D=(>694E,>D820,>21AE+>0À 011,>694E+>0002), C=>F981"EC'.MPI PF=PROGA,MT=TA,MN=BDD,ADR=>37E4+>0010,." V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>2FE0,>694E,>0460,>21AE+>00084),( C=>60FC"EC'*$'*---------------------------À2---------------------------------------------*2>*=P3005 KDK/MPS 08/22/83 STR #16076 DX10 3.6.0IDSIO >* '.* PROBLEM: IDS TERMINATES ON >17 ERROR. .F"* SOLUTION: ISSUE RESTORE COMMAND ON >17 ERROR, DECLARE MEDIA ERRORFÀ* AND CONTINUE.* ' Q$SYN % F!MPI PF=PROGA,MT=TA,MN=IDS,ADR=>3110+>0192,V=>0280,D=>0284,C=>0284 FEC'F!MPI PF=PROGA,MT=TA,MN=IDS,ADR=>3110+>0198,V=>0280,D=>0284,C=>0284 FEC'MPI PF=PROGA,MT=TA,MN=IDÀ.S,ADR=>3110+>019E,V=>0280,D=>0284,C=>0284 .EC'F!MPI PF=PROGA,MT=TA,MN=IDS,ADR=>3110+>01A4,V=>0280,D=>0284,C=>0284 FEC'F!MPI PF=PROGA,MT=TA,MN=IDS,ADR=>3110+>01AA,V=>0280,D=>0284,C=>0284 FEC' MPI PF=PROGA,MT=TA,MÀN=IDS,ADR=>49FE+>0000," V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>0280,>001E,>1302,>0280),C=>131C(EC'.MPI PF=PROGA,MT=TA,MN=IDS,ADR=>49FE+>0008,. V=(>DEAD,>DEAD,>DEAD), ( D=(>0017,>0460,>3110+>0152),C=>3615(ÀEC'.MPI PF=PROGA,MT=TA,MN=IDS,ADR=>3110+>014E,., V=(>0280,>001E),D=(>0460,>49FE),C=>4D9E,EC'*$'J#*--------------------------------------------------------------------*J,*=P3012 SDK/BJF08/24/83STR #16099DX,À10 3.6.0RDHDR * 'H"* PROBLEM: WHEN RESTORING OLD TAPES, THE HEADER MAY BE TOO SHORT TOHH* CLEAR THE FAST FLAG WORD IN THE HEADER.SUCH A HEADER ALSO DOES H@* NOT H€%€%AVE THE SECTOR SIZE IN IT, CAUSING RD TO GIVE A FAST R@À ESTORE F!* TO DIFFERENT SECTOR SIZE WHEN IT IS NOT APPROPRIATE. PREVENTS F * RESTORE OF THOSE BACKUPS. F!* SOLUTION: RDHDR MOVES THE SECTOR SIZE FROM THE HEADER BUFFER TOF4* THE HOLD AREA BEFORE DETERMINING IF IT IS VALID4À. MOVE THE 6* STATEMENT TO A POINT WHERE WE KNOW IT IS VALID.6* ' * PATCH RESTORE DIRECTORY* '0MPI PF=PROGA, MT=TA, MN=RD, ADR=>38EC+>0148,0V=(>C821,>0092,>5F94),D=(>1002,>1000,>1000) *EC À"------ MODIFIED BY PATCH 3080 "0MPI PF=PROGA, MT=TA, MN=RD, ADR=>38EC+>015E,0$V=(>16F2,>1037),D=(>0460,>70C0) $(*EC ------ MODIFIED BY PATCH 3080 (*MPI PF=PROGA, MT=TA, MN=RD, ADR=>70C0,*V=(>0000,>0000,>0000,>0000),À&D=(>1602,>0460,>38EC+>01D0,>C111) &(*EC ------ MODIFIED BY PATCH 3080 (,MPI PF=PROGA, MT=TA, MN=RD, ADR=>70C0+8,,V=(>0000,>0000),D=(>0460,>38EC+>017C) (*EC ------ MODIFIED BY PATCH 3080 (* 'À* PATCH VERIFY BACKUP* '0MPI PF=PROGA, MT=TA, MN=VB, ADR=>2AAE+>0148,0V=(>C821,>0092,>5872),D=(>1002,>1000,>1000) (*EC ------ MODIFIED BY PATCH 3080 (0MPI PF=PROGA, MT=TA, MN=VB, ADR=>2AAE+>015E,0€$V=(>16F2,>1037),D=(>0460,>6A86) $(*EC ------ MODIFIED BY PATCH 3080 (*MPI PF=PROGA, MT=TA, MN=VB, ADR=>6A86,* V=(>0000,>0000,>0000,>0000), &D=(>1602,>0460,>2AAE+>01D0,>C111) &(*EC ------ MODIFIED BY PATCH 3080 (*@,MPI PF=PROGA, MT=TA, MN=VB, ADR=>6A86+8,,V=(>0000,>0000),D=(>0460,>2AAE+>017C) (*EC ------ MODIFIED BY PATCH 3080 (*$'N%*------------------------------------------------------------------------*N*=P3021 MÀ4PS/KDK08/24/83STR#16106 DX10 3.6.0IDSDAT4* '*PROBLEM$@* IDS TERMINATES WITH >1B ERROR WHEN IDS IS EXECUTED ON A @:* S300 WITH A WD500 ON AN UNINITIALIZED FLOPPY DISK. :*SOLUTION #* PURPOSE OF THI€0S PATCH IS TO CLEAR THE "DO NOT RETRY" FLAG 0<* IN THE SVC BLOCK USED TO ISSUE THE RESTORE. RETRIES<>* ARE NEEDED TO CLEAR THE ERROR CONDITION GENERATED BY >@* THE EXTRACT INTERLACE COMMAND TO AN UNFORMATTED FLOPPY. @DED@* '.MPI PF=PROGA,MT=TA,MN=IDS,ADR=>2C5C+>0432,. V=(>0001), D=(>0000),C=>0000EC'*$'N%*-------------------------------------------------------------------------N**=P3023 MPS/SDK08/25/83STR#16108 D*ÀX10 3.6.0SD * '>* PROBLEM SCAN DISK DOES NOT CLEAR HIS BUFFER PROPERLY.>4* IT USES THE WRONG VARIABLE FOR AN INDEX AND46* CALCULATES THE LIMIT OF THE LOOP INCORRECTLY.6&* IT USES AN UNINITIALIZED VARIA&ÀBLE FOR AN 2* INDEX AND MAY CLEAR ANY RANDOM LOCATION. 2>* SOLUTION USE THE PROPER VARIABLE FOR AN INDEX.DO NOT>6* MULTIPLY WORDS/TRACK BY TWO WHEN DETERMINING 66* HOW MANY WORDS OF THE BUFFER SHOULD BE CLEARED.6À * '(MPI PF=PROGA,MT=TA,MN=SD,ADR=>048C, ( V=(>5F42), D=(>5F40),C=>5F40EC'(MPI PF=PROGA,MT=TA,MN=SD,ADR=>0466, ( V=(>0A11), D=(>1000),C=>1000EC'*$'*---------------------À8----------------------------------------------------8>*=P3043 MPS/KDK08/30/83STR#16106 DX10 3.6.0IDSADS>* '*PROBLEM$@* IDS TERMINATES WITH >1B ERROR WHEN IDS IS EXECUTED ON A @* S300 WITH A WD500 ON AN À UNINITIALIZED FLOPPY DISK. *SOLUTION #D* PURPOSE OF THIS PATCH IS TO CAUSE A RESTORE TO OCCUR BEFORE D$* THE SURFACE ANALYSIS BEGINS.$* '(MPI PF=PROGA,MT=TA,MN=IDS,ADR=>1ABC,( V=(>06A0,>3324), D=(€ >0460,>4A0C),C=>4E6CEC'(MPI PF=PROGA,MT=TA,MN=IDS,ADR=>4A0C,(" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>06A0,>3324,>1BAC,>020B),C=>2C23(EC'(MPI PF=PROGA,MT=TA,MN=IDS,ADR=>4A14,( V=(>DEAD,>DEAD,>DEAD), @" D=(>1AC0,>0460,>317E),C=>2FDE"EC'*$'N%*------------------------------------------------------------------------*N>*=P3050 KDK/CIW 08/31/83 STR #16176 DX10 3.6.0SYSRST>* '"* PROBLEM: SYSTEM CRASHES (>14"À$0) DURING BOOT AFTER TAPE BUILD.$H"* SOLUTION: DO NOT CRASH WHEN AN ERROR IS RECEIVED TRYING TO DELETEH>* ANY OF THE B$ FILES CREATED DURING THE BUILD PROCESS.>* ' Q$SYN % ,MPI PF=PROGA,MT=TA,MN=SYSRST,ADR=>C090,V=>,À 1619,D=>1603,C=>1603 EC'*$'N%*------------------------------------------------------------------------*N:*** PATCHES ABOVE THIS COMMENT SHIPPED WITH DX10 3.6.0 ::*-------------------------------------------------------:À ------------------* '>*=P3077 MPS/CIW 09/07/83 STR#16246DX103.6.0 I$DSC>* '*PROBLEM$>* INV CRASHES WITH A >13B CRASH WHEN CERTAIN TRACKS ARE >8* BAD.IF THE BEGINNING OF A BAD ADU RANGE IS LESS 8ÀTHAN>* >8000 AND THE ENDING ADU OF THE RANGE IS GREATER THAN >B* >8000 THEN INV THINKS THE END IS LESS THAN THE BEGINNING. B*SOLUTION #>* PURPOSE OF THIS PATCH IS TO USE A LOGICAL RATHER THAN >* ARITHEMETIC À,CONDITIONAL JUMP WHEN DETERMINING IF BAD,* ADU RANGES OVERLAP* '0MPI PF=PROGA,MT=TA,MN=INVOL,ADR=>CA4A+>0DC8,0 V=(>151E), D=(>1B1E),C=>1B1EEC'*$',*-----------------------------------------,À ---------------------------* >*=P3080 SDK/BJF09/08/83STR #16258DX10 3.6.0RDHDR >* 'H"* PROBLEM: WHEN RESTORING OLD TAPES, THE HEADER MAY BE TOO SHORT TOH>* CLEAR THE FAST FLAG WORD IN THE HEADER.SUCH A HEADER AL>ÀSO DOES H"* NOT HAVE THE SECTOR SIZE IN IT, CAUSING RD TO GIVE A FAST RESTOREHH"* TO DIFFERENT SECTOR SIZE ERROR WHEN IT IS NOT APPROPRIATE. ALSO HL$* FOR ANY TAPES, PERMITS SKIPPING ONE VOLUME OF A MULTI-VOLUME BACKUP. LÀF* SOLUTION: CHANGE RDHDR VOLUME NUMBER CHECK. WHEN NEW VOLUME ISFJ#* ONE GREATER THAN OLD VOLUME, MUST HAVE MOVE DIRECTIVE, ELSE VOLUME J* NUMBER ERROR. * '@* PATCH RESTORE DIRECTORY. THIS PATCH MODIFIES PATCH P3012. @À * 'D * FIRST REMOVE OLD PATCH 3012 FROM PATCH AREA. IT IS NOW FREE.D*MPI PF=PROGA, MT=TA, MN=RD, ADR=>70C0,*&V=(>1602,>0460,>38EC+>01D0,>C111),&(D=(>0000,>0000,>0000,>0000),C=>0000 (*EC ----- ERROR EXPECTED -- À(P3080 MODIFIED BY PATCH P3357 ----- (,MPI PF=PROGA, MT=TA, MN=RD, ADR=>70C0+8,,V=(>0460,>38EC+>017C),D=(>0000,>0000),C=>0000 D *EC ----- ERROR EXPECTED -- P3080 MODIFIED BY PATCH P3357 ----- D* NOW FOR THE PATCH: À0MPI PF=PROGA, MT=TA, MN=RD, ADR=>38EC+>013C,0V=>1649,D=>100C,C=>100C EC'0MPI PF=PROGA, MT=TA, MN=RD, ADR=>38EC+>0142,0.V=>38EC+>0156,D=>38EC+>01D0,C=>38EC+>01D0 .EC'&MPI PF=PROGA, MT=TA, MN=RD, ADR=>38E&€C+>0148,V=>1002,D=>1017,C=>1017 EC'0MPI PF=PROGA, MT=TA, MN=RD, ADR=>38EC+>0156,0V=>04C0,D=>163C,C=>163C EC'0MPI PF=PROGA, MT=TA, MN=RD, ADR=>38EC+>015E,0,V=(>0460,>70C0),D=(>1338,>10EE),C=>03D6 ,.@EC'* '* PATCH VERIFY BACKUP* 'D * FIRST REMOVE OLD PATCH 3012 FROM PATCH AREA. IT IS NOW FREE.D*MPI PF=PROGA, MT=TA, MN=VB, ADR=>6A86,*&V=(>1602,>0460,>2AAE+>01D0,>C111),&D=(>0000,>0000,>0000,>0000),ÀC=>0000 D *EC ----- ERROR EXPECTED -- P3080 MODIFIED BY PATCH P3357 ----- D,MPI PF=PROGA, MT=TA, MN=VB, ADR=>6A86+8,,V=(>0460,>2AAE+>017C),D=(>0000,>0000),C=>0000 4*EC ----- ERROR EXPECTED -- P3080 MODIFIED BY PATC4ÀH P3357 ----- * NOW FOR THE PATCH: 0MPI PF=PROGA, MT=TA, MN=VB, ADR=>2AAE+>013C,0V=>1649,D=>100C,C=>100C EC'0MPI PF=PROGA, MT=TA, MN=VB, ADR=>2AAE+>0142,0.V=>2AAE+>0156,D=>2AAE+>01D0,C=>2AAE+>01D0 .€EC'0MPI PF=PROGA, MT=TA, MN=VB, ADR=>2AAE+>0148,0V=>1002,D=>1017,C=>1017 EC'0MPI PF=PROGA, MT=TA, MN=VB, ADR=>2AAE+>0156,0V=>04C0,D=>163C,C=>163C EC'0MPI PF=PROGA, MT=TA, MN=VB, ADR=>2AAE+>015E,0D4@,V=(>0460,>6A86),D=(>1338,>10EE),C=>03D6 ,EC'*$'N%*-------------------------------------------------------------------------N<*=P3100 BJF/JC 09/21/83STR #16383DX103.6.0 BRM<* '* PROBLEM: USER CAN NOÀ LONGER PRINT A FILE. 2* "QUEUER ERROR >FF80" ERRORS ARE RETURNED. 2:* IF AN ERROR OCCURS BIDDING OR ACTIVATING OQ$MGR, :<* THE TASK ID IS ZEROED SO THAT IT CAN NEVER BE BID. <(* SOLUTION: DON'T ZERO THE TASK ID AN(ÀD RESET THE BUSY FLAG * ',MPI PF=PROGA, MT=TA, MN=BRM, ADR=>06CC, ,V=>1306,D=>1303,C=>1303 EC'*$'N%*-------------------------------------------------------------------------N*=P3122 MPS/CIW10/06/83À"STR#16506 DX10 3.6.0IDSDAT"* '*PROBLEM$* IDS TAKES TOO LONG*SOLUTION #D* THIS PATCH WILL REDUCE THE NUMBER OF WRITES PER PATTERN AND DB* THE NUMBER OF PATTERNS FOR EACH LEVEL OF TESTING. IT WILL A€%€%BÀLSO B* OVERRIDE THE MULTIPLICATION FACTOR FOR DISKS WHICH DO NOT B$* SUPPORT OFFSETS OR STROBING.$* '.MPI PF=PROGA,MT=TA,MN=IDS,ADR=>2C5C+>0336,.V=(>5308,>0502), D=(>5304,>0201), C=>5105 $ECÀ'.MPI PF=PROGA,MT=TA,MN=IDS,ADR=>3324+>0060,.V=>1701,$D=>1001,$C=>1001 $EC'N%*------------------------------------------------------------------------*N6*=P3125 BJF/SDK 10/04/83 STR #16189 DX10 3.6.06À ASKPAT * 'B* PROBLEM: SYSGEN ALLOWS PATHNAMES OVER 48 CHARS LONG, THUS B<* CAUSING THE CONFIG AND LINK STREAM TO HAVE PROBLEMS<:* SOLUTION: DISALLOW PATHNAMES GREATER THAN 48 CHARS :* ' Q$SYN % MPI À.PF=PROGA,MT=OV,MN=INTACT,ADR=>2FDE+>000E, . V=51,D=48,C=48 EC'2MPI PF=PROGA,MT=OV,MN=INTACT,ADR=>2FDE+>002E, 2 V=>1604,D=>1204,C=>1204EC'*$'<*---------------------------------------------------------<À---------------*>*=P3131 BJF/CW 10/05/83 STR #15969 DX10 3.6.0CVENDR>* '6* PROBLEM: LAST LISTING DEVICE LUNO NOT RELEASED6** SOLUTION: RELEASE LAST LISTING LUNO** ' Q$SYN % MPI PF=PROGA,MT=TA,MÀN=CV,ADR=>1A9E+>01CC, V=>C05D,D=>1000,C=>1000EC'.MPI PF=PROGA,MT=TA,MN=CV,ADR=>1A9E+>01D4, . V=>C05D,D=>1000,C=>1000EC'*$'L%*------------------------------------------------------------------------*LÀB*** PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH RELEASE 3.6. BN%*------------------------------------------------------------------------*NP&*---------------------------------------------------------------------------P*=P316À:8 GRJ/NN10/14/83STR #16694 DX10 3.6.0 PRCFIL :* 'F* PROBLEM:CVD DOES NOT CLEAR ALL ALLOCATION TABLE AREA FOR THEF* DESTINATION FILE. J* "SOLUTION: CLEAR OUT 17 2 WORD ENTRIES INSTEAD OF 17 1 WORD ENTRIES. JÀ* '0MPI PF=PROGA, MT=TA, MN=CVD, ADR=>14F0+>14, 0V=>0011,D=>0022,C=>0022 EC'*$'L$*---------------------------------------------------------------------* L2*=P3238 SDK/BJF11/01/83STR #16854DX10 3.62À.0DRCTIO* 'L$* PROBLEM: WHEN YOU COPY FROM T80 TO T300 OF A PROGRAM FILE OR A FILE L$* OF SIMILAR SHAPE, IT HANGS.$L$* SOLUTION: THIS IS CAUSED BY THE MODULE DRCTIO NOT COMPUTING THE READ L* COUNT PROPERLY.À.IT GETS A ZERO COUNT AND REPEATS FOREVER. .B* FIX ALGORITHM TO BE EXACTLY LIKE DDWRT IN HOW IT COMPUTESB* HOW MUCH TO READ.2* NOTE: NEXT AVAIABLE CD PATCH AREA = >60C02* '$MPI PF=PROGA, MT=TA, MN=CD, ADR=>2$€FB2+>0202, V=>6187,D=>1000,C=>1000EC'0MPI PF=PROGA, MT=TA, MN=CD, ADR=>2FB2+>01AC,0, V=(>3960,>52A8),D=(>0460,>60B4),C=>64D4,EC'*MPI PF=PROGA, MT=TA, MN=CD, ADR=>60B4,*" V=(>0000,>0000,>0000,>0000), "@( D=(>3960,>52A8,>6160,>2FB2+>0014), ( C=>256E"EC',MPI PF=PROGA, MT=TA, MN=CD, ADR=>60B4+8,, V=(>0000,>0000), D=(>0460,>2FB2+>01B0), C=>3502"EC'*$'&*-----------------------------------&À&---------------------------------*&@*=P3249 LEK/SDK11/07/83STR #16891DX103.6.0 OLN00B @* 'F!* PROBLEM: THE PROCEDURE TO QUICKLY FIND THE LAST KEY IN A FILE F8* DOES NOT WORK IF A SET CURRENCY OPERATION WAS THE8€ LAST 6* OPERATION TO BE RECORDED IN THE KCBLOC FIELD.6J#* SOLUTION: DO NOT TRY TO FOOL KMBEG. SET THE FRQDNM FIELD IN KMDLSR.J*MRF PN=OVLYA, RN=>0005, FW=>020C,* V=>002B, D=>002A, C=>002AEC'*$'YS @N%*------------------------------------------------------------------------*N* '@*=P3286 CIW/MPS11/15/83STR #16998DX103.6.0 CHKDSK @* 'H"* PROBLEM : CHKDSK DOES NOT UNDERSTAND THERE IS A BAD TRACK LIST INH* À8 TRACK 0 SECTOR 1 AND CAN CAUSE DUAL ALLOCATION WHEN8* AUTO CORRECT IS USED.** SOLUTION: CHECK THE BAD TRACK LIST ** ' Q$SYN % 2MPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>18A0+>01E0, 2 V=(>0000,>0000,>0000,>0000), À( D=(>C18B,>0203,>0001,>0202),C=>C18B(EC'4MPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>18A0+>01E0+8, 4" V=(>0000,>0000,>0000,>0000), "( D=(>0100,>C060,>1FF0,>06A0),C=>D830(EC'*MPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>18A0+>*À01E0+16," V=(>0000,>0000,>0000,>0000), "( D=(>268A,>2410,>C101,>C0B4),C=>032F(EC'4MPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>18A0+>01E0+24,4" V=(>0000,>0000,>0000,>0000), "( D=(>1307,>C074,>6042,>0581),C=>B6B0(ECÀ'4MPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>18A0+>01E0+32,4" V=(>0000,>0000,>0000,>0000), "( D=(>06A0,>29F8,>0000,>10F7),C=>3FAF(EC'4MPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>18A0+>01E0+40,4 V=(>0000,>0000,>0000), D=(>CÀ120,>1FD8,>0456),C=>DAAEEC'2MPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>18A0+>09A8, 2 V=(>C120,>1FD8), " D=(>06A0,>18A0+>01E0),C=>1C20"EC'*$'F"*-------------------------------------------------------------------FÀ--------H*=P3287 NNN/SDK 11/15/83 STR #17011 DX10 3.6.0DC$DIO/DC$IOX H* 'H* PROBLEM:DCOPY TO MAG TAPE KEEPS WRITING BEYOND EOT MARK UNTIL H<* TAPE IS SPUN OFF ITS REEL, AND ABNORMALLY TERMINATES<* WIÀ6TH AN I/O ERROR 43. ALSO IT DOES NOT CHECK FOR AN6,* ERROR CODE OF 4F, EOT WITH AN ERROR.,B* SOLUTION: 3.6 DSR979 WAS CHANGED THE WAY "EOT" IS HANDLED: B@* CHANGE DCOPY TO CHECK FOR AN ERROR CODE AND SYSTEM FLAG @* À:IN THE SAME REGISTER. BACK SPACE 2 RECORDS INSTEAD OF:>* 1 AT EOT, SINCE THE NEW DSR NO LONGER BACK SPACE ONE. >:* ALSO ADD ADDTIONAL CHECK FOR AN ERROR CODE OF 4F. :<* NOTE: PATCH AREA IN DC$DIO IS USED. NEXT AVAILABLE <ÀADDR IS 4A8.* '2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>B0, 2V=>0B90,D=>0B92,C=>0B92 EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>47E,2V=>0000,D=>C000,C=>C000 EC' MPI PF=PROGA, MT=TA, MN=DCÀ OPY, ADR=>23B6+>480,V=>0000,D=>1303,C=>1303 EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>482,2V=>0000,D=>1504,C=>1504 EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>484,2V=(>0000,>0000),D=(>0460,>28À98+>48),C=>2C80 EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>488,20V=(>0000,>0000),D=(>0460,>2898+>C0),C=>2D38 0EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>48C,2.V=(>0000,>0000),D=(>0460,>2898+>50),C=>2C88 .€EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>48E,2 V=>0000,D=>2898+>50,C=>28E8 EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>490,2 V=(>0000,>0000,>0000,>0000), (D=(>0281,>004F,>1602,>0460),C=>10AC (14,@EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>498,2 V=(>0000,>0000,>0000,>0000), ,D=(>2898+>5E,>0281,>0042,>1602),C=>3C37 ,EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>23B6+>4A0,2 V=(>0000,>0000,>0000,>0000), À0D=(>0460,>2898+>5E,>0460,>2898+>64),C=>000A 0EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>2898+>44, 20V=(>133D,>1504),D=(>0460,>23B6+>47E),C=>2C540EC'2MPI PF=PROGA, MT=TA, MN=DCOPY, ADR=>2898+>58, 2V=(>0281,>0042),À D=(>0460,>23B6+>490),C=>2C26 EC'*$'J#*--------------------------------------------------------------------*J@*=P3357 SDK/BJF01/06/84STR #17212DX103.6.0 GETPRM@* '&* PROBLEM: WHEN USING DIRECTORY UT&À$ILITIES, AND SPECIFYING THE DATE$@* FOR WHICH MODULES ARE TO BE COPIED, DATES IN THE RANGE @@* JAN 1 1984 THRU FEB 29, 1984, WILL NOT COPY FILES WHICH@@* ARE LESS THAN 24 HOURS YOUNGER THAN THE DATE SPECIFIED.@* SÀD OLUTION: GETPRM MODULE COMPUTES FDR FORM OF DATE INCORRECTLY FORD@* FIRST TWO MONTHS OF LEAP YEARS.MAKE ALGORITHM CORRECT@@* BY PROCESSING DAY FIRST, THEN CHECK IF MONTH IS GREATER@** THAN 2 BEFORE CHECKING FOR LEAP YEA*€R.>* NOTE: NEXT PATCH AREA: BD=>60E4, CD=>60DE, RD=>70DE, >* VB=>6AA4, VC=>576E$* THIS PATCH MODIFIES P3080. $* '0MPI PF=PROGA, MT=TA, MN=BD, ADR=>33B6+>00CE,0V=>0581,D=>100E,C=>100E EC'-- @0MPI PF=PROGA, MT=TA, MN=BD, ADR=>33B6+>00D6,0,V=(>0202,>59AE),D=(>0460,>60C6), C=>64A6,EC'0MPI PF=PROGA, MT=TA, MN=BD, ADR=>33B6+>00E8,0V=(>C804,>5992+2,>0581),"D=(>C0C4,>100B,>05C1), C=>D50E"EC'MPI PFÀ*=PROGA, MT=TA, MN=BD, ADR=>33B6+>00F6,* V=(>C0A0,>5992,>24A0,>5102), *D=(>C803,>5992+2,>0601,>10E9), C=>877F*EC'0MPI PF=PROGA, MT=TA, MN=BD, ADR=>33B6+>0106,0V=>0581,D=>05C1, C=>05C1EC'MPI PF=PROGA, MTÀ=TA, MN=BD, ADR=>60C6, V=(>0000,>0000,>0000,>0000), (D=(>0283,>0002,>1207,>C0A0), C=>D026(EC',MPI PF=PROGA, MT=TA, MN=BD, ADR=>60C6+8,, V=(>0000,>0000,>0000,>0000), (D=(>5992,>24A0,>5102,>1602), C=>3A32(€EC'.MPI PF=PROGA, MT=TA, MN=BD, ADR=>6€%€%0C6+>10,. V=(>0000,>0000,>0000,>0000), *D=(>05C0,>5992+2,>0202,>59AE), C=>07F8*EC'.MPI PF=PROGA, MT=TA, MN=BD, ADR=>60C6+>18,.0V=(>0000,>0000),D=(>0460,>33B6+>DA), C=>30F00@EC'0MPI PF=PROGA, MT=TA, MN=CD, ADR=>370A+>00CE,0V=>0581,D=>100E,C=>100E EC'0MPI PF=PROGA, MT=TA, MN=CD, ADR=>370A+>00D6,0,V=(>0202,>5884),D=(>0460,>60C0), C=>64A0,EC'$MPI PF=PROGA, MT=TA, MN=CD, ADR=>3$À70A+>00E8,V=(>C804,>5864+2,>0581),"D=(>C0C4,>100B,>05C1), C=>D50E"EC'0MPI PF=PROGA, MT=TA, MN=CD, ADR=>370A+>00F6,0 V=(>C0A0,>5864,>24A0,>5176), *D=(>C803,>5864+2,>0601,>10E9), C=>868D*EC'MPI PFÀ*=PROGA, MT=TA, MN=CD, ADR=>370A+>0106,*V=>0581,D=>05C1, C=>05C1EC'*MPI PF=PROGA, MT=TA, MN=CD, ADR=>60C0,* V=(>0000,>0000,>0000,>0000), (D=(>0283,>0002,>1207,>C0A0), C=>D026(EC'MPI PF=PROGA, MT=TA, MN=ÀCD, ADR=>60C0+8, V=(>0000,>0000,>0000,>0000), (D=(>5864,>24A0,>5176,>1602), C=>3BB0(EC'.MPI PF=PROGA, MT=TA, MN=CD, ADR=>60C0+>10,. V=(>0000,>0000,>0000,>0000), *D=(>05C0,>5864+2,>0202,>5884), C=>0720*ECÀ'.MPI PF=PROGA, MT=TA, MN=CD, ADR=>60C0+>18,.0V=(>0000,>0000),D=(>0460,>370A+>DA), C=>33840EC'0MPI PF=PROGA, MT=TA, MN=RD, ADR=>2354+>00CE,0V=>0581,D=>100E,C=>100E EC'&MPI PF=PROGA, MT=TA, MN=RD, ADR=>235&À4+>00D6,,V=(>0202,>67D2),D=(>0460,>70C0), C=>74A0,EC'0MPI PF=PROGA, MT=TA, MN=RD, ADR=>2354+>00E8,0V=(>C804,>67AE+2,>0581),"D=(>C0C4,>100B,>05C1), C=>D50E"EC',MPI PF=PROGA, MT=TA, MN=RD, ADR=>2354+>00F,À6, V=(>C0A0,>67AE,>24A0,>5F08), *D=(>C803,>67AE+2,>0601,>10E9), C=>B95B*EC'0MPI PF=PROGA, MT=TA, MN=RD, ADR=>2354+>0106,0V=>0581,D=>05C1, C=>05C1EC'*MPI PF=PROGA, MT=TA, MN=RD, ADR=>70C0,*V=(>00À00,>0000,>0000,>0000),(D=(>0283,>0002,>1207,>C0A0), C=>D026(EC',MPI PF=PROGA, MT=TA, MN=RD, ADR=>70C0+8,, V=(>0000,>0000,>0000,>0000), (D=(>67AE,>24A0,>5F08,>1602), C=>0A04(EC' MPI PF=PROGA, MT=TA, MN=RDÀ, ADR=>70C0+>10, V=(>0000,>0000,>0000,>0000), *D=(>05C0,>67AE+2,>0202,>67D2), C=>07A0*EC'.MPI PF=PROGA, MT=TA, MN=RD, ADR=>70C0+>18,.0V=(>0000,>0000),D=(>0460,>2354+>DA), C=>204E0EC' MPI PF=PROGA, MT=TA,À MN=VB, ADR=>1AC2+>00CE,V=>0581,D=>100E,C=>100E EC'0MPI PF=PROGA, MT=TA, MN=VB, ADR=>1AC2+>00D6,0,V=(>0202,>60AA),D=(>0460,>6A86), C=>6EE6,EC'0MPI PF=PROGA, MT=TA, MN=VB, ADR=>1AC2+>00E8,0V=(>C804,>60À86+2,>0581),"D=(>C0C4,>100B,>05C1), C=>D50E"EC'0MPI PF=PROGA, MT=TA, MN=VB, ADR=>1AC2+>00F6,0 V=(>C0A0,>6086,>24A0,>57F0), *D=(>C803,>6086+2,>0601,>10E9), C=>BE63*EC'&MPI PF=PROGA, MT=TA, MN=VB, ADR=>1AC&À2+>0106,V=>0581,D=>05C1, C=>05C1EC'*MPI PF=PROGA, MT=TA, MN=VB, ADR=>6A86,* V=(>0000,>0000,>0000,>0000), (D=(>0283,>0002,>1207,>C0A0), C=>D026(EC',MPI PF=PROGA, MT=TA, MN=VB, ADR=>6A86+8,,V=(>00À00,>0000,>0000,>0000),(D=(>6086,>24A0,>57F0,>1602), C=>05D4(EC'.MPI PF=PROGA, MT=TA, MN=VB, ADR=>6A86+>10,. V=(>0000,>0000,>0000,>0000), *D=(>05C0,>6086+2,>0202,>60AA), C=>07E0*EC'MPI PF=PROGA, MT=TA, MÀ N=VB, ADR=>6A86+>18,0V=(>0000,>0000),D=(>0460,>1AC2+>DA), C=>1FFC0EC'0MPI PF=PROGA, MT=TA, MN=VC, ADR=>1B40+>00CE,0V=>0581,D=>100E,C=>100E EC'0MPI PF=PROGA, MT=TA, MN=VC, ADR=>1B40+>00D6,0V=(>0202,>4FÀ 40),D=(>0460,>5750), C=>5330 EC'0MPI PF=PROGA, MT=TA, MN=VC, ADR=>1B40+>00E8,0V=(>C804,>4F18+2,>0581),"D=(>C0C4,>100B,>05C1), C=>D50E"EC'0MPI PF=PROGA, MT=TA, MN=VC, ADR=>1B40+>00F6,0 V=(>C0A0,>4F18,>24€A0,>466E),*D=(>C803,>4F18+2,>0601,>10E9), C=>91F1*EC'0MPI PF=PROGA, MT=TA, MN=VC, ADR=>1B40+>0106,0V=>0581,D=>05C1, C=>05C1EC'*MPI PF=PROGA, MT=TA, MN=VC, ADR=>5750,* V=(>0000,>0000,>0000,>0000), ,M$@(D=(>0283,>0002,>1207,>C0A0), C=>D026(EC',MPI PF=PROGA, MT=TA, MN=VC, ADR=>5750+8,, V=(>0000,>0000,>0000,>0000), (D=(>4F18,>24A0,>466E,>1602), C=>3BD4(EC'.MPI PF=PROGA, MT=TA, MN=VC, ADR=>5750+>10,.V=(>00À00,>0000,>0000,>0000),*D=(>05C0,>4F18+2,>0202,>4F40), C=>0798*EC'.MPI PF=PROGA, MT=TA, MN=VC, ADR=>5750+>18,.0V=(>0000,>0000),D=(>0460,>1B40+>DA), C=>187A0EC'*$'**---------------------------------------*À&---------------------------------*&@*=P3397 BJF/TCC01/24/84STR #17338DX103.6.0 GENDAT @* 'D * PROBLEM : IO COMMON ROUTINES CANNOT HANDLE THE SHORT ADDS PDTD$* FUNCTION KEYS APPEAR BROKEN$* SOLUTION: MAKÀ2E ADDS PDT LONGER(COMPATABLE WITH OTHER PDTS) 2* DURING SYSGEN* ' Q$SYN % D MFN OLD=VOLBLD.S$SYSGEN.GENDAT,NEW=VOLBLD.S$SYSGEN.GENDAT,REP=NOD .IF @$$CC,EQ,>007A0MRF PN=VOLBLD.S$SYSGEN.GENDAT,RN=>0010,FW=>0170ÀA, V=>3630,D=>3632,C=>3632EC'4MRF PN=VOLBLD.S$SYSGEN.GENDAT,RN=>00CE,FW=>00B0,4, V=(>0001,>0069),D=(>0000,>0000),C=>0000,EC' .ENDIF% *$'<*---------------------------------------------------------<À---------------*>*=P3420 BJF/SDK 01/31/84 STR #14699 DX10 3.6.0S$CCAF>* 'J#* PROBLEM: CC DOES NOT ALLOCATE ENOUGH SPACE FOR A BLANK SUPPRESSED J(* NON-EXPANDABLE SEQUENTIAL FILE.( * SOLUTION: DONT DIVIDE A€.LLOCATION BY 2 IF NON-EXPANDABLE SEQ FILE .* ' Q$SYN % ,MPI PF=PROGA,MT=TA,MN=S$CCAF,ADR=>1A3A, , V=>3600,D=>3E00,C=>3E00EC',MPI PF=PROGA,MT=TA,MN=S$CCAF,ADR=>1A3E, , V=>1200,D=>1A00,C=>1A00EC'@*$'N%*------------------------------------------------------------------------*N@*=P3423 BJF/SDK02/01/84STR #13775DX103.6.0 WRTEOF @* 'H"* PROBLEM : WRITE EOF WILL NOT WORK IF THE SECOND SEGMENT IS TAKEN H* À8 UP BY SOME PREVIOUS COMMANDS LARGE PHYSICAL RECORD 8J#* SOLUTION: WRITE EOF SHOULD MAKE THE SECOND SEGMENT AVAILABLE BEFOREJ* CALLING WRITE SEQ. * ' Q$SYN % $MRF PN=@OVLYA,RN=>0008,FW=>0260,$ V=(>0014,>170€2,>05AD,>0012), ( D=(>C168,>000A,>C155,>0725),C=>0712(EC'$MRF PN=@OVLYA,RN=>0008,FW=>0268,$" V=(>AB44,>0012,>06A9,>02E0), "( D=(>0036,>04C5,>0468,>0108),C=>0193(EC'$MRF PN=@OVLYA,RN=>0008,FW=>0064,$YS(@, V=(>06A8,>0108),D=(>06A9,>0260),C=>04C9,EC'*$'N%*------------------------------------------------------------------------*NH * *** PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH RELEASE 3.7 *H*---------------------À8---------------------------------------------------*8N%*------------------------------------------------------------------------*N.IF @$E$C ,EQ, 0 @MPI PF=PROGA,MT=TA,MN=>14,ADR=>C00A,V=>2D31,D=>2030,C=>2030 @*EC &.EÀNDIF%N%*-------------------------------------------------------------------------N* '8CM R=ME,M="@$E$C ERRORS ON DX10 PROGA PATCH STREAM" 8* 'L%*-------------------------------------------------------------------------L€* 'F* ***DELETE SYNONYMS THAT ARE UNIQUE TO THIS BATCH STREAM****F* ' Q$SYN % ,.SYN PROGA="" ! TARGET PROGRAM FILE ,&.SYN LOADER ="" ! TARGET LOADER &,.SYN OVLYA="" ! TARGET OVERLAY FILE ,.0.SYN S$SDS$ ="" ! TARGET SDS PROGRAM FILE0.SYN SCI990 ="" .SYN PROC ="" * 'N%*-------------------------------------------------------------------------NSDT &EBATCH,LS=Y "S USED. NEXT AVAILABLE <ÿÿ†MEMRES „M³$ÕåæÀl×ÀˆÛ1@N%*-----------------------------------------------------------------------* NF*** PATCH FILE DX10 3.6.0 MEMRES LAST UPDATE 02/21/84* FN%*-----------------------------------------------------------------------* N* AÀ* INSTRUCTIONS:9* A"* *** I M P O R T A N T ***3"L* " <<< THE USER MUST ASSIGN THE SYNONYM $$DSC$ AS INSTRUCTED BELOW >>>L* AF* <<<WARNING: APPLYING PATCH P3102 CAUSES THE 931/940 DSR TO !F* IGNOREÀ6 STATUS CHANGES IN THE RS232C DATA CARRIER DETECT 6<* (DCD) SIGNAL. TO NOT APPLY THE PATCH SET THE SYNONYM"<>* "TIMER" TO "YES" BEFORE APPLYING MEMRES PATCHES.>>> !>* A4* AFTER A SYSGEN IS DONE, THE DX10 IMAGE FILE (4€ OBJECT OUTPUT FROM H* THE LINK EDITOR) WILL NEED TO HAVE THE PATCHES IN THIS FILE HH* APPLIED TO IT. THIS FILE CANNOT BE RUN AS A BATCH STREAM TO HD* PATCH A SYSTEM.EITHER (A) OR (B) BELOW MUST BE PERFORMED."DUTH@* AH* A) 1. ASSIGN THE SYNONYM $$DSC$ TO THE VOLUME NAME OF THE DISK H0* ON WHICH THE PATCHES ARE TO BE APPLIED.)0* A8* 2. RUN THE XPS PROC, WITH THE FOLLOWING INPUTS: &8* A €%€%* LINK = #** INPUT = ,*:* OUTPUT = -@* ERROR= !@* A@@* 3. THE FILE SPECIFIED FOR OUTPUT IN (2) THEN CAN BE RUN "@0* AS A BATCH STREAM TO PATCH THE SYSTEM. )0* AJ* B) IF THE LINK MAP ISNOLONGERAVAILABLE ON DISK FILE, THIS J** FILE WILL HAVE TO BE TRANSFORMED INT*À O A BATCH STREAM MANUALLY.F* COPY THIS FILE TOANOTHER FILE AND EDIT THE COPIED FILE AS F* FOLLOW. :* A@* 1.FOR EACH #SYN COMMAND FOUND IN THE FILE, TWO OR MORE"@,* SYNONYMS MUST BE DEFINED. EACH #SYN C,ÀOMMAND IS IN THE!* FORMAT: 8B* #SYN ,,,... B* FOR EXAMPLE:6* #SYN SROOT,ROOT 3* WHERE:9:* SROOT IS THE TASK ID SYNONYM NAME, AND ROOT IS THE":* €,MODULE NAME OF THE MODULE TO BE PATCHED.',* AD* 2.FIND THE S IN THE LINK MAP (MICROFICHE, OR D:* PRINTOUT, ETC.) ALL MODULES ON ONE LINE OF A #SYN#::* COMMAND WILL RESIDE IN THE SAME PHASE OF THE LINK.#:@>* DETERMINE THE OVERLAY OR TASK ID FROM THE PHASE HEADER!>@* LINE OF THE PHASE WHERE THE SPECIFIED MODULES ARE FOUND. @@* INSERT A .SYN COMMAND IMMEDIATELY AFTER #SYN COMMAND IN @0* THE PATCH FILE TO DEFINE THE OVERLAY OR TA0ÀSK ID,AS IN * THE FOLLOWING EXAMPLE:1* .SYN SROOT=15* WHERE 96* SROOT IS THE TASK ID SYNONYM FOUND IN THE #SYN$6* COMMAND, AND22* 1 IS THE TASK ID FROM THE PHASE IN WHICH%2* THE LISTEDÀ MODULES RESIDE.+0* (1 IS THE ID FOR THE FIRST SYSTEM.THIS$02* WILL BE DIFFERENT FOR ADDITIONAL SYSTEMS.)#2* AD* 3.NEXT, INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH D&* IN THE #SYN COMMAN&ÀD.FOR EXAMPLE:$* .SYN ROOT=>4464 3* WHERE:98* ROOTIS THE MODULE NAME OF THE MODULE (FROM THE#8(* #SYN COMMAND) TO BE PATCHED, AND((6* >4464 IS THE HEXADECIMAL ADDRESS OF THE MODULE$6* ORIGIN FOR TÀ$ I-SUPPLIED SYSTEM.(THIS MAY BE"$&* DIFFERENT FOR CUSTOM SYSTEMS.))&* A6* 4.DELETE THE #SYN LINE FROM THE PATCH FILE. '6* AB* 5.REPEAT STEPS 1 - 4 FOR EACH #SYN COMMAND IN THE FILE. !B* A * 6. À2DELETE ALL THE %SYN LINES FROM THE PATCH FILE.%2* AF* 7.QUIT THE TEXT EDIT SPECIFYING "YES" TO THE REPLACE OPTION.F* AB* 8.ASSIGN THE SYNONYM $$DSC$ TO THE VOLUME NAME THE DISK !B * ON WHICH THE PATCHES ARE T ÀO BE APPLIED. (* A6* 9.EXECUTE THE BATCH STREAM YOU JUST CREATED.'6* AN%*-----------------------------------------------------------------------* NBATCH LS=YES<*** SYNONYM ASSIGNMENT 6*-------------À@----------------------------------------------------------* @N* ! THE FOLLOWING SYNONYMS ARE DEFINED BY TI SYSTEM ANALYSTS ONLY AT * NJ* SYSTEM BUILD TIME. THEY SHOULD NOT BE MODIFIED BY THE USER. * J *-------------------À:----------------------------------------------------* : Q$SYN ? .SYN $E$C="0" ;".SYN IMAGE="@$$DSC$.S$IMAGES" 3"%SYN SROOT,ROOT : %SYN SROOT,TM$PFN 9@%SYN SFILMG,FILMG,KIF3 ! FILMG REQUIRED FOR SYSTEM LENGTH CHEC@ÀK "%SYN SMEM,MEMRES:%SYN SIO,SVCIO,TM$CKY 7,%SYN S2D,SVC2ND,SYSLOG !2ND SVC SEGMENT .,%SYN IOC,IOCOM;%SYN SDDIO,DDIOSR,OLDDKY6%SYN S911,DSR911:%SYN S913,DSR913:%SYN SLP,LPDSR;%SYN S820,DSÀR820:%SYN SFPY,FPYDSR:%SYN S979,DSR979,OLDTPY 6%SYN S733,DSR733:%SYN STPD,DSRTPD:%SYN S93C,DSR93C:%SYN SSPC,DSRSPC:%SYN S93B,DSR93B:%SYN S93A,DSR93A:* A#SYN SROOT,ROOT :.EÀVAL S$$PAT="@ROOT+>0000"5* AN%*------------------------------------------------------------------------ N* A>* CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000. %>2* THIS CAUSES SEVERAL PROBLEMS IN DISK RESIDENT2À SYSTEM TASKS.#* A #SYN SFILMG,FILMG 9 .IF @FILMG,GT,>C000 8(CM R=ME,M="PATCH STREAM FATAL ERROR"0(*CM R=ME,M="SYSTEM ROOT EXCEEDS >C000 "/*2CM R=ME,M="CURRENT SYSTEM ROOT SIZE = @FILMG "+2 CM R=ME,M="PATCHIN€G TERMINATED" 2 .STOP ? .ENDIF? .SYN SFILMG="",FILMG="" 6* AN%*------------------------------------------------------------------------ N* A@* CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800. $@B@B* THIS CAUSES SEVERAL PROBLEMS IN EXECUTION AS ANY REFERENCE #B@* IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS INSTEAD $@* OF MEMORY. ;* A .IF @SROOT,EQ,>1009(CM R=ME,M="PATCH STREAM FATAL ERROR"0( CM R=ME, À*M="LONGEST OVERLAY PATH EXCEEDS >F800"+*$CM R=ME,M="PATCHING TERMINATED" 2$ .STOP ? .ENDIF? * AN%*------------------------------------------------------------------------ N* A"* BEGIN PATCHES FOR DX10 RELEA"ÀSE 3.6.0(* AN%*------------------------------------------------------------------------*N* AB*=P2981 JDS/DCG08/16/83STR #16034DX103.6.0 DS934TSR #B* A4* PROBLEM: THE ATTACHED PRINTER ON THE 940 CAUSES4À CRT DELAYS #B* SOLUTION: FIX THE DELAY TABLES FOR THE 940 ATTACHED PRINTER#B* A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>1FFE,(8 V=(>0012,>0024,>003À6,>0048), 1( D=(>0013,>0026,>0039,>004C),C=>0040.(ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2012,(8" V=(>0A09,>0808,>0808,>0800), 1"( D=(>0A07,>0505,>0505,>0500),C=>0F07.(ECA .ENDIF? .SYN S93A=À"",DSR93A=""7#SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>1FFE,(8" V=(>0012,>0024,>0036,>0048), 1"( D=(>0013,>0026,>0039,>004C),C=>0040.(ECAMPI PF=IMAGE,MT=OV,MN=À"@S93B,ADR=@DSR93B+>09F0+>2012,("" V=(>0A09,>0808,>0808,>0800), 1"( D=(>0A07,>0505,>0505,>0500),C=>0F07.(ECA .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 7 MPI PF=IMAGE,MT=OV,MÀ$N=@S93C,ADR=@DSR93C+>0BD8+>1FFE,($" V=(>0012,>0024,>0036,>0048), 1"( D=(>0013,>0026,>0039,>004C),C=>0040.(ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2012,(8" V=(>0A09,>0808,>0808,>0800), 1" D=(>0A07,>0505,>0€ 505,>0500),C=>0F07.ECA .ENDIF? .SYN S93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*N* AB*=P2982 JDS/DCG08/16/83STR #16037DX103.6.0 DS934TSR #BD@* A&* PROBLEM: 3270 SOMETIMES CRASHES1&J#* SOLUTION: FIX AN ERRONEOUS JUMP IN THE CONVERT NULLS TO BLANKS LOOPJ* A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 7*MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+*À>07F2+>16B2,( V=>11FA, ; D=>15FA,C=>15FA8ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>16B2,(8 V=>11FA, ;À D=>15FA,C=>15FA8ECA .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>16B2,(8 V=>11FA, ; D=>15FA,C=>15FA8ECA.ENDÀIF?.SYN S93C="",DSR93C=""7*$A* AN%*------------------------------------------------------------------------*N* A>*=P2989 BJF/SDK 08/08/83 STR #16045 DX10 3.6.0MM$SCN%>* A * PROBLEM: THE SYSÀ0TEM WILL PSUEDO-HANG WHILE COMM IS RUNNING. "04* THE PSUEDO-HANG CAN LAST FOR MANY SECONDS. &4@* SOLUTION: CURRENT ROLL ALGORITHM FORCES A WAIT FOR A TASK$@<* WITH TILINE IO IN PROGRESS.ROLL ALGORITHM ALTERED"< * TO À2FORCE THIS WAIT ONLY WHEN NOTHING ELSE CAN BE #2* ROLLED.8* A* A Q$SYN ? 8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1684+>009A, (8 V=>D104,D=>0460,C=>04604ECA(MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT(À+>1684+>009C, (, V=>1312,D=@S$$PAT+>0000,C=@S$$PAT+>0000,,ECA8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1684+>009E, (8 V=>9004,D=>0460,C=>04604ECA8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1684+>00A0, (8 V=>11À210,D=@S$$PAT+>0000+>0004,C=@S$$PAT+>0000+>0004&2ECA8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1684+>00B6, (8 V=>1305,D=>13F3,C=>13F34ECA8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1684+>00CA, (8 V=@ROOT+>194A,D=@S$$PÀAT+>0000+>0024, - C=@S$$PAT+>0000+>00245ECA8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1684+>00CC, (8 V=>052A,D=>0460,C=>04604ECA8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1684+>00CE, (8 V=>FFFC,D=@S$$PAT+>00À"00+>002C,C=@S$€%€%$PAT+>0000+>002C&"ECA4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, *4" V=(>DEAD,>DEAD,>DEAD,>DEAD), 1"( D=(>D104,>160C,>C022,>001F),C=>0735.(ECA6MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>00086À, ' V=(>DEAD,>DEAD), 7 D=(>1307,>C020),C=>D3274ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>000C, ':8 V=>DEAD,D=@S$$PAT+>0000+>003E,C=@S$$PAT+>0000+>003E&8ECA(MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$P(ÀAT+>0000+>000E, ' V=(>DEAD,>DEAD), 7 D=(>1602,>C803),C=>DE014ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>0012, ':8 V=>DEAD,D=@S$$PAT+>0000+>003E,C=@S$$PAT+>0000+>003E&8ECAMPI PF=IMAGE,MT=TA,MN=@SÀ"ROOT,ADR=@S$$PAT+>0000+>0014, '" V=>DEAD,D=>0460,C=>04604ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>0016, ':" V=>DEAD,D=@ROOT+>1684+>000C, 1" C=@ROOT+>1684+>000C, 5ECAMPI PF=IMAGE,MT=TA,MN=@SROOTÀ ,ADR=@S$$PAT+>0000+>0018, ' V=>DEAD,D=>0460,C=>04604ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>001A, ':" V=>DEAD,D=@ROOT+>1684+>00C2, 1" C=@ROOT+>1684+>00C2, 5ECA"MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR"€=@S$$PAT+>0000+>001C, ' V=(>DEAD,>DEAD,>DEAD), 4" D=(>9004,>11F2,>0460),C=>85961"ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>0022, ':" V=>DEAD,D=@ROOT+>1684+>00A2, 1" C=@ROOT+>1684+>00A2, 5ECAPS @:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>0024, ': V=>DEAD,D=>04E0,C=>04E04ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>0026, ':$ V=>DEAD,D=@S$$PAT+>0000+>0003E,0$ C=@S$$PAT+>0000+>003E, 4ECAÀ:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>0028, ': V=>DEAD,D=>0460,C=>04604ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>002A, ':( V=>DEAD,D=@ROOT+>194A,C=@ROOT+>194A.(ECAMPI PF=IMAGE,MT=TA,MN=@SROOTÀ ,ADR=@S$$PAT+>0000+>002C, ' V=>DEAD,D=>C060,C=>C0604ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>002E, ':$ V=>DEAD,D=@S$$PAT+>0000+>0003E,0$ C=@S$$PAT+>0000+>003E, 4ECAMPI PF=IMAGE,MT=TA,MN=@SROOTÀ ,ADR=@S$$PAT+>0000+>0030, '" V=(>DEAD,>DEAD,>DEAD,>DEAD), 1"( D=(>1302,>C0C1,>10F1,>052A),C=>C618.(ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>0038, ':, V=(>DEAD,>DEAD),D=(>FFFC,>0460),C=>FB9C,,ECAMP€8I PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>003C, '8" V=>DEAD,D=@ROOT+>1684+>00D0, 1" C=@ROOT+>1684+>00D0, 5ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000+>003E, ': V=>DEAD,D=>0000,C=>00004ECA*$A@N%*------------------------------------------------------------------------*N* A@*=P2996 JDS/DCG08/16/83STR #16074DX10 3.6.0DS934TSR$@* AB* PROBLEM: 3270 CAN NOT RIGHT ARROW THROUGH A PROTECTED FIELD#B * SOLUT À ION: PATCH THE CORRECT JUMP 0 * A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>14A4,(8 V=>1803, ; D=>1703,C=>17038ECAMPI PF=IMAGE,MT=OV,MN=À"@S93A,ADR=@DSR93A+>07F2+>151E,(" V=>1709, ; D=>1809,C=>18098ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>14A4,(8À V=>1803, ; D=>1703,C=>17038ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>151E,(8 V=>1709, ; D=>1809,C=>18098ECA .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"€ NONE" 7 8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>14A4,(8 V=>1803, ; D=>1703,C=>17038ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>151E,(8 V=>1709, ; D=>1809,C=>18098ECA .ENDIF? @.SYN S93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*N* A@*=P3046 JDS/DCG08/31/83STR #16166DX10 3.6.0DS934TSR$@* A(* PROBLEM: THE 931 ATTACHED PRINTER S(€&TOPS PRINTING AND MAY NOT RESPOND &:* TO THE KEYBOARD IF YOU PRINT A BUFFER LONGER THAN #:* 135 CHARACTERS5D * SOLUTION: BREAK THE BUFFER INTO SMALLER PARTS AND RE-REQUEST "D"* THE LINE FOR THE PRINTER /"* ATH @ Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>00FA,(8 V=>0087, ; D=>0086,C=>00868ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>0100,(8 V=>0087 À, ; D=>0086,C=>00868ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>011E,(8 V=@DSR93A+>07F2+>00DE, 4 D=@DSR93A+>07F2+>209A, 4 C=@DSR93A+>07F2+>209A5ECA*MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+*À>07F2+>209A,(" V=(>0000,>0000,>0000,>0000), 1"" D=(>C2E7,>003E,>0A5B,>1706), 1" C=>DF84<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20A2,(8 V=>0000, ; D=>E9E0, ; C=>E9E0<ECAMPI €4PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20A4,(4 V=>0000, ; D=@ROOT+>025E+>0006, 5 C=@ROOT+>025E+>00066ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20A6,(8 V=(>0000,>0000), 7 D=(>003E,>0206), 7@ C=>0238<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20AA,(8 V=>0000, ; D=@DSR93A+>07F2+>209A, 4 C=@DSR93A+>07F2+>209A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20AC,(8 V=(>0000,>0À 000), 7 D=(>0380,>E9E0), 7 C=>EA60<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20B0,(8 V=>0000, ; D=@ROOT+>025E+>0004, 5 C=@ROOT+>025E+>00046ECA&MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR&À93A+>07F2+>20B2,( V=(>0000,>0000), 7 D=(>003E,>49E0), 7 C=>49DE<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20B6,(8 V=>0000, ; D=@ROOT+>025E+>0006, 5 C=@ROOT+>025E+>00066ECAÀ8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20B8,(8 V=(>0000,>0000), 7 D=(>003E,>0460), 7 C=>045E<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20BC,(8 V=>0000, ; D=@DSR93A+>07F2+>00DE, 4€ C=@DSR93A+>07F2+>00DE5ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>00FA,(8 V=>0087, ; D=>0086,C=>00868ECA=I @8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0100,(8 V=>0087, ; D=>0086,C=>00868ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>011E,(8 V=@DSR93B+>09F0+>00DE, 4 D=@DSR93B+>09F0+>209A, 4 C=@DSR93B+>€09F0+>209A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>209A,(8" V=(>0000,>0000,>0000,>0000), 1"" D=(>C2E7,>003E,>0A5B,>1706), 1" C=>DF84<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20A2,(8<@ V=>0000, ; D=>E9E0, ; C=>E9E0<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20A4,(8 V=>0000, ; D=@ROOT+>025E+>0006, 5 C=@ROOT+>025E+>00066ECA*MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+*À>09F0+>20A6,( V=(>0000,>0000), 7 D=(>003E,>0206), 7 C=>0238<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20AA,(8 V=>0000, ; D=@DSR93B+>09F0+>209A, 4 C=@DSR93B+>09F0+>209A5ECAÀ8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20AC,(8 V=(>0000,>0000), 7 D=(>0380,>E9E0), 7 C=>EA60<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20B0,(8 V=>0000, ; D=@ROOT+>025E+>0004, 5 C€ =@ROOT+>025E+>00046ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20B2,(8 V=(>0000,>0000), 7 D=(>003E,>49E0), 7 C=>49DE<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20B6,(8 V=>0000, ;@ D=@ROOT+>025E+>0006, 5 C=@ROOT+>025E+>00066ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20B8,(8 V=(>0000,>0000), 7 D=(>003E,>0460), 7 C=>045E<ECA,MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>0,À9F0+>20BC,( V=>0000, ; D=@DSR93B+>09F0+>00DE, 4 C=@DSR93B+>09F0+>00DE5ECA* A .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 7"MPI PF=IMAGE,MT=OV,MN=@S93C,ADR="€ @DSR93C+>0BD8+>00FA,( V=>0087, ; D=>0086,C=>00868ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>0100,(8 V=>0087, ; D=>0086,C=>00868ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>011E,(8:@ V=@DSR93C+>0BD8+>00DE, 4 D=@DSR93C+>0BD8+>209A, 4 C=@DSR93C+>0BD8+>209A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>209A,(8" V=(>0000,>0000,>0000,>0000), 1"" D=(>C2E7,>003E,>0A5B,>1706), 1" C=>DF84 À<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20A2,€%€%(8 V=>0000, ; D=>E9E0, ; C=>E9E0<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20A4,(8 V=>0000, ; D=@ROOT+>025E+>0006, 5 C€ =@ROOT+>025E+>00066ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20A6,(8 V=(>0000,>0000), 7 D=(>003E,>0206), 7 C=>0238<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20AA,(8 V=>0000, ;@ D=@DSR93C+>0BD8+>209A, 4 C=@DSR93C+>0BD8+>209A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20AC,(8 V=(>0000,>0000), 7 D=(>0380,>E9E0), 7 C=>EA60<ECA(MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93(ÀC+>0BD8+>20B0,( V=>0000, ; D=@ROOT+>025E+>0004, 5 C=@ROOT+>025E+>00046ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20B2,(8 V=(>0000,>0000), 7 D=(>003E,>49E0), 7 C=>49DE<ECAMPÀ6I PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20B6,(6 V=>0000, ; D=@ROOT+>025E+>0006, 5 C=@ROOT+>025E+>00066ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20B8,(8 V=(>0000,>0000), 7 D=(>003E,>0460), À7 C=>045E<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20BC,(8 V=>0000, ; D=@DSR93C+>0BD8+>00DE, 4 C=@DSR93C+>0BD8+>00DE5ECA* A .ENDIF? .SYN S93C="",DSR93C=""7*$A*-ÀL$-----------------------------------------------------------------------*LB* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH DX103.6.0 *BN%*------------------------------------------------------------------------*N* A*=P308€:3 JDS/DCG09/12/83STR #16279DX10 3.6.0DS934TSR$:* AH"* PROBLEM: YOU CAN ABORT READ WITH BLANK ORANGE RETURN ON 931/940, H"* THE 911 WILL NOT ALLOW IT./"4* SOLUTION: DO NOT ALLOW IT ON 931/940 AS WELL.*4* A@ Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>1360,(8 V=>D2E4, ; D=>1008,C=>10088ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B:À.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>1360,(8 V=>D2E4, ; D=>1008,C=>10088ECA .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 7 MPI PF=I €0MAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>1360,(0 V=>D2E4, ; D=>1008,C=>10088ECA .ENDIF? .SYN S93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*N* A+> @@*=P3084 JDS/DCG09/13/83STR #16284DX10 3.6.0DS934TSR$@* AN%* PROBLEM: THE CHARACTER COUNT IS NOT CLEARED WHEN ERASE INPUT IS PRESSEDN8* SOLUTION: JUMP TO HOME CODE THAT CLEARS THE COUNT(8* A Q$SYN ? #SYNÀ S93A,DSR93A:.IF @DSR93A,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>1848,(8 V=>10D7, ; D=>10C8,C=>10C88ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B: .IF @DSR93B,NE,"NOÀNE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>1848,(8 V=>10D7, ; D=>10C8,C=>10C88ECA .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 7 MPI PF=IMAGE,MT=OV,MN=@S93À C,ADR=@DSR93C+>0BD8+>1848,( V=>10D7, ; D=>10C8,C=>10C88ECA .ENDIF? .SYN S93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*N* A*=P3101 BRR/DCGÀ.09/19/83STR #16391DX10 3.6.0DS934ISR$.* AL$* PROBLEM: THE SOFTWARE TIMER IS NOT BEING SET-UP CORRECTLY. THE NUMBERL:* OF TIME UNITS (250 MS) NEEDS TO BE IN REGISTER 0. #:* A&* SOLUTION: THE NUMBER OF TIME UNIT&€$S SHOULD BE IN REGISTER 0 NOT IN $* REGISTER 10. 5* A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 7>MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>219A+>00B6,%> V=>04CA, ; D=>04C0,C=>04C08@ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 7>MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>219A+>00B6,%> V=>04CA, ; D=>04C0,C=>04C08ECA .ENDIF? .SYN S93 ÀB="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 7>MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>219A+>00B6,%> V=>04CA, ; D=>04C0,C=>04C08ECA .ENDIF? .SYN S93C="",DSR93C=""7*$AÀN%*------------------------------------------------------------------------*N* A@*=P3102 BRR/DCG09/15/83STR #16393DX10 3.6.0DS934TSR$@* A.* WARNING: APPLYING THIS PATCH CAUSES THE-.* 931/940 DSR TO IGNORE STÀ$ATUS CHANGES IN THE RS232C DATA $$* CARRIER DETECT (DCD) SIGNAL..$* AJ#* PROBLEM: APPROXIMATELY 2% OF THE CPU CAN BE CONSUMED SERVICING THE J@* TMS9902 TIMER INTERRUPTS ON A PER DEVICE BASIS. THIS CAN @* OCCUR ONÀ4 THE FOLLOWING ASYNCHRONOUS CONTROLLERS, CI421, 4D* CI422, CI402, THE /10A PROCESSOR PORT AND THE S300 PROCESSORD* PORT. 9* AJ#* SOLUTION: IF STATUS CHANGES FOR DCD ARE IGNORED, THE 9902 TIMER CANJ* REMAIN INÀACTIVE. 3* AN* # IF YOU DON'T WANT THIS PATCH APPLIED THEN SET THE SYNONYM "TIMER" TO N,* YES BEFORE APPLYING MEMRES PATCHES..,* A Q$SYN ? #SYN S93B,DSR93B: .IF @TIMER,NE,"YES" 8.IF @DSR93B,NE,"À NONE" 7 8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0DF0,(8 V=>06A0, ; D=>1004,C=>10048D *EC ----- ERROR EXPECTED -- P3102 MODIFIED BY PATCH P3291 ----- "D .ENDIF? .ENDIF? .SYN S93B="",DSR93B=""7*$€AN%*------------------------------------------------------------------------ N* A@*=P3105 JDS/BRR09/26/83STR #16414DX10 3.6.0DS934TSR$@* AH"* PROBLEM: OP CODE 15 TO ATTACHED PRINTER WILL HANG THE CALL BLOCK HJ* A.* SOLUTION: CALL ENDRCD TO RETURN THE IRB-.* A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>0272,(8 V=>1199, ; D=>11A9,C=>11A98ECAPF @8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>0278,(8 V=>1596, ; D=>15A6,C=>15A68ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>0284,(8 V=>1090, ; D=>10A0,C=>10A08ECA .ENDIF? .SYN S93A=À"",DSR93A=""7#SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0272,(8 V=>1199, ; D=>11A9,C=>11A98ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0278,(8 VÀ=>1596, ; D=>15A6,C=>15A68ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0284,(8 V=>1090, ; D=>10A0,C=>10A08ECA* A .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C: .IF @DSR À93C,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>0272,(8 V=>1199, ; D=>11A9,C=>11A98ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>0278,(8 V=>1596, ; D=>15A6,C=>15A68ECAMPÀ6I PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>0284,(6 V=>1090, ; D=>10A0,C=>10A08ECA .ENDIF? .SYN S93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*N* ÀA@*=P3107 BJF/CW 09/27/83STR #16422DX103.6.0 SVCCLN $@* AB* PROBLEM : KILLING TASK IN STATE >05(TIME DELAY) WITH PARENT#B:* IN STATE >17(WAITING ON SIBLING) CAUSES HANG WITH#:"* TASK ON ACTIVE QUEUE TWICE "€.<* SOLUTION: HAVE SVCCLN REMOVE TASK BEFORE QUEUEING IT &<* A Q$SYN ? #SYN SIO,SVCIO;4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0040, *4" V=(>DEAD,>DEAD,>DEAD,>DEAD), 1"( D=(>0201,>0168,>C088,>06A0),C=>C541.(@ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0040+>0008, ':( V=>DEAD,D=@ROOT+>23B2,C=@ROOT+>23B2.(ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0040+>000A, ':8 V=>DEAD,D=@S$$PAT+>0040+>000C,C=@S$$PAT+>0040+>000C&8ÀD *EC ----- ERROR EXPECTED -- P3107 MODIFIED BY PATCH P3481 ----- "D:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0040+>000C, ': V=(>DEAD,>DEAD), 7 D=(>C048,>06A0),C=>C6E84ECA0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00400À+>0010, '( V=>DEAD,D=@ROOT+>2240,C=@ROOT+>2240.(ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0040+>0012, ':6 V=>DEAD,D=@SVCIO+>1248+>00D0,C=@SVCIO+>1248+>00D0'6ECA2MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0040+>2À 0014, ' V=>DEAD,D=>0460,C=>04604ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0040+>0016, ':6 V=>DEAD,D=@SVCIO+>1248+>00CA,C=@SVCIO+>1248+>00CA'6ECA6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>1248+>00C6,)6 V=@À.ROOT+>2240,D=@S$$PAT+>0040,C=@S$$PAT+>0040).ECA .SYN SIO="",SVCIO=""8*$AN%*-----------------------€%€%-------------------------------------------------*N* A<*=P3109 PDW/DCG09/29/83STR #16447DX103.6.0 DSSPT<ÀSR$* AB* PROBLEM: PRINTER DSR'S SET THE SIGNAL SECONDARY REQUEST TO #B4* SEND (SRTS).THIS WORKS OKAY FOR LPDSR AND &48* PRINTERS CONNECTED TO CI403. THIS SIGNAL IS NOT$8,* IMPLEMENTED THE SAME FOR CI404 WHICH P,ÀUTS THE FSK #* MODEM INTO LOOPBACK.2:* SOLUTION: NO DSG CABLES OUTPUT SRTS TO THE PRINTER,':<* THEREFORE, TAKE OUT THE SET SRTS OUT OF THE DSRSPC."<* A Q$SYN ? #SYN SSPC,DSRSPC:.IF @DSRSPC,NE,"NONE" À78MPI PF=IMAGE,MT=OV,MN=@SSPC,ADR=@DSRSPC+>0BD8+>384, (8 V=(>06A0), : D=(>1002),C=>10027ECA .ENDIF? .SYN SSPC="",DSRSPC=""7*$AJ$*-----------------------------------------------------------------------JÀ-** A@*=P3116 BJF/CW 10/04/83STR #16167DX103.6.0 TM$INT $@* A@* PROBLEM : WHEN AN INTERNAL INTERRUPT(ILLEGAL INSTRUCTION,$@:* TILINE TIME-OUT,ETC.) ABORTS A TASK, AND THE TASK#:* HAD EXTENDED ITÀ&S TIME SLICE, A HANG OR CRASH CAN #&* OCCUR9<* SOLUTION: HAVE TM$INT CLEAR TIME-SLICE-EXTENDED FLAG &<* A Q$SYN ? 4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0058, *4 V=(>DEAD,>DEAD,>DEAD), 4 D=(>04E0,>0À 14A,>0460),C=>01CA1ECA4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>005E, *4( V=>DEAD,D=@ROOT+>1DAA,C=@ROOT+>1DAA.(ECA8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>2794+>00C8, (8, V=@ROOT+>1DAA,D=@S$$PAT+>0058,C=@S$$PAT+>,À0058)ECA*$AN%*------------------------------------------------------------------------*N* A@*=P3118 CIW/BJF09/29/83STR #16509DX103.6.0 DSR820 $@* A0* PROBLEM : DSR820 CRASH WHILE ATTEMPTS HALF 0ÀDUPLEX SUPPORT$D * SOLUTION: COMPLETE SOURCE FIX. USE DIFFERENT REGISTER TO TEST"D* HALF DUPLEX FLAG 3* A Q$SYN ? #SYN S820,DSR820:.IF @DSR820,NE,"NONE" 70MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0512,0À+ V=>C024, ; D=>C2A4,C=>C2A48ECA .ENDIF? .SYN S820="",DSR820=""7*$AN%*------------------------------------------------------------------------*N* A.*=P3128 JDS/BRR10/06/83STR #16558DX10.À 3.6.0DS934TSR$* AF!* PROBLEM: THE ATTACHED PRINTER ON A 931 SOMETIMES QUITS PRINTING!FD* DUE TO TIMING PROBLEM REGARDLESS OF FILE'S CHARACTERISTICS. D* A<* SOLUTION: SEND ONLY ONE ESC ) AS A TRAILER FOR THE TRAN<ÀSPARENT !@* PRINT COMMAND. WE WERE GETTING POSITIVE ACKNOWLEDGEMENT @<* WHEN WE DELAYED AFTER SENDING ONLY THE FIRST ESC ) "<* A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 7MPI PF=IMAGE,MT=OV,MN=À"@S93A,ADR=@DSR93A+>07F2+>1EFC,(" V=>0004, ; D=>0002,C=>00028ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>1EFC,(8€ V=>0004, ; D=>0002,C=>00028ECA .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>1EFC,(8 V=>0004, ; D=>0002,C=>00028@ECA .ENDIF? .SYN S93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*NH * *** PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH RELEASE 3.6 *H *-------------------------À4-----------------------------------------------*4N%*------------------------------------------------------------------------*N* A@*=P3281 CIW/BJF11/11/83STR #16509DX103.6.0 DSR820 $@* A* PROBLEM : DSR820 CR€,ASH WHILIE ATTEMPTS HALF DUPLEX SUPPORT #,* P3118 WAS INCOMPLETE 18* SOLUTION: COMPLETE SOURCE FIX. CORRECT OFFSET FOR(8* HALF DUPLEX FLAG 3* A Q$SYN ? #SYN S820,DSR820:.IF @DSR820,NE,"NONE" 7>02MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0478,+2 V=>0034, ; D=>0030,C=>00308ECA .ENDIF? .SYN S820="",DSR820=""7*$AN%*------------------------------------------------------------------------*N* A@@*=P3290 JDS/BRR11/16/83STR #17012DX10 3.6.0DS934TSR$@* AH"* PROBLEM: WHEN RUNNING A 3270 APPLICATION, THE 931 LETS YOU RIGHT H,* ARROW OVER NON-BLANK FILL CHARACTERS*,0* SOLUTION: CHECK THE RIGHT BIT (RIGHT ARROW 0ÀOUT OF A FIELD) #* A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>1704,(8 V=>C2E1, ; D=>0460, ; C=>0460<ECAMPI PF=IMAGE,MT=OV,MN=@SÀ 93A,ADR=@DSR93A+>07F2+>1706,( V=>0002, ; D=@DSR93A+>07F2+>20EA, 4 C=@DSR93A+>07F2+>20EA5ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20EA,(8" V=(>0000,>0000,>0000,>0000), 1" D=(>07A4,>002C,>C2E0,>0À 0AC), 1 C=>C5C4<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20F2,(8 V=>0000, ; D=>0460, ; C=>0460<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20F4,(8 V=>0000, ; D=@DSR9 €3A+>07F2+>1708, 4 C=@DSR93A+>07F2+>17085ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>1708,(8 V=>091B, ; D=>094B, ; C=>094B<ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B:@.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>1704,(8 V=>C2E1, ; D=>0460, ; C=>0460<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>1706,(8 V=>0002, ; D=@DSR93B+>09F0+>À 20EA, 4 C=@DSR93B+>09F0+>20EA5ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20EA,(8" V=(>0000,>0000,>0000,>0000), 1"" D=(>07A4,>002C,>C2E0,>00AC), 1" C=>C5C4<ECA"MPI PF=IMAGE,MT=OV,MN=@S93B,ADR="À @DSR93B+>09F0+>20F2,( V=>0000, ; D=>0460, ; C=>0460<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20F4,(8 V=>0000, ; D=@DSR93B+>09F0+>1708, 4 C=@DSR93B+>09F0+>17085ECA MPI PF=I À0MAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>1708,(0 V=>091B, ; D=>094B, ; C=>094B<ECA .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 7&MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR&À93C+>0BD8+>1704,( V=>C2E1, ; D=>0460, ; C=>0460<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>1706,(8 V=>0002, ; D=@DSR93C+>0BD8+>20EA, 4 C=@DSR93C+>0BD8+>20EA5ECAMPI PF=IMAGEÀ,,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20EA,(," V=(>0000,>0000,>0000,>0000), 1"" D=(>07A4,>002C,>C2E0,>00AC), 1" C=>C5C4<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20F2,(8 V=>0000, ; D=>0460, ; C€ =>0460< ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20F4,(8 V=>0000, ; D=@DSR93C+>0BD8+>1708, 4 C=@DSR93C+>0BD8+>17085ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>1708,(8 V=>091B, ;@ D=>094B, ; C=>094B<ECA .ENDIF? .SYN S93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*N* A<*=P3291 JDS/BRR02/15/84STR #17017DX10 3.6.0DS934T<ÀSR$* AL$* PROBLEM: THE 9902 HAS TO USE A TIMER TO INTERROGATE DCD STATE CHANGE.LB* GARBAGE WILL BE DISPLAYED ON THE SCREEN DURING POWER UP ORB<* WHEN THE TERMINAL IS RETURNED ON LINE ESPECIALLY ON "<* A /12 WITHÀ A CI402. 2H"* SOLUTION: FOR THE 9902 (LOCAL ONLY) LOOK AT DCD ONLY ON POWER UP H4* (NOTE: THIS PATCH MAY MODIFY PATCH #3102) )4 Q$SYN ? #SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 7 MPI PF=IMAGE,MT=OV,MN=@S93B,AD €R=@DSR93B+>09F0+>0DF0,(6* V=>1004, THIS PATCH MAY MODIFY PATCH #3102)6 D=>1017,C=>10178ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0E1E,(8 V=(>04CA,>D2AB,>0000,>028A),2 D=(>100C,>07A4,>002C,>D2E0),2 @C=>C564 <ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0E26,(8 V=(>1500,>1621,>04CA,>C2AB),2 D=(>0098,>15E8,>13E7,>06A0),2 C=>0037 <ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0E2E,(8 V=>À 0004, ; D=@DSR93B+>0304, 7 C=@DSR93B+>03048D *EC ----- ERROR EXPECTED -- P3291 MODIFIED BY PATCH P3457 ----- "D8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0E30,(8 V=>D2DA, ; D=@DSR93B+>09F0+>0DFA, 4 CÀ =@DSR93B+>09F0+>0DFA5ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0E32,(8V=>028B,<D=>10E1,<C=>10E1 <ECA>MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>219A+>0072,%> V=>180B, ; D=>18EC À,C=>18EC8ECA>MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>219A+>0088,%> V=>13E6, ; D=>0460,C=>04608ECA>MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=€%€%@DSR93B+>09F0+>219A+>008A,%> V=>0460, ; D=@DSR93B+>09F0+>20ÀBE, 4 C=@DSR93B+>09F0+>20BE5ECA>MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>219A+>0096,%> V=>13F9, ; D=>130E,C=>130E8ECA>MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>219A+>00CA,%> V=@DSR93B+>À 09F0+>219A+>016E, 1 D=@DSR93B+>09F0+>20DE, 4 C=@DSR93B+>09F0+>20DE5ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20BE,(8V=(>0000,>0000),8D=(>1607,>06A0),8C=>10A7 <ECAMPI PF=IMAGE,MT=À(OV,MN=@S93B,ADR=@DSR93B+>09F0+>20C2,(( V=>0000, ; D=@DSR93B+>055A, 7 C=@DSR93B+>055A8ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20C4,(8 V=>0000, ; D=@DSR93B+>09F0+>20D2, 4 C=@DSR93B+>09F0€ +>20D25 ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20C6,(8 V=>0000, ; D=@DSR93B+>09F0+>20CE, 4 C=@DSR93B+>09F0+>20CE5ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20C8,(8 V=>0000, ;@ D=@DSR93B+>09F0+>20D2, 4 C=@DSR93B+>09F0+>20D25ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20CA,(8 V=>0000, ; D=>0460,C=>04608ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20CC,(8 V=>À 0000, ; " D=@DSR93B+>09F0+>219A+>0056, 1" C=@DSR93B+>09F0+>219A+>00562 ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20CE,(8 V=(>0000,>0000,>0000,>0000),2 D=(>04C0,>1002,>0200,>0001),2 C=>16C3 <ECÀA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20D6,(8 V=>0000, ; D=>06A0,C=>06A08ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20D8,(8 V=>0000, ; D=@DSR93B+>03B0, 7 C=@DSR93B+>03B08ECÀA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20DA,(8 V=>0000, ; D=>0460,C=>04608ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20DC,(8 V=>0000, ;" D=@DSR93B+>09F0+>219A+>016E, 1" C=@DSR93B+>09€F0+>219A+>016E2ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20DE,(8V=>0000,<D=>06A0,<C=>06A0 <ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20E0,(8 V=>0000, ; D=@DSR93B+>055A, 7@ C=@DSR93B+>055A8ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20E2,(8 V=>0000, ;" D=@DSR93B+>09F0+>219A+>0056, 1" C=@DSR93B+>09F0+>219A+>00562 ECA6MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20E4,6À( V=>0000, ; D=@DSR93B+>09F0+>20CE, 4 C=@DSR93B+>09F0+>20CE5ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20E6,(8 V=>0000, ; D=@DSR93B+>09F0+>20D2, 4 C=@DSR93B+>09F0+>20D25ECAMPÀ6I PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20E8,(6 V=>0000, ; D=>10F0,C=>10F08ECA .ENDIF? .SYN S93B="",DSR93B=""7*$AN%*------------------------------------------------------------------------*N* €A@*=P3401 BRR/JDS01/25/84STR #17341DX10 3.6.0DS934TSR$@* AD * PROBLEM: THE 940/BST ATTACHED PRINTER PRINTS COBOL FILES VERY"D* SLOWLY! 8H"* SOLUTION: ADJUST THE AMOUNT OF CHARACTERS USED IN CALCULATING THE HJ@B* DELAY FACTOR BY SUBTRACTING CONTROL AND BLANK CHARACTERS B<* AT EITHER END OF THE RECORD FROM THE REORD LENGTH. "<* A Q$SYN ? #SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 7&MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR&À93B+>09F0+>0150,( V=>07A7, ; D=>0460,C=>04608ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0152,(8V=>002C,<D=@DSR93B+>09F0+>20F6,5C=@DSR93B+>09F0+>20F6 5ECA MPI PF=IMAGE,MT=OV,MN=@S93À B,ADR=@DSR93B+>09F0+>20F6,( V=(>0000,>0000,>0000,>0000),2 D=(>C161,>0004,>C221,>0008),2 C=>034C <ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>20FE,(8 V=(>0000,>0000,>0000), 4 D=(>C288,>0608,>A148), À4 C=>65C8<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2104,(8 V=(>0000,>0000), 7 D=(>D255,>9809), 7 C=>4A5C<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2108,(8 V=>0000, ;À D=@DSR93B+>09F0+>2082, 4 C=@DSR93B+>09F0+>20825ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>210A,(8 V=(>0000,>0000,>0000,>0000),2 D=(>1B06,>060A,>0605,>0608),2 C=>1D01 <ECA MPI PF=IMAGE,MT=OVÀ&,MN=@S93B,ADR=@DSR93B+>09F0+>2112,(&" V=(>0000,>0000,>0000,>0000), 1"" D=(>15F8,>13F7,>1009,>6148), 1" C=>774E<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>211A,(8 V=(>0000,>0000), 7 D=(>D275,>9809), À7 C=>4A7C<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>211E,(8 V=>0000, ; D=@DSR93B+>09F0+>2082, 4 C=@DSR93B+>09F0+>20825ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2120,(8V=(>00À00,>0000,>0000),5D=(>1B06,>060A,>0608),5C=>1B04 <ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2126,(8 V=(>0000,>0000,>0000), 4 D=(>15F9,>13F8,>0460), 4 C=>0261<ECA MPI PF=IMAGE,MT=OVÀ&,MN=@S93B,ADR=@DSR93B+>09F0+>212C,(& V=>0000, ; D=@DSR93B+>09F0+>0180, 4 C=@DSR93B+>09F0+>01805ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>212E,(8" V=(>0000,>0000,>0000,>0000), 1" D=(>07A7,>002C,>DÀ160,>0096), 1 C=>D67D<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2136,(8 V=>0000, ; D=>0460,C=>04608ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2138,(8 V=>0000, ; D=@DSR93B+>À09F0+>0158, 4 C=@DSR93B+>09F0+>01585ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0174,(8 V=(>04CA,>C2E1,>0008), 4 D=(>C2CA,>04CA,>1000), 4 C=>D600<ECA(MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93(ÀB+>09F0+>2074,(V=>0000,<D=>0400,C=>0400 8ECA .ENDIF? .SYN S93B="",DSR93B=""7*$AN%*------------------------------------------------------------------------*N**=P3441 BRR/JDS02/08/84STR #17341*ÀDX10 3.6.0DS934TSR$* AD * PROBLEM: THE 940/BST ATTACHED PRINTER PRINTS COBOL FILES VERY"D* SLOWLY! 8H"* SOLUTION: ADJUST THE AMOUNT OF CHARACTERS USED IN CALCULATING THE H,* DELAY FACTOR BY SUBTRACTING CONTROL A,À ND BLANK CHARACTERS <* AT EITHER END OF THE RECORD FROM THE REORD LENGTH. "<* A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>0150,(8 V=>07A7, ;À D=>0460,C=>04608ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>0152,(8V=>002C,<D=@DSR93A+>07F2+>20F6,5C=@DSR93A+>07F2+>20F6 5ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20F6,(8 V=(>0000 À ,>0000,>0000,>0000),2 D=(>C161,>0004,>C221,>0008),2 C=>034C <ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>20FE,(8 V=(>0000,>0000,>0000), 4 D=(>C288,>0608,>A148), 4 C=>65C8<ECA MPI PF=I À0MAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2104,(0 V=(>0000,>0000), 7 D=(>D255,>9809), 7 C=>4A5C<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2108,(8 V=>0000, ; D=@DSR93A+>07F2+>2082, 4 C=@DSR9 €3A+>07F2+>20825ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>210A,(8 V=(>0000,>0000,>0000,>0000),2 D=(>1B06,>060A,>0605,>0608),2 C=>1D01 <ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2112,(8+><@" V=(>0000,>0000,>0000,>0000), 1"" D=(>15F8,>13F7,>1009,>6148), 1" C=>774E<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>211A,(8 V=(>0000,>0000), 7 D=(>D275,>9809), 7 C=>4A7C<ECA MPI PF=I À0MAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>211E,(0 V=>0000, ; D=@DSR93A+>07F2+>2082, 4 C=@DSR93A+>07F2+>20825ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2120,(8V=(>0000,>0000,>0000),5D=(>1B06,>060A,>€ 0608),5 C=>1B04 <ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2126,(8 V=(>0000,>0000,>0000), 4 D=(>15F9,>13F8,>0460), 4 C=>0261<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>212C,(8F < V=>0000, ; D=@DSR93A+>07F2+>0180, 4 C=@DSR93A+>07F2+>01805ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>212E,(8" V=(>0000,>0000,>0000,>0000), 1"" D=(>07A7,>002C,>D160,>0096), 1" C=>D67D<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2136,(8 V=>0000, ; D=>0460,C=>04608ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2138,(8 V=>0000, ; D=@DSR93A+>07F2+>0158, 4 C=@DSR93A+>07F2+>01585@ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>0174,(8 V=(>04CA,>C2E1,>0008), 4 D=(>C2CA,>04CA,>1000), 4 C=>D600<ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2074,(8V=>0000,<€%€%D=>0400,C=>0À400 8ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>0150,(8 V=>07A7, ; D=>0460,C=>04608ECAMPI PF=IMAGE,MT=À(OV,MN=@S93C,ADR=@DSR93C+>0BD8+>0152,((V=>002C,<D=@DSR93C+>0BD8+>20F6,5C=@DSR93C+>0BD8+>20F6 5ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20F6,(8 V=(>0000,>0000,>0000,>0000),2 D=(>C161,>0004,>C221,>€ 0008),2 C=>034C <ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>20FE,(8 V=(>0000,>0000,>0000), 4 D=(>C288,>0608,>A148), 4 C=>65C8<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2104,(8GE<@ V=(>0000,>0000), 7 D=(>D255,>9809), 7 C=>4A5C<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2108,(8 V=>0000, ; D=@DSR93C+>0BD8+>2082, 4 C=@DSR93C+>0BD8+>20825ECA MPI PF=IMAGE,MT=OV,MÀ$N=@S93C,ADR=@DSR93C+>0BD8+>210A,($ V=(>0000,>0000,>0000,>0000),2 D=(>1B06,>060A,>0605,>0608),2 C=>1D01 <ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2112,(8" V=(>0000,>0000,>0000,>0000), 1" D=(>15F8,>1€ 3F7,>1009,>6148), 1 C=>774E<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>211A,(8 V=(>0000,>0000), 7 D=(>D275,>9809), 7 C=>4A7C<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>211E,(8 <@ V=>0000, ; D=@DSR93C+>0BD8+>2082, 4 C=@DSR93C+>0BD8+>20825ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2120,(8V=(>0000,>0000,>0000),5D=(>1B06,>060A,>0608),5C=>1B04 <ECAMPI PF=IMAGEÀ,,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2126,(, V=(>0000,>0000,>0000), 4 D=(>15F9,>13F8,>0460), 4 C=>0261<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>212C,(8 V=>0000, ; D=@DSR93C+>0BD8+>0180, 4À C=@DSR93C+>0BD8+>01805ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>212E,(8" V=(>0000,>0000,>0000,>0000), 1"" D=(>07A7,>002C,>D160,>0096), 1" C=>D67D<ECA0MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+0À >2136,( V=>0000, ; D=>0460,C=>04608ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2138,(8 V=>0000, ; D=@DSR93C+>0BD8+>0158, 4 C=@DSR93C+>0BD8+>01585ECA"MPI PF=IMAGE,MT=OV,MN=@S93C,ADR="À @DSR93C+>0BD8+>0174,( V=(>04CA,>C2E1,>0008), 4 D=(>C2CA,>04CA,>1000), 4 C=>D600<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2074,(8V=>0000,<D=>0400,C=>0400 8ECA .ENDIF? .SYN SÀ93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*N* A@*=P3442 JDS/BRR02/07/84STR #17456DX10 3.6.0DS934TSR$@* A.* PROBLEM: CHARACTER COUNT OF 0 TO THE ATTA.ÀCHED PRINTER DOES NOT !2* RELEASE THE CHANNEL SO THE PRINTER IS HUNG'2@* SOLUTION: RELEASE THE CHANNEL IF THE CHARACTER COUNT IS 0$@* A Q$SYN ? #SYN S93A,DSR93A:.IF @DSR93A,NE,"NONE" 7 MPI PF=IMAGE,MT=OVÀ&,MN=@S93A,ADR=@DSR93A+>07F2+>008A,(& V=@DSR93A+>07F2+>00B6, 4 D=@DSR93A+>07F2+>213A, 4 C=@DSR93A+>07F2+>213A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>008C,(8 V=@DSR93A+>07F2+>00B6, 4 D=@DSR93AÀ+>07F2+>213A, 4 C=@DSR93A+>07F2+>213A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>213A,(8" V=(>0000,>0000,>0000,>0000), 1"" D=(>C221,>0008,>1302,>0460), 1" C=>D54B<ECAMPI PF=IMAGE,MT=OV,MN=@SÀ 93A,ADR=@DSR93A+>07F2+>2142,( V=>0000, ; D=@DSR93A+>07F2+>00BC, 4 C=@DSR93A+>07F2+>00BC5ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2144,(8 V=>0000, ; D=>0460, ; C=>0460<ECAÀ8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>2146,(8 V=>0000, ; D=@DSR93A+>07F2+>01C6, 4 C=@DSR93A+>07F2+>01C65ECA8MPI PF=IMAGE,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>01D4,(8 V=>10E8, ; D=>10AF, ; CÀ=>10AF, ;ECA .ENDIF? .SYN S93A="",DSR93A=""7#SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>008A,(8 V=@DSR93B+>09F0+>00B6, 4 D=@DSR93B+>09F0+>213A, 4À C=@DSR93B+>09F0+>213A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>008C,(8 V=@DSR93B+>09F0+>00B6, 4 D=@DSR93B+>09F0+>213A, 4 C=@DSR93B+>09F0+>213A5ECA.MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F.À0+>213A,(" V=(>0000,>0000,>0000,>0000), 1"" D=(>C221,>0008,>1302,>0460), 1" C=>D54B<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2142,(8 V=>0000, ; D=@DSR93B+>09F0+>00BC, 4 C=@DSR93B+>09F0+>00€BC5ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2144,(8 V=>0000, ; D=>0460, ; C=>0460<ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>2146,(8 V=>0000, ; D=@DSR93B+>09F0+>01C6, 4@ C=@DSR93B+>09F0+>01C65ECA8MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>01D4,(8 V=>10E8, ; D=>10AF, ; C=>10AF, ;ECA .ENDIF? .SYN S93B="",DSR93B=""7#SYN S93C,DSR93C:.IF @DSR93C,NE,"À NONE" 7 8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>008A,(8 V=@DSR93C+>0BD8+>00B6, 4 D=@DSR93C+>0BD8+>213A, 4 C=@DSR93C+>0BD8+>213A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>008C,(8 V=@DSR93CÀ+>0BD8+>00B6, 4 D=@DSR93C+>0BD8+>213A, 4 C=@DSR93C+>0BD8+>213A5ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>213A,(8" V=(>0000,>0000,>0000,>0000), 1"" D=(>C221,>0008,>1302,>0460), 1" C=>D54B<EC€A8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2142,(8 V=>0000, ; D=@DSR93C+>0BD8+>00BC, 4 C=@DSR93C+>0BD8+>00BC5ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2144,(8 V=>0000, ; D=>0460, ; C=>0460<ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>2146,(8 V=>0000, ; D=@DSR93C+>0BD8+>01C6, 4 C=@DSR93C+>0BD8+>01C65ECA8MPI PF=IMAGE,MT=OV,MN=@S93C,ADR=@DSR93C+>0BD8+>01D4,(8 V=>10E8, ;@ D=>10AF, ; C=>10AF, ;ECA .ENDIF? .SYN S93C="",DSR93C=""7*$AN%*------------------------------------------------------------------------*N* A:*=P3457 JDS/BRR02/15/84STR #17477DX10 3.6.0DS93:€4TSR$* AB* PROBLEM: REMOTE TERMINALS ON 9902S WILL NOT CONNECT IF THEY#B * ARE GENNED AS SWITCHED. 0 D * SOLUTION: FIX PATCH #3291 TO CALL THE CORRECT HSR ROUTINE TO "D.* ENABLE DCD STATE CHANGE NOTIFICATION )., 2@ Q$SYN ? #SYN S93B,DSR93B:.IF @DSR93B,NE,"NONE" 78MPI PF=IMAGE,MT=OV,MN=@S93B,ADR=@DSR93B+>09F0+>0E2E,(8 V=@DSR93B+>0304, 7 D=@DSR93B+>02E6, 7 C=@DSR93B+>02E68ECA .ENDIF? .SYN S93B="",DSR93B=À""7*$AN%*------------------------------------------------------------------------*N* A@*=P3481 BJF/CW 02/15/84STR #17426DX103.6.0 SVCCLN $@* A<* PROBLEM : SYSTEM HANGS WITH TASK ON ACTIVE QUEUE TWICE <À%<* SOLUTION: SVCCLN WILL PUT A TASK ON THE ACTIVE QUEUE &<** REGARDLESS OF ITS CURRENT STATE. +*0* SVCCLN SHOULD NOT Q TASKS IN STATE >17.(04* TM$DGN WILL DO THIS WHEN CHILD TERMINATES. &4* THIS PATCH MODIFIESÀ PATCH 3107 ,* A Q$SYN ? #SYN SIO,SVCIO;:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0040+>000A, ':: V=@S$$PAT+>0040+>000C,D=@S$$PAT+>0060,C=@S$$PAT+>0060%:ECA2MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0060, 2€* V=(>DEAD,>DEAD), 7 D=(>9828,>0009),C=>98214ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0060+>0004, ':( V=>DEAD,D=@ROOT+>028B,C=@ROOT+>028B.(ECA:MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0060+>0006, ':<@ V=(>DEAD,>DEAD), 7 D=(>16F2,>10F5),C=>06074ECA .SYN SIO="",SVCIO=""8*$AN%*------------------------------------------------------------------------*N>* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH RELEASE >€3.7 *N%*------------------------------------------------------------------------*NN%*------------------------------------------------------------------------*N .SYN BOOT="IS NOT"9.IF @$E$C ,EQ, 0:#SYN SROOT,ROOT : .EVAL S$$PAT="@ROOT+>0000"5.SYN BOOT="IS";J#MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240,V=>2D31,D=>2030,C=>2030J*EC @ .ENDIF? N%*------------------------------------------------------------------------ N* A8CM R=ME,M="@$E$C ERRORS ON DX10 MEMRES PATCH STREAM"(8&CM R=ME,M="SYSTEM @BOOT BOOTABLE" 1&$.SYN SROOT="",ROOT="",S$$PAT="" 2$.SYN BOOT=""<* AN%*------------------------------------------------------------------------ N@* AJ* *** DELET€%€%E SYNONYMS THAT ARE UNIQUE TO THIS BATCH STREAM *** J* A Q$SYN ? .SYN IMAGE="" ;N%*------------------------------------------------------------------------ NSDT @EBATCH,LS=Y <€N%*------------------------------------------------------------------------ N8* THE NEXT AVAILABLE PATCH LOCATION IS S$$PAT+>0060 (8N%*------------------------------------------------------------------------ N+>2082, 4 C=@DSR9 ÿÿEOD †"DXCOMOBJD ††žøÀˆÛBÀˆÛ9†DPT3780 P «B…Àl×ÀˆÛ?@J#*--------------------------------------------------------------------*JH* *** PATCH FILEDX10 3.6.0DPT3780 4.2.0 LAST UPDATE 02/08/84*HJ#*--------------------------------------------------------------------*J* '* INSTÀ8ALLATION PATHNAMES: DXCOMOBJ.DXCMO.D3780.P.DPT3780 8(* .S$SYSGEN.DXCMO.D3780.P.DPT3780 (* '@* ABSTRACT: THIS PATCH FILE PATCHES THE COMMUNICATIONS DSR @4* ASSOCIATED WITH THE 3780 EMULATOR. COMMON 4* MODULÀ*ES IN THE PARTIAL LINK "DSR3780", ARE *2* PATCHED BY "DPTCMON". PROTOCOL DEPENDENT 2** MODULES ARE PATCHED BY "DPT3780".** '* INSTRUCTIONS: :* THIS PATCH FILE MUST BE APPLIED USING THE CURRENT:* 'À4PCS' PROC (PATCH COMMUNICATIONS SYSTEM) LOCATED 4B* ON THE COMMON COMMUNICATIONS DSR PARTS DIRECTORY, DXCMO. BF* THIS DIRECTORY IS LOCATED ON THE DX10 SYSTEM GENERATION PARTSF* DIRECTORY, .S$SYSGEN.* '* €: USE OF THE 'PCS' PROC IS DESCRIBED IN THE DX10 COMMON ::* COMMUNICATIONS DSR OBJECT INSTALLATION DOCUMENT. :* '<* ALL EMULATOR DSRS MUST BE GENERATED AND THE SYSTEM <2* "ALGS" PERFORMED BEFORE PATCHING BEGINS. 24@* 'B* THE FOLLOWING SYNONYMS ARE USED BY THIS PATCH STREAM AND ARE B$* ASSIGNED BY THE "PCS" PROCESS:$* '4* $$DSC$ VOLUME NAME OF SYSTEM TARGET DISK 4"* $CLST LISTING DIRECTORY "* $E$PCS PCS ERROR ÀCOUNTER $* $PROT PROTOCOL NAME (3780)$.* DSRDSR OVERLAY ID OF PROTOCOL'S DSR.2* DSRCMONDSR LOAD POINT OF PROTOCOL'S DSR2* 'H"* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS. H*-ÀH"-------------------------------------------------------------------*HBATCH LS=YES"J#*--------------------------------------------------------------------*J* *** SYNONYM ASSIGNMENT,*-----------------------------------------,À ---------------------------* >*REQUIRED: CLEAR SECRET SYNONYMS, SET ERROR COUNT TO ZERO > Q$SYN % .SYN $E$C="0" $*REQUIRED: SET PROGRAM FILE SYN.$$.SYN IMAGE="@$$DSC$.S$IMAGES" $*---------------------------€.-----------------------------------------*.&* *** SYSTEM LINK DEFINED SYNONYMS&J#*--------------------------------------------------------------------*J#SYN SROOT,ROOT #SYN SFILMG,FILMG,KIF #SYN DSR,DSR3780@.SYN DSRCMON="@DSR3780" J#*--------------------------------------------------------------------*J(* *** PARTIAL LINK DEFINED SYNONYMS (J#*--------------------------------------------------------------------*J#SYN C,LCBSCÀR #SYN C,CDBSCR #SYN C,MSBSCR #SYN C,DSRPAT #SYN FISR,FC3ISR#SYN BISR,BCMISR .SYN C="",FISR="",BISR="" J#*--------------------------------------------------------------------*J€* *** SPECIAL PROCESSINGJ#*--------------------------------------------------------------------*J<* CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000.<:* THIS CAUSES SEVERAL PROBLE,S IM DISK RESIDENT SYSTEM :* TASKS.$@J#*--------------------------------------------------------------------*J .IF @FILMG,GT,>C000*CM R=ME, M="PATCH STREAM FATAL ERROR" **CM R=ME, M="SYSTEM ROOT EXCEEDS >C000"*,CM R=ME, M="CURRENT ROOT SIZE = @FILMG" ,CMÀ" R=ME, M="PATCHING TERMINATED""EC' .STOP % .ENDIF% J#*--------------------------------------------------------------------*J>* CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800.>* THIS CAUSES SEVERAL PROBLEÀ$MS IN EXECUTION AS ANY REFERENCE $>* IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS INSTEAD>* OF MEMORY."J#*--------------------------------------------------------------------*J .IF @SROOT,EQ,>100 CM R=ME, M="PATCH À STREAM FATAL ERROR" 4CM R=ME, M="LONGEST OVERLAY PATH EXCEEDS >F800" 4$CM R=ME, M="PATCHING TERMINATED"$EC' .STOP % .ENDIF% J#*--------------------------------------------------------------------*J * *** CA À$LCULATED USING DSR3780'S OFFSET $J#*--------------------------------------------------------------------*J.IF @CDBSCR, NE, "NONE" $.EVAL CDBSCR="@DSR3780+@CDBSCR"$ .ENDIF% .IF @LCBSCR, NE, "NONE" .EVAL LCBSC€ R="@DSR3780+@LCBSCR"$.EVAL MSBSCR="@DSR3780+@MSBSCR"$$.EVAL D$$PAT="@DSR3780+@DSRPAT"$ .ENDIF% J#*--------------------------------------------------------------------*J.* *** BEGIN PATCHES FOR DX10 DPT3780 4.2.0. C2@J#*--------------------------------------------------------------------*JJ#*--------------------------------------------------------------------*J(* *** PLACE PATCHES BEFORE THIS LINE(2*-----------------------------------------------2À---------------------*&* *** PASS ERROR COUNT BACK TO PCS&J#*--------------------------------------------------------------------*J.IF @$E$C,NE,"0" .EVAL $E$PCS="@$E$PCS+1" .ENDIF% *-------------------------À0-------------------------------------------*06* *** DELETE SYNONYMS UNIQUE TO THIS BATCH STREAM 6J#*--------------------------------------------------------------------*J2.SYN CDBSCR="",LCBSCR="",MSBSCR="",BCMISR="", 2 C$$PAÀ&T="",D$$PAT="",DSRPAT="",FC3ISR=""&4*.SYN SROOT="",ROOT="",SFILMG="",FILMG="",KIF=""4J#*--------------------------------------------------------------------*J6* *** SET UP SYNONYMS FOR COMMON "DPTCMON" PATCHES6*-------------À<-------------------------------------------------------*< .SYN $PROT="3780" (.SYN DCMON="@DSR",DSRCMON="@DSR3780"(* '>CM R=ME,M="@$E$C ERRORS IN PATCH STREAM @$CLST.DPT3780" >EBATCH LS=YES !*---------------À:-----------------------------------------------------*:<* NEXT AVAILABLE COMMCOM PATCH LOCATION IS C$$PAT+>0000<<* NEXT AVAILABLE DSR3780 PATCH LOCATION IS D$$PAT+>0000<<*---------------------------------------------------------<€-----------*,MT=OV,MN=@S93A,ADR=@DSR93A+>07F2+>02 POWER UP ORB<* WHEN THE TERMINAL IS RETURNED ON LINE ESs• ¢´ Øu|žÎiÖ™À BOOT="IS";J#MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240,V=>2D31,D=>2030,C=>2030ÿÿ†PPR3780 Pžû(øÀl×ÀˆÛA@J#*--------------------------------------------------------------------*JH* *** PATCH FILE DX10 3.6.0 PPR3780 4.2.0 LAST UPDATE 02/08/84*HJ#*--------------------------------------------------------------------*J* '* INSTÀ8 ALLATION PATHNAME: DXCOMOBJ.DXCMO.D3780.P.PPR3780 8* ':* ABSTRACT: THIS PATCH FILE PATCHES THE DX 2780/3780 :2* BUILD PROCESS PROCEDURES BEFORE THE BUILD 2* PROCESS BEGINS.$* THE DISK PATCHED IS THE OBJEC$€ T INSTALLATION DISK. 0* $CVN REPRESENTS THE DISK TO BE PATCHED.0* '* INSTRUCTIONS: @* THIS PATCH FILE IS APPLIED USING THE "ICC" PROC, WHICH @@* IS INVOKED DURING THE INITIAL PHASE OF A DX10 3780/2780 @ 'D@* TASK BUILD.* 'H"* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS. HJ#*--------------------------------------------------------------------*JBATCH LS=YES"**---------------------------------------*€"-----------------------------*"* *** SYNONYM ASSIGNMENTJ#*--------------------------------------------------------------------*J>*REQUIRED: CLEAR SECRET SYNONYMS & SET ERROR COUNT TO ZERO> Q$SYN % .SYN $E$C="0" @&** 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$J#*--------------------------------------------------------------------*J* À,*** BEGIN PATCHES FOR DX10 PPR3780 4.2.0,J#*--------------------------------------------------------------------*JJ#*--------------------------------------------------------------------*J(* *** PLACE PATCHES BEFORE THIS LINE(€J#*--------------------------------------------------------------------*J<CMR=ME,M="@$E$C ERRORS IN PATCH STREAM @$CVN.PPR3780" <EBATCH LS=YES !J#*-------------€%€%-------------------------------------------------------*J*-ÿÿ†DXTP3780P µdP_àÀl×9ÀˆÛ;@J#*--------------------------------------------------------------------*JJ* ***PATCH FILE DX10 3.6.0 3780/2780 4.2.0 LAST UPDATE 02/21/84*JJ#*--------------------------------------------------------------------*J* '* INÀ2 STALLATION PATHNAME: DXCOMOBJ.PATCH.DXTP37802* '* ABSTRACT: "D* THESE ARE THE PATCHES FOR THE 3780/2780 EMULATOR TASKS. THEDB* TASK LINKMAP(S) (TASK3780/TASK2780) AND THE COMM PROGRAM B* FILE (.S$COMMPF) À.ARE CHECKED TO BE SURE THEY ARE AVAILABLE..F* THE LINKMAP(S) ARE ASSUMED TO RESIDE ON THE LISTING DIRECTORYFB* DESCRIBED WHEN BUILDING THE TASK(S) USING THE PROC 'BET' B * (BUILD EMULATOR TASKS). * ' * INSTRU €CTIONS: >* THIS PATCH FILE IS APPLIED AT TASK INSTALLATION OR BY >@* USING THE 'PT3780' PROC (PATCH 3780/2780 COMMUNICATIONS @B* TASKS) LOCATED ON THE EMULATOR OBJECT INSTALLATION DISK, B* DXCOMOBJ. * 'F* USE OF THE 'PT3780' PROC IS DESCRIBED IN THE 'DX10 3780/2780 FF* EMULATOR OBJECT INSTALLATION DOCUMENT' (PART NUMBER 2250918- F* 9701). !* 'D * THE FOLLOWING SYNONYMS ARE USED BY THIS PATCH STREAM AND ARE D--H@F!* ASSIGNED BY THE INSTALLATION PROCEDURE OR THE "PT3780" PROCESS:F* 'D* $PROT- THE SYNONYM ASSIGNED TO THE EMULATOR TO BE PATCHEDD0* $$DSC$ - THE TARGET DISK TO BE PATCHED 0** $CLST- LISTING DIRECTORY CONTAINI*ÀNG TASK LINKMAP * 'H"* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS. HJ#*--------------------------------------------------------------------*JBATCH LS=YES"**---------------------------------------*À"-----------------------------*"(* *** SPECIAL PROCESSING *** *(J#*--------------------------------------------------------------------*J.* ---------------------------------------.(* INSURE 3780/2780 TASK LINK MAP IS T(€HERE.* ---------------------------------------.*.SVC DATA=(0,09900,0,0,0,0,0,0,0,0,0, *("@$CLST.MAP.TASK@$PROT",0,0,0,0,0,0)(.IF @$$CC,NE,0!LCM"R=ME,M="@$PROT TASK LINKMAP (@$CLST.MAP.TASK@$PROT) DOES NOT EXIST."L@ .STOP % .ENDIF% &* -------------------------------&&* INSURE COMM PROGRAM FILE EXISTS&&* -------------------------------&*.SVC DATA=(0,09900,0,0,0,0,0,0,0,0,0, *$"@$$DSC$.S$COMMPF",0,0,0,0,0,0) $ .IF @$$C À C,NE,0! FCMR=ME,M="COMM PROGRAM FILE (@$$DSC$.S$COMMPF) DOES NOT EXIST." F .STOP % .ENDIF% J#*--------------------------------------------------------------------*J* *** SYNONYM ASSIGNMENT*---------------------À4-----------------------------------------------*4>*REQUIRED: CLEAR SECRET SYNONYMS, SET ERROR COUNT TO ZERO > Q$SYN % .SYN $E$C="0" $*REQUIRED: SET PROGRAM FILE SYN $".SYN PFIL=@@$$DSC$.S$COMMPF "*---------€@-----------------------------------------------------------*@ * *** LINK DEFINED SYNONYMS J#*--------------------------------------------------------------------*J#SYN CF2,DXCF2 #SYN CF3,DXCF3 #SYN DB,DBASE #SYN LCON,DNLCON#SYN INI3,OI3780#SYN INI2,OI2780#SYN MGR,CCMGR #SYN EMU3,EM3780#SYN EMU2,EM2780#SYN CI3,CI3780 #SYN CI2,CI2780 #SYN SB,DXSB!#SYN MSG,CCMSG @#SYN RCV,DXRCVQ #SYN SBW,CCSBW #SYN OPIS,DNOPIS#SYN OPIF,DNOPIF#SYN OA3,OA3780 #SYN OA2,OA2780 #SYN OP2,OP2780 #SYN OP3,OP3780 #SYN OF2,OF2780 #SYN OF3,OF378À0 ,.SYN DB="",CF2="",CF3="",INT="",MGR="",0.SYN EMU3="",EMU2="",CI3="",OP3="",OP2="" 06.SYN SB="",MSG="",RCV="",SBW="",OPIS="",OPIF="" 60.SYN OA2="",OA3="",CI2="",INI2="",INI3="" 0.SYN OF2="",OF3="",LCON=""À0.SYN DNINIT=@OI@$PROT,OI2780="",OI3780="" 04.SYN DXCFIL=@OF@$PROT+>0102, CCPAT8=@OF@$PROT 4 .SYN OF2780="", OF3780="" J#*--------------------------------------------------------------------*J * *** BEGIN PATCHES €FOR DX10 DXTP3780 4.2.0 J#*--------------------------------------------------------------------*JB*=P1664 SLF03/17/82STR #9238 DX1037804.2.0 EM3780B* ':* --------- OPTIONAL PATCH ------------------ :<* '>* THIS PATCH ALLOWS RECEPTION OF DX PRINT FILES (990 TO >8* 990) WITH TRANSPARENCY OFF AND RECEIVE VFC OFF. 8<* 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* '*.IF@$PROT,EQ,"3780"6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04EA", 6* V=02500,D=02600,C€ =02600 *EC &6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04FA", 6 * V=01500,D=01D00,C=01D00 *EC &6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+050A", 6 * V=0C00,D=01100,C=01100 *EC &*.ENDIF $@*$'J#*--------------------------------------------------------------------*JF*=P1665 MBC12/13/83STR #9125 DX103780 4.2.0 EM3780/2780F* '6* --------- OPTIONAL PATCH -- RE-LOCATED --6* ' * IF DI €D SCONNECT ON ERROR IS ENABLED, THE IDLE LINE ERROR WILL BE SEEN, DL* 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. #=@@* '*.IF @$PROT,EQ,"3780" 4*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+05E",4&* V=0D220,D=(0460,01EE),C=058E &*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=01EE, ,* V=0DEAD,D=06A0,C=06A0*EC &*MPIÀ& PF=PFIL,MT=PR,MN=P3780,ADR=01F0, &.* V=0DEAD,D="@DXSB+0574",C="@DXSB+0574".*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=01F2, ,* V=0DEAD,D=0208,C=0208*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=01F4, ,* €*V=0DEAD,D="@CCMSG+0EE",C="@CCMSG+0EE" **EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=01F6, ,* V=0DEAD,D=0420,C=0420*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=01F8, ,2* V=0DEAD,D="@DNOPIS+018E",C="@DNOPIS+018E"2@*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=01FA, , * V=0DEAD,D=0D220,C=0D220 *EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=01FC, ,.* V=0DEAD,D="@DXCF3+032",C="@DXCF3+032".*EC & *MPI PF=PFIL,MT=PR,MN=P3780, ÀADR=01FE, * V=0DEAD,D=0460,C=0460*EC &,*MPI PF=PFIL,MT=PR,MN=P3780,ADR=0200, ,0* V=0DEAD,D="@EM3780+062",C="@EM3780+062"0*EC &4*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+0B2",4* V=006A0,D=0€100F,C=0100F*EC &*.ENDIF $********$*.IF @$PROT,EQ,"2780" 4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+06C", 4* V=0D220,D=06A0,C=06A0 *EC &4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+06E", 46@4* V="@DXCF2+032",D="@DXSB+0574",C="@DXSB+0574"4*EC &4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+070", 4* V=01316,D=0208,C=0208 *EC &4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+072", 4* V=06A0,D="@CCMSG+0€ EE",C="@CCMSG+0EE"*EC &4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+074", 4$* V="@DXSB+0574",D=0420,C=0420$*EC &4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+076", 40* V=0208,D="@DNOPIS+018E",C="@DNOPIS+018E"0@*EC &4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+078", 4&* V="@CCMSG+0EE",D=0D220,C=0D220&*EC &4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+07A", 4,* V=0420,D="@DXCF2+032",C="@DXCF2+032",*EC &*MPIPF=PÀ*FIL,MT=PR,MN=P2780,ADR="@EM2780+07C", *(* V="@DNOPIS+018E",D=01311,C=01311(*EC &*.ENDIF $*$'J#*--------------------------------------------------------------------*J,*=P1666 SLF03/17/82STR #6169 DX10,À37804.2.0 EM3780* '<* ------------- OPTIONAL PATCH ----------------- <* '@* ENABLE THIS PATCH ONLY IF COMMUNICATING WITH A DTS CASH @* REGISTER * '&* USERS COMMUNICATING WITH A DTS &À(CASH REGISTER NEED TO RECOGNIZE THE (L* RS CHARACTER.THIS PATCH ADDS RS TO CHARACTER DETECT TABLE TXTTBL L(* AND DELETES DC3 TO ALLOW SPACE.(L* " THE CHECKSUMS HAVE BEEN DELETED FROM THIS PATCH TO ALLOW THIS PATCHLÀ:* TO APPLY IF PATCH #1664 HAS ALREADY BEEN APPLIED.:* '*.IF @$PROT,EQ,"3780" 6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04E2", 6** V=02700,D=(03500,"@EM3780+02C2") **EC & *MPI PF=PFIL,MT=PR,MN=P3780, À ADR="@EM3780+04E6", >* V=02600,D=(02700,"@EM3780+07C",02600,"@EM3780+02BC") >€%€%*EC &6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04EE", 6>* V=01F00,D=(02500,"@EM3780+02C2",01F00,"@EM3780+02C2") >*EC &*MPIÀ0 PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04F6", 0>* V=01D00,D=(01E00,"@EM3780+02C2",01D00,"@EM3780+01F0") >*EC &6*MPI PF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+04FE", 6** V=01300,D=(01500,"@EM3780+02C2") **EC &*.À ENDIF $ *$'J#*--------------------------------------------------------------------*J@*=P1667 SLF03/17/82STR #9234 DX1037804.2.0 TDDR@* '4* ----------OPTIONAL PATCH---------------- 4* '* À< 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 B0* COLUMN 1 OF EACH RECORD IN THE FOLLOWING PA0ÀTCH 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=PÀ FIL,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=03ÀA23 *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 &*$' *-------------------------À0-------------------------------------------*0@*=P1668 SLF03/17/82STR #9240 DX1037804.2.0 TUK @* '.* ----------OPTIONAL PATCH----------.* '<* THIS IS AN OPTIONAL PATCH TO UPDATE THE UNITED KINGDOM(<ÀENGLAND)@* 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 &*$'J#*--------------------------------------------------------------------*JB*=P1669 MBC08/12/82STR #9707 DX1037804.2.0 DBASE B* ' * DUE TO INCOMPATÀ8ABILITY ACROSS THE OS'S(DNOS AND DX10), THE COUNTRY 8F* CODE SCB'S ARE DIFFERENT.THIS PATCH CHANGES THE COUNTRY CODE F * SCB TO CONFORM TO DX10.* '6MPI PF=PFIL,MT=TA,MN=EM@$PROT,ADR="@DBASE+01F6", 6 V=>8580,D=>À0280,C=>0280EC'6MPI PF=PFIL,MT=TA,MN=EM@$PROT,ADR="@DBASE+01FA", 6 V=>00FE,D=>017C,C=>017CEC'*$'J#*--------------------------------------------------------------------*J *=P1670 SLF03/17/82STR #1 À$1039DX1037804.2.0 EM3780$* '.* ----------OPTIONAL PATCH----------.* 'F!* IF COMMAND SOURCE IS AN ITC CHANNEL, EMULATOR DOES A ONE SECOND FB* DELAY BETWEEN MESSAGES LOGGED.THIS PATCH CAUSES THE EMULATORBÀ TO D * DO A TENTH OF A SECOND DELAY INSTEAD OF ONE SECOND, DECREASINGD* REQUIRED CONNECT TIME.* '2*MPIPF=PFIL,MT=PR,MN=P3780,ADR="@CCMGR+02A",2 * V=>1305,D=>1308,C=>1308 *EC &*$'*---------À@-----------------------------------------------------------*@F*=P1671 MBC03/17/82STR #11133DX103780 4.2.0 EM3780/2780F* ':* ------------- OPTIONAL PATCH ------------------ :* '* THIS IA AN OPTIONAL PAÀ2TCH TO TREAT THE RECEIPT OF THE RVI CHARACTER 2J* AS AN ERROR.TRANSMISSION IS TERMINATED AND AN ERROR 55 IS LOGGED. J* '*.IF@$PROT,EQ,"3780"4*MPIPF=PFIL,MT=PR,MN=P3780,ADR="@EM3780+065A",4* V=>1302,D=>1000,ÀC=>1000 *EC &*.ENDIF $*.IF @$PROT,EQ,"2780" 4*MPIPF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+0624",4 * VD=016F8,D=010F8,C=010F8 *EC &*.ENDIF $*$'.*-------------------------------------------.€ -------------------------*B* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH DX10 3780 4.2.0 BJ#*--------------------------------------------------------------------*JB*=P3136 MBC10/07/83STR #16570DX1027804.2.0 EM2780BD@* 'F* PROBLEM:WHEN RECEIVING WITH 2780, AN STX CHARACTER FOLLOWINGF@* AN IUS (INTERMEDIATE CHECK SUM) CHARACTER IS NOT DELETED @B* FROM THE DATA STREAM AND IS STORED AS DATA EVEN THOUGH IT B* IS SENT NON-TRANSPARENÀT.* 'D* SOLUTION: THIS PATCH CORRECTS AN INCOMPLETE SOURCE FIX THATDD* CHECKS FOR AN STX AFTER IUS IS RECEIVED AND THROWS IT AWAY.D* '.IF @$PROT,EQ,"2780" .MPI PF=PFIL,MT=PR,MN=P2780,ADR="@EM2780+04C.À0", : V="@EM2780+>0288",D="@EM2780+>027A",C="@EM2780+>027A":EC' .ENDIF% *$'J#*--------------------------------------------------------------------*J@*=P3137 MBC10/10/83STR #16569DX1037804.2.0 DNOPIF@À* '* PROBLEM: "B* WHEN THE COMMAND DEVICE IS AN ITC CHANNEL, LOGGED OUTPUT BD* DOESN'T APPEAR UNLESS THERE IS COMMAND ACTIVITY. TASK IS IND8* STATE, WAIT FOR ANY I/O (>30) AT ADDRESS >022E. 8* SOLUTIOÀN:"<* THIS PATCH CAUSES THE EMULATOR TO NOT WAIT WHEN THE<F* ONLY COMMAND AND/OR LOG ACTIVITY IS A READ ON A NON-KEYBOARD F* DEVICE.!* '.SYN H09="@DNOPIF+>009A"(MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DN(ÀOPIF+007A", , V=(>C066,>0004,>2060,"@DNOPIF+>0002"), ," D=(>9826,>0002,"@H09",>1306) "EC'6MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DNOPIF+0082", 6, V=(>1602,>0460,"@DNOPIF+>025E",>9826), , D=(>C066,>0004,>2060,"@DNÀOPIF+>0002")EC'6MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DNOPIF+008A", 6" V=(>0002,>0251,>1606,>C9A6), "( D=(>1606,>0380,>C066,>000A),C=>D5EA(EC'6MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DNOPIF+0092", 6 V=(>000A,À >000A,>1302,>0460), * D=(>1302,>0460,"@DNOPIF+>0248",>1001)*EC'6MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DNOPIF+009A", 6& V="@DNOPIF+>0248",D=>0900,C=>0900&EC'**********#&MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@&ÀDNOPIF+0104", V=(>C066,>0004), D=(>0460,>0000),C=>0460EC',MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR=>0000,," V=(>0202,>DEAD,>DEAD,>DEAD), "* D=(>C060,"@DBASE+>0304",>1306,>C066) *EC'MPI PF=PFIL,MT=ÀPR,MN=P@$PROT,ADR=>0008," V=(>DEAD,>DEAD,>DEAD,>DEAD), "* D=(>0004,>2060,"@DNOPIF+>0002",>1601)*EC',MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR=>0010,, V=(>DEAD,>DEAD,>DEAD), $ D=(>0380,>0460,"@DNOPIF+>0112")$ECÀ'.SYN H09="" "*$'J#*--------------------------------------------------------------------*JJ#* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH DX10 PATCH UPDATE 3.6.0 J:*-------------------------------------------------------:À-------------*B*=P3246 MBC11/03/83STR #16910DX1037804.2.0 DNOPIFB* '* PROBLEM: "B* WHEN EMULATOR IS BID WITH CMD=ME AND LOG=ME, INITIATE AND B:* CONNECTION MESSAGES CAN CAUSE KEYBOARD CONTROL TO B:ÀE LOST. D* CONNECT, DISCONNECT, RECEIVE, AND SEND MESSAGES WILL STILL D@* BE DISPLAYED AT STATION BUT NO COMMANDS MAY BE ENTERED. @* SOLUTION:"@* CHANGE LOGIC TO BE SURE COMMAND PROMPT IS STILL OUTPUT @* À: INSTEAD OF RETURNING TO WAIT FOR ANY I/O PREMATURELY.:* '6MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DNOPIF+011C", 6 V=>1626,D=>1624,C=>1624EC'*$'D!*-----------------------------------------------------------------DÀ---*B*=P3263 MBC11/08/83STR #16911DX1037804.2.0 DNLCONB* '* PROBLEM: "D* AFTER ISSUEING THE 'DIAL' COMMAND, SUBSEQUENT ANS AND CALL DB* COMMANDS INCORRECTLY TIMEOUT WITH 13 ERROR AFTER 1 MINUTE. BÀ* SOLUTION:"@* SAVE ORIGINAL TIMEOUT VALUE DURING INTIALIZATION, THEN @>* RESTORE IT TO OPEN PRB BEFORE EVERY CALL OR ANS O€%€%PEN.>* '.SYN CMDSET=@CI@$PROT 2MPI PF=PFIL,MT=OV,MN=OI@$PROT,ADR="@DNINIT+>0032À0", 0 V=(>0460,"@CMDSET"),D=(>0460,>0018),C=>04780EC',MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR=>0018,, V=(>DEAD,>DEAD), D=(>C820,"@DBASE+>05AE") EC',MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR=>001C,, V=(>DEA €D,>DEAD,>DEAD), D=(>0016,>0460,"@CMDSET")EC'.SYN CMDSET=""!6MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DNLCON+0010", 6, V=(>04C4,>D135),D=(>0460,>0022),C=>0442,EC',MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR=>0022,,@" V=(>DEAD,>DEAD,>DEAD,>DEAD), "* D=(>D820,>0016,"@DBASE+>05AE",>04C4) *EC',MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR=>002A,, V=(>DEAD,>DEAD,>DEAD), $ D=(>D135,>0460,"@DNLCON+>0014")$EC'.SYN DNINIT=""!*$À'J#*--------------------------------------------------------------------*JB*=P3295 MBC11/16/83STR #16918DX1037804.2.0 DXCFILB* 'B* PROBLEM: IF LOG AND CMD ARE ITC CHANNELS AND A CF*.FILE* B* COMMAND IÀ8S ENTERED, LOG MESSAGES ARE OUTPUT TOO FAST AND ARE 8D* LOST.SYSTEM LOG SHOWS ITC BUFFER FULL ERROR >FF MESSAGES.D* SOLUTION:"F* WHEN STARTING A NEW COMMAND SOURCE, TEST IF LOG IS ITC BEFOREF* CLEARING GLOBAL IÀ TC FLAG (CSMWDF). * '8MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@DXCFIL+>01EE", 8( V=(>D824,>0008),D=(>0460,"@CCPAT8")(EC'2MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@CCPAT8", 2" V=(>0102,>DEAD,>DEAD,>DEAD), " D=(>9À$824,>0008,"@CCMSG+>000A",>1304) $EC'8MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@CCPAT8+>0008", 8" V=(>DEAD,>DEAD,>DEAD,>DEAD), "2 D=(>9820,"@DBASE+>00EA","@CCMSG+>000A",>1603)2EC'&MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="&À@CCPAT8+>0010", V=(>DEAD,>DEAD,>DEAD), , D=(>D820,"@CCMSG+>000A","@DBASE+>029E"),EC'8MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@CCPAT8+>0016", 8 V=(>DEAD,>DEAD), D=(>0460,"@DXCFIL+>01F4")EC'MPI À4 PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@DXCFIL+>024A", 4. V=(>D824,>0010),D=(>0460,"@CCPAT8+>001A").EC'8MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@CCPAT8+>001A", 8" V=(>DEAD,>DEAD,>DEAD,>DEAD), "$ D=(>9824,>0010,"@CCMSG+>000A",>13$À04) EC'8MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@CCPAT8+>0022", 8" V=(>DEAD,>DEAD,>DEAD,>DEAD), "2 D=(>9820,"@DBASE+>00EA","@CCMSG+>000A",>1603)2EC'8MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@CCPAT8+>002A", 8 V=(À >DEAD,>DEAD,>DEAD), , D=(>D820,"@CCMSG+>000A","@DBASE+>029E"),EC'8MPI PF=PFIL,MT=OV,MN=OF@$PROT,ADR="@CCPAT8+>0030", 8 V=(>DEAD,>DEAD), D=(>0460,"@DXCFIL+>0250")EC'*$'*---------------------À4-----------------------------------------------*4B*=P3300 MBC11/18/83STR #17030DX1037804.2.0 DNOPIFB* 'H* PROBLEM: IF LOG OR JOURNAL MESSAGES WRITTEN TO AN ITC CHANNEL H&* GET AN ITC BUFFER FULL ERROR, T&À HEN THE EMULATOR'S ATTEMPT D* TO WRITE A MESSAGE TO THE SYSTEM LOG WORKS INTERMITTANTLY. D* SOLUTION:"J* ! CORRECT ADDRESSING ERROR SO CORRECT ERROR BITS ARE SET IN WRTMSG.J* '$MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR=$À"@DNOPIF+>0162",0 V=>6000,D="@DNOPIF+>01CE",C="@DNOPIF+>01CE"0EC'6MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DNOPIF+>01BA",60 V=>6000,D="@DNOPIF+>01CE",C="@DNOPIF+>01CE"0EC'*$'"*-------------------------------"À*-------------------------------------**J#* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH DX10 PATCH UPDATE 3.7.0 JJ#*--------------------------------------------------------------------*J0*---------------------------------------------0À-----------------------*(* *** PLACE PATCHES BEFORE THIS LINE(J#*--------------------------------------------------------------------*JF*=P0000 MBC11/09/83STR # N/A DX103780 4.2.0 EM3780/2780F* '* UPDATÀ.E THE EMULATOR RELEASE NUMBER AND DATE TO ."* "4.2.0 84.039" 02/08/84"* ' .IF @$PROT,EQ,"3780"<MPI PF=PFIL,MT=TA,MN=EM3780,ADR="@DXCF3+016",V=02E32,<, D=(02E32,02E30,02038,0342E,03033,03900),EC'À .ENDIF% .IF @$PROT,EQ,"2780"<MPI PF=PFIL,MT=TA,MN=EM2780,ADR="@DXCF2+016",V=02E32,<, D=(02E32,02E30,02038,0342E,03033,03900),EC' .ENDIF% *$'>*----------------------------------------------------------->À---------*6* *** DELETE SYNONYMS UNIQUE TO THIS BATCH STREAM 6J#*--------------------------------------------------------------------*J Q$SYN % (.SYN DNINIT="",DXCF2="",CI2780="" (&.SYN CCMGR="",OP2780="",EM2780="" &€(.SYN OP3780="",EM3780="",CCMSG="" (&.SYN CI3780="",DBASE="",DXSB="" &(.SYN DNOPIS="",DXRCVQ="",DNLCON=""(&.SYN DXCF3="",CCSBW="",DNOPIF=""&&.SYN PFIL="",OA2780="",OA3780=""&.SYN CCPAT8="",DXCFIL=""@* '8CM R=ME,M="@$E$C ERRORS IN DXTP@$PROT PATCH STREAM" 8EBATCH LS=YES !J#*--------------------------------------------------------------------*JD* NEXT AVAILABLE CCPAT1 PATCH AREA IN 3780 PROCEDURE IS >0030D* N€>EXT AVAILABLE CCPAT1 PATCH AREA IN 2780 PROCEDURE IS >0030>F* NEXT AVAILABLE CCPAT8 PATCH AREA IN OVERLAY CF@$PROT IS >0034FJ#*--------------------------------------------------------------------*J2/83 03:17 PM ÿÿEOD †!DXTIPE P¨«8®Àlã+ÀˆÛCP*--------------------------------------------------------------------* PP* *** PATCH FILE DX10 3.6.0 TIPE 2.1.0 LAST UPDATE 02/20/84* PP*--------------------------------------------------------------------* PRP* INSTRUCTIONS: PP* PP* YOU MUST ASSIGN THE FOLLOWING SYNONYM BEFORE RUNNING THIS PRP* BATCH STREAM: PP* PP* S$TIPE - DIRECTORY NAME THAT CONTAINS THE TIPE PARTS. THIS IS PRP* USUALLY (.S$TIPE). PP* PP* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS. PRP*--------------------------------------------------------------------* PPBATCH LS=YES PP*.IF "@PROC", EQ,"PROC" PRP* .SYN PROC=".S$PROC" PP*.ENDIF PP*$ PRP*--------------------------------------------------------------------* PP*=P3467 JAM 11/28/83 STR #17014 DX10 TIPE 2.1.0 PP* PRP* PROBLEM: BLOCK SELECT HANGS ON COPY AND STORE OPERATIONS IF NEXT PP* PAGE, PREVIOUS PAGE, OR HOME-HOME KEY SEQUENCE IS PP* PRESSED DURING BLOCK SELECTION. PRP* PP* SOLUTION: RESTORE PREVIOUS POSITION FOR ALL BLOCK OPERATIONS. PP* PRP*--------------------------------------------------------------------* PP* PP.EVAL GET$SE = >84E4 PRP* PPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=TIPEBLOC, ADR=@GET$SE+>01B0, PP V=(>0287),D=(>1012),C=(>1012) PRPEC PP.SYN GET$SE="" PP*$ PRP*--------------------------------------------------------------------* PP*=P3468 JAM 12/10/83 STR #17024 DX10 TIPE 2.1.0 PP* PRP* PROBLEM: REFORMAT AND CHANGE RULER LINE HANG IF A LINE BEING PP* REFORMATTED HAS AN ADJUSTED LEFT MARGIN INVOKED BEYOND PP* THE FIRST TAB ON THE RULER LINE. PRP* €%€% PP* SOLUTION: THE OUT-OF-TABS CONDITION SHOULD DEPEND UPON A TAB PP* POSITION LESS THAN THE ORIGINAL LEFT MARGIN RATHER PRP* THAN THE INDENTED LEFT MARGIN. PP* PP*--------------------------------------------------------------------* PRP* PP.SYN GET$TA = >5B20 PP* PRPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=TIPEEDIT, ADR=@GET$TA+>00E4, PP V=>002E,D=>002C,C=>002C PPEC PRP.SYN GET$TA="" PP*$ PP*--------------------------------------------------------------------* PRP*=P3469 JAM 12/28/83 STR #17172 DX10 TIPE 2.1.0 PP* PP* PROBLEM: BLOCK SELECTION DOES NOT WORK PROPERLY ON A SECTION OF PRP* TEXT THAT HAS BEEN RECALLED. THE "SECOND SELECT SYMBOL PP* MUST FOLLOW THE FIRST SELECT SYMBOL" MESSAGE IS PP* DISPLAYED IF THE NEXT PAGE/PREVIOUS PAGE KEYS HAVE BEEN PRP* USED. IN OTHER SITUATIONS, THE TERMINAL MAY HANG DURING PP* THE BLOCK SELECT OR AFTER ONE OF THE RECALLED PAGE PP* BREAKS HAS BEEN DELETED. PRP* PP* SOLUTION: CHANGE BLOCK RECALL TO INSERT RECALLED PAGE BREAKS AS PP* INSERTED PAGE BREAKS RATHER THAN UPDATING THE PAGE PRP* SEGMENT. PP* PP*--------------------------------------------------------------------* PRP* PP.EVAL INS$FI = >87B6 PP* PRPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=TIPERCLB, ADR=@INS$FI+>03D6, PP V=(>CF94,>CFAA,>0048,>CFA7), PP D=(>C26A,>0048,>A247,>0228), PRP C=>624D PPEC PPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=TIPERCLB, ADR=@INS$FI+>03DE, PRP V=(>0300,>069B,>7A94), PP D=(>2000,>DA48,>000B), PP C=>FA43 PRPEC PP.SYN INS$FI="" PP*$ PRP*--------------------------------------------------------------------* PP*=P3470 JAM 01/28/84 STR #17371 DX10 TIPE 2.1.0 PP* PRP* PROBLEM: DOCUMENTS CANNOT BE PRINTED TO RP DEVICES WHICH PP* ARE REMOTE PRINTERS IN THE RTS ENVIRONMENT. PP* PRP* SOLUTION: DEFINE THE OUTPUT DEVICE AS A LINE PRINTER FOR PP* RP AS WELL AS LP DEVICES. PP* PRP*--------------------------------------------------------------------* PP* PP.EVAL GET$DE = >4706 PRP* PPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=TIPEUTIL, ADR=@GET$DE+>0134, PP V=(>D325,>0002,>098C,>028C), PRP D=(>C325,>0002,>1000,>028C), PP C=>D1AB PPEC PRP* PPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=TIPEUTIL, ADR=@GET$DE+>013C, PP V=(>004C,>1617,>D325,>0003), PRP D=(>4C50,>1307,>1000,>1000), PP C=>5F57 PPEC PRP* PPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=TIPEUTIL, ADR=@GET$DE+>0144, PP V=(>098C,>028C,>0050), PRP D=(>1000,>028C,>5250), PP C=>40DC PPEC PRP* PP.EVAL GET$DE = >7936 PP* PRPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=PRNTSETU, ADR=@GET$DE+>0134, PP V=(>D325,>0002,>098C,>028C), PP D=(>C325,>0002,>1000,>028C), PRP C=>D1AB PPEC PP* PRPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=PRNTSETU, ADR=@GET$DE+>013C, PP V=(>004C,>1617,>D325,>0003), PP D=(>4C50,>1307,>1000,>1000), PRP C=>5F57 PPEC PP* PRPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=PRNTSETU, ADR=@GET$DE+>0144, PP V=(>098C,>028C,>0050), PP D=(>1000,>028C,>5250), PRP C=>40DC PPEC PP* PRP.SYN GET$DE = "" PP*$ PP*--------------------------------------------------------------------* PRP*=P3471 JAM 01/28/83 STR #17374 DX10 TIPE 2.1.0 PP* PP* PROBLEM: LEAST SIGNIFICANT DIGITS ARE TRUNCATED IN DECIMAL FIELDS PRP* IF ENTER CODES FOLLOW THE NUMERIC VALUE AND NO DECIMAL PP* PLACE APPEARS ON THE RULER LINE FOR THAT FIELD. PP* PRP* SOLUTION: SHIFT THE FIELD DATA ONLY WHEN THE DATA AT THE END OF PP* KNOWN FIELD IS NOT AN ENTER CODE (INCREMENTING THE TEST PP* VALUE FOR THE USER DECIMAL PLACE EACH TIME IT IS LESS PRP* THAN THE FINAL DECIMAL POSITION). PP* PP*--------------------------------------------------------------------* PRP* PP.EVAL FORMAT = >8680 €%€% PP* PRPMPI PF=@S$TIPE.PROGRAM, MT=OV, MN=TIPEKEYS, ADR=@FORMAT+>01B6, PP V=(>10F6),D=(>1010),C=(>1010) PPEC PRP.SYN FORMAT="" PP*$ PP*--------------------------------------------------------------------* PRP* *** DELETE SYNONYMS THAT ARE UNIQUE TO THIS BATCH STREAM *** * PP*--------------------------------------------------------------------* PP*.SYN PROC="" PRP*--------------------------------------------------------------------* PPEBATCH LS=YES, PP TEXT="@$E$C ERRORS ON TIPE 2.1 BATCH PATCH STREAM", PRP CODE=@$E$C PP*--------------------------------------------------------------------* Pÿÿ«Ð ,ðÐ ,í úê úô †»Àoÿü $pÿÿÂÐo À² àÁÂä kè"PÎrÎrÎrÎrÿÿ†$CBL10340D ††«KÀˆÛHÀˆÛF†PATCH P'µ„PtšÀˆÛ˜ÀˆÛG@J#*--------------------------------------------------------------------*JD* *** PATCH FILE DX10 COBOL 3.4.0. LAST UPDATE 03/05/84*DJ#*--------------------------------------------------------------------*J* ASSIGN THE FOLLÀOWING SYNONYMS : *H* YOU MUST ASSIGN THE FOLLOWING SYNONYMS IF YOU HAVE MOVED SCI *HH* COMMANDS PROCEDURES INTO COMMAND DIRECTORIES OTHER THAN THOSE *H** SUPPLIED WITH YOUR SOFTWARE: *** "$PROC" - THE MÀ,AJOR COMMANDS DIRECTORY(IES) AND THE *,* HISTORY COMMANDS *F* TO PATCH THE SYSTEM FILE .S$PROGA, ASSIGN THE SYNONYMS : *FB* "VOLBLD" - THE VOLUME NAME OF THE DISK THAT CONTAINS *B* THE SYSTEM FILES À".S$PROGA". *B* "VOLBLD2" - THE NAME OF THE DIRECTORY, OR DISK, THAT *B0* CONTAINS THE DIRECTORY ".S$SYSLIB". *0@* TO PATCH A USER PROGRAM FILE, ASSIGN THE SYNONYMS : *@* "VOLBLD" - "" ** À "VOLBLD2" - "" *:* "$UPF" - THE NAME OF THE USER PROGRAM FILE *:<* "$UPN" - THE NAME OF THE DX10 USER PROCEDURE *<F* "$UPA" - THE STARTING ADDRESS OF THE RUNTIME PROCEDURE. *F *-------------------À6-------------------------------------------------*6BATCH LS=YES".IF "@$PROC", EQ,"$PROC" .SYN $PROC=".S$PROC" .ENDIF% J#*--------------------------------------------------------------------*J* THE FOLLOWIÀ6NG MPI'S ARE USED TO DETERMINE WHICH PROCEDURE *6J* (RCBPRC,* RCBNOIO OR RCBOVY) ARE BEING PATCHED. ONLY ONE MAY *J* BE SUCCESSFUL. *J#*--------------------------------------------------------------------*JQ$ÀSYN % .SYN $E$C="0",$OV="",$SYS="" .IF @VOLBLD, EQ, "VOLBLD" .IF @$UPF, EQ, "$UPF" 4.STOP TEXT="'$UPF' SYNONYM IMPROPERLY ASSIGNED" 4 .ENDIF$ .IF @$UPN, EQ, "$UPN" &.STOP TEXT="'$UPN' SYNONYM IMPROPERL&ÀY ASSIGNED" .ENDIF$ .IF @$UPA, EQ, "$UPA" 4.STOP TEXT="'$UPA' SYNONYM IMPROPERLY ASSIGNED" 4 .ENDIF$ .ELSE % <.SYN $UPF=@VOLBLD.S$PROGA,$UPA=>0000,$UPN=010,$CID=>0C9A< .ENDIF% * 'MPI PF=@$UPÀ$F, MT=PROC, MN=@$UPN, ADR=@$UPA,$V=>1001,!D=>1001,!R=N #.IF "@$$CC", EQ, 0000 >.SYN $CRLIO =>2506,$CRTIM=>0048,$CRTIO=>1E2C,$CXRFC=>3B42, >8 $CPATCH=>0D30,$CXIO=>30DC,$CXPAT=>3BC4,$CXST=>393E,8 $SYS=DX À10 .ENDIF% 0MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA,0V=>1002,!D=>1002,!R=N #.IF "@$$CC", EQ, 0000 6.SYN $CRLIO ="",$CRTIM=>0048,$CRTIO="",$CXRFC="", 6* $CPATCH=>0D30,$CXIO="",$CXPAT=>1F4A,$CX*À ST="", $SYS=DX10 .ENDIF% .IF @$SYS, EQ, "$SYS" :.STOP TEXT="CANNOT APPLY PATCHES TO @$UPF PROC @$UPN" : .ENDIF% J#*--------------------------------------------------------------------*J* CHECK VERSION€6 NUMBER FOR INCLUSION OF ".DATA" MODULES. ALL *6H* PATCHES THAT USE A ".DATA" TO REPLACE A MODULE IN S$SYSLIB *HH* ARE NOT TO BE APPLIED IF AN ERROR OCCURS OR A USER PROGRAM *H$* FILE IS BEING PATCHED. *$ON(@J#*--------------------------------------------------------------------*J.IF @VOLBLD, NE, VOLBLD 4352,>5620,>332E,>342E,>3044), ( D=(>4352,>5620,>332E,>342E,>3 À 044), R=(N,N,N,N,N) .IF @$$CC, EQ, 0000 .SYN $VERSN = "3.4.0" .ELSE $ :.STOP TEXT="CANNOT APPLY PATCHES - VERSION NOT 3.4.0" : .ENDIF$ .ENDIF% 4*-------------------------------------------------4À -------------------*4* *** BEGIN PATCHES FOR DX10 COBOL 3.4.0. *4J#*--------------------------------------------------------------------*JB*=P1696 RVL03/25/82STR #11573DX10 COBOL 3.4.0COMPILERB* '* MÀ<ESSAGE TEXT FROM AN ERROR WRITING OVER THE SQUASH BUFFER <0* CAUSING THE WRONG TOKEN TO BE SCANNED. 0* ' .IF @VOLBLD, NE, "VOLBLD" :MPI PF=@VOLBLD.S$SDS$, MT=TASK, MN=COBOL, ADR=>07F4, : V=(>0201,>29D0,>0203,>002€8), * D=(>0201,@$CPATCH+>0000,>0203,>0016),* R=N#EC& .ENDIF% *$'J#*--------------------------------------------------------------------*JB*=P1722 LJJ04/23/82STR #11957DX10 COBOL 3.4.0 RUNTIMEBD@* 'J* ! STOP LITERAL WITH NUMERIC LITERAL DOES NOT SET THE $$CC SYNONYM. J* ' .IF @$CRTIO, NE, "$CRTIO" >MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRTIO+>01BA, > V=>09020, D=(>0280,>39FF), R=(N,ÀN)!EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRTIO+>01C0, > V=>7020, D=(>0220,>D000), R=(N,N)!EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRTIO+>01D2, > V=>09020, D=(>028 À0,>39FF), R=(N,N)!EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRTIO+>01D8, > V=>7020, D=(>0220,>D000), R=(N,N)!EC& .ENDIF% *$'.*-------------------------------------------.À -------------------------*B*=P1726 LJJ4/28/82 STR #11959 DX10 COBOL 3.4.0 RUNTIMEB* 'H* IF OPEN WITH NO REWIND TO A PRINTER FAILS, THE LUNO IS RELEASED.H* '.IF @$CXIO, NE, "$CXIO" MPI PF=@$UPF, MÀ.T=PROC, MN=@$UPN, ADR=@$UPA+@$CXIO+>0280, . V=(>04E2,>0010), $ D=(>0460,@$UPA+@$CXPAT+>0000), $ R=(N,Y)!EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>0000, >* V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,*À>DEAD), 4 D=(>04E2,>0010,>C243,>0249,>0010,>1601,>2FD2), 4 R=(N,N,N,N,N,N,N)EC&D MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>0000+>000E,D V=(>DEAD,>DEAD), " D=(>0460,@$UPA+@$CXIO+>0348)," R=(ÀN,Y)!EC& .ENDIF% *$'J#*--------------------------------------------------------------------*JB*=P2012 RVL8/25/82 STR #12812 DX10 COBOL 3.4.0 RUNTIMEB* '.* ACCEPT/DISPLAY WITH FUNCTION KEYS = NO C.ÀAUSED LOSS OF FUNCTIONF* KEYS WHEN FORGROUND SCI RESUMED. (UNTIL A LIST SYNONYM OR LISTF* DIRECTORY WAS DONE) * '.IF @$CXST, NE, "$CXST" >MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXST+>00F2, > V=(€0>DA80,>0273,01318,>FAA0,@$UPA+@$CXST+>0202), 0B D=(>FAA0,@$UPA+@$CXST+>0202,>0280,>0460,@$UPA+@$CXPAT+>001A),B R=(N,Y,N,N,Y)EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>001A, > V=(>DEAD,>DEAD,>DEAD), @* D=(>0204,@$UPA+@$CXPAT+>002A,>D000), * R=(N,N,N,N)EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>0020, >" V=(>DEAD,>DEAD,>DEAD,>DEAD), ". D=(>1302,>0460,@$UPA+@$CXST+>00FE,>0460),. R=(N,N)!ECÀ&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>0028, > V=(>DEAD,>DEAD,>DEAD), ( D=(@$UPA+@$CXST+>011C,>024D,>4500),( R=(N,N)!EC& .ENDIF% *$'4*-------------------------------------------------4À -------------------*B*=P2083 LJJ08/13/82STR #13249DX10 COBOL 3.4.0 RUNTIMEB* 'J* ! NON-ZERO VALUES ARE SOMETIMES PLACED IN DECIMAL POSITIONS TO THE J@* RIGHT OF THE DECIMAL AFTER A COMPLEX COMPUTE STATEMENT WH@ÀICH :* CONTAINS INTERMEDIATE COMPUTATIONS, FOR EXAMPLE : :(* A = ( A * 50 ) * ( 200 / 100 ).(* '>MPI PF=@$UPF, MT=PROC€%€%, MN=@$UPN, ADR=@$UPA+@$CRTIM+>0F44,> V=(>C2EA,>00D8), D=(>0460,@$UPA+@$CXPAT+>001€2), R=Y$EC'>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRTIM+>148A,> V=(>C2EA,>00D8), $ D=(>0460,@$UPA+@$CXPAT+>0012), $ R=Y$EC'>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRTIM+>154E,>@ V=(>C2EA,>00D8), $ D=(>0460,@$UPA+@$CXPAT+>0012), $ R=Y$EC'>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRTIM+>162C,> V=(>C2EA,>00D8), $ D=(>0460,@$UPA+@$CXPAT+>0012), $ R=Y$EC'MPI PÀ8F=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>0012,8" V=(>DEAD,>DEAD,>DEAD,>DEAD), "0 D=(>C2EA,>00D8,>0460,@$UPA+@$CRTIM+>19F2), 0 R=(N,N,N,Y) EC'*$'<*---------------------------------------------------------<À-----------*B*=P2125 LJJ8/30/82 STR #13347 DX10 COBOL 3.4.0 RUNTIMEB* 'J* !COBOL ISSUES A TIME DELAY SVC FROM PROCEDURE, SO WRITE PROTECTING J** FOR PROCEDURE GIVES 0B TASK ERROR.** '* === AN AD€8DITIONAL CORRECTION IS CONTAINED IN PATCH #2952 === 8* ' .IF @$CRTIO, NE, "$CRTIO" >MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXIO+>0502, >" V=(>2FE0,@$UPA+@$CXIO+>06F4)," D=(>2FEA,>03EA), R=(N,N)!AD@EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXIO+>0592, >" V=(>2FE0,@$UPA+@$CXIO+>06F4)," D=(>2FEA,>03EA), R=(N,N)!EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXIO+>0668, > V=(>2FE0,@$UPA+À@$CXIO+>06F4), D=(>2FEA,>03EA), R=(N,N)!EC&>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRTIM+>002C, > V=(>04EA,>00B6), $ D=(>0460,@$UPA+@$CXPAT+>002E), $ R=(N,Y)!EC&MPI PF=@$UPF, MÀ.T=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>002E, .: V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), :: D=(>04EA,>00B6,>0200,>0200,>CA80,>03EA,>0200,>0014), : R=(N,N,N,N,N,N,N,N)EC&&MPI PF=@$UPF, MT=PROC, MN=@$UPN, AD&€R=@$UPA+@$CXPAT+>003E, " V=(>DEAD,>DEAD,>DEAD,>DEAD), "0 D=(>CA80,>03EC,>0460,@$UPA+@$CRTIM+>0030), 0 R=(N,N,N,Y)EC& .ENDIF% *$'J#*--------------------------------------------------------------------*JL@B*=P2218 RVL10/20/82STR #13465DX10 COBOL 3.4.0 RUNTIMEB* 'H* WHEN OPENING A FILE THAT IS OPENED EXCLUSIVE ACCESS BY ANOTHER HD* PROGRAM THE COBOL WAS RETURNING A 30,3B ERROR. THIS IS NOWD* CHANGED BACK TO€ A 99,3B. * '>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRLIO+>0A8C,> V=(>0200,>0030), $ D=(>0460,@$UPA+@$CXPAT+>0046), $ R=(N,Y)"EC'>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>0046,>@@( V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), (6 D=(>2020,@$UPA+@$CRLIO+>0B8E,>1304,>0200,>0030), 6 R=(N,Y,N,N,N)EC'>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXPAT+>0050,>" V=(>DEAD,>DEAD,>DEAD,>DEAD), " D=(>0460,€4@$UPA+@$CRLIO+>0AD0,>0460,@$UPA+@$CRLIO+>0ACC), 4 R=(N,Y,N,Y) EC'*$'J#*--------------------------------------------------------------------*JB*=P2272 LJJ10/20/82STR #13614DX10 COBOL 3.4.0 RUNTIMEB* '@J* ! DEBUGGER DOES NOT ALLOW MODIFICATION OF DATA ITEMS WHOSE ADDRESS J * IS GREATER THAN >8000. * '.IF @VOLBLD, NE, VOLBLD .IF @$E$C, EQ, 0000 .IF @$VERSN, EQ, "3.4.0""MPI PF=@VOLBLD.S$SDS$, MT=TAS"À K, MN=XCPD, ADR=>50AA+>032A, V=>115E, D=>1A5EEC$@MPI PF=@VOLBLD.S$SDS$, MT=TASK, MN=XCPD, ADR=>50AA+>033A,@ V=>1156, D=>1A56EC$:MPI PF=@VOLBLD.S$SDS$, MT=TASK, MN=XCPD, ADR=>50AA+>0:À3BC, V=>1115, D=>1A15EC$* '* '>* TO PATCH A USER PROGRAM FILE, LOOK IN THE LINKMAP FOR >,* THE VALUES OF THE FOLLOWING LABELS: ,* C$RUDP (IN TASK) * AND SUBSTITUTE THEM IN TÀ HE FOLLOWING PATCH: * '* MPI PF=@$UPF,* MT=TASK, * MN=, * A=@C$RUDP+>032A, * V=>115E, * D=>1A5E * EC$ * MPI PF=@$UPF,* MT=TASKÀ, * MN=, * A=@C$RUDP+>033A, * V=>1156, * D=>1A56 * EC$ * MPI PF=@$UPF,* MT=TASK, * MN=, * A=@C$RUDP+>03BC, * € V=>1115, * D=>1A15 * EC$ * '<* THE FOLLOWING IS TO REPLACE THE PARTIAL LINK IN THE<>* SYSTEM LIBRARY, SO THE ABOVE PATCH WILL NOT BE NEEDED >* ',MFP P=@VOLBLD2.S$SYSLIB.RCBTSKD,D=N,W=N ,0@$.DATA @VOLBLD2.S$SYSLIB.RCBTSKD $.00EE0CXCBL M0000$DATA 00007F9B8FCXCB0001.R(603E3$$MO 602C2ASMAPS602C4BCXSDR602BEBGXLOG50000C$CTSK60003C$LGPR7EFE5FCXCB0002RJ$40000C$M4HX40000C$RSS 40000C$RTIM50668C$RUDP500ECC$STOP40000C$SUPF7F035FJÀ CXCB0003 R(603E8C$TLF 603E9C$TLFO40000C$UCCP40000C$XACC40000C$XDIS5062AC$XEOD7F05BFCXCB0004RR(40000C$XILD5062AC$XLOD500CCC$XSDR60006C$XSES6000FC$XSMX602F2C$XSTB7EFADFCXCB0005R@602D8CCODE 602F0CCTRL 602DCCFDADR60354CHKSUM603B1CPYNAM602EECX@À IORT7EF32FCXCB0006R(60024ENDPRB602DAERRWRD602DEFUNKEY40000G$CM0140000G$CM0340000G$DEB17F02FFCXCB0007RR(40000G$DEB240000G$END 50138G$XLOG602D4G$XTID602CCGMEM 602D6GRAPHC7F072FCXCB0008R660350HBOUND6034ELBOUND602CELD$OVL6035ALDADDR6034CLDB6ÀIAS60360LDRBFR7EF3CFCXCB0009R(60352LINPOS602ECMANDAT602CAMSGPRB60358NBIAS 6035EOBJFMT602C8OBJPRB7EEFEFCXCB0010RR(6035COVLNUM60006P$ABUF60016P$ACCN6000CP$AKEY6000AP$CCNT60001P$ERR 7F005FCXCB0011R, 60003P$LUN 60002P$OP 6000DP$REC16000EP$RE,À(C260008P$RECL60004P$SFLG7F0BCFCXCB0012(R(60005P$UFLG60012P$ULRL60014P$UPRL60010P$UTF160011P$UTF2603B0PBUFLN7EFE4FCXCB0013RR(60276PR$BAD6027APR$CHC60282PR$CUR60271PR$ERC60281PR$EVN60280PR$FIL7EFF0FCXCB0014R"6001CPR$LEN60273PR$LUN60272PR$OP"À2C60278PR$RLN60274PR$SFL60275PR$UFL7EFA2FCXCB00152R(6027EPR$XFL60286PRBACN60285PRBFSC60284PRBFSR60258PRBOBJ60270PRBSVC7EF1EFCXCB0016RR 60360PRMBUF5019CRTIM40000S$CLOS40000S$CMSG40000S$GTCA40000S$MAPS7F019FCXCB0017R40000S$OPEN40000S$PARMÀ<40000S$TERM40000S$WEOL40000S$WRIT60360SLRCD 7F004FCXCB0018<R 60050SRSIZE602D0STARTC602D2STARTL6028CSTATBF602B9STXX 60290SVC 7EF5BFCXCB0019RR(60291SVCAB160292SVCAB260293SVCAB360294SVCAB460295SVCAB560296SVCAB67EFDFFCXCB0020R60297SVCAB76ÀF02E2SWTCH 60356TBIAS 40000TCAMSG602E0TEMPF 602BCTERM7EFDBFCXCB0021FL40000TLFMSG60280UTFLGS50458WP A0000C0458C0006C0106B04207F2D6FCXCB0022LR#E000F0000B0204E00160000BC040B166DBD0E0C0136B0201B03E3BA04AB02027F256F CXCB0023R B0360BA0 €J$8ABD4AAB03B0BC1AAB02C2B0416B0102B9822B0002C0134B160BB02017F196F CXCB0024JR(B0006B06A0C00F2B1306B982AB0361C0135B1602BD0E0C0135BDA83B03E8B7AAA7F171F CXCB0025RR(B03E9B03E9B0201B0001B06A0C00F2B0201B0258BA04ABC842B0016BCA81B02C87F18FF CXCB0026RA0V@R#B06A0E00070000B162DB04C6B0201B0002B06A0C00F2B1306B982AB0361C01367F21EFCXCB0027RR(B1602B0206C0668B0201B0004B06A0C00F2B0203B0008B0582BC06AB02E2BDC727F1C3F CXCB0028RN&B0603B16FDB0201B0005B06A0C00F2B1304B982AB0361C0136B1305B04EAB02DE7F19EF CXCBNÀ0029R(B5AAAB02F0B02ECB0202C062ABC06AB034EBC006B0420C019CB982AB03E8C01367F145F CXCB0030RR#B1609B0204E00080000B04C2B04C3B06A0C0138B04C1B0420E000D0000BC06A7F25CF CXCB0031RD!B02D8B04C4B04C2B0420E00130000B0202B0360BA08ABD4AAB03B0B04207F308F DÀ CXCB0032 R#E00120000B0102BD492B045BB0200B2F00B2FC0BC042B7000B0202B03B1BA08A7F201FCXCB0033RP"BC342B04DDB058DB06A0E00000000B06A0E00010000BC001B06A0E000000007F2A9FCXCB0034PB B0204E000C0000B06A0C0138B10CCB464EB5900BD06AB03E9B161AB0201B5959BÀ7F1D5FCXCB0035N!BDA81B03E9BDA81B03E8B0205B0003B0201B0360BA04ABD460C019BB04207F297FCXCB0036NP"E00120000B0501B0420E00110000BC040B1306B0203B0041B0204E001700007F322FCXCB0037P>B0460C00ECB0201B0360BA04ABC460C019AB0205C0194B04C3B0420E000E>À00007F205FCXCB0038R#B0581B04C2B0420E00150000B0420E00140000B045BB0543B4F42B4F4CB004E7F25EF CXCB0039RR#C01A0E00020000A01B4C01C0A0418B0000B9100B0030B0000B0050B0000B00007F290FCXCB0040R4B0000B0400B0000B0000B0000B0000A046CC01C0A0478B00044À B5354A047EB04607F22AF CXCB0041 R#C0138E00100000B0460C00CCB0000B0000B1200B1400A0494B0000B0000B80007F28FFCXCB0042RR(B0000B0000BFFFFB0000C04A4A04ACBCCA1B0000B0400A0570B3100A05A2B00047F1B0F CXCB0043R*B2424B4D4FB0000BDEADBDEADBDEADBDEADBDEAD*À*BDEADBDEADBDEADBDEADBDEAD7EF65F CXCB0044*R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CXCB0045RR(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CXCB0046R BDEADBDEADBDEADBDEADBDEADBDEAD À4BDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CXCB00474R(BDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEADBDEAD7EEB9F CXCB0048RR(BDEADBDEADBC18BBCAAAB02CEB0290B04EAB0292BCA80B0294B072AB0296B2FEA7F08FF CXCB0049R B0290B04C0BD02AB0291À>B130EB0980B0202B03B1BA08ABC342B04DDB058DB06A07F16CF CXCB0050>R#E00000000B0204E00090000B06AAB02BEB0700B0456BC32AB01BEB133EBCA8B7F20CF CXCB0051RR(B00D6B2320C0E52B1604BD01FB2020C0E4EB1336B2320C0E50B1€%€%333B2320C0E547F1A9F CXCB0052RB1629BC10FÀH#BC16AB0030B1303B612AB0016B1002B612AB0004B0A85B06A0C0D3C7F19CF CXCB0053HR(B04C2BC00DBE090B02A6BC1A6B0020B0226B0012B8DB0B160AB8DB0B1608B8DB07F14DF CXCB0054RR(B1606B8170B1604B8130B1602B04DDB1010B022DB000AB80CDB1AE9BC082B16037F195F CXCB0055RÀR(B4AA0C0E54B01BEB4AA0C0E56B01BEBC2EAB00D6B930CB045BBC00FBC32AB00307F0EFF CXCB0056RR(B1303B602AB0016B1002B602AB0004BCA80B0048BC20AB0228B0136BDA2AB02D47F1A2F CXCB0057RN&B0004BDA2AB00C1B0005BC34AB022DB019CBCA8DB0198BCB4AB0014B020DC0E067F137F CXCBNÀ0058R(BCA8DB019ABC24AB0229B0148BCA09B0000B4AA0C0E50B01BEB4AA0C0E52B01BE7F10FF CXCB0059RR(B06A0C0D3CBC268B0000B0200C0ED1B06A0C0C1ABD01DB1603B022DB000AB10107F182F CXCB0060RD!BCE60C0E8CBCE7DBCE7DBCE7DBDE60C0E8DBC03DB1302B06A0C0C4CBC03DB06A07DÀF073F CXCB0061R(C0C46BDE60C0E41B80CDB1AE9BDA60C0E8DBFFFFB06A0C0D7EBC268B0000B02A17F0B4F CXCB0062RR(BC061B0020B0221B0012BCE71BCE71BCE51BDE60C0E8DBD02AB0031B1302B06A07F154F CXCB0063R:C0C4CBC02AB0048B06A0C0C46B0200C0ECCB06A0C0C1AB06A0C0D7EB:À06A0C0DAA7F10CF CXCB0064R(B06A0C0DFAB020BC0D4AB7020C0E36B1108B0980B0280B0016B1504B0A10BC2C07F186F CXCB0065RR(BC2EBC0E92B045BB06A0C0CC6BC301B1303B8A8CB0030B1611B9800C0E41B130E7F150F CXCB0066R0BC3C2BCA82B0048B8A82B001CB1A03BA3EAB0016B10C0B0À$A3EAB0004B04EAB00307F13EF CXCB0067$R(B10BBB0460C0D56B06A0C0D18BD01DB1306B022DB000AB80CDB1AFAB0460C0D567F13DF CXCB0068RR(BC00DBCC20C0E8CBCC20C0E8CBCC20C0E8CB020EB0006B95A0C0E8DB1303BDF767F0D1F CXCB0069R&B060EB15FABCC01BC402BEAA0C0E54B01BEB&À.0460C0740B06A0C0D18BC106BC00D7F11DF CXCB0070.R(BC184B020BB0006B9DB0B1607B060BB16FCB1604B8070B1602B8090B1306B022D7F19AF CXCB0071RR(B000AB80CDB1AEFB0460C0D56B04DDB0460C0740BC18AB0226B02F2B0207B000F7F156F CXCB0072R B95A8B0004B1305B0607B1337BÀ80226B0006B10F8B0207B0270BA1CABC2C7B02017F1B7F CXCB00738R(B001CB04FBB0641B16FDBDAA6B0001B0273BD326B0002B098CBDAA0C0E44B02727F146F CXCB0074RR(B05EAB0274BCAA0C0E58B027EBCAA0C0E5AB0278B0202B0148BA08AB05C2BCA827F10CF CXCB0075RB0276B2FD7BD02ABÀB0271B1610BAAA0C0E4EB0284B0204E000A0000B0202B01487F1DBFCXCB0076BR#BA08ABC4A0C0E5CB06AAB02BEB060CB16EEB0460C0788B04C2B0204E000B00007F180FCXCB0077RR(B06AAB02BEB0460C0788B046AB02C4B04EAB0002B1007BEAA0C0E52B01BEB10037F154F CXCB0078RBEAA0C€L%0E50B01BEBDAA8B0005B00C1B0460C06DEBD359B7360C0E3BB1603B06A07F123F CXCB0079LR(C0A66B1003B06A0C0CC6BC182B9800C0E41B167CB06A0C0DFAB04C5BC0C7BC1097F125F CXCB0080RR(B9800C0E42B162AB0585B06A0C0DFAB06A0C0CECB166EB06A0C0DFAB06A0C0CEC7F0E8F CXCB0081RT@R(B1602B06A0C0DFAB9800C0E41B13F0B9800C0E8DB1661BD34DB1308B0286B00267F169F CXCB0082RR(B1A5EBC005B06A0C0A54BA1AAB000EB0286C062AB1A56BC1C3BC244BC105B06A07F132F CXCB0083RN&C0CC6B06C2BDD82B0605B16FAB106EB9800C0E43B1647B0585B06A0C0DFABD0007F127F CXCBNÀ0084R(B1342B9800C0E43B16F8B06A0C0DFAB9800C0E43B13F3B0605B04C2B04C1B98007F167F CXCB0085RR(C0E41B1304B9800C0E8DB1631B1009B06A0C0CACBC082B132EB0282B0063B152B7F17EF CXCB0086RD!B6085B1129BC1C3BC244BD34DB130ABC001B8005B1202BC005BC045B06A0C0A547DÀF178F CXCB0087R(BA1AAB000EB1003B8045B1201BC045B0286C062AB1A15B06A0C0DFAB9800C0E437F16EF CXCB0088RR(B1604B9019B1605B06A0C0DFABDD80B0605B16F4BC101BC082B132BBDDA0C0E8D7F121F CXCB0089R:B0602B10FAB0460C0D50B0460C0D56B8A86B0026B14FBBA006B18F9B:À8A80B00267F16DF CXCB0090R(B1BF6B045BBC10BB06A0C0DFAB06A0C0CACBC0C1B13EEB04C2B9800C0E3DB16027F0E8F CXCB0091RR(B06A0C0CC6BC1AAB0010B13E5BA0C3B8583B1BE2BA183BC196BA182B0454B020B7F130F CXCB0092R0C0E60B1002B020BC0E36BC1E8B0002BC268B0000B0589B0À$C049B9831C0E41B16FD7F170F CXCB0093$R(B04C3B3CE0C0E49B06C3BB0E0C0E3EBDC43B06C4BB120C0E3EBDC44BDC60C0E417F0D1F CXCB0094RR(BDC7BBDC7BBDC7BBDC7BBD460C0E8DB1000B9819C0E3BB160DB06A0C0A66B98007F0B7F CXCB0095R&C0E41B16B2B06A0C0CACBC141B13B0BCA86B&À.01BCB04C6B100FB06A0C0CC6BC1827F10DF CXCB0096.R(B9800C0E41B16A4B06A0C0CACBC141BC001B06A0C0A54BCAAAB000EB01BCB02017F135F CXCB0097RR(C0BAAB0202B4845B0203B5820B9829BFFFFC0E41B1616BD0B9B06C2BD0B9B06C27F11CF CXCB0098R BD0F9B06C3BD0F9B06C3B0200CÀ80E60B0201C0B5CBD310B1308B80B0B1303B05C07F168F CXCB00998R(B05C0B10F9B80F0B16FCBC050BC268B0000B0451B0200B0030B06A0C0BECBDE767F157F CXCB0100RR(B0607B15FDB06A0C0D72B10F6B0200B0030B06A0C0BECBD036B06A0C0C26B06077F16CF CXCB0101RB15FBB06A0C0D72BÀB 10F4B0200B000CB06A0C0BECBD036B06C0B0607B1306BD0367F160F CXCB0102BR(B06C0B06A0C0C6CB0607B15F6B06A0C0D72B10EFB0200B0010B06A0C0BECBD0367F150F CXCB0103RR(B06A0C0C4CBDE60C0E8DB0607B15F9B06A0C0D72B10F2B0A15B0200B0030B06A07F159F CXCB0104RC0BECB€L%D016B0940B06A0C0C26BD036B0A40B0940B06A0C0C26B0647B15F5B06A07F15EF CXCB0105LR(C0D72B10EEBC1C5B1313B8007B1101BC1C0B6147BC04BBCE60C0E8CBC006B06A07F12FF CXCB0106RR(C0C46BCE60C0E8CBCE42BCE43BDE60C0E8DBA1AAB01BCB0451B0460C0788BD3B07F0C5F CXCB0107RT@R(B098EBDE70B060EB15FDB045BB9800C0E49B1109B9800C0E3CB1603BD020C0E407F13DF CXCB0108RR(B1005BD020C0E3DB1002BB020C0E3EBDE40B045BB020EB0004B1002B020EB00027F1A2F CXCB0109RN&BD300B0A40B094CB980CC0E49B1102B022CB0700BB320C0E3EBDE4CB060EB15F37F13BF CXCBNÀ0110R(B045BBC040B0740B020EB0008BA24EBC341B0609B04CCB3F20C0E49B06CDBB3607F14DF CXCB0111RR(C0E3EBD64DB060EBC34CB16F5BC301B1101B1004B0609BD660C0E40B060EB06097F153F CXCB0112RD!BD660C0E8DB060EB15FBB0229B0008B045BBCA8BB00D8B04C1B06A0C0DFAB06A07DÀF108F CXCB0113R(C0D02B1615B3860C0E49BA080BC042B10F6BCA8BB00D8B04C1B04C2B06A0C0DFA7F12AF CXCB0114RR(B06A0C0CECB1607BC302B0A42BA080B0A41B09CCBA04CB10F4BC2EAB00D8B045B7F10CF CXCB0115R:B9800C0E36B1108B9800C0E3AB150FB7020C0E36BB020C0E49B1008B:À9800C0E3F7F176F CXCB0116R(B1507B9800C0E3EB1104B7020C0E3EB0980B8000B045BBC38BB06A0C0CC6B0A817F164F CXCB0117RR(B02A6BC1A6B0020B0226B0012B9800C0E41B1602BC189B1003B9800C0E8DB160B7F1A2F CXCB0118R0BC2CEB020DB01C0BA34AB0203B01E8BA0CAB045BB0200C0À$0EC0B1006B0200C0EC47F14BF CXCB0119$R(B1003B0200C0EC8B1000BC268B0000B06A0C0C1AB06A0C0D6CB0460C0788B04E87F18FF CXCB0120RR(B0008B1009B61AAB01BCBDE60C0E8DBDE60C0E8DBCA20C0E46B0008B6268B00007F128F CXCB0121R&BCA09B0002B04CCBD3A8B0005B1606B026CB&À.0004B04E8B000CB04E8B0010BCA0C7F168F CXCB0122.R(B000ABD020C0E5EB100ABCA20C0E4AB0002B04E8B0008BCA20C0E4CB000ABD0207F150F CXCB0123RR(C0E5FBC328B0008B1308BC328B000CB05CCB8A0CB0010B1202B020CB0001BCA0C7F16DF CXCB0124R B0006B042AB0198B1309BC2EABÀ800D6B04EAB0002BC02AB019CBC06AB019EB045B7F14BF CXCB01258R(BC1E8B0002BC268B0000B045BBC007B1501B045BBD039B0607B045BBC22DB00107F18EF CXCB0126RR#B04EAB0040B06A0E00030000BD01DB0880B0580B1306B06A0E00050000B16097F269F CXCB0127RBCA01B0002B1003BÀB06A0E00060000B1603B06A0E00040000BD000B02CFB03807F276F CXCB0128BR(B4153B4349B464CB0D2BB3039B2D2CB3E22B0A00B0001B000AB0014B2028B01007F1BAF CXCB0129RR(B0001B0002B0004BFFF8B80A0B004EB4620BFFFEB4845B5820C0BAAB4E42B53207F147F CXCB0130RC0B88B€L%4E43B5320C0B70B4E43B5520C0B70B4E4DB4220C0BAAB4E4DB5320C0BAA7F124F CXCB0131LR(B4E50B5320C0BC6B4E58B2020C0B88B0000C0816C0D4AC0D4AC0AD8C091CC0D4A7F134F CXCB0132RR(C0D4AC0D4AC0D4AC0D4AC0D4AC07E2C093AC0D4AC0D4AC092AC0918C0930C09227F101F CXCB0133RT@R(C0D4AC0856C0D4AC0888B0320B433FB0320B533FB0320B563FB0420B443FB200E7F17CF CXCB0134RPB4144B4452B4553B5320B5354B4F50B3A20I0000C$XCBL I0138G$XLOG 7F26BF CXCB0135P:I019CCXDATA I062AC$XLOD I0668C$RUDP 7F6AFF CXCB0136:: 10/05/82 1À&8:12:12 SDSLNK 3.4.0CXCB0137&.EOD&,MFP P=@VOLBLD2.S$SYSLIB.RCBTSKD,D=Y,W=Y , .ELSE # D CM R=ME,M="COBOL P2272 DID NOT APPLY. VERSION SHOULD BE 3.4.0" D .ENDIF# .ELSE $ "CM R=ME,M="COBOL P2272 DID NOT A"À PPLY. ERRORS IN PATCH FILE" .ENDIF$ .ENDIF% *$'J#*--------------------------------------------------------------------*JD*=P2727 LJJ 03/04/83 STR #14787 DX10 COBOL 3.4.0 RUNTIMED* '* READ NEXTÀ8 OF DELETED REL REC RECORDS LEAVES THE RECORD LOCKED8H* AND TIES UP SPACE IN THE RECORD LOCK TABLE IN THE SYSTEM TABLE H* AREA.#* '>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CRLIO+>07FC,> V=@$UPA+@$CRLIO+>À 0910, D=@$UPA+@$CRLIO+>0904, R=Y$EC'*$'J#*--------------------------------------------------------------------*JD*=P2752 LJJ 03/14/83 STR #14852 DX10 COBOL 3.4.0 RUNTIMED* '* PRINTÀ>ER PROBLEMS WITH NULL PAD CHARACTERS - CHANGE THEM TO CR. >H* NOTE: THIS PROBLEM MAY NOT BE SOURCE FIXED IN FUTURE RELEASES. H* '>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXIO+>0408, > V=@$UPA+@$CXIO+>0762,À D=@$UPA+@$CXIO+>0757, R=Y$EC'>MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXIO+>0414, > V=@$UPA+@$CXIO+>0762, D=@$UPA+@$CXIO+>0757, R=Y$EC'2MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CX2ÀIO+>049A, V=@$UPA+@$CXIO+>0762, D=@$UPA+@$CXIO+>0757, R=Y$EC'*$'J#*--------------------------------------------------------------------*J>*=P2952 HMM7/28/83 STR #13347 DX10 COBOL 3.4.0 RUNTI>ÀME* 'J* ! COBOL ISSUES A TIME DELAY SVC FROM PROCEDURE, SO WRITE PROTECTINGJ,* FOR PROCEDURE GIVES 0B TASK ERROR. ,* ':* === THIS PATCH IS A CORRECTION TO PATCH #2125 === : * === AN ADDITIONAL CORRECT À(€%€%ION IS CONTAINED IN PATCH #3234 === (* 'F* THIS PATCH WILL FAIL VARIFICATION IF P3234 HAS BEEN APPLIED, F6* THEREFORE, THE ERROR CHECK HAS BEEN REMOVED. 6* ' .IF @$CRTIO, NE, "$CRTIO" MPI PF=@$UPF, MT=À,PROC, MN=@$UPN, ADR=@$UPA+@$CXRFC+>0044, ,$ V=(>2FE0,@$UPA+@$CXRFC+>0076), $ D=(>2FEA,>03F2), R=(N,N)!* EC& .ENDIF% *$'J#*--------------------------------------------------------------------*J*=P3À@ 234 HMM 11/01/83 STR #13347 DX10 COBOL 3.4.0 RUNTIME@* 'J* ! COBOL ISSUES A TIME DELAY SVC FROM PROCEDURE, SO WRITE PROTECTINGJ,* FOR PROCEDURE GIVES 0B TASK ERROR. ,* '$* === THIS PATCH IS A CORRECTIO$À N TO PATCH #2952 === * ' .IF @$CRTIO, NE, "$CRTIO" >MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXRFC+>0044, > V=(>2FEA,>03F2), D=(>2FEA,>03EA), R=(N,N)!EC& .ENDIF% *$' *------- ÀB-------------------------------------------------------------*BB*=P3485 HMM2/21/84 STR #13347 DX10 COBOL 3.4.0 RUNTIMEB* 'J* ! COBOL ISSUES A TIME DELAY SVC FROM PROCEDURE, SO WRITE PROTECTINGJ* FOR PROCEDURE GÀ IVES 0B TASK ERROR. * 'F* === THIS PATCH WAS MEANT TO REPLACE PATCHES #2125 AND #3234. F>* HOWEVER, BECAUSE IT IS POSSABLE TO HAVE APPLIED P2125 >B* BUT NOT P3234 BEFORE RUNNING THIS PATCH BATCH STREAM THISBÀB* PATCH WOULD FAIL.THEREFORE, PATCHES 2125 AND 3234 HAVE B@* BEEN REINSTITUTED, AND THIS PATCH IS NO LONGET NEEDED. @* ' .IF @$CRTIO, NE, "$CRTIO" >MPI PF=@$UPF, MT=PROC, MN=@$UPN, ADR=@$UPA+@$CXRFC+>0044, >À$ V=(>2FE0,@$UPA+@$CXRFC+>0076), $ D=(>2FEA,>03EA), R=(N,N)!EC& .ENDIF% *$'J#*--------------------------------------------------------------------*J8* *** PATCHES ABOVE THIS COMMENT SHIPPED WITH COBOL 38À.4.0 *J#*--------------------------------------------------------------------*JJ#*--------------------------------------------------------------------*JH * *** DELETE SYNONYMS THAT ARE UNIQUE TO THIS BATCH STREAM *** *HÀJ#*--------------------------------------------------------------------*J* '.SYN $CID="",$CPATCH="" D .SYN $CRLIO="",$CRTIM="",$CRTIO="",$CXIO="",$CXPAT="",$CXRFC="",D& $CXST="",$OV="",$SYS="",$VERSN=""& Q$SYN % ÀSDT &EBATCH LS=YES,!0 TEXT="@$E$C ERRORS ON COBOL PATCH STREAM", 0 CODE=@$E$C J#*--------------------------------------------------------------------*JB* NEXT AVAILABLE PATCH LOCATION FOR DX10 RUNTIME = >0058 *B€<* NEXT AVAILABLE PATCH LOCATION IN C$CID = >0016 *<J#*--------------------------------------------------------------------*J---------------------------*JB* NEXT AVAILABLE PATCH LOCATION FOR DX10 RUNTIME = >0058 *BÿÿEOD †&DXO3270 D ††«OÀˆÛXÀˆÛL†README P«S,¸Àl×EÀˆÛM@(" DX10 3.6 3270 ICS 2.2 PATCHES "(DPT3270 $H"PATCH 1581 INCREASES I/O THRESHOLD AND WAS SHIPPED WITH OBJECT MEDIAHL$PATCH 3370 IS OPTIONAL AND CAUSES CONTROL UNIT TO IGNORE >FF CHARACTERS L SENT IN DATA STREAM BY HOSÀT.(PPR3270 $$THERE ARE NO PATCHES IN PPR3270.$(PSC3270 $J#PATCH 3372 IS OPTIONAL AND ALLOWS MDT BIT FOR SINGLE FIELD TO BE RESETJ4 WHEN ARGUMENT 6 OF ICSFIL ROUTINE IS SET TO 2. 4 (REQUIRES PATCH 337À1 IN TSK3270) P&PATCH 3449 IS OPTIONAL AND ALLOWS PSC USERS TO CALL THE ICSATR ROUTINE WITH PJ#0 IN THE NUMBER OF ATTRIBUTE CHARACTERS TO GET ARGUMENT 3 AND SET THE JB CURSOR POSITION IN ARGUMENT 5. (REQUIRES PATCH 3450 IN THE TSK32BÀ70PATCH FILE).PPATCH 3452!FIXES A PROBLEM WHERE ICSOPN WAS INCORRECTLY CLEARING CHANNEL 01, PF!WHICH MIGHT BELONG TO A PSC EMULATOR, CAUSING IT TO ABORT WITH AN F>GET SVC (>1D) ERROR OF >FF. R1 SHOULD HAVE BEEN INITIALIZED >ÀWITHJ$THE RUN ID OF THE USER TASK BEFORE THE CLEAR CHANNEL ROUTINE WAS CALLED.J(TSK3270 $D PATCH 2247 IS OPTIONAL TO PREVENT CONVERSION OF NULLS TO BLANKS DB PATCH 3361 PREVENTS PSC EMULATOR FROM ABORTING WITH SVC ERROR FFBÀ OP 35 .EVEN THOUGH USER TASK IS STILL IN SYSTEM. .J#PATCH 3369 PREVENTS SELECTS FROM BEING IGNORED IF PSC USER TASK CLOSESJ&BEFORE PROCESSING DATA FROM HOST. &B PATCH 3371 IS OPTIONAL AND ALLOWS MDT BIT FOR SINGLE FIELD TO BEBÀ RESET 4 WHEN ARGUMENT 6 OF ICSFIL ROUTINE IS SET TO 2. 4& (REQUIRES PATCH 3372 IN PSC3270) &J#PATCH 3400 FIXES PROBLEM WHERE PSC EMULATOR HANDLES READ MODIFIED FROMJ<HOST INCORRECTLY. ICSTMO COMPLETES PREMATURELY AND USER TA<ÀSK GETS $BAD BUFFER WITH ICSGET COMMAND. $J#PATCH 3417 UNFORMATTED SCREEN SHOULD BE TRANSMITTED TO HOST WITH ENTERJ KEY UNCONDITIONALLY. P&PATCH 3450 IS OPTIONAL AND ALLOWS PSC USERS TO CALL THE ICSATR ROUTINE WITH P€J#0 IN THE NUMBER OF ATTRIBUTE CHARACTERS TO GET ARGUMENT 3 AND SET THE JF!CURSOR POSITION IN ARGUMENT 5. (REQUIRES PATCH 3449 IN THE PSC3270FPATCH FILE).(MPI PF=PFIL,MT=PR,MN=P@$PROT,ADR="@DNOPIF+0092", 6 V=(>000A,ÿÿ†TSK3270 Pµ«¨H¦Àl×[ÀˆÛO@J#*--------------------------------------------------------------------*JJ * PATCH FILE TSK3270DX10 3.6 ICS 3270 2.2.0 LAST UPDATE 02/21/84 JJ#*--------------------------------------------------------------------*J* INSTRUCTION€S: >* THIS PATCH FILE PATCHES ALL 3270 ICS REL 2.2 ICS TASKS.>F!* THE FOLLOWING SYNONYMS MUST BE DEFINED PRIOR TO APPLYING THESE F* PATCHES. ""* $$DSC$ = SYSTEM DISK NAME"(* $CPGF =.S$COMMPF(*@$* $CLST = LISTING DIRECTORY $J#*--------------------------------------------------------------------*J* NOTE:"B* THIS PATCH STREAM SHOULD ONLY BE EXECUTED DURING THE TASKB,* INSTALLATION PROCESS OR BY USING THE ,€'PT3270' PROC. REFER TO H* THE DX10 3270 INTERACTIVE COMMUNICATIONS SOFTWARE (ICS) OBJECT HD* INSTALLATION MANUAL PART NO. 2250942-9701 FOR A DEFINITION DB* AND DESCRIPTION OF THE PROMPTS USED BY THE PROC 'PT3270'.BD F@J#*--------------------------------------------------------------------*J>* THE LINKMAP IS ASSUMED TO BE UNDER .LST.TSKMAP,>D * WHERE IS THE DIRECTORY NAME ENTERED FOR THE 'LISTINGD"* DIRECTORY NAME' PROMPT IN THE"À ICS SCI PROCEDURE 'BET'. J#* IF IT IS NOT THERE, EDIT THIS FILE SO THAT THE VALUE OF THE SYNONYMJ@* 'PSCCOD' IS THE LOAD POINT OF THE MODULE 'PSCCOD' ON THE @F"* .S$COMMPF PROGRAM FILE, REMOVE OR COMMENT OUT THE LIFÀNEH"* BEGINNING WITH #SYN ICS,PSCCOD, AND EXECUTE THIS FILE AS INPUT TOHB* XB(EXECUTE BATCH) COMMAND, PLACING THE OUTPUT LISTING UNDER B * $CLST.BATLST.TSKPT327. <*---------------------------------------------------------<À-----------** '$* *** SPECIAL PROCESSING ***$@* IF THIS FILE IS NOT CURRENTLY ON THE INSTALLATION MEDIA @>* COPY THIS FILE USING 'CC'(COPY/CONCATENATE) REPLACING>.* THE CURRENT FILENAME 'DXO3270.PAT.TSK32.À70' J#*--------------------------------------------------------------------*JB* XB(EXECUTE BATCH) COMMAND, PLACING THE OUTPUT LISTING UNDER B * $CLST.BATLST.TSKPT327. 8*-----------------------------------------------------8€---------------*BATCH LS=YES"6*EDIT THE NEXT LINE IF THE LINKMAP DOES NOT EXIST.6#SYN ICS,PSCCOD .SYN ICS="" ".IF @$CPGF, EQ, "$CPGF" .SYN $CPGF=.S$COMMPF .ENDIF% .EVAL PATCH=@PSCCOD EC@J#*--------------------------------------------------------------------*J:* NOTE: THE FOLLOWING PATCHES SHIP WITH ICS REL 2.2.0 :J#*--------------------------------------------------------------------*J *=P2247 ERM 09/29/82 STR#1 À$3556 DX10 3270 ICS 2.2 ICSCRT $* ',* **** THIS IS AN OPTIONAL PATCH **** ,>* **** REMOVE COMMENTS (*) IN COL 1 TO ENABLE PATCH ****>* 'B* SOME HOST APPLICATIONS ARE SENSITIVE TO EMBEDDED NULL/BLANK B* DÀ@ISTINCTION. THIS PATCH PREVENTS THE CONVERSION OF EMBEDDED @6* NULL CHARACTERS TO BLANKS IN UNPROTECTED FIELDS6<* #SYN ICS,PSCCOD CRTCOD PATCH (NO PATCH AREA USED) <6*MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>108C,6À * V=>00F0,D=>00E0,C=>00E0*EC &* 'J#*--------------------------------------------------------------------*J6* END OF PATCHES FOR DX10 ICS 3270 RELEASE 2.2.0 6:*-------------------------------------------------------:À-------------*4* BEGIN PATCHES FOR DX10 ICS 3270 RELEASE 2.2.14J#*--------------------------------------------------------------------*J€%€%J*=P3361 CJT 01/07/84 STR#17223DX10 3270 ICS 2.2 ICSPSC.INITTASKJ* '* PÀD ROBLEM: PSC EMULATOR OCCASIONALLY ABORTS WITH *XPSC -CMXX,TMXX -D<* SVC ERR: FF, OP:35 EVEN THOUGH USER TASK IS STILL IN<* SYSTEM. F!* SOLUTION: CORRECTLY INITIALIZE POLL TASK STATUS SVC BLOCK WITH F* USER TASK RUNÀ ID IN INITTASK &* (PATCH AREA: PSCCOD+>44-->58) &J#*--------------------------------------------------------------------*J4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>EAA,4V=>D82D,D=>D820,C=>D820 EC'MPI PFÀ.=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>EAC,.,V=>0045,D=@PSCCOD+>4BDA,C=@PSCCOD+>4BDA ,EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>EAE,44V=@PSCCOD+>4BC4,D=@PSCCOD+>54FB,C=@PSCCOD+>54FB 4EC' MPI PF=@$CPGF,MT=P€"R,MN=PSCCOD,ADDR=@PSCCOD+>EB6,"V=>D820,D=>460,C=>460 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>EB8,40V=@PSCCOD+>4BDA,D=@PSCCOD+>44,C=@PSCCOD+>44 0EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>44, 46V=>0000,D=>C2A0,C=>C2A0 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>46, 4,V=>0000,D=@PSCCOD+>54FE,C=@PSCCOD+>54FE ,EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>48, 4V=>0000,D=>1606,C=>1606 EC'@4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>4A, 4V=>0000,D=>D820,C=>D820 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>4C, 4,V=>0000,D=@PSCCOD+>54BD,C=@PSCCOD+>54BD ,EC'&MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@&ÀPSCCOD+>4E, ,V=>0000,D=@PSCCOD+>54FB,C=@PSCCOD+>54FB ,EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>50, 4V=>0000,D=>D820,C=>D820 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>52, 4V=>0000,D=@PSCCO€D+>54BD,C=@PSCCOD+>54BD EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>54, 4,V=>0000,D=@PSCCOD+>5D2B,C=@PSCCOD+>5D2B ,EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>56, 4V=>0000,D=>460,C=>460 EC'@4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>58, 4,V=>0000,D=@PSCCOD+>0EBC,C=@PSCCOD+>0EBC ,EC'*$'J#*--------------------------------------------------------------------*J0*=P3369 CJT 11/16/83 STR#17238DX10 3270 0€ICS 2.2 ICSPSC * 'F!* PROBLEM : SELECTS MAY BE IGNORED SOMETIMES IF USER TASK CLOSES F8* NORMALLY BEFORE PROCESSING DATA FROM THE HOST. 8* 'H"* SOLUTION: TERM3270 NEEDS TO RELEASE PRBS FOR CASE WHERE PSC USER H@8* TASK CLOSES BEFORE PROCESSING DATA FROM THE HOST.8D* #SYN ICS,PSCCOD PSCCOD PATCH ( >1A BYTES PATCH AREA USED)DL$*---------------------------------------------------------------------* L&MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@&ÀPSCCOD+>1B50, V=>D52D,D=>0460,C=>460EC'6MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>1B52, 6V=>F,D=@PSCCOD,C=@PSCCODEC'0MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD, 0$V=(0000,0000,0000,0000,0000,0000),$À,D=(>C264,0006,>1307,>DA6D,>000F,>001D), , C=>B1A$ EC'2MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>C,2&V=(0000,0000,0000,0000,0000,0000),&,D=(>C929,>001A,>0006,>16F6,>D52D,>000F),, C=>AE1$ EC'MPÀ2I PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>18, 2V=>0000,D=>0460,C=>460EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>1A, 4,V=>0000,D=@PSCCOD+>1B54,C=@PSCCOD+>1B54 ,EC'**---------------------------------------*€"-----------------------------*"J*=P3371 WBW 01/10/84 STR#17242DX10 3270 ICS 2.2 ICSPSC.USRFLGT J* '* ',* **** THIS IS AN OPTIONAL PATCH **** ,>* **** REMOVE COMMENTS (*) IN COL 1 TO ENABLE PATCH ****>B@* 'H"* PROBLEM: UNDER THE CURRENT DESIGN USERS COULD NOT ERASE A SINGLE H$* FIELD AND RESET THE MDT BIT.$* 'F!* SOLUTION: ALLOW THE USER TO SPECIFY A 2 IN ARGUMENT 6 OF A FILLF(* CALL (ACTION TO FOLLOW PARAMETER)(À THAT WILL FILL A 8* SINGLE FIELD WITH NULLS AND RESET THE MDT BIT. 8* 'D * NOTE: THIS PATCH ALSO REQUIRES THAT PATCH 3372 IN THE PSC3270DD* PATCH FILE BE APPLIED TO THE PSC USER TASK FOR THIS FEATURED * TO À6WORK. BE ADVISED THAT WHENEVER THE FILL ROUTINE IS 6@* CALLED WITH AN ACTION TO FOLLOW ARGUMENT OF 2 THE FIELD@B* WILL BE CLEARED AND THE MDT BIT RESET NO MATTER WHAT DATAB&* IS PASSED IN THE FILL BUFFER.&* PATCHÀ AREA(>1C->42) J#*--------------------------------------------------------------------*J6*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>2122,6 * V=>C2A0,D=>0460,C=>0460*EC &.*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+.À >2124, 2* V=@PSCCOD+>4EC6,D=@PSCCOD+>1C,C=@PSCCOD+>1C2*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>1C,4 * V=>0000,D=>C2A0,C=>C2A0*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>1E,4* V=>0000À$,D=@PSCCOD+>4EC6,C=@PSCCOD+>4EC6$*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>20,4 * V=>0000,D=>D1A0,C=>D1A0*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>22,4(* V=>0000,D=@PSCCOD+>5D2D,C=@PSCCOD+>(À5D2D*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>24,4 * V=>51AD,D=>0000,C=>0000F!***THE ABOVE EC IS OMITTED BECAUSE VERIFICATION DATA IS UNCERTAIN F4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>24,4* V€= >0000,D=>91AD,C=>91AD *EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>26,4 * V=(>0000,>0000,>0000), * D=(>0024,>160B,>CF9A), * C=>D9B5#*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>2C,4$* V=(>0000,>0000,>0000,>0000), $$* D=(>C1AA,>0008,>CFA6,>0002), $* C=>0E06#*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>34,4 * V=(>0000,>0000,>0000), * D=(>CFAD,>0022,>069B), * C=>C914#@*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>3A,4.* V=>0000,D=@PSCCOD+>0A0A,C=@PSCCOD+>0A0A.*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>3C,4 * V=>0000,D=>0460,C=>0460*EC &*MPI PF=@$CPGF,MÀ$T=PR,MN=PSCCOD,ADDR=@PSCCOD+>3E,$.* V=>0000,D=@PSCCOD+>21F2,C=@PSCCOD+>21F2.*EC &4*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>40,4 * V=>0000,D=>0460,C=>0460*EC &.*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+.À>42,.* V=>0000,D=@PSCCOD+>2126,C=@PSCCOD+>2126.*EC &*$'J#*--------------------------------------------------------------------*JH*=P3400 CJT 01/25/84 STR#17340DX10 3270 ICS 2.2 ICSPSC.GETCOMH* ICSPSÀC D * PROBLEM: PSC EMULATOR HANDLES READ MODIFED COMMAND FROM HOST D@* INCORRECTLY. ICSTMO COMPLETES PREMATURELY. EXTRA PUTDATA@6* SVC SENDS UNMODIFIED SCREEN DATA TO USER TASK.6** SOLUTION: COMPLETE ICSTMO IN GETCOM O*À NLY WHEN DATAFL IS SET AND@* SKIP RESPONSE TO USER TASK FOR READ MODIFIED FROM HOST.@"* ( PSCCOD PATCH >05A-->086) "J#*--------------------------------------------------------------------*J MPI PF=@$CPGF,MT=PR,MN=PSCCOD, À ADDR=@PSCCOD+>AFC,V=>D260,D=>1007,C=>1007 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>B66,4V=>C809,D=>460,C=>460 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>B68,4V=@PSCCOD+>4E9C,D=@PSCCOD+>0À 5A,C=@PSCCOD+>05A EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>05A,4V=>0000,D=>C809,C=>C809 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>05C,4,V=>0000,D=@PSCCOD+>4E9C,C=@PSCCOD+>4E9C ,EC'À4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>05E,4V=(>0000,>0000),D=(>1308,>D260),C=>C168 #EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>062,4,V=>0000,D=@PSCCOD+>5D2A,C=@PSCCOD+>5D2A ,EC'MPI À0PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>064,0&V=(>0000,>0000,>0000,>0000,>0000),&&D=(>0989,>8749,>1603,>04FE,>069B),&C=>9AA6 #EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>06E,4 V=>0000,D=@PSCCOD+>97E,C=@PSCC ÀOD+>97E EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>070,4V=>0000,D=>0460,C=>0460 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>072,4,V=>0000,D=@PSCCOD+>0B6A,C=@PSCCOD+>0B6A ,EC'MPI PF=@$CÀ,PGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>2392, ,V=>069B,D=>0460,C=>0460 EC'6MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>2394, 64V=@PSCCOD+>17B8,D=@PSCCOD+>0074,C=@PSCCOD+>0074 4EC'$MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR$À=@PSCCOD+>074,V=>0000,D=>069B,C=>069B EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>076,4,V=>0000,D=@PSCCOD+>17B8,C=@PSCCOD+>17B8 ,EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>078,4V=>0000,D=>C26À0,C=>C260 EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>07A,4,V=>0000,D=@PSCCOD+>4BD6,C=@PSCCOD+>4BD6 ,EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>07C,4V=(>0000€%€%,>0000,>0000), D=(>0969,>1802,>0460À),C=>150B #EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>082,4,V=>0000,D=@PSCCOD+>23AA,C=@PSCCOD+>23AA ,EC'4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>084,4V=>0000,D=>0460,C=>0460 EC'À4MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>086,4,V=>0000,D=@PSCCOD+>23FC,C=@PSCCOD+>23FC ,EC'*$'J#*--------------------------------------------------------------------*J0*=P3417 CJT 01/27/84 STR#17365DX10 3270 0ÀICS 2.2 ICSCRT.READMOD * '@* PROBLEM: UNFORMATTED SCREEN SHOULD BE TRANSMITTED TO HOST @&* WHETHER OR NOT MDT BIT IS SET.&<* SOLUTION: READMOD SHOULD PACK DATA IN TRANSMIT BUFFER<"* UNCONDITIONALLY FOR UNFORMA"ÀTTED SCREEN."* ( CRTCOD PATCH >000-->012) "J#*--------------------------------------------------------------------*J6MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>23C4, 6V=>C160,D=>460,C=>460 EC'MPI PF=@$CPGF,À(MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>23C6, (2V=@PSCCOD+>6F4A,D=@PSCCOD+>000,C=@PSCCOD+>000 2EC'4MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>000,4V=>0000,D=>C160,C=>C160 EC',MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD,À +>002, ,V=>0000,D=@PSCCOD+>6F4A,C=@PSCCOD+>6F4A ,EC'4MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>004,4V=(>0000,>0000),D=(>8825,>0002),C=>8827 #EC'0MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>000€8,,V=>0000,D=@PSCCOD+>6798,C=@PSCCOD+>6798 ,EC'4MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>00A,4V=(>0000,>0000),D=(>1302,>0460),C=>1762 #EC'4MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>00E,4@,V=>0000,D=@PSCCOD+>23C8,C=@PSCCOD+>23C8 ,EC'4MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>010,4V=>0000,D=>0460,C=>0460 EC'4MPI PF=@$CPGF,MT=PR,MN=CRTCOD,ADDR=@PSCCOD+>012,4&V=>0000,D=@PSCCOD+>23FC,C=@PSCCOD+>2&€3FC EC'J#*--------------------------------------------------------------------*JH*=P3450 CJT 02/13/84 STR#17468DX10 3270 ICS 2.2 ICSPSC.USRATRH* '>* *** THIS IS AN OPTIONAL PATCH REMOVE THE COMMENTS (*)>@@0* *** IN COLUMN ONE TO APPLY THIS PATCH. 0* 'L* " PROBLEM: UNDER THE CURRENT DESIGN USERS COULD NOT POSITION CURSOR. L* 'B* SOLUTION: ALLOW THE USER TO CALL THE ICSATR ROUTINE WITH B* 0 IN THE NUMBER OF ATÀ TRIBUTE CHARACTERS TO GET >* ARGUMENT 3 AND SET THE CURSOR POSITION IN ARGUMENT 5.><* (NONZERO ENTRY IN ARGUMENT 3 WILL NOT AFFECT CURSOR<8* POSITION. CURRENT CURSOR POSITION WILL ALWAYS BE8* RETURNED IN ARGUMENTÀ 5) H* NOTE: PATCH 3449 IN THE PSC3270 PATCH FILE MUST ALSO BE APPLIEDH,* IN ORDER TO IMPLEMENT THIS FEATURE ,* '"* ( PSCCOD PATCH >088-->096) "B *---------------------------------------------------------------BÀ -----* 6*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>1D70,6 * V=>C313,D=>0460,C=>0460 *EC &6*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>1D72,6** V=>133D,D=@PSCCOD+>88,C=@PSCCOD+>88**EC &*MPI PF=@$CPGF€(,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>0088,( * V=(>0000,>0000,>0000), * D=(>C313,>1302,>0460), * C=>D471#*EC &6*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>008E,6.* V=>0000,D=@PSCCOD+>1D74,C=@PSCCOD+>1D74.--2@*EC &6*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>0090,6 * V=>0000,D=>C812,C=>C812*EC &6*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>0092,6.* V=>0000,D=@PSCCOD+>4BD2,C=@PSCCOD+>4BD2.*EC &*MPI PF=@$CPÀ*GF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>0094,* * V=>0000,D=>0460,C=>0460*EC &6*MPI PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@PSCCOD+>0096,6.* V=>0000,D=@PSCCOD+>1DEE,C=@PSCCOD+>1DEE.*EC &*$' *-------------------------À8--------------------------------------------------- 8B* **NOTE** WHEN ADDING VARIABLES TO PATCH AREA ALWAYS ASSIGN BD* TO TASK PATCH AREA (ICSPT) AND NOT CODE PATCH AREA (ICSP2) D* '&* NEXT AVAILABLE PATCH WORD IN C&ÀRTCOD IS(@PSCCOD+>0014) B* NEXT AVAILABLE PATCH WORD IN CTLCOD IS(@PSCCOD+>0000) BB* NEXT AVAILABLE PATCH WORD IN PSCCOD IS(@PSCCOD+>0098) BB* NEXT AVAILABLE PATCH WORD IN PSTART IS(@PSCCOD+>0000) B* NÀ>EXT AVAILABLE PATCH WORD IN QCTCOD IS(@PSCCOD+>0000) >B* NEXT AVAILABLE PATCH WORD IN STACOD IS(@PSCCOD+>0000) B@* NEXT AVAILABLE PATCH WORD IN ICSPSC IS(ICSPT+>0000) @.* NEXT AVAILABLE PATCH WORD IN ICSCRT IS.À(ICSPT+>0000) * '* REMINDERS: .* UPDATE RELEASE INFORMATION IF NEEDED .R'*---------------------------------------------------------------------------- R * DELETE SYNONYMS *----------------------------- €4----------------------------------------------- 4.SYN PSCCOD=""!@CM MSG="@$E$C ERRORS IN PATCH STREAM @$CLST.BATLST.TSKPT327" @ EBATCH% combined together on the magnetic media for easierP restoration of a single direct ÿÿ†PSC3270 P ³q™ÜÀl×hÀˆÛR@J#*--------------------------------------------------------------------*JJ* PATCH FILE PSC3270 DX10 3.6 ICS 3270 2.2.0 LAST UPDATE 02/20/84 JJ#*--------------------------------------------------------------------*J* THIS BATCH À:STREAM PATCHES THE DX10 ICS 3270 REL 2.2 PSC USER TASK:* 'D* NOTE:PATCHES SHOULD BE APPLIED TO EACH PSC USER TASK AFTER D<* THE LINK EDIT PROCESS. THE LINKMAP OF THE USER TASK <** NEEDS TO BE SAVED FOR INPUT TO 'PTPS*ÀC' F!* THE FOLLOWING SYNONYMS MUST BE DEFINED PRIOR TO EXECUTING THIS F* BATCH STREAM * SYNONYM VALUE &* $CVNEMULATOR OBJECT PATHNAME&&* $CPGF PSC USER PROGRAM FILE &* $CTN PSC USER TASK NAMEÀ** $CMAP PSC USER LINKMAP PATHNAME *$* $CLST LISTING ACCESS NAME $J#*--------------------------------------------------------------------*JJ#*--------------------------------------------------------------------*JÀ * ! * (* *** SPECIAL PROCESSING *** *(D* IF THIS FILE IS NOT CURRENTLY ON THE INSTALLATION MEDIA *DD* COPY THIS FILE USING 'CC' (COPY/CONCATENATE) REPLACING *D0* THE CURRENT FILE WITH FILENAME 'DXO3270.P0€AT.PSC3270' *>* BEFORE EXECUTING 'PTPSC'(PATCH ICS PSC USER TASK) *>J#*--------------------------------------------------------------------*JBATCH LS=YES"#SYN T1,PSCPAT!#SYN T1,ICSOPN!#SYN T1,IPCSUB!#SYN T1,ICSCLS!#SYN T1,ICSXMT!#SYN T1,ICSTMO!#SYN T1,ICSFIL!#SYN T1,ICSGET!#SYN T1,ICSATR!.SYN $E$C=0 ".SYN T1 = """J#*--------------------------------------------------------------------*J PN@.IF "@PSCPAT",EQ,"NONE" * 'D* THIS CAN HAPPEN IF THE USER HAS EXPLICITLY INCLUDED EACH PSCDF* RUNTIME MODULE BUT FAILED TO INCLUDE (PSCPAT) MODULE FOR PATCHF* AREA$$ CM MSG="FATAL ERROR IN @$CLST" $ EBAÀ>TCH TEXT="NO PSC PATCH MODULE IN LINK CONTROL FILE",CODE=1> .ENDIF% J#*--------------------------------------------------------------------*J2* BEGIN PATCHES FOR ICS REL 2.2.1 OR ICS PSC 2&*-----------------------------------&À&---------------------------------*&J#*--------------------------------------------------------------------*JF*=P3372 WBW01/10/84STR#17242 DX10 3270 ICS REL 2.2 ICSFIL F* '.* *** THIS IS AN OPTIONAL PATCH REMOVE TH.ÀE COMMENTS (*)0* *** IN COLUMN ONE TO APPLY THIS PATCH. 0* 'H* PROBLEM: UNDER THE CURRENT DESIGN USERS COULD NOT ERASE A FIELDH* AND RESET THE MDT BIT.* '.* SOLUTION: ALLOW THE USER TO CALL THE IC.À $FIL ROUTINE WITH :* ARGUMENT 6 (ACTION TO FOLLOW) SET TO 2. THIS WILL:<* CAUSE PSC TO ERASE THE FIELD AND RESET THE MDT BIT.<* 'H* NOTE: PATCH 3371 IN THE TSK3270 PATCH FILE MUST ALSO BE APPLIEDH* IN ORÀ"DER TO IMPLEMENT THIS FEATURE "J#*--------------------------------------------------------------------*J* '4*MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@ICSFIL+>0052,4 * V=>13F7,D=>1000,C=>1000*EC &*$'*---------À@-----------------------------------------------------------*@F*=P3449 CJT02/13/84STR#17468 DX10 3270 ICS REL 2.2 ICSATR F* '>* *** THIS IS AN OPTIONAL PATCH REMOVE THE COMMENTS (*)> * *** IN COLUMN ONE TO APPL €Y THIS PATCH. * 'D* PROBLEM: UNDER THE CURRENT DESIGN USERS COULD NOT POSITION D* CURSOR. B* SOLUTION: ALLOW THE USER TO CALL THE ICSATR ROUTINE WITH B8* 0 IN THE NUMBER OF ATTRIBUTE CHARACTERS TO GET 8@>* ARGUMENT 3 AND SET THE CURSOR POSITION IN ARGUMENT 5.><* (NONZERO ENTRY IN ARGUMENT 3 WILL NOT AFFECT CURSOR€%€%<8* POSITION. CURRENT CURSOR POSITION WILL ALWAYS BE8 * RETURNED IN ARGUMENT 5) * NOTE: PATCH 3450 À2IN THE TSK3270 PATCH FILE MUST ALSO BE APPLIED2,* IN ORDER TO IMPLEMENT THIS FEATURE ,J#*--------------------------------------------------------------------*J4*MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@ICSATR+>0032,4* V=>C010,DÀ=>0460,C=>0460*EC &4*MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@ICSATR+>0034,4"* V=>1504,D=@PSCPAT,C=@PSCPAT"*EC &.*MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@PSCPAT,.4* V=(>0000,>0000,>0000,>0000,>0000,>0000,0000),4* À4 D=(>C010,>1206,>C0AA,>0008,>CB12,>0066,>0460), 4* C=>DDA0#*EC &6*MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADDR=@PSCPAT+>000E, 6** V=>0000,D=@ICSATR+>3E,C=@ICSATR+>3E**EC &0*MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADDR=@PSCPAT+>000À10, * V=>0000,D=>0460,C=>0460*EC &6*MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADDR=@PSCPAT+>0012, 6** V=>0000,D=@ICSATR+>36,C=@ICSATR+>36**EC &*$'B *---------------------------------------------------------------B€------* F*=P3452 WBW 02/14/84 STR#17472 DX10 3270 ICS 2.2 ICSOPN F* 'J* ! ICSOPN WAS INCORRECTLY CLEARING CHANNEL 01, WHICH MIGHT BELONG TOJH* A PSC EMULATOR, CAUSING IT TO ABORT WITH AN GET SVC(>1D) ERROR H@H* OF >FF. R1 SHOULD HAVE BEEN INITIALIZED WITH THE RUN ID OF THE H@* USER TASK BEFORE THE CLEAR CHANNEL ROUTINE WAS CALLED. @** PSCPAT PATCH AREA (>0014 - >0020) *4MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@ICSOPN+>0096, 4V=À>06A0,D=>0460,C=>0460 EC'4MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@ICSOPN+>0098, 44V=@IPCSUB+>002E,D=@PSCPAT+>0014,C=@PSCPAT+>0014 4EC'4MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@PSCPAT+>0014, 4V=(>0000,>0000,>0000),ÀD=(>D06C,>004F,>06A0),C=>D683 #EC'4MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@PSCPAT+>001A, 4,V=>0000,D=@IPCSUB+>002E,C=@IPCSUB+>002E ,EC'4MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@PSCPAT+>001C, 4V=>0000,D=@ICSOPN+>015À A,C=@ICSOPN+>015A EC'4MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@PSCPAT+>001E, 4V=>0000,D=>0460,C=>0460 EC'4MPI PF=@$CPGF,MT=TA,MN=@$CTN,ADR=@PSCPAT+>0020, 4,V=>0000,D=@ICSOPN+>009C,C=@ICSOPN+>009C ,EC'À*$'J#*--------------------------------------------------------------------*J(* PLACE NEW PATCHES BEFORE THIS LINE(J#*--------------------------------------------------------------------*J(* NEXT AVAILABLE PATCH WORD IN PSC(ÀPAT IS(@PSCPAT+>0022) J#*--------------------------------------------------------------------*J * DELETE SYNONYMSJ#*--------------------------------------------------------------------*J$.SYN IPCSUB = "",ICSCLS="",ICSXMT=$€&"",ICSTMO="",ICSFIL="",ICSGET="", & ICSOPN="",PSCPAT="" J#*--------------------------------------------------------------------*J0CM MSG="@$E$C ERRORS IN PATCH STREAM @$CLST"0 EBATCH% I PF=@$CPGF,MT=PR,MN=PSCCOD,ADDR=@&ÿÿ†DPT3270 P³{ƒæÀl×sÀˆÛUBATCH LS=YES"J#*--------------------------------------------------------------------*JH"* PATCH FILE DPT3270 DX10 3.6.0 3270 ICS 2.2.0 LAST UPDATE 01/10/84HJ#*--------------------------------------------------------------------*JL@* INSTRUCTIONS: * '8* THIS PATCH FILE PATCHES THE COMMUNICATIONS DSR 84* ASSOCIATED WITH THE 3270 EMULATOR. COMMON 44* MODULES IN THE PARTIAL LINK "DSR3270", ARE 4,* PATCHED BY "DPTCMON".PROTOCOL DEPEN,ÀDENT** MODULES ARE PATCHED BY "DPT3270".** ':* ***S P E C I A L I N S T R U C T I O N S *** :* '>* THE FOLLOWING SYNONYMS MUST BE DIFINED BEFORE RUNNING >* THIS BATCH STREAM. * SYNONÀYMVALUE * '** $$DSC$ TARGET DISK VOLUME NAME ** ':* THIS PATCH FILE MUST BE APPLIED USING THE CURRENT:0* "PCS" PROC. "PCS" IS AVAILABLE ON EACH04* COMMUNICATION EMULATOR OBJECT INSTALLATION DI4€SK. 8* COPY THIS FILE TO DXO3270.DXCMO.D3270.P.DPT3270 8<* REPLACING THE CURRENT FILE BEFORE EXECUTING "ICC". <<* 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* '>* NOTE:FOR INITIAL INSTALLATIONS OF 3270 WHEN A BCAIM OR >(* FCCC HAS BEEN GENED IN THE SYSTEM (ÀPATCH 3370 REQUIRES THATB* AFTER PERFORMING THE ALGS COMMAND EXECUTE THE IUT,PUT, ANDBD* IICDR COMMANDS BEFORE THE PCS COMMAND. FAILURE TO REARRANGE DD* THESE COMMANDS WILL RESULT IN ERRORS BEING REPORTED BY THIS D* ÀPATCH STREAM. J#*-------------------------------------------------------------------* J .SYN IMAGE= @$$DSC$.S$IMAGES J#*-------------------------------------------------------------------* J$***** SYSTEM LINK DEFINED SYNONYM$€S J#*-------------------------------------------------------------------* J#SYN DSR,DSR3270#SYN COM,COMMCOM.SYN DSRCMON="@DSR3270" J#*-------------------------------------------------------------------* JL@(***** PARTIAL LINK DEFINED SYNONYMS(J#*-------------------------------------------------------------------* J#SYN C,LCBSCI #SYN C,CDBSCI #SYN C,MSBSCI #SYN C,DSRPAT #SYN FISR,FC3ISR#SYNÀ BISR,BCMISR .SYN C="",FISR="",BISR="" H"*------------------------------------------------------------------*H,***** CALCULATED USING DSR3270'S OFFSET,F"*------------------------------------------------------------------*FÀ.IF @LCBSCI,NE,"NONE"$.EVAL LCBSCI="@DSR3270+@LCBSCI"$$.EVAL MSBSCI="@DSR3270+@MSBSCI"$&.EVAL D$$PAT="@DSR3270+@DSRPAT+2"& .ENDIF% .IF @CDBSCI,NE,"NONE"$.EVAL CDBSCI="@DSR3270+@CDBSCI"$.EÀNDIF%H"*-----------------------------------------------------------------* H:* NOTE: THE FOLLOWING PATCHES SHIP WITH ICS REL 2.2.0 :H"*-----------------------------------------------------------------* H*=P1581 JLH09/30/81À$STR#11111 DX10 3.6.0 CSUPSY $* '** INCREASE I/O THRESHOLD AS REQUIRED ** '8MPI PF=@IMAGE,MT=OV,MN=@DSR,ADDR=@DSR3270+>0450, 8 V=>0600,D=>0F00,C=>0F00EC'*$' *----------------------------- À*-------------------------------------**@* THIS ENDS THE PATCHES WHICH ARE PART OF DX10 ICS REL 2.2.0 @H"*------------------------------------------------------------------*H<*---------------------------------------------------------<À---------*** BEGIN PATCHES FOR DX10 ICS REL 2.2.1*H"*------------------------------------------------------------------*HH"*------------------------------------------------------------------*H"*=P3370 WBW 01/10/84 STR#17"À&240 DX10 3270 ICS 2.2 CHARDET &* 'D * SOME HOST APPLICATIONS SEND A >FF (PAD) CHARACTER IN THE TEXTDF!* STREAM WHICH CAUSES A 3271 CONTROL UNIT TO NAK THE BLOCK. 3274 F4* AND 3276 CONTROL UNITS IGNORE THE PAD CHARACTER4À. THIS PATCH D * ALTERS THE CHARACTER DETECT ROUTINES FOR THE BCAIM, FCCC AND DB* COMIF TO ACCEPT THE PAD CHARACTER AND NOT REPORT AN ERROR. B* 'F!* NOTE:IF THIS IS AN INITIAL INSTALLATION OF 3270 AND A BCAIM OR F* À@FCCC HAS BEEN GENED IN THE SYSTEM THEN AFTER PERFORMING THE @D* ALGS COMMAND EXECUTE THE IUT,PUT, AND IICDR COMMANDS BEFORE DB* THE PCS COMMAND. FAILURE TO REARRANGE THESE COMMANDS WILL B(* RESULT IN ERRORS BEING REPORTED BY(À THIS PATCH. * '** THIS PATCH REQUIRES NO PATCH AREA ** '.IF "@BCMISR",NE,"NONE" @MPI PF=@$$DSC$.S$COMM.S$COMMPF,MT=TA,MN=BCCDBS,ADR=>278, @ V=>13DE,D=>1000,C=>1000EC' .ENDIF% .IF "@À FC3ISR",NE,"NONE" @MPI PF=@$$DSC$.S$COMM.S$COMMPF,MT=TA,MN=FCCDBS,ADR=>1F2, @ V=>131E,D=>1000,C=>1000EC' .ENDIF% .IF "@CDBSCI",NE,"NONE" 4MPI PF=@IMAGE,MT=OV,MN=@DSR,ADR=@CDBSCI+>17A,4 V=>1323,D€=>1000,C=>1000EC' .ENDIF% *$'H"*------------------------------------------------------------------*H** INSERT NEW PATCHES ABOVE THIS LINE*H"*------------------------------------------------------------------*H@.IF @$E$C,NE,"0" .EVAL $E$PCS="@$E$PCS+1" .ENDIF% (.SYN DCMON="@DSR",DSRCMON="@DSR3270"(:.SYN DSR3270="",COMMCOM="",COM="",LCBSCI="",CDBSCI="" ::.SYN MSBSCI="",DSRPAT="",D$$PAT="",BCMISR="",FC3ISC="" : * ASSIGN €: $PROT TO PROTOCOL NAME FOR COMMON, "DPTCMON" PATCHES : .SYN $PROT="3270" :CM MSG = "@$E$C ERRORS IN PATCH STREAM @$CLST.DPT3270" :EBATCH LS=YES !0* NEXT AVAILABLE PATCH AREA IS D$$PAT + >00 0DR=@PSCPAT+>0014, 4ÿÿ†PPR3270 P«V!.€%€%Àl×yÀˆÛW@J#*--------------------------------------------------------------------*JJ#* *** PATCH FILE PPR3270 DX10 3.6 ICS 3270 2.2.0 LAST UPDATE 02/21/84 JJ#*--------------------------------------------------------------------*J* INSTRUCTIO€NS: * '8* THIS PATCH FILE PATCHES THE 3270 BUILD PROCESS 84* PROCDURES BEFORE THE BUILD PROCESS BEGINS. 4:* THE DISK PATCHED IS THE OBJECT INSTALLATION DISK. :0* $CVN REPRESENTS THE DISK TO BE PATCHED.02@* 'J#*--------------------------------------------------------------------*J:* ***S P E C I A L I N S T R U C T I O N S *** :* '<* REPLACE THE CURRENT PATCH FILE 'PPR3270' LOCATED ON<* DXO3270.DXCMO.D3270À&.P.PPR3270 WITH THIS UPDATED FILE. &6* THIS PATCH FILE SHOULD BE APPLIED USING "ICC"6<* DURING THE INITIAL PHASE OF A COMMUNICATION BUILD. <>* REFER TO THE DX10 3270 ICS OBJECT INSTALLATION GUIDE, >* PART# 2250942€(-9701 FOR INSTRUCTIONS ON PERFORMING(* 'ICC'. !* 'J#*--------------------------------------------------------------------*J* '8* *** S Y N O N Y M A S S I G N M E N T S ***8* 'BATCH LS=YES"@J#*--------------------------------------------------------------------*J$* PATCH PROCS RELEASE 2.2.0$J#*--------------------------------------------------------------------*J* ',CMR=ME,M="@$E$C ERRORS REPORTED IN @$CVN,€.PPR3270" EBATCH LS=YES !R PERFORMING THE ALGS COMMAND EXECUTE THE IUT,PUT, ANDBD* IICDR COMMANDS BEFORE THE PCS COMMAND. FAILURE TO REARRANGE DD* THESE COMMANDS WILL RESULT IN ERRORS BEING REPORTED BY THIS D* ÿÿEOD †)DD990 P³ƒÒE®Àlã—ÀˆÛYP*--------------------------------------------------------------------* PP* *** PATCH FILE DX10 DD-990 1.1.0 LAST UPDATE 02/20/83 *** * PP*--------------------------------------------------------------------* PRP* * * * S P E C I A L I N S T R U C T I O N S * * * PP* PP* BEFORE ATTEMPTING TO PATCH YOUR DX10 DD-990 PRP* PLEASE TEXT EDIT THE USER MODIFIED AREA OF THIS PATCH PP* STREAM AS FOLLOWS: PP* PRP* 1. LOOK IN ONE OF THE LINK MAPS LISTED BELOW (DEPENDING ON PP* THE DD-990 CONFIGURATION) FOR THE MODULE NAME PP* AND ITS ORIGIN. PRP* PP* 2. REPLACE THE ADDRESSES IN THIS PATCH FILE WITH THOSE IN THE PP* LINK MAP. PRP*--------------------------------------------------------------------* PP*--------------------------------------------------------------------* PP* PRP* *** S Y N O N Y M A S S I G N M E N T *** PP* PP* BEFORE EXECUTING THIS BATCH STREAM, THE SYNONYM 'VOLBLD' PRP* MUST BE ASSIGNED THE VALUE OF THE DISK VOLUME NAME ON WHICH PP* THE PATCHES ARE TO APPLIED. THIS IS ACCOMPLISHED USING THE PP* 'AS' COMMAND WITH THE FOLLOWING VALUES: PRP* PP* ASSIGN SYNONYM VALUE PP* SYNONYM: VOLBLD PRP* VALUE: (NAME OF DISK VOLUME NAME) PP* PP* IN ADDITION, USERS WHO HAVE DATA MANAGER SECURITY AND DO NOT PRP* HAVE DBMS-990 MUST ASSIGN THE FOLLOWING TWO SYNONYMS. PP* PP* SYNONYM = NDBMS, VALUE = YES PRP* SYNONYM = DD, VALUE = PP*--------------------------------------------------------------------* PRPBATCH LS=YES PP*--------------------------------------------------------------------* PP* PRP* *** U S E R M O D I F I E D A R E A *** PP* PP*--------------------------------------------------------------------* PRP* < < < LINK MAP TRUTH TABLE > > > (PART ONE) PP* PP* CONDITIONS LINK MAP PATHNAME PRP* ---------- ----------------- PP* IF DBMS INSTALLED = YES DD.LINK.DX.CSDB.LST.DM PP* PRP* IF DBMS INSTALLED = NO DD.LINK.DX.DDDB.LST.DM PP* PP* WHERE "DD" IS THE DISK OR DIRECTORY FROM WHICH DD-990 WAS PRP* INSTALLED. PP* PP* PRP* SYNONYM VALUE/ORIGIN CORRESPONDING MODULE IN LINK MAP PAGE PP* ------- ------------ -------------------------------- ---- PP* DMPATCH >XXXX PATCH 5 PRP* MNPART >XXXX MNPART 6 PP.SYN DMPATCH = >1560 PP.SYN MNPART = >2050 PRP* PP* < < < LINK MAP TRUTH TABLE > > > (PART TWO) PP* PRP* CONDITIONS LINK MAP PATHNAME PP* ---------- ----------------- PP* IF DBMS INSTALLED = YES PRP* AND IF TIFORM INSTALLED = YES DD.LINK.DX.CSDB.LST.IDL PP* PP* IF DBMS INSTALLED = YES PRP* AND IF TIFORM INSTALLED = NO DD.LINK.DX.CSDB.LST.IDLFORM PP* PP* IF DBMS INSTALLED = NO PRP* AND IF TIFORM INSTALLED = YES DD.LINK.DX.DDDB.LST.IDL PP* PP* IF DBMS INSTALLED = NO PRP* AND IF TIFORM INSTALLED = NO DD.LINK.DX.DDDB.LST.IDLFORM PP* PP* WHERE "DD" IS THE DISK OR DIRECTORY FROM WHICH DD-990 WAS PRP* INSTALLED. PP* PP* SYNONYM VALUE/ORIGIN CORRESPONDING MODULE IN LINK MAP PAGE PRP* ------- ------------ -------------------------------- ---- PP* IPATCH >XXXX PATCH 5 PP* IDLP5 >XXXX IDLP5 13 PRP* CHKNAM >XXXX CHKNAM 7 PP.SYN IPATCH = >1560 PP.SYN IDLP5 = >7AAE PRP.SYN CHKNAM = >26D0 €%€% PP* PP* PRP*--------------------------------------------------------------------* PP* PP* *** E N D O F U S E R M O D I F I E D A R E A *** PRP* PP*--------------------------------------------------------------------* PP*$ PRP*--------------------------------------------------------------------* PP*=P1800 TGS 06/28/82 STR #12621 DX10 DD990 1.1.0 DM PP* PRP* PROBLEM: DATA MANAGER TAKES AN END ACTION ABNORMALLY. PP* PP* SOLUTION: MODIFY ERROR STATUS RETURN END ACTION NORMALLY. PRP* PPMPI PF=@VOLBLD.S$PROGA, MT=TA, MN=DM, ADR=@MNPART+>2AE, PPV=(>D4AD), PRPD=(>0202), PPC=>0202 PPEC PRPMPI PF=@VOLBLD.S$PROGA, MT=TA, MN=DM, ADR=@MNPART+>2B0, PPV=(>0011), PPD=(@DMPATCH), PRPC=@DMPATCH PPEC PPMPI PF=@VOLBLD.S$PROGA,MT=TA, MN=DM, ADR=@DMPATCH, PRPV=(>DEAD), PPD=(>0600), PPC= >0600 PRPEC PP* PP*$ PRP*--------------------------------------------------------------------* PP*=P1851 TGS 07/07/82 STR #12061 DX10 DD990 1.1.0 IDL PP* PRP* PROBLEM: IF USER INDICATES TAG FIELDS BUT DOES NOT INCLUDE ANY PP* FIELDS OF CHARACTER OR INTEGER DATA TYPE, IDL WILL HANG PP* IF USER PRESSES F6 WHILE IN THE TAG SCREEN. PRP* SOLUTION: THIS PATCH CORRECTS THIS PROBLEM. PP* PPMPI PF=@VOLBLD.S$SDS$, MT=OV, MN=TGOVLY, ADR=@IDLP5+>108A, PRPV=(>CBED), PPD=(>0460), PPC=>0460 PRPEC PPMPI PF=@VOLBLD.S$SDS$, MT=OV, MN=TGOVLY,ADR=@IDLP5+>108C, PPV=(>0016), PRPD=(@IPATCH), PPC=@IPATCH PPEC PRPMPI PF=@VOLBLD.S$SDS$, MT=TA, MN=IDL, ADR=@IPATCH, PPV=(>DEAD,>DEAD,>DEAD,>DEAD), PPD=(>8B64,>0004,>0010,>1605), PRPC=>9D75 PPEC PPMPI PF=@VOLBLD.S$SDS$, MT=TA, MN=IDL, ADR=@IPATCH+8, PRPV=(>DEAD,>DEAD,>DEAD,>DEAD), PPD=(>CBED,>0012,>0026,>0460), PPC=>CFB9 PRPEC PPMPI PF=@VOLBLD.S$SDS$,MT=TA, MN=IDL, ADR=@IPATCH+16, PPV=(>DEAD), PRPD=(@IDLP5+>1090), PPC= @IDLP5+>1090 PPEC PRP* PPMPI PF=@VOLBLD.S$SDS$, MT=TA, MN=IDL, ADR=@IPATCH+18, PPV=(>DEAD,>DEAD,>DEAD,>DEAD), PRPD=(>CBED,>0016,>0026,>0460), PPC=>CFBD PPEC PRPMPI PF=@VOLBLD.S$SDS$,MT=TA, MN=IDL, ADR=@IPATCH+26, PPV=(>DEAD), PPD=(@IDLP5+>1090), PRPC= @IDLP5+>1090 PPEC PP*$ PRP*--------------------------------------------------------------------* PP*=P1860 TGS 07/09/82 STR #12061 DX10 DD990 1.1.0 DMSECU PP* PRP* PROBLEM: DATA MANAGER SECURITY ERROR MESSAGE FILE IS INCORRECTLY PP* INSTALLED. PP* SOLUTION: THIS PATCH REINSTALLS THE CORRECT ERROR MESSAGE FILE PRP* FROM THE DD-990 OBJECT INSTALLATION DISK. PP* PP.IF @NDBMS, EQ, YES PRPAL AN=@DD.PROG, PF=YES PP.BID T=BMFTASK, L=@$$LU, P=(@DD.DBS.S$TEXT,@VOLBLD.S$MSGX.DBMS) PPEC PRPRL L=@$$LU PP.ENDIF PPEC PRP*$ PP*--------------------------------------------------------------------* PP*=P2699 TMG 02/15/83 STR #14681 DX10 DD990 1.1.0 CHKNAM PRP* PP* PROBLEM: IDL IS GIVING 106 ERROR WHEN YOU ENTER AN ALREADY PP* EXISTING NAME. PRP* SOLUTION: THIS PATCH MODIFIES THE PROGRAM IMAGE TO CORRECT THE PP* PROBLEM PP* PRPMPI PF=@VOLBLD.S$SDS$, MT=TA, MN=IDL , ADR=@CHKNAM+>003A, PP V=>1601, PP D=>1301, PRP C=>1301 PPEC PP*$ PRP*--------------------------------------------------------------------* PP* ADD NEW PATCHES HERE PP*--------------------------------------------------------------------* PRP* PP* DELETE SYNONYMS €%€% PP* PRP.SYN VOLBLD="",MNPART="",DMPATCH="" PP.SYN IDLP5="",IPATCH="" PP.SYN CHKNAM="" PRP*--------------------------------------------------------------------* PPSDT PPEBATCH LS=YES, PRP TEXT="@$E$C ERRORS IN PATCHING DD-990", PP CODE= @$E$C PI PF=@VOLBLD.S$PROGA,MT=TA, MN=DM, ADR=@DMPATCH, PRÿÿ†*PASCAL P@§TÀlãžÀˆÛ]J#*--------------------------------------------------------------------*J@* *** PATCH FILE DX10 PASCAL 1.8.0 LAST UPDATE 02/21/84 *@J#*--------------------------------------------------------------------*J* INSTRUCTIONS: DA@* 'B* THIS BATCH STREAM APPLIES PATCHES TO TI PASCAL (TIP) 1.8.0 B* 'D * AT PRESENT, THERE ARE NO PATCHES AVAILABLE FOR PASCAL 1.8.0, D,* SO THIS BATCH STREAM NEED NOT BE RUN.,* '* IT IS BEST TO APPLY PATCH€,ES FROM A USER ID WITH NO USER SYNONYMS.,J#*--------------------------------------------------------------------*JBATCH LS=YES"* 'EBATCH LS=YES,!0 TEXT="@$E$C ERRORS ON PASCAL PATCH STREAM",0 CODE=@$E$C PJ#*--------------------------------------------------------------------*JPP* PP*$ PRÿÿ†,DBMS P'µÄXt"ÀlãÈÀˆÛ^@J#*--------------------------------------------------------------------*JJ * *** PATCH FILE DX10 DBMS-990 2.2.0 LAST UPDATE 08/22/83 *JJ#*--------------------------------------------------------------------*J* '* *À4**S P E C I A L I N S T R U C T I O N S ***4* '<* BEFORE RUNNING THIS PATCH STREAM, INSPECT THE SYNONYM<F!* ASSIGNMENTS IN THE "SYNONYM DESCRIPTION TEMPLATE" BELOW. THESEF.* SYNONYM ASSIGNMENTS MAY NEED TO BE MODIFI.ÀED IN THE "USER MODIFIEDD * AREA" BELOW THE DESCRIPTION TEMPLATE SO THAT THE PATCHES WILLDB* APPLY PROPERLY ON YOUR CONFIGURATION. THE INSTRUCTIONS FOR B(* MODIFYING THESE SYNONYMS FOLLOWS.(* ' * THE USER MODIFIEDÀ" SYNONYMS APPEAR IN TWO FORMS:"* ' * SYNONYMTYPECATEGORY * ------------------- ,* A) .SYN ENAME=>XXXX AFEATURE ,,* B) .SYN MNAME=>XXXX BFEATURE ,* '* EXPLANATIONS OF THE€SE TYPES FOLLOW:* 'F* A) ARE ENTRY POINTS IN THE PROGRAM AND WILL HAVE THEIR VALUESFD* LISTED IN THE "DEFINITIONS" PORTION OF THE LINK MAP NEXT TO D:* THE ENTRY POINT WITH THE SAME NAME AS THE SYNONYM.:* '@H* B) ARE LOAD POINTS AND HAVE THEIR VALUES LISTED AS THE "ORIGIN"H8* OF THE MODULE WITH THE SAME NAME AS THE SYNONYM.8* 'H"* ALL USER MODIFIED SYNONYMS MUST BE SET BY THE USER FROM THE LINK H * MAPS GENERATED BY THE DÀ(ATA BASE GENERATION PROCESS (DBGEN). (J#* SYNONYMS ARE SET BY REPLACING THE "XXXX" WITH THE ADDRESS LISTED INJ* THE LINK MAP. * 'F!* THE CATEGORY FIELD IS USED TO INDICATE THAT A SYNONYM IS NEEDEDF * ONLY IF THE FEA€2TURE SPECIFIED WAS INCLUDED IN DBMS DURING THE2F!* EXECUTION OF THE DBGEN PROC. IF THE FEATURE IS NOT IN THE DBMSFH"* THAT WAS GENERATED, THEN A NULL VALUE ("") SHOULD BE ASSIGNED TO H"* THE SYNONYM. FOR EXAMPLE: "* '&* .SYN LGOPEN="" ALOGGING &* 'D * IF THE CATEGORY IS ALL, THEN THE SYNONYM MUST ALWAYS BE SET. D* '* 'B* THE FOLLOWING SYNONYM MUST BE ASSIGNED BEFORE RUNNING THIS B * BATCH STREAM : * 'BA @,* DSC- VOLUME NAME OF THE TARGET DISK,* 'J#*--------------------------------------------------------------------*JBATCH LS=YES"J#*--------------------------------------------------------------------*J Q$SYN % À.SYN $E$C=0 "J#*--------------------------------------------------------------------*J * ! * J* ***S Y N O N Y M D E S C R I P T I O N T E M P L A T E ***J * ! * .*-------------------------------------------.À -------------------------** 'B* USE "DBMS990.LINK.DX10.LST.DBM" FOR THE FOLLOWING SYNONYMSB* '&* SYNONYM TYPECATEGORYPAGE &&* ------- ---------------- &* ' *.SYN ADD= >0DA0 A LOG ÀGING 4(*.SYN ADDR1= >393E A ALL 4((*.SYN C1STDL = >051A A ALL 4((*.SYN CEKYL= >0438 A ALL 4((*.SYN CFUNC= >048E A ALL 4((*.SYN CLOS = >1654 A ALL 5(*.SYN CLRLC€K = >1742 A ALL 5(*.SYN CSENT= >04EC A ALL 5((*.SYN DELT = >18CE A ALL 5((*.SYN KASTR= >25C4 A ALL 5((*.SYN KNIL = >25AA A ALL 6((*.SYN KY1SDL = >0008 A ALL 6(*@(*.SYN KYFRPT = >0000 A ALL 6((*.SYN KYVALU = >0010 A ALL 6((*.SYN LCKCHK = >220A A ALL 6((*.SYN LCKMGR = >2388 A ALL 6((*.SYN LEFRHD = >6EC0 A ALL 6(*.SYN PATCH= >374A BÀ ALL 4&*.SYN PR = >25BE A ALL 6&(*.SYN RBSTFL = >6538 A ALL 6((*.SYN READ = >2C32 A ALL 6((*.SYN RNKR1= >3E72 A ALL 6((*.SYN RSKR1= >3FC6 A ALL 6(*.SYN SESBUF À= >0003 A ALL 6(*.SYN SESTBL = >6EBA A ALL 6(0*.SYN STRNS= >6392 A TRANSACTIONS 700*.SYN WRIT = >34C2 A TRANSACTIONS 70* '>* *** USE "DBMS990.LINK.DX10.LST.DDLT" FOR THE FOLLOWING >ÀSYNONYMS, @* WHERE THE SYNONYM "DPATCH" IS ASSIGNED TO THE LOAD POINT@:* ADDRESS OF THE MODULE "PATCH" IN THE DDLT LINKMAP. :* '&* SYNONYM TYPECATEGORYPAGE &&* ------- ---------------- &*.SYN À" DDLC = >63A4 B ALL 6"(*.SYN DDLFOR = >4A6C A ALL 6((*.SYN DPATCH = >16C2 B ALL 4((*.SYN SETFIE = >532A A ALL 6(* '* '<* *** USE "DBMS990.LINK.DX10.LST.SUMFIL" FOR THE FOLLOWIN<ÀG SYNONYMS, @* WHERE THE SYNONYM "SPATCH" IS ASSIGNED TO THE LOAD POINT@<* ADDRESS OF THE MODULE "PATCH" IN THE SUMFIL LINKMAP.<* '&* SYNONYM TYPECATEGORYPAGE &&* ------- ---------------- &*.À& SYN SPATCH = >16C2 B ALL 4&(*.SYN SUMFIL = >2626 B ALL 6(* 'J#*--------------------------------------------------------------------*J * ! * 8* ***U S E R M O D I F I E D A R E A *** *8À * ! * J#*--------------------------------------------------------------------*J.SYNADD = >0DA0.SYNADDR1 = >393E.SYNC1STDL = >051A.SYNCEKYL = >0438.SYNCFUNC = >048E.SYNCLOS = >À1654.SYNCLRLCK = >1742.SYNCSENT = >04EC.SYNDELT = >18CE.SYNKASTR = >25C4.SYNKNIL = >25AA.SYNKY1SDL = >0008.SYNKYFRPT = >0000.SYNKYVALU = >0010.SYNLCKCHKÀ = >220A.SYNLCKMGR = >2388.SYNLEFRHD = >6EC0.SYNPATCH = >374A.SYNPR = >25BE.SYNRBSTFL = >6538.SYNREAD = >2C32.SYNRNKR1 = >3E72.SYNRSKR1 = >3FC6.SYNSESBÀUF = >0003.SYNSESTBL = >6EBA.SYNSTRNS = >6392.SYNWRIT = >34C2* '.SYNDDLC =>63A4 .SYNDDLFOR =>4A6C .SYNDPATCH =>16C2 .SYNSETFIE =>532A * '.SYNÀSPATCH =>16C2 .SYNSUMFIL =>2626 * 'J#*--------------------------------------------------------------------*J * ! * F* ***E N D O F U S E R M O D I F I E D A R E A *** *F * ! * *---ÀF!-----------------------------------------------------------------*F<* *** BEGIN PATCHES FOR DX10 DBMS-990 2.2.0 *** *<J#*--------------------------------------------------------------------*J"*-------------------------------"À*-------------------------------------**>*=P2076 KGH08/06/82STR #13182DX10DBMS-990 2.2.0>* 'D * PROBLEM: TRANSACTION IS NOT ROLLED BACK IF A NON-TRANSACTIOND8* REQUESTS A LOCK ON A RECORD DELETED BY AN ABORTED8À * TRANSACTION. D * SOLUTION: ROLL BACK TRANSACTION BY MODIFYING CODE IN THE LOCKD6* CHECK MODULE TO ACCOUNT FOR THE ABOVE PROBLEM6€%€%H"**** THIS PATCH IS MODIFIED BY PATCH 2793 -- FOR THIS REASON, THERE H**** IS NOÀ< EC AFTER THE PATCH AT LOCATION @PATCH + >001A; A VER- <D **** IFICATION ERROR SHOULD OCCUR IF PATCH 2793 HAS ALREADY BEEND**** APPLIED. !* '>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0000, >V=(>DEAD,>DEADÀ,>DEAD),D=(>1318,>D823,>0009),C=>CB32 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0006, >V=(>DEAD), D=(@PATCH+>003E), C=@PATCH+>003EEC'$MPI PF=@DSC.S$PROGA, MT=PR, MN=DB$ÀM , ADR=@PATCH+>0008, V=(>DEAD), D=(>C0E0), C=>C0E0 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>000A, >V=(>DEAD), D=(@PATCH+>003E), C=@PATCH+>003EEC'MPI PF=@DSC€2.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>000C, 2V=(>DEAD,>DEAD),D=(>0963,>A0E0),C=>A983 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0010, >V=(>DEAD), D=(@SESTBL),C=@SESTBL M,@EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0012, >V=(>DEAD,>DEAD,>DEAD),D=(>D8E3,>0003,>0003),C=>D8E3 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0018, >V=>DEAD,!D=>1À30C,!C=>130C !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>001A, >* V=(>DEAD,>DEAD,>DEAD),D=(>C0E8,>04EC,>D8E3),C=>1CE7 !EC'8MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>008À20, V=>DEAD,!D=>0003,!C=>0003 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0022, >V=(>DEAD,>DEAD,>DEAD),D=(>0003,>1608,>06A0),C=>10AB !EC' MPI PF=@DSC.S$PROGA, MT=PÀ$R, MN=DBM , ADR=@PATCH+>0028, $V=(>DEAD), D=(@LCKCHK),C=@LCKCHK EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>002A, >V=(>DEAD), D=(@PATCH+>002C), C=@PATCH+>002CEC'À>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>002C, >V=(>DEAD), D=(>8800), C=>8800 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>002E, >V=(>DEAD), D=(@KNIL), C=@KNIL !EC€'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0030, >V=(>DEAD), D=(>1304), C=>1304 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0032, >V=(>DEAD), D=(>0460), C=>0460 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0034, >V=(>DEAD), D=(@READ+>012A),C=@READ+>012A EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0036, >V=(>DEAD), D=(>0460), C=>0460 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0038, >V=(>DEAD), D=(@READ+>013E),C=@READ+>013E EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>003A, >V=(>DEAD), EDD=(>0460), C=>0460 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>003C, >V=(>DEAD), D=(@READ+>0084),C=@READ+>0084 EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>003E, >PMBV=(>DEAD), D=(>0000), C=>0000 !EC'<MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@READ+>0080,<V=(>1354), D=(>0460), C=>0460 !EC'<MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@READ+>0082,<>@V=(>105D), D=(@PATCH+>0000), C=@PATCH+>0000EC'*$'J#*--------------------------------------------------------------------*J>*=P2253 JRA09/28/82STR #13595DX10DBMS-990 2.2.0>* ' * PROBL À>EM: WHEN A LINE LOCK IS REQUESTED AND THE LINE LOCK TABLE>4* IS FULL, THE RECORD LOCK TABLE IS MODIFIED 4D * SOLUTION: AFTER SEARCHING TABLES RESTORE RECORD LOCK TABLE TOD* CORRECT STATE* ' MPI PF=@DSC.S$PROÀ, GA, MT=PR, MN=DBM , ADR=@PATCH+>0040, ,V=(>DEAD,>DEAD,>DEAD),D=(>C884,>000C,>C168),C=>09E0 !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>0046, :V=(>DEAD,>DEAD,>DEAD),D=(>04F0,>1302,>0460),ÀC=>1392 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>004C, >V=(>DEAD), D=(@LCKMGR+>011C),C=@LCKMGR+>011C EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>004E, >V=(>DE€AD), D=(>C160), C=>C160 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0050, >V=(>DEAD), D=(@LEFRHD),C=@LEFRHD EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0052, >@V=(>DEAD,>DEAD),D=(>1302,>0460),C=>1762 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0056, >V=(>DEAD), D=(@LCKMGR+>00E6),C=@LCKMGR+>00E6 EC' MPI PF=@DSC.S$PROGA, MT=PR, M À N=DBM , ADR=@PATCH+>0058, V=(>DEAD,>DEAD,>DEAD),D=(>C8A4,>000E,>000C),C=>C8A6 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>005E, >V=>DEAD,!D=>0460,!C=>0460 !EC'MPÀ<I PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0060, <V=(>DEAD), D=(@LCKMGR+>015E),C=@LCKMGR+>015E EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@LCKMGR+>00D6,>V=(>C884), D=(>0460), C=>0€460 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@LCKMGR+>00D8,>V=(>000C), D=(@PATCH+>0040), C=@PATCH+>0040EC'*$'J#*--------------------------------------------------------------------*JL@>*=P2538 TMG12/07/82STR #14286DX10DBMS-990 2.2.0>* 'H"* PROBLEM: CERTAIN DDL'S WILL CAUSE THE KEY AREA TO BE OVERWRITTENH* WITH OTHER DATAF"* SOLUTION: STOP THE DDL TRANSLATOR FROM CREATING AN EXTRA DESCRIPTFÀOR2* PAGE WHICH WAS OVERWRITING THE KEY AREA. 2* '>MPI PF=@DSC.S$SDS$, MT=TA, MN=DDLT , ADR=@SETFIE+>002C, >V=>1606,!D=>163B,!C=>163B !EC'4MPI PF=@DSC.S$SDS$, MT=TA, MN=DDLT , ADR=@SETFIE4À+>00A0, V=(>05A0,@DDLC+>294), D=(>0460,@DPATCH) EC'>MPI PF=@DSC.S$SDS$, MT=TA, MN=DDLT , ADR=@SETFIE+>00AA, >V=>1132,!D=>11C7,!C=>11C7 !EC',MPI PF=@DSC.S$SDS$, MT=TA, MN=DDLT , ADR,À=@DPATCH, V=(>DEAD,>DEAD), D=(>05A0,@DDLC+>294)EC'>MPI PF=@DSC.S$SDS$, MT=TA, MN=DDLT , ADR=@DPATCH+>0004, >V=(>DEAD,>DEAD),D=(>0460,@SETFIE+>0110) EC'&MPI PF=@DSC.S$SDS$, MT=TA, MN=DDLT &À , ADR=@SETFIE+>010A, V=(>C82D,>001A),D=(>0460,@DPATCH+>0008) EC'>MPI PF=@DSC.S$SDS$, MT=TA, MN=DDLT , ADR=@DPATCH+>0008, >V=(>DEAD,>DEAD,>DEAD), D=(>C82D,>001A,@DDLC+>0294) EC'MPI PF=@DÀ4SC.S$SDS$, MT=TA, MN=DDLT , ADR=@DPATCH+>000E, 4V=(>DEAD,>DEAD),D=(>0460,@SETFIE+>003A) EC'*$'J#*--------------------------------------------------------------------*J(*=P2560 TMG12/15/82STR #14296DX(À10DBMS-990 2.2.0* 'H"* PROBLEM: AFTER A LF ERROR IS RETURNED ON AN ADD, ANY SUBSEQUENT H(* ADDS WILL RESULT IN A FL ERROR.(H"* SOLUTION: CORRECT THE IMPROPER MODIFICATION TO THE DATA STRUCTUREH* OF THE FIÀ LE ON THE FIRST ADD * '.IF "@ADD", NE, "ADD" * ':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@ADD+>05D0, :V=@ADD+>05D6, D=@PATCH+>0062EC'8MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0068À2,V=>DEAD,!D=>C040,!C=>C040 !EC'<MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0064,<V=(>DEAD,>DEAD), D=(>0460,@ADD+>05F6)EC'* ' .ENDIF% *$' *-------------------À6-------------------------------------------------*6>*=P2572 TMG12/17/82STR #14318DX10DBMS-990 2.2.0>* 'F!* PROBLEM: IF AN ERROR IS RETURNED ON THE GET-DATE SVC AFTER THEF** DML CALL TS, DBMS WILL ABORT WITH A*À PRE IMAGE FILE * ERROR FF.(* SOLUTION: RETRY THE GET-DATE SVC.(* ' .IF "@STRNS", NE, "STRNS" * '>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@STRNS+>0098, >V=>161F,!D=>16FA,!C=>16FÀA !EC'* ' .ENDIF% *$'J#*--------------------------------------------------------------------*J>*=P2613 TMG01/19/83STR #14081DX10DBMS-990 2.2.0>* '** PROBLEM: DBMS DID NOT UNDERSTAND PRI*À MARY KEYS WHOSE VALUES WERE * ALL ASTERISKS. J#* SOLUTION: RANDOM KEY ROUTINES MODIFIED TO HANDLE ALL ASTERISK KEYS J* '>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@RSKR1+>004C, > V=(>CA28,@KY1SDL),D=(>À 0460,@PATCH+>0068)EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0068, >V=(>DEAD,>DEAD),D=(>0203,>0008),C=>020B !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM €%€% , ADR=@PATCH+>006C, >V=>DEAÀD,!D=>C048,!C=>C048 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>006E, >V=(>DEAD,>DEAD), D=(>0221,@KYFRPT) EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0072, >V=(>ÀDEAD,>DEAD),D=(>8831,@KASTR)EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0076, >V=>DEAD,!D=>1604,!C=>1604 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0078, >V=>DÀEAD,!D=>0603,!C=>0603 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>007A, >V=>DEAD,!D=>16FB,!C=>16FB !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>007C, >V=(>ÀDEAD,>DEAD),D=(>0460,@RSKR1+>008A)EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PATCH+>0080, >V=(>DEAD,>DEAD,>DEAD), D=(>CA28,@KY1SDL,@C1STDL) EC'2MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@PAT2ÀCH+>0086, V=(>DEAD,>DEAD),D=(>0460,@RSKR1+>0052)EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@RNKR1+>00DA, >V=@KYVALU, D=@KYFRPT, C=@KYFRPT EC'&MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM &À , ADR=@RNKR1+>00E0, V=(>C0E8,@CEKYL), D=(>0203,>0010),C=>0213 !EC'>MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@ADDR1+>000C, >V=@KYVALU, D=@KYFRPT, C=@KYFRPT EC'MPI PF=@DSC.SÀ0$PROGA, MT=PR, MN=DBM , ADR=@ADDR1+>0012, 0 V=(>C0E8,@CEKYL), D=(>0203,>0010),C=>0213 !EC'*$'J#*--------------------------------------------------------------------*J"*=P2621 TMG01/17/83STR #145"€20DX10DBMS-990 2.2.0* 'B* PROBLEM: RECOVR IS ABORTING WITH PRE-IMAGE FILE ERROR 30. BF!* SOLUTION: PRIVILEGED WRITES ARE BEING WRITTEN TO THE PRE-IMAGE F:* FILE AND IT IS FILLING UP. THIS PATCH WILL STOP :5 >@>* PRIVILEGED WRITES FROM BEING WRITTEN TO THE PRE-IMAGE>* FILE.* '.IF "@WRIT", NE, "WRIT" * '<MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM , ADR=@WRIT+>00FE,<V=>06A0,!D=>1002,!C=>1002 !ÀEC'* ' .ENDIF% *$'J#*--------------------------------------------------------------------*J>*=P2741 TMG03/08/83STR #12129DX10DBMS-990 2.2.0>* '4* PROBLEM: SUMFIL SOMETIMES HANGS ON FILES WITH 4ÀRANDOM KEYS. F!* SOLUTION: PATCH REDKEY ROUTINE TO CORRECTLY HANDLE THE OVERFLOWF:* KEY AREA AFTER THE PRIMARY KEY AREA HAD FILLED UP :* '>MPI PF=@DSC.S$SDS$, MT=TA, MN=SUMFIL, ADR=@SPATCH+>0000, >V=(>DEAD,>DEAD),ÀD=(>AFAD,>0060),C=>AFCD !EC'>MPI PF=@DSC.S$SDS$, MT=TA, MN=SUMFIL, ADR=@SPATCH+>0004, >V=(>DEAD,>DEAD,>DEAD),D=(>0718,>0728,>0002),C=>0032 !EC'*MPI PF=@DSC.S$SDS$, MT=TA, MN=SUMFIL, A*À DR=@SPATCH+>000A, V=(>DEAD,>DEAD),"D=(>0460,@SUMFIL+>06C0+>035E) "EC'D MPI PF=@DSC.S$SDS$, MT=TA, MN=SUMFIL, ADR=@SUMFIL+>06C0+>035A, DV=(>AFAD,>0060), D=(>0460,@SPATCH) EC'*$' *------- ÀB-------------------------------------------------------------*B>*=P2793 TMG03/16/83STR #15027DX10DBMS-990 2.2.0>* '0* PROBLEM:PATCH 2076 HAS AN ERROR IN IT.04* SOLUTION: REGISTERS 13 AND 14 WERE NOT BEING I4À NITIALIZED BEFORE 6* THE CALL TO LCKCHK. INITIALIZE THE REGISTERS. 6* ':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>008A, :V=(>DEAD,>DEAD),D=(>C0E8,>04EC),C=>C404 !EC' MPI PF=@DSC.S$PROÀ(GA, MT=PR, MN=DBM, ADR=@PATCH+>008E, (V=(>DEAD,>DEAD),D=(>04CD,>04CE),C=>0003 !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>0092, :V=(>DEAD,>DEAD),D=(>0460,@PATCH+>001E)EC'MPI À6 PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>001A, 6V=(>C0E8,>04EC),D=(>0460,@PATCH+>008A)EC'*$'J#*--------------------------------------------------------------------*J(*=P2795 TMG04/05/83STR #15028DX(À10DBMS-990 2.2.0* 'B* PROBLEM: DDL TRANSLATOR CREATES DBMS FILES WITH INCORRECT B* CHARACTERISTICS. J#* SOLUTION: CORRECT DDL TO CREATE NON-EXPANDABLE, FORCED WRITE FILES J* 'MPI PF=@DSC.S$SDS$, MÀ(T=TA, MN=DDLT , ADR=@DDLFOR+>0010, (V=>0686,!D=>06A2,!C=>06A2 !EC'*$'J#*--------------------------------------------------------------------*J<*=P2827 TMG04/29/83STR #15178DX10DBMS-990 2.2.0<À* 'F!* PROBLEM: PERMANENT DEADLOCK WITH RECORD LEVEL LOCKS ARE BEING F* FOUND. F!* SOLUTION: NON-TRANSACTIONS ARE NOT CORRECTLY DOING RECORD LEVELF.* LOCKS. CORRECTED LOCK CHECK ROUTINE..* 'MPI €8 PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@LCKCHK+>0034, 8V=>1603,!D=>160C,!C=>160C !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>0096, :V=(>DEAD,>DEAD,>DEAD),D=(>06A0,@CLRLCK,>0000) EC'@:MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>009C, :V=(>DEAD,>DEAD),D=(>0460,@LCKCHK+>004E) EC'<MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@LCKCHK+>0036, < V=(>06A0,@CLRLCK),D=(>0460,@PATCH+>0096)€EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00A0, :V=(>DEAD,>DEAD),D=(>C068,@CSENT)EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00A4, :V=(>DEAD,>DEAD), D=(>D0A1,@SESBUF) EC'@:MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00A8, :V=>DEAD,!D=>1302,!C=>1302 !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00AA, :V=(>DEAD,>DEAD),D=(>0460,@LCKCHK+>0174) EC'À:MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00AE, :V=(>DEAD,>DEAD),D=(>0460,@LCKCHK+>0154) EC'<MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@LCKCHK+>0150, < V=(>C068,@CSENT), D=(>0460,@PATCH+>00A0)ÀEC'*$'J#*--------------------------------------------------------------------*J>*=P2836 TMG05/10/83STR #15257DX10DBMS-990 2.2.0>* 'D * PROBLEM: A NH STATUS IS BEING RETURNED ON A DELETE WHEN ONE D* À SHOULD NOT BE RETURNED.B* SOLUTION: WHEN A DELAY IS ISSUED INTERNALLY THE LOCK MAY BE B>* RELEASED BEFORE THE DELETE IS ACTUALLY DONE. CORRECT>8* THIS BY CHANGING DELETE AS A RESULT OF DELAY TO 8* PRIVILEGED DELEÀTE. * ':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00B2, :V=(>DEAD,>DEAD),D=(>8800,@PATCH+>00C2)EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00B6, :V=>DEAD,!D=>1603,!C=>160À3 !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00B8, :V=(>DEAD,>DEAD,>DEAD), D=(>CA60,@PATCH+>00C4,>000E) EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00BE, :V=(>DEAD,>DEAD),D=(>€ 0460,@DELT+>0132) EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00C2, :V=>DEAD,!D=>4459,!C=>4459 !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00C4, :V=>DEAD,!D=>2F44,!EA@C=>2F44 !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@DELT+>0032, : V=@PR," D=@PATCH+>00C4, C=@PATCH+>00C4EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@DELT+>0068, :V=@DELT+>0132,D=@PATÀCH+>00B2, C=@PATCH+>00B2EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@DELT+>009E, :V=(>9828,@CFUNC,@PR), D=(>9820,@RBSTFL,@KASTR)EC'*$'8*-----------------------------------------------------8À---------------*>*=P2843 TMG05/13/83STR #15285DX10DBMS-990 2.2.0>* 'H"* PROBLEM: DBMS HANGS IN STATE 0 AND APPLICATIONS HANG IN STATE 6 H:* SOLUTION: CORRECT TIMING PROBLEM IN CLKCHK MODULE. :* 'À0* ERROR IN THIS PATCH FIXED BY PATCH #2959 0* ':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00C6, :V=(>DEAD,>DEAD),D=(>C1A5,>000C),C=>C1A9 !EC'4MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>04À0CA, V=>DEAD,!D=>1602,!C=>1602 !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00CC, :* V=(>DEAD,>DEAD),D=(>0460,@CLRLCK+>004C) EC'0MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATC0ÀH+>00D0, V=(>DEAD,>DEAD),D=(>0460,@CLRLCK+>0048) EC'<MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@CLRLCK+>0044, <V=(>C1A5,>000C),D=(>0460,@PATCH+>00C6)EC'*$'*---------------------------À.-----------------------------------------*.>*=P2852 TMG05/27/83STR #15377DX10DBMS-990 2.2.0>* 'H"* PROBLEM: DBMS HANGS IN STATE 0 AND APPLICATIONS HANG IN STATE 6 H0* SOLUTION: CORRECT TIMING PROBLEM IN CLOS MO0ÀDULE€%€%* ':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00D4, :V=(>DEAD,>DEAD),D=(>D063,>0009),C=>D06A !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00D8, :V=(>DEAD,>DEAD),D=(>À020D,>0001),C=>020C !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00DC, :V=(>DEAD,>DEAD),D=(>0460,@CLOS+>005E) EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@CLOS+>0056, :V=(>D063,>0009À),D=(>130E,>1000),C=>030E !EC':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@CLOS+>005A, :V=(>020D,>0001),D=(>0460,@PATCH+>00D4)EC'*$'6*---------------------------------------------------6À -----------------*>*=P2873 TMG06/24/83STR #15635DX10DBMS-990 2.2.0>* 'D * PROBLEM: WHEN THE DATA BASE IS DOWN A DM AND NOT DD ERROR ISD* RETURNED.&* SOLUTION: CORRECT RETURN CODE. &* 'À8MPI PF=@DSC.S$PROGA, MT=PR, MN=DBINFACE, ADR=>0280,8V=>444D,!D=>4444,!C=>4444 !EC'*$'J#*--------------------------------------------------------------------*J,*=P2959 SAB07/27/83STR #15905DX10,ÀDBMS-990 2.2.0* '(* PROBLEM: PATCH 2843 IS IN ERROR.(,* SOLUTION: CORRECT ADDRESSING PROBLEM ,* ':MPI PF=@DSC.S$PROGA, MT=PR, MN=DBM, ADR=@PATCH+>00CC, :V=(>0460,@CLRLCK+>004C), D=(>0460,@CLRLCK+>À 0068) EC'*$'J#*--------------------------------------------------------------------*JJ* ***PATCHES ABOVE THIS COMMENT SHIPPED WITH PATCH RELEASE 3.7.0 *J<*---------------------------------------------------------<À-----------*J#*--------------------------------------------------------------------*J<* DELETE ANY SYNONYMS UNIQUE TO THIS BATCH STREAM. *<J#*--------------------------------------------------------------------*J .SYN KNI €L = "" .SYN LCKCHK = "" .SYN LCKMGR = "" .SYN LEFRHD = "" .SYN PATCH= "" .SYN READ = "" .SYN SESTBL = "" .SYN DPATCH = "" .SYN SETFIE = "" .SYN DDLC = "" .SYN ADD= "" @.SYN STRNS= "" .SYN WRIT = "" .SYN C1STDL = "" .SYN KASTR= "" .SYN KY1SDL = "" .SYN KYFRPT = "" .SYN RSKR1= "" .SYN RNKR1= "" .SYN KYVALU = "" .SYN CEKYL= "" .SYN ADD €R1= "" .SYN DDLFOR = "" .SYN SUMFIL = "" .SYN SPATCH = "" .SYN SESBUF = "" .SYN CSENT= "" .SYN CLRLCK = "" .SYN DELT = "" .SYN PR = "" .SYN CFUNC= "" .SYN RBSTFL = "" @.SYN CLOS = "" * 'EBATCH LS=YES,!B TEXT="@$E$C ERRORS ON - DX10 DBMS-990 2.2.0 - PATCH STREAM", B CODE=@$E$C J#*--------------------------------------------------------------------*J* *** NEXT AVAILABLE DBÀ,M PATCH LOCATION = @PATCH+>00E0 *** *,F* *** NEXT AVAILABLE DDLT PATCH LOCATION = @DPATCH+>0012 *** *FH * *** NEXT AVAILABLE SUMFIL PATCH LOCATION = @SPATCH+>000E *** *H4*-------------------------------------------------4€ -------------------*ION: PATCH REDKEY ROUTINE TO CORRECTLY HANDLE THE OVERFLOWF:* KEY AREA AFTER THE PRIMARY KEY AREA HAD FILLED UP :* '>MPI PF=@DSC.S$SDS$, MT=TA, MN=SUMFIL, ADR=@SPATCH+>0000, >V=(>DEAD,>DEAD),ÿÿ†1TIFORM D ††D˜ÀˆÛ}ÀˆÛb†LINKD820 P6³›àŸ®ÀläÀˆÛcP*--------------------------------------------------------------------* PP*** PATCH FILE DX10 3.6 TIFORM.LINKD820 3.0.0 *A LAST UPDATE 2/21/84 * PP*--------------------------------------------------------------------* PRP* PP* TITLE: PATCH STREAM TO APPLY PATCHES TO AN APPLICATION LINKED PP* WITH THE TIFORM LINKABLE MODULES. PRP* PP* NOTE: ASSIGN THE FOLLOWING SYNONYMS: PP* PRP* PRG = THE PATHNAME OF THE PROGRAM FILE WHERE YOUR PP* COMPLETELY LINKED APPLICATION RESIDES. PP* PRP* MTYPE = "TA" IF THE APPLICATION IS A TASK PP* OR "PR" IF THE APPLICATION IS A PROCEDURE PP* PRP* BASE = THE HEX VALUE FROM THE APPLICATION LINK MAP OF THE PP* ORIGIN OF THE MODULE 'YY$LINKD' (WHERE "YY" IS THE PP* INTERFACE TYPE USED BY THE APPLICATION) PRP* PP* DATA = THE HEX VALUE OF THE $DATA MODULE IMMEDIATELY AFTER PP* THE 'YY$LINKD' MODULE IN THE APPLICATION LINK MAP. PRP* PP* TASKNAME = THE INSTALLED NAME OF THE APPLICATION. PP* PRP* INTRTYPE = 'YY' FROM THE 'YY$LINKD' MODULE TO IDENTIFY PP* THE TYPE OF LANGUAGE INTERFACE THE APPLICATION PP* USES PRP* PP* NFM$TB = LOAD ADDRESS FROM THE APPLICATION LINK MAP FOR PP* THE $DATA MODULE THAT FOLLOWS THE NFM$TB MODULE. PRP* PP* NFM$LN = LENGTH FROM THE APPLICATION LINK MAP OF THE PP* $DATA MODULE THAT FOLLOWS THE NFM$TB MODULE. PRP* PP* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS. PP* PRP* OPTIONAL PATCHES: PP* READ THE DESCRIPTIONS OF ALL OPTIONAL PATCHES BEFORE IN- PP* STALLING THEM. OPTIONAL PATCHES HAVE BEEN COMMENTED OUT IN PRP* COLUMN ONE. THE ASTERISK MUST BE REMOVED FROM COLUMN ONE TO PP* APPLY THE DESIRED OPTIONAL PATCHES. PP* PRP* OPTIONAL PATCHES REFER TO THE FOLLOWING PROBLEMS AND PATCH PP* NUMBERS: PP* PRP* P3174 RHR 10/18/82 STR #16728 DX10 TIFORM 3.0.0 LINKD PP* PP* NOPNF$ WAS NOT RELEASING MEMORY. SVC CALL WAS NOT USING R9. PRP* SINCE THIS PATCH CAUSES UNUSED MEMORY TO BE RELEASED, SUBSEQUENT PP* OPEN FORM AND PREPARE SEGMENT COMMANDS REQUIRE MORE GET MEMORY PP* SVC CALLS. THIS IS DONE BY P3173. THIS PATCH (3174) SUPPRESSES PRP* THE RELEASE MEMORY TO AVOID THE SWAPPING THIS CAUSES. PP* PP* PRP*--------------------------------------------------------------------* PPBATCH LS=YES PP*--------------------------------------------------------------------* PRP* PPQ$SYN PP.IF @INTRTYPE, EQ, "CX" PRP .SYN ORIGIN = @BASE+>4F2 PP .SYN DSEG = @DATA+>BC PP.ELSE PRP .IF @INTRTYPE, EQ, "PX" PP .SYN ORIGIN = @BASE+>4B6 PP .SYN DSEG = @DATA+>A8 PRP .ELSE €%€% PP .SYN ORIGIN = @BASE+>4E6 PP .SYN DSEG = @DATA+>BA PRP .ENDIF PP.ENDIF PP* PRP.SYN PATCH=@ORIGIN+>2934 PP.SYN PCHDAT=@DSEG+>01E8 PP* PRP*--------------------------------------------------------------------- PP* PP* *** BEGIN PATCHES FOR DX10 TIFORM.LINKD820 VERSION 3.0 *** PRP* PP*--------------------------------------------------------------------- PP*--------------------------------------------------------------------* PRP* * PP*=P2201 SAB 06/30/82 STR #13298 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* THE EXECUTOR TERMINATES AFTER ATTEMPTING TO READ A GROUP THAT * PP* CONTAINS NO READABLE ITEMS. * PRP* * PP* SOLUTION: * PP* CHECK FOR END-OF-RIL WHEN USING FIELD BRANCHING. * PRP* * PP.SYN IFTRV$=@ORIGIN+>0C40 PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @IFTRV$+>0186, PRP VDATA = (>110D,>100E), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>8018,>1102,>0460,@IFTRV$+>01A6) PRPEC PPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@IFTRV$+>01A2) PPEC PP.SYN IFTRV$="" PRP.SYN PATCH=@ORIGIN+>2940 PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2202 SAB 06/30/82 STR #13426 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* POINTERS TO THE BEGINNING AND THE END OF THE DYNAMIC FORM * PP* BUFFER SPACE WRONG FOR BUFFERS LARGER THAN 2000. * PRP* * PP* SOLUTION: * PP* CORRECT POINTERS IN NDATA$. * PRP* * PP.SYN NDATA$ = @DSEG+>00B0 PP* PRPMPI PROG = @PRG, PP MODT = TA, PP MODN = @TASKNAME, PRP ADDR = @NDATA$+>003A, PP DATA = (@NFM$TB+>0006,@NFM$TB+@NFM$LN+>0006) PPEC PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2203 SAB 06/30/82 STR #13427 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* EXECUTOR CANNOT HANDLE DEVICE DEPENDENT SEGMENTS. * PRP* * PP* SOLUTION: * PP* PATCH NPREP$ TO SUPPRESS SECOND ATTEMPT TO RESOLVE DEVICE * PRP* DEPENDENCY. * PP* * PP.SYN NPREP$=@ORIGIN+>254E PRPMPI PROG = @PRG, PP MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @NPREP$+>0062, PP VDATA = >C114, PP DATA = >1000 PRPEC PP.SYN NPREP$="" PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2204 SAB 06/30/82 STR #13428 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* THE LINKABLE PARTS DO NOT INCLUDE NSELF$. THEREFORE, D$MAXC AND * PP* D$MAXR WERE NOT PRESENT. * PRP* * PP* SOLUTION: * PP* INCLUDE NSELF$ IN NDATA$. * PRP* * PP.SYN NDATA$=@DSEG+>00B0 PPMPI PROG = @PRG, PRP MODT = TA, PP MODN = @TASKNAME, PP ADDR = @NDATA$+>0040, PRP VDATA = (>0000,>0000), PP DATA = (>0017,>004F) PPEC PRP.SYN NDATA$="" PP* PP*$ PRP* PP*-----------------€%€%---------------------------------------------------* PP* * PRP*=P2205 SAB 08/12/82 STR #13243 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* FINAL VALIDATION IS NOT ATTEMPTING TO EXECUTE TEST FOR * PP* CONDITIONAL ATTRIBUTES DURING FORCED RE-EDIT PHASE. * PP* * PRP* SOLUTION: * PP* PATCH IVAL$ TO TEST CAS. * PP* * PRP.SYN IVAL$ = @ORIGIN+>1F10, IFEDT$ = @ORIGIN+>084A, PP FA$CAS = >001D, FA$PCA = >0013, CASPCH = @PATCH PP* PRPMPI PROG = @PRG, PP MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @IVAL$+>0050, PP VDATA = (>0202,@FA$PCA), PP DATA = (>06A0,@PATCH) PRPEC PPMPI ADDR = @IFEDT$+>0034, PP VDATA = (>0202,@FA$PCA), PRP DATA = (>06A0,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>0202,>FE02,>8742,>1603) PPEC PRPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>0202,@FA$CAS,>1002) PRPEC PPMPI ADDR = @PATCH+>000E, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>0202,@FA$PCA,>045B) PPEC PP* PRP.SYN IVAL$ = "", IFEDT$ = "", FA$CAS = "", FA$PCA = "" PP.SYN PATCH = @ORIGIN+>2954 PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2206 TLB 09/15/82 STR #13243 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* FIX A PROBLEM IN NIPCS$ : CONDITIONAL ATTRIBUTE TESTING WAS NOT * PP* BEING DONE. * PRP* * PP* SOLUTION: * PP* WHEN ICASD$ WAS CALLED, R2 HAD THE ADDRESS OF THE FCS INSTEAD * PRP* OF AN ATTRUBUTE CODE FOR PRE- OR POST-ENTRY CAS. THIS PATCH * PP* MAKES USE OF THE PREVIOUS CAS PATCH TO SET UP R2. * PP* * PRP.SYN NIPCS$=@ORIGIN+>223C,CII=@DSEG+>0046 PP* PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @NIPCS$+>6C, PRP VDATA = (>C801,@CII), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>C801,@CII,>06A0,@CASPCH) PRPEC PPMPI ADDR = @PATCH+>08, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@NIPCS$+>070) PPEC PP* PRP.SYN NIPCS$="",CII="",CASPCH="" PP.SYN PATCH=@ORIGIN+>2960 PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2318 SAB 09/27/82 STR # 990-13560 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* EXECUTOR TERMINATES IF TRYING TO READ A GROUP MADE UP OF * PRP* VARIABLES OR AN EXTERNAL VARIABLE. * PP* * PP* SOLUTION: * PRP* PATCH IBRIL$ TO HANDLE EXTERNAL VARIABLES. * PP* * PP.SYN IBRIL$ = @ORIGIN+>019E, IFTYP$ = @ORIGIN+>0E46 PRP* PPMPI PROG = @PRG, PP MODT = @MTYPE, PRP MODN = @TASKNAME, PP ADDR = @IBRIL$+034, PP VDATA = (>1B01,>02A2), PRP DATA = (>0460,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>1508,>1105,>06A0,@IFTYP$) PPEC PRPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (@IBRIL$+>0088,>8002,>1101,>04D7,>02A2) PRPEC PPMPI ADDR = @PATCH+>0012, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@IBRIL$+>0038) PPEC PP* PRP.SYN IBRIL$="", IFTYP$="" PP* €%€% PP.SYN PATCH=@ORIGIN+>2976 PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2422 TLB 11/03/82 STR #13919 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* IF A READ HAS AN EMPTY READABLE ITEM LIST (RIL), IBRIL$ SEARCHES * PRP* BEYOND THE END OF THE RIL FOR AN ENTRY IN THE RIL THAT * PP* DOESN'T EXIST. * PP* * PRP* SOLUTION: * PP* CHECK FOR EMPTY RIL BEFORE SEARCHING. * PP* * PRP.SYN IBRIL$=@ORIGIN+>019E PP* PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @IBRIL$+>0078, PRP VDATA = (>C087,>C046), PP DATA = (>0460,@PATCH) PP* PRPEC PP* PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>C046,>C087,>1302) PP* PRPEC PPMPI ADDR = @PATCH+>06, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@IBRIL$+>7C) PP* PPEC PRP* PPMPI ADDR = @PATCH+>0A, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@IBRIL$+>82) PP* PPEC PRP* PP.SYN IBRIL$="" PP* PRP.SYN PATCH=@ORIGIN+>2984 PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2438 TLB 11/05/82 STR #13994 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* IF A FIELD HAS CONDITIONAL ATTRIBUTE SELECTION AND AN ARMED * PP* EVENT KEY IS PRESSED UPON ENTERING THE FIELD, THE FIELD'S * PP* ATTRIBUTES REPLACE THOSE OF THE FIRST FIELD IN THE GROUP BEING * PRP* READ. * PP* * PP* SOLUTION: * PRP* A CALL TO IRFDT$ INSERTED AFTER THE FIELD'S PROCESSING * PP* FIXES THIS PROBLEM. * PP* * PRP.SYN IREAD$=@ORIGIN+>14B4, PP IRFDT$=@ORIGIN+>174E, PP IFPRO$=@ORIGIN+>0B8C PRP* PPMPI PROG = @PRG, PP MODT = @MTYPE, PRP MODN = @TASKNAME, PP ADDR = @IREAD$+>00D8, PP VDATA = (>06A0,@IFPRO$), PRP DATA = (>0460,@PATCH) PP* PPEC PRP* PPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>06A0,@IFPRO$,@IREAD$+>0144) PP* PPEC PRPMPI ADDR = @PATCH+>06, PP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>06A0,@IRFDT$,@IREAD$+>013C) PRP* PPEC PP* PRPMPI ADDR = @PATCH+>0C, PP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@IREAD$+>00DE) PRP* PPEC PP* PRP.SYN IREAD$="",IRFDT$="",IFPRO$="" PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P3173 RHR 10/18/82 STR #16713 DX10 TIFORM 3.0.0 LINKD820 * PP* * PP* PROBLEM: * PRP* NOPNF$ WAS NOT RELEASING MEMORY. * PP* * PP* SOLUTION: * PRP* SVC CALL WAS NOT USING R9. SINCE THIS PATCH CAUSES UNUSED * PP* MEMORY TO BE RELEASED, SUBSEQUENT OPEN FORM AND PREPARE SEGMENT * PP* COMMANDS REQUIRE MORE GET MEMORY SVC CALLS. TO SUPPRESS THE * PRP* SWAPPING THIS CAUSES, AN OPTIONAL PATCH IS AVAILABLE (P3174). * PP* * PP* €%€% * PRP.SYN NOPNF$=@ORIGIN+>2300, PP* PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @NOPNF$+>022E, PRP VDATA = (>C804,>01E2), PP DATA = (>C244,>C000) PP* PRPEC PP* PP.SYN NOPNF$="" PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P3174 RHR 10/18/82 STR #16713 DX10 TIFORM 3.0.0 LINKD * PRP* * PP* OPTIONAL. * PP* * PRP* PROBLEM: * PP* PATCH 3173 FIXED THE RELEASE MEMORY IN NOPNF$. THIS PATCH * PP* CAUSES SUBSEQUENT OPEN FORM AND PREPARE SEGMENT COMMANDS * PRP* TO GET MEMORY MORE OFTEN. THIS SLOWS DOWN EXECUTION WITH MORE * PP* SWAPPING. * PP* * PRP* SOLUTION: * PP* THIS PATCH TURNS OFF THE RELEASE MEMORY SVC IN NOPNF$. * PP* IT CHANGES A JUMP ON EQUAL TO A JUMP ON LESS THAN OR EQUAL SO * PRP* THAT SRCH50 IS NEVER USED (WHERE RELEASE MEMORY IS NORMALLY * PP* DONE). * PP* * PRP* * PP*.SYN NOPNF$=@ORIGIN+>2300, PP* PRP*MPI PROG = @PRG, PP* MODT = PR, PP* MODN = EXECPROC, PRP* ADDR = @NOPNF$+>023E, PP* VDATA = (>1311), PP* DATA = (>1211) PRP*EC PP* PP*$ PRP* PP*.SYN NOPNF$="" PP* PRP* PP* PP* PRP.SYN PATCH=@ORIGIN+>2994 PP* PP*--------------------------------------------------------------------* PRP* PATCHES ABOVE THIS LINE WERE RELEASED FOR DX10 3.5.2 TIFORM 3.0.0 * PP*--------------------------------------------------------------------* PP* PRPCM R=ME, PP M="TIFORM LINKD820 PATCH STREAM ERROR COUNT = @$E$C" PP* PRP*--------------------------------------------------------------------* PP* * PP*** NEXT AVAILABLE PATCH LOCATION @PATCH * PRP* * PP*--------------------------------------------------------------------* PP* PRP.SYN ORIGIN="" PP.SYN DSEG="" PP.SYN MTYPE="" PRP.SYN PATCH="" PP* PP*--------------------------------------------------------------------* PRP* PPSDT PPEBATCH PRP* PP*--------------------------------------------------------------------* P * PRÿÿ†MTASK PÂµëÒE®Àlä[ÀˆÛiP*--------------------------------------------------------------------* PP* *** PATCH FILE DX10 3.6 TIFORM.MTASK 3.0.0 *A LAST UPDATE 2/20/84 * PP*--------------------------------------------------------------------* PRP* PP* NOTE: ASSIGN THE FOLLOWING SYNONYMS BEFORE EXECUTING THIS BATCH: PP* PRP* VOLBLD TO THE VOLUME NAME OF THE DISK ON WHICH THE TIFORM PP* PACKAGE IS INSTALLED. PP* PRP* PROC TO YOUR COMMAND LIBRARY. THIS IS USUALLY .S$PROC. PP* PP* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS. PRP* PP* OPTIONAL PATCHES: PP* READ THE DESCRIPTIONS OF ALL OPTIONAL PATCHES BEFORE IN- PRP* STALLING THEM. OPTIONAL PATCHES HAVE BEEN COMMENTED OUT IN PP* COLUMN ONE. THE ASTERISK MUST BE REMOVED FROM PP* COLUMN ONE TO APPLY THE DESIRED OPTIONAL PATCHES. PRP* PP* OPTIONAL PATCHES REFER TO THE FOLLOWING PROBLEMS AND PATCH PP* NUMBERS: PRP* PP* P2090 SAB 07/23/80 STR #13251 DX10 TIFORM 3.0.0 EXECPROC PP* PRP* AS RELEASED, THE EXECPROC WILL DELETE BLANKS ON A "JUSTIFY R" PP* FIELD WHICH ARE EMBEDDED IN THE TEXT. PP* PRP* P2092 SAB 08/12/82 STR #9546 DX10 TIFORM 3.0.0 EXECPROC PP* PP* AS RELEASED, JUSTIFY L WILL TRUNCATE ANY LEADING INSTANCES OF THE PRP* SPECIFIED FILL CHARACTER OF THE JUSTIFY STATEMENT. THIS IS AN PP* OPTIONAL PATCH TO AVOID THAT. €%€% PP* PRP* P2091 SAB 08/12/82 STR #9547 DX10 TIFORM 3.0.0 EXECPROC PP* PP* THE FRENCH KEYBOARD USES AN ASCII COMMA FOR A DECIMAL POINT. PRP* THIS OPTIONAL PATCH ALLOWS TIFORM TO RECOGNIZE THIS DIFFERENCE. PP* PP* P3174 RHR 10/18/82 STR #16728 DX10 TIFORM 3.0.0 EXECPROC PRP* PP* NOPNF$ WAS NOT RELEASING MEMORY. SVC CALL WAS NOT USING R9. PP* SINCE THIS PATCH CAUSES UNUSED MEMORY TO BE RELEASED, SUBSEQUENT PRP* OPEN FORM AND PREPARE SEGMENT COMMANDS REQUIRE MORE GET MEMORY PP* SVC CALLS. THIS IS DONE BY P3173. THIS PATCH (3174) SUPPRESSES PP* THE RELEASE MEMORY TO AVOID THE SWAPPING THIS CAUSES. PRP* PP* PP* PRP* P3153 RHR 12/20/83 STR #13969 DX10 TIFORM 3.0.0 EXECPROC PP* PP* PROBLEM: PT #3152 DISABLED RETRY LOGIC FOR SVC$ TO AVOID ENDLESS PRP* LOOPING AFTER A TIMEOUT. USERS WHO WISH TO ENSURE THAT THE PRINT PP* KEY TIES UP THE TERMINAL UNTIL THE PRINT IS COMPLETE CAN SET THIS PP* RETRY COUNT BY APPLYING THIS PATCH. PRP* PP* SOLUTION: THIS PATCH RESETS THE RETRY COUNT FOR >B TIMES. YOU PP* CAN ADJUST THIS VALUE IN THIS PATCH DEPENDING ON THE REQUIREMENTS PRP* OF YOUR SYSTEM. THIS WILL NOT LOOP ENDLESSLY ON A TIME-OUT OR A PP* DISCONNECT ERROR, BUT IT WILL LOOP THE NUMBER OF TIMES THAT YOU PP* SET THE RETRY FOR. PRP*--------------------------------------------------------------------* PPBATCH LS=YES PP.IF "@PROC", EQ, "PROC" PRP .SYN PROC=".S$PROC" PP.ENDIF PP.USE @PROC PRP*--------------------------------------------------------------------* PP* PPQ$SYN PRP* PP.SYN PATCH = >2BE0 PP.SYN PCHDAT = >47B0 PRP* PP*--------------------------------------------------------------------- PP* PRP* *** BEGIN PATCHES FOR DX10 TIFORM.MTASK VERSION 3.0 *** PP* PP*--------------------------------------------------------------------- PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2200 SAB 08/12/82 STR #13243 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* FINAL VALIDATION IS NOT ATTEMPTING TO EXECUTE PRE-ENTRY * PP* CONDITIONAL ATTRIBUTE SPECIFICATIONS. * PP* * PRP* SOLUTION: * PP* FIX IFEDT$ TO CALL FA$CAS. * PP* * PRP.SYN IVAL$ = >1F08, IFEDT$ = >0842, FA$CAS = >001D, FA$PCA = >0013, PP CASPCH = @PATCH PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @IVAL$+>0050, PP VDATA = (>0202,@FA$PCA), PP DATA = (>06A0,@PATCH) PRPEC PPMPI ADDR = @IFEDT$+>0034, PP VDATA = (>0202,@FA$PCA), PRP DATA = (>06A0,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>0202,>FE02,>8742,>1603) PPEC PRPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>0202,@FA$CAS,>1002) PRPEC PPMPI ADDR = @PATCH+>000E, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>0202,@FA$PCA,>045B) PPEC PP* PRP.SYN IVAL$ = "", IFEDT$ = "", FA$CAS = "", FA$PCA = "" PP.SYN PATCH= >2BF4 PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2085 CIK 08/13/82 STR #13245 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* THE PRINT FUNCTION DOES NOT RELEASE ALL LUNOS. WHEN THE * PP* PRINT KEY IS USED SEVERAL TIMES, SYSTEM 30 CRASHES OCCUR. * PRP* * PP* SOLUTION: * PP* THIS PATCH CLOSES THE LUNOS AND RELEASES THEM. * PRP* * PP* * PP.SYN PMAIN$=>342A, PRP RLFILE=>47DC+>10BE, PP CLFILE=>47DC+>10A2, PP PSCRN$=>35B4, PRP PRINTD=>47DC+>0EC4, PP PKY$LU=>47DC+>0E86 PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN€%€% = EXECPROC, PRP ADDR = @PMAIN$+>008A, PP VDATA = (>D021,>0001), PP DATA = (>0460,@PATCH) PRPEC PPMPI ADDR = @PATCH, PP* VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>D821,>0003,@PCHDAT,>D021,>0001) PPEC PPMPI ADDR = @PATCH+>000A, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@PMAIN$+>008E) PPEC PRPMPI ADDR = @PMAIN$+>00C8, PP VDATA = (>0420,>3754), PP DATA = (>0460,@PATCH+>000E) PRPEC PPMPI ADDR = @PATCH+>000E, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>2FD1,>0201,@RLFILE,>D84A,>0003) PPEC PPMPI ADDR = @PATCH+>0018, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>2FD1,>0201,@CLFILE,>D860,@PCHDAT,>0003) PPEC PRPMPI ADDR = @PATCH+>0024, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>2FD1,>0201,@RLFILE,>D860,@PCHDAT,>0003) PRPEC PPMPI ADDR = @PATCH+>0030, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>2FD1,>0460,@PMAIN$+>00CC) PPEC PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = PR, PP MODN = EXECPROC, PP ADDR = @PSCRN$+>00B8, PRP VDATA = (>0201,@PRINTD), PP DATA = (>0460,@PATCH+>0036) PPEC PRPMPI ADDR = @PATCH+>0036, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>0201,@CLFILE,>D860,@PKY$LU,>0003) PRPEC PPMPI ADDR = @PATCH+>0040, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>2FD1,>0201,@RLFILE) PPEC PPMPI ADDR = @PATCH+>0046, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>D860,@PKY$LU,>0003,>2FD1) PPEC PRPMPI ADDR = @PATCH+>004E, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>0201,@PRINTD,>0460,@PSCRN$+>00BC) PRP PP* PPEC PRP* PP.SYN PMAIN$="" PP.SYN PSCRN$="" PRP.SYN CLFILE="" PP.SYN RLFILE="" PP.SYN PRINTD="" PRP.SYN PKY$LU="" PP.SYN PATCH = >2C4A PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2086 SAB 08/13/82 STR #13246 DX10 TIFORM 3.0.0 EXECT911 * PP* * PRP* PROBLEM: * PP* NO MORE THAN ONE TIFORM APPLICATION CAN EXECUTE AT ONE TIME. * PP* * PRP* SOLUTION: * PP* PUT OUTPUT PRB INITIALIZATION BUFFER BACK INTO THE DSEG. * PP* * PRP.SYN DI$OUT = >3874, PP PCHDSG = >47DC+>0D76, PP DCLRS$ = >3842, PRP DOPEN$ = >39C8, PP DWRIT$ = >3C5A PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = TA, PP MODN = EXECT911, PRP ADDR = @PCHDSG, PP VDATA = (>0000,>0000,>0000,>0000,>0000,>0000), PP DATA = (>0000,>0B00,>0002,>0000,>0000,>0000) PRPEC PPMPI ADDR = @PCHDSG+>000C, PP VDATA = (>0000,>0000,>0000,>0000,>0000), PRP DATA = (>0000,>84F1,>0000,>0000,>0000) PPEC PPMPI MODT = PR, PRP MODN = EXECP911, PP ADDR = @DCLRS$+>000A, PP VDATA = @DI$OUT, PRP DATA = @PCHDSG PPEC PPMPI ADDR = @DOPEN$+>000A, PRP VDATA = @DI$OUT, PP DATA = @PCHDSG PPEC PRPMPI ADDR = @DWRIT$+>009C, PP VDATA = @DI$OUT, PP DATA = @PCHDSG PRPEC PP* PP.SYN DCLRS$ = "", €%€% PRP DOPEN$ = "", PP DWRIT$ = "", PP PCHDSG = "", PRP DI$OUT = "" PP.SYN PATCH = >2C4A PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2087 TLB 08/13/82 STR #13247 DX10 TIFORM 3.0.0 FDLC * PP* * PRP* PROBLEM: * PP* THE FDL COMPILER IS NOT RELEASING LUNOS ASSIGNED TO THE * PP* TEMPORARY OBJECT FILES AFTER INSTALLING THEM INTO THE PROGRAM * PRP* FILE. * PP* * PP* SOLUTION: * PRP* RELEASE LUNOS ASSIGNED TO TEMPORARY OBJECT FILES AFTER THE * PP* OBJECT FILES HAVE BEEN INSTALLED AS OVERLAYS. * PP* * PRP.SYN OBJCT$=>25EA,AO$LUN=>0A,OALPRB=>5662 PP.SYN HOLD = @PATCH PP* PRP.SYN PATCH = >2AAC PP* PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = PR, PP MODN = FDLCPRC, PP ADDR = @OBJCT$+>0340, PRP VDATA = (>D065,>0001), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>0000,>0000,>0000,>0000,>0000), PP DATA = (>0201,@OALPRB,>0204,>9300,>C844) PRPEC PPMPI ADDR = @PATCH+>000A, PP VDATA = (>0000,>0000,>0000,>0000,>0000), PRP DATA = (>0002,>04E1,>0010,>D868,@AO$LUN) PPEC PPMPI ADDR = @PATCH+>0014, PRP VDATA = (>0000,>0000,>0000,>0000,>0000), PP DATA = (>0003,>2FD1,>0204,>9100,>C844) PPEC PRPMPI ADDR = @PATCH+>001E, PP VDATA = (>0000,>0000,>0000,>0000,>0000), PP DATA = (>0002,>0204,>0645,>C844,>0010) PRPEC PPMPI ADDR = @PATCH+>0028, PP VDATA = (>0000,>0000,>0000,>0000,>0000), PRP DATA = (>D065,>0001,>1602,>0460,@OBJCT$+>0346) PPEC PPMPI ADDR = @PATCH+>032, PRP VDATA = (>0000,>0000), PP DATA = (>0460,@OBJCT$+>0360) PPEC PRP* PP.SYN OBJCT$="", AO$LUN="", OALPRB="", PP PATCH = @HOLD, HOLD="" PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2088 TLB 08/13/82 STR #13248 DX10 TIFORM 3.0.0 FDLCPRC * PRP* * PP* PROBLEM: * PP* THE FDL COMPILER IS NOT BUILDING THE "SAME AS".."EXECPT FOR" * PRP* SPECIFICATION CORRECTLY. * PP* * PP* SOLUTION: * PRP* ALLOWS A FIELD TO BE "SAME AS" AN ARRAY. * PP* MAKES ALL ELEMENTS OF AN ARRAY "SAME AS" THE FIRST ELEMENT. * PP* FIXES "SAME AS EXCEPT FOR" AN ARRAY. * PRP* ALLOWS A FORWARD REFERENCING "SAME AS" AN ARRAY TO FUNCTION. * PP* * PP.SYN C$FLD=>000C, ENDSEG=>1468, PRP FLDBIT=>0056, NT$SA=>3306, SAMEAS=>51E4, NT$AB=>3304, PP NT$DEF=>0004, NFLAG=>B2AC, BB$NXT=>81FA, PP HOLD=@PATCH, PATCH=>2AE2 PRP* PP*--------------------------------------------------------------------* PP*=P2088 CONTINUED * PRP* SET ALL ELEMENTS OF AN ARRAY SAME AS THE 1ST ELEMENT. * PP* * PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = PR, PP MODN = FDLCPRC, PP ADDR = @C$FLD+>0B0, PRP VDATA = (>C460,@FLDBIT), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>0000,>0000,>0000,>0000,>0000,>0000), PP DATA = (>C460,@FLDBIT,>E460,@NT$SA,>0460,@C$FLD+>B4) PRPEC PP*--------------------------------------------------------------------* PP* * PRP*=P2088 CONTINUED * PP* CLEAR SAME AS FLAG IN 1ST ELEMENT OF AN ARRAY IF THE ARRAY IS * PP* NOT SAME AS ANOTHER FIELD. * PRP* * PPMPI ADDR = @C$FLD+>0C6, PP VDATA = (>44A0,@NT$SA), PRP DATA = (>0460,@PATCH+>0C) PPEC PPMPI ADDR = @PATCH+>0C, PRP VDATA = (>0000,>0000,>0000,>0000), PP DATA = (>44A0,@NT$SA,>8800,@SAMEAS) PPEC PRPMPI ADDR = @PATCH+>14, €%€% PP VDATA = (>0000,>0000,>0000,>0000,>0000), PP DATA = (>1602,>4460,@NT$SA,>0460,@C$FLD+>0CA) PRPEC PP*--------------------------------------------------------------------* PP* * PRP*=P2088 CONTINUED * PP* IF SAME AS AN ARRAY, MODIFY SAME AS NTB ADDRESS TO POINT TO 1ST * PP* ELEMENT OF THE ARRAY INSTEAD OF THE NTB HEADER FOR THE ARRAY. * PRP* * PP* PPMPI ADDR = @C$FLD+>1EA, PRP VDATA = (>04C0,>8800), PP DATA = (>0460,@PATCH+>1E) PPEC PRPMPI ADDR = @PATCH+>1E, PP VDATA = (>0000,>0000,>0000,>0000,>0000), PP DATA = (>C053,>2060,@NT$AB,>1602,>C0E3) PRPEC PPMPI ADDR = @PATCH+>28, PP VDATA = (>0000,>0000,>0000,>0000,>0000), PRP DATA = (@NT$DEF,>04C0,>8800,@NFLAG,>1302) PPEC PPMPI ADDR = @PATCH+>32, PRP VDATA = (>0000,>0000,>0000,>0000), PP DATA = (>0460,@C$FLD+>1F2,>0460,@C$FLD+>1FA) PPEC PRP*--------------------------------------------------------------------* PP* * PP*=P2088 CONTINUED * PRP* FORCE ARRAY ELEMENTS TO BE SAME AS THE 1ST ELEMENT OF THE ARRAY * PP* EVEN IF THE ARRAY IS SAME AS ANOTHER FIELD, AND FORCE ANY * PP* SAME AS FIELD WITH ATTRIBUTES TO BUILD AN FDT. * PRP* * PPMPI ADDR = @C$FLD+>20E, PP VDATA = (>C0A0,@BB$NXT), PRP DATA = (>0460,@PATCH+>3A) PPEC PPMPI ADDR = @PATCH+>3A, PRP VDATA = (>0000,>0000,>0000,>0000,>0000,>0000), PP DATA = (>C0A0,@BB$NXT,>04E0,@SAMEAS,>0460,@C$FLD+>0214) PPEC PRP*--------------------------------------------------------------------* PP* * PP*=P2088 CONTINUED * PRP* ALLOW FOR FORWARD REFERENCING SAME AS AN ARRAY. * PP* * PP* PRPMPI ADDR = @ENDSEG+>15E, PP VDATA = (>8008,>1127), PP DATA = (>0460,@PATCH+>48) PRPEC PPMPI ADDR = @PATCH+>48, PP VDATA = (>0000,>0000,>0000,>0000,>0000,>0000,>0000), PRP DATA = (>8008,>1109,>C056,>2060,@NT$AB,>1603,>C1A6) PPEC PPMPI ADDR = @PATCH+>56, PRP VDATA = (>0000,>0000,>0000,>0000,>0000,>0000), PP DATA = (@NT$DEF,>C056,>0460,@ENDSEG+>164,>0460,@ENDSEG+>1B0) PPEC PRPMPI ADDR = @ENDSEG+>025C, PP VDATA = (>C091,>C0D2), PP DATA = (>0460,@PATCH+>62) PRPEC PPMPI ADDR = @PATCH+>62, PP VDATA = (>0000,>0000,>0000,>0000,>0000,>0000), PRP DATA = (>C091,>C0D2,>20E0,@NT$AB,>1603,>C0A2) PPEC PPMPI ADDR = @PATCH+>6E, PRP VDATA = (>0000,>0000,>0000,>0000), PP DATA = (@NT$DEF,>C0D2,>0460,@ENDSEG+>260) PPEC PRP* PP.SYN C$FLD="", ENDSEG="", PP FLDBIT="", NT$SA="", SAMEAS="", NT$AB="", PRP NT$DEF="", NFLAG="", BB$NXT="", PP PATCH=@HOLD, HOLD="" PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2090 OPTIONAL SAB 08/13/82 STR #13251 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* AS RELEASED, THE EXECPROC WILL DELETE BLANKS ON A "JUSTIFY R" * PP* FIELD THAT ARE EMBEDDED IN THE TEXT. * PRP* * PP* SOLUTION: * PP* FIX IJUST$ SO THAT BLANKS EMBEDDED IN A RIGHT JUSTIFIED FIELD * PRP* ARE NOT DELETED. * PP* * PP.SYN IJUST$=>010F4 PRP* PP*MPI PROG = @VOLBLD.S$SDS$, PP* MODTYPE = PR, PRP* MODNAME = EXECPROC, PP* ADDRESS = @IJUST$+>AA, PP* VDATA = >06A0, PRP* DATA = >1004 PP*EC PP* PRP*.SYN IJUST$="" PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2091 SAB 08/13/82 STR #09547 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* THE FRENCH KEYBOARD USES AN ASCII COMMA FOR A DECIMAL POINT. * PP€%€%* * PP* SOLUTION: * PRP* THIS OPTIONAL PATCH ALLOWS TIFORM TO RECOGNIZE THIS DIFFERENCE. * PP* * PP*.SYN DECMLP=>1E28 PRP* PP*MPI PROG = @VOLBLD.S$SDS$, PP* MODT = PR, PRP* MODN = EXECPROC, PP* ADDR = @DECMLP, PP* VDATA = >2E30, PRP* DATA = >2C30 PP*EC PP* PRP*.SYN DECMLP="" PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2092 SAB 08/13/82 STR #09546 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* AS RELEASED, JUSTIFY L WILL TRUNCATE ANY LEADING INSTANCES OF * PP* THE SPECIFIED FILL CHARACTER OF THE JUSTIFY STATEMENT. * PP* * PRP* SOLUTION: * PP* JUMP AROUND AN INSTRUCTION. * PP* * PRP*.SYN IJUST$=>010F4 PP* PP*MPI PROG = @VOLBLD.S$SDS$, PRP* MODT = PR, PP* MODN = EXECPROC, PP* ADDR = @IJUST$+>80, PRP* VDATA = (@IJUST$+>6), PP* DATA = (@IJUST$+>A) PP*EC PRP* PP*.SYN IJUST$="" PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2108 SAB 06/30/82 STR #12762 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* THE EXECUTOR TERMINATES AFTER ATTEMPTING TO READ A GROUP THAT * PP* CONTAINS NO READABLE ITEMS. * PRP* * PP* SOLUTION: * PP* CHECK FOR END-OF-RIL WHEN USING FIELD BRANCHING. * PRP* * PP.SYN IFTRV$=>0C38 PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @IFTRV$+>0186, PP VDATA = (>110D,>100E), PP DATA = (>0460,@PATCH) PRPEC PPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>8018,>1102,>0460,@IFTRV$+>01A6) PPEC PPMPI ADDR = @PATCH+>0008, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@IFTRV$+>01A2) PPEC PRP* PP.SYN IFTRV$="", PP PATCH=>2C56 PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2165 TLB 09/10/82 STR #9856 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* IF AN APPLICATION RECIEVE BUFFER BEGINS OR ENDS ON AN ODD BYTE, * PRP* THE EXECUTOR DOES NOT RETURN THE LAST BYTE. * PP* * PP* SOLUTION: * PRP* RESTORES TRAILING ODD BYTES BEFORE SENDING BACK INFORMATION * PP* TO THE INTERFACE. * PP* * PRP* * PP.SYN NIPCS$=>2340,NSLEN=>451E,NTXADR=>46A4 PP* PRPMPI PROG=@VOLBLD.S$SDS$, PP MODT="PR", PP MODN=EXECPROC, PRP ADDR=@NIPCS$+>011E, PP VDATA=(>C060,@NTXADR), PP DATA=(>0460,@PATCH) PRPEC PP* PPMPI ADDR=@PATCH, PRP VDATA=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP DATA=(>8020,@NSLEN,>1304,>C060,@NTXADR,>0460,@NIPCS$+>122) PPEC PRP* PPMPI ADDR=@PATCH+>0E, PP VDATA=(>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA=(>0620,@NSLEN,>0460,@NIPCS$+>0116) PPEC PP.SYN NIPCS$="",NSLEN="",NTXADR="" PRP.SYN PATCH=>2C6C PP* €%€% PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2199 TLB 09/15/82 STR #13243 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* FIX A PROBLEM IN NIPCS$ : CONDITIONAL ATTRIBUTE TESTING WAS NOT * PP* BEING DONE. * PP* * PRP* SOLUTION: * PP* WHEN ICASD$ WAS CALLED, R2 HAD THE ADDRESS OF THE FCS INSTEAD * PP* OF AN ATTRUBUTE CODE FOR PRE- OR POST-ENTRY CAS. THIS PATCH * PRP* MAKES USE OF THE PREVIOUS CAS PATCH TO SET UP R2. * PP* * PP.SYN NIPCS$=>2344,CII=>454C PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @NIPCS$+>86, PP VDATA = (>C801,@CII), PRP DATA = (>0460,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>C801,@CII,>06A0,@CASPCH) PPEC PRPMPI ADDR = @PATCH+>08, PP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@NIPCS$+>08A) PRPEC PP* PP.SYN NIPCS$="",CII="",CASPCH="" PRP.SYN PATCH=>2C78 PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2256 SAB 09/27/82 STR #13560 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* EXECUTOR TERMINATES IF TRYING TO READ A GROUP MADE UP OF * PP* VARIABLES OR AN EXTERNAL VARIABLE. * PP* * PRP* SOLUTION: * PP* PATCH IBRIL$ TO HANDLE EXTERNAL VARIABLES. * PP* * PRP.SYN IBRIL$ = >0196, IFTYP$ = >0E3E PP* PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = PR, PP MODN = EXECPROC, PP ADDR = @IBRIL$+034, PRP VDATA = (>1B01,>02A2), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>1508,>1105,>06A0,@IFTYP$) PRPEC PPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (@IBRIL$+>0088,>8002,>1101,>04D7,>02A2) PPEC PPMPI ADDR = @PATCH+>0012, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@IBRIL$+>0038) PPEC PRP* PP.SYN IBRIL$="", IFTYP$="" PP* PRP.SYN PATCH=>2C8E PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2303 TLB 10/12/82 STR #13754 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* PRINT KEY TASK WAS MISMANAGING THE QUEUE FILE BECAUSE THE * PP* BACKSPACE IN THE FILE TO WRITE OVER THE OLD DELETE FILE * PP* COMMAND WAS NOT BEING PERFORMED PROPERLY. * PRP* * PP* SOLUTION: * PP* REINITIALIZING THE # OF RECORDS TO BACKSPACE IN THE BACKSPACE * PRP* PRB ALLOWS THE OPERATION TO BE PERFOMRED PROPERLY. * PP* * PP.SYN PADDQ$=>2D68,IO$LUN=>0003,IO$CNT=>000A,NUMREC=>0001 PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @PADDQ$+>028, PP VDATA = (>D84A,@IO$LUN), PRP DATA = (>0460,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>D84A,@IO$LUN,>0207) PPEC PRPMPI ADDR = @PATCH+>6, PP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (@NUMREC,>C847,@IO$CNT) PRPEC PPMPI ADDR = @PATCH+>0C, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@PADDQ$+>002C) PPEC PP* €%€% PRP.SYN PADDQ$="",IO$LUN="",IO$CNT="",NUMREC="" PP* PP.SYN PATCH=>2C9E PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2299 TLB 10/12/82 STR #13753 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* PRINT KEY TASK WAS TRASHING OUT WHEN IT ENCOUNTERED A FILE * PRP* THAT ALREADY EXISTED. * PP* * PP* SOLUTION: * PRP* INSERTING A CALL TO DMSG$ TO OUTPUT A "FILE ALREADY EXISTS" * PP* MESSAGE AND RETURNING AN "UNABLE TO BID PRINT KEY TASK" MESSAGE * PP* TO NEMSG$, THE PROPER MESSAGES ARE DISPLAYED AND THE EXECUTOR * PRP* CONTINUES NORMALLY. * PP* * PP.SYN PFILE$=>2FDC,MSG$NO=>569E PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @PFILE$+>013A, PP VDATA = (>D091,>0982), PRP DATA = (>C801,@MSG$NO) PPEC PP* PRP.SYN PFILE$="",MSG$NO="" PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2297 TLB 10/13/82 STR #13752 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* EDIT$ WAS ONLY BEING CALLED FOR DNOS; WHEN DX10 HAD TO CREATE * PP* A QUEUE FILE, THE BUFFER POINTERS FOR MSG$ WEREN'T SET UP * PP* CORRECTLY, SO THE MSG BUFFER WAS BUILT IN THE WRONG PLACE AND * PRP* EVENTUALLY THE EXECUTOR TAKES A TASK ERROR 05. * PP* * PP* SOLUTION: * PRP* ADD CALL TO EDIT$ IN PMAIN$. * PP* * PP* * PRP.SYN PMAIN$=>342A,MASK1=>2E38,EDIT$=>58CA,TXTBUF=>4812 PP* PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = PR, PP MODN = EXECPROC, PP ADDR = @PMAIN$+>005A, PRP VDATA = (>2160,@MASK1), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>2160,@MASK1,>1606) PRPEC PPMPI ADDR = @PATCH+>06, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>0420,@EDIT$,@TXTBUF) PPEC PPMPI ADDR = @PATCH+>0C, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>0050,>0460,@PMAIN$+>0060) PPEC PRPMPI ADDR = @PATCH+>12, PP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@PMAIN$+>0068) PRPEC PP* PP.SYN PMAIN$="",MASK1="",EDIT$="",TXTBUF="" PRP* PP.SYN PATCH=>2CB4 PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2420 TLB 11/03/82 STR #13919 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* IF A READ HAS AN EMPTY READABLE ITEM LIST (RIL), IBRIL$ SEARCHES * PP* BEYOND THE END OF THE RIL FOR AN ENTRY IN THE RIL THAT * PRP* DOESN'T EXIST. * PP* * PP* SOLUTION: * PRP* CHECK FOR EMPTY RIL BEFORE SEARCHING. * PP* * PP.SYN IBRIL$=>0196 PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @IBRIL$+>0078, PP VDATA = (>C087,>C046), PRP DATA = (>0460,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>C046,>C087,>1302) PPEC PRPMPI ADDR = @PATCH+>06, PP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@IBRIL$+>7C) PRPEC PPMPI ADDR = @PATCH+>0A, PP VDATA = (>DEAD,>DEAD), €%€% PRP DATA = (>0460,@IBRIL$+>82) PPEC PP* PRP.SYN IBRIL$="" PP* PP.SYN PATCH=>2CC2 PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2436 TLB 11/05/82 STR #13994 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* IF A FIELD HAS CONDITIONAL ATTRIBUTE SELECTION AND AN ARMED * PRP* EVENT KEY IS PRESSED UPON ENTERING THE FIELD, THE FIELD'S * PP* ATTRIBUTES REPLACE THOSE OF THE FIRST FIELD IN THE GROUP BEING * PP* READ. * PRP* * PP* SOLUTION: * PP* A CALL TO IRFDT$ INSERTED AFTER THE FIELD'S PROCESSING * PRP* FIXES THIS PROBLEM. * PP* * PP.SYN IREAD$=>14AC,IRFDT$=>1746,IFPRO$=>0B84 PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @IREAD$+>00D8, PP VDATA = (>06A0,@IFPRO$), PRP DATA = (>0460,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP* VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>06A0,@IFPRO$,@IREAD$+>0144) PPEC PRPMPI ADDR = @PATCH+>06, PP* VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>06A0,@IRFDT$,@IREAD$+>013C) PRPEC PPMPI ADDR = @PATCH+>0C, PP* VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@IREAD$+>00DE) PPEC PP* PRP.SYN IREAD$="",IRFDT$="",IFPRO$="" PP* PP.SYN PATCH=>2CD2 PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2492 TLB 11/17/82 STR #13865 DX10 TIFORM 3.0.0 XFDLC PROC * PRP* * PP* PROBLEM: * PP* WHEN DUMY IS ENTERED AS PROG FILE PATHNAME AND DELSEG IS * PRP* SPECIFIED, THE COMPILER TERMINATES WITH NO MESSAGE WHEN IT * PP* REACHES THE END OF THE FIRST SEGMENT. * PP* * PRP* SOLUTION: * PP* THIS PATCH REINSTALLS THE XFDLC PROC WITH A TEST FOR DUMY * PP* PROGRAM FILE; NO OPTIONS ARE PASSED TO THE COMPILER IF DUMY IS * PRP* SPECIFIED. * PP* PP.USE @PROC PRP.PROC PPXFDLC (EXECUTE FDL COMPILER ) = 2, PPSOURCE FORM PATHNAME = ACNM("@$$S"), PRPOBJECT PROGRAM FILE PATHNAME = ACNM("@$FDLC$O"), PPLISTING FILE PATHNAME = ACNM("@$FDLC$L"), PPERRORS FILE PATHNAME = *ACNM, PRPOPTIONS = *(STRING) PP.IF &OBJECT, EQ, "DUMY" PP .SYN OPS=" " PRP.ELSE PP .SYN OPS=&OPTIONS PP.ENDIF PRP.QBID TASK=>D2, LUNO=>10, PPPARMS = (&SOURCE, &OBJECT, &LISTING, &ERRORS, @OPS) PP.SYN OPS="" PRP.SYN $FDLC$O = "&OBJECT PROGRAM FILE PATHNAME" PP.SYN $FDLC$L = "&LISTING FILE PATHNAME" PP.EOP PRP.USE .S$PROC PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2599 SAB 12/15/82 STR # 13969 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* WHEN YOU PRESS THE PRINT KEY, THE TERMINAL IS NOT LOCKED UP * PP* FOR THE DURATION OF THE PRINT OPERATION AS IN PREVIOUS RELEASES. * PP* * PRP* SOLUTION: * PP* FIX SVC$ TO ALWAYS USE RETRY LOGIC. * PP* * PRP.SYN SVC$=>3754, RETRY=>5664, DELAY=>47AC PP* PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = TA, PP MODN = EXECT911, PP ADDR = >59D2+>0006, PRP VDATA = (>0000,>0000), PP DATA = (>0200,>000A) PP* EC PRPMPI MODN = EXECT820, PP ADDR = >59D2+>0006, PP VDATA = (>0000,>0000), PRP DATA = (>0200,>000A) €%€% PPEC PPMPI MODT = PR, PRP MODN = EXECPROC, PP ADDR = @SVC$+>000C, PP* VDATA = (>2FD1,>C751,>1307,>A742,>062C,@RETRY), PRP DATA = (>0205,>000B,>2FD1,>C751,>1305,>0605) PPEC PPMPI ADDR = @SVC$+>0018, PRP* VDATA = (>1103,>2FE0,@DELAY,>10F6), PP DATA = (>1102,>2FD3,>10F9,>A742) PPEC PRP* PP.SYN DELAY="", RETRY="" PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P3129 SAB/RHR 12/1/82 STR #14562 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* USING THE PRINT KEY CAUSES THE EXECUTOR TO TERMINATE. * PP* * PRP* SOLUTION: * PP* FIX PRINT KEY FUNCTION TO GET ACCESS TO PRINTER OR LOGICAL * PP* NAME VIA SVC$. * PRP* * PP.SYN PSCRN$=>35B4 PP* PRPMPI ADDR = @PSCRN$+>0012, PP* VDATA = (>2FD1,>D021,>0001), PP DATA = (>0460,@SVC$,>1000) PRPEC PP* PP.SYN PSCRN$="", SVC$="" PRP* PP.SYN PATCH=>2CD2 PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2600 SAB 12/22/82 STR #14375 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* FINAL VALIDATION IS NOT ATTEMPTING TO EXECUTE TEST FOR * PP* CONDITIONAL ATTRIBUTES DURING FORCED RE-EDIT PHASE. * PRP* * PP* SOLUTION: * PP* PATCH ISIL$ TO TEST CAS. * PRP* * PP.SYN IVAL$ = >1F08, ICASD$ = >025A, FA$CAS = >001D, FA$PCA = >0013, PP ISIL$ = >1A30 PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @IVAL$+>001E, PP VDATA = (>06A0,@ISIL$,>0000), PRP DATA = (>0460,@PATCH,>1000) PPEC PPMPI ADDR = @PATCH, PRP* VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>0202,>FE02,>8742,>1603) PPEC PRPMPI ADDR = @PATCH+>0008, PP* VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>0202,@FA$CAS,>1002) PRPEC PPMPI ADDR = @PATCH+>000E, PP* VDATA = (>DEAD,>DEAD), PRP DATA = (>0202,@FA$PCA) PPEC PPMPI ADDR = @PATCH+>0012, PRP* VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>06A0,@ICASD$,@IVAL$+>007A) PPEC PRPMPI ADDR = @PATCH+>0018, PP* VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>C056,>06A0,@ISIL$,>0000) PRPEC PPMPI ADDR = @PATCH+>0020, PP* VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@IVAL$+>0024) PPEC PP* PRP.SYN IVAL$ = "", ISIL$ = "", FA$CAS = "", FA$PCA = "", ICASD$="" PP* PP.SYN PATCH= >2CF6 PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2658 SAB 01/25/83 STR #14560 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* PATCH 2436 DID NOT ALLOW FOR CONDITIONAL EDIT SELECTIONS * PRP* WHICH CONTAINED UNCONDITIONAL BRANCHES. * PP* * PP* SOLUTION: * PRP* MOVE THE CALL OF IRFDT$ TO AFTER THE IFTRV$ CALL AT THE TOP * PP* OF THE LOOP. * PP* * PRP.SYN IREAD$=>14AC, IRFDT$=>1746, IFPRO$=>0B84, IFTRV$=>0C38, PP PATCH=>2CC2 PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @IREAD$+>00D8, PP VDATA = (€%€%>0460,@PATCH), PP DATA = (>06A0,@IFPRO$) PRPEC PPMPI ADDR = @IFTRV$+>01A0, PP* VDATA = >1026, PRP DATA = >1005 PPEC PP* PRP* FREE PATCH SPACE FROM >2CC2 TO >2CD0 * PP* * PPMPI ADDR = @PATCH, PRP* VDATA = (>06A0,@IFPRO$,@IREAD$+>0144), PP DATA = (>DEAD,>DEAD,>DEAD) PPEC PRPMPI ADDR = @PATCH+>06, PP* VDATA = (>06A0,@IRFDT$,@IREAD$+>013C), PP DATA = (>DEAD,>DEAD,>DEAD) PRPEC PPMPI ADDR = @PATCH+>0C, PP* VDATA = (>0460,@IREAD$+>00DE), PRP DATA = (>DEAD,>DEAD) PPEC PP* PRP.SYN IREAD$="",IRFDT$="",IFPRO$="",IFTRV$="" PP* PP.SYN PATCH=>2CF6 PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2659 SAB 01/25/83 STR #14563 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* SAME AS PATCH #2599. * PRP* * PP* SOLUTION: * PP* PUT RETRY COUNT INLINE. * PRP* * PP.SYN SVC$=>3754, PSCRN$=>35B4 PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @SVC$+>001A, PP VDATA = >2FD3, PP DATA = >2FC3 PRPEC PPMPI ADDR = @PSCRN$+>0012, PP VDATA = >0460, PRP DATA = >0420 PPEC PP* PRP.SYN PSCRN$="", SVC$="" PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2681 SAB 02/02/83 STR #14648 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* SAME AS PATCH #2599. * PP* * PP* SOLUTION: * PRP* NO-OP JUMP INSTRUCTION. * PP* * PP.SYN PSCRN$=>35B4 PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @PSCRN$+>0016, PP VDATA = >1000, PRP DATA = >C000 PPEC PP* PRP.SYN PSCRN$="" PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2682 SAB 02/08/83 STR #14649 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* ANY ERRORS IN MANAGING THE PRINT KEY QUEUE FUNCTION CAUSE THE * PP* EXECUTOR TO TERMINATE WITHOUT RETURNING ANY MESSAGE. * PP* * PRP* SOLUTION: * PP* FIX PRINT KEY FUNCTION TO GET ACCESS TO ALL FILES VIA SVC$. * PP* * PRP.SYN PMAIN$=>342A, NPRNT$=>287E, NOT$PR=>5715, MSG$NO=>569E, PP P2085=>2BF4 PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @NPRNT$+>001A, PP VDATA = >8020, PP DATA = >8320 PRPEC PPMPI ADDR = @PMAIN$+>004C, PP VDATA = (>D021,>0001,>163D), PRP DATA = (>0460,@PATCH,>1000) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>D021,>0001,>1607) PPEC PRPMPI ADDR = @PATCH+>0006, PP VDATA = (>DEAD,>DEAD), €%€% PP DATA = (>0460,@PMAIN$+>0052) PRPEC PPMPI ADDR = @P2085+>0006, PP VDATA = (>D021,>0001), PRP DATA = (>0460,@PATCH+>000A) PPEC PPMPI ADDR = @PATCH+>000A, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>D021,>0001,>1602) PPEC PRPMPI ADDR = @PATCH+>0010, PP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@P2085+>000A) PRPEC PPMPI ADDR = @PATCH+>0014, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0201,@NOT$PR) PPEC PPMPI ADDR = @PATCH+>0018, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>C801,@MSG$NO) PPEC PRPMPI ADDR = @PATCH+>001C, PP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@PMAIN$+>00CC) PRPEC PP* PP.SYN PMAIN$="", NPRNT$="", NOT$PR="", MSG$NO="", P2085="" PRP* PP.SYN PATCH=>2D26 PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2714 SAB 03/08/83 STR #14738 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* PATCH 2658 DISCONNECTED THE INDEX RETURN FUNCTION. THIS BROKE * PP* THE ISGE WHERE ROW/COLUMN CAME INTO PLAY. * PRP* * PP* SOLUTION: * PP* PATCH IRFDT$ TO RETURN INDEX. * PRP* * PP.SYN IRFDT$=>1738, IFTRV$=>0C38, PATCH=>2CC2 PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @IFTRV$+>019E, PP* VDATA = (>0706,>1026), PP DATA = (0460,@PATCH) PRPEC PPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>0706,>06A0,@IRFDT$,>0000) PPEC PPMPI ADDR = @PATCH+>08, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>0460,@IFTRV$+>01EE) PPEC PRP* PP.SYN IRFDT$="",IFTRV$="" PP* PRP.SYN PATCH=>2D26 PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2762 SAB 03/08/83 STR #14756 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* WHEN INDEXING INDICATES A VARIABLE AND THE COUNT IS NON-ZERO, * PP* THE EXECUTOR ABORTS. * PP* * PRP* SOLUTION: * PP* PATCH IBRIL$ TO CORECTLY HANDLE AN EXTERNAL VARIBABLE. * PP* * PRP.SYN IBRIL$ = >0196, BRNII = >4552, BRNRIL = >4554 PP* PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = PR, PP MODN = EXECPROC, PP ADDR = @IBRIL$+>0074, PRP VDATA = (>04D7,>61C8), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>04D7,>8020,@BRNII,>1102), PRPEC PPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>61C8,>1003,>C207,>05C8,>04C7) PPEC PPMPI ADDR = @PATCH+>0012, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@IBRIL$+>0078) PPEC PRP* PP.SYN IRFDT$="",IFTRV$="" PP* PRP.SYN PATCH=>2B1E PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2763 SAB 03/08/83 STR #14900 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: €%€% * PRP* WHEN THE SAME AS * IS USED IN AN EDIT SET, THE EXECUTOR GOES * PP* INTO A LOOP. * PP* * PRP* SOLUTION: * PP* PATCH ICASD$ TO HANDLE THE SAME AS SPECIFICATION WITHIN AN EDIT * PP* SET. * PRP* * PP.SYN ICASD$ = >025A PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @ICASD$+>0060, PP VDATA = (>C582,>10DA), PP DATA = (>0460,@PATCH) PRPEC PPMPI ADDR = @PATCH, PP VDATA = (>2050,>524F,>5045,>5254,>5920), PRP DATA = (>8582,>1303,>C582,>0460,@ICASD$+>0018) PPEC PPMPI ADDR = @PATCH+>000A, PRP VDATA = (>4F46,>2054), PP DATA = (>0460,@ICASD$+>004E) PPEC PRP* PP.SYN ICASD$="" PP* PRP.SYN PATCH=>2B2C PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2764 SAB 03/10/83 STR #14901 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* FINAL VALIDATION IS NOT ATTEMPTING TO EXECUTE TEST FOR CAS * PP* DURING FORCED RE-EDIT PHASE, AND PATCH 2601 IS BROKEN BY * PP* PATCH 2763. * PRP* * PP* SOLUTION: * PP* PATCH IVAL$ TO RE-EXECUTE CAS TESTING DURING FORCED RE-READ. * PRP* * PP.SYN IVAL$ = >1F08, ICASD$ = >025A, FA$CAS = >001D, FA$PCA = >0013, PP FC$FDT= >0004, CIIFDT=>454E, ISIL$=>1A30, PATCH=>2CD2 PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @IVAL$+>001E, PP VDATA = (>0460,@PATCH,>1000), PRP DATA = (>06A0,@ISIL$,>0000) PPEC PPMPI ADDR = @IVAL$+>0024, PRP VDATA = (>C822,@FC$FDT,@CIIFDT), PP DATA = (>0460,@PATCH,>1000) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>0202,>FE02,>8742,>1603), PP DATA = (>C822,@FC$FDT,@CIIFDT,>0202) PRPEC PPMPI ADDR = @PATCH+>0008, PP VDATA = (>0202,@FA$CAS,>1002), PRP DATA = (>FE02,>8742,>1603) PPEC PPMPI ADDR = @PATCH+>000E, PRP VDATA = (>0202,@FA$PCA,>06A0), PP DATA = (>0202,@FA$CAS,>1002) PPEC PRPMPI ADDR = @PATCH+>0014, PP VDATA = (@ICASD$,@IVAL$+>007A), PP DATA = (>0202,@FA$PCA) PRPEC PPMPI ADDR = @PATCH+>0018, PP VDATA = (>C056,>06A0,@ISIL$), PRP DATA = (>06A0,@ICASD$,@IVAL$+>007A) PPEC PPMPI ADDR = @PATCH+>001E, PRP VDATA = (>0000,>0460,@IVAL$+>0024), PP DATA = (>0460,@IVAL$+>002A,>DEAD) PPEC PRP* PP.SYN IVAL$ = "", ISIL$ = "", FA$CAS = "", FA$PCA = "", ICASD$="" PP* PRP.SYN PATCH= >2B2C PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2765 SAB 03/14/83 STR #14902 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* FINAL VALIDATION ERRORS DO NOT RE-OPEN THE READ CORRECTLY. * PP* * PP* SOLUTION: * PRP* PATCH IREAD$ TO REOPEN THE READ. * PP* * PP.SYN IREAD$=>14AC,IVAL$=>1F08,IRDCMP=>4582 PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @IREAD$+>0128, PP VDATA = @IREAD$+>0140, PRP DATA = @PATCH PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>4558,>4153), PP DATA = (>04E0,@IRDCMP) PPEC PRP€%€%MPI ADDR = @PATCH+>0004, PP VDATA = (>2049,>4E53), PP DATA = (>0460,@IREAD$+>0140) PRPEC PP* PP.SYN IREAD$="",IVAL$="",IRDCMP="" PRP* PP.SYN PATCH=>2B34 PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2766 SAB 03/15/83 STR #14903 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* IF AN ITEM IS IN A STANDARD GROUP TWICE, WE ACTUALLY READ IT * PP* TWICE. * PRP* * PP* SOLUTION: * PP* SUPRRES SECOND READ OF AN ITEM THAT APPEARS TWICE IN A GROUP. * PRP* * PP.SYN IBRIL$=>0196 PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @IBRIL$+>004E, PP VDATA = (>11F7,>C088), PP DATA = (>0460,@PATCH) PRPEC PPMPI ADDR = @PATCH, PP VDATA = (>5452,>554D,>454E,>5453,>2049,>4E43), PRP DATA = (>1105,>C088,>8072,>1304,>1B05,>10FC) PPEC PPMPI ADDR = @PATCH+>000C, PRP VDATA = (>4F52,>504F), PP DATA = (>0460,@IBRIL$+>003E) PPEC PRPMPI ADDR = @PATCH+>0010, PP VDATA = (>5241,>5445), PP DATA = (>0460,@IBRIL$+>0040) PRPEC PPMPI ADDR = @PATCH+>0014, PP VDATA = (>442E,>2052,>4553), PRP DATA = (>C088,>0460,@IBRIL$+>0052) PPEC PP* PRP.SYN IBRIL$="" PP* PP.SYN PATCH=>2B50 PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2767 SAB 03/15/83 STR #14904 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* FINAL VALIDATION ERRORS DO NOT REPROCESS THE READ CORRECTLY. * PRP* * PP* SOLUTION: * PP* PATCH IVAL$ TO REPROCESS THE READ AFTER A VALIDATION ERROR. * PRP* * PP.SYN IVAL$=>1F08, CRIL=>4550 PP* PRPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @IVAL$+>006A, PP VDATA = (>05C6,>10D4), PP DATA = (>0460,@PATCH) PRPEC PPMPI ADDR = @PATCH, PP VDATA = (>4943,>5445,>4420,>5249,>4748), PRP DATA = (>05C6,>C806,@CRIL,>0460,@IVAL$+>0016) PPEC PP* PRP.SYN IVAL$="" PP* PP.SYN PATCH=>2B5A PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P3038 SAB 08/24/83 STR #15245 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* THE PRINT FUNCTION DOES NOT RELEASE THE .S$TIFORM.PRINT.TERMINAL * PRP* FILE LUNO. * PP* * PP* SOLUTION: * PRP* THIS PATCH RELEASES THE LUNO FOR THE TERMINAL FILE. * PP* * PP.SYN RLFILE=>47DC+>10BE, PRP CLFILE=>47DC+>10A2, PP PGTPR$=>31A6, PP PKY$LU=>5662 PRP* PPMPI PROG = @VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @PGTPR$+>00B8, PP VDATA = (>0201,@CLFILE), PRP DATA = (>0460,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>5453,>202D), PP DATA = (>0201,@CLFILE) PPEC PRPMPI ADDR = @PATCH+>0004, €%€% PP VDATA = (>2055,>5345,>2C20,>4455), PP DATA = (>D860,@PKY$LU,>0003,>2FD1) PRPEC PPMPI ADDR = @PATCH+>000C, PP VDATA = (>504C,>4943), PRP DATA = (>0201,@RLFILE) PPEC PPMPI ADDR = @PATCH+>0010, PRP VDATA = (>4154,>494F), PP DATA = (>0460,@PGTPR$+>00BC) PPEC PRP* PP.SYN RLFILE="", CLFILE="", PGTPR$="" PP* PRP.SYN PATCH=>2B6E PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P3130 SAB/RHR 9/10/83 STR #15289 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* THE PRINT FUNCTION DOES NOT CLEAR THE PRIVATE PRINT DIRECTORY * PP* FLAG. * PP* * PRP* SOLUTION: * PP* PATCH PGTPR$ TO CLEAR PRIVATE PRINT DIRECTORY FLAG BEFORE * PP* ATTEMPTING TO ACCESS OUTPUT DEVICE. * PRP* * PP.SYN ALFILE=>5792, PP PPDFLG=>5666, PRP PGTPR$=>31A6 PP PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = PR, PP MODN = EXECPROC, PP ADDR = @PGTPR$+>0008, PRP VDATA = (>0201,@ALFILE), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>4E20,>4F52), PP DATA = (>04E0,@PPDFLG) PRPEC PPMPI ADDR = @PATCH+>0004, PP VDATA = (>2044,>4953), PRP DATA = (>0201,@ALFILE) PPEC PPMPI ADDR = @PATCH+>0008, PRP VDATA = (>434C,>4F53), PP DATA = (>0460,@PGTPR$+>000C) PPEC PRP* PP.SYN ALFILE="", PPDFLG="", PGTPR$="" PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P3173 RHR/CEW 10/18/82 STR #16713 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* NOPNF$ WAS NOT RELEASING MEMORY. * PP* * PRP* SOLUTION: * PP* SVC CALL WAS NOT USING R9. SINCE THIS PATCH CAUSES UNUSED * PP* MEMORY TO BE RELEASED, SUBSEQUENT OPEN FORM AND PREPARE SEGMENT * PRP* COMMANDS REQUIRE MORE GET MEMORY SVC CALLS. TO SUPPRESS THE * PP* SWAPPING THIS CAUSES, AN OPTIONAL PATCH IS AVAILABLE (P3174). * PP* * PRP.SYN NOPNF$ = >2478 PP* PPMPI PROG = @VOLBLD.S$SDS$, PRP MODT = PR, PP MODN = EXECPROC, PP ADDR = @NOPNF$+>025A, PRP VDATA = (>C804,>47AA), PP DATA = (>C244,>C000) PPEC PRP* PP.SYN NOPNF$ ="" PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P3174 RHR/CEW 10/18/82 STR #16713 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* OPTIONAL. * PP* * PP* PROBLEM: * PRP* PATCH 3173 FIXED THE RELEASE MEMORY IN NOPNF$. THIS PATCH * PP* CAUSES SUBSEQUENT OPEN FORM AND PREPARE SEGMENT COMMANDS * PP* TO GET MEMORY MORE OFTEN. THIS SLOWS DOWN EXECUTION WITH MORE * PRP* SWAPPING. * PP* * PP* SOLUTION: * PRP* THIS PATCH TURNS OFF THE RELEASE MEMORY SVC IN NOPNF$. * PP* IT CHANGES A JUMP ON EQUAL TO A JUMP ON LESS THAN OR EQUAL SO * PP* THAT SRCH50 IS NEVER USED (WHERE RELEASE MEMORY IS NORMALLY * PRP* DONE). * PP* * PP*.SYN NOPNF$ = >2478 PRP* PP*MPI PROG = @VOLBLD.S$SDS$, PP* MODT = PR, PRP* MODN = EXECPROC, PP* ADDR = @NOPNF$+>023E, PP* VDATA = (>1311), PRP* DATA = (>1211) PP*EC €%€% PP* PRP*$ PP* PP*.SYN NOPNF$="" PRP* PP* PP*--------------------------------------------------------------------* PRP* PATCHES ABOVE THIS LINE WERE RELEASED FOR DX10 3.5.2 TIFORM 3.0.0 * PP*--------------------------------------------------------------------* PP*--------------------------------------------------------------------* PRP* * PP*=P3352 RHR/CEW 12/20/83 STR #17177 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* IF A TERMINAL TIME-OUT OCCURS, TIFORM REPORTS NO ERROR TO THE * PP* APPLICATION, BUT PROCEEDS TO RETRY 11 TIMES, ISSUE A MESSAGE * PRP* TO THE TIMED-OUT TERMINAL (W/RETRY), AND LOOPS ETERNALLY. * PP* * PP* SOLUTION: * PRP* THIS PATCH ALLOWS THE EXEC TO REPORT A TIFORM 19 ERROR * PP* ALONG WITH AN 06 OS CODE (TIME-OUT). IF THE TERMINAL IS DISCON- * PP* NECTED, A 07 TIFORM ERROR IS REPORTED. THIS PATCH ALSO DISABLES * PRP* THE RETRY LOGIC, SINCE RETRY ONLY CAUSES UNNECESSARY LOOPS. HOW- * PP* EVER, THOSE USERS WISHING TO ENSURE THAT THE PRINT KEY TIES UP * PP* THE TERMINAL UNITL THE PRINT IS COMPLETE MAY WISH TO APPLY THE * PRP* OPTIONAL PATCH #3353. PATCH #3353 RE-ENABLES RETRY AND IS * PP* HIGHLY UNRECOMMENDED FOR USE WITH TERMINAL TIME-OUT. * PP* * PRP.SYN SVC$=>3754 PP.SYN DREAD$=>3A3E PP.SYN PCH911=>3DAE PRP* PPMPI PROG=@VOLBLD.S$SDS$, PP MODT = PR, PRP MODN = EXECPROC, PP ADDR = @SVC$+>000E, PP VDATA = (>000B), PRP DATA = (>0000) PPEC PPMPI ADDR = @SVC$+>001E, PRP VDATA = (>A742), PP DATA = (>B742) PPEC PRP* PP* PPMPI MODT = PR, PRP MODN = EXECP911, PP ADDR = @DREAD$+>0100, PP VDATA = (>D129,>0011), PRP DATA = (>0460,@PCH911) PPEC PPMPI MODT = PR, PRP MODN = EXECP911, PP ADDR = @PCH911, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>C000,>1302,>0460,>3B98) PPEC PPMPI MODT = PR, PRP MODN = EXECP911, PP ADDR = @PCH911+>0008, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>D129,>0011,>0460,>3B42) PP* PP.SYN SVC$="" PRP.SYN DREAD$="" PP.SYN PCH911="" PP* PRPEC PP* PP* First available 911 patch area at PCH911+>0A. PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P3153 RHR/CEW 12/20/83 STR #13969 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* OPTIONAL. * PP* * PRP* PROBLEM: * PP* PT #3152 DISABLED RETRY LOGIC FOR SVC$ TO AVOID ENDLESS LOOP- * PP* ING AFTER A TIMEOUT. USERS WHO WISH TO ENSURE THAT THE PRINT * PRP* KEY TIES UP THE TERMINAL UNTIL THE PRINT IS COMPLETE CAN SET * PP* THIS RETRY COUNT BY APPLYING THIS PATCH. * PP* * PRP* SOLUTION: * PP* THIS PATCH RESETS THE RETRY COUNT FOR >B TIMES. YOU CAN * PP* ADJUST THIS VALUE IN THIS PATCH DEPENDING ON THE REQUIREMENTS * PRP* OF YOUR SYSTEM. THIS WILL NOT LOOP ENDLESSLY ON A TIME-OUT OR A * PP* DISCONNECT ERROR, BUT IT WILL LOOP THE NUMBER OF TIMES THAT YOU * PP* SET THE RETRY FOR. * PRP* PP*.SYN SVC$=>3754 PP* PRP*MPI PROG=@VOLBLD.S$SDS$, PP* MODT = PR, PP* MODN = EXECPROC, PRP* ADDR = @SVC$+>000E, PP* VDATA = (>000B), PP* DATA = (>0000) PRP*EC PP* PP*.SYN SVC$="" PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P3426 RHR/CEW 2/20/84 STR #17470 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * €%€% PP* IF THE APPLICATION BUFFER AREA BEGINS ON AN ODD BYTE, A READ * PRP* INDEXED CALL CLOBBERS THE BYTE TRAILING THE BUFFER AREA. * PP* * PP* SOLUTION: * PRP* DO NOT AUTOINCREMENT BUFFER LENGTH COUNT IN THE ODD BYTE BUFFER * PP* LOGIC OF NIPCS$. * PP* * PRP* PP.SYN NIPCS$=>2340 PP* PRPMPI PROG=@VOLBLD.S$SDS$, PP MODT = PR, PP MODN = EXECPROC, PRP ADDR = @NIPCS$+>011C, PP VDATA = (>DD81), PP DATA = (>D581) PRPEC PP* PP.SYN NIPCS$="" PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* PP.SYN PATCH=>2B7A PRP* PP.USE PP* PRPSDT PP* PP*--------------------------------------------------------------------* PRP* * PP*** NEXT AVAILABLE PATCH LOCATION = @PATCH *** PP* * PRP*--------------------------------------------------------------------* PPEBATCH LS=YES, PP TEXT="@$E$C ERRORS ON TIFORM MULTI-TASK PATCH STREAM", PRP CODE=@$E$C PP*--------------------------------------------------------------------* P * PRÿÿ†LINKD911 PR³ÑàõÀlä‚ÀˆÛ|P*--------------------------------------------------------------------* PP*** PATCH FILE DX10 3.6 TIFORM.LINKD911 3.0.0 *A LAST UPDATE 2/21/84 * PP*--------------------------------------------------------------------* PRP* PP* TITLE: PATCH STREAM TO APPLY PATCHES TO AN APPLICATION LINKED PP* WITH THE TIFORM LINKABLE MODULES. PRP* PP* NOTE: ASSIGN THE FOLLOWING SYNONYMS: PP* PRP* PRG = THE PATHNAME OF THE PROGRAM FILE WHERE YOUR PP* COMPLETELY LINKED APPLICATION RESIDES. PP* PRP* MTYPE = "TA" IF THE APPLICATION IS A TASK PP* OR "PR" IF THE APPLICATION IS A PROCEDURE PP* PRP* BASE = THE HEX VALUE FROM THE APPLICATION LINK MAP OF THE PP* ORIGIN OF THE MODULE 'YY$LINKD' (WHERE "YY" IS THE PP* INTERFACE TYPE USED BY THE APPLICATION) PRP* PP* DATA = THE HEX VALUE OF THE $DATA MODULE IMMEDIATELY AFTER PP* THE 'YY$LINKD' MODULE IN THE APPLICATION LINK MAP. PRP* PP* TASKNAME = THE INSTALLED NAME OF THE APPLICATION. PP* PRP* INTRTYPE = 'YY' FROM THE 'YY$LINKD' MODULE TO IDENTIFY PP* THE TYPE OF LANGUAGE INTERFACE THE APPLICATION PP* USES PRP* PP* NFM$TB = LOAD ADDRESS FROM THE APPLICATION LINK MAP FOR PP* THE $DATA MODULE THAT FOLLOWS THE NFM$TB MODULE. PRP* PP* NFM$LN = LENGTH FROM THE APPLICATION LINK MAP OF THE PP* $DATA MODULE THAT FOLLOWS THE NFM$TB MODULE. PRP* PP* IT IS BEST TO APPLY PATCHES FROM A USER ID WITH NO USER SYNONYMS. PP* PRP* OPTIONAL PATCHES: PP* READ THE DESCRIPTIONS OF ALL OPTIONAL PATCHES BEFORE IN- PP* STALLING THEM. OPTIONAL PATCHES HAVE BEEN COMMENTED OUT IN PRP* COLUMN ONE. THE ASTERISK MUST BE REMOVED FROM COLUMN ONE TO PP* APPLY THE DESIRED OPTIONAL PATCHES. PP* PRP* OPTIONAL PATCHES REFER TO THE FOLLOWING PROBLEMS AND PATCH PP* NUMBERS: PP* PRP* P3174 RHR 10/18/82 STR #16728 DX10 TIFORM 3.0.0 LINKD PP* PP* NOPNF$ WAS NOT RELEASING MEMORY. SVC CALL WAS NOT USING R9. PRP* SINCE THIS PATCH CAUSES UNUSED MEMORY TO BE RELEASED, SUBSEQUENT PP* OPEN FORM AND PREPARE SEGMENT COMMANDS REQUIRE MORE GET MEMORY PP* SVC CALLS. THIS IS DONE BY P3173. THIS PATCH (3174) SUPPRESSES PRP* THE RELEASE MEMORY TO AVOID THE SWAPPING THIS CAUSES. PP* PP* PRP*--------------------------------------------------------------------* PPBATCH LS=YES PP*--------------------------------------------------------------------* PRP* PPQ$SYN PP.IF @INTRTYPE, EQ, "CX" PRP.SYN ORIGIN = @BASE+>4F2 PP.SYN DSEG = @DATA+>BC PP.ELSE PRP.IF @INTRTYPE, EQ, "PX" PP.SYN ORIGIN = @BASE+>4B6 PP.SYN DSEG = @DATA+>A8 PRP.ELSE PP.SYN ORIGIN = @BASE+>4E6 PP.SYN DSEG = @DATA+>BA PRP.ENDIF €%€% PP.ENDIF PP* PRP.SYN PATCH=@ORIGIN+>299C PP.SYN PCHDAT=@DSEG+>01E8 PP* PRP*--------------------------------------------------------------------- PP* PP* *** BEGIN PATCHES FOR DX10 TIFORM.LINKD911 VERSION 3.0 *** PRP* PP*--------------------------------------------------------------------- PP*--------------------------------------------------------------------* PRP* * PP*=P2207 SAB 06/30/82 STR #13298 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* THE EXECUTOR TERMINATES AFTER ATTEMPTING TO READ A GROUP THAT * PP* CONTAINS NO READABLE ITEMS. * PRP* * PP* SOLUTION: * PP* CHECK FOR END-OF-RIL WHEN USING FIELD BRANCHING. * PRP* * PP.SYN IFTRV$=@ORIGIN+>0C40 PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @IFTRV$+>0186, PRP VDATA = (>110D,>100E), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>8018,>1102,>0460,@IFTRV$+>01A6) PRPEC PPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@IFTRV$+>01A2) PPEC PP.SYN IFTRV$="" PRP.SYN PATCH=@ORIGIN+>29A8 PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2208 SAB 06/30/82 STR #13426 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* POINTERS TO THE BEGINNING AND THE END OF THE DYNAMIC FORM * PP* BUFFER SPACE WRONG FOR BUFFERS LARGER THAN 2000. * PP* * PRP* SOLUTION: * PP* CORRECT POINTERS IN NDATA$. * PP* * PRP.SYN NDATA$ = @DSEG+>00B0 PP* PPMPI PROG = @PRG, PRP MODT = TA, PP MODN = @TASKNAME, PP ADDR = @NDATA$+>003A, PRP DATA = (@NFM$TB+>0006,@NFM$TB+@NFM$LN+>0006) PPEC PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2209 SAB 06/30/82 STR #13427 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* EXECUTOR CANNOT HANDLE DEVICE DEPENDENT SEGMENTS. * PP* * PRP* SOLUTION: * PP* PATCH NPREP$ TO SUPPRESS SECOND ATTEMPT TO RESOLVE DEVICE * PP* DEPENDENCY. * PRP* * PP.SYN NPREP$=@ORIGIN+>25B6 PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @NPREP$+>0062, PRP VDATA = >C114, PP DATA = >1000 PPEC PRP.SYN NPREP$="" PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2210 SAB 06/30/82 STR #13428 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* THE LINKABLE PARTS DO NOT INCLUDE NSELF$. THEREFORE, D$MAXC AND * PP* D$MAXR WERE NOT PRESENT. * PP* * PRP* SOLUTION: * PP* INCLUDE NSELF$ IN NDATA$. * PP* * PRP.SYN NDATA$=@DSEG+>00B0 PPMPI PROG = @PRG, PP MODT = TA, PRP MODN = @TASKNAME, PP ADDR = @NDATA$+>0040, PP VDATA = (>0000,>0000), PRP DATA = (>0017,>004F) PPEC PP.SYN NDATA$="" PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* €%€% * PP*=P2211 SAB 08/12/82 STR #13246 DX10 TIFORM 3.0.0 EXECT911 * PRP* * PP* PROBLEM: * PP* NO MORE THAN ONE TIFORM APPLICATION CAN EXECUTE AT ONE TIME. * PRP* * PP* SOLUTION: * PP* PUT OUTPUT PRB INITIALIZATION BUFFER BACK INTO THE DSEG. * PRP* * PP.IF @MTYPE, EQ, "PR" PP.SYN DI$OUT = @ORIGIN+>35A0, PRP PCHDSG = @DSEG+>0214+>0D76, PP DCLRS$ = @ORIGIN+>356E, PP DOPEN$ = @ORIGIN+>36F4, PRP DWRIT$ = @ORIGIN+>3986 PP* PPMPI PROG = @PRG, PRP MODT = TA, PP MODN = @TASKNAME, PP ADDR = @PCHDSG, PRP VDATA = (>0000,>0000,>0000,>0000,>0000,>0000), PP DATA = (>0000,>0B00,>0002,>0000,>0000,>0000) PPEC PRPMPI ADDR = @PCHDSG+>000C, PP VDATA = (>0000,>0000,>0000,>0000,>0000), PP DATA = (>0000,>84F1,>0000,>0000,>0000) PRPEC PPMPI MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @DCLRS$+>000A, PP VDATA = @DI$OUT, PP DATA = @PCHDSG PRPEC PPMPI ADDR = @DOPEN$+>000A, PP VDATA = @DI$OUT, PRP DATA = @PCHDSG PPEC PPMPI ADDR = @DWRIT$+>009C, PRP VDATA = @DI$OUT, PP DATA = @PCHDSG PPEC PRP* PP.SYN DCLRS$ = "", PP DOPEN$ = "", PRP DWRIT$ = "", PP PCHDSG = "", PP DI$OUT = "" PRP.ENDIF PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2212 SAB 08/12/82 STR #13243 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* FINAL VALIDATION IS NOT ATTEMPTING TO EXECUTE TEST FOR * PP* CONDITIONAL ATTRIBUTES DURING FORCED RE-EDIT PHASE. * PP* * PRP* SOLUTION: * PP* PATCH ISIL$ TO TEST CAS. * PP* * PRP.SYN IVAL$ = @ORIGIN+>1F10, IFEDT$ = @ORIGIN+>084A, PP FA$CAS = >001D, FA$PCA = >0013, CASPCH = @PATCH PP* PRPMPI PROG = @PRG, PP MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @IVAL$+>0050, PP VDATA = (>0202,@FA$PCA), PP DATA = (>06A0,@PATCH) PRPEC PPMPI ADDR = @IFEDT$+>0034, PP VDATA = (>0202,@FA$PCA), PRP DATA = (>06A0,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>0202,>FE02,>8742,>1603) PPEC PRPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>0202,@FA$CAS,>1002) PRPEC PPMPI ADDR = @PATCH+>000E, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>0202,@FA$PCA,>045B) PPEC PP* PRP.SYN IVAL$ = "", IFEDT$ = "", FA$CAS = "", FA$PCA = "" PP.SYN PATCH = @ORIGIN+>29BC PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2213 TLB 09/15/82 STR #13243 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* FINAL VALIDATION IS NOT ATTEMPTING TO EXECUTE PRE-ENTRY * PP* CONDITIONAL ATTRIBUTE SPECIFICATIONS. * PRP* * PP* SOLUTION: * PP* FIX IFEDT$ TO CALL FA$CAS. * PRP* * PP.SYN NIPCS$=@ORIGIN+>22A4,CII=@DSEG+>0046 PP* PRPMPI PROG = @PRG, PP MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @NIPCS$+>6C, PP VDATA = (>C801,@CII), PP DATA = (>0460,€%€%@PATCH) PRPEC PPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>C801,@CII,>06A0,@CASPCH) PPEC PPMPI ADDR = @PATCH+>08, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@NIPCS$+>070) PPEC PRP* PP.SYN NIPCS$="",CII="",CASPCH="" PP.SYN PATCH=@ORIGIN+>29C8 PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2214 CIK 08/13/82 STR #13245 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* THE PRINT FUNCTION DOES NOT RELEASE ALL LUNOS. WHEN THE * PRP* PRINT KEY IS USED SEVERAL TIMES, SYSTEM 30 CRASHES OCCUR. * PP* * PP* SOLUTION: * PRP* THIS PATCH CLOSES THE LUNOS AND RELEASES THEM. * PP* PP.SYN PMAIN$=@ORIGIN+>31E6, PRP RLFILE=@DSEG+>12D2, PP CLFILE=@DSEG+>12B6, PP PSCRN$=@ORIGIN+>3370, PRP PRINTD=@DSEG+>10D8, PP PKY$LU=@DSEG+>109A, PP SVC$=@ORIGIN+>3510 PRP* PPMPI PROG = @PRG, PP MODT = @MTYPE, PRP MODN = @TASKNAME, PP ADDR = @PMAIN$+>008A, PP VDATA = (>D021,>0001), PRP DATA = (>0460,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>D821,>0003,@PCHDAT,>D021,>0001) PPEC PRPMPI ADDR = @PATCH+>000A, PP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@PMAIN$+>008E) PRPEC PPMPI ADDR = @PMAIN$+>00C8, PP VDATA = (>0420,@SVC$), PRP DATA = (>0460,@PATCH+>000E) PPEC PPMPI ADDR = @PATCH+>000E, PRP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>2FD1,>0201,@RLFILE,>D84A,>0003) PPEC PRPMPI ADDR = @PATCH+>0018, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>2FD1,>0201,@CLFILE,>D860,@PCHDAT,>0003) PRPEC PPMPI ADDR = @PATCH+>0024, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>2FD1,>0201,@RLFILE,>D860,@PCHDAT,>0003) PPEC PPMPI ADDR = @PATCH+>0030, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>2FD1,>0460,@PMAIN$+>00CC) PPEC PRPMPI PROG = @PRG, PP MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @PSCRN$+>00B8, PP VDATA = (>0201,@PRINTD), PP DATA = (>0460,@PATCH+>0036) PRPEC PPMPI ADDR = @PATCH+>0036, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>0201,@CLFILE,>D860,@PKY$LU,>0003) PPEC PPMPI ADDR = @PATCH+>0040, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>2FD1,>0201,@RLFILE) PPEC PRPMPI ADDR = @PATCH+>0046, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>D860,@PKY$LU,>0003,>2FD1) PRPEC PPMPI ADDR = @PATCH+>004E, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (>0201,@PRINTD,>0460,@PSCRN$+>00BC) PP* PPEC PRP* PP.SYN PMAIN$="" PP.SYN PSCRN$="" PRP.SYN CLFILE="" PP.SYN RLFILE="" PP.SYN PRINTD="" PRP.SYN PKY$LU="" PP.SYN SVC$="" PP.SYN PATCH=@ORIGIN+>2A1E PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2304 TLB 10/12/82 STR #13754 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* PRINT KEY TASK WAS MISMANAGING THE QUEUE FILE BECAUSE THE * €%€% PRP* BACKSPACE IN THE FILE TO WRITE OVER THE OLD DELETE FILE * PP* COMMAND WAS NOT BEING PERFORMED PROPERLY. * PP* * PRP* SOLUTION: * PP* REINITIALIZING THE # OF RECORDS TO BACKSPACE IN THE BACKSPACE * PP* PRB ALLOWS THE OPERATION TO BE PERFOMRED PROPERLY. * PRP* * PP.SYN PADDQ$=@ORIGIN+>2B24,IO$LUN=>0003,IO$CNT=>000A,NUMREC=>0001 PP* PRPMPI PROG = @PRG, PP MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @PADDQ$+>028, PP VDATA = (>D84A,@IO$LUN), PP DATA = (>0460,@PATCH) PRPEC PPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>D84A,@IO$LUN,>0207) PPEC PPMPI ADDR = @PATCH+>6, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (@NUMREC,>C847,@IO$CNT) PPEC PRPMPI ADDR = @PATCH+>0C, PP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@PADDQ$+>002C) PRPEC PP* PP.SYN PADDQ$="",IO$LUN="",IO$CNT="",NUMREC="" PRP* PP.SYN PATCH=@ORIGIN+>2A2E PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2300 TLB 10/12/82 STR #13753 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* PRINT KEY TASK WAS TRASHING OUT WHEN IT ENCOUNTERED A FILE * PP* THAT ALREADY EXISTED. * PRP* * PP* SOLUTION: * PP* INSERTING A CALL TO DMSG$ TO OUTPUT A "FILE ALREADY EXISTS" * PRP* MESSAGE AND RETURNING AN "UNABLE TO BID PRINT KEY TASK" MESSAGE * PP* TO NEMSG$, THE PROPER MESSAGES ARE DISPLAYED AND THE EXECUTOR * PP* CONTINUES NORMALLY. * PRP* * PP.SYN PFILE$=@ORIGIN+>2D98,MSG$NO=@DSEG+>10D6 PP* PRPMPI PROG = @PRG, PP MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @PFILE$+>013A, PP VDATA = (>D091,>0982), PP DATA = (>C801,@MSG$NO) PRPEC PP* PP.SYN PFILE$="",MSG$NO="" PRP* PP*$ PP* PRP*--------------------------------------------------------------------* PP* * PP*=P2298 TLB 10/13/82 STR #13752 DX10 TIFORM 3.0.0 EXECPROC * PRP* * PP* PROBLEM: * PP* EDIT$ WAS ONLY BEING CALLED FOR DNOS; WHEN DX10 HAD TO CREATE * PRP* A QUEUE FILE, THE BUFFER POINTERS FOR MSG$ WEREN'T SET UP * PP* CORRECTLY, SO THE MSG BUFFER WAS BUILT IN THE WRONG PLACE AND * PP* EVENTUALLY THE EXECUTOR TAKES A TASK ERROR 05. * PRP* * PP* SOLUTION: * PP* ADD CALL TO EDIT$ IN PMAIN$. * PRP* * PP.SYN PMAIN$=@ORIGIN+>31E6,MASK1=@ORIGIN+>2BF4, PP EDIT$=@ORIGIN+>1302,TXTBUF=@DSEG+>024A PRP* PPMPI PROG = @PRG, PP MODT = @MTYPE, PRP MODN = @TASKNAME, PP ADDR = @PMAIN$+>005A, PP VDATA = (>2160,@MASK1), PRP DATA = (>0460,@PATCH) PPEC PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>2160,@MASK1,>1606) PPEC PRPMPI ADDR = @PATCH+>06, PP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>0420,@EDIT$,@TXTBUF) PRPEC PPMPI ADDR = @PATCH+>0C, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>0050,>0460,@PMAIN$+>0060) PPEC PPMPI ADDR = @PATCH+>12, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@PMAIN$+>0068) PPEC PRP* PP.SYN PMAIN$="",MASK1="",EDIT$="",TXTBUF="" PP* PRP.SYN PATCH=@ORIGIN+>2A44 PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2317 SAB 09/27/82 STR # 990-€%€%13560 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* EXECUTOR TERMINATES IF TRYING TO READ A GROUP MADE UP OF * PP* VARIABLES OR AN EXTERNAL VARIABLE. * PP* * PRP* SOLUTION: * PP* PATCH IBRIL$ TO HANDLE EXTERNAL VARIABLES. * PP* * PRP.SYN IBRIL$ = @ORIGIN+>019E, IFTYP$ = @ORIGIN+>0E46 PP* PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @IBRIL$+034, PRP VDATA = (>1B01,>02A2), PP DATA = (>0460,@PATCH) PPEC PRPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD), PP DATA = (>1508,>1105,>06A0,@IFTYP$) PRPEC PPMPI ADDR = @PATCH+>0008, PP VDATA = (>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PRP DATA = (@IBRIL$+>0088,>8002,>1101,>04D7,>02A2) PPEC PPMPI ADDR = @PATCH+>0012, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@IBRIL$+>0038) PPEC PRP* PP.SYN IBRIL$="", IFTYP$="" PP* PRP.SYN PATCH=@ORIGIN+>2A5A PP* PP*$ PRP* PP*--------------------------------------------------------------------* PP* * PRP*=P2421 TLB 11/03/82 STR #13919 DX10 TIFORM 3.0.0 EXECPROC * PP* * PP* PROBLEM: * PRP* IF A READ HAS AN EMPTY READABLE ITEM LIST (RIL), IBRIL$ SEARCHES * PP* BEYOND THE END OF THE RIL FOR AN ENTRY IN THE RIL THAT * PP* DOESN'T EXIST. * PRP* * PP* SOLUTION: * PP* CHECK FOR EMPTY RIL BEFORE SEARCHING. * PRP* * PP.SYN IBRIL$=@ORIGIN+>019E PP* PRPMPI PROG = @PRG, PP MODT = @MTYPE, PP MODN = @TASKNAME, PRP ADDR = @IBRIL$+>0078, PP VDATA = (>C087,>C046), PP DATA = (>0460,@PATCH) PRP* PPEC PP* PRPMPI ADDR = @PATCH, PP VDATA = (>DEAD,>DEAD,>DEAD), PP DATA = (>C046,>C087,>1302) PRP* PPEC PPMPI ADDR = @PATCH+>06, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@IBRIL$+>7C) PP* PRPEC PP* PPMPI ADDR = @PATCH+>0A, PRP VDATA = (>DEAD,>DEAD), PP DATA = (>0460,@IBRIL$+>82) PP* PRPEC PP* PP.SYN IBRIL$="" PRP* PP.SYN PATCH=@ORIGIN+>2A68 PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P2437 TLB 11/05/82 STR #13994 DX10 TIFORM 3.0.0 EXECPROC * PP* * PRP* PROBLEM: * PP* IF A FIELD HAS CONDITIONAL ATTRIBUTE SELECTION AND AN ARMED * PP* EVENT KEY IS PRESSED UPON ENTERING THE FIELD, THE FIELD'S * PRP* ATTRIBUTES REPLACE THOSE OF THE FIRST FIELD IN THE GROUP BEING * PP* READ. * PP* * PRP* SOLUTION: * PP* A CALL TO IRFDT$ INSERTED AFTER THE FIELD'S PROCESSING * PP* FIXES THIS PROBLEM. * PRP* * PP.SYN IREAD$=@ORIGIN+>14B4, PP IRFDT$=@ORIGIN+>174E, PRP IFPRO$=@ORIGIN+>0B8C PP* PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @IREAD$+>00D8, PRP VDATA = (>06A0,@IFPRO$), PP DATA = (>0460,@PATCH) PP* PRPEC PP* PPMPI ADDR = @PATCH, PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DA€%€%TA = (>06A0,@IFPRO$,@IREAD$+>0144) PP* PRPEC PPMPI ADDR = @PATCH+>06, PP VDATA = (>DEAD,>DEAD,>DEAD), PRP DATA = (>06A0,@IRFDT$,@IREAD$+>013C) PP* PPEC PRP* PPMPI ADDR = @PATCH+>0C, PP VDATA = (>DEAD,>DEAD), PRP DATA = (>0460,@IREAD$+>00DE) PP* PPEC PRP* PP.SYN IREAD$="",IRFDT$="",IFPRO$="" PP* PRP.SYN PATCH=@ORIGIN+>2A78 PP* PP*$ PRP* PP* PP*--------------------------------------------------------------------* PRP* * PP*=P3173 RHR 10/18/82 STR #16713 DX10 TIFORM 3.0.0 LINKD911 * PP* * PRP* PROBLEM: * PP* NOPNF$ WAS NOT RELEASING MEMORY. * PP* * PRP* SOLUTION: * PP* SVC CALL WAS NOT USING R9. SINCE THIS PATCH CAUSES UNUSED * PP* MEMORY TO BE RELEASED, SUBSEQUENT OPEN FORM AND PREPARE SEGMENT * PRP* COMMANDS REQUIRE MORE GET MEMORY SVC CALLS. TO SUPPRESS THE * PP* SWAPPING THIS CAUSES, AN OPTIONAL PATCH IS AVAILABLE (P3174). * PP* * PRP.SYN NOPNF$=@ORIGIN+>2368, PP* PPMPI PROG = @PRG, PRP MODT = @MTYPE, PP MODN = @TASKNAME, PP ADDR = @NOPNF$+>022E, PRP VDATA = (>C804,>01E2), PP DATA = (>C244,>C000) PPEC PRP* PP.SYN NOPNF$="" PP* PRP*$ PP* PP*--------------------------------------------------------------------* PRP* * PP*=P3174 RHR 10/18/82 STR #16713 DX10 TIFORM 3.0.0 LINKD * PP* * PRP* OPTIONAL. * PP* * PP* PROBLEM: * PRP* PATCH 3173 FIXED THE RELEASE MEMORY IN NOPNF$. THIS PATCH * PP* CAUSES SUBSEQUENT OPEN FORM AND PREPARE SEGMENT COMMANDS * PP* TO GET MEMORY MORE OFTEN. THIS SLOWS DOWN EXECUTION WITH MORE * PRP* SWAPPING. * PP* * PP* SOLUTION: * PRP* THIS PATCH TURNS OFF THE RELEASE MEMORY SVC IN NOPNF$. * PP* IT CHANGES A JUMP ON EQUAL TO A JUMP ON LESS THAN OR EQUAL SO * PP* THAT SRCH50 IS NEVER USED (WHERE RELEASE MEMORY IS NORMALLY * PRP* DONE). * PP* * PP*.SYN NOPNF$=@ORIGIN+>2368, PRP* PP*MPI PROG = @PRG, PP* MODT = @MTYPE, PRP* MODN = @TASKNAME, PP* ADDR = @NOPNF$+>023E, PP* VDATA = (>1311), PRP* DATA = (>1211) PP*EC * PP*$ PRP* PP*.SYN NOPNF$="" PP* PRP* PP* PP*--------------------------------------------------------------------* PRP* PATCHES ABOVE THIS LINE WERE RELEASED FOR DX10 3.5.2 TIFORM 3.0.0 * PP*--------------------------------------------------------------------* PP* PRP*--------------------------------------------------------------------* PP* PPCM R=ME, PRP M="TIFORM LINKD911 PATCH STREAM ERROR COUNT = @$E$C" PP* PP*--------------------------------------------------------------------* PRP* PP.SYN ORIGIN="" PP.SYN DSEG="" PRP.SYN MTYPE="" PP* PP*--------------------------------------------------------------------* PRP* PPSDT PPEBATCH PRP* PP*--------------------------------------------------------------------* PP* * PRP*** NEXT AVAILABLE PATCH LOCATION @PATCH *** * PP* * PP*--------------------------------------------------------------------* PR PP* PP*--------------------------------------------------------------------* PRÿÿEOD EOD PRP VDATA = (>DEAD,>DEAD,>DEAD), PP DA€%