` REL33 ?  SKI1 SKI (S$PROGA S$OVLYA S$LOADER  ?? p@[+ K-M@EE--M  d χfΦ{J`b(.4:BLP`tz| "4@H(048<>FLPZ^dB1@ñq    ` >` b d  2 2*"%"(( "$. >`<`<<`$r  8<G= Ä9 <9`.H8`($Š `"  `G'":' 4&$ F. 4.@NE`[8 Ъ2`ѴѴ FbzFۡFآIFIϡ,H  22Ҵ  * *[m mEE BS2*(  2?9 =H=@[ .˅ ǞN@ABCDEH[H    2 2  *R @@ $B& H@ $@ @ 0B@@ B@P DUMKIF M$DATA F DUMKIF PP5KI$BEG4POP0 AB΋BBB`EF DUMKIF PP: 11/14/79 14:56:08 SDSLNK 3.3.0 DUMKIF PTI VCATALOG`SOURCE D #ZSOURCE TI `TSTSDS `P 4 r "> MSM (MODIFY SYSTEM MEMORY) =6, (OVERLAY ID = STRING, ADDRESS = STRING (.OVLY OVLY = 0C, CODE = 4, &PARMS = ("&OVERLAY ID","&ADDRESS",S)&REL33 ?  SKI1 SKI (S$PROGA S$OVLYA S$LOADER  [>VCATALOGVCATALOG`S$FGTCA ``$l S$BGTCA ``KF.h PATCH D ~~ֺSCI990 D  &  S$SLG2 `PAS$OVLYA   c!!DTEMP1 D \;W\\ͫ͟{BLIST `P%F.i.%h,S$PROC D @S$TCALIB ``FMFG$$$ `P  NººTEMP `PF''S$SYSLIBD & &&S$ROLLA   xF==h ]S$CRASH   @@S$SLG1 `PNeMAT `P3=FJnP0=S$SYSGEND 666.LsS$IMAGES  TF22._|_)+E@+rt+,>03@`3t3S$LOADERĠ  6||dMAT1 `P= 43S$FTLF02`P0F=h0|>lVCATALOGD\(\.|ćS$PRINT D fff"EBCASC D 0<00~/S$PROGA   { 3TI D XBS$SDS$   ~ ~~HTS$DIAG   (?((ćć PATCH VCATALOG`PROGA `P!<.x۴x(COB320 `Pc"|% zxxSORT `Px xDXTP3780`P3Hxx MEMRES `P#"`0x{V@R(********************************************************************************R( SORT/MERGE PATCH FILE(R(********************************************************************************R* ' * P0324 $ * '@*DATE: 08/16/79 CW SYSTEM AND RELEASE NUMBER S/M 3.1.0@* '@*  PROBLEM: Signed ASCII input did not correctly sort in @*  ascending order. * '@*  PATCH: Assign synonym "PROGF" to system program file. @* '*  .SYN SCRTCH=01E84, * MOVMSK=0431E* '8 MPI P=@PROGF, MT=OVER, MN=XSRTINT, A=0431E+01A2, 8( V=(0282,020,0130D,0282,02B,0130A), (. D=(0460,@SCRTCH,01000,01000,01000,01000) .* '4 MPI P=@PROGF, MT=OVER, MN=XSRT, A=04114+01A2, 4( V=(0282,020,0130D,0282,02B,0130A), ( D=(0460,@SC&RTCH+022,01000,01000,01000,01000) &* '4 MPI P=@PROGF, MT=TASK, MN=SORTMG, A=@SCRTCH, 4 V=(0,0,0,0,0,0), . D=(0C060,0216+@MOVMSK,0281,06,01302,0460) .* '6 MPI P=@PROGF, MT=TASK, MN=SORTMG, A=@SCRTCH+0C, 6 V=(0,0,0,0,0,0), . D=(01AE+@MOVMSK,0282,020,01305,0282,02B) .(8 MPI P=@PROGF, MT=TASK, MN=SORTMG, A=@SCRTCH+018, 8 V=(0,0,0,0,0,0), 6 D=(01302,0460,01D8+@MOVMSK,0460,01C2+0431E,0C060) 6* ' .SYN MOVMSK=04114 * '8 MPI P=@PROGF, MT=TASK, MN=SORTMG, A=@SCRTCH+024, 8 V=(0,0,0,0,0,0), 6 D=(0216+@MOVMSK,0281,06,01302,0460,01AE+@MOVMSK) 6* '8 MPI P=@PROGF, MT=TASK, MN=SORTMG, A=@SCRTCH+030, 8 V=(0,0,0,0,0,0), & D=(0282,020,01305,0282,02B,01302)&* '( MPI P=@PROGF, MT=TASK, MN=SORTMG, A(=@SCRTCH+03C,  V=(0,0,0,0), , D=(0460,01D8+@MOVMSK,0460,01C2+@MOVMSK),* 'R(********************************************************************************R* ': *=P0347 DE 11/09/79 STR #05339 SORT/MERGE 3.1.0 :* '<* SORT/MERGE ERRORS OFF UNEXPECTEDLY WHEN CALLED FROM <* ANOTHER TASK. * '0MPI P=.S$PROGA, MT=TASK, MN=SORTMG, A=0FFA, 0 V=01323, D=01000, C=01000EC'0MPI P=.S$PROGA, MT=TASK, MN=SORTMG, A=01030,0 V=01308, D=01000, C=01000EC'0MPI P=.S$PROGA, MT=TASK, MN=SORTMG, A=03C8, 0 V=01318, D=01000, C=01000EC'*$'R(********************************************************************************R* ':*=P0348 CAV11/09/79 STR #05338 SORT/MERGE 3.1.0 :* '* IF SORTING INTO .AN OUTPUT FILE WHICH IS ALSO AN INPUT FILE .D* AND IF THE INPUT FILE IS OPENED BY SOME OTHER OPERATION, THEDD* SMSTAT DOES NOT RETURN AN ERROR. IF PRINT OPTION 4 IS USED DB* IN THE CONTROL FILE HEADER IN THE APPLICATION PROGRAM, AN B6* SVC ERROR >3B IS RETURNED ON THE OUTPUT FILE. 6* '4MPI P=.S$PROGA, MT=TASK, MN=SORTMG, A=03A6+054, 4 V=06A0, D=01001, C=01001EC'*$'R(********************************************************************************R* ':*=P0369 CAV11/19/79 STR #05374 SORT/MERGE 3.1.0 :* 'D* IF SPECIFYING A CONTROL FIELD THAT HAS AN ENDING POSITION OFD8* GREATER THAN 434, AN ERROR 19 WILL BE RETURNED. 8* '6MPI P=.S$PROGA, MT=OVER, MN=XRECORD, A=036E2+049E,6 V=08042, D=08442, C=08442 EC'MPI 2P=.S$PROGA, MT=OVER, MN=XRECORD, A=036E2+06F2,2 V=08042, D=08442, C=08442 EC'*$'L$************************************************************************L:*=P0432 CAV02/14/80 STR #05364 SORT/MERGE 3.1.0 :* 'D* SORT/MERGE WOULD TERMINATE ABNORMALLY IF THE INPUT OR OUTPUTD(* WAS A DEVICE INSTEAD OF A FILE. (* '8MPI PROG=.S$PROGA, MOD TYPE=TASK, MOD NAME=SORTMG, 8> ADD=04BA+05AE, VER=(0D863,03,01), DATA=(0460,01EC8,01000) >EC'8MPI PROG=.S$PROGA, MOD TYPE=TASK, MOD NAME=SORTMG, 84 ADD=04BA+0826, VER=(0202,040D,0460,04BA+0752), 4& DATA=(0460,01EC8+02E,01000,01000)&EC'8MPI PROG=.S$PROGA, MOD TYPE=TASK, MOD NAME=SORTMG, 8& ADD=01EC8, VER=(0,0,0,0,0,0,0,0),&0 DATA=(0D863,03,01,0D023,06,01302,0460,0A6E)0EC'MP6I PROG=.S$PROGA, MOD TYPE=TASK, MOD NAME=SORTMG, 6" A=01ED8, V=(0,0,0,0,0,0,0,0),"0 D=(0C021,012,0160A,0200,08,08023,06,01602) 0EC'8MPI PROG=.S$PROGA, MOD TYPE=TASK, MOD NAME=SORTMG, 8" A=01EE8, V=(0,0,0,0,0,0,0,0),"0 D=(0460,0ABC,0C863,08,012,0460,0B48,0D020) 0EC'8MPI PROG=.S$PROGA, MOD TYPE=TASK, MOD NAME=SORTMG, 8" A=01EF8, V=(0,0,0,0,0,0,0,0),"2 D=(08EA,01304,0202,040D,0460,0C0C,0460,0CF8) 2EC'*$'0,01EC8,01000) >EC'8MPI PROG=.S$PROGA, MOD TYPE=TASK, MOD NAME=SORTMG, 84 ADD=04BA+0826, VER=(0202,040D,0460,04BA+0752), 4& DATA=(0460,01EC8+02E,01000,01000)&EC'8MPI PROG=.S$PROGA, MOD TYPE=TASK, MOD NAME=SORTMG, 8& ADD=01EC8, VER=(0,0,0,0,0,0,0,0),&0 DATA=(0D863,03,01,0D023,06,01302,0460,0A6E)0EC'MP@@************************************************************ @* '6* TITLE:DXTP3780 *** TASK PATCHES TO DX10 3780 6* RELEASE 3.0.0 * '<* ABSTRACT: DX10/3780 EMULATOR TASK PATCHES.THIS BATCH <2* STREAM CORRECTS PROBLEMS IN THE DX10/3780 24* EMULATOR BY MODIFYING THE 3780 TASK IMAGE ON 4* DISK. * '8* THIS PATCH FILE REPLACES THE FOLLOWING FILES IN 8:* THE RELEASE MEDIA, AND IS APPLIED BY RUNNING PCT. :* '0*  SOURCE MEDIUM: DXCOMSRC.PATCH.DXTP3780 00*  OBJECT MEDIUM: DXCOMOBJ.PATCH.DXTP3780 0* '<* SYNONYMS: THE FOLLOWING SYNONYM IS USED IN THIS BATCH <2* STREAM. AN ALTERNATE SYNONYM VALUE MAY BE 2* ASSIGNED. * '*  SYNONYM: $$DSC$ *  DEFAULT VALUE: DS01 *  USE: VOLUME NAME ON WHICH PROGRAM FILE * S$COMMPF RESIDES * '>* THIS PATCH FILE CAN NOT BE EXECUTED DIRECTLY AS A BATCH ><* STREAM. TO APPLY THESE PATCHES TO A EMULATOR TASK,THE <>* SYNONYM "$$DSC$" MUST BE ASSIGNED THE VOLUME NAME OF THE >>* SYSTEM DISK ON WHICH THE PATCHES ARE TO BE APPLIED, THEN >0* EITHER (A) OR (B) BELOW MUST BE PERFORMED.0* '@* (A) IF THE LINK MAP OF THE EMULATOR TASK TO BE PATCHED IS @>* AVAILABLE IN A DISK FILE, EXECUTE THE "XPS" SCI COMMAND > * WITH THE FOLLOWING INPUTS. @*  LINK:FILE NAME OF LINK MAP OF EMULATOR TO BE PATCHED @.*  INPUT: FILE NAME OF THIS PATCH FILE .>*  OUTPUT:FILE NAME OF FILE TO BE USED AS BATCH STREAM >,*  ERROR: FILE NAME OF AN ERROR FILE ,>* THE "OUTPUT" FILE WILL BE AN EXECUTABLE BATCH STREAM THAT > 6* CAN BE EXECUTED TO APPLY THEM TO THE COMM TASK. 6* '@* (B) IF THE LINK MAP IS NOT AVAILABLE IN A FILE, THEN THIS @>* PATCH FILE WILL HAVE TO BE TRANSLATED MANUALLY. IF THE >@* LINK MAP LIST IS ALSO NOT AVAILABLE, IT WILL NECESSARY TO @<* REGENERATE THE EMULATOR TASK TO BE PATCHED IN ORDER TO <8 * OBTAIN A VALID LINK MAP. IF THE LINK MAP LIST IS 8>* AVAILABLE, THEN COPY THIS PATCH FILE TO ANOTHER FILE AND > * EDIT THAT FILE AS FOLLOWS. * ':* FOR EACH #SYN COMMAND IN THE PATCH FILE, TWO OR MORE :<* SYNONYMS MUST BE DEFINED. EACH #SYN IS IN THE FORMAT <D*  #SYN ,,,.....D* FOR EXAMPLE,!*  #SYN SROOT,ROOT>* WHERE "SROOT" IS THE SYNONYM NAME, > * AND "ROOT" IS THE OF THE MODULE TO BE * PATCHED.#* '>* FOR EACH #SYN, FIND THE S IN THE LINK MAP. >@* ALL MODULES ON ONE #SYN LINE WILL RESIDE IN THE SAME PHASE @>* OF A LINK.DETERMINE THE FROM THE >>* PHASE HEADER LINE WHERE THE SPECIFIED MODULES ARE FOUND. >>* INSERT A .SYN COMMAND INTO THE PATCH FILE TO DEFINE THE >,* OVERLAY OR TASK ID, AS IN THE EXAMPLE ,*  .SYN SROOT=1 >* WHERE "SROOT" IS THE SYNONYM IN THE >@* #SYN COMMAND AND "1" IS THE FROM THE @@* PHASE IN WHICH THE LISTED MODULES RESIDE. ("1" IS THE ID @6* FOR THE FIRST TASK. THIS WILL BE DIFFERENT FOR 6 * ADDITIONAL TASKS.)* '@* INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH IN THE #SYN COMMAND.FOR EXAMPLE,*  .SYN ROOT=031DA@* WHERE "ROOT" IS THE OF THE MODULE (FROM THE @6* #SYN COMMAND) TO BE PATCHED, AND "031DA" IS THE 6@* HEXADECIMAL ADDRESS OF THE MODULE ORIGIN FOR A TI-SUPPLIED @6* TASK (THIS MAY BE DIFFERENT FOR A CUSTOM TASK). 6* '@* AFTER ALL SYNONYMS HAVE BEEN DEFINED FOR THE #SYN COMMAND, @0* DELETE THE #SYN LINE FROM THE PATCH FILE. 0* '>* REPEAT THIS PROCEDURE FOR EACH #SYN COMMAND IN THE FILE. >:* WHEN THE EDIT IS COMPLETED, THE RESULTING FILE IS AN :@* EXECUTABLE BATCH STREAM THAT CAN BE EXECUTED TO APPLY THE @4 * COMM TASK PATCHES. EXECUTE THE BATCH STREAM. 4* '@************************************************************ @BATCH LS=YES !.SYN $E$C="0" .IF  @$$DSC$,EQ,"$$DSC$".SYN $$DSC$=@DS01  .ENDIF% ".SYN PFIL=@@$$DSC$.S$COMMPF "@************************************************************ @ ***** LINK DEFINED SYNONYMS @************************************************************ @#SYN CF3,DXCF3 #SYN INT,DXINIT #SYN MGR,CCMGR #SYN WAT,DXWAIT #SYN EMU,DXEM3780 #SYN CI,DXCI3780#SYN SB,DXSB!#SYN DB,DXDBASE #SYN MSG,CCMSG #SYN RCV,DXRCVQ #SYN IFC,DXIFC #SYN SBW,CCSBW #SYN OPIF,DXOPIF@.SYN CF3="",INT="",MGR="",WAT="",EMU="",CI="",SB="",DB="" @..SYN MSG="",RCV="",IFC="",SBW="",OPIF="".@************************************************************ @$***** PRE-LINK DEFINED SYNONYMS$6****************************************************6 ******** Q$SYN % @************************************************************ @"***** PATCHES RELEASE 3.0.0"@************************************************************ @<*  P0001 RLL27MAR80 -- FOR 3.2.N DX10 USERS ONLY -- <8*  DISABLE INTERNATIONALIZATION SVC AND WAIT I/O. 86*  IF THE OPERATING SYSTEM IS 3.2.N OR EARLIER, 6*  ENABLE THIS PATCH. * ':*MPIP=PFIL,MT=OV,MN=OI3780,A="@DXINIT+020",V=02FE0, :* D=(01000,01000) 8*MPIP=PFIL,MT=PR,MN=P3780,A="@CCMGR+01E",V=01308, 8* D=(01008) *EC &@************************************************************ @&*  P0463 (STR 5934) RLL 27MAR80&<*  DURING COMMAND FILE OPERATION, THE COMMAND SEQUENCE <<*  WAIT*S, DISC, CAUSES COMM LINK DISCONNECTION BEFORE <*  T6HE LAST EOT IS TRANSMITTED. THIS PATCH CAUSES THE 6<*  EMULATOR TO KEY ON SAXMT RATHER THAN XQHP TO DETER- <*  MINE SEND COMPLETE.* ':MPI  P=PFIL,MT=OV,MN=OW3780,A="@DXWAIT+07E",V=024B4, : D=02598,C=02598EC'@************************************************************ @&*  P0467 (STR 5940) RLL 27MAR80&>*  THE EMULATOR WILL ENTER A TASK STATE OF 19 FOLLOWING ><*  A SEND COMMAND WHEN EXECUTING A COMMAND FILE. THIS <<*  PATCH WILL CHANGE THE DELAY AFTER FILE TRANSMISSION <<*  TO 3 SECONDS AND RETURN TO "SVCXMT" TO PROCESS THE <*  NEXT SEND REQUEST. <MPI  P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+07F8",V=0380, < D=0459,C=0459EC'<MPI  P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+07E8",V=0002, < D=0003,C=0003EC'****>********************************************************* >(*  P0482(STR 6107)RLL 09APR80 (>*  THE EMULATOR WILL NOT WAIT ON A WAIT*S* COMMAND WHILE >:*  IN COMMAND FILE MODE. THIS PATCH CORRECTS THIS BY :@*  WAITING UNTIL THE SEND QUEUE IS EMPTY BEFORE EXECUTING @(*  THE NEXT COMMAND FILE COMMAND. (BMPI  P=PFIL,MT=OV,MN=OW3780,A="@DXWAIT+082",V="@DXWAIT+05A", B& D="@DXWAIT-0100",C="@DXWAIT-0100"&EC':MPI  P=PFIL,MT=OV,MN=OW3780,A="@DXWAIT-0100",V=0001, :, D=(0C29A,01302,0460,"@DXWAIT+064",045B),EC'N%**************************************************************************N(*  P0497(STR 6169) BA 22APR80 (* '@*  ENABLE THIS PATCH ONLY IF COMMUNICATING WITH A DTS CASH @*  REGISTER * '*  USERS COMMUNICATING WIT0H A DTS CASH REGISTER NEED TO RECOGNIZE THE 0L*  RS CHARACTER.THIS PATCH ADDS RS TO CHARACTER DETECT TABLE TXTTBL L(*  AND DELETES DC3 TO ALLOW SPACE.(* 'F*MPI P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+0476",V=02700,D=(03500, FH*  "@DXEM3780+0280",02700,"@DXEM3780+050",02600,"@DXEM3780+0270", H *  02500,"@DXEM3780+0280") F*MPI P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+0486",V=01E00,D=(01F00, FH*  "@DXEM3780+0280",01E00,"@DXEM3780+0280",01D00,"@DXEM3780+01D4",H *  01500,"@DXEM3780+0280") *EC &@*********************************************************** @* '&*  P0560 (STR 6239) BA 09MAY80&* ':*  THE EMULATOR OCCASIONALLY WAITS FOREVER ON WAIT*S :6*  COMMANDS. THIS PATCH CORRECTS THIS PROBLEM BY6&*  INCREMENTING THE ACTIVITY FLAG & FOLLOWING A WAIT*S *  COMMAND. <MPI  P=PFIL,MT=PR,MN=P3780,A="@DXCI3780+066",V=0C820, < D=(0460,0),C=0460EC',MPI  P=PFIL,MT=PR,MN=P3780,A=0,V=0001,,8 D=(0C820,018B8+0A,025A4,05A0,02578,0460,018B8+06C), 8  C=0C8DA! EC'D *************************************************************** D(*  P0610(STR 6820)BA23JLY80 (2*  CORRECTIONS TO DENMARK TRANSLATION TABLES2* '6MPI  P=PFIL,MT=OV,MN=TDNK,A=020,V=0405A,D=0404F 6EC'6MPI  P=PFIL,MT=OV,MN=TDNK,A=024,V=05B6C,D=05A6C 6EC'6MPI  P=PFIL,MT=OV,MN=TDNK,A=05C,V=0E05B,D=07C5B 6EC'6MPI  P=PFIL,MT=OV,MN=TDNK,A=07C,V=07CD0,D=06AD0 6EC'6MPI  P=PFIL,MT=OV,MN=TDNK,A=014E,V=02B5D,D=02B216EC'6MPI  P=PFIL,MT=OV,MN=TDNK,A=015A,V=0215D,D=0245D68@EC'6MPI  P=PFIL,MT=OV,MN=TDNK,A=017C,V=07C27,D=05C276EC'6MPI  P=PFIL,MT=OV,MN=TDNK,A=01E0,V=05C20,D=020206EC'@************************************************************ @(*  P0631 (STR 6684)  BA 04AUG80 (>*  WHEN RECEIVING FILES WITH VFC=ON AND TRAILB=ON BLANK >>*  TRUNCATION NOT TAKING PLACE. THIS PATCH FORCES BLAMK >*  TRUNCATION.8MPI  P=PFIL,MT=PR,MN=P3780,A="@DXSB+0570",V=0160A,8 D=(0460,0E)EC'<MPI  P=PFIL,MT=PR,MN=P3780,A=0E,V=0E0F,D=(01604,0C260, <0 "@DXDBASE+0B2",0460,"@DXSB+0576",05CB,045B)0EC'@************************************************************ @(*  P0633 (STR 6673)  BA 06AUG80 (>*  BINARY FILES NOT SENT WITH TY ON WHEN BINARY FILE NOT >2*  1ST PATHNAME OF SEND COMMAND.THIS PATCH F2 ORCES TY *  WITH BINARY FILES. <MPI  P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+0602",V=0C1A0, < D=(0460,01C) EC'8MPI  P=PFIL,MT=PR,MN=P3780,A=01C,V=01C1D,D=(0C1A0,80 "@DXDBASE+049A",05C6,0460,"@DXEM3780+060E")0EC'@************************************************************ @,*  P0635 (STR 6565 & 6244)BA 07AUG80,:*  SKIPS IN RPR & RPU ID'S FOLLOWING ABORTED INVALID :>*  INPUT. PATHNAME BUFFER NOT BEING RELEASED ON RPR/RPU >*  INVALID INPUT. :MPI  P=PFIL,MT=PR,MN=P3780,A="@DXRCVQ+010E",V=0E3E0, : D=(0460,026) EC'8MPI  P=PFIL,MT=PR,MN=P3780,A=026,V=02627,D=(0E3E0,88 "@CCMSG+032",0620,"@DXDBASE+0216",04D2,0C203,06A0, 8 "@DXSB+0650")EC'6MPI  P=PFIL,MT=PR,MN=P3780,A=036,V=03637,D=0380 6EC'****<******************************************************** <(*  P0639 (STR 6368)  BA 07AUG80 (8*  1ST SEND FOLLOWING BID ERROR DEFAULTS TO PUNCH. 8>*  SELECTION FLAG DESTROYED BY SETTIM.THIS PATCH USES >(*  R5 INSTEAD OF R12 TO SAVE FLAG.(<MPI  P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+0570",V=0D32A, <  D=0D16A! EC'<MPI  P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+0598",V=0D30C, <  D=0D145! EC'<MPI  P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+05AE",V=0980C, <  D=09805! EC'@************************************************************ @(*  P0641 (STR 6566)  BA 08AUG80 (>*  $ OPTION IN 48TH CHAR OF PATHNAME DESTROYING POINTER >:*  TO NEXT BUFFER IN CHAIN. THIS PATCH CORRECTS THE :"*  CHECK ON PATHNAME LENGTH." MPI  P=PFIL,MT=PR,MN=P3780,A  ="@DXRCVQ+0F0",V=0130B,   D=0140B! EC'@************************************************************ @(*  P0643 (STR 6216)  BA 25AUG80 (<*  CHANGE TO IMPLEMENT "IF" OPTION AS ALLQ RATHER THAN <*  ALL. "BMPI  P=PFIL,MT=OV,MN=ON3780,A="@DXIFC+012E",V="@CCMSG+023A", B$ D="@CCMSG+023F",C="@CCMSG+023F"$EC'@************************************************************ @(*  P0646 (STR 6883)  BA 28AUG80 (>*  MSG GENERATED DURING I/O COMPLETION TO REPLY REQUESTS ><*  THAT HAVE REACHED EOF CONTAINS GARBAGE.THIS PATCH <4*  STORES A BLANK IN BUFFER TO TERMINATE MSG. 4:MPI  P=PFIL,MT=PR,MN=P3780,A="@DXOPIF+01AC",V=00420, : D=(006A0,00038)EC':MPI  P=PFIL,MT=PR,MN=P3780,A=00038,V=03839,D=(00420, : "@CCSBW+0114",0D6A0,"@CCMSG ",0045B) EC'@************************************************************ @&*  P0661 (STR  )BA 05SEPT80 &:*  EMULATOR DROPS ILLEGAL ESC SEQUENCE FROM RECORD. :(*  THIS PATCH RETAINS IT AS DATA. (4MPI  P=PFIL,MT=PR,MN=P3780,A="@DXEM3780+05C", 4  V="@DXEM3780+017E",D=00042  EC':MPI  P=PFIL,MT=PR,MN=P3780,A=00042,V=04243,D=(0C24A, :: 006A0,"@DXSB+0EE",00050,0C289,00460,"@DXEM3780+0184", :  01B00) ! EC'@************************************************************ @*  P0000BA 09SEPT80 8*  UPDATE THE EMULATOR RELEASE NUMBER AND DATE TO 8*  "3.0.1 80.253" * ':MPI  P=PFIL,MT=TA,MN=EM3780,A="@DXCF3+018",V=02E30, :, D=(02E30,02E31,02038,0302E,03235,03300),.SYN DXINIT="" .SYN CCMGR="" .SYN DXWAIT="" .SYN DXCI3780=""&.SYN DXDBASE="",CCMSG="",DXSB=""&.SYN DXEM3780="".SYN DXRCVQ="" .SYN DXCF3="" &.SYN DXIFC="",CCSBW="",DXOPIF=""&EC' Q$SYN % @************************************************************ @BCM R=ME,M="@$E$C ERRORS REPORTED IN @$CLST.BATLST.DXTP3780" B.SYN PFIL="""LS' .STOP CODE=@$E$C 0EE",00050,0C289,00460,"@DXEM3780+0184", :  01B00) ! EC'@************************************************************ @*  P0000BA 09SEPT80 8*  UPDATE THE EMULATOR RELEASE NUMBER AND DATE TO 8*  "3.0.1 80.253" * ':MPI  P=PFIL,MT=TA,MN=EM3780,A="@DXCF3+018",V=02E30, :, D=(02E30,02E31,02038,0302E,03235,03300),.SYN DXINIT="" .SYN CCMGR="" .SYN`:`MAT001pMAT/TERM ST02MEST02$$UISYSTEM$$CC00000MAT001MAT7MAT/TERM VOLUME NAME: REL33  ADUS: 16320 # BAD: 0 BYTES/ADU: 288@JAVAILABLE: 4530 LARGEST AVAILABLE BLOCK: 1588  CONTROLLER RETRIES: 0 J: PRIMARY SYSTEM IMAGE: SKI1 SECONDARY SYSTEM IMAGE: SKI: NAME INSTALLED: REL33 SYSGEN.SKI.PATCHFIL " DELETED .S$SYSGEN.SKI.PGSLIST "DELETED .S$SYSGEN.SKI.D$SOURCE "DELETED .S$SYSGEN.SKI.ERROR DELETED .S$SYSGEN.SKI.D$LIST  DELETED .S$SYSGEN.SKI:42:56 TUESDAY, JAN 23, 1990. "ENTRIES:  # OF ENTRIES AVAILABLE: @ DIRECTORY ALIAS OF ENTRIES LAST UPDATE CREATIONJ FILE ALIAS OF RECORDS LAST UPDATE FMT TYPE BLK PROTECT * $@  & @ * vn * @v "â`nn % n % @ %  % @ NOSYMT%  FORMAT IMAGE,REPLACE PROCEDURE DUMMY   DUMMY % "INCLUDE DS01.S$SYSGEN.DUMMY  "ADJUST 5 SYSTEM ROOT  TASKSKI1" *INCLUDE DS01.S$SYSGEN.SKI1.D$OBJECT  *"INCLUDE DS01.S$SYSGEN.SYSLGY " INCLUDE DS01.S$SYSGEN.ROOT (ADJUST 5 FILE MANAGEMENT AND KIF  (PHASE 1,SKI11 ! "INCLUDE DS01.S$SYSGEN.FILMG  ""INCLUDE DS01.S$SYSGEN.DUMKIF "&ADJUST 5 MEMORY RESIDENT TASKS  &PHASE 1,SKI12 ! "INCLUDE DS01.S$SYSGEN.MEMRES " ADJUST 5  SYSTEM COMMON  PHASE 1,SKI13 ! "INCLUDE DS01.S$SYSGEN.DUMCOM "ADJUST 5 I/O COMMON PHASE 1,SKI14 ! "INCLUDE DS01.S$SYSGEN.IOCOM  ""INCLUDE DS01.S$SYSGEN.NOCOMM "ADJUST 5 SVC AND I/O  PHASE 2,SKI15 ! "INCLUDE DS01.S$SYSGEN.SVCIO  ""INCLUDE DS01.S$SYSGEN.NOFCCC ""INCLUDE DS01.S$SYSGEN.SYSLOG "ADJUST 5 DISK PHASE 2,SKI16 ! "INCLUDE DS01.S$SYSGEN.DDIOSR "ADJUST 5 LINE PRINTER PHASE 2,SKI17 !  INCLUDE DS01.S$SYSGEN.LPDS@&IDT (INITIALIZE DATE AND TIME) =4,& YEAR = INT(1989),  MONTH = STRING(07), DAY = INT,#HOUR = INT, "MINUTE = INT".SYN $IDT$ = "&MONTH" IDT$1 M="&MONTH" .BIDTASK = >19, PARMS = (20, !9IRLSYS SKI SKI1 2 V> n Tn` @qDUMMY U>RLSYS1 RLSYS2 RLSYS3 RLSYS4 RLSYS5 RLSYS6 RLSYS7 RLSYS8 RLSYS9 RLSYSA SKI1 SKI2 SKI3 SKI4 SKI5 SKI6 SKI7 SKIA SKI11 SKI12 SKI13 SKI14 SKI15 SKI16 SKI17 SKI1A SKI1C >o@~>o@ >o@ >o@!>x@1>x@j6>x@ 9>x@2C>x@K>x@ 変o~o  o  o !x/xj4x7xӴq~q q q!zzj"z%zr.z2 BBBBE9BBE9BdBBCBBRB"F ROOT PPBBBB"BB@B́BBB CZB`CB CPB0B΋B΁B CVBBBAF ROOT PPBEEBBEBB E8B BBB BBBBƁBBBBB{F ROOT P6BBKBBBB@BBBBQBBBB΋BCCB6BBB@BB`F ROOT PCB΋BCzBBB CVB`EOBB`BBBBBB BBBBF ROOT PPB+B CBBKBCCBC:CB CZB`CB΋BCxBEQB CVF ROOT PPBPBBBUB BBB!BBB B BBC$CBCDCBB B BF ROOT PPCPCBB"BBCPCBBbBBBBaBBCCB CZB+B΋BF ROOT PPCxBaB B BB"B BxC^B BBE1B BBBBBBB"BF ROOT PPBbBB !B BbBBBC$^CBBCDCBjBBC:CB`CB CF ROOT PPB CPBDB΋BCtBBB΋BCtBBCBBB BBC CBBBF ROOT PPBʂBBʪBB BBBB`E3BB*BBC CB‚B`CB CPB*F ROOT PPB΋BCxBBEOBBBBBB BBWB BjBBPBBBB`F ROOT PHBB !BBHBBBBB>BbBB9B"B CB5B"BCBB CB.F HROOT PB*BBBbBB(B,BCbB BB"BBB"B CB!B"B CzBB F ROOT PPCB`"BNBCBB"BBBBB BB@BBB qB!CBB"BPBF ROOT PPBBBbB BB CBB`CB*BBBBƚBB`CBBBF ROOT PPEPEVE1EE-EEC(CB`CBBE,E B`C#lF ROOT PPB`CB`CZE5E6E@B`CB`C EQEEEFEEGF ROOT PPEB`EAE<E=E#CETE8C (C HE E(C B`C B`F ROOT PPC B`C!JEEE%EEMBB`C!B`C!B`C BB`CzB`F ROOT PPCxB`CvB`CtB`CrB`CpB`CnB`ClB`CjB`CB`CB`CB`CF ROOT PPB`CB`CB`CB`CB`CB`CB`CDB`CB`C:B`CCCTB`F ROOT PPC"tB`C#CCNB:NB C8B`CAmlmlnmEEEEw v EEEEEEE EE2EEDEEEEVEEhEEEllllllllllllllll@ E|E0 F|VEBETEf |VEx tzr r* r+`c `H ΋_n Iq  C IhLxȡءءIhhl`_ޭޭޭޭޭޭޭޭޭޭޭ,`z 0 !`zi@@`rޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ** C COPYRIGHT 1977, TEXAS INSTRUMENTS INCORPORATED DX10 3.3.0 ** 0@d 08@  $ABDEFGIOPR` DS01.S$PROGA KI@@ L@JKFJz@@I@ @L$vIJTLDR TI6$xJFJzTOVY TI$zJJTRWT TI$:KKFDDT  T$o@KxKDMGR TI$KLCLNP TH$pTLD(SOVY TH<no 0`( L΋cAA`Lc ! `! ML`_ZLȃHF" ؀ Ȅ HV HVad&L΋΋&BMM M`L b {$ r+#M#MMH  r+Ho`MM!M&! r+"MMH  r+`"Ho`΋_dΌ`n  b&M" PN "F"" 8 "MN`H^Q^!#У " " XHJ'@YHhJ`_LN΋΁  "(KX Dgj (XHh X`Hh K  "*H `_m j OdMO\ Oh@ OhÞOTOtOTO|CHTL΋_njOO" 0QjOZ;?8d6 8C F-ad"7 F9CaEd8e=8 6 =Cʁʃʆ`_&  sF 0aaFSE΋_pI"gX"j X(XI"gX"`_ kXxΧ6Χ8 XLm! QYV&BM _N-]VXC'IQrX"PVd 3 SC%QjX"XLX/XNX U`Wg HL  _R`WIHL HTHZ ' HG[X"[2XƘH~ HZ hidWI6idX"G!TiX"\W _Ng  x`HV g"x`HV IHTFXT  y HhlX"IjVX"Z^  Ɓ{K@Q΋Z[@`_΋_r _N`` + HK[\[2\ _R`_΋_p _NPU ! j\Z<\  \H\"\H\bab\ _R+΋_pa " xHV  @ "b ! bjV\Z<\j[2\`_ \ `HD΋_l΋_lC Qz\ʂʪ `^*S\‚`_ `H*΋_p W jP` !H>b9" H|5"Hw ].*b(,HZ "" H!" Hr H`"NL" @ q!L"Pb  ]`_*ƚ`]x @*T>dc H`[n T`id`a`cRRL |`U`Qz 2hd`E>^>`LxO O@r>I`f`f`gB`g`g`O`_r`_p`_n`_l`_j`_h`_f`_d`_b`_`_`_`_`_`_`_`_`_`_x`Z<`Z`[2`Y_`L`hl`i4`gH`b`q`r`s`y`wL`w`U`S`Q`|6`}` xI`\bVXZ^`+`.`-_j( q,H`4Dl!H`S`RcccdcdEHΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k_`8`H_`.]_`T`(`8 \`_`L_ 212@Mj 5D`Kp < ` À ``.8M `+p8 `-pG H H _ >N:N `0``4 _`(`85D x&&c`0`0 q=ơ==M`+`.`- `2 `4`0__22 _@laR h `{@ H rÒ`c΋_j _NV Z $d  P#XKJC $" HZ" H6*Ƞ@cRcBgcZHVȪȪȄ$  TȄ^ȠHh\ʂ _R`_B[2cZHVf[bHȣ $ȃȅ bp!b A $ b تځ؁ 2ȀȠIJhlcjȠ@ȌHV ΋  @  *B D `_΋ _Nab  _R΋΁b@BBBBkDBFDȋFȁD`_ `H#`'HT`^b1 `J clHN>Nd^b ^b`c^b`c `H,΋_n+ HKhldJ`_΋_ll1 #-DD)fd,   +# $ `f  , ,(,* # , ? ;| _NuΏΎ΍Π fbLÄ f #;C f  M!α@ ffsffrz" A$D؀ؠHfJ!"̱ ff5*úz j _R`c _R HV`_΋_p  bIUDkLIH@hlg~  f _NL#ʃ>ƁCYS) _R`_ _NJJJL _R`_@_j +J`L# `H.΋_p _Nj! hlggcB _R`_ `H#΋_p _Ni4gBgg _R`_ `H# _N΋_h Kx h/"@ؠi  _R`_x H _N΋_hhhؠHV b _N΋_hh! BB%b`HV#E Ѥ Ѥ$ HVBĄ¸`HV #Hmأ c`i gi c aiȃb _R`_΋i^Rx`HV `_΋i^ B@ `H&$ ΋_f\v  JaJZ`CJ̀@! H@ @`HBH^BĀHfΠHh}Zz`yM! H^ FHh?vzd"(̱̱̱̱đR! 4B "̱̱̱̱đ!" - M|zrSz[Hh?`_J ΋D  ,Ģz`_΋D  AE`zaA  `_΋_h   jʃ*`_Bƀ1CFDqAFDF߀̱CDqF΋_n C D1 pa̋@1 p`a̱@C``_΋_njO|&Qj|0`_ `H4΋_j΋_j!  k _N# BQr _R _RP$|$0: #<E4R}d $U}C$ Qz}&$ȄjDȁȓȣ" EQ>} ʂ`_D 2Qj}Z<}Hf΋_l`b # # #~H^HHfx#"c86c< RB   Z<~R+HH^Qj~R` df _N`` 3Qr~RP`_ _R `H1΋|6~"@@H~~ ΋~~ȓȣ`_΋_pP$~B  Qj~Z<~jQ2~`_ `H3΋`_$@$!+@@!F d|P@` `@-al0ƀ 04Xc@ L@H3` K``J@ iH HDh @@D C1 b$eE#` AoFopN]ofo $/oI _Ni4o _Rl +ì nx*l $aof HhlpH`HF&a(a*a,`HX  `H `H `HpZppp>p^b    `H/ _NHi4qJEJLQIGAYUIG / _N9 p`bpzpSqB _NbM) LGHh>/ _N/HqTru~]r^bT q@`P/qt' aNM BIJ _Ni4rB _R(.r$0& h# dcZrr _N̶A"ؠHmȠrɂHVȨ^^ r _Rrgv  rhcFУE usu!AZ5,  4+( $"(@   @ * c s`u ШBbv (@r $`Li i i@V5X5 u  !@ > Nd Tua ?  _Nh y,cRv r r%Hhlv  _R )h@gv `rA rrgv I fv  _R΋V $^ @ 6Gf СI aJuuЕ 'Zu# SuAp Qa@ _N F F  S _RHV `_/qt΋ EB qE%qqFqxS `H@lvx _NI6i4vOjxÂHZ  _R R!Tix\vKHL o ! o"! Zx.HZ t<< W H`< [ W - >   Hh c {6HrM<  ;9h>> A0@. `cA@!h J HV  Hs `c c {6HsHV  Bg}D@`c@8 Jb B c {6 ( $  ]``HX H`H^ M!ag}`c! [{Hhl} Ac |Z&  H^ &,`{4 Ad& a{4c  H} c P HX J H^  Hf Hh  | HT cWB? f|  _b] n/ ȣƃ(C   FD ͳ `cS '`c `H# }~t}}AA+P}AJ AGE@H8@=74l`~x( ~~t~ ]EL}<IA @E l 6`cl  09?- ~~t~}A pFْpI B~t ~~t~ @@H FIA΋@6 $ HfL6`LDg6`c Hy `ct z `H `H `H _Nhidn' p x*g:u, u" aN΋gF))( Pl( p( HZ hJ HPidB Hu h)̀X(`|I[2 z `z a'  u$z #H\Y'Hb#H^%G!8i4B) F oz FHf ؠHs BIB u" `_H\g g8)( pYG!8id`΋ũ٩ ' @ ɩ ɩx*) p ɩɩɩ' @ [)  H`A +p pJJPPiiiA& )`  ! H@3A3 B ժ H`| iɩ ` #k+ +`΋ih! [2 M$ M$ M$ @@11* * 22    x*( ,@?΋Q BH`_ ƻ^[LxtѠw`c Lx1 a"Db RBШ? R QzZB`ch?H\ E!5 D!A` Z„Ĩ" BFDwDIhl`cI A IHidI 8xCAh" B[2IK qGDd K ą #5aЖ    #H@ՠx hBH`SH`@`cKd'aCH`SH`@`cKdZ H\ HV `c'aC@`c΋ wdѧ '(`_Hu;CF R<& $.gX[2f R< R<T AZ‰2X   ! H@̴Iܴ Ц " HEHu! RFBLֈF'   aceK HV٠Hhzi HVa)  HV, `c HL Hu  H `c΋' u@G!8hlJ[I[2`ـHf   p  H`  C A'ajԉFBHhl H} \, 4, p , $, $D d䆞@Q+dNjԈFB>Ld&٠Hhzi    a)  HL Hy `c` ,`c΋) pZ`Hh `_΋)   K  4p ddddddPdddPPiCC)  )B) ! H@̳Dܳ' @)  iH`)' @ iCCà    `Z‰2B" [΋_n) p47NN7N$+++$$ + +{R# #2ƃ v1" qâ    ˆ Ppˁ f`HrJ[΋_p@@hAhh l`_΋_rk b Nd> qLP`_ ('`c h" Ջ HX #  HZ(@ .0N Hs Hh`c #  J H^Wр  &-&r r M#&x x@ ΀K RJ8   w V `m[/ j`N!dBdb`HVg^bJ`w"LxDa C` `$ Ȃlw`hSE0!.gE H t> u$`thi4b5 L" Hdwe I% a`H\ Y`H^  H HH)H@ H`"`". +H("c"Dc D" "PI# HBg H "` BgJ8"1" dѢB`I6hl`  dѢȢ&& Ȣ,, Ȣ(Ȣ*Ȣ, 4`n`{"4bCx"L (Hp"JH ؠHs H\`ؠHt "P "HV ؁؁> qȡLP"Pb )-b4"? "dE Ud  rò `H# N ` &&?!HH<Z—2ȠHHȠ@ȠB ؠF ؠG ؠH ؠG ؠHؠG ؠJؠIG؇FȆؠK3!HF7Z—2ȠHBȠ@ȠD ؠJG !؁ 8 L ؁ؠK ( (؈ 8؈ G؇FȆE*ŠHVŠH>`B[2: HV  `HMEMCM ABGNYd2K3D ! Z—ȠH@ȠȠ ؄  3E`cB[2@ ΋_jg`n'(`'(Hm`2g( kg A C!&Z™ȠH>ȧ*ȧ, ؄ ب بhء ؠHmجg إ`g( ؠI(ؠؠؠC q؁؁ $. 4b $b &40(Z™Ƞȧ*ȧ, ؄ ب بhء ؠHmج'FI( 47Z™ȠȠȠ ȧ* ȧ,ȥ`ȥ`ȥ`g AȧȠy((EB[2`_SF STAT!c1c!c d(d*$,F$BHPM %X@`HM6f"BH0 @@#00  ! 0 AB@`@B@  `"J(@K2 $&f2$ )0D  A $ 0qM @!@`( $@D@@D)@R DP!`V J@ XHD"D4A @D$ "$ $A" HzzobdB( |D) v{&Ѥ F :Š  H99G> IH> HD: HD B=@n xpGGGGGGGT'1JGP- `{zHap!"{& zzzzHp!"{&I | |{&olzzzz H $y$''d >   !ʂ  sI "{&z!Hpn Hm |"„** $y$''z{&¤, d > $. pn! @/¡ B*:$BJҤ > ) H¤ > ¤J { [a ! ! [ (n&HX$`xRoDY|`xR Hf ss Hh HXJ`Hfol[$&• d&z`HV Yd& D)ҙ{ |9[$&`HV D){999999Wz[z$&Fl y   "`|  \I  Ҫ|sƘ | |d`n)|`HV¤ Z`xR |`{ƺ`HV{[$&  |$&$(¬ * œJ IIB{j{[ HQ HV|„J{&|{Ҭ  y [ (P A $HA%$  $BHJB@@@ BH$I @JPRz$z\ob xnp-&>>---!!>---)z+z(z%z"a Hm`HX Hh`Hf HX!4$ olyzPo j ¤l„*$T* xda{Ib$I 2 1$y x7xa{I $I   Hf  Y Hf b$$1yx$ zPb$E„*$$ 7b$$ [T  $VT  0 zoD zHzP`xT zPoD`HsBaa$  Dd$zP`x FP$$  %xxob{ W< 7`xY H`< xpuupsYPYYwpYY `Hh%  `Hm$F     yNY Hs BoDGB`HfI$`HX%4%*I,W`HFHp y& ,¤6 4HZ$868ol yL|||!ws & ({ |||! ( : X! :`{ba !  {||d:eB% p% :a$: `{b$:  {z*I HB:M{{FsC ] c e d fbal_^F $: ;   HB: a$:  {||!{||  {| {|| {  z z{|  {beB`H` y&$: `[eB% p ieBI$: P  {|| {|`y&CPH`)„*4Ɖ[ƉK  `xr{{eUUwK|F‚ Ҫ%I  *Hf% =  * ZHf% =  1 HBd0|@ H\@  sx ¤< JtY H<V|  | Cҧ< j? 5Drz !} | KJ" g H`YH` Jg 9jq}§4* | s8}xxob{R }p"(KD"&&*"""$$2`y&|`y&`x`x`|$'2b')~db2x"`~`y&~4b)~d8)~d7"`~`~`y&b!7s  `H`s |0'4~'42 `x@~'4"` ~, {||Y H\<!2R SPaB!Hx,w s     I  {|{`y&w{ {|||d< YY H\<k[|)~d"`~`~7bVaq ",`Hvs 4<s(' & %   ' `H`%Y`H`%`y&     %% 0i`H``y&s `Hv`y&G7baB`Hv ,I `y&`y&K|l'0b|xR )"G:`~FQ) w[  {||G{P <bX   HZ<Y HZ< 5[K2|lb2xaB[)@@FP @$ D @"إ@TEB@P X BB@DR @" * $R ~p~`~da }&. + , y!., ¡xy 2p~jy.~~y.~yN~~~z}(}V~*~yD~>`z$҉,(5,rJ    , 5 ,rJ    V, 5 :`z$,5 ,[~ $~ `yd¡ΠyfƤ`~ Ozv|4|4||} ||4zz{x}||4¤0 xd0bd2 1.   Xd,d. ^5ɑI }&Xˆx‡ E52   g5ə . }&;4[$0d, )P  ˆx‡d, 5ə .`{ 5 2  2`F [`{, ¡x¤2 J‰ 0, {, ky4y 2¤0 0¤0, ;   `F [  ;  5 `|@r{{&d, %  |*{'I HB,I e 4mjE yixX5ʼn 0. }&x, d4zd, )Ed, I2aaE d, 9{{`zd9  EE HB,[ EE[$0, k`z6/, G10, k¤2a$x  ¡5 .}&, ; {|b2`{ޅ¤6xAd$/| +~)I 9y¤2 ¤2 Jbd01. x}&$0 aI¡B$,H56:  `~a;¡zE, K ~& #~,  j`%, +e2   {y 2Aa !e`z, { < )b~a¡Q,:GH, +h2  (   `^ (  ~(Y ~ oD! G`~Id +d/y>`z$҉J¤2>`z$҉J~(ol@a %  V2 V, 5 9z$25,  P 5 1  P 2$~([5 P`H~(,4)., 4)0,$rzp ay ?  L ҩMZJ ҩqP`s8ŠŠŠŠŠŠ[ #:$<&//?:;;<=>?^@!"#$=&'()*>@E O@A "@ @0 B H L  @ AB  azDzJ `z*a H`. + , y!.$  62 264 42, ¡}62:   , + {:$:,, ;  p  -㧧`{}$~$}`HF¡Ơ$4Ơʤ`za3¡$:z, K } }F   j@2   { 62Aa !e`{  , { 7   ya¡, [:R2  $  @^ (  Hh" HmN   yY Hs     oD! GB`Hf  HX4$4$I +d/6>`~҉J¤2>`~҉J olaI¡, [6^  , ¡} $: +¤2a=d4J‰ 0, {, k~46ʉ 2¤0 0!¤0, ;  2 +  ;2 6  E `|@r{{d, %  {/I HB,I , Ke 4liE yi|6 0. H`,2 d4~E E@, K2 aaE d, 9|`{h~¤2 ¤2 Jbd02$. 2 H`$0$0, k`{h 6/, G10, k¤2a$2¡B 6A@ .H``Q`{, ;}ޅ26$  Ad$/ +})I `z b2`|@  $4 >GJ:`~rH> ~䢉2[6=~9~a %02 p2[|2|||||||~~|*|||26 $:2  G [d. v6 ``H`I H`j2$: @26[20d0bd22$.  [ 0J6 ``H` . H`=4[ 07$0d, )P  d,2  6 ``H` .$:[ 6  @2  2 2![`|@6=~9~2($: @226 26(d2$2222[d9 H EE HB,[H EE[$y[5j`H~,4)4), G%rz !vg Jҩql`s8lO O  $P@@@@p h$ (D$ !  X~΋'Ч"N<)0Ag C΅'G!:E-ʆJ0 g 8i0JhD((΄9%GJ`k΋ɢ$ Q  B$QD "#BaFhEDE @  hVCATALOG S$IMAGESS$OVLYA S$PROGA S$ROLLA S$CRASH     !9` # BӄB`!`#` Q 7I`L11 H ( * & 2 ,`0  !: `. F` ` 2X>@̴LR #h."2"n$ #En  "$n  abȅSabȅabȅanbnn؅nabȅ 2  : DD pA Q`2 $ hn(,`0 R`hr RBB!h6Bx`` 11  N(T(^t` (P    Th(D` >311 @2# 22h^è`.oO? 㚘 8  '"8'@ '&  "" ,$ @'"s3 4" `r  `gg@wB`0" .$ "  "`@ 1  h R8@#B 2j3   ǡi X  @< P i9i LX @.2222  @j#  R``<B@ R`<88 P: `‹G AE GA A!  # S S :  R" Р,$a Z@N .$ 0""-FY=H < N(`@`1Q 1a9a`(c9Š& @a :$"$Z@r[hYR > @̹̹̹̹̹̹ arR`4hY$a[ b`(N㼈 0 h \  J 8 0" .$ @< >: 8`Bf4A 4I@`AI IB`DI H  <: JHD`Cf0A`" 4 R`68N<0 J<`>HFL2X$`N8`@8 S nRă88<"! "$0&&(  :$ <& >( @  @ D NPD'B6&.8N !J L` BA̦.̠6 H ` R( <(&@&<̷̷(7 h<8@ <(6 <@:<`Tx  T" 0" .$ B F& @ D`B< B<`@N: NG> H> >  l L@ABCDEHE  H    ^  2 2  +@ D@( @D(BD!@"T@ DU@HB Q *؊B D D 4 @ jR!ZҪڠ @@D)D"HP(@Q (@(*ia$!@ 6m4&EZRH A[lPR @@$P@D I, TM$IQ 100C3400AA INCLUDE 11/10/79 17:13:48SDSMACDD GETEVT110CDE00B2 INCLUDE 11/10/79 10:57:47SDSMACDD CHRSVC120D9000C8 INCLUDE 11/10/79 10:52:42SDSMACDD DXIOS 130E580664 INCLUDE 11/10/79 10:55:05SDSMACDF@R(092:1630 **** LOG STARTED ******************************************************R*092:1634+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1634+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1635+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1635+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1636+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1636+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1637+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1637+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1638+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1638+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553  092:1639+L P01 ERR=06 IID=0D L=04 A=0000  STN RID=2B F=00 B=4553 *092:1639+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1640+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1640+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1641+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1641+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1642+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1642+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1643+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1643+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1644+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553  092:1644+LP01 ERR=06 IID=0D L= 04 A=0000  STN RID=2B F=00 B=4553 0092:1654(OQ) OUTPUT KILLED FOR DEVICE: LP01 00092:1654(OQ) OUTPUT RESUMED AT DEVICE: LP01 0*092:1714+LP01 ERR=06 IID=36 L=04 A=4000 * ST02 RID=96 F=00 B=2020 R(092:1946 **** LOG STARTED ******************************************************R06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1641+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1642+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1642+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1643+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1643+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553 *092:1644+LP01 ERR=06 IID=0D L=04 A=0000 * STN RID=2B F=00 B=4553  092:1644+LP01 ERR=06 IID=0D L= @R(200:1300 **** LOG STARTED ******************************************************RR(200:1432 **** LOG STARTED ******************************************************RL%200:1434+MT01 ERR=44 IID=26 L=05 A=0400 0000 0000 0000 001E D671 8601 8A01L<ST02 RID=32 F=00 B=0000 0000 0000 0000 001E ACE2 8601 1000<L%200:1434+MT01 ERR=44 IID=26 L=05 A=0400 0000 0000 0000 0000 5671 8200 8A01L<ST02 RID=32 F=00 B=0000 0000 0000 0000 001E ACE2 8200 1000<L%200:1434+MT01 ERR=44 IID=26 L=05 A=0400 0000 0000 0000 0000 5671 8200 8A01L<ST02 RID=32 F=00 B=0000 0000 0000 0000 001E ACE2 8200 1000<H#000:0004 STAT DEV=DS02 READS=0080 WRITES=0000 OTHER=0001 RETRIES=0000 HR(206:1004 **** LOG STARTED ******************************************************RB 206:1024 TASK ERR=10 IID=01 RID=42 ST02 WP=C2C6 PC=C204 ST=D48F B 206:1100+MT01 ERR=458 IID=01 L=05 A=0000 0000 0DD3 0000 0000 DF5F 8601 8A208<ST02 RID=20 S=01 B=0000 0000 0000 0000 003A BE84 8601 1000<L%206:1110+MT01 ERR=40 IID=02 L=04 A=0100 0000 0000 0000 008C D0E2 8401 8A01L<ST02 RID=2A F=00 B=0000 0000 0000 0000 008C A1C4 8401 1000<R(206:1130 **** LOG STARTED ******************************************************R&206:1137 (OQ) LP01 KILLED FOR .MAT1&0206:1137(OQ) OUTPUT RESUMED AT DEVICE: LP01 00206:1138(OQ) OUTPUT RESUMED AT DEVICE: LP01 00206:1139(OQ) OUTPUT KILLED FOR DEVICE: LP01 0&206:1139 (OQ) LP01 KILLED FOR .MAT1&&206:1139 (OQ) LP01 KILLED FOR .MAT1&0206:1139(OQ) OUTPUT RESUMED AT DEVICE: LP01 0&206:1145 (OQ) LP01 KILLED FOR .MAT1&0206:1145(OQ) OUTPUT RESUMED AT DEVICE: LP01 0L%000:0004+DS01 ERR=1A IID=00 L=09 A=20F0 0301 0113 0015 0360 6D2A 0401 9801L@<STN RID=00 F=00 B=0001 0301 0113 0015 0360 6D2A 0401 1000<L%000:0004+DS01 ERR=1A IID=00 L=09 A=20F0 0300 0112 0015 0360 DAA0 0400 9801L<STN RID=00 F=00 B=0001 0300 0112 0015 0360 DAA0 0400 1000<L%000:0004+DS01 ERR=1A IID=00 L=09 A=20F0 0300 0112 0015 0360 DAA0 0400 9801L<STN RID=00 F=00 B=0001 0300 0112 0015 0360 DAA0 0400 1000<L%000:0004+DS01 ERR=1A IID=00 L=09 A=20F0 0301 010B 0005 0086 168E 0400 9801L<STN RID=00 F=00 B=0001 0301 010B 0005 0086 168E 0400 1000<R(208:1655 **** LOG STARTED ******************************************************RR(208:1757 **** LOG STARTED ******************************************************RR(208:1835 **** LOG STARTED ******************************************************RR(208:1853 **** LOG STARTED ******************************************************R022:0917 **** LOB G STARTED ******************************************************BL%000:0000+DS05 ERR=18 IID=37 L=04 A=D4F0 0600 0000 0000 0006 0C30 0800 9001L<ST01 RID=12 F=00 B=0001 0400 0000 0000 0006 0C30 0800 1000<L%000:0000+DS05 ERR=18 IID=37 L=04 A=F4F0 0600 0000 0000 0006 0C30 0800 9001L<ST01 RID=18 F=00 B=0001 0400 0000 0000 0006 0C30 0800 1000<L%000:0003+DS05 ERR=1D IID=37 L=04 A=14F0 0600 0000 0000 0006 0C30 0800 9001L<ST01 RID=1B S=01 B=0001 0400 0000 0000 0006 0C30 0800 1000<L%000:0003+DS06 ERR=1D IID=37 L=04 A=04F0 0200 0100 0000 0100 9336 0401 9001L<ST01 RID=1C S=01 B=0001 0200 0100 0000 0100 9336 0401 1000<B 000:0000 TASK ERR=04 IID=20 RID=12 ST01 WP=3B66 PC=1282 ST=008F B********************************RR(208:1853 **** LOG STARTED ******************************************************R022:0917 **** LO` ```SYSTEMp$$CC00000$$DAN$$EAN$$12N$$MO01$$ST01MEST01$$UISYSTEM$E$C0`:`MAT000p MATT/TERM $MR$12$MRM$80$MT$ 1,8,13,26,31$$BC00000$$DSC$DS01$$SYS$SKI1$E$C0$SF$P.MAT1$BD$SMT01$BD$D.MAT1$PF$DLP01$$DAN$$EAN$$12N$$MO0F$$ST02MEST02$$UIMAT000$$CC00000` `` `` `` `` `` `` `` `` `5!S$SYSGENVCATALOG`5SKI1 D 0d .SYSLGY `P|g|f MEMRES `Pd X|Һ|ҳ SYSLGN `PV|_|^ KIF3 `P' "|J|DDUMCOM `P||IOCOM `PF|ҝ|ҘDDIOSR `P )"|t|rSVCIO `PB5||E|2DIGDSR `Pw |ѐ|яDSRKSR `P z'p||D32I `P %DSR911 `P7||DSR820 `P*|Ѷ|Ѵ SYSLOG `P|V|T"DSR5MT `P|њ|љ"D5MT `P "%%CRDSR `P .|ч|х&FPYDSR `P 7|"|%ROOT `PT@||&DSR733 `P@|ѩ|ѥ)DSR913 `P3||*FILMG `P!m |҉|҃+NOCOMM `P||,DUMMY `P||,DSR911PF `PH6||/DSR979 `P ||/KIF `P$w |5|/1LPDSR `P!|V|T2NOFCCC `P'||1GENDAT `P*p3COMPLT `PQP5DUMKIF `P|| PRSYSLGY M$DATA F SYSLGY PP4POP3 4PUSH3 4SLMQUE4SLNFLG4SLNQUE5SLPBQC4SLQCNTF SYSLGY PP4TMQUE 4YEAR AB΋BEB EEBBEBCBBBF SYSLGY PPBBEBEBBBBBBEBȡBBBءBBBءBBF SYSLGY PPBEBEBB`EF SYSLGY PP: 11/14/79 14:57:38 SDSLNK 3.3.0 SYSLGY P@P~MEMRES M$DATA F MEMRES PP4AQXT1 5HBDOVYQ5BIDDER4BIDQUE5BIDSTK4BM$MAP4BM$MPBF MEMRES PP4BM$MPK4BUFCHK4BYTE014BYTE024BYTE044BYTE064BYTE14F MEMRES PP4BYTE154BYTE244BYTE604BYTEFF4CLEANQ4DDTTSB4DGNQUEF MEMRES PP5~DM$PC 4DM$QUE5DM$WP 5DSCMGR4ETSK 4FIDMAP4FLG12 F MEMRES PP4FLGWCS4FM$RDM4MAPLST4MM$FND4MM$GSA4MM$RL24MM$RLMF MEMRES PP4MM$RUA4MMQQ 4MMUMAX4OADPTR4OF$LDT5 OVYLDR4OVYQUEF MEMRES PP5OVYSTK4OVYTAB4PF$FCB4PF1LDT4PF2LDT4PF3LDT4POP0 F MEMRES PP4POP1 4POP4 4PSBLST4PSBSTR4PUSH4 5RDDIR 4RETRIDF MEMRES PP4RF$FCB4RF$LDT4RIDMAP4RSTRSW4RWTQUE5 XRWTRTN5nRWTSTKF MEMRES P4SCRASH4SO$LTO>5SOVLDR4SOVYQ 5TLDLOD5TLDPC 5TLDSTKF MEMRES >P4TLDWS 4TM$CLR4TM$DEC4TM$DOR4TM$EXT4TM$INC5TM$LDRF MEMRES PP4TM$OPN4TM$QRM4TM$TSV5 TMALPR4TMAQ0 4TMAQUE4TMDQUEF MEMRES PP5 TMIMAG5 LTMLDPR5 TMLDTK4TMMLIP4TMQUE 4TMRDAL4TMRDDLF MEMRES PP4TMSUSP4TMTREE4TMTSBF4TMTSCH4TMWOM 4TOLLNK4TOLTDLF MEMRES PP4TSKRLD4UAHEAD4WD00044WD00084WD000F4WD00204WD0200F MEMRES PP4WD04004WD1000ACC~CAE#AC&A$CbApB B B B B$F MEMRES PPB/CxBEB E<BEBCzBB E9BlBBB B +BBìB F MEMRES PPBnBxB*BBBlB B B BBB$BaCpBE5BBBB BF MEMRES PPEBBBBEDCBB`EPB&BaBB(BaBB*BaBB,B`F MEMRES P$EB BBBBB E4BB E$,4BB E4BCCxCrA CFF MEMRES ,PBE BBBBCJBE;BBBBB BBB B BBArF MEMRES PPB E4B/B E<BBE6BEBC BBEBBJBBLBQBBF MEMRES PPBBBIBBBBGBBBABBYBUBIBGBBB BB/B F MEMRES PPE<BBB9B C@B`E!BC:BBCHBECB E<BbMB)F MEMRES PPBB B BLBGBBHBE@BBB/B E<BB/E CCjCA(F MEMRES PPCBE#CRE;E$BBBB BCHBBBBAHBBBB@F MEMRES PPBBBBBBBB`PB/C4B'B EGBMBB BBBBBEF MEMRES PPB E<BEBCfBBB E9BB(B.CXBB$BBBB0BBB&F MEMRES PPBB BhB#BB BdBcBBBEC`BCTB E<B̶BABB"F MEMRES P6BBؠEBBȠC^BBBBɂBBEBBȨB^B6BB^B CVF MEMRES PB E9BBCHBE:CB C\BhBBcBFBУBEB BCCvBuF MEMRES PPB!BBABBBZB5BB,BB BB 4B+BBB(B B BBB$B"F MEMRES PPB(BB@B BBB B @B BBEBE1BEJC~BBBBF MEMRES PPB`CBШBBBBBBE.CB(B@CZB $BB`E2BBiB B F MEMRES PPBBiBB BBiB@BBVB5BXBB5B BuB BBB B !BB@BF MEMRES PPBBB BBBBBBBBBB>B E?BdBB B TBCCF MEMRES PPBB B BBCCBB"BCHBE=CBC\BBB&BB&BF MEMRES PPBhB BBBaBB QBB BBBBB͂BBB"B BBBB SB`CB F MEMRES PPBBBBB͂BBŁBeBZBB,BBB B BBBhB B>BaBB BB?B F MEMRES PHB B E<BhB B yB,BBEHCB CXB CZB%BEKBF HMEMRES PEDCB E9B )BBhB@BBEACB`CjBBBAB C\BBF MEMRES PPCHBE=CBIB B BE5CBBBB E9BBBBB΋BF MEMRES PPE%B BBB$BBB^BE+BBBB BB6BBBBGBfF MEMRES PPB BСBIB BaBJBCCBBBЕB B'BBBECBB#BF MEMRES PPB SBBuBABpB QBaB@BBBB E<BE,BE,BB BBF MEMRES PPBBB SBB E9BEB BB`E(B/C4BB΋B B EBBBB F MEMRES PPBBqEB%CHBCDBBBBFBC8BEBBB E4B@E7CF MEMRES PPC tB E<BEBEBChBBOBEMC zBÂBBEUB B F MEMRES PPE9BBBB RB!BTBEEC zBBECFBKESB BoB BF MEMRES PPB!B BoB"BB!B BBEC BEKBBEDC zBBF MEMRES PEFCJ zBEBBEDC zBKEUB BNBELC zBBEKBF MEMRES JPBBB`C VBoB B QBBBbB?B BBBbB.BABBB2BBBB`BF MEMRES PPBE B BBoBRBB B BEBBEOBBBBEB F MEMRES PPBB`C 2BoBZBBBBBBBBENB/BBoB B BC C "F MEMRES PPBBoB"BBC C BCBFB VBBFBECBÃBBHB E<BoF MEMRES PPB BB BBBB 'BnBB"BB BBBB 'BeBB BB BLBF MEMRES PPBB BC LCLBMBBB"BC LCZBNBC CbBBBBB BBLF MEMRES PPBBELC zBB͢BBGBBB WBB"BBMBBELC zB6BŢF MEMRES PPBBmBHBBB XBB E<BNBB`GBɁBBE B BBeBRBF MEMRES PPBEKBE>C zBKC B BEB B/B B 8B7BNBELC zBOF MEMRES PBE@C zB.BBBE8IBBBBEC BBBEC BF MEMRES 8PBBEC BEIBEBBEQB&BETB BBEKBF MEMRES PPE>C zBOBEC zBEBEDC zBEIB E<B`EBF MEMRES PPB E8B`CBECB EGB E4B-B E4B#B E4B!BC (F MEMRES PPC BB/E B E4B!BˇBBBB BEBBEDC BF MEMRES PPE"B E<BEBC B E9BBïBB`E'BoBBBEBF MEMRES PPBE$B$BBnB^BABBBmBBBBBBBB BBB BF MEMRES PPBB BBBCHBE:C BoB B BBB BbBNBТBMB BCF MEMRES PPC HB5B5BBB BBC TB5C VBBBBCHBE=C BBB F MEMRES PPE<BBBˠEBBnB B aBBNBaBBBBEAC B/F MEMRES P*E BۉBB۠E B B E8BHBoB B *&B BBBaFBBB(BB XF MEMRES &PB B BFBBBEC BBBBEC BC NBBBBMBF MEMRES PPC HBEC BEBB`C BBFBIBBBHBB BBbHBBFBBF MEMRES PPEC BBB BB2B=BBBBAB BBBB$BBBBBF MEMRES PPBBBBBBBBCBE;BBBBBBBBBBBF MEMRES PPC C ^BBLB E<BEBC ~BBoBBBBaB BB !BtBF MEMRES PPEBoB B(BB B #B'BEJC fBÂBB B cBBBBBB^F MEMRES PPBBB۠EBBBBˠEBBNBEABB/B E<BۃBBۇF MEMRES PPB BˆBBBBBEBЯB B BBBB;BBB#BBB#BF MEMRES PPBoB B/B BDBBBBB BBoB B %BBBEC fBBB"F MEMRES PB*BB`E*B E4B*B΋BF MEMRES PPE-BBBBBB$BB BBBB SBE/B$BBC C BF MEMRES PPBBBBBCBB*BBDBBBBdBB 1BBDB!B BEFC F MEMRES PPBY E BB`E*B΋BE-BB$BBZB/B B BBE/BBF MEMRES PNB?B BBBB.BCBBB2BKBB`BB$BVBC CBBBBF MEMRESN PBBCBBOBBBBB/BBBB tBEBPBB B kBPBF MEMRES PPE$B$BBB^BBBBBBBBBoB,BB,B BBBBF MEMRES PPB EB*BB/B?B BBB2B4B BBBBB@BBBBcB@F MEMRES PPB BBcB B EBB B BoB B BQB ABBoB"BBQB ABBcF MEMRES PPBBBBERB BEVB BEQBBBOB!BTBEFCB`F MEMRES PPE*B ABENBD AjBENBD ABENBD AzBENBD F MEMRES PP: 11/14/79 14:58:41 SDSLNK 3.3.0 MEMRES P MEMRES PPBBBBBCBB*BBDBBBBdBB 1BBDB!B BEFC F MEMRES PPBY E BB`E*B΋BE-BB$BBZB/B B BBE/BBF MEMRES PNB?B BBBB.BCBBB2BKBB`BB$BVBC CBBBBF MEMRESNPSYSLGN M$DATA F SYSLGN PP4BYTEFF5SLPBQC5SLSVC 5SYSLQ 4XOPRT1ABB[BBEBF SYSLGN PPB`EF SYSLGN PP: 11/14/79 14:57:30 SDSLNK 3.3.0 SYSLGN P@PKIF3 M$DATA F KIF3 PP4BM$MAP4BM$MP24BM$NEW4BM$RD 4BM$RDU4BM$REL4BM$RMDF KIF3 PP4BM$W 4BM$WRN5vBRTAB 5tBRTABA4BS 5BSC 4BYTE01F KIF3 PP4BYTE204BYTE414BYTE454BYTE464BYTE474BYTE494BYTE4FF KIF3 PP4BYTE504BYTE804BYTEB34BYTEB44BYTEB54BYTEB74BYTEBDF KIF3 PP4BYTEFE4CKLOCK4CKWRIT4CTRYCD4ETSK 5FDRCTB4FM$EXTF KIF3 PP4FMACES4FMCLOS4FMOPEN50KI$BEG5 KI$BIN5 KI$BS 5KI$BTDF KIF3 PP5 >KI$BTI5 KI$BTS5BKI$CDN5KI$CNV5KI$EK 5 KI$ERR5KI$GEBF KIF3 PP5KI$GFB5 KI$KC 5 KI$KDG5KI$LOC5 KI$LOG5KI$NEW5KI$RD F KIF3 PP5ZKI$RDK5"KI$RDU5KI$REL5KI$RF 5KI$RMD5PKI$RN 5`KI$RP F KIF3 P5 KI$RR 5 KI$RRA>5 KI$RRB5 @KI$RRC5dKI$RW 5KI$SUK5`KI$TABF KIF3 >P5BKI$UCV5 4KI$ULG5KI$UNL5>KI$W 5KI$WRN4MM$GSA4MM$RSAF KIF3 PP4OFFLCK4ONLOCK4OVYTAB4POP0 4POP2 4POP3 4POP4 F KIF3 PP4POP5 4POP6 4POP7 4POP8 4POP9 4PUSH3 4PUSH4 F KIF3 PP4PUSH5 4PUSH6 4PUSH7 4PUSH8 4PUSH9 4SO$BTO4SO$LTOF KIF3 PP4SO$RFO4UBS 4UPDFDR4WD00014WD00644WD2020ACCC C F KIF3 PPCCPCCdC`CCCpCpCpCpCpCCCB BCDBH B@BB΋BΏBK F KIF3 PPC.BBBBBCVCBB"BBBB"BfBBBBBѬB BBLF KIF3 PPBBBNBBB,BBB.BBˮB0BHBBB BBBƮBJBBBF KIF3 PPC&BBBB`C BBJBBBEB.BB$B BEC BC(F KIF3 P$BBBBBB C,B BC+B)B$,E B8BBBBBBBB F KIF3 ,PBBVBBBB`C BEBBEBBlBB BBBB`C F KIF3 PPBEBBEC BEBBlBB BBEB BE BF KIF3 PPBC)BBC+BBBBBB BBB BBBBCvBCtBBB%F KIF3 PPB BB BBBBBBB BBBDB BBBBLB BBBTB BF KIF3 PPBBXB BBB^B BBBdB BBBjB BBBrB BBBvB F KIF3 PPBBB|B BBBB BBBB BBBB BBBB BBBF KIF3 PPB BBBBBB`EBBB!BB B/BB aBC`B@BBBF KIF3 PPBBBFBeB B!BBB BaCBQBBBFBBBWBBB@BBF KIF3 PPBNBBBUBBBRBBBOBBBLBBBEBBBBBB`C F KIF3 P6B B@BE&BE8C B]B BBCvBE8CBA6B8B7B,B F KIF3 PE B B,B C)BB,B C+BBFB`C @B B BB B BB B BF KIF3 PPBoBBECBBBBBBE$C B-B B`BB B BBF KIF3 PPEC B#B B BB C'B BbB BB BoBBBCCjBC 4CjF KIF3 PPBBBLB˯BBNB˯BB,B˯BB.BˮBHB0B(BoBBBmBB BF KIF3 PPBCBBˮBHB0BCBBE;CjBB BB BlB BE B F KIF3 PPBE BBC*BB,B*C(BBB*BoBBBBB"BBB"B F KIF3 PPB BB"BB B B"BEBBBB B CB BOBE#BBF KIF3 PPBJBB`E'BB BEB0BEBBEB΋B΂B΁BBBMF KIF3 PPBBB/BB`E(B΋BE0BMBBECBBB`E)BF KIF3 PHEBBEB΋B΂B΁BBBMBC:BBB`E(BEB΋B΂F HKIF3 PB΁BBBMBCRB`E(B΋BBB`C F KIF3 PPB`CB`CB`E B`CB`EB`CB`EB`CZB`C B`F KIF3 PPE*B`E1B`CB`E9B`E8B`CB`CB`CB`CB`C"B`F KIF3 PPCB`EB`E7B`C 4B`E!B`E B`C B΋BE4BB&BF KIF3 PPB́B͂BoBBBBBŃBBBBB7BBBBBB@BBBBBF KIF3 PPBBBB΋BE4BB&BBvBBBoBBBB`E-ChCCF KIF3 PPCBABOBUBZB[B\B]BaBoBsBuBzB{B|B}B~BBBABBBPBQ F KIF3 PPBWBXB]BaBbBpBq BuBvBxByB~BBBUBZB[B\B]B^BuBzB{F KIF3 PPB|B}B~BBBUBVB[B\B]B^BuBvB{B|B}B~BBB΋BF KIF3 PE5BJBC C`B!BB BBBB$BBA E<BB(B!BBCB.F KIF3 JPBVE<BBoBBܱBBBBѱBB B B BԠE BBBBBF KIF3 PPBBBB B BBԱBBBBBBBBBB`E.BoBBF KIF3 PPEC BBBBB`C BBfBBhBlBBBBB,BBBTBF KIF3 PPBBB`C BEC BBBHBBBlBBnBBpBBNB.BVF KIF3 PPE<B BBCC BBޭBB`C BoBBCZC BBBBB`C F KIF3 PPBB`BBBbBCBGBBBCC B#BBBVBCBBVB.BF KIF3 PPB$BBBBBB`C B(BB BƥBBBBBC C B BBBF KIF3 PPBCvBE8C B/BBBXBBE<BBB(BRBHB!BBBF KIF3 PPBCC BGBfBB/BBBB1BBBoBBBBBEBBF KIF3 PC C BBB&BB TB8BBB/BBB`C B BBBBCvBF KIF3 8PE8C B/BB,BEBBBB&BBBBVBB/BRB(BBF KIF3 PPBVBBBB BXBBHBXBB1BCBBBBBFBB B B BCvF KIF3 PPBE8C B/BPB BBVBiCBBB,B BCBGBBBB/BVBF KIF3 PPE C BIBBBBCBCC BoBnBB B0BCvBE8C F KIF3 PPBBfBBhB,B B dBBE$CBBoBnB BE$CBoBBF KIF3 PPEC BE%C BnBJBB/BB`CBBBXBB.BVE<B BGBfF KIF3 PPBBBBBB BܑB`E BBB[B.BVE<B BGBfBBBF KIF3 PPBBB BrBBB[B΋BE6BBBB΋BE6BoBBBDBBHF KIF3 PPBBBPBBB7BBBB#BBCC :BC C :BBBBBBF KIF3 P*BBB,B EBBBB,B EBB*&B B BB(BBBBF KIF3 &PEBBC C :BB,B EBBB"BBBBBBBHBB F KIF3 PPBBBBB%BBBBCC :B B-BB+B,B EBB,B F KIF3 PPEBBBBBBBBBBCC :BC C :BBBCC :BF KIF3 PPBBB,B EBB,B EBB'BBBBB/BBBBB,F KIF3 PPB EBBBB'BBBFBʀBBB`E/B΋BE5BBBBFF KIF3 PPB'BBBHBtBBCC BC C BlB(BB:B%BC B6BBBF KIF3 PPBBB`BBB`BBBFBBoBBEC lBF KIF3 PPB B,B B hBBE%C B`CBB EBB,B E BB E B*F KIF3 PPB`C BoBBB !B!BXBNBBBB[B΋BE1BBB/BB BF KIF3 PNB BBCBBBBBjBBBBBBBBB/BB BB BF KIF3 N PBCBBB[EBBB`E*BBFIB΋BE0BmBB BBBJBPF KIF3 PPBBBBʮBJBB*BBnBHBBC>C $BBJB*BBBBB`F KIF3 PPE)BB΋BE1BƮBJBLBBB*BB.BJC 2B6BBJBʮBJBF KIF3 PPBC"C B%BBBBHB BCC B+BʮBJBBC"C BBBBeF KIF3 PPBBCC BBBBJBBB.BJB BB#BBC"C BBCC F KIF3 PPBCC B.BJBʮBJBBBBBJBB.BJB*BB`E*B΋BBF KIF3 PPE6BBѥBB BBBB"BBBB BʆBBBaBʇBB9B(BF KIF3 PPBBB`B(BBEBBC CVBBBBBBBBBBBBF KIF3 PPBB*BBBEBBC CVBʄBBʂBB`E/B΋BE2B*BF KIF3 PPBBCCBB$BBBTBBBBʄBBBBƤBBBBB*BF KIF3 P B`E+B΋B DE3BBBBBBC CBСBB BBBB"BF KIF3 DPB@E<BB(BlBBBBBBECB/BB2BBB/BF KIF3 PPE=BB E B`E,BLB*B( BHB(BBB΋BE1BBBBLF KIF3 PPBBNBBBLBBCC2BC C2BoBRBBBUBeBB`E*B˥F KIF3 PPBBLB˥B BNB%BBCC2BBBB.BBB,BB.B,B(F KIF3 PPB`BBBBBBBBBBBB(BBBBB BBBBBF KIF3 P0BBCCBBBBBQBBBC CB/B0 BBBB(BJBB"F KIF3 PB%BB$BBBBB&B BBBblB(B B&BoBByByByBBBlB(BF KIF3 PPBBBBB.BBb%BḆBBBlB(BBy`E BB BB/BBF KIF3 PPBB%B B"B%BB$BB&BBBCvB B BE8CBBCCF KIF3 PPB`E/B΋BE5BB BBBBBBʅBB`E.BBBBBF KIF3 PPBCBBBBABBBBBBBBCBBF KIF3 PP: 11/14/79 14:56:57 SDSLNK 3.3.0 KIF3 P KIF3 PPEBBBCC BBޭBB`C B`C B΋BE6B*BBBBF KIF3 PPC CBB2BBFB'BBBCCBBBBB BBBBboBB>,B(F KIF3 PPB`BBBBBBBBBBBB(BBBBB BBBBBF KIF3 P0BBCCBBBBBQBBBC CB/B0P DUMCOM M$DATA F DUMCOM PP5COMMON6 COMSIZAF DUMCOM PP: 11/14/79 14:56:00 SDSLNK 3.3.0 DUMCOM P@PIOCOM M$DATA F IOCOM PP4ABTPDT5ASCCHK5ASCCK25tBRCALL5vBRCALT4BYTE014BYTE04F IOCOM PP4BYTE054BYTE084BYTE104BYTE194BYTE204BYTE404BYTE80F IOCOM PP4BYTEFF5BZYCHK5CLKPC 5CLKSW 5CLKWSP4CMDFLG5CMODE F IOCOM PP4COMMWT5 COMWIO4CP$IDL4CP$II 5CP$SSW4CRT 4CURMAPF IOCOM PP5DBGN104DDSTAK5DDTBGN5DDTFLG5DDTRTN5DDTWP 5DIAL2 F IOCOM PP5DIALUP4DIOPDT5DSAVWP5NENDR0 5,ENDRCD5:ENDRSM4ETSK F IOCOM PP4FMQSER4FMTTSB4FNDLDT4FNDUCB5GETC 5GTADDR5JMCALLF IOCOM PP5JMCALT5JMSTAT5:KEYFUN5XMAPCHK4MAPOFF4MAPON 4MAPSHDF IOCOM PP4MAXIO 4NUMDEC4PDTLST4PDTSAV4POP0 5PUTCBF5PUTEBFF IOCOM P5SCB 4SCHDWS>5SCNPDT4SCRASH4SECOND5"SETWPS4SLCTIMF IOCOM >P4STUNIT4TDL 5\TILERR4TM$DFR4TM$DPR4TM$SLC4TM$T0 F IOCOM PP4TM$TSV4TMAQUE4TMDQUE4TMESLC5TMOUT 4TRAPRT4TSKLSTF IOCOM PP4TTY 4UPS 5WAITIO5WANYIO4WD00104WD00204WD0040F IOCOM PP4WD02004WD04004WD08004WD10004WD40004WD80005.XFERM F IOCOM PP4XOPRT14XOPRT3ABB`BB B B PB BbBBEBBEF IOCOM PPBBB[BC(BBB[BCBbBBBiBBB)BB EB`BB F IOCOM PPBBCBBBBCB CB΋B)BBB(BBJ CBB BBHBF IOCOM PPE+CzB E&BJBBBB[BiBB)BBz`EBB(B EBF IOCOM PPBEBBhBB iBB BB E4BBAB¡BB*B2BBBzF IOCOM P$BIBBIBaBB BBBB`EB$,B`EBBC,BBaBB(F IOCOM ,PBBB*BBHBBHBB XBšBB B ZB BJBBB B$BBB'B[F IOCOM PPB!BB(B2B BBDB¡BBFBBBBBFBBBιBFBB[BGBGF IOCOM PPB BGBBBGBBB(B BBB[BB BBBB BBB[BBF IOCOM PPBB BB BBB B BPBBBBBBBBB BŠBBBҚBF IOCOM PPBB$BBBBEBBBBBB E BBB BB B BF IOCOM PPB[B@AB΋B BB CB CBB CBCBEB'B$B CCF IOCOM PPBBgB&BBB EB+BYBB EB EB+BBB`EBF IOCOM PPB B"CB"BCHBBBB0BBBBBBBBBBB&B&BF IOCOM PPBFBBB BB!E:BB!E9BBCBBBBB CBBF IOCOM P6B CBB CB`CBBCBBjBBBB`BB6B܊BBkBBF IOCOM PB[B$BBBBB$BB$BBBBB`BBpBBBIB&B%BBF IOCOM PPB"BBBBBBBBBB BdBBiBBiBB BB@B$BBF IOCOM PPB E8BB BBBB$BBBB[BkBBB!E6BBBXBF IOCOM PPE6BRBBBBE5BJBBB4BFB YBDBB`E/B@B)BF IOCOM PPEBBiBBBBBB)B C8B2BiBBBBB.BiBBB©B B BF IOCOM PPBiBFB%BB)B C8BB`E2B&B`E5B BBjB&BBʙBBF IOCOM PPB!E9BB!E7B B!E8BBBBBE8BE BBAF IOCOM PPE5BAE6BBB[BkBB CCBkBACC6BE+C"A6BF IOCOM PPBBB B B B[HB BmB(BmBBBBBBBÞBBBdBBBF IOCOM PHBB B BBdBBBB|BHBBc CtB[BIBB»BBBBBzBF HIOCOM PB[BBB CBB B BB E B BIBBBBBBBHBB> EB: EB BF DDIOSR PPBBB=BB@BBBBBE BBBB CBE BBGGBGGBGF DDIOSR PPBGGBTB'1BJGBBP-BBBBBBBBBBBB BB`CBCF DDIOSR PPBBaBBBE B!BB"BCB BCZBBC`BBCZBBF DDIOSR PBCBBE B>!BB"BCBBBBBI C~BB CBBCF DDIOSR >PBEBBCZBBC`BBCZBBBCZBB EB B$By$F DDIOSR PPB'B'BBBBdBB B>B BBB B B BB!BBBB BB F DDIOSR PPB BBsBIB B BBB"BCBBCZBB!BE BBBBF DDIOSR PPEBB EBBB CB"B„B*B*B B$BBBy$B'B'BCZF DDIOSR PPBBCB¤B,B BBdBB B> B BB BB$B.BBB BF DDIOSR PPEBB!B BB@B/B¡B B BBB*B:$BBBJBBBҤBB B> B)F DDIOSR PPBB BBHBB¤BB B> B¤BBJBBBBB B{B BB[BaB F DDIOSR PPBB!B BBB!B BB[B BB(BBBBE B&BEB$F DDIOSR PPB`CBBBBBBBBBBBEBBBBYCBB`CF DDIOSR P$BB EBB BBEBBE$,B EBB EBBJBF DDIOSR ,PB`EBBEBBB[$B&BB•B BBdB&BBCBB`F DDIOSR PPEBB BYdB&BB BBDB)BBҙBBC^B CBB9BB[$B&F DDIOSR PPBBBB`EB BBDB)BBCXB9B9B9B9B9B9BBBWBF DDIOSR PPCB[BCB$B&BBBBFBlBB yB B B BB"`CBBB B F DDIOSR PPBB\BIBB BB BBBBBBҪCBBBBEBB CF DDIOSR PPBB CBBdBBB`E B)BCBB`EBB¤BB ZBB`F DDIOSR PPCB CBB`CBB`EBBC^B[$B&BB BB C~BBBF DDIOSR PPBB$B&B$B(BB¬BBBB *BB BœBJB IBIBBBBC*BBF DDIOSR PPCVB[ EBBQ EBC`B„BJBBBCBCfBBCjBBҬF DDIOSR P6B B BBBB ByB BBBBBB[BB BB6BBBBBF DDIOSR PBBBB(F DDIOSR PP: 11/14/79 14:57:46 SDSLNK 3.3.0 DDIOSR PF DDIOSR PPBBBB`EB BBDB)BBCXB9B9B9B9B9B9BBBWBF DDIOSR PPCB[BCB$B&BBBBFBlBB yB B B BB"`CBBB B F DDIOSR PPBB\BIBB BB BBBBBBҪCBBBBEBB CF DDIOSR PPBB CBBdBBB`E B)BCBB`EBB¤BB ZBB`F DDIOSR PPCB CBB`CBB`EBBC^B[$B&BB BB C~BBBF DDIOSR PPBB$B&B$B(BB¬BBBB *BB BœBJB IBIBBBBC*BBF DDIOSR PPCVB[ EBBQ EBC`B„BJBBBCBCfBBCjBBҬF DDIOSR P6B B BBBB ByB BBBBBB[BB BB6@P.SVCIO M$DATA F SVCIO PP5ABEXIT5ABTIOX4ABTLDT5ACTTSK4AQPTRS4AQXT1 6ASGLUNF SVCIO PP4ASPQUE5NATDLYT5 BF$COM4BIDTSK4BM$MPB4BM$MPK4BUFCHKF SVCIO PP4BYTE014BYTE034BYTE044BYTE054BYTE064BYTE074BYTE08F SVCIO PP4BYTE094BYTE0D4BYTE104BYTE124BYTE144BYTE154BYTE1DF SVCIO PP4BYTE204BYTE245uBYTE284BYTE404BYTE805tBYTE885CBDA F SVCIO PP5CBHA 5 CCHRIN5dCDAB 5TCHAB 5nCHGPRI5 CHRINP4CLEANQF SVCIO PP4CLKSW 5RCLSKSB4CMDFLG4COMEND4COMMQ 5COMMQ24COMTHRF SVCIO PP4COMUCB4CP$IDL5CP$II 4DBGN105DD$COM5DD$E015DDSTAKF SVCIO PP5DDT 4DDTBGN4DDTFLG4DDTTSB4DDTWP 4DELQUE5 DEV0 F SVCIO P5 DEV0RD5 DEV1 >5 cDEVEND4DEVLDT4DGNQUE4DM$QUE4DSC F SVCIO >P5 DTTIM 4ENDACT5ENDPGM4ENDRSM5ENDTSK4ETSK 5 EXCTSKF SVCIO PP5 FNDLDT5 dFNDUCB4FSTXFR5 dFUTKIF6'FUTPSM5 FUTPSO4FUTQUEF SVCIO PP5 PFUTSDT5 GETCOM5 GETDAT5 GETPRM5 GTEVNT5 GTEVTL5GTOVYTF SVCIO PP5HOTSK 6ILLOP 5JILLSVC4INSQ 4INSQUE4INVOL 4IOQUCBF SVCIO PP5IOS 6IOS1 6 IOS4 6 IOS5 5 IOSCOM4IOSHBC4IOSMAXF SVCIO PP4IOSSTA4ITSKCR4ITSKMX5,IVBUF 5IVDEF15IVDEF24JMCALTF SVCIO PP4KBTAB 5 $KIFDT 6&KIFSM 5 KIFSO 4KILLQ 4KILTSK5 bKISTRTF SVCIO PP4KTIO 4MAPCMN4MAPQUE4MAXIO 6MAXOP 4MAXST24MAXSTAF SVCIO PP6MMAXSVC4MM$GSA5MM$GTM4MM$RLM4MM$RSA5MM$RTM4MM$RUAF SVCIO P$5MM$SVC5RMMINTE4MMQQ 4MMUMAX$,4MSGQUE6ANONDEV4NUMDECF SVCIO ,P5 aOPADJ 6OPNLUN4OVYEND4OVYQUE4OVYTAB4PDTLST4POP0 F SVCIO PP4POP1 4POP2 4POP3 4POP7 5FPRIVIL4PUSH1 4PUSH2 F SVCIO PP4PUSH3 4PUSH7 5 4PUTDAT5 .RELFDT6RELFSM5 BRELFSO5 RETCOMF SVCIO PP5RSTEAC4RSTRSW5RTVDAT4RWTQUE4SBDQUE4SCB 4SCHDWSF SVCIO PP5SCHED 4SCHRET4SCRASH5SCTAB 4SCWSP 5 SDTIM 5 .SEQFDTF SVCIO PP6SEQFSM5 BSEQFSO4SHDSTK4SLCNT 5bSLCSUS4SLCTIM4SLNFLGF SVCIO PP4SLNMCA4SLPBQC4SLSVC 4SOVYQ 4STUNIT4STUNT44SUSPQIF SVCIO PP5SVCBUF5@SVCCLN5SVCDEF4SVCFND5SVCLEN5lSVCPRC5DSVUBUFF SVCIO PP4SYSLQ 4TDL 5TDLY 4TDUDWS4TLDTSB4TM$DFR5TM$DPRF SVCIO P65RTM$EAS4TM$EXT4TM$INC4TM$QRM50TM$SID5PTM$ST 64TM$TSVF SVCIO P4TMAQUE4TMBID04TMDQUE4TMESLC4TMMLIP4TMOUT 4TMQUE F SVCIO PP4TMSUSP4TMTOLN4TMTSCH4TMWOMO4TOLBET4TRACE 4TRAPRTF SVCIO PP5TSBWRT5UNCDWT5 USEX 5 USEXR 4USVCLN4USVCMX4USVCTBF SVCIO PP4WAITIO4WANYIO4WD00004WD00014WD00024WD00044WD0008F SVCIO PP4WD00204WD00404WD00804WD01004WD02004WD04004WD0800F SVCIO PP4WD10004WD30004WD40004WD80004WDFFFF4XOPRT14XOPRT2F SVCIO PP4XOPRT34YEAR ACECC CCCCC CCCdCCTCNF SVCIO PPCC CnCCCCCC C CJCJC C 4C CJCCEgCCFF SVCIO PPEkCCCCCCC CCC0CRC CCCCCPECC,F SVCIO PHC CJC CJCJCCCJCJCJCJCJCJCJCJCJCJCJCJCJCJB BF HSVCIO PBBBBBBBBBBBB B B BBBBBB B 'B BF SVCIO PPBBBBB B B B B B B B B B BBBCBBB BCF SVCIO PPE0B!BBCBB"BBCE*B-B(BCEZBBBCF SVCIO PPEMBBBCE[BBBCE[B%B BCE2B'B BCF SVCIO PPE2B&B BCE2B(BBCE'B)BBCE'B*BBCF SVCIO PPE'B1BBCE@B3BBCE<B BBCE1B4BBCF SVCIO PPE1B+BBC BB7B BCEB8B BCE3B8B BCF SVCIO PPE3BBBCEBBBBBBBBBB BBB BBF SVCIO PPBB BBBBBB BBBBBBBBBBBBBBBF SVCIO PPB0BB.BEnBPB B!B.B.BBB!B0B0BBBBBBB F SVCIO PE BJ B>B BECBBE BMBEnBBBBBBBBBB>B BAB0B@B.BF SVCIO PPBBB EqB`EBABBB@BB!BhB BJ EB B BB F SVCIO PPE B B`EB BECBBE BBEB B BBBBF SVCIO PPEvC^BDBB@BBBBB`EB@BBBEjBEiB8BF SVCIO PPEcB EyBEqBBBBBBBBBBBBBBBBF SVCIO PPBBBBBbB BBBBBBBB B BECBB BB(BF SVCIO PPB B$B BBBBBBB BBBBBBBBENBBBF SVCIO PPBB`E.B`EB BH`EB BE>BB!BaBBEvC^BF SVCIO PPE.B`E^B!B B BBEECBBE)BE|C^BB BF SVCIO PE.BABBECB8B&BBBBB BBBB BBEB F SVCIO 8PBBB&BB,B`CBBBB BABBBBBdBBBBB&B F SVCIO PPBEwCBBBBBBEB BB EB BEBBB PF SVCIO PPBB EB BJ EB BB BBEBB BBEBB BF SVCIO PPB CB BEB BEBWBBBBBBBBBBBBB?F SVCIO PPB BfCB BBB ELBENBB BBEOBBBBB/BF SVCIO PPBBBB BBBBB(BCBB BB BBB BFBBDBB BF SVCIO PPBBBBͳBBBBB BBBBBBB`EBSBBBBF SVCIO PPBBBBBBBBBB B 'BBBBBBB`EB E_F SVCIO PPB#B ChC4ClBBBBBB}BBBBABBABBB+BPBB}F SVCIO P*BABBBJB BABGBBEB@HBB8BB@*&BBB=BBBBBB7F SVCIO &PBBB4BE`BB`C8B(BBBBB CC4CBBB]BBEF SVCIO PPBBLBB}BB<BBIBAB BBB@BBEB BBBE`BB F SVCIO PPBBB6BBBBBBB`EBE`BBA>B BB BB0F SVCIO PPB9B?B-BBBB CXC4C\BBBBB}BABBBB BBBpFF SVCIO PPBBBBBpIBB B BBBBBBBBBC4B CC4CBBF SVCIO PPBB B@B@HBB BBFBIBABBBB΋B@BBC CB E.B$F SVCIO PPB EBBECB`E(BBDBEvCB`EB EB BF SVCIO PPB`EE&ChCVB BzAVB E_BB E_BB E_BB F SVCIO PPEsBEBE.BEtCzBBBBEOB'BB pB BBF SVCIO PBgB B QB>BEF SVCIO PPB;BCBBFBB BECBB&BB $B.BgBXBBEFCrBF SVCIO PPBfB BBBECBBB BECBBBBTB BABF SVCIO PPEDCBBXB B B B! EBBB̴BIBBBBܴB BBClF SVCIO PPBBЦBB "B BBBE BBEBB!BB RBBBBFBF SVCIO PPCDCBBBLBBCCBCLCB'B B B BCjBB BaBcBeBF SVCIO PBBBKB EBBB٠EBBziB B B EBaBBB)B B BB F SVCIO PB EBB,BEAB BCzB`EB EBB EB BB F SVCIO PPEB BCzB`EBBB΋B'BB BBE"CBBGB!B8BF SVCIO PPBE|CBJBB[BBBIBBEFBBBBB`CXBBBF SVCIO PPBBBـBBBEBBBBBBB BBBBBB BBF SVCIO PPBBBB BBE:B BBBBB B BBBBBBEF SVCIO PPBBB BBBBBBBBB BBBBCBBBBBC dB F SVCIO PPBABBB'BBaC BBC PBElCBFBCDCBBBE0BF SVCIO PPE|CB EB B\B,BB BCxBB4BBBBB,BBB F SVCIO PPCXBC cBBC bBBp C aB,BB $BBBBB,B B$BBDBBF SVCIO PPBB BCdBBBdCXBC^B@BQB+BE/BBElCBFBF SVCIO P T@PCDCBBBCLCBLBBE4CBB٠EBBziB B B BB F SVCIO PPBB BaB)B B B EBB EB B`EB`CB BB,BF SVCIO PPEABB`EB΋B)B BE:BBBBBZ`EB BB`EPF SVCIO PPB΋BB)B BB B BB BKBBB BB BBB4BE:B dBddF SVCIO PPBddBdPBddBdPBPBBiBBBBCBBCBB)B B B B)BBBBF SVCIO PPBBBBBBBBBC\BBBBBBBB)BBB B!B F SVCIO PPEBBB̳BDBBBBܳBBB'B B@BBBBB)B B B F SVCIO PPBiBBBBEBB)BBBB'B B@BBBBB BBBF SVCIO PPBiBBBBCBBCBC\BBBBBBBBE7BE5BF SVCIO PPBE5BE6BB`CBBEDCBBBBB"BE7B[B΋BF SVCIO PEWBB)B BE>:B4B7NBN7BN$B++B+$B$ B +BBB B +BBBF SVCIO >PB{BBECB)BBBBBBB BgB BABBBBBB)F SVCIO PPBBiBBECBEBB'B BBEBBB`ESBgB F SVCIO PPB QBBCCB'B BDBBBɄBBB&BBBBɧB4BBB'B F SVCIO PPB PBBCRBBB΋BB B [BBB B+B BB[ EBB BZF SVCIO PPEB BYEB BBBB(B`CZB΋BB BB B +B B[ EBF SVCIO PPB kBB EBBBEB BEB BBBB(BB BBB F SVCIO PPBBB B 2BgBШBBcBШB?B BBBBBBEBBVBBDF SVCIO PPBBB "BEB&BBDBB TBBBBEBB'B BBBBBF SVCIO PPB BBa&BBBEIB4B QBBRB EB BEHBBE|CF SVCIO P$B`EBBBB'BBGBBBB$,BBBBBBBBBBaBF SVCIO ,PB TBjBHB WB RBBBBBfDBBBDBEGCB5B B B B B F SVCIO PPB BBB BB`EB E_B#B BBBB BB &BBBBBF SVCIO PPBqBBBBfB BECBB BBăBBBBBBBBB`F SVCIO PPECCBKB@BCBElBBCDC B EB BcBBF SVCIO PPE|BB`EBBB@BB`EBCBBЫBB BBBKBB`F SVCIO PPCB΋B΁BcBB B B!BBEDCBBBBHBIBB#BBB BF SVCIO PPB"EBBB{B@BBBB{BBB#BBB`EQBB BBJF SVCIO PPBʁBBZBEXBBBBBBcBBBB#B B#BBBBBBF SVCIO PPB;BƋB BBBvBBBBBBB1B$B B BBBBqBBBF SVCIO P6B BB B BBB BBBBBBBB PBpBB6BBB BBݻF SVCIO PBBBBBfBBBjBBEFBBBB`ETCFCzBAZCfF SVCIO PPBB BE.BAzB EsBEBBEtCBEBB B F SVCIO PPBB=BEBExCBBB"BB(B B `B BE|CBBBB(F SVCIO PPBBRBBBBBB B(BRBBEBBEtCBhBBmBF SVCIO PPBCBElCBmBBCBMBEFCBHBEvCBCBBF SVCIO PPB/EB E_B#B΋BB"BB#BB BtB BBpB BBBBBF SVCIO PPBBBBB#BB BBcBB>BBB#B B#BBBBBBB2F SVCIO PPBƃB BBBBvBB1B"B BBBqBBBBB BB B BBF SVCIO PPB BBBBBBB PBpBBBBB BBBBBBBfBBF SVCIO PHBB`E BBJBB[AB΋BEVBCBBB@BB@BhBBF HSVCIO PBABhBBhBBCB EBB`ERB΋BEUBBkBB BBbF SVCIO PPCNBBB BEuBdBBBB>B qBEBPBB`EQB BBF SVCIO PPB(B'BBBBBBBBBB`EB E.BhBBBBBF SVCIO PPB"BBB BBCZBBB EBB #B BB EBB(B@BF SVCIO PPB BBB.BB0BNB E B B EBB`EB #BB BB BF SVCIO PPBJ EBBBBWBрB BBB B&BBEB-B&EB B BF SVCIO PPEB BBMB#B&CB B BCB B΀BKBB BBECDBF SVCIO PPBJBBCB BBB BB B BBwB BBVBB BBBB`F SVCIO PPE=BCXB[BB/BBBB EaB`E.BBEuBB!BdBF SVCIO PPBBBdBC\BBBBBbBBB`EBBE.BEvCBF SVCIO PEqBJErBEyB`EB"BEoBDBBaBBBBBB F SVCIO JPCBBCBB`BBB B`BBB$ BBBBBBBBE]BF SVCIO PPEB`EKBBhEKBEnBSBBEB0BB!B.BBBBBF SVCIO PPEvCBBEBB EBB E{B E\BB`C4BEBF SVCIO PPExCNBE.BbBBB5B EYB"B EBBBBECBF SVCIO PPE;BBBBwBeB B IBB%B BBBEwCB`EB BY`F SVCIO PPEB B EBBBE.B BEzBBEB)BE!B@B F SVCIO PPE!B`CfBB"B`B"BB.BB B+BEB(B"BBBcBB"F SVCIO PPBDBBBBcBB BDBBB"B BB"BPBBEpB#B EF SVCIO PPBBBBBEvCBBE.B EzBBB EbEcB"B`B F SVCIO PBBBEvCBE%B8E.B8B"BBBBE.B1B"B B dBF SVCIO 8PBѢBBBBB`CBEHBE.BE|CB`CfB BB dBBѢBF SVCIO PPBBȢB&B&B BȢB,B,B BȢBB(BȢBB*BȢBB,B 4BB`F SVCIO PPE,B`CB"BB4BBBBbBBBCBxBB"BLB B(BEF SVCIO PPBB"BJBBBEhBBBBB BؠE B BEBBF SVCIO PPE.B`CfBؠE B B"BPBB BB"BEB BBB؁BB؁B>F SVCIO PPB qBȡEBPBB"BPBbB B )B-BbB4B"B?B B B"BBdBBEF SVCIO PPBBB UBdBBB E~BBBBBBBBBBBBBBF SVCIO PPBBBBB EBBBBBE~BBBBrBòBBB F SVCIO PPE_B#CCACABB EeB BB`CBB &B&BBBBF SVCIO P*BB?B!EBB`EBBBBEBBB CB B,B¤B6F DSRKSR >PB B4BBEBB$B8B6BB8BEB BC BBCBBF DSRKSR PPC^BCBBB!BBBBBwBBEB &B (BBCBB BF DSRKSR PPBCB@B B BBEClB B¤B0008 > R2 = STATUS FLG/INTERRUPT-1 >P DATA >800A R3 = DEVICE FLAGS & TYPE PP DATA $+68 R4 = DSR TMP STORAGE PP DATA 0 R5 = DSR SCRCH/CONT I/O FLG PP DATA NONSOL R6 = PRINTER SPURIOUS INT PP DATA 0 R7 = DSR SCRATCH PP DATA 0,0,0,0 R8-R11 = DSR SCRATCH PP DATA >0140 R12 = CRU/TILINE ADDRESS PP DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST PP*** DSR REGISTER EXTENTION *** P$ DATA $-32 POINTE$,R TO DSR REGISTERS ,P DATA DIGDSR LINE PRINTER DSR ADDRESS PP DATA 0 DX10 ERROR CODE PP TEXT 'D32I' DEVICE ACCESS NAME PP DATA 0 SYSTEM LOG AREA PP DATA 0 SYSTEM LOG AREA PP DATA $-$ DEVICE BUFFER ADDRESS PP DATA >0052 LENGTH OF DEVICE BUFFER PP DATA INT32I LINE PRINTER INTERRUPT ENTRY PP DATA 0,0 UCB QUEUE HEADER P6 DATA 0 6 P DATA 0 PP DATA >FF00 STATE (NONE) / QUEUE COUNT PP DATA >0258 TIME OUT COUNT PP DATA >0258 TIME OUT COUNT PP DATA 0 RESERVED FOR FUTURE USE P PP DATA $-$ DEVICE BUFFER ADDRESS PP DATA >0052 LENGTH OF DEVICE BUFFER PP DATA INT32I LINE PRINTER INTERRUPT ENTRY PP DATA 0,0 UCB QUEUE HEADER P6 DATA 0 6@PDSR911 M$DATA F DSR911 PP4BYTE024BYTE064BYTE154BYTE204BYTE404BYTE804BYTEFFF DSR911 PP4BZYCHK4CMODE 5CRT9114ENDRCD4GETC 4JMSTAT5KBI911F DSR911 PP4KEYFUN4PUTCBF5TDI9114WD00024WD00044WD2000ACC BB F DSR911 PPBB`CBaB B EB.BBB +BBB B,B yBB!BB.B$B F DSR911 PPB BB B6B2CzB BB2C|B6B4B B4BBB2BB,B BB¡BF DSR911 PPBCjB6B2BBB:B BB BB BB,B +BB CB:B$B:B,BF DSR911 PPB,B B ;BB B CBE BB B BBB B-BBBBB`CF DSR911 PPBCBBB$BBBBBCBCBB`EBB¡BBƠCvB$F DSR911 PPB4CzBBƠCxBʤBBB`ChBaBB3B¡BB$B:BBBzBBBF DSR911 PBB,B KBBB >BBCBBB BBCBCBBBBBB F DSR911 >PB BBB BBjBBBBB@B2BB BBB BBBBB {B F DSR911 PPB6B2BABaB B!BBeBBB`CB BB,B {BBBB BB B F DSR911 PPB7B BB BBB BCBBaBBB¡BBBB,B [BBBB:F DSR911 PPBRB2BB B BBB$B B BB B@B^B BB(B BB EBF DSR911 PPB"B EBBNB BBB BBB BBCBY EB BB B F DSR911 PPB BBB BBBEBB!BBB BGBBBB`EBB BF DSR911 PPB B EBBB4$BBB4$BBBIBBBBB +BBdB/BBF DSR911 PPB6B>`CBB҉BJBBB¤B2B>`CBB҉BJBBB BBE BF DSR911 PPBaBBIBBB¡BBBB,B [BBBB6B^B B BBBBB,F DSR911 P$B BB¡BBCjB BBB$B:B$,BB +BBB¤B2BaBB=BBdF DSR911 ,PB4BJBB‰B B0BB,B {BBBB,B kBBCJBB4BB6B B2F DSR911 PPBB¤B0B B0B!B¤B0BB,B ;B B B2B +BBB6BBB B BF DSR911 PPB ;BB2BB B6B BBB BBEBB B`CB@BE CCBF DSR911 PPBdB,B %B B C~B{BBBBB/BI EB,BBIBB BBB,F DSR911 PPB KBBeBBBBBBBBB BB4BBBlBBBiBEB yBiF DSR911 PPCBBBB6B B0BBB.B BEBBBB,B BB2BBF DSR911 PPBdB4BBCBBEBB BBEBB@BB,B KBB2 BBBaBBaF DSR911 PPBBEBBB BdB,B 9BBC`CZB`C(BBBCJBB¤B2B B¤F DSR911 PPB2BBB BJBbdB0BBB2$B.BB BBBB2B BBBF DSR911 P6EBB$B0BB$B0BB,B kBB`C(B BB6BB6/BB,B GB1F DSR911 PBBBB0BB,B kBBB¤B2BaB$B2BB¡BBBBBB BBF DSR911 PPB6BA@B BB.BBEBB`CuBBQ`CBB,B ;BBC`CZBޅF DSR911 PPBBBBBB2B6B$B B BB BABdBB$B/CtBBBB +BF DSR911 PPBCB)BBIB B`ChB BbBBB2BB`CBB B B BBB$F DSR911 PPB4CzBB BB>GBJB:`CBrBHBBB> CBB2B[BBB6B=CF DSR911 PPB9CBaBB %BBB0B2B BBBpB2BB[CCCCCtCdCF DSR911 PPC^CCChCCChCBBB2B6BBBB B$B:B2BB BB F DSR911 PPBGBB B[BdB.B BBBvBB6 B`CuBB`EBIBB EF DSR911 PPBjBB2BB$B:B B@B2B6BBBBB[B2B0BBdB0BbdB2BF DSR911 PHB2$B.B BB BB[B B0BJBB6 B`CuBB`EB B.BB F HDSR911 PEB=BB4B[B B0B7B$B0BdB,B BBB)BPBBB BB F DSR911 PPBdB,BBBBB2BB B B6 B`CuBB`EB B.BB$B:BF DSR911 PPBB[B B6 B B@B2 BB BBBB2BB B2B!BB[B`CBBF DSR911 PPB6B=CBB9CBBB2BB(B$B:BB B@B2BB2B6BB BF DSR911 PPB2B6BBBB(BBBdB2B$B2BBBB2B2B2BB[BdBBF DSR911 PPB9B BBHB BEBBEBBBBB EB,BB[BHB BEBBEF DSR911 PPBBBBBB[B$BBBBCB[BBBBBBBB5BBF DSR911 PPBBjBBBBB`EBB,BBB4)BBB4)BB,BB BBF DSR911 PPBGBBBB%BE B B!C6BBBBBgBB BBBBBF DSR911 PPBBBJBBҩCBE C,BBBBBBBB`CBBBBF DSR911 PBBJBBEC,BBBBBBBBBBBBBBBBF DSR911 JPBBBBOB OBBBBBBBBBBBBBBBF DSR911 PP: 11/14/79 14:54:50 SDSLNK 3.3.0 DSR911 PF DSR911 PPB6B=CBB9CBBB2BB(B$B:BB B@B2BB2B6BB BF DSR911 PPB2B6BBBB(BBBdB2B$B2BBBB2B2B2BB[BdBBF DSR911 PPB9B BBHB BEBBEBBBBB EB,BB[BHB BEBBEF DSR911 PPBBBBBB[B$BBBBCB[BBBBBBBB5BBF DSR911 PPBBjBBBBB`EBB,BBB4)BBB4)BB,BB BBF DSR911 PPBGBBBB%BE B B!C6BBBBBgBB BBBBBF DSR911 PPBBBJBBҩCBE C,BBBBBBBB`CBBBBF DSR911 PBB@PDSR820 M$DATA F DSR820 PP4ASCCK24BYTE024BYTE044BYTE204BYTE404BYTE804BYTEFFF DSR820 PP4BZYCHK4CMODE 4DIAL2 4DIALUP4ENDRCD4GETC 5HAN820F DSR820 PP5IDL8205INT8204JMSTAT4KEYFUN4PUTCBF5VRENTER4SETWPSF DSR820 PP4WD00024WD00044WD04004WDFFFFAC CBBBEB!BB,F DSR820 PPBB.B!BB CBB!B B.B CBE B BB BB>>B B[BF DSR820 PPBFB B BB`CBBB$BBB B BC^BEB-BB B BC^F DSR820 PPB B`EBB!BB EB$BBdBB$B,B@BB CBBdB.F DSR820 PPB B$B0BBBCB BI CB0BE B`CB EBBB BF DSR820 PPB CB2B CBBCBB$B2BBB B CBB`C~B CB0BF DSR820 PBBBHBBB>CCB$B0BB$B.B CBBC^B$B.B CB F DSR820 >PBIBBB BBBBBHBBB EBBBBjBBBB CF DSR820 PPB0BBB!BBBwBC^BBB$B,B CBB$B0BBBCBI F DSR820 PPCB0B BaB B!BBB`C~BI CB0BBB!BB BBwBB BF DSR820 PPB B BC^BBB!BB (BBaB B!BB$B0B B BCB BI CF DSR820 PPB0BB`CBBI CB0BBBBBB$B0BBBCB BI CB0BaF DSR820 PPBBBB$B.BPBB$B.B B BCCB C2BBI EB.BNBF DSR820 PPCC.BEBDB \B XB sB rB dBpBoBhBmBlBEBB EBB$F DSR820 PPB.B0BBBBB;B B B@B BBBBBBBB EB.BF DSR820 PPB@B BBBBBBBBaBBBBBBBBB$B.B@BB`F DSR820 P$EB$B0BBC^BB!BBBB$,BBC^B B BBB B BF DSR820 ,PC^B B BC^B`CB CBB CBBaBBB`CBB B BBF DSR820 PPC^B B B CBBB EB,B C~BB CB$B.B `BB[B$B-B pF DSR820 PPB BiBB¤BBډBB$B.B PBB B BC^B B BC^B`C~BKBF DSR820 PPBB BBBBIB B B +BB EBBB`C>BB +BBY EF DSR820 PPBBB`C@BBCB¤B0B"CBB¤B.B"CB B1BBBBBF DSR820 PPBBBBUB2 BBKB B$B0BBBBBB BBE CCBeF DSR820 PPBBUBUB BBB BB B B B B BB EBBB BB BF DSR820 PPB$B0BB BBCBBBEBBGBIBB EB,BB BF DSR820 PPBB EBB4$BB`C~B$BBB BVB B$B0BB BBE F DSR820 P6CB BBB¤BBBEBBB C@B BYEF DSR820 PPBB BgBB 9BBjBBECBB*BB CLB BBEBF DSR820 PPBBOBBB B@BBBBCCVBBBBBBBBBBBF DSR820 PPBBBBBBBBF DSR820 PH: 11/14/79 14:54:36 SDSLNK 3.3.0 HDSR820 F DSR820 PBB B&B B@BBB2BCBbBBB$B2BB CB0BCBҤB F DSR820 PPB BB B B$B0BB BBBBBB[BY EB BBbBBCF DSR820 PPBB BCBB BZBB6 B BB\BBB0B!CBLBJBJBB!F DSR820 PPEBB CIBB CJBB CKB BҠCBEC8B‰BIBBFBF DSR820 PPBBEB B!CB CBBBB BBBJBB BBgBB BF DSR820 PPB CBB CBBJBBB C>BBEBBB C@B BYEF DSR820 PPBB BgBB 9BBjBBECBB*BB CLB BBEBF DSR820 PPBBOBBB B@BBBBCCVBBBBBBBBBBBF DSR820 PPBBBBBBBBF DSR820 PH: 11/14/79 14:54:36 SDSLNK 3.3.0 H@PdSYSLOG M$DATA F SYSLOG PP4BYTEFF4MM$GSA4MM$RSA4PDTLST4POP5 4PUSH5 4SLPBQCF SYSLOG PP5SLSVC 5^SYSLQ 4WD00004WD00014XOPRT1ABKBBB3BDB B!F SYSLOG PPB BECBBȠEBBȠC\BBȠC\B B؄B B BB B BB3F SYSLOG PPBBBECFB`E BBBBEBBBBB@BBB B΋BF SYSLOG PPEBgBBB`EB'B(BB`CHB'B(EBB`CBgB(B BkF SYSLOG PPBgB BABBC[B BCB!B&BECHBȠEBBȧB*BBȧB,F SYSLOG PPB B؄B BبBB BبBBBhBBBءB BBBؠEBBجBBF SYSLOG PPBgB B BBإBBB`CZBBgB(B BBؠCMBBICNB(BBؠCLF SYSLOG PPBBBؠCLBBؠCZBBCB qB؁BB؁BB BB$B.BB BBBF SYSLOG PBBB4BBBb>BB BB$BbBB B&B4BBB0BB(BF SYSLOG >PECHBȠCTBBȧB*BBȧB,B B؄B BبBB BبBBBhBBF SYSLOG PPBءB BBBؠEBBجBBB'BFBICPB(BBBB BB4BF SYSLOG PPBB7BBBECHBȠCRBBȠCVBBȠCXB BȧB*B BȧB,BF SYSLOG PPBȥBBB`CZBBȥBBB`CZBBȥBBB`CZBBgB BABBF SYSLOG PPBBBȧBBBCZBBBȠCZBByB(B(BEC@BBBBF SYSLOG PPEBB`EBSFBBBB BSTBATBBBBBF SYSLOG PP: 11/14/79 15:01:33 SDSLNK 3.3.0 SYSLOG P BS N SEQ YES::INSTLSCI *865 11/12/7911:54:48 BS N SEQ YES:8LNKLNK * 66 11/10/7920:48:59 BS N SEQ YES86MENU *526 11/12/7912:07:49 BS N SEQ YES6@& TITL 'D$DATA - DX10 DATA BASE'  &  PAGE "  IDT'D$DATA' * TITLE:D$DATA * DX10 DATA BASE  * REVISION: 09/09/79 *  CREATED BY GEN990  *  SYSTEM NAME = SKI1 , * COMPUTER: 990/10 - MACRO ASSEMBLER  ,* ABSTRACT: " 6* THIS IS THE DATA BASE FOR DX10. IT CONTAINS  62* NUMEROUS SYSTEM STRUCTURES, POINTERS AND 28* VALUES DEPENDENT ON THE SYSTEM CONFIGURATION.  8* ' 0* DEFINED STUCTURES IN THIS MODULE ARE:  0*  1) TSB'S AND WORK AREAS FOR EACH DISK  **  2) KSB'S FOR STATION TERMINALS *$*  3) PDT'S FOR EACH DEVICE $&*  4) PSB FOR DX10 PROCEDURE  &&*  5) USER SUPPLIED SVC TABLE &.*  6) INITIAL COPY OF INTERRUPT TRAPS .* '  * CALLING SEQUENCE:  *  INTERRUPT OR XOP CALL   PAGE " *** DXDATA DEF'S  6 DEFDXDB,SLICE,UPS,STUNIT,STUNT4,DSTUNT,MAXIO  6 DEFTM$TSV,TM$SLC  . DEFTABSIZ,UAHEAD,UAHADD,UABADD,UATLEN .( DEFSATLEN,SAHIAD,SAHEAD,SABADD  (*@ DEFMEMSIZ,MEMSW ( DEFENDDXL,ENDLIM,ENDADD,BASADJ  (* DEFTMTOL,TMTOLN,TMTOLO,TOLBET,TDL *, DEFETSK,TSKLST,TSKSTR,LDTLST,PSBSTR ,. DEFSLCNT,SLCTIM,TM$DFR,TMESLC,NUMDEC  .( DEFRIDMAP,FIDMAP,RSTRSW,RSTRID  (( DEFPF$FCB,PF1LDT,PF2LDT,PF3LDT  (( DEFRF$FCB,RF$LDT,OF$FCB,OF$LDT  (& DEF BM$SZ,BM$SIZ,BM$CNT,BM$LMT & DEFBIDTSB,FMPTSB    DEF USVCTB,USVCMX,USVCLN  DEF KBTAB,MAXSTA,MAXST2   DEF SYSTAB,PSBLST,PDTLST  DEF DUMMY,TTY,LP,CS,CR,CRT  DEFDSC,COM,MT . DEFAQPTRS,ENDSTB,OADPTR,BPT,XY,DIOPDT .. DEFSLNLUN,SLNLID,SLNMCA,SLNFLG,SLNQUE .. DEFITSKMX,ITSKCR,IOSMAX,IOSSTA,IOSHBC ., DEFCURMAP,MAPFK,MAPSHD,MAPMR,MAPCMN ,( DEFFMQSER,FMTTSB,MAPLST,CTRYVL  (( DEFSCIBMX,SCIFMX,DXSTRT,CMEMSZ  (6 DEFKBST01,PSST01,MPST01,KBST02,PSST02,MPST02  66 DEFPDLP01,PSLP01,MPLP01,PDLP02,PSLP02,MPLP02  66 DEFWPDS01,PSDS01,PSDS02,PSDS03,PSDS04,MPDS01  66 DEFMPDS02,MPDS03,MPDS04,WPMT01,PSMT01,MPMT01  6,C:. DEFWPDS05,PSDS05,PSDS06,MPDS05,MPDS06 .&* EXTERNALLY DEFINED VARIABLES  & REF D$STRT,ITSB,DDTTSB & REF DSCMGR,DM$QUE,FM$PC,FM$ABD &( REFBIDDER,BIDQUE,OVYTAB,THEEND  (4 REFKBIDLE,ASRHAN,CASHAN,GOREN,ASREXT,KBI733 4( REFHAN820,RENTER,IDL820,INT820  (6 REFADSHAN,ADSEXT,ADSREN,ADIDLE,KBIADS,ADSBUF  6$ REF DRTWP,DIODSR,DTBSY,DINT  $ REF LPSPUR,LPHAN,LPINT $ REF CRSPUR,CRHAN,CRREN,CRINT $  REF TDI911,CRT911,KBI911  REF TDI913,CRT913,KBI913 ,C$@ REF MTHAN,MTINT,TRTWP  ( REFFPYDSR,FPYINT,FPYSPR,FPYDCD  (  REF COMDSR,COMINT,PDTSTK & REF TRAPRT,ILLSVC,CLKWSP,CLKPC &" REF IIE,IIWSP,SCWSP,SVCPRC "4 REFPRUPWP,PWRUP,PWRWSP,PWRDN,SCRASH,PFRSIB  4 *  REFS DEFINED TO SYSGEN  PAGE " * ' DXDB EQU$ ! * ' 0*  SYSTEM EQUATES OF ONE SORT OR ANOTHER 0* ' 4SLICEF EQU>0001  TIME SLICING ENABLED FLAG 4HTSENT EQU>003C  TASK SENTINAL VALUE (=0 => SENTINAL DISABLED) H UPS  E 4QU>0078  TICKS PER SECOND (= LINE FREQ*2)  4BSTUNIT EQU>0006  SYSTEM TIME UNIT (= # OF TICS IN 50 MS) B8SLICE EQU>0001*STUNIT TIME SLICE VALUE IN TICS  86STUNT4 EQUSTUNIT*4 USED BY EXTEND TIME SLICE 68TABSIZ EQU>3228  SYSTEM TABLE AREA = 2K WORDS  8(CTRYVL EQU>0000  COUNTRY CODE  (* ' &DXSTRT EQU$  START OF D$DATA &6ENTRY DATA $  DX10 ENTRY POINT (LOAD AT >A0)  62 DATA SYSPTS POINTER TO MISC. SYSTEM INFO  2*MAXIO BYTE 5,0  MAX INITIATE I/O COUN*T  2 DATA OVYTAB LOCATION OF THE OVERLAY TABLE  2* DATA THEEND LENGTH OF THE SYSTEM  *$ DATA MAPLST MAP FILE TABLE  $,KIF  DATA >0000  NEW/OLD KIF FLAG  ,D DATA 0,0,0,0,0  >>RESERVED FOR MEM/DSC UTILIZATION STATS<<  D" TEXT 'SKI1 ' SYSTEM NAME "8 RORG $-DXDB+31/32*32+DXDB GETS TO BEET BOUNDARY  8UAHEAD EQU$ ! * DATA 0  MEMORY LIST HEADER, LEN=0 ** DATA $-$  PTR TO FIRST AVAIL BOB  *6UABADD DATA $-$  STARTING ADDRESS OF USER AREA  6 UATLEN EQU $ ! , DATA $-$  TOTAL LENGTH OF USER AREA ,$*  SYSTEM TABLE AREA HEADER  $SAHEAD EQU$ ! " DATA 0  HEADER LENGTH = 0 "2 DATA SYSTAB POINTER TO FIRST AVAIL BLOCK  2( SABADD DATA SYSTAB START OF AREA (. SATLEN DATA TABSIZ TOTAL SIZE OF AREA  ..SAHIAD DATA 0  HIGHEST EVER ALLOCATION .0 DATA 0 (NOT USED) CURRENT LOW ALLOCATION  0$*  TIME-ORDERED LIST HEADER  $8 RORG $-DXDB+31/32*32+DXDB GETS TO BEET BOUNDARY  8TMTOL EQU$ !  DATA 0  LENGTH OF OVERHEAD  ( DATA 0  ** UNUSED IN HEADER **  (:TMTOLN DATA $-$  FORWARD LINK (POINTER TO NEWEST)  :6TMTOLO DATA $-$  BACK LINK (POINTER TO OLDEST)  6 DATA -1 TYPE = HEADER .TOLBET DATA $-$  BEET ADDRESS OF TMTOL .SYSPTS EQU$ ! 6UAHADD DATA $-$  BIAS REG VALUE FOR LIST HEAD  6$MEMSIZ DATA $-$  MEMORY SIZE $:* SET THE FOLLOWING WORD NON-ZERO IF YOU DESIRE TO  :4*  BYPASS AUTO-DETERMINATION OF MEMORY SIZE  4MEMSW DATA 0 ! ENDLIM DATA $-$  L(IMIT REG VALUE - 1 BEET PAST DX10  (6ENDDXL DATA $-$  LIMIT REG VALUE - END OF DX10  6<ENDADD DATA $-$  VIRTUAL ADDRESS - 1 BEET PAST DX10  <4BASADJ DATA $-$  BIAS REGISTER ADJUST VALUE  48 DSTUNT DATA STUNIT CLOCK TICKS/SYSTEM TIME UNIT  8&TDL  DATA 0  TIME DELAY LIST &&ETSK DATA 0  EXECUTING TASK  &*TSKLST DATA ITSB START OF TSB LIST *: SLCNT DATA SLICE  USED TO INITIALIZE SLICE COUNT.  :*SLCTIM DATA 0  USED TO TIME SLICE  *$TM$DFR DATA 0  TIME SLICE EXPIRE$ D FLAG 0NUMDEC DATA 0  USED TO CNT TD DECREMENTS 06RIDMAP BSS32 RUN-TIME TASK ID ALLOCATION MAP  6(FIDMAP BSS32 FIXED TASK ID MAP (0TMESLC DATA 0  TIME SLICE EXTENDED FLAG  0&RSTRSW DATA 0  RESTART SWITCH  &. TM$TSV DATA TSENT  TASK SENTINAL VALUE ., TM$SLC DATA SLICEF TIME SLICING FLAG ,* RSTRID BYTE >0000  RESTART TASK ID *  EVEN " 0PF$FCB DATA $-$  SYSTEM PROGRAM FILE FCB 08PF1LDT DATA $-$  LUNO D LDT (ASSIGNED TO PF$FCB)  8PF2LDT DATA $-$ & LUNO B LDT (ASSIGNED TO PF$FCB)  &8PF3LDT DATA $-$  LUNO F LDT (ASSIGNED TO PF$FCB)  8&RF$FCB DATA $-$  ROLL FILE FCB &8RF$LDT DATA $-$  LUNO E LDT (ASSIGNED TO RF$FCB)  80OF$FCB DATA $-$  SYSTEM OVERLAY FILE FCB 08OF$LDT DATA $-$  LUNO A LDT (ASSIGNED TO OF$FCB)  8$*  BUFFER MANAGEMENT VALUES  $4BM$SZ EQU>0400  FIXED BUFFER SIZE (BYTES) 4*BM$SIZ EQUBM$SZ+31/32+1  (BEETS) *.BM$CNT DATA 1  COUNT OF BUFFERS ON TOL .0BM$LMT DATA 30 MAX # BUFFERS ALLOWED ON TOL 0  * ' $*  ACTIVE QUEUE INFORMATION  $* ' AQPTRS EQU$ ! $ DATA 0  ADDRESS OF NEW TSB  $$ DATA 0  ADDRESS OF OLD TSB  $. DATA 0  TSB ADDRESS FOR QUEUE SERVER  .$ DATA >C000  FLAGS/SERVER ID $$ DATA >FF00  TSB STATE/COUNT $* ' D*  USER SVC CALLS ***************************************** D* ' USVCTB EQU$ ! USVCMX EQU$-USVCTB-2/2 @*  USER SVC LENGTH TABLE ******************************  @USVCLN EQU$ !  E VEN "  PAGE " B*===========================================================  BB*====  CURRENT MAP FILE POINTER AND SYSTEM MAP FILES ===  BB*===========================================================  B2 CURMAP DATA MAPSHD CURRENT MAP FILE POINTER  20MAPLST EQU$  START OF SYSTEM MAP FILES  0* '  REFSKI11  ( DATA SKI11  FILE MANAGER AND KIF ( DATA 1 SEGMENT  ( MAPFK DATA 0,0,0,0,0,0 MAP FILE (* '  REFSKI12   DATA SKI12 MEMORY RESIDENT TASKS   DATA 2 SEGMENT  ( MAPMR DATA 0,0,0,0,0,0 MAP FILE (* '  REFSKI13  ( DATA SKI13  SYSTEM COMMON AREA  ( DATA 2 SEGMENT  ( MAPCMN DATA 0,0,0,0,0,0 MAP FILE (* '  REFSKI14    DATA SKI14  I/O COMMON   DATA 2 SEGMENT  ( MAPIOC DATA 0,0,0,0,0,0 MAP FILE (* '  REFSKI15    DATA SKI15  SVC AND I/O  DATA 3 SEGMENT  ,MAPSHD DATA MAPIOC,0,0,0,0,0MAP FILE ,* '  MPDS01 EQU $+4 DEVICE EQUATE  &MPDS02 EQU$+4 DEVICE EQUATE  &&MPDS03 EQU$+4 DEVICE EQUATE  &&MPDS04 EQU$+4 DEVICE EQUATE  &&MPDS05 EQU$+4 DEVICE EQUATE  &&MPDS06 EQU$+4 DEVICE EQUATE  & REFSKI16  $ DATA SKI16  DEVICE MAP FILE $ DATA 3 SEGMENT  & DATA MAPIOC,0,0,0,0,0MAP FILE &* ' &MPLP01 EQU$+4 DEVICE EQUATE  &&MPLP02 EQU$+4 DEVICE EQUATE  & REFSKI17  $ DATA SKI17  DEVICE MAP FILE $ DATA 3 SEGMENT  @& DATA MAPIOC,0,0,0,0,0MAP FILE &* ' &MPST01 EQU$+4 DEVICE EQUATE  &&MPST02 EQU$+4 DEVICE EQUATE  & REFSKI1A  $ DATA SKI1A  DEVICE MAP FILE $ DATA 3 SEGMENT  & DATA MAPIOC,0,0,0,0,0MAP FILE &* ' &MPMT01 EQU$+4 DEVICE EQUATE  & REFSKI1C  $ DATA SKI1C  DEVICE MAP FILE $ DATA 3 SEGMENT  & DATA MAPIOC,0,0,0,0,0MAP FILE &* ' & DATA 0  ---- END OF TABLE ---  &  PAGE " STKLEN EQU110*2 LENGTH OF STACK AREA ,WRKLEN EQU128  LENGTH OF WORK AREA  ,4 FMTTSB DATA FMTTAB ANCHOR TO TABLE OF FM TSBS  4FMTTAB EQU$ !  DATA FM01   DATA FM02   DATA 0 END OF TABLE ,* FILE MANAGEMENT REQUEST QUEUE HEADER ,FMQSER EQU$ !  DATA 0,0 QUEUE ANCHOR  DATA FMPTSBSERVER TSB   DATA 0 FLAGS/SERVER ID  ( DATA >FF00  STATE / QUEUE COUNT  (FMPTSB EQU $" @**********************************************************  @ **** TSB FOR FILE MANA*GEMENT TASK ************************  *@**********************************************************  @FM01 EQU$ !  DATA 0 QUEUEING LINK   DATA 0,0,0 WP,PC,ST  BYTE 0 PRIORITY 0 BYTE >24 STATE (WAITING FOR QUEUE ACT)  0 DATA >F000 FLAGS    DATA $+>5A TASK ADDRESS * DATA 0  INSTALLED ID / RUN TIME ID  *$ DATA $+>22 MAP FILE ADDRESS $$ DATA FEFM01LINK TO NEXT TSB $ DATA 0 KSB ADDRESS    DATA 0 SECONDARY FLAGS   TEXT 'FM0 &1'BID PARAMATERS(TASK NAME)  &  DATA 0 ALT TSB ADDRESS   BYTE 0 CRT CHARACTER    BYTE 0 TILINE I/O COUNT  DATA 0,0 PSB ADDRESSES   DATA 0 PROGRAM FILE FCB & DATA 0,0,0,0 DIAGNOSTIC INFO  &$ DATA 0,0  TIME DELAY COUNTER $, DATA MAPFK,0,0,0,0,0 SAVED MAP FILE ,( BYTE 0,0  FIXED PRI, TASK REG #  (( DATA 0,0,0,0  FAMILY TREE LINKS  (& DATA 0  OVERLAY TABLE ADDRESS  &" DATA 0  OVERLAY RETURN PC  "& DATA 0  ADDRESS OF OVERLAY AREA & * DATA 0  # OF TIME SLICES REMAINING  * DATA 0 TIME SUSPEND  DATA 0 GETMEM SCRATCH $ DATA 0,0,0,0 ROLL OUT INFO  $, DATA >8000  LOCAL LDT FLAGS (HEADER)  ,* DATA LDTLST LOCAL LDT LIST POINTER *$ BYTE 0  # EOR'S OUTSTANDING  $* BYTE 0  # OF I/O CALLS OUTSTANDING  *0 DATA FMQSERQUEUE HEADER SERVED BY TASK  0" DATA 0  TASK SENTRY COUNT  "@**********************************************************  @:*** TASK AREA FOR FILE MANAGEMENT TASK *****************:**  @**********************************************************  @ * TASK DEFINITION BLOCK  8 DATA $+6,FM$PC,FM$ABD INITIAL WP,PC & END ACTION  8* WORKSPACE "  BSS10*2R0-R9  & DATA $+12 R10 = STACK POINTER  & BSS5*2 R11 - R14   BSSSTKLENSTACK AREA  TEXT 'EOS'    EVEN " FEFM01 EQU$ !   PAGE " @**********************************************************  @@**** TSB FOR FILE MANAGEMENT TASK ************************  @ ******** 8**************************************************  8FM02 EQU$ !  DATA 0 QUEUEING LINK   DATA 0,0,0 WP,PC,ST  BYTE 0 PRIORITY 0 BYTE >24 STATE (WAITING FOR QUEUE ACT)  0 DATA >F000 FLAGS    DATA $+>5A TASK ADDRESS * DATA 0  INSTALLED ID / RUN TIME ID  *$ DATA $+>22 MAP FILE ADDRESS $$ DATA FEFM02LINK TO NEXT TSB $ DATA 0 KSB ADDRESS    DATA 0 SECONDARY FLAGS  0 TEXT 'FM02'BID PARAMATERS(TASK NAME)  0 DATA 0 ALT TSB ADDRESS   BYTE 0 CRT CHARACTER    BYTE 0 TILINE I/O COUNT  DATA 0,0 PSB ADDRESSES   DATA 0 PROGRAM FILE FCB & DATA 0,0,0,0 DIAGNOSTIC INFO  &$ DATA 0,0  TIME DELAY COUNTER $, DATA MAPFK,0,0,0,0,0 SAVED MAP FILE ,( BYTE 0,0  FIXED PRI, TASK REG #  (( DATA 0,0,0,0  FAMILY TREE LINKS  (& DATA 0  OVERLAY TABLE ADDRESS  &" DATA 0  OVERLAY RETURN PC  "( DATA 0  ADDRESS OF OVERLAY AREA  (* DATA 0  # OF TIME SLICES REMAINING  * DATA 0 TIME SUSPEND  DATA 0 GETMEM SCRATCH $ DATA 0,0,0,0 ROLL OUT INFO  $, DATA >8000  LOCAL LDT FLAGS (HEADER)  ,* DATA LDTLST LOCAL LDT LIST POINTER *$ BYTE 0  # EOR'S OUTSTANDING  $* BYTE 0  # OF I/O CALLS OUTSTANDING  *0 DATA FMQSERQUEUE HEADER SERVED BY TASK  0" DATA 0  TASK SENTRY COUNT  "@**********************************************************  @@*** TASK AREA FOR FILE MANAGEMENT TASK *******************  @,******************************************,****************   * TASK DEFINITION BLOCK  8 DATA $+6,FM$PC,FM$ABD INITIAL WP,PC & END ACTION  8* WORKSPACE "  BSS10*2R0-R9  & DATA $+12 R10 = STACK POINTER  & BSS5*2 R11 - R14   BSSSTKLENSTACK AREA  TEXT 'EOS'    EVEN " FEFM02 EQU$ !   PAGE "  * TSB FOR BID TASK TASK BIDTSB EQU$ !  DATA 0  QUEUEING LINK  DATA 0  WP   DATA 0  PC   DATA 0  ST   BYTE 0  PRIORITY   BYT"E >24  STATE (=TERMINATED) " DATA >F000  FLAGS 8 DATA BIDDER TASK ADDRESS (OF TEST TASK ** T1A)  8$ DATA 0  INSTALLED ID/RUN ID $& DATA $+>22  MAP FILE ADDRESS  &0TSKSTR EQU$  START OF NON-LINKED TSB'S 0" DATA 0  LINK TO NEXT TSB  " DATA 0  KSB ADDRESS   DATA 0  SECONDARY FLAGS $ TEXT 'TBID' BIDT PARAMETERS $& DATA 0  ALTERNATE TSB ADDRESS &" BYTE 0  913/911 CHARACTER "" BYTE 0  TILINE I/O COUNT  " DATA 0,0  PSB ADDRESSES " DATA 0  PROGRAM FILE FCB  "8 DATA 0,0,0,0  DIAGNOSTIC ERROR CODE & WP,PC,ST  8& DATA 0,0  TIME DELAY COUNTER  &. DATA MAPMR,0,0,0,0,0  SAVED MAP FILE  .( BYTE 0,0  FIXED PRI, TASK REG # (( DATA 0,0,0,0  FAMILY TREE LINKS (& DATA 0  OVERLAY TABLE ADDRESS &" DATA 0  OVERLAY RETURN PC "( DATA 0  ADDRESS OF OVERLAY AREA (( DATA 0  # TIME SLICES REMAINING (  DATA 0  TIME SUSPENDED   DATA 0  GETMEM SCRATCH   DATA 0,0,0,0  ROLL-OUT INFO 2 DATA >8000  LOCAL LDT LIST FLAGS (HEADER)  2, DATA LDTLST LOCAL LDT LIST POINTER  ,$ BYTE 0  # EOR'S OUTSTANDING $( BYTE 0  # I/O CALLS OUTSTANDING (0 DATA BIDQUE QUEUE HEADER SERVED BY TASK 0" DATA 0  TASK SENTRY COUNT "  PAGE " &*  KEYBOARD STATUS BLOCK TABLE &KBTAB EQU$-2  ( DATA KBST01 STATION KSB POINTER  (( DATA KBST02 STATION KSB POINTER  (MAXSTA EQU$-KBTAB-2/2  MAXST2 EQU$-KBTAB-2   DATA 0  END OF TABLE INDI CATOR  **  EQUATED VALUES FOR DEVICE TYPES *(DUMMY EQU0  DUMMY DEVICE TYPE (4TTY  EQU1  KEYBOARD/PRINTER DEVICE TYPE  4.LP EQU2  LINE PRINTER DEVICE TYPE  .*CS EQU3  CASSETTE DEVICE TYPE  *,CR EQU4  CARD READED DEVICE TYPE ,.CRT  EQU5  CRT SCREEN DEVICE TYPE  ."DSC  EQU6  DISK DEVICE "*COM  EQU7  COMMUNICATION LINE  *MT EQU8  MAG TAPE  $AMPLE EQU>E AMPL EMULATOR $(AMPLT EQU>F AMPL TRACE MODULE (*@* ' 0 PDTLST DATA PDT001 PTR TO START OF PDT'S 0 DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $PDT001 EQU$ !   PAGE " @**********************************************************  @$*** ST01 PDT 911 CRT ***  $@**********************************************************  @PSST01 EQU$ ! $ DATA ENST01LINK TO NEXT PDT $, DATA MPST01 MAP FILE FOR THE DEVICE  ,,PDST01 EQU$  START OF DSR REGISTERS , DATA 0 R0= DSR SCRATCH  " DATA $-$ R1= QUEUE LINK "0 DATA >000F R2 = STATUS FLG/INTERRUPT-1  0. DATA >0905 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA TDI911R6 = 911 CRT SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >0100  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $ DATA $-32POIN TER TO DSR REGISTERS  ( DATA CRT911 911 CRT DSR ADDRESS  (* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'ST01' DEVICE ACCESS NAME &  DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0056  LENGTH OF DEVICE BUFFER  ,, DATA TDI911 911 CRT INTERRUPT ENTRY  ," DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  . DATA >0000 TIME OUT COUNT " DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (>***  DSR TEMP STORAGE - KSB & TERMINAL LUNO 0  ***  >$KBST01 EQU$ KSB REGISTERS  $, DATA $+32R0 = TERMINAL LUNO 0 LDT  ,( DATA 0 R1 = QUEUE OUTPUT INDEX  (0 DATA $+40+20 R2 = QUEUE INPUT POINTER  00 DATA $+38+20 R3 = QUEUE OUTPUT POINTER  04 DATA >001E+$+36+20 R4 = QUEUE END POINTER  4, DATA 0 R5 = EVENT CHARACTER BUFFER  ," BYTE >40 R6= KSB FLAGS  "$@ BYTE >0001 STATION ID  DATA 0 R7= SCRATCH  . DATA 0 R8 = VALIDATION TABLE ADDRESS  .$ DATA 0,0,0 R9-R11 = SCRATCH $, DATA >0110  R12 = CRU INPUT ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .**** LDT FOR STATION LOCAL LUNO 0 *** *  DATA PSST01PDT ADDRESS  ( BYTE 0,0  LUNO / INITIATE COUNT  ( DATA >8480 FLAGS  * DATA LDTLST LDT LINK (GLOBAL LIST) *. DATA 0,0 TSB ADDRESS / LOCK OUT COUNT  . DATA 0,0,0,0,0,0,0,0   DATA 0,0 FL&AGS/TIMEOUT FOR REMOTE TERMINAL  &$ BSS>001E CHARACTER QUEUE  $* DATA >001E  CHARACTER QUEUE LENGTH * DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENST01 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @$*** ST02 PDT 911 CRT ***  $@**********************************************************  @PSST02 EQU$ ! $ DATA ENST02LINK TO NEXT PDT $ D*ATA MPST02 MAP FILE FOR THE DEVICE  *,PDST02 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000F R2 = STATUS FLG/INTERRUPT-1  0. DATA >0905 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA TDI911R6 = 911 CRT SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >0120  R12 = CRU/TILINE ADDRESS  ,  DATA $- &$,$-$,$-$  R13-R15 = WP,PC & ST &$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *( DATA CRT911 911 CRT DSR ADDRESS  (* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'ST02' DEVICE ACCESS NAME &  DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0056  LENGTH OF DEVICE BUFFER  ,, DATA TDI911 911 CRT INTERRUPT ENTRY  ," DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) " DATA &0 SERVER FLAGS/SERVER TASK ID  &. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (>***  DSR TEMP STORAGE - KSB & TERMINAL LUNO 0  ***  >$KBST02 EQU$ KSB REGISTERS  $, DATA $+32R0 = TERMINAL LUNO 0 LDT  ,( DATA 0 R1 = QUEUE OUTPUT INDEX  (0 DATA $+40+20 R2 = QUEUE INPUT POINTER  00 DATA $+38+20 R3 = QUEUE OUTPUT POINTER  0* DATA >001E+$+36+20 R4= QUEUE END PO* INTER  , DATA 0 R5 = EVENT CHARACTER BUFFER  ," BYTE >40 R6= KSB FLAGS  " BYTE >0002 STATION ID  DATA 0 R7= SCRATCH  . DATA 0 R8 = VALIDATION TABLE ADDRESS  .$ DATA 0,0,0 R9-R11 = SCRATCH $, DATA >0130  R12 = CRU INPUT ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .**** LDT FOR STATION LOCAL LUNO 0 *** *  DATA PSST02PDT ADDRESS  ( BYTE 0,0  LUNO / INITIATE COUNT  ( DATA >8480 FLAGS  * DATA LDTLST LDT LINK (GLOBAL LIST) *@. DATA 0,0 TSB ADDRESS / LOCK OUT COUNT  . DATA 0,0,0,0,0,0,0,0  4 DATA 0,0 FLAGS/TIMEOUT FOR REMOTE TERMINAL  4$ BSS>001E CHARACTER QUEUE  $* DATA >001E  CHARACTER QUEUE LENGTH * DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENST02 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @**** LP01 PDT LINE PRINTER  ***  *"********************************" **************************  PSLP01 EQU$ ! $ DATA ENLP01LINK TO NEXT PDT $, DATA MPLP01 MAP FILE FOR THE DEVICE  ,,PDLP01 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000D R2 = STATUS FLG/INTERRUPT-1  0. DATA >A102 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA LPSPURR6 = PRINTER SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >0060  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *, DATA LPHAN  LINE PRINTER DSR ADDRESS  ,* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'LP01' DEVICE ACCESS NAME &  DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0200  LENGTH OF DEVICE BUFFER  , DATA LPINT LINE PRINT ER INTERRUPT ENTRY  " DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >1770 TIME OUT COUNT "" DATA >1770 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0* LINE PRINTER PDT EXTENSION  04/30/79  0& DATA >0002  DATA MODULE FLAG  &* DATA 0  # OF BUFFERED CHARACTERS  *0 DATA $+8  POINTER TO NEXT OUTPUT CHAR.  0* DATA $+6  POINTER TO NEXT STORE SLOT * 0 DATA 170  MAX. NUMBER OF BUFFERED CHAR.  00 DATA 0  FLAG TO TRIGGER END RECORD EXIT  0$ BSS170  CHARACTER BUFFER  $ DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENLP01 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @**** LP02 PDT LINE PRINTER  ***  *@**********************************************************  @PSLP02 EQU$ !  DATA ENLP02LINK TO NEXT PDT , DATA MPLP02 MAP FILE FOR THE DEVICE  ,,PDLP02 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000E R2 = STATUS FLG/INTERRUPT-1  0. DATA >A102 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA LPSPURR6 = PRINTER SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH * DATA >0020 R12 = CRU/TILINE ADDRESS  . DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *, DATA LPHAN  LINE PRINTER DSR ADDRESS  ,* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'LP02' DEVICE ACCESS NAME &  DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0200  LENGTH OF DEVICE BUFFER  ,0 DATA LPINT LINE PRINTER INTERRUPT ENTRY  0" DATA 0,0 UCB QUEUE HEADER "  DATA 0  QUEUE SERVER (DDT) , DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >1770 TIME OUT COUNT "" DATA >1770 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0* LINE PRINTER PDT EXTENSION  04/30/79  0& DATA >0002  DATA MODULE FLAG  &* DATA 0  # OF BUFFERED CHARACTERS  *0 DATA $+8  POINTER TO NEXT OUTPUT CHAR.  0. DATA $+6  POINTER TO NEXT STORE SLOT  .0 DATA 170  MAX. NUMBER OF BUFFERED CHAR.  0 DATA 0  FLALAY ID = 10)H ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DSR9111778400898 INCLUDE 11/14/79 14:54:50SDSLNKD ' ' ' '  D E F I N I T I O N S '  NAME  @PXDSR5MT M$DATA F DSR5MT PP4BZYCHK5DSR5MT4ENDRCD5:INTRUP4SETWPS5&UNSOL AC CBBF DSR5MT PPBEBBBCBBCBBB›B,B BB2B,BB BBBBF DSR5MT >PBBBBBCBCB8BBBaBB 9BBBBBBBBBF DSR5MT PPBBBBB B B!B B BBBBBBBBBBB[BB B F DSR5MT PPBBBBBB[BBBB BBBEB BBBBIBBBBF DSR5MT PPC&BEBBC&BBVBB B!"B#C&C&C0CCC0CzBB B"F DSR5MT PP: 11/14/79 14:54:12 SDSLNK 3.3.0 DSR5MT PF DSR5MT PPB,B(B1BB,BB4;B'BBBBBHBB`CTBBKB!BCRBB`F DSR5MT PPCBBCBCBCB`CRBBBBB,B BB2BB,BB BF DSR5MT PPBB4 B BBBBBBBB$B!BCTBmBBBB!BBCBF DSR5MT PPBB BB wBBB,B(B1BB,BB0;B'BBBBBHBBCxBF DSR5MT PCBVB!BCRBH@P PAGE PP********************************************************** PP*** D5MT PDT *** PP********************************************************** PP REF UNSOL,DSR5MT PP DATA $+80 LINK TO NEXT PDT PP DATA MPD5MT MAP FILE PPD5MTWP EQU $ START OF DSR REGISTERS PP DATA 0 R0 = DSR SCRATCH PP DATA $-$ R1 = QUEUE LINK P DATA >0006 > R2 = STATUS FLG/INTERRUPT-1 >P DATA >800A R3 = DEVICE FLAGS & TYPE PP DATA $+68 R4 = DSR TMP STORAGE PP DATA 0 R5 = DSR SCRCH/CONT I/O FLG PP DATA UNSOL R6 = PRINTER SPURIOUS INT PP DATA 0 R7 = DSR SCRATCH PP DATA 0,0,0,0 R8-R11 = DSR SCRATCH PP DATA >0080 R12 = CRU/TILINE ADDRESS PP DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST PP*** DSR REGISTER EXTENTION *** P$ DATA $-32 POINTE$,R TO DSR REGISTERS ,P DATA DSR5MT LINE PRINTER DSR ADDRESS PP DATA 0 DX10 ERROR CODE PP TEXT 'D5MT' DEVICE ACCESS NAME PP DATA 0 SYSTEM LOG AREA PP DATA 0 SYSTEM LOG AREA PP DATA $-$ DEVICE BUFFER ADDRESS PP DATA >0052 LENGTH OF DEVICE BUFFER PP DATA INTRUP LINE PRINTER INTERRUPT ENTRY PP DATA 0,0 UCB QUEUE HEADER P6 DATA 0 6 P DATA 0 PP DATA >FF00 STATE (NONE) / QUEUE COUNT PP DATA >0258 TIME OUT COUNT PP DATA >0258 TIME OUT COUNT PP DATA 0 RESERVED FOR FUTURE USE P PP DATA $-$ DEVICE BUFFER ADDRESS PP DATA >0052 LENGTH OF DEVICE BUFFER PP DATA INTRUP LINE PRINTER INTERRUPT ENTRY PP DATA 0,0 UCB QUEUE HEADER P6 DATA 0 6@PPCRDSR M$DATA F CRDSR PP4BYTE024BYTE204BYTE404BYTE804BYTEFF4BZYCHK5CRHAN F CRDSR PP5CRINT 5CRREN 5CRSPUR4ENDRCD4JMSTAT4SETWPSACZClBBF CRDSR PPBEB C*BEBBCCBCCBCHBCCBOB`BCBCCBBBBBBF CRDSR PPBBBBBBB B BBB BB EBBB EBB B0 F CRDSR PPC.BBEBHBCBB4$BB0 C.BBEBB BB`EBF CRDSR PPB BB EBB4$BBBIBBCBEBBBBB$BBF CRDSR PPBVB¡BBaBBBBPBB BPBBBCBC>BB¡BBaBBF CRDSR PPBBBB BBBBCBCBBCBB BB B B B BBF CRDSR PPBB B BBBBB BBBBBB B BC0BB B[BCBbF CRDSR PBBBBBB>BB4BBC6BHB|B BBB BB%B B BBF CRDSR >PBB"5BBBBB (BB B BBCBBBBBFBBBB BC>F CRDSR PPBCKBBB BB CDBBދBBBaBB B B BaBBC0BB`F CRDSR PPEBBC BBBBBBB4BBBGBB 7BBBGBB BF CRDSR PPBBGBB gBBHBpB XB BΈBBBaBBB B BaBB9C2BBF CRDSR PPC4BB`EBBC BBB/*BB"BpB@lBdBhB4B8B|BBqrByzF CRDSR PPB B12B34B56B78B`:B#@B'=B"9BBBBBBBB0B/SBTUBVWBXYB\B,%F CRDSR PPB_>B?ZBBB BBBBB-BJKBLMBNOBPQB]B$*B);B^RBBBBBF CRDSR PPBBB}B~sBtuBvwBxyBBBBzBBBBBBBB&BABBCDBEFBGHF CRDSR PPB[B.B?ZBBB BBBBB-BJKBLMBNOBPQB]B$*B);B^RBBBBBF CRDSR PPBBB}B~sBtuBvwBxyBBBBzBBBBBBBB&BABBCDBEFBGHF CRDSR PPB[B.BB(BBBBCCB$B B yBB$B B B(BF FPYDSR >PBBBCCB`EB BBBBGBBGBBB BBB*CBF FPYDSR PPB BBBGBBB BBB*CBBCBBBBBBBBaCF FPYDSR PPBBB CBBdBBYB CBBBBBBCB!BBBBBhF FPYDSR PPBB BCBBCB!BBBBBhBpBBBC"CBdBB¤BF FPYDSR PPBJBBBCxB09BJBBCxBBCBhBBBCB!BBBBF FPYDSR PPBhB@BBBC"CBdBB¤BBCxB49BBJBBBBBBCTF FPYDSR PPCBBB BCBGB9CBdB BrIB CB?B‰B B=CB(C5BYTE495BYTE4F5BYTE505BYTE525BYTE60F ROOT >P5pBYTE805BYTEB35BYTEB45BYTEB55BYTEB75BYTEB85BYTEBDF ROOT PP5BYTEE05BYTEFE5uBYTEFF4CKLOCK4CKWRIT5CLEANQ5CMDFLGF ROOT PP4CMEMSZ5COMMQ 5CP$IDL5dCTRYCD4CTRYVL4CURMAP5DAY F ROOT PP4DDT 5DDTTSB5\DELQUE5DEVLDT5DGNQUE4DIOPDT5DM$QUEF ROOT PP5NDMGTSB4DSCMGR5(ENDACT4ENDADD4ENDDXL4ENDLIM4ENDSTBF ROOT PP4ENDTSK4ETSK 5F$FLG 4FIDMAP5FLG12 5FLGWCS5 FM$EXTF ROOT PP5 FM$IO 5 FM$RDM5 FM$WTM4FMCLOS4FMOPEN4FMPTSB4FMQSERF ROOT PP4FMREAD5FMT0005FMTINF4FMTTSB4FMWRIT5%FNDSTK5VFSTXFRF ROOT PP5FUTQUE5HOUR 5'IIE 5(IIWSP 5INSQ 5INSQUE5INVOL F ROOT P$5.IOQUCB5ITSB 4KBTAB 5zKILLQ $,5'KILTSK5KTIO 5 HKTSKPCF ROOT ,P5 (KTSKWP4LDTLST4MAPFK 4MAPMR 5 lMAPOFF5 pMAPON 5fMAPQUEF ROOT PP5MAPREC4MAPSHD4MAXSTA4MEMSIZ4MEMSW 5MINUTE5MM$FNDF ROOT PP5MM$GS05MM$GSA5MM$GUA5hMM$PAK5MM$RL25MM$RLM5MM$ROLF ROOT PP5:MM$RSA5DMM$RUA5MM$SCN5MM$TSB5MMFNDB5*MMFNDQ5>MMQQ F ROOT PP5MMUMAX54MMWQQ 5MSGQUE4NONDEV4OADPTR4OF$FCB4OF$LDTF ROOT PP5jOVYEND4OVYLDR5 OVYQUE5OVYTAB5OVYTSB4PDTLST5PDTSAVF ROOT PP4PF$FCB4PF1LDT4PF2LDT4PF3LDT5POP0 5POP1 5POP2 F ROOT PP5POP3 5POP4 5POP5 5POP6 5POP7 5POP8 5POP9 F ROOT PP5'PRUPWP4PSBLST5zPUSH1 5xPUSH2 5vPUSH3 5tPUSH4 5rPUSH5 F ROOT P65pPUSH6 5nPUSH7 5lPUSH8 5jPUSH9 5&PWRDN 5&PWRUP 65'PWRWSPF ROOT P5QHEAD 5 READS 5RETRID4RF$FCB4RF$LDT4RIDMAP5(JRSET12F ROOT PP4RSTRID4RSTRSW5 RWTQUE4RWTRTN5RWTTSB6S$$LEN5S$$PATF ROOT PP4SAHEAD4SAHIAD4SATLEN5HSBDQUE5&SCHDWS4SCHED 5SCHRETF ROOT PP4SCIBMX4SCIFMX4SCNPDT5SCR$DA53SCR$HD5TSCR$PC55SCR$SCF ROOT PP5BBBBBB$BE+BCNCBBBTOBVYF ROOT PPBBBBBBBBBBBE"BBBBBBBBBBF ROOT PPBBBBBBBBBBBE BC BBBBBB$BF ROOT PPE7BCCBBBTRBWTBBBBBBBBBBBE"BF ROOT PPBBBBBBBBBBBBBBBBBBBBE BF ROOT PPC BBBBBB$BEBCCNBBBDDBT BBBBBBF ROOT PB;BF ROOT PPB?B8BdB6BB B8BBBCBBB BFB-BaBdB"BB7BB BFF ROOT PPB9CBaBBBBEBBBdB8BeBBB=B8BB BBB6BB BF ROOT PPB=CBBBBBBʁBBʃBBʆBB`CBB&B B BBsBBBFF ROOT PPBBB BBB0BBaBaFBSBEBB΋BCxBC*BC!C*BjBB F ROOT PPC0BBCBBC*BC!C*BB`CB C%BEBCBBΧB6F ROOT PKT@PBΧB8B CTBmBB!BB QBBCC.BBBBBBMB CVBBB-F ROOT PPBBCCBCBBCBBBBBBB'BIBC zC*BBBBF ROOT PPBC ClB 3BBBBB SBCBB%BC rC*BCTBBBBBCF ROOT PPBBBBBB/CVBBBXBB UBBB`CBgBB BCTB BF ROOT PPBB CZB`CBBBICTB BC\BBCbB BBB'B BCBF ROOT PPBGBCC*BC:C&BBBBCB BCbB BEBC#lCBF ROOT PPBC>BC#lC*BBGB!BTBBC#C*BBCCB CVBgB B Bx`F ROOT PPC^B BgB"BBx`C^B BIC\BBFBBC\B B ByB B BCBF ROOT PPBC"tC*BIBC$^C*BBCDC"BB CVBB@BICbB BIC\BBFF ROOT PPB BC\B B BGBC!C*BBBC"tC*BDBC$ C*B CZBBBGF ROOT PB!B BBC#C*>BCjBBBCCBYCfBBB CVB@BYCjBF ROOT >PBBIBBEBJBB8BJBB6BgBB1B@BB C.B C.B CPF ROOT PPB#C4CBBBBBBBBBBBBCjBBBBBBB F ROOT PPBBAB΋BCvBC`BCBCBBmBB!BB QBBBmBBBmF ROOT PPBBBBBBBBBBBBBBBBBBBCB BB`F ROOT PPCB΋BCxBC`BBBB BBBCB B`CB΋BC^BCtBCpBF ROOT PPCBBBB@BB C^B:BCBBBB`BBBB BBBB"BF ROOT PPBBBB@B BB`BBBB`BBB$BBTAB@B BBBBbBBBF ROOT PPBbBBBbBBBbBNB BBBPRB@B BBBBbBBBBBNFF ROOT PPB@B BB`CB΋BCzBBBBBB`CB BBBB΋BCtB F ROOT P$CVBCBBBAB9BBEUB5B$,B ESBBBB BB BF ROOT ,PCBCB'BCB ChB"BBBBCBBBʄBBBBBBF ROOT PPBBB`B BBBBBBBB CLBBB BBBBB CZB`F ROOT PPCB΋BCtB CVBBBBBQBB ERBBBBBE%BF ROOT PPBB ESBBB BB BBB!BBBBBBBSBB BBF ROOT PPBBBBBBBB CLBB BBBBBBBBBBCB F ROOT PPCPB!B΋B΁B CVBBBBABB'BBE:B#BE8BBBF ROOT PPBBBCC4BBBBBBE9BBE9BdBBCBBRB"F ROOT PPBBBB"BB@B́BBB CZB`CB CPB0B΋B΁B CVBBBAF ROOT PPBEEBBEBB E8B BBB BBBBƁBBBBB{F ROOT P6BBKBBBB@BBBBQBBBB΋BCCB6BBB@BB`F ROOT PCB΋BCzBBB CVB`EOBB`BBBBBB BBBBF ROOT PPB+B CBBKBCCBC:CB CZB`CB΋BCxBEQB CVF ROOT PPBPBBBUB BBB!BBB B BBC$CBCDCBB B BF ROOT PPCPCBB"BBCPCBBbBBBBaBBCCB CZB+B΋BF ROOT PPCxBaB B BB"B BxC^B BBE1B BBBBBBB"BF ROOT PPBbBB !B BbBBBC$^CBBCDCBjBBC:CB`CB CF ROOT PPB CPBDB΋BCtBBB΋BCtBBCBBB BBC CBBBF ROOT PPBʂBBʪBB BBBB`E3BB*BBC CB‚B`CB CPB*F ROOT PPB΋BCxBBEOBBBBBB BBWB BjBBPBBBB`F ROOT PHBB !BBHBBBBB>BbBB9B"B CB5B"BCBB CB.F HROOT PB*BBBbBB(B,BCbB BB"BBB"B CB!B"B CzBB F ROOT PPCB`"BNBCBB"BBBBB BB@BBB qB!CBB"BPBF ROOT PPBBBbB BB CBB`CB*BBBBƚBB`CBBBF ROOT PPEPEVE1EE-EEC(CB`CBBE,E B`C#lF ROOT PPB`CB`CZE5E6E@B`CB`C EQEEEFEEGF ROOT PPEB`EAE<E=E#CETE8C (C HE E(C B`C B`F ROOT PPC B`C!JEEE%EEMBB`C!B`C!B`C BB`CzB`F ROOT PPCxB`CvB`CtB`CrB`CpB`CnB`ClB`CjB`CB`CB`CB`CF ROOT PPB`CB`CB`CB`CB`CB`CB`CDB`CB`C:B`CCCTB`F ROOT PPC"tB`C#CCNB:NB C8B`CBBF ROOT PPEKBdBEBBBBCjBBBB CjB`CBBBCjB`F ROOT PBB`EBBiBB9BB#C\BF ROOT PPB E!B9BBB BB4BB0BC'BBBBBBBBBBF ROOT PPBBC'BBBBBBBBBBBBBBBBB B B BF ROOT PPB4BB0BBBBB@BBB`C(BBB BBaC'B BBBB F ROOT PPC(VB#BuBEBrBB(B&BB BBB"B B" CfBBHC)B BF ROOT PPB B"BBBsBBBÓBBBBC`B BCjBTB EJB`CC(4F ROOT PPC(TBBBBC(ZC(zA(nC(A(zBBBCC(BȠCJBBȠC(BBȠC(F ROOT PPB BؠC(BBB؁B B؁B B؁BB؁BB؁BBȁBBEAC(BBMEF ROOT PPBM BNA(B CPB B CPB'BBBBB BBBBBBBBBF ROOT PBBBBB΋B.BBBB˂B@BBB˂BBBB B΋BB@BB˒B@BBBF ROOT PBBBB`CF ROOT PP: 11/14/79 14:59:29 SDSLNK 3.3.0 ROOT PF ROOT PPBBC'BBBBBBBBBBBBBBBBB B B BF ROOT PPB4BB0BBBBB@BBB`C(BBB BBaC'B BBBB F ROOT PPC(VB#BuBEBrBB(B&BB BBB"B B" CfBBHC)B BF ROOT PPB B"BBBsBBBÓBBBBC`B BCjBTB EJB`CC(4F ROOT PPC(TBBBBC(ZC(zA(nC(A(zBBBCC(BȠCJBBȠC(BBȠC(F ROOT PPB BؠC(BBB؁B B؁B B؁BB؁BB؁BBȁBBEAC(BBMEF ROOT PPBM BNA(B CPB B CPB'BBBBB BBBBBBBBBF ROOT PBBBBB΋B.BBBB˂B@BBB˂BBBB B΋BB@BB˒B@BB@P DSR733 M$DATA F DSR733 PP4ASCCHK4ASCCK25ASREXT5ASRHAN4BYTE024BYTE044BYTE06F DSR733 PP4BYTE084BYTE0A4BYTE0C4BYTE204BYTE404BYTE804BYTEE0F DSR733 PP4BYTEFF4BZYCHK5fCASHAN4CMODE 4DIAL2 4DIALUP4ENDRCDF DSR733 PP4GETC 5rGOREN 4JMSTAT5KBI7335 KBIDLE4KEYFUN5KEYHANF DSR733 PP4PUTCBF4SETWPS4WD00024WD00044WDFFFFAC|CBBBF DSR733 PPEBCFBBB B WBBBB`EB%B4%B*BBIBBB,BWB`EBBF DSR733 >PBBEBBB CB B,B¤B6B B4BBEBB$B8B6BF DSR733 PPB8BEB BC BBCBBC^BCBBB!BBBBBwF DSR733 PPBBEB &B (BBCBB BBCB@B B BBF DSR733 PPEClB B¤B`CBB҉BB,B(B5B,BBBrJB BBF DSR913 PPB BCB BBB BCBBB,B B5 B,BBBrJB BBB BF DSR913 PPCB BBB BCBBBVB,B B5 B B:`CB,BB5B BB,BF DSR913 PPB[BCBB B$BBBBBBBCBCB B`C$BB¡BBΠF DSR913 PPC&BƤBB`CtBB OC6CCCCCCCCCC8CCCB¤B0F DSR913 PB BCpBdB0Bbd>B2BB BCB1B.BBBCB BB BCB F DSR913 >PBXBdB,BdB.B BBB^B5BIBB CBXBBˆBCpB‡B BCF DSR913 PPBEB5B2 BBCBBBB BCB BgB5B B.BB CB;BB4F DSR913 PPB[B$B0BdB,B BBB)BPBBB BB BBBBBBˆBCpF DSR913 PPB‡BdB,B BB5B B.BBBB`CrB BCB5B BCB2 BBF DSR913 PPCBB BBB2BB B!BB[B`CLBB,B BB¡BBCzBBF DSR913 PPBB¤B2BBB BBJBB‰B B0BB,B {BBBB,B kBBCDF DSR913 PPBB4BCB B2BB¤B0B B0BBB¤B0BB,B ;B B B BCF DSR913 PPB +BB5BB B B B ;B B BCB5BCB B B`CBECF DSR913 PPCBdB,B %B B CB{BBBBB'BI E B,BBIBB BBeF DSR913 P$BBBBBB BB4BBBmB$,BBjBEB yBiCBBB5B B0F DSR913 ,PBBB.B BCBBCpBB,B BBBBdB4BBCBdB,B )F DSR913 PPBBEBBdB,B IBB2BBBaBBaBBEBBBCB BdB,B 9F DSR913 PPBBCCB`CBBBdBB9B BB BBEBBEBBBBBF DSR913 PPB E B,BB[B BBEBBEBBBBBBB[BBBB$B0F DSR913 PPBB,B kBB`CBB6BB/BB,B GB1BBBB0BB,B kBBF DSR913 PPB¤B2BaB$BCpB BCB B¡BB5B BB.BBCBBB,B ;F DSR913 PPB BCCZBBbBBB2BB`CLBޅBBBBB¤B6BCpBBAF DSR913 PPBdBB$B/CBBBB +BBCB)BBIB B9BBCDB¤B2B F DSR913 PPB¤B2BBB BJBbdB0BB1B.BBBCB BBBCpBBBF DSR913 P6BCBB$B0BB BaBBIBBB¡BBBBB$B,6BHBB5BB6:F DSR913 PB BCB BB`CtBaBB;B¡BBBzBEBBBBBB,B KBF DSR913 PPBB BBCB&BB B#BCBCBBBBB BBB BBjF DSR913 PPBBB`BB%BBB,B +BBeBB2BBCB BCBBB BF DSR913 PPBBB {BBCB B2BABaB B!BBeBBB`CXBBB,B {BF DSR913 PPBBB B B`CBB҉BJBBB¤B2B>`CF DSR913 PHBB҉BJBBBCBEBB@BBBaBB %BB BCB BVF HDSR913 PBBBBBB2BBCB BCBBBVBBBCB,B B5B F DSR913 PPB9CBB2B5B,BB BB BCBBPB BCB5B B1BBBF DSR913 PPCB BBBBB BBPBBB BCB2BBBBB$BBBF DSR913 PPBCB[BB5BBB BBPB`EB(B,BB4)B.B,B B4)B0B,F DSR913 PPBBBB$BEBp BayCBB?B B BBBBC B BBҩC F DSR913 PPBBBZBBJB BҩCBECBBBPB`C\BBBECF DSR913 PPBBŠBŠBŠBŠBŠBŠB[BBB B B BBB#:B$B?^BBBB@!B"#B$=B&'B()B*>BBBBBBBBBBF DSR913 PP: 11/14/79 14:55:21 SDSLNK 3.3.0 DSR913 PF DSR913 PHBB҉BJBBBCBEBB@BBBaBB %BB BCB BVF H@PFILMG M$DATA F FILMG PP5 BM$CLO4BM$CNT4BM$DEL4BM$IOR4BM$IOW4BM$LMT4BM$LNKF FILMG PP4BM$MAP4BM$MP24BM$MPB4BM$MPK5 BM$NEW5 BM$RD 5BM$RDUF FILMG PP5 BM$REL5BM$RMD4BM$SCH4BM$TRM4BM$UPD5LBM$W 56BM$WRNF FILMG PP5 BS 4BUFCHK4BYTE014BYTE104BYTE204BYTE404BYTE80F FILMG PP4BYTEFF5VCKLOCK5 CKWRIT4ETSK 5FM$ABD4FM$EXT4FM$IO F FILMG PP5FM$PC 5FMACES5FMCLOS5jFMOPEN4FMQSER5:FMREAD5BFMWRITF FILMG PP4KI$BEG4MAPFK 4MAXIO 4MM$FND4MM$GSA4MM$RSA4MM$RUAF FILMG PP5OFFLCK5ONLOCK4OVYTAB4POP0 4POP1 4POP2 4POP3 F FILMG PP4POP4 4POP5 4POP6 4POP7 4PUSH2 4PUSH3 4PUSH4 F FILMG P4PUSH5 4PUSH6 >4PUSH7 4SCRASH4SO$LTO4TM$DEC4TM$INCF FILMG >P4TMAQUE4TMDLST4TMDQUE4TMLLST4TOLBET5 nUBS 4UPDFDRF FILMG PP4WD00014WD00024WD00044WD02004WD10004WD40004WD8000F FILMG PP5 WRTSEQAB`B$B/CBBEB E1BE4CBBlBBíB F FILMG PPB.B?B BBE5BBBEB?B E0B,BB[ EB BBF FILMG PPBB"BBβBBBlB BBB 3BBEBhBK`E:BBC2B F FILMG PPB #B BBB cBBBBB BC(BBBQBBBRBB BaCBF FILMG PPBEBBBBCBBaCVBEBE/CB,BB,B F FILMG PPEBOBBBK`E;BB {B+BB/BB"BBBBBBB2BF FILMG PPBBBmBB %BBnBB eB2BBBB B,B EB*BB2BB"F FILMG P$BBB BB2BBBBBB B $,BB B6BBBBB2B؀BBF FILMG ,PB2BؠEBBJB!BBBBB"BḆBBB*BB E1B`F FILMG PPEBzBBzBaB{ABBlB B B BѭBB{ABBEBBBB F FILMG PPCB BBBBBBJ CBB B BB B {BB,B EBBHBF FILMG PPE2CJBBBLBBECBE3BBBBlBB`C8B[F FILMG PPEB?B E0B`CB E.BCjCBB CBBBCC:C:CBF FILMG PPCBBB CBCBBBJBBCBB C4B C4B CB CBCF FILMG PPBBBBBCBBBB BBB B0B@BPB`B΋BE(BCF FILMG PPCBmBB B%B 1BBlB B 1BB `CBB,BBnBBB?BB BAF FILMG PPBBB aB!BBBBlBBB.BBBK`E<BBBBB@BCF FILMG P6CBB`E"BB(B B΋BE*BMBBC CBB6B"B2BRB F FILMG PBaBBBđBECBBBBBBK`E9BBB?B BB BF FILMG PPBCBE7C4B[C8B?BB`E$BB΋BE-BBB kBBCF FILMG PPCJB΁BCtC.BMB!BBCVCBBBB B kBBCCB,BBnF FILMG PPBBCCBBB kB:BBECBECBBB kBBCF FILMG PPCBC CJB#BEBBBMBBB#BBC CBBBBmBBBḆF FILMG PPBCBBB*BBBE<BBC CBBBBBBBBJB`F FILMG PPE'BEBBE CBBBBECBB BCPCJBEBF FILMG PPB*BBBBBBBB kBB EB BBB΋BE-BC C0F FILMG PPBBB kBBCCJB΁BMB!BBCVC.B΄B΃B΂B,BBnBBCF FILMG PHC*BBB kBWBBEC*BBBB kB BFBBBC CJBC F HFILMG PC*B.BBBMBBB#BBC C`BFBBBBBḆBCBBBF FILMG PPBBnBB`EBBABBB*BBBE<BBCC*BBBBBF FILMG PPBCtCvBEB?BjBB BB B kBBBBBBCCJB*BF FILMG PPBJB`E'BE C*BBBBEC*BB BCPCJBEBF FILMG PPB*BBBBBB0BBBB [BBC C*BBCCJBMB!BBF FILMG PPB"B(B BḆB BBEB?BmBB BBCBBE7C*BF FILMG PPBBBBB΋BE*B E1B,B B TB BnBB BB BBBF FILMG PPBBBB B +B"BCB BnB4BAB BBB BBB B BТCB F FILMG PPBBBaB BBmBBABB 4BDBABBlBBBBB;B E0B`F FILMG PPE$B΋BE+B,BBnBBCCBBECBECBBF FILMG PBB kJB BB BCPCJBEBB*BBBBBMBBB#BBF FILMG JPC CBBEB3BABBMBE<BBC CBBBBBBBB`F FILMG PPE%B΋BE+BC CFB,BBnBBCCFBBECFBBBF FILMG PPB kB BB BCPCJBEBB*BBBB&BMBBB#BBC F FILMG PPCFBBEBBBABBBBBnBB`EBBABBMBE<BBCF FILMG PPCFBBBBBBEB?B`E%B E.BBʂBBBB΃BBF FILMG PPB΅B΅B*BBMBB#BB`BkBB΋BBBB(BBBBB*BBF FILMG PPB0B`E B E.BB΋BBlBB `E8BBBB kBB! E8BF FILMG PPBBBDBBDB`E BBBBBBBBCC BBBB`C BMB!BBBBBB EB BFBF FILMG PPEB?BCtC $BB"B(ḆḆḆḆBđBRBBBBBB!B BF FILMG PPB4BBBBBBBBBBB B"BḆḆḆḆBđB!BB"BBF FILMG PCBCBB`EBB¡BBƠC hB$B4C lBBƠF DSR911PF>PC jBʤBBB`CBaBB>B¡BB$B:B C BBBzBBBBB,F DSR911PFPPB KBBB BBCB C B$BB B!BCBC B C BBBBF DSR911PFPPBB B BBB BBjBBBBB@B2BC BC BBB BBF DSR911PFPPB BB C C BBBB {B B6B2BABaB B!BBeBBB`CFB F DSR911PFPPCC B BB,B {BBBH C C BB CC B BB B BB`CB F DSR911PFPPBBH CC B B%B C C BB CC B BCBBaBBB¡BBF DSR911PFPPBB,B [BBBBC B:BRB2BC BC BBB B BB C C F DSR911PFPPBB$B B BBH CC B B`CB BBpB BB EBBjB F DSR911PFPPEBB`CBmBBBBC BC B BB/BB2C lB BB2C nF DSR911PFP$B6BB B2)C BB B BB B0 C $,BB`C B`C B3IBBB B B PF DSR911PF,PB BB BBB BBBB`CBB BBB BBC@BY EB F DSR911PFPPBH C C BBH CC B BH CC B B CC B B C C BB C C F DSR911PFPPBB CC B BBBEBB!BBB BGBBBB`EBB F DSR911PFPPBBB EBBH C C BB4$BB C C BB4$BBBIBB C F DSR911PFPPC BBBB +BBdB/BBB6B>`C FBB҉BJBBB¤B2B>`C FBF DSR911PFPPB҉BJBBH C C BBH CC B B C C BBE BBaBBIBF DSR911PFPPBB¡BBBB,B [BBBB6B^BC B B BBB C C BBF DSR911PFPPB,B BB¡BBCB CC B BBB$B:BBB +BBB¤B2BaF DSR911PFPPBBUBBdB4BJBB‰B B0BB,B {BBBB,B kBBCBB4F DSR911PFP6B C C BB6B B2BB¤B0B B0B6B¤B0BB,B ;6BB B C B2F DSR911PFPB +B*BH C C BB6B C C BBC BBB BB ;BB C B2BH F DSR911PFPPC C B C B B6BC B B C C BBB BBEBB B`CB@BF DSR911PFPPE CC$BBdB,B %B B C pB{BBBBB6BI EB,BBIF DSR911PFPPBB BBB,B KBBeBBBBBBBBB BB4BBBB`F DSR911PFPPCBBBB`CBEB yBiCBBBH C C BB6B B0BBB.BF DSR911PFPPBEBB C C BBB,B BB`CB C B2BB`CBdB4BF DSR911PFPPBC 0BH C C BBEBB BBEBB@BB,B KBB`C BIC B2 BF DSR911PFPPBIBBaBBaBBEBBBC B BdB,B 9BBC RC(B`CBBF DSR911PFPPBCB C C BB¤B2B B¤B2BBBBJBbdB0B"BH C C BB2$F DSR911PFPHB.BC BB.C BC BB BBBB C C BB C B2B BBF HDSR911PFPBEBB$B0BB$B0BB,B kBB`CBB6BB/BB,B GB8F DSR911PFPPBBBB0BB,B kBBB¤B2BaB+B C B2BH C C BB¡BBF DSR911PFPPBBBB BBB6BA@BC B BB.BBEBB`C gBBQ`CBF DSR911PFPPB,B ;BBC RClBBBBBB C C BB$B6C B2B6B$B B F DSR911PFPPBBH CC B BABdBB$B/C fBBBB +BBCB)BBIB B`F DSR911PFPPCB CC B BbBBB2BB`CB C C BB B B BBB$B4F DSR911PFPPC lBB BB>GBJB:`C FBrBHBBB> C FBB C B2B[B C C BF DSR911PFPPBB6B=C FB9C FBaBB %B BB0BC B2B BBBpBC B2BH F DSR911PFPPC C BB[CC CCCHC8CC,CC 0C CCCB EBB EBBJBB`C`BBCB`CF DSR979 >PB EBBB$B&B BGB`CBVBdB&BBB BBBB hBBF DSR979 PPB)BB)BB,BB xBB)BB BBBBEBB`EBBF DSR979 PPEBBEBBBBlBBBB`CcBB`C`BB$B&BHBF DSR979 PPB(BB EB"BC,B`CBhlBBBB,BBHBBB BB& ClF DSR979 PPBB" CnBBB BB BBB BBVBҩCXBE BWBW EBF DSR979 PPBB BB (BB BB BdB&BIBBBBBCB BBB$B&B F DSR979 PPBBB$BBRB$B&BHBBCPB)B$B&BHBB`CZBCB$B&BHF DSR979 PPBB$BBB$BB9B EBBCBBCnB$B&BHBB(BB!F DSR979 PPBB"BB&BCB`CBBBBE BEBB(BB EB"F DSR979 P$BBCBBBEBBEB$,B‚B *BB BBE BYdB&BF DSR979 ,PB`CB¬BBBB *B!B BœBJBJBB IBBB BCB„BJBBB BCBCBBK EBBBCF DSR979 PPBB¬B BBBByB BBBB[BB[BIHBJFBEEBEGB@BDBBBACBF DSR979 PPBBB BpF DSR979 PP: 11/14/79 14:55:34 SDSLNK 3.3.0 DSR979 P DSR979 PPBB BB (BB BB BdB&BIBBBBBCB BBB$B&B F DSR979 PPBBB$BBRB$B&BHBBCPB)B$B&BHBB`CZBCB$B&BHF DSR979 PPBB$BBB$BB9B EBBCBBCnB$B&BHBB(BB!F DSR979 PPBB"BB&BCB`CBBBBE BEBB(BB EB"F DSR979 P$BBCBBBEBBEB$@P&KIF M$DATA F KIF PP4BM$MAP4BM$MP24BM$NEW4BM$RD 4BM$RDU4BM$REL4BM$RMDF KIF PP4BM$W 4BM$WRN5(BRTAB 5&BRTABA4BS 5BSC 4BYTE01F KIF PP4BYTE204BYTE414BYTE454BYTE464BYTE474BYTE494BYTE4FF KIF PP4BYTE504BYTE804BYTEB34BYTEB44BYTEB54BYTEB74BYTEBDF KIF PP4BYTEFE4CKLOCK4CKWRIT4CTRYCD4ETSK 5 :FDRCTB4FM$EXTF KIF PP4FMACES4FMCLOS4FMOPEN50KI$BEG5 KI$BIN5KI$BS 5KI$BTDF KIF PP5KI$BTI5KI$BTS5:KI$CDN5 8KI$CNV5KI$EK 5KI$ERR5 zKI$GF F KIF PP5 DKI$GFR55 KI$RRB5KI$RW 5 KI$SUK5 KI$TAB5 xKI$UCVF KIF >P5 ^KI$ULG5KI$UNL5KI$W 5KI$WRN4MM$GSA4MM$RSA4OFFLCKF KIF PP4ONLOCK4OVYTAB4POP0 4POP2 4POP3 4POP4 4POP5 F KIF PP4POP6 4POP7 4POP8 4POP9 4PUSH3 4PUSH4 4PUSH5 F KIF PP4PUSH6 4PUSH7 4PUSH8 4PUSH9 5RNARRP4SO$BTO4SO$LTOF KIF PP4SO$RFO4UBS 4UPDFDR4WD00014WD00644WD2020ACCCCF KIF PPCChCVCCxCCC>C>C>C>C>CCCB BCDBEHB BB΋BΏBK F KIF PPC.BBBBBCCBB"BBBB"BfBBBѬB BˮB0BHBF KIF PPBLBBBNBBB,BBB.BBBB BBBƮBJBBBC&BF KIF PPBBB`CBBJBBBEB.BB$B BECBC,B)BF KIF P$E B8BBBBBBBB BB$,VBBBB`CBEBBF KIF ,PEBBlBB BBBB`CBEBBECBEBBlF KIF PPBB BBEB BE BBC)BBC,BBBBBB BF KIF PPBB BBBBC(BC&BBB%B BB BBBBBBB BBF KIF PPBDB BBBBLB BBBTB BBBXB BBB^B BBBdB BF KIF PPBBjB BBBrB BBBvB BBB|B BBBB BBBB F KIF PPBBBB BBBB BBBB BBBBBB EB B BF KIF PPB B/BB `BC B@BBBBBBFBZB B!BBB BaCBQBF KIF PPBB;BBBLBBBFBBBaBBBFBBBBBB`CB B@F KIF PPBE&BE8CBrB BBC(BE8CdBABMBLB,B E B F KIF P6B,B C)BB,B C(B\B`C LB`C B BBB BB6B BBBoBF KIF PBECBBBBB)BE$CBAB B`BB BBBECF KIF PPB7B C&B+BlB+B BBB B BC(BE8CBAB B B`C LB F KIF PPB BB C'B BAB BB BoBBBCCTBC ^CTB˯BBLB˯BF KIF PPBNB˯BB,B˯BB.BˮBHB0B!BoBB BˮBHB0BC :BBF KIF PPE;CTBB BB BlB BE B BC*BBC+BB,B*C(BF KIF PPBB*BOBE#BBBJBB`E'BEB0BEBBEF KIF PPB΋B΂B΁BBBMBBB/BB`E(B΋BE0BMBBECBF KIF PPBB`E)BEBBEB΋B΂B΁BBBMBCBBB`F KIF PPE(BEB΋B΂B΁BBBMBCB`E(B΋BBBFBBoBBEC BF KIF PPBB,B B hBBE%CBB EBB,B E BB E B*B`F KIF PPCBoBBB !B!BXBNBBBB[B΋BE1BBB/BB BB F KIF PPBBC 8BBBBBjBBBBBBBBB/BB BB BBF KIF PPC xBB[EBBB`E*B΋BE4BB&BB́B͂BoBBBBF KIF PPBŃBBBBB7BBBBBB@BBBBBBBBB΋BF KIF PPE4BB&BBvBBBoBBBB`E-C C C C BABOBUBZF KIF PPB[B\B]BaBoBsBuBzB{B|B}B~BBBABBBPBQ BWBXB]BaBbF KIF PPBpBq BuBvBxByB~BBBUBZB[B\B]B^BuBzB{B|B}B~BBF KIF P,B(B`BBBBBBBBBBBB(BBBF KIF PPBB BBBBBBBCCBBBBBQBBBC "CB/BF KIF PBBBB(BJBB"B%BB$2BBBBB&B BBBblB(B B&BoBF KIF 2PByByByBBBlB(BBBBBB.BBb%BḆBBBlB(BBy`F KIF PPE BB BB/BBBB%B B"B%BB$BB&BBBC(B B F KIF PPBE8CBBCCB`E/B΋BE5BB BBBBBBʅBF KIF PPB`E.BBBBBBCBBBBABBBBBBBBCBBF KIF PP: 11/14/79 14:56:37 SDSLNK 3.3.0 KIF PF KIF PPBCCBBB EBB`C:B`C BABlB(BbEBBBB[B΋BF KIF PPE6B*BBBBCCBB2BBFB'BBBCCBBBBF KIF PPB BBBBboBB>,B(B`BBBBBBBBBBBB(BBBF KIF PPBB BBBBBBBCCBBBBBQBBBC "CB/BF KIF PBBBB(BJBB"B%BB$@PjLPDSR M$DATA F LPDSR PP4BYTE024BYTE064BYTE404BYTE804BYTEFF4BZYCHK4ENDRCDF LPDSR PP4JMSTAT5LPHAN 5LPINT 5LPSPUR4SETWPSACCBBBF LPDSR PPEBBB C.BEB-BBB&B>>B--B-!B!B>B--B-)BBBF LPDSR PPBBBBBBBBCfB+BCfB(BCbB%BCdB"BBBaBF LPDSR PPBBBBB EBBB`EBB EBB`EBB EF LPDSR PPBB!BBB4$BBB BEBBCBCBoBB BjB B¤BF LPDSR PPBlB„B*BB$BBTB*B BBxBdBBBaBBB{BBIBBBF LPDSR PPBb$BBIBB BB2 BBBBB1BBBB$BBBBBCB F LPDSR PPBBCB7BBBxBBBaBBB{BBIBBB BB$BBIB F LPDSR PBB BB EB>B BBB BBY EBB BBBBBBF LPDSR >PBb$BB$BB1BBBBBBBCBCB$B BBBCBBF LPDSR PPBBb$BBBEBB„B*BB$BB$BBB B7BBBb$BBBBF LPDSR PPBB$B BBB[BTBBBB B B$BBBVBTBBBB BBF LPDSR PPBB B0 ChBBEB BCBBCB`CBTBB BCBBF LPDSR PPBEBB`EBBBBBaaBBBBBBB$BBB BBF LPDSR PPBB BDBdBBB$BBBCB`C~B B B BFF LPDSR PP: 11/14/79 14:57:18 SDSLNK 3.3.0 LPDSR PF LPDSR PPBb$BBIBB BB2 BBBBB1BBBB$BBBBBCB F LPDSR PPBBCB7BBBxBBBaBBB{BBIBBB BB$BBIB F LPDSR PBB BB EBPNOFCCC M$DATA F NOFCCC PPAF NOFCCC PP: 11/14/79 14:59:20 SDSLNK 3.3.0 NOFCCC P06 REVISION LETTER OF THIS SYSGEN; MUST BE IN FIRST 2 COL INPUT: NAME OF SYSTEM TO BE MODIFIED: SYSGEN ALLOWS THE USER TO SPECIFY AN INPUT SYSTEM AND AN OUTPUT SYSTEM. THEY MAY BE THE SAME. THE INPUT SYSTEM IS A PREVIOUSLY DEFINED SYSTEM WHICH THE USER WISHES TO MODIFY. IF THE USER WANTS TO START FROM SCRATCH, HE SHOULD ENTER A WHEN THE PROGRAM TYPES "INPUT". THE SYSTEM NAME MAY BE UP TO 5 CHARACTERS. @ OUTPUT: NAME OF THIS SYSTEM: THE USER IS TO SUPPLY A NAME FOR THE SYSTEM HE IS BUILDING. THE NAME MAY BE UP TO 5 CHARACTERS LONG AND MUST START WITH AN ALPHABETIC CHARACTER. THIS SYSTEM NAME CAN BE THE SAME AS THE SYSTEM INPUT NAME IF THIS IS A PARTIAL GENERATION. THIS NAME MUST BE GIVEN. @ TASK SENTRY ENABLED? (NO) DO YOU WANT THE TASK SENTRY ENABLED IN THIS SYSTEM? (NO) THE TASK SENTRY, WHEN ENABLED, KEEPS TRACK OF HOW LONG A TASK EXECUTES WITHOUT VOLUNTARILY SUSPENDING EXECUTION. WHEN THIS TIME EXCEEDS A SYSGEN DEFINED VALUE, THE EXECUTION PRIORITY OF THE TASK IS REDUCED. @ 19 TASK SENTRY VALUE: (60) TASK SENTRY VALUE IN SYSTEM TIME UNITS: (60) THE TASK SENTRY, WHEN ENABLED, KEEPS TRACK OF HOW LONG A TASK EXECUTES WITHOUT VOLUNTARILY SUSPENDING EXECUTION. WHEN THIS TIME EXCEEDS THE "TASK SENTRY VALUE" THE EXECUTION PRIORITY OF THE TASK IS REDUCED. THE TASK SENTRY VALUE IS GIVEN IN SYSTEM TIME UNITS. ONE SYSTEM TIME UNIT IS EQUAL TO 50 MILLISECONDS. @ DEVICE: WHAT TYPE OF DEVICES DO YOU HAVE ON YOUR SYSTEM: EACH DEVICE OR PERIPHERAL IN YOUR SYSTEM MUST BE DEFINED TO THE SYSGEN, ONE AT A TIME. THE FOLLOWING MNEMONICS SHOULD BE USED. CARD READER: CR LINE PRINTER: LP ASR/733: ASR KSR: KSR DISK: DS CRT: VDT MAG TAPE: MT FLOPPY DISKETTE: DK COMMUNICATIONS: COM NONSTANDARD DEVICE: SD 820 TERMINAL: K820 IF MORE THAN ONE DEVICE OF THE SAME TYPE EXISTS ON THE SYSTEM, THEY MUST BE LISTED IN SEPARATE DEVICE REQUESTS. TO EXIT FROM THE DEVICE REQUEST MODE HIT WHEN THE PRINTER TYPES "DEVICE". @ CRU: WHAT IS THE CRU BASE ADDRESS FOR THIS DEVICE: THIS DEVICE USES THE CRU TO HANDLE INPUT AND OUTPUT. THIS ADDRESS SHOULD BE KNOWN TO THE USER AT SYSGEN TIME. THE ADDRESS IS DETERMINED BY THE USER WHEN THE SYSTEM IS CONFIGURED. @ TILINE: WHAT IS THE TILINE ADDRESS FOR THIS DEVICE: THIS DEVICE USES THE TILINE TO HANDLE INPUT AND OUTPUT. THE ADDRESS ON THE TILINE WHERE THIS DEVICE DOES I/O SHOULD BE KNOWN BY THE USER AT SYSGEN TIME. IT IS DETERMINED BY THE USER WHEN THE SYSTEM IS SET UP. @ ACCESS TYPE: IS THIS DEVICE RECORD OR FILE ORIENTED. WHEN A DEVICE DOES I/O IT CAN EITHER BE FILE OR RECORD ORIENTED. THE STANDARD ACCESS TYPE IS TAKEN FOR THE DEVICE IF A IS HIT ON REQUEST. IF FILE I/O IS DESIRED REPLY "FILE" ON REQUEST. IF RECORD I/O IS DESIRED TYPE "RECORD" ON REQUEST. @ INTERRUPT: WHAT IS THE INTERRUPT LEVEL OF THIS DEVICE: EACH DEVICE HAS ITS OWN INTERRUPT LEVEL. THIS LEVEL SHOULD HAVE BEEN DETERMINED AT INSTALLATION TIME OF THE DEVICE. THE EXTERNAL INTERRUPTS RANGE FROM 3-15 WITH 3 BEING THE HIGHEST PRIORITY. MULTIPLE DEVICES ARE ALLOWED ON AN INTERRUPT LEVEL. A DEFAULT INTERRUPT IS GIVEN DEPENDING ON THE DEVICE. @ 69 70 71 NAME: WHAT IS THE NAME OF YOUR SPECIAL DEVICE: WHEN A SPECIAL DEVICE IS REQUESTED, A 1-4 CHARACTER NAME MUST BE SUPPLIED. THIS NAME WILL BE USED TO REFERENCE THE DEVICE. @ 76 77 78 DRIVES: (1) HOW MANY DRIVES DO YOU HAVE ON THIS CONTROLLER: EACH CONTROLLER CAN HAVE ONE TO FOUR DRIVES. EACH DRIVE IS TREATED AS A SEPARATE DEVICE. THE NUMBER OF DRIVES SHOULD BE GIVEN FOR THE CONTROLLER ON REQUEST. ALL THE DRIVES ON THE CONTROLLER WILL HAVE THE SAME TILINE ADDRESS AND INTERRUPT LEVEL. THE DEFAULT VALUE IS ONE IF A IS ENTERED ON REQUEST @ DSR FILE: WHICH FILE HAS THE DEVICE SERVICE ROUTINE FOR THIS DEVICE: EACH SPECIAL DEVICE MUST HAVE A ROUTINE THAT CONTAINS ITS HANDLER AND INTERRUPT PROCEDURES. THIS ROUTINE IS TO BE PROVIDED BY THE USER AND RESIDES ON SOME FILE PRIOR TO SYSGEN. THE PATHNAME OF THAT FILE SHOULD BE ENTERED ON REQUEST. @ INTERRUPT ENTRY: WHAT IS THE INTERRUPT ENTRY LABEL: WHENEVER A SPECIAL DEVICE IS DEFINED, GEN990 NEEDS TO KNOW SOME SPECIAL INFORMATION ABOUT THE DEVICE. THE INTERRUPT ENTRY POINT IS ONE OF THESE TERMS. THIS IS THE LOCATION IN THE USER DSR TO BRANCH TO WHENEVER AN INTERRUPT TO THAT DEVICE OCCURS. THIS LABEL SHOULD BE DEF'ED IN THE USERS DSR AND ENTERED INTO GEN990 UPON REQUEST. @ 99 BREAKPOINT: (16) WHAT IS THE MAX. # OF BREAKPOINTS ALLOWED UNDER THIS SYSTEM? THE USER IS ALLOWED TO SPECIFY THE MAXIMUM NUMBER OF BREAKPOINTS THAT THE SYSTEM WILL MAINTAIN AT ANY ONE TIME. BREAKPOINTS MAY BE SET UNDER THE "DEBUGGER" OR SCI. DEFAULT = 16 @ EXTENDED? (NO) DO YOU WANT TO INCLUDE THE EXTENDED CHARACTER SET? ONE OF THE SERIAL PRINTERS SUPPORTED BY TI HAS A EXTENDED CHARACTER SET. THE USER MAY WANT TO MAKE USE OF THESE CHARACTERS ON THIS LP. IF YOUR LP SUPPORTS THE EXTENDED SET AND YOU WANT TO INCLUDE THE LOGIC IN THE SYSTEM RESPOND "YES" ON REQUEST. DEFAULT = "NO" @ SVC: WHAT IS THE LABEL OF THE SUPERVISOR CALL ROUTINE: THERE ARE SUPERVISOR CALLS THAT THE SYSTEM PROVIDES FOR THE USER. THE USER CAN EXTEND THIS LIST BY ADDING SOME OF HIS OWN. THE SVC IS CALLED BY USING A LEVEL 15 XOP INSTRUCTION. IF THE USER WANTS TO EXTEND THE SVC LIST, HE SHOULD ENTER THE STARTING LABEL OF THE SVC'S LOGIC ON REQUEST. IF NO MORE SVC'S ARE TO BE DEFINED, HIT ON REQUEST. @ FILE: WHICH FILE CONTAINS THE SUPERVISOR CALL ROUTINE: THE OBJECT FOR THE ROUTINE THAT HAS JUST BEEN ADDED TO THE SVC LIST MUST BE ON A FILE. ENTER THE FILE PATHNAME ON REQUEST. @ TABLE: WHAT LENGTH IN WORDS DO YOU WANT THE SYSTEM TABLE TO BE: DATA ADSEXT ABORT VECTOR DATA 0,0 I/O STATUS / EXTENDED USER FLAGS DATA ADSBUF ADDS BUFFER PTR DATA 0,0 ACTIVE / FIRST QUEUED PDT DATA 0,0 RESERVED / FILL CHARACTER @ OVERLAYS: (2) HOW MANY SYSTEM OVERLAY AREAS SHOULD BE CREATED? DX10 SUPPORTS SYSTEM OVERLAYS. THE OVERLAYS ARE 400 WORDS LONG. THE USER SHOULD SPECIFY THE NUMBER OF AREAS THAT ARE TO BE CREATED. THE SMALLER THE NUMBER OF OVERLAYS, THE MORE DISK ACCESSES WILL BE REQUIRED TO PERFORM AN OPERATION THAT USES THE SYSTEM OVERLAY AREA. DEFAULT = 2@ XOP: WHAT XOP DO YOU WANT TO INSTALL: THERE ARE 16 POSSIBLE EXTENDED OPERATION LEVELS. XOP LEVEL 15 IS RESERVED FOR SVC'S BUT XOPS 0 - 14 ARE AVAILABLE TO BE USER DEFINED. IF A USER WISHES TO DEFINE A XOP, HE SHOULD HAVE THE ROUTINE ON A FILE AT SYSGEN TIME. THE USER SHOULD TYPE IN THE LEVEL OF THE XOP TO BE DEFINED WHEN "XOP" IS REQUESTED. @ PC: WHAT IS THE LABEL OF THE INITIAL PC FOR THE XOP: A FILE MUST CONTAIN THE ROUTINE THAT IS GOING TO BE DEFINED AS AN XOP. THIS ROUTINE SHOULD HAVE A LABEL ON THE FIRST EXECUTABLE INSTRUCTION AND THIS LABEL SHOULD BE PLACED IN THE DEF STATEMENTS OF THE ROUTINE. THIS LABEL SHOULD BE ENTERED ON REQUEST. @ WP: WHAT IS THE WORKSPACE POINTER LABEL FOR THE XOP: A FILE MUST CONTAIN THE ROUTINE THAT IS GOING TO BE DEFINED. THIS ROUTINE SHOULD HAVE AN AREA RESERVED FOR THE ACTIVE WORKSPACE. THE STARTING ADDRESS OF THIS MEMORY BLOCK SHOULD BE PLACED IN THE DEF STATEMENTS AND THIS LABEL SHOULD BE ENTERED ON REQUEST. @ FILE: WHAT IS THE FILE THAT CONTAINS THE XOP ROUTINE: A FILE MUST CONTAIN THE OBJECT FOR THE ROUTINE THAT IS GOING TO BE DEFINED AS A XOP. THIS FILE PATHNAME SHOULD BE GIVEN ON REQUEST. @ COMMON: (NONE) WHAT FILE CONTAINS THE USER COMMON AREA: THE TASK COMMON AREA IS A REGION OF SYSTEM MEMORY ACCESSIBLE TO ALL TASKS. IT IS USED FOR INTER-TASK COMMUNICATION AND COORDINATION. THE USER IS ASKED TO SUPPLY THE OBJECT FOR THIS MODULE, IF DESIRED, IN ORDER THAT HE MAY PROVIDE ANY INITIAL VALUES HE REQUIRES. ENTER IF NO COMMON AREA IS DESIRED. @ LIST ACCESS NAME: (ME) PATHNAME OF FILE OR DEVICE TO RECEIVE LIST: THE USER MAY SPECIFY A DEVICE NAME OR THE PATHNAME OF A FILE TO WHICH THE LIST IS TO BE OUTPUT. NOTE THAT IF A PATHNAME OR DEVICE IS SPECIFIED OTHER THAN ME, THE LIST WILL NOT ALSO BE SHOWN ON THE USER'S TERMINAL. @ ERROR ASSIGNING LUNO TO LIST ACCESS NAME. ERROR OPENING LIST ACCESS NAME LUNO. ERROR - ILLEGAL DEVICE TYPE FOR LIST OUTPUT. ERROR - LIST OUTPUT FILE MUST BE SEQUENTIAL. 175 176 177 EXPANSION CHASSIS: (1) WHAT EXPANSION CHASSIS IS THIS DEVICE ON: AN EXPANSION CHASSIS ALLOWS SEVERAL DEVICES TO SHARE ONE INTERRUPT. IF YOU HAVE AN EXPANSION CHASSIS IN THE SYSTEM, ENTER ITS NUMBER. CHASSIS RANGE FROM 1-7, WITH CHASSIS 1-4 ON CARD 1 AND CHASSIS 5-7 ON CARD 2. @ EXPANSION POSITION: AT WHAT INTERRUPT LEVEL IS THIS DEVICE IN THE EXPANSION CHASSIS: WHEN AN EXPANSION CHASSIS IS USED, THE DEVICE IS WIRED INTO ONE OF 16 INTERRUPTS RANGING FROM 0-15; THIS LEVEL SHOULD BE GIVEN ON REQUEST. @ 187 188 189 190 191 NEXT: ENTER A COMMAND: YOU ARE TO ENTER A COMMAND . THE FOLLOWING IS THE LIST OF COMMANDS. COMMAND SHORT FORM PARAMETER PURPOSE GENERATE G NONE CONTINUE PARAMETER COLLECTION LIST L ,NONE PRINTS OUT VALUE OF TERM CHANGE C CHANGE THE VALUE OF THIS TERM WHAT W,? ,NONE GIVE EXPLANATION OF TERM HELP NONE EXIT GENERATE WHEN CONFUSED SAVE NONE SAVE PARAMETERS ON FILE BUILD B NONE PROCEED TO BUILD PHASE STOP NONE TERMINATE THE PROGRAM THE COMMAND SHOULD BE THE FIRST WORD OF AN ENTRY. THEY MAY BE ENTERED AT ANY TIME DURING THE GENERATE MODE OR WHEN A "NEXT" REQUEST IS GIVEN. TO LIST ALL THE PARAMETERS TYPE L WITH NO TERM. IN A CHANGE COMMAND THE VALUE OF A TERM SHOULD BE ENTERED AFTER THE OLD VALUE HAS BEEN PRINTED. A TERM IS ANY PARAMETER GATHERED IN THE GENERATE MODE. EXTRA WORDS CAN BE INSERTED IN THE COMMAND FOR THE USERS CONVENIENCE. EXPLANATIONS OF A SPECIFIC TERM IN THE GENERATE MODE CAN BE REQUESTED BY TYPING A "WHAT" COMMAND WITH NO PARAMETERS. THERE ARE TWO LEVELS OF EXPLANATIONS POSSIBLE AFTER THE INITIAL PROMPT. USING THE WHAT COMMAND WITHOUT A TERM WILL LEAVE YOU IN GENERATE MODE AFTER THE EXPLANATION IS GIVEN @ PDT FILE: WHAT FILE CONTAINS THE PDT FOR THIS DEVICE: WHEN A SPECIAL DEVICE IS DEFINED, THE USER MUST SUPPLY HIS OWN PHYSICAL DEVICE TABLE. THIS SOURCE FILE SHOULD BE ON THE SYSTEM DISK AT SYSGEN TIME ENTER THE PATHNAME OF THE FILE ON REQUEST. @ CRT TYPE: (911) IS THIS A 911 OR 913 CRT? TWO MODELS OF CRTS ARE SUPPORTED BY GEN990. THEY ARE THE 911 CRT OR THE 913 CRT. THE USER MUST SPECIFY WHICH CRT IS BEING DEFINED AT THIS TIME. DEFAULT = 911 CRT. @ BYTES: (1) HOW LONG IS YOUR SVC BLOCK IN BYTES: WHEN A USER CALLS A SVC HE USES A SUPERVISOR CALL BLOCK IN WHICH HE PASSES PARAMETERS TO THE SVC ROUTINE. GIVE THE LENGTH OF THIS BLOCKS IN BYTES. A VALUE OF ONE IS TAKEN ON DEFAULT. @ CONFIGURATION FILE IS COMPLETE. DO YOU WANT TO SAVE IT? (YES) ALL THE PARAMETERS ARE DEFINED. DO YOU WANT TO BUILD? GEN990 HAS COMPLETED ITS INTERACTIVE MODE AND IS READY TO BUILD THE SOURCE MODULES. THE USER MAY PROCEED TO THE BUILD PHASE BY ANSWERING YES , OR ENTER THE COMMAND MODE BY ANSWERING NO. DEFAULT IS TO SAVE AND BUILD. @ CASSETTE TIME OUT: (3) CASSETTE ACCESS TYPE: (FILE) DSR WORKSPACE: WHAT IS THE LABEL THAT IS AT THE BEGINING OF THIS DSR'S WORKSPACE? GEN990 NEEDS TO KNOW WHAT WORKSPACE TO USE WITH THIS SPECIAL DEVICE WHEN IT ENTERS THE DSR FROM THE INTERRUPT DECODER. THIS WORKSPACE IS GENERALLY THE 3RD THRU THE 19TH WORD OF THE PDT. GEN990 ASSUMES THIS WORKSPACE RESIDES SOME WHERE INSIDE THE USER DEFINED PDT, SO IT WILL NOT REFERENCE THIS TERM IN THE "REF" DECLARATIONS. @ CLOCK: (5) WHAT INTERRUPT LEVEL IS THE SYSTEM CLOCK: THE USER HAS TWO OPTIONS ON WHERE TO LOCATE THE SYSTEM CLOCK. THE CLOCK CAN BE AT INTERRUPT LEVEL 5 OR 15. THE LEVEL IS DETERMINED BY CONNECTING A JUMPER WIRE TO THE APPROPRIATE INTERRUPT LEVEL. GIVE THE INTERRUPT LEVEL ON REQUEST. THE DEFAULT VALUE IS LEVEL 5. @ PRINT MODE: (SERIAL) IS THIS A SERIAL OR PARALLEL LINE PRINTER? THERE TWO TYPES OF TI PRINTERS. SERIAL PRINTERS ACCEPT DATA ONE BIT AT A TIME. PARALLEL PRINTERS ACCEPT AN ENTIRE CHARACTER AT A TIME AND THEREFORE ARE USUALLY FASTER. THE PARALLEL PRINTERS WERE NAMED THE "FLP" IN RELEASE 2 SYSTEMS. DEFAULT = SERIAL @ ID: (NONE) WHAT IS THE INITIAL TASK TO BE EXECUTED ON RESTART: THE USER HAS THE OPTION OF HAVING A TASK BID UP WHEN HE WARM STARTS THE COMPUTER. THIS TASK SHOULD HAVE A TASK ID BETWEEN >10 - >FF. ENTER THIS ID ON REQUEST. ENTER A IF NO INITIAL RESTART TASK IS DESIRED.@ TARGET DISK: (DS01) WHAT DISK DO YOU WANT THE GEN990 FILES CREATED ON? THE USER CAN DECIDE WHAT DISK DRIVE TO PLACE THE FILES THAT GEN990 CREATES FOR THE SYSTEM GENERATION. THIS DISK MUST HAVE THE DIRECTORY S$SYSGEN ON IT. ONLY THE OUTPUT FILES WILL BE PLACED ON THIS DISK THE DEFAULT IS THE SYSTEM DISK. @ INTERRUPT DECODER: (NONE) WHAT IS THE PATHNAME FOR THE OBJECT FILE OF THE USER SUPPLIED DECODER? GEN990 WILL CREATE AN INTERRUPT DECODER THAT IS SUITABLE FOR MOST GENERATED SYSTEMS. WHEN A SITUATION OCCURS WHEN THIS DECODER IS NOT SUITABLE, THE USER MAY WRITE A DECODER AND REPLACE IT FOR THE ONE CREATED BY GEN990. WHEN THIS IS NEEDED, ENTER THE PATHNAME FOR THE OBJECT FILE OF THE NEW DECODER ON REQUEST. GEN990 WILL CREATE THE DECODER IF NO PATHNAME IS SPECIFIED @ 277 278 CARD 1: CARD 2: WHAT IS THE INTERRUPT LEVEL OF THIS HALF OF THE EXPANDER CARD? THE DX10 USES AN EXPANDER CARD INTERFACE TO CONTROL UP TO SEVEN EXPANSION CHASSIS. THE CHASSIS ARE GROUPED SUCH THAT CHASSIS 1-4 SHARE 1 INTERRUPT AND CHASSIS 5-7 SHARE ANOTHER. ENTER THE INTERRUPT LEVEL FOR CHASSIS 1-4 WHEN "CARD 1" IS REQUESTED AND ENTER THE INTERRUPT LEVEL FOR CHASSIS 5-7 WHEN "CARD 2" IS REQUESTED. WHEN NO EXPANSION CHASSIS ARE DESIRED, HIT RETURN ON REQUEST. @ CAN NOT RELEASE INTERRUPT WHEN DEVICES ARE DEFINED ON THE CHASSIS @ CHASSIS: WHAT CHASSIS IS THIS DEVICE ON? THE INTERRUPT DEFINED IS ASSIGNED TO AN EXPANDER CARD. GIVE THE EXPANSION CHASSIS NUMBER THAT THIS DEVICE IS LOCATED ON. THERE IS NO DEFAULT FOR THIS ENTRY. @ DO YOU NEED INSTRUCTIONS TO COMPLETE THE SYSGEN? @ 295 KIF? (YES) SHOULD LOGIC FOR KEY INDEX FILES BE INCLUDED IN THIS SYSTEM? THE USER HAS THE OPTION OF WHEATHER OR NOT TO INCLUDE THE LOGIC FOR KEY INDEX FILES. COBOL NEEDS THIS LOGIC TO SUPPORT KIF IN RELEASES AFTER 3.0. THE KIF SUPPORT REQUIRES 2K WORDS OF LOGIC IN THE ROOT OF THE OS PLUS AN ADDITIONAL 180 WORDS FOR EVERY DISK DRIVE DEFINED. RESPOND EITHER "YES" OR "NO" TO THIS QUESTION WHEN PROMPTED. DEFAULT = YES @ SCI BACKGROUND: (2) WHAT IS THE MAXIMUM LIMIT ON ACTIVE SCI BACKGROUND TASKS? THE SYSTEM COMMAND INTERPRETER RUNS IN THE FOREGROUND AND BACKGROUND MODES. THERE ARE LIMITS SET ON THE NUMBER OF ACTIVE SCI TASKS THAT MAY BE RUN AT ANY GIVEN TIME. WHEN THE BACKGROUND LIMIT IS EXCEEDED, FURTHER REQUESTS ARE QUEUED UNTIL ONE OF THE ACTIVE BACKGROUND TASKS TERMINATES. WHEN THE FOREGROUND LIMIT IS EXCEEDED, THE TERMINAL THAT TRIED TO BID SCI WILL BE RETURNED AN ERROR STATING THAT THE LIMIT WAS EXCEEDED. BACKGROUND DEFAULT = 2 FOREGROUND DEFAULT = 8 @ SCI FOREGROUND: (8) WHAT IS THE MAXIMUM LIMIT ON ACTIVE SCI FOREGROUND TASKS? ERROR - MULTIPLE COMM EMULATORS AT SAME CRU ADDRESS ERROR - MISSING NEEDED PARAMETERS TO PRECEED INTO THE BUILD PHASE ERROR - THE SPECIFIED COMM EMULATOR IS NOT SUPPORTED ERROR - NO 3270 COM DEVICE IS ASSIGNED WITH THIS CRU ADDRESS ERROR - CAN NOT DELETE 3270 COM DEVICE WITH CRT OR LP ASSIGNED TO IT >>> FATAL ERROR - UNABLE TO GET SYSTEM DISK CHARACTERISTICS <<< >>> WARNING - IMAGE OUTPUT FILE MAY ALREADY CONTAIN A SYSTEM IMAGE <<< >>> UNABLE TO CREATE LINK EDIT IMAGE OUTPUT FILE <<< SVC ERROR CODE = WRONG - CANNOT DELETE THIS TERM; ENTER A NEW TERM OR A WARNING - DUPLICATE CRU ADDRESSES HAVE BEEN DEFINED WRONG - BAD CRU OR TILINE ADDRESS CANNOT SAVE CONFIGURATION FILE - NO OUTPUT FILE ASSIGNED WRONG - ENTER VALUE; "D" TO DELETE; "N" FOR NEXT; OR TO CONTINUE WRONG - ENTER "D" TO DELETE; "N" FOR NEXT DEVICE OR TO CONTINUE *** UNABLE TO CREATE SYSGEN SOURCE OR CONFIGURATION FILE *** WRONG - INPUT FILE WAS GENERATED UNDER A DIFFERENT REVISION OF GEN990 WRONG - A NUMERIC VALUE IS NEEDED WRONG - A PATHNAME IS REQUIRED UNDEFINED ENTRY - PLEASE RETRY ERROR WHEN OPENING SYSGEN INPUT FILE- REENTER SYSTEM NAME UNABLE TO ACCESS S$SYSGEN DIRECTORY ON TARGET DISK IDENTIFIER IS TOO LONG - REENTER NAME ILLEGAL NAME - ONLY SIX CHARACTERS ARE ALLOWED ERROR - INTERRUPT HAS ALREADY BEEN ASSIGNED AND IS NOT SHAREABLE ILLEGAL CLOCK INTERRUPT LEVEL - REENTER INTERRUPT VALUE CHASSIS NUMBER DOES NOT AGREE WITH INTERRUPT LEVEL - REENTER VALUE MULTIPLE XOP DEFINITION - REENTER NUMBER THE NUMBER IS NOT WITHIN RANGE ILLEGAL RESPONSE - A YES OR NO IS REQUIRED. PLEASE RETRY ERROR - CRU BIT MUST BE DEFINED WHEN THE INTERRUPT LEVEL IS SHARED POSITION ALREADY ASSIGNED AND CAN NOT BE SHARED WITH THIS DEVICE THIS DEVICE IS NOT DEFINED DEVICE OVERFLOW - ASSIGNMENT NOT POSSIBLE: TABLE OVERFLOW - DO A FULL SYSGEN ON SYSTEM TO FREE SPACE DO YOU WANT TO BUILD THE SOURCE FILES? (YES) @ DO YOU WANT TO DELETE THE OBJECT AND SOURCE FILES? (NO) @ DO YOU WANT ALL THE ENTRIES LISTED? @ DO YOU WANT GEN990 TO BUILD YOUR 'INTRPT' MODULE? @ WHICH DEVICE DO YOU WANT? >>>> UNABLE TO ACCESS INSTRUCTION FILE <<<<<< DO YOU WANT TO SAVE THE CONFIGURATION FILE? (NO) ********** CONFIGURATION FILE SAVED ********** @ ******** D$DATA SOURCE FILE IS NOW BEING BUILT ********** @ ******** BATCH FILE FOR SYSGEN COMPLETION IS NOW BEING BUILT ******* >>>>>>>> FATAL ERROR - CAN NOT CREATE OR OPEN BATCH FILE <<<<<<<< ERROR - TABLE SIZE IS TOO SMALL (MINIMUM SIZE IS 2K = 2048) @ ****** THE LINK EDIT COMMAND STREAM SOURCE FILE IS BEING BUILT ******@ >>>>>>>> FATAL ERROR - CANNOT WRITE TO BUILD FILE <<<<<<<<<< ********** THE OBJECT AND SOURCE FILES ARE BEING DELETED ********** @ ********* GEN990 TERMINATED ********** @ >>>>>>>>>> FATAL ERROR - ERROR IN ASSIGNING OVLYFL <<<<<<<<<< @ >>> FATAL ERROR - CANNOT ACCESS FILE - >>>>>>>> FATAL ERROR - NO SYSTEM DISK DEFINED <<<<<<<< @ >>>>>>>> FATAL ERROR - NO STATION TERMINALS WERE DEFINED <<<<<<<<< @ >>>>>>>> FATAL ERROR - UNABLE TO CREATE OR OPEN SOURCE FILE <<<<<<<<< @ >>>>>>>>>> FATAL ERROR - GENDAT I/O ERROR <<<<<<<<<< >>>>>> TRYING TO EXCEED MAXIMUM NUMBER OF CRT'S WITH OCP OPTION <<<<< @ >>>>>>>>>> WARNING - INTERRUPT LEVEL WAS NOT FOUND <<<<<<<<<<<<< @ >>>>>>>>>> WARNING - EXPANSION POSITION WAS NOT FOUND <<<<<<<<<< @ >>>>>>>>>> WARNING - XOP LEVEL NOT FOUND <<<<<<<<<< @ ===================== PPC FOR STANDARD DEVICE ========================== * PCS EQU $ SINGLE DEVICE PER INT DECODER MOV @CURMAP,R11 SAVE CURRENT MAP FILE POINTER MOV R10,@CURMAP SET DSR MAP UP AS CURRENT MAP LMF R10,0 ---- LOAD DSR MAP FILE --- BLWP *R7 ---- ENTER DSR ---- RETURN MOV R11,CURMAP RESTORE OLD MAP FILE LMF R11,0 --- LOAD PREVIOUS MAP FILE --- B @TRAPRT RETURN TO SYSTEM *=============== SYSTEM CRASH CONDITIONS ================== CTABX DATA 0 BAD CHASSIS (0 LENGTH TAB) IX EQU $ BAD INTERRUPT BLWP @SCRASH SYSTEM CRASH DATA >20 ILLEGAL INTERRUPT LEVEL END @ ================== MULTIPLE INTERRUPT DECODER ========================== * PCM EQU $ SHARED INTERRUPT DECODER MOV @CURMAP,R11 SAVE PRESENT MAP FILE PCM10 MOV R9,R8 GET START OF DECODE TABLE PCM20 MOV *R8+,R12 GET DEVICE CRU INT BIT ADDRESS JEQ RETURN END OF TABLE - RETURN TO OS TB 0 IS THIS THE DEVICE? JNE PCM30 NO - GET NEXT DEVICE MOV *R8,R7 YES - GET ADDRESS OF ENTRY VEC MOV @6(R8),R10 GET DSR MAP FILE POINTER MOV R10,@CURMAP SET CURRENT MAP PRT TO DSR LMF R10,0 ----- LOAD DSR MAP FILE ----- BLWP *R7 ----- ENTER DSR ----- PCM30 AI R8,8 CHECK NEXT DEVICE FOR INT JMP PCM20 @ ===================== EXPANSION CHASSIS DECODER ======================== * PCE EQU $ EXPANSION CHASSIS DECODER PCE00 MOV @CURMAP,R11 SAVE PRESENT MAP FILE PCE10 EQU $ @ * DETERMINE WHAT CARD HAS INTERRUPTED LI R12,>1F00 CHECK FOR CHASSIS 1 - 4 CLR R8 TABLE POINTER FOR CHASSIS CARD TB 15 IS THIS THE FIRST EXP CARD? JEQ PCE20 YES - ENTER CHASSIS DECODER LI R12,>1F20 CHECK FOR CHASSIS 5 - 7 LI R8,8 TABLE POINTER FOR CHASSIS CARD @ 420 421 422 TB 15 CHECK FOR INTERRUPT JNE RETURN NO MORE INTERRUPT OUTSTANDING * DETERMINE WHAT CHASSIS INTERRUPTED PCE20 STCR R9,0 READ THE CRU LINES MOV R9,R10 SRL R10,6 GET CHASSIS ADDRESS ANDI R10,6 GET ONLY THE CHASSIS # COC @EXPTST(R10),R9 IS THE CHASSIS PRESENT? JEQ RETURN NO - RETURN ANDI R9,>7C GET POSITION OF INTERRUPT A R8,R10 ADD IN CARD LEVEL OF POSITION * DETERMINE INTERRUPT WITHIN CHASSIS MOV @ETAB(R10),R10 GET ADDRESS OF VECT TABLE SLA R9,1 ENTRY * 8 ----> R9 C R9,*R10+ CHECK FOR TABLE OVERFLOW JHE IX BAD POSITION A R9,R10 GET 4 WORD ENTRY IN TABLE MOV *R10,R7 ADDRESS OF DSR VECTOR MOV @6(R10),R10 GET MAP FILE ADDRESS @ MOV R10,@CURMAP SET DSR MAP UP AS PRESENT MAP LMF R10,0 ---- LOAD MAP FILE ---- BLWP *R7 ---- ENTER DSR ---- JMP PCE10 CHECK FOR OUTSTANDING INT @ ================= INTERRUPT LOOSE ENDS ===================== * WSP EQU $-14 R0-R6 @ DATA 0 DATA 0,0,0,0,0 R11-R15 DATA 0,0,0,0,0,>1F00,0,0,0 R7-R15 DATA 0,8,0,0,0,>1F20,0,0,0 R7-R15 DATA 0,0,0,0,0,0,0,0,0 R7-R15 DATA 0,0,TABL$,0,0,0,0,0,0 R7-R15 * TABL EQU $ MULTIPLE INTERRUPT DECODER TABLE @ ======================= INTERRUPT TRAPS ================================ PAGE RORG $->80 *********************************************************** *** INTERRUPT & XOP TRAP INITIALIZATION TABLE: *** *** MEMORY IS USED FOR SYSTEM OVERLAY AREA *** *** AFTER INITIALIZATION IS COMPLETE *** *********************************************************** XY EQU $ DATA PRUPWP,PWRUP 0 INTERRUPT TRAP TABLE DATA PWRWSP,PWRDN 1 LOC 0-3F IN MEMORY DATA IIWSP,IIE 2 DATA XWS,IX 3 @ DATA XWS,IX 4 DATA XWS,IX 5 DATA XWS,IX 6 DATA XWS,IX 7 DATA XWS,IX 8 DATA XWS,IX 9 DATA XWS,IX 10 DATA XWS,IX 11 DATA XWS,IX 12 DATA XWS,IX 13 DATA XWS,IX 14 DATA XWS,IX 15 DATA SCWSP,ILLSVC 0 XOP TRAP TABLE DATA SCWSP,ILLSVC 1 LOC 40-7F IN MEMORY DATA SCWSP,ILLSVC 2 DATA SCWSP,ILLSVC 3 DATA SCWSP,ILLSVC 4 DATA SCWSP,ILLSVC 5 DATA SCWSP,ILLSVC 6 DATA SCWSP,ILLSVC 7 DATA SCWSP,ILLSVC 8 DATA SCWSP,ILLSVC 9 DATA SCWSP,ILLSVC 10 DATA SCWSP,ILLSVC 11 DATA SCWSP,ILLSVC 12 DATA SCWSP,ILLSVC 13 DATA SCWSP,ILLSVC 14 DATA SCWSP,SVCPRC 15 ********* END OF TRAP INITIALIZATION ******** PAGE ********************************************************** ******* INTERRUPT DECODER ************ ********************************************************** ** WHENEVER AN INTERRUPT IS ENCOUNTERD, CONTROL WILL BE ** TRANSFERED TO THIS MODULE. FROM HERE IT WILL GO ** TO THE DSR AND RETURN HERE ON COMPLETION. THIS ** MODULE WILL THEN EXIT THROUGH TRPRTN. EXPTST DATA >4000,>2000,>1000,>800 TEST BITS FOR EXP CHASSIS XWS EQU $ DUMMY WORKSPACE * WORKSPACE POINTERS @ DATA CLKWSP,CLKPC CLOCK INTERRUPT DATA WSP$,PCS STANDARD INTERRUPT DECODER DATA WSP$,PCM MULTIPLE INTERRUPT DECODER DATA WSP$,PCE EXPANSION CHASSIS DECODER ============= SPURIOUS INTERRUPT ENTRYS ================ DATA CRSPUR R6 = CR SPURIOUS INT DATA LPSPUR R6 = PRINTER SPURIOUS INT DATA KBIDLE R6 = KEYBOARD SPURIOUS INT DATA KBIDLE R6 = KEYBOARD SPURIOUS INT DATA TRTWP R7 = MT OP COMPLETE VECTOR DATA DRTWP R7 = DISK OP COMPLETE VECTOR DATA TDI913 R6 = 913 CRT SPURIOUS INT **** SPECIAL DEVICE ***** **** COMMUNICATIONS ***** DATA KBIDLE R6 = CASSETTE SPURIOUS INT DATA FPYSPR R6 = FLOPPY SPURIOUS INT DATA TDI911 R6 = 911 CRT SPURIOUS INT DATA IDL820 R6 = 820 SPURIOUS INT DATA ADIDLE R6 = ADDS SPURIOUS INT 530 531 *================= HANDLER ENTRY POINTS ================== DATA CRHAN CARD READER DSR ADDRESS DATA LPHAN LINE PRINTER DSR ADDRESS DATA ASRHAN ASR 733 DSR ADDRESS DATA ASRHAN KSR 733 DSR ADDRESS DATA MTHAN MAG TAPE DSR ADDRESS DATA DIODSR DISK DSR ADDRESS DATA CRT913 913 CRT DSR ADDRESS **** SPECIAL DEVICE **** DATA COMDSR COMM DSR ADDRESS DATA CASHAN CASSETTE DSR ADDRESS DATA FPYDSR FLOPPY DSR ADDRESS DATA CRT911 911 CRT DSR ADDRESS DATA HAN820 820 TERMINAL DSR ADDRESS DATA ADSHAN ADDS TERMINAL DSR ADDRESS 547 548 *============= INTERRUPT ENTRY VECTOR ================== DATA CRREN CARD READER INTERRUPT ENTRY DATA LPINT LINE PRINTER INTERRUPT ENTRY DATA GOREN ASR 733 INTERRUPT ENTRY DATA GOREN KSR 733 INTERRUPT ENTRY DATA MTINT MAG TAPE INTERRUPT ENTRY DATA DTBSY DISK INTERRUPT ENTRY DATA TDI913 913 CRT INTERRUPT ENTRY **** SPECIAL DEVICE **** DATA COMINT COMM INTERRUPT ENTRY DATA GOREN CASSETTE INTERRUPT ENTRY DATA FPYINT FLOPPY INTERRUPT ENTRY DATA TDI911 911 CRT INTERRUPT ENTRY DATA RENTER 820 INTERRUPT ENTRY DATA ADSREN ADDS INTERRUPT ENTRY 564 565 ******** TEMPLATE FOR DSR REGISTERS ******** ********************************************************** *** $$$$ PDT *** @ ********************************************************** PS$$$$ EQU $ @ DATA EN$$$$ LINK TO NEXT PDT DATA PL$$$$ MAP FILE FOR THE DEVICE PD$$$$ EQU $ START OF DSR REGISTERS DATA 0 R0 = DSR SCRATCH DATA $-$ R1 = QUEUE LINK DATA >#### R2 = STATUS FLG/INTERRUPT-1 @ DATA >#### R3 = DEVICE FLAGS & TYPE DATA $+60 R4 = DSR TMP STORAGE DATA 0 R5 = DSR SCRCH/CONT I/O FLG @ DATA 0 R6 = RETRY COUNT DATA 0 R7 = DSR SCRATCH DATA 0,0,0,0 R8-R11 = DSR SCRATCH DATA >#### R12 = CRU/TILINE ADDRESS @ DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST *** DSR REGISTER EXTENTION *** DATA $-32 POINTER TO DSR REGISTERS ****** INSERT HANDLER ADDRESS HERE **** @ BYTE 0,0 DX10 ERROR CODE / FLAGS TEXT ' ' DEVICE ACCESS NAME @ DATA 0 SYSTEM LOG AREA DATA 0 SYSTEM LOG AREA DATA $-$ DEVICE BUFFER ADDRESS DATA >#### LENGTH OF DEVICE BUFFER @ DATA 0,0 UCB QUEUE HEADER DATA 0 QUEUE SERVER (DDT) DATA 0 SERVER FLAGS/SERVER TASK ID DATA >FF00 STATE (NONE) / QUEUE COUNT DATA >#### TIME OUT COUNT @ DATA >#### TIME OUT COUNT DATA 0 RESERVED FOR FUTURE USE @ DATA 0 RESERVED DATA 0,0,0 STATISTIC COUNTERS BYTE 0,0 RETRY / LUNO COUNT @ 604 *=========== KSB TEMPLATE ================ *** DSR TEMP STORAGE - KSB & TERMINAL LUNO 0 *** KB$$$$ EQU $ KSB REGISTERS @ DATA $+32 R0 = TERMINAL LUNO 0 LDT DATA 0 R1 = QUEUE OUTPUT INDEX DATA $+40+20 R2 = QUEUE INPUT POINTER DATA $+38+20 R3 = QUEUE OUTPUT POINTER DATA >####+$+36+20 R4 = QUEUE END POINTER @ DATA 0 R5 = EVENT CHARACTER BUFFER BYTE >40 R6 = KSB FLAGS BYTE >## STATION ID @ DATA 0 R7 = SCRATCH DATA 0 R8 = VALIDATION TABLE ADDRESS DATA 0,0,0 R9-R11 = SCRATCH DATA >#### R12 = CRU INPUT ADDRESS @ DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST *** LDT FOR STATION LOCAL LUNO 0 *** DATA PS$$$$ PDT ADDRESS @ BYTE 0,0 LUNO / INITIATE COUNT DATA >8480 FLAGS DATA LDTLST LDT LINK (GLOBAL LIST) DATA 0,0 TSB ADDRESS / LOCK OUT COUNT @ DATA 0,0,0,0,0,0,0,0 DATA 0,0 FLAGS/TIMEOUT FOR REMOTE TERMINAL BSS >#### CHARACTER QUEUE @ DATA >#### CHARACTER QUEUE LENGTH *============ ASR KSB EXTENTION ================ DATA ASREXT ABTVCT ABORT VECTOR (DSR) DATA >#### CRTDLY CR DELAY COUNT @ DATA >#### CHRDLY CHAR DELAY COUNT DATA 0 SAVMOD SAVED CASSETTE ST DATA 0 ACTPDT ACTIVE CASSETTE ST DATA 0,0 FIRST/SECOND QUEUED PDT DATA 0 INPDTR DIRECT INPUT FLAGS DATA 0,0 FLAGS/TIMEOUT FOR REMOTE TERMINAL BSS >#### CHARACTER QUEUE @ DATA >#### CHARACTER QUEUE LENGTH *========== TILINE CONTROLLER TEMPLATE ====================== *** TILINE CONTROLLER DSR TEMP STORAGE *** DATA 0 TMP OR FMP PRB BYTE 0 OPCODE BYTE >## LUNO @ DATA 0,0,0,0,0,0 REMAINDER OF PRB * SAVED TILINE PARAMETERS ** MT ** ** DSC ** DATA $-$ SAVED STATUS - WRDS/TRK DATA $-$ MAJOR ERROR CODE - SPT & OHR DATA $-$ MINOR ERROR CODE - HDS & CYL DATA $-$ RESERVED - SPR & RPT DATA $-$ RESERVED - WRDS/RCD * TILINE IMAGE DATA >####,0,0,0,0,0 TILINE IMAGE WDS 0 - A @ DATA >#### WRD C - UNIT SELECT DATA >1000 WRD E - TILINE STATUS * VOLUME CHARACTERISTICS BSS 3*2 INITIALIZATION BUFFER DATA 0 TEXT ' ' VOLUME NAME @ DATA $-$ TAPE MANAGER TSB ADDRESS DATA $-$ TAPE MANAGER TASK AREA ADR DATA $-$ TAPE MNGR TABLE/BUFFER AREA DATA 0,0 RESERVED DATA -1,-1 TAPE MNGR & FUTILITY LOCKOUT DATA 0 BSS 16 SYSTEM LOG AREA @ *======== DISK TILINE TEMPLATE 2 =========== DATA 0 NOT USED DATA 0 NOT USED DATA $-$ DISK MNGR TABLE/BUFFER ADDR DATA $-$ MAX # OF ADU'S ON DISK DATA $-$ SECTORS PER ADU DATA >#### PHYSICAL RECORD DEFAULT @ DATA 0 DISK UNIT ERROR COUNT TEXT '#0000000' TEMP FILE NAME SEED BSS 16 SYSTEM LOG AREA @ ===== FLOPPY DSR TEMP AREA ====== *** DSR TEMP STORAGE FOR FLOPPY *** DATA 0 FLOPPY (FMP) TASK ID DATA >####,0,0,0,0,0,0,0,0,0,0 DSR TEMP STORAGE @ ======== CONTROLLER INTERRUPT WORKSPACE ============== ********************************************************* ******** WORKSPACE FOR INTERRUPT DECODER ************** ******** SUPPORTS ONE TO FOUR PDTS ************** ********************************************************* WP$$$$ EQU $ @ DATA 0 R0 = PDT FOR UNIT 0 DATA 0 R1 = PDT FOR UNIT 1 DATA 0 R2 = PDT FOR UNIT 2 DATA 0 R3 = PDT FOR UNIT 3 FG$$$$ DATA 0 R4 = I/O FLAGS @ DATA $-$ R5 = BLWP WP DATA $-$ R6 = BLWP PC DATA 0,0,0,0 R7-R10 = SCRATCH DATA $-$ R11 = LINKAGE REGISTER DATA >#### R12 = TILINE/CRU ADDRESS @ DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST @ EN$$$$ EQU $ POINTER TO NEXT PDT * PAGE @ ============ MAP FILE SEGMENTS =============== EQU $+4 DEVICE EQUATE REF $$ DATA $$ DEVICE MAP FILE DATA 3 SEGMENT DATA MAPIOC,0,0,0,0,0 MAP FILE * @ REF $$ DATA $$ ADDS TERMINAL DATA 4 SEGMENT MAPADS DATA MAPIOC,0,0,0,0,0 MAP FILE * @ 715 716 ================= TSB FOR DISKS ======================== ********************************************************** **** TSB FOR FILE MANAGEMENT TASK ************************ ********************************************************** FM$$ EQU $ @ DATA 0 QUEUEING LINK DATA 0,0,0 WP,PC,ST BYTE 0 PRIORITY BYTE >24 STATE (WAITING FOR QUEUE ACT) DATA >F000 FLAGS DATA $+>5A TASK ADDRESS DATA 0 INSTALLED ID / RUN TIME ID DATA $+>22 MAP FILE ADDRESS DATA FE$$ LINK TO NEXT TSB @ DATA 0 KSB ADDRESS DATA 0 SECONDARY FLAGS TEXT 'FM$$' BID PARAMATERS (TASK NAME) @ DATA 0 ALT TSB ADDRESS BYTE 0 CRT CHARACTER BYTE 0 TILINE I/O COUNT DATA 0,0 PSB ADDRESSES DATA 0 PROGRAM FILE FCB DATA 0,0,0,0 DIAGNOSTIC INFO DATA 0,0 TIME DELAY COUNTER DATA MAPFK,0,0,0,0,0 SAVED MAP FILE BYTE 0,0 FIXED PRI, TASK REG # DATA 0,0,0,0 FAMILY TREE LINKS DATA 0 OVERLAY TABLE ADDRESS DATA 0 OVERLAY RETURN PC DATA 0 ADDRESS OF OVERLAY AREA DATA 0 # OF TIME SLICES REMAINING DATA 0 TIME SUSPEND DATA 0 GETMEM SCRATCH DATA 0,0,0,0 ROLL OUT INFO DATA >8000 LOCAL LDT FLAGS (HEADER) DATA LDTLST LOCAL LDT LIST POINTER BYTE 0 # EOR'S OUTSTANDING BYTE 0 # OF I/O CALLS OUTSTANDING DATA FMQSER QUEUE HEADER SERVED BY TASK DATA 0 TASK SENTRY COUNT ********************************************************** *** TASK AREA FOR FILE MANAGEMENT TASK ******************* ********************************************************** * TASK DEFINITION BLOCK DATA $+6,FM$PC,FM$ABD INITIAL WP,PC & END ACTION * WORKSPACE BSS 10*2 R0-R9 DATA $+12 R10 = STACK POINTER BSS 5*2 R11 - R14 BSS STKLEN STACK AREA TEXT 'EOS' EVEN FE$$$$ EQU $ @ PAGE @ ========================= COMM EXTENSION ============================== *** COMM PDT EXTENSION *** DATA $ START OF EXTERNAL CRB CHAIN DATA $ END OF EXTERNAL CRB CHAIN DATA $ START OF INTERNAL CRB CHAIN DATA $ END OF INTERNAL CRB CHAIN DATA IT$$$$ NEXT LOWER TABLE ADDRESS @ DATA PDTSTK PDT STACK ADDRESS *** SOFTWARE LEVEL QUEUE FOR END RECORD REQUEST *** PD$$$$ DATA 0 NEWEST END RECORD REQUEST @ DATA 0 OLDEST END RECORD REQUEST DATA 0 SOFTWARE SCHEDULING CELL DATA -1 BUSY FLAG (SET IDLE) DATA 0 SOFTWARE LEVEL PRIORITY -1 DATA 0 END RECORD REQUEST COUNTER *** COMM PDT STATISTICS **** DATA 0 TSB OF OPENING TASK DATA 0 NUMBER TIMEOUT ENTRIES TO DSR DATA 0 INTERNAL CRB BUFFER NOT AVAILABLE DATA 0 DATA BUFFER NOT AVAILABLE DATA 0 SYS TABLE NOT AVAILABLE DATA 0 NUMBER ABORTS INITIATED DATA 0 NUMBER ABORT COMPLETION DATA 0 ERROR RELEASING CRB MEMORY DATA 0 CRB DEQUEUE ERROR DATA 0,0,0 *** TEMPORARY *** @ DATA -1 ADDS BUFFER DATA 5 SEGMENT DATA MAPADS,0,0,0,1920,0 MAP FILE * @ ============== LDT FOR SECONDARY DISK ================ *** SECONDARY DISK LDT **** DATA PS$$$$ PDT ADDRESS @ BYTE >## LUNO BYTE 0 INITIATE I/O FLAGS DATA >880 LDT FLAGS DATA $+4 LDT LINK DATA 0 TSB ADDRESS * @ 812 813 814 =================== SYSTEM OVERLAY AREAS ================ DATA $+806,-1,-1 POINTER TO NEXT BUFFER BSS 800 SYSTEM OVERLAY AREA * @ DATA 0,-1,-1 LAST SYSTEM OVERLAY BSS 800 SYSTEM OVERLAY AREA @ ADJUST 5 ADDS TERMINAL ADJUST 5 3270 COMM DEVICE ADJUST 5 3780 COMM DEVICE ADJUST 5 911 CRT ADJUST 5 913 CRT ADJUST 5 979 MAG TAPE ADJUST 5 ASR ADJUST 5 SYSTEM COMMON ADJUST 5 CARD READER ADJUST 5 DISK ADJUST 5 FILE MANAGEMENT AND KIF ADJUST 5 FLOPPY ADJUST 5 I/O COMMON ADJUST 5 KSR ADJUST 5 LINE PRINTER ADJUST 5 MEMORY RESIDENT TASKS ADJUST 5 SYSTEM ROOT ADJUST 5 SPECIAL DEVICE ADJUST 5 SVC AND I/O ADJUST 5 820 TERMINAL *** $$$$ PDT CARD READER *** *** $$$$ PDT LINE PRINTER *** *** $$$$ PDT ASR 733 *** *** $$$$ PDT KSR 733 *** *** $$$$ PDT MAG TAPE *** *** $$$$ PDT DISK *** *** $$$$ PDT 913 CRT *** *** SPECIAL DEVICE *** *** $$$$ PDT COMMUNICATIONS *** *** $$$$ PDT CASSETTE *** *** $$$$ PDT FLOPPY DISKETTE *** *** $$$$ PDT 911 CRT *** *** $$$$ PDT 820 TERMINAL *** *** $$$$ PDT ADDS TERMINAL *** 855 ADJUST 5 2780 COMM DEVICE DATA TABL$$,0,0,0 MULTIPLE INTERRUPT TABLE PTR DATA $+2,PD$$$$,CRINT,MP$$$$ CARD READER DATA $+2,PD$$$$,LPINT,MP$$$$ LINE PRINTER DATA $+2,KB$$$$,KBI733,MP$$$$ ASR DATA $+2,KB$$$$,KBI733,MP$$$$ KSR DATA $+2,WP$$$$,MTINT,MP$$$$ MAG TAPE DATA $+2,WP$$$$,DINT,MP$$$$ DISK DATA $+2,KB$$$$,KBI913,MP$$$$ 913 CRT DATA $+2, SPECIAL DEVICE DATA IT$$$$,0,0,MP$$$$ COMM DEVICE DATA $+2,KB$$$$,KBI733,MP$$$$ CASSETTE DATA $+2,WP$$$$,FPYDCD,MP$$$$ DISKETTE DATA $+2,KB$$$$,KBI911,MP$$$$ 911 CRT DATA $+2,KB$$$$,INT820,MP$$$$ 820 TERMINAL DATA $+2,KB$$$$,KBIADS,MP$$$$ ADDS TERMINAL THE SYSTEM TABLE AREA IS A MEMORY RESIDENT, RESERVED AREA THAT IS USED TO MAINTAIN SYSTEM DATA STRUCTURES. THE SIZE OF THIS AREA IS HIGHLY DEPENDENT ON THE SYSTEM CONFIGURATION. A GUIDELINE TO FOLLOW WHEN SPECIFING THIS AREA IS AS FOLLOWS: SYSTEM TABLE SIZING FEATURE ADDITIONAL WORDS BASE SYSTEM AREA * 1100 WORDS ACTIVE FOREGROUND SCI ** 300 WORDS ACTIVE BACKGROUND SCI ** 350 WORDS ADDITIONAL PER INSTALLED DISK 200 WORDS * SYSTEM AREA FOR A SINGLE TERMINAL SYSTEM; WITH 1 FOREGROUND AND 1 BACKGROUND SCI ALLOWED; AND ONLY THE SYSTEM DISK INSTALLED ** THESE ESTIMATES ARE FOR NOMINAL LOADING. GEN990 PROVIDES NO DEFAULT FOR THIS PARAMETER: @ 3270 CRU ADDRESS: (NONE) WHAT IS THE CRU ADDRESS OF THE 3270 EMULATOR FOR THIS DEVICE: THE 3270 COMMUNTICATION EMULATOR CAN BE RUN ON EITHER THE 911 CRT OR THE LINE PRINTERS. WHEN THIS OPTION IS DESIRED, IT IS NESSASARY TO DEFINE A 3270 COM DEVICE TO GEN990 PREVIOUS TO DEFINING THE 911 CRT OR 810 LP. WHEN THESE DEVICES ARE DEFINED, ENTER THE CRU ADDRESS OF THE EMULATOR TO GEN990 ON REQUEST. WHEN THIS OPTION IS NOT DESIRED, ENTER "NONE" TO THE RESPONSE. DEFAULT IS "NONE" @ 896 897 898 899 BUFFER MANAGEMENT: (1K) WHAT IS THE SIZE OF THE MEMORY RESIDENT BUFFER? DX10 USES BUFFERS TO HANDLE FILE MANAGEMENT I/O. ONE OF THESE BUFFERS IS ALWAYS IN MEMOERY AND NEVER CAN BE RELEASED. THIS BUFFER IS USED TO PREVENT DEADLOCK SITUATIONS WITH DISK I/O. GEN990 NEEDS TO KNOW THE SIZE OF THIS BUFFER. THE SIZE SHOULD BE AT LEAST AS LARGE AS THE LARGEST PHYSICAL RECORD IN THE SYSTEM. ENTER THE SIZE IN BYTES. DEFAULT = 1024 BYTES @ INTERTASK: (100) HOW MUCH TABLE SPACE IS TO BE DEDICATED FOR INTERTASK MESSAGES: THE INTERTASK COMMUNICATION BUFFERS ARE TAKEN FROM THE SYSTEM TABLE AREA. ENTER THE MAXIMUM WORDS OF MEMORY THAT DX10 CAN USE FOR INTERTASK BUFFERS. THIS PARAMETER MUST BE DEFINED WHEN SORT MERGE IS GOING TO BE RUN ON THE SYSTEM. DEFAULT = 100 BYTES @ I/O BUFFERS: (0) HOW MUCH ADDITIONAL BUFFER SPACE SHOULD BE INCLUDED IN THE SYSTEM? THE BUFFERS FOR I/O OPERATIONS THROUGH PHYSICAL DEVICES ARE ALLOCATED IN THE SYSTEM TABLE AREA. ADDITIONAL SPACE MAY BE NEEDED FOR THESE BUFFERS IF MANY INITIATE I/O CALLS ARE MADE TO THE SYSTEM. BUFFERS FOR SPECIAL DEVICES SHOULD ALSO BE INCLUDED IN THE AMOUNT OF ADDITIONAL BUFFER AREA. GIVE THE VALUE IN BYTES. DEFAULT = 0 BYTES @ TIME SLICING ENABLED? (YES) DO YOU WANT TIME SLICING ENABLED IN THIS SYSTEM? (YES) IN A SYSTEM WITH TIME SLICING ENABLED, EACH TASK IS ALLOWED TO EXECUTE FOR A SYSGEN DEFINED INTERVAL OF TIME. AFTER THIS TIME INTERVAL HAS EXPIRED THE TASK IS SUSPENDED AND OTHER TASKS ARE ALLOWED TO EXECUTE. IN A SYSTEM WITH TIME SLICING DISABLED, THE HIGHEST PRIORITY TASK WILL EXECUTE UNTIL IT COMPLETES OR VOLUNTARILY SUSPENDS EXECUTION. @ SEQUENTIAL PLACEMENT = $4 @ INTERRUPT: $4 @ TIME SLICE VALUE: (1) TIME SLICE VALUE IN SYSTEM TIME UNITS: (1) IN A SYSTEM WITH TIME SLICING ENABLED, EACH TASK IS ALLOWED TO EXECUTE FOR A CERTAIN INTERVAL OF TIME. AFTER THIS TIME INTERVAL HAS EXPIRED, THE TASK IS SUSPENDED AND OTHER TASKS ARE GIVEN A CHANCE TO EXECUTE. THE LENGTH OF THIS TIME INTERVAL IS KNOWN AS THE TIME SLICE. THIS VALUE IS GIVEN IN SYSTEM TIME UNITS. A SYSTEM TIME UNIT IS EQUAL TO 50 MILLISECONDS. @ TIME SLICING ENABLED = $4 @ TASK SENTRY ENABLED = $4 @ BUFFER SIZE = #4 CHAR. @ BREAKPOINTS = #3 @ SYSTEM LOG MESSAGES = #3 @ SYSTEM OVERLAY AREAS = #3 @ USER INTERRUPT DECODER PATHNAME = ! PRINT WIDTH = #3 CHAR. @ SERIAL PRINT MODE @ PARALLEL PRINT MODE @ CRT TYPE = #3 @ CASSETTE TIME OUT = #4 SECONDS @ CASSETTE ACCESS TYPE = $6 @ CHARACTER QUEUE SIZE = #3 @ KSB ADDRESS = $6 @ INTERRUPT WORKSPACE = $6 @ EXTENDED CHARACTER SET = $4 @ DEVICE TYPE = ASR @ DEVICE TYPE = KSR @ DEVICE TYPE = CRT @ DEVICE TYPE = SPECIAL DEVICE @ MEMORY RESIDENT BUFFER AREA = #4 BYTES @ INTERTASK MESSAGE AREA = #4 WORDS @ OUTPUT FILE = $7 @ TAPE MANAGEMENT PACKAGE = $4 @ NAME = $4 @ ADDITIONAL I/O BUFFER AREA = #4 BYTES @ INPUT FILE = $7 GENERATED #2/#2/#2 AT #2:#2 @ OUTPUT FILE = $7 GENERATED #2/#2/#2 AT #2:#2 @ TIME SLICE VALUE = #4 SYSTEM TIME UNITS @ DEFAULT PHYSICAL RECORD SIZE = #4 BYTES @ TABLE SIZE = #5 WORDS @ COMMON INPUT MODULE = ! KEY INDEX FILE LOGIC = $4 @ TASK SENTRY VALUE = #4 SYSTEM TIME UNITS @ X0P ENTRY WS FILE @ #3 $6 $6 ! SVC ENTRY LENGTH FILE @ >"2 $6 #3 ! CRU = >"4 @ TILINE =>"4 @ INTERRUPT #3 @ TIME OUT = #4 SECONDS @ NAME = $4 @ FILE : ! PC : $6 @ WP : $6 @ INTERRUPT ENTRY : $6 @ SCI BACKGROUND LIMIT = #3 @ SCI FOREGROUND LIMIT = #3 @ XOP = #3 @ ACCESS TYPE = $6 @ EXPANSION CARD#2 = #2 @ $4 @ PDT FILE = ! NAME = @ SVC BLOCK LENGTH = #3 BYTES @ POSITION #3 @ CRU INTERRUPT BIT = >"2 @ CRU INTERRUPT BIT = NA @ CLOCK INTERRUPT LEVEL = #2 @ INITIAL TASK ID = >"2 @ 3270 CRU ADDRESS = >"4 @ 3270 CRU ADDRESS = NONE @ DEVICE STATION ID @ $4 "2 @ PACKAGE TYPE = #4 @ CHASSIS #3 @ LINE FREQUENCY = #2 HZ @ OVERRIDE ON INTERRUPT AND CRU = $3 @ DRIVES = #2 @ FILE MANAGEMENT TASK COUNT = #2 @ DEVICE TYPE = 820 @ DEVICE TYPE = ADDS @ LINE: (60) WHAT LINE FREQUENCY IS THIS SYSTEM USING: LINE FREQUENCIES VARY IN DIFFERENT COUNTRIES. THE EUROPEAN LINE FREQUENCY IS 50 HZ AND THE LINE FREQUENCY IN THE USA IS 60 HZ. ENTER ONE OF THESE VALUES. 60 HZ IS USED AS THE DEFAULT VALUE. @ KSB: (NONE) WHAT LABEL DEFINES THE KEYBOARD STATUS BLOCK FOR THIS DEVICE? EVERY DEVICE THAT HAS A KEYBOARD ASSOCIATED WITH IT MUST HAVE A KEYBOARD STATUS BLOCK INCLUDED IN ITS PDT. IF THIS SPECIAL DEVICE DOES NOT HAVE A KSB, ENTER A ON REQUEST. IF THIS IS A KEYBOARD DEVICE, ENTER THE LABEL ASSOCIATED WITH ITS KSB. @ COUNTRY CODE = $9 $9 @ TIME OUT: WHAT IS THE TIME OUT VALUE FOR THIS DEVICE: WHEN THE COMPUTER IS EXPECTING I/O TO BE PERFORMED ON A DEVICE, IT WAITS FOR AN ALLOTTED TIME INTERVAL AND THEN ASSUMES THAT AN ERROR HAS OCCURED WITH THE DEVICE. THIS INTERVAL IS THE TIME OUT COUNT. IF NO TIME OUT COUNT IS DESIRED REPLY "0" ON REQUEST. IF A TIME OUT COUNT IS DESIRED, ANSWER WITH THE TIME OUT INTERVAL IN SECONDS. A DEFAULT VALUE IS PROVIDED IF A IS ENTERED ON REQUEST. @ CHARACTER QUEUE: (6) HOW MANY CHARACTERS SHOULD THE CHARACTER QUEUE CONTAIN? EACH KEYBOARD DEVICE HAS A KEYBOARD STATUS BLOCK ASSOCIATED WITH IT. IN THE KSB IS A CHARACTER QUEUE WHICH ALLOWS THE USER OF THE KEYBOARD DEVICE TO BUFFER INPUT BETWEEN I/O REQUESTS. WHEN THE QUEUE OVERFLOWS THE CHARACTERS INPUT ARE LOST. ENTER THE LENGTH OF THIS CHARACTER QUEUE. DEFAULT = 6 CHARACTERS @ DEFAULT RECORD SIZE: (864) WHAT IS THE DEFAULT PHYSICAL RECORD SIZE? THE USER CAN SPECIFY THE SIZE OF THE DEFAULT PHYSICAL RECORD SIZE THAT THE SYSTEM WILL GIVE A FILE AT CREATE TIME WHEN NONE IS SPECIFIED IN THE SUPERVISOR CALL BLOCK. THE SYSTEM ALOCATION SCHEME IS SET UP IN SUCH A WAY THAT MULTIPLES OF THREE SECTORS ON THE DISK ARE THE BEST PHYSICAL RECORD SIZES. ENTER THIS VALUE ON REQUEST FOR EACH DISK CONTROLLER. DEFAULT SIZE = 864 BYTES (3 SECTORS ON DIABLO & TRIDENT PACKS) @ INTERRUPT CRU BIT: (NA) WHAT IS THIS SPECIAL DEVICES INTERRUPT CRU BIT. WHEN MULTIPLE DEVICES ARE ON THE SAME INTERRUPT LEVEL, THE CRU BIT THAT INDICATES THAT AN INTERRUPT OCCURED ON THAT DEVICE NEEDS TO BE KNOWN BY GEN990 TO BUILD THE INTERRUPT DECODER. THE STANDARD BIT IS 15, BUT MAY DIFFER ON SOME DEVICES. ENTER THE BIT ADDRESS FOR THIS DEVICE. THIS INFORMATION IS NOT NEEDED WHEN THE SPECIAL DEVICE DOES NOT SHARE AN INTERRUPT LEVEL WITH ANOTHER DEVICE. @ FILE MANAGEMENT TASKS: (2) HOW MANY COPIES OF FILE MANAGER SHOULD BE INCLUDED IN THE SYSTEM? THE FILE MANAGEMENT TASK PROCESSES ALL THE FILE I/O REQUESTS. BY INCLUDING ADDITIONAL COPIES OF THE TASK, SEVERAL FILE I/O REQUESTS MAY BE PROCESSED CONCURRENTLY, YIELDING FASTER AVERAGE PROCESSING OF EACH REQUEST. EACH TASK REQUIRES 272 WORDS IN THE SYSTEM ROOT. A SUGGESTED VALUE FOR THIS PARAMETER IS 1 TASK PER DISK DRIVE. DEFAULT = 2. @ COMM PACKAGE: (3780) WHICH COMM PACKAGE IS BEING DEFINED? GEN990 SUPPORTS TWO COMM EMULATORS, THE 3780 AND THE 3270. SPECIFY WHICH OF THESE PACKAGES IS BEING DEFINED. DEFAULT = 3780 @ OVERRIDE? (YES) DO YOU WANT GEN990 TO OVERRIDE THE INTERRUPT & CRU ADDRESS IN THE PDT? WHEN THE USER ENTERS THE PDT FOR A SPECIAL DEVICE HE MAY WANT THE VALUE FOR THE INTERRUPT AND CRU ADDRESSES UPDATED TO THE VALUES SPECIFIED IN SYSGEN. WHEN THIS IS DESIRED ENTER "YES" TO THIS PROMPT. TO USE THE VALUES WRITTEN IN THE PDT ENTER "NO". DEFAULT = "YES" @ SYSLOG: (6) WHAT IS THE MAXIMUM NUMBER OF SYSTEM LOG MESSAGES ALLOWABLE? THE SYSTEM LOG CONTAINS A RECORD OF DEVICE ERRORS AND USER SPECIFIED MESSAGES. THE MESSAGES ARE WRITTEN TO THE SYSTEM LOG DEVICE. THE SYSLOG PARAMETER DESIGNATES HOW MANY MESSAGES MAY BE QUEUED WAITING TO WRITE TO THE SYSTEM LOG. THIS NUMBER SHOULD BE DEPENDENT ON THE SPEED OF THE SYTEM LOG. THE MEMORY FOR THE MESSAGES IS TAKEN FROM THE SYSTEM TABLE AREA. IF THIS NUMBER IS TOO LARGE, THE SYSTEM AREA MAY OVERFLOW. IF THE NUMBER IS TOO SMALL, MESSAGES WILL ROUTINELY BE LOST. THE USER SHOULD ENTER A "0" ON REQUEST IF HE DOES NOT WANT TO INCLUDE THE SYSTEM LOG OPTION IN THE SYSTEM DEFAULT = 6 MESSAGES @ CRU: (>40) CRU: (>60) CRU: (>00) TILINE: (F880) TILINE: (F800) CRU: (>100) CRU: (>20) CRU: (>80) CRU: (>140) TIME OUT: (30) TIME OUT: (0) ACCESS TYPE: (FILE) ACCESS TYPE: (RECORD) INTERRUPT: (4) INTERRUPT: (14) INTERRUPT: (6) INTERRUPT: (9) INTERRUPT: (13) INTERRUPT: (10) INTERRUPT: (15) INTERRUPT: (7) INTERRUPT: (8) INTERRUPT: (3) 1106 1107 BUFFER SIZE: (0) WHAT IS THE SIZE OF THE COMMUNICATION DEVICE BUFFER? EACH COMMUNICATIONS PACKAGE HAS ITS OWN DEVICE BUFFER LENGTH. THE USER MAY MODIFY THIS VALUE IF HE DESIRES. WHEN THE USER ENTERS THE VALUE ZERO, THE COMMUNICATION SYSGEN PROCEDURE WILL USE THE DEFAULT VALUE FOR THAT PACKAGE. FOR MORE INFORMATION ON THE BUFFER LENGTH CONSULT THE COMMUNICATION SYSGEN DOCUMENTATION. DEFAULT = 0 @ DO YOU WANT TO INCLUDE THE TAPE MANAGEMENT PACKAGE IN THE SYSTEM? THE USER HAS THE OPTION OF INCLUDING TMP IN HIS SYSTEM. TMP ALLOWS THE USER TO PERFORM BLOCKED I/O ON THE MAG TAPE. DIRECT I/O TO THE MAG TAPE IS SUPPORTED WITHOUT THIS LOGIC. THE DEFAULT FOR THIS ENTRY IS NOT TO INCLUDE TMP IN THE SYSTEM. @ ================= SPECIAL DEVICES ====================================== PS$$$$ EQU $ START OF SPECIAL DEVICES COPY EN$$$$ EQU $ RORG 2+PS$$$$ DATA MP$$$$ MAP FILE OF SEGMENT RORG 42+PS$$$$ TEXT '####' NAME OF DEVICE RORG 84+PS$$$$ DATA >#### STATION ID RORG 96+PS$$$$ DATA >#### CRU ADDRESS RORG 8+PS$$$$ DATA >#### INTERRUPT ADDRESS RORG 28+PS$$$$ DATA >#### CRU ADDRESS RORG EN$$$$ RESTORE TO STARTING PC ================ CHASSIS TABLE EQUATES ===================== * ETAB EQU $ EXPANSION CHASSIS TABLE DATA CTABX,CTABX,CTABX,CTABX,CTABX,CTABX,CTABX,CTABX @ * CTAB$ EQU $ @ DATA CTABL$ LENGTH OF TABLE CTABL$ EQU $-CTAB$-2 DATA $+2,XWS,IX,MAPSHD ===================== LINK MAP ADDRESS ================== NOSYMT FORMAT IMAGE,REPLACE PROCEDURE DUMMY DUMMY @ END TASK PHASE 1, PHASE 2, INCLUDE ===================== BATCH STREAM =================================== *================ SYSGEN COMPLETION BATCH STREAM ================ ******************* ASSEMBLE D$DATA ***************** BATCH XMA SOURCE = @ OBJECT = LIST = XMA$L, OPTION = (BUN,TUN,DUN) .SYN XMA$L = "" .IF @$$CC,GE,04000 CM R=ME,M="*** ALGS - D$DATA ASSEMBLY ERROR = @$$CC ***" .STOP T="*** ALGS - D$DATA ASSEMBLY ERROR ***" .ENDIF ******************** LINK THE SYSTEM ****************** XLE CONTROL= @ LINK = LIST = .IF @$$CC,GE,04000 CM R=ME,M="*** ALGS - SYSTEM LINK EDIT ERROR = @$$CC ***" .STOP T="*** ALGS - SYSTEM LINK EDIT ERROR ***" .ENDIF ******************** RUN SYNONYM ASSIGNMENT PROG ******** XPS LINK = @ INPUT = OUTPUT = ERROR = .SYN $$CC ="@$XPS$E" .IF @$$CC,GT,00000 .SHOW @ .ENDIF .IF @$$CC,GE,08000 CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***" .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***" .ENDIF .IF @$$CC,GT,00000 CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC ***" .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***" .ENDIF CM R=ME,M="*** ALGS - NORMAL TERMINATION ***" .STOP T="*** ALGS - NORMAL TERMINATION ***" @ PHASE 3, PHASE 4, JNE PCE70 IF NOT MULTI DEVICE POSITION MOV R12,R9 SAVE CRU BASE PCE30 MOV *R7+,R12 CRU INTERRUPT BIT @ JEQ PCE60 IF END OF TABLE TB 0 TEST INTERRUPT BIT JNE PCE50 IF NO INTERRUPT MOV *R7,R12 R12 = ENTRY VECTOR ADDRESS MOV @6(R7),R10 DSR MAP FILE POINTER MOV R10,@CURMAP LMF R10,0 BLWP *R12 ENTER THE DSR PCE50 AI R7,8 CHECK NEXT DEVICE JMP PCE30 PCE60 MOV R9,R12 RESTORE CRU BASE JMP PCE10 CHECK AGAIN FOR INTERRUPT PCE70 EQU $ @ 1220 SEQUENTIAL PLACEMENT?: (YES) SHOULD THE RECORDS BE INSERTED SEQUENTIALLY ? RECORDS CAN BE INSERTED USING EITHER A SEQUENTIAL OR HASHING PLACEMENT ALOGRITHM. FOR ALL PRE 3.3 RELEASED SYSTEMS THE HASHED METHOD MUST BE USED. FOR ALL OTHER SYSTEMS THE SEQUENTIAL PLACEMENT METHOD IS FASTER AND MORE EFFICIENT. @ * LINE PRINTER PDT EXTENSION 04/30/79 DATA 0 DATA MODULE FLAG @ DATA 0 # OF BUFFERED CHARACTERS DATA $+8 POINTER TO NEXT OUTPUT CHAR. DATA $+6 POINTER TO NEXT STORE SLOT DATA 170 MAX. NUMBER OF BUFFERED CHAR. DATA 0 FLAG TO TRIGGER END RECORD EXIT BSS 170 CHARACTER BUFFER @ COUNTRY CODE: (US) IN WHICH COUNTRY IS THIS SYSTEM BEING USED? THE KIF LOGIC USES THE COUNTRY CODE TO SELECT THE APPROPRIATE COLLATING SEQUENCE FOR THE LANGUAGE OF THE COUNTRY IN WHICH THE SYSTEM IS BEING USED. THE DEFAULT VALUE IS THE U.S.A. WHERE THE STANDARD ASCII COLLATING SEQUENCE IS USED. ENTER ONE OF THE FOLLOWING COUNTRY NAMES OR ITS ABBREVIATIONS: AU - AUSTRIA JA - JAPAN BE - BELGIUM NOR - NORWAY DE - DENMARK SW - SWEDEN FI - FINLAND UK/EN - ENGLAND FR - FRANCE US - UNITED STATES GE - GERMANY (DEFAULT = US) @ =============== D$DATA TEMPLATE ========================== TITL 'D$DATA - DX10 DATA BASE' PAGE IDT 'D$DATA' * TITLE: D$DATA * DX10 DATA BASE * REVISION: 09/09/79 * CREATED BY GEN990 * SYSTEM NAME = @ * COMPUTER: 990/10 - MACRO ASSEMBLER * ABSTRACT: * THIS IS THE DATA BASE FOR DX10. IT CONTAINS * NUMEROUS SYSTEM STRUCTURES, POINTERS AND * VALUES DEPENDENT ON THE SYSTEM CONFIGURATION. * * DEFINED STUCTURES IN THIS MODULE ARE: * 1) TSB'S AND WORK AREAS FOR EACH DISK * 2) KSB'S FOR STATION TERMINALS * 3) PDT'S FOR EACH DEVICE * 4) PSB FOR DX10 PROCEDURE * 5) USER SUPPLIED SVC TABLE * 6) INITIAL COPY OF INTERRUPT TRAPS * * CALLING SEQUENCE: * INTERRUPT OR XOP CALL PAGE *** DXDATA DEF'S DEF DXDB,SLICE,UPS,STUNIT,STUNT4,DSTUNT,MAXIO DEF TM$TSV,TM$SLC DEF TABSIZ,UAHEAD,UAHADD,UABADD,UATLEN DEF SATLEN,SAHIAD,SAHEAD,SABADD DEF MEMSIZ,MEMSW DEF ENDDXL,ENDLIM,ENDADD,BASADJ DEF TMTOL,TMTOLN,TMTOLO,TOLBET,TDL DEF ETSK,TSKLST,TSKSTR,LDTLST,PSBSTR DEF SLCNT,SLCTIM,TM$DFR,TMESLC,NUMDEC DEF RIDMAP,FIDMAP,RSTRSW,RSTRID DEF PF$FCB,PF1LDT,PF2LDT,PF3LDT DEF RF$FCB,RF$LDT,OF$FCB,OF$LDT DEF BM$SZ,BM$SIZ,BM$CNT,BM$LMT DEF BIDTSB,FMPTSB DEF USVCTB,USVCMX,USVCLN DEF KBTAB,MAXSTA,MAXST2 DEF SYSTAB,PSBLST,PDTLST DEF DUMMY,TTY,LP,CS,CR,CRT DEF DSC,COM,MT DEF AQPTRS,ENDSTB,OADPTR,BPT,XY,DIOPDT DEF SLNLUN,SLNLID,SLNMCA,SLNFLG,SLNQUE DEF ITSKMX,ITSKCR,IOSMAX,IOSSTA,IOSHBC DEF CURMAP,MAPFK,MAPSHD,MAPMR,MAPCMN DEF FMQSER,FMTTSB,MAPLST,CTRYVL DEF SCIBMX,SCIFMX,DXSTRT,CMEMSZ DEF @ * EXTERNALLY DEFINED VARIABLES REF D$STRT,ITSB,DDTTSB REF DSCMGR,DM$QUE,FM$PC,FM$ABD REF BIDDER,BIDQUE,OVYTAB,THEEND REF KBIDLE,ASRHAN,CASHAN,GOREN,ASREXT,KBI733 REF HAN820,RENTER,IDL820,INT820 REF ADSHAN,ADSEXT,ADSREN,ADIDLE,KBIADS,ADSBUF REF DRTWP,DIODSR,DTBSY,DINT REF LPSPUR,LPHAN,LPINT REF CRSPUR,CRHAN,CRREN,CRINT REF TDI911,CRT911,KBI911 REF TDI913,CRT913,KBI913 REF MTHAN,MTINT,TRTWP REF FPYDSR,FPYINT,FPYSPR,FPYDCD REF COMDSR,COMINT,PDTSTK REF TRAPRT,ILLSVC,CLKWSP,CLKPC REF IIE,IIWSP,SCWSP,SVCPRC REF PRUPWP,PWRUP,PWRWSP,PWRDN,SCRASH,PFRSIB * REFS DEFINED TO SYSGEN REF @ PAGE * DXDB EQU $ * * SYSTEM EQUATES OF ONE SORT OR ANOTHER * SLICEF EQU >#### TIME SLICING ENABLED FLAG @ TSENT EQU >#### TASK SENTINAL VALUE (=0 => SENTINAL DISABLED) UPS EQU >#### TICKS PER SECOND (= LINE FREQ*2) STUNIT EQU >#### SYSTEM TIME UNIT (= # OF TICS IN 50 MS) SLICE EQU >####*STUNIT TIME SLICE VALUE IN TICS STUNT4 EQU STUNIT*4 USED BY EXTEND TIME SLICE TABSIZ EQU >#### SYSTEM TABLE AREA = 2K WORDS @ CTRYVL EQU >#### COUNTRY CODE @ * DXSTRT EQU $ START OF D$DATA ENTRY DATA $ DX10 ENTRY POINT (LOAD AT >A0) DATA SYSPTS POINTER TO MISC. SYSTEM INFO MAXIO BYTE 5,0 MAX INITIATE I/O COUNT DATA OVYTAB LOCATION OF THE OVERLAY TABLE DATA THEEND LENGTH OF THE SYSTEM DATA MAPLST MAP FILE TABLE KIF DATA >#### NEW/OLD KIF FLAG @ DATA 0,0,0,0,0 >>RESERVED FOR MEM/DSC UTILIZATION STATS<< TEXT ' ' SYSTEM NAME @ RORG $-DXDB+31/32*32+DXDB GETS TO BEET BOUNDARY UAHEAD EQU $ DATA 0 MEMORY LIST HEADER, LEN=0 DATA $-$ PTR TO FIRST AVAIL BOB UABADD DATA $-$ STARTING ADDRESS OF USER AREA UATLEN EQU $ DATA $-$ TOTAL LENGTH OF USER AREA * SYSTEM TABLE AREA HEADER SAHEAD EQU $ DATA 0 HEADER LENGTH = 0 DATA SYSTAB POINTER TO FIRST AVAIL BLOCK SABADD DATA SYSTAB START OF AREA SATLEN DATA TABSIZ TOTAL SIZE OF AREA SAHIAD DATA 0 HIGHEST EVER ALLOCATION DATA 0 (NOT USED) CURRENT LOW ALLOCATION * TIME-ORDERED LIST HEADER RORG $-DXDB+31/32*32+DXDB GETS TO BEET BOUNDARY TMTOL EQU $ DATA 0 LENGTH OF OVERHEAD DATA 0 ** UNUSED IN HEADER ** TMTOLN DATA $-$ FORWARD LINK (POINTER TO NEWEST) TMTOLO DATA $-$ BACK LINK (POINTER TO OLDEST) DATA -1 TYPE = HEADER TOLBET DATA $-$ BEET ADDRESS OF TMTOL SYSPTS EQU $ UAHADD DATA $-$ BIAS REG VALUE FOR LIST HEAD MEMSIZ DATA $-$ MEMORY SIZE * SET THE FOLLOWING WORD NON-ZERO IF YOU DESIRE TO * BYPASS AUTO-DETERMINATION OF MEMORY SIZE MEMSW DATA 0 ENDLIM DATA $-$ LIMIT REG VALUE - 1 BEET PAST DX10 ENDDXL DATA $-$ LIMIT REG VALUE - END OF DX10 ENDADD DATA $-$ VIRTUAL ADDRESS - 1 BEET PAST DX10 BASADJ DATA $-$ BIAS REGISTER ADJUST VALUE DSTUNT DATA STUNIT CLOCK TICKS/SYSTEM TIME UNIT TDL DATA 0 TIME DELAY LIST ETSK DATA 0 EXECUTING TASK TSKLST DATA ITSB START OF TSB LIST SLCNT DATA SLICE USED TO INITIALIZE SLICE COUNT. SLCTIM DATA 0 USED TO TIME SLICE TM$DFR DATA 0 TIME SLICE EXPIRED FLAG NUMDEC DATA 0 USED TO CNT TD DECREMENTS RIDMAP BSS 32 RUN-TIME TASK ID ALLOCATION MAP FIDMAP BSS 32 FIXED TASK ID MAP TMESLC DATA 0 TIME SLICE EXTENDED FLAG RSTRSW DATA 0 RESTART SWITCH TM$TSV DATA TSENT TASK SENTINAL VALUE TM$SLC DATA SLICEF TIME SLICING FLAG RSTRID BYTE >## RESTART TASK ID @ EVEN PF$FCB DATA $-$ SYSTEM PROGRAM FILE FCB PF1LDT DATA $-$ LUNO D LDT (ASSIGNED TO PF$FCB) PF2LDT DATA $-$ LUNO B LDT (ASSIGNED TO PF$FCB) PF3LDT DATA $-$ LUNO F LDT (ASSIGNED TO PF$FCB) RF$FCB DATA $-$ ROLL FILE FCB RF$LDT DATA $-$ LUNO E LDT (ASSIGNED TO RF$FCB) OF$FCB DATA $-$ SYSTEM OVERLAY FILE FCB OF$LDT DATA $-$ LUNO A LDT (ASSIGNED TO OF$FCB) * BUFFER MANAGEMENT VALUES BM$SZ EQU >#### FIXED BUFFER SIZE (BYTES) @ BM$SIZ EQU BM$SZ+31/32+1 (BEETS) BM$CNT DATA 1 COUNT OF BUFFERS ON TOL BM$LMT DATA 30 MAX # BUFFERS ALLOWED ON TOL * * ACTIVE QUEUE INFORMATION * AQPTRS EQU $ DATA 0 ADDRESS OF NEW TSB DATA 0 ADDRESS OF OLD TSB DATA 0 TSB ADDRESS FOR QUEUE SERVER DATA >C000 FLAGS/SERVER ID DATA >FF00 TSB STATE/COUNT * * USER SVC CALLS ***************************************** * USVCTB EQU $ DATA $$$$$$ USER SVC ENTRY POINT @ USVCMX EQU $-USVCTB-2/2 * USER SVC LENGTH TABLE ****************************** USVCLN EQU $ BYTE >## USER SVC BLOCK LENGTH (-1) @ EVEN PAGE *=========================================================== *==== CURRENT MAP FILE POINTER AND SYSTEM MAP FILES === *=========================================================== CURMAP DATA MAPSHD CURRENT MAP FILE POINTER MAPLST EQU $ START OF SYSTEM MAP FILES * @ REF $$ DATA $$ FILE MANAGER AND KIF DATA 1 SEGMENT MAPFK DATA 0,0,0,0,0,0 MAP FILE * @ REF $$ DATA $$ MEMORY RESIDENT TASKS DATA 2 SEGMENT MAPMR DATA 0,0,0,0,0,0 MAP FILE * @ REF $$ DATA $$ SYSTEM COMMON AREA DATA 2 SEGMENT MAPCMN DATA 0,0,0,0,0,0 MAP FILE * @ REF $$ DATA $$ I/O COMMON DATA 2 SEGMENT MAPIOC DATA 0,0,0,0,0,0 MAP FILE * @ REF $$ DATA $$ SVC AND I/O DATA 3 SEGMENT MAPSHD DATA MAPIOC,0,0,0,0,0 MAP FILE * @ DATA 0 ---- END OF TABLE --- PAGE STKLEN EQU 110*2 LENGTH OF STACK AREA WRKLEN EQU 128 LENGTH OF WORK AREA FMTTSB DATA FMTTAB ANCHOR TO TABLE OF FM TSBS FMTTAB EQU $ DATA FM @ DATA 0 END OF TABLE * FILE MANAGEMENT REQUEST QUEUE HEADER FMQSER EQU $ DATA 0,0 QUEUE ANCHOR DATA FMPTSB SERVER TSB DATA 0 FLAGS/SERVER ID DATA >FF00 STATE / QUEUE COUNT FMPTSB EQU $ ***** PUT DISK TSB'S HERE **** @ * TSB FOR BID TASK TASK BIDTSB EQU $ DATA 0 QUEUEING LINK DATA 0 WP DATA 0 PC DATA 0 ST BYTE 0 PRIORITY BYTE >24 STATE (=TERMINATED) DATA >F000 FLAGS DATA BIDDER TASK ADDRESS (OF TEST TASK ** T1A) DATA 0 INSTALLED ID/RUN ID DATA $+>22 MAP FILE ADDRESS TSKSTR EQU $ START OF NON-LINKED TSB'S DATA 0 LINK TO NEXT TSB DATA 0 KSB ADDRESS DATA 0 SECONDARY FLAGS TEXT 'TBID' BIDT PARAMETERS DATA 0 ALTERNATE TSB ADDRESS BYTE 0 913/911 CHARACTER BYTE 0 TILINE I/O COUNT DATA 0,0 PSB ADDRESSES DATA 0 PROGRAM FILE FCB DATA 0,0,0,0 DIAGNOSTIC ERROR CODE & WP,PC,ST DATA 0,0 TIME DELAY COUNTER DATA MAPMR,0,0,0,0,0 SAVED MAP FILE BYTE 0,0 FIXED PRI, TASK REG # DATA 0,0,0,0 FAMILY TREE LINKS DATA 0 OVERLAY TABLE ADDRESS DATA 0 OVERLAY RETURN PC DATA 0 ADDRESS OF OVERLAY AREA DATA 0 # TIME SLICES REMAINING DATA 0 TIME SUSPENDED DATA 0 GETMEM SCRATCH DATA 0,0,0,0 ROLL-OUT INFO DATA >8000 LOCAL LDT LIST FLAGS (HEADER) DATA LDTLST LOCAL LDT LIST POINTER BYTE 0 # EOR'S OUTSTANDING BYTE 0 # I/O CALLS OUTSTANDING DATA BIDQUE QUEUE HEADER SERVED BY TASK DATA 0 TASK SENTRY COUNT PAGE * KEYBOARD STATUS BLOCK TABLE KBTAB EQU $-2 DATA $$$$$$ STATION KSB POINTER @ MAXSTA EQU $-KBTAB-2/2 MAXST2 EQU $-KBTAB-2 DATA 0 END OF TABLE INDICATOR * EQUATED VALUES FOR DEVICE TYPES DUMMY EQU 0 DUMMY DEVICE TYPE TTY EQU 1 KEYBOARD/PRINTER DEVICE TYPE LP EQU 2 LINE PRINTER DEVICE TYPE CS EQU 3 CASSETTE DEVICE TYPE CR EQU 4 CARD READED DEVICE TYPE CRT EQU 5 CRT SCREEN DEVICE TYPE DSC EQU 6 DISK DEVICE COM EQU 7 COMMUNICATION LINE MT EQU 8 MAG TAPE AMPLE EQU >E AMPL EMULATOR AMPLT EQU >F AMPL TRACE MODULE * PDTLST DATA PDT001 PTR TO START OF PDT'S @ PDT001 EQU $ PAGE ================= INSERT PDT'S HERE ================== @ DIOPDT EQU PSDS01 PSBLST EQU $ START OF PSB LIST * * SYSTEM PSB * DATA >180 PROCEDURE ID/FLAGS DATA 0 BEET ADDRESS DATA >600 BEET LENGTH PSBSTR DATA 0 LINK TO NEXT PSB DATA $-$ PROGRAM FILE FCB PTR DATA >101 ATTACHED/BUSY COUNT DATA 0 ROLL LINK DATA 0,0 REL REC # IN FILE DATA 0 # ROLL RECORDS PAGE * START OF GLOBAL LDT LIST* * * * * * * * * * * * * * * * LDTLST EQU $ DATA PSDS01 SYSTEM DISK PDT ADDRESS BYTE 9,0 LUNO / INITIATE I/O COUNT DATA >8880 FLAGS (LIST HEAD) DATA $+4 NEXT LDT DATA 0 TSB ADDRESS ============= LDT'S FOR DISKS =================== @ *** GLOBAL LUNO 0 *** DATA PSST01 PDT ADDRESS BYTE 0,0 LUNO / INIT I/O COUNT DATA >880 LDT FLAGS DATA 0 LDT LINK DATA 0 TSB ADDRESS PAGE * START OF SYSTEM LOG DATA SLNLUN BYTE 0,0 LUNO OF CURRENT FILE / OTHER LUNO SLNLID BYTE 0,0 SYSTEM LOG EATER ID/USER LOG EATER SLNQUE BYTE >## MAX # OF QUEUE ENTRIES @ SLNFLG BYTE >58 SYSTEM LOG FLAGS SLNMCA DATA 0 MEMORY CONTROLLER ADDRESSES * START OF THE DYNAMIC SYSTEM TABLE. * SYSTEM TABLE AREA IOSMAX DATA >#### LIMIT ON TABLE AREA FOR I/O BUFFS @ IOSSTA DATA 0 # OF BYTES IOS IS USING IOSHBC DATA 0 HIGHEST AMOUNT EVER USED BY IOS ITSKMX EQU >#### LIMIT ON INTERTASK MESSAGE AREA @ ITSKCR DATA $-$ CURRENTLY USED AREA FOR INTERTASK CMEMSZ DATA $-$ CRASH FILE DUMP LENGTH SYSTAB EQU $ DATA TABSIZ SIZE OF AVAIL AREA DATA 0 PTR TO NEXT AVAIL BLOCK RORG SYSTAB BSS TABSIZ ENDSTB EQU $ *** SCI LIMIT PARAMETERS *** SCIBMX DATA >#### MAX LIMIT ON ACTIVE SCI BACKGROUND @ SCIFMX DATA >#### MAX LIMIT ON ACTIVE SCI FOREGROUND SCIFCR DATA $-$ NUMBER OF FOREGROUND TASKS ACTIVE *** BREAK POINT TABLE *** BPT DATA >#### NUMBER OF BREAK POINTS * 3 @ DATA 0,0,0 PAGE OADPTR DATA $+2 POINTER TO NEWEST OVERLAY ================= INSERT SYSTEM OVERLAYS HERE ============== @ *** INTERRUPT TRAPS HERE **** @ END DXSTRT @ REF $$ DATA $$ 911 PF TERMINAL DATA 4 SEGMENT MAP911 DATA MAPIOC,0,0,0,0,0 MAPFILE * @ REF $$ DATA $$ RTS DEVICE DATA 4 SEGMENT MAPRTS DATA MAP911,0,0,0,0,0 MAPFILE * @ REF $$ DATA $$ RTS DEVICE DATA 4 SEGMENT MAPRTS DATA MAPIOC,0,0,0,0,0 MAPFILE * @ REF $$ DATA $$ ADDS TERMINAL DATA 4 SEGMENT MAPADS DATA MAP911,0,0,0,0,0 MAPFILE * @ REF $$ DATA $$ ADDS TERMINAL DATA 4 SEGMENT MAPADS DATA MAPRTS,0,0,0,0,0 MAPFILE * @ COPY DS01.S$$RTS.RTMAPS COPY DS01.S$$RTS.RTKBRD COPY DS01.S$$RTS.RTPDT# DATA $+2,MSTRL1,MPMINT,MPLIN1 ADJUST 5 REMOTE DEVICE (RTS) ADJUST 5 RTS MULTIPOINT MASTER ADJUST 5 911 POWERFAIL DSR DATA 0,0,0,0,0,0,PFRSIB,0 POWERFAIL: (NO) DO YOU WANT TO INCLUDE POWERFAIL RECOVERY FOR THE 911? IF THE POWERFAIL OPTION IS SELECTED, THE POWERFAIL 911 DSR WILL BE INCLUDED. THIS REQUIRES AN ADDITIONAL 2080 BYTES OF MEMORY FOR EACH 911 IN THE SYSTEM. @ POWERFAIL RECOVERY OPTION = $4 @ DEVICE TYPE = RTS @ DATA -1 911PF BUFFER DATA 5 SEGMENT DATA MAP911,0,0,0,2080,0 MAP FILE * @ *============== INSTRUCTIONS FOR COMPLETING THE SYSGEN ================= THE DATA BASE FOR THE SYSTEM MUST BE ASSEMBLED AND LINKED WITH THE REMAINDER OF THE SYSTEM. GEN990 HAS CREATED A BATCH STREAM TO DO THE ASSEMBLY AND LINK. THE "ALGS" PROC MAY BE CALLED TO BID THIS BATCH STREAM. = TARGET DISC SPECIFED IN SYSGEN = OUTPUT PARAMETER DEFINITION PROMPT RESPONSE TARGET DISC: SYSTEM NAME: D$DATA LISTING: (USER DEFINED) BATCH LISTING: (USER DEFINED) WHEN THE BATCH STREAM IS COMPLETED WITHOUT ERRORS, THE MESSAGE "*** ALGS - NORMAL TERMINATION ***" WILL APPEAR ON THE SCREEN. IF ANY OTHER MESSAGE APPEARS, AN ERROR HAS OCCURED AND THE BATCH LISTING SHOULD BE EXAMINED TO DETERMINE THE CAUSE OF THE ERROR. AFTER THE SYSTEM IS LINKED, THE PATCH STREAM MUST BE RUN AGAINST THE LINKED IMAGE. TO PATCH THE SYSTEM, BID THE "PGS" PROC. PROMPT RESPONSE TARGET DISC: SYSTEM NAME: BATCH LISTING: (USER DEFINED) WHEN THIS BATCH STREAM COMPLETES WITHOUT ANY ERRORS THE MESSAGE "*** PGS - NORMAL COMPLETION ***" WILL APPEAR ON THE SCREEN. IF ANY OTHER MESSAGE APPEARS AN ERROR HAS OCCURED AND THE BATCH LISTING SHOULD BE EXAMINED TO DETERMINE THE CAUSE OF THE ERROR. THE SYSTEM IS NOW READY TO BE TESTED. TO SET UP THIS SYSTEM TO BE TESTED AT IPL TIME, THE "TGS" PROC SHOULD BE BID PROMPT RESPONSE TARGET DISC: SYSTEM NAME: AFTER THE PROC IS ENTERED, IT WILL DISPLAY THE SYSTEM IPL STATUS. THE SYSTEM NAME SHOULD BE THE SECONDARY SYSTEM AND THE IPL STATUS SHOULD SAY "TEST SECONDARY SYSTEM" THE SYSTEM CAN NOW BE BOOTED SO THAT THE NEW SYSTEM CAN BE TESTED. VERIFY THAT THE NEW SYSTEM IS ACCEPTABLE. IF IT IS NOT, THE SYSTEM CAN BE BOOTED AND YOU WILL RETURN TO THE ORIGINAL SYSTEM. WHEN THE SYSTEM IS ACCEPTABLE IT MAY BE INSTALLED AS THE PRIMARY SYSTEM BY BIDDING THE "IGS" PROC. PROMPT RESPONSE TARGET DISC: SYSTEM NAME: AFTER THE PROC IS ENTERED, IT WILL DISPLAY THE CURRENT IPL STATUS. THE SYSTEM SPECIFIED SHOULD BE THE PRIMARY SYSTEM AND THE IPL STATUS SHOULD BE SET TO IPL THE PRIMARY SYSTEM. THE SYSGEN IS THEN COMPLETE. FILES THAT ARE GENERATED BY THE ABOVE BATCH STREAMS MAY BE FOUND UNDER THE DIRECTORY NAME ".S$SYSGEN.". THIS IS A LIST OF EACH MEMBER AND ITS CONTENTS. MEMBER CONTENTS .CONFIG CONFIGURATION FILE GENERATE BY GEN990 .D$SOURCE ASSEMBLY SOURCE FOR THE DATA BASE .D$OBJECT ASSEMBLED OBJECT FOR THE DATA BASE .LINKSTRM LINK STREAM TO LINK THE OPERATING SYSTEM .LINKMAP LINK MAP FROM THE SYSTEM LINK .BATCHSTM BATCH STREAM TO ASSEMBLE & LINK THE SYSTEM AND TO BUILD THE SYSTEM PATCH STREAM .PATCHFIL PATCH STREAM FOR THE GENERATED SYSTEM .ERROR ERROR FILE FOR UTILITY THAT GENERATES THE PATCH STREAM FOR THE SYSTEM THE SYSTEM IS PLACED ON THE FILE ".S$IMAGES" ON THE TARGET DISC. THE SYSTEM NAME GIVEN ABOVE SHOULD BE ONE THE TASKS ON THIS PROGRAM FILE. THE FILE NAME CONTAINING THESE INSTRUCTIONS IS ".S$SYSGEN.COMPLT" AND MAY BE PRINTED OUT USING THE "PF" PROC. @ THE SYSTEM PATCH STREAM .PATCHFIL PATCH STREAM FOR THE GENERATED SYSTEM .ERROR ERROR FILE FOR UTILITY THAT GENERATES THE PATCH STREAM FOR THE SYSTEM THE SYSTEM IS PLACED ON THE FILE ".S$IMAGES" ON THE TARGET DISC. THE SYSTEM NAME GIVEN ABOVE SHOULD BE ONE THE TASKS ON THIS PROGRAM FILE. THE FILE NAME CONTAINING THESE INSTRUCTIONS IS ".S$SYSGEN.COMPLT"  IDT'TSTSDS'. TITL 'TSTSDS - SDS VERIFICATION PROGRAM' .* '@************************************************************ @* ',*  THIS IS THE SOURCE TEXT FOR THE SDS,* VERIFICATION PROGRAM * '* '* '@************************************************************ @* ' DXOP SVC,15 REFWSPACER1 EQU1 !R2 EQU2 !* ' DATA WSPACE DATA TSTSDS  DATA 0 ! TSTSDS EVEN ""* CREATE FILE "DS01.TSTMSG"" SVC@FUSCB* '* ASSIGN LUNO TO FILE MOVB @AL,@FUSOPC  SVC@FUSCB* '*  OPEN THE FILE SVC@PRB * '*  WRITE ASCII LI R1,ADRTBL 6LOOP MOV*R1+,R2 R2 = @ OF NEXT LINE TO WRITE 6 JEQDONE * '@* MOVR2,@PRBBAD STORE BUFFER ADDRESS*4 MOVB @WA,@PRBOPC STORE 'WRITE ASCII' OP CODE 4" SVC@PRB WRITE OUT THE LINE" JMPLOOPLOOP* '*  DONE DONE& MOVB @CLWEOF,@PRBOPC $*  CLOSE FILE AND WRITE E-O-F $ SVC@PRB   JMP$ ! * '@*----------------------------------------------------------- @* '*  DATA   EVEN " * ' ADRTBL DATA LINE1  DATA LINE2  DATA LINE3   DATA 0 ! * 'AL BYTE >01 WA BYTE 11 CLWEOF BYTE 02 * 'LINE1 EVEN "4 TEXT '****************************************' 44 TEXT '****************************************' 4* 'LINE2 EVEN "0 TEXT '**  THIS IS THEOLD MESSAGE  ' 0 TEXT '  **' * 'LINE3 EQULINE1 * '* '* ',*  FILE UTILITY SUPERVISOR CALL BLOCK ,* ', FUSCB DATA >1500  015 / ERROR CODE ,8FUSOPC BYTE >00  2UTILITY OP CODE - 00 = CREATE 8*FUSFLG BYTE >05  3FLAGS = NS FILE *FUSLUN BYTE >20  4LUNOFUSVID BYTE 0  5VID 0FUSRCL DATA 80 6 RECORD LENGTH = 80 BYTES 0( FUSFIL TEXT 'TSTMSG' 8FILE NAME (( FUSDSC TEXT 'DS01' 14 DISC NAME ( DATA 0  18 -- DATA 0  20 --* '* '*  PHYSICAL RECORD BLOCK* '"PRB  DATA >0000  -2 SVC "2PRBOPC BYTE >00  0 I/O OP CODE - 00 = OPEN 2PRBLUN BYTE >20  1LUNO" PRBFLG DATA >0000  2FLAGS "&PRBBAD DATA 0  4BUFFER ADDRESS&&PRBRCL DATA 80 6RECORD LENGTH &PRBCHC DATA 80 8CHARACTER COUNT (PRBRCN DATA 0  10 RECORD NUMBER ( DATA 0  12 * '@*=========================================================== @* ' ENDTSTSDS, TITL 'WSPACE - WORKSPACE FOR *TSTSDS*' ,* ' IDT'WSPACE'* ' DEFWSPACE* ' WSPACE DATA 0,0,0,0,0,0,0,0   DATA 0,0,0,0,0,0,0,0 * ' END# 8FILE NAME (( FUSDSC TEXT 'DS01' 14 DISC NAME ( DATA 0  18 -- DATA 0  20 --* '* '*  PHYSICAL RECORD BLOCK* '"PRB  DATA >0000  -2 SVC "2PRBOPC BYTE >00  0 I/O OP CODE - 00 = OPEN 2PRBLUN BYTE >20  1LUNO" PRBFLG DATA >0000  2FLAGS "&PRBBAD DATA 0  4BUFFER ADDRESS&&PRBRCL DATA 80 6RECORD LENGTH &PRBCHC DATA 80 8S$PROC VCATALOG`AS P tLSM P ~M$COPY P  MFP P  tTXCM P CKD P DCMR P  IBMUTL P t@? PBP P  DUI P   XHT P   M$SYN P IBM2TI `P1>RWL P `MKL P ~M$DISK P  M$STAT P # t#RS P % T#MFN P )%SBS P *F%DP P +,*'M$COBOL P - X+SDT P /8,TXDX P 00EBATCH P 1vfd0IDT PF H,<0M$PROC P 53AF P 6  5WCRU P 7gf7CD P 8'%8LB P :lk;CSM P ;zZW=AT P ?=CPI P @(OK>LSB P ER@KO P F=M$USER P GBBL P H! BMM P IBM$FORTRNP J BM$SM P LFMTS P M42HM$WARM P O "KKBT P QHgfMMS P R~RQ P SpRM$FILEC P U UCFDIR P W0/UCFPRO P X<:URGL P ZhUUV P [WM$LANG P \ VM$MISC P ^ \SVS P ` x]QD P b^M$OVER P c`SRF P daLLR P g&vscMKF P jeMUI P k ,75kALGS P mB@mWAIT P onDSB P p32pXD P q8uFB P t ,7vRT P vwSCC P w:uTGS P x >ecyEC P z`hg{STI P { {DD P } $"ASB P ~ (XCU P  AUI P  ^LC P (SADU P jM$EDIT P  MPE P M$PDEV P  DXTX P cbCL P ^HFXPS P @mkTXCP P  .IF P 2xuMT P DPB P .-Q$SYN P RO P RD P  CF$1 P ".+XT P  RAL P DBP P QE P  INV P DAAA P   TXXLE P  ,IDT$1 P 3T#M$DEV P MTE P CfPF P SOS P `TXFD P XLE P jCF P *)HT P >=TXDF P CSK P VUIGS P  bLIISL$ P /-M$AL P `}{SIS$ P nRST P NM$SDEB P  (TXMD P CKS P  EDWEOF P `XE P ST P IS P5M CFIMG P SIR P KEY P ~{AGL P  CM P JILD P SWR P M$SHOW P  ~DL P  ][MDS P TSDCOPY P B! XES P FW P  .:MOE P  fCFREL P  ?>IRT P _ `YM$GDEB P  DDS P a^SVL P AB P M$PFIL P  MAD P  OMM$MOD P  hVB P   DF P  &%XANAL P  M$MAC P t SAD P N TXCP$ P  XGEN P !pjiM$LUNO P " ISL P 3F&$*6SPI P '8QE$1 P * rIT P ,b &XRMD P 9\RCD P <_^HO P =ts M$VOL P > &LUI P @ 10+M$DVICE P A .DPBP P C,1//CSF P EGE0ENDKEY P Glj0SPS P J5PGS P K ][6BATCH P M7MVI P P6M$LC P QPyw9DT P S54:MADU P TRP;STS P V@PB P WCSP P XETXSF P Y~GABP P ZITI2IBM `P0 >\ԯJM$DEBUG P [MM$BKPT P \SM$BASIC P ]~TIT$ P ^baVM$CF P _ ZVC P a eCFKEY P c%n41fCFSEQ P hBAgIT$$ P j jeciCPI$O P l5PiLDC P mrpkIO P nJHnMWR P qpRL P r`pLBP P sonrFL P tnmrSV P uxuDA P v|uRCRU P wb`zCPI$T P xSR}MRM P y P}M$BGB P { >CFK$1 P }:95MRF P @M$FILE P  XB P  (XMA P MIR P M$SOP P  vSF P SIS P BM$RPG P  M$00 `P0FS P proLTS P SMS P xMLP P M$DIR P  TM$SGEN P  FM$TASK P  ISO P   QOMPI P M$TX P  IV P zyDO P )'M$PDEB P  >INV$ P PGFMPF P IP P NLLPS P  l|{MSG P zM$SMAIN P  XTS P    SMM P JDB P MSM P%ZWBD P CC P  .$#ML P ^AL P  zSL P  KT P jiLM P zwM$TERM P M$DEL P ZLS P XMA2 P "@<XMA2,XREF,SYMT,NOLIST,BUNLIST,TUNLIST,DUNLIST,MUNLIST,12, <FUNL,RXREF,1,2,3,4,5,6,7,8,9$.SYN $XMA$OPL = "L",$XMA$MC = " " $.IF "&12",NE,""  .SYN "$XMA$MC" = "12" .ENDIF .IF "&XREF,&1",NE,","  .SYN "$XMA$OPL" = "@$XMA$OPL,XREF".ENDIF .IF "&SYMT,&2" ,NE,","$.SYN "$XMA$OPL" = "@$XMA$OPL,SYMT"$.ENDIF .IF "&NOLIST,&3",NE,"," &.SYN "$XMA$OPL" = "@$XMA$OPL,NOLIST"&.ENDIF .IF "&BUNLIST,&4",NE,"," .SYN "$XMA$OPL" = "@$XMA$OPL,BUNLST".ENDIF .IF "&TUNLIST,&5",NE,","&.SYN "$XMA$OPL" = "@$XMA$OPL,TUNLST"&.ENDIF .IF "&DUNLIST,&6" ,NE,"," &.SYN "$XMA$OPL" = "@$XMA$OPL,DUNLST"&.ENDIF .IF "&MUNLIST,&7",NE,",".SYN "$XMA$OPL"  = "@$XMA$OPL,MUNLST".ENDIF .IF "&FUNL,&8",NE,"," $.SYN "$XMA$OPL" = "@$XMA$OPL,FUNL"$.ENDIF .IF "&RXREF,&9",NE,","&.SYN "$XMA$OPL" = "@$XMA$OPL,RXREF" &.ENDIF .IF "&MUNLIST,&7",NE,",".SYN "$XMA$OPL" @(XTS (EXECUTE TASK AND SUSPEND SCI) =2,((PROGRAM FILE OR LUNO=STRING("@$$PF"), ($TASK NAME OR ID=STRING("@$IT$T"), $PARM1=INT(0), PARM2=INT(0),  STATION ID=STRING(ME)  .OVLY OVLY=>1B,LUNO=0,  PARMS=(18,"@&PROGRAM F"ILE OR LUNO","&TASK NAME OR ID",""&STATION ID",&PARM1,&PARM2, Y,N,$$RI) &.SYN $$PF="&PROGRAM FILE OR LUNO" &".SYN $IT$T="&TASK NAME OR ID" "STATION ID=STRING(ME)  .OVLY OVLY=>1B,LUNO=0,  PARMS=(18,"@&PROGRAM F@COPY COMMANDS 8 AF - APPEND FILE  BD  - BACKUP DIRECTORY(DISK)8: CC  - COPY/CONCATENATE CD - COPY DIRECTORY(DISK):J CKS- COPY KEY TO SEQUENTIAL FILE  RD - RESTORE DIRECTORY (DISK) J CPI- COPY PROGRAM I*MAGE VB - VERIFY BACKUP (DIRECTORY)*B CSK - COPY SEQUENTIAL TO KEY VC  - VERIFY COPY (DIRECTORY BF CSM - COPY SEQUENTIAL MEDIA  DCOPY- DISK COPY/RESTORE UTILITY F  IBMUTL - CONVERT IBM DISKETTE  PF - PRINT FILE IMAGE VB - VERIFY BACKUP (DIRECTORY)*B CSK - COPY SEQUENTIAL TO KEY VC  - VERIFY COPY (DIRECTORY BF CSM - COPY SEQUENTIAL MEDIA  DCOPY- DISK COPY/RESTORE UTILITY F  IBMUTL - CONVERT IBM DISKETTE  PF - PRINT FILE IDELETE COMMANDS  DD  - DELETE DIRECTORY DF - DELETE FILE &CKD(CHECK DISK FOR CONSISTENCY) =6, & DISK UNIT = NAME,  AUTO CORRECTION = YESNO (NO), LISTING ACCESS NAME = *ACNM 4.BID TASK=>1A,PARMS=(&DISK UNIT, &AUTO CORRECTION,4 @&LISTING ACCESS NAME)@DX10 MAINTENANCE4 /DISK- DISK COMMANDS  /TASK- TASK COMMANDS 48 /MISC - MISCELLANEOUS COMMANDS /TERM- TERMINALS 88 /OVER - OVERLAY COMMANDS /USER - USER ID COMMANDS8. /PFIL - PROGRAM FILE COMMANDS  /VOL - .VOLUME COMMANDS < /PROC - PROCEDURE COMMANDS /WARM - WARMSTART COMMANDS< /SGEN - SYSGEN OPERATIONS  /STAT - STATUS COMMANDS - OVERLAY COMMANDS /USER - USER ID COMMANDS8. /PFIL - PROGRAM FILE COMMANDS  /VOL - . TERMINALS  LTS - LIST TERMINAL STATUS MDS - MODIFY DEVICE STATUS  MTS - MODIFY TERMINAL STATUS  STI - SHOW TERMINAL INFO@,PBP (PROCEED FROM BREAKPOINT - PASCAL) =2,, RUN ID = INT("@$$RI"), DESTINATION ROUTINE = *STRING, &WHERE (ENTRY/RETURN/BOTH) = *STRING &.OVLY OVLY = >C, CODE = >1D,2PARMS = ("&RUN ID",&DESTINATION ROUTINE,&WHERE) 2.SYN$$RI = "&RUN ID"KPOINT - PASCAL) =2,, RUN ID = INT("@$$RI"), DESTINATION ROUTINE = *STRING, &WHERE (ENTRY/RETURN/BOTH) = *STRING &.OVLY OVLY = >C, CODE = >1D,2PARMS = ("&RUN ID",&DESTINATION ROUTINE,&WHERE) 2.SYN DUI (DELETE USER ID) =4,USER ID = NAME .OVLY OVLY=>23, CODE=7, PARMS = (&USER ID,"", "", "", "",  "","","","","","","") @ XHT(EXECUTE AND HALT TASK) =2, (PROGRAM FILE OR LUNO=STRING("@$$PF"), ($TASK NAME OR ID=STRING("@$IT$T"), $PARM1=INT(0), PARM2=INT(0),  STATION ID=STRING(ME)  .OVLY OVLY=>1B,LUNO=0,  PARMS=(18,"@&PROGRAM FILE OR L  UNO","&TASK NAME OR ID",("&STATION ID",&PARM1,&PARM2,N,Y,$$RI) (&.SYN $$PF="&PROGRAM FILE OR LUNO" &".SYN $IT$T="&TASK NAME OR ID" " STATION ID=STRING(ME)  .OVLY OVLY=>1B,LUNO=0,  PARMS=(18,"@&PROGRAM FILE OR L SYNONYM COMMANDS AS  - ASSIGN SYNONYM VALUE LS - LIST SYNONYMS  MS  - MODIFY SYNONYMS " Q$SYN - DELETE SYSTEM SYNONYMS" STI - SHOW TERMINAL INFO RWL(REWIND LUNO),  LUNO=INT  .OVLY OVLY=>1B,LUNO=0, PARMS=(32,&LUNO)MKL(MODIFY KIF LOGGING) =2,  KEY INDEX FILE=ACNM .BID TASK=>42,LUNO=0,  PARMS=(@&KEY INDEX FILE)@DISK COMMANDS <CKD  - CHECK DISK FOR CONSISTENCY RCD - RECOVER DISK<@DCOPY - DISK COPY/RESTORE UTILITYSAD  - SHOW ABSOLUTE DISK@BIBMUTL - CONVERT IBM DISKETTE SADU - SHOW ALLOCABLE DISK UNITBINV  - INITIALIZE (NEW VOLUMESVS  - SHOW VOLUME STATUS(.IV - INSTALL VOLUME UV- UNLOAD VOLUME .@MAD  - MODIFY ABSOLUTE DISK XCU  - EXECUTE 2.2 CONVERSION@&MADU - MODIFY ALLOCABLE DISK UNIT &MD - MAP DISK MVI  - MODIFY VOLUME INFORMATION- SHOW VOLUME STATUS(.IV - INSTALL VOLUME UV- UNLOAD VOLUME .@MAD  - MODIFY ABSOLUTE DISK XCU  - EXECUTE 2.2 CONVERSION@&MADU - MODIFY ALLOCABLE DISK UNIT &MD - MAP DISK MVI  - MODIFY VOLUME@STATUS COMMANDS < LTS - LIST TERMINAL STATUSSMS  - SHOW MEMORY STATUS << MDS - MODIFY DEVICE STATUSSOS  - SHOW OUTPUT STATUS <D MTS - MODIFY TERMINAL STATUSSTI  - SHOW TERMINAL INFORMATIOND SBS- SHOW B.ACKGROUND STATUSSTS  - SHOW TASK STATUS .8 SIS - SHOW I/O STATUS SVS  - SHOW VOLUME STATUS 8FY DEVICE STATUSSOS  - SHOW OUTPUT STATUS <D MTS - MODIFY TERMINAL STATUSSTI  - SHOW TERMINAL INFORMATIOND SBS- SHOW B@ RS (REPLACE STRING), NUMBER OF OCCURRENCES=INT(1), START COLUMN=INT("@$XE$SC"), END COLUMN=INT("@$XE$EC"),STRING=*(STRING)("@$XE$S"), CHANGE=*(STRING) .IF "&STRING", EQ, ""&MSG T="AN EMPTY STRING IS NOT ALLOWE&D".EXIT .ENDIF .IF "&CHANGE", EQ, ""*DS NUMBER = "&NUMBER OF OCCURRENCES", * START = "&START COLUMN", END = "&END COLUMN", STRING = "&STRING".EXIT .ENDIF .SYN $XE$SC = "&START COLUMN" .S YN $XE$EC = "&END COLUMN"  .OVLY OVLY=4, LUNO=0,  CODE=6, PARMS=(&NUMBER OF OCCURRENCES, &START COLUMN,&END COLUMN, "&STRING", "&CHANGE") .SYN $XE$S = "&CHANGE".IF @$$CC, EQ, 0.OVLY OVLY=3, LUNO=0, CODE=1, *PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *.ENDIFS=(&NUMBER OF OCCURRENCES, &START COLUMN,&END COLUMN, "&STRING", "&CHANGE") .SYN $XE$S = "&CHANGE".IF @$$CC, EQ, 0.OVLY OVLY=3, LU MFN(MODIFY FILE NAME) =2,  OLD PATHNAME=ACNM, NEW PATHNAME=ACNM, REPLACE?=YESNO(NO) .OVLY OVLY=>1B,LUNO=0, *PARMS=(7,@&OLD PATHNAME,@&NEW PATHNAME, * &REPLACE?) SBS (SHOW BACKGROUND STATUS) .OVLY OVLY=>23, CODE=2  DP(DELETE PROCEDURE) =2,(PROGRAM FILE OR LUNO=STRING("@$$PF"), (PROCEDURE NAME OR ID=STRING  .OVLY OVLY=>1B,LUNO=0, &PARMS=(16,"@&PROGRAM FILE OR LUNO", & "&PROCEDURE NAME OR ID")&.SYN $$PF="&PROGRAM FILE OR LUNO" &(DP(DELETE PROCEDURE) =2,(PROGRAM FILE OR LUNO=STRING("@$$PF"), (PROCEDURE NAME OR ID=STRING  .OVLY OVLY=>1B,LUNO=0, &PARMS=(16,"@&PROGRAM FILE OR LUNO", & "&PROCEDURE NAME OR ID")&.SYN $$PF="&PROGRAM FILE OR LUNO" &(COBOL COMMANDS, XCC- EXECUTE COBOL COMPILER BACKGROUND ,& XCCF - COBOL COMPILER FOREGROUND &* XCP- EXECUTE COBOL PROGRAM BACKGROUND*$ XCPF  - COBOL PROGRAM FOREGROUND$  XLE - EXECUTE LINKAGE EDITOR $( XCT- EXECUTE COBOL TASK BACKGROUND (" XCTF  - COBOL TASK FOREGROUND "- COBOL COMPILER FOREGROUND &* XCP- EXECUTE COBOL PROGRAM BACKGROUND*$ XCPF  - COBOL PROGRAM FOREGROUND$  XLE - EXECUTE LINKAGE EDITOR $SDT $.OVLY OVLY=>23,CODE=11,PARMS=(28)$"TXDX (TX990 FILE TO DX10 FILE), "TX990 ACCESS NAME = STRING,  DX10 ACCESS NAME = ACNM, REPLACE? = YESNO(NO).BID TASK=>3D,4PARMS=("@&TX990 ACCESS NAME","@&DX10 ACCESS NAME",4"&REPLACE?") EBATCH (END BATCH EXECUTION), &LS (LIST SYNONYMS) ? = *YESNO (NO), & TEXT=*STRING, CODE=*INT  .IF @$$MO, NE, 0 .EXIT .ENDIF .IF "@$CFK$KN", NE, "$CFK$KN" 8MSG T="ERROR: INVALID CFKEY SEQUENCE; ENDKEY MISSING" 8:.ENDIF .IF "&LS", GE, "Y"  LSL="" .ENDIFSDT ".STOP TEXT="&TEXT", CODE="&CODE"" @$$MO, NE, 0 .EXIT .ENDIF .IF "@$CFK$KN", NE, "$CFK$KN" 8MSG T="ERROR: INVALID CFKEY SEQUENCE; ENDKEY MISSING" 8:"ISL(INITIALIZE SYSTEM LOG) =4," ATTENTION DEVICE=ACNM(DUMY),  LOGGING DEVICE=ACNM(DUMY), FILE PROCESSING?=YESNO(NO),  "SYSTEM LOG PROCESSOR TASK ID, " USER LOG PROCESSOR TASK ID .IF "&SYSTEM LOG", EQ, "" "@.SYN $ISL$P="0"  .ELSE %  .SYN $ISL$P="&SYSTEM LOG"  .ENDIF%  .IF "&USER LOG", EQ, ""  .SYN $ISL$P="@$ISL$P,0"  .ELSE % $.SYN $ISL$P="@$ISL$P,&USER LOG" $ .ENDIF% .IF  "&FILE PROCESSING?", GE  PROCEDURE COMMANDS DP  - DELETE PROCEDURE IP  - INSTALL PROCEDURE   MPE - MODIFY PROCEDURE ENTRY AF(APPEND FILE),INPUT ACCESS NAME(S)=(ACNM), OUTPUT PATHNAME=ACNM, MAXIMUM RECORD LENGTH = *INT.BID TASK=>34,CODE=1, PARMS=((&INPUT ACCESS NAME), @&OUTPUT PATHNAME,$NO,YES,YES,&MAXIMUM RECORD LENGTH)$0WCRU(WRITE VALUE TO SPECIFIED CRU ADDRESS)=6, 0<CRU ADDRESS=INT,NUMBER OF BITS=INT,VALUE TO BE WRITTEN=INT<:.BID TASK=>4D,CODE=1,PARMS=(&CRU ADDRESS,&NUMBER,&VALUE):@ CD(COPY DIRECTORY), "INPUT PATHNAME=*ACNM("@$CD$M"), ""OUTPUT PATHNAME=*ACNM("@$CD$C")," CONTROL ACCESS NAME=*ACNM, LISTING ACCESS NAME=*ACNM, OPTIONS=*(STRING)("ADD,ALIAS") .BID TASK=>28,CODE=>28, PARMS=(>28,@&INPUT PATHNAME, @&OUTPUT PATHNAME, @&CONTROL ACCESS NAME, @&LISTING ACCESS NAME,"(&OPTIONS)") ".SYN $CD$M = "&INPUT PATHNAME" "".SYN $CD$C = "&OUTPUT PATHNAME"" .BID TASK=>28,CODE=>28, PARMS=(>28,@&I LB (LIST BREAKPOINTS) =2,  RUN ID = INT("@$$RI") .OVLY OVLY = 0C, CODE = 6,  PARMS = (&RUN ID) .SYN $$RI = "&RUN ID" @,CSM(COPY/VERIFY SEQUENTIAL MEDIA UTILITY),,4MASTER ACCESS NAME= ACNM, COPY ACCESS NAME= ACNM, 4F"MAXIMUM RECORD LENGTH= INT(8512), COPY+VERIFY? (NO:=VERIFY)= YESNO, FB TERMINATE ON(EOM,2EOF,COUNT)= STRING, LISTING ACCESS NAME= ACNM B.SYN $CSM$D= 1 .IF  &TERMINATE ON,EQ,"EOM" .SYN $CSM$D= 3, $CSM$N= 0 .ENDIF .IF  &TERMINATE ON,EQ,"2EOF" .SYN $CSM$D= 2, $CSM$N= 0 .ENDIF.IF  @$CSM$D,EQ,1  .EVAL $CSM$T= "&TERMINATE ON"  .SYN $CSM$N= "&TERMINATE ON" .ENDIF.IF  &MAX REC LEN,GE,15000*MSG TEXT= "MAX RECORD LENGTH TOO BIG" *.EXIT .ENDIF:.QBID TASK=8, PARMS=(@$CSM$D, "@&MASTER ACCESS NAME", :$"@© ACCESS NAME","@&LISTING AC$&CESS NAME","&MAXIMUM RECORD LENGTH",& @$CSM$N, "©+VERIFY")(.SYN $CSM$D="", $CSM$T="",$CSM$N="" ( BIG" *.EXIT .ENDIF:.QBID TASK=8, PARMS=(@$CSM$D, "@&MASTER ACCESS NAME", :$"@© ACCESS NAME","@&LISTING AC$ AT(ACTIVATE TASK), RUN ID=INT("@$$RI") .BID TASK=>35,LUNO=0,  PARMS=(1,&RUN ID) .SYN $$RI="&RUN ID" @ CPI(COPY PROGRAM IMAGE), INPUT PROGRAM FILE=ACNM, OUTPUT PROGRAM FILE=ACNM,  INPUT IMAGE NAME OR ID=STRING, &OUTPUT IMAGE NAME AND/OR ID=*STRING,&IMAGE TYPE (T/P/O)= STRING,  OPTIONS=(STRING)(ADD),COPY ASSOCIATED  OVERLAYS?, COPY ASSOCIATED PROCEDURES?, ASSOCIATED TASK NAME OR ID .IF "&IMAGE TYPE" , EQ, T CPI$T .BID TASK=>39,4PARMS=(@&INPUT PROGRAM FILE,@&OUTPUT PROGRAM FILE,4."&INPUT IMAGE NAME OR ID","&OUTPUT IMAGE NAM.E AND/OR ID",  &IMAGE TYPE (T/P/O),&OPTIONS,  @$CPIO,@$CPIP,>FF) .SYN $CPIO="",$CPIP="".EXIT .ENDIF .IF "&IMAGE TYPE" , EQ, P .BID TASK=>39,4PARMS=(@&INPUT PROGRAM FILE,@&OUTPUT PROGRAM FILE,4"&INPU6T IMAGE NAME OR ID","&OUTPUT IMAGE NAME AND/OR ID", 6 &IMAGE TYPE (T/P/O),&OPTIONS, N,N,>FF) .EXIT .ENDIF .IF "&IMAGE TYPE" , EQ, OCPI$O .BID TASK=>39,4PARMS=(@&INPUT PROGRAM FILE,@&OUTPUT PROGRAM FILE,4<"&INPUT IMAGE NAME OR ID","&OUTPUT IMAGE NAME AND/OR ID", < &IMAGE TYPE (T/P/O),&OPTIONS, N,N,@$CPIT) .SYN $CPIT="" .EXIT .ENDIF(MSG T="**** INCORRECT IMAGE TYPE ****"(&INPUT PROGRAM FILE,@&OUTPUT PROGRAM FILE,4&LSB (LIST SIMULATED BREAKPOINTS) =2 &.OVLY OVLY = >C, CODE = >FKO (KILL OUTPUT AT DEVICE),  DEVICE NAME = ACNM("@$PF$D"), (KILL CURRENT FILE ONLY? = *YESNO (YES)( .OVLY OVLY=>24, CODE=3, 2PARMS = (@&DEVICE NAME,&KILL CURRENT FILE ONLY?)2.SYN $PF$D = "&DEVICE NAME"USER ID COMMANDS AUI- ASSIGN USER ID DUI- DELETE USER ID LUI- LIST USER ID'S MUI- MODIFY USER ID BL(BACKSPACE LUNO),  LUNO=INT,  RECORD COUNT=INT(1)  .OVLY OVLY=>1B,LUNO=0,  PARMS=(9,&LUNO,&RECORD COUNT)  MM (MODIFY MEMORY) =2, RUN ID = STRING("@$$RI"), ADDRESS = STRING.OVLY OVLY = 0C, CODE = 4,  PARMS = ("&RUN ID","&ADDRESS") .SYN $$RI = "&RUN ID" FORTRAN COMMANDS. XFC- EXECUTE FORTRAN COMPILER BACKGROUND .( XFCF - FORTRAN COMPILER FOREGROUND (  XLE - EXECUTE LINKAGE EDITOR * XFT- EXECUTE FORTRAN TASK BACKGROUND *$ XFTF  - FORTRAN TASK FOREGROUND $(FORTRAN COMMANDS. XFC- EXECUTE FORTRAN COMPILER BACKGROUND .( XFCF - FORTRAN COMPILER FOREGROUND (  XLE - EXECUTE LINKAGE EDITOR * XFT- EXECUTE FORTRAN TASK BACKGROUND *$ XFTF  - FORTRAN TASK FOREGROUND $( SORT/MERGE $ XBSM  - EXECUTE BATCH SORT/MERGE$( XSM- EXECUTE SORT/MERGE BACKGROUND (* XSMF - EXECUTE SORT/MERGE FOREGROUND *@"MTS (MODIFY TERMINAL STATUS) =4," TERMINAL NAME = NAME(ST@$$ST), NEW STATUS (ON/OFF) = *NAME,NEW MODE (TTY/VDT) = *NAME,  LOGIN REQUIRED? = *YESNO, USER PRIVILEGE CODE = *INT,  DEFAULT MODE (TTY/VDT) = *NAME .OVL Y OVLY=>23, CODE=1,  PARMS=("@&TERMINAL NAME", "&NEW STATUS","&NEW MODE", "&LOGIN REQUIRED", "&USER PRIVILEGE CODE", "&DEFAULT MODE")USER PRIVILEGE CODE = *INT,  DEFAULT MODE (TTY/VDT) = *NAME .OVL@ WARMSTART COMMANDS" IDT - INITIALIZE DATE AND TIME"  INV - INITIALIZE NEW VOLUME  IS  - INITIALIZE THE SYSTEM  ISL - INITIATE SYSTEM LOG  IV - INSTALL VOLUME MDS - MODIFY DEVICE STATUS XANAL- AN ALYZE DX10 CRASH FILE  IDT - INITIALIZE DATE AND TIME"  INV - INITIALIZE NEW VOLUME  IS  - INITIALIZE THE SYSTEM  ISL - INITIATE SYSTEM LOG  IV - INSTALL VOLUME MDS - MODIFY DEVICE STATUS XANAL- AN KBT (KILL BACKGROUND TASK) =2  .OVLY OVLY=>23, CODE=3 MS,SYNONYM,VALUE.IF @$$MO, EQ, 0 .SYN "&SYNONYM" = "&VALUE".ELSE .OVLY OVLY=>22.ENDIF@ Q (QUIT)  .IF @$$MO, EQ, 0 .STOP .ENDIF .IF "@$$EA", GE, "Y" QE<MSG T="QUIT PROCESSING INCOMPLETE: RE-ENTER 'Q' COMMAND"<.EXIT .ENDIF.IF "@$$DA", GE, "Y"QD MSG T="QUIT PROCESSING IN"COMPLETE: RE-ENTER 'Q' COMMAND"".EXIT .ENDIF.SYN $E$C=0 Q$SYN .STOP QUIT PROCESSING INCOMPLETE: RE-ENTER 'Q' COMMAND"<.EXIT .ENDIF.IF "@$$DA", GE, "Y"QD MSG T="QUIT PROCESSING IN@FILE COMMANDS  /AL- ALIAS COMMANDS /CF - CREATE COMMANDS  /COPY- COPY COMMANDS  /DEL  - DELETE COMMANDS  /LUNO- LUNO /MOD  - MODIFY COMMANDS  /SHOW- SHOW COMMANDS  /SYN - SYNONYM COMMANDSS  /AL- ALIAS COMMANDS /CF - CREATE COMMANDS  /COPY- COPY COMMANDS  /DEL  - DELETE COMMANDS  /LUNO- LUNO /MOD  - MODIFY COMMANDS  /SHOW- SHOW COMMANDS  /SYN - SYNONYM CO CFDIR(CREATE DIRECTORY FILE), PATHNAME=ACNM,MAX ENTRIES=INT,$DEFAULT PHYSICAL RECORD SIZE=*INT $ .OVLY OVLY=>1B,LUNO=0, 4PARMS=(13,@&PATHNAME,0,&MAX ENTRIES,&DEFAULT PHYS)4@CFPRO(CREATE PROGRAM FILE), PATHNAME=ACNM, MAX NUMBER OF TASKS=INT(255), $MAX NUMBER OF PROCEDURES=INT(255),$"MAX NUMBER OF OVERLAYS=INT(255),"INITIAL ALLOCATION=INT(85),  SECONDARY ALLOCATION=*INT,EXPANDABLE?=YE SNO(YES)  .OVLY OVLY=>1B,LUNO=0, .PARMS=(14,@&PATHNAME,,,&MAX NUMBER OF TASKS,.4&MAX NUMBER OF PROCEDURES,&MAX NUMBER OF OVERLAYS,48&INITIAL ALLOCATION,&SECONDARY ALLOCATION,&EXPANDABLE)8.SYN $$PF="&PATHNAME" ABLE?=YE RGL(RELEASE GLOBAL LUNO),  LUNO=INT  .OVLY OVLY=>1B,LUNO=0, PARMS=(38,&LUNO) UV(UNLOAD VOLUME), VOLUME NAME=NAME("@$$VN")  .OVLY OVLY=>1B,LUNO=0,  PARMS=(27,@&VOLUME NAME).SYN $$VN=""@ PROGRAMMING LANGUAGES  /BASIC - BASIC COMMANDS  /COBOL - COBOL COMMANDS  /FORTRN - FORTRAN COMMANDS & /MAC  - MACRO ASSEMBLER COMMANDS & /QUERY - QUERY COMMANDS  /RPG  - RPG COMMANDS  /TIP  - PASCAL COMMANDSS  /BASIC - BASIC COMMANDS  /COBOL - COBOL COMMANDS  /FORTRN - FORTRAN COMMANDS & /MAC  - MACRO ASSEMBLER COMMANDS & /QUERY - QUERY COMMANDS  /RPG  - RPG COMMANDS  /TIP  - P@ MISCELLANEOUS COMMANDS4 CM - CREATE MESSAGE SDT - SHOW DATE AND TIME42 EC - ERROR COUNT  SMS - SHOW MEMORY STATUS26 IDT - INITIALIZE DATE AND TIME SV - SHOW VALUE60 LC - LIST COMMANDS  WAIT - WAIT FOR BAC0 KGROUND H MSG- WRITE MESSAGE TO TERMINAL  XANAL - ANALYZE DX10 CRASH FILE H< Q- QUIT/LOGOUT  XCU- EXECUTE 2.2 CONVERSION UTILITY<H Q$SYN - DELETE SYSTEM SYNONYMS XGEN - EXECUTE GEN990-AUTO SYSGENHT - WAIT FOR BAC0@ SVS (SHOW VOLUME STATUS),  VOLUME NAME = *NAME, DRIVE NAME = *NAME,  OUTPUT ACCESS NAME=*ACNM .IF "@&DRIVE NAME",GE,DK01 .IF "@&DRIVE NAME",LE,DK992MSG TEXT="ERROR: DRIVE NAME CANNOT BE DISKETTE" 2.EXIT .ENDIF.ENDIF.BID TASK=>37,LUNO=0, <PARMS=(0,@&VOLUME NAME,@&DRIVE NAME,@&OUTPUT ACCESS NAME) <.IF "@&DRIVE NAME",GE,DK01 .IF "@&DRIVE NAME",LE,DK992MSG TEXT="ERROR: DRIVE NAME CANNOT BE DISKETTE" 2.EXIT .END QD (QUIT DEBUG MODE) =2, KILL TASK? = YESNO(YES)  .OVLY OVLY = >C, CODE = >10,  PARMS = (&KILL TASK?) 0.SYN$XD$D = "", $XD$F = "",  $XD$S = "" 0OVERLAY COMMANDS DO - DELETE OVERLAY IO  - INSTALL OVERLAY   ISO - INSTALL SYSTEM OVERLAY  MOE - MODIFY OVERLAY ENTRY@ SRF(SHOW RELATIVE TO FILE) =2,  PATHNAME=ACNM("@$SRF$P"),  RECORD NUMBER=INT("@$SRF$R"),  FIRST WORD=INT("@$SRF$F"), NUMBER OF WORDS=*INT, $OUTPUT ACCESS NAME=*ACNM("@$$OP") $".IF "&NUMBER OF WORDS", NE, "" ".EVAL  $SRF$ = 2*&NUMBER OF WORDS $.EVAL $SRF$ = @$SRF$+&FIRST WORD $ .EVAL $SRF$ = @$SRF$-2 .ELSE .SYN$SRF$ = " " .ENDIF.BID TASK=>21,LUNO=0,  PARMS=(41,@&PATHNAME, $&RECORD NUMBER,&FIRST WORD,@$SRF$,$L ( @&OUTPUT ACCESS NAME) .SYN $SRF$ = "" .SYN $SRF$P="&PATHNAME"  .SYN $SRF$R="&RECORD NUMBER" .SYN $SRF$F="&FIRST WORD" $.SYN $$OP="&OUTPUT ACCESS NAME" $PATHNAME, $&RECORD NUMBER,&FIRST WORD,@$SRF$,$L (@LLR(LIST LOGICAL RECORD) =2, PATHNAME=ACNM(@$LLR$P),  STARTING RECORD=INT(0),  NUMBER OF RECORDS=*INT,  LISTING ACCESS NAME=*ACNM $.IF "&NUMBER OF RECORDS", NE, "" $$.EVAL $LLR$ = &NUMBER OF RECORDS $.EVAL $LLR$ = @$LLR$+&STARTING RECORD .EVAL $LLR$ = @$LLR$-1 .ELSE .SYN$LLR$ = " " .ENDIF.BID TASK=>2B, LUNO=0, PARMS=(1,@&PATHNAME, &STARTING RECORD,@$LLR$, @&LISTING ACCESS NAME).SYN $LLR$ = "" .SYN $LLR$P="&PATHNAME" .EVAL $LLR$ = @$LLR$-1 .ELSE .SYN$LLR$ = " " .ENDIF.BID TASK=>2B, LUNO=0, PARMS=(1,@&PATHNAME, &STARTING RECORD,@$LLR$, @&LISTING ACCESS NAME).SYN $LLR$ = ""  MKF(MAP KEY INDEX FILE),PATHNAME=ACNM,$LISTING ACCESS NAME=*ACNM("@$$LD")$.BID TASK=>38,LUNO=0, .PARMS=(0,@&PATHNAME,@&LISTING ACCESS NAME,3).$.SYN $$LD="&LISTING ACCESS NAME"$@ MUI (MODIFY USER ID) =4, USER ID = NAME (@$$UI),  NEW PASSCODE = *STRING,  NEW USER PRIVILEGE CODE = *INT  .OVLY OVLY=>23, CODE=8, PARMS = ("&USER ID","&NEW PASSCODE","&NEW USER PRIVILEGE CODE", "", "",  "","","","","","","") = NAME (@$$UI),  NEW PASSCODE = *STRING,  NEW USER PRIVILEGE CODE = *INT  .OVLY OVLY=>23, CODE=8, PARMS = ("&USER ID","&NEW PASSCODE","&NEW USER PRIVILEGE CODE", "", 0ALGS (ASSEMBLE AND LINK GENERATED SYSTEM) = 6,0"TARGET DISK = *NAME("@$$DSC$"), " SYSTEM NAME = NAME("@$$SYS$"),  D$DATA LISTING = ACNM, BATCH LISTING = ACNM .IF "&TARGET DISK", EQ, "" .SYN $$DSC$ = "DS01".ELSE  .SYN $$DSC$ = "&TARGET DISK".ENDIF.SYN $$SYS$ = "&SYSTEM NAME"".SYN XMA$L = "@&D$DATA LISTING" " .QBID TASK = >20, @PARMS=("@$$DSC$.S$SYSGEN.@$$SYS$.BATCHSTM", "@&BATCH LISTING")@.SYN XMA$L = "" .ELSE  6WAIT (--WAITING FOR BACKGROUND TASK TO COMPLETE--), 6 MESSAGE? ..OVLY OVLY=>23, CODE=10, PARMS=(&MESSAGE?) .(DSB (DELETE SIMULATED BREAKPOINTS) =2,( BREAKPOINT NUMBERS = *(STRING) .OVLY OVLY = >C, CODE = >E, PARMS = (&BREAKPOINT NUMBERS) @XD (INITIATE DEBUG MODE) =2, RUN ID = *INT("@$XD$D"),.SYMBOL TABLE OBJECT FILE = *ACNM("@$XD$S"), .$990/12 OBJECT CODE ? = YESNO(YES) $ .IF @$$MO, EQ, 0 *MSG T="COMMAND IS INVALID IN BATCH MODE"*.EXIT .ENDIF.SYN $XD$D = "&RUN ID".IF  "&RUN ID", EQ, ""XHT .SYN$XD$D = @$$RI .ENDIF .OVLY OVLY = >C, CODE = >D, .PARMS = (@$XD$D, @&SYMBOL TABLE OBJECT FILE,. @&990/12 OBJECT CODE ?) .SYN $XD$S = "&SYMBOL  TABLE OBJECT FILE".SYN $$RI = @$XD$D, ""XHT .SYN$XD$D = @$$RI .ENDIF .OVLY OVLY = >C, CODE = >D, .PARMS = (@$XD$D, @&SYMBOL TABLE OBJECT FILE,. @&990/12 OBJECT CODE ?) .SYN $XD$S = "&SYMBOL @ FB (FIND BYTE) =2, RUN ID = STRING (@$$RI), VALUE(S) = (STRING),STARTING ADDRESS = *STRING,  ENDING ADDRESS = *STRING .OVLY OVLY = >C, CODE = >16,  PARMS = (&RUN ID,"&VALUE",&"&STARTING ADDRESS", "&ENDING ADDRES&S") .SYN$$RI = "&RUN ID"G (@$$RI), VALUE(S) = (STRING),STARTING ADDRESS = *STRING,  ENDING ADDRESS = *STRING .OVLY OVLY = >C, CODE = >16,  PARMS = (&RUN ID, &VALUE, &"&STARTING ADDRESS", "&ENDING ADDRES& RT (RESUME TASK) =2, RUN ID = INT("@$$RI") .OVLY OVLY = 0C, CODE = 8,  PARMS = (&RUN ID) .SYN $$RI = "&RUN ID" SCC (SHOW COUNTRY CODE) =2, OUTPUT ACCESS NAME = *ACNM .BID TASK=>50,"PARMS = (0,@&OUTPUT ACCESS NAME)"@ TGS(TEST GENERATED SYSTEM)=6, TARGET DISK =*NAME("@$$DSC$"), SYSTEM NAME =*NAME("@$$SYS$") .SYN $$DSC$ = "@&TARGET DISK"  .IF @$$DSC$,EQ,$$DSC$ .SYN $$DSC$=DS01.ENDIF .SYN $$SYS$ = "@&SYSTEM NAME" .BID T4ASK=>44, PARMS = (T,&TAR,&SYSTEM,@$$DSC$.S$IMAGES)4@$$DSC$"), SYSTEM NAME =*NAME("@$$SYS$") .SYN $$DSC$ = "@&TARGET DISK"  .IF @$$DSC$,EQ,$$DSC$ .SYN $$DSC$=DS01.ENDIF .SYN $$SYS$ = "@&SYSTEM NAME" .BID TEC (ERROR COUNT) .IF "@$$CC", GT, 00000 .EVAL $E$C = @$E$C + 1.ENDIF@H#STI (TERMINAL INFORMATION ....... TERMINAL: @ME ....... USER: @$$UI), H.MOST RECENT TASK RUN ID = *STRING ("@$$RI"),.2MOST RECENT LUNO ASSIGNMENT = *STRING ("@$$LU"),2*TEXT EDIT IN PROGRESS = *YESNO("@$$EA"),* MOST RECENT EDIT FILE  = *STRING ("@$XE$"),,TASK BEING DEBUGGED = *(STRING)("@$XD$D") ,(.SYN $$RI = "&MOST RECENT TASK RUN ID"(,.SYN $$LU = "&MOST RECENT LUNO ASSIGNMENT",@$$LU"),2*TEXT EDIT IN PROGRESS = *YESNO("@$$EA"),* MOST RECENT EDIT FILE  DD(DELETE DIRECTORY) =2,PATHNAME=ACNM, LISTING ACCESS NAME=*ACNM, ARE YOU SURE?=YESNO  .IF &ARE YOU SURE?,GE,Y .BID TASK=>29,CODE=>29,  PARMS=(>29,@&PATHNAME, @&LISTING ACCESS NAME).ENDIF(ASB (ASSIGN SIMULATED BREAKPOINT) =2, (ON (A,C,P,R,S,X) = NAME(P), FROM = STRING,THRU = *STRING,  COUNT = STRING(1), DISPLAY = *STRING  .OVLY OVLY = >C, CODE = >C, PARMS = ("&ON",  "&FROM", "&THRU", "&DISPLAY",  "&COUNT") =2, (ON (A,C,P,R,S,X) = NAME(P), FROM = STRING,THRU = *STRING,  COUNT = STRING(1), DISPLAY = *STRING  .OVLY OVLY = >C, CODE = >C, PARMS = ("&ON",  "&FROM", "&THRU", .XCU (EXECUTE 2.2 TO 3.0 DISK CONVERSION) =2,.&DISK TO BE CONVERTED = NAME (DS02), & LISTING DEVICE = ACNM $AL L=>10,A=@&DISK TO BE CONVERTED $AL L=>11,A=@&LISTING DEVICE .BID TASK = >2F  RL L=>10 RL L=>11 @ AUI (ASSIGN USER ID) =4, USER DESCRIPTION= (STRING),  NEW USER ID = NAME,NEW PASSCODE= *STRING,&USER PRIVILEGE CODE (0..7) = INT(0) & .OVLY OVLY=>23, CODE=6, PARMS = (&NEW USER ID,"&NEW PASSCODE",&USE R PRIVILEGE CODE, "",  "&USER DESCRIPTION", "","","","","","","") NEW PASSCODE= *STRING,&USER PRIVILEGE CODE (0..7) = INT(0) & .OVLY OVLY=>23, CODE=6, PARMS = (&NEW USER ID,"&NEW PASSCODE",&USE LC (LIST COMMANDS)/LC @$SADU(SHOW ALLOCABLE DISK UNIT) =2,$DISK UNIT=NAME, ADU NUMBER=INT,  SECTOR OFFSET=INT, FIRST WORD=INT(0), NUMBER OF WORDS=*INT, "OUTPUT ACCESS NAME=*ACNM(@$$OP) "".IF  "&NUMBER OF WORDS", NE, """.EVAL $SAD$ = 2*&NUMBER OF WORDS $.EVAL $SAD$ = @$SAD$+&FIRST WORD $ .EVAL $SAD$ = @$SAD$-2 .ELSE .SYN$SAD$ = " " .ENDIF.BID TASK=>18,LUNO=0,  PARMS=(3,@&DISK UNIT, .&ADU NUMBER,&SECTOR OFFSET,&FIRST WORD,@$SAD.$, @&OUTPUT ACCESS NAME) .SYN $SAD$ = "" $.SYN $$OP="&OUTPUT ACCESS NAME" $LSE .SYN$SAD$ = " " .ENDIF.BID TASK=>18,LUNO=0,  PARMS=(3,@&DISK UNIT, .&ADU NUMBER,&SECTOR OFFSET,&FIRST WORD,@$SAD.@ TEXT EDIT COMMANDS* CL - COPY LINES  IF - INSERT FILE * DL - DELETE LINES0 ML - MOVE LINES  MR  - MODIFY ROLL VALUE 02 SL - SHOW LINE  MRM - MODIFY RIGHT MARGIN 2* SVL - SAVE LINES TO FILE MT - MODI*FY TAB SETTINGS . DS - DELETE STRING  QE - QUIT EDITOR .4 FS - FIND STRING  XE  - INITIATE TEXT EDITOR4: RS - REPLACE STRING XES - TEXT EDITOR WITH SCALING:ARGIN 2* SVL - SAVE LINES TO FILE MT - MODI*@"MPE (MODIFY PROCEDURE ENTRY) =2,"&PROGRAM FILE PATHNAME=ACNM("@$$PF"),& MODULE NAME OR ID=STRING, NAME, MEMORY RESIDENT, DELETE PROTECTED,  EXECUTE PROTECTED,WRITE PROTECTED,WCS .SYN$$PF = "&PROGRAM FILE PATHNAME" :.OVLY OVLY=>25, LUNO=0, PARMS=(@&PROGRAM FILE PATHNAME,:2&MODULE NAME OR ID,1,(&NAME),(&MEMORY RESIDENT),2,(&DELETE PROTECTED),(&EXECUTE PROTECTED), , (&WRITE PROTECTED),(&WCS))S .SYN$$PF = "&PROGRAM@ PROGRAM DEVELOPMENT J /DBMS- DATA BASE MANAGEMENT SYSTEM  /PFIL - PROGRAM FILE COMMANDS J. /DEBUG - DEBUG COMMANDS /SM- SORT/MERGE.: /EDIT - TEXT EDIT COMMANDS /SYN  - SYNONYM COMMANDS: /MISC - MISCELLANEOUS CO"MMANDS /TASK- TASK COMMANDS "< /LANG - PROGRAMMING LANGUAGES  /TX - TX/DX CONVERSION< /OVER - OVERLAY COMMANDS /PROC - PROCEDURE COMMANDS- TEXT EDIT COMMANDS /SYN  - SYNONYM COMMANDS: /MISC - MISCELLANEOUS CO"DXTX (DX10 FILE TO TX990 FILE) ," DX10 ACCESS NAME = ACNM,TX990 ACCESS NAME = STRING,  REPLACE? = *YESNO(NO) .BID TASK=>3E,4PARMS=("@&DX10 ACCESS NAME","@&TX990 ACCESS NAME",4"&REPLACE") @CL (COPY LINES), START LINE=*STRING,  END LINE=*STRING,  INSERT AFTER LINE=*STRING  .OVLY OVLY=4, LUNO=0,  CODE=2,  PARMS=("&START LINE", "&END LINE", "&INSERT AFTER LINE") .IF @$$CC, EQ, 0.OVLY  OVLY=3, LUNO=0, CODE=1, *PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *.ENDIFE=*STRING  .OVLY OVLY=4, LUNO=0,  CODE=2,  PARMS=("&START LINE", "&END LINE", "&INSERT AFTER LINE") .IF @$$CC, EQ, 0.OVLY @*XPS (EXECUTE PATCH SYNONYM PROCESSOR)=6,*8LINK = ACNM, INPUT = ACNM, OUTPUT = ACNM, ERROR = ACNM8, .SYN UNIT4 = "@&LINK", UNIT5 = "@&INPUT" ,< .SYN UNIT6 = "@&OUTPUT",UNIT7 = "@&ERROR", UNIT8 = DUMY <.BID TASK = >E .SYN UNIT4 6 = "", UNIT5 = "", UNIT6 = "", UNIT7 = "",UNIT8 = ""6 INPUT = ACNM, OUTPUT = ACNM, ERROR = ACNM8, .SYN UNIT4 = "@&LINK", UNIT5 = "@&INPUT" ,< .SYN UNIT6 = "@&OUTPUT",UNIT7 = "@&ERROR", UNIT8 = DUMY <.BID TASK = >E .SYN UNIT4 @.TXCP (CHANGE DISKETTE FILE PROTECT CODE) =2,.TX990 ACCESS NAME = STRING,  CODE (U,D,W) = NAME (U)  TXCP$ CODE="&CODE"  .IF @$TX$I2, NE, 0 .BID TASK=>3C,*PARMS=("@&TX990 ACCESS NAME","@$TX$I2") *.ENDIF.SYN $TX$I2 = "".SYN $TX$I = ""  =2,.TX990 ACCESS NAME = STRING,  CODE (U,D,W) = NAME (U)  TXCP$ CODE="&CODE"  .IF @$TX$I2, NE, 0 .BID TASK=>3C,*PARMS=("@&TX990 ACCESS NAME","@$TX$I2") *.ENDIF.SYN IF (INSERT FILE),  FILE PATHNAME=ACNM,  INSERT AFTER LINE=*INT$.IF "&INSERT AFTER LINE", EQ, "0"$MSG T="INVALID LINE NUMBER".EXIT .ENDIF".IF "@&FILE PATHNAME", GE, DS01"".IF "@&FILE PATHNAME", LE, DS99"$@$MSG T="CANNOT INSERT FROM A DISK" $.EXIT .ENDIF.ENDIF .OVLY OVLY=4, LUNO=0,  CODE=8,  PARMS=(@&FILE PATH NAME, "&INSERT AFTER LINE") .IF @$$CC, EQ, 0 .OVLY OVLY=3, LUNO=0, CODE=1, PARMS=(@$XE$,@ $MR$,@$MRM$,@$XEM$,@$MT$) .ENDIFT .ENDIF.ENDIF .OVLY OVLY=4, LUNO=0,  CODE=8,  PARMS=(@&FILE PATH NAME, "&INSERT AFTER LINE") .IF @$$CC, EQ, 0 .OVLY OVLY=3, LUNO=0, CODE=1, PARMS=(@$XE$,@@ MT (MODIFY TABS),  TAB COLUMNS = *(INT)("@$MT$") .IF "&TAB COLUMNS", EQ, "" .SYN $MT$ = "1,8,13,26,31" >.OVLY OVLY=3,CODE=1,PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) >.ELSE  .IF "&TAB COLUMNS", EQ, 0 .SYN$MT$  = 1>.OVLY OVLY=3,CODE=1,PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) >.ELSE D!.OVLY OVLY=3,CODE=1,PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,&TAB COLUMNS)D.IF @$$CC,EQ,0 .SYN $MT$="&TAB COLUMNS".ENDIF.ENDIF.ENDIFT$.DPB (DELETE AND PROCEED FROM BREAKPOINT) =2,. RUN ID = STRING ("@$$RI"),&DESTINATION ADDRESS(ES) = *(STRING) &.OVLY OVLY = 0C, CODE = 3, *PARMS = (&RUN ID, &DESTINATION ADDRESS) *.SYN $$RI = "&RUN ID" @Q$SYN 8.SYN $$OB="", $$RI="", $$VN="", $PF$D="", $SF$P="", 8,$AA$P="", $IT$T="", $LLR$P="", $XCP$L="", ,.$SPI$A="", $SPI$I="", $SPI$T="", $XCT$L="", ..$SRF$F="",$SRF$P="", $SRF$R="", $LD$P="",.$XE$ = "", $$BT="", $XD$D="", $XLE$OB="", *$$LU="", $$S="", $BD$D="", $BD$S="",**$$LD="", $CD$M="", $CD$C="",$$PF="",*,$$ML="",$$OP="",$XLE$C="",$XLE$L="",,0$XMA$O="",$XMA$L="", $XMA$E="", $XMA$OP="",0&$XFC$O="",$XFC$L="",$XFC$E="", $& XFC$OP="", 0$XCC$L="",$XCC$O="", $XCC$OB="", $XCP$O="",00$XFT$P="",$XFT$T="", $XCT$P="", $XCT$T="", 02$CFK$L="", $CFK$PN="", $CFK$LRL="", $CFK$KN="", 22$CFK$PRL="", $CFK$KS="", $CFK$IA="", $CFK$M="", 2 $CFK$SA="", $CFK$MS="", $XPS$E="",0$R$S="", $R$O="", $R$L="", $R$N="", $R$LL="", 0$R$P="", $R$PL="", $RPGU="",$$XMA$OPL="", $XMA$MC="", $XPS$E=""$K$LRL="", $CFK$KN="", 22$CFK$PRL="", $CFK$KS="", $CFK$IA="", $CFK$M="", 2 $CFK$SA="", $CFK$MS=RO(RESUME OUTPUT AT DEVICE),DEVICE NAME = ACNM("@$PF$D") .OVLY OVLY=>24,CODE=2,  PARMS=(@&DEVICE NAME) .SYN $PF$D = &DEVICE NAME @ RD(RESTORE DIRECTORY) =2, (SEQUENTIAL ACCESS NAME=ACNM("@$BD$S"),( DIRECTORY PATHNAME=ACNM, LISTING ACCESS NAME=*ACNM, OPTIONS=*(STRING)("ADD").BID TASK=>27,CODE=>27, &PARMS=(>27,@&SEQUENTIAL ACCESS NAME,&@&DIRECTORY PATHNAME,  @&LISTING ACCESS NAME,"(&OPTIONS)") *.SYN $BD$S = "&SEQUENTIAL ACCESS NAME"*&.SYN $BD$D = "&DIRECTORY PATHNAME"&DD").BID TASK=>27,CODE=>27, &PARMS=(>27,@&SEQUENTIAL ACCESS NAME,&@&DIRECF$1, FORCE = YESNO, SEQUENTIALFILE = *STRING,  RELATIVERECORDFILE = *STRING,  KEYINDEXEDFILE = *STRING,  DIRECTORYFILE = *STRING, PROGRAMFILE = *STRING, IMAGEFILE = *STRING  .IF "&SEQUENTIALFILE", NE, "" "@CFSEQ .EXIT .ENDIF$.IF "&RELATIVERECORDFILE", NE, ""$CFREL .EXIT .ENDIF .IF "&KEYINDEXEDFILE", NE, "" CFKEY .EXIT .ENDIF .IF "&DIRECTORYFILE", NE, "" CFDIR .EXIT .ENDIF.IF "&PROGRAMFILE", NE, "" CFPRO .EXIT .ENDIF .IF "&IMAGEFILE", NE, "" CFIMG .EXIT .ENDIF"MSG TEXT = "INVALID FILE TYPE" ".IF "&DIRECTORYFILE", NE, "" CFDIR .EXIT .END@ XT(EXECUTE TASK), (PROGRAM FILE OR LUNO=STRING("@$$PF"), ($TASK NAME OR ID=STRING("@$IT$T"), $PARM1=INT(0), PARM2=INT(0),  STATION ID=STRING(ME)  .OVLY OVLY=>1B,LUNO=0, ,PARMS=(18,"@&PROGRAM FILE OR LUNO","&TASK ,NAME OR ID","&STATION ID",&PARM1,&PARM2, N,N,$$RI) &.SYN $$PF="&PROGRAM FILE OR LUNO" &".SYN $IT$T="&TASK NAME OR ID" "STATION ID=STRING(ME)  .OVLY OVLY=>1B,LUNO=0, ,PARMS=(18,"@&PROGRAM FILE OR LUNO","&TASK ,$RAL(RELEASE ALL LOGICAL UNITS) =2,$ ARE YOU SURE? = YESNO .IF  &ARE YOU SURE?,GE,"Y"2.BID TASK=>2E,LUNO=0,PARMS=(46,&ARE YOU SURE?)2.ENDIF&DBP (DELETE BREAKPOINT - PASCAL) =2,& RUN ID = INT("@$$RI"), ROUTINE NAME = STRING,&WHERE (ENTRY/RETURN/BOTH) = *STRING &>.OVLY OVLY=0C,CODE=01B,PARMS=(&RUN ID,&ROUTINE NAME,&WHERE) >.SYN$$RI = "&RUN ID"QE (QUIT EDIT),  ABORT? = YESNO(NO) .IF "&ABORT", LT, "Y"QE$1.ELSE &.OVLY OVLY=4,CODE = 9,PARMS=(Y,,,) &.ENDIF4.SYN$XE$S="", $XE$SC="", $XE$EC="", $XEM$="" 4"INV (INITIALIZE NEW VOLUME) =2, " UNIT NAME = NAME,  VOLUME NAME=NAME, &NUMBER OF VCATALOG ENTRIES=INT(342),&BAD TRACK ACCESS NAME=*ACNM,*DEFAULT PHYSICAL RECORD SIZE=*INT(864), *(HARDWARE INTERLEAVING FACTOR=*INT(1), (*@"USED AS SYSTEM DISK?=YESNO(YES)," LOADER ACCESS NAME(.SYN $$INV$LD = "&LOADER ACCESS NAME" (.IF @$$MO,NE,0".IF "&USED AS SYSTEM DISK",GE,Y "INV$.ENDIF.ENDIF .IF @$$INV$LD,EQ,$$INV$LD  .OVLY OVLY=>1B,LUNO=0, &PARMS=(45,@&UNIT NAME,@&VOLUME NAME,&&NUMBER OF VCATALOG ENTRIES,(@&BAD TRACK ACCESS NAME,&DEFAULT PHY, ((&HARDWARE INT,&USED AS SYSTEM DISK, ) (.ELSE  .OVLY OVLY=>1B,LUNO=0,"PARMS=(45,@&UNIT NAME,@&VOLUME N"AME,&NUMBER OF VCATALOG ENTRIES,(@&BAD TRACK ACCESS NAME,&DEFAULT PHY, (0&HARDWARE INT,&USED AS SYSTEM DISK,@@$$INV$LD)0.ENDIF.SYN $$VN = "&VOLUME NAME".SYN $$INV$LD = """PARMS=(45,@&UNIT NAME,@&VOLUME N" AA(ADD ALIAS TO PATHNAME), PATHNAME=ACNM("@$AA$P"), ALIAS PATHNAME=ACNM  .OVLY OVLY=>1B,LUNO=0, (PARMS=(35,@&PATHNAME,@&ALIAS PATHNAME)(.SYN $AA$P="&PATHNAME"@8TXXLE (EXECUTE LINK EDITOR PRODUCING TX PROG FILE)=2, 8(CONTROL ACCESS NAME = ACNM("@$XLE$C"),(0LINKED OUTPUT ACCESS NAME = ACNM("@$XLE$OB"), 0(LISTING ACCESS NAME = ACNM("@$XLE$L"),( PRINT WIDTH = INT (80) .QBID TASK=>85, LUNO&=>10, PARMS=(@&CONTROL ACCESS NAME, &6@&LINKED OUTPUT ACCESS NAME, @&LISTING ACCESS NAME, 6 4096,&PRINT WIDTH)..SYN $XLE$OB = "&LINKED OUTPUT ACCESS NAME",.&$$OB = "&LINKED OUTPUT ACCESS NAME",&"$XLE$L = "&LISTING ACCESS NAME",""$XLE$C = "&CONTROL ACCESS NAME" "6@&LINKED OUTPUT ACCESS NAME, @&LISTING ACCESS NAME, 6 4096,&PRINT WIDTH)..SYN $XLE$OB = "&LINKED OUTPUT ACCESS NAME",.&$$OB = "&LINKED OUTPUT ACCESS NAME",&"$XLE$L = "&LISTING ACCESS NAME","@IDT$1, M = STRING .IF &M, GE, S.SYN$IDT$ = 9 .EXIT .ENDIF.IF &M, GE, O.SYN$IDT$ = 10.EXIT .ENDIF.IF &M, GE, N.SYN$IDT$ = 11.EXIT .ENDIF.IF &M, GE, MAY.SYN$IDT$ = 5 .EXIT .ENDIF.IF &M, GE, M.SYN$IDT$ = 3 .EXIT .ENDIF.IF &M, GE, JUN.SYN$IDT$ = 6 .EXIT .ENDIF.IF &M, GE, JU .SYN$IDT$ = 7 .EXIT .ENDIF.IF &M, GE, J.SYN$IDT$ = 1 .EXIT .ENDIF.IF &M, GE, F.SYN$IDT$ = 2 .EXIT .ENDIF.IF &M, GE, D.SYN$IDT$ = 12.EXIT .ENDIF.IF &M, GE, AU .SYN$IDT$ = 8 .EXIT .ENDIF.IF &M, GE, A.SYN$IDT$ = 4 .EXIT .ENDIF F.SYN$IDT$ = 2 .EXIT .ENDIF.IF &M, GE, D.SYN$IDT$ = 12.EXIT .ENDIF.IF &M, GE, AU .SYN$IDT$ = 8 .EXIT  DEVICE OPERATIONS  /DISK- DISK COMMANDS  /DVICE - DEVICES  /STAT - STATUS COMMANDS  /TERM- TERMINALS MTE (MODIFY TASK ENTRY) =2, &PROGRAM FILE PATHNAME=ACNM("@$$PF"),& MODULE NAME OR ID=STRING, NAME,  REAL TIME, PRIORITY, SYSTEM, PRIVILEGED, MEMORY RESIDENT,REPLICATABLE,  DELETE PROTECTED, @ EXECUTE PROTECTED, OVERFLOW, WCS, 1ST PROCEDURE ID, P1 FROM TASKS PROGRAM FILE,  2ND PROCEDURE ID,  P2 FROM TASKS PROGRAM FILE(.SYN$$PF = "&PROGRAM FILE PATHNAME" (.SYN$MTE$MF="N" .IF "&SYSTEM",  NE, "" .SYN$MTE$MF="Y" .ENDIF.IF  "&PRIVILEGED", NE, "" .SYN$MTE$MF="Y" .ENDIF".IF  "&MEMORY RESIDENT", NE, """.SYN$MTE$MF="Y" .ENDIF .IF  "&REPLICATABLE", NE, "" .SYN$MTE$MF="Y" @.ENDIF$.IF "&DELETE PROTECTED", NE, "" $.SYN$MTE$MF="Y" .ENDIF$.IF "&EXECUTE PROTECTED", NE, ""$.SYN$MTE$MF="Y" .ENDIF.IF  "&OVERFLOW", NE, "" .SYN$MTE$MF="Y" .ENDIF.IF "&WCS", NE, "".SYN$MTE$MF="Y" .ENDIF.SYN $MTE$AP="N"$.IF  "&1ST PROCEDURE ID", NE, ""$.SYN $MTE$AP="Y".ENDIF$.IF  "&2ND PROCEDURE ID", NE, ""$.SYN $MTE$AP="Y".ENDIF.IF  "&P1 FROM TASKS PRO GRAM FILE", NE, "".SYN $MTE$AP="Y".ENDIF..IF  "&P2 FROM TASKS PROGRAM FILE", NE, ""..SYN $MTE$AP="Y".ENDIF<.OVLY OVLY=>25, LUNO=0, PARMS=("@&PROGRAM FILE PATHNAME",<("&MODULE NAME OR ID",0,(&NAME),(&REAL ( TIME),(&PRIORITY),0"@$MTE$MF","@$MTE$AP",(&SYSTEM),(&PRIVILEGED),0:(&MEMORY RESIDENT),(&REPLICATABLE),(&DELETE PROTECTED), :>(&EXECUTE PROTECTED),(&OVERFLOW),(&WCS),(&1ST PROCEDURE ID),>.(&P1 FROM TASKS PROGRAM FILE),(&2ND PROCEDUR.E ID), (&P2 FROM TASKS PROGRAM FILE)) .SYN $MTE$MF="" .SYN $MTE$AP="" &REPLICATABLE),(&DELETE PROTECTED), :>(&EXECUTE PROTECTED),(&OVERFLOW),(&WCS),(&1ST PROCEDURE ID),>.(&P1 FROM TASKS PROGRAM FILE),(&2ND PROCEDUR.@PF (PRINT FILE),(FILE PATHNAME(S) = (ACNM) ("@$SF$P"), (ANSI FORMAT? = YESNO (NO),&LISTING DEVICE = NAME ("@$PF$D"), &&DELETE AFTER PRINTING? = *YESNO(NO),&NUMBER OF LINES/PAGE = *INT  .SYN $PF$D = "&LISTING DEVIC E"$.SYN $PF$R = "(&FILE PATHNAME)" $.LOOP 0.SPLITLIST="@$PF$R", FIRST=$SF$P, REST=$PF$R0 .OVLY OVLY=>24, CODE=0,F"PARMS=("@@$SF$P", "@@$PF$D", "&ANSI FORMAT", "&DELETE", "&NOLINES") F .WHILE "@$PF$R", NE, "$PF$R" " .REPEAT .SYN $SOS$ = ".S$FTLF@$$ST" .IF  "@$$MO", EQ, 0 .SYN $SOS$ = ".S$BTLF@$$ST".ENDIF.IF  "@$$MO", EQ, 1 .SYN$SOS$ = "@ME" .ENDIF:.OVLY OVLY=>24, CODE=4, PARMS=("@@$PF$D", "", "@$SOS$"):<.SYN $SOS$ = "" SOS$ = ".S$FTLF@$$ST" .IF  "@$$MO", EQ, 0 .SYN $SOS$ = ".S$BTLF@$$ST".ENDIF.IF  "@$$MO", EQ, 1 .SYN$SOS$ = "@ME" .ENDIF:.OVLY OVLY=>24, CODE=4, PARMS=("@@$PF$D", "", "@$SOS$"):<@ SOS(SHOW OUTPUT STATUS),USER ID=*NAME, DEVICE NAME=*NAME .SYN $SOS$ = ".S$FTLF@$$ST" .IF @$$MO, EQ, 0 .SYN $SOS$ = ".S$BTLF@$$ST".ENDIF .IF @$$MO, EQ, 1 .SYN$SOS$ = "@ME" .ENDIF .OVLY O VLY=>24,CODE=4, *PARMS=(@&DEVICE NAME,"&USER ID",@$SOS$) *.SYN$SOS$ = ""S$FTLF@$$ST" .IF @$$MO, EQ, 0 .SYN $SOS$ = ".S$BTLF@$$ST".ENDIF .IF @$$MO, EQ, 1 .SYN$SOS$ = "@ME" .ENDIF .OVLY O  TXFD (FORMAT DISKETTE) =2,DISKETTE = ACNM, VOLUME NAME = *STRING,IDENTIFICATION NAME = STRING.BID TASK=>3B,:PARMS=(,@&DISKETTE,@&VOLUME NAME,@&IDENTIFICATION NAME) :@"XLE (EXECUTE LINKAGE EDITOR) =2,"(CONTROL ACCESS NAME = ACNM("@$XLE$C"),(0LINKED OUTPUT ACCESS NAME = *ACNM("@$XLE$OB"),0*LISTING ACCESS NAME = *ACNM("@$XLE$L"), * PRINT WIDTH = INT(80) *.IF "@&CONTROL ACCESS NAME",EQ,"@&LINKED* OUTPUT ACCESS NAME"<MSG TEXT="ERROR: CONTROL NAME SAME AS LINKED OUTPUT NAME" <.EXIT .ENDIF8.IF "@&CONTROL ACCESS NAME",EQ,"@&LISTING ACCESS NAME"86MSG TEXT="ERROR: CONTROL NAME SAME AS LISTING NAME" 6.EXIT .ENDIF .QBID TASK = >86, LUNO = >10, "PARMS = (@&CONTROL ACCESS NAME, "@&LINKED OUTPUT ACCESS NAME, @&LISTING ACCESS NAME, 4096,&PRINT WIDTH)..SYN$XLE$OB = "&LINKED OUTPUT ACCESS NAME". .SYN $$OB = "&LINKED OUTPUT AC CESS NAME" &.SYN $XLE$L = "&LISTING ACCESS NAME"&&.SYN $XLE$C = "&CONTROL ACCESS NAME"&CESS NAME, @&LISTING ACCESS NAME, 4096,&PRINT WIDTH)..SYN$XLE$OB = "&LINKED OUTPUT ACCESS NAME". .SYN $$OB = "&LINKED OUTPUT AC 4CF (CREATE FILE - SEQ, REL, KEY, DIR, PROG, IMG), 4 FILE TYPE = NAME (SEQ) .IF "@$$MO", EQ, 0 :MSG T="ERROR:USE SPECIFIC FILE TYPE CREATE IN BATCH" :.ELSE "CF$1 "&FILE TYPE" = "*", FORCE=Y".ENDIF HT (HALT TASK) =2, RUN ID = INT(@$$RI) .OVLY OVLY = 0C, CODE = 7,  PARMS = (&RUN ID) .SYN $$RI = "&RUN ID" "TXDF (DELETE DISKETTE FILE) =2, " TX990 ACCESS NAME = STRING0.BID TASK=>3C,PARMS=("@&TX990 ACCESS NAME",92)0$CSK(COPY SEQUENTIAL FILE TO KIF), $ INPUT ACCESS NAME=ACNM,  OUTPUT PATHNAME=ACNM.BID TASK = >2C,LUNO=0, 2PARMS=(44,@&INPUT ACCESS NAME,@&OUTPUT PATHNAME)2@"IGS(INSTALL GENERATED SYSTEM)=6," TARGET DISK =*NAME("@$$DSC$"), SYSTEM NAME =*NAME("@$$SYS$") .SYN $$DSC$ = "@&TARGET DISK"  .IF "@$$DSC$",EQ,$$DSC$  .SYN $$DSC$="DS01".ENDIF .SYN $$SYS$ = "@&SYSTEM NAME" :.BID TASK=>44, PARMS = (I,&TAR,&SYSTEM,@$$DSC$.S$IMAGES): .SYN $$DSC$="",$$SYS$=""("@$$SYS$") .SYN $$DSC$ = "@&TARGET DISK"  .IF "@$$DSC$",EQ,$$DSC$  .SYN $$DSC$="DS01".ENDIF .SYN $$SYS$ = "@&SYSTEM NAME" ISL$, &SYSTEM LOG PROCESSOR TASK ID=INT(0),&$USER LOG PROCESSOR TASK ID=INT(0) $&.SYN $ISL$P="&SYSTEM LOG,&USER LOG" &ALIAS COMMANDS AA - ADD ALIAS $ DA - DELETE ALIAS FROM PATHNAME$$SIS$ (SHOW TASK LOCAL I/O STATUS),$ TASK RUN ID=INT("@$$RI").SYN $SIS$T="&TASK RUN ID" RST (RESUME SIMULATED TASK) =2 .OVLY OVLY = >C, CODE = >11  SPECIAL DEBUG COMMANDS& ASB- ASSIGN SIMULATED BREAKPOINT && DSB- DELETE SIMULATED BREAKPOINTS&$ LSB- LIST SIMULATED BREAKPOINTS$ QD  - QUIT DEBUG MODE   RST - RESUME SIMULATED TASK  ST - SIMULATE TASK  XD  - INITIATE DEBUG MODE  ASB- ASSIGN SIMULATED BREAKPOINT && DSB- DELETE SIMULATED BREAKPOINTS&$ LSB- LIST SIMULATED BREAKPOINTS$ QD  - QUIT DEBUG MODE   RST - RESUME SIMULATED TASK  ST - SIMULATE TASK  TXMD (MAP DISKETTE),DISKETTE = ACNM,LISTING ACCESS NAME = *ACNM .BID TASK=>3A,.PARMS=("@&DISKETTE","@&LISTING ACCESS NAME").$CKS(COPY KIF TO SEQUENTIAL FILE), $ INPUT PATHNAME=ACNM, KEY=INT,  OUTPUT ACCESS NAME=ACNM, REPLACE?=YESNO(NO).BID TASK=>2C,LUNO=0, 8PARMS=(43,@&INPUT PATHNAME,&KEY,@&OUTPUT ACCESS NAME, 8 &REPLACE?)  WEOF (WRITE EOF TO LUNO),  LUNO = INT &.OVLY OVLY = >1B,PARMS = (46,&LUNO) &@ XE (INITIATE TEXT EDITOR),"FILE ACCESS NAME = *ACNM(@$XE$) " .IF @$$MO, EQ, 0 *MSG T="COMMAND IS INVALID IN BATCH MODE"*.EXIT .ENDIF .IF "@$MR$", EQ, "$MR$" .SYN $MR$=12.ENDIF .IF "@$MRM$", EQ, "$MRM$" .SYN $MRM$=80 .ENDIF .IF "@$MT$", EQ, "$MT$"  .SYN $MT$="1,8,13,26,31".ENDIF .IF "@$$EA", LT, "Y"  .SYN $XE$="&FILE ACCESS NAME" .ENDIF .IF "@$XE$", EQ, "$XE$".SYN$XE$ = " ".ENDIF (.IF @@$XE$, NE, "@&FILE ACCESS NAME" (2MSG TEXT = "EDIT ALREADY IN PROGRESS FOR @$XE$"2.EXIT .ENDIF.SYN$XEM$ = 1 ".OVLY OVLY=3,LUNO=0, CODE=0, " PARMS=(@&FILE ACCESS NAME, @$MR$,@$MRM$,@$XEM$,@$MT$) ST (SIMULATE TASK) =2, FOR = *STRING("@$XD$F"),FROM = *STRING, TO = *STRING.SYN$XD$F = "&FOR" .OVLY OVLY = >C, CODE = >12, "PARMS = ("&FOR", "&FROM", "&TO")"R  ADJUST 5 911 CRT  PHASE 2,SKI1A ! "INCLUDE DS01.S$SYSGEN.DSR911 "ADJUST 5 979 MAG TAPE PHASE 2,SKI1C ! "INCLUDE DS01.S$SYSGEN.DSR979 " END & "ADJUST 5 SVC AND I/O  PHASE 2,SKI15 ! "INCLUDE DS01.S$SYSGEN.SVCIO  ""INCLUDE DS01.S$SYSGEN.NOFCCC ""INCLUDE DS01.S$SYSGEN.SYSLOG "ADJUST 5 DISK PHASE 2,SKI16 ! "INCLUDE DS01.S$SYSGEN.DDIOSR "ADJUST 5 LINE PRINTER PHASE 2,SKI17 !  INCLUDE DS01.S$SYSGEN.LPDS  DS01.S$SYSGEN.DUMMYDS01.S$SYSGEN.SKI1.D$OBJECT DS01.S$SYSGEN.SYSLGY$ DS01.S$SYSGEN.ROOTG  DS01.S$SYSGEN.FILMG DS01.S$SYSGEN.DUMKIF$  DS01.S$SYSGEN.MEMRES$  DS01.S$SYSGEN.DUMCO$   ˂R˃ M$  DS01.S$SYSGEN.IOCOM DS01.S$SYSGEN.NOCOMM$  DS01.S$SYSGEN.SVCIO DS01.S$SYSGEN.NOFCCC$ DS01.S$SYSGEN.SYSLOG$  DS01.S$SYSGEN.DDIOSR$   DS01.S$SYSGEN.LPDSR   DS01.S$SYSGEN.DSR91$   ˂R˃ CFIMG(CREATE IMAGE FILE) =2,PATHNAME=ACNM,ALLOCATION=INT .OVLY OVLY=>1B,LUNO=0, *PARMS=(39,@&PATHNAME,,,&ALLOCATION,0,N) *$SIR (SHOW INTERNAL REGISTERS) =2, $ RUN ID = INT("@$$RI") .OVLY OVLY = 0C, CODE = 5,  PARMS = (&RUN ID) .SYN $$RI = "&RUN ID" 0KEY (KEY DESCRIPTION FOR KEY NUMBER @$CFK$KN),0$START POSITION = INT("@$CFK$KS"), $KEY LENGTH= INT, DUPLICATES? = YESNO (NO),  MODIFIABLE? = YESNO (NO), ANY MORE KEYS? = *YESNO(YES) .IF "@$CFK$KN", EQ, "$CFK$KN" $@<MSG T="ERROR:INVALID CFKEY SEQUENCE; KEY BEFORE CFKEY" <.EXIT .ENDIF .IF "@$CFK$KN", EQ, 1.SYN$CFK$M = N.ELSE .SYN $CFK$M = "&MODIFIABLE".ENDIF$.SYN $CFK$KS = "&START POSITION"$.SYN $CFK$L=8"@$CFK$L,(@$CFK$KS,&KEY LENGTH,&DUPLICATES,@$CFK$M,Y)"8.EVAL $CFK$KN = @$CFK$KN+1  .IF  "&ANY MORE KEYS", LT, Y .SYN$CFK$KS = "".ENDIF&MODIFIABLE".ENDIF$.SYN $CFK$KS = "&START POSITION"$.SYN $CFK$L= AGL(ASSIGN GLOBAL LUNO),LUNO=*INT, ACCESS NAME=ACNM,"PROGRAM FILE?=YESNO(NO),DISPLAY ".IF  &LUNO, EQ, "" .OVLY OVLY=>1B,PARMS=6(37,,@&ACCESS NAME,Y,$AL$L,&PROGRAM FILE?,&DISPLAY) 6.SYN $$LU=@$AL$L.ELSE   .OVLY OVLY=>1B,PARMS=:(37,&LUNO,@&ACCESS NAME,N,$AL$L,&PROGRAM FILE?,&DISPLAY):.ENDIF.SYN $AL$L=""  .OVLY OVLY=>1B,PARMS=6(37,,@&ACCESS NAME,Y,$AL$L,&PROGRAM FILE?,&DISPLAY) 6.SYN $$LU=@$AL$L.ELSE   CM (CREATE MESSAGE),.RECEIVING TERMINAL NAME = *STRING(ST@$$ST), .MSG = *(STRING)  .IF "&MSG", NE, ""  .OVLY OVLY=>23, CODE=5,,PARMS=("&MSG","@&RECEIVING TERMINAL NAME"),.ENDIF LD(LIST DIRECTORY), PATHNAME=ACNM, LISTING ACCESS NAME=*ACNM .BID TASK=>32,CODE=>32, .PARMS=(>32,@&PATHNAME,@&LISTING ACCESS NAME).$SWR (SHOW WORKSPACE REGISTERS) =2,$ RUN ID = INT("@$$RI")  .OVLY OVLY = >C, CODE = >B,  PARMS = (&RUN ID) .SYN$$RI = "&RUN ID"@SHOW COMMANDS 4 LD - LIST DIRECTORY SPI - SHOW PROGRAM IMAGE4> LLR - LIST LOGICAL RECORD  SRF - SHOW RELATIVE TO FILE >2 LM - LIST MEMORY  STI - SHOW TERMINAL INFO2 LSM - LIST SYSTEM MEMORY MD - MAP DISK MKF - MAP KEY INDEXED FILE MPF - MAP PROGRAM FILE PF - PRINT FILE SF - SHOW FILE SHOW RELATIVE TO FILE >2 LM - LIST MEMORY  STI - SHOW TERMINAL INFO2 LSM - LIST SYSTEM MEMORY MD - MAP DI@ DL (DELETE LINES), START LINE=*STRING, END LINE=*STRING .OVLY OVLY=4, LUNO=0,  CODE=4, $PARMS=("&START LINE","&END LINE") $.IF @$$CC, EQ, 0 .OVLY OVLY=3, LUNO=0, CODE=1, &PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$M&T$) .ENDIF START LINE=*STRING, END LINE=*STRING .OVLY OVLY=4, LUNO=0,  CODE=4, $PARMS=("&START LINE","&END LINE") $.IF @$$CC, EQ, 0 .OVLY OVLY=3, LUNO=0, CODE=1, &PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$M& MDS (MODIFY DEVICE STATE) =6,  DEVICE NAME = ACNM,  DEVICE STATE= *STRING, CODE8,RAW .BID TASK = >4F,:PARM = ("&DEVICE NAME","&DEVICE STATE","&CODE8","&RAW") :&DCOPY (DISK COPY/RESTORE UTILITY) =2&.BID TASK=>7@*XES (INITIATE TEXT EDITOR WITH SCALING),*"FILE ACCESS NAME = *ACNM(@$XE$) " .IF @$$MO, EQ, 0 *MSG T="COMMAND IS INVALID IN BATCH MODE"*.EXIT .ENDIF .IF "@$MR$", EQ, "$MR$" .SYN $MR$=12.ENDIF .IF "@$MRM $", EQ, "$MRM$" .SYN $MRM$=80 .ENDIF .IF "@$MT$", EQ, "$MT$"  .SYN $MT$="1,8,13,26,31".ENDIF .IF "@$$EA", LT, "Y"  .SYN $XE$="&FILE ACCESS NAME" .ENDIF .IF "@$XE$", EQ, "$XE$".SYN$XE$ = " "@.ENDIF(.IF @@$XE$, NE, "@&FILE ACCESS NAME" (2MSG TEXT = "EDIT ALREADY IN PROGRESS FOR @$XE$"2.EXIT .ENDIF.SYN$XEM$ = 2 ".OVLY OVLY=3,LUNO=0, CODE=0, " PARMS=(@&FILE ACCESS NAME, @$MR$,@$MRM$,@$XEM$,@$MT$).IF @@$XE$, NE, "@&FILE ACCESS NAME" (2MSG TEXT = "EDIT ALREADY IN PROGRESS FOR @$XE$"2.EXIT .ENDIF.SYN$XEM$ = 2 ".OVLY OVLY=3,LUNO=0, CODE=0, " PARMS=(@&FILE ACCESS NAME, @$MR$,@$MRM$,@$XEM$,@$@ FW (FIND WORD) =2, RUN ID = STRING(@$$RI),  VALUE(S) = (STRING),STARTING ADDRESS = *STRING,  ENDING ADDRESS = *STRING .OVLY OVLY = >C, CODE = >17,  PARMS = (&RUN ID,"&VALUE",&"&STARTING ADDRESS", "&ENDING ADDRES&S") .SYN $$RI = "&RUN ID" @$$RI),  VALUE(S) = (STRING),STARTING ADDRESS = *STRING,  ENDING ADDRESS = *STRING .OVLY OVLY = >C, CODE = >17,  PARMS = (&RUN ID, &VALUE, &"&STARTING ADDRESS", "&ENDING ADDRES&@ MOE (MODIFY OVERLAY ENTRY) =2, &PROGRAM FILE PATHNAME=ACNM("@$$PF"),& MODULE NAME OR ID=STRING, NAME, RELOCATABLE,DELETE PROTECTED(.SYN$$PF = "&PROGRAM FILE PATHNAME" (,.OVLY OVLY=>25, LUNO=0, PARMS=(@&PROGRAM ,FILE PATHNAME,.&MODULE NAME OR ID,2,(&NAME),(&RELOCATABLE),. (&DELETE PROTECTED))STRING, NAME, RELOCATABLE,DELETE PROTECTED(.SYN$$PF = "&PROGRAM FILE PATHNAME" (,.OVLY OVLY=>25, LUNO=0, PARMS=(@&PROGRAM ,&CFREL(CREATE RELATIVE RECORD FILE), &PATHNAME=ACNM,LOGICAL RECORD LENGTH=*INT, PHYSICAL RECORD LENGTH=*INT, INITIAL ALLOCATION=*INT, SECONDARY ALLOCATION=*INT, EXPANDABLE?=YESNO(YES),  FORCED WRITE?=YESNO(NO)  .OVLY OVLY=>1B,LUNO=0, .PARMS=(11,@&PATHNAME,&LOGICAL RECORD LENGTH,..&PHYSICAL RECORD LENGTH,&INITIAL ALLOCATION,.4&SECONDARY ALLOCATION,&EXPANDABLE?,&FORCED WRITE?)4 EXPANDABLE?=YESNO(YES),  FORCED WRITE?=YESNO(NO) @"IRT(INSTALL REAL-TIME TASK) =2, "8PROGRAM FILE OR LUNO=STRING("@$$PF"), TASK NAME=*NAME,8<TASK ID=*INT(0), OBJECT PATHNAME OR LUNO=STRING("@$$OB"), <0PRIORITY=INT, DEFAULT TASK FLAGS?=*YESNO(YES),0$ATTACHED PROCEDURES?=*YESNO(NO), 1$ST PROCEDURE ID,0P1 FROM TASKS PROGRAM FILE, 2ND PROCEDURE ID, 08P2 FROM TASKS PROGRAM FILE, PRIVILEGED?, SYSTEM TASK?,86MEMORY RESIDENT?, REPLICATABLE?, DELETE PROTECTED?, 6*EXECUTE PROTECTED?, OVERFLOW CHECKING?, * WRITABLE C ONTROL STORAGE? .IF @$$MO, NE, 0$.IF "&DEFAULT TASK FLAGS?", LT, Y $IT$$.ELSE  .SYN $IT$P1="N,N,N,N,Y,N,N,N" .ENDIF$.IF "&ATTACHED PROCEDURES", GE, Y$IT$ .ELSE  .SYN $IT$P1="@$IT$P1,0,0,Y,Y" "@.ENDIF.ELSE .SYN $IT$P1 = N  .IF "&PRIVILEGED?", NE, "".SYN $IT$P1 = "&PRIVILEGED?".ENDIF.IF "&SYSTEM TASK?", NE, "" (.SYN $IT$P1 = "@$IT$P1,&SYSTEM TASK?" (.ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF".IF "&MEMORY RESIDENT?", NE, "" ",.SYN $IT$P1 = "@$IT$P1,&MEMORY RESIDENT?" ,.ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF".IF "&DELETE PROTECTED?", NE, """,.SYN $IT$P1 = "@$IT$P1,&DELETE PROTECTED?",.ELSE  @ .SYN $IT$P1 = "@$IT$P1,N" .ENDIF.IF "&REPLICATABLE?", NE, ""(.SYN $IT$P1 = "@$IT$P1,&REPLICATABLE?"(.ELSE  .SYN $IT$P1 = "@$IT$P1,Y" .ENDIF$.IF "&EXECUTE PROTECTED?", NE, "" $ .SYN $IT$P1 = "@$IT$P1,&EXECUT E PROTECTED?" .ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF$.IF "&OVERFLOW CHECKING?", NE, "" $..SYN $IT$P1 = "@$IT$P1,&OVERFLOW CHECKING?" ..ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF .IF "&WRITABLE CONTROL STORAGE?", NE, ""4.SYN $IT$P1 = "@$IT$P1,&WRITABLE CONTROL STORAGE?"4.ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF".IF "&1ST PROCEDURE ID", NE, "" ",.SYN $IT$P1 = "@$IT$P1,&1ST PROCEDURE ID" ,.ELSE  .SYN $IT$P1 = "@$I T$P1,0" .ENDIF".IF "&2ND PROCEDURE ID", NE, "" ",.SYN $IT$P1 = "@$IT$P1,&2ND PROCEDURE ID" ,.ELSE  .SYN $IT$P1 = "@$IT$P1,0" .ENDIF,.IF "&P1 FROM TASKS PROGRAM FILE", NE, "" ,".SYN $IT$P1 = "@$IT$P1,&P1 FROM " TASKS PROGRAM FILE" .ELSE  .SYN $IT$P1 = "@$IT$P1,Y" .ENDIF,.IF "&P2 FROM TASKS PROGRAM FILE", NE, "" ,6.SYN $IT$P1 = "@$IT$P1,&P2 FROM TASKS PROGRAM FILE" 6.ELSE  .SYN $IT$P1 = "@$IT$P1,Y" .ENDIF.ENDIF@.IF "@&PROGRAM FILE OR LUNO", EQ, "@&OBJECT PATHNAME OR LUNO" @@CM MSG=(SAME FILE SPECIFIED FOR BOTH PROGRAM AND OBJECT FILE) @.ELSE  .EVAL $$PRIOR = 128+&PRIORITY 6.OVLY OVLY=>1B,PARMS=(24,"@&PROGRAM FILE OR LUNO", 6ND: &TASK NAME,&TASK ID,("@&OBJECT PATHNAME OR LUNO",@$$PRIOR, ( @$IT$P1) .ENDIF&.SYN $$PF="&PROGRAM FILE OR LUNO",&"$$OB="&OBJECT PATHNAME OR LUNO",",$IT$T="&TASK NAME", $IT$P1="", $$PRIOR="" ,GRAM FILE OR LUNO", 6ND:@ GENERAL DEBUG COMMANDS* FB - FIND BYTE  RT - RESUME TASK *6 FW - FIND WORD  RCRU  - READ FROM CRU ADDRESS 66 HT - HALT TASK  SIR - SHOW INTERNAL REGISTERS 6( KT - KILL TASK  SP - SHOW PANEL(  LM - "LIST MEMORY  SV - SHOW VALUE"> LSM - LIST SYSTEM MEMORY SWR - SHOW WORKSPACE REGISTERS>D MIR- MODIFY INTERNAL REGISTERS  WCRU  - WRITE TO CRU ADDRESSD8 MM - MODIFY MEMORY  XHT - EXECUTE AND HALT TASK 8 MSM- MODIFY SYSTEM MEMORY$ MWR- MODIFY WORKSPACE REGISTERS$RY SWR - SHOW WORKSPACE REGISTERS>D MIR- MODIFY INTERNAL REGISTERS  WCRU  - WRITE TO CRU ADDRESSD8 MM - MODIFY MEMORY  XHT - EXECUTE AND HALT TASK 8 MSM- MODI@ DS (DELETE STRING),  NUMBER OF OCCURRENCES=INT(1), START COLUMN=INT("@$XE$SC"), END COLUMN=INT("@$XE$EC"), STRING=*(STRING)("@$XE$S") .IF "&STRING", EQ, ""(MSG T="AN EMPTY STRING IS NOT ALLOWED"(.EXIT .ENDIF .SYN $XE$SC = "&START COLUMN" .SYN $XE$EC = "&END COLUMN"  .SYN $XE$S = "&STRING" .OVLY OVLY=4, LUNO=0,  CODE=7, PARMS=(&NUMBER OF OCCURRENCES, &START COLUMN,&END COLUMN, "&STRING") .SYN$XE$ S = "&STRING" .IF @$$CC, EQ, 0 .OVLY OVLY=3, LUNO=0, CODE=1, *PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *.ENDIFDE=7, PARMS=(&NUMBER OF OCCURRENCES, &START COLUMN,&END COLUMN, "&STRING") .SYN$XE$  SVL (SAVE LINES),  START LINE=*STRING,  END LINE=*STRING, SAVE FILE PATHNAME=*STRING,  REPLACE (YES/NO)=YESNO(NO) .OVLY OVLY=4, LUNO=0, CODE=10,  PARMS=("&START LINE", "&END LINE", "@&SAVE FILE PATHNAME", "&REPLACE") .IF @$$CC, EQ, 0 .OVLY OVLY=3, LUNO=0, CODE=1, *PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *.ENDIF .OVLY OVLY=4, LUNO=0, CODE=10,  PARMS=("&START LINE", "&END LINE", "@&SAVE FILE PATHNAME", AB (ASSIGN BREAKPOINTS) =2,  RUN ID = INT("@$$RI"), ADDRESS(ES) = (STRING).OVLY OVLY = 0C, CODE = 1,  PARMS = (&RUN ID,&ADDRESS).SYN $$RI = "&RUN ID" @ PROGRAM FILE COMMANDS : CFPRO - CREATE PROGRAM FILE  BD  - BACKUP DIRECTORY:6 MOE - MODIFY OVERLAY ENTRY CD - COPY DIRECTORY6< MPE - MODIFY PROCEDURE ENTRY CPI - COPY PROGRAM IMAGE<  MPF - MAP PROGRAM FILE RD  - RESTORE DIRECTORY  MPI - MODIFY PROGRAM IMAGE MTE - MODIFY TASK ENTRY  SPI - SHOW PROGRAM IMAGE CD - COPY DIRECTORY6< MPE - MODIFY PROCEDURE ENTRY CPI - COPY PROGRAM IMAGE<  MPF - MAP PROGRAM FILE RD @ MAD(MODIFY ABSOLUTE DISK) =6, DISK UNIT=NAME, $OUTPUT ACCESS NAME=*ACNM("@$$OP"),$ TRACK=INT, SECTOR=INT, FIRST WORD=INT,  VERIFICATION DATA=*(INT),  DATA=(INT) .BID TASK=>18,LUNO=0, PARMS=(4,@&DISK "UNIT,&TRACK,&SECTOR,&FIRST WORD,"8"(&DATA)","(&VERIFICATION DATA)",@&OUTPUT ACCESS NAME)8&.SYN $$OP = "&OUTPUT ACCESS NAME" &RD=INT,  VERIFICATION DATA=*(INT),  DATA=(INT) .BID TASK=>18,LUNO=0, PARMS=(4,@&DISK @MODIFY COMMANDS @ MAD - MODIFY ABSOLUTE DISK MRF - MODIFY RELATIVE TO FILE @> MADU - MODIFY ALLOCABLE DISK UNIT MM - MODIFY MEMORY >< MDS - MODIFY DEVICE STATUS MSM - MODIFY SYSTEM MEMORY< MFN- MODIFY FILE NA ME MTE - MODIFY TASK ENTRY D MFP - MODIFY FILE PROTECTION MVI- MODIFY VOLUME INFORMATION DD MLP - MODIFY LUNO PROTECTION STI- SHOW TERMINAL INFORMATION D< MOE - MODIFY OVERLAY ENTRY XE  - INITIATE TEXT EDITOR< MPE< - MODIFY PROCEDURE ENTRY XES - TEXT EDITOR WITH SCALING< MPI - MODIFY PROGRAM IMAGEION DD MLP - MODIFY LUNO PROTECTION STI- SHOW TERMINAL INFORMATION D< MOE - MODIFY OVERLAY ENTRY XE  - INITIATE TEXT EDITOR< MPE@ VB(VERIFY BACKUP),(SEQUENTIAL ACCESS NAME=ACNM("@$BD$S"),($DIRECTORY PATHNAME=ACNM("@$BD$D"),$ LISTING ACCESS NAME=*ACNM  .BID TASK=>40,CODE=>40, (PARMS=(>40,"@&SEQUENTIAL ACCESS NAME",( "@&DIRECTORY PATHNAME", "@&L ISTING ACCESS NAME")QUENTIAL ACCESS NAME=ACNM("@$BD$S"),($DIRECTORY PATHNAME=ACNM("@$BD$D"),$ LISTING ACCESS NAME=*ACNM  .BID TASK=>40,CODE=>40, (PARMS=(>40,"@&SEQUENTIAL ACCESS NAME",( "@&DIRECTORY PATHNAME", "@&L DF(DELETE FILE) =2,  PATHNAME(S)=(ACNM) .SYN $DF="(&PATHNAME(S))" .LOOP *.SPLIT LIST="@$DF", FIRST=$DF1, REST=$DF*".OVLY OVLY=>1B,PARMS=(8,@@$DF1)" .WHILE "@$DF", NE, "$DF" .REPEAT .SYN $DF1=""@&XANAL (ANALYZE DX10 CRASH FILE) =2, &"CONTROL ACCESS NAME = ACNM(ME), ""LISTING ACCESS NAME = *ACNM(ME),"&ANALYZE RUNNING SYSTEM? = YESNO(NO),& DISK DEVICE NAME = NAME(DS01), "CRASH-FILE NAME = NAME(S$CRASH) ".BIDTASK = >&FE, PARMS = (@&CONTROL ACCESS NAME, & @&LISTING ACCESS NAME, &ANALYZE RUNNING SYSTEM, @&DISK DEVICE NAME,  @&CRASH-FILE NAME)NO),& DISK DEVICE NAME = NAME(DS01), "CRASH-FILE NAME = NAME(S$CRASH) ".BIDTASK = > MACRO ASSEMBLER COMMANDS  XLE - EXECUTE LINKAGE EDITOR " XMA - EXECUTE MACRO ASSEMBLER "@SAD(SHOW ABSOLUTE DISK) =2, DISK UNIT=NAME,  TRACK=INT, SECTOR=INT,  FIRST WORD=INT(0), NUMBER OF WORDS=*INT, $OUTPUT ACCESS NAME=*ACNM("@$$OP") $".IF  "&NUMBER OF WORDS", NE, """.EVAL $SAD$ = 2*&NUMBER OF WORDS $.EVAL $SAD$ = @$SAD$+&FIRST WORD $ .EVAL $SAD$ = @$SAD$-2 .ELSE .SYN$SAD$ = " " .ENDIF.BID TASK=>18,LUNO=0,  PARMS=(2,@&DISK UNIT, $&TRACK,&SECTOR,&FIRST WORD,@$SAD$,$ @&OUTPUT ACCESS NAME) .SYN $SAD$ = "" $.SYN $$OP="&OUTPUT ACCESS NAME" $$-2 .ELSE .SYN$SAD$ = " " .ENDIF.BID TASK=>18,LUNO=0,  PARMS=(2,@&DISK UNIT, $&TRACK,&SECTOR,&FIRST WORD,@$SAD$,$ @&OUTPUT ACCESS NAME@TXCP$, CODE (U,D,W) = *NAME (U) .SYN $TX$I = "&CODE".SYN $TX$I2 = 0  .IF @$TX$I, EQ, "U"  .SYN $TX$I2 = "96".EXIT .ENDIF .IF @$TX$I, EQ, "W"  .SYN $TX$I2 = "97".EXIT .ENDIF .IF @$TX$I , EQ, "D"  .SYN $TX$I2 = "98".EXIT .ENDIF*MSG T="INVALID CODE, USE ONLY U,D,OR W."* .IF @$$MO, NE, 0 TXCP$ .ENDIF .IF @$TX$I, EQ, "W"  .SYN $TX$I2 = "97".EXIT .ENDIF .IF @$TX$I XGEN (EXECUTE AUTO SYSGEN) =6 .BID TASK=>33 ,MSG TEXT=" **** GEN990 TERMINATED ****" ,@LUNO< AGL - ASSIGN GLOBAL LUNO BL  - BACKSPACE LOGICAL UNIT<J AL - ASSIGN (TERMINAL LOCAL) LUNO FL - FORWARD SPACE LOGICAL UNITJ: RAL - RELEASE ALL LUNO'S RWL - REWIND LOGICAL UNIT : RGL - RELEASE GLOBAL LUNO  WEOF  - WRITE EOF TO LUNO  RL - RELEASE LUNO: MLP - MODIFY LUNO PROTECTION SIS - SHOW I/O STATUS :RWARD SPACE LOGICAL UNITJ: RAL - RELEASE ALL LUNO'S RWL - REWIND LOGICAL UNIT : RGL - RELEASE GLOBAL LUNO   LIBRARY .SCI990.S$OBJECT   FORMAT  IMAGE,REPLACE PROCEDURE CONVRT   INCLUDE .CONVERT.OBJECTC   TASK  TI2IBM   INCLUDE .CONVERT.OBJECTA   END&SPI(SHOW PROGRAM IMAGE) =2, PROGRAM FILE=ACNM("@$$PF"), $OUTPUT ACCESS NAME=*ACNM("@$$OP"),$ MODULE TYPE=STRING("@$SPI$T"), &MODULE NAME OR ID=STRING("@$SPI$I"),& ADDRESS=INT("@$SPI$A"),  LENGTH=INT .BID TASK=>1C,@ PARMS=(44,@&PROGRAM FILE,  @&OUTPUT ACCESS NAME, 8"&MODULE TYPE","&MODULE NAME OR ID",&ADDRESS,&LENGTH) 8.SYN $$PF="&PROGRAM FILE" $.SYN $$OP="&OUTPUT ACCESS NAME" $.SYN $SPI$T="&MODULE TYPE".SYN $SPI$I="&MODULE NAME OR ID".SYN $SPI$A="&ADDRESS"ME, 8"&MODULE TYPE","&MODULE NAME OR ID",&ADDRESS,&LENGTH) 8.SYN $$PF="&PROGRAM FILE" $.SYN $$OP="&OUTPUT ACCESS NAME" $.SYN $SPI$T="&MODULE TYPE".SYN $SPI$I="&MODU@ QE$1 (QUIT EDIT), &OUTPUT FILE ACCESS NAME=ACNM(@$XE$),& REPLACE?=YESNO(NO),  MOD LIST ACCESS NAME=*ACNM .OVLY OVLY=4, LUNO=0,  CODE=9, PARMS=(N, "@&OUTPUT FILE ACCESS NAME", &REPLACE, "@&MOD LIST ACCE SS NAME") *.SYN$XE$ = "&OUTPUT FILE ACCESS NAME" **.SYN$$S = "&OUTPUT FILE ACCESS NAME" *NAME=*ACNM .OVLY OVLY=4, LUNO=0,  CODE=9, PARMS=(N, "@&OUTPUT FILE ACCESS NAME", &REPLACE, "@&MOD LIST ACCE@ IT(INSTALL TASK) =2,8PROGRAM FILE OR LUNO=STRING("@$$PF"), TASK NAME=*NAME,8<TASK ID=*INT(0), OBJECT PATHNAME OR LUNO=STRING("@$$OB"), <4PRIORITY=*INT(4), DEFAULT TASK FLAGS?=*YESNO(YES),4,ATTACHED PROCEDURES?=*YESNO(NO), 1ST PROCE, DURE ID, 0P1 FROM TASKS PROGRAM FILE, 2ND PROCEDURE ID, 08P2 FROM TASKS PROGRAM FILE, PRIVILEGED?, SYSTEM TASK?,86MEMORY RESIDENT?, REPLICATABLE?, DELETE PROTECTED?, 6*EXECUTE PROTECTED?, OVERFLOW CHECKING?, * WRITABLE CONTROL S TORAGE? .IF @$$MO, NE, 0$.IF "&DEFAULT TASK FLAGS?", LT, Y $IT$$.ELSE  .SYN $IT$P1="N,N,N,N,Y,N,N,N" .ENDIF$.IF "&ATTACHED PROCEDURES", GE, Y$IT$ .ELSE  .SYN $IT$P1="@$IT$P1,0,0,Y,Y" .ENDIF.ELSE .SYN $IT$P1 = N  .IF "&PRIVILEGED?", NE, "".SYN $IT$P1 = "&PRIVILEGED?".ENDIF.IF "&SYSTEM TASK?", NE, "" (.SYN $IT$P1 = "@$IT$P1,&SYSTEM TASK?" (.ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF".IF "&MEMORY RESIDENT?", NE, "" ",.SYN $IT$P1 = "@$IT$P1,&MEMORY RESIDENT?" ,.ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF".IF "&DELETE PROTECTED?", NE, """,.SYN $IT$P1 = "@$IT$P1,&DELETE PROTECTED?",.ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF.IF "&REPLICATABLE?", NE, ""(.SYN $IT$P1 = "@$IT$P1,&REPLICATABLE?"(.ELSE  .SYN $IT$P1 = "@$IT$P1,Y" .ENDIF$.IF "&EXECUTE PROTECTED?", NE, "" $ .SYN $IT$P1 = "@$IT$P1,&EXECUT E PROTECTED?" .ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF$.IF "&OVERFLOW CHECKING?", NE, "" $..SYN $IT$P1 = "@$IT$P1,&OVERFLOW CHECKING?" ..ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF .IF "&WRITABLE CONTROL STORAGE?", NE, ""4.SYN $IT$P1 = "@$IT$P1,&WRITABLE CONTROL STORAGE?"4.ELSE  .SYN $IT$P1 = "@$IT$P1,N" .ENDIF".IF "&1ST PROCEDURE ID", NE, "" ",.SYN $IT$P1 = "@$IT$P1,&1ST PROCEDURE ID" ,.ELSE  .SYN $IT$P1 = "@$I T$P1,0" .ENDIF".IF "&2ND PROCEDURE ID", NE, "" ",.SYN $IT$P1 = "@$IT$P1,&2ND PROCEDURE ID" ,.ELSE  .SYN $IT$P1 = "@$IT$P1,0" .ENDIF,.IF "&P1 FROM TASKS PROGRAM FILE", NE, "" ,".SYN $IT$P1 = "@$IT$P1,&P1 FROM " TASKS PROGRAM FILE" .ELSE  .SYN $IT$P1 = "@$IT$P1,Y" .ENDIF,.IF "&P2 FROM TASKS PROGRAM FILE", NE, "" ,6.SYN $IT$P1 = "@$IT$P1,&P2 FROM TASKS PROGRAM FILE" 6.ELSE  .SYN $IT$P1 = "@$IT$P1,Y" .ENDIF.ENDIF .IF "&PRIORITY" , GT, 4 ,CM MSG=(PRIORITY MUST BE 0, 1, 2, 3, OR 4),.ELSE @.IF "@&PROGRAM FILE OR LUNO", EQ, "@&OBJECT PATHNAME OR LUNO" @@CM MSG=(SAME FILE SPECIFIED FOR BOTH PROGRAM AND OBJECT FILE) @.ELSE .O4VLY OVLY=>1B,PARMS=(24,"@&PROGRAM FILE OR LUNO", 4 &TASK NAME,&TASK ID,("@&OBJECT PATHNAME OR LUNO",&PRIORITY,( @$IT$P1) .ENDIF.ENDIF&.SYN $$PF="&PROGRAM FILE OR LUNO",&"$$OB="&OBJECT PATHNAME OR LUNO","$IT$ T="&TASK NAME", $IT$P1="" AM FILE OR LUNO", 4 &TASK NAME,&TASK ID,("@&OBJECT PATHNAME OR LUNO",&PRIORITY,( @$IT$P1) .ENDIF.ENDIF&.SYN $$PF="&PROGRAM FILE OR LUNO",&"$$OB="&OBJECT PATHNAME OR LUNO","$IT$@MD(MAP DISK),  PATHNAME = *ACNM,  LISTING ACCESS NAME=*ACNM, SHORT FORM?=YESNO(YES),  TOP LEVEL ONLY?=YESNO(NO),"DIRECTORY NODES ONLY?=YESNO(NO) ".SYN $MD$ = "&PATHNAME" .IF  "&PATHNAME", EQ, "" .SYN$M D$ = ".VCATALOG".ELSE  .IF @@$MD$,GE,DK01 .IF @@$MD$,LE,DK990MSG TEXT="ERROR: PATHNAME CANNOT BE DISKETTE" 0.EXIT .ENDIF.ENDIF.ENDIF.BID TASK=>22,LUNO=0, &PARMS=(0,@@$MD$,@&LISTING ACCESS NAM&E,4&SHORT FORM,&TOP LEVEL ONLY,&DIRECTORY NODES ONLY)4.SYN $MD$ = ""TEXT="ERROR: PATHNAME CANNOT BE DISKETTE" 0.EXIT .ENDIF.ENDIF.ENDIF.BID TASK=>22,LUNO=0, &PARMS=(0,@@$MD$,@&LISTING ACCESS NAM& RCD(RECOVER DISK) =6, UNIT NAME = NAME.IF "&UNIT NAME" , EQ, DS01 B MSG T="**** DS01 NOT ALLOWED; SECONDARY DISK MUST BE USED ****" B.EXIT .ENDIF$.BID TASK=>53,PARMS=(@&UNIT NAME) $HO (HALT OUTPUT AT DEVICE),  DEVICE NAME = ACNM("@$PF$D"), *IMMEDIATELY OR AT EOF? (I/E) = *NAME (I)* .OVLY OVLY=>24, CODE=1, 2PARMS = (@&DEVICE NAME,&IMMEDIATELY OR AT EOF?) 2.SYN $PF$D = "&DEVICE NAME"VOLUME COMMANDS   CKD - CHECK DISK STRUCTURES  INV - INITIALIZE NEW VOLUME  IV - INSTALL VOLUME$ MVI- MODIFY VOLUME INFORMATION $ RCD- RECOVER DISK SVS - SHOW VOLUME STATUS UV - UNLOAD VOLUME VOLUME COMMANDS   CKD - CHECK DISK STRUCTURES  INV - INITIALIZE NEW VOLUME  IV - INSTALL VOLUME$ MVI- MODIFY VOLUME INFORMATION $ RCD- RECOVER DISK SVS - SHOW VOLUME STATUS UV - UNLOAD VOLUME  LUI (LIST USER IDS) =4,  OUTPUT ACCESS NAME = *ACNM .OVLY OVLY=>23, CODE=9,PARMS = ("","", "",  "@&OUTPUT ACCESS NAME", "",  "","","","","","","") @ DEVICES 8CC - COPY/CONCATENATE HO - HALT OUTPUT AT DEVICE82PF - PRINT FILE KO - KILL OUTPUT AT DEVICE2 RO - RESUME OUTPUT AT DEVICE 6BL - BACKSPACE LUNO SOS  - SHOW OUTPUT STATUS 6FL - FORWARD SPACE LUNO WEOF - WRITE EOF TO LUNO2RCRU - READ CONTENTS OF SPECIFIED CRU ADDRESS 20WCRU - WRITE VALUE TO SPECIFIED CRU ADDRESS 0T DEVICE 6BL - BACKSPACE LUNO SOS  - SHOW OUTPUT STATUS 6FL - FORWARD SPACE@8DPBP (DELETE AND PROCEED FROM BREAKPOINT - PASCAL) =2,8 RUN ID = STRING ("@$$RI"), DESTINATION ROUTINE = *STRING, &WHERE (ENTRY/RETURN/BOTH) = *STRING &.OVLY OVLY = 0C, CODE = 01C,.PARMS = (&RUN ID,&DESTINATION ROUTINE,&WHERE.) .SYN $$RI = "&RUN ID" NT - PASCAL) =2,8 RUN ID = STRING ("@$$RI"), DESTINATION ROUTINE = *STRING, &WHERE (ENTRY/RETURN/BOTH) = *STRING &.OVLY OVLY = 0C, CODE = 01C,.PARMS = (&RUN ID,&DESTINATION ROUTINE,&WHERE.@CSF(CREATE SYSTEM FILES) =6, VOLUME NAME = ACNM(@$$VN), MEMORY SIZE = INT(64K) .EVAL $CSF$I = 144 .SYN CSFV = "&VOLUME NAME" DF P=@CSFV.S$CRASH DF P=@CSFV.S$ROLLA4.OVLY OVLY=>1B,PARMS=(39,"@@CSFV.S$ROLLA",,,240,1240,Y).EVAL $CSF$A ="&MEMORY SIZE" .IF @$CSF$A,GT,1024 .EVAL $CSF$A = @$CSF$A/1024 .ENDIF&.EVAL $CSF$A=@$CSF$A*1024/@$CSF$I+1 &"CFIMG P=@CSFV.S$CRASH, A=@$CSF$A"$.SYN CSFV = "",$CSF$A="",$CSF$I=""$LA",,,240,124@(ENDKEY (TERMINATE KEY SPECIFICATIONS) ( .IF "@$CFK$KN", EQ, "$CFK$KN" >MSG T="ERROR:INVALID CFKEY SEQUENCE; ENDKEY BEFORE CFKEY">.EXIT .ENDIF .IF "@$CFK$KN", LE, 14MSG T="ERROR:INVALID CFKEY SEQUENCE; ENDKEY BEF4 ORE KEY" .ELSE .SPLITLIST ="(@$CFK$L)",REST = $CFK$L .OVLY OVLY=>1B,LUNO= 0,0PARMS=(12,"@$CFK$PN","@$CFK$FLRL","@$CFK$PRL",0("@$CFK$IA","@$CFK$SA",Y,Y,"@$CFK$MS", ( "@$CFK$L") .ENDIF.SYN4 $CFK$L="", $CFK$PN="", $CFK$FLRL="", $CFK$KN="", 42$CFK$PRL="", $CFK$KS="", $CFK$IA="", $CFK$M="", 2 $CFK$SA="", $CFK$MS="","@$CFK$FLRL","@$CFK$PRL",0("@$CFK$IA","@$CFK$SA",Y,Y,"@$CFK$MS", ( "@$CFK$L") .ENDIF.SYNSPS (SHOW PASCAL STACK) =2,  RUN ID = INT ("@$$RI")4.OVLY OVLY = 0C, CODE = 018, PARMS = ("&RUN ID") 4.SYN $$RI = "&RUN ID" @$PGS (PATCH GENERATED SYSTEM) = 6, $"TARGET DISK = *NAME("@$$DSC$"), " SYSTEM NAME = NAME("@$$SYS$"),  BATCH LISTING = ACNM .IF "&TARGET DISK", EQ, "" .SYN $$DSC$ = "DS01".ELSE .SYN $$DSC$ = "&TARGET DISK".ENDIF.SYN $$SYS$ = "&SYSTEM NAME" .QBID TASK = >20, @PARMS=("@$$DSC$.S$SYSGEN.@$$SYS$.PATCHFIL", "@&BATCH LISTING")@ .IF "&TARGET DISK", EQ, "" .SYN $$DSC$ = "DS01".ELSE .SYN $$DSC$ = "&TARGET DISK".END@ BATCH (BEGIN BATCH EXECUTION), USER ID = *STRING ("@$$UI"), $STATION ID = *STRING ("ST@$$ST"),$2 BATCH INPUT ACCESS NAME  = *STRING ("@$XB$I"), 22BATCH LISTING ACCESS NAME = *STRING ("@$XB$L"), 2 LS (LIST SYNONYMS) ?= *YES NO (NO)  .IF @$$MO, NE, 0 .EXIT .ENDIF .SYN $XB$I="", $XB$L="" ".SYN $MR$="", $MRM$="", $MT$="" "$.SYN $XD$D="", $XD$F="", $XD$S="" $8.SYN $CFK$L="", $CFK$PN="", $CFK$LRL="", $CFK$KN="" 8.SYN $CFK$PRL=""&, $CFK$KS="", $CFK$IA="", $CFK$M="" & .SYN $CFK$SA="", $CFK$MS="" .SYN $E$C=0 Q$SYN  .IF "&LS", GE, "Y"  LSL="" .ENDIFSDT YN $CFK$L="", $CFK$PN="", $CFK$LRL="", $CFK$KN="" 8.SYN $CFK$PRL=""$MVI (MODIFY VOLUME INFORMATION)=2,$ CONTROL ACCESS NAME = ACNM(ME) 4.BIDTASK = >31, PARMS = (@&CONTROL ACCESS NAME) 4@$  T E X A S I N S T R U M E N T S$$  D X 1 0 S Y S T E M 3 . 3 . 0$,SELECT ONE OF THE FOLLOWING COMMAND GROUPS, /DEV  - DEVICE OPERATIONS  /FILE - FILE OPERATIONS   /PDEV - PROGRAM DEVELOPMENT  /SMAI N - DX10 MAINTENANCE /SOP - DX10 OPERATION$,SELECT ONE OF THE FOLLOWING COMMAND GROUPS, /DEV  - DEVICE OPERATIONS  /FILE - FILE OPERATIONS   /PDEV - PROGRAM DEVELOPMENT  /SMAI DT(DELETE TASK) =2, (PROGRAM FILE OR LUNO=STRING("@$$PF"), ( TASK NAME OR ID=STRING .OVLY OVLY=>1B,LUNO=0, &PARMS=(15,"@&PROGRAM FILE OR LUNO", & "&TASK NAME OR ID") &.SYN $$PF="&PROGRAM FILE OR LUNO" &&MADU(MODIFY ALLOCABLE DISK UNIT) =6,&DISK UNIT=NAME, $OUTPUT ACCESS NAME=*ACNM("@$$OP"),$ADU NUMBER=INT,  SECTOR OFFSET=INT,FIRST WORD=INT,  VERIFICATION DATA=*(INT),  DATA=(INT) .BID TASK=>18,LUNO=0, 2PARMS=(5,@&DISK UNIT,&ADU NUMBER,&SECTOR OFFSET,20&FIRST WORD,"(&DATA)","(&VERIFICATION DATA)", 0 @&OUTPUT ACCESS NAME) $.SYN $$OP="&OUTPUT ACCESS NAME" $RIFICATION DATA=*(INT),  DATA=(INT) .BID TASK=>18,LUNO=0,  STS(SHOW TASK STATUS), INSTALLED ID=*INT, OUTPUT ACCESS NAME = *ACNM.BID TASK=>1D,0PARMS=(26,&INSTALLED ID,@&OUTPUT ACCESS NAME) 0"PB (PROCEED FROM BREAKPOINT) =2," RUN ID = INT("@$$RI"),&DESTINATION ADDRESS(ES) = *(STRING) & .OVLY OVLY = >C, CODE = >13, *PARMS = ("&RUN ID",&DESTINATION ADDRESS)*.SYN$$RI = "&RUN ID" SP (SHOW PANEL) =2,  RUN ID = INT ("@$$RI"),  MEMORY ADDRESS = *STRING.OVLY OVLY = 0C, CODE = 9, (PARMS = ("&RUN ID","&MEMORY ADDRESS") (.SYN $$RI = "&RUN ID"  TXSF (SET SYSTEM FILE) =2, TX990 ACCESS NAME = STRING.BID TASK=>06, PARMS=("@&TX990 ACCESS NAME") &ABP (ASSIGN BREAKPOINT - PASCAL) =2,& RUN ID = INT("@$$RI"), ROUTINE NAME = STRING,$WHERE (ENTRY/RETURN/BOTH) = STRING$>.OVLY OVLY=0C,CODE=01A,PARMS=(&RUN ID,&ROUTINE NAME,&WHERE) >.SYN $$RI = "&RUN ID" DEBUG COMMANDS  /BKPT - BREAKPOINT COMMANDS " /GDEB - GENERAL DEBUG COMMANDS"" /PDEB - PASCAL DEBUG COMMANDS "" /SDEB - SPECIAL DEBUG COMMANDS" BREAKPOINT COMMANDS  AB  - ASSIGN BREAKPOINT  DB  - DELETE BREAKPOINT $ DPB- DELETE/PROCEED BREAKPOINT $ LB  - LIST BREAKPOINTS" PB  - PROCEED FROM BREAKPOINT "BASIC COMMANDS  XBB - EXECUTE BUSINESS BASIC  XLE - EXECUTE LINKAGE EDITOR " XSB - EXECUTE SCIENTIFIC BASIC"IT$(ATTACH TASK PROCEDURES), 1ST PROCEDURE ID=INT, *P1 FROM TASKS PROGRAM FILE?=*YESNO(YES),* 2ND PROCEDURE ID=*INT(0), *P2 FROM TASKS PROGRAM FILE?=*YESNO(YES) *,.SYN $IT$P1="@$IT$P1,&1ST,&2ND,&P1,&P2" ,@CREATE COMMANDS 6CF - CREATE FILE ENDKEY - END CFKEY SPECIFICATION6BCFDIR - CREATE DIRECTORY FILEKEY  - CFKEY KEY SPECIFICATIONBF CFIMG - CREATE IMAGE FILEMKL  - MODIFY KEY INDEXED FILE LOGGINGF CFKEY - CREATE KEY INDEX FILECFPRO - CREATE PROGRAM FILE&CFREL - CREATE RELATIVE RECORD FILE&"CFSEQ - CREATE SEQUENTIAL FILE "CSF  - CREATE SYSTEM FILESREATE IMAGE FILEMKL  - MODIFY KEY INDEXED FILE LOGGINGF CFKEY - CREATE KEVC(VERIFY COPY),"MASTER PATHNAME=*ACNM("@$CD$M")," COPY PATHNAME=*ACNM("@$CD$C"),  CONTROL ACCESS NAME=*ACNM, LISTING ACCESS NAME=*ACNM  .BID TASK=>3F,CODE=>3F, "PARMS=(>3F,"@&MASTER PATHNAME", " "@© PATHNAME", "@&CONTROL ACCESS NAME", "@&LISTING ACCESS NAME")".SYN $CD$M = "&MASTER PATHNAME" " .SYN $CD$C = "© PATHNAME" G ACCESS NAME=*ACNM  .BID TASK=>3F,CODE=>3F, "PARMS=(>3F,"@&MASTER PATHNAME", " "@© PATHNAME",@"CFKEY (CREATE KEY INDEXED FILE),"PATHNAME = ACNM," LOGICAL RECORD LENGTH  = INT, "" PHYSICAL RECORD LENGTH = *INT," INITIAL ALLOCATION = *INT, SECONDARY ALLOCATION = *INT, MAXIMUM SIZE = INT.IF "@$CFK$KN", NE, "$CFK$KN">MSG T="ERROR:INVALID CFKEY SEQUENCE; CFKEY BEFORE ENDKEY">..SYN $CFK$L="", $CFK$PN="", $CFK$FLRL="", .2$CFK$PRL="", $CFK$KS="", $CFK$IA="", $CFK$M="", 2$$CFK$SA="", $CFK$MS="", $CFK$KN=""$.EXIT .ENDIF.SYN $CFK$KN = 1, $CFK$L = "",$CFK$KS = "1",  $CFK$PN = "@&PATHNAME",($CFK$FLRL = "&LOGICAL RECORD LENGTH", (($CFK$PRL = "&PHYSICAL RECORD LENGTH", ($$CFK$IA = "&INITIAL ALLOCATION", $$CFK$SA = "&S ECONDARY ALLOCATION",  $CFK$MS = "&MAXIMUM SIZE"(.IF "&PHYSICAL RECORD LENGTH", EQ, ""(.SYN$CFK$PRL = 0.ENDIF$.IF "&INITIAL ALLOCATION", EQ, ""$.SYN $CFK$IA = 0.ENDIF$.IF "&SECONDARY ALLOCATION", EQ, $"".SYN $CFK$SA = 0.ENDIF .IF "@$$MO", NE, 0 CFK$1 ENDKEY.ENDIF.SYN$CFK$PRL = 0.ENDIF$.IF "&INITIAL ALLOCATION", EQ, ""$.SYN $CFK$IA = 0.ENDIF$.IF "&SECONDARY ALLOCATION", EQ, $@ CFSEQ(CREATE SEQUENTIAL FILE), PATHNAME=ACNM,LOGICAL RECORD LENGTH=*INT, PHYSICAL RECORD LENGTH=*INT, INITIAL ALLOCATION=*INT, SECONDARY ALLOCATION=*INT, EXPANDABLE?=YESNO(YES),  BLANK SUPPRESS?=YESNO(NO), FORCED WRITE? = YESNO(NO)  .OVLY OVLY=>1B,LUNO=0, .PARMS=(10,@&PATHNAME,&LOGICAL RECORD LENGTH,..&PHYSICAL RECORD LENGTH,&INITIAL ALLOCATION,.4&SECONDARY ALLOCATION,&EXPANDABLE,&BLANK SUPPRESS,4&FORCED WRITE?) ),@ IT$$(DEFINE TASK FLAGS), PRIVILEGED?=YESNO(NO), SYSTEM TASK?=YESNO(NO), MEMORY RESIDENT?=YESNO(NO),  REPLICATABLE?=YESNO(YES), DELETE PROTECTED?=YESNO(NO), EXECUTE PROTECTED?=YESNO(NO),  OVERFLOW CHECKING?=YESNO(NO), &WRITABLE CONTROL STORAGE?=YESNO(NO) &*.SYN $IT$P1 = "&P,&S,&M,&D,&R,&E,&O,&W" *ENT?=YESNO(NO),  REPLICATABLE?=YESNO(YES), DELETE PROTECTED?=YESNO(NO), EXECUTE PROTECTED?=YESNO(NO),  OVERFLOW CHECKING?=YESNO.CPI$O(COPY PROGRAM IMAGE OVERLAY EXTENSION),.$ASSOCIATED TASK NAME OR ID=*STRING$*.SYN $CPIT="&ASSOCIATED TASK NAME OR ID"* .IF @$CPIT,EQ,"$CPIT" .SYN $CPIT = " ".ENDIF$LDC(LIST DEVICE CONFIGURATION) =2,$ LISTING ACCESS NAME=*ACNM ..BIDTASK=>4E,PARMS=(@&LISTING ACCESS NAME).@ IO(INSTALL OVERLAY) =2, (PROGRAM FILE OR LUNO=STRING("@$$PF"), ( OVERLAY NAME=*NAME, OVERLAY ID=*INT,*OBJECT PATHNAME OR LUNO=STRING("@$$OB"),* RELOCATABLE?=YESNO(NO),  DELETE PROTECT?=YESNO(NO), ASSOCIATED TASK NA ME OR ID=*STRING("@$IT$T") .OVLY OVLY=>1B,LUNO=0, &PARMS=(22,"@&PROGRAM FILE OR LUNO", & &OVERLAY NAME,&OVERLAY ID,,"@&OBJECT PATHNAME OR LUNO",&RELOCATABLE, ,0&DELETE PROTECT,"&ASSOCIATED TASK NAME OR ID")0.SYN $$PF= "&PROGRAM FILE OR LUNO" (.SYN $$OB="&OBJECT PATHNAME OR LUNO"(,.SYN $IT$T="&ASSOCIATED TASK NAME OR ID",RLAY ID,,"@&OBJECT PATHNAME OR LUNO",&RELOCATABLE, ,0&DELETE PROTECT,"&ASSOCIATED TASK NAME OR ID")0.SYN $$PF=&MWR (MODIFY WORKSPACE REGISTERS) =2,& RUN ID = INT("@$$RI"), REGISTER NUMBER = INT(0) .OVLY OVLY = >C, CODE = >14, &PARMS = (&RUN ID, ®ISTER NUMBER) &.SYN$$RI = "&RUN ID" RL(RELEASE LUNO),  LUNO=INT  .OVLY OVLY=>1B,LUNO=0, PARMS=(30,&LUNO)&LBP (LIST BREAKPOINTS - PASCAL) =2, & RUN ID = INT("@$$RI") 2.OVLY OVLY = 0C, CODE = 01E, PARMS = (&RUN ID) 2.SYN $$RI = "&RUN ID"  FL (FORWARD SPACE LUNO),LUNO = INT,  RECORD COUNT = INT(1) 6.OVLY OVLY = >1B,PARMS = (19,&LUNO,"&RECORD COUNT") 6SV (SHOW VALUE), EXPRESSION = STRING  .OVLY OVLY = >C, CODE = >15,  PARMS = ("&EXPRESSION") $DA(DELETE ALIAS FROM PATHNAME) =2,$PATHNAME=ACNM  .OVLY OVLY=>1B,LUNO=0,  PARMS=(36,@&PATHNAME) 2RCRU(READ CONTENTS OF SPECIFIED CRU ADDRESS)=6, 20 CRU ADDRESS = INT, OUTPUT ACCESS NAME = *ACNM0B .BID TASK=>4D,CODE=0,PARMS=(&CRU ADDRESS,,,@&OUTPUT ACCESS NAME)B,CPI$T(COPY PROGRAM IMAGE TASK EXTENSION), ,&COPY ASSOCIATED OVERLAYS?=STRING(Y),&(COPY ASSOCIATED PROCEDURES?=STRING(Y) (*.SYN $CPIO="© ASSOCIATED OVERLAYS?" *,.SYN $CPIP="© ASSOCIATED PROCEDURES?" ,@ MRM (MODIFY RIGHT MARGIN),&RIGHT MARGIN POSITION=INT("@$MRM$") &&.SYN $MRM$="&RIGHT MARGIN POSITION" & .IF "@$MRM$", GT, "80".SYN$MRM$ = 80.ENDIF .IF "@$MRM$", LT, "1" .SYN$MRM$ = 1 .ENDIF .OVLY OV  LY=>3, LUNO=0, CODE=1,*PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *.SYN $MRM$="&RIGHT MARGIN POSITION" & .IF "@$MRM$", GT, "80".SYN$MRM$ = 80.ENDIF .IF "@$MRM$", LT, "1" .SYN$MRM$ = 1 .ENDIF .OVLY OV @ BACKGROUND/BATCH COMMANDS " BATCH - BEGIN BATCH EXECUTION " CM - CREATE MESSAGE  EBATCH - END BATCH EXECUTION  EC - ERROR COUNT  KBT - KILL BACKGROUND TASK  SBS - SHOW BACKGROUND STATUS  WAIT - WA IT FOR BACKGROUND  XB  - EXECUTE BATCH SCI TCH EXECUTION " CM - CREATE MESSAGE  EBATCH - END BATCH EXECUTION  EC - ERROR COUNT  KBT - KILL BACKGROUND TASK  SBS - SHOW BACKGROUND STATUS  WAIT - WA@CFK$1 ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY .IF  "@$CFK$KS", EQ, "$CFK$KS".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY .IF  "@$CF K$KS", EQ, "$CFK$KS".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY .EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT .ENDIFKEY ".IF  "@$CFK$KS", EQ, "$CFK$KS"".EXIT @"MRF(MODIFY RELATIVE TO FILE) =2," PATHNAME=ACNM("@$SRF$P"), $OUTPUT ACCESS NAME=*ACNM("@$$OP"),$ RECORD NUMBER=INT("@$SRF$R"),  FIRST WORD=INT("@$SRF$F"), VERIFICATION DATA=*(INT),  DATA=(INT),CHECKSUM=*INT .BID T ASK=>21,LUNO=0,  PARMS=(42,@&PATHNAME, &RECORD NUMBER,&FIRST WORD, $"(&DATA)","(&VERIFICATION DATA)", $$@&OUTPUT ACCESS NAME,"&CHECKSUM") $.SYN $SRF$P="&PATHNAME"  .SYN $SRF$R="&RECORD NUMBER" .SYN $SRF$F="&FIRST WORD" $.SYN $$OP="&OUTPUT ACCESS NAME" $NUMBER,&FIRST WORD, $"(&DATA)","(&VERIFICATION DATA)", $$@&OUTPUT ACCESS NAME,"&CHECKSUM") $.SYN $SRF$P="&PATHNAME"  .SYN $SRF$R="&RECORD NUMBER" .SYN $SRF$F="&FILE OPERATIONS ( /DBMS- DATA BASE MANAGEMENT SYSTEM ( /DIR  - DIRECTORY COMMANDS /EDIT - TEXT EDIT COMMANDS /FILEC - FILE COMMANDS  /LUNO- LUNO /STAT - STATUS COMMANDS  XB (EXECUTE BATCH),  INPUT ACCESS NAME = ACNM,  LISTING ACCESS NAME = ACNM".SYN $XB$I="&INPUT ACCESS NAME" "$.SYN $XB$L="&LISTING ACCESS NAME" $0.QBID TASK=>20, PARMS=("@&INPUT ACCESS NAME",0 "@&LISTING ACCESS NAME").SYN $XB$I = "", $XB$L = "" CESS NAME = ACNM,  LISTING ACCESS NAME = ACNM".SYN $XB$I="&INPUT ACCESS NAME" "$.SYN $XB$L="&LISTING ACCESS NAME" $0.QBID TASK=>20, PARMS=("@&INPUT ACCESS NAME",0 "@&LISTING ACCESS NAME")@$XMA (EXECUTE MACRO ASSEMBLER) =2, $$SOURCE ACCESS NAME = ACNM("@$$S"),$(OBJECT ACCESS NAME = *ACNM("@$XMA$O"),((LISTING ACCESS NAME = ACNM("@$XMA$L"),(&ERROR ACCESS NAME = *ACNM(@$XMA$E), &"OPTIONS = *(STRING)("@$XMA$OP"),"*MACRO LIBRARY PATHNAME = *ACNM("@$$ML"),* PRINT WIDTH = INT(80),*PAGE LENGTH = INT(60),XREF,SYMT,NOLIST, *,TUNLIST,MUNLIST,BUNLIST,DUNLIST,RXREF,FUNL,(.SYN$XMA$L = "&LISTING ACCESS NAME" (&.SYN$XMA$O = "&OBJECT ACCESS NAME"&@.SYN $XMA$OP = "&OPTIONS"(.SYN$$ML = "&MACRO LIBRARY PATHNAME"($.SYN$$S = "&SOURCE ACCESS NAME" $&.SYN$XMA$E = " &ERROR ACCESS NAME"&".IF "@@$XMA$L", EQ, "@@$XMA$E" ".SYN$XMA$E = " ".ENDIFXMA2 @&OP,1=&XRE,F,2=&SYMT,3=&NOLIST,4=&BUNLIST,5=&TUNLIST,,*6=&DUNLIST,7=&MUNLIST,8=&FUNL,9=&RXREF,A* .QBID TASK = >88, LUNO = >10, 6PARMS = (@&SOURCE ACCESS NAME, @&OBJECT ACCESS NAME,6"@&LISTING ACCESS NAME, @@$XMA$E," "@$XMA$OPL",@&MACRO LIBRARY PATHNAME, &@$XMA$MC,&PRINT WIDTH,&PAGE LENGTH) & .IF "@$XMA$E", EQ, " " .SYN$XMA$E = "" .ENDIF.SYN $XMA$OPL="",$XMA$MC="" BJECT ACCESS NAME,6"@&LISTING ACCESS NAME, @@$XMA$E," "@$XMA$OPL",@&MACRO LI&MIR (MODIFY INTERNAL REGISTERS) =2, & RUN ID = INT("@$$RI") .OVLY OVLY = >C, CODE = >A, PARMS = (&RUN ID) .SYN$$RI = "&RUN ID"@DX10 OPERATION@ /BGB - BACKGROUND/BATCH COMMANDS  /TASK- TASK COMMANDS @4 /COPY- COPY COMMANDS  /TX - TX/DX COVERSION 4: /DIR  - DIRECTORY COMMANDS /VOL  - VOLUME COMMANDS :& /DVICE - DEVICES  /WARM- WARMST&ART COMMANDS" /MISC - MISCELLANEOUS COMMANDS" /SM- SORT/MERGE /STAT - STATUS COMMANDS MANDS  /TX - TX/DX COVERSION 4: /DIR  - DIRECTORY COMMANDS /VOL  - VOLUME COMMANDS :& /DVICE - DEVICES  /WARM- WARMST&SF (SHOW FILE),  FILE PATHNAME = *ACNM (@$SF$P) .SYN $SF$P = "&FILE PATHNAME" .IF "&FILE PATHNAME", NE, ""  .SHOW @&FILE PATHNAME .ENDIF SIS(SHOW I/O STATUS),  LUNO=*INT, *TYPE (TASK,STATION,GLOBAL,A) = NAME (S),*TASK RUN ID  .SYN $SIS$T = "&TASK RUN ID"  .IF "@$$MO", NE, 0 .IF  &TYPE,GE,T SIS$.ENDIF.ENDIF.BID TASK=>17,"PARMS=(29,&LUNO,"&TYPE",@$SIS$T)".SYN $SIS$T=""ON,GLOBAL,A) = NAME (S),*TASK RUN ID  .SYN $SIS$T = "&TASK RUN ID"  .IF "@$$MO", NE, 0 .IF  &TYPE,GE,T SIS$.ENDIF.ENDIF.BID TASK=>17,@RPG COMMANDS, XRPGC- EXECUTE RPG COMPILER BACKGROUND ,, XRPGCF - EXECUTE RPG COMPILER FOREGROUND ,( XRPGB- BIND RPG PROGRAM BACKGROUND (( XRPGT- EXECUTE RPG TASK BACKGROUND ($ XRPGTF - EXECUTE RPG TASK FOREGRO$UND DS, XRPGC- EXECUTE RPG COMPILER BACKGROUND ,, XRPGCF - EXECUTE RPG COMPILER FOREGROUND ,( XRPGB- BIND RPG PROGRAM BACKGROUND (( XRPGT- EXECUTE RPG TASK BACKGROUND ($ XRPGTF - EXECUTE RPG TASK FOREGRO$@ FS (FIND STRING), OCCURRENCE NUMBER = INT(1),  START COLUMN = INT("@$XE$SC"), END COLUMN = INT("@$XE$EC"), STRING=*(STRING)("@$XE$S") .IF "&STRING", EQ, ""(MSG T="AN EMPTY STRING IS NOT ALLOWED"(.EXIT .ENDIF .SYN $XE$SC = "&START COLUMN" .SYN $XE$EC = "&END COLUMN" .OVLY OVLY=4, LUNO=0,  CODE=5,  PARMS=(&OCCURRENCE NUMBER,&START COLUMN,&END COLUMN, "&STRING") .SYN$XE$S ="&STRING"  .IF @$$CC,  EQ, 0 .OVLY OVLY=3, LUNO=0, CODE=1, *PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *.ENDIFCODE=5,  PARMS=(&OCCURRENCE NUMBER,&START COLUMN,&END COLUMN, "&STRING") .SYN$XE$S ="&STRING"  .IF @$$CC, LTS (LIST TERMINAL STATUS),  TERMINAL NAME = *NAME, OUTPUT ACCESS NAME = *ACNM4.OVLY OVLY=>23, CODE=0, PARMS=("@&TERMINAL NAME",4 "@&OUTPUT ACCESS NAME")  SMS(SHOW MEMORY STATUS), LISTING ACCESS NAME=*ACNM 0.OVLY OVLY=>40,PARMS=(@&LISTING ACCESS NAME) 0"MLP (MODIFY LUNO PROTECTION) =2,"(PROTECT OR UNPROTECT? (P/U) = STRING, ( LUNO = INT("@$$LU") <.BIDTASK = 3, PARMS = ("&PROTECT OR UNPROTECT","&LUNO") < DIRECTORY COMMANDS BD  - BACKUP DIRECTORY CD - COPY DIRECTORY" CFDIR - CREATE DIRECTORY FILE " DD  - DELETE DIRECTORY LD - LIST DIRECTORY  MD - MAP DISK(DIRECTORY)  RD  - RESTORE DIRECTORY $ VB - VERIFY BACKUP (DIRECTORY)$" VC  - VERIFY COPY (DIRECTORY)"TORY" CFDIR - CREATE DIRECTORY FILE " DD  - DELETE DIRECTORY LD - LIST DIRECTORY  MD - MAP DISK(DIRECTORY)  RD  - RESTORE DIRECTORY @ SYSGEN OPERATIONS D ALGS - ASSEMBLE/LINK GEN'ED SYSTEM  SMS - SHOW MEMORY STATUSD> CSF - CREATE SYSTEM FILES  TGS - TEST GENERATED SYSTEM >D IBMUTL - CONVERT IBM DISKETTE XANAL - ANALYZE DX10 CRASH FILE D  IGS- : INSTALL GENERATED SYSTEM XCU - CONVERT DX10 2.2 DISK :> ISO - INSTALL SYSTEM OVERLAY XGEN  - GEN990-AUTO SYSGEN>F LDC- LIST DEVICE CONFIGURATION  XPS - PATCH SYNONYM GENERATOR F MDS - MODIFY DEVICE STATUS MVI- MODI FY VOLUME INFORMATION   PGS - PATCH GENERATED SYSTEM SO - INSTALL SYSTEM OVERLAY XGEN  - GEN990-AUTO SYSGEN>F LDC- LIST DEVICE CONFIGURATION  XPS - PATCH SYNONYM GENERATOR F MDS - MODIFY DEVICE STATUS MVI- MODI@TASK COMMANDS < AT - ACTIVATE TASK  XCPF  - COBOL PROGRAM FOREGROUND<: DT - DELETE TASK  XCT- EXECUTE COBOL TASK (BKGD) :6 HT - HALT TASK  XCTF  - COBOL TASK FOREGROUND 6. IRT - INSTAL REAL TIME TASK  XFT- EXEC. UTE FORTRAN TASK (BKGD) : IT - INSTALL TASK  XFTF  - FORTRAN TASK FOREGROUND :: KT - KILL TASK  XHT- EXECUTE AND HALT TASK (BKGD):@ MTE - MODIFY TASK ENTRY  XRPGT - EXECUTE RPG TASK (BKGD) @ RT - RESUME TASK  XRP GTF - RPG TASK FOREGROUND 0 STS - SHOW TASK STATUS XT - EXECUTE TASK0L XCP- EXECUTE COBOL PROGRAM (BKGD) XTS- EXECUTE TASK AND SUSPEND SCILDIFY TASK ENTRY  XRPGT - EXECUTE RPG TASK (BKGD) @ RT - RESUME TASK  XRP@"ISO(INSTALL SYSTEM OVERLAY) =2, "OVERLAY FILE PATHNAME=ACNM,  OBJECT PATHNAME=ACNM("@$$OB"),  OVERLAY NUMBER=INT.BID TASK=>30,"PARMS=(@&OVERLAY FILE PATHNAME, " @&OBJECT PATHNAME,&OVERLAY NUMBER) .SYN $$O  B="&OBJECT PATHNAME") =2, "OVERLAY FILE PATHNAME=ACNM,  OBJECT PATHNAME=ACNM("@$$OB"),  OVERLAY NUMBER=INT.BID TASK=>30,"PARMS=(@&OVERLAY FILE PATHNAME, " @&OBJECT PATHNAME,&OVERLAY NUMBER) .SYN $$O MPI(MODIFY PROGRAM IMAGE) =2, PROGRAM FILE=ACNM("@$$PF"), $OUTPUT ACCESS NAME=*ACNM("@$$OP"),$ MODULE TYPE=STRING("@$SPI$T"), &MODULE NAME OR ID=STRING("@$SPI$I"),& ADDRESS=INT("@$SPI$A"),  VERIFICATION DATA=*(INT),  @DATA=(INT), CHECKSUM = *INT ,.BID TASK=>1C, PARMS=(43,@&PROGRAM FILE,, @&OUTPUT ACCESS NAME, 0"&MODULE TYPE","&MODULE NAME OR ID",&ADDRESS, 02"(&VERIFICATION DATA)", "(&DATA)", "&CHECKSUM") 2.SYN $$PF="&PROGRAM FILE" $.SYN $$OP="&OUTPUT ACCESS NAME" $.SYN $SPI$T="&MODULE TYPE"$.SYN $SPI$I="&MODULE NAME OR ID"$.SYN $SPI$A="&ADDRESS"&ADDRESS, 02"(&VERIFICATION DATA)", "(&DATA)", "&CHECKSUM") 2.SYN $$PF="&PROGRAM FILE@TX/DX CONVERSIONL DXTX - DX10 FILE TO DISKETTE FILE TXDX - DISKETTE FILE TO DX10 FILEL< IBMUTL - CONVERT IBM DISKETTE TXFD  - FORMAT DISKETTE <: TXCM  - COMPRESS DISKETTE FILE TXMD - MAP DISKETTE: TXCP - CHAN6 GE DISKETTE FILE PROTECT TXSF  - SET SYSTEM FILE 6  TXDF  - DELETE DISKETTE FILE 6 TXXLE- EXECUTE LINK EDITOR PRODUCING TX PROG FILE6E <: TXCM  - COMPRESS DISKETTE FILE TXMD - MAP DISKETTE: TXCP - CHAN IV(INSTALL VOLUME), UNIT NAME=NAME, VOLUME NAME=NAME .OVLY OVLY=>1B,LUNO=0, &PARMS=(21,@&UNIT NAME,@&VOLUME NAME)&.SYN $$VN="&VOLUME NAME" DO(DELETE OVERLAY) =2,(PROGRAM FILE OR LUNO=STRING("@$$PF"), ( OVERLAY NAME OR ID=STRING  .OVLY OVLY=>1B,LUNO=0, &PARMS=(17,"@&PROGRAM FILE OR LUNO", & "&OVERLAY NAME OR ID")&.SYN $$PF="&PROGRAM FILE OR LUNO" &@ PASCAL DEBUG COMMANDS " ABP - ASSIGN PASCAL BREAKPOINT"" DBP - DELETE PASCAL BREAKPOINT", DPBP - DELETE/PROCEED PASCAL BREAKPOINT," LBP - LIST PASCAL BREAKPOINTS " LPS - LIST PASCAL STACK  PBP- PROCEED FROM PASCAL BREAKPOINT SPS - SHOW PASCAL STACK BREAKPOINT"" DBP - DELETE PASCAL BREAKPOINT", DPBP - DELETE/PROCEED PASCAL BREAKPOINT," LBP - LIST PASCAL BREAKPOINTS " LPS - LIST PASCAL STACK  PBP- PROCEED FROMINV$,  LOADER ACCESS NAME=*ACNM.SYN $$INV$LD = "&LOADER" MPF(MAP PROGRAM FILE), PATHNAME=ACNM("@$$PF"),  LISTING ACCESS NAME=*ACNM .BID TASK=>38,LUNO=0, .PARMS=(0,@&PATHNAME,@&LISTING ACCESS NAME,5)..SYN $$PF="&PATHNAME" @ IP(INSTALL PROCEDURE) =2, (PROGRAM FILE OR LUNO=STRING("@$$PF"), ( PROCEDURE NAME=*NAME,  PROCEDURE ID=*INT,*OBJECT PATHNAME OR LUNO=STRING("@$$OB"),*MEMORY RESIDENT?=YESNO(NO),  DELETE PROTECT?=YESNO(NO), EXECUTE  PROTECT?=YESNO(NO),  WRITE PROTECT?=YESNO(NO), &WRITABLE CONTROL STORAGE?=YESNO(NO) & .OVLY OVLY=>1B,LUNO=0, &PARMS=(23,"@&PROGRAM FILE OR LUNO", & &PROCEDURE NAME,&PROCEDURE ID, *"@&OBJECT PATHNAME OR LUNO",&MEMORY RESI*DENT, $&DELETE PROTECT,&EXECUTE PROTECT, $,&WRITE PROTECT,&WRITABLE CONTROL STORAGE) ,&.SYN $$PF="&PROGRAM FILE OR LUNO" &(.SYN $$OB="&OBJECT PATHNAME OR LUNO"(E,&PROCEDURE ID, *"@&OBJECT PATHNAME OR LUNO",&MEMORY RESI*LPS (LIST PASCAL STACK) =2,  RUN ID = STRING(@$$RI),  ROUTINE NAME = *STRING, STARTING OFFSET = STRING(0), NUMBER OF BYTES = *STRING, LISTING ACCESS NAME= *ACNM8.OVLY OVLY=0C, CODE=019, PARMS=(&RUN ID,&ROUTINE NAME,8::&STARTING OFFSET,&NUMBER OF BYTES,@&LISTING ACCESS NAME):$.SYN $LM$ = "", $$RI = "&RUN ID"$ OFFSET = STRING(0), NUMBER OF BYTES = *STRING, LISTING ACCESS NAME= *ACNM8.OVLY OVLY=0C, CODE=019, PARMS=(&RUN ID,&ROUTINE NAME,8:MSG,TEXT = (STRING), REPLY = *(STRING)  .OVLY OVLY=>23, CODE=4, PARMS=("&TEXT","&REPLY") SMM(SHOW MEMORY MAP) .BID TASK=>01, LUNO=>00 .MENU DB (DELETE BREAKPOINTS) =2,  RUN ID = INT("@$$RI"), ADDRESS(ES) = *(STRING) .OVLY OVLY = 0C, CODE = 2,  PARMS = (&RUN ID,&ADDRESS).SYN $$RI = "&RUN ID" @ BD(BACKUP DIRECTORY), &DIRECTORY PATHNAME=*ACNM("@$BD$D"), &*SEQUENTIAL ACCESS NAME=*ACNM("@$BD$S"), * CONTROL ACCESS NAME=*ACNM, LISTING ACCESS NAME=*ACNM,,OPTIONS=*(STRING)("ALIASES,NOBLOCK"),BSIZ ,.BID TASK=>26,CODE=>26, "PARMS=(>26,@&DIRECTORY PATHNAME," @&SEQUENTIAL ACCESS NAME,  @&CONTROL ACCESS NAME, @&LIST ACCESS NAME,  "(&OPTIONS)",BSIZ)&.SYN$BD$D = "&DIRECTORY PATHNAME" &*.SYN$BD$S = "&SEQUENTIAL ACCESS NAME" *@ CC(COPY/CONCATENATE), INPUT ACCESS NAME(S)=(ACNM), OUTPUT ACCESS NAME=ACNM, REPLACE?=YESNO(NO), MAXIMUM RECORD LENGTH = *INT.BID TASK=>34,CODE=2, PARMS=((&INPUT ACCESS NAME), @&OUTPUT ACCESS NAME, NO,&$REPLACE,NO,&MAXIMUM RECORD LENGTH)$ NAME(S)=(ACNM), OUTPUT ACCESS NAME=ACNM, REPLACE?=YESNO(NO), MAXIMUM RECORD LENGTH = *INT.BID TASK=>34,CODE=2, PARMS=((&INPUT ACCESS NAME), @&OUTPUT ACCESS NAME, NO,&@ML (MOVE LINES), START LINE=*STRING,  END LINE=*STRING,  INSERT AFTER LINE=*STRING  .OVLY OVLY=4, LUNO=0,  CODE=3,  PARMS=("&START LINE", "&END LINE", "&INSERT AFTER LINE") .IF @$$CC, EQ, 0.OVLY  OVLY=3, LUNO=0, CODE=1, *PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *.ENDIFE=*STRING  .OVLY OVLY=4, LUNO=0,  CODE=3,  PARMS=("&START LINE", "&END LINE", "&INSERT AFTER LINE") .IF @$$CC, EQ, 0.OVLY @AL(ASSIGN LUNO),LUNO=*INT, ACCESS NAME=ACNM,"PROGRAM FILE?=YESNO(NO),DISPLAY ".IF  &LUNO, EQ, "" .OVLY OVLY=>1B,PARMS=4(6,,@&ACCESS NAME,Y,$AL$L,&PROGRAM FILE?,&DISPLAY)4.SYN $$LU=@$AL$L.ELSE  .OVLY O VLY=>1B,PARMS=:(6,&LUNO,@&ACCESS NAME,N,$AL$L,&PROGRAM FILE?,&DISPLAY) :.ENDIF.SYN $AL$L=""  .OVLY OVLY=>1B,PARMS=4(6,,@&ACCESS NAME,Y,$AL$L,&PROGRAM FILE?,&DISPLAY)4.SYN $$LU=@$AL$L.ELSE  .OVLY O SL (SHOW LINE), LINE=STRING(1) .OVLY OVLY=4, LUNO=0,  CODE=1, PARMS=("&LINE") .IF @$$CC, EQ, 0 .OVLY OVLY=3, LUNO=0, CODE=1, *PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *.ENDIF KT(KILL TASK) =2,  RUN ID=INT("@$$RI"),STATION NUMBER=INT("@$$ST")  .OVLY OVLY=>1B,LUNO=0, $PARMS=(25,&RUN ID,&STATION NUMBER)$.SYN $$RI = ""@ LM (LIST MEMORY) =2, RUN ID = STRING(@$$RI),  STARTING ADDRESS = STRING, NUMBER OF BYTES = *STRING, LISTING ACCESS NAME= *ACNM".IF "&NUMBER OF BYTES", EQ, "" ".SYN$LM$ = " ".ELSE .SYN $LM$ = "&STARTING  ADDRESS" (.SYN$LM$ = "@$LM$+&NUMBER OF BYTES" (.SYN$LM$ = "@$LM$-1".ENDIF .OVLY OVLY=0C, CODE = 0, 0PARMS = ("&RUN ID","&STARTING ADDRESS",@$LM$, 0 "@&LISTING ACCESS NAME").SYN $LM$ = "".SYN $$RI =  "&RUN ID" YN$LM$ = "@$LM$+&NUMBER OF BYTES" (.SYN$LM$ = "@$LM$-1".ENDIF .OVLY OVLY=0C, CODE = 0, 0PARMS = ("&RUN ID","&STARTING ADDRESS",@$LM$, 0 "@&LISTING ACCESS NAME").SYN $LM$ = "".SYN $$RI =  LS(LIST SYNONYMS), LISTING ACCESS NAME=*ACNM .BID TASK=>36,CODE=>36, $PARMS=(>36,@&LISTING ACCESS NAME) $ AS(ASSIGN SYNONYM VALUE), SYNONYM = NAME,  VALUE = *(STRING) .SYN &SYNONYM = "&VALUE"@LSM (LIST SYSTEM MEMORY) =2, OVERLAY ID = STRING, STARTING ADDRESS = STRING, NUMBER OF BYTES = *STRING, LISTING ACCESS NAME= *ACNM".IF "&NUMBER OF BYTES", EQ, "" ".SYN$LM$ = " ".ELSE .SYN$LM$ = "&STARTING ADDRESS"(.SYN$LM$ = "@$LM$+&NUMBER OF BYTES" (.SYN$LM$ = "@$LM$-1".ENDIF .OVLY OVLY=0C, CODE = 0, 2PARMS = (&OVERLAY ID,"&STARTING ADDRESS",@$LM$, 2 "@&LISTING ACCESS NAME",S).SYN $LM$ = ""&START@"MFP(MODIFY FILE PROTECTION) =2, "PATHNAME=ACNM,"WRITE-DELETE PROTECT?=YESNO(NO)," DELETE PROTECT?=YESNO(NO) ,.OVLY OVLY = >1B, PARMS = (42,@&PATHNAME) ,$.IF  &WRITE-DELETE PROTECT?,GE,Y$".OVLY OVLY=>1B,PARMS=(40,@&PATHN"AME).ENDIF.IF  &DELETE PROTECT?,GE,Y&.OVLY OVLY=>1B,PARMS=(41,@&PATHNAME)&.ENDIF?=YESNO(NO) ,.OVLY OVLY = >1B, PARMS = (42,@&PATHNAME) ,$.IF  &WRITE-DELETE PROTECT?,GE,Y$".OVLY OVLY=>1B,PARMS=(40,@&PATHN"$TXCM (COMPRESS DISKETTE FILE) =2, $ TX990 ACCESS NAME = STRING0.BID TASK=>3C,PARMS=("@&TX990 ACCESS NAME",94)0 MR (MODIFY ROLL), &NUMBER OF LINES TO ROLL=INT("@$MR$")&&.SYN $MR$="&NUMBER OF LINES TO ROLL"&.IF @$MR$,LT,1.SYN $MR$=1 .ENDIF .OVLY OVLY=3, LUNO=0, CODE=1, *PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) *"IBMUTL(IBM CONVERSION UTILITY)=2"AL LUNO=015, ACCESS NAME=ME .BID TASK=041 RL LUNO=015 %#S$SYSLIBVCATALOG`TX D L$$OVM `P  T  TX S$SYSLIB`L$$OVM `P L$$OLD `P R#00176L$$OVM M0070$DATA 0000A0000B05CBBC31BBC12CB0000B0209B80007F237F L$$O0001RR(BC004B0B09B0940B0A10B020AB0000BA280BC21AB2209B132CBC0ECB0004B04207F19EF L$$O0002RR(T0038B0A80B1315B0202B0C00BC184B2FC2BD803T0036B06C3BD803T0037BC0067F161F L$$O0003RR(B2FC2BD804T0024B06C4BD804T0025B2FE0T0000B0202B0400B2FC2BC22CB00027F154F L$$O0004RR(BC028B0000B110BB0206B8000B0B06B0940B0A10B0220C0016B4406B0228B00067F20BF L$$O0005RR(B10F2BE689B064BBC2DBBC2BBBCA8DB001ABCA8EB001CBCA8FB001EBC34ABC39B7F07FF L$$O0006RR(B0380S0000B0000B0B00B0000T000CB0050B002CB554EB4142B4C45B2054B4F207F1CDF L$$O0007RR(B4C4FB4144B204FB5645B524CB4159B203EB5858B2C20B4552B524FB5220B434F7F16AF L$$O0008RR(B4445B203DB203EB5858A0090BD020T005FB1621B0201B2000B2FC1B0202B03007F1C4F L$$O0009RR(BD802T005EB06C1BD801T005FB2FE0T005CBC020T005CB1655B0201B0900BD8017F131F L$$O0010RT@R(T005EBC0EDB0006BC803T0062B04E0T006AB06A0C0162BD823B00DDT006FBC8237F10FF L$$O0011RR(B00DET006CBC0EDB0006BC02DB0008BC803T0062B0A40BA020T006EBC040B09807F133F L$$O0012RR(B0241B00FFBA020T006CBC800T006AB06A0C0162BC083BA081BC822B0004T006A7F155F L$$O0013RR(BC052BC122B0008BC083B6084BC101BC160T0064B06A0C0162B6105B1103BA8057F1AAF L$$O0014RR(T0062B10F9BA105BA804T0062B6144BC120T0062B1006B06A0C0162BC160T00647F18AF L$$O0015RR(BC120T0062B0206B0010BC034B0A10B1701BA4C2B05C3B0641B1305B0606B15F87F1B8F L$$O0016RR(B0645B15F3B10ECB04C0BC740B0380B2FE0T005CBC020T005CB1304B0280B00037F16DF L$$O0017RR(B1395B10F5B045BS0038T003CC0090S003CS005CB0000B0000B0000S0062S00647F194F L$$O0018R@B0100S0066S0068B0000B0000S006CS006EB0000S006E7F5F8F L$$O0019@(3006CL$$OBM50000L$$OVM7FAD0FL$$O0020(::  L$$OVM  11/10/79 18:26:24  SDSMAC 3.3.0 79.312: L$$O0021 6BC803T0062B04E0T006AB06A0C0162BD823B00DDT006FBC8237F10FF L$$O0011RR(B00DET006CBC0EDB0006BC02DB0008BC803T0062B0A40BA020T006EBC040B09807F133F L$$O0012RR(B0241B00FFBA020T006CBC800T006AB06A0C0162BC083BA081BC822B0004T006A7F155F L$$O0013RR(BC052BC122B0008BC083B6084BC101BC160T0064B06A0C0162B6105B1103BA8057F1AAF L$$O0014RR(T0062B10F9BA105BA804T0062B6144BC120T0062B1006B06A0C0162BC160T00647F18AF L$$O0015RR(BC120T0062B0206B0010BC034B0A10B1701BA4C2B05C3B0641B1305B0606B15F87F1B8F L$$O0016RR(B0645B15F3B10ECB04C0BC740B0380B2FE0T005CBC020T005CB1304B0280B00037F16DF L$$O0017RR(B1395B10F5B045BS0038T003CC0090S003CS005CB0000B0000B0000S0062S00647F194F L$$O0018R@B0100S0066S0068B0000B0000S006CS006EB0000S006E7F5F8F L$$O0019@(3006CL$$OBM50000L$$OVM7FAD0FL$$O0020(::  L$$OVM  11/10/79 18:26:24  SDSMAC 3.3.0 79.312:R#000E6L$$OLD M0038$DATA 0000A0000BD020T0027B1621B0201B2000B2FC17F25CF L$$O0001RR(B0202B0300BD802T0026B06C1BD801T0027B2FE0T0024BC020T0024B1655B02017F198F L$$O0002RR(B0900BD801T0026BC0EDB0006BC803T002AB04E0T0032B06A0C00D2BD823B00DD7F143F L$$O0003RR(T0037BC823B00DET0034BC0EDB0006BC02DB0008BC803T002AB0A40BA020T00367F138F L$$O0004RR(BC040B0980B0241B00FFBA020T0034BC800T0032B06A0C00D2BC083BA081BC8227F171F L$$O0005RR(B0004T0032BC052BC122B0008BC083B6084BC101BC160T002CB06A0C00D2B61057F19AF L$$O0006RR(B1103BA805T002AB10F9BA105BA804T002AB6144BC120T002AB1006B06A0C00D27F16FF L$$O0007RR(BC160T002CBC120T002AB0206B0010BC034B0A10B1701BA4C2B05C3B0641B13057F19CF L$$O0008RR(B0606B15F8B0645B15F3B10ECB04C0BC740B0380B2FE0T0024BC020T0024B13047F16EF L$$O0009RR(B0280B0003B1395B10F5B045BS0000T0004C0000S0004S0024B0000B0000B00007F205F L$$O0010RTJS002AS002CB0100S002ES0030B0000B0000S0034S0036B0000S00367F3E0F L$$O0011J" W0000L$$OLD00007FC7FF L$$O0012"D:  L$$OLD  11/10/79 18:26:07  SDSMAC 3.3.0 79.312L$$O0013DC0EDB0006BC803T002AB04E0T0032B06A0C00D2BD823B00DD7F143F L$$O0003RR(T0037BC823B00DET0034BC0EDB0006BC02DB0008BC803T002AB0A40BA020T00367F138F L$$O0004RR(BC040B0980B0241B00FFBA020T0034BC800T0032B06A0C00D2BC083BA081BC8227F171F L$$O0005RR(B0004T0032BC052BC122B0008BC083B6084BC101BC160T002CB06A0C00D2B61057F19AF L$$O0006RR(B1103BA805T002AB10F9BA105BA804T002AB6144BC120T002AB1006B06A0C00D27F16FF L$$O0007RR(BC160T002CBC120T002AB0206B0010BC034B0A10B1701BA4C2B05C3B0641B13057F19CF L$$O0008RR(B0606B15F8B0645B15F3B10ECB04C0BC740B0380B2FE0T0024BC020T0024B13047F16EF L$$O0009RR(B0280B0003B1395B10F5B045BS0000T0004C0000S0004S0024B0000B0000B00007F205F L$$O0010RTR#0009AL$$OVM M002D$DATA 0000A0000B05CBBC31BBC12CB0000B0209B80007F21CF L$$O0001RR(BC004B0B09B0940B0A10B020AB0000BA280BC21AB2209B1331B0202B1400B04C37F1D1F L$$O0002RR(B0205BFF00B2FC2B0A82B1318BC002B0202B0C00B2FC2BD803T002BB06C3BD8037F14EF L$$O0003RR(T002CBC004B2FC2BD804T0019B06C4BD804T001AB0202B2100B0204T0000B2FC27F15BF L$$O0004RR(B0202B0400B2FC2BC22CB0002BC028B0000B110BB0206B8000B0B06B0940B0A107F1D6F L$$O0005RR(B0220C0016B4406B0228B0006B10F2BE689B064BBC2DBBC2BBBCA8DB001ABCA8E7F11BF L$$O0006RR(B001CBCA8FB001EBC34ABC39BB0380S0000B2C55B4E41B424CB4520B544FB204C7F12AF L$$O0007RR(B4F41B4420B4F56B4552B4C41B5920B3E58B582CB2045B5252B4F52B2043B4F447F179F L$$O0008R& B4520B3D20B3E58B58007FB6BFL$$O0009&(30076L$$OBM50000L$$OVM7FADCFL$$O0010(D:  L$$OVM  11/10/79 13:06:37  SDSMAC 3.3.0 79.312L$$O0011D o o SCI990 VCATALOG`PROC0 `P 3VjjPROC2 `P 5`ytPROC4 `PH \  LPROC6 `P V{V{S$OBJECTD f ff% MENU `P? Bd|dmBATCH LS=YES"L$************************************************************************L:* BATCH STREAM TO INSTALL THE SYSTEM PROCS AT ACCESS :<* LEVEL ZERO(0).THE SYNONYM "VOLBLD" MUST BE DEFINED<@* AS THE VOLUME NAME WHERE THE PROCS ARE TO BE INSTALLED. @* '>* CAUTION: IF THIS BATCH STREAM IS EXECUTED AGAINST A >:* RUNNING SYSTEM, NO OTHER ACTIVITY CAN TAKE PLACE. :L$************************************************************************L* '.USE@VOLBLD.S$PROCL$*================================ AA ===================================L& .PROC AA(ADD ALIAS TO PATHNAME),& PATHNAME=ACNM("@$AA$P"), ALIAS PATHNAME=ACNM  .OVLYOVLY=>1B,LUNO=0,*PARMS=(35,@&PATHNAME,@&ALIAS PATHNAME)* .SYN  $AA$P="&PATHNAME"   .EOP " L$*================================== AF =================================L .PROCAF(APPEND FILE), INPUT ACCESS NAME(S)=(ACNM),  OUTPUT PATHNAME=ACNM,  MAXIMUM RECORD LENGTH = *INT  .BID TASK=>34,CODE=1, PARMS=((&INPUT ACCESS NAME),  @&OUTPUT PATHNAME,& NO,YES,YES,&MAXIMUM RECORD LENGTH) &  .EOP " L$*================================= AGL =================================L$ .PROC AGL(ASSIGN GLOBAL LUNO),$ LUNO=*INT, ACCESS NAME=ACNM, $PROGRAM FILE?=YESNO(NO),DISPLAY $ .IF&LUNO, EQ, ""  .OVLYOVLY=>1B,PARMS= 8(37,,@&ACCESS NAME,Y,$AL$L,&PROGRAM FILE?,&DISPLAY) 8 .SYN $$LU=@$AL$L   .ELSE"  .OVLYOVLY=>1B,PARMS= <(37,&LUNO,@&ACCESS NAME,N,$AL$L,&PROGRAM FILE?,&DISPLAY)<  .ENDIF !  .SYN $AL$L=""@  .EOP " L$*================================= AL ==================================L .PROCAL(ASSIGN LUNO), LUNO=*INT, ACCESS NAME=ACNM, $PROGRAM FILE?=YESNO(NO),DISPLAY $ .IF&LUNO, EQ, ""  .OVLYOVLY=>1B,PARMS= 6(6,,@&ACCESS NAME,Y,$AL$L,&PROGRAM FILE?,&DISPLAY)6 .SYN $$LU=@$AL$L   .ELSE"  .OVLYOVLY=>1B,PARMS= <(6,&LUNO,@&ACCESS NAME,N,$AL$L,&PROGRAM FILE?,&DISPLAY) <  .ENDIF !  .SYN $AL$L=""  .EOP " L$*================================== AS =================================L& .PROC AS(ASSIGN SYNONYM VALUE), &SYNONYM = NAME,  VALUE = *(STRING)   .SYN  &SYNONYM = "&VALUE"   .EOP " L$*================================== AT =================================L .PROC AT(ACTIVATE TASK), RUN ID=I NT("@$$RI") 2 .BID TASK=>35,LUNO=0, !GENERAL SVC CALLER 2 PARMS=(1,&RUN ID)  .SYN $$RI="&RUN ID"  .EOP " L$*============================= BATCH ===================================L*.PROC BATCH (BEGIN BATCH EXECUTION), *"USER ID = *STRING ("@$$UI"), "&STATION ID = *STRING ("ST@$$ST"), &4 BATCH INPUT ACCESS NAME  = *STRING ("@$XB$I"), 44BATCH LISTING ACCESS NAME = *STRING ("@$XB$L"), 4( LS (LIST SYNONYMS) ?= *YESNO (NO) (* '. .IF@$$MO, NE, 0 ! TEST FOR BATCH MODE .(.EXIT ! IGNORE COMMAND IN I/A MODE ( .ENDIF * ' .SYN $XB$I="", $XB$L=""$ .SYN $MR$="", $MRM$="", $MT$=""$& .SYN $XD$D="", $XD$F="", $XD$S=""&: .SYN $CFK$L="", $CFK$PN="", $CFK$LRL="", $CFK$KN="" :0 .SYN $CFK$PRL="", $CFK$KS="", $CFK$IA="", $0 CFK$M="" " .SYN  $CFK$SA="", $CFK$MS=""". .SYN $E$C=0 ! SYNONYM TO COUNT ERRORS.2 Q$SYN ! DELETE FOREGROUND 'SECRET' SYNONYMS 2* ' .IF"&LS", GE, "Y"LSL=""! LIST SYNONYMS   .ENDIF !  SDT ! SHOW DATE AND TIME  .EOP&L$*================================== BD =================================L" .PROC BD(BACKUP DIRECTORY), "(DIRECTORY PATHNAME=*ACNM("@$BD$D"), (,SEQUENTIAL ACCESS NAME=*ACNM("@$BD$S"), , CONTROL ACCESS NAME=*ACNM, LISTING ACCESS NAME=*ACNM,.OPTIONS=*(STRING)("ALIASES,NOBLOCK"),BSIZ . .BID  TASK=>26,CODE=>26,$PARMS=(>26,@&DIRECTORY PATHNAME,$ @&SEQUENTIAL ACCESS NAME,  @&CONTROL ACCESS NAME, @&LIST ACCESS NAME,  "(&OPTIONS)",BSIZ) * .SYN  $BD$D = "&DIRECTORY PATHNAME"*. .SYN  $BD$S = "&SEQUENTIAL ACCESS NAME".  .EOP " L$*================================= BL ==================================L  .PROC BL(BACKSPACE LUNO),  &LUNO=INT,  !LUNO TO BE BACKSPACED &> RECORD COUNT=INT(1) !NUMBER OF LOGICAL RECORDS TO SPACE > .OVLYOVLY=>1B,LUNO=0,"PARMS=(9,&LUNO,&RECORD COUNT) "  .EOP " L$*================================== CC =================================L" .PROC CC(COPY/CONCATENATE), " INPUT ACCESS NAME(S)=(ACNM),  OUTPUT ACCESS NAME=ACNM, REPLACE?=YESNO(NO),  MAXIMUM RECORD LENGTH = *INT  .BID TASK=>34,CODE=2, PARMS=((&INPUT ACCESS NAME),  @&OUTPUT ACCESS NAME, *NO,&REPLACE,NO,&MAXIMUM RECORD LENGTH) *  .EOP " L$*=================================== CD ================================LN@  .PROC CD(COPY DIRECTORY),  $INPUT PATHNAME=*ACNM("@$CD$M"), $$OUTPUT PATHNAME=*ACNM("@$CD$C"),$ CONTROL ACCESS NAME=*ACNM, LISTING ACCESS NAME=*ACNM,"OPTIONS=*(STRING)("ADD,ALIAS")" .BID  TASK=>28,CODE=>28, PARMS=(>28,@&INPUT PATHNAME,  @&OUTPUT PATHNAME,  @&CONTROL ACCESS NAME,  @&LISTING ACCESS NAME,   "(&OPTIONS)")& .SYN  $CD$M = "&INPUT PATHNAME"&( .SYN  $CD$C = "&OUTPUT PATHNAME" (  .EOP " L$*================================= CF ==================================L<.PROC CF (CREATE FILE - SEQ, REL, KEY, DIR, PROG, IMG), < FILE TYPE = NAME (SEQ) .IF"@$$MO", EQ, 0<MSG T="ERROR:USE SPECIFIC FILE TYPE CREATE IN BATCH" <  .ELSE" $CF$1 "&FILE TYPE" = "*", FORCE=Y$  .ENDIF ! .EOP&*=J#================================= CF$1 ===============================J.PROC CF$1,"FORCE = YESNO, SEQUENTIALFILE = *STRING, "RELATIVERECORDFILE = *STRING, " KEYINDEXEDFILE = *STRING,  DIRECTORYFILE = *STRING, PROGRAMFILE = *STRING, IMAGEFILE = *STRING * '$ .IF "&SEQUENTIALFILE", NE, "" $ CFSEQ  .EXIT  .ENDIF ( .IF"&RELATIVERECORDFILE", NE, "" ( CFREL  .EXIT  .ENDIF $ .IF "&KEYINDEXEDFILE", NE, "" $ CFKEY  .EXIT  .ENDIF " .IF "&DIRECTORYFILE", NE, """ CFDIR  .EXIT  .ENDIF  .IF "&PROGRAMFILE", NE, "" CFPRO  .EXIT  .ENDIF  .IF "&IMAGEFILE", NE, "" CFIMG  .EXIT  .ENDIF $ MSG TEXT = "INVALID FILE TYPE"$.EOP&@L$*================================ CFDIR ================================L* .PROCCFDIR(CREATE DIRECTORY FILE), *$PATHNAME=ACNM, !FILE ACCESS NAME$*MAX ENTRIES=INT, !NUMBER OF ENTRIES *&DEFAULT PHYSICAL RECORD SIZE=*INT & .OVLYOVLY=>1B,LUNO=0,6PARMS=(13,@&PATHNAME,0,&MAX ENTRIES,&DEFAULT PHYS)6  .EOP " L$*============================== CFKEY ================================= L, .PROCCFKEY (CREATE KEY INDEXED FILE),,PATHNAME = ACNM,$ LOGICAL RECORD LENGTH  = INT, $$ PHYSICAL RECORD LENGTH = *INT,$  INITIAL ALLOCATION = *INT, " SECONDARY ALLOCATION = *INT,"MAXIMUM SIZE = INT$ .IF "@$CFK$KN", NE, "$CFK$KN" $@MSG T="ERROR:INVALID CFKEY SEQUENCE; CFKEY BEFORE ENDKEY"@0.SYN $CFK$L="", $CFK$PN="", $CFK$FLRL="", 0  $2CFK$PRL="", $CFK$KS="", $CFK$IA="", $CFK$M="",2(  $CFK$SA="", $CFK$MS="", $CFK$KN="" ( .EXIT   .ENDIF !  .SYN $CFK$KN = 1,$CFK$L = "",$CFK$KS = "1",  $CFK$PN = "@&PATHNAME",*$CFK$FLRL = "&LOGICAL RECORD LENGTH", **$CFK$PRL = "&PHYSICAL RECORD LENGTH", *&$CFK$IA = "&INITIAL ALLOCATION", &($CFK$SA = "&SECONDARY ALLOCATION", ( $CFK$MS = "&MAXIMUM SIZE", .IF"&PHYSICAL RECORD LENGTH", EQ, "" ,.SYN$CFK$PRL = 0 .ENDIF ( .IF"&INITIAL ALLOCATION", EQ, "" (.SYN $CFK$IA = 0 .ENDIF * .IF"&SECONDARY ALLOCATION", EQ, "" *.SYN $CFK$SA = 0 .ENDIF  .IF"@$$MO", NE, 0 CFK$1  ENDKEY  .ENDIF !  .EOP " H"*=============================CFK$1================================ H .PROCCFK$1 * .IF "@$CFK$KS", EQ, "$CFK$KS" ! #1* .EXIT   .ENDIF !  KEY#* .IF "@$CFK$KS", EQ, "$CFK$KS" ! #2* .EXIT   .ENDIF !  KEY#* .IF "@$CFK$KS", EQ, "$CFK$KS" ! #3* .EXIT   .ENDIF !  KEY#* .IF "@$CFK$KS", EQ, "$CFK$KS" ! #4* .EXIT   .ENDIF !  KEY#* .IF "@$CFK$KS", EQ, "$CFK$KS" ! #5* .EXIT   .ENDIF !  KEY#* .IF "@$CFK$KS", EQ, "$CFK$KS" ! #6* .EXIT   .ENDIF !  KEY#* .IF "@$CFK$KS", EQ, "$CFK$KS" ! #7* .EXIT   .ENDIF !  KEY#* .IF "@$CFK$KS", EQ, "$CFK$KS" ! #8* .EXIT   .ENDIF !  KEY#* .IF "@$CFK$KS", EQ, "$CFK$KS" ! #9* .EXIT   .ENDIF !  KEY#, .IF "@$CFK$KS", EQ, "$CFK$KS" ! #10 ,@ .EXIT   .ENDIF !  KEY#, .IF "@$CFK$KS", EQ, "$CFK$KS" ! #11 , .EXIT   .ENDIF !  KEY#, .IF "@$CFK$KS", EQ, "$CFK$KS" ! #12 , .EXIT   .ENDIF !  KEY#, .IF "@$CFK$KS", EQ, "$CFK$KS" ! #13 , .EXIT   .ENDIF !  KEY#, .IF "@$CFK$KS", EQ, "$CFK$KS" ! #14 , .EXIT  .ENDIF  KEY#  .EOP " L$*================================= CFPRO ===============================L( .PROCCFPRO(CREATE PROGRAM FILE), (PATHNAME=ACNM,"MAX NUMBER OF TASKS=INT(255), "&MAX NUMBER OF PROCEDURES=INT(255),&$MAX NUMBER OF OVERLAYS=INT(255),$ INITIAL ALLOCATION=INT(85),   SECONDARY ALLOCATION=*INT, EXPANDABLE?=YESNO(YES) .OVLYOVLY=>1B,LUNO=0,.PARMS=(14,@&PATHNAME,,,&MAX NUMBER OF TASKS,. 6&MAX NUMBER OF PROCEDURES,&MAX NUMBER OF OVERLAYS,6:&INITIAL ALLOCATION,&SECONDARY ALLOCATION,&EXPANDABLE): .SYN $$PF="&PATHNAME"  .EOP " L$*================================= CFREL ===============================L0 .PROCCFREL(CREATE RELATIVE RECORD FILE), 0PATHNAME=ACNM, LOGICAL RECORD LENGTH=*INT,  PHYSICAL RECORD LENGTH=*INT,  INITIAL ALLOCATION=*INT, SECONDARY ALLOCATION=*INT, EXPANDABLE?=YESNO(YES),  FORCED WRITE?=YESNO(NO)  .OVLYOVLY=>1B,LUNO=0,0PARMS=(11,@&PATHNAME,&LOGICAL RECORD LENGTH, 00&PHYSICAL RECORD LENGTH,&INITIAL ALLOCATION, 06&SECONDARY ALLOCATION,&EXPANDABLE?,&FORCED WRITE?)6  .EOP " L$*=============================== CFSEQ =================================L* .PROCCFSEQ(CREATE SEQUENTIAL FILE),*@PATHNAME=ACNM, LOGICAL RECORD LENGTH=*INT,  PHYSICAL RECORD LENGTH=*INT,  INITIAL ALLOCATION=*INT, SECONDARY ALLOCATION=*INT,: EXPANDABLE?=YESNO(YES),  !CAN IT GROW BEYOND INITIAL:, BLANK SUPPRESS?=YESNO(NO),!ASCII DATA ,4 FORCED WRITE? = YESNO(NO)  !WRITE EACH I/O CALL4 .OVLYOVLY=>1B,LUNO=0,0PARMS=(10,@&PATHNAME,&LOGICAL RECORD LENGTH, 00&PHYSICAL RECORD LENGTH,&INITIAL ALLOCATION, 06&SECONDARY ALLOCATION,&EXPANDABLE,&BLANK SUPPRESS,6&FORCED WRITE?)   .EOP " L$*================================= CKS =================================L. .PROCCKS(COPY KIF TO SEQUENTIAL FILE), .( INPUT PATHNAME=ACNM, !KIF PATHNAME ( KEY=INT, !KEY TO ORDER BY  0 OUTPUT ACCESS NAME=ACNM, !SEQUENTIAL FILE 0 REPLACE?=YESNO(NO)  .BID TA SK=>2C,LUNO=0,:PARMS=(43,@&INPUT PATHNAME,&KEY,@&OUTPUT ACCESS NAME, :  &REPLACE?)   .EOP " L$*=============================== CL ====================================L .PROCCL (COPY LINES), START LINE=*STRING,  END LINE=*STRING,  INSERT AFTER LINE=*STRING  .OVLY OVLY=4, LUNO=0,CODE=2,  !2=COPY LINES PARMS=("&START LINE",   "&END LINE",  "&INSERT AFTER LINE") .IF @$$CC, EQ, 0 " .OVLY OVLY=3, LUNO=0, CODE=1,",PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) ,  .ENDIF !  .EOP " L$*=================================== CM ================================L .PROC CM (CREATE MESSAGE),  0RECEIVING TERMINAL NAME = *STRING(ST@$$ST), 0MSG = *(STRING)  .IF"&MSG", NE, "" .OVLY OVLY=>23, CODE=5, 0 PARMS=("&MSG","@&RECEIVING TERMINAL NAME") 0 .ENDIF .EOP&L$*================================ CPI ==================================L$.PROC CPI(COPY PROGRAM IMAGE), $ INPUT PROGRAM FILE=ACNM,  OUTPUT PROGRAM FILE=ACNM,$ INPUT IMAGE NAME OR ID=STRING, $* OUTPUT IMAGE NAME AND/OR ID=*STRING, *  IMAGE TYPE (T/P/O)= STRING,  OPTIONS=(STRING)(ADD),   COPY ASSOCIATED OVERLAYS?,  " COPY ASSOCIATED PROCEDURES?, "  ASSOCIATED TASK NAME OR ID   .IF "&IMAGE TYPE" , EQ, T  CPI$T"  .BID TASK=>39, 8 PARMS=(@&INPUT PROGRAM FILE,@&OUTPUT PROGRAM FILE, 8> "&INPUT IMAGE NAME OR ID","&OUTPUT IMAGE NAME AND/OR ID",>" &IMAGE TYPE (T/P/O),&OPTIONS," @$CPIO,@$CPIP,>FF)  .SYN $CPIO="",$CPIP=""   .EXIT"  .ENDIF ! @ .IF "&IMAGE TYPE" , EQ, P .BID TASK=>39, 8 PARMS=(@&INPUT PROGRAM FILE,@&OUTPUT PROGRAM FILE, 8> "&INPUT IMAGE NAME OR ID","&OUTPUT IMAGE NAME AND/OR ID",>" &IMAGE TYPE (T/P/O),&OPTIONS," N,N,>FF)   .EXIT"  .ENDIF !  .IF "&IMAGE TYPE" , EQ,O   CPI$O"  .BID TASK=>39, 8 PARMS=(@&INPUT PROGRAM FILE,@&OUTPUT PROGRAM FILE, 8> "&INPUT IMAGE NAME OR ID","&OUTPUT IMAGE NAME AND/OR ID",>" &IMAGE TYPE (T/P/O),&OPTIONS," N,N,@$CPIT) .SYN $CPIT=""  .EXIT"  .ENDIF ! , MSG T="**** INCORRECT IMAGE TYPE ****" ,.EOP&L$*================================= CPI$O ===============================L8.PROC CPI$O(COPY PROGRAM IMAGE OVERLAY EXTENSION), 8& ASSOCIATED TASK NAME OR ID=STRING&  .SYN $CPIT="&ASSOCIATED TASK NAME OR ID"  .IF @$CPIT,EQ,"$CPIT" .SYN $CPIT = " "   .ENDIF ! .EOP&L$*================================= CPI$T ===============================L4.PROC CPI$T(COPY PROGRAM IMAGE TASK EXTENSION),4* COPY ASSOCIATED OVERLAYS?=STRING(Y), ** COPY ASSOCIATED PROCEDURES?=STRING(Y)*, .SYN $CPIO="© ASSOCIATED OVERLAYS?",. .SYN $CPIP="© ASSOCIATED PROCEDURES?"..EOP&L$*================================== CSK ================================L. .PROCCSK(COPY SEQUENTIAL FILE TO KIF), .. INPUT ACCESS NAME=ACNM, !SEQUENTIAL FILE.* OUTPUT PATHNAME=ACNM!KEY INDEX FILE * .BID  TASK = >2C,LUNO=0,4PARMS=(44,@&INPUT ACCESS NAME,@&OUTPUT PATHNAME) 4  .EOP " N%*============================= CSM =======================================N.P2ROC CSM(COPY/VERIFY SEQUENTIAL MEDIA UTILITY),26MASTER ACCESS NAME= ACNM, COPY ACCESS NAME= ACNM, 6H"MAXIMUM RECORD LENGTH= INT(8512), COPY+VERIFY? (NO:=VERIFY)= YESNO, HD TERMINATE ON(EOM,2EOF,COUNT)= STRING, LISTING ACCESS NAME= ACNM D .SYN $CSM$D= 1   .IF &TERMINATE ON,EQ,"EOM" .SYN $CSM$D= 3, $CSM$N= 0   .ENDIF ! " .IF &TERMINATE ON,EQ,"2EOF" " .SYN $CSM$D= 2, $CSM$N= 0   .ENDIF !  .IF@$CSM$D,EQ,1".EVAL $CSM$T= "&TERMINATE ON""".SYN $CSM$N= "&TERMINATE ON""  .ENDIF !  .IF &MAX REC LEN,GE,15000  ,MSG TEXT= "MAX RECORD LENGTH TOO BIG" , .EXIT  .ENDIF ! < .QBID TASK=8, PARMS=(@$CSM$D, "@&MASTER ACCESS NAME", <L$ "@© ACCESS NAME","@&LISTING ACCESS NAME","&MAXIMUM RECORD LENGTH", L @$CSM$N, "©+VERIFY") * .SYN $CSM$D="", $CSM$T="",$CSM$N=""*  .EOP " L$*============================== DL =====================================L .PROC DL (DELETE LINES), START LINE=*STRING, END LINE=*STRING .OVLY OVLY=4, LUNO=0,CODE=4,  !4=DELETE LINES&PARMS=("&START LINE","&END LINE") & .IF @$$CC, EQ, 0 " .OVLY OVLY=3, LUNO=0, CODE=1,",PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) ,  .ENDIF !  .EOP " L$*============================== DS =====================================L  .PROC DS (DELETE STRING),  "NUMBER OF OCCURRENCES=INT(1), " START COLUMN=INT("@$XE$SC"),  END COLUMN=INT("@$XE$EC"), STRING=*(STRING)("@$XE$S") .IF "&STRING", EQ, "" *MSG T="AN EMPTY STRING IS NOT ALLOWED"* .EXIT  .ENDIF " .SYN $XE$SC = "&START COLUMN""  .SYN $XE$EC = "&END COLUMN"  .SYN $XE$S = "&STRING"  .OVLY OVLY=4, LUNO=0, CODE=7,!7=DELETE STRING$ PARMS=(&NUMBER OF OCCURRENCES, $ &START COLUMN, &END COLUMN, "&STRING") .SYN $XE$S = "&STRING" .IF @$$CC, EQ, 0 " .OVLY OVLY=3, LUNO=0, CODE=1,", PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$),  .ENDIF !  .EOP " L$*======================== DXTX =========================================L, .PROCDXTX (DX10 FILE TO TX990 FILE) ,,4 DX10 ACCESS NAME = ACNM, ! DX10 ACCESS NAME 46TX990 ACCESS NAME = STRING,  ! TX990 ACCESS NAME 6, REPLACE? = *YESNO(NO)  ! REPLACE FLAG , .BID TASK=>3E, 6PARMS=("@&DX10 ACCESS NAME","@&TX990 ACCESS NAME", 6  "&REPLACE")  .EOP " *=====F!======================== EBATCH ==================================F(.PROC EBATCH (END BATCH EXECUTION),((LS (LIST SYNONYMS) ? = *YESNO (NO), ( TEXT=*STRING, CODE=*INT * '. .IF@$$MO, NE, 0 ! TEST FOR BATCH MODE .(.EXIT ! IGNORE COMMAND IN I/A MODE ( .ENDIF * '$ .IF "@$CFK$KN", NE, "$CFK$KN" $:MSG T="ERROR: INVALID CFKEY SEQUENCE; ENDKEY MISSING" : .ENDIF * ' .IF"&LS", GE, "Y"LSL=""! LIST SYNONYMS   .ENDIF !  SDT ! SHOW DATE AND TIME  > .STOP TEXT="&TEXT", CODE="&CODE"  ! TERMINATE EXECUTION>.EOP&L$*=============================== EC ====================================L .PROCEC (ERROR COUNT) .IF "@$$CC", GT, 00000 .EVAL $E$C = @$E$C + 1  .ENDIF  .EOP " *=============>================== ENDKEY ================================>2 .PROCENDKEY (TERMINATE KEY SPECIFICATIONS) 2$ .IF "@$CFK$KN", EQ, "$CFK$KN" $@MSG T="ERROR:INVALID CFKEY SEQUENCE; ENDKEY BEFORE CFKEY"@ .EXIT   .ENDIF !  .IF "@$CFK$KN", LE, 1 >MSG T="ERROR:INVALID CFKEY SEQUENCE; ENDKEY BEFORE KEY">  .ELSE" .SPLITLIST =:  "(@$CFK$L)", ! SYN CAN BE LONG - ISOLATE ON ONE LINE: REST = $CFK$L  .OVLY OVLY=>1B,LUNO= 0, 4  PARMS=(12,"@$CFK$PN","@$CFK$FLRL","@$CFK$PRL", 4*  "@$CFK$IA","@$CFK$SA",Y,Y,"@$CFK$MS", *&  "@$CFK$L") ! ISOLATE ON ONE LINE &  .ENDIF ! < .SYN $CFK$L="", $CFK$PN="", $CFK$FLRL="", $CFK$KN="", <4$CFK$PRL="", $CFK$KS="", $CFK$IA="", $CFK$M="", 4 $CFK$SA="", $CFK$MS=""  .EOP "  *===================8========== FL ======================================8$ .PROC FL (FORWARD SPACE LUNO),$LUNO = INT,  RECORD COUNT = INT(1) 8 .OVLY OVLY = >1B,PARMS = (19,&LUNO,"&RECORD COUNT") 8  .EOP " L$*============================= FS ======================================L .PROC FS (FIND STRING),  OCCURRENCE NUMBER = INT(1),  "START COLUMN = INT("@$XE$SC")," END COLUMN = INT("@$XE$EC"),  STRING=*(STRING)("@$XE$S") .IF "&STRING", EQ, "" *MSG T="AN EMPTY STRING IS NOT ALLOWED"* .EXIT  .ENDIF $ .SYN $XE$SC = "&START COLUMN" $" .SYN $XE$EC = "&END COLUMN" " .OVLY OVLY=4, LUNO=0,$ CODE=5, !5=FIND STRING COMMAND$  PARMS=(&OCCURRENCE NUMBER,   &START COLUMN, &END COLUMN, "&STRING") .SYN $XE$S= "&STRING" .IF @$$CC, EQ, 0 " .OVLY OVLY=3, LUNO=0, CODE=1,", PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$),  .ENDIF !  .EOP " L$*============================= HO ======================================L( .PROCHO (HALT OUTPUT AT DEVICE), ("DEVICE NAME = ACNM("@$PF$D"), ",IMMEDIATELY OR AT EOF? (I/E) = *NAME (I) , .OVLY OVLY=>24, CODE=1,4PARMS = (@&DEVICE NAME,&IMMEDIATELY OR AT EOF?) 4" .SYN $PF$D = "&DEVICE NAME" "  .EOP " L$*=============================== IF ====================================L .PROC IF (INSERT FILE),  FILE PATHNAME=ACNM,  INSERT AFTER LINE=*INT( .IF"&INSERT AFTER LINE", EQ, "0" ( MSG T="INVALID LINE NUMBER" .EXIT   .ENDIF ! & .IF"@&FILE PATHNAME", GE, DS01 &  .IF "@&FILE PATHNAME", LE, D S99 &MSG T="CANNOT INSERT FROM A DISK" & .EXIT   .ENDIF !  .ENDIF !  .OVLY OVLY=4, LUNO=0,CODE=8, !8=INSERT FILE PARMS=(@&FILE PATH NAME, "&INSERT AFTER LINE") .IF @$$CC, EQ, 0 " .OVLY OVLY=3, LUNO=0, CODE=1,",PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) ,  .ENDIF !  .EOP " L$*================================== IV =================================L  .PROC IV(INSTALL VOLUME),  UNIT NAME=NAME, VOLUME NAME=NAME .OVLYOVLY=>1B,LUNO=0,(PARMS=(21,@&UNIT NAME,@&VOLUME NAME)(  .SYN  $$VN="&VOLUME NAME"   .EOP " L$*=============================== KEY ===================================L. .PROC!THIS MUST BE ON A LINE BY ITSELF .2KEY (KEY DESCRIPTION FOR KEY NUMBER @$CFK$KN), 2START POSITION = INT("@$CFK$KS"), KEY LENGTH= INT, DUPLICATES? = YESNO (NO),  MODIFIABLE? = YESNO (NO),  ANY MORE KEYS? = *YESNO(YES) $ .IF "@$CFK$KN", EQ, "$CFK$KN" $>MSG T="ERROR:INVALID CFKEY SEQUENCE; KEY BEFORE CFKEY" > .EXIT   .ENDIF !  .IF "@$CFK$KN", EQ, 1 .SYN$CFK$M = N  .ELSE" .SYN $CFK$M = "&MODIFIABLE"  .ENDIF ! ( .SYN $CFK$KS = "&START POSITION" (F!.SYN $CFK$L="@$CFK$L,(@$CFK$KS,&KEY LENGTH,&DUPLICATES,@$CFK$M,Y)"F  .EVAL $CFK$KN = @$CFK$KN+1 " .IF "&ANY MORE KEYS", LT, Y ".SYN$CFK$KS = ""  .ENDIF !  .EOP " L$*=============================== KO ====================================L( .PROCKO (KILL OUTPUT AT DEVICE), ("DEVICE NAME = ACNM("@$PF$D"), ""KILL CURRENT FILE ONLY? = *YESNO"  (YES)  .OVLY OVLY=>24, CODE=3,4PARMS = (@&DEVICE NAME,&KILL CURRENT FILE ONLY?) 4" .SYN $PF$D = "&DEVICE NAME" "  .EOP " L$*=================================== LC ================================L .PROC LC (LIST COMMANDS) * /LC ! FORCE OUTPUT OF INITIAL MENU *.EOP&L$*=================================== LD ================================L  .PROC LD(LIST DIRECTORY),  PATHNAME=ACNM, LISTING ACCESS NAME=*ACNM  .BID  TASK=>32,CODE=>32,0PARMS=(>32,@&PATHNAME,@&LISTING ACCESS NAME) 0  .EOP " L$*=================================== LS ================================L .PROC LS(LIST SYNONYMS), LISTING ACCESS NAME=*ACNM  .BID  TASK=>36,CODE=>36,&PARMS=(>36,@&LISTING ACCESS NAME) &  .EOP "  *===================8=============== LTS ================================8( .PROCLTS (LIST TERMINAL STATUS), ( TERMINAL NAME = *NAME, OUTPUT ACCESS NAME = *ACNM8 .OVLYOVLY=>23, CODE=0, PARMS=("@&TERMINAL NAME", 8 "@&OUTPUT ACCESS NAME")   .EOP " L$*=================================== MD ================================L .PROCMD(MAP DISK), * PATHNAME = *ACNM,  ! NIL => .VCATALOG * LISTING ACCESS NAME=*ACNM, SHORT FORM?=YESNO(YES),  TOP LEVEL ONLY?=YESNO(NO),$DIRECTORY NODES ONLY?=YESNO(NO) $ .SYN  $MD$ = "&PATHNAME" .IF "&PATHNAME", EQ, "" .SYN $MD$ = ".VCATALOG"  .ELSE"  .IF @@$MD$,GE,DK01 .IF @@$MD$,LE,DK99 2 MSG TEXT="ERROR: PATHNAME CANNOT BE DISKETTE" 2 .EXIT   .ENDIF  .ENDIF  .ENDIF !  .BID TASK=>22,LUNO=0,*PARMS=(0,@@$MD$,@&LISTING ACCESS NAME,*6&SHORT FORM,&TOP LEVEL ONLY,&DIRECTORY NODES ONLY)6 .SYN $MD$ = ""   .EOP " L$*=================================== MKF ===============================L$ .PROC MKF(MAP KEY INDEX FILE),$PATHNAME=ACNM,&LISTING ACCESS NAME=*ACNM("@$$LD")& .BID TASK=>38,LUNO=0,0PARMS=(0,@&PATHNAME,@&LISTING ACCESS NAME,3) 0( .SYN $$LD="&LISTING ACCESS NAME" (  .EOP " L$*================================= ML ==================================L .PROCML (MOVE LINES), START LINE=*STRING,  END LINE=*STRING,  INSERT AFTER LINE=*STRING  .OVLY OVLY=4, LUNO=0, CODE=3,!3=MOVE LINES  PARMS=("&START LINE",  "&END LINE",  "&INSERT AFTER LINE") .IF @$$CC, EQ, 0 " .OVLY OVLY=3, LUNO=0, CODE=1,",PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) ,  .ENDIF !  .EOP " L$*=================================== MPF ============================== L" .PROC MPF(MAP PROGRAM FILE)," PATHNAME=ACNM("@$$PF"),  LISTING ACCESS NAME=*ACNM  .BID TASK=>38,LUNO=0,0PARMS=(0,@&PATHNAME,@&LISTING ACCESS NAME,5) 0 .SYN $$PF="&PATHNAME"  .EOP " L$*================================= MR ==================================L .PROC MR (MODIFY ROLL), (NUMBER OF LINES TO ROLL=INT("@$MR$")(* .SYN $MR$="&NUMBER OF LINES TO ROLL" * .IF @$MR$,LT,1 .SYN $MR$=1  .ENDIF " .OVLY OVLY=3, LUNO=0, CODE=1,", PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$),  .EOP " 6*================================= MRM =============6 ====================& .PROC MRM (MODIFY RIGHT MARGIN),&(RIGHT MARGIN POSITION=INT("@$MRM$") (( .SYN $MRM$="&RIGHT MARGIN POSITION"( .IF "@$MRM$", GT, "80" .SYN$MRM$ = 80  .ENDIF !  .IF "@$MRM$", LT, "1".SYN$MRM$ = 1   .ENDIF ! $ .OVLY OVLY=>3, LUNO=0, CODE=1, $,PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) ,  .EOP " L$*================================= MSG =================================L.PROC MSG, "$TEXT = (STRING),! MESSAGE TEXT$8 REPLY = *(STRING) ! REPLY VARIABLE (SYNONYM) NAME 8 .OVLY OVLY=>23, CODE=4,  PARMS=("&TEXT","&REPLY").EOP&L$*================================== MS =================================L0 .PROCMS,SYNONYM,VALUE ! MODIFY SYNONYMS 0 .IF @$$MO, EQ, 0  .SYN "&SYNONYM" = "&VALUE"   .ELSE"  .OVLY OVLY=>22   .ENDIF !  .EOP " L$*================================= MT ==================================L .PROC MT (MODIFY TABS)," TAB COLUMNS = *(INT)("@$MT$")" .IF "&TAB COLUMNS", EQ, ""  .SYN $MT$ = "1,8,13,26,31"  @.OVLY OVLY=3,CODE=1,PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) @ .ELSE "  .IF "&TAB COLUMNS", EQ, 0.SYN$MT$ = 1@.OVLY OVLY=3,CODE=1,PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) @ .ELSE " F!.OVLY OVLY=3,CODE=1,PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,&TAB COLUMNS)F.IF @$$CC,EQ,0 .SYN $MT$="&TAB COLUMNS" .ENDIF" .ENDIF" .ENDIF" .EOP#L$*================================= PF ==================================L .PROC PF (PRINT FILE),&FILE PATHNAME(S) = (ACNM) ("@$SF$P")&,  ANSI FORMAT? = YESNO (NO), (LISTING DEVICE = NAME ("@$PF$D"), ((DELETE AFTER PRINTING? = *YESNO(NO),( NUMBER OF LINES/PAGE = *INT  $.SYN $PF$D = "&LISTING DEVICE"$&.SYN $PF$R = "(&FILE PATHNAME)" & .LOOP % 2.SPLITLIST="@$PF$R", FIRST=$SF$P, REST=$PF$R2 .OVLY OVLY=>24, CODE=0,H"PARMS=("@@$SF$P", "@@$PF$D", "&ANSI FORMAT", "&DELETE", "&NOLINES") H".WHILE "@$PF$R", NE, "$PF$R" " .REPEAT $ ".SYN $SOS$ = ".S$FTLF@$$ST" ".IF  "@$$MO", EQ, 0  .SYN $SOS$ = ".S$BTLF@$$ST" .ENDIF% .IF  "@$$MO", EQ, 1 .SYN$SOS$ = "@ME"  .ENDIF% <.OVLY OVLY=>24, CODE=4, PARMS=("@@$PF$D", "", "@$SOS$") <.SYN $SOS$ = "" .EOP&L$*=================================== Q =================================L .PROCQ (QUIT) .IF@$$MO, EQ, 0".STOP  ! SPEED UP BATCH MODE" .ENDIF  .IF"@$$EA", GE, "Y" QE >MSG T="QUIT PROCESSING INCOMPLETE: RE-ENTER 'Q' COMMAND">  .EXIT  .ENDIF !  .IF "@$$DA", GE, "Y"  QD @ MSGT="QUIT PROCESSING INCOMPLETE: RE-ENTER 'Q' COMMAND" @  .EXIT  .ENDIF ! . .SYN $E$C=0 ! SYNONYM TO COUNT ERRORS.  Q$SYN"  .STOP"  .EOP " L$*================================ Q$SYN ================================L .PROCQ$SYN : .SYN $$OB="", $$RI="", $$VN="", $PF$D="", $SF$P="", :.$AA$P="", $IT$T="", $LLR$P="", $XCP$L="", .0$SPI$A="", $SPI$I="", $SPI$T="", $XCT$L="", 00$SRF$F="",$SRF$P="", $SRF$R="", $LD$P="", 0.$XE$ = "", $$BT="", $XD$D="", $XLE$OB="", .$$LU="", $$S="", $BD$D="", $BD$S="", ,$$LD="", $CD$M="", $CD$C="",$$PF="", ,.$$ML="",$$OP="",$XLE$C="",$XLE$L="", .2$XMA$O="",$XMA$L="", $XMA$E="", $XMA$OP="", 22$XFC$O="",$XFC$L="", $XFC$E="", $XFC$OP="", 22$XCC$L="",$XCC$O="", $XCC$OB="", $XCP$O="", 22$XFT$P="",$XFT$T="", $XCT$P="", $XCT$T="", 24$CFK$L="", $CFK$PN="", $CFK$LRL="", $CFK$KN="", 44$CFK$PRL="", $CFK$KS="", $CFK$IA="", $CFK$M="", 4&$CFK$SA="", $CFK$MS="", $XPS$E="",& ********************J*** OLD RPG $RPG$PL="", $RPG$P="", $RPG$L="", $RPG$B="", $RPG$S="" ,J *********************** NEW RPG "2$R$S="", $R$O="", $R$L="", $R$N="", $R$LL="", 2 $R$P="", $R$PL="", $RPGU="",  ********************&$XMA$OPL="", $XMA$MC="", $XPS$E=""&  .EOP " "*===============================",== QE ==================================, .PROCQE (QUIT EDIT),  ABORT? = YESNO(NO)  .IF "&ABORT", LT, "Y"   QE$1   .ELSE" ( .OVLYOVLY=4,CODE = 9,PARMS=(Y,,,)(  .ENDIF ! 6 .SYN $XE$S="",$XE$SC="",$XE$EC="",$XEM$="" 6  .EOP " L$*================================== QE$1 ===============================L .PROC QE$1 (QUIT EDIT), (OUTPUT FILE ACCESS NAME=ACNM(@$XE$),( REPLACE?=YESNO(NO),  MOD LIST ACCESS NAME=*ACNM .OVLY OVLY=4, LUNO=0,CODE=9,  !9=QUIT EDIT PARMS=(N, "  "@&OUTPUT FILE ACCESS NAME", "  &REPLACE, "@&MOD LIST ACCESS NAME"), .SYN $XE$ = "&OUTPUT FILE ACCESS NAME",, .SYN $$S = "&OUTPUT FILE ACCESS NAME",  .EOP " :*================================ RGL ==================:================& .PROC RGL(RELEASE GLOBAL LUNO), & LUNO=INT  .OVLYOVLY=>1B,LUNO=0,PARMS=(38,&LUNO)  .EOP " L$*================================= RL ==================================L .PROC RL(RELEASE LUNO), $LUNO=INT !LUNO TO BE RELEASED $ .OVLYOVLY=>1B,LUNO=0,PARMS=(30,&LUNO)  .EOP " L$*=================================== RO ================================L( .PROCRO(RESUME OUTPUT AT DEVICE),( DEVICE NAME = ACNM("@$PF$D")  .OVLYOVLY=>24,CODE=2, PARMS=(@&DEVICE NAME)   .SYN  $PF$D = &DEVICE NAME  .EOP " L$*====================================== RS =============================L  .PROC RS (REPLACE STRING), "NUMBER OF OCCURRENCES=INT(1), " START COLUMN=INT("@$XE$SC"),  END COLUMN=INT("@$ XE$EC"), STRING=*(STRING)("@$XE$S"),  CHANGE=*(STRING) .IF "&STRING", EQ, "" *MSG T="AN EMPTY STRING IS NOT ALLOWED"* .EXIT  .ENDIF  .IF "&CHANGE", EQ, "" ,DS NUMBER = "&NUMBER OF OCCURRENCES", , START = "&START COLUMN",  END = "&END COLUMN",  STRING = "&STRING"  .EXIT  .ENDIF " .SYN $XE$SC = "&START COLUMN""  .SYN $XE$EC = "&END COLUMN"  .OVLY OVLY=4, LUNO=0,( CODE=6, !6=REPLACE STRING COMMAND ($ PARMS=(&NUMBER OF OCCURRENCES, $ &START COLUMN, &END COLUMN, "&STRING", "&CHANGE") .SYN  $XE$S = "&CHANGE"  .IF @$$CC, EQ, 0 " .OVLY OVLY=3, LUNO=0, CODE=1,", PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$),  .ENDIF !  .EOP " "*===============================",= RWL ==================================, .PROC RWL(REWIND LUNO), "LUNO=INT !LUNO TO BE REWOUND " .OVLYOVLY=>1B,LUNO=0,PARMS=(32,&LUNO)  .EOP " L$*================================= SBS =================================L( .PROCSBS (SHOW BACKGROUND STATUS)( .OVLYOVLY=>23, CODE=2  .EOP " L$*================================= SDT =================================L( .PROCSDT  ! SHOW DATE AND TIME (( .OVLYOVLY=>23,CODE=11,PARMS=(28) (  .EOP " L$*================================= SF ==================================L .PROC SF (SHOW FILE),"FILE PATHNAME = *ACNM (@$SF$P)"$ .SYN $SF$P = "&FILE PATHNAME" $" .IF "&FILE PATHNAME", NE, """ .SHOW @&FILE PATHNAME  .ENDIF .EOP&"*===============================",==== SIS ===============================," .PROC SIS(SHOW I/O STATUS), "LUNO=*INT,,TYPE (TASK,STATION,GLOBAL,A) = NAME (S), ,TASK RUN ID " .SYN $SIS$T = "&TASK RUN ID"" .IF"@$$MO", NE, 0.IF  &TYPE,GE,T   SIS$  .ENDIF  .ENDIF !  .BID TASK=>17, $PARMS=(29,&LUNO,"&TYPE",@$SIS$T)$ .SYN $SIS$T=""   .EOP " L$*===================================== SIS$ ============================L. .PROCSIS$ (SHOW TASK LOCAL I/O STATUS),. TASK RUN ID=INT("@$$RI")" .SYN  $SIS$T="&TASK RUN ID" "  .EOP " L$*================================= SL ==================================L .PROCSL (SHOW LINE), LINE=STRING(1) .OVLY OVLY=4, LUNO=0,CODE=1, !1=SHOW LINEPARMS=("&LINE")   .IF @$$CC , EQ, 0  " .OVLY OVLY=3, LUNO=0, CODE=1,",PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) ,  .ENDIF !  .EOP " L$*================================== SMM ================================L  .PROC SMM(SHOW MEMORY MAP)  .BID TASK=>01, LUNO=>00  .MENU   .EOP " L$*================================== SMS ================================L$ .PROC SMS(SHOW MEMORY STATUS),$ LISTING ACCESS NAME=*ACNM 2 .OVLYOVLY=>40,PARMS=(@&LISTING ACCESS NAME)2  .EOP " L$*================================== SOS ================================L$ .PROC SOS(SHOW OUTPUT STATUS),$USER ID=*NAME, DEVICE NAME=*NAME " .SYN $SOS$ = ".S$FTLF@$$ST" " .IF@$$MO, EQ, 0 .SYN $SOS$ = ".S$BTLF@$$ST"  .ENDIF !  .IF@$$MO, EQ, 1.SYN$SOS$ = "@ME"   .ENDIF !  .OVLYOVLY=>24,CODE=4,,PARMS=(@&DEVICE NAME,"&USER ID",@$SOS$) , .SYN $SOS$ = ""   .EOP " L$*============================= SHOW TERMINAL INFORMATION ===============LH.PROC ! *** IMPORTANT: THE NAME MUST BE ON NEXT LINE, AS SHOWN ***HJ#STI (TERMINAL INFORMATION ....... TERMINAL: @ME ....... USER: @$$UI), J0MOST RECENT TASK RUN ID = *STRING ("@$$RI"), 04MOST RECENT LUNO ASSIGNMENT = *STRING ("@$$LU"), 4, TEXT EDIT IN PROGRESS = *YESNO("@$$EA"), ,. MOST RECENT EDIT FILE = *STRING ("@$XE$"), .. TASK BEING DEBUGGED = *(STRING)("@$XD$D") ., .SYN $$RI = "&MOST RECENT TASK RUN ID" ,0 .SYN $$LU = "&MOST RECENT LUNO ASSIGNMENT" 0.EOP&L$*================================= STS =================================L .PROC STS(SHOW TASK STATUS),, INSTALLED ID=*INT, !WHAT INSTALLED ID , OUTPUT ACCESS NAME = *ACNM .BID TASK=>1D, 2PARMS=(26,&INSTALLED ID,@&OUTPUT ACCESS NAME) 2  .EOP " L$*================================ SV ===================================L .PROCSV (SHOW VALUE), EXPRESSION = STRING " .OVLY OVLY = >C, CODE = >15," PARMS = ("&EXPRESSION")   .EOP " L$*================================ SVL ==================================L .PROC SVL (SAVE LINES),  START LINE=*STRING,  END LINE=*STRING,  SAVE FILE PATHNAME=*STRING,   REPLACE (YES/NO)=YESNO(NO)$ .OVLY OVLY=4, LUNO=0, CODE=10, $ PARMS=("&START LINE", "&END LINE", "@&SAVE FILE PATHNAME",  "&REPLACE")  .IF @$$CC, EQ, 0 " .OVLY OVLY=3, LUNO=0, CODE=1,", PARMS=(@$XE$,@$MR$,@$MRM$,@$XEM$,@$MT$) ,  .ENDIF !  .EOP " L$*============================= SVS =====================================L& .PROC SVS (SHOW VOLUME STATUS), & VOLUME NAME = *NAME, DRIVE NAME = *NAME,  OUTPUT ACCESS NAME=*ACNM  .IF "@&DRIVE NAME",GE,DK01   .IF "@&DRIVE NAME",LE,DK994 MSG TEXT="ERROR: DRIVE NAME CANNOT BE DISKETTE" 4 .EXIT  .ENDIF  .ENDIF !  .BID TASK=>37,LUNO=0,>PARMS=(0,@&VOLUME NAME,@&DRIVE NAME,@&OUTPUT ACCESS NAME) >  .EOP " L$*============================= TXDX ====================================L, .PROCTXDX (TX990 FILE TO DX10 FILE), ,2TX990 ACCESS NAME = STRING, ! TX PATHNAME  20 DX10 ACCESS NAME = ACNM, ! DX10 ACCESS NAME 0 REPLACE? = YESNO(NO) .BID TASK=>3D, 6PARMS=("@&TX990 ACCESS NAME","@&DX10 ACCESS NAME", 6 "&REPLACE?")  .EOP " L$*============================= TXMD ====================================L  .PROC TXMD (MAP DISKETTE), *DISKETTE = ACNM,  ! DISKETTE NAME *4LISTING ACCESS NAME = *ACNM  ! LISTING DEVICE 4 .BID TASK=>3A, 0PARMS=("@&DISKETTE","@&LISTING ACCESS NAME") 0  .EOP " L$*================================= UV ==================================L .PROC UV(UNLOAD VOLUME),2 VOLUME NAME=NAME("@$$VN")  !DISK VOLUME NAME 2 .OVLYOVLY=>1B,LUNO=0, PARMS=(27,@&VOLUME NAME) .SYN $$VN=""   .EOP " L$*================================== VB =================================L .PROC VB(VERIFY BACKUP), *SEQUENTIAL ACCESS NAME=ACNM("@$BD$S"),* DIRECTORY PATHNAME=ACNM("@ $BD$D"),  LISTING ACCESS NAME=*ACNM  .BID TASK=>40,CODE=>40,*PARMS=(>40,"@&SEQUENTIAL ACCESS NAME",* "@&DIRECTORY PATHNAME", "@&LISTING ACCESS NAME")   .EOP " L$*================================== VC =================================L .PROC VC(VERIFY COPY), $MASTER PATHNAME=*ACNM("@$CD$M"),$"COPY PATHNAME=*ACNM("@$CD$C")," CONTROL ACCESS NAME=*ACNM, LISTING ACCESS NAME=*ACNM  .BID TASK=>3F,CODE=>3F,$PARMS=(>3F,"@&MASTER PATHNAME", $ "@© PATHNAME",  "@&CONTROL ACCESS NAME",  "@&LISTING ACCESS NAME") $ .SYN $CD$M = "&MASTER PATHNAME"$" .SYN $CD$C = "© PATHNAME""  .EOP " L$*============================= WAIT ====================================L4 .PROCWAIT (--WAITING FOR BACKGROUND TASK TO COM4PLETE--),  MESSAGE? 0 .OVLYOVLY=>23, CODE=10, PARMS=(&MESSAGE?)0  .EOP " L$*============================= WEOF ====================================L& .PROC WEOF (WRITE EOF TO LUNO), &LUNO = INT( .OVLY OVLY = >1B,PARMS = (46,&LUNO)(  .EOP " L$*============================= XB ======================================L  .PROC XB (EXECUTE BATCH),   INPUT ACCESS NAME = ACNM,  LISTING ACCESS NAME = ACNM$ .SYN $XB$I="&INPUT ACCESS NAME"$& .SYN $XB$L="&LISTING ACCESS NAME"&4 .QBIDTASK=>20, PARMS=("@&INPUT ACCESS NAME", 4 "@&LISTING ACCESS NAME")   .SYN $XB$I = "", $XB$L = ""  .EOP " L$*================================= XE ==================================L& .PROC XE (INITIATE TEXT EDITOR),& FILE ACCESS NAME = *ACNM(@$XE$ )  .IF@$$MO, EQ, 0,MSG T="COMMAND IS INVALID IN BATCH MODE", .EXIT  .ENDIF  .IF "@$MR$", EQ, "$MR$"  .SYN $MR$=12 !ROLL COUNT   .ENDIF !  .IF "@$MRM$", EQ, "$MRM$"" .SYN $MRM$=80!RIGHT MARGIN "  .ENDIF !  .IF "@$MT$", EQ, "$MT$"* .SYN $MT$="1,8,13,26,31" !TAB STOPS *  .ENDIF !  .IF"@$$EA", LT, "Y"" .SYN $XE$="&FILE ACCESS NAME""  .ENDIF !  .IF "@$XE$", EQ, "$XE$" .SYN$XE$ = " "  .ENDIF ! * .IF@@$XE$, NE, "@&FILE ACCESS NAME"*4MSG TEXT = "EDIT ALREADY IN PROGRESS FOR @$XE$" 4 .EXIT   .ENDIF ! . .SYN $XEM$ = 1 ! EDIT MODE: 1 = NORMAL .$ .OVLY OVLY=3, LUNO=0, CODE=0,$  PARMS=(@&FILE ACCESS NAME,   @$MR$,@$MRM$,@$XEM$,@$MT$)  .EOP " *=============@==================== XES ================================== @4 .PROCXES (INITIATE TEXT EDITOR WITH SCALING), 4$FILE ACCESS NAME = *ACNM(@$XE$) $ .IF@$$MO, EQ, 0,MSG T="COMMAND IS INVALID IN BATCH MODE", .EXIT  .ENDIF  .IF "@$MR$", EQ, "$MR$"  .SYN $MR$=12 !ROLL COUNT   .ENDIF !  .IF "@$MRM$", EQ, "$MRM$"" .SYN $MRM$=80!RIGHT MARGIN "  .ENDIF !  .IF "@$MT$", EQ, "$MT$"* .SYN $MT$="1,8,13,26,31" !TAB STOPS *  .ENDIF !  .IF"@$$EA", LT, "Y"" .SYN $XE$="&FILE ACCESS NAME""  .ENDIF !  .IF "@$XE$", EQ, "$XE$" .SYN$XE$ = " "  .ENDIF ! * .IF@@$XE$, NE, "@&FILE ACCESS NAME"*4MSG TEXT = "EDIT ALREADY IN PROGRESS FOR @$XE$" 4 .EXIT   .ENDIF ! $ .SYN $XEM$ = 2! EDIT MODE: 2 =$  SCALED $ .OVLY OVLY=3, LUNO=0, CODE=0,$  PARMS=(@&FILE ACCESS NAME,   @$MR$,@$MRM$,@$XEM$,@$MT$)  .EOP " L$*============================== XT =====================================L .PROC XT(EXECUTE TASK), *PROGRAM FILE OR LUNO=STRING("@$$PF"), *>TASK NAME OR ID=STRING("@$IT$T"), !TASK NAME OR INSTALLED >&PARM1=INT(0),  !PARAMETER WORD 1 &&PARM2=INT(0),  !PARAMETER WORD 2 &:STATION ID=STRING(ME) !DEFAULT CONVERTS TO USER'S LOC: .OVLYOVLY=>1B,LUNO=0,:PARMS=(18,"@&PROGRAM FILE OR LUNO","&TASK NAME OR ID",:"  "&STATION ID",&PARM1,&PARM2, "  N,N,$$RI)( .SYN $$PF="&PROGRAM FILE OR LUNO"($ .SYN  $IT$T="&TASK NAME OR ID"$  .EOP " L$*=======================================================================L* '* ' CM R=ME,M="PROC0 COMPLETE"* '* 'SDT & EBATCH% ME,   @$MR$,@$MRM$,@$XEM$,@$MT$)  .EOP " L$*============================== XT =====================================L .PROC XT(EXECUTE TASK), *PROGRAM FILE OR LUNO=STRING("@$$PF"), *>TASK NAME OR ID=STRING("@$IT$T"), !TASK NAME OR INSTALLED >&PARM1=INT(0),  !PARAMETER WORD 1 &&PARM2=INT(0),  !PARAMETER WORD 2 &:STATION ID=STRING(ME) !DEFAULT CONVERTS TO USER'S LOC: .OVLYOVLY=>1B,LUNO=0,:PARMS=(18,"@&PROGRAM FILE OR LUNO","&TASK NAME OR ID",:"  "&STATION ID",&PARM1,&PARM2, "  N,N,$$RI)( .SYN $$PF="&PROGRAM FILE OR LUNO"($ .SYN  $IT$T="&TASK NAME OR ID"$  .EOP " L$*=======================================================================L* '* '@BATCH LS=YES"L$************************************************************************L:* BATCH STREAM TO INSTALL THE SYSTEM PROCS AT ACCESS :<* LEVEL TWO(2). THE SYNONYM "VOLBLD" MUST BE DEFINED <@* AS THE VOLUME NAME WHERE THE PROCS ARE TO BE INSTALLED. @* '>* CAUTION: IF THIS BATCH STREAM IS EXECUTED AGAINST A >:* RUNNING SYSTEM, NO OTHER ACTIVITY CAN TAKE PLACE. :L$************************************************************************L* ' .USE @VOLBLD.S$PROC L$*================================ AB ===================================L( .PROCAB (ASSIGN BREAKPOINTS) =2, ( RUN ID = INT("@$$RI"), ADDRESS(ES) = (STRING)  .OVLY OVLY = 0C, CODE = 1,  PARMS = (&RUN ID,&ADDRESS) .SYN $$RI = "&RUN ID"  .EOP " *=====F!============================ ASB =================================F2 .PROCASB (ASSIGN SIMULATED BREAKPOINT) =2, 2 ON (A,C,P,R,S,X) = NAME(P),  FROM = STRING,THRU = *STRING,  COUNT = STRING(1), DISPLAY = *STRING " .OVLYOVLY = >C,CODE = >C,"PARMS = ("&ON",   "&FROM",   "&THRU",   "&DISPLAY",  "&COUNT")  .EOP " N%*============================= ABP ====================================== N0 .PROC ABP (ASSIGN BREAKPOINT - PASCAL) =2, 0 RUN ID = INT("@$$RI"),  ROUTINE NAME = STRING, ( WHERE (ENTRY/RETURN/BOTH) = STRING (@ .OVLY OVLY=0C,CODE=01A,PARMS=(&RUN ID,&ROUTINE NAME,&WHERE)@ .SYN $$RI = "&RUN ID"  .EOP " L$*============================= CFIMG ===================================L  .PROC CFIMG(CREATE IMAGE FILE) =2, "PATHNAME=ACNM,!FILE PATHNAME" ALLOCATION=INT!ALLOCATION   .OVLYOVLY=>1B,LUNO=0,,PARMS=(39,@&PATHNAME,,,&ALLOCATION,0,N) ,  .EOP " L$*================================= DA ==================================L. .PROCDA(DELETE ALIAS FROM PATHNAME) =2,.8PATHNAME=ACNM !PATHNAME CONTAINING ALIAS TO BE DEL8 .OVLYOVLY=>1B,LUNO=0, PARMS=(36,@&PATHNAME)   .EOP " L$*================================== DB =================================L( .PROCDB (DELETE BREAKPOINTS) =2, ( RUN ID = INT("@$$RI"), ADDRESS(ES) = *(STRING)   .OVLY OVLY = 0C, CODE = 2,  PARMS = (&RUN ID,&ADDRESS) .SYN $$RI = "&RUN ID"  .EOP " N%*============================= DBP =======================================N ..PROC DBP (DELETE BREAKPOINT - PASCAL) =2, . RUN ID = INT("@$$RI"),  ROUTINE NAME = STRING, ( WHERE (ENTRY/RETURN/BOTH) = *STRING(@ .OVLY OVLY=0C,CODE=01B,PARMS=(&RUN ID,&ROUTINE NAME,&WHERE)@ .SYN $$RI = "&RUN ID"   .EOP " L$*============================= DCOPY ===================================L0 .PROCDCOPY (DISK COPY/RESTORE UTILITY) =20 .BID TASK=>7   .EOP " L$*================================== DD =================================L$ .PROC DD(DELETE DIRECTORY) =2,$PATHNAME=ACNM, LISTING ACCESS NAME=*ACNM, ARE YOU SURE?=YESNO  .IF &ARE YOU SURE?,GE,Y .BID  TASK=>29,CODE=>29, PARMS=(>29,@&PATHNAME, @&LISTING ACCESS NAME)   .ENDIF !  .EOP " 8*================================ DF =================8 ==================  .PROC DF(DELETE FILE) =2,   PATHNAME(S)=(ACNM) .SYN $DF="(&PATHNAME(S))"  .LOOP" . .SPLIT LIST="@$DF", FIRST=$DF1, REST=$DF .& .OVLY OVLY=>1B,PARMS=(8,@@$DF1) & .WHILE "@$DF", NE, "$DF"   .REPEAT!  .SYN $DF1=""   .EOP " L$*================================== DO =================================L" .PROC DO(DELETE OVERLAY) =2,"*PROGRAM FILE OR LUNO=STRING("@$$PF"), *2OVERLAY NAME OR ID=STRING !OVERLAY NAME OR ID 2 .OVLYOVLY=>1B,LUNO=0,(PARMS=(17,"@&PROGRAM FILE OR LUNO", ( "&OVERLAY NAME OR ID")( .SYN $$PF="&PROGRAM FILE OR LUNO"(  .EOP " L$*================================== DP =================================L$ .PROC DP(DELETE PROCEDURE) =2,$*PROGRAM FILE OR LUNO=STRING("@$$PF"), *@>PROCEDURE NAME OR ID=STRING !PROCEDURE NAME OR INSTALL ID > .OVLYOVLY=>1B,LUNO=0,(PARMS=(16,"@&PROGRAM FILE OR LUNO", ( "&PROCEDURE NAME OR ID") ( .SYN $$PF="&PROGRAM FILE OR LUNO"(  .EOP " L$*================================ DPB ==================================L8 .PROCDPB (DELETE AND PROCEED FROM BREAKPOINT) =2, 8 RUN ID = STRING ("@$$RI"),(DESTINATION ADDRESS(ES) = *(STRING) (  .OVLY OVLY = 0C, CODE = 3, ,PARMS = (&RUN ID, &DESTINATION ADDRESS) , .SYN $$RI = "&RUN ID"  .EOP " N%*============================== DPBP =====================================NB .PROC DPBP (DELETE AND PROCEED FROM BREAKPOINT - PASCAL) =2, B  RUN ID = STRING ("@$$RI"),  $ DESTINATION ROUTINE = *STRING, $( WHERE (ENTRY/RETURN/BOTH) = *STRING( . OVLY OVLY = 0C, CODE = 01C,  2 PARMS = (&RUN ID,&DESTINATION ROUTINE,&WHERE) 2 .SYN $$RI = "&RUN ID"  .EOP " L$*============================== DSB ====================================L2 .PROCDSB (DELETE SIMULATED BREAKPOINTS) =2,2"BREAKPOINT NUMBERS = *(STRING)"" .OVLYOVLY = >C,CODE = >E,""PARMS = (&BREAKPOINT NUMBERS) "  .EOP " L$*================================== DT =================================L  .PROC DT(DELETE TASK) =2,  *PROGRAM FILE OR LUNO=STRING("@$$PF"), *6TASK NAME OR ID=STRING !TASK NAME OR INSTALLED ID 6 .OVLYOVLY=>1B,LUNO=0,(PARMS=(15,"@&PROGRAM FILE OR LUNO", ( "&TASK NAME OR ID")( .SYN $$PF="&PROGRAM FILE OR LUNO"(  .EOP " L$*============================= FB ======================================LN@ .PROC FB (FIND BYTE) =2, RUN ID = STRING (@$$RI), VALUE(S) = (STRING), STARTING ADDRESS = *STRING,   ENDING ADDRESS = *STRING" .OVLY OVLY = >C, CODE = >16," PARMS = (&RUN ID,"&VALUE",,"&STARTING ADDRESS", "&ENDING ADDRESS") , .SYN $$RI = "&RUN ID"   .EOP " L$*============================= FW ======================================L .PROC FW (FIND WORD) =2, RUN ID = STRING(@$$RI),  VALUE(S) = (STRING), STARTING ADDRESS = *STRING,   ENDING ADDRESS = *STRING" .OVLY OVLY = >C, CODE = >17," PARMS = (&RUN ID,"&VALUE",,"&STARTING ADDRESS", "&ENDING ADDRESS") , .SYN $$RI = "&RUN ID"  .EOP " L$*================================= HT ==================================L .PROC HT (HALT TASK) =2,RUN ID = INT(@$$RI)   .OVLY OVLY = 0C, CODE = 7,  PARMS = (&RUN ID)  .SYN $$RI = "&RUN ID"  .EOP " L$*============================== IBMUTL =================================L, .PROCIBMUTL(IBM CONVERSION UTILITY)=2, AL LUNO=015, ACCESS NAME=ME   .BID TASK=041RL LUNO=015   .EOP " L$*================================= INV =================================L* .PROC INV (INITIALIZE NEW VOLUME) =2,* UNIT NAME = NAME, VOLUME NAME=NAME,* NUMBER OF VCATALOG ENTRIES=INT(342), *" BAD TRACK ACCESS NAME=*ACNM, ", DEFAULT PHYSICAL RECORD SIZE=*INT(864),,* HARDWARE INTERLEAVING FACTOR=*INT(1),*& USED AS SYSTEM DISK?=YESNO(YES), & LOADER ACCESS NAME * .SYN $$INV$LD = "&LOADER ACCESS NAME"* .IF @$$MO,NE,0  .IF "&USED  AS SYSTEM DISK",GE,Y INV$ .ENDIF  .ENDIF !  .IF @$$INV$LD,EQ,$$INV$LD .OVLY OVLY=>1B,LUNO=0, * PARMS=(45,@&UNIT NAME,@&VOLUME NAME, *" &NUMBER OF VCATALOG ENTRIES, "* @&BAD TRACK ACCESS NAME,&DEFAULT PHY, ** &HARDWARE INT,&USED AS SYSTEM DISK, ) *  .ELSE"  .OVLY OVLY=>1B,LUNO=0,(PARMS=(45,@&UNIT NAME,@&VOLUME NAME,( &NUMBER OF VCATALOG ENTRIES, *@&BAD TRACK ACCESS NAME,&DEFAULT PHY, *2&HARDWARE INT,&USED AS SYSTEM DISK,@@$$INV$LD) 2  .ENDIF ! " .SYN  $$VN = "&VOLUME NAME" " .SYN $$INV$LD = ""   .EOP " L$*================================ INV$ =================================L .PROC INV$, LOADER ACCESS NAME=*ACNM   .SYN $$INV$LD = "&LOADER"   .EOP " &*================================= I&(O ==================================($ .PROC IO(INSTALL OVERLAY) =2, $*PROGRAM FILE OR LUNO=STRING("@$$PF"), * OVERLAY NAME=*NAME, OVERLAY ID=*INT,,OBJECT PATHNAME OR LUNO=STRING("@$$OB"), , RELOCATABLE?=YESNO(NO),  DELETE PROTECT?=YESNO(NO),0ASSOCIATED TASK NAME OR ID=*STRING("@$IT$T") 0 .OVLYOVLY=>1B,LUNO=0,(PARMS=(22,"@&PROGRAM FILE OR LUNO", ( &OVERLAY NAME,&OVERLAY ID,."@&OBJECT PATHNAME OR LUNO",&RELOCATABLE, .2&DELETE PROTECT,"&ASSOCIATED TASK NAME OR ID") 2( .SYN $$PF="&PROGRAM FILE OR LUNO"(, .SYN $$OB="&OBJECT PATHNAME OR LUNO" ,0 .SYN $IT$T="&ASSOCIATED TASK NAME OR ID" 0  .EOP " L$*================================== IP =================================L& .PROC IP(INSTALL PROCEDURE) =2, &PROGRAM FILE O R LUNO=STRING("@$$PF"),  PROCEDURE NAME=*NAME,  PROCEDURE ID=*INT,,OBJECT PATHNAME OR LUNO=STRING("@$$OB"), , MEMORY RESIDENT?=YESNO(NO),   DELETE PROTECT?=YESNO(NO), EXECUTE PROTECT?=YESNO(NO),   WRITE PROTECT?=YESNO(NO), (WRITABLE CONTROL STORAGE?=YESNO(NO) ( .OVLYOVLY=>1B,LUNO=0,(PARMS=(23,"@&PROGRAM FILE OR LUNO", ("&PROCEDURE NAME,&PROCEDURE ID,"2"@&OBJECT PATHNAME OR LUNO",&MEMORY RESIDENT, 2&&DELETE PROTECT,&EXECUTE PROTECT, &.&WRITE PROTECT,&WRITABLE CONTROL STORAGE) .( .SYN $$PF="&PROGRAM FILE OR LUNO"(, .SYN $$OB="&OBJECT PATHNAME OR LUNO" ,  .EOP " L$*================================= ISO =================================L, .PROCISO(INSTALL SYSTEM OVERLAY) =2, , OVERLAY FILE PATHNAME=ACNM,  OBJECT PATHNAME=ACNM("@$$OB"), OVERLAY NUMBER=INT .BID TASK=>30, $PARMS=(@&OVERLAY FILE PATHNAME, $ @&OBJECT PATHNAME,  &OVERLAY NUMBER) $ .SYN  $$OB="&OBJECT PATHNAME" $  .EOP " L$*================================== IT =================================L  .PROC IT(INSTALL TASK) =2, :PROGRAM FILE OR LUNO=STRING("@$$PF"), TASK NAME=*NAME,:>TASK ID=*INT(0), OBJECT PATHNAME OR LUNO=STRING("@$$OB"), >6PRIORITY=*INT(4), DEFAULT TASK FLAGS?=*YESNO(YES),66ATTACHED PROCEDURES?=*YESNO(NO), 1ST PROCEDURE ID,62P1 FROM TASKS PROGRAM FILE, 2ND PROCEDURE ID, 2:P2 FROM TASKS PROGRAM FILE, PRIVILEGED?, SYSTEM TASK?,:8MEMORY RESIDENT?, REPLICATABLE?, DELETE PROTECTED?, 8,EXECUTE PROTECTED?, OVERFLOW CHECKING?, , WRITABLE CONTROL STORAGE? * '@ .IF @$$MO, NE, 0 & .IF "&DEFAULT TASK FLAGS?", LT, Y&IT$$!  .ELSE" " .SYN $IT$P1="N,N,N,N,Y,N,N,N""  .ENDIF ! ( .IF"&ATTACHED PROCEDURES", GE, Y (IT$ !  .ELSE" " .SYN $IT$P1="@$IT$P1,0,0,Y,Y""  .ENDIF !  .ELSE"  .SYN $IT$P1 = N  .IF "&PRIVILEGED?", NE, ""  " .SYN $IT$P1 = "&PRIVILEGED?" "  .ENDIF ! * '  .IF "&SYSTEM TASK?", NE, "" * .SYN $IT$P1 = "@$IT$P1,&SYSTEM TASK?"*  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '$ .IF "&MEMORY RESIDENT?", NE, ""$. .SYN $IT$P1 = "@$IT$P1,&MEMORY RESIDENT?".  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '& .IF "&DELETE PROTECTED?", NE, "" &0 .SYN $IT$P1 = "@$IT$P1,&DELETE PROTECTED?" 0  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '" .IF "&REPLICATABLE?", NE, "" ", .SYN $IT$P1 = "@$IT$P1,&REPLICATABLE?" ,  .ELSE"  .SYN $IT$P1 = "@$IT$P1,Y"  .ENDIF ! * '& .IF "&EXECUTE PROTECTED?", NE, ""&0 .SYN $IT$P1 = "@$IT$P1,&EXECUTE PROTECTED?"0  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '& .IF "&OVERFLOW CHECKING?", NE, ""&0 .SYN $IT$P1 = "@$IT$P1,&OVERFLOW CHECKING?"0  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '. .IF "&WRITABLE CONTROL STORAGE?", NE, "" .8 .SYN $IT$P1 = "@$IT$P1,&WRITABLE CONTROL STORAGE?" 8  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '$ .IF "&1ST PROCEDURE ID", NE, ""$. .SYN $IT$P1 = "@$IT$P1,&1ST PROCEDURE ID".  .ELSE"  .SYN $IT$P1 = "@$IT$P1,0"@  .ENDIF ! * '$ .IF "&2ND PROCEDURE ID", NE, ""$. .SYN $IT$P1 = "@$IT$P1,&2ND PROCEDURE ID".  .ELSE"  .SYN $IT$P1 = "@$IT$P1,0"  .ENDIF ! * '. .IF "&P1 FROM TASKS PROGRAM FILE", NE, "".8 .SYN $IT$P1 = "@$IT$P1,&P1 FROM TASKS PROGRAM FILE" 8  .ELSE"  .SYN $IT$P1 = "@$IT$P1,Y"  .ENDIF ! * '. .IF "&P2 FROM TASKS PROGRAM FILE", NE, "".8 .SYN $IT$P1 = "@$IT$P1,&P2 FROM TASKS PROGRAM FILE" 8  .ELSE"  .SYN $IT$P1 = "@$IT$P1,Y"  .ENDIF !  .ENDIF ! * ' .IF "&PRIORITY" , GT, 4.CM MSG=(PRIORITY MUST BE 0, 1, 2, 3, OR 4).  .ELSE" B .IF "@&PROGRAM FILE OR LUNO", EQ, "@&OBJECT PATHNAME OR LUNO"BBCM MSG=(SAME FILE SPECIFIED FOR BOTH PROGRAM AND OBJECT FILE) B  .ELSE" " .OVLY OVLY=>1B,PARMS=(24,"@&PR" OGRAM FILE OR LUNO",  &TASK NAME,&TASK ID,*"@&OBJECT PATHNAME OR LUNO",&PRIORITY,* @$IT$P1)  .ENDIF !  .ENDIF ! * .SYN $$PF="&PROGRAM FILE OR LUNO", *$$$OB="&OBJECT PATHNAME OR LUNO",$"$IT$T="&TASK NAME", $IT$P1="" "  .EOP " L$*================================= IRT =================================L, .PROCIRT(INSTALL REAL-TIME TASK) =2, ,:PROGRAM FILE OR LUNO=STRING("@$$PF"), TASK NAME=*NAME,:>TASK ID=*INT(0), OBJECT PATHNAME OR LUNO=STRING("@$$OB"), >2PRIORITY=INT, DEFAULT TASK FLAGS?=*YESNO(YES), 26ATTACHED PROCEDURES?=*YESNO(NO), 1ST PROCEDURE ID,62P1 FROM TASKS PROGRAM FILE, 2ND PROCEDURE ID, 2:P2 FROM TASKS PROGRAM FILE, PRIVILEGED?, SYSTEM TASK?,:8MEMORY RESIDENT?, REPLICATABLE?, DELETE PROTECTED?, 8 EXECUTE PROTECTED?, OVERFLOW CHECKING?,  WRITABLE CONTROL STORAGE? * ' .IF @$$MO, NE, 0 & .IF "&DEFAULT TASK FLAGS?", LT, Y&IT$$!  .ELSE" " .SYN $IT$P1="N,N,N,N,Y,N,N,N""  .ENDIF ! ( .IF"&ATTACHED PROCEDURES", GE, Y (IT$ !  .ELSE" " .SYN $IT$P1="@$IT$P1,0,0,Y,Y""  .ENDIF !  .ELSE"  .SYN $IT$P1 = N  .IF "&PRIVILEGED?", NE, ""  " .SYN $IT$P1 = "&PRIVILEGED?" "  .ENDIF ! * '  .IF "&SYSTEM TASK?", NE, "" * .SYN $IT$P1 = "@$IT$P1,&SYSTEM TASK?"*  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '$ .IF "&MEMORY RESIDENT?", NE, ""$. .SYN $IT$P1 = "@$IT$P1,&MEMORY RESIDENT?".  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '& .IF "&DELETE PROTECTED?", NE, "" & .SYN $IT$P1 =" "@$IT$P1,&DELETE PROTECTED?" "  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '" .IF "&REPLICATABLE?", NE, "" ", .SYN $IT$P1 = "@$IT$P1,&REPLICATABLE?" ,  .ELSE"  .SYN $IT$P1 = "@$IT$P1,Y"  .ENDIF ! * '& .IF "&EXECUTE PROTECTED?", NE, ""&0 .SYN $IT$P1 = "@$IT$P1,&EXECUTE PROTECTED?"0  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '& .IF "&OVERFLOW CHECKING?", NE, ""&0 .SYN $IT$P1 = "@$IT$P1,&OVERFLOW CHECKING?"0  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '. .IF "&WRITABLE CONTROL STORAGE?", NE, "" .8 .SYN $IT$P1 = "@$IT$P1,&WRITABLE CONTROL STORAGE?" 8  .ELSE"  .SYN $IT$P1 = "@$IT$P1,N"  .ENDIF ! * '$ .IF "&1ST PROCEDURE ID", NE, ""$ .SYN $IT$P1 = "@$IT$P1, &1ST PROCEDURE ID"  .ELSE"  .SYN $IT$P1 = "@$IT$P1,0"  .ENDIF ! * '$ .IF "&2ND PROCEDURE ID", NE, ""$. .SYN $IT$P1 = "@$IT$P1,&2ND PROCEDURE ID".  .ELSE"  .SYN $IT$P1 = "@$IT$P1,0"  .ENDIF ! * '. .IF "&P1 FROM TASKS PROGRAM FILE", NE, "".8 .SYN $IT$P1 = "@$IT$P1,&P1 FROM TASKS PROGRAM FILE" 8  .ELSE"  .SYN $IT$P1 = "@$IT$P1,Y"  .ENDIF ! * '. .IF "&P2 FROM TASKS PROGRAM FILE", NE, "".8 .SYN $IT$P1 = "@$IT$P1,&P2 FROM TASKS PROGRAM FILE" 8  .ELSE"  .SYN $IT$P1 = "@$IT$P1,Y"  .ENDIF !  .ENDIF ! * 'B .IF "@&PROGRAM FILE OR LUNO", EQ, "@&OBJECT PATHNAME OR LUNO"BBCM MSG=(SAME FILE SPECIFIED FOR BOTH PROGRAM AND OBJECT FILE) B  .ELSE" " .EVAL $$PRIOR = 128+&PRIORITY" .OVLYOVLY=>1B(,PARMS=(24,"@&PROGRAM FILE OR LUNO", ( &TASK NAME,&TASK ID,*"@&OBJECT PATHNAME OR LUNO",@$$PRIOR, * @$IT$P1)  .ENDIF ! * .SYN $$PF="&PROGRAM FILE OR LUNO", *$$$OB="&OBJECT PATHNAME OR LUNO",$.$IT$T="&TASK NAME", $IT$P1="", $$PRIOR="" .  .EOP " L$*================================ IT$ ==================================L( .PROCIT$(ATTACH TASK PROCEDURES),( 1ST PROCEDURE ID=INT, ,P1 FROM TASKS PROGRAM FILE?=*YESNO(YES), , 2ND PROCEDURE ID=*INT(0), ,P2 FROM TASKS PROGRAM FILE?=*YESNO(YES) ,. .SYN $IT$P1="@$IT$P1,&1ST,&2ND,&P1,&P2".  .EOP " L$*================================ IT$$ =================================L$ .PROC IT$$(DEFINE TASK FLAGS), $ PRIVILEGED?=YESNO(NO),  SYSTEM TASK?=YESNO(NO), MEMORY RESIDENT?=YESNO(NO), REPLICATABLE?=YESNO(YES)," DELETE PROTECTED?=YESNO(NO), "" EXECUTE PROTECTED?=YESNO(NO),"" OVERFLOW CHECKING?=YESNO(NO),"( WRITABLE CONTROL STORAGE?=YESNO(NO)(, .SYN $IT$P1 = "&P,&S,&M,&D,&R,&E,&O,&W",  .EOP " L$*================================= KBT =================================L* .PROCKBT (KILL BACKGROUND TASK) =2 * .OVLYOVLY=>23, CODE=3  .EOP " L$*================================== KT =================================L .PROC KT(KILL TASK) =2, , RUN ID=INT("@$$RI"), !RUN TIME TASK ID ,2STATION NUMBER=INT("@$$ST") !ANY RUN TIME ID 2 .OVLYOVLY=>1B,LUNO=0,&PARMS=(25,&RUN ID,&STATION NUMBER)& .SYN $$RI = ""   .EOP " L$*================================= LB ==================================L  .PROC  LB (LIST BREAKPOINTS) =2,  RUN ID = INT("@$$RI")   .OVLY OVLY = 0C, CODE = 6,  PARMS = (&RUN ID)  .SYN $$RI = "&RUN ID"  .EOP " N%*=============================== LBP =====================================N. .PROC LBP (LIST BREAKPOINTS - PASCAL) =2,. RUN ID = INT("@$$RI")4 .OVLYOVLY = 0C, CODE = 01E, PARMS = (&RUN ID) 4 .SYN $$RI = "&RUN ID"  .EOP " N%*=============================== LDC ==================================== N,.PROC LDC(LIST DEVICE CONFIGURATION) =2,, LISTING ACCESS NAME=*ACNM 0.BIDTASK=>4E,PARMS=(@&LISTING ACCESS NAME)0.EOP"L$*================================ LLR ==================================L( .PROCLLR(LIST LOGICAL RECORD) =2,( PATHNAME=ACNM(@$LLR$P),  STARTING RECORD=INT(0), NUMB ER OF RECORDS=*INT,  LISTING ACCESS NAME=*ACNM & .IF"&NUMBER OF RECORDS", NE, ""&&.EVAL $LLR$ = &NUMBER OF RECORDS &*.EVAL $LLR$ = @$LLR$+&STARTING RECORD* .EVAL $LLR$ = @$LLR$-1   .ELSE" .SYN$LLR$ = " "   .ENDIF !  .BID  TASK=>2B, LUNO=0,  PARMS=(1,@&PATHNAME, &STARTING RECORD,@$LLR$, @&LISTING ACCESS NAME) .SYN $LLR$ = "" .SYN  $LLR$P="&PATHNAME"  .EOP " L$*================================== LM =================================L  .PROC LM (LIST MEMORY) =2,  RUN ID = STRING(@$$RI),  STARTING ADDRESS = STRING, NUMBER OF BYTES = *STRING, LISTING ACCESS NAME= *ACNM$ .IF "&NUMBER OF BYTES", EQ, ""$.SYN$LM$ = " "  .ELSE" $.SYN $LM$ = "&STARTING ADDRESS"$ .SYN$LM$  = "@$LM$+&NUMBER OF BYTES"  .SYN$LM$ = "@$LM$-1"  .ENDIF !  .OVLY OVLY=0C, CODE = 0,2PARMS = ("&RUN ID","&STARTING ADDRESS",@$LM$, 2 "@&LISTING ACCESS NAME")  .SYN $LM$ = ""  .SYN $$RI = "&RUN ID"  .EOP " N%*================================= LPS ===================================N& .PROC LPS (LIST PASCAL STACK) =2,& RUN ID = STRING(@$$RI), ROUTINE NAME = *STRING," STARTING OFFSET = STRING(0), "  NUMBER OF BYTES = *STRING,   LISTING ACCESS NAME= *ACNM  < .OVLY OVLY=0C, CODE=019, PARMS=(&RUN ID,&ROUTINE NAME, <> &STARTING OFFSET,&NUMBER OF BYTES,@&LISTING ACCESS NAME) >( .SYN $LM$ = "", $$RI = "&RUN ID" (  .EOP " L$*================================= LSM =================================L .PROCLSM (L IST SYSTEM MEMORY) =2, OVERLAY ID = STRING, STARTING ADDRESS = STRING, NUMBER OF BYTES = *STRING, LISTING ACCESS NAME= *ACNM$ .IF "&NUMBER OF BYTES", EQ, ""$.SYN$LM$ = " "  .ELSE" $.SYN $LM$ = "&STARTING ADDRESS"$*.SYN$LM$ = "@$LM$+&NUMBER OF BYTES" *.SYN$LM$ = "@$LM$-1"  .ENDIF !  .OVLY OVLY=0C, CODE = 0,4PARMS = (&OVERLAY ID,"&STARTING ADDRESS",@$LM$, 4  "@&LISTING ACCESS NAME",S)   .SYN $LM$ = ""   .EOP " L$*================================= LSB =================================L0 .PROCLSB (LIST SIMULATED BREAKPOINTS) =2 0" .OVLYOVLY = >C,CODE = >F "  .EOP " L$*=================================== MFN ===============================L& .PROC MFN(MODIFY FILE NAME) =2, &OLD PATHNAME=ACNM, NEW PATHNAME=ACNM, REPLACE?=YESNO(NO) .OVLYOVLY=>1B,LUNO=0,,PARMS=(7,@&OLD PATHNAME,@&NEW PATHNAME, ,  &REPLACE?)   .EOP " L$*================================== MFP ================================L, .PROCMFP(MODIFY FILE PROTECTION) =2, ,PATHNAME=ACNM,$WRITE-DELETE PROTECT?=YESNO(NO),$ DELETE PROTECT?=YESNO(NO) . .OVLY OVLY = >1B, PARMS = (42,@&PATHNAME).& .IF&WRITE-DELETE PROTECT?,GE,Y &(.OVLY OVLY=>1B,PARMS=(40,@&PATHNAME)(  .ENDIF !  .IF &DELETE PROTECT?,GE,Y  (.OVLY OVLY=>1B,PARMS=(41,@&PATHNAME)(  .ENDIF !  .EOP " L$*================================= MIR =================================L0 .PROCMIR (MODIFY INTERNAL REGISTERS) =2, 0 RUN ID = INT("@$$RI")   .OVLY OVLY = >C, CODE = >A,  PARMS = (&RUN ID)  .SYN $$RI = "&RUN ID"   .EOP " L$*================================ MKL ==================================L( .PROCMKL(MODIFY KIF LOGGING) =2, ( KEY INDEX FILE=ACNM  .BID TASK=>42,LUNO=0, PARMS=(@&KEY INDEX FILE)  .EOP " L$*================================ MLP ==================================L, .PROCMLP (MODIFY LUNO PROTECTION) =2,,*PROTECT OR UNPROTECT? (P/U) = STRING, * LUNO = INT("@$$LU") > .BID TASK = 3, PARMS = ("&PROTECT OR UNPROTECT","&LUNO")>  .EOP " L$*================================ MM ===================================L" .PROC MM (MODIFY MEMORY) =2," RUN ID = STRING("@$$RI"), ADDRESS = STRING  .OVLY OVLY = 0C, CODE = 4, "PARMS = ("&RUN ID","&ADDRESS")" .SYN $$RI = " &RUN ID"  .EOP " L$*============================= MOE =====================================L* .PROCMOE (MODIFY OVERLAY ENTRY) =2,*(PROGRAM FILE PATHNAME=ACNM("@$$PF"),( MODULE NAME OR ID=STRING,  NAME,  RELOCATABLE,DELETE PROTECTED* .SYN $$PF = "&PROGRAM FILE PATHNAME"*> .OVLYOVLY=>25, LUNO=0, PARMS=(@&PROGRAM FILE PATHNAME, >0&MODULE NAME OR ID,2,(&NAME),(&RELOCATABLE), 0 (&DELETE PROTECTED))  .EOP " L$*============================= MPE =====================================L, .PROCMPE (MODIFY PROCEDURE ENTRY) =2,,(PROGRAM FILE PATHNAME=ACNM("@$$PF"),( MODULE NAME OR ID=STRING,  NAME,  MEMORY RESIDENT, DELETE PROTECTED,  EXECUTE PROTECTED,WRITE PROTECTED,WCS  .SYN $$PF = "&PROGRAM FILE PATHNAME"> .OVLYOVLY=>25, LUNO=0, PARMS=(@&PROGRAM FILE PATHNAME, >4&MODULE NAME OR ID,1,(&NAME),(&MEMORY RESIDENT), 4.(&DELETE PROTECTED),(&EXECUTE PROTECTED), . (&WRITE PROTECTED),(&WCS))  .EOP " L$*================================ MPI ==================================L*.PROC MPI(MODIFY PROGRAM IMAGE) =2, * PROGRAM FILE=ACNM("@$$PF"),  &OUTPUT ACCESS NAME=*ACNM("@$$OP"),&"MODULE TYPE=STRING("@$SPI$T"),"(MODULE NAME OR ID=STRING("@$SPI$I"),( ADDRESS=INT("@$SPI$A"),  VERIFICATION DATA=*(INT), DATA=(INT), CHECKSUM = *INT 0 .BID TASK=>1C, PARMS=(43,@&PROGRAM FILE, 0 @&OUTPUT ACCESS NAME, 2"&MODULE TYPE","&MODULE NAME OR ID",&ADDRESS, 24"(&VERIFICATION DATA)", "(&DATA)", "&CHECKSUM") 4 .SYN  $$PF="&PROGRAM FILE"& .SYN  $$OP="&OUTPUT ACCESS NAME"&" .SYN  $SPI$T="&MODULE TYPE" "( .SYN $SPI$I="&MODULE NAME OR ID" ( .SYN  $SPI$A="&ADDRESS"   .EOP " L$*============================= MRF =====================================L, .PROCMRF(MODIFY RELATIVE TO FILE) =2,, PATHNAME=ACNM("@$SRF$P"), &OUTPUT ACCESS NAME=*ACNM("@$$OP"),&"RECORD NUMBER=INT("@$SRF$R"), " FIRST WORD=INT("@$SRF$F"), VERIFICATION DATA=*(INT),  DATA=(INT),CHECKSUM=*INT .BID TASK=>21,LUNO=0, PARMS=(42,@&PATHNAME,   &RECORD NUMBER,&FIRST WORD, &  "(&DATA)","(&VERIFICATION DATA)", &&  @&OUTPUT ACCESS NAME,"&CHECKSUM") & .SYN  $SRF$P="&PATHNAME"$ .SYN  $SRF$R="&RECORD NUMBER" $  .SYN  $SRF$F="&FIRST WORD" & .SYN  $$OP="&OUTPUT ACCESS NAME"& .EOP "L$*============================= MTE =====================================L( .PROCMTE (MODIFY TASK ENTRY) =2, ((PROGRAM FILE PATHNAME=ACNM("@$$PF"),( MODULE NAME OR ID=STRING,  NAME,  REAL TIME,PRIORITY,  SYSTEM,  PRIVILEGED, MEMORY RESIDENT,REPLICATABLE,  DELETE PROTECTED,  EXECUTE PROTECTED,OVERFLOW, WCS, 1ST PROCEDURE ID,  P1 FROM TASKS PROGRAM FILE,   2ND PROCEDURE ID,  P2 FROM TASKS PROGRAM FILE* .SYN $$PF = "&PROGRAM FILE PATHNAME"* .SYN $MTE$MF="N" .IF "&SYSTEM", NE, "" .SYN $MTE$MF="Y"  .ENDIF !  .IF "&PRIVILEGED", NE, ""  .SYN $MTE$MF="Y"  .ENDIF ! & .IF "&MEMORY RESIDENT", NE, "" & .SYN $MTE$MF="Y"  .ENDIF ! .@" .IF "&REPLICATABLE", NE, """ .SYN $MTE$MF="Y"  .ENDIF ! & .IF "&DELETE PROTECTED", NE, ""& .SYN $MTE$MF="Y"  .ENDIF ! ( .IF "&EXECUTE PROTECTED", NE, "" ( .SYN $MTE$MF="Y"  .ENDIF !  .IF "&OVERFLOW", NE, "" .SYN $MTE$MF="Y"  .ENDIF !  .IF "&WCS", NE, ""  .SYN $MTE$MF="Y"  .ENDIF !  .SYN $MTE$AP="N" & .IF"&1ST PROCEDURE ID", NE, "" &.SYN $MTE$AP="Y"  .ENDIF ! & .IF"&2ND PROCEDURE ID", NE, "" &.SYN $MTE$AP="Y"  .ENDIF ! 0 .IF"&P1 FROM TASKS PROGRAM FILE", NE, "" 0.SYN $MTE$AP="Y"  .ENDIF ! 0 .IF"&P2 FROM TASKS PROGRAM FILE", NE, "" 0.SYN $MTE$AP="Y"  .ENDIF ! @ .OVLYOVLY=>25, LUNO=0, PARMS=("@&PROGRAM FILE PATHNAME", @"&MODU6LE NAME OR ID",0,(&NAME),(&REAL TIME),(&PRIORITY),62"@$MTE$MF","@$MTE$AP",(&SYSTEM),(&PRIVILEGED), 2<(&MEMORY RESIDENT),(&REPLICATABLE),(&DELETE PROTECTED), <@(&EXECUTE PROTECTED),(&OVERFLOW),(&WCS),(&1ST PROCEDURE ID),@6(&P1 FROM TASKS PROGRAM FILE),(&2ND PROCEDURE ID),6"(&P2 FROM TASKS PROGRAM FILE))" .SYN $MTE$MF="" .SYN $MTE$AP=""  .EOP " L$*============================= MVI =====================================L. .PROCMVI (MODIFY VOLUME INFORMATION)=2,.$ CONTROL ACCESS NAME = ACNM(ME) $6 .BID TASK = >31, PARMS = (@&CONTROL ACCESS NAME) 6  .EOP " L$*============================= MWR =====================================L0 .PROCMWR (MODIFY WORKSPACE REGISTERS) =2,0 RUN ID = INT("@$$RI"), REGISTER NUMBER = INT(0) .OVLYOVLY = >C, CODE = >14,(PARMS = (&RUN ID, ®ISTER NUMBER) ( .SYN $$RI = "&RUN ID"   .EOP " L$*================================== PB =================================L. .PROCPB (PROCEED FROM BREAKPOINT) =2,. RUN ID = INT("@$$RI"),(DESTINATION ADDRESS(ES) = *(STRING) (" .OVLY OVLY = >C, CODE = >13,",PARMS = ("&RUN ID",&DESTINATION ADDRESS), .SYN $$RI = "&RUN ID"   .EOP " N%*================================= PBP ================================== N6 .PROC PBP (PROCEED FROM BREAKPOINT - PASCAL) =2, 6 RUN ID = INT("@$$RI"), $ DESTINATION ROUTINE = *STRING, $( WHERE (ENTRY/RETURN/BOTH) = *STRING(" .OVLY OVLY = >C, CODE = >1D, "4 PARMS = ("&RUN ID",&DESTINATION ROUTINE,&WHERE) 4 .SYN $$RI = "&RUN ID"   .EOP " *========= B======================== QD ==================================B$ .PROC QD (QUIT DEBUG MODE) =2,$ KILL TASK? = YESNO(YES) $ .OVLYOVLY = >C,CODE = >10, $ PARMS = (&KILL TASK?) 0 .SYN $XD$D = "", $XD$F = "",$XD$S = ""0  .EOP " L$*================================= RAL =================================L. .PROCRAL(RELEASE ALL LOGICAL UNITS) =2,. ARE YOU SURE? = YESNO   .IF &ARE YOU SURE?,GE,"Y"  6 .BID TASK=>2E,LUNO=0,PARMS=(46,&ARE YOU SURE?) 6  .ENDIF !  .EOP " L$*================================== RD =================================L& .PROC RD(RESTORE DIRECTORY) =2, &*SEQUENTIAL ACCESS NAME=ACNM("@$BD$S"),* DIRECTORY PATHNAME=ACNM, LISTING ACCESS NAME=*ACNM, OPTIONS=*(STRING)("ADD") .BID  TASK=>27,CODE=>27,@(PARMS=(>27,@&SEQUENTIAL ACCESS NAME,( @&DIRECTORY PATHNAME,  @&LISTING ACCESS NAME,"(&OPTIONS)") . .SYN $BD$S = "&SEQUENTIAL ACCESS NAME" .* .SYN $BD$D = "&DIRECTORY PATHNAME" *  .EOP " L$*================================= RST =================================L* .PROCRST (RESUME SIMULATED TASK) =2*" .OVLYOVLY = >C,CODE = >11"  .EOP " L$*================================== RT =================================L  .PROC RT (RESUME TASK) =2,  RUN ID = INT("@$$RI")   .OVLY OVLY = 0C, CODE = 8,  PARMS = (&RUN ID)  .SYN $$RI = "&RUN ID"  .EOP " L$*================================= SAD =================================L( .PROCSAD(SHOW ABSOLUTE DISK) =2, (.DISK UNIT=NAME,  !DISK DRIVE DEVICE NAME .TRACK=INT,!S TARTING TRACK ADDRESS *SECTOR=INT,  !STARTING SECTOR ADDRESS *. FIRST WORD=INT(0), !STARTING BYTE ADDRESS . NUMBER OF WORDS=*INT, &OUTPUT ACCESS NAME=*ACNM("@$$OP") && .IF "&NUMBER OF WORDS", NE, "" && .EVAL $SAD$ = 2*&NUMBER OF WORDS&& .EVAL $SAD$ = @$SAD$+&FIRST WORD& .EVAL$SAD$ = @$SAD$-2  .ELSE"  .SYN $SAD$ = " "  .ENDIF !  .BID TASK=>18,LUNO=0, PARMS=(2,@&DISK UNIT, &&TRACK,&SECTOR,&FIRST WORD,@$SAD$,& @&OUTPUT ACCESS NAME)  .SYN $SAD$ = ""& .SYN  $$OP="&OUTPUT ACCESS NAME"&  .EOP " L$*=============================== SADU ==================================L. .PROCSADU(SHOW ALLOCABLE DISK UNIT) =2,."DISK UNIT=NAME,  !DISK UNIT ""ADU NUMBER=INT,  !ADU NUMBER" SECTOR OFFSET=INT, ! SECTOR DISPLACEMENT 0 FIRST WORD=INT(0), !STARTING WORD ADDRESS 0 NUMBER OF WORDS=*INT, $OUTPUT ACCESS NAME=*ACNM(@$$OP) $& .IF "&NUMBER OF WORDS", NE, "" && .EVAL $SAD$ = 2*&NUMBER OF WORDS&& .EVAL $SAD$ = @$SAD$+&FIRST WORD& .EVAL$SAD$ = @$SAD$-2  .ELSE"  .SYN $SAD$ = " "  .ENDIF !  .BID TASK=>18,LUNO=0, PARMS=(3,@&DISK UNIT, 2&ADU NUMBER,&SECTOR OFFSET,&FIRST WORD,@$SAD$, 2 @&OUTPUT ACCESS NAME)  .SYN $SAD$ = ""& .SYN  $$OP="&OUTPUT ACCESS NAME"&  .EOP " L$*================================== SCC ================================L( .PROCSCC (SHOW COUNTRY CODE) =2, ( OUTPUT ACCESS NAME = *ACNM   .BID TASK=>50, $PARMS = (0,@&OUTPUT ACCESS NAME)$  .EOP "  *=======================4=========== SIR ================================4. .PROCSIR (SHOW INTERNAL REGISTERS) =2, . RUN ID = INT("@$$RI")   .OVLY OVLY = 0C, CODE = 5,  PARMS = (&RUN ID)  .SYN $$RI = "&RUN ID"  .EOP " L$*================================= SP ==================================L  .PROC SP (SHOW PANEL) =2,   RUN ID = INT ("@$$RI"),  MEMORY ADDRESS = *STRING  .OVLY OVLY = 0C, CODE = 9, *PARMS = ("&RUN ID","&MEMORY ADDRESS") * .SYN $$RI = "&RUN ID"  .EOP " L$*================================= SPI =================================L( .PROCSPI(SHOW PROGRAM IMAGE) =2, ( PROGRAM FILE=ACNM("@$$PF"),  &OUTPUT ACCESS NAME=*ACNM("@$$OP"),&"MODULE TYPE=STRING("@$SPI$T"),"(MODULE NAME OR ID=STRING("@$SPI$I"),( ADDRESS=INT("@$SPI$A"), LENGTH=INT .BID TASK=>1C,  PARMS=(44,@&PROGRAM FILE,  @&OUTPUT ACCESS NAME, :"&MODULE TYPE","&MODULE NAME OR ID",&ADDRESS,&LENGTH) :  .SYN  $$PF="&PROGRAM FILE" & .SYN  $$OP="&OUTPUT ACCESS NAME"&" .SYN  $SPI$T="&MODULE TYPE" "( .SYN $SPI$I="&MODULE NAME OR ID" ( .SYN  $SPI$A="&ADDRESS"   .EOP " N%*================================= SPS ===================================N& .PROC SPS (SHOW PASCAL STACK) =2,& RUN ID = INT ("@$$RI") 6 .OVLYOVLY = 0C, CODE = 018, PARMS = ("&RUN ID") 6 .SYN $$RI = "&RUN ID"  .EOP " L$*================================= SRF =================================L* .PROCSRF(SHOW RELATIVE TO FILE) =2,* PATHNAME=ACNM("@$SRF$P"), "RECORD NUMBER=INT("@$SRF$R"), " FIRST WO  RD=INT("@$SRF$F"), NUMBER OF WORDS=*INT, &OUTPUT ACCESS NAME=*ACNM("@$$OP") &$ .IF "&NUMBER OF WORDS", NE, ""$& .EVAL $SRF$ = 2*&NUMBER OF WORDS&& .EVAL $SRF$ = @$SRF$+&FIRST WORD& .EVAL$SRF$ = @$SRF$-2  .ELSE"  .SYN $SRF$ = " "  .ENDIF !  .BID TASK=>21,LUNO=0, PARMS=(41,@&PATHNAME, &&RECORD NUMBER,&FIRST WORD,@$SRF$,& @&OUTPUT ACCESS NAME)  .SYN $SRF$ = "" .SYN  $SRF$P="&PATHNAME"$ .SYN  $SRF$R="&RECORD NUMBER" $  .SYN  $SRF$F="&FIRST WORD" & .SYN  $$OP="&OUTPUT ACCESS NAME"&  .EOP " L$*================================= ST ==================================L" .PROC ST (SIMULATE TASK) =2," FOR = *STRING("@$XD$F"),FROM = *STRING, TO = *STRING .SYN $XD$F = "&FOR" @$ .OVLYOVLY = >C,CODE = >12, $$PARMS = ("&FOR", "&FROM", "&TO")$  .EOP " L$*================================= SWR =================================L. .PROCSWR (SHOW WORKSPACE REGISTERS) =2,. RUN ID = INT("@$$RI") " .OVLYOVLY = >C,CODE = >B," PARMS = (&RUN ID)  .SYN $$RI = "&RUN ID"   .EOP " L$*============================= TXCM ====================================L. .PROCTXCM (COMPRESS DISKETTE FILE) =2, . TX990 ACCESS NAME = STRING4 .BID TASK=>3C,PARMS=("@&TX990 ACCESS NAME",94) 4  .EOP " L$*============================= TXDF ====================================L, .PROCTXDF (DELETE DISKETTE FILE) =2, , TX990 ACCESS NAME = STRING4 .BID TASK=>3C,PARMS=("@&TX990 ACCESS NAME",92) 4  .EOP "  *=========================2==== TXCP ====================================2< .PROCTXCP (CHANGE DISKETTE FILE PROTECT CODE) =2, <,TX990 ACCESS NAME = STRING, ! PATHNAME ,, CODE (U,D,W) = NAME (U) ! PROTECT CODE, TXCP$CODE="&CODE" .IF@$TX$I2, NE, 0.BID TASK=>3C,, PARMS=("@&TX990 ACCESS NAME","@$TX$I2") , .ENDIF  .SYN $TX$I2 = ""  .SYN $TX$I = ""  .EOP " L$*============================= TXCP$ ===================================L$ .PROCTXCP$,! TXCP AUXILIARY$, CODE (U,D,W) = *NAME (U)! PROTECT CODE, .SYN $TX$I = "&CODE"  .SYN $TX$I2 = 0 .IF @$TX$I, EQ, "U"* .SYN $TX$I2 = "96" ! UNPROTECT OPCODE* .EXIT   .ENDIF !  .IF @$TX$I, EQ, "W". .SYN $TX$I2 = "97" ! WRITE PROTECT OPCODE . .EXIT   .ENDIF !  .IF @$TX$I, EQ, "D"0 .SYN $TX$I2 = "98" ! DELETE PROTECT OPCODE 0 .EXIT   .ENDIF ! ,MSG T="INVALID CODE, USE ONLY U,D,OR W.", .IF@$$MO, NE, 0&TXCP$  ! INVALID INPUT, REPROMPT & .ENDIF  .EOP " L$*============================= TXFD ====================================L& .PROC TXFD (FORMAT DISKETTE) =2,&&DISKETTE = ACNM,  ! DISKETTE NAME&0 VOLUME NAME = *STRING, ! DISKETTE VOL NAME06IDENTIFICATION NAME = STRING ! DISKETTE ID FIELD6 .BID TASK=>3B, <PARMS=(,@&DISKETTE,@&VOLUME NAME,@&IDENTIFICATION NAME) <  .EOP " L$*============================= TXSF ====================================L& .PROC TXSF (SET SYSTEM FILE) =2,&0 TX990 ACCESS NAME = STRING !DISKETTE NAME 0 .BID TASK=>06, "PARMS=("@&TX990 ACCESS NAME") "  .EOP " N%*============================= TXXLE =====================================N@ .PROC TXXLE (EXECUTE LINK EDITOR PRODUCING TX PROG FILE)=2,@, CONTROL ACCESS NAME = ACNM("@$XLE$C"), ,2 LINKED OUTPUT ACCESS NAME = ACNM("@$XLE$OB"), 2, LISTING ACCESS NAME = ACNM("@$XLE$L"), , PRINT WIDTH = INT (80) < .QBID TASK=>85, LUNO=>10, PARMS=(@&CONTROL ACCESS NAME, <8 @&LINKED OUTPUT ACCESS NAME, @&LISTING ACCESS NAME,8 4096,&PRINT WIDTH) 2 .SYN $XLE$OB = "&LINKED OUTPUT ACCESS NAME", 2($$OB = "&LINKED OUTPUT ACCESS NAME",($$XLE$L = "&LISTING ACCESS NAME",$$$XLE$C = "&CONTROL ACCESS NAME" $  .EOP " L$*================================== XANAL ==============================L0 .PROCXANAL (ANALYZE DX10 CRASH FILE) =2, 0$CONTROL ACCESS NAME = ACNM(ME), $@$LISTING ACCESS NAME = *ACNM(ME),$(ANALYZE RUNNING SYSTEM? = YESNO(NO),("DISK DEVICE NAME = NAME(DS01),"$CRASH-FILE NAME = NAME(S$CRASH) $6 .BID TASK = >FE, PARMS = (@&CONTROL ACCESS NAME, 6 @&LISTING ACCESS NAME,  &ANALYZE RUNNING SYSTEM,  @&DISK DEVICE NAME,  @&CRASH-FILE NAME)  .EOP " L$*============================= XCU =====================================L8 .PROCXCU (EXECUTE 2.2 TO 3.0 DISK CONVERSION) =2, 8,DISK TO BE CONVERTED = NAME (DS02), ! , LISTING DEVICE = ACNM &AL L=>10,A=@&DISK TO BE CONVERTED & AL L=>11,A=@&LISTING DEVICE  .BID TASK = >2F  RL L=>10 RL L=>11  .EOP " L$*================================= XD ==================================L( .PROCXD (INITIATE DEBUG MODE) =2,(RUN ID = *INT("@ $XD$D"), 0SYMBOL TABLE OBJECT FILE = *ACNM("@$XD$S"), 0&990/12 OBJECT CODE ? = YESNO(YES) & .IF@$$MO, EQ, 0,MSG T="COMMAND IS INVALID IN BATCH MODE", .EXIT  .ENDIF  .SYN  $XD$D = "&RUN ID"  .IF "&RUN ID", EQ, ""  XHT .SYN $XD$D = @$$RI  .ENDIF ! " .OVLYOVLY = >C,CODE = >D,"0PARMS = (@$XD$D, @&SYMBOL TABLE OBJECT FILE, 0 @&990/12 OBJECT CODE ?)0 .SYN $XD$S = "&SYMBOL TABLE OBJECT FILE" 0 .SYN $$RI = @$XD$D   .EOP " L$*=================================== XHT ===============================L* .PROCXHT(EXECUTE AND HALT TASK) =2,**PROGRAM FILE OR LUNO=STRING("@$$PF"), *>TASK NAME OR ID=STRING("@$IT$T"), !TASK NAME OR INSTALLED >&PARM1=INT(0),  !PARAMETER WORD 1 &PARM2=INT(0),  !PARAMETER WORD 2 :STATION ID=STRING(ME) !DEFAULT CONVERTS TO USER'S LOC: .OVLYOVLY=>1B,LUNO=0,:PARMS=(18,"@&PROGRAM FILE OR LUNO","&TASK NAME OR ID",:*  "&STATION ID",&PARM1,&PARM2,N,Y,$$RI) *( .SYN $$PF="&PROGRAM FILE OR LUNO"($ .SYN  $IT$T="&TASK NAME OR ID"$  .EOP " L$*================================== XLE ================================L, .PROCXLE (EXECUTE LINKAGE EDITOR) =2,,*CONTROL ACCESS NAME = ACNM("@$XLE$C"),*2LINKED OUTPUT ACCESS NAME = *ACNM("@$XLE$OB"), 2,LISTING ACCESS NAME = *ACNM("@$XLE$L"), , PRINT WIDTH = INT(80) B .IF "@&CONTROL ACCESS NAME",EQ,"@&LINKED OUTPUT ACCESS NAME" B>MSG TEXT="ERROR: CONTROL NAME SAME AS LINKED OUTPUT NAME" > .EXIT   .ENDIF ! < .IF "@&CONTROL ACCESS NAME",EQ,"@&LISTING ACCESS NAME" <MS6G TEXT="ERROR: CONTROL NAME SAME AS LISTING NAME" 6 .EXIT   .ENDIF ! " .QBID TASK = >86, LUNO = >10,"$ PARMS = (@&CONTROL ACCESS NAME,$ @&LINKED OUTPUT ACCESS NAME,  @&LISTING ACCESS NAME, 4096,&PRINT WIDTH)2 .SYN $XLE$OB = "&LINKED OUTPUT ACCESS NAME" 2. .SYN $$OB = "&LINKED OUTPUT ACCESS NAME" .* .SYN $XLE$L = "&LISTING ACCESS NAME" ** .SYN $XLE$C = "&CONTROL ACCESS NAME" *  .EOP " L$*================================== XMA ================================L. .PROCXMA (EXECUTE MACRO ASSEMBLER) =2,.&SOURCE ACCESS NAME = ACNM("@$$S"),&*OBJECT ACCESS NAME = *ACNM("@$XMA$O"),**LISTING ACCESS NAME = ACNM("@$XMA$L"),*8ERROR ACCESS NAME = *ACNM(@$XMA$E), !QUOTES ARE GONE8$OPTIONS = *(STRING)("@$XMA$OP"),$ MACRO LIBRARY PATHNAME = *ACNM("@$$ML"), PRINT WIDTH = INT(80),,PAGE LENGTH = INT(60),XREF,SYMT,NOLIST, ,.TUNLIST,MUNLIST,BUNLIST,DUNLIST,RXREF,FUNL .* .SYN $XMA$L = "&LISTING ACCESS NAME"** .SYN $XMA$O = "&OBJECT ACCESS NAME" *  .SYN $XMA$OP = "&OPTIONS"  , .SYN $$ML = "&MACRO LIBRARY PATHNAME" ,& .SYN $$S = "&SOURCE ACCESS NAME"&* .SYN $XMA$E = " &ERROR ACCESS NAME" *$ .IF "@@$XMA$L", EQ, "@@$XMA$E"$.SYN$XMA$E = " "  .ENDIF ! @ XMA2 @&OP,1=&XREF,2=&SYMT,3=&NOLIST,4=&BUNLIST,5=&TUNLIST, @. 6=&DUNLIST,7=&MUNLIST,8=&FUNL,9=&RXREF,A .$ .QBID TASK = >88, LUNO = >10, $8PARMS = (@&SOURCE ACCESS NAME, @&OBJECT ACCESS NAME,8&  @&LISTING ACCESS NAME, @@$XMA$E, &*  "@$XMA$OPL",@&MACRO LIBRARY PATHNAME, *(  @$XMA$MC,&PRINT WIDTH,&PAGE LENGTH) (  .IF"@ $XMA$E", EQ, " ".SYN$XMA$E = ""   .ENDIF !  .SYN $XMA$OPL="",$XMA$MC=""  .EOP " N%*================================== XMA2 =================================N  .PROC" > XMA2,XREF,SYMT,NOLIST,BUNLIST,TUNLIST,DUNLIST,MUNLIST,12,>" FUNL,RXREF,1,2,3,4,5,6,7,8,9 "& .SYN $XMA$OPL = "L",$XMA$MC = " "& .IF "&12",NE,"" .SYN "$XMA$MC" = "12"  .ENDIF !  .IF "&XREF,&1",NE,","( .SYN "$XMA$OPL" = "@$XMA$OPL,XREF" (  .ENDIF !  .IF "&SYMT,&2" ,NE,"," ( .SYN "$XMA$OPL" = "@$XMA$OPL,SYMT" (  .ENDIF !  .IF "&NOLIST,&3",NE,","* .SYN "$XMA$OPL" = "@$XMA$OPL,NOLIST" *  .ENDIF !  .IF "&BUNLIST,&4",NE,"," * .SYN "$XMA$OPL" = "@$XMA$OPL,BUNLST" *  .ENDIF !  .IF "&TUNLIST,&5",NE,","  .SYN "$XMA$OPL" = "@$XMA$OPL,TUNLST"   .ENDIF !  .IF "&DUNLIST,&6" ,NE,","* .SYN "$XMA$OPL" = "@$XMA$OPL,DUNLST" *  .ENDIF !  .IF "&MUNLIST,&7",NE,"," * .SYN "$XMA$OPL" = "@$XMA$OPL,MUNLST" *  .ENDIF !  .IF "&FUNL,&8",NE,","( .SYN "$XMA$OPL" = "@$XMA$OPL,FUNL" (  .ENDIF !  .IF "&RXREF,&9",NE,"," ( .SYN "$XMA$OPL" = "@$XMA$OPL,RXREF"(  .ENDIF !  .EOP " L$*=================================== XTS ===============================L2 .PROCXTS (EXECUTE TASK AND SUSPEND SCI) =2,2*PROGRAM FILE OR LUNO=STRING("@$$PF"), *>TASK NAME OR ID=STRING("@$IT$T"), !TASK NAME OR INSTALLED >&PARM1=INT(0),  !PARAMETER WORD 1 &&PARM2=INT(0),  !PARAMETER WORD 2 &:STATION ID=STRING(ME) !DEFAULT CONVERTS TO USER'S LOC: .OVLYOVLY=>1B,LUNO=0,PARM6S=(18,"@&PROGRAM FILE OR LUNO","&TASK NAME OR ID",6"  "&STATION ID",&PARM1,&PARM2, "  Y,N,$$RI)( .SYN $$PF="&PROGRAM FILE OR LUNO"($ .SYN  $IT$T="&TASK NAME OR ID"$  .EOP " L$*=======================================================================L* '* ' CM R=ME,M="PROC2 COMPLETE"* '* 'SDT & EBATCH% (  .ENDIF !  .IF "&RXREF,&9",NE,"," ( .SYN "$XMA$OPL" = "@$XMA$OPL,RXREF"(  .ENDIF !  .EOP " L$*=================================== XTS ===============================L2 .PROCXTS (EXECUTE TASK AND SUSPEND SCI) =2,2*PROGRAM FILE OR LUNO=STRING("@$$PF"), *>TASK NAME OR ID=STRING("@$IT$T"), !TASK NAME OR INSTALLED >&PARM1=INT(0),  !PARAMETER WORD 1 &&PARM2=INT(0),  !PARAMETER WORD 2 &STATIO@PBATCH LS=YES PP************************************************************************ PP* BATCH STREAM TO INSTALL THE SYSTEM PROCS AT ACCESS PP* LEVEL FOUR(4). THE SYNONYM "VOLBLD" MUST BE DEFINED PP* AS THE VOLUME NAME WHERE THE PROCS ARE TO BE INSTALLED. PP* PP* CAUTION: IF THIS BATCH STREAM IS EXECUTED AGAINST A PP* RUNNING SYSTEM, NO OTHER ACTIVITY CAN TAKE PLACE. PP************************************************************************ PP* P.USE @VOLBLD.S$PRO>C >P*================================== AUI ================================ PP.PROC AUI (ASSIGN USER ID) =4, PP USER DESCRIPTION = (STRING), PP NEW USER ID = NAME, PP NEW PASSCODE = *STRING, PP USER PRIVILEGE CODE (0..7) = INT(0) PP .OVLY OVLY=>23, CODE=6, PP PARMS = (&NEW USER ID, PP "&NEW PASSCODE", P$ &USER PRIVILEGE$, CODE, ,P "", ! OUTPUT ACNM PP "&USER DESCRIPTION", PP "","","","","","","") PP.EOP PP*================================= DUI ================================= PP.PROC DUI (DELETE USER ID) =4, PP USER ID = NAME PP .OVLY OVLY=>23, CODE=7, PP PARMS = (&USER ID, P6 "", ! PASSCODE 6 P "", ! USER PRIVILEGE CODE PP "", ! OUTPUT ACNM PP "", ! USER DESCRIPTION PP "","","","","","","") PP.EOP PP*================================ IDT ================================== PP.PROC IDT (INITIALIZE DATE AND TIME) =4, PP YEAR = INT, PP MONTH = STRING, PH DAY = INT, H P HOUR = INT, PP MINUTE = INT PP .SYN $IDT$ = "&MONTH" PP IDT$1 M="&MONTH" ! CONVERT MONTH NAME TO NUMBER PP .BID TASK = >19, PP PARMS = (20,&YEAR,@$IDT$,&DAY,&HOUR,&MINUTE) PP .SYN $IDT$ = "" PP.EOP PP*================================= IDT$1 =============================== PP.PROC IDT$1, P J M = STRING JP .IF &M, GE, S PP .SYN $IDT$ = 9 ! SEPTEMBER PP .EXIT PP .ENDIF PP .IF &M, GE, O PP .SYN $IDT$ = 10 ! OCTOBER PP .EXIT PP .ENDIF PP .IF &M, GE, N P .SYN $IDT$ 8= 11 ! NOVEMBER 8P .EXIT PP .ENDIF PP .IF &M, GE, MAY PP .SYN $IDT$ = 5 ! MAY PP .EXIT PP .ENDIF PP .IF &M, GE, M PP .SYN $IDT$ = 3 ! MARCH PP .EXIT P* .ENDIF *& &P .IF &M, GE, JUN PP .SYN $IDT$ = 6 ! JUNE PP .EXIT PP .ENDIF PP .IF &M, GE, JU PP .SYN $IDT$ = 7 ! JULY PP .EXIT PP .ENDIF PP .IF &M, GE, J P< .SYN $IDT$ = 1 ! JANUARY < P .EXIT PP .ENDIF PP .IF &M, GE, F PP .SYN $IDT$ = 2 ! FEBRUARY PP .EXIT PP .ENDIF PP .IF &M, GE, D PP .SYN $IDT$ = 12 ! DECEMBER PP .EXIT PN .ENDIF N P .IF &M, GE, AU PP .SYN $IDT$ = 8 ! AUGUST PP .EXIT PP .ENDIF PP .IF &M, GE, A PP .SYN $IDT$ = 4 ! APRIL PP .EXIT PP .ENDIF PP.EOP PP*================================ IS =================================== P * D DP.PROC IS (INITIALIZE THE SYSTEM) =4 PP* PP*===== CREATE SYSTEM FILES ============================================= PP* PP* //// PP* PP*===== INITIALIZE THE DATE AND TIME ==================================== PP* PP IDT P .IF @$$CC,NE,0 2 2P .EXIT PP .ENDIF PP* PP*===== INITIALIZE THE SYSTEM LOG ======================================= PP* PP ISL PP* PP*===== INITIALIZE THE TERMINALS ======================================== PP* P0 MTS TERMINAL NAME = ST01, 0 P NEW STATUS = "", ! NO CHANGE PP NEW MODE = "", ! NO CHANGE PP LOGIN REQUIRED = "", ! NO CHANGE PP USER PRIVILEGE CODE = "", ! NO CHANGE PP DEFAULT MODE = "" ! NO CHANGE PP* PP MTS TERMINAL NAME = ST02, PP NEW STATUS = "", ! NO CHANGE PP NEW MODE = "VDT", PB LOGIN REQUIRED = "YES", B P USER PRIVILEGE CODE = "", ! NO CHANGE PP DEFAULT MODE = "" ! NO CHANGE PP* PP*===== INSTALL DISK VOLUMES ============================================ PP* PP* //// PP* PP*===== PROTECT CERTAIN GLOBAL LUNOS =================================== PP* REVISION: 11/11/77 CHANGE TO .BID PRIMITIVES PP* P T@P .BID TASK=3,PARMS=(P, 01 ) PP .BID TASK=3,PARMS=(P, 02 ) PP .BID TASK=3,PARMS=(P, 03 ) PP .BID TASK=3,PARMS=(P, 04 ) PP .BID TASK=3,PARMS=(P, 09 ) PP .BID TASK=3,PARMS=(P, 0A ) PP .BID TASK=3,PARMS=(P, 0B ) PP .BID TASK=3,PARMS=(P, 0D ) PP .BID TASK=3,PARMS=(P, 0E ) PP .BID TASK=3,PARMS=(P, 0F ) P .BID TASK=3>,PARMS=(P, 010) >P* PP*===== EXECUTE SYSTEM TASKS ============================================ PP* PP* //// PP* PP*===== FINISH ========================================================== PP* PP MSG TEXT = "WARMSTART PROCEDURE COMPLETE" PP* P$.EOP $, ,P*================================ ISL ================================== PP .PROC ISL(INITIALIZE SYSTEM LOG) =4, PP ATTENTION DEVICE=ACNM, PP LOGGING DEVICE=ACNM, PP FILE PROCESSING?=YESNO(NO), PP SYSTEM LOG PROCESSOR TASK ID, PP USER LOG PROCESSOR TASK ID PP .IF "&SYSTEM LOG", EQ, "" PP .SYN $ISL$P="0" P6 .ELSE 6 P .SYN $ISL$P="&SYSTEM LOG" PP .ENDIF PP .IF "&USER LOG", EQ, "" PP .SYN $ISL$P="@$ISL$P,0" PP .ELSE PP .SYN $ISL$P="@$ISL$P,&USER LOG" PP .ENDIF PP .IF "&FILE PROCESSING?", GE, Y PP ISL$ PH .ENDIF H P .BID TASK=>1E,CODE=0,PARMS=("&ATTENTION DEVICE", PP "&LOGGING DEVICE", PP @$ISL$P) PP .SYN $ISL$P="" PP .EOP PP*================================ ISL$ ================================= PP.PROC ISL$, PP SYSTEM LOG PROCESSOR TASK ID=INT(0), PP USER LOG PROCESSOR TASK ID=INT(0) PP .SYN $ISL$P="&SYSTEM LOG,&USER LOG" P J .EOP JP*================================= LUI ================================= PP.PROC LUI (LIST USER IDS) =4, PP OUTPUT ACCESS NAME = *ACNM PP .OVLY OVLY=>23, CODE=9, PP PARMS = ("", ! USER ID PP "", ! PASSCODE PP "", ! PRIV CODE PP "@&OUTPUT ACCESS NAME", PP "", ! USER DESCRIPTION P "",8"","","","","","") 8P.EOP PP*================================== MTS ================================ PP.PROC MTS (MODIFY TERMINAL STATUS) =4, PP TERMINAL NAME = NAME(ST@$$ST), ! DEFAULT=SELF PP NEW STATUS (ON/OFF) = *NAME, ! DEFAULT=SAME PP NEW MODE (TTY/VDT) = *NAME, ! DEFAULT=SAME PP LOGIN REQUIRED? = *YESNO, ! DEFAULT=SAME PP USER PRIVILEGE CODE = *INT, ! DEFAULT=SAME PP DEFAULT MODE (TTY/VDT) = *NAME ! DEFAULT=SAME P* .OVLY OVLY=>23, CODE=1, *& &P PARMS=("@&TERMINAL NAME", PP "&NEW STATUS", PP "&NEW MODE", PP "&LOGIN REQUIRED", PP "&USER PRIVILEGE CODE", PP "&DEFAULT MODE") PP.EOP PP*================================== MUI ================================ PP.PROC MUI (MODIFY USER ID) =4, P< USER ID = NAME (@$$UI), < P NEW PASSCODE = *STRING, PP NEW USER PRIVILEGE CODE = *INT PP .OVLY OVLY=>23, CODE=8, PP PARMS = ("&USER ID", PP "&NEW PASSCODE", PP "&NEW USER PRIVILEGE CODE", PP "", ! OUTPUT ACNM PP "", ! USER DESCRIPTION PP "","","","","","","") PN.EOP N P*======================================================================= PP* PP* PPCM R=ME,M="PROC4 COMPLETE" PP* PP* PPSDT PPEBATCH P PP "", ! USER DESCRIPTION P< "","","","","","","") <@BATCH LS=YES"L$************************************************************************L:* BATCH STREAM TO INSTALL THE SYSTEM PROCS AT ACCESS :<* LEVEL SIX(6). THE SYNONYM "VOLBLD" MUST BE DEFINED <@* AS THE VOLUME NAME WHERE THE PROCS ARE TO BE INSTALLED. @* '>* CAUTION: IF THIS BATCH STREAM IS EXECUTED AGAINST A >:* RUNNING SYSTEM, NO OTHER ACTIVITY CAN TAKE PLACE. :L$************************************************************************L* ' .USE @VOLBLD.S$PROC L$*============================= ALGS ====================================L8.PROC ALGS (ASSEMBLE AND LINK GENERATED SYSTEM) = 6,8$ TARGET DISK = *NAME("@$$DSC$"),$$ SYSTEM NAME = NAME("@$$SYS$"), $ D$DATA LISTING = ACNM,  BATCH LISTING = ACNM  .IF "&TARGET DISK", EQ, "" .SYN $$DSC$ = "DS01"  .ELSE % " .SYN $$DSC$ = "&TARGET DISK" " .ENDIF% .SYN $$SYS$ = "&SYSTEM NAME" $.SYN XMA$L = "@&D$DATA LISTING" $ .QBID TASK = >20, D PARMS=("@$$DSC$.S$SYSGEN.@$$SYS$.BATCHSTM", "@&BATCH LISTING") D.SYN XMA$L = "" .EOP&L$*============================= CKD =====================================L0.PROC  CKD(CHECK DISK FOR CONSISTENCY) =6,0 DISK UNIT = NAME," AUTO CORRECTION = YESNO (NO),"  LISTING ACCESS NAME = *ACNM 8 .BID TASK=>1A,PARMS=(&DISK UNIT, &AUTO CORRECTION, 8 @&LISTING ACCESS NAME) .EOP&L$*============================= CSF =====================================L*.PROC  CSF(CREATE SYSTEM FILES) =6, *  VOLUME NAME = ACNM(@$$VN),   MEMORY SIZE = INT(64K)  ! CHANGE $ 0CSF$I TO THE CORRECT WORDS/SECTOR IF NOT 144 0 .EVAL $CSF$I = 144 .SYN CSFV = "&VOLUME NAME" DF P=@CSFV.S$CRASH DF P=@CSFV.S$ROLLA:.OVLY OVLY=>1B,PARMS=(39,"@@CSFV.S$ROLLA",,,240,120,Y) : .EVAL $CSF$A ="&MEMORY SIZE"  .IF @$CSF$A,GT,1024  .EVAL $CSF$A = @$CSF$A/1024  .ENDIF% (.EVAL $CSF$A=@$CSF$A*1024/@$CSF$I+1 ($CFIMG P=@CSFV.S$CRASH, A=@$CSF$A$&.SYN CSFV = "",$CSF$A="",$CSF$I=""&.EOP&L$*============================= IGS =====================================L*.PROC IGS(INSTALL GENERATED SYSTEM)=6,*$ TARGET DISK =*NAME("@$$DSC$"), $" SYSTEM NAME =*NAME("@$$SYS$")"".SYN $$DSC$ = "@&TARGET DISK" " .IF "@$$DSC$",EQ,$$DSC$  .SYN $$DSC$="DS01"  .ENDIF% ".SYN $$SYS$ = "@&SYSTEM NAME" " .BID TASK=>44, PARMS = ($I,&TAR,&SYSTEM,@$$DSC$.S$IMAGES) $ .SYN $$DSC$="",$$SYS$="".EOP&L$*================================= MAD =================================L* .PROCMAD(MODIFY ABSOLUTE DISK) =6, * DISK UNIT=NAME, !DISK UNIT &OUTPUT ACCESS NAME=*ACNM("@$$OP"),&"TRACK=INT, !STARTING TRACK AD "*SECTOR=INT,  !STARTING SECTOR ADRESS *4FIRST WORD=INT, !STARTING WORD ADDRESS TO LOAD4: VERIFICATION DATA=*(INT),  !LIST OF VERIFICATION DATA:&DATA=(INT) !LIST OF DATA TO LOAD & .BID TASK=>18,LUNO=0,4PARMS=(4,@&DISK UNIT,&TRACK,&SECTOR,&FIRST WORD, 4:"(&DATA)","(&VERIFICATION DATA)",@&OUTPUT ACCESS NAME):( .SYN $$OP = "&OUTPUT ACCESS NAME"(  .EOP " L$*================================ MADU =================================L& .PROCMADU(MODIFY ALLOCABLE DISK U& NIT) =6, DISK UNIT=NAME, !DISK UNIT &OUTPUT ACCESS NAME=*ACNM("@$$OP"),&"ADU NUMBER=INT,  !ADU NUMBER", SECTOR OFFSET=INT, !SECTOR DISPLACEMENT ,.FIRST WORD=INT,  !STARTING WORD ADDRESS .6VERIFICATION DATA=*(INT), !VERIFICATION DATA LIST 6&DATA=(INT) !LIST OF DATA TO LOAD & .BID TASK=>18,LUNO=0,4PARMS=(5,@&DISK UNIT,&ADU NUMBER,&SECTOR OFFSET, 42&FIRST WORD,"(&DATA)","(&VERIFICATION DATA)", 2 @&OUTPUT ACCESS NAME)& .SYN  $$OP="&OUTPUT ACCESS NAME"&  .EOP " L$*============================= MDS ==================================== L* .PROCMDS (MODIFY DEVICE STATE) =6, * DEVICE NAME = ACNM,  DEVICE STATE= *STRING,CODE8,RAW  .BID TASK = >4F, <PARM = ("&DEVICE NAME","&DEVICE STATE","&CODE8","&RAW") < .EOP "L$*============================= MCC ==================================== L.*  .PROCMCC (MODIFY COUNTRY CODE) =6, .*  COUNTRY NAME = STRING,"*  OUTPUT ACCESS NAME = *ACNM"*  .BID TASK = >50, 8* PARMS = (1,@&OUTPUT ACCESS NAME,@&COUNTRY NAME) 8*  .EOP "L$*============================= MSM =====================================L* .PROC MSM (MODIFY SYSTEM MEMORY) =6, ** OVERLAY ID = STRING, ADDRESS = STRING*  .OVLY OVLY = 0C, CODE = 4, (PARMS = ("&OVERLAY ID","&ADDRESS",S)(  .EOP " L$*============================= PGS =====================================L,.PROC PGS (PATCH GENERATED SYSTEM) = 6, ,$ TARGET DISK = *NAME("@$$DSC$"),$$ SYSTEM NAME = NAME("@$$SYS$"), $ BATCH LISTING = ACNM  .IF "&TARGET DISK", EQ, ""  .SYN $$DSC$ = "DS01"  .ELSE % " .SYN $$DSC$ = "&TARGET DISK" " .ENDIF% .SYN $$SYS$ = "&SYSTEM NAME"  .QBID TASK = >20, D PARMS=("@$$DSC$.S$SYSGEN.@$$SYS$.PATCHFIL", "@&BATCH LISTING") D.EOP&N%*============================= RCD =======================================N".PROC  RCD(RECOVER DISK) =6, "UNIT NAME = NAME .IF "&UNIT NAME" , EQ, DS01  D MSG T="**** DS01 NOT ALLOWED; SECONDARY DISK MUST BE USED ****" D .EXIT ! .ENDIF! &.BID TASK=>53,PARMS=(@&UNIT NAME) &.EOP&L$*============================= RCRU ====================================L:.PROC RCRU(READ CONTENTS OF SPECIFIED CRU ADDRESS)=6, :6 CRU ADDRESS = INT,  OUTPUT ACCESS NAME = *ACNM 6F! .BID TASK=>4D,CODE=0,PARMS=(&CRU ADDRESS,,,@&OUTPUT ACCESS NAME) F.EOP&L$*============================= TGS =====================================L(.PROC TGS(TEST GENERATED SYSTEM)=6, ($ TARGET DISK =*NAME("@$$DSC$"), $" SYSTEM NAME =*NAME("@$$SYS$")"".SYN $$DSC$ = "@&TARGET DISK" " .IF @$$DSC$,EQ,$$DSC$  .SYN $$DSC$=DS01  .ENDIF% ".SYN $$SYS$ = "@&SYSTEM NAME" "<.BID TASK=>44, PARMS = (T,&TAR,&SYSTEM,@$$DSC$.S$IMAGES) <.EOP&L$*============================= WCRU ====================================L8.PROC WCRU(WRITE VALUE TO SPECIFIED CRU ADDRESS)=6, 8@ CRU ADDRESS=INT,NUMBER OF BITS=INT,VALUE TO BE WRITTEN=INT @> .BID TASK=>4D,CODE=1,PARMS=(&CRU ADDRESS,&NUMBER,&VALUE) >.EOP&L$*============================= XGEN ====================================L* .PROCXGEN (EXECUTE AUTO SYSGEN) =6 * .BID TASK=>33. MSGTEXT="**** GEN990 TERMINATED ****".  .EOP " L$*============================= XPS =====================================L4 .PROC XPS (EXECUTE PATCH SYNONYM PROCESSOR)=6, 4:LINK = ACNM, INPUT = ACNM, OUTPUT = ACNM, ERROR = ACNM:. .SYN UNIT4 = "@&LINK", UNIT5 = "@&INPUT".> .SYN UNIT6 = "@&OUTPUT", UNIT7 = "@&ERROR", UNIT8 = DUMY> .BID TASK = >E D .SYN UNIT4 = "", UNIT5 = "", UNIT6 = "", UNIT7 = "",UNIT8 = "" D  .EOP " L$*=======================================================================L* '* ' CM R=ME,M="PROC6 COMPLETE"* '* 'SDT & EBATCH% <.EOP&L$*============================= WCRU ====================================L8.PROC WCRU(WRITE VALUE TO SPECIFIED CRU ADDRESS)=6, 8  CRU ADDRESS=INT,NUMBER OF BIT eS$OBJECTSCI990 `eS$STOP `P ttܷS$BIDT `P(tڽW$$A3I `P. t1t&W$RTCA `P:I>tܥtܕW$SETS `P|,ItOtEW$IASC `PdWI jtt  S$$ADS `P(&ftڽ W$IDIV `PdI jtt W$STOP `PaEPtt S$IADD `P. t1t& S$ISUB " S$$GRB `P(9&ftڽS$IASC `P 1KtNt6W$SCOM `P.I t1t&S$WSP2 `P:<ttS$$LUP `Pa#>ttW$SPLT `P.I t1t&S$DSPL `P=+Nt!tS$SHOW `PLRt|tnS$IO `PRZ/tt۔tnS$WSP4 `Patt S$OVLY `Pd jtt !W$GTCA `P(ftڽ"S$$RES  S$$COP `P(>ftڽ W$CLOS `PaBItt%S$CLOS `P(ftڽ%S$SETS `PgdthtU&S$TCA$ `P mX*tt#W$IMUL `P( Iftڽ)S$NEW `Pvtt)W$PARM `P(YIftڽ+S$SCOM `P|tOtE+W$SCPY `P(Iftڽ3S$DSP$ `P6tt8W$NEW `PJI>tܥtܕ9S$$ARB `P( &ftڽ8W$PTCA `Pv*IttS$PARM `PGt,tBW$$A4I `PaIttCW$STAT `PaIttDS$PTCA `P(O'ftڽCW$INT `PQPttFS$INT `P ~titSGS$SCPY `Pa>ttHS$SPLT `P>tܥtܕIS$WSP1 `PL rttHW$ISUB `P((IftڽKS$IMUL `P.\ t1t&HW$WRIT `Pa[IttNS$OPEN `P(%ftڽOS$GTCA `P('ftڽNS$WSP3 `P ttPW$BIDT `PP>tܥtܕQS$SNCT `P &t܏t܁SS$BID `PtڷtڭTS$QBID `P Xt@t2SS$WSP5 `PttWW$IADD `Pd$I jtt XS$RTCA `P(D'ftڽXW$OPEN `P8I>tܥtܕZS$WRIT `P(^ftڽ[W$WEOL `PaCItt\S$IDIV `P. t1t&]S$MAPS `P tt^S$WEOL `P(Nftڽ`S$KEY `P & tt۲dS$IT$ `P tۭtۙeS$STAT `P%htܲtܫR#00016S$STAT M0010$DATA 0000A0000B04DDBC06DB0006B1306BC02AB00027F215F S$ST0001RR(BCC50BC02AB0000BCC50B0380S0000B0000T0004B020AT000CB0460C0000B00007F1BEF S$ST0002RB00007FEC7F S$ST0003N!X000CCODE 0000X000EPARM1 0000W0000S$STAT0000X0000W$STAT00007F1FCFS$ST0004ND:  S$STAT  11/10/79 15:41:29  SDSMAC 3.3.0 79.312S$ST0005DBC0C3B1359B74D3B1057B0640B1607BC082B1301B7492BC0C3B13507F1A2F S$SP0005RR(B74D3B104EBA100B9814C0002B164BB05C1BC101BC082B1304BD192B0986BC1C27F178F S$SP0006RR(B0587B9814C0000B161BBC145B162BBC082B1304B6044B0501B06C1BD481BC1437F1A3F S$SP0007RR(B1335BD075B0981B0580B8040B1531BDD60C0001B0584B0600B1302BDD74B10FC7F1A4F S$SP0008RR(B6143B0605B06C5BD4C5B1024B9814C0002B160BB0605B150DB130CB0641BC2EA7F18DF S$SP0009RR(B0000B069BBC0C3B1318B74D3B1016B9814C0001B1601B0585BC082B1604B05847F1C3F S$SP0010RT@R(000C0S$BIDT M0028$DATA 0000A0000B04DDBC02AB0010B0410BC000B1655A00BEB0380A000CF RR(BC02DB0004B131FBC22AB001ABC218BC088BA0AAB0018BA212BC1C8BD038B09807F13BF S$BI0002RR(B1313BD618B1605BA200BD038B0980BA200B10F6B0206B0002B0608BD038BDDC07F193F S$BI0003RR(B0980BDDF8B0600B15FDB0606B15F8B10EAB75D7BCAADB0006B0002BDAADB00027F107F S$BI0004RR(B0002B02A3B0223B0008BC02AB0016B0410B0A85BCA84B0004BCA85B0006BDAAD7F183F S$BI0005RR(B0003B0009BC0ADB0004B130EB0203B000CBA0CABC072B1309BC02AB0014B04107F1A8F S$BI0006RR(B0301BC000B1611B05AAB000FB10F5BC02AB0012B0410BC000B1609B2FEAB00007F1A7F S$BI0007RR(BD02AB0001B1601B1004B0980B0220B0F00BC740BCAA0C00AAB000FS0000B0000T0004B020AF0008RR(T000CB0460C0000B2B00B0000B0000B0000B0000B0000B0300B0001B0000B00007F267F S$BI0009R& B0000B0000B0000B00007FBC1FS$BI0010&*50000P$BIDTW0000S$BIDT0000X001CS$GTCA000*" 0X001ES$PTCA00007F2BDFS$BI0011"N!X0020S$SETS0000X0022S$STAT0000X0024TCANCT0000X0026TCAPTR00007F161FS$BI0012N" X0000W$BIDT00007FC53F S$BI0013"D:  S$BIDT  11/10/79 15:33:15  SDSMAC 3.3.0 79.312S$BI0014D38BDDC07F193F S$BI0003RR(B0980BDDF8B0600B15FDB0606B15F8B10EAB75D7BCAADB0006B0002BDAADB00027F107F S$BI0004RR(B0002B02A3B0223B0008BC02AB0016B0410B0A85BCA84B0004BCA85B0006BDAAD7F183F S$BI0005RR(B0003B0009BC0ADB0004B130EB0203B000CBA0CABC072B1309BC02AB0014B04107F1A8F S$BI0006RR(B0301BC000B1611B05AAB000FB10F5BC02AB0012B0410BC000B1609B2FEAB00007F1A7F S$BI0007RR(BD02AB0001B1601B0380B0980B0220B0F00BC740B0380S0000B0000T0004B020A7F1E6F S$BI0008RR(T000CB0460C0000B2B00B0000B0000B0000B0000B0000B0300B0001B0000B00007F267F S$BI0009R& B0000B0000B0000B00007FBC1FS$BI0010&*50000P$BIDTW0000S$BIDT0000X001CS$GTCA000*R#0006AS$IADD M0014$DATA 0000A0000B04DDBC30DB05CCBC07CBC0BCBC0F17F1ACF S$IA0001RR(BC131BA0F2B1901B071DBA132B1703B0583B1901B071DB06A0C004EB0380B04DD7F186F S$IA0002RR(BC30DB05CCB04C3B04C4BC07CB1302BC0F1BC131BC0BCB60F2B1901B071DB61327F127F S$IA0003RR(B1803B0603B1901B071DB06A0C004EB0380BC0C3B1601BC104B02C0B09D0B0A3F7F192F S$IA0004RR(BE3C0B0B3FBC06DB0006B1302BCC43BC444B045BS0000B0000T0004B0460C00007F187F S$IA0005R0B0000T000CB0460C0024B0460C004E7F963FS$IA00060N!W0010S$$RES0000W0000S$IADD0000W0008S$ISUB0000X0000W$IADD00007F21EFS$IA0007N" X0008W$ISUB00007FC3BF S$IA0008"D:  S$IADD  11/10/79 15:35:00  SDSMAC 3.3.0 79.312S$IA0009DNDIF% :.OVLY OVLY=>24, CODE=4, PARMS=("@&LD", "", "@$SOS$") :.SYN $SOS$ = "" R#001B8S$IASC M0048$DATA 0000A0000B2D00A0002B04DDBC06DB0002BC1717F215F S$IA0001RR(BC191B04C2BC0EDB0006B70C3B04C4B0208B3030B0283B0001B1341B1506B02037F1C6F S$IA0002RR(B000AB06A0C0168B0208B2020BC1CAB0227B0002BC24AB0229B0023BDDC8B82477F190F S$IA0003RR(B12FDB06A0C0126B0228B0030B0288B0039B1202B0228B0007B06C8BD648B06097F1C6F S$IA0004RR(BC145B16F2BC186B16F0BC104B1504B1303BD660C0000B0609BC00AB0220B00237F1AEF S$IA0005RR(B6009B06C0BD06DB0006B1602BD640B100BB0281B20FFB1B0EB9040B1B0CB70407F17AF S$IA0006RR(B0981B6241B06C1BB040BD641BC049BC0ADB0004B06A0C0192B0380B071DB03807F18FF S$IA0007RR(B04DDBC06DB0002BC171BC191BC06DB0004BC0B1BC0D1B06A0C0168B06A0C01267F153F S$IA0008RR(BC104B1505B0546B0545B0586B1701B0585BC06DB0008B1302BCC47BC448BC0C57F187F S$IA0009RR(BC106BC2EAB0000B069BB0380B04DDBC06DB0002BC0ADB0004BC172BC192BC0B17F135F S$IA0010RT@R(BC0D1B06A0C0168BC204BC003B38C6B3982B3940BC144BC103BA106BA107BC2087F166F S$IA0011RR(B1505B0544B0545B0585B1701B0584BC0C4BC105BC2EAB0000B069BB0380BC0827F196F S$IA0012RR(B1602BC0C3B131BB04C7B04C8B020CB0020B0A17B0A18B1701B0587B0A15B17017F1A2F S$IA0013RR(B0588B0A16B1701B0585B8087B1B03B1A07B80C8B1A05B6203B1801B0607B61C27F1A9F S$IA0014RR(B0586B060CB15EAB045BB071DB045BB0204B0001BC082B1507B1306B0504B05427F1B6F S$IA0015RR(B0543B0583B1701B0582BC145B1507B1306B0504B0545B0546B0586B1701B05857F1F3F S$IA0016RR(B045BBC041B1603B0201C01B6BA049BD031B9480B1B06BDC80B0980B1306BDCB17F16DF S$IA0017RR(B0600B10FCB0200B901BBC740B045BB0000S0000B0000T0004B020AT000CB04607F1BFF S$IA0018RR(C0002B0000S000ES002ES0030B0000T0034B020AT000CB0460C00A6B0000T00407F1C1F S$IA0019R& B020AT000CB0460C00E47FB65FS$IA0020&*X000CS$$RES0000W0000S$IASC0000W0030S$IDI*& V0000W003CS$IMUL00007F1D3FS$IA0021&@X0000W$IASC0000X0030W$IDIV0000X003CW$IMUL00007F534F S$IA0022@D:  S$IASC  11/10/79 15:35:16  SDSMAC 3.3.0 79.312S$IA0023DB131BB04C7B04C8B020CB0020B0A17B0A18B1701B0587B0A15B17017F1A2F S$IA0013RR(B0588B0A16B1701B0585B8087B1B03B1A07B80C8B1A05B6203B1801B0607B61C27F1A9F S$IA0014RR(B0586B060CB15EAB045BB071DB045BB0204B0001BC082B1507B1306B0504B05427F1B6F S$IA0015RR(B0543B0583B1701B0582BC145B1507B1306B0504B0545B0546B0586B1701B05857F1F3F S$IA0016RR(B045BBC041B1603B0201C01B6BA049BD031B9480B1B06BDC80B0980B1306BDCB17F16DF S$IA0017RR(B0600B10FCB0200B901BBC740B045BB0000S0000B0000T0004B020AT000CB04607F1BFF S$IA0018RR(C0002B0000S000ES002ES0030B0000T0034B020AT000CB0460C00A6B0000T00407F1C1F S$IA0019R& B020AT000CB0460C00E47FB65FS$IA0020&*X000CS$$RES0000W0000S$IASC0000W0030S$IDI*400000S$WSP2 M0020$DATA 0000S00007F8B6F S$WS00014N!W0000W$$A3I0000W0000W$BID 0000W0000W$GTCA0000W0000W$QBID00007F272FS$WS0002N@W0000W$RIT 0000W0000W$SNCT0000W0000W$WIT 00007F578F S$WS0003@D:  S$WSP2  11/10/79 15:42:36  SDSMAC 3.3.0 79.312S$WS0004D007F1CAFS$WS0004NN!W0000W$PARM0000W0000W$PNCT0000W0000W$PTCA0000W0000W$RTCA00007F1CAFS$WS0005NN!W0000W$SCOM0000W0000W$SCPY0000W0000W$SETK0000W0000W$SETS00007F19AFS$WS0006NN!W0000W$SPLT0000W0000W$STAT0000W0000W$WEOL0000W0000W$WRIT00007F185FS$WS0007ND:  S$WSP1  11/10/79 15:42:24  SDSMAC 3.3.0 79.312S$WS0008D DATA PARM1 E$NEW EQU$-BTABLE DATA S$NEW ETRMNM EQU$-BTABLE DATA TRMNUM* '  DEND " H"*================================================================== H* ' END#+1 R#0038AS$DSPL A0000B8A95B2000B8D0AB2A45B5252B4F52B2C20B434FB4D4D7F1B7F S$DS0001RR(B414EB4420B4F52B2053B4352B4F4CB4C20B4655B4E43B5449B4F4EB2052B45517F16FF S$DS0002RR(B5549B5245B4450B981FB7FA0BDF0DB2D00A003AB0001B2B82B819FB9E89B00007F148F S$DS0003RR(C0046BC1EDB0002BD9E0B0000B0000B2FD7BD9E0B0000C004EB2FD7BD027B00007F164F S$DS0004RR(B1302B0460C0286BD027B0000B7020B0000B1602B0460C027CBD9E0C004CC00567F1E2F S$DS0005RR(B2FD7B04CBB020CB0001BC020B0000B1103B1502B0460C0280BC047B0420C02907F1D6F S$DS0006RR(BC000B1302B0460C028CBC020C0082B1102B0460C027CBC203B0201B0000BC0817F1ECF S$DS0007RR(BD460C0031BD131B0984BC0C4BDC60C0002B0604B16FCBC060B0000B0601B0A817F190F S$DS0008RR(BC120C0002B0420B0000BC000B1608B0204B2004B04C5B04C6B0420B0000BC0007F210F S$DS0009RR(B1302B0460C028CBC24BBC28CB9806C0004B1303B9806C0041B1624BD032B13567F1B1F S$DS0010RTR(B9812C003CB1305B9812C0038B1302B04C9B04CAB0602B02A3B0223B000AB04C47F1BCF S$DS0011RR(B0420B0000BC000B1302B0460C025CB02A3BC043B0221B0012BC083B0222B000A7F1FEF S$DS0012RR(BC0C1B0420B0000BC000B1601B1036B0460C028CB9806C003EB1303B9806C00407F1E2F S$DS0013RR(B1607B04C5BC1A0C00C0B0606B8206B1628B10E4B9806C003DB1303B9806C003F7F19EF S$DS0014RR(B160EB04C5BC1A0C014EB0606B02A3B04C1B0223B000ABC083B0420B0000BC0007F1AEF S$DS0015RR(B16DEB10D0B9806C0001B1606BC208B130EB04C5B0206B0001B10C7B9806C00007F1B6F S$DS0016RR(B1603B0705B0706B10C1B9806C0032B165CB106BBC249B150AB1102BC28AB16077F1A9F S$DS0017RR(B04C9B020AB0001BD9E0C0074C0076B1030BC188B04C5B02A3BC043B0221B000A7F1A5F S$DS0018RR(BC083B0222B0016BC0C2B0420C0132BC000B1659B02A3BC083B0222B0012BC0437F1D0F S$DS0019RR(B0221B0016BC0C1B0420C0178BC000B164DBC2CBB1602BC30CB132DBC2CBB11047F16DF S$DS0020RTR(BD9E0B0000C01BAB100CBD9E0B0000C0202B02A3B04C1B0223B0016BC083B04207F1ADF S$DS0021RR(C01ECBC000B1637BC2CBB1301B1004BC9CCB0000B2FD7B1014B02A3BC043B02217F16DF S$DS0022RR(B0016B04C5B0706BC083B0222B000ABC0C1B0420C0218BC000B1622B0727C02267F1D8F S$DS0023RR(B2FD7BC2CBB13E9B10ECBC2C9BC30AB0460C008CB0201C0006B0202C00A8BD4A07F128F S$DS0024RR(C0031B0420B0000B0102BD012B0980BA002B0580BD190B0460C00E6B04C0B10067F1F7F S$DS0025RR(B0200BFFF7B1003B0980B0220B0900BC740B0380B0000C0294BC020C009CB15067F1CBF S$DS0026RR(B0201B0000BD860C01B8C020AB2FD1B04C1B04C8BC1EDB0002BD9E0C0054C02A27F165F S$DS0027RR(B05E7B0000BC0A7C02B6BC020C0296B1107B05E7C02BABDCA0C0037BD4A0C00057F15FF S$DS0028RR(B0602B0602BC260C0168B0609BC020C02BEB1502B0609B1148B2FD7BD027C005C7F198F S$DS0029RR(B162EBD127C0066B7120C006AB1329B0588BC0E7C024ABC003B1315BC127C02C47F182F S$DS0030RTR(B9814C0033B120CB9814C0034B120AB0760B0000B1306B9814C0035B1203B98147F1F8F S$DS0031RR(C0036B1201BD500B0584B0600B16EDBC020C02DAB1101B05C3B0A83BD483B09837F193F S$DS0032RR(B04C4B0420C00CCBC000B161CB0221B0100B10C9BD9E0C0200C02B2BC9E0C003A7F184F S$DS0033RR(C02F8B2FD7BD027C02E6B160CBD027C02ECB7020C02F0B1307BD9E0C0208C034A7F13BF S$DS0034RR(BC9E0C003AC0350B2FD7BCB48B0006B04C0BC740B0667C0300BC020C032AB11027F17AF S$DS0035R" B0667C037CB03807FC87F S$DS0036"J30262AUXBUF30310CODE8 302D4LNECNT30348OPCBKS30366OPCFWS7F22EF S$DS0037JJ302B0OPCRAS302A0OPCREW30386PRBBAD3036EPRBCHC30356PRBERC7F1F3F S$DS0038JJ3029CPRBO 30368PRBOPC3035CPRBSFL50290S$DPAG50042S$DSPL7F26CF S$DS0039JJ301D4S$IADD30116S$INT 30242S$ISUB3026AS$PKEY300DCS$RIT 7F2B6F S$DS0040JJ3033AS$WIT 30360SFLEOF30380STATE 30290W$DPAG30042W$DSPL7F29EF S$DS0041JRND:  S$DSPL  11/10/79 15:34:22  SDSMAC 3.3.0 79.312S$DS0042DS$DS0031RR(C0036B1201BD500B0584B0600B16EDBC020C02DAB1101B05C3B0A83BD483B09837F193F S$DS0032RR(B04C4B0420C00CCBC000B161CB0221B0100B10C9BD9E0C0200C02B2BC9E0C003A7F184F S$DS0033RR(C02F8B2FD7BD027C02E6B160CBD027C02ECB7020C02F0B1307BD9E0C0208C034A7F13BF S$DS0034RR(BC9E0C003AC0350B2FD7BCB48B0006B04C0BC740B0667C0300BC020C032AB11027F17AF S$DS0035R" B0667C037CB03807FC87F S$DS0036"J30262AUXBUF30310CODE8 302D4LNECNT30348OPCBKS30366OPCFWS7F22EF S$DS0037JJ302B0OPCRAS302A0OPCREW30386PRBBAD3036EPRBCHC30356PRBERC7F1F3F S$DS0038JJ3029CPRBO 30368PRBOPC3035CPRBSFL50290S$DPAG50042S$DSPL7F26CF S$DS0039JJ301D4S$IADD30116S$INT 30242S$ISUB3026AS$PKEY300DCS$RIT 7F2B6F S$DS0040JJ3033AS$WIT 30360SFLEOF30380STATE 30290W$DPAG30042W$DSPL7F29EF S$DS0041JRNR#00126S$SHOW A0000B0050B0400B0A00B0191B9319B0000C000EB04DDBC06D7F21BF S$SH0001RR(B0002B1328B0202B0000BC881B0000BC8A0C0002B0000BD8A0C0007B0000BC8A07F1E7F S$SH0002RR(C0000B0000B2FD2BD022B0000B1667BD8A0C0005C0028BD8A0C0009B0000B2FD27F1B1F S$SH0003RR(BD022C0034B1659BC022B0000B0B80B1563B0B80B0980B0600B1308B0600B13067F1EDF S$SH0004RR(B0600B1304B1057BC0A0B0000B1351B0203B0000BC020B0000B130BBC883B00007F210F S$SH0005RR(BC042B0420B0000B0B80B9800C0004B1622B0B80B104BBD8A0B0000C003CB2FD27F1B2F S$SH0006RR(BCCC2B05C3BC883C0078BD8A0B0000C0090B2FD2BD022C0048B1611BD0E2B00007F165F S$SH0007RR(B70E0B0000B130CBC062C009AB0641BC0A2C002EB05C2B06A0B0000C011EBC0A07F190F S$SH0008RR(C006EB10EBBC06DB0002B160DBD8A0C008EC00A0B2FD2BD8A0B0000C00D6B2FD27F120F S$SH0009RR(BD8A0C00D4C00DEB2FD2B1008BD8A0C0006C00E6B2FD2BD8A0C0008C00F0B2FD27F10FF S$SH0010RTR(B0380BD8A0C0008C00F8B2FD2B0980B0220B0100B100ABC020B0000B1007B02007F1DAF S$SH0011R:B9026B1002B0200B9022BC740B10D5BC740B03807F735F S$SH0012:J30110IO$CLS3009EOPCRAS300E4OPCREW300DCOPCWEF300B6PRBBAD7F1EDF S$SH0013JJ 300BCPRBCHC30018PRBD300A6PRBERC30102PRBOPC3001CPRBPTN7F23AF S$SH0014JJ40000PRBRCL300ACPRBSFL3004EPRBTYP30042PRBUFL30022PRBUTF7F1B5F S$SH0015JJ300C2PUTL 3007ES$DSPL5000AS$SHOW300B0SFLEOF30072STATE 7F264F S$SH0016J430068TLF 300C8TLFBUF3000AW$SHOW7F7F1F S$SH00174D:  S$SHOW  11/10/79 15:40:28  SDSMAC 3.3.0 79.312S$SH0018DAI R0,>0100  'OPEN SVC ERROR' 8 010A 0100 " 0206 010C 100A JMP P$SH99 " 0207 010E P$SH92 8 0208 010E C020 MOV @IO$CLS,R0  'TLF NOT OPEN' 8 0110 0000 " 0209 0112 1007 JMP P$SH99 " 0210 0114 P$SH96 R0029CS$IO  M011E$DATA 0000A0000B0001B0050BFFF8BFFFABFFF9BFFFB7F19BF S$IO0001RR(B0001B1291B9307B0680B0009B0A0EB0B0DB0100B0200A001EB0200B0000B04007F20DF S$IO0002RR(B0000B04DDBC06AB002CB1603BC760C0004B102DBC0ADB0002B1308BD860C00117F193F S$IO0003RR(B0002BC86AB00EAB000AB1301B2FD1BD860C0019B0002B2FD1BC1CAB0227B00C27F15EF S$IO0004RR(B81C1B160ABC860C0000B000ABD860C0011B0002B2FD1B04EAB00EAB1008BD8607F178F S$IO0005RR(C000DB0002B2FD1BD860C0010B0002B2FD1B04EAB002CBC02AB00BEB1302BCA877F153F S$IO0006RR(B002CB0380B04DDBC06AB002CBC1CAB0227B0004B81C1B132DBC0ADB0002B13027F166F S$IO0007RR(BD012B161EBC04AB0221B00C2BC0AAB0002BC092B072AB00ECBC02AB00BEB16187F145F S$IO0008RR(BC02AB0000BC010B1507B072AB00BEBD0E0C000EB06A0C020EB100DB7861B00037F18BF S$IO0009RR(B0003BCA81B002CB04EAB00ECB1005BC047BD0E0C000CB06A0C020EB06A0C01F47F155F S$IO0010RTR(B04EAB00EAB0380BC760C000AB0380B04DDBC06AB002CB1603BC760C0004B102E7F165F S$IO0011RR(BC12AB00C0BC0CAB0223B0032BC0AAB00ECB1102B0643B05C4B0584B0244BFFFE7F136F S$IO0012RR(B1601B05C4BC844B000ABC843B0006BD860C0018B0002BD860C001AB0005B2FD17F19AF S$IO0013RR(BD0A1B0001B0982BC742B05AAB00EAB04EAB00C0BC10AB0224B0032BC844B00067F170F S$IO0014RR(BC0AAB002EB0203B2020BDD03B0602B15FDB0380B04DDBC06AB002CB1603BC7607F157F S$IO0015RR(C0004B103CBC1AAB002EB0207B7F00BC0ADB0004B1303B1502BC0AAB00C0B81827F17AF S$IO0016RR(B1203BC760C0008B102DBC06DB0002BD0F1B0983B1328BD131B91C4B160DBD1317F17FF S$IO0017RR(B0984B8182B1506BC00AB0220B0032BA002BD405B0582B0604B15F6B100CBD1447F1B2F S$IO0018RR(B0284B2000B1A08B8182B1506BC00AB0220B0032BA002BD405B0582B0603B15E27F1D4F S$IO0019RR(B8A82B00C0B1102BCA82B00C0B81AAB00C0B1202BC760C0006B0380BC06AB002E7F17EF S$IO0020RTR(BC08AB0222B0032B0203B2020BDC83B0601B15FDB04EAB00C0B045BB0205B060D7F18DF S$IO0021RR(BC845B0010BC860C0002B0008BC842B0016BD860C000FB0002B2FD1BD021B00017F1B6F S$IO0022RR(B0980B1630BD843B0002BD160C001BBD845B0005B2FD1BD021B0001B0980B16217F1B6F S$IO0023RR(BC0A1B0006BC0C2B0B82B1108B0A83B0283B0400B1312B0283B0600B130FB10067F1CEF S$IO0024RR(B0983B0603B1303B0603B1301B1005BCA82B00ECBCA81B002CB045BB0200B90267F1B1F S$IO0025RR(B1002B0200B9022BD860C000CB0002B2FD1BD860C0010B0002B2FD1BC000B15027F1CAF S$IO0026RR(B0220B0100BC740B0380S0000B0000T0004B020AT0030B0460C0026B0000T00107F20CF S$IO0027RR(B020AT0030B0460C0090B0000T001CB020AT0030B0460C0100B0000T0028B020A7F1EAF S$IO0028RR(T0030B0460C016CB0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F275F S$IO0029RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF S$IO0030RT@R(B0088B0D0AS0062S00EEB0000B0000B0000B0000B0000B0000B0000B0000B00007F226F S$IO0031RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF S$IO0032RB0000B00007FDC5FS$IO0033J50004IO$CLS50006IO$DOV50008IO$LOV5000AIO$OPN50011OPCBKS7F280F S$IO0034JJ50012OPCFWS50013OPCOPN50014OPCOPX50015OPCRAS50016OPCRDR7F1DBF S$IO0035JJ50017OPCREW50018OPCWAS50019OPCWEF60006PRBBAD6000APRBCHC7F20EF S$IO0036JJ60012PRBCUR60001PRBERC60001PRBERR60011PRBEVN60010PRBFIL7F20EF S$IO0037JJ60014PRBFLD60003PRBLUN60002PRBOPC60016PRBPTN60008PRBRCL7F1F4F S$IO0038JJ60008PRBRLN60004PRBSFL60006PRBTYP60005PRBUFL60010PRBUTF7F1CBF S$IO0039JJ6000EPRBXFLW0000S$CLOS0000W000CS$OPEN0000W0018S$WEOL00007F250FS$IO0040JNW0024S$WRIT0000X0030STATE 0000W0034TLAPRB0000W005CTLF 00007F1DBFS$IO0041N W005ETLFBSZ0000W0062TLFB6UF0000X0032TLFNAM0000W00F0TLFNXT00007F0F5FS$IO00426JW00F2TLFPRB0000W011ATLFREC0000W011CTLFTYP00005001AUFLBLK7F1D0FS$IO0043JJ5001BUFLEXW5001CUFLXTD5001EUTFACR50022UTFGLN50024UTFTLC7F1A0F S$IO0044JN!X0000W$CLOS0000X000CW$OPEN0000X0018W$WEOL0000X0024W$WRIT00007F17BFS$IO0045NB:  S$IO  11/10/79 15:36:12  SDSMAC 3.3.0 79.312S$IO0046BPCREW50018OPCWAS50019OPCWEF60006PRBBAD6000APRBCHC7F20EF S$IO0036JJ60012PRBCUR60001PRBERC60001PRBERR60011PRBEVN60010PRBFIL7F20EF S$IO0037JJ60014PRBFLD60003PRBLUN60002PRBOPC60016PRBPTN60008PRBRCL7F1F4F S$IO0038JJ60008PRBRLN60004PRBSFL60006PRBTYP60005PRBUFL60010PRBUTF7F1CBF S$IO0039JJ6000EPRBXFLW0000S$CLOS0000W000CS$OPEN0000W0018S$WEOL00007F250FS$IO0040JNW0024S$WRIT0000X0030STATE 0000W0034TLAPRB0000W005CTLF 00007F1DBFS$IO0041N W005ETLFBSZ0000W0062TLFB400000S$WSP4 M0020$DATA 0000S00007F8B4F S$WS00014" W0000W$DSPL00007FC44F S$WS0002"D:  S$WSP4  11/10/79 15:42:58  SDSMAC 3.3.0 79.312S$WS0003D00W0000W$STOP00007F549F S$WS0003@D:  S$WSP3  11/10/79 15:42:47  SDSMAC 3.3.0 79.312S$WS0004D007F1CAFS$WS0004NN!W0000W$PARM0000W0000W$PNCT0000W0000W$PTCA0000W0000W$RTCA00007F1CAFS$WS0005NN!W0000W$SCOM0000W0000W$SCPY0000W0000W$SETK0000W0000W$SETS00007F19AFS$WS0006NN!W0000W$SPLT0000W0000W$STAT0000W0000W$WEOL0000W0000W$WRIT00007F185FS$WS0007ND:  S$WSP1  11/10/79 15:42:24  SDSMAC 3.3.0 79.312S$WS0008D DATA PARM1 E$NEW EQU$-BTABLE DATA S$NEW ETRMNM EQU$-BTABLE DATA TRMNUM* '  DEND " H"*================================================================== H* ' END#+1 R#00052S$OVLY M000A$DATA 0000A0000B0000C0004B04DDBC06DB0002BC8017F20CF S$OV0001RR(T0008BD801T0006B06C1BD801T0005BD02DB0004B0980BC800B0000B2FE0T00007F179F S$OV0002RR(BD020T0001B160CBC0A0T0002B0201B0000BC451B1603BCC4DBCC4EBCC4FBC3727F12EF S$OV0003RR(BC3B2B0380B0980B0220B0E00BC740B04EDB0006B0380S0000B1400B0000B00007F1DEF S$OV0004RB0000BFFFF7FD6DFS$OV0005N!30020CODE X0002OBEGIN000030032OVYSAV40000PARM1 40000PARM2 7F220F S$OV0006NN!W0008S$$OVY000050000S$OVLY40000SUSPND40000TRMNUM30000W$OVLY7F13BF S$OV0007ND:  S$OVLY  11/10/79 15:38:47  SDSMAC 3.3.0 79.312S$OV0008DDATA :N.S:  $IFER.A&$PCALL DATA :ER.S:   $ELSE# DATA 0  $ENDIF " LIST $END CALL * 'B*------------------------------------------------------------ B* ' LTXT $MA R#000FCS$SETS M001A$DATA 0000A0000B04DDB06A0C00E8B06A0C007CBC0827F1C0F S$SE0001RR(B1304BD012B1302B06A0C0018B0380BC26AB0004BC259B132ABC209BA22AB00027F1AEF S$SE0002RR(BC218BA209BD1F8B0987B1302BA207B10FBB0608BD1D1B0987BD192B0986BA1C67F12FF S$SE0003RR(B0227B0004BA1C8BC189BA1AAB0000BC196BA189B8187B1410BC181BD1D6B09877F152F S$SE0004RR(BDE36B0607B15FDBDE16BC182BD1D6B0987BDE36B0607B15FDBDE16B7618B045B7F0DBF S$SE0005RR(B0200BFF06BC740B045BBC26AB0004BC259B132DBC209BA22AB0002BC218BA2097F155F S$SE0006RR(BC1C8BC248BD119B0984B1318BC0C1B9E73B160AB0604B15FCB13FBBD038B09807F122F S$SE0007RR(BA200BD038B0980BA200B10EFB0206B0002BD038BDDC0B0980BDDF8B0600B15FD7F13CF S$SE0008RR(B0606B15F8B10E4BC26AB0004BC259BC0C9BA0EAB0000BA253BDDD8B8247B1AFD7F0FCF S$SE0009RR(B045BB0200BFF05BC740B045BB064EBC0BEBC042B0971BA04DBC051B06C2B09727F136F S$SE0010RTR(BA08DBC092B045BS0000B0000T0004B020AT000CB0460C0000B0000B0000B00007F1DFF S$SE0011R& B0460C00E6B0460C00E87FB73FS$SE0012&N!W0012S$$ARB0000W0016S$$GRB0000W0000S$SETS0000X000CTCAAVL00007F1F8FS$SE0013N@X000ETCANCT0000X0010TCAPTR0000X0000W$SETS00007F4E6F S$SE0014@D:  S$SETS  11/10/79 15:40:03  SDSMAC 3.3.0 79.312S$SE0015D0607B15FDBDE16BC182BD1D6B0987BDE36B0607B15FDBDE16B7618B045B7F0DBF S$SE0005RR(B0200BFF06BC740B045BBC26AB0004BC259B132DBC209BA22AB0002BC218BA2097F155F S$SE0006RR(BC1C8BC248BD119B0984B1318BC0C1B9E73B160AB0604B15FCB13FBBD038B09807F122F S$SE0007RR(BA200BD038B0980BA200B10EFB0206B0002BD038BDDC0B0980BDDF8B0600B15FD7F13CF S$SE0008RR(B0606B15F8B10E4BC26AB0004BC259BC0C9BA0EAB0000BA253BDDD8B8247B1AFD7F0FCF S$SE0009RR(B045BB0200BFF05BC740B045BB064EBC0BEBC042B0971BA04DBC051B06C2B09727F136F S$SE0010RTR#000D8S$TCA$ M03A0$DATA 0000A0000BC02AB0370B1620BC02AB0378B04107F248F S$TC0001RR(BC04AB0221B0000BCA81B0370BC02AB0376BC010B1314B04D1B06A0C0096B00007F1B8F S$TC0002RR(C004CB06A0C0096B0A00C0036BD26AB0364B1001B0709B06A0C0096B0100C004C7F1C9F S$TC0003RR(B0249B6000B1602B04DDB0380B0700BC740B0380B04DDBC02AB0376BC010B131B7F19DF S$TC0004RR(BC02AB0370B1315BCAAAB0368B036AB06A0C0096B0000C008EB06A0C0096B0C007F185F S$TC0005RR(C007AB04C9B1001BC240B06A0C0096B0100C008EBC009B1603B0380B0200BFF077F1AFF S$TC0006RR(BC740B0380B04DDB0380BDABBB0362B058BBC02AB037ABCA90B036EB1115BCAAA7F102F S$TC0007RR(B0370B0366B2FEAB0360BD02AB0361B130BB0980B0280B003BB1303B0280B000B7F1B5F S$TC0008RR(B1607B064BB2FEAB0372B10E5B05CBB045BB0700BC31BB13FBB045CS0000B00007F152F S$TC0009RR(T0004B020AT0024B0460C0000B0000T0010B020AT0024B0460C0050B0000T001C7F1EFF S$TC0010RT@R(B020AT0024B0460C0092B0360B0010B0000B0000B003AB0360B0000B0000B53597F231F S$TC0011RR(B5354B454DB0000B0000B7000B7FFFBFFFFB0000B0000B0000B0000B1010B20207F1CFF S$TC0012RR(B2020B2020B2020B2020B2020B2020B2020B0000S0384B0000B0000B0010B00007F272F S$TC0013RDB0360B0000B0000B0000B0000B0200B0000B0000B0000B00007F5AAFS$TC0014DN!X039APARM1 0000W0000S$GTCA0000X039CS$NEW 0000W000CS$PTCA00007F1E5FS$TC0015NR#W0018S$RTCA00006000ETCA$CC6000ATCAAVLW0024TCABUF000060008TCANCT7F0ACF S$TC0016RJW0384TCAPRB0000W0394TCAPTR000060002TCATSBW038ATCBUFF00007F20CFS$TC0017JN!W038ETCCHCT0000W0388TCFLAG0000W0387TCLUNO0000W0386TCOPCD00007F11BFS$TC0018NN!W038CTCRECL0000W0392TCRECN0000W0385TCSTAT0000W0396TDELAY00007F10DFS$TC0019NN!X039ETRMNUM0000X0000W$GTCA0000X000CW$PTCA0000X0018W$RTCA00007F167FS$TC0020N$:  S$TCA$  11/10/79 15:41:59 $  SDSMAC 3.3.0 79.312S$TC0021 0000B003AB0360B0000B0000B53597F231F S$TC0011RR(B5354B454DB0000B0000B7000B7FFFBFFFFB0000B0000B0000B0000B1010B20207F1CFF S$TC0012RR(B2020B2020B2020B2020B2020B2020B2020B0000S0384B0000B0000B0010B00007F272F S$TC0013RDB0360B0000B0000B0000B0000B0200B0000B0000B0000B00007F5AAFS$TC0014DN!X039APARM1 0000W0000S$GTCA0000X039CS$NEW 0000W000CS$PTCA00007F1E5FS$TC0015NR#W0018S$RTCA00006000ETCA$CC6000ATCAAVLW0024TCABUF000060008TCANCT7F0ACF S$TC0016RJW0384TCAPRB0000W0394TCAPTR000060002TCATSBW038ATCBUFF00007F20CFS$TC0017JN!W038ETCCHCT0000W0388TCFLAG0000W0387TCLUNO0000W0386TCOPCD00007F11BFS$TC0018NN!W038CTCRECL0000W0392TCRECN0000W0385TCSTAT0000W0396TDELAY00007F10DFS$TC0019NN!X039ETRMNUM0000X0000W$GTCA0000X000CW$PTCA0000X0018W$RTCA00007F167FS$TC0020N$:  S$TCA$  11/10/79 15:41:59 $@R00098S$NEW M0034$DATA 0000A0000BC76AB0006B1642B2FEAB0008BC06A7F214F S$NE0001RR(B000AB1614BC02AB0000B1311BC02AB0022B2FD0BC02AB0024BD050B0981BC0817F19DF S$NE0002RR(BA082BA0AAB001EBC092BA0AAB0020BD052BCA81B000ABC0C1B0241B003FBCA817F12BF S$NE0003RR(B001CB0A43B08C3BC02AB0026BD42AB0004B0204B4246BCA83B000EB1303BD42A7F17CF S$NE0004RR(B0005B06C4BDA84B0016BC141B3960C008CB3D60C008EBE146B0225B3030BDA857F172F S$NE0005RR(B001BB06C5BDA85B001ABC06AB000CB0981BCA81B0002B072AB0006B0380B01007F190F S$NE0006RR(B0A00S0000B0000T0004B020AT000CB0460C0000B0000B0000B0201B0000B17007F229F S$NE0007RR(B0000B0000B0000T001EB092EB5324B4654B4C46B3030BFFFFB0000B0000B00007F1C7F S$NE0008R6B0000B0000A0090T002AT002CT002ET00307F829F S$NE00096N W000CCIFLAG0000W000ECODE0000W0016PARM1 0000W0018PARM2 00007F231FS$NE0010NW0000S$NEW 0000V0090SCA$T V02092SCA$TTV0094SELFIDV0096SELFSI7F15AF S$NE00112N!W001ASTATE 0000X0032TCLUNO0000W001CTLFNAM0000W0028TRMNUM00007F11CFS$NE0012N" X0000W$NEW 00007FC6CF S$NE0013"B:  S$NEW 11/10/79 15:38:26  SDSMAC 3.3.0 79.312S$NE0014BS$NE0003RR(B001CB0A43B08C3BC02AB0026BD42AB0004B0204B4246BCA83B000EB1303BD42A7F17CF S$NE0004RR(B0005B06C4BDA84B0016BC141B3960C008CB3D60C008EBE146B0225B3030BDA857F172F S$NE0005RR(B001BB06C5BDA85B001ABC06AB000CB0981BCA81B0002B072AB0006B0380B01007F190F S$NE0006RR(B0A00S0000B0000T0004B020AT000CB0460C0000B0000B0000B0201B0000B17007F229F S$NE0007RR(B0000B0000B0000T001EB092EB5324B4654B4C46B3030BFFFFB0000B0000B00007F1C7F S$NE0008R6B0000B0000A0090T002AT002CT002ET00307F829F S$NE00096N W000CCIFLAG0000W000ECODE0000W0016PARM1 0000W0018PARM2 00007F231FS$NE0010NW0000S$NEW 0000V0090SCA$T V0R#00030S$SCOM M000E$DATA 0000A0000B071DBC2EAB0000B069BBD0F1BD1327F1E3F S$SC0001RR(BD144B90C4B1A01BD143B0985B1304B9CB1B1604B0605B15FCB04DDB9103B02C07F163F S$SC0002RR(B09D0B0A3FBE3C0B0B3FB0380S0000B0000T0004B020AT000CB0460C0000B00007F19DF S$SC0003R@X000CS$$GRB0000W0000S$SCOM0000X0000W$SCOM00007F563F S$SC0004@D:  S$SCOM  11/10/79 15:39:47  SDSMAC 3.3.0 79.312S$SC0005D* ' DFOP TXT,TEXT* '@*=============== MACRO DEFINITIONS ======================== @* 'CALL $MACRO N,ER * ' $VAR UL,L * 'DATA >069A UNL DATA :N.S:  $IFER.A&$PCALL DATA :ER.S:   $ELSE# DATA 0  $ENDIF " LIST $END CALL * 'B*------------------------------------------------------------ B* ' LTXT $MA R#004AES$DSP$ A0000B9400A0002B0020B2001B2008B023AB2084B0D0AB80807F264F S$DS0001RR(B8C00A0012B0000B0002B2020B0000C001CB04DDBC1EDB0002B8807B0000B12027F1F0F S$DS0002RR(B0460C01D2BC020B0000B1312B1511BC1ADB000CB160EB0201B0000BD860B00007F1DCF S$DS0003RR(B0000B2FD1BD021B0000B1305B0980B0220B0800B0460C01DCBC0ADB0004B130D7F1BEF S$DS0004RR(BD0D2B130BB06A0C041CB04C1B06A0C043AB04C1B04C4BD0D2B0983B06A0C04787F15BF S$DS0005RR(BC020C002EB1602B0460C01D0BC1C7B1602B0460C01D0B04C8BC0EDB0006B130D7F189F S$DS0006RR(BC233B0988B0607B1109BC033B13FCBD010B13FAB0980B8200B12F7BC200B10F57F171F S$DS0007RR(B04C9BC1EDB0002BC12DB0008B130DBC274B0989B0607B1109BC034B13FCBD0107F158F S$DS0008RR(B13FAB0980B8240B12F7BC240B10F5BC1EDB0002BC16DB000AB05C5B0607B110B7F154F S$DS0009RR(BC035B13FCBD010B0240B7F00B13F8B0980B8240B12F5BC240B10F3BC008BA0097F168F S$DS0010RTR(BA020C0012B05C0BC060B0000B6040B1169B0911BA048BC020C0012B0910BA0407F1ECF S$DS0011RR(B05C1BC16DB0006BC805B0000BC1ADB0008BC806B0000BC82DB000AB0000BC1ED7F161F S$DS0012RR(B0002BC807B0000BC808B0000BC809B0000BC801B0000BC020C0078B1546BC1457F1D6F S$DS0013RR(B1304B05C5BC186B1301B05C6B0607B1135B06A0C041CBC145B130ABC0B5B13087F196F S$DS0014RR(BC060C013CB0A81B7052B0981B0641B06A0C043ABC060C0162B0641B0202C00087F1CEF S$DS0015RR(B06A0C043AB05C1BC260C0138BA060B0000BD0E0C0016BC020C0122B1302BC0D07F1AEF S$DS0016RR(B0A83BDC43B0609B15FDBC186B1307BC0B6B1305B0582BC060C0172B06A0C043A7F162F S$DS0017RR(BC060C0130B6047B04C4B04C3B06A0C0478B10C9B06A0C041CBC06DB0002B05817F196F S$DS0018RR(B04C4B04C3B06A0C0478B0380B0200BFFF5B1002B0200B901BBC740B0380B00007F1B1F S$DS0019RR(C01E4B04DDBC020C0128B1602B0460C0402BC06DB0004B1306BD451B1304BC1207F1B6F S$DS0020RTR(C0002BC081B1006BC020C0140B150EB0204B0001B04C2B06A0C041CB04C1B06A07F1D4F S$DS0021RR(C043ABC060C01B0B0581B04C3B06A0C0478B04EDB0004BC1EDB0002B1502B04607F194F S$DS0022RR(C0408B8807C021AB1202B0460C0408BC020C0204B1503B1130B0460C040EB06A07F1F5F S$DS0023RR(C041CBC0A0C011AB1602B0460C0414BC007B0A10BA080BC092B1602B0460C04147F1C1F S$DS0024RR(B0201B0001B06A0C043ABD012B0980BA040B0202C0008B06A0C043AB05C1BC0A07F1C4F S$DS0025RR(C018EB130BBC007B0A10BA080BC092B1306B0582B06A0C043ABD012B0980BA0407F191F S$DS0026RR(BC0C1B05C3B04C4B04C1B06A0C0478BC047B0A81BA060C01A8BC220C01E8BC0877F14DF S$DS0027RR(B0A12BA202BC218B138CBC0E0C0182BC120C0006BC618B1503B1302BE120C00147F1A9F S$DS0028RR(BC0A0C0186B0602BD4B8B54A0C000FBC020C027EB1303BC010B0A80BD100BC1417F17AF S$DS0029RR(B0420B0000BC000B1302B0460C0418BD252B130DB8202B130BB0608BD638B56207F1E1F S$DS0030RTR(C000FB0420B0000B0208BC000B1302B0460C0418BC020C023EB150ABD609B06A07F1D6F S$DS0031RR(C041CBC060C0234B0581B04C3B04C4B06A0C0478B9806C0000B1606B0607B15847F1C1F S$DS0032RR(B0207B0001B0460C023CB9806C0010B1604B0207B0001B0460C023CB9806C000B7F207F S$DS0033RR(B1628BC087B0602B1333B0A12BA0A0C02AEBC092B132EB0582BC047BC020C03127F189F S$DS0034RR(B110FB0A11BC020C02DAB1325BA040BC051B1322BD471B0420C0304B0201BC0007F1C2F S$DS0035RR(B161CB0460C0248B0A81BA060C02AABC0E0C02BCBC120C0004B0420B0000BC0007F1A1F S$DS0036RR(B163DB1082B9806C000EB160BBC0A0C036EB1306BA087BA087BC092B1302B05827F180F S$DS0037RR(B7492B0460C023CBD249B161CBC020C0366B1118BC0A0C03A8B1316BA087BA0877F17CF S$DS0038RR(BC092B1311B0582B8202B130FB0608BD638B5620C000FB0420C037CB0208BC0007F1BEF S$DS0039RR(B1306BDB46B0006BCB47B0002B1011B7618BDB46B0006BCB47B0002B0380B02007F1AFF S$DS0040RT@R(BFFF6B1008B0200BFFF5B1005B0200BFFF7B1002B0200BFFF3BC740B0380BC0607F138F S$DS0041RR(C02CEBC020B0000BC0E0C03C2B1103BCC60C000CB0640BCC60C0016B0640B15FC7F172F S$DS0042RR(B045BBC082B1318BC0E0C0422BC020C0426B1101B0643B60C1B0A83B90D2B1B0F7F189F S$DS0043RR(BC0C1BA0E0C041EBC020C0444B1101B05C3B0603BD313BD4D2B0420C03E4B02037F18DF S$DS0044RR(BD4CCB045BB0200B901BBC740B0380B0A81BC0A0C0456B0602BC0C3B1603BC0E07F15EF S$DS0045RR(C0440B1008BC020C045AB1105B05C3B78E3B0000C0494B0583B06C3BD483B06C37F1A7F S$DS0046R6B0420C0398BC000B1601B045BBC740B03807F841F S$DS00476J3035AAVVEC 3047CDSPBFA30486DSPBFL30496DSPBUF303C8DVVEC 7F234F S$DS0048JJ30024KWMAX 3024EKWVEC 30100LNESIZ30134MKL 30390MVL 7F324F S$DS0049JJ3031ENKW 30040OPCREW30048PRBERC3003CPRBO 30042PRBOPC7F2AEF S$DS0050J250018S$FMT 501E0S$GKEY302E8S$RIT 30468S$SCPY304A22S$WIT 7F2B3F S$DS0051>3048CSTATE 30018W$FMT 301E0W$GKEY3038CYAXIS 7F525F S$DS0052>D:  S$DSP$  11/10/79 15:33:34  SDSMAC 3.3.0 79.312S$DS0053DR(B045BBC082B1318BC0E0C0422BC020C0426B1101B0643B60C1B0A83B90D2B1B0F7F189F S$DS0043RR(BC0C1BA0E0C041EBC020C0444B1101B05C3B0603BD313BD4D2B0420C03E4B02037F18DF S$DS0044RR(BD4CCB045BB0200B901BBC740B0380B0A81BC0A0C0456B0602BC0C3B1603BC0E07F15EF S$DS0045RR(C0440B1008BC020C045AB1105B05C3B78E3B0000C0494B0583B06C3BD483B06C37F1A7F S$DS0046R6B0420C0398BC000B1601B045BBC740B03807F841F S$DS00476J3035AAVVEC 3047CDSPBFA30486DSPBFL30496DSPBUF303C8DVVEC 7F234F S$DS0048JJ30024KWMAX 3024EKWVEC 30100LNESIZ30134MKL 30390MVL 7F324F S$DS0049JJ3031ENKW 30040OPCREW30048PRBERC3003CPRBO 30042PRBOPC7F2AEF S$DS0050J250018S$FMT 501E0S$GKEY302E8S$RIT 30468S$SCPY304A2@R#000B0S$PARM M0034$DATA 0000A0000B04DDBC2EAB0002B069BBC081BC04A7F1D3F S$PA0001RR(B0221B0004BC842B0002BD0F1B0983B06A0C005EBC0C2BC2EAB0000B069BBC0437F174F S$PA0002RR(B06A0C003AB0380B04DDBC2EAB0002B069BB06A0C003AB0380BC041B1602B02017F193F S$PA0003RR(C005CBD031B9480B1B06BDC80B0980B1306BDCB1B0600B10FCB0200B901BBC7407F160F S$PA0004RR(B045BB0000BC26AB000ABC259B131FBC081BC209BA22AB0008BC218BA209BC0037F161F S$PA0005RR(BD118B1319B0984B8100B160CB0588BC148BC1C8BA1C4B0608BC182B9D76B16047F15DF S$PA0006RR(B81C5B1AFCBC087B100BBD138B0984BA204BD138B0984BA204B10E8B0200BFF057F135F S$PA0007RR(BC740B04C2BC28CB045BS0000B0000T0004B020AT000EBC30AB0460C0000B00007F19AF S$PA0008RR(B0000B0300B0000B0000B0000B0000T001EB020AT000EB0460C002CB0460C003A7F20BF S$PA0009R,BC30AB020AT000EB0460C005E7FA39F S$PA0010,$W0012PRMTMP0000X000ES$$ARB0000W002$,6S$$COP0000X0010S$$GRB00007F207FS$PA0011,N!W002AS$$LUP0000W0000S$PARM0000W001AS$SCPY0000X0016TCANCT00007F19AFS$PA0012N@X0018TCAPTR0000X0000W$PARM0000X001AW$SCPY00007F4F3F S$PA0013@D:  S$PARM  11/10/79 15:39:04  SDSMAC 3.3.0 79.312S$PA0014D480B1B06BDC80B0980B1306BDCB1B0600B10FCB0200B901BBC7407F160F S$PA0004RR(B045BB0000BC26AB000ABC259B131FBC081BC209BA22AB0008BC218BA209BC0037F161F S$PA0005RR(BD118B1319B0984B8100B160CB0588BC148BC1C8BA1C4B0608BC182B9D76B16047F15DF S$PA0006RR(B81C5B1AFCBC087B100BBD138B0984BA204BD138B0984BA204B10E8B0200BFF057F135F S$PA0007RR(BC740B04C2BC28CB045BS0000B0000T0004B020AT000EBC30AB0460C0000B00007F19AF S$PA0008RR(B0000B0300B0000B0000B0000B0000T001EB020AT000EB0460C002CB0460C003A7F20BF S$PA0009R,BC30AB020AT000EB0460C005E7FA39F S$PA0010,$W0012PRMTMP0000X000ES$$ARB0000W002$R001A4S$INT M0030$DATA 0000A0000B3E4BB2D2BB3039B412FB2A00A000A7F21FF S$IN0001RR(B04DDBC06DB0004BC0ADB0008B1104B1505B0202B000AB1002B0202B0010B04607F1DAF S$IN0002RR(C0026B04C3B04C4BD1B1B0986BC02AB0006B0410BC000B160EBA108B1701B05837F19FF S$IN0003RR(BA0C7BC186B1309B9811C0003B13F2B9811C0002B13EFB0200B9002BC740BC2EA7F177F S$IN0004RR(B0000B069BB0380B04DDBC16DB0002BC1EDB0004BC1ADB000CB02A0B0220B00107F182F S$IN0005RR(BC040BC0C0BC080B0222B0006B04C4B04C8B0209B0001B04EAB000ABC02AB00087F19CF S$IN0006RR(B0410BC740B161BBC02AB000AB1604BC02AB0004B0410B1003BC02AB0002B04107F1D0F S$IN0007RR(BC740B160FBC186B130DB04EAB000AB9815C0008B1305B072AB000AB9815C00077F18CF S$IN0008RR(B1603B0585B0606B10E0BCB45B0002BCB46B000CBCB48B000EBCB49B0010B03807F17BF S$IN0009RR(B04DDBC16DB000ABC1EDB000EB0208B0001B04C1B04C2B04C9BC1ADB000CB13347F13FF S$IN0010RT@R(B9815C0003B1304B9815C0002B1605B0508B0585B0606B15F6B1029B9815C00047F1F1F S$IN0011RR(B1306B9815C0000B1605B0585B0606B1220B0207B0010B0200C0004BD2D5B098B7F1FBF S$IN0012RR(B022BBFFD0B9C15B1116B9C15B1105B1304B9C15B1111B022BBFFF9B81CBB140D7F12FF S$IN0013RR(B3887BC002B3847BA080BC042BC083BA08BB1701B0581B0589B0585B0606B15E27F187F S$IN0014RR(BC186B130DB9815C0001B160AB0AA1B0B62BC002B0240B03FFB0242BFC00BE0407F173F S$IN0015RR(B0585B0606BC208B1505B0541B0542B0582B1701B0581BCB45B000ABCB46B000C7F1ADF S$IN0016RR(BCB41B0016BCB42B0018BC249B1603B0200B9002BC740B0380S0000B0000T00047F1C1F S$IN0017RR(B020AT000CB0460C000AB0000B0000B0000T0018T0024B0000B0000T001CB020A7F1EFF S$IN0018R@T000CB0460C005EB0000T0028B020AT000CB0460C00DA7F5E9F S$IN0019@N!X000CS$$RES0000X000ES$IDIV0000X0010S$IMUL0000W0000S$INT 00007F1E9FS$IN0020N X0018W$$A3I0000X00.24W$$A4I0000X0000W$INT 00007F5F3F S$IN0021.B:  S$INT 11/10/79 15:35:45  SDSMAC 3.3.0 79.312S$IN0022B0B0207B0010B0200C0004BD2D5B098B7F1FBF S$IN0012RR(B022BBFFD0B9C15B1116B9C15B1105B1304B9C15B1111B022BBFFF9B81CBB140D7F12FF S$IN0013RR(B3887BC002B3847BA080BC042BC083BA08BB1701B0581B0589B0585B0606B15E27F187F S$IN0014RR(BC186B130DB9815C0001B160AB0AA1B0B62BC002B0240B03FFB0242BFC00BE0407F173F S$IN0015RR(B0585B0606BC208B1505B0541B0542B0582B1701B0581BCB45B000ABCB46B000C7F1ADF S$IN0016RR(BCB41B0016BCB42B0018BC249B1603B0200B9002BC740B0380S0000B0000T00047F1C1F S$IN0017RR(B020AT000CB0460C000AB0000B0000B0000T0018T0024B0000B0000T001CB020A7F1EFF S$IN0018R@T000CB0460C005EB0000T0028B020AT000CB0460C00DA7F5E9F S$IN0019@N!X000CS$$RES0000X000ES$IDIV0000X0010S$IMUL0000W0000S$INT 00007F1E9FS$IN0020N X0018W$$A3I0000X00R#00118S$SPLT M000E$DATA 0000A0000B2C28B2900A0004B04DDBC06DB00027F200F S$SP0001RR(BC0ADB0004BC0EDB0006BD011B1607BC082B1301B7492BC0C3B1379B74D3B10777F167F S$SP0002RR(B0980BC101B04C5B0581B0600B110BB9811C0001B1602B0585B10F8B9811C00027F1E0F S$SP0003RR(B16F5B0605B1168B10F2BC145B1665BC044BD034B0980B9834C0001B1307BC2EA7F183F S$SP0004RR(B0000B069BBC0C3B1359B74D3B1057B0640B1607BC082B1301B7492BC0C3B13507F1A2F S$SP0005RR(B74D3B104EBA100B9814C0002B164BB05C1BC101BC082B1304BD192B0986BC1C27F178F S$SP0006RR(B0587B9814C0000B161BBC145B162BBC082B1304B6044B0501B06C1BD481BC1437F1A3F S$SP0007RR(B1335BD075B0981B0580B8040B1531BDD60C0001B0584B0600B1302BDD74B10FC7F1A4F S$SP0008RR(B6143B0605B06C5BD4C5B1024B9814C0002B160BB0605B150DB130CB0641BC2EA7F18DF S$SP0009RR(B0000B069BBC0C3B1318B74D3B1016B9814C0001B1601B0585BC082B1604B05847F1C3F S$SP0010RTR(B0600B16CBB1009B0606B110BBDDF4B0600B16C5B61C2B0607B06C7BD487BC0C37F153F S$SP0011RR(B1301B74D3B0380B071DB0380S0000B0000T0004B020AT000CB0460C0004B00007F1E8F S$SP0012R@X000CS$$COP0000W0000S$SPLT0000X0000W$SPLT00007F53AF S$SP0013@D:  S$SPLT  11/10/79 15:41:07  SDSMAC 3.3.0 79.312S$SP0014D1B1307BC2EA7F183F S$SP0004RR(B0000B069BBC0C3B1359B74D3B1057B0640B1607BC082B1301B7492BC0C3B13507F1A2F S$SP0005RR(B74D3B104EBA100B9814C0002B164BB05C1BC101BC082B1304BD192B0986BC1C27F178F S$SP0006RR(B0587B9814C0000B161BBC145B162BBC082B1304B6044B0501B06C1BD481BC1437F1A3F S$SP0007RR(B1335BD075B0981B0580B8040B1531BDD60C0001B0584B0600B1302BDD74B10FC7F1A4F S$SP0008RR(B6143B0605B06C5BD4C5B1024B9814C0002B160BB0605B150DB130CB0641BC2EA7F18DF S$SP0009RR(B0000B069BBC0C3B1318B74D3B1016B9814C0001B1601B0585BC082B1604B05847F1C3F S$SP0010RT400000S$WSP1 M0020$DATA 0000S00007F8B7F S$WS00014N!W0000W$$A4I0000W0000W$CLOS0000W0000W$IADD0000W0000W$IASC00007F23CFS$WS0002NN!W0000W$IDIV0000W0000W$IMUL0000W0000W$ISUB0000W0000W$MAPK00007F1C2FS$WS0003NN!W0000W$MAPS0000W0000W$NEW 0000W0000W$OPEN0000W0000W$OVLY00007F1CAFS$WS0004NN!W0000W$PARM0000W0000W$PNCT0000W0000W$PTCA0000W0000W$RTCA00007F1CAFS$WS0005NN!W0000W$SCOM0000W0000W$SCPY0000W0000W$SETK0000W0000W$SETS00007F19AFS$WS0006NN!W0000W$SPLT0000W0000W$STAT0000W0000W$WEOL0000W0000W$WRIT00007F185FS$WS0007ND:  S$WSP1  11/10/79 15:42:24  SDSMAC 3.3.0 79.312S$WS0008D DATA PARM1 E$NEW EQU$-BTABLE DATA S$NEW ETRMNM EQU$-BTABLE DATA TRMNUM* '  DEND " H"*================================================================== H* ' END#+1 400000S$WSP3 M0020$DATA 0000S00007F8B5F S$WS00014N!W0000W$BIDT0000W0000W$DPAG0000W0000W$FMT 0000W0000W$GKEY00007F20BFS$WS0002N@W0000W$INT 0000W0000W$PKEY0000W0000W$STOP00007F549F S$WS0003@D:  S$WSP3  11/10/79 15:42:47  SDSMAC 3.3.0 79.312S$WS0004D007F1CAFS$WS0004NN!W0000W$PARM0000W0000W$PNCT0000W0000W$PTCA0000W0000W$RTCA00007F1CAFS$WS0005NN!W0000W$SCOM0000W0000W$SCPY0000W0000W$SETK0000W0000W$SETS00007F19AFS$WS0006NN!W0000W$SPLT0000W0000W$STAT0000W0000W$WEOL0000W0000W$WRIT00007F185FS$WS0007ND:  S$WSP1  11/10/79 15:42:24  SDSMAC 3.3.0 79.312S$WS0008D DATA PARM1 E$NEW EQU$-BTABLE DATA S$NEW ETRMNM EQU$-BTABLE DATA TRMNUM* '  DEND " H"*================================================================== H* ' END#+1 R#0008ES$SNCT M0014$DATA 0000A0000BC2EAB0000B069BB0203C008CBC01D7F1EBF S$SN0001RR(B1602B0203C008ABC26AB0006BC259B1324BC009BA02AB0004BC010BA240BD0197F19BF S$SN0002RR(B131DBD029B0001B1313BC22AB0002B0418B0109B130EB1A06BC01DB130BB04187F1B1F S$SN0003RR(B0903B1B07B1007BC01DB1605B0418B0903B1A01B1001BC0C9BD039B0980BA2407F1A8F S$SN0004RR(BD039B0980BA240B10E1B0283C008AB1602B0203C008CBD013B0980BDC73B06007F19FF S$SN0005RR(B15FDB13FCBC082B1306BD013B0980BDCB3B0600B15FDB13FCB0380B01FFB00007F12BF S$SN0006RJS0000B0000T0004B020AT000CB0460C0000B0000B0000B0000B00007F449F S$SN0007JN!X000CS$$GRB0000X000ES$SCOM0000W0000S$SNCT0000X0010TCANCT00007F1B6FS$SN0008N0X0012TCAPTR0000X0000W$SNCT00007F895FS$SN00090D:  S$SNCT  11/10/79 15:40:47  SDSMAC 3.3.0 79.312S$SN0010D--------------------------- B* ' LTXT $MA R0004AS$BID M000C$DATA 0000A0000B0000C0004B04DDBD82DB0002T00097F253F S$BI0001RR(BD82DB0003T0002BD82DB0004T0006BD820B0000T0004BC020B0000BD800T00087F199F S$BI0002RR(B06C0BD800T0005B0420B0000BC000B1609B2FE0T0000BD020T0001B1601B03807F1BFF S$BI0003RN!B0980B0220B0F00BC740B0380S0000B2B00B0001B0000B0000B0000B00007F337FS$BI0004NN!W0000BIDTSK00003001APARM1 50000S$BID 3002ES$PTCA30020TRMNUM7F1CFF S$BI0005N 30000W$BID 7FD6CF S$BI0006B:  S$BID 11/10/79 15:32:59  SDSMAC 3.3.0 79.312S$BI0007B $MACRO N,ER * ' $VAR UL,L * 'DATA >069A UNL DATA :N.S:  $IFER.A&$PCALL DATA :ER.S:   $ELSE# DATA 0  $ENDIF " LIST $END CALL * 'B*------------------------------------------------------------ B* ' LTXT $MA @R#000BAS$QBID A0000B0000C0004B04DDBC060B0000BA041BC061B0000BD0AD7F219F S$QB0001RR(B0005B0982B1308B0602B1326B0602B1327B0602B1305B071DB0380BD0A0C008A7F1EBF S$QB0002RR(B1002BD0A0C008DBD021B0000B1122BD86DB0002B0000BD86DB0003B0000BD86D7F1A6F S$QB0003RR(B0004B0000B7861B0000C004CB0420B0000BC000B1617B06A0C008EBC000B16117F204F S$QB0004RR(BDB61C0042B0002B0380BD0A0C008BB1002BD0A0C008CB069AC008EB0000BC7407F18EF S$QB0005RR(B0380B0200B901DB1002B0200BFF0ABC740B0380B1011B1213BD842B0000BD8207F1CFF S$QB0006RR(B0000C00B2B1302B2FE0C00B0B2FE0C00B6BD021C0090B16FBBD021B0000B09807F196F S$QB0007R0B045BB0E00B0000B0000B0200B00017F98AFS$QB00080J30052S$PTCA50000S$QBID30048SCA$BC3003CSCA$BL3004ESCA$BR7F2F8F S$QB0009JJ30034SCA$BS30062SCA$BT300AASCA$FE300A4SCA$FO30094SCA$L27F307F S$QB0010J03000ESCA$T 30008TRMNUM30000W$QBID7F7E6F S$QB00011D:  S$QBID  11/10/79 15:39:28  SDSMAC 3.3.0 79.312S$QB0012DR(B0005B0982B1308B0602B1326B0602B1327B0602B1305B071DB0380BD0A0C008A7F1EBF S$QB0002RR(B1002BD0A0C008DBD021B0000B1122BD86DB0002B0000BD86DB0003B0000BD86D7F1A6F S$QB0003RR(B0004B0000B7861B0000C004CB0420B0000BC000B1617B06A0C008EBC000B16117F204F S$QB0004RR(BDB61C0042B0002B0380BD0A0C008BB1002BD0A0C008CB069AC008EB0000BC7407F18EF S$QB0005RR(B0380B0200B901DB1002B0200BFF0ABC740B0380B1011B1213BD842B0000BD8207F1CFF S$QB0006RR(B0000C00B2B1302B2FE0C00B0B2FE0C00B6BD021C0090B16FBBD021B0000B09807F196F S$QB0007R0B045BB0E00B0000B0000B0200B00017F98AFS$QB00080J30052S$PTCA50000S$QBID30048SCA$BC3003CSCA$BL3004ESCA$BR7F2F8F S$QB0009JJ30034SCA$BS30062SCA$BT300AASCA$FE300A4SCA$FO30094SCA$L27F307F S$QB0010J03000ESCA$T 30008TRMNUM30000W$QBID7F7E6F S$QB0400000S$WSP5 M0020$DATA 0000S00007F8B3F S$WS00014" W0000W$SHOW00007FC36F S$WS0002"D:  S$WSP5  11/10/79 15:43:08  SDSMAC 3.3.0 79.312S$WS0003D00W0000W$STOP00007F549F S$WS0003@D:  S$WSP3  11/10/79 15:42:47  SDSMAC 3.3.0 79.312S$WS0004D007F1CAFS$WS0004NN!W0000W$PARM0000W0000W$PNCT0000W0000W$PTCA0000W0000W$RTCA00007F1CAFS$WS0005NN!W0000W$SCOM0000W0000W$SCPY0000W0000W$SETK0000W0000W$SETS00007F19AFS$WS0006NN!W0000W$SPLT0000W0000W$STAT0000W0000W$WEOL0000W0000W$WRIT00007F185FS$WS0007ND:  S$WSP1  11/10/79 15:42:24  SDSMAC 3.3.0 79.312S$WS0008D DATA PARM1 E$NEW EQU$-BTABLE DATA S$NEW ETRMNM EQU$-BTABLE DATA TRMNUM* '  DEND " H"*================================================================== H* ' END#+1 @R#000A0S$MAPS M0014$DATA 0000A0000B3024B2E28B04DDBC2EAB0004B069B7F1EDF S$MA0001RR(BD0F1B0983B133ABC2EAB0006B069BBC0C2B1636BC2EAB0000B069BBD031BC0817F12EF S$MA0002RR(B0980B9812C0001B1303B9812C0000B1A03B0582B0600B16F7B9812C0002B13037F200F S$MA0003RR(B9812C0003B1620B6081B131EBC0C2BC2EAB0006B069BBC102B1318BC2EAB00007F17DF S$MA0004RR(B069BBD014BB011B06C3B7003B9480B1B18BDC80BD034B0980BDCB4B0600B16FD7F13BF S$MA0005RR(BD031B0980B06C3B6003BA043BDCB1B0600B16FDB0380B04C3BC2EAB0000B069B7F157F S$MA0006RR(BC043BC2EAB0002B069BB0380B0200B901BBC740B0380S0000B0000T0004B020A7F1ABF S$MA0007R6T000CB0460C0004B0000B0000B0000B00007F887F S$MA00086N!X000CS$$ARB0000X000ES$$COP0000X0010S$$GRB0000X0012S$$LUP00007F24EFS$MA0009N0W0000S$MAPS0000X0000W$MAPS00007F8C6FS$MA00100@:  S$MAPS  11/10/79 15:38:07  SDSMAC 3.3.0 79.312S$MA@0011S M0014$DATA 0000A0000B3024B2E28B04DDBC2EAB0004B069B7F1EDF S$MA0001RR(BD0F1B0983B133ABC2EAB0006B069BBC0C2B1636BC2EAB0000B069BBD031BC0817F12EF S$MA0002RR(B0980B9812C0001B1303B9812C0000B1A03B0582B0600B16F7B9812C0002B13037F200F S$MA0003RR(B9812C0003B1620B6081B131EBC0C2BC2EAB0006B069BBC102B1318BC2EAB00007F17DF S$MA0004RR(B069BBD014BB011B06C3B7003B9480B1B18BDC80BD034B0980BDCB4B0600B16FD7F13BF S$MA0005RR(BD031B0980B06C3B6003BA043BDCB1B0600B16FDB0380B04C3BC2EAB0000B069B7F157F S$MA0006RR(BC043BC2EAB0002B069BB0380B0200B901BBC740B0380S0000B0000T0004B020A7F1ABF S$MA0007R6T000CB0460C0004B0000B0000B0000B00007F887F S$MA00086N!X000CS$$ARB0000X000ES$$COP0000X0010S$$GRB0000X0012S$$LUP00007F24EFS$MA0009N0W0000S$MAPS0000X0000W$MAPS00007F8C6FS$MA00100@:  S$MAPS  11/10/79 15:38:07  SDSMAC 3.3.0 79.312S$MA@R00302S$KEY M019C$DATA 0000A0000B2000B2001B2020B3A0ABFF0DB30397F242F S$KE0001RR(B415AB0200A0010B0000C0014B04DDB06A0B0000B06A0C01BEB06A0C01E4BC0C27F1AFF S$KE0002RR(B06A0B0000BC043B06A0B0000B0380B0000C0034B04DDB06A0C0018BC020B00007F1F2F S$KE0003RR(B1359B150DBC060B0000B0601B0A81B04C2B0203B0050BC120C0002B0420B00007F207F S$KE0004RR(B06A0C0026B06A0C01BEBC081BD0F1BC020C003CB1109B0223B0200BDC60C00097F191F S$KE0005RR(BD460C0007B0221BFFFDB1001B05C2BD483B0983BA043BDC60C0006BDC60C00007F161F S$KE0006RR(BC060C0044B0601B0A81BC120C0000B0420C0056BC000B162EB06A0C005ABC0607F1CBF S$KE0007RR(C008EB0601B0A81BD212BA043B0223BFFB0B0503BC120C0004BC141B0420B00007F1B8F S$KE0008RR(BC000B161CB9212B1318BD012B0980B130DBC142B0585B9815C0000B1603BB4A07F1B1F S$KE0009RR(C0008B10F9BC102B0584BDD35B0600B16FDBD032B0980BA002BD406B0380B02007F190F S$KE0010RTR(BFFF7B1002B0200B901BBC740B0380B0000C0104B04DDBC22DB0002BC1C8BC16D7F160F S$KE0011RR(B0004B06C5BD038B0980B1316BD618B1608B9168B0001B1A05BA200BD038B09807F1ADF S$KE0012RR(BA200B10F3B0206B0002B0608BD038BDDC0B0980BDDF8B0600B15FDB0606B15F87F153F S$KE0013RR(B10E7B75D7B0380B0000C014CB04DDB06A0C0038B06A0C01BEB06A0C021CBC0C17F163F S$KE0014RR(B06A0C00A2BC043BC082B1304BD492B1302B06A0C0170B0380B0208T000CBD1F87F18FF S$KE0015RR(B0987B1302BA207B10FBB0608BD1D1B0987BD192B0986BA1C6B0227B0004BA1C87F160F S$KE0016RR(B0287T019CB1410BC181BD1D6B0987BDE36B0607B15FDBDE16BC182BD1D6B09877F101F S$KE0017RR(BDE36B0607B15FDBDE16B7618B045BB0200BFF0BBC740B045BB0202B0000BCC8B7F122F S$KE0018RR(BD491B06A0C002CB0201C01C0BC2D1BD461B0002BBC60C000EB0202B0000BDC727F188F S$KE0019RR(BD452B0641B045BBC24BB0208T000CBD018B0980B1314B0640B1106B1305BC0887F19BF S$KE0020RTR(B06A0C0266BC000B1307BD038B0980BA200BD038B0980BA200B10EEBD038B09807F18AF S$KE0021RR(BA200BC088B0459B04C2B0459BC24BB0208T000CBC1C8BC088BD012B0980B13197F15AF S$KE0022RR(B0640B110CB130BB06A0C0266BC000B1607BD038B0980BA200BD038B0980BA2007F1ADF S$KE0023RR(B10EEB0206B0002BD038BDDC0B0980BDDF8B0600B15FDB0606B15F8B10E3B75D77F123F S$KE0024RR(B0459B0700B1001B04C0BC0C1BC142B9553B1402BC141BC0C2BD133B0984BD1B57F182F S$KE0025RR(B0986BC000B1606B9D73B163DB9D73B163BB0644B0646BC186B1321BC104B13357F185F S$KE0026RR(B9553B1633B0585B0606B0583B0604BC186B1317BC104B132BB9553B1606B98137F1BEF S$KE0027RR(C0000B16F3B0603B0584B10F0B9813C0000B1603B0583B0604B10E4B9813C000C7F1E0F S$KE0028RR(B1A1AB9813C000DB1B17B10E5BC104B1312B9813C0000B130CB9813C000AB1A0C7F193F S$KE0029RR(B9813C000BB120BB9813C000CB1A06B9813C000DB1B03B0583B0604B10ECB04C07F197F S$KE0030RTN!B045BB0700B045BS0000B0190B0000B0000B0000B000CB0190B0000S000E7F316FS$KE0031NN!50266APPROX50262APPRX 301DADEPTH 301CCKEYBUFW000CKEYNCT00007F0FCF S$KE0032NN!W0000KEYTBL0000300A6LNECNT3015ES$$ARB301C8S$$COP30150S$$GRB7F1E0F S$KE0033NJ50010S$MAPK50030S$PKEY50100S$PNCT300BES$RIT 50148S$SETK7F299F S$KE0034JJ3009AS$WIT 30066STATE 40000TCAAVL40000TCANCT40000TCAPTR7F26FF S$KE0035J>30010W$MAPK30030W$PKEY30100W$PNCT30148W$SETK7F531F S$KE0036>B:  S$KEY 11/10/79 15:37:20  SDSMAC 3.3.0 79.312S$KE0037B583B0604BC186B1317BC104B132BB9553B1606B98137F1BEF S$KE0027RR(C0000B16F3B0603B0584B10F0B9813C0000B1603B0583B0604B10E4B9813C000C7F1E0F S$KE0028RR(B1A1AB9813C000DB1B17B10E5BC104B1312B9813C0000B130CB9813C000AB1A0C7F193F S$KE0029RR(B9813C000BB120BB9813C000CB1A06B9813C000DB1B03B0583B0604B10ECB04C07F197F S$KE0030RTR001F4S$IT$ M005A$DATA 0000A0000B0000B0400B0200B0010B0001B20007F2CEF S$IT0001RR(B0008B8080B0000C0014BC320B0000B1604B0200BFFF7BC740B0380B0201B00007F1F7F S$IT0002RR(BC1A0T0056B04E1B0000B05C6BC846B0000BC261B0000BC0EDB0006BC843C00367F186F S$IT0003RR(BC843B0000BD860B0000B0000B7B6DB000CB000CBC86DB0002B0000BC86DB000A7F195F S$IT0004RR(B0000B1603BC861C0054C005ABC12DB0008B04E1B0000BD844C006AB0B14BC2047F1AAF S$IT0005RR(B0A94B0203C0000B0202BC5F0BC30CB1102B40A0C000EB05C3B0A14B1303B15FC7F19AF S$IT0006RR(BE093B10FABC842B0000BD860B0000B0000BC208B1103BF860B0000C009AB2FD17F195F S$IT0007RR(BD021B0000B1630BCB61C0062B000ABC0A0C0016B1103BCB61C0042B000ABDB617F1A6F S$IT0008RR(B0000B000CBC208B1113BD0A1C006EB0205B2020BC0C6B0603BC121C00BCB130A7F1A5F S$IT0009RR(BA0C4B9153B1302B9093B1603B0603B0604B15F9BC844C00D8B0606BC161C00EE7F186F S$IT0010RTR(B06C5BD585BC0ADB0004B1304B0420B0000B0602BC740BC849C003EB0380B09807F19EF S$IT0011RR(B0220B0700BC849C010ABC740B0380B0000C0120B04DDBC1A0C00B6B1604B02007F1C5F S$IT0012RR(BFFF7BC740B0380B0201B0000BC261C0116BC0E0T0056BD120T0058B0984BC16D7F157F S$IT0013RR(B0008BC205B0B18BDCC5B0604B15FDBC0E0T0056B0583BD4E0T0058BC0ADB00047F11CF S$IT0014RR(B1306B0420C0102B0203BC740B1302B1041B74D3BD173B0985BC845C00F4B04E17F1BCF S$IT0015RR(C002CBC843C0032BD860B0000C0048BC0EDB0006BC843C0136BC186B1522BC12D7F17DF S$IT0016RR(B0002BC844C0060BC1ADB0008BD846C00CCB0916B0A96B1506B1305BA103B61057F18FF S$IT0017RR(BC844C0196B1002BC843C0174B0203C0000B0204B8000B05C3B0A16B1303B15FC7F1CCF S$IT0018RR(BE113B10FABC844C0094BD860C0098C00A4BC208B1103BF860C00A2C01D2B2FD17F153F S$IT0019RR(BD021C00AAB1304B0980B0220B0800BC740BC849C018AB0380S0000S0056T00007F1A5F S$IT0020RTB52007FEC0F S$IT0021R#W0056ITBUFA0000W0058ITBUFL000030046OPCRAS30180OPCWAS3017CPRBBAD7F03BF S$IT0022RJ301B4PRBCHC300B0PRBCUR301E2PRBERC300C2PRBEVN3019EPRBFIL7F1CBF S$IT0023JJ 301AEPRBFLD30024PRBI30132PRBO 30182PRBOPC301F0PRBRLN7F285F S$IT0024JJ30178PRBSFL301DCPRBUFL301CCPRBXFL50010S$RIT 30162S$SCPY7F201F S$IT0025JJ5011CS$WIT 30124STATE 301DAUFLBLK301D0UFLXTD30010W$RIT 7F263F S$IT0026J 3011CW$WIT 7FD32F S$IT0027B:  S$IT$ 11/10/79 15:36:55  SDSMAC 3.3.0 79.312S$IT0028B0BC1ADB0008BD846C00CCB0916B0A96B1506B1305BA103B61057F18FF S$IT0017RR(BC844C0196B1002BC843C0174B0203C0000B0204B8000B05C3B0A16B1303B15FC7F1CCF S$IT0018RR(BE113B10FABC844C0094BD860C0098C00A4BC208B1103BF860C00A2C01D2B2FD17F153F S$IT0019RR(BD021C00AAB1304B0980B0220B0800BC740BC849C018AB0380S0000S0056T00007F1A5F S$IT0020RTR#0005CS$STOP M0022$DATA 0000A0000BC06DB0002BC0EDB0004BC02AB00007F1F3F S$ST0001RR(BC010B130CBC08AB0222B000EBC002BC372BC3B2BC3F2B04D0BC741BCB43B00067F148F S$ST0002RR(B0380BC02AB0002B0410BC000B1611BC0C3B1306B0202C0058BC02AB0006B04107F1E5F S$ST0003RR(B0203BC0AAB000ABC092BA0AAB0008BC481BC02AB0004B0410B2FEAB000CB03007F168F S$ST0004RR(B0000S0000B0000T0004B020AT000CB0460C0000B0000B0000B0000B0000B00007F245F S$ST0005R0B0000B0400B0000B0000B0000B00007F9B9FS$ST00060N!X000CCIFLAG0000W0018EXPIRE0000W001AOVYSAV0000X000ES$GTCA00007F137FS$ST0007NN!X0010S$PTCA0000X0012S$SETS0000W0000S$STOP0000X0014TCA$CC00007F1CDFS$ST0008N0X0016TCAPTR0000X0000W$STOP00007F883FS$ST00090D:  S$STOP  11/10/79 15:41:41  SDSMAC 3.3.0 79.312S$ST0010D--------------------------------------------------------- B* ' LTXT $MA @BATCH LS=YES"L$************************************************************************L2*  BATCH STREAM TO INSTALL THE SYSTEM MENUS. 2:* THE SYNONYM =VOLBLD= MUST BE DEFINED AS THE VOLUME :2* NAME WHERE THE MENUS ARE TO BE INSTALLED. 2* '>* CAUTION: IF THIS BATCH STREAM IS EXECUTED AGAINST A >:* RUNNING SYSTEM, IT MUST BE RUN FROM A =TTY= DEVICE :.* AND NO OTHER ACTIVITY CAN TAKE PLACE. .L$*********************************************************************** L* ' .DATA @VOLBLD.S$PROC.M$LC&  T E X A S I N S T R U M E N T S &&  D X 1 0 S Y S T E M 3 . 3 . 0 &(.SELECT ONE OF THE FOLLOWING COMMAND GROUPS.(  /DEV  - DEVICE OPERATIONS   /FILE - FILE OPERATIONS " /PDEV - PROGRAM DEVELOPMENT " /SMAIN - DX10 MAINT ENANCE  /SOP - DX10 OPERATION(((  .EOD "  .DATA @VOLBLD.S$PROC.M$ALALIAS COMMANDS!( AA - ADD ALIAS & DA - DELETE ALIAS FROM PATHNAME&  .EOD " " .DATA @VOLBLD.S$PROC.M$BASIC "BASIC COMMANDS!(" XBB - EXECUTE BUSINESS BASIC"" XLE - EXECUTE LINKAGE EDITOR"$ XSB - EXECUTE SCIENTIFIC BASIC$  .EOD "  .DATA @VOLBLD.S$PROC.M$BGB   BACKGROUND/BATCH COMMANDS ($ BATCH - BEGIN BATCH EXECUTION $ CM - CREATE MESSAGE" EBATCH - END BATCH EXECUTION " EC - ERROR COUNT   KBT - KILL BACKGROUND TASK " SBS - SHOW BACKGROUND STATUS"" WAIT  - WAIT FOR BACKGROUND " XB  - EXECUTE BATCH SCI   .EOD "  .DATA @VOLBLD.S$PROC.M$BKPT  BREAKPOINT COMMANDS (@ AB  - ASSIGN BREAKPOINT  DB  - DELETE BREAKPOINT & DPB- DELETE/PROCEED BREAKPOINT & LB  - LIST BREAKPOINTS$ PB  - PROCEED FROM BREAKPOINT $  .EOD "  .DATA @VOLBLD.S$PROC.M$CFCREATE COMMANDS (8CF - CREATE FILE ENDKEY - END CFKEY SPECIFICATION8DCFDIR - CREATE DIRECTORY FILEKEY  - CFKEY KEY SPECIFICATIONDF CFIMG - CREATE IMAGE FILEMKL  - MODIFY KEY INDEXED FILE LOGGINGF"CFKEY - CREATE KEY INDEX FILE" CFPRO - CREATE PROGRAM FILE (CFREL - CREATE RELATIVE RECORD FILE($CFSEQ - CREATE SEQUENTIAL FILE $ CSF  - CREATE SYSTEM FILES  .EOD " " .DATA @VOLBLD.S$PROC.M$COBOL "COBOL COMMANDS!(. XCC- EXECUTE COBOL COMPILER BACKGROUND .( XCCF - COBOL COMPILER FOREGROUND (( XCP- EXECUTE  COBOL PROGRAM BACKGROUND & XCPF  - COBOL PROGRAM FOREGROUND&(" XLE - EXECUTE LINKAGE EDITOR"* XCT- EXECUTE COBOL TASK BACKGROUND *$ XCTF  - COBOL TASK FOREGROUND $  .EOD "  .DATA @VOLBLD.S$PROC.M$COPY COPY COMMANDS !(: AF - APPEND FILE  BD  - BACKUP DIRECTORY(DISK):< CC  - COPY/CONCATENATE CD - COPY DIRECTORY(DISK)<J CKS- COPY KEY TO SEQUENTIAL FILE  RD - RESTORE DIRECTORY (DISK) J@ CPI - COPY PROGRAM IMAGE VB - VERIFY BACKUP (DIRECTORY)@D CSK - COPY SEQUENTIAL TO KEY VC  - VERIFY COPY (DIRECTORY DF CSM - COPY SEQUENTIAL MEDIA  DCOPY- DISK COPY/RESTORE UTILITY F" IBMUTL - CONVERT IBM DISKETTE" PF - PRINT FILE  .EOD " " .DATA @VOLBLD.S$PROC.M$DEBUG "DEBUG COMMANDS!( /BKPT- BR EAKPOINT COMMANDS $ /GDEB - GENERAL DEBUG COMMANDS$$ /PDEB - PASCAL DEBUG COMMANDS $$ /SDEB - SPECIAL DEBUG COMMANDS$  .EOD "  .DATA @VOLBLD.S$PROC.M$DEL  DELETE COMMANDS ( DD  - DELETE DIRECTORY DF - DELETE FILE   .EOD "  .DATA @VOLBLD.S$PROC.M$DEV   DEVICE OPERATIONS ( /DISK- DISK COMMANDS  /DVICE - DEVICES  /STAT - STATUS COMMANDS  /TERM- TERMINALS   .EOD "  .DATA @VOLBLD.S$PROC.M$DIR   DIRECTORY COMMANDS( BD  - BACKUP DIRECTORY CD - COPY DIRECTORY$ CFDIR - CREATE DIRECTORY FILE $ DD  - DELETE DIRECTORY LD - LIST DIRECTORY" MD - MAP DISK(DIRECTORY) " RD  - RESTORE DIRECTORY & VB - VERIFY BACKUP (DIRECTORY)&  VC -  VERIFY COPY (DIRECTORY)  .EOD "  .DATA @VOLBLD.S$PROC.M$DISK DISK COMMANDS !(>CKD  - CHECK DISK FOR CONSISTENCY RCD - RECOVER DISK >BDCOPY - DISK COPY/RESTORE UTILITYSAD  - SHOW ABSOLUTE DISKBDIBMUTL - CONVERT IBM DISKETTE SADU - SHOW ALLOCABLE DISK UNITD>INV  - INITIALIZE NEW VOLUMESVS  - SHOW VOLUME STATUS>0IV - INSTALL VOLUME UV- UNLOAD VOLUME 0BMAD  - MODIFY ABSOLUTE DISK XCU  - EXECUTE 2.2 CONVERSIONB(MADU - MODIFY ALLOCABLE DISK UNIT (MD - MAP DISK &MVI  - MODIFY VOLUME INFORMATION&  .EOD " " .DATA @VOLBLD.S$PROC.M$DVICE " DEVICES $ (:CC - COPY/CONCATENATE HO - HALT OUTPUT AT DEVICE:4PF - PRINT FILE KO - KILL OUTPUT AT DEVICE4"RO - RESUME OUTPUT AT DEVICE" BL - BAC .KSPACE LUNO SOS  - SHOW OUTPUT STATUS .FL - FORWARD SPACE LUNO WEOF - WRITE EOF TO LUNO(4RCRU - READ CONTENTS OF SPECIFIED CRU ADDRESS 42WCRU - WRITE VALUE TO SPECIFIED CRU ADDRESS 2  .EOD "  .DATA @VOLBLD.S$PROC.M$EDIT  TEXT EDIT COMMANDS(, CL - COPY LINES  IF - INSERT FILE , DL - DELETE LINES2 ML - MOVE LINES  MR  - MODIFY ROLL VALUE 24 SL - SHOW LINE  MRM - MODIFY RIGHT MARGIN 4< SVL - SAVE LINES TO FILE MT  - MODIFY TAB SETTINGS <(0 DS - DELETE STRING  QE - QUIT EDITOR 06 FS - FIND STRING  XE  - INITIATE TEXT EDITOR6< RS - REPLACE STRING XES - TEXT EDITOR WITH SCALING<  .EOD "  .DATA @VOLBLD.S$PROC.M$FILE FILE OPERATIONS (  /DBMS - DATA BASE MANAGEMENT  SYSTEM   /DIR  - DIRECTORY COMMANDS  /EDIT - TEXT EDIT COMMANDS  /FILEC - FILE COMMANDS  /LUNO- LUNO /STAT - STATUS COMMANDS   .EOD " " .DATA @VOLBLD.S$PROC.M$FILEC "FILE COMMANDS !( /AL- ALIAS COMMANDS /CF - CREATE COMMANDS  /COPY- COPY COMMANDS  /DEL  - DELETE COMMANDS  /LUNO- LUNO /MOD  - MODIFY COMMANDS  /SHOW- SHOW COMMANDS  /SYN  - SYNONYM COMMANDS  .EOD " " .DATA @VOLBLD.S$PROC.M$FORTRN"FORTRAN COMMANDS (0 XFC- EXECUTE FORTRAN COMPILER BACKGROUND 0* XFCF - FORTRAN COMPILER FOREGROUND *(" XLE - EXECUTE LINKAGE EDITOR", XFT- EXECUTE FORTRAN TASK BACKGROUND ,& XFTF  - FORTRAN TASK FOREGROUND &  .EOD "  .DATA @VOLBLD.S$PROC. M$GDEB  GENERAL DEBUG COMMANDS(, FB - FIND BYTE  RT - RESUME TASK ,8 FW - FIND WORD  RCRU  - READ FROM CRU ADDRESS 88 HT - HALT TASK  SIR - SHOW INTERNAL REGISTERS 8* KT - KILL TASK  SP - SHOW PANEL *, LM - LIST MEMORY  SV - SHOW VALUE ,@ LSM - LIST SYSTEM MEMORY SWR - SHOW WORKSPACE REGISTERS@F MIR- MODIFY INTERNAL REGISTERS  WCRU  - WRITE TO CRU ADDRESSF: MM - MODIFY MEMORY  XHT - EXECUTE AND HALT TASK :  MSM - MODIFY SYSTEM MEMORY & MWR- MODIFY WORKSPACE REGISTERS&  .EOD "  .DATA @VOLBLD.S$PROC.M$LANG  PROGRAMMING LANGUAGES ( /BASIC - BASIC COMMANDS  /COBOL - COBOL COMMANDS   /FORTRN - FORTRAN COMMANDS  ( /MAC  - MACRO ASSEMBLER COMMANDS ( /QUERY - QUERY COMMANDS @ /RPG  - RPG COMMANDS  /TIP  - PASCAL COMMANDS  .EOD "  .DATA @VOLBLD.S$PROC.M$LUNO LUNO&(> AGL - ASSIGN GLOBAL LUNO BL  - BACKSPACE LOGICAL UNIT>L AL - ASSIGN (TERMINAL LOCAL) LUNO FL - FORWARD SPACE LOGICAL UNITL< RAL - RELEASE ALL LUNO'S RWL - REWIND LOGICAL UNIT <> RGL - RELEASE GLOBAL LUNO  WEOF  - WRITE EOF TO LUNO > RL - RELEASE LUNO(< MLP - MODIFY LUNO PROTECTION SIS - SHOW I/O STATUS <  .EOD "  .DATA @VOLBLD.S$PROC.M$MAC   MACRO ASSEMBLER COMMANDS(" XLE - EXECUTE LINKAGE EDITOR"$ XMA - EXECUTE MACRO ASSEMBLER $  .EOD "  .DATA @VOLBLD.S$PROC.M$MOD  MODIFY COMMANDS (B MAD - MODIFY ABSOLUTE DISK MRF - MODIFY RELATIVE TO FILE B" MADU  - MODIFY ALLOCABLE DISK " UNIT MM - MODIFY MEMORY  > MDS - MODIFY DEVICE STATUS MSM - MODIFY SYSTEM MEMORY>8 MFN - MODIFY FILE NAME MTE - MODIFY TASK ENTRY 8F MFP - MODIFY FILE PROTECTION MVI- MODIFY VOLUME INFORMATION FF MLP - MODIFY LUNO PROTECTION STI- SHOW TERMINAL INFORMATION F> MOE - MODIFY OVERLAY ENTRY XE  - INITIATE TEXT EDITOR>D MPE - MODIFY PROCEDURE ENTRY XES - TEXT EDITOR WITH SCALINGD  MPI - MODIFY PROGRAM IMAGE  .EOD "  .DATA @VOLBLD.S$PROC.M$OVER OVERLAY COMMANDS ( DO - DELETE OVERLAY IO  - INSTALL OVERLAY " ISO - INSTALL SYSTEM OVERLAY"  MOE - MODIFY OVERLAY ENTRY  .EOD "  .DATA @VOLBLD.S$PROC.M$PDEB  PASCAL DEBUG COMMANDS ($ ABP - ASSIGN PASCAL BREAKPOINT$  DBP - DELETE PASCAL BREAKPOI NT. DPBP - DELETE/PROCEED PASCAL BREAKPOINT .$ LBP - LIST PASCAL BREAKPOINTS $ LPS - LIST PASCAL STACK * PBP- PROCEED FROM PASCAL BREAKPOINT* SPS - SHOW PASCAL STACK   .EOD "  .DATA @VOLBLD.S$PROC.M$PDEV  PROGRAM DEVELOPMENT (L /DBMS- DATA BASE MANAGEMENT SYSTEM  /PFIL - PROGRAM FILE COMMANDS L0 /DEBUG - DEBUG COMMANDS /SM- SORT/MERGE 0< /EDIT - TEXT EDIT COMMANDS /SYN  - SYNONYM COMMANDS<> /MISC - MISCELLANEOUS COMMANDS /TASK- TASK COMMANDS >> /LANG - PROGRAMMING LANGUAGES  /TX - TX/DX CONVERSION> /OVER - OVERLAY COMMANDS  /PROC - PROCEDURE COMMANDS  .EOD "  .DATA @VOLBLD.S$PROC.M$PFIL  PROGRAM FILE COMMANDS (< CFPRO - CREATE PROGRAM FILE  BD  - BACKUP DIRECTORY<  MOE- MO . DIFY OVERLAY ENTRY CD - COPY DIRECTORY.> MPE - MODIFY PROCEDURE ENTRY CPI - COPY PROGRAM IMAGE>8 MPF - MAP PROGRAM FILE RD  - RESTORE DIRECTORY 8  MPI - MODIFY PROGRAM IMAGE  MTE - MODIFY TASK ENTRY  SPI - SHOW PROGRAM IMAGE  .EOD "  .DATA @VOLBLD.S$PROC.M$PROC  PROCEDURE COMMANDS( DP  - DELETE PROCEDURE IP  - INSTALL PROCEDURE " MPE - MODIFY PROCEDURE ENTRY"  .EOD "  .DATA @VOLBLD.S$PROC.M$RPG  RPG COMMANDS"(. XRPGC- EXECUTE RPG COMPILER BACKGROUND .. XRPGCF - EXECUTE RPG COMPILER FOREGROUND .(* XRPGB- BIND RPG PROGRAM BACKGROUND ** XRPGT- EXECUTE RPG TASK BACKGROUND ** XRPGTF - EXECUTE RPG TASK FOREGROUND *  .EOD "  .DATA @VOLBLD.S$PROC.M$SDEB  SPECIAL DEBUG COMMANDS(( ASB- ASSIGN SIMULATED BREAKPOINT (( DSB- DELETE SIMULATED BREAKPOINTS(& LSB- LIST SIMULATED BREAKPOINTS& QD  - QUIT DEBUG MODE " RST - RESUME SIMULATED TASK " ST - SIMULATE TASK   XD  - INITIATE DEBUG MODE   .EOD "  .DATA @VOLBLD.S$PROC.M$SGEN  SYSGEN OPERATIONS (F ALGS - ASSEMBLE/LINK GEN'ED SYSTEM  SMS - SHOW MEMORY STATUSF@ CSF - CREATE SYSTEM FILES  TGS - TEST GENERATED SYSTEM @F IBMUTL - CONVERT IBM DISKETTE XANAL - ANALYZE DX10 CRASH FILE FD IGS - INSTALL GENERATED SYSTEM XCU - CONVERT DX10 2.2 DISK D@ ISO - INSTALL SYSTEM OVERLAY XGEN  - GEN990-AUTO SYSGEN@H LDC- LIST DEVICE CONFIGURATION  XPS - PATCH SYNONYM GENERATOR H  MDS - MODIFY DEVICE STATUS  MVI - MODIFY VOLUME INFORMATION " PGS - PATCH GENERATED SYSTEM"  .EOD "  .DATA @VOLBLD.S$PROC.M$SHOW SHOW COMMANDS !(6 LD - LIST DIRECTORY SPI - SHOW PROGRAM IMAGE6@ LLR - LIST LOGICAL RECORD  SRF - SHOW RELATIVE TO FILE @4 LM - LIST MEMORY  STI - SHOW TERMINAL INFO4 LSM - LIST SYSTEM MEMORY MD - MAP DISK  MKF - MAP KEY INDEXED FILE  MPF - MAP PROGRAM FILE PF - PRINT FILE SF - SHOW FILE   .EOD "  .DATA @VOLBLD.S$PROC.M$SMSORT/MERGE#(& XBSM  - EXECUTE BATCH SORT/MERGE&* XSM- EXECUTE SORT/MERGE BACKGROUND *, XSMF - EXECUTE SORT/MERGE FOREGROUND ,  .EOD " " .DATA @VOLBLD.S$PROC.M$SMAIN "DX10 MAINTENANCE (6 /DISK- DISK COMMANDS  /TASK- TASK COMMANDS 6 /MISC- MISC, ELLANEOUS COMMANDS /TERM- TERMINALS ,: /OVER - OVERLAY COMMANDS /USER - USER ID COMMANDS:@ /PFIL - PROGRAM FILE COMMANDS  /VOL  - VOLUME COMMANDS @> /PROC - PROCEDURE COMMANDS /WARM - WARMSTART COMMANDS>  /SGEN - SYSGEN OPERATIONS   /STAT - STATUS COMMANDS   .EOD "  .DATA @VOLBLD.S$PROC.M$SOP  DX10 OPERATION!(B /BGB - BACKGROUND/BATCH COMMANDS  /TASK- TASK COMMANDS B6 /COPY- COPY COMMANDS  /TX - TX/DX COVERSION 6< /DIR  - DIRECTORY COMMANDS /VOL  - VOLUME COMMANDS <4 /DVICE - DEVICES  /WARM - WARMSTART COMMANDS4$ /MISC - MISCELLANEOUS COMMANDS$ /SM- SORT/MERGE /STAT - STATUS COMMANDS   .EOD "  .DATA @VOLBLD.S$PROC.M$STAT STATUS COMMANDS ((  LTS - LIST TERMINAL STATUS SMS  - SHOW MEMORY STATUS  > MDS - MODIFY DEVICE STATUSSOS  - SHOW OUTPUT STATUS >F MTS - MODIFY TERMINAL STATUSSTI  - SHOW TERMINAL INFORMATIONF> SBS - SHOW BACKGROUND STATUSSTS  - SHOW TASK STATUS >: SIS - SHOW I/O STATUS SVS  - SHOW VOLUME STATUS :  .EOD "  .DATA @VOLBLD.S$PROC.M$SYN  SYNONYM COMMANDS (  AS  - ASSIGN SYNONYM VALUE  LS - LIST SYNONYMS  MS  - MODIFY SYNONYMS $ Q$SYN - DELETE SYSTEM SYNONYMS$ STI - SHOW TERMINAL INFO  .EOD "  .DATA @VOLBLD.S$PROC.M$TASK TASK COMMANDS !> AT - ACTIVATE TASK  XCPF  - COBOL PROGRAM FOREGROUND>< DT - DELETE TASK  XCT- EXECUTE COBOL TASK (BKGD) <8 HT - HALT TASK  XCTF  - COBOL TASK FOREGROUND 8( IRT - INSTAL REAL TIME TASK  XFT( - EXECUTE FORTRAN TASK (BKGD) < IT - INSTALL TASK  XFTF  - FORTRAN TASK FOREGROUND <: KT - KILL TASK  XHT- EXECUTE AND HALT TASK (BKGD):B MTE - MODIFY TASK ENTRY  XRPGT - EXECUTE RPG TASK (BKGD) B8 RT - RESUME TASK  XRPGTF - RPG TASK FOREGROUND 82 STS - SHOW TASK STATUS XT - EXECUTE TASK2L XCP- EXECUTE COBOL PROGRAM (BKGD) XTS- EXECUTE TASK AND SUSPEND SCIL  .EOD "  .DATA @VOLBLD.S$PROC.M$TERM TERMINALS #(  LTS - LIST TERMINAL STATUS  MDS - MODIFY DEVICE STATUS " MTS - MODIFY TERMINAL STATUS" STI - SHOW TERMINAL INFO  .EOD "  .DATA @VOLBLD.S$PROC.M$TXTX/DX CONVERSION (L DXTX - DX10 FILE TO DISKETTE FILE TXDX - DISKETTE FILE TO DX10 FILEL8 IBMUTL - CONVERT IBM DISKETTE TXFD - FORMAT DISKE8TTE < TXCM  - COMPRESS DISKETTE FILE TXMD - MAP DISKETTE<F TXCP - CHANGE DISKETTE FILE PROTECT TXSF  - SET SYSTEM FILE F" TXDF  - DELETE DISKETTE FILE"((8 TXXLE- EXECUTE LINK EDITOR PRODUCING TX PROG FILE8  .EOD "  .DATA @VOLBLD.S$PROC.M$USER USER ID COMMANDS ( AUI- ASSIGN USER ID DUI- DELETE USER ID LUI- LIST USER ID'S MUI- MODIFY USER ID  .EOD "  .DATA @VOLBLD.S$PROC.M$VOL  VOLUME COMMANDS (" CKD - CHECK DISK STRUCTURES "" INV - INITIALIZE NEW VOLUME " IV - INSTALL VOLUME& MVI- MODIFY VOLUME INFORMATION & RCD- RECOVER DISK SVS - SHOW VOLUME STATUS UV - UNLOAD VOLUME   .EOD "  .DATA @VOLBLD.S$PROC.M$WARM  WARMSTART COMMANDS(@$ IDT - INITIALIZE DATE AND TIME$" INV - INITIALIZE NEW VOLUME "" IS  - INITIALIZE THE SYSTEM "  ISL - INITIATE SYSTEM LOG   IV - INSTALL VOLUME  MDS - MODIFY DEVICE STATUS & XANAL - ANALYZE DX10 CRASH FILE &  .EOD "  .DATA @VOLBLD.S$PROC.M$MISC  MISCELLANEOUS COMMANDS(6 CM - CREATE MESSAGE SDT - SHOW DATE AND TIME64 EC - ERROR COUNT  SMS - SHOW MEMORY STATUS48 IDT - INITIALIZE DATE AND TIME SV - SHOW VALUE 8: LC - LIST COMMANDS  WAIT  - WAIT FOR BACKGROUND :J MSG- WRITE MESSAGE TO TERMINAL  XANAL - ANALYZE DX10 CRASH FILE J< Q- QUIT/LOGOUT  XCU- EXECUTE 2.2 CONVERSION UTILITY<J Q$SYN - DELETE SYSTEM SYNONYMS XGEN - EXECUTE GEN990-AUTO SYSGENJ  .EOD " * '* ' CM R=ME,M="MENUS COM PLETE" * '* 'SDT & EBATCH% EW VOLUME "" IS  - INITIALIZE THE SYSTEM "  ISL - INITIATE SYSTEM LOG   IV - INSTALL VOLUME  MDS - MODIFY DEVICE STATUS & XANAL - ANALYZE DX10 CRASH FILE &  .EOD "  .DATA @VOLBLD.S$PROC.M$MISC  MISCELLANEOUS COMMANDS(6 CM - CREATE MESSAGE SDT - SHOW DATE AND TIME64 EC - ERROR COUNT  SMS - SHOW MEMORY STATUS48 IDT - INITIALIZE DATE AND TIME SV - SHOW VALUE 8: LC - LIST COMMANDS  WAIT  - WAIT FOR BACKGROUND :J MSG- WRITE MESSAGE TO TERMINAL  XANAL - ANALYZE DX10 CRASH FILE J< Q- QUIT/LOGOUT  XCU- EXECUTE 2.2 CONVERSION UTILITY<J Q$SYN - DELETE SYSTEM SYNONYMS XGEN - EXECUTE GEN990-AUTO SYSGENJ  .EOD " * '* ' CM R=ME,M="MENUS COMo|d<ѥ B  U eqQn 8(#iCoHtot anL nNpVoHodL"`(BE̱CqF 8(n#iC"̱FUe o o/H Wgp\o|/|'ToqQp\|oPAWg#`(`(C  "o|̱̱o̱Cةó̱̱CT΋Ɠ  q qJ[  ING TASK CODE$SPECIFIED DESTINATION IS A DATA FILE.INCLUDES AND EXCLUDES SHOULD NOT BE INTERMIXED6END OF CONTROL FILE READ WHEN DESTINATION WAS EXPECTEDEND OF LINE EXPECTEDIMPROPER FILE NAME)FILE NAME NOT IN DIRECTORY AFTER CREATIONILLEGAL DIRECTIVEIPXHl,T4B0#R#sJf ܱԩo#@d,BF(R`bd ?; VoRVf h(d!j oR7f h\{fhnLnN jC`"B "R̯RįV2 oJ/R,ĠioRoJfQ  r& TU 'A(ܱo   & t/)G/F?%oJf ܱ)  %) F'̷̷̷(N&V/N(*(/) Td F)FILE NAME NOT IN DIRECTORY AFTER CREATIONILLEGAL DIRECTIVEIi ii<\CRf ro$-R oTf rK)  )  & t)/~o ܱ/n o r)  V) F"#` CE^ <F 5.a%D1Z \oZ nLnN o^`n!A $) T DFGPRR,ĠioRoJfQ  r& TU 'A(ܱo   & t/)G/F?%oJf ܱ)  %) F'̷̷̷(N&V/N(*(/) Td F)FILE NAME NOT IN DIRECTORY AFTER CREATIONILLEGAL DIRECTIVEIi iviҚl YUn4Na  ˁJ|8MnR$ήJZ\^  %\ʀ *JTJ# BE!m aQƑ).QƑ1ee nRnFmme \  E!) \aT @@ $) T DFGPRR,ĠioRoJfQ  r& TU 'A(ܱo   & t/)G/F?%oJf ܱ)  %) F'̷̷̷(N&V/N(*(/) Td F)FILE NAME NOT IN DIRECTORY AFTER CREATIONILLEGAL DIRECTIVEIo|l(``A`'!-```n  bhf() R)  ll  bhf΋΁ Q  $>QD "#BaFhEDE΄9%GJ`k΋<@hf)@`bf\d fҚl o):PFo1aD)t#aD //8o'hf(΋  h(΋K"?h( k +hfi.hfhf΋n qM!DBh(Dhf΋l ^ l V NIjE̮EA̮E=̮E9̮(E5̮*E1 ,m!Ąn7 <n6 8 ԄE [N!V:̱E C6Hkh I7 )>hf? I4ݩ I-@&I E (hi  &B 8/(" @ @  &΋7 B8K6 . DR D RR=DR D4؟D4 D D xD xDDn  D D 0D 0|:D|SD qD$rD$DD1D5D;`S$ҙD$8bӟD8"YD kD uDJ DIH\ODHT$DS<D D1D"D" @DRADR'WD'}D (D +D+Q4DvܟDDDID),D)ЙSD@pD#@4*D#@>jD#@* D#@- D#@-FDF<D<f6DfTD dDfDvD eD fD gD hD yD P iDDjD0}D D ~D^ D D D ~ ßD ğD şD ƟD ǟD ȟD ɟD ʟD ˟D ̟D ͟D ΟD ϟD ПD џDEҟDERESERVEDSCA SCI BCA TXDXFC RES06 RES07 RES08 RES09 RES0A RES0B RES0C RES0D RES0E RES0F RES10 RES11 RES50 RES51 RES8B D1RD5ZDt1XD#8D7D8D9D:D;DD?D@DADBDCDDDEDPARSER E$EDIT E$CMD$ INTACT BUILD L$$PB3 L$$PB4 L$$PB5 L$$RS3 L$$RS4 DEBUG L$$AB L$$ASB L$$DEB L$$FB L$$MI L$$MM L$$PB L$$RS L$$PB1 L$$PB2 L$$RS1 L$$RS2 L$$DB L$$MR IFROOT I$OSVC I$OUCB I$OERR L$$RS5 DERROR MODSYN TINFO OUTQUE MTMPMO RES26 RES27 RES28 RES29 RES2A RES2B RES2C RES2D RES2E RES2F RES30 RES31 SMS L$$SPS L$$PB6 L$$APB DT~ DT~ 7DT~3Dv3%6Dv3: rDcN wDcN }DcN: Dc Dc DT~" DY" DY"  (DY" 6DY"* EDY"0 VDY"` hDY" DY" oD`  D` D`  D` DY"2 џDY" DT~ De De De Dc۟DT~DT~DT~DT~ PDT~FD*GD&*HD'*ID(*JD)*KD**LD+*MD,*ND-*OD.*PD/*QD0*v gDT~p DY"  D` DY" m ( $/  `N/`O2/hnYI Q®I Q®Id`R~ C.4E~CRP h~Rd (n‚:>*ĺȺ?`* `a  A    j `(rE®ɔF~ɹGɗ~ɗh~a bڨ `a`ܨ:>J®9`=GE® R8 )RX )//  `SYĺSTļEMľ` ĺļľ/ ) &Ē 222/ [A8`" R[k`,Q`-"0B@ Q/; `@ܱ[P9P    .&-4;BIPW^elszɁ 1&- 4 ; B I PW^elszɁ                  ! Ɉɪ7ɗ3 ĺ@ @ :@ z@ ź@ @ :@ z@ ƺ@ @ :@ z@ Ǻ@ @ :@ z@SYSTEMTPB dSHOW MEMORY MAPMEMORY SIZE =#### K BYTES =#### BYTES#### K#### K#### K#### K#### K#### K#### K#### K#### K#### K#### K#### K#### K#### K#### K#### K# OF HOLES =######## K AVAILABLELARGEST BLOCK =##### K @ @ @STATIC MEMORY = XXX KCPU USAGE = XXX %SYSTEM DISK USAGE = XXX %ͩ @2D`@@0@@QEFF`S2TP DII$I$I$I$DDI$I  2/JȆ ./ "4/T/V/jf QaX` /T z7 *** UNABLE TO BID SCI - FOREGROUND LIMIT EXCEEDED ***@&Ŗ˜/`).)n hAe)r' ʟʢ,hA Z&hA=b Ab   a`ĦZ `ʣ ʜʢ/ʠ)ng)r @Ħ@N`ʣ ʜʢ/ʠ yZ /)@΋ x ʣʣ'(ʣ/ʠ`ʡ ʞʢ ɰ"h!{NNi΋Ht  Op5qQaap uВ Bww"wPapHpi΋b<  0 b b  H> J@ LB NDid΋ PDHH i΋! hA@O ʚʮ/ʬ`ʭ" ʲCʲʶD ʞʮ/ʬ`ʭ ʛʮ/ʬ# x"ANN hAi΋hA4ʦʪ/ʠ`ʡ)0" ɰ"h!{NNhA@ThA@i΋ ʜʢ/ʠh!N(/(/ ʝʢ,i΋G&B&i΋`>`@`B`D3 Di΋dFF< @!00i ΋ B>i0123456789ABCDEF΋ ʚʺ/ʸ ʞʺ1 ʾ`>`@`B`D/ʸ ʛʺ/ʸi / / / //@LƔ&nǘU a f ȯȕ+Z#&v & Ȫ G7nȾP Țw ȡi A ȅPU a ȁȺU a ȕȷȁȺU P,1 Ȋ =7n[ȾU a f~ȯȕ A= B= BIT= BLK= BANK= BASE=, B= CHAS= CORRECT= DEV= ERR== EVEN= IID= L= LEV=000 MEM= OTHER= P= PC= POS= PARITY: A= RID= READS= RETRIES= ROW= ST ST ST= TPCS= TSB=KB TYPE= WP= WRITES= @: +% **** LOG FILE .S$SLGX FULL# **** LOG MESSAGE(S) LOST8 **** DEVICE MISSED LOG MESSAGE, I/O STATUS=XXJ **** FILE MISSED LOG MESSAGE, I/O STATUS=XX ON LOG FILE .S$SLGX' **** DEVICE LOGGING DISABLED% **** FILE LOGGING DISABLED$ **** ALL LOGGING DISABLEDDDD:HHMM DDD:HHMMXAAAA PRP.S$SLG1.S$SLG2++2$ޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ 4 DBMA LH @  A!`1a@4(Md` T$AQ$D U * mk ! !BB!!BB!!A@h&2@ 8+$/o!/n°/rÂnUۀ o!r/Xn (:oޘ9/$4" [0J ZK. L.N fP/H I B:Ȯ@&xHd" ]Br" n (:İ/noÀ]/$X" [Q " Ȯ@Ȏ./r`hȯ^Ȯ@&xȮȮȈ.ȉ0ؠ\ /@P !..!00Đ/rNx`h`š`š/r`:΋/ ^/`2/`- C # D$86/(/8 _/`)  3   @ / o΋/nn !lh. j@.m.o.qmAV^oo ΋ / n  /o &2/Ю  /o Qo^/$ #ہ CD/nɦ/rÂ/ɪ΋Dn % Ϩ & ϰ  ϸ n ` ^b/Qb @ ao΋b A@o Qb^^n ː`d`o΋ʜʒˆʊJʊLʊʊ@ςʒAo΋n %& Na V/C 7B/@ A$ G  F B ; : > <0( 8B/@o P՜΋ɬzn :l~lz~zo΋ˌ@ˌo΋֦˾ˆ˴J˴˴˴``o΋ɬn :o΋-0"  @! A`@< @ <@o΋̊̆̆`H`d` A ao΋̘R̢o΋. m  A` 4 q$R$N% 5>o΋.  D qR` nϨn ϰ@E P@e /`% ` "n %n& .n . t&t.Ԉ>o΋&a ^  n e  [o΋n + ϨEΐ" EB qE ϸRءC% ʄn >o΋n ( '. 4"(% $|(o΋o΋   ADTʁہ ɬ~o΋ 8B/@`AAo<\Ü΋p9 0 &  Po΋6AU :   6<6o΋ҐϨ%nA@`:@Dn`>۠ " ""p`#ss>#ss>@p`o:΋y VFUP<oBCA78FGHIJ23456vDfєѮѾ΋tѐ,ѐҒo΋ѪȠBPo΋o΋o΋o΋ o΋ o΋o΋A` P9 o΋tbb`Ғo΋Ҋt`Ҏ`Ґ Ґ"o΋`ҐP+ Ҏ"P$Ҏ`":P <` ӂҎ Ҏo΋Zӂo΋ZӂJIIo΋Ҏ`" R <`   o΋A`#s!3Scq1Q#s>DR#3cq1Q DR#3o΋` ! A` <` hpfN!  ffo΋ԂԚo΋ o΋ >Ծo΋N! й¢Bo΋y o΋ yyPo΋ # #   ACʁPo΋/@@!@ S! ՜o΋ @  o΋2-m  EaD qE&  2%E "r\Xʁo΋R֢Ōo΋n W! ^[ "o ȑo΋ Qo΋ "RHo΋ b"  I! R   `  a a  R״o΋C   >a oC@@21D@-R( @Ej @ 3ـ R*f0ll  B)6@A@IdT@$ &!` ` e+i1Z@U(*,h@"ЁD1!B`$J@  P@KB @e@6&2$ TASK/ l!(,n,r h^^HG)/i/ ^("$$ h@ hX`% lJ!,nh@ HB FhBBhFBhBh@@aFBDFȃFDHDFFhDBFȁD(  h@! !&) ¤Ƞ(Ƞ2Ƞ4 ؃ ب بh ؃Ȩ(Ȩ*Ȩ,Â( 0/ ,A,B @!H ! V2$@@ #() .$AZaz09XVOLUMEXXXX.XXXXXXXXDS01 VCATALOG @ ./r tl-B̳A` Cȁ^/z, l,nMpÂ` ȡ^,/x,rn`&*~n 'b* ,, ,,΋[~ l!. ~ l΋΁o p`' qaJl( *t*d^ZTJ@ P P *&ž <΋of ƨ~Āt*|h8˂ƪ"jAQƺĈh8h8˜,`|6 `~d 4@~ "4 Ȅ4(Ȥ 4Bv l @ !Ű `~d 4v `~d 4vƖ΋ɔoA` a(`8`@`l`loA !aF`V`^`^`DŽq`ɔ!#B8$ Ĉ$o>͵G`Ę`z$$!o!`t`Ĉ!$l΋oA` a<oA aR|x κxxМxl΋|ζ`~l΋|Ď|A`V Ď&CDo%%Ц BaBE"&ĐXo%CDEČhCDECD  ĄĂ `~l΋tИńܱ`Ā!Ŏ̱Coб Ø1Ō|Ă&ĄCCoЊxĄЊl΋tѪѮBBŪԯددŘ3@ŪsŪ2D Ġ  DфD qDE Gq GCFE #àC pGIѐŮѐH̀À̅l`IѐIќl), ΋X!Z <[ ` Ğ 2B` f 0 , l B` $& B` bF`V```B "bf`Ҍ`Ґ``P`abc`ĨĬ$&Ġ$Ģ&(*Ĥ(Ħ*` 2B`Ķ$&Į$İ&(*IJ(Ĵ*``҈xhrYo"<`8`B!"B[$&ĸ$ĺ&(*ļ(ľ*o$~oБ  #!## ##! c dd|eyfvgshpimjjkgldmaÁ!#Ĕ"/$< C8C8 oBĈC&Knp$&$&Kh(*`KnpЯЯЯ$@v/&9D8¡<Ğ= ĞEv$&$&$&(*(*ĞĞ|l΋C !ʄl`@@ !9΋/! ی`F Cfo!X! ֶܰ Я z!o1 RoB$EB"?<-9B-1'.o `)K/  *o`} JL~ l,΋BJL  Ӹ :ȄتK ʂl-), ΋ ؾȣ 4B@zC 4 ȃ4ȣ 4b:`ȡتȠc@ Pȃ ȣ4 4ʂB@ @> Aȁlv'vBv), vrȣ 4΋>ѷ GaB J`N>KL`Bbx:"!GaE @5bA@'Bʅ 4 C4l!Ev'EvBvEvrDK΋&` b$`oA`{`lɁ ɡ4 F4t~*j~c`$`F`T `(# C~~ 4&"'~jf 4DۊȄȦ8j܆ʂljf 4΋o q CBJUzLD`#$#s o K*o    o` l! ΋`ȃBȁl΋ @b  l΋ 1Bbl΋ 1BТ! B@l΋Al΋ݸ j[ #*j Cl ME ݨDUMYݲST00ݨ΋" @bx #zjʂl΋b)A 1A/ >l!@΋od1```"K/ ޺ʂl-{ & .S$PRINT.LP00LP$1b΋1 ܀jܠl΋Б  t`1 JбCб>48.2&#`&#E t``ʘ l΋XB|LBF!"DQ̱ETl), @΋ o b `&!@ $ n"Jb H`jJB luv p,J:Cv΋B@"`F f4 f8Ʌ4ttɥ 4 lɥ 4΋! !"!8/ a&"@1 1/ l "΋ &8&4  Ɉ4tV'`!4rD!!'@'! p r@E!je!`j!ɨ 4l@΋+ŀE6p9D =D:<l, j  ,΋HBl΋O!&BVl΋,n\,r/r,rlP$΋*n YVa BvB $&|$B@B "BBAaz AN!J4l ۯ ۠x ۠y n ہ l΋AN!N!ܱܠԅl .,,΋*n   ۠ l P$΋ C( `e$De@DD ۯ l/ ۯ CB˃C C % C * +l Q^b^^ȃ^./˨˨^b^^ȃ^B!XШ#ۨ *   l۠& ΋. .n!X"l Q^b^^ȃ^/^b^^ȃ^ۨ    . ۯ lہ PB D@ ,%fD' Mbյ @0`PPP*A @jTi(PZJ P**(% UdTDF@I$4304@h2@"  0DDAD@10 0@ **! $ %I@@ H% @ $@`00LHd   mQ000b@@6  (`0l0 @HE D$  I$D@00@a1 @` **66@1&06 0 A@M0$  0HH - ``X5HPV-I4efm!Fa4 D1 @`h&b  c11  6 c3@ ` `T i@PAeU5JS" $ @ @@ T@ ` @ D& &2//$#D/n/r D/n/r/؀ C/$/P/Q΋.  ^" tbGbE"D @|bKbI"H @̈́bObM"L @o΋n  //  /  /@ / @oD΋8p=o)*37;΋ fo΋ fo΋ 0/ o΋  /  Y  Ro ΋>o ΋ / n  /o &2/Ю  /o Qo^/$#ہ CD/nɦ/rÂ/ɪ΋Dn ( t ) |  ̈́ n ` ^b/Qb @ ao΋b A@ o Qb^^No΋. @ʢʢˆʀʬʀʀ@. @ʢ`0`2@Ao΋ɬn ] ͤ_o΋n t"~h<ll|lÜ̈́E~hl|~h\llhÜlo΋͌Do΋* Bʁf ʁf ` I\fo΋B۲j6̄ ΄΂Do΋΄3Co΋ ΄ ##@ ΄ $ ΄Dʃo΋## ΄  ΄Cao΋~&D%t*&ه \̈́*&A\ ه \o΋ ACq BRf ʁo΋D>o<\Ü΋ @  o΋͌ Qo΋΂b"Ά ΂IΆ!Έ΄ΈR@ ΄  ` ΄ Έa a  R,o΋ΆΈC ΄  >~a o΋ " B<`o΋n W! ^[ 0"2o ȑoC@@21D@-R( @Ej @ f0 5)J F L CIH  @ " T*DT@D& &2//$#D/n/rÂɬ D/n/r/؀ C/$/P/Q΋. ^" ,bGbE"D @4bKbI"H @o ΋ / n /o &2/Ю /o Qo^/$#ہ CD/nɦ/rÂ/ɪ΋o Qb^^o΋. @ˆ$@. @`t`v@Ao΋62ʸo΋Dn  , 4   < ^!B n` ^b/Q ao΋n A \ہ)n]# _-  D` 1 qR(# o<\Ü΋ @  o΋2-m  EaD qE&  2%E "˴Xʁo΋RŌo΋D Qo΋nW! ^[ t"vo ȑoC@@21D@-R( @Ej @ Ͱ  `"A //Q=/Ē: J^ pt/Ē-V‰&/Ē$&@ & ~/Q  %*//z%, p//% %"Hn2+`d .VCATALOG .@ Ŭ .S$FGTCA.S$BGTCA .S$TCALIB.S$PROC.S$SDS$` `+#+`&   RU` Ō ŢƦ ņ Ŧ Ũ ŨƦ` ňƦ Ū ŊƦ' ŒƦ Ŗ Ŏ Ʀ ŘƦ Ş ŠƦ/n/``Őm %![ [mTj!Z֢5EJ@@n2$$ /*,/no!^Ânm !`&&m(m*m,`: `Fn Ю  9`B ہ l 7 ,6 6 6 7$8!, ,(,*,, (& :  <Ĝ`2`<$HT (22222`2Bef D\` 7%& <6 o>hL 6h6 6o!2h0o!2 6h&.0 8 L@Rđho!(h LhL/T:/2ۀ o!h/v`H/0/"/#PH ! D ! "H AZaz09  F42 / lÍ-.,nMD,ro "&{ QoQ& N>,0,1/,2,3`.&a(a*a,`0 ΋ ^l 6" 2" 3 4 5 6 7 8 9 : ;΋/ l΋## ѳ*)(' ,+& ܆DDl΋1  8<ʃl΋Bl΋<<> q+JޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k΋ B D ZB`B΋΁΂ Ba4v  rTOv ( FD ݦ=D ݦ5    B"܀̳ē( Y N    *`" B r D F T& </*(C"$ ѕ &NNѵ #ܠ ܠ ܵBB& B D ݴ ERROR IN OUTPUT TERMINATIONP  j,`N-`[j /`c/' `J `[/`W/`Z/,*ʇ,j,'-J!****XX xaʁ,GVX>`Tj,`N.*#2CDD C`b`d/С B $2D. j,`N<.`R-m (1 1   2 D   2⊂ʂ`Pj."2 ܃[ E`LB`Y/! 0C`eE/! !   ʂʁ,[&"`V/`Z/ @*p *xJ!ʁp*v|2| jd |2I`@*v*pʪhj|t| `@|t @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A & 'J)#ȂG(09(H E`о  #` m@  @ p@ bA@AIPmqm&FEmGHmr&899@DDE    ba [[BCEEF[AtI1܀ ܱ@[>K-+09A/*m `Ҝѱ * yx@m  @"  *@* **@  ~* }EF HIm  4yx)zv z +М+ 88GB w b@B@ABE F ABI@J!B xCTTAv1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  hEeD4 4YtW@tPtNKђ E+`DԁC5u @1`taC$   At  aԇtm* "ròAC*:* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ*  |12$ |1`a2$ ? ?mCD[(׼XjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[@ l`pL l`X l`Jd l`ζ *^ ~`j ~`6v ~`x`:`SYSTEMp `  `Z. `d: `Ѣ^F N`ҀZ*6Zf*^ N`j N`Pv ݀ `ސޔݐ ݀`F`T  ݀`xݪ ݲ`ݘ^ݸ `Zf~ `> .S$FTLF00N`V``$ނ ފ`@ `&`( ) "Mjk@RD[)"T @jV`"I HUQ$HDI@YB@ @@TA "(   * B T( @ @H @ @(( ]u>T@PD& &2//$#D/n/rÂɬ D/n/r/؀ C/$/P/Q΋.  ^" bGbE"D @ bKbI"H @(bObM"L @o΋n  //  /  /@ / @oD΋8p=o)*37;΋ fo΋ fo΋ 0/ o΋  /  Y  Ro ΋>o ΋ / n  /o &2/Ю  /o Qo^/$#ہ CD/nɦ/rÂ/ɪ΋b A@ o Qb^^o΋0ˆ ʶ n ئBʌ ˂`ʈ`ʊo<\Ü΋n W! ^[ ʈ"ʊo ȑo΋x"Rʴo΋vb"z vIz!|x|R4 x  ` x |a a  R o΋z|C x  >ra o΋ " B<`oC@@21D@-R( @Ej @ 6b $A- +Q ¬   VOLUME NAME: ADUS: # BAD:  BYTES/ADU: AVAILABLE:  LARGEST AVAILABLE BLOCK:  CONTROLLER RETRIES: PRIMARY SYSTEM IMAGE: # SECONDARY SYSTEM IMAGE: NAME INSTALLED: 1 2 zLj/t v6ǮlQDSB*!xz8t !*B!,Daz` 67`@Ǯ BDK`A, m@ n@ `6 p@ <$>`< = l Qa^!a`!(." "% o@P68 67PdPl >& L( @% A9z2 44 0*,`& 0$@6E ,,* 5%و,, q@ r@:Ǯ`PPFʎ7ʎUʎ&˨_ʎ(˨jʎ2˨yʎ*˨ʎ,˨ʎ.˨ʎʎ(x hzh|h~hʎ 9ZƖƴ %! `ȐERROR INITIALIZING INPUT ERROR OBTAINING VOLUME PARAMETERERROR OBTAINING DRIVE PARAMETERERROR: VOLUME NOT INSTALLEDERROR ASSIGNING LUNO TO DRIVEERROR FORMATTING OUTPUTERROR OPENING LUNO TO DRIVE#ERROR: CANNOT FIND LUNO JUST OPENEDERROR READING FROM DRIVEERROR: ILLEGAL DEVICE NAME΋/  l{ܱ[΋T > @ >`̔΋L΁΂ >a4v  TOv ( FD (=D (5    "܀̳ē( Y N    *`t > @ B 4 ׾/*(C02, |ѕ &NN,ѵ 1ܠ.ܠ.ܵ,BB4 > @ 6 ERROR IN OUTPUT TERMINATION΋PDB @B`̄΋R @ BD B  B`̌΋V @ DB`̜΋P @ BDA BJ ΀ʎNJ JB`̄΋R΁΂J!*  Ԁ  |Bʎˠ*`̌΋R΁΂J!*  Ā  |Bʎ*`̌΋V @A 6`D66`̜ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kP  j,`-`j /`/' ` `/`/`/,*ʇ,j,'-J!**** xaʁ,G`j,`.*#2CDD C``/С B $2D. j,`<.`-m (1 1   2 D   2⊂ʂ`j."2 ܃[ E`B`/! 0C`E/! !   ʂʁ,[&"`/`/ @*p *xJ!ʁp*vϴ Ϟjd ϴI`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A Ѩ 'J)#ȂGf(09(H E`@  #` m@  @ p@ bA@AImqmѨfFEmGHmrѨ899@DDE    ba [[BCEEF[AI1܀ ܱ@[>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  MNhEeD4 4MYtW@tPtNNKђ LE+`DԁC5u @1`MtaC$N   AtM  aԇtm* "ròAC*ռ* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`L=`NF%00څڅj ʁ*  |12֦ |1`a2֦ ? ?mCD[ת>jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[X `X `\X `X `8ݒݔ ݬ `hX `ϸX ``:`SYSTEMp `ݎxݠX܀ ܈`BXܰ ܈`Xܼ ܈`$ `ܬܸݬ `VX `X  `ӜpX ``  `X, 4`P: B`d݄pX| ݄`ݖ .S$FTLF00cX`XX`|`֦X ` p`ר`תj @K- mA vU0 2Zhֲk&fk&f@dI(A JDP DPAT $DPB% JD0R!C%5H@!@PP@  $ B @]uX]u]t]z @ uԨ  ~s  `` 7 2/! C &*&,F!z&K= L $/" " %VL/J J@  $/" "  46 N  (`n  (`  (``:`SYSTEMp `0B  `F `r`  ` `&  n &` R8 .S$FTLF00r z` ` ` Ȅ*!BRf%2+@RH"˜A" @ " B A뮸5P]}PBX@@2$  `2/2/P/ ¨ * /(68¸: <* , . 0 &;/n/  " "$ "&bRQC `BŸš* d`pzÒ..>@H4 b a8ɡI Y  2  2;z@ <8 2; &;>`@QE…baJč fI  bĀƤ@ )V.? (4f  b`/r"/h`ï6Þà GNÒ˃ à. `N/ "(¨ J¨Ҩ`Nk/ j 4"j 8( $ @I@R @&HP /`LHHH/΋ɟ C!CElL  ̴lnlRm΋ɤbɦɺ/ ɦ/ʠɪm΋/| ɔɔ`Ɏ Ɏœ^@8DƜɗb^8 m΋œе  8<j*œaH! m΋rEA,A$"D T R B= ɔ  pœdpʃm΋`Cp p nœ˜ nm΋<Ɏx{ ɔtr/l lm΋l.@lm΋.lx -C(ä(  ` Ax|xx `"DxCD`Ðxm΋DÌBm΋Fàm΋PȠ$Ƞ&Ƞ& ؄  5DBm BB** SYSTEM CRASH OCCURED ********************************************* pɌ S$CRASH DS012ޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ #b" !P" -(*@*)j (M*!`R@@@2 AZaz09  2 / lÍ-,nM.,ro "){   N!N!(,1/`l,2,3`.&a(a*a,`0 ΋ ^l 6" 2" 3 4 5 6 7 8 9 : ;΋  / l΋## ѳ*)(' ,+& ܆DDl΋1  8<ʃl΋Bl@ENTER BAD TRACKS IN THE FORMAT:HEAD, CYLINDER; OR$HEAD, CYLINDER; HEAD, CYLINDER; ETC. TO END LIST, ENTER AN EMPTY LINE<P żx ΋ o"^ȡ^^ogG"`j r4B n Ȇ",+JȆ A ;J"@4 Ȉ^l΋ n  `a4ȂȂ ż  l΋  J09 AF ''9GJʄl pf qf tj rf΋/d d fr`nl0΋ sf vj zn/d d 0oj/d dlVCATALOGS$DIAG 6<΋/`8`ܠ`8`ި ˰˪P˖|˖x/< <`˖ˊ`ɖ־˖ˊˊNˊˊ/` `b i,4/` `E%lc΋O!Ø  lzaZA90 ΋^ q>>>> FATAL ERROR - UNABLE TO OPEN THE GENDAT FILE <<<<< >>>>> ERROR - GENDAT FILE IS NOT REL REC - SYSGEN ABORTED <<<<< >>>>> CANNOT SPECIFY FLOPPY DISKETTES <<<<< PN <P PPD P0 P, PJ :P: tPA P-$LME  "$   @ @"$*" 2@ CLCC .,0199   !"#$%&'()*$+-,.23dxFILE RECORD $/ //$ /Q ! /Q`//  w/ Swx8 L Р C55 ^ 5` _`/D`ZuEsd/P P/d>/( ( /, </` * /   /8/"Ѐ/ /`/  I :/l x.l  ^ `/Dd/P PBO`vv /   vZm&  !Bc  0  Z^  Zk&Zl/.  ! / " / /$ 2*/(C  *%RdB>/(E\L9; ;Z\t;[DS01 [B // /./2[ (P SVC ERROR CODE = XX 4 RR; /./ %; /.2.Έ D $$// F+Z +K % >> ENTER ANY KEY TO CONTINUE <<<A[`Q[/b b/  f/  /j/v`/ P> P ***** END ACTION TAKEN - TASK ERROR = ## AT PC = #### ***** ***** GEN990 TERMINATED ***** &),0269>@DGJLMNRV\`glnuy} &).029<=@     eeffghiijjllk"#"#$%(),'.g%mmmmki,oojmoo# !!&*$qrq-s+K820KSR820ADDSGENERATEGLISTLCHANGECWHATWDELETEDELDINPUTOUTPUTSLICEMEMORYTABLECOMMONSENTRYXOPSVCDEVICETILINENAMEDRIVESINTERRUPTCRUCRREADERLPPRINTERASRKSRTAPEMTDISCDSCOTHERSDHELPCRTYESNOYNSTOPFILERECORDSAVEDEVICESCLOCKIDSTATIONCARDLINECS1RCOMCOMMUNICATIONCOMMUNICATIONSCOMMVDTTMPFTNONESERIALSPARALLELPSVCBUFBREAKPOINTBREAKSYSLOGOVERLAYOVLYSTFLOPPYFPYDSCMDKDISKETTENEXTALLBUFFERBUFFINTERTASKTASKKIFCOUNTRYSCIBUILDNAFMDECODERINTBRTSPOWER<P    H ^/F F $  PڠJ f/\ P* P``t*0=9968 B! P *09.  P*09K8 ` Aj@ `p>) P*09 AB! AF AB!` Aj `p. AZZW P*. $ 0 9AZ``K'e G &ȝ5f/  fj  ` <`8?`0.* P$*09` j  P*09K`@`@`>?AARaZI%TL6Pfd$RRY),-E!(Hը@*e`MD VԀ@,(L& 0H@ @a1f e @ " :/l,Z xb,.ld,> * )+/( (  )  /1`>B B/    / BN  / TBJ`J422222H  BĠZIJIJIJ/J"C JJ`L `" `  /lB.l` `/l#B <2BVb` `/l#XX /l#HV` ` /l#ZZ /l#H\` `/lz{h#HBh^` `/l x {.`` `/l x {.p` ` /l#Hr` `!p/l#B BS  ##` `(/l { #B BVt` `  /lZv#v` `  ` /l#Hd` ` /l0#Hf` ` /l#Hj` ` /l#Bl` ` /l#Bn` `/l(#/l#x` `/lӘ x {BC;=0% =2z`?@ACB@===DDEEEEEDEDDEEEE$FFGGGGGFGFFGGGGHIJJKLMNPJOMJJQCRLPSTSTMTDSSTSTCMCSDKSTSTSTST LINK衠/l xY"" "xBMpك /$R%b/l/0##B0Ƀ %S%%%%%%%'%%%%%%'tɯ#ɯ$`'`&/$%/l9:. Ʉ/$p%/l.LɃ%S(&<&&&&'''&&'&&/l#HCɃ`(&&/l/2Ʉ /li#Ʌ/lx x {#B1Ƀ`(/l9:. /l.LɃ/lO#HBVɃ   /l`#HɃ"`(/l#B BMɃ&/lx { #B1Ƀ`&/lH̠.l#3%3%3% # `(/l&#H %B<Ƀ/lT#BɃg/l {#BɃ&/lH̠.l/lZ# x {.l/l.l/l\.l/l./lV./l*#Ƀ(/$(/l?@ {2o$4qE#B CBV  p/$4&&%WM% uم[/l#BC@`>67 /l#BÃ/ † *T.  ҢC u } ~BX`(BR`(BVBTBVBYFa` #  *⡃a`,B`% *X*xM!‘! Q#`JС r"$4 rk!&Ъ r"$4 rk*&*+] t $$$X`J2    /,"QA`U   Сࡉ ,"Q,","Q! ,"Q ``˜gfjn o k Z,"Q ̤$>B*0+0̋\B\`

/( (&?dB> * )+8| L/( (  ) /     > /    / BI`

2fZ`P~>X>4  O`X`V O>P>Z>4D O`Z`\ O>P `^ O>P O=&P O=*P `r O>Pp    O>P `t O>Pv O> O>P `d O>P `f O>P`j O>`l O>P `n O>Px O>x O>  O> O>P O=.P`| Oj> Oj>P`~ O>` O>P `h O>P" O8P>>(X O>& O8P >>>( 1> O> p   O>   O>P BM`3pp   fgjno p k Z"P< > O>/7T7789L9`9`9979`99F9@9 T    1 O> O>/8 T8,8,8,8,:98,::8J8,8,8,: > O> T O>/8^T:8|9:9:9::  O8 O8  O> O>be  O> O:`: > Z O> 1܍4 O8`7 T O> > O>`:9X O8`7  $> Z O> 1`7b" O>`: O8`7 T O>rbe  O>f O:a Ok8`7 O8`7"&D O> O: > O> > O> > O> > O> > O>"( O> O>b O>b O> T O> 1 O> O> t  O>T  1 O>`7>   #B\  #H\\KK  x Ƙ {.l;];BC K x]Ę{; BC.;]K x {BC;;] "z "xBM\=4"K b %5#s\`z=43 #=0 =2[ :/lBM O:`4`%e == %j ==U%= Z O> 1 O>[CLCC$$$$,684:<BLNJPR`p=t=}>>( >><>P =>d =>x> ====t=UNITED STATES USA GREAT BRITAIN ENGLAND UK JAPAN FRANCE/BELGIUM BELGIUM/FRANCE ARABIC COUNTRIES AUSTRIA/GERMANY DENMARK/NORWAY FINLAND/SWEDEN GERMANY/AUSTRIA NORWAY/DENMARK SWEDEN/FINLAND 11111>>1111=>NONEYES NO hq5JQ0f2!*1\P B} "xBM`; X>@8 O #XX `V O>;"Z>@ O #ZZ `\ O>;";";" O> # x x O> O>x #x` Oj> #|`~ O>;"B:~` O>;";"Bpj`l O>; ; ;";";" ;  Ø { ;;"E`BVŃŘv O> O> # :vv`   {;F&! {)  IAZB BVBR I$B_  Ba BM`ƚHb` ZxBHJ`Y iHYLHIHJXJXJKK:IJXJHHM:J`Y O>;"LCC`LJ`Y O8 O8 /2DY*`JY O> O> #J`Dje  O> O:  {;I1ʃ`LJ` O Z OO) O OO ?`H$J`YO OO /2%$ 4DJ`Y O>; HfBVC`HJ`J`) O Z OO ?`H$J`Y O>; J`l`H4E  *Jɘmi j" O>;"M:ʃ"`M:`MBVJ`Y O>; JBMC**je  O> O:  {;K61ʃ`Hj O>; K| ?~ D$ DB<B>ʃj O>; Kʃ  *`M:*&D O> O:  {;Lj y)  BX`:ʃ&O OO;@O OO ;;@O OO;@O OO;@O OO;LńO OO;Lń( O> O> #ʃ(  *0J`YO OO /2%$ 4DJ`Y O>; M:fBVCJ`Yіh i 1 O> O>; M|0CJ`Y  O> O> *k {+;NDCjg j y$4 *k*&%ni% uOTJ`E9B!; NN B; NO J`9`N  O>; NpND   1 O>; NO Z`GtBV`M|BVBTBVBV BY BVBR`M|`` NCш Nà  *TOT  ҢF u } ~J`EMNѪ vJ`Y&[ OPORy }ә ~ *T ҡNE`OPàOR[Q--2 #$"!@ OO>/HOOO'O;OK%F33 1OOO/OOaf31OO/OOaOG t t!1`O`HA< OΈ D Θ 5" $$///.Y O`[PJmMEMJԀ""  @@!̨)#0ZaITeIQ $Ie+1ERT$JDJTJJI*RJ*T(JR*P(TI BIR@I WRIWRBaTTZURT RTU*(QD(@`2I* B3 $H$j€WUUUP*)V5*RZ*"ja**%*!QEIJ$UjjRRRRJHPREJ$D "*V*TFPI IJeIAE,UB"RJ*II$DE%RJDE* @)S4%j*Ҋ-XRhEh"R`@aU*U*V*R*JT T`D$4J*Х  E IA@DD @J@B, z (PP +RRPP KBPDBFWPFGFMITLTMPPDPTPSFE0123456789ABCDEF P2 <2  @$03CHMRW\]lYZe * '+8̠H̠D̠FdB>/( (  ' /  Bq` 'i`,Bo` p_12121212J! " 121212J+"l"PB#j#e s#R V+B+f+!+ X+/ Z \+/x bLd+/ bL+/ V++*h ^ n  l++ z++ x++B22222/+ t++ j++` `+fQ+``+ /Q+$@+(+)+ v+ x+`,+)+ f++*h l++ n ++ ~+/ ++`h8+//+*+ p`5(//  / `<~‹ ` ` s"S`#@"$""R"v""""2#"$"""v"v!`"̠+`&̠+` ̠+Q`&++` ++`̠+`̠+ `&̠+ ` ̠+c`R c# Cc`T c# C*  ! +!P#  `&̠+`"̠+\++ ` `A+zQ``A+zA+zQ``!kA+zQ`=`!j !V1* $ T!(!e !V * $ R!!l!P`̠+* ! +Q+Z‹1 &2 &3 &4 &'5 & *i%6 &e&|7 &f&2~g&~8 &j&9 &| &A &d&zB &h%C &m%D &p&M &k&G &l&E & &F & &J &n&H & *Z Z/`\a   +V`Q Z/`\  +VQ Z/`\&  +V  +V`  +VQ Z/`\   +VQ Z/`\   ! +/Q /+B//+B/+\ ' '`|jQ fK &`p` h jL &`o` n ` l bI &`|*`j!' Z/  `'+V t+`'Q` p//`%`o' Z/  `'+V d+`'Q ''[K '`p r// 'U‹/> B/r+ *r/>BFM X+/+ (/+/+ (/+ *Z‹`&`Сfgjn o k!+PQ +VE (Zࠁ+fBp`‹ *i`'Lj,&G Q \+ &+V/ ֠ ++ *Z`)` s#,t     @Q%d%Z@@@ǡ@G [‹ * d ^+ `+ *Z- [ +P Í`+Pߏ+P   +l +P_=+Pߠ+Q  , 2222/[222/ /[K*2K*22Y;+P2[/> +@2222/[/>@2222[>+ +/ U +P ++/[/ Bj `7:Y^xalpn^cPSENKBFGWPBFMPFMERLTPT@PVVVVVV00+$#. , :,``-` ,RQ,--\----.0/P-\----//4B/ ,2+++4BȠR ȡ,B/``,/2P4B/4B/4B/2P4BLj,/3V4B&G  `,/3V4B ,`!L̈!,/2P4BȠT ȡ,B/``,`, ,8/ ,D+V/" 2// ,F+V/>/ ,P+V!Z />/+V/>/ ,,`@+!('/>/! +!( ,:/>/! + ,>/>/! + ,</ ,F+V ,6+`,/ ,D`+V!P/``, // ,4+ ,X!P ,V+V+ ,T+V+4B` / ,@/2222̠",/ /`,‹ ,+` "H/+V+ ,D+V/ ,F+V/ ,P+V! +//+R+!  z,`+//,X`!` +&/ ,D+V/ ,T+VE!` +/ ,H+V+   / ,L ,J+V//` "//+! ++` "//++V  jd/ , ,++/,t!+` "%//+8,+/++Z‹ ,$+ ,H+V+!++ ,,++!  ++ ,D+V+8* ,|+, , ,&++/++!+/+Z!,`| , ,B//, ,‹ ,,+ +4 ,(+֠ ++ +/   ++  ,*+!"++1 ,.+a  ,L+V/+R#+ ,J+V+!  ++Z‹, ,0/ ,ZZZ ,"+ ,0/ ,F+V+ZruyxxY_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ 0 1 2 3 4 5 6 7 8 9101112131415        #5P6D679P  ' / `<~‹  4+ //& / &4 &4 "& ///+Z Q`쀡 4/&4: ]:‹ 4+ &4 /  !Z:9 4// 4/ &4 ///‹5Z 5 4+ &4 /:7 4// 7B 4+ -4  .4 /:7 4//7B[ 7!l!k!&! 4/+97[‹  ' 4+ 5;&4$/ Z 4+ -4//-4 /55K!<9 4//-:%:B5 4/  -4.4  /C9Bu. 4/ -4-4 /55 5B 5!7D.`8"‹   4+܈  4+ 4+5 4+ 4+ 5 4+ 4+ZK L!X Y/   #5:#5 :)$: ]: ]  &:#5 $! +#5 $! +/Y 4/ #5̠" $#5 $ $̠2222[ rQ`쐡[BtR Q`쀡[Z2[>6 ;|C7 ;~;8 ;99 ;8A ;z=B ;:C ;@D ;7E <6F <HH ;rXJ <aM /( (  & /  Bq` & A A ;1 @?A ;;x;;=tA =t2 @DA ;3 @<`BA <-4 @AA ;   A <A <&` `BBQ5 @GA ;A Ff@&>RA & ~ 8 @BA ;`;^@bA `;f@`A `;n@5A ;yG @Fk` BBkQ /( (  <| /  Bg` <| * <}+8/( (  <}  /Bb <}Z *` ;‹///AdB/Z;A*‹ RSQ+ST*A6"hJiJM RjڛU|%jѬZ-5ymShIVIK! 1$$RTI( @7H('0',Z4)z$MAIN R hI z  HI  Q` HId  LQ`H  HI  Q`Qb F I,Q`H 8 jI,8H8 8Q` Q`  HI  8`8  :Q`LaLL8 8``<`.`. h  8`8 aQl78 8   8`8 a7Ql8 8  hI  $88 xR  .RR8 P858PSINIT 8R 85PSGCHR RR`R !QlI II II"RI2||\5nPSSETS X <^FY Az[G ?@ @90592PSSCC 92 I`I  94b59dPSSCNC 9d I`I 9f5PSSCAN ^I9IIqI$/I&, II$' II&# 9I  \9`9 `IH I8  I` I$6vʠ@I A II  II" II(I 9`9 `IH ' II$ II& II  II"  II( II* 9I   `````9`9 `IH  9H 959PSASGN  `99`9ЈQh J `99 J998 L`9 9 9Р`9c9ʈ 99 9R5PSSCLN:  H: ::('0',4A1) (4A1) (Z4)5PSLSCN Q`:< I  s  HR( I  ^  HR HRD R:D ,:E"R:F ,:GR:> $:H:6 R:@`:@ !Ql:J x:K:@ :@:>  R0:D ,:E  HR4 Qf`|`` HRD Qf HRXQf  R:D ,:E  IQd I   HRt   HW I,Q`H :@ jI,:@H:@ :@Q`>= $:D:6 :B`:B !Ql:F x:G:B :B  (:D:6`:@ :F!P2:H x:I `:F`QfP`QdP :< :<BA H   HR HR) N H  I   HR HRp  N``` :L(8A1) ('.SYN ',9A1,'=',I3,63X)(80A1)('.SYN ',9A1,'=','>',Z4,62X)('.SYN ',9A1,'="NONE"') 5PSWSYN Q`: :`: !Pz : : ::L: :`:  :::L:ȡL:z: :: ::NM :`: : PPB:  : #PP: jL::| :0 ::L!L: $ :: :`:  ::L!L: x:: :: ` N` ` J` J` H  ( :: \Qn    H jL::|@ : : ::L!L: $ :: :`:  ::L!L: x:: ::  ( :: \Qn    : ::z :T ::LL:": $ :: :`:  ::L!L: x:: :: : x:: ::`: !P: x:  ( :: \Qn   :" ::LI:": $ :: :`:  ::` ~` LL!I: x:: :: : x:: ::`: !P2: x:  ( :: \Qn   J ::L!I: : $ :: :`:  ::L!I: x:: :: : x:: ::  ( :: \Qn   : ::` P: (82A1)5PSLRD \I P ^  T \Qj `   b \I Qj d fI fI R ;, r(80A1)5PSTRD  P l  \Qn    I  I P;\ (80A1)5PSWRIT 8  \Qn  P;(' ',80A1)(' MODULE OR SYNONYM TOO LONG') (' SYMBOL TOO LONG')(' DIFFERENT SYNONYMS FOR SAME OVERLAY')(' SAME SYNONYM FOR DIFFERENT OVERLAYS')(' DUPLICATE MODULE') (' UNEXPECTED EOF ON LINK MAP') (' TOO MANY MODULES') (' BAD LINK MAP FORMAT')(' UNRESOLVED REFERENCES PRESENT')5;PSERR ;P ;6 ;R #;R ;P ;  8  \Qn 7P; r 8  8 8 1 8( * 8P # 8x  8  8  8  8 P;5<PSEQL `<< d<< f<`< <`<<<< << h< <@< n5= ST= WORKSPACE REGISTERS60 - 7 68 - 15 / R}7Gjz +"$BzAbBRCG.C\>G\, @ BT BR +\ʋ)Ԙ./0* * `*x*Da* 1*`)\ʋ*I[ -+?```Gj@,Y) @/r xڃkʪxpkڠ88 *2D  7C Dd*`# 1h$$GGE@@i 9`&Ve^GbBji"B РBB B `) 1h 1h1*(1` CC CC&*d 2*(*,XD&DC $[   ) 1h 1h3`$   2,*( \BBBHHBBlBBBBBBBBBxBBBBB 1P!T)Bl!T*! _! \  !" +" +# ʐa@" +# ʀ" +# ʀ**(%|ʁʁʂʃʅ**ʄ*$:!ʋ!# ʐ# ʀNʋ!# ʐʐ# ʀ# ʀ# ʀ4ʋ!# ʐ# ʀ# ʀ# ʐ# ʐʾ**(%|ʁʁʂʃ*j(![" NL[*ܠ+ ["i"b"ʾY"R"K"䪪A":"/"("ʾ"""ʠ+ "ʀʁ%*ʋ"# ʐ[ʋ# ʀ[>-$+ $ +[*`%*#*##*Ī*##%b$:`%Ăjj[ʋ*%b&*&Ij*j*4%|*Ī#).IDjʁ*)")%|*(!#ʋ*!* ją*j4%|ʪ[ʪ+*# +c# +c)*8*(x*%|*# +*8*(ʁ%**# +.!*8*j(<ʪ%**8**)%|*8*(* [[**+ +*+ê`*hʋʋ* )fʀʪ+R *+*(<+xRʪʪȪȪ`*H`*B"***`*`ʂȪʢ`#dʢ`#2*ʪ**)fʀ )fʀΘ*+ )fʀ**`%`$`*N*;*`*T*!)+ )+ +'8)*+('8jj@[)+*0)+*ʉ )+)+*`%**)'8)*0ʉj*`*T)f@ʉ@*`%+*&)L**cL*)Ԙ+ ++ +܀[2*`)\`#2*r [**`*d[ʆ`f`fA&iɁ+ +Ɂɀʦ[j@a haQhQ[*d$[**[*i[*$[ʉʉЪ[j[ʋ)p + + 8+kie[ʋ)++? ܜ,$ʌ5ڒ[ʋ܊ ++)ڀ ++ *ڀ[ʋ܂j*0[ *[** **** *+ 6R* *(ê ILLEGAL COUNTPAREN MISMATCHPAREN NESTING >3 NO CONVERSIONILLEGAL FORMAT CHARILLEGAL REPEAT COUNT ILLEGAL UNITILLEGAL OPERATION END OF FILEI/O FORMATTEDFILE PREVIOUSLY OPENHX'T/AZILFEGD)(P-,%%%%&&&&&&&&&&2%&&%*N''&'#d'X'.*0  Kʀʁʂʃʂʃʅ(ʆ*ʇ(ʈ*ʉʊʊÀ@.0Gʇ*a<,>`ʃŀ]*([*([&[j:)2 ,  5) @1*(,W Щ B ,1h) 1*(,W G MAX BUFFER SIZE. TRUNCATEDEND VECTOR TAKENRWARNING - DEFINED LOGICAL RECORD LENGTH > CREATED LOGICAL RECORD LENGTH. TRUNCATEDVVPV' INVALID DEVICE TYPE ON OPEN SVC, ABORT  2*(,R "2 2[ʋ4FM)$4i4 4z 44h4@34&4t4 4  4b@54F4\[M$4 )"Ii,@iI`,`)") ƈ)$4~i[0 0 [  @ C4|#4{ [ (4 P4y [ CALLED AT > ERROR AT > IN ,0 Ȁȁ ؄ ȅ`5lȀȁ C(&@5`55 `5`5`5b " `55`5`5 ؄ ȅ`5lK*(Q؀ Ȁ؁/[ [5"$ 5`45"$[ 5 `4؁/ b "@ ,5 [10+ " ,5 "$ 5[X5"5, " [ j!([ʠ6p$ʮ";{ʋ +)&$6pRB$@{Jʋ +È-$6r $6pRB[`7*2 7<*- 7>*( 7@*# 7B* 7D* 7F* 7H* 7J*  7L* 7N* ,.{,$7<L'`7:]] (l( *ì*Þ+N &N?l(ì& ì*Ǎl,ì.[ ;*$7 ' 7~ [; [ 7BT777í`3NINCORRECT NUMBER OF ARGUMENTS SUBPROGRAM @n @F`4@X .S$FTLF00?,<^GH3H3NUNIT ``TCAFILDSC GG @G G`-@G G`. @G G`.|@G G`.@T@V @H H`0@H@H@H H `0@@?@H H`0`0  H`1 # S Y N , A Z 0 9 # $ 1P$XPS$EP H A S E E N D ( O V E R L A Y P R O C E D U R E T A S K L E N G T H U M O D U L E D = $ĺXb4&TM5GڽPɳ%l B@PRFIјfe*hZRQa A)),IIbTUc*%SI%$\L}k/Z$XHb bKBF$ˌ$ЕRbK ZI ZͬZ$f_u,@aU UAPhtӧN: BZU F-)(XA@P!RHBH@ @ U)HHPP @@@?V  HUJ-m%I*R[VjڪUUU!D@ *D A B@ R DBH!"D@  @ @@@@D(P(D!@B!BA@@T)I" (@BPP2IH $@@H)H@!@H$@@!TUB % I BP@B!B:]}]uR ȪK2/2C z9 z0    Jo`a ` H`/  ̮PU>0ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k*p *xJ!ʁp*v jd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `jѱ * GF@m  @"  *@* **@  L* KEF HIm  4GF)HD H +М+ 88GB E b@B@ABE F ABI@J!B FC""AD1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC** ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`ŀ=`łF%00څڅj ʁ*  |12 |1`a2 ? ?mCD[-mqp00A ^ 'J)#ȂG(09(H E`  #` m@  @ p@ bA@AILjmqm^FEmGHmr^899@DDE    ba [[BCEEF[AǬI1܀ ܱ@[Ȗ*jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[Ȯ `l$Ⱥ `$ ``:`SYSTEMp `͠N V`NT͈͔bnf V`¢$r V`$~ ̈ `>$̘ ̈``"  ̈`F̲͠ ̺`ĘȪȶ>$ ` .S$FTLF001$H`Ō$P`Ű`$\ d`T$͌ d`Ɯ$͘ d`$ `Ǯ >`Ȕ`Ȗ @ 22T*@@ P@>kuK@7]` uԨ#F*#v*$$B#jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`%N=`%PF%00څڅj ʁ* )j%^ %h `!T)b)f)D)j%x %h`!`!  %h`!)% %`")%%)P)D)% %`"`)j% %`")j% %`"`:`SYSTEMp `))))j)T )\`# )D`$`$)j) )`$) .S$FTLF00)7)* J R n DK01 :./*x*t + *y *4 *c* ***`* ) **g*4‰*d *e z`,`*\`*^*g *b* /* *(/*B *C$8 A`,*hA `*ZР*y ؠ*e*z*f*o*ezbd  `*`D> *+ [ / @È z3CM *h z  `* Y z   z /*NRL uK]@Ԩ jP $ B<b( ****** TAPE FATAL ERROR ****** $ DISK COPY/RESTORE 79.300$ DISK SAVE/SALVAGE 79.3000 ANSWER (Y/N) QUESTIONS WITH Y FOR YES OR LANY OTHER CHARACTER EXCEPT $ FOR NO RESPOND ANYTIME WITH $ TO RESTART  LISTING DEVICE NAME--CANNOT ASSIGN DEVICE QUIT? (Y/N) MASTER DEVICE- COPY DEVICE- VOLUME- MODIFY SYSTEM DISK? (Y/N) COPY WITHOUT VERIFY? (Y/N) PAUSE ON ERROR? (Y/N) A VOLUME NAME ERROR. SPECIFIED = VOLUME@@. ACTUAL = VOLUME@@. %FORCED WRITE AFTER READ ERROR? (Y/N) $INCOMPATABLE DISK TYPES; RESPECIFY LTRACK ALLOCATION CONFLICT. TRACKS MARKED BAD ARE NEEDED FOR IMAGE RESTORE CHANGE VOLUME? (Y/N) READWRITE2 ERROR. TRACK = 0000. CHARACTER COUNT = 0000. RETRY I/O? (Y/N)  DISK NOT 3.X FORMAT FORMAT THIS DISK? (Y/N) COMPLETE USE NAMES AS TYPED? (Y/N) AND VERIFYDISK COPY TERMINATEDNAME LENGTH ERROR +ALPHANUMERIC ONLY (0-9, A-Z), ALPHA FIRST **** BAD TAPE **** MOUNT TAPE # 00. %WRONG VOLUME/REEL/DATE/DISK FORMAT! !TAPE UNIT-OFFLINE/NO WRITE RING TYPE WHEN READY MOUNT DESIRED VOLUMES--TAPE TO TAPE ILLEGAL "CAN'T GET 0000 BLOCKS OF MEMORY #DON'T HAVE 0000 BLOCKS OF MEMORY  SYSTEM DISK READY? (Y/N) DEFAULT? (Y/N) MASTERCOPY&VERIFY ERROR--TRACK 0000, BYTE 0000 VERIFY ONLY? (Y/N) VERIFY COMPLETE  DISK OFFLINE/NOT READY-- USE ADU MAPS FOR CONTROL? (Y/N) :ENTER BAD TRACKS IN THE FORMAT: HEAD, CYLINDER; OR HHEAD, CYLINDER; HEAD, CYLINDER; ETC. TO END LIST, ENTER AN EMPTY LINE < DISK FATAL ERROR INVALID HEAD/CYLINDER +INVALID BIT MAP NUMBER ENCOUNTERED--FATAL $BAD ADU LIST RANGES OVERLAP--FATAL BAD ADU LIST OVERFLOW--WARNING # DISK, TRACK 0 OR 1 IS BAD--FATAL  DISK FORMAT ERROR 1UNEXPECTED ERROR DURING FORMAT PROCEDURE--FATAL JCOULD NOT FIND ASSIGNED DISK LUNO *** SYSTEM ERROR--SUGGEST YOU IPL *** CANNOT USE INSTALLED DISK 27 OCT 1979--11:20 !DS01 USED AS OUTPUT--IPL REQUIRED/ALL OTHER ACTIVE TERMINALS MUST BE TERMINATED * PROCESS TERMINATED DUE TO I/O ERROR. +THE COPY BEING MADE HAS BEEN DESTROYED. 2.,^   #PP DS01DS01LP01DS0102030405060708091011121314151617181920MT01020304JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC6VOLUME00 1979/10/27 999999 ** 01 6VOLUME00 1979/10/27 999999 ** 01 |ME STVCATALOG 7/t vv2Tv2/2y22/d/^ en$/j `VdV 8 P0B`@ /@f8/̱đ2Z2  26` 2 26  "k 0 $ &@/!Y 7T  0P 4 $1 !  g /‘` %Q  4- v 7T 7/ 7y 7 7 7`  @ 7  78`2 7@/ "`2 2D2 ` Vx ` Vx $$x2)2` `$$$x` Vx` Vx` ` /2P2828 "  7@/ 7/22W  7| [  7 [|    . ιƹ/'g   6Jιƹ/'g  [|  Ȏy/   6y/ [ b    22 %22'2z2 v22 222@2    `z    (2 [` Vx 27 26 0  |    6@  8`9$,#4`pV!} Va2`&Va/V!x2;V!x !z$$VB2S 26p  pppP;;` [2e\` Vx 2F 26 0     2Cڈ  6F  8 2^2 $,#2`pV! Va2`&Va/V!x2;V!x !z$$VB2S 26-  pppP   * 7P @| ` 22 26X » P  0 62 Yډ 72*\ 8P2+2 26  p`!T/Z7 / 6W(݋ ݋ ݌ ݌   a B`/݌݌/(݌ Ռ 8 , 447/(  /  2W``   -p  7   7`8$  2  ` ( 7e 4&b#p ` ( 7W`  @0|  5t  2 88  ` ( 7. 4&+#p` ( 7 6  ep  7  7  7  7` ` 1 . | 4&Y .  /  0Z -P  5IH   5t6N#p `  |  4&#  5   5t6N#p|` ( 7| 7|` `  5   5t6N#p `   @!|  5t  5   5t6N#p`  1 .  $ 0Z[6D `  ֈ  < B1    ֈ 12 +2    @@ 7 7  7  7 7  7`&  n| @   7| @   7  5t v `$ -d `` 1 . | 5t v `l$ -d `` .  /  0Z -P` | @   7|  ̱ & | 5t v 22`$ -d   `z`z .'-P  P 8/BC - eа pB6 L` | 7|  -t |ȁȄ 7 | 8@C  7|2`&01 L 4  -d ``  P /  @   7  5t v 2`r$ -d   `z``;‹`82rI  2  22 %nZ`&2&2 26Z2` `22 $Z  7|)@ B8`B` " Z2`&` ` !L``[| 4 1 0 R  7 @  $2 7  4#3[K  &K  &K  Y2`N $  `` A 8C <` 2@` ( ʠA` ʠ@ Q ҀB 8/̱đ2}`&` ¢` ʢ@ ΢@ Т@ [`# `"   -t ȁȄ 7   7`801 L 4  -d ``  P /| @   7|  & | 5t!`$ -d ``$  4&#p @|  5t  4&#p 7A 1 . | 4&0 .  /  0Z "-P  5t6N#p|  4&  5t6N#p 7|2`&  5t6N#p @|  5t  5t6N#p` @ aȍG[ 8/̱đ8/̱đ2V  `Vl.VС VB [   `Vl.VB [ " `VlJV V` ( V ‹22 26[   `VlJV`  [ `VRVtV$2lVwV$VV$%   B 7 D` 2`  7 %N% 2`&  +% &%'%x'R%(p%I &"%)%d  $ $&"% %t&f %w&f %r&f %s&f %t&f %u&f %v&f %w&f }&g &g΋&j&l&n&p&r/&d &d`-:΋,B`-΋,&*& ΋,%&΋,  q->mEvq222)2 22  бAZaz [б09K2yY6. J` @w71x ` A #(('F< 8 +.zF( F< 8 +.|1* 4C6. " "*`  $5 ` A@x80 C6/$  $ ` ı0DL CŠ2:/ v`22`z2 02468ACE 28 00/,2<0&  ` 0J:0JI0&I'2828TK2/} / < /[/[60^ 7 ` Ƞ*Ƞ Ƞ `  $t@w71b "( (0 9 *C8&[΋,0< B0< <  B`,΋,0&< B0< <  B`,F 1r1v 1t1v΋,=9 < Ȣ 1v`,61 # # : "C  9"  9" #D&  $$22:ɀ( 7 &   4 ` E 7  428  E1`& 26  ( XY[;2 7 4 4 7  4[626 "  7 r 822 82 ( 7f 222 ( 7 7  ( 7222` ( 746  ep  7  7  7  74 6 L -p  7 22` 22 26X64*- 4R4x5b5l  7 G`8`8z2 82 ( 722 $8/ͷŗ 2 v 22 v` Р - 3 3 3  2 - ‡EvG eJ2`4*22 e vG L 88 74 `4*65xC -m 5`  5`5r G 7J6B$D`  7 8.65C-`     B`5r 7Y6$DB`  7 I.6t6N 6N86N2  8/ͷŗ m !2 v` 22 6t6t`6X ` 8C [ {  /C[87>а ~B@ 87>~@C/!!7!@AB8( 8B$ @P/8 88 8/8 4 4 8/8 8PI/O ERROR. CODE = XX. 8 DU,YV$!VUȢ$wwR+D+ME""Dm*JFHUiM-id$54jHUv2iRJD 6$j@1X TD$I% UPRQ*)J*UV@` *( dGU #H dRIqUŨ)N* J&*@RiRi* jE%%B( E()RIXȂ)P@S*U⪕JTJUJPA) D"D(P6J*Q4!&DCm!33333U@K%T*3ҌD20m "**@! P@@@IlI  if h($(4 4R $0@@(@PTjZQ@I"@,R HdtBAH*@B YHj RY(*+[Jh h X Y #I%THeP!HPJ @ҚB ` mf `F  "`" ]h Xv Zv/f gg `٠i N  "`͠H *R  &    ^Z [J^ H`/X`Y Y  [L^/X`Y Y JU  LU  ` LS `KE@ N N`ME@ P P`  `  `R    `Rg     v \h i/f  i/f  i/f # Y @B 0  (MAG TAPE COPY UTILITY NORMAL TERMINATION:MAG TAPE COPY UTILITY ABNORMAL TERMINATION-SEE LIST DEVICEERROR IN ASSIGN LUNO11  : :N::>h>>    ^      F            >7 T T T(VT TV V T  7VT TV V T  T Zf/dРe eZ\ BbB " B^~> aZ[ b`-^-^/X bbfYc \^ѠeVT TVb V Tr`\ `\ \^ ^\ \fhf/dѠe\  VT TVb V TF`\ EbmE eZ Fb/XѠY Y aZ b`YS TV AY Ѡ\F b@> bZ[b-^-^/X YT YV `Y WY@~[ dZ/X YT YV `Y cY@ d `Z [ f]/XY Y B  [/XY Y B cZ [/X`Y oY  [/X`Y oY _Z [/X`YK +Y  [/X`YK +Ym^ J     B~    VT-mEHYY  kTR  TKVT T  ]T:V6   T/  3T(  TTVV  T   TVTJ ( 6 D f n | f SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd ~/    b,,,\ aC)K 8 (Ƞ< # Yc Z ( < ) <ݸHݷݷݷݷݷ\  ~ sh r `: ) ݹݹݹݷݷݷݷ\> a F: 8> : (00݈݈ݷ[ ` 0  1/ .` /` _ 0  1/ .~q1 б Bб  :q  6+>/    /   /  6 O Q R O b 0  1 :aDBPQ R PP    8 4/ . /`蠃I  R` : h (+/6?LV\hsvy}#,:_w&IcsSEQUENTIAL MEDIA COPY UTILITY NORMAL TERMINATION AB*COPY/VERIFY SEQUENTIAL MEDIA UTILITY MASTER COPY TAPE : BPI BEGIN END VERIFY CYCLE; FILES COPIED VERIFIED WITH ERRORS - OF MEDIA REACHED AS DIRECTED WARNING- WHEN DOUBLE EOF WAS FOUND ,  NO ON *EOM OPERATION NOT SUPPORTED FOR CASSETTES ONLY & 'TERMINATED UNDER DIFFERRENT CONDITIONS FILE RECORD TRUNCATED TO CHARACTERS COMPARE ERROR- INCONSISTENT LENGTHS FATAL ERROR- $UNABLE TO GET DESIRED BUFFER MEMORY MAG TAPE DRIVE OFFLINE INSTALL WRITE RING ON COPY TAPE OPEN CLOSE READ WRITE WRITE EOF REWIND GET DEVICE STATUS BACKSPACE INITIAL GET MEMORY CODE >IS NOT SEQUENTIAL   "10' BLANK TAPE READ FROM TREATED AS EOM L**************************************************************************** :   :   :   :  : : :  ;:  ;:  ;:  ;: :  :   :   :   :  :! " ;#$%&;'(!$)#$;*'(!#);#;'#$ ;*47 ;*47;*,;*,;+;*- ;*.7 ;*.7 ;/7 ;/7 ;*07 ;*07 ;*17 ;*27 ;*37 ;*37 ;*57 ;*57;*67?<999  9  9 9 ;*;=>;=>??;*8;*8P  j,`-`+j /`3/' ` `+/`'/`*/,*ʇ,j,'-J!****(( xaʁ,G&(`$j,`.*#2CDD C`2`4/С B $2D. j,`<.`"-m (1 1   2 D   2⊂ʂ` j."2 ܃[ E`B`)/! 0C`5E/! !   ʂʁ,[&"`&/`*/ @*p *xJ!ʁp*vLL jd LI`@*v*pʪhjLDL 0@LD @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B CllA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*:* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ*  |12$ |1`a2$ ? ?mCD[-mqp00A  'J)#ȂGf(09(H E`@  #` m@  @ p@ bA@AImqmfFEmGHmr899@DDE    ba [[BCEEF[AI1܀ ܱ@[tjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[#8 $`@#8 $`#8 $`#8 $`#r#t # 6`#8" 6`#8. 6`H`:`SYSTEMp `#n#X#$" "`###""#" "`#8" "`h#8" " `2$:$>"#8# "`^`l  "`$# #"`#d$("#8#\ #d`>#v .S$FTLF00"#8#`#8#``$#8# #`B##8# #`#8$ #`$#8$, $4` "``舦UE jqbf  L4֠RdRdtzPS a%}EKWHSP''mNCj;Qͩ`B*Õ8p8PU @PPjM @V *!   * B T(@$B$@(@5]pkT @ uP JĆ \2/2G ĪĨ`Į A"/no QoQa !/r ĵ `Į `ĬĬĨ Ī  ĦĦĦ`d΋BƂ F DC F>IJBƂ`DľĿ  ĮĬBƂ D F FĴ Ħo΋/n´¬ ĨazĨ B "ĭmIJ С IJa`С Ķ ĸ  " ĸ"  ĺ ļ"*",  r* "D8"zʘ~ʂ D"*/ro΋`Ĭaoo QaaoQ`ĵa^aʁ -LĦo΋ ĪP$vŭbvvbvv7Ī ĪɪvńĬBňņbvɪvĶ,vɪvbv ĸ ɪvĸ,v  ɪv|vɪvŀ ĸłbvɪv @ @b@Qbv` ɪvbvvĦoDUMYTSGA0Ŋ@ŏŔřŞţŨ .YNTSGDEV.DIR.PGM.IMG.SEQ.REL.KEY.! TYPE DEV. TSK ST OPN FILE FILE& LUN NAME ID NO Y/N TYPE NAMELUNO NOT FOUND SYSTEM ERRORILLEGAL PARAMETERERROR IN OUTPUTNO KSB FOR TERMINAL LOCAL LUNOTASK NOT FOUND΋(   װ`h΋ ΁΂ a4v  TOv ( FD =D 5    ۘ"܀̳ē( Y N    *`H    ֪ ֒/*(C Pѕ &NNѵ ܠܠܵBB   ERROR IN OUTPUT TERMINATION΋$B ֞`X΋&    ֶ ``΋*  `p΋$  A J ΀b"J J`X΋&΁΂J!*  Ԁ  PBbt*``΋&΁΂J!*  Ā  PBb*``΋* A ֪ɪ ` ɪ `pΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kP  j,`ˤ-`˱j /`˹/' `ˠ `˱/`˭/`˰/,*ʇ,j,'-J!****ˮͮ xaʁ,Gˬ͔ͮ`˪j,`ˤ.*#2CDD C`˸`˺/С B $2D. j,`ˤ<.`˨-m (1 1   2 D   2⊂ʂ`˦j."2 ܃[ E`ˢB`˯/! 0C`˻E/! !   ʂʁ,[&"`ˬ/`˰/ @*p *xJ!ʁp*vΈ rjd ΈI`@*v*pʪhj ζ@ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A | 'J)#ȂG:(09(H E`  #` m@  @ p@ bA@AIЦmqm|:FEmGHmr|899@DDE    ba [[BCEEF[AʠI1܀ ܱ@[>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B CҪҪA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  !"hEeD4 4!YtW@tPtN"Kђ  E+`DԁC5u @1`!taC$"   At!  aԇtm* "ròAC*Ԑ* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9` =`"F%00څڅj ʁ*  |12z |1`a2z ? ?mCD[~ծjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[,֖ `,֢ `0,֮ `̠,ֺ ` fh ܀״ `<, `Ό, ``:`SYSTEMp `bLt,T \`ܰ,ۄ \`Ϻ,ې \`ܴۜ ۤ`ܰۀی۰ۼ܀۴ ۤ`*, ۤ`Ѧ, `pD, `Ҝ`Ҫ  `, `$ܴ `8Xװ׼D,P X`Ԕj .S$FTLF007,ܤ`,,ܬ`P`z, `Ֆ D`|`~+DA@,I lJ ("@@k1F,dcZԱCY* ARQTU $ H  ` B c D@B @DT*@@HH B@ k]@]~]8^P@5*B & NP"  &<f`<f"  #? $@ &B" `$` &D" `$``%` &F" `$` &Ht/r s` udt/r`s``x`Рd,fD/A``4 4 WN/ц` H4` 6D`4f F  G.` F 2Рd/A`V/X`b V`< `p`p``H B`nL4`HE`: $`ԁ`ɡ6` L`H4E`8 $`ԁ`ɡ6` Ff  2Рd 64D/`p :q`N H"JJ`" ``$`Ԉ &4`&AJ 4Jp q`N `f D  R F  R 4  R Р2   D`6`HI2 ܡ R ܡ RhDR S `VTUРeBH $h  RG $܈ J / D D`6 J6F aF  D$ ` # r t  8  L  v`N`6/t/r srРt  ?|.?ADU TRACK SECTOR RECORD LENGTH BYTES ( SECTORS). SAME INVALID PARAMETERINVALID ADDRESS SVC ERROR!ERROR IN WRITING TO OUTPUT BUFFERMEMORY NOT ALLOCATEDVERIFICATION FAILEDPARAMETER TOO LARGEDIRECT DISC I/O ERROR&ATTEMPT TO MODIFY AT ODD BYTE BOUNDARY΋f B (  `΋h     @  `΋l    `΋f   A J ΀ J J `΋h΁΂J!*  Ԁ  B *`΋h΁΂J!*  Ā  B <*`΋l A 4 $ `  R  $ `΋j   : `΋b΁΂ a4v   TOv ( FD >=D >5    "܀̳ē( Y N    *`  R   4@ /*(C<> 8 ѕ &NN 8ѵ  =ܠ:ܠ:ܵ 8BB@   L ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k-mqp00A J 'J)#ȂG(09(H E`  #` m@  @ p@ bA@AItmqmJFEmGHmrJ899@DDE    ba [[BCEEF[AI1܀ ܱ@[P  j,`-`j /`/' ` `/`/`/,*ʇ,j,'-J!**** xaʁ,G`j,`.*#2CDD C``/С B $2D. j,`<.`-m (1 1   2 D   2⊂ʂ`j."2 ܃[ E`B`/! 0C`E/! !   ʂʁ,[&"`/`/ @*p *xJ!ʁp*v ljd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `4ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  cdhEeD4 4cYtW@tPtNdKђ bE+`DԁC5u @1`ctaC$d   Atc  aԇtm* "ròAC** ā*/  |12$ |1`a2$ ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* TjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ `~ ` `  L`, L`*8 L`D L` > ^`6J ^`V ^``:`SYSTEMp ` `~ `l `  ` ( ,( ``  `B J`f0P X`z:F r`z``$ `@ .S$FTLF00  "` ``-PlP- K,*YR"UbB*QaJ,!C@%K!0-45dcYP I$11T! Q*@H$JA `C$Jk )@%EAP   * B T(@$B$@! @@55]u>kuK_Aj & ````;΁J!΁΁`` ΁ Lc!l` ! !`B`h`e b΁`W`TJ N 3΄`:`5΁`*`;%΁΁΁*/Ъ      @X$VERB PROCESSING INITIALIZATION ERRORUNDEFINED VERB CODE PARAMETER FETCH/CONVERSION ERRORPARAMETER OUT OF RANGE(SVC TO STORE DATE/TIME ENCOUNTERED ERROR΋B t`΋     `΋  `΋  ܠA J ΀(J J`΋΁΂J!*  Ԁ   B(:*`΋΁΂J!*  Ā   B(*`΋ A p`p`΋   `΋΁΂ a4v  VTOv ( FD =D 5    &"܀̳ē( Y N    *`      h/*(C  ѕ &NNѵ ܠܠܵBB    ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k-mqp00A   'J)#ȂG T(09(H E`.  #` m@  @ p@ bA@AI mqm  TFEmGHmr 899@DDE    ba [[BCEEF[A I1܀ ܱ@[P  j,` -` j /` /' ` ` /` /` /,*ʇ,j,'-J!****   xaʁ,G   ` j,` .*#2CDD C` ` /С B $2D. j,` <.` -m (1 1   2 D   2⊂ʂ` j."2 ܃[ E` B` /! 0C` E/! !   ʂʁ,[&"` /` / @*p *xJ!ʁp*v    jd   I`@*v*pʪhj    @   @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m ` ѱ *  ] \@m  @"  *@* **@   b*  aEF HIm  4 ] \) ^ Z  ^ +М+ 88GB  [ b@B@ABE F ABI@J!B \C88AZ1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  hEeD4 4YtW@tPtNKђ E+`DԁC5u @1`taC$   At  aԇtm* "ròAC** ā*/  |12p |1`a2p ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ*  <jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[$ ,`0T ,`` ,` l ` x ` v `  ` R " `  `  ` `:`SYSTEMp `B* 2` dP\>J"B 2` N 2`4Z d `txt d`*`8  d`\ `|B `b`"`F`p ` .S$FTLF00 f n`$ ` ` @҄ @@@HB" )R  (A`*$@E@@ @@$(@@*P!@@P ]u\q.}jTERROR RETRIEVING TCA RECORDERROR GETTING PARAMETERFATAL DISK OR LISTING I/O ERRORPASS # 1PASS # 2XXXX MULTIPLY ALLOCATED ADUSXXXX I/O ERROR&NO MORE MEMORY FOR RECORDING DUAL ADUS DIRECTORYSIZE NFL NAR FILES AVAIL XXXX XXXX XXXX XXXX XXXX PARTIAL BIT MAP XXXXDIFFERENCE BIT MAP********** BAD DIRECTORY  DUAL ALLOCATION FILE XXXX  UNALLOCATED FILE XXXX  DUAL AND UNALLOCATED XXXX $ADUS XXXX THRU XXXX DUALLY ALLOCATEDXXXX (XXXX - XXXX)(XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX ADUS XXXX THRU XXXX  USED BUT NOT ALLOCATED ALLOCATED BUT NOT USED]y<  o""Y. 0123456789ABCDEF@ @  & l@` / ` I! ! !   XHI I``A`!A!|1C  C6` Q Z@6` vԃ  @6` oԃ  @6` /`` P С $!"!XaXE!<2/2` "` "*p",rZ q9bXaH =;  j<<`v` C<v $` HvHn   (      ( 4 `9w   (  `"# 3)2DC     ( D 4  j`   ( Pggg   ( #ggg  ( (  2 @N N  @΋r&!d & FɃɃ"&ʆ`#΋ r`$΋ f`$΋ 0,CA 0  0 ( 0Z 0F*=`  &(=`*=`  eAf & B&* 4 0 " $` h w/' `h w/? `΋E`  h   w/'   ` h  w/? `΋h h h " G  (`΋|~ /v v`VCATALOG΋* n.`nE` `&t..ʑʱʱʱ.*F-`Kj /`S/' `: `K/`G/`J/,*ʇ,j,'-J!****HH xaʁ,GFH.`Dj,`>.*#2CDD C`R`T/С B $2D. j,`><.`B-m (1 1   2 D   2⊂ʂ`@j."2 ܃[ E`<B`I/! 0C`UE/! !   ʂʁ,[&"`F/`J/ @*p *xJ!ʁp*vl"l  jd l"I`@*v*pʪhjldl P@ld @ڻb*zʐnʪpf/`*a ; K/r[\J!B  CA 1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC** ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`F=`HF%00څڅj ʁ* :jjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[bR ~``b^ ~`bj ~`:bv ~` p `b| `&b `h`:`SYSTEMp `b  `b* ``  ` D L`^lxb ` .S$FTLF00b `R `8`: @ BBJH!(@ !h4(F0TPl )0`@HR Ѷ"(FA"ʤYTHT)TaT`Z&-ffAhAlbRU5%@%`C$!IE!6$@  * B T(!]uN:j  F  j $ &/ N` X jj Z+j6jj  4 2/ 2 3  j`jj ΋ f" j Z+,` f" 2 4 6D B g H/ 2 3` 4 6 2/ 2 3`  : ( * 8 f"` gP f" hTAOVPR \Y f" J" g \f` hH` jC ` f"` h'` jA b` Z, f" d` h j d    `΋<z \У j b ,c m ` B<zC C# *" *r `/2 i p ` B i p<zC# *#@ # .# ,# *    `΋E@ f"! h$E ` bƉ` ^*` j ^Z j  j ) `2`2 `2 Ky ^ rk-2j2 b  b   d 2 b2j2   d d2(  f" ^ j 2 ^2j2  `΋ d` d @ f"\ h` d` b j d `΋` bA>N.  d0/`A ܠ d 0j0ڡDa܈ d  K f`΋I da # TxT   D<TFxTxT 5 `b   `. ЀFT djT K΋ B )q1f f!Ѡ 5/FpA1ʁ `΋Iʑ+΋ *` * .< ( ,<8Eʣ * *  f`΋Ȉ $ &  > @ 4 2/ 2 2 $ & }`΋ $ > & @ 4 2/ 2 2 }`* SAMEVERIFICATION DATA CURRENT IMAGENEW IMAGE: CHECKSUM = ?|<@!9 CHECKSUM ERRORINVALID PARAMETER*ERROR IN ASSIGNING OR OPENING PROGRAM FILEMODULE DOES NOT EXISTVERIFICATION ERRORMODIFICATION ALREADY APPLIEDF**WARNING** ERROR WHILE MODIFYING PROGRAM--FILE STATE IS UNPREDICTABLEERROR IN FORMATING DISPLAYILLEGAL MEMORY ADDRESSERROR IN I/O TO PROGRAM FILE)**WARNING** ERROR IN CLOSING PROGRAM FILEID OUT OF RANGE΋   P`΋΁΂ a4v  #hTOv ( FD #=D #5    #8"܀̳ē( Y N    *`  h   J 2/*(C "ѕ &NNѵ ܠܠܵBB   # ERROR IN OUTPUT TERMINATION΋B >`΋    V `΋  `΋  A J ΀J J`΋΁΂J!*  Ԁ  "B*`΋΁΂J!*  Ā  "Bb*`΋ A JJ`xJ`ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kP  j,`D-`Qj /`Y/' `@ `Q/`M/`P/,*ʇ,j,'-J!****NN xaʁ,GLN4`Jj,`D.*#2CDD C`X`Z/С B $2D. j,`D<.`H-m (1 1   2 D   2⊂ʂ`Fj."2 ܃[ E`BB`O/! 0C`[E/! !   ʂʁ,[&"`L/`P/ @*p *xJ!ʁp*vr(r jd r(I`@*v*pʪhjrjr V@rj @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A  'J)#ȂG(09(H E`  #` m@  @ p@ bA@AIFmqmFEmGHmr899@DDE    ba [[BCEEF[AjI1܀ ܱ@[>K-+09A/*m `ѱ * on@m  @"  *@* **@  t* sEF HIm  4on)pl p +М+ 88GB m b@B@ABE F ABI@J!B nCJJAl1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  hEeD4 4YtW@tPtNKђ E+`DԁC5u @1`taC$   At  aԇtm* "ròAC*0* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ*  |12 |1`a2 ? ?mCD[NjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[#6 b`f#B b`#N b`@#Z b`$$ $ T t`#` t`,#l t`n`:`SYSTEMp `$#$#" "`$P##$ "`Z##0 "`$T#< #D`v$P# #,#P#\$ #T #D`##` #D`F##l #v `$$"## #v`<`J  #v`n## #`#$T# #`#P\$t"## #`4$ .S$FTLF00"#$D`#$L``#$x $`6 "``ŪR"D$ Z(VX @ XVHAi$… 5$ IB(YKY %,hQ(0AfPB*`3$@(&R( ARQTU $ H  ` B c D@B @DT*@@HH B@ k]@]~]8^P@5*b ÂjN2/2fZ6Z H  F/FF`r΋FHL RþŐ B DþŐ    NO!QJ<Fo΋/n L`JQJaE! R N ! Na1L! P! R! T  T! V! X! Z!\!`!^/ro΋ H$Ő`0P2"p"" H DD Z `ȸ"P:" ȸ"R:"ȸ"TɊ"ȸ"V:"X&ȸ"p"BɊ"-ȸ"Z:"4ȸ"\:";ȸ"^:"Aȸ"`:""NF<FoSCBID ID RUN ID STATION STATE PRIORITY FLAG1 FLAG2 WP PC RTASK NOT FOUND SYSTEM ERRORINVALID PARAMETERERROR IN FORMATTING DISPLAY΋6  " ־ `v΋.΁΂ a4v  TOv ( FD =D 5    ڦ"܀̳ē( Y N    *`V  " $ ո ՠ/*(C ^ѕ &NNѵ ܠܠܵBB  "  ERROR IN OUTPUT TERMINATION΋2&B լ"$`f΋4 " $& $  $`n΋8 " &$`~΋2 " $&A $J ΀p0J J$`f΋4΁΂J!*  Ԁ  ^Bpɂ*`n΋4΁΂J!*  Ā  ^Bp*`n΋8 "A ոȸ`&ȸ`~ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kP  j,`ʲ-`ʿj /`/' `ʮ `ʿ/`ʻ/`ʾ/,*ʇ,j,'-J!****ʼ̼ xaʁ,Gʺ̢̼`ʸj,`ʲ.*#2CDD C``/С B $2D. j,`ʲ<.`ʶ-m (1 1   2 D   2⊂ʂ`ʴj."2 ܃[ E`ʰB`ʽ/! 0C`E/! !   ʂʁ,[&"`ʺ/`ʾ/ @*p *xJ!ʁp*v͖ ̀jd ͖I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A ϊ 'J)#ȂGH(09(H E`"  #` m@  @ p@ bA@AIϴmqmϊHFEmGHmrϊ899@DDE    ba [[BCEEF[AؠI1܀ ܱ@[>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B CѸѸA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  /0hEeD4 4/YtW@tPtN0Kђ .E+`DԁC5u @1`/taC$0   At/  aԇtm* "ròAC*Ӟ* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`.=`0F%00څڅj ʁ*  |12Ԉ |1`a2Ԉ ? ?mCD[Ռ ԼjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[:դ `:հ `>:ռ `ˮ: `tv ێ `J: `͚: ``:`SYSTEMp `pZۂ:b j`$۾:ڒ j`:ڞ j`ڪ ڲ`۾ڎښھێ ڲ`8: ڲ`д: `~R: `Ѫ`Ѹ  `: `2 $`Ff־R:^ f`Ӣx .S$FTLF00E:۲`::ۺ`^`Ԉ: `Ԥ R`Պ`Ռ6PT RE(DA@$ ,dFF21F21df(PTA "( "(I!@%") !@ $ @ (U  !@  ]uq.}jTX &΋6  L\ ` P)   L\  N P  L\`  N`  P  L\  * M >d 8/ ( )`  * ,`  ,/ ( )` ` 0   L sSF  R /` /`  H  `    L L LN L X ~ :H : F$ L `΋ ` |`  ơ  \~` $ r . ` r X~ : FaaFE     ~` . `΋`  \` )d \.`4  ΋ X ~ : F `   \؁ơ  f  r . ` rf ʅʆaa  ` ` ` $`΋ #       ~` .    `< L L2 LB L   / F L F` ` 6 L` ΋  \`    L sS  L L M2p C1  B` ` B q2`D΋ \ ` N@ 4`<΋ ~ : ~ : ~ :` H @ F`T΋H @ RG X`,΋` ʡF΋H @ R' D    `  Р BH X ~ : RG Xʅʆʇʈ`΋5 ҡ ʁ5E a`  $~ : Fʅʆ`,΋r .  L/2ʇʈʆ`΋       v`D΋  * . 0 4 6/ ( ) (`T΋     ~` d    ` A   `D΋     ` ^    v` .ʃʄ`<΋  * . 2 4 6/ ( ) (`΋ 2 LP L F F`?|VERIFICATION DATA CURRENT DATANEW DATA : CHECKSUM =  N22d T . (Р * ,L ( * GE aB s? <  7 4 1 . + ( 5% O" l        1  C~  ` ` /  */ ( ( (Р * G */ ( ( (Р * G> RECORD:FILE: SAME UNABLE TO INITIALIZE FILESI/O SUPERVISOR CALL ERRORINVALID PARAMETERINVALID PARAMETERMEMORY NOT ALLOCATEDVERIFICATION FAILEDERROR IN 32 BIT ADDITIONERROR OPENING OUTPUT FILEERROR WRITING TO OUTPUT FILEERROR IN ASCII CONVERSIONERROR WRITING TO OUTPUT FILEINTERNAL SUBROUTINE ERRORERROR WRITING TO OUTPUT FILEERROR WRITING TO OUTPUT FILESYSTEM ERROR-S$IDIVSYSTEM ERROR-S$ISUB"SYSTEM-ERROR ON 32 BIT SUBTRACTIONLUNO NOT ASSIGNEDINVALID ADDRESSATTEMPT TO MODIFY ODD BYTEMODIFICATION PREVIOUSLY APPLIEDCHECKSUM ERROR΋4B 02`<΋ 0 24 2  2`D΋ 0 42`T΋ 0 24A 2J ΀~>J J2`<΋ ΁΂J!*  Ԁ  B~*`D΋ ΁΂J!*  Ā  B~*`D΋ 0A &`4&&`T΋  . 0 .`L΋΁΂ .a4v  #TOv ( FD #=D #5    #"܀̳ē( Y N    *`, .  0 2  /*(C ѕ &NNѵ ܠܠܵBB . 0 $ ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k |12 |1`a2 ? ?mCD[-mqp00A V 'J)#ȂG(09(H E`  #` m@  @ p@ bA@AImqmVFEmGHmrV899@DDE    ba [[BCEEF[AI1܀ ܱ@[P  j,`-`j /`/' ` `/`/`/,*ʇ,j,'-J!**** xaʁ,G`j,`.*#2CDD C``/С B $2D. j,`<.`-m (1 1   2 D   2⊂ʂ`j."2 ܃[ E`B`/! 0C`E/! !   ʂʁ,[&"`/`/ @*p *xJ!ʁp*v xjd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `@ѱ * @m  @"  *@* **@  "* !EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  ophEeD4 4oYtW@tPtNpKђ nE+`DԁC5u @1`otaC$p   Ato  aԇtm* "ròAC** ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`n=`pF%00څڅj ʁ* bjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[$$z`$$``$$ `$$ `$$ `$$ `$$ `6$$ `$$ `$^$` $x `B$$  `$$  ``:`SYSTEMp `$Z$D$l$# #`$##$x# #`x$$# #`$$# # `$$#$$# #``  #`$$# $`r#$$ $`$P$#$$$H $P`$b .S$FTLF00#w$$$ $`z #```bhH-X*PU @*46Fڑ@l1UHFI#A`IJI%mTYR@li2@)h +ZfH̔ c$@ K0%R-mJUEBU$Zڔc $I$I fbHQ*(@ $DPB% JD0R!C%5Q@@@"  @@$(@@*P!@ A뮺]@uӎu5 J000/)(.VCATALOG DISK MAP OF  TODAY IS  NUMBER CURRENT TOTALFILE OF EOM ALLOCLV NAME+TYPE RECORDS ADU ADU LAST UPDATE-- ------------------ - ------ ----- ----- ---------------/‰ 2*XԲ 2` dE dE dE X2# 1 DK09 ` YX(`" ܱ Y<  `.X(&x`P!"8!!#X%!`!#X#X `!"86!#X!"8Q!#X"8l!!"8t!#X"8!!"8!!#XB.``A4p.@`X:`WTQNK5HQEs;85+Ѐ%B" В B?b CD@ #XYh#X #X`CAN'T GET TCA ERROR IN PATHNAME TO MAP "ERROR IN PATHNAME FOR LIST OUTPUT CAN'T INITIALIZE OUTPUT FILE CAN'T GET SHORT FORM OPTION CAN'T GET TOP LEVEL OPTION "CAN'T GET DIRECTORY NODES OPTION CAN'T WRITE A HEADER LINE (CAN'T SEPARATE LAST PATHNAME COMPONENT CAN'T CREATE COMPLETE PATHNAME ERROR CODE NOT IN TABLEĂ  4CXINPUT FILE DOES NOT EXISTINTERNAL ERRORERROR ON I/O ON FILE0BAD DIRECTORY DETECTED, SAME AS FUTIL CRASH >108ERROR IN MEMORY MANAGEMENT FILE'S PARENT NOT A DIRECTORY ΋#`/&`#** AVAILABLE= TOTAL SIZE =  ADUSFILES=: %INSUFFICIENT MEMORY TO MAP ABOVE PATH$DIRECTORY WAS DELETED DURING MAPPING#PATHNAME TOO LONG TO MAP ABOVE PATH΋#J*AB)`! Eh  D   1$ ` #X Xh #X l `  H6p  X 'G` !#X Xh #X E ` CBbB)/"8 B 2 2  2  2 #X %& i`A )Ȣ6 ɤ  $  i`A )Ȣ6 Ap )` i` : 8C (H(((<(i` b) (bHI! !  B  ) `    D  #C  F aV)Fa,© /pO ` ‰O%A))-* A)   1 X`A  B)( ( )% X 2  2  #X i` ` `     @))‰ ‰@ X2 `#΋#H/p`#΋#A#$<$ ) C C# ʅ `# j l n r p tSRKPDI ~ BINARYB SUPPRSRESRVDRESRVD ALLOC: PRI=SEC=#SECS=LRECL=PRECL=BLK/ADU=ADU/BLK=WPT/DPT/BLK/PERM/FORCED/= DATA-FMT=CREATED ΋# `H  C`f` `!06h0  C#ʃB   #0c \0*e& '0e208e:ʂ  `,*&$  %"%4  !  2v`BF %5 =/0G206020=0E!(&< `,#X0#X0"80 0200 0% @20!0 020+0 02060 020A0Х4Х5  0 20#X0"80 0 0 r0 RB0 bB0 20 B#0 0b v050 0E!.&<#X0     `  @#Xb`# SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd ΋#/ !!!Q7)K 8 (Ƞ<#c ( )ݸHݷݷݷݷݷ: )ݹݹݹݷݷݷݷQ>  ʆ`#: >  (00݈݈ݷ[΋# Q  h `ʈʃ`#<d:/΋#A @F2$2$<` 2"fB<2"<2"2`#0 A  2*DI OI/ ΋N`$΋#1  8<ʃ`#΋#jRCjE(7 ÁD `ʅ`#`C΋ABB C D/`$΋#68ΎΏ<6.jD`lȁ ؁$ȁ/"@ ` ؁؁/" @  `|" `l>ȃ  ؁/l"@@ `l ؁/l#a###c Y  N 9DE&   `l F`/^`_. ,HsE) 2`j`,lDB l@`V `  `Vl/V##D jȣ #D@  2$`,%V  2$`,%V#l"<Ȁ 40/V$ 0 0 B@`,VlȣȠ<`N .d`,/b.l /l / 6 8JJÚʠ.ʠ,`#΋" @"@ `$΋#:U`4!" O:U`4ʁ:āO@`#΋ 24rCݵTleDN2J[΋#l /$@  /$@ `#΋#c C!8:`#΋#, 6A,z8s,J86b,\64lɢ ف>Ƀ/& DcA21ݲE Flɢ& ف>Ƀ/&  &F"&ʂ`#΋#b "ܱ#   $("2$4&6(<.B4C5   ΋#DCE`# .΋# S C..C2 r`#΋#  ÀDÜ܃aDġܴ`#΋#  C2@ `#΋#б 1`#NY΋# !`#΋!&`$΋## @ `#> Z΋#1 бf gDdt  д "#X`#΋##"8"f`#΋# # # 3#`#΋#΁΂ #a4v  1TOv ( FD 7p=D 7p5    7@"܀̳ē( Y N    *`# # 3 # # 2! 2/*(C!!  2:ѕ &NN ѵ  ܠ!ܠ!ܵ BB! # # 7~ ERROR IN OUTPUT TERMINATION΋##B 2##`#΋# # ## # 2 #`#΋# # ##`#΋# # ##A #J ΀!"J J#`#΋#΁΂J!*  Ԁ  2:B!#*`#΋#΁΂J!*  Ā  2:B!#P*`#΋# #A 2"8#`#"f#"8#`#ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k2DC ݑ ? ?J!B '>C''A'<1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m*P*P-mqp00A ) 'J)#ȂG((09(H E`'  #` m@  @ p@ bA@AI)8mqm)(FEmGHmr)899@DDE    ba [[BCEEF[A)\I1܀ ܱ@[P  j,`)b-`)oj /`)w/' `)^ `)o/`)k/`)n/,*ʇ,j,'-J!****)l+l xaʁ,G)j+l+R`)hj,`)b.*#2CDD C`)v`)x/С B $2D. j,`)b<.`)f-m (1 1   2 D   2⊂ʂ`)dj."2 ܃[ E`)`B`)m/! 0C`)yE/! !   ʂʁ,[&"`)j/`)n/ @*p *xJ!ʁp*v,,F, ,0jd ,,FI`@*v*pʪhj,,, ,t@,, @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `,ѱ * ,,@m  @"  *@* **@  ,* ,EF HIm  4,,),, , +М+ 88GB , b@B@ABE F ABI@,()mtytw  .w.xhEeD4 4.wYtW@tPtN.xKђ .vE+`DԁC5u @1`.wtaC$.x   At.w  aԇtm* "ròAC*/* ā*/ 00f0jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ |1214 |1`a214 ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`1=`1F%00څڅj ʁ* 71 1`&771 2 `&777472 2`' `'  2`'>72. 26`'7872> 2F`'772n 2F`(L72z 2F`(72 2`)72 2`)72 2`*^72 2`*88 8"3 3`+73 3`,J73 3`,`:`SYSTEMp `8788B7D 7L`,72j2v7X7d8"7\ 7L`-077h 7L`-77t 7|`.z28B7 7`/73377477 7`/ 74`0`077`077`1 `1477 7`1P8 .S$FTLF007'+P-`F U@JªX*!5֡3ik1k1kYbVI$ D  (!#Ĉf`!@3@1 `@"PZcX5$H *H)@ FX$D@11cX1ưưcX1K0ZưI$ T*H TXak 0`0TP "1() Ta#D A#U %" B($$ ,@H $@D(BC,iTA "( "(I!@%") ! @ $ @ (U    @@A zq.뮺]@uׯԨ\ |$2 6( 2(.( .5΋7`ЮC 8BB.B <@ʁ`7΋7\ C. DĘ &rjC`7΋7\""l)LL''XNn N! *PLn'  .@?` 'C!L); . L..)L) @.L)@)L)`7΋##`7΋7\ lh h.@@.hL.hDJ+Jx@.n4!h" @ @ h%h&bh.@.hhNh )n&@ !hh @ @.hb  @.h`7΋7\n 'bȠ .Ȅ#l$ȁȃ"۔* tt۔+tt۔,tT`7΋.@Ȁ@ Ȁ  @ ؀.@" "`7΋7R>%.@..ɀ"K*  W ɧ/&C .C-  H#''   D 8 8 q@@/%$.*  J.`7h  >.΋7V .  @@.jcb` Ƞ Ȣ .jf "`7x%&'΋7^ jb!  ! <J%^`7 B Bc [΋%4cccJ[1 cc[c cc[A΋7`Rp`  qaBQ CBj! <`7%΋7\  %H ẖ̱̱`7΋7^`/``Q#llA #llh  `7 ؁ȁ /"i,6zbA  G΋7\ˆ #lF``1(" D`DB #lF````7`#l ΋ x  `7`# 3΋7\ `` BB a sB D  ````7`#΋΃  # J`7 (  6 ΋7Z%H Y" #P  PȀ . ~<ȁ#l 2 " @< )< <    2 2" ~ C3 <1 @$ (T.   D^ 4$  \]  D^ ~ ~  . ~ @# @# `^@"# # # # @ . @% `7  ^ ~  ~D(P ~` p ~`   $* ~`    D^ ~  ~D  * ~ Ѐ# ` ~  ~ Ѐ   #l ` ~   ~` ` 8` |΋7`DԒ"ܒ"zBv. " `7΋7\  h!%H h DȄ h h`7΋7\#M "  ) n /#) n @# `7@ $@ %&;&'09AZ ,$!(.)EOD INCLUDEEXCLUDEOPTIONSMOVEENDALIASES NOALIASESBLOCKNOBLOCKMULTINOMULTIR 7 I   ">daXh P22F**HDR*`f$BYME 1811111O\111   !922|S$ROLLA S$CRASH VCATALOGS$DIAG $ERROR CODE NOT FOUND. WRITE AN STR !COMMA EXPECTEDERROR WHILE GETTING TASK CODE.INCLUDES AND EXCLUDES SHOULD NOT BE INTERMIXED6END OF CONTROL FILE READ WHEN DESTINATION WAS EXPECTEDEND OF LINE EXPECTEDIMPROPER FILE NAME)FILE NAME NOT IN DIRECTORY AFTER CREATIONILLEGAL DIRECTIVEILLEGAL OPTIONCAN NOT GET TCA#ERROR RECEIVED WRITING TO LIST FILE%ERROR ATTEMPTING SYNONYM SUBSTITUTION(OUTPUT NOT A SEQUENTIAL FILE OR MAG TAPE!OPTION BETWEEN EXCLUDES NOT LEGAL$ERROR WHILE OPENING THE LISTING FILERIGHT PARENTHESIS NOT FOUND%REQUIRE BOTH A SOURCE AND DESTINATION7REQUIRE BOTH A SOURCE AND DESTINATION OR A CONTROL FILE'INPUT NOT A SEQUENTIAL FILE OR MAG TAPE)NON-LETTER FIRST CHARACTER OF TEXT STRING"REPLACE DISC NAME WITH VOLUME NAME$ RECEIVED: BACKUP TERMINATED2 MOUNT TAPE ; TYPE $ TO QUIT, Y TO CONTINUE *ERROR ON WRITE TO TAPE; FIX TAPE ALIAS  IS AN ALIAS OF !****** BACKUP DIRECTORY COMPLETED2 IS A DIRECTORY BUT COULD NOT ASSIGN A LUNO TO IT DIRECTORY  ** END OF DIRECTORY  **  WAS NOT IN THE SOURCE NOT COPIED' ** WARNING - NOTHING AFTER DIRECTIVE > ** TASK ID ** OVERLAY ID ** PROCEDURE ID - PROGRAM FILE ** END OF PROGRAM FILE NOT RESTORED ERROR IS A SYSTEM ERROR΋7^  Dt ʁB^ &. BM;"##``Ȁ" #P"  #`7΋΁ Ƃ/  -.Hc9 0S#!JZ`7΋7^ 4  42" ' ܱܠ &| t  .   `7΋7^1 & +ܱzv%vܳC + * ܱ%vܳC , ܱ` v ʁ`7΋7` + DS "1 # "1 #  +jБ `7΋7^1Ԁ C `7΋1 &1 '`7΋1 & )`7΋7\4!4!    ! !4 `!}%N4 tP2! <4  @D )(P!4! EL*!*4!D3@M !  4!p\]    `7΋7^!`7΋!!`7΋ /#`7΋7\1 & $ % $ %  # " (` Cʁ`7΋7^  #"`7΋7` ءȁ /̱` `7΋ȁ ؀ /"`7΋ ؀/"`7΋ ؀/"`7΋ȁ ؀/"`7΋ ؀؁/"`7΋7` ؁/" iؠ"/,6#bA `7΋ ؀/"`7΋ /# i"/,6#`7΋ ؀/" iؠ"/,6$&`7΋7^ 2 42"$ ' ܱܠ &| t $ $.$ $  `7΋7^^  DtQ    w *w] `7΋ $ % $ % #  " (`7΋7`Ή`B Q  Q/   JZ`7΋Ή` Y `/  JZ`7·ΈƉ  W I @Y7p7wxZJJ[΋7`$àn(n ` $`  `  ` ` n RCD`7΋7`n `  `  $àn(`7΋7`]`#Y L"'T #P'Jȁ #l'@#'J#'T7'TB'Tȁ '6 $  % !Q  @#'H@#'R`7΋΂Ƞ ȀȎ#l'..@b J`7΋7`L "'#P' Ȏ#l' .   @#'@#'`7΋` ` /! ˮ` @/!`7(((((()) ((((((΋7Z Dt  (H (< T(4"( C3 R1 @ ("( (.(  (`7    ΋7^3L ")#P)zȁ #l)p^ )p#)z#) @#)x@#)`7΋7`#)#)  O /؟ `7.VCATALOG΋7X & .(đCtQё qF( %%܅ ܳQ  @) w`7΋7XD` ԒԄE  `7΋7^ Dt ***ʁ`7΋7` <L'* Z!@T` '+!@` <L)+ D2 r & @` &  L"+#P+bA ȁ  L+@#+@#+`7΋7`#+#+`7΋7^L ",#P, /؟ @#,"  `7΋7^ /p t@0,,fhj ` "l, ",`7 /p tld  " ,,΋7^Dl"-#P-0Ƞ ȳ ȃ#-#-#- @#-@#-`7 SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd-΋7R/--.R-J!!!Q-I7)K 8- (Ƞ<-#-Ac-B (-$ )-$ݸHݷݷݷݷݷ.l: -)-hݹݹݹݷݷݷݷQ> - ʆ`7h: - > -" (00݈݈ݷ[΋7R -g-[Q  -f-[h-Z `ʈʃ`7h΋ȃ " `Ȁ"."@` #.`7΋ . `7­*   //1r/0L/^V 2 /bCECI  i/X@@  [ED*Et !  ` ` /!` F`EE2/4:/@΋7Z 2:11б B!`C-0H`#`B7΋7b121hm21h4:1l 1121hm21h4:1l2L21h  2d2l21h221h 2v 2z 2d2l 21h221h 2221h4:1l 2 21h21h4:1l2"21hN21h4:1l4:1l`7΋7^4:1214:14:1`7COPY DIRECTORYBACKUP DIRECTORYORIGINAL SOURCE: ORIGINAL DESTINATION: ORIGINAL OUTPUT FILE: CONTROL FILE: LIST FILE: RESTORE DIRECTORYORIGINAL OPTIONS: ALIASES NOALIASESADDREPLACEBLOCKNOBLOCK, ΋7\4B D44`7΋7^ 4 44 4 D( 4`7΋7b 4 44`7΋7\ 4 44A 4J ΀23J J4`7΋7^΁΂J!*  Ԁ  CB23*`7΋7^΁΂J!*  Ā  CB242*`7΋7b 4A D34z`43H4z34z`7΋7` 4 4 E"4`7΋7X΁΂ 4a4v  HTOv ( FD I&=D I&5    H"܀̳ē( Y N    *`7 4 E: 4 4 D76 D/*(C72746. Cѕ &NN6.ѵ 63ܠ70ܠ70ܵ6.BB76 4 4 I4 ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k2DC ݑ ? ?0$.( :61 8 88 8  `p܀4 ܴ1 `CܱC@-mqp00A : 'J)#ȂG9(09(H E`8  #` m@  @ p@ bA@AI::mqm:9FEmGHmr:899@DDE    ba [[BCEEF[A:^I1܀ ܱ@[P  j,`:d-`:qj /`:y/' `:` `:q/`:m/`:p/,*ʇ,j,'-J!****:nK-+09A/*m `=ѱ * ==@m  @"  *@* **@  =* =EF HIm  4==)== = ++ 88GB = b@B@ABE F ABI@J!B ?C??A?1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  @)@*hEeD4 4@)YtW@tPtN@*Kђ @(E+`DԁC5u @1`@)taC$@*   At@)  aԇtm* "ròAC*A* ā*/ BBAjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ |12B |1`a2B ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`C=`CF%00څڅj ʁ* IpC C`7IlIpC C`8 IhIIlIIpC C`8IIpC C`9NIpC C`9IpD D4`:IpD D4`:IpD  D4`;`IpD, D4`;II IE& EF` EF`=`:`SYSTEMp `IIIIH H`=ICCHHIH H`>2IpH H`>IpH I `?xIhIlHIpI I`?`?  I`?IpI* I2`@,III8 I@`A@IE"E.IVHIpIZ Ib`A H`B`BIpI`BIpI`B`BIpI I`CI .S$FTLF00HmfH@ Kmİ5 ؆b 6`#6-mdA!&$DX4$Ij HJPT ,`jPԪFj%"@*I-fZY%ҥb2@6,ef, dX2UUUUUHDHB$I)I6a0*P`@1`J$00 @I BD%L h` ŀ2$A@ 4J $ (TM @@ HR &5 EJ*D"B%P$$ B(@f4@1@0JcF2$*Q F `I S41%&R20 @E`KJPV LK4cT(@2H%@1D0fkDJkIf3dY $ H  ` B cTA "( H$P D@B @DT*@@ @ @ X]u]pkTu  <2L%H2-22 d83΋5Ԡ ء ! ` ؀ /"(ء /"b  jԑ ȡȠ /"`5X_΋5ЮC 8BB.B <@ʁ`5΋5 C. DĘ rjC`5΋5Rp` qaBQ CBj! <`5%΋5   h  ̱̱̱`5΋5`/``Q`VA `Vh  `5 ؁ȁ /"*zdbA  G΋5ˆ `0``1(" D`DB `0````5`` ΋ b  `6` 3΋5 `` BB a sB D  ````5`΋΃   J`6΋΂΁΀` /!΀` /!΀‚`5΋5 ! DȄj`5΋5CD!" D!ȄbGFt/""*z b  !/"*z `5΋5B` /!o  hΡ     L` ` /С rp` ` /!  ^-2x[ B` /!~H   -2x@ 96 0-2x0&,` /!! ! N-2x` JZ/!r-2z  zJ`5J΋5n ` n4 0b A bȁ !!ԁȠ Ȯ2 n@`"Ġ ..    Zn" ʃnJ H`  .* .+.,; b` B`` /! "Ē" """ R/!  # `5΋5 nC  Lܠ  LM$  /#7x/#C L HCn    #  /#CM L`5 66΋5A  # `5ƁZ[  '΋5#M    B$  /#$  B @ `5@ $79@  %&1;uv&'09AZ ,$!(.)EOD ADDREPLACE MULTIVOLMNOMULTI>Sf   a 9 aP2F**HDR*~Y$BME PԀԀ;ZԀԀJԀ0y0Ԁ0y0Ԁ y }y*y@y+y@Vy,y@Ԁ'22S$CRASH VCATALOGS$DIAG $ERROR CODE NOT FOUND. WRITE AN STR !COMMA EXPECTEDERROR WHILE GETTING TASK CODE$SPECIFIED DESTINATION IS A DATA FILEEND OF LINE EXPECTEDIMPROPER FILE NAME)FILE NAME NOT IN DIRECTORY AFTER CREATIONILLEGAL OPTIONCAN NOT GET TCA#ERROR RECEIVED WRITING LISTING FILE$ERROR WHILE OPENING THE LISTING FILE%REQUIRE BOTH A SOURCE AND DESTINATIONINPUT NOT GENERATED BY BD 'INPUT NOT A SEQUENTIAL FILE OR MAG TAPE"REPLACE DISC NAME WITH VOLUME NAMETAPE NOT FIRST OF SEQUENCE$ RECEIVED; RESTORE TERMINATED&TAPE # OUT OF SEQUENCE 4TAPE NOT OF SAME BACKUP DIRECTORY AS FIRST TAPE 2 MOUNT TAPE ; TYPE $ TO QUIT, Y TO CONTINUE 0ERROR ON READ TO TAPE; FIX TAPE ALIAS  IS AN ALIAS OF 2 IS A DIRECTORY BUT COULD NOT ASSIGN A LUNO TO IT DIRECTORY  DIRECTORY  ** END OF DIRECTORY  ID TOO LARGE - COULD NOT DELETE PROTECT - COULD NOT WRITE PROTECT( ** MAXIMUM NUMBER OF OVERLAYS DIFFER.* ** MAXIMUM NUMBER OF PROCEDURES DIFFER.% ** MAXIMUM NUMBER OF TASKS DIFFER. TO **  WAS NOT IN THE SOURCE NOT COPIED' ** WARNING - NOTHING AFTER DIRECTIVE"****** RESTORE DIRECTORY COMPLETED - PROGRAM FILE ** END OF PROGRAM FILE > ** TASK ID ** OVERLAY ID ** PROCEDURE ID NOT RESTORED ERROR IS A SYSTEM ERROR ** UNABLE TO ACCESS Ԁ TYPE/USEAGE CONFLICTԀ> NOT REPLACEDX ** UNABLE TO DELETE | ** UNABLE TO CREATE ΋5   t z`ʁB J  `,R BM`;"````Ȁ` DF" N`5΋΁ Ƃ/  -2c9 0S#!JZ`6΋5ȃ`v#1  9=Ȇ````*4  Ȁ`5΋51  ܱfܳC   ܱfܳC  ܱ` @ʁ`5΋5  DS 1  1   jБ `5΋5 "1Ԁ A `5΋1 1 `6΋1  `6΋52 2 И     *2`.}%28tP0  z2l @D "&2EL)& 23@M&  2\]       `5΋5LR`5΋b^`6΋ /#`6΋51         ` Cʁ `5΋5>`> ` `5>  /c΋5> ȁ` `5 / X΋ȁ ؀ /"`6΋ ؀/"`6΋ ؀/"`6΋ȁ ؀/"`6΋ ؀؁/"`6΋5 ؁/" ؠ/*zbA `5΋ ؀/"`6΋ /# /*z`6΋ ؀/" ؠ/*z`6΋5 J   tQ    w w]  "`5΋        `6΋5Ή ` B Q  Q /   JZ`5΋Ή` Y ` / JZ`6·ΈƉ  W I @Y7p7wxZJJ[΋5$àn(n ` $`  `  ` ` n RC`5΋5n `  `  $àn(`5΋5]` #YL L! D! "ȁ `!!!7L!B! "ȁ !    !Q  @!@!`5΋` ` /! ˮ` @/!`6"""""""""p"p"""p"p΋5  t  "  !!" A3 R1 @v"""-2""`5    ΋5$#  $  # R !ۀ`  -2#` thn-2#  N# p*<#ȃjP#j#D# /#a <*-2# -2#`5R-2#jP#j` # `" ΋5b ȄȠ `$ȃȃ ȁ ؀$ԛ* .*$z-2$$+ .+$-2$$, .,$-2$`5.VCATALOG΋5  .(đCtQё qF( %%܅ ܳQ  @$ w`5΋5'~ -2'n`&|"M'n J$%.@@"-2'nM-2'nV.@@#'X'`'XB!'n.@-2'Xj''X)M-2'X-. ȎȀ'h @-2'X.(T'nM$'nȎȀ'h  M-2'n-2'n M$'n.@ E`%n@@A'X "M'n J,'F-2'nM-2'n-2'n@''d @'v*"'|`5΋''`6΋5 @nn B((Pj ؀.@"(P(PD(P('(C ؠ /"-2(PD ؠ /"-2(P`5΋5.6 ȃ@Ȁ(C! J ,( @-2(#   @`5΋` `  K/!kk `6΋5  t z)$),)$ʁ`5΋5 <LL!)H Z!@T`!*!@` < BL$*  2 r  @`   LL*D*bA ȁ   L*@L*@L*`5΋5L*2*8`5΋5Ġ ȃp s*tȓ/"`5΋5 / ,** `  *n*`5 /    **΋5b+`D+VȠ ȳ ȃ+L+V+` @+T@+^`5 SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd+΋5/++,+!!!Q+7)K 8+ (Ƞ<+#+c+ (+h )+hݸHݷݷݷݷݷ,: +)+ݹݹݹݷݷݷݷQ> + ʆ`5: +d> +f (00݈݈ݷ[΋5 ++Q  ++h+ `ʈʃ`5΋ȃ " `Ȁ-."@` -,`6΋ -> `6­*   .0.&/.&..&^Vp2 -CECI  i-@@  [ED*Etp!  ` ` /!` F`EE1.&2~.*@΋5 V 0~//б B!`C+.`#`B5΋501/m1/2~/ 0061/m1/2~/01/  001/01/ 0 0 00 1/01/ 001/2~/ 0N1/1/2~/0f1/1/2~/2~/`5΋52~/ V1/2~/2~/`5COPY DIRECTORYBACKUP DIRECTORYORIGINAL SOURCE: ORIGINAL DESTINATION: ORIGINAL OUTPUT FILE: CONTROL FILE: LIST FILE: RESTORE DIRECTORYORIGINAL OPTIONS: ALIASES NOALIASESADDREPLACEBLOCKNOBLOCK, ΋52B BT22`5΋5 2 22 2 Bl 2`5΋5 2 22`5΋5 2 2ʠ2A 2J ΀11J J2`5΋5΁΂J!*  Ԁ  BB12(*`5΋5΁΂J!*  Ā  BB12v*`5΋5 2A B`1^2`2121^2`5΋5 2 2 Cf2`5΋5΁΂ 2a4v  G6TOv ( FD Gj=D Gj5    G"܀̳ē( Y N    *`5 2 C~ 2 2 B`5z BH/*(C5v5x4r Bѕ &NN4rѵ 4wܠ5tܠ5tܵ4rBB5z 2 2 Gx ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k0$.( :61 6666 `p܀4 ܴ1 `CܱC@2DC ݑ ? ?-mqp00A 8T 'J)#ȂG8(09(H E`6  #` m@  @ p@ bA@AI8~mqm8T8FEmGHmr8T899@DDE    ba [[BCEEF[A8I1܀ ܱ@[P  j,`8-`8j /`8/' `8 `8/`8/`8/,*ʇ,j,'-J!****8: xaʁ,G8::`8j,`8.*#2CDD C`8`8/С B $2D. j,`8<.`8-m (1 1   2 D   2⊂ʂ`8j."2 ܃[ E`8B`8/! 0C`8E/! !   ʂʁ,[&"`8/`8/ @*p *xJ!ʁp*v;;; ;vjd ;;I`@*v*pʪhj;;; ;@;; @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `<>ѱ * <<@m  @"  *@* **@  < * <EF HIm  4<<)<< < +М+ 88GB < b@B@ABE F ABI@J!B >C==A>1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  >m>nhEeD4 4>mYtW@tPtN>nKђ >lE+`DԁC5u @1`>mtaC$>n   At>m  aԇtm* "ròAC*?* ā*/ @@\?jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ |12A* |1`a2A* ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`A=`AF%00څڅj ʁ* GA A`6 GG\GG`GA A`6GGB B `6GGB4 B `7GB@ B `7GBL Bx`8GBX Bx`94GBd Bx`9GBp Bx`:HH HCj C`;@GCv C`;GC C`;`:`SYSTEMp `GGHHGGn Gv`>pG\Hb΋Af/  @Y-j- PȀ<8ȁ-^<" @B+ - M3 <1 @$TT8 npp4$ p \]pp <8 @-@.6`@"..-.6@<8@0`A p  tD2` t(` t.` t ppnDtz5Z Ѐ#*<`+$DЀ+ -`$D+` t`d`΋AlԒ"ܒ"B8J" `A΋΂΁΀`$ /!΀`$/!΀‚`A΋Ah %!/ DȄ`A1 !9%$B $B$B $B!΋A^%8`!0: F`$@ @/%` &  &0: DɃɀɀ /&` ##" # #' G @#A$ ʠСd48IA8eZ8I !e eGA 4%D /! !)` CC / )` #$ # $*ωG"A8I8`At΋Ahc!L"D"6 ȃr8j!/#`A8΋AbCD!"/ < D!ȄbGFt/"" <b  <!/" <`A΋Ah2& R j V`A@4 f ΋1 "n N!`|4 l ""L2 $.$ $. $,`$2  T"N   @ 8   6 'J`A4 J't8 8 ΋B, |"8 |B2 |" 4 |J[΋AlLM`A΋AlL4TM4T`A΋Aj b 0ʃc#|, 0C!"8 8 08 0n  8 08 0`A΋Ah5* `$j5* `$. ^T8 j   BN C ؠ$/"F8 D ؠ$/"88 `A΋Ah#M$6-j ^ h4T P P/#4T Ph P@.6 \`A΋AlB `$/!oJD$hΡ   jDL`$.`$/СErp`$`$&/! N $^8 [B`$/!N H $: 8 @ 96 j8 0&,`$/!!$!$8 `$JZ/!&8    J`AJ΋Ah"nr `$0n4",b A rbȁ !!ԁȠ$>Ȯ2 n@`2"Ġ$(4..  $> $> 0~n"0ʃnJ H` .* .+.,;F""b`$B`$B`$B /! "Ē" """ R/! J# J`A΋Aj *C"  ܠ$ M4T$/#7x/#CN "\(CNn0:  JJ0:#$ /#CNM `A 66΋AfA  # `AƁZ[  ' $&'09AZ ,$!(.)EOD INCLUDEEXCLUDEOPTIONSMOVEENDADDREPLACEALIASES NOALIASES#Zo   ( J1oBP22F_@U0:TnTU0UpzU0UpU0Upp22"\`%S$ROLLA S$CRASH VCATALOGS$DIAG $ERROR CODE NOT FOUND. WRITE AN STR !COMMA EXPECTEDERROR WHILE READING TASK CODE$SPECIFIED DESTINATION IS A DATA FILE.INCLUDES AND EXCLUDES SHOULD NOT BE INTERMIXED6END OF CONTROL FILE READ WHEN DESTINATION WAS EXPECTEDEND OF LINE EXPECTEDIMPROPER FILE NAME)FILE NAME NOT IN DIRECTORY AFTER CREATIONILLEGAL DIRECTIVEILLEGAL OPTIONCAN NOT GET TCA$ERROR RECEIVED WRITING TO LIST FILE %ERROR ATTEMPTING SYNONYM SUBSTITUTION!OPTION BETWEEN EXCLUDES NOT LEGAL$ERROR WHILE OPENING THE LISTING FILEPDT FOR VOLUME NAME NOT FOUNDRIGHT PARENTHESIS NOT FOUND%REQUIRE BOTH A SOURCE AND DESTINATION7REQUIRE BOTH A SOURCE AND DESTINATION OR A CONTROL FILE)NON-LETTER FIRST CHARACTER OF TEXT STRING"REPLACE DISC NAME WITH VOLUME NAME% ** MAXIMUM NUMBER OF TASKS DIFFER.* ** MAXIMUM NUMBER OF PROCEDURES DIFFER.( ** MAXIMUM NUMBER OF OVERLAYS DIFFER. TO ID TOO LARGE ALIAS  IS AN ALIAS OF ****** COPY DIRECTORY COMPLETED2 IS A DIRECTORY BUT COULD NOT ASSIGN A LUNO TO IT DIRECTORY  DIRECTORY  ** END OF DIRECTORY ) ** PROGRAM FILE COPIED USING FAST COPY **  WAS NOT IN THE SOURCE NOT COPIED' ** WARNING - NOTHING AFTER DIRECTIVE NOT RESTORED ERROR IS A SYSTEM ERRORl - PROGRAM FILE ** END OF PROGRAM FILE|_p00 - COULD NOT DELETE PROTECT - COULD NOT WRITE PROTECT ** TASK ID ** PROCEDURE ID ** OVERLAY ID >`fl-A U  U  ** UNABLE TO ACCESS  TYPE/USEAGE CONFLICT NOT REPLACED  ** UNABLE TO DELETE 0 ** UNABLE TO CREATE   %&;1uv 79@΋Aj nptv)@%ʁB 1%8% BML*X%;"-%.6%``Ȁ-j% -$"  .6$`A΋A^.  JRLф'.<CC`&lQ=E~ CR=Eq9aa<8/&n`$FD#D##FCC |a9Qzb9Rx haم٠Xbم٠T%9`x~S9`zE&v&n`~ ` &&nʄ`At΋΂΅ΆhȠ|Ȇȣ /"|h=`zdJJZJ`A΋AdX`T-9`xEF Cd /!h | =`xeʄ`A΋Aj ȃM-j'p`A΋Ajؓ.6'`A΋΁ Ƃ/ }8'c9 0S#!JZ`A΋Ajn p4pp42-(r 'vܱܠ|vt*<(+(8(+(  `A΋A`ȃ-)<#1  9=Ȇ-)&-)&*4  Ȁ`A|΋Aj1ܱ))/)ܳC ܱ/)ܳC ܱ` *) ʁ`A΋Al DS11 jБ `A΋Aj1Ԁ M `A΋11`A΋A^ !/1 2/E CF!z`&K Ȉh`H HG /!̨ ĨD`At΋1`A΋Ah>,>,   ,>+`,}%>+tP<, >+ @D 2,>,EL5Z,>,@3@M$D,  >,l\]    `A΋Aj,`A΋,,`A΋ /#`A΋Ah1 ` Cʁ`A΋ȁ ؀$./"`A΋ ؀/"`A΋ ؀/"`A΋ȁ ؀/"`A΋ ؀؁/"`A΋Al ؁/" ؠ-h/.2bA `A΋ ؀/"`A΋ /# -h/.|`A΋ ؀/" ؠ-h/.`A΋Ajn p2 p42-/ 'vܱܠ|vt*+/8  `A΋AjnptQv j l w w]B ~`A΋ `A΋AlΉ`B Q  Q/   JZ`A΋Ή` Y `/  JZ`A·ΈƉ  W I @Y7p7wxZJJ[΋Al$àn(n `$<$`$> `$0 `$2`rn RC`A΋Aln `$0 `$2 $àn(`A΋Al]`#Y$6L-j1 -1ȁ -1-1.6171B1ȁ 1  !Q  @-1@.61`A΋΂ȠzȀȎ-2..@bzJ`A΋AlL$6-j2-2x Ȏ-2nz.x| @-2v@.62`A΋`$`/! ˮ`$@/!`A3r3x3~33~3333:3:3r3x3:3:΋Afntv  2 22-3N M3 R1 @*<3f-3`+3`83n +3n`A jj ll΋Aj3L$6-j4 -4ȁ -3 3-4.64  @-4@.64 `A΋Al-4F.64F | Oz/؟|`A.VCATALOG΋Ad  .(đCtQё qF( %%܅ ܳQ  @4J w`A΋Ad`pԒԄE xX p`A΋`$`$*K/!kk `A΋Ajptv)@5~55~ʁ`A΋Al <L25$Z!@T`$26\!@` <hL4T6\ p2 r @`v nL-j6x-6jbA ȁ  RLR*X6\@-6h@.66v`A΋Al-6.66`A΋AlĠ$8ȃp$ s6Πȓ/"`A΋AjLz$6-j7-7 /؟ @.67z|`A SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd7΋A^/778^7V!!!Q7U7)K 87 (Ƞ<7#7Mc7N (70 )70ݸHݷݷݷݷݷ8x: 7)7tݹݹݹݷݷݷݷQ> 7 ʆ`At: 7,> 7. (00݈݈ݷ[΋A^ 7s7gQ  7r7gh7f `ʈʃ`At΋ȃ " `Ȁ-j8"@` .68`A΋ 9 `A­* ~ ~99;~9:X9^VZ2 $>9nCECI  i9d@@  [ED*EtZ! $4 $*`$`$/!` F`EE<9>F9@΋Afr F;x ;;<;tm<;t>F;xF;x <<;t<;t>F;x<.<;t<;t>F;x>F;x`A΋Aj>F;r<;>F;>F;`ACOPY DIRECTORYBACKUP DIRECTORYORIGINAL SOURCE: ORIGINAL DESTINATION: ORIGINAL OUTPUT FILE: CONTROL FILE: LIST FILE: RESTORE DIRECTORYORIGINAL OPTIONS: ALIASES NOALIASESADDREPLACEBLOCKNOBLOCK, ΋Ah>B N>>`A΋Aj > >> > N4 >`A΋An > >>`A΋Ah > >>A >J ΀<=J J>`A΋Aj΁΂J!*  Ԁ  MB<=*`A΋Aj΁΂J!*  Ā  MB<>>*`A΋An >A N(=&>`>=T>=&>`A΋Al > > O.>`A΋Ad΁΂ >a4v  RTOv ( FD S2=D S25    R"܀̳ē( Y N    *`A > OF > > N(AB N/*(CA>A@@: Mѕ &NN@:ѵ @?ܠA<ܠA<ܵ@:BBAB > > S@ ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k2DC ݑ ? ?0$.( :61 BBBB `p܀4 ܴ1 `CܱC@-mqp00A D 'J)#ȂGC(09(H E`B  #` m@  @ p@ bA@AIDFmqmDCFEmGHmrD899@DDE    ba [[BCEEF[ADjI1܀ ܱ@[P  j,`Dp-`D}j /`D/' `Dl `D}/`Dy/`D|/,*ʇ,j,'-J!****DzFz xaʁ,GDxFzF``Dvj,`Dp.*#2CDD C`D`D/С B $2D. j,`Dp<.`Dt-m (1 1   2 D   2⊂ʂ`Drj."2 ܃[ E`DnB`D{/! 0C`DE/! !   ʂʁ,[&"`Dx/`D|/ @*p *xJ!ʁp*vGGTG G>jd GGTI`@*v*pʪhjGGG G@GG @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `Hѱ * GG@m  @"  *@* **@  G* GEF HIm  4GG)GG G +М+ 88GB G b@B@ABE F ABI@J!B ICIIAI1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  J5J6hEeD4 4J5YtW@tPtNJ6Kђ J4E+`DԁC5u @1`J5taC$J6   AtJ5  aԇtm* "ròAC*K* ā*/ LL$KjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠSG[@[NB qMQ r[ |12L |1`a2L ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`M=`MF%00څڅj ʁ* S|M M`ASxS|M M`BStS$SxS(S|M M`BSS|M M`CZS|N M`CS|N N@`DS|N  N@`DS|N, N@`ElS|N8 N@`ESS SO2 OR`GS|O> OR`GXS|OJ OR`G`:`SYSTEMp `SSSTR R`GSMNRRSR R`H>S|R R`HS|S S `IStSxRS|S S `I`I  S `IS|S6 S>`J8S$TSD SL`KLSO.O:SbRS|Sf Sn`K R`L`LS|S`LS|S`L`LS|S S`MS .S$FTLF00RmfH   "KP`R$>Fj4d@CJ d`UJ*ȰbXR"( ZZ  QX@(TIX4 ` -&d$h@YDI`&XKCA -!00 @D ȃbXX@D ,B0*$()HB@f H $!B$PH(B!I" @ RaM` hHi` *DH6@ @J `(C0%I$%DH Y2X!,XX 4($H@H@  "cXT"H$I" J"U@BH$"4l@`$$0c"@bl E3@hc+hH P Rl%# Qf,d  10T@J@AR@  H@ B@KZI)%Zf͐Mf $DPB% JD0R!C%5Q@@@" @@H@!@PP !@@@    (` u]uRjTu@ERROR RETRIEVING TCA RECORD&ERROR GETTING DIRECTORY NAME PARAMETERUNABLE TO DELETE DIRECTORY  l . VCATALOG DELETED ERROR RECEIVED & @52C C %Q @ l2ԃ @  &@1    ΋ D Ld&`dE` `& 2`&FlѸ8y8y&lї7 y {lz {l&l&&& l 7(!@ l     ` ` NV OV QV SV RV΋Z^\Wb/T T` ΋ PVZ\Wb/T X@  T` ΋8| 8~88` 6V>0 A  ,DI ?EOI/΋ P   ` ΋ H΁΂ a4v  TOv ( FD l=D l5    <"܀̳ē( Y N    *` p     8 /*(C460 ѕ &NN0ѵ 5ܠ2ܠ2ܵ0BB8    ERROR IN OUTPUT TERMINATION΋ LB ` ΋ N     ` ΋ R  ` ΋ L  A J ΀ RJ J` ΋ N΁΂J!*  Ԁ  B *` ΋ N΁΂J!*  Ā  B *` ΋ R A  :`  : :` ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kP  j,` -` j /` /' ` ` /` /` /,*ʇ,j,'-J!****   xaʁ,G   ` j,` .*#2CDD C` ` /С B $2D. j,` <.` -m (1 1   2 D   2⊂ʂ` j."2 ܃[ E` B` /! 0C` E/! !   ʂʁ,[&"` /` / @*p *xJ!ʁp*v  jd   I`@*v*pʪhj  @  @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A  'J)#ȂGb(09(H E`<  #` m@  @ p@ bA@AImqmbFEmGHmr899@DDE    ba [[BCEEF[AI1܀ ܱ@[J!B RC..AP1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC** ā*/ m*P*P>K-+09A/*m `<ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@,()mtytw  hEeD4 4YtW@tPtNKђ E+`DԁC5u @1`taC$   At  aԇtjB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`^=``F%00څڅj ʁ*  |12 |1`a2 ? ?mCD[PjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[z ` z ` Xz ` z ` 4  ` dz ` z  ` `:`SYSTEMp `z `>z `z ` z  `z ` `.  `R `z0 8`@ H` T`X H`tzd H`zp x`z ` .S$FTLF00uz`jz``z ` ``! B&&ؠ((%SRT $ ARQTU $ H  ` B c @T @ @A@P    @ @H @  ]uq.__XTD & VJ |jK`N `$J |~ | |`   ` | ` | ` `(JK-+09A/*m ``ѱ * =<@m  @"  *@* **@  B* AEF HIm  4=<)>: > +М+ 88GB ; b@B@ABE F ABI@J!B <CA:1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  hEeD4 4YtW@tPtNKђ E+`DԁC5u @1`taC$   At  aԇtm* "ròAC** ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[D`D``D `D `D `D "`D "`VD "`D "`2~  4`bD  4`D, 4``:`SYSTEMp `zd `D `D `D  `D ` `  `<D  `& .`pDh p` .S$FTLF00D ` ``C`)TA`D bf EQTml R-fT fJ $HP,(H%P $DPB% JD0R!C%5Q@@@"  @@$(@@*P!@ A뮺]@uӎu5 J &  ^ `+`^$.t8`$```` ````````΋CV \ʁʅʆ`΋`ʠ \`΋ڠ \`΋zTH@ 'Hʂ \`΋ h jv цh:ʉʄ \`J|````΋BFHFʂ \`΋txCxʁ \`΋V Hz`΋ʄ \`΋p~/n n`q ʁ p`΋p~/n n p`΋psp/n n p(`tʁ l l s / p/ ~ ``΋p@pst/n n ^ p`΋ Hz dDpQpt/n n p H p`΋pp tDv/n n%  ` D$9D&  VqEʅʠ ʠ   p`΋ Uʅ/ʉ t`΋pEp/n n p H p`΋p p` l nx nx/n n` l/ ~ ~ p`΋p pv/n nxtx Gaxx܃`r ` b p`΋pFp/n n p H p`΋N F` h j XV  >N ^ `΋ h d h 6` % "    8 _         ^ pp/n n p p/n np `pp/n n p p/n n p I/ P P P) ONLY THE FIRST 80 BYTES WILL BE DISPLAYED RECORDS OUTPUT TO FILEFILE INITIALIZATION FAILEDINVALID PARAMETER SVC ERROR  PARAMETER OUT OF RANGE INVALID INPUT FILE TYPE& FILE EXISTS AND REPLACE NOT SPECIFIED" ERROR OPENING TERMINAL LOCAL FILE% ERROR WRITING TO TERMINAL LOCAL FILE INVALID OUTPUT FILE TYPE INTERNAL ADDITION ERROR ASCII CONVERSION ERROR INVALID KEY΋ B   `΋       `΋    `΋   A J ΀ > J J `΋΁΂J!*  Ԁ  JB > P*`΋΁΂J!*  Ā  JB > *`΋ A  `   `΋    ` ΋΁΂ a4v  !TOv ( FD !=D !5    !P"܀̳ē( Y N    *`      /*(C Jѕ &NNѵ ܠܠܵBB   ! ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k |12 |1`a2 ? ?mCD[-mqp00A  'J)#ȂG(09(H E`  #` m@  @ p@ bA@AI@mqmFEmGHmr899@DDE    ba [[BCEEF[AdI1܀ ܱ@[P  j,`j-`wj /`/' `f `w/`s/`v/,*ʇ,j,'-J!****tt xaʁ,GrtZ`pj,`j.*#2CDD C`~`/С B $2D. j,`j<.`n-m (1 1   2 D   2⊂ʂ`lj."2 ܃[ E`hB`u/! 0C`E/! !   ʂʁ,[&"`r/`v/ @*p *xJ!ʁp*vN 8jd NI`@*v*pʪhj |@ @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  /0hEeD4 4/YtW@tPtN0Kђ .E+`DԁC5u @1`/taC$0   At/  aԇtm* "ròAC** ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`.=`0F%00څڅj ʁ* "RjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[!:`D!B`h`!N V`F!~ V`T! V`! `! `! `f! `"" "8 `! `R! ``:`SYSTEMp `""","X!T !\`Fz!h!t"8!l !\`8!!x !\`!! ! `~""!D!! !``  !`!! !`2!"X! !`F""x!D!" "`"" .S$FTLF00!7!"| "`: !D` `"-Ah[mB! AHc )H0%X` c )AHRPUIJI )E3Q)J*B QRE!I$$Q(TQ( $DPB% JD0R!C%5Q@@@"  @@$(@@*P!@ A뮺]@uӎu5 J ,  r./,/& ' =/( .4VhVaA*VB  V!onVVa B5/2 3  8 5WSYS: DO NOT SUSPEND SVC FAILED-LUNO CLOSED, RELEASE FAILED (ERROR CODE,LUNO)΋ v x v`΋΁΂ va4v  ,TOv ( FD `=D `5    "܀̳ē( Y N    *` v , x z Z /*(CVXR ѕ &NNRѵ WܠTܠTܵRBBZ v x n ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kP  j,`-`j /`/' ` `/`/`/,*ʇ,j,'-J!**** xaʁ,G`j,`.*#2CDD C``/С B $2D. j,`<.` -m (1 1   2 D   2⊂ʂ` j."2 ܃[ E`B`/! 0C`E/! !   ʂʁ,[&"`/`/ @*p *xJ!ʁp*v66 jd 6I`@*v*pʪhj6.6 @6. @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A   'J)#ȂG (09(H E`x  #` m@  @ p@ bA@AI mqm  FEmGHmr 899@DDE    ba [[BCEEF[A .I1܀ ܱ@[>K-+09A/*m ` Vѱ *  3 2@m  @"  *@* **@   8*  7EF HIm  4 3 2) 4 0  4 +М+ 88GB  1 b@B@ABE F ABI@J!B  2C  A 01܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw    hEeD4 4 YtW@tPtN Kђ  E+`DԁC5u @1` taC$    At   aԇtm* "ròAC* * ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ*  |12 |1`a2 ? ?mCD[vjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ &`* &` &` &`p  8`$ 8`0 8`2`:`SYSTEMp ` `z `  ` \ ` :  ` $ ` 0 : ` JNJ :` `   :` 2d l` Rr z`  8 `  .S$FTLF00```< D` `` E"$@$UH )H(** HPP U @P !@@@   @A뮸5P5_N:ׯ@7P J .~  PRINTER I/O ERROR PATHNAME L  OUTPUT DISC NAME?: .,^: DX10 R2.2 DISC CONVERSION R2.2 DISC:  END R2.2 DISC CONVERSION P  $@ CC *0123456789ABCDEF $ )//$`/ !lr/n ok` ` Qd cLj `jT2..pܱB :g/i`f8`dh* # **jS,L0c00c00a V  ,X2pNTOT "R~ '/m  '#Р/0 1:/6`<aa!,'`X3 `  b8```lm l`j _F \MO` V` Э c'0_'\&Y- S- T`R`TI  -M-NS <@ >B`@ B"0B BB@oo/M/N-M-N$$L$DNL`zM2MDBMNSp&' N NM` H`@ B"B BB@_L$L\ @ "\ĈH_ !"\DNL\& T R`R`TD&'NSBM ` `< F<@J`lm l`j _F X`Э '0'&|- S- T`R`Ta  -M-N(-NM <FD<B`"Fo @`@ B"9 DFDB BB`@D9J&!D T RNL`R`T&'NSNM`M2MDNMNSp&'` ,tPP.`* h  `=`,Ȉ." oa`." `f`j- m6 _F': _F``& _F' _FA A `j/f` _F'ADA p  : CONVERT FILE (Y/N/A/S) ? #4$#>#4#4%##4? CSCRCI? NSNRNI CSCR NSNR  S "  *l,L> d  "X2p`" # # F* * !j*h*j<*<@*JjMM  ` -`#m "LF0pm [ # 'D'A&>** *``"$&#  `` &'CRCR`#F2FDCRp&' $z 'D'A&>*"4&  "!& `&'NRNR`$xF2FDNRp&' %r 'n'k&hjj O*"T* d*pAd,8&F & +, , ' *&)$ ݡ"&'CSCS`%pF0F2FDCSp&' & 'p'm&j"c&*"O* d*pAd,W&A +C ,> *&,$ 8d*pAd,2ߡ`"&"F2FDNSp&'F0&'NSNS`& 8 8`[ $`& )/ [ (`&j8Ъ 8 %, ,-1 3Р B`-"8Iܱܱ/./ @YN[S,A,`& &`& +`& S %QBT +UZ+T PԨHB2"A0DI)5iIII@D`V$*RUR+ JT@,RePIT UjT`@%IQ@YP$RJJ*XR@UIR$!* eBaYa@  (P*Y$I "TD(RD%DJR*I$$1@RD*I$$"$(@MBUjU!B jJ22  0:P N`J ` )/& &`/ `Ϙ ` }JJ ` )/& &`/ `~ `  ` f`! Q/@` *  #/ ` 0{~!w !o BDM`/]cAA bU BCB,$****`$@**,I/ F 01 /`$ //  (/&  (/& R// /// / `** UNABLE TO ACCESS TCA2** OVERLAY FILE PATHNAME TOO LONG (MAX = 50 CHARS)*** INVALID OVERLAY FILE PATHNAME - ASSIGN &** UNABLE TO OPEN OVERLAY FILE - OPEN &** INVALID FILE TYPE (RELREC REQUIRED),** OBJECT PATHNAME TOO LONG (MAX = 50 CHARS)$** INVALID OBJECT PATHNAME - ASSIGN &** UNABLE TO OPEN OBJECT INPUT - OPEN ** INVALID OVERLAY NUMBER #** UNABLE TO ALLOCATE MEMORY - SVC ** ERROR ON OBJECT INPUT - READ ** PREMATURE EOF"** ERROR ON OVERLAY WRITE - WRITE ** INVALID OBJECT TAG** INVALID OBJECT TEXT** OBJECT CHECKSUM ERROR0** OBJECT LENGTH GREATER THAN FILE RECORD LENGTHERROR CODE = > - OBJECT RECORD # VnGl'=Tm@@@@@À 3o    /    /   t`*p *xJ!ʁp*v  jd  I`@*v*pʪhj  @  @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `rѱ * ON@m  @"  *@* **@  T* SEF HIm  4ON)PL P +М+ 88GB M b@B@ABE F ABI@J!B  NC * *A L1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC* * ā*/ P  j,` -` j /` /' ` ` /` /` /,*ʇ,j,'-J!****   xaʁ,G   ` j,` .*#2CDD C` ` /С B $2D. j,` <.` -m (1 1   2 D   2⊂ʂ` j."2 ܃[ E` B` /! 0C` E/! !   ʂʁ,[&"` /` / @jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9` $=` &F%00څڅj ʁ*  |12 ~ |1`a2 ~ ? ?mCD[-mqp00A  'J)#ȂG(09(H E`   #` m@  @ p@ bA@AI,mqmFEmGHmr899@DDE    ba [[BCEEF[API1܀ ܱ@[:jjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[R r`t^ r`j r``:`SYSTEMp `b `VJV  ` `&" , `< ,` ` *  ,` NbV ^` NZx ` " `  `  ` h  `  .S$FTLF00 ` 0` T` ~ &` N &`@Z &`~ `R `8`:D(MII&(H@ [aT@Hڵ "H H)@A@PHH H@!@@@@(@@R5]pj jTR pPWCRMSUZLGXQNIJ+-?<h(rD^p,,,,,,,,,, , , , , ,,/ , > P  ? LOCATION XXXXDUPLICATE BREAKPOINTBREAKPOINT TABLE FULLNO SUCH BREAKPOINT BAD HEX VALUEC=XXXX P=XXXX =XXXX =XXXX BAD CHARACTER. XXXX=XXXX DEBUG 03/07/77. BAD COMMAND. BRKPT AT XXXXPC=XXXX END DEBUG.XXXX XXXX-XXXX XX END ACTION TAKEN, ERROR=XXXXWP=XXXX,PC=XXXX,ST=XXXX6Sr1Tz6P - DISPLAY PROGRAM COUNTER.W - DISPLAY WORKSPACE POINTER.C - DISPLAY STATUS REGISTER.R - DISPLAY WORKSPACE REGISTER.M - DISPLAY MEMORY WORD.&I - INSPECT RANGE OF MEMORY LOCATIONS.!J - DUMP ALL WORKSPACE REGISTERS.S - SET INSTRUCTION BREAKPOINT."U - REMOVE INSTRUCTION BREAKPOINT.%L - LIST ALL INSTRUCTION BREAKPOINTS.G - EXECUTE USER PROGRAM. X - SINGLE STEP THROUGH PROGRAM.(Z - CONTINUE EXECUTION AFTER BREAKPOINT. N - DISPLAY NEXT WORD IN MEMORY.+ - ADD TWO HEX NUMBERS.- - SUBTRACT TWO HEX NUMBERS.Q - QUIT DEBUGGING SESSION.`  DF qÑ` H  ` ` ` p4  I/`à r F  F F F` h;0 h[ h[ f FRO Èf([   FZW H([  FRO ([  "H M Fa_ H [ & H Fhf H& [ p   `p[A4    )F)`.['`'`    '` F  [ @   F@[[4` /@` `  F} F| H[ M49 F4[ n HHH(  FE9 FE 9 _ . 9 _ . I4n[A4  H   Fhf[  H b  Fhf[ 1[‹ Z!`  ,[B0 2ΠcÃ[;H B" `[0123456789ABCDEFN F` (Y  b` i<k[(Ɉ)` )` [kk  "  B  [ h [ h h  09AF ** k hk.[ l ~/,       P  P  *-????????????????????????????????????????????? pDS012 MVI 05/03/79COMMAND (L,C,Q)? BAD COMMAND.,I/O ERROR XXXX. ,MVI TERMINATED WHICH ITEM (S,O,P,L,D,V,W)? DISC? ) PRIMARY SECONDARY SELECT& SYSTEM IMAGE: XXXXXXXX XXXXXXXX X& PROGRAM FILE: XXXXXXXX XXXXXXXX X& OVERLAY FILE: XXXXXXXX XXXXXXXX X VOLUME NAME: XXXXXXXX& LOADER FILE: XXXXXXXX XXXXXXXX X& WCS FILE: XXXXXXXX XXXXXXXX X& DIAGNOSTIC: XXXXXXXX -------- XPRIMARY: XXXXXXXX SECONDARY: XXXXXXXX SELECT: X VOLUME NAME: XXXXXXXX  DIAGNOSTIC: XXXXXXXX INVALID ITEM INVALID SELECTIONFILE NAME SYNTAX ERRORLCxQSPOLVWDTPSYN  ( 0 : B L T n v ^   ( 0 8 : B J L T \ n v ~    ( 0 : B LG TQ / ^ nn vx        q  q ^  ^TPSNYzaZA90 $ & :y^`   v pr/ X XR p  aĒB n/ X X?A2/!EF C1 *,$zE t "*/ X X ^  ^V  :@ ` (/ X΋ p * $ /  /  `  ` ΋1  ` / / `(΋:/ ` !  ` `(΋ Cܣ`0123456789ABCDEF΋΁Q!`(΋1`΋/ $R$`΋/  ` A  / `(΋5Ř$E   ?:c`΋tt` !` 8!` J!` \!]` ~!` f!:t:t:t:t7:t^:t:t:t`(΋\^d }(8(^6>N>^LS!! ^ R/ Sz^` f!! ^  fR/ &: -: | T^bR/ `ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k*p *xJ!ʁp*v jd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\0$.( :61 1023 `p܀4 ܴ1 `CܱC@J!B .C  A,1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC** ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`h=`jF%00څڅj ʁ* \jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[t `X ` ``:`SYSTEMp `z `4 J N( 2 ` B 2``  2`. \ d`p|~ ` .S$FTLF00 `t `Z`\(FѥjULYU6D!hPEEfT-!SE)e6jhM-664Z4mEH@H(T 4  UmŐ6ff"JԨ 5KIAB )TZ$(,Ҥ*I!$kZֵkZ֬UeZ6fkkV,-kjPP@P ]@]}P&BS NBSCDELIMGKEYNNO PRORELSEQWRTYES<--  ( H i DIRECTORY LISTING OF:  MAX # OF ENTRIES:  # OF ENTRIES AVAILABLE: @ DIRECTORY ALIAS OF ENTRIES LAST UPDATE CREATIONJ FILE ALIAS OF RECORDS LAST UPDATE FMT TYPE BLK PROTECT *   & @ * vn * @v "â`nn % n % @ %  % "gtgt %  % n` %  % $87 t7 % " & DÎ&$$8t7S % "F)Y  N7 ` % $(p %@@B$@ % $. %@@B$@4 %  % nn`. %  % C %  % $7 8t7 % " & DÎ&$$8t7 % @ % F)9Y N7 ` % $( %@@B$@ % 3 % n`( % \tF`"/`  !$ & J *@        %`"/t & *΋@K`d΋BDBB/!0BB/!B` B/!B/!`B΋!7Ԁ *@ p`B΋ % ° N7 % °`d΋@ ` B %  % `d΋DΕU D ΃B N%8JZ N8T N8$C<C N8< C N8 DN8JJ`B  [0 // ::΋ H0 % °H % °HH   % °H  % °H  % °G % `dDIRECTORY HAS BAD FILE COUNTERROR FROM S$PARMERROR FROM S$GTCAERROR FROM S$IASC(ERROR WHILE ATTEMPTING TO RELEASE MEMORYERROR FROM S$RTCAERROR FROM S$CLOSERROR FROM S$OPENERROR FROM S$WEOLERROR FROM S$WRIT SVC ERRORDISC I/O ERRORPATHNAME IS NOT OF A DIRECTORY'ERROR ATTEMPTING TO OPEN DIRECTORY FILE#ERROR ATTEMPTING TO CLOSE DIRECTORYERROR ATTEMPTING TO ASSIGN LUNO ERROR ATTEMPTING TO RELEASE LUNOCANNOT GET ENOUGH MEMORYPATHNAME IS A DEVICE΋DCE`*   $("2$4&6(<.B4C5    SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd ΋/    ~!!!Q }7)K 8 (Ƞ< # uc v ( X ) XݸHݷݷݷݷݷ : ) ݹݹݹݷݷݷݷQ> ʆ` : T> V (00݈݈ݷ[΋ Q  h `ʈʃ`  0 A  *DI OI/΋:<ΎΏ<62n`pȁ ؁$ȁ/"@ ` ؁؁/" @  `" `pBȃ  ؁/p"@@ `p ؁/p#a###c Y  N 9DE&   `p Fd/b`c2 0HsE) 6`n`0pF p@`Z `  `Zp/Z##D nȣ #D@   (`0%Z   (`0%Z#p"@Ȁ 84/Z *( 4 4 B@`0ZpȣȠ@`R 2h`0/f2p /p / : <JJÚʠ2ʠ0` ΋" @"@ `d΋>U`8!" O>U`8ʁ>āO@`*΋ J 68rCݵXpeDN6J[΋p /$@  /$@ `2΋c C!8:`"΋0 6A0z<s0J<:b0\:4pɢ فBɃ/& DcA * 1ݲE Fpɢ& فBɃ/&  &F"&ʂ`"΋b "ܱB΋*B %&(`2΋ & (* ( % (`:΋ & *(`J΋ & (*A (J ΀t4J J(`2΋΁΂J!*  Ԁ  *@Bt*`:΋΁΂J!*  Ā  *@Bt*`:΋ &A %`*`J΋ $ & &$`B΋΁΂ $a4v  *TOv ( FD +=D +5    *"܀̳ē( Y N    *`" $ & & ( % %/*(C *@ѕ &NNѵ ܠܠܵBB $ & * ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kP  j,`~-`j /`/' `z `/`/`/,*ʇ,j,'-J!**** xaʁ,Gn`j,`~.*#2CDD C``/С B $2D. j,`~<.`-m (1 1   2 D   2⊂ʂ`j."2 ܃[ E`|B`/! 0C`E/! !   ʂʁ,[&"`/`/ @*p *xJ!ʁp*vb Ljd bI`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A V 'J)#ȂG(09(H E`  #` m@  @ p@ bA@AImqmVFEmGHmrV899@DDE    ba [[BCEEF[AI1܀ ܱ@[J!B  CA 1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC* * ā*/ m*P*P>K-+09A/*m ` ѱ *   @m  @"  *@* **@   *  EF HIm  4  )    +М+ 88GB   b@B@ABE F ABI@,()mtytw  "m"nhEeD4 4"mYtW@tPtN"nKђ "lE+`DԁC5u @1`"mtaC$"n   At"m  aԇtjB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`$=`$F%00څڅj ʁ*  |12$j |1`a2$j ? ?mCD[%n%$jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[+,% %`+,% %` +,% %`z+,% %`+f+h +& &`+,& &`f+,& &``:`SYSTEMp `+b+L+t+,*D *L`++,*t *L`+,* *L`+,* * `++*4+,* *``  *` +* *` V+X&&+*4+,* *` +Z+b+* *` +*p*|++++  *`!&+,+ *`!+,+" +*`"p*+,+P +X`#+j .S$FTLF00*'+,+`$+,+`$@`$j+,+ +`$ *4`%l`%n~X4PVEQZQk,!@ Xd$"h@ XbjbA*PBK 0$ P @KX$ *,0` (0H@ `HH@@H DȈ4 I   `$JH@ H @0@`@ ARQTU  * B T(   $ k]@]8_APu*& a 4, 0  , ;   `, R  #   , PPfCP PMP/' z`bPg!!!!D6( ( ! Dd /(  `bĘ Ę /(  `b |(  `b   `E   `b ^  f``  L   =@/  ,  EE [΋/' 3 z`b΋gE %g   F F ՠ `΋/' z`bg 6 B`΋ gEFD݄DՄhh S /(  `b<g'  hgE  !  X X  ,  Q`΋#  x. zT  ݂݂ ` E`šݴ `ݠݠݱ Q`!  X X  , ݲݲݲՒ`΋ê'(Dg D*'g DD gg DDD  'g DD g' bgE  z`b`΋#///' z`b(  `b `  ``Ƌ >> V  V , c  L, vz(y/' z`by/' z`b z`b ~[[/  b  dr  m a L  /  dr  mд  L a  || / /|[ ~~ //~[ L   L  `/  , [ *0 Y1+0 "====   . ? Q  PAGE  L ERROR 0 ASSIGNING TOON CLOSE/EOF TO ON CLOSE TO ON OPEN TO READING FROM RELEASING WRITING TOUSE COPY DIRECTORY ONEND ACTION TAKEN ON GET TCAON GET TERMINAL STATUSON GET PARAMETERON PARAMETER SPLITON SYNONYM SUBSTITUTIONON GETTING MEMORYINVALID DEVICEON ASCII CONVERSIONINTERNAL SYSTEM ERRORRELEASING MEMORYINVALID ANSI FORMATPRINT COMPLETEDAPPEND COMPLETEDCOPY COMPLETEDPRINT TERMINATEDAPPEND TERMINATEDCOPY TERMINATED 0 A  DI OI/ SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd ΋/  J B!!!Q A7)K 8 (Ƞ< # 9c : (  ) ݸHݷݷݷݷݷd: ) `ݹݹݹݷݷݷݷQ> ʆ`: >  (00݈݈ݷ[΋ _ SQ  ^ Sh R `ʈʃ`ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k*p *xJ!ʁp*vt ^jd tI`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A h 'J)#ȂG&(09(H E`  #` m@  @ p@ bA@AImqmh&FEmGHmrh899@DDE    ba [[BCEEF[AI1܀ ܱ@[>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@0$.( :61 ]\^_ `p܀4 ܴ1 `CܱC@J!B ZC66AX1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  hEeD4 4YtW@tPtNKђ E+`DԁC5u @1`taC$   At  aԇtm*P*Pm* "ròAC*2* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ*  |12 |1`a2 ? ?mCD[ PjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[8 X`((D X`x(P X``:`SYSTEMp `( `X( `( `\  (`X4@8 (`(D (`(P X``(d n `(~ n`(`6  n`Z( `( `\ `4@|( `6 .S$FTLF00(L`(T``( `8 `` մ P*0U" ʂ DA*@Hb@̐ @D`I H!$0$!PE%Uja@ DP!QY2"UQT` *IB PP@  $  B @5P5__ӎu5 RD &J /ؘ ` /  ` ΋p  `P )IR TASK STATE: FILE INITIALIZATION FAILEDINVALID PARAMETERNON-EXISTENT OR TERMINATED TASK SVC ERROR΋HB DF`P΋ D FH F  F`X΋" D HF`h΋ D FHA FJ ΀RJ JF`P΋΁΂J!*  Ԁ  B*`X΋΁΂J!*  Ā  B*`X΋" DA :`H::`h΋  B D B``΋΁΂ Ba4v  TOv ( FD =D 5    "܀̳ē( Y N    *`@ B  D F  /*(C ѕ &NNѵ ܠܠܵBB B D  ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k-mqp00A  'J)#ȂG(09(H E`  #` m@  @ p@ bA@AI*mqmFEmGHmr899@DDE    ba [[BCEEF[ANI1܀ ܱ@[P  j,`T-`aj /`i/' `P `a/`]/``/,*ʇ,j,'-J!****^ ^ xaʁ,G\ ^ D`Zj,`T.*#2CDD C`h`j/С B $2D. j,`T<.`X-m (1 1   2 D   2⊂ʂ`Vj."2 ܃[ E`RB`_/! 0C`kE/! !   ʂʁ,[&"`\/``/ @*p *xJ!ʁp*v 8 "jd   8I`@*v*pʪhj z f@  z @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m ` ѱ *   @m  @"  *@* **@   *  EF HIm  4  )    +М+ 88GB   b@B@ABE F ABI@J!B  C  A 1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  hEeD4 4YtW@tPtNKђ E+`DԁC5u @1`taC$   At  aԇtm* "ròAC** ā*/  |12 |1`a2 ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* v jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[8 `48 `>8 `|8 `v8 `8 ` P8 ` rt  ` 8 ` <8  ` ~`:`SYSTEMp `nX ` 4 ` "8 ` 8  ` h8 ` `  ` 8 ` `0d8(`80``8\ d`v .S$FTLF00w8 ` `t`v6DZJI $ H  ` B cTA "( P D@B @DT*@@ @ P@뮺]@uӎu7P @ Rp& LIST SYNONYMSYNONYM VALUE+  N4|& "v && <|vF Tp HpS Tp Hp Hp&O&& "jp`L <D$ђ 8=@&&D G TpD EpH Tp Hp D#  n TpG TpD E ` Hp pn TpH Tp Hpp 0Xv fF| 6 0 f 6΋@K` j΋&4` B T H` j., (΋ H)8 ) Y bH ) 8&` HERROR FROM S$PARMERROR FROM S$PARMERROR FROM S$RTCAERROR FROM S$CLOSERROR FROM S$SNCTERROR FROM S$OPENERROR FROM S$WEOLERROR FROM S$WRIT SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd*΋ /&*!!!Q7)K 8 (Ƞ<"#c ( )ݸHݷݷݷݷݷ: )ݹݹݹݷݷݷݷQ> $ ʆ` : >  (00݈݈ݷ[΋ Q  h `ʈʃ` ΋  0B < , .` 8΋  , . 0 . T  .` @΋ ,  0 .` P΋  , . 0A .J ΀z:J J .` 8΋ ΁΂J!*  Ԁ  XBz*` @΋ ΁΂J!*  Ā  XBz*` @΋ ,A H "` 0 " "` P΋  * , N *` H΋ ΁΂ *a4v  TOv ( FD =D 5    "܀̳ē( Y N    *` ( * f , . H  0/*(C    Xѕ &NN ѵ  ܠ ܠ ܵ BB  * , 6 ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kP  j,` -` j /` /' ` ` /` /` /,*ʇ,j,'-J!****  xaʁ,G t` j,` .*#2CDD C` ` /С B $2D. j,` <.` -m (1 1   2 D   2⊂ʂ` j."2 ܃[ E` B` /! 0C` E/! !   ʂʁ,[&"` /` / @*p *xJ!ʁp*vh Rjd hI`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\J!B RC..AP1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[0.jY$ *@)*    9 @9 @.0 s ܳm* "ròAC** ā*/ -mqp00A  'J)#ȂG(09(H E`  #` m@  @ p@ bA@AI mqmFEmGHmr899@DDE    ba [[BCEEF[ADI1܀ ܱ@[>K-+09A/*m `lѱ * IH@m  @"  *@* **@  N* MEF HIm  4IH)JF J +М+ 88GB G b@B@ABE F ABI@,()mtytw  hEeD4 4YtW@tPtNKђ E+`DԁC5u @1`taC$   At  aԇtjB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[2DC ݑ ? ? |12 |1`a2 ? ?mCD[4 `` @ `` L `` X ``  2R r`^ r`lj r``:`SYSTEMp `&  `dh  ` `.  `R2& .`hlz: B`2 NZR\ d` d`4 d`rz `P2 ` `  `  ` .S$FTLF00V ^` ``p x`h```V)Z֊ d+XV Y)kB T*H TXa BI)@HH 0D  R"J  D@B @DT*   @ @H @ A]uR ` uujWXd0 (X $b& 'bD>BM?g<2@A1Ѐ%B" В B?bCD@ R'R R`CAN'T GET TCA ERROR IN PATHNAME TO MAP CAN'T INITIALIZE OUTPUT FILE CAN'T GET FILE MAP CODE ERROR CODE NOT IN TABLEĂȂ 9TINPUT FILE DOES NOT EXISTINTERNAL ERRORERROR ON I/O ON FILE"ERROR IN PATHNAME FOR LIST OUTPUT ERROR IN MEMORY MANAGEMENTINVALID FILE TYPED   FILE MAP OF  TODAY IS 1 !91/*D%_}CTASKS: MAXIMUM POSSIBLE =  ID NAME LENGTH LOAD PRI S P M R D E O C OVLY P1/SAME P2/SAME INSTALLEDPROCEDURES: MAXIMUM POSSIBLE =  ID NAME LENGTH LOAD  M D E W C  INSTALLEDOVERLAYS: MAXIMUM POSSIBLE = MAP D OVLY SPMREOCWMAPD "&7:?BILO.'%,(!"$*#2&KEYS:$ START DUPLICATES$ KEY COLUMN LENGTH MODIFIABLE ALLOWED ,΋| h/f`g `  h/f`g ` "@l" h n/f`g ` `l@`@*` ` *` j .  R   R   R L H &&`2  `2  Ц `2  `2  `2  R ` *` j . i $n h/fԠ`l"Q С !% EB dF !` l, R l2 l8 l> R ,t, ` ` M 5lEM/` ` FFM/f`g ` ⡠l s` (  f   2 * 2   `u2  `p2  `r2  lQ ~`2 j Ц  l2  lQ |Ц  `t2  `v2 Z `x2 \ `z2 ` `2 r d l2 ^ l2 R b l2 b f ``2 B h BЦ >`|2  ( C`~2  Ц `2  ( C`2  l2 n &@ &  l j `2  ( `2  (  `2  R `΋ J/P  & R   ` R R    `R `< @` `  h/f`  h/f` ` SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd ΋/   P H!!!Q G7)K 8 (Ƞ< # ?c @ ( " ) "ݸHݷݷݷݷݷ j: ) fݹݹݹݷݷݷݷQ> ʆ`: > (00݈݈ݷ[΋ e YQ  d Yh X `ʈʃ`<d:/΋A @ jFp pp p<` p`pB< p p< p pp`NY΋| ~`΋`΋ `> Z΋1 б DDDt  д 6RD`΋2f`f`0 A  "DI OI/΋   #`΋΁΂ a4v  'TOv ( FD (,=D (,5    '"܀̳ē( Y N    *`  #   " "/*(C 'ѕ &NNѵ ܠܠܵBB   (: ERROR IN OUTPUT TERMINATION΋B "`΋    " `΋  `΋  A J ΀J J`΋΁΂J!*  Ԁ  'B*`΋΁΂J!*  Ā  'BJ*`΋ A "2``2`ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[km*P*PP  j,`-`j /`/' ` `/`/`/,*ʇ,j,'-J!**** xaʁ,G`j,`.*#2CDD C``/С B $2D. j,`<.`-m (1 1   2 D   2⊂ʂ`j."2 ܃[ E`B`/! 0C`E/! !   ʂʁ,[&"`/`/ @*p *xJ!ʁp*v jd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A  'J)#ȂGZ(09(H E`4  #` m@  @ p@ bA@AImqmZFEmGHmr899@DDE    ba [[BCEEF[AI1܀ ܱ@[>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  ABhEeD4 4AYtW@tPtNBKђ @E+`DԁC5u @1`AtaC$B   AtA  aԇtm* "ròAC* * ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`!@=`!BF%00څڅj ʁ*  |12! |1`a2! ? ?mCD[""2!jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[(\" "`(((\" "`(\" "`P(\" "`(\" "`,(( (# $`\(\# $`(\# $``:`SYSTEMp `((|((\' '`6((\' '`(\' '`(' '`(''''(' '`J(\' '`(\' ( `))'t(\( (``  (`(\(0 (8`D(((> (F` X(##)'t(\( (` ( .S$FTLF00'g(\(`!L(\(`!p`!(\) )`! 't`"`"@$ D E[Q@@FZk0 X3  (+"kZͲ)(P@55 XbTZkZk`Xk ,5X,+,52Pj6I"%@ %P PPa&0kk(BC,hb )@%EAP BI)@HH 0 D@B @DT*@@HH B@ k뮺]@]~]8^P@5*  b ` dx x x  # P# #  #  ( B x  x   & d(  #  4bb0 ΋dB F @Ԅʂ`΋` ! Р B8!!Б Б"Бp 2"a (ȃ  ȀbȀ tȅq  S̳S̳S̳Sij  jb`΋` ! Р B!!! B (ȃ  ȀbȀ tȅqʃ  jb`΋ ( D@ F B DP V`*΋ԠXء ! ` ؀ /"*ء ^/"b  jԑUȡȠZ/"`*X_%&'΋ jbN!Vh !W `" B Bc [΋ cccJ[1 cc[c cc[A΋Rp`V qaBQ CBj! <`*΋c f `  `  ~Z \ ȃjȢ  ؀ f/#   rrrR b`΋dDȄ/!/" `΋dD!ȄbGF t/"b /!!/" ` ,>90%&1 7 !9I1 UNABLE TO REPLACE #ERROR ATTEMPTING TO GET PARAMETER UNABLE TO GET TCA# ERROR OCCURRED IN AN SVC BLOCKERROR READING NAME ENTRY*PROCEDURE AND OVERLAY LINKAGE IS INCORRECT ID TOO LARGEILLEGAL TYPE SPECIFIEDILLEGAL OPTION SPECIFIEDINPUT IS NOT A PROGRAM FILEOUTPUT IS NOT A PROGRAM FILE΋ȁ ؀\/"`L΋ ؀/"`L΋ ؀؁/"`L΋ ؁/"bA `*΋ ؀/"`L΋ /#`L·ΈƉ  W I @Y7p7wxZJJ[΋Pdԃ 4 (tpԃ ' Btpԃ s  "T   P  O hԃ X dԃ M:dԃ B "A R C ԃ ." N Y $ ԃ " N Y   ԃ Ԓvd!0 3    b`΋B@ȃ $ Z*"ȁdȁ  t  ( !Q Ȅ   ( b`΋  t6 (86R6`"΋  tԒr  P ̳̳̳ē`"΋d t B8`"΋Ѳ R %= RT5S2r-QQ!7Qԅd  3 3jS`΋ 111!΋  ` ա$ " /   tttT `΋Ġ`ȃpV s֠ȓ/"`*ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k*p *xJ!ʁp*v jd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A  'J)#ȂG`(09(H E`:  #` m@  @ p@ bA@AImqm`FEmGHmr899@DDE    ba [[BCEEF[AI1܀ ܱ@[m* "ròAC*J* ā*/ >K-+09A/*m `tѱ * QP@m  @"  *@* **@  V* UEF HIm  4QP)RN R +М+ 88GB O b@B@ABE F ABI@J!B PC,,AN1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`.=`0F%00څڅj ʁ*  |12 |1`a2 ? ?mCD[ jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[B `bb `b ``:`SYSTEMp `$6bD L`<bt L`b L` `4 `Xp|B `b `(b  `4b ``,  `Pb `, .S$FTLF00'b`:b`^`b ` 4``ʍm)l¶J# (B J+ki IZ*`3@ J(@H@  @B `H R)ISFiPH%LZ@DA*P)@H *P@@(@@@$B$@  ]@]}kuKn#F+#v*$$B#jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`%N=`%PF%00څڅj ʁ* )j%^ %h `!T)b)f)D)j%x %h`!`!  %h`!)% %`")%%)P)D)% %`"`)j% %`")j% %`"`:`SYSTEMp `))))j)T )\`# )D`$`$)j) )`$) .S$FTLF00)7   ++  +DISC I.D.: VOLUME NAME : < ALLOC. UNITS(TOTAL): FREE: BAD:& FILE TYPE PT ALLOC. UNITS" ** SYSTEM RESERVED AU'S = 6++77 FCBSRA./ + m+ 3no*8/*6 *7\/*n *o^ *t+V8 A>*(&ܸ /x* 3C" R*$/ ; * )`* *` * / 1 *,`*/*"/*z +*8/*6A 3bI`RL *& *2 *4 +*.**, z!*+2 */& **, *2 *4*. z!/4+ /& *4 z!*./4 `+/&* 3 3z* 3 3z 3z* 3 3z 3z+ 3 3z 3z* 3z+h 3 3z*`,z`,`- 0 +F/ * *.# ##** *2*4**,*& z!؈"+Ԙ"+"2+2+F+d+V +\/&j +* ++"+++E 3 3z `+[*/2[`*е  "[/X/| `+ 9 */X/* “)>`+ *:`+ * z@*@ )++`+ޢCYO+7S.8E ** * +0`* *0 + *0`*`+)**E*`+`/ 8 +޹ [/X0`0)K:`+ޢ+ƚ *  *  * P  j,`0-`0j /`0/' `0 `0/`0/`0/,*ʇ,j,'-J!****02 xaʁ,G022`0j,`0.*#2CDD C`0`0/С B $2D. j,`0<.`0-m (1 1   2 D   2⊂ʂ`0j."2 ܃[ E`0B`0/! 0C`0E/! !   ʂʁ,[&"`0/`0/ @)j3f 3`0)j3r 3`1V)j3~ 3`1)j3 3`22))  uK]@Ԩ0TBTB)QmY QDQDB*!*T RDUD Q (*  @C$@@@$(@@k#F-#v*$$B#jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`%N=`%PF%00څڅj ʁ* )j%^ %h `!T)b)f)D)j%x %h`!`!  %h`!)% %`")%%)P)D)% %`"`)j% %`")j% %`"`:`SYSTEMp `))))j)T )\`# )D`$`$)j) )`$) .S$FTLF00)7,  CHECKING  BAD ALLOCATION UNITS : ?   ,,  +DISC I.D.: VOLUME NAME : < ALLOC. UNITS(TOTAL): FREE: BAD:& FILE TYPE PT ALLOC. UNITS" ** SYSTEM RESERVED AU'S = 6 TX,,,,R2  2 . @ + ,T ́C,zC,~ k/,,>`,,e, *,ܜ$,,4.,,,^4. , ,Q`3(%,%/+/, +/+< +B,, =X`3`3`3`3`3`4I`3 , ,z,r ,,*iܱ*A*H ,*D*< ,*>)*B*J/`* U U9D* `* ^*B*D*H*A ,*>/*H * *H*D 9* B% U*/  * * J *B **<, * *H ,*A0     a*`, * `* *B `*`*`4 *D*F ,*>*J *J *B*< z *< ,*>*J **B *J *B*< z *<`* *  **`"9,`* *0*H *H* *`/r0`*B *D* **H * *H`2(`2( *HK1Š **o =p =d */{{[ * =pk =dg*<,*Q *H=,ȡ*ÎU,L,IÎU,A,>ÎU,6,3ÎU,+,(ÎU, ,ÎU,,ÎU, ,ÎU--[`3 *H=,ȡ*g W'`,/-'`,(&'`,!'`,'`,'`,  '`,'`-[`3*<Š* =p *F **B *H *J ,*> z! 0     af *J z! *H*J **B`*`, ` z!*J *J@ **F,T*B *H *J z! ! *H *J **B`*`, ` z!*J *J 4b1:*J*H *J*H  %L^!  *H/* * =LC/+H ,+/+`R0`0D,܀R ," ,[4*X*Z*R!~:D/*L *MB*Z[`l  UUB ` 1|dXZ֩D-tÄ.FCB*tpr$$}" s$s"F"BȤȤ"jr D$XPd$>Ъ< dѱѱ Fbf"FIաF 22Fǣ F `@ 22 ұ * *[M]^XXXXxd|zXX \| Pr$pX,"  җ% 8  VB7PX $ar@җ* zªZR*22LVXXw W 0Ί( 8( 3H!1P)z`a G($($r~[0DhAdr L 49Jl @ M(9‚r! =Ţ( K  (HY0 0 4H '4H[     P  j,`:-`:j /`:/' `: `:/`:/`:/,*ʇ,j,'-J!****:< xaʁ,G:<<`:j,`:.*#2CDD C`:`:/С B $2D. j,`:<.`:-m (1 1   2 D   2⊂ʂ`:j."2 ܃[ E`:B`:/! 0C`:E/! !   ʂʁ,[&"`:/`:/ @)j=P =|`:)j=\ =|`;@)j=h =|`;)j=t =|`<))  uK]@ԨDREK B*VTAQj@$*[Ij!-D ULVReHJ!Q($@H )@@mAHd5$, Bm$,$@$V-@  ( D@B @D]u#F*#v*$$B#jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`%N=`%PF%00څڅj ʁ* )j%^ %h `!T)b)f)D)j%x %h`!`!  %h`!)% %`")%%)P)D)% %`"`)j% %`")j% %`"`:`SYSTEMp `))))j)T )\`# )D`$`$)j) )`$) .S$FTLF00)7*G * *& J R*F*~66-*@  **/***8)*0`*8 * )`R@** uK]@Ԩ Ҫ$#F+B#v*$$B#jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`%N=`%PF%00څڅj ʁ* )j%^ %h `!T)b)f)D)j%x %h`!`!  %h`!)% %`")%%)P)D)% %`"`)j% %`")j% %`"`:`SYSTEMp `))))j)T )\`# )D`$`$)j) )`$) .S$FTLF00)777  ++ J R)*6*n0o.*Y /+0`+1Р+3*w*****/+( +)n *) *+  _,V *`******-v-D +;* *w* ** **Š+*+`+ ++*+`+ + **/*/*/*/* **+*+`+ ++*+`+ +/+,`RL )Р*w-,UŠ +*+`+ +/* *I ** * *Р* *p+<*7-,Š)+*+`+ + *`**7-,Š +*+`+ +/* *\8 ^`+ +:***a*Š*+*+`+ +*/* *[*zŠ +*t+`+ +/*t *u *x 0[`+ */+6 ** *~*Š +*+`+ +/*[`+ uK]@ԨUU"UTUUjVU)dU T$U%*#F+>#v*$$B#jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`%N=`%PF%00څڅj ʁ* )j%^ %h `!T)b)f)D)j%x %h`!`!  %h`!)% %`")%%)P)D)% %`"`)j% %`")j% %`"`:`SYSTEMp `))))j)T )\`# )D`$`$)j) )`$) .S$FTLF00)777  ++ J R)*6*n0o.*Y /+0`+1Р+3*w*****/+( +)n *) *+  _,V *`******-v-D +;* *w* ** **Š+*+`+ ++*+`+ + **/*/*/*/* **+*+`+ ++*+`+ +/+,`RL )Р*w-,UŠ +*+`+ +/* *I ** * *Р* *p+<*7-,Š)+*+`+ + *`**7-,Š +*+`+ +/* *\8 ^`+ +:***a*Š*+*+`+ +*/* *[*zŠ +*t+`+ +/*t *u *x 0[`+ */+6 ** *~*Š +*+`+ +/*[`+ uK]@ԨUU"UTUUjVU)dU T$U%* '8+((""( .2Z΋4(ЮC 8BB.B <@ʁ`4h΋4$ C. DĘMrjC`4X`&`΋4(hԒ"ܒ""B""" `4h΋΂΁΀`@/!΀`H/!΀‚`4h΋΁" Ƃ/" """fc9 0S#!JZ`4΋4&  4  42B 'ܱܠM|t""  `4`΋4ȃ&#1  9=Ȇ&&*4  Ȁ`48΋4&1MRܱ,(t(ܳCRQ ܱt(ܳCS ܱ` |(ʁ`4`΋4(R DSI1JI1J RjБ `4h΋4&1Ԁ @b `4`΋1M1N`4΋1MP`4΋4& `4`΋`4΋ /#`4΋4$1MKLKL JIO` Cʁ`4X΋ȁ ؀./"`4΋ ؀/"`4΋ ؀/"`4΋ȁ ؀/"`4΋ ؀؁/"`4΋4( ؁/" ؠ/dbA `4h΋ ؀/"`4΋ /# /`4΋ ؀/" ؠ/`4΋4&  2  42B: 'ܱܠM|tNj""pj  `4`΋KLKLJ IO`4΋4(Ή`B Q  Q/   JZ`4h΋Ή` Y `/  JZ`4·ΈƉ  W I @Y7p7wxZJJ[΋4($àn(n `<$`> `0 `2`n RC<`4h΋4(n `0 `2 $àn(`4h΋΂ȠȀȎ&>..@bJ`4΋4(L6  Ȏ&. @@h`4h΋`G`8/! ˮ`D@/!`4 Z Z Z Z΋4"ht   vB n @v3 R1 @ B  ""   `4P  ΋4( h   O/؟`4h.VCATALOG΋4  M .(đCtQё qF( %%܅ ܳQ  @ w`4H΋4 h` ԒԄE   `4H΋`A`*K/!kk `4΋4& ht ( 0 (ʁ`4`΋4( <L LFZ!@T`E !@` <^L   h2 rM @`M L " bA ȁ  L @ @h `4h΋4( 6h <`4h΋4&L6 p | /؟ @h `4` SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd ΋4/    !!!Q 7)K 8  (Ƞ< # c ( ) ݸHݷݷݷݷݷ : ) ݹݹݹݷݷݷݷQ> ʆ`40: > (00݈݈ݷ[΋4 Q  h `ʈʃ`40΋ . `4­*    ^Vt2 >CECI  i@@  [ED*Ett! 4 *`B`C/!` F`EE/ 1@΋4", б B!`C `#`B,/11`4P VERIFY COPY VERIFY BACKUPJ4X΋4",bS  PȀ!x"@ȁ&!x" @@P@@<TB @v3 81 @$T"   h2"    \]  h !x" @@h@!x"@`4P   ` ` `    h  Ѐ"%Ѐ &` ` `` $9@ ;09AZ ,$!(.)INCLUDEEXCLUDEOPTIONSMOVEENDADDREPLACEALIASES NOALIASES l m/DWl [  0  ! 0!* !T P2222FS$ROLLA S$CRASH VCATALOGS$DIAG $ERROR CODE NOT FOUND. WRITE AN STR !COMMA EXPECTED#COPY ACCESS NAME IS NOT A DIRECTORYEND OF LINE EXPECTEDIMPROPER FILE NAME FILE NAME NOT FOUND.INCLUDES AND EXCLUDES SHOULD NOT BE INTERMIXEDILLEGAL OPTIONCAN NOT GET TCA#ERROR RECEIVED WRITING TO LIST FILEIMPROPER PARAMETER>REQUIRE EITHER A MASTER AND A COPY DIRECTORY OR A CONTROL FILE*REQUIRE BOTH A MASTER AND A COPY DIRECTORYILLEGAL DIRECTIVE3END OF CONTROL FILE READ WHEN PATHNAME WAS EXPECTED%ERROR ATTEMPTING SYNONYM SUBSTITUTION$ERROR WHILE OPENING THE LISTING FILE!OPTION BETWEEN EXCLUDES NOT LEGALRIGHT PARENTHESIS NOT FOUND)NON-LETTER FIRST CHARACTER OF TEXT STRING"REPLACE DISC NAME WITH VOLUME NAME%@$#4!!!#C$0#$p#i$0#$p#$0#$p%@#%@#%F$$7$U$%W%$k%`$ %F%`$ %$% %1%%F%%$#.#(#%$% ERROR IS A SYSTEM ERROR#€%#$%X%%l%|% ID TOO LARGE% ** MAXIMUM NUMBER OF TASKS DIFFER.* ** MAXIMUM NUMBER OF PROCEDURES DIFFER.( ** MAXIMUM NUMBER OF OVERLAYS DIFFER. TO ** UNABLE TO ACCESS  TYPE/USAGE CONFLICT IS AN ALIAS OF 2 ** DIRECTORIES HAVE DIFFERENT NUMBER OF RECORDS ** CAN NOT OPEN DIRECTORY  ** DIRECTORY  FILES FLAGS DIFFER ** END OF DIRECTORY  ** END OF PROGRAM FILE > IS AN EMPTY FILE WAS NOT IN SOURCE' ** WARNING - NOTHING AFTER DIRECTIVE$ ** COPY IS NOT A DIRECTORY ** COULD NOT OPEN DOES NOT VERIFY ** OVERLAY ID - PROGRAM FILE ** PROCEDURE ID **  ** TASK ID****** VERIFY COPY COMPLETED΋4&  ht& ʁBjȁ6& bA` @h&`4`΋4$M^ ':6'( 'P^"&.@@'>'D5`n'jP''b-.@n4'" @ h''ʃ"B"'"4"'@'@h'&^Mf'8`4X΋4&""'" "'bA@  """'`4`΋4 c*d'D%&b '&"!b!"'`4H΋     `4 !91 !91 Z% J΋4J$(h@ɀ Z$(N@ɀ J/b*## (3 (3(' G ((&@(,/f*## (03 (63(<' G (<(D@(JA$(0( (0(d!"*IA""*h""*Ih($Ȩ(h(Bɨ(<JZ(0^ C(6C/f`* 4((HD/e`*G Eh(E/b`* 6(*F/a`*#$# *( %&j**!~   "*`) #"*`40΋4 cȥ%@j+^+Z! "9@.+6 .l+6   "P  "f"+Z`4H΋4(S CBj! <`4h΋4$ * 1R,P1x+=P/\,V*1x+(L ,^1x,M%,^1x,2]   `4X΋4&F,t,,x`4`@ ,-΋-$n N!` ,-&.\L,F.$ . ,`E,-P&,- @-`4 -F"*"- ""- ΋B-j&$-B-&--xB-J[΋4(LfMf`4h΋4(L M `4h΋4"@ .X`Bj .X@`B. #".Xj(.X"! "9..> .l.> ""x"".X`4PƁZ[΋4 !. D!Ȅ./"! b D aDʃ`4H΋4C>!"/T D!Ȅ* G Fxʃ/"b/T!/Tʃ`48΋4$1PB @1L1N`4X΋4& 1L 1N1P 1N @ 1N`4`΋4* 1L 1P1N`4p΋4$ 1L 1N1PA 1NJ ΀/0ZJ J1N`4X΋4&΁΂J!*  Ԁ  @B/0*`4`΋4&΁΂J!*  Ā  @B/0*`4`΋4* 1LA @/1B`1P01B/1B`4p΋4( 1J 1L A1J`4h΋4 ΁΂ 1Ja4v  ETOv ( FD E=D E5    E"܀̳ē( Y N    *`4H 1J B 1L 1N @3 @/*(C332 @ѕ &NN2ѵ 2ܠ3ܠ3ܵ2BB3 1J 1L E ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k0$.( :61 4444 `p܀4 ܴ1 `CܱC@2DC ݑ ? ?-mqp00A 6 'J)#ȂG6(09(H E`5p  #` m@  @ p@ bA@AI7mqm66FEmGHmr6899@DDE    ba [[BCEEF[A7&I1܀ ܱ@[P  j,`7,-`79j /`7A/' `7( `79/`75/`78/,*ʇ,j,'-J!****7696 xaʁ,G74969`72j,`7,.*#2CDD C`7@`7B/С B $2D. j,`7,<.`70-m (1 1   2 D   2⊂ʂ`7.j."2 ܃[ E`7*B`77/! 0C`7CE/! !   ʂʁ,[&"`74/`78/ @*p *xJ!ʁp*v:Z::Z 9jd :Z:I`@*v*pʪhj:Z:R:Z :>@:Z:R @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `:ѱ * ::@m  @"  *@* **@  :* :EF HIm  4::):: : +М+ 88GB : b@B@ABE F ABI@J!B <C`* ā*/ ?L>>|jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ |12? |1`a2? ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`@V=`@XF%00څڅj ʁ* F8@f @n`4F0EF4EF8@z @`5@F4F8@ @`5rFhF8@ @`6F8@ @`6TF8@ @`7NF8@ @`7F8@ @`8(F8@ @`8FF FA B`9F8A B`:F8B B`:V`:`SYSTEMp `FFlFFE E`:Fh@@EEFE E`:F8E E`;vF8E E `<@F0F4E~F8E E`FxAAFE~F8F" F*`>d E~`?J`?LF8F\`?`F8Fd`?`?F8Fp Fx`?F .S$FTLF00Eqmf$J$`T"cX 0%f@ $"h$I $ BJ`@1`BA"H T@@H$0c"@bl [D@A@ DJa) "0%%m(DP*IB ` $  0@>FfZYd4dc)[SBIJ`0a`[Q@ PB"HB"DHIDD$DJ,Le0 ,l, b2KXI`Ҫ`P"AXER @PeX H ¥Z@JL 0,@J2MX0CZ fDF $@h BI)@HH 0D  R"J @@ @T @ @A@PHH B@  k5]u>kuK_AP P 8 ("J( t(^.)L΋+ЮC 8BB.B <@ʁ`+Z΋+ C. DĘrjC`+J΋+Rp` qaBQ CBj! <`+Z%΋+   D ẖ̱̱`+J΋+`/``QLA Lh  `+R ؁ȁ /" bA  G΋+ˆ L|``1(" D`DB L|````+J`L ΋ ( `+|` 3΋+ ( `` BB a sB D ( ````+J`΋΃  VJ`+|΋΁ Ƃ/  tc9 0S#!JZ`+|΋+ȃLp#1  9=ȆLZLZ*4  Ȁ`+*΋+`+R΋`+|΋ /#`+|΋+N 0L*`. 0`+RN  /c ΋+N>ȁL&.`+J / ΋ȁ ؀/"`+|΋ ؀/"`+|΋ ؀/"`+|΋ȁ ؀/"`+|΋ ؀؁/"`+|΋+ ؁/" ؠ/ bA `+Z΋ ؀/"`+|΋ /# / `+|΋ ؀/" ؠ/ `+|΋+Ή`B Q  Q/   JZ`+Z΋Ή` Y `/  JZ`+|΋+$àn(n `$` ` ``n RC<`+Z΋+n ` ` $àn(`+Z΋``/! ˮ`@/!`+|.VCATALOG΋+  .(đCtQё qF( %%܅ ܳQ  @B w`+:΋``K/!kk `+|΋+. ./  N  ` RZ d`+R /    N΋+r 0 Ƞȳ ȃ    @ @ `+R SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd b΋+ / ^ b  !!!Q 7)K 8 X (Ƞ< Z# c ( ) ݸHݷݷݷݷݷ 6: V) 2ݹݹݹݷݷݷݷQ> \ ʆ`+": > (00݈݈ݷ[΋+ 1 %Q  0 %h $ `ʈʃ`+"΋  `+|­*  f \^V2  CECI  i @@  [ED*Et!  ``/!` F`EE& \' `@ ΋+@   б B!`C l `#`B@& ' ' `+B  VERIFY COPY VERIFY BACKUP΋+ML  0 x Znt jj jb| t j@ v@ C@ Mf `+J΋+c*&D%&b &"0bB t`+:**HDR*Y$BME nB@ $79@ %;09AZ .EOD  5i  # E !9222FERROR CODE NOT FOUNDDESTINATION IS NOT A DIRECTORY FILE NAME NOT FOUNDCAN NOT GET TCA#ERROR RECEIVED WRITING TO LIST FILE$ERROR WHILE OPENING THE LISTING FILEIMPROPER PARAMETER(SOURCE NOT A SEQUENTIAL FILE OR MAG TAPE"REPLACE DISC NAME WITH VOLUME NAMEINPUT NOT GENERATED BY BD TAPE NOT FIRST OF SEQUENCE$ RECEIVED: VERIFY TERMINATED *TAPE # OUT OF SEQUENCE .TAPE NOT OF SAME BACKUP AS FIRST TAPE READ 2 MOUNT TAPE ; TYPE $ TO QUIT, Y TO CONTINUE 0ERROR ON READ TO TAPE; FIX TAPE .NOT MULTI-VOLUME FORMAT @@E1 E( ERROR IS A SYSTEM ERROR΀*0+0W,0@@ ID TOO LARGE NOT VERIFIED ** UNABLE TO ACCESS  TYPE/USAGE CONFLICT IS AN ALIAS OF ** COULD NOT OPEN UNBLOCKED 2 ** DIRECTORIES HAVE DIFFERENT NUMBER OF RECORDS ** CAN NOT OPEN DIRECTORY  ** DIRECTORY  FILES ARE DIFFERENT TYPE ** END OF DIRECTORY  ** END OF PROGRAM FILE >IS AN EMPTY FILE, ** DESTINATION FILE IS NOT A DIRECTORY ** COULD NOT OPEN DOES NOT VERIFY( ** MAXIMUM NUMBER OF OVERLAYS DIFFER. ** OVERLAY ID* ** MAXIMUM NUMBER OF PROCEDURES DIFFER. - PROGRAM FILE ** PROCEDURE ID ** % ** MAXIMUM NUMBER OF TASKS DIFFER. TO ** TASK ID****** VERIFY BACKUP COMPLETED΋+MLB,0".@@F@8%. `"ȃ C Ȅtʃ t| t@ @*Mf@`+J΋+Mf th tbA@"" b t`+R΋    `+|΋+2 tx& 6@&j<N `\  \%^X%Xx t& t `+*΋+bȄȠL8ȃȁ$&&* .*ۂ*L t8+ .+ۂ+f t8, .,ۂ, t8`+J΋+T ! !!&ѤF) !!Q   E` 6F qȅbȀȠLȃȁ`+R΋+T !ۀ` t`@F, t`+b΋+T ! !!&ѡѡd EF qȅbȀȠL Tȃȁ`+R΋+"D!@`+Z΋+T ! aD##@ȣS `+R΋+Д' _B`+Z΋+  2(D!^e(j!P&N!d(j!X2(j!X!l!h`+J΋+L!0!bA M!!!bA @!@!@!`+Z΋+ DS11 jБ `+Z΋+ #L#0##B#ȀȎ#N111 }!Qyv ȀȎ# rM t# t#ML#..@A ##"Mf#H#B #t$#%L# #X t# nA@ML###P#`+J΋+M`f$$\"@ % t$h t$ 0$ ȃL$Ȏ&b t$ ML$$Μ.@A H$@$@$`+R΋+nn B%Hj @؀.@%H%%%&!9%^%&%: H%H t%H t%H`+B΋%Z%Z`+|΋+C>!" % D!Ȅ* G Fxʃ/"b%!%ʃ`+*΋+! &J D!Ȅ&J/"! b D aDʃ`+:΋+(BB 6(>(@`+J΋+ (> (@(B (@ 6 (@`+R΋+ (> (B(@`+b΋+ (> (@(BA (@J ΀&'LJ J(@`+J΋+΁΂J!*  Ԁ  6B&'*`+R΋+΁΂J!*  Ā  6B&'*`+R΋+ (>A 6&(4`(B'(4&(4`+b΋+ (< (> 7(<`+Z΋+΁΂ (<a4v  ;TOv ( FD ;=D ;5    ;"܀̳ē( Y N    *`+: (< 8 (> (@ 6* 6/*(C**) 6ѕ &NN)ѵ )ܠ*ܠ*ܵ)BB* (< (> ; ERROR IN OUTPUT TERMINATIONΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k-mqp00A , 'J)#ȂG,(09(H E`+  #` m@  @ p@ bA@AI-$mqm,,FEmGHmr,899@DDE    ba [[BCEEF[A-HI1܀ ܱ@[P  j,`-N-`-[j /`-c/' `-J `-[/`-W/`-Z/,*ʇ,j,'-J!****-X/X xaʁ,G-V/X/>`-Tj,`-N.*#2CDD C`-b`-d/С B $2D. j,`-N<.`-R-m (1 1   2 D   2⊂ʂ`-Pj."2 ܃[ E`-LB`-Y/! 0C`-eE/! !   ʂʁ,[&"`-V/`-Z/ @*p *xJ!ʁp*v0|020| 0jd 0|02I`@*v*pʪhj0|0t0| 0`@0|0t @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `0ѱ * 00@m  @"  *@* **@  0* 0EF HIm  400)00 0 +М+ 88GB 0 b@B@ABE F ABI@J!B 2C22A21܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  33hEeD4 43YtW@tPtN3Kђ 3E+`DԁC5u @1`3taC$3   At3  aԇtm* "ròAC*4* ā*/  |124 |1`a24 ? ?mCD[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`5|=`5~F%00څڅj ʁ* 6p65jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[<26 6`+<.<26 6`,8<26 6`,v<26 6`-p<26 6`-<26 6`.J<26 6`.kuK_Aj 6$IBMUTL (C) COPYRIGHT TEXAS INSTRUMENTS INCORPORATED, 1979. IBMUTL 79.319 IBM DISKETTE CONVERSION UTILITY DISKETTE DRIVE NAME:  BLANK LABEL ** DISKETTE NOT IBM FORMAT ** TI FILE PATHNAME:  FUNCTION? F=FILE TO DATASET, D=DATASET TO FILE: DISKETTE ACCESS ERROR  FATAL I/O ERROR  UTILITY SERVICE TERMINATED DISKETTE DIRECTORY FULL FILE SERVICE ERROR  TOO MUCH DATA  TRANSFER COMPLETE IBM DATASET NAME: TRANSFER IN PROGRESS... SERVICE? F=FORMAT. T=TRANSFER: FORMAT COMPLETE MORE THAN 2 BAD TRACKS, FORMAT ABORTED CHARACTERS PER RECORD? 2 MIN. - 128 MAX: WRONG DEVICE TYPE FORMAT IN PROGRESS... DATASET NAME NOT FOUND PATHNAME UNDEFINED MOUNT NEXT VOLUME, REPLY "C" WHEN READY: ARE THERE ANY PACKED DECIMAL DATA FIELDS? Y/N: SPECIFY STARTING POSITION IN RECORD: SPECIFY ENDING POSITION IN RECORD: ARE THESE RPGII FILES? Y/N: DISKETTE NOT SINGLE DENSITY TI FILE PHYSICAL RECORD LENGTH: IBM DISKETTE IS FULL ARE THESE 8-BIT(JISCII) FILES? Y/N:  CDFTY&*080 !' M@@@@@@@@@  +00000 + 00P %128010010100173026~P z ~PPP  PPP 0100173026 01001l/  "/  A6`6 w 6; # #„Ҙc #I  & Ҙ  J o Ҙ  ` 9 &٦EZ2 +)`V $``` f `޹(ǘ  ` ޹    ƒ@  `  hk ij  $`  Z޹ 3„`74 ` `  ik hj $ F E,  VPf  `  W   X    /Ѡf@ gJ 1 ҘV #' B   Ѡ J% "   Ѡޘ   /[  lޠƒ GK & "„ΠΠ„ ```  Z  /Ҡ& kI@ (`  6 ƒ :; j9*' `V  `x  5I 59 ,` "  4 #8 +„Ҙ kI j9޸ 59 5I6  95 _``(٦e_`/z {` h 8 q``/l @   5   6*  =     6  8      9 .  : - . 0    6  (  @(     696``/ `[f0 I` 2^`` [цѠF (`%&  `/ [[͠[ F@[, x*& 6`#[,' ),%&   I 7I 6IF@6 69``/ [<= * ;  ֠/ `| [ A/ $  / 8[ËFM f f f$&" C9/`^&/` @ `,/^ ËFG^&V`Ђ/z( Π Z` \b ^d :f <h >j Z  f  V  ` HC   &/``^ `D|p/z|^   .ΉHC .޹+ ) C .`*^(86 Z` \b ^d`#^(86`/` „^D `74. `f bh dj(/``#^f / `D `x ` a/@ c d/J) / ` a ` `/ c d c c[!`KЂ/z`{]Р}/`] z |`2]&/`] ~ `+] ƒ  V  Z  `  f Z` \b ^d] f  f  N[ f  f  N[ f  f  N[ f  f  N[9Lެ[9Lެ[>@BDdJJ āG ޹9Lެ >`@BD[ @Z{[lP}M]\Nk`Kaz^L~no|J_Om-/bcdefghij,%;>?pqrstuvwxy: '="????????????????????????????????????????????????#ABCDEFGHI)$.<(+*&QRSTUVWXY!0123456789 @Z{[lP}M]\Nk`Kaz^L~no|J_Om-/bcdefghij,%;>?pqrstuvwxy: '="????????????????????????????????????????????????#ABCDEFGHI)$.<(+*&QRSTUVWXY!0123456789 |l}k`azm~no [.<(+^&!$*);\-/bcdefghij,%_>?pqrstuvwxy:#@'="jklmnopqr}~stu wxyz^`{ABCDEFGHI]JKLMNOPQRSTUVWXYZ0123456789 |l}k`azm~no [.<(+^&!$*);\-/bcdefghij,%_>?pqrstuvwxy:#@'="jklmnopqr}~stu wxyz^`{ABCDEFGHI]JKLMNOPQRSTUVWXYZ01234567897-./% <=2&?'@O{[lP}M]\Nk`Kaz^L~no|JO_myjС????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????7-./% <=2&?'@O{lP}M]\Nk`Kaz^L~no|J[O_myjС?????????????????????????????????ABCDEFGHIQRSTUVX????????????????????????????????     ][.<(+!&]$*);^-/|,%_>?`:#@'="abcdefghi{jklmnopqr}~stu wxyz^`{ABCDEFGHI\}JKLMNOPQR\STUVWXYZ0123456789     [.<(+!&]\*);^-/|,%_>?`:#@'="~^`{ABCDEFGHI\}JKLMNOPQR$STUVWXYZ0123456789@ RTHJQJREmB"e@TETATETAT* @PTKDQ #DH؄Sh6m$TbdU@YF²mh6HmSmV°V-U RDTIJ*I )EJQ5U%$V-F P#mEEEA[QDB@ VR*jJJUѴ ll *3 TfBAQQQVf*TP!@` 2  " ERROR ENCOUNTERED FROM S$PARM ERROR FROM ASSIGN LUNO ERROR FROM OPEN ERROR FROM READINPUT FILE DOES NOT EXIST"INPUT FILE IS NOT A KEY INDEX FILE ERROR FROM WRITE & V e`<JPDJBV#1  9=JV;6.4J#4#D J@p-   ' J @@ <,I  ΋R > :L/ =`T΋ >/ =`T΋ >A/ =`T΋ >/ =`@A `2΋ >/ =`T΋ >/ =`T.VCATALOG΋  .(đCtQё qF( %%܅ ܳQ  @V w`ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k*p *xJ!ʁp*v jd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A  'J)#ȂGh(09(H E`B  #` m@  @ p@ bA@AImqmhFEmGHmr899@DDE    ba [[BCEEF[AI1܀ ܱ@[J!B XC44AV1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC* * ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9` =` F%00څڅj ʁ*  |12  |1`a2  ? ?mCD[   jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[v  (`j  (`  (``:`SYSTEMp `XBj `D ` `&  `  `&`4  `X$ ,`N  F N` ` .S$FTLF00` ` `  `  ` ` TB* `@IB"-lSȥ0 @(U   @@5P5N:j @HHH dC4 |<( L5Ġ& |+Ē, L%Ԡ& |Ē0 LĠ& |  R`LTufrolifc ( *4*(~ 4Q R? j~ j ^ F`L ( *,.`0`2 dd0 INVALID PARAMETER"SPECIFIED CRU ADDRESS OUT OF RANGE&ERROR IN S$OPEN FOR OUTPUT ACCESS NAME#ERROR WRITING TO OUTPUT ACCESS NAME&ERROR IN S$CLOS FOR OUTPUT ACCESS NAME#SPECIFIED WRITE LENGTH OUT OF RANGESPECIFIED WRITE VALUE TOO LARGECRU REGISTER VALUE: >P  j,`Z-`gj /`o/' `V `g/`c/`f/,*ʇ,j,'-J!****dd xaʁ,GbdJ``j,`Z.*#2CDD C`n`p/С B $2D. j,`Z<.`^-m (1 1   2 D   2⊂ʂ`\j."2 ܃[ E`XB`e/! 0C`qE/! !   ʂʁ,[&"`b/`f/ @*p *xJ!ʁp*v> (jd >I`@*v*pʪhj l@ @ڻb*zʐnʪpf/`*a ; K/r[\-mqp00A 2 'J)#ȂG(09(H E`  #` m@  @ p@ bA@AI\mqm2FEmGHmr2899@DDE    ba [[BCEEF[AI1܀ ܱ@[>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@J!B  C ` `A 1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m*P*Pm* "ròAC* D* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9` =` F%00څڅj ʁ*  |12 . |1`a2 . ? ?mCD[ 2  bjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ J v`| V v` b v`V n v` 6h `t `B ``:`SYSTEMp `* `f8 `pD `jP X`f4@dp6h X`t X` \  ` & ` R` `  `  ` j ` dp ` H .S$FTLF00Z` b` ` . ` J ` 0` 2   I$QE  @@@$(@@*P@@(@@    @A뮸5P5_N:j @ ь ,RB zNt2/XT'*',lg A !ɬ'Ř')'Ȇ'@.T)E !64""8`:`<`>`˜Ȉ#VHXŘC &@ ffllFF@%@`@)ɘ)lɚɖi)Ř /ɞɠɜ). /ɤɢ) /ɨɦ)Z /ɬɪiA !aiȆA qa2i@ n `Q!¶`Q!Q9`I¶)a6))$Y2Qa )¹:J! Q=Mº- º*$ 2`a6))6Y 2TBŘ.ZC[б  В^ І[< `  1`hnw}ɃɈɏDEVICE TYPEADDRESS"INT 'CHAS.POS4STATE;CODE8$$$$####"##(##.## KEYBOARD PRINTER CASSETTE CARD READER VDT DISK COMM MAG TAPE NON-STANDARD %+5ON5OFF5DIAG5UNDF69=N=YLDC - ERROR IN TLF FILEDK P  j,`^-`kj /`s/' `Z `k/`g/`j/,*ʇ,j,'-J!****hh xaʁ,GfhN`dj,`^.*#2CDD C`r`t/С B $2D. j,`^<.`b-m (1 1   2 D   2⊂ʂ``j."2 ܃[ E`\B`i/! 0C`uE/! !   ʂʁ,[&"`f/`j/ @*p *xJ!ʁp*v͌B͌ ,jd ͌BI`@*v*pʪhj͌̈́͌ p@͌̈́ @ڻb*zʐnʪpf/`*a ; K/r[\J!B ,CA*1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC** ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`f=`hF%00څڅj ʁ* ZϊjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[Ղr О`ʀՂ~ О`ՂЊ О`ZՂЖ О`ռվ ѐ Ѱ`Ղќ Ѱ`FՂѨ Ѱ`͈`:`SYSTEMp `ոբՂ0 : `  ՂJ :``  :`,d l`~ծьј Ղզ ծ` .S$FTLF00Ղ `r  `X`ZPI RDB$"! @B<`  * B T(!]uN:j  ( ʮwW7/X`X Y Z *,````$ ʮ`$O`%AO Р&BNF DU&n Tgx~"g  gfQapg Qg `V  B` ^H`V YI))&r0 ʮ4 0 J:4  1GHYH< ʮ < T. =GH)YH) @9U}œ¼&r/^`abc XXXX: ERROR IN SCI ROUTINES XXXX: ERROR OCCURED IN SVC' KATAKANA CANNOT BE SET FOR THIS DEVICE UNKNOWN DEVICE NAME SPECIFIED UNKNOWN DEVICE STATE SPECIFIED+ CAN NOT CHANGE STATE BECAUSE DEVICE IN USE. READ AFTER WRITE SPECIFIED ON NON-DISK DEVICE YSTLPCRCSDS@2 *p *xJ!ʁp*v,, jd ,I`@*v*pʪhj,$, @,$ @ڻb*zʐnʪpf/`*a ; K/r[\J!B CĨĨA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*v* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* Ǝ*jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[8 2`ÖX 2`X* 2`(`:`SYSTEMp `,Xʲ ʼ `nˊˎʢX ʼ`Ě`Ĩ  ʼ`˒ `xʢX `z" .S$FTLF00ʕX| ˄` ʢ``(I @@  P"" T(!R5 J @l> z@a"0 >Ԡ z@ORB @H >#Ԡ z@:2? H8<' w| d|2!bб  @ @  ɼ@  ή@ ^Cz /2/#[2 XXXX: ERROR IN SCI ROUTINES XXXX: ERROR OCCURED IN SVC UNKNOWN COUNTRY NAME SPECIFIEDPP2H^tŠ ¶ $ : P UNITED STATE USA UK - UNITED KIGDOM ENGLAND JAPAN FRANCE/BELGIUM BELGIUM DENMARK/NORWAY NORWAY ARABIC COUNTRIES GERMANY/AUSTRIA AUSTRIA SWEDEN/FINLAND FINLAND P  j,`ì-`ùj /`/' `è `ù/`õ/`ø/,*ʇ,j,'-J!****öŶ xaʁ,GôŶŜ`òj,`ì.*#2CDD C``/С B $2D. j,`ì<.`ð-m (1 1   2 D   2⊂ʂ`îj."2 ܃[ E`êB`÷/! 0C`E/! !   ʂʁ,[&"`ô/`ø/ @*p *xJ!ʁp*vƐ zjd ƐI`@*v*pʪhj ƾ@ @ڻb*zʐnʪpf/`*a ; K/r[\J!B zCVVAx1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*$* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`ȴ=`ȶF%00څڅj ʁ* ɨ<jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ ` `8 `Ĩ ` $ `D `Ɣ ``:`SYSTEMp `~ Έ `VZnΘ Έ`H`V  Έ`z^β κ`Dn `( .S$FTLF00aH P` n`ɦ`ɨȊT" @T @ @A@P B @( ]u>uK@5*"   .S$PRINT.LP00YNLP01Y``SYSTEMp / `prC` A`Aa00n |`б/ / / /. //> ?`" `, |` | | |`/b  ` qa0!0"ܱ`0 B +h/f/bС !B/l*p *xJ!ʁp*v   jd  I`@*v*pʪhj   @  @ڻb*zʐnʪpf/`*a ; K/r[\ 0  `jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9` =` F%00څڅj ʁ* 0  `p  `  ` `:`SYSTEMp ` ` H p` .` 0 ` D .S$FTLF000c@ ) B@)JR U BH U @#]uR@f     ASSIGN LUNO ERROR OPEN ERROR CAN'T GET MEMORY READ FORMAT ERROR READ ERROR WRITE ERROR FORMAT ERRORWRONG DEVICE TYPE READ ERROR ON TRACK 1 COPY     /$ $B`~ 'CQaq/@ @B`t F2`j/N NB`j l l` ‰> I / `j d`l f/^ ^DB`bl d/^ ^ v/n nB`b G ptz| | x/n n B`b| t/n nt&| /n n`:`b `aI8 E [/%[`/ B/@ &/$ *p *xJ!ʁp*v jd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*b* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* zjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ $ ` D  ` D ``:`SYSTEMp `   D  `Z v z D  ``  ` ~  `  d  D  `f  .S$FTLF00 D h p`  `` (B*UURJEbTU*T VUR(H! +Z*P @@P@>uK@5*8hC COPYRIGHT 1977 TEXAS INSTRUMENTS INCORPORATED29 *-YS$CRASH ANALZ 3.2.0 - 78.274"****** MEMORY OUT OF RANGE ******* COMMAND? BAD COMMAND,XXXX-XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX .. .. .. .. .. .. .. ..&MAP FILE REFERENCES UNAVAILABLE MEMORYMODIFIED MAP FILE FOR DUMP/ LIMIT1 BASE1 LIMIT2 BASE2 LIMIT3 BASE3/ XXXX XXXX XXXX XXXX XXXX XXXXMAP FILE IN ERROR    < <: GI SS%^TS3TR5TA5AQ-PQ+MM0AL7(DM8@QU??;>DI< ( NO  2 |  6 Px &z`z  P " " D΋    W  n/Z\ < `  C! C ElL ̴ln lR `*΋ A`T΋ A`T΋ D`T΋8b:2 / :/ʠ>`*΋\a^/`2΋/* BB`< < @8D`h 8` ΋ "е  8<j* "aH! `; 4;΋ P LzB( L/ `TƠ/;΋0Ơ/ `T΋Ơ/`T; ΋ /  /  `T;΋0/   66`T΋ / / `T΋ J΋D`T΋`4rEA7A$"D T R B= B  < < sEAʃ`΋<<&) B" / `"΋ C `΋`Z`  `BBGZB  pZB  _. ݀p _. ݀%6 l^È ^ m B B m^ BBBB% ^ m B B m^` Z`΋r _E UFŁT > > \>(7Z> >` S '"2 @> \>(7Z> >`΋΁[ k`:΋΃΂΁[ Bb`*0123456789ABCDEF΋z s  9%%  ʁʂ`ΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J/` [k bj`SCREECH CODE = XXXX EXECUTING TASK = XXXXLOCATION OF FAILURE = XXXX!MONITOR REGISTERS AT TIME OF DUMPTOP 64 WORDS OF MONITOR STACK)STATUS REGISTER AT TIME OF FAILURE = XXXXHARDWARE TRAP VECTORS XOP VECTORSCLOCK INTERRUPT WORKSPACE MACHINE ERROR (TRAP 2) WORKSPACESVC (XOP 15) WORKSPACE TM$EXT = XXXX UAHADD = XXXX MEMSIZ = XXXX MEMSW = XXXX ENDLIM = XXXX ENDDXL = XXXX ENDADD = XXXX BASADJ = XXXX DSTUNT = XXXX SLCNT = XXXX SLCTIM = XXXX TM$DFR = XXXX NUMDEC = XXXXRUNTIME ID BIT MAPFIXED TASK ID BIT MAP TMESLC = XXXX RSTRSW = XXXX SYSTEM DUMP ON XX/XX/XX AT XX:XXSYSTEM PATCH AREA TM$SLC = XXXX TM$TSV = XXXX+*** WARNING *** ALL MEMORY NOT IN DUMP FILE#ILLEGAL INTERNAL INTERRUPT IN DX-10RETURN USER AREA ERRORRETURN SYSTEM AREA ERRORTASK MANAGEMENT QUEUING ERROR%ERROR FROM MEMORY MANAGEMENT ROUTINESTM$LDR STATE ERRORINVALID SERVER TASK IDTM$EXT NOT ZERO IN KILTSKUCB DEFINITION TABLE ERRORINVALID TASK QUEUED TO TM$LDRUNABLE TO MAP IN IMAGE AREA#ERROR IN LDT BUILT FOR PROGRAM FILETM$EXT < 0 IN TM$RTNTM$LDR HAS TAKEN END-ACTION SO$CPR ERROR SO$LDR ERROR!UNEXPECTED ERROR RETURN IN RM$REL!UNEXPECTED ERROR RETURN IN BM$TRWUNEXPECTED ERROR RETURN IN BM$W!UNEXPECTED ERROR RETURN IN BM$CLO!UNEXPECTED ERROR RETURN IN BM$FLS!UNEXPECTED ERROR RETURN IN BM$SCH!UNEXPECTED ERROR RETURN IN TM$BID!UNEXPECTED ERROR RETURN IN TM$DGNTM$DGN HAS TAKEN END-ACTIONTSB OR PSB NOT FOUND BY MM$TSK!UNEXPECTED ERROR RETURN IN MM$TSK!UNEXPECTED ERROR RETURN IN TM$SBD#ERROR ON REQUEUE OF INSTALL REQUEST)INCONSISTANT LDT POINTER FOR PROGRAM FILE!DISK MANAGER HAS TAKEN END-ACTION'UNEXPECTED ERROR RETURN IN DISK MANAGER!UNDEFINED OPCODE FOR DISK MANAGER"ADU ALLOCATED WHEN BIT MAP BIT SETPBM # OF FIRST ADU OUT OF RANGE$ATTEMPTED ACCESS OF NON-EXISTANT PBM!FILE MANAGER HAS TAKEN END-ACTION'UNEXPECTED ERROR RETURN IN FILE MANAGERSYSTEM AREA DEALLOCATION ERROR$SYSTEM AREA ALLOCATION INCONSISTENCYKIF CRASH CONDITION"NON-EXISTANT ENTRY IN FILE MANAGEREND ACTION TAKEN (DDT)QUEUEING ERROR (DDT)TASK NOT SUSPENDED FOR IOQUNDEFINED ERROR RETURN (DDT)SYSTEM TABLE AREA ERROR (DDT)SYSTEM TABLE AREA ERROR (DDT)FUTIL HAS TAKEN END-ACTIONFILE UPDATE ERROR (FUTIL)LOOKUP, DE-LINK FAILURE OF LDTFILE LDT NOT IN FCB LDT LISTERROR RETURNING LDT MEMORY UNEXPECTED ERROR RETURN IN FUTILERROR RETURNING FCB MEMORY#BAD FILE LDT LIST (CLA=0 & FLL<>0)BAD DIRECTORY - LOOKUP FAILURESYSTEM ALLOCATION INCONSISTENCY"ERROR RELEASING ADU JUST ALLOCATED!BAD DIRECTORY - FIND HOLE FAILURE FAILURE TO ALLOCATE INTERNAL LDT"FAILURE DE-ALLOCATING INTERNAL LDTFILE ADU COUNT OVERFLOW (FUTIL)UNABLE TO DELETE TEMPORARY FILE*UNABLE TO INITIALIZE SYSTEM FILES (SYSRST)SYSRST HAS TAKEN END ACTION BAD OPCODE IN SVC BLOCK (INSTAL)UNDEFINED ERROR RETURN (INSTAL)END ACTION TAKEN (INSTAL) UNEXPECTED ERROR RETURN (INSTAL)DISK LUNO UNDEFINED (INSTAL)ERROR RELEASING LUNO (INSTAL)ERROR RELEASING FCB (INSTAL)#SYSTEM TABLE REQUEST ERROR (INSTAL)!ERROR RETURN FROM DM$TBL (INSTAL)ADU ALREADY ALLOCATED (INSTAL)INVALID BIT MAP NUMBER (INSTAL)$BAD ADU LIST RANGES OVERLAP (INSTAL)SYSTEM LOG MSG FORMATTER ERRORUNKNOWN SCREECH CODE  &6FVf^db` F!l"#$%&'(.)J*j+,-./12"3F4h56@ABC:DZE~PQBf @f|(Hd> ^     0!R"~012345<6\7z89:;@,΋#l#h`o!DĆ̃BB!DC !DD!!Z! p!LQC! #hl !Z! !D!!Z! !D!!Z%! !,Z! !"tbuG"tu""! "Z"( "( "@lz#F "@ v"tG!# "Z "tG!># "tD!" d f C H! #h "D"C# "!"C!#> " " *"> "@ B# # P#.#.C# #. l#J#JC# #J #f|#fC# #f`΋lNA#Cd<$  E# a$$E#$E#$  `΋F /݅݅`PDT LISTLDT LIST FOR TASK XXXXLDT LIST FOR STATION XXXXGLOBAL LDT LISTFCB TREE FOR DISK TSB LISTPSB LISTPARTIAL BIT MAP FOR DISK DEVICE BUFFER) SIZE OF SIZE OF SIZE OF,BIGGEST BLOCK BEGINNING BLOCK ENDING BLOCK' XXXX XXXX XXXX΋%%n%%t%%z&z%'f%(L%`2΋ $%l%C %#d %!%C`*΋ $%l# % %!%C`*΋l&vC $(&v &vA!&vEC &vA!2&vE!4&vD C $&v &hE!&vC`΋l&C! &C)D!*&DK!D!`&D!*&$&$ $x&D!x&C'&D!&C`"΋A+# 'b 'b!&'bC#B 'b 'bj!'bC''bj!'bC''b`*΋l(HC! (HCXD!*(HDKPD!`(HHD!*(H$(H$ $(HD!(HC1# (H(HC ! $(H %(H(HZ%:(H(HZ%I(H(HZ%Y(H %4(HD!(HC`΋ $f(lh((hl(Z$F( $2(D!X((D!(`"΋ (Јh # (!(C`* SYSTEM QUEUESFILE UTILITY ROUTINE QUEUEINSTALL TASK QUEUECLEAN UP TASK QUEUETASK LOADER QUEUEDIAGNOSTIC TASK QUEUEWAITING ON MEMORY QUEUEFILE MANAG. REQUEST QUEUEPDT QUEUE FOR DEVICE SOFTWARE OVERLAY LOADER QUEUEOVERLAY LOADER QUEUEDISK MANAGER QUEUEREAD/WRITE SVC QUEUEMM$FND DOOR QUEUEWAITING ON QUIETING QUEUEQUEUE OF QUIETED TASKSSCHEDULED BID TASK QUEUEBID TASK QUEUE DELETE QUEUE MAP QUEUESYSTEM LOG QUEUEKILL TASK QUEUEINSTALL/UNLOAD VOLUME QUEUEINITIALIZE NEW VOLUME QUEUETSBS====XXXX$NEWEST OLDEST TSB FLAGS/ID STATE$==== ==== ==== ==== ==== $XXXX XXXX XXXX XXXX XXXX ( )))*()>2)V<)F)P)Z)d* n*x*:*R*l*|*****΋ (,+z 8+ ,Gl,,l,D!*,),) ),D!8,,D!,l,D!,FMD!, D!b,C )p,,,`΋ +-V +.-V-VZ+V-V-VCZ+]-V-VZ+e-V-VZ+m-V-VZ+u-V +T-VED@ *-V *-VZ+-V +-V-VCAA-V -V -V-VC` NEWEST OLDEST TSB FLAG STATE XXXX XXXX XXXX XXXX XXXX ACTIVE QUEUETSBSXXXX΋ -. -Z. -.l>D.Z-~..Z-..Z-..Z-..Z-. -|.!.CZ-. -. -.D` MEMORY MAPSMEMORY MAP FILES/OVY # LIMIT1 BASE1 LIMIT2 BASE2 LIMIT3 BASE3/ XXXX XXXX XXXX XXXX XXXX XXXX XXXXCURRENT MAP FILESYSTEM TABLE HEADER'ADDRESS OF FIRST AVAILABLE BLOCK = XXXX'STARTING ADDRESS OF AREA = XXXX'TOTAL LENGTH OF AREA = XXXX'HIGHEST ADDRESS EVER ALLOCATED = XXXXSYSTEM TABLE MEMORY LISTSIZE NEXT BLOCK ==== ==== XXXX XXXXUSER AREA HEADERUSER AREA BLOCK LISTSYSTEM OVERLAY AREAS ADDR STATUS OVERLAY XXXX XXXX XXXXTIME ORDERED LIST΋ .3: /3: .3:lX3:.CAA3:Z.3:13:1Z3: .3: .3: .3:lX.3:Z.3:1f3:1fZ3: .3: /(3:lR3:Z/c3: />3:C3:Z/3: /h3:3:Z/3: /3:3:Z/3: /3: /3: 03: 03:C3:Z0"3:3:Z0*3: 0 3: 0.3:lP3:Z/c3: />3:C3:Z/3: /h3:3:Z/3: /3: 0@3: 03: 03:āȃ3:Z0"3:3:Z0*3: 0 3:3>2lZ3:C 0V3: 0l3:AZ03:3:3:Z03:3:Z03: 03:D`΋ 03lr Sāȃ 3 33`"/ID WP PC ST STATE FLAGS TSBADR STATION+XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX TASK STATES΋l4C 34 34!4 D!4343Z34D!4Z344Z344Z344Z344Z34Z34D!4C! 4pZ34 k3 k3 34D!4C`"REGISTER DUMPSREGISTERS FOR TASK XXXX΋ 45l5D! 5CZ55 55D! 5D!5C# 5D!5`" TASK AREASTASK AREA FOR TASK XXXX)FILE MANAGEMENT TASK AREA FOR DISK ΋ 56l6D! 6CD!*6565D!6C #n 56 6D!6l6D! 6C$*Z56 56D! 6D!?6pC!aC 6D!6`"MEMORY DUMP FOR SYSTEM AREA, BETWEEN 00000000 AND 0000XXXX΋ 7437:%^7@07F-7L+7R57X57^N#*#L`Z7#7 67 77 7`TSB/PDT ADDRESS? LOWER LIMIT? UPPER LIMIT? MEMORY DUMP FOR TSB/PDT XXXX , BETWEEN XXXXXXXX AND XXXXXXXXTASK NOT IN MEMORYINVALID TSB/PDT ADDRESS΋ &7z992l9CH!9Cl9CH !9C P8&9t7! 9C P89c7 &7z99A &7z99BZ79Z89Z8 9Z8 9HGC% E̅=̆22 7B 9GZ79 79 79 9`ACCEPTABLE COMMANDS: GI - DISPLAY GENERAL INFORMATIONSS - DUMP SYSTEM STRUCTURESTS - DISPLAY TASK STATUS!TR - DUMP REGISTERS FOR ALL TASKS$TA - DUMP MEMORY RESIDENT TASK AREAS%AQ - DISPLAY CONTENTS OF ACTIVE QUEUE$PQ - DISPLAY ALL OTHER SYSTEM QUEUESMM - MEMORY MAPSAL - ALL OF THE ABOVEQU - TERMINATE SESSION#DM - DUMP A SPECIFIC AREA OF MEMORY'DI - DISPLAY DISK DEPENDENT INFORMATION99999::B:j:::::΋;"1;R ;X`:*FILE NAME FLAGS LRL PRL SIZE ADDR * XXXX XXXX XXXX XXXX XXXX LOG. EOM BLOCK EOMXXXX XXXX XXXX XXXX XXXX ADUS USED OUT OF XXXX TOTAL΋h I <\i@ ;\<\ ;<\<`<\)Z;<\ Z;<\ ;<\`΋8DH =hH =(yv;ܠk;Hܡ(Z;=(Z;=(Z;=( h&FH!FZ;=(Z;= ;=( Z;=("Z;=($Z;=(&Z;= ;=(@@ hA@<`=`"=>" =jd >"=I`@*v*pʪhj>">>" >@>"> @ڻb*zʐnʪpf/`*a ; K/r[\J!B >C>>A>1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*?l* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`?=`?F%00څڅj ʁ* @@@ jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[E.A A(`=ENA A(`=ENA  A(`>`:`SYSTEMp `EDE"END D `>dEEDEND D`>`>  D`>ED D`?EAAEnDEND E`?pE .S$FTLF00DENEr Ez`@ D`@`@@UUP[i 0 ʴ(R "EJRJ"ĔD("R`*UUH*YRJT$@JTR %:@3wi)@3w5: ;J8pp@@d*UUUUUUUUUUUUUUUUUUU)@Н;$"*p \CkddDVm.&p6"D A@6 & A@@RADGp%@+A.rwq6] Ww'J$q NNww;StNN\@8NNNNNp;nqHA,!hDW@aw m;h/b A8B/b8,NT wLu ` .;8T* 5P]}PTX `M % Բ %Z[@  / % %# -L J`~[ ~#, #Ȑ`## # `J  #:#> /@h #`H #     #f{`/Q#f #~ ` zQ # # #l[ [I[x[ - INVALID PARAMETER # - ASSIGN ERROR ON INPUT - READ ERROR - WRITE ERRORINVALID ACCESS NAME - OPEN ERROR ON INPUT - OPEN ERROR ON OUTPUTFILE ALREADY EXISTSCANNOT GET MEMORY - ASSIGN ERROR ON OUTPUTFILE DIRECTORY EMPTY - I/O ERROR GET TCA ERROR UNIT OFF LINEWRITE PROTECT ON-BAD ALLOCATION UNIT -- # DISKETTE UNUSABLEeI/O ERROR WHILE WRITING SYSTEM INFORMATION -- TERMINATEINITIALIZATION COMPLETE.ASSUMED TX DISKETTE HAS AN INVALID SECTOR SIZE1VALIDATION ERROR ON ASSUMED TX FORMATTED DISKETTE@DISKETTE TO BE INITIALIZED IS CURRENTLY ASSIGNED TO ANOTHER USER-ERROR IN GET SYSTEM POINTER TABLE ADDRESS SVCFILE IS PROTECTEDDK01DK02DK03DK04DS02DS03DS04DS05DS06DS07DS08DS09DS10 DS11 DS12 DS13 DS14 DS15 DS16 DS17 DS18 "DS19 &DS20vv X @  :. ><b 9l   1   F H  L5`2  {/ x` y # / `  *    ʌ  " ȈЁ  !(",  +W–&*ª&&[ R t  䐙 L N PhY   A a h A` Là N P AZ09:./ A/ ) .& L!E  lň`HlDˆ   D W)!  )   Ū @ TŘ l m[ k E n or1  p qFu f   q p k D! f ! h Q k'[!@С) b d `$V@ ki1  0 p q%""1 r" k  ܱ 0f"V *   #<kƚ,[ [DUW   K F£/  \ F]$) !* $c'* ޗ$ '& F(]* 3  [k LWE `   W`AW!WKÈ]` .K F &#J  F]%-h A84̨̝̇́́̇̀D AH! 1 ( \AD %A] 6D͸I`333#[`]`D>>J>sC:ţD z9 ` z@FCB* !£S!   \ HA ` H F`-' ` ^ z ^##>@[d` z #]3 @KJ!# Ē F He H FU U KHM $   ## @.S (` `AŖ&#` zQ F H`' m33Ќ ;> z_   ]-  />I- @ #   JJb ЂIHI @  D   ` z@ 3„>` z;K:` (  c  G:c: #K:`G:c#@&Zd 1H%٠A(da(9 &ZC`PX ,?X &X& @ <:;&X>a,`;}aaN( ( Z &Z(&j ;%% ` $  Ƀ,Ɋ%  % % % @_P(8&Th B,āɇ0ËɁ2Ɋ4(& zRf&A^jd F  FA@ʮ* +^K ·΀:ƀ`%>KX = ??]%d`( = @-`P  ҷ, <:B;E7>@  Da,`C_;J! qajQv:@@w ? `  DZ & 5 1+j;#% ` A$'GMNDd $  Ɍ.Ƀ,Zf0_` 0;KɦP.( -( (KɁ2"Ɋ4H(& zf&d B:fT ,RA]0A]٠@(ȡNɇ,[$ (  F%D"  F؃`;ee % Ah ¨ LAL M cJM J`  LcJA$U%A( : :9@*:R>;!':O%ÎP`':@O%% e ce  AM`0`.(([((&T([  ^^ b[&^ ΘZ[b  HX ƈ&ZN VLY ($E(<( ;&Z<R}aaN٠A(( (  FŠd  F` &Z% % ( 7ǁ׍fP¦T h è G6@h  A‡g `G```d Ab@:ʉ\  L N PɁV* d U(J1 q Za٤)d A` Y`  &V` Là N PP[&N % % Ȏ8tb~`(H"HH *![fN`G !>'[R/[hH!1  Bz`bBI¨[*[(T D,[e å fP¦Th< A>@ N< ŠA8G[ȡN§ W'AG [`Ι!"A) r! @Ф B !a[  FCB* <"G%aHI   z@(z(;A D F$  `T`!4&V Y % @ %$&`f,A1ɀP@ɀRɱNɑTF)&Df.fNjɈ,&T H&\ H¨!B,;' )? H>_¨d a(D F !B FAY B&Z  4H(& zf&ȂĈN&2` x(:@   ` h(_ Vɣ 2ɣ Z [J!B !C!!A!1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*"\* ā*/ *p *xJ!ʁp*v""" "jd ""I`@*v*pʪhj""" "@"" @ڻb*zʐnʪpf/`*a ; K/r[\D. BIR@dAI $I$I$H@  `@R%PU&I@P @HHB@$ !D@@$@ @I& @UQ@@ A( " %"А(P*H="P  H) A@@ ( DB '!H@$ @$$(Q(@   D $    @! @D U @01q'ST39q&ST38q%ST37q$ST36q#ST35q"ST34q!ST33q ST32qST31qST30qST29qST28qST27qST26qST25qST24qST23qST22qST21qST20qST19qST18qST17qST16qST15qST14q ST13q ST12q ST11q ST10q ST09qST08qST07qST06qST05qST04qST03qST02qST01 !(`@ `@ `@ `@ `@ #$%@ 6+< +0.+`# & Dd$  /  ` /`   (/ %RT S    # ?Qpj 4BܱܱܱܱܱBA<`2< `?|?| D ?t?|M$00.S$NEWS #WARNING: SYSTEM IS NOT INITIALIZEDX$$12$$DA$$EA$$MO$$ST$$UIMENY # ?Yj4 CI`SFB`BP`! /`BN@Ԓ!C `BN '?| С#`! /РD E`= 'F ? @  `BN`Cx @@C ?|`; D Sn Fx Sn~ ? Sn% SG ''00 Sn`S9T=V'00 SnST SnAa0!1q Sn`; ?~$?|x K* /K* |?~ S`SҠAa0!@` `, ?~?|`;.()Z` ` `<  D.`  Q<` 4 G Q<`   ><|Ȅؠ Ƞ Ƞ / 'HFFD,ؠ ؠ /51BL.ؠ /":ؠ /"3E @ @@z.=ܠ/!Q! HC~`< ?v2`/ S!BL =$09AZZYYYYYYY`< $T B Q<Z;< v;#  PC P  ԁ`;`;ZC  SC`@`;`;"() ,=Z2T ԙ`< <`B:ܙYY2'Y%Y2YY`< <2`B`;  `;nv`<tQ`;ZI2  <`BB;`; `;()ZĘ<Z<D  SD`@`;`;NYZP &('`;<`; `<9X <`;B2  C`%SCI990 FATAL ERROR - END ACTION TAKEN S Lv^`;` L`C~ SnPzȠKP L SC/!nD @n SBNx/# t#/#xF> Q" Q"`||`<z5<>tx @?ԴR|?܆ ܴ?`PzQdPz SnPz V `;`; `;Y()> q Ԅ Q<ԃ>[`; ,S@xAx`Pz ;`@>ԑ Q<Bԑ||> r*1"K@ z;`K@r;& `; A!@xKCODELUNOOVLYPARMSTASK v;  PS`; v;  P@x`; K2 K2 v   PA; K4 K6 K8 K: K4ܱA`;Q4Z9 <Q4 SnvZ9 <`; < `;() ?) R2 <Y/ 1fS. . < ;hd ;L`ԑ Q<Bԑ|t>1"PKB KD3D `T@KHR%܅rrRܳ`S`BN%KF@ `BN%KG`KF p`BN`KG`BN`KFKH@ ܱS1"1"8KB KD/B` B`1"#KB`KD 3Bs``;  '`;΀CODEM$01TEXT@YQp}BܱܱܱܱܱBA<`2 S)SҠ0# | t{< 4 SҠ0# g tf`, Y #KP >ԑ Q<Bԑ||>1" zKRԲ Q<Cv1" z v#  PKP 4<`2<  # ?t``;`; ?tQ4 Sn `Pza / Sn     Sn# `, C`m* "ròAC* * ā*/ S mKKK- S/K K KKQMNOrò  @P  j,` -`!j /`! /' ` `!/`!/`!/,*ʇ,j,'-J!****!# xaʁ,G!#"` j,` .*#2CDD C`! `!/С B $2D. j,` <.` -m (1 1   2 D   2⊂ʂ` j."2 ܃[ E` B`!/! 0C`!E/! !   ʂʁ,[&"`!/`!/ @P T^#m(<(ȁȠ#ؠ#Ƞ# /"gؠ#ؠ#/"Y" c WL$QL* S ȃB $ #" Kؠ! /ȃؠ! /"pD bA 4$L*m ؠ! /ؠ! /ؠ! /ؠ#/ؠ#/ؠ#/   &"@@ *ERROR, COMMAND OR SCROLL FUNCTION REQUIREDP -+T>$! /! /'`'<'p D`'2! /  S`'6G 'F`'B S`'2>`$1 `$`@n $ 7  6|`'BKŒ$$$2V$$#  P`'C!"  P6`'B$$@n($$@n#  PИ$ǘ$$\kI Š ! 0C! " PY"C! PM -! !# P7 /C!"  P"' / `%B$>Ԡ$ . ѐ`%  @T'J S<`! /!  Sܠ$Ԡ$`@n S H/'.'q D) '$ $ `? $$ S ԃ  7!!$ /' 'p D!$ /H@g Sg*p *xJ!ʁp*v((( (vjd ((I`@*v*pʪhj((( (@(( @ڻb*zʐnʪpf/`*a ; K/r[\m*P*P |12)| |1`a2)| ? ?mCD[-mqp00A + 'J)#ȂG*(09(H E`)  #` m@  @ p@ bA@AI+*mqm+*FEmGHmr+899@DDE    ba [[BCEEF[A+NI1܀ ܱ@[>K-+09A/*m `+vѱ * +S+R@m  @"  *@* **@  +X* +WEF HIm  4+S+R)+T+P +T +М+ 88GB +Q b@B@ABE F ABI@J!B -RC-.-.A-P1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  --hEeD4 4-YtW@tPtN-Kђ -E+`DԁC5u @1`-taC$-   At-  aԇt  : 09AZS.S0z0SCQHT.S SY `@n P . 7S0z S #`.`.!ԃ C`.`.`@n . 7.S`@n C# .A 6|  B..52 @S/-m8 h8 8 uS0S0z0SCԒ0,Qp  ђ 'S 6 6v[ @[?̋ԑQH?a`.?rRA[KQp @1"8 8 8 YYKQp @  1"8 8 8 uYBSA3 ѵ s=s;DF!5S3+S..... . . ..[[  :  T1@f`3 S <`! /!  `3  55 66 S`3`3 3  3 - t  4 @@m  5@ @@ 1`@p`@i H 1 @m@h?j- ?A@ AD SFE55E `D pR A5`DA15`A`?f1 ?j C `D5`A`G665m66@T3 ?`5mQ 1 S55`A66`5ƈA`5 S0`55@h`5 `55 @15?j  5 @66G `D ? A 1 1?fԸT1 ?j A 6|`5R  8V 1 Q<`5 S 5`A661`31`31(3 ?.G S  ?j%@Q"q Q<`4 `DA 1 7=1 ?jt`3I S?j8V 1 Q<FGvFG@`?f ?hS`1@`1@[?h SC` ?f S Q<[@ ?f?h Sx??ԃ 7[@ S6 S@jihNg2g2hdl[] ACNMBIDCCDATADBIDELSEENDIFEODEOPEQEVALEXITGEGTIFINTLELOOPLTMEMENUNAMENEOPTIONOVLYQBIDPROCRBIDREPEATSHOWSPLITSTOPSTRINGSYNUNTILUSEWHILEYESNOSVCCBBCC CC#@_ ) .C%BATCH SCI990 (XB) TERMINATED NORMALLY. BCCCsCXC*D/1De1.S$PROC OBYTEDATATEXT dP P < PPPP@@PPH !HHP!PPHP PH<< DS01.THS.TEXT DS01.THS.MODS\31 HTK K` FSLLSnPzT~SK K`!SK K`!SK K`!SK K`"`SS SL M `(@SL M `(SM M `(`:`SYSTEMp `SSSSP P`)SSSP`).SP`)R`)|SP P`)PSP P`*>SP P`*|TP P`+ZPPPQ QSQ P`+SQ P`,*SQ& Q0 `,SSPzSQ@ Q0`- `-.  Q0`-RSQZ Qb`-QH SRSS^ Sf`8`SSPzSSr Sz`8 Pz`9`9SS S`9SQHSQLSS S`:SSS S`:S .S$FTLF000DDPm@@@@ ??@@@_@u\T]^.!**** INVALID PARAMETER VALUE **** UU"U?U\UyUUUUV V'VDVaV~VVVVWW,WIWf2 WX*X_XXXY3YhYYZZ`^ S ?=W ._ ?\!W p 0`^ Sz ?\ ?s ?z 3u?z \\\\\\\A ?CWW\`~!W p 0C4 2<x WWx \\` `z> .\] 0``z z_`@>>.``dW>ԑU`UWW Q<>Ƞ\WƘ\W<`z>WZ]\<`z`<9\G<\tQ >\tQ\>ܠWԑW`W\\ Q<`_ ``z S``z ?\ ?`> TW\D 1`;  @ ?`; D\\\ \\@5`;Qp ?`> M1ECAI! W?fܠ] ?h@Ԁ Q<ԈBԓ\1"`\W\1p \@aHG1 @W`?fA?h*a`WG1 @`>I/W \J`\W\ \Ԓ\Ԓ\WIQa W`?fA?h*a`W`;`;?f ?h\?fU`U Q<D U  ?h` Ԁ Q<\Ԅ`;$$BCcJ cJ;`L$`bG/ ?@Գ Q""Ԓ?~ Q<`Pza /Pzx cJb>x`;`;(* .P=!EXTEND Y" REPLACESUBSTITUTIONfrft fv;f>Բ Q<Td8 ; fx zc*;cdfx`@>ԑ Q<Bԑc||>cV1" fx frcu1" fx ftck1" fxfvf>?pd`;`;`;frft fv<(?rcR chc`/#`ece frcgcN fvcP/#`e#cb`f< BL ?r?x e<( ?r?p(ccLcT`cMZcU2cycU2`cM`BAB Z9cO A|`?rQqqQ4 ft'6f&<(><P`cM>2cU2cjcjr/#!<(?t)cf/#ci/#`;ci/Ә?       <(cf/ci/`;22gf`A?l`;AA'`;`AAA`A`;AA'`; ; z; v;Ax  PC> P`@ Sn g `;`;`;`C~h`hJh2>ԑ Q<;^;`AD*`C``CC;h8# P>#  P%'> S  CdC 6 AA ;@gQ@r?Bh, @tC @t?l?nh(`@t`AA`A`; AA'`;`C~h`;`;hC~`hC~BL !/# `;AA'  `; AAxA[AA [ A@AP`A[AA'[ .Z `i ix <`BLa`hix<>Db Q<4  Q<`h h >@?xdTix`;`;$$BC$$BTi| Sn S; @x`A@S  o`;`;`bP S6; @x`A@S " o "`SҠAa0ѡ ! " P i Sn`;#`;; #@ ? jb `;`;`;TWUW k zk`@>ԑ Q<Bԑk.||> k#1"\kkj `kTU Sn WW Sn`;`;Qkk0k kXk'kFIRSTLISTRESTkT Tԑ Q<`;`;k  UԑW QV`;`;k Wԑ Q<`;`; ; z;k@ Sn k `;`;`;.S$PROC `lD,tkDbԠD. Q<;l>`DbԠD. Q<tQ `D,`l? lllDblD,ԠD. S)ԒԠD. Q<  `l>`S`BNХ @ l`;(BNx>DbԠD. Q< CD,`;>o!otQoo `m`oboZ? o`oy??`oo < o zo`@`o`ooԑ Q<Bԑ? |toD1"K o o o ? tooZ9@v o <oAoU oܵܠ? t`ooóoo `o oZ9C <`moD1"? oo o|tooZ9@v o <oo`oA`oo܁oo o`mZ9C <`moD1"{oZ@v<oojgo`o`?ZCW<o1 oo o ? oto `oРo ooooq`m/>>$ D t %>4 ѕt SnFЕ ox o`;`;R o P`o`o[So`SҠAa0Э &'РpРp!"mmmxa LpaРpРpp@ @B +p/p/p! ! [Sp-q-p-q Sq Sqq L /p p  @+@MR[i4J$!S"$@H@*RUKm-Pj"dI *@EB 0HRhS!Q)4"!I-"QDA"HHHBJPZCkdTIDJZ* RI IHfHJHH(%QH*lDPTZMV@a!*@QHQ$(&@%Q"hI[Q P0$HH3DUKjT D JkIBR RIYD%JJ)-TPT H$ %1%EVT$$BC# P FTD?T$0TEE%TTUUTdBf K`?~`Uh ?|`UW>V`?|ԠWB PԠWD`?|WV2pV S4UdWD`B .@ ?`T SVб ACWDB4U V .@ ?`TTc `WP! L`WX +WL/WJ/WF# #OPz LWZ Q"`Uh S@ `WR=XWV `WT3 L Pm )PmPz LPz WZ Q"  WPmPz L! "T P SnL`UhW`Uh`T **** ERROR 0000 **** @ /O!UNABLE TO BID THE BACKGROUND TASK"BACKGROUND EXECUTION HAS COMPLETEDX*4CC[Y[YZZ#Z/Z7ZIZ\!Zp"Z%Z&Z'Z(Z)Z*Z[ [[4[N[d[w[[[ [ܐ [ \ \# \9\L\`\o\\\\͐\]]!]5]W]l]]]ǐ]^ ^!^-"^>#^Z$^z%^&^'^(^^___5_O_n__ _ _ _ _ ^Z` `!`<`Z`x````]`\9a a$a:aMava a!a"a#a$abb)bBbXblbbbbbbc c c= cU ckccccdd.d.ILLEGAL LUNOPERATION ABORTED OR TIMED OUDEVICE ERROTIME OUDISC UNIT OFF-LINDISC UNIT NOT READWRITE PROTECT - DISUNKNOWN VOLUME NAMINVALID FILE NAMNO ROOM ON DISC FOR FILFILE ALREADY DEFINEFILE NAME UNDEFINEDX10 SYSTEM TABLE AREA IS FULINSUFFICIENT SYSTEM MEMORINVALID SYNTAINVALID ACCESS NAME SYNTAINVALID INTEGER EXPRESSIOINVALID KEYWORD SYNTAINVALID NAME SYNTAINVALID COMMAND NAME SYNTAINVALID RELATION NAMINVALID TYPE SPECIFICATIOINVALID SYNONYM NAME SYNTAMISSING COMMSPURIOUS CHARACTERS AT END OF COMMANMISSING '=' CHARACTEUNEXPECTED END-OF-LINMISSING PARENTHESIUNKNOWN COMMAND NAMUNKNOWN KEYWORUNKNOWN FILE OR DEVICREQUIRED ARGUMENT NOT PRESENPRIVILEGED COMMAN'YES' OR 'NO' IS REQUIREINVALID LEFT OPERAND OF '.IFINVALID RIGHT OPERAND OF '.IFINVALID SYNTAX FOR A LISCOMMAND OUT OF PLACUNEXPECTED END-OF-FILE ENCOUNTEREINVALID KEYWORD VALUINVALID STRING VALUOUTPUT TEXT BUFFER IS TOO SMALREQUIRED USER PROC LIBRARY NOT SPECIFIEALREADY HAVE BG TASK PENDINCAN'T QUIT WITH BG TASK PENDININVALID USER IDUPLICATE USER ID (NUMBERUSER ID IS IN USINVALID USE OF A DEVICE NAMCOMMAND IS INVALID IN BATCH MODA DEVICE NAME IS REQUIREINVALID PASSCODINVALID FILE TYPINVALID NESTING OF .IF/.LOOWARNING - DEFAULT MENU NOT FOUNVALUE OVERFLOWS 16 BITVALUE EXCEEDS >FINVALID TASK STATE FOR 'HALTUNABLE TO SUSPEND THE TASSYSTEM USER PRIVILEGES REQUIREINVALID TASK RUN IUNKNOWN BREAKPOINT ADDRESDUPLICATE BREAKPOINT ADDRESTASK IS NOT SUSPENDETASK IS TERMINATED AND MEMORY RESIDENBREAKPOINT TABLE IS FULMEMORY LIMITS EXCEEDETASK IS NOT AT A BREAKPOINNO TASK IDENTIFIED FOR 'DEBUGALREADY HAVE A TASK IN 'DEBUGTHE TASK DOES NOT BELONG TO THIS TERMINAINVALID BREAKPOINT TYPEXPRESSION STACK OVERFLOINVALID OBJECT TAINVALID SYMBOLIC NAMSYMBOL TABLE OVERFLOINVALID REGISTER NUMBE16 WORD LIMIT EXCEEDEMISSING ' CHARACTETASK TERMINATED - DEBUG MODE DISCONTINUETASK TERMINATETOO MANY PROCESS RECORDINVALID BREAKPOINT LOCATIOINVALID STACK FRAMINVALID PROCESS RECORINVALID ROUTINE NAMNONSTANDARD OR FORTRAN FRAM'LOAD OVERLAY' SVC ERROINVALID PROGRAM FILE LUNINVALID OVERLAY NUMBE'BID TASK' SVC ERRO.EXIT OR .EOP OUT OF PLACPROC LIBRARY ERROTEXT SUBSTITUTION ERROMEM MANAGEMENT INIT ERROUNABLE TO ACCESS THE TCSYNONYM TABLE OVERFLOINVALID TCA CONTENTINVALID SCI MODE/STATSDCALL: RETURN STACK OVERFLONO ROOM IN BG TASK QUEUKEYWORD TABLE OVERFLO.IF/.LOOP NESTING LIMIT EXCEEDES$IO: THE TLF HAS NOT BEEN OPENES$IO: INVALID COLUMN NUMBES$IO: TEXT TOO LONG FOR OUTPUT BUFFES$IO: AN ALTERNATE FILE IS ALREADY OPEPROC CALLING STACK OVERFLOINSUFFICIENT MEMOR T`T!`e!`efff 1`ex ffx ffg 3gG`e@ ?`effBD(x ff 3gG`e@ ?`effpgNPzS D(S (Pm LS *PmPzf$Df΍$gN(0&čg*`dDT&͵͵͵Ѥ FpT'@S&T&f͵͵͵TfEpYgJX gJSSfM Pzff̳`TPz K T`D(SS (Pm LS *Pm`T!`TA5 5   8gL[[ г  [``SYSTEM ffff USER ID PASSCODE+ SYSTEM COMMAND INTERPRETER - PLEASE LOG IN! **** INVALID IDENTIFICATION **** **** USER ID IS IN USE ****p 0RUP@BJ@BJ$L*JI+THU@ UUUUUUUUUUUUUUUUUUUUUUUUUUUUPHF"BUVՉ@ @A UBJՠ@@TWD2203[ VV2 TUWWWWWWWMODIFY SYNONYMSYNONYMVALUEERROR FROM S$FMTERROR FROM S$GKEYERROR FROM S$GTCAERROR FROM S$MAPSIMPROPER COMMAND LW3 VT UXVVVD 1VG 3V V%VT@ L KW2X`Wj@ S W `W`Wj Sn WC`W `VV0 SZ VV VV`V[DTD"@""(ITVTINFO WBF PP `:` p * TERMINAL USER LI REQ'D MODE DEFAULT + USER ID DESCRIPTION PRIVILEGE CODE PPNNOOFFTTYVDTYESPP # L P FU  D?V$$0V EU %%VWFUUW&XTY\]<]]]]_aad K[@ L K KTԲ Q"BQ KUN K KU Q"(^Ƞ0#V$QG5 5K$T`UHttttT KV# @V KV# @V# K$TA`V"t ttttt  KV #V K KT at K K K`WU Q"B`(`Y V$ȡ0TԲ Q"Ԓ VU  SYU TԲ Q"ԒV S'@TԲ Q"ԒV S' @<'@TԲ Q"Ԓ Y"VTԲ Q"Ԓ#  P '@`WYY KUNKNOWN TERMINAL NAMEINVALID MODE CHANGE U4 V $ T T` #ZJZFZZ['Z`S`T #<(V/`T KZZZZZZZ[[['[1[J[e[[[[[\[\\ \ \/\G\I\g\|\\\\TASK IS NOT IN THE SYSTEM'NO BACKGROUND ACTIVITY AT THIS TERMINALWAITING FOR EXECUTION TO BEGINACTIVEACTIVE  TERMINATEDSUSPENDED FOR TIME DELAY SUSPENDED EXECUTINGAWAITING CHARACTER INPUTAWAITING COMPLETION OF I/O!AWAITING ASSIGNMENT OF I/O DEVICE#AWAITING DISC FILE UTILITY SERVICES !AWAITING FILE MANAGEMENT SERVICES AWAITING OVERLAY LOADER SERVICESAWAITING INITIAL LOAD   "AWAITING TASK DRIVEN SVC PROCESSORAWAITING GETMEM REQUEST AWAITING COROUTINE ACTIVATIONAWAITING TERMINATIONAWAITING ANY I/O COMPLETION  ROLLING OUT$SUSPENDED FOR INITIATE I/O THRESHOLDU V $  `C#]Z K]Z]EXECUTION TERMINATEDKILLED BEFORE EXECUTION BEGUNU Q"Ԓ UV& Q"Tq . Sn K L@ V U`.] K(UNABLE TO DELIVER A MESSAGE AT THIS TIME U LVԲ Q"`_B`VTԲ Q"UԲ Q"U PVzԲ Q"`_B`V`SSPzPm (Pm LSPmA`PzU <`_V|{ywV|V #   Pz L`PzU( 0#V|333THM PzU UH2Vz5333 VȀ V ؀ T &նV Q<S VS`Pm (Pm LSPm@ U `W !%Pz L KTԲ Q"BQ KUz K K L`SSPzPm (Pm LSPm'PzU !F`V" KF! K  #0!" K KT at K KPz L K`WA5 5   8Vx[[ г  [;  +a /a/a$ [ U$`V ! T T 0V$//UJV&Բ Q"ܒUX`U`YT at@ KbjaxM^~Q/bbLb b b b`bK)K 8c (Ƞb c (00݈݈ݷ$[b:: DAY, , 19.JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECSATURSUNMONTUESWEDNESTHURSFRI m P1(UU@Q $PEB@ J( ! @$$DBJD$x(!D$Q $% QBT*@BD"@I$*E J*$" *8RDe@TUUNPP0# L P FTD?UEE%U<UFUUUV:VBVJVR K[@ L`UFг  3T[`[[ L@.`L$`U/U0 T +T/T/Uc `L$`U/ S Kc KTq Q"U`Tq Q"U` U~ "$ KU~#U~$U~"U~!PQDA$$@WT# P$r GD `UU /A TT K! K@ KZY"Y"YTY"ZYZYZY(ZYlY$Z[\Y0ZY,Y"]BY"YY"^Y"]^DY^h  PPRRRPXUDXULU|,--m/ `@ÞE V( V,XVBWj`V XVRWj`V W(`V`Vmmm/! `@Þa-W*W-W0W3W6W9WY bJY b>Y eDYY VNY/Y@ÞX"Ym  h^ZC YY   gZ @ÞXZ&m ݠZAb bJZm bxZB! ԃ PԠZAb`Z`Z-@Þ +XZm[G xm[ U@[[ U@[[ V>[[ U@[[ E([ [!9й ԃ P1Ԡ[[ [ E*" [ \F`[ [     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)X\m1 q ( RABX\6<C/! `@ÞXB\f bJ\ b>\m \\ VN\ U@\H \\E*/\^@ÞXb\mm bx\ނD"VE@ÞX\EnE܃ ܠ]m] b]CR B!En PFԠE"d]ԃ PԠ]āD"En"9d] ] ] `?  ] ]`]܉ܠ]āDEn i]&F@Þ . ~X"]mD i^ e^@ÞA $.F<(9+'>)#Z0Xb^"6 `_` ^D E# E,El^`&`_^_`_^V^^ ^ ^ ^^`HkИ^  ^ ^ ^`pZ^`&S,K^^ @^^`&;^_3^a+^ ^a^ `^Nb  P@Þ El@E,C@^^;^7El`Ԁ#  P+^ I$m V>`$ƒ!̳Ԍ Ps ܈[[ ElEj El[[ ^ ^^ ^[[ D^ D^^ ^ ^ ha \`^6^ - ha \`^ 2(^ EDU5^   ha \`Ł  ^D ^D[[ haW S6Wam" U@a  V>a U@aƒ!, P Ԡ^'[[Fv^5^^`! T!c  # P Ԡ^ [[E,ElDaԇ[[ XbB/b<XbN2/pA`@ÞB Vb Xb|mVBCVV"BVVVV @ÞXb-W- #%`ХPc  E!C` Baͱ<`c`c W(`cmH/%& cH! @`c`H  W(`cA/% E!E!I@ÞI-@Xcm U@d E($g U@dE*c UHdE(m /e@ U@d D C!dԃ PԠe>d d dd . % ddИ dde dd .  dd ddmE* UHd@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? XeHmm bxej"D  bxeH V؁VȉVȭ @ÞXbemS DD f e ee@ÞXemEnԠE ZfB if@ÞXf \2fm efAf ifI U@f$ \ff ifIEnԠE Z"fB ifg, C ifI U@f D$ DD \f@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXg^m U@gddd@ UHg/@ÞXBgg Pg B  m DD f g@ÞX"gEnԠE Q"/#   P&EцFƘD  U@hLC# P Dp @ÞAXBhbmEnԠE Q"m# ^hI@ÞX"hmE( gZh U@h E* UHh@Þ$09;AZXi Fhhh`@AF @ÞX"i^m U@ip  U@iC@ÞXi9>!Enԃ PBԄ K  K & FH K@ K@ÞX\`D@EEEE D Z\ a\ U@]8@@ UH]8EnE Q"гYN 3 / /D D@ÞX]F `v^EnԠE Q"V`D# a^^ ܱEn"C P:Ԡ^c" P0 ^eܓ^e"^U3 ܳ"^e^dԑEn i^ C@Þ@ HEX: XXXXXXXX DECIMAL: ASCII: '....'> X^jm ݠ^Ab e^m f(^B! ԃ PԠ^Ab`^`^-@Þ +X^m_G xm_ U@__ U@__ V>__ U@__ E(_ _!9й ԃ P1Ԡ__ _ E*" _ `DF`_ _     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)X`Lm1 q ( RABX`z<C/! `@ÞX`EnE܃ ܠama f`CR B!En PFԠE"daԃ PԠaāD"En"9da a a `?  a a`a܉ܠaāDEn ia&F@Þ . ~ Xa Ea E )#Z0Xba6 `c aD E# E,Elac`c@acF`c@aVaa aa aadkИa aaad.ZacS,Kaa @aac;acF3ad+aaeXa `b e  P@Þ El@E,C@aa;a7El`Ԁ#  P+a I$m V>cƒ!̳Ԍ Ps ܈[[ ElEj El[[ a aaa[[ Da Daؘaaa id `HdZaژ6a- id `Hdpa 2(a EDU5a  id `HdŁ  aD aD[[ ieVW S6Wam" U@eV  V>eV U@eVƒ!, P Ԡa'[[Fva5aa`! T!c  # P Ԡa [[E,ElDaԇ[[Xe2/pA`@ÞB Vb Xf,mVBCVV"BVVVV @ÞXf-W- #%`ХPgp  E!C` Baͱ<`gn`go W(`gpmH/%& glH! @`gl`H  W(`gpA/% E!E!I@ÞI-@XgvmEnԠE ^gB ig@ÞXg `vhLm grhLAhR ihLI U@hL$ `hLh ihLIEnԠE ^fhLB ihLh C ihLI U@hL D$ DD `hL@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXBhi, Pi, B  m DD gi&@ÞXBi4mEnԠE Q"m# aitI@Þ$09;AZXi Fizi}iz`@AF @ÞXi S j$  7m P  7@Þ @"  0"*B  c TبC@@DBH0 A4iZ( 4Q"I$TE"IBI"@BBB$ $"(II66`@@ " @  IA a`ɆL4`QK@D@YXY( e:YDRW fY5/p eYD U@Y@ UHYDE U@YE U@YE U@YEEnE Q"Y" E \Y `.YD@ÞXY e:ZJAD ZP _ZJ fZJIEnԠE ZZJB fZJ C@Þ2 B R E A K P O I N T SXZ e:Z fZ cLZ eZ@ÞXZm ݠ[6Ab `R[.m `[&B! ԃ PԠ[6Ab`[4`[7-@Þ +X[G xm\$ U@\\( U@\\, V>\\0 U@\\4 E(\8 \$!9й ԃ P1Ԡ\=\< \8 E*" \" \F`\< \4     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)   ]]]]]]]]]]^,^T^T^T^T^T^T]]]]^T]]]]X"\EDDEnE Q"`^X`^@W \/$`^D \/$`^D^v`^X E \/$y$p \eEnQ %qE2me\UD.!! !C%E^vA#`\ ^] D DDC# C%E^v#`\ ^^D# 2(DCŃŃ^     E C@^EE@Þ\@/  E[[ \/ \/`EbC#C> \\CE/[[X^m1 q ( RABX_ <C/! `@ÞX_4EnE܃ ܠ`(m` `_fCR B!En PFԠE"d`ԃ PԠ`(āD"En"9d` `* `+ `?  `, `-``)܉ܠ`(āDEn f`&F@Þ . ~X"`2mD f<`L cL`L@ÞX`V2/pA`@ÞB Vb X`mVBCVV"BVVVV @ÞX`-W- #%`ХPa  E!C` Baͱ<`a`a W(`amH/%& aH! @`a`H  W(`aA/% E!E!I@ÞI-@Xam U@b E($g U@bE*c UHbE(m /cH U@b D C!cԃ PԠcFb b bb . % bbИ bbc bb .  bb bbmE* UHb@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? XbcPmS DD cc| cc|@ÞXcmEnԠE [8cB fc@ÞXc _d\m cd\Adb fd\I U@d\$ _0d\d fd\IEnԠE Zd\B fd\d C fd\I U@d\ D$ DD _0d\@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXem U@e4ddd@ UHe4/@ÞX"e>EnԠE Q"/#   P&EцFƘD  U@eC# P Dp @ÞAX"emE( df U@f E* UHf@ÞXfm U@f6p`a @ÞXf@9Ԓ e Z W( eZ f)#Z0Xb[6 `\Р [~D E# E,El[]`\[\`\[V[[ [z[ [[]kИ[| [}[z[]Z[]S,K[[ @[[];[\3[^v+[{[_ [~ `[_  P@Þ El@E,C@[[;[7El`Ԁ#  P+[ I$m V>]ƒ!̳Ԍ Ps ܈[[ ElEj El[[ [ [[z[[[ D[ D[[}[}[ f^t [L^ [6[}- f^t [L^"[ 2([ EDU5[}  f^t [L^RŁ  [D [D[[ f_W S6Wam" U@_  V>_ U@_ƒ!, P Ԡ['[[Fv[~5[[`! T!c  # P Ԡ[ [[E,ElDaԇ[[ VALUE(S) FOUND AT ADDRESS: > VALUE(S) NOT FOUND>X"_ _X"_ _mhh`5`e/"E&E$Bƒ h!_ "`B  E&E$h_(EnԠE_ Q< Ԡ_ E&h`bJ_! PEnRԠ_ g8` C@Þ a,`¡á-`ġġá[[Xa0-W- #%`ХPb  E!C` Baͱ<`b`b W(`bmH/%& bH! @`b`H  W(`bA/% E!E!I@ÞI-@Xbm U@c E($g U@cE*c UHcE(m /c U@c D C!cOԃ PԠcc' c c$c . % cc%И cc&cf c$c .  cc% cc&mE* UHc@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? X"cm Kzmmd a,d,2 F-Bddd KE KA d dd gd) gd&@ !dHeԃ PԠe dˋHd K K@ K @Þ SAME!END OF MEMORY ENCOUNTERED AT XXXXNO TASK MEMORY FOUND AT XXXX X"e#  PEp EnԠE Q"   PEц@ÞFXenm U@eddd@ UHe/@ÞX"eEnԠE Q"6f: #   P(Eц!FƘD  U@f(C# P Dp @ÞASXBf@mEnԠE Q"m# [fI@ÞX"fmE( ejf U@f E* UHf@Þ$09;AZXf FffלfԜ`@AF @ÞXg< S g~  7m P  7@Þ XBgm  !hZԃ PSB KM-t!hZԃ P:B K4&9-`hYhT hU `? hVhWhXChZ K " K@Þ . ؖ`3#0 30c60`RQ"A$!$ A !!!P $$ڛJ @@5AP"F$ ``Ve0,"T 5@ *00 $ A$A@@XY, gZA cZEnZZI U@Z! iԃ P`ZԠZiܸܸܸZiij6 1mF 3 e~Z W i j6>I hZ ( Z U@Z( Y& Y$H Y"E* UHZC! iԃ P ԠZI gVZI hZZ@ÞWPPCST>\\ U@\\ E(\ \!9й ԃ P1Ԡ\\ \ E*" \ \F`\ \     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)X]m1 q ( RABX].<C/! `@ÞX]XEnE܃ ܠ^Lm^< c]CR B!En PFԠE"d^<ԃ PԠ^LāD"En"9d^< ^N ^O `?  ^P ^Q`^M܉ܠ^LāDEn i ^6&F@Þ . ~A $.F<(9+'>)#Z0Xb^j6 `_ ^VD E# E,El^Y`n`_ʘ^^_`_ʘ^]V^a^Z ^R^W ^a^Z`kИ^T ^U^R^``Z^Y`nS,K^]^Y @^[^X`n;^]_3^_aN+^S^\a^V `^bd  P@Þ El@E,C@^Y^^;^]7El`Ԁ#  P+^^ I$m V>`lƒ!̳Ԍ Ps ܈[[ ElEj El[[ ^a ^Z^R^W[[ D^d D^b^U^U^b haL \`^d6^U- haL \`^b 2(^d EDU5^U  haL \a*Ł  ^bD ^dD[[ haW S6Wam" U@a  V>a U@aƒ!, P Ԡ^]'[[Fv^V5^\^\`! T!c  # P Ԡ^] [[E,ElDaԇ[[Xb2/pA`@ÞB Vb XbmVBCVV"BVVVV @ÞXc-W- #%`ХPc  E!C` Baͱ<`c`c W(`cmH/%& cH! @`c`H  W(`cA/% E!E!I@ÞI-@Xdm U@d E($g U@dE*c UHdE(m /ez U@d D C!e7ԃ PԠexe e e e . % ee И eeeN e e .  ee  eemE* UHd@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? X"eil@ÞXemEnԠE [eB i e@ÞXe ]*fxm efxAf~ i fxI U@fx$ ]Tfxf i fxIEnԠE [fxB i fxf C i fxI U@fx D$ DD ]Tfx@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXgm U@gPddd@ UHgP/@ÞXBgZg Pg B  m DD eg@ÞX"gEnԠE Q"/#   P&EцFƘD  U@h C# P Dp @ÞAX"h"m# ^fhLiVEilD@ÞX"h^mE( gh U@h E* UHh@Þ$09;AZXh Fhhh`@AF @ÞXi S iR  7m P  7@Þ VALUE EXCEEDS 16 BITSINVALID EXPRESSIONILLEGAL KEY INPUT iiiiiiiiii iiijj jjj!j(j/EnEnEnEnEnEnEnEnEnEn"% #B&AL0 Dhր)  `@D%I&0%%)HI!  @@H M``0D D)`  @`H hFUhfZ` &e0 5`  0  XY&EnԠE Q"`[<Ԓ e[< W( hD[<[D i[<  C W(  dJ[<X[lm ݠ[Ab b[m c[B! ԃ PԠ[Ab`[`[-@Þ +X[m\G xm\ U@\\ U@\\ V>\\ U@\\ E(\ \!9й ԃ P1Ԡ\\ \ E*" \ ]FF`\ \     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)X]Nm1 q ( RABX]|<C/! `@ÞX]EnE܃ ܠ^m^ cb]CR B!En PFԠE"d^ԃ PԠ^āD"En"9d^ ^ ^ `?  ^ ^`^܉ܠ^āDEn j^&F@Þ . ~A $.F<(9+'>)#Z0Xb^6 `_ ^D E# E,El^```^```^V^^ ^^ ^^`kИ^ ^^^aZ^`S,K^^ @^^`;^`3^a+^^b0^ `^b  P@Þ El@E,C@^^;^7El`Ԁ#  P+^ I$m V>`ƒ!̳Ԍ Ps ܈[[ ElEj El[[ ^ ^^^[[ D^ D^^^^ ia ]Ja2^6^- ia ]JaH^ 2(^ EDU5^  ia ]JaxŁ  ^D ^D[[ ib.W S6Wam" U@b.  V>b. U@b.ƒ!, P Ԡ^'[[Fv^5^^`! T!c  # P Ԡ^ [[E,ElDaԇ[[Xb2/pA`@ÞB Vb XcmVBCVV"BVVVV @ÞXcf-W- #%`ХPdH  E!C` Baͱ<`dF`dG W(`dHmH/%& dDH! @`dD`H  W(`dHA/% E!E!I@ÞI-@XdNm U@eJ E($g U@eJE*c UHeJE(m /e U@eJ D C!eԃ PԠee] eT eZeT . % eUe[И eUe\e eZeT .  eUe[ eUe\mE* UHeJ@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? X"e#  PEp EnԠE Q"   PEц@ÞFX"f.jr@ÞXfNmEnԠE [fpB jfp@ÞXfz ]xg$m fJg$Ag* jg$I U@g$$ ]g$ge jg$IEnԠE [hg$B jg$g C jg$I U@g$ D$ DD ]g$@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXgm U@gddd@ UHg/@ÞXBhh@ Ph@ B  m DD fvh:@ÞX"hHEnԠE Q"6h #   P(Eц!FƘD  U@hC# P Dp @ÞASX"hm# ^ij\EjrD@ÞXBimEnԠE Q"m# ^iZI@ÞX"idmE( gi U@i E* UHi@Þ$09;AZXi Fiii`@AF @ÞXj S jX  7m P  7@Þ VALUE EXCEEDS 16 BITSINVALID EXPRESSIONILLEGAL KEY INPUT jjjjjjjjjj jjkk kkk k'k.k5EnEnEnEnEnEnEnEnEnEnB4фŨ$`@@"$$@F,  4ѭR (`J$L`JJ$R($$$$!$$$"B @!"@ $DSi@#`6` RA@ $ Ѡ̴3T  V6 `iKh0`@j @  1P0a XY0 _&Y Y*Y&/Y" Y"@% [:YvZ8# Y*Y&/Y" Y"@ \Yv D _Y @ K@ÞQXY _&Z YY/Y Y@% `YZ8# YY/Y Y@ kY D _Z  @ K@Þ  _ZE E`E U@ZE U@ZE U@ZEE [Z Z0Z*/Z& Z&@) Z2V Z4V0 Z6V2 `Z ZZEE E `Z[ D _Z @ K[/Xb[m V>[0 \n[0 \b[0 ^[0Z VN[0/Z@ÞX"[>m  j[jC Z[^   ^[ @ÞXb[mm \[D"VE@ÞXB[ \n\ \b\m [\ VN\ U@\H [E*/[@ÞX"\mD `\0 h\0@Þ X\> Ea E <\6\8`E/E X\f/\`X\r2/pA`@ÞB Vb X\mVBCVV"BVVVV @ÞX]m U@] E($g U@]E*c UH]E(m /^| U@] D C!^9ԃ PԠ^z^ ^ ^^ . % ^ ^И ^ ^^P ^^ .  ^ ^ ^ ^mE* UH]@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? X^mm \^"D  \^ԠH V؁VȉVȭ @ÞXB^_" P_" B  m DD i6_@ÞX"_*EnԠE Q"/#   P&EцFƘD  U@_C# P Dp @ÞAXb_EEEE DE" FH \:_DX"_m U@`p  U@`C@ÞX`9bb`UBCU`VtBtVFLXbEXbmaV-EFHc Eˆ #FL#D `D@Þ#  LJfC@چa&-L 0SOCBSOC MOVBMOV AB A CB C pSB `S PSZCB@SZC <DIV 8MPY 4STCR0LDCR,XOP (XOR $CZC  COC TB SBZ SBO JOP JH JL JNO JOC JNC JNE JGT JHE JEQ JLE JLT SPINJMP NOP STD "1LD "1@DD "1MD "1SD "1CID "1@AD "10TS %# CRC %"SNEB% IOF ) STR "2 LR "2 @DR "2 MR "2 SR "2 CIR "2 @AR "2 0XF * XV * INSF* XIT 3 ARJ +/ SRJ +. TSMB(- TCMB(- TMB (- NRM &, CED 1 CER 2 CDE 1 CRE 2 NEGD 1 NEGR 2 CDI 1 CRI 2 SRC  SLA  SRL SRA LDD BLDS B@ABS SETOSWPBBL @DECT DEC  INCT INC  @INV  NEG  CLR  X  \B  [RT  @B  BLWP EP -+LREX@  CKOF@ CKON@ RTWPp `RSET@P @IDLE@0SMF @ LMF @LIMI@LWPISTSTSTWPCI `ORI @ANDI AI LI MPYS"DIVS"@BIND"EX PSHS%POPS%MVSK%MVSR%BLSK!LCS a!LWP !LST !pLIM a`MOVS%0PSEQB%(@CS %(0STPC!/DINT`*.EINT`*-EMD `*, )+MOVA,)*AM &')SM &'(ANDM&''ORM &'&XORM&'%SWPM&'$DBC &'#BDC &'"SLSPl&!SLSL,& CNTO&%LTO &%RTO &%SLAM'$SRAM'$ Xh:cN&Ġ  3cN  4áƅC 5#cNC @ Xc^VV -m  D ġ$chd`V V V>cV V>cVV6T@ÞhccccdefPfgggghBEhV`hEhV ehV`hEEbEhV6   bd"`VE V>c`V6hVP,)UROVBĠcVB0ĠcNć UD cR @Ą cR ehV `h`cT` UD cR 0`cVVBąBć cR`hUB ble ble  ble(UB cR VBĠcVBć cR ehVUB blex ble` bleVBĠcTBć cR`hV6  be`VE V>cC$U  cTU cVUUV E`V6hV cTU$hU# UU   V ehVV `hV6  `VE V>cC`V6U cTUUV hV VEC bf`hV6 c  bf`VE V>c 3U  cVU cTUUV `V6hV V`h @  cVUUV  cTU V6 E bgH`VE V>cECE D ġ`V6 4UhV U(V V  cTU ehVV `hV hV | ehVv`V6 EhV`V6 i bgdE+ cXU cVUUV `V6hV+ cPU cTU ehVV ?E V6 E bhZ`VE V>cEC E DU cVUUV `V6hVU cTU ehVV CàE 4D$hTi\iFhiF`VD  blh V>c VVV V>cVȃV4V V>c`EȃV4  bliN`V V>c V  blih[PIF *)PHՂD  $B"(ՀfXA*+U@!2HT06ʄ XԪʀ VjLX0Yc`- D?$cxTdrdrddrdddde@e@e@eefffFfJfJf`f`fggg.gd`dp VNd` `d `d Vd`V6H`cV bld V>d`V6V`c`c`VE" V>d`C V>d`C V>d`C U@d` cXC`cRE# ble ble" ble*-E-E-E`dfhV bleR`VV V>d`C V>d`C"E VNd`EÈ V6cN VNd`E VNd`# ble ble ble-E-E-E`dfh`V VE`dfh`VV V>d`C -`ch  bf `V" VNd``V VE`df`cm E bf\`cm VfV.fV*V,V(OOFV# p Vd` `  bf`c`df`c` dp b  bg*`cFL`c  bg8`cV blgJ`c`c`V V V>d`V V>d`V@V<V6 blgCEV V>d`C VNd` V< V>d` VNd` V>d` VNd``df VNd``df`ch`VV V>d`CE`df bh  bh`c`c`cV4C bh0`c`c`c`c`c`c`c`c`c`c`c  `VV6 E V>d`8V V>d`C VNd` DV6 sC-E`df`c bh bh bh bh`c`VV4 cV BE V>d` VNd`[XiU U Vwx `V V>i```@ biLU`V@Þ',1h3B  ̒ՆɌ32JQ4@`QETd1YcCUXj ,*fͪ X`m ݠaAb \nam \`B! ԃ PԠaAb`a`a -@Þ +XambG xma U@aa U@aa V>ab U@ab E(b  a!9й ԃ P1Ԡbb b  E*" a b`F`b b     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)Xbhm1 q ( RABXb<C/! `@ÞXbEnE܃ ܠcmc gbCR B!En PFԠE"dcԃ PԠcāD"En"9dc c c `?  c c`c܉ܠcāDEn k4c&F@Þ . ~A $.F<(9+'>)#Z0Xbc6 `e cD E# E,Elce`e2ce8`e2cVcc cc ccekИc cccf ZceS,Kcc @cce;ce83cf+ccgJc `cg  P@Þ El@E,C@cc;c7El`Ԁ#  P+c I$m V>eƒ!̳Ԍ Ps ܈[[ ElEj El[[ c ccc[[ Dc Dcʘccc jf bdfLc̘6c- jf bdfbc 2(c EDU5c  jf bdfŁ  cD cD[[ jgHW S6Wam" U@gH  V>gH U@gHƒ!, P Ԡc'[[Fvc5cc`! T!c  # P Ԡc [[E,ElDaԇ[[Xg-W- #%`ХPh  E!C` Baͱ<`h`h W(`hmH/%& hH! @`h`H  W(`hA/% E!E!I@ÞI-@XbhmS DD i6i i i@ÞXimEnԠE a i0B k4i0@ÞXi: bim i iAi k4iI U@i$ bij% k4iIEnԠE `iB k4ijX C k4iI U@i D$ DD bi@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXBjmEnԠE Q"m# cjI@Þ$09;AZXj FjjӜjМ`@AF @ÞXk8 S kz  7m P  7@Þ @`0@ Ѧh"P`D DBP$B`RQ"A$!$ A !!!P $$ڛJ @@$ b f V6 `iKh1P00hX"` a4` ``m ax`@ÞXB`EnԠE Q"2-a.#a/a0a1a2 #  PGD@ÞERB0>XBa8d^`dE  Q"Rd^@ÞXBa|m- bFb:S FNFP F bb:ŅC 5 E" bDHH" b@" Zb:" bB " V>b: Zb:" bD B V>b: Zb:#@ÞXbbJm c8b‚'"b dbbƈ&bbBB V>bڀB V>bڀ"B" db"@ÞXbbm Q 5i/GCXc2 c*Xc< c,md^d.5cB/"E&E$Bƒ d^ c, "c  E&E$d^  E&d.bJc,J@Þ dc¡á-`ġġá[[ Xd-W- #%`ХPeh  E!C` Baͱ<`ef`eg W(`ehmH/%& edH! @`ed`H  W(`ehA/% E!E!I@ÞI-@XBenm K!I f:ee j^eI ffe j^ee j^eI ge K@Þ3 B R E A K P O I N T S@ NAME WP PC --------------PARAMETERS---------------Xf>mEnԠE jf`B j^f`@ÞXbfj­  FNFPw nJ"d. dgx4En dgx gEnD K[)  C!!g~ gEnW%En"ԃ P9Ԡg!g gEn`d.En"ԃ P&Ԡg!g gEnEn K)< K  K@Þ E R B Xbgm hh iZhCEn E B!En"ԃ PkԠh" m iZh„" V>hC V>hd. dhEnܴ" V>h"a ihEn`E j^hŠGm V>h#" V>hC V>h j^h`g@ÞA Xhm  U@iT"d. diTd. V>iD", diT!$$d V>iJ G"$@ÞXi^m U@i U@i"d. di$ 4`" V>iCB V>iCGHD!@ÞXjmd. djXEn! ԅt PԆ"@ÞXjbm K K@ÞXjmkG xmkp U@khkt U@khkx V>khk| U@khk E(k kp!9й ԃ P1Ԡkk k E*" kn kF`k k     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)X"kmD `k ejk@Þ THh@P  0`&`Z! ! (` $ !f@ V0P1 L!"@ b @ b1j0Ɓ 0  ` @@aF4k@`  X"Y4`D] U@YވEE U@YE U@YE,FL)("$E [^Y/Y" Y"@( Y*V Y,V0 Y.V2 aY ZYEE _DY  ^VY @ K@ÞXZ `D]/Z Z@O jZ2M U@ZEE U@ZE U@ZEE UHZ jZ$FJ jZEE _DZ Y0Z @ K@Þ/XbZm V>[ [[ [[ ][Z VN[/Z@ÞXb[ mm \[ND"VE@ÞXB[b [[ [[m [[ VN[ U@[H [XE*/[Z@Þ X[ Ea E <[[`E/E X[/[X[2/pA`@ÞB Vb X\mVBCVV"BVVVV @ÞX\tm U@]p E($g U@]pE*c UH]pE(m /] U@]p D C!]ԃ PԠ]] ]z ]]z . % ]{]И ]{]] ]]z .  ]{] ]{]mE* UH]p@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? X]mm \^"D  \^FH V؁VȉVȭ @ÞXb^ZEEEE DE" FH [^D  ^^^^^^STOP AT TRAP #  TIME OUTILLEGAL OP CODEPRIVILEGED OP CODEADDR OUT OF RANGEHARD BREAKPOINT3INVALID KEY, USE EITHER COMMAND KEY OR CONTINUE KEYXB_Hm> ^^/^ ^@vH ^E* ^V ^V0 ^V2 a`J`FL!^#Ԇ PYԆ^EšE^ FL^m ^^/^ ^@4 i `D`DA   7*ACEnԠE  6|-_A_B_   ^V`P @ K@ÞX`j9bCV4 a a a E`E UU VV V2a/a a@j ha Va/a a@[ cb FLcDY ED RD@Q`E c&b`E c&b V0a/a a@, cb FL6a V Va  V`V UHb UHb UHbV`a@@Þ @ K FLXb-B VD `V V>c`UBCU`VtBtVFLXcEXc*maV-EFHc Eˆ #FL#D a D@Þ#  LJfC@چa&-L 0SOCBSOC MOVBMOV AB A CB C pSB `S PSZCB@SZC <DIV 8MPY 4STCR0LDCR,XOP (XOR $CZC  COC TB SBZ SBO JOP JH JL JNO JOC JNC JNE JGT JHE JEQ JLE JLT SPINJMP NOP STD "1LD "1@DD "1MD "1SD "1CID "1@AD "10TS %# CRC %"SNEB% IOF ) STR "2 LR "2 @DR "2 MR "2 SR "2 CIR "2 @AR "2 0XF * XV * INSF* XIT 3 ARJ +/ SRJ +. TSMB(- TCMB(- TMB (- NRM &, CED 1 CER 2 CDE 1 CRE 2 NEGD 1 NEGR 2 CDI 1 CRI 2 SRC  SLA  SRL SRA LDD BLDS B@ABS SETOSWPBBL @DECT DEC  INCT INC  @INV  NEG  CLR  X  \B  [RT  @B  BLWP EP -+LREX@  CKOF@ CKON@ RTWPp `RSET@P @IDLE@0SMF @ LMF @LIMI@LWPISTSTSTWPCI `ORI @ANDI AI LI MPYS"DIVS"@BIND"EX PSHS%POPS%MVSK%MVSR%BLSK!LCS a!LWP !LST !pLIM a`MOVS%0PSEQB%(@CS %(0STPC!/DINT`*.EINT`*-EMD `*, )+MOVA,)*AM &')SM &'(ANDM&''ORM &'&XORM&'%SWPM&'$DBC &'#BDC &'"SLSPl&!SLSL,& CNTO&%LTO &%RTO &%SLAM'$SRAM'$ Xhc&Ġ  3c  4áƅC 5#cC @ XcVV -m  D ġ$d i dR`V V V>dV V>dVV6T@Þi d(d,d8dd`V6iVP,)UROVBĠcB0Ġcć UD c @Ą c eiV `i `c` UD c 0`cVBąBć c`i UB bed bel betUB c VBĠcBć c eiVUB be be` beVBĠcBć c`i V6  ce`VE V>dC$U  cU cUUV E`V6iV cU$hU# UU   V eiVV `i V6  `VE V>dC`V6U cUUV iV VEC cf`i V6 c  cg `VE V>d 3U  cU cUUV `V6iV V`i  @  cUUV  cU V6 E cg`VE V>dECE D ġ`V6 4UiV U(V V  cU eiVV `i V iV | eiVv`V6 EiV`V6 i chBdE+ cU cUUV `V6iV+ cU cU eiVV ?E V6 E ch`VE V>dEC E DU cUUV `V6iVU cU eiVV CàE 4D$i*Tiii2i`VD  biF V>d VVV V>dVȃV4V V>d`EȃV4  bi`V V>d V  bi[PIF *)PHՂD  $B"(ՀfXA*+U@!2HT06ʄ XԪʀ VjLX0Yc- D?$cTddede e e e eeef(fdd VNd `d^ `fd^ VdV6H`d,V bd V>dV6V`d,`d,`VE" V>dC V>dC V>dC U@d cC`cE# bef ben bev-E-E-E`di0V be`VV V>dC V>dC"E VNdEÈ V6c VNdE VNd# bf bf  bf-E-E-E`di0`V VE`di0`VV V>dC -`d,i0  cfl`V" VNd`V VE`d`d,m E cf`d,m VfV.gV*V,V(OOFV# p Vd `  c&gH`d,`d`d,` d b  c&gv`d,FL`d,  cg`d,V bg`d,`d,`V V V>dV V>dV@V<V6 bgCEV V>dC VNd V< V>d VNd V>d VNd`d VNd`d`d,i0`VV V>dCE`d chX ch``d,`d,`d,V4C ch|`d,`d,`d,`d,`d,`d,`d,`d,`d,`d,`d,  `VV6 E V>d8V V>dC VNd DV6 sC-E`d`d, ci ci ci$ ci,`d,`VV4 c BE V>d VNd[Xi\U U Vwx `V V>i``@ c&iU`V@Þ',1h3B  ̒ՆɌ32JQ4@`QETd1YcCUXj ,*fͪ X`m ݠaTAb [aLm \aDB! ԃ PԠaTAb`aR`aU-@Þ +XaZmb\G xmbB U@b:bF U@b:bJ V>b:bN U@b:bR E(bV bB!9й ԃ P1Ԡb[bZ bV E*" b@ bF`bZ bR     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)Xbm1 q ( RABXb<C/! `@ÞXc EnE܃ ܠdmc h8c>CR B!En PFԠE"dcԃ PԠdāD"En"9dc d d `?  d d`d܉ܠdāDEn kc&F@Þ . ~A $.F<(9+'>)#Z0Xbd6 `e\ d D E# E,Eld f"`e~de`e~dVdd dd  ddfDkИd d ddflZd f"S,Kdd  @dd f";de3dg+ddgd  `dJh  P@Þ El@E,C@d d;d7El`Ԁ#  P+d I$m V>f ƒ!̳Ԍ Ps ܈[[ ElEj El[[ d ddd [[ Dd Ddd d d k"g bfd6d - k"g bfd 2(d EDU5d   k"g bfŁ  dD dD[[ k"gW S6Wam" U@g  V>g U@gƒ!, P Ԡd'[[Fvd 5dd`! T!c  # P Ԡd [[E,ElDaԇ[[Xh<-W- #%`ХPi  E!C` Baͱ<`i`i W(`imH/%& iH! @`i`H  W(`iA/% E!E!I@ÞI-@Xbi$mS DD iiP iViP@ÞXiZmEnԠE aVi|B ki|@ÞXi bj0m iVj0Aj6 kj0I U@j0$ cj0jq kj0IEnԠE `j0B kj0j C kj0I U@j0 D$ DD cj0@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXBjmEnԠE Q"m# dkI@Þ$09;AZXk& Fkkk`@AF @ÞXk S k  7m P  7@Þ @`0@ Ѧh"P`D DBP$B`RQ"A$!$ A !!!P $$ڛJ @@$ b f V6 `iKh1P00hXY& gY d$Y EnԠE Q" 42YYB h\YC \Yr \Y iY U@Y \Y gY hY @ÞALXY gY U@Yp gXY ^HY @ÞXZ gZN hZ(CDD d$ZN fZ@ hZF@ÞXZXm ݠZAb bZm bZB! ԃ PԠZAb`Z`Z-@Þ +XZm[G xm[ U@[[ U@[[ V>[[ U@[[ E([ [!9й ԃ P1Ԡ[[ [ E*" [ \2F`[ [     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)X\:m1 q ( RABX\h<C/! `@ÞX"\m b\ b\B \\@ÞXB\ b] b]m ]] VN] U@]H \E*/\@ÞXb]mm b]@D"VE@ÞX]NEnE܃ ܠ^Bm^2 c<]CR B!En PFԠE"d^2ԃ PԠ^BāD"En"9d^2 ^D ^E `?  ^F ^G`^C܉ܠ^BāDEn j4^,&F@Þ . ~X"^LmD i^f e^f@ÞA $.F<(9+'>)#Z0Xb^6 `_  ^pD E# E,El^s``_^x_`_^wV^{^t ^l^q ^{^t`kИ^n ^o^l^z`Z^s`S,K^w^s @^u^r`;^w_3^yah+^m^va^p `^b~  P@Þ El@E,C@^s^x;^w7El`Ԁ#  P+^x I$m V>`ƒ!̳Ԍ Ps ܈[[ ElEj El[[ ^{ ^t^l^q[[ D^~ D^|^o^o^| i6af \6`^~6^o- i6af \6a^| 2(^~ EDU5^o  i6af \6aDŁ  ^|D ^~D[[ i6aW S6Wam" U@a  V>a U@aƒ!, P Ԡ^w'[[Fv^p5^v^v`! T!c  # P Ԡ^w [[E,ElDaԇ[[ Xb/bXb2/pA`@ÞB Vb XbmVBCVV"BVVVV @ÞXc@-W- #%`ХPd"  E!C` Baͱ<`d `d! W(`d"mH/%& dH! @`d`H  W(`d"A/% E!E!I@ÞI-@Xd(m U@e$ E($g U@e$E*c UHe$E(m /e U@e$ D C!e_ԃ PԠee7 e. e4e. . % e/e5И e/e6ev e4e. .  e/e5 e/e6mE* UHe$@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? XbemS DD fe ee@ÞXemEnԠE ZfB j4f@ÞXf  \dfm efAf j4fI U@f$ ]Jff j4fIEnԠE ZTfB j4fg* C j4fI U@f D$ DD ]Jf@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXg\m U@gddd@ UHg/@ÞXBgg Pg B  m DD fg@ÞX"gEnԠE Q"/#   P&EцFƘD  U@hJC# P Dp @ÞAX"h`m# ^hj~EjD@ÞXBhmEnԠE Q"m# ^hI@ÞX"hmE( gXi* U@i* E* UHi*@Þ$09;AZXi: Fi0i3i0`@AF @ÞX"im U@ip  U@iC@ÞXi9Y-`Z ! iԃ P`ZԠ[WiԠ[ Q<  `DAGG[ DViij> 1_F 3 evZ H i j>%`[  h&Z  VNZC! iԃ PԠ[`DA  `Y`[  gNZ`[  hb[@Þ><X[m ݠ[Ab b|[m b[B! ԃ PԠ[Ab`[`[-@Þ +X[m\G xm\ U@\~\ U@\~\ V>\~\ U@\~\ E(\ \!9й ԃ P1Ԡ\\ \ E*" \ \F`\ \     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)X\m1 q ( RABX]&<C/! `@ÞX]PEnE܃ ܠ^Dm^4 c ]CR B!En PFԠE"d^4ԃ PԠ^DāD"En"9d^4 ^F ^G `?  ^H ^I`^E܉ܠ^DāDEn i^.&F@Þ . ~A $.F<(9+'>)#Z0Xb^b6 `_ ^ND E# E,El^Q`f`_˜^V_`_˜^UV^Y^R ^J^O ^Y^R`kИ^L ^M^J^X`Z^Q`fS,K^U^Q @^S^P`f;^U_3^WaF+^K^Ta^N `^b\  P@Þ El@E,C@^Q^V;^U7El`Ԁ#  P+^V I$m V>`dƒ!̳Ԍ Ps ܈[[ ElEj El[[ ^Y ^R^J^O[[ D^\ D^Z^M^M^Z haD \`^\6^M- haD \`^Z 2(^\ EDU5^M  haD \a"Ł  ^ZD ^\D[[ haW S6Wam" U@a  V>a U@aƒ!, P Ԡ^U'[[Fv^N5^T^T`! T!c  # P Ԡ^U [[E,ElDaԇ[[Xb2/pA`@ÞB Vb XbmVBCVV"BVVVV @ÞXc-W- #%`ХPc  E!C` Baͱ<`c`c W(`cmH/%& cH! @`c`H  W(`cA/% E!E!I@ÞI-@Xcm U@d E($g U@dE*c UHdE(m /er U@d D C!e/ԃ PԠepe d ed . % deИ deeF ed .  de demE* UHd@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? X"ezit@ÞXemEnԠE [eB ie@ÞXe ]"fpm efpAfv ifpI U@fp$ ]Lfpf ifpIEnԠE [fpB ifpf C ifpI U@fp D$ DD ]Lfp@Þ: W O R K S P A C E R E G I S T E R S2 B R E A K P O I N T S- M E M O R YXgm U@gHddd@ UHgH/@ÞXBgRg Pg B  m DD eg@ÞX"gEnԠE Q"6h$ #   P(Eц!FƘD  U@hC# P Dp @ÞASX"h*m# ^^hTi^EitD@ÞX"hfmE( gh U@h E* UHh@Þ$09;AZXh Fhhh`@AF @ÞXi S iZ  7m P  7@Þ VALUE EXCEEDS 16 BITSINVALID EXPRESSIONILLEGAL KEY INPUT iiiiiiiiii iijj jjj"j)j0j7EnEnEnEnEnEnEnEnEnEnb2DJJ`A` V@`0@ Ѧh"P`D DBP$B`RQ"A$!$ A !!!P $$ڛJ @@ $ ``Ve01X`2aS ,QK00   0hXY& dRYH dYH YNY: fZY@@ÞXBYRm K!I ZYY ^BYI ZJY ^BYY ^BYI [rY K@Þ3 B R E A K P O I N T S@ NAME WP PC --------------PARAMETERS---------------XZ"mEnԠE fZDB ^BZD@ÞXbZN­  FNFPw nJ"h> cj[\4En cj[\ [hEnD K[)  C!![b [jEnW%En"ԃ P9Ԡ[p![d [lEn`h>En"ԃ P&Ԡ[p![f [nEnEn K)< K  K@Þ E R B Xb[vm \\ ]>\CEn E B!En"ԃ PkԠ\" m ]>\„" V>\C V>\h> cj\Enܴ" V>\"a ]\En`E ^B\ŠGm V>\#" V>\C V>\ ^B\`[@ÞA X\m  U@]8"h> cj]8h> V>](", cj]8!$$d V>]. G"$@ÞX]Bm U@] U@]"h> cj]$ 4`" V>]CB V>]ځCGHD!@ÞX]mh> cj^<En! ԅt PԆ"@ÞX^Fm K K@ÞX^l K dR^ ZJ^ K@ÞX^ dR`D d`Dhn`hԁ Chn Q"``EnԠE Q"``# P``ԠE Q"yR C Po B`E Q"dQ K]L \`L a`<`LhnՖ`cv! `~ԃ P2Ԡ`J`N ^B`L" V>`BIC  `` ^B` V>` #" V>` ^B` fZ`@`L K  ``L#@Þ 5LIST STACK FRAME OF . FRAME BEGINS AT .X"`­mma cja3 F.Baaa KH KD aaa` bat)` bat&@ !aȋHaԃ PԠaaHa K K@Þ SAME!END OF MEMORY ENCOUNTERED AT XXXXNO TASK MEMORY FOUND AT XXXX X"am b ]>b7b ]>b" V>bC V>bhnhnh> cjb  hnh>9  x  bG@ÞXBbm  !cdԃ PSB KM-t!cdԃ P:B K4&9-`ccc^ c_ `? c`cacbCcd K " K@Þ .Xcn-W- #%`ХPdP  E!C` Baͱ<`dN`dO W(`dPmH/%& dLH! @`dL`H  W(`dPA/% E!E!I@ÞI-@X"dVEnԠE Q"/#   P&EцFƘD  U@dC# P Dp @ÞAXdm U@e E($g U@eE*c UHeE(m /fV U@e D C!fԃ PԠfTe e ee . % eeИ eef* ee .  ee eemE* UHe@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? X"f^mE( hf U@f E* UHf@ÞXfmgG xmg U@gg U@gg V>gg U@gg E(g g!9й ԃ P1Ԡgg g E*" g gF`g g     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)Xhm U@h8ddd@ UHh8/@Þ 6k3Y CaE5@0 1`h `0 @AA@"D E` @ `" LB(H I1@B!$   IA @C @!Uhf 0@ME!AXY& gYV hZYV Y\YHD aYH iYN@ÞX"Y` ZY~ YY~m ZRY~@ÞXBYEnԠE Q"2-Z#Z Z Z Z  #  PGD@ÞERB0>XBZk`lE  Q"Rk@ÞXBZVm- [ [S FNFP F [[ŅC 5 E" [HH" [" _[" [ " V>[ _[" [ B V>[ _[#@ÞXb[$m \[‚'"[ f[[ƈ&[[BB V>[B V>["B" f["@ÞXb[m Q 5i/GCX\  \X\ \mkk5\B/"E&E$Bƒ k \ "\  E&E$k  E&kbJ\J@Þ f\¡á-`ġġá[[X]  g^6 Z^6 hZ^6FNFPkň5^B^C B' `^U Y^C B^B V>^k f^kŝtKG" ^< M^<"G `]" ^> M^>" V>^G `]" ^@^A(}^AB V>^ `]B`D a^@ i^ @ÞALX^H g^ Y\^ _ ^ U@^ ^^ `^ k^ _D^@ÞX"^m- FNFP C#U`_G" V>_U`_  Ee`_ U@ÞX"_m U@_>p  U@_>C@ÞX"_HmD _h_b a_b@ÞX_l9`  ``  a`  a ` _ VN` /_@ÞXB` ``Z a`Zm `d`Z VN`Z U@`ZH `E*/`@ÞXb`hmm ap`D"VE@ÞX"`m `` ap`B ``@ÞX`2/pA`@ÞB Vb  Xa/`Xamm apa2"D  apa`H V؁VȉVȭ @ÞXatmVBCVV"BVVVV @ÞXBam K!I bb&b, fb&I bb& fb&b` fb&I cb& K@Þ3 B R E A K P O I N T S@ NAME WP PC --------------PARAMETERS---------------XbmEnԠE j*bB fb@ÞXbb­  FNFPw nJ"k fc4En fc cEnD K[)  C!!c cEnW%En"ԃ P9Ԡc!c cEn`kEn"ԃ P&Ԡc!c cEnEn K)< K  K@Þ E R B Xbcm e(e  ee CEn E B!En"ԃ PkԠe'" m ee „" V>e C V>e k fe Enܴ" V>e "a fde En`E fe ŠGm V>e #" V>e C V>e  fe `d@ÞA Xe,m  U@e"k fek V>e", fe!$$d V>e G"$@ÞXem U@f^ U@f^"k ff^$ 4`" V>f^CB V>f^CGHD!@ÞXfhmk ffEn! ԅt PԆ"@ÞXfm K K@ÞXf-W- #%`ХPg  E!C` Baͱ<`g`g W(`gmH/%& gH! @`g`H  W(`gA/% E!E!I@ÞI-@X"gEnԠE Q"/#   P&EцFƘD  U@hHC# P Dp @ÞAXh^m U@iZ E($g U@iZE*c UHiZE(m /i U@iZ D C!iԃ PԠiim id ijid . % ieikИ ieili ijid .  ieik ieilmE* UHiZ@ÞYES YN>UNABLE TO SUSPEND TASK. CURRENT STATE = XX. CONTINUE COMMAND ?)DO YOU WISH TO LEAVE SUSPENSION PENDING ? X"imE( kj$ U@j$ E* UHj$@ÞXj.mk0G xmk U@kk U@kk V>kk" U@kk& E(k* k!9й ԃ P1Ԡk/k. k* E*" k kF`k. k&     @Þ)5? =ORUN ID=XX STATE=XX WP=XXXX PC=XXXX =XXXX ST=XXXX LAECOPXSM(BP)Xkm U@kddd@ UHk/@Þ ʹl0b @B@ €` f4 AQD $2bA1Fml( 0 bl 006 60`1 " @da#@MB) 1"D# h00&`0D$ j ! Ѡ̴3`F Ѧh"P` TWTXT1DD1[\\|\gg6hJhxhgih\\i|\j]>i$]^] U`NXDHcXNU P`XzTTUYXd[.^![VU!Ta!@YX ThTA`Ty q.;W&8XYXe`U Um/Uj Um/UjUTTaVX)X$ XX YY7YY YiYaVCANNOT OBTAIN TCACANNOT INITIALIZE OUTPUT FILEUNDEFINED VERB CODE IN PROC#INVALID VERB CODE PARAMETER IN PROC"UNDEFINED OPERATION IN VERB ACTION!CANNOT OBTAIN STATION INFORMATION *** ERROR ***-UNEXPECTED ERROR OR ERROR IN ERROR PROCESSINGSYS: END ACTION TAKEN΋U/U Up Y`e|΋e^X`tY*ʤ`e:            @     !@    ZeYeYeYf Yf Yf5 YfU Yfr YfYfZfZfZfZeYf[fZdfZdfHZdeZe[gYg Yg2#Yg>$YgU%Ye&Yg''Yf(Yf)Yf*Yf-[f.Yg]΋y ^^$`^΋^Xy y^X`t\2`^L^^ `^΋y y^X`t^P `e|΋^X\T^C^^ `^΋^X\T^CC^^ `^΋T/' `^`^΋TT`^΋^Xy IcT^n_]]8cT^nBd^n `^8DcT^ny Ad^n`^>> ΋^Xy^X`t^Ly _^8΂΃*JĠ]< P`XԠ]: Sn`X`^΋^Xy^X`t]y A`^`^΋^X\T^C [`^΋^X\T^C[`^*T TT ^6`e|* TT ^J`e|* TT T  ^l`e|* TT ^`e|*T[[ ^`e|*`e|*`e|@΋ŀ`e|΋TTT`e|΋eT& f u`T %4 (&   EG G@C BCѴ 0` t F `e*΋eT& ! 0Ц rT241.  sT&   Ц rTE@ J%CB`e:΋e e e Le`eZ΋e΁΂ ea4v  Q"TOv ( FD QV=D QV5    P"܀̳ē( Y N    *`e: e L e e Kb K/*(Cbba Pѕ &NNaѵ aܠbܠbܵaBBb e e K ERROR IN OUTPUT TERMINATION΋ee B Kee`eJ΋e e ee  e K e`eR΋e e e e`eb΋e e ee A eJ ΀cTdJ Je`eJ΋e΁΂J!*  Ԁ  PBcTdf*`eR΋e΁΂J!*  Ā  PBcTd*`eR΋e eA Kcd`e cdcd`ebΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k@ЄAQRDH*L@mmmm` 0 li)0a0h0 "l P0P$H *$@E@@D@% $ RA  0PX  3   TASK STATE = +     RUNTIME TASK ID = % ! $ ' K NQ *-0?*B-E  TASK NAME =  TASK ID = & !$' *- 6 PROCEDURE NAME =  PROCEDURE ID = '$ 3< OVERLAY NAME = OVERLAY ID = (  )  *     8  ! 4   UNLOAD DISC ΋^Xy y^X`tgf^^ `^`^L΋Uѹ y _^< `e|΋y^X`tg$F^^$`e|`^P^X`t^P `G%t D`e|`^$΋/U'   F^^$`e|`^΋^X@gv^ghf`^h$^`^΋^Xgv^gh`^h$^`^΋^Xgv^gh`^h$^`^΋^Xy y^X`th$`^L^X`t^LME Up^^ `^iZT* Tizi{`e|!ILLEGAL TERMINAL SPECIFICATION: ΋^Xy y^X`ti$(!`^L^X`t^LUfUP/ UhU`' Uԃ ^^ `^`^΋^X@gv^9 ΀gj,J`^JZ_^8 h$^`^ @H lS  L6fjPl!`BE c?   ASSIGNED LUNO = BE c?   ASSIGNED LUNO = Ec? c c   ' EOF ON BACKSPACE c$`ioWTQ Z c$`ioWQZ c$`ioWT * Z c`l?* c-03io W ? cioW? c c c   ' EOF ON FOREWARD SPACE  B  B    Ec? c c    ERROR IN WRITE EOF ΋y yU^X`tg^^$`^`^P΋^Xy T^^ y'H^X`th$^X`t^L$^X`t^L$C^X`t^L$C #^X`t^L$CC 'U ThT`e| TOO MANY KEYS`^LTaهɈy^X`t^Lɴɔ`^΋y _^<URԃ`^΋y _^<ÞCT Ty A`^-X6  ΋@ qaeQeffgh8@pA !eT`e|eee PARAMETER TOO LONG FOR SVC FIELDSYS: NO BUFFER FOR STRINGNUMERIC PARAMETER OUT OF RANGE@pA !f*T`e|f2fVfv#SYS: BUFFER TOO SHORT FOR SVC FIELDSYS: NO BUFFER FOR STRING FIELD&SYS: STRING WAS PLACED WHEN NOT WANTED@pA !fT`e|fffgg>gZgtPARAMETER SHOULD NOT BE A LISTPARAMETER DOES NOT EXIST"SYS: PARAMETER TOO LONG FOR BUFFER SYS: INPUT INITIALIZE NOT CALLEDINTEGER PARAMETER EXPECTEDYESNO PARAMETER EXPECTED#CHARACTER (NAME) PARAMETER EXPECTED@pA !gT`e|ggghSYS: BUFFER OVERFLOW!SYS: OUTPUT INITIALIZE NOT CALLED)SYS: NUMBER TOO LARGE FOR FIELD ON OUTPUT%SYS: SPECIFIED FIELD LENGTH TOO LARGE@pA !hFT`e|hJ SVC ERROR (SVC CODE, ERROR CODE)o6TT bbb L Fx S7 D F0SVT PV#`VW2HԲ Q"VHR F c. bFxa CW`FA F `F`S^N```FA F!Fz" FF SaaրԈA S F@ F!ԃAAF 6|VژW, FZBW`SR IOIF`SaV`SW( W+W)W*aRW& aW.aFW(ZBV`UTVB`b S "WV W&"VV`b K@ ^N^d^x^_N[Z[]]\t]:]\[<[B\\*V[<[B```f`l`r‹W>WZFFFFzS`D F DWW KCHANGE TO VDT MODE TO EDIT.F[HHHJ JG`W0JJJ[YF`F FFG F  F‰P FJF Fz)ZZ UY@XXX`Sʘ FZ`S`F `Y  Y`Y YXZZ`bJ Fz J !JJ PC S 7V FY<ܱܱܱܱL ܄XXX ܁܁܁܁ FX*EOFFĐ F FY KAFv`YF`b +CARRIAGE CONTROL FOUND AND WILL BE REMOVED. .........1.........2.........3.........4.........5.........6.........7.........8 Fz b`b`S Z>  7V`b F F4ZFPB S' F[: F[:`F`F !Q#Q`B`F  SF  b`bFZQܱ`bFZQr`bJF bW`bF F‚F#FFz  bZ b`S FW`bSF ‚FFz  bZ b`SŠW`bF`Fd\l\lF`S `F`a^^F(BW`S`F^6`bO`S\FP DF   b$W`bZ`W.W."P D  F@ b\ KOUTPUT FILE IS FULL. bŠEWZ`b`SF   bW`b`SFz  bZ F"F`b S2 F) FZB F[Z-`FFF  ]F   b\n\t  F^^6^[Z`b\`b Z baR`bZP C`bF`F_`bF`F_`bF`F5 F_L Fz b(_F _LJJ F*#`vFԃ  7V`bF`F%F QB F_L_`_LFK`ԃ  7V`b`FF`F F!K BBB`bP"TAB NOT FOUND BEFORE RIGHT MARGIN. _vFC OSF# I`F…5_v _v_xZB_z KC= `^ѤF%`V`T!`T A#FC`b@ ` ``a.`~  7V`b aF_ZZFԃa`b FFz b aF_F aF_ZF ZF`a֡a֢`a6xa`bFP ܄ aF_FF`Fa Fz bFZPD S  b`b F PbH Fa`bF  EZa֨a`b @ FGԲ Q"RCa  P`aF FF S D FFPbl KINVALID TAB STOP.F 5faF`bbb bb  b[bObbb[bcm !c\c,c,c,c,d^ddee.eff\bc4J3 ^3d\cVh+ACCESS NAME IS NOT A FILE. EDITOR HAS QUIT.G hb h Hd dH( h Fxc K'INPUT FILE IS TOO BIG. EDITOR HAS QUIT.HJJJ JJHB hHH hHHB h HG h  K.`HG hHJ&K*`g hJ&gFHJK*`g hJ&% J&gF%JJ&% J-J&gFJ&gF@-J&g@HW -9 g%J&%;J8J"@g P g/$G%gF %gFHB h@8g#J&g JJgH hHB h8g#J&gH hgF@݈ JfZ J fXm9`g&J&a gf  & fC ɤfB  HfN hJJfDd`fC f`fB  fC ɇfB GJJB`gHB hH h h hgJ @J&! !J$ K*c `gDJH h#g[K*Da`gc `gH h#g[  '  h(hh(iNh(i2h(iPh(iRh(ifh(jh(jh(i` TEMP. XXXXXX FILE I/0 ERROR NO. XXXX. /hHhJhohkGkHhNhUhhT FxB L K3[mGm`g/!HghtРgmB/!HhtHHB@m`g/!РgРgJРgmGi@*Hjd`gk`gCBaa /ѡ   !0htFaJ8 g/'ht'H hthJ! g/'ht'H a g /'htJJ[‹JJCJ`gjZj^kJ[m`gHhBHkCaa /!htm`gHD EE /!ht`g/!HC `g/!0ht`g/!B   sB h kkkGkݴhINPUT OUTPUT%XXXXXX FILE IS NOT REL REC OR SEQUEN.XXXXXX FILE IS WRITE PROTECTED. ǘ`gB= k J* JJ`ga `J/!`htJ`gD/! !`ht9`kHC J3[$*!DU(@P($HDJҐR D HDT ""D$UD@)$ IB UEPA @ REAEQ$ JHT( @JRT@JTH*B!!R@2I   @D$J"AIP@2  PJA!@!I$ 0PH`_P( )A*RJPUE @@@HAQA(""f TAB! B @( $ @@! ! P @J RH ETU:'COMMAND ALLOWED ONLY WHILE TEXT EDITINGBAD CODE ON .OVLY ERR ON S$STAT ERR ON S$GTCA Fx# L$T P(ҠT zªUhZU~UVVVZrZZ[$\Yp KT KU, KU  KU K! KBEGԠG Q"`U U fFU f b6` Kec`MINUS RELATIVE LINE NOT ALLOWEDNOT ENOUGH MEMORY%END LINE NO. LESS THAN START LINE NO.OUTPUT FILE IS FULL.,ABSOLUTELY REFERENCED LINE HAS BEEN DELETED.F J V< JV>V V"J&!V$V$`F V, b6V2V*`  b6V0V(` b6V.V&V$V,` VVFVx K V&V( V&V( V.V0 Fz VDV<V> VVBVV T V"V5/V4 V5VfV DH )F   fH/V8[. V"  VYESNO΋j] @Tk`. T ))aD`TT _T@q4_ƸT]Բ] @ a`dQ`l```TԲ P`Ԡ__ԃ_T_T _T_  Q<`j΋j a`Q```a_  Pa  Q<a`j΋j"_A_ A_`j΋ _CB]Բ_ Q<aiA T`k΋jJi_b(TBib( Kb(b( Kb(FE`] ]^nb `] ]^Db @H KA`j΋j]@ Kb|Б ]@ Kb| Kb|`j΋`k΋`k ILLEGAL VALUEVERIFICATION ERRORVALUE TOO LARGE΋j))hC(DhE 1c)iT 3CbBbcAT] @]T`c] @]T`cTTdctbb bTT`j΋je|q Q"drTԲT QVdC]Բ QVdTԲ Q<d@] @]T`d#] @T TT`d]`dT SbT]"T`dTdd bbT`j΋j T)) S7]e6] @k$e6]] Q<eF= b$Y $Y$bT`j1MODULE DOES NOT EXIST ERROR MAPPING NAME/ID TO ID/NAMEINTERNAL ERRORINVALID FILE TYPEID OUT OF RANGE ] be Ph8@ T T Lh8eJ Q"h8`h8e|Բ Q"h8#   Ph8Te|Բ Q"h8eJih8 fizh8 fhh8Z!Qff !Zf!Zf!Zf fe|  PgNe`h~`f FFTj2hZYjZh8fYHe|TihZhY 0e}k$h>`f `Y AРf B `f hh8`Y T (Thhh8ѠY FF&\fYHT`] fTahFfYͷHfYͷHih8! !@ @e@T@Xe Yee`fi`fi L KD 1΋j"Y"hh hh"h"hilhiȁ" h`j΋j!Y!!!hh!h!h hhilhid h`j;΋/p`k΋ hh hhilhi h`k΋ hhilhi h`k΋ hhhilhi h`k΋ hhilhi h`k΋j ch hh hhhhh2prilh`j΋j c!hh hhilh`j΋j f fРf B ` 2"aD  hjq$[f`jΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k΋jYv& f u`Y %4 (&   EG G@C BCѴ 0` t F `j΋jYv& ! 0Ц rY241.  sY&   Ц rYE@ J%CB`j ~~ ! B @@HHI (B!RV^$RJA$B "@RP @!TH-j!@ "JADH)di@Z("Є*DQ%kFf`@M@VhFI@P$ HI% p(% ۔ܦMBTHKd@I UTWH2r\2U2U2U b>Þb    cD d UE9`W CaD aB a0a (U UUcUUW^p Q? W-0ԍL L+W Q""RB K Wz   K K  K KU KERROR ACCESSING TLF FILESHOW MEMORY STATUSTOTAL MEMORY SIZE = K DX10 OS SIZE = . K0USER AREA = . KSYSTEM TABLE AREA = WORDSCURRENT USAGE = WORDS0LARGEST AREA USED = WORDS SCI INFORMATIONFOREGROUND LIMIT = TERMINALS0CURRENTLY ACTIVE = TERMINALS"BACKGROUND ACTIVE LIMIT = TASKS0ACTIVE/WAITING = / TASKSUUUUUUVUV/UV1UVEUVGUVeUVUVUVUVUW UW=UW@UUVV4VJVlVVVVWW( -I@@ A@""P-./H3   :2 N@  +53 $:Pf|`.(K[M+[M{[0`c  F ơ&    (` P  0 0 0 0 0 0 0 0 0 0 0 0` `F  B! (I`@-P *=- )= BD($(  ($ @;<;; PH J@/: ; ; K/L[\ 888N8# USER DEVICE STATUS FILE NAME ACTIVEWAITING PX< R vy  H r2  z, v,ն Fd XG)8 xG)8 x 4 n2 \ n2b`mA) `~ zDA)  z !  zA) z v l+ E`0m`i/!`f/! l 2`j/ @>À`l0m ر`l 2CDD C`h/! @>À`l l`g/`j/! @>À`0 ̃A[~  MQ   :JD 8 v/ 6 Gv[J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[tjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[>K-+09A/*m `ѱ * @m  @"  *@* **@  * EF HIm  4)  +М+ 88GB  b@B@ABE F ABI@ |12 |1`a2 ? ?mCD[-mqp00A j 'J)#ȂG((09(H E`  #` m@  @ p@ bA@AImqmj(FEmGHmrj899@DDE    ba [[BCEEF[AI1܀ ܱ@[+  IEYN !>,(OQ)F  `HJ `t`  ` ` J`` `4ht `R `(`0``< D`4l D`x D`  0 )@$%( (  $$%jJI( RJ   PRE HHd)m * $(UE,6m@0lIH@!0 @  HJJ P,@@@@ q.u]@7]` uf8:&K[M+[M{[1+ 0# >< /HȚHfV0 /ةȠ "  ) p `@``J` i` :&^p@`@``Jؠ  >)  /`@`  :J`@`  : 0!@ Xa!   `5 ) a  BȅȆ ؠ  >,  8`  : 0!@  )   /`@```J OY   ŘP #O  EL,uELZX[ ]\ȘY F`` `@`!d/b/ؠ  > `@`J)  //+`@ `J6HL )HI)00d$D%@$K%S@DP NAME : REL33 DESCRIPTION : DX10 OPERATING SYS 3.3 OBJ DSK-990PP PP PART # : 0939151-1601 DATE CREATED : 12/19/79 PP PPRELEASE : 3.3 MFG REVISION : *N PP PP(C) COPYRIGHT 1979 - TEXAS INSTRUMENTS INCORPORATED PP PP********************************************************************************PP Px !9ITXLINK LINKER SDSMAC NFDOx$zDg%Di&.+Di' ;Dg("GD>x),iD1*nD1+ CD<ND`Zr \~IjB~`o %npp\`p ~~ v ~_, n%$ >x`a``x4@Z   %`% `% `$!6 P pF` ~"y`B\4`z42B$ `\$ \ \6"y`B z`d4`%!#~`//`|4`5  `b/ `  /lN UNABLE TO LOAD OVERLAY,CODE=P<PP`@  @  #!"$(@  @  @A 0P. 0* @ \'d  C ##0`B` ``> > (0> (0> (0)0`B5``0%p%p%`% !K`````% `%`% ` `` `% `%)%& `$ n!%4 zȮȠ| `` %4 bx C CP```@ `&$`&$ L  & d`,CCc.r `Š`#7`!ňE`` nn `CF!FGFGFFGF` `˂$ L` !ȁȣ!$ 33A.&&n!aB!a ` &$ L˂" L ` ˢ" L $ @˂ ‹   ˌ$ L" L Q `$  "Į˂ CC`!C S  ⠮\ ``B ! `(a     n ˃˄ "`&,aCCc˓. ``**  ˂ $ L   F&*˅nn `,*r 8!$Є`0 `.`2 8 ` В  Ѓ  p  8 B .  n 8BC 8  U n CB!I E<`.`0`2`0`2`.H`, `.`2`0H`,!8 % n B` n  r  n  !! 8C!Y A" 9`  9   9`  9  ` `y %:e> /  `  !"#$%&'(A(=v=v'Ц=v'=v'&` $.0123456789;ABCDEFGHIJKLMNOPQRSTUVWXYZ $ $A  7 #`#   ˂  CDDDCt$ $ >  `$<$ 9D``a+`** B*˂ $ L a!E]``8}UDDD*` ` ԁn 4`\.`n ~˂ `` n `[` &V   ` ml>\ L m ~LɍɭɊFɭ` ɭF^ÁL@K[M+[M;\[| |z |z$ T`~&(v"E`C  x  X.` `F` `.W0`h|$ T R rC `H   [y P pF` ~`$ T/C``\$ T R rC` .$  pC^^>H``@   `A iYV@ .ˁ.Fn "``R "``R "`h "``Hnn n .``/" "`ؠ/`n`"`"`""`` @\`  ؀/"ؠ/"$ R \@\  ``  ؀/" " " /ؠ/ "` ` SATURSUNMONTUESWEDNESTHURSFRI *:: DAY, , 19. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECmd%x`/ %x,,,\K)K 8 (Ƞ<#c (z )zݸHݷݷݷݷݷ\  %%h `%%: )ݹݹݹݷݷݷݷ\>   `: v> x (00݈݈ݷ[P  j,`-`j /`/' ` `/`/`/,*ʇ,j,'-J!**** xaʁ,G`j,`.*#2CDD C``/С B $2D. j,`<.`-m (1 1   2 D   2⊂ʂ`j."2 ܃[ E`B`/! 0C`E/! !   ʂʁ,[&"`/`/ @J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[@B@̄C`V``m* "ròAC** ā*/ 0$.( :61  `p܀4 ܴ1 `CܱC@<ljY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[*p *xJ!ʁp*v jd I`@*v*pʪhj @ @ڻb*zʐnʪpf/`*a ; K/r[\jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* H ` H `r H ` H `N$\$^ H  `~ z ~$ H ``  `$"  `X$N h$ H 8 @` z  ~  H l t`T $`:`<$v  `P H  ` H  ``:`SYSTEMp `$X$B$j H$F $N`($` .S$FTLF00$ -ZKT0Z֭$J$2kYJ5k,a(5PjJ@JR$)TJK DԐI +iiDijڀF X Z`k cLld h@ `,[ ! ,0@&6* T1 6ck,k,D R(T@  @ c" k @@1(P A+BH ) %D/a JJH%0a EP @UA" @ "!0  U @@]uR5 J뮠j $DATA @@ +*@  @%% SDSMAC 3.3.0 79.312 ACCESS NAMES TABLE PAGE 0000 LINE KEY NAME &&`*0J0J8`ˆ°(Pxà c d e f gh@0W@Y@Y@@Z@ m @m @@@m@ <@@@.@ 8@@`X@p]@@@@a@a̵@@l@,l@,@@@@@@@@@@ @@=@0@ @@d@fX@gp@hp@ j(@$gv@gܨ@Ap@@@@`@0t@@8@4И@@ʉ@*@@@@]@ͽ]@[ɉ@@h@@@@`@p@p]@(@@(]@P@(@@ @ @ @ ,c@ @@g@ \X@ @@ X@ o@ @@ G@ g@Z(@@ʨ@(@l@@@9@h@ f@ @ j@@ h@ f@ f@ f@ @ Ƣ@,L@@H@@ќ@@@ I@0ģ@@m#@P[}@`?}@pn}@b@`@lW@5@@p$@@uR@v @cp@t@h}@ @0mT@@@@@Pd@`=@p@@@p@v@j@@i}@oR}@R}@fj@@Pm+j@@`+j@@p@q@\x@ \t@0\t@@@@ ^h@ @}@ P@0 |Ҡ@@ 5@PΠ(@` @p )@ +m@ +j@@ *@ *vv a Ɯ@ m8 ^d [@ ( p ޫh Ҡ *118`ˆ°(Pxà c d e f gh@0W@Y@Y@@Z@ m @m @@@m@ <@@@.@ 8@@`X@p]@@@@a@a̵@@.@m@aKj@@@vH@@@@@@@@@@ @@=@0@ @@d@fX@gp@hp@ j(@$gv@gܨ@Ap@@@@`m@@/t @@.t@-h@ f@ @ j@@ h@ f@ f@ f@ @ @0t@@8@4И@@ʉ@*@@@[ɉ@@aȖ@@]@ͽ]@h@@@@`@p@p]@(@@(]@P@(@@ @ @ @ ,c@ @@g@ \X@ @@ X@ o@ @@ G@ g@Z(@@ʨ@(@l@@@9@[@ *@ )[ɢ@ (@ '뿢@ &ͽ@ %@ l@ $`x@ #hY@ @ @ i@ @h@  @ `@ ]@ PJ]@ @@ 0U@ @ @ @ 梀@ Z]@ ]@ _@ 8@ 0@ v@ @\o@ @ @a@@pEd@0L@@H@@@W@+@@!@@"u@ќ@@@ I@0ģ@@m#@P[}@`?}@pn}@b@`@lW@5@@p$@@uR@v @cp@t@h}@ @0mT@@@@@Pd@`=@p@@@p@v@j@@i}@oR}@R}@fj@@Pm+j@@`+j@@p@q@\x@ \t@0\t@@g@@@@ ^h@ @}@ P@0 |Ҡ@@ 5@PΠ(@` @p )@ +m@ +j@@ *@ *vv a Ɯ@ m8 ^d [@ ( p ޫh Ҡ  SOURCE ACCESS NAME= OBJECT ACCESS NAME= LISTING ACCESS NAME= ERROR ACCESS NAME= OPTIONS= MACRO LIBRARY PATHNAME= `%!# `21ԁ BԒ03' #0 1ܰ2\# Z/Z# ˂ԁ ԒB  `  б2 1ԁ BԒ`04#p 2ܰԁ Ԓ\p r `A3$ 21ԁ Ԓrrr 3tܠܠ2B1B Q 05` #0 24ܰ2\122j23 3Z L& L L <``6N ` ԁ ԒC 8ԁ ԒvC 8ԁ  ԒzC 8 \` SDSMAC (C)COPYRIGHT TEXAS INSTRUMENTS INCORPORATED, 1977>K-+09A/*m `7>ѱ * 77@m  @"  *@* **@  7 * 7EF HIm  477)77 7 +М+ 88GB 7 b@B@ABE F ABI@$"8 8`7"9f;R;^88$v8 8`7v H8 8`7 |129: |1`a29: ? ?mCD[ H9Z`8 H9b`9`9:-mqp00A : 'J)#ȂG:(09(H E`9j  #` m@  @ p@ bA@AI:mqm::FEmGHmr:899@DDE    ba [[BCEEF[A; I1܀ ܱ@[ H;& ;.`9l9f H;V ;.`: H;b ;.`:NF0 @4   @BQȐ 5kZխ4Q@@F@$B$k@u@ ` u `7 `4 `1 ` `$!`$)!`d&$# `$!`$ !`d $ 1 a $  `@``@@P?4223`29d423V22293v9`2l9d4223`272<:383.29<:2222;383.2;:232222;*<2;:232222Ѡ ^>\7`7N`7:! 2R! 2F2j2k r7 L7 L7 L7 2V\^`7N 0 4 2T\`  2f`7N 2D\ 7 7C\n˃ +>\^ 5`7NnA2cБ ! 7CC# ˃66nR  ^ 62`7N#6<T  6 N B 6NA! a6^Q6f666f  ^e'^a'^] ^VCA 2H2J\^@ 2R\^:q ˂$>\"^ 2D\# `2d $ 7A`2D\"^A^2F2L\\c 2R>(7H` 7 \`;M`M`M` K 7$ 7 7˂ 7 7˂ 7˂ 7. \% 2^= ! 2N >\`9:^`^`\!`2T `  z2gn^\ 7 H 2T\ 2D\ \`; ^n M e8|  %357942`/82b2b\ 7 2D\ \DA ^K 7$` L7^ L7\ L7 7& K $ 9 2P  7 7I\7n>\ 7M[K ^R\!2N:: \P `TK  `H 2V\  `H 2V\    2fc\!2N !2T  !2X !2Z!2\ K % M!2\ !2V \[K 7$ 7 ˃ 7˃  7@ˠ2RK \ 7DK$ Z%4 "%4ā`$RH*UJZZZZQI Fթ EH%4Tс- ~ J,) PL $0P EHmPBjZ4Ѱa0jV))IJH0F d4R60hbҁ X!kUII"RX H$$ $G L``&B˄6  $`$ 0 ˂ bv`p   gDˁHEnn `b& `Ƞ" &?"$ ?bB^^>`?\ ?x`\(`\( ` `@  @ @ n>(B F = ~>(  %.ˠA4ˠA0e g   ˂ bp ` %vV%PCF[ˠˠA09ˁ˂C   .n *7  % % = ˂ Z%ˠA0˂ `%>\ˠA0%v% %%%ˠA2 BU `؈&V|OA Y`B`C nIj˂BA6˄ -˃˂#BD%vA%v bv  `vC Cg  %v `B"!`.`$$Enn %J L* %J L ` ` $e . DB `p .C  0- :*@,0.! d4$ r $n!`$!`$ġ.˄  r.  >\n `@ F >\ ` `$$$H $$ $! $ ' H $$ܨ$`$$@`$`$$ `$$   $! $@44 r  `$A n"˂ $$` `&n Ø °ŃE °ŃEC``q˅  ApAGF`$`$`%J%   n EB ˂ L L L GV%4GxBA!frrr GtBGGt`EmI w EGDD`@A!!tA $GzDGGzG&`" Ƞ" `Ghb"B`n r˅  ` `0` n\ `() ,.':SAVLUGSAVL+-*/&&&#//++><=>=<=#= @ `$YG    I<˃c  El `LrJ>KI K@KKKJJJ4 KDIK>JMhLrFI@L$JMtL KDJJK|J4K>JMIMhJHNLrJ>JVM0K|@JJJJ4 KDJK>JKJ>I K@KKJJJ4 KDK>IJMBK>MNJILrL KDJJK|J4K>JJLrKK MhLrKLhK MLrJL KDJK|J4JNM KRK`Lr KRK`MK>IN`LrKnJVLrLLLr KKLr KJMJLr@KKLr@KJMJNKK>N6IN<IMhLrKnJNBINNJMJLrL2JNLrL@LJNLrLJO KDJK|J4K>JMLrJ[vˆ 'ǡLj 6 H)ɢIK)K&+  %< :ˆH[8 ˆ[`$[ &&`O &`OGf ˮ`O[`OGf`O&`Onq `5 ˈ`OF..D`Oˮ[&. \ ^O^ˠ\ [aD [@ &`O '[ F?& Gˆ.GG[ 9GFGˇ[ˮ`OGWˆ[.GG W`O  `bGn)  `˂ ˉ ˇ aˆ [ ȠZ`O& L`Z` ` `  %J`Pd!F Pd!L!H!J  Pd!L `B`>(`K>(Pv! MM[Ѥ$ A5$   ˂R˃ CT`QNn˂ Cˁ * r`?An ȮȁȠȮ $ L `DQ \  ` nˡnx˂ ˃ ˄" nT`S&˂ `   `Snb ?u`\nn=`˂ `˂˂nB`Sn``?`ˁ   ` nnnan `˂˂Bȁ`SnQ `nB` ȃȄ ȃȁ``7>\  V(S nax˂˃˄ "`(T#`T˂n`(`ȁȠ? `Sn^@^ ` `8>\8>\D$DFX$ `(T TC"T ܃ n5T˃Q \.#`T`ȮȆ T`\ `9>\<BѴ  n ˂  ё ђ `@ nU˂n $CnP U6B C@"! U!! U ˂ Ld, ȃ U "A ,Ȅȅ?˂ d ȃ U "A ,Ȅȅ ` nQf ˂˂`?˂̳An\n` L$ L `  ˓$ L d~?` VSVVVVVVW~YLW`YZ[>B` % na "n^>`?\     %J` nd~B˂\j˃d~. nX bcv Wz,˄˅ !`!`   4 Bb ˁ !˄ ˅  b˃ ! !     W|]]V` ncv.! XFC Zд \j˃'c BbLn +k]V `BA[ $;+>\d~\j#Dq  FC``,, nd~cv`Z PC  *,>\ %%%Un ]" X"#c    BbL ˁ   c!`Y(#c!`!Y Y nYa $!$!YI Y˂%J L* %J L `d~cv Z b˃˄  !` !` d~d~`  d~cvD  !>\ˠ`Zrˁ˂ ˲ k   \CncL `\nMȈa' `?˂A aDa`[DD ?a ?D`?, B ` `D qE  n"f Ѵ єC #! [?`"< `?˂  E?vGa`?E![ `?˂ Da?D`C`~G# D~#C ]T   n cL `G C!Г  C ˂.^ `D $^T^ r ^ Z   ˂  n cL!  B`?#! ˣ  ˂  bb˂cL" `Ȯ Ƞ  `\ ` ˓ ȃȠ ``\ ` `.  $ ˤ \ \ `$ n`.˂˄̳A `  ''B `_˂. d!``an!``a!`N`a^ `nan>(b ``aL˂n\n.$˄ ! _"cYС ! CO. DD ˄ `'d`U   N BCD$$& ˄ d`U````n. d`UaaaaaabL  * В bn>(ˢ d!`N!`F !`>\+D>(˂`_ `na ` n˜3_˃ `a.  an 1_1_ˁ nAdd %a_ `_˂  Dw C ` n" a" ` `_./%&ݕna ` `Zrn  $ܴa$? L`ZIjB`3˃˂_,$  `  ˢ`_\ ` `Zrn?d~݃ Cad~C d~d~݃d~nA8$? L`ZIj˂ $ n `ctnZ _ˠ ˄ n `3˂ ˃n _, `!д ? a ?$Dд ?D`@ a"`` nn  n@  (eB `ˁ  >\en # ˂`|˂#. d!`H.d!`Jd n_ eB aenFnaˁ = a!H` ˠ%4n3e.%4 B˂ ˃n`n  a! eˇ˂ ˉ ˆf `F>(˂ ` `jTcmE&VlKZF$$H`$@@L CP`C!&b&&0Z+ JbQ+Da ڕJVԓhcHI`5a350 3j԰ D RR*UUUJRjURRZ*U%J*R)IVJ@$(QU @A V5"H" 4ҰkX -`Č`cX5`IB$60& 6h @01"k 0[Z١'̳2`2ڒ٠H`13L A0 fƆ`$1HV&iChJ(  k!16C/aB&h`XLm $^~ `$ @`ĀkX`k@ XZɃ[X 4ak!`6 ,0@"H@  `C(1 xx8h n>(gF  F8  `x`b ˅!F!Cˠ$ˠ$CDˁ ˂ `   >\ hHopqqrnrss*tpttt|tuTuv vw|wxPxth:h:h:h:h:h:h:i>h:i> h (gi> br  `r X  hX` $"  `$   $`h$`hphpornTrk<rkdritititnrnrjDrmrrtl<rhXpjVrt$tn\totp\tttutorhphphpkRrk\rktktktvtv2tjtjtjtlrtlntljto(to\ryNt (hhY p b  n (hX`$C7E3[aSYO"Lm  nPiB=n v  C  C $ CBB r`%4 %%4i %4` Ġr`%j  0 f˂  ̓̈́ͅ`hX x  t nP k,.& B3 ˂˃ۆ $ >\   ` ` `dj  . `$    nP:k     $`C>\  :`6`0D, : 6 < 6`:B nP ln>(l FD A L E>(l*˂ 6B `p .C nAB :n!`:p@  r >\ `h>\ n `mzB `p . DnC`~ nP mzB3$  ~  d nC DF    $$`˂˄ۆa n  ˂  : 0 *+*@, 40 r  C>\n``  nP nJb# C.B>(b `5bpAA/ t&2 j  n&n>(b `m H $`C>\ nP n bp `&,  ?C>\ `h$!"  n$C $ nP oNB3   ˃ $ޡ'>\ $`C>\ nP oB3   %C>\ `hoo`hX`[hXooo$``hX nP pbB=nBCD Bl nP:p|B=nB CDBl `n! C>\n !C>\ hX nP qB3Ĉ.p = : 7  5 M.p#`$"`d "F  `$ ˂ `Ĉ.pCĈ.p n pnDCH>\ `o$ " v   H vG `hX nP rNB=nBCD  lP:r\B3 p   C E  C.  `C>\C>\ q$" v  $ drl   B p r `hXnP sB=DɃɄɅ l`C>\hX`hX nP t@Bs$"s&= v>\nBCD  nP:t`B3$ _       d z n`s&%`s$Ȅ ȃȆ!ȄȃȆ `%4! ! D |$$$ȄȃȆ  `C>\‹s$s&C>\`q B`sDttt o ni $`  to nikt`ti P:uBB=D vnBC >\n`v `% v%  uRra uR n"i"i ` ura u n`znP:vB3  d  ` hX v o nP:v!H @ HDBivC@#! #! F%! Jc"iv a v `       hX vr nP:wX!H @ DBiwdC@#! #! F%! Jc"iwp a v`      p n"iwP:wB=D vnB C >\n`v  `C>\hX nP xJB= v>\nBCD  `C xN xoa xN`EQNEHELGELTLEHLTEGT hX nP q xnC wX xA>\ ȇȠrnP:yvB=nB CDBlnP:yB=nBCDBl %'`C>\C>\1 `j)-1`%)` a)R*c I``!3 @ )j@ƒA,` `bMC1 & B63 10a$DX$,`  ` 2c0& c"40 HP a``E$bJ-0-bHb[@alb# 3`6a c40УD   0L $ $  nP j2b!`BB3 h eF . ! M!$$!$f $ !$ $D@1/˃ۆ  $$`C"``$ `$ с$$с>\ $`  0>@d `%%* $% LnP jB3  % C>\$  % `h>\ ` % % %$  %%%%=>\ $ kd% % L` % H% %$BLANK$$$$o$$$$ n ˢ4nP l^ k Xbp ` ? ˣۄ 19C7   $!$$$$ $ܒH ɒH` 0  2 3 4 n>\ => `&:&:&< F%`˂BrnP nNn!3 D3 ˂n```%Jnn n !n0n4˃ˣ `Br  $ г l l3 `\`# \ `ˀ`\.`C>\ n %Lln# L& L%J L%L%L %J L>\n>( F# H>(  >( J    >(o FD `h nP ofB= vnBC %  `hC>\n% XREF SYMT OBJ NOLISTTUNLSTDUNLSTBUNLSTMUNLSTFUNL RXREF LIST   nP pPB 0oq Bĝ%P:p:# oˠon>\ `h˃ nP p J˂Db `p .˃ (  ˂  ˄ $1nP:p C>\\ab `˂Bb `p P .C  *: . ˂ Z˂n  *rl  n C B `.T `hQf ˂ `?˂ ̳An * r Ƞȁ$ LB \_xCS8n1\(2 nx˂˃ ˄ "`(T˃@ؠȮ/@\  @* r` nP t z˂DB `p . (  ˂  ˄ $1C  .@ˁ˂nP:tB3 ? < <<: b",n ˂ n B n`.T ``hC>\ `h` nP t J 0˂B3`~  -` `dn˅˃ۆ5 a   b@ r  >\   `hnP u~B3 | " 2  $  d$$$Ȅȃ؆  `h  $$ $B>\  $$C>\ $t$" |H x nP:uB3 x      d $x!dd$nB CF `D$DFX$ n"LOlv@ !;4 (`\   "(``(v*T#`vT \>\ `h&9D$DFX$@ n"LIlx`x~$ ;`xF`ˢnvT#`xN" !`x Lb`B`x#% ˂nxx˂BB C.d!`v!`v .Ф   @. r\>\T \b\` `h9:% U `Cc #% xb"T`  ˂  ȃ`ˢ` %  ` nP yB3     Z C`%4>\ `hHb4PI  f5bI ֓RP* `@ҳ0`0,P̴6akV&L%flL`0 @BLc&11 `a02  c $0`ڀm,bA 0 %* ZɚJR*Db 4!JȘ3h1 E@!!2 )ŀH,H!  #>\`.`$$En `Db `p ˃ȃ`?˂A`nBBBB ?$ LnnniB g`.`$$EnBnfqAnCD%4 %4 n6f H#Ho  h   ˂˅``$$Ennnn (f` 6FhVimjjk"k6lhlmkApS8$ Ln ˂* r(.1+ .&x  ˂  ABCDT ^>^`?\$  ` naP j˂ ! n\n [˃nP:jnf `C *\n #! j!! ,[jH,! !}}D#f`  naP k ˂n j&?pZpd.\n[j#! j* pPpdnf `?p\pd` cP k k4.˂n?p^pd. ˄ppRpd˃ ?. . pdn nf`  kj n  k C+f?B! l:n-fn.f ?p\pd`n?p`pdaP l3nr>?pZpd[pPpdnf! L`n! mln\j*˂lfH,[˂?pZpdpPpd! Ln-f`n! mn\j ||CȡlfH,n-f` n?pXpdpPpdB˂aP n3nr>B>(n O  D3OT>BP n˃ 6n\n0B#  $DpP.+nf ` @?pbpdHob `o `o"B>( o6 NB>( o:n\n'B>(B N F >(B oq@`f`DaB`B B` ! a!& `˂ a a`Da`pTDD D aE%E!?a}}`!aDD}}Ø`pVѥDD}}`pVD`'' C n!È[ԛWpRpdˡ!F?D q:8 pd 勃 . ˮ˃ ˮ.  pd. pd pd˃ G`  n F< L< r8< r< N.( r:%n \nr CȠr6r4r>(B ,nq<``0C@`XHC0ͰAX 2-!61͖0H06@ @4`J jm6@mZb1X 0 VX0 @  + H0$050ƀX  D`c  $`6012345679ABCEFGHJMNPSTUVWXYZ@ > ERRORS, LAST ERROR AT , 0000 WARNINGS NO ERRORS, NO WARNINGS THE FOLLOWING SYMBOLS ARE UNDEFINED C\""& "& v|`A UG |Q@%4& `&??&?n?&4\?l?%4 & &`Z  `Zr`&CQ `CЅ CBqEqC%41C%\q%Z1%VC1%XC `$%X    @4%V!d4 r   1%RC1%TC1%JC1CC%4 %4ͱC %Z n @ˁ  ˂   ˅qC`1CqAC%1C ` ˂ "  % ''%%ɅqC! C!&ˠ% & `" ˠ&`CP ` `$ $$ $`>r`%`Br`>x$!&,\ ]f%d$a% n D&˂`%``>!\!]f `%&,\`%Dr z`Р>Р>`>q  6Р>|hР>eР>Р>B^Р>zР>yWР>Р>`>Р>{Р>|`> n  .` `   ˃ B ˃ $ˠ4n  r  n iР>}Р>~`> n ˂˃  `%``%b.n! 4EC:>y,! nx n%u  .! 4 Ю ! ]f `'"+-  %J %J%r %t>r```%J%4%43O>" ԠF!\ˮj. 9 t x ~S !>.> t` ` d$F`F`F`F ~˃ !>%X%X x%X>r. F>``%4O ``  %" $H $%%. k %J!$ [!%S !$L!$EA  4 #Bp nI  % !$%  % n nF `%Z  @ \`G #`## ! ˣ \ `D`%\IC`rD` *********LAST ERROR AT IIIJJJ'JFJZJiJJJJJJJJKK,KJK[KmKKKKKLLL'L>LULjLLLLLLLMM(M>MVMjMMMNNNN,N:NQNtNNNNNNOO+O;OMO^OINVALID OP CODEUNDEFINED SYMBOLINVALID EXPRESSIONABSOLUTE VALUE REQUIREDSYMBOL REQUIREDSYMBOL USED IN BOTH REF AND DEFDUPLICATE DEFINITIONSTRING REQUIREDEXPRESSION SYNTAX ERRORSYNTAX ERRORBAD ACCESS NAME SYNTAXCOMMA MISSINGOPERAND MISSINGDISPLACEMENT TOO BIGREGISTER REQUIREDINVALID CRU OR SHIFT VALUEATTEMPT TO INDEX BY REGISTER ZEROINVALID OPTIONVALID OP CODE REQUIRED IN DFOPINVALID FILE NAMEERROR ON COPY OPENMAX MACRO NESTING STACK DEPTH OVERFLOWOPERAND CONFLICT PASS1/PASS2INVALID USE OF REF'D SYMBOLSYMBOL TRUNCATEDMISSING $END STATEMENTINVALID $IF EXPRESSIONINVALID $ASG VARIABLE'TO' MISSINGINVALID $ASG EXPRESSIONINVALID MODEL STATEMENTMACRO EXPANSION ERRORMODEL STATEMENT TRUNCATEDMACRO SYMBOL TRUNCATEDLABEL REQUIREDVALUE TRUNCATEDINDIRECT(*) MISSINGCLOSE(')') MISSINGMEMORY EXCEEDED$MACRO INVALID WITHIN MACRO DEFINITIONINVALID MACRO EXPRESSIONINVALID MACRO VARIABLEUNDEFINED MACRO VARIABLEERROR EXPANDING CALL$IF - $ELSE - $ENDIF CONSTRUCT IN ERRORMACRO DEFINITION DISCARDED DUE TO ERRORSINVALID CHARACTER IN SYMBOL- BLANK USEDINVALID DIRECTIVE IN ABSOLUTE CODE'DSEG' ASSUMED'PEND' ASSUMED'DEND' ASSUMED'CEND' ASSUMEDINVALID RELOCATION TYPEINVALID USE OF CONDITIONAL ASSEMBLYMACRO LIBRARY READ ERRORMACRO LIBRARY WRITE ERRORDIRECTORY OPEN ERRORDIRECTORY READ ERRORDIRECTORY REQUIREDDIRECTORY WRITE ERRORCONDITIONAL ASSEMBLY NESTING ERRORCOMMON TABLE OVERFLOWSTRING TRUNCATEDOPEN ('(') MISSINGINVALID CONDITIONWORKSPACE ADDRESS NOT PREVIOUSLY DEFINED!$/1234?"B `ܠԠ %4%4 nNrI2 \I0n!.C`O&&I0 $IJ`\n``! <r %4kI0.k&nI<\!&4\n&4 %J`%J`%r%t `\`  %n %n`% CP`   ` `//: %h tU%^`>]%^  AU  > nD < nD : 6DD 6 0E> ,R  0% % : 1 .DZ%^`>]`%`Pr`Q>!&,\! %aa`Q<%aa`Q<%aa``!%"#! \"! \`%`]P%`\%``  %4`>Pr`R`RnxSj˂ ˃˄SP" r`>%4``0  DBBE  eSt`Szx`aI n``T `T3  >\ ` an aTQT4T4T4T4T\8 `%Xn!SCSS"  >\ `n `d `FC H``= BEFaFna!`BCD `.n`t ``%``%b`>%f]f x%h`%`%a3``` %Z8B`ȘU „UUˈn!&!  US. `$      n%\ 4С rV-V SVVWVWjWjWWVWWjX@XrXYRYZrZ["[:[NXr[V H`Ua ` n!S|BC!S| dBC B`!qD``S|BCa !`pa E eD`B B CB``S|DBC`! z BB %ZW` !@zxBCD ` n B!V `x` `Xn! D`xV``Xn!Xq! %  >\ ! D ĨD` $ C  $ B bC  n!S|BCnD `x` d  >\   >\   $>\ `x cC S|DB C` `Ya!`d!`  >\ a  $>\  EV`x``Ya  $>\ EE` !  $>\ D D`ZpW``Zp`x !  $>\ DD`! DD!  $>\  ĨD`x``! D ĨD```[8V``[8` C`[L`xV``[L`\^[\\\R`\Rp\R\RP\f\R\R\Rp\^`\^P\^] P]RH`[n[p[`T H`[n `] n  >\nH` `]a  0x.! d4. r b %R%V %T%X`[ n>(B F>(˂ 9 F6 b   0>\n %j! $ %Ta %X  %V%j %X%l %P^6 x%h  `!!  Bv D %    % !$!$! $%^"H`>%^]%^%^>%^%``ܠ>ؠ>UP%dn!H&,\!%d ȮȠ `^(nr%b``B`%j `$T%l(`%N$`^4 d%N%PC%N%P %h! tU%j%l  t%h%f`%``%b d`>!Р%j  `>`>`>]f`! ^6`%h `tU%j!$/n `*n' ` ` D $˃d D %l ˃K BCD%l``" ^6 %l%P  @ d  D ^ $ `%j!`$C %h! t%f``"%h%f` %j" $ :`%``%b x%h ; d `>`>`>`> n . Ю! ]f %j%N %l%P `  ` ` C  Dj^^ n `> %V%j %X%ln  t x  !^_`4f$VڭYa4ҵmRmkZ#hiKQVZXh0V0464DILbA  X1c`mͣU E`@h i2@@`&@@ A#jSF(TCJ F#ZVjE4Lm&d6d4F,Q-KF5 `0I@0A Cj T!$؉$ -V6D!1Dmb@@@ 2Pm"4Hc` m`$IP11H -@VUUUUH$C4$3hc ”[`!$@U ŭD5PXIc@SPb(& B*Z I,m3ALABEL VALUE DEFN REFERENCES! `%4 116 z  A a 3   $C % 2A'  "" Ñ"5$ 3 `2@\` `2@&$ L2@"&"`4 3 C34 ͳE3& & %J& V qf @4 3 C4 #D  B4` D4t#! #4 #4  `" "` `4T ` `4 $$ 4 $$`&`&`2@4˂ $ L2@"&6`%J`%&#4 `  URDXOMLS'"+1Nrnx %nu n ˂˃1! 4`5 4 5`5 `5  5`5  5`5  5`5! 5$n  ˂  4 !`5Ю`5`51n6#˄1!d1L!˂#˄d!11Nr``D`%\6ʠC`rD`mmX@k jAX da&Mb3`!$HB 0@4,C5 22 22343% 3E3a333344,4H 4j 4}4442nUNKNOWN ERROR PASSED, CODE='MEMORY REQUIRED EXCEEDS SYSTEM CAPACITY3MACRO ASSEMBLY COMPLETE, 0000 ERRORS, 0000 WARNINGSERROR FILE ERROR TCA ERROR#MACRO ASSEMBLY ABNORMAL TERMINATIONDIRECTIVE EXPECTED - SDSMAC BUGSOURCE FILE I/0 ERROR,CODE=&ATTEMPT TO POP EMPTY STACK -SDSMAC BUG$UNEXPECTED END OF PARSE -SDSMAC BUGERROR MAPPING PARSE -SDSMAC BUGOBJECT FILE I/O ERROR,CODE=*INVALID OPERATION ENCOUNTERED - SDSMAC BUGNO OP CODE - SDSMAC BUGLIST FILE I/O ERROR, CODE=!INVALID LISTING ERROR ENCOUNTEREDSYMBOL TABLE ERRORTEMP FILE I/O ERROR, CODE=MACRO EXPANSION ERROR#END ACTION TAKEN BY MACRO ASSEMBLERBUG - INVALID SDSLIB COMMAND ID TOO MANY REFERENCED SYMBOLS USED1ʀ"2H' *E2H@ 2O\2j2N6X5`5b6X5`5 6666`  6666`2 2`a@  64  `` %n %n`% C6X`   ` `$I$I$@J#JJ%%% EREx 7 `d 6~`^&|&( X  / ;6  X H   bV@ pV JH0; @  6@A944I4 c.У."  }    6r  7C ;r  f @m Ԡ  ;`   ;tB("`fPf"mbIbq`t-HȈ   Ƞ  `Ȣ ȭȭPȢ ]ȉ )]w])&6w&ȭ Fb"`" `N,Xȭȭ `t~   ``ȝ `  ;`   ȃ$Ȅ"D A`:] ;``N  ` Hm-@@ x ` ` H`A` m`  `]/ `  ` Q `` " / !G<  00cdf B`<` B!00`a)= ǡG` ]^g pp[  (" "/  99tȠȠ  Ƞ HȠ   [[؁/"  [Y[ / 5 / ;t#  ;0[ /bb[ /bb["q`[/  F F F F`SDSLNK (C)COPYRIGHT TEXAS INSTRUMENTS INCORPORATED, 1977.tP,PPPP      PP (): ; SDSLNK 3.3.0 79.200 MM/DD/YY HH:MM:SS PAGE *** 4 2LINK EDITOR COMPLETED, ???? ERRORS, ???? WARNINGS! LINK EDITOR ABNORMAL TERMINATIONLINK EDITOR TCA ERRORLINK EDITOR TLF ERROR  /001Qby(G^p(G^p n-* #Hbn $b q`$">b $$| ȇ` (`&&` P`$ >A h@ xaA` ` *& ,-,m > ( ( | Ƞ,`, A` @ >A . *&` &) &Р& &F-P-NF` ` @V > &`'FM-R-P` @--F , > *&6( ( ANAO-R%(Fm MP-T-R`(-V` f n`ȭ ȝ ` @n n 4` @I[ D6-/@[ LB1@ /@`M A `\Y\ `$@LC >B -\ >Z/X Y ``^|ȃ\ /@ A ```@' 4؁.ؠC.4\ ;tt   t@[DUMYCOBOVY7||F @   ADB[Tt:LINK EDITOR TASK ERROR ????, WP=????, PC=????, ST=????INSUFFICIENT MEMORY REQUESTEDUNABLE TO GET MEMORYLINK EDITOR BUGNO FIRST INPUT RECORDPREMATURE END OF FILECHECKSUM ERRORINPUT FILE I/O ERROR ILLEGAL TAG SYNTAX ERRORBAD OBJECT FORMATOUTPUT FILE I/O ERRORLIST FILE I/O ERRORUNABLE TO LOAD OVERLAYMISSING OR MISPLACED COMMANDSPROCEDURE IMAGE ERRORTASK IMAGE ERROROVERLAY IMAGE ERRORLINK EDITOR INTERNAL ERRORWORK FILE I/O ERROROVERFLOW FILE I/0 ERRORCONTROL FILE I/O ERRORINVALID LIBRARY NAMEppWұ  6Š& "'/t v xz 6 "'/t v x 6 6[ , CODE = UNIT = $ /  `&` &Q%$##)$B)$ B   #$$6$b$ *#"# #""<+"<"< "<v#"<`#e #b#C$`"‹6 #   V @D, A,H$6$b$ $$6$b$zZ621X [FF$z# #9 LL  #a*QLL  a*DQ L"L # #LF`$z|A@Ŝ"$z"2 ""2 Ŕ ah $z # #lHQ " #c #"tc #м/"#/$#/>#S/#"#$#>#"`@E` #ң&` #ң&`V<ŀ(` #ң ŀ` #ңŜ``8Ł``"t``e`ŀ`````‹F`$z"2 &Z"ɋ""`"/$"` "`,$6^`L/4` 1` "/>"`,$b$6M "^$bj$bBSCl$b` @TEA[l$b$6.l$b"` "`l$b"` "^B1"l$b`,$6$b`"`/"09AFZ +-AC`      !ŀN` "^l$6ŋ$bDB` # `#( "#[L!+Бal$6E=[,$b$6` "LH` #$oH"`#%H#``$oH%$`$  l*DcQ6 DN`X~h06<H\t| & 6 > V \ ! !#"`#,Aa$$6a$$6a$$ba$$b` `0"`6"`6"@""`6 #"   A@"`6"& "`6  n$F`$z # #o.##`0# B`$ 6`BŁ`6#ŀF`#VFV`#/"#/$#/>#`$xQ`$x,Aj!$6`!$@$!$b`!$@$/H%8 JQ #+F:S0 d +F++J +$+p` +Lo. +Nd`+LD+L +F`+Jvv+JF`+Lvv+LF /.`+L+LF`$z`$xQ`$x`dd +D+P+H+H‹`+L+P/.`+C+P`+BPZ # #+P#{ ##H+P+L B@[àB[/.+H+H+ <##0C[ B"09"B[J"#*$@# $# $ 0# # +E$$`#$ ##`6/*T& poL`# ###`0$x`$x2VF@ $zBQ`#A`<<6 <6o/$$$$ "[@ H%+еO9($6ġ[H%+еO[oH|%8H[%8 # ##%8 ÀH#[‹"$zZ($b$  "Z$z$bh$b@[%"- $b$ #\- $b$ #($b` $   `$ `@̱Hj$j$6j$b,H$ `$bh$b`($@đAB$$6$b[$@ *A$ `A[$ [ ::6 |B0Fbjtz@R$(<Vf(>zr.@^"(.4:F7:0+      ,"4 P  j,`+-`, j /`,/' `+ `, /`,/`,/,*ʇ,j,'-J!****,. xaʁ,G,.-`,j,`+.*#2CDD C`,`,/С B $2D. j,`+<.`,-m (1 1   2 D   2⊂ʂ`+j."2 ܃[ E`+B`,/! 0C`,E/! !   ʂʁ,[&"`,/`,/ @*p *xJ!ʁp*v/*./* .jd /*.I`@*v*pʪhj/*/"/* /@/*/" @ڻb*zʐnʪpf/`*a ; K/r[\>K-+09A/*m `/ѱ * /o/n@m  @"  *@* **@  /t* /sEF HIm  4/o/n)/p/l /p +М+ 88GB /m b@B@ABE F ABI@0$.( :61 1111 `p܀4 ܴ1 `CܱC@J!B 2C11A2 1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*2* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`3H=`3JF%00څڅj ʁ*  |123 |1`a23 ? ?mCD[-mqp00A 5& 'J)#ȂG4(09(H E`3  #` m@  @ p@ bA@AI5Pmqm5&4FEmGHmr5&899@DDE    ba [[BCEEF[A5tI1܀ ܱ@[6^55jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[;6v 6`,;6 6`,;6 6`,;6 6`-d<< <7 7`.;7 7`.;7 7`/&`:`SYSTEMp `<;<<;4 ;<`/v*R*U(@ TPDD @BBA IDQ )R@!%h@R*QXTT䪪$mUTJ (B (JAUBUI J$%)RҊ *Q@@@ DKP!T"@T@P Qme 4J"%jԈP ( *"""I $P$@ *`$ H B@? @T @ @A@PHH @P  k]@u]}k@N[nv#+PRTY $/ 5P$`U,Gh@M:  Ax#¼0#  %#cS#ƍSϺ'#cƌխ vz vS vv;vx #0*S@T:T @::&:y&TMMzTM8RM@R$4(4(d#T*d1R$R&R(R>R@R .10AA ATEJ (*$$D (L$$OVM) y 4  !  !=  ! @@ !=! = COMMAND LIST ABSO ACEAD ADJU AL ALLALLO ARYASCI AT AU AUTO CATE CH COMM COMP DATA DUMM EDUREENDER ERRO FIND FORM GE GLOB IALIMAG INCL LIBR LO LOAD LOBALLUTE MA MAPMEMO MT NO ON PA PAGE PART PHAS PROC PROG RAMREFS REPL RESSED RORSEAR SHAR ST SY SYMT TASK TG TO UDESYNTAX COMMAND SEQUENCE DUPLICATE NAME SIZE COMMAND EOFPR[ Z0 h3P W*P 0C0M0Y0d0m081810k1C0011 1C1CX1*{HOWA@R]WlL@Rh@Wz ;:?|QURm8.bW*zmKK*vOW*) T(vK|Qe_?>??WPRxyx&RRvK.&Pt rRRvmyxRc c ~ "xh%D27R 2= P "(`PoPpPqPr "%xRyRVx|Q `}c c zPPc΄`£vxP֍&RRvmyxW* W* ` "%KW*vW****RQUR3O2GKvKm(QvKm(yW*R aQºvJfR&!2=#Qvc1, a$c "?f2?:.KRRRR&!#aW**K**R!QQURKmvWB@R^M}gj'FQDJ0s!mm|yaQºzDa0fR 2=QaR&c1 acQf2?.(!KRRa-J0QaxvQ팁KRy9F/TJfR&RVTF/pA/FR5RV!a9RF!ͲQ!a ""R/FaRFvx" ~~8C~ bW*2"W*b.f(f:/4b'1":5"<3"<b'c ec"Lce"LcbBccvRyRV"S-+R"wfRF"t5h/p"kRFzP#z vxzP#b[KRRRR-P#FF32(")"ObGKRGKO2v}WjB^}BWz^y4tW*z(ȆbB+ "8HHN VVVVVV\lrVVVH V  $ 8 N b ~ VWǪxx ozpzqzrxxK#S_3*4343TT3#.2K"#T#;I"DOPI4W^*5O  cWI I(K"*xzzz#zzz{|vz4{K|vKW˪|4eW˪|((vK4WV2vKWVvv%|-g%|-K4gg4- #ʪУЈKȉgg##ЈKW: ggB(+BI#V;#4/#9gW:gxW˪!4gbW˪!gbWǪ!4g^W|1O$gbCUvWjWjWjgdWzNI$73T32Kv2T2$?O2v)v*vOI*bY C$YO  T$$uA) Km$m "  v~$~d" KdVn  vz  v򌪶$$ 1 v1 TxzzzzzCUv Wv" g%| -CUv I $K eWvg85g5We|%|-K$O1g1)/Odۍ gW˪vKV/|6vKW˪|%H4efUbV2vUb|eW˪||eUb|e`W%jqO%nK`1CUv` h)x(9xPORU dWJdW('%%%% % % HeeKeOeKWz'&e x 5eIUUUUUUUUU UUU"U$U&# 򮄬V:4/%9v V& </ 4-vKVhLAfA/9 KW&?.&7 4KW"76f?KW&?fVVO??|I!#HnH?NVxKVnVh&^􈐩^&f&fvx,,Kz&yzfspHzEWPKWPI!gPV&666WfV6N668C5&;&TLf/ KW& W&fW&?&KW&fG&߈KW"&fKI!0#n? K,;40+I!:K||O||G||(|z,zz@Wz;73;::&WxM@ ;:g,AWz] 'CWA]A]]&]]&]LWz ZWL&WbWjvWjWjWjWjgjBWz^ tWB^^&^vy&MzWM8h9M@h;y&WMF WFWv xW?>?H"?v x"Wv?zÌ?>??6h=WXAgchhXAaAXXAaAP hAeATAP!WAR"WXXh g g $%f %%f( %% ($88hhh7xxvRRR R RRRRR"R&R*R,R.R0RBR 09:BSCKEEGFJLOPSW ()*$B$Cy '@@  0h = , MODULE MULTIPLY DEFINED SYMBOL  UNABLE TO LOAD \PRRwv!# J)  R"8&JK F+ F? DA B 0 0 *W]W`:UFTTU+VRl8=TR`=TTV, `( ` R>"&A( K [W]W`LV  gV`b8uN uVN*`lUFT0TL"KT  KT`U+8H G HHH`>H>TRV, W> T׍"& ؄K? A 0 ljW]W`UFUUU+`UUV, ` K0`W]S"&A( X W]W`| |UFUTU+V, zJA!A!"VHQjWjD@uSXRS+!gJKQ;TQTRSKQFTQTRSKQZTQTRRlY1YWiaURS!eKQZTTRSaZR1dW!v lamN' layAx? 0V XxV 0 ZvhA( ? 0V ^x 00 `vh?' 0 0 \vh. C!07 Wk Wk/Wi Wk Wk  am"mWi Wk WkbmWiWigi.2"WibR(8Wib$'i b bgk86N;6K\/XTRSb6tsWtsjDW-wu2fWWbbWjDu,,K 0TQTfLOV"tsaF'0"9"57"aabJ S RSH HSHW S RS SS" > S >S>"Ȅ bL = b =S=W Ϫ8 G=b =S=W䌡W L' bv. Wㄅ򀄆򆌘 ..#(  C')G*G+C 13 cV,G0U7U53  cVc,.C#h0c7]c]W򬆘 m#ummkk cumqzL'>#> c2>2 c S S L> W=>S>#ń = 8 G> W=>S>#܄ =Ъ. Wㄖ #󄨶 zz8v N'쌪d WKg7F' b04=P3$*bdK bI2dK&dC79$dK9>%dK5MdKW]Wc .*dW]WcddM6NK[6#$e VN#q W]*dw*W] /XTdULK$ Tdv8 G'4WiddX /KIv$/W]XzzW$XvXTdURd4͌ WKDdĈ vL'KUdѲzL'>$> e A% . e z zdLK' UeX /W'URXze!K/E'D.Wݲ XURe5|z%L { |] g]Jj    j $F *J    T x@  p >`> 2d xv%Xg7WKg70WKg7J WKg7UWKg7UWKg7W'& &\0&VHWK*g7UWKg7UWKg7U&\fWK&*g7UWKg7U҉WKg7U%&\ eM be\W'&0&vV:xVHx3& v b.7f bv3 A! f5' f5O- #f5. \WK*g7\WKg7xxv;KU&YflL&YIl"&_""Vs"&h"<"z"DKO&&.J & .fyD'  & .fBW-_^W;z6666WVfVfVW;(fW;#&͍, W;*VfVۭL*f, W; //*f, W;*W;(W;(W;(W]((((>W>W]WcL*WKg7WKN*g7WK*g7!WKN*g7v'!WKN*g7WKg7h#WKg7Og*LK'*W WKg7OdLK$WDR vBW_7D_^^&WMB-_^g=v'lX]6(X / 'YW]g]W]KL*, *Wc((((gl'ptszWtst&'W&H &Hb&DWu-WDuu&uDWw7wuu&WMD-wughy&WŌMy&gMzWńM8hM@h ڃ.Wv x?z?6h,,RRRRRRR R&R*R,R.R2R4R6R8R:RS`~SSSU>P`lSUU>AB AtU>ASBB&B>S4 S2/ B[`B} .~~0~`U>`c<lLUDS#ͧ ͧ' ``†" `†" ߍ"``3%V)"`"`BRaBCS hB-A^ SAA^ 0 0S+!- AjAQ,|!%&QG+SQSRb~,!BvB :!8BRa;Ba;B:AA^S B BF v|z!O {BAcQb5%T`QaXSU>B BB-A%B1A!)!njKӈOaѲ0O* 0O hS 0SSU>5":K aAYU4K 0zm<"31" K"R^ hS SSU>b8V>%VK"@bPR^A5SSSRRU>b8v B:AA^S mmSSU>Ap BB-AABcS! #" BBBBBcBBBkS! #B BBABBc4U>cc%f%f#%% #P$<S%RSSvLUD3&UAMLcBAAߛBb TdBMAAA TdAbAdBB#AכA TdAߛB_AdAЛB dAЛApBf dAЛAS TBBA^d hdAЛB:ByU4 dBB#B1A"T dBBěBWABb"T dBBěB1BbU4 dBAgB1A"T d錿Z 0Z 0BBAlU4dBABR hU4dBAB hU4dBAOB:AU4dAЛAAlAj hU4dBB_BBbU4dBBěBBbU4dBB_B5BbU4dBBěB5BbU4dBB_ABbTdBB#AATdBABRU4dBABU4dBAB:U4dAЛAB TdBAYAߛA TdAB!BbFS TZUU>ABMBSZ0U4y$ADBA^rAۛASAHBB5YU4SBBYU4S'SB%&U>ZZSAZ%2U>$5<5dCy&eDMzUKM8dM@dxABA`d ()0 69EJMSW *,dy@@ hHpxACCESS ADDRESSASCIIASSIGN BACK CHAIN BACKSPACE = BUGCHECKSUM CLOSE, COMMANDCOMMON COMPLETED COMPRESSED CONTROLCOUNTCREATORDATE D E F I N $CBSEG DUMMYDUPLICATE IDT NAME END OF ENCOUNTEREDENTRY= ERRORFILE FIND FIRSTFORMAT **** G L O B A L ID ILLEGALIMAGEINCLUDEINLINE INPUTINSERT I T I O N SINTERNAL LENGTH LIBRARIESLIBRARYLINK LINKED LINKER LINKINGLIST MAPMODULE  NAMENO NUMBER OF ON OPEN ORGANIZATION ORIGIN OUTPUT OVERFLOW OVERLAYPATHNAME PHASE POST ALLOCATE PREMATURE PROCEDUREPROGRAMRANDOM READ RECORD REFERENCER E F E R E N C E SSEARCH SEGMENT SEQUENTIAL SHARES O L V E D SPACESYMBOL S Y M B O L STAGTASK TERMINATION TIME TYPE UNABLE TO U N R E VALUEWARNINGWORK WRITE^ 7j ?`N 6X`H JT ( X  ~/ | }5  ~ X H  <@ <H& @_  @A<I P   6L U 7C ;\ ;NX  ؀ ȀL@m Ԡ  ;:   ;N( ;N@*LmbI bq`jB-HȈ  Ƞ  `rȢ ȭȭZ*Ȣ ]ȉ)w])&wȭ $b"`" `,6rȭȭ `RZ\ j ```ȝ `  ;:  ȃ$Ȅ"D A`4  `m-@@ x ```A`xm`  `]/ | }` ~  ~` ~ Q`` / !G<  00f B`<` B!00)= ǡG`  pp[ ^ ( / l q99BȠ\Ƞ  ȠȠ  ^ [^[؁/"  [Y[  ;N#  ; [ t/bb[ l/bb["q`[/  t, , , ,`DXTXLNK (C)COPYRIGHT TEXAS INSTRUMENTS INCORPORATED, 1977.B*ZrP P!PP      P (): ; DXTXLNK 2.3.0 78.244 MM/DD/YY HH:MM:SS PAGE ***  `2LINK EDITOR COMPLETED, ???? ERRORS, ???? WARNINGS! LINK EDITOR ABNORMAL TERMINATIONLINK EDITOR TCA ERRORLINK EDITOR TLF ERROR  /001+_<Sjz!8J{!8J l pSYS x/`  N ;N @ : * 0 2   P` 2?<9 A1 , ` `  `` ` \ * \m   rA Rj Z 8- V T T 8 t 0& tE z= 8m ݃ݭ 2 4)-`  8 T& tE z 8r 8` 2 8 \ |r 8m ݠ aݭ ݭݭŭ t 0 2 4 8 8 8E - 0- 4  ́͌͠ Nͭ[ t[  * P[ @ 0@ A[ `  L,`B V  T CB Z  X \ ,̣L A ^ 8[-ͰͰͰͰ[` 8 X 8 t ZK Z z͉ ^``ł 8 8  8 8[K 6 8 @ R  ( `  ` H́͂@́͂ݠ aݠ W͠ T͠ \͠ ZŠ X 8 2 4 t 0 8[   *[   *[  [:LINK EDITOR TASK ERROR ????, WP=????, PC=????, ST=????INSUFFICIENT MEMORY REQUESTEDUNABLE TO GET MEMORYLINK EDITOR BUGNO FIRST INPUT RECORDPREMATURE END OF FILECHECKSUM ERRORINPUT FILE I/O ERROR ILLEGAL TAG SYNTAX ERRORBAD OBJECT FORMATOUTPUT FILE I/O ERRORLIST FILE I/O ERRORUNABLE TO LOAD OVERLAYMISSING OR MISPLACED COMMANDSPROCEDURE IMAGE ERRORTASK IMAGE ERROROVERLAY IMAGE ERRORLINK EDITOR INTERNAL ERRORWORK FILE I/O ERROROVERFLOW FILE I/0 ERRORCONTROL FILE I/O ERRORINVALID LIBRARY NAMEJpJWұ  6pŠ& "'/N P^ R`T 6p "'/N Pl Rnb 6p 6d[ , CODE = UNIT = $ /  `` L%###(B( B   ##$$<#*#"# #""<+"<"< "<v#"<Ȣ`#e #b#C#`"‹6 #   ZV `@`D`, A,H$$<##$$<$TZ621X [FF$T# #9 LL  #a*QLL  a*Q L"L # #LF`$T|A@Ŝ"$T" "" Ŕ ah $T # #l"Q " #c #ģ"Nc #ģм/"#/$#/>#S/#!#$#>#"`~@E` #&`t #&`tV<ŀ(` # ŀ` #Ŝ``~8Ł``"N``e`ŀ`````v‹F`$T" &Z"ɋ"!`"/$"` "`,$8`L/4` 1` "/>"`,$<$M "8$#"`#,Aa$h$a#$a$$#`$RQ`$R,Aj!$`!#@$h!$<`!#@$/H% 0Q #+ :S0 > + +r+$ +z$+J` +&o. +(>`+&D+& + `+$vv+$F`+&vv+&F /.`+&+&F`$T`$RQ`$R`>> ++*l+"+"‹`+&+*/.`++*`+lPZ # #+*#{ ##H+*+& B@[àB[/.+"+"+y <##0C[ B"09"B[(#*$@# $# $ 0# # +$$`#$ ##`/*2% NoL`# ###` $R`$R2VF@ $TBQ`#A`<<6 <6o/$$$$ "[@ H%+еO9($ġ[H%+еO[oH|%H[% # f##% ÀH#[‹"$TZ($<# "Z$T$K-+09A/*m `/lѱ * /I/H@m  @"  *@* **@  /N* /MEF HIm  4/I/H)/J/F /J +М+ 88GB /G b@B@ABE F ABI@0$.( :61 0000 `p܀4 ܴ1 `CܱC@J!B 1C11A11܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*2* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`3"=`3$F%00څڅj ʁ*  |123| |1`a23| ? ?mCD[-mqp00A 5 'J)#ȂG4(09(H E`3  #` m@  @ p@ bA@AI5*mqm54FEmGHmr5899@DDE    ba [[BCEEF[A5NI1܀ ܱ@[6855hjY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[;6P 6|`+;6\ 6|`,b;6h 6|`,;6t 6|`->;; ;7n 7`.n;7z 7`.;7 7`/`:`SYSTEMp `;;; ;F`0<;t<;x;;R ;\ `1<<:;;l ;\`1`1  ;\`1;kR5 X]@5*N[nv#+PRTY $/ 5P$`U,Gh@M:  Ax#¼0#  %#cS#ƍSϺ'#cƌխ vz vS vv;vx #0*S@T:T @::&:y&TMMzTM8RM@R$4(4(d#T*d1R$R&R(R>R@R .10AA ATEJ (*$$D (L$$OVM) y 4  !  !=  ! @@ !=! = COMMAND LIST ABSO ACEAD ADJU AL ALLALLO ARYASCI AT AU AUTO CATE CH COMM COMP DATA DUMM EDUREENDER ERRO FIND FORM GE GLOB IALIMAG INCL LIBR LO LOAD LOBALLUTE MA MAPMEMO MT NO ON PA PAGE PART PHAS PROC PROG RAMREFS REPL RESSED RORSEAR SHAR ST SY SYMT TASK TG TO UDESYNTAX COMMAND SEQUENCE DUPLICATE NAME SIZE COMMAND EOFPR[ Z0 h3P W*P 0C0M0Y0d0m081810k1C0011 1C1CX1*{HOWA@R]WlL@Rh@Wz ;:?|QURm8.bW*zmKK*vOW*) T(vK|Qe_?>??WPRxyx&RRvK.&Pt rRRvmyxRc c ~ "xh%D27R 2= P "(`PoPpPqPr "%xRyRVx|Q `}c c zPPc΄`£vxP֍&RRvmyxW* W* ` "%KW*vW****RQUR3O2GKvKm(QvKm(yW*R aQºvJfR&!2=#Qvc1, a$c "?f2?:.KRRRR&!#aW**K**R!QQURKmvWB@R^M}gj'FQDJ0s!mm|yaQºzDa0fR 2=QaR&c1 acQf2?.(!KRRa-J0QaxvQ팁KRy9F/TJfR&RVTF/pA/FR5RV!a9RF!ͲQ!a ""R/FaRFvx" ~~8C~ bW*2"W*b.f(f:/4b'1":5"<3"<b'c ec"Lce"LcbBccvRyRV"S-+R"wfRF"t5h/p"kRFzP#z vxzP#b[KRRRR-P#FF32(")"ObGKRGKO2v}WjB^}BWz^y4tW*z(ȆbB+ "8HHN VVVVVV\lrVVVH V  $ 8 N b ~ VWǪxx ozpzqzrxxK#S_3*4343TT3#.2K"#T#;I"DOPI4W^*5O  cWI I(K"*xzzz#zzz{|vz4{K|vKW˪|4eW˪|((vK4WV2vKWVvv%|-g%|-K4gg4- #ʪУЈKȉgg##ЈKW: ggB(+BI#V;#4/#9gW:gxW˪!4gbW˪!gbWǪ!4g^W|1O$gbCUvWjWjWjgdWzNI$73T32Kv2T2$?O2v)v*vOI*bY C$YO  T$$uA) Km$m "  v~$~d" KdVn  vz  v򌪶$$ 1 v1 TxzzzzzCUv Wv" g%| -CUv I $K eWvg85g5We|%|-K$O1g1)/Odۍ gW˪vKV/|6vKW˪|%H4efUbV2vUb|eW˪||eUb|e`W%jqO%nK`1CUv` h)x(9xPORU dWJdW('%%%% % % HeeKeOeKWz'&e x 5eIUUUUUUUUU UUU"U$U&# 򮄬V:4/%9v V& </ 4-vKVhLAfA/9 KW&?.&7 4KW"76f?KW&?fVVO??|I!#HnH?NVxKVnVh&^􈐩^&f&fvx,,Kz&yzfspHzEWPKWPI!gPV&666WfV6N668C5&;&TLf/ KW& W&fW&?&KW&fG&߈KW"&fKI!0#n? K,;40+I!:K||O||G||(|z,zz@Wz;73;::&WxM@ ;:g,AWz] 'CWA]A]]&]]&]LWz ZWL&WbWjvWjWjWjWjgjBWz^ tWB^^&^vy&MzWM8h9M@h;y&WMF WFWv xW?>?H"?v x"Wv?zÌ?>??6h=WXAgchhXAaAXXAaAP hAeATAP!WAR"WXXh g g $%f %%f( %% ($88hhh7xxvRRR R RRRRR"R&R*R,R.R0RBR 09:BSCKEEGFJLOPSW ()*$B$Cy '@@  0h = , MODULE MULTIPLY DEFINED SYMBOL  UNABLE TO LOAD \PRRwv!# J)  R"8&JK F+ F? DA B 0 0 *W]W`:UFTTU+VRl8=TR`=TTV, `( ` R>"&A( K [W]W`LV  gV`b8uN uVN*`lUFT0TL"KT  KT`U+8H G HHH`>H>TRV, W> T׍"& ؄K? A 0 ljW]W`UFUUU+`UUV, ` K0`W]S"&A( X W]W`| |UFUTU+V, zJA!A!"VHQjWjD@uSXRS+!gJKQ;TQTRSKQFTQTRSKQZTQTRRlY1YWiaURS!eKQZTTRSaZR1dW!v lamN' layAx? 0V XxV 0 ZvhA( ? 0V ^x 00 `vh?' 0 0 \vh. C!07 Wk Wk/Wi Wk Wk  am"mWi Wk WkbmWiWigi.2"WibR(8Wib$'i b bgk86N;6K\/XTRSb6tsWtsjDW-wu2fWWbbWjDu,,K 0TQTfLOV"tsaF'0"9"57"aabJ S RSH HSHW S RS SS" > S >S>"Ȅ bL = b =S=W Ϫ8 G=b =S=W䌡W L' bv. Wㄅ򀄆򆌘 ..#(  C')G*G+C 13 cV,G0U7U53  cVc,.C#h0c7]c]W򬆘 m#ummkk cumqzL'>#> c2>2 c S S L> W=>S>#ń = 8 G> W=>S>#܄ =Ъ. Wㄖ #󄨶 zz8v N'쌪d WKg7F' b04=P3$*bdK bI2dK&dC79$dK9>%dK5MdKW]Wc .*dW]WcddM6NK[6#$e VN#q W]*dw*W] /XTdULK$ Tdv8 G'4WiddX /KIv$/W]XzzW$XvXTdURd4͌ WKDdĈ vL'KUdѲzL'>$> e A% . e z zdLK' UeX /W'URXze!K/E'D.Wݲ XURe5|z%L { |] g]Jj    j $F *J    T x@  p >`> 2d xv%Xg7WKg70WKg7J WKg7UWKg7UWKg7W'& &\0&VHWK*g7UWKg7UWKg7U&\fWK&*g7UWKg7U҉WKg7U%&\ eM be\W'&0&vV:xVHx3& v b.7f bv3 A! f5' f5O- #f5. \WK*g7\WKg7xxv;KU&YflL&YIl"&_""Vs"&h"<"z"DKO&&.J & .fyD'  & .fBW-_^W;z6666WVfVfVW;(fW;#&͍, W;*VfVۭL*f, W; //*f, W;*W;(W;(W;(W]((((>W>W]WcL*WKg7WKN*g7WK*g7!WKN*g7v'!WKN*g7WKg7h#WKg7Og*LK'*W WKg7OdLK$WDR vBW_7D_^^&WMB-_^g=v'lX]6(X / 'YW]g]W]KL*, *Wc((((gl'ptszWtst&'W&H &Hb&DWu-WDuu&uDWw7wuu&WMD-wughy&WŌMy&gMzWńM8hM@h ڃ.Wv x?z?6h,,RRRRRRR R&R*R,R.R2R4R6R8R:RS`~SSSU>P`lSUU>AB AtU>ASBB&B>S4 S2/ B[`B} .~~0~`U>`c<lLUDS#ͧ ͧ' ``†" `†" ߍ"``3%V)"`"`BRaBCS hB-A^ SAA^ 0 0S+!- AjAQ,|!%&QG+SQSRb~,!BvB :!8BRa;Ba;B:AA^S B BF v|z!O {BAcQb5%T`QaXSU>B BB-A%B1A!)!njKӈOaѲ0O* 0O hS 0SSU>5":K aAYU4K 0zm<"31" K"R^ hS SSU>b8V>%VK"@bPR^A5SSSRRU>b8v B:AA^S mmSSU>Ap BB-AABcS! #" BBBBBcBBBkS! #B BBABBc4U>cc%f%f#%% #P$<S%RSSvLUD3&UAMLcBAAߛBb TdBMAAA TdAbAdBB#AכA TdAߛB_AdAЛB dAЛApBf dAЛAS TBBA^d hdAЛB:ByU4 dBB#B1A"T dBBěBWABb"T dBBěB1BbU4 dBAgB1A"T d錿Z 0Z 0BBAlU4dBABR hU4dBAB hU4dBAOB:AU4dAЛAAlAj hU4dBB_BBbU4dBBěBBbU4dBB_B5BbU4dBBěB5BbU4dBB_ABbTdBB#AATdBABRU4dBABU4dBAB:U4dAЛAB TdBAYAߛA TdAB!BbFS TZUU>ABMBSZ0U4y$ADBA^rAۛASAHBB5YU4SBBYU4S'SB%&U>ZZSAZ%2U>$5<5dCy&eDMzUKM8dM@dxABA`d ()0 69EJMSW *,dy@@ hHpxACCESS ADDRESSASCIIASSIGN BACK CHAIN BACKSPACE = BUGCHECKSUM CLOSE, COMMANDCOMMON COMPLETED COMPRESSED CONTROLCOUNTCREATORDATE D E F I N $CBSEG DUMMYDUPLICATE IDT NAME END OF ENCOUNTEREDENTRY= ERRORFILE FIND FIRSTFORMAT **** G L O B A L ID ILLEGALIMAGEINCLUDEINLINE INPUTINSERT I T I O N SINTERNAL LENGTH LIBRARIESLIBRARYLINK LINKED LINKER LINKINGLIST MAPMODULE  NAMENO NUMBER OF ON OPEN ORGANIZATION ORIGIN OUTPUT OVERFLOW OVERLAYPATHNAME PHASE POST ALLOCATE PREMATURE PROCEDUREPROGRAMRANDOM READ RECORD REFERENCER E F E R E N C E SSEARCH SEGMENT SEQUENTIAL SHARES O L V E D SPACESYMBOL S Y M B O L STAGTASK TERMINATION TIME TYPE UNABLE TO U N R E VALUEWARNINGWORK WRITE`:`MAT000p MATT/TERM $MR$12$MRM$80$MT$ 1,8,13,26,31$$BC00000$$DSC$DS01$$SYS$SKI1$$CC00000$$DAN$$EAN$$12N$$MO0F$$ST02MEST02$$UIMAT000$E$C0eeS$PRINT VCATALOG`<b( ****** TAPE FATAL ERROR ****** $ DISK COPY/RESTORE 79.300$ DISK SAVE/SALVAGE 79.3000 ANSWER (Y/N) QUESTIONS WITH Y FOR YES OR LANY OTHER CHARACTER EXCEPT $ FOR NO RESPOND ANYTIME WITH $ TO RESTART  LISTING DEVICE NAME--CANNOT ASSIGN DEVICE QUIT? (Y/N) MASTER DEVICE- COPY DEVICE- VOLUME- MODIFY SYSTEM DISK? (Y/N) COPY WITHOUT VERIFY? (Y/N) PAUSE ON ERROR? (Y/N) A VOLUME NAME ERROR. SPECIFIED = VOLUME@@. ACTUAL = VOLUME@@. %FORCED WRITE AFTER READ ERROR? (Y/N) $INCOMPATABLE DISK TYPES; RESPECIFY LTRACK ALLOCATION CONFLICT. TRACKS MARKED BAD ARE NEEDED FOR IMAGE RESTORE CHANGE VOLUME? (Y/N) READWRITE2 ERROR. TRACK = 0000. CHARACTER COUNT = 0000. RETRY I/O? (Y/N)  DISK NOT 3.X FORMAT FORMAT THIS DISK? (Y/N) COMPLETE USE NAMES AS TYPED? (Y/N) AND VERIFYDISK COPY TERMINATEDNAME LENGTH ERROR +ALPHANUMERIC ONLY (0-9, A-Z), ALPHA FIRST **** BAD TAPE **** MOUNT TAPE # 00. %WRONG VOLUME/REEL/DATE/DISK FORMAT! !TAPE UNIT-OFFLINE/NO WRITE RING TYPE WHEN READY MOUNT DESIRED VOLUMES--TAPE TO TAPE ILLEGAL "CAN'T GET 0000 BLOCKS OF MEMORY #DON'T HAVE 0000 BLOCKS OF MEMORY  SYSTEM DISK READY? (Y/N) DEFAULT? (Y/N) MASTERCOPY&VERIFY ERROR--TRACK 0000, BYTE 0000 VERIFY ONLY? (Y/N) VERIFY COMPLETE  DISK OFFLINE/NOT READY-- USE ADU MAPS FOR CONTROL? (Y/N) :ENTER BAD TRACKS IN THE FORMAT: HEAD, CYLINDER; OR HHEAD, CYLINDER; HEAD, CYLINDER; ETC. TO END LIST, ENTER AN EMPTY LINE < DISK FATAL ERROR INVALID HEAD/CYLINDER +INVALID BIT MAP NUMBER ENCOUNTERED--FATAL $BAD ADU LIST RANGES OVERLAP--FATAL BAD ADU LIST OVERFLOW--WARNING # DISK, TRACK 0 OR 1 IS BAD--FATAL  DISK FORMAT ERROR 1UNEXPECTED ERROR DURING FORMAT PROCEDURE--FATAL JCOULD NOT FIND ASSIGNED DISK LUNO *** SYSTEM ERROR--SUGGEST YOU IPL *** CANNOT USE INSTALLED DISK 27 OCT 1979--11:20 !DS01 USED AS OUTPUT--IPL REQUIRED/ALL OTHER ACTIVE TERMINALS MUST BE TERMINATED * PROCESS TERMINATED DUE TO I/O ERROR. +THE COPY BEING MADE HAS BEEN DESTROYED. 4!|9 `22`2.,^!@   # P DS20DS01LP01DS0102030405 060708091011121314151617181920MT01020304JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC6VOLUME00 1979/10/27 999999 ** 01 6VOLUME00 1979/10/27 999999 ** 01 |4ME STVCATALOG 7/t vv2Tv2/2y22/d/^ en$/j `VdV 8 P0B`@ /@f8/̱đ2Z2  26` 2 26  "k 0 $ &@/!Y 7T  0P 4 $1 !  g /‘` %Q  4- v 7T 7/ 7y 7 7 7`  @ 7  78`2 7@/ "`2 2D2 ` Vx ` Vx $$x2)2` `$$$x` Vx` Vx` ` /2P2828 "  7@/ 7/22W  7| [  7 [|    . ιƹ/'g   6Jιƹ/'g  [|  Ȏy/   6y/ [ b    22 %22'2z2 v22 222@2    `z    (2 [` Vx 27 26 0  |    6@  8`9$,#4`pV!} Va2`&Va/V!x2;V!x !z$$VB2S 26p  pppP;;` [2e\` Vx 2F 26 0     2Cڈ  6F  8 2^2 $,#2`pV! Va2`&Va/V!x2;V!x !z$$VB2S 26-  pppP   * 7P @| ` 22 26X » P  0 62 Yډ 72*\ 8P2+2 26  p`!T/Z7 / 6W(݋ ݋ ݌ ݌   a B`/݌݌/(݌ Ռ 8 , 447/(  /  2W``   -p  7   7`8$  2  ` ( 7e 4&b#p ` ( 7W`  @0|  5t  2 88  ` ( 7. 4&+#p` ( 7 6  ep  7  7  7  7` ` 1 . | 4&Y .  /  0Z -P  5IH   5t6N#p `  |  4&#  5   5t6N#p|` ( 7| 7|` `  5   5t6N#p `   @!|  5t  5   5t6N#p`  1 .  $ 0Z[6D `  ֈ  < B1    ֈ 12 +2    @@ 7 7  7  7 7  7`&  n| @   7| @   7  5t v `$ -d `` 1 . | 5t v `l$ -d `` .  /  0Z -P` | @   7|  ̱ & | 5t v 22`$ -d   `z`z .'-P  P 8/BC - eа pB6 L` | 7|  -t |ȁȄ 7 | 8@C  7|2`&01 L 4  -d ``  P /  @   7  5t v 2`r$ -d   `z``;‹`82rI  2  22 %nZ`&2&2 26Z2` `22 $Z  7|)@ B8`B` " Z2`&` ` !L``[| 4 1 0 R  7 @  $2 7  4#3[K  &K  &K  Y2`N $  `` A 8C <` 2@` ( ʠA` ʠ@ Q ҀB 8/̱đ2}`&` ¢` ʢ@ ΢@ Т@ [`# `"   -t ȁȄ 7   7`801 L 4  -d ``  P /| @   7|  & | 5t!`$ -d ``$  4&#p @|  5t  4&#p 7A 1 . | 4&0 .  /  0Z "-P  5t6N#p|  4&  5t6N#p 7|2`&  5t6N#p @|  5t  5t6N#p` @ aȍG[ 8/̱đ8/̱đ2V  `Vl.VС VB [   `Vl.VB [ " `VlJV V` ( V ‹22 26[   `VlJV`  [ `VRVtV$2lVwV$VV$%   B 7 D` 2`  7 %N% 2`&  +% &%'%x'R%(p%I &"%)%d  $ $&"% %t&f %w&f %r&f %s&f %t&f %u&f %v&f %w&f }&g &g΋&j&l&n&p&r/&d &d`-:΋,B`-΋,&*& ΋,%&΋,  q->mEvq222)2 22  бAZaz [б09K2yY6. J` @w71x ` A #(('F< 8 +.zF( F< 8 +.|1* 4C6. " "*`  $5 ` A@x80 C6/$  $ ` ı0DL CŠ2:/ v`22`z2 02468ACE 28 00/,2<0&  ` 0J:0JI0&I'2828TK2/} / < /[/[60^ 7 ` Ƞ*Ƞ Ƞ `  $t@w71b "( (0 9 *C8&[΋,0< B0< <  B`,΋,0&< B0< <  B`,F 1r1v 1t1v΋,=9 < Ȣ 1v`,61 # # : "C  9"  9" #D&  $$22:ɀ( 7 &   4 ` E 7  428  E1`& 26  ( XY[;2 7 4 4 7  4[626 "  7 r 822 82 ( 7f 222 ( 7 7  ( 7222` ( 746  ep  7  7  7  74 6 L -p  7 22` 22 26X64*- 4R4x5b5l  7 G`8`8z2 82 ( 722 $8/ͷŗ 2 v 22 v` Р - 3 3 3  2 - ‡EvG eJ2`4*22 e vG L 88 74 `4*65xC -m 5`  5`5r G 7J6B$D`  7 8.65C-`     B`5r 7Y6$DB`  7 I.6t6N 6N86N2  8/ͷŗ m !2 v` 22 6t6t`6X ` 8C [ {  /C[87>а ~B@ 87>~@C/!!7!@AB8( 8B$ @P/8 88 8/8 4 4 8/82 8PI/O ERROR. CODE = XX. 87``7<;<<;4 ;<`/v??WPRxyx&RRvK.&Pt rRRvmyxRc c ~ "xh%D27R 2= P "(`PoPpPqPr "%xRyRVx|Q `}c c zPPc΄`£vxP֍&RRvmyxW* W* ` "%KW*vW****RQUR3O2GKvKm(QvKm(yW*R aQºvJfR&!2=#Qvc1, a$c "?f2?:.KRRRR&!#aW**K**R!QQURKmvWB@R^M}gj'FQDJ0s!mm|yaQºzDa0fR 2=QaR&c1 acQf2?.(!KRRa-J0QaxvQ팁KRy9F/TJfR&RVTF/pA/FR5RV!a9RF!ͲQ!a ""R/FaRFvx" ~~8C~ bW*2"W*b.f(f:/4b'1":5"<3"<b'c ec"Lce"LcbBccvRyRV"S-+R"wfRF"t5h/p"kRFzP#z vxzP#b[KRRRR-P#FF32(")"ObGKRGKO2v}WjB^}BWz^y4tW*z(ȆbB+ "8HHN VVVVVV\lrVVVH V  $ 8 N b ~ VWǪxx ozpzqzrxxK#S_3*4343TT3#.2K"#T#;I"DOPI4W^*5O  cWI I(K"*xzzz#zzz{|vz4{K|vKW˪|4eW˪|((vK4WV2vKWVvv%|-g%|-K4gg4- #ʪУЈKȉgg##ЈKW: ggB(+BI#V;#4/#9gW:gxW˪!4gbW˪!gbWǪ!4g^W|1O$gbCUvWjWjWjgdWzNI$73T32Kv2T2$?O2v)v*vOI*bY C$YO  T$$uA) Km$m "  v~$~d" KdVn  vz  v򌪶$$ 1 v1 TxzzzzzCUv Wv" g%| -CUv I $K eWvg85g5We|%|-K$O1g1)/Odۍ gW˪vKV/|6vKW˪|%H4efUbV2vUb|eW˪||eUb|e`W%jqO%nK`1CUv` h)x(9xPORU dWJdW('%%%% % % HeeKeOeKWz'&e x 5eIUUUUUUUUU UUU"U$U&# 򮄬V:4/%9v V& </ 4-vKVhLAfA/9 KW&?.&7 4KW"76f?KW&?fVVO??|I!#HnH?NVxKVnVh&^􈐩^&f&fvx,,Kz&yzfspHzEWPKWPI!gPV&666WfV6N668C5&;&TLf/ KW& W&fW&?&KW&fG&߈KW"&fKI!0#n? K,;40+I!:K||O||G||(|z,zz@Wz;73;::&WxM@ ;:g,AWz] 'CWA]A]]&]]&]LWz ZWL&WbWjvWjWjWjWjgjBWz^ tWB^^&^vy&MzWM8h9M@h;y&WMF WFWv xW?>?H"?v x"Wv?zÌ?>??6h=WXAgchhXAaAXXAaAP hAeATAP!WAR"WXXh g g $%f %%f( %% ($88hhh7xxvRRR R RRRRR"R&R*R,R.R0RBR 09:BSCKEEGFJLOPSW ()*$B$Cy '@@  0h = , MODULE MULTIPLY DEFINED SYMBOL  UNABLE TO LOAD DQ *)"@M$  DS01.S$SYSGEN.IOCOM DS01.S$SYSGEN.NOCOMM$  DS01.S$SYSGEN.SVCIO DS01.S$SYSGEN.NOFCCC$ DS01.S$SYSGEN.SYSLOG$  DS01.S$SYSGEN.DDIOSR$   DS01.S$SYSGEN.LPDSR   DS01.S$SYSGEN.DSR91$   ˂R˃ DS01.S$SYSGEN.SVCIOM$OBJECTXXXXXXXXXXXXXXXXXXXXXXXXXXDS01.S$SYSGEN.SKI1.LINKSTRMXXXXXXXXXXXXXXXXXXXXXXDS01.S$SYSGEN.SKI1.LINKMAPXXXXXXXXXXXXXXXXXXXXXXX1XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXnx˂AQPTRSBASADJXBIDDERBIDQUEJBIDTSBPBM$CNTBM$LMTBM$SIZ!BM$SZ BPT @CLKPC CLKWSPCMEMSZ COM CR CRT CRT911 CS CTRYVLCURMAPDINT DIODSR DIOPDT DRTWP  DSC DSTUNTZDTBSY ZDUMMY DXDB DXSTRTENDADDVENDDXLTENDLIMRENDSTB?ETSK ^FIDMAPFM$ABDFM$PC FMPTSBxFMQSERnFMTTSBfIIE opIIWSP pILLSVC JIOSHBC IOSMAX IOSSTA ITSB K`ITSKCR ITSKMXKBI911 KBST01KBST02KBTAB LDTLST ~LP LPHAN LPINT LPSPUR MAPCMNMAPFK MAPLSTMAPMR MAPSHDMAXIO MAXST2MAXSTAMEMSIZNMEMSW PMPDS01(MPDS02(MPDS03(MPDS04(MPDS05(MPDS06(MPLP018MPLP028MPMT01XMPST01HMPST02HMT MTHAN MTINT NUMDEChOADPTR@fOF$FCBOF$LDTOVYTAB_PDLP010PDLP028PDTLSTPF$FCBPF1LDTPF2LDTPF3LDTPRUPWPo8PSBLST jPSBSTR pPSDS01 PSDS02<PSDS03PSDS04 PSDS05 PSDS06 PSLP01,PSLP024PSMT01 RPSST01PSST02zPWRDN n~PWRUP nPWRWSPo2RF$FCBRF$LDTRIDMAPjRSTRIDRSTRSWSABADD,SAHEAD(SAHIAD0SATLEN.SCIBMX?SCIFMX@SCRASHaSCWSP n2SKI11 @SKI12 @SKI13 @SKI14 @SKI15 @SKI16 @SKI17 @SKI1A @SKI1C @SLCNT bSLCTIMdSLICE SLNFLG SLNLID SLNLUN SLNMCA SLNQUE STUNITSTUNT4SVCPRC lSYSTAB TABSIZ2(TDI911 2(TDL \THEENDpTM$DFRfTM$SLCTM$TSVTMESLCTMTOL @TMTOLNDTMTOLOFTOLBETJTRAPRTe^TRTWP JTSKLST`TSKSTRbTTY UABADD$UAHADDLUAHEAD UATLEN&UPS xUSVCLNUSVCMXUSVCTBWPDS01 JWPDS05 WPMT01 XY F4SLPBQCGXPUSH3 a SLQCNTK#SLMQUEKYEAR N*TMQUE jPOP3 aZABPRB2OHABTLDTNXABTPDTNAQLEN JRAQXT0 NJAQXT1 NLASPQUEKBBIDTSKJ`BLANK JBM$DELS$BM$FLSQ6BM$IORRBM$IOWRBM$LNKSBM$MAPS:BM$MP2SBM$MPBS,BM$MPKSBM$SCHQBM$TRMRnBM$UPDQzBUFCHKSBYTE01JBYTE02J BYTE03IBYTE04J BYTE05J$BYTE06J%BYTE07J&BYTE08JBYTE09J'BYTE0AJ(BYTE0BJ)BYTE0CJ*BYTE0DJ+BYTE0EJ,BYTE0FJBYTE10JBYTE12J-BYTE13J.BYTE14J/BYTE15J0BYTE17J1BYTE19J2BYTE1DJ3BYTE20JBYTE24J4BYTE30JBYTE40JBYTE41J5BYTE42J6BYTE44J7BYTE45J8BYTE46J9BYTE47J:BYTE49J;BYTE4FJ<BYTE50J=BYTE52J>BYTE60J?BYTE80JBYTEB3J@BYTEB4JABYTEB5JBBYTEB7JCBYTEB8JDBYTEBDJEBYTEE0JFBYTEFEJGBYTEFFJCLEANQJCMDFLGJPCOMMQ KVCP$IDLJNCTRYCDaDAY N,DDTTSBLDELQUEKDEVLDTNTDGNQUEJDM$QUEJDMGTSBLENDACToF$FLG _FLG12 `FLGWCS`FM$EXTT6FM$IO TdFM$RDMUFM$WTMUFMT000JHFMTINFJJFNDSTKmfFSTXFRfFUTQUEJpHOUR N.INSQ K.INSQUEJzINVOL KLIOQUCBeKILLQ K$KILTSKoKTIO OKTSKPCPKTSKWPPMAPOFFQMAPON QMAPQUEKMAPRECVMINUTEN0MM$FNDWrMM$GS0]6MM$GSA\tMM$GUA[^MM$PAKaMM$RL2^hMM$RLM]MM$ROL^^MM$RSA\MM$RUA[MM$SCN^MM$TSB]LMMFNDBJXMMFNDQJMMQQ JMMUMAXJZMMWQQ JMSGQUEK8OVYENDaOVYQUEJOVYTSBKPDTSAVJTPOP0 aPOP1 ajPOP2 abPOP4 aRPOP5 aJPOP6 aBPOP7 a:POP8 a2POP9 a*PUSH1 a$PUSH2 a"PUSH4 aPUSH5 aPUSH6 aPUSH7 aPUSH8 aPUSH9 aQHEAD JpREADS hRRETRIDdRSET12oRWTQUEJRWTTSBL,S$$LENS$$PATGSBDQUEJSCHDWSn2SCHRETeSCR$DAaSCR$HDaSCR$PCaSCR$SCaSCR$SLaSCR$TKaSCR$WSaSECONDN2SHDSTKlSO$BTOhrSO$LTOhdSO$RFOhSOVTSBMSOVYQ JSUSPQIc SVCFNDlSVCTSBM^SYSPF JbSYSPFNJhTDUDWSN*TICKS JLTLDTSBK`TLDWS nRTLQ JTM$BLKJ^TM$CLRaTM$DECaTM$DORi6TM$EXT`TM$INCaTM$OPNi|TM$QRMkTM$RDRkTM$T0 JLTMAQ0 iTMAQUEiTMBID0c2TMDLSTpTMDQUEjTMLLSTpTMMLIPJVTMRDALkFTMRDDLkTMSUSPcTMTREEeTMTSBFJ\TMTSBQjTMTSCHdTMWOM JTMWOMOJTMXCLReTMXDECeTMXINCeTMXWS e>TOLDELlTOLLNKkTOLTDLl4TOLTSGlRTRACE nrTSKRLD_UPDFDRUWD0000IWD0001IWD0002IWD0003IWD0004IWD0008IWD000FJWD0010IWD0020IWD0030JWD0040JWD0064JWD0080JWD00FFJWD0100JWD0200J WD0400J WD0800JWD1000JWD2000JWD2020J WD3000JWD3800JWD4000JWD8000JWDFFFFJ"WRITEShNXOPRT1e^XOPRT2eXOPRT3eTLDLODOVYLDR RWTRTN XDDT DSCMGRSVCCLN @SOVLDRNONDEV AABEXIT FMOPENjFMCLOSFMWRITBWRTSEQ CKWRIT CKLOCKVBM$RD  BM$REL SCNPDTSLCSUS bENDTSK FMREAD:SCHED TLDSTKBM$CLO BM$NEW BM$RDUBM$RMDBM$W LBM$WRN6BS  FMACESOFFLCKONLOCKUBS  nKI$BEGBDOVYQHBIDSTKDM$PC ~DM$WP OVYSTKRDDIR RWTSTKnTLDPC TM$LDRTMALPR TMIMAG TMLDPR LTMLDTK COMMONCOMSIZ ASCCHKASCCK2BRCALLtBRCALTvBZYCHKCLKSW CMODE COMWIO CP$SSWDBGN10DDTBGNDDTFLGDDTRTNDDTWP DIAL2 DIALUPDSAVWPENDR0 NENDRCD,ENDRSM:GETC GTADDRJMCALLJMCALTJMSTATKEYFUN:MAPCHKXPUTCBFPUTEBFSCB SETWPS"TILERR\TMOUT WAITIOWANYIOXFERM .DDSTAK TM$DPR CP$II FNDLDT  COMMWT FNDUCB  dCOMEND COMTHR COMUCB ABTIOX ACTTSK ASGLUN ATDLYT NBF$COM  BYTE28 uBYTE88 tCBDA CBHA CCHRIN  CDAB dCHAB TCHGPRI nCHRINP  CLSKSB RCOMMQ2 DD$COM DD$E01 DEV0  DEV0RD  DEV1  DEVEND  cDTTIM  ENDPGM EXCTSK  FUTKIF  dFUTPSM 'FUTPSO  FUTSDT  PGETCOM  GETDAT  GETPRM  GTEVNT  GTEVTL  GTOVYT HOTSK ILLOP IOS IOS1 IOS4  IOS5  IOSCOM  IVBUF ,IVDEF1 IVDEF2 KIFDT  $KIFSM &KIFSO  KISTRT  bMAXOP MAXSVC MMM$GTM MM$RTM MM$SVC MMINTE ROPADJ  aOPNLUN PRIVIL FPUTDAT  4RELFDT  .RELFSM RELFSO  BRETCOM  RSTEAC RTVDAT SCTAB SDTIM  SEQFDT  .SEQFSM SEQFSO  BSVCBUF SVCDEF SVCLEN SVUBUF DTDLY TM$EAS RDUMMY 11/14/7914:5DUMMY 11/14/7914:56:17SDSLNKD$DATA GX01/23/9014:49:28SDSMACSYSLGY GXR11/14/7914:57:38SDSLNKROOT G)B11/14/7914:59:29SDSLNKFILMG 11/14/7914:58:00SDSLNKDUMKIF  11/14/7914:56:08SDSLNKMEMRES ~~11/14/7914:58:41SDSLNKDUMCOM 11/14/7914:56:00SDSLNKIOCOM 11/14/7914:58:21SDSLNKNOCOMM 11/14/7914:59:11SDSLNKSVCIO .. V 0DUMMY  V VSKI1 p VSKI11  VSKI12 ~ VSKI13  VSKI14  VSKI15 . VSKI16  VSKI17  VSKI1A  VSKI1C  V$DATA   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs  >@BFHJLNPRTVXZ\^`bdfhjlnp    <<>|A|AC         !"#$%& '!"( #  $  %&'(  )*+,-./0123)*4+56789,-./01:;<2345=>?@6789:;<=> !"?@AABBCD#$%&C'()*+,D-.E/01F234EFGHIJKLMNO5PQRSTUVGH67W8XYZ9[\]^:;<=>?@ABI_`abcdefghijklCDEFGHIJJmnoKLKLMNMpqrNOstPOPQRuvwxSTUyzVWXYZ[\{Q|R]STU^}~_`abcdVWeXfYghZijklmnopq[rstuvwxyz{|}~ABTLDTAQPTRSAQXT1 ASPQUEBIDTSKBM$MPBBM$MPKBUFCHKBYTE01BYTE03BYTE04BYTE05BYTE06BYTE07BYTE08BYTE09BYTE0DBYTE10BYTE12BYTE14BYTE15BYTE1DBYTE20BYTE24BYTE40BYTE80CLEANQCLKSW CMDFLGCOMENDCOMMQ COMTHRCOMUCBCP$IDLDBGN10DDTBGNDDTFLGDDTTSBDDTWP DELQUEDEVLDTDGNQUEDM$QUEDSC ENDACTENDRSMETSK FSTXFRFUTQUEINSQ INSQUEINVOL IOQUCBIOSHBCIOSMAXIOSSTAITSKCRITSKMXJMCALTKBTAB KILLQ KILTSKKTIO MAPCMNMAPQUEMAXIO MAXST2MAXSTAMM$GSAMM$RLMMM$RSAMM$RUAMMQQ MMUMAXMSGQUENUMDECOVYENDOVYQUEOVYTABPDTLSTPOP0 POP1 POP2 POP3 POP7 PUSH1 PUSH2 PUSH3 PUSH7 RSTRSWRWTQUESBDQUESCB SCHDWSSCHRETSCRASHSCWSP SHDSTKSLCNT SLCTIMSLNFLGSLNMCASLPBQCSLSVC SOVYQ STUNITSTUNT4SUSPQISVCFNDSYSLQ TDL TDUDWSTLDTSBTM$DFRTM$EXTTM$INC ĹyOĹ yO aa˗ahYaѠqaAOzO٣i7٣h5٣hyY6-2P+,,-/z-/-B08- ---2 Oa aopӎihhoPhz\M8t7Abi0m̸ zȚ5Ș6iozYͧXh+$.Pȁ.,/ Єhp/Jx`( (/2؄P*>p..€..`xp`hX@HPІ,r.R `p  6{@ ,x@80H. H.+."-R-*.ذ ` {zzO͡aiGʖaʖzp(9h"xμ`μ(μxν`ν(νY!Y!|Q|Q}Q~Q|}~μZμ"μ} p}8}8}6}:+l" 8 ,,~(`.` *|*}P -J~`,x ,…腀*" :`  *} ,… ȀQȀQȁȀȁj9]m OoPnQzѷzYaAm/aAњtnn:\fPt\vin?vEī/AEEZHZHviZHīZ>n:nZHZHc#&`( (0/2؄P* *(08@8@X+z-(0+-- o9mo_owm@躯[ޭhh[hthKhKnKKhKnK[9{no_{n{ņ{nlhzo_hz @&9͈hh$-؂/"x8,ZH.+ * ā*/ S mKKK- S/K K KKQMNOrò  @P  j,` -`!j /`! /' ` `!/`!/`!/,*ʇ,j,'-J!****!# xaʁ,G!#"` j,` .*#2CDD C`! `!/С B $2D. j,` <.` -m (1 1   2 D   2⊂ʂ` j."2 ܃[ E` B`!/! 0C`!E/! !   ʂʁ,[&"`!/`!/ @P T^#m(<(ȁȠ#ؠ#Ƞ# /"gؠ#ؠ#/"Y" c WL$QL* S ȃB $ #" Kؠ! /ȃؠ! /"pD bA 4$L*m ؠ! /ؠ! /ؠ! /ؠ#/ؠ#/ؠ#/   &"@@ *ERROR, COMMAND OR SCROLL FUNCTION REQUIREDP -+T>$! /! /'`'<'p D`'2! /  S`'6G 'F`'B S`'2>`$1 `$`@n $ 7  6|`'BKŒ$$$2V$$#  P`'C!"  P6`'B$$@n($$@n#  PИ$ǘ$$\kI Š ! 0C! " PY"C! PM -! !# P7 /C!"  P"' / `%B$>Ԡ$ . ѐ`%  @T'J S<`! /!  Sܠ$Ԡ$`@n S H/'.'q D) '$ $ `? $$ S ԃ  7!!$ /' 'p D!$ /H@g Sg*p *xJ!ʁp*v((( (vjd ((I`@*v*pʪhj((( (@(( @ڻb*zʐnʪpf/`*a ; K/r[\m*P*P |12)| |1`a2)| ? ?mCD[-mqp00A + 'J)#ȂG*(09(H E`)  #` m@  @ p@ bA@AI+*mqm+*FEmGHmr+899@DDE    ba [[BCEEF[A+NI1܀ ܱ@[>K-+09A/*m `+vѱ * +S+R@m  @"  *@* **@  +X* +WEF HIm  4+S+R)+T+P +T +М+ 88GB +Q b@B@ABE F ABI@J!B -RC-.-.A-P1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  --hEeD4 4-YtW@tPtN-Kђ -E+`DԁC5u @1`-taC$-   At-  aԇt  : 09AZS.S0z0SCQHT.S SY `@n P . 7S0z S #`.`.!ԃ C`.`.`@n . 7.S`@n C# .A 6|  B..52 @S/-m8 h8 8 uS0S0z0SCԒ0,Qp  ђ 'S 6 6v[ @[?̋ԑQH?a`.?rRA[KQp @1"8 8 8 YYKQp @  1"8 8 8 uYBSA3 ѵ s=s;DF!5S3+S..... . . ..[[  :  T1@f`3 S <`! /!  `3  55 66 S`3`3 3  3 - t  4 @@m  5@ @@ 1`@p`@i H 1 @m@h?j- ?A@ AD SFE55E `D pR A5`DA15`A`?f1 ?j C `D5`A`G665m66@T3 ?`5mQ 1 S55`A66`5ƈA`5 S0`55@h`5 `55 @15?j  5 @66G `D ? A 1 1?fԸT1 ?j A 6|`5R  8V 1 Q<`5 S 5`A661`31`31(3 ?.G S  ?j%@Q"q Q<`4 `DA 1 7=1 ?jt`3I S?j8V 1 Q<FGvFG@`?f ?hS`1@`1@[?h SC` ?f S Q<[@ ?f?h Sx??ԃ 7[@ S6 S@ WHEN READY MOUNT DESIRED VOLUMES--TAPE TO TAPE ILLEGAL "CAN'T GET 0000 BLOCKS OF MEMORY #DON'T HAVE 0000 BLOCKS OF MEMORY  SYSTEM DISK READY? (Y/N) DEFAULT? (Y/N) MASTERCOPY&VERIFY ERROR--TRACK 0000, BYTE 0000 VERIFY ONLY? (Y/N) VERIFY COMPLETE  DISK OFFLINE/NOT READY-- USE ADU MAPS FOR CONTROL? (Y/N) :ENTER BAD TRACKS IN THE FORMAT: HEAD, CYLINDER; OR HHEAD, CYLINDER; HEAD, CYLINDER; ETC. TO END LIST, ENTER AN EMPTY LINE < DISK FATAL ERROR INVALID HEAD/CYLINDER +INVALID BIT MAP NUMBER ENCOUNTERED--FATAL $BAD ADU LIST RANGES OVERLAP--FATAL BAD ADU LIST OVERFLOW--WARNING # DISK, TRACK 0 OR 1 IS BAD--FATAL  DISK FORMAT ERROR 1UNEXPECTED ERROR DURING FORMAT PROCEDURE--FATAL JCOULD NOT FIND ASSIGNED DISK LUNO *** SYSTEM ERROR--SUGGEST YOU IPL *** CANNOT USE INSTALLED DISK 27 OCT 1979--11:20 !DS01 USED AS OUTPUT--IPL REQUIRED/ALL OTHER ACTIVE TERMINALS MUST BE TERMINATED * PROCESS TERMINATED DUE TO I/O ERROR. +THE COPY BEING MADE HAS BEEN DESTROYED.  ,|9 2^.,^T! @  8 # 8P DS20DS01ME DS0102030405060708091011121314151617181920MT01020304ME JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC6VOLUME00 1979/10/27 999999 ** 01 6VOLUME00 1979/10/27 999999 ** 01 |94ME STVCATALOG 7/t vv2Tv2/2y22/d/^ en$/j `VdV 8 P0B`@ /@f8/̱đ2Z2  26` 2 26  "k 0 $ &@/!Y 7T  0P 4 $1 !  g /‘` %Q  4- v 7T 7/ 7y 7 7 7`  @ 7  78`2 7@/ "`2 2D2 ` Vx ` Vx $$x2)2` `$$$x` Vx` Vx` ` /2P2828 "  7@/ 7/22W  7| [  7 [|    . ιƹ/'g   6Jιƹ/'g  [|  Ȏy/   6y/ [ b    22 %22'2z2 v22 222@2    `z    (2 [` Vx 27 26 0  |    6@  8`9$,#4`pV!} Va2`&Va/V!x2;V!x !z$$VB2S 26p  pppP;;` [2e\` Vx 2F 26 0     2Cڈ  6F  8 2^2 $,#2`pV! Va2`&Va/V!x2;V!x !z$$VB2S 26-  pppP   * 7P @| ` 22 26X » P  0 62 Yډ 72*\ 8P2+2 26  p`!T/Z7 / 6W(݋ ݋ ݌ ݌   a B`/݌݌/(݌ Ռ 8 , 447/(  /  2W``   -p  7   7`8$  2  ` ( 7e 4&b#p ` ( 7W`  @0|  5t  2 88  ` ( 7. 4&+#p` ( 7 6  ep  7  7  7  7` ` 1 . | 4&Y .  /  0Z -P  5IH   5t6N#p `  |  4&#  5   5t6N#p|` ( 7| 7|` `  5   5t6N#p `   @!|  5t  5   5t6N#p`  1 .  $ 0Z[6D `  ֈ  < B1    ֈ 12 +2    @@ 7 7  7  7 7  7`&  n| @   7| @   7  5t v `$ -d `` 1 . | 5t v `l$ -d `` .  /  0Z -P` | @   7|  ̱ & | 5t v 22`$ -d   `z`z .'-P  P 8/BC - eа pB6 L` | 7|  -t |ȁȄ 7 | 8@C  7|2`&01 L 4  -d ``  P /  @   7  5t v 2`r$ -d   `z``;‹`82rI  2  22 %nZ`&2&2 26Z2` `22 $Z  7|)@ B8`B` " Z2`&` ` !L``[| 4 1 0 R  7 @  $2 7  4#3[K  &K  &K  Y2`N $  `` A 8C <` 2@` ( ʠA` ʠ@ Q ҀB 8/̱đ2}`&` ¢` ʢ@ ΢@ Т@ [`# `"   -t ȁȄ 7   7`801 L 4  -d ``  P /| @   7|  & | 5t!`$ -d ``$  4&#p @|  5t  4&#p 7A 1 . | 4&0 .  /  0Z "-P  5t6N#p|  4&  5t6N#p 7|2`&  5t6N#p @|  5t  5t6N#p` @ aȍG[ 8/̱đ8/̱đ2V  `Vl.VС VB [   `Vl.VB [ " `VlJV V` ( V ‹22 26[   `VlJV`  [ `VRVtV$2lVwV$VV$%   B 7 D` 2`  7 %N% 2`&  +% &%'%x'R%(p%I &"%)%d  $ $&"% %t&f %w&f %r&f %s&f %t&f %u&f %v&f %w&f }&g &g΋&j&l&n&p&r/&d &d`-:΋,B`-΋,&*& ΋,%&΋,  q->mEvq222)2 22  бAZaz [б09K2yY6. J` @w71x ` A #(('F< 8 +.zF( F< 8 +.|1* 4C6. " "*`  $5 ` A@x80 C6/$  $ ` ı0DL CŠ2:/ v`22`z2 02468ACE 28 00/,2<0&  ` 0J:0JI0&I'2828TK2/} / < /[/[60^ 7 ` Ƞ*Ƞ Ƞ `  $t@w71b "( (0 9 *C8&[΋,0< B0< <  B`,΋,0&< B0< <  B`,F 1r1v 1t1v΋,=9 < Ȣ 1v`,61 # # : "C  9"  9" #D&  $$2~$22:ɀ( 7 &   4 ` E 7  428  E1`& 26  ( XY[;2 78 4 4 7  4[626 "  7 r 822 82 ( 7f 222 ( 7 7  ( 7222` ( 746  ep  7  7  7  74 6 L -p  7 22` 22 26X64*- 4R4x5b5l  7 G`8`8z2 82 ( 722 $8/ͷŗ 2 v 22 v` Р - 3 3 3  2 - ‡EvG eJ2`4*22 e vG L 88 74 `4*65xC -m 5`  5`5r G 7J6B$D`  7 8.65C-`     B`5r 7Y6$DB`  7 I.6t6N 6N86N2  8/ͷŗ m !2 v` 22 6t6t`6X ` 8C [ {  /C[87>а ~B@ 87>~@C/!!7!@AB8( 8B$ @P/8 88 8/8 4 4 8/822ď 8PI/O ERROR. CODE = XX. 8XES P ΋΁aB!@ (al΋΁aBal΋"Xbȡl΋B!X!@  a !DI L l΋1  8<ʃl΋CjE(7 ÁD!D!4jD BÀ#ʅl΋ dX!Z <[ ` Pd !*R TVl΋TV<`PR`ĀCTV8`PXRa T8P$XBl΋΁ t`a !Dvl f5 f Nh. fh t&΋΁`a !DztJZ΋ fjlnpr f f΋jlnpr t g/d dl $ p`pr`a!Kg/d d f`a `?l΋%ȡ4a&CBx`l,,΋a? E %eD Aj34 rˡʂؠ JؠL634 rˡ:*$"V̴C! @&̴A# c& E!@>+ŀE6p9D =D:<l, j  ,΋HBl΋O!&BVl΋,n\,r/r,rlP$΋*n YVa BvB $&|$B@B "BBAaz AN!J4l ۯ ۠x ۠y n ہ l΋AN!N!ܱܠԅl .,,΋*n   ۠ l P$΋ C( `e$De@DD ۯ l/ ۯ CB˃C C % C * +l Q^b^^ȃ^./˨˨^b^^ȃ^B!XШ#ۨ *   l۠& ΋. .n!X"l Q^b^^ȃ^/^b^^ȃ^ۨ    . ۯ lہ ÄfXIziIzXLTd D(4X(Z #X( +6I &^ R2^$ TASK/ l!(,n,r h^^HG)/i/ ^("$$ h@ hX`% lJ!,nh@ HB FhBBhFBhBh@@aFBDFȃFDHDFFhDBFȁD(  h@! !&) ¤Ƞ(Ƞ2Ƞ4 ؃ ب بh ؃Ȩ(Ȩ*Ȩ,Â( 0/ ,A,B  S    # ?Qpj 4BܱܱܱܱܱBA<`2< `?|?| D ?t?|M$00.S$NEWS #WARNING: SYSTEM IS NOT INITIALIZEDX$$12$$DA$$EA$$MO$$ST$$UIMENY # ?Yj4 CI`SFB`BP`! /`BN@Ԓ!C `BN '?| С#`! /РD E`= 'F ? @  `BN`Cx @@C ?|`; D Sn Fx Sn~ ? Sn% SG ''00 Sn`S9T=V'00 SnST SnAa0!1q Sn`; ?~$?|x K* /K* |?~ S`SҠAa0!@` `, ?~?|`;.()Z` ` `<  D.`  Q<` 4 G Q<`   ><|Ȅؠ Ƞ Ƞ / 'HFFD,ؠ ؠ /51BL.ؠ /":ؠ /"3E @ @@z.=ܠ/!Q! HC~`< ?v2`/ S!BL =$09AZZYYYYYYY`< $T B Q<Z;< v;#  PC P  ԁ`;`;ZC  SC`@`;`;"() ,=Z2T ԙ`< <`B:ܙYY2'Y%Y2YY`< <2`B`;  `;nv`<tQ`;ZI2  <`BB;`; `;()ZĘ<Z<D  SD`@`;`;NYZP &('`;<`; `<9X <`;B2  C`%SCI990 FATAL ERROR - END ACTION TAKEN S Lv^`;` L`C~ SnPzȠKP L SC/!nD @n SBNx/# t#/#xF> Q" Q"`||`<z5<>tx @?ԴR|?܆ ܴ?`PzQdPz SnPz V `;`; `;Y()> q Ԅ Q<ԃ>[`; ,S@xAx`Pz ;`@>ԑ Q<Bԑ||> r*1"K@ z;`K@r;& `; A!@xKCODELUNOOVLYPARMSTASK v;  PS`; v;  P@x`; K2 K2 v   PA; K4 K6 K8 K: K4ܱA`;Q4Z9 <Q4 SnvZ9 <`; < `;() ?) R2 <Y/ 1fS. . < ;hd ;L`ԑ Q<Bԑ|t>1"PKB KD3D `T@KHR%܅rrRܳ`S`BN%KF@ `BN%KG`KF p`BN`KG`BN`KFKH@ ܱS1"1"8KB KD/B` B`1"#KB`KD 3Bs``;  '`;΀CODEM$01TEXT@YQp}BܱܱܱܱܱBA<`2 S)SҠ0# | t{< 4 SҠ0# g tf`, Y #KP >ԑ Q<Bԑ||>1" zKRԲ Q<Cv1" z v#  PKP 4<`2<  # ?t``;`; ?tQ4 Sn `Pza / Sn     Sn# `, C`m* "ròAC* * ā*/ S mKKK- S/K K KKQMNOrò  @P  j,` -`!j /`! /' ` `!/`!/`!/,*ʇ,j,'-J!****!# xaʁ,G!#"` j,` .*#2CDD C`! `!/С B $2D. j,` <.` -m (1 1   2 D   2⊂ʂ` j."2 ܃[ E` B`!/! 0C`!E/! !``SYSTEMp$$DSC$DS01$$SYS$SKI1$E$C0SLGY3SYSLGY>47F8SYSLOG>99CES97927DSR979>7AA0DSR733NONEDSRKSRNONE$$DAN$$EAN$$12N$$MO00$$ST01MEST01$$UISYSTEM$$CC00000`:`MAT000p MATT/TERM $$DSC$DS01$$SYS$SKI1$E$C0SLGY3SYSLGY>464ESYSLOG>982ES97927DSR979>7900DSR733NONEDSRKSRNONE$$DAN$$EAN$$12N$$MO00$$ST02MEST02$$UIMAT000$$CC00000@R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0001> BATCH LS=YES LS (LIST SYNONYMS) ? YES& BATCH LISTING ACCESS NAME  .TEMP&, BATCH INPUT ACCESS NAME  .PATCH.PROGA , STATION ID  ST02  USER ID  SYSTEM & LISTING ACCESS NAME  ** NULL ** & LIST SYNONYM SYNONYM  VALUE  $$12  N $$CC  00000 $$DA  N $$EA  N $$MO  00  $$ST  02  $$UI  SYSTEM  $E$C  0 ME  ST02  VOLBLD  REL33$ 17:09:01 TUESDAY, APR 01, 1980. $$ 17:09:02 TUESDAY, APR 01, 1980. $R( <0002> **********************************************************************R" <0003> *  PROGAPATCH FILE"D! <0004> ********************************************************DR(B0000B0000B0000B0000B0003C0108B0000B0000B0000B0000B0000B0000B00037F29FF D$DA0011RR(C0108B0000B0000B0000B0000B0000B0000C0168C0178C02E4B0000B0000B00007F268F D$DA0012RR(C0178B0000BFF00B0000B0000B0000B0000B0024BF000C01DEB0000C01AAC02E47F1EBF D$DA0013RR(B0000B0000B464DB3031B0000B0000B0000B0000B0000B0000B0000B0000B00007F286F D$DA0014RR(B0000B0000C00D8B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F292F D$DA0015RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B8000C0D7EB00007F276F D$DA0016RR(C016EB0000C01E4B0000B0000A01E4A01F8C0204A01FAA0204A02E0B454FB53007F1CCF D$DA0017RR(A02E4B0000B0000B0000B0000B0024BF000C034AB0000C0316C0450B0000B00007F24BF D$DA0018RR(B464DB3032B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F285F D$DA0019RR(C00D8B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F292F D$DA0020RT**************H <0005> * BEFORE EXECUTING THIS BATCH STREAM, THE SYNONYM 'VOLBLD'HL <0006> * MUST BE ASSIGNED THE VALUE OF THE DISK VOLUME NAME ON WHICH LN <0007> * THE PATCHES ARE TO BE APPLIED.THIS IS ACCOMPLISHED USING THEN8 <0008> * 'AS' COMMAND WITH THE FOLLOWING VALUES: 8 <0009> * $ <0010> *  ASSIGN SYNONYM VALUE$  <0011> * SYNONYM: VOLBLD & <0012> * VALUE: (NAME OF DISK) & <0013> * R( <0014> **********************************************************************R <0015> *  <0016> .SYN $E$C="0" B <0017> .SYN PROGA = @VOLBLD.S$PROGA  ! TARGET PROGRAM FILE B< <0018> .SYN LOADER = @VOLBLD.S$LOADER! TARGET LOADER <B <0019> .SYN OVLYA = @VOLBLD.S$OVLYA  ! TARGET OVERLAY FILE B0 <0020> .SYN S$SDS$ = @VOLBLD.S$SDS$! TARG0 ET SDS PROGRAM FILE ( <0021> .SYN PROC = @VOLBLD.S$PROC(( <0022> .SYN SCI990 = @VOLBLD.SCI990(R( <0023> **********************************************************************R <0024> * 0 <0025> *  BEGIN PATCHES FOR RELEASE 3.3.00 <0026> * R( <0027> **********************************************************************R <0028> * < <0029> *=P0371 GJ 11/30/79STR #054103.3.0 PROCS< <0030> * > <0031> * THE COPY PROGRAM IMAGE PROC HAS AN ERROR IN THE>> <0032> * SECONDARY PROC FOR COPYING OVERLAYS ONLY.THIS>> <0033> * PATCH WILL ALLOW COPYING AN OVERLAY WITHOUT THE>6 <0034> * NEED TO SPECIFY AN ASSOCIATED TASK ID. 6 <0035> * . <0036> MRF PN=PROC.CPI$O,RN=>00,FW=>0052,.* <0037> V=(>3D53,>5452,>494E,>4720),* <0038> &D=(>3D2A,>5354,>5249,>4E47),C=>7270 & PATHNAME  PROC.CPI$O R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R RECORD NUMBER  >00 FIRST WORD  >00520 VERIFICATION DATA  >3D53,>5452,>494E,>47200" DATA >3D2A,>5354,>5249,>4E47" CHECKSUM  >7270$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA , 0052 3D53 5452 494E 4720  =S TR IN G , CURRENT DATA, 0052 3D2A 5354 5249 4E47  =* ST RI NG, $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0039> EC <0040> *$R( <0041> **********************************************************************R <0042> * < <0043> *=P0372 KDK11/30/79STR #054093.3.0 PROCS< <0044> * $ <0045> * THE SHOW COUNTRY CODE$" PROC HAS AN EXTRA COMMA AT THE "D! <0046> * END OF THE PROMPT LIST WHICH CAUSES THE ERROR MESSAGED: <0047> * "ERROR 9007 - INVALID TYPE SPECIFICATION". : <0048> * D! <0049> MRF PN=PROC.SCC,RN=>00,FW=>0042,V=>2C20,D=>2020,C=>2020 D PATHNAME  PROC.SCC  RECORD NUMBER  >00 FIRST WORD  >0042 VERIFICATION DATA  >2C20 DATA  >2020 CHECKSUM  >2020$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00422C20 , CURRENT DATA 00422020 $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0050> ECH# <0051> MRF PN=SCI990.PROC2,RN=>026,FW=>02EC,V=>2C20,D=>2020,C=>2020H PATHNAME  SCI990.PROC2  RECORD NUMBER  >026  FIRST WORD  >02EC VERIFICATION DATA  >2C20 DATA  >2020 CHECKSUM  >2020$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  02EC2C20 , CURRENT DATA 02EC2020 $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0052> EC <0053> *$R( <0054> **********************************************************************R <0055> * > <0056> *=P0373 GJ 11/27/79STR #054083.3.0 SEQ KIF> <0057> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RD! <0058> * IF A DELETE BY KEY IS PERFORMED ON A SINGLE KEY FILE,DF" <0059> * THE COMPLETE CURRENCY MUST BE SET IN THE FRQ, NOT JUST FF" <0060> * THE DATA BASE INFORMATION. THIS IS SEEN AS A >BD ERRORFB <0061> * ON A SEQUENTIAL PLACEMENT SINGLE KEY FILE FOR A DELBETE > <0062> * BY KEY WHEN CURRENCY HAS NOT BEEN ESTABLISHED. > <0063> * * <0064> MRF PN=OVLYA,RN=>0B,FW=>002A, *6 <0065> V=(>CCB1,>CCB1),D=(>0469,>0236),C=>065F 6 PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >002A$ VERIFICATION DATA  >CCB1,>CCB1$ DATA  >0469,>0236 CHECKSUM  >065F$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  002ACCB1 CCB1  .. .. CURRENT DATA 002A0469 0236  .i .6 $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0066> EC* <0067> MRF PN=OVLYA,RN=>0B,FW=>0234, *: <0068> V=>FF45,D=(>FF45,>CCB1,>CCB1,>0221),C=>FD64 : PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >0234 VERIFICATION DATA  >FF45  DATA  >  FF45,>CCB1,>CCB1,>0221 CHECKSUM  >FD64$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  0234FF45 .E  CURRENT DATA, 0234 FF45 CCB1 CCB1 0221  .E .. .. .!,   NEW DATA : CHECKSUM = FD64 L 0234FF45 CCB1 CCB1 0221 FFF4 CCB1 CCB1 CCB1  .E .. .. .! .. .. .. ..L <0069> EC* <0070> MRF PN=OVLYA,RN=>0B,FW=>023A, *: <0071> V=>0221,D=(>0221,>FFF4,>CCB1,>CCB1),C=>FDD5 : PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >023A VERIFICATION DATA  >0221" DATA >0221,>FFF4,>CCB1,>CCB1" CHECKSUM  >FDD5$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  023A0221 .!  CURRENT DATA, 023A 0221 FFF4 CCB1 CCB1  .! .. .. ..,   NEW DATA : CHECKSUM = FDD5  023A 0221 FFF4 CCB1 CCB1 0 CCB1 0469 002E 0A22  .! .. .. .. .. .i .. ."0 <0072> EC* <0073> MRF PN=OVLYA,RN=>0B,FW=>0240, *: <0074> V=>CCB1,D=(>CCB1,>CCB1,>0469,>002E),C=>0447 : PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >0240R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA  >CCB1" DATA >CCB1,>CCB1,>0469,>002E" CHECKSUM  >0447$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  0240CCB1 ..  CURRENT DATA, 0240 CCB1 CCB1 0469 002E  .. .. .i ..,   NEW DATA : CHECKSUM = 0447 L 0240CCB1 CCB1 0469 002E 0A22 1702 0469 0010  .. .. .i .. ." .. .i ..L <0075> EC <0076> *$R( <0077> **********************************************************************R <0078> * 6 <0079> *=P0374 LEG11/28/79STR #05400SDSMAC6 <0080> * D! <0081> * THE MACRO ASSEMBLER LOSES 96 BYTES OF MEMORY FOR EACHDD! <0082> * WARNING MESSAGE CAUSING THE "MEMORY REQUIRED EXCEEDS D2 <0083> * SYSTEM CAPACITY" ERROR IN PASS TWO.2 <0084> * < <0085> MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>123A,<, <0086>  V=(>0420,>10EA,>0310,>C060), ,2 <0087>  D=(>0201,>2634,>9820,>254A),C=>995F2 PROGRAM FILE S$SDS$  MODULE TYPE  OV  MODULE NAME OR ID  PASS2 ADDRESS  >3E78+>123A0 VERIFICATION DATA  >0420,>10EA,>0310,>C0600" DATA >0201,>2634,>9820,>254A" CHECKSUM  >995F$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 50B2 0420 10EA 0310 C060  ... .. .`, CURRENT IMAGE  50B2 0201 2634 9820 254A0 04F1 1305 DC60 254A .. &4 .%J .. .. .` %J0   MODIFICATION ALREADY APPLIED   <0088> EC< <0089> MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>1242,<, <0090>  V=(>0380,>069A,>125C,>119C), ,2 <0091>  D=(>04F1,>1305,>DC60,>254A),C=>EEDE2 PROGRAM FILE S$SDS$  MODULE TYPE  OV  MODULE NAME OR ID  PASS2 ADDRESS  >3E78+>12420 VERIFICATION DATA  >0380,>069A,>125C,>119C0" DATA >04F1,>1305,>DC60,>254A" CHECKSUM  >EEDE$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 50BA 0380 069A 125C 119C  .. .. .\ .., CURRENT IMAGE L 50BA 04F1 1305 DC60 254A C0A0 0382 1004 DC60 .. .. .` %J .. .. .. .`L   MODIFICATION ALREADY APPLIED   <0092> EC2 <0093> MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>32 E78+>124A, , <0094>  V=(>0201,>2634,>9820,>254A), ,R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R2 <0095>  D=(>C0A0,>0382,>1004,>DC60),C=>0F462 PROGRAM FILE S$SDS$  MODULE TYPE  OV  MODULE NAME OR ID  PASS2 ADDRESS  >3E78+>124A0 VERIFICATION DATA  >0201,>2634,>9820,>254A0" DATA >C0A0,>0382,>1004,>DC60" CHECKSUM  >0F46$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 50C2 0201 2634 9820 254A  .. &4 .%J, CURRENT IMAGE L 50C2 C0A0 0382 1004 DC60 2572 C0A0 2574 069A .. .. .. .` %r .. %t ..L   MODIFICATION ALREADY APPLIED   <0096> EC< <0097> MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>1252,<, <0098>  V=(>04F1,>1305,>DC60,>254A), , <0099>  D=(>2572,>C0A0,>2574,>069A),C=>C63C PROGRAM FILE S$SDS$  MODULE TYPE  OV  MODULE NAME OR ID  PASS2 ADDRESS  >3E78+>12520 VERIFICATION DATA  >04F1,>1305,>DC60,>254A0" DATA >2572,>C0A0,>2574,>069A" CHECKSUM  >C63C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 50CA 04F1 1305 DC60 254A  .. .. .` %J, CURRENT IMAGE L 50CA 2572 C0A0 2574 069A 05FC 119C 0420 10EA %r .. %t .. .. .. ...L   MODIFICATION ALREADY APPLIED   <0100> EC< <0101> MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>125A,<, <0102>  V=(>C0A0,>0382,>1004,>DC60), ,2 <0103>  D=(>05FC,>119C,>0420,>10EA),C=>00AA2 PROGRAM FILE S$SDS$  MODULE TYPE  OV  MODULE NAME OR ID  PASS2 ADDRESS  >3E78+>125A VERIFICATION D ATA  >C0A0,>0382,>1004,>DC60 " DATA >05FC,>119C,>0420,>10EA" CHECKSUM  >00AA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 50D2 C0A0 0382 1004 DC60  .. .. .. .`, CURRENT IMAGE L 50D2 05FC 119C 0420 10EA 0310 C060 0380 069A .. .. ... .. .` .. ..L   MODIFICATION ALREADY APPLIED   <0104> EC< <0105> MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>1262,<, <0106>  V=(>2572,>C0A0,>2574,>069A), ,2 <0107>  D=(>0310,>C060,>0380,>069A),C=>C66A2 PROGRAM FILE S$SDS$  MODULE TYPE  OV R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE NAME OR ID  PASS2 ADDRESS  >3E78+>12620 VERIFICATION DATA  >2572,>C0A0,>2574,>069A0" DATA >0310,>C060,>0380,>069A"  CHECKSUM   >C66A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 50DA 2572 C0A0 2574 069A  %r .. %t .., CURRENT IMAGE L 50DA 0310 C060 0380 069A 125C 119C 0460 1192 .. .` .. .. .\ .. .` ..L   MODIFICATION ALREADY APPLIED   <0108> EC< <0109> MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>126A,<6 <0110>  V=(>05FC,>119C),D=(>125C,>119C),C=>03C06 PROGRAM FILE S$SDS$  MODULE TYPE  OV  MODULE NAME OR ID  PASS2 ADDRESS  >3E78+>126A$ VERIFICATION DATA  >05FC,>119C$ DATA  >125C,>119C CHECKSUM  >03C0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  50E2 05FC 119C .. .. CURRENT IMAGE L 50E2 125C 119C 0460 1192 0420 10EA 0310 10FA .\ .. .` .. ... .. ..L  MODIFICATION ALREADY APPLIED  <0111> EC< <0112> MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>1200,<& <0113>  V=>1338,D=>132E,C=>132E& PROGRAM FILE S$SDS$  MODULE TYPE  OV  MODULE NAME OR ID  PASS2 ADDRESS  >3E78+>1200 VERIFICATION DATA  >1338 DATA  >132E CHECKSUM  >132E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5078 1338  .8  CURRENT IMAGE L 5078 132E 6BA0 268E 0008 1318 C06E 0004 05C1 .. k. &. .. .. .n .. ..L   MODIFICATION ALREADY APPLIED   <0114> EC <0115> *$R( <0116> **********************************************************************R <0117> * > <0118> *=P0375 GJ 12/03/79STR #054273.3.0 SEQ KIF> <0119> * ( <0120> * IF A DELETE IS DONE ON A ( RECORD WITH A NULL KEY> <0121> * VALUE IN A SECONDARY KEY, THE SYSTEM WILL HANG >6 <0122> * IN A RUN LOOP (PANEL LIGHTS OF >00FF). 6 <0123> * @ <0124> MRF PN=OVLYA,RN=>0B,FW=>00D8,V=>16F4,D=>1603,C=>1603@R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >00D8 VERIFICATION DATA  >16F4 DATA  >1603 CHECKSUM  >1603$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00D816F4 ..  CURRENT DATA 00D81603 ..  $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0125> EC <0126> *$R( <0127> **********************************************************************R <0128> *   <0129> 4*=P0376 GI 12/04/79STR #054283.3.0 S$BIDT 4 <0130> * B <0131> * THIS PATCH CORRECTS AN ERROR IN THE S$BIDT ROUTINE B@ <0132> * WHICH CAUSES PARMS TO BE SET INCORRECTLY AFTER IT@$ <0133> * HAS BEEN CALLED ONCE.$ <0134> * 8 <0135> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0004,8& <0136>  V=>0023,D=>0028,C=>0028 && PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >0004 VERIFICATION DATA  >0023 DATA  >0028 CHECKSUM  >0028$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00040023 .#  CURRENT DATA 00040028 .(  $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0137> EC8 <0138> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0008,8  <0139 .> V=(>3042,>4153),D=(>3043,>3053),C=>0010 .& PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >0008$ VERIFICATION DATA  >3042,>4153$ DATA  >3043,>3053 CHECKSUM  >0010$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00083042 4153  0B AS CURRENT DATA 00083043 3053  0C 0S $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0140> EC8 <0141> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0044,8* <0142> V=(>3537,>4632,>3145,>4620),*R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R2 <0143> D=(>3541,>3030,>4245,>4230),C=>0504 2& PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >0044 VERIFICATION DATA  >3537,>4632,>3145,>4620" DATA >3541,>3030,>4245,>4230" CHECKSUM  >0504$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA , 0044 3537 4632 3145 4620  57 F2 1E F , CURRENT DATA, 0044 3541 3030 4245 4230  5A 00 BE B0, $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0144> EC8 <0145> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>004C,80 <0146> V=(>0104,>5324,>4249,>3030,>3031),08 <0147> D=(>3338,>3041,>3030,>3043,>4620),C=>452A 8& PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >004C6 VERIFICATION DATA  >0104,>5324,>4249,>3030,>30316( DATA  >3338,>3041,>3030,>3043,>4620( CHECKSUM  >452A$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  004C0104( 5324 4249 3030 3031  .. S$ BI 00 01 ( CURRENT DATA2 004C 3338 3041 3030 3043 4620  38 0A 00 0C F2 $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0148> EC8 <0149> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0270,86 <0150> V=(>3033,>3830),D=(>3130,>3034),C=>0104 6& PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >0270$ VERIFICATION DATA  >3033,>3830$ DATA  >3130,>3034 CHECKSUM  >0104$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  02703033 3830  03 80 CURRENT DATA 02703130 3034  10 04 $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0151> EC8 <0152> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0288,8  <0153 (> V=(>4230,>3338,>3053,>3030,>3030),(8 <0154> D=(>4243,>4141,>3043,>3030,>4141),C=>4230 8& PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >02886 VERIFICATION DATA  >4230,>3338,>3053,>3030,>30306( DATA  >4243,>4141,>3043,>3030,>4141( CHECKSUM  >4230R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA 4 0288 4230 3338 3053 3030 3030  B0 38 0S 00 00 4 CURRENT DATA4 0288 4243 4141 3043 3030 4141  BC AA 0C 00 AA 4 $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0155> EC8 <0156> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0294,8* <0157> V=(>3030,>3054,>3030,>3034),*" <0158>  D=(>3030,>4653,>3030",>3030),C=>7663 & PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >02940 VERIFICATION DATA  >3030,>3054,>3030,>30340" DATA >3030,>4653,>3030,>3030" CHECKSUM  >7663$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA , 0294 3030 3054 3030 3034  00 0T 00 04, CURRENT DATA, 0294 3030 4653 3030 3030  00 FS 00 00, $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0159> EC8 <0160> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>029C,8* <0161> V=(>4230,>3230,>4137,>4631),*2 <0162> D=(>4230,>3030,>3054,>3030),C=>7264 2& PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >029C0 VERIFICATION DATA  >4230,>3230,>4137,>46310 DATA >4230,>3030,>3054,>3030 CHECKSUM  >7264$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA , 029C 4230 3230 4137 4631  B0 20 A7 F1, CURRENT DATA, 029C 4230 3030 3054 3030  B0 00 0T 00, $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0163> EC8 <0164> MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>02A4,8* <0165> V=(>4536,>4620,>5324,>4249),*2 <0166> D=(>3034,>4230,>3230,>4146),C=>0172 2& PATHNAME SCI990.S$OBJECT.S$BIDT & RECORD NUMBER  0 FIRST WORD  >02A40 VERIFICATION DATA  >4536,>4620,>5324,>42490" DATA >3034,>4230,>3230,>4146" CHECKSUM  >0172$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA , 02A4 4536 4620 5324 4249  E6 F S$ BI, CURRENT DATA 02A43034 4230 3230 4146  04 B0 20 AF R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0167> EC <0168> *$R( <0169> **********************************************************************R <0170> * < <0171> *=P0377 KDK12/05/79STR #054293.3.0 PROCS< <0172> * B <0173> * THE PROCS FOR FIND WORD AND FIND BYTE DO NOT ALLOW B0 <0174> * A LIST OF VALUES AS THEY SHOULD. 0 <0175> * @ <0176> MRF PN=PROC.FB,RN=0,FW=>00CA,V=>2C20,D=>2C22,C=>2C22@ PATHNAME  PROC.FB RECORD NUMBER  0 FIRST WORD  >00CA VERIFICATION DATA  >2C20 DATA  >2C22 CHECKSUM  >2C22$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00CA2C20 , CURRENT DATA 00CA2C22 ,"  $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0177> EC@ <0178> MRF PN=PROC.FB,RN=0,FW=>00D2,V=>2C20,D=>222C,C=>222C@ PATHNAME  PROC.FB RECORD NUMBER  0 FIRST WORD  >00D2 VERIFICATION DATA  >2C20 DATA  >222C CHECKSUM  >222C$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00D22C20 , CURRENT DATA 00D2222C ",  $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0179> EC@ <0180> MRF PN=PROC.FW,RN=0,FW=>00CA,V=>2C20,D=>2C22,C=>2C22@ PATHNAME  PROC.FW RECORD NUMBER  0 FIRST WORD  >00CA VERIFICATION DATA  >2C20 DATA  >2C22 CHECKSUM  >2C22@$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00CA2C20 , CURRENT DATA 00CA2C22 ,"  $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0181> EC@ <0182> MRF PN=PROC.FW,RN=0,FW=>00D2,V=>2C20,D=>222C,C=>222C@R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R PATHNAME  PROC.FW RECORD NUMBER  0 FIRST WORD  >00D2 VERIFICATION DATA  >2C20 DATA  >222C CHECKSUM  >222C$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00D22C20 , CURRENT DATA 00D2222C ",  $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0183> EC@ <0184> MRF PN=SCI990.PROC2,RN=7,FW=>00DE,V=>2C20,D=>2C22,C=@>2C22  PATHNAME  SCI990.PROC2  RECORD NUMBER  7 FIRST WORD  >00DE VERIFICATION DATA  >2C20 DATA  >2C22 CHECKSUM  >2C22$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00DE2C20 , CURRENT DATA 00DE2C22 ,"  $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0185> ECF" <0186> MRF PN=SCI990.PROC2,RN=7,FW=>00E6,V=>2C20,D=>222C,C=>222C F PATHNAME  SCI990.PROC2  RECORD NUMBER  7 FIRST WORD  >00E6 VERIFICATION DATA  >2C20 DATA  >222C CHECKSUM  >222C$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  00E62C20 , CURRENT DATA 00E6222C ",  $ MODIFICATION PREVIOUSLY APPLIED $ MODIFICATION PREVIOUSLY APPLIED  <0187> ECF" <0188> MRF PN=SCI990.PROC2,RN=7,FW=>0276,V=>2C20,D=>2C22,C=>2C22 F PATHNAME  SCI990.PROC2  RECORD NUMBER  7 FIRST WORD  >0276 VERIFICATION DATA  >2C20 DATA  >2C22 CHECKSUM  >2C22$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  02762C20 , CURRENT DATA 02762C22 ,"  R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0189> ECF" <0190> MRF PN=SCI990.PROC2,RN=7,FW=>027E,V=>2C20,D=>222C,C=>222C F PATHNAME  SCI990.PROC2  RECORD NUMBER  7 FIRST WORD  >027E VERIFICATION DATA  >2C20 DATA  >222C CHECKSUM  >222C OUTPUT ACCESS NAME ** NULL **   VERIFICATION DATA  027E2C20 , CURRENT DATA 027E222C ",  $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0191> EC <0192> *$R( <0193> **********************************************************************R <0194> * > <0195> *=P0378 GJ 12/05/79STR #054303.3.0 DATCD2 > <0196> * F" <0197> * THE FAST COPY MODE OF COPY DIRECTORY FAILS TO PROPERLY FD <0198> * COPY PROGRAM FILES UNDER CERTAIN CIRCUMSTANCES.THE D: <0199> * PROBLEM IS FIXED WITH THE FOLLOWING PATCH. : <0200> * 6 <0201> MPI PF=PROGA,MT=TA,MN=>28,ADR=>2512+>0094,6< <0202> V=(>0203,>225C),D=(>0460,>15CC+>00BC),C=>12E8 < PROGRAM FILE PROGA MODULE TYPE  TA  MODULE NAME OR ID  >28 ADDRESS  >2512+>0094$ VERIFICATION DATA  >0203,>225C$ DATA >0460,>15CC+>00BC CHECKSUM  >12E8$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  25A6 0203 225C .. "\ CURRENT IMAGE L 25A6 0460 1688 C103 0224 0046 0644 C523 0018 .` .. .. .$ .F .D .# ..L   MODIFICATION ALREADY APPLIED   <0203> EC6 <0204> MPI PF=PROGA,MT=TA,MN=>28,ADR=>2512+>00DC,6, <0205>  V=>1FC8,D=>15CC+>00BA,C=>1686, PROGRAM FILE PROGA MODULE TYPE  TA  MODULE NAME OR ID  >28 ADDRESS  >2512+>00DC VERIFICATION DATA  >1FC8 DATA  >15CC+>00BA CHECKSUM  >1686$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  25EE 1FC8  ..  CURRENT IMAGE " 25EE 1686 1F82 0206 1F68 C16",1 0002 06C5 D985 .. .. .. .h .a .. .. ..,R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R   MODIFICATION ALREADY APPLIED   <0206> EC6 <0207> MPI PF=PROGA,MT=TA,MN=>28,ADR=>2512+>0218,6, <0208>  V=>1FC8,D=>15CC+>00BA,C=>1686, PROGRAM FILE PROGA MODULE TYPE  TA  MODULE NAME OR ID  >28 ADDRESS  >2512+>0218 VERIFICATION DATA  >1FC8 DATA  >15CC+>00BA CHECKSUM  >1686$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  272A 1FC8  ..  CURRENT IMAGE L 272A 1686 1F82 04C5 3D60 1F78 6505 1303 A905 .. .. .. =` .x e. .. ..L   MODIFICATION ALREADY APPLIED   <0209> EC6 <0210> MPI PF=PROGA,MT=TA,MN=>28,ADR=>15CC+>00BC,6 <0211>  V=(>0000,>0 000,>0000,>0000), 8 <0212>  D=(>0203,>225C,>C804,>15CC+>00BA),C=>FEDD8 PROGRAM FILE PROGA MODULE TYPE  TA  MODULE NAME OR ID  >28 ADDRESS  >15CC+>00BC0 VERIFICATION DATA  >0000,>0000,>0000,>00000( DATA  >0203,>225C,>C804,>15CC+>00BA( CHECKSUM  >FEDD$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 1688 0000 0000 0000 0000  .. .. .. .., CURRENT IMAGE L 1688 0203 225C C804 1686 0460 25AA 0000 0000 .. "\ .. .. .` %. .. ..L   MODIFICATION ALREADY APPLIED   <0213> EC6 <0214> MPI PF=PROGA,MT=TA,MN=>28,ADR=>15CC+>00C4,6< <0215>  V=(>0000,>0000),D=(>0460,>2512+>0098),C=>21CA< PROGRAM FILE PROGA MODULE TYPE  TA  MODULE NAME OR ID  >28 ADDRESS  >15CC+>00C4 VERIFICATION DATA  >0000,>0000 DATA >0460,>2512+>0098 CHECKSUM  >21CA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  1690 0000 0000 .. .. CURRENT IMAGE L 1690 0460 25AA 0000 0000 0000 0000 0000 0000 .` %. .. .. .. .. .. ..L   MODIFICATION ALREADY APPLIED   <0216> EC <0217> *$R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RR( <0218> **********************************************************************R <0219> * : <0220> *=P0385 GJ 12/06/79STR #054373.3.0 KIF: <0221> * @ <0222> * TWO SUCCESSIVE DELETE CURRENTS WHEN THE CURRENCY @> <0223> * POINTS TO THE FIRST ENTRY OF A B-TREE LEAF NODE>> <0224> * WILL EITHER CAUSE A SYSTEM CRASH OR THE DELETE > <0225> * W,ILL NOT BE PERFORMED PROPERLY. THIS PATCH ,< <0226> * CORRECTS THE PROBLEM FOR SEQUENTIAL PLACEMENT<< <0227> * KEY INDEXED FILES. PATCH P0373 MUST AVE BEEN<" <0228> * PREVIOUSLY APPLIED." <0229> * * <0230> MRF PN=OVLYA,RN=>0B,FW=>0246, *: <0231>  V=>002E,D=(>002E,>0A22,>1702,>0469),C=>1967: PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >0246 VERIFICATION DATA  >002E" DATA >002E,>0A22,>1702,>0469" CHECKSUM  >1967$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  0246002E ..  CURRENT DATA, 0246 002E 0A22 1702 0469  .. ." .. .i,   NEW DATA : CHECKSUM = 1967 L 0246002E 0A22 1702 0469 0010 C02C 0026 1605  .. ." .. .i .. ., .& ..L <0232> EC* <0233> MRF PN=OVLYA,RN=>0B,FW=>024C, *: <0234>  V=>0469,D=(>0469,>0010,>C02C,>0026),C=>C473: PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >024C VERIFICATION DATA  >0469" DATA >0469,>0010,>C02C,>0026" CHECKSUM  >C473$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  024C0469 .i  CURRENT DATA, 024C 0469 0010 C02C 0026  .i .. ., .&,   NEW DATA : CHECKSUM = C473 L 024C0469 0010 C02C 0026 1605 04C1 06A8 0028  .i .. ., .& .. .. .. .(L <0235> EC* <0236> MRF PN=OVLYA,RN=>0B,FW=>0252, *: <0237>  V=>0026,D=(>0026,>1605,>04C1,>06A8),C=>144A: PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >0252 VERIFICATION DATA  >0026" DATA >0026,>1605,>04C1,>06A8" CHECKSUM  >144A$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  02520026 .&  CURRENT DATA, 0252 0026 1605 04C1 06A8  .& .. .. ..,   NEW DATA : CHECKSUM = 144A L 02520026 1605 04C1 06A8 0028 0000 1602 0469  .& .. .. .. .( .. .. .iL <0238> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R* <0239> MRF PN=OVLYA,RN=>0B,FW=>0258, *: <0240>  V=>06A8,D=(>06A8,>0028,>0000,>1602),C=>1082: PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >0258 VERIFICATION DATA  >06A8" DATA >06A8,>0028,>0000,>1602" CHECKSUM  >1082$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  025806A8 ..  CURRENT DATA, 0258 06A8 0028 0000 1602  .. .( .. ..,   NEW DATA : CHECKSUM = 1082 ( 025806A8 0028 0000 1602 0469 0040 (&0469 0162  .. .( .. .. .i .@ .i .b& <0241> EC* <0242> MRF PN=OVLYA,RN=>0B,FW=>025E, *@ <0243>  V=>1602,D=(>1602,>0469,>0040,>0469,>0162),C=>1720@ PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >025E VERIFICATION DATA  >1602( DATA  >1602,>0469,>0040,>0469,>0162( CHECKSUM  >1720$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  025E1602 ..  CURRENT DATA4 025E 1602 0469 0040 0469 0162  .. .i .@ .i .b 4   NEW DATA : CHECKSUM = 1720 L 025E1602 0469 0040 0469 0162 031F 00C5 06A8  .. .i .@ .i .b .. .. ..L <0244> EC* <0245> MRF PN=OVLYA,RN=>0B,FW=>000C, *6 <0246>  V=(>0A22,>1718),D=(>0469,>0248),C=>621 6 PATHNAME  OVLYA RECORD NUMBER  >0B FIRST WORD  >000C VERIFICATION DATA  >0A22,>1718 DATA  >0469,>0248 CHECKSUM  >621 $ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA  000C0A22 1718  ." .. CURRENT DATA 000C0469 0248  .i .H $ MODIFICATION PREVIOUSLY APPLIED $$ MODIFICATION PREVIOUSLY APPLIED $ <0247> EC <0248> *$R( <0249> **********************************************************************R& <0250> *  INSERT PATCHES HERE. & <0251> * J <0252> *  FOLLOW EACH PATCH COMMAND (MPI, MRF) WITH AN EC COMMAND. J <0253> * R( <0254> **********************************************************************R <0255> *  <0256> * > <0257> CM R=ME,M="PROGA PATCH STREAM ERROR COUNT = @$E$C">" RECEIVING TERMINAL NAME  ME "& * SCI990 ** SCI990 ** SCI990 ** SC&.I990 ** SCI990 ** SCI990 ** SCI990 **BATCH .. MSG  PROGA PATCH STREAM ERROR COUNT = 0 . <0258> * 4 <0259> .SYN PROGA="" ! TARGET PROGRAM FILE4. <0260> .SYN LOADER =""  ! TARGET LOADER.4 <0261> .SYN OVLYA="" ! TARGET OVERLAY FILE48 <0262> .SYN S$SDS$ ="" ! TARGET SDS PROGRAM FILE8: <0263> *.SYN SCI  ="" ! START OF SCI OVERLAY AREA : <0264> .SYN SCI990 =""  <0265> .SYN PROC =""  <0266> *  <0267> SDT $ 17:12:31 TUESDAY, APR 01, 1980. $ <0268> EBATCH CODE  ** NULL **  TEXT  ** NULL **  LS (LIST SYNONYMS) ? NO **********************R <0255> *  <0256> * > <0257> CM R=ME,M="PROGA PATCH STREAM ERROR COUNT = @$E$C">" RECEIVING TERMINAL NAME  ME "& * SCI990 ** SCI990 ** SCI990 ** SC&   ʂʁ,[&"`!/`!/ @P T^#m(<(ȁȠ#ؠ#Ƞ# /"gؠ#ؠ#/"Y" c WL$QL* S ȃB $ #" Kؠ! /ȃؠ! /"pD bA 4$L*m ؠ! /ؠ! /ؠ! /ؠ#/ؠ#/ؠ#/   &"@@ *ERROR, COMMAND OR SCROLL FUNCTION REQUIREDP -+T>$! /! /'`'<'p D`'2! /  S`'6G 'F`'B S`'2>`$1 `$`@n $ 7  6|`'BKŒ$$$2V$$#  P`'C!"  P6`'B$$@n($$@n#  PИ$ǘ$$\kI Š ! 0C! " PY"C! PM -! !# P7 /C!"  P"' / `%B$>Ԡ$ . ѐ`%  @T'J S<`! /!  Sܠ$Ԡ$`@n S H/'.'q D) '$ $ `? $$ S ԃ  7!!$ /' 'p D!$ /H@g Sg*p *xJ!ʁp*v((( (vjd ((I`@*v*pʪhj((( (@(( @ڻb*zʐnʪpf/`*a ; K/r[\m*P*P |12)| |1`a2)| ? ?mCD[-mqp00A + 'J)#ȂG*(09(H E`)  #` m@  @ p@ bA@AI+*mqm+*FEmGHmr+899@DDE    ba [[BCEEF[A+NI1܀ ܱ@[>K-+09A/*m `+vѱ * +S+R@m  @"  *@* **@  +X* +WEF HIm  4+S+R)+T+P +T +М+ 88GB +Q b@B@ABE F ABI@J!B -RC-.-.A-P1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[,()mtytw  --hEeD4 4-YtW@tPtN-Kђ -E+`DԁC5u @1`-taC$-   At-  aԇt  : 09AZS.S0z0SCQHT.S SY `@n P . 7S0z S #`.`.!ԃ C`.`.`@n . 7.S`@n C# .A 6|  B..52 @S/-m8 h8 8 uS0S0z0SCԒ0,Qp  ђ 'S 6 6v[ @[?̋ԑQH?a`.?rRA[KQp @1"8 8 8 YYKQp @  1"8 8 8 uYBSA3 ѵ s=s;DF!5S3+S..... . . ..[[  :  T1@f`3 S <`! /!  `3  55 66 S`3`3 3  3 - t  4 @@m  5@ @@ 1`@p`@i H 1 @m@h?j- ?A@ AD SFE55E `D pR A5`DA15`A`?f1 ?j C `D5`A`G665m66@T3 ?`5mQ 1 S55`A66`5ƈA`5 S0`55@h`5 `55 @15?j  5 @66G `D ? A 1 1?fԸT1 ?j A 6|`5R  8V 1 Q<`5 S 5`A661`31`31(3 ?.G S  ?j%@Q"q Q<`4 `DA 1 7=1 ?jt`3I S?j8V 1 Q<FGvFG@`?f ?hS`1@`1@[?h SC` ?f S Q<[@ ?f?h Sx??ԃ 7[@ S6 S@ SP <PP@ ==.BID TASK=>7 .BID TASK=>7 BIDTASK>7 <TASKC.DCOPYD \ $$ DISK COPY/RESTORE UTILITY ?P\ H  VOLUME NAMEESS NAME@TASKSE NAMEESS NAMEW<P(( @{M$LC .S$PROC.M$LC P,MVI TERMINATED 2AA C7BBC_BC-CMCBBCiBC2CSCHBBCBCCcCmCAC&CyA|AP * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH <|<<hckfjpg"fzfkbJij>jihNg2g2hdl[] DCOPY ACNMBIDCCDATADBIDELSEENDIFEODEOPEQEVALEXITGEGTIFINTLELOOPLTMEMENUNAMENEOPTIONOVLYQBIDPROCRBIDREPEATSHOWSPLITSTOPSTRINGSYNUNTILUSEWHILEYESNOSVCCBBCC CC#@_ ) .%BATCH SCI990 (XB) TERMINATED NORMALLY.  BCCCsCXC*D/1De1.S$PROCOBYTEDATATEXT dP P < PPPP@@PPH !HHP!PPHP PH<< DS01.THS.TEXT DS01.THS.MODS\31 HTK K` FSLLSnPzT~!SK K`!SK K`!SK K`!SK K`"`SS HL*SL M `(@SL M `(SM M `(``SYSTEMp$$DAN$$EAN$$12N$$MO01$$ST02MEST02$$UISYSTEM$$CC00000M ``M SSSSP P`)SSSP`).SP`)R`)|SP P`)P000000000000000000000000000000000SP P`*>SP P`*|TP P`+ZPPPQ QSQ P`+SQ P`,*SQ& Q0 `,SSPzSQ@ Q0`- `-.  Q0`-RSQZ Qb`-QH VOLUME NAMEDS1AMEME NAMEDS1 DISK COPY/RESTORE UTILITYSRSS^ Sf`8`SSPzSSr Sz`8 Pz`9`9SS S`9SQHSQLSS S`:SSS S`:qS .S$FTLF020DDPmTM (SpďTTT= P;fb ;h 22P+ ;fď;f!**** INVALID PARAMETER VALUE ****DISK COPY/RESTORE UTILITY UU"U?U\UyUUUUV V'VDVaV~VVVVWW,WIWf2 WX*X_XXXY3YhYYZZ`^ S ?=W ._ ?\!W p 0`^ Sz ?\ ?s ?z 3u?z \\\\\\\A ?CWW\`~!W p 0C4 2<x WWx \\` `z> .\] 0``z z_`@>>.``dW>ԑU`UWW Q<>Ƞ\WƘ\W<`z>WZ]\<`z`<9\G<\tQ >\tQ\>ܠWԑW`W\\ Q<`_ ``z S``z ?\ ?`> TW\D 1`;  @ ?`; D\\\ \\@5`;Qp ?`> M1ECAI! W?fܠ] ?h@Ԁ Q<ԈBԓ\1"`\W\1p \@aHG1 @W`?fA?h*a`WG1 @`>I/W \J`\W\ \Ԓ\Ԓ\WIQa W`?fA?h*a`W`;`;?f ?h\?fU`U Q<D U  ?h` Ԁ Q<\Ԅ`;$$BCcJ cJ;`L$`bG/ ?@Գ Q""Ԓ?~ Q<`Pza /Pzx cJb>x`;`;(* .P=!EXTEND Y" REPLACESUBSTITUTIONfrft fv;f>Բ Q<Td8 ; fx zc*;cdfx`@>ԑ Q<Bԑc||>cV1" fx frcu1" fx ftck1" fxfvf>?pd`;`;`;frft fv<(?rcR chc`/#`ece frcgcN fvcP/#`e#cb`f< BL ?r?x e<( ?r?p(ccLcT`cMZcU2cycU2`cM`BAB Z9cO A|`?rQqqQ4 ft'6f&<(><P`cM>2cU2cjcjr/#!<(?t)cf/#ci/#`;ci/Ә?       <(cf/ci/`;22gf`A?l`;AA'`;`AAA`A`;AA'`; ; z; v;Ax  PC> P`@ Sn g `;`;`;`C~h`hJh2>ԑ Q<;^;`AD*`C``CC;h8# P>#  P%'> S  CdC 6 AA ;@gQ@r?Bh, @tC @t?l?nh(`@t`AA`A`; AA'`;`C~h`;`;hC~`hC~BL !/# `;AA'  `; AAxA[AA [ A@AP`A[AA'[ .Z `i ix <`BLa`hix<>Db Q<4  Q<`h h >@?xdTix`;`;$$BC$$BTi| Sn S; @x`A@S  o`;`;`bP S6; @x`A@S " o "`SҠAa0ѡ ! " P i Sn`;#`;; #@ ? jb `;`;`;TWUW k zk`@>ԑ Q<Bԑk.||> k#1"\kkj `kTU Sn WW Sn`;`;Qkk0k kXk'kFIRSTLISTRESTkT Tԑ Q<`;`;k  UԑW QV`;`;k Wԑ Q<`;`; ; z;k@ Sn k `;`;`;.S$PROC `lD,tkDbԠD. Q<;l>`DbԠD. Q<tQ `D,`l? lllDblD,ԠD. S)ԒԠD. Q<  `l>`S`BNХ @ l`;(BNx>DbԠD. Q< CD,`;>o!otQoo `m`oboZ? o`oy??`oo < o zo`@`o`ooԑ Q<Bԑ? |toD1"K o o o ? tooZ9@v o <oAoU oܵܠ? t`ooóoo `o oZ9C <`moD1"? oo o|tooZ9@v o <oo`oA`oo܁oo o`mZ9C <`moD1"{oZ@v<oojgo`o`?ZCW<o1 oo o ? oto `oРo ooooq`m/>>$ D t %>4 ѕt SnFЕ ox o`;`;R o P`o`o[So`SҠAa0Э &'РpРp!"mmmxa LpaРpРpp@ @B +p/p/p! ! [Sp-q-p-q Sq Sqq L /p p  @+q@@v +&ŖƔJ ^˜/`).)n hAe)r' ʟʢ,hA Z&hA=b Ab   a`ĦZ `ʣ ʜʢ/ʠ)ng)r @Ħ@N`ʣ ʜʢ/ʠ yZ /)@΋ x ʣʣ'(ʣ/ʠ`ʡ ʞʢ ɰ"h!{NNi΋Ht  Op5qQaap uВ Bww"wPapHpi΋b<  0 b b  H> J@ LB NDid΋ PDHH i΋! hA@O ʚʮ/ʬ`ʭ" ʲCʲʶD ʞʮ/ʬ`ʭ ʛʮ/ʬ# x"ANN hAi΋hA4ʦʪ/ʠ`ʡ)0" ɰ"h!{NNhA@ThA@i΋ ʜʢ/ʠh!N(/(/ ʝʢ,i΋G&B&i΋`>`@`B`D3 Di΋dFF< @!00i ΋ B>i0123456789ABCDEF΋ ʚʺ/ʸ ʞʺ1 ʾ`>`@`B`D/ʸ ʛʺ/ʸi / / / //@LƔ&nǘU a f ȯȕ+Z#&v & Ȫ G7nȾP Țw ȡi A ȅPU a ȁȺU a ȕȷȁȺU P,1 Ȋ =7n[ȾU a f~ȯȕ A= B= BIT= BLK= BANK= BASE=, B= CHAS= CORRECT= DEV= ERR== EVEN= IID= L= LEV=000 MEM= OTHER= P= PC= POS= PARITY: A= RID= READS= RETRIES= ROW= ST ST ST= TPCS= TSB=KB TYPE= WP= WRITES= @: +% **** LOG FILE .S$SLGX FULL# **** LOG MESSAGE(S) LOST8 **** DEVICE MISSED LOG MESSAGE, I/O STATUS=XXJ **** FILE MISSED LOG MESSAGE, I/O STATUS=XX ON LOG FILE .S$SLGX' **** DEVICE LOGGING DISABLED% **** FILE LOGGING DISABLED$ **** ALL LOGGING DISABLED000:0004 000:0004 STAT DEV=DS02 READS=0080 WRITES=0000 OTHER=0001 RETRIES=0000  HPFRP.S$SLG1.S$SLG2++2^$ޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭHĺHdnEH@ 4 <b( ****** TAPE FATAL ERROR ****** $ DISK COPY/RESTORE 79.300$ DISK SAVE/SALVAGE 79.3000 ANSWER (Y/N) QUESTIONS WITH Y FOR YES OR LANY OTHER CHARACTER EXCEPT $ FOR NO RESPOND ANYTIME WITH $ TO RESTART  LISTING DEVICE NAME--CANNOT ASSIGN DEVICE QUIT? (Y/N) MASTER DEVICE- COPY DEVICE- VOLUME- MODIFY SYSTEM DISK? (Y/N) COPY WITHOUT VERIFY? (Y/N) PAUSE ON ERROR? (Y/N) A VOLUME NAME ERROR. SPECIFIED = VOLUME@@. ACTUAL = VOLUME@@. %FORCED WRITE AFTER READ ERROR? (Y/N) $INCOMPATABLE DISK TYPES; RESPECIFY LTRACK ALLOCATION CONFLICT. TRACKS MARKED BAD ARE NEEDED FOR IMAGE RESTORE CHANGE VOLUME? (Y/N) READWRITE2 ERROR. TRACK = 0000. CHARACTER COUNT = 0000. RETRY I/O? (Y/N)  DISK NOT 3.X FORMAT FORMAT THIS DISK? (Y/N) COMPLETE USE NAMES AS TYPED? (Y/N) AND VERIFYDISK COPY TERMINATEDNAME LENGTH ERROR +ALPHANUMERIC ONLY (0-9, A-Z), ALPHA FIRST **** BAD TAPE **** MOUNT TAPE # 00. %WRONG VOLUME/REEL/DATE/DISK FORMAT! !TAPE UNIT-OFFLINE/NO WRITE RING TYPE WHEN READY MOUNT DESIRED VOLUMES--TAPE TO TAPE ILLEGAL "CAN'T GET 0000 BLOCKS OF MEMORY #DON'T HAVE 0000 BLOCKS OF MEMORY  SYSTEM DISK READY? (Y/N) DEFAULT? (Y/N) MASTERCOPY&VERIFY ERROR--TRACK 0000, BYTE 0000 VERIFY ONLY? (Y/N) VERIFY COMPLETE  DISK OFFLINE/NOT READY-- USE ADU MAPS FOR CONTROL? (Y/N) :ENTER BAD TRACKS IN THE FORMAT: HEAD, CYLINDER; OR HHEAD, CYLINDER; HEAD, CYLINDER; ETC. TO END LIST, ENTER AN EMPTY LINE < DISK FATAL ERROR INVALID HEAD/CYLINDER +INVALID BIT MAP NUMBER ENCOUNTERED--FATAL $BAD ADU LIST RANGES OVERLAP--FATAL BAD ADU LIST OVERFLOW--WARNING # DISK, TRACK 0 OR 1 IS BAD--FATAL  DISK FORMAT ERROR 1UNEXPECTED ERROR DURING FORMAT PROCEDURE--FATAL JCOULD NOT FIND ASSIGNED DISK LUNO *** SYSTEM ERROR--SUGGEST YOU IPL *** CANNOT USE INSTALLED DISK 27 OCT 1979--11:20 !DS01 USED AS OUTPUT--IPL REQUIRED/ALL OTHER ACTIVE TERMINALS MUST BE TERMINATED * PROCESS TERMINATED DUE TO I/O ERROR. +THE COPY BEING MADE HAS BEEN DESTROYED. 4 ,|9 ^2^.,^T! @   # P DS20DS01LP01DS0102030405060708091011121314151617181920MT01020304JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC6VOLUME00 1979/10/27 999999 ** 01 6VOLUME00 1979/10/27 999999 ** 01 |4ME STVCATALOG 7/t vv2Tv2/2y22/d/^ en$/j `VdV 8 P0B`@ /@f8/̱đ2Z2  26` 2 26  "k 0 $ &@/!Y 7T  0P 4 $1 !  g /‘` %Q  4- v 7T 7/ 7y 7 7 7`  @ 7  78`2 7@/ "`2 2D2 ` Vx ` Vx $$x2)2` `$$$x` Vx` Vx` ` /2P2828 "  7@/ 7/22W  7| [  7 [|    . ιƹ/'g   6Jιƹ/'g  [|  Ȏy/   6y/ [ b    22 %22'2z2 v22 222@2    `z    (2 [` Vx 27 26 0  |    6@  8`9$,#4`pV!} Va2`&Va/V!x2;V!x !z$$VB2S 26p  pppP;;` [2e\` Vx 2F 26 0     2Cڈ  6F  8 2^2 $,#2`pV! Va2`&Va/V!x2;V!x !z$$VB2S 26-  pppP   * 7P @| ` 22 26X » P  0 62 Yډ 72*\ 8P2+2 26  p`!T/Z7 / 6W(݋ ݋ ݌ ݌   a B`/݌݌/(݌ Ռ 8 , 447/(  /  2W``   -p  7   7`8$  2  ` ( 7e 4&b#p ` ( 7W`  @0|  5t  2 88  ` ( 7. 4&+#p` ( 7 6  ep  7  7  7  7` ` 1 . | 4&Y .  /  0Z -P  5IH   5t6N#p `  |  4&#  5   5t6N#p|` ( 7| 7|` `  5   5t6N#p `   @!|  5t  5   5t6N#p`  1 .  $ 0Z[6D `  ֈ  < B1    ֈ 12 +2    @@ 7 7  7  7 7  7`&  n| @   7| @   7  5t v `$ -d `` 1 . | 5t v `l$ -d `` .  /  0Z -P` | @   7|  ̱ & | 5t v 22`$ -d   `z`z .'-P  P 8/BC - eа pB6 L` | 7|  -t |ȁȄ 7 | 8@C  7|2`&01 L 4  -d ``  P /  @   7  5t v 2`r$ -d   `z``;‹`82rI  2  22 %nZ`&2&2 26Z2` `22 $Z  7|)@ B8`B` " Z2`&` ` !L``[| 4 1 0 R  7 @  $2 7  4#3[K  &K  &K  Y2`N $  `` A 8C <` 2@` ( ʠA` ʠ@ Q ҀB 8/̱đ2}`&` ¢` ʢ@ ΢@ Т@ [`# `"   -t ȁȄ 7   7`801 L 4  -d ``  P /| @   7|  & | 5t!`$ -d ``$  4&#p @|  5t  4&#p 7A 1 . | 4&0 .  /  0Z "-P  5t6N#p|  4&  5t6N#p 7|2`&  5t6N#p @|  5t  5t6N#p` @ aȍG[ 8/̱đ8/̱đ2V  `Vl.VС VB [   `Vl.VB [ " `VlJV V` ( V ‹22 26[   `VlJV`  [ `VRVtV$2lVwV$VV$%   B 7 D` 2`  7 %N% 2`&  +% &%'%x'R%(p%I &"%)%d  $ $&"% %t&f %w&f %r&f %s&f %t&f %u&f %v&f %w&f }&g &g΋&j&l&n&p&r/&d &d`-:΋,B`-΋,&*& ΋,%&΋,  q->mEvq222)2 22  бAZaz [б09K2yY6. J` @w71x ` A #(('F< 8 +.zF( F< 8 +.|1* 4C6. " "*`  $5 ` A@x80 C6/$  $ ` ı0DL CŠ2:/ v`22`z2 02468ACE 28 00/,2<0&  ` 0J:0JI0&I'2828TK2/} / < /[/[60^ 7 ` Ƞ*Ƞ Ƞ `  $t@w71b "( (0 9 *C8&[΋,0< B0< <  B`,΋,0&< B0< <  B`,F 1r1v 1t1v΋,=9 < Ȣ 1v`,61 # # : "C  9"  9" #D&  $$22:ɀ( 7 &   4 ` E 7  428  E1`& 26  ( XY[;2 7 4 4 7  4[626 "  7 r 822 82 ( 7f 222 ( 7 7  ( 7222` ( 746  ep  7  7  7  74 6 L -p  7 22` 22 26X64*- 4R4x5b5l  7 G`8`8z2 82 ( 722 $8/ͷŗ 2 v 22 v` Р - 3 3 3  2 - ‡EvG eJ2`4*22 e vG L 88 74 `4*65xC -m 5`  5`5r G 7J6B$D`  7 8.65C-`     B`5r 7Y6$DB`  7 I.6t6N 6N86N2  8/ͷŗ m !2 v` 22 6t6t`6X ` 8C [ {  /C[87>а ~B@ 87>~@C/!!7!@AB8( 8B$ @P/8 88 8/8 4 4 8/82 8PI/O ERROR. CODE = XX. 8M  Qklmnopqrstuvwxyz{|}~RSTUABTLDTAQPTRSAQXT1 ASPQUEBIDTSKBM$MPBBM$MPKBUFCHKBYTE01BYTE03BYTE04BYTE05BYTE06BYTE07BYTE08BYTE09BYTE0DBYTE10BYTE12BYTE14BYTE15BYTE1DBYTE20BYTE24BYTE40BYTE80CLEANQCLKSW CMDFLGCOMENDCOMMQ COMTHRCOMUCBCP$IDLDBGN10DDTBGNDDTFLGDDTTSBDDTWP DELQUEDEVLDTDGNQUEDM$QUEDSC ENDACTENDRSMETSK FSTXFRFUTQUEINSQ INSQUEINVOL IOQUCBIOSHBCIOSMAXIOSSTAITSKCRITSKMXJMCALTKBTAB KILLQ KILTSKKTIO MAPCMNMAPQUEMAXIO MAXST2MAXSTAMM$GSAMM$RLMMM$RSAMM$RUAMMQQ MMUMAXMSGQUENUMDECOVYENDOVYQUEOVYTABPDTLSTPOP0 POP1 POP2 POP3 POP7 PUSH1 PUSH2 PUSH3 PUSH7 RSTRSWRWTQUESBDQUESCB SCHDWSSCHRETSCRASHSCWSP SHDSTKSLCNT SLCTIMSLNFLGSLNMCASLPBQCSLSVC SOVYQ STUNITSTUNT4SUSPQISVCFNDSYSLQ TDL TDUDWSTLDTSBTM$DFRTM$EXTTM$INCTM$QRMTM$TSVTMAQUETMBID0TMDQUETMESLCTMMLIPTMOUT TMQUE TMSUSPTMTOLNTMTSCHTMWOMOTOLBETTRACE TRAPRTUSVCLNa]./H3   :  P(L@  +4p543 MAT001 4$:PfDUMMY 11/14/7914:56:17SDSLNKD$DATA D05/17/8214:09:56SDSMACSYSLGY DR11/14/7914:57:38SDSLNKROOT E)B11/14/7914:59:29SDSLNKFILMG 11/14/7914:58:00SDSLNKDUMKIF  11/14/7914:56:08SDSLNKMEMRES ~~11/14/7914:58:41SDSLNKDUMCOM 11/14/7914:56:00SDSLNKIOCOM 11/14/7914:58:21SDSLNKNOCOMM 11/14/7914:59:11SDSLNKSVCIO .. V 0DUMMY  V VSKI nT VSKI1  VSKI2 ~ VSKI3  VSKI4  VSKI5 . VSKI6  VSKI7  VSKIA  V$DATA   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ <@BDFHJLNPRTVXZ\^`bdfhjln    <<>|A|ADIpIKxK<<>|A|AC gVV<<>|A|AC           !"#$%&'( !"#$%&' )*(+    )*+,-,-./01./0234512346789:;<=>?@5AB6CD7 8!"9#$%:&'(EFGHIJKL)MNOPQ;<*+R,STU-VWXY./0123456=Z[\]^_`abcd789:;<=>>efg?@?@ABAhijBCklDCDEFmnopGHIqrJKLMNOPsEtFQGHIRuvwxyz{|}~VSTUVWXJKYLZM[\N]^_`abcdeOfghijPQklmnopqrstuvwxyz{|}~RSTUABTLDTAQPTRSAQXT1 ASPQUEBIDTSKBM$MPBBM$MPKBUFCHKBYTE01BYTE03BYTE04BYTE05BYTE06BYTE07BYTE08BYTE09BYTE0DBYTE10BYTE12BYTE14BYTE15BYTE1DBYTE20BYTE24BYTE40BYTE80CLEANQCLKSW CMDFLGCOMENDCOMMQ COMTHRCOMUCBCP$IDLDBGN10DDTBGNDDTFLGDDTTSBDDTWP DELQUEDEVLDTDGNQUEDM$QUEDSC ENDACTENDRSMETSK FSTXFRFUTQUEINSQ INSQUEINVOL IOQUCBIOSHBCIOSMAXIOSSTAITSKCRITSKMXJMCALTKBTAB KILLQ KILTSKKTIO MAPCMNMAPQUEMAXIO MAXST2MAXSTAMM$GSAMM$RLMMM$RSAMM$RUAMMQQ MMUMAXMSGQUENUMDECOVYENDOVYQUEOVYTABPDTLSTPOP0 POP1 POP2 POP3 POP7 PUSH1 PUSH2 PUSH3 PUSH7 RSTRSWRWTQUESBDQUESCB SCHDWSSCHRETSCRASHSCWSP SHDSTKSLCNT SLCTIMSLNFLGSLNMCASLPBQCSLSVC SOVYQ STUNITSTUNT4SUSPQISVCFNDSYSLQ TDL TDUDWSTLDTSBTM$DFRTM$EXTTM$INCTM$QRMTM$TSVTMAQUETMBID0TMDQUETMESLCTMMLIPTMOUT TMQUE TMSUSPTMTOLNTMTSCHTMWOMOTOLBETTRACE TRAPRTUSVCLNUSVCMXUSVCTBWAITIOWANYIOWD0000WD0001WD0002WD0004WD0008WD0020WD0040WD0080WD0100WD0200WD0400WD0800WD1000WD3000WD4000WD8000WDFFFFXOPRT1XOPRT2XOPRT3YEAR 00WDFFFFXOTO@BATCH LS=YES"R(********************************************************************************R*  PROGAPATCH FILE *R(********************************************************************************R@* BEFORE EXECUTING THIS BATCH STREAM, THE SYNONYM 'VOLBLD' @D* 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) * 'R(********************************************************************************R* '.SYN $E$C="0" !:.SYN PROGA = @VOLBLD.S$PROGA  ! TARGET PROGRAM FILE :4.SYN LOADER = @VOLBLD.S$LOADER! TARGET LOADER 4.SYN OVLYA= @V*OLBLD.S$OVLYA  ! TARGET OVERLAY FILE *<.SYN S$SDS$ = @VOLBLD.S$SDS$ ! TARGET SDS PROGRAM FILE < .SYN PROC = @VOLBLD.S$PROC .SYN SCI990 = @VOLBLD.SCI990 R(********************************************************************************R* '(*  BEGIN PATCHES FOR RELEASE 3.3.0(* 'L$************************************************************************L* '4*=P0371 GJ 11/30/79STR #054103.3.0 PROCS4* '6* THE COPY PROGRAM IMAGE PROC HAS AN ERROR IN THE66* SECONDARY PROC FOR COPYING OVERLAYS ONLY.THIS66* PATCH WILL ALLOW COPYING AN OVERLAY WITHOUT THE6.* NEED TO SPECIFY AN ASSOCIATED TASK ID. .* '&MRF PN=PROC.CPI$O,RN=>00,FW=>0052,& V=(>3D53,>5452,>494E,>4720), (D=(>3D2A,>5354,>5249,>4E47),C=>7270 (EC'*$'N%**************************************************************************N* '4*=P0372 KDK11/30/79STR #054093.3.0 PROCS4* '<* THE SHOW COUNTRY CODE PROC HAS AN EXTRA COMMA AT THE <<* END OF THE PROMPT LIST WHICH CAUSES THE ERROR MESSAGE <2* "ERROR 9007 - INVALID TYPE SPECIFICATION". 2* '<MRF PN=PROC.SCC,RN=>00,FW=>0042,V=>2C20,D=>2020,C=>2020 <EC'@MRF PN=SCI990.PROC2,RN=>026,FW=>02EC,V=>2C20,D=>2020,C=>2020 @EC'*$'N%**************************************************************************N* '6*=P0373 GJ 11/27/79STR #054083.3.0 SEQ KIF6* '<* IF A DELETE BY KEY IS PERFORMED ON A SINGLE KEY FILE, <>* THE COMPLETE CURRENCY MUST BE SET IN THE FRQ, NOT JUST >2* THE DATA BASE INFORMATION. THIS IS SEEN AS A2 >BD ERROR >* ON A SEQUENTIAL PLACEMENT SINGLE KEY FILE FOR A DELETE >6* BY KEY WHEN CURRENCY HAS NOT BEEN ESTABLISHED. 6* '"MRF PN=OVLYA,RN=>0B,FW=>002A, ",V=(>CCB1,>CCB1),D=(>0469,>0236),C=>065F ,EC'"MRF PN=OVLYA,RN=>0B,FW=>0234, "0V=>FF45,D=(>FF45,>CCB1,>CCB1,>0221),C=>FD64 0EC'"MRF PN=OVLYA,RN=>0B,FW=>023A, "0V=>0221,D=(>0221,>FFF4,>CCB1,>CCB1),C=>FDD5 0EC'"MRF PN=OVLYA,RN=>0B,FW=>0240, "0V=>CCB1,D=(>CCB1,>CCB1,>0469,>002E),C=>0447 0EC'*$'N%**************************************************************************N* '6*=P0374 LEG11/28/79STR #054003.3.0 SDSMAC 6* '<* THE MACRO ASSEMBLER LOSES 96 BYTES OF MEMORY FOR EACH <<* WARNING MESSAGE CAUSING THE "MEMORY REQUIRED EXCEEDS < * SYSTEM CAPACITY" ERROR IN PASS TWO. * '4MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>123A,4" V=(>0420,>10EA,>0310,>C060), "( D=(>0201,>2634,>9820,>254A),C=>995F(EC'4MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>1242,4" V=(>0380,>069A,>125C,>119C), "( D=(>04F1,>1305,>DC60,>254A),C=>EEDE(EC'4MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>124A,4" V=(>0201,>2634,>9820,>254A), "( D=(>C0A0,>0382,>1004,>DC60),C=>0F46(EC'4MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>1252,4" V=(>04F1,>1305,>DC60,>254A), "( D=(>2572,>C0A0,>2574,>069A),C=>C63C(EC'4MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>125A,4" V=(>C0A0,>0382,>1004,>DC60), "( D=(>05FC,>119C,>0420,>10EA),C=>00AA(EC'4MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>1262,4 V=(>2572,>C0A0,>2574,>069A), ( D=(>0310,>C060,>0380,>069A),C=>C66A(EC'4MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>126A,4, V=(>05FC,>119C),D=(>125C,>119C),C=>03C0,EC'4MPI  PF=S$SDS$,MT=OV,MN=PASS2,ADR=>3E78+>1200,4 V=>1338,D=>132E,C=>132EEC'*$'N%**************************************************************************N* '6*=P0375 GJ 12/03/79STR #054273.3.0 SEQ KIF6* '6* IF A DELETE IS DONE ON A RECORD WITH A NULL KEY66* VALUE IN A SECONDARY KEY, THE SYSTEM WILL HANG 6.* IN A RUN LOOP (PANEL LIGHTS OF >00FF). .* '8MRF PN=OVLYA,RN=>0B,FW=>00D8,V=>16F4,D=>1603,C=>16038EC'*$'N%**************************************************************************N* '2*=P0376 GI 12/04/79STR #054283.3.0 S$BID2T * ':* THIS PATCH CORRECTS AN ERROR IN THE S$BIDT ROUTINE :8* WHICH CAUSES PARMS TO BE SET INCORRECTLY AFTER IT8 * HAS BEEN CALLED ONCE.* '0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0004,0 V=>0023,D=>0028,C=>0028 EC'0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0008,0,V=(>3042,>4153),D=(>3043,>3053),C=>0010 ,EC'0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0044,0 V=(>3537,>4632,>3145,>4620), (D=(>3541,>3030,>4245,>4230),C=>0504 (EC'0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>004C,0&V=(>0104,>5324,>4249,>3030,>3031),&.D=(>3338,>3041,>3030,>3043,>4620),C=>452A .EC'0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0270,0,V=(>3033,>3830),D=(>3130,>3034),C=>0104 ,EC'0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0288,0 V=(>4230,>  3338,>3053,>3030,>3030),.D=(>4243,>4141,>3043,>3030,>4141),C=>4230 .EC'0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>0294,0 V=(>3030,>3054,>3030,>3034), (D=(>3030,>4653,>3030,>3030),C=>7663 (EC'0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>029C,0 V=(>4230,>3230,>4137,>4631), (D=(>4230,>3030,>3054,>3030),C=>7264 (EC'0MRF PN=SCI990.S$OBJECT.S$BIDT,RN=0,FW=>02A4,0 V=(>4536,>4620,>5324,>4249), (D=(>3034,>4230,>3230,>4146),C=>0172 (EC'*$'N%**************************************************************************N* '4*=P0377 KDK12/05/79STR #054293.3.0 PROCS4* ':* THE PROCS FOR FIND WORD AND FIND BYTE DO NOT ALLOW :(* A LIST OF VALUES AS THEY SHOULD. (* '8MRF PN=PROC.FB,RN=0,FW=>00CA,V=>2C20,D=>2C22,C=>2C228@EC'8MRF PN=PROC.FB,RN=0,FW=>00D2,V=>2C20,D=>222C,C=>222C8EC'8MRF PN=PROC.FW,RN=0,FW=>00CA,V=>2C20,D=>2C22,C=>2C228EC'8MRF PN=PROC.FW,RN=0,FW=>00D2,V=>2C20,D=>222C,C=>222C8EC'>MRF PN=SCI990.PROC2,RN=7,FW=>00DE,V=>2C20,D=>2C22,C=>2C22 >EC'>MRF PN=SCI990.PROC2,RN=7,FW=>00E6,V=>2C20,D=>222C,C=>222C >EC'>MRF PN=SCI990.PROC2,RN=7,FW=>0276,V=>2C20,D=>2C22,C=>2C22 >EC'>MRF PN=SCI990.PROC2,RN=7,FW=>027E,V=>2C20,D=>222C,C=>222C >EC'*$'N%**************************************************************************N* '6*=P0378 GJ 12/05/79STR #054303.3.0 DATCD2 6* '>* THE FAST COPY MODE OF COPY DIRECTORY FAILS TO PROPERLY ><* COPY PROGRAM FILES UNDER CERTAIN CIRCUMSTANCES.THE <"* PROBLEM IS FIXED WITH THE FOL"LOWING PATCH. * '.MPI PF=PROGA,MT=TA,MN=>28,ADR=>2512+>0094,.2V=(>0203,>225C),D=(>0460,>15CC+>00BC),C=>12E8 2EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>2512+>00DC,." V=>1FC8,D=>15CC+>00BA,C=>1686"EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>2512+>0218,." V=>1FC8,D=>15CC+>00BA,C=>1686"EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>15CC+>00BC,." V=(>0000,>0000,>0000,>0000), ". D=(>0203,>225C,>C804,>15CC+>00BA),C=>FEDD.EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>15CC+>00C4,.2 V=(>0000,>0000),D=(>0460,>2512+>0098),C=>21CA2EC'*$'N%**************************************************************************N* '2*=P0385 GJ 12/06/79STR #054373.3.0 KIF2* '8* TWO SUCCESSIVE DELETE CURRENTS WHEN THE CURRENCY 8 * POINTS TO THE FIRST ENT RY OF A B-TREE LEAF NODE6* WILL EITHER CAUSE A SYSTEM CRASH OR THE DELETE 62* WILL NOT BE PERFORMED PROPERLY. THIS PATCH 24* CORRECTS THE PROBLEM FOR SEQUENTIAL PLACEMENT44* KEY INDEXED FILES. PATCH P0373 MUST AVE BEEN4 * PREVIOUSLY APPLIED.* '"MRF PN=OVLYA,RN=>0B,FW=>0246, "0 V=>002E,D=(>002E,>0A22,>1702,>0469),C=>19670EC'"MRF PN=OVLYA,RN=>0B,FW=>024C, "0 V=>0469,D=(>0469,>0010,>C02C,>0026),C=>C4730EC'"MRF PN=OVLYA,RN=>0B,FW=>0252, "0 V=>0026,D=(>0026,>1605,>04C1,>06A8),C=>144A0EC'"MRF PN=OVLYA,RN=>0B,FW=>0258, "0 V=>06A8,D=(>06A8,>0028,>0000,>1602),C=>10820EC'"MRF PN=OVLYA,RN=>0B,FW=>025E, "6 V=>1602,D=(>1602,>0469,>0040,>0469,>0162),C=>1720 6EC'"MRF PN=OVLYA,RN=>0B,FW=>000C, " V=(>0A22,>1718) ,D=(>0469,>0248),C=>0621EC'*$'N%**************************************************************************N* '(* BEGIN PATCHES FOR RELEASE 3.3.1 (* 'N%**************************************************************************N* '6*=P0386 LEG12/14/79STR #054683.3.1 SDSMAC 6* ':* SOURCE CHARACTERS EXTENDING INTO OR NEAR COLUMN 80 :@* DESTROY THE END-OF-LINE INDICATOR. THIS CAUSES SPURIOUS @<* "SYMBOL REQUIRED" ERRORS ON END STATEMENTS AND OTHER <<* DIRECTIVES WITH NO OPERANDS IN SUCCEEDING MODULES IN < * STACKED ASSEMBLIES.* ',MPI PF=S$SDS$,MT=TA,MN=SDSMAC,ADR=>05AC,,,V=(>0597,>0000),D=(>0000,>0597),C=>0597 ,EC'2MPI PF=S$SDS$,MT=OV,MN=PASS1,ADR=>3E78+>0E02, 2 V=>05AC,D=>05AE,C=>05AE EC'8) @2MPI PF=S$SDS$,MT=OV,MN=PASS1,ADR=>3E78+>0E28, 2 V=>05AC,D=>05AE,C=>05AE EC'2MPI PF=S$SDS$,MT=OV,MN=PASS1,ADR=>3E78+>2500, 2 V=>05AC,D=>05AE,C=>05AE EC'2MPI PF=S$SDS$,MT=OV,MN=PASS1,ADR=>3E78+>257C, 2 V=>05AC,D=>05AE,C=>05AE EC'2MPI PF=S$SDS$,MT=OV,MN=PASS1,ADR=>3E78+>2600, 2 V=>05AC,D=>05AE,C=>05AE EC'2MPI PF=S$SDS$,MT=OV,MN=FMTDIR,ADR=>6982+>100A,2 V=>05AC,D=>05AE,C=>05AE EC'2MPI PF=S$SDS$,MT=OV,MN=P1MAC,ADR=>6708+>0A58, 2 V=>05AC,D=>05AE,C=>05AE EC'2MPI PF=S$SDS$,MT=OV,MN=P1MAC,ADR=>6708+>0A82, 2 V=>05AC,D=>05AE,C=>05AE EC'*$'N%**************************************************************************N* '6*=P0387 GRJ12/19/79STR #054883.3.1 SEQ KIF6* '* A DELETE OF2 A LOGICAL RECORD THAT IS IN A PHYSICAL RECORD 2>* THAT IS ON THE AVAILABLE SPACE CHAIN, SOMETIMES PLACES >>* THE PHYSICAL RECORD BACK ON THE AVAILABLE SPACE CHAIN. >@* FUTURE INSERTS OR REWRITES MAY THEN RECEIVE A >30 ERROR. @* '8MRF PN=OVLYA,RN=>0B,FW=>0122,V=>8825,D=>8A65,C=>8A658EC'*$'R(********************************************************************************R* '4*=P0393 KDK01/08/80STR #055673.3.1 DXTX 4* '>* BASIC SAVE FILE IS GARBAGED WHEN DXTX AND TXDX ARE USED >@* TO TRANSPORT FILE FROM ONE SYSTEM TO ANOTHER.THIS PATCH @ * CORRECTS THE PROBLEM.* '@MPI PF=PROGA,MT=TA,MN=>3D,ADR=>2A88,V=>0080,D=>0000,C=>0000 @EC'@MPI PF=PROGA,MT=TA,MN=>3E,ADR=>2A88,V=>0080,D=>0000,C=>0000 @EC'*$' ******** J$************************************************************************J* '@*=P0396 LEG01/16/80STR #05616 3.3.1 TXXLE LINK EDITOR @* '8* THE DXTX LINKER WILL RETURN "LIST FILE I/O ERROR,88* CODE=8100" FOR ALL ZERO ERROR LINKS. THERE WILL 88* BE A PARTIAL LINK MAP ENDING WITH THE HEADER FOR 84 * THE LIBRARY LIST. THE OBJECT SHOULD BE GOOD.4* 'J#MPI PF=S$SDS$,MT=TA,MN=TXLINK,ADR=>12CA+>0824,V=>0000,D=>476C,C=>476C JEC'2MPI PF=S$SDS$,MT=OV,MN=TXLMAP,ADR=>3CAE+>0ABE,2, V=(>0000,>0000),D=(>06A0,>01A6),C=>0706,EC'*$'R(********************************************************************************R* '6*=P0403 GRJ01/16/80STR #056353.3.1 SEQ KIF6* 'D * IF (1) A REWRITE IS DONE THAT INCREASES THE BLANK SUPPRESSED D**H@B* SIZE OF THE LOGICAL RECORD AND (2) THE RECORD WILL NOT FIT BB* IN THE SAME PHYSICAL BLOCK AND (3) THE RECORD WILL NOT FIT B<* IN ANY BLOCK ON THE FREE CHAIN AND (4) THE SYSTEM IS <@* SUFFICIENTLY LOADED TO REQUIRE REMOVING BLOCKING BUFFERS @>* FROM THE TOL, THEN THE OVERHEAD INFORMATION OF THE NEW ><* BLOCK GOTTEN TO HOLD THE EXPANDED LOGICAL RECORD MAY <@* BE ALL ZEROS.THIS WILL CAUSE AN ILLEGAL FILE STRUCTURE. @* '8MRF PN=OVLYA,RN=>7,FW=>0160,V=>005C,D=>0008,C=>0008 8EC'*$'R(********************************************************************************R* '6*=P0404 GI 01/16/80STR #056363.3.1 S$BIDT 6* 'B* THIS PATCH EXPANDS THE S$BIDT ROUTINE SO THAT A CODE VALUE B:* TO BE PASSED TO THE TASK MAY BE SPECIFIED BY INPUT :* REGISTER 3.!* '2MRF PN=SCI990.S$OBJECT.S$BIDT,RN=>0,FW=>0182, 2" V=(>3041,>3835,>4243,>4138), "( D=(>4341,>3834,>4230,>3030),C=>0975(EC'2MRF PN=SCI990.S$OBJECT.S$BIDT,RN=>0,FW=>018C, 2" V=(>3030,>3034,>4243,>4138), "( D=(>4441,>4144,>4230,>3030),C=>7705(EC'2MRF PN=SCI990.S$OBJECT.S$BIDT,RN=>0,FW=>0194, 2 V=>3542,D=>3642,C=>3642EC'2MRF PN=SCI990.S$OBJECT.S$BIDT,RN=>0,FW=>019E, 2 V=>4437,D=>4446,C=>4446EC'*$'N%**************************************************************************N* '2*=P0405 LGF01/18/80STR #056373.3.1 SVS2* '@* THIS PATCH CHANGES SVS OUTPUT TO READ "CONTROLLER ERRORS" @(* INSTEAD OF "CONTROLLER RETRIES". (* '(MPI PF=PROGA,MT=TA,MN=SVS,ADR=>C1B0,(  V=(>205 2,>4554,>5249,>4553,>3A20),  . D=(>2045,>5252,>4F52,>533A,>2020),C=>4E5F.EC'*$'N%**************************************************************************N* '6*=P0406 LGF01/18/80STR #056113.3.1 SYSLOG 6* ':* THIS PATCH CORRECTS THE PROBLEM OF A BAD CHARACTER :$* BEING PUT INTO A LOG MESSAGE.$* 'BMPI PF=PROGA,MT=TA,MN=SLMFOT,ADR=>C500,V=>1103,D=>1A03,C=>1A03 BEC'*$'N%**************************************************************************N* '6*=P0414 MU 01/30/80STR #056853.3.1 MCCSCC 6* ':* THIS PATCH CORRECTS SOME SPELLING OF COUNTRY NAMES : * THAT ARE DISPLAYED.* '(MPI PF=PROGA,MT=TA,MN=>50,ADR=>C240,( V=>2020,D=>5320,C=>5320EC'(MPI PF=PROGA,MT=TA,MN=>50,ADR=>C26E,(*@ V=(>4744,>4F4D,>2020), " D=(>4E47,>444F,>4D20),C=>4728"EC'*$'N%**************************************************************************N* '6*=P0415 MSC01/30/80STR #038433.3.1 S$CCAF 6* '8* THIS PATCH FORCES CC AND AF TO SET $$CC ON EXIT. 8* '(MPI PF=PROGA,MT=TA,MN=>34,ADR=>027E,(" V=(>D060,>09EB,>0981,>0A11), "( D=(>04C2,>04C1,>1003,>1000),C=>0000(EC'(MPI PF=PROGA,MT=TA,MN=>34,ADR=>0286,(, V=(>04C2,>1000),D=(>1000,>0701),C=>1701,EC'(MPI PF=PROGA,MT=TA,MN=>34,ADR=>065E,( V=>028A,D=>0288,C=>0288EC'(MPI PF=PROGA,MT=TA,MN=>34,ADR=>0758,( V=>04C0,D=>C040,C=>C040EC'(MPI PF=PROGA,MT=TA,MN=>34,ADR=>0794,(" V=(>0420,>184C,>04C0,>04C1), "( D=(>C040,>0420,>184C,>04C0),C=>D8EC(EC'(MPI PF=PROGA,MT=TA,MN=>34,ADR=>07F0,( V=>04C1,D=>0701,C=>0701EC'(MPI PF=PROGA,MT=TA,MN=>34,ADR=>0808,( V=>04C1,D=>0701,C=>0701EC'*$'N%**************************************************************************N* '2*=P0423 GRJ01/30/80STR #056923.3.1 MKL2* '<* THIS PATCH MAKES MKL ABORT IF A HASHED PLACEMENT KEY << * INDEXED FILE IS USED.ONLY SEQUENTIAL PLACEMENT KEY <2* INDEXED FILES SHOULD HAVE MKL USED ON THEM.2* '@MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0296,V=>0100,D=>0090,C=>0090 @EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>032C,(, V=(>C123,>0010),D=(>0460,>0130),C=>0550,EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0130,(" V=(>0000,>0000,>0000,>0000), "( D=(>C1A0,>004A,>C800,>004A),C=>09A0(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0138,(" V=(>0000,>0000,>0000,>0000), "( D=(>0207,>01A4,>C807,>0042),C=>CBE6(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0140,(" V=(>0000,>0000,>0000,>0000), "( D=(>06A0,>0406,>0356,>0227),C=>03D7(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0148,(" V=(>0000,>0000,>0000,>0000), "( D=(>0008,>D1D7,>0A57,>1806),C=>C38E(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0150,(" V=(>0000,>0000,>0000,>0000), "( D=(>0208,>016C,>0209,>0003),C=>016E(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0158,(" V=(>0000,>0000,>0000,>0000), "( D=(>0460,>03A2,>C806,>004A),C=>CF8E(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0160,(" V=(>0000,>0000,>0000,>0000), "( D=(>C803,>0042,>C123,>0010),C=>0972(EC'* ' MPI PF=PROGA,MT=TA,MN=MKL,ADR= >0168, " V=(>0000,>0000,>0000,>0000), "( D=(>0460,>0330,>1E49,>4E50),C=>5749(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0170,(" V=(>0000,>0000,>0000,>0000), "( D=(>5554,>2046,>494C,>4520),C=>797E(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0178,(" V=(>0000,>0000,>0000,>0000), "( D=(>5553,>4553,>2048,>4153),C=>711B(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0180,(" V=(>0000,>0000,>0000,>0000), "( D=(>4820,>504C,>4143,>454D),C=>1C62(EC'(MPI PF=PROGA,MT=TA,MN=MKL,ADR=>0188,(, V=(>0000,>0000),D=(>454E,>5420),C=>116E,EC'*$'N%**************************************************************************N* '6*=P0426 LSW02/08/80STR #057273.3.1 IBMUTL 6* '<* IBMUTL ON CRU FLOPPYS DOESN'T ACKNOWLEDGE ALL OF THE <* IBM8 FILES IN THE HEADER. THIS PATCH WILL CAUSE IBMUTL 8>* TO ACKNOWLEDGE ALL THE FILES AND ENABLE ACCESSING THEM. >* '(MPI PF=PROGA,MT=TA,MN=>41,ADR=>0006,(" V=(>4942,>4D55,>544C,>2020), "( D=(>D060,>05AF,>1306,>9801),C=>5EC8(EC'(MPI PF=PROGA,MT=TA,MN=>41,ADR=>000E,(" V=(>2843,>2920,>434F,>5059), "( D=(>0429,>1302,>0460,>15FE),C=>06B5(EC'(MPI PF=PROGA,MT=TA,MN=>41,ADR=>0016,( V=(>5249,>4748,>5420), " D=(>04C1,>0460,>1600),C=>16A1"EC'(MPI PF=PROGA,MT=TA,MN=>41,ADR=>15F8,(, V=(>D060,>05AF),D=(>0460,>0006),C=>0466,EC'*$'N%**************************************************************************N* '8*=P0429 KDK02/08/80STR #057293.3.1 INV,DCOPY8* '4* INV AND DCOPY WILL CALCULATE THE WRONG RELATIVE4 ADU NUMBER @* TO BE PLACED IN THE OVERHEAD WORD OF THE LAST PARTIAL BIT @@* MAP. THIS WILL CAUSE AN ATTEMPT TO ALLOCATE SPACE BEYOND @@* THE END OF THE DISK. THE PROBLEM IS CORRECTED WITH THIS @* PATCH. #* '(MPI PF=PROGA,MT=TA,MN=>07,ADR=>2B22,( V=0585,D=>0586,C=>0586 EC'(MPI PF=PROGA,MT=TA,MN=>07,ADR=>2B2A,( V=>8805,D=>8806,C=>8806EC'(MPI PF=PROGA,MT=TA,MN=>4C,ADR=>D408,( V=>0585,D=>0586,C=>0586EC'(MPI PF=PROGA,MT=TA,MN=>4C,ADR=>D410,( V=>8805,D=>8806,C=>8806EC'*$'@************************************************************ @$*  BEGIN RELEASE 3.3.2 PATCHES$@************************************************************ @* '2*=P0437 GRJ02/20/80STR #058333.3.2 CD 2* '8* THIS PATCH ENABLES 3.3 CD TO PROPERLY COPY FILES 84* GREATER THAN >FFFF PHYSICAL RECORDS IN SIZE. 4* '.MPI PF=PROGA,MT=TA,MN=>28,ADR=>0C62+>01F8,.,V=(>C903,>001E),D=(>0460,>1272),C=>1612 ,EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>1242+>0030,. V=(>0000,>0000,>0000,>0000), (D=(>A92E,>0024,>001C,>C903),C=>6015 (EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>1242+>0038,. V=(>0000,>0000,>0000),(D=(>001E,>0460,>0C62+>01FC),C=>0A20 (EC'*$'B************************************************************* B* '6*=P0438 GRJ02/20/80STR #058343.3.2 LSTSYN 6* '<* LS DOES NOT CORRECTLY DISPLAY SYNONYM VALUES THAT ARE <.* OVER APPROXIMATELY 100 CHARACTERS LONG..* '>MPI PF=PROGA,MT=TA,MN=>36,ADR=>44A,V=>10A9,D=>10A6,C=>10A6 >EC'*$'B************************************************************* B* '2*=P0439 GRJ02/21/80STR #058353.3.2 CD 2* '@* IF THE INPUT FILE OF A 'CD' IS NOT A SEQUENTIAL FILE AND @D * IT CAN NOT BE ACCESSED BECAUSE OF ACCESS PRIVILAGE VIOLATION,D,* AN ERRONEOUS ERROR WILL BE RETURNED. ,* '.MPI PF=PROGA,MT=TA,MN=>28,ADR=>355A+>004E,.&V=(>C021,>0010,>0240,>0003,>0600),&.D=(>C0A1,>0010,>0242,>0003,>0602),C=>C4F2 .EC'*$'B************************************************************* B* '2*=P0440 GRJ02/21/80STR #058353.3.2 BD 2* '@* IF THE INPUT FILE OF A 'BD' IS NOT A SEQUENTIAL FILE AND @D * IT CAN NOT BE ACCESSED BECAUSE OF ACCESS PRIVILAGE VIOLATION,D,* AN ERRONEOUS ERROR WILL BE RETURNED. ,* '.MPI PF=PROGA,MT=TA,MN=>26,ADR=>2AA2+>004E,.&V=(>C021,>0010,>0240,>0003,>0600),&.D=(>C0A1,>0010,>0242,>0003,>0602),C=>C4F2 .EC'*$'B************************************************************* B* '2*=P0441 GRJ02/21/80STR #058353.3.2 VC 2* '@* IF THE INPUT FILE OF A 'VC' IS NOT A SEQUENTIAL FILE AND @D * IT CAN NOT BE ACCESSED BECAUSE OF ACCESS PRIVILAGE VIOLATION,D,* AN ERRONEOUS ERROR WILL BE RETURNED. ,* '.MPI PF=PROGA,MT=TA,MN=>3F,ADR=>0B04+>004E,.&V=(>C021,>0010,>0240,>0003,>0600),&.D=(>C0A1,>0010,>0242,>0003,>0602),C=>C4F2 .EC'*$'B************************************************************* B* '2*=P0442 GRJ02/21/80STR #058363.3.2 CC 2* '&* CC SETS THE INITIATE I/O FLAG EVE& RY OTHER READ INSTEAD OF * EVERY READ.!* '(MPI PF=PROGA,MT=TA,MN=>34,ADR=>0610,(,V=(>0223,>8000),D=(>E0E0,>0124),C=>E1C4 ,EC'*$'B************************************************************* B* '2*=P0443 GRJ02/21/80STR #058373.3.2 CC 2* '>* CC DOES NOT PROPERLY CONCANTANATE RELATIVE RECORD FILES >* '(MPI PF=PROGA,MT=TA,MN=>34,ADR=>0704,(,V=(>C0A7,>0006),D=(>0460,>0B0A),C=>0F6A ,EC'(MPI PF=PROGA,MT=TA,MN=>34,ADR=>0B0A,(8V=(>5553,>4520,>434F,>5059,>2044,>4952,>4543,>544F), 88D=(>C0A7,>0006,>04E7,>000C,>04E7,>000E,>0460,>0708), 8 C=>C3CB " EC'*$'B************************************************************* B* '2*=P0444 GRJ02/21/80STR #058383.3.2 MRF2* '* IF AN 'MRF'6 IS EXECUTED WITH A DATA VALUE GREATER THAN >FFFF,6@* AN 'SRF' IS DONE OF THE ENTIRE FILE INSTEAD. AN 'INVALID @,* PARAMETER' ERROR SHOULD BE RETURNED. ,* '@MPI PF=PROGA,MT=TA,MN=>21,ADR=>03A2,V=>161F,D=>161D,C=>161D @EC'*$'B************************************************************* B* '2*=P0445 GRJ02/21/80STR #058393.3.2 BD 2* '<* BD DOES NOT BLOCK AT 9600 BYTES EVEN WHEN 'BLOCK' IS <* SPECIFIED"* '6MRF P=PROC.BD,RN=0,FW=>E2,V=>5A20,D=>2020,C=>2020 6EC' MRF P=PROC.BD,RN=1,FW=>9A,8V=(>2C42,>5349,>5A29),D=(>2C26,>4253,>4929),C=>275C 8EC'.MPI PF=PROGA,MT=TA,MN=>26,ADR=>2036+>0060,.,V=(>0281,>001E,>1A06,>0281,>7D00,>1B03),,4D=(>0281,>7D00,>1A02,>0201,>2580,>1000),C=>5202 4EC' MPI PF=PRO $GA,MT=TA,MN=>26,ADR=>2036+>005A,$ V=>20A8,D=>209C,C=>209C EC'*$'B************************************************************* B* '2*=P0446 GRJ02/21/80STR #058403.3.2 CPI2* '>* 'CPI' OF AN OVERLAY WITH AN ASSOCIATED TASK NAME GIVEN >>* INSTEAD OF ID WILL CAUSE A >3158 ERROR TO BE RETURNED. >* '@MPI PF=PROGA,MT=TA,MN=>39,ADR=>0F7E,V=>0664,D=>0A00,C=>0A00 @EC'(MPI PF=PROGA,MT=TA,MN=>39,ADR=>0A00,( V=(>0000,>0000,>0000,>0000), $D=(>2020,>2020,>2020,>2020),C=>0$EC'@MPI PF=PROGA,MT=TA,MN=>39,ADR=>0F7A,V=>10E8,D=>10E6,C=>10E6 @EC'@MPI PF=PROGA,MT=TA,MN=>39,ADR=>0F9C,V=>1122,D=>111A,C=>111A @EC'(MPI PF=PROGA,MT=TA,MN=>39,ADR=>0F94,(,V=(>06A0,>1038),D=(>0460,>09EA),C=>0D8A ,EC'MPI PF=PROGA ,MT=TA,MN=>39,ADR=>09EA, V=(>0000,>0000,>0000,>0000), (D=(>C120,>0AA4,>04E0,>0AA4),C=>C5C0 (EC'(MPI PF=PROGA,MT=TA,MN=>39,ADR=>09F2,(,V=(>0000,>0000),D=(>06A0,>1038),C=>1698 ,EC'(MPI PF=PROGA,MT=TA,MN=>39,ADR=>09F6,(&V=(>0000,>0000,>0000,>0000,>0000),&.D=(>0F9A,>C804,>0AA4,>0460,>0F9A),C=>C6C0 .EC'*$'B************************************************************* B* '2*=P0455 GRJ02/21/80STR #058183.3.2 CD 2* '<* IF A COPY DIRECTORY IS DONE FROM A T200 TO A T50 OF: <F!* 1) A PROGRAM FILE LARGER THAN >8C RECORDS, WITH NO HOLES IN IT,F** AND THE DESTINATION DOES NOT EXIST,*D * 2) ANY FILE HAVING A PHYSICAL RECORD SIZE EQUAL TO 288 BYTES,D,* THEN THE COPY WILL NOT WORK PROPERLY.,* ' MPI PF=PROGA,MT=TA ,MN=>28,ADR=>2512+>006A,,V=(>C1D2,>C152),D=(>0460,>1652),C=>1232 ,EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>15CC+>0086,. V=(>0000,>0000,>0000,>0000), (D=(>81D2,>1101,>C1D2,>C152),C=>9053 (EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>15CC+>008E,.,V=(>0000,>0000),D=(>0460,>2580),C=>21E0 ,EC'*$'B************************************************************* B* '>*=P0471 GRJ03/19/80STR #05670 3.3.2 CD,BD,RD,VC,VB >* '@* IF AN ERROR INTERNAL TO 'CD,BD,RD,VC OR VB' IS DETECTED, @@* THE ERROR IS RETURNED TO THE TERMINAL AS WELL. THIS ERROR @B* SHOULD NOT BE RETURNED. THE $$CC VALUE IS SET TO THE VALUE B8* OF THE INTERNAL ERROR AND SHOULD BE SET TO >FFFF.8* ' * CD % * '.MPI PF=PROGA,MT=TA,MN=>28,ADR=>2796+>003E,.V= >1003,D=>1002,C=>1002 EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>2796+>0044,. V=>06C0,D=>0700,C=>0700 EC'.MPI PF=PROGA,MT=TA,MN=>28,ADR=>3E96+>0136,. V=>132A,D=>112A,C=>112A EC'* ' * BD % * '.MPI PF=PROGA,MT=TA,MN=>26,ADR=>1DEE+>003E,. V=>1003,D=>1002,C=>1002 EC'.MPI PF=PROGA,MT=TA,MN=>26,ADR=>1DEE+>0044,. V=>06C0,D=>0700,C=>0700 EC'.MPI PF=PROGA,MT=TA,MN=>26,ADR=>348A+>0136,. V=>132A,D=>112A,C=>112A EC'* ' * RD % * '.MPI PF=PROGA,MT=TA,MN=>27,ADR=>1864+>003E,. V=>1003,D=>1002,C=>1002 EC'.MPI PF=PROGA,MT=TA,MN=>27,ADR=>1864+>0044,. V=>06C0,D=>0700,C=>0700 EC'.MPI PF=PROGA,MT=TA,MN=>27,ADR=>32CE+>0136,. V=>132A,D=>112A,C=>112A EC'* '*  VC %* '.MPI PF=PROGA,MT=TA,MN=>3F,ADR=>010C+>003E,. V=>1003,D=>1002,C=>1002 EC'.MPI PF=PROGA,MT=TA,MN=>3F,ADR=>010C+>0044,. V=>06C0,D=>0700,C=>0700 EC'.MPI PF=PROGA,MT=TA,MN=>3F,ADR=>3152+>0136,. V=>132A,D=>112A,C=>112A EC'* ' * VB % * '.MPI PF=PROGA,MT=TA,MN=>40,ADR=>035E+>003E,. V=>1003,D=>1002,C=>1002 EC'.MPI PF=PROGA,MT=TA,MN=>40,ADR=>035E+>0044,. V=>06C0,D=>0700,C=>0700 EC'.MPI PF=PROGA,MT=TA,MN=>40,ADR=>2844+>0136,. V=>132A,D=>112A,C=>112A EC'*$'B************************************************************* B* '2*=P0474 GI 03/19/80STR #056043.3.2 SCI2* ':* DOING A QUIT EDIT (QE) FOLLOWED BY A .BID OF A TASK :"* WITHIN A PROC CAN CAUSE SCI T" O LOSE THE EVENT CHARACTERS 6* AT A TERMINAL. THIS PATCH CORRECTS THE PROBLEM.6* '(MPI PF=PROGA,MT=PR,MN=>03,ADR=>0614,( V=(>0000,>0000,>0000,>0000), (D=(>D8E0,>6246,>0002,>D8E0),C=>6244 (EC'(MPI PF=PROGA,MT=PR,MN=>03,ADR=>061C,( V=(>0000,>0000,>0000),"D=(>127C,>0005,>045B),C=>1622 "EC'(MPI PF=PROGA,MT=OV,MN=>02,ADR=>6298,( V=(>D8E0,>6246,>0002),"D=(>1000,>06A0,>0614),C=>10B4 "EC'*$'B************************************************************* B* '6*=P0481 LG 03/31/80STR #060533.3.2 SDSMAC 6* 'B* THE MACRO ASSEMBLER ABORTS WITH "UNEXPECTED END OF PARSE - B@* SDSMAC BUG" MESSAGE UPON FINDING A "TEXT" DIRECTIVE WITH @* NO OPERAND.!* '0MPI PF=S$SDS$,MT=OV,MN=>27,ADR=>6982+>04D0, 0@ V=>10E5,D=>10F2,C=>10F2 EC'*$'B************************************************************* B* '4*=P0489 KDK04/11/80STR #061353.3.2 DCOPY4* '@* THERE IS A POTENTIAL PROBLEM WITH DCOPY WRITING ON A DATA @>* DISK PLACED IN DS01 FOR THE COPY. WHEN THE SOURCE DISK >>* IS DS01, THE LOG IS REENABLED AFTER THE COPY COMPLETES >B* ALLOWING THE SYSTEM LOG PROCESSOR TO DUMP ANY LOG MESSAGES B<* ACCUMULATED DURING THE COPY. IF THE COPY IS DONE TO <@* DS01 THE PROBLEM CANNOT OCCUR. THIS PATCH PROHIBITS THE @>* PROBLEM BY CAUSING AN 'IPL' TO BE REQUIRED ANYTIME DS01 ><* IS USED IN A COPY. ALSO, DCOPY REFORMATS TRACK 0 TO <<* 2 SECTORS/RECORD WHEN AN ERROR OCCURS, CAUSING A >11 <@* ERROR THAT MIMICS A HARDWARE ERROR. THIS IS ALSO CORRECTED@. * '(MPI PF=PROGA,MT=TA,MN=>07,ADR=>240C,( V=>110E,D=>100E,C=>100E EC'(MPI PF=PROGA,MT=TA,MN=>07,ADR=>2408,( V=>C020,D=>0720,C=>0720 EC'(MPI PF=PROGA,MT=TA,MN=>07,ADR=>2484,( V=>110C,D=>100C,C=>100C EC'(MPI PF=PROGA,MT=TA,MN=>07,ADR=>124E,( V=>06A0,D=>1001,C=>1001 EC'(MPI PF=PROGA,MT=TA,MN=>07,ADR=>1252,( V=>06A0,D=>1001,C=>1001 EC'(MPI PF=PROGA,MT=TA,MN=>07,ADR=>1BC2,( V=>0240,D=>0120,C=>0120 EC'*$'B************************************************************* B* '2*=P0491 KDK03/07/80STR #059143.3.2 CKD2* '4* CKD COMMAND HAS AN UNDOCUMENTED EXTRA PROMPT.4* '&MRF PN=PROC.CKD,RN=>0000,FW=>0058,&<V=(>3D20,>5945,>534E,>4F20),D=(>2C20,>2020,>2020,>2020),C=< >0C00  EC'&MRF PN=PROC.CKD,RN=>0000,FW=>0060,&8V=(>284E,>4F29,>2C20),D=(>2020,>2020,>2020),C=>2020 8EC'*$'B************************************************************* B* '2*=P0492 GRJ04/08/80STR #061653.3.2 KIF2* '>* IF A KIF FILE IS EXPANDING TOO RAPIDLY, THIS PATCH WILL > * CORRECT THE EXPANSION. * '$MRF PN=OVLYA,RN=>0006,FW=>00F6, $*V=(>696F,>0052),D=(>0469,023A),C=>0653*EC'$MRF PN=OVLYA,RN=>0006,FW=>0238, $0V=>4600,D=(>4600,>696F,>0052,>0006),C=>2F3B 0EC'$MRF PN=OVLYA,RN=>0006,FW=>023E, $0V=>0006,D=(>0006,>896F,>0052,>0006),C=>893D 0EC'$MRF PN=OVLYA,RN=>0006,FW=>0244, $0V=>0006,D=(>0006,>1208,>CBA5,>0008),C=>D9A3 0EC'$MRF PN=OVLYA,RN=>0006,FW=>024A, $V=>0008,D=(>00"08,>004C,>CBA5,>000A),C=>CBEB "EC'$MRF PN=OVLYA,RN=>0006,FW=>0250, $0V=>000A,D=(>000A,>004E,>0725,>0008),C=>0769 0EC'$MRF PN=OVLYA,RN=>0006,FW=>0256, $*V=>0008,D=(>0008,>0469,>00FC),C=>049D *EC'*$'B************************************************************* B* '2*=P0494 MSC04/18/80STR #061703.3.2 RD 2* '6* PATCH TO FIX BD/RD PROBLEM TO SEQUENTIAL FILES.66* THE PROBLEM IS CAUSED BY RD NOT INTIALIZING THE68* RECORD LENGTH FIELD OF THE PRB ON ITS FIRST READ.88* THE VALUE USED IS THAT RETURNED BY AN OPEN WHICH 8:* IS THE LOGICAL RECORD LENGTH. THE BLOCKING ROUTINE :<* FINDS THE INPUT RECORD LARGER THAN THE RECORD LENGTH <,* FIELD AND FLAGS IT AS NOT A BD FILE. ,* '&MPI PF=PROGA,MT=TA,MN=>27,ADR=>20F2& +>0072,  " V=(>04E2,>000E,>04E2,>000C), "" D=(>0203,>0086,>C883,>0008), "  C=>CA0E! EC'*$'B************************************************************* B* '2*=P0495 MSC04/18/80STR #061683.3.2 CD 2* '8* PATCH TO FIX CD PROBLEM WHERE IT TAKES END ACTION8&* WHEN IT RECEIVES A DISK ERROR. &* '0MPI PF=PROGA,MT=TA,MN=>28,ADR=>2D68+>00AA, 0" V=>FFFF,D=>2D68+>00A8,C=>2E10"EC'*$'B************************************************************* B* '2*=P0506 GRJ04/21/80STR #061933.3.2 LD 2* '<* LD CANNOT HANDLE FILES WITH A LARGE NUMBER OF LOGICAL <:* RECORDS. IT JUST STOPS WITHOUT RETURNING AN ERROR. :* '>MPI PF=PROGA,MT=TA,MN=>32,ADR=>0760,V=0800,D=>2000,C=>2000 >EC'*$'@B************************************************************* B$* BEGIN RELEASE 3.3.3 PATCHES $B************************************************************* B* '4*=P0559 GRJ05/05/80STR #059493.3.3 FUTIL4* 'B* IF AN ASSIGN LUNO IS PERFORMED WITH THE AUTOCREATE BIT SET B@* AND BIT 0 OF THE USER FLAGS IS SET (CREATE BY ASSIGN), IF @6* THE FILE ALREADY EXISTS, THE BIT IS NOT RESET. 6* '4MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>1608+>0280,4 V=>9FE0,D=>1FE0,C=>1FE0 EC'4MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>1608+>00F8,4 V=(>EBE0,>D60A,>0018,>06A0), (D=(>06A0,>D62A,>C3EA,>EBE0),C=>F880 (EC'4MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>1608+>0100,4V=(>D62A,>C3EA), D=(>D60A,>0018),C=>D612 EC'*$'* ' * LAST < TWO MPI'S RECEIVED AND ADDED TO THIS PATCH ON 28 MAY 80<* '* 'B************************************************************* B* '6*=P0562 RVL05/16/80STR #057533.3.3 GEN990 6* '.*  THIS PATCH IS REPLACED BY PATCH P0598.* '>********************************************************* >* '6*=P0598 RVL06/26/80STR #065933.3.3 GEN990 6* '@* WHEN DEVICES GENNED IN AN EXPANSION CHASSIS ARE DELETED, @@* THE BIT REPRESENTING THE CHASSIS POSITION ON THE CARD IS @B* OCCASIONALLY NOT DELETED PROPERLY. WHEN AN ATTEMPT IS MADE B<* TO DELETE THE CARD, THE ERROR MESSAGE 'CANNOT RELEASE <6* INTERRUPT WHEN DEVICES ARE DEFINED' IS OUTPUT. 6* '6* THIS PATCH CORRECTS A PROBLEM WITH PATCH 0562. 6 * IF PATCH 0562 HAS ALR(EADY BEEN APPLIED, REMOVE THE DOUBLE (>* ASTERISKS "**" FOR THE FIRST FOUR MPI'S ON THIS PATCH, >>* RUN THE PROGA PATCH FILE AND THEN REEDIT THIS PATCH TO ><* REPLACE THE DOUBLE ASTERISKS. FAILURE TO REEDIT THIS <<* PATCH WILL RESULT IN VERIFICATION ERRORS IF THE PATCH <(* FILE IS RERUN AT SOME LATER TIME.(* 'B* IF PATCH 0562 HAS NOT BEEN APPLIED, THIS PATCH MAY BE USED B* AS IS. #* '0**MPI PF=PROGA,MT=OV,MN=>05,ADR=>3F7E+>0FFC,0$**V=(>C359,>C38D,>738E,>0A1E),$,**D=(>D379,>097D,>D399,>097E),C=>00E3 ,**EC&0**MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>069C,0$**V=(>C2AD,>0014,>C2ED,>001A),$,**D=(>C04D,>0221,>0014,>C291),C=>00E9 ,**EC&0**MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>06A4,0$**V=(>04CC,>D30B,>097C,>CB4C),$**(D=(>0221,>0006,>C2F1,>C311),C=>03C7 (**EC&0**MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>06AC,0** V=(>001A,>1000,>1000),&**D=(>0A8B,>A2CC,>091B),C=>A15C &**EC&.MPI PF=PROGA,MT=OV,MN=>05,ADR=>3F7E+>0FFC,. V=(>D379,>097D,>D399,>097E), (D=(>C819,>2A6E,>1000,>1000),C=>E277 (EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>3F7E+>1006,..V=>23DC+>0678,D=>23DC+>0682,C=>23DC+>0682 .EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>0682,.,V=(>0000,>0000),D=(>2A58,>2A8E),C=>00D6 ,EC'* '.MPI PF=PROGA,MT=OV,MN=>05,ADR=>3F7E+>0FD8,.V=(>D1AA,>0003),"D=(>0460,>23DC+>0686),C=>2E02 "EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>0686,. V=(>0000,>0000,>0000),"D=(>D1AA,>0003,>1102),C=>C0AB "EC',MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>068C,, V=(>0000,>0000,>0000),(D=(>0460,>3F7E+>0FDC,>045B),C=>4F61 (EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>069C,. V=(>C04D,>0221,>0014),"D=(>C2ED,>001A,>0A8B),C=>C87C "EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>06A2,. V=(>C291,>0221,>0006),"D=(>A2ED,>001C,>091B),C=>ABEA "EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>06A8,. V=(>C2F1,>C311,>0A8B),"D=(>C32D,>0014,>1000),C=>D339 "EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>06AE,.V=(>A2CC,>091B), D=(>1000,>1000),C=>0000 EC'* '* '.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>06E6,. V=>D0AA,D=>D0AC,C=>D0AC EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>06FA,. V=>C02A,D=>C02E,C=>C02E EC',*$ ! THIS PATCH MODIFIED BY PATCH 620.,**************4*********************************************** 4* '6*=P0599 KR 06/24?80STR #065673.3.3 IBMUTL 6* '<* TRANSLATION OF LOWER CASE "V" FROM EBCDIC TO ASCII IS <* INCORRECT. !* '@MPI PF=PROGA,MT=TA,MN=>41,ADR=>1A0A,V=>750A,D=>7576,C=>7576 @EC'@MPI PF=PROGA,MT=TA,MN=>41,ADR=>1B0A,V=>750A,D=>7576,C=>7576 @EC'@MPI PF=PROGA,MT=TA,MN=>41,ADR=>1E0A,V=>750A,D=>7576,C=>7576 @EC'*$'B************************************************************* B* '2*=P0600 RVL07/30/80STR #067153.3.3 ISL2* '<* THE ISL (INITIALIZE SYSTEM LOG) PROC MUST BE REPLACED <&* TO SUPPORT ON-LINE DIAGNOSTICS.&* '.USE PROC #*.PROC ISL(INITIALIZE SYSTEM LOG) = 4, * ATTENTION DEVICE = ACNM, LOGGING DEVICE = ACNM,@,SYSTEM LOG PROCESSOR TASK ID = INT(05E),,(USER LOG PROCESSOR TASK ID = INT(0) ( .SYN $ISL$P = "&SYSTEM LOG"   .IF @$ISL$P ,NE, 05E .IF @$ISL$P ,NE, 05F .SYN $ISL$P = 05E  .ENDIF! .ENDIF"  .IF "&USER LOG", NE, "" &.SYN $ISL$P = "@$ISL$P,&USER LOG" & .ELSE "  .SYN $ISL$P = "@$ISL$P,0"  .ENDIF" 4.BID TASK=>1E,CODE=0,PARMS=("&ATTENTION DEVICE", 4  "&LOGGING DEVICE",@$ISL$P) .EOP&.USE&*.OVLY OVLY=>1B,PARMS=(8,"@PROC.ISL$") **$'B************************************************************* B* '6*=P0603 LGF07/07/80STR #066423.3.3 CHKDSK 6* 'F!* THE AUTO-CORRECT FEATURE OF CHKDSK DOES NOT FUNCTION PROPERLY. F* '(MPI PF=PROGA,MT=TA,MN=>1A,ADR=>0D5C,($V=(>2FE0,>0702),D=(>0460,>02BC),C=$ >06DC  EC'@MPI PF=PROGA,MT=TA,MN=>1A,ADR=>02AC,V=>264E,D=>0E4E,C=>0E4E @EC'(MPI PF=PROGA,MT=TA,MN=>1A,ADR=>02BC,(8V=(>464F,>5220,>5245),D=(>2FE0,>0702,>04E0),C=>2C02 8EC'(MPI PF=PROGA,MT=TA,MN=>1A,ADR=>02C2,(8V=(>434F,>5244,>494E),D=(>070A,>0460,>0D60),C=>0E0A 8EC'*$'B************************************************************* B* '2*=P0606 GJ 07/11/80STR #065393.3.3 CPI2* '<* CPI DOES NOT WORK PROPERLY IF THE IMAGE NAME IS EIGHT <<* CHARACTERS LONG AND IS FOLLOWED BY A COMMA AND AN ID. <* 'F!MPI PF=PROGA,MT=TA,MN=>39,ADR=>0D10+>02E0,V=>10E4,D=>10F9,C=>10F9 FEC'*$'R(********************************************************************************R* '.*=P0608 KDK07/23/80STR #067123.3.3 D.COPY* 'B* PATCH P0489 DOES NOT REQUIRE THAT THE SYSTEM BE BOOTED WHEN BJ#* DS01 IS USED AS THE SOURCE DISK BUT LEAVES ALL TERMINALS DISABLED. JD * THIS PATCH FORCES AN IPL REQUIRED WHEN DS01 IS USED IN DCOPY.D* '*MPI PF=PROGA,MT=TA,MN=DCOPY,ADR=>14F8,*8 V=(>C060,>08F8,>1639),D=(>05C0,>099A,>1000),C=>1C5A 8EC'BMPI PF=PROGA,MT=TA,MN=DCOPY,ADR=>162C,V=>05A0,D=>05C0,C=>05C0 BEC'*$'R(********************************************************************************R* '6*=P0609 KDK07/23/80STR #067073.3.3 MMPACK 6* 'D * THE MEMORY PACKER ROUTINE DOES NOT PACK AS OFTEN AS REQUIRED DB* TO KEEP THE SYSTEM MEMORY FROM BECOMING FRAGMENTED WHEN THE BH"* PACKER IS ENABLED. THIS PATCH ENABLES MMPACK TO KEEP THE MEMORY H* PACKED.# D* 'BMPI PF=PROGA,MT=TA,MN=MMPACK,ADR=>C024,V=>0258,D=>0040,C=>0040 BEC'BMPI PF=PROGA,MT=TA,MN=MMPACK,ADR=>C236,V=>04E0,D=>1001,C=>1001 BEC',MPI PF=PROGA,MT=TA,MN=MMPACK,ADR=>C0F4, ,, V=(>16C9,>0620),D=(>1AC9,>04E0),C=>1E29,EC'*$'R(********************************************************************************R* '2*=P0612 KDK07/23/80STR #066823.3.3 CKD2* 'H"* THE CKD UTILITY WILL CLAIM THAT A T200 DISK IS MULTIPLY ALLOCATEDHH"* WHEN IT IS NOT AND WHEN AUTO CORRECTION IS SPECIFIED, WILL ENABLEHJ* THE DISK TO ACTUALLY BECOME DUALLY ALLOCATED. THIS PATCH CORRECTS J* THIS ERROR.!* 'BMPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>0712,V=>0600,D=>06CC,C=>06CC BEC'BMPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>0824,V=>2000,D=>2880,C=>2880 B DF@EC'BMPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>082C,V=>2000,D=>2880,C=>2880 BEC'BMPI PF=PROGA,MT=TA,MN=CHKDSK,ADR=>0834,V=>2000,D=>2880,C=>2880 BEC'*$'R(********************************************************************************R* 'D*=P0613 KDK07/24/80STR #067133.3.3 DISK BUILD FROM TAPE D* 'D * THE DISK BUILD FROM TAPE ROUTINE DOES NOT PROPERLY BUILD THE D>* VCATALOG DIRECTORY OVERHEAD RECORD AND DOES NOT SET THE >@* ALLOCATED ADU MAP FOR THE FILE .S$DIAG.THIS WILL CAUSE @H"* THE CKD ROUTINE TO DECLARE THE VCATALOG DIRECTORY A BAD DIRECTORYH<* AND THAT A NUMBER OF ADUS ARE ALLOCATED AND NOT USED <H"* IMMEDIATELY AFTER BUILDING A DISK. ALL DISKS ARE AFFECTED, DS10,H * DS25, DS50, AND DS200. * '"* TO CORRECT THE DISK BUILD PR""OGRAM, LOAD AND BOOT THE FIRST"F* TAPE IN THE 3 TAPE SERIES.LWHEN THE 'READY?' PROMPT APPEARS ONFD* THE VDT, PRESS THE HALT BUTTON ON THE FRONT PANEL.MODIFY THED** CONTENTS OF THE FOLLOWING ADDRESSES:** '.*  ADDRESS VERIFICATION DATANEW DATA .* '*  >30E6>12C2  >10C2 *  >3120>0007  >0008 *  >32FC>FFF9  >FFF8 * '* 'B* THE MODIFICATION IS PERFORMED BY PRESSING THE 'CLR' BUTTON, BD * ENTERING THE ADDRESS IN THE LIGHTS, PRESSING THE 'MA' BUTTON DF!* OF THE "ENTER" GROUP, PRESSING THE 'MDD' BUTTON, VERIFYING THE FF!* PROPER DATA IS DISPLAYED AND CHANGING THE VALUE TO THE NEW DATAFF* VALUE, AND PRESSING THE 'MDE' BUTTON. THIS IS DONE FOR EACH OFFD * THE THREE ADDRESSES GIVEN ABOVE. AFTER ALL DATA VALUES HAVE DPRH@D * BEEN CHANGED, PRESS THE 'RUN' BUTTON AND RESUME THE STANDARD D8* PROCEDURES FOR PERFORMING A DISK BUILD FROM TAPE.8*$'B************************************************************* B* '6*=P0615 PJW07/24/80STR #064623.3.3 SLMFOT 6* '>* THIS PATCH WILL ALLOW THE LOG FORMATTER TO BID THE USER >:* SPECIFIED OR SYSTEM LOG PROCESSOR TASK AND PASS THE :B* LOG FILE NUMBER OF THE LOG FILE WHICH HAS JUST BEEN FILLED. BD * THE LOG FILE NUMBER IS PASSED AS AN ASCII 1 OR 2 (>31 OR >32)D@* AND IS OBTAINED BY ISSUING AN SVC >17 CALL. THE NUMBER IS @<* FOUND IN THE UPPER BYTE OF THE SECOND PARAMETER WORD. <* '(MPI PF=PROGA,MT=TA,MN=>04,ADR=>C482,(,V=(>2FE0,>CAF8),D=(>0460,>CB1C),C=>CF7C ,EC'(MPI PF=PROGA,MT=TA,MN=>04,ADR=>C48E,( V=(>2FE0 $,>CB04),D=(>0460,>CB2A),C=>CF4A $EC'(MPI PF=PROGA,MT=TA,MN=>04,ADR=>CB1C,( V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>D820,>C913,>CAFE,>2FE0),C=>F42D (EC'(MPI PF=PROGA,MT=TA,MN=>04,ADR=>CB24,( V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>CAF8,>0460,>C486,>D820),C=>D23E (EC'(MPI PF=PROGA,MT=TA,MN=>04,ADR=>CB2C,( V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>C913,>CB0A,>2FE0,>CB04),C=>E6FD (EC'(MPI PF=PROGA,MT=TA,MN=>04,ADR=>CB34,(,V=(>DEAD,>DEAD),D=(>0460,>C492),C=>C0F2 ,EC'*$'B************************************************************* B* '6*=P0620 RVL07/30/80STR #067163.3.3 GEN990 6* '>* PATCH 598 IS INCOMPLETE. IF PATCH 598 HAS BEEN APPLIED, >>* THE DEVICE INTERRUPT DECODER FOR DEVICES DEFINED IN AN >* EXPANSION( CHASSIS MAY NOT BE SET UP PROPERLY.(<* NOTE! PATCH 598 MUST BE APPLIED BEFORE THIS PATCH IS <@* APPLIED. VERIFICATION ERRORS WILL RESULT IF THESE PATCHES @.* ARE NOT APPLIED IN THE PROPER SEQUENCE..* '.MPI PF=PROGA,MT=OV,MN=>05,ADR=>3F7E+>1000,.,V=(>1000,>1000),D=(>04CD,>04CE),C=>0003 ,EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>3F7E+>1008,. V=(>1000,>100C,>0206,>01C0), (D=(>100D,>1000,>0460,>006C),C=>0401 (EC'(MPI PF=PROGA,MT=TA,MN=>33,ADR=>006C,( V=(>0000,>0000,>0000,>0000), (D=(>D379,>097D,>D399,>097E),C=>00E3 (EC'(MPI PF=PROGA,MT=TA,MN=>33,ADR=>0074,( V=(>0000,>0000,>0000,>0000), .D=(>0206,>01C0,>0460,>3F7E+>1010),C=>4828 .EC'.MPI PF=PROGA,MT=OV,MN=>05,ADR=>23DC+>0684,. V=>2A8E,D=>2A84,C=>2A84 EC'*$'B************************************************************* B* '4*=P0621 GJ 06/30/80STR #064333.3.3 FUTIL4* ':* OPCODE >98 ALWAYS RETURNS A >6000 IN THE UCB FLAGS :.* FIELD. IT SHOULD NOT CHANGE THE FIELD. .* '4MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>2A4E+>0018,4 V=(>CBE0,>D60C,>0018),"D=(>C1EF,>0018,>1000),C=>D1F7 "EC'4MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>2A4E+>0022,4 V=(>06A0,>D7DE,>EB0C),"D=(>0460,>C2D8,>1000),C=>D6B8 "EC'(MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C2D8,( V=(>0000,>0000,>0000),"D=(>CBE0,>D60C,>0018),C=>1DF4 "EC'(MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C2DE,( V=(>0000,>0000,>0000),"D=(>06A0,>D7DE,>EB0C),C=>3A72 "EC'(MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C2E4,( V=(>0000,>0000,>0000,>0000), "@(D=(>CBC7,>0018,>0460,>EA76),C=>25C9 (EC'*$'B************************************************************* B* '2*=P0622 GJ 06/30/80STR #064633.3.3 KIF2* '>* 3.3 HASH PLACED KIF DOES NOT SET A KEY TO NULL IF ON A >&* REWRITE THE FIRST BYTE IS >FF. &* ' MRF PN=OVLYA,RN=>03,FW=>48,  ,V=(>1609,>9BEC),D=(>135D,>1008),C=>0355 ,EC'*$'B************************************************************* B* '4*=P0623 GJ 07/01/80STR #064053.3.3 FUTIL4* ':* A CD OF A KIF FILE RESULTS IN THE DESTINATION FILE ::* DESCRIPTOR RECORD HAVING AN INCORRECT VALUE IN ITS :<* MINIMUM RECORD SIZE FIELD WHICH MAY CAUSE >C0 ERRORS < * WHEN THE FILE IS USED. * '2MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>0F64+>0466,2 V=>117E,D=>1000,C=>1000 EC'*$'B************************************************************* B* '4*=P0624 GJ 07/01/80STR #063623.3.3 FUTIL4* '<* WHEN A SEQUENTIAL PLACEMENT KIF IS CREATED, THE FREE <@* BLOCK'S SPACE REMAINING FIELD IS TOO SMALL. THIS PROBLEM @"* WILL NOT CAUSE ANY ERRORS. "* '4MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>0466+>0AE2,4 V=(>C1A0,>00AC,>1117,>0201), (D=(>C16F,>001C,>0225,>FFF0),C=>3CA6 (EC'4MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>0466+>0AEA,4 V=(>C558,>0202,>0010,>C16F), (D=(>C1A0,>00AC,>1113,>0201),C=>D21E (EC'4MPI PF=PROGA,MT=TA,MN=>0B,ADR=>C000+>0466+>0AF2,4 V=(>001C,>0225,>FFF0),"D=(>C558,>0202,>0010),C=>C74A "EC'*$'&************************************& ************************* * '6*=P0625 MSC06/30/80STR #066153.3.3 SLMFOT 6* ':* PATCH TO ALLOW ONLINE DIAGNOSTICS TO DIFFERENTIATE :8* BETWEEN BEING BID BY SLMFOT AND OTHER BIDS OF THE8 * LOG READER TASK. * ',MPI PF=PROGA,MT=TA,MN=SLMFOT,ADR=>CAFC,, V=>0000,D=>FFFF,C=>FFFFEC'*$'B************************************************************* B* '4*=P0630 GJ 07/31/80STR #067333.3.3 CD,RD4* ':* THIS PATCH CORRECTS A PROBLEM CAUSED BY PATCH 623. :* '(MPI PF=PROGA,MT=TA,MN=>28,ADR=>0E0C,(,V=(>C8A0,>243E),D=(>1000,>04E2),C=>14E2 ,EC'(MPI PF=PROGA,MT=TA,MN=>27,ADR=>06CE,(,V=(>C8A0,>09D4),D=(>1000,>04E2),C=>14E2 ,EC'*$'6****************************************************6***************************** '2*=P0713 KDK09/18/80STR #070963.3.4 RCD2* 'F!* RECOVER DISK CAN NOT RECOVER A DISK THAT HAS TRACK 0 FORMATTINGFD * INFORMATION DESTROYED. THIS PATCH CHANGES THE PROGRAM TO GETDD * FORMATTING INFORMATION FROM TRACK 1, SINCE IT IS REQUIRED TO D.* GET THE DATA FOR THE RECOVERY PROCESS. .* '@MPI PF=PROGA,MT=TA,MN=>53,ADR=>005A,V=>0000,D=>0001,C=>0001 @EC'*$'B************************************************************* B* '6*=P0715 RVL09/19/80STR #070973.3.4 GEN990 6* '>* IF MULTIPLE DEVICES ARE DEFINED ON AN EXPANSION CHASSIS >:* SLOT AND ONE OF THE DEVICES IS SUBSEQUENTLY DELETED :4* OR CHANGED, THE INTERRUPT TABLE IS NOT BUILT.42* THIS PATCH MUST FOLLOW PATCHES 598 AND 620.24* 'F!MPI PF=PROGA,MT=OV,MN=>05,ADR=>3F7E+>100A,V=>1000,D=>100C,C=>100C FEC'*$'N%**************************************************************************N*  INSERT PATCHES HERE. * 'B*  FOLLOW EACH PATCH COMMAND (MPI, MRF) WITH AN EC COMMAND. B* 'N%**************************************************************************N* '* '6CM R=ME,M="PROGA PATCH STREAM ERROR COUNT = @$E$C"6* ',.SYN PROGA="" ! TARGET PROGRAM FILE ,&.SYN LOADER =""  ! TARGET LOADER &,.SYN OVLYA="" ! TARGET OVERLAY FILE ,0.SYN S$SDS$ ="" ! TARGET SDS PROGRAM FILE02*.SYN SCI  ="" ! START OF SCI OVERLAY AREA 2.SYN SCI990 ="" .SYN PROC ="" * 'SDT & EBATCH% THIS PATCH MUST FOLLOW PATCHES 598 AND 620.24@L%**************************************************************************L* * COBOL 3.2.0 PATCH FILE * L%**************************************************************************L*  * P0297 * D*DATE: 7/9/79  PS  SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 D* *STR#: 4745 * *DESCRIPTION OF THE PROBLEM:* F*  Cannot install 3.2 COBOL subroutine library on a secondary disk.F*  *PATCH: * D!*The Text Editor must be used to edit the file "COBOLINS.INSTALL" D>*(or ".COBOLINS.INSTALL" for an ADD-ON package) as follows: >*  * CURRENT: * * LineInformation * .*  82 *  COPY COBOL SUBROUTINE LIBRARY.@*  83 DD PATHNAME=.S$SYSLIB.C$SUBS,LIST="",ARE YOU SURE?=Y@(*  84 CD IN=COBOLINS.CBLSUB, OUT=.(S$SYSLIB.C$SUBS,(*  85 OPTIONS=(ADD,ALIAS,REPLACE) (* * * CHANGE TO:* * Line Information* .*  82 *  COPY COBOL SUBROUTINE LIBRARY.D*  83 DD PATHNAME=@DSC.S$SYSLIB.C$SUBS,LIST="",ARE YOU SURE?=YD<*  84 CD IN=COBOLINS.CBLSUB, OUT=@DSC.S$SYSLIB.C$SUBS,<(*  85 OPTIONS=(ADD,ALIAS,REPLACE) (* H#*Once this modification is made, the installation batch stream must beHJ$*executed again to install the library. After this change is made, the JJ$*synonym "DSC" must be assigned to the volume name (not the drive name) J6*of the disk on which the COBOL is to be installed. 6* L%**************************************************************************L*  * P0298 * B*DATE: 7/9/79 PS SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 BD@* *STR#: 4746 * *DESCRIPTION OF THE PROBLEM:* L* #Old SCI PROCEDURES which execute COBOL tasks will cause the "FUNCTION LH* KEY?" Prompt to be defaulted to "YES". The RETURN KEY will alwaysHB* work as if the "TAB" option was specified when this occurs. B*  *PATCH: * :*For XCP and XCPF, the following patch must be applied: :* @ MPIPROG = .S$SDS$, MOD TYPE = TASK, MOD NAME = RCOBOL, @4 ADD = 043A0+0120, VER = 0130B,  DATA = 01306,4CHECK = 01306 * :*For XCT and XCTF, the following patch must be applied: :* : MPI PROG = (users program file),  MOD TYPE = TASK, :& MOD NAME = (users COBOL task name),&" ADD = (address of CXCBL)+0120, ". VER = 0130B, DATA = 01306,CHECK = 01306 .* *************  ** To m odify the linkable object: * * " *@MRF PATH = .S$SYSLIB.RCBTSK, RECORD = 03, FIRST = 032C, *@4 VER = 0130B, DATA = 01306, CHECK = 01306  *4* " *F * Once the linkable object has been patched, all subsequent link *FH!* edits of COBOL tasks do NOT require the patch for XCT and XCTF.  *H* " *J$************************************************************************J*  * P0299 * @*DATE: 06/28/79 DM SYSTEM AND RELEASE NUMBER: 3.2.0 COBOL @*  COMPILER *STR# 4747 *  *PROBLEM: *  NOTE * 4*  THIS PROBLEM EXISTS ONLY FOR COBOL ON 990/12.4* <*  COBOL compiler may take end vector processing during <.*  compilations envolving large programs. .* *  *PATCH: * "MPI PF=.S$SDS$, MT=TASK, MN=COBO"L,6A=053F0, V=(0CA20,0554A), D=(0460,054C0), C = 050A0 6* $MPI PF=.S$SDS$, MT=TASK, MN=COBOL,$:A=054C0, V=(0,0,0,0,0), D=(0CA20,0554A,055FA,02CF,0380),: C = 0CBDF L%**************************************************************************L*  * P0301 * @*DATE:07/12/79DM SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 @*STR # 4808 *  *PROBLEM: * D*  The argument information routine, C$CARG, will fail to returnDF*  to the calling program when errors are encountered in the call F&*  to the argument decode routine.&* .*  This patch must be applied to the file .* *  .S$SYSLIB.C$SUBS.C$CARG * @*  It need be applied only one time after each installation @@*  of the COBOL and prior to linking any applications using @*  the C$CARG subroutine. *  *PATCH: * 2*  Text edit the file .S$SYSLIB.C$SUBS.C$CARG 2* *  Modify line 3: ,* replace string "BC4C07" with "B10FBF" ,L%************************************************************************* L*  * P0302 * @*DATE:07/12/79DM SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 @*STR# 4809*  *PROBLEM: * H#* The delete file subroutine, C$DLTE, fails in 3 known problem areas: H* F"* 1. If the COBOL program contains a keyed file with multiple keys F>* whose keys are not in ascending sequence on key length. >* D!* 2. Unless the file to be deleted is the last file opened in theDD* program, then the pathname to that file is no longer availableD*  to the delete routine.* * 3. If two fil4es contain similar names in the ASSIGN clause, the4>* CFD search may fail depending on the order that the file>.* descriptions are listed in the program. .*  *PATCH: * B *This patch must be applied to the file .S$SYSLIB.C$SUBS.C$FCFD B>*It need be applied only one time after each installation of><*COBOL and prior to linking any applications using C$DLTE.<* *  ***** NOTE ***** * @* THE PATCH SUPPLIED WITH THE COBOL 3.2.0 RELEASE INFORMATION@:* MUST HAVE BEEN APPLIED PRIOR TO APPLYING THIS PATCH :* .*Text edit the file .S$SYSLIB.C$SUBS.C$FCFD .* *Modify line 1: (* replace string "0021E" with "002B6"(* *Modify line 13:2* replace string "B06A0C014C" with "B0460C021E" 2(* replace string "7F15A" with "FF15A" (* *Modify line 14:2* replace string "BC06AB0026" with "B0460C0264" 2* *Modify line 15:2* replace string "B1603B06C4" with "B0460C0292" 2(* replace string "7F1A3" with "FF1A3" (* *Modify line 19:2* replace string "B0980BA040" with "B0460C02A8" 2(* replace string "7F1AB" with "FF1AB" (* *Modify line 20:(* replace string "B11C0" with "B12C0" ((* replace string "7F1E7" with "FF1E7" (* *Modify line 21:(* replace string "B044A" with "B084A" ((* replace string "7F13C" with "FF13C" (* *Modify line 22:** replace string "S0000F" with "F0000F" **  *Insert after line 22:F"* B06A0C014CB0205B0000BA14ABC185BC121B0003BC0E1B0004B1603B06C4BC0E1FFF"* B0000BDD44B0984BDD73B0604B15FDB0204B0000BA10ABD52AB0000BC1EAB0000FF** B0417B0604BD154B1601BC106BC884B0000B04*60C012EBC12DB0002BC206B0200FF"* B0002B0201T0000B0414B1688BC061B0002B04C5B0209B2020B9278B1303B0585FFF"* B0601B16FBBC06AB0026B0460C015CB1603B06C4BC261B0000B0984B8105B1602FFB * B0460C0176B0460C0186B0980B0580B0810B0A10BA040B0460C01D0S0000F B<* 30250ASMAPS30246CPYNAM3025EP$ACCN3024CPBUFLN30224PRMBUFF<* L%* ************************************************************************L*  * P0303 * @*DATE: 7/12/79 DM  SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 @* RUNTIME *STR#  4810 * J$*1. The COMPUTE statement fails under certain combinations of operands. J* H#*2. Unless CLOSE WITH LOCK is used when closing files, the luno is notHB* released on close. This may lead to a system hang or crash. B* B *3. New KIF error messages cause COBOL to immediately terminate.B04F@* >*4. Last OPEN I/O stored for subsequent retrieval by C$RERR >D!* causes the DX10 error to appear in the informative code field. D*  *PATCH: * ****************0*For XCP and XCP, apply the following patches:0* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&4 A=0B08, V=(02320,0198E), D=(06A0,019AE), C=01F0E 4* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&: A=019AE, V=(0,0,0,0,0), D=(0D32A,06E,02320,0198E,045B),:  C=0EDB1 * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&$ A=02C3A+02EC, V=(0283,004,01109),$& D=(0460,02C3A+09B4,01609), C=02787 &* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&  A=02C3A+0332, V=(0283,0041),  D=(0460,02C3A+09C0), C=0319A * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&" A=02C3A+09B4, V=(0,0,0,0,0,0), "" D=(0D022,011,0240,04000,0460,02" C3A+02F0), C=0B939* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&" A=02C3A+09C0, V=(0,0,0,0,0,0), "4 D=(0D262,011,0249,04000,0460,02C3A+0336), C=0BB2A4* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&0 A=02C3A+04FA, V=(0C1EA,02C6,0697,0D214,0988),00 D=(0C26A,02C6,0699,06A0,02C3A+09CC), C=0F693 0* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&( A=02C3A+0516, V=0697, D=0699, C=0699 (* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,& A=02C3A+09CC, V=(0,0,0,0), $ D=(0D214,0988,0588,045B), C=0DA4F$* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&  A=02C3A+0548, V=(0CA80,030E),  D=(0460,02C3A+09D4), C=0326E * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&  A=02C3A+09D4, V=(0,0,0,0,0), * D=(0C1C0,0A87,0CA87,030E,045B), C=0695 **  ***********************  *For XCT and XCTF, Apply the following patches: * D!* Assign the synonym "C" to the origin address given in the user'sD&* link map listing for module CRTIM.&* D!* MPI PF=, MT=PROC, MN=, D@*  A=@C+0B08, V=(02320,@C+0198E), D=(06A0,@C+019AE), C=01F0E@* D!* MPI PF=, MT=PROC, MN=, DD*  A=@C+019AE, V=(0,0,0,0,0), D=(0D32A,06E,02320,@C+0198E,045B),D*  C=0EDB1* D!* MPI PF=, MT=PROC, MN=, D,*  A=@C+02C3A+02EC, V=(0283,004,01109), ,,*  D=(0460,@C+02C3A+09B4,01609), C=02787,* D!* MPI PF=, MT=PROC, MN=, D&*  A=@C+02C3A+0332, V=(0283,0041),&&*  D=(0460,@C+02C3A+09C0), C=0319A&* (* MPI PF=, MT=PROC(, MN=, (*  A=@C+02C3A+09B4, V=(0,0,0,0,0,0),(<*  D=(0D022,011,0240,04000,0460,@C+02C3A+02F0), C=0B939 <* D!* MPI PF=, MT=PROC, MN=, D(*  A=@C+02C3A+09C0, V=(0,0,0,0,0,0),(<*  D=(0D262,011,0249,04000,0460,@C+02C3A+0336), C=0BB2A <* D!* MPI PF=, MT=PROC, MN=, D8*  A=@C+02C3A+04FA, V=(0C1EA,02C6,0697,0D214,0988), 86*  D=(0C26A,02C6,0699,06A0,@C+02C3A+09CC), C=0F6936* D!* MPI PF=, MT=PROC, MN=, D.*  A=@C+02C3A+0516, V=0697, D=0699, C=0699.* D!* MPI PF=, MT=PROC, MN=, D$*  A=@C+02C3A+09CC, V=(0,0,0,0),$(*  D=(0D214,0988,0588,045B), C=0DA4F(*  * MPI PF=, MT=PROC, MN=, *(*  A=@C+02C3A+0548, V=(0CA80,030E), (&*  D=(0460,@C+02C3A+09D4), C=0326E&* D!* MPI PF=, MT=PROC, MN=, D&*  A=@C+02C3A+09D4, V=(0,0,0,0,0),&.*  D=(0C1C0,0A87,0CA87,030E,045B), C=0695 .*  **********************J$*For the shared COBOL runtime procedure on the system library, .S$PROGA,J *apply the following patches: * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (4 A=0B08, V=(02320,0198E), D=(06A0,019AE), C=01F0E 4* (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (: A=019AE, V=(0,0,0,0,0), D=(0D32A,06E,02320,0198E,045B),:  C=0EDB1 * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, ($ A=02C3A+02EC, V=(0283,004,01109),$$ D=(0460,02C3A+09B4,01609),C=02787$*  MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL,   A=02C3A+0332, V=(0283,0041),  D=(0460,02C3A+09C0), C=0319A * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (" A=02C3A+09B4, V=(0,0,0,0,0,0), "4 D=(0D022,011,0240,04000,0460,02C3A+02F0), C=0B9394* (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (" A=02C3A+09C0, V=(0,0,0,0,0,0), "4 D=(0D262,011,0249,04000,0460,02C3A+0336), C=0BB2A4* (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (0 A=02C3A+04FA, V=(0C1EA,02C6,0697,0D214,0988),00 D=(0C26A,02C6,0699,06A0,02C3A+09CC), C=0F693 0* (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (( A=02C3A+0516, V=0697, D=0699, C=0699 (* (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, ( A=02C3A+09CC, V=(0,0,0,0), $ D=(0D214,0988,0588,045B), C=0DA4F$* (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (  A=02C3A+0548, V=(0CA80,030E),  D=(0460  ,02C3A+09D4), C=0326E * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (  A=02C3A+09D4, V=(0,0,0,0,0), * D=(0C1C0,0A87,0CA87,030E,045B), C=0695 ** ****************************J$*To modify the linkable object, .S$SYSLIB.RCBPRC, the following patches JB *must be applied. Once the linkable object has been patched, allBF*subsequent link edits of COBOL tasks do NOT require the patch for F*XCT and XCTF.* F"*STEP 1: Relink .S$SYSLIB.RCBPRC to a sequential file to convert it FD*  from COMPRESSED to ASCII format. To do this, enter the link DF* editor control statements shown below into a file.Specify the FB* XLE command and use the name of the file which contains the BB* link control statements for the prompt: CONTROL ACCESS NAME.B,* For the LINKED OUTPUT ACCESS NAME prom, pt, specify the file name D* of a file that does not currently exist. The link editor willDB* place an ASCII format copy of RCBPRC into the file specifiedBF*  for the LINKED OUTPUT ACCESS NAME prompt. Use this ASCII formatF$* file for the remaining steps. $* 2* The link control statements are as follows: 2* *  PARTIAL*  ALLGLOBAL*  TASK CRTIM  *  INCLUDE .S$SYSLIB.RCBPRC *  END * F"*STEP 2: Text edit the sequential file making the following changes:F* * Modify line 1:** replace string "0401C" with "04050" *** replace string "7F9B7" with "FF9B7" **  * Modify line 122:4* replace string "B2320C198E" with "B06A0C401C" 4** replace string "7F1D5" with "FF1D5" **  * Modify line 476:* replace string, "B0283B0004B1109" with "B0460C4026B1609" ,** replace string "7F23D" with "FF23D" **  * Modify line 479:,* replace string "B02837" with" B0460F" ,*  * Modify line 480:** replace string "B0041" with "C4032" *** replace string "7F30E" with "FF30E" **  * Modify line 500:** replace string "BC1EA" with "BC26A" *,* replace string "B06977" with "B0699F" ,*  * Modify line 501:4* replace string "BD214B0988" with "B06A0C403E" 4** replace string "7F20E" with "FF20E" **  * Modify line 502:** replace string "B0697" with "B0699" *** replace string "7F1B5" with "FF1B5" **  * Modify line 504:8* replace string "BCA80E00080000" with "B0460C4046" 8** replace string "7F1F2" with "FF1F2" **  * Modify line 652:* &replace string "I0000" with "F0000" &** replace string "7F24C" with "FF24C" ** $* Insert new lines after line 652:$B* BD32AB006EB2320C198EB045BBD022E001C0000B0240B4000B0460C2F2AFB>* BD262E001C0000B0249B4000B0460C2F70BD214B0988B0588B045BF >$* BC1C0B0A87BCA87E00080000B045BF$* I0000CRTIM F* <*STEP 3: Copy the sequential file back to .S$SYSLIB.RCBPRC<*  *  NOTE * >* BE SURE TO ONLY MODIFY THE INSTALLED COBOL. NEVER MODIFY >,* THE INSTALLATION DISK RECEIVED FROM TI. ,* J$* N O T E : FIRST TWO MPI OF XCTF MODIFIED BY ADDITION OF @C ON 6 NOV 79J* L%**************************************************************************L*  * PO312 * @*DATE: 07/12/79 DM SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 @* *STR# 4811*  * PROBLEM: F"* When a pathname is specified for MESSAGE ACCESS NAME in any of theFD!* COBOL execution commands, no messages are written into the file.D*  *PATCH: * "******************************* "0*For XCP and XCPF, apply the following patch: 0* &MPI PF=.S$SDS$, MT=TASK, MN=RCOBOL,&( A=043A0+015C, V=0701, D=04C1, C=04C1 (*  ***************************** 0*For XCT and XCTF, apply the following patch: 0* <MPI PF=, MT=TASK, MN=,<6 A=

+ 015C, V=0701, D=04C1, C=04C16*  ****************************** H#*To modify the linkable object on library .S$SYSLIB.RCBTSK, apply the H *following patch: * 2MRF PATH=.S$SYSLIB.RCBTSK, REC=03, FIRST=039E, 2( VER=(04207,0142), DATA=(04204,0C142) (* L%**************************************************************************L*  * P0322 * B*DATE: 08/13/79  DM  SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 B *STR# 4951 *  *PROBLEM: @* When executing a COBOL program with the XCP or XCPF command @@* and the program contains COBOL segments, the segment overlay@>* loader verifies the object is a relative file. This check >B * fails to properly check the file type, thus sometimes failing B&* to reconize a valid relative file.&*  *PATCH: *  ********************2*For XCP and XCPF, apply the following patches: 2* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&" A=03FEA+0178, V=(02120,04384), "  D=(06A0,02C3A+09DE), C=030B8 * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&$ A=02C3A+09DE, V=(0,0,0,0,0,0,0), $(@. D=(0C124,010,0244,03,0284,02,045B), C=0C5AE.L%**************************************************************************L*  * P0323 * L*DATE: 07/12/79 DM(25 JAN 80) SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 L* *PR# STR# 4952* D*  GIVE A DESCRIPTION OF THE PATCH AND THE PROBLEM IT CORRECTS: D*  *PROBLEM: F"* When executing 3.2.0 COBOL with 3.3 OS, opens to Keyed files will FD!* fail with KIF message "CFD KEY FLAGS/LENGTH DOES NOT MATCH FCB".D*  *PATCH: L%**************************************************************************L0*For XCP and XCPF, apply the following patch: 0* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&@ A=02C3A+04BA, V=(05A60,036BC,08), D=(05A20,036BC,0C), C=06C90@* :********************************************************: ******************0*For XCT and XCTF, apply the following patch: 0* <MPI PF=, MT=PROC, MN=,<8 A=
+02C3A+04BA, V=(05A60,036BC,08), 8 D=(05A20,036BC,0C), C=06C90* L%**************************************************************************LJ$*For the shared COBOL runtime procedure on the system library, .S$PROGA,J*apply the following patch: * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (@ A=02C3A+04BA, V=(05A60,036BC,08), D=(05A20,036BC,0C), C=06C90@L%**************************************************************************LH#*TO modify the linkable object on library .S$SYSLIB.RCBPRC, apply the H *following patch: * 2* Step 1: insure that patch P0303 was applied. 2* .* Step 2: Text edit the file .S$SYSLIB.RCBP.RC* * Modify line 498:>* replace string "B5A60C36BCB0008" with "B5A20B36BCB000C" >** replace string "7F188" with "FF188" ** L%**************************************************************************L*  * P0331 * B*DATE: 08/22/79  DM  SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 B*  RUNTIME *STR# 4954 *  *PROBLEM: * F"* Division by 1 x 10 to the Nth cause invalid results for all cases F * where N is not equal 0. *  *PATCH: *  ********************0*For XCP and XCPF, apply the following patch: 0* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&* A=0127E, V=(01604,0BAAA,074,075,01032),*. D=(01000,01000,01000,01000,01332), C=01332 .*  ********************0*For XCT and XCTF, apply the following patch: 0* @<MPI PF=, MT=PROC, MN=,<> A=
+0127E, V=(01604,0BAAA,074,075,01032), >. D=(01000,01000,01000,01000,01332), C=01332 .*  ********************* J$*For the shared COBOL runtime procedure on the system library, .S$PROGA,J*apply the following patch: * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (* A=0127E, V=(01604,0BAAA,074,075,01032),*. D=(01000,01000,01000,01000,01332), C=01332 . **********************H#*To modify the linkable object on library .S$SYSLIB.RCBPRC, apply the H *following patch: * ** Text edit the file .S$SYSLIB.RCBPRC ** * Modify line 195:8* replace string "B1604BBAAAB0074B0075B1032B05C77F" 8.* with "B1000B1000B1000B1000B1332B05C7FF" .* 0**********************************************0*****************************  * P0332 * B*DATE: 08/22/79  DM  SYSTEM AND RELEASE NUMBER: COBOL 3.2.0 B*  RUNTIME *STR# 4953 *  *PROBLEM: F"* MOVE operations which should cause an overflow condition may causeFH#* unpictable results depending on the operation executed prior to the H * MOVE. *  *PATCH: *  ********************0*For XCP and XCPF, apply the following patch: 0* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&  A=0436, V=05E, D=014A, C=014A * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&  A=043A, V=05E, D=014A, C=014A * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&  A=0444, V=05E, D=014A, C=014A * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&  A=044E, V=05E, D=014A, C=014A * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&***@  A=0C38, V=05F, D=014B, C=014B * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&  A=0C54, V=05E, D=014A, C=014A *  ******************* 0*For XCT and XCTF, apply the following patch: 0* <MPI PF=, MT=PROC, MN=,<4 A=
+0436, V=05E, D=014A, C=014A 4* <MPI PF=, MT=PROC, MN=,<4 A=
+043A, V=05E, D=014A, C=014A 4* <MPI PF=, MT=PROC, MN=,<4 A=
+0444, V=05E, D=014A, C=014A 4* <MPI PF=, MT=PROC, MN=,<4 A=
+044E, V=05E, D=014A, C=014A 4* <MPI PF=, MT=PROC, MN=,<4 A=
+0C38, V=05F, D=014B, C=014B 4* <MPI PF=, MT=PROC, MN=,<4 A=
+0C54, V=05E, D=014A, C=014A 4*  ******************J$*For the shared COBOL runtime procedure on the system library, .S$PROGA,J*apply the following patch: * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (  A=0436, V=05E, D=014A, C=014A * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (  A=043A, V=05E, D=014A, C=014A * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (  A=0444, V=05E, D=014A, C=014A * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (  A=044E, V=05E, D=014A, C=014A * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (  A=0C38, V=05F, D=014B, C=014B * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (  A=0C54, V=05E, D=014A, C=014A *  *************************  *To modify the linkable 0object on library .S$SYSLIB.RCBPRC, apply the 0 *following patch: * ** Text edit the file .S$SYSLIB.RCBPRC ** * Modify line 54: .* replace string "B005E7F" with "B014AFF" .* * Modify line 55: 4* replace string "B005EB102F" with "B014AB102F" 44* replace string "B005EB1302" with "B014AB1302" 48* replace string "B005EB10257F" with "B014AB1025FF" 8* * Modify line 133:** replace string "B005F" with "B014B" *** replace string "7F1A6" with "FF1A6" ** * Modify line 134:** replace string "B005E" with "B014A" *** replace string "7F0CC" with "FF0CC" ** L%**************************************************************************L*  * P0338 *  * STR#5127DM COBOL 3.2.0 *  * PROBLEM: *  C<OBOL compiler may generate invalid code for large programs<>*  using segmentation feature. Subsequent execution fails>2*  when attempting to load a segment overlay. 2*  * PATCH: $MPI PF=.S$SDS$, MT=TASK, MN=COBOL,$6A=03EB2+035C, V=03EB2+013B6, D=03EB2+01618, C=054CA 6EC$MPI PF=.S$SDS$, MT=TASK, MN=COBOL,$A=03EB2+01618, V=(0,0,0,0), 0D=(0720,03EB2+016A0,0460,03EB2+013B6), C=047A 0EC* L%**************************************************************************L*  * CONTROL NUMBER: P0339 * "* STR# 4930  DM COBOL 3.2.0 "*  * PROBLEM: F*  WRITE ... AFTER ADVANCING may cause extraneous characters to beF2*  written in file when count exceeds 4 lines.2*  * PATCH:  ********************(* For XCP and XCPF, apply the followi( ng patch: * &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&( A=02C3A+064E, V=04C0, D=04C9, C=04C9 (EC ********************0* For XCT and XCTF, apply the following patch:0* >* MPI PF=, MT=PROC, MN=,>>*  A=+02C3A+064E, V=04C0, D=04C9, C=04C9>*  ******************* L%* For the shared COBOL runtime procedure on the system library, .S$PROGA, L* apply the following patch:* (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (( A=02C3A+064E, V=04C0, D=04C9, C=04C9 (EC ***************** H#* To modify the linkable object on library .S$SYSLIB.RCBPRC, apply theH * following patch:* ** Text edit the file .S$SYSLIB.RCBPRC ** * Modify line 514:.* replace string "B04C07F" with "B04C9FF" .* wi@ ******************* .STOP CODE=@$E$C* R(**************************************************************************______R* 4* P0343 DM  15 OCT 79STR 5228 COBOL 3.2.04* BATCH  *PROBLEM: F"* 'COMPUTE' FAILS TO COMPUTE CORRECT ANSWER DUE TO IMPROPER SCALING F * OF INTERMEDIATE RESULTS.*  *PATCH: ****************************** 0*FOR XCP AND XCPF, APPLY THE FOLLOWING PATCH: 0* &MPI PF=.S$SDS$, MT=PROC, MN=RCOBOL,&4 A=015EC, V=(0A34E,022E), D=(0630E,020E), C=06100 4EC ****************************** 0*FOR XCT AND XCTF, APPLY THE FOLLOWING PATCH: 0* >* MPI PF=, MT=PROC, MN=,>2*  A=
+015EC, V=(0A34E,022E),2*  D=(0630E,020E), C=06100*  ******************** ********** J$*FOR THE SHARED COBOL RUNTIME PROCEDURE ON THE SYSTEM LIBRARY, .S$PROGA,J*APPLY THE FOLLOWING PATCH: * (MPI PF=.S$PROGA, MT=PROC, MN=RCOBOL, (4 A=015EC, V=(0A34E,022E), D=(0630E,020E), C=06100 4EC ****************************** H#*TO MODIFY THE LINKABLE OBJECT ON LIBRARY .S$SYSLIB.RCBPRC, APPLY THE H *FOLLOWING PATCH: * ** TEXT EDIT THE FILE .S$SYSLIB.RCBPRC ** * MODIFY LINE 229:4* REPLACE STRING "BA34EB022E" WITH "B630EB020E" 4** REPLACE STRING "7F079" WITH "FF079" * ****************************** .STOP CODE=@$E$CCTF, APPLY THE FOLLOWING PATCH: 0* >* MPI PF=, MT=PROC, MN=,>2*  A=
+015EC, V=(0A34E,022E),2*  D=(0630E,020E), C=06100*  ********************@BATCH LS=YES"R(********************************************************************************R* MEMRES PATCH FILE  *R(********************************************************************************R* 'H*  AFTER A SYSGEN IS DONE, THE DX10 IMAGE FILE (OBJECT OUTPUT FROMHF*  THE LINK EDITOR) WILL NEED TO HAVE THE PATCHES IN THIS FILE FH*  APPLIED TO IT. THIS FILE CANNOT BE RUN AS A BATCH STREAM. TO HF*  PATCH A SYSTEM, ONE MUST ASSIGN THE SYNONYM $$DSC$ TO THEFH*  VOLUME NAME OF THE DISK ON WHICH THE PATCHES ARE TO BE APPLIED.H8*  THEN EITHER (A) OR (B) BELOW MUST BE PERFORMED.8* ':* A) RUN THE XPS PROC, WITH THE FOLLOWING INPUTS: ::*  LINK = :(*  INPUT = ( *  OUT :PUT = >*  ERROR = >D*  THE FILE SPECIFIED FOR OUTPUT CAN BE RUN AS A BATCH STREAM D*  TO PATCH THE SYSTEM. * 'L* B) IF THE LINK MAP IS NO LONGER AVAILABLE ON DISK FILE, THIS FILE L@*  WILL HAVE TO BE TRANSLATED MANUALLY. COPY THIS FILE TO@>*  ANOTHER FILE AND EDIT THAT FILE DOING THE FOLLOWING. >* 'B*  1. FOR EACH #SYN COMMAND FOUND IN THE FILE, TWO OR MOREB>* SYNONYMS MUST BE DEFINED. EACH #SYN COMMAND IS IN THE>* FORMAT: D*  #SYN ,,, ... D* FOR EXAMPLE:*  #SYN SROOT,ROOT* WHERE:<*  SROOT IS THE SYNONYM NAME, AND<@*  ROOT IS THE OF THE MODULE TO BE PATCHED. @* 'D*  2. FIND THE S IN THE LINK MAP.ALL MODULES DD* ON ONE LINE OF A #SYN COMMAND WILL RESIDE IN THE SAME PHASE D@* OF THE LINK.DETERMINE THE OVERLAY OR TASK ID FROM THE @B* PHASE HEADER LINE OF THE PHASE WHERE THE SPECIFIED MODULESB@* ARE FOUND.INSERT A #SYN COMMAND INTO THE PATCH FILE TO@>* DEFINE THE OVERLAY OR ID, AS IN THE FOLLOWING EXAMPLE:>*  .SYN SROOT=1 * WHERE :*  SROOTIS THE SYNONYM FOUND :"* IN THE #SYN COMMAND, AND "4*  1IS THE OVERLAY OR TASK ID FROM THE PHASE4,*  IN WHICH THE LISTED MODULES RESIDE. ,6*  (1 IS THE ID FOR THE FIRST SYSTEM. THIS WILL6.*  BE DIFFERENT FOR ADDITIONAL SYSTEMS.).* '@F*  3. NEXT, INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH F8*  IN THE #SYN COMMAND.FOR EXAMPLE: 8*  .SYN ROOT=031DA* WHERE:B*  ROOT IS THE OF THE MODULE (FROM THE #SYN B$*  COMMAND) TO BE PATCHED, AND $8*  031DAIS THE HEXADECIMAL ADDRESS OF THE MODULE86*  ORIGIN FOR TI-SUPPLIED SYSTEM. (THIS MAY BE 6(*  DIFFERENT FOR CUSTOM SYSTEMS.) (* '8*  4. DELETE THE #SYN LINE FROM THE PATCH FILE. 8* 'D*  5. REPEAT STEPS 1 - 4 FOR EACH #SYN COMMAND IN THE FILE. D* 'H*  6. QUIT THE TEXT EDIT SPECIFYING "YES" TO THE REPLACE OPTION.H* '8*  7. EXECUTE THE BATCH STREAM YOU JUST CREATED. 8* 'R(********************************************************************************R Q$SYN % .SYN $E$C="0" !".SYN IMAGE="@$$DSC$.S$IMAGES" "#SYN SLGY,SYSLGY #SYN SROOT,ROOT D #SYN SFILMG,FILMG,KIF ! FILMG REQUIRED FOR SYSTEM LENGTH CHECK D(#SYN SKIF3,KIF3  ! SEQ KIF FOR 3.3(#SYN SMEM,MEMRES  #SYN SIO,SVCIO,SYSLOG #SYN IOC,IOCOM! #SYN SDDIO,DDIOSR #SYN S911,DSR911  #SYN S911PF,DSR911PF #SYN S911WP,DSR911WP#SYN S913,DSR913 #SYN SLP,LPDSR!#SYN S820,DSR820 #SYN SFPY,FPYDSR #SYN S979,DSR979  #SYN SCOM,COMMCOM #SYN S733,DSR733 #SYN SKSR,DSRKSR * 'R(********************************************************************************RJ* ! THE FOLLOWING SYNONYMS ARE DEFINED BY TI SYSTEM ANALYSTS ONLY AT JF*  SYSTEM BUILD TIME. THEY SHOULD NOT BE MODIFIED BY THE USER. FH@R(********************************************************************************R,* INSERT PRE-LINK DEFINED SYNONYMS HERE:, .EVAL S$$PAT="@ROOT+>0000"* 'N%**************************************************************************N* '>* CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000. >B* THIS CAUSES SEVERAL PROBLEMS IN DISK RESIDENT SYSTEM TASKS. B* ' .IF @FILMG,GT,>C000 F!CM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >C000 " F2CM R=ME,M="CURRENT SYSTEM ROOT SIZE = @FILMG "2$CM R=ME,M="PATCHING TERMINATED" $ .STOP % .ENDIF% * 'N%**************************************************************************N* '@* CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800. @0* THIS CAUSES SEVERAL PROBLEMS IN EXECUTION A0S ANY REFERENCE @* IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS INSTEAD @* OF MEMORY. !* ' .EVAL $$TMP=@SYSLOG+>0264  .IF @$$TMP,GT,>F800 F!CM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >F800 " F2CM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP "2$CM R=ME,M="PATCHING TERMINATED" $ .STOP % .ENDIF%  .IF @$$TMP,GT,>F600 <CM R=ME,M="PATCH STREAM WARNING - SYSTEM EXCEEDS >F600 " <2CM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP "28CM R=ME,M="LENGTH OF SYSTEM MUST BE LESS THAN >F800"8:CM R=ME,M="CHECK LINKMAP OF SYSTEM FOR PHASE 0 LENGTH" : .ENDIF% .SYN $$TMP="" !* 'N%**************************************************************************N* '(* BEGIN PATCHES FOR RELEASE 3.3.0 (* '**************@************************************************************@* '4*=P0370 MSC11/16/79STR #054073.3.0 LPDSR4* '<* THE LINE PRINTER WILL DO A TIME-OUT IF A ZERO LENGTH <<* WRITE IS SENT TO IT. PRINT FILE WILL APPEAR TO HANG <:* AND THE PRINTER WILL NOT BE USABLE.ANY TASK DOING :B* THE ZERO LENGTH WRITE WILL HANG WAITING ON I/O COMPLETION. B* '*#SYN SLP,LPDSR * ' .IF "@LPDSR" ,NE, NONE* '0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0062,0 V=>101D,D=>161D,C=>161DEC'* ' .ENDIF% *$'N%**************************************************************************N* '6*=P0379 MU 12/05/79STR #054313.3.0 DSR911 6* '8* A BUG IN THE INPUT ROUTINE OF THE 911 DSR CAUSES 8 * THE SYSTEM TO CRA"SH WITH A >22 ERROR WHEN MORE "<* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. <* ' *#SYN S911,DSR911 * ' .IF "@DSR911" ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>034C,2" V=(>0B2B,>1817,>1E0F,>3605), "( D=(>058A,>0B2B,>1816,>1012),C=>06A5(2!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 055722MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0406,2 V=(>091B,>178F,>32CA), " D=(>32CA,>091B,>178E),C=>2C5F"EC'* ' .ENDIF% *$'N%**************************************************************************N* '8*=P0380 MU 12/05/79STR #054313.3.0 DSR911PF 8* '<* A BUG IN THE INPUT ROUTINE OF THE POWER FAIL 911 DSR <<* CAUSES THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE < * CHARACTERS ARE *TYPED THAN THE NO-ECHO FIELD IS WIDE. ** ' *#SYN S911PF,DSR911PF *#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * ' .IF "@DSR911PF" ,NE, NONE * '6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BC,6  V=(>0620,@DSR911PF+>0BA0),   D=(>32CA,>0460),C=>36AA2!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 055726MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C0,6  V=>32CA,D=@S$$PAT,C=@S$$PAT (2!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 055726MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C6,6 V=>4820,D=>0460,C=>0460EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C8,6: V=@DSR911PF+>000C,D=@DSR911PF+>0514,C=@DSR911PF+>0514 :EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B6,6 V=>091B,D=>C80A,C=>C80AEC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B8,60 V=>1802,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA00EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05BA,66 V=(>0460,@DSR911PF+>0494,>C80A,@DSR911PF+>0BA0), 6( D=(>32CA,>091B,>1802,>0460),C=>27B3(EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05C2,60 V=>32CA,D=@DSR911PF+>0494,C=@DSR911PF+>04940EC'* '4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, 4, V=(>DEAD,>DEAD),D=(>058A,>0620),C=>03AA,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0004, 40 V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA00EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0006, 4 V=>DEAD,D=>0460,C=>0460EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0008, 4. V=>DEAD,D=@DSR911PF+>04C2,C=@DSR911PF+>04C2.EC'* ' .ENDIF% *$'N%**************************************************************************N* '8*=P0381 MU 12/05/79STR #054323.3.0 DSR911PF 8* '6* A BUG IN THE CLEARING OF THE SCREEN OF THE 911 6:* POWER FAIL DSR LEAVES A CHARACTER IN THE UPPER LEFT : * OF THE SCREEN. * ' *#SYN S911PF,DSR911PF *#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * ' .IF "@DSR911PF" ,NE, NONE * '6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0822,6, V=(>32E0,@DSR911PF+>0B6C,>1F0A,>1302), ,( D=(>0707,>32C7,>36C7,>0587),C=>0680(EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>082A,6& V=(>32E0,@DSR911PF+>0B6E,>36C7), &" D=(>1000,>1000,>1000),C=>1000"EC'&MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@D&SR911PF+>085C, V=>05A0,D=>0460,C=>0460EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085E,66 V=@DSR911PF+>0BA0,D=@S$$PAT+>000A,C=@S$$PAT+>000A 6EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000A, 4 V=>DEAD,D=>C9C8,C=>C9C8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000C, 40 V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA60EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000E, 4 V=>DEAD,D=>05A0,C=>05A0EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0010, 40 V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA00EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0012, 4 V=>DEAD,D=>0460,C=>0460EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0014, 40 V=>DEAD,D=@DSR911PF+>0860,C=@DSR911PF+>08600EC'* ' .ENDIF% *$'N%**************************************************************************N* '6*=P0382 MU 12/05/79STR #054313.3.0 DSR913 6* '8* A BUG IN THE INPUT ROUTINE OF THE 913 DSR CAUSES 86* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE 6<* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. <* ' *#SYN S913,DSR913 *#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * ' .IF "@DSR913" ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B4,2 V=>06A0,D=>0460,C=>04602!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 055722MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B6,24 V=@DSR913+>07DC,D=@S$$PAT+>0016,C=@S$$PAT+>001642!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 055722MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8,2%6@ V=(>0B2B,>1811,>35C5), " D=(>0B5B,>1811,>1001),C=>034B"2!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 055724MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, 4 V=>DEAD,D=>06A0,C=>06A0EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0018, 4, V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001A, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>C2E4,>002C,>058A,>0460),C=>C322(EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0022, 4, V=>DEAD,D=@DSR913+>02B8,C=@DSR913+>02B8,EC'2MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023C,2 V=>1D0C,D=>0460,C=>0460EC'2MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E,2, V=>0621,D=@S$$PAT+>0024,C=@S$$PAT+>0024,2!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 05572MPI PF,=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0240,, V=>0008,D=>060A,C=>060AEC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>890A,>0030,>1301,>1D0C),C=>8737(2!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 055724MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>002C, 48 V=(>DEAD,>DEAD,>DEAD),D=(>0621,>0008,>0460),C=>0249 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0032, 4, V=>DEAD,D=@DSR913+>0240,C=@DSR913+>0240,EC'* ' .ENDIF% "*$ ! MODIFIED BY PATCH 0557 "N%**************************************************************************N* '>*=P0383 MSC12/05/79STR #05433 3.3.0 DSR911,DSR911PF >* '8* THE RIGHT FIELD KEY IN BOTH THE 911 DSRS IS BEING8.* MAPPED TO THE RETURN KEY CODE (>8D) AND S. HOULD BE 6* MAPPED TO ITS OWN CODE OF >87. THIS PATCH WILL6.* ALSO KEEP THE CURSOR OFF AFTER A BOOT. .* ' *#SYN S911PF,DSR911PF  *#SYN S911,DSR911 * ' .IF "@DSR911" ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>085E,2 V=>8D9D,D=>879D,C=>879DEC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>022A,2 V=>1D0C,D=>1E0C,C=>1E0CEC'* ' .ENDIF% * ' .IF "@DSR911PF" ,NE, NONE * '6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0B50,6 V=>8D9D,D=>879D,C=>879DEC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0362,6 V=>1D0C,D=>1E0C,C=>1E0CEC'* ' .ENDIF% *$'N%**************************************************************************N* '*=P0384 MSC12/0$5/79STR #054343.3.0 IOCOMX $* '@* THE HARD BREAK SEQUENCE (RESET KEY, CMD KEY) CAN CAUSE A @>* TASK UNDER A BACKGROUND SCI TO BE ABORTED. THIS PATCH >@* ADDS AN ADDITIONAL CHECK TO SEE IF THE PARENT TSB POINTER @>* IS ZERO. NORMALLY THE PARENT POINTER OF FOREGROUND SCI >* IS ZERO. "* '*#SYN SROOT,ROOT *#SYN IOC,IOCOM  *.EVAL S$$PAT="@ROOT+>0000"  * '0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0378,0 V=>82A9,D=>0460,C=>0460EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>037A,0, V=>0014,D=@S$$PAT+>0034,C=@S$$PAT+>0034,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0034, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>82A9,>0014,>1603,>CA69),C=>5ED7(EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>003C, 4 V=(>D EAD,>DEAD,>DEAD), " D=(>0040,>0040,>0460),C=>0460"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0042, 4* V=>DEAD,D=@IOCOM+>037C,C=@IOCOM+>037C*EC'*$'N%**************************************************************************N* '(* BEGIN PATCHES FOR RELEASE 3.3.1 (* 'N%**************************************************************************N* '6*=P0388 RVL01/08/80STR #055623.3.1 DSR820 6* '>* THE 820 DSR DOES NOT ALLOW EVENT KEYS. THIS PATCH WILL >@* ALLOW THE DSR TO RECOGNIZE AND SEND TO THE USER THE EVENT @ * KEYS.$ * ' *#SYN S820,DSR820 * ' .IF "@DSR820" ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>032E,2 V=>C024,D=>D024,C=>D024EC'* ' .ENDIF% @*$'N%**************************************************************************N* '6*=P0390 MSC01/08/80STR #055633.3.1 MM$SCN 6* '@* THE SYSTEM HANGS BECAUSE BUFFERS ARE NOT PREEMPTED ON THE @0* FIRST PASS FOR MEMORY FOR LOADING A TASK.0* '*#SYN SROOT,ROOT * '8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0026, 8 V=>13F2,D=>1000,C=>1000EC'*$'N%**************************************************************************N* '6*=P0391 GRJ01/08/80STR #055643.3.1 SEQ KIF6* '>* IF A REWRITE IS DONE ON A SINGLE KEY FILE AND THE VALUE >>* IS BEING MODIFIED, THE KEY IS NOT CHANGED BUT ANY OTHER >F* DATA THAT IS MODIFIED IS CHANGED.ALSO, NO ERROR IS RETURNED. F* '*#SYN SKIF3,KIF3 * ' .IF "@KIF3" ,NE, NONE * '8MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>026C, 8 V=>0000,D=>0002,C=>0002EC'8MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>0290, 8 V=>0000,D=>0002,C=>0002EC'* ' .ENDIF% *$'N%**************************************************************************N* '6*=P0392 MSC01/08/80STR #055663.3.1 FILMGR 6* '8* THE STACK OF FILE MANAGEMENT ROUTINE 'WRTSEQ' IS 8>* IMPROPERLY MANAGED IF AN ERROR IS RETURNED TO 'WRTSEQ' >4* FROM 'BM$RD' RESULTING IN A LATER >A0 CRASH. 4* ' *#SYN SFILMG,FILMG,KIF* ':MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0114, :, V=(>1105,>1304),D=(>110A,>1309),C=>0203,EC':MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0126, : V=> C0C3,D=>0460,C=>0460EC':MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0128, :6 V=>1103,D=@FILMG+>09D2+>000A,C=@FILMG+>09D2+>000A 6EC':MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012A, : V=>1302,D=>06A0,C=>06A0EC':MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012C, :* V=>0460,D=@FILMG+>0E1A,C=@FILMG+>0E1A*EC':MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012E, : V=@FILMG+>09D2+>000A,. D=@FILMG+>09D2+>01D2,C=@FILMG+>09D2+>01D2.EC'*$'N%**************************************************************************N* '6*=P0401 MSC01/16/80STR #056333.3.1 TM$SHD 6* '>* WHEN PROCESSING A CORRECTABLE MEMORY ERROR FOR LOGGING, ><* THE STACK IN TM$SHD IS OVERRUN CAUSING THE FIRST FEW <* WORDS OF TH,E LOG PROCESSOR TO BE OVERWRITTEN.WHEN ,6* LOGGING IS THEN ATTEMPTED, ILLEGAL OPCODES ARE 6@* ENCOUNTERED CAUSING A SYSTEM CRASH >20.THIS PATCH MOVES @8* THE CODE BEING OVERWRITTEN TO THE OS PATCH AREA. 8* '*#SYN SROOT,ROOT  *#SYN SIO,SVCIO,SYSLOG *.EVAL S$$PAT="@ROOT+>0000"  * '6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>1A5C+>0362,6* V=@SVCIO+>1A5C+>04B2,! TM$SHD+>04B2*$ D=@S$$PAT+>01E0,C=@S$$PAT+>01E0$EC'*$'N%**************************************************************************N* '<*=P0407 MU 01/18/80STR #05638 3.3.1 DXIOS,FMACES <* '>* AN UNEXPECTED >3B ERROR OCCURS WHEN MULTIPLE TASKS ARE >>* TRYING TO OPEN THE SAME FILE WITH SHARED ACCESS OR THE >4* FILE S$FGTCA GETS DESTROYED. THIS PATCH CORREC4 TS THE * PROBLEM. "* ' *#SYN SFILMG,FILMG,KIF*#SYN SROOT,ROOT  *#SYN SIO,SVCIO,SYSLOG *.EVAL S$$PAT="@ROOT+>0000"  * '4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0044, 4 V=(>DEAD,>DEAD,>DEAD), " D=(>CB08,>0008,>0720),C=>CC20"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004A, 4* V=>DEAD,D=@SVCIO+>0E58,C=@SVCIO+>0E58*EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004C, 4 V=>DEAD,D=>0460,C=>0460EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004E, 46 V=>DEAD,D=@SVCIO+>0E58+>0344,C=@SVCIO+>0E58+>0344 6EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0050, 4 V=(>DEAD,>DEAD,>DEAD), " D=(>CA4C,>0006,>0760),C=>CD2A"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0056, 4 V=>DEAD,D=@SVCIO+>0 E58,C=@SVCIO+>0E58EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0058, 4 V=(>DEAD,>DEAD,>DEAD), " D=(>130A,>C129,>000C),C=>D22F"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>005E, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>0244,>0018,>0B64,>5B20),C=>5218(EC'* '4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0066, 4, V=>DEAD,D=@S$$PAT+>004D,C=@S$$PAT+>004D,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0068, 4 V=>DEAD,D=>0004,C=>0004EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>006A, 4 V=(>DEAD,>DEAD,>DEAD), " D=(>EB04,>0004,>045B),C=>EF5B"EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0340,6 V=>0720,D=>0460,C=>0460EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0342,6 V=@SVCIO+>0E58,D=@S $$PAT+>0044,C=@S$$PAT+>0044  EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A6,6 V=>CA4C,D=>06A0,C=>06A0EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A8,6, V=>0006,D=@S$$PAT+>0050,C=@S$$PAT+>0050,EC':MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>05AE+>0072, : V=>CB6C,D=>1005,C=>1005EC'*$'N%**************************************************************************N* '6*=P0409 MSC01/30/80STR #056803.3.1 DSR820 6* 'B* THE 820 DSR DOES NOT PROPERLY HANDLE INITIATE I/O REQUESTS. BB* THIS CAUSES A 'LIST ALL' COMMAND IN XGEN TO PRINT ONLY ONE BD * LINE ON THE 820 AND THEN GO TO STATE 9 WITH THE XGEN KEYBOARDD@* LOCKED OUT.THE FOLLOWING PATCH CORRECTS THE 820 LOGIC. @* ' *#SYN S820,DSR820 * '@ .IF "@DSR820" ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0086,2 V=>C840,D=>D840,C=>D840EC'* ' .ENDIF% *$'N%**************************************************************************N* '6*=P0410 MSC01/30/80STR #056813.3.1 DDIOSR 6* 'B* PATCH TO CORRECT THE PRIORITY OF LOOKING AT DISK ERROR BITS BD * TO AVOID SAYING 'NOT READY, >18' WHEN 'SEEK INCOMPLETE, >1D'.DB* AND TO ENABLE RETRIES ON >1E ERRORS SINCE THESE MAY BE THE BB* SAME AS >11 ERRORS (NONFLOPPY CONTROLLERS MAY SET THE SAME B:* BITS AS THE FD1000 THAT INDICATE DELETED SECTORS). :* ' *#SYN SDDIO,DDIOSR* '4MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>039C, 4 V=>0002,D=>0001,C=>0001EC'&MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DD&IOSR+>03B0, (V=(>980A,@DDIOSR+>048C,>138D,>980A),((D=(>1005,>1004,>1003,>1002),C=>0000 (EC'4MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B8, 4 V=(@DDIOSR+>048D,>1B12), D=(>1001,>1000),C=>0001 EC'4MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C6, 4 V=>9829,D=>0460,C=>0460 EC'4MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C8, 4,V=>FFFE,D=@S$$PAT+>0108,C=@S$$PAT+>0108 ,EC'4MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03CA, 4"V=@DDIOSR+>483,D=>1000,C=>1000"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0108, 4 V=>DEAD,D=>980A,C=>980A EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>010A, 4,V=>DEAD,D=@DDIOSR+>048D,C=@DDIOSR+>048D ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>010C, 4 V=(>DEAD,>DEAD),D=(>1202,>0460),C=>1662 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0110, 4,V=>DEAD,D=@DDIOSR+>03E0,C=@DDIOSR+>03E0 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0112, 4,V=(>DEAD,>DEAD),D=(>9829,>FFFE),C=>67D7 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0116, 4(V=>DEAD,D=@ROOT+>027B,C=@ROOT+>027B (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0118, 4 V=>DEAD,D=>0460,C=>0460 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>011A, 4,V=>DEAD,D=@DDIOSR+>03CC,C=@DDIOSR+>03CC ,EC'*$'N%**************************************************************************N* '6*=P0411 MSC01/30/80STR #056823.3.1 DDIOSR 6* '<* THIS PATCH PREVENTS THE DESELECTION OF A UNIT BETWEEN <(* COMMANDS ISSUED TO A DISK. THIS WI( LL INHIBIT CHANGING <* THE WRITE PROTECT STATE OF A UNIT WHEN ONLY ONE DRIVE <:* IS CONNECTED ON A CONTROLLER. THIS IS TO ELIMINATE ::* RESPONSE TIME LOSS IN THE CURRENT IMPLEMENTATION OF :* THIS FEATURE. * ' *#SYN SDDIO,DDIOSR* '4MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>0304, 4 V=>04EC,D=>1001,C=>1001EC'*$'N%**************************************************************************N* '6*=P0412 CRM01/30/80STR #056833.3.1 TM$INT 6* '>* TILINE CONTROLLER BOARDS (FOR DISKS) HANG IN A FAULTED ><* STATE AFTER POWER IS RE-APPLIED FROM A POWER FAILURE. <@* IT TAKES TWO 'RSET' INSTRUCTIONS TO CLEAR THIS CONDITION @<* AT THIS TIME.THIS PATCH MODIFIES THE CURRENT POWER <** UP CODE TO EXECUTE TWO RSET INSTRUCTI*ONS IN THE OS * PATCH AREA.!* '*#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * '8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0002, 8 V=>02E0,D=>0460,C=>0460EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0004, 88 V=@ROOT+>26D4+>00B4,D=@S$$PAT+>0076,C=@S$$PAT+>0076 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0076, 4 V=(>DEAD,>DEAD,>DEAD), " D=(>0360,>0360,>02E0),C=>02E0"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007C, 46 V=>DEAD,D=@ROOT+>026D4+>00B4,C=@ROOT+>26D4+>00B4 6EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007E, 4 V=>DEAD,D=>0460,C=>0460EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0080, 44 V=>DEAD,D=@ROOT+>26D4+>0006,C=@ROOT+>26D4+>00064EC'*$' ********** D ****************************************************************D* '6*=P0413 MSC01/30/80STR #056843.3.1 SYSLOG 6* ':* PATCH TO KEEP THE SYSTEM LOG FROM CAUSING A SYSTEM :4* CRASH WHEN A CRU FLOPPY DRIVE DOES NOT EXIST.4* ' *#SYN SIO,SVCIO,SYSLOG*#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * '4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0082, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>1803,>0841,>1701,>0A23),C=>0D60(EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008A, 4 V=>DEAD,D=>045B,C=>045BEC'2MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0090, 2 V=(>0241,>000F,>D0E1), " D=(>0203,>0004,>08B1),C=>0AB6"EC'2MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0096, 2$ V=@SYSLOG+>025B,D=>06A0,C=>06A0$EC'2MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0098, 2, V=>0983,D=@S$$PAT+>0082,C=@S$$PAT+>0082,EC'*$'N%**************************************************************************N* '>*=P0416 MSC01/30/80STR #05686 3.3.1 DSR911,DSR911PF >* '>* ABORT I/O SVC'S TO 911'S ARE LOGGED TO THE SYSTEM LOG. >D* THIS IS THE STADARD WAY COMM WORKS. IT SHOULDN'T BE LOGGED. D>* THIS PATCH ALSO PREVENTS ANY DEVICE TIMEOUTS FROM BEING >>* LOGGED, BUT SHOULD NOT PRESENT ANY PROBLEMS SINCE THERE >:* SHOULD BE NO 911 WITH TIMEOUT DEFINED OTHER THAN 0. :* ' *#SYN S911,DSR911  *#SYN S911PF,DSR911PF * ' .IF @DSR911 ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>020C,2 V=>0606,D=>0006,C=>0006EC'* ' .ENDIF% '* ' .IF @DSR911PF ,NE, NONE * '6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>031A,6 V=>606,D=>0006,C=>0006 EC'* ' .ENDIF% *$'N%**************************************************************************N* '6*=P0417 MSC01/30/80STR #056873.3.1 DSR913 6* '<* DISPLAYING CHARACTERS ON A 913 VDT THAT IS CONNECTED <B* TO A 990/12 FAILS DURING SCROLLING THE SCREEN. CHARACTERS B<* DRIFT FROM THE PREVIOUS LINES. THIS PATCH INTRODUCES <4* A TIMING LOOP TO PROHIBIT THE ABOVE PROBLEM. 4* ' *#SYN S913,DSR913 *#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * ' .IF @DSR913 ,NE, NONE * '4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AA, 4, V=(>DEAD,>DEAD),D=(>1D0A,>06A0),C=>1BAA,EC'@4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AE, 4, V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B0, 4, V=(>DEAD,>DEAD),D=(>0607,>0460),C=>0267,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B4, 4 V=>DEAD,D=@DSR913+>0730EC'2MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072C,2 V=>1D0A,D=>0460,C=>0460EC'2MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072E,2, V=>0607,D=@S$$PAT+>00AA,C=@S$$PAT+>00AA,EC'* ' .ENDIF% *$'N%**************************************************************************N* '6*=P0418 RVL01/30/80STR #056893.3.1 WAITIO 6* '@* WHEN A TASK ISSUES A 'WAIT FOR ANY I/O' SVC AFTER HAVING @>* PREVIOUSLY ISSUED A 'DO NOT SUSPEND', THE I/O COMPLETION > <* MAY NOT BE HANDLED PROPERLY. THIS PATCH CORRECTS THE < * 'WAIT FOR ANY I/O LOGIC'. * '*#SYN IOC,IOCOM *#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * '4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B6, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>D128,>0060,>1308,>04E0),C=>C6A0(EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00BE, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "( D=(>014A,>04E0,>0104,>0720),C=>038E(EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00C6, 4, V=(>DEAD,>DEAD),D=(>0106,>0460),C=>0566,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CA, 4( V=>DEAD,D=@ROOT+>1DB4,C=@ROOT+>1DB4(EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CC, 4 V=>DEAD,D=>0460,C=>0460EC'MPI PF=IMAGE,MT=TA,MN=@SROOT ,ADR=@S$$PAT+>00CE, * V=>DEAD,D=@IOCOM+>08DC,C=@IOCOM+>08DC*EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>08D6,0 V=>D128,D=>0460,C=>0460EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>08D8,0, V=>0060,D=@S$$PAT+>00B6,C=@S$$PAT+>00B6,EC'*$'N%**************************************************************************N* '6*=P0419 RVL01/30/80STR #056903.3.1 MM$SCN 6* ':* MANY REAL TIME TASKS RUNNING CONCURRENTLY THAT FILL :>* AVAILABLE MEMORY APPEARS TO CAUSE A SCHEDULAR LOCKOUT. >:* THIS WOLULD CAUSE THE SYSTEM TO 'HANG'.THIS PATCH : * CORRECTS THE PROBLEM.* '*#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * '8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>00A4, 8& V=(>1501,>04C1),D=(>1104,>1000),C=>&0104EC'*$'N%**************************************************************************N* '4*=P0422 MSC01/29/80STR #056913.3.1 RDSEQ4* ':* PATCH TO FIX FILE MANAGEMENT ROUTINE "RDSEQ".THE ::* STACK IS IMPROPERLY MANAGED IF AN ERROR IS RETURNED : * TO RDSEQ FROM BM$REL.* ' *#SYN SFILMG,FILMG,KIF*#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * ':MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>08E2+>00BE, :: V=@FILMG+>08E2+>00E0,D=@S$$PAT+>0070,C=@S$$PAT+>0070 :EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0070,4, V=(>DEAD,>DEAD),D=(>064A,>0460),C=>022A,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0074,46 V=>DEAD,D=@FILMG+>08E2+>00E0,C=@FILMG+>08E2+>00E0 6EC'*$' MPI PF=IMAGE,MT=TA",MN=@SROOT,ADR=@S$$PAT+>0240, " V=>2E30,D=>2E31,C=>2E318!EC  ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH. 8N%**************************************************************************N* '8*=P0425 CRM02/08/80STR #057263.3.1 DSR911PF 8* '<* WHEN USING 16K RAM MEMORIES, THE POWER FAIL/RECOVERY <>* SNAGS ON SOME UNINITIALIZED MEMORY DURING THE RECOVERY >8* PHASE. THIS PATCH CAUSES THE 911PF BUFFERS TO BE88* INITIALIZED DURING IPL TO PROHIBIT THIS PROBLEM. 8* ' *#SYN S911PF,DSR911PF *#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * ' .IF "@DSR911PF", NE, NONE* '6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>02B6,6 V=>04E0,D=>06A0,C=>06A0 EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>02B8,6V=4@DSR911PF+>0BA2,D=@S$$PAT+>00D0,C=@S$$PAT+>00D0 4EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D0, 4 V=>DEAD,D=>0206,C=>0206 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D2, 40V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6 0EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D4, 4 V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>0207,>0780,>0209,>2020),C=>27AE (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00DC, 4 V=(>DEAD,>DEAD,>DEAD),"D=(>CD89,>0647,>16FD),C=>DD33 "EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E2, 4 V=>DEAD,D=>04E0,C=>04E0 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E4, 40V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 0EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E6, 4 V=>DEAD,D=>04E0,C=>04E0 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E8, 40V=>DEAD,D=@DSR911PF+>0BA2,C=@DSR911PF+>0BA2 0EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EA, 4 V=>DEAD,D=>045B,C=>045B EC'* ' .ENDIF% * '8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>003C, 8 V=>23E0,D=>06A0,C=>06A0 EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>003E, 82V=@ROOT+>0272,D=@S$$PAT+>00EE,C=@S$$PAT+>00EE 2EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0040, 8 V=>1307,D=>1000,C=>1000 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EE, 4&V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),&&D=(>0200,>0080,>23C0,>1602,>0460),& C=>3322 " EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00F8, 4 V=>DEAD,"  D=@ROOT+>26D4+>0050, C=@ROOT+>26D4+>0050 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00FA, 4&V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),&&D=(>0200,>000F,>23C0,>1602,>0460),& C=>33AD " EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0104, 4 V=>DEAD,"  D=@ROOT+>26D4+>0050, C=@ROOT+>26D4+>0050 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0106, 4 V=>DEAD,D=>045B,C=>045B EC'*$'@************************************************************ @* '6*=P0434 MSC02/14/80STR #057753.3.1 FPYDSR 6* '<* PATCH TO NOT ISSUE COMMAND UNTIL CONTROLLER READY AND <2* MAKE ALL READS DO NON-SEQUENTIAL SECTORING.2* ' *#SYN SFPY,FPYDSR * ' .IF "@FPYDSR", NE, NONE* '2MPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0352, 2 V=>1004,D=>10F3,C=>10F3EC'4MPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0250, 4 V=>4000,D=>4100,C=>4100EC'* ' .ENDIF% *$'@************************************************************ @* '(*  BEGIN PATCHES FOR RELEASE 3.3.2(* 'B************************************************************* B* '4*=P0448 RVL02/27/80STR #058413.3.2 LPDSR4* ':* THE LINE PRINTER WILL NOT RETURN A TIMEOUT ERROR ON :.* OPEN. THIS PATCH CORRECTS THE PROBLEM. .* ' .IF "@LPDSR", NE, NONE0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0116,0 V=>1037,D=>0380,C=>0380 EC' .ENDIF% *$'B************************************************************* B* '2*=P0449 RVL02/27/80STR #058423.3.2 DSR9729 * '>* IF A TASK DOING I/O TO A TAPE TRANSPORT IS KILLED WHILE >>* THE TRANSPORT IS BUSY REWINDING, A CRASH >22 MAY OCCUR. >* ' *#SYN S979,DSR979  .IF "@DSR979" ,NE, NONE 2MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0024,2 V=>0248,D=>0460,C=>0460 EC'2MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0026,2,V=>F000,D=@S$$PAT+>012C,C=@S$$PAT+>012C ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>012C, 4 V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>0248,>F000,>C2C2,>0A2B),C=>3AA1 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0134, 4 V=(>DEAD,>DEAD,>DEAD),"D=(>1801,>0380,>0460),C=>1FE1 "EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013A, 4,V=>DEAD,D=@DSR979+>0028,C=@DSR979+>0028 ,EC' .ENDIF% *$' ********** 8*************************************************** 8* '6*=P0454 RVL03/09/80STR #059073.3.2 IOCOMX 6* '>* THE POWER UP ROUTINE 'SCNPDT' FAILS TO PROPERLY HANDLE >$* SOME NON-DISK TILINE DEVICES.$* '0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023C,0 V=>22E0,D=>0460,C=>0460 EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023E,02V=@IOCOM+>01E4,D=@S$$PAT+>013C,C=@S$$PAT+>013C2EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013C, 4 V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>024B,>40FF,>028B,>4006),C=>0039 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0144, 4,V=(>DEAD,>DEAD),D=(>1602,>0460),C=>1262 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0148, 4*V=>DEAD,D=@IOCOM+>0242,C=@IOCOM+>0242 *EC' MPI PF=IMAGE,MT=TA,M N=@SROOT,ADR=@S$$PAT+>014A,   V=>DEAD,D=>0460,C=>0460 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014C, 4*V=>DEAD,D=@IOCOM+>0286,C=@IOCOM+>0286 *EC'*$'N%**************************************************************************N* '6*=P0453 MU 03/10/80STR #059063.3.2 DSR911 6* '>* KATAKANA CHARACTERS ARE NOT ACCEPTED/DISPLAYED PROPERLY >>* WHEN READ AND WRITE DIRECT OP CODES ARE USED ON A 911. >* ' *#SYN S911PF,DSR911PF  *#SYN S911,DSR911 *#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * ' .IF "@DSR911" ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8,2 V=>0200, D=>06A0, C=>06A0EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01CA,2$ V=>8000, D=@S$$PAT+>014E, C=@S$$P$ AT+>014E EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE,2 V=>0200, D=>06A0, C=>06A0EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02C0,2. V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E.EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0084,28 V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>A 8EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>050A,28 V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>A 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "* D=(>C002,>0A80,>04C0,>1802), C=>D640 *EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, 4 V=(>DEAD,>DEAD,>DEAD), $ D=(>0200,>8080,>045B), C=>86DB $EC' .ENDIF% * ' .IF "@DSR911PF" ,NE, NONE * 'MPI PF=IMAGE,M(T=OV,MN=@S911PF,ADR=@DSR911PF+>0256,( V=>0200, D=>06A0, C=>06A0EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0258,6. V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E.EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A,6 V=>0200, D=>06A0, C=>06A0EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041C,6. V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E.EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>00BA,6< V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A <EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>070A,6< V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A <EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, 4" V=(>DEAD,>DEAD,>DEAD,>DEAD), "* D=(>C002,>0A80,>04C0,>1802), C=>D640 *EC'MPI PF=IMAGE,MT=$TA,MN=@SROOT,ADR=@S$$PAT+>0156, $ V=(>DEAD,>DEAD,>DEAD), $ D=(>0200,>8080,>045B), C=>86DB $EC' .ENDIF% *$'B************************************************************* B* '4*=P0457 MU 03/11/80STR #057773.3.2 LPDSR4* '<* A SERIAL INTERFACED PRINTER IN 'CODE8' MODE DOES NOT <** MAINTAIN EITHER ODD OR EVEN PARITY.** ' .IF "@LPDSR" ,NE, NONE0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016C,0 V=>0624,D=>0460,C=>0460 EC'0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016E,0,V=>0002,D=@S$$PAT+>008C,C=@S$$PAT+>008C ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008C, 4&V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),&.D=(>0624,>0002,>0249,>7FFF,>0460),C=>7FF0 .EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0096, 46@*V=>DEAD,D=@LPDSR+>0170,C=@LPDSR+>0170 *EC' .ENDIF% *$'R(********************************************************************************R* '4*=P0456 JLH02/26/80STR #059273.3.2 DXIOS4* 'D * WHEN USING THE 3780/2780 EMULATORS, THE STATISTICS REPORT OF DD * PROTOCOL COUNTERS ARE AVAILABLE ONLY WHEN THE COMMUNICATIONS DD * LINE IS CONNECTED. THIS IMPLIES THAT THE STATISTICS ARE NOT DB* AVAILABLE WHEN THE LINK HAS BEEN DISCONNECTED BY THE REMOTE BD * OR ABNORMALLY BY PHONE PROBLEMS. THIS PATCH ALLOWS THE 3780 D:* OR 2780 TASK TO ACCESS THE STATISTICS AT ALL TIMES. :* ' *#SYN SCOMM,COMMCOM  .IF "@COMMCOM",NE,NONE6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0084,64V=@SVCIO+>0E58+>0294,D=@ROOT+>015C,C=@ROOT+>015C4EC'MP0I PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C, 0&V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),&.D=(>C027,>000A,>0A60,>1706,>9803),C=>4548 .EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000A, 8(V=>DEAD,D=@ROOT+>027A,C=@ROOT+>027A (EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000C, 8.V=(>DEAD,>DEAD),D=(>1305,>9803),C=(>8B06) .EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0010, 8(V=>DEAD,D=@ROOT+>0264,C=@ROOT+>0264 (EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0012, 8.V=(>DEAD,>DEAD),D=(>1302,>0460),C=(>1762) .EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0016, 86V=>DEAD,D=@SVCIO+>0E58+>0294,C=@SVCIO+>0E58+>0294 6EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0018, 8 V=>DEAD,D=>0460,C=>0460 EC'MPI 2PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+001A,26V=>DEAD,D=@SVCIO+>0E58+>0094,C=@SVCIO+>0E58+>0094 6EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05A4,6&V=(>F9E0,@ROOT+>0270,>0008,>C127),&(D=(>C127,>000A,>1106,>F9E0),C=>29CB (EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05AC,6(V=>000A,D=@ROOT+>0270,C=@ROOT+>0270 (EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+05AE, 6 V=>1103,D=>0008,C=>0008 EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CA,6 V=>C127,D=>0460,C=>0460 EC'6MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CC,64V=>000A,D=@ROOT+>015C+>001C,C=@ROOT+>015C+>001C 4EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001C, 8 V=>DEAD,D=>F9E0,C=>F9E0 EC',MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>01,5C+>001E, (V=>DEAD,D=@ROOT+>0270,C=@ROOT+>0270 (EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0020, 8 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>0008,>C127,>000A,>0460), C=(>C545) !EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0028, 86V=>DEAD,D=@SVCIO+>0E58+>05CE,C=@SVCIO+>0E58+>05CE 6EC' .ENDIF%  .SYN SCOMM="",COMMCOM=""*$'B************************************************************* B* '6*=P0460 RVL03/14/80STR #059383.3.2 TM$INT 6* ':* TM$INT INCORRECTLY CALLS THE GET SYSTEM TABLE AREA :(* ROUTINE WHILE IN INTERRUPT CODE. (* '8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>011C, 8 V=>1602,D=>1002,C=>1002 EC'*$'B************************************************************* B@* '6*=P0469 RVL03/15/80STR #059413.3.2 DSR911 6* '<* A READ ASCII SVC ISSUED TO A 911 WILL DESTROY SYSTEM <<* TABLE LINKAGE IF THE RECORD LENGTH IS ZERO. THIS WILL <8* RESULT IN >22,>30 AND SEVERAL OTHER CRASH CODES. 8* ' .IF "@DSR911", NE, NONE 2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02F8,2 V=>C261,D=>0460,C=>0460 EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02FA,2,V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, 4 V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>C261,>0006,>1602,>C90A),C=>1D6F (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, 48V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, 4V=>DEAD,D=@D SR911+>02FC,C=@DSR911+>02FC  EC' .ENDIF%  .IF "@DSR911PF", NE, NONE 6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0464,6 V=>C261,D=>0460,C=>0460 EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0466,6,V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, 4 V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>C261,>0006,>1602,>C90A),C=>1D6F (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, 48V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, 40V=>DEAD,D=@DSR911PF+>0468,C=@DSR911PF+>0468 0EC' .ENDIF% *$'B************************************************************* B* '4*=P0470 RVL03/18/80STR #059673.3.2 LPDSR46@* '>* ACCESSING SERIAL PRINTERS DIRECTLY WILL SOMETIMES CAUSE >6* THE SYSTEM TO 'HANG' OR CRASH WITH A CODE >22. 6* ' .IF "@LPDSR" ,NE, NONE0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>000C,0,V=(>0205,>0002),D=(>1000,>1000),C=>0000 ,EC'0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>001A,0 V=>1815,D=>1515,C=>1515 EC'0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0046,0 V=>102B,D=>1000,C=>1000 EC'0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0048,0 V=>0207,D=>0205,C=>0205 EC'0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>004A,0"V=@LPDSR+>0266,D=>0002,C=>0002"EC'0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0052,0 V=>1025,D=>10FA,C=>10FA EC'0MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0058,0 V=>1022,D=>10F7,C=>10F7 EC'.ENDIF%*$'B************************************************************* B* '6*=P0476 GRJ03/25/80STR #056963.3.2 CASHAN 6* ':* IF THE RECORD SWITCH OF A CASSETTE IS IN THE OFF OR :<* LOCAL POSITION AND AN ATTEMPT IS MADE TO WRITE TO IT, <B* AN ERROR >7 IS CORRECTLY RETURNED. HOWEVER ON A SUBSEQUENT B6* ATTEMPT, THE SYSTEM WILL CRASH WITH A CODE >20 6* ' *#SYN S733,DSR733 * ' .IF "@DSR733", NE, NONE  .EVAL CASHAN="@DSR733+>0566" 2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0092,2 V=>2260,D=>0A89,C=>0A89 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0094,2$V=@CASHAN+>0158,D=>1000,C=>1000 $EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0096,2 V=>1602,D=>1702,C=>1702 EC' MPI PF=IMAGE,MT=OV,MN= @S733,ADR=@CASHAN+>00C0, V=>2260,D=>0A89,C=>0A89 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C2,2$V=@CASHAN+>0158,D=>1000,C=>1000 $EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C4,2 V=>1302,D=>1802,C=>1802 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0134,24V=@CASHAN+>014C,D=@CASHAN+>0150,C=@CASHAN+>0150 4EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>014E,2 V=>4000,D=>0000,C=>0000 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0150,2$V=@CASHAN+>0156,D=>0000,C=>0000 $EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0152,2$V=@CASHAN+>01F0,D=>4000,C=>4000 $EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0154,2,V=>0001,D=@CASHAN+>015A,C=@CASHAN+>015A ,EC'0MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0156,0,V=>1300,D=@CASHAN+>01F0,C=@CASHAN+>01F0 ,EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0158,2,V=(>0100,>1000),D=(>0001,>1300),C=>1301 ,EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>016C,24V=@CASHAN+>0152,D=@CASHAN+>0156,C=@CASHAN+>0156 4EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0254,2 V=>2260,D=>0A89,C=>0A89 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0256,2$V=@CASHAN+>0158,D=>1000,C=>1000 $EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0258,2 V=>1302,D=>1802,C=>1802 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0164,2 V=>2260,D=>0A49,C=>0A49 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0166,2$V=@CASHAN+>015A,D=>1000,C=>1000 $EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0168,2 V=>16EE,D= >17EE,C=>17EE EC'.SYN CASHAN=""! .ENDIF% *$'B************************************************************* B* '6*=P0490 GCH04/11/80STR #062063.3.2 IOCOMX 6* '@* THE CHARACTER QUE IN THE PDT WILL BE DESTROYED IF A TASK @>* OPENS A TERMINAL FOR EVENT CHARACTERS AND SUBSEQUENTLY >B* USES A SHORT FORM PRB. THIS MIGHT BE OBSERVED AS A SINGLE B>* EVENT CHARACTER CAUSING TWO I/O CALLS TO BE TERMINATED. >* 'D * NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH.D* '*#SYN IOC,IOCOM *#SYN SROOT,ROOT  *#SYN S911,DSR911  *#SYN S911PF,DSR911PF * ' .EVAL TM$INT="@ROOT+>26D4"* '4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0182, 40V=(@TM$INT+>0186,@TM$INT+>01A6,>0000,>0000),0D=&(>04C6,>C264,>0002,>1612),C=>D0B2 &EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>018A, 4 V=(>0000,>0000,>0000,>0000), (D=(>100F,>C264,>0002,>0609),C=>D460 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0192, 4 V=(>0000,>0000,>0000,>0000), (D=(>1608,>C186,>1306,>0624),C=>C2AC (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>019A, 4(V=(@TM$INT+>01F0,>0000,>0000,>0000),((D=(>0006,>C024,>0006,>D406),C=>1422 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01A2, 4 V=(>0000,>0000,>0201,>0014), (D=(>1003,>0624,>0002,>1602),C=>0027 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01AA, 4(V=(>06A0,@ROOT+>14CA,@TM$INT+>01E8),("D=(>C19B,>0380,>0460),C=>C67B "EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B0, 4 V=>C8A0, "D=@IOCOM+>02D0,C=@IOCOM+>02D0 "EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B2, 4 V=(@ROOT+>024A,>0006,>C8A0), "D=(>0624,>0006,>0460),C=>0242 "EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B8, 42V=@TM$INT+>01EA,D=@IOCOM+>032E,C=@IOCOM+>032E 2EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01BA, 4(V=(>0008,>C8A0,@TM$INT+>01EC,>000A),((D=(>C186,>1306,>0624,>0006),C=>D4A2 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01C2, 4(V=(>D8A0,@TM$INT+>01EE,>000E,>04C1),((D=(>C024,>0006,>D406,>1002),C=>0426 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01CA, 4 V=(>D881,>000C,>D881,>000D), (D=(>0624,>0002,>046B,>0004),C=>0249 (EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C2,0 V=>C024,D=>0460,C=>0460 EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C4,0,V=>0002,D=@TM$INT+>0182,C=@TM$INT+>0182 ,EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C6,0 V=(>1602,>C19B,>0380,>0624), (D=(>1000,>1000,>1000,>0460),C=>1460 (EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02CE,0,V=>0002,D=@TM$INT+>018C,C=@TM$INT+>018C ,EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0300,0 V=(>13E0),D=(>13E5),C=>13E5  EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0312,0 V=(>17D7),D=(>17DC),C=>17DC  EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0324,0,V=(>1804,>05A4),D=(>1802,>0460),C=>1C62 ,EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0328,0,V=>0002,D=@TM$INT+>01B2,C=@TM$INT+>01B2 ,EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>032A,0 V=(>0624,>0006),D=(>0624,>0002),C=>0626 EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0334,0 V=>046B,D=>0460,C=>0460 EC'0MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0336,0,V=>0004,D=@TM$INT+>01BA,C=@TM$INT+>01BA ,EC'* ' .IF @DSR911 ,NE, "NONE" * '2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A0,2 V=>06A0,D=>0460,C=>0460 EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A2,22V=@IOCOM+>002C,D=@TM$INT+>01D2,D=@TM$INT+>01D22EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, 4 V=>D881,D=>06A0,C=>06A0 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, 4*V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C *EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, 4 V=>D881,D=>0206,C=>0206 EC'0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D80, ,V=>0010,D=@DSR911+>01B2,C=@DSR911+>01B2 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, 4 V=>D881,D=>0380,C=>0380 EC'* ' .ENDIF% * ' .IF @DSR911PF ,NE, "NONE" * '6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FC,6 V=>06A0,D=>0460,C=>0460 EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FE,62V=@IOCOM+>002C,D=@TM$INT+>01D2,C=@TM$INT+>01D22EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, 4 V=>D881,D=>06A0,C=>06A0 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, 4*V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C *EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, 4 V=>D881,D=>0206,C=>0206 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, 4 V=>0010,D=@DSR911PF+>0240, C=@DSR911PF+>0240 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, 4 V=>D881,D=>0380,C=>0380 EC'* ' .ENDIF% * '.SYN TM$INT=""!*$'B************************************************************* B* '6*=P0496 RVL04/18/80STR #061473.3.2 DSR820 6* '<* THE REQUEST TO SEND FLAG IS INCORRECTLY REFERENCED IN <* THE 820 DSR. * ' .IF "@DSR820" ,NE, NONE 2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>00A6,24V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA 4EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0174,24V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA 4EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01CE,24V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA 4EC' MPI PF=IMAGE,MT=OV ,MN=@S820,ADR=@DSR820+>01F8, 4V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA 4EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0490,24V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA 4EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04B4,24V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA 4EC' .ENDIF% *$'B************************************************************* B* '6*=P0499 RVL04/21/80STR #061133.3.2 DSR911 6* '>* IF CHARACTERS ARE ENTERED INTO AN ECHO SUPPRESSED FIELD >@* AND THE ERASE INPUT KEY IS DEPRESSED AND MORE CHARACTERS @@* ARE INPUT PRIOR TO DEPRESSING THE RETURN KEY, THE SYSTEM @$* WILL CRASH WITH A >22 CRASH. $* 'D * NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH D *#SYN SLGY,SYSLGY * ' .EVAL TM$INT="@ROOT+>26D4" .IF "@DSR911" ,NE, NONE 2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0320,2 V=>06A0,D=>0460,C=>460EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0322,24V=@DSR911+>064A,D=@TM$INT+>01DC,C=@TM$INT+>01DC 4EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, 48V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, 4,V=>06A0,D=@DSR911+>064A,C=@DSR911+>064A ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, 4 V=@SYSLGY,D=>0460,C=>0460 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, 44V=@TM$INT+>01E8,D=@DSR911+>0324,C=@DSR911+>0324 4EC' .ENDIF%  .IF "@DSR911PF" ,NE, NONE 4MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048C,4 V=>06A0,D=>0460,C=>460EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048E,66V=@DSR911PF+>08CA,D=@TM$INT+>01DC,C=@TM$INT+>01DC 6EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, 48V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, 40V=>06A0,D=@DSR911PF+>064A,C=@DSR911PF+>064A 0EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, 4 V=@SYSLGY,D=>0460,C=>0460 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, 48V=@TM$INT+>01E8,D=@DSR911PF+>0490,C=@DSR911PF+>0490 8EC' .ENDIF% .SYN TM$INT=""!2*$ ! NOTE: THIS PATCH MODIFIED BY PATCH 649 2B************************************************************* B* '.*=P0507 RVL04/23/80STR #057543.3.2 D. SR820  * '<* IF THE 820 IS PUT INTO THE LOCAL MODE AND BACK ONLINE <@* WHILE PROCESSING I/O, THE REQUEST TO SEND SIGNAL IS NEVER @:* RESET. IN ADDITION, IF THE 820 IS PROCESSING A READ :B* REQUEST AND THE SWITCH IS PLACED IN THE LOCAL POSITION, THE B(* TASK AND/OR SCI IS NEVER ABORTED.(* '>* NOTE: PATCH 0460 MUST BE APPLIED PRIOR TO THIS PATCH. > *#SYN S820,DSR820 * ' .IF "@DSR820" ,NE, NONE  .EVAL TM$INT="@ROOT+>26D4"2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03D8,2 V=>1F0D,D=>0460,C=>0460 EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03DA,2,V=>160E,D=@TM$INT+>01F6,C=@TM$INT+>01F6 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01F6, 4&V=(>0000,>0000,>0000,>0000,>0000),&*D=(>1F0D,>1609,>1F0E,>1602,>0460),C=>046*8 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0200, 4,V=>0000,D=@DSR820+>03DC,C=@DSR820+>03DC ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0202, 4 V=(>0000,>0000,>0000),"D=(>0262,>0400,>0206),C=>0464 "EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0208, 4,V=>0000,D=@TM$INT+>01F6,C=@TM$INT+>01F6 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020A, 4,V=(>0000,>0000),D=(>0380,>0460),C=>07E0 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020E, 4,V=>0000,D=@DSR820+>03F8,C=@DSR820+>03F8 ,EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F0,2 V=>0206,D=>0460,C=>0460 EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F2,24V=@DSR820+>04EE,D=@TM$INT+>01E8,C=@TM$INT+>01E8 4EC' MPI PF=IMAGE,MT=TA,MN=@SROOT,A  DR=@TM$INT+>01E8,  V=0380,D=>0206,C=>0206EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EA, 4,V=>4D45,D=@DSR820+>04EE,C=@DSR820+>04EE ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EC, 4&V=(>4D20,>4E00,>0000,>0000,>0000),&.D=(>C024,>0030,>1101,>1D0A,>0380),C=>CF9F .EC'.SYN TM$INT=""! .ENDIF% *$'L$*********************************************************************** L* 'D*=P0557 KDK04/25/80STR #061963.3.2 DSRVDT(911,911PF,913)D* 'B* THE CURSOR POSITIONING ON THE VDTS FAIL TO ADVANCE WHEN THE BH* LAST CHARACTER OF A FIELD IS ENTERED. THEN, ALTHOUGH THE CURSOR HF!* IS POSITIONED ON A CHARACTER, THE CHARACTER CANNOT BE MODIFIED FF* UNTIL A LEFT ARROW KEY IS STRUCK.BUT STRIKING THE LEFT ARROW F* KEY: IN THIS CONDITION DOES NOT CAUSE THE CURSOR TO CHANGE :F!* POSITIONS. THIS PATCH CAUSES THE CURSOR TO ALWAYS MOVE TO THE FD * NEXT CHARACTER POSITION WHEN A CHARACTER IS ENTERED. IT ALSODB* CORRECTS A PROBLEM IN READING THE LAST CHARACTER IN A FIELD BD * THAT DOES NOT REQUIRE A TERMINATING CHARACTER TO CAUSE RETURND * TO THE CALLING TASK. * '*#SYN SROOT,ROOT  *#SYN S911,DSR911  *#SYN S911PF,DSR911PF  *#SYN S913,DSR913  *.EVAL S$$PAT="@ROOT+>0000"  * ' .IF @DSR911 ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0348,2" V=(>060A,>32CA,>058A,>0B2B), "( D=(>32CA,>0B2B,>1818,>100A),C=>31F3(EC'* ' .ENDIF% * ' .IF @DSR911PF ,NE, NONE * '4MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BA,4* V=(>060A,>32CA,>0460,@S$$PAT+>0000), *( D=(>32CA,>0B2B,>182D,>1015),C=>31D9(EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04E8,6& V=(>C80A,@DSR911PF+>0BA0,>32CA), &" D=(>1000,>32CA,>1E0F),C=>3CC5"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, 4< V=(>058A,>0620,@DSR911PF+>0BA0,>0460,@DSR911PF+>04C2), <. D=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),C=>DEAD.EC'* ' .ENDIF% * '* ' .IF @DSR913 ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B0,2* V=(>060A,>1D0C,>0460,@S$$PAT+>0016), *( D=(>1003,>1002,>1001,>1000),C=>0000(EC'2MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8,2, V=(>0B5B,>1811),D=(>0B2B,>1006),C=>1B2D,EC'2MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E,2 V=@S$$PAT+>0024,D"=@S$$PAT+>002A,C=@S$$PAT+>002A"EC'@MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0654, !CURSOR OFF @ V=>1D1C,D=>1E1C,C=>1E1CEC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, 4* V=(>06A0,@DSR913+>07DC,>C2E4,>002C), *( D=(>DEAD,>DEAD,>DEAD,>DEAD),C=>0000(EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001E, 4$ V=(>058A,>0460,@DSR913+>02B8), $" D=(>DEAD,>DEAD,>DEAD),C=>DEAD"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, 4 V=(>890A,>0030,>1301), " D=(>DEAD,>DEAD,>DEAD),C=>DEAD"EC'* ' .ENDIF% *$'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, 4 V=>2E31,D=>2E32,C=>2E326!EC  ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH6@************************************************************ @*  BEGIN REL EASE 3.3.3 PATCHESB************************************************************* B* '6*=P0563 RVL05/16/80STR #063153.3.3 TM$FUN 6* 'D * THE 'DO NOT SUSPEND' TIME INTERVAL IS CALCULATED INCORRECTLY.DD * IF AN ERROR OCCURS PATCHING FOR 60HZ SYSTEM, PATCH FOR 50HZ. D* 'H"MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0006,D=>00FA,C=>00FA H .IF "@$$CC" , GT, 0 H"MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0005,D=>00FA,C=>00FA HEC' .ENDIF% *$'B************************************************************* B* '6*=P0576 RVL06/09/80STR #064823.3.3 DSR820 6* '@* THE 820 DSR DOES NOT ALLOW THE TAB CHARACTER TO BE PASSED @* ' *#SYN S820,DSR820 * ' .IF "@DSR820", NE, NONE  MPI PF=IMAGE,MT=OV,M N=@S820,ADR=@DSR820+>02FA,4V=(>0460,@DSR820+>01E8),D=(>13D2,>1000),C=>03D2 4EC' .ENDIF% *$'B************************************************************* B* '6*=P0577 MU 06/11/80STR #064063.3.3 DSR820 6* '>* THE FIRST KATAKANA CHARACTER ENTERED FROM THE KEYBOARD > * FAILS TO ECHO. * ' *#SYN S820,DSR820 * ' .IF "@DSR820" ,NE, NONE 2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0486,2 V=>C024,D=>C2A4,C=>C2A4 EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>048E,2 V=>2020,D=>22A0,C=>22A0 EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049A,2 V=>0240,D=>024A,C=>024A EC'2MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049E,2 V=>C900,D=>C90A,C=>C90A EC' MPI PF=IMAGE,MT=OV,MN=@S820,AD R=@DSR820+>04C8, V=>C024,D=>C2A4,C=>C2A4 EC' .ENDIF% *$'B************************************************************* B* '6*=P0578 KDK06/11/80STR #064193.3.3 DSR911 6* '>* ENTERING THE BACKFIELD KEY OR TAB KEY AFTER ENTERING AN >@* INVALID CHARACTER INTO A VALIDATION FIELD WILL CAUSE THE @ * CURSOR TO DISAPPEAR. * ' *#SYN S911,DSR911  *#SYN S911,DSR911WP  *#SYN S911PF,DSR911PF * ' .IF "@DSR911", NE, NONE 2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0402,2 V=>C2E4,D=>0460,C=>0460 EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0404,2,V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, 4 V=(>DEAD,>DEAD,>DEAD,>DEAD), D=(>C2E4,>002C,> 1D0C,>0460),C=>DBA4 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, 4,V=>DEAD,D=@DSR911+>0406,C=@DSR911+>0406 ,EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>055A,2 V=>1D0C,D=>1000,C=>1000 EC' .ENDIF% * ' .IF "@DSR911PF", NE, NONE 6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B2,6 V=>C2E4,D=>0460,C=>0460 EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B4,6,V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, 4 V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, 40V=>DEAD,D=@DSR911PF+>05B6,C=@DSR911PF+>05B6 0EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0772,6V=>1D0C,D=>1000,C=>1000 EC' .ENDIF%  .IF "@DSR911WP", NE, NONE 6MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B4,6 V=>C2E4,D=>0460,C=>0460 EC'6MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B6,6,V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, 4 V=(>DEAD,>DEAD,>DEAD,>DEAD), (D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 (EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, 40V=>DEAD,D=@DSR911WP+>04B8,C=@DSR911WP+>04B8 0EC'6MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0636,6 V=>1D0C,D=>1000,C=>1000 EC' .ENDIF% *$'N%**************************************************************************N* '<*=P0584 KDK06/19/80STR #06144 3.3.3 DSRKSR,DSR733 <* ' * WHEN <USING THE KSR OR ASR DSR FOR DIALUP TERMINALS, THE PHONE<D * CONNECTION LOGIC PROHIBITS A RECONNECTION IN THE EVENT OF AN D@* ABNORMAL DISCONNECTION; I.E. HANGING UP THE PHONE WITHOUT @D * TERMINATING SCI, OR MOMENTARY POWER LOSS AT THE MODEM. THIS DD * PATCH CORRECTS THE LOGIC AND ENABLES A RECONNECTION AFTER AN D * 8 SECOND DELAY.* ' *#SYN SKSR,DSRKSR  *#SYN S733,DSR733 * '4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0190, 4 V=>DEAD,D=>06A0,C=>06A0EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0192, 4* V=>DEAD,D=@IOCOM+>0004,C=@IOCOM+>0004*EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0194, 4, V=(>DEAD,>DEAD),D=(>0380,>0460),C=>07E0,EC'* '* ' .IF @DSRKSR ,NE, NONE * '* 'MPI PF=IMAGE,MT="OV,MN=@SKSR,ADR=@DSRKSR+>00A4," V=>06A0,D=>0460,C=>0460EC'2MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A6,24 V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 4EC'2MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A8,2, V=(>0380,>C047),D=(>C047,>1002),C=>D045,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, 4, V=>DEAD,D=@DSRKSR+>00A8,C=@DSRKSR+>00A8,EC'* '* ' .ENDIF% * '* ' .IF @DSR733 ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A4,2 V=>06A0,D=>0460,C=>0460EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A6,24 V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 4EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A8,2, V=(>0380,>C047),D=(>C047,>1002),C=>D045,EC' MPI PF=I ,MAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, ,, V=>DEAD,D=@DSR733+>00A8,C=@DSR733+>00A8,EC'* ' .ENDIF% *$'B************************************************************* B* '<*=P0597 RVL06/27/80STR #06603 3.3.3 DSRKSR,DSR733 <* '@* KATAKANA CHARACTERS ARE NOT PROCESSED PROPERLY BY DSRKSR @* AND DSR733.!* ' *#SYN SKSR,DSRKSR  *#SYN S733,DSR733 * ' .IF @DSRKSR,NE,NONE * '2MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>0398,2 V=>02AA,D=>02AB,C=>02AB EC'2MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>039A,2 V=>D2AA,D=>D2AB,C=>D2AB EC'2MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03A8,2 V=>FAA0,D=>FAE0,C=>FAE0 EC'2MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03BC,2 V=>5AA0,D=>5AE0,C=>5AE0 EC'2MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015C,2 V=>DF00,D=>E000,C=>E000 EC'2MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015E,2 V=>1BE6,D=>14E6,C=>14E6 EC'* ' .ENDIF% * ' .IF @DSR733,NE,NONE * '2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>0398,2 V=>02AA,D=>02AB,C=>02AB EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>039A,2 V=>D2AA,D=>D2AB,C=>D2AB EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03A8,2 V=>FAA0,D=>FAE0,C=>FAE0 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03BC,2 V=>5AA0,D=>5AE0,C=>5AE0 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015C,2 V=>DF00,D=>E000,C=>E000 EC'2MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015E,2 V=>1BE6,D=>14E6,C=>14E6 EC'@ .ENDIF% *$'B************************************************************* B* '6*=P0602 GJ 07/10/80STR #064243.3.3 ABTLDT 6* '>* ABTLDT GENERATES A CLOSE CALL BLOCK WHICH IS NOT SIZED >>* PROPERLY. THIS MAY CAUSE THE SYSTEM TO 'HANG' WITH ALL >8* MEMORY LIGHTS ON AND REQUIRES AN IPL PROCEDURE TO8 * RESTART THE SYSTEM.* '8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>06AE+>0038, 8 V=>000E,D=>0012,C=>0012 EC'*$'B************************************************************* B* '2*=P0629 GJ 07/30/80STR #067323.3.3 KIF2* 'B* IF BETWEEN THE TIME A READ OF A RECORD AND A REWRITE OF THE B@* RECORD, AN OPERATION IS DONE TO THE FILE THAT AFFECTS THE @<* LEAF NODE THE KEY READ IS IN BUT DOES NOT CAUSE A SPLIT<, 8* THE REWRITE WILL INCORRECTLY RETURN A >B9 ERROR. 8* '*#SYN SKIF3,KIF3 * ' .IF "@KIF3" ,NE, NONE 8MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0FF6+>008E, 8 V=>133C,D=>1335,C=>1335 EC' .ENDIF% *$'B************************************************************* B* '8*=P0649 RVL08/18/80STR #068663.3.3 DSR911PF 8* '<* PATCH 499 HAS AN INCORRECT ADDRESS FOR THE 911 POWER <* FAIL DSR."* ' .IF "@DSR911PF" ,NE, NONE 8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>01E2, 8:V=@DSR911PF+>064A,D=@DSR911PF+>08CA,C=@DSR911PF+>08CA :EC' .ENDIF% *$'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, 4 V=>2E32,D=>2E33,C=>2E33EC'8******************************************************8 ******* $*  BEGIN RELEASE 3.3.4 PATCHES$B************************************************************* B* '6*=P0650 RVL08/15/80STR #068683.3.4 DSR911 6* ':* THE 911 DOES NOT CHECK THE RECORD LENGTH ON A READ ::* DEVICE STATUS. MORE CHARACTERS MAY THEN BE RETURNED :@* THAN WERE REQUESTED AND MAY DESTROY SYSTEM TABLE LINKAGE. @* ' .IF "@DSR911" ,NE, NONE 2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F2,2 V=>CAA4,D=>0460,C=>0460 EC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F4,2,V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, 4,V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, 4(V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E (*@EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, 48V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, 4,V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, 4,V=>DEAD,D=@DSR911+>00F8,C=@DSR911+>00F8 ,EC' .ENDIF%  .IF "@DSR911PF" ,NE, NONE 6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013C,6 V=>CAA4,D=>0460,C=>0460 EC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013E,6,V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, 4,V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, 4(V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E (EC'MPI 0PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, 08V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, 4,V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, 40V=>DEAD,D=@DSR911PF+>0142,C=@DSR911PF+>0142 0EC' .ENDIF%  .IF "@DSR911WP" ,NE, NONE 6MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010C,6 V=>CAA4,D=>0460,C=>0460 EC'6MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010E,6,V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, 4,V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, 4(V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E (EC'MPI PF=IMAGE,M&T=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, &8V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, 4,V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, 40V=>DEAD,D=@DSR911WP+>0112,C=@DSR911WP+>0112 0EC' .ENDIF% *$'N%**************************************************************************N* '6*=P0709 MU 08/29/80STR #070963.3.4 DSR911 6* 'D * THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATIONDB* FAILS, HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THE B>* FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED. >B* **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIED FOR THIS PATCH B * **** TO APPLY PROPERLY.  * '*#SY N S911PF,DSR911PF  *#SYN S911WP,DSR911WP  *#SYN S911,DSR911 *#SYN SROOT,ROOT  *.EVAL S$$PAT="@ROOT+>0000"  * ' .IF "@DSR911" ,NE, NONE * '2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8,2 V=(>06A0,@S$$PAT+>014E),  D=(>C024,>003A),C=>C01EEC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE,2 V=(>06A0,@S$$PAT+>014E),  D=(>C024,>003A),C=>C01EEC'2MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568,24 V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E4EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, 4 V=(>C002,>0A80,>04C0), " D=(>C024,>003A,>0460),C=>C47E"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, 4, V=>1802,D=@DSR911+>0400,C=@DSR911+>0400,EC'"MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR"=@S$$PAT+>0156,  V=(>0200,>8080,>045B), " D=(>DEAD,>8080,>DEAD),C=>8080"EC' .ENDIF% * '* ' .IF "@DSR911PF" ,NE, NONE * '6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256,6 V=(>06A0,@S$$PAT+>014E),  D=(>C024,>003A),C=>C01EEC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A,6 V=(>06A0,@S$$PAT+>014E),  D=(>C024,>003A),C=>C01EEC'6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780,66 V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E 6(4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, 4 V=(>C002,>0A80,>04C0), " D=(>C024,>003A,>0460),C=>C47E"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, 40 V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF+>05AA0EC' MPI PF=IMAGE,MT=TA,MN=@SROOT,A  DR=@S$$PAT+>0156,  V=(>0200,>8080,>045B), " D=(>DEAD,>8080,>DEAD),C=>8080"EC' .ENDIF% * '* ' .IF "@DSR911WP" ,NE, NONE * '6MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6,6" V=(>C002,>0A80,>04C0,>1802), "( D=(>C024,>003A,>1003,>1002),C=>C01F(EC'6MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318,6" V=(>C002,>0A80,>04C0,>1802), "( D=(>C024,>003A,>1003,>1002),C=>C01F(EC'6MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644,66 V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E 6(4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, 4 V=(>DEAD,>DEAD,>DEAD), " D=(>C024,>003A,>0460),C=>C47E"EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, 40 V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B00EC' .ENDIF% * '*$'B************************************************************* B* '6*=P0714 RVL09/19/80STR #070983.3.4 MM$SCN 6* '<* IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK <<* AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TO <>* LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THE >B* TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. B* '8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0094, 8 V=>D022,D=>0460,C=>0460 EC'8MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, 8,V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC ,EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, 48V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, 48@8V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),C=>C660 8EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, 44V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A 4EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, 4 V=>DEAD,D=>0460,C=>0460 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, 44V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 4EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, 4 V=>DEAD,D=>0460,C=>0460 EC'4MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01C0, 44V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 4EC'*$'N%**************************************************************************NL * INSERT PATCHES HERE.BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALL.L* ',******************************************,$********************************$* '* '8CM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" 8* ' Q$SYN %  .SYN IMAGE="", S$$PAT=""..SYN SROOT="", ROOT="", S820="", DSR820="".8.SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" 8..SYN SMEM="", MEMRES="", SIO="", SVCIO="" ...SYN DDIOSR="", SDDIO="", IOC="", IOCOM=""...SYN S911="", DSR911="", SLP="", LPDSR="" .4.SYN S911PF="", DSR911PF="", S913="", DSR913="" 4 .SYN S911WP="",DSR911WP="" .SYN SFPY="", FPYDSR="" * 'SDT & EBATCH% R(********************************************************************************R8* THE NEXT AVAILABLE PATCH LOCATION IS S$$PAT+>01C2 8D * 21 WORDS RESERVED FOR COMMCOM PATCH STARTING AT S$$PAT+>015C D.********************************************.&************************************&'* '8CM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" 8* ' Q$SYN %  .SYN IMAGE="", S$$PAT=""..SYN SROOT="", ROOT="", S820="", DSR820="".8.SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" 8..SYN SMEM="", MEMRES="", SIO="", SVCIO="" ...SYN DDIOSR="", SDDIO="", IOC="", IOCOM=""...SYN S911="", DSR911="", SLP="", LPDSR="" .4.SYN S911PF="", DSR911PF="", S913="", DSR913="" 4 .SYN S911WP="",DSR911WP="" .SYN SFPY="", FPYDSR="" * 'SDT & EBATCH% R(********************************************************************************R8* THE NEXT AVAILABLE PATCH LOCATION IS S$$PAT+>01C2 8D * 21 WORDS RESERVED FOR COMMCOM PATCH STARTING AT S$$PAT+>015C D.********************************************.SKI1 Z,<<d'==Nr  ST01CS01CS026 ST01L ST01p DS01DS02 ` DS01 ``LP01 ST01 ST02,`LP01, LP02, DS01DS02DS03DS04  N MT01 DS05DS06`DS R ;<<d'==@X ST01CS01CS026 ST02 ST02p DS01DS02 ` DS01 ``LP01 DS01DS02DS03DS04   ST02 ST02 ST01( ST02@`LP02`LP03"G TO TRIGGER END RECORD EXIT  "$ BSS170  CHARACTER BUFFER  $ DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENLP02 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS02 PDT DISK  ***  "@**********************************************************  @PSDS02 EQU$ ! $ DATA ENDS02LINK TO NEXT PDT $, DATA MPDS02 MAP FILE FOR THE DEVICE  ,PDDS02& EQU$  START OF DSR REGISTERS &" DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .**"* DSR REGISTER EXTENTION *** "* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS02' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  , DAT*A >FF00  STATE (NONE) / QUEUE COUNT  *" DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D2  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .( DATA $-$  MINOR ERROR CODE - HDS & C(YL  ( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0400  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK ( C,@" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENDS02 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS03 PDT DISK  ***  "6****************************************************6 ******  PSDS03 EQU$ ! $ DATA ENDS03LINK TO NEXT PDT $, DATA MPDS03 MAP FILE FOR THE DEVICE  ,,PDDS03 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2 DATA 0,0,0,0  R8-R11 = DSR SCRATCH , DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS03' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (@" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D3  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8  DATA $- $$ SAVED STATUS - WRDS/TRK  $. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0200  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENDS03 EQU$  POINTER TO NEXT PDT  ** '   PAGE " ****************************$******************************  $"*** DS04 PDT DISK  ***  "@**********************************************************  @PSDS04 EQU$ ! $ DATA ENDS04LINK TO NEXT PDT $, DATA MPDS04 MAP FILE FOR THE DEVICE  ,,PDDS04 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  ( DATA FGDS01R5= DSR SCRCH/CONT I/O FLG  " DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS04' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE    BYTE >00D 4  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0100  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS ** VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS & BYTE 0,0  RETRY / LUNO COUNT *ENDS04 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @&*** MT01 PDT MAG TAPE  ***  &@**********************************************************  @PSMT01 EQU$ ! $ DATA ENMT01LINK TO NEXT PDT $, DATA MPMT01 MAP FILE FOR THE DEVICE  ,,PDMT01 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "" DATA >0008 R2= STATUS FLG/I"NTERRUPT-1  . DATA >C108 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGMT01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "0 DATA TRTWP R7 = MT OP COMPLETE VECTOR  0* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F880  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *( DATA MTHAN  MAG TAPE DSR ADDRESS ( BYTE 0,0 DX10 ERROR CODE / FLAGS  & TEXT 'MT01' DEVICE ACCESS NAME && DATA >0064+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,, DATA MTINT  MAG TAPE INTERRUPT ENTRY  ," DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT " DATA 0 RESERVED FOR FUTURE USE  0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00E1  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE   DATA >0000,0,0,0,"0,0  TILINE IMAGE WDS 0 - A "( DATA >8000  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME  * DATA $-$  TAPE MANAGER TSB ADDRESS  *, DATA $-$  TAPE MANAGER TASK AREA ADR  ,. DATA $-$ TAPE MNGR TABLE/BUFFER AREA  . DATA 0,0 RESERVED 0 DATA -1,-1 TAPE MNGR & FUTILITY LOCKOUT  0 DATA 0 !   BSS16SYSTEM LOG AREA  ************4*********************************************  4@********WORKSPACE FOR INTERRUPT DECODER **************  @<******** SUPPORTS ONE TO FOUR PDTS **************  <@*********************************************************  @WPMT01 EQU$ ! ( DATA PDMT01R0= PDT FOR UNIT 0 ($ DATA 0 R1= PDT FOR UNIT 1 $$ DATA 0 R2= PDT FOR UNIT 2 $$ DATA 0 R3= PDT FOR UNIT 3 $&FGMT01 DATA 0 R4= I/O FLAGS  &  DATA $-$ R5= BLWP WP   DATA $-$ R6= BLWP PC  "@& DATA 0,0,0,0 R7-R10 = SCRATCH &( DATA $-$  R11 = LINKAGE REGISTER (, DATA >F880  R12 = TILINE/CRU ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST . DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENMT01 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS05 PDT DISK  ***  "@**********************************************************  @PSDS05 EQU$ ! $ DATA ENDS05LINK TO NEXT PDT $, DATA MPDS05 MAP FILE FOR THE DEVICE  ,,PDDS05 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000A R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS05R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *@, DATA >F820  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS05' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY ( DATA 0,0 UCB QUEUE HEADER " DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D5  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8( DATA $-$ SAVED STATUS - WRDS/TRK (  . DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0800  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED @. DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  ", DATA >0360  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA  @*********************************************************  @@********WORKSPACE FOR INTERRUPT DECODER **************  @<******** SUPPORTS ONE TO FOUR PDTS **************  <2************************************************2*********  WPDS05 EQU$ ! ( DATA PDDS05R0= PDT FOR UNIT 0 (( DATA PDDS06R1= PDT FOR UNIT 1 ($ DATA 0 R2= PDT FOR UNIT 2 $$ DATA 0 R3= PDT FOR UNIT 3 $&FGDS05 DATA 0 R4= I/O FLAGS  &  DATA $-$ R5= BLWP WP   DATA $-$ R6= BLWP PC  & DATA 0,0,0,0 R7-R10 = SCRATCH &( DATA $-$  R11 = LINKAGE REGISTER (, DATA >F820  R12 = TILINE/CRU ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST . DATA 0 RESERVED  DATA 0,0,0 STATISTIC COUNTERS $ BYTE 0,0  RETRY / LUNO COUNT $*ENDS05 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS06 PDT DISK  ***  "@**********************************************************  @PSDS06 EQU$ ! $ DATA ENDS06LINK TO NEXT PDT $, DATA MPDS06 MAP FILE FOR THE DEVICE  ,,PDDS06 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK " DAT,A >000A R2 = STATUS FLG/INTERRUPT-1  ,. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS05R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F820  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $AT(@* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS06' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT " D&ATA 0  RESERVED FOR FUTURE USE  &0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D6  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE   D4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0400  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  ", DATA >0360  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &(@, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENDS06 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS01 PDT DISK  ***  "@**********************************************************  @PSDS01 EQU$ ! $ DATA ENDS01LINK TO NEXT PDT $, DATA MPDS01 MAP FILE FOR THE DEVICE  ,,PDDS01 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .0@$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS01' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  , D,ATA >FF00  STATE (NONE) / QUEUE COUNT  ," DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >0009  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .& DATA $-$  MINOR ERROR CODE - HDS &&  CYL  ( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0800  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (*@" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA  @*********************************************************  @@********WORKSPACE FOR INTERRUPT DECODER **************  @<******** SUPPORTS ONE TO FOUR PDTS **************  <@*********************************************************  @WPDS01 EQU$ ! ( DATA PDDS01R0= PDT FOR UNIT 0 ( DATA "PDDS02R1= PDT FOR UNIT 1 "( DATA PDDS03R2= PDT FOR UNIT 2 (( DATA PDDS04R3= PDT FOR UNIT 3 (&FGDS01 DATA 0 R4= I/O FLAGS  &  DATA $-$ R5= BLWP WP   DATA $-$ R6= BLWP PC  & DATA 0,0,0,0 R7-R10 = SCRATCH &( DATA $-$  R11 = LINKAGE REGISTER (, DATA >F800  R12 = TILINE/CRU ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .*ENDS01 EQU0  POINTER TO NEXT PDT  ** '   PAGE " DIOPDT EQUPSDS01 PSBLST EQU$ START OF PSB  LIST  * ' * SYSTEM PSB! * ' $ DATA >180 PROCEDURE ID/FLAGS $ DATA 0 BEET ADDRESS  DATA >600BEET LENGTH  &PSBSTR DATA 0 LINK TO NEXT PSB && DATA $-$  PROGRAM FILE FCB PTR && DATA >101 ATTACHED/BUSY COUNT  & DATA 0 ROLL LINK  $ DATA 0,0  REL REC # IN FILE  $ DATA 0 # ROLL RECORDS   PAGE " B*  START OF GLOBAL LDT LIST* * * * * * * * * * * * * * * *  BLDTLST EQU$ ! , DATA PSDS01 SYSTEM DISK PDT ADDRESS  ,.@, BYTE 9,0  LUNO / INITIATE I/O COUNT  ,& DATA >8880  FLAGS (LIST HEAD)  & DATA $+4 NEXT LDT  DATA 0 TSB ADDRESS  "*** SECONDARY DISK LDT ****  "  DATA PSDS02 PDT ADDRESS  BYTE >00D2  LUNO  $ BYTE 0 INITIATE I/O FLAGS  $ DATA >880 LDT FLAGS  DATA $+4  LDT LINK   DATA 0  TSB ADDRESS * ' "*** SECONDARY DISK LDT ****  "  DATA PSDS03 PDT ADDRESS  BYTE >00D3  LUNO  $ BYTE 0 INITIATE I/O FLAGS  $ DATA >880 LDT FLAGS  DATA $+4  LDT LINK   DATA 0  TSB ADDRESS * ' "*** SECONDARY DISK LDT ****  "  DATA PSDS04 PDT ADDRESS  BYTE >00D4  LUNO  $ BYTE 0 INITIATE I/O FLAGS  $ DATA >880 LDT FLAGS  DATA $+4  LDT LINK   DATA 0  TSB ADDRESS * ' "*** SECONDARY DISK LDT ****  "  DATA PSDS05 PDT ADDRESS  BYTE >00D5  LUNO  $ BYTE 0 INITIATE I/O FLAGS  $ DATA >880 LDT FLAGS  DATA $+4  LDT LINK   DATA 0  TSB ADDRESS * ' "*** SECONDARY DISK LDT ****  "  DATA PSDS06 PDT ADDRESS  BYTE >00D6  LUNO  $ BYTE 0 INITIATE I/O FLAGS  $ DATA >880 LDT FLAGS  DATA $+4  LDT LINK   DATA 0  TSB ADDRESS * '  *** GLOBAL LUNO 0 ***    DATA PSST01PDT ADDRESS  ( BYTE 0,0  LUNO / INIT I/O COUNT  ( DATA >880LDT FLAGS   DATA 0 LDT LINK  DATA 0 TSB ADDRESS    PAGE " *  START OF SYSTEM LOG DATA  :SLNLUN BYTE 0,0  LUNO OF CURRENT FILE / OTHER LUNO  :<SLNLID BYTE 0,0  SYSTEM LOG EATER ID/USER LOG EATER  <2 SLNQUE BYTE >0006  MAX # OF QUEUE ENTRIES  2*SLNFLG BYTE >58  SYSTEM LOG FLAGS  *2SLNMCA DATA 0  MEMORY CONTROLLER ADDRESSES 2,* START OF THE DYNAMIC SYSTEM TABLE. ,*  SYSTEM TABLE AREA < IOSMAX DATA >0160  LIMIT ON TABLE AREA FOR I/O BUFFS  <.IOSSTA DATA 0  # OF BYTES IOS IS USING .6IOSHBC DATA 0  HIGHEST AMOUNT EVER USED BY IOS  6ITSKMX EQU>0,0C8  LIMIT ON INTERTASK MESSAGE AREA  ,:ITSKCR DATA $-$  CURRENTLY USED AREA FOR INTERTASK  :0CMEMSZ DATA $-$  CRASH FILE DUMP LENGTH  0SYSTAB EQU$ ! ( DATA TABSIZ SIZE OF AVAIL AREA  (( DATA 0  PTR TO NEXT AVAIL BLOCK ( RORG SYSTAB  BSSTABSIZ ENDSTB EQU$ ! "*** SCI LIMIT PARAMETERS *** "> SCIBMX DATA >0002  MAX LIMIT ON ACTIVE SCI BACKGROUND  >> SCIFMX DATA >0008  MAX LIMIT ON ACTIVE SCI FOREGROUND  >,SCIFCR DATA $-$  NUMBER OF FOREGROUND TA,SKS ACTIVE   *** BREAK POINT TABLE ***  4BPT  DATA >0060  NUMBER OF BREAK POINTS * 3  4 DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0    PAGE " 2OADPTR DATA $+2  POINTER TO NEWEST OVERLAY  2 DATA $+806,-1,-1  POINTER TO NEXT BUFFER  & BSS800  SYSTEM OVERLAY AREA &* ' * DATA 0,-1,-1  LAST SYSTEM OVERLAY *& BSS800  SYSTEM OVERLAY AREA &  PAGE "  RORG $->80  B***********************************************************  B>***  INTERRUPT & XOP TRAP INITIALIZATION TABLE: ***  >8*** MEMORY IS USED FOR SYSTEM OVERLAY AREA***  82*** AFTER INITIALIZATION IS COMPLETE***  2B***********************************************************  BXY EQU$ ! @2 DATA PRUPWP,PWRUP 0 INTERRUPT TRAP TABLE  20 DATA PWRWSP,PWRDN 1 LOC 0-3F IN MEMORY  0 DATA IIWSP,IIE  2  DATA XWS,IX 3  DATA XWS,IX 4 . DATA CLKWSP,CLKPC 5CLOCK INTERRUPT  . DATA XWS,IX 6  DATA XWS,IX 7 4 DATA WSP8,PCS 8 STANDARD INTERRUPT DECODER  44 DATA WSP9,PCS 9 STANDARD INTERRUPT DECODER  44 DATA WSPA,PCS10 STANDARD INTERRUPT DECODER  44 DATA WSPB,PCS11 STANDARD INTERRUPT DECODER  4 DATA XWS,IX12  DATA WSPD,PCS$13 STANDARD INTERRUPT DECODER  $4 DATA WSPE,PCS14 STANDARD INTERRUPT DECODER  44 DATA WSPF,PCS15 STANDARD INTERRUPT DECODER  4, DATA SCWSP,ILLSVC 0XOP TRAP TABLE ,2 DATA SCWSP,ILLSVC 1 LOC 40-7F IN MEMORY  2 DATA SCWSP,ILLSVC 2  DATA SCWSP,ILLSVC 3  DATA SCWSP,ILLSVC 4  DATA SCWSP,ILLSVC 5  DATA SCWSP,ILLSVC 6  DATA SCWSP,ILLSVC 7  DATA SCWSP,ILLSVC 8  DATA SCWSP,ILLSVC 9  DATA SCWSP,ILLSVC10  DATA SCWSP,ILLSVC11  DATA SCWSP,ILLSVC12  DATA SCWSP,ILLSVC13  DATA SCWSP,ILLSVC14  DATA SCWSP,SVCPRC15 4********* END OF TRAP INITIALIZATION ********  4  PAGE " @**********************************************************  @0*******  INTERRUPT DECODER ************  0@**********************************************************  @@**WHENEVER AN INTERRUPT IS ENCOUNTERD,CONTROL WILL BE  @<** TRANSFERED TO THIS MODULE. FROM HERE IT WILL GO  <** TO THE DS,R AND RETURN HERE ON COMPLETION.THIS  ,0** MODULE WILL THEN EXIT THROUGH TRPRTN. 0DEXPTST DATA >4000,>2000,>1000,>800 TEST BITS FOR EXP CHASSIS D&XWS  EQU$ DUMMY WORKSPACE  & * WORKSPACE POINTERS * ' WSP8 EQU$-14R0-R6  . DATA $+2,KBST02,KBI911,MPST02911 CRT  .  DATA 0,0,0,0,0 R11-R15  * ' WSP9 EQU$-14R0-R6  . DATA $+2,WPMT01,MTINT,MPMT01 MAG TAPE .  DATA 0,0,0,0,0 R11-R15  * ' WSPA EQU$-14R0-R6  . DATA $+2,KBST01,KBI911,MPST01911 CRT  .  DATA 0,0,0,0,0 R11-R15  * ' WSPB EQU$-14R0-R6  ( DATA $+2,WPDS05,DINT,MPDS05DISK (  DATA 0,0,0,0,0 R11-R15  * ' WSPD EQU$-14R0-R6  ( DATA $+2,WPDS01,DINT,MPDS01DISK (  DATA 0,0,0,0,0 R11-R15  * ' WSPE EQU$-14R0-R6  2 DATA $+2,PDLP01,LPINT,MPLP01 LINE PRINTER  2  DATA 0,0,0,0,0 R11-R15  * ' WSPF EQU$-14R0-R6  $ DATA $+2,PDLP02,LPINT,MPLP02 LI$NE PRINTER    DATA 0,0,0,0,0 R11-R15  * ' 4PCS  EQU$  SINGLE DEVICE PER INT DECODER  48 MOV@CURMAP,R11 SAVE CURRENT MAP FILE POINTER  88 MOVR10,@CURMAP SET DSR MAP UP AS CURRENT MAP  8. LMFR10,0  ---- LOAD DSR MAP FILE ---  .& BLWP *R7  ---- ENTER DSR ----  &2RETURN MOVR11,CURMAP RESTORE OLD MAP FILE 22 LMFR11,0 --- LOAD PREVIOUS MAP FILE ---  2$ B@TRAPRT RETURN TO SYSTEM $B*=============== SYSTEM CRASH CONDITIONS ==================  B0CTABX DATA 0  BAD CHASSIS (0 LENGTH TAB)  0"IX EQU$ BAD INTERRUPT  "" BLWP @SCRASH SYSTEM CRASH "* DATA >20 ILLEGAL INTERRUPT LEVEL  *  END# R10,@CURMAP SET DSR MAP UP AS CURRENT MAP  8. LMFR10,0  ---- LOAD DSR MAP FILE ---  .& BLWP *R7  ---- ENTER DSR ----  &2RETURN MOVR11,CURMAP RESTORE OLD MAP FILE 22 LMFR11,0 --- LOAD PREVIOUS MAP FILE ---  2$ B@TRAPRT RETURN TO SYSTEM $B*=============== SYSTEM CRASH CONDITIONS ==================  B **********************  "*** DS03 PDT DISK  ***  "@**********************************************************  @PSDS03 EQU$ ! $ DATA ENDS03LINK TO NEXT PDT $, DATA MPDS03 MAP FILE FOR THE DEVICE  ,,PDDS03 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  ($ DATA FGDS01R5= DSR SCRCH/CONT$ I/O FLG  " DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS03' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA   DATA $- $  DEVICE BUFFER ADDRESS  , DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D3  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0200  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS **  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS & BYTE 0,0 RETRY / LUNO COUNT *ENDS03 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS04 PDT DISK  ***  "@**********************************************************  @PSDS04 EQU$ ! $ DATA ENDS04LINK TO NEXT PDT $, DATA MPDS04 MAP FILE FOR THE DEVICE  ,,PDDS04 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0@. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS04' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (*** ,TILINE CONTROLLER DSR TEMP STORAGE *** , DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D4  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  . DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 -. A ( DATA >0100  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &* TEXT '#0000000' TEMP FILE NAME SEED *   BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENDS04 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @$*** ST01 PDT 911 CRT ***  $@**********************************************************  @PSST01 EQU$ ! $ DATA ENST01LINK TO NEXT PDT $, DATA MPST01 MAP FILE FOR THE DEVICE  ,(PDST01 EQU$  START OF DSR REGISTERS( " DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000F R2 = STATUS FLG/INTERRUPT-1  0. DATA >0905 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA TDI911R6 = 911 CRT SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >0100  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $ DAT&A $-32 POINTER TO DSR REGISTERS  &( DATA CRT911 911 CRT DSR ADDRESS  (* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'ST01' DEVICE ACCESS NAME &  DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0056  LENGTH OF DEVICE BUFFER  ,, DATA TDI911 911 CRT INTERRUPT ENTRY  ," DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  .@" DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (>***  DSR TEMP STORAGE - KSB & TERMINAL LUNO 0  ***  >$KBST01 EQU$ KSB REGISTERS  $, DATA $+32R0 = TERMINAL LUNO 0 LDT  ,( DATA 0 R1 = QUEUE OUTPUT INDEX  (0 DATA $+40+20 R2 = QUEUE INPUT POINTER  00 DATA $+38+20 R3 = QUEUE OUTPUT POINTER  04 DATA >001E+$+36+20 R4 = QUEUE END POINTER  4, DATA 0 R5 = EVENT CHARACTER BUFFER  , BYTE >40 R6= KSB FLAGS   BYTE >0001 STATION ID  DATA 0 R7= SCRATCH  . DATA 0 R8 = VALIDATION TABLE ADDRESS  .$ DATA 0,0,0 R9-R11 = SCRATCH $, DATA >0110  R12 = CRU INPUT ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .**** LDT FOR STATION LOCAL LUNO 0 *** *  DATA PSST01PDT ADDRESS  ( BYTE 0,0  LUNO / INITIATE COUNT  ( DATA >8480 FLAGS  * DATA LDTLST LDT LINK (GLOBAL LIST) *. DATA 0,0 TSB ADDRESS / LOCK OUT COUNT  . DATA 0,0,0,0,0,0,0,0   DATA .0,0 FLAGS/TIMEOUT FOR REMOTE TERMINAL  .$ BSS>001E CHARACTER QUEUE  $* DATA >001E  CHARACTER QUEUE LENGTH * DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENST01 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @$*** ST02 PDT 911 CRT ***  $@**********************************************************  @PSST02 EQU$ ! $ DATA ENST02LINK TO NEXT PDT $@H!*================ SYSGEN COMPLETION BATCH STREAM ================  H<******************* ASSEMBLE D$DATA *****************  < BATCH % 2XMA  SOURCE = DS01.S$SYSGEN.SKI1.D$SOURCE, 2, OBJECT = DS01.S$SYSGEN.SKI1.D$OBJECT, , LIST = XMA$L,  OPTION = (BUN,TUN,DUN)  .SYN XMA$L = ""  .IF  @$$CC,GE,04000  @ CM R=ME,M="*** ALGS - D$DATA ASSEMBLY ERROR = @$$CC ***"  @6 .STOP T="*** ALGS - D$DATA ASSEMBLY ERROR ***"  6 .ENDIF% &******************** LINK THE SYSTEM& ******************  2XLE  CONTROL= DS01.S$SYSGEN.SKI1.LINKSTRM, 2 LINK = DS01.S$IMAGES, * LIST = DS01.S$SYSGEN.SKI1.LINKMAP * .IF @$$CC,GE,04000 @CM R=ME,M="*** ALGS - SYSTEM LINK EDIT ERROR = @$$CC ***"  @6 .STOP T="*** ALGS - SYSTEM LINK EDIT ERROR ***" 6 .ENDIF% @******************** RUN SYNONYM ASSIGNMENT PROG ********  @2XPS  LINK = DS01.S$SYSGEN.SKI1.LINKMAP,  2" INPUT = DS01.PATCH.MEMRES, ", OUTPUT = DS01.S$SYSGEN.SKI1.PATCHFIL, , ERROR= DS 01.S$SYSGEN.SKI1.ERROR  .SYN $$CC ="@$XPS$E"  .IF @$$CC,GT,00000 & .SHOW DS01.S$SYSGEN.SKI1.ERROR & .ENDIF%  .IF @$$CC,GE,08000 H! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***"  H> .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***"  > .ENDIF%  .IF @$$CC,GT,00000 L# CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC ***" LB .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***"  B .ENDIF%  CM R=ME,M="*** ALGS - NORM AL TERMINATION ***"  2.STOP T="*** ALGS - NORMAL TERMINATION ***"  2& .SHOW DS01.S$SYSGEN.SKI1.ERROR & .ENDIF%  .IF @$$CC,GE,08000 H! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***"  H> .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***"  > .ENDIF%  .IF @$$CC,GT,00000 L# CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC ***" LB .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***"  B .ENDIF%  CM R=ME,M="*** ALGS - NORM@R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0001> BATCH LS=YES LS (LIST SYNONYMS) ? YES, BATCH LISTING ACCESS NAME  ** NULL ** ,* BATCH INPUT ACCESS NAME  ** NULL ** * STATION ID  ST01  USER ID  SYSTEM & LISTING ACCESS NAME  ** NULL ** & LIST SYNONYM SYNONYM  VALUE  $$12  N $$CC  00000 $$DA  N $$DSC$  DS01  $$EA  N $$MO  00  $$ST  01  $$SYS$  SKI1  $$UI  SYSTEM  $E$C  0 ME  ST01 $ 14:59:59 TUESDAY, JAN 23, 1990. $$ 15:00:00 TUESDAY, JAN 23, 1990. $R( <0002> **********************************************************************R" <0003> * MEMRES PATCH FILE "( <0004> ****************************(VERIFICATION DATA 4A0A DEAD  .. CURRENT IMAGE J4A0A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..JNEW IMAGE: CHECKSUM = 6012J4A0A 6012 DEAD DEAD DEAD DEAD DEAD DEAD DEAD `. .. .. .. .. .. .. ..J. .. .. ..JJ. ..J,******************************************, <0005> * P <0006> *  AFTER A SYSGEN IS DONE, THE DX10 IMAGE FILE (OBJECT OUTPUT FROMPN <0007> *  THE LINK EDITOR) WILL NEED TO HAVE THE PATCHES IN THIS FILE NP <0008> *  APPLIED TO IT. THIS FILE CANNOT BE RUN AS A BATCH STREAM. TO PN <0009> *  PATCH A SYSTEM, ONE MUST ASSIGN THE SYNONYM $$DSC$ TO THENP <0010> *  VOLUME NAME OF THE DISK ON WHICH THE PATCHES ARE TO BE APPLIED.P@ <0011> *  THEN EITHER (A) OR (B) BELOW MUST BE PERFORMED.@ <0012> * B <0013> * A) RUN THE XPS PROC, WITH THE FOLLOWING INPUTS: BB <0014> *  LINK = B0 <0015> *  INPUT = 0J <0016> *  OUTPUT = * BATC H STREAM> F <0018> *  ERROR = FL <0019> *  THE FILE SPECIFIED FOR OUTPUT CAN BE RUN AS A BATCH STREAM L& <0020> *  TO PATCH THE SYSTEM. & <0021> * R <0022> * B) IF THE LINK MAP IS NO LONGER AVAILABLE ON DISK FILE, THIS FILRH <0023> *  WILL HAVE TO BE TRANSLATED MANUALLY. COPY THIS FILE TOHF <0024> *  ANOTHER FILE AND EDIT THAT FILE DOING THE FOLLOWING. F <0025> * J <0026> *  1. FOR EACH #SYN COMMAND FOUND IN THE FILE, TWO OR MOREJF <0027> * SYNONYMS MUST BE DEFINED. EACH #SYN COMMAND IS IN THEF <0028> * FORMAT: F <0029> *  #SYN ,,F <0030> * FOR EXAMPLE:  <0031> *  #SYN SROOT,ROOT  <0032> * WHERE: <0033> *  SROOT IS ,THE SYNONYM NAME, AND,F <0034> *  ROOT IS THE OF THE MODULE TO BE PATCHEDF <0035> * L <0036> *  2. FIND THE S IN THE LINK MAP.ALL MODULES LJ <0037> * ON ONE LINE OF A #SYN COMMAND WILL RESIDE IN THE SAME PHASJH <0038> * OF THE LINK.DETERMINE THE OVERLAY OR TASK ID FROM THE HR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RJ <0039> * PHASE HEADER LINE OF THE PHASE WHERE THE SPECIFIED MODULESJH <0040> * ARE FOUND.INSERT A #SYN COMMAND INTO THE PATCH FILE TOHF <0041> * DEFINE THE OVERLAY OR ID, AS IN THE FOLLOWING EXAMPLE:F <0042> *  .SYN SROOT=1  <0043> * WHERE B <0044> *  SROOTIS THE SYNONYM FOUND B( <0045> * IN THE #SYN COMMAND, AN(D < <0046> *  1IS THE OVERLAY OR TASK ID FROM THE PHASE<4 <0047> *  IN WHICH THE LISTED MODULES RESIDE.4< <0048> *  (1 IS THE ID FOR THE FIRST SYSTEM. THIS WI<6 <0049> *  BE DIFFERENT FOR ADDITIONAL SYSTEMS.)6 <0050> * N <0051> *  3. NEXT, INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH N@ <0052> *  IN THE #SYN COMMAND.FOR EXAMPLE:@  <0053> *  .SYN ROOT=031DA  <0054> * WHERE:D <0055> *  ROOT IS THE OF THE MODULE (FROM THED, <0056> *  COMMAND) TO BE PATCHED, AND,@ <0057> *  031DAIS THE HEXADECIMAL ADDRESS OF THE MODULE@< <0058> *  ORIGIN FOR TI-SUPPLIED SYSTEM. (THIS MAY B<0 <0059> *  DIFFERENT FOR CUSTOM SYSTEMS.) 0 <0060> * 8 <0061> *  4. DELETE THE #SYN LINE FROM THE PATC8 H FILE.  <0062> * L <0063> *  5. REPEAT STEPS 1 - 4 FOR EACH #SYN COMMAND IN THE FILE. L <0064> * P <0065> *  6. QUIT THE TEXT EDIT SPECIFYING "YES" TO THE REPLACE OPTION.P <0066> * @ <0067> *  7. EXECUTE THE BATCH STREAM YOU JUST CREATED.@ <0068> * R( <0069> **********************************************************************R <0070> Q$SYN  <0071> .SYN $E$C="0" * <0072> .SYN IMAGE="@$$DSC$.S$IMAGES" * <0073> .SYN SLGY = 3 <0074> .SYN SYSLGY =>47F8  <0075> .SYN SROOT= 3 <0076> .SYN ROOT =>484A <0077> .SYN SFILMG = 19 <0078> .SYN FILMG=>71A0 <0079> .SYN KIF="NONE"  <0080> .SYN KIF3 ="NONE"  <0081> .SYN SMEM = 20 <0082> .SYN MEMRES =>71A0  <0083> .SYN  SIO= 23  <0084> .SYN SVCIO=>7AA0 <0085> .SYN SYSLOG =>99CE  <0086> .SYN IOC= 22 <0087> .SYN IOCOM=>71A0 <0088> .SYN SDDIO= 24 <0089> .SYN DDIOSR =>7AA0  <0090> .SYN S911 = 26 <0091> .SYN DSR911 =>7AA0 " <0092> .SYN DSR911PF ="NONE" "" <0093> .SYN DSR911WP ="NONE" "" <0094> .SYN DSR913 ="NONE" " <0095> .SYN SLP= 25 <0096> .SYN LPDSR=>7AA0" <0097> .SYN DSR820 ="NONE" "" <0098> .SYN FPYDSR ="NONE" "R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0099> .SYN S979 = 27 <0100> .SYN DSR979 =>7AA0 " <0101> .SYN COMMCOM="NONE" "" <0102> .SYN DSR733 ="NONE" "" <0103> .SYN DSRKSR ="NONE" " <0104> *   <0105> ******************** 4**************************************************4R <0106> * ! THE FOLLOWING SYNONYMS ARE DEFINED BY TI SYSTEM ANALYSTS ONLY AT RN <0107> *  SYSTEM BUILD TIME. THEY SHOULD NOT BE MODIFIED BY THE USER. NR( <0108> **********************************************************************R4 <0109> * INSERT PRE-LINK DEFINED SYNONYMS HERE:4& <0110> .EVAL S$$PAT="@ROOT+>0000"& <0111> * R( <0112> **********************************************************************R <0113> * F" <0114> * CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000. FJ$ <0115> * THIS CAUSES SEVERAL PROBLEMS IN DISK RESIDENT SYSTEM TASKS.J <0116> *   <0117> .IF @FILMG,GT,>C000 N& <0118> CM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >C000 " N( <0119> CM R=ME,M="CURRENT SYSTEM RO( OT SIZE = @FILMG ", <0120> CM R=ME,M="PATCHING TERMINATED" , <0121> .STOP  <0122> .ENDIF <0123> * R( <0124> **********************************************************************R <0125> * H# <0126> * CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800. HJ$ <0127> * THIS CAUSES SEVERAL PROBLEMS IN EXECUTION AS ANY REFERENCE JH# <0128> * IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS INSTEAD H <0129> * OF MEMORY.  <0130> * & <0131> .EVAL $$TMP=@SYSLOG+>0264 &  <0132> .IF @$$TMP,GT,>F800 N& <0133> CM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >F800 " N: <0134> CM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP ":, <0135> CM R=ME,M="PATCHING TERMINATED" , <0136> .STOP  <0137> .ENDIF <0138> .IF @$$TMP,GT,>F600 D! <0139> CM R=ME,M="PATCH STREAM WARNING - SYSTEM EXCEEDS >F600 "D: <0140> CM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP ":@ <0141> CM R=ME,M="LENGTH OF SYSTEM MUST BE LESS THAN >F800"@B <0142> CM R=ME,M="CHECK LINKMAP OF SYSTEM FOR PHASE 0 LENGTH"B <0143> .ENDIF <0144> .SYN $$TMP=""  <0145> * R( <0146> **********************************************************************R <0147> * 0 <0148> * BEGIN PATCHES FOR RELEASE 3.3.0 0 <0149> * R( <0150> **********************************************************************R <0151> * < <0152> *=P0370 MSC11/16/79STR #054073.3.0 LPDSR< <0153> * D! <0154> * THE LINE PRINTER WILL DO A TIME-OUT IF A ZERO LENGTH DD! <0155> * WRITE IS SENT TO IT. PRINT FILE WILL APPEAR TO HANG DB <0156> * AND THE PRINTER WILL NOT BE USABLE.ANY TASK DOINGBJ$ <0157> * THE ZERO LENGTH WRITE WILL HANG WAITING ON I/O COMPLETION. J <0158> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0159> *#SYN SLP,LPDSR  <0160> * " <0161> .IF "@LPDSR" ,NE, NONE" <0162> * 8 <0163> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0062,8& <0164>  V=>101D,D=>161D,C=>161D& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>0062 VERIFICATION DATA  >101D DATA  >161D CHECKSUM  >161D$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B02 101D  ..  CURRENT IMAGE L 7B02 101D 04E1 0008 1015 D920 4ABF FFE0 1011 .. .. .. .. .J. .. ..L  NEW IM AGE: CHECKSUM = 161DL 7B02 161D 04E1 0008 1015 D920 4ABF FFE0 1011 .. .. .. .. .J. .. ..L <0165> EC <0166> *  <0167> .ENDIF <0168> *$R( <0169> **********************************************************************R <0170> * > <0171> *=P0379 MU 12/05/79STR #054313.3.0 DSR911 > <0172> * @ <0173> * A BUG IN THE INPUT ROUTINE OF THE 911 DSR CAUSES @> <0174> * THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE >D! <0175> * CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. D <0176> *  <0177> *#SYN S911,DSR911  <0178> * $ <0179> .IF "@DSR911" ,NE, NONE $ <0180> * : <0181> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>034C,:, <0182>  V=(>0B2B,>1817,>1E0F,>3605), ,* <0183>  D=(>058A,>0B2B,>1816,>1012)* ,C=>06A5  PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>034C0 VERIFICATION DATA  >0B2B,>1817,>1E0F,>36050" DATA >058A,>0B2B,>1816,>1012" CHECKSUM  >06A5$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 7DEC 0B2B 1817 1E0F 3605  .+ .. .. 6., CURRENT IMAGE L 7DEC 0B2B 1817 1E0F 3605 1D0F 058A 100A 0BFB .+ .. .. 6. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A5 L 7DEC 058A 0B2B 1816 1012 1D0F 058A 100A 0BFB .. .+ .. .. .. .. .. ..L: <0184> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:: <0185> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0406,:& <0186>  V=(>091B,>178F,>32CA), &, <0187>  D=(>32CA,>091B,>178E),C=>2C5F, PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  >7AA0+>0406* VERIFICATION DATA  >091B,>178F,>32CA* DATA >32CA,>091B,>178E CHECKSUM  >2C5F$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 7EA6 091B 178F 32CA  .. .. 2. & CURRENT IMAGE L 7EA6 091B 178F 32CA 1D0E 108C 0764 0034 1302 .. .. 2. .. .. .d .4 ..L  NEW IMAGE: CHECKSUM = 2C5F L 7EA6 32CA 091B 178E 1D0E 108C 0764 0034 1302 2. .. .. .. .. .d .4 ..L <0188> EC <0189> *  <0190> .ENDIF <0191> *$R( <0192> **********************************************************************R <0193> * @ <0194> *=P0380 MU 12/05/79STR #054313.3.0 DSR911PF @ <0195> *  <0196> * A BUG IN THE *INPUT ROUTINE OF THE POWER FAIL 911 DSR *D! <0197> * CAUSES THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MOREDD! <0198> * CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. D <0199> * " <0200> *#SYN S911PF,DSR911PF " <0201> *#SYN SROOT,ROOT( <0202> *.EVAL S$$PAT="@ROOT+>0000" ( <0203> * & <0204> .IF "@DSR911PF" ,NE, NONE & <0205> * > <0206> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BC,>* <0207>  V=(>0620,@DSR911PF+>0BA0), *& <0208>  D=(>32CA,>0460),C=>36AA&: <0209> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:> <0210> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C0,>* <0211>  V=>32CA,D=@S$$PAT,C=@S$$PAT*  <0212> : <0213> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:4 <0214> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR914 1PF+>04C6, & <0215>  V=>4820,D=>0460,C=>0460& <0216> EC> <0217> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C8,>D <0218>  V=@DSR911PF+>000C,D=@DSR911PF+>0514,C=@DSR911PF+>0514D <0219> EC> <0220> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B6,>& <0221>  V=>091B,D=>C80A,C=>C80A& <0222> EC> <0223> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B8,>: <0224>  V=>1802,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0: <0225> EC> <0226> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05BA,>@ <0227>  V=(>0460,@DSR911PF+>0494,>C80A,@DSR911PF+>0BA0), @2 <0228>  D=(>32CA,>091B,>1802,>0460),C=>27B32 <0229> EC> <0230> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05C2,>: <0231>  V=>32CA,D=@DSR911PF+>0494,C=@DSR911PF+>0494: <0232> EC <0233> * < <0234> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, <6 <0235>  V=(>DEAD,>DEAD),D=(>058A,>0620),C=>03AA6 <0236> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <0237> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0004, <: <0238>  V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0: <0239> EC< <0240> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0006, <& <0241>  V=>DEAD,D=>0460,C=>0460& <0242> EC< <0243> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0008, <: <0244>  V=>DEAD,D=@DSR911PF+>04C2,C=@DSR911PF+>04C2: <0245> EC <0246> *  <0247> .ENDIF <0248> *$R( <0249> **********************************************************************R <0250> * ( <0251> *=P0381 MU 12/05/79STR (#054323.3.0 DSR911PF  <0252> * > <0253> * A BUG IN THE CLEARING OF THE SCREEN OF THE 911 >B <0254> * POWER FAIL DSR LEAVES A CHARACTER IN THE UPPER LEFTB <0255> * OF THE SCREEN.  <0256> * " <0257> *#SYN S911PF,DSR911PF " <0258> *#SYN SROOT,ROOT( <0259> *.EVAL S$$PAT="@ROOT+>0000" ( <0260> * & <0261> .IF "@DSR911PF" ,NE, NONE & <0262> * > <0263> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0822,>6 <0264>  V=(>32E0,@DSR911PF+>0B6C,>1F0A,>1302), 62 <0265>  D=(>0707,>32C7,>36C7,>0587),C=>06802 <0266> EC> <0267> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>082A,>0 <0268>  V=(>32E0,@DSR911PF+>0B6E,>36C7), 0, <0269>  D=(>1000,>1000,>1000),C=>1000, <0270> EC2 <0271> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR2911PF+>085C,& <0272>  V=>05A0,D=>0460,C=>0460& <0273> EC> <0274> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085E,>@ <0275>  V=@DSR911PF+>0BA0,D=@S$$PAT+>000A,C=@S$$PAT+>000A@ <0276> EC< <0277> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000A, <& <0278>  V=>DEAD,D=>C9C8,C=>C9C8& <0279> EC< <0280> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000C, <: <0281>  V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6: <0282> EC< <0283> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000E, <& <0284>  V=>DEAD,D=>05A0,C=>05A0& <0285> EC< <0286> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0010, <: <0287>  V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0: <0288> EC< <0289> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0012, < <0290>  V=>DEAD,D=>04 60,C=>0460  <0291> EC< <0292> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0014, <: <0293>  V=>DEAD,D=@DSR911PF+>0860,C=@DSR911PF+>0860: <0294> EC <0295> *  <0296> .ENDIFR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0297> *$R( <0298> **********************************************************************R <0299> * > <0300> *=P0382 MU 12/05/79STR #054313.3.0 DSR913 > <0301> * @ <0302> * A BUG IN THE INPUT ROUTINE OF THE 913 DSR CAUSES @> <0303> * THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE >D! <0304> * CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. D <0305> *  <0306> *#SYN S913,DSR913  <0307> *#SYN SROOT,ROOT( <0308> *.EVAL S$$PAT="@ROOT+>0000" ( <0309> * @$ <0310> .IF "@DSR913" ,NE, NONE $ <0311> * : <0312> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B4,:& <0313>  V=>06A0,D=>0460,C=>0460&: <0314> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:: <0315> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B6,:> <0316>  V=@DSR913+>07DC,D=@S$$PAT+>0016,C=@S$$PAT+>0016>: <0317> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:: <0318> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8,:& <0319>  V=(>0B2B,>1811,>35C5), &, <0320>  D=(>0B5B,>1811,>1001),C=>034B,: <0321> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:< <0322> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, <& <0323>  V=>DEAD,D=>06A0,C=>06A0& <0324> EC< <0325> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0018, <* <0326>  V=>DEAD,D=@DSR913+>07DC,C=@*DSR913+>07DC <0327> EC< <0328> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001A, <, <0329>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0330>  D=(>C2E4,>002C,>058A,>0460),C=>C3222 <0331> EC< <0332> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0022, <6 <0333>  V=>DEAD,D=@DSR913+>02B8,C=@DSR913+>02B86 <0334> EC: <0335> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023C,:& <0336>  V=>1D0C,D=>0460,C=>0460& <0337> EC: <0338> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E,:6 <0339>  V=>0621,D=@S$$PAT+>0024,C=@S$$PAT+>00246: <0340> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:: <0341> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0240,:& <0342>  V=>0008,D=>060A,C=>060A& <0343> EC< <0344> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, < <03&45>  V=(>DEAD,>DEAD,>DEAD,>DEAD), &2 <0346>  D=(>890A,>0030,>1301,>1D0C),C=>87372: <0347> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:< <0348> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>002C, <B <0349>  V=(>DEAD,>DEAD,>DEAD),D=(>0621,>0008,>0460),C=>0249B <0350> EC< <0351> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0032, <6 <0352>  V=>DEAD,D=@DSR913+>0240,C=@DSR913+>02406 <0353> EC <0354> *  <0355> .ENDIF* <0356> *$ ! MODIFIED BY PATCH 0557 *R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RR( <0357> **********************************************************************R <0358> * F <0359> *=P0383 MSC12/05/79STR #05433 3.3.0 DSR911,DSR911PFF <0360> * ( <0361> * THE RIGHT FIELD KEY IN BO( TH THE 911 DSRS IS BEING@ <0362> * MAPPED TO THE RETURN KEY CODE (>8D) AND SHOULD BE@> <0363> * MAPPED TO ITS OWN CODE OF >87. THIS PATCH WILL>6 <0364> * ALSO KEEP THE CURSOR OFF AFTER A BOOT. 6 <0365> * " <0366> *#SYN S911PF,DSR911PF " <0367> *#SYN S911,DSR911  <0368> * $ <0369> .IF "@DSR911" ,NE, NONE $ <0370> * : <0371> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>085E,:& <0372>  V=>8D9D,D=>879D,C=>879D& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>085E VERIFICATION DATA  >8D9D DATA  >879D CHECKSUM  >879D$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  82FE 8D9D  ..  CURRENT IMAGE : 82FE 8D9D 9E9F 809A 8182 8384 8586 9697 9998 .. ..: .. .. .. .. .. ..  NEW IMAGE: CHECKSUM = 879D L 82FE 879D 9E9F 809A 8182 8384 8586 9697 9998 .. .. .. .. .. .. .. ..L <0373> EC: <0374> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>022A,:& <0375>  V=>1D0C,D=>1E0C,C=>1E0C& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>022A VERIFICATION DATA  >1D0C DATA  >1E0C CHECKSUM  >1E0C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7CCA 1D0C  ..  CURRENT IMAGE L 7CCA 1D0C C1E4 FFFE 06A0 71A4 0380 0221 0004 .. .. .. .. q. .. .! ..L  NEW IMAGE: CHECKSUM = 1E0C L 7CCA 1E0C C1E4 FFFE 06A0 71A4 0380 0221 0004 .. .. .. .. q. .. .! ..L <0376> EC <0377> *  <0378> .ENDIF <0379> *  <0380> .IF  "@DSR911PF" ,NE, NONE  <0381> * > <0382> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0B50,>& <0383>  V=>8D9D,D=>879D,C=>879D& <0384> EC> <0385> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0362,>& <0386>  V=>1D0C,D=>1E0C,C=>1E0C& <0387> EC <0388> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0389> .ENDIF <0390> *$R( <0391> **********************************************************************R <0392> * > <0393> *=P0384 MSC12/05/79STR #054343.3.0 IOCOMX > <0394> * H# <0395> * THE HARD BREAK SEQUENCE (RESET KEY, CMD KEY) CAN CAUSE A HF" <0396> * TASK UNDER A BACKGROUND SCI TO BE ABORTED. THIS PATCH FH# <0397> * ADDS AN ADDITIONAL CHECK TO SEE IF THE PARENT TSB POINTERHF" <0398> * IS ZERO. NORMALLY THE PARENT POINTER OF FOREGROUND SCIF <0399> * IS ZERO.  <0400> *  <0401> *#SYN SROOT,ROOT <0402> *#SYN IOC,IOCOM ( <0403> *.EVAL S$$PAT="@ROOT+>0000" ( <0404> * 8 <0405> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0378,8& <0406>  V=>82A9,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>0378 VERIFICATION DATA  >82A9 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7518 82A9  ..  CURRENT IMAGE L 7518 82A9 0014 16FA 9829 0009 74D8 1632 CA69 .. .. .. .) .. t. .2 .iL  NEW IMAGE: CHECKSUM = 0460 L 7518 0460 0014 16FA 9829 0009 74D8 1632 CA69 .` .. .. .) .. t. .2 .iL < 0407> EC 8 <0408> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>037A,86 <0409>  V=>0014,D=@S$$PAT+>0034,C=@S$$PAT+>00346 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>037A VERIFICATION DATA  >0014 DATA  18506+>0034 CHECKSUM  18506+>0034$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  751A 0014  ..  CURRENT IMAGE L 751A 0014 16FA 9829 0009 74D8 1632 CA69 0042 .. .. .) .. t. .2 .i .BL  NEW IMAGE: CHECKSUM = 487E L 751A 487E 16FA 9829 0009 74D8 1632 CA69 0042 H~ .. .) .. t. .2 .i .BL <0410> EC< <0411> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0034, <, <0412>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0413>  D=(>82A9,>0014,>1603,>CA69),C=>5ED72 PROGRAM FILE IMAGE@ MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00340 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >82A9,>0014,>1603,>CA69" CHECKSUM  >5ED7R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 487E DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 487E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5ED7 L 487E 82A9 0014 1603 CA69 DEAD DEAD DEAD DEAD .. .. .. .i .. .. .. ..L <0414> EC< <0415> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>003C, <& <0416>  V=(>DEAD,>DEAD,>DEAD), &, <0417>  D=(>0040,>0040,>0460),C=>0460, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>003C* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0040,>0040,>0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4886 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 4886 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 4886 0040 0040 0460 DEAD DEAD DEAD DEAD DEAD .@ .@ .` .. .. .. .. ..L <0418> EC< <0419> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0042, <4 <0420>  V=>DEAD,D=@IOCOM+>037C,C=@IOCOM+>037C4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0042 VERIFICATION DATA  >DEAD DATA  >71A0+>037C CHECKSUM  >71A0+>037C$ OUTPUT ACCESS NAME ** NULL ** $AM( VERIFICATION DATA  488C DEAD  ..  CURRENT IMAGE L 488C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 751C L 488C 751C DEAD DEAD DEAD DEAD DEAD DEAD DEAD u. .. .. .. .. .. .. ..L <0421> EC <0422> *$R( <0423> **********************************************************************R <0424> * 0 <0425> * BEGIN PATCHES FOR RELEASE 3.3.1 0 <0426> * R( <0427> **********************************************************************R <0428> * > <0429> *=P0388 RVL01/08/80STR #055623.3.1 DSR820 > <0430> * F" <0431> * THE 820 DSR DOES NOT ALLOW EVENT KEYS. THIS PATCH WILLFH# <0432> * ALLOW THE DSR TO RECOGNIZE AND SEND TO THE USER THE EVENTH <0433> * KEYS. <0434> * @ <0435> *#SYN S820,DSR820  <0436> * $ <0437> .IF "@DSR820" ,NE, NONE $ <0438> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R: <0439> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>032E,:& <0440>  V=>C024,D=>D024,C=>D024& <0441> EC <0442> *  <0443> .ENDIF <0444> *$R( <0445> **********************************************************************R <0446> * > <0447> *=P0390 MSC01/08/80STR #055633.3.1 MM$SCN > <0448> * H# <0449> * THE SYSTEM HANGS BECAUSE BUFFERS ARE NOT PREEMPTED ON THEH8 <0450> * FIRST PASS FOR MEMORY FOR LOADING A TASK.8 <0451> *  <0452> *#SYN SROOT,ROOT <0453> * @ <0454> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0026, @ <0455>  V=>13F2,D=>1000,C=>1000 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>1708+>0026  VERIFICATION DATA  >13F2 DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5F78 13F2  ..  CURRENT IMAGE L 5F78 13F2 0782 C060 0018 0A21 11ED 1048 0782 .. .. .` .. .! .. .H ..L  NEW IMAGE: CHECKSUM = 1000 L 5F78 1000 0782 C060 0018 0A21 11ED 1048 0782 .. .. .` .. .! .. .H ..L <0456> EC <0457> *$R( <0458> **********************************************************************R <0459> * > <0460> *=P0391 GRJ01/08/80STR #055643.3.1 SEQ KIF> <0461> * F" <0462> * IF A REWRITE IS DONE ON A SINGLE KEY FILE AND THE VALUEF <0463> * IS BEING MODIFI*ED, THE KEY IS NOT CHANGED BUT ANY OTHER*N <0464> * DATA THAT IS MODIFIED IS CHANGED.ALSO, NO ERROR IS RETURNED. N <0465> *  <0466> *#SYN SKIF3,KIF3 <0467> * " <0468> .IF "@KIF3" ,NE, NONE " <0469> * @ <0470> MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>026C, @& <0471>  V=>0000,D=>0002,C=>0002& <0472> EC@ <0473> MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>0290, @& <0474>  V=>0000,D=>0002,C=>0002& <0475> EC <0476> *  <0477> .ENDIF <0478> *$R( <0479> **********************************************************************R <0480> * > <0481> *=P0392 MSC01/08/80STR #055663.3.1 FILMGR > <0482> * @ <0483> * THE STACK OF FILE MANAGEMENT ROUTINE 'WRTSEQ' IS @$ <0484> * IMPROPERLY MANAGED IF$$ AN ERROR IS RETURNED TO 'WRTSEQ' $R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <0485> * FROM 'BM$RD' RESULTING IN A LATER >A0 CRASH. < <0486> * " <0487> *#SYN SFILMG,FILMG,KIF" <0488> * B <0489> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0114, B6 <0490>  V=(>1105,>1304),D=(>110A,>1309),C=>02036 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >71A0+>09D2+>0114 $ VERIFICATION DATA  >1105,>1304$ DATA  >110A,>1309 CHECKSUM  >0203$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C86 1105 1304 .. .. CURRENT IMAGE L 7C86 1105 1304 E4A0 4AB8 CEA0 4ABA 06A0 7FBA .. .. .. J. .. J. .. ..L  NEW IMAGE: CHECKSUM = 0203  7C86 110A 13<09 E4A0 4AB8 CEA0 4ABA 06A0 7FBA .. .. .. J. .. J. .. ..< <0491> ECB <0492> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0126, B& <0493>  V=>C0C3,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >71A0+>09D2+>0126  VERIFICATION DATA  >C0C3 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C98 C0C3  ..  CURRENT IMAGE L 7C98 C0C3 1103 1302 0460 7B7C C04D 0221 000E .. .. .. .` {| .M .! ..L  NEW IMAGE: CHECKSUM = 0460 L 7C98 0460 1103 1302 0460 7B7C C04D 0221 000E .` .. .. .` {| .M .! ..L <0494> ECB <0495> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0128, B@ <0496>  V=>1103,D=@FILMG+>09D2+>000A,C=@FILMG+>09D2+>000A@B@ PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >71A0+>09D2+>0128  VERIFICATION DATA  >1103 DATA >71A0+>09D2+>000A  CHECKSUM >71A0+>09D2+>000A $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C9A 1103  ..  CURRENT IMAGE L 7C9A 1103 1302 0460 7B7C C04D 0221 000E 05A1 .. .. .` {| .M .! .. ..L  NEW IMAGE: CHECKSUM = 7B7C L 7C9A 7B7C 1302 0460 7B7C C04D 0221 000E 05A1 {| .. .` {| .M .! .. ..L <0497> ECB <0498> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012A, B& <0499>  V=>1302,D=>06A0,C=>06A0& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  >71A0+> 09D2+>012A  VERIFICATION DATA  >1302 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C9C 1302  ..  CURRENT IMAGE L 7C9C 1302 0460 7B7C C04D 0221 000E 05A1 0002 .. .` {| .M .! .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 7C9C 06A0 0460 7B7C C04D 0221 000E 05A1 0002 .. .` {| .M .! .. .. ..L <0500> ECB <0501> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012C, B4 <0502>  V=>0460,D=@FILMG+>0E1A,C=@FILMG+>0E1A4 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >71A0+>09D2+>012C  VERIFICATION DATA  >0460 DATA  >71A0+>0E1A CHECKSUM  >71A0+>0E1A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C9E 0460  .`  CURRENT IMAGE L 7C9E 0460 7B7C C04D 0221 000E 05A1 0002 1701 .` {| .M .! .. .. .. ..L  NEW IMAGE: CHECKSUM = 7FBA L 7C9E 7FBA 7B7C C04D 0221 000E 05A1 0002 1701 .. {| .M .! .. .. .. ..L <0503> ECB <0504> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012E, B$ <0505>  V=@FILMG+>09D2+>000A,$8 <0506>  D=@FILMG+>09D2+>01D2,C=@FILMG+>09D2+>01D28 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >71A0+>09D2+>012E * VERIFICATION DATA  >71A0+>09D2+>000A* DATA >71A0+>09D2+>01D2  CHECKSUM >71A0+>09D2+>01D2 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7CA0 7B7C  {|  CURRENT IMAGE L 7CA0 7B7C C04D 0221 000E 05A1 0002 1701 0591 {| .M .! .. .. .. .. ..L NEW IMAGE: CHECKSUM = 7D44L 7CA0 7D44 C04D 0221 000E 05A1 0002 1701 0591 }D .M .! .. .. .. .. ..L <0507> EC <0508> *$R( <0509> **********************************************************************R <0510> * > <0511> *=P0401 MSC01/16/80STR #056333.3.1 TM$SHD > <0512> * F" <0513> * WHEN PROCESSING A CORRECTABLE MEMORY ERROR FOR LOGGING,FD! <0514> * THE STACK IN TM$SHD IS OVERRUN CAUSING THE FIRST FEW DB <0515> * WORDS OF THE LOG PROCESSOR TO BE OVERWRITTEN.WHENB> <0516> * LOGGING IS THEN ATTEMPTED, ILLEGAL OPCODES ARE >H <0517> * ENCOUNTERED CAUSING A SYSTEM CRASH >20.THIS PATCH MOVESH@ <0518> * THE CODE BEING OVERWRITTEN TO THE OS PATCH AREA. @ <0519> *  <0520> *#SYN SROOT,ROOTB * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** BSCI990 **BATCH " <0521> *#SYN SIO,SVCIO,SYSLOG"( <0522> *.EVAL S$$PAT="@ROOT+>0000" ( <0523> * > <0524> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>1A5C+>0362,>4 <0525>  V=@SVCIO+>1A5C+>04B2,! TM$SHD+>04B24. <0526>  D=@S$$PAT+>01E0,C=@S$$PAT+>01E0. PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7AA0+>1A5C+>0362 * VERIFICATION DATA  >7AA0+>1A5C+>04B2* DATA  18506+>01E0 CHECKSUM  18506+>01E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  985E 99AE  ..  CURRENT IMAGE L 985E 99AE 0000 0000 0000 0000 0000 04C5 C120 .. .. .. .. .. .. .. . L  NEW IMAGE: CHECKSUM = 4A2A L 985E 4A2A 0000 0000 0000 0000 0000 04C5 C120 J* .. .. .. .. .. .. . L <0527> EC  <0528> *$R( <0529> **********************************************************************R <0530> * D <0531> *=P0407 MU 01/18/80STR #05638 3.3.1 DXIOS,FMACES D <0532> * F" <0533> * AN UNEXPECTED >3B ERROR OCCURS WHEN MULTIPLE TASKS ARE FF" <0534> * TRYING TO OPEN THE SAME FILE WITH SHARED ACCESS OR THE FD! <0535> * FILE S$FGTCA GETS DESTROYED. THIS PATCH CORRECTS THED <0536> * PROBLEM.  <0537> * " <0538> *#SYN SFILMG,FILMG,KIF" <0539> *#SYN SROOT,ROOT" <0540> *#SYN SIO,SVCIO,SYSLOG"( <0541> *.EVAL S$$PAT="@ROOT+>0000" ( <0542> * < <0543> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0044, <& <0544>  V=(>DEAD,>DEAD,>DEAD), &, <0545>  D=(>CB08,>0008,>0720),C=>CC20, PROGRAM FILE IMAGE MODULE TYPE  TA   MODULE N AME OR ID  3 ADDRESS  18506+>0044* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >CB08,>0008,>0720 CHECKSUM  >CC20$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 488E DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 488E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = CC20 L 488E CB08 0008 0720 DEAD DEAD DEAD DEAD DEAD .. .. ... .. .. .. ..L <0546> EC< <0547> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004A, <4 <0548>  V=>DEAD,D=@SVCIO+>0E58,C=@SVCIO+>0E584 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>004AR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA  >DEAD DATA  >7AA0+>0E58 CHECKSUM  >7AA0+>0E58$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4894 DEAD  ..  CURRENT IMAGE L 4894 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 88F8 L 4894 88F8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <0549> EC< <0550> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004C, <& <0551>  V=>DEAD,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>004C VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4896 DEAD  ..  CURRENT IMAGE F 4896 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. ..F .. ..  NEW IMAGE: CHECKSUM = 0460 L 4896 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <0552> EC< <0553> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004E, <@ <0554>  V=>DEAD,D=@SVCIO+>0E58+>0344,C=@SVCIO+>0E58+>0344@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>004E VERIFICATION DATA  >DEAD DATA >7AA0+>0E58+>0344  CHECKSUM >7AA0+>0E58+>0344 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4898 DEAD  ..  CURRENT IMAGE L 4898 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8C3C L 4898 8C3C DEAD DEAD DEAD DEAD DEAD DEAD DEAD .< .. .. .. .. .. .. ..L <0555> EC$ <0556> MPI PF=IMAGE,MT=TA,MN=@S$ ROOT,ADR=@S$$PAT+>0050, & <0557>  V=(>DEAD,>DEAD,>DEAD), &, <0558>  D=(>CA4C,>0006,>0760),C=>CD2A, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0050* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >CA4C,>0006,>0760 CHECKSUM  >CD2A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 489A DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 489A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = CD2A L 489A CA4C 0006 0760 DEAD DEAD DEAD DEAD DEAD .L .. .` .. .. .. .. ..L <0559> EC< <0560> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0056, < <0561>  V=>DEAD,D=@SV CIO+>0E58,C=@SVCIO+>0E58 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0056 VERIFICATION DATA  >DEAD DATA  >7AA0+>0E58 CHECKSUM  >7AA0+>0E58$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48A0 DEAD  ..  CURRENT IMAGE L 48A0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 88F8 L 48A0 88F8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <0562> EC< <0563> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0058, <& <0564>  V=(>DEAD,>DEAD,>DEAD), &, <0565>  D=(>130A,>C129,>000C),C=>D22F, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0058 VERIFICATION DATA  >DEAD,>DEAD,>DEAD DATA >130A,>C129,>000C CHECKSUM  >D22F$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 48A2 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 48A2 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D22F L 48A2 130A C129 000C DEAD DEAD DEAD DEAD DEAD .. .) .. .. .. .. .. ..L <0566> EC< <0567> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>005E, <, <0568>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0569>  D=(>0244,>0018,>0B64,>5B20),C=>52182 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>005E0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >0244,>0018,>0B64,>5B20" CHECKSUM  >5218$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA , 48A8 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 48A8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5218 L 48A8 0244 0018 0B64 5B20 DEAD DEAD DEAD DEAD .D .. .d [ .. .. .. ..L <0570> EC <0571> * < <0572> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0066, <6 <0573>  V=>DEAD,D=@S$$PAT+>004D,C=@S$$PAT+>004D6 PROGRAM FILE IMAGER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0066 VERIFICATION DATA  >DEAD DATA  18506+>004D CHECKSUM  18506+>004D$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48B0 DEAD  ..  CURRENT IMAGE  48HB0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..H  NEW IMAGE: CHECKSUM = 4897 L 48B0 4897 DEAD DEAD DEAD DEAD DEAD DEAD DEAD H. .. .. .. .. .. .. ..L <0574> EC< <0575> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0068, <& <0576>  V=>DEAD,D=>0004,C=>0004& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0068 VERIFICATION DATA  >DEAD DATA  >0004 CHECKSUM  >0004$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48B2 DEAD  ..  CURRENT IMAGE L 48B2 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0004 L 48B2 0004 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <0577> EC <0578> MPI PF=IMA(GE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>006A, (& <0579>  V=(>DEAD,>DEAD,>DEAD), &, <0580>  D=(>EB04,>0004,>045B),C=>EF5B, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>006A* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >EB04,>0004,>045B CHECKSUM  >EF5B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 48B4 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 48B4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = EF5B L 48B4 EB04 0004 045B DEAD DEAD DEAD DEAD DEAD .. .. .[ .. .. .. .. ..L <0581> EC> <0582> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0340,>& <0583>  V=>0720,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7AA0+>0E58+>0340  VERIFICATION DATA  >0720 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R 8C38 0720  . CURRENT IMAGE L 8C38 0720 88F8 9800 8603 1205 9800 8602 119C . .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 8C38 0460 88F8 9800 8603 1205 9800 8602 119C .` .. .. .. .. .. .. ..L <0584> EC> <0585> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0342,>> <0586>  V=@SVCIO+>0E58,D=@S$$PAT+>0044,C=@S$$PAT+>0044 > PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7AA0+>0E58+>0342 $ VERIFICATION DATA  >7AA0+>0E58$ DATA  18506+>0044 CHECKSUM  18506+>0044$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  8C3A 88F8  ..  CURRENT IMAGE L 8C3A 88F8 9800 8603 1205 9800 8602 119C 7020 .. .. .. .. .. .. .. p L  NEW IMAGE: CHECKSUM = 488E L 8C3A 488E 9800 8603 1205 9800 8602 119C 7020 H. .. .. .. .. .. .. p L <0587> EC> <0588> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A6,>& <0589>  V=>CA4C,D=>06A0,C=>06A0& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7AA0+>0E58+>03A6  VERIFICATION DATA  >CA4C DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  8C9E CA4C  .L  CURRENT IMAGE 8 8C9E CA4C 0006 06A0 6678 8B48 07D5 D9A0 4ABA .L 8 .. .. fx .H .. .. J.  NEW IMAGE: CHECKSUM = 06A0 L 8C9E 06A0 0006 06A0 6678 8B48 07D5 D9A0 4ABA .. .. .. fx .H .. .. J.L <0590> EC> <0591> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A8,>6 <0592>  V=>0006,D=@S$$PAT+>0050,C=@S$$PAT+>00506 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7AA0+>0E58+>03A8  VERIFICATION DATA  >0006 DATA  18506+>0050 CHECKSUM  18506+>0050$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  8CA0 0006  ..  CURRENT IMAGE L 8CA0 0006 06A0 6678 8B48 07D5 D9A0 4ABA 0004 .. .. fx .H .. .. J. ..L  NEW IMAGE: CHECKSUM = 489A L 8CA0 489A 06A0 6678 8B48 07D5 D9A0 4ABA 0004 H. .. fx .H .. .. J. ..L <0593> EC" <0594> MPI PF=IMAGE,MT=OV,MN=""@SFILMG,ADR=@FILMG+>05AE+>0072, "& <0595>  V=>CB6C,D=>1005,C=>1005& PROGRAM FILE IMAGER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >71A0+>05AE+>0072  VERIFICATION DATA  >CB6C DATA  >1005 CHECKSUM  >1005$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  77C0 CB6C  .l  CURRENT IMAGE L 77C0 CB6C 0002 0008 1002 0200 003B 0420 61A4 .l .. .. .. .. .; .a.L  NEW IMAGE: CHECKSUM = 1005 L 77C0 1005 0002 0008 1002 0200 003B 0420 61A4 .. .. .. .. .. .; .a.L <0596> EC <0597> *$R( <0598> **********************************************************************R <0599> * * <0600> *=P0409 MSC01/30/80STR #0*56803.3.1 DSR820  <0601> * J$ <0602> * THE 820 DSR DOES NOT PROPERLY HANDLE INITIATE I/O REQUESTS.JJ$ <0603> * THIS CAUSES A 'LIST ALL' COMMAND IN XGEN TO PRINT ONLY ONE JL% <0604> * LINE ON THE 820 AND THEN GO TO STATE 9 WITH THE XGEN KEYBOARDLH <0605> * LOCKED OUT.THE FOLLOWING PATCH CORRECTS THE 820 LOGIC. H <0606> *  <0607> *#SYN S820,DSR820  <0608> * $ <0609> .IF "@DSR820" ,NE, NONE $ <0610> * : <0611> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0086,:& <0612>  V=>C840,D=>D840,C=>D840& <0613> EC <0614> *  <0615> .ENDIF <0616> *$R( <0617> **********************************************************************R <0618> * > <0619> *=P0410 MSC01/30/80STR #056813.3.1 DDIOSR > <0620> *  <F"0621> * PATCH TO CORRECT THE PRIORITY OF LOOKING AT DISK ERROR BITSFL% <0622> * TO AVOID SAYING 'NOT READY, >18' WHEN 'SEEK INCOMPLETE, >1D'.LJ$ <0623> * AND TO ENABLE RETRIES ON >1E ERRORS SINCE THESE MAY BE THE JJ$ <0624> * SAME AS >11 ERRORS (NONFLOPPY CONTROLLERS MAY SET THE SAME JB <0625> * BITS AS THE FD1000 THAT INDICATE DELETED SECTORS). B <0626> *  <0627> *#SYN SDDIO,DDIOSR <0628> * < <0629> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>039C, <& <0630>  V=>0002,D=>0001,C=>0001& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7AA0+>039C VERIFICATION DATA  >0002 DATA  >0001 CHECKSUM  >0001$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7E3C 0002  ..  CURRENT IMAGE L 7E3C 0002 14F9 D2AA 7F25 C186 1394 C18B 06A0 .. .. .. .% .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 0001 L 7E3C 0001 14F9 D2AA 7F25 C186 1394 C18B 06A0 .. .. .. .% .. .. .. ..L <0631> EC< <0632> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B0, <2 <0633> V=(>980A,@DDIOSR+>048C,>138D,>980A),22 <0634> D=(>1005,>1004,>1003,>1002),C=>0000 2 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7AA0+>03B06 VERIFICATION DATA  >980A,>7AA0+>048C,>138D,>980A6" DATA >1005,>1004,>1003,>1002" CHECKSUM  >0000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 7E50 980A 7F2C 138D 980A  .. ., .. .., CURRENT IMAGE  7EH50 980A 7F2C 138D 980A 7F2D 1B12 C264 FFB8 .. ., .. .. .- .. .d ..H  NEW IMAGE: CHECKSUM = 0000 L 7E50 1005 1004 1003 1002 7F2D 1B12 C264 FFB8 .. .. .. .. .- .. .d ..L <0635> EC< <0636> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B8, <& <0637>  V=(@DDIOSR+>048D,>1B12),&& <0638>  D=(>1001,>1000),C=>0001 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7AA0+>03B8* VERIFICATION DATA  >7AA0+>048D,>1B12* DATA  >1001,>1000 CHECKSUM  >0001$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7E58 7F2D 1B12 .- .. CURRENT IMAGE L 7E58 7F2D 1B12 C264 FFB8 1602 C260 055C 9829 .- .. .d .. .. .` .\ .)L  NEW IMAGE: CHECKSUM = 0001 4 7E58 1001 1000 C264 FFB8 1602 C260 055C 98294 .. .. .d .. .. .` .\ .) <0639> EC< <0640> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C6, <& <0641>  V=>9829,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7AA0+>03C6 VERIFICATION DATA  >9829 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7E66 9829  .)  CURRENT IMAGE L 7E66 9829 FFFE 7F23 1481 BA60 4AA8 FFFE C2A4 .) .. .# .. .` J. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 7E66 0460 FFFE 7F23 1481 BA60 4AA8 FFFE C2A4 .` .. .# .. .` J. .. ..L <0642> EC< <0643> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C8, <6 <0644> V=>FFFE,D=@S$$PAT+>0108,C=@S$$PAT+>0108 6 PROGRAM FILE IMAGE MODULE TYPE  OV  * N&SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH N MODULE NAME OR ID  24  ADDRESS  >7AA0+>03C8 VERIFICATION DATA  >FFFE DATA  18506+>0108 CHECKSUM  18506+>0108$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7E68 FFFE  ..  CURRENT IMAGE L 7E68 FFFE 7F23 1481 BA60 4AA8 FFFE C2A4 001C .. .# .. .` J. .. .. ..L  NEW IMAGE: CHECKSUM = 4952 L 7E68 4952 7F23 1481 BA60 4AA8 FFFE C2A4 001C IR .# .. .` J. .. .. ..L <0645> EC< <0646> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03CA, <, <0647> V=@DDIOSR+>483,D=>1000,C=>1000, PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7AA0+>03CA$ VERIFICATION DATA  >7AA0+>483 $ DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7E6A 7F23  .#  CURRENT IMAGE L 7E6A 7F23 1481 BA60 4AA8 FFFE C2A4 001C 0A5A .# .. .` J. .. .. .. .ZL  NEW IMAGE: CHECKSUM = 1000 L 7E6A 1000 1481 BA60 4AA8 FFFE C2A4 001C 0A5A .. .. .` J. .. .. .. .ZL <0648> EC< <0649> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0108, <& <0650>  V=>DEAD,D=>980A,C=>980A & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0108 VERIFICATION DATA  >DEAD DATA  >980A CHECKSUM  >980A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4952 DEAD  ..  CURRENT IMAGE L 4952 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L NEW IMAGE: CHECKSUM = 980AL 4952 980A DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <0651> EC< <0652> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>010A, <6 <0653> V=>DEAD,D=@DDIOSR+>048D,C=@DDIOSR+>048D 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>010A VERIFICATION DATA  >DEAD DATA  >7AA0+>048D CHECKSUM  >7AA0+>048D$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4954 DEAD  ..  CURRENT IMAGE R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 4954 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7F2D L 4954 7F2D DEAD DEAD DEAD DEAD DEAD DEAD DEAD .- .. .. .. .. .. .. ..L <0654> EC< <0655> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>010C, <6 <0656> V=(>DEAD,>DEAD),D=(>1202,>0460),C=>1662 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>010C$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >1202,>0460 CHECKSUM  >1662$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4956 DEAD DEAD .. .. CURRENT IMAGE L 4956 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1662 L 4956 1202 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <0657> EC< <0658> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0110, <6 <0659> V=>DEAD,D=@DDIOSR+>03E0,C=@DDIOSR+>03E0 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0110 VERIFICATION DATA  >DEAD DATA  >7AA0+>03E0 CHECKSUM  >7AA0+>03E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  495A DEAD  ..  CURRENT IMAGE L 495A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7E80 L 495A 7E80 DEAD DEAD DEAD DEAD DEAD DEAD DEAD ~. .. .. .. .. .. .. ..L <0660> EC< <0661> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0112, <6 <0662> V=(>DEAD,>DEAD),D=(>9829,>FFFE),C=>67D7 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0112$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >9829,>FFFE CHECKSUM  >67D7$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA   495C  DEAD DEAD .. .. CURRENT IMAGE L 495C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 67D7 L 495C 9829 FFFE DEAD DEAD DEAD DEAD DEAD DEAD .) .. .. .. .. .. .. ..L <0663> EC< <0664> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0116, <2 <0665> V=>DEAD,D=@ROOT+>027B,C=@ROOT+>027B 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  18506+>0116 VERIFICATION DATA  >DEAD DATA  >484A+>027B CHECKSUM  >484A+>027B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4960 DEAD  ..  CURRENT IMAGE L 4960 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L@  NEW IMAGE: CHECKSUM = 4AC5 L 4960 4AC5 DEAD DEAD DEAD DEAD DEAD DEAD DEAD J. .. .. .. .. .. .. ..L <0666> EC< <0667> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0118, <& <0668>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0118 VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4962 DEAD  ..  CURRENT IMAGE L 4962 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 4962 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <0669> EC< <0670> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>011A, <" <0671>  V=>DEAD,D=@DDIOSR+>0" 3CC,C=@DDIOSR+>03CC  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>011A VERIFICATION DATA  >DEAD DATA  >7AA0+>03CC CHECKSUM  >7AA0+>03CC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4964 DEAD  ..  CURRENT IMAGE L 4964 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7E6C L 4964 7E6C DEAD DEAD DEAD DEAD DEAD DEAD DEAD ~l .. .. .. .. .. .. ..L <0672> EC <0673> *$R( <0674> **********************************************************************R <0675> * > <0676> *=P0411 MSC01/30/80STR #056823.3.1 DDIOSR > <0677> * D! <0678> * THIS PATCH PREVENTS THE DESELECTION OF A UNIT BETWEEND <0679> * COMMAND2S ISSUED TO A DISK. THIS WILL INHIBIT CHANGING 2D! <0680> * THE WRITE PROTECT STATE OF A UNIT WHEN ONLY ONE DRIVEDB <0681> * IS CONNECTED ON A CONTROLLER. THIS IS TO ELIMINATEBB <0682> * RESPONSE TIME LOSS IN THE CURRENT IMPLEMENTATION OFB <0683> * THIS FEATURE. <0684> *  <0685> *#SYN SDDIO,DDIOSR <0686> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <0687> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>0304, <& <0688>  V=>04EC,D=>1001,C=>1001& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7AA0+>0304 VERIFICATION DATA  >04EC DATA  >1001 CHECKSUM  >1001$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7DA4 04EC  ..   CURRENT IMAGE L 7DA4 04EC 000C 5964 0026 0001 C20C 05C8 C244 .. .. Yd .& .. .. .. .DL  NEW IMAGE: CHECKSUM = 1001 L 7DA4 1001 000C 5964 0026 0001 C20C 05C8 C244 .. .. Yd .& .. .. .. .DL <0689> EC <0690> *$R( <0691> **********************************************************************R <0692> * > <0693> *=P0412 CRM01/30/80STR #056833.3.1 TM$INT > <0694> * F" <0695> * TILINE CONTROLLER BOARDS (FOR DISKS) HANG IN A FAULTED FD! <0696> * STATE AFTER POWER IS RE-APPLIED FROM A POWER FAILURE.DH# <0697> * IT TAKES TWO 'RSET' INSTRUCTIONS TO CLEAR THIS CONDITION HD <0698> * AT THIS TIME.THIS PATCH MODIFIES THE CURRENT POWER DB <0699> * UP CODE TO EXECUTE TWO RSET INSTRUCTIONS IN THE OS B <0700> * PATCH AREA. <0701> *  <0702> *#SYN SROOT,ROOT( <0703> *.EVAL S$$PAT="@ROOT+>0000" ( <0704> * @ <0705> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0002, @& <0706>  V=>02E0,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>26D4+>0002  VERIFICATION DATA  >02E0 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F20 02E0  ..  CURRENT IMAGE L 6F20 02E0 6FD2 C020 6FFA 1606 C80D 6FF8 C80F .. o. .o. .. .. o. ..L  NEW IMAGE: CHECKSUM = 0460 L 6F20 0460 6FD2 C020 6FFA 1606 C80D 6FF8 C80F .` o. .o. .. .. o. ..L <0707> EC@ <0708> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0004, @B <0709>  V=@ROOT+>26D4+>00B4,D=@S$$PAT+>0076,C=@S$$PAT+>0076B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>26D4+>0004 * VERIFICATION DATA  >484A+>26D4+>00B4* DATA  18506+>0076 CHECKSUM  18506+>0076$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R 6F22 6FD2  o.  CURRENT IMAGE L 6F22 6FD2 C020 6FFA 1606 C80D 6FF8 C80F 6FFC o. . o. .. .. o. .. o.L  NEW IMAGE: CHECKSUM = 48C0 L 6F22 48C0 C020 6FFA 1606 C80D 6FF8 C80F 6FFC H. . o. .. .. o. .. o.L <0710> EC< <0711> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0076, <& <0712>  V=(>DEAD,>DEAD,>DEAD), &, <0713>  D=(>0360,>0360,>02E0),C=>02E0, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0076* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0360,>0360,>02E0 CHECKSUM  >02E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 48C0 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 48C0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 02E0 L 48C0 0360 0360 02E0 DEAD DEAD DEAD DEAD DEAD .` .` .. .. .. .. .. ..L <0714> EC< <0715> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007C, <@ <0716>  V=>DEAD,D=@ROOT+>026D4+>00B4,C=@ROOT+>26D4+>00B4 @ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>007C VERIFICATION DATA  >DEAD DATA >484A+>026D4+>00B4   CHECKSUM >484A+>26D4+>00B4  OUTPUT ACCESS NAME ** NULL **  VERIFICATION DATA  48C6 DEAD  ..  CURRENT IMAGE L 48C6 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6FD2 L 48C6 6FD2 DEAD DEAD DEAD DEAD DEAD DEAD DEAD o. .. .. .. .. .. .. ..L <0717> EC< <0718> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007E, <& <0719>  V=>DEAD,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>007E VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48C8 DEAD  ..  CURRENT IMAGE L 48C8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460  48C8 046@0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..@ <0720> EC< <0721> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0080, <> <0722>  V=>DEAD,D=@ROOT+>26D4+>0006,C=@ROOT+>26D4+>0006>R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0080 VERIFICATION DATA  >DEAD DATA >484A+>26D4+>0006  CHECKSUM >484A+>26D4+>0006 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48CA DEAD  ..  CURRENT IMAGE L 48CA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6F24 L 48CA 6F24 DEAD DEAD DEAD DEAD DEAD DEAD DEAD o$ .. .. .. .. .. .. ..L <0723> EC  <0724> *$R( <0725> **********************************************************************R <0726> * > <0727> *=P0413 MSC01/30/80STR #056843.3.1 SYSLOG > <0728> * B <0729> * PATCH TO KEEP THE SYSTEM LOG FROM CAUSING A SYSTEM B< <0730> * CRASH WHEN A CRU FLOPPY DRIVE DOES NOT EXIST.< <0731> * " <0732> *#SYN SIO,SVCIO,SYSLOG" <0733> *#SYN SROOT,ROOT( <0734> *.EVAL S$$PAT="@ROOT+>0000" ( <0735> * < <0736> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0082, <, <0737>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0738>  D=(>1803,>0841,>1701,>0A23),C=>0D602 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00820 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >1803,>0841,>1701,>0A23" CHECKSUM  >0D60$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 48CC DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 48CC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0D60 L 48CC 1803 0841 1701 0A23 DEAD DEAD DEAD DEAD .. .A .. .# .. .. .. ..L <0739> EC< <0740> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008A, <& <0741>  V=>DEAD,D=>045B,C=>045B& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>008A VERIFICATION DATA  >DEAD DATA  >045B CHECKSUM  >045B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48D4 DEAD  ..  CURRENT IMAGE L 48D4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..LN@  NEW IMAGE: CHECKSUM = 045B R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 48D4 045B DEAD DEAD DEAD DEAD DEAD DEAD DEAD .[ .. .. .. .. .. .. ..L <0742> EC: <0743> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0090, :& <0744>  V=(>0241,>000F,>D0E1), &, <0745>  D=(>0203,>0004,>08B1),C=>0AB6, PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23  ADDRESS  >99CE+>0090* VERIFICATION DATA  >0241,>000F,>D0E1* DATA >0203,>0004,>08B1 CHECKSUM  >0AB6$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 9A5E 0241 000F D0E1  .A .. .. & CURRENT IMAGE L 9A5E 0241 000F D0E1 9C29 0983 C043 0221 0026 .A .. .. .) .. .C .! .&L  NEW IMAGE: CHECKSUM = 0AB6  9A5E 0203 0004 088B1 9C29 0983 C043 0221 0026 .. .. .. .) .. .C .! .&8 <0746> EC: <0747> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0096, :. <0748>  V=@SYSLOG+>025B,D=>06A0,C=>06A0. PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23  ADDRESS  >99CE+>0096$ VERIFICATION DATA  >99CE+>025B$ DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  9A64 9C29  .)  CURRENT IMAGE L 9A64 9C29 0983 C043 0221 0026 06A0 5D14 9C16 .) .. .C .! .& .. ]. ..L  NEW IMAGE: CHECKSUM = 06A0 L 9A64 06A0 0983 C043 0221 0026 06A0 5D14 9C16 .. .. .C .! .& .. ]. ..L <0749> EC: <0750> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0098, :6 <0751>  V=>0983,D=@S$$PAT+>0082,C=@S$$PAT+>00826 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23  ADDRESS  >99CE+>0098 VERIFICATION DATA  >0983 DATA  18506+>0082 CHECKSUM  18506+>0082$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  9A66 0983  ..  CURRENT IMAGE L 9A66 0983 C043 0221 0026 06A0 5D14 9C16 C8A0 .. .C .! .& .. ]. .. ..L  NEW IMAGE: CHECKSUM = 48CC L 9A66 48CC C043 0221 0026 06A0 5D14 9C16 C8A0 H. .C .! .& .. ]. .. ..L <0752> EC <0753> *$R( <0754> **********************************************************************R <0755> * F <0756> *=P0416 MSC01/30/80STR #05686 3.3.1 DSR911,DSR911PFF <0757> * F" <0758> * ABORT I/O SVC'S TO 911'S ARE LOGGED TO THE SYSTEM LOG. F6 * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 *6* SCI990 ** SCI990 **BATCH L <0759> * THIS IS THE STADARD WAY COMM WORKS. IT SHOULDN'T BE LOGGED. LF" <0760> * THIS PATCH ALSO PREVENTS ANY DEVICE TIMEOUTS FROM BEINGFF" <0761> * LOGGED, BUT SHOULD NOT PRESENT ANY PROBLEMS SINCE THEREFB <0762> * SHOULD BE NO 911 WITH TIMEOUT DEFINED OTHER THAN 0.B <0763> *  <0764> *#SYN S911,DSR911 " <0765> *#SYN S911PF,DSR911PF " <0766> * " <0767> .IF @DSR911 ,NE, NONE " <0768> * : <0769> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>020C,:& <0770>  V=>0606,D=>0006,C=>0006& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>020C VERIFICATION DATA  >0606 DATA  >0006 CHECKSUM  >0006$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA @ 7CAC 0606  ..  CURRENT IMAGE L 7CAC 0606 1002 0209 0006 0206 7C52 5920 4AC5 .. .. .. .. .. |R YJ.L  NEW IMAGE: CHECKSUM = 0006 L 7CAC 0006 1002 0209 0006 0206 7C52 5920 4AC5 .. .. .. .. .. |R YJ.L <0771> EC <0772> *  <0773> .ENDIF <0774> * $ <0775> .IF @DSR911PF ,NE, NONE $ <0776> * > <0777> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>031A,>& <0778>  V=>606,D=>0006,C=>0006 & <0779> EC <0780> *  <0781> .ENDIF <0782> *$R( <0783> **********************************************************************R <0784> * > <0785> *=P0417 MSC01/30/80STR #056873.3.1 DSR913 > <0786> * D! <0787> * DISPLAYING CHARACTERS ON A 913 VDT THAT IS CONNECTED D$ <0788> * TO A 990/12 FAILS DUR$(ING SCROLLING THE SCREEN. CHARACTERS (D! <0789> * DRIFT FROM THE PREVIOUS LINES. THIS PATCH INTRODUCESD< <0790> * A TIMING LOOP TO PROHIBIT THE ABOVE PROBLEM. < <0791> *  <0792> *#SYN S913,DSR913  <0793> *#SYN SROOT,ROOT( <0794> *.EVAL S$$PAT="@ROOT+>0000" ( <0795> * " <0796> .IF @DSR913 ,NE, NONE " <0797> * < <0798> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AA, <6 <0799>  V=(>DEAD,>DEAD),D=(>1D0A,>06A0),C=>1BAA6 <0800> EC< <0801> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AE, <6 <0802>  V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC6 <0803> EC< <0804> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B0, <R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R. <0805>  V=(>DEAD,>DEAD),D=(>0607,>0460). ,C=>0267  <0806> EC< <0807> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B4, <& <0808>  V=>DEAD,D=@DSR913+>0730& <0809> EC: <0810> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072C,:& <0811>  V=>1D0A,D=>0460,C=>0460& <0812> EC: <0813> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072E,:6 <0814>  V=>0607,D=@S$$PAT+>00AA,C=@S$$PAT+>00AA6 <0815> EC <0816> *  <0817> .ENDIF <0818> *$R( <0819> **********************************************************************R <0820> * > <0821> *=P0418 RVL01/30/80STR #056893.3.1 WAITIO > <0822> * H# <0823> * WHEN A TASK ISSUES A 'WAIT FOR ANY I/O' SVC AFTER HAVING HH# <0824> * PREVIOUSLY ISSUED A 'DO NOT SUSPEND', THE I/O COMPLETION H, <0825> * MAY NOT BE HANDLED PROPERLY. , THIS PATCH CORRECTS THE( <0826> * 'WAIT FOR ANY I/O LOGIC'.( <0827> *  <0828> *#SYN IOC,IOCOM  <0829> *#SYN SROOT,ROOT( <0830> *.EVAL S$$PAT="@ROOT+>0000" ( <0831> * < <0832> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B6, <, <0833>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0834>  D=(>D128,>0060,>1308,>04E0),C=>C6A02 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00B60 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >D128,>0060,>1308,>04E0" CHECKSUM  >C6A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4900 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4900 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L NEW IMAGE: CHECKSUM = C6A0L 4900 D128 0060 1308 04E0 DEAD DEAD DEAD DEAD .( .` .. .. .. .. .. ..L <0835> EC< <0836> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00BE, <, <0837>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0838>  D=(>014A,>04E0,>0104,>0720),C=>038E2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00BE0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >014A,>04E0,>0104,>0720" CHECKSUM  >038E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4908 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4908 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 038E  4908 014A 04E0: 0104 0720 DEAD DEAD DEAD DEAD .J .. .. . .. .. .. ..: <0839> EC< <0840> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00C6, <6 <0841>  V=(>DEAD,>DEAD),D=(>0106,>0460),C=>05666 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00C6$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >0106,>0460 CHECKSUM  >0566$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4910 DEAD DEAD .. .. CURRENT IMAGE L 4910 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0566 L 4910 0106 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <0842> EC< <0843> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CA, <2 <0844>  V=>DEAD,D=@ROOT+>1DB4,C=@ROOT+>1DB42E06@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00CA VERIFICATION DATA  >DEAD DATA  >484A+>1DB4 CHECKSUM  >484A+>1DB4$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4914 DEAD  ..  CURRENT IMAGE L 4914 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 65FE L 4914 65FE DEAD DEAD DEAD DEAD DEAD DEAD DEAD e. .. .. .. .. .. .. ..L <0845> EC< <0846> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CC, <& <0847>  V=>DEAD,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00CC VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460 OUTPUT ACCESS NAME **  NULL **  VERIFICATION DATA  4916 DEAD  ..  CURRENT IMAGE L 4916 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 4916 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <0848> EC< <0849> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CE, <4 <0850>  V=>DEAD,D=@IOCOM+>08DC,C=@IOCOM+>08DC4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00CER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA  >DEAD DATA  >71A0+>08DC CHECKSUM  >71A0+>08DC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4918 DEAD  ..  CURRENT IMAGE   4918 DEAD DEAD DEAD DEAD D . EAD DEAD DEAD DEAD .. .. .. .. .. .. .. ...  NEW IMAGE: CHECKSUM = 7A7C L 4918 7A7C DEAD DEAD DEAD DEAD DEAD DEAD DEAD z| .. .. .. .. .. .. ..L <0851> EC8 <0852> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>08D6,8& <0853>  V=>D128,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>08D6 VERIFICATION DATA  >D128 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7A76 D128  .(  CURRENT IMAGE L 7A76 D128 0060 1690 D128 0061 138D DA20 4AD2 .( .` .. .( .a .. .J.L  NEW IMAGE: CHECKSUM = 0460 L 7A76 0460 0060 1690 D128 0061 138D DA20 4AD2 .` .` .. .( .a .. .J.L <0854> EC2 <0855> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+2>08D8,6 <0856>  V=>0060,D=@S$$PAT+>00B6,C=@S$$PAT+>00B66 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>08D8 VERIFICATION DATA  >0060 DATA  18506+>00B6 CHECKSUM  18506+>00B6$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7A78 0060  .`  CURRENT IMAGE L 7A78 0060 1690 D128 0061 138D DA20 4AD2 0009 .` .. .( .a .. . J. ..L  NEW IMAGE: CHECKSUM = 4900 L 7A78 4900 1690 D128 0061 138D DA20 4AD2 0009 I. .. .( .a .. . J. ..L <0857> EC <0858> *$R( <0859> **********************************************************************R <0860> * > <0861> *=P0419 RVL01/30/80STR #056903.3.1 MM$SCN > <0862> * 0 <0863> * MANY REAL TIME TASKS RUNNING CONC0 URRENTLY THAT FILLF" <0864> * AVAILABLE MEMORY APPEARS TO CAUSE A SCHEDULAR LOCKOUT. FB <0865> * THIS WOLULD CAUSE THE SYSTEM TO 'HANG'.THIS PATCHB$ <0866> * CORRECTS THE PROBLEM.$ <0867> *  <0868> *#SYN SROOT,ROOT( <0869> *.EVAL S$$PAT="@ROOT+>0000" ( <0870> * @ <0871> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>00A4, @6 <0872>  V=(>1501,>04C1),D=(>1104,>1000),C=>01046R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>1708+>00A4 $ VERIFICATION DATA  >1501,>04C1$ DATA  >1104,>1000 CHECKSUM  >0104$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5FF6 1501 04C1 .. .. CURRENT IMAGE @L 5FF6 1501 04C1 0971 C021 4EEC 1303 C022 0050 .. .. .q .! N. .. ." .PL  NEW IMAGE: CHECKSUM = 0104 L 5FF6 1104 1000 0971 C021 4EEC 1303 C022 0050 .. .. .q .! N. .. ." .PL <0873> EC <0874> *$R( <0875> **********************************************************************R <0876> * < <0877> *=P0422 MSC01/29/80STR #056913.3.1 RDSEQ< <0878> * B <0879> * PATCH TO FIX FILE MANAGEMENT ROUTINE "RDSEQ".THE BB <0880> * STACK IS IMPROPERLY MANAGED IF AN ERROR IS RETURNEDB$ <0881> * TO RDSEQ FROM BM$REL.$ <0882> * " <0883> *#SYN SFILMG,FILMG,KIF" <0884> *#SYN SROOT,ROOT( <0885> *.EVAL S$$PAT="@ROOT+>0000" ( <0886> * B <0887> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>08E2+>00BE,B( <0888>  V=@FILMG+>08E2+>00E0,D=@S($$PAT+>0070,C=@S$$PAT+>0070  PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >71A0+>08E2+>00BE * VERIFICATION DATA  >71A0+>08E2+>00E0* DATA  18506+>0070 CHECKSUM  18506+>0070$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B40 7B62  {b  CURRENT IMAGE L 7B40 7B62 064A 0746 1603 C2DA 0A2B 189E 0583 {b .J .F .. .. .+ .. ..L  NEW IMAGE: CHECKSUM = 48BA L 7B40 48BA 064A 0746 1603 C2DA 0A2B 189E 0583 H. .J .F .. .. .+ .. ..L <0889> EC< <0890> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0070,<6 <0891>  V=(>DEAD,>DEAD),D=(>064A,>0460),C=>022A6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0070$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >064A,>0460 CHECKSUM  >022A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48BA DEAD DEAD .. .. CURRENT IMAGE L 48BA DEAD DEAD DEAD 0360 0360 02E0 6FD2 0460 .. .. .. .` .` .. o. .`L  NEW IMAGE: CHECKSUM = 022A R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 48BA 064A 0460 DEAD 0360 0360 02E0 6FD2 0460 .J .` .. .` .` .. o. .`L <0892> EC< <0893> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0074,<@ <0894>  V=>DEAD,D=@FILMG+>08E2+>00E0,C=@FILMG+>08E2+>00E0@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0074 VERIFICATION DATA  >DEAD DATA >71A0+>08E2+>00E0  CHECKSUM >71A0+>08E2+>00E0 $ OUTPUT ACCESS NAME ** NULL ** $AD(@ VERIFICATION DATA  48BE DEAD  ..  CURRENT IMAGE L 48BE DEAD 0360 0360 02E0 6FD2 0460 6F24 1803 .. .` .` .. o. .` o$ ..L  NEW IMAGE: CHECKSUM = 7B62 L 48BE 7B62 0360 0360 02E0 6FD2 0460 6F24 1803 {b .` .` .. o. .` o$ ..L <0895> EC <0896> *$< <0897> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, <& <0898>  V=>2E30,D=>2E31,C=>2E31& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0240 VERIFICATION DATA  >2E30 DATA  >2E31 CHECKSUM  >2E31$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4A8A 2E30  .0  CURRENT IMAGE L 4A8A 2E30 202A 2A00 0000 0001 0002 0003 0004 .0 * *. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 2E31  4A8A 2E31 202A 2A06 0 0000 0001 0002 0003 0004 .1 * *. .. .. .. .. ..6@ <0899> !EC  ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH. @R( <0900> **********************************************************************R <0901> * @ <0902> *=P0425 CRM02/08/80STR #057263.3.1 DSR911PF @ <0903> * D! <0904> * WHEN USING 16K RAM MEMORIES, THE POWER FAIL/RECOVERY DF" <0905> * SNAGS ON SOME UNINITIALIZED MEMORY DURING THE RECOVERY F@ <0906> * PHASE. THIS PATCH CAUSES THE 911PF BUFFERS TO BE@@ <0907> * INITIALIZED DURING IPL TO PROHIBIT THIS PROBLEM. @ <0908> * " <0909> *#SYN S911PF,DSR911PF " <0910> *#SYN SROOT,ROOT( <0911> *.EVAL S$$PAT="@ROOT+>0000" ( <0912> * & <0913> .IF "@DSR911PF", NE, NONE& <0914> * 2 <0915> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR2911PF+>02B6,& <0916>  V=>04E0,D=>06A0,C=>06A0 & <0917> EC> <0918> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>02B8,>@ <0919> V=@DSR911PF+>0BA2,D=@S$$PAT+>00D0,C=@S$$PAT+>00D0 @ <0920> EC< <0921> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D0, <& <0922>  V=>DEAD,D=>0206,C=>0206 &R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0923> EC< <0924> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D2, <: <0925> V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6 : <0926> EC< <0927> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D4, <* <0928> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <0929> D=(>0207,>0780,>0209,>2020),C=>27AE 2 <0930> EC< <0931> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00DC, < <0932> V=(>DEAD,>DEAD ,>DEAD), , <0933> D=(>CD89,>0647,>16FD),C=>DD33 , <0934> EC< <0935> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E2, <& <0936>  V=>DEAD,D=>04E0,C=>04E0 & <0937> EC< <0938> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E4, <: <0939> V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 : <0940> EC< <0941> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E6, <& <0942>  V=>DEAD,D=>04E0,C=>04E0 & <0943> EC< <0944> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E8, <: <0945> V=>DEAD,D=@DSR911PF+>0BA2,C=@DSR911PF+>0BA2 : <0946> EC< <0947> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EA, <& <0948>  V=>DEAD,D=>045B,C=>045B & <0949> EC <0950> *  <0951> .ENDIF <0952> * < <0953> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>00<3C, & <0954>  V=>23E0,D=>06A0,C=>06A0 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>26D4+>003C  VERIFICATION DATA  >23E0 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F5A 23E0  #.  CURRENT IMAGE L 6F5A 23E0 4ABC 1307 C3ED 001E C3AD 001C C36D #. J. .. .. .. .. .. .mL  NEW IMAGE: CHECKSUM = 06A0 L 6F5A 06A0 4ABC 1307 C3ED 001E C3AD 001C C36D .. J. .. .. .. .. .. .mL <0955> EC@ <0956> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>003E, @< <0957> V=@ROOT+>0272,D=@S$$PAT+>00EE,C=@S$$PAT+>00EE < PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>26D4+>003E  VERIFICATION DATA  >48 4A+>0272  DATA  18506+>00EE CHECKSUM  18506+>00EE$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F5C 4ABC  J.  CURRENT IMAGE R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 6F5C 4ABC 1307 C3ED 001E C3AD 001C C36D 001A J. .. .. .. .. .. .m ..L  NEW IMAGE: CHECKSUM = 4938 L 6F5C 4938 1307 C3ED 001E C3AD 001C C36D 001A I8 .. .. .. .. .. .m ..L <0958> EC@ <0959> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0040, @& <0960>  V=>1307,D=>1000,C=>1000 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>26D4+>0040  VERIFICATION DATA  >1307 DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 48@ 6F5E 1307  ..  CURRENT IMAGE L 6F5E 1307 C3ED 001E C3AD 001C C36D 001A 10F6 .. .. .. .. .. .m .. ..L  NEW IMAGE: CHECKSUM = 1000 L 6F5E 1000 C3ED 001E C3AD 001C C36D 001A 10F6 .. .. .. .. .. .m .. ..L <0961> EC< <0962> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EE, <0 <0963> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),00 <0964> D=(>0200,>0080,>23C0,>1602,>0460),0 <0965> C=>3322  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00EE6 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD,>DEAD6( DATA  >0200,>0080,>23C0,>1602,>0460( CHECKSUM  >3322$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 6 4938 DEAD DEAD DEAD DEAD DEAD  .. .. .. .. .. 6 CURRENT IMAGE  4938 DEAD >DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..>  NEW IMAGE: CHECKSUM = 3322 L 4938 0200 0080 23C0 1602 0460 DEAD DEAD DEAD .. .. #. .. .` .. .. ..L <0966> EC< <0967> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00F8, < <0968> V=>DEAD," <0969>  D=@ROOT+>26D4+>0050,"" <0970>  C=@ROOT+>26D4+>0050 " PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00F8 VERIFICATION DATA  >DEAD DATA >484A+>26D4+>0050  CHECKSUM >484A+>26D4+>0050 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4942 DEAD  ..  CURRENT IMAGE L 4942 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6F6E . 4942 6F6E DEAD DEAD DEAD DEAD DEAD DEAD . DEAD on .. .. .. .. .. .. ..  <0971> EC< <0972> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00FA, <R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R0 <0973> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),00 <0974> D=(>0200,>000F,>23C0,>1602,>0460),0 <0975> C=>33AD  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00FA6 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD,>DEAD6( DATA  >0200,>000F,>23C0,>1602,>0460( CHECKSUM  >33AD$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 6 4944 DEAD DEAD DEAD DEAD DEAD  .. .. .. .. .. 6 CURRENT IMAGE L 4944 DEAD DEAD DEAD DEAD DEAD DEAD DEAD 980A .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 33AD  4944 0200 000F 283C0 1602 0460 DEAD DEAD 980A .. .. #. .. .` .. .. ..8 <0976> EC< <0977> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0104, < <0978> V=>DEAD," <0979>  D=@ROOT+>26D4+>0050,"" <0980>  C=@ROOT+>26D4+>0050 " PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0104 VERIFICATION DATA  >DEAD DATA >484A+>26D4+>0050  CHECKSUM >484A+>26D4+>0050 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  494E DEAD  ..  CURRENT IMAGE L 494E DEAD DEAD 980A 7F2D 1202 0460 7E80 9829 .. .. .. .- .. .` ~. .)L  NEW IMAGE: CHECKSUM = 6F6E L 494E 6F6E DEAD 980A 7F2D 1202 0460 7E80 9829 on .. .. .- .. .` ~. .)L <0981> EC< <0982> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0106, < <"0983>  V=>DEAD,D=>045B,C=>045B " PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0106 VERIFICATION DATA  >DEAD DATA  >045B CHECKSUM  >045B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4950 DEAD  ..  CURRENT IMAGE L 4950 DEAD 980A 7F2D 1202 0460 7E80 9829 FFFE .. .. .- .. .` ~. .) ..L  NEW IMAGE: CHECKSUM = 045B L 4950 045B 980A 7F2D 1202 0460 7E80 9829 FFFE .[ .. .- .. .` ~. .) ..L <0984> EC <0985> *$H# <0986> ************************************************************H <0987> * > <0988> *=P0434 MSC02/14/80STR #057753.3.1 FPYDSR > <0989> * D! <0990> * PATCH TO NOT ISSUE COMMAND UNTIL CONTROLLER READY ANDD  * SCI990 ** SCI990 ** SCI990 4 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH 4: <0991> * MAKE ALL READS DO NON-SEQUENTIAL SECTORING.: <0992> *  <0993> *#SYN SFPY,FPYDSR  <0994> * $ <0995> .IF "@FPYDSR", NE, NONE$ <0996> * < <0997> MPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0352, <& <0998>  V=>1004,D=>10F3,C=>10F3& <0999> EC< <1000> MPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0250, <& <1001>  V=>4000,D=>4100,C=>4100& <1002> EC <1003> *  <1004> .ENDIF <1005> *$H# <1006> ************************************************************H <1007> * 0 <1008> *  BEGIN PATCHES FOR RELEASE 3.3.20 <1009> * J$ <1010> ************************************************************* J <1011> * . <1012> *=P0448 RVL02/27/80STR #05841.3.3.2 LPDSR <1013> * B <1014> * THE LINE PRINTER WILL NOT RETURN A TIMEOUT ERROR ONB6 <1015> * OPEN. THIS PATCH CORRECTS THE PROBLEM. 6 <1016> * " <1017> .IF "@LPDSR", NE, NONE"8 <1018> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0116,8& <1019>  V=>1037,D=>0380,C=>0380 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>0116 VERIFICATION DATA  >1037 DATA  >0380 CHECKSUM  >0380$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7BB6 1037  .7  CURRENT IMAGE L 7BB6 1037 1F0E 16FB D278 1008 0289 6100 1A05 .7 .. .. .x .. .. a. ..L  NEW IMAGE: CHECKSUM = 0380 L 7BB6 0380 1F0E 16FB D278 1008 0289 6100 1A05 .. .. .. .x .. .. a. ..L <1020> EC <1021> .ENDIF <1022> *$J$ <1023> ************************************************************* J <1024> * > <1025> *=P0449 RVL02/27/80STR #058423.3.2 DSR979 > <1026> * F" <1027> * IF A TASK DOING I/O TO A TAPE TRANSPORT IS KILLED WHILEFF" <1028> * THE TRANSPORT IS BUSY REWINDING, A CRASH >22 MAY OCCUR.F <1029> *  <1030> *#SYN S979,DSR979 $ <1031> .IF "@DSR979" ,NE, NONE $: <1032> MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0024,:& <1033>  V=>0248,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  27 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  >7AA0+>0024 VERIFICATION DATA  >0248 DATA  >0460 CHECKSUM  >0460 OUTPUT ACCESS NAME * * NULL **  VERIFICATION DATA  7AC4 0248  .H  CURRENT IMAGE L 7AC4 0248 F000 06A0 7342 1371 8080 5335 3367 .H .. .. sB .q .. S5 3gL  NEW IMAGE: CHECKSUM = 0460 L 7AC4 0460 F000 06A0 7342 1371 8080 5335 3367 .` .. .. sB .q .. S5 3gL <1034> EC: <1035> MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0026,:6 <1036> V=>F000,D=@S$$PAT+>012C,C=@S$$PAT+>012C 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  27  ADDRESS  >7AA0+>0026 VERIFICATION DATA  >F000 DATA  18506+>012C CHECKSUM  18506+>012C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AC6 F000  ..  CURRENT IMAGE L 7AC6 F000 06A0 7342 1371 8080 5335 3367 5C5A .. .. sB .q .. S5 3g \ZL  NEW IMAGE: CHECKSUM = 4976 "@L 7AC6 4976 06A0 7342 1371 8080 5335 3367 5C5A Iv .. sB .q .. S5 3g \ZL <1037> EC< <1038> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>012C, <* <1039> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1040> D=(>0248,>F000,>C2C2,>0A2B),C=>3AA1 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>012C0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >0248,>F000,>C2C2,>0A2B" CHECKSUM  >3AA1$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4976 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4976 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 3AA1 L 4976 0248 F000 C2C2 0A2B DEAD DEAD DEAD DEAD .H .. .. .+ .. .. .. ..L <1041> EC <1042> MPI PF,=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0134, ,$ <1043>  V=(>DEAD,>DEAD,>DEAD),$, <1044> D=(>1801,>0380,>0460),C=>1FE1 , PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0134* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >1801,>0380,>0460 CHECKSUM  >1FE1$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 497E DEAD DEAD DEAD  .. .. .. &R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CURRENT IMAGE L 497E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1FE1 L 497E 1801 0380 0460 DEAD DEAD DEAD DEAD DEAD .. .. .` .. .. .. .. ..L <1045> EC< <1046> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013A, <  <1047> *V=>DEAD,D=@DSR979+>0028,C=@DSR979+>0028 * PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>013A VERIFICATION DATA  >DEAD DATA  >7AA0+>0028 CHECKSUM  >7AA0+>0028$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4984 DEAD  ..  CURRENT IMAGE L 4984 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7AC8 L 4984 7AC8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD z. .. .. .. .. .. .. ..L <1048> EC <1049> .ENDIF <1050> *$J$ <1051> ************************************************************* J <1052> * > <1053> *=P0454 RVL03/09/80STR #059073.3.2 IOCOMX > <1054> * < <1055> * THE POWER UP ROUTINE 'SCNPDT' FAILS TO PROPER< LY HANDLE , <1056> * SOME NON-DISK TILINE DEVICES., <1057> * 8 <1058> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023C,8& <1059>  V=>22E0,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>023C VERIFICATION DATA  >22E0 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  73DC 22E0  ".  CURRENT IMAGE L 73DC 22E0 7384 1622 C808 73E8 02E0 0000 C1A4 ". s. ." .. s. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 73DC 0460 7384 1622 C808 73E8 02E0 0000 C1A4 .` s. ." .. s. .. .. ..L <1060> EC8 <1061> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023E,8< <1062> V=@IOCOM+>01E4,D=@S$$PAT+>013C,C=@S$$PAT+>013C< PROGRAM FILE IMAGEER@ MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>023E$ VERIFICATION DATA  >71A0+>01E4$ DATA  18506+>013C CHECKSUM  18506+>013C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  73DE 7384  s. R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CURRENT IMAGE L 73DE 7384 1622 C808 73E8 02E0 0000 C1A4 0030 s. ." .. s. .. .. .. .0L  NEW IMAGE: CHECKSUM = 4986 L 73DE 4986 1622 C808 73E8 02E0 0000 C1A4 0030 I. ." .. s. .. .. .. .0L <1063> EC< <1064> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013C, <* <1065> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1066> D=(>024B,>40FF,>028B,>4006),C=>0039 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS   18506+>013C0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >024B,>40FF,>028B,>4006" CHECKSUM  >0039$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4986 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4986 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0039 L 4986 024B 40FF 028B 4006 DEAD DEAD DEAD DEAD .K @. .. @. .. .. .. ..L <1067> EC< <1068> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0144, <6 <1069> V=(>DEAD,>DEAD),D=(>1602,>0460),C=>1262 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0144$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >1602,>0460 CHECKSUM  >1262$ OUTPUT ACCESS NAME ** NULL ** $  VERIFI CATION DATA  498E DEAD DEAD .. .. CURRENT IMAGE L 498E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1262 L 498E 1602 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <1070> EC< <1071> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0148, <4 <1072> V=>DEAD,D=@IOCOM+>0242,C=@IOCOM+>0242 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0148 VERIFICATION DATA  >DEAD DATA  >71A0+>0242 CHECKSUM  >71A0+>0242$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4992 DEAD  ..  CURRENT IMAGE L 4992 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 73E2  4992 73E2 DE<AD DEAD DEAD DEAD DEAD DEAD DEAD s. .. .. .. .. .. .. ..< <1073> EC< <1074> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014A, <& <1075>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>014A VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4994 DEAD  ..  CURRENT IMAGE L 4994 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 4994 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <1076> EC< <1077> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014C, V=>DEAD,D=@IOCOM+>0286,C=@IOCOM+>0286 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>014C VERIFICATION DATA  >DEAD DATA  >71A0+>0286 CHECKSUM  >71A0+>0286$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4996 DEAD  ..  CURRENT IMAGE L 4996 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7426 L 4996 7426 DEAD DEAD DEAD DEAD DEAD DEAD DEAD t& .. .. .. .. .. .. ..L <1079> EC <1080> *$R( <1081> **********************************************************************R <1082> * > <1083> *=P0453 MU 03/10/80STR #059063.3.2 DSR911 > <1084> * @ <1085> * KATAKANA CHARACTERS ARE NOT ACCEPTED/DISPLAYED PR@OPERLYF" <1086> * WHEN READ AND WRITE DIRECT OP CODES ARE USED ON A 911. F <1087> * " <1088> *#SYN S911PF,DSR911PF " <1089> *#SYN S911,DSR911  <1090> *#SYN SROOT,ROOT( <1091> *.EVAL S$$PAT="@ROOT+>0000" ( <1092> * $ <1093> .IF "@DSR911" ,NE, NONE $ <1094> * : <1095> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8,:( <1096>  V=>0200, D=>06A0, C=>06A0( PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>01C8 VERIFICATION DATA  >0200 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C68 0200  ..  CURRENT IMAGE L 7C68 0200 8000 D23A 5200 3208 1D08 1E0A 0609 .. .. .: R. 2. .. .. ..L$ * SCI990 ** SCI990 ** SCI990 ** $0SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH 0  NEW IMAGE: CHECKSUM = 06A0 L 7C68 06A0 8000 D23A 5200 3208 1D08 1E0A 0609 .. .. .: R. 2. .. .. ..L <1097> EC: <1098> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01CA,:8 <1099>  V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>01CA VERIFICATION DATA  >8000 DATA  18506+>014E CHECKSUM  18506+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C6A 8000  ..  CURRENT IMAGE L 7C6A 8000 D23A 5200 3208 1D08 1E0A 0609 16F9 .. .: R. 2. .. .. .. ..L  NEW IMAGE: CHECKSUM = 4998 L 7C6A 4998 D23A 5200 3208 1D08 1E0A 0609 16F9 I. .: R. 2. .. .. .. ..L <1100> EC <1101> MPI ,PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE,,( <1102>  V=>0200, D=>06A0, C=>06A0( PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>02BE VERIFICATION DATA  >0200 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D5E 0200  ..  CURRENT IMAGE L 7D5E 0200 8080 361A 5E80 1E0A 0609 16FB 10CD .. .. 6. ^. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 7D5E 06A0 8080 361A 5E80 1E0A 0609 16FB 10CD .. .. 6. ^. .. .. .. ..L <1103> EC: <1104> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02C0,:8 <1105>  V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>02C0 VERIFICATION DATA  >8080 DATA  18506+>014E CHECKSUM  18506+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D60 8080  ..  CURRENT IMAGE L 7D60 8080 361A 5E80 1E0A 0609 16FB 10CD 1D0F .. 6. ^. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 4998 L 7D60 4998 361A 5E80 1E0A 0609 16FB 10CD 1D0F I. 6. ^. .. .. .. .. ..L <1106> EC: <1107> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0084,:B <1108>  V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>AB PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>0084R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ VERIFICATION DATA  >7AA0+>02C0$ DATA  18506+>14E+>A CHECKSUM  18506+>14E+>A  OUTPUT  ACCESS NAME ** NULL **  VERIFICATION DATA  7B24 7D60  }`  CURRENT IMAGE L 7B24 7D60 003A F924 003A 002C C2E4 002C 1E0B }` .: .$ .: ., .. ., ..L  NEW IMAGE: CHECKSUM = 49A2 L 7B24 49A2 003A F924 003A 002C C2E4 002C 1E0B I. .: .$ .: ., .. ., ..L <1109> EC: <1110> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>050A,:B <1111>  V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>AB PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>050A$ VERIFICATION DATA  >7AA0+>02C0$ DATA  18506+>14E+>A CHECKSUM  18506+>14E+>A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7FAA 7D60  }`  CURRENT IMAGE L 7FAA 7D60 C2E4 002C 093B 1703 06A0 8200 7FFA }` .. ., .; .. .. .. ..L  NEW IMAGE: CHECKSUM = 49A2 L 7FAA 49A2 C2E4 002C 093B 1703 06A0 8200 7FFA I. .. ., .; .. .. .. ..L <1112> EC< <1113> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <, <1114>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,4 <1115>  D=(>C002,>0A80,>04C0,>1802), C=>D640 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>014E0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >C002,>0A80,>04C0,>1802" CHECKSUM  >D640$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4998 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4998 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D640 L 4998 C002 0A80 04C0 1802 DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <1116> EC< <1117> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <1118>  V=(>DEAD,>DEAD,>DEAD), &. <1119>  D=(>0200,>8080,>045B), C=>86DB . PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0156* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0200,>8080,>045B CHECKSUM  >86DB$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 49A0 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 49A0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 86DB L 49A0 0200 8080 045B DEAD DEAD DEAD DEAD DEAD .. .. .[ .. .. .. .. ..L <1120> EC <1121> .ENDIF <1122> * @& <1123> .IF "@DSR911PF" ,NE, NONE & <1124> * > <1125> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256,>( <1126>  V=>0200, D=>06A0, C=>06A0( <1127> EC> <1128> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0258,>8 <1129>  V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 <1130> EC> <1131> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A,>( <1132>  V=>0200, D=>06A0, C=>06A0( <1133> EC> <1134> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041C,>8 <1135>  V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 <1136> EC> <1137> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>00BA,>F <1138>  V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A F <1139> EC> <1140> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>070A,> <1141>  V=@DSR911PF+>41*C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A * <1142> EC< <1143> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <, <1144>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,4 <1145>  D=(>C002,>0A80,>04C0,>1802), C=>D640 4 <1146> EC< <1147> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <1148>  V=(>DEAD,>DEAD,>DEAD), &. <1149>  D=(>0200,>8080,>045B), C=>86DB . <1150> EC <1151> .ENDIF <1152> *$J$ <1153> ************************************************************* J <1154> * < <1155> *=P0457 MU 03/11/80STR #057773.3.2 LPDSR< <1156> * D! <1157> * A SERIAL INTERFACED PRINTER IN 'CODE8' MODE DOES NOT D2 <1158> * MAINTAIN EITHER ODD OR EVEN PARITY.2 <1159> * " <1160> .IF "@LPDSR" ,NE, NONE"" <1161> MPI PF=IMAGE,MT=OV,MN=" @SLP,ADR=@LPDSR+>016C,& <1162>  V=>0624,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>016C VERIFICATION DATA  >0624 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C0C 0624  .$  CURRENT IMAGE L 7C0C 0624 0002 31C9 1C02 1E07 1001 1D07 C908 .$ .. 1. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 7C0C 0460 0002 31C9 1C02 1E07 1001 1D07 C908 .` .. 1. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1163> EC8 <1164> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016E,86 <1165> V=>0002,D=@S$$PAT+>008C,C=@S$$PAT+>008C 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>016E VERIFICATION DATA  >0002 DATA  18506+>008C CHECKSUM  18506+>008C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C0E 0002  ..  CURRENT IMAGE L 7C0E 0002 31C9 1C02 1E07 1001 1D07 C908 0004 .. 1. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 48D6 L 7C0E 48D6 31C9 1C02 1E07 1001 1D07 C908 0004 H. 1. .. .. .. .. .. ..L <1166> EC< <1167> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008C, <0 <1168> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),08 <1169> D=(>0624,>0002,>0249,>7FFF,>0460),C=>7FF0 8 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>008C6 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD,>DEAD6$ DATA >0624,>0002,>0249,>7FFF,>$0460 CHECKSUM  >7FF0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 6 48D6 DEAD DEAD DEAD DEAD DEAD  .. .. .. .. .. 6 CURRENT IMAGE L 48D6 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7FF0 L 48D6 0624 0002 0249 7FFF 0460 DEAD DEAD DEAD .$ .. .I .. .` .. .. ..L <1170> EC< <1171> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0096, <4 <1172> V=>DEAD,D=@LPDSR+>0170,C=@LPDSR+>0170 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0096 VERIFICATION DATA  >DEAD DATA  >7AA0+>0170 CHECKSUM  >7AA0+>0170$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48E0 DEAD  ..  CURRENT IMAGE  48E0 DEAD DEAD DEAD 4 DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..4  NEW IMAGE: CHECKSUM = 7C10 L 48E0 7C10 DEAD DEAD DEAD DEAD DEAD DEAD DEAD |. .. .. .. .. .. .. ..L <1173> EC <1174> .ENDIF <1175> *$R( <1176> **********************************************************************R <1177> * < <1178> *=P0456 JLH02/26/80STR #059273.3.2 DXIOS< <1179> * L% <1180> * WHEN USING THE 3780/2780 EMULATORS, THE STATISTICS REPORT OF LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL% <1181> * PROTOCOL COUNTERS ARE AVAILABLE ONLY WHEN THE COMMUNICATIONS LL% <1182> * LINE IS CONNECTED. THIS IMPLIES THAT THE STATISTICS ARE NOT LJ$ <1183> * AVAILABLE WHEN THE LINK HAS BEEN DISCONNECTED BY THE REMOTEJ& <1184> * OR ABNORMALLY BY PHONE &(PROBLEMS. THIS PATCH ALLOWS THE 3780 (B <1185> * OR 2780 TASK TO ACCESS THE STATISTICS AT ALL TIMES.B <1186> *   <1187> *#SYN SCOMM,COMMCOM " <1188> .IF "@COMMCOM",NE,NONE"> <1189> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0084,>> <1190> V=@SVCIO+>0E58+>0294,D=@ROOT+>015C,C=@ROOT+>015C> <1191> EC: <1192> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C, :0 <1193> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),08 <1194> D=(>C027,>000A,>0A60,>1706,>9803),C=>4548 8 <1195> EC@ <1196> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000A, @2 <1197> V=>DEAD,D=@ROOT+>027A,C=@ROOT+>027A 2 <1198> EC@ <1199> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000C, @8 <1200> V=(>DEAD,>DEAD),D=(>1305,>9803),C=(>8B06) 8 <1201> EC <1202> MPI PF=IMAGE*,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0010, *2 <1203> V=>DEAD,D=@ROOT+>0264,C=@ROOT+>0264 2 <1204> EC@ <1205> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0012, @8 <1206> V=(>DEAD,>DEAD),D=(>1302,>0460),C=(>1762) 8 <1207> EC@ <1208> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0016, @@ <1209> V=>DEAD,D=@SVCIO+>0E58+>0294,C=@SVCIO+>0E58+>0294 @ <1210> EC@ <1211> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0018, @& <1212>  V=>DEAD,D=>0460,C=>0460 & <1213> EC> <1214> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+001A,>@ <1215> V=>DEAD,D=@SVCIO+>0E58+>0094,C=@SVCIO+>0E58+>0094 @ <1216> EC> <1217> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05A4,>0 <1218> V=(>F9E0,@ROOT+>0270,>0008,>C127),0* <1219> D=(>C127,>000A,>1106,>F9E0),* C=>29CB  <1220> EC> <1221> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05AC,>2 <1222> V=>000A,D=@ROOT+>0270,C=@ROOT+>0270 2 <1223> EC> <1224> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+05AE, >& <1225>  V=>1103,D=>0008,C=>0008 & <1226> EC> <1227> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CA,>& <1228>  V=>C127,D=>0460,C=>0460 & <1229> EC> <1230> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CC,>> <1231> V=>000A,D=@ROOT+>015C+>001C,C=@ROOT+>015C+>001C > <1232> EC@ <1233> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001C, @& <1234>  V=>DEAD,D=>F9E0,C=>F9E0 & <1235> EC@ <1236> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001E, @2 <1237> V=>DEAD,D=@ROOT+>0270,C=@ROOT+>0270 2 <1238> EC <1239> MPI PF0=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0020, 0* <1240> V=(>DEAD,>DEAD,>DEAD,>DEAD),*R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R* <1241> D=(>0008,>C127,>000A,>0460),* <1242> C=(>C545)  <1243> EC@ <1244> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0028, @@ <1245> V=>DEAD,D=@SVCIO+>0E58+>05CE,C=@SVCIO+>0E58+>05CE @ <1246> EC <1247> .ENDIF$ <1248> .SYN SCOMM="",COMMCOM=""$ <1249> *$J$ <1250> ************************************************************* J <1251> * > <1252> *=P0460 RVL03/14/80STR #059383.3.2 TM$INT > <1253> * B <1254> * TM$INT INCORRECTLY CALLS THE GET SYSTEM TABLE AREA B0 <1255> * ROUTINE WHILE IN INTERRUPT CODE. 0 <1256> *  <1257> MPI PF=IMAGE,MT=&TA,MN=@SROOT,ADR=@ROOT+>26D4+>011C, && <1258>  V=>1602,D=>1002,C=>1002 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>26D4+>011C  VERIFICATION DATA  >1602 DATA  >1002 CHECKSUM  >1002$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  703A 1602  ..  CURRENT IMAGE L 703A 1602 0420 70A0 23C5 1675 C0A0 00FE 1372 .. . p. #. .u .. .. .rL  NEW IMAGE: CHECKSUM = 1002 L 703A 1002 0420 70A0 23C5 1675 C0A0 00FE 1372 .. . p. #. .u .. .. .rL <1259> EC <1260> *$J$ <1261> ************************************************************* J <1262> * > <1263> *=P0469 RVL03/15/80STR #059413.3.2 DSR911 > <1264> * 2 <1265> * A READ ASCII SVC ISSUED TO A 911 WI2 LL DESTROY SYSTEM D! <1266> * TABLE LINKAGE IF THE RECORD LENGTH IS ZERO. THIS WILLD@ <1267> * RESULT IN >22,>30 AND SEVERAL OTHER CRASH CODES. @ <1268> * $ <1269> .IF "@DSR911", NE, NONE $: <1270> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02F8,:& <1271>  V=>C261,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>02F8 VERIFICATION DATA  >C261 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D98 C261  .a  CURRENT IMAGE L 7D98 C261 0006 133D A289 C264 0034 824A 1201 .a .. .= .. .d .4 .J ..L  NEW IMAGE: CHECKSUM = 0460 L 7D98 0460 0006 133D A289 C264 0034 824A 1201 .` .. .= .. .d .4 .J ..L <1272> EC  * SCI9 J$90 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH J: <1273> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02FA,:6 <1274> V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>02FA VERIFICATION DATA  >0006 DATA  18506+>0098 CHECKSUM  18506+>0098$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D9A 0006  ..  CURRENT IMAGE L 7D9A 0006 133D A289 C264 0034 824A 1201 C289 .. .= .. .d .4 .J .. ..L  NEW IMAGE: CHECKSUM = 48E2 L 7D9A 48E2 133D A289 C264 0034 824A 1201 C289 H. .= .. .d .4 .J .. ..L <1275> EC< <1276> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, <* <1277> V=(>DEAD,>DEAD,>DEAD,>DEAD),* <1278> D=$(>C261,>0006,>1602,>C90A),C=>1D6F $ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00980 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >C261,>0006,>1602,>C90A" CHECKSUM  >1D6F$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 48E2 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 48E2 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1D6F L 48E2 C261 0006 1602 C90A DEAD DEAD DEAD DEAD .a .. .. .. .. .. .. ..L <1279> EC< <1280> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, <B <1281> V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00A0* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0030,>C249,>0460 CHECKSUM  >C619$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 48EA DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 48EA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = C619 L 48EA 0030 C249 0460 DEAD DEAD DEAD DEAD DEAD .0 .I .` .. .. .. .. ..L <1282> EC< <1283> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, <6 <1284> V=>DEAD,D=@DSR911+>02FC,C=@DSR911+>02FC 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>00A6 VERIFICATION DATA  >DEAD DATA  >7AA0+>02FCR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CHECKSUM  >7AA0+>02FC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48F0 DEAD  ..  CURRENT IMAGE L 48F0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7D9C L 48F0 7D9C DEAD DEAD DEAD DEAD DEAD DEAD DEAD }. .. .. .. .. .. .. ..L <1285> EC <1286> .ENDIF& <1287> .IF "@DSR911PF", NE, NONE &> <1288> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0464,>& <1289>  V=>C261,D=>0460,C=>0460 & <1290> EC> <1291> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0466,>6 <1292> V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 6 <1293> EC< <1294> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, <* <1295> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1296> D=(>C261,>0006,>1602,>C90A),C=>1D6F 2 <1297> EC : <1298> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, :B <1299> V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 B <1300> EC< <1301> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, <: <1302> V=>DEAD,D=@DSR911PF+>0468,C=@DSR911PF+>0468 : <1303> EC <1304> .ENDIF <1305> *$J$ <1306> ************************************************************* J <1307> * < <1308> *=P0470 RVL03/18/80STR #059673.3.2 LPDSR< <1309> * F" <1310> * ACCESSING SERIAL PRINTERS DIRECTLY WILL SOMETIMES CAUSEF> <1311> * THE SYSTEM TO 'HANG' OR CRASH WITH A CODE >22. > <1312> * " <1313> .IF "@LPDSR" ,NE, NONE"8 <1314> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>000C,86 <1315> V=(>0205,>0002),D=(>1000,>1000),C=>0000 6 PROGRAM FILE IMAGE R#04758D$DATA A0000C0000C004CB0500B0000B0000C00D4B0000B0000B00007F2B5F D$DA0001RR(B0000B0000B0000B534BB4931B2020A0020B0000B0000B0000B0000B0000C0DD67F24CF D$DA0002RR(C0DD6B3228B0000B0000A0040B0000B0000B0000B0000BFFFFB0000B0000B00007F216F D$DA0003RR(B0000B0000B0000B0000B0000B0006B0000B0000B0000B0006B0000B0000B00007F2A3F D$DA0004RR(A006AA008AA00AAB0000B0000B003CB0001B0000A00B4B0000B0000B0000B00007F234F D$DA0005RR(B0000B0000B0000B0000B0001B001EB0000B0000B0000BC000BFF00C0118B00007F24EF D$DA0006RR(B0001B0000B0000B0000B0000B0000B0000B0000B0002B0000B0000B0000B00007F2ACF D$DA0007RR(B0000B0000B0000B0002B0000B0000B0000B0000B0000B0000B0000B0002B00007F2ABF D$DA0008RR(B0000B0000B0000B0000B0000B0000B0003C0108B0000B0000B0000B0000B00007F2A2F D$DA0009RR(B0000B0003C0108B0000B0000B0000B0000B0000B0000B0003C0108B0000B00007F295F D$DA0010RTAME  DS01.S$IMAGES6 LISTING ACCESS NAME  DS01.S$SYSGEN.SKI1.LINKMAP 6 PRINT WIDTH  80 2 LINK EDITOR COMPLETED,0 ERRORS, 0 WARNINGS2 <0017> .IF @$$CC,GE,04000H <0018> CM R=ME,M="*** ALGS - SYSTEM LINK EDIT ERROR = @$$CC ***" H> <0019>  .STOP T="*** ALGS - SYSTEM LINK EDIT ERROR ***"> <0020> .ENDIFF" <0021> ******************** RUN SYNONYM ASSIGNMENT PROG ******** F8 <0022> XPS  LINK = DS01.S$SYSGEN.SKI1.LINKMAP, 8* <0023>  INPUT = DS01.PATCH.MEMRES,*4 <0024>  OUTPUT = DS01.S$SYSGEN.SKI1.PATCHFIL,40 <0025>  ERROR = DS01.S$SYSGEN.SKI1.ERROR0& LINK  DS01.S$SYSGEN.SKI1.LINKMAP & INPUT DS01.PATCH.MEMRES( OUTPUT  DS01.S$SYSGEN.SKI1.PATCHFIL(& ERROR DS01.S$SYSGEN.SKI1.ERROR &  STOP 0  NORMAL PROGRAM COMPLETION  @  <0026> .SYN $$CC ="@$XPS$E"  <0027> .IF @$$CC,GT,00000. <0028>  .SHOW DS01.S$SYSGEN.SKI1.ERROR. <0029> .ENDIF <0030> .IF @$$CC,GE,08000R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RP <0031> ! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***" PF <0032>  .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***" F <0033> .ENDIF <0034> .IF @$$CC,GT,00000R <0035> " CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC **RJ <0036>  .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***" J <0037> .ENDIF: <0038> CM R=ME,M="*** ALGS - NORMAL TERMINATION ***" :" RECEIVING TERMINAL NAME  ME ", MSG  *** ALGS - NORMAL TERMINATION ***,0 <0039> .STOP T="*** ALGS - NORMAL TERMINATI0> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 1> COMMAND LIST   NOSYMT$  FORMAT IMAGE,REPLACE PROCEDURE DUMMY   DUMMY $ " INCLUDE DS01.S$SYSGEN.DUMMY " ADJUST 5 SYSTEM ROOT  TASKSKI1!* INCLUDE DS01.S$SYSGEN.SKI1.D$OBJECT *" INCLUDE DS01.S$SYSGEN.SYSLGY"  INCLUDE DS01.S$SYSGEN.ROOT ( ADJUST 5 FILE MANAGEMENT AND KIF ( PHASE 1,SKI11 " INCLUDE DS01.S$SYSGEN.FILMG "" INCLUDE DS01.S$SYSGEN.DUMKIF"& ADJUST 5 MEMORY RESIDENT TASKS & PHASE 1,SKI12 " INCLUDE DS01.S$SYSGEN.MEMRES" ADJUST 5 SYSTEM COMMON  PHASE 1,SKI13 " INCLUDE DS01.S$SYSGEN.DUMCOM" ADJUST 5 I/O COMMON PHASE 1,SKI14 " INCLUDE DS01.S$SYSGEN.IOCOM "" INCLUDE DS01.S$SYSGEN.NOCOMM" ADJUST 5 SVC AND I/O  PHASE 2,SKI15 " INCLUDE DS01.S$SYSGEN.SVCIO "" INCLUDE DS01.S$SYSGEN.NOFCCC"" INCLUDE DS01.S$SYSGEN.SYSLOG" ADJUST 5 DISK PHASE 2,SKI16 " INCLUDE DS01.S$SYSGEN.DDIOSR" ADJUST 5 LINE PRINTER PHASE 2,SKI17 " INCLUDE DS01.S$SYSGEN.LPDSR " ADJUST 5 911 CRT  PHASE 2,SKI1A " INCLUDE DS01.S$SYSGEN.DSR911" ADJUST 5 979 MAG TAPE PHASE 2,SKI1C " INCLUDE DS01.S$SYSGEN.DSR979"  END %  '> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 2> LINK MAP "0 CONTROL FILE = DS01.S$SYSGEN.SKI1.LINKSTRM0 '( LINKED OUTPUT FILE = DS01.S$IMAGES( ', LIST FILE = DS01.S$SYSGEN.SKI1.LINKMAP, '$ NUMBER OF OUTPUT RECORDS = 242$(@PBATCH LS=YES PP********************************************************************************PP* MEMRES PATCH FILE *PP********************************************************************************PP* PP* AFTER A SYSGEN IS DONE, THE DX10 IMAGE FILE (OBJECT OUTPUT FROM PP* THE LINK EDITOR) WILL NEED TO HAVE THE PATCHES IN THIS FILE PP* APPLIED TO IT. THIS FILE CANNOT BE RUN AS A BATCH STREAM. TO PP* PATCH A SYSTEM, ONE MUST ASSIGN THE SYNONYM $$DSC$ TO THE PP* VOLUME NAME OF THE DISK ON WHICH THE PATCHES ARE TO BE APPLIED. P* THEN EITHER (>A) OR (B) BELOW MUST BE PERFORMED. >P* PP* A) RUN THE XPS PROC, WITH THE FOLLOWING INPUTS: PP* LINK = PP* INPUT = PP* OUTPUT = PP* ERROR = PP* THE FILE SPECIFIED FOR OUTPUT CAN BE RUN AS A BATCH STREAM PP* TO PATCH THE SYSTEM. P$* $, ,P* B) IF THE LINK MAP IS NO LONGER AVAILABLE ON DISK FILE, THIS FILE PP* WILL HAVE TO BE TRANSLATED MANUALLY. COPY THIS FILE TO PP* ANOTHER FILE AND EDIT THAT FILE DOING THE FOLLOWING. PP* PP* 1. FOR EACH #SYN COMMAND FOUND IN THE FILE, TWO OR MORE PP* SYNONYMS MUST BE DEFINED. EACH #SYN COMMAND IS IN THE PP* FORMAT: PP* #SYN ,,, ... PP* FOR EXAMPLE: P6* #SYN SROOT,ROOT 6 P* WHERE: PP* SROOT IS THE SYNONYM NAME, AND PP* ROOT IS THE OF THE MODULE TO BE PATCHED. PP* PP* 2. FIND THE S IN THE LINK MAP. ALL MODULES PP* ON ONE LINE OF A #SYN COMMAND WILL RESIDE IN THE SAME PHASE PP* OF THE LINK. DETERMINE THE OVERLAY OR TASK ID FROM THE PP* PHASE HEADER LINE OF THE PHASE WHERE THE SPECIFIED MODULES PP* ARE FOUND. INSERT A #SYN COMMAND INTO THE PATCH FILE TO PH* DEFINE THE OVERLAY OR ID, AS IN THE FOLLOWING EXAMPLE: H P* .SYN SROOT=1 PP* WHERE PP* SROOT IS THE SYNONYM FOUND PP* IN THE #SYN COMMAND, AND PP* 1 IS THE OVERLAY OR TASK ID FROM THE PHASE PP* IN WHICH THE LISTED MODULES RESIDE. PP* (1 IS THE ID FOR THE FIRST SYSTEM. THIS WILL PP* BE DIFFERENT FOR ADDITIONAL SYSTEMS.) PP* PP* 3. NEXT, INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH P* J IN THE #SYN COMMAND. FOR EXAMPLE: JP* .SYN ROOT=031DA PP* WHERE: PP* ROOT IS THE OF THE MODULE (FROM THE #SYN PP* COMMAND) TO BE PATCHED, AND PP* 031DA IS THE HEXADECIMAL ADDRESS OF THE MODULE PP* ORIGIN FOR TI-SUPPLIED SYSTEM. (THIS MAY BE PP* DIFFERENT FOR CUSTOM SYSTEMS.) PP* PP* 4. DELETE THE #SYN LINE FROM THE PATCH FILE. P* 8 8P* 5. REPEAT STEPS 1 - 4 FOR EACH #SYN COMMAND IN THE FILE. PP* PP* 6. QUIT THE TEXT EDIT SPECIFYING "YES" TO THE REPLACE OPTION. PP* PP* 7. EXECUTE THE BATCH STREAM YOU JUST CREATED. PP* PP********************************************************************************PPQ$SYN PP.SYN $E$C="0" P*.SYN IMAGE="@$$DSC$.S$IMAGES" *& &P.SYN SLGY = 3 PP.SYN SYSLGY =>47F8 PP.SYN SROOT = 3 PP.SYN ROOT =>484A PP.SYN SFILMG = 19 PP.SYN FILMG =>71A0 PP.SYN KIF ="NONE" PP.SYN KIF3 ="NONE" PP.SYN SMEM = 20 P<.SYN MEMRES =>71A0 < P.SYN SIO = 23 PP.SYN SVCIO =>7AA0 PP.SYN SYSLOG =>99CE PP.SYN IOC = 22 PP.SYN IOCOM =>71A0 PP.SYN SDDIO = 24 PP.SYN DDIOSR =>7AA0 PP.SYN S911 = 26 PP.SYN DSR911 =>7AA0 PN.SYN DSR911PF ="NONE" N P.SYN DSR911WP ="NONE" PP.SYN DSR913 ="NONE" PP.SYN SLP = 25 PP.SYN LPDSR =>7AA0 PP.SYN DSR820 ="NONE" PP.SYN FPYDSR ="NONE" PP.SYN S979 = 27 PP.SYN DSR979 =>7AA0 PP.SYN COMMCOM ="NONE" PP.SYN DSR733 ="NONE" P .SYN DSRKSR D ="NONE" DP* PP********************************************************************************PP* THE FOLLOWING SYNONYMS ARE DEFINED BY TI SYSTEM ANALYSTS ONLY AT PP* SYSTEM BUILD TIME. THEY SHOULD NOT BE MODIFIED BY THE USER. PP********************************************************************************PP* INSERT PRE-LINK DEFINED SYNONYMS HERE: PP.EVAL S$$PAT="@ROOT+>0000" PP* PP************************************************************************** P* Q SROOT Q$ DIFFERENT SYNONYMS FOR SAME OVERLAY$2 2P* CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000. PP* THIS CAUSES SEVERAL PROBLEMS IN DISK RESIDENT SYSTEM TASKS. PP* PP.IF @FILMG,GT,>C000 PPCM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >C000 " PPCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @FILMG " PPCM R=ME,M="PATCHING TERMINATED" PP.STOP PP.ENDIF P0* 0 P************************************************************************** PP* PP* CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800. PP* THIS CAUSES SEVERAL PROBLEMS IN EXECUTION AS ANY REFERENCE PP* IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS INSTEAD PP* OF MEMORY. PP* PP.EVAL $$TMP=@SYSLOG+>0264 PP.IF @$$TMP,GT,>F800 PBCM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >F800 " B PCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP " PPCM R=ME,M="PATCHING TERMINATED" PP.STOP PP.ENDIF PP.IF @$$TMP,GT,>F600 PPCM R=ME,M="PATCH STREAM WARNING - SYSTEM EXCEEDS >F600 " PPCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP " PPCM R=ME,M="LENGTH OF SYSTEM MUST BE LESS THAN >F800" PPCM R=ME,M="CHECK LINKMAP OF SYSTEM FOR PHASE 0 LENGTH" PP.ENDIF P" T@P.SYN $$TMP="" PP* PP************************************************************************** PP* PP* BEGIN PATCHES FOR RELEASE 3.3.0 PP* PP************************************************************************** PP* PP*=P0370 MSC 11/16/79 STR #05407 3.3.0 LPDSR PP* P* THE LINE PRINTE>R WILL DO A TIME-OUT IF A ZERO LENGTH >P* WRITE IS SENT TO IT. PRINT FILE WILL APPEAR TO HANG PP* AND THE PRINTER WILL NOT BE USABLE. ANY TASK DOING PP* THE ZERO LENGTH WRITE WILL HANG WAITING ON I/O COMPLETION. PP* PP*#SYN SLP,LPDSR PP* PP.IF "@LPDSR" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0062, P$ V=>101D,D=>161D,C=>161D $, ,PEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0379 MU 12/05/79 STR #05431 3.3.0 DSR911 PP* PP* A BUG IN THE INPUT ROUTINE OF THE 911 DSR CAUSES P6* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE 6 P* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S911,DSR911 PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>034C, PP V=(>0B2B,>1817,>1E0F,>3605), PP D=(>058A,>0B2B,>1816,>1012),C=>06A5 PH!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 H PMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0406, PP V=(>091B,>178F,>32CA), PP D=(>32CA,>091B,>178E),C=>2C5F PPEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0380 MU 12/05/79 STR #05431 3.3.0 DSR911PF P* J JP* A BUG IN THE INPUT ROUTINE OF THE POWER FAIL 911 DSR PP* CAUSES THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE PP* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S911PF,DSR911PF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF" ,NE, NONE P* 8 8PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BC, PP V=(>0620,@DSR911PF+>0BA0), PP D=(>32CA,>0460),C=>36AA PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C0, PP V=>32CA,D=@S$$PAT,C=@S$$PAT PP PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C6, P* V=>4820,D=>0460,C=>0460 *& &PEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C8, PP V=@DSR911PF+>000C,D=@DSR911PF+>0514,C=@DSR911PF+>0514 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B6, PP V=>091B,D=>C80A,C=>C80A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B8, PP V=>1802,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 P05BA, PP V=(>0460,@DSR911PF+>0494,>C80A,@DSR911PF+>0BA0), PP D=(>32CA,>091B,>1802,>0460),C=>27B3 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05C2, PP V=>32CA,D=@DSR911PF+>0494,C=@DSR911PF+>0494 PPEC PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, PN V=(>DEAD,>DEAD),D=(>058A,>0620),C=>03AA N PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0004, PP V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0006, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0008, PP V=>DEAD,D=@DSR911PF+>04C2,C=@DSR911PF+>04C2 PPEC P * D DP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0381 MU 12/05/79 STR #05432 3.3.0 DSR911PF PP* PP* A BUG IN THE CLEARING OF THE SCREEN OF THE 911 PP* POWER FAIL DSR LEAVES A CHARACTER IN THE UPPER LEFT PP* OF THE SCREEN. P* 2 2P*#SYN S911PF,DSR911PF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0822, PP V=(>32E0,@DSR911PF+>0B6C,>1F0A,>1302), PP D=(>0707,>32C7,>36C7,>0587),C=>0680 P0EC 0 PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>082A, PP V=(>32E0,@DSR911PF+>0B6E,>36C7), PP D=(>1000,>1000,>1000),C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085C, PP V=>05A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085E, PP V=@DSR911PF+>0BA0,D=@S$$PAT+>000A,C=@S$$PAT+>000A PBEC B PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000A, PP V=>DEAD,D=>C9C8,C=>C9C8 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000C, PP V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000E, PP V=>DEAD,D=>05A0,C=>05A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0010, P T@P V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0012, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0014, PP V=>DEAD,D=@DSR911PF+>0860,C=@DSR911PF+>0860 PPEC PP* PP.ENDIF P*$ > >P************************************************************************** PP* PP*=P0382 MU 12/05/79 STR #05431 3.3.0 DSR913 PP* PP* A BUG IN THE INPUT ROUTINE OF THE 913 DSR CAUSES PP* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE PP* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S913,DSR913 P$*#SYN SROOT,ROOT $, ,P*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR913" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B4, PP V=>06A0,D=>0460,C=>0460 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B6, PP V=@DSR913+>07DC,D=@S$$PAT+>0016,C=@S$$PAT+>0016 P6!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 6 PMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8, PP V=(>0B2B,>1811,>35C5), PP D=(>0B5B,>1811,>1001),C=>034B PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, PP V=>DEAD,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0018, PP V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC PHEC H PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001A, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>058A,>0460),C=>C322 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0022, PP V=>DEAD,D=@DSR913+>02B8,C=@DSR913+>02B8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023C, PP V=>1D0C,D=>0460,C=>0460 PPEC PMPI PFJ=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E, JP V=>0621,D=@S$$PAT+>0024,C=@S$$PAT+>0024 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0240, PP V=>0008,D=>060A,C=>060A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>890A,>0030,>1301,>1D0C),C=>8737 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PMPI PF=IMAGE,MT=TA,MN=@S8ROOT,ADR=@S$$PAT+>002C, 8P V=(>DEAD,>DEAD,>DEAD),D=(>0621,>0008,>0460),C=>0249 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0032, PP V=>DEAD,D=@DSR913+>0240,C=@DSR913+>0240 PPEC PP* PP.ENDIF PP*$ ! MODIFIED BY PATCH 0557 PP************************************************************************** P** *& &P*=P0383 MSC 12/05/79 STR #05433 3.3.0 DSR911,DSR911PF PP* PP* THE RIGHT FIELD KEY IN BOTH THE 911 DSRS IS BEING PP* MAPPED TO THE RETURN KEY CODE (>8D) AND SHOULD BE PP* MAPPED TO ITS OWN CODE OF >87. THIS PATCH WILL PP* ALSO KEEP THE CURSOR OFF AFTER A BOOT. PP* PP*#SYN S911PF,DSR911PF PP*#SYN S911,DSR911 P<* < P.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>085E, PP V=>8D9D,D=>879D,C=>879D PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>022A, PP V=>1D0C,D=>1E0C,C=>1E0C PPEC PP* PN.ENDIF N P* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0B50, PP V=>8D9D,D=>879D,C=>879D PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0362, PP V=>1D0C,D=>1E0C,C=>1E0C PPEC PP* P .ENDIF D DP*$ PP************************************************************************** PP* PP*=P0384 MSC 12/05/79 STR #05434 3.3.0 IOCOMX PP* PP* THE HARD BREAK SEQUENCE (RESET KEY, CMD KEY) CAN CAUSE A PP* TASK UNDER A BACKGROUND SCI TO BE ABORTED. THIS PATCH PP* ADDS AN ADDITIONAL CHECK TO SEE IF THE PARENT TSB POINTER PP* IS ZERO. NORMALLY THE PARENT POINTER OF FOREGROUND SCI P* IS ZERO. 2 2P* PP*#SYN SROOT,ROOT PP*#SYN IOC,IOCOM PP*.EVAL S$$PAT="@ROOT+>0000" PP* PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0378, PP V=>82A9,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>037A, P0 V=>0014,D=@S$$PAT+>0034,C=@S$$PAT+>0034 0 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0034, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>82A9,>0014,>1603,>CA69),C=>5ED7 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>003C, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>0040,>0040,>0460),C=>0460 PPEC PBMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0042, B P V=>DEAD,D=@IOCOM+>037C,C=@IOCOM+>037C PPEC PP*$ PP************************************************************************** PP* PP* BEGIN PATCHES FOR RELEASE 3.3.1 PP* PP************************************************************************** PP* PP*=P0388 RVL 01/08/80 STR #05562 3.3.1 DSR820 P T@P* PP* THE 820 DSR DOES NOT ALLOW EVENT KEYS. THIS PATCH WILL PP* ALLOW THE DSR TO RECOGNIZE AND SEND TO THE USER THE EVENT PP* KEYS. PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>032E, P V=>C024,D=>D0>24,C=>D024 >PEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0390 MSC 01/08/80 STR #05563 3.3.1 MM$SCN PP* PP* THE SYSTEM HANGS BECAUSE BUFFERS ARE NOT PREEMPTED ON THE P$* FIRST PASS FOR MEMORY FOR LOADING$, A TASK. ,P* PP*#SYN SROOT,ROOT PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0026, PP V=>13F2,D=>1000,C=>1000 PPEC PP*$ PP************************************************************************** PP* P6*=P0391 GRJ 01/08/80 STR #05564 3.3.1 SEQ KIF 6 P* PP* IF A REWRITE IS DONE ON A SINGLE KEY FILE AND THE VALUE PP* IS BEING MODIFIED, THE KEY IS NOT CHANGED BUT ANY OTHER PP* DATA THAT IS MODIFIED IS CHANGED. ALSO, NO ERROR IS RETURNED. PP* PP*#SYN SKIF3,KIF3 PP* PP.IF "@KIF3" ,NE, NONE PP* PHMPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>026C, H P V=>0000,D=>0002,C=>0002 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>0290, PP V=>0000,D=>0002,C=>0002 PPEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* P*=P039J2 MSC 01/08/80 STR #05566 3.3.1 FILMGR JP* PP* THE STACK OF FILE MANAGEMENT ROUTINE 'WRTSEQ' IS PP* IMPROPERLY MANAGED IF AN ERROR IS RETURNED TO 'WRTSEQ' PP* FROM 'BM$RD' RESULTING IN A LATER >A0 CRASH. PP* PP*#SYN SFILMG,FILMG,KIF PP* PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0114, PP V=(>1105,>1304),D=(>110A,>1309),C=>0203 PEC 8 8PMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0126, PP V=>C0C3,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0128, PP V=>1103,D=@FILMG+>09D2+>000A,C=@FILMG+>09D2+>000A PPEC PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012A, PP V=>1302,D=>06A0,C=>06A0 PPEC P*MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>*&09D2+>012C, &P V=>0460,D=@FILMG+>0E1A,C=@FILMG+>0E1A PPEC PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012E, PP V=@FILMG+>09D2+>000A, PP D=@FILMG+>09D2+>01D2,C=@FILMG+>09D2+>01D2 PPEC PP*$ PP************************************************************************** PP* P<*=P0401 MSC 01/16/80 STR #05633 3.3.1 TM$SHD < P* PP* WHEN PROCESSING A CORRECTABLE MEMORY ERROR FOR LOGGING, PP* THE STACK IN TM$SHD IS OVERRUN CAUSING THE FIRST FEW PP* WORDS OF THE LOG PROCESSOR TO BE OVERWRITTEN. WHEN PP* LOGGING IS THEN ATTEMPTED, ILLEGAL OPCODES ARE PP* ENCOUNTERED CAUSING A SYSTEM CRASH >20. THIS PATCH MOVES PP* THE CODE BEING OVERWRITTEN TO THE OS PATCH AREA. PP* PP*#SYN SROOT,ROOT PN*#SYN SIO,SVCIO,SYSLOG N P*.EVAL S$$PAT="@ROOT+>0000" PP* PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>1A5C+>0362, PP V=@SVCIO+>1A5C+>04B2, ! TM$SHD+>04B2 PP D=@S$$PAT+>01E0,C=@S$$PAT+>01E0 PPEC PP*$ PP************************************************************************** PP* PP*=P0407 MU 01/18/80 STR #05638 3.3.1 DXIOS,FMACES P * D DP* AN UNEXPECTED >3B ERROR OCCURS WHEN MULTIPLE TASKS ARE PP* TRYING TO OPEN THE SAME FILE WITH SHARED ACCESS OR THE PP* FILE S$FGTCA GETS DESTROYED. THIS PATCH CORRECTS THE PP* PROBLEM. PP* PP*#SYN SFILMG,FILMG,KIF PP*#SYN SROOT,ROOT PP*#SYN SIO,SVCIO,SYSLOG PP*.EVAL S$$PAT="@ROOT+>0000" P* 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0044, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>CB08,>0008,>0720),C=>CC20 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004A, PP V=>DEAD,D=@SVCIO+>0E58,C=@SVCIO+>0E58 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004C, PP V=>DEAD,D=>0460,C=>0460 P0EC 0 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004E, PP V=>DEAD,D=@SVCIO+>0E58+>0344,C=@SVCIO+>0E58+>0344 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0050, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>CA4C,>0006,>0760),C=>CD2A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0056, PP V=>DEAD,D=@SVCIO+>0E58,C=@SVCIO+>0E58 PBEC B PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0058, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>130A,>C129,>000C),C=>D22F PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>005E, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0244,>0018,>0B64,>5B20),C=>5218 PPEC PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0066, P T@P V=>DEAD,D=@S$$PAT+>004D,C=@S$$PAT+>004D PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0068, PP V=>DEAD,D=>0004,C=>0004 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>006A, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>EB04,>0004,>045B),C=>EF5B PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0340, P V=>0720,D=>04>60,C=>0460 >PEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0342, PP V=@SVCIO+>0E58,D=@S$$PAT+>0044,C=@S$$PAT+>0044 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A6, PP V=>CA4C,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A8, PP V=>0006,D=@S$$PAT+>0050,C=@S$$PAT+>0050 P$EC $, ,PMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>05AE+>0072, PP V=>CB6C,D=>1005,C=>1005 PPEC PP*$ PP************************************************************************** PP* PP*=P0409 MSC 01/30/80 STR #05680 3.3.1 DSR820 PP* PP* THE 820 DSR DOES NOT PROPERLY HANDLE INITIATE I/O REQUESTS. P6* THIS CAUSES A 'LIST ALL' COMMAND IN XGEN TO PRINT O6NLY ONE P* LINE ON THE 820 AND THEN GO TO STATE 9 WITH THE XGEN KEYBOARD PP* LOCKED OUT. THE FOLLOWING PATCH CORRECTS THE 820 LOGIC. PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0086, PP V=>C840,D=>D840,C=>D840 PHEC H P* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0410 MSC 01/30/80 STR #05681 3.3.1 DDIOSR PP* PP* PATCH TO CORRECT THE PRIORITY OF LOOKING AT DISK ERROR BITS PP* TO AVOID SAYING 'NOT READY, >18' WHEN 'SEEK INCOMPLETE, >1D'. PP* AND TO ENABLE RETRIES ON >1E ERRORS SINCE THESE MAY BE THE P* SAMJE AS >11 ERRORS (NONFLOPPY CONTROLLERS MAY SET THE SAME JP* BITS AS THE FD1000 THAT INDICATE DELETED SECTORS). PP* PP*#SYN SDDIO,DDIOSR PP* PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>039C, PP V=>0002,D=>0001,C=>0001 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B0, PP V=(>980A,@DDIOSR+>048C,>138D,>980A), P D=(>1005,>1004,>10038,>1002),C=>0000 8PEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B8, PP V=(@DDIOSR+>048D,>1B12), PP D=(>1001,>1000),C=>0001 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C6, PP V=>9829,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C8, P* V=>FFFE,D=@S$$PAT+>0108,C=@S$$PAT+>010*&8 &PEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03CA, PP V=@DDIOSR+>483,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0108, PP V=>DEAD,D=>980A,C=>980A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>010A, PP V=>DEAD,D=@DDIOSR+>048D,C=@DDIOSR+>048D P010C, PP V=(>DEAD,>DEAD),D=(>1202,>0460),C=>1662 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0110, PP V=>DEAD,D=@DDIOSR+>03E0,C=@DDIOSR+>03E0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0112, PP V=(>DEAD,>DEAD),D=(>9829,>FFFE),C=>67D7 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0116, N P V=>DEAD,D=@ROOT+>027B,C=@ROOT+>027B PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0118, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>011A, PP V=>DEAD,D=@DDIOSR+>03CC,C=@DDIOSR+>03CC PPEC PP*$ PP************************************************************************** P * D DP*=P0411 MSC 01/30/80 STR #05682 3.3.1 DDIOSR PP* PP* THIS PATCH PREVENTS THE DESELECTION OF A UNIT BETWEEN PP* COMMANDS ISSUED TO A DISK. THIS WILL INHIBIT CHANGING PP* THE WRITE PROTECT STATE OF A UNIT WHEN ONLY ONE DRIVE PP* IS CONNECTED ON A CONTROLLER. THIS IS TO ELIMINATE PP* RESPONSE TIME LOSS IN THE CURRENT IMPLEMENTATION OF PP* THIS FEATURE. PP* P*#SYN SDDIO,DDIOSR 2 2P* PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>0304, PP V=>04EC,D=>1001,C=>1001 PPEC PP*$ PP************************************************************************** PP* PP*=P0412 CRM 01/30/80 STR #05683 3.3.1 TM$INT PP* P0* TILINE CONTROLLER BOARDS (FOR DISKS) HANG IN 0 A FAULTED P* STATE AFTER POWER IS RE-APPLIED FROM A POWER FAILURE. PP* IT TAKES TWO 'RSET' INSTRUCTIONS TO CLEAR THIS CONDITION PP* AT THIS TIME. THIS PATCH MODIFIES THE CURRENT POWER PP* UP CODE TO EXECUTE TWO RSET INSTRUCTIONS IN THE OS PP* PATCH AREA. PP* PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PBMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0002, B P V=>02E0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0004, PP V=@ROOT+>26D4+>00B4,D=@S$$PAT+>0076,C=@S$$PAT+>0076 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0076, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>0360,>0360,>02E0),C=>02E0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007C, P T@P V=>DEAD,D=@ROOT+>026D4+>00B4,C=@ROOT+>26D4+>00B4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007E, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0080, PP V=>DEAD,D=@ROOT+>26D4+>0006,C=@ROOT+>26D4+>0006 PPEC PP*$ PP************************************************************************** P* > >P*=P0413 MSC 01/30/80 STR #05684 3.3.1 SYSLOG PP* PP* PATCH TO KEEP THE SYSTEM LOG FROM CAUSING A SYSTEM PP* CRASH WHEN A CRU FLOPPY DRIVE DOES NOT EXIST. PP* PP*#SYN SIO,SVCIO,SYSLOG PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* P$MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$,$PAT+>0082, ,P V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>1803,>0841,>1701,>0A23),C=>0D60 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008A, PP V=>DEAD,D=>045B,C=>045B PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0090, PP V=(>0241,>000F,>D0E1), PP D=(>0203,>0004,>08B1),C=>0AB6 P6EC 6 PMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0096, PP V=@SYSLOG+>025B,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0098, PP V=>0983,D=@S$$PAT+>0082,C=@S$$PAT+>0082 PPEC PP*$ PP************************************************************************** PP* PH*=P0416 MSC 01/30/80 STR #05686 3.3.1 DSR911,DSR911PF H P* PP* ABORT I/O SVC'S TO 911'S ARE LOGGED TO THE SYSTEM LOG. PP* THIS IS THE STADARD WAY COMM WORKS. IT SHOULDN'T BE LOGGED. PP* THIS PATCH ALSO PREVENTS ANY DEVICE TIMEOUTS FROM BEING PP* LOGGED, BUT SHOULD NOT PRESENT ANY PROBLEMS SINCE THERE PP* SHOULD BE NO 911 WITH TIMEOUT DEFINED OTHER THAN 0. PP* PP*#SYN S911,DSR911 PP*#SYN S911PF,DSR911PF PP* P.IF @DJSR911 ,NE, NONE JP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>020C, PP V=>0606,D=>0006,C=>0006 PPEC PP* PP.ENDIF PP* PP.IF @DSR911PF ,NE, NONE PP* PMPI PF=IMAGE,MT=OV,MN=@S8911PF,ADR=@DSR911PF+>031A, 8P V=>606,D=>0006,C=>0006 PPEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0417 MSC 01/30/80 STR #05687 3.3.1 DSR913 PP* P** DISPLAYING CHARACTERS ON A 913 VDT THAT*& IS CONNECTED &P* TO A 990/12 FAILS DURING SCROLLING THE SCREEN. CHARACTERS PP* DRIFT FROM THE PREVIOUS LINES. THIS PATCH INTRODUCES PP* A TIMING LOOP TO PROHIBIT THE ABOVE PROBLEM. PP* PP*#SYN S913,DSR913 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF @DSR913 ,NE, NONE P<* < PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AA, PP V=(>DEAD,>DEAD),D=(>1D0A,>06A0),C=>1BAA PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AE, PP V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B0, PP V=(>DEAD,>DEAD),D=(>0607,>0460),C=>0267 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B4, N P V=>DEAD,D=@DSR913+>0730 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072C, PP V=>1D0A,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072E, PP V=>0607,D=@S$$PAT+>00AA,C=@S$$PAT+>00AA PPEC PP* PP.ENDIF P *$ D DP************************************************************************** PP* PP*=P0418 RVL 01/30/80 STR #05689 3.3.1 WAITIO PP* PP* WHEN A TASK ISSUES A 'WAIT FOR ANY I/O' SVC AFTER HAVING PP* PREVIOUSLY ISSUED A 'DO NOT SUSPEND', THE I/O COMPLETION PP* MAY NOT BE HANDLED PROPERLY. THIS PATCH CORRECTS THE PP* 'WAIT FOR ANY I/O LOGIC'. PP* P*#SYN IOC,IOCOM 2 2P*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B6, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>D128,>0060,>1308,>04E0),C=>C6A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00BE, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), P0 D=(>014A,>04E0,>0104,>0720),C=>038E 0 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00C6, PP V=(>DEAD,>DEAD),D=(>0106,>0460),C=>0566 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CA, PP V=>DEAD,D=@ROOT+>1DB4,C=@ROOT+>1DB4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CC, PP V=>DEAD,D=>0460,C=>0460 PBEC B PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CE, PP V=>DEAD,D=@IOCOM+>08DC,C=@IOCOM+>08DC PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>08D6, PP V=>D128,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>08D8, PP V=>0060,D=@S$$PAT+>00B6,C=@S$$PAT+>00B6 PPEC PP*$ P T@P************************************************************************** PP* PP*=P0419 RVL 01/30/80 STR #05690 3.3.1 MM$SCN PP* PP* MANY REAL TIME TASKS RUNNING CONCURRENTLY THAT FILL PP* AVAILABLE MEMORY APPEARS TO CAUSE A SCHEDULAR LOCKOUT. PP* THIS WOLULD CAUSE THE SYSTEM TO 'HANG'. THIS PATCH PP* CORRECTS THE PROBLEM. PP* PP*#SYN SROOT,ROOT P*.EVAL S$$PAT="@RO>OT+>0000" >P* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>00A4, PP V=(>1501,>04C1),D=(>1104,>1000),C=>0104 PPEC PP*$ PP************************************************************************** PP* PP*=P0422 MSC 01/29/80 STR #05691 3.3.1 RDSEQ PP* P$* PATCH TO FIX FILE MANAGEMENT ROUT$,INE "RDSEQ". THE ,P* STACK IS IMPROPERLY MANAGED IF AN ERROR IS RETURNED PP* TO RDSEQ FROM BM$REL. PP* PP*#SYN SFILMG,FILMG,KIF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>08E2+>00BE, PP V=@FILMG+>08E2+>00E0,D=@S$$PAT+>0070,C=@S$$PAT+>0070 P6EC 6 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0070, PP V=(>DEAD,>DEAD),D=(>064A,>0460),C=>022A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0074, PP V=>DEAD,D=@FILMG+>08E2+>00E0,C=@FILMG+>08E2+>00E0 PPEC PP*$ PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, PP V=>2E30,D=>2E31,C=>2E31 PH!EC ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH. H P************************************************************************** PP* PP*=P0425 CRM 02/08/80 STR #05726 3.3.1 DSR911PF PP* PP* WHEN USING 16K RAM MEMORIES, THE POWER FAIL/RECOVERY PP* SNAGS ON SOME UNINITIALIZED MEMORY DURING THE RECOVERY PP* PHASE. THIS PATCH CAUSES THE 911PF BUFFERS TO BE PP* INITIALIZED DURING IPL TO PROHIBIT THIS PROBLEM. PP* PP*#SYN S911PF,DSR911PF P*#SYN JSROOT,ROOT JP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF", NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>02B6, PP V=>04E0,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>02B8, PP V=@DSR911PF+>0BA2,D=@S$$PAT+>00D0,C=@S$$PAT+>00D0 PEC 8 8PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D0, PP V=>DEAD,D=>0206,C=>0206 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D2, PP V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D4, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0207,>0780,>0209,>2020),C=>27AE P*EC *& &PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00DC, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>CD89,>0647,>16FD),C=>DD33 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E2, PP V=>DEAD,D=>04E0,C=>04E0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E4, PP V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 P00E6, PP V=>DEAD,D=>04E0,C=>04E0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E8, PP V=>DEAD,D=@DSR911PF+>0BA2,C=@DSR911PF+>0BA2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EA, PP V=>DEAD,D=>045B,C=>045B PPEC PN* N P.ENDIF PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>003C, PP V=>23E0,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>003E, PP V=@ROOT+>0272,D=@S$$PAT+>00EE,C=@S$$PAT+>00EE PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0040, PP V=>1307,D=>1000,C=>1000 P EC D DPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EE, PP V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0200,>0080,>23C0,>1602,>0460), PP C=>3322 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00F8, PP V=>DEAD, PP D=@ROOT+>26D4+>0050, PP C=@ROOT+>26D4+>0050 PEC 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00FA, PP V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0200,>000F,>23C0,>1602,>0460), PP C=>33AD PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0104, PP V=>DEAD, PP D=@ROOT+>26D4+>0050, PP C=@ROOT+>26D4+>0050 P0EC 0 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0106, PP V=>DEAD,D=>045B,C=>045B PPEC PP*$ PP************************************************************ PP* PP*=P0434 MSC 02/14/80 STR #05775 3.3.1 FPYDSR PP* PP* PATCH TO NOT ISSUE COMMAND UNTIL CONTROLLER READY AND PB* MAKE ALL READS DO NON-SEQUENTIAL SECTORING. B P* PP*#SYN SFPY,FPYDSR PP* PP.IF "@FPYDSR", NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0352, PP V=>1004,D=>10F3,C=>10F3 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0250, PP V=>4000,D=>4100,C=>4100 P T@PEC PP* PP.ENDIF PP*$ PP************************************************************ PP* PP* BEGIN PATCHES FOR RELEASE 3.3.2 PP* PP************************************************************* PP* P*=P0448 RVL 02/2>7/80 STR #05841 3.3.2 LPDSR >P* PP* THE LINE PRINTER WILL NOT RETURN A TIMEOUT ERROR ON PP* OPEN. THIS PATCH CORRECTS THE PROBLEM. PP* PP.IF "@LPDSR", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0116, PP V=>1037,D=>0380,C=>0380 PPEC PP.ENDIF P$*$ $, ,P************************************************************* PP* PP*=P0449 RVL 02/27/80 STR #05842 3.3.2 DSR979 PP* PP* IF A TASK DOING I/O TO A TAPE TRANSPORT IS KILLED WHILE PP* THE TRANSPORT IS BUSY REWINDING, A CRASH >22 MAY OCCUR. PP* PP*#SYN S979,DSR979 PP.IF "@DSR979" ,NE, NONE P6MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0024, 6 P V=>0248,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0026, PP V=>F000,D=@S$$PAT+>012C,C=@S$$PAT+>012C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>012C, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0248,>F000,>C2C2,>0A2B),C=>3AA1 PPEC PHMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0134, H P V=(>DEAD,>DEAD,>DEAD), PP D=(>1801,>0380,>0460),C=>1FE1 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013A, PP V=>DEAD,D=@DSR979+>0028,C=@DSR979+>0028 PPEC PP.ENDIF PP*$ PP************************************************************* PP* P*=P045J4 RVL 03/09/80 STR #05907 3.3.2 IOCOMX JP* PP* THE POWER UP ROUTINE 'SCNPDT' FAILS TO PROPERLY HANDLE PP* SOME NON-DISK TILINE DEVICES. PP* PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023C, PP V=>22E0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023E, PP V=@IOCOM+>01E4,D=@S$$PAT+>013C,C=@S$$PAT+>013C PEC 8 8PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013C, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>024B,>40FF,>028B,>4006),C=>0039 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0144, PP V=(>DEAD,>DEAD),D=(>1602,>0460),C=>1262 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0148, PP V=>DEAD,D=@IOCOM+>0242,C=@IOCOM+>0242 P*EC *& &PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014A, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014C, PP V=>DEAD,D=@IOCOM+>0286,C=@IOCOM+>0286 PPEC PP*$ PP************************************************************************** PP* P<*=P0453 MU 03/10/80 STR #05906 3.3.2 DSR911 < P* PP* KATAKANA CHARACTERS ARE NOT ACCEPTED/DISPLAYED PROPERLY PP* WHEN READ AND WRITE DIRECT OP CODES ARE USED ON A 911. PP* PP*#SYN S911PF,DSR911PF PP*#SYN S911,DSR911 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PN.IF "@DSR911" ,NE, NONE N P* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8, PP V=>0200, D=>06A0, C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01CA, PP V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE, PP V=>0200, D=>06A0, C=>06A0 PPEC P MPI PF=IMAGE D,MT=OV,MN=@S911,ADR=@DSR911+>02C0, DP V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0084, PP V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>050A, PP V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, P V=(>DEAD,>DEAD,>DEAD,>DEA2D), 2P D=(>C002,>0A80,>04C0,>1802), C=>D640 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>0200,>8080,>045B), C=>86DB PPEC PP.ENDIF PP* PP.IF "@DSR911PF" ,NE, NONE P0* 0 PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256, PP V=>0200, D=>06A0, C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0258, PP V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A, PP V=>0200, D=>06A0, C=>06A0 PPEC PBMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041C, B P V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>00BA, PP V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>070A, PP V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), P T@P D=(>C002,>0A80,>04C0,>1802), C=>D640 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>0200,>8080,>045B), C=>86DB PPEC PP.ENDIF PP*$ PP************************************************************* PP* P*=P0457 MU 03/1>1/80 STR #05777 3.3.2 LPDSR >P* PP* A SERIAL INTERFACED PRINTER IN 'CODE8' MODE DOES NOT PP* MAINTAIN EITHER ODD OR EVEN PARITY. PP* PP.IF "@LPDSR" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016C, PP V=>0624,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016E, P$ V=>0002,D=@S$$PAT+>008C,C=@S$$PA$,T+>008C ,PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008C, PP V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0624,>0002,>0249,>7FFF,>0460),C=>7FF0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0096, PP V=>DEAD,D=@LPDSR+>0170,C=@LPDSR+>0170 PPEC PP.ENDIF P6*$ 6 P********************************************************************************PP* PP*=P0456 JLH 02/26/80 STR #05927 3.3.2 DXIOS PP* PP* WHEN USING THE 3780/2780 EMULATORS, THE STATISTICS REPORT OF PP* PROTOCOL COUNTERS ARE AVAILABLE ONLY WHEN THE COMMUNICATIONS PP* LINE IS CONNECTED. THIS IMPLIES THAT THE STATISTICS ARE NOT PP* AVAILABLE WHEN THE LINK HAS BEEN DISCONNECTED BY THE REMOTE PP* OR ABNORMALLY BY PHONE PROBLEMS. THIS PATCH ALLOWS THE 3780 PH* OR 2780 TASK TO ACCESS THE STATISTICS AT ALL TIMES. H P* PP*#SYN SCOMM,COMMCOM PP.IF "@COMMCOM",NE,NONE PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0084, PP V=@SVCIO+>0E58+>0294,D=@ROOT+>015C,C=@ROOT+>015C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C, PP V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C027,>000A,>0A60,>1706,>9803),C=>4548 PPEC PMPI PFJ=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000A, JP V=>DEAD,D=@ROOT+>027A,C=@ROOT+>027A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000C, PP V=(>DEAD,>DEAD),D=(>1305,>9803),C=(>8B06) PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0010, PP V=>DEAD,D=@ROOT+>0264,C=@ROOT+>0264 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0012, P V=(>DEAD,>DEAD),D=(>81302,>0460),C=(>1762) 8PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0016, PP V=>DEAD,D=@SVCIO+>0E58+>0294,C=@SVCIO+>0E58+>0294 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0018, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+001A, PP V=>DEAD,D=@SVCIO+>0E58+>0094,C=@SVCIO+>0E58+>0094 P*EC *& &PMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05A4, PP V=(>F9E0,@ROOT+>0270,>0008,>C127), PP D=(>C127,>000A,>1106,>F9E0),C=>29CB PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05AC, PP V=>000A,D=@ROOT+>0270,C=@ROOT+>0270 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+05AE, PP V=>1103,D=>0008,C=>0008 P0E58+>05CA, PP V=>C127,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CC, PP V=>000A,D=@ROOT+>015C+>001C,C=@ROOT+>015C+>001C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001C, PP V=>DEAD,D=>F9E0,C=>F9E0 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001E, N P V=>DEAD,D=@ROOT+>0270,C=@ROOT+>0270 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0020, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0008,>C127,>000A,>0460), PP C=(>C545) PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0028, PP V=>DEAD,D=@SVCIO+>0E58+>05CE,C=@SVCIO+>0E58+>05CE PPEC P .ENDIF D DP.SYN SCOMM="",COMMCOM="" PP*$ PP************************************************************* PP* PP*=P0460 RVL 03/14/80 STR #05938 3.3.2 TM$INT PP* PP* TM$INT INCORRECTLY CALLS THE GET SYSTEM TABLE AREA PP* ROUTINE WHILE IN INTERRUPT CODE. PP* PMPI PF=IMAGE,MT=TA,MN=@SROOT,A2DR=@ROOT+>26D4+>011C, 2P V=>1602,D=>1002,C=>1002 PPEC PP*$ PP************************************************************* PP* PP*=P0469 RVL 03/15/80 STR #05941 3.3.2 DSR911 PP* PP* A READ ASCII SVC ISSUED TO A 911 WILL DESTROY SYSTEM PP* TABLE LINKAGE IF THE RECORD LENGTH IS ZERO. THIS WILL P0* RESULT IN >22,>30 AND SEVERAL OTHER CRASH COD0 ES. P* PP.IF "@DSR911", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02F8, PP V=>C261,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02FA, PP V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, PB V=(>DEAD,>DEAD,>DEAD,>DEAD), B P D=(>C261,>0006,>1602,>C90A),C=>1D6F PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, PP V=>DEAD,D=@DSR911+>02FC,C=@DSR911+>02FC PPEC PP.ENDIF PP.IF "@DSR911PF", NE, NONE P T@PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0464, PP V=>C261,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0466, PP V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C261,>0006,>1602,>C90A),C=>1D6F PPEC PMPI PF=IMAGE,MT=TA>,MN=@SROOT,ADR=@S$$PAT+>00A0, >P V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, PP V=>DEAD,D=@DSR911PF+>0468,C=@DSR911PF+>0468 PPEC PP.ENDIF PP*$ PP************************************************************* PP* P$*=P0470 RVL 03/18/80 STR #05967 $,3.3.2 LPDSR ,P* PP* ACCESSING SERIAL PRINTERS DIRECTLY WILL SOMETIMES CAUSE PP* THE SYSTEM TO 'HANG' OR CRASH WITH A CODE >22. PP* PP.IF "@LPDSR" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>000C, PP V=(>0205,>0002),D=(>1000,>1000),C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>001A, P6 V=>1815,D=>1515,C=>1515 6 PEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0046, PP V=>102B,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0048, PP V=>0207,D=>0205,C=>0205 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>004A, PP V=@LPDSR+>0266,D=>0002,C=>0002 PHEC H PMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0052, PP V=>1025,D=>10FA,C=>10FA PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0058, PP V=>1022,D=>10F7,C=>10F7 PPEC PP.ENDIF PP*$ PP************************************************************* PP* P*=P047J6 GRJ 03/25/80 STR #05696 3.3.2 CASHAN JP* PP* IF THE RECORD SWITCH OF A CASSETTE IS IN THE OFF OR PP* LOCAL POSITION AND AN ATTEMPT IS MADE TO WRITE TO IT, PP* AN ERROR >7 IS CORRECTLY RETURNED. HOWEVER ON A SUBSEQUENT PP* ATTEMPT, THE SYSTEM WILL CRASH WITH A CODE >20 PP* PP*#SYN S733,DSR733 PP* PP.IF "@DSR733", NE, NONE P.EVAL CASHAN="@DSR733+>08566" 8PMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0092, PP V=>2260,D=>0A89,C=>0A89 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0094, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0096, PP V=>1602,D=>1702,C=>1702 PPEC P*MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0*&0C0, &P V=>2260,D=>0A89,C=>0A89 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C2, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C4, PP V=>1302,D=>1802,C=>1802 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0134, P< V=@CASHAN+>014C,D=@CASHAN+>0150,C=@CASHAN+>0150 < PEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>014E, PP V=>4000,D=>0000,C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0150, PP V=@CASHAN+>0156,D=>0000,C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0152, PP V=@CASHAN+>01F0,D=>4000,C=>4000 PNEC N PMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0154, PP V=>0001,D=@CASHAN+>015A,C=@CASHAN+>015A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0156, PP V=>1300,D=@CASHAN+>01F0,C=@CASHAN+>01F0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0158, PP V=(>0100,>1000),D=(>0001,>1300),C=>1301 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>016C, P V=@CASHA DN+>0152,D=@CASHAN+>0156,C=@CASHAN+>0156 DPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0254, PP V=>2260,D=>0A89,C=>0A89 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0256, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0258, PP V=>1302,D=>1802,C=>1802 PEC 2 2PMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0164, PP V=>2260,D=>0A49,C=>0A49 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0166, PP V=@CASHAN+>015A,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0168, PP V=>16EE,D=>17EE,C=>17EE PPEC P0.SYN CASHAN="" 0 P.ENDIF PP*$ PP************************************************************* PP* PP*=P0490 GCH 04/11/80 STR #06206 3.3.2 IOCOMX PP* PP* THE CHARACTER QUE IN THE PDT WILL BE DESTROYED IF A TASK PP* OPENS A TERMINAL FOR EVENT CHARACTERS AND SUBSEQUENTLY PP* USES A SHORT FORM PRB. THIS MIGHT BE OBSERVED AS A SINGLE PB* EVENT CHARACTER CAUSING TWO I/O CALLS TO BE TERMINATED. B P* PP* NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH. PP* PP*#SYN IOC,IOCOM PP*#SYN SROOT,ROOT PP*#SYN S911,DSR911 PP*#SYN S911PF,DSR911PF PP* PP.EVAL TM$INT="@ROOT+>26D4" PP* P T@PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0182, PP V=(@TM$INT+>0186,@TM$INT+>01A6,>0000,>0000), PP D=(>04C6,>C264,>0002,>1612),C=>D0B2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>018A, PP V=(>0000,>0000,>0000,>0000), PP D=(>100F,>C264,>0002,>0609),C=>D460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0192, PP V=(>0000,>0000,>0000,>0000), P D=(>1608,>C186>,>1306,>0624),C=>C2AC >PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>019A, PP V=(@TM$INT+>01F0,>0000,>0000,>0000), PP D=(>0006,>C024,>0006,>D406),C=>1422 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01A2, PP V=(>0000,>0000,>0201,>0014), PP D=(>1003,>0624,>0002,>1602),C=>0027 PPEC P$MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$,$INT+>01AA, ,P V=(>06A0,@ROOT+>14CA,@TM$INT+>01E8), PP D=(>C19B,>0380,>0460),C=>C67B PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B0, PP V=>C8A0,D=@IOCOM+>02D0,C=@IOCOM+>02D0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B2, PP V=(@ROOT+>024A,>0006,>C8A0), PP D=(>0624,>0006,>0460),C=>0242 P6EC 6 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B8, PP V=@TM$INT+>01EA,D=@IOCOM+>032E,C=@IOCOM+>032E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01BA, PP V=(>0008,>C8A0,@TM$INT+>01EC,>000A), PP D=(>C186,>1306,>0624,>0006),C=>D4A2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01C2, PP V=(>D8A0,@TM$INT+>01EE,>000E,>04C1), PH D=(>C024,>0006,>D406,>1002),C=>0426 H PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01CA, PP V=(>D881,>000C,>D881,>000D), PP D=(>0624,>0002,>046B,>0004),C=>0249 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C2, PP V=>C024,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C4, PP V=>0002,D=@TM$INT+>0182,C=@TM$INT+>0182 PEC J JPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C6, PP V=(>1602,>C19B,>0380,>0624), PP D=(>1000,>1000,>1000,>0460),C=>1460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02CE, PP V=>0002,D=@TM$INT+>018C,C=@TM$INT+>018C PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0300, PP V=(>13E0),D=(>13E5),C=>13E5 PEC 8 8PMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0312, PP V=(>17D7),D=(>17DC),C=>17DC PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0324, PP V=(>1804,>05A4),D=(>1802,>0460),C=>1C62 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0328, PP V=>0002,D=@TM$INT+>01B2,C=@TM$INT+>01B2 PPEC P*MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>032*&A, &P V=(>0624,>0006),D=(>0624,>0002),C=>0626 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0334, PP V=>046B,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0336, PP V=>0004,D=@TM$INT+>01BA,C=@TM$INT+>01BA PPEC PP* P<.IF @DSR911 ,NE, "NONE" < P* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A0, PP V=>06A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A2, PP V=@IOCOM+>002C,D=@TM$INT+>01D2,D=@TM$INT+>01D2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, PP V=>D881,D=>06A0,C=>06A0 PNEC N PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, PP V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, PP V=>D881,D=>0206,C=>0206 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, PP V=>0010,D=@DSR911+>01B2,C=@DSR911+>01B2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, P V=>D881, DD=>0380,C=>0380 DPEC PP* PP.ENDIF PP* PP.IF @DSR911PF ,NE, "NONE" PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FC, PP V=>06A0,D=>0460,C=>0460 PPEC PMPI PF=IMAGE,MT=OV,MN=@S911PF,2ADR=@DSR911PF+>03FE, 2P V=@IOCOM+>002C,D=@TM$INT+>01D2,C=@TM$INT+>01D2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, PP V=>D881,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, PP V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, P0 V=>D881,D=>0206,C=>0206 0 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, PP V=>0010,D=@DSR911PF+>0240,C=@DSR911PF+>0240 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, PP V=>D881,D=>0380,C=>0380 PPEC PP* PP.ENDIF PB* B P.SYN TM$INT="" PP*$ PP************************************************************* PP* PP*=P0496 RVL 04/18/80 STR #06147 3.3.2 DSR820 PP* PP* THE REQUEST TO SEND FLAG IS INCORRECTLY REFERENCED IN PP* THE 820 DSR. PP* PP.IF "@DSR820" ,NE, NONE P T@PMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>00A6, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0174, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01CE, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01F8, P V=@DSR820+>05C>C,D=@DSR820+>05CA,C=@DSR820+>05CA >PEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0490, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04B4, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PP.ENDIF PP*$ P$************************************$,************************* ,P* PP*=P0499 RVL 04/21/80 STR #06113 3.3.2 DSR911 PP* PP* IF CHARACTERS ARE ENTERED INTO AN ECHO SUPPRESSED FIELD PP* AND THE ERASE INPUT KEY IS DEPRESSED AND MORE CHARACTERS PP* ARE INPUT PRIOR TO DEPRESSING THE RETURN KEY, THE SYSTEM PP* WILL CRASH WITH A >22 CRASH. PP* PP* NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH P6*#SYN SLGY,SYSLGY 6 P* PP.EVAL TM$INT="@ROOT+>26D4" PP.IF "@DSR911" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0320, PP V=>06A0,D=>0460,C=>460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0322, PP V=@DSR911+>064A,D=@TM$INT+>01DC,C=@TM$INT+>01DC PPEC PHMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, H P V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, PP V=>06A0,D=@DSR911+>064A,C=@DSR911+>064A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, PP V=@SYSLGY,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, PP V=@TM$INT+>01E8,D=@DSR911+>0324,C=@DSR911+>0324 PEC J JP.ENDIF PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048C, PP V=>06A0,D=>0460,C=>460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048E, PP V=@DSR911PF+>08CA,D=@TM$INT+>01DC,C=@TM$INT+>01DC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, P V=(>0011,>C881,>00128),D=(>04E1,>0008,>06A0),C=>0249 8PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, PP V=>06A0,D=@DSR911PF+>064A,C=@DSR911PF+>064A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, PP V=@SYSLGY,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, PP V=@TM$INT+>01E8,D=@DSR911PF+>0490,C=@DSR911PF+>0490 P*EC *& &P.ENDIF PP.SYN TM$INT="" PP*$ ! NOTE: THIS PATCH MODIFIED BY PATCH 649 PP************************************************************* PP* PP*=P0507 RVL 04/23/80 STR #05754 3.3.2 DSR820 PP* PP* IF THE 820 IS PUT INTO THE LOCAL MODE AND BACK ONLINE PP* WHILE PROCESSING I/O, THE REQUEST TO SEND SIGNAL IS NEVER P<* RESET. IN ADDITION, IF THE 820 IS PROCESSING A READ < P* REQUEST AND THE SWITCH IS PLACED IN THE LOCAL POSITION, THE PP* TASK AND/OR SCI IS NEVER ABORTED. PP* PP* NOTE: PATCH 0460 MUST BE APPLIED PRIOR TO THIS PATCH. PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PP.EVAL TM$INT="@ROOT+>26D4" PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03D8, PN V=>1F0D,D=>0460,C=>0460 N PEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03DA, PP V=>160E,D=@TM$INT+>01F6,C=@TM$INT+>01F6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01F6, PP V=(>0000,>0000,>0000,>0000,>0000), PP D=(>1F0D,>1609,>1F0E,>1602,>0460),C=>0468 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0200, PP V=>0000,D=@DSR820+>03DC,C=@DSR820+>03DC P EC D DPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0202, PP V=(>0000,>0000,>0000), PP D=(>0262,>0400,>0206),C=>0464 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0208, PP V=>0000,D=@TM$INT+>01F6,C=@TM$INT+>01F6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020A, PP V=(>0000,>0000),D=(>0380,>0460),C=>07E0 PEC 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020E, PP V=>0000,D=@DSR820+>03F8,C=@DSR820+>03F8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F0, PP V=>0206,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F2, PP V=@DSR820+>04EE,D=@TM$INT+>01E8,C=@TM$INT+>01E8 PPEC P0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E8, 0 P V=0380,D=>0206,C=>0206 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EA, PP V=>4D45,D=@DSR820+>04EE,C=@DSR820+>04EE PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EC, PP V=(>4D20,>4E00,>0000,>0000,>0000), PP D=(>C024,>0030,>1101,>1D0A,>0380),C=>CF9F PPEC PB.SYN TM$INT="" B P.ENDIF PP*$ PP*********************************************************************** PP* PP*=P0557 KDK 04/25/80 STR #06196 3.3.2 DSRVDT(911,911PF,913) PP* PP* THE CURSOR POSITIONING ON THE VDTS FAIL TO ADVANCE WHEN THE PP* LAST CHARACTER OF A FIELD IS ENTERED. THEN, ALTHOUGH THE CURSOR PP* IS POSITIONED ON A CHARACTER, THE CHARACTER CANNOT BE MODIFIED PP* UNTIL A LEFT ARROW KEY IS STRUCK. BUT STRIKING THE LEFT ARROW P T@P* KEY IN THIS CONDITION DOES NOT CAUSE THE CURSOR TO CHANGE PP* POSITIONS. THIS PATCH CAUSES THE CURSOR TO ALWAYS MOVE TO THE PP* NEXT CHARACTER POSITION WHEN A CHARACTER IS ENTERED. IT ALSO PP* CORRECTS A PROBLEM IN READING THE LAST CHARACTER IN A FIELD PP* THAT DOES NOT REQUIRE A TERMINATING CHARACTER TO CAUSE RETURN PP* TO THE CALLING TASK. PP* PP*#SYN SROOT,ROOT PP*#SYN S911,DSR911 PP*#SYN S911PF,DSR911PF P*#SYN S913,DSR913 > >P*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF @DSR911 ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0348, PP V=(>060A,>32CA,>058A,>0B2B), PP D=(>32CA,>0B2B,>1818,>100A),C=>31F3 PPEC PP* P$.ENDIF $, ,P* PP.IF @DSR911PF ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BA, PP V=(>060A,>32CA,>0460,@S$$PAT+>0000), PP D=(>32CA,>0B2B,>182D,>1015),C=>31D9 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04E8, PP V=(>C80A,@DSR911PF+>0BA0,>32CA), P6 D=(>1000,>32CA,>1E0F),C=>3CC5 6 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, PP V=(>058A,>0620,@DSR911PF+>0BA0,>0460,@DSR911PF+>04C2), PP D=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),C=>DEAD PPEC PP* PP.ENDIF PP* PP* PH.IF @DSR913 ,NE, NONE H P* PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B0, PP V=(>060A,>1D0C,>0460,@S$$PAT+>0016), PP D=(>1003,>1002,>1001,>1000),C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8, PP V=(>0B5B,>1811),D=(>0B2B,>1006),C=>1B2D PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E, PP V=@S$$PAT+>0024,D=@S$$PAT+>002A,C=@S$$PAT+>002A PEC J JPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0654, !CURSOR OFF PP V=>1D1C,D=>1E1C,C=>1E1C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, PP V=(>06A0,@DSR913+>07DC,>C2E4,>002C), PP D=(>DEAD,>DEAD,>DEAD,>DEAD),C=>0000 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001E, PP V=(>058A,>0460,@DSR913+>02B8), P D=(>DEAD,>DEAD,>DEA8D),C=>DEAD 8PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, PP V=(>890A,>0030,>1301), PP D=(>DEAD,>DEAD,>DEAD),C=>DEAD PPEC PP* PP.ENDIF PP*$ PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, P* V=>2E31,D=>2E32,C=>2E32 *& &P!EC ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH PP************************************************************ PP* BEGIN RELEASE 3.3.3 PATCHES PP************************************************************* PP* PP*=P0563 RVL 05/16/80 STR #06315 3.3.3 TM$FUN PP* PP* THE 'DO NOT SUSPEND' TIME INTERVAL IS CALCULATED INCORRECTLY. PP* IF AN ERROR OCCURS PATCHING FOR 60HZ SYSTEM, PATCH FOR 50HZ. P<* < PMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0006,D=>00FA,C=>00FA PP.IF "@$$CC" , GT, 0 PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0005,D=>00FA,C=>00FA PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0576 RVL 06/09/80 STR #06482 3.3.3 DSR820 PN* N P* THE 820 DSR DOES NOT ALLOW THE TAB CHARACTER TO BE PASSED PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>02FA, PP V=(>0460,@DSR820+>01E8),D=(>13D2,>1000),C=>03D2 PPEC PP.ENDIF PP*$ P ************ D************************************************* DP* PP*=P0577 MU 06/11/80 STR #06406 3.3.3 DSR820 PP* PP* THE FIRST KATAKANA CHARACTER ENTERED FROM THE KEYBOARD PP* FAILS TO ECHO. PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PMPI PF=IMAGE,MT=OV,MN=@S820,AD2R=@DSR820+>0486, 2P V=>C024,D=>C2A4,C=>C2A4 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>048E, PP V=>2020,D=>22A0,C=>22A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049A, PP V=>0240,D=>024A,C=>024A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049E, P0 V=>C900,D=>C90A,C=>C90A 0 PEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04C8, PP V=>C024,D=>C2A4,C=>C2A4 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0578 KDK 06/11/80 STR #06419 3.3.3 DSR911 PB* B P* ENTERING THE BACKFIELD KEY OR TAB KEY AFTER ENTERING AN PP* INVALID CHARACTER INTO A VALIDATION FIELD WILL CAUSE THE PP* CURSOR TO DISAPPEAR. PP* PP*#SYN S911,DSR911 PP*#SYN S911,DSR911WP PP*#SYN S911PF,DSR911PF PP* PP.IF "@DSR911", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0402, P T@P V=>C2E4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0404, PP V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, P V=>DEAD,D=@DSR>911+>0406,C=@DSR911+>0406 >PEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>055A, PP V=>1D0C,D=>1000,C=>1000 PPEC PP.ENDIF PP* PP.IF "@DSR911PF", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B2, PP V=>C2E4,D=>0460,C=>0460 P$EC $, ,PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B4, PP V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, PP V=>DEAD,D=@DSR911PF+>05B6,C=@DSR911PF+>05B6 P6EC 6 PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0772, PP V=>1D0C,D=>1000,C=>1000 PPEC PP.ENDIF PP.IF "@DSR911WP", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B4, PP V=>C2E4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B6, PH V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 H PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, PP V=>DEAD,D=@DSR911WP+>04B8,C=@DSR911WP+>04B8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0636, PP V=>1D0C,D=>1000,C=>1000 PEC J JP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0584 KDK 06/19/80 STR #06144 3.3.3 DSRKSR,DSR733 PP* PP* WHEN USING THE KSR OR ASR DSR FOR DIALUP TERMINALS, THE PHONE PP* CONNECTION LOGIC PROHIBITS A RECONNECTION IN THE EVENT OF AN PP* ABNORMAL DISCONNECTION; I.E. HANGING UP THE PHONE WITHOUT P* TERMINATING SCI, OR M8OMENTARY POWER LOSS AT THE MODEM. THIS 8P* PATCH CORRECTS THE LOGIC AND ENABLES A RECONNECTION AFTER AN PP* 8 SECOND DELAY. PP* PP*#SYN SKSR,DSRKSR PP*#SYN S733,DSR733 PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0190, PP V=>DEAD,D=>06A0,C=>06A0 PPEC P*MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>*&0192, &P V=>DEAD,D=@IOCOM+>0004,C=@IOCOM+>0004 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0194, PP V=(>DEAD,>DEAD),D=(>0380,>0460),C=>07E0 PPEC PP* PP* PP.IF @DSRKSR ,NE, NONE PP* P<* < PMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A4, PP V=>06A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A6, PP V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A8, PP V=(>0380,>C047),D=(>C047,>1002),C=>D045 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, N P V=>DEAD,D=@DSRKSR+>00A8,C=@DSRKSR+>00A8 PPEC PP* PP* PP.ENDIF PP* PP* PP.IF @DSR733 ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A4, P V=>06A0 D,D=>0460,C=>0460 DPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A6, PP V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A8, PP V=(>0380,>C047),D=(>C047,>1002),C=>D045 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, PP V=>DEAD,D=@DSR733+>00A8,C=@DSR733+>00A8 PEC 2 2P* PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0597 RVL 06/27/80 STR #06603 3.3.3 DSRKSR,DSR733 PP* PP* KATAKANA CHARACTERS ARE NOT PROCESSED PROPERLY BY DSRKSR PP* AND DSR733. P0* 0 P*#SYN SKSR,DSRKSR PP*#SYN S733,DSR733 PP* PP.IF @DSRKSR,NE,NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>0398, PP V=>02AA,D=>02AB,C=>02AB PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>039A, PB V=>D2AA,D=>D2AB,C=>D2AB B PEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03A8, PP V=>FAA0,D=>FAE0,C=>FAE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03BC, PP V=>5AA0,D=>5AE0,C=>5AE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015C, PP V=>DF00,D=>E000,C=>E000 PPEC P T@PMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015E, PP V=>1BE6,D=>14E6,C=>14E6 PPEC PP* PP.ENDIF PP* PP.IF @DSR733,NE,NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>0398, PP V=>02AA,D=>02AB,C=>02AB PEC > >PMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>039A, PP V=>D2AA,D=>D2AB,C=>D2AB PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03A8, PP V=>FAA0,D=>FAE0,C=>FAE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03BC, PP V=>5AA0,D=>5AE0,C=>5AE0 PPEC P$MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR$,733+>015C, ,P V=>DF00,D=>E000,C=>E000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015E, PP V=>1BE6,D=>14E6,C=>14E6 PPEC PP.ENDIF PP*$ PP************************************************************* PP* P6*=P0602 GJ 07/10/80 STR #06424 3.3.3 ABTLDT 6 P* PP* ABTLDT GENERATES A CLOSE CALL BLOCK WHICH IS NOT SIZED PP* PROPERLY. THIS MAY CAUSE THE SYSTEM TO 'HANG' WITH ALL PP* MEMORY LIGHTS ON AND REQUIRES AN IPL PROCEDURE TO PP* RESTART THE SYSTEM. PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>06AE+>0038, PP V=>000E,D=>0012,C=>0012 PPEC PH*$ H P************************************************************* PP* PP*=P0629 GJ 07/30/80 STR #06732 3.3.3 KIF PP* PP* IF BETWEEN THE TIME A READ OF A RECORD AND A REWRITE OF THE PP* RECORD, AN OPERATION IS DONE TO THE FILE THAT AFFECTS THE PP* LEAF NODE THE KEY READ IS IN BUT DOES NOT CAUSE A SPLIT, PP* THE REWRITE WILL INCORRECTLY RETURN A >B9 ERROR. PP* PP*#SYN SKIF3,KIF3 P* J JP.IF "@KIF3" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0FF6+>008E, PP V=>133C,D=>1335,C=>1335 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0649 RVL 08/18/80 STR #06866 3.3.3 DSR911PF P* 8 8P* PATCH 499 HAS AN INCORRECT ADDRESS FOR THE 911 POWER PP* FAIL DSR. PP* PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>01E2, PP V=@DSR911PF+>064A,D=@DSR911PF+>08CA,C=@DSR911PF+>08CA PPEC PP.ENDIF PP*$ P*MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>*&0240, &P V=>2E32,D=>2E33,C=>2E33 PPEC PP************************************************************* PP* BEGIN RELEASE 3.3.4 PATCHES PP************************************************************* PP* PP*=P0650 RVL 08/15/80 STR #06868 3.3.4 DSR911 PP* PP* THE 911 DOES NOT CHECK THE RECORD LENGTH ON A READ P<* DEVICE STATUS. MORE CHARACTERS MAY THEN BE RETURNED < P* THAN WERE REQUESTED AND MAY DESTROY SYSTEM TABLE LINKAGE. PP* PP.IF "@DSR911" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F2, PP V=>CAA4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F4, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, N P V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 P EC D DPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911+>00F8,C=@DSR911+>00F8 PPEC PP.ENDIF PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013C, PP V=>CAA4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013E, P V=>0002,D=@S$$PAT+>019A,C=2@S$$PAT+>019A 2PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PP V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 P0EC 0 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911PF+>0142,C=@DSR911PF+>0142 PPEC PP.ENDIF PP.IF "@DSR911WP" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010C, PB V=>CAA4,D=>0460,C=>0460 B PEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010E, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PP V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC P T@PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911WP+>0112,C=@DSR911WP+>0112 PPEC PP.ENDIF P*$ > >P************************************************************************** PP* PP*=P0709 MU 08/29/80 STR #07096 3.3.4 DSR911 PP* PP* THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATION PP* FAILS, HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THE PP* FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED. PP* **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIED FOR THIS PATCH PP* **** TO APPLY PROPERLY. P$* $, ,P*#SYN S911PF,DSR911PF PP*#SYN S911WP,DSR911WP PP*#SYN S911,DSR911 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8, P6 V=(>06A0,@S$$PAT+>014E), 6 P D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568, PP V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E PPEC PHMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, H P V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>1802,D=@DSR911+>0400,C=@DSR911+>0400 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC P.ENDIFJ JP* PP* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A, P V=(>06A0,@S$$PAT+>0814E), 8P D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780, PP V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC P*MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>*&0154, &P V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF+>05AA PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC PP.ENDIF PP* PP* P<.IF "@DSR911WP" ,NE, NONE < P* PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PNMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644, N P V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B0 PPEC PP.ENDIF P * D DP*$ PP************************************************************* PP* PP*=P0714 RVL 09/19/80 STR #07098 3.3.4 MM$SCN PP* PP* IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK PP* AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TO PP* LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THE PP* TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. P* 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0094, PP V=>D022,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, PP V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, PP V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E PPEC P0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, 0 P V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),C=>C660 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, PP V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, PB V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 B PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01C0, PP V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 PPEC PP*$ PP************************************************************************** PP* INSERT PATCHES HERE. BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALL. P T@P* PP************************************************************************** PP* PP* PPCM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" PP* PPQ$SYN PP.SYN IMAGE="", S$$PAT="" PP.SYN SROOT="", ROOT="", S820="", DSR820="" PP.SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" P.SYN SMEM="", MEMR>ES="", SIO="", SVCIO="" >P.SYN DDIOSR="", SDDIO="", IOC="", IOCOM="" PP.SYN S911="", DSR911="", SLP="", LPDSR="" PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************P$* THE NEXT AVAILABLE PATCH LOCATION $,IS S$$PAT+>01C2 ,P* 21 WORDS RESERVED FOR COMMCOM PATCH STARTING AT S$$PAT+>015C PP********************************************************************************P PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************P$* THE NEXT AVAILABLE PATCH LOCATION $B8 DEAD 980A 7C8D 1202 0460 7BE0 9829 FFFE .. .. |. .. .` {. .) ..L  NEW IMAGE: CHECKSUM = 045B L 46B8 045B 980A 7C8D 1202 0460 7BE0 9829 FFFE .[ .. |. .. .` {. .) ..L <0983> EC <0984> *$H# <0985> ************************************************************H <0986> * > <0987> *=P0434 MSC02/14/80STR #057753.3.1 FPYDSR > <0988> * D! <0989> * PATCH TO NOT ISSUE COMMAND UNTIL CONTROLLER READY ANDD: <0990> * MAKE ALL READS DO NON-SEQUENTIAL SECTORING.:$ * SCI990 ** SCI990 ** SCI990 ** $0SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH 0 <0991> *  <0992> *#SYN SFPY,FPYDSR  <0993> * $ <0994> .IF "@FPYDSR", NE, NONE$ <0995> * < <0996> MPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0352, <& <0997>  V=>1004,D=>10F3,C=>10F3& <0998> EC< <0999> MPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0250, <& <1000>  V=>4000,D=>4100,C=>4100& <1001> EC <1002> *  <1003> .ENDIF <1004> *$H# <1005> ************************************************************H <1006> * 0 <1007> *  BEGIN PATCHES FOR RELEASE 3.3.20 <1008> * J$ <1009> ************************************************************* J <1010> * < <1011> *=P0448 RVL02/27/80STR #058413.3.2 LPDSR< <1012> *  <1013> * THE LINE PRINTE&R WILL NOT RETURN A TIMEOUT ERROR ON&6 <1014> * OPEN. THIS PATCH CORRECTS THE PROBLEM. 6 <1015> * " <1016> .IF "@LPDSR", NE, NONE"8 <1017> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0116,8& <1018>  V=>1037,D=>0380,C=>0380 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>0116 VERIFICATION DATA  >1037 DATA  >0380 CHECKSUM  >0380$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7916 1037  .7  CURRENT IMAGE L 7916 1037 1F0E 16FB D278 1008 0289 6100 1A05 .7 .. .. .x .. .. a. ..L  NEW IMAGE: CHECKSUM = 0380 L 7916 0380 1F0E 16FB D278 1008 0289 6100 1A05 .. .. .. .x .. .. a. ..L <1019> EC <1020> .ENDIF <1021> *$& <1022> **************************&&*********************************** & <1023> * > <1024> *=P0449 RVL02/27/80STR #058423.3.2 DSR979 > <1025> * F" <1026> * IF A TASK DOING I/O TO A TAPE TRANSPORT IS KILLED WHILEFF" <1027> * THE TRANSPORT IS BUSY REWINDING, A CRASH >22 MAY OCCUR.F <1028> *  <1029> *#SYN S979,DSR979 $ <1030> .IF "@DSR979" ,NE, NONE $: <1031> MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0024,:& <1032>  V=>0248,D=>0460,C=>0460 & <1033> EC: <1034> MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0026,:6 <1035> V=>F000,D=@S$$PAT+>012C,C=@S$$PAT+>012C 6 <1036> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <1037> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>012C, <* <1038> V=(>DEAD,>DEAD,>DEAD,>DEAD),* <1039> D=(>"0248,>F000,>C2C2,>0A2B),C=>3AA1 " <1040> EC< <1041> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0134, <$ <1042>  V=(>DEAD,>DEAD,>DEAD),$, <1043> D=(>1801,>0380,>0460),C=>1FE1 , <1044> EC< <1045> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013A, <6 <1046> V=>DEAD,D=@DSR979+>0028,C=@DSR979+>0028 6 <1047> EC <1048> .ENDIF <1049> *$J$ <1050> ************************************************************* J <1051> * > <1052> *=P0454 RVL03/09/80STR #059073.3.2 IOCOMX > <1053> * F" <1054> * THE POWER UP ROUTINE 'SCNPDT' FAILS TO PROPERLY HANDLE F, <1055> * SOME NON-DISK TILINE DEVICES., <1056> * 8 <1057> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023C,8& <1058>  V=>22E0,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>023C VERIFICATION DATA  >22E0 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  713C 22E0  ".  CURRENT IMAGE L 713C 22E0 70E4 1622 C808 7148 02E0 0000 C1A4 ". p. ." .. qH .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 713C 0460 70E4 1622 C808 7148 02E0 0000 C1A4 .` p. ." .. qH .. .. ..L <1059> EC8 <1060> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023E,8< <1061> V=@IOCOM+>01E4,D=@S$$PAT+>013C,C=@S$$PAT+>013C< PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>023E$ VERIFICATION DATA  >6F00+>01E4$ DATA  17842+>013C CHECKSUM  17842+>013C OUTPUT ACCESS NAME **  NULL **  VERIFICATION DATA  713E 70E4  p.  CURRENT IMAGE L 713E 70E4 1622 C808 7148 02E0 0000 C1A4 0030 p. ." .. qH .. .. .. .0L  NEW IMAGE: CHECKSUM = 46EE L 713E 46EE 1622 C808 7148 02E0 0000 C1A4 0030 F. ." .. qH .. .. .. .0L <1062> EC< <1063> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013C, <* <1064> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1065> D=(>024B,>40FF,>028B,>4006),C=>0039 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  17842+>013C0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >024B,>40FF,>028B,>4006" CHECKSUM  >0039$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA   46EE D " EAD DEAD DEAD DEAD  .. .. .. .." CURRENT IMAGE L 46EE DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0039 L 46EE 024B 40FF 028B 4006 DEAD DEAD DEAD DEAD .K @. .. @. .. .. .. ..L <1066> EC< <1067> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0144, <6 <1068> V=(>DEAD,>DEAD),D=(>1602,>0460),C=>1262 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0144$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >1602,>0460 CHECKSUM  >1262$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  46F6 DEAD DEAD .. .. CURRENT IMAGE L 46F6 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1262  46F6 1602 0460 D8EAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..8 <1069> EC< <1070> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0148, <4 <1071> V=>DEAD,D=@IOCOM+>0242,C=@IOCOM+>0242 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0148 VERIFICATION DATA  >DEAD DATA  >6F00+>0242 CHECKSUM  >6F00+>0242$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  46FA DEAD  ..  CURRENT IMAGE L 46FA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7142 L 46FA 7142 DEAD DEAD DEAD DEAD DEAD DEAD DEAD qB .. .. .. .. .. .. ..L <1072> EC< <1073> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014A, <& <1074>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>014A VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  46FC DEAD  ..  CURRENT IMAGE L 46FC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 0460 L 46FC 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <1075> EC< <1076> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014C, <4 <1077> V=>DEAD,D=@IOCOM+>0286,C=@IOCOM+>0286 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>014C VERIFICATION DATA  >DEAD DATA  >6F00+>0286 CHECKSUM  >6F00+>0286$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  46FE DEAD  ..  CURRENT IMAGE L 46FE DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7186 L 46FE 7186 DEAD DEAD DEAD DEAD DEAD DEAD DEAD q. .. .. .. .. .. .. ..L <1078> EC <1079> *$R( <1080> **********************************************************************R <1081> * > <1082> *=P0453 MU 03/10/80STR #059063.3.2 DSR911 > <1083> * F" <1084> * KATAKANA CHARACTERS ARE NOT ACCEPTED/DISPLAYED PROPERLYFF" <1085> * WHEN READ AND WRITE DIRECT OP CODES ARE USED ON A 911. F <1086> * " <1087> *#SYN S911PF,DSR911PF " <1088> *#SYN S911,DSR911  <1089> *#SYN SROOT,ROOT @( <1090> *.EVAL S$$PAT="@ROOT+>0000" ( <1091> * $ <1092> .IF "@DSR911" ,NE, NONE $ <1093> * : <1094> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8,:( <1095>  V=>0200, D=>06A0, C=>06A0( PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>01C8 VERIFICATION DATA  >0200 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  79C8 0200  ..  CURRENT IMAGE L 79C8 0200 8000 D23A 5200 3208 1D08 1E0A 0609 .. .. .: R. 2. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 79C8 06A0 8000 D23A 5200 3208 1D08 1E0A 0609 .. .. .: R. 2. .. .. ..L <1096> EC: <1097> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01CA,:0 <1098>  V=>8000, D=@S$$PAT+>014E, C=@S$$P0 AT+>014E  PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>01CA VERIFICATION DATA  >8000 DATA  17842+>014ER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CHECKSUM  17842+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  79CA 8000  ..  CURRENT IMAGE L 79CA 8000 D23A 5200 3208 1D08 1E0A 0609 16F9 .. .: R. 2. .. .. .. ..L  NEW IMAGE: CHECKSUM = 4700 L 79CA 4700 D23A 5200 3208 1D08 1E0A 0609 16F9 G. .: R. 2. .. .. .. ..L <1099> EC: <1100> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE,:( <1101>  V=>0200, D=>06A0, C=>06A0( PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>02BE VERIFICATION DATA  >0200 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7ABE 0200  ..  CURRENT IMAGE L 7ABE 0200 8080 361A 5E80 1E0A 0609 16FB 10CD .. .. 6. ^. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 7ABE 06A0 8080 361A 5E80 1E0A 0609 16FB 10CD .. .. 6. ^. .. .. .. ..L <1102> EC: <1103> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02C0,:8 <1104>  V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>02C0 VERIFICATION DATA  >8080 DATA  17842+>014E CHECKSUM  17842+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AC0 8080  ..  CURRENT IMAGE   7AC0 D 8080 361A 5E80 1E0A 0609 16FB 10CD 1D0F .. 6. ^. .. .. .. .. ..D  NEW IMAGE: CHECKSUM = 4700 L 7AC0 4700 361A 5E80 1E0A 0609 16FB 10CD 1D0F G. 6. ^. .. .. .. .. ..L <1105> EC: <1106> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0084,:B <1107>  V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>AB PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>0084$ VERIFICATION DATA  >7800+>02C0$ DATA  17842+>14E+>A CHECKSUM  17842+>14E+>A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7884 7AC0  z.  CURRENT IMAGE L 7884 7AC0 003A F924 003A 002C C2E4 002C 1E0B z. .: .$ .: ., .. ., ..L  NEW IMAGE: CHECKSUM = 470A J 7884 470A 003A F924 003A 002C C2E4 002C 1E0B G. .: .$ .: ., .. ., J.. <1108> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R: <1109> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>050A,:B <1110>  V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>AB PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>050A$ VERIFICATION DATA  >7800+>02C0$ DATA  17842+>14E+>A CHECKSUM  17842+>14E+>A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D0A 7AC0  z.  CURRENT IMAGE L 7D0A 7AC0 C2E4 002C 093B 1703 06A0 7F60 7D5A z. .. ., .; .. .. .` }ZL  NEW IMAGE: CHECKSUM = 470A L 7D0A 470A C2E4 002C 093B 1703 06A0 7F60 7D5A G. .. ., .; .. .. .` }ZL <1111> EC< <1112> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, < <(1113>  V=(>DEAD,>DEAD,>DEAD,>DEAD), (4 <1114>  D=(>C002,>0A80,>04C0,>1802), C=>D640 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>014E0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >C002,>0A80,>04C0,>1802" CHECKSUM  >D640$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4700 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4700 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D640 L 4700 C002 0A80 04C0 1802 DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <1115> EC< <1116> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <1117>  V=(>DEAD,>DEAD,>DEAD), &. <1118>  D=(>0200,>8080,>045B), C=>86DB . PROGRAM FILE IMAGE@ MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0156* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0200,>8080,>045B CHECKSUM  >86DB$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4708 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 4708 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 86DB L 4708 0200 8080 045B DEAD DEAD DEAD DEAD DEAD .. .. .[ .. .. .. .. ..L <1119> EC <1120> .ENDIF <1121> * & <1122> .IF "@DSR911PF" ,NE, NONE & <1123> * > <1124> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256,>( <1125>  V=>0200, D=>06A0, C=>06A0( <1126> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  <1127> 4MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0258,48 <1128>  V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 <1129> EC> <1130> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A,>( <1131>  V=>0200, D=>06A0, C=>06A0( <1132> EC> <1133> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041C,>8 <1134>  V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 <1135> EC> <1136> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>00BA,>F <1137>  V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A F <1138> EC> <1139> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>070A,>F <1140>  V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A F <1141> EC< <1142> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <, <1143>  V=(>DEAD,>DEAD,>DEAD,>DEAD), , <1144>  D=(>C002,>0A80,>04C0,>1802), C=>D640  <1145> EC< <1146> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <1147>  V=(>DEAD,>DEAD,>DEAD), &. <1148>  D=(>0200,>8080,>045B), C=>86DB . <1149> EC <1150> .ENDIF <1151> *$J$ <1152> ************************************************************* J <1153> * < <1154> *=P0457 MU 03/11/80STR #057773.3.2 LPDSR< <1155> * D! <1156> * A SERIAL INTERFACED PRINTER IN 'CODE8' MODE DOES NOT D2 <1157> * MAINTAIN EITHER ODD OR EVEN PARITY.2 <1158> * " <1159> .IF "@LPDSR" ,NE, NONE"8 <1160> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016C,8& <1161>  V=>0624,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>016C VERIFICATION DATA  >0624 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  796C 0624  .$  CURRENT IMAGE L 796C 0624 0002 31C9 1C02 1E07 1001 1D07 C908 .$ .. 1. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 796C 0460 0002 31C9 1C02 1E07 1001 1D07 C908 .` .. 1. .. .. .. .. ..L <1162> EC8 <1163> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016E,86 <1164> V=>0002,D=@S$$PAT+>008C,C=@S$$PAT+>008C 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>016E VERIFICATION DATA  >0002 DATA  17842+>008C CHECKSUM  17842+>008C$ OUTPUT ACCESS NAME ** NULL ** $R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATI ON DATA  796E 0002  ..  CURRENT IMAGE L 796E 0002 31C9 1C02 1E07 1001 1D07 C908 0004 .. 1. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 463E L 796E 463E 31C9 1C02 1E07 1001 1D07 C908 0004 F> 1. .. .. .. .. .. ..L <1165> EC< <1166> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008C, <0 <1167> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),08 <1168> D=(>0624,>0002,>0249,>7FFF,>0460),C=>7FF0 8 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>008C6 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD,>DEAD6( DATA  >0624,>0002,>0249,>7FFF,>0460( CHECKSUM  >7FF0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 6 463E DEAD DEAD DEAD DEAD DEAD  .. .. .. .. .. 6 CURRENT IMAGE  463E DEAD DEAD: DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..:  NEW IMAGE: CHECKSUM = 7FF0 L 463E 0624 0002 0249 7FFF 0460 DEAD DEAD DEAD .$ .. .I .. .` .. .. ..L <1169> EC< <1170> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0096, <4 <1171> V=>DEAD,D=@LPDSR+>0170,C=@LPDSR+>0170 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0096 VERIFICATION DATA  >DEAD DATA  >7800+>0170 CHECKSUM  >7800+>0170$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4648 DEAD  ..  CURRENT IMAGE L 4648 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7970 L 4648 7970 DEAD DEAD DEAD DEAD DEAD DEAD DEAD yp .. .. .. .. .. .. ..L <1172> EC  <1173 > .ENDIF  <1174> *$R( <1175> **********************************************************************R <1176> * < <1177> *=P0456 JLH02/26/80STR #059273.3.2 DXIOS< <1178> * L% <1179> * WHEN USING THE 3780/2780 EMULATORS, THE STATISTICS REPORT OF LL% <1180> * PROTOCOL COUNTERS ARE AVAILABLE ONLY WHEN THE COMMUNICATIONS LL% <1181> * LINE IS CONNECTED. THIS IMPLIES THAT THE STATISTICS ARE NOT LJ$ <1182> * AVAILABLE WHEN THE LINK HAS BEEN DISCONNECTED BY THE REMOTEJL% <1183> * OR ABNORMALLY BY PHONE PROBLEMS. THIS PATCH ALLOWS THE 3780 LB <1184> * OR 2780 TASK TO ACCESS THE STATISTICS AT ALL TIMES.B <1185> *   <1186> *#SYN SCOMM,COMMCOM " <1187> .IF "@COMMCOM",NE,NONE"> <1188> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0084,> <1189> 2V=@SVCIO+>0E58+>0294,D=@ROOT+>015C,C=@ROOT+>015C2 <1190> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R: <1191> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C, :0 <1192> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),08 <1193> D=(>C027,>000A,>0A60,>1706,>9803),C=>4548 8 <1194> EC@ <1195> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000A, @2 <1196> V=>DEAD,D=@ROOT+>027A,C=@ROOT+>027A 2 <1197> EC@ <1198> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000C, @8 <1199> V=(>DEAD,>DEAD),D=(>1305,>9803),C=(>8B06) 8 <1200> EC@ <1201> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0010, @2 <1202> V=>DEAD,D=@ROOT+>0264,C=@ROOT+>0264 2 <1203> EC@ <1204> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0012, @ <1205> ,V=(>DEAD,>DEAD),D=(>1302,>0460),C=(>1762) , <1206> EC@ <1207> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0016, @@ <1208> V=>DEAD,D=@SVCIO+>0E58+>0294,C=@SVCIO+>0E58+>0294 @ <1209> EC@ <1210> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0018, @& <1211>  V=>DEAD,D=>0460,C=>0460 & <1212> EC> <1213> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+001A,>@ <1214> V=>DEAD,D=@SVCIO+>0E58+>0094,C=@SVCIO+>0E58+>0094 @ <1215> EC> <1216> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05A4,>0 <1217> V=(>F9E0,@ROOT+>0270,>0008,>C127),02 <1218> D=(>C127,>000A,>1106,>F9E0),C=>29CB 2 <1219> EC> <1220> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05AC,>2 <1221> V=>000A,D=@ROOT+>0270,C=@ROOT+>0270 2 <1222> EC <1223> MPI PF=IMAGE,MT=OV",MN=@SIO,ADR=@SVCIO+>0E58+05AE, "& <1224>  V=>1103,D=>0008,C=>0008 & <1225> EC> <1226> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CA,>& <1227>  V=>C127,D=>0460,C=>0460 & <1228> EC> <1229> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CC,>> <1230> V=>000A,D=@ROOT+>015C+>001C,C=@ROOT+>015C+>001C > <1231> EC@ <1232> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001C, @& <1233>  V=>DEAD,D=>F9E0,C=>F9E0 & <1234> EC@ <1235> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001E, @2 <1236> V=>DEAD,D=@ROOT+>0270,C=@ROOT+>0270 2 <1237> EC@ <1238> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0020, @* <1239> V=(>DEAD,>DEAD,>DEAD,>DEAD),** <1240> D=(>0008,>C127,>000A,>0460),* <1241> C=(>C545)  <1242> EC  <1243 8> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0028, 8@ <1244> V=>DEAD,D=@SVCIO+>0E58+>05CE,C=@SVCIO+>0E58+>05CE @ <1245> EC <1246> .ENDIF$ <1247> .SYN SCOMM="",COMMCOM=""$ <1248> *$J$ <1249> ************************************************************* J <1250> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R> <1251> *=P0460 RVL03/14/80STR #059383.3.2 TM$INT > <1252> * B <1253> * TM$INT INCORRECTLY CALLS THE GET SYSTEM TABLE AREA B0 <1254> * ROUTINE WHILE IN INTERRUPT CODE. 0 <1255> * @ <1256> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>011C, @& <1257>  V=>1602,D=>1002,C=>1002 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2  ADDRESS >45B2+>26D4+>011C @ VERIFICATION DATA  >1602 DATA  >1002 CHECKSUM  >1002$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6DA2 1602  ..  CURRENT IMAGE L 6DA2 1602 0420 6E08 23C5 1675 C0A0 00FE 1372 .. . n. #. .u .. .. .rL  NEW IMAGE: CHECKSUM = 1002 L 6DA2 1002 0420 6E08 23C5 1675 C0A0 00FE 1372 .. . n. #. .u .. .. .rL <1258> EC <1259> *$J$ <1260> ************************************************************* J <1261> * > <1262> *=P0469 RVL03/15/80STR #059413.3.2 DSR911 > <1263> * D! <1264> * A READ ASCII SVC ISSUED TO A 911 WILL DESTROY SYSTEM DD! <1265> * TABLE LINKAGE IF THE RECORD LENGTH IS ZERO. THIS WILLD@ <1266> * RESULT IN >22,>30 AND SEVERAL OTHER CRASH CODES. @ <1267> *  <1268> .IF "@DSR911", NE, NONE : <1269> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02F8,:& <1270>  V=>C261,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>02F8 VERIFICATION DATA  >C261 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AF8 C261  .a  CURRENT IMAGE L 7AF8 C261 0006 133D A289 C264 0034 824A 1201 .a .. .= .. .d .4 .J ..L  NEW IMAGE: CHECKSUM = 0460 L 7AF8 0460 0006 133D A289 C264 0034 824A 1201 .` .. .= .. .d .4 .J ..L <1271> EC: <1272> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02FA,:6 <1273> V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>02FA VERIFICATION DATA  >0006 DATA  17842+>0098 CHECKSUM  17842+>0098$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R 7AFA 0006  ..  CURRENT IMAGE L 7AFA 0006 133D A289 C264 0034 824A 1201 C289 .. .= .. .d .4 .J .. ..L  NEW IMAGE: CHECKSUM = 464A L 7AFA 464A 133D A289 C264 0034 824A 1201 C289 FJ .= .. .d .4 .J .. ..L <1274> EC< <1275> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, <* <1276> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1277> D=(>C261,>0006,>1602,>C90A),C=>1D6F 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>00980 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0DR4@" DATA >C261,>0006,>1602,>C90A" CHECKSUM  >1D6F$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 464A DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 464A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1D6F L 464A C261 0006 1602 C90A DEAD DEAD DEAD DEAD .a .. .. .. .. .. .. ..L <1278> EC< <1279> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, <B <1280> V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>00A0* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0030,>C249,>0460 CHECKSUM  >C619$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4652 DEAD DEAD DEAD  . . .. ..  CURRENT IMAGE L 4652 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = C619 L 4652 0030 C249 0460 DEAD DEAD DEAD DEAD DEAD .0 .I .` .. .. .. .. ..L <1281> EC< <1282> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, <6 <1283> V=>DEAD,D=@DSR911+>02FC,C=@DSR911+>02FC 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>00A6 VERIFICATION DATA  >DEAD DATA  >7800+>02FC CHECKSUM  >7800+>02FC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4658 DEAD  ..  CURRENT IMAGE L 4658 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7AFC 4 4658 7AFC DEAD DEAD DEAD DEAD DEAD DEAD DEAD4 z. .. .. .. .. .. .. .. <1284> EC <1285> .ENDIF& <1286> .IF "@DSR911PF", NE, NONE &R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R> <1287> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0464,>& <1288>  V=>C261,D=>0460,C=>0460 & <1289> EC> <1290> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0466,>6 <1291> V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 6 <1292> EC< <1293> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, <* <1294> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1295> D=(>C261,>0006,>1602,>C90A),C=>1D6F 2 <1296> EC< <1297> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, <B <1298> V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 B <1299> EC: <1300> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6:, : <1301> V=>DEAD,D=@DSR911PF+>0468,C=@DSR911PF+>0468 : <1302> EC <1303> .ENDIF <1304> *$J$ <1305> ************************************************************* J <1306> * < <1307> *=P0470 RVL03/18/80STR #059673.3.2 LPDSR< <1308> * F" <1309> * ACCESSING SERIAL PRINTERS DIRECTLY WILL SOMETIMES CAUSEF> <1310> * THE SYSTEM TO 'HANG' OR CRASH WITH A CODE >22. > <1311> * " <1312> .IF "@LPDSR" ,NE, NONE"8 <1313> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>000C,86 <1314> V=(>0205,>0002),D=(>1000,>1000),C=>0000 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>000C$ VERIFICATION DATA  >0205,>0002$ DATA  >1000,>1000 CHECKSUM  >0000 OUTPUT ACCESS NAME ** NULL  **  VERIFICATION DATA  780C 0205 0002 .. .. CURRENT IMAGE L 780C 0205 0002 020A 782E 06A0 70A2 132D 1815 .. .. .. x. .. p. .- ..L  NEW IMAGE: CHECKSUM = 0000 L 780C 1000 1000 020A 782E 06A0 70A2 132D 1815 .. .. .. x. .. p. .- ..L <1315> EC8 <1316> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>001A,8& <1317>  V=>1815,D=>1515,C=>1515 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>001A VERIFICATION DATA  >1815 DATA  >1515 CHECKSUM  >1515$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  781A 1815  ..  CURRENT IMAGE L 781A 1815 1E1B 1E26 3E3E 2D2D 2D21 211E 1E3E .. .. .& >> -- -! !. .>L  NEW IMAGE: CHECKSUM = 1515  781A 1515 1E1B 1E26 3E2 3E 2D2D 2D21 211E 1E3E .. .. .& >> -- -! !. .>2 <1318> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R8 <1319> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0046,8& <1320>  V=>102B,D=>1000,C=>1000 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>0046 VERIFICATION DATA  >102B DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7846 102B  .+  CURRENT IMAGE L 7846 102B 0207 7A66 1028 0207 7A62 1025 0207 .+ .. zf .( .. zb .% ..L  NEW IMAGE: CHECKSUM = 1000 L 7846 1000 0207 7A66 1028 0207 7A62 1025 0207 .. .. zf .( .. zb .% ..L <1321> EC8 <1322> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0048,8 <1323> V= >0207,D=>0205,C=>0205  PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>0048 VERIFICATION DATA  >0207 DATA  >0205 CHECKSUM  >0205$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7848 0207  ..  CURRENT IMAGE L 7848 0207 7A66 1028 0207 7A62 1025 0207 7A64 .. zf .( .. zb .% .. zdL  NEW IMAGE: CHECKSUM = 0205 L 7848 0205 7A66 1028 0207 7A62 1025 0207 7A64 .. zf .( .. zb .% .. zdL <1324> EC8 <1325> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>004A,8, <1326> V=@LPDSR+>0266,D=>0002,C=>0002, PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>004A$ VERIFICATION DATA  >7800+>0266$ DATA  >0002 CHECKSUM  >0002V=@$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  784A 7A66  zf  CURRENT IMAGE L 784A 7A66 1028 0207 7A62 1025 0207 7A64 1022 zf .( .. zb .% .. zd ."L  NEW IMAGE: CHECKSUM = 0002 L 784A 0002 1028 0207 7A62 1025 0207 7A64 1022 .. .( .. zb .% .. zd ."L <1327> EC8 <1328> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0052,8& <1329>  V=>1025,D=>10FA,C=>10FA & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>0052 VERIFICATION DATA  >1025 DATA  >10FA CHECKSUM  >10FAR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7852 1025  .%  CURRENT IMAGE " 7852 1025 0207 7A64 1022 C1E",1 0004 C161 0008 .% .. zd ." .. .. .a ..,  NEW IMAGE: CHECKSUM = 10FA L 7852 10FA 0207 7A64 1022 C1E1 0004 C161 0008 .. .. zd ." .. .. .a ..L <1330> EC8 <1331> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0058,8& <1332>  V=>1022,D=>10F7,C=>10F7 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  17  ADDRESS  >7800+>0058 VERIFICATION DATA  >1022 DATA  >10F7 CHECKSUM  >10F7$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7858 1022  ."  CURRENT IMAGE L 7858 1022 C1E1 0004 C161 0008 161D 04E1 0008 ." .. .. .a .. .. .. ..L  NEW IMAGE: CHECKSUM = 10F7 L 7858 10F7 C1E1 0004 C161 0008 161D 04E1 0008 .. .. .. .a .. .. .. ..L <1333> EC <1334> .ENDIF <1335> *$  <1336> @************************************************************* @ <1337> * > <1338> *=P0476 GRJ03/25/80STR #056963.3.2 CASHAN > <1339> * B <1340> * IF THE RECORD SWITCH OF A CASSETTE IS IN THE OFF ORBD! <1341> * LOCAL POSITION AND AN ATTEMPT IS MADE TO WRITE TO IT,DJ$ <1342> * AN ERROR >7 IS CORRECTLY RETURNED. HOWEVER ON A SUBSEQUENT J> <1343> * ATTEMPT, THE SYSTEM WILL CRASH WITH A CODE >20 > <1344> *  <1345> *#SYN S733,DSR733  <1346> * $ <1347> .IF "@DSR733", NE, NONE $( <1348> .EVAL CASHAN="@DSR733+>0566"(: <1349> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0092,:& <1350>  V=>2260,D=>0A89,C=>0A89 & <1351> EC: <1352> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0094,:. <1353> V=@CASHAN+>0158,D=>1000,C=>1000 . <1354> EC@: <1355> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0096,:& <1356>  V=>1602,D=>1702,C=>1702 & <1357> EC: <1358> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C0,:& <1359>  V=>2260,D=>0A89,C=>0A89 & <1360> EC: <1361> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C2,:. <1362> V=@CASHAN+>0158,D=>1000,C=>1000 . <1363> EC: <1364> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C4,:& <1365>  V=>1302,D=>1802,C=>1802 & <1366> EC: <1367> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0134,:> <1368> V=@CASHAN+>014C,D=@CASHAN+>0150,C=@CASHAN+>0150 >R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1369> EC: <1370> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>014E,:& <1371>  V=>4000,D=>0000,C=>0000 & <1372> EC <13473> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0150,4. <1374> V=@CASHAN+>0156,D=>0000,C=>0000 . <1375> EC: <1376> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0152,:. <1377> V=@CASHAN+>01F0,D=>4000,C=>4000 . <1378> EC: <1379> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0154,:6 <1380> V=>0001,D=@CASHAN+>015A,C=@CASHAN+>015A 6 <1381> EC: <1382> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0156,:6 <1383> V=>1300,D=@CASHAN+>01F0,C=@CASHAN+>01F0 6 <1384> EC: <1385> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0158,:6 <1386> V=(>0100,>1000),D=(>0001,>1300),C=>1301 6 <1387> EC: <1388> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>016C,:> <1389> V=@CASHAN+>0152,D=@CASHAN+>0156,C=@CASHAN+>0156 > <1390> EC, <1391> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=,@CASHAN+>0254,& <1392>  V=>2260,D=>0A89,C=>0A89 & <1393> EC: <1394> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0256,:. <1395> V=@CASHAN+>0158,D=>1000,C=>1000 . <1396> EC: <1397> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0258,:& <1398>  V=>1302,D=>1802,C=>1802 & <1399> EC: <1400> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0164,:& <1401>  V=>2260,D=>0A49,C=>0A49 & <1402> EC: <1403> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0166,:. <1404> V=@CASHAN+>015A,D=>1000,C=>1000 . <1405> EC: <1406> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0168,:& <1407>  V=>16EE,D=>17EE,C=>17EE & <1408> EC <1409> .SYN CASHAN="" <1410> .ENDIF <1411> *$J$ <1412> ************************************************************* J R(B0000B0000B0000B0000B0003C0108B0000B0000B0000B0000B0000B0000C01587F293F D$DA0011RR(C0168C02D4B0000B0000B0000C0168B0000BFF00B0000B0000B0000B0000B00247F242F D$DA0012RR(BF000C01CEB0000C019AC02D4B0000B0000B464DB3031B0000B0000B0000B00007F20FF D$DA0013RR(B0000B0000B0000B0000B0000B0000B0000C00D8B0000B0000B0000B0000B00007F292F D$DA0014RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0015RR(B0000B0000B8000C0B1EB0000C015EB0000C01D4B0000B0000A01D4A01E8C01F47F1F7F D$DA0016RR(A01EAA01F4A02D0B454FB5300A02D4B0000B0000B0000B0000B0024BF000C033A7F1E2F D$DA0017RR(B0000C0306C0440B0000B0000B464DB3032B0000B0000B0000B0000B0000B00007F272F D$DA0018RR(B0000B0000B0000B0000B0000C00D8B0000B0000B0000B0000B0000B0000B00007F292F D$DA0019RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0020RTR(B8000C0B1EB0000C015EB0000C0340C01D0C01D2A0340A0354C0360A0356A03607F1FCF D$DA0021RR(A043CB454FB5300A0440B0000B0000B0000B0000B0024BF000B0000B0000C04727F23AF D$DA0022RR(B0000B0000B0000B5442B4944B0000B0000B0000B0000B0000B0000B0000B00007F28BF D$DA0023RR(B0000B0000B0000C00E8B0000B0000B0000B0000B0000B0000B0000B0000B00007F291F D$DA0024RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B8000C0B1E7F27EF D$DA0025RR(B0000B0000B0000C0500C05B2B0000C04B8B0000B0000B0000B0000B0000C056A7F253F D$DA0026RR(C0148B0000B0000B000FB0905C0500B0000B0000B0000B0000B0000B0000B00007F277F D$DA0027RR(B0100B0000B0000B0000C04BCB0000B0000B5354B3031B0000B0000B0000B00567F261F D$DA0028RR(C04C8B0000B0000B0000B0000BFF00B0000B0000B0000C0520B0000C0540C05407F247F D$DA0029RR(C055EB0000B4001B0000B0000B0000B0000B0000B0110B0000B0000B0000C04B87F269F D$DA0030RTR(B0000B8480C0B1EB0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F272F D$DA0031RR(B0000B0000A0540A055EB001EB0000B0000B0000B0000B0000C061CC0148B00007F24AF D$DA0032RR(B0000B000FB0905C05B2B0000C04EEB0000B0000B0000B0000B0000B0120B00007F23FF D$DA0033RR(B0000B0000C056EC04DEB0000B5354B3032B0000B0000B0000B0056C057AB00007F21EF D$DA0034RR(B0000B0000B0000BFF00B0000B0000B0000C05D2B0000C05F2C05F2C0610B00007F223F D$DA0035RR(B4002B0000B0000B0000B0000B0000B0130B0000B0000B0000C056AB0000B84807F274F D$DA0036RR(C0B1EB0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F286F D$DA0037RR(A05F2A0610B001EB0000B0000B0000B0000B0000C0724C0138B0000B0000B000D7F248F D$DA0038RR(BA102C0664B0000B0000B0000B0000B0000B0000B0000B0060B0000B0000B00007F284F D$DA0039RR(C0620B0000B0000B4C50B3031B0000B0000B0000B0200B0000B0000B0000B00007F281F D$DA0040RTR(B0000BFF00B1770B1770B0000B0002B0000C0670C0670B00AAB0000A0670A071A7F201F D$DA0041RR(B0000B0000B0000B0000B0000C082CC0138B0000B0000B000EBA102C076CB00007F23AF D$DA0042RR(C062CB0000B0000B0000B0000B0000B0020B0000B0000B0000C0728C0642B00007F272F D$DA0043RR(B4C50B3032B0000B0000B0000B0200C0652B0000B0000B0000B0000BFF00B17707F240F D$DA0044RR(B1770B0000B0002B0000C0778C0778B00AAB0000A0778A0822B0000B0000B00007F22EF D$DA0045RR(B0000B0000C08DEC0128B0000B0000B000CB5106C0874C0AF2B0000B0000B00007F214F D$DA0046RR(B0000B0000B0000BF800B0000B0000B0000C0830B0000B0000B4453B3032C08C47F24DF D$DA0047RR(B0000B0000B0000B0000B0000B0000B0000B0000BFF00B0000B0000B0000B00007F283F D$DA0048RR(B00D2B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000BFFFF7F241F D$DA0049RR(B0000B0000B0000B0000B0000B0400B1000A089EA08A4B0000B2020B2020B20207F25DF D$DA0050RTR(B2020B0000B0000B0000B0000B0000B0120B0000B2330B3030B3030B3030A08C47F270F D$DA0051RR(A08D4B0000B0000B0000B0000B0000C0990C0128B0000B0000B000CB5106C09267F240F D$DA0052RR(C0AF2B0000C083EB0000B0000B0000B0000BF800B0000B0000B0000C08E2C08527F216F D$DA0053RR(B0000B4453B3033C0976B0000B0000B0000C0862B0000B0000B0000B0000BFF007F242F D$DA0054RR(B0000B0000B0000B0000B00D3B0000B0000B0000B0000B0000B0000B0000B00007F298F D$DA0055RR(B0000B0000B0000BFFFFB0000B0000B0000B0000B0000B0200B1000A0950A09567F234F D$DA0056RR(B0000B2020B2020B2020B2020B0000B0000B0000B0000B0000B0120B0000B23307F294F D$DA0057RR(B3030B3030B3030A0976A0986B0000B0000B0000B0000B0000C0A42C0128B00007F24EF D$DA0058RR(B0000B000CB5106C09D8C0AF2B0000C08F0B0000B0000B0000B0000BF800B00007F203F D$DA0059RR(B0000B0000C0994C0904B0000B4453B3034C0A28B0000B0000B0000C0914B00007F245F D$DA0060RTR(B0000B0000B0000BFF00B0000B0000B0000B0000B00D4B0000B0000B0000B00007F26BF D$DA0061RR(B0000B0000B0000B0000B0000B0000B0000BFFFFB0000B0000B0000B0000B00007F257F D$DA0062RR(B0100B1000A0A02A0A08B0000B2020B2020B2020B2020B0000B0000B0000B00007F273F D$DA0063RR(B0000B0120B0000B2330B3030B3030B3030A0A28A0A38B0000B0000B0000B00007F25DF D$DA0064RR(B0000B0000C0128B0000B0000B000CB5106C0A8AC0AF2B0000C09A2B0000B00007F212F D$DA0065RR(B0000B0000BF800B0000B0000B0000C0A46C09B6B0000B4453B3031C0ADAB00007F205F D$DA0066RR(B0000B0000C09C6B0000B0000B0000B0000BFF00B0000B0000B0000B0000B00097F257F D$DA0067RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000BFFFFB00007F257F D$DA0068RR(B0000B0000B0000B0000B0800B1000A0AB4A0ABAB0000B2020B2020B2020B20207F23DF D$DA0069RR(B0000B0000B0000B0000B0000B0120B0000B2330B3030B3030B3030A0ADAA0AEA7F227F D$DA0070RTR(C0A46C0830C08E2C0994B0000B0000B0000B0000B0000B0000B0000B0000BF8007F232F D$DA0071RR(B0000B0000B0000B0180B0000B0600B0000B0000B0101B0000B0000B0000B00007F29EF D$DA0072RR(C0A42B0900B8880C0B28B0000C082CBD200B0880C0B32B0000C08DEBD300B08807F1A4F D$DA0073RR(C0B3CB0000C0990BD400B0880C0B46B0000C04B8B0000B0880B0000B0000B00007F1FFF D$DA0074RR(B0000B0658B0000B0160B0000B0000B0000B0000B3228B0000A0B62A3D8AB00027F23CF D$DA0075RR(B0008B0000B0060B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2A1F D$DA0076RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0077RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0078RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000C3DF47F27DF D$DA0079RR(C411ABFFFFBFFFFA3DFAA411AB0000BFFFFBFFFFA4120A43C0B0000B0000B00007F0C5F D$DA0080RT@R(B0000B0000B0000C4448C44BAC4448C44BAB0000B0000C4448C44BAC4448C44BA7F1ABF D$DA0081RR(C443AC44A2C4448C44BAC444CC44A2C4448C44BAC4448C44BAC445EC44A2C44707F128F D$DA0082RR(C44A2C4482C44A2B0000B0000C4400C4402C4404C4406C4408C440AC440CC440E7F1CFF D$DA0083RR(C4410C4412C4414C4416C4418C441AC441CC441EC4420C4422C4424C4426C44287F1C7F D$DA0084RR(C442AC442CC442EC4430C4432C4434C4436C4438B0000B4000B2000B1000B08007F1F6F D$DA0085RR(C444AC05B2B0000C0148B0000B0000B0000B0000B0000C445CC0500C444CC01487F214F D$DA0086RR(B0000B0000B0000B0000B0000C446EC0AEAB0000C0128B0000B0000B0000B00007F247F D$DA0087RR(B0000C4480C0620C075AC0138B0000B0000B0000B0000B0000C4492C0728C44827F231F D$DA0088RR(C0138B0000B0000B0000B0000B0000BC2E0C00D2BC80AC00D2B032AB0417BC80B7F1CFF D$DA0089R:C00D2B032BB0460B0000B0000B0420B0000B00207F779F D$DA0090: 40000ADIDLE40000ADSB6UF40000ADSEXT40000ADSHAN40000ADSREN7F278F D$DA00916J500C8AQPTRS40000ASREXT40000ASRHAN50058BASADJ3044CBIDDER7F203F D$DA0092JJ304A2BIDQUE50440BIDTSB500C4BM$CNT500C6BM$LMT60021BM$SIZ7F25CF D$DA0093JJ 60400BM$SZ 53D90BPT 40000CASHAN343D6CLKPC 343D4CLKWSP7F2CBF D$DA0094JJ 50B60CMEMSZ60007COM 40000COMDSR40000COMINT60004CR  7F328F D$DA0095JJ40000CRHAN 40000CRINT 40000CRREN 40000CRSPUR60005CRT 7F310F D$DA0096JJ30590CRT91140000CRT91360003CS  60000CTRYVL500D2CURMAP7F30EF D$DA0097JJ40000D$STRT40000DDTTSB34470DINT 30A68DIODSR50A42DIOPDT7F24FF D$DA0098JJ40000DM$QUE30A54DRTWP 60006DSC 40000DSCMGR5005ADSTUNT7F2A0F D$DA0099JJ30A78DTBSY 60000DUMMY 50000DXDB 50000DXSTRT50056ENDADD7F299F D$DA0100JJ50054ENDDXL50052ENDLIM53D8AENDSTB5005EETSK 5008AFIDMAP7F22DF D$DA0101J 3033EFM$ABD3033CFM8$PC 50168FMPTSB5015EFMQSER50156FMTTSB7F248F D$DA01028J40000FPYDCD40000FPYDSR40000FPYINT40000FPYSPR40000GOREN 7F21AF D$DA0103JJ40000HAN82040000IDL820343CAIIE 343C8IIWSP 3443AILLSVC7F30BF D$DA0104JJ40000INT82050B5CIOSHBC50B58IOSMAX50B5AIOSSTA30060ITSB 7F239F D$DA0105JJ50B5EITSKCR600C8ITSKMX40000KBI7333445EKBI91140000KBI9137F293F D$DA0106JJ40000KBIADS40000KBIDLE50500KBST01505B2KBST02504A4KBTAB 7F2C3F D$DA0107JH 50B1ELDTLST60002LP3074ALPHAN 34494LPINT 30734LPSPUR7F289F D$DA0108HJ500F8MAPCMN500D8MAPFK 500D4MAPLST500E8MAPMR 50118MAPSHD7F211F D$DA0109JJ50004MAXIO 60004MAXST260002MAXSTA5004EMEMSIZ50050MEMSW 7F22DF D$DA0110JJ50128MPDS0150128MPDS0250128MPDS0350128MPDS0450138MPLP017F2D4F D$DA0111JH50138MPLP0250148MPST0150148MPST0260008MT 40000MTHAN 7F333F D$DA0112H 40000MTINT 50068NUMD6EC53DF2OADPTR500C0OF$FCB500C2OF$LDT7F249F D$DA01136J30006OVYTAB50620PDLP0150728PDLP02504ACPDTLST40000PDTSTK7F20FF D$DA0114JJ500B4PF$FCB500B6PF1LDT500B8PF2LDT500BAPF3LDT40000PFRSIB7F247F D$DA0115JJ343C0PRUPWP50B0APSBLST50B10PSBSTR50A42PSDS015082CPSDS027F1A3F D$DA0116JJ508DEPSDS0350990PSDS045061CPSLP0150724PSLP02504B8PSST017F251F D$DA0117JJ5056APSST02343C6PWRDN 343C2PWRUP 343C4PWRWSP40000RENTER7F1B9F D$DA0118JJ500BCRF$FCB500BERF$LDT5006ARIDMAP500B2RSTRID500ACRSTRSW7F1B4F D$DA0119JJ5002CSABADD50028SAHEAD50030SAHIAD5002ESATLEN53D8ASCIBMX7F21BF D$DA0120JJ53D8CSCIFMX344BCSCRASH3443CSCWSP 300D4SKI1 300E4SKI2 7F26BF D$DA0121JJ 300F4SKI3 30104SKI4 30114SKI5 30124SKI6 30134SKI7 7F40AF D$DA0122JJ30144SKIA 50062SLCNT 50064SLCTIM60006SLICE 50B55SLNFLG7F296F D$DA0123J 50B52SLNLID50B50SL8NLUN50B56SLNMCA50B54SLNQUE60006STUNIT7F172F D$DA01248J60018STUNT43443ESVCPRC50B62SYSTAB63228TABSIZ305A0TDI9117F1D8F D$DA0125JJ 40000TDI9135005CTDL 30008THEEND50066TM$DFR500B0TM$SLC7F303F D$DA0126JJ500AETM$TSV500AATMESLC50040TMTOL 50044TMTOLN50046TMTOLO7F1ABF D$DA0127JJ5004ATOLBET344B6TRAPRT40000TRTWP 50060TSKLST50452TSKSTR7F185F D$DA0128JJ60001TTY 50024UABADD5004CUAHADD50020UAHEAD50026UATLEN7F2BDF D$DA0129JJ60078UPS 500D2USVCLN6FFFFUSVCMX500D2USVCTB50AEAWPDS017F1A5F D$DA0130J543C0XY  7FD89F D$DA0131D:  D$DATA  05/17/82 14:09:56  SDSMAC 3.3.0 79.312D$DA0132DSP 300D4SKI1 300E4SKI2 7F26BF D$DA0121JJ 300F4SKI3 30104SKI4 30114SKI5 30124SKI6 30134SKI7 7F40AF D$DA0122JJ30144SKIA 50062SLCNT 50064SLCTIM60006SLICE 50B55SLNFLG7F296F D$DA0123J 50B52SLNLID50B50SLE  DS01.S$IMAGES4 LISTING ACCESS NAME  DS01.S$SYSGEN.SKI.LINKMAP4 PRINT WIDTH  80 2 LINK EDITOR COMPLETED,0 ERRORS, 0 WARNINGS2 <0017> .IF @$$CC,GE,04000H <0018> CM R=ME,M="*** ALGS - SYSTEM LINK EDIT ERROR = @$$CC ***" H> <0019>  .STOP T="*** ALGS - SYSTEM LINK EDIT ERROR ***"> <0020> .ENDIFF" <0021> ******************** RUN SYNONYM ASSIGNMENT PROG ******** F6 <0022> XPS  LINK = DS01.S$SYSGEN.SKI.LINKMAP,6* <0023>  INPUT = DS01.PATCH.MEMRES,*4 <0024>  OUTPUT = DS01.S$SYSGEN.SKI.PATCHFIL, 40 <0025>  ERROR = DS01.S$SYSGEN.SKI.ERROR 0$ LINK DS01.S$SYSGEN.SKI.LINKMAP$ INPUT DS01.PATCH.MEMRES( OUTPUT  DS01.S$SYSGEN.SKI.PATCHFIL ($ ERROR DS01.S$SYSGEN.SKI.ERROR$  STOP 0  NORMAL PROGRAM COMPLETION  <00 26> .SYN $$CC ="@$XPS$E" <0027> .IF @$$CC,GT,00000. <0028>  .SHOW DS01.S$SYSGEN.SKI.ERROR . <0029> .ENDIF <0030> .IF @$$CC,GE,08000R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RP <0031> ! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***" PF <0032>  .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***" F <0033> .ENDIF <0034> .IF @$$CC,GT,00000R <0035> " CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC **RJ <0036>  .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***" J <0037> .ENDIF: <0038> CM R=ME,M="*** ALGS - NORMAL TERMINATION ***" :" RECEIVING TERMINAL NAME  ME ", MSG  *** ALGS - NORMAL TERMINATION ***,6 <0039> .STOP T="*** ALGS - NORMAL TERMINATION ***6@> SDSLNK  3.3.079.200 05/17/82 14:12:02 PAGE 1> COMMAND LIST   NOSYMT$  FORMAT IMAGE,REPLACE PROCEDURE DUMMY   DUMMY $ " INCLUDE DS01.S$SYSGEN.DUMMY " ADJUST 5 SYSTEM ROOT  TASKSKI !( INCLUDE DS01.S$SYSGEN.SKI.D$OBJECT(" INCLUDE DS01.S$SYSGEN.SYSLGY"  INCLUDE DS01.S$SYSGEN.ROOT ( ADJUST 5 FILE MANAGEMENT AND KIF ( PHASE 1,SKI1!" INCLUDE DS01.S$SYSGEN.FILMG "" INCLUDE DS01.S$SYSGEN.DUMKIF"& ADJUST 5 MEMORY RESIDENT TASKS & PHASE 1,SKI2!" INCLUDE DS01.S$SYSGEN.MEMRES" ADJUST 5 SYSTEM COMMON  PHASE 1,SKI3!" INCLUDE DS01.S$SYSGEN.DUMCOM" ADJUST 5 I/O COMMON PHASE 1,SKI4!" INCLUDE DS01.S$SYSGEN.IOCOM "" INCLUDE DS01.S$SYSGEN.NOCOMM" AD, Y ISL$& .ENDIF% 6.BID TASK=>1E,CODE=0,PARMS=("&ATTENTION DEVICE",6 "&LOGGING DEVICE", @$ISL$P)$ .SYN $ISL$P="" JUST 5 SVC AND I/O  PHASE 2,SKI5!" INCLUDE DS01.S$SYSGEN.SVCIO "" INCLUDE DS01.S$SYSGEN.NOFCCC"" INCLUDE DS01.S$SYSGEN.SYSLOG" ADJUST 5 DISK PHASE 2,SKI6!" INCLUDE DS01.S$SYSGEN.DDIOSR" ADJUST 5 LINE PRINTER PHASE 2,SKI7!" INCLUDE DS01.S$SYSGEN.LPDSR " ADJUST 5 911 CRT  PHASE 2,SKIA!" INCLUDE DS01.S$SYSGEN.DSR911"  END %  '> SDSLNK  3.3.079.200 05/17/82 14:12:02 PAGE 2> LINK MAP "0 CONTROL FILE = DS01.S$SYSGEN.SKI.LINKSTRM 0 '( LINKED OUTPUT FILE = DS01.S$IMAGES( ', LIST FILE = DS01.S$SYSGEN.SKI.LINKMAP , '$ NUMBER OF OUTPUT RECORDS = 236$ ' OUTPUT FORMAT = IMAGE  ' ', SDSLNK  3.3.079.200 05/17/82 14:,  <1413> * > <1414> *=P0490 GCH04/11/80STR #062063.3.2 IOCOMX > <1415> * H# <1416> * THE CHARACTER QUE IN THE PDT WILL BE DESTROYED IF A TASK HF" <1417> * OPENS A TERMINAL FOR EVENT CHARACTERS AND SUBSEQUENTLY FJ$ <1418> * USES A SHORT FORM PRB. THIS MIGHT BE OBSERVED AS A SINGLE JF" <1419> * EVENT CHARACTER CAUSING TWO I/O CALLS TO BE TERMINATED.F <1420> * L% <1421> * NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH.L <1422> *  <1423> *#SYN IOC,IOCOM  <1424> *#SYN SROOT,ROOT <1425> *#SYN S911,DSR911 " <1426> *#SYN S911PF,DSR911PF " <1427> * & <1428> .EVAL TM$INT="@ROOT+>26D4"&R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1429> * ( <1430> MPI PF=IMAGE,MT=TA,MN=@SROOT( ,ADR=@TM$INT+>0182, : <1431> V=(@TM$INT+>0186,@TM$INT+>01A6,>0000,>0000),:2 <1432> D=(>04C6,>C264,>0002,>1612),C=>D0B2 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>0182< VERIFICATION DATA  27782+>0186,27782+>01A6,>0000,>0000<" DATA >04C6,>C264,>0002,>1612" CHECKSUM  >D0B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6E08 6E0C 6E2C 0000 0000  n. n, .. .., CURRENT IMAGE L 6E08 6E0C 6E2C 0000 0000 0000 0000 0000 0000 n. n, .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D0B2 L 6E08 04C6 C264 0002 1612 0000 0000 0000 0000 .. .d .. .. .. .. .. ..L <1433> EC< <1434> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>018A, <* <1435> V=(>0000,>0000,>0000,>0000),* <1436> D=$(>100F,>C264,>0002,>0609),C=>D460 $ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>018A0 VERIFICATION DATA  >0000,>0000,>0000,>00000" DATA >100F,>C264,>0002,>0609" CHECKSUM  >D460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6E10 0000 0000 0000 0000  .. .. .. .., CURRENT IMAGE L 6E10 0000 0000 0000 0000 0000 0000 0000 0000 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D460 L 6E10 100F C264 0002 0609 0000 0000 0000 0000 .. .d .. .. .. .. .. ..L <1437> EC< <1438> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0192, <* <1439> V=(>0000,>0000,>0000,>0000),*2 <1440> D=(>1608,>C186,>1306,>0624),C=>C2AC 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01920 VERIFICATION DATA  >0000,>0000,>0000,>00000" DATA >1608,>C186,>1306,>0624" CHECKSUM  >C2AC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6E18 0000 0000 0000 0000  .. .. .. .., CURRENT IMAGE L 6E18 0000 0000 0000 0000 6E76 0000 0000 0000 .. .. .. .. nv .. .. ..L  NEW IMAGE: CHECKSUM = C2AC L 6E18 1608 C186 1306 0624 6E76 0000 0000 0000 .. .. .. .$ nv .. .. ..L <1441> EC< <1442> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>019A, <2 <1443> V=(@TM$INT+>01F0,>0000,>0000,>0000),22 <1444> D=(>0006,>C024,>0006,>D406),C=>1422 2 PROGRAM FILE IMAGE MODULE TYPE  TA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE NAME OR ID  2 ADDRESS  27782+>019A6 VERIFICATION DATA  27782+>01F0,>0000,>0000,>00006" DATA >0006,>C024,>0006,>D406" CHECKSUM  >1422$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6E20 6E76 0000 0000 0000  nv .. .. .., CURRENT IMAGE L 6E20 6E76 0000 0000 0000 0000 0000 0201 0014 nv .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1422 L 6E20 0006 C024 0006 D406 0000 0000 0201 0014 .. .$ .. .. .. .. .. ..L <1445> EC< <1446> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01A2, <* <1447> V=(>0000,>0000,>0201,>0014),*2 <1448> D=(>1003,>0624,>0002,>1602),C=>0027 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01A20 VERIFICATION DATA  >0000,>0000,>0201,>00140" DATA >1003,>0624,>0002,>1602" CHECKSUM  >0027$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6E28 0000 0000 0201 0014  .. .. .. .., CURRENT IMAGE L 6E28 0000 0000 0201 0014 06A0 5A7C 6E6E C8A0 .. .. .. .. .. Z| nn ..L  NEW IMAGE: CHECKSUM = 0027 L 6E28 1003 0624 0002 1602 06A0 5A7C 6E6E C8A0 .. .$ .. .. .. Z| nn ..L <1449> EC< <1450> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01AA, <2 <1451> V=(>06A0,@ROOT+>14CA,@TM$INT+>01E8),2, <1452> D=(>C19B,>0380,>0460),C=>C67B , PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01AA6 VERIFICATION DATA  >06A0,>45B2+>14CA,27782+>01E86 DATA >C19B,>0380,>0460 CHECKSUM  >C67B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E30 06A0 5A7C 6E6E  .. Z| nn  CURRENT IMAGE L 6E30 06A0 5A7C 6E6E C8A0 47FC 0006 C8A0 6E70 .. Z| nn .. G. .. .. npL  NEW IMAGE: CHECKSUM = C67B L 6E30 C19B 0380 0460 C8A0 47FC 0006 C8A0 6E70 .. .. .` .. G. .. .. npL <1453> EC< <1454> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B0, <4 <1455> V=>C8A0,D=@IOCOM+>02D0,C=@IOCOM+>02D0 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01B0 VERIFICATION DATA  >C8A0 DATA  >6F00+>02D0 CHECKSUM  >6F00+>02D0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R 6E36 C8A0  ..  CURRENT IMAGE L 6E36 C8A0 47FC 0006 C8A0 6E70 0008 C8A0 6E72 .. G. .. .. np .. .. nrLN  NEW IMAGE: CHECKSUM = 71D0 L 6E36 71D0 47FC 0006 C8A0 6E70 0008 C8A0 6E72 q. G. .. .. np .. .. nrL <1456> EC< <1457> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B2, <* <1458> V=(@ROOT+>024A,>0006,>C8A0),*, <1459> D=(>0624,>0006,>0460),C=>0242 , PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01B20 VERIFICATION DATA  >45B2+>024A,>0006,>C8A00 DATA >0624,>0006,>0460 CHECKSUM  >0242$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 6E38 47FC 0006 C8A0  G. .. .. & CURRENT IMAGE L 6E38 47FC 0006 C8A0 6E70 0008 C8A0 6E72 000A G. .. .. np .. .. nr ..L  NEW IMAGE: CHECKSUM = 0242 L 6E38 0624 0006 0460 6E70 0008 C8A0 6E72 000A .$ .. .` np .. .. nr ..L <1460> ECL@< <1461> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B8, << <1462> V=@TM$INT+>01EA,D=@IOCOM+>032E,C=@IOCOM+>032E < PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01B8$ VERIFICATION DATA  27782+>01EA$ DATA  >6F00+>032E CHECKSUM  >6F00+>032E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E3E 6E70  np  CURRENT IMAGE L 6E3E 6E70 0008 C8A0 6E72 000A D8A0 6E74 000E np .. .. nr .. .. nt ..L  NEW IMAGE: CHECKSUM = 722E L 6E3E 722E 0008 C8A0 6E72 000A D8A0 6E74 000E r. .. .. nr .. .. nt ..L <1463> EC< <1464> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01BA, <2 <1465> V=(>0008,>C8A0,@TM$INT+>01EC,>000A),22 <1466> D=(>C186,>1306,>0624,>0006),C=>D4A2 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01BA6 VERIFICATION DATA  >0008,>C8A0,27782+>01EC,>000A6" DATA >C186,>1306,>0624,>0006" CHECKSUM  >D4A2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6E40 0008 C8A0 6E72 000A  .. .. nr .., CURRENT IMAGE L 6E40 0008 C8A0 6E72 000A D8A0 6E74 000E 04C1 .. .. nr .. .. nt .. ..L  NEW IMAGE: CHECKSUM = D4A2 L 6E40 C186 1306 0624 0006 D8A0 6E74 000E 04C1 .. .. .$ .. .. nt .. ..L <1467> EC< <1468> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01C2, <R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R2 <1469> V=(>D8A0,@TM$INT+>01EE,>000E,>04C1),22 <1470> D=(>C024,>0006,>D406,>1002),C=>0426 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01C26 VERIFICATION DATA  >D8A0,27782+>01EE,>000E,>04C16" DATA >C024,>0006,>D406,>1002" CHECKSUM  >0426$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6E48 D8A0 6E74 000E 04C1  .. nt .. .., CURRENT IMAGE L 6E48 D8A0 6E74 000E 04C1 D881 000C D881 000D .. nt .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0426 L 6E48 C024 0006 D406 1002 D881 000C D881 000D .$ .. .. .. .. .. .. ..L <1471> EC< <1472> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01CA, <* <1473> V=(>D881,>000C,>D881,>000D),*2 <1474> D=(>0624,>0002,>046B,>0004),C=>0249 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01CA VERIFICATION DATA  >D8 81,>000C,>D881,>000D" DATA >0624,>0002,>046B,>0004" CHECKSUM  >0249$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6E50 D881 000C D881 000D  .. .. .. .., CURRENT IMAGE L 6E50 D881 000C D881 000D D881 000F D881 0010 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0249 L 6E50 0624 0002 046B 0004 D881 000F D881 0010 .$ .. .k .. .. .. .. ..L <1475> EC8 <1476> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C2,8& <1477>  V=>C024,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>02C2 VERIFICATION DATA  >C024 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  71C2 C024  .$  CURRENT IMAGE   71C2 D C024 0002 1602 C19B 0380 0624 0002 C024 .$ .. .. .. .. .$ .. .$D  NEW IMAGE: CHECKSUM = 0460 L 71C2 0460 0002 1602 C19B 0380 0624 0002 C024 .` .. .. .. .. .$ .. .$L <1478> EC8 <1479> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C4,86 <1480> V=>0002,D=@TM$INT+>0182,C=@TM$INT+>0182 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>02C4 VERIFICATION DATA  >0002 DATA  27782+>0182R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CHECKSUM  27782+>0182$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  71C4 0002  ..  CURRENT IMAGE L 71C4 0002 1602 C19B 0380 0624 0002 C024 0006 .. .. .. .. .$ .. .$ ..L  NEW IMAGE: CHECKSUM = 6E08  71C4 6 BE08 1602 C19B 0380 0624 0002 C024 0006 n. .. .. .. .$ .. .$ ..B <1481> EC8 <1482> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C6,8* <1483> V=(>1602,>C19B,>0380,>0624),*2 <1484> D=(>1000,>1000,>1000,>0460),C=>1460 2 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>02C60 VERIFICATION DATA  >1602,>C19B,>0380,>06240" DATA >1000,>1000,>1000,>0460" CHECKSUM  >1460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 71C6 1602 C19B 0380 0624  .. .. .. .$, CURRENT IMAGE L 71C6 1602 C19B 0380 0624 0002 C024 0006 8900 .. .. .. .$ .. .$ .. ..L  NEW IMAGE: CHECKSUM = 1460 L 71C6 1000 1000 1000 0460 0002 C024 0006 8900 .. .. .. .` .. .$ .. ..L <1485> EC <1486> MPI PF=IMAGE,MT=OV ,MN=@IOC,ADR=@IOCOM+>02CE,6 <1487> V=>0002,D=@TM$INT+>018C,C=@TM$INT+>018C 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>02CE VERIFICATION DATA  >0002 DATA  27782+>018C CHECKSUM  27782+>018C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  71CE 0002  ..  CURRENT IMAGE L 71CE 0002 C024 0006 8900 0008 1A01 6010 04C9 .. .$ .. .. .. .. `. ..L  NEW IMAGE: CHECKSUM = 6E12 L 71CE 6E12 C024 0006 8900 0008 1A01 6010 04C9 n. .$ .. .. .. .. `. ..L <1488> EC8 <1489> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0300,8* <1490> V=(>13E0),D=(>13E5),C=>13E5 * PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>0300  VERIFICA TION DATA  >13E0 DATA  >13E5 CHECKSUM  >13E5$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7200 13E0  ..  CURRENT IMAGE L 7200 13E0 C009 C264 FFFE C269 FFFC C269 0004 .. .. .d .. .i .. .i ..L  NEW IMAGE: CHECKSUM = 13E5 L 7200 13E5 C009 C264 FFFE C269 FFFC C269 0004 .. .. .d .. .i .. .i ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1491> EC8 <1492> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0312,8* <1493> V=(>17D7),D=(>17DC),C=>17DC * PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>0312 VERIFICATION DATA  >17D7 DATA  >17DC CHECKSUM  >17DC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA   7212  17D7  ..  CURRENT IMAGE L 7212 17D7 C240 C024 FFFE 05C0 E420 4818 C010 .. .@ .$ .. .. . H. ..L  NEW IMAGE: CHECKSUM = 17DC L 7212 17DC C240 C024 FFFE 05C0 E420 4818 C010 .. .@ .$ .. .. . H. ..L <1494> EC8 <1495> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0324,86 <1496> V=(>1804,>05A4),D=(>1802,>0460),C=>1C62 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>0324$ VERIFICATION DATA  >1804,>05A4$ DATA  >1802,>0460 CHECKSUM  >1C62$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7224 1804 05A4 .. .. CURRENT IMAGE L 7224 1804 05A4 0002 0624 0006 C2EB 0002 045B .. .. .. .$ .. .. .. .[L  NEW IMAGE: CHECKSUM = 1C62 , 7224 1802 0460 0002 0624 0006 C2EB 000,"2 045B .. .` .. .$ .. .. .. .[" <1497> EC8 <1498> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0328,86 <1499> V=>0002,D=@TM$INT+>01B2,C=@TM$INT+>01B2 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>0328 VERIFICATION DATA  >0002 DATA  27782+>01B2 CHECKSUM  27782+>01B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7228 0002  ..  CURRENT IMAGE L 7228 0002 0624 0006 C2EB 0002 045B 046B 0004 .. .$ .. .. .. .[ .k ..L  NEW IMAGE: CHECKSUM = 6E38 L 7228 6E38 0624 0006 C2EB 0002 045B 046B 0004 n8 .$ .. .. .. .[ .k ..L <1500> EC8 <1501> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>032A,86 <1502> V=(>0624,>0006),D=(>0624,>0002),C=>0626 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>032A$ VERIFICATION DATA  >0624,>0006$ DATA  >0624,>0002R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CHECKSUM  >0626$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  722A 0624 0006 .$ .. CURRENT IMAGE L 722A 0624 0006 C2EB 0002 045B 046B 0004 1700 .$ .. .. .. .[ .k .. ..L  NEW IMAGE: CHECKSUM = 0626 L 722A 0624 0002 C2EB 0002 045B 046B 0004 1700 .$ .. .. .. .[ .k .. ..L <1503> EC8 <1504> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0334,8& <1505>  V=>046B,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>0334 VERIFICATION DATA  >046B  DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7234 046B  .k  CURRENT IMAGE L 7234 046B 0004 1700 21A0 4814 1305 96CA 1658 .k .. .. !. H. .. .. .XL  NEW IMAGE: CHECKSUM = 0460 L 7234 0460 0004 1700 21A0 4814 1305 96CA 1658 .` .. .. !. H. .. .. .XL <1506> EC8 <1507> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0336,86 <1508> V=>0004,D=@TM$INT+>01BA,C=@TM$INT+>01BA 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  14  ADDRESS  >6F00+>0336 VERIFICATION DATA  >0004 DATA  27782+>01BA CHECKSUM  27782+>01BA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7236 0004  ..  CURRENT IMAGE 8 7236 0004 1700 21A0 4814 1305 96CA 1658 E1A0 .. 8 .. !. H. .. .. .X ..  NEW IMAGE: CHECKSUM = 6E40 L 7236 6E40 1700 21A0 4814 1305 96CA 1658 E1A0 n@ .. !. H. .. .. .X ..L <1509> EC <1510> * $ <1511> .IF @DSR911 ,NE, "NONE" $ <1512> * : <1513> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A0,:& <1514>  V=>06A0,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>02A0 VERIFICATION DATA  >06A0 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AA0 06A0  ..  CURRENT IMAGE L 7AA0 06A0 6F2C 0380 C261 0006 C849 0008 130E .. o, .. .a .. .I .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 0460  7AA0D 0460 6F2C 0380 C261 0006 C849 0008 130E .` o, .. .a .. .I .. ..D <1515> EC: <1516> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A2,:< <1517> V=@IOCOM+>002C,D=@TM$INT+>01D2,D=@TM$INT+>01D2< PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>02A2$ VERIFICATION DATA  >6F00+>002C$ DATA  27782+>01D2 CHECKSUM  ** NULL ** $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AA2 6F2C  o,  CURRENT IMAGE L 7AA2 6F2C 0380 C261 0006 C849 0008 130E C2A1 o, .. .a .. .I .. .. ..L  NEW IMAGE: CHECKSUM = 6E58 L 7AA2 6E58 0380 C261 0006 C849 0008 130E C2A1 nX .. .a .. .I .. .. ..L <1518> EC< <1519> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, <& <1520>  V=>D881,D=>06A0,C=>06A0 &@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01D2 VERIFICATION DATA  >D881 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E58 D881  ..  CURRENT IMAGE L 6E58 D881 000F D881 0010 D881 0011 C881 0012 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 6E58 06A0 000F D881 0010 D881 0011 C881 0012 .. .. .. .. .. .. .. ..L <1521> EC< <1522> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, <4 <1523> V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01D4 VERIFICATION DATA  >000F DATA  >6F00+>002C CHECKSUM  >6F00+>002C OUTPUT ACCESS NAME ** NULL **  VERIFICATION DATA  6E5A 000F  ..  CURRENT IMAGE L 6E5A 000F D881 0010 D881 0011 C881 0012 06A0 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6F2C L 6E5A 6F2C D881 0010 D881 0011 C881 0012 06A0 o, .. .. .. .. .. .. ..L <1524> EC< <1525> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, <& <1526>  V=>D881,D=>0206,C=>0206 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01D6R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA  >D881 DATA  >0206 CHECKSUM  >0206$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E5C D881  ..  CURRENT IMAGE , 6E5C D881 0010 D881 0011 C881 0012 06A,"0 4560 .. .. .. .. .. .. .. E`"  NEW IMAGE: CHECKSUM = 0206 L 6E5C 0206 0010 D881 0011 C881 0012 06A0 4560 .. .. .. .. .. .. .. E`L <1527> EC< <1528> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, <6 <1529> V=>0010,D=@DSR911+>01B2,C=@DSR911+>01B2 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01D8 VERIFICATION DATA  >0010 DATA  >7800+>01B2 CHECKSUM  >7800+>01B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E5E 0010  ..  CURRENT IMAGE L 6E5E 0010 D881 0011 C881 0012 06A0 4560 6E6E .. .. .. .. .. .. E` nnL  NEW IMAGE: CHECKSUM = 79B2 L 6E5E 79B2 D881 0011 C881 0012 06A0 4560 6E6E y. .. .. .. .. .. E` nnL <1530> EC  <1531> MPI PF=IMAGE,MT=TA,M N=@SROOT,ADR=@TM$INT+>01DA, & <1532>  V=>D881,D=>0380,C=>0380 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01DA VERIFICATION DATA  >D881 DATA  >0380 CHECKSUM  >0380$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E60 D881  ..  CURRENT IMAGE L 6E60 D881 0011 C881 0012 06A0 4560 6E6E 0380 .. .. .. .. .. E` nn ..L  NEW IMAGE: CHECKSUM = 0380 L 6E60 0380 0011 C881 0012 06A0 4560 6E6E 0380 .. .. .. .. .. E` nn ..L <1533> EC <1534> *  <1535> .ENDIF <1536> * & <1537> .IF @DSR911PF ,NE, "NONE" & <1538> * > <1539> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FC,>& <1540>  V=>06A0,D=>0460,C=>0460 & <1541> EC <1542> MPI PF.=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FE,.< <1543> V=@IOCOM+>002C,D=@TM$INT+>01D2,C=@TM$INT+>01D2< <1544> EC< <1545> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, <& <1546>  V=>D881,D=>06A0,C=>06A0 & <1547> EC< <1548> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, <R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R4 <1549> V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C 4 <1550> EC< <1551> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, <& <1552>  V=>D881,D=>0206,C=>0206 & <1553> EC< <1554> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, <: <1555> V=>0010,D=@DSR911PF+>0240,C=@DSR911PF+>0240 : <1556> EC< <1557> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, <& <1558>  V=>D881,D=>0380,C=>0380 &   <1559> EC  <1560> *  <1561> .ENDIF <1562> *  <1563> .SYN TM$INT="" <1564> *$J$ <1565> ************************************************************* J <1566> * > <1567> *=P0496 RVL04/18/80STR #061473.3.2 DSR820 > <1568> * D! <1569> * THE REQUEST TO SEND FLAG IS INCORRECTLY REFERENCED IND <1570> * THE 820 DSR.  <1571> * $ <1572> .IF "@DSR820" ,NE, NONE $: <1573> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>00A6,:> <1574> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1575> EC: <1576> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0174,:> <1577> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1578> EC: <1579> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01CE,:( <1580>  V=@DSR820+>05CC,D=@DSR820+( >05CA,C=@DSR820+>05CA  <1581> EC: <1582> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01F8,:> <1583> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1584> EC: <1585> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0490,:> <1586> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1587> EC: <1588> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04B4,:> <1589> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1590> EC <1591> .ENDIF <1592> *$J$ <1593> ************************************************************* J <1594> * > <1595> *=P0499 RVL04/21/80STR #061133.3.2 DSR911 > <1596> * F" <1597> * IF CHARACTERS ARE ENTERED INTO AN ECHO SUPPRESSED FIELDFH# <1598> * AND THE ERASE INPUT KEY IS DEPRESSED AND MORE CHARACTERS H F" <1599> * ARE INPUT PRIOR TO DEPRESSING THE RETURN KEY, THE SYSTEM F, <1600> * WILL CRASH WITH A >22 CRASH. , <1601> * L% <1602> * NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH L <1603> *#SYN SLGY,SYSLGY  <1604> * & <1605> .EVAL TM$INT="@ROOT+>26D4"&$ <1606> .IF "@DSR911" ,NE, NONE $: <1607> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0320,:$ <1608>  V=>06A0,D=>0460,C=>460$R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>0320 VERIFICATION DATA  >06A0 DATA  >0460 CHECKSUM  >460 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B20 06A0  ..  CURRENT IMAGE  7B20D 06A0 7E4A 04E4 0034 1D0F 36CA 890A 0032 .. ~J .. .4 .. 6. .. .2D  NEW IMAGE: CHECKSUM = 0460 L 7B20 0460 7E4A 04E4 0034 1D0F 36CA 890A 0032 .` ~J .. .4 .. 6. .. .2L <1609> EC: <1610> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0322,:> <1611> V=@DSR911+>064A,D=@TM$INT+>01DC,C=@TM$INT+>01DC > PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>0322$ VERIFICATION DATA  >7800+>064A$ DATA  27782+>01DC CHECKSUM  27782+>01DC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B22 7E4A  ~J  CURRENT IMAGE L 7B22 7E4A 04E4 0034 1D0F 36CA 890A 0032 1402 ~J .. .4 .. 6. .. .2 ..L  NEW IMAGE: CHECKSUM = 6E62 L 7B22 6E62 04E4 0034 1D0F 36CA 890A 0032 1402 nb .. .4 .. 6. .. .2 ..L <1612> EC< <1613> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, <B <1614> V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01DC* VERIFICATION DATA  >0011,>C881,>0012* DATA >04E1,>0008,>06A0 CHECKSUM  >0249$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 6E62 0011 C881 0012  .. .. .. & CURRENT IMAGE L 6E62 0011 C881 0012 06A0 4560 6E6E 0380 4D45 .. .. .. .. E` nn .. MEL  NEW IMAGE: CHECKSUM = 0249 L 6E62 04E1 0008 06A0 06A0 4560 6E6E 0380 4D45 .. .. .. .. E` nn .. MEL <1615> EC< <1616> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, <6 <1617> V=>06A0,D=@DSR911+>064A,C=@DSR911+>064A 6 PROGRAM FILE IMAGE@ MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01E2 VERIFICATION DATA  >06A0 DATA  >7800+>064A CHECKSUM  >7800+>064A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R 6E68 06A0  ..  CURRENT IMAGE L 6E68 06A0 4560 6E6E 0380 4D45 4D20 4E00 0000 .. E` nn .. ME M N. ..L  NEW IMAGE: CHECKSUM = 7E4A L 6E68 7E4A 4560 6E6E 0380 4D45 4D20 4E00 0000 ~J E` nn .. ME M N. ..L <1618> EC< <1619> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, <( <1620>  V=@SYSLGY,D=>0460,C=>0460 ( PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01E4 VERIFICATION DATA  >4560  DATA  > 0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E6A 4560  E`  CURRENT IMAGE L 6E6A 4560 6E6E 0380 4D45 4D20 4E00 0000 0000 E` nn .. ME MN. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 6E6A 0460 6E6E 0380 4D45 4D20 4E00 0000 0000 .` nn .. ME MN. .. ..L <1621> EC< <1622> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, <> <1623> V=@TM$INT+>01E8,D=@DSR911+>0324,C=@DSR911+>0324 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  27782+>01E6$ VERIFICATION DATA  27782+>01E8$ DATA  >7800+>0324 CHECKSUM  >7800+>0324$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E6C 6E6E  nn  CURRENT IMAGE * 6E6C 6E6E 0380 4D45 4D20 4E00 0000 0*$000 0000 nn .. ME M N. .. .. ..$  NEW IMAGE: CHECKSUM = 7B24 L 6E6C 7B24 0380 4D45 4D20 4E00 0000 0000 0000 {$ .. ME M N. .. .. ..L <1624> EC <1625> .ENDIF& <1626> .IF "@DSR911PF" ,NE, NONE &> <1627> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048C,>$ <1628>  V=>06A0,D=>0460,C=>460$ <1629> EC> <1630> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048E,>@ <1631> V=@DSR911PF+>08CA,D=@TM$INT+>01DC,C=@TM$INT+>01DC @ <1632> EC< <1633> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, <B <1634> V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 B <1635> EC< <1636> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, <: <1637> V=>06A0,D=@DSR911PF+>064A,C=@DSR911PF+>064A : <1638> EC0 <1639> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM0$INT+>01E4, ( <1640>  V=@SYSLGY,D=>0460,C=>0460 ( <1641> EC< <1642> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, <B <1643> V=@TM$INT+>01E8,D=@DSR911PF+>0490,C=@DSR911PF+>0490 B <1644> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1645> .ENDIF <1646> .SYN TM$INT="": <1647> *$ ! NOTE: THIS PATCH MODIFIED BY PATCH 649 :J$ <1648> ************************************************************* J <1649> * > <1650> *=P0507 RVL04/23/80STR #057543.3.2 DSR820 > <1651> * D! <1652> * IF THE 820 IS PUT INTO THE LOCAL MODE AND BACK ONLINEDH# <1653> * WHILE PROCESSING I/O, THE REQUEST TO SEND SIGNAL IS NEVERHB <1654> * RESET. IN ADDITION, IF THE 820 IS PROCESSING A READB <1655> * REQUEST AND T0HE SWITCH IS PLACED IN THE LOCAL POSITION, THE00 <1656> * TASK AND/OR SCI IS NEVER ABORTED.0 <1657> * F" <1658> * NOTE: PATCH 0460 MUST BE APPLIED PRIOR TO THIS PATCH. F <1659> *#SYN S820,DSR820  <1660> * $ <1661> .IF "@DSR820" ,NE, NONE $& <1662> .EVAL TM$INT="@ROOT+>26D4"&: <1663> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03D8,:& <1664>  V=>1F0D,D=>0460,C=>0460 & <1665> EC: <1666> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03DA,:6 <1667> V=>160E,D=@TM$INT+>01F6,C=@TM$INT+>01F6 6 <1668> EC< <1669> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01F6, <0 <1670> V=(>0000,>0000,>0000,>0000,>0000),08 <1671> D=(>1F0D,>1609,>1F0E,>1602,>0460),C=>0468 8 <1672> EC< <1673> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0200, <  <1674 .> V=>0000,D=@DSR820+>03DC,C=@DSR820+>03DC . <1675> EC< <1676> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0202, <$ <1677>  V=(>0000,>0000,>0000),$, <1678> D=(>0262,>0400,>0206),C=>0464 , <1679> EC< <1680> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0208, <6 <1681> V=>0000,D=@TM$INT+>01F6,C=@TM$INT+>01F6 6 <1682> EC< <1683> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020A, <6 <1684> V=(>0000,>0000),D=(>0380,>0460),C=>07E0 6 <1685> EC< <1686> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020E, <6 <1687> V=>0000,D=@DSR820+>03F8,C=@DSR820+>03F8 6 <1688> EC: <1689> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F0,:& <1690>  V=>0206,D=>0460,C=>0460 & <1691> EC: <1692> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F2,: <1693> V=0@DSR820+>04EE,D=@TM$INT+>01E8,C=@TM$INT+>01E8 0 <1694> EC< <1695> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E8, <$ <1696>  V=0380,D=>0206,C=>0206$ <1697> EC< <1698> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EA, <6 <1699> V=>4D45,D=@DSR820+>04EE,C=@DSR820+>04EE 6 <1700> EC< <1701> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EC, <0 <1702> V=(>4D20,>4E00,>0000,>0000,>0000),08 <1703> D=(>C024,>0030,>1101,>1D0A,>0380),C=>CF9F 8 <1704> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1705> .SYN TM$INT="" <1706> .ENDIF <1707> *$R( <1708> **********************************************************************R <1709> * H <1710> *=P0557 KDK04/25/80STR #06196 3.3.2 DSRVDT(911,911PF,H913) <1711> * J$ <1712> * THE CURSOR POSITIONING ON THE VDTS FAIL TO ADVANCE WHEN THEJP <1713> * LAST CHARACTER OF A FIELD IS ENTERED. THEN, ALTHOUGH THE CURSOR PN& <1714> * IS POSITIONED ON A CHARACTER, THE CHARACTER CANNOT BE MODIFIED NN <1715> * UNTIL A LEFT ARROW KEY IS STRUCK.BUT STRIKING THE LEFT ARROW NH# <1716> * KEY IN THIS CONDITION DOES NOT CAUSE THE CURSOR TO CHANGEHN& <1717> * POSITIONS. THIS PATCH CAUSES THE CURSOR TO ALWAYS MOVE TO THE NL% <1718> * NEXT CHARACTER POSITION WHEN A CHARACTER IS ENTERED. IT ALSOLJ$ <1719> * CORRECTS A PROBLEM IN READING THE LAST CHARACTER IN A FIELDJL% <1720> * THAT DOES NOT REQUIRE A TERMINATING CHARACTER TO CAUSE RETURNL$ <1721> * TO THE CALLING TASK. $ <1722> *  <1723> *#SYN SROOT,ROOT <1724> *#SYN S911,DSR911 " <1725> *#SYN S911PF,DSR911PF " <1726> *#SYN S913,DSR913 ( <1727> *.EVAL S$$PAT="@ROOT+>0000" ( <1728> * " <1729> .IF @DSR911 ,NE, NONE " <1730> * : <1731> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0348,:, <1732>  V=(>060A,>32CA,>058A,>0B2B), ,2 <1733>  D=(>32CA,>0B2B,>1818,>100A),C=>31F32 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>03480 VERIFICATION DATA  >060A,>32CA,>058A,>0B2B0" DATA >32CA,>0B2B,>1818,>100A" CHECKSUM  >31F3$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 7B48 060A 32CA 058A 0B2B  .. 2. .. .+, CURRENT IMAGE L 7B48 060A 32CA 058A 0B2B 1816 1012 1D0F 058A .. 2. .. .+ .. .. .. ..L  NEW IMAGE: CHECKSUM = 31F3  J7B48 32CA 0B2B 1818 100A 1816 1012 1D0F 058A 2. .+ .. .. .. .. .. ..J <1734> EC <1735> *  <1736> .ENDIF <1737> * $ <1738> .IF @DSR911PF ,NE, NONE $ <1739> * > <1740> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BA,>4 <1741>  V=(>060A,>32CA,>0460,@S$$PAT+>0000), 42 <1742>  D=(>32CA,>0B2B,>182D,>1015),C=>31D92 <1743> EC> <1744> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04E8,>0 <1745>  V=(>C80A,@DSR911PF+>0BA0,>32CA), 0, <1746>  D=(>1000,>32CA,>1E0F),C=>3CC5, <1747> EC< <1748> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, <F <1749>  V=(>058A,>0620,@DSR911PF+>0BA0,>0460,@DSR911PF+>04C2), F8 <1750>  D=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),C=>DEAD8F" * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI9F90 **BATCH  <1751> EC <1752> *  <1753> .ENDIF <1754> *  <1755> * " <1756> .IF @DSR913 ,NE, NONE " <1757> * : <1758> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B0,:4 <1759>  V=(>060A,>1D0C,>0460,@S$$PAT+>0016), 42 <1760>  D=(>1003,>1002,>1001,>1000),C=>00002 <1761> EC: <1762> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8,:6 <1763>  V=(>0B5B,>1811),D=(>0B2B,>1006),C=>1B2D6 <1764> EC: <1765> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E,:> <1766>  V=@S$$PAT+>0024,D=@S$$PAT+>002A,C=@S$$PAT+>002A> <1767> ECH <1768> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0654, !CURSOR OFFH& <1769>  V=>1D1C,D=>1E1C,C=>1E1C& <1770> EC< <1771> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, < <1772>  V&=(>06A0,@DSR913+>07DC,>C2E4,>002C), &2 <1773>  D=(>DEAD,>DEAD,>DEAD,>DEAD),C=>00002 <1774> EC< <1775> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001E, <. <1776>  V=(>058A,>0460,@DSR913+>02B8), ., <1777>  D=(>DEAD,>DEAD,>DEAD),C=>DEAD, <1778> EC< <1779> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, <& <1780>  V=(>890A,>0030,>1301), &, <1781>  D=(>DEAD,>DEAD,>DEAD),C=>DEAD, <1782> EC <1783> *  <1784> .ENDIF <1785> *$< <1786> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, <& <1787>  V=>2E31,D=>2E32,C=>2E32& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0240 VERIFICATION DATA  >2E31 DATA  >2E32 CHECKSUM  >2E32$ OUTPUT ACCESS NAME ** NULL ** $@ VERIFICATION DATA  47F2 2E31  .1  CURRENT IMAGE L 47F2 2E31 202A 2A00 0000 0001 0002 0003 0004 .1 * *. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 2E32 L 47F2 2E32 202A 2A00 0000 0001 0002 0003 0004 .2 * *. .. .. .. .. ..L> <1788> !EC  ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH>H# <1789> ************************************************************H, <1790> *  BEGIN RELEASE 3.3.3 PATCHES,J$ <1791> ************************************************************* J <1792> * > <1793> *=P0563 RVL05/16/80STR #063153.3.3 TM$FUN > <1794> * L% <1795> * THE 'DO NOT SUSPEND' TIME INTERVAL IS CALCULATED INCORRECTLY.LL% <1796> * IF AN ERROR OCCURS PATCHING FOR 60HZ SYSTEM, PATCH FOR 50HZ. L: * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SC: I990 ** SCI990 **BATCH  <1797> * P' <1798> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0006,D=>00FA,C=>00FA P PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  15  ADDRESS  >7800+>030E VERIFICATION DATA  >0006 DATA  >00FA CHECKSUM  >00FA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B0E 0006  ..  CURRENT IMAGE L 7B0E 0006 3802 C801 0104 0720 014A 04E0 0106 .. 8. .. .. ..J .. ..L  NEW IMAGE: CHECKSUM = 00FA L 7B0E 00FA 3802 C801 0104 0720 014A 04E0 0106 .. 8. .. .. ..J .. ..L  <1799> .IF "@$$CC" , GT, 0 P' <1800> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0005,D=>00FA,C=>00FA P <1801> EC <1802> .ENDIF <1803> *$, <1804> ********************************, *****************************  <1805> * > <1806> *=P0576 RVL06/09/80STR #064823.3.3 DSR820 > <1807> * H# <1808> * THE 820 DSR DOES NOT ALLOW THE TAB CHARACTER TO BE PASSEDH <1809> *  <1810> *#SYN S820,DSR820  <1811> * $ <1812> .IF "@DSR820", NE, NONE $: <1813> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>02FA,:> <1814> V=(>0460,@DSR820+>01E8),D=(>13D2,>1000),C=>03D2 > <1815> EC <1816> .ENDIF <1817> *$J$ <1818> ************************************************************* J <1819> * > <1820> *=P0577 MU 06/11/80STR #064063.3.3 DSR820 > <1821> * F" <1822> * THE FIRST KATAKANA CHARACTER ENTERED FROM THE KEYBOARD F <1823> * FAILS TO ECHO.  <1824> *  <1825> *#SYN S820,DSR820  <1826> * $ <1827> .IF "@DSR820" ,NE, NONE $: <1828> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0486,:& <1829>  V=>C024,D=>C2A4,C=>C2A4 & <1830> EC: <1831> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>048E,:& <1832>  V=>2020,D=>22A0,C=>22A0 & <1833> EC: <1834> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049A,:& <1835>  V=>0240,D=>024A,C=>024A & <1836> EC: <1837> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049E,:& <1838>  V=>C900,D=>C90A,C=>C90A & <1839> EC: <1840> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04C8,:& <1841>  V=>C024,D=>C2A4,C=>C2A4 & <1842> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1843> .ENDIF <1844> *$F" <1845> **********************************************************F***  <1846> * > <1847> *=P0578 KDK06/11/80STR #064193.3.3 DSR911 > <1848> * F" <1849> * ENTERING THE BACKFIELD KEY OR TAB KEY AFTER ENTERING ANFH# <1850> * INVALID CHARACTER INTO A VALIDATION FIELD WILL CAUSE THE H$ <1851> * CURSOR TO DISAPPEAR. $ <1852> *  <1853> *#SYN S911,DSR911   <1854> *#SYN S911,DSR911WP " <1855> *#SYN S911PF,DSR911PF " <1856> * $ <1857> .IF "@DSR911", NE, NONE $: <1858> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0402,:& <1859>  V=>C2E4,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>0402 VERIFICATION DATA  >C2E4 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C02 C2E4  ..  CURRENT IMAGE L 7C02 C2E4 002C 32CA 091B 178E 1D0E 108C 0764 .. ., 2. .. .. .. .. .dL  NEW IMAGE: CHECKSUM = 0460 L 7C02 0460 002C 32CA 091B 178E 1D0E 108C 0764 .` ., 2. .. .. .. .. .dL <1860> EC: <1861> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0404,:6 <1862> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>0404 VERIFICATION DATA  >002C DATA  17842+>0186 CHECKSUM  17842+>0186$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C04 002C  .,  CURRENT IMAGE L 7C04 002C 32CA 091B 178E 1D0E 108C 0764 0034 ., 2. .. .. .. .. .d .4L  NEW IMAGE: CHECKSUM = 4738 0 7C04 4738 32CA 091B 178E 1D0E 108C 0764 00034 G8 2. .. .. .. .. .d .4 <1863> EC< <1864> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, <* <1865> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1866> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01860 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >C2E4,>002C,>1D0C,>0460" CHECKSUM  >DBA4$ OUTPUT ACCESS NAME ** NULL ** $R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA , 4738 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4738 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = DBA4 L 4738 C2E4 002C 1D0C 0460 DEAD DEAD DEAD DEAD .. ., .. .` .. .. .. ..L <1867> EC< <1868> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <6 <1869> V=>DEAD,D=@DSR911+>0406,C=@DSR911+>0406 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>018E VERIFICATION DATA  >DEAD DATA  >7800+>0406 CHECKSUM  >7800+>0406$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4740 DEAD  ..  CURRENT IMAGE L 4740 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7C06 L 4740 7C06 DEAD DEAD DEAD DEAD DEAD DEAD DEAD |. .. .. .. .. .. .. ..L <1870> EC: <1871> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>055A,:& <1872>  V=>1D0C,D=>1000,C=>1000 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18 @ ADDRESS  >7800+>055A VERIFICATION DATA  >1D0C DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D5A 1D0C  ..  CURRENT IMAGE L 7D5A 1D0C 62A1 0004 A2A4 0032 058A 0460 7C00 .. b. .. .. .2 .. .` |.L  NEW IMAGE: CHECKSUM = 1000 L 7D5A 1000 62A1 0004 A2A4 0032 058A 0460 7C00 .. b. .. .. .2 .. .` |.L <1873> EC <1874> .ENDIF <1875> * & <1876> .IF "@DSR911PF", NE, NONE &> <1877> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B2,>& <1878>  V=>C2E4,D=>0460,C=>0460 & <1879> EC> <1880> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B4,>6 <1881> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6 <1882> EC< <1883> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, < <18$84> V=(>DEAD,>DEAD,>DEAD,>DEAD),$2 <1885> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 <1886> EC< <1887> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <: <1888> V=>DEAD,D=@DSR911PF+>05B6,C=@DSR911PF+>05B6 : <1889> EC> <1890> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0772,>& <1891>  V=>1D0C,D=>1000,C=>1000 & <1892> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1893> .ENDIF& <1894> .IF "@DSR911WP", NE, NONE &> <1895> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B4,>& <1896>  V=>C2E4,D=>0460,C=>0460 & <1897> EC> <1898> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B6,>6 <1899> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6 <1900> EC: <1901> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186:, * <1902> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1903> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 <1904> EC< <1905> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <: <1906> V=>DEAD,D=@DSR911WP+>04B8,C=@DSR911WP+>04B8 : <1907> EC> <1908> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0636,>& <1909>  V=>1D0C,D=>1000,C=>1000 & <1910> EC <1911> .ENDIF <1912> *$R( <1913> **********************************************************************R <1914> * D <1915> *=P0584 KDK06/19/80STR #06144 3.3.3 DSRKSR,DSR733D <1916> * L% <1917> * WHEN USING THE KSR OR ASR DSR FOR DIALUP TERMINALS, THE PHONELL% <1918> * CONNECTION LOGIC PROHIBITS A RECONNECTION IN THE EVENT OF AN LD! <1919> * ABNORMAL DISCONNECTION; I.E. HANGING UP THE PHONE WITDHOUTL% <1920> * TERMINATING SCI, OR MOMENTARY POWER LOSS AT THE MODEM. THIS LL% <1921> * PATCH CORRECTS THE LOGIC AND ENABLES A RECONNECTION AFTER AN L <1922> * 8 SECOND DELAY. <1923> *  <1924> *#SYN SKSR,DSRKSR  <1925> *#SYN S733,DSR733  <1926> * < <1927> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0190, <& <1928>  V=>DEAD,D=>06A0,C=>06A0& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0190 VERIFICATION DATA  >DEAD DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4742 DEAD  ..  CURRENT IMAGE L 4742 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0  4742 06A0 DEAD D8EAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..8 <1929> EC< <1930> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0192, <4 <1931>  V=>DEAD,D=@IOCOM+>0004,C=@IOCOM+>00044 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0192 VERIFICATION DATA  >DEAD DATA  >6F00+>0004 CHECKSUM  >6F00+>0004R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4744 DEAD  ..  CURRENT IMAGE L 4744 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6F04 L 4744 6F04 DEAD DEAD DEAD DEAD DEAD DEAD DEAD o. .. .. .. .. .. .. ..L <1932> EC* <1933> MPI PF=IMAGE,MT=TA,MN=@SROOT,A* DR=@S$$PAT+>0194, 6 <1934>  V=(>DEAD,>DEAD),D=(>0380,>0460),C=>07E06 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0194$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >0380,>0460 CHECKSUM  >07E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4746 DEAD DEAD .. .. CURRENT IMAGE L 4746 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 07E0 L 4746 0380 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <1935> EC <1936> *  <1937> * " <1938> .IF @DSRKSR ,NE, NONE " <1939> *  <1940> * : <1941> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A4,:& <1942>  V=>06A0,D=>0460,C=>0460& <1943> EC <61944> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A6,6> <1945>  V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 > <1946> EC: <1947> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A8,:6 <1948>  V=(>0380,>C047),D=(>C047,>1002),C=>D0456 <1949> EC< <1950> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, <6 <1951>  V=>DEAD,D=@DSRKSR+>00A8,C=@DSRKSR+>00A86 <1952> EC <1953> *  <1954> *  <1955> .ENDIF <1956> *  <1957> * " <1958> .IF @DSR733 ,NE, NONE " <1959> * : <1960> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A4,:& <1961>  V=>06A0,D=>0460,C=>0460& <1962> EC: <1963> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A6,:> <1964>  V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 > <1965> EC <1966> MPI PF=I(MAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A8,(6 <1967>  V=(>0380,>C047),D=(>C047,>1002),C=>D0456 <1968> EC< <1969> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, <6 <1970>  V=>DEAD,D=@DSR733+>00A8,C=@DSR733+>00A86R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1971> EC <1972> *  <1973> .ENDIF <1974> *$J$ <1975> ************************************************************* J <1976> * D <1977> *=P0597 RVL06/27/80STR #06603 3.3.3 DSRKSR,DSR733D <1978> * H# <1979> * KATAKANA CHARACTERS ARE NOT PROCESSED PROPERLY BY DSRKSR H <1980> * AND DSR733. <1981> *  <1982> *#SYN SKSR,DSRKSR  <1983> *#SYN S733,DSR733  <1984> *   <1985> .IF @DSRKSR,NE,NONE  <1986> *  8 <1987> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>0398,8& <1988>  V=>02AA,D=>02AB,C=>02AB & <1989> EC: <1990> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>039A,:& <1991>  V=>D2AA,D=>D2AB,C=>D2AB & <1992> EC: <1993> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03A8,:& <1994>  V=>FAA0,D=>FAE0,C=>FAE0 & <1995> EC: <1996> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03BC,:& <1997>  V=>5AA0,D=>5AE0,C=>5AE0 & <1998> EC: <1999> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015C,:& <2000>  V=>DF00,D=>E000,C=>E000 & <2001> EC: <2002> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015E,:& <2003>  V=>1BE6,D=>14E6,C=>14E6 & <2004> EC <2005> *  <2006> .ENDIF <2007> *   <2008> .IF @DSR733,NE,NONE  <2009> *  <2010> MPI ,PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>0398,,& <2011>  V=>02AA,D=>02AB,C=>02AB & <2012> EC: <2013> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>039A,:& <2014>  V=>D2AA,D=>D2AB,C=>D2AB & <2015> EC: <2016> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03A8,:& <2017>  V=>FAA0,D=>FAE0,C=>FAE0 & <2018> EC: <2019> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03BC,:& <2020>  V=>5AA0,D=>5AE0,C=>5AE0 & <2021> EC: <2022> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015C,:& <2023>  V=>DF00,D=>E000,C=>E000 & <2024> EC: <2025> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015E,:& <2026>  V=>1BE6,D=>14E6,C=>14E6 & <2027> EC <2028> .ENDIF <2029> *$J$ <2030> ************************************************************* J * SCI990 ** SCI990> ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH > <2031> * > <2032> *=P0602 GJ 07/10/80STR #064243.3.3 ABTLDT > <2033> * F" <2034> * ABTLDT GENERATES A CLOSE CALL BLOCK WHICH IS NOT SIZED FF" <2035> * PROPERLY. THIS MAY CAUSE THE SYSTEM TO 'HANG' WITH ALL F@ <2036> * MEMORY LIGHTS ON AND REQUIRES AN IPL PROCEDURE TO@" <2037> * RESTART THE SYSTEM." <2038> * @ <2039> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>06AE+>0038, @& <2040>  V=>000E,D=>0012,C=>0012 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2  ADDRESS >45B2+>06AE+>0038  VERIFICATION DATA  >000E DATA  >0012 CHECKSUM  >0012$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4C98 000E  ..  CURRENT IMAGE @L 4C98 000E 06A0 5A7C 4C92 C883 0006 E8E0 4800 .. .. Z| L. .. .. .. H.L  NEW IMAGE: CHECKSUM = 0012 L 4C98 0012 06A0 5A7C 4C92 C883 0006 E8E0 4800 .. .. Z| L. .. .. .. H.L <2041> EC <2042> *$J$ <2043> ************************************************************* J <2044> * : <2045> *=P0629 GJ 07/30/80STR #067323.3.3 KIF: <2046> * J$ <2047> * IF BETWEEN THE TIME A READ OF A RECORD AND A REWRITE OF THEJH# <2048> * RECORD, AN OPERATION IS DONE TO THE FILE THAT AFFECTS THEHH# <2049> * LEAF NODE THE KEY READ IS IN BUT DOES NOT CAUSE A SPLIT, H@ <2050> * THE REWRITE WILL INCORRECTLY RETURN A >B9 ERROR. @ <2051> *  <2052> *#SYN SKIF3,KIF3 <2053> * " <2054> .IF "@KIF3" ,NE, NONE ". <2055> MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@. KIF3+>0FF6+>008E, & <2056>  V=>133C,D=>1335,C=>1335 & <2057> EC <2058> .ENDIF <2059> *$J$ <2060> ************************************************************* J <2061> * @ <2062> *=P0649 RVL08/18/80STR #068663.3.3 DSR911PF @ <2063> * D! <2064> * PATCH 499 HAS AN INCORRECT ADDRESS FOR THE 911 POWER D <2065> * FAIL DSR. <2066> * & <2067> .IF "@DSR911PF" ,NE, NONE &@ <2068> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>01E2, @D <2069> V=@DSR911PF+>064A,D=@DSR911PF+>08CA,C=@DSR911PF+>08CA D <2070> EC <2071> .ENDIF <2072> *$< <2073> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, <& <2074>  V=>2E32,D=>2E33,C=>2E33& PROGRAM FILE IMAGE MODULE TYPE  TA " * SCI990 ** SCI990 ** SCI990 *"2* SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH 2 MODULE NAME OR ID  2 ADDRESS  17842+>0240 VERIFICATION DATA  >2E32 DATA  >2E33 CHECKSUM  >2E33$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47F2 2E32  .2  CURRENT IMAGE L 47F2 2E32 202A 2A00 0000 0001 0002 0003 0004 .2 * *. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 2E33 L 47F2 2E33 202A 2A00 0000 0001 0002 0003 0004 .3 * *. .. .. .. .. ..L <2075> ECJ$ <2076> ************************************************************* J, <2077> *  BEGIN RELEASE 3.3.4 PATCHES,J$ <2078> ************************************************************* J <2079> * > <2080> *=P0650 RVL08/15/80STR #068683.3.4 DSR911 > <2081> *   <2082> * THE 911 DOES NOT $CHECK THE RECORD LENGTH ON A READ $B <2083> * DEVICE STATUS. MORE CHARACTERS MAY THEN BE RETURNEDBH# <2084> * THAN WERE REQUESTED AND MAY DESTROY SYSTEM TABLE LINKAGE.H <2085> * $ <2086> .IF "@DSR911" ,NE, NONE $: <2087> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F2,:& <2088>  V=>CAA4,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>00F2 VERIFICATION DATA  >CAA4 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  78F2 CAA4  ..  CURRENT IMAGE L 78F2 CAA4 0002 0002 0460 7A68 C261 0008 1333 .. .. .. .` zh .a .. .3L  NEW IMAGE: CHECKSUM = 0460 L 78F2 0460 0002 0002 0460 7A68 C261 0008 1333 .` .. .. .` zh .a .. .3L < 2089> EC : <2090> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F4,:6 <2091> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>00F4 VERIFICATION DATA  >0002 DATA  17842+>019A CHECKSUM  17842+>019A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  78F4 0002  ..  CURRENT IMAGE L 78F4 0002 0002 0460 7A68 C261 0008 1333 C2A1 .. .. .` zh .a .. .3 ..L  NEW IMAGE: CHECKSUM = 474C L 78F4 474C 0002 0460 7A68 C261 0008 1333 C2A1 GL .. .` zh .a .. .3 ..L <2092> EC< <2093> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2094> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6D! * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCDI990 **BATCH  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>019A$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >8821,>0006 CHECKSUM  >8827$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  474C DEAD DEAD .. .. CURRENT IMAGE L 474C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8827 L 474C 8821 0006 DEAD DEAD DEAD DEAD DEAD DEAD .! .. .. .. .. .. .. ..L <2095> EC< <2096> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, <2 <2097> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>019E VERIFICATION DATA  >DEAD DATA  >45B2+>024E CHECKSUM  >45B2+>024E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4750 DEAD  ..  CURRENT IMAGE L 4750 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 4800 L 4750 4800 DEAD DEAD DEAD DEAD DEAD DEAD DEAD H. .. .. .. .. .. .. ..L <2098> EC< <2099> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <B <2100> V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01A0* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >1103,>CAA4,>0002 CHECKSUM  >DBA5$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4752 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE  4752 DEAD DEAD DEAD 4 DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..4  NEW IMAGE: CHECKSUM = DBA5 L 4752 1103 CAA4 0002 DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <2101> EC< <2102> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, <6 <2103> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01A6$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >0002,>0460 CHECKSUM  >0462$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R 4758 DEAD DEAD .. .. CURRENT IMAGE L 4758 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0462  4758 0002 0460: DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..: <2104> EC< <2105> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, <6 <2106> V=>DEAD,D=@DSR911+>00F8,C=@DSR911+>00F8 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01AA VERIFICATION DATA  >DEAD DATA  >7800+>00F8 CHECKSUM  >7800+>00F8$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  475C DEAD  ..  CURRENT IMAGE L 475C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 78F8 L 475C 78F8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD x. .. .. .. .. .. .. ..L <2107> EC <2108> .ENDIF& <2109> .IF "@DSR911PF" ,NE, NONE &< <2110> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013<C,& <2111>  V=>CAA4,D=>0460,C=>0460 & <2112> EC> <2113> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013E,>6 <2114> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 <2115> EC< <2116> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2117> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6 <2118> EC< <2119> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, <2 <2120> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E 2 <2121> EC< <2122> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <B <2123> V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 B <2124> EC< <2125> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, <6 <2126> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 <2127> EC< <2128> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, < <2129> V=,>DEAD,D=@DSR911PF+>0142,C=@DSR911PF+>0142 , <2130> EC <2131> .ENDIF& <2132> .IF "@DSR911WP" ,NE, NONE &> <2133> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010C,>& <2134>  V=>CAA4,D=>0460,C=>0460 & <2135> EC> <2136> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010E,>6 <2137> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 <2138> EC< <2139> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2140> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6 <2141> EC< <2142> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, <2 <2143> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E 2 <2144> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <2145> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <" <2146>  V=(>DEAD,>DEAD,>DEAD""),D=(>1103,>CAA4,>0002),C=>DBA5 " <2147> EC< <2148> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, <6 <2149> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 <2150> EC< <2151> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, <: <2152> V=>DEAD,D=@DSR911WP+>0112,C=@DSR911WP+>0112 : <2153> EC <2154> .ENDIF <2155> *$R( <2156> **********************************************************************R <2157> * > <2158> *=P0709 MU 08/29/80STR #070963.3.4 DSR911 > <2159> * L% <2160> * THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATIONLJ$ <2161> * FAILS, HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THEJF" <2162> * FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED.F: <2163> * **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIE:D FOR THIS PATCH( <2164> * **** TO APPLY PROPERLY. ( <2165> * " <2166> *#SYN S911PF,DSR911PF "" <2167> *#SYN S911WP,DSR911WP " <2168> *#SYN S911,DSR911  <2169> *#SYN SROOT,ROOT( <2170> *.EVAL S$$PAT="@ROOT+>0000" ( <2171> * $ <2172> .IF "@DSR911" ,NE, NONE $ <2173> * : <2174> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8,:( <2175>  V=(>06A0,@S$$PAT+>014E), (& <2176>  D=(>C024,>003A),C=>C01E& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>01C8* VERIFICATION DATA  >06A0,17842+>014E* DATA  >C024,>003A CHECKSUM  >C01E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  79C8 06A0 4700 .. G. CURRENT IMAGE   79C8 06A0 4700 D23A 5200 3 . 208 1D08 1E0A 0609 .. G. .: R. 2. .. .. ...  NEW IMAGE: CHECKSUM = C01E L 79C8 C024 003A D23A 5200 3208 1D08 1E0A 0609 .$ .: .: R. 2. .. .. ..L <2177> EC: <2178> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE,:( <2179>  V=(>06A0,@S$$PAT+>014E), (& <2180>  D=(>C024,>003A),C=>C01E& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>02BE* VERIFICATION DATA  >06A0,17842+>014E* DATA  >C024,>003A CHECKSUM  >C01E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7ABE 06A0 4700 .. G.R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CURRENT IMAGE L 7ABE 06A0 4700 361A 5E80 1E0A 0609 16FB 10CD .. G. 6. ^. .. .. .. ..L NEW IMAGE: CHECKSUM = C01EL 7ABE C024 003A 361A 5E80 1E0A 0609 16FB 10CD .$ .: 6. ^. .. .. .. ..L <2181> EC: <2182> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568,:> <2183>  V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E> PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  18  ADDRESS  >7800+>0568$ VERIFICATION DATA  >7800+>0400$ DATA  17842+>014E CHECKSUM  17842+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D68 7C00  |.  CURRENT IMAGE L 7D68 7C00 1D0F C20A 098A 130C 0207 0018 8824 |. .. .. .. .. .. .. .$L  NEW IMAGE: CHECKSUM = 4700 L 7D68 4700 1D0F C20A 098A 130C 0207 0018 8824 G. .. .. .. .. .. .. .$L <2184> EC< <2185> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, < <2186>  V=( >C002,>0A80,>04C0), , <2187>  D=(>C024,>003A,>0460),C=>C47E, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>014E* VERIFICATION DATA  >C002,>0A80,>04C0* DATA >C024,>003A,>0460 CHECKSUM  >C47E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4700 C002 0A80 04C0  .. .. .. & CURRENT IMAGE L 4700 C002 0A80 04C0 1802 0200 8080 045B DEAD .. .. .. .. .. .. .[ ..L  NEW IMAGE: CHECKSUM = C47E L 4700 C024 003A 0460 1802 0200 8080 045B DEAD .$ .: .` .. .. .. .[ ..L <2188> EC< <2189> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, <6 <2190>  V=>1802,D=@DSR911+>0400,C=@DSR911+>04006 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  178 42+>0154  VERIFICATION DATA  >1802 DATA  >7800+>0400 CHECKSUM  >7800+>0400$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4706 1802  ..  CURRENT IMAGE L 4706 1802 0200 8080 045B DEAD DEAD DEAD DEAD .. .. .. .[ .. .. .. ..L  NEW IMAGE: CHECKSUM = 7C00 L 4706 7C00 0200 8080 045B DEAD DEAD DEAD DEAD |. .. .. .[ .. .. .. ..L <2191> EC< <2192> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <2193>  V=(>0200,>8080,>045B), &, <2194>  D=(>DEAD,>8080,>DEAD),C=>8080,R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>0156* VERIFICATION DATA  >0200,>8080,>045B* DATA  >DEAD,>8080,>DEAD CHECKSUM  >8080$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4708 0200 8080 045B  .. .. .[ & CURRENT IMAGE L 4708 0200 8080 045B DEAD DEAD DEAD DEAD DEAD .. .. .[ .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8080 L 4708 DEAD 8080 DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <2195> EC <2196> .ENDIF <2197> *  <2198> * & <2199> .IF "@DSR911PF" ,NE, NONE & <2200> * > <2201> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256,>( <2202>  V=(>06A0,@S$$PAT+>014E), (& <2203>  D=(>C024,>003A),C=>C01E& <2204> EC> <2205> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A,>( <2206>  V=(>06A0,@S$$PAT+>014E), (& <2207>  D=(>C024,>003A),C=>C01E& <2208> EC <2209> MPI PF=IMAGE(,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780,(@ <2210>  V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E@  <2211> < <2212> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <& <2213>  V=(>C002,>0A80,>04C0), &, <2214>  D=(>C024,>003A,>0460),C=>C47E, <2215> EC< <2216> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, <: <2217>  V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF+>05AA: <2218> EC< <2219> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <2220>  V=(>0200,>8080,>045B), &, <2221>  D=(>DEAD,>8080,>DEAD),C=>8080, <2222> EC <2223> .ENDIF <2224> *  <2225> * & <2226> .IF "@DSR911WP" ,NE, NONE & <2227> * > <2228> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6,>, <2229>  V=(>C002,>0A80,>04C0,>1802), ,  <2230 *>  D=(>C024,>003A,>1003,>1002),C=>C01F* <2231> EC> <2232> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318,>, <2233>  V=(>C002,>0A80,>04C0,>1802), ,2 <2234>  D=(>C024,>003A,>1003,>1002),C=>C01F2 <2235> EC> <2236> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644,>@ <2237>  V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E@  <2238> < <2239> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <& <2240>  V=(>DEAD,>DEAD,>DEAD), &R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R, <2241>  D=(>C024,>003A,>0460),C=>C47E, <2242> EC< <2243> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, <: <2244>  V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B0: <2245> EC <2246> .ENDIF <2247> *  <2248> *$@J$ <2249> ************************************************************* J <2250> * > <2251> *=P0714 RVL09/19/80STR #070983.3.4 MM$SCN > <2252> * D! <2253> * IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK DD! <2254> * AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TODF" <2255> * LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THEFJ$ <2256> * TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. J <2257> * @ <2258> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0094, @& <2259>  V=>D022,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2  ADDRESS >45B2+>1708+>0094  VERIFICATION DATA  >D022 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5D4E D022  ."  CURRENT IMAGE L 5D4E D022 0008 130E 9004 1111 150B 04C1 D040 ." .. .. .. .. .. .. .@L  NEW IMAGE: CHECKSUM = 0460 L 5D4E 0460 0008 130E 9004 1111 150B 04C1 D040 .` .. .. .. .. .. .. .@L <2260> EC@ <2261> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, @6 <2262> V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2  ADDRESS >45B2+>1708+>0096  VERIFICATION DATA  >0008 DATA  17842+>01AC CHECKSUM  17842+>01AC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5D50 0008  ..  CURRENT IMAGE L 5D50 0008 130E 9004 1111 150B 04C1 D040 1104 .. .. .. .. .. .. .@ ..L  NEW IMAGE: CHECKSUM = 475E  5D50 475E 13<0E 9004 1111 150B 04C1 D040 1104 G^ .. .. .. .. .. .@ ..< <2263> EC< <2264> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, <B <2265> V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01AC* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >D022,>0008,>1304 CHECKSUM  >C32ER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 475E DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 475E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = C32E L 475E D022 0008 1304 DEAD DEAD DEAD DEAD DEAD ." .. .. .. .. .. .. ..L <2266> EC@< <2267> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, <B <2268> V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),C=>C660 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01B2* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >D104,>1304,>0460 CHECKSUM  >C660$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4764 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 4764 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = C660 L 4764 D104 1304 0460 DEAD DEAD DEAD DEAD DEAD .. .. .` .. .. .. .. ..L <2269> EC< <2270> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, <> <2271> V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01B8 VERIFICATION DATA  >DEAD DATA >45B2+>1708+>009A  CHECKSUM >45B2+>1708+>009A $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  476A DEAD  ..  CURRENT IMAGE L 476A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5D54 L 476A 5D54 DEAD DEAD DEAD DEAD DEAD DEAD DEAD ]T .. .. .. .. .. .. ..L <2272> EC< <2273> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, <& <2274>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01BA VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  476C DEAD  ..  CURRENT IMAGE L 476C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 476C 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <2275> EC< <2276> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, <R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R> <2277> V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01BC VERIFICATION DATA  >DEAD DATA >45B2+>1708+>00B6  CHECKSUM >45B2+>1708+>00B6 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  476E DEAD  ..  CURRENT IMAGE  476E DEAD DEAD DEAD DEAD]ntSKI  2(Ih<   t$n:tFM01x topEOS$FM02x opEOS$qTBID IRX  \xST01V@X  R xST02Vr@0  z`xLP01ypp z xLP02ypp ~ Q  zxDS02 dz  #0000000 0 Q z xDS03 z  #0000000  Q x z 4xDS04 z  #0000000 Q * z xDS01 zz   #0000000  4  ~ 0 XX`2(@ DEFMEMSIZ,MEMSW ( DEFENDDXL,ENDLIM,ENDADD,BASADJ  (* DEFTMTOL,TMTOLN,TMTOLO,TOLBET,TDL *, DEFETSK,TSKLST,TSKSTR,LDTLST,PSBSTR ,. DEFSLCNT,SLCTIM,TM$DFR,TMESLC,NUMDEC  .( DEFRIDMAP,FIDMAP,RSTRSW,RSTRID  (( DEFPF$FCB,PF1LDT,PF2LDT,PF3LDT  (( DEFRF$FCB,RF$LDT,OF$FCB,OF$LDT  (& DEF BM$SZ,BM$SIZ,BM$CNT,BM$LMT & DEFBIDTSB,FMPTSB    DEF USVCTB,USVCMX,USVCLN  DEF KBTAB,MAXSTA,MAXST2   DEF SYSTAB,PSBLST,PDTLST  DEF DUMMY,TTY,LP,CS,CR,CRT  DEFDSC,COM,MT . DEFAQPTRS,ENDSTB,OADPTR,BPT,XY,DIOPDT .. DEFSLNLUN,SLNLID,SLNMCA,SLNFLG,SLNQUE .. DEFITSKMX,ITSKCR,IOSMAX,IOSSTA,IOSHBC ., DEFCURMAP,MAPFK,MAPSHD,MAPMR,MAPCMN ,( DEFFMQSER,FMTTSB,MAPLST,CTRYVL  (( DEFSCIBMX,SCIFMX,DXSTRT,CMEMSZ  (6 DEFKBST01,PSST01,MPST01,KBST02,PSST02,MPST02  66 DEFPDLP01,PSLP01,MPLP01,PDLP02,PSLP02,MPLP02  66 DEFWPDS01,PSDS01,PSDS02,PSDS03,PSDS04,MPDS01  66 DEFMPDS02,MPDS03,MPDS04,WPMT01,PSMT01,MPMT01  6,C:`>Am@lm:lnmxDEZDEZvuDEZDEZDEBDEZDEBDEZDEZDEBEEBE"EBl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:Jl:l@ DRDE |E yE2yr r* r+`cf ` ΋_( I+  C I"L2ȡءءI"h&`_bޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭi@@`r| X`L`X ) D d[ E[J`x``m:`lA #[$I`ypa 0I`zޭޭޭޭޭޭޭ(`J `cf`wޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ#`l#`l[ |`{)H-`{ޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭK@@`qB`q$:`|ޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ, `|o`ޭ!Hʤ`x"`]T`]p`]zޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭ** C COPYRIGHT 1977, TEXAS INSTRUMENTS INCORPORATED DX10 3.3.3 ** 0@d 08@  $ABDEFGIOPR` DS01.S$PROGA KfIh@@ K@IKJ4@@Ih@ @L$uIITLDR H$xJJ4TOVY H$zXJfJTRWT H$~JKDDT  $oK2KfDMGR H$@KKCLNP H$pKSOVY H<no 0`( L\΋cAA`L\c ! `! LL`_Z|LȃH" ؀ Ȅ H HacL΋΋&BMFM< MJ`L_ b {$ r+#MN#MNM@H\  r+H\o`MM!M&! r+"MMH\  r+`~H\o`΋_Ό`L  b&L" PNn "F"" 8 "LN^`HQ^!#У " " XH'@YH"J`_:L`N^΋΁  "(KX Dgj (XH" X`H" K  "*H `_rm j OMO O"@ O"ÞOO.OO6CHL΋_(jOOr" 0Q$O|YO|`_b `5΋_& _OO@Q4O" #j#POHH ʄʂ`_Z _  _  `4΋_* _a 0#  +BQ,Ppʁ _ `_j `6΋_&  D@H Q4Pb#" PP _j 2YP`_Z`H `2΋_* ΋_* ΀΂ƢκRlQ*`_jd`i d`j΋_& _΋_& _QQ QcBx##6#!$DK   [`Kʂx#23 _ `_Z΋_*QQcA@B((`_j΋@  "@ "@ b  `_΋_  K ] fl`_20 ΋_^Rj^! B %H1SxβΒd8aKTS`A Bd8CABB /*a( `)0eAɎAΙΥH QjAHAjATH/d8KS/@ s Eг ̱ e& F ̱ ? +L2+6 _s38 Ss8`S _ EڠH1/D!DgTFZT`_J 8: ` ` `΋_"sd7 ;?8d6 8C F-ad"7 F9CaEd8e=8 6 =Cʁʃʆ`_J&  sF 0aaFSE΋_*Hg>Wj WXHgW`_j knX2Χ6Χ8 Xm! QYfUBM _-\VBXC'IQ,WPvV 3 SC%Q$WXX/XX U`Wg H  _ `WIH HH ' H<G[WZWƘH8 H hiVHiWG!TiNW\fWB _g  x`H g"x`H IHFX  y Hh&WIjWYW _@IH IHF X  GgWh&WDiW _ G! iNWH\fWYH _@YHIJ8J6g1@ W W `#WU^ ΋_(XCYJm! QmmHT `_b΋_*XB C `_j΋X_&X"YJ@ X:C` "BB@ ``$TA@ bbbbN PR@ bNF@ `_Z΋_,`_r ΋_& _Y`A95   YbY`'Yd _"Y`ʄ`  G  _ `_Z΋_& _Q āˆ   !S  G ӂäZz `!΋΁ _A'#Ȍ[TZBdY^R""@́ _ `_r `0΋΁ _A >*  Ɓ{K@Q΋Z|[P@`_΋_, _`` + H<K[\`Z\` _ `_r΋_* _PU ! j<\`Y\`  \\`"\\`bab\` _ +΋_*a " xH   "b ! bj\`Y\`jZ\``_j \d `D΋_&΋_&C Q4\ʂʪ `^*S\‚`_Z `*΋_* W jP` !H>b9" H65"H1 ].*b(,H "" H<!" H, HT`"NLR`G^ @ q!LT"Pb  ]`_j*ƚ`]x *T>0bHj`[L `i`a:`c RL `Uz`Q4 2(hD`E`>*>,L2NNr>H`fl`fz`f`g>`g`O>`_,`_*`_(`_&`_$`_"`_ `_`_`_`_r`_j`_b`_Z`_R`_J`_B`_:`_2`Y`Z|`Z`Yf_``h&`h`gHx`b`qj`q`sB`x`w `wV`T`S`QB`{`} Ih`\bVXZ^____i pHp_D`l:b!Hb`S`QcFccFccFcEHTΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[k__`__]_`__ \__`_ 212@Mj 5D_Kp < ` À `_8M _p8 _pG HT HT _ >N:N _`_ ___5D x&&c__ q=ơ==M___ _ ____22 _@l:a h `{@ H< rÒ`c΋_$ _V Z $D  P#XKJC $" H" H<6*Ƞ@c c@Bgc@ZHȪȪȄ$  Ȅ^ȠH"\ʂ _ `_RBZc@ZHf[>bȣ $ȃȅ bp!b A $ b تځ؁ 2ȀȠIh&c@jȠ@ȌH ΋  @  *B D `_΋ _ab  _ ΋΁b@BBBBkDBFDȋFȁD`_r `#`'H`^1 `J c|l:bHTN>Nd^ ^`cf^`cf `,΋_(+ H<Kh&d`_b΋_&l1 #-DD)edv,   +# $ `e  , ,(,* # , ? ;| _uΏΎ΍Π fLÄ f> #;C f>  M!α@ fXfVsBf\fZr:" A$D؀ؠH J!"̱ f 5*úz j _ `cf _ H`_Z΋_*  bIUDkLIH@h&g8  f^ _L#ʃ>CYS) _ `_R _JJJL _ `_@_$ +J`L# `.΋_* _j! h&g~g^cB _ `_j `#΋_* _hgBgg _ `_j `# _΋_" Kx h/"@ؠiK  _ `_Jx H _΋_"hhؠH b _΋_"h! BB%b`H#E Ѥ Ѥ$ HBĄ¸`H #H'أ c`iJ giD c a:iDȃb _ `_J΋iRx`H `_΋i B@ `&$ ΋_ \0001  TIME SLICING ENABLED FLAG 4HTSENT EQU>003C  TASK SENTINAL VALUE (=0 => SENTINAL DISABLED) H:UPS  EQU>0078  TICKS PER SECOND (= LINE FREQ*2) :@@,W @Z (\H @ 0  @b @1!)JP`(,@B ,P@@X( @@# (IP@(@@@,@@c$JDh5 UJHH, @"D`B$#$2Xʠ@`Ah @! $ ,3B 3"BD`@%P @ P@@(@$  BH`HFԨ 0 f5D 0Q D "D@E5z~T*_#h3d P U M P " B0 @ @ "@YA! ** Q(DPʀ @) T A@3*H$  HPDQ(H0*P   i$ @`$/o _holí .? nH? _ ,[ H' "βl  3H'hK`Hq2 #  c q(QR aq~oaqV]flo,, H'OK`H {+/"2m %n e2 , H *2" 2   62؀2ؠH J!"̱* _`Hzza{Al  ѭ{A o J o  {, H'HgvJLZvnl`o8[H? _ `o `qjq qor:r:sBsB otJq u4 u4 u uqq  0@P`΋_*tqm % 1l 1 `q,n? A a!l.K`H@qq`_j( ΋_&M{q"2R ađZvK`G?  qSr4[r8?`_Z΋_  kvvJ΁vts.M!wVr kwr,nvr k:QBrQr kwrzvJ#EM#{rBm̱C*H} rJ`_BEQrQBr vPvJRl* k H ΋_ w t0 kvvJ΁M!wVt.΄΃΂,nvt* kWQBt* k FzvJxt*.M#{t`F ̱Cn`EA*H}t*vttvH ?j kwvJ*J`_BQt*QBt* vPvJRl*0 [|t*vvJM!"( ̱ H"?m qSt*΋_& _, T n   +"t n4A    Тt a mA 4DA; _ `_Z΋_$,nvuQBuQu k  vPvJRl*M#{uE3AMH} u`_R΋_$w vF,nvvFQBvF k  vPvJRl*&M#|vFEAn`EAMH}vFH ?`_R `ʂ΃΅΅*M#`k΋(*0`_ `΋l `G k! GDD`_|d $Uz|C$ Q4|$ȄjDȁȓȣ" EP|ʂ`_RD 2Q$|Y|H ΋_&`b # # #~LHHH x#"c86c< RB   Y~+HHQ$~` df _`` 3Q,~Pv`_Z _  `1΋{~H"@@H~L~H ΋~L~Hȓȣ`_΋_*O~B  Q$~Y~jP~`_j `3΋`_$@$!+@@!F d|P@` `@-al0ƀ 04Xc@ L@H3` K``J@ iH HDh @@D C1 b$eE#` Aoo~p]o&ob $/oxH _hoz _ l +ì nx*l $aopfl Hh&p`H&a(a*a,`H  ` ` `ppxprpF>pJ^    `/ _Hhq EJLQIGAYUIG / _9 p@`bp:pHSq _bM) LGHg/ _/Hu r\hcFУE usvu!AZ5,  4+( $"(@   @ * bs~`tШBbu(@rZ $`Li i i@V5X5 u  !@ > Nd Ttt tt"rHgur\&&h a Q B͂"  S`C B͂ŁeZ,B B傠h >a ?  _h y,c u rX rZ%Hh&u _ )h@gu`rjA r\rHguI flu _ ΋V $^  6Gf СI aJuuЕ 'Z|u# SuAp Qa@ _   S _ H `_/q4΋ EB qE%qHqDFq8S `@lZuxt _HhvhOjxo bNТM uyH55 zT5zVrHgx _ˠn aNagx/H-ۉ۠H7  _Ho  aF( X  FQxQBxzNMzHSxE`xFIH bHFQBx 2=A $^{z^L _h{~oa  !tJo ( #'b{f c^۠HˠNg/ _ۃۇ ˆtЯ ;##o / D o %Q{f" "RDAO%Я qDuD Mh& _ `z^/$^nHH΋΁!aA@p p QUz{jCB`_rHd΋_&@Q4|F`X*T`^*\o^ʂ" ʂʃ*S|>*`_Z `*΋_&$  S\${|C*Dd 1D! i|Y HG`_Z΋_&$Z/ \? .C2K`$V{}CO/ tLTP kPT$^o,,  ^*/? 24 @c@ c ^  o  Q Ao"Q AcH$ H HO!Ti}`_Z END END END END  $@$!R H ȀHD Z K@Ж@@ P$h44d 0 01"jRL&HB@h,@ X`DJl`4(0i  I@`  P bH H[o([tbiB) H` to o΋)(J o Hgoz J[i)z`H( H:h i  H ¡*2zIIa `H,`H o,a(*HH Xš Z J $'[!(2 D¡FFιF[GG GG( [  [    P ŠҚ$L H'  [@΋  p p qpL'$ ppg& r+Y  r+`_ `F"qH0&&F !H"!H p p p p`ppj`܊k[`n`n$`pI&%" dii @$ H `n8$[`n@!HXHRHJ4F YD`@)Hi`E) r82iBB.iB© iF%) r8`H&`H j&ʙ!H !H !HHHXAHAH[k sqkss6gs"  [H m(mÞd d|Hc st[I»z[< , b s> s< W H< [ W - >   H" bzH,M<  ;9h>> A0@. `cfA@!h J H  H- `c bzH-H  Bg}^D@`cf@8 Jb B bz ( $  ]``H H`H M!ag}^`c! [{Hh&}^ Ab|&  H &,`z Ad& a:zcf  H7 c P H J H  H  H"  | H cWB? f|  _] L/ ȣƃ(C   FD ͳ `cfS '`cf `# }h~4}l}AA+P}AJ AGE@H8@=74l:`~8( }~4}]EL}<IA @E l: 6`cfl:  09?- ~X~4~\}A pFْpI B~4 ~~4~ @@H FIA΋@~ $ H L`~`L\Dg~`c H3 `cfthV z ` ` ` _hizL' p wg:t t a΋gF))( Pl( p( H hJ H i H/ h) <\IZb z `z a'  tz #HYt'H#H%RG!8hB) F o: H ؠH- BI t `_Hg g8)( pYG!8i`x΋ũ٩ ' @ ɩ ɩwꀪ) p ɩɩɩ' @ [)  HA +p pJJPPiiiA& )`  ! G3A3 B ժ H<\ iɩ ` #k+ +`΋ih! Z쀬 M$n M$n M$xn @@11 ڂ ڂ    8 ,@?΋Q BH`_ ƻ^[L2tѠv`cf L21 a"Db RBШ? R Q4B`cfh?H E!5 D!A` Z|" BFDwDI@h&`cfI A I@HiI 8xCAh" BZ섄IK qGDD K x #5aЖ    #Gՠ8 hBHSH@`cfK$'aCHSH@`cfK$ H H `c'aC@`cf΋ wDѧ '(`_BB..$&ƂЈ(@X BA`|``g `p` XA ( H `.r`wg QHv gX'TXZ>g Q>H/;CF Q& $.gXZrf Q QT AZ|X   ! G̴Iܴ lЦ " GH/! RFDBLL'  j aceK H٠H"zi Ha)  H, z`cf H H/  H; z`c΋' uG!8h&J[IZ`XـH    p  H  Cd A'aPjFDBHxh& H7 \, x4,`Ecbp a, $, $D ddX^@Q+djFDBLFc٠H"zi    a)  H H3 `c` ,`cf΋) pZ`H" `_΋)   K  4p ddddddPdddPPiCC)  )B\) ! G̳Dܳ' @)  iH)' @ iCC\à    `Z|B" [΋_() p47NN7N$+++$$ + +{Q) g A)iQЌH"' H`_bg Q' DɄ&ɧ4' PR΋ [ + [ H ZH" YH" (`Z΋ + [ H k HH" H" (   2gШcШ?  H*VD "H5&D TE'  a&Hb4 QR H8 Hh&`c'GBa TjH W RfDDY5       `cf `#   &Bqf bڍ蠇 ă`cfyyK@xjD H7 ch&`c@`cfЫ K`΋΁c !Z|BHI# "G{@{#`_r JʁZ_ Bc# #;Ƌ v1$  qǢ    ˆ Ppˁ ݻfjZ`_BFzf  _hiH =HhB"( ` h&(R (RhihmxjmMZHg/H< `#΋"# t p B# c># #2ƃ v1" qâ    ˆ Ppˁ f`H,J[΋_*@@hAhh lz`_j΋_,k bN Nd> qLTP`_r ('`cf h" ՋZ H #  H(@ .0N H- H"`c #  J HWр  &-&r r M#&x x ΀K QВDJ   w V `mX[/ j`N!dBd\b`Hg^J`v"L2Da C` `$ Ȃl:v`hSE0!.gE Hh s t`4hhNb5 L" HXDwe I% a:`H Y`H  HX H^H)HV@ HV`f"`". +H("c"Dc D" "PIh# H<Bg H^ "` BgJ8"1" dѢB`Hh&`f  dѢȢ&& Ȣ,, Ȣ(Ȣ*Ȣ, 4`m`{"4bCx"L (H*"JH ؠH- H`fؠH. "P "H ؁؁> qȡLTP"Pb )-b4"? "dE Ud  rò `#G ` &&?!H<Z|ȠHȠȠ ؠ ؠ ؠ ؠ ؠؠ ؠ ؠ G؇FȆؠ 3!H7Z|ȠGȠȠ ؠ G !؁ 8 ؁ؠ  ( (؈ 8؈ G؇FȆE`ŠHŠG`BZ H  `MEMCM ABGNYd2K3D ! Z|pȠGȠȠ ؄  3E`t`cfBZ@ ΋_$g`L'(`v'(H'`g( kg F4C!&Z|vȠGȧ*ȧ, ؄ ب بhء ؠH'جg إ`g( ؠ{I|(ؠzؠzؠC q؁؁ $. 4b $b &40(Z|vȠȧ*ȧ, ؄ ب بhء ؠH'ج'FI~( 47Z|vȠȠȠ ȧ* ȧ,ȥ`ȥ`ȥ`g AȧȠy((E`nBZ`_RSF STAT!c1c!c d(d*$,F$BHPM %X@`HM6f"BH0 @@#00  ! 0 AB@`@B@  `"J(@K2 $&f2$ )0D  A $ 0qM @!@`( $@D@@D)@R DP!`V J@ XHD"D4A @D$ "$ $A" Hzzo"dB( |D) vzѤ F :Š  H99G> IH> G: G B=@L xpGGGGGGGT'1JGP- `zzao!"z zZz`zZzo!"zI |~ |zo,zZz`zZzZ HP $y$''d >   !ʂ  sI "zzZ!HRp. H' |"„** $y$''zZz¤, d > $. p.! @/¡ B*:$BJҤ > ) H¤ QUIT S$SYSGEN`R  ADJUST 5 911 CRT  PHASE 2,SKI1A ! "INCLUDE DS01.S$SYSGEN.DSR911 "ADJUST 5 979 MAG TAPE PHASE 2,SKI1C ! "INCLUDE DS01.S$SYSGEN.DSR979 " END & "ADJUST 5 SVC AND I/O  PHASE 2,SKI15 ! "INCLUDE DS  DS01.S$SYSGEN.DUMMYDS01.S$SYSGEN.SKI1.D$OBJECT DS01.S$SYSGEN.SYSLGY$ DS01.S$SYSGEN.ROOTG  DS01.S$SYSGEN.FILMG DS01.S$SYSGEN.DUMKIF$  DS01.S$SYSGEN.MEMRES$  DS01.S$SYSGEN.DUMCO`  ˓$ L $&YEAR,@$IDT$,&DAY,&HOUR,&MINUTE)$.SYN $IDT$ = "" $C + 1.ENDIFM$  DS01.S$SYSGEN.IOCOM DS01.S$SYSGEN.NOCOMM$  DS01.S$SYSGEN.SVCIO DS01.S$SYSGEN.NOFCCC$ DS01.S$SYSGEN.SYSLOG$  DS01.S$SYSGEN.DDIOSR$   DS01.S$SYSGEN.LPDSR   DS01.S$SYSGEN.DSR91`  ˓$ L > ¤J { [a ! ! [ (L&H$`xoY|`x H  s\s\ H" HJ`H o,[$&• d&z`H Yd& D)ҙ{^ |9[$&`H D){X999999Wz[z$&Fl y   "`|  \I  Ҫ|s\d`L`F`H¤ Z`x |`zƺ`H{^[$&  |~$&$(¬ * œJ IIB{*{V[ HGQ H|`„Jz|f{jҬ  y [ (P A $HA%$  $BHJB@@@ BH$I @JPRyzo" x.p-&>>---!!>---)zf(zbzda H'`H H"`H  H!4$ o,yzo j ¤l„*$T* xda{Ib$I 2 1$y xxa{I $I   H   Y H  b$`F>1yx$ zb$E„*$$ 7b$$ [T  $VT  0 zho zz`xT zo`H-Baa$  Dd$z`x~ FP$$  %zz  `ya H. + , y!.$  62z 2|64 42, ¡}j62:   , + G :$:,, ;  p  -㧧`z}$}}`H¡Ơv$4zƠx`GL`zha3¡$:z, K } }   j@2   { 62Aa !e`z , { 7   ya¡, [$::R2  $  @^ (  H"" H'N   yY H-     o! GB`H   H4$4$I +d/6>`~҉J¤2>`~҉J `nXaI¡, [$:6^  , ¡}j $: +¤2`FJ=d4J‰ 0, {, k`nb46ʉ 2¤0 0!¤0, ; 2 +   ;2 6  E `|@q{{d, %  ~{/I G,I , Ke 4liE yi|6 0. H`G82 d4~E E@, K2 aaE d, 9`|Z`{(~J¤2 ¤2 Jbd02$. 2 H$0$0, k`{( 6/, G10, k¤2a$2¡B 6A@ .H`uQ`G , ;`}Zޅ26$  Ad$/t +})I `zhb2`G  $4z >GJ:`~rH> ~2[6=~9~a %02 p2[|~|||t|d||^|~~h{||h|26 $:2  G [d. v6 `u`HI Hj2$: @26[20d0bd22$.  [ 0J6 `u`H . H=4[ 07$0d, )P  d,2  6 `u`H .$:[ 6  @2  2 2![`|6=~9~2($: @226 26(d2$2222[d9 H EE G,[H EE[$y[5j`H8,4)4), G%r: !6g Jҩq,`r,O O  $P@@@@p h$ (D$ !  X`2qtSKI1 vv2(L<$~JFM01xqsEOS$FM02xqsEOS$s"TBIDKbh >lzST01V>@h b> zST02V>@0 |`zLP01|ppp  | zLP02|ppp((  Q $ }TzDS02 t}  #0000000 @ Q }T zDS03 &}  #0000000  Q }T DzDS04 } R(B0000B0000B0000B0000B0000B0000B0000B0000B8000C0D7EB0000C016EB00007F259F D$DA0021RR(C0350C01E0C01E2A0350A0364C0370A0366A0370A044CB454FB5300A0450B00007F1F4F D$DA0022RR(B0000B0000B0000B0024BF000B0000B0000C0482B0000B0000B0000B5442B49447F260F D$DA0023RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000C00E8B00007F291F D$DA0024RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0025RR(B0000B0000B0000B0000B0000B0000B8000C0D7EB0000B0000B0000C0510C05C27F254F D$DA0026RR(B0000C04C8B0000B0000B0000B0000B0000C057AC0148B0000B0000B000FB09057F23FF D$DA0027RR(C0510B0000B0000B0000B0000B0000B0000B0000B0100B0000B0000B0000C04CC7F27CF D$DA0028RR(B0000B0000B5354B3031B0000B0000B0000B0056C04D8B0000B0000B0000B00007F26BF D$DA0029RR(BFF00B0000B0000B0000C0530B0000C0550C0550C056EB0000B4001B0000B00007F23EF D$DA0030RTR(B0000B0000B0000B0110B0000B0000B0000C04C8B0000B8480C0D7EB0000B00007F248F D$DA0031RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000A0550A056EB001E7F271F D$DA0032RR(B0000B0000B0000B0000B0000C062CC0148B0000B0000B000FB0905C05C2B00007F246F D$DA0033RR(C04FEB0000B0000B0000B0000B0000B0120B0000B0000B0000C057EC04EEB00007F22BF D$DA0034RR(B5354B3032B0000B0000B0000B0056C058AB0000B0000B0000B0000BFF00B00007F240F D$DA0035RR(B0000B0000C05E2B0000C0602C0602C0620B0000B4002B0000B0000B0000B00007F271F D$DA0036RR(B0000B0130B0000B0000B0000C057AB0000B8480C0D7EB0000B0000B0000B00007F248F D$DA0037RR(B0000B0000B0000B0000B0000B0000B0000B0000A0602A0620B001EB0000B00007F28BF D$DA0038RR(B0000B0000B0000C0734C0138B0000B0000B000DBA102C0674B0000B0000B00007F259F D$DA0039RR(B0000B0000B0000B0000B0060B0000B0000B0000C0630B0000B0000B4C50B30317F27CF D$DA0040RTR(B0000B0000B0000B0200B0000B0000B0000B0000B0000BFF00B1770B1770B00007F263F D$DA0041RR(B0002B0000C0680C0680B00AAB0000A0680A072AB0000B0000B0000B0000B00007F247F D$DA0042RR(C083CC0138B0000B0000B000EBA102C077CB0000C063CB0000B0000B0000B00007F21BF D$DA0043RR(B0000B0020B0000B0000B0000C0738C0652B0000B4C50B3032B0000B0000B00007F268F D$DA0044RR(B0200C0662B0000B0000B0000B0000BFF00B1770B1770B0000B0002B0000C07887F23AF D$DA0045RR(C0788B00AAB0000A0788A0832B0000B0000B0000B0000B0000C08EEC0128B00007F214F D$DA0046RR(B0000B000CB5106C0884C0D52B0000B0000B0000B0000B0000B0000BF800B00007F241F D$DA0047RR(B0000B0000C0840B0000B0000B4453B3032C08D4B0000B0000B0000B0000B00007F269F D$DA0048RR(B0000B0000B0000BFF00B0000B0000B0000B0000B00D2B0000B0000B0000B00007F26DF D$DA0049RR(B0000B0000B0000B0000B0000B0000B0000BFFFFB0000B0000B0000B0000B00007F257F D$DA0050RTR(B0400B1000A08AEA08B4B0000B2020B2020B2020B2020B0000B0000B0000B00007F250F D$DA0051RR(B0000B0120B0000B2330B3030B3030B3030A08D4A08E4B0000B0000B0000B00007F253F D$DA0052RR(B0000C09A0C0128B0000B0000B000CB5106C0936C0D52B0000C084EB0000B00007F218F D$DA0053RR(B0000B0000BF800B0000B0000B0000C08F2C0862B0000B4453B3033C0986B00007F22EF D$DA0054RR(B0000B0000C0872B0000B0000B0000B0000BFF00B0000B0000B0000B0000B00D37F25AF D$DA0055RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000BFFFFB00007F257F D$DA0056RR(B0000B0000B0000B0000B0200B1000A0960A0966B0000B2020B2020B2020B20207F27AF D$DA0057RR(B0000B0000B0000B0000B0000B0120B0000B2330B3030B3030B3030A0986A09967F265F D$DA0058RR(B0000B0000B0000B0000B0000C0A52C0128B0000B0000B000CB5106C09E8C0D527F228F D$DA0059RR(B0000C0900B0000B0000B0000B0000BF800B0000B0000B0000C09A4C0914B00007F259F D$DA0060RTR(B4453B3034C0A38B0000B0000B0000C0924B0000B0000B0000B0000BFF00B00007F23CF D$DA0061RR(B0000B0000B0000B00D4B0000B0000B0000B0000B0000B0000B0000B0000B00007F297F D$DA0062RR(B0000B0000BFFFFB0000B0000B0000B0000B0000B0100B1000A0A12A0A18B00007F229F D$DA0063RR(B2020B2020B2020B2020B0000B0000B0000B0000B0000B0120B0000B2330B30307F28EF D$DA0064RR(B3030B3030A0A38A0A48B0000B0000B0000B0000B0000C0B1EC0158B0000B00007F234F D$DA0065RR(B0008BC108C0A9AC0AFCB0000B0000B0000B0000B0000B0000BF880B0000B00007F1FEF D$DA0066RR(B0000C0A56B0000B0000B4D54B3031C0AE4B0000B0000B0000B0000B0000B00007F23FF D$DA0067RR(B0000B0000BFF00B0000B0000B0000B0000B00E1B0000B0000B0000B0000B00007F26DF D$DA0068RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B80007F2A7F D$DA0069RR(B1000A0AC4A0ACAB0000B2020B2020B2020B2020B0000B0000B0000B0000B00007F243F D$DA0070RTR(BFFFFBFFFFB0000A0AE4A0AF4C0A56B0000B0000B0000B0000B0000B0000B00007F18FF D$DA0071RR(B0000B0000B0000B0000BF880B0000B0000B0000B0000B0000B0000B0000B00007F289F D$DA0072RR(C0BF0C0128B0000B0000B000AB5106C0B66C0BCEB0000C09B2B0000B0000B00007F1E5F D$DA0073RR(B0000BF820B0000B0000B0000C0B22C09C6B0000B4453B3035C0BB6B0000B00007F20FF D$DA0074RR(B0000C09D6B0000B0000B0000B0000BFF00B0000B0000B0000B0000B00D5B00007F246F D$DA0075RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000BFFFFB0000B00007F257F D$DA0076RR(B0000B0000B0000B0800B1000A0B90A0B96B0000B2020B2020B2020B2020B00007F25CF D$DA0077RR(B0000B0000B0000B0000B0360B0000B2330B3030B3030B3030A0BB6A0BC6C0B227F222F D$DA0078RR(C0BF4B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000BF820B00007F262F D$DA0079RR(B0000B0000B0000B0000B0000B0000B0000C0CA2C0128B0000B0000B000AB51067F25FF D$DA0080RTR(C0C38C0BCEB0000C0B30B0000B0000B0000B0000BF820B0000B0000B0000C0BF47F1F2F D$DA0081RR(C0B44B0000B4453B3036C0C88B0000B0000B0000C0B54B0000B0000B0000B00007F238F D$DA0082RR(BFF00B0000B0000B0000B0000B00D6B0000B0000B0000B0000B0000B0000B00007F269F D$DA0083RR(B0000B0000B0000B0000BFFFFB0000B0000B0000B0000B0000B0400B1000A0C627F238F D$DA0084RR(A0C68B0000B2020B2020B2020B2020B0000B0000B0000B0000B0000B0360B00007F276F D$DA0085RR(B2330B3030B3030B3030A0C88A0C98B0000B0000B0000B0000B0000B0000C01287F244F D$DA0086RR(B0000B0000B000CB5106C0CEAC0D52B0000C0C02B0000B0000B0000B0000BF8007F206F D$DA0087RR(B0000B0000B0000C0CA6C0C16B0000B4453B3031C0D3AB0000B0000B0000C0C267F20DF D$DA0088RR(B0000B0000B0000B0000BFF00B0000B0000B0000B0000B0009B0000B0000B00007F27AF D$DA0089RR(B0000B0000B0000B0000B0000B0000B0000B0000BFFFFB0000B0000B0000B00007F257F D$DA0090RTR(B0000B0800B1000A0D14A0D1AB0000B2020B2020B2020B2020B0000B0000B00007F259F D$DA0091RR(B0000B0000B0120B0000B2330B3030B3030B3030A0D3AA0D4AC0CA6C0840C08F27F1EAF D$DA0092RR(C09A4B0000B0000B0000B0000B0000B0000B0000B0000BF800B0000B0000B00007F272F D$DA0093RR(B0180B0000B0600B0000B0000B0101B0000B0000B0000B0000C0CA2B0900B88807F256F D$DA0094RR(C0D88B0000C083CBD200B0880C0D92B0000C08EEBD300B0880C0D9CB0000C09A07F17FF D$DA0095RR(BD400B0880C0DA6B0000C0B1EBD500B0880C0DB0B0000C0BF0BD600B0880C0DBA7F157F D$DA0096RR(B0000C04C8B0000B0880B0000B0000B0000B0000B0658B0000B0160B0000B00007F265F D$DA0097RR(B0000B0000B3228B0000A0DD6A3FFEB0002B0008B0000B0060B0000B0000B00007F220F D$DA0098RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0099RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0100RTR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0101RR(B0000B0000B0000B0000B0000B0000C4068C438EBFFFFBFFFFA406EA438EB00007F186F D$DA0102RR(BFFFFBFFFFA4394A4634B0000B0000B0000B0000B0000B0000C46BCC4752C46BC7F169F D$DA0103RR(C4752B0000B0000C46BCC4752C46BCC4752C46AEC473AC46C0C473AC46D2C473A7F146F D$DA0104RR(C46E4C473AC46BCC4752C46F6C473AC4708C473AC471AC473AB0000B0000C46747F159F D$DA0105RR(C4676C4678C467AC467CC467EC4680C4682C4684C4686C4688C468AC468CC468E7F129F D$DA0106RR(C4690C4692C4694C4696C4698C469AC469CC469EC46A0C46A2C46A4C46A6C46A87F122F D$DA0107RR(C46AAC46ACB0000B4000B2000B1000B0800C46BEC05C2B0000C0148B0000B00007F1E9F D$DA0108RR(B0000B0000B0000C46D0C0AF4C0A88C0158B0000B0000B0000B0000B0000C46E27F211F D$DA0109RR(C0510C46C0C0148B0000B0000B0000B0000B0000C46F4C0BC6B0000C0128B00007F21FF D$DA0110RTR(B0000B0000B0000B0000C4706C0D4AC46F6C0128B0000B0000B0000B0000B00007F240F D$DA0111RR(C4718C0630C076AC0138B0000B0000B0000B0000B0000C472AC0738C471AC01387F207F D$DA0112RR(B0000B0000B0000B0000B0000BC2E0C00D2BC80AC00D2B032AB0417BC80BC00D27F1C5F D$DA0113R6B032BB0460B0000B0000B0420B0000B00207F892F D$DA01146J40000ADIDLE40000ADSBUF40000ADSEXT40000ADSHAN40000ADSREN7F278F D$DA0115JJ500C8AQPTRS40000ASREXT40000ASRHAN50058BASADJ3045CBIDDER7F202F D$DA0116JJ304B2BIDQUE50450BIDTSB500C4BM$CNT500C6BM$LMT60021BM$SIZ7F25AF D$DA0117JJ 60400BM$SZ 54004BPT 40000CASHAN3464ACLKPC 34648CLKWSP7F2EEF D$DA0118JJ 50DD4CMEMSZ60007COM 40000COMDSR40000COMINT60004CR  7F314F D$DA0119JJ40000CRHAN 40000CRINT 40000CRREN 40000CRSPUR60005CRT 7F310F D$DA0120JJ305A0CRT91140000CRT91360003CS  60000CTRYVL500D2CURMAP7F306F D$DA0121J@J40000D$STRT40000DDTTSB34708DINT 30CC8DIODSR50CA2DIOPDT7F22DF D$DA0122JJ40000DM$QUE30CB4DRTWP 60006DSC 40000DSCMGR5005ADSTUNT7F291F D$DA0123JJ30CD8DTBSY 60000DUMMY 50000DXDB 50000DXSTRT50056ENDADD7F28AF D$DA0124JJ50054ENDDXL50052ENDLIM53FFEENDSTB5005EETSK 5008AFIDMAP7F219F D$DA0125JJ3034EFM$ABD3034CFM$PC 50178FMPTSB5016EFMQSER50166FMTTSB7F243F D$DA0126JJ40000FPYDCD40000FPYDSR40000FPYINT40000FPYSPR40000GOREN 7F21AF D$DA0127JJ40000HAN82040000IDL8203463EIIE 3463CIIWSP 346AEILLSVC7F302F D$DA0128JJ40000INT82050DD0IOSHBC50DCCIOSMAX50DCEIOSSTA30060ITSB 7F20CF D$DA0129JJ50DD2ITSKCR600C8ITSKMX40000KBI733346E4KBI91140000KBI9137F294F D$DA0130JJ40000KBIADS40000KBIDLE50510KBST01505C2KBST02504B4KBTAB 7F2C0F D$DA0131JH 50D7ELDTLST60002LP3075ALPHAN 3472CLPINT 30744LPSPUR7F274F D$DA0132HJ500F8MAPCMN500D8MAPFK 500D4MAPLST500E8MAPMR 50118MAPSHD7F211F D$DA0133JJ50004MAXIO 60004MAXST260002MAXSTA5004EMEMSIZ50050MEMSW 7F22DF D$DA0134JJ50128MPDS0150128MPDS0250128MPDS0350128MPDS0450128MPDS057F2D6F D$DA0135JJ50128MPDS0650138MPLP0150138MPLP0250158MPMT0150148MPST017F2AFF D$DA0136JH 50148MPST0260008MT30A78MTHAN 346D2MTINT 50068NUMDEC7F2D9F D$DA0137HJ54066OADPTR500C0OF$FCB500C2OF$LDT30006OVYTAB50630PDLP017F26AF D$DA0138JJ50738PDLP02504BCPDTLST40000PDTSTK500B4PF$FCB500B6PF1LDT7F221F D$DA0139JJ500B8PF2LDT500BAPF3LDT40000PFRSIB34634PRUPWP50D6APSBLST7F1A5F D$DA0140JJ50D70PSBSTR50CA2PSDS015083CPSDS02508EEPSDS03509A0PSDS047F205F D$DA0141JJ50B1EPSDS0550BF0PSDS065062CPSLP0150734PSLP0250A52PSMT017F24AF D$DA0142JJ504C8PSST015057APSST023463APWRDN 34636PWRUP 34638PWRWSP7F1D1F D$DA0143JJ40000RENTER500BCRF$FCB500BERF$LDT5006ARIDMAP500B2RSTRID7F1FEF D$DA0144JJ500ACRSTRSW5002CSABADD50028SAHEAD50030SAHIAD5002ESATLEN7F1F8F D$DA0145JJ53FFESCIBMX54000SCIFMX34754SCRASH346B0SCWSP 300D4SKI11 7F209F D$DA0146JJ300E4SKI12 300F4SKI13 30104SKI14 30114SKI15 30124SKI16 7F3A9F D$DA0147JJ30134SKI17 30144SKI1A 30154SKI1C 50062SLCNT 50064SLCTIM7F306F D$DA0148JJ60006SLICE 50DC9SLNFLG50DC6SLNLID50DC4SLNLUN50DCASLNMCA7F183F D$DA0149JJ50DC8SLNQUE60006STUNIT60018STUNT4346B2SVCPRC50DD6SYSTAB7F13EF D$DA0150JJ63228TABSIZ305B0TDI91140000TDI9135005CTDL  30008THEEND7F2FBF D$DA0151JJ50066TM$DFR500B0TM$SLC500AETM$TSV500AATMESLC50040TMTOL 7F214F D$DA0152JJ50044TMTOLN50046TMTOLO5004ATOLBET3474ETRAPRT30A64TRTWP 7F179F D$DA0153JJ50060TSKLST50462TSKSTR60001TTY 50024UABADD5004CUAHADD7F256F D$DA0154JNJ50020UAHEAD50026UATLEN60078UPS 500D2USVCLN6FFFFUSVCMX7F1EDF D$DA0155JJ500D2USVCTB50D4AWPDS0150BC6WPDS0550AF4WPMT0154634XY  7F267F D$DA0156JD:  D$DATA  01/23/90 14:49:28  SDSMAC 3.3.0 79.312D$DA0157DJJ300E4SKI12 300F4SKI13 30104SKI14 30114SKI15 30124SKI16 7F3A9F D$DA0147JJ30134SKI17 30144SKI1A 30154SKI1C 50062SLCNT 50064SLCTIM7F306F D$DA0148JJ60006SLICE 50DC9SLNFLG50DC6SLNLID50DC4SLNLUN50DCASLNMCA7F183F D$DA0149JJ50DC8SLNQUE60006STUNIT60018STUNT4346B2SVCPRC50DD6SYSTAB7F13EF D$DA0150JJ63228TABSIZ305B0TDI91140000TDI9135005CTDL  30008THEEND7F2FBF D$DA0151JJ50066TM$DFR500B0TM$SLC500AETM$TSV500AATMESLC50040TMTOL 7F214F D$DA0152JJ50044TMTOLN50046TMTOLO5004ATOLBET3474ETRAPRT30A64TRTWP 7F179F D$DA0153JJ50060TSKLST50462TSKSTR60001TTY 50024UABADD5004CUAHADD7F256F D$DA0154JN $   ˂R˃ ?x<"H@!@ $   ˂R˃ @X( ` ,P21DHJDH Ȟ 0QXRDT@P TXR$$J   D"B01BH 3 I,0`H4 32$!4H VHU $   ˂R˃ T PD@@" $mJcTBeH$@$_WWJª60&@H@AU@P! D(1+D$ @% *|@TE@2 $   ˂R˃ BHJ   P )!QE`RU* HA Ip@`$   ˂R˃ $   ˂R˃ $   ˂R˃ $   ˂R˃ ` A!+@@!F d|P@` `@-al0ƀ 04Xc@ L@H3` K``J@ iH HDh @@D C1 b$eE#$   ˂R˃ H ȀHD Z K@Ж@@ P$h44d 0 01"jRL&HB@h,@ X`DJl`4(0i  I@$   ˂R˃ @  `"J(@K2 $&f2$ )0D  A $ 0qM @!@`( $@D@@D)@R DP!`V J@ XHD"$   ˂R˃ D4A @D$ "$ $A" H )0D  A $ 0qM @!@`( $@D@@D)@R DP!`V J@ XHD"$   ˂R˃ @ ' OUTPUT FORMAT = IMAGE  ' '> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 3> &  'P PROCEDURE 1, DUMMYORIGIN = 0000 LENGTH = 00A0, DUMMY  (PROCEDURE ID = 1)P ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DUMMY 1 000000A0 INCLUDE 11/14/79 14:56:17SDSLNKD '> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 4> &  'B PHASE 0, SKI1 ORIGIN = 00A0 LENGTH = 9B92 (TASK ID = 3)B ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D D$DATA2 00A04758 INCLUDE 01/23/90 14:49:28SDSMACDD SYSLGY3 47F80052 INCLUDE 11/14/79 14:57:38SDSLNKD( ROOT4 484A2942 INCLUDE 11/(14/79 14:59:29SDSLNK ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L *ABPRB2 4FE8 4 ABTLDT 4EF8 4 ABTPDT 4F68 4*AQLEN 4AF2 4LL AQPTRS 0168 2*AQXT0 4EEA 4 AQXT1 4EEC 4 ASPQUE 4BE2 4LL BASADJ 00F8 2 BIDQUE 4B9C 4 BIDTSB 04F0 2 BIDTSK 4B00 4LL *BLANK 4AB2 4 BM$CNT 0164 2 BM$DEL 53C4 4*BM$FLS 51D6 4LL BM$IOR 5390 4 BM$IOW 5384 4 BM$LMT 0166 2 BM$LNK 53BC 4LL BM$MAP 53DA 4 BM$MP2 5468 4 BM$MPB 53CC 4 BM$MPK 5468 4LL BM$SCH 5276 4 BM$SIZ 0021* 2*BM$SZ 0400* 2 BM$TRM 530E 4LJ BM$UPD 521A 4 BPT 40A4 2 BUFCHK 548E 4 BYTE01 4AA8 4J BYTFE02 4AAA 4 BYTE03 4A97 4 BYTE04 4AAC 4 BYTE05 4AC4 4FL BYTE06 4AC5 4 BYTE07 4AC6 4 BYTE08 4AAE 4 BYTE09 4AC7 4LL *BYTE0A 4AC8 4*BYTE0B 4AC9 4*BYTE0C 4ACA 4 BYTE0D 4ACB 4LL *BYTE0E 4ACC 4*BYTE0F 4ABD 4 BYTE10 4AB0 4 BYTE12 4ACD 4LL *BYTE13 4ACE 4 BYTE14 4ACF 4 BYTE15 4AD0 4*BYTE17 4AD1 4LL BYTE19 4AD2 4 BYTE1D 4AD3 4 BYTE20 4AB2 4 BYTE24 4AD4 4LL *BYTE30 4AB4 4 BYTE40 4AB8 4*BYTE41 4AD5 4*BYTE42 4AD6 4LL *BYTE44 4AD7 4*BYTE45 4AD8 4*BYTE46 4AD9 4*BYTE47 4ADA 4LL *BYTE49 4ADB 4*BYTE4F 4ADC 4*BYTE50 4ADD 4*BYTE52 4ADE 4LL BYTE60 4ADF 4 BYTE80 4ABA 4*BYTEB3 4AE0 4*BYTEB4 4AE1 4L@ *BYTEB5 4AE2 4*BYTEB7 4AE3 4*BYTEB8 4AE4 4*BYTEB@D 4AE5 4L *BYTEE0 4AE6 4*BYTEFE 4AE7 4 BYTEFF 4ABF 4 CLEANQ 4B24 4LJ CMDFLG 4AF0 4 CMEMSZ 0E74 2*COM 0007* 2 COMMQ 4BF6 4JF CP$IDL 4AEE 4*CR  0004* 2 CRT 0005* 2*CS  0003* 2FJ *CTRYCD 61AE 4 CTRYVL 0000* 2 CURMAP 0172 2*DAY 4ECC 4JL DDTTSB 4D32 4 DELQUE 4BA6 4 DEVLDT 4EF4 4 DGNQUE 4B38 4LJ DIOPDT 0D42 2 DM$QUE 4B60 4*DMGTSB 4D98 4 DSC 0006* 2JL *DSTUNT 00FA 2*DUMMY 0000* 2*DXDB  00A0 2*DXSTRT 00A0 2LL ENDACT 7062 4 ENDADD 00F6 2 ENDDXL 00F4 2 ENDLIM 00F2 2LL ENDSTB 409E 2 ETSK  00FE 2*F$FLG 6048 4 FIDMAP 012A 2LL FLG12 6126 4 FLGWCS 6128 4 FM$EXT 54D6 4 FM$IO 5504 4L4 FM$RDM 562A 4*FM$WTM 5622 4 FMPTSB 02148 2 FMQSER 020E 2L FMT000 4AE8 4 FMTINF 4AEA 4 FMTTSB 0206 2*FNDSTK 6E06 4LJ FSTXFR 66A0 4 FUTQUE 4B10 4*HOUR  4ECE 4 IIE 7010 4JL IIWSP 713A 4 INSQ  4BCE 4 INSQUE 4B1A 4 INVOL 4BEC 4LL IOQUCB 6678 4 IOSHBC 0E70 2 IOSMAX 0E6C 2 IOSSTA 0E6E 2LL ITSB  4C00 4 ITSKCR 0E72 2 ITSKMX 00C8* 2*KBST01 05B0 2LL *KBST02 0662 2 KBTAB 0554 2 KILLQ 4BC4 4 KILTSK 7044 4LL KTIO  503E 4*KTSKPC 5192 4*KTSKWP 5172 4 LDTLST 0E1E 2LJ *LP  0002* 2 MAPCMN 0198 2 MAPFK 0178 2 MAPLST 0174 2JL MAPMR 0188 2 MAPOFF 51B6 4 MAPON 51BA 4 MAPQUE 4BB0 4LL *MAPREC 5752 4 MAPSHD 01B8 2 MAXIO 00A4 2 MAXST2 0004* 2L MAXSTA 0002* 2 MEMSIZ 0 .0EE 2 MEMSW 00F0 2*MINUTE 4ED0 4.L MM$FND 5812 4*MM$GS0 5DD6 4 MM$GSA 5D14 4*MM$GUA 5BFE 4L> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 5>R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO RL *MM$PAK 61B2 4 MM$RL2 5F08 4 MM$RLM 5E34 4*MM$ROL 5EFE 4LL MM$RSA 5D84 4 MM$RUA 5C8E 4*MM$SCN 5F52 4*MM$TSB 5DEC 4LL *MMFNDB 4AF8 4*MMFNDQ 4B74 4 MMQQ  4B88 4 MMUMAX 4AFA 4LL *MMWQQ 4B7E 4*MPDS01 01C8 2*MPDS02 01C8 2*MPDS03 01C8 2LL *MPDS04 01C8 2*MPDS05 01C8 2*MPDS06 01C8 2*MPLP01 01D8 2LL *MPLP02 01D8 2*MPMT01 01F8 2*MPST01 01E8 2*MPST02 01E8 2LJ MSGQUE 4BD8 4*MT  0008* 2 NUMDEC 0108 2 OADPTR 4106 2J OF$FCB 0160 < 2 OF$LDT 0162 2 OVYEND 61B4 4 OVYQUE 4B56 4<L OVYTAB 6032 4*OVYTSB 4C66 4*PDLP01 06D0 2*PDLP02 07D8 2LL PDTLST 055C 2 PDTSAV 4AF4 4 PF$FCB 0154 2 PF1LDT 0156 2LL PF2LDT 0158 2 PF3LDT 015A 2 POP0  6224 4 POP1  620A 4LL POP2  6202 4 POP3  61FA 4 POP4  61F2 4 POP5  61EA 4LL POP6  61E2 4 POP7  61DA 4*POP8  61D2 4*POP9  61CA 4LL PRUPWP 6FD8 4 PSBLST 0E0A 2 PSBSTR 0E10 2*PSDS01 0D42 2LL *PSDS02 08DC 2*PSDS03 098E 2*PSDS04 0A40 2*PSDS05 0BBE 2LL *PSDS06 0C90 2*PSLP01 06CC 2*PSLP02 07D4 2*PSMT01 0AF2 2LL *PSST01 0568 2*PSST02 061A 2 PUSH1 61C4 4 PUSH2 61C2 4LJ PUSH3 61C0 4 PUSH4 61BE 4 PUSH5 61BC 4 PUSH6 61BA 4JL PUSH7 61B8 4*PUSH8 61B6 4*PUSH9 61B4 4 PWRDN 6F1E 4LL PWRUP 6F20 4 PWRWSP 6FD2 4*QHEAD 4B10 4*READS 68F2 4LL RETRID 654E 4 RF$FCB 015C 2 RF$LDT 015E 2 RIDMAP 010A 2LL *RSET12 7094 4 RSTRID 0152 2 RSTRSW 014C 2 RWTQUE 4B6A 4LL *RWTTSB 4CCC 4*S$$LEN 0100* 4*S$$PAT 484A 4*SABADD 00CC 2LL SAHEAD 00C8 2 SAHIAD 00D0 2 SATLEN 00CE 2 SBDQUE 4B92 4LL SCHDWS 6ED2 4 SCHRET 6628 4 SCIBMX 409E 2 SCIFMX 40A0 2LL *SCR$DA 624E 4*SCR$HD 627D 4*SCR$PC 629E 4*SCR$SC 627F 4LL *SCR$SL 6286 4*SCR$TK 6280 4*SCR$WS 623A 4 SCRASH 629A 4LL SCWSP 6ED2 4 SECOND 4ED2 4 SHDSTK 6D3A 4 SLCNT 0102 2L4 SLCTIM 0104 2*SLICE 0006* 2 SLMQUE 4BB4A 4 SLNFLG 0E69 2L *SLNLID 0E66 2 SLNLUN 0E64 2 SLNMCA 0E6A 2 SLNQUE 0E68 2LL SLPBQC 47F8 3 SLQCNT 4BC3 4*SO$BTO 6912 4 SO$LTO 6904 4LL *SO$RFO 6994 4*SOVTSB 4E64 4 SOVYQ 4B4C 4 STUNIT 0006* 2LL STUNT4 0018* 2 SUSPQI 63AC 4 SVCFND 6D26 4*SVCTSB 4DFE 4LL *SYSPF 4B02 4*SYSPFN 4B08 4 SYSTAB 0E76 2 TABSIZ 3228* 2LJ TDL 00FC 2 TDUDWS 4ECA 4 THEEND 718C 4*TICKS 4AEC 4JJ TLDTSB 4C00 4 TLDWS 6EF2 4*TLQ 4B2E 4*TM$BLK 4AFE 4JL TM$CLR 61A8 4 TM$DEC 61A4 4 TM$DFR 0106 2 TM$DOR 69D6 4LL TM$EXT 60B4 4 TM$INC 61A0 4 TM$OPN 6A1C 4 TM$QRM 6BB6 4LL *TM$RDR 6C4E 4 TM$SLC 0150 2 TM$T0 4AEC 4 TM$TSV 014E 2L  TMAQ0 6A90 4 TMAQUE 6 .A48 4 TMBID0 63D2 4 TMDLST 7174 4.L TMDQUE 6B86 4 TMESLC 014A 2 TMLLST 715C 4 TMMLIP 4AF6 4LL TMQUE 6ABE 4 TMRDAL 6BE6 4 TMRDDL 6C56 4 TMSUSP 63A0 4LL TMTOL 00E0 2 TMTOLN 00E4 2*TMTOLO 00E6 2 TMTREE 65A4 4LL TMTSBF 4AFC 4*TMTSBQ 6ABE 4 TMTSCH 6572 4 TMWOM 4B42 4LL TMWOMO 4B44 4*TMXCLR 6666 4*TMXDEC 665A 4*TMXINC 6650 4LL *TMXWS 65DE 4 TOLBET 00EA 2*TOLDEL 6CA8 4 TOLLNK 6C7A 4LL TOLTDL 6CD4 4*TOLTSG 6CF2 4 TRACE 6F12 4 TRAPRT 65FE 4LJ TSKLST 0100 2 TSKRLD 6030 4 TSKSTR 0502 2 TTY 0001* 2JL UABADD 00C4 2 UAHADD 00EC 2 UAHEAD 00C0 2 UATLEN 00C6 2LJ UPDFDR 5638 4 UPS 0078* 2 USVCLN 0172 2 USVCMX FFFF* 2J  USVCTB B 0172 2 WD0000 4A90 4 WD0001 4A92 4 WD0002 4A94 4BL WD0003 4A96 4 WD0004 4A98 4 WD0008 4A9A 4 WD000F 4ABC 4LL WD0010 4A9C 4 WD0020 4A9E 4*WD0030 4AA0 4 WD0040 4AA2 4LL *WD0064 4AA4 4 WD0080 4AA6 4*WD00FF 4ABE 4 WD0100 4AA8 4LL WD0200 4AAA 4 WD0400 4AAC 4 WD0800 4AAE 4 WD1000 4AB0 4LL WD2000 4AB2 4*WD2020 4AC0 4 WD3000 4AB4 4*WD3800 4AB6 4LL WD4000 4AB8 4 WD8000 4ABA 4 WDFFFF 4AC2 4*WPDS01 0DEA 2LL *WPDS05 0C66 2*WPMT01 0B94 2*WRITES 68EE 4 XOPRT1 65FE 4LJ XOPRT2 6634 4 XOPRT3 6634 4 XY  46D4 2 YEAR  4ECA 4J> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 6> &  '> PHASE 1, SKI11ORIGIN = 71A0 LENGTH = 0FB0 (OVERLAY ID>  = 19)  ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D FILMG 5 71A00FA6 INCLUDE 11/14/79 14:58:00SDSLNKDD DUMKIF6 8146000A INCLUDE 11/14/79 14:56:08SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L *BM$CLO 7E68 5*BM$NEW 7EA0 5 BM$RD 7E96 5*BM$RDU 80B8 5LL BM$REL 7FC0 5*BM$RMD 7FBA 5*BM$W  80EC 5*BM$WRN 80D6 5LJ *BS  7D9E 5 CKLOCK 79F6 5 CKWRIT 79AC 5 FM$ABD 739C 5JL FM$PC 71A8 5*FMACES 7756 5 FMCLOS 747C 5 FMOPEN 740A 5LL FMREAD 74DA 5 FMWRIT 75E2 5 KI$BEG 8146 6*OFFLCK 7A36 5L *ONLOCK 7A4A 5$*UBS 7E0E 5 WRTSEQ 7B72 5 $> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 7> &  'F PHASE 1, SKI12ORIGIN = 71A0 LENGTH = 117E (OVERLAY ID = 20)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D MEMRES7 71A0117E INCLUDE 11/14/79 14:58:41SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L *BDOVYQ 74E8 7 BIDDER 73AE 7*BIDSTK 8142 7*DM$PC 721E 7LL *DM$WP 71A6 7 DSCMGR 71A0 7 OVYLDR 7B28 7*OVYSTK 8252 7LL *RDDIR 783E 7 RWTRTN 7CF8 7*RWTSTK 820E 7 SOVLDR 72B4 7L@ TLDLOD 7870 7*TLDPC 7876 7 TLDSTK 8076 7*TM$LD@R 7876 7L *TMALPR 7E40 7*TMIMAG 7E86 7*TMLDPR 7EEC 7*TMLDTK 7F50 7L> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 8> &  'F PHASE 1, SKI13ORIGIN = 71A0 LENGTH = 0020 (OVERLAY ID = 21)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DUMCOM8 71A00020 INCLUDE 11/14/79 14:56:00SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '( *COMMON 71A0 8*COMSIZ 0020* 8(> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE 9> &  'F PHASE 1, SKI14ORIGIN = 71A0 LENGTH = 0900 (OVERLAY ID = 22)F ' ' MODULENO ORI0GIN  LENGTH  TYPE  DATE TIMECREATOR 0 'D IOCOM 9 71A008EA INCLUDE 11/14/79 14:58:21SDSLNKDD NOCOMM107A8A0004 INCLUDE 11/14/79 14:59:11SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L *ASCCHK 7622 9*ASCCK2 7626 9*BRCALL 7314 9*BRCALT 7316 9LL BZYCHK 71A4 9 CLKPC 786A 9 CLKSW 7978 9 CLKWSP 796A 9LP CMODE 7598 9 COMEND 7A8A 10  COMMWT 7A8A 10  COMTHR 7A8A 10 PN COMUCB 7A8A 10 *COMWIO 79C0 9*CP$SSW 798A 9 DBGN10 77A0 9NL DDTBGN 778C 9 DDTFLG 7782 9*DDTRTN 783A 9 DDTWP 775E 9LB *DIAL2 767A 9*DIALUP 7636 9*DSAVWP 777E 9*ENDR0B  71EE 9 L ENDRCD 71CC 9 ENDRSM 71DA 9 GETC  7462 9 GTADDR 7268 9LL *JMCALL 7326 9 JMCALT 7328 9 JMSTAT 7342 9 KEYFUN 74DA 9LJ *MAPCHK 72F8 9 PUTCBF 744C 9*PUTEBF 7448 9 SCB 7784 9JL SCNPDT 738C 9 SETWPS 71C2 9 TILERR 75FC 9 TMOUT 769E 9L: WAITIO 7990 9 WANYIO 7A72 9 XFERM 72CE 9 :> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE10> &  'F PHASE 2, SKI15ORIGIN = 7AA0 LENGTH = 2192 (OVERLAY ID = 23)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D SVCIO 117AA01F2E INCLUDE 11/14/79 15:00:31SDSLNKDD NOFCCC1299CE0000 INCLUDE 11/14/79 14:59:20SDSLNKD8 SYSLOG1399CE0264 INCLUDE 11/14/79 15:01:833SDSLNK ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'R ABEXIT 8182 11  *ABTIOX 815E 11  *ACTTSK 7D6E 11  *ASGLUN 0101* 11 RR *ATDLYT 7CEE 11  *BF$COM 83B8 11  *BYTE28 8915 11  *BYTE88 8914 11 RR *CBDA  8070 11 *CBHA  812E 11  *CCHRIN 8830 11 *CDAB  8004 11 RR *CHAB  80F4 11  *CHGPRI 7D0E 11  *CHRINP 886E 11  *CLSKSB 8EF2 11 RR *COMMQ2 7C66 11  CP$II 9650 11  *DD$COM 822E 11  *DD$E01 8268 11 RP DDSTAK 81A4 11  DDT 819A 11 *DEV0  8552 11  *DEV0RD 858A 11 PR *DEV1  855C 11  *DEVEND 8603 11 *DTTIM 863E 11  *ENDPGM 7E38 11 R< ENDTSK 7E38 11  *EXCTSK 7EC0 11  FNDLDT 8624 1<1  FNDUCB 8604 11 R *FUTKIF 8504 11  *FUTPSM 0027* 11  *FUTPSO 852A 11  *FUTSDT 84F0 11 RR *GETCOM 867A 11  *GETDAT 8728 11  *GETPRM 7DC0 11  *GTEVNT 877E 11 RR *GTEVTL 8794 11  *GTOVYT 7E2C 11 *HOTSK 7DA2 11 *ILLOP 0202* 11 RP ILLSVC 94EA 11 *IOS 8920 11 *IOS1  0808* 11 *IOS4  0B0B* 11 PR *IOS5  0C0C* 11  *IOSCOM 89AC 11 *IVBUF 90CC 11  *IVDEF1 7C52 11 RR *IVDEF2 7C5C 11 *KIFDT 85C4 11 *KIFSM 0026* 11 *KIFSO 859C 11 RR *KISTRT 8602 11 *MAXOP 0013* 11  *MAXSVC 004D* 11  *MM$GTM 8F5C 11 RR *MM$RTM 8F5C 11  *MM$SVC 8F5C 11  *MMINTE 94F2 11  NONDEV 0041* 11 RR *OPADJ 8601 11  *OPNLUN 0303* 11  *PRIVIL 7FE6 11  *PUTDAT 86D4 11 R: *RELFDT 85CE 11  *RELFSM 001E* 11 *RELFSO 85E2 : 11  *RETCOM 86BE 11 R *RSTEAC 7E7E 11  *RTVDAT 7F3C 11  SCHED 954A 11 *SCTAB 7AA0 11 RR *SDTIM 865C 11  *SEQFDT 85CE 11  *SEQFSM 001E* 11  *SEQFSO 85E2 11 RR SLCSUS 9502 11  SLSVC 99CE 13  *SVCBUF 9098 11  SVCCLN 91E0 11 RR *SVCDEF 7B8A 11  *SVCLEN 7B3C 11  SVCPRC 940C 11  *SVUBUF 90E4 11 RR SYSLQ 9A2C 13 *TDLY  7CBA 11  TM$DPR 93B6 11  *TM$EAS 93F2 11 RR *TM$SID 7DD0 11 *TM$ST 7DF0 11  *TSBWRT 9050 11  *UNCDWT 7D56 11 R, *USEX  8566 11 *USEXR 8570 11 ,> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE11> &  'F PHASE 2, SKI16ORIGIN = 7AA0 LENGTH = 0498 (OVERLAY ID = 24)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DDIOSR147AA00498 INCLUDE 11/14/79 14:57:46SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'R DINT  7EB6 14  DIODSR 7AA0 14  DRTWP 7D54 14  DTBSY 7D84 14 R> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE12> &  'F PHASE 2, SKI17ORIGIN = 7AA0 LENGTH = 026A (OVERLAY ID = 25)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D LPDSR 157AA0026A INCLUDE 11/14/79 14:57:18SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R ' L<PHAN 7AA0 15  LPINT 7C70 15  LPSPUR 7CB0 15 <> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE13> &  'F PHASE 2, SKI1AORIGIN = 7AA0 LENGTH = 0898 (OVERLAY ID = 26)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DSR911167AA00898 INCLUDE 11/14/79 14:54:50SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '@ CRT911 7AA0 16  KBI911 824C 16  TDI911 823E 16 @> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE14> &  'F PHASE 2, SKI1CORIGIN = 7AA0 LENGTH = 0372 (OVERLAY ID = 27)F ' ' MODULENO ORIGIN  LEN&GTH  TYPE  DATE TIMECREATOR & 'D DSR979177AA00372 INCLUDE 11/14/79 14:55:34SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '@ MTHAN 7AA0 17  MTINT 7D8A 17  TRTWP 7D6A 17 @ ' ' ' ' **** LINKING COMPLETED  F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '@ CRT911 7AA0 16  KBI911 824C 16  TDI911 823E 16 @> SDSLNK  3.3.079.200 01/23/90 14:51:56 PAGE14> &  'F PHASE 2, SKI1CORIGIN = 7AA0 LENGTH = 0372 (OVERLAY ID = 27)F ' ' MODULENO ORIGIN  LEN PCM R=ME,M="PATCHING TERMINATED" PP.STOP PP.ENDIF PP.IF @$$TMP,GT,>F600 PPCM R=ME,M="PATCH STREAM WARNING - SYSTEM EXCEEDS >F600 " PPCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP " PPCM R=ME,M="LENGTH OF SYSTEM MUST BE LESS THAN >F800" PPCM R=ME,M="CHECK LINKMAP OF SYSTEM FOR PHASE 0 LENGTH" PP.ENDIF PP.SYN $$TMP="" P T@P* PP************************************************************************** PP* PP* BEGIN PATCHES FOR RELEASE 3.3.0 PP* PP************************************************************************** PP* PP*=P0370 MSC 11/16/79 STR #05407 3.3.0 LPDSR PP* PP* THE LINE PRINTER WILL DO A TIME-OUT IF A ZERO LENGTH P* WRITE IS SENT T>O IT. PRINT FILE WILL APPEAR TO HANG >P* AND THE PRINTER WILL NOT BE USABLE. ANY TASK DOING PP* THE ZERO LENGTH WRITE WILL HANG WAITING ON I/O COMPLETION. PP* PP*#SYN SLP,LPDSR PP* PP.IF "@LPDSR" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0062, PP V=>101D,D=>161D,C=>161D P$EC $, ,P* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0379 MU 12/05/79 STR #05431 3.3.0 DSR911 PP* PP* A BUG IN THE INPUT ROUTINE OF THE 911 DSR CAUSES PP* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE P6* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE6. P* PP*#SYN S911,DSR911 PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>034C, PP V=(>0B2B,>1817,>1E0F,>3605), PP D=(>058A,>0B2B,>1816,>1012),C=>06A5 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PHMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0406, H P V=(>091B,>178F,>32CA), PP D=(>32CA,>091B,>178E),C=>2C5F PPEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0380 MU 12/05/79 STR #05431 3.3.0 DSR911PF PP* P* A BJUG IN THE INPUT ROUTINE OF THE POWER FAIL 911 DSR JP* CAUSES THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE PP* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S911PF,DSR911PF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF" ,NE, NONE PP* PMPI PF=IMAGE,MT=OV,MN=@SMODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>000C$ VERIFICATION DATA  >0205,>0002$ DATA  >1000,>1000 CHECKSUM  >0000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AAC 0205 0002 .. .. CURRENT IMAGE L 7AAC 0205 0002 020A 7ACE 06A0 7342 132D 1815 .. .. .. z. .. sB .- ..L  NEW IMAGE: CHECKSUM = 0000 L 7AAC 1000 1000 020A 7ACE 06A0 7342 132D 1815 .. .. .. z. .. sB .- ..L <1316> EC8 <1317> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>001A,8& <1318>  V=>1815,D=>1515,C=>1515 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>001AR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA  >1815  DATA  >1515 CHECKSUM  >1515$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7ABA 1815  ..  CURRENT IMAGE L 7ABA 1815 1E1B 1E26 3E3E 2D2D 2D21 211E 1E3E .. .. .& >> -- -! !. .>L  NEW IMAGE: CHECKSUM = 1515 L 7ABA 1515 1E1B 1E26 3E3E 2D2D 2D21 211E 1E3E .. .. .& >> -- -! !. .>L <1319> EC8 <1320> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0046,8& <1321>  V=>102B,D=>1000,C=>1000 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>0046 VERIFICATION DATA  >102B DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AE6 102B  .+  CURRENT IMAGE L 7AE6 102B 0207 7D06 1028 0207 7D02 1025 0207 .+ .. }. .( .. }. .% ..L NEW IMAGE: CHECKSUM = 1000L 7AE6 1000 0207 7D06 1028 0207 7D02 1025 0207 .. .. }. .( .. }. .% ..L <1322> EC8 <1323> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0048,8& <1324>  V=>0207,D=>0205,C=>0205 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>0048 VERIFICATION DATA  >0207 DATA  >0205 CHECKSUM  >0205$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AE8 0207  ..  CURRENT IMAGE L 7AE8 0207 7D06 1028 0207 7D02 1025 0207 7D04 .. }. .( .. }. .% .. }.L  NEW IMAGE: CHECKSUM = 0205 L 7AE8 0205 7D06 1028 0207 7D02 1025 0207 7D04 .. }. .( .. }. .% .. }.L <1325> EC8 <1326> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>004A,8* <1327> V=@LPDSR+>0266,D=>0002,C=>00*02 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>004A$ VERIFICATION DATA  >7AA0+>0266$ DATA  >0002 CHECKSUM  >0002$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AEA 7D06  }.  CURRENT IMAGE L 7AEA 7D06 1028 0207 7D02 1025 0207 7D04 1022 }. .( .. }. .% .. }. ."L  NEW IMAGE: CHECKSUM = 0002 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 7AEA 0002 1028 0207 7D02 1025 0207 7D04 1022 .. .( .. }. .% .. }. ."L <1328> EC8 <1329> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0052,8& <1330>  V=>1025,D=>10FA,C=>10FA & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>0052 VERIFICATION DATA  >1025 DATA  >10FA CHECKSUM  >10FA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AF2 1025  .%  CURRENT IMAGE L 7AF2 1025 0207 7D04 1022 C1E1 0004 C161 0008 .% .. }. ." .. .. .a ..L  NEW IMAGE: CHECKSUM = 10FA L 7AF2 10FA 0207 7D04 1022 C1E1 0004 C161 0008 .. .. }. ." .. .. .a ..L <1331> EC8 <1332> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0058,8& <1333>  V=>1022,D=>10F7,C=>10F7 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7AA0+>0058 VERIFICATION DATA  >1022 DATA  >10F7 CHECKSUM  >10F7$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AF8 1022  ."  CURRENT IMAGE : 7AF8 1022 C1E1 0004 C161 0008 161D 04E1 0008 ." ..: .. .a .. .. .. ..  NEW IMAGE: CHECKSUM = 10F7 L 7AF8 10F7 C1E1 0004 C161 0008 161D 04E1 0008 .. .. .. .a .. .. .. ..L <1334> EC <1335> .ENDIF <1336> *$J$ <1337> ************************************************************* J <1338> * > <1339> *=P0476 GRJ03/25/80STR #056963.3.2 CASHAN > <1340> * B <1341> * IF THE RECORD SWITCH OF A CASSETTE IS IN THE OFF ORBD! <1342> * LOCAL POSITION AND AN ATTEMPT IS MADE TO WRITE TO IT,DJ$ <1343> * AN ERROR >7 IS CORRECTLY RETURNED. HOWEVER ON A SUBSEQUENT J> <1344> * ATTEMPT, THE SYSTEM WILL CRASH WITH A CODE >20 > <1345> *  <1346> *#SYN S733,DSR733  <1347> * $ <1348> .IF "@DSR733", NE, NONE $( <1349> .EVAL CASHAN="@DSR733+>0566"(( <1350> MPI PF=IMAGE,MT=OV,MN=@S733,( ADR=@CASHAN+>0092,& <1351>  V=>2260,D=>0A89,C=>0A89 & <1352> EC: <1353> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0094,:. <1354> V=@CASHAN+>0158,D=>1000,C=>1000 . <1355> EC: <1356> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0096,:& <1357>  V=>1602,D=>1702,C=>1702 & <1358> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R: <1359> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C0,:& <1360>  V=>2260,D=>0A89,C=>0A89 & <1361> EC: <1362> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C2,:. <1363> V=@CASHAN+>0158,D=>1000,C=>1000 . <1364> EC: <1365> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C4,:& <1366>  V=>1302,D=>1802,C=>1802 & <1367> EC: <1368> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0134,:3,>> <1369> V=@CASHAN+>014C,D=@CASHAN+>0150,C=@CASHAN+>0150 > <1370> EC: <1371> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>014E,:& <1372>  V=>4000,D=>0000,C=>0000 & <1373> EC: <1374> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0150,:. <1375> V=@CASHAN+>0156,D=>0000,C=>0000 . <1376> EC: <1377> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0152,:. <1378> V=@CASHAN+>01F0,D=>4000,C=>4000 . <1379> EC: <1380> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0154,:6 <1381> V=>0001,D=@CASHAN+>015A,C=@CASHAN+>015A 6 <1382> EC: <1383> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0156,:6 <1384> V=>1300,D=@CASHAN+>01F0,C=@CASHAN+>01F0 6 <1385> EC: <1386> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0158,:6 <1387> V=(>0100,>1000),D=(>0001,>1300),C=>1301 6@ <1388> EC: <1389> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>016C,:> <1390> V=@CASHAN+>0152,D=@CASHAN+>0156,C=@CASHAN+>0156 > <1391> EC: <1392> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0254,:& <1393>  V=>2260,D=>0A89,C=>0A89 & <1394> EC: <1395> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0256,:. <1396> V=@CASHAN+>0158,D=>1000,C=>1000 . <1397> EC: <1398> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0258,:& <1399>  V=>1302,D=>1802,C=>1802 & <1400> EC: <1401> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0164,:& <1402>  V=>2260,D=>0A49,C=>0A49 & <1403> EC: <1404> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0166,:. <1405> V=@CASHAN+>015A,D=>1000,C=>1000 . <1406> EC: <1407> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0168,: <"1408>  V=>16EE,D=>17EE,C=>17EE " <1409> EC <1410> .SYN CASHAN="" <1411> .ENDIF <1412> *$J$ <1413> ************************************************************* J <1414> * > <1415> *=P0490 GCH04/11/80STR #062063.3.2 IOCOMX > <1416> * H# <1417> * THE CHARACTER QUE IN THE PDT WILL BE DESTROYED IF A TASK HF" <1418> * OPENS A TERMINAL FOR EVENT CHARACTERS AND SUBSEQUENTLY FR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RJ$ <1419> * USES A SHORT FORM PRB. THIS MIGHT BE OBSERVED AS A SINGLE JF" <1420> * EVENT CHARACTER CAUSING TWO I/O CALLS TO BE TERMINATED.F <1421> * L% <1422> * NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH.L <1423> *  <1424> *#SYN IOC,IOCOM  <1425> *#SYN SROOT,ROOT <1426> *#SYN S911,DSR911 " <1427> *#SYN S911PF,DSR911PF " <1428> * & <1429> .EVAL TM$INT="@ROOT+>26D4"& <1430> * < <1431> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0182, <: <1432> V=(@TM$INT+>0186,@TM$INT+>01A6,>0000,>0000),:2 <1433> D=(>04C6,>C264,>0002,>1612),C=>D0B2 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>0182< VERIFICATION DATA  28446+>0186,28446+>01A6,>0000,>0000<" DATA >04C6,>C264,>0002,>1612" CHECKSUM  >D0B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 70A0 70A4 70C4 0000 0000  p. p. .. .., CURRENT IMAGE L 70A0 70A4 70C4 0000 0000 0000 0000 0000 0000 p. p. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D0B2  70A0 04C6 C2<64 0002 1612 0000 0000 0000 0000 .. .d .. .. .. .. .. ..< <1434> EC< <1435> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>018A, <* <1436> V=(>0000,>0000,>0000,>0000),*2 <1437> D=(>100F,>C264,>0002,>0609),C=>D460 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>018A0 VERIFICATION DATA  >0000,>0000,>0000,>00000" DATA >100F,>C264,>0002,>0609" CHECKSUM  >D460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 70A8 0000 0000 0000 0000  .. .. .. .., CURRENT IMAGE L 70A8 0000 0000 0000 0000 0000 0000 0000 0000 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D460 L 70A8 100F C264 0002 0609 0000 0000 0000 0000 .. .d .. .. .. .. .. ..L <1438> EC" <1439> MPI PF=IMAGE,MT=TA,MN=" @SROOT,ADR=@TM$INT+>0192, * <1440> V=(>0000,>0000,>0000,>0000),*2 <1441> D=(>1608,>C186,>1306,>0624),C=>C2AC 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01920 VERIFICATION DATA  >0000,>0000,>0000,>00000" DATA >1608,>C186,>1306,>0624" CHECKSUM  >C2AC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R, 70B0 0000 0000 0000 0000  .. .. .. .., CURRENT IMAGE L 70B0 0000 0000 0000 0000 710E 0000 0000 0000 .. .. .. .. q. .. .. ..L  NEW IMAGE: CHECKSUM = C2AC L 70B0 1608 C186 1306 0624 710E 0000 0000 0000 .. .. .. .$ q. .. .. ..L <1442> EC< <1443> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>019A, <>@2 <1444> V=(@TM$INT+>01F0,>0000,>0000,>0000),22 <1445> D=(>0006,>C024,>0006,>D406),C=>1422 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>019A6 VERIFICATION DATA  28446+>01F0,>0000,>0000,>00006" DATA >0006,>C024,>0006,>D406" CHECKSUM  >1422$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 70B8 710E 0000 0000 0000  q. .. .. .., CURRENT IMAGE L 70B8 710E 0000 0000 0000 0000 0000 0201 0014 q. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1422 L 70B8 0006 C024 0006 D406 0000 0000 0201 0014 .. .$ .. .. .. .. .. ..L <1446> EC< <1447> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01A2, <* <1448> V=(>0000,>0000,>0201,>0014),*2 <1449> D=(>1003,>0624,>0002,>1602),C=>0027 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01A20 VERIFICATION DATA  >0000,>0000,>0201,>00140" DATA >1003,>0624,>0002,>1602" CHECKSUM  >0027$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 70C0 0000 0000 0201 0014  .. .. .. .., CURRENT IMAGE L 70C0 0000 0000 0201 0014 06A0 5D14 7106 C8A0 .. .. .. .. .. ]. q. ..L  NEW IMAGE: CHECKSUM = 0027 L 70C0 1003 0624 0002 1602 06A0 5D14 7106 C8A0 .. .$ .. .. .. ]. q. ..L <1450> EC< <1451> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01AA, <2 <1452> V=(>06A0,@ROOT+>14CA,@TM$INT+>01E8),2, <1453> D=(>C19B,>0380,>0460),C=>C67B , PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01AA@6 VERIFICATION DATA  >06A0,>484A+>14CA,28446+>01E86 DATA >C19B,>0380,>0460 CHECKSUM  >C67B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 70C8 06A0 5D14 7106  .. ]. q. & CURRENT IMAGE L 70C8 06A0 5D14 7106 C8A0 4A94 0006 C8A0 7108 .. ]. q. .. J. .. .. q.L  NEW IMAGE: CHECKSUM = C67B L 70C8 C19B 0380 0460 C8A0 4A94 0006 C8A0 7108 .. .. .` .. J. .. .. q.L <1454> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <1455> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B0, <4 <1456> V=>C8A0,D=@IOCOM+>02D0,C=@IOCOM+>02D0 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01B0 VERIFICATION DATA  >C8A0 DATA  >71A0+>02D0 CHECKSUM  >71A0+>02D0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  70CE C8A0  ..  CURRENT IMAGE L 70CE C8A0 4A94 0006 C8A0 7108 0008 C8A0 710A .. J. .. .. q. .. .. q.L  NEW IMAGE: CHECKSUM = 7470 L 70CE 7470 4A94 0006 C8A0 7108 0008 C8A0 710A tp J. .. .. q. .. .. q.L <1457> EC< <1458> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B2, <* <1459> V=(@ROOT+>024A,>0006,>C8A0),*, <1460> D=(>0624,>0006,>0460),C=>0242 , PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01B20 VERIFICATION DATA  >484A+>024A,>0006,>C8A00 DATA >0624,>0006,>0460 CHECKSUM  >0242$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 70D0 4A94 0006 C8A0  J. .. .. & CURRENT IMAGE  70D0D 4A94 0006 C8A0 7108 0008 C8A0 710A 000A J. .. .. q. .. .. q. ..D  NEW IMAGE: CHECKSUM = 0242 L 70D0 0624 0006 0460 7108 0008 C8A0 710A 000A .$ .. .` q. .. .. q. ..L <1461> EC< <1462> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B8, << <1463> V=@TM$INT+>01EA,D=@IOCOM+>032E,C=@IOCOM+>032E < PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01B8$ VERIFICATION DATA  28446+>01EA$ DATA  >71A0+>032E CHECKSUM  >71A0+>032E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  70D6 7108  q.  CURRENT IMAGE L 70D6 7108 0008 C8A0 710A 000A D8A0 710C 000E q. .. .. q. .. .. q. ..L  NEW IMAGE: CHECKSUM = 74CE L 70D6 74CE 0008 C8A0 710A 000A D8A0 710C 000E t. .. .. q. .. .. q. ..L   <1464> EC < <1465> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01BA, <2 <1466> V=(>0008,>C8A0,@TM$INT+>01EC,>000A),22 <1467> D=(>C186,>1306,>0624,>0006),C=>D4A2 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01BA6 VERIFICATION DATA  >0008,>C8A0,28446+>01EC,>000A6R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R" DATA >C186,>1306,>0624,>0006" CHECKSUM  >D4A2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 70D8 0008 C8A0 710A 000A  .. .. q. .., CURRENT IMAGE L 70D8 0008 C8A0 710A 000A D8A0 710C 000E 04C1 .. .. q. .. .. q. .. ..L  NEW IMAGE: CHECKSUM = D4A2 L 70D8 C186 1306 0624 0006 D8A0 710C 000E 04C1 .. .. .$ .. .. q. .. ..L <1468> EC @< <1469> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01C2, <2 <1470> V=(>D8A0,@TM$INT+>01EE,>000E,>04C1),22 <1471> D=(>C024,>0006,>D406,>1002),C=>0426 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01C26 VERIFICATION DATA  >D8A0,28446+>01EE,>000E,>04C16" DATA >C024,>0006,>D406,>1002" CHECKSUM  >0426$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 70E0 D8A0 710C 000E 04C1  .. q. .. .., CURRENT IMAGE L 70E0 D8A0 710C 000E 04C1 D881 000C D881 000D .. q. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0426 L 70E0 C024 0006 D406 1002 D881 000C D881 000D .$ .. .. .. .. .. .. ..L <1472> EC< <1473> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01CA, <& <1474>  V=(>D881,>000C,>D881,>00&0D),2 <1475> D=(>0624,>0002,>046B,>0004),C=>0249 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01CA0 VERIFICATION DATA  >D881,>000C,>D881,>000D0" DATA >0624,>0002,>046B,>0004" CHECKSUM  >0249$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 70E8 D881 000C D881 000D  .. .. .. .., CURRENT IMAGE L 70E8 D881 000C D881 000D D881 000F D881 0010 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0249 L 70E8 0624 0002 046B 0004 D881 000F D881 0010 .$ .. .k .. .. .. .. ..L <1476> EC8 <1477> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C2,8& <1478>  V=>C024,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>02C2@ VERIFICATION DATA  >C024 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7462 C024  .$  CURRENT IMAGE L 7462 C024 0002 1602 C19B 0380 0624 0002 C024 .$ .. .. .. .. .$ .. .$LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 0460 L 7462 0460 0002 1602 C19B 0380 0624 0002 C024 .` .. .. .. .. .$ .. .$L <1479> EC8 <1480> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C4,86 <1481> V=>0002,D=@TM$INT+>0182,C=@TM$INT+>0182 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>02C4 VERIFICATION DATA  >0002 DATA  28446+>0182 CHECKSUM  28446+>0182$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7464 0002  ..  CURRENT IMAGE L 7464 0002 1602 C19B 0380 0624 0002 C024 0006 .. .. .. .. .$ .. .$ ..L  NEW IMAGE: CHECKSUM = 70A0 L 7464 70A0 1602 C19B 0380 0624 0002 C024 0006 p. .. .. .. .$ .. .$ ..L <1482> EC8 <1483> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C6,8* <1484> V=(>1602,>C19B,>0380,>0624),*2 <1485> D=(>1000,>1000,>1000,>0460),C=>1460 2 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>02C60 VERIFICATION DATA  >1602,>C19B,>0380,>06240" DATA >1000,>1000,>1000,>0460" CHECKSUM  >1460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 7466 1602 C19B 0380 0624  .. .. .. .$, CURRENT IMAGE , 7466 1602 C19B 0380 0624 0002 C024 000,"6 8900 .. .. .. .$ .. .$ .. .."  NEW IMAGE: CHECKSUM = 1460 L 7466 1000 1000 1000 0460 0002 C024 0006 8900 .. .. .. .` .. .$ .. ..L <1486> EC8 <1487> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02CE,86 <1488> V=>0002,D=@TM$INT+>018C,C=@TM$INT+>018C 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>02CE VERIFICATION DATA  >0002 DATA  28446+>018C CHECKSUM  28446+>018C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  746E 0002  ..  CURRENT IMAGE L 746E 0002 C024 0006 8900 0008 1A01 6010 04C9 .. .$ .. .. .. .. `. ..L  NEW IMAGE: CHECKSUM = 70AA L 746E 70AA C024 0006 8900 0008 1A01 6010 04C9 p. .$ .. .. .. .. `. ..L <1489> EC" <1490> MPI PF=IMAGE,MT=OV,MN=" @IOC,ADR=@IOCOM+>0300,* <1491> V=(>13E0),D=(>13E5),C=>13E5 * PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  >71A0+>0300 VERIFICATION DATA  >13E0 DATA  >13E5 CHECKSUM  >13E5$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  74A0 13E0  ..  CURRENT IMAGE L 74A0 13E0 C009 C264 FFFE C269 FFFC C269 0004 .. .. .d .. .i .. .i ..L  NEW IMAGE: CHECKSUM = 13E5 L 74A0 13E5 C009 C264 FFFE C269 FFFC C269 0004 .. .. .d .. .i .. .i ..L <1492> EC8 <1493> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0312,8* <1494> V=(>17D7),D=(>17DC),C=>17DC * PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>0312 VERIFICATION DATA  >17D7 DATA  >17DC CHECKSUM  >17DC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  74B2 17D7  ..  CURRENT IMAGE L 74B2 17D7 C240 C024 FFFE 05C0 E420 4AB0 C010 .. .@ .$ .. .. . J. ..L  NEW IMAGE: CHECKSUM = 17DC L 74B2 17DC C240 C024 FFFE 05C0 E420 4AB0 C010 .. .@ .$ .. .. . J. ..L <1495> EC8 <1496> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0324,86 <1497> V=(>1804,>05A4),D=(>1802,>0460),C=>1C62 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>0324$ VERIFICATION DATA  >1804,>05A4$ DATA  >1802,>0460 CHECKSUM  >1C62$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  74C4 1804 05A4 .. .. CURRENT IMAGE L 74C4 1804 05A4 0002 0624 0006 C2EB 0002 045B .. .. .. .$ .. .. .. .[L  NEW IMAGE: CHECKSUM = 1C62 L 74C4 1802 0460 0002 0624 0006 C2EB 0002 045B .. .` .. .$ .. .. .. .[L <1498> EC8 <1499> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0328,86 <1500> V=>0002,D=@TM$INT+>01B2,C=@TM$INT+>01B2 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>0328 VERIFICATION DATA  >0002 DATA  28446+>01B2 CHECKSUM  28446+>01B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  74C8 0002  ..  CURRENT IMAGE L 74C8 0002 0624 0006 C2EB 0002 045B 046B 0004 .. .$ .. .. .. .[ .k ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RT@  NEW IMAGE: CHECKSUM = 70D0 L 74C8 70D0 0624 0006 C2EB 0002 045B 046B 0004 p. .$ .. .. .. .[ .k ..L <1501> EC8 <1502> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>032A,86 <1503> V=(>0624,>0006),D=(>0624,>0002),C=>0626 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>032A$ VERIFICATION DATA  >0624,>0006$ DATA  >0624,>0002 CHECKSUM  >0626$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  74CA 0624 0006 .$ .. CURRENT IMAGE L 74CA 0624 0006 C2EB 0002 045B 046B 0004 1700 .$ .. .. .. .[ .k .. ..L  NEW IMAGE: CHECKSUM = 0626 L 74CA 0624 0002 C2EB 0002 045B 046B 0004 1700 .$ .. .. .. .[ .k .. ..L <1504> EC8 <1505> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0334,8 <"1506>  V=>046B,D=>0460,C=>0460 " PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>0334 VERIFICATION DATA  >046B DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  74D4 046B  .k  CURRENT IMAGE L 74D4 046B 0004 1700 21A0 4AAC 1305 96CA 1658 .k .. .. !. J. .. .. .XL  NEW IMAGE: CHECKSUM = 0460 L 74D4 0460 0004 1700 21A0 4AAC 1305 96CA 1658 .` .. .. !. J. .. .. .XL <1507> EC8 <1508> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0336,86 <1509> V=>0004,D=@TM$INT+>01BA,C=@TM$INT+>01BA 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >71A0+>0336 VERIFICATION DATA  >0004 DATA  28446+>01BA CHECKSUM  28446+>01BA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  74D6 0004  ..  CURRENT IMAGE L 74D6 0004 1700 21A0 4AAC 1305 96CA 1658 E1A0 .. .. !. J. .. .. .X ..L  NEW IMAGE: CHECKSUM = 70D8 L 74D6 70D8 1700 21A0 4AAC 1305 96CA 1658 E1A0 p. .. !. J. .. .. .X ..L <1510> EC <1511> * $ <1512> .IF @DSR911 ,NE, "NONE" $ <1513> * : <1514> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A0,:& <1515>  V=>06A0,D=>0460,C=>0460 & PROGRAM FILE IMAGER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>02A0 VERIFICATION DATA  >06A0 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D40 06A0  ..  CURRENT IMAGE L 7D40 06A0 71CC 0380 C261 0006 C849 0008 130E .. q. .. .a .. .I .. ..L  NEW IMAGE: CHECKSUM = 0460 L 7D40 0460 71CC 0380 C261 0006 C849 0008 130E .` q. .. .a .. .I .. ..L <1516> EC: <1517> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A2,:< <1518> V=@IOCOM+>002C,D=@TM$INT+>01D2,D=@TM$INT+>01D2< PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>02A2$ VERIFICATION DATA  >71A0+>002C$ DATA  28446+>01D2 CHECKSUM  ** NULL ** $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D42 71CC  q.  CURRENT IMAGE L 7D42 71CC 0380 C261 0006 C849 0008 130E C2A1 q. .. .a .. .I .. .. ..L  NEW IMAGE: CHECKSUM = 70F0 L 7D42 70F0 0380 C261 0006 C849 0008 130E C2A1 p. .. .a .. .I .. .. ..L <1519> EC< <1520> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, <& <1521>  V=>D881,D=>06A0,C=>06A0 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01D2 VERIFICATION DATA  >D881 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  70F0 D881  ..  CURRENT IMAGE L 70F0 D881 000F D881 0010 D881 0011 C881 0012 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 70F0 06A0 000F D881 0010 D881 0011 C881 0012 .. .. .. .. .. .. .. ..L <1522> EC< <1523> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, <4 <1524> V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C 4 PROGRAM FI LE IMAGE  MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01D4 VERIFICATION DATA  >000F DATA  >71A0+>002C CHECKSUM  >71A0+>002C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  70F2 000F  .. R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CURRENT IMAGE L 70F2 000F D881 0010 D881 0011 C881 0012 06A0 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 71CC L 70F2 71CC D881 0010 D881 0011 C881 0012 06A0 q. .. .. .. .. .. .. ..L <1525> EC< <1526> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, <& <1527>  V=>D881,D=>0206,C=>0206 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01D6 VERIFICATION DATA  >D881 @ DATA  >0206 CHECKSUM  >0206$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  70F4 D881  ..  CURRENT IMAGE L 70F4 D881 0010 D881 0011 C881 0012 06A0 47F8 .. .. .. .. .. .. .. G.L  NEW IMAGE: CHECKSUM = 0206 L 70F4 0206 0010 D881 0011 C881 0012 06A0 47F8 .. .. .. .. .. .. .. G.L <1528> EC< <1529> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, <6 <1530> V=>0010,D=@DSR911+>01B2,C=@DSR911+>01B2 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01D8 VERIFICATION DATA  >0010 DATA  >7AA0+>01B2 CHECKSUM  >7AA0+>01B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  70F6 0010  ..  CURRENT IMAGE . 70F6 0010 D881 0011 C881 0012 06A0 47F8 . 7106 .. .. .. .. .. .. G. q.  NEW IMAGE: CHECKSUM = 7C52 L 70F6 7C52 D881 0011 C881 0012 06A0 47F8 7106 |R .. .. .. .. .. G. q.L <1531> EC< <1532> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, <& <1533>  V=>D881,D=>0380,C=>0380 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01DA VERIFICATION DATA  >D881 DATA  >0380 CHECKSUM  >0380$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  70F8 D881  ..  CURRENT IMAGE L 70F8 D881 0011 C881 0012 06A0 47F8 7106 0380 .. .. .. .. .. G. q. ..L  NEW IMAGE: CHECKSUM = 0380 L 70F8 0380 0011 C881 0012 06A0 47F8 7106 0380 .. .. .. .. .. G. q. ..L <1534> EC <1535> *  <1536> .ENDIF <1537> *  $ <1538> .IF @DSR911PF ,NE, "NONE" $R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1539> * > <1540> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FC,>& <1541>  V=>06A0,D=>0460,C=>0460 & <1542> EC> <1543> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FE,>< <1544> V=@IOCOM+>002C,D=@TM$INT+>01D2,C=@TM$INT+>01D2< <1545> EC< <1546> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, <& <1547>  V=>D881,D=>06A0,C=>06A0 & <1548> EC< <1549> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, <4 <1550> V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C 4 <1551> EC< <1552> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, <& <1553>  V=>D881,D=>0206,C=>0206 & <1554> EC6 <1555> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>601D8, : <1556> V=>0010,D=@DSR911PF+>0240,C=@DSR911PF+>0240 : <1557> EC< <1558> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, <& <1559>  V=>D881,D=>0380,C=>0380 & <1560> EC <1561> *  <1562> .ENDIF <1563> *  <1564> .SYN TM$INT="" <1565> *$J$ <1566> ************************************************************* J <1567> * > <1568> *=P0496 RVL04/18/80STR #061473.3.2 DSR820 > <1569> * D! <1570> * THE REQUEST TO SEND FLAG IS INCORRECTLY REFERENCED IND <1571> * THE 820 DSR.  <1572> * $ <1573> .IF "@DSR820" ,NE, NONE $: <1574> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>00A6,:> <1575> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1576> EC0 <1577> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR0 820+>0174, > <1578> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1579> EC: <1580> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01CE,:> <1581> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1582> EC: <1583> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01F8,:> <1584> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1585> EC: <1586> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0490,:> <1587> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1588> EC: <1589> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04B4,:> <1590> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1591> EC <1592> .ENDIF <1593> *$J$ <1594> ************************************************************* J <1595> * & <1596> *=P0499 RVL04/21/80ST&R #061133.3.2 DSR911  <1597> * F" <1598> * IF CHARACTERS ARE ENTERED INTO AN ECHO SUPPRESSED FIELDFR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RH# <1599> * AND THE ERASE INPUT KEY IS DEPRESSED AND MORE CHARACTERS HH# <1600> * ARE INPUT PRIOR TO DEPRESSING THE RETURN KEY, THE SYSTEM H, <1601> * WILL CRASH WITH A >22 CRASH. , <1602> * L% <1603> * NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH L <1604> *#SYN SLGY,SYSLGY  <1605> * & <1606> .EVAL TM$INT="@ROOT+>26D4"&$ <1607> .IF "@DSR911" ,NE, NONE $: <1608> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0320,:$ <1609>  V=>06A0,D=>0460,C=>460$ PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>0320ST VERIFICATION DATA  >06A0 DATA  >0460 CHECKSUM  >460 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7DC0 06A0  ..  CURRENT IMAGE L 7DC0 06A0 80EA 04E4 0034 1D0F 36CA 890A 0032 .. .. .. .4 .. 6. .. .2L  NEW IMAGE: CHECKSUM = 0460 L 7DC0 0460 80EA 04E4 0034 1D0F 36CA 890A 0032 .` .. .. .4 .. 6. .. .2L <1610> EC: <1611> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0322,:> <1612> V=@DSR911+>064A,D=@TM$INT+>01DC,C=@TM$INT+>01DC > PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>0322$ VERIFICATION DATA  >7AA0+>064A$ DATA  28446+>01DC CHECKSUM  28446+>01DC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7DC2 80EA  ..  CURRENT IMAGE @L 7DC2 80EA 04E4 0034 1D0F 36CA 890A 0032 1402 .. .. .4 .. 6. .. .2 ..L  NEW IMAGE: CHECKSUM = 70FA L 7DC2 70FA 04E4 0034 1D0F 36CA 890A 0032 1402 p. .. .4 .. 6. .. .2 ..L <1613> EC< <1614> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, <B <1615> V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01DC* VERIFICATION DATA  >0011,>C881,>0012* DATA >04E1,>0008,>06A0 CHECKSUM  >0249$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 70FA 0011 C881 0012  .. .. .. & CURRENT IMAGE L 70FA 0011 C881 0012 06A0 47F8 7106 0380 4D45 .. .. .. .. G. q. .. MEL  NEW IMAGE: CHECKSUM = 0249 0 70FA 04E1 0008 06A0 06A0 47F8 7106 0380 4D045 .. .. .. .. G. q. .. ME <1616> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <1617> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, <6 <1618> V=>06A0,D=@DSR911+>064A,C=@DSR911+>064A 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01E2 VERIFICATION DATA  >06A0 DATA  >7AA0+>064A CHECKSUM  >7AA0+>064A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7100 06A0  ..  CURRENT IMAGE L 7100 06A0 47F8 7106 0380 4D45 4D20 4E00 0000 .. G. q. .. ME M N. ..L  NEW IMAGE: CHECKSUM = 80EA L 7100 80EA 47F8 7106 0380 4D45 4D20 4E00 0000 .. G. q. .. ME M N. ..L <1619> EC< <1620> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, <( <1621>  V=@SYSLGY,D=>0460,C=>0460 ( PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01E4 VERIFICATION DATA  >47F8 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7102 47F8  G.  CURRENT IMAGE L 7102 47F8 7106 0380 4D45 4D20 4E00 0000 0000 G. q. .. ME MN. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 7102 0460 7106 0380 4D45 4D20 4E00 0000 0000 .` q. .. ME MN. .. ..L <1622> EC< <1623> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, <> <1624> V=@TM$INT+>01E8,D=@DSR911+>0324,C=@DSR911+>0324 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28446+>01E6$ VERIFICATION DATA  28446+>01E8$  DATA  >7AA0+>0324 CHECKSUM  >7AA0+>0324$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7104 7106  q.  CURRENT IMAGE L 7104 7106 0380 4D45 4D20 4E00 0000 0000 0000 q. .. ME M N. .. .. ..L  NEW IMAGE: CHECKSUM = 7DC4 L 7104 7DC4 0380 4D45 4D20 4E00 0000 0000 0000 }. .. ME M N. .. .. ..L <1625> EC <1626> .ENDIF& <1627> .IF "@DSR911PF" ,NE, NONE &> <1628> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048C,>$ <1629>  V=>06A0,D=>0460,C=>460$ <1630> EC> <1631> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048E,>@ <1632> V=@DSR911PF+>08CA,D=@TM$INT+>01DC,C=@TM$INT+>01DC @ <1633> EC< <1634> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, <N& * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATNCH B <1635> V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 B <1636> EC< <1637> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, <: <1638> V=>06A0,D=@DSR911PF+>064A,C=@DSR911PF+>064A : <1639> EC< <1640> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, <( <1641>  V=@SYSLGY,D=>0460,C=>0460 ( <1642> EC< <1643> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, <B <1644> V=@TM$INT+>01E8,D=@DSR911PF+>0490,C=@DSR911PF+>0490 B <1645> EC <1646> .ENDIF <1647> .SYN TM$INT="": <1648> *$ ! NOTE: THIS PATCH MODIFIED BY PATCH 649 :J$ <1649> ************************************************************* J <1650> * > <1651> *=P0507 RVL04/23/80STR #057543.3.2 DSR820 > <1652> * , <1653> * IF THE 820 IS PUT INTO THE LO, CAL MODE AND BACK ONLINEH# <1654> * WHILE PROCESSING I/O, THE REQUEST TO SEND SIGNAL IS NEVERHB <1655> * RESET. IN ADDITION, IF THE 820 IS PROCESSING A READBJ$ <1656> * REQUEST AND THE SWITCH IS PLACED IN THE LOCAL POSITION, THEJ0 <1657> * TASK AND/OR SCI IS NEVER ABORTED.0 <1658> * F" <1659> * NOTE: PATCH 0460 MUST BE APPLIED PRIOR TO THIS PATCH. F <1660> *#SYN S820,DSR820  <1661> * $ <1662> .IF "@DSR820" ,NE, NONE $& <1663> .EVAL TM$INT="@ROOT+>26D4"&: <1664> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03D8,:& <1665>  V=>1F0D,D=>0460,C=>0460 & <1666> EC: <1667> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03DA,:6 <1668> V=>160E,D=@TM$INT+>01F6,C=@TM$INT+>01F6 6 <1669> EC< <1670> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01F6, <0 <1671> V=(>0000,>0000,>0000,>0000,>0000),08 <1672> D=(>1F0D,>1609,>1F0E,>1602,>0460),C=>0468 8 <1673> EC< <1674> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0200, <6 <1675> V=>0000,D=@DSR820+>03DC,C=@DSR820+>03DC 6 <1676> EC< <1677> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0202, <$ <1678>  V=(>0000,>0000,>0000),$, <1679> D=(>0262,>0400,>0206),C=>0464 , <1680> EC< <1681> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0208, <6 <1682> V=>0000,D=@TM$INT+>01F6,C=@TM$INT+>01F6 6 <1683> EC< <1684> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020A, <6 <1685> V=(>0000,>0000),D=(>0380,>0460),C=>07E0 6 <1686> EC< <1687> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020E, <6 <1688> V=>0000,D=@DSR820+>03F8,C=@DSR820+>03F8 6 <1689> EC: <1690> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F0,:& <1691>  V=>0206,D=>0460,C=>0460 & <1692> EC: <1693> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F2,:> <1694> V=@DSR820+>04EE,D=@TM$INT+>01E8,C=@TM$INT+>01E8 >R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1695> EC< <1696> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E8, <$ <1697>  V=0380,D=>0206,C=>0206$ <1698> EC< <1699> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EA, <6 <1700> V=>4D45,D=@DSR820+>04EE,C=@DSR820+>04EE 6 <1701> EC< <1702> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EC, <0 <1703> V=(>4D20,>4E00,>0000,>0000,>0000),08 <1704> D=(>C024,>0030,>1101,>1D0A,>0380),C=>CF9F 8 <1705> EC <1706> .SYN TM$INT="" <1707> .ENDIF <1708> *$R( <1709> **********************************************************************R <1710> * L <1711> *=P0557 KDK04/25/80STR #061963.3.2 DSRVDT(911,911PF,913)L <1712> * J$ <1713> * THE CURSOR POSITIONING ON THE VDTS FAIL TO ADVANCE WHEN THEJP <1714> * LAST CHARACTER OF A FIELD IS ENTERED. THEN, ALTHOUGH THE CURSOR PN& <1715> * IS POSITIONED ON A CHARACTER, THE CHARACTER CANNOT BE MODIFIED NN <1716> * UNTIL A LEFT ARROW KEY IS STRUCK.BUT STRIKING THE LEFT ARROW NH# <1717> * KEY IN THIS CONDITION DOES NOT CAUSE THE CURSOR TO CHANGEHN& <1718> * POSITIONS. THIS PATCH CAUSES THE CURSOR TO ALWAYS MOVE TO THE NL% <1719> * NEXT CHARACTER POSITION WHEN A CHARACTER IS ENTERED. IT ALSOLJ$ <1720> * CORRECTS A PROBLEM IN READING THE LAST CHARACTER IN A FIELDJ@L% <1721> * THAT DOES NOT REQUIRE A TERMINATING CHARACTER TO CAUSE RETURNL$ <1722> * TO THE CALLING TASK. $ <1723> *  <1724> *#SYN SROOT,ROOT <1725> *#SYN S911,DSR911 " <1726> *#SYN S911PF,DSR911PF " <1727> *#SYN S913,DSR913 ( <1728> *.EVAL S$$PAT="@ROOT+>0000" ( <1729> * " <1730> .IF @DSR911 ,NE, NONE " <1731> * : <1732> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0348,:, <1733>  V=(>060A,>32CA,>058A,>0B2B), ,2 <1734>  D=(>32CA,>0B2B,>1818,>100A),C=>31F32 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>03480 VERIFICATION DATA  >060A,>32CA,>058A,>0B2B0" DATA >32CA,>0B2B,>1818,>100A" CHECKSUM  >31F3$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  *7DE8 060A 32CA 058A 0B2B  .. 2. .. .+* CURRENT IMAGE L 7DE8 060A 32CA 058A 0B2B 1816 1012 1D0F 058A .. 2. .. .+ .. .. .. ..L  NEW IMAGE: CHECKSUM = 31F3 L 7DE8 32CA 0B2B 1818 100A 1816 1012 1D0F 058A 2. .+ .. .. .. .. .. ..L <1735> EC <1736> *  <1737> .ENDIF <1738> * $ <1739> .IF @DSR911PF ,NE, NONE $ <1740> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R> <1741> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BA,>4 <1742>  V=(>060A,>32CA,>0460,@S$$PAT+>0000), 42 <1743>  D=(>32CA,>0B2B,>182D,>1015),C=>31D92 <1744> EC> <1745> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04E8,>0 <1746>  V=(>C80A,@DSR911PF+>0BA0,>32CA), 0, <1747>  D=(>1000,>32CA,>1E0F),C=>3CC5, <1748> EC@< <1749> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, <F <1750>  V=(>058A,>0620,@DSR911PF+>0BA0,>0460,@DSR911PF+>04C2), F8 <1751>  D=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),C=>DEAD8 <1752> EC <1753> *  <1754> .ENDIF <1755> *  <1756> * " <1757> .IF @DSR913 ,NE, NONE " <1758> * : <1759> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B0,:4 <1760>  V=(>060A,>1D0C,>0460,@S$$PAT+>0016), 42 <1761>  D=(>1003,>1002,>1001,>1000),C=>00002 <1762> EC: <1763> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8,:6 <1764>  V=(>0B5B,>1811),D=(>0B2B,>1006),C=>1B2D6 <1765> EC: <1766> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E,:> <1767>  V=@S$$PAT+>0024,D=@S$$PAT+>002A,C=@S$$PAT+>002A> <1768> EC$ <1769> MPI PF=IMAGE,MT=OV,MN=@S$& 913,ADR=@DSR913+>0654, !CURSOR OFF&& <1770>  V=>1D1C,D=>1E1C,C=>1E1C& <1771> EC< <1772> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, <4 <1773>  V=(>06A0,@DSR913+>07DC,>C2E4,>002C), 42 <1774>  D=(>DEAD,>DEAD,>DEAD,>DEAD),C=>00002 <1775> EC< <1776> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001E, <. <1777>  V=(>058A,>0460,@DSR913+>02B8), ., <1778>  D=(>DEAD,>DEAD,>DEAD),C=>DEAD, <1779> EC< <1780> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, <& <1781>  V=(>890A,>0030,>1301), &, <1782>  D=(>DEAD,>DEAD,>DEAD),C=>DEAD, <1783> EC <1784> *  <1785> .ENDIF <1786> *$< <1787> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, <& <1788>  V=>2E31,D=>2E32,C=>2E32& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0240 VERIFICATION DATA  >2E31 DATA  >2E32 CHECKSUM  >2E32$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4A8A 2E31  .1  CURRENT IMAGE L 4A8A 2E31 202A 2A00 0000 0001 0002 0003 0004 .1 * *. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 2E32 L 4A8A 2E32 202A 2A00 0000 0001 0002 0003 0004 .2 * *. .. .. .. .. ..L> <1789> !EC  ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH>H# <1790> ************************************************************H, <1791> *  BEGIN RELEASE 3.3.3 PATCHES,J$ <1792> ************************************************************* J <1793> *  <1794> *=P0563 RVL05/1"6/80STR #063153.3.3 TM$FUN " <1795> * L% <1796> * THE 'DO NOT SUSPEND' TIME INTERVAL IS CALCULATED INCORRECTLY.LL% <1797> * IF AN ERROR OCCURS PATCHING FOR 60HZ SYSTEM, PATCH FOR 50HZ. L <1798> * P' <1799> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0006,D=>00FA,C=>00FA P PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23  ADDRESS  >7AA0+>030E VERIFICATION DATA  >0006 DATA  >00FA CHECKSUM  >00FA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7DAE 0006  ..  CURRENT IMAGE L 7DAE 0006 3802 C801 0104 0720 014A 04E0 0106 .. 8. .. .. ..J .. ..L  NEW IMAGE: CHECKSUM = 00FA L 7DAE 00FA 3802 C801 0104 0720 014A 04E0 0106 .. 8. .. .. ..J .. ..L  <1800> .IF "@$$CC" , GT, 0 /1$@P' <1801> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0005,D=>00FA,C=>00FA P <1802> EC <1803> .ENDIF <1804> *$J$ <1805> ************************************************************* J <1806> * > <1807> *=P0576 RVL06/09/80STR #064823.3.3 DSR820 > <1808> * H# <1809> * THE 820 DSR DOES NOT ALLOW THE TAB CHARACTER TO BE PASSEDH <1810> *  <1811> *#SYN S820,DSR820  <1812> * $ <1813> .IF "@DSR820", NE, NONE $: <1814> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>02FA,:> <1815> V=(>0460,@DSR820+>01E8),D=(>13D2,>1000),C=>03D2 > <1816> EC <1817> .ENDIF <1818> *$J$ <1819> ************************************************************* J <1820> * > <1821> *=P0577 MU 06/11/80STR #064063.3.3 DSR820 > <1822> * F" <1823> * THE FIRST KATAKANA CHARACTER ENTERED FROM THE KEYBOARD F <1824> * FAILS TO ECHO.  <1825> *  <1826> *#SYN S820,DSR820  <1827> * $ <1828> .IF "@DSR820" ,NE, NONE $: <1829> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0486,:& <1830>  V=>C024,D=>C2A4,C=>C2A4 & <1831> EC: <1832> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>048E,:R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R& <1833>  V=>2020,D=>22A0,C=>22A0 & <1834> EC: <1835> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049A,:& <1836>  V=>0240,D=>024A,C=>024A & <1837> EC: <1838> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049E,:& <1839>  V=>C900,D=>C90A,C=>C90A & <1840> EC0 <1841> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR0 820+>04C8, & <1842>  V=>C024,D=>C2A4,C=>C2A4 & <1843> EC <1844> .ENDIF <1845> *$J$ <1846> ************************************************************* J <1847> * > <1848> *=P0578 KDK06/11/80STR #064193.3.3 DSR911 > <1849> * F" <1850> * ENTERING THE BACKFIELD KEY OR TAB KEY AFTER ENTERING ANFH# <1851> * INVALID CHARACTER INTO A VALIDATION FIELD WILL CAUSE THE H$ <1852> * CURSOR TO DISAPPEAR. $ <1853> *  <1854> *#SYN S911,DSR911   <1855> *#SYN S911,DSR911WP " <1856> *#SYN S911PF,DSR911PF " <1857> * $ <1858> .IF "@DSR911", NE, NONE $: <1859> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0402,:& <1860>  V=>C2E4,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26 @ ADDRESS  >7AA0+>0402 VERIFICATION DATA  >C2E4 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7EA2 C2E4  ..  CURRENT IMAGE L 7EA2 C2E4 002C 32CA 091B 178E 1D0E 108C 0764 .. ., 2. .. .. .. .. .dL  NEW IMAGE: CHECKSUM = 0460 L 7EA2 0460 002C 32CA 091B 178E 1D0E 108C 0764 .` ., 2. .. .. .. .. .dL <1861> EC: <1862> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0404,:6 <1863> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>0404 VERIFICATION DATA  >002C DATA  18506+>0186 CHECKSUM  18506+>0186$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7EA4 002C  .,  CURRENT IMAGE L 7EA4 002C 32CA 091B 178E 1D0E 108C 0764 0034 ., 2. .. .. .. .. .d .4L  NEW IMAGE: CHECKSUM = 49D0 L 7EA4 49D0 32CA 091B 178E 1D0E 108C 0764 0034 I. 2. .. .. .. .. .d .4L <1864> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <1865> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, <* <1866> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1867> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01860 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >C2E4,>002C,>1D0C,>0460" CHECKSUM  >DBA4$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 49D0 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE   49D0 D DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..D  NEW IMAGE: CHECKSUM = DBA4 L 49D0 C2E4 002C 1D0C 0460 DEAD DEAD DEAD DEAD .. ., .. .` .. .. .. ..L <1868> EC< <1869> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <6 <1870> V=>DEAD,D=@DSR911+>0406,C=@DSR911+>0406 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>018E VERIFICATION DATA  >DEAD DATA  >7AA0+>0406 CHECKSUM  >7AA0+>0406$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  49D8 DEAD  ..  CURRENT IMAGE L 49D8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7EA6 L 49D8 7EA6 DEAD DEAD DEAD DEAD DEAD DEAD DEAD ~. .. .. .. .. .. .. ..L <1871> EC@: <1872> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>055A,:& <1873>  V=>1D0C,D=>1000,C=>1000 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>055A VERIFICATION DATA  >1D0C DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7FFA 1D0C  ..  CURRENT IMAGE L 7FFA 1D0C 62A1 0004 A2A4 0032 058A 0460 7EA0 .. b. .. .. .2 .. .` ~.L  NEW IMAGE: CHECKSUM = 1000 L 7FFA 1000 62A1 0004 A2A4 0032 058A 0460 7EA0 .. b. .. .. .2 .. .` ~.L <1874> EC <1875> .ENDIF <1876> * & <1877> .IF "@DSR911PF", NE, NONE &> <1878> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B2,>& <1879>  V=>C2E4,D=>0460,C=>0460 & <1880> EC <1881> MPI PF=IMAGE(,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B4,(6 <1882> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1883> EC< <1884> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, <* <1885> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1886> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 <1887> EC< <1888> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <: <1889> V=>DEAD,D=@DSR911PF+>05B6,C=@DSR911PF+>05B6 : <1890> EC> <1891> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0772,>& <1892>  V=>1D0C,D=>1000,C=>1000 & <1893> EC <1894> .ENDIF& <1895> .IF "@DSR911WP", NE, NONE &> <1896> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B4,>& <1897>  V=>C2E4,D=>0460,C=>0460 & <1898> EC  <1899 6> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B6,66 <1900> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6 <1901> EC< <1902> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, <* <1903> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1904> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 <1905> EC< <1906> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <: <1907> V=>DEAD,D=@DSR911WP+>04B8,C=@DSR911WP+>04B8 : <1908> EC> <1909> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0636,>& <1910>  V=>1D0C,D=>1000,C=>1000 & <1911> EC <1912> .ENDIF <1913> *$R( <1914> **********************************************************************R <1915> * D <1916> *=P0584 KDK06/19/80STR #06144 3.3.3 DSRKSR,DSR733D <1917> * & <1918> * WHEN USING THE KSR OR A&(SR DSR FOR DIALUP TERMINALS, THE PHONE(L% <1919> * CONNECTION LOGIC PROHIBITS A RECONNECTION IN THE EVENT OF AN LH# <1920> * ABNORMAL DISCONNECTION; I.E. HANGING UP THE PHONE WITHOUTHL% <1921> * TERMINATING SCI, OR MOMENTARY POWER LOSS AT THE MODEM. THIS LL% <1922> * PATCH CORRECTS THE LOGIC AND ENABLES A RECONNECTION AFTER AN L <1923> * 8 SECOND DELAY. <1924> *  <1925> *#SYN SKSR,DSRKSR  <1926> *#SYN S733,DSR733  <1927> * < <1928> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0190, <& <1929>  V=>DEAD,D=>06A0,C=>06A0& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0190 VERIFICATION DATA  >DEAD DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA @ 49DA DEAD  ..  CURRENT IMAGE L 49DA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 49DA 06A0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <1930> EC< <1931> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0192, <4 <1932>  V=>DEAD,D=@IOCOM+>0004,C=@IOCOM+>00044 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0192 VERIFICATION DATA  >DEAD DATA  >71A0+>0004 CHECKSUM  >71A0+>0004$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  49DC DEAD  ..  CURRENT IMAGE H 49DC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .H. ..  NEW IMAGE: CHECKSUM = 71A4 L 49DC 71A4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD q. .. .. .. .. .. .. ..L <1933> EC< <1934> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0194, <6 <1935>  V=(>DEAD,>DEAD),D=(>0380,>0460),C=>07E06 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0194$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >0380,>0460 CHECKSUM  >07E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  49DE DEAD DEAD .. .. CURRENT IMAGE L 49DE DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 07E0 L 49DE 0380 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <1936> EC <1937> *  <1938> *  <1939> .IF @DSRKSR ,NE, NONE  <1940> *  <1941> * : <1942> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A4,:& <1943>  V=>06A0,D=>0460,C=>0460& <1944> EC: <1945> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A6,:> <1946>  V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 > <1947> EC: <1948> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A8,:6 <1949>  V=(>0380,>C047),D=(>C047,>1002),C=>D0456 <1950> EC< <1951> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, <6 <1952>  V=>DEAD,D=@DSRKSR+>00A8,C=@DSRKSR+>00A86 <1953> EC <1954> *  <1955> *  <1956> .ENDIF <1957> *  <1958> * " <1959> .IF @DSR733 ,NE, NONE " <1960> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1961> MPI PF*=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A4,*& <1962>  V=>06A0,D=>0460,C=>0460& <1963> EC: <1964> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A6,:> <1965>  V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 > <1966> EC: <1967> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A8,:6 <1968>  V=(>0380,>C047),D=(>C047,>1002),C=>D0456 <1969> EC< <1970> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, <6 <1971>  V=>DEAD,D=@DSR733+>00A8,C=@DSR733+>00A86 <1972> EC <1973> *  <1974> .ENDIF <1975> *$J$ <1976> ************************************************************* J <1977> * D <1978> *=P0597 RVL06/27/80STR #06603 3.3.3 DSRKSR,DSR733D <1979> * H# <1980> * KATAKANA CHARACTERS ARE NOT PROCESSED PROPERLY BY DSRKSR H <19 81> * AND DSR733. <1982> *  <1983> *#SYN SKSR,DSRKSR  <1984> *#SYN S733,DSR733  <1985> *   <1986> .IF @DSRKSR,NE,NONE  <1987> * : <1988> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>0398,:& <1989>  V=>02AA,D=>02AB,C=>02AB & <1990> EC: <1991> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>039A,:& <1992>  V=>D2AA,D=>D2AB,C=>D2AB & <1993> EC: <1994> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03A8,:& <1995>  V=>FAA0,D=>FAE0,C=>FAE0 & <1996> EC: <1997> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03BC,:& <1998>  V=>5AA0,D=>5AE0,C=>5AE0 & <1999> EC: <2000> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015C,:& <2001>  V=>DF00,D=>E000,C=>E000 & <2002> EC: <2003> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015E,: $ <2004>  V=>1BE6,D=>14E6,C=>14E6 $ <2005> EC <2006> *  <2007> .ENDIF <2008> *   <2009> .IF @DSR733,NE,NONE  <2010> * : <2011> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>0398,:& <2012>  V=>02AA,D=>02AB,C=>02AB & <2013> EC: <2014> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>039A,:& <2015>  V=>D2AA,D=>D2AB,C=>D2AB & <2016> EC: <2017> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03A8,:& <2018>  V=>FAA0,D=>FAE0,C=>FAE0 & <2019> EC: <2020> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03BC,:R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R& <2021>  V=>5AA0,D=>5AE0,C=>5AE0 & <2022> EC: <2023> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015C,:& <2024>  V=>DF00,D=>E000,C=>E000 &  <2025 > EC: <2026> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015E,:& <2027>  V=>1BE6,D=>14E6,C=>14E6 & <2028> EC <2029> .ENDIF <2030> *$J$ <2031> ************************************************************* J <2032> * > <2033> *=P0602 GJ 07/10/80STR #064243.3.3 ABTLDT > <2034> * F" <2035> * ABTLDT GENERATES A CLOSE CALL BLOCK WHICH IS NOT SIZED FF" <2036> * PROPERLY. THIS MAY CAUSE THE SYSTEM TO 'HANG' WITH ALL F@ <2037> * MEMORY LIGHTS ON AND REQUIRES AN IPL PROCEDURE TO@" <2038> * RESTART THE SYSTEM." <2039> * @ <2040> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>06AE+>0038, @& <2041>  V=>000E,D=>0012,C=>0012 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>06AE+>0038   VERIFICATION DATA  >000E DATA  >0012 CHECKSUM  >0012$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4F30 000E  ..  CURRENT IMAGE L 4F30 000E 06A0 5D14 4F2A C883 0006 E8E0 4A98 .. .. ]. O* .. .. .. J.L  NEW IMAGE: CHECKSUM = 0012 L 4F30 0012 06A0 5D14 4F2A C883 0006 E8E0 4A98 .. .. ]. O* .. .. .. J.L <2042> EC <2043> *$J$ <2044> ************************************************************* J <2045> * : <2046> *=P0629 GJ 07/30/80STR #067323.3.3 KIF: <2047> * J$ <2048> * IF BETWEEN THE TIME A READ OF A RECORD AND A REWRITE OF THEJH# <2049> * RECORD, AN OPERATION IS DONE TO THE FILE THAT AFFECTS THEHH# <2050> * LEAF NODE THE KEY READ IS IN BUT DOES NOT CAUSE A SPLIT, H <2051> * THE REWRITE WIL$L INCORRECTLY RETURN A >B9 ERROR. $ <2052> *  <2053> *#SYN SKIF3,KIF3 <2054> * " <2055> .IF "@KIF3" ,NE, NONE "@ <2056> MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0FF6+>008E, @& <2057>  V=>133C,D=>1335,C=>1335 & <2058> EC <2059> .ENDIF <2060> *$J$ <2061> ************************************************************* J <2062> * @ <2063> *=P0649 RVL08/18/80STR #068663.3.3 DSR911PF @ <2064> * D! <2065> * PATCH 499 HAS AN INCORRECT ADDRESS FOR THE 911 POWER D <2066> * FAIL DSR.R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <2067> * & <2068> .IF "@DSR911PF" ,NE, NONE &@ <2069> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>01E2, @0 <2070> V=@DSR911PF+>064A,D=@DSR911PF+>08C0 A,C=@DSR911PF+>08CA  <2071> EC <2072> .ENDIF <2073> *$< <2074> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, <& <2075>  V=>2E32,D=>2E33,C=>2E33& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0240 VERIFICATION DATA  >2E32 DATA  >2E33 CHECKSUM  >2E33$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4A8A 2E32  .2  CURRENT IMAGE L 4A8A 2E32 202A 2A00 0000 0001 0002 0003 0004 .2 * *. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 2E33 L 4A8A 2E33 202A 2A00 0000 0001 0002 0003 0004 .3 * *. .. .. .. .. ..L <2076> ECJ$ <2077> ************************************************************* J, <2078> *  BEGIN RELEASE 3.3.4 PATCHES, <2079> **********6*************************************************** 6 <2080> * > <2081> *=P0650 RVL08/15/80STR #068683.3.4 DSR911 > <2082> * B <2083> * THE 911 DOES NOT CHECK THE RECORD LENGTH ON A READ BB <2084> * DEVICE STATUS. MORE CHARACTERS MAY THEN BE RETURNEDBH# <2085> * THAN WERE REQUESTED AND MAY DESTROY SYSTEM TABLE LINKAGE.H <2086> * $ <2087> .IF "@DSR911" ,NE, NONE $: <2088> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F2,:& <2089>  V=>CAA4,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>00F2 VERIFICATION DATA  >CAA4 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B92 CAA4  ..  CURRENT IMAGE   7B92 C BAA4 0002 0002 0460 7D08 C261 0008 1333 .. .. .. .` }. .a .. .3B  NEW IMAGE: CHECKSUM = 0460 L 7B92 0460 0002 0002 0460 7D08 C261 0008 1333 .` .. .. .` }. .a .. .3L <2090> EC: <2091> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F4,:6 <2092> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>00F4 VERIFICATION DATA  >0002 DATA  18506+>019AR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CHECKSUM  18506+>019A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B94 0002  ..  CURRENT IMAGE L 7B94 0002 0002 0460 7D08 C261 0008 1333 C2A1 .. .. .` }. .a .. .3 ..L  NEW IMAGE: CHECKSUM = 49E4  7B94 4 B9E4 0002 0460 7D08 C261 0008 1333 C2A1 I. .. .` }. .a .. .3 ..B <2093> EC< <2094> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2095> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>019A$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >8821,>0006 CHECKSUM  >8827$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  49E4 DEAD DEAD .. .. CURRENT IMAGE L 49E4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8827 L 49E4 8821 0006 DEAD DEAD DEAD DEAD DEAD DEAD .! .. .. .. .. .. .. ..L <2096> EC< <2097> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, <. <2098> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>0.24E  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>019E VERIFICATION DATA  >DEAD DATA  >484A+>024E CHECKSUM  >484A+>024E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  49E8 DEAD  ..  CURRENT IMAGE L 49E8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 4A98 L 49E8 4A98 DEAD DEAD DEAD DEAD DEAD DEAD DEAD J. .. .. .. .. .. .. ..L <2099> EC< <2100> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <B <2101> V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01A0* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA  >1103,>CAA4,>0002 CHECKSUM  >DBA5$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 49EA DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 49EA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = DBA5 L 49EA 1103 CAA4 0002 DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <2102> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <2103> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, <6 <2104> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01A6$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >0002,>0460 CHECKSUM  >0462$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA A4@ 49F0 DEAD DEAD .. .. CURRENT IMAGE L 49F0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0462 L 49F0 0002 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <2105> EC< <2106> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, <6 <2107> V=>DEAD,D=@DSR911+>00F8,C=@DSR911+>00F8 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01AA VERIFICATION DATA  >DEAD DATA  >7AA0+>00F8 CHECKSUM  >7AA0+>00F8$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  49F4 DEAD  ..  CURRENT IMAGE L 49F4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7B98 " 49F4 7B98 DEAD DEAD DEAD DEA",D DEAD DEAD DEAD {. .. .. .. .. .. .. .., <2108> EC <2109> .ENDIF& <2110> .IF "@DSR911PF" ,NE, NONE &> <2111> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013C,>& <2112>  V=>CAA4,D=>0460,C=>0460 & <2113> EC> <2114> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013E,>6 <2115> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 <2116> EC< <2117> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2118> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6 <2119> EC< <2120> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, <2 <2121> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E 2 <2122> EC< <2123> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <B <2124> V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 B <2125> EC  <2126> MPI PF=IMAGE,MT=TA,M N=@SROOT,ADR=@S$$PAT+>01A6, 6 <2127> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 <2128> EC< <2129> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, <: <2130> V=>DEAD,D=@DSR911PF+>0142,C=@DSR911PF+>0142 : <2131> EC <2132> .ENDIF& <2133> .IF "@DSR911WP" ,NE, NONE &> <2134> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010C,>R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R& <2135>  V=>CAA4,D=>0460,C=>0460 & <2136> EC> <2137> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010E,>6 <2138> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 <2139> EC< <2140> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2141> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6 <2142> EC. <2143> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@.S$$PAT+>019E, 2 <2144> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E 2 <2145> EC< <2146> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <B <2147> V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 B <2148> EC< <2149> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, <6 <2150> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 <2151> EC< <2152> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, <: <2153> V=>DEAD,D=@DSR911WP+>0112,C=@DSR911WP+>0112 : <2154> EC <2155> .ENDIF <2156> *$R( <2157> **********************************************************************R <2158> * > <2159> *=P0709 MU 08/29/80STR #070963.3.4 DSR911 > <2160> * L% <2161> * THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATIONL <2162> * FAILS, 6HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THE6F" <2163> * FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED.FJ$ <2164> * **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIED FOR THIS PATCHJ( <2165> * **** TO APPLY PROPERLY. ( <2166> * " <2167> *#SYN S911PF,DSR911PF "" <2168> *#SYN S911WP,DSR911WP " <2169> *#SYN S911,DSR911  <2170> *#SYN SROOT,ROOT( <2171> *.EVAL S$$PAT="@ROOT+>0000" ( <2172> * $ <2173> .IF "@DSR911" ,NE, NONE $ <2174> * : <2175> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8,:( <2176>  V=(>06A0,@S$$PAT+>014E), (& <2177>  D=(>C024,>003A),C=>C01E& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>01C8* VERIFICATION DATA  >06A0,18506+>014E* DATA  >C0 24,>003A  CHECKSUM  >C01E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C68 06A0 4998 .. I. CURRENT IMAGE L 7C68 06A0 4998 D23A 5200 3208 1D08 1E0A 0609 .. I. .: R. 2. .. .. ..L  NEW IMAGE: CHECKSUM = C01E L 7C68 C024 003A D23A 5200 3208 1D08 1E0A 0609 .$ .: .: R. 2. .. .. ..L <2178> EC: <2179> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE,:( <2180>  V=(>06A0,@S$$PAT+>014E), (R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R& <2181>  D=(>C024,>003A),C=>C01E& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>02BE* VERIFICATION DATA  >06A0,18506+>014E* DATA  >C024,>003A CHECKSUM  >C01E$ OUTPUT ACCESS NAME ** NULL ** $C0(@ VERIFICATION DATA  7D5E 06A0 4998 .. I. CURRENT IMAGE L 7D5E 06A0 4998 361A 5E80 1E0A 0609 16FB 10CD .. I. 6. ^. .. .. .. ..L  NEW IMAGE: CHECKSUM = C01E L 7D5E C024 003A 361A 5E80 1E0A 0609 16FB 10CD .$ .: 6. ^. .. .. .. ..L <2182> EC: <2183> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568,:> <2184>  V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E> PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7AA0+>0568$ VERIFICATION DATA  >7AA0+>0400$ DATA  18506+>014E CHECKSUM  18506+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  8008 7EA0  ~.  CURRENT IMAGE L 8008 7EA0 1D0F C20A 098A 130C 0207 0018 8824 ~. .. .. .. .. .. .. .$L NEW IMAGE: CHECKSUM = 4998L 8008 4998 1D0F C20A 098A 130C 0207 0018 8824 I. .. .. .. .. .. .. .$L <2185> EC< <2186> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <& <2187>  V=(>C002,>0A80,>04C0), &, <2188>  D=(>C024,>003A,>0460),C=>C47E, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>014E* VERIFICATION DATA  >C002,>0A80,>04C0* DATA >C024,>003A,>0460 CHECKSUM  >C47E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4998 C002 0A80 04C0  .. .. .. & CURRENT IMAGE L 4998 C002 0A80 04C0 1802 0200 8080 045B DEAD .. .. .. .. .. .. .[ ..L  NEW IMAGE: CHECKSUM = C47E L 4998 C024 003A 0460 1802 0200 8080 045B DEAD .$ .: .` .. .. .. .[ ..L <2189> EC& <2190> MPI PF=IMAGE,MT=TA,MN=@SRO& OT,ADR=@S$$PAT+>0154, 6 <2191>  V=>1802,D=@DSR911+>0400,C=@DSR911+>04006 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0154 VERIFICATION DATA  >1802 DATA  >7AA0+>0400 CHECKSUM  >7AA0+>0400R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  499E 1802  ..  CURRENT IMAGE L 499E 1802 0200 8080 045B DEAD DEAD DEAD DEAD .. .. .. .[ .. .. .. ..L  NEW IMAGE: CHECKSUM = 7EA0 L 499E 7EA0 0200 8080 045B DEAD DEAD DEAD DEAD ~. .. .. .[ .. .. .. ..L <2192> EC< <2193> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <2194>  V=(>0200,>8080,>045B), &, <2195>  D=(>DEAD,>8080,>DEAD),C=>8080,RO0@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>0156* VERIFICATION DATA  >0200,>8080,>045B* DATA >DEAD,>8080,>DEAD CHECKSUM  >8080$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 49A0 0200 8080 045B  .. .. .[ & CURRENT IMAGE L 49A0 0200 8080 045B DEAD DEAD DEAD DEAD DEAD .. .. .[ .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8080 L 49A0 DEAD 8080 DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <2196> EC <2197> .ENDIF <2198> *  <2199> * & <2200> .IF "@DSR911PF" ,NE, NONE & <2201> * > <2202> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256,>( <2203>  V=(>06A0,@S$$PAT+>014E), (& <2204>  D=(>C024,>003A),C=>C01E& <2205> EC  <2206 6> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A,6( <2207>  V=(>06A0,@S$$PAT+>014E), (& <2208>  D=(>C024,>003A),C=>C01E& <2209> EC> <2210> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780,>@ <2211>  V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E@  <2212> < <2213> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <& <2214>  V=(>C002,>0A80,>04C0), &, <2215>  D=(>C024,>003A,>0460),C=>C47E, <2216> EC< <2217> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, <: <2218>  V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF+>05AA: <2219> EC< <2220> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <2221>  V=(>0200,>8080,>045B), &, <2222>  D=(>DEAD,>8080,>DEAD),C=>8080, <2223> EC <2224> .ENDIF <2225> *  <2226> * 06@& <2227> .IF "@DSR911WP" ,NE, NONE & <2228> * > <2229> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6,>, <2230>  V=(>C002,>0A80,>04C0,>1802), ,R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R2 <2231>  D=(>C024,>003A,>1003,>1002),C=>C01F2 <2232> EC> <2233> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318,>, <2234>  V=(>C002,>0A80,>04C0,>1802), ,2 <2235>  D=(>C024,>003A,>1003,>1002),C=>C01F2 <2236> EC> <2237> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644,>@ <2238>  V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E@  <2239> < <2240> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <& <2241>  V=(>DEAD,>DEAD,>DEAD), &, <2242>  D=(>C024,>003A,>0460),C=>C47E, <2243> EC <2244> MPI PF,=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, ,: <2245>  V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B0: <2246> EC <2247> .ENDIF <2248> *  <2249> *$J$ <2250> ************************************************************* J <2251> * > <2252> *=P0714 RVL09/19/80STR #070983.3.4 MM$SCN > <2253> * D! <2254> * IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK DD! <2255> * AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TODF" <2256> * LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THEFJ$ <2257> * TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. J <2258> * @ <2259> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0094, @& <2260>  V=>D022,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>1708+>0094  VERIFICATION DATA  >D022 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5FE6 D022  ."  CURRENT IMAGE L 5FE6 D022 0008 130E 9004 1111 150B 04C1 D040 ." .. .. .. .. .. .. .@L  NEW IMAGE: CHECKSUM = 0460 L 5FE6 0460 0008 130E 9004 1111 150B 04C1 D040 .` .. .. .. .. .. .. .@L <2261> EC@ <2262> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, @6 <2263> V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >484A+>1708+>0096  VERIFICATION DATA  >0008 DATA  18506+>01AC CHECKSUM  18506+>01AC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA @ 5FE8 0008  ..  CURRENT IMAGE L 5FE8 0008 130E 9004 1111 150B 04C1 D040 1104 .. .. .. .. .. .. .@ ..L  NEW IMAGE: CHECKSUM = 49F6 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 5FE8 49F6 130E 9004 1111 150B 04C1 D040 1104 I. .. .. .. .. .. .@ ..L <2264> EC< <2265> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, <B <2266> V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01AC* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >D022,>0008,>1304 CHECKSUM  >C32E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 49F6 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE  49F6 DEAD DEAD DEAD DEAD0 DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..0  NEW IMAGE: CHECKSUM = C32E L 49F6 D022 0008 1304 DEAD DEAD DEAD DEAD DEAD ." .. .. .. .. .. .. ..L <2267> EC< <2268> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, <B <2269> V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),C=>C660 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01B2* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >D104,>1304,>0460 CHECKSUM  >C660$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 49FC DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 49FC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = C660 L 49FC D104 1304 0460 DEAD DEAD DEAD DEAD DEAD .. .. .` .. .. .. .. ..L@ <2270> EC< <2271> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, <> <2272> V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01B8 VERIFICATION DATA  >DEAD DATA >484A+>1708+>009A  CHECKSUM >484A+>1708+>009A $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4A02 DEAD  ..  CURRENT IMAGE L 4A02 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5FEC L 4A02 5FEC DEAD DEAD DEAD DEAD DEAD DEAD DEAD _. .. .. .. .. .. .. ..L <2273> EC< <2274> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, <& <2275>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01BA VERIFICATION DATA  >DEADR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4A04 DEAD  ..  CURRENT IMAGE L 4A04 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 4A04 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <2276> EC< <2277> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, <> <2278> V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01BC VERIFICATION DATA  >DEAD DATA >484A+>1708+>00B6MO @  CHECKSUM >484A+>1708+>00B6 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4A06 DEAD  ..  CURRENT IMAGE L 4A06 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6008 L 4A06 6008 DEAD DEAD DEAD DEAD DEAD DEAD DEAD `. .. .. .. .. .. .. ..L <2279> EC< <2280> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, <& <2281>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01BE VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4A08 DEAD  ..  CURRENT IMAGE L 4A08 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 4A08 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <2282> EC< <2283> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01C0, <> <2284> V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18506+>01C0 VERIFICATION DATA  >DEAD DATA >484A+>1708+>00C0  CHECKSUM >484A+>1708+>00C0 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4A0A DEAD  ..  CURRENT IMAGE L 4A0A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6012 L 4A0A 6012 DEAD DEAD DEAD DEAD DEAD DEAD DEAD `. .. .. .. .. .. .. ..LD! * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCDI990 **BATCH  <2285> EC <2286> *$R( <2287> **********************************************************************RR <2288> * INSERT PATCHES HERE.BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALR <2289> * R( <2290> **********************************************************************R <2291> *  <2292> * @ <2293> CM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" @" RECEIVING TERMINAL NAME  ME ". MSG  SYSTEM PATCH STREAM ERROR COUNT = 0. <2294> *  <2295> Q$SYN $ <2296> .SYN IMAGE="", S$$PAT=""$6 <2297> .SYN SROOT="", ROOT="", S820="", DSR820=""6@ <2298> .SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" @6 <2299> .SYN SMEM="", MEMRES="", SIO="", SVCIO="" 66 <2300> .SYN DDIOSR="", SDDIO="", IOC="", IOCOM=""6  <2301> ,.SYN S911="", DSR911="", SLP="", LPDSR="" ,< <2302> .SYN S911PF="", DSR911PF="", S913="", DSR913="" <& <2303> .SYN S911WP="",DSR911WP=""&$ <2304> .SYN SFPY="", FPYDSR="" $ <2305> *  <2306> SDT $ 15:14:46 TUESDAY, JAN 23, 1990. $ <2307> EBATCH CODE  ** NULL **  TEXT  ** NULL **  LS (LIST SYNONYMS) ? NO  R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" @" RECEIVING TERMINAL NAME  ME ". MSG  SYSTEM PATCH STREAM ERROR COUNT = 0. <2294> *  <2295> Q$SYN $ <2296> .SYN IMAGE="", S$$PAT=""$6 <2297> .SYN SROOT="", ROOT="", S820="", DSR820=""6@ <2298> .SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" @6 <2299> .SYN SMEM="", MEMRES="", SIO="", SVCIO="" 66 <2300> .SYN DDIOSR="", SDDIO="", IOC="", IOCOM=""6  <2301> D",COMMCOM="" DP*$ PP************************************************************* PP* PP*=P0460 RVL 03/14/80 STR #05938 3.3.2 TM$INT PP* PP* TM$INT INCORRECTLY CALLS THE GET SYSTEM TABLE AREA PP* ROUTINE WHILE IN INTERRUPT CODE. PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>011C, P V=>1602,D=>1002,C=>1002 2 2PEC PP*$ PP************************************************************* PP* PP*=P0469 RVL 03/15/80 STR #05941 3.3.2 DSR911 PP* PP* A READ ASCII SVC ISSUED TO A 911 WILL DESTROY SYSTEM PP* TABLE LINKAGE IF THE RECORD LENGTH IS ZERO. THIS WILL PP* RESULT IN >22,>30 AND SEVERAL OTHER CRASH CODES. P0* 0 P.IF "@DSR911", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02F8, PP V=>C261,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02FA, PP V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PB D=(>C261,>0006,>1602,>C90A),C=>1D6F B PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, PP V=>DEAD,D=@DSR911+>02FC,C=@DSR911+>02FC PPEC PP.ENDIF PP.IF "@DSR911PF", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0464, P T@P V=>C261,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0466, PP V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C261,>0006,>1602,>C90A),C=>1D6F PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, P V=(>DEAD,>DEAD>,>DEAD),D=(>0030,>C249,>0460),C=>C619 >PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, PP V=>DEAD,D=@DSR911PF+>0468,C=@DSR911PF+>0468 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0470 RVL 03/18/80 STR #05967 3.3.2 LPDSR P$* $, ,P* ACCESSING SERIAL PRINTERS DIRECTLY WILL SOMETIMES CAUSE PP* THE SYSTEM TO 'HANG' OR CRASH WITH A CODE >22. PP* PP.IF "@LPDSR" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>000C, PP V=(>0205,>0002),D=(>1000,>1000),C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>001A, PP V=>1815,D=>1515,C=>1515 P6EC 6 PMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0046, PP V=>102B,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0048, PP V=>0207,D=>0205,C=>0205 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>004A, PP V=@LPDSR+>0266,D=>0002,C=>0002 PPEC PHMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0052, H P V=>1025,D=>10FA,C=>10FA PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0058, PP V=>1022,D=>10F7,C=>10F7 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0476 GRJ 03/25/80 STR #05696 3.3.2 CASHAN P* J JP* IF THE RECORD SWITCH OF A CASSETTE IS IN THE OFF OR PP* LOCAL POSITION AND AN ATTEMPT IS MADE TO WRITE TO IT, PP* AN ERROR >7 IS CORRECTLY RETURNED. HOWEVER ON A SUBSEQUENT PP* ATTEMPT, THE SYSTEM WILL CRASH WITH A CODE >20 PP* PP*#SYN S733,DSR733 PP* PP.IF "@DSR733", NE, NONE PP.EVAL CASHAN="@DSR733+>0566" PMPI PF=IMAGE,MT=OV,MN=@S8733,ADR=@CASHAN+>0092, 8P V=>2260,D=>0A89,C=>0A89 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0094, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0096, PP V=>1602,D=>1702,C=>1702 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C0, P* V=>2260,D=>0A89,C=>0A89 *& &PEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C2, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C4, PP V=>1302,D=>1802,C=>1802 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0134, PP V=@CASHAN+>014C,D=@CASHAN+>0150,C=@CASHAN+>0150 P014E, PP V=>4000,D=>0000,C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0150, PP V=@CASHAN+>0156,D=>0000,C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0152, PP V=@CASHAN+>01F0,D=>4000,C=>4000 PPEC PNMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0154, N P V=>0001,D=@CASHAN+>015A,C=@CASHAN+>015A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0156, PP V=>1300,D=@CASHAN+>01F0,C=@CASHAN+>01F0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0158, PP V=(>0100,>1000),D=(>0001,>1300),C=>1301 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>016C, PP V=@CASHAN+>0152,D=@CASHAN+>0156,C=@CASHAN+>0156 P EC D DPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0254, PP V=>2260,D=>0A89,C=>0A89 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0256, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0258, PP V=>1302,D=>1802,C=>1802 PPEC PMPI PF=IMAGE,MT=OV,MN=@S733,AD2R=@CASHAN+>0164, 2P V=>2260,D=>0A49,C=>0A49 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0166, PP V=@CASHAN+>015A,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0168, PP V=>16EE,D=>17EE,C=>17EE PPEC PP.SYN CASHAN="" P0.ENDIF 0 P*$ PP************************************************************* PP* PP*=P0490 GCH 04/11/80 STR #06206 3.3.2 IOCOMX PP* PP* THE CHARACTER QUE IN THE PDT WILL BE DESTROYED IF A TASK PP* OPENS A TERMINAL FOR EVENT CHARACTERS AND SUBSEQUENTLY PP* USES A SHORT FORM PRB. THIS MIGHT BE OBSERVED AS A SINGLE PP* EVENT CHARACTER CAUSING TWO I/O CALLS TO BE TERMINATED. PB* B P* NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH. PP* PP*#SYN IOC,IOCOM PP*#SYN SROOT,ROOT PP*#SYN S911,DSR911 PP*#SYN S911PF,DSR911PF PP* PP.EVAL TM$INT="@ROOT+>26D4" PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0182, P T@P V=(@TM$INT+>0186,@TM$INT+>01A6,>0000,>0000), PP D=(>04C6,>C264,>0002,>1612),C=>D0B2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>018A, PP V=(>0000,>0000,>0000,>0000), PP D=(>100F,>C264,>0002,>0609),C=>D460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0192, PP V=(>0000,>0000,>0000,>0000), PP D=(>1608,>C186,>1306,>0624),C=>C2AC PEC > >PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>019A, PP V=(@TM$INT+>01F0,>0000,>0000,>0000), PP D=(>0006,>C024,>0006,>D406),C=>1422 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01A2, PP V=(>0000,>0000,>0201,>0014), PP D=(>1003,>0624,>0002,>1602),C=>0027 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01AA, P$ V=(>06A0,@ROOT+>14CA,@TM$INT+>01$,E8), ,P D=(>C19B,>0380,>0460),C=>C67B PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B0, PP V=>C8A0,D=@IOCOM+>02D0,C=@IOCOM+>02D0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B2, PP V=(@ROOT+>024A,>0006,>C8A0), PP D=(>0624,>0006,>0460),C=>0242 PPEC P6MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B8, 6 P V=@TM$INT+>01EA,D=@IOCOM+>032E,C=@IOCOM+>032E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01BA, PP V=(>0008,>C8A0,@TM$INT+>01EC,>000A), PP D=(>C186,>1306,>0624,>0006),C=>D4A2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01C2, PP V=(>D8A0,@TM$INT+>01EE,>000E,>04C1), PP D=(>C024,>0006,>D406,>1002),C=>0426 PHEC H PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01CA, PP V=(>D881,>000C,>D881,>000D), PP D=(>0624,>0002,>046B,>0004),C=>0249 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C2, PP V=>C024,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C4, PP V=>0002,D=@TM$INT+>0182,C=@TM$INT+>0182 PPEC PMPI PFJ=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C6, JP V=(>1602,>C19B,>0380,>0624), PP D=(>1000,>1000,>1000,>0460),C=>1460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02CE, PP V=>0002,D=@TM$INT+>018C,C=@TM$INT+>018C PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0300, PP V=(>13E0),D=(>13E5),C=>13E5 PPEC PMPI PF=IMAGE,MT=OV,MN=@I8OC,ADR=@IOCOM+>0312, 8P V=(>17D7),D=(>17DC),C=>17DC PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0324, PP V=(>1804,>05A4),D=(>1802,>0460),C=>1C62 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0328, PP V=>0002,D=@TM$INT+>01B2,C=@TM$INT+>01B2 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>032A, P* V=(>0624,>0006),D=(>0624,>0002),C=>062*&6 &PEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0334, PP V=>046B,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0336, PP V=>0004,D=@TM$INT+>01BA,C=@TM$INT+>01BA PPEC PP* PP.IF @DSR911 ,NE, "NONE" P<* < PMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A0, PP V=>06A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A2, PP V=@IOCOM+>002C,D=@TM$INT+>01D2,D=@TM$INT+>01D2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, PP V=>D881,D=>06A0,C=>06A0 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, N P V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, PP V=>D881,D=>0206,C=>0206 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, PP V=>0010,D=@DSR911+>01B2,C=@DSR911+>01B2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, PP V=>D881,D=>0380,C=>0380 P EC D DP* PP.ENDIF PP* PP.IF @DSR911PF ,NE, "NONE" PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FC, PP V=>06A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FE, P V=@IOCOM+>002C,D=@TM$INT+>201D2,C=@TM$INT+>01D2 2PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, PP V=>D881,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, PP V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, PP V=>D881,D=>0206,C=>0206 P0EC 0 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, PP V=>0010,D=@DSR911PF+>0240,C=@DSR911PF+>0240 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, PP V=>D881,D=>0380,C=>0380 PPEC PP* PP.ENDIF PP* PB.SYN TM$INT="" B P*$ PP************************************************************* PP* PP*=P0496 RVL 04/18/80 STR #06147 3.3.2 DSR820 PP* PP* THE REQUEST TO SEND FLAG IS INCORRECTLY REFERENCED IN PP* THE 820 DSR. PP* PP.IF "@DSR820" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>00A6, P T@P V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0174, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01CE, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01F8, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PEC > >PMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0490, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04B4, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PP.ENDIF PP*$ PP************************************************************* P$* $, ,P*=P0499 RVL 04/21/80 STR #06113 3.3.2 DSR911 PP* PP* IF CHARACTERS ARE ENTERED INTO AN ECHO SUPPRESSED FIELD PP* AND THE ERASE INPUT KEY IS DEPRESSED AND MORE CHARACTERS PP* ARE INPUT PRIOR TO DEPRESSING THE RETURN KEY, THE SYSTEM PP* WILL CRASH WITH A >22 CRASH. PP* PP* NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH PP*#SYN SLGY,SYSLGY P6* 6 P.EVAL TM$INT="@ROOT+>26D4" PP.IF "@DSR911" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0320, PP V=>06A0,D=>0460,C=>460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0322, PP V=@DSR911+>064A,D=@TM$INT+>01DC,C=@TM$INT+>01DC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, PH V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 H PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, PP V=>06A0,D=@DSR911+>064A,C=@DSR911+>064A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, PP V=@SYSLGY,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, PP V=@TM$INT+>01E8,D=@DSR911+>0324,C=@DSR911+>0324 PPEC P.ENDIFJ JP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048C, PP V=>06A0,D=>0460,C=>460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048E, PP V=@DSR911PF+>08CA,D=@TM$INT+>01DC,C=@TM$INT+>01DC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, PP V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 PEC 8 8PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, PP V=>06A0,D=@DSR911PF+>064A,C=@DSR911PF+>064A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, PP V=@SYSLGY,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, PP V=@TM$INT+>01E8,D=@DSR911PF+>0490,C=@DSR911PF+>0490 PPEC P*.ENDIF *& &P.SYN TM$INT="" PP*$ ! NOTE: THIS PATCH MODIFIED BY PATCH 649 PP************************************************************* PP* PP*=P0507 RVL 04/23/80 STR #05754 3.3.2 DSR820 PP* PP* IF THE 820 IS PUT INTO THE LOCAL MODE AND BACK ONLINE PP* WHILE PROCESSING I/O, THE REQUEST TO SEND SIGNAL IS NEVER PP* RESET. IN ADDITION, IF THE 820 IS PROCESSING A READ P<* REQUEST AND THE SWITCH IS PLACED IN THE LOCAL POSITION, T<HE P* TASK AND/OR SCI IS NEVER ABORTED. PP* PP* NOTE: PATCH 0460 MUST BE APPLIED PRIOR TO THIS PATCH. PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PP.EVAL TM$INT="@ROOT+>26D4" PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03D8, PP V=>1F0D,D=>0460,C=>0460 PNEC N PMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03DA, PP V=>160E,D=@TM$INT+>01F6,C=@TM$INT+>01F6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01F6, PP V=(>0000,>0000,>0000,>0000,>0000), PP D=(>1F0D,>1609,>1F0E,>1602,>0460),C=>0468 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0200, PP V=>0000,D=@DSR820+>03DC,C=@DSR820+>03DC PPEC P MPI PF=IMAGE D,MT=TA,MN=@SROOT,ADR=@TM$INT+>0202, DP V=(>0000,>0000,>0000), PP D=(>0262,>0400,>0206),C=>0464 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0208, PP V=>0000,D=@TM$INT+>01F6,C=@TM$INT+>01F6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020A, PP V=(>0000,>0000),D=(>0380,>0460),C=>07E0 PPEC PMPI PF=IMAGE,MT=TA,MN=@SROOT,A2DR=@TM$INT+>020E, 2P V=>0000,D=@DSR820+>03F8,C=@DSR820+>03F8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F0, PP V=>0206,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F2, PP V=@DSR820+>04EE,D=@TM$INT+>01E8,C=@TM$INT+>01E8 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E8, P0 V=0380,D=>0206,C=>0206 0 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EA, PP V=>4D45,D=@DSR820+>04EE,C=@DSR820+>04EE PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EC, PP V=(>4D20,>4E00,>0000,>0000,>0000), PP D=(>C024,>0030,>1101,>1D0A,>0380),C=>CF9F PPEC PP.SYN TM$INT="" PB.ENDIF B P*$ PP*********************************************************************** PP* PP*=P0557 KDK 04/25/80 STR #06196 3.3.2 DSRVDT(911,911PF,913) PP* PP* THE CURSOR POSITIONING ON THE VDTS FAIL TO ADVANCE WHEN THE PP* LAST CHARACTER OF A FIELD IS ENTERED. THEN, ALTHOUGH THE CURSOR PP* IS POSITIONED ON A CHARACTER, THE CHARACTER CANNOT BE MODIFIED PP* UNTIL A LEFT ARROW KEY IS STRUCK. BUT STRIKING THE LEFT ARROW PP* KEY IN THIS CONDITION DOES NOT CAUSE THE CURSOR TO CHANGE P T@P* POSITIONS. THIS PATCH CAUSES THE CURSOR TO ALWAYS MOVE TO THE PP* NEXT CHARACTER POSITION WHEN A CHARACTER IS ENTERED. IT ALSO PP* CORRECTS A PROBLEM IN READING THE LAST CHARACTER IN A FIELD PP* THAT DOES NOT REQUIRE A TERMINATING CHARACTER TO CAUSE RETURN PP* TO THE CALLING TASK. PP* PP*#SYN SROOT,ROOT PP*#SYN S911,DSR911 PP*#SYN S911PF,DSR911PF PP*#SYN S913,DSR913 P*.EVAL S$$PAT="@RO>OT+>0000" >P* PP.IF @DSR911 ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0348, PP V=(>060A,>32CA,>058A,>0B2B), PP D=(>32CA,>0B2B,>1818,>100A),C=>31F3 PPEC PP* PP.ENDIF P$* $, ,P.IF @DSR911PF ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BA, PP V=(>060A,>32CA,>0460,@S$$PAT+>0000), PP D=(>32CA,>0B2B,>182D,>1015),C=>31D9 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04E8, PP V=(>C80A,@DSR911PF+>0BA0,>32CA), PP D=(>1000,>32CA,>1E0F),C=>3CC5 P6EC 6 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, PP V=(>058A,>0620,@DSR911PF+>0BA0,>0460,@DSR911PF+>04C2), PP D=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),C=>DEAD PPEC PP* PP.ENDIF PP* PP* PP.IF @DSR913 ,NE, NONE PH* H PMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B0, PP V=(>060A,>1D0C,>0460,@S$$PAT+>0016), PP D=(>1003,>1002,>1001,>1000),C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8, PP V=(>0B5B,>1811),D=(>0B2B,>1006),C=>1B2D PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E, PP V=@S$$PAT+>0024,D=@S$$PAT+>002A,C=@S$$PAT+>002A PPEC PMPI PFJ=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0654, !CURSOR OFF JP V=>1D1C,D=>1E1C,C=>1E1C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, PP V=(>06A0,@DSR913+>07DC,>C2E4,>002C), PP D=(>DEAD,>DEAD,>DEAD,>DEAD),C=>0000 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001E, PP V=(>058A,>0460,@DSR913+>02B8), PP D=(>DEAD,>DEAD,>DEAD),C=>DEAD PEC 8 8PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, PP V=(>890A,>0030,>1301), PP D=(>DEAD,>DEAD,>DEAD),C=>DEAD PPEC PP* PP.ENDIF PP*$ PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, PP V=>2E31,D=>2E32,C=>2E32 P*!EC ! THIS PATCH MODIFIED BY A SUBSEQUE*&NT PATCH &P************************************************************ PP* BEGIN RELEASE 3.3.3 PATCHES PP************************************************************* PP* PP*=P0563 RVL 05/16/80 STR #06315 3.3.3 TM$FUN PP* PP* THE 'DO NOT SUSPEND' TIME INTERVAL IS CALCULATED INCORRECTLY. PP* IF AN ERROR OCCURS PATCHING FOR 60HZ SYSTEM, PATCH FOR 50HZ. PP* P030E,V=>0006,D=>00FA,<C=>00FA P.IF "@$$CC" , GT, 0 PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0005,D=>00FA,C=>00FA PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0576 RVL 06/09/80 STR #06482 3.3.3 DSR820 PP* PN* THE 820 DSR DOES NOT ALLOW THE TAB CHARACTER TO BE PASSED N P* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>02FA, PP V=(>0460,@DSR820+>01E8),D=(>13D2,>1000),C=>03D2 PPEC PP.ENDIF PP*$ PP************************************************************* P * D DP*=P0577 MU 06/11/80 STR #06406 3.3.3 DSR820 PP* PP* THE FIRST KATAKANA CHARACTER ENTERED FROM THE KEYBOARD PP* FAILS TO ECHO. PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0486, P V=>C024,D=>C2A4,C=>C2A4 2 2PEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>048E, PP V=>2020,D=>22A0,C=>22A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049A, PP V=>0240,D=>024A,C=>024A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049E, PP V=>C900,D=>C90A,C=>C90A P0EC 0 PMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04C8, PP V=>C024,D=>C2A4,C=>C2A4 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0578 KDK 06/11/80 STR #06419 3.3.3 DSR911 PP* PB* ENTERING THE BACKFIELD KEY OR TAB KEY AFTER ENTERING AN B P* INVALID CHARACTER INTO A VALIDATION FIELD WILL CAUSE THE PP* CURSOR TO DISAPPEAR. PP* PP*#SYN S911,DSR911 PP*#SYN S911,DSR911WP PP*#SYN S911PF,DSR911PF PP* PP.IF "@DSR911", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0402, PP V=>C2E4,D=>0460,C=>0460 P T@PEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0404, PP V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, PP V=>DEAD,D=@DSR911+>0406,C=@DSR911+>0406 PEC > >PMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>055A, PP V=>1D0C,D=>1000,C=>1000 PPEC PP.ENDIF PP* PP.IF "@DSR911PF", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B2, PP V=>C2E4,D=>0460,C=>0460 PPEC P$MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@D$,SR911PF+>05B4, ,P V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, PP V=>DEAD,D=@DSR911PF+>05B6,C=@DSR911PF+>05B6 PPEC P6MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0772, 6 P V=>1D0C,D=>1000,C=>1000 PPEC PP.ENDIF PP.IF "@DSR911WP", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B4, PP V=>C2E4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B6, PP V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 PHEC H PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, PP V=>DEAD,D=@DSR911WP+>04B8,C=@DSR911WP+>04B8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0636, PP V=>1D0C,D=>1000,C=>1000 PPEC P.ENDIFJ JP*$ PP************************************************************************** PP* PP*=P0584 KDK 06/19/80 STR #06144 3.3.3 DSRKSR,DSR733 PP* PP* WHEN USING THE KSR OR ASR DSR FOR DIALUP TERMINALS, THE PHONE PP* CONNECTION LOGIC PROHIBITS A RECONNECTION IN THE EVENT OF AN PP* ABNORMAL DISCONNECTION; I.E. HANGING UP THE PHONE WITHOUT PP* TERMINATING SCI, OR MOMENTARY POWER LOSS AT THE MODEM. THIS P* PATCH CORRECTS THE LO8GIC AND ENABLES A RECONNECTION AFTER AN 8P* 8 SECOND DELAY. PP* PP*#SYN SKSR,DSRKSR PP*#SYN S733,DSR733 PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0190, PP V=>DEAD,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0192, P* V=>DEAD,D=@IOCOM+>0004,C=@IOCOM+>0004*& &PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0194, PP V=(>DEAD,>DEAD),D=(>0380,>0460),C=>07E0 PPEC PP* PP* PP.IF @DSRKSR ,NE, NONE PP* PP* P00A4, < P V=>06A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A6, PP V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A8, PP V=(>0380,>C047),D=(>C047,>1002),C=>D045 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, PN V=>DEAD,D=@DSRKSR+>00A8,C=@DSRKSR+>00A8 N PEC PP* PP* PP.ENDIF PP* PP* PP.IF @DSR733 ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A4, PP V=>06A0,D=>0460,C=>0460 P EC D DPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A6, PP V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A8, PP V=(>0380,>C047),D=(>C047,>1002),C=>D045 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, PP V=>DEAD,D=@DSR733+>00A8,C=@DSR733+>00A8 PPEC P* 2 2P.ENDIF PP*$ PP************************************************************* PP* PP*=P0597 RVL 06/27/80 STR #06603 3.3.3 DSRKSR,DSR733 PP* PP* KATAKANA CHARACTERS ARE NOT PROCESSED PROPERLY BY DSRKSR PP* AND DSR733. PP* P0*#SYN SKSR,DSRKSR 0 P*#SYN S733,DSR733 PP* PP.IF @DSRKSR,NE,NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>0398, PP V=>02AA,D=>02AB,C=>02AB PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>039A, PP V=>D2AA,D=>D2AB,C=>D2AB PBEC B PMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03A8, PP V=>FAA0,D=>FAE0,C=>FAE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03BC, PP V=>5AA0,D=>5AE0,C=>5AE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015C, PP V=>DF00,D=>E000,C=>E000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015E, P T@P V=>1BE6,D=>14E6,C=>14E6 PPEC PP* PP.ENDIF PP* PP.IF @DSR733,NE,NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>0398, PP V=>02AA,D=>02AB,C=>02AB PPEC PMPI PF=IMAGE,MT=OV>,MN=@S733,ADR=@DSR733+>039A, >P V=>D2AA,D=>D2AB,C=>D2AB PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03A8, PP V=>FAA0,D=>FAE0,C=>FAE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03BC, PP V=>5AA0,D=>5AE0,C=>5AE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015C, P$ V=>DF00,D=>E000,C=>E000 $, ,PEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015E, PP V=>1BE6,D=>14E6,C=>14E6 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0602 GJ 07/10/80 STR #06424 3.3.3 ABTLDT P6* 6 P* ABTLDT GENERATES A CLOSE CALL BLOCK WHICH IS NOT SIZED PP* PROPERLY. THIS MAY CAUSE THE SYSTEM TO 'HANG' WITH ALL PP* MEMORY LIGHTS ON AND REQUIRES AN IPL PROCEDURE TO PP* RESTART THE SYSTEM. PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>06AE+>0038, PP V=>000E,D=>0012,C=>0012 PPEC PP*$ PH************************************************************* H P* PP*=P0629 GJ 07/30/80 STR #06732 3.3.3 KIF PP* PP* IF BETWEEN THE TIME A READ OF A RECORD AND A REWRITE OF THE PP* RECORD, AN OPERATION IS DONE TO THE FILE THAT AFFECTS THE PP* LEAF NODE THE KEY READ IS IN BUT DOES NOT CAUSE A SPLIT, PP* THE REWRITE WILL INCORRECTLY RETURN A >B9 ERROR. PP* PP*#SYN SKIF3,KIF3 PP* P.IF "@JKIF3" ,NE, NONE JPMPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0FF6+>008E, PP V=>133C,D=>1335,C=>1335 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0649 RVL 08/18/80 STR #06866 3.3.3 DSR911PF PP* P* PATCH 499 HAS AN INCO8RRECT ADDRESS FOR THE 911 POWER 8P* FAIL DSR. PP* PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>01E2, PP V=@DSR911PF+>064A,D=@DSR911PF+>08CA,C=@DSR911PF+>08CA PPEC PP.ENDIF PP*$ PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, P* V=>2E32,D=>2E33,C=>2E33 *& &PEC PP************************************************************* PP* BEGIN RELEASE 3.3.4 PATCHES PP************************************************************* PP* PP*=P0650 RVL 08/15/80 STR #06868 3.3.4 DSR911 PP* PP* THE 911 DOES NOT CHECK THE RECORD LENGTH ON A READ PP* DEVICE STATUS. MORE CHARACTERS MAY THEN BE RETURNED P<* THAN WERE REQUESTED AND MAY DESTROY SYSTEM TABLE LINKAGE.< P* PP.IF "@DSR911" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F2, PP V=>CAA4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F4, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PN V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 N PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC P MPI PF=IMAGE D,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, DP V=>DEAD,D=@DSR911+>00F8,C=@DSR911+>00F8 PPEC PP.ENDIF PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013C, PP V=>CAA4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013E, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PEC 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PP V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC P0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, 0 P V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911PF+>0142,C=@DSR911PF+>0142 PPEC PP.ENDIF PP.IF "@DSR911WP" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010C, PP V=>CAA4,D=>0460,C=>0460 PBEC B PMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010E, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PP V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, P T@P V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911WP+>0112,C=@DSR911WP+>0112 PPEC PP.ENDIF PP*$ P******************>******************************************************** >P* PP*=P0709 MU 08/29/80 STR #07096 3.3.4 DSR911 PP* PP* THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATION PP* FAILS, HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THE PP* FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED. PP* **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIED FOR THIS PATCH PP* **** TO APPLY PROPERLY. PP* P$*#SYN S911PF,DSR911PF $, ,P*#SYN S911WP,DSR911WP PP*#SYN S911,DSR911 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8, PP V=(>06A0,@S$$PAT+>014E), P6 D=(>C024,>003A),C=>C01E 6 PEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568, PP V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PH V=(>C002,>0A80,>04C0), H P D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>1802,D=@DSR911+>0400,C=@DSR911+>0400 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC PP.ENDIF P* J JP* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A, PP V=(>06A0,@S$$PAT+>014E), P D=(>C024,>003A),C=>8C01E 8PEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780, PP V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, P* V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF*&+>05AA &PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC PP.ENDIF PP* PP* PP.IF "@DSR911WP" ,NE, NONE P<* < PMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644, PN V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E N P PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B0 PPEC PP.ENDIF PP* P *$ D DP************************************************************* PP* PP*=P0714 RVL 09/19/80 STR #07098 3.3.4 MM$SCN PP* PP* IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK PP* AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TO PP* LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THE PP* TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. PP* PMPI PF=IMAGE,MT=TA,MN=@SROOT,A2DR=@ROOT+>1708+>0094, 2P V=>D022,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, PP V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, PP V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, P0 V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),0 C=>C660 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, PP V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, PP V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 PBEC B PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01C0, PP V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 PPEC PP*$ PP************************************************************************** PP* INSERT PATCHES HERE. BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALL. PP* P T@P************************************************************************** PP* PP* PPCM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" PP* PPQ$SYN PP.SYN IMAGE="", S$$PAT="" PP.SYN SROOT="", ROOT="", S820="", DSR820="" PP.SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" PP.SYN SMEM="", MEMRES="", SIO="", SVCIO="" P.SYN DDIOSR="", SD>DIO="", IOC="", IOCOM="" >P.SYN S911="", DSR911="", SLP="", LPDSR="" PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************PP* THE NEXT AVAILABLE PATCH LOCATION IS S$$PAT+>01C2 P$* 21 WORDS RESERVED FOR COMMCOM PAT$,CH STARTING AT S$$PAT+>015C ,P********************************************************************************P PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************PP* THE NEXT AVAILABLE PATCH LOCATION IS S$$PAT+>01C2 P$* 21 WORDS RESERVED FOR COMMCOM PAT$0 DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..0  NEW IMAGE: CHECKSUM = 5D70 L 476E 5D70 DEAD DEAD DEAD DEAD DEAD DEAD DEAD ]p .. .. .. .. .. .. ..L <2278> EC< <2279> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, <& <2280>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01BE VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4770 DEAD  ..  CURRENT IMAGE L 4770 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 4770 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <2281> EC. <2282> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@.S$$PAT+>01C0, > <2283> V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  2 ADDRESS  17842+>01C0 VERIFICATION DATA  >DEAD DATA >45B2+>1708+>00C0  CHECKSUM >45B2+>1708+>00C0 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4772 DEAD  ..  CURRENT IMAGE L 4772 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5D7A L 4772 5D7A DEAD DEAD DEAD DEAD DEAD DEAD DEAD ]z .. .. .. .. .. .. ..L <2284> EC <2285> *$R( <2286> **********************************************************************RR <2287> * INSERT PATCHES HERE.BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALR <2288> *  <2289> ********@**************************************************************@ <2290> *  <2291> * @ <2292> CM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" @" RECEIVING TERMINAL NAME  ME ". MSG  SYSTEM PATCH STREAM ERROR COUNT = 0.R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <2293> *  <2294> Q$SYN $ <2295> .SYN IMAGE="", S$$PAT=""$6 <2296> .SYN SROOT="", ROOT="", S820="", DSR820=""6@ <2297> .SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" @6 <2298> .SYN SMEM="", MEMRES="", SIO="", SVCIO="" 66 <2299> .SYN DDIOSR="", SDDIO="", IOC="", IOCOM=""66 <2300> .SYN S911="", DSR911="", SLP="", LPDSR="" 6< <2301> .SYN S911PF="", DSR911PF="", S913="", DSR913="" <& <2302> .SYN S911WP="",DSR911WP=""& <2303> .SYN SFPY="",  FPYDSR=""  <2304> *  <2305> SDT " 14:35:00 MONDAY, MAY 17, 1982." <2306> EBATCH CODE  ** NULL **  TEXT  ** NULL **  LS (LIST SYNONYMS) ? NO  ME ". MSG  SYSTEM PATCH STREAM ERROR COUNT = 0.R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <2293> *  <2294> Q$SYN $ <2295> .SYN IMAGE="", S$$PAT=""$6 <2296> .SYN SROOT="", ROOT="", S820="", DSR820=""6@ <2297> .SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" @6 <2298> .SYN SMEM="", MEMRES="", SIO="", SVCIO="" 66 <2299> .SYN DDIOSR="", SDDIO="", IOC="", IOCOM=""66 <2300> .SYN S911="", DSR911="", SLP="", LPDSR="" 6< <2301> .SYN S911PF="", DSR911PF="", S913="", DSR913="" <& <2302> .SYN S911WP="",DSR911WP=""& <2303> .SYN SFPY="", QUIT Y .<"u<d'==  SKI1 S$SYSGEN`CONFIG x$ .. LINKSTRM2PF+.#.! BATCHSTM2P% (Z.'.$LINKMAP `P&F..W,D$OBJECT`P&F..{*,V D$SOURCE2PbFzh. .$z ERROR `&.Ҹ. PATCHFIL `!&F .Ҹ.&@< TITL 'ANSI X 3.26 1970 EBCDIC-8 TO ASCII-8 CONVERSION' < IDT'IBM2TI' REFCONVRT$ DEF CNTLCD,BUFFER,LRECL,TABLE $ DEFINFILE,INNAME  DEFOUTFIL,OUTNAM , DEFINFUN,INFLAG,INBADR,INLREC,INPREC , DEF OUTFUN,OUTADR,OUTPRC0LRECL EQU140  MAX. LOGICAL RECORD LENGTH 0* '.*  DEFINE TRANSFER VECTOR AND WORKSPACE .* ' IBM2TI DATA WSP,CONVRT,0WSP  BSS32!* '.*  DEFINE LUNO ASSIGNMENT FOR INPUT FILE.* 'INFILE DATA 0 ! BYTE >91,0  DATA 0,0,0,0,0,0  DATA >0400,0,0  DATA INNAME,0,0* '0*  DEFINE LUNO ASSIGNMENT FOR OUTPUT FILE 0* 'OUTFIL DATA 0 ! BYTE >91,0  DATA 0,0,0,0,0,0  DATA >0400,0,0  DATA OUTNAM,0,0* '*  DEFINE  AREAS FOR PATHNAMES * 'INNAME BYTE 255  BSS255 * 'OUTNAM BYTE 255  BSS255 * '**  DEFINE AREA FOR CONTROL CODE PARM** 'CNTLCD BYTE 5 !  BSS5 ! * '4*  DEFINE OFFSETS INTO LUNO ASSIGNMENT BLOCKS 4* 'INFUN EQUINFILE+>02INFLAG EQUINFILE+>04INBADR EQUINFILE+>06INLREC EQUINFILE+>08INPREC EQUINFILE+>0A* 'OUTFUN EQUOUTFIL+>02OUTADR EQUOUTFIL+>06OUTPRC EQUOUTFIL+>0A* '*  DEFINE I/O BUFFER* 'BUFFER BSSLRECL * '.*  EBCDIC-8 TO ASCII-8 CONVERSION TABLE ."*  ANSI X 3.26 1970 STANDARD "* '0TABLE BYTE >00,>01,>02,>03,>9C,>09,>86,>7F 0* BYTE >97,>8D,>8E,>0B,>0C,>0D,>0E,>0F * BYTE >10,>1 1,>12,>13,>9D,>85,>08,>87 * BYTE >18,>19,>92,>8F,>1C,>1D,>1E,>1F ** BYTE >80,>81,>82,>83,>84,>0A,>17,>1B ** BYTE >88,>89,>8A,>8B,>8C,>05,>06,>07 ** BYTE >90,>91,>16,>93,>94,>95,>96,>04 ** BYTE >98,>99,>9A,>9B,>14,>15,>9E,>1A ** BYTE >20,>A0,>A1,>A2,>A3,>A4,>A5,>A6 ** BYTE >A7,>A8,>5B,>2E,>3C,>28,>2B,>21 ** BYTE >26,>A9,>AA,>AB,>AC,>AD,>AE,>AF ** BYTE >B0,>B1,>5D,>24,>2A,>29,>3B,>5E ** BYTE >2D,>2F,>B2,>B3,>B4,>B5,>B6,>B7 ** BYTE >B8,>B9,>7C,>2C,>25,>5F,>3E,>3F ** BYTE >BA,>BB,>BC,>BD,>BE,>BF,>C0,>C1 ** BYTE >C2,>60,>3A,>23,>40,>27,>3D,>22 ** BYTE >C3,>61,>62,>63,>64,>65,>66,>67 ** BYTE >68,>69,>C4,>C5,>C6,>C7,>C8,>C9 ** BYTE >CA,>6A,>6B,>6C,>6D,>6E,>6F,>70 ** BYTE >71,>72,>CB,>CC,>CD,>CE,>CF,>D0 ** BYTE >D1,>7E,>73,>74,>75,>76,>77,>78 ** BYTE >79,>7A,>D2,>D3,>D4,>D5,>D6,>D7 ** BYTE >D8,>D9,>DA,>DB,>DC,>DD,>DE,>DF ** BYTE >E0,>E1,>E2,>E3,>E4,>E5,>E6,>E7 ** BYTE >7B,>41,>42,>43,>44,>45,>46,>47 ** BYTE >48,>49,>E8,>E9,>EA,>EB,>EC,>ED ** BYTE >7D,>4A,>4B,>4C,>4D,>4E,>4F,>50 ** BYTE >51,>52,>EE,>EF,>F0,>F1,>F2,>F3 ** BYTE >5C,>9F,>53,>54,>55,>56,>57,>58 ** BYTE >59,>5A,>F4,>F5,>F6,>F7,>F8,>F9 ** BYTE >30,>31,>32,>33,>34,>35,>36,>37 ** BYTE >38,>39,>FA,>FB,>FC,>FD,>EF,>FF * ENDIBM2TIE,>3F ** BYTE >BA,>BB,>BC,>BD,>BE,>BF,>C0,>C1 ** BYTE >C2,>60,>3A,>23,>40,>27,>3D,>22 ** BYTE >C3,>61,>62,>63,>64,>65,>66,>67 ** BYTE >68,>69,>C4,>C5,>C6,>C7,>C8,>C9 ** BYTE >CA,>6A,>6B,>6C,>6D,>6E,>6F,>70 ** BYTE >71,>72,>CB,>CC,>CD,>CE,>CF,>D0 ** BYTE >D1,>7E,>73,>74,>75,>76,>77,>78 *CT:ALGSLIST * 74 07/19/8913:11:42 BS N SEQ YES::D$LIST * 1281 07/19/8913:03:39 BS N SEQ YES:6MAT  * 74 07/25/8911:07:26 BS N SEQ YES66MAT1 *308 07/25/8911:34:07 NBSN SEQ YES68MFG$$$ * 11 12/19/7913:16:23 NBSN SEQ YES8<PGSLIST  * 5094 07/19/8913:27:46 BS N SEQ YES<8S$BGTCA  *3 07/25/8910:40:48 NBSN REL NO 8:S$CRASH  *456 01/02/8014:22:56 NBSC IMG NO :BS$DIAG * 40 01/02/8013:58:31 NBSC REL NO WRT DEL B:S$FGTCA  * 12 07/25/8911:44:49 NBSN REL NO :8S$FTLF02 *1 07/25/8911:44:49 BS N SEQ YES8@S$IMAGES *817 07/25/8910:40:38 NBSN PRO NO DEL @@S$LOADER * 20 11/14/7915:04:19 NBSC IMG NO DEL @$S$OVLYA  * 33 04/01/8017:1$M$00& VOLUME NAME: D352 ADUS: 16320 # BAD: 0 BYTES/ADU: 288>LAVAILABLE: 13980 LARGEST AVAILABLE BLOCK: 13980  CONTROLLER RETRIES: 0 L8PRIMARY SYSTEM IMAGE: SYSTEM SECONDARY SYSTEM IMAGE:8NAME INSTALLED: p %@@B$@ % $. %@@B$@4 %  % nn`. %  % C %  % $7 8t7 % " & DÎ&$$8t7 % @ % F)9Y N7 ` % $( %@@B$@ % 3 % n`( % \tF`"/`  !$ & J *@        %`"/t & *΋@K`d΋BDBB/!/20/7916:26:36,CFREL S 132  211/20/7916:26:39,,CFSEQ S 152  211/20/7916:26:42,*CKD S 7 1  111/20/7916:35:16**CKS S 9 1  111/20/7916:26:45*(CL S 142  211/20/7916:26:48((CM S 8 1  111/20/7916:26:50(*CPI S 405  511/20/7916:26:55*,CPI$O S 7 1  1 4/ 1/8017: 9: 9,,CPI$T S 6 1  111/20/7916:26:59,*CSF S 162  211/20/7916:35:19**CSK S 6 1  111/20/7916:27: 2**CSM S 244  411/20/7916:27: 6*(DA S 5 1  111/20/7916:30:18((DB S 7 1  111/20/7916:30:21(*DBP S 7 1  111/20/7916:30:23*,DCOPY S 3 1  111/20/7916:30:25,(DD S 101  111/20/7916:30:28((DF S 101  111/20/7916:30:30( DL S  112  211/20/7916:27: 9 (DO S 8 1  111/20/7916:30:33((DP S 8 2  211/20/7916:30:36(*DPB S 7 1  111/20/7916:30:38**DPBP S 8 2  211/20/7916:30:41*(DS S 243  311/20/7916:27:13(*DSB S 5 1  111/20/7916:30:43*(DT S 8 1  111/20/7916:30:45(*DUI S 101  111/20/7916:34:35**DXTX S 8 1  111/20/7916:27:15*,EBATCH S 152  211/20/7916:27:18,(EC S 5 1  111/20/7916:27:20(,ENDKEY S 203  311/20/7916:27:24,(FB S 102  2 4/ 1/8017:11:12((FL S 5 1  111/20/7916:27:26((FS S 233  311/20/7916:27:30((FW S 102  2 4/ 1/8017:11:20((HO S 7 1  111/20/7916:27:32((HT S 6 1  111/20/7916:30:54( IBM2TI S 203  3 7/25/8910:57: 9 ,IBMUTL S 5 1  111/20/7916:30:56,*IDT S 122  2 7/25/8910:26:53*,IDT$1 S 514  411/20/7916:34:43,(IF S 223  311/20/7916:27:36(*IGS S 112  211/20/7916:35:24**INV S 314  411/20/7916:31: 0**INV$ S 4 1  111/20/7916:31: 3*(IO S 173  311/20/7916:31: 6((IP S 193  311/20/7916:31:10(,IRT S 9512 12 11/20/7916:31:28,(IS S 324  4 7/25/8910:25:45(*ISL S 243  3 7/25/8910:27:50**ISL$ S 5 1  111/20/7916:34:55**ISO S 102  211/20/7916:31:13**IT S 9813 13 11/20/7916:31:20**IT$ S 7 1  111/20/7916:31:30**IT$$ S 112  211/20/7916:31:33*(IV S 7 1  111/20/7916:27:38(*ENERATOR FATAL ERROR ***"  > .ENDIF%  .IF @$$CC,GT,00000 L# CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC ***" LB .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***"  B .ENDIF%  CM R=ME,M="*** ALGS - NORM& %@@@@@@@@@@@@[&, %@@@@@@@@@@@@@@@@@@@@@@kk,$ %@@@@@@@@@@@@@@@@@@@@$$ %@@@@@@@@@@@@@@@@@@@@$, %@@@@@@@@@\\@@\\@,, %@@@@@@@@@@@@@@\\@@\\@,. %@@@@@@@@@@@@@@@@@@@@@@@@@@@@\\@@\\.. %@@@@@@@@@@@@@@@@@@@@@@\\@@\\.. %@@@@@@@@@@@@@@@@@@@@@@\\@@\\.. %@@@@@@@@@@@@@@@@@@@@@@\\@@\\.8 %@@k@@k@@@8 %@Ln@K@[@~@@" %@Ln@K@@@@|[[kk@"H# %@Ln@@@@@~k~\\\@@`@[@@@~@|[[@\\\@H> %@Ln@@@@K@~\\\@@`@[@@@\\\@> %@Ln@KD! %@Ln@\\\\\\\\\\\\\\\\\\\\@@@@\\\\\\\\\\\\\\\\\\@D %@Ln@@@@@R#045AED$DATA A0000C0000C004CB0500B0000B0000C00D4B0000B0000B00007F29EF D$DA0001RR(B0000B0000B0000B534BB4931B2020A0020B0000B0000B0000B0000B0000C0C3E7F24FF D$DA0002RR(C0C3EB3228B0000B0000A0040B0000B0000B0000B0000BFFFFB0000B0000B00007F219F D$DA0003RR(B0000B0000B0000B0000B0000B0006B0000B0000B0000B0006B0000B0000B00007F2A3F D$DA0004RR(A006AA008AA00AAB0000B0000B003CB0001B0000A00B4B0000B0000B0000B00007F234F D$DA0005RR(B0000B0000B0000B0000B0001B001EB0000B0000B0000BC000BFF00C0118B00007F24EF D$DA0006RR(B0001B0000B0000B0000B0000B0000B0000B0000B0002B0000B0000B0000B00007F2ACF D$DA0007RR(B0000B0000B0000B0002B0000B0000B0000B0000B0000B0000B0000B0002B00007F2ABF D$DA0008RR(B0000B0000B0000B0000B0000B0000B0003C0108B0000B0000B0000B0000B00007F2A2F D$DA0009RR(B0000B0003C0108B0000B0000B0000B0000B0000B0000B0003C0108B0000B00007F295F D$DA0010RTR#003F0TI2IBM A0000C0006B0000B0000A0006A0026B0000B9100B0000B00007F2A9F TI2I0001RR(B0000B0000B0000B0000B0400B0000B0000C005EB0000B0000B0000B9100B00007F286F TI2I0002RR(B0000B0000B0000B0000B0000B0400B0000B0000C015EB0000B0000BFF00A005E7F24AF TI2I0003RR(A015EBFF00A015EA025EB0500A025EA0264A02F0B0001B0203B372DB2E2FB16057F191F TI2I0004RR(B250BB0C0DB0E0FB1011B1213B3C3DB3226B1819B3F27B1C1DB1E1FB404FB7F7B7F121F TI2I0005RR(B5B6CB507DB4D5DB5C4EB6B60B4B61BF0F1BF2F3BF4F5BF6F7BF8F9B7A5EB4C7E7F054F TI2I0006RR(B6E6FB7CC1BC2C3BC4C5BC6C7BC8C9BD1D2BD3D4BD5D6BD7D8BD9E2BE3E4BE5E67F028F TI2I0007RR(BE7E8BE94ABE05AB5F6DB7981B8283B8485B8687B8889B9192B9394B9596B97987F0F2F TI2I0008RR(B99A2BA3A4BA5A6BA7A8BA9C0B6AD0BA107B2021B2223B2415B0617B2829B2A2B7F12EF TI2I0009RR(B2C09B0A1BB3031B1A33B3435B3608B3839B3A3BB0414B3EE1B4142B4344B45467F18AF TI2I0010RTR(B4748B4951B5253B5455B5657B5859B6263B6465B6667B6869B7071B7273B74757F19CF TI2I0011RR(B7677B7880B8A8BB8C8DB8E8FB909AB9B9CB9D9EB9FA0BAAABBACADBAEAFBB0B17F013F TI2I0012RR(BB2B3BB4B5BB6B7BB8B9BBABBBBCBDBBEBFBCACBBCCCDBCECFBDADBBDCDDBDEDF7EF3EF TI2I0013R0BEAEBBECEDBEEEFBFAFBBFCFDBFEFF7F7D1FTI2I00140J50264BUFFER5025ECNTLCD30002CONVRT5002CINBADR50026INFILE7F206F TI2I0015JJ5002AINFLAG50028INFUN 5002EINLREC5005EINNAME50030INPREC7F228F TI2I0016JJ6008CLRECL 50048OUTADR50042OUTFIL50044OUTFUN5015EOUTNAM7F1C6F TI2I0017J.5004COUTPRC502F0TABLE 200007F959F TI2I0018.D:  TI2IBM  03/23/79 11:13:36  SDSMAC 3.2.0 78.274TI2I0019D87F0F2F TI2I0008RR(B99A2BA3A4BA5A6BA7A8BA9C0B6AD0BA107B2021B2223B2415B0617B2829B2A2B7F12EF TI2I0009RR(B2C09B0A1BB3031B1A33B3435B3608B3839B3A3BB0414B3EE1B4142B4344B45467F18AF TI2I0010RT(@< TITL 'ANSI X 3.26 1970 ACSII-8 TO EBCDIC-8 CONVERSION' < IDT'TI2IBM' REFCONVRT$ DEF CNTLCD,BUFFER,LRECL,TABLE $ DEFINFILE,INNAME  DEFOUTFIL,OUTNAM , DEFINFUN,INFLAG,INBADR,INLREC,INPREC , DEF OUTFUN,OUTADR,OUTPRC0LRECL EQU140  MAX. LOGICAL RECORD LENGTH 0* '.*  DEFINE TRANSFER VECTOR AND WORKSPACE .* ' TI2IBM DATA WSP,CONVRT,0WSP  BSS32!* '.*  DEFINE LUNO ASSIGNMENT FOR INPUT FILE.* 'INFILE DATA 0 ! BYTE >91,0  DATA 0,0,0,0,0,0  DATA >0400,0,0  DATA INNAME,0,0* '0*  DEFINE LUNO ASSIGNMENT FOR OUTPUT FILE 0* 'OUTFIL DATA 0 ! BYTE >91,0  DATA 0,0,0,0,0,0  DATA >0400,0,0  DATA OUTNAM,0,0* '*  DEFINE  AREAS FOR PATHNAMES * 'INNAME BYTE 255  BSS255 * 'OUTNAM BYTE 255  BSS255 * '**  DEFINE AREA FOR CONTROL CODE PARM** 'CNTLCD BYTE 5 !  BSS5 ! * '4*  DEFINE OFFSETS INTO LUNO ASSIGNMENT BLOCKS 4* 'INFUN EQUINFILE+>02INFLAG EQUINFILE+>04INBADR EQUINFILE+>06INLREC EQUINFILE+>08INPREC EQUINFILE+>0A* 'OUTFUN EQUOUTFIL+>02OUTADR EQUOUTFIL+>06OUTPRC EQUOUTFIL+>0A* '*  DEFINE I/O BUFFER* 'BUFFER BSSLRECL * '.*  ASCII-8 TO EBCDIC-8 CONVERSION TABLE ."*  ANSI X 3.26 1970 STANDARD "* '0TABLE BYTE >00,>01,>02,>03,>37,>2D,>2E,>2F 0* BYTE >16,>05,>25,>0B,>0C,>0D,>0E,>0F * BYTE >10,>1 1,>12,>13,>3C,>3D,>32,>26 * BYTE >18,>19,>3F,>27,>1C,>1D,>1E,>1F ** BYTE >40,>4F,>7F,>7B,>5B,>6C,>50,>7D ** BYTE >4D,>5D,>5C,>4E,>6B,>60,>4B,>61 ** BYTE >F0,>F1,>F2,>F3,>F4,>F5,>F6,>F7 ** BYTE >F8,>F9,>7A,>5E,>4C,>7E,>6E,>6F ** BYTE >7C,>C1,>C2,>C3,>C4,>C5,>C6,>C7 ** BYTE >C8,>C9,>D1,>D2,>D3,>D4,>D5,>D6 ** BYTE >D7,>D8,>D9,>E2,>E3,>E4,>E5,>E6 ** BYTE >E7,>E8,>E9,>4A,>E0,>5A,>5F,>6D ** BYTE >79,>81,>82,>83,>84,>85,>86,>87 ** BYTE >88,>89,>91,>92,>93,>94,>95,>96 ** BYTE >97,>98,>99,>A2,>A3,>A4,>A5,>A6 ** BYTE >A7,>A8,>A9,>C0,>6A,>D0,>A1,>07 ** BYTE >20,>21,>22,>23,>24,>15,>06,>17 ** BYTE >28,>29,>2A,>2B,>2C,>09,>0A,>1B ** BYTE >30,>31,>1A,>33,>34,>35,>36,>08 ** BYTE >38,>39,>3A,>3B,>04,>14,>3E,>E1 ** BYTE >41,>42,>43,>44,>45,>46,>47,>48 ** BYTE >49,>51,>52,>53,>54,>55,>56,>57 ** BYTE >58,>59,>62,>63,>64,>65,>66,>67 ** BYTE >68,>69,>70,>71,>72,>73,>74,>75 ** BYTE >76,>77,>78,>80,>8A,>8B,>8C,>8D ** BYTE >8E,>8F,>90,>9A,>9B,>9C,>9D,>9E ** BYTE >9F,>A0,>AA,>AB,>AC,>AD,>AE,>AF ** BYTE >B0,>B1,>B2,>B3,>B4,>B5,>B6,>B7 ** BYTE >B8,>B9,>BA,>BB,>BC,>BD,>BE,>BF ** BYTE >CA,>CB,>CC,>CD,>CE,>CF,>DA,>DB ** BYTE >DC,>DD,>DE,>DF,>EA,>EB,>EC,>ED ** BYTE >EE,>EF,>FA,>FB,>FC,>FD,>FE,>FF * ENDTI2IBM5,>96 ** BYTE >97,>98,>99,>A2,>A3,>A4,>A5,>A6 ** BYTE >A7,>A8,>A9,>C0,>6A,>D0,>A1,>07 ** BYTE >20,>21,>22,>23,>24,>15,>06,>17 ** BYTE >28,>29,>2A,>2B,>2C,>09,>0A,>1B ** BYTE >30,>31,>1A,>33,>34,>35,>36,>08 ** BYTE >38,>39,>3A,>3B,>04,>14,>3E,>E1 ** BYTE >41,>42,>43,>44,>45,>46,>47,>48 *(TI2IBM (ASCII TO EBCDIC CONVERSION),( INPUT ACCESS NAME = ACNM,$OUTPUT ACCESS NAME = ACNM(MT01),$"DELETE CONTROL CHAR=*YESNO(NO)"$ALL=>22,A=.EBCASC.CONVERT,P=Y $*.IF "&DELETE CONTROL CHAR", EQ, "YES" *.BID TASK=>01,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME, "YES")" .ELSE % .BID TASK=>01,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME,"")  .ENDIF%  .IF "@$$CC", NE ,"00000" MSG T="ERROR @$$CC"  .ENDIF% RLL=>22 "S01$$SYS$CDS4$E$C0$ACCTACCTXXX$DSAL.DSAL$ACTVACTV$ARCHARCH$TMHCS AMHCDEV.TMHCSLP01PR01$XCC$OBAMHCDEV.TMHCS.OBJ.ASCCONV$XCC$LAMHCDEV.TMHCS.LST.ASCCONV$XLE$OBAMHCDEV.TMHCS.PROG$$OBAMHCDEV.TMHCS.PROG$XLE$L.L$XLE$CAMHCDEV.TMHCS.LCF.ASCCONV$$BC00000$XE$.CDSPROC.AS@ NOSYMT%  FORMAT IMAGE,REPLACE PROCEDURE DUMMY   DUMMY % "INCLUDE DS01.S$SYSGEN.DUMMY  "ADJUST 5 SYSTEM ROOT  TASKSKI1" *INCLUDE DS01.S$SYSGEN.SKI1.D$OBJECT  *"INCLUDE DS01.S$SYSGEN.SYSLGY " INCLUDE DS01.S$SYSGEN.ROOT (ADJUST 5 FILE MANAGEMENT AND KIF  (PHASE 1,SKI11 ! "INCLUDE DS01.S$SYSGEN.FILMG  ""INCLUDE DS01.S$SYSGEN.DUMKIF "&ADJUST 5 MEMORY RESIDENT TASKS  &PHASE 1,SKI12 ! "INCLUDE DS01.S$SYSGEN.MEMRES " ADJUST 5  SYSTEM COMMON  PHASE 1,SKI13 ! "INCLUDE DS01.S$SYSGEN.DUMCOM "ADJUST 5 I/O COMMON PHASE 1,SKI14 ! "INCLUDE DS01.S$SYSGEN.IOCOM  ""INCLUDE DS01.S$SYSGEN.NOCOMM "ADJUST 5 SVC AND I/O  PHASE 2,SKI15 ! "INCLUDE DS01.S$SYSGEN.SVCIO  ""INCLUDE DS01.S$SYSGEN.NOFCCC ""INCLUDE DS01.S$SYSGEN.SYSLOG "ADJUST 5 DISK PHASE 2,SKI16 ! "INCLUDE DS01.S$SYSGEN.DDIOSR "ADJUST 5 LINE PRINTER PHASE 2,SKI17 !  INCLUDE DS01.S$SYSGEN.LPDSR  ADJUST 5 911 CRT  PHASE 2,SKI1A ! "INCLUDE DS01.S$SYSGEN.DSR911 "ADJUST 5 979 MAG TAPE PHASE 2,SKI1C ! "INCLUDE DS01.S$SYSGEN.DSR979 " END & "ADJUST 5 SVC AND I/O  PHASE 2,SKI15 ! "INCLUDE DS01.S$SYSGEN.SVCIO  ""INCLUDE DS01.S$SYSGEN.NOFCCC ""INCLUDE DS01.S$SYSGEN.SYSLOG "ADJUST 5 DISK PHASE 2,SKI16 ! "INCLUDE DS01.S$SYSGEN.DDIOSR "ADJUST 5 LINE PRINTER PHASE 2,SKI17 !  INCLUDE DS01.S$SYSGEN.LPDS@H!*================ SYSGEN COMPLETION BATCH STREAM ================  H<******************* ASSEMBLE D$DATA *****************  < BATCH % 2XMA  SOURCE = DS01.S$SYSGEN.SKI1.D$SOURCE, 2, OBJECT = DS01.S$SYSGEN.SKI1.D$OBJECT, , LIST = XMA$L,  OPTION = (BUN,TUN,DUN)  .SYN XMA$L = ""  .IF  @$$CC,GE,04000  @ CM R=ME,M="*** ALGS - D$DATA ASSEMBLY ERROR = @$$CC ***"  @6 .STOP T="*** ALGS - D$DATA ASSEMBLY ERROR ***"  6 .ENDIF% &******************** LINK THE SYSTEM& ******************  2XLE  CONTROL= DS01.S$SYSGEN.SKI1.LINKSTRM, 2 LINK = DS01.S$IMAGES, * LIST = DS01.S$SYSGEN.SKI1.LINKMAP * .IF @$$CC,GE,04000 @CM R=ME,M="*** ALGS - SYSTEM LINK EDIT ERROR = @$$CC ***"  @6 .STOP T="*** ALGS - SYSTEM LINK EDIT ERROR ***" 6 .ENDIF% @******************** RUN SYNONYM ASSIGNMENT PROG ********  @2XPS  LINK = DS01.S$SYSGEN.SKI1.LINKMAP,  2" INPUT = DS01.PATCH.MEMRES, ", OUTPUT = DS01.S$SYSGEN.SKI1.PATCHFIL, , ERROR= DS 01.S$SYSGEN.SKI1.ERROR  .SYN $$CC ="@$XPS$E"  .IF @$$CC,GT,00000 & .SHOW DS01.S$SYSGEN.SKI1.ERROR & .ENDIF%  .IF @$$CC,GE,08000 H! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***"  H> .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***"  > .ENDIF%  .IF @$$CC,GT,00000 L# CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC ***" LB .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***"  B .ENDIF%  CM R=ME,M="*** ALGS - NORM AL TERMINATION ***"  2.STOP T="*** ALGS - NORMAL TERMINATION ***"  2& .SHOW DS01.S$SYSGEN.SKI1.ERROR & .ENDIF%  .IF @$$CC,GE,08000 H! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***"  H> .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***"  > .ENDIF%  .IF @$$CC,GT,00000 L# CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC ***" LB .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***"  B .ENDIF%  CM R=ME,M="*** ALGS - NORMSTOP 0 NORMAL PROGRAM COMPLETION ` nn `CF!FGFGFFGF` `˂$ L` !ȁȣ!$ 33A.&&n!aB!a ` &$ L˂" L ` ˢ" L $ @˂ ‹   ˌ$ L" L Q `$  "Į˂ CC`!C S  ⠮\ ``B ! `(a     n ˃˄ "`&,aCCc˓. ``**  ˂ R#045AED$DATA A0000C0000C004CB0500B0000B0000C00D4B0000B0000B00007F29EF D$DA0001RR(B0000B0000B0000B534BB4931B2020A0020B0000B0000B0000B0000B0000C0C3E7F24FF D$DA0002RR(C0C3EB3228B0000B0000A0040B0000B0000B0000B0000BFFFFB0000B0000B00007F219F D$DA0003RR(B0000B0000B0000B0000B0000B0006B0000B0000B0000B0006B0000B0000B00007F2A3F D$DA0004RR(A006AA008AA00AAB0000B0000B003CB0001B0000A00B4B0000B0000B0000B00007F234F D$DA0005RR(B0000B0000B0000B0000B0001B001EB0000B0000B0000BC000BFF00C0118B00007F24EF D$DA0006RR(B0001B0000B0000B0000B0000B0000B0000B0000B0002B0000B0000B0000B00007F2ACF D$DA0007RR(B0000B0000B0000B0002B0000B0000B0000B0000B0000B0000B0000B0002B00007F2ABF D$DA0008RR(B0000B0000B0000B0000B0000B0000B0003C0108B0000B0000B0000B0000B00007F2A2F D$DA0009RR(B0000B0003C0108B0000B0000B0000B0000B0000B0000B0003C0108B0000B00007F295F D$DA0010RTR(B0000B0000B0000B0000B0003C0108B0000B0000B0000B0000B0000B0000B00037F29FF D$DA0011RR(C0108B0000B0000B0000B0000B0000B0000C0168C0178C02E4B0000B0000B00007F268F D$DA0012RR(C0178B0000BFF00B0000B0000B0000B0000B0024BF000C01DEB0000C01AAC02E47F1EBF D$DA0013RR(B0000B0000B464DB3031B0000B0000B0000B0000B0000B0000B0000B0000B00007F286F D$DA0014RR(B0000B0000C00D8B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F292F D$DA0015RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B8000C0BFAB00007F26DF D$DA0016RR(C016EB0000C01E4B0000B0000A01E4A01F8C0204A01FAA0204A02E0B454FB53007F1CCF D$DA0017RR(A02E4B0000B0000B0000B0000B0024BF000C034AB0000C0316C0450B0000B00007F24BF D$DA0018RR(B464DB3032B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F285F D$DA0019RR(C00D8B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F292F D$DA0020RTR(B0000B0000B0000B0000B0000B0000B0000B0000B8000C0BFAB0000C016EB00007F250F D$DA0021RR(C0350C01E0C01E2A0350A0364C0370A0366A0370A044CB454FB5300A0450B00007F1F4F D$DA0022RR(B0000B0000B0000B0024BF000B0000B0000C0482B0000B0000B0000B5442B49447F260F D$DA0023RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000C00E8B00007F291F D$DA0024RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0025RR(B0000B0000B0000B0000B0000B0000B8000C0BFAB0000B0000B0000C0510C05C27F24BF D$DA0026RR(B0000C04C8B0000B0000B0000B0000B0000C057AC0148B0000B0000B000FB09057F23FF D$DA0027RR(C0510B0000B0000B0000B0000B0000B0000B0000B0100B0000B0000B0000C04CC7F27CF D$DA0028RR(B0000B0000B5354B3031B0000B0000B0000B0056C04D8B0000B0000B0000B00007F26BF D$DA0029RR(BFF00B0000B0000B0000C0530B0000C0550C0550C056EB0000B4001B0000B00007F23EF D$DA0030RTR(B0000B0000B0000B0110B0000B0000B0000C04C8B0000B8480C0BFAB0000B00007F23FF D$DA0031RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000A0550A056EB001E7F271F D$DA0032RR(B0000B0000B0000B0000B0000C062CC0148B0000B0000B000FB0905C05C2B00007F246F D$DA0033RR(C04FEB0000B0000B0000B0000B0000B0120B0000B0000B0000C057EC04EEB00007F22BF D$DA0034RR(B5354B3032B0000B0000B0000B0056C058AB0000B0000B0000B0000BFF00B00007F240F D$DA0035RR(B0000B0000C05E2B0000C0602C0602C0620B0000B4002B0000B0000B0000B00007F271F D$DA0036RR(B0000B0130B0000B0000B0000C057AB0000B8480C0BFAB0000B0000B0000B00007F23FF D$DA0037RR(B0000B0000B0000B0000B0000B0000B0000B0000A0602A0620B001EB0000B00007F28BF D$DA0038RR(B0000B0000B0000C0734C0138B0000B0000B000DBA102C0674B0000B0000B00007F259F D$DA0039RR(B0000B0000B0000B0000B0060B0000B0000B0000C0630B0000B0000B4C50B30317F27CF D$DA0040RTR(B0000B0000B0000B0200B0000B0000B0000B0000B0000BFF00B1770B1770B00007F263F D$DA0041RR(B0002B0000C0680C0680B00AAB0000A0680A072AB0000B0000B0000B0000B00007F247F D$DA0042RR(C083CC0138B0000B0000B000EBA102C077CB0000C063CB0000B0000B0000B00007F21BF D$DA0043RR(B0000B0020B0000B0000B0000C0738C0652B0000B4C50B3032B0000B0000B00007F268F D$DA0044RR(B0200C0662B0000B0000B0000B0000BFF00B1770B1770B0000B0002B0000C07887F23AF D$DA0045RR(C0788B00AAB0000A0788A0832B0000B0000B0000B0000B0000C08EEC0128B00007F214F D$DA0046RR(B0000B000CB5106C0884C0BCEB0000B0000B0000B0000B0000B0000BF800B00007F222F D$DA0047RR(B0000B0000C0840B0000B0000B4453B3032C08D4B0000B0000B0000B0000B00007F269F D$DA0048RR(B0000B0000B0000BFF00B0000B0000B0000B0000B00D2B0000B0000B0000B00007F26DF D$DA0049RR(B0000B0000B0000B0000B0000B0000B0000BFFFFB0000B0000B0000B0000B00007F257F D$DA0050RTR(B0400B1000A08AEA08B4B0000B2020B2020B2020B2020B0000B0000B0000B00007F250F D$DA0051RR(B0000B0120B0000B2330B3030B3030B3030A08D4A08E4B0000B0000B0000B00007F253F D$DA0052RR(B0000C09A0C0128B0000B0000B000CB5106C0936C0BCEB0000C084EB0000B00007F1F9F D$DA0053RR(B0000B0000BF800B0000B0000B0000C08F2C0862B0000B4453B3033C0986B00007F22EF D$DA0054RR(B0000B0000C0872B0000B0000B0000B0000BFF00B0000B0000B0000B0000B00D37F25AF D$DA0055RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000BFFFFB00007F257F D$DA0056RR(B0000B0000B0000B0000B0200B1000A0960A0966B0000B2020B2020B2020B20207F27AF D$DA0057RR(B0000B0000B0000B0000B0000B0120B0000B2330B3030B3030B3030A0986A09967F265F D$DA0058RR(B0000B0000B0000B0000B0000C0A52C0128B0000B0000B000CB5106C09E8C0BCE7F209F D$DA0059RR(B0000C0900B0000B0000B0000B0000BF800B0000B0000B0000C09A4C0914B00007F259F D$DA0060RTR(B4453B3034C0A38B0000B0000B0000C0924B0000B0000B0000B0000BFF00B00007F23CF D$DA0061RR(B0000B0000B0000B00D4B0000B0000B0000B0000B0000B0000B0000B0000B00007F297F D$DA0062RR(B0000B0000BFFFFB0000B0000B0000B0000B0000B0100B1000A0A12A0A18B00007F229F D$DA0063RR(B2020B2020B2020B2020B0000B0000B0000B0000B0000B0120B0000B2330B30307F28EF D$DA0064RR(B3030B3030A0A38A0A48B0000B0000B0000B0000B0000C0B1EC0158B0000B00007F234F D$DA0065RR(B0008BC108C0A9AC0AFCB0000B0000B0000B0000B0000B0000BF880B0000B00007F1FEF D$DA0066RR(B0000C0A56B0000B0000B4D54B3031C0AE4B0000B0000B0000B0000B0000B00007F23FF D$DA0067RR(B0000B0000BFF00B0000B0000B0000B0000B00E1B0000B0000B0000B0000B00007F26DF D$DA0068RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B80007F2A7F D$DA0069RR(B1000A0AC4A0ACAB0000B2020B2020B2020B2020B0000B0000B0000B0000B00007F243F D$DA0070RTR(BFFFFBFFFFB0000A0AE4A0AF4C0A56B0000B0000B0000B0000B0000B0000B00007F18FF D$DA0071RR(B0000B0000B0000B0000BF880B0000B0000B0000B0000B0000B0000B0000B00007F289F D$DA0072RR(B0000C0128B0000B0000B000CB5106C0B66C0BCEB0000C09B2B0000B0000B00007F20CF D$DA0073RR(B0000BF800B0000B0000B0000C0B22C09C6B0000B4453B3031C0BB6B0000B00007F215F D$DA0074RR(B0000C09D6B0000B0000B0000B0000BFF00B0000B0000B0000B0000B0009B00007F256F D$DA0075RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000BFFFFB0000B00007F257F D$DA0076RR(B0000B0000B0000B0800B1000A0B90A0B96B0000B2020B2020B2020B2020B00007F25CF D$DA0077RR(B0000B0000B0000B0000B0120B0000B2330B3030B3030B3030A0BB6A0BC6C0B227F228F D$DA0078RR(C0840C08F2C09A4B0000B0000B0000B0000B0000B0000B0000B0000BF800B00007F244F D$DA0079RR(B0000B0000B0180B0000B0600B0000B0000B0101B0000B0000B0000B0000C0B1E7F275F D$DA0080RTR(B0900B8880C0C04B0000C083CBD200B0880C0C0EB0000C08EEBD300B0880C0C187F191F D$DA0081RR(B0000C09A0BD400B0880C0C22B0000C04C8B0000B0880B0000B0000B0000B00007F224F D$DA0082RR(B0658B0000B0160B0000B0000B0000B0000B3228B0000A0C3EA3E66B0002B00087F22FF D$DA0083RR(B0000B0060B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2A9F D$DA0084RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0085RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B00007F2AFF D$DA0086RR(B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000B0000C3ED0C41F67F260F D$DA0087RR(BFFFFBFFFFA3ED6A41F6B0000BFFFFBFFFFA41FCA449CB0000B0000B0000B00007F0AEF D$DA0088RR(B0000B0000C4524C45A8C4524C45A8B0000B0000C4524C45A8C4524C45A8C45167F1D2F D$DA0089RR(C4590C4528C4590C453AC4590C4524C45A8C4524C45A8C454CC4590C455EC45907F173F D$DA0090RT@R(C4570C4590B0000B0000C44DCC44DEC44E0C44E2C44E4C44E6C44E8C44EAC44EC7F11FF D$DA0091RR(C44EEC44F0C44F2C44F4C44F6C44F8C44FAC44FCC44FEC4500C4502C4504C45067F103F D$DA0092RR(C4508C450AC450CC450EC4510C4512C4514B0000B4000B2000B1000B0800C45267F1FEF D$DA0093RR(C05C2B0000C0148B0000B0000B0000B0000B0000C4538C0AF4C0A88C0158B00007F214F D$DA0094RR(B0000B0000B0000B0000C454AC0510C4528C0148B0000B0000B0000B0000B00007F267F D$DA0095RR(C455CC0BC6B0000C0128B0000B0000B0000B0000B0000C456EC0630C076AC01387F1FAF D$DA0096RR(B0000B0000B0000B0000B0000C4580C0738C4570C0138B0000B0000B0000B00007F26CF D$DA0097RR(B0000BC2E0C00D2BC80AC00D2B032AB0417BC80BC00D2B032BB0460B0000B00007F1A4F D$DA0098R" B0420B0000B00207FCBBF D$DA0099"J40000ADIDLE40000ADSBUF40000ADSEXT40000ADSHAN40000ADSREN7F278F D$DA0100J6500C8AQPTRS40000ASREXT40000ASRHAN50058BASADJ3045CBID6DER7F202F D$DA0101J304B2BIDQUE50450BIDTSB500C4BM$CNT500C6BM$LMT60021BM$SIZ7F25AF D$DA0102JJ 60400BM$SZ 53E6CBPT 40000CASHAN344B2CLKPC 344B0CLKWSP7F2C4F D$DA0103JJ 50C3CCMEMSZ60007COM 40000COMDSR40000COMINT60004CR  7F317F D$DA0104JJ40000CRHAN 40000CRINT 40000CRREN 40000CRSPUR60005CRT 7F310F D$DA0105JJ305A0CRT91140000CRT91360003CS  60000CTRYVL500D2CURMAP7F306F D$DA0106JJ40000D$STRT40000DDTTSB3455EDINT 30B44DIODSR50B1EDIOPDT7F22FF D$DA0107JJ40000DM$QUE30B30DRTWP 60006DSC 40000DSCMGR5005ADSTUNT7F2A5F D$DA0108JJ30B54DTBSY 60000DUMMY 50000DXDB 50000DXSTRT50056ENDADD7F29EF D$DA0109JJ50054ENDDXL50052ENDLIM53E66ENDSTB5005EETSK 5008AFIDMAP7F239F D$DA0110JJ3034EFM$ABD3034CFM$PC 50178FMPTSB5016EFMQSER50166FMTTSB7F243F D$DA0111J440000FPYDCD40000FPYDSR40000FPYINT40000FPYSPR40000G4OREN 7F21AF D$DA0112J40000HAN82040000IDL820344A6IIE 344A4IIWSP 34516ILLSVC7F328F D$DA0113JJ40000INT82050C38IOSHBC50C34IOSMAX50C36IOSSTA30060ITSB 7F256F D$DA0114JJ50C3AITSKCR600C8ITSKMX40000KBI7333454CKBI91140000KBI9137F29AF D$DA0115JJ40000KBIADS40000KBIDLE50510KBST01505C2KBST02504B4KBTAB 7F2C0F D$DA0116JH 50BFALDTLST60002LP3075ALPHAN 34582LPINT 30744LPSPUR7F278F D$DA0117HJ500F8MAPCMN500D8MAPFK 500D4MAPLST500E8MAPMR 50118MAPSHD7F211F D$DA0118JJ50004MAXIO 60004MAXST260002MAXSTA5004EMEMSIZ50050MEMSW 7F22DF D$DA0119JJ50128MPDS0150128MPDS0250128MPDS0350128MPDS0450138MPLP017F2D4F D$DA0120JJ50138MPLP0250158MPMT0150148MPST0150148MPST0260008MT  7F31DF D$DA0121JJ30A78MTHAN 3453AMTINT 50068NUMDEC53ECEOADPTR500C0OF$FCB7F218F D$DA0122J4500C2OF$LDT30006OVYTAB50630PDLP0150738PDLP02504BCP4DTLST7F233F D$DA0123J40000PDTSTK500B4PF$FCB500B6PF1LDT500B8PF2LDT500BAPF3LDT7F233F D$DA0124JJ40000PFRSIB3449CPRUPWP50BE6PSBLST50BECPSBSTR50B1EPSDS017F14BF D$DA0125JJ5083CPSDS02508EEPSDS03509A0PSDS045062CPSLP0150734PSLP027F255F D$DA0126JJ50A52PSMT01504C8PSST015057APSST02344A2PWRDN 3449EPWRUP 7F20AF D$DA0127JJ344A0PWRWSP40000RENTER500BCRF$FCB500BERF$LDT5006ARIDMAP7F1E0F D$DA0128JJ500B2RSTRID500ACRSTRSW5002CSABADD50028SAHEAD50030SAHIAD7F1EAF D$DA0129JJ5002ESATLEN53E66SCIBMX53E68SCIFMX345AASCRASH34518SCWSP 7F19BF D$DA0130JJ300D4SKI11 300E4SKI12 300F4SKI13 30104SKI14 30114SKI15 7F39DF D$DA0131JJ30124SKI16 30134SKI17 30144SKI1A 30154SKI1C 50062SLCNT 7F369F D$DA0132JJ50064SLCTIM60006SLICE 50C31SLNFLG50C2ESLNLID50C2CSLNLUN7F1C2F D$DA0133J250C32SLNMCA50C30SLNQUE60006STUNIT60018STUNT434512ASVCPRC7F188F D$DA0134J50C3ESYSTAB63228TABSIZ305B0TDI91140000TDI9135005CTDL 7F2B8F D$DA0135JJ30008THEEND50066TM$DFR500B0TM$SLC500AETM$TSV500AATMESLC7F20AF D$DA0136JJ50040TMTOL 50044TMTOLN50046TMTOLO5004ATOLBET345A4TRAPRT7F1A5F D$DA0137JJ30A64TRTWP 50060TSKLST50462TSKSTR60001TTY  50024UABADD7F23AF D$DA0138JJ5004CUAHADD50020UAHEAD50026UATLEN60078UPS  500D2USVCLN7F26EF D$DA0139JJ6FFFFUSVCMX500D2USVCTB50BC6WPDS0150AF4WPMT015449CXY  7F1E1F D$DA0140JD:  D$DATA  07/27/89 17:26:19  SDSMAC 3.3.0 79.312D$DA0141DJ300D4SKI11 300E4SKI12 300F4SKI13 30104SKI14 30114SKI15 7F39DF D$DA0131JJ30124SKI16 30134SKI17 30144SKI1A 30154SKI1C 50062SLCNT 7F369F D$DA0132JJ50064SLCTIM60006SLICE 50C31SLNFLG50C2ESLNLID50C2CSLNLUN7F1C2F D$DA0133J250C32SLNMCA50C30SLNQUE60006STUNIT60018STUNT434512 ERROR = PP* THE FILE SPECIFIED FOR OUTPUT CAN BE RUN AS A BATCH STREAM PP* TO PATCH THE SYSTEM. P$* $, ,P* B) IF THE LINK MAP IS NO LONGER AVAILABLE ON DISK FILE, THIS FILE PP* WILL HAVE TO BE TRANSLATED MANUALLY. COPY THIS FILE TO PP* ANOTHER FILE AND EDIT THAT FILE DOING THE FOLLOWING. PP* PP* 1. FOR EACH #SYN COMMAND FOUND IN THE FILE, TWO OR MORE PP* SYNONYMS MUST BE DEFINED. EACH #SYN COMMAND IS IN THE PP* FORMAT: $/14/7914:54:08 NBSN SEQ YES$8DSR5MT * 17 11/14/7914:54:18 NBSN SEQ YES88DSR733 * 64 11/14/7914:54:33 NBSN SEQ YES88DSR820 * 42 11/14/7914:54:46 NBSN SEQ YES88DSR911 * 55 11/14/7914:55:01 NBSN SEQ YES8:DSR911PF * 72 11/14/7914:55:17 NBSN SEQ YES:8DSR913 * 51 11/14/7914:55:30 NBSN SEQ YES88DSR979 * 27 11/14/7914:55:42 NBSN SEQ YES88DSRKSR * 39 11/14/7914:55:56 NBSN SEQ YES86DUMCOM *4 11/14/7914:56:05 NBSN SEQ YES66DUMKIF *4 11/14/7914:56:14 NBSN SEQ YES66DUMMY  *4 11/14/7914:56:22 NBSN SEQ YES68FILMG  *109 11/14/7914:58:17 NBSN SEQ YES88FPYDSR * 30 11/14/7914:56:34 NBSN SEQ YES8*GENDAT * 1648 11/20/7916:20:48* NBSN REL YES8IOCOM  * 70 11/14/7914:58:37 NBSN SEQ YES86KIF  *119 11/14/7914:56:53 NBSN SEQ YES66KIF3 *130 11/14/7914:57:14 NBSN SEQ YES68LPDSR  * 19 11/14/7914:57:26 NBSN SEQ YES88MEMRES *100 11/14/7914:59:06 NBSN SEQ YES86NOCOMM *4 11/14/7914:59:17 NBSN SEQ YES66NOFCCC *4 11/14/7914:59:26 NBSN SEQ YES66ROOT *279 11/14/7915:00:22 NBSN SEQ YES68SVCIO  *223 11/14/7915:01:25 NBSN SEQ YES86SYSLGN *5 11/14/7914:57:35 NBSN SEQ YES66SYSLGY *7 11/14/7914:57:43 NBSN SEQ YES68SYSLOG * 19 11/14/7915:01:42 NBSN SEQ YES8"14:41:44 TUESDAY, JAN 23, 1990. " 30 11/14/7914:56:34 NBSN SEQ YES8*GENDAT * 1648 11/20/7916:20:48*,URCEE S 8 3  3 7/25/8910:46:55,.SOURCEF S 9 3  3 7/25/8910:46:59.,TI2IBM S 203  3 7/25/8910:47:17,, **.VCATALOG.EBCASC TOTAL SIZE = 252 ADUS,$ 1PATCH: FILES=5AVAILABLE=8 $0COB320 S 805 99 99 11/11/8015:42: 902DXTP3780 S 328 51 51 11/11/8015:54:5622MEMRES S 2300291  29111/11/8015:36:2722PROGA S 1419183  18311/11/8015:37:242.SORT S 128 18 18 11/11/8015:43: 5., **.VCATALOG.PATCH  TOTAL SIZE = 656 ADUS,( 1S$PRINT: FILES=0AVAILABLE=101 (. **.VCATALOG.S$PRINT  TOTAL SIZE = 102 ADUS.* 1S$PROC:  FILES=244AVAILABLE=213 *(AA S 7 1  111/20/7916:25:48((AB S 7 1  111/20/7916:30: 8(*ABP S 7 1  111/20/7916:30:13*&AF S 9 1  111/20/7916:25:&50*AGL S 132  211/20/7916:25:53*(AL S 132  211/20/7916:25:56(*ALGS S 162  211/20/7916:35:14*(AS S 5 1  111/20/7916:25:58(*ASB S 132  211/20/7916:30:11*(AT S 6 1  111/20/7916:26: 1(*AUI S 132  211/20/7916:34:32*,BATCH S 223  311/20/7916:26: 4,(BD S 152  211/20/7916:26: 7((BL S 6 1  111/20/7916:26: 9((CC S 102  211/20/7916:26:12((CD S 152  211/20/7916:26:15((CF S 8 1  111/20/7916:26:18(*CF$1 S 343  311/20/7916:26:22*,CFDIR S 7 1  111/20/7916:26:24,,CFIMG S 6 1  111/20/7916:30:16,,CFK$1 S 585  511/20/7916:26:33,,CFKEY S 375  511/20/7916:26:28,CFPRO S 142  211@ ' OUTPUT FORMAT = IMAGE  ' '> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE 3> &  'P PROCEDURE 1, DUMMYORIGIN = 0000 LENGTH = 00A0, DUMMY  (PROCEDURE ID = 1)P ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DUMMY 1 000000A0 INCLUDE 11/14/79 14:56:17SDSLNKD '> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE 4> &  'B PHASE 0, SKI1 ORIGIN = 00A0 LENGTH = 99F2 (TASK ID = 3)B ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D D$DATA2 00A045AE INCLUDE 07/27/89 17:26:19SDSMACDD SYSLGY3 464E0052 INCLUDE 11/14/79 14:57:38SDSLNKD( ROOT4 46A02942 INCLUDE 11/(14/79 14:59:29SDSLNK ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L *ABPRB2 4E3E 4 ABTLDT 4D4E 4 ABTPDT 4DBE 4*AQLEN 4948 4LL AQPTRS 0168 2*AQXT0 4D40 4 AQXT1 4D42 4 ASPQUE 4A38 4LL BASADJ 00F8 2 BIDQUE 49F2 4 BIDTSB 04F0 2 BIDTSK 4956 4LL *BLANK 4908 4 BM$CNT 0164 2 BM$DEL 521A 4*BM$FLS 502C 4LL BM$IOR 51E6 4 BM$IOW 51DA 4 BM$LMT 0166 2 BM$LNK 5212 4LL BM$MAP 5230 4 BM$MP2 52BE 4 BM$MPB 5222 4 BM$MPK 52BE 4LL BM$SCH 50CC 4 BM$SIZ 0021* 2*BM$SZ 0400* 2 BM$TRM 5164 4LJ BM$UPD 5070 4 BPT 3F0C 2 BUFCHK 52E4 4 BYTE01 48FE 4J BYTFE02 4900 4 BYTE03 48ED 4 BYTE04 4902 4 BYTE05 491A 4FL BYTE06 491B 4 BYTE07 491C 4 BYTE08 4904 4 BYTE09 491D 4LL *BYTE0A 491E 4*BYTE0B 491F 4*BYTE0C 4920 4 BYTE0D 4921 4LL *BYTE0E 4922 4*BYTE0F 4913 4 BYTE10 4906 4 BYTE12 4923 4LL *BYTE13 4924 4 BYTE14 4925 4 BYTE15 4926 4*BYTE17 4927 4LL BYTE19 4928 4 BYTE1D 4929 4 BYTE20 4908 4 BYTE24 492A 4LL *BYTE30 490A 4 BYTE40 490E 4*BYTE41 492B 4*BYTE42 492C 4LL *BYTE44 492D 4*BYTE45 492E 4*BYTE46 492F 4*BYTE47 4930 4LL *BYTE49 4931 4*BYTE4F 4932 4*BYTE50 4933 4*BYTE52 4934 4LL BYTE60 4935 4 BYTE80 4910 4*BYTEB3 4936 4*BYTEB4 4937 4L@ *BYTEB5 4938 4*BYTEB7 4939 4*BYTEB8 493A 4*BYTEB@D 493B 4L *BYTEE0 493C 4*BYTEFE 493D 4 BYTEFF 4915 4 CLEANQ 497A 4LJ CMDFLG 4946 4 CMEMSZ 0CDC 2*COM 0007* 2 COMMQ 4A4C 4JF CP$IDL 4944 4*CR  0004* 2 CRT 0005* 2*CS  0003* 2FJ *CTRYCD 6004 4 CTRYVL 0000* 2 CURMAP 0172 2*DAY 4D22 4JL DDTTSB 4B88 4 DELQUE 49FC 4 DEVLDT 4D4A 4 DGNQUE 498E 4LJ DIOPDT 0BBE 2 DM$QUE 49B6 4*DMGTSB 4BEE 4 DSC 0006* 2JL *DSTUNT 00FA 2*DUMMY 0000* 2*DXDB  00A0 2*DXSTRT 00A0 2LL ENDACT 6EB8 4 ENDADD 00F6 2 ENDDXL 00F4 2 ENDLIM 00F2 2LL ENDSTB 3F06 2 ETSK  00FE 2*F$FLG 5E9E 4 FIDMAP 012A 2LL FLG12 5F7C 4 FLGWCS 5F7E 4 FM$EXT 532C 4 FM$IO 535A 4L4 FM$RDM 5480 4*FM$WTM 5478 4 FMPTSB 02148 2 FMQSER 020E 2L FMT000 493E 4 FMTINF 4940 4 FMTTSB 0206 2*FNDSTK 6C5C 4LJ FSTXFR 64F6 4 FUTQUE 4966 4*HOUR  4D24 4 IIE 6E66 4JL IIWSP 6F90 4 INSQ  4A24 4 INSQUE 4970 4 INVOL 4A42 4LL IOQUCB 64CE 4 IOSHBC 0CD8 2 IOSMAX 0CD4 2 IOSSTA 0CD6 2LL ITSB  4A56 4 ITSKCR 0CDA 2 ITSKMX 00C8* 2*KBST01 05B0 2LL *KBST02 0662 2 KBTAB 0554 2 KILLQ 4A1A 4 KILTSK 6E9A 4LL KTIO  4E94 4*KTSKPC 4FE8 4*KTSKWP 4FC8 4 LDTLST 0C9A 2LJ *LP  0002* 2 MAPCMN 0198 2 MAPFK 0178 2 MAPLST 0174 2JL MAPMR 0188 2 MAPOFF 500C 4 MAPON 5010 4 MAPQUE 4A06 4LL *MAPREC 55A8 4 MAPSHD 01B8 2 MAXIO 00A4 2 MAXST2 0004* 2L MAXSTA 0002* 2 MEMSIZ 0 .0EE 2 MEMSW 00F0 2*MINUTE 4D26 4.L MM$FND 5668 4*MM$GS0 5C2C 4 MM$GSA 5B6A 4*MM$GUA 5A54 4L> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE 5>R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO RL *MM$PAK 6008 4 MM$RL2 5D5E 4 MM$RLM 5C8A 4*MM$ROL 5D54 4LL MM$RSA 5BDA 4 MM$RUA 5AE4 4*MM$SCN 5DA8 4*MM$TSB 5C42 4LL *MMFNDB 494E 4*MMFNDQ 49CA 4 MMQQ  49DE 4 MMUMAX 4950 4LL *MMWQQ 49D4 4*MPDS01 01C8 2*MPDS02 01C8 2*MPDS03 01C8 2LL *MPDS04 01C8 2*MPLP01 01D8 2*MPLP02 01D8 2*MPMT01 01F8 2LJ *MPST01 01E8 2*MPST02 01E8 2 MSGQUE 4A2E 4*MT  0008* 2JL NUMDEC 0108 2 OADPTR 3F6E 2 OF$FCB 0160 2 OF$LDT 0162 2L OVYEND 600A < 4 OVYQUE 49AC 4 OVYTAB 5E88 4*OVYTSB 4ABC 4<L *PDLP01 06D0 2*PDLP02 07D8 2 PDTLST 055C 2 PDTSAV 494A 4LL PF$FCB 0154 2 PF1LDT 0156 2 PF2LDT 0158 2 PF3LDT 015A 2LL POP0  607A 4 POP1  6060 4 POP2  6058 4 POP3  6050 4LL POP4  6048 4 POP5  6040 4 POP6  6038 4 POP7  6030 4LL *POP8  6028 4*POP9  6020 4 PRUPWP 6E2E 4 PSBLST 0C86 2LL PSBSTR 0C8C 2*PSDS01 0BBE 2*PSDS02 08DC 2*PSDS03 098E 2LL *PSDS04 0A40 2*PSLP01 06CC 2*PSLP02 07D4 2*PSMT01 0AF2 2LL *PSST01 0568 2*PSST02 061A 2 PUSH1 601A 4 PUSH2 6018 4LL PUSH3 6016 4 PUSH4 6014 4 PUSH5 6012 4 PUSH6 6010 4LJ PUSH7 600E 4*PUSH8 600C 4*PUSH9 600A 4 PWRDN 6D74 4JL PWRUP 6D76 4 PWRWSP 6E28 4*QHEAD 4966 4*READS 6748 4LL RETRID 63A4 4 RF$FCB 015C 2 RF$LDT 015E 2 RIDMAP 010A 2LL *RSET12 6EEA 4 RSTRID 0152 2 RSTRSW 014C 2 RWTQUE 49C0 4LL *RWTTSB 4B22 4*S$$LEN 0100* 4*S$$PAT 46A0 4*SABADD 00CC 2LL SAHEAD 00C8 2 SAHIAD 00D0 2 SATLEN 00CE 2 SBDQUE 49E8 4LL SCHDWS 6D28 4 SCHRET 647E 4 SCIBMX 3F06 2 SCIFMX 3F08 2LL *SCR$DA 60A4 4*SCR$HD 60D3 4*SCR$PC 60F4 4*SCR$SC 60D5 4LL *SCR$SL 60DC 4*SCR$TK 60D6 4*SCR$WS 6090 4 SCRASH 60F0 4LL SCWSP 6D28 4 SECOND 4D28 4 SHDSTK 6B90 4 SLCNT 0102 2LL SLCTIM 0104 2*SLICE 0006* 2 SLMQUE 4A10 4 SLNFLG 0CD1 2L4 *SLNLID 0CCE 2 SLNLUN 0CCC 2 SLNMCA 0CD42 2 SLNQUE 0CD0 2L SLPBQC 464E 3 SLQCNT 4A19 4*SO$BTO 6768 4 SO$LTO 675A 4LL *SO$RFO 67EA 4*SOVTSB 4CBA 4 SOVYQ 49A2 4 STUNIT 0006* 2LL STUNT4 0018* 2 SUSPQI 6202 4 SVCFND 6B7C 4*SVCTSB 4C54 4LL *SYSPF 4958 4*SYSPFN 495E 4 SYSTAB 0CDE 2 TABSIZ 3228* 2LJ TDL 00FC 2 TDUDWS 4D20 4 THEEND 6FE2 4*TICKS 4942 4JJ TLDTSB 4A56 4 TLDWS 6D48 4*TLQ 4984 4*TM$BLK 4954 4JL TM$CLR 5FFE 4 TM$DEC 5FFA 4 TM$DFR 0106 2 TM$DOR 682C 4LL TM$EXT 5F0A 4 TM$INC 5FF6 4 TM$OPN 6872 4 TM$QRM 6A0C 4LL *TM$RDR 6AA4 4 TM$SLC 0150 2 TM$T0 4942 4 TM$TSV 014E 2LL TMAQ0 68E6 4 TMAQUE 689E 4 TMBID0 6228 4 TMDLST 6FCA 4L TMDQUE 69DC 4 TMESLC 0 .14A 2 TMLLST 6FB2 4 TMMLIP 494C 4.L TMQUE 6914 4 TMRDAL 6A3C 4 TMRDDL 6AAC 4 TMSUSP 61F6 4LL TMTOL 00E0 2 TMTOLN 00E4 2*TMTOLO 00E6 2 TMTREE 63FA 4LL TMTSBF 4952 4*TMTSBQ 6914 4 TMTSCH 63C8 4 TMWOM 4998 4LL TMWOMO 499A 4*TMXCLR 64BC 4*TMXDEC 64B0 4*TMXINC 64A6 4LL *TMXWS 6434 4 TOLBET 00EA 2*TOLDEL 6AFE 4 TOLLNK 6AD0 4LL TOLTDL 6B2A 4*TOLTSG 6B48 4 TRACE 6D68 4 TRAPRT 6454 4LJ TSKLST 0100 2 TSKRLD 5E86 4 TSKSTR 0502 2 TTY 0001* 2JL UABADD 00C4 2 UAHADD 00EC 2 UAHEAD 00C0 2 UATLEN 00C6 2LJ UPDFDR 548E 4 UPS 0078* 2 USVCLN 0172 2 USVCMX FFFF* 2JL USVCTB 0172 2 WD0000 48E6 4 WD0001 48E8 4 WD0002 48EA 4L  WD0003 B 48EC 4 WD0004 48EE 4 WD0008 48F0 4 WD000F 4912 4BL WD0010 48F2 4 WD0020 48F4 4*WD0030 48F6 4 WD0040 48F8 4LL *WD0064 48FA 4 WD0080 48FC 4*WD00FF 4914 4 WD0100 48FE 4LL WD0200 4900 4 WD0400 4902 4 WD0800 4904 4 WD1000 4906 4LL WD2000 4908 4*WD2020 4916 4 WD3000 490A 4*WD3800 490C 4LL WD4000 490E 4 WD8000 4910 4 WDFFFF 4918 4*WPDS01 0C66 2LL *WPMT01 0B94 2*WRITES 6744 4 XOPRT1 6454 4 XOPRT2 648A 4L8 XOPRT3 648A 4 XY  453C 2 YEAR  4D20 4 8> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE 6> &  'F PHASE 1, SKI11ORIGIN = 7000 LENGTH = 0FB0 (OVERLAY ID = 19)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D FILMG 5 70000FA6 INCLUDE 11/14/79 14:58:00SDSLNKDD DUMKIF6 7FA6000A INCLUDE 11/14/79 14:56:08SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L *BM$CLO 7CC8 5*BM$NEW 7D00 5 BM$RD 7CF6 5*BM$RDU 7F18 5LL BM$REL 7E20 5*BM$RMD 7E1A 5*BM$W  7F4C 5*BM$WRN 7F36 5LJ *BS  7BFE 5 CKLOCK 7856 5 CKWRIT 780C 5 FM$ABD 71FC 5JL FM$PC 7008 5*FMACES 75B6 5 FMCLOS 72DC 5 FMOPEN 726A 5LL FMREAD 733A 5 FMWRIT 7442 5 KI$BEG 7FA6 6*OFFLCK 7896 5L8 *ONLOCK 78AA 5*UBS 7C6E 5 WRTSEQ 79D2 5 8> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE 7>R B@ &  'F PHASE 1, SKI12ORIGIN = 7000 LENGTH = 117E (OVERLAY ID = 20)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D MEMRES7 7000117E INCLUDE 11/14/79 14:58:41SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L *BDOVYQ 7348 7 BIDDER 720E 7*BIDSTK 7FA2 7*DM$PC 707E 7LL *DM$WP 7006 7 DSCMGR 7000 7 OVYLDR 7988 7*OVYSTK 80B2 7LL *RDDIR 769E 7 RWTRTN 7B58 7*RWTSTK 806E 7 SOVLDR 7114 7LL TLDLOD 76D0 7*TLDPC 76D6 7 TLDSTK 7ED6 7*TM$LDR 76D6 7LL *TMALPR 7CA0 7*TMIMAG 7CE6 7*TMLDPR 7D4C 7*TMLDTK 7DB0 7L  SDSLN 6K  3.3.079.200 07/27/89 17:28:47 PAGE 86 &  'F PHASE 1, SKI13ORIGIN = 7000 LENGTH = 0020 (OVERLAY ID = 21)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DUMCOM8 70000020 INCLUDE 11/14/79 14:56:00SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '( *COMMON 7000 8*COMSIZ 0020* 8(> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE 9> &  'F PHASE 1, SKI14ORIGIN = 7000 LENGTH = 0900 (OVERLAY ID = 22)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B '. IOCOM 9 700008EA INCLUDE 11/14/7.9 14:58:21SDSLNKD NOCOMM1078EA0004 INCLUDE 11/14/79 14:59:11SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L *ASCCHK 7482 9*ASCCK2 7486 9*BRCALL 7174 9*BRCALT 7176 9LL BZYCHK 7004 9 CLKPC 76CA 9 CLKSW 77D8 9 CLKWSP 77CA 9LP CMODE 73F8 9 COMEND 78EA 10  COMMWT 78EA 10  COMTHR 78EA 10 PN COMUCB 78EA 10 *COMWIO 7820 9*CP$SSW 77EA 9 DBGN10 7600 9NL DDTBGN 75EC 9 DDTFLG 75E2 9*DDTRTN 769A 9 DDTWP 75BE 9LL *DIAL2 74DA 9*DIALUP 7496 9*DSAVWP 75DE 9*ENDR0 704E 9LL ENDRCD 702C 9 ENDRSM 703A 9 GETC  72C2 9 GTADDR 70C8 9L  *JMCALL B 7186 9 JMCALT 7188 9 JMSTAT 71A2 9 KEYFUN 733A 9BJ *MAPCHK 7158 9 PUTCBF 72AC 9*PUTEBF 72A8 9 SCB 75E4 9JL SCNPDT 71EC 9 SETWPS 7022 9 TILERR 745C 9 TMOUT 74FE 9L: WAITIO 77F0 9 WANYIO 78D2 9 XFERM 712E 9 :> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE10> &  'F PHASE 2, SKI15ORIGIN = 7900 LENGTH = 2192 (OVERLAY ID = 23)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D SVCIO 1179001F2E INCLUDE 11/14/79 15:00:31SDSLNKDD NOFCCC12982E0000 INCLUDE 11/14/79 14:59:20SDSLNKDD SYSLOG13982E0264 INCLUDE 11/14/79 15:01:33SDSLNKD ' ' ' '  D E F I N I T I O N S ' NNAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO N 'R ABEXIT 7FE2 11  *ABTIOX 7FBE 11  *ACTTSK 7BCE 11  *ASGLUN 0101* 11 RR *ATDLYT 7B4E 11  *BF$COM 8218 11  *BYTE28 8775 11  *BYTE88 8774 11 RR *CBDA  7ED0 11 *CBHA  7F8E 11  *CCHRIN 8690 11 *CDAB  7E64 11 RR *CHAB  7F54 11  *CHGPRI 7B6E 11  *CHRINP 86CE 11  *CLSKSB 8D52 11 RR *COMMQ2 7AC6 11  CP$II 94B0 11  *DD$COM 808E 11  *DD$E01 80C8 11 RP DDSTAK 8004 11  DDT 7FFA 11 *DEV0  83B2 11  *DEV0RD 83EA 11 PR *DEV1  83BC 11  *DEVEND 8463 11 *DTTIM 849E 11  *ENDPGM 7C98 11 RR ENDTSK 7C98 11  *EXCTSK 7D20 11  FNDLDT 8484 11  FNDUCB 8464 11 RP *FUTKIF 8364 11  *FUTPSM 0027* 11  *FUTPSO 838A 11 *FUTSDT 8350 1P1 R *GETCOM 84DA 11  *GETDAT 8588 11  *GETPRM 7C20 11  *GTEVNT 85DE 11 RR *GTEVTL 85F4 11  *GTOVYT 7C8C 11 *HOTSK 7C02 11 *ILLOP 0202* 11 RP ILLSVC 934A 11 *IOS 8780 11 *IOS1  0808* 11 *IOS4  0B0B* 11 PR *IOS5  0C0C* 11  *IOSCOM 880C 11 *IVBUF 8F2C 11  *IVDEF1 7AB2 11 RR *IVDEF2 7ABC 11 *KIFDT 8424 11 *KIFSM 0026* 11 *KIFSO 83FC 11 RR *KISTRT 8462 11 *MAXOP 0013* 11  *MAXSVC 004D* 11  *MM$GTM 8DBC 11 RR *MM$RTM 8DBC 11  *MM$SVC 8DBC 11  *MMINTE 9352 11  NONDEV 0041* 11 RR *OPADJ 8461 11  *OPNLUN 0303* 11  *PRIVIL 7E46 11  *PUTDAT 8534 11 RR *RELFDT 842E 11  *RELFSM 001E* 11  *RELFSO 8442 11  *RETCOM 851E 11 RN *RSTEAC 7CDE 11  *RTVDAT 7D9C 11  SCHED 93AA 11 *SCTAB 7900 N 11 R *SDTIM 84BC 11  *SEQFDT 842E 11  *SEQFSM 001E* 11  *SEQFSO 8442 11 RR SLCSUS 9362 11  SLSVC 982E 13  *SVCBUF 8EF8 11  SVCCLN 9040 11 RR *SVCDEF 79EA 11  *SVCLEN 799C 11  SVCPRC 926C 11  *SVUBUF 8F44 11 RR SYSLQ 988C 13 *TDLY  7B1A 11  TM$DPR 9216 11  *TM$EAS 9252 11 RR *TM$SID 7C30 11 *TM$ST 7C50 11  *TSBWRT 8EB0 11  *UNCDWT 7BB6 11 R, *USEX  83C6 11 *USEXR 83D0 11 ,> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE11> &  'F PHASE 2, SKI16ORIGIN = 7900 LENGTH = 0498 (OVERLAY ID = 24)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DDIOSR1479000498 INCLUDE 11/14/79 14:57:46SDSLNKD ' ' ' '@  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'R DINT  7D16 14  DIODSR 7900 14  DRTWP 7BB4 14  DTBSY 7BE4 14 R> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE12> &  'F PHASE 2, SKI17ORIGIN = 7900 LENGTH = 026A (OVERLAY ID = 25)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D LPDSR 157900026A INCLUDE 11/14/79 14:57:18SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '@ LPHAN 7900 15  LPINT 7AD0 15  LPSPUR 7B10 15 @2 SDSLNK  3.3.079.200 07/27/89 17:28:47 2 PAGE13  &  'F PHASE 2, SKI1AORIGIN = 7900 LENGTH = 0898 (OVERLAY ID = 26)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'D DSR9111679000898 INCLUDE 11/14/79 14:54:50SDSLNKD ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '@ CRT911 7900 16  KBI911 80AC 16  TDI911 809E 16 @> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE14> &  'F PHASE 2, SKI1CORIGIN = 7900 LENGTH = 0372 (OVERLAY ID = 27)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B '@ DSR9791779000372 INCLUDE 11/14/79 14:55:34SDSL@NK ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '@ MTHAN 7900 17  MTINT 7BEA 17  TRTWP 7BCA 17 @ ' ' ' ' **** LINKING COMPLETED  F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R '@ CRT911 7900 16  KBI911 80AC 16  TDI911 809E 16 @> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE14> &  'F PHASE 2, SKI1CORIGIN = 7900 LENGTH = 0372 (OVERLAY ID = 27)F ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B '@ DSR9791779000372 INCLUDE 11/14/79 14:55:34SDSL@ PP V=>DEAD,D=>05A0,C=>05A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0010, P T@P V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0012, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0014, PP V=>DEAD,D=@DSR911PF+>0860,C=@DSR911PF+>0860 PPEC PP* PP.ENDIF P*$ > >P************************************************************************** PP* PP*=P0382 MU 12/05/79 STR #05431 3.3.0 DSR913 PP* PP* A BUG IN THE INPUT ROUTINE OF THE 913 DSR CAUSES PP* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE PP* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S913,DSR913 P$*#SYN SROOT,ROOT $, ,P*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR913" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B4, PP V=>06A0,D=>0460,C=>0460 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B6, PP V=@DSR913+>07DC,D=@S$$PAT+>0016,C=@S$$PAT+>0016 P6!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 6 PMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8, PP V=(>0B2B,>1811,>35C5), PP D=(>0B5B,>1811,>1001),C=>034B PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, PP V=>DEAD,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0018, PP V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC PHEC H PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001A, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>058A,>0460),C=>C322 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0022, PP V=>DEAD,D=@DSR913+>02B8,C=@DSR913+>02B8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023C, PP V=>1D0C,D=>0460,C=>0460 PPEC PMPI PFJ=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E, JP V=>0621,D=@S$$PAT+>0024,C=@S$$PAT+>0024 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0240, PP V=>0008,D=>060A,C=>060A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>890A,>0030,>1301,>1D0C),C=>8737 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PMPI PF=IMAGE,MT=TA,MN=@S8ROOT,ADR=@S$$PAT+>002C, 8P V=(>DEAD,>DEAD,>DEAD),D=(>0621,>0008,>0460),C=>0249 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0032, PP V=>DEAD,D=@DSR913+>0240,C=@DSR913+>0240 PPEC PP* PP.ENDIF 8),D=(>04E1,>0008,>06A0),C=>0249 8PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, PP V=>06A0,D=@DSR911PF+>064A,C=@DSR911PF+>064A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, PP V=@SYSLGY,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, PP V=@TM$INT+>01E8,D=@DSR911PF+>0490,C=@DSR911PF+>0490 P*EC *& &P.ENDIF PP.SYN TM$INT="" PP*$ ! NOTE: THIS PATCH MODIFIED BY PATCH 649 PP************************************************************* PP* PP*=P0507 RVL 04/23/80 STR #05754 3.3.2 DSR820 PP* PP* IF THE 820 IS PUT INTO THE LOCAL MODE AND BACK ONLINE PP* WHILE PROCESSING I/O, THE REQUEST TO SEND SIGNAL IS NEVER P<* RESET. IN ADDITION, IF THE 820 IS PROCESSING A READ < P* REQUEST AND THE SWITCH IS PLACED IN THE LOCAL POSITION, THE PP* TASK AND/OR SCI IS NEVER ABORTED. PP* PP* NOTE: PATCH 0460 MUST BE APPLIED PRIOR TO THIS PATCH. PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PP.EVAL TM$INT="@ROOT+>26D4" PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03D8, PN V=>1F0D,D=>0460,C=>0460 N PEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03DA, PP V=>160E,D=@TM$INT+>01F6,C=@TM$INT+>01F6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01F6, PP V=(>0000,>0000,>0000,>0000,>0000), PP D=(>1F0D,>1609,>1F0E,>1602,>0460),C=>0468 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0200, PP V=>0000,D=@DSR820+>03DC,C=@DSR820+>03DC P EC D DPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0202, PP V=(>0000,>0000,>0000), PP D=(>0262,>0400,>0206),C=>0464 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0208, PP V=>0000,D=@TM$INT+>01F6,C=@TM$INT+>01F6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020A, PP V=(>0000,>0000),D=(>0380,>0460),C=>07E0 PEC 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020E, PP V=>0000,D=@DSR820+>03F8,C=@DSR820+>03F8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F0, PP V=>0206,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F2, PP V=@DSR820+>04EE,D=@TM$INT+>01E8,C=@TM$INT+>01E8 PPEC P0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E8, 0 P V=0380,D=>0206,C=>0206 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EA, PP V=>4D45,D=@DSR820+>04EE,C=@DSR820+>04EE PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EC, PP V=(>4D20,>4E00,>0000,>0000,>0000), PP D=(>C024,>0030,>1101,>1D0A,>0380),C=>CF9F PPEC PB.SYN TM$INT="" B P.ENDIF PP*$ PP*********************************************************************** PP* PP*=P0557 KDK 04/25/80 STR #06196 3.3.2 DSRVDT(911,911PF,913) PP* PP* THE CURSOR POSITIONING ON THE VDTS FAIL TO ADVANCE WHEN THE PP* LAST CHARACTER OF A FIELD IS ENTERED. THEN, ALTHOUGH THE CURSOR PP* IS POSITIONED ON A CHARACTER, THE CHARACTER CANNOT BE MODIFIED PP* UNTIL A LEFT ARROW KEY IS STRUCK. BUT STRIKING THE LEFT ARROW P T@P* KEY IN THIS CONDITION DOES NOT CAUSE THE CURSOR TO CHANGE PP* POSITIONS. THIS PATCH CAUSES THE CURSOR TO ALWAYS MOVE TO THE PP* NEXT CHARACTER POSITION WHEN A CHARACTER IS ENTERED. IT ALSO PP* CORRECTS A PROBLEM IN READING THE LAST CHARACTER IN A FIELD PP* THAT DOES NOT REQUIRE A TERMINATING CHARACTER TO CAUSE RETURN PP* TO THE CALLING TASK. PP* PP*#SYN SROOT,ROOT PP*#SYN S911,DSR911 PP*#SYN S911PF,DSR911PF P*#SYN S913,DSR913 > >P*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF @DSR911 ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0348, PP V=(>060A,>32CA,>058A,>0B2B), PP D=(>32CA,>0B2B,>1818,>100A),C=>31F3 PPEC PP* P$.ENDIF $, ,P* PP.IF @DSR911PF ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BA, PP V=(>060A,>32CA,>0460,@S$$PAT+>0000), PP D=(>32CA,>0B2B,>182D,>1015),C=>31D9 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04E8, PP V=(>C80A,@DSR911PF+>0BA0,>32CA), P6 D=(>1000,>32CA,>1E0F),C=>3CC5 6 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, PP V=(>058A,>0620,@DSR911PF+>0BA0,>0460,@DSR911PF+>04C2), PP D=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),C=>DEAD PPEC PP* PP.ENDIF PP* PP* PH.IF @DSR913 ,NE, NONE H P* PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B0, PP V=(>060A,>1D0C,>0460,@S$$PAT+>0016), PP D=(>1003,>1002,>1001,>1000),C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8, PP V=(>0B5B,>1811),D=(>0B2B,>1006),C=>1B2D PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E, PP V=@S$$PAT+>0024,D=@S$$PAT+>002A,C=@S$$PAT+>002A PEC J JPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0654, !CURSOR OFF PP V=>1D1C,D=>1E1C,C=>1E1C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, PP V=(>06A0,@DSR913+>07DC,>C2E4,>002C), PP D=(>DEAD,>DEAD,>DEAD,>DEAD),C=>0000 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001E, PP V=(>058A,>0460,@DSR913+>02B8), P D=(>DEAD,>DEAD,>DEA8D),C=>DEAD 8PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, PP V=(>890A,>0030,>1301), PP D=(>DEAD,>DEAD,>DEAD),C=>DEAD PPEC PP* PP.ENDIF PP*$ PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, P* V=>2E31,D=>2E32,C=>2E32 *& &P!EC ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH PP************************************************************ PP* BEGIN RELEASE 3.3.3 PATCHES PP************************************************************* PP* PP*=P0563 RVL 05/16/80 STR #06315 3.3.3 TM$FUN PP* PP* THE 'DO NOT SUSPEND' TIME INTERVAL IS CALCULATED INCORRECTLY. PP* IF AN ERROR OCCURS PATCHING FOR 60HZ SYSTEM, PATCH FOR 50HZ. P<* < PMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0006,D=>00FA,C=>00FA PP.IF "@$$CC" , GT, 0 PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0005,D=>00FA,C=>00FA PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0576 RVL 06/09/80 STR #06482 3.3.3 DSR820 PN* N P* THE 820 DSR DOES NOT ALLOW THE TAB CHARACTER TO BE PASSED PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>02FA, PP V=(>0460,@DSR820+>01E8),D=(>13D2,>1000),C=>03D2 PPEC PP.ENDIF PP*$ P ************ D************************************************* DP* PP*=P0577 MU 06/11/80 STR #06406 3.3.3 DSR820 PP* PP* THE FIRST KATAKANA CHARACTER ENTERED FROM THE KEYBOARD PP* FAILS TO ECHO. PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PMPI PF=IMAGE,MT=OV,MN=@S820,AD2R=@DSR820+>0486, 2P V=>C024,D=>C2A4,C=>C2A4 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>048E, PP V=>2020,D=>22A0,C=>22A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049A, PP V=>0240,D=>024A,C=>024A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049E, P0 V=>C900,D=>C90A,C=>C90A 0 PEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04C8, PP V=>C024,D=>C2A4,C=>C2A4 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0578 KDK 06/11/80 STR #06419 3.3.3 DSR911 PB* B P* ENTERING THE BACKFIELD KEY OR TAB KEY AFTER ENTERING AN PP* INVALID CHARACTER INTO A VALIDATION FIELD WILL CAUSE THE PP* CURSOR TO DISAPPEAR. PP* PP*#SYN S911,DSR911 PP*#SYN S911,DSR911WP PP*#SYN S911PF,DSR911PF PP* PP.IF "@DSR911", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0402, P T@P V=>C2E4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0404, PP V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, P V=>DEAD,D=@DSR>911+>0406,C=@DSR911+>0406 >PEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>055A, PP V=>1D0C,D=>1000,C=>1000 PPEC PP.ENDIF PP* PP.IF "@DSR911PF", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B2, PP V=>C2E4,D=>0460,C=>0460 P$EC $, ,PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B4, PP V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, PP V=>DEAD,D=@DSR911PF+>05B6,C=@DSR911PF+>05B6 P6EC 6 PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0772, PP V=>1D0C,D=>1000,C=>1000 PPEC PP.ENDIF PP.IF "@DSR911WP", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B4, PP V=>C2E4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B6, PH V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 H PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, PP V=>DEAD,D=@DSR911WP+>04B8,C=@DSR911WP+>04B8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0636, PP V=>1D0C,D=>1000,C=>1000 PEC J JP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0584 KDK 06/19/80 STR #06144 3.3.3 DSRKSR,DSR733 PP* PP* WHEN USING THE KSR OR ASR DSR FOR DIALUP TERMINALS, THE PHONE PP* CONNECTION LOGIC PROHIBITS A RECONNECTION IN THE EVENT OF AN PP* ABNORMAL DISCONNECTION; I.E. HANGING UP THE PHONE WITHOUT P* TERMINATING SCI, OR M8OMENTARY POWER LOSS AT THE MODEM. THIS 8P* PATCH CORRECTS THE LOGIC AND ENABLES A RECONNECTION AFTER AN PP* 8 SECOND DELAY. PP* PP*#SYN SKSR,DSRKSR PP*#SYN S733,DSR733 PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0190, PP V=>DEAD,D=>06A0,C=>06A0 PPEC P*MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>*&0192, &P V=>DEAD,D=@IOCOM+>0004,C=@IOCOM+>0004 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0194, PP V=(>DEAD,>DEAD),D=(>0380,>0460),C=>07E0 PPEC PP* PP* PP.IF @DSRKSR ,NE, NONE PP* P<* < PMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A4, PP V=>06A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A6, PP V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A8, PP V=(>0380,>C047),D=(>C047,>1002),C=>D045 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, N P V=>DEAD,D=@DSRKSR+>00A8,C=@DSRKSR+>00A8 PPEC PP* PP* PP.ENDIF PP* PP* PP.IF @DSR733 ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A4, P V=>06A0 D,D=>0460,C=>0460 DPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A6, PP V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A8, PP V=(>0380,>C047),D=(>C047,>1002),C=>D045 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, PP V=>DEAD,D=@DSR733+>00A8,C=@DSR733+>00A8 PEC 2 2P* PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0597 RVL 06/27/80 STR #06603 3.3.3 DSRKSR,DSR733 PP* PP* KATAKANA CHARACTERS ARE NOT PROCESSED PROPERLY BY DSRKSR PP* AND DSR733. P0* 0 P*#SYN SKSR,DSRKSR PP*#SYN S733,DSR733 PP* PP.IF @DSRKSR,NE,NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>0398, PP V=>02AA,D=>02AB,C=>02AB PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>039A, PB V=>D2AA,D=>D2AB,C=>D2AB B PEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03A8, PP V=>FAA0,D=>FAE0,C=>FAE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03BC, PP V=>5AA0,D=>5AE0,C=>5AE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015C, PP V=>DF00,D=>E000,C=>E000 PPEC P T@PMPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015E, PP V=>1BE6,D=>14E6,C=>14E6 PPEC PP* PP.ENDIF PP* PP.IF @DSR733,NE,NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>0398, PP V=>02AA,D=>02AB,C=>02AB PEC > >PMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>039A, PP V=>D2AA,D=>D2AB,C=>D2AB PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03A8, PP V=>FAA0,D=>FAE0,C=>FAE0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03BC, PP V=>5AA0,D=>5AE0,C=>5AE0 PPEC P$MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR$,733+>015C, ,P V=>DF00,D=>E000,C=>E000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015E, PP V=>1BE6,D=>14E6,C=>14E6 PPEC PP.ENDIF PP*$ PP************************************************************* PP* P6*=P0602 GJ 07/10/80 STR #06424 3.3.3 ABTLDT 6 P* PP* ABTLDT GENERATES A CLOSE CALL BLOCK WHICH IS NOT SIZED PP* PROPERLY. THIS MAY CAUSE THE SYSTEM TO 'HANG' WITH ALL PP* MEMORY LIGHTS ON AND REQUIRES AN IPL PROCEDURE TO PP* RESTART THE SYSTEM. PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>06AE+>0038, PP V=>000E,D=>0012,C=>0012 PPEC PH*$ HGE LENGTH  60  PRINT WIDTH  80 ( MACRO LIBRARY PATHNAME ** NULL ** ($ ERROR ACCESS NAME  ** NULL ** $ A  ** UNKNOWN ** BUNLIST  ** UNKNOWN ** TUNLIST  ** UNKNOWN ** DUNLIST  ** UNKNOWN **8 MACRO ASSEMBLY COMPLETE, 0000 ERRORS, 0000 WARNINGS 8 <0008> .SYN XMA$L = "" " <0009> .IF  @$$CC,GE,04000 "H <0010>  CM R=ME,M="*** ALGS - D$DATA ASSEMBLY ERROR = @$$CC ***" H> <0011>  .STOP T="*** ALGS - D$DATA ASSEMBLY ERROR ***" > <0012> .ENDIFD! <0013> ******************** LINK THE SYSTEM ****************** D8 <0014> XLE  CONTROL= DS01.S$SYSGEN.SKI1.LINKSTRM,8& <0015>  LINK = DS01.S$IMAGES,&2 <0016>  LIST = DS01.S$SYSGEN.SKI1.LINKMAP26 CONTROL ACCESS NAME  DS01.S$SYSGEN.SKI1.LINKSTRM6 LINKED OUTPUT ACCESS(IBM2TI (EBCDIC TO ASCII CONVERSION),($ INPUT ACCESS NAME = ACNM(MT01),$ OUTPUT ACCESS NAME = ACNM,"DELETE CONTROL CHAR=*YESNO(NO)"$ALL=>22,A=.EBCASC.CONVERT,P=Y $*.IF "&DELETE CONTROL CHAR", EQ, "YES" *.BID TASK=>02,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME, "YES")" .ELSE % .BID TASK=>02,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME,"")  .ENDIF%  .IF "@$$CC", NE, "00000" MSG T="ERROR @$$CC"  .ENDIF% RLL=>22 "@>  SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.>" ACCESS NAMES TABLEPAGE 0001 "6 SOURCE ACCESS NAME= DS01.S$SYSGEN.SKI1.D$SOURCE 66 OBJECT ACCESS NAME= DS01.S$SYSGEN.SKI1.D$OBJECT 6" LISTING ACCESS NAME=.D$LIST " ERROR ACCESS NAME= " OPTIONS= BUNLST,TUNLST,DUNLST" MACRO LIBRARY PATHNAME=  D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0002 ( 0003 IDT 'D$DATA'   0004  * TITLE:  D$DATA  0005  * DX10 DATA BASE " 0006  * REVISION: 09/09/79 "" 0007  * CREATED BY GEN990"$ 0008  * SYSTEM NAME = SKI1 $2 0009  * COMPUTER: 990/10 - MACRO ASSEMBLER2 0010  * ABSTRACT:> 0011  * THIS IS THE DATA BASE FOR DX10.IT CONTAINS > 0012  *, NUMEROUS SYSTEM STRUCTURES, POINTERS AND ,> 0013  * VALUES DEPENDENT ON THE SYSTEM CONFIGURATION.> 0014  *6 0015  * DEFINED STUCTURES IN THIS MODULE ARE:66 0016  *1)TSB'S AND WORK AREAS FOR EACH DISK60 0017  *2)KSB'S FOR STATION TERMINALS 0* 0018  *3) PDT'S FOR EACH DEVICE ** 0019  *4) PSB FOR DX10 PROCEDURE*, 0020  *5) USER SUPPLIED SVC TABLE ,4 0021  *6)INITIAL COPY OF INTERRUPT TRAPS 4 0022  *" 0023  * CALLING SEQUENCE: "& 0024  * INTERRUPT OR XOP CALL&D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0003 ( 0026  *** DXDATA DEF'S : 0027 DEF DXDB,SLICE,UPS,STUNIT,STUNT4,DSTUNT,MAXIO: 0028 DEF TM$TSV,TM$SLC 0029 DEF T$ABSIZ,UAHEAD,UAHADD,UABADD,UATLEN $, 0030 DEF SATLEN,SAHIAD,SAHEAD,SABADD, 0031 DEF MEMSIZ,MEMSW , 0032 DEF ENDDXL,ENDLIM,ENDADD,BASADJ,0 0033 DEF TMTOL,TMTOLN,TMTOLO,TOLBET,TDL 02 0034 DEF ETSK,TSKLST,TSKSTR,LDTLST,PSBSTR 22 0035 DEF SLCNT,SLCTIM,TM$DFR,TMESLC,NUMDEC2, 0036 DEF RIDMAP,FIDMAP,RSTRSW,RSTRID,, 0037 DEF PF$FCB,PF1LDT,PF2LDT,PF3LDT,, 0038 DEF RF$FCB,RF$LDT,OF$FCB,OF$LDT,, 0039 DEF BM$SZ,BM$SIZ,BM$CNT,BM$LMT , 0040 DEF BIDTSB,FMPTSB& 0041 DEF USVCTB,USVCMX,USVCLN &$ 0042 DEF KBTAB,MAXSTA,MAXST2$& 0043 DEF SYSTAB,PSBLST,PDTLST &( 0044 DEF DUMMY,TTY,LP,CS,CR,CRT ( 0045 DEF DSC,COM,MT 4 0046 DEF AQPTRS,ENDSTB,OADPTR,BPT,XY,DIOPDT 4. 0047 DEF SLNLUN,SLNLID,SLNMCA,SLNFLG,S.LNQUE 4 0048 DEF ITSKMX,ITSKCR,IOSMAX,IOSSTA,IOSHBC 42 0049 DEF CURMAP,MAPFK,MAPSHD,MAPMR,MAPCMN 2, 0050 DEF FMQSER,FMTTSB,MAPLST,CTRYVL,, 0051 DEF SCIBMX,SCIFMX,DXSTRT,CMEMSZ,: 0052 DEF KBST01,PSST01,MPST01,KBST02,PSST02,MPST02:: 0053 DEF PDLP01,PSLP01,MPLP01,PDLP02,PSLP02,MPLP02:: 0054 DEF WPDS01,PSDS01,PSDS02,PSDS03,PSDS04,MPDS01:: 0055 DEF MPDS02,MPDS03,MPDS04,WPMT01,PSMT01,MPMT01:, 0056  *EXTERNALLY DEFINED VARIABLES,$ 0057 REF D$STRT,ITSB,DDTTSB $, 0058 REF DSCMGR,DM$QUE,FM$PC,FM$ABD ,, 0059 REF BIDDER,BIDQUE,OVYTAB,THEEND,: 0060 REF KBIDLE,ASRHAN,CASHAN,GOREN,ASREXT,KBI733 :, 0061 REF HAN820,RENTER,IDL820,INT820,: 0062 REF ADSHAN,ADSEXT,ADSREN,ADIDLE,KBIADS,ADSBUF:$ 0063 REF DRTWP,DIODSR,DTBSY,$DINT$ 0064 REF LPSPUR,LPHAN,LPINT $* 0065 REF CRSPUR,CRHAN,CRREN,CRINT *& 0066 REF TDI911,CRT911,KBI911 && 0067 REF TDI913,CRT913,KBI913 &" 0068 REF MTHAN,MTINT,TRTWP", 0069 REF FPYDSR,FPYINT,FPYSPR,FPYDCD,& 0070 REF COMDSR,COMINT,PDTSTK &, 0071 REF TRAPRT,ILLSVC,CLKWSP,CLKPC ,( 0072 REF IIE,IIWSP,SCWSP,SVCPRC (8 0073 REF PRUPWP,PWRUP,PWRWSP,PWRDN,SCRASH,PFRSIB8( 0074  * REFS DEFINED TO SYSGEN (D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0004 ( 0076  *  0077  0000' DXDB EQU $  0078  *6 0079  *SYSTEM EQUATES OF ONE SORT OR ANOTHER 6 0080  *@ 0081  0001 SLICEF EQU >0001 TIME SLICING ENABLED FLAG @ 0082  003C TSE6NTEQU >003CTASK SENTINAL VALUE (=0 => SENTINAL 6D 0083  0078 UPSEQU >0078TICKS PER SECOND (= LINE FREQ*2)DJ 0084  0006 STUNIT EQU >0006SYSTEM TIME UNIT (= # OF TICS IN 50 JD 0085  0006 SLICEEQU >0001*STUNIT TIME SLICE VALUE IN TICSDD 0086  0018 STUNT4 EQU STUNIT*4  USED BY EXTEND TIME SLICE DB 0087  3228 TABSIZ EQU >3228SYSTEM TABLE AREA = 2K WORDSB2 0088  0000 CTRYVL EQU >0000COUNTRY CODE2 0089  *2 0090  0000' DXSTRT EQU $START OF D$DATA 2B 0091 0000 0000' ENTRYDATA $DX10 ENTRY POINT (LOAD AT >A0)B@ 0092 0002 004C'DATA SYSPTS POINTER TO MISC. SYSTEM INFO@< 0093 0004 05 MAXIOBYTE 5,0 MAX INITIATE I/O COUNT<B 0094 0006 0000 DATA OVYTAB LOCATION OF THE OVERLAY TABLE B& 0095 0008 0000 DATA THEEND LE& NGTH OF THE SYSTEM2 0096 000A 00D4'DATA MAPLST MAP FILE TABLE26 0097 000C 0000 KIFDATA >0000NEW/OLD KIF FLAG6J 0098 000E 0000 DATA 0,0,0,0,0>>RESERVED FOR MEM/DSC UTILIZATION SJ2 0099 0018 53 TEXT 'SKI1' SYSTEM NAME 2@ 0100 0020RORG $-DXDB+31/32*32+DXDB GETS TO BEET BOUNDARY@  0101  0020' UAHEAD EQU $ 8 0102 0020 0000 DATA 0 MEMORY LIST HEADER, LEN=0 86 0103 0022 0000 DATA $-$ PTR TO FIRST AVAIL BOB6D 0104 0024 0000 UABADD DATA $-$STARTING ADDRESS OF USER AREA D  0105  0026' UATLEN EQU $ : 0106 0026 0000 DATA $-$ TOTAL LENGTH OF USER AREA :( 0107  * SYSTEM TABLE AREA HEADER(  0108  0028' SAHEAD EQU $ 0 0109 0028 0000 DATA 0 HEADER LENGTH = 0 0@ 0110 002A 0C3E'DATA SYSTAB POINTER TO FIRST AVAIL BLOCK@B@8 0111 002C 0C3E' SABADD DATA SYSTAB START OF AREA 8< 0112 002E 3228 SATLEN DATA TABSIZ  TOTAL SIZE OF AREA<< 0113 0030 0000 SAHIAD DATA 0 HIGHEST EVER ALLOCATION <> 0114 0032 0000 DATA 0 (NOT USED) CURRENT LOW ALLOCATION>( 0115  * TIME-ORDERED LIST HEADER(@ 0116 0040RORG $-DXDB+31/32*32+DXDB GETS TO BEET BOUNDARY@  0117  0040' TMTOLEQU $ 0 0118 0040 0000 DATA 0 LENGTH OF OVERHEAD04 0119 0042 0000 DATA 0 ** UNUSED IN HEADER **4F 0120 0044 0000 TMTOLN DATA $-$FORWARD LINK (POINTER TO NEWEST)FD 0121 0046 0000 TMTOLO DATA $-$BACK LINK (POINTER TO OLDEST) D. 0122 0048 FFFF DATA -1 TYPE = HEADER .< 0123 004A 0000 TOLBET DATA $-$ BEET ADDRESS OF TMTOL <  0124  004C' SYSPTS EQU $ 4 0125 004C 0000 UAHADD DATA $-$BIAS REG VALUE4 FOR LIST HEAD2 0126 004E 0000 MEMSIZ DATA $-$MEMORY SIZE 2@ 0127  *SET THE FOLLOWING WORD NON-ZERO IF YOU DESIRE TO@8 0128  *BYPASS AUTO-DETERMINATION OF MEMORY SIZE8" 0129 0050 0000 MEMSWDATA 0"H 0130 0052 0000 ENDLIM DATA $-$LIMIT REG VALUE - 1 BEET PAST DX10HD 0131 0054 0000 ENDDXL DATA $-$LIMIT REG VALUE - END OF DX10 DH 0132 0056 0000 ENDADD DATA $-$VIRTUAL ADDRESS - 1 BEET PAST DX10H@ 0133 0058 0000 BASADJ DATA $-$ BIAS REGISTER ADJUST VALUE@F 0134 005A 0006 DSTUNT DATA STUNIT CLOCK TICKS/SYSTEM TIME UNITF2 0135 005C 0000 TDLDATA 0TIME DELAY LIST 2D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0005 (2 0136 005E 0000 ETSK DATA 0EXECUTING TASK2 0137 0060 0000 TSKLST  DATA ITSB  START OF TSB LIST H 0138 0062 0006 SLCNTDATA SLICEUSED TO INITIALIZE SLICE COUNT. H6 0139 0064 0000 SLCTIM DATA 0 USED TO TIME SLICE6< 0140 0066 0000 TM$DFR DATA 0 TIME SLICE EXPIRED FLAG <> 0141 0068 0000 NUMDEC DATA 0 USED TO CNT TD DECREMENTS >B 0142 006A RIDMAP BSS 32 RUN-TIME TASK ID ALLOCATION MAP B4 0143 008A FIDMAP BSS 32  FIXED TASK ID MAP 4< 0144 00AA 0000 TMESLC DATA 0 TIME SLICE EXTENDED FLAG<2 0145 00AC 0000 RSTRSW DATA 0RESTART SWITCH2< 0146 00AE 003C TM$TSV DATA TSENT TASK SENTINAL VALUE << 0147 00B0 0001 TM$SLC DATA SLICEF  TIME SLICING FLAG <8 0148 00B2 00 RSTRID BYTE >0000RESTART TASK ID 8 0149 00B4EVEN> 0150 00B4 0000 PF$FCB DATA $-$ SYSTEM PROGRAM FILE FCB >$ 0151 00B6 0000 PF1LDT DATA $-$$"LUNO D LDT (ASSIGNED TO PF$FCB) "F 0152 00B8 0000 PF2LDT DATA $-$LUNO B LDT (ASSIGNED TO PF$FCB) FF 0153 00BA 0000 PF3LDT DATA $-$LUNO F LDT (ASSIGNED TO PF$FCB) F4 0154 00BC 0000 RF$FCB DATA $-$ROLL FILE FCB 4F 0155 00BE 0000 RF$LDT DATA $-$LUNO E LDT (ASSIGNED TO RF$FCB) F> 0156 00C0 0000 OF$FCB DATA $-$ SYSTEM OVERLAY FILE FCB >F 0157 00C2 0000 OF$LDT DATA $-$LUNO A LDT (ASSIGNED TO OF$FCB) F( 0158  * BUFFER MANAGEMENT VALUES(@ 0159  0400 BM$SZEQU >0400 FIXED BUFFER SIZE (BYTES) @6 0160  0021 BM$SIZ EQU BM$SZ+31/32+1 (BEETS) 6< 0161 00C4 0001 BM$CNT DATA 1 COUNT OF BUFFERS ON TOL <B 0162 00C6 001E BM$LMT DATA 30 MAX # BUFFERS ALLOWED ON TOLB 0163  *( 0164  * ACTIVE QUEUE INFORMATION( 0165  * 0166  00C8' AQPTRS EQU $0 0167 00C8 0000 DATA 0 ADDRESS OF NEW TSB00 0168 00CA 0000 DATA 0 ADDRESS OF OLD TSB0: 0169 00CC 0000 DATA 0TSB ADDRESS FOR QUEUE SERVER:2 0170 00CE C000 DATA >C000FLAGS/SERVER ID 22 0171 00D0 FF00 DATA >FF00TSB STATE/COUNT 2 0172  *F 0173  *USER SVC CALLS**************************************F 0174  *  0175  00D2' USVCTB EQU $ , 0176  FFFF USVCMX EQU $-USVCTB-2/2 ,H 0177  * USER SVC LENGTH TABLE ****************************** H  0178  00D2' USVCLN EQU $  0179 00D2EVEND D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0006 (J 0181  *=========================================================== J( 0182  *==== CURRENT MAP FILE POI(" NTER AND SYSTEM MAP FILES === "J 0183  *=========================================================== JD 0184 00D2 0118' CURMAP DATA MAPSHD  CURRENT MAP FILE POINTER D< 0185  00D4' MAPLST EQU $ START OF SYSTEM MAP FILES< 0186  * 0187 REF SKI118 0188 00D4 0000 DATA SKI11 FILE MANAGER AND KIF 8& 0189 00D6 0001 DATA 1 SEGMENT&8 0190 00D8 0000 MAPFKDATA 0,0,0,0,0,0 MAP FILE 8 0191  * 0192 REF SKI128 0193 00E4 0000 DATA SKI12 MEMORY RESIDENT TASKS8& 0194 00E6 0002 DATA 2 SEGMENT&8 0195 00E8 0000 MAPMRDATA 0,0,0,0,0,0 MAP FILE 8 0196  * 0197 REF SKI134 0198 00F4 0000 DATA SKI13 SYSTEM COMMON AREA4& 0199 00F6 0002 DATA 2 SEGMENT&4 0200 00F8 0000 MAPCMN DATA 0,0,0,0,0,0 MAP F4ILE  0201  * 0202 REF SKI14, 0203 0104 0000 DATA SKI14I/O COMMON,& 0204 0106 0002 DATA 2 SEGMENT&8 0205 0108 0000 MAPIOC DATA 0,0,0,0,0,0 MAP FILE 8 0206  * 0207 REF SKI15. 0208 0114 0000 DATA SKI15SVC AND I/O .& 0209 0116 0003 DATA 3 SEGMENT&< 0210 0118 0108' MAPSHD DATA MAPIOC,0,0,0,0,0 MAP FILE < 0211  *2 0212  0128' MPDS01 EQU $+4 DEVICE EQUATE22 0213  0128' MPDS02 EQU $+4 DEVICE EQUATE22 0214  0128' MPDS03 EQU $+4 DEVICE EQUATE22 0215  0128' MPDS04 EQU $+4 DEVICE EQUATE2 0216 REF SKI162 0217 0124 0000 DATA SKI16DEVICE MAP FILE 2& 0218 0126 0003 DATA 3 SEGMENT&6 0219 0128 0108'DATA MAPIOC,0,0,0,0,0 MAP FILE 6 0220  * 0221  0138' MPLP01 EQU $+4 DEVICE EQUATE2 0222  0138' MPLP02 EQU $+4 DEVICE EQUATE2 0223 REF SKI172 0224 0134 0000 DATA SKI17DEVICE MAP FILE 2& 0225 0136 0003 DATA 3 SEGMENT&6 0226 0138 0108'DATA MAPIOC,0,0,0,0,0 MAP FILE 6 0227  *2 0228  0148' MPST01 EQU $+4 DEVICE EQUATE22 0229  0148' MPST02 EQU $+4 DEVICE EQUATE2 0230 REF SKI1A2 0231 0144 0000 DATA SKI1ADEVICE MAP FILE 2& 0232 0146 0003 DATA 3 SEGMENT&6 0233 0148 0108'DATA MAPIOC,0,0,0,0,0 MAP FILE 6 0234  *2 0235  0158' MPMT01 EQU $+4 DEVICE EQUATE2 0236 REF SKI1C2 0237 0154 0000 DATA SKI1CDEVICE MAP FILE 2& 0238 0156 0003 DATA 3 SEGMENT&6 0239 0158 0108'DATA MAPIOC,0,0,0,0,0 MAP FILE 6 0240  * D$DATA S8 DSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.8( D$DATA - DX10 DATA BASE PAGE 0007 (4 0241 0164 0000 DATA 0 ---- END OF TABLE ---4D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0008 (< 0243  00DC STKLEN EQU 110*2 LENGTH OF STACK AREA <8 0244  0080 WRKLEN EQU 128 LENGTH OF WORK AREA8F 0245 0166 0168' FMTTSB DATA FMTTAB  ANCHOR TO TABLE OF FM TSBS F  0246  0168' FMTTAB EQU $ 0247 0168 0178'DATA FM01 0248 016A 02E4'DATA FM02 , 0249 016C 0000 DATA 0 END OF TABLE ,4 0250  * FILE MANAGEMENT REQUEST QUEUE HEADER 4  0251  016E' FMQSER EQU $ . 0252 016E 0000 DATA 0,0 QUEUE ANCHOR .0 0253 0172 0178'DATA FMPTSB  SERVER TSB 0" 0254 0174 0000 DATA 0 FLA"GS/SERVER ID6 0255 0176 FF00 DATA >FF00 STATE / QUEUE COUNT6  0256  0178' FMPTSB EQU $ H 0257  ********************************************************** HH 0258  **** TSB FOR FILE MANAGEMENT TASK ************************ HH 0259  ********************************************************** H  0260  0178' FM01 EQU $ , 0261 0178 0000 DATA 0 QUEUEING LINK,, 0262 017A 0000 DATA 0,0,0 WP,PC,ST ,( 0263 0180 00 BYTE 0 PRIORITY (> 0264 0181 24 BYTE >24 STATE (WAITING FOR QUEUE ACT)>( 0265 0182 F000 DATA >F000 FLAGS(0 0266 0184 01DE'DATA $+>5A TASK ADDRESS 0: 0267 0186 0000 DATA 0 INSTALLED ID / RUN TIME ID :4 0268 0188 01AA'DATA $+>22 MAP FILE ADDRESS 46 0269 018A 02E4'DATA FEFM01  LINK TO NEXT TSB 6 ( 0270 018C 0000 DATA 0 KSB ADDRESS(. 0271 018E 0000 DATA 0 SECONDARY FLAGS.@ 0272 0190 46 TEXT 'FM01'  BID PARAMATERS (TASK NAME)@. 0273 0194 0000 DATA 0 ALT TSB ADDRESS., 0274 0196 00 BYTE 0 CRT CHARACTER,0 0275 0197 00 BYTE 0 TILINE I/O COUNT 0. 0276 0198 0000 DATA 0,0 PSB ADDRESSES.0 0277 019C 0000 DATA 0 PROGRAM FILE FCB 04 0278 019E 0000 DATA 0,0,0,0 DIAGNOSTIC INFO44 0279 01A6 0000 DATA 0,0 TIME DELAY COUNTER 4< 0280 01AA 00D8' DATA MAPFK,0,0,0,0,0 SAVED MAP FILE <6 0281 01B6 00 BYTE 0,0 FIXED PRI, TASK REG #66 0282 01B8 0000 DATA 0,0,0,0 FAMILY TREE LINKS64 0283 01C0 0000 DATA 0 OVERLAY TABLE ADDRESS40 0284 01C2 0000 DATA 0 OVERLAY RETURN PC0, 0285 01C4 0000 DATA 0 ADDRESS OF OV, ERLAY AREA : 0286 01C6 0000 DATA 0 # OF TIME SLICES REMAINING :, 0287 01C8 0000 DATA 0 TIME SUSPEND ,. 0288 01CA 0000 DATA 0 GETMEM SCRATCH .2 0289 01CC 0000 DATA 0,0,0,0 ROLL OUT INFO2< 0290 01D4 8000 DATA >8000 LOCAL LDT FLAGS (HEADER) << 0291 01D6 0BFA'DATA LDTLST  LOCAL LDT LIST POINTER <2 0292 01D8 00 BYTE 0 # EOR'S OUTSTANDING2: 0293 01D9 00 BYTE 0 # OF I/O CALLS OUTSTANDING :@ 0294 01DA 016E'DATA FMQSER  QUEUE HEADER SERVED BY TASK@0 0295 01DC 0000 DATA 0 TASK SENTRY COUNT0H 0296  ********************************************************** HH 0297  *** TASK AREA FOR FILE MANAGEMENT TASK ******************* HH 0298  ********************************************************** H$ 0299  * TASK DEFINITION BLOCK$@H 0300 01DE 01E4'DATA $+6,FM$PC,FM$ABD INITIAL WP,PC & END ACTION H 0301  * WORKSPACE" 0302 01E4BSS 10*2  R0-R9"D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0009 (6 0303 01F8 0204'DATA $+12  R10 = STACK POINTER6$ 0304 01FABSS 5*2 R11 - R14$* 0305 0204BSS STKLEN  STACK AREA *  0306 02E0 45 TEXT 'EOS'  0307 02E4EVEN  0308  02E4' FEFM01 EQU $ D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0010 (H 0310  ********************************************************** HH 0311  **** TSB FOR FILE MANAGEMENT TASK ************************ HH 0312  ********************************************************** H 0313  02E4' FM02 EQU $, 0314 02E4 0000 DATA 0 QUEUEING LINK,, 0315 02E6 0000 DATA 0,0,0 WP,PC,ST ,( 0316 02EC 00 BYTE 0 PRIORITY (> 0317 02ED 24 BYTE >24 STATE (WAITING FOR QUEUE ACT)>( 0318 02EE F000 DATA >F000 FLAGS(0 0319 02F0 034A'DATA $+>5A TASK ADDRESS 0: 0320 02F2 0000 DATA 0 INSTALLED ID / RUN TIME ID :4 0321 02F4 0316'DATA $+>22 MAP FILE ADDRESS 46 0322 02F6 0450'DATA FEFM02  LINK TO NEXT TSB 6* 0323 02F8 0000 DATA 0 KSB ADDRESS*. 0324 02FA 0000 DATA 0 SECONDARY FLAGS.@ 0325 02FC 46 TEXT 'FM02'  BID PARAMATERS (TASK NAME)@. 0326 0300 0000 DATA 0 ALT TSB ADDRESS., 0327 0302 00 BYTE 0 CRT CHARACTER,0 0328 0303 00 BYTE 0 TILINE I/O COUNT 0, 0329 0304 0000 DATA 0,0 PSB ADDRESS,ES0 0330 0308 0000 DATA 0 PROGRAM FILE FCB 04 0331 030A 0000 DATA 0,0,0,0 DIAGNOSTIC INFO44 0332 0312 0000 DATA 0,0 TIME DELAY COUNTER 4< 0333 0316 00D8' DATA MAPFK,0,0,0,0,0 SAVED MAP FILE <6 0334 0322 00 BYTE 0,0 FIXED PRI, TASK REG #66 0335 0324 0000 DATA 0,0,0,0 FAMILY TREE LINKS64 0336 032C 0000 DATA 0 OVERLAY TABLE ADDRESS40 0337 032E 0000 DATA 0 OVERLAY RETURN PC06 0338 0330 0000 DATA 0 ADDRESS OF OVERLAY AREA6: 0339 0332 0000 DATA 0 # OF TIME SLICES REMAINING :, 0340 0334 0000 DATA 0 TIME SUSPEND ,. 0341 0336 0000 DATA 0 GETMEM SCRATCH .2 0342 0338 0000 DATA 0,0,0,0 ROLL OUT INFO2< 0343 0340 8000 DATA >8000 LOCAL LDT FLAGS (HEADER) << 0344 0342 0BFA'DATA LDTLST  LOCAL LDT LIST POINTER <>@2 0345 0344 00 BYTE 0 # EOR'S OUTSTANDING2: 0346 0345 00 BYTE 0 # OF I/O CALLS OUTSTANDING :@ 0347 0346 016E'DATA FMQSER  QUEUE HEADER SERVED BY TASK@0 0348 0348 0000 DATA 0 TASK SENTRY COUNT0H 0349  ********************************************************** HH 0350  *** TASK AREA FOR FILE MANAGEMENT TASK ******************* HH 0351  ********************************************************** H$ 0352  * TASK DEFINITION BLOCK$H 0353 034A 0350'DATA $+6,FM$PC,FM$ABD INITIAL WP,PC & END ACTION H 0354  * WORKSPACE" 0355 0350BSS 10*2  R0-R9"6 0356 0364 0370'DATA $+12  R10 = STACK POINTER6$ 0357 0366BSS 5*2 R11 - R14$* 0358 0370BSS STKLEN  STACK AREA *  0359 044C 45 TEXT 'EOS'  0360 0450EVEN 0361  0450' FEFM02 EQU $D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0011 (& 0363  * TSB FOR BID TASK TASK &  0364  0450' BIDTSB EQU $ , 0365 0450 0000 DATA 0QUEUEING LINK , 0366 0452 0000 DATA 0WP 0367 0454 0000 DATA 0PC 0368 0456 0000 DATA 0ST & 0369 0458 00 BYTE 0PRIORITY&4 0370 0459 24 BYTE >24 STATE (=TERMINATED) 4( 0371 045A F000 DATA >F000FLAGS (F 0372 045C 0000 DATA BIDDER TASK ADDRESS (OF TEST TASK ** T1A)F2 0373 045E 0000 DATA 0 INSTALLED ID/RUN ID 22 0374 0460 0482'DATA $+>22MAP FILE ADDRESS2< 0375  0462' TSKSTR EQU $ START OF NON-LINKED TSB'S <. 0376 0462 0000 DATA 0LINK TO NEXT TSB.( 0377 0464 0000 DATA 0KSB ADDRES(S . 0378 0466 0000 DATA 0SECONDARY FLAGS .4 0379 0468 54 TEXT 'TBID' BIDT PARAMETERS 44 0380 046C 0000 DATA 0 ALTERNATE TSB ADDRESS 40 0381 046E 00 BYTE 0 913/911 CHARACTER 0. 0382 046F 00 BYTE 0TILINE I/O COUNT.. 0383 0470 0000 DATA 0,0PSB ADDRESSES .. 0384 0474 0000 DATA 0PROGRAM FILE FCB.D 0385 0476 0000 DATA 0,0,0,0DIAGNOSTIC ERROR CODE & WP,PC,STD2 0386 047E 0000 DATA 0,0 TIME DELAY COUNTER2: 0387 0482 00E8' DATA MAPMR,0,0,0,0,0SAVED MAP FILE:6 0388 048E 00 BYTE 0,0 FIXED PRI, TASK REG # 66 0389 0490 0000 DATA 0,0,0,0 FAMILY TREE LINKS 64 0390 0498 0000 DATA 0 OVERLAY TABLE ADDRESS 40 0391 049A 0000 DATA 0 OVERLAY RETURN PC 06 0392 049C 0000 DATA 0 ADDRESS OF OVERLAY AREA 6 0393 049E 0(000 DATA 0 # TIME SLICES REMAINING (, 0394 04A0 0000 DATA 0TIME SUSPENDED,, 0395 04A2 0000 DATA 0GETMEM SCRATCH,2 0396 04A4 0000 DATA 0,0,0,0ROLL-OUT INFO 2@ 0397 04AC 8000 DATA >8000LOCAL LDT LIST FLAGS (HEADER) @: 0398 04AE 0BFA'DATA LDTLST  LOCAL LDT LIST POINTER:2 0399 04B0 00 BYTE 0 # EOR'S OUTSTANDING 26 0400 04B1 00 BYTE 0 # I/O CALLS OUTSTANDING 6@ 0401 04B2 0000 DATA BIDQUE QUEUE HEADER SERVED BY TASK @0 0402 04B4 0000 DATA 0 TASK SENTRY COUNT 0D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0012 (, 0404  *KEYBOARD STATUS BLOCK TABLE ," 0405  04B4' KBTABEQU $-2"8 0406 04B6 0510'DATA KBST01  STATION KSB POINTER8( 0407 04B8 05C2'DATA KBST02  STA(TION KSB POINTER* 0408  0002 MAXSTA EQU $-KBTAB-2/2*( 0409  0004 MAXST2 EQU $-KBTAB-2(4 0410 04BA 0000 DATA 0 END OF TABLE INDICATOR40 0411  *EQUATED VALUES FOR DEVICE TYPES 04 0412  0000 DUMMYEQU 0 DUMMY DEVICE TYPE 4< 0413  0001 TTYEQU 1KEYBOARD/PRINTER DEVICE TYPE<8 0414  0002 LP EQU 2 LINE PRINTER DEVICE TYPE84 0415  0003 CS EQU 3 CASSETTE DEVICE TYPE48 0416  0004 CR EQU 4 CARD READED DEVICE TYPE 86 0417  0005 CRTEQU 5 CRT SCREEN DEVICE TYPE6, 0418  0006 DSCEQU 6DISK DEVICE ,2 0419  0007 COMEQU 7 COMMUNICATION LINE2( 0420  0008 MT EQU 8MAG TAPE(2 0421  000E AMPLEEQU >E AMPL EMULATOR 26 0422  000F AMPLTEQU >F  AMPL TRACE MODULE 6 0423  * 042:4 04BC 04C8' PDTLST DATA PDT001  PTR TO START OF PDT'S :( 0425 04BE 0000 DATA 0 RESERVED (6 0426 04C0 0000 DATA 0,0,0 STATISTIC COUNTERS 64 0427 04C6 00 BYTE 0,0 RETRY / LUNO COUNT 4  0428  04C8' PDT001 EQU $ D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0013 (H 0430  ********************************************************** H, 0431  *** ST01 PDT 911 CRT *** ,H 0432  ********************************************************** H  0433  04C8' PSST01 EQU $ 6 0434 04C8 057A'DATA ENST01  LINK TO NEXT PDT 6< 0435 04CA 0148'DATA MPST01  MAP FILE FOR THE DEVICE<: 0436  04CC' PDST01 EQU $ START OF DSR REGISTERS :0 0437 04CC 0000 DATA 0 R0 = DSR SCRATCH0 0438 04CE& 0000 DATA $-$ R1 = QUEUE LINK &@ 0439 04D0 000F DATA >000F R2 = STATUS FLG/INTERRUPT-1 @< 0440 04D2 0905 DATA >0905 R3 = DEVICE FLAGS & TYPE<8 0441 04D4 0510'DATA $+60  R4 = DSR TMP STORAGE8< 0442 04D6 0000 DATA 0 R5 = DSR SCRCH/CONT I/O FLG <@ 0443 04D8 0000 DATA TDI911  R6 = 911 CRT SPURIOUS INT @0 0444 04DA 0000 DATA 0 R7 = DSR SCRATCH0: 0445 04DC 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH :< 0446 04E4 0100 DATA >0100 R12 = CRU/TILINE ADDRESS <> 0447 04E6 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0448  *** DSR REGISTER EXTENTION *** ,< 0449 04EC 04CC'DATA $-32  POINTER TO DSR REGISTERS <8 0450 04EE 0000 DATA CRT911  911 CRT DSR ADDRESS88 0451 04F0 00 BYTE 0,0 DX10 ERROR CODE / FLAGS8 0452 04F2* 53 TEXT 'ST01'  DEVICE ACCESS NAME *. 0453 04F6 0000 DATA 0 SYSTEM LOG AREA.. 0454 04F8 0000 DATA 0 SYSTEM LOG AREA.6 0455 04FA 0000 DATA $-$ DEVICE BUFFER ADDRESS6: 0456 04FC 0056 DATA >0056 LENGTH OF DEVICE BUFFER:< 0457 04FE 04D8'DATA TDI911  911 CRT INTERRUPT ENTRY<2 0458 0500 0000 DATA 0,0 UCB QUEUE HEADER 22 0459 0504 0000 DATA 0 QUEUE SERVER (DDT) 2: 0460 0506 0000 DATA 0 SERVER FLAGS/SERVER TASK ID:> 0461 0508 FF00 DATA >FF00 STATE (NONE) / QUEUE COUNT >2 0462 050A 0000 DATA >0000 TIME OUT COUNT 22 0463 050C 0000 DATA >0000 TIME OUT COUNT 26 0464 050E 0000 DATA 0 RESERVED FOR FUTURE USE6B 0465  ***DSR TEMP STORAGE - KSB & TERMINAL LUNO 0*** B0 0466  0510' KBST01 EQU $ KSB REGISTERS0 : 0467 0510 0530'DATA $+32  R0 = TERMINAL LUNO 0 LDT:8 0468 0512 0000 DATA 0 R1 = QUEUE OUTPUT INDEX 8> 0469 0514 0550'DATA $+40+20 R2 = QUEUE INPUT POINTER>@ 0470 0516 0550'DATA $+38+20 R3 = QUEUE OUTPUT POINTER @B 0471 0518 056E' DATA >001E+$+36+20 R4 = QUEUE END POINTERB< 0472 051A 0000 DATA 0 R5 = EVENT CHARACTER BUFFER <0 0473 051C 40 BYTE >40 R6 = KSB FLAGS0. 0474 051D 01 BYTE >0001  STATION ID ., 0475 051E 0000 DATA 0 R7 = SCRATCH,> 0476 0520 0000 DATA 0 R8 = VALIDATION TABLE ADDRESS >4 0477 0522 0000 DATA 0,0,0 R9-R11 = SCRATCH 4: 0478 0528 0110 DATA >0110 R12 = CRU INPUT ADDRESS:> 0479 052A 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >2 0480  *** LDT FOR STATION LOCAL LUNO 0 *** 2 0481 0530$ 04C8'DATA PSST01  PDT ADDRESS$6 0482 0532 00 BYTE 0,0 LUNO / INITIATE COUNT6( 0483 0534 8480 DATA >8480 FLAGS(< 0484 0536 0BFA'DATA LDTLST  LDT LINK (GLOBAL LIST) <> 0485 0538 0000 DATA 0,0 TSB ADDRESS / LOCK OUT COUNT >* 0486 053C 0000  DATA 0,0,0,0,0,0,0,0*@ 0487 054C 0000 DATA 0,0 FLAGS/TIMEOUT FOR REMOTE TERMIN@, 0488 0550BSS >001E CHARACTER QUEUE,: 0489 056E 001E DATA >001E CHARACTER QUEUE LENGTH :D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0014 (( 0490 0570 0000 DATA 0 RESERVED (6 0491 0572 0000 DATA 0,0,0 STATISTIC COUNTERS 64 0492 0578 00 BYTE 0,0 RETRY / LUNO COUNT 46 0493  057A' ENST01 EQU $ POINTER TO NEXT PDT6 0494  *  D$DATA : SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.:( D$DATA - DX10 DATA BASE PAGE 0015 (H 0496  ********************************************************** H, 0497  *** ST02 PDT 911 CRT *** ,H 0498  ********************************************************** H  0499  057A' PSST02 EQU $ 6 0500 057A 062C'DATA ENST02  LINK TO NEXT PDT 6< 0501 057C 0148'DATA MPST02  MAP FILE FOR THE DEVICE<: 0502  057E' PDST02 EQU $ START OF DSR REGISTERS :0 0503 057E 0000 DATA 0 R0 = DSR SCRATCH02 0504 0580 0000 DATA $-$ R1 = QUEUE LINK 2@ 0505 0582 000F DATA >000F R2 = STATUS FLG/INTERRUPT-1 @< 0506 0584 0905 DATA >0905 R3 = DEVICE FLAGS & TYPE<8 0507 0586 05C2'DATA $+60  R4 = DSR TMP STORAGE8" 0508 0588 0000 DATA 0 R5 " = DSR SCRCH/CONT I/O FLG @ 0509 058A 04FE'DATA TDI911  R6 = 911 CRT SPURIOUS INT @0 0510 058C 0000 DATA 0 R7 = DSR SCRATCH0: 0511 058E 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH :< 0512 0596 0120 DATA >0120 R12 = CRU/TILINE ADDRESS <> 0513 0598 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0514  *** DSR REGISTER EXTENTION *** ,< 0515 059E 057E'DATA $-32  POINTER TO DSR REGISTERS <8 0516 05A0 04EE'DATA CRT911  911 CRT DSR ADDRESS88 0517 05A2 00 BYTE 0,0 DX10 ERROR CODE / FLAGS88 0518 05A4 53 TEXT 'ST02'  DEVICE ACCESS NAME 8. 0519 05A8 0000 DATA 0 SYSTEM LOG AREA.. 0520 05AA 0000 DATA 0 SYSTEM LOG AREA.6 0521 05AC 0000 DATA $-$ DEVICE BUFFER ADDRESS6: 0522 05AE 0056 DATA >0056 LENGTH OF DEVICE BUFFER:< 0523 05B0 058A'DATA TDI911  911 CRT INTERRUPT ENTRY<2 0524 05B2 0000 DATA 0,0 UCB QUEUE HEADER 22 0525 05B6 0000 DATA 0 QUEUE SERVER (DDT) 2: 0526 05B8 0000 DATA 0 SERVER FLAGS/SERVER TASK ID:> 0527 05BA FF00 DATA >FF00 STATE (NONE) / QUEUE COUNT >2 0528 05BC 0000 DATA >0000 TIME OUT COUNT 22 0529 05BE 0000 DATA >0000 TIME OUT COUNT 26 0530 05C0 0000 DATA 0 RESERVED FOR FUTURE USE6B 0531  ***DSR TEMP STORAGE - KSB & TERMINAL LUNO 0*** B0 0532  05C2' KBST02 EQU $ KSB REGISTERS0< 0533 05C2 05E2'DATA $+32  R0 = TERMINAL LUNO 0 LDT<8 0534 05C4 0000 DATA 0 R1 = QUEUE OUTPUT INDEX 8> 0535 05C6 0602'DATA $+40+20 R2 = QUEUE INPUT POINTER>@ 0536 05C8 0602'DATA $+38+20 R3 = QUEUE OUTPUT POINTER @  0537 05 8CA 0620' DATA >001E+$+36+20 R4 = QUEUE END POINTER8< 0538 05CC 0000 DATA 0 R5 = EVENT CHARACTER BUFFER <0 0539 05CE 40 BYTE >40 R6 = KSB FLAGS0. 0540 05CF 02 BYTE >0002  STATION ID ., 0541 05D0 0000 DATA 0 R7 = SCRATCH,> 0542 05D2 0000 DATA 0 R8 = VALIDATION TABLE ADDRESS >4 0543 05D4 0000 DATA 0,0,0 R9-R11 = SCRATCH 4: 0544 05DA 0130 DATA >0130 R12 = CRU INPUT ADDRESS:> 0545 05DC 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >2 0546  *** LDT FOR STATION LOCAL LUNO 0 *** 20 0547 05E2 057A'DATA PSST02  PDT ADDRESS06 0548 05E4 00 BYTE 0,0 LUNO / INITIATE COUNT6( 0549 05E6 8480 DATA >8480 FLAGS(< 0550 05E8 0BFA'DATA LDTLST  LDT LINK (GLOBAL LIST) <> 0551 05EA 0000 DATA 0,0 TSB ADDRESS / LOCK OUT COUNT >@* 0552 05EE 0000  DATA 0,0,0,0,0,0,0,0*@ 0553 05FE 0000 DATA 0,0 FLAGS/TIMEOUT FOR REMOTE TERMIN@, 0554 0602BSS >001E CHARACTER QUEUE,: 0555 0620 001E DATA >001E CHARACTER QUEUE LENGTH :D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0016 (( 0556 0622 0000 DATA 0 RESERVED (6 0557 0624 0000 DATA 0,0,0 STATISTIC COUNTERS 64 0558 062A 00 BYTE 0,0 RETRY / LUNO COUNT 46 0559  062C' ENST02 EQU $ POINTER TO NEXT PDT6 0560  *D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0017 (H 0562  ********************************************************** H0 0563  *** LP01 PDT LINE PRINTER*** 0( 0564  ***************************("******************************* "  0565  062C' PSLP01 EQU $ 6 0566 062C 0734'DATA ENLP01  LINK TO NEXT PDT 6< 0567 062E 0138'DATA MPLP01  MAP FILE FOR THE DEVICE<: 0568  0630' PDLP01 EQU $ START OF DSR REGISTERS :0 0569 0630 0000 DATA 0 R0 = DSR SCRATCH02 0570 0632 0000 DATA $-$ R1 = QUEUE LINK 2@ 0571 0634 000D DATA >000D R2 = STATUS FLG/INTERRUPT-1 @< 0572 0636 A102 DATA >A102 R3 = DEVICE FLAGS & TYPE<8 0573 0638 0674'DATA $+60  R4 = DSR TMP STORAGE8< 0574 063A 0000 DATA 0 R5 = DSR SCRCH/CONT I/O FLG <@ 0575 063C 0000 DATA LPSPUR  R6 = PRINTER SPURIOUS INT @0 0576 063E 0000 DATA 0 R7 = DSR SCRATCH0: 0577 0640 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH :8 0578 0648 0060 DATA >0060 R12 = CRU/TILINE ADDR8ESS > 0579 064A 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0580  *** DSR REGISTER EXTENTION *** ,< 0581 0650 0630'DATA $-32  POINTER TO DSR REGISTERS << 0582 0652 0000 DATA LPHAN LINE PRINTER DSR ADDRESS <8 0583 0654 00 BYTE 0,0 DX10 ERROR CODE / FLAGS88 0584 0656 4C TEXT 'LP01'  DEVICE ACCESS NAME 8. 0585 065A 0000 DATA 0 SYSTEM LOG AREA.. 0586 065C 0000 DATA 0 SYSTEM LOG AREA.6 0587 065E 0000 DATA $-$ DEVICE BUFFER ADDRESS6: 0588 0660 0200 DATA >0200 LENGTH OF DEVICE BUFFER:@ 0589 0662 0000 DATA LPINT LINE PRINTER INTERRUPT ENTRY @2 0590 0664 0000 DATA 0,0 UCB QUEUE HEADER 22 0591 0668 0000 DATA 0 QUEUE SERVER (DDT) 2: 0592 066A 0000 DATA 0 SERVER FLAGS/SERVER TASK ID: 0593 066C FF00 DATA >$FF00 STATE (NONE) / QUEUE COUNT $2 0594 066E 1770 DATA >1770 TIME OUT COUNT 22 0595 0670 1770 DATA >1770 TIME OUT COUNT 26 0596 0672 0000 DATA 0 RESERVED FOR FUTURE USE64 0597  * LINE PRINTER PDT EXTENSION04/30/7942 0598 0674 0002 DATA >0002DATA MODULE FLAG26 0599 0676 0000 DATA 0 # OF BUFFERED CHARACTERS6< 0600 0678 0680'DATA $+8POINTER TO NEXT OUTPUT CHAR.<: 0601 067A 0680'DATA $+6 POINTER TO NEXT STORE SLOT:> 0602 067C 00AA DATA 170MAX. NUMBER OF BUFFERED CHAR. >> 0603 067E 0000 DATA 0FLAG TO TRIGGER END RECORD EXIT >* 0604 0680BSS 170CHARACTER BUFFER*( 0605 072A 0000 DATA 0 RESERVED (6 0606 072C 0000 DATA 0,0,0 STATISTIC COUNTERS 64 0607 0732 00 BYTE 0,0 RETRY / LUNO COUNT 4 0608  0734' ENL"P01 EQU $ POINTER TO NEXT PDT" 0609  *D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0018 (H 0611  ********************************************************** H0 0612  *** LP02 PDT LINE PRINTER*** 0H 0613  ********************************************************** H  0614  0734' PSLP02 EQU $ 6 0615 0734 083C'DATA ENLP02  LINK TO NEXT PDT 6< 0616 0736 0138'DATA MPLP02  MAP FILE FOR THE DEVICE<: 0617  0738' PDLP02 EQU $ START OF DSR REGISTERS :0 0618 0738 0000 DATA 0 R0 = DSR SCRATCH02 0619 073A 0000 DATA $-$ R1 = QUEUE LINK 2@ 0620 073C 000E DATA >000E R2 = STATUS FLG/INTERRUPT-1 @< 0621 073E A102 DATA >A102 R3 = DEVICE FLAGS & TYPE< 0622 0740 077C'DA"TA $+60  R4 = DSR TMP STORAGE"< 0623 0742 0000 DATA 0 R5 = DSR SCRCH/CONT I/O FLG <@ 0624 0744 063C'DATA LPSPUR  R6 = PRINTER SPURIOUS INT @0 0625 0746 0000 DATA 0 R7 = DSR SCRATCH0: 0626 0748 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH :< 0627 0750 0020 DATA >0020 R12 = CRU/TILINE ADDRESS <> 0628 0752 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0629  *** DSR REGISTER EXTENTION *** ,< 0630 0758 0738'DATA $-32  POINTER TO DSR REGISTERS << 0631 075A 0652'DATA LPHAN LINE PRINTER DSR ADDRESS <8 0632 075C 00 BYTE 0,0 DX10 ERROR CODE / FLAGS88 0633 075E 4C TEXT 'LP02'  DEVICE ACCESS NAME 8. 0634 0762 0000 DATA 0 SYSTEM LOG AREA.. 0635 0764 0000 DATA 0 SYSTEM LOG AREA.0 0636 0766 0000 DATA $-$ DEVICE BUFFER A0DDRESS: 0637 0768 0200 DATA >0200 LENGTH OF DEVICE BUFFER:@ 0638 076A 0662'DATA LPINT LINE PRINTER INTERRUPT ENTRY @2 0639 076C 0000 DATA 0,0 UCB QUEUE HEADER 22 0640 0770 0000 DATA 0 QUEUE SERVER (DDT) 2: 0641 0772 0000 DATA 0 SERVER FLAGS/SERVER TASK ID:> 0642 0774 FF00 DATA >FF00 STATE (NONE) / QUEUE COUNT >2 0643 0776 1770 DATA >1770 TIME OUT COUNT 22 0644 0778 1770 DATA >1770 TIME OUT COUNT 26 0645 077A 0000 DATA 0 RESERVED FOR FUTURE USE64 0646  * LINE PRINTER PDT EXTENSION04/30/7942 0647 077C 0002 DATA >0002DATA MODULE FLAG26 0648 077E 0000 DATA 0 # OF BUFFERED CHARACTERS6< 0649 0780 0788'DATA $+8POINTER TO NEXT OUTPUT CHAR.<: 0650 0782 0788'DATA $+6 POINTER TO NEXT STORE SLOT: 0651 0784 00AA *DATA 170MAX. NUMBER OF BUFFERED CHAR. *> 0652 0786 0000 DATA 0FLAG TO TRIGGER END RECORD EXIT >* 0653 0788BSS 170CHARACTER BUFFER*( 0654 0832 0000 DATA 0 RESERVED (6 0655 0834 0000 DATA 0,0,0 STATISTIC COUNTERS 64 0656 083A 00 BYTE 0,0 RETRY / LUNO COUNT 46 0657  083C' ENLP02 EQU $ POINTER TO NEXT PDT6 0658  *D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0019 (H 0660  ********************************************************** H( 0661  *** DS02 PDT DISK *** (H 0662  ********************************************************** H  0663  083C' PSDS02 EQU $ 6 0664 083C 08EE'DATA ENDS02  LINK TO NEXT PDT 6< 0665 083E 0128'DATA MPDS02  MAP FILE FOR THE DEVICE<@: 0666  0840' PDDS02 EQU $ START OF DSR REGISTERS :0 0667 0840 0000 DATA 0 R0 = DSR SCRATCH02 0668 0842 0000 DATA $-$ R1 = QUEUE LINK 2@ 0669 0844 000C DATA >000C R2 = STATUS FLG/INTERRUPT-1 @< 0670 0846 5106 DATA >5106 R3 = DEVICE FLAGS & TYPE<8 0671 0848 0884'DATA $+60  R4 = DSR TMP STORAGE8B 0672 084A 0BCE'DATA FGDS01  R5 = DSR SCRCH/CONT I/O FLG B0 0673 084C 0000 DATA 0 R6 = RETRY COUNT0@ 0674 084E 0000 DATA DRTWP R7 = DISK OP COMPLETE VECTOR@: 0675 0850 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH :< 0676 0858 F800 DATA >F800 R12 = CRU/TILINE ADDRESS <> 0677 085A 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0678  *** DSR REGISTER EXTENTION *** ,< 0679 0860 0840'DATA $-32  POINTER TO DSR REGISTERS < 4 0680 0862 0000 DATA DIODSR  DISK DSR ADDRESS 48 0681 0864 00 BYTE 0,0 DX10 ERROR CODE / FLAGS88 0682 0866 44 TEXT 'DS02'  DEVICE ACCESS NAME 84 0683 086A 08D4'DATA >006A+$ SYSTEM LOG AREA4. 0684 086C 0000 DATA 0 SYSTEM LOG AREA.6 0685 086E 0000 DATA $-$ DEVICE BUFFER ADDRESS6: 0686 0870 0000 DATA >0000 LENGTH OF DEVICE BUFFER:8 0687 0872 0000 DATA DTBSY DISK INTERRUPT ENTRY 82 0688 0874 0000 DATA 0,0 UCB QUEUE HEADER 22 0689 0878 0000 DATA 0 QUEUE SERVER (DDT) 2: 0690 087A 0000 DATA 0 SERVER FLAGS/SERVER TASK ID:> 0691 087C FF00 DATA >FF00 STATE (NONE) / QUEUE COUNT >2 0692 087E 0000 DATA >0000 TIME OUT COUNT 22 0693 0880 0000 DATA >0000 TIME OUT COUNT 24 0694 0882 0000 DATA 0 RESERVED FOR FUTURE U4SE8 0695  *** TILINE CONTROLLER DSR TEMP STORAGE *** 8. 0696 0884 0000 DATA 0 TMP OR FMP PRB .$ 0697 0886 00 BYTE 0 OPCODE$& 0698 0887 D2 BYTE >00D2 LUNO&8 0699 0888 0000 DATA 0,0,0,0,0,0REMAINDER OF PRB8> 0700  * SAVED TILINE PARAMETERS ** MT **** DSC ** >: 0701 0894 0000 DATA $-$ SAVED STATUS - WRDS/TRK:> 0702 0896 0000 DATA $-$ MAJOR ERROR CODE - SPT & OHR >> 0703 0898 0000 DATA $-$ MINOR ERROR CODE - HDS & CYL >8 0704 089A 0000 DATA $-$ RESERVED - SPR & RPT 86 0705 089C 0000 DATA $-$ RESERVED - WRDS/RCD6 0706  *TILINE IMAGED 0707 089E FFFF  DATA >FFFF,0,0,0,0,0 TILINE IMAGE WDS 0 - A D8 0708 08AA 0400 DATA >0400 WRD C- UNIT SELECT 88 0709 08AC 1000 DATA >1000 WRD E- TILINE STATU8S ( 0710  * VOLUME CHARACTERISTICS (0 0711 08AEBSS 3*2 INITIALIZATION BUFFER0 0712 08B4 0000 DATA 0. 0713 08B6 20 TEXT ''  VOLUME NAME.( 0714 08BE 0000 DATA 0 NOT USED (( 0715 08C0 0000 DATA 0 NOT USED (< 0716 08C2 0000 DATA $-$ DISK MNGR TABLE/BUFFER ADDR<8 0717 08C4 0000 DATA $-$ MAX # OF ADU'S ON DISK 80 0718 08C6 0000 DATA $-$ SECTORS PER ADU0: 0719 08C8 0120 DATA >0120 PHYSICAL RECORD DEFAULT:D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0020 (4 0720 08CA 0000 DATA 0 DISK UNIT ERROR COUNT4< 0721 08CC 23 TEXT '#0000000'  TEMP FILE NAME SEED<* 0722 08D4BSS 16  SYSTEM LOG AREA*( 0723 08E4 0000 DATA 0 RESERVED ( 0724 08E6 0000 "DATA 0,0,0 STATISTIC COUNTERS "4 0725 08EC 00 BYTE 0,0 RETRY / LUNO COUNT 46 0726  08EE' ENDS02 EQU $ POINTER TO NEXT PDT6 0727  *D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0021 (H 0729  ********************************************************** H( 0730  *** DS03 PDT DISK *** (H 0731  ********************************************************** H  0732  08EE' PSDS03 EQU $ 6 0733 08EE 09A0'DATA ENDS03  LINK TO NEXT PDT 6< 0734 08F0 0128'DATA MPDS03  MAP FILE FOR THE DEVICE<: 0735  08F2' PDDS03 EQU $ START OF DSR REGISTERS :0 0736 08F2 0000 DATA 0 R0 = DSR SCRATCH02 0737 08F4 0000 DATA $-$ R1 = QUEUE LINK 22 0738 08F6 000C DATA >000C R2 = STATUS FL2G/INTERRUPT-1 < 0739 08F8 5106 DATA >5106 R3 = DEVICE FLAGS & TYPE<8 0740 08FA 0936'DATA $+60  R4 = DSR TMP STORAGE8B 0741 08FC 0BCE'DATA FGDS01  R5 = DSR SCRCH/CONT I/O FLG B0 0742 08FE 0000 DATA 0 R6 = RETRY COUNT0@ 0743 0900 084E'DATA DRTWP R7 = DISK OP COMPLETE VECTOR@: 0744 0902 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH :< 0745 090A F800 DATA >F800 R12 = CRU/TILINE ADDRESS <> 0746 090C 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0747  *** DSR REGISTER EXTENTION *** ,< 0748 0912 08F2'DATA $-32  POINTER TO DSR REGISTERS <6 0749 0914 0862'DATA DIODSR  DISK DSR ADDRESS 68 0750 0916 00 BYTE 0,0 DX10 ERROR CODE / FLAGS88 0751 0918 44 TEXT 'DS03'  DEVICE ACCESS NAME 8* 0752 091C 0986'DATA >006A+$ SYSTE* M LOG AREA . 0753 091E 0000 DATA 0 SYSTEM LOG AREA.6 0754 0920 0000 DATA $-$ DEVICE BUFFER ADDRESS6: 0755 0922 0000 DATA >0000 LENGTH OF DEVICE BUFFER:8 0756 0924 0872'DATA DTBSY DISK INTERRUPT ENTRY 82 0757 0926 0000 DATA 0,0 UCB QUEUE HEADER 22 0758 092A 0000 DATA 0 QUEUE SERVER (DDT) 2: 0759 092C 0000 DATA 0 SERVER FLAGS/SERVER TASK ID:> 0760 092E FF00 DATA >FF00 STATE (NONE) / QUEUE COUNT >2 0761 0930 0000 DATA >0000 TIME OUT COUNT 22 0762 0932 0000 DATA >0000 TIME OUT COUNT 26 0763 0934 0000 DATA 0 RESERVED FOR FUTURE USE68 0764  *** TILINE CONTROLLER DSR TEMP STORAGE *** 8. 0765 0936 0000 DATA 0 TMP OR FMP PRB .$ 0766 0938 00 BYTE 0 OPCODE$& 0767 0939 D3 BYTE >00D3 LUNO& 0768 093A 000(0 DATA 0,0,0,0,0,0REMAINDER OF PRB(> 0769  * SAVED TILINE PARAMETERS ** MT **** DSC ** >: 0770 0946 0000 DATA $-$ SAVED STATUS - WRDS/TRK:> 0771 0948 0000 DATA $-$ MAJOR ERROR CODE - SPT & OHR >> 0772 094A 0000 DATA $-$ MINOR ERROR CODE - HDS & CYL >8 0773 094C 0000 DATA $-$ RESERVED - SPR & RPT 86 0774 094E 0000 DATA $-$ RESERVED - WRDS/RCD6 0775  *TILINE IMAGED 0776 0950 FFFF  DATA >FFFF,0,0,0,0,0 TILINE IMAGE WDS 0 - A D8 0777 095C 0200 DATA >0200 WRD C- UNIT SELECT 8: 0778 095E 1000 DATA >1000 WRD E- TILINE STATUS :( 0779  * VOLUME CHARACTERISTICS (0 0780 0960BSS 3*2 INITIALIZATION BUFFER0 0781 0966 0000 DATA 0. 0782 0968 20 TEXT ''  VOLUME NAME. 0783 0970 0000 DATA 0 N OT USED ( 0784 0972 0000 DATA 0 NOT USED (< 0785 0974 0000 DATA $-$ DISK MNGR TABLE/BUFFER ADDR<8 0786 0976 0000 DATA $-$ MAX # OF ADU'S ON DISK 80 0787 0978 0000 DATA $-$ SECTORS PER ADU0: 0788 097A 0120 DATA >0120 PHYSICAL RECORD DEFAULT:D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0022 (4 0789 097C 0000 DATA 0 DISK UNIT ERROR COUNT4< 0790 097E 23 TEXT '#0000000'  TEMP FILE NAME SEED<* 0791 0986BSS 16  SYSTEM LOG AREA*( 0792 0996 0000 DATA 0 RESERVED (6 0793 0998 0000 DATA 0,0,0 STATISTIC COUNTERS 64 0794 099E 00 BYTE 0,0 RETRY / LUNO COUNT 46 0795  09A0' ENDS03 EQU $ POINTER TO NEXT PDT6 0796  *. D$DATA SDSMAC 3.3.0 79.312 13:01:24 WE. DNESDAY, JUL 19, 1989.( D$DATA - DX10 DATA BASE PAGE 0023 (H 0798  ********************************************************** H( 0799  *** DS04 PDT DISK *** (H 0800  ********************************************************** H  0801  09A0' PSDS04 EQU $ 6 0802 09A0 0A52'DATA ENDS04  LINK TO NEXT PDT 6< 0803 09A2 0128'DATA MPDS04  MAP FILE FOR THE DEVICE<: 0804  09A4' PDDS04 EQU $ START OF DSR REGISTERS :0 0805 09A4 0000 DATA 0 R0 = DSR SCRATCH02 0806 09A6 0000 DATA $-$ R1 = QUEUE LINK 2@ 0807 09A8 000C DATA >000C R2 = STATUS FLG/INTERRUPT-1 @< 0808 09AA 5106 DATA >5106 R3 = DEVICE FLAGS & TYPE<8 0809 09AC 09E8'DATA $+60  R4 = DSR TMP STORAGE8B 0810 09AE 0BCE'DATA FGDS01  R5 = DSR SCRCH/CONT I/O FLG B0 0811 09B0 0000 DATA 0 R6 = RETRY COUNT0@ 0812 09B2 0900'DATA DRTWP R7 = DISK OP COMPLETE VECTOR@: 0813 09B4 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH :< 0814 09BC F800 DATA >F800 R12 = CRU/TILINE ADDRESS <> 0815 09BE 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0816  *** DSR REGISTER EXTENTION *** ,< 0817 09C4 09A4'DATA $-32  POINTER TO DSR REGISTERS <6 0818 09C6 0914'DATA DIODSR  DISK DSR ADDRESS 68 0819 09C8 00 BYTE 0,0 DX10 ERROR CODE / FLAGS88 0820 09CA 44 TEXT 'DS04'  DEVICE ACCESS NAME 84 0821 09CE 0A38'DATA >006A+$ SYSTEM LOG AREA4. 0822 09D0 0000 DATA 0 SYSTEM LOG AREA.6 0823 09D2 0000 DATA $-$ DEVICE BUFFER ADDRESS6: 0824 09D4 0000 DATA >0000 LENGTH OF DEVICE BUFFER: 0825 09D6 0924'DATA DTBSY DISK INTERRUPT ENTRY 2 0826 09D8 0000 DATA 0,0 UCB QUEUE HEADER 22 0827 09DC 0000 DATA 0 QUEUE SERVER (DDT) 2: 0828 09DE 0000 DATA 0 SERVER FLAGS/SERVER TASK ID:> 0829 09E0 FF00 DATA >FF00 STATE (NONE) / QUEUE COUNT >2 0830 09E2 0000 DATA >0000 TIME OUT COUNT 22 0831 09E4 0000 DATA >0000 TIME OUT COUNT 26 0832 09E6 0000 DATA 0 RESERVED FOR FUTURE USE68 0833  *** TILINE CONTROLLER DSR TEMP STORAGE *** 8. 0834 09E8 0000 DATA 0 TMP OR FMP PRB .$ 0835 09EA 00 BYTE 0 OPCODE$& 0836 09EB D4 BYTE >00D4 LUNO&8 0837 09EC 0000 DATA 0,0,0,0,0,0REMAINDER OF PRB8> 0838  * SAVED TILINE PARAMETERS ** MT **** DSC ** >: 0839 09F8 0000 DATA $-$ SAVED STATUS - WRDS/TRK:, 0840 09FA 0000 DATA $-$ MAJOR ERROR, CODE - SPT & OHR > 0841 09FC 0000 DATA $-$ MINOR ERROR CODE - HDS & CYL >8 0842 09FE 0000 DATA $-$ RESERVED - SPR & RPT 86 0843 0A00 0000 DATA $-$ RESERVED - WRDS/RCD6 0844  *TILINE IMAGED 0845 0A02 FFFF  DATA >FFFF,0,0,0,0,0 TILINE IMAGE WDS 0 - A D8 0846 0A0E 0100 DATA >0100 WRD C- UNIT SELECT 8: 0847 0A10 1000 DATA >1000 WRD E- TILINE STATUS :( 0848  * VOLUME CHARACTERISTICS (0 0849 0A12BSS 3*2 INITIALIZATION BUFFER0 0850 0A18 0000 DATA 0. 0851 0A1A 20 TEXT ''  VOLUME NAME.( 0852 0A22 0000 DATA 0 NOT USED (( 0853 0A24 0000 DATA 0 NOT USED (< 0854 0A26 0000 DATA $-$ DISK MNGR TABLE/BUFFER ADDR<8 0855 0A28 0000 DATA $-$ MAX # OF ADU'S ON DISK 8" 0856 0A2A 0000 DATA $-$ S"ECTORS PER ADU: 0857 0A2C 0120 DATA >0120 PHYSICAL RECORD DEFAULT:D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0024 (4 0858 0A2E 0000 DATA 0 DISK UNIT ERROR COUNT4< 0859 0A30 23 TEXT '#0000000'  TEMP FILE NAME SEED<* 0860 0A38BSS 16  SYSTEM LOG AREA*( 0861 0A48 0000 DATA 0 RESERVED (6 0862 0A4A 0000 DATA 0,0,0 STATISTIC COUNTERS 64 0863 0A50 00 BYTE 0,0 RETRY / LUNO COUNT 46 0864  0A52' ENDS04 EQU $ POINTER TO NEXT PDT6 0865  *D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0025 (H 0867  ********************************************************** H, 0868  *** MT01 PDT MAG TAPE*** , 0869  *******6*************************************************** 6  0870  0A52' PSMT01 EQU $ 6 0871 0A52 0B1E'DATA ENMT01  LINK TO NEXT PDT 6< 0872 0A54 0158'DATA MPMT01  MAP FILE FOR THE DEVICE<: 0873  0A56' PDMT01 EQU $ START OF DSR REGISTERS :0 0874 0A56 0000 DATA 0 R0 = DSR SCRATCH02 0875 0A58 0000 DATA $-$ R1 = QUEUE LINK 2@ 0876 0A5A 0002 DATA >0002 R2 = STATUS FLG/INTERRUPT-1 @< 0877 0A5C C108 DATA >C108 R3 = DEVICE FLAGS & TYPE<8 0878 0A5E 0A9A'DATA $+60  R4 = DSR TMP STORAGE8B 0879 0A60 0AFC'DATA FGMT01  R5 = DSR SCRCH/CONT I/O FLG B0 0880 0A62 0000 DATA 0 R6 = RETRY COUNT0> 0881 0A64 0000 DATA TRTWP R7 = MT OP COMPLETE VECTOR>: 0882 0A66 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH : 0883 0A6E F880 DATA >F880  R12 = CRU/TILINE ADDRESS > 0884 0A70 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0885  *** DSR REGISTER EXTENTION *** ,< 0886 0A76 0A56'DATA $-32  POINTER TO DSR REGISTERS <8 0887 0A78 0000 DATA MTHAN MAG TAPE DSR ADDRESS 88 0888 0A7A 00 BYTE 0,0 DX10 ERROR CODE / FLAGS88 0889 0A7C 4D TEXT 'MT01'  DEVICE ACCESS NAME 84 0890 0A80 0AE4'DATA >0064+$ SYSTEM LOG AREA4. 0891 0A82 0000 DATA 0 SYSTEM LOG AREA.6 0892 0A84 0000 DATA $-$ DEVICE BUFFER ADDRESS6: 0893 0A86 0000 DATA >0000 LENGTH OF DEVICE BUFFER:< 0894 0A88 0000 DATA MTINT MAG TAPE INTERRUPT ENTRY <2 0895 0A8A 0000 DATA 0,0 UCB QUEUE HEADER 22 0896 0A8E 0000 DATA 0 QUEUE SERVER (DDT) 2: 0897 0A90 0000 DATA 0 SERVER FLAGS/SERVER TASK ID: 08988 0A92 FF00 DATA >FF00 STATE (NONE) / QUEUE COUNT 82 0899 0A94 0000 DATA >0000 TIME OUT COUNT 22 0900 0A96 0000 DATA >0000 TIME OUT COUNT 26 0901 0A98 0000 DATA 0 RESERVED FOR FUTURE USE68 0902  *** TILINE CONTROLLER DSR TEMP STORAGE *** 8. 0903 0A9A 0000 DATA 0 TMP OR FMP PRB .$ 0904 0A9C 00 BYTE 0 OPCODE$& 0905 0A9D E1 BYTE >00E1 LUNO&8 0906 0A9E 0000 DATA 0,0,0,0,0,0REMAINDER OF PRB8> 0907  * SAVED TILINE PARAMETERS ** MT **** DSC ** >: 0908 0AAA 0000 DATA $-$ SAVED STATUS - WRDS/TRK:> 0909 0AAC 0000 DATA $-$ MAJOR ERROR CODE - SPT & OHR >> 0910 0AAE 0000 DATA $-$ MINOR ERROR CODE - HDS & CYL >8 0911 0AB0 0000 DATA $-$ RESERVED - SPR & RPT 86 0912 0AB2 0000 DATA $-$ RESERVED - WRDS/RCD6 0913  *TILINE IMAGED 0914 0AB4 0000  DATA >0000,0,0,0,0,0 TILINE IMAGE WDS 0 - A D8 0915 0AC0 8000 DATA >8000 WRD C- UNIT SELECT 8: 0916 0AC2 1000 DATA >1000 WRD E- TILINE STATUS :( 0917  * VOLUME CHARACTERISTICS (0 0918 0AC4BSS 3*2 INITIALIZATION BUFFER0 0919 0ACA 0000 DATA 0. 0920 0ACC 20 TEXT ''  VOLUME NAME.: 0921 0AD4 0000 DATA $-$ TAPE MANAGER TSB ADDRESS :< 0922 0AD6 0000 DATA $-$ TAPE MANAGER TASK AREA ADR << 0923 0AD8 0000 DATA $-$ TAPE MNGR TABLE/BUFFER AREA<* 0924 0ADA 0000 DATA 0,0 RESERVED *@ 0925 0ADE FFFF DATA -1,-1 TAPE MNGR & FUTILITY LOCKOUT @ 0926 0AE2 0000 DATA 0D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0026 (* 0927 0AE4BSS 16  SYSTEM LOG AREA*F 0928  *********************************************************FF 0929  ******** WORKSPACE FOR INTERRUPT DECODER**************FB 0930  ********  SUPPORTS ONE TO FOUR PDTS **************BF 0931  *********************************************************F  0932  0AF4' WPMT01 EQU $ : 0933 0AF4 0A56'DATA PDMT01  R0 = PDT FOR UNIT 0 :4 0934 0AF6 0000 DATA 0 R1 = PDT FOR UNIT 1 44 0935 0AF8 0000 DATA 0 R2 = PDT FOR UNIT 2 44 0936 0AFA 0000 DATA 0 R3 = PDT FOR UNIT 3 44 0937 0AFC 0000 FGMT01 DATA 0 R4 = I/O FLAGS4. 0938 0AFE 0000 DATA $-$ R5 = BLWP WP.. 0939 0B00 0000 DATA $-$ R6 = BLWP PC.6 0940 0B02 0000 DATA 0,0,0,0 R7-R10 = SCRATCH 6( 0941 0B0A 0000 DATA $-$ R11 = L(INKAGE REGISTER < 0942 0B0C F880 DATA >F880 R12 = TILINE/CRU ADDRESS <> 0943 0B0E 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >( 0944 0B14 0000 DATA 0 RESERVED (6 0945 0B16 0000 DATA 0,0,0 STATISTIC COUNTERS 64 0946 0B1C 00 BYTE 0,0 RETRY / LUNO COUNT 46 0947  0B1E' ENMT01 EQU $ POINTER TO NEXT PDT6 0948  *D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0027 (H 0950  ********************************************************** H( 0951  *** DS01 PDT DISK *** (H 0952  ********************************************************** H  0953  0B1E' PSDS01 EQU $ 6 0954 0B1E 0000 DATA ENDS01  LINK TO NEXT PDT 6< 0955 0B20 0128'DATA MPDS01  MAP FILE FOR THE DEVICE<: 0956  0B22' PDDS01 EQU $ START OF DSR REGISTERS :0 0957 0B22 0000 DATA 0 R0 = DSR SCRATCH02 0958 0B24 0000 DATA $-$ R1 = QUEUE LINK 2@ 0959 0B26 000C DATA >000C R2 = STATUS FLG/INTERRUPT-1 @< 0960 0B28 5106 DATA >5106 R3 = DEVICE FLAGS & TYPE<8 0961 0B2A 0B66'DATA $+60  R4 = DSR TMP STORAGE8B 0962 0B2C 0BCE'DATA FGDS01  R5 = DSR SCRCH/CONT I/O FLG B0 0963 0B2E 0000 DATA 0 R6 = RETRY COUNT0@ 0964 0B30 09B2'DATA DRTWP R7 = DISK OP COMPLETE VECTOR@: 0965 0B32 0000 DATA 0,0,0,0 R8-R11 = DSR SCRATCH :< 0966 0B3A F800 DATA >F800 R12 = CRU/TILINE ADDRESS <> 0967 0B3C 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST >, 0968  *** DSR REGISTER EXTENTION *** ,< 0969 0B42 0B22'DATA $-32  POINTER TO DSR REGISTERS < 4 0970 0B44 09C6'DATA DIODSR  DISK DSR ADDRESS 48 0971 0B46 00 BYTE 0,0 DX10 ERROR CODE / FLAGS88 0972 0B48 44 TEXT 'DS01'  DEVICE ACCESS NAME 84 0973 0B4C 0BB6'DATA >006A+$ SYSTEM LOG AREA4. 0974 0B4E 0000 DATA 0 SYSTEM LOG AREA.6 0975 0B50 0000 DATA $-$ DEVICE BUFFER ADDRESS6: 0976 0B52 0000 DATA >0000 LENGTH OF DEVICE BUFFER:8 0977 0B54 09D6'DATA DTBSY DISK INTERRUPT ENTRY 82 0978 0B56 0000 DATA 0,0 UCB QUEUE HEADER 22 0979 0B5A 0000 DATA 0 QUEUE SERVER (DDT) 2: 0980 0B5C 0000 DATA 0 SERVER FLAGS/SERVER TASK ID:> 0981 0B5E FF00 DATA >FF00 STATE (NONE) / QUEUE COUNT >2 0982 0B60 0000 DATA >0000 TIME OUT COUNT 22 0983 0B62 0000 DATA >0000 TIME OUT COUNT 24 0984 0B64 0000 DATA 0 RESERVED FOR FUTURE U4SE8 0985  *** TILINE CONTROLLER DSR TEMP STORAGE *** 8. 0986 0B66 0000 DATA 0 TMP OR FMP PRB .$ 0987 0B68 00 BYTE 0 OPCODE$& 0988 0B69 09 BYTE >0009 LUNO&8 0989 0B6A 0000 DATA 0,0,0,0,0,0REMAINDER OF PRB8> 0990  * SAVED TILINE PARAMETERS ** MT **** DSC ** >: 0991 0B76 0000 DATA $-$ SAVED STATUS - WRDS/TRK:> 0992 0B78 0000 DATA $-$ MAJOR ERROR CODE - SPT & OHR >> 0993 0B7A 0000 DATA $-$ MINOR ERROR CODE - HDS & CYL >8 0994 0B7C 0000 DATA $-$ RESERVED - SPR & RPT 86 0995 0B7E 0000 DATA $-$ RESERVED - WRDS/RCD6 0996  *TILINE IMAGED 0997 0B80 FFFF  DATA >FFFF,0,0,0,0,0 TILINE IMAGE WDS 0 - A D8 0998 0B8C 0800 DATA >0800 WRD C- UNIT SELECT 88 0999 0B8E 1000 DATA >1000 WRD E- TILINE STATU8S ( 1000  * VOLUME CHARACTERISTICS (0 1001 0B90BSS 3*2 INITIALIZATION BUFFER0 1002 0B96 0000 DATA 0. 1003 0B98 20 TEXT ''  VOLUME NAME.( 1004 0BA0 0000 DATA 0 NOT USED (( 1005 0BA2 0000 DATA 0 NOT USED (< 1006 0BA4 0000 DATA $-$ DISK MNGR TABLE/BUFFER ADDR<8 1007 0BA6 0000 DATA $-$ MAX # OF ADU'S ON DISK 80 1008 0BA8 0000 DATA $-$ SECTORS PER ADU0: 1009 0BAA 0120 DATA >0120 PHYSICAL RECORD DEFAULT:D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0028 (4 1010 0BAC 0000 DATA 0 DISK UNIT ERROR COUNT4< 1011 0BAE 23 TEXT '#0000000'  TEMP FILE NAME SEED<* 1012 0BB6BSS 16  SYSTEM LOG AREA*@ 1013  ***************************************************@******F 1014  ******** WORKSPACE FOR INTERRUPT DECODER**************FB 1015  ********  SUPPORTS ONE TO FOUR PDTS **************BF 1016  *********************************************************F  1017  0BC6' WPDS01 EQU $ : 1018 0BC6 0B22'DATA PDDS01  R0 = PDT FOR UNIT 0 :: 1019 0BC8 0840'DATA PDDS02  R1 = PDT FOR UNIT 1 :: 1020 0BCA 08F2'DATA PDDS03  R2 = PDT FOR UNIT 2 :: 1021 0BCC 09A4'DATA PDDS04  R3 = PDT FOR UNIT 3 :4 1022 0BCE 0000 FGDS01 DATA 0 R4 = I/O FLAGS4. 1023 0BD0 0000 DATA $-$ R5 = BLWP WP.. 1024 0BD2 0000 DATA $-$ R6 = BLWP PC.6 1025 0BD4 0000 DATA 0,0,0,0 R7-R10 = SCRATCH 68 1026 0BDC 0000 DATA $-$ R11 = LINKAGE REGISTER 8< 1027 0BDE F800 DATA >F800 R12 = TILINE/CRU ADDRESS < 1:028 0BE0 0000 DATA $-$,$-$,$-$ R13-R15 = WP,PC & ST :6 1029  0000 ENDS01 EQU 0 POINTER TO NEXT PDT6 1030  *D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0029 (& 1032  0B1E' DIOPDT EQU PSDS01 &4 1033  0BE6' PSBLST EQU $ START OF PSB LIST4 1034  * 1035  * SYSTEM PSB  1036  *6 1037 0BE6 0180 DATA >180  PROCEDURE ID/FLAGS 6, 1038 0BE8 0000 DATA 0 BEET ADDRESS ,. 1039 0BEA 0600 DATA >600  BEET LENGTH.6 1040 0BEC 0000 PSBSTR DATA 0 LINK TO NEXT PSB 66 1041 0BEE 0000 DATA $-$ PROGRAM FILE FCB PTR 66 1042 0BF0 0101 DATA >101  ATTACHED/BUSY COUNT6( 1043 0BF2 0000 DATA 0 ROLL LINK(2 1044 0BF4 0000 DATA 0,0 REL REC # IN FILE2  1045 &0BF8 0000 DATA 0 # ROLL RECORDS &D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0030 (H 1047  *START OF GLOBAL LDT LIST* * * * * * * * * * * * * * * * H  1048  0BFA' LDTLST EQU $ < 1049 0BFA 0B1E'DATA PSDS01  SYSTEM DISK PDT ADDRESS<: 1050 0BFC 09 BYTE 9,0 LUNO / INITIATE I/O COUNT:4 1051 0BFE 8880 DATA >8880 FLAGS (LIST HEAD)4* 1052 0C00 0C04'DATA $+4 NEXT LDT ** 1053 0C02 0000 DATA 0 TSB ADDRESS*( 1054  *** SECONDARY DISK LDT ****(0 1055 0C04 083C'DATA PSDS02 PDT ADDRESS 0& 1056 0C06 D2 BYTE >00D2LUNO&0 1057 0C07 00 BYTE 0 INITIATE I/O FLAGS0, 1058 0C08 0880 DATA >880 LDT FLAGS ,( 1059 0C0A 0C0E'DATA $+4 LDT LINK( 1060 0C0C 0000 DATA 0 TS B ADDRESS  1061  *( 1062  *** SECONDARY DISK LDT ****(0 1063 0C0E 08EE'DATA PSDS03 PDT ADDRESS 0& 1064 0C10 D3 BYTE >00D3LUNO&0 1065 0C11 00 BYTE 0 INITIATE I/O FLAGS0, 1066 0C12 0880 DATA >880 LDT FLAGS ,( 1067 0C14 0C18'DATA $+4 LDT LINK(* 1068 0C16 0000 DATA 0 TSB ADDRESS * 1069  *( 1070  *** SECONDARY DISK LDT ****(0 1071 0C18 09A0'DATA PSDS04 PDT ADDRESS 0& 1072 0C1A D4 BYTE >00D4LUNO&0 1073 0C1B 00 BYTE 0 INITIATE I/O FLAGS0, 1074 0C1C 0880 DATA >880 LDT FLAGS ,( 1075 0C1E 0C22'DATA $+4 LDT LINK(* 1076 0C20 0000 DATA 0 TSB ADDRESS * 1077  *" 1078  *** GLOBAL LUNO 0 ***"0 1079 0C22 04C8'DATA PSST01  PDT ADDRESS0* 1080 0C24 00 BYTE 0,0 LUNO / IN*IT I/O COUNT, 1081 0C26 0880 DATA >880  LDT FLAGS,( 1082 0C28 0000 DATA 0 LDT LINK (* 1083 0C2A 0000 DATA 0 TSB ADDRESS*D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0031 (* 1085  * START OF SYSTEM LOG DATA *H 1086 0C2C 00 SLNLUN BYTE 0,0LUNO OF CURRENT FILE / OTHER LUNO HH 1087 0C2E 00 SLNLID BYTE 0,0SYSTEM LOG EATER ID/USER LOG EATERH> 1088 0C30 06 SLNQUE BYTE >0006 MAX # OF QUEUE ENTRIES>6 1089 0C31 58 SLNFLG BYTE >58SYSTEM LOG FLAGS6@ 1090 0C32 0000 SLNMCA DATA 0MEMORY CONTROLLER ADDRESSES @4 1091  * START OF THE DYNAMIC SYSTEM TABLE. 4" 1092  * SYSTEM TABLE AREA "J 1093 0C34 0160 IOSMAX DATA >0160LIMIT ON TABLE AREA FOR I/O BUFFS J 1094 0C36 0000 IOS&STA DATA 0 # OF BYTES IOS IS USING &D 1095 0C38 0000 IOSHBC DATA 0HIGHEST AMOUNT EVER USED BY IOS DF 1096  00C8 ITSKMX EQU >00C8LIMIT ON INTERTASK MESSAGE AREA FH 1097 0C3A 0000 ITSKCR DATA $-$CURRENTLY USED AREA FOR INTERTASK H< 1098 0C3C 0000 CMEMSZ DATA $-$ CRASH FILE DUMP LENGTH<  1099  0C3E' SYSTAB EQU $ 6 1100 0C3E 3228 DATA TABSIZ  SIZE OF AVAIL AREA66 1101 0C40 0000 DATA 0 PTR TO NEXT AVAIL BLOCK 6 1102 0C3ERORG SYSTAB  1103 0C3EBSS TABSIZ   1104  3E66' ENDSTB EQU $ * 1105  *** SCI LIMIT PARAMETERS *** *J 1106 3E66 0002 SCIBMX DATA >0002MAX LIMIT ON ACTIVE SCI BACKGROUNDJJ 1107 3E68 0008 SCIFMX DATA >0008MAX LIMIT ON ACTIVE SCI FOREGROUNDJH 1108 3E6A 0000 SCIFCR DATA $-$NUMBER OF FOREGROUND TASKS ACTIVE HOSL@& 1109  *** BREAK POINT TABLE ***&B 1110 3E6C 0060 BPTDATA >0060 NUMBER OF BREAK POINTS * 3 B 1111 3E6E 0000 DATA 0,0,0 1112 3E74 0000 DATA 0,0,0 1113 3E7A 0000 DATA 0,0,0 1114 3E80 0000 DATA 0,0,0 1115 3E86 0000 DATA 0,0,0 1116 3E8C 0000 DATA 0,0,0 1117 3E92 0000 DATA 0,0,0 1118 3E98 0000 DATA 0,0,0 1119 3E9E 0000 DATA 0,0,0 1120 3EA4 0000 DATA 0,0,0 1121 3EAA 0000 DATA 0,0,0 1122 3EB0 0000 DATA 0,0,0 1123 3EB6 0000 DATA 0,0,0 1124 3EBC 0000 DATA 0,0,0 1125 3EC2 0000 DATA 0,0,0 1126 3EC8 0000 DATA 0,0,0 D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0032 (6 1128 3ECE 3ED0' OADPTR DATA $+2 POINTER TO NEWE6 ST OVERLAY > 1129 3ED0 41F6'DATA $+806,-1,-1 POINTER TO NEXT BUFFER>. 1130 3ED6BSS 800 SYSTEM OVERLAY AREA . 1131  *8 1132 41F6 0000 DATA 0,-1,-1 LAST SYSTEM OVERLAY 8. 1133 41FCBSS 800 SYSTEM OVERLAY AREA .D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0033 ( 1135 449CRORG $->80H 1136  ***********************************************************HB 1137  ***INTERRUPT & XOP TRAP INITIALIZATION TABLE: ***B@ 1138  *** MEMORY IS USED FOR SYSTEM OVERLAY AREA  ***@: 1139  *** AFTER INITIALIZATION IS COMPLETE  ***:H 1140  ***********************************************************H 1141  449C' XY EQU $B 1142 449C 0000  DATA PRUPWP,PWRUP  0 INTERRUPT TRAP TABLE B@B 1143 44A0 0000  DATA PWRWSP,PWRDN 1  LOC 0-3F IN MEMORY B( 1144 44A4 0000 DATA IIWSP,IIE2 (D 1145 44A8 4516'DATA WSP3,PCS 3 STANDARD INTERRUPT DECODER D& 1146 44AC 4524'DATA XWS,IX 4 &< 1147 44B0 0000  DATA CLKWSP,CLKPC  5 CLOCK INTERRUPT<& 1148 44B4 4524'DATA XWS,IX 6 && 1149 44B8 4524'DATA XWS,IX 7 &D 1150 44BC 4528'DATA WSP8,PCS 8 STANDARD INTERRUPT DECODER D& 1151 44C0 4524'DATA XWS,IX 9 &F 1152 44C4 453A'DATA WSPA,PCS  10 STANDARD INTERRUPT DECODER F( 1153 44C8 4524'DATA XWS,IX  11 (( 1154 44CC 4524'DATA XWS,IX  12 (F 1155 44D0 454C'DATA WSPD,PCS  13 STANDARD INTERRUPT DECODER FF 1156 44D4 455E'DATA WSPE,PCS  14 STANDARD INTERRUPT DECODER F: 1157 44D8 4570'DATA WSPF,PCS  15 STANDARD INTERR:UPT DECODER < 1158 44DC 0000  DATA SCWSP,ILLSVC  0 XOP TRAP TABLE <B 1159 44E0 44DC' DATA SCWSP,ILLSVC 1  LOC 40-7F IN MEMORY B, 1160 44E4 44E0' DATA SCWSP,ILLSVC 2 ,, 1161 44E8 44E4' DATA SCWSP,ILLSVC 3 ,, 1162 44EC 44E8' DATA SCWSP,ILLSVC 4 ,, 1163 44F0 44EC' DATA SCWSP,ILLSVC 5 ,, 1164 44F4 44F0' DATA SCWSP,ILLSVC 6 ,, 1165 44F8 44F4' DATA SCWSP,ILLSVC 7 ,, 1166 44FC 44F8' DATA SCWSP,ILLSVC 8 ,, 1167 4500 44FC' DATA SCWSP,ILLSVC 9 ,. 1168 4504 4500' DATA SCWSP,ILLSVC  10 .. 1169 4508 4504' DATA SCWSP,ILLSVC  11 .. 1170 450C 4508' DATA SCWSP,ILLSVC  12 .. 1171 4510 450C' DATA SCWSP,ILLSVC  13 .. 1172 4514 4510' DATA SCWSP,ILLSVC  14 .. 1173 4518 4514' DATA SCWSP,SVCPRC  15 . 1174  *********& END OF TRAP INITIALIZATION ********&D D$DATA SDSMAC 3.3.0 79.312 13:01:24 WEDNESDAY, JUL 19, 1989.D( D$DATA - DX10 DATA BASE PAGE 0034 (H 1176  ********************************************************** H8 1177  ******* INTERRUPT DECODER ************ 8H 1178  ********************************************************** HF 1179  ** WHENEVER AN INTERRUPT IS ENCOUNTERD, CONTROL WILL BEFB 1180  **  TRANSFERED TO THIS MODULE. FROM HERE IT WILL GOBB 1181  ** TO THE DSR AND RETURN HERE ON COMPLETION. THIS B8 1182  ** MODULE WILL THEN EXIT THROUGH TRPRTN. 8P 1183 451C 4000 EXPTST DATA >4000,>2000,>1000,>800  TEST BITS FOR EXP CHASP0 1184  4524' XWSEQU $ DUMMY WORKSPACE0" 1185  * WORKSPACE POINTERS " 1186  * 1187  4516' WSP3 EQU $-14  R0-R6> 1188 4524 4526'DATA $+2,WPMT01,MTINT,MPMT01 MAG TAPE >. 1189 452C 0000 DATA 0,0,0,0,0 R11-R15. 1190  *, 1191  4528' WSP8 EQU $-14  R0-R6,> 1192 4536 4538'DATA $+2,KBST02,KBI911,MPST02  911 CRT>. 1193 453E 0000 DATA 0,0,0,0,0 R11-R15. 1194  *, 1195  453A' WSPA EQU $-14  R0-R6,> 1196 4548 454A'DATA $+2,KBST01,KBI911,MPST01  911 CRT>. 1197 4550 0000 DATA 0,0,0,0,0 R11-R15. 1198  *, 1199  454C' WSPD EQU $-14  R0-R6,: 1200 455A 455C'DATA $+2,WPDS01,DINT,MPDS01  DISK :. 1201 4562 0000 DATA 0,0,0,0,0 R11-R15. 1202  *, 1203  455E' WSPE EQU $-14  R0-R6,B 1204 456C 456E'DATA $+2,PDLP01,LPINT,MPLP01 LINE PRINTER B$ 1205 4574 0000 DATA 0,0,0,0,0$  R11-R15  1206  *, 1207  4570' WSPF EQU $-14  R0-R6,B 1208 457E 4580'DATA $+2,PDLP02,LPINT,MPLP02 LINE PRINTER B. 1209 4586 0000 DATA 0,0,0,0,0 R11-R15. 1210  *> 1211  4590' PCSEQU $SINGLE DEVICE PER INT DECODER >F 1212 4590 C2E0 MOV @CURMAP,R11 SAVE CURRENT MAP FILE POINTERF 4592 00D2'F 1213 4594 C80A MOV R10,@CURMAP SET DSR MAP UP AS CURRENT MAPF 4596 00D2'> 1214 4598 032A LMF R10,0 ---- LOAD DSR MAP FILE --- >4 1215 459A 0417 BLWP *R7 ---- ENTER DSR ----4D 1216 459C C80B RETURN MOV R11,CURMAP  RESTORE OLD MAP FILE D 459E 00D2'B 1217 45A0 032B LMF R11,0 --- LOAD PREVIOUS MAP FILE --- B6 1218 45A2 0460 B  @TRAPRT RETURN TO SYSTEM 6 45A4 0000  1219  *==========2===== SYSTEM CRASH CONDITIONS ==================2@ 1220 45A6 0000 CTABXDATA 0 BAD CHASSIS (0 LENGTH TAB) @. 1221  45A8' IX EQU $ BAD INTERRUPT.2 1222 45A8 0420 BLWP @SCRASH SYSTEM CRASH 2 45AA 0000 8 1223 45AC 0020 DATA >20 ILLEGAL INTERRUPT LEVEL 8 1224 END  NO ERRORS, NO WARNINGS 4592 00D2'F 1213 4594 C80A MOV R10,@CURMAP SET DSR MAP UP AS CURRENT MAPF 4596 00D2'> 1214 4598 032A LMF R10,0 ---- LOAD DSR MAP FILE --- >4 1215 459A 0417 BLWP *R7 ---- ENTER DSR ----4D 1216 459C C80B RETURN MOV R11,CURMAP  RESTORE OLD MAP FILE D 459E 00D2'B 1217 45A0 032B LMF R11,0 --- LOAD PREVIOUS MAP FILE --- B6 1218 45A2 0460 B  @TRAPRT RETURN TO SYSTEM 6 45A4 0000  1219  *==========@R( \@@\\@@\\@@\\@@\\@@\\@@\\@@\\ %RN& %@Ln@\~~~~~~~~~~~~~~~~@@@@@~~~~~~~~~~~~~~~~@NB %@Ln@\\\\\\\\\\\\\\\\\\\@@[@\\\\\\\\\\\\\\\\\@B %@Ln@@$ %@M@]@o@@@@@@@@@@$, %@@@@@@@\\@@\\@,, %@@@@@@@@@\\@@\\@,& %@@@@@@@@@@@@@@@@@@@@@&( %@@@@@@@@@@@@@@@@@@@@@@@@(& %zz@k@@k@K@&8 %@Ln@@@@@@~@K[KK[k88 %@Ln@@@@@@@@@~@K[KK[k8" %@Ln@@@@@@@@@@@~@[k"* %@Ln@@@@@@@@@~@Mkk]@*< %@@@@@@@@@@@@@K[KK[<< %@@@@@@@@@@@@@K[KK[<  #0000000  : }j zMT01 }  Q  n}T zDS05 V} `#0000000 B Q n}T zDS06 (} `#0000000 Q }T FzDS01 }   #0000000 F D B (2 < @F P ZhX`2(`(TI2IBM (ASCII TO EBCDIC CONVERSION),( INPUT ACCESS NAME = ACNM,$OUTPUT ACCESS NAME = ACNM(MT01),$"DELETE CONTROL CHAR=*YESNO(NO)"$ALL=>22,A=.EBCASC.CONVERT,P=Y $*.IF "&DELETE CONTROL CHAR", EQ, "YES" *.BID TASK=>01,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME, "YES")" .ELSE % .BID TASK=>01,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME,"")  .ENDIF%  .IF "@$$CC", NE ,"00000" MSG T="ERROR @$$CC"  .ENDIF% RLL=>22 "S01$$SYS$CDS4$E$C0$ACCTACCTXXX$DSAL.DSAL$ACTVACTV$ARCHARCH$TMHCS AMHCDEV.TMHCSLP01PR01$XCC$OBAMHCDEV.TMHCS.OBJ.ASCCONV$XCC$LAMHCDEV.TMHCS.LST.ASCCONV$XLE$OBAMHCDEV.TMHCS.PROG$$OBAMHCDEV.TMHCS.PROG$XLE$L.L$XLE$CAMHCDEV.TMHCS.LCF.ASCCONV$$BC00000$XE$.CDSPROC.ASP F 0Q@))PP 4X Y +4 H0 j+ X@DD0 HF  Id "%@@ @BI6Y`f&fD1F*)J@ J # #+P#{ ##H+PAD.oo ooq:pG\GG\GyjxjG\GG\GGNGG`GGrGGGG\GGGGGGGnҔnҔnҔnҔnҔnҔnҔnҔnҔnҔnҔnҔnҔnҔnҔnҔ @ G^bLGp }GLG f~G ~G|pG|pr r* r+`e b ΋a KhiCiKNȡءءKj`aޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭޭi@@`u `Q Q@ QÞQQQQCJL΋ajRR " 0SR\R`a b5΋a aRvRd@SRp" #j#SR`HJʄʂ`a a a b4΋a aa 0#  +BSSʁ a`b b6΋a  D@H SS~b#" SSt aj 2\S~`a`J b2΋a ΋a ΀΂ƢκUS*`bd`lz d`l΋a a΋a aTT` QcBx##6#!$DK   [`Kʂx#23 a`a΋aTTcA@B((`b΋@  "@ "@ b  `b$΋a  K `2 i`a0΋a^U^! B %J;?8d6 8C F-ad"7 F9CaEd8e=8 6 =Cʁʃʆ`a&  sF 0aaFSE΋aKtiZtj Zz["KtjZt`b nZΧ6Χ8 Zm! Q[XxBM a-_RX[>C'ISZtSX 3 SC%SZtZ[>/ZX U`Zg J  a`ZNIJ JJ ' JG^4Zt]ZpƘJ J hkYfKkZtG!TkZt^Y ag  x`J g"x`J IJFZ  y KBjZtIlZt\Zl a@IJ IJF Z  GjHZtjZtDlVZt aG! kZtJ^Z@YJ a@YJIJ8J6g1@ Zx Zx b#Z~XB` ΋aZC[m! QmmJ `a΋aZB C `b΋ZaZ[@ Z:C` "BB@ ``$TA@ bbbbN PR@ bNF@ `a΋a`b ΋a a[A95   [['[ a"[ʄ`  J  a`a΋a aQ āˆ   !S  J ӂä] b!΋΁ aA'#Ȍ]]~Bd[R""@́ a`b  b0΋΁ aAv@  Ɓ{K@Q΋]]@`b$΋a a`` + JK^4^]^ a`b ΋a aPU ! l^\^  ^^"^^baeN^ a+΋aa " xJ   "b ! bl^\^j]^`b ^ bD΋a΋aC S_Lʂʪ `^*V"_F‚`a b*΋a W jP` !H>b9" J5"J `H.*b(,J "" J!" J J`"NN`I @ q!N"Pb  `0`b*ƚ``0x *T@erK`^4\`k`c`eRLd`X`Sv2(hT`G@@NQrQrAKV`i`i`i`i`j`Q`a`a`a`a`a`a`a`a`a`b$`b `b`a`a`a`a`a`a`a`\`]`]`[b:b`j`k`jHK`eN`t `t|`u`{r`y`y`WR`V8`S`~` BL`\bVXZ^b}bbbNlz tsKbFnҕ!J`V*`ThefPefZeffHJJΉΈ·Ά΅΄΃΂΁[* ******* *{;{;{J[kbHbbb:b`2b:bbzbt\bpb:bbB 212@Mj 5DbZKp < ` À `b8M b}p8 bpG J J _ >N:N b`b bNbzb5D x&&cbb q=ơ==Mb}bb b bbbHb:22 bI@nc h `~8@ J rÒ`f4΋a aV Z $T  P#XKJC $" J" J6*Ƞ@eeBjHeZJȪȪȄ$ Ȅ^ȠJ\ʂ a`aB]eZJf]dȣ $ȃȅ eHp!eH A $ eH تځ؁ 2ȀȠKjejȠ@ȌJ ΋  @  *B D `b$΋ aab  a΋΁b@BBBBkDBFDȋFȁD`b  b#`'J``1 `J fnҕJN>Nd` ``e``e b,΋a+ JKjf`a΋al1 #-DD)hbg,   +# $ `hV  , ,(,* # , ? ;| auΏΎ΍Π hLÄ h #;C h  M!α@ hhuhht" A$D؀ؠJJ!"̱ h5*úz m: a`e a J`a΋a  bvu!AZ5,  4+( $"(@   @ * erv`wlШBeNxj(@t $`Li i i@V5X5 u  !@ > Nd Tww ww"tjxjt&&h a Q B͂"  S`C B͂ŁeZ,B B傠h >a ?  ah y,exj t t%KBjxj a )h@jHxj`u A ttjxjI ixj a΋V $^  6Gf СI aJx>x4Е ']x8# SuAp Qa@ a  S aJ `b$/s΋ EB qE%ssFsV* b@nxv{ aKkyOl{ÂJ  a R!Tk{_xKJ o ! o"! \{ KBj{lV{Kj{KJ Nlz{KB`zo Qb? b.A2B`BJ oR  JJ `zoZ`0/o  ~@zo"~@zCF VFXzÃH ao   'n"  'e  L ~yM"~yNPz Llz{͢G W"Mlz{6ŢmH X aN`GɁJ eRKBk{K{& J / 87Nlz{Oj{.J\{ \{ \{ JJJ&J KBk{O^4{K8j{J a`K a`xvJ c b- b# b!|{N/J b!ˇ K$j{NKV ak{. aï`ZoJT$n^Am   ti{2o bNТM x>{55 |5|tj{2 aˠn aNajH{2/Jۉ۠J  aHo  aF( X  FT{8S{8|M|V*{8E`{8FIH bHFS{8 2=A $R`~ |L ak~oa  !tM2o ( #'er~ c^۠JˠNjH/ aۃۇ ˆtЯ ;##o / D o %Th~" "RDAO%Я qDuD Mj a`|/$`KjK$΋΁!aA@p p QX~zjCB`b J΋a@S~`X*T`^*\o^ʂ" ʂʃ*V*~*`a b*΋a$  S\$~LC*Dd 1D! lVLY J`a΋a$Z/ \? .C2K`$V~pCO/ tNP kPT$^o,,  a&*/? 24 @c@ c a(  o  Q Ao"Q AcJ J JO!TlVp`a END END END END  $@$!R H ȀHD Z K@Ж@@ P$h44d 0 01"jRL&HB@h,@ X`DJl`4(0i  I@`  P bJJ[q[wbiB) J` wr$ rX΋)(J q HjHr J[i)z`J( Jh i  J¡*2zIIa `J`Jqa(*HH Xš Z J $'[!(2 D¡FFιF[GG GG( [  [    P ŠҚ$\ J  [@΋  s s t$s\'$ ssg& r+Y  r+`b$ `I"s0&&F !J!Js s s s`ssj`܊k[`p`p$`pI&%" dii @$ J `p$[`p!JXJRJJ4F YD`@)Ji`H~) t2iBB.iB© iF%) t`J&`J j&ʙ!J!J !JJJAJAJ[k utLkuujHu  [H m(mÞd d|Hc v[I»z[< , b v> v< W J< [ W - >   J~8}V}nn}p.|^z}\\~8}0ꆾԇ(ꐘΐc~P}Г~~,}zṙ\~~<   '    |r |~K!|~"|K`-(|Kj|KV|~K|~K% |K' |K& |K(|~K)|~K*|~K1|K3|K |K4|K+|7 |K8 |K8 |K|K    0.P !..!00 J > er}JM<  ;9h>> A0@. `eA@!h J J  J `f4 er}JJ  BjHD@`e@8 Jb B er} ( $  `2``J H`J P>!ajH`f(! ^4~ZK8j Aer~&  J &,`} Ad& c}e  J f4 P J J J  J J  ( J f4WB? fX  a`2 \/ ȣƃ(C   FD ͳ `eS '`e b# Ԁ }AA+P}AJ AGE@H8@=74n`( |Ԁ]EL}<IA @E n 6`en  09?- Ԁ}A pFْpI B <ԁ@ @@H FIA΋@$ $ JN`NDjH`f4 J `ew^ z b b b ahk\' p z:ZFg:wF w c΋gF))( Pl( p( J hJ Jk J h),܁I] z `z a'  wz #JY'J#J%G!8k>B) F q J ؠJ BI w `b$Jg g8)( pYG!8kp`΋ũ٩ ' @ ɩ ɩzJ) p ɩɩɩ' @ [)  JA +p s(JJPPiiiA& )`  ! J3A3 B ժ J܁ iɩ `J #k+ +`΋ih!n]L M$  M$ M$ @@11 z z    ؅ ,@?΋Q BH`b$ ƻ^[NtѠyx`e N1 a"Db RBШ? R S̆B`eh?J E!5 D!A`r]$"rBFDwDKj$`eI A KHk$I 8xCAh"rB]$IK qGDT K $ #5aЖ    #Jՠ hBJSJ@`eKĈ`'aCJSJ@`eKĈ J J `f4'aC@`e΋ wTѧ '(`b$⅜΅΅&Rf\p(@ $dBA```g `s(` A ( J`zr`zg QJ gX'TX]g Q>J;CF TX& $.gX]f TX TXT A]X   ! J̴Iܴ  Ц " JJ! RFXBL6H슦'    aceK J٠Jzi Ja)  J, `e J J  J `f4΋' w>G!8jTJ[I]`ـJ   s(  J  C A'a*m&bFbBKjH J \, 4,`Hp , $, $D d@Q+fm&XFXB쌞HfxH٠Jzi    a)  J J `f4` ,`e΋) s(Z`J `b$΋)   K  4s( ddddddPdddPPiCC)  )B) ! J̳Dܳ' @)  iJ)' @ iCCànppl`D]B"n[΋a) s(47NN7N$+++$$ + +{T) g A)iThJ' J`ag Q&' DɄ&ɧ4' P΋ [ + [ J ZJ YJ (`΋ + [ J k JJ J (   2gШcШ?  JVD "J&D TE'  a&J4 QR J KjJ`f4'GBa TjH W RfDD\45       `e b#   &Bqf er ă`e|R|\K@{m& J cj`f4@`eЫ K`΋΁c !]0BHI# "J{@{#`b  JʁZaBc# #;Ƌ v1$  qǢ    ˆ Ppˁ ݻfj]`aڑ  ahk*K$ =K$kB"( ` j(R (Rhkhm{m&mM]HjH/J b#΋"# t p B# c># #2ƃ v1" qâ    ˆ Ppˁ f`JJ[΋at@@hAhht o`b΋ak b Nd> qNP`b ('`e h" Ջ J #  J(@ .0N J J`f4 #  J JWр  &-&r r M#&{< z ΀K ThJ   w V `pD[/ m:`N!dBdb`JjH@`J`yx"NʁDa FC` `$ Ȃnyx`hSE0!.jH@E K v w`hkb5 L" JTwe I% cҖ8`J Y`J  J JKD)J@ J`"`". +KD("c"Dc D" "PL# JBjH@ J "` BjH@M28"1" dѢB`4Kj@`  dѢȢ&& Ȣ,, Ȣ(Ȣ*Ȣ, 4`pb`~8"4bCx"L (J"JKL ؠJ J`ؠJ "P "J ؁؁> qȡNP"Pb )-b4"? "dE Ud  rò b#JjJ* j `| &&?!J<]ȠJȠȠ ؠ ؠ ؠ ؠ ؠؠ ؠؠG؇FȆؠ3!J7]ȠJȠȠ ؠG !؁ 8 ؁ؠ ( (؈ 8؈ G؇FȆGŠJŠJ`pB] Ji bMEMCM ABGNYd2K3D ! ]ȠJȠ*Ƞ* ؄  3G`eB]@ ΋ag`\'(`'(J`g( kg HC!&]ȠJȧ*ȧ, ؄ ب بhء ؠJجg إ`(g( ؠI(ؠؠؠ(C q؁؁ $. 4b $b &40(]Ƞ"ȧ*ȧ, ؄ ب بhء ؠJج'FI( 47]Ƞ Ƞ$Ƞ& ȧ* ȧ,ȥ`(ȥ`(ȥ`(g Aȧ(Ƞ(y((GB]`aSF STAT!c1c!c d(d*$,F$BHPM %X@`HM6f"BH0 @@#00  ! 0 AB@`@B@  `"J(@K2 $&f2$ )0D  A $ 0qM @!@`( $@D@@D)@R DP!`V J@ XHD"D4A @D$ "$ $A" H},}VqdB( "D) v}Ѥ F :Š  H99G> IH> J: J B=@\ {TsBGGGGGGGT'1JGP- `}f|arh!"} |}||rh!"}I   }q|}|| J $y$''d >   !ʂ  sI "}|!Jr J ""„** $y$''|}¤, d > $. r! @/¡ B*:$BJҤ > ) H¤ > ¤J { [a ! ! [ (\&J$`zqY$`z J uu J JJ`Jq[$&• d&}T`J Yd& D)ҙ} #9[$&`J D)}999999W}T[}T$&Fl y   "`6  \I  Ҫ%ud`\`IR`J¤ Z`z (`}pƺ`J}[$&  $&$(¬ * œJ IIB}}[ JQ J„J}~ Ҭ  y [ (P A $HA%$  $BHJB@@@ BH$I @JPR||q zsB-&>>---!!>---)}(}}a J`J J`J J!4$ q|>|o j ¤l„*$T* xda{Ib$I 2 1$|> {Pxa{I $I   J  Y J b$`H1|>{J$ |b$E„*$$ 7b$$ [T  $VT  0 }q ||`{4T |q`JBaa$  Dd$|`{ FP$$  %|| `|a J. + , y!.$  62 264 42, ¡ 62:   , + I:$:,, ;  $sB  -㧧`}n<$<`J¡Ơ$4Ơ`I`}a3¡$:z, K < <   j@2   { 62Aa !e`} , { 7   |6a¡, [$::R2  $  @^ (  J" JN   |RY J     q! GB`J  J4$4$I +d/6>`D҉J¤2>`D҉J `paI¡, [$:6^  , ¡  $: +¤2`H=d4J‰ 0, {, k`p46ʉ 2¤0 0!¤0, ; 2 +   ;2 6  E `P@tb~ ~(d, %  {/I J,I , Ke 4liE yiX6 0. J`I2 d4.E E@, K2 aaE d, 9~`}¤2 ¤2 Jbd02$. 2 J$0$0, k`} 6/, G10, k¤2a$2¡B 6A@ .J`Q`I, ;ޅ26$  Ad$/ +<)I `}b2`I  $4 >GJ:`DrH> D2[6=D9Da %02 p2[@DD:~D.~0D26 $:2  G [d. v6 ``JI Jj2$: @26[20d0bd22$.  [ 0J6 ``J . J=4[ 07$0d, )P  d,2  6 ``J .$:[ 6  @2  2 2![`~6=D9D2($: @226 26(d2$2222[d9 H EE J,[H EE[$|R[5j`J,4)4), G%tڜ !g JҩrtL`JuO O  $P@@@@p h$ (D$ !  X}^}rq J ~  z$&`IvsBqS53g\Zq!!S53qqqa(||f $&H(|{&rh!" (( {&{ XOYd&`J(LxxxxxxxxX(&|((!"|8{"({& u J JJ`~}j`}l J$& G`zVd&  h)), x) r`JJJl`~`~$&H( J"{`{hl,H & ~ " ~   Vҩ}uWW J  (  d&I{ $& $R$&H|)$&H`zz$&H$$9 J} {$&H(!"&{`{F\J( J"}jqq‚ * uYd&`{¬ *! œJJ IB {{A JK ~}„J z}K J|n¬ y [[IHJFEEEG@DBAC p$ P ) P$H @ RDBYTE00@z#] .#h$j#lz ENLP01 EQU $POINTER TO NEXT PDTA@4@4 ` M4 ENLP01EQU$ z #c .#g +* #j z O**@4@4 az]EPAGE@4@4 bPAGEHz#] / #h:**********************************************************@4@4 cEz] ***E LP02 PDT LINE PRINTER*** @4@4 dz]:**********************************************************@4@4 e7z] CPSLP02 EQU $@4@4 f M4 PSLP02EQU$,z #c .#g +* #j   DATA ENLP02z"LINK TO NEXT PDT@4@6 gz DATAENLP02z#] .#h #o z  DATA MPLP02$MAP FILE FOR THE DEVICEn@6@8 hJ8 DATAMPLP02z#] .#h #o z PDLP02 EQU $START OF DSR REGISTERS@8@8 i M8 PDLP02EQU$ z #c .#g +* #j z DATA 0!R0 = DSR SCRATCH#@8@: j DATA0z#] .#h#jzDATA $-$"R1 = QUEUE LINK@:@< k DATA$$nz#] .#h +* +*#lz DATA >000ER2 = STATUS FLG/INTERRUPT-1@<@> l  DATA>000Ez#] .#h#n z  DATA >A102R3 = DEVICE FLAGS & TYPE]@>@@ m  DATA>A102z#] .#h#n z  DATA $+60R4 = DSR TMP STORAGEA@@@B nJ|DATA$60z#] .#h +*<#mzDATA 0R5 = DSR SCRCH/CONT I/O FLG@B@D o DATA0z#] .#h#jz DATA LPSPURR6 = PRINTER SPURIOUS INT@D@F p@  DATALPSPURz#] .#h #o z DATA 0!R7 = DSR SCRATCH@F@H q DATA0z#] .#h#jz DATA 0,0,0,0R8-R11 = DSR SCRATCH@H@P r DATA0000z#] .#h$j$l$n#pz DATA >0020R12 = CRU/TILINE ADDRESS@P@R s DATA>0020z#] .#h #n z DATA $-$,$-$,$-$R13-R15 = WP,PC & ST@R@X t DATA$$$$$$z#] .#h +* +*$l +* +*$p +* +* #t @z 2*** DSR REGISTER EXTENTION ***@X@X u z] DATA $-32GPOINTER TO DSR REGISTERS@X@Z vJ8DATA$32z#] .#h +* #mz DATA LPHANLINE PRINTER DSR ADDRESS@Z@\ w@  DATALPHANz#] .#h  #n z BYTE 0,0DX10 ERROR CODE / FLAGS]@\@^ xBYTE000z#] .#h$j#lz TEXT 'LP02' DEVICE ACCESS NAME@^@b yL@P@0@2@TEXTLP02z#] .#hLP#ozDATA 0#SYSTEM LOG AREAR@b@d z DATA0z#] .#h#jzDATA 0#SYSTEM LOG AREAP@d@f { DATA0z#] .#h#jzDATA $-$DEVICE BUFFER ADDRESS@f@h | DATA$$#z#] .#h +* +*#lz DATA >0200LENGTH OF DEVICE BUFFERG@h@j }  DATA>0200z#] .#h#n z  DATA LPINTLINE PRINTER INTERRUPT ENTRY@j@l ~@  DATALPINTz#] .#h (#n z DATA 0,0"UCB QUEUE HEADER@l@p  DATA00z#] .#h$j#lzDATA 0 QUEUE SERVER (DDT)@p@r  DATA0z#] .#h#jzDATA 0SERVER FLAGS/SERVER TASK ID@r@t  DATA0z#] .#h#jz DATA >FF00STATE (NONE) / QUEUE COUNT@t@v  DATA>FF00z#] .#h#n z  DATA >1770$TIME OUT COUNT@v@x  p DATA>1770z#] .#hp#n z  DATA >1770$TIME OUT COUNT@x@z  p DATA>1770z#] .#hp#n z DATA 0RESERVED FOR FUTURE USE@z@|  DATA0z#] .#h#jz* LINE PRINTER PDT EXTENSIONT#04/30/79@|@| (z] DATA >0002'DATA MODULE FLAG@|@~   DATA>0002z#] .#h#n u  DATA 0# OF BUFFERED CHARACTERS@~@  DATA0z#] .#h#ju DATA $+8POINTER TO NEXT OUTPUT CHAR.@@ JDATA$8 z#] .#h +*#lu DATA $+6POINTER TO NEXT STORE SLOT@@ JDATA$6Fz#] .#h +*#lu DATA 170MAX. NUMBER OF BUFFERED CHAR.@@  DATA170z#] .#h#lu DATA 0FLAG TO TRIGGER END RECORD EXIT>@@  DATA0z#] .#h#ju BSS 170'CHARACTER BUFFER@@2 BSS170z#] .#g#luDATA 0*RESERVED@2@4  DATA0z#] .#h#jz DATA 0,0,0 STATISTIC COUNTERS@4@:  DATA000z#] .#h$j$l#nzBYTE 0,0 RETRY / LUNO COUNT@:@< BYTE00@z#] .#h$j#lz ENLP02 EQU $POINTER TO NEXT PDTA@<@<  M< ENLP02EQU$ z #c .#g +* #j z O**@<@< z]EPAGE@<@< PAGEHz#] / #h:**********************************************************@<@< Ez] ***E DS02 PDTDISK***@<@< z]:**********************************************************@<@< z] CPSDS02 EQU $@<@<  M< PSDS02EQU$z #c .#g +* #j   DATA ENDS02#"LINK TO NEXT PDT@<@> z DATAENDS02z#] .#h #o z  DATA MPDS02MAP FILE FOR THE DEVICE@>@@ J( DATAMPDS02uz#] .#h 0#o z PDDS02 EQU $#START OF DSR REGISTERS@@@@  M@ PDDS02EQU$ z #c .#g +* #j z DATA 0!R0 = DSR SCRATCH@@@B  DATA0z#] .#h#jzDATA $-$"R1 = QUEUE LINK@B@D  DATA$$*z#] .#h +* +*#lz DATA >000CR2 = STATUS FLG/INTERRUPT-1@D@F  DATA>000Cz#] .#h #n z  DATA >5106R3 = DEVICE FLAGS & TYPE]@F@H  Q DATA>5106z#] .#hQ#n z  DATA $+60R4 = DSR TMP STORAGEA@H@J JDATA$60z#] .#h +*<#mz DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG@J@L z DATAFGDS01Jz#] .#h #o z DATA 0!R6 = RETRY COUNT @L@N  DATA0z#] .#h#jz DATA DRTWPR7 = DISK OP COMPLETE VECTOR@N@P @  DATADRTWPz#] .#h #n z  DATA 0,0,0,0R8-R11 = DSR SCRATCH@P@X  DATA0000#z#] .#h$j$l$n#pz DATA >F800R12 = CRU/TILINE ADDRESS@X@Z  DATA>F800z#] .#h#n z DATA $-$,$-$,$-$R13-R15 = WP,PC & ST@Z@`  DATA$$$$$$z#] .#h +* +*$l +* +*$p +* +* #t @z 2*** DSR REGISTER EXTENTION ***@`@` Cz] DATA $-32@POINTER TO DSR REGISTERS@`@b J@DATA$32z#] .#h +* #mz DATA DIODSR "DISK DSR ADDRESS@b@d @  DATADIODSRTz#] .#h #o z BYTE 0,0DX10 ERROR CODE / FLAGS@d@f BYTE00Az#] .#h$j#lz TEXT 'DS02' DEVICE ACCESS NAME@f@j D@S@0@2@TEXTDS02z#] .#hDS#oz DATA >006A+$#SYSTEM LOG AREA @j@l J DATA>006A$#z#] .#hj +* #p z DATA 0#SYSTEM LOG AREA @l@n  DATA0z#] .#h#jzDATA $-$DEVICE BUFFER ADDRESS@n@p  DATA$$*z#] .#h +* +*#lz DATA >0000LENGTH OF DEVICE BUFFERG@p@r  DATA>0000z#] .#h#n z  DATA DTBSYDISK INTERRUPT ENTRY@r@t @  DATADTBSYz#] .#h #n z DATA 0,0"UCB QUEUE HEADER@t@x  DATA00z#] .#h$j#lzDATA 0 QUEUE SERVER (DDT)@x@z  DATA0z#] .#h#jzDATA 0SERVER FLAGS/SERVER TASK ID@z@|  DATA0z#] .#h#jz DATA >FF00STATE (NONE) / QUEUE COUNT@|@~  DATA>FF00z#] .#h#n z  DATA >0000$TIME OUT COUNT@~@  DATA>0000z#] .#h#n z  DATA >0000$TIME OUT COUNT@@  DATA>0000z#] .#h#n z DATA 0RESERVED FOR FUTURE USE@@  DATA0z#] .#h#jz*&*** TILINE CONTROLLER DSR TEMP STORAGE ***@@ z]DATA 0$TMP OR FMP PRB@@  DATA0z#] .#h#jzBYTE 0'OPCODE@@ BYTE0z#] .#h#j BYTE >00D2)LUNO@@  BYTE>00D2z#] .#h#n   DATA 0,0,0,0,0,0REMAINDER OF PRB@@  DATA000000~z#] .#h$j$l$n$p$r  #t @ * SAVED TILINE PARAMETERS ** MT ** ** DSC **h@@ z]DATA $-$ SAVED STATUS - WRDS/TRK@@  DATA$$z#] .#h +* +*#lzDATA $-$MAJOR ERROR CODE - SPT & OHR@@  DATA$$z#] .#h +* +*#lzDATA $-$MINOR ERROR CODE - HDS & CYL@@  DATA$$z#] .#h +* +*#lzDATA $-$ RESERVED - SPR & RPT@@  DATA$$z#] .#h +* +*#lzDATA $-$ RESERVED - WRDS/RCD@@  DATA$$0z#] .#h +* +*#lzA* TILINE IMAGE@@ z]DATA >FFFF,0,0,0,0,0TILINE IMAGE WDS 0 - A@@  DATA>FFFF00000Nz#] .#h$n  $p  $r  $t  $v  #x@z DATA >0400WRD C - UNIT SELECT@@   DATA>0400z#] .#h#n z  DATA >1000WRD E - TILINE STATUS@@   DATA>1000z#] .#h#n z * 6VOLUME CHARACTERISTICS@@ z]BSS 3*2INITIALIZATION BUFFER@@ BSS32z#] .#g#lzCDATA 0@@  DATA0z#] .#h#jTEXT ''R 'VOLUME NAME @@  @ @ @ @ @ @ @ @ TEXT Nz#] .#h #s z DATA 0*NOT USED@@  DATA0z#] .#h#jzDATA 0*NOT USED@@  DATA0z#] .#h#jzDATA $-$DISK MNGR TABLE/BUFFER ADDR @@  DATA$$@z#] .#h +* +*#lzDATA $-$MAX # OF ADU'S ON DISK@@  DATA$$ z#] .#h +* +*#lzDATA $-$#SECTORS PER ADUA@@  DATA$$]z#] .#h +* +*#lz DATA >0120PHYSICAL RECORD DEFAULT@@   DATA>0120z#] .#h #n z DATA 0DISK UNIT ERROR COUNT@@  DATA0z#] .#h#jzTEXT '#0000000'TEMP FILE NAME SEED @@ #@0@0@0@0@0@0@0@ TEXT#0000000z#] .#h#0#s z BSS 16A#SYSTEM LOG AREA@@ BSS16z#] .#g#kzDATA 0*RESERVED@@  DATA0z#] .#h#jz DATA 0,0,0 STATISTIC COUNTERS@@  DATA000z#] .#h$j$l#nzBYTE 0,0 RETRY / LUNO COUNT@@ BYTE00z#] .#h$j#lz ENDS02 EQU $APOINTER TO NEXT PDTR@@  M ENDS02EQU$1z #c .#g +* #j z O*A@@  z]EPAGE@@ PAGE#z#] / #h:**********************************************************@@ z] *** DS03 PDTDISK***@@ z]:**********************************************************@@ z] CPSDS03 EQU $@@  M PSDS03EQU$z #c .#g +* #j   DATA ENDS03#"LINK TO NEXT PDT@@ z DATAENDS03z#] .#h #o z  DATA MPDS03MAP FILE FOR THE DEVICE@@ J( DATAMPDS03Oz#] .#h 8#o z PDDS03 EQU $#START OF DSR REGISTERS@@  M PDDS03EQU$ z #c .#g +* #j z DATA 0!R0 = DSR SCRATCH@@  DATA0z#] .#h#jzDATA $-$"R1 = QUEUE LINK@@  DATA$$*z#] .#h +* +*#lz DATA >000CR2 = STATUS FLG/INTERRUPT-1@@  DATA>000Cz#] .#h #n z  DATA >5106R3 = DEVICE FLAGS & TYPE]@@  Q DATA>5106z#] .#hQ#n z  DATA $+60R4 = DSR TMP STORAGEA@@ J 6DATA$60z#] .#h +*<#mz DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG@@ z DATAFGDS01Jz#] .#h #o z DATA 0!R6 = RETRY COUNT @@  DATA0z#] .#h#jz DATA DRTWPR7 = DISK OP COMPLETE VECTOR@ @  @  DATADRTWPz#] .#h #n z  DATA 0,0,0,0R8-R11 = DSR SCRATCH@ @  DATA0000#z#] .#h$j$l$n#pz DATA >F800R12 = CRU/TILINE ADDRESS@ @  DATA>F800z#] .#h#n z DATA $-$,$-$,$-$R13-R15 = WP,PC & ST@ @   DATA$$$$$$z#] .#h +* +*$l +* +*$p +* +* #t @z 2*** DSR REGISTER EXTENTION ***@ @  Cz] DATA $-32@POINTER TO DSR REGISTERS@ @  JDATA$32z#] .#h +* #mz DATA DIODSR "DISK DSR ADDRESS@ @  @  DATADIODSRTz#] .#h #o z BYTE 0,0DX10 ERROR CODE / FLAGS@ @  BYTE00Az#] .#h$j#lz TEXT 'DS03' DEVICE ACCESS NAME@ @  D@S@0@3@TEXTDS03z#] .#hDS#oz DATA >006A+$#SYSTEM LOG AREA @ @  J DATA>006A$#z#] .#hj +* #p z DATA 0#SYSTEM LOG AREA @ @  DATA0z#] .#h#jzDATA $-$DEVICE BUFFER ADDRESS@ @ "  DATA$$z#] .#h +* +*#lz DATA >0000LENGTH OF DEVICE BUFFERG@ "@ $  DATA>0000z#] .#h#n z  DATA DTBSYDISK INTERRUPT ENTRY@ $@ & @  DATADTBSYz#] .#h #n z DATA 0,0"UCB QUEUE HEADER@ &@ *  DATA00z#] .#h$j#lzDATA 0 QUEUE SERVER (DDT)@ *@ ,  DATA0z#] .#h#jzDATA 0SERVER FLAGS/SERVER TASK ID@ ,@ .  DATA0z#] .#h#jz DATA >FF00STATE (NONE) / QUEUE COUNT@ .@ 0  DATA>FF00z#] .#h#n z  DATA >0000$TIME OUT COUNT@ 0@ 2  DATA>0000z#] .#h#n z  DATA >0000$TIME OUT COUNT@ 2@ 4  DATA>0000z#] .#h#n z DATA 0RESERVED FOR FUTURE USE@ 4@ 6  DATA0z#] .#h#jz*&*** TILINE CONTROLLER DSR TEMP STORAGE ***@ 6@ 6 z]DATA 0$TMP OR FMP PRB@ 6@ 8  DATA0z#] .#h#jzBYTE 0'OPCODE@ 8@ 9 BYTE0z#] .#h#j BYTE >00D3)LUNO@ 9@ :  BYTE>00D3z#] .#h#n   DATA 0,0,0,0,0,0REMAINDER OF PRB@ :@ F  DATA0000000z#] .#h$j$l$n$p$r  #t @ * SAVED TILINE PARAMETERS ** MT ** ** DSC **@@ F@ F  z]DATA $-$ SAVED STATUS - WRDS/TRK@ F@ H  DATA$$z#] .#h +* +*#lzDATA $-$MAJOR ERROR CODE - SPT & OHR@ H@ J  DATA$$z#] .#h +* +*#lzDATA $-$MINOR ERROR CODE - HDS & CYL@ J@ L  DATA$$z#] .#h +* +*#lzDATA $-$ RESERVED - SPR & RPT@ L@ N  DATA$$z#] .#h +* +*#lzDATA $-$ RESERVED - WRDS/RCD@ N@ P  DATA$$0z#] .#h +* +*#lzA* TILINE IMAGE@ P@ P z]DATA >FFFF,0,0,0,0,0TILINE IMAGE WDS 0 - A@ P@ \  DATA>FFFF00000Nz#] .#h$n  $p  $r  $t  $v  #x@z DATA >0200WRD C - UNIT SELECT@ \@ ^    DATA>0200z#] .#h#n z  DATA >1000WRD E - TILINE STATUS@ ^@ `    DATA>1000z#] .#h#n z * 6VOLUME CHARACTERISTICS@ `@ `  z]BSS 3*2INITIALIZATION BUFFER@ `@ f  BSS32z#] .#g#lzCDATA 0@ f@ h   DATA0z#] .#h#jTEXT ''R 'VOLUME NAMEP @ h@ p  @ @ @ @ @ @ @ @ TEXT Nz#] .#h #s z DATA 0*NOT USED@ p@ r  DATA0z#] .#h#jzDATA 0*NOT USED@ r@ t  DATA0z#] .#h#jzDATA $-$DISK MNGR TABLE/BUFFER ADDR @ t@ v  DATA$$@z#] .#h +* +*#lzDATA $-$MAX # OF ADU'S ON DISK@ v@ x  DATA$$ z#] .#h +* +*#lzDATA $-$#SECTORS PER ADUA@ x@ z  DATA$$]z#] .#h +* +*#lz DATA >0120PHYSICAL RECORD DEFAULT@ z@ |   DATA>0120z#] .#h #n z DATA 0DISK UNIT ERROR COUNT@ |@ ~  DATA0z#] .#h#jzTEXT '#0000000'TEMP FILE NAME SEED @ ~@ #@0@0@0@0@0@0@0@ TEXT#0000000z#] .#h#0#s z BSS 16A#SYSTEM LOG AREA@ @ BSS16z#] .#g#kzDATA 0*RESERVED@ @  DATA0z#] .#h#jz DATA 0,0,0 STATISTIC COUNTERS@ @  DATA000z#] .#h$j$l#nzBYTE 0,0 RETRY / LUNO COUNT@ @ BYTE00z#] .#h$j#lz ENDS03 EQU $APOINTER TO NEXT PDTR@ @  M ENDS03EQU$1z #c .#g +* #j z O*A@ @  z]EPAGE@ @ PAGE#z#] / #h:**********************************************************@ @ z] *** DS04 PDTDISK***@ @ z]:**********************************************************@ @  z] CPSDS04 EQU $@ @ ! M PSDS04EQU$z  #c .#g +* #j   DATA ENDS04#"LINK TO NEXT PDT@ @ "z DATAENDS04z#] .#h  #o z  DATA MPDS04MAP FILE FOR THE DEVICE@ @ #J( DATAMPDS04Oz#] .#h @#o z PDDS04 EQU $#START OF DSR REGISTERS@ @ $ (M PDDS04EQU$ z (#c .#g +* #j z DATA 0!R0 = DSR SCRATCH@ @ % DATA0z#] .#h#jzDATA $-$"R1 = QUEUE LINK@ @ & DATA$$*z#] .#h +* +*#lz DATA >000CR2 = STATUS FLG/INTERRUPT-1@ @ ' DATA>000Cz#] .#h #n z  DATA >5106R3 = DEVICE FLAGS & TYPEB@ @ ( Q DATA>5106z#] .#hQ#n z  DATA $+60R4 = DSR TMP STORAGEA@ @ )J DATA$60z#] .#h +*<#mz DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG@ @ *z DATAFGDS01Jz#] .#h #o z DATA 0!R6 = RETRY COUNT @ @ + DATA0z#] .#h#jz DATA DRTWPR7 = DISK OP COMPLETE VECTOR@ @ ,@  DATADRTWPz#] .#h #n z  DATA 0,0,0,0R8-R11 = DSR SCRATCH@ @ - DATA0000#z#] .#h$j$l$n#pz DATA >F800R12 = CRU/TILINE ADDRESS@ @ . DATA>F800z#] .#h#n z DATA $-$,$-$,$-$R13-R15 = WP,PC & ST@ @ / DATA$$$$$$z#] .#h +* +*$l +* +*$p +* +* #t @z 2*** DSR REGISTER EXTENTION ***@ @ 0Cz] DATA $-32@POINTER TO DSR REGISTERS@ @ 1J DATA$32z#] .#h +* #mz DATA DIODSR "DISK DSR ADDRESS@ @ 2@  DATADIODSRTz#] .#h #o z BYTE 0,0DX10 ERROR CODE / FLAGS@ @ 3BYTE00Az#] .#h$j#lz TEXT 'DS04' DEVICE ACCESS NAME@ @ 4D@S@0@4@TEXTDS04z#] .#hDS#oz DATA >006A+$#SYSTEM LOG AREA @ @ 5J 8 DATA>006A$#z#] .#hj +* #p z DATA 0#SYSTEM LOG AREA @ @ 6 DATA0z#] .#h#jzDATA $-$DEVICE BUFFER ADDRESS@ @ 7 DATA$$*z#] .#h +* +*#lz DATA >0000LENGTH OF DEVICE BUFFERG@ @ 8 DATA>0000z#] .#h#n z  DATA DTBSYDISK INTERRUPT ENTRY@ @ 9@  DATADTBSYz#] .#h #n z DATA 0,0"UCB QUEUE HEADER@ @ : DATA00z#] .#h$j#lzDATA 0 QUEUE SERVER (DDT)@ @ ; DATA0z#] .#h#jzDATA 0SERVER FLAGS/SERVER TASK ID@ @ < DATA0z#] .#h#jz DATA >FF00STATE (NONE) / QUEUE COUNT@ @ = DATA>FF00z#] .#h#n z  DATA >0000$TIME OUT COUNT@ @ > DATA>0000z#] .#h#n z  DATA >0000$TIME OUT COUNT@ @ ? DATA>0000z#] .#h#n z DATA 0RESERVED FOR FUTURE USE@ @ @ DATA0z#] .#h#jz*&*** TILINE CONTROLLER DSR TEMP STORAGE ***@ @ Az]DATA 0$TMP OR FMP PRB@ @ B DATA0z#] .#h#jzBYTE 0'OPCODE@ @ CBYTE0z#] .#h#j BYTE >00D4)LUNO@ @ D BYTE>00D4z#] .#h#n   DATA 0,0,0,0,0,0REMAINDER OF PRB@ @ E DATA000000z#] .#h$j$l$n$p$r  #t @ * SAVED TILINE PARAMETERS ** MT ** ** DSC **h@ @ Fz]DATA $-$ SAVED STATUS - WRDS/TRK@ @ G DATA$$z#] .#h +* +*#lzDATA $-$MAJOR ERROR CODE - SPT & OHR@ @ H DATA$$z#] .#h +* +*#lzDATA $-$MINOR ERROR CODE - HDS & CYL@ @ I DATA$$z#] .#h +* +*#lzDATA $-$ RESERVED - SPR & RPT@ @ J DATA$$z#] .#h +* +*#lzDATA $-$ RESERVED - WRDS/RCD@ @  K DATA$$0z#] .#h +* +*#lzA* TILINE IMAGE@ @  Lz]DATA >FFFF,0,0,0,0,0TILINE IMAGE WDS 0 - A@ @  M DATA>FFFF00000Nz#] .#h$n  $p  $r  $t  $v  #x@z DATA >0100WRD C - UNIT SELECT@ @  N  DATA>0100z#] .#h#n z  DATA >1000WRD E - TILINE STATUS@ @  O  DATA>1000z#] .#h#n z * 6VOLUME CHARACTERISTICS@ @  Pz]BSS 3*2INITIALIZATION BUFFER@ @  QBSS32z#] .#g#lzCDATA 0@ @  R DATA0z#] .#h#jTEXT ''R 'VOLUME NAME @ @ " S @ @ @ @ @ @ @ @ TEXT Nz#] .#h #s z DATA 0*NOT USED@ "@ $ T DATA0z#] .#h#jzDATA 0*NOT USED@ $@ & U DATA0z#] .#h#jzDATA $-$DISK MNGR TABLE/BUFFER ADDR @ &@ ( V DATA$$@z#] .#h +* +*#lzDATA $-$MAX # OF ADU'S ON DISK@ (@ * W DATA$$ z#] .#h +* +*#lzDATA $-$#SECTORS PER ADUA@ *@ , X DATA$$]z#] .#h +* +*#lz DATA >0120PHYSICAL RECORD DEFAULT@ ,@ . Y  DATA>0120z#] .#h #n z DATA 0DISK UNIT ERROR COUNT@ .@ 0 Z DATA0z#] .#h#jzTEXT '#0000000'TEMP FILE NAME SEED @ 0@ 8 [#@0@0@0@0@0@0@0@ TEXT#0000000z#] .#h#0#s z BSS 16A#SYSTEM LOG AREA@ 8@ H \BSS16z#] .#g#kzDATA 0*RESERVED@ H@ J ] DATA0z#] .#h#jz DATA 0,0,0 STATISTIC COUNTERS@ J@ P ^ DATA000z#] .#h$j$l#nzBYTE 0,0 RETRY / LUNO COUNT@ P@ R _BYTE00z#] .#h$j#lz ENDS04 EQU $APOINTER TO NEXT PDTR@ R@ R ` M R ENDS04EQU$1z  #c .#g +* #j z O*A@ R@ R a z]EPAGE@ R@ R bPAGE#z#] / #h:**********************************************************@ R@ R cz@R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0001> BATCH LS=YES LS (LIST SYNONYMS) ? YES, BATCH LISTING ACCESS NAME  ** NULL ** ,* BATCH INPUT ACCESS NAME  ** NULL ** * STATION ID  ST02  USER ID  MAT000 & LISTING ACCESS NAME  ** NULL ** & LIST SYNONYM SYNONYM  VALUE  $$12  N $$CC  00000 $$DA  N $$DSC$  DS01  $$EA  N $$MO  00  $$ST  02  $$SYS$  SKI1  $$UI  MAT000  $E$C  0 ME  ST02 & 13:12:18 WEDNESDAY, JUL 19, 1989. && 13:12:19 WEDNESDAY, JUL 19, 1989. &R( <0002> **********************************************************************R" <0003> * MEMRES PATCH FILE "$ <0004> ************************$VERIFICATION DATA 4860 DEAD  .. CURRENT IMAGE J4860 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..JNEW IMAGE: CHECKSUM = 5E68J4860 5E68 DEAD DEAD DEAD DEAD DEAD DEAD DEAD ^h .. .. .. .. .. .. ..J. .. .. ..JJ. ..J0**********************************************0 <0005> * P <0006> *  AFTER A SYSGEN IS DONE, THE DX10 IMAGE FILE (OBJECT OUTPUT FROMPN <0007> *  THE LINK EDITOR) WILL NEED TO HAVE THE PATCHES IN THIS FILE NP <0008> *  APPLIED TO IT. THIS FILE CANNOT BE RUN AS A BATCH STREAM. TO PN <0009> *  PATCH A SYSTEM, ONE MUST ASSIGN THE SYNONYM $$DSC$ TO THENP <0010> *  VOLUME NAME OF THE DISK ON WHICH THE PATCHES ARE TO BE APPLIED.P@ <0011> *  THEN EITHER (A) OR (B) BELOW MUST BE PERFORMED.@ <0012> * B <0013> * A) RUN THE XPS PROC, WITH THE FOLLOWING INPUTS: BB <0014> *  LINK = B0 <0015> *  INPUT = 0J <0016> *  OUTPUT = * BATCH STREAM> F <0018> *  ERROR = FL <0019> *  THE FILE SPECIFIED FOR OUTPUT CAN BE RUN AS A BATCH STREAM L& <0020> *  TO PATCH THE SYSTEM. & <0021> * R <0022> * B) IF THE LINK MAP IS NO LONGER AVAILABLE ON DISK FILE, THIS FILRH <0023> *  WILL HAVE TO BE TRANSLATED MANUALLY. COPY THIS FILE TOHF <0024> *  ANOTHER FILE AND EDIT THAT FILE DOING THE FOLLOWING. F <0025> * J <0026> *  1. FOR EACH #SYN COMMAND FOUND IN THE FILE, TWO OR MOREJF <0027> * SYNONYMS MUST BE DEFINED. EACH #SYN COMMAND IS IN THEF <0028> * FORMAT: F <0029> *  #SYN ,,F <0030> * FOR EXAMPLE:  <0031> *  #SYN SROOT,ROOT  <0032> * WHERE: <0033> *  SROOT0 IS THE SYNONYM NAME, AND0F <0034> *  ROOT IS THE OF THE MODULE TO BE PATCHEDF <0035> * L <0036> *  2. FIND THE S IN THE LINK MAP.ALL MODULES LJ <0037> * ON ONE LINE OF A #SYN COMMAND WILL RESIDE IN THE SAME PHASJH <0038> * OF THE LINK.DETERMINE THE OVERLAY OR TASK ID FROM THE HR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RJ <0039> * PHASE HEADER LINE OF THE PHASE WHERE THE SPECIFIED MODULESJH <0040> * ARE FOUND.INSERT A #SYN COMMAND INTO THE PATCH FILE TOHF <0041> * DEFINE THE OVERLAY OR ID, AS IN THE FOLLOWING EXAMPLE:F <0042> *  .SYN SROOT=1  <0043> * WHERE B <0044> *  SROOTIS THE SYNONYM FOUND B$ <0045> * IN THE #SYN COMMAND$, AND < <0046> *  1IS THE OVERLAY OR TASK ID FROM THE PHASE<4 <0047> *  IN WHICH THE LISTED MODULES RESIDE.4< <0048> *  (1 IS THE ID FOR THE FIRST SYSTEM. THIS WI<6 <0049> *  BE DIFFERENT FOR ADDITIONAL SYSTEMS.)6 <0050> * N <0051> *  3. NEXT, INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH N@ <0052> *  IN THE #SYN COMMAND.FOR EXAMPLE:@  <0053> *  .SYN ROOT=031DA  <0054> * WHERE:D <0055> *  ROOT IS THE OF THE MODULE (FROM THED, <0056> *  COMMAND) TO BE PATCHED, AND,@ <0057> *  031DAIS THE HEXADECIMAL ADDRESS OF THE MODULE@< <0058> *  ORIGIN FOR TI-SUPPLIED SYSTEM. (THIS MAY B<0 <0059> *  DIFFERENT FOR CUSTOM SYSTEMS.) 0 <0060> * 4 <0061> *  4. DELETE THE #SYN LINE FROM THE 4PATCH FILE.  <0062> * L <0063> *  5. REPEAT STEPS 1 - 4 FOR EACH #SYN COMMAND IN THE FILE. L <0064> * P <0065> *  6. QUIT THE TEXT EDIT SPECIFYING "YES" TO THE REPLACE OPTION.P <0066> * @ <0067> *  7. EXECUTE THE BATCH STREAM YOU JUST CREATED.@ <0068> * R( <0069> **********************************************************************R <0070> Q$SYN  <0071> .SYN $E$C="0" * <0072> .SYN IMAGE="@$$DSC$.S$IMAGES" * <0073> .SYN SLGY = 3 <0074> .SYN SYSLGY =>464E  <0075> .SYN SROOT= 3 <0076> .SYN ROOT =>46A0 <0077> .SYN SFILMG = 19 <0078> .SYN FILMG=>7000 <0079> .SYN KIF="NONE"  <0080> .SYN KIF3 ="NONE"  <0081> .SYN SMEM = 20 <0082> .SYN MEMRES =>7000  <0083> .SYN SIO= 23 <0084> .SYN SVCIO=>7900 <0085> .SYN SYSLOG =>982E  <0086> .SYN IOC= 22 <0087> .SYN IOCOM=>7000 <0088> .SYN SDDIO= 24 <0089> .SYN DDIOSR =>7900  <0090> .SYN S911 = 26 <0091> .SYN DSR911 =>7900 " <0092> .SYN DSR911PF ="NONE" "" <0093> .SYN DSR911WP ="NONE" "" <0094> .SYN DSR913 ="NONE" " <0095> .SYN SLP= 25 <0096> .SYN LPDSR=>7900" <0097> .SYN DSR820 ="NONE" "" <0098> .SYN FPYDSR ="NONE" "R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0099> .SYN S979 = 27 <0100> .SYN DSR979 =>7900 " <0101> .SYN COMMCOM="NONE" "" <0102> .SYN DSR733 ="NONE" "" <0103> .SYN DSRKSR ="NONE" " <0104> *  <0105> ****************8******************************************************8R <0106> * ! THE FOLLOWING SYNONYMS ARE DEFINED BY TI SYSTEM ANALYSTS ONLY AT RN <0107> *  SYSTEM BUILD TIME. THEY SHOULD NOT BE MODIFIED BY THE USER. NR( <0108> **********************************************************************R4 <0109> * INSERT PRE-LINK DEFINED SYNONYMS HERE:4& <0110> .EVAL S$$PAT="@ROOT+>0000"& <0111> * R( <0112> **********************************************************************R <0113> * F" <0114> * CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000. FJ$ <0115> * THIS CAUSES SEVERAL PROBLEMS IN DISK RESIDENT SYSTEM TASKS.J <0116> *   <0117> .IF @FILMG,GT,>C000 N& <0118> CM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >C000 " N$ <0119> CM R=ME,M="CURRENT SYSTE$ M ROOT SIZE = @FILMG ", <0120> CM R=ME,M="PATCHING TERMINATED" , <0121> .STOP  <0122> .ENDIF <0123> * R( <0124> **********************************************************************R <0125> * H# <0126> * CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800. HJ$ <0127> * THIS CAUSES SEVERAL PROBLEMS IN EXECUTION AS ANY REFERENCE JH# <0128> * IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS INSTEAD H <0129> * OF MEMORY.  <0130> * & <0131> .EVAL $$TMP=@SYSLOG+>0264 &  <0132> .IF @$$TMP,GT,>F800 N& <0133> CM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >F800 " N: <0134> CM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP ":, <0135> CM R=ME,M="PATCHING TERMINATED" , <0136> .STOP  <0137> .ENDIF <0138> .IF @$$TMP,G T,>F600 D! <0139> CM R=ME,M="PATCH STREAM WARNING - SYSTEM EXCEEDS >F600 "D: <0140> CM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP ":@ <0141> CM R=ME,M="LENGTH OF SYSTEM MUST BE LESS THAN >F800"@B <0142> CM R=ME,M="CHECK LINKMAP OF SYSTEM FOR PHASE 0 LENGTH"B <0143> .ENDIF <0144> .SYN $$TMP=""  <0145> * R( <0146> **********************************************************************R <0147> * 0 <0148> * BEGIN PATCHES FOR RELEASE 3.3.0 0 <0149> * R( <0150> **********************************************************************R <0151> * < <0152> *=P0370 MSC11/16/79STR #054073.3.0 LPDSR< <0153> * D! <0154> * THE LINE PRINTER WILL DO A TIME-OUT IF A ZERO LENGTH DD! <0155> * WRITE IS SENT TO IT. PRINT FILE WILL APPEAR TO HANG DF@B <0156> * AND THE PRINTER WILL NOT BE USABLE.ANY TASK DOINGBJ$ <0157> * THE ZERO LENGTH WRITE WILL HANG WAITING ON I/O COMPLETION. J <0158> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0159> *#SYN SLP,LPDSR  <0160> * " <0161> .IF "@LPDSR" ,NE, NONE" <0162> * 8 <0163> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0062,8& <0164>  V=>101D,D=>161D,C=>161D& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>0062 VERIFICATION DATA  >101D DATA  >161D CHECKSUM  >161D$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7962 101D  ..  CURRENT IMAGE L 7962 101D 04E1 0008 1015 D920 4915 FFE0 1011 .. .. .. .. .I. .. ..L  NEW IM AGE: CHECKSUM = 161DL 7962 161D 04E1 0008 1015 D920 4915 FFE0 1011 .. .. .. .. .I. .. ..L <0165> EC <0166> *  <0167> .ENDIF <0168> *$R( <0169> **********************************************************************R <0170> * > <0171> *=P0379 MU 12/05/79STR #054313.3.0 DSR911 > <0172> * @ <0173> * A BUG IN THE INPUT ROUTINE OF THE 911 DSR CAUSES @> <0174> * THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE >D! <0175> * CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. D <0176> *  <0177> *#SYN S911,DSR911  <0178> * $ <0179> .IF "@DSR911" ,NE, NONE $ <0180> * : <0181> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>034C,:, <0182>  V=(>0B2B,>1817,>1E0F,>3605), ,* <0183>  D=(>058A,>0B2B,>1816,>1012)* ,C=>06A5  PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>034C0 VERIFICATION DATA  >0B2B,>1817,>1E0F,>36050" DATA >058A,>0B2B,>1816,>1012" CHECKSUM  >06A5$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 7C4C 0B2B 1817 1E0F 3605  .+ .. .. 6., CURRENT IMAGE L 7C4C 0B2B 1817 1E0F 3605 1D0F 058A 100A 0BFB .+ .. .. 6. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A5 L 7C4C 058A 0B2B 1816 1012 1D0F 058A 100A 0BFB .. .+ .. .. .. .. .. ..L: <0184> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:: <0185> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0406,:& <0186>  V=(>091B,>178F,>32CA), &, <0187>  D=(>32CA,>091B,>178E),C=>2C5F, PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  >7900+>0406* VERIFICATION DATA  >091B,>178F,>32CA* DATA >32CA,>091B,>178E CHECKSUM  >2C5F$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 7D06 091B 178F 32CA  .. .. 2. & CURRENT IMAGE L 7D06 091B 178F 32CA 1D0E 108C 0764 0034 1302 .. .. 2. .. .. .d .4 ..L  NEW IMAGE: CHECKSUM = 2C5F L 7D06 32CA 091B 178E 1D0E 108C 0764 0034 1302 2. .. .. .. .. .d .4 ..L <0188> EC <0189> *  <0190> .ENDIF <0191> *$R( <0192> **********************************************************************R <0193> * @ <0194> *=P0380 MU 12/05/79STR #054313.3.0 DSR911PF @ <0195> *  <0196> * A BUG IN THE *INPUT ROUTINE OF THE POWER FAIL 911 DSR *D! <0197> * CAUSES THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MOREDD! <0198> * CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. D <0199> * " <0200> *#SYN S911PF,DSR911PF " <0201> *#SYN SROOT,ROOT( <0202> *.EVAL S$$PAT="@ROOT+>0000" ( <0203> * & <0204> .IF "@DSR911PF" ,NE, NONE & <0205> * > <0206> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BC,>* <0207>  V=(>0620,@DSR911PF+>0BA0), *& <0208>  D=(>32CA,>0460),C=>36AA&: <0209> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:> <0210> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C0,>* <0211>  V=>32CA,D=@S$$PAT,C=@S$$PAT*  <0212> : <0213> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:4 <0214> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR914 1PF+>04C6, & <0215>  V=>4820,D=>0460,C=>0460& <0216> EC> <0217> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C8,>D <0218>  V=@DSR911PF+>000C,D=@DSR911PF+>0514,C=@DSR911PF+>0514D <0219> EC> <0220> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B6,>& <0221>  V=>091B,D=>C80A,C=>C80A& <0222> EC> <0223> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B8,>: <0224>  V=>1802,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0: <0225> EC> <0226> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05BA,>@ <0227>  V=(>0460,@DSR911PF+>0494,>C80A,@DSR911PF+>0BA0), @2 <0228>  D=(>32CA,>091B,>1802,>0460),C=>27B32 <0229> EC> <0230> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05C2,>: <0231>  V=>32CA,D=@DSR911PF+>0494,C=@DSR911PF+>0494: <0232> EC <0233> * < <0234> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, <6 <0235>  V=(>DEAD,>DEAD),D=(>058A,>0620),C=>03AA6 <0236> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <0237> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0004, <: <0238>  V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0: <0239> EC< <0240> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0006, <& <0241>  V=>DEAD,D=>0460,C=>0460& <0242> EC< <0243> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0008, <: <0244>  V=>DEAD,D=@DSR911PF+>04C2,C=@DSR911PF+>04C2: <0245> EC <0246> *  <0247> .ENDIF <0248> *$R( <0249> **********************************************************************R <0250> * ( <0251> *=P0381 MU 12/05/79STR (#054323.3.0 DSR911PF  <0252> * > <0253> * A BUG IN THE CLEARING OF THE SCREEN OF THE 911 >B <0254> * POWER FAIL DSR LEAVES A CHARACTER IN THE UPPER LEFTB <0255> * OF THE SCREEN.  <0256> * " <0257> *#SYN S911PF,DSR911PF " <0258> *#SYN SROOT,ROOT( <0259> *.EVAL S$$PAT="@ROOT+>0000" ( <0260> * & <0261> .IF "@DSR911PF" ,NE, NONE & <0262> * > <0263> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0822,>6 <0264>  V=(>32E0,@DSR911PF+>0B6C,>1F0A,>1302), 62 <0265>  D=(>0707,>32C7,>36C7,>0587),C=>06802 <0266> EC> <0267> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>082A,>0 <0268>  V=(>32E0,@DSR911PF+>0B6E,>36C7), 0, <0269>  D=(>1000,>1000,>1000),C=>1000, <0270> EC2 <0271> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR2911PF+>085C,& <0272>  V=>05A0,D=>0460,C=>0460& <0273> EC> <0274> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085E,>@ <0275>  V=@DSR911PF+>0BA0,D=@S$$PAT+>000A,C=@S$$PAT+>000A@ <0276> EC< <0277> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000A, <& <0278>  V=>DEAD,D=>C9C8,C=>C9C8& <0279> EC< <0280> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000C, <: <0281>  V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6: <0282> EC< <0283> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000E, <& <0284>  V=>DEAD,D=>05A0,C=>05A0& <0285> EC< <0286> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0010, <: <0287>  V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0: <0288> EC< <0289> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0012, < <0290>  V=>DEAD,D=>04 60,C=>0460  <0291> EC< <0292> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0014, <: <0293>  V=>DEAD,D=@DSR911PF+>0860,C=@DSR911PF+>0860: <0294> EC <0295> *  <0296> .ENDIFR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0297> *$R( <0298> **********************************************************************R <0299> * > <0300> *=P0382 MU 12/05/79STR #054313.3.0 DSR913 > <0301> * @ <0302> * A BUG IN THE INPUT ROUTINE OF THE 913 DSR CAUSES @> <0303> * THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE >D! <0304> * CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. D <0305> *  <0306> *#SYN S913,DSR913  <0307> *#SYN SROOT,ROOT( <0308> *.EVAL S$$PAT="@ROOT+>0000" ( <0309> * @$ <0310> .IF "@DSR913" ,NE, NONE $ <0311> * : <0312> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B4,:& <0313>  V=>06A0,D=>0460,C=>0460&: <0314> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:: <0315> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B6,:> <0316>  V=@DSR913+>07DC,D=@S$$PAT+>0016,C=@S$$PAT+>0016>: <0317> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:: <0318> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8,:& <0319>  V=(>0B2B,>1811,>35C5), &, <0320>  D=(>0B5B,>1811,>1001),C=>034B,: <0321> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:< <0322> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, <& <0323>  V=>DEAD,D=>06A0,C=>06A0& <0324> EC< <0325> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0018, <* <0326>  V=>DEAD,D=@DSR913+>07DC,C=@*DSR913+>07DC <0327> EC< <0328> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001A, <, <0329>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0330>  D=(>C2E4,>002C,>058A,>0460),C=>C3222 <0331> EC< <0332> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0022, <6 <0333>  V=>DEAD,D=@DSR913+>02B8,C=@DSR913+>02B86 <0334> EC: <0335> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023C,:& <0336>  V=>1D0C,D=>0460,C=>0460& <0337> EC: <0338> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E,:6 <0339>  V=>0621,D=@S$$PAT+>0024,C=@S$$PAT+>00246: <0340> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:: <0341> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0240,:& <0342>  V=>0008,D=>060A,C=>060A& <0343> EC< <0344> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, < <03&45>  V=(>DEAD,>DEAD,>DEAD,>DEAD), &2 <0346>  D=(>890A,>0030,>1301,>1D0C),C=>87372: <0347> !EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557:< <0348> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>002C, <B <0349>  V=(>DEAD,>DEAD,>DEAD),D=(>0621,>0008,>0460),C=>0249B <0350> EC< <0351> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0032, <6 <0352>  V=>DEAD,D=@DSR913+>0240,C=@DSR913+>02406 <0353> EC <0354> *  <0355> .ENDIF* <0356> *$ ! MODIFIED BY PATCH 0557 *R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RR( <0357> **********************************************************************R <0358> * F <0359> *=P0383 MSC12/05/79STR #05433 3.3.0 DSR911,DSR911PFF <0360> * ( <0361> * THE RIGHT FIELD KEY IN BO( TH THE 911 DSRS IS BEING@ <0362> * MAPPED TO THE RETURN KEY CODE (>8D) AND SHOULD BE@> <0363> * MAPPED TO ITS OWN CODE OF >87. THIS PATCH WILL>6 <0364> * ALSO KEEP THE CURSOR OFF AFTER A BOOT. 6 <0365> * " <0366> *#SYN S911PF,DSR911PF " <0367> *#SYN S911,DSR911  <0368> * $ <0369> .IF "@DSR911" ,NE, NONE $ <0370> * : <0371> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>085E,:& <0372>  V=>8D9D,D=>879D,C=>879D& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>085E VERIFICATION DATA  >8D9D DATA  >879D CHECKSUM  >879D$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  815E 8D9D  ..  CURRENT IMAGE : 815E 8D9D 9E9F 809A 8182 8384 8586 9697 9998 .. ..: .. .. .. .. .. ..  NEW IMAGE: CHECKSUM = 879D L 815E 879D 9E9F 809A 8182 8384 8586 9697 9998 .. .. .. .. .. .. .. ..L <0373> EC: <0374> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>022A,:& <0375>  V=>1D0C,D=>1E0C,C=>1E0C& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>022A VERIFICATION DATA  >1D0C DATA  >1E0C CHECKSUM  >1E0C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B2A 1D0C  ..  CURRENT IMAGE L 7B2A 1D0C C1E4 FFFE 06A0 7004 0380 0221 0004 .. .. .. .. p. .. .! ..L  NEW IMAGE: CHECKSUM = 1E0C L 7B2A 1E0C C1E4 FFFE 06A0 7004 0380 0221 0004 .. .. .. .. p. .. .! ..L <0376> EC <0377> *  <0378> .ENDIF <0379> *  <0380> .IF  "@DSR911PF" ,NE, NONE  <0381> * > <0382> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0B50,>& <0383>  V=>8D9D,D=>879D,C=>879D& <0384> EC> <0385> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0362,>& <0386>  V=>1D0C,D=>1E0C,C=>1E0C& <0387> EC <0388> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0389> .ENDIF <0390> *$R( <0391> **********************************************************************R <0392> * > <0393> *=P0384 MSC12/05/79STR #054343.3.0 IOCOMX > <0394> * H# <0395> * THE HARD BREAK SEQUENCE (RESET KEY, CMD KEY) CAN CAUSE A HF" <0396> * TASK UNDER A BACKGROUND SCI TO BE ABORTED. THIS PATCH FH# <0397> * ADDS AN ADDITIONAL CHECK TO SEE IF THE PARENT TSB POINTERHF" <0398> * IS ZERO. NORMALLY THE PARENT POINTER OF FOREGROUND SCIF <0399> * IS ZERO.  <0400> *  <0401> *#SYN SROOT,ROOT <0402> *#SYN IOC,IOCOM ( <0403> *.EVAL S$$PAT="@ROOT+>0000" ( <0404> * 8 <0405> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0378,8& <0406>  V=>82A9,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>0378 VERIFICATION DATA  >82A9 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7378 82A9  ..  CURRENT IMAGE L 7378 82A9 0014 16FA 9829 0009 7338 1632 CA69 .. .. .. .) .. s8 .2 .iL  NEW IMAGE: CHECKSUM = 0460 L 7378 0460 0014 16FA 9829 0009 7338 1632 CA69 .` .. .. .) .. s8 .2 .iL < 0407> EC 8 <0408> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>037A,86 <0409>  V=>0014,D=@S$$PAT+>0034,C=@S$$PAT+>00346 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>037A VERIFICATION DATA  >0014 DATA  18080+>0034 CHECKSUM  18080+>0034$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  737A 0014  ..  CURRENT IMAGE L 737A 0014 16FA 9829 0009 7338 1632 CA69 0042 .. .. .) .. s8 .2 .i .BL  NEW IMAGE: CHECKSUM = 46D4 L 737A 46D4 16FA 9829 0009 7338 1632 CA69 0042 F. .. .) .. s8 .2 .i .BL <0410> EC< <0411> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0034, <, <0412>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0413>  D=(>82A9,>0014,>1603,>CA69),C=>5ED72 PROGRAM FILE IMAGE@ MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00340 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >82A9,>0014,>1603,>CA69" CHECKSUM  >5ED7R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 46D4 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 46D4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5ED7 L 46D4 82A9 0014 1603 CA69 DEAD DEAD DEAD DEAD .. .. .. .i .. .. .. ..L <0414> EC< <0415> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>003C, <& <0416>  V=(>DEAD,>DEAD,>DEAD), &, <0417>  D=(>0040,>0040,>0460),C=>0460, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>003C* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0040,>0040,>0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 46DC DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 46DC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 46DC 0040 0040 0460 DEAD DEAD DEAD DEAD DEAD .@ .@ .` .. .. .. .. ..L <0418> EC< <0419> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0042, <4 <0420>  V=>DEAD,D=@IOCOM+>037C,C=@IOCOM+>037C4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0042 VERIFICATION DATA  >DEAD DATA  >7000+>037C CHECKSUM  >7000+>037C$ OUTPUT ACCESS NAME ** NULL ** $AM( VERIFICATION DATA  46E2 DEAD  ..  CURRENT IMAGE L 46E2 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 737C L 46E2 737C DEAD DEAD DEAD DEAD DEAD DEAD DEAD s| .. .. .. .. .. .. ..L <0421> EC <0422> *$R( <0423> **********************************************************************R <0424> * 0 <0425> * BEGIN PATCHES FOR RELEASE 3.3.1 0 <0426> * R( <0427> **********************************************************************R <0428> * > <0429> *=P0388 RVL01/08/80STR #055623.3.1 DSR820 > <0430> * F" <0431> * THE 820 DSR DOES NOT ALLOW EVENT KEYS. THIS PATCH WILLFH# <0432> * ALLOW THE DSR TO RECOGNIZE AND SEND TO THE USER THE EVENTH <0433> * KEYS. <0434> * @ <0435> *#SYN S820,DSR820  <0436> * $ <0437> .IF "@DSR820" ,NE, NONE $ <0438> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R: <0439> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>032E,:& <0440>  V=>C024,D=>D024,C=>D024& <0441> EC <0442> *  <0443> .ENDIF <0444> *$R( <0445> **********************************************************************R <0446> * > <0447> *=P0390 MSC01/08/80STR #055633.3.1 MM$SCN > <0448> * H# <0449> * THE SYSTEM HANGS BECAUSE BUFFERS ARE NOT PREEMPTED ON THEH8 <0450> * FIRST PASS FOR MEMORY FOR LOADING A TASK.8 <0451> *  <0452> *#SYN SROOT,ROOT <0453> * @ <0454> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0026, @ <0455>  V=>13F2,D=>1000,C=>1000 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>1708+>0026  VERIFICATION DATA  >13F2 DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5DCE 13F2  ..  CURRENT IMAGE L 5DCE 13F2 0782 C060 0018 0A21 11ED 1048 0782 .. .. .` .. .! .. .H ..L  NEW IMAGE: CHECKSUM = 1000 L 5DCE 1000 0782 C060 0018 0A21 11ED 1048 0782 .. .. .` .. .! .. .H ..L <0456> EC <0457> *$R( <0458> **********************************************************************R <0459> * > <0460> *=P0391 GRJ01/08/80STR #055643.3.1 SEQ KIF> <0461> * F" <0462> * IF A REWRITE IS DONE ON A SINGLE KEY FILE AND THE VALUEF <0463> * IS BEING MODIFI*ED, THE KEY IS NOT CHANGED BUT ANY OTHER*N <0464> * DATA THAT IS MODIFIED IS CHANGED.ALSO, NO ERROR IS RETURNED. N <0465> *  <0466> *#SYN SKIF3,KIF3 <0467> * " <0468> .IF "@KIF3" ,NE, NONE " <0469> * @ <0470> MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>026C, @& <0471>  V=>0000,D=>0002,C=>0002& <0472> EC@ <0473> MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>0290, @& <0474>  V=>0000,D=>0002,C=>0002& <0475> EC <0476> *  <0477> .ENDIF <0478> *$R( <0479> **********************************************************************R <0480> * > <0481> *=P0392 MSC01/08/80STR #055663.3.1 FILMGR > <0482> * @ <0483> * THE STACK OF FILE MANAGEMENT ROUTINE 'WRTSEQ' IS @$ <0484> * IMPROPERLY MANAGED IF$$ AN ERROR IS RETURNED TO 'WRTSEQ' $R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <0485> * FROM 'BM$RD' RESULTING IN A LATER >A0 CRASH. < <0486> * " <0487> *#SYN SFILMG,FILMG,KIF" <0488> * B <0489> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0114, B6 <0490>  V=(>1105,>1304),D=(>110A,>1309),C=>02036 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >7000+>09D2+>0114 $ VERIFICATION DATA  >1105,>1304$ DATA  >110A,>1309 CHECKSUM  >0203$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AE6 1105 1304 .. .. CURRENT IMAGE L 7AE6 1105 1304 E4A0 490E CEA0 4910 06A0 7E1A .. .. .. I. .. I. .. ~.L  NEW IMAGE: CHECKSUM = 0203  7AE6 110A 13<09 E4A0 490E CEA0 4910 06A0 7E1A .. .. .. I. .. I. .. ~.< <0491> ECB <0492> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0126, B& <0493>  V=>C0C3,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >7000+>09D2+>0126  VERIFICATION DATA  >C0C3 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AF8 C0C3  ..  CURRENT IMAGE L 7AF8 C0C3 1103 1302 0460 79DC C04D 0221 000E .. .. .. .` y. .M .! ..L  NEW IMAGE: CHECKSUM = 0460 L 7AF8 0460 1103 1302 0460 79DC C04D 0221 000E .` .. .. .` y. .M .! ..L <0494> ECB <0495> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0128, B@ <0496>  V=>1103,D=@FILMG+>09D2+>000A,C=@FILMG+>09D2+>000A@B@ PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >7000+>09D2+>0128  VERIFICATION DATA  >1103 DATA >7000+>09D2+>000A  CHECKSUM >7000+>09D2+>000A $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AFA 1103  ..  CURRENT IMAGE L 7AFA 1103 1302 0460 79DC C04D 0221 000E 05A1 .. .. .` y. .M .! .. ..L  NEW IMAGE: CHECKSUM = 79DC L 7AFA 79DC 1302 0460 79DC C04D 0221 000E 05A1 y. .. .` y. .M .! .. ..L <0497> ECB <0498> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012A, B& <0499>  V=>1302,D=>06A0,C=>06A0& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  >7000+> 09D2+>012A  VERIFICATION DATA  >1302 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AFC 1302  ..  CURRENT IMAGE L 7AFC 1302 0460 79DC C04D 0221 000E 05A1 0002 .. .` y. .M .! .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 7AFC 06A0 0460 79DC C04D 0221 000E 05A1 0002 .. .` y. .M .! .. .. ..L <0500> ECB <0501> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012C, B4 <0502>  V=>0460,D=@FILMG+>0E1A,C=@FILMG+>0E1A4 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >7000+>09D2+>012C  VERIFICATION DATA  >0460 DATA  >7000+>0E1A CHECKSUM  >7000+>0E1A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AFE 0460  .`  CURRENT IMAGE L 7AFE 0460 79DC C04D 0221 000E 05A1 0002 1701 .` y. .M .! .. .. .. ..L  NEW IMAGE: CHECKSUM = 7E1A L 7AFE 7E1A 79DC C04D 0221 000E 05A1 0002 1701 ~. y. .M .! .. .. .. ..L <0503> ECB <0504> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012E, B$ <0505>  V=@FILMG+>09D2+>000A,$8 <0506>  D=@FILMG+>09D2+>01D2,C=@FILMG+>09D2+>01D28 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >7000+>09D2+>012E * VERIFICATION DATA  >7000+>09D2+>000A* DATA >7000+>09D2+>01D2  CHECKSUM >7000+>09D2+>01D2 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7B00 79DC  y.  CURRENT IMAGE L 7B00 79DC C04D 0221 000E 05A1 0002 1701 0591 y. .M .! .. .. .. .. ..L NEW IMAGE: CHECKSUM = 7BA4L 7B00 7BA4 C04D 0221 000E 05A1 0002 1701 0591 {. .M .! .. .. .. .. ..L <0507> EC <0508> *$R( <0509> **********************************************************************R <0510> * > <0511> *=P0401 MSC01/16/80STR #056333.3.1 TM$SHD > <0512> * F" <0513> * WHEN PROCESSING A CORRECTABLE MEMORY ERROR FOR LOGGING,FD! <0514> * THE STACK IN TM$SHD IS OVERRUN CAUSING THE FIRST FEW DB <0515> * WORDS OF THE LOG PROCESSOR TO BE OVERWRITTEN.WHENB> <0516> * LOGGING IS THEN ATTEMPTED, ILLEGAL OPCODES ARE >H <0517> * ENCOUNTERED CAUSING A SYSTEM CRASH >20.THIS PATCH MOVESH@ <0518> * THE CODE BEING OVERWRITTEN TO THE OS PATCH AREA. @ <0519> *  <0520> *#SYN SROOT,ROOTB * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** BSCI990 **BATCH " <0521> *#SYN SIO,SVCIO,SYSLOG"( <0522> *.EVAL S$$PAT="@ROOT+>0000" ( <0523> * > <0524> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>1A5C+>0362,>4 <0525>  V=@SVCIO+>1A5C+>04B2,! TM$SHD+>04B24. <0526>  D=@S$$PAT+>01E0,C=@S$$PAT+>01E0. PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7900+>1A5C+>0362 * VERIFICATION DATA  >7900+>1A5C+>04B2* DATA  18080+>01E0 CHECKSUM  18080+>01E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  96BE 980E  ..  CURRENT IMAGE L 96BE 980E 0000 0000 0000 0000 0000 04C5 C120 .. .. .. .. .. .. .. . L  NEW IMAGE: CHECKSUM = 4880 L 96BE 4880 0000 0000 0000 0000 0000 04C5 C120 H. .. .. .. .. .. .. . L <0527> EC  <0528> *$R( <0529> **********************************************************************R <0530> * D <0531> *=P0407 MU 01/18/80STR #05638 3.3.1 DXIOS,FMACES D <0532> * F" <0533> * AN UNEXPECTED >3B ERROR OCCURS WHEN MULTIPLE TASKS ARE FF" <0534> * TRYING TO OPEN THE SAME FILE WITH SHARED ACCESS OR THE FD! <0535> * FILE S$FGTCA GETS DESTROYED. THIS PATCH CORRECTS THED <0536> * PROBLEM.  <0537> * " <0538> *#SYN SFILMG,FILMG,KIF" <0539> *#SYN SROOT,ROOT" <0540> *#SYN SIO,SVCIO,SYSLOG"( <0541> *.EVAL S$$PAT="@ROOT+>0000" ( <0542> * < <0543> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0044, <& <0544>  V=(>DEAD,>DEAD,>DEAD), &, <0545>  D=(>CB08,>0008,>0720),C=>CC20, PROGRAM FILE IMAGE MODULE TYPE  TA   MODULE N AME OR ID  3 ADDRESS  18080+>0044* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >CB08,>0008,>0720 CHECKSUM  >CC20$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 46E4 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 46E4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = CC20 L 46E4 CB08 0008 0720 DEAD DEAD DEAD DEAD DEAD .. .. ... .. .. .. ..L <0546> EC< <0547> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004A, <4 <0548>  V=>DEAD,D=@SVCIO+>0E58,C=@SVCIO+>0E584 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>004AR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA  >DEAD DATA  >7900+>0E58 CHECKSUM  >7900+>0E58$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  46EA DEAD  ..  CURRENT IMAGE L 46EA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8758 L 46EA 8758 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .X .. .. .. .. .. .. ..L <0549> EC< <0550> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004C, <& <0551>  V=>DEAD,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>004C VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  46EC DEAD  ..  CURRENT IMAGE F 46EC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. ..F .. ..  NEW IMAGE: CHECKSUM = 0460 L 46EC 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <0552> EC< <0553> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004E, <@ <0554>  V=>DEAD,D=@SVCIO+>0E58+>0344,C=@SVCIO+>0E58+>0344@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>004E VERIFICATION DATA  >DEAD DATA >7900+>0E58+>0344  CHECKSUM >7900+>0E58+>0344 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  46EE DEAD  ..  CURRENT IMAGE L 46EE DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8A9C L 46EE 8A9C DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <0555> EC$ <0556> MPI PF=IMAGE,MT=TA,MN=@S$ ROOT,ADR=@S$$PAT+>0050, & <0557>  V=(>DEAD,>DEAD,>DEAD), &, <0558>  D=(>CA4C,>0006,>0760),C=>CD2A, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0050* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >CA4C,>0006,>0760 CHECKSUM  >CD2A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 46F0 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 46F0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = CD2A L 46F0 CA4C 0006 0760 DEAD DEAD DEAD DEAD DEAD .L .. .` .. .. .. .. ..L <0559> EC< <0560> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0056, < <0561>  V=>DEAD,D=@SV CIO+>0E58,C=@SVCIO+>0E58 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0056 VERIFICATION DATA  >DEAD DATA  >7900+>0E58 CHECKSUM  >7900+>0E58$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  46F6 DEAD  ..  CURRENT IMAGE L 46F6 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8758 L 46F6 8758 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .X .. .. .. .. .. .. ..L <0562> EC< <0563> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0058, <& <0564>  V=(>DEAD,>DEAD,>DEAD), &, <0565>  D=(>130A,>C129,>000C),C=>D22F, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0058 VERIFICATION DATA  >DEAD,>DEAD,>DEAD DATA >130A,>C129,>000C CHECKSUM  >D22F$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 46F8 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 46F8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D22F L 46F8 130A C129 000C DEAD DEAD DEAD DEAD DEAD .. .) .. .. .. .. .. ..L <0566> EC< <0567> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>005E, <, <0568>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0569>  D=(>0244,>0018,>0B64,>5B20),C=>52182 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>005E0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >0244,>0018,>0B64,>5B20" CHECKSUM  >5218$ OUTPUT ACCESS NAME ** NULL ** $  VERIFICATION DATA , 46FE DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 46FE DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5218 L 46FE 0244 0018 0B64 5B20 DEAD DEAD DEAD DEAD .D .. .d [ .. .. .. ..L <0570> EC <0571> * < <0572> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0066, <6 <0573>  V=>DEAD,D=@S$$PAT+>004D,C=@S$$PAT+>004D6 PROGRAM FILE IMAGER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0066 VERIFICATION DATA  >DEAD DATA  18080+>004D CHECKSUM  18080+>004D$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4706 DEAD  ..  CURRENT IMAGE  47H06 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..H  NEW IMAGE: CHECKSUM = 46ED L 4706 46ED DEAD DEAD DEAD DEAD DEAD DEAD DEAD F. .. .. .. .. .. .. ..L <0574> EC< <0575> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0068, <& <0576>  V=>DEAD,D=>0004,C=>0004& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0068 VERIFICATION DATA  >DEAD DATA  >0004 CHECKSUM  >0004$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4708 DEAD  ..  CURRENT IMAGE L 4708 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0004 L 4708 0004 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <0577> EC <0578> MPI PF=IMA  LIBRARY .SCI990.S$OBJECT   FORMAT  IMAGE,REPLACE PROCEDURE CONVRT   DUMMY%  INCLUDE .CONVERT.OBJECTC   TASK  IBM2TI   INCLUDE .CONVERT.OBJECTB   END&(IBM2TI (EBCDIC TO ASCII CONVERSION),($ INPUT ACCESS NAME = ACNM(MT01),$ OUTPUT ACCESS NAME = ACNM,"DELETE CONTROL CHAR=*YESNO(NO)"$ALL=>22,A=.EBCASC.CONVERT,P=Y $*.IF "&DELETE CONTROL CHAR", EQ, "YES" *.BID TASK=>02,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME, "YES")" .ELSE % .BID TASK=>02,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME,"")  .ENDIF%  .IF "@$$CC", NE, "00000" MSG T="ERROR @$$CC"  .ENDIF% RLL=>22 "ā*/ m*P*P>K-+09A/*m ` ѱ *   @m  @"  *@* **@   *  EF HIm  4 08 12/07/7909:28:40 NBSN PRO NO DEL 08S$SLG1 * 62 07/19/8914:34:18 BS C SEQ YES86S$SLG2 *0 01/00/0000:00:05 BS C SEQ YES6>S$TCALIB *2 01/00/0000:02:21 NBSN REL NO DEL >6TEMP *933 04/01/8017:12:34 BS N SEQ YES6$14:38:23 WEDNESDAY, JUL 19, 1989. $01/02/8013:58:31 NBSC REL NO WRT DEL B:S$FGTCA  * 12 07/19/8914:38:11 NBSN REL NO :8S$FTLF02 *1 07/19/8914:38:11 BS N SEQ YES8@S$IMAGES *817 07/19/8913:27:35 NBSN PRO NO DEL @@S$LOADER * 20 11/14/7915:04:19 NBSC IMG NO DEL @@S$OVLYA  * 33 04/01/8017:12:26 NBSC REL NO DEL @BS$PROGA  * 2706 12/07/7909:29:46 NBSN PRO NO DEL B8S$ROLLA  *0 01/02/8014:22:53 NBSN IMG NO 8S$SDS$ *63@R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RN& <0001> *================ SYSGEN COMPLETION BATCH STREAM ================ NB <0002> ******************* ASSEMBLE D$DATA ***************** B <0003> BATCH  LS (LIST SYNONYMS) ? NO , BATCH LISTING ACCESS NAME  ** NULL ** ,* BATCH INPUT ACCESS NAME  ** NULL ** * STATION ID  ST02  USER ID  MAT000 & 13:01:19 WEDNESDAY, JUL 19, 1989. &8 <0004> XMA  SOURCE = DS01.S$SYSGEN.SKI1.D$SOURCE,84 <0005>  OBJECT = DS01.S$SYSGEN.SKI1.D$OBJECT,4 <0006>  LIST = XMA$L,& <0007>  OPTION = (BUN,TUN,DUN) &4 SOURCE ACCESS NAME DS01.S$SYSGEN.SKI1.D$SOURCE44 OBJECT ACCESS NAME DS01.S$SYSGEN.SKI1.D$OBJECT4 LISTING ACCESS NAME  XMA$L  OPTIONS  BUN,TUN,DUN PAGE LENGTH  60  PRINT WIDTH  80 ( MACRO LIBRARY PATHNAME ** NULL ** ($ ERROR ACCESS NAME  ** NULL ** $ A  ** UNKNOWN ** BUNLIST  ** UNKNOWN ** TUNLIST  ** UNKNOWN ** DUNLIST  ** UNKNOWN **8 MACRO ASSEMBLY COMPLETE, 0000 ERRORS, 0000 WARNINGS 8 <0008> .SYN XMA$L = "" " <0009> .IF  @$$CC,GE,04000 "H <0010>  CM R=ME,M="*** ALGS - D$DATA ASSEMBLY ERROR = @$$CC ***" H> <0011>  .STOP T="*** ALGS - D$DATA ASSEMBLY ERROR ***" > <0012> .ENDIFD! <0013> ******************** LINK THE SYSTEM ****************** D8 <0014> XLE  CONTROL= DS01.S$SYSGEN.SKI1.LINKSTRM,8& <0015>  LINK = DS01.S$IMAGES,&2 <0016>  LIST = DS01.S$SYSGEN.SKI1.LINKMAP26 CONTROL ACCESS NAME  DS01.S$SYSGEN.SKI1.LINKSTRM6 LINKED OUTPUT ACCESS NAME  DS01.S$IMAGES6 LISTING ACCESS NAME  DS01.S$SYSGEN.SKI1.LINKMAP 6 PRINT WIDTH  80 2 LINK EDITOR COMPLETED,0 ERRORS, 0 WARNINGS2 <0017> .IF @$$CC,GE,04000H <0018> CM R=ME,M="*** ALGS - SYSTEM LINK EDIT ERROR = @$$CC ***" H> <0019>  .STOP T="*** ALGS - SYSTEM LINK EDIT ERROR ***"> <0020> .ENDIFF" <0021> ******************** RUN SYNONYM ASSIGNMENT PROG ******** F8 <0022> XPS  LINK = DS01.S$SYSGEN.SKI1.LINKMAP, 8* <0023>  INPUT = DS01.PATCH.MEMRES,*4 <0024>  OUTPUT = DS01.S$SYSGEN.SKI1.PATCHFIL,40 <0025>  ERROR = DS01.S$SYSGEN.SKI1.ERROR0& LINK  DS01.S$SYSGEN.SKI1.LINKMAP & INPUT DS01.PATCH.MEMRES( OUTPUT  DS01.S$SYSGEN.SKI1.PATCHFIL(& ERROR DS01.S$SYSGEN.SKI1.ERROR &  STOP 0  NORMAL PROGRAM COMPLETION @  <0026> .SYN $$CC ="@$XPS$E"  <0027> .IF @$$CC,GT,00000. <0028>  .SHOW DS01.S$SYSGEN.SKI1.ERROR. <0029> .ENDIF <0030> .IF @$$CC,GE,08000R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RP <0031> ! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***" PF <0032>  .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***" F <0033> .ENDIF <0034> .IF @$$CC,GT,00000R <0035> " CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC **RJ <0036>  .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***" J <0037> .ENDIF: <0038> CM R=ME,M="*** ALGS - NORMAL TERMINATION ***" :" RECEIVING TERMINAL NAME  ME ", MSG  *** ALGS - NORMAL TERMINATION ***,0 <0039> .STOP T="*** ALGS - NORMAL TERMINATI0 ON ***" $$CC ="@$XPS$E"  <0027> .IF @$$CC,GT,00000. <0028>  .SHOW DS01.S$SYSGEN.SKI1.ERROR. <0029> .ENDIF <0030> .IF @$$CC,GE,08000R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RP <0031> ! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***" PF <0032>  .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***" F <0033> .ENDIF <0034> .IF @$$CC,GT,00000R <0035> " CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC **RJ <0036>  .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***" J <0037> .ENDIF: <0038> CM R=ME,M="*** ALGS - NORMAL TERMINATION ***" :" RECEIVING TERMINAL NAME  ME ", MSG  *** ALGS - NORMAL TERMINATION ***,0 <0039> .STOP T="*** ALGS - NORMAL TERMINATI0@"IS (INITIALIZE THE SYSTEM) =4 "IDT &.IF @$$CC,NE,0! .EXIT % .ENDIF% ISL & MTS TERMINAL NAME = ST01, NEW STATUS= "", NEW MODE= "VDT",LOGIN REQUIRED= "YES",USER PRIVILEGE CODE = "", DEFAULT MODE= "" MTS TERMINAL NAME = ST02, NEW STATUS= "", NEW MODE= "VDT",LOGIN REQUIRED= "YES", USER PRIVILEGE CODE = "", DEFAULT MODE= "" .BID TASK=3,PARMS=(P, 01 )  .BID TASK=3,PARMS=(P, 02 )  .BID TASK=3,PARMS=(P, 03 )  .BID TASK=3,PARMS=(P, 04 )  .BID TASK=3,PARMS=(P, 09 )  .BID TASK=3,PARMS=(P, 0A )  .BID TASK=3,PARMS=(P, 0B )   .BID TASK=3,PARMS=(P , 0D )  .BID TASK=3,PARMS=(P, 0E )  .BID TASK=3,PARMS=(P, 0F )  .BID TASK=3,PARMS=(P, 010)  .MSG TEXT = "WARMSTART PROCEDURE COMPLETE".Q '@* 'B* INSTALL SCI COMMANDS TO EXECUTE ASCII / EBCDIC CONVERSION B6*  NOTE THAT THE DIRECTORY NAME MUST AGREE WITH 68* THE NAME THE CONVERSION ROUTINES WERE INSTALLED 8* UNDER !* ' .DATA .S$PROC.TI2IBM(TI2IBM (ASCII TO EBCDIC CONVERSION),( INPUT ACCESS NAME = ACNM,$OUTPUT ACCESS NAME = ACNM(MT01),$"DELETE CONTROL CHAR=*YESNO(NO)"$ALL=>22,A=.CONVERT.PROGLIB,P=Y$*.IF "&DELETE CONTROL CHAR", EQ, "YES" *.BID TASK=>01,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME, "YES")" .ELSE % .BID TASK=>01,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME,"")  .ENDIF%  .IF "@$$CC", NE ,"00000" MSG T="ERROR @$$CC"  .ENDIF% RLL=>22 ".EOD&* '* '* ' .DATA .S$PROC.IBM2TI(IBM2TI (EBCDIC TO ASCII CONVERSION),($ INPUT ACCESS NAME = ACNM(MT01),$ OUTPUT ACCESS NAME = ACNM,"DELETE CONTROL CHAR=*YESNO(NO)"$ALL=>22,A=.CONVERT.PROGLIB,P=Y$*.IF "&DELETE CONTROL CHAR", EQ, "YES" *.BID TASK=>02,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME, "YES")" .ELSE % .BID TASK=>02,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME,"")  .ENDIF%  .IF "@$$CC", NE, "00000" MSG T="ERROR @$$CC"  .ENDIF% RLL=>22 ".EOD& .STOP % =>01,LUNO=>22, PARM=(&INPUT ACCESS NAME,  &OUTPUT ACCESS NAME,"")  .ENDIF%  .IF "@$$CC", NE ,"00000" MSG T="ERROR @$$CC"  .ENDIF% RLL=>22 ".EOD&* '* '* R#00194CONVRT A0000B0420B0000BC040B161FB0202B0001B0203B0000B04207F251F CONV0001RR(B0000B0203BC040B1616B0202B0002B0203B0000B0420C0012B0203BC040B160D7F239F CONV0002RR(B0202B0003B0203B0000B0420C0024B0203BC040B1604B0420B0000BC040B13037F24BF CONV0003RR(B0202C0180B107EBD820C0155B0000B2FE0B0000BC060C0054B1678BD820C01557F1CAF CONV0004RR(B0000B2FE0B0000BC060C0064B1670BD820C0156C0050B2FE0C0058BC060C00747F1BFF CONV0005RR(B1668BD820C0156C0060B2FE0C0068BC060C0084B1660B0204B0000BC804B00007F1D4F CONV0006RR(BC804B0000B0205B0000B9820C0032C0154B1301B0605BC805B0000BD820C01577F209F CONV0007RR(C0070B2FE0C0078BC060C00B2B1649BC060B0000B2060C0152B131EB0204C008E7F1C0F CONV0008RR(BC160B0000BC805B0000B9820C009EC0154B1303BD1A4B0001B1001BD194B06C67F1C3F CONV0009RR(B0246B00FFBDD26B0000B0605B1BF1BD820C0158C0080B2FE0C0088BC060C00F67F168F CONV0010RTR(B1627B10D5BD820C0159C00AEB2FE0C00B6BC060C0108B161EBD820C015AC00F27F15BF CONV0011RR(B2FE0C00FABC060C0118B1616BD820C015BC0104B2FE0C010CBC060C0128B160E7F168F CONV0012RR(BD820C015BC0114B2FE0C011CBC060C0138B1606B0201B0000B0202C015CB04207F1D4F CONV0013RR(B0000B0202C0170B10FBB2000B0091B000AB0C01B0293B1254B5241B4E53B4C417F1E5F CONV0014RR(B5445B2043B4F4DB504CB4554B4500A0170B0E46B494CB4520B492FB4F20B45527F185F CONV0015RR(B524FB5200A0180B1353B4349B2049B4E54B4552B4641B4345B2045B5252B4F527F1C5F CONV0016RJ300C6BUFFER300D2CNTLCD50000CONVRT30092INBADR3012CINFILE7F203F CONV0017JJ300BCINFLAG30124INFUN 300A8INLREC3000EINNAME300CAINPREC7F205F CONV0018JJ3009ALRECL 30096OUTADR3013COUTFIL30134OUTFUN30020OUTNAM7F1D7F CONV0019JJ300CEOUTPRC30002S$GTCA30036S$PARM30040S$RTCA3014AS$STOP7F245F CONV0020J 300E8TABLE 7FD31F CONV0021D:  CONVRT  03/23/79 12:01:29  SDSMAC 3.2.0 78.274CONV0022DCONV0011RR(B2FE0C00FABC060C0118B1616BD820C015BC0104B2FE0C010CBC060C0128B160E7F168F CONV0012RR(BD820C015BC0114B2FE0C011CBC060C0138B1606B0201B0000B0202C015CB04207F1D4F CONV0013RR(B0000B0202C0170B10FBB2000B0091B000AB0C01B0293B1254B5241B4E53B4C417F1E5F CONV0014RR(B5445B2043B4F4DB504CB4554B4500A0170B0E46B494CB4520B492FB4F20B45527F185F CONV0015RR(B524FB5200A0180B1353B4349B2049B4E54B4552B4641B4345B2045B5252B4F527F1C5F CONV0016RJ300C6BUFFER300D2CNTLCD50000CONVRT30092INBADR3012CINFILE7F203F CONV0017JJ300BCINFLAG30124INFUN 300A8INLREC3000EINNAME300CAINPREC7F205F CONV0018JJ3009ALRECL 30096OUTADR3013COUTFIL30134OUTFUN30020OUTNAM7F1D7F CONV0019JJ300CEOUTPRC30002S$GTCA30036S$PARM30040S$RTCA3014AS$STOP7F245F CONV0020J 300E8TABLE 7FD31F CONV0021 NAME  DS01.S$IMAGES6 LISTING ACCESS NAME  DS01.S$SYSGEN.SKI1.LINKMAP 6 PRINT WIDTH  80 2 LINK EDITOR COMPLETED,0 ERRORS, 0 WARNINGS2 <0017> .IF @$$CC,GE,04000H <0018> CM R=ME,M="*** ALGS - SYSTEM LINK EDIT ERROR = @$$CC ***" H> <0019>  .STOP T="*** ALGS - SYSTEM LINK EDIT ERROR ***"> <0020> .ENDIFF" <0021> ******************** RUN SYNONYM ASSIGNMENT PROG ******** F8 <0022> XPS  LINK = DS01.S$SYSGEN.SKI1.LINKMAP, 8* <0023>  INPUT = DS01.PATCH.MEMRES,*4 <0024>  OUTPUT = DS01.S$SYSGEN.SKI1.PATCHFIL,40 <0025>  ERROR = DS01.S$SYSGEN.SKI1.ERROR0& LINK  DS01.S$SYSGEN.SKI1.LINKMAP & INPUT DS01.PATCH.MEMRES( OUTPUT  DS01.S$SYSGEN.SKI1.PATCHFIL(& ERROR DS01.S$SYSGEN.SKI1.ERROR &  STOP 0  NORMAL PROGRAM COMPLETION @  <0026> .SYN $$CC ="@$XPS$E"  <0027> .IF @$$CC,GT,00000. <0028>  .SHOW DS01.S$SYSGEN.SKI1.ERROR. <0029> .ENDIF <0030> .IF @$$CC,GE,08000R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RP <0031> ! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***" PF <0032>  .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***" F <0033> .ENDIF <0034> .IF @$$CC,GT,00000R <0035> " CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC **RJ <0036>  .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***" J <0037> .ENDIF: <0038> CM R=ME,M="*** ALGS - NORMAL TERMINATION ***" :" RECEIVING TERMINAL NAME  ME ", MSG  *** ALGS - NORMAL TERMINATION ***,0 <0039> .STOP T="*** ALGS - NORMAL TERMINATI0 ON ***" $$CC ="@$XPS$E"  <0027> .IF @$$CC,GT,00000. <0028>  .SHOW DS01.S$SYSGEN.SKI1.ERROR. <0029> .ENDIF <0030> .IF @$$CC,GE,08000R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RP <0031> ! CM R=ME,M="*** ALGS - SYNONYM GENERATOR FATAL ERROR = @$$CC ***" PF <0032>  .STOP T="*** ALGS - SYNONYM GENERATOR FATAL ERROR ***" F <0033> .ENDIF <0034> .IF @$$CC,GT,00000R <0035> " CM R=ME,M="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR = @$$CC **RJ <0036>  .STOP T="*** ALGS - SYNONYM GENERATOR NON-FATAL ERROR ***" J <0037> .ENDIF: <0038> CM R=ME,M="*** ALGS - NORMAL TERMINATION ***" :" RECEIVING TERMINAL NAME  ME ", MSG  *** ALGS - NORMAL TERMINATION ***,0 <0039> .STOP T="*** ALGS - NORMAL TERMINATI0SKI1 Y<<d'==,N  ST01CS01CS026 ST01L ST01p DS01DS02 ` DS01 ``LP01 ST01 ST02,`LP01, LP02, DS01DS02DS03DS04   MT01, ,P* B) IF THE LINK MAP IS NO LONGER AVAILABLE ON DISK FILE, THIS FILE PP* WILL HAVE TO BE TRANSLATED MANUALLY. COPY THIS FILE TO PP* ANOTHER FILE AND EDIT THAT FILE DOING THE FOLLOWING. PP* PP* 1. FOR EACH #SYN COMMAND FOUND IN THE FILE, TWO OR MORE PP* SYNONYMS MUST BE DEFINED. EACH #SYN COMMAND IS IN THE PP* FORMAT: PP* #SYN ,,, ... PP* FOR EXAMPLE: P6* #SYN SROOT,ROOT 6 P* WHERE: PP* SROOT IS THE SYNONYM NAME, AND PP* ROOT IS THE OF THE MODULE TO BE PATCHED. PP* PP* 2. FIND THE S IN THE LINK MAP. ALL MODULES PP* ON ONE LINE OF A #SYN COMMAND WILL RESIDE IN THE SAME PHASE PP* OF THE LINK. DETERMINE THE OVERLAY OR TASK ID FROM THE PP* PHASE HEADER LINE OF THE PHASE WHERE THE SPECIFIED MODULES PP* ARE FOUND. INSERT A #SYN COMMAND INTO THE PATCH FILE TO PH* DEFINE THE OVERLAY OR ID, AS IN THE FOLLOWING EXAMPLE: H P* .SYN SROOT=1 PP* WHERE PP* SROOT IS THE SYNONYM FOUND PP* IN THE #SYN COMMAND, AND PP* 1 IS THE OVERLAY OR TASK ID FROM THE PHASE PP* IN WHICH THE LISTED MODULES RESIDE. PP* (1 IS THE ID FOR THE FIRST SYSTEM. THIS WILL PP* BE DIFFERENT FOR ADDITIONAL SYSTEMS.) PP* PP* 3. NEXT, INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH P* J IN THE #SYN COMMAND. FOR EXAMPLE: JP* .SYN ROOT=031DA PP* WHERE: PP* ROOT IS THE OF THE MODULE (FROM THE #SYN PP* COMMAND) TO BE PATCHED, AND PP* 031DA IS THE HEXADECIMAL ADDRESS OF THE MODULE PP* ORIGIN FOR TI-SUPPLIED SYSTEM. (THIS MAY BE PP* DIFFERENT FOR CUSTOM SYSTEMS.) PP* PP* 4. DELETE THE #SYN LINE FROM THE PATCH FILE. P* 8 8P* 5. REPEAT STEPS 1 - 4 FOR EACH #SYN COMMAND IN THE FILE. PP* PP* 6. QUIT THE TEXT EDIT SPECIFYING "YES" TO THE REPLACE OPTION. PP* PP* 7. EXECUTE THE BATCH STREAM YOU JUST CREATED. PP* PP********************************************************************************PPQ$SYN PP.SYN $E$C="0" P*.SYN IMAGE="@$$DSC$.S$IMAGES" *& &P.SYN SLGY = 3 PP.SYN SYSLGY =>464E PP.SYN SROOT = 3 PP.SYN ROOT =>46A0 PP.SYN SFILMG = 19 PP.SYN FILMG =>7000 PP.SYN KIF ="NONE" PP.SYN KIF3 ="NONE" PP.SYN SMEM = 20 P<.SYN MEMRES =>7000 < P.SYN SIO = 23 PP.SYN SVCIO =>7900 PP.SYN SYSLOG =>982E PP.SYN IOC = 22 PP.SYN IOCOM =>7000 PP.SYN SDDIO = 24 PP.SYN DDIOSR =>7900 PP.SYN S911 = 26 PP.SYN DSR911 =>7900 PN.SYN DSR911PF ="NONE" N P.SYN DSR911WP ="NONE" PP.SYN DSR913 ="NONE" PP.SYN SLP = 25 PP.SYN LPDSR =>7900 PP.SYN DSR820 ="NONE" PP.SYN FPYDSR ="NONE" PP.SYN S979 = 27 PP.SYN DSR979 =>7900 PP.SYN COMMCOM ="NONE" PP.SYN DSR733 ="NONE" P .SYN DSRKSR D ="NONE" DP* PP********************************************************************************PP* THE FOLLOWING SYNONYMS ARE DEFINED BY TI SYSTEM ANALYSTS ONLY AT PP* SYSTEM BUILD TIME. THEY SHOULD NOT BE MODIFIED BY THE USER. PP********************************************************************************PP* INSERT PRE-LINK DEFINED SYNONYMS HERE: PP.EVAL S$$PAT="@ROOT+>0000" PP* PP************************************************************************** P* Q SROOT Q$ DIFFERENT SYNONYMS FOR SAME OVERLAY$2 2P* CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000. PP* THIS CAUSES SEVERAL PROBLEMS IN DISK RESIDENT SYSTEM TASKS. PP* PP.IF @FILMG,GT,>C000 PPCM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >C000 " PPCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @FILMG " PPCM R=ME,M="PATCHING TERMINATED" PP.STOP PP.ENDIF P0* 0 P************************************************************************** PP* PP* CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800. PP* THIS CAUSES SEVERAL PROBLEMS IN EXECUTION AS ANY REFERENCE PP* IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS INSTEAD PP* OF MEMORY. PP* PP.EVAL $$TMP=@SYSLOG+>0264 PP.IF @$$TMP,GT,>F800 PBCM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >F800 " B PCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP " PPCM R=ME,M="PATCHING TERMINATED" PP.STOP PP.ENDIF PP.IF @$$TMP,GT,>F600 PPCM R=ME,M="PATCH STREAM WARNING - SYSTEM EXCEEDS >F600 " PPCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP " PPCM R=ME,M="LENGTH OF SYSTEM MUST BE LESS THAN >F800" PPCM R=ME,M="CHECK LINKMAP OF SYSTEM FOR PHASE 0 LENGTH" PP.ENDIF P" T@P.SYN $$TMP="" PP* PP************************************************************************** PP* PP* BEGIN PATCHES FOR RELEASE 3.3.0 PP* PP************************************************************************** PP* PP*=P0370 MSC 11/16/79 STR #05407 3.3.0 LPDSR PP* P* THE LINE PRINTE>R WILL DO A TIME-OUT IF A ZERO LENGTH >P* WRITE IS SENT TO IT. PRINT FILE WILL APPEAR TO HANG PP* AND THE PRINTER WILL NOT BE USABLE. ANY TASK DOING PP* THE ZERO LENGTH WRITE WILL HANG WAITING ON I/O COMPLETION. PP* PP*#SYN SLP,LPDSR PP* PP.IF "@LPDSR" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0062, P$ V=>101D,D=>161D,C=>161D $, ,PEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0379 MU 12/05/79 STR #05431 3.3.0 DSR911 PP* PP* A BUG IN THE INPUT ROUTINE OF THE 911 DSR CAUSES P6* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE 6 P* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S911,DSR911 PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>034C, PP V=(>0B2B,>1817,>1E0F,>3605), PP D=(>058A,>0B2B,>1816,>1012),C=>06A5 PH!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 H PMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0406, PP V=(>091B,>178F,>32CA), PP D=(>32CA,>091B,>178E),C=>2C5F PPEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0380 MU 12/05/79 STR #05431 3.3.0 DSR911PF P* J JP* A BUG IN THE INPUT ROUTINE OF THE POWER FAIL 911 DSR PP* CAUSES THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE PP* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S911PF,DSR911PF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF" ,NE, NONE P* 8 8PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BC, PP V=(>0620,@DSR911PF+>0BA0), PP D=(>32CA,>0460),C=>36AA PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C0, PP V=>32CA,D=@S$$PAT,C=@S$$PAT PP PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C6, P* V=>4820,D=>0460,C=>0460 *& &PEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C8, PP V=@DSR911PF+>000C,D=@DSR911PF+>0514,C=@DSR911PF+>0514 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B6, PP V=>091B,D=>C80A,C=>C80A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B8, PP V=>1802,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 P05BA, PP V=(>0460,@DSR911PF+>0494,>C80A,@DSR911PF+>0BA0), PP D=(>32CA,>091B,>1802,>0460),C=>27B3 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05C2, PP V=>32CA,D=@DSR911PF+>0494,C=@DSR911PF+>0494 PPEC PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, PN V=(>DEAD,>DEAD),D=(>058A,>0620),C=>03AA N PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0004, PP V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0006, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0008, PP V=>DEAD,D=@DSR911PF+>04C2,C=@DSR911PF+>04C2 PPEC P * D DP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0381 MU 12/05/79 STR #05432 3.3.0 DSR911PF PP* PP* A BUG IN THE CLEARING OF THE SCREEN OF THE 911 PP* POWER FAIL DSR LEAVES A CHARACTER IN THE UPPER LEFT PP* OF THE SCREEN. P* 2 2P*#SYN S911PF,DSR911PF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0822, PP V=(>32E0,@DSR911PF+>0B6C,>1F0A,>1302), PP D=(>0707,>32C7,>36C7,>0587),C=>0680 P0EC 0 PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>082A, PP V=(>32E0,@DSR911PF+>0B6E,>36C7), PP D=(>1000,>1000,>1000),C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085C, PP V=>05A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085E, PP V=@DSR911PF+>0BA0,D=@S$$PAT+>000A,C=@S$$PAT+>000A PBEC B PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000A, PP V=>DEAD,D=>C9C8,C=>C9C8 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000C, PP V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000E, PP V=>DEAD,D=>05A0,C=>05A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0010, P T@P V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0012, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0014, PP V=>DEAD,D=@DSR911PF+>0860,C=@DSR911PF+>0860 PPEC PP* PP.ENDIF P*$ > >P************************************************************************** PP* PP*=P0382 MU 12/05/79 STR #05431 3.3.0 DSR913 PP* PP* A BUG IN THE INPUT ROUTINE OF THE 913 DSR CAUSES PP* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE PP* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S913,DSR913 P$*#SYN SROOT,ROOT $, ,P*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR913" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B4, PP V=>06A0,D=>0460,C=>0460 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B6, PP V=@DSR913+>07DC,D=@S$$PAT+>0016,C=@S$$PAT+>0016 P6!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 6 PMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8, PP V=(>0B2B,>1811,>35C5), PP D=(>0B5B,>1811,>1001),C=>034B PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, PP V=>DEAD,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0018, PP V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC PHEC H PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001A, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>058A,>0460),C=>C322 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0022, PP V=>DEAD,D=@DSR913+>02B8,C=@DSR913+>02B8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023C, PP V=>1D0C,D=>0460,C=>0460 PPEC PMPI PFJ=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E, JP V=>0621,D=@S$$PAT+>0024,C=@S$$PAT+>0024 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0240, PP V=>0008,D=>060A,C=>060A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>890A,>0030,>1301,>1D0C),C=>8737 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PMPI PF=IMAGE,MT=TA,MN=@S8ROOT,ADR=@S$$PAT+>002C, 8P V=(>DEAD,>DEAD,>DEAD),D=(>0621,>0008,>0460),C=>0249 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0032, PP V=>DEAD,D=@DSR913+>0240,C=@DSR913+>0240 PPEC PP* PP.ENDIF PP*$ ! MODIFIED BY PATCH 0557 PP************************************************************************** P** *& &P*=P0383 MSC 12/05/79 STR #05433 3.3.0 DSR911,DSR911PF PP* PP* THE RIGHT FIELD KEY IN BOTH THE 911 DSRS IS BEING PP* MAPPED TO THE RETURN KEY CODE (>8D) AND SHOULD BE PP* MAPPED TO ITS OWN CODE OF >87. THIS PATCH WILL PP* ALSO KEEP THE CURSOR OFF AFTER A BOOT. PP* PP*#SYN S911PF,DSR911PF PP*#SYN S911,DSR911 P<* < P.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>085E, PP V=>8D9D,D=>879D,C=>879D PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>022A, PP V=>1D0C,D=>1E0C,C=>1E0C PPEC PP* PN.ENDIF N BSTUNIT EQU>0006  SYSTEM TIME UNIT (= # OF TICS IN 50 MS) B8SLICE EQU>0001*STUNIT TIME SLICE VALUE IN TICS  86STUNT4 EQUSTUNIT*4 USED BY EXTEND TIME SLICE 68TABSIZ EQU>3228  SYSTEM TABLE AREA = 2K WORDS  8(CTRYVL EQU>0000  COUNTRY CODE  (* ' &DXSTRT EQU$  START OF D$DATA &6ENTRY DATA $  DX10 ENTRY POINT (LOAD AT >A0)  62 DATA SYSPTS POINTER TO MISC. SYSTEM INFO  20MAXIO BYTE 5,0  MAX INITIATE I/O COUNT  0& DATA OVYTAB LOCATION OF THE OVERL&AY TABLE  * DATA THEEND LENGTH OF THE SYSTEM  *$ DATA MAPLST MAP FILE TABLE  $,KIF  DATA >0000  NEW/OLD KIF FLAG  ,D DATA 0,0,0,0,0  >>RESERVED FOR MEM/DSC UTILIZATION STATS<<  D" TEXT 'SKI1 ' SYSTEM NAME "8 RORG $-DXDB+31/32*32+DXDB GETS TO BEET BOUNDARY  8UAHEAD EQU$ ! * DATA 0  MEMORY LIST HEADER, LEN=0 ** DATA $-$  PTR TO FIRST AVAIL BOB  *6UABADD DATA $-$  STARTING ADDRESS OF USER AREA  6UATLEN EQU$ ! $ DATA $-$  TOTAL LENGTH OF USER $ AREA $*  SYSTEM TABLE AREA HEADER  $SAHEAD EQU$ ! " DATA 0  HEADER LENGTH = 0 "2 DATA SYSTAB POINTER TO FIRST AVAIL BLOCK  2( SABADD DATA SYSTAB START OF AREA (. SATLEN DATA TABSIZ TOTAL SIZE OF AREA  ..SAHIAD DATA 0  HIGHEST EVER ALLOCATION .0 DATA 0 (NOT USED) CURRENT LOW ALLOCATION  0$*  TIME-ORDERED LIST HEADER  $8 RORG $-DXDB+31/32*32+DXDB GETS TO BEET BOUNDARY  8TMTOL EQU$ ! $ DATA 0  LENGTH OF OVERHEAD  $ DATA 0  ** UNUSED IN HEADER **  :TMTOLN DATA $-$  FORWARD LINK (POINTER TO NEWEST)  :6TMTOLO DATA $-$  BACK LINK (POINTER TO OLDEST)  6 DATA -1 TYPE = HEADER .TOLBET DATA $-$  BEET ADDRESS OF TMTOL .SYSPTS EQU$ ! 6UAHADD DATA $-$  BIAS REG VALUE FOR LIST HEAD  6$MEMSIZ DATA $-$  MEMORY SIZE $:* SET THE FOLLOWING WORD NON-ZERO IF YOU DESIRE TO  :4*  BYPASS AUTO-DETERMINATION OF MEMORY SIZE  4MEMSW DATA 0 ! <ENDLIM DATA $-$  LIMIT REG VALUE - 1 BEET PAST DX10  <EN4DDXL DATA $-$  LIMIT REG VALUE - END OF DX10  4<ENDADD DATA $-$  VIRTUAL ADDRESS - 1 BEET PAST DX10  <4BASADJ DATA $-$  BIAS REGISTER ADJUST VALUE  48 DSTUNT DATA STUNIT CLOCK TICKS/SYSTEM TIME UNIT  8&TDL  DATA 0  TIME DELAY LIST &&ETSK DATA 0  EXECUTING TASK  &*TSKLST DATA ITSB START OF TSB LIST *: SLCNT DATA SLICE  USED TO INITIALIZE SLICE COUNT.  :*SLCTIM DATA 0  USED TO TIME SLICE  *.TM$DFR DATA 0  TIME SLICE EXPIRED FLAG . NUMDEC DATA 0  USED TO CNT T D DECREMENTS 6RIDMAP BSS32 RUN-TIME TASK ID ALLOCATION MAP  6(FIDMAP BSS32 FIXED TASK ID MAP (0TMESLC DATA 0  TIME SLICE EXTENDED FLAG  0&RSTRSW DATA 0  RESTART SWITCH  &. TM$TSV DATA TSENT  TASK SENTINAL VALUE ., TM$SLC DATA SLICEF TIME SLICING FLAG ,* RSTRID BYTE >0000  RESTART TASK ID *  EVEN " 0PF$FCB DATA $-$  SYSTEM PROGRAM FILE FCB 08PF1LDT DATA $-$  LUNO D LDT (ASSIGNED TO PF$FCB)  88PF2LDT DATA $-$  LUNO B LDT (ASSIGNED TO PF$FCB)  8PF3L4DT DATA $-$  LUNO F LDT (ASSIGNED TO PF$FCB)  4&RF$FCB DATA $-$  ROLL FILE FCB &8RF$LDT DATA $-$  LUNO E LDT (ASSIGNED TO RF$FCB)  80OF$FCB DATA $-$  SYSTEM OVERLAY FILE FCB 08OF$LDT DATA $-$  LUNO A LDT (ASSIGNED TO OF$FCB)  8$*  BUFFER MANAGEMENT VALUES  $4BM$SZ EQU>0400  FIXED BUFFER SIZE (BYTES) 4*BM$SIZ EQUBM$SZ+31/32+1  (BEETS) *.BM$CNT DATA 1  COUNT OF BUFFERS ON TOL .4BM$LMT DATA 30 MAX # BUFFERS ALLOWED ON TOL  4* ' *  ACTIVE QUEUE INFORM ATION  * ' AQPTRS EQU$ ! $ DATA 0  ADDRESS OF NEW TSB  $$ DATA 0  ADDRESS OF OLD TSB  $. DATA 0  TSB ADDRESS FOR QUEUE SERVER  .$ DATA >C000  FLAGS/SERVER ID $$ DATA >FF00  TSB STATE/COUNT $* ' D*  USER SVC CALLS ***************************************** D* ' USVCTB EQU$ ! USVCMX EQU$-USVCTB-2/2 @*  USER SVC LENGTH TABLE ******************************  @USVCLN EQU$ !   EVEN "  PAGE " *=============4==============================================  4B*====  CURRENT MAP FILE POINTER AND SYSTEM MAP FILES ===  BB*===========================================================  B2 CURMAP DATA MAPSHD CURRENT MAP FILE POINTER  20MAPLST EQU$  START OF SYSTEM MAP FILES  0* '  REFSKI11  ( DATA SKI11  FILE MANAGER AND KIF ( DATA 1 SEGMENT  ( MAPFK DATA 0,0,0,0,0,0 MAP FILE (* '  REFSKI12  * DATA SKI12  MEMORY RESIDENT TASKS  * DATA 2 SEGMENT  @( MAPMR DATA 0,0,0,0,0,0 MAP FILE (* '  REFSKI13  ( DATA SKI13  SYSTEM COMMON AREA  ( DATA 2 SEGMENT  ( MAPCMN DATA 0,0,0,0,0,0 MAP FILE (* '  REFSKI14    DATA SKI14  I/O COMMON   DATA 2 SEGMENT  ( MAPIOC DATA 0,0,0,0,0,0 MAP FILE (* '  REFSKI15    DATA SKI15  SVC AND I/O  DATA 3 SEGMENT  ,MAPSHD DATA MAPIOC,0,0,0,0,0MAP FILE ,* ' &MPDS01 EQU$+4 DEVICE EQUATE  &MPDS02 EQU$+4 DEVICE EQUATE  &MPDS03 EQU$+4 DEVICE EQUATE  &&MPDS04 EQU$+4 DEVICE EQUATE  & REFSKI16  $ DATA SKI16  DEVICE MAP FILE $ DATA 3 SEGMENT  & DATA MAPIOC,0,0,0,0,0MAP FILE &* ' &MPLP01 EQU$+4 DEVICE EQUATE  &&MPLP02 EQU$+4 DEVICE EQUATE  & REFSKI17  $ DATA SKI17  DEVICE MAP FILE $ DATA 3 SEGMENT  & DATA MAPIOC,0,0,0,0,0MAP FILE &* ' &MPST01 EQU$+4 DEVICE EQUATE  &"MPST02 EQU$+4 DEVICE EQUATE "  REFSKI1A  $ DATA SKI1A  DEVICE MAP FILE $ DATA 3 SEGMENT  & DATA MAPIOC,0,0,0,0,0MAP FILE &* ' &MPMT01 EQU$+4 DEVICE EQUATE  & REFSKI1C  $ DATA SKI1C  DEVICE MAP FILE $ DATA 3 SEGMENT  & DATA MAPIOC,0,0,0,0,0MAP FILE &* ' & DATA 0  ---- END OF TABLE ---  &  PAGE " .STKLEN EQU110*2  LENGTH OF STACK AREA .,WRKLEN EQU128  LENGTH OF WORK AREA  ,4 FMTTSB DATA FMTTAB ANCHOR TO TABLE OF FM TSBS  4FMTTAB EQU$ !  DATA FM01   DATA FM02   DATA 0 END OF TABLE ,* FILE MANAGEMENT REQUEST QUEUE HEADER ,FMQSER EQU$ !  DATA 0,0 QUEUE ANCHOR  DATA FMPTSBSERVER TSB   DATA 0 FLAGS/SERVER ID  ( DATA >FF00  STATE / QUEUE COUNT  (FMPTSB EQU $" @**********************************************************  @@**** TSB FOR FILE MANAGEMENT TASK ************************  @@**********************************************************  @FM01 EQU$ !  DATA 0 QUEUEING LINK   DATA 0,0,0 WP,PC,ST  BYTE 0 PRIORITY 0 BYTE >24 STATE (WAITING FOR QUEUE ACT)  0 DATA >F000 FLAGS    DATA $+>5A TASK ADDRESS * DATA 0  INSTALLED ID / RUN TIME ID  *$ DATA $+>22 MAP FILE ADDRESS $$ DATA FEFM01LINK TO NEXT TSB $ DATA 0 KSB ADDRESS    DATA 0 SECONDARY FLAGS  0 TEXT 'FM01'BID PARAMATERS(TASK NAME)  0  DATA 0 ALT TSB ADDRESS   BYTE 0 CRT CHARACTER   BYTE 0 TILINE I/O COUNT   DATA 0,0 PSB ADDRESSES   DATA 0 PROGRAM FILE FCB & DATA 0,0,0,0 DIAGNOSTIC INFO  &$ DATA 0,0  TIME DELAY COUNTER $, DATA MAPFK,0,0,0,0,0 SAVED MAP FILE ,( BYTE 0,0  FIXED PRI, TASK REG #  (( DATA 0,0,0,0  FAMILY TREE LINKS  (& DATA 0  OVERLAY TABLE ADDRESS  &" DATA 0  OVERLAY RETURN PC  "( DATA 0  ADDRESS OF OVERLAY AREA  (* DATA 0  # OF TIME SLICES REMAINING  * DATA 0 TIME SUSPEND  DATA 0 GETMEM SCRATCH   DATA 0,0, 0,0 ROLL OUT INFO  , DATA >8000  LOCAL LDT FLAGS (HEADER)  ,* DATA LDTLST LOCAL LDT LIST POINTER *$ BYTE 0  # EOR'S OUTSTANDING  $* BYTE 0  # OF I/O CALLS OUTSTANDING  *0 DATA FMQSERQUEUE HEADER SERVED BY TASK  0" DATA 0  TASK SENTRY COUNT  "@**********************************************************  @@*** TASK AREA FOR FILE MANAGEMENT TASK *******************  @@**********************************************************  @ * TASK DEFINITION BLOCK   DATA $+6,FM$PC,(FM$ABD INITIAL WP,PC & END ACTION  (* WORKSPACE "  BSS10*2R0-R9  & DATA $+12 R10 = STACK POINTER  & BSS5*2 R11 - R14   BSSSTKLENSTACK AREA  TEXT 'EOS'    EVEN " FEFM01 EQU$ !   PAGE " @**********************************************************  @@**** TSB FOR FILE MANAGEMENT TASK ************************  @@**********************************************************  @FM02 EQU$ !  DATA 0 QUEUEING LINK   DATA 0,0,0 WP,PC,ST  BYTE 0 PRIORITY 0 BYTE >24 STATE (WAITING FOR QUEUE ACT)  0 DATA >F000 FLAGS    DATA $+>5A TASK ADDRESS * DATA 0  INSTALLED ID / RUN TIME ID  *$ DATA $+>22 MAP FILE ADDRESS $$ DATA FEFM02LINK TO NEXT TSB $ DATA 0 KSB ADDRESS    DATA 0 SECONDARY FLAGS  0 TEXT 'FM02'BID PARAMATERS(TASK NAME)  0  DATA 0 ALT TSB ADDRESS   BYTE 0 CRT CHARACTER    BYTE 0 TILINE I/O COUNT  DATA 0,0 PSB ADDRESSES   DATA 0 PROGRAM FILE FCB & DATA 0,0,0,0 DIAGNOSTIC INFO  &$ DATA 0,0  TIME DELAY COUNTER $, DATA MAPFK,0,0,0,0,0 SAVED MAP FILE ,( BYTE 0,0  FIXED PRI, TASK REG #  (( DATA 0,0,0,0  FAMILY TREE LINKS  (& DATA 0  OVERLAY TABLE ADDRESS  &" DATA 0  OVERLAY RETURN PC  "( DATA 0  ADDRESS OF OVERLAY AREA  (* DATA 0  # OF TIME SLICES REMAINING  * DATA 0 TIME SUSPEND  DATA 0 GETMEM SCRATCH $ DATA 0,0,0,0 ROLL OUT INFO  $ DATA >8000 LOCAL LDT FLAGS (HEADER)  * DATA LDTLST LOCAL LDT LIST POINTER *$ BYTE 0  # EOR'S OUTSTANDING  $* BYTE 0  # OF I/O CALLS OUTSTANDING  *0 DATA FMQSERQUEUE HEADER SERVED BY TASK  0" DATA 0  TASK SENTRY COUNT  "@**********************************************************  @@*** TASK AREA FOR FILE MANAGEMENT TASK *******************  @@**********************************************************  @ * TASK DEFINITION BLOCK  8 DATA $+6,FM$PC,FM$ABD INITIAL WP,PC & END ACTION  8* WORKSPACE "  BSS10*2R0-R9  & DATA $+12 R10 = STACK POINTER  & BSS5*2 R11 - R14   BSSSTKLENSTACK AREA  TEXT 'EOS'    EVEN " FEFM02 EQU$ !   PAGE "  * TSB FOR BID TASK TASK BIDTSB EQU$ !  DATA 0  QUEUEING LINK  DATA 0  WP   DATA 0  PC   DATA 0  ST   BYTE 0  PRIORITY  & BYTE >24  STATE (=TERMINATED) & DATA >F000  FLAGS 8 DATA BIDDER TASK ADDRESS (OF TEST TASK ** T1A)  8 DATA 0  INSTALLED ID/RUN ID & DATA $+>22  MAP FILE ADDRESS  &0TSKSTR EQU$  START OF NON-LINKED TSB'S 0" DATA 0  LINK TO NEXT TSB  " DATA 0  KSB ADDRESS   DATA 0  SECONDARY FLAGS $ TEXT 'TBID' BIDT PARAMETERS $& DATA 0  ALTERNATE TSB ADDRESS &" BYTE 0  913/911 CHARACTER "" BYTE 0  TILINE I/O COUNT  "  DATA 0,0  PSB ADDRESSES " DATA 0  PROGRAM FILE FCB  "8 DATA 0,0,0,0  DIAGNOSTIC ERROR CODE & WP,PC,ST  8 DATA 0,0  TIME DELAY COUN TER  . DATA MAPMR,0,0,0,0,0  SAVED MAP FILE  .( BYTE 0,0  FIXED PRI, TASK REG # (( DATA 0,0,0,0  FAMILY TREE LINKS (& DATA 0  OVERLAY TABLE ADDRESS &" DATA 0  OVERLAY RETURN PC "( DATA 0  ADDRESS OF OVERLAY AREA (( DATA 0  # TIME SLICES REMAINING (  DATA 0  TIME SUSPENDED   DATA 0  GETMEM SCRATCH  $ DATA 0,0,0,0  ROLL-OUT INFO $2 DATA >8000  LOCAL LDT LIST FLAGS (HEADER)  2, DATA LDTLST LOCAL LDT LIST POINTER  , BYTE 0  # EOR'S OUTSTANDING ( BYTE 0  # I/O CALLS OUTSTANDING (0 DATA BIDQUE QUEUE HEADER SERVED BY TASK 0" DATA 0  TASK SENTRY COUNT "  PAGE " &*  KEYBOARD STATUS BLOCK TABLE &KBTAB EQU$-2  ( DATA KBST01 STATION KSB POINTER  (( DATA KBST02 STATION KSB POINTER  (MAXSTA EQU$-KBTAB-2/2  MAXST2 EQU$-KBTAB-2  ( DATA 0  END OF TABLE INDICATOR  (**  EQUATED VALUES FOR DEVICE TYPES *(DUMMY EQU0  DUMMY DEVICE TYPE (TTY  EQU1  KEYBOARD/PR INTER DEVICE TYPE  .LP EQU2  LINE PRINTER DEVICE TYPE  .*CS EQU3  CASSETTE DEVICE TYPE  *,CR EQU4  CARD READED DEVICE TYPE ,.CRT  EQU5  CRT SCREEN DEVICE TYPE  ."DSC  EQU6  DISK DEVICE "*COM  EQU7  COMMUNICATION LINE  *MT EQU8  MAG TAPE  $AMPLE EQU>E AMPL EMULATOR $(AMPLT EQU>F AMPL TRACE MODULE (* ' 0 PDTLST DATA PDT001 PTR TO START OF PDT'S 0 DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &(@$ BYTE 0,0  RETRY / LUNO COUNT $PDT001 EQU$ !   PAGE " @**********************************************************  @$*** ST01 PDT 911 CRT ***  $@**********************************************************  @PSST01 EQU$ ! $ DATA ENST01LINK TO NEXT PDT $, DATA MPST01 MAP FILE FOR THE DEVICE  ,,PDST01 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000F R2 = STATUS FLG/INTERRUPT-1  0  DATA >090 $5 R3 = DEVICE FLAGS & TYPE  $( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA TDI911R6 = 911 CRT SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >0100  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *( DATA CRT911 911 CRT DSR ADDRESS  (* BYTE 0,0  DX10 ERROR CODE / FLAGS  * TEXT 'ST01' DEVICE ACCESS NAME   DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0056  LENGTH OF DEVICE BUFFER  ,, DATA TDI911 911 CRT INTERRUPT ENTRY  ," DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (***  DSR TEMP STOR*AGE - KSB & TERMINAL LUNO 0  ***  *$KBST01 EQU$ KSB REGISTERS  $, DATA $+32R0 = TERMINAL LUNO 0 LDT  ,( DATA 0 R1 = QUEUE OUTPUT INDEX  (0 DATA $+40+20 R2 = QUEUE INPUT POINTER  00 DATA $+38+20 R3 = QUEUE OUTPUT POINTER  04 DATA >001E+$+36+20 R4 = QUEUE END POINTER  4, DATA 0 R5 = EVENT CHARACTER BUFFER  ," BYTE >40 R6= KSB FLAGS  " BYTE >0001 STATION ID  DATA 0 R7= SCRATCH  . DATA 0 R8 = VALIDATION TABLE ADDRESS  . DATA 0,0,0 R9-R11 = SCRATCH , DATA >0110  R12 = CRU INPUT ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .**** LDT FOR STATION LOCAL LUNO 0 *** *  DATA PSST01PDT ADDRESS  ( BYTE 0,0  LUNO / INITIATE COUNT  ( DATA >8480 FLAGS  * DATA LDTLST LDT LINK (GLOBAL LIST) *. DATA 0,0 TSB ADDRESS / LOCK OUT COUNT  . DATA 0,0,0,0,0,0,0,0  4 DATA 0,0 FLAGS/TIMEOUT FOR REMOTE TERMINAL  4$ BSS>001E CHARACTER QUEUE  $* DATA >001E  CHARACTER QUEUE LENGTH * DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENST01 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @$*** ST02 PDT 911 CRT ***  $@**********************************************************  @PSST02 EQU$ ! $ DATA ENST02LINK TO NEXT PDT $, DATA MPST02 MAP FILE FOR THE DEVICE  ,,PDST02 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000F R2 = STATUS FLG/INTERRUPT-1  0. DATA >0905 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA TDI911R6 = 911 CRT SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >0120  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  * DAT$A CRT911 911 CRT DSR ADDRESS  $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'ST02' DEVICE ACCESS NAME &  DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0056  LENGTH OF DEVICE BUFFER  ,, DATA TDI911 911 CRT INTERRUPT ENTRY  ," DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT " D ATA >0000 TIME OUT COUNT ( DATA 0  RESERVED FOR FUTURE USE  (>***  DSR TEMP STORAGE - KSB & TERMINAL LUNO 0  ***  >$KBST02 EQU$ KSB REGISTERS  $, DATA $+32R0 = TERMINAL LUNO 0 LDT  ,( DATA 0 R1 = QUEUE OUTPUT INDEX  (0 DATA $+40+20 R2 = QUEUE INPUT POINTER  00 DATA $+38+20 R3 = QUEUE OUTPUT POINTER  04 DATA >001E+$+36+20 R4 = QUEUE END POINTER  4, DATA 0 R5 = EVENT CHARACTER BUFFER  ," BYTE >40 R6= KSB FLAGS  " BYTE >0002 STATION ID  @ DATA 0 R7= SCRATCH  . DATA 0 R8 = VALIDATION TABLE ADDRESS  .$ DATA 0,0,0 R9-R11 = SCRATCH $, DATA >0130  R12 = CRU INPUT ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .**** LDT FOR STATION LOCAL LUNO 0 *** *  DATA PSST02PDT ADDRESS  ( BYTE 0,0  LUNO / INITIATE COUNT  ( DATA >8480 FLAGS  * DATA LDTLST LDT LINK (GLOBAL LIST) *. DATA 0,0 TSB ADDRESS / LOCK OUT COUNT  . DATA 0,0,0,0,0,0,0,0  2 DATA 0,0 FLAGS/TIMEOUT FOR REMOTE TERMINAL 2 $ BSS>001E CHARACTER QUEUE  $* DATA >001E  CHARACTER QUEUE LENGTH * DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENST02 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @**** LP01 PDT LINE PRINTER  ***  *@**********************************************************  @PSLP01 EQU$ ! $ DATA ENLP01LINK TO NEXT PDT $  DATA MPLP01MAP FILE FOR THE  DEVICE  ,PDLP01 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000D R2 = STATUS FLG/INTERRUPT-1  0. DATA >A102 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA LPSPURR6 = PRINTER SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >0060  R12 = CRU/TILINE ADDRESS  ,& DATA $-$,$-$,$-$ R13-R15 = WP,PC & & ST $*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *, DATA LPHAN  LINE PRINTER DSR ADDRESS  ,* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'LP01' DEVICE ACCESS NAME &  DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0200  LENGTH OF DEVICE BUFFER  ,0 DATA LPINT LINE PRINTER INTERRUPT ENTRY  0" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) " DATA 0 SERVER FLAGS/SERVER TASK ID  . DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >1770 TIME OUT COUNT "" DATA >1770 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0* LINE PRINTER PDT EXTENSION  04/30/79  0& DATA >0002  DATA MODULE FLAG  &* DATA 0  # OF BUFFERED CHARACTERS  *0 DATA $+8  POINTER TO NEXT OUTPUT CHAR.  0. DATA $+6  POINTER TO NEXT STORE SLOT  .0 DATA 170  MAX. NUMBER OF BUFFERED CHAR.  00 DATA 0  FLAG TO TRIGGER END RECORD EXIT  0 BSS170  CHARACTER BUFFER   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENLP01 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @**** LP02 PDT LINE PRINTER  ***  *@**********************************************************  @PSLP02 EQU$ ! $ DATA ENLP02LINK TO NEXT PDT $, DATA MPLP02 MAP FILE FOR THE DEVICE  ,,PDLP02 EQU$  START OF DSR REGISTERS , DATA 0 R0= DSR SCRATCH  " DATA $-$ R1= QUEUE LINK "0 DATA >000E R2 = STATUS FLG/INTERRUPT-1  0. DATA >A102 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (, DATA 0 R5 = DSR SCRCH/CONT I/O FLG  ,. DATA LPSPURR6 = PRINTER SPURIOUS INT  ." DATA 0 R7= DSR SCRATCH  "* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >0020  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $ DATA $-32POIN TER TO DSR REGISTERS  , DATA LPHAN  LINE PRINTER DSR ADDRESS  ,* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'LP02' DEVICE ACCESS NAME &  DATA 0 SYSTEM LOG AREA   DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0200  LENGTH OF DEVICE BUFFER  ,0 DATA LPINT LINE PRINTER INTERRUPT ENTRY  0" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  .IN2@" DATA >1770 TIME OUT COUNT "" DATA >1770 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0* LINE PRINTER PDT EXTENSION  04/30/79  0& DATA >0002  DATA MODULE FLAG  &* DATA 0  # OF BUFFERED CHARACTERS  *0 DATA $+8  POINTER TO NEXT OUTPUT CHAR.  0. DATA $+6  POINTER TO NEXT STORE SLOT  .0 DATA 170  MAX. NUMBER OF BUFFERED CHAR.  00 DATA 0  FLAG TO TRIGGER END RECORD EXIT  0$ BSS170  CHARACTER BUFFER  $ DATA 0 RESERVED  DATA 0,0,0 STATISTIC COUNTERS $ BYTE 0,0  RETRY / LUNO COUNT $*ENLP02 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS02 PDT DISK  ***  "@**********************************************************  @PSDS02 EQU$ ! $ DATA ENDS02LINK TO NEXT PDT $, DATA MPDS02 MAP FILE FOR THE DEVICE  ,,PDDS02 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "  DATA >0 (00C R2 = STATUS FLG/INTERRUPT-1  (. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $ B(YTE 0,0  DX10 ERROR CODE / FLAGS  (& TEXT 'DS02' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT " DAT$A 0  RESERVED FOR FUTURE USE  $0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D2  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0400  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &(@, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENDS02 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS03 PDT DISK  ***  "@**********************************************************  @PSDS03 EQU$ ! $ DATA ENDS03LINK TO NEXT PDT $, DATA MPDS03 MAP FILE FOR THE DEVICE  ,,PDDS03 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .0@$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS03' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  , D,ATA >FF00  STATE (NONE) / QUEUE COUNT  ," DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D3  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .& DATA $-$  MINOR ERROR CODE - HDS &&  CYL  ( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0200  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (*@" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENDS03 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS04 PDT DISK  ***  "6****************************************************6 ******  PSDS04 EQU$ ! $ DATA ENDS04LINK TO NEXT PDT $, DATA MPDS04 MAP FILE FOR THE DEVICE  ,,PDDS04 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2 DATA 0,0,0,0  R8-R11 = DSR SCRATCH , DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS04' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (@" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00D4  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8  DATA $- $$ SAVED STATUS - WRDS/TRK  $. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0100  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  ", DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA   DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENDS04 EQU$  POINTER TO NEXT PDT  ** '   PAGE " ****************************$******************************  $&*** MT01 PDT MAG TAPE  ***  &@**********************************************************  @PSMT01 EQU$ ! $ DATA ENMT01LINK TO NEXT PDT $, DATA MPMT01 MAP FILE FOR THE DEVICE  ,,PDMT01 EQU$  START OF DSR REGISTERS ," DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >0008 R2 = STATUS FLG/INTERRUPT-1  0. DATA >C108 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  ( DATA FGMT01R5= DS R SCRCH/CONT I/O FLG  " DATA 0 R6= RETRY COUNT  "0 DATA TRTWP R7 = MT OP COMPLETE VECTOR  0* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F880  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $* DATA $-32 POINTER TO DSR REGISTERS  *( DATA MTHAN  MAG TAPE DSR ADDRESS (* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'MT01' DEVICE ACCESS NAME && DATA >0064+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  @( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,, DATA MTINT  MAG TAPE INTERRUPT ENTRY  ," DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,. DATA >FF00  STATE (NONE) / QUEUE COUNT  ." DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >00E1  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  .( DATA $-$ RESERVED - SPR & RPT  (( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >0000,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >8000  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS ** VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME  * DATA $-$  TAPE MANAGER TSB ADDRESS  *, DATA $-$  TAPE MANAGER TASK AREA ADR  ,. DATA $-$ TAPE MNGR TABLE/BUFFER AREA  . DATA 0,0 RESERVED 0 DATA -1,-1 TAPE MNGR & FUTILITY LOCKOUT  0 DATA 0 !   BSS16SYSTEM LOG AREA  @*********************************************************  @@********WORKSPACE FOR INTERRUPT DECODER **************  @******** SUPPORT* S ONE TO FOUR PDTS **************  *@*********************************************************  @WPMT01 EQU$ ! ( DATA PDMT01R0= PDT FOR UNIT 0 ($ DATA 0 R1= PDT FOR UNIT 1 $$ DATA 0 R2= PDT FOR UNIT 2 $$ DATA 0 R3= PDT FOR UNIT 3 $&FGMT01 DATA 0 R4= I/O FLAGS  &  DATA $-$ R5= BLWP WP   DATA $-$ R6= BLWP PC  & DATA 0,0,0,0 R7-R10 = SCRATCH &( DATA $-$  R11 = LINKAGE REGISTER (, DATA >F880  R12 = TILINE/CRU ADDRESS  , DAT*A $-$,$-$,$-$  R13-R15 = WP,PC & ST * DATA 0 RESERVED & DATA 0,0,0  STATISTIC COUNTERS &$ BYTE 0,0  RETRY / LUNO COUNT $*ENMT01 EQU$  POINTER TO NEXT PDT  ** '   PAGE " @**********************************************************  @"*** DS01 PDT DISK  ***  "@**********************************************************  @PSDS01 EQU$ ! $ DATA ENDS01LINK TO NEXT PDT $, DATA MPDS01 MAP FILE FOR THE DEVICE  ,(PDDS01 EQU$  START OF DSR REGISTERS( " DATA 0 R0= DSR SCRATCH  "" DATA $-$ R1= QUEUE LINK "0 DATA >000C R2 = STATUS FLG/INTERRUPT-1  0. DATA >5106 R3 = DEVICE FLAGS & TYPE  .( DATA $+60R4 = DSR TMP STORAGE  (0 DATA FGDS01R5 = DSR SCRCH/CONT I/O FLG  0" DATA 0 R6= RETRY COUNT  "2 DATA DRTWP R7 = DISK OP COMPLETE VECTOR  2* DATA 0,0,0,0  R8-R11 = DSR SCRATCH *, DATA >F800  R12 = CRU/TILINE ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .$*** DSR REGISTER EXTENTION *** $&@* DATA $-32 POINTER TO DSR REGISTERS  *$ DATA DIODSRDISK DSR ADDRESS $* BYTE 0,0  DX10 ERROR CODE / FLAGS  *& TEXT 'DS01' DEVICE ACCESS NAME && DATA >006A+$ SYSTEM LOG AREA  &  DATA 0 SYSTEM LOG AREA  ( DATA $-$  DEVICE BUFFER ADDRESS  (, DATA >0000  LENGTH OF DEVICE BUFFER  ,( DATA DTBSY  DISK INTERRUPT ENTRY (" DATA 0,0 UCB QUEUE HEADER "" DATA 0  QUEUE SERVER (DDT) ", DATA 0 SERVER FLAGS/SERVER TASK ID  ,, DATA >FF00  STATE (NONE) / QUEUE COUNT , " DATA >0000 TIME OUT COUNT "" DATA >0000 TIME OUT COUNT "( DATA 0  RESERVED FOR FUTURE USE  (0*** TILINE CONTROLLER DSR TEMP STORAGE *** 0 DATA 0 TMP OR FMP PRB  BYTE 0  OPCODE   BYTE >0009  LUNO  , DATA 0,0,0,0,0,0  REMAINDER OF PRB  ,8 * SAVED TILINE PARAMETERS ** MT **  ** DSC **  8, DATA $-$ SAVED STATUS - WRDS/TRK  ,. DATA $-$ MAJOR ERROR CODE - SPT & OHR  .. DATA $-$ MINOR ERROR CODE - HDS & CYL  . DATA $-$ RESERVED - SPR & RPT  ( DATA $-$ RESERVED - WRDS/RCD  (* TILINE IMAGE  4 DATA >FFFF,0,0,0,0,0  TILINE IMAGE WDS 0 - A 4( DATA >0800  WRD C - UNIT SELECT (* DATA >1000  WRD E - TILINE STATUS * *  VOLUME CHARACTERISTICS ( BSS3*2  INITIALIZATION BUFFER  ( DATA 0 !   TEXT '  'VOLUME NAME   DATA 0 NOT USED  DATA 0 NOT USED . DATA $-$ DISK MNGR TABLE/BUFFER ADDR  .( DATA $-$  MAX # OF ADU'S ON DISK (" DATA $-$ SECTORS PER ADU  " S&@, DATA >0120  PHYSICAL RECORD DEFAULT  ,& DATA 0  DISK UNIT ERROR COUNT  &, TEXT '#0000000' TEMP FILE NAME SEED  ,  BSS16SYSTEM LOG AREA  @*********************************************************  @@********WORKSPACE FOR INTERRUPT DECODER **************  @<******** SUPPORTS ONE TO FOUR PDTS **************  <@*********************************************************  @WPDS01 EQU$ ! ( DATA PDDS01R0= PDT FOR UNIT 0 (( DATA PDDS02R1= PDT FOR UNIT 1 (( DATA PDDS03R2= PDT FOR UNIT 2 (( DATA PDDS04R3= PDT FOR UNIT 3 (&FGDS01 DATA 0 R4= I/O FLAGS  &  DATA $-$ R5= BLWP WP   DATA $-$ R6= BLWP PC  & DATA 0,0,0,0 R7-R10 = SCRATCH &( DATA $-$  R11 = LINKAGE REGISTER (, DATA >F800  R12 = TILINE/CRU ADDRESS  ,. DATA $-$,$-$,$-$  R13-R15 = WP,PC & ST .*ENDS01 EQU0  POINTER TO NEXT PDT  ** '   PAGE " DIOPDT EQUPSDS01 (PSBLST EQU$  START OF PSB LIST  (* '  * SYSTEM  PSB! * ' $ DATA >180 PROCEDURE ID/FLAGS $ DATA 0 BEET ADDRESS  DATA >600BEET LENGTH  &PSBSTR DATA 0 LINK TO NEXT PSB && DATA $-$  PROGRAM FILE FCB PTR && DATA >101 ATTACHED/BUSY COUNT  & DATA 0 ROLL LINK  $ DATA 0,0  REL REC # IN FILE  $ DATA 0 # ROLL RECORDS   PAGE " B*  START OF GLOBAL LDT LIST* * * * * * * * * * * * * * * *  BLDTLST EQU$ ! , DATA PSDS01 SYSTEM DISK PDT ADDRESS  ,$ BYTE 9,0  LUNO / INITIATE I/O CO$ UNT  & DATA >8880  FLAGS (LIST HEAD)  & DATA $+4 NEXT LDT  DATA 0 TSB ADDRESS  "*** SECONDARY DISK LDT ****  "  DATA PSDS02 PDT ADDRESS  BYTE >00D2  LUNO  $ BYTE 0 INITIATE I/O FLAGS  $ DATA >880 LDT FLAGS  DATA $+4  LDT LINK   DATA 0  TSB ADDRESS * ' "*** SECONDARY DISK LDT ****  "  DATA PSDS03 PDT ADDRESS  BYTE >00D3  LUNO  $ BYTE 0 INITIATE I/O FLAGS  $ DATA >880 LDT FLAGS   DATA $+ 4  LDT LINK   DATA 0  TSB ADDRESS * ' "*** SECONDARY DISK LDT ****  "  DATA PSDS04 PDT ADDRESS  BYTE >00D4  LUNO  $ BYTE 0 INITIATE I/O FLAGS  $ DATA >880 LDT FLAGS  DATA $+4  LDT LINK   DATA 0  TSB ADDRESS * '  *** GLOBAL LUNO 0 ***    DATA PSST01PDT ADDRESS  ( BYTE 0,0  LUNO / INIT I/O COUNT  ( DATA >880LDT FLAGS   DATA 0 LDT LINK  DATA 0 TSB ADDRESS    PAGE " * START OF SYSTEM LOG DATA :SLNLUN BYTE 0,0  LUNO OF CURRENT FILE / OTHER LUNO  :<SLNLID BYTE 0,0  SYSTEM LOG EATER ID/USER LOG EATER  <2 SLNQUE BYTE >0006  MAX # OF QUEUE ENTRIES  2*SLNFLG BYTE >58  SYSTEM LOG FLAGS  *2SLNMCA DATA 0  MEMORY CONTROLLER ADDRESSES 2,* START OF THE DYNAMIC SYSTEM TABLE. ,*  SYSTEM TABLE AREA < IOSMAX DATA >0160  LIMIT ON TABLE AREA FOR I/O BUFFS  <.IOSSTA DATA 0  # OF BYTES IOS IS USING .6IOSHBC DATA 0  HIGHEST AMOUNT EVER USED BY IOS  6 S:@:ITSKMX EQU>00C8  LIMIT ON INTERTASK MESSAGE AREA  ::ITSKCR DATA $-$  CURRENTLY USED AREA FOR INTERTASK  :0CMEMSZ DATA $-$  CRASH FILE DUMP LENGTH  0SYSTAB EQU$ ! ( DATA TABSIZ SIZE OF AVAIL AREA  (( DATA 0  PTR TO NEXT AVAIL BLOCK ( RORG SYSTAB  BSSTABSIZ ENDSTB EQU$ ! "*** SCI LIMIT PARAMETERS *** "> SCIBMX DATA >0002  MAX LIMIT ON ACTIVE SCI BACKGROUND  >> SCIFMX DATA >0008  MAX LIMIT ON ACTIVE SCI FOREGROUND  >SCIFCR DATA $-$  NUMBER OF FOREGROUND TASKS ACTIVE   *** BREAK POINT TABLE ***  4BPT  DATA >0060  NUMBER OF BREAK POINTS * 3  4 DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0   DATA 0,0,0    PAGE " 2OADPTR DATA $+2  POINTER TO NEWEST OVERLAY  2 DATA ,$+806,-1,-1  POINTER TO NEXT BUFFER  ,& BSS800  SYSTEM OVERLAY AREA &* ' * DATA 0,-1,-1  LAST SYSTEM OVERLAY *& BSS800  SYSTEM OVERLAY AREA &  PAGE "  RORG $->80  B***********************************************************  B>***  INTERRUPT & XOP TRAP INITIALIZATION TABLE: ***  >8*** MEMORY IS USED FOR SYSTEM OVERLAY AREA***  82*** AFTER INITIALIZATION IS COMPLETE***  2B***********************************************************  BXY E QU$ ! 2 DATA PRUPWP,PWRUP 0 INTERRUPT TRAP TABLE  20 DATA PWRWSP,PWRDN 1 LOC 0-3F IN MEMORY  0 DATA IIWSP,IIE  2  DATA XWS,IX 3  DATA XWS,IX 4 . DATA CLKWSP,CLKPC 5CLOCK INTERRUPT  . DATA XWS,IX 6  DATA XWS,IX 7 4 DATA WSP8,PCS 8 STANDARD INTERRUPT DECODER  44 DATA WSP9,PCS 9 STANDARD INTERRUPT DECODER  44 DATA WSPA,PCS10 STANDARD INTERRUPT DECODER  4 DATA XWS,IX11  DATA XWS,IX12  DATA WSPD,PCS13STANDARD INTERRUPT DECODER  4 DATA WSPE,PCS14 STANDARD INTERRUPT DECODER  44 DATA WSPF,PCS15 STANDARD INTERRUPT DECODER  4, DATA SCWSP,ILLSVC 0XOP TRAP TABLE ,2 DATA SCWSP,ILLSVC 1 LOC 40-7F IN MEMORY  2 DATA SCWSP,ILLSVC 2  DATA SCWSP,ILLSVC 3  DATA SCWSP,ILLSVC 4  DATA SCWSP,ILLSVC 5  DATA SCWSP,ILLSVC 6  DATA SCWSP,ILLSVC 7  DATA SCWSP,ILLSVC 8  DATA SCWSP,ILLSVC 9  DATA SCWSP,ILLSVC10  DATA SCWSP,ILLSVC11  DATA SCWSP,ILLSVC12  DATA SCWSP,ILLSVC13  DATA SCWSP,ILLSVC14  DATA SCWSP,SVCPRC15 4********* END OF TRAP INITIALIZATION ********  4  PAGE " @**********************************************************  @0*******  INTERRUPT DECODER ************  0@**********************************************************  @@**WHENEVER AN INTERRUPT IS ENCOUNTERD,CONTROL WILL BE  @<** TRANSFERED TO THIS MODULE. FROM HERE IT WILL GO  <** TO THE DSR AND RETURN HERE ON COMPLETION.THIS  0** MODULE WILL THEN EXIT THROUGH TRPRTN. 0DEXPTST DATA >4000,>2000,>1000,>800 TEST BITS FOR EXP CHASSIS D&XWS  EQU$ DUMMY WORKSPACE  & * WORKSPACE POINTERS * ' WSP8 EQU$-14R0-R6  . DATA $+2,KBST02,KBI911,MPST02911 CRT  .  DATA 0,0,0,0,0 R11-R15  * ' WSP9 EQU$-14R0-R6  . DATA $+2,WPMT01,MTINT,MPMT01 MAG TAPE .  DATA 0,0,0,0,0 R11-R15  * ' WSPA EQU$-14R0-R6   DATA $+2,KB" ST01,KBI911,MPST01911 CRT  "  DATA 0,0,0,0,0 R11-R15  * ' WSPD EQU$-14R0-R6  ( DATA $+2,WPDS01,DINT,MPDS01DISK (  DATA 0,0,0,0,0 R11-R15  * ' WSPE EQU$-14R0-R6  2 DATA $+2,PDLP01,LPINT,MPLP01 LINE PRINTER  2  DATA 0,0,0,0,0 R11-R15  * ' WSPF EQU$-14R0-R6  2 DATA $+2,PDLP02,LPINT,MPLP02 LINE PRINTER  2  DATA 0,0,0,0,0 R11-R15  * ' 4PCS  EQU$  SINGLE DEVICE PER INT DECODER  4 MOV@CURMAP,*R11 SAVE CURRENT MAP FILE POINTER  *8 MOVR10,@CURMAP SET DSR MAP UP AS CURRENT MAP  8. LMFR10,0  ---- LOAD DSR MAP FILE ---  .& BLWP *R7  ---- ENTER DSR ----  &2RETURN MOVR11,CURMAP RESTORE OLD MAP FILE 22 LMFR11,0 --- LOAD PREVIOUS MAP FILE ---  2$ B@TRAPRT RETURN TO SYSTEM $B*=============== SYSTEM CRASH CONDITIONS ==================  B0CTABX DATA 0  BAD CHASSIS (0 LENGTH TAB)  0"IX EQU$ BAD INTERRUPT  "" BLWP @SCRASH SYSTEM CRASH "  DATA >20  ILLEGAL INTERRUPT LEVEL    END# OVR10,@CURMAP SET DSR MAP UP AS CURRENT MAP  8. LMFR10,0  ---- LOAD DSR MAP FILE ---  .& BLWP *R7  ---- ENTER DSR ----  &2RETURN MOVR11,CURMAP RESTORE OLD MAP FILE 22 LMFR11,0 --- LOAD PREVIOUS MAP FILE ---  2$ B@TRAPRT RETURN TO SYSTEM $B*=============== SYSTEM CRASH CONDITIONS ==================  B0CTABX DATA 0  BAD CHASSIS (0 LENGTH TAB)  0"IX EQU$ BAD INTERRUPT  "" BLWP @SCRASH SYSTEM CRASH "  DATA >20  ILLEGAL INTERRUPT LEVEL    END# OVR10,@CURMAP SET DSR MAP UP AS CURRENT MAP  8. LMFR10,0  ---- LOAD DSR MAP FILE ---  .& BLWP *R7  ---- ENTER DSR ----  &2RETURN MOVR11,CURMAP RESTORE OLD MAP FILE 22 LMFR11,0 --- LOAD PREVIOUS MAP FILE ---  2$ B@TRAPRT RETURN TO SYSTEM $B*=============== SYSTEM CRASH CONDITIONS ==================  B0CTABX DATA 0  BAD CHASSIS (0 LENGTH TAB)  0"IX EQU$ BAD INTERRUPT  "" BLWP @SCRASH SYSTEM CRASH "  DATA >20 BM$LMT 0166 2 BM$LNK 5212 4LL BM$MAP 5230 4 BM$MP2 52BE 4 BM$MPB 5222 4 BM$MPK 52BE 4LL BM$SCH 50CC 4 BM$SIZ 0021* 2*BM$SZ 0400* 2 BM$TRM 5164 4LJ BM$UPD 5070 4 BPT 3F0C 2 BUFCHK 52E4 4 BYTE01 48FE 4J BYTFE02 4900 4 BYTE03 48ED 4 BYTE04 4902 4 BYTE05 491A 4FL BYTE06 491B 4 BYTE07 491C 4 BYTE08 4904 4 BYTE09 491D 4LL *BYTE0A 491E 4*BYTE0B 491F 4*BYTE0C 4920 4 BYTE0D 4921 4LL *BYTE0E 4922 4*BYTE0F 4913 4 BYTE10 4906 4 BYTE12 4923 4LL *BYTE13 4924 4 BYTE14 4925 4 BYTE15 4926 4*BYTE17 4927 4LL BYTE19 4928 4 BYTE1D 4929 4 BYTE20 4908 4 BYTE24 492A 4LL *BYTE30 490A 4 BYTE40 490E 4*BYTE41 492B 4*BYTE42 492C 4LL *BYTE44 492D 4*BYTE45 492E 4*BYTE46 492F 4*BYTE47 4930 4LL *BYTE49 4931 4*BYTE4F 4932 4*BYTE50 4933 4*BYTE52 4934 4LL BYTE60 4935 4 BYTE80 4910 4*BYTEB3 4936 4*BYTEB4 4937 4L@ *BYTEB5 4938 4*BYTEB7 4939 4*BYTEB8 493A 4*BYTEB@D 493B 4L *BYTEE0 493C 4*BYTEFE 493D 4 BYTEFF 4915 4 CLEANQ 497A 4LJ CMDFLG 4946 4 CMEMSZ 0CDC 2*COM 0007* 2 COMMQ 4A4C 4JF CP$IDL 4944 4*CR  0004* 2 CRT 0005* 2*CS  0003* 2FJ *CTRYCD 6004 4 CTRYVL 0000* 2 CURMAP 0172 2*DAY 4D22 4JL DDTTSB 4B88 4 DELQUE 49FC 4 DEVLDT 4D4A 4 DGNQUE 498E 4LJ DIOPDT 0BBE 2 DM$QUE 49B6 4*DMGTSB 4BEE 4 DSC 0006* 2JL *DSTUNT 00FA 2*DUMMY 0000* 2*DXDB  00A0 2*DXSTRT 00A0 2LL ENDACT 6EB8 4 ENDADD 00F6 2 ENDDXL 00F4 2 ENDLIM 00F2 2LL ENDSTB 3F06 2 ETSK  00FE 2*F$FLG 5E9E 4 FIDMAP 012A 2LL FLG12 5F7C 4 FLGWCS 5F7E 4 FM$EXT 532C 4 FM$IO 535A 4L4 FM$RDM 5480 4*FM$WTM 5478 4 FMPTSB 02148 2 FMQSER 020E 2L FMT000 493E 4 FMTINF 4940 4 FMTTSB 0206 2*FNDSTK 6C5C 4LJ FSTXFR 64F6 4 FUTQUE 4966 4*HOUR  4D24 4 IIE 6E66 4JL IIWSP 6F90 4 INSQ  4A24 4 INSQUE 4970 4 INVOL 4A42 4LL IOQUCB 64CE 4 IOSHBC 0CD8 2 IOSMAX 0CD4 2 IOSSTA 0CD6 2LL ITSB  4A56 4 ITSKCR 0CDA 2 ITSKMX 00C8* 2*KBST01 05B0 2LL *KBST02 0662 2 KBTAB 0554 2 KILLQ 4A1A 4 KILTSK 6E9A 4LL KTIO  4E94 4*KTSKPC 4FE8 4*KTSKWP 4FC8 4 LDTLST 0C9A 2LJ *LP  0002* 2 MAPCMN 0198 2 MAPFK 0178 2 MAPLST 0174 2JL MAPMR 0188 2 MAPOFF 500C 4 MAPON 5010 4 MAPQUE 4A06 4LL *MAPREC 55A8 4 MAPSHD 01B8 2 MAXIO 00A4 2 MAXST2 0004* 2L MAXSTA 0002* 2 MEMSIZ 0 > SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE 1> COMMAND LIST   NOSYMT$  FORMAT IMAGE,REPLACE PROCEDURE DUMMY   DUMMY $ " INCLUDE DS01.S$SYSGEN.DUMMY " ADJUST 5 SYSTEM ROOT  TASKSKI1!* INCLUDE DS01.S$SYSGEN.SKI1.D$OBJECT *" INCLUDE DS01.S$SYSGEN.SYSLGY"  INCLUDE DS01.S$SYSGEN.ROOT ( ADJUST 5 FILE MANAGEMENT AND KIF ( PHASE 1,SKI11 " INCLUDE DS01.S$SYSGEN.FILMG "" INCLUDE DS01.S$SYSGEN.DUMKIF"& ADJUST 5 MEMORY RESIDENT TASKS & PHASE 1,SKI12 " INCLUDE DS01.S$SYSGEN.MEMRES" ADJUST 5 SYSTEM COMMON  PHASE 1,SKI13 " INCLUDE DS01.S$SYSGEN.DUMCOM" ADJUST 5 I/O COMMON PHASE 1,SKI14 " INCLUDE DS01.S$SYSGEN.IOCOM "" INCLUDE DS01.S$SYSGEN.NOCOMM" ADJUST 5 SVC AND I/O  PHASE 2,SKI15 " INCLUDE DS01.S$SYSGEN.SVCIO "" INCLUDE DS01.S$SYSGEN.NOFCCC"" INCLUDE DS01.S$SYSGEN.SYSLOG" ADJUST 5 DISK PHASE 2,SKI16 " INCLUDE DS01.S$SYSGEN.DDIOSR" ADJUST 5 LINE PRINTER PHASE 2,SKI17 " INCLUDE DS01.S$SYSGEN.LPDSR " ADJUST 5 911 CRT  PHASE 2,SKI1A " INCLUDE DS01.S$SYSGEN.DSR911" ADJUST 5 979 MAG TAPE PHASE 2,SKI1C " INCLUDE DS01.S$SYSGEN.DSR979"  END %  '> SDSLNK  3.3.079.200 07/27/89 17:28:47 PAGE 2> LINK MAP "0 CONTROL FILE = DS01.S$SYSGEN.SKI1.LINKSTRM0 '( LINKED OUTPUT FILE = DS01.S$IMAGES( ', LIST FILE = DS01.S$SYSGEN.SKI1.LINKMAP, '$ NUMBER OF OUTPUT RECORDS = 241$(@PBATCH LS=YES PP********************************************************************************PP* MEMRES PATCH FILE *PP********************************************************************************PP* PP* AFTER A SYSGEN IS DONE, THE DX10 IMAGE FILE (OBJECT OUTPUT FROM PP* THE LINK EDITOR) WILL NEED TO HAVE THE PATCHES IN THIS FILE PP* APPLIED TO IT. THIS FILE CANNOT BE RUN AS A BATCH STREAM. TO PP* PATCH A SYSTEM, ONE MUST ASSIGN THE SYNONYM $$DSC$ TO THE PP* VOLUME NAME OF THE DISK ON WHICH THE PATCHES ARE TO BE APPLIED. P* THEN EITHER (>A) OR (B) BELOW MUST BE PERFORMED. >P* PP* A) RUN THE XPS PROC, WITH THE FOLLOWING INPUTS: PP* LINK = PP* INPUT = PP* OUTPUT = PP* ERROR = PP* THE FILE SPECIFIED FOR OUTPUT CAN BE RUN AS A BATCH STREAM PP* TO PATCH THE SYSTEM. P$* $, ,P* B) IF THE LINK MAP IS NO LONGER AVAILABLE ON DISK FILE, THIS FILE PP* WILL HAVE TO BE TRANSLATED MANUALLY. COPY THIS FILE TO PP* ANOTHER FILE AND EDIT THAT FILE DOING THE FOLLOWING. PP* PP* 1. FOR EACH #SYN COMMAND FOUND IN THE FILE, TWO OR MORE PP* SYNONYMS MUST BE DEFINED. EACH #SYN COMMAND IS IN THE PP* FORMAT: PP* #SYN ,,, ... PP* FOR EXAMPLE: P6* #SYN SROOT,ROOT 6 P* WHERE: PP* SROOT IS THE SYNONYM NAME, AND PP* ROOT IS THE OF THE MODULE TO BE PATCHED. PP* PP* 2. FIND THE S IN THE LINK MAP. ALL MODULES PP* ON ONE LINE OF A #SYN COMMAND WILL RESIDE IN THE SAME PHASE PP* OF THE LINK. DETERMINE THE OVERLAY OR TASK ID FROM THE PP* PHASE HEADER LINE OF THE PHASE WHERE THE SPECIFIED MODULES PP* ARE FOUND. INSERT A #SYN COMMAND INTO THE PATCH FILE TO PH* DEFINE THE OVERLAY OR ID, AS IN THE FOLLOWING EXAMPLE: H P* .SYN SROOT=1 PP* WHERE PP* SROOT IS THE SYNONYM FOUND PP* IN THE #SYN COMMAND, AND PP* 1 IS THE OVERLAY OR TASK ID FROM THE PHASE PP* IN WHICH THE LISTED MODULES RESIDE. PP* (1 IS THE ID FOR THE FIRST SYSTEM. THIS WILL PP* BE DIFFERENT FOR ADDITIONAL SYSTEMS.) PP* PP* 3. NEXT, INSERT .SYN COMMANDS INTO THE PATCH FILE FOR EACH P* J IN THE #SYN COMMAND. FOR EXAMPLE: JP* .SYN ROOT=031DA PP* WHERE: PP* ROOT IS THE OF THE MODULE (FROM THE #SYN PP* COMMAND) TO BE PATCHED, AND PP* 031DA IS THE HEXADECIMAL ADDRESS OF THE MODULE PP* ORIGIN FOR TI-SUPPLIED SYSTEM. (THIS MAY BE PP* DIFFERENT FOR CUSTOM SYSTEMS.) PP* PP* 4. DELETE THE #SYN LINE FROM THE PATCH FILE. P* 8 8P* 5. REPEAT STEPS 1 - 4 FOR EACH #SYN COMMAND IN THE FILE. PP* PP* 6. QUIT THE TEXT EDIT SPECIFYING "YES" TO THE REPLACE OPTION. PP* PP* 7. EXECUTE THE BATCH STREAM YOU JUST CREATED. PP* PP********************************************************************************PPQ$SYN PP.SYN $E$C="0" P*.SYN IMAGE="@$$DSC$.S$IMAGES" *& &P.SYN SLGY = 3 PP.SYN SYSLGY =>464E PP.SYN SROOT = 3 PP.SYN ROOT =>46A0 PP.SYN SFILMG = 19 PP.SYN FILMG =>7000 PP.SYN KIF ="NONE" PP.SYN KIF3 ="NONE" PP.SYN SMEM = 20 P<.SYN MEMRES =>7000 < P.SYN SIO = 23 PP.SYN SVCIO =>7900 PP.SYN SYSLOG =>982E PP.SYN IOC = 22 PP.SYN IOCOM =>7000 PP.SYN SDDIO = 24 PP.SYN DDIOSR =>7900 PP.SYN S911 = 26 PP.SYN DSR911 =>7900 PN.SYN DSR911PF ="NONE" N P.SYN DSR911WP ="NONE" PP.SYN DSR913 ="NONE" PP.SYN SLP = 25 PP.SYN LPDSR =>7900 PP.SYN DSR820 ="NONE" PP.SYN FPYDSR ="NONE" PP.SYN S979 = 27 PP.SYN DSR979 =>7900 PP.SYN COMMCOM ="NONE" PP.SYN DSR733 ="NONE" P .SYN DSRKSR D ="NONE" DP* PP********************************************************************************PP* THE FOLLOWING SYNONYMS ARE DEFINED BY TI SYSTEM ANALYSTS ONLY AT PP* SYSTEM BUILD TIME. THEY SHOULD NOT BE MODIFIED BY THE USER. PP********************************************************************************PP* INSERT PRE-LINK DEFINED SYNONYMS HERE: PP.EVAL S$$PAT="@ROOT+>0000" PP* PP************************************************************************** P* Q SROOT Q$ DIFFERENT SYNONYMS FOR SAME OVERLAY$2 2P* CHECK TO SEE IF THE SYSTEM ROOT IS GREATER THAN >C000. PP* THIS CAUSES SEVERAL PROBLEMS IN DISK RESIDENT SYSTEM TASKS. PP* PP.IF @FILMG,GT,>C000 PPCM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >C000 " PPCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @FILMG " PPCM R=ME,M="PATCHING TERMINATED" PP.STOP PP.ENDIF P0* 0 P************************************************************************** PP* PP* CHECK TO SEE IF THE SYSTEM LENGTH IS GREATER THAN >F800. PP* THIS CAUSES SEVERAL PROBLEMS IN EXECUTION AS ANY REFERENCE PP* IN THE OS TO ADDRESSES ABOVE >F800 TALK TO DISKS INSTEAD PP* OF MEMORY. PP* PP.EVAL $$TMP=@SYSLOG+>0264 PP.IF @$$TMP,GT,>F800 PBCM R=ME,M="PATCH STREAM FATAL ERROR - SYSTEM ROOT EXCEEDS >F800 " B PCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP " PPCM R=ME,M="PATCHING TERMINATED" PP.STOP PP.ENDIF PP.IF @$$TMP,GT,>F600 PPCM R=ME,M="PATCH STREAM WARNING - SYSTEM EXCEEDS >F600 " PPCM R=ME,M="CURRENT SYSTEM ROOT SIZE = @$$TMP " PPCM R=ME,M="LENGTH OF SYSTEM MUST BE LESS THAN >F800" PPCM R=ME,M="CHECK LINKMAP OF SYSTEM FOR PHASE 0 LENGTH" PP.ENDIF P" T@P.SYN $$TMP="" PP* PP************************************************************************** PP* PP* BEGIN PATCHES FOR RELEASE 3.3.0 PP* PP************************************************************************** PP* PP*=P0370 MSC 11/16/79 STR #05407 3.3.0 LPDSR PP* P* THE LINE PRINTE>R WILL DO A TIME-OUT IF A ZERO LENGTH >P* WRITE IS SENT TO IT. PRINT FILE WILL APPEAR TO HANG PP* AND THE PRINTER WILL NOT BE USABLE. ANY TASK DOING PP* THE ZERO LENGTH WRITE WILL HANG WAITING ON I/O COMPLETION. PP* PP*#SYN SLP,LPDSR PP* PP.IF "@LPDSR" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0062, P$ V=>101D,D=>161D,C=>161D $, ,PEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0379 MU 12/05/79 STR #05431 3.3.0 DSR911 PP* PP* A BUG IN THE INPUT ROUTINE OF THE 911 DSR CAUSES P6* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE 6 P* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S911,DSR911 PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>034C, PP V=(>0B2B,>1817,>1E0F,>3605), PP D=(>058A,>0B2B,>1816,>1012),C=>06A5 PH!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 H PMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0406, PP V=(>091B,>178F,>32CA), PP D=(>32CA,>091B,>178E),C=>2C5F PPEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0380 MU 12/05/79 STR #05431 3.3.0 DSR911PF P* J JP* A BUG IN THE INPUT ROUTINE OF THE POWER FAIL 911 DSR PP* CAUSES THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE PP* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S911PF,DSR911PF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF" ,NE, NONE P* 8 8PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BC, PP V=(>0620,@DSR911PF+>0BA0), PP D=(>32CA,>0460),C=>36AA PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C0, PP V=>32CA,D=@S$$PAT,C=@S$$PAT PP PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C6, P* V=>4820,D=>0460,C=>0460 *& &PEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04C8, PP V=@DSR911PF+>000C,D=@DSR911PF+>0514,C=@DSR911PF+>0514 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B6, PP V=>091B,D=>C80A,C=>C80A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B8, PP V=>1802,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 P05BA, PP V=(>0460,@DSR911PF+>0494,>C80A,@DSR911PF+>0BA0), PP D=(>32CA,>091B,>1802,>0460),C=>27B3 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05C2, PP V=>32CA,D=@DSR911PF+>0494,C=@DSR911PF+>0494 PPEC PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, PN V=(>DEAD,>DEAD),D=(>058A,>0620),C=>03AA N PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0004, PP V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0006, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0008, PP V=>DEAD,D=@DSR911PF+>04C2,C=@DSR911PF+>04C2 PPEC P * D DP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0381 MU 12/05/79 STR #05432 3.3.0 DSR911PF PP* PP* A BUG IN THE CLEARING OF THE SCREEN OF THE 911 PP* POWER FAIL DSR LEAVES A CHARACTER IN THE UPPER LEFT PP* OF THE SCREEN. P* 2 2P*#SYN S911PF,DSR911PF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0822, PP V=(>32E0,@DSR911PF+>0B6C,>1F0A,>1302), PP D=(>0707,>32C7,>36C7,>0587),C=>0680 P0EC 0 PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>082A, PP V=(>32E0,@DSR911PF+>0B6E,>36C7), PP D=(>1000,>1000,>1000),C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085C, PP V=>05A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>085E, PP V=@DSR911PF+>0BA0,D=@S$$PAT+>000A,C=@S$$PAT+>000A PBEC B PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000A, PP V=>DEAD,D=>C9C8,C=>C9C8 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000C, PP V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>000E, PP V=>DEAD,D=>05A0,C=>05A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0010, P T@P V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0012, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0014, PP V=>DEAD,D=@DSR911PF+>0860,C=@DSR911PF+>0860 PPEC PP* PP.ENDIF P*$ > >P************************************************************************** PP* PP*=P0382 MU 12/05/79 STR #05431 3.3.0 DSR913 PP* PP* A BUG IN THE INPUT ROUTINE OF THE 913 DSR CAUSES PP* THE SYSTEM TO CRASH WITH A >22 ERROR WHEN MORE PP* CHARACTERS ARE TYPED THAN THE NO-ECHO FIELD IS WIDE. PP* PP*#SYN S913,DSR913 P$*#SYN SROOT,ROOT $, ,P*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR913" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B4, PP V=>06A0,D=>0460,C=>0460 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B6, PP V=@DSR913+>07DC,D=@S$$PAT+>0016,C=@S$$PAT+>0016 P6!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 6 PMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8, PP V=(>0B2B,>1811,>35C5), PP D=(>0B5B,>1811,>1001),C=>034B PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, PP V=>DEAD,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0018, PP V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC PHEC H PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001A, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C2E4,>002C,>058A,>0460),C=>C322 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0022, PP V=>DEAD,D=@DSR913+>02B8,C=@DSR913+>02B8 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023C, PP V=>1D0C,D=>0460,C=>0460 PPEC PMPI PFJ=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E, JP V=>0621,D=@S$$PAT+>0024,C=@S$$PAT+>0024 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>0240, PP V=>0008,D=>060A,C=>060A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>890A,>0030,>1301,>1D0C),C=>8737 PP!EC ! NOTE: THIS PATCH MODIFIED BY PATCH 0557 PMPI PF=IMAGE,MT=TA,MN=@S8ROOT,ADR=@S$$PAT+>002C, 8P V=(>DEAD,>DEAD,>DEAD),D=(>0621,>0008,>0460),C=>0249 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0032, PP V=>DEAD,D=@DSR913+>0240,C=@DSR913+>0240 PPEC PP* PP.ENDIF PP*$ ! MODIFIED BY PATCH 0557 PP************************************************************************** P** *& &P*=P0383 MSC 12/05/79 STR #05433 3.3.0 DSR911,DSR911PF PP* PP* THE RIGHT FIELD KEY IN BOTH THE 911 DSRS IS BEING PP* MAPPED TO THE RETURN KEY CODE (>8D) AND SHOULD BE PP* MAPPED TO ITS OWN CODE OF >87. THIS PATCH WILL PP* ALSO KEEP THE CURSOR OFF AFTER A BOOT. PP* PP*#SYN S911PF,DSR911PF PP*#SYN S911,DSR911 P<* < P.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>085E, PP V=>8D9D,D=>879D,C=>879D PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>022A, PP V=>1D0C,D=>1E0C,C=>1E0C PPEC PP* PN.ENDIF N P* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0B50, PP V=>8D9D,D=>879D,C=>879D PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0362, PP V=>1D0C,D=>1E0C,C=>1E0C PPEC PP* P .ENDIF D DP*$ PP************************************************************************** PP* PP*=P0384 MSC 12/05/79 STR #05434 3.3.0 IOCOMX PP* PP* THE HARD BREAK SEQUENCE (RESET KEY, CMD KEY) CAN CAUSE A PP* TASK UNDER A BACKGROUND SCI TO BE ABORTED. THIS PATCH PP* ADDS AN ADDITIONAL CHECK TO SEE IF THE PARENT TSB POINTER PP* IS ZERO. NORMALLY THE PARENT POINTER OF FOREGROUND SCI P* IS ZERO. 2 2P* PP*#SYN SROOT,ROOT PP*#SYN IOC,IOCOM PP*.EVAL S$$PAT="@ROOT+>0000" PP* PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0378, PP V=>82A9,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>037A, P0 V=>0014,D=@S$$PAT+>0034,C=@S$$PAT+>0034 0 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0034, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>82A9,>0014,>1603,>CA69),C=>5ED7 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>003C, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>0040,>0040,>0460),C=>0460 PPEC PBMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0042, B P V=>DEAD,D=@IOCOM+>037C,C=@IOCOM+>037C PPEC PP*$ PP************************************************************************** PP* PP* BEGIN PATCHES FOR RELEASE 3.3.1 PP* PP************************************************************************** PP* PP*=P0388 RVL 01/08/80 STR #05562 3.3.1 DSR820 P T@P* PP* THE 820 DSR DOES NOT ALLOW EVENT KEYS. THIS PATCH WILL PP* ALLOW THE DSR TO RECOGNIZE AND SEND TO THE USER THE EVENT PP* KEYS. PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>032E, P V=>C024,D=>D0>24,C=>D024 >PEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0390 MSC 01/08/80 STR #05563 3.3.1 MM$SCN PP* PP* THE SYSTEM HANGS BECAUSE BUFFERS ARE NOT PREEMPTED ON THE P$* FIRST PASS FOR MEMORY FOR LOADING$, A TASK. ,P* PP*#SYN SROOT,ROOT PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0026, PP V=>13F2,D=>1000,C=>1000 PPEC PP*$ PP************************************************************************** PP* P6*=P0391 GRJ 01/08/80 STR #05564 3.3.1 SEQ KIF 6 P* PP* IF A REWRITE IS DONE ON A SINGLE KEY FILE AND THE VALUE PP* IS BEING MODIFIED, THE KEY IS NOT CHANGED BUT ANY OTHER PP* DATA THAT IS MODIFIED IS CHANGED. ALSO, NO ERROR IS RETURNED. PP* PP*#SYN SKIF3,KIF3 PP* PP.IF "@KIF3" ,NE, NONE PP* PHMPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>026C, H P V=>0000,D=>0002,C=>0002 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0664+>0290, PP V=>0000,D=>0002,C=>0002 PPEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* P*=P039J2 MSC 01/08/80 STR #05566 3.3.1 FILMGR JP* PP* THE STACK OF FILE MANAGEMENT ROUTINE 'WRTSEQ' IS PP* IMPROPERLY MANAGED IF AN ERROR IS RETURNED TO 'WRTSEQ' PP* FROM 'BM$RD' RESULTING IN A LATER >A0 CRASH. PP* PP*#SYN SFILMG,FILMG,KIF PP* PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0114, PP V=(>1105,>1304),D=(>110A,>1309),C=>0203 PEC 8 8PMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0126, PP V=>C0C3,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>0128, PP V=>1103,D=@FILMG+>09D2+>000A,C=@FILMG+>09D2+>000A PPEC PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012A, PP V=>1302,D=>06A0,C=>06A0 PPEC P*MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>*&09D2+>012C, &P V=>0460,D=@FILMG+>0E1A,C=@FILMG+>0E1A PPEC PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>09D2+>012E, PP V=@FILMG+>09D2+>000A, PP D=@FILMG+>09D2+>01D2,C=@FILMG+>09D2+>01D2 PPEC PP*$ PP************************************************************************** PP* P<*=P0401 MSC 01/16/80 STR #05633 3.3.1 TM$SHD < P* PP* WHEN PROCESSING A CORRECTABLE MEMORY ERROR FOR LOGGING, PP* THE STACK IN TM$SHD IS OVERRUN CAUSING THE FIRST FEW PP* WORDS OF THE LOG PROCESSOR TO BE OVERWRITTEN. WHEN PP* LOGGING IS THEN ATTEMPTED, ILLEGAL OPCODES ARE PP* ENCOUNTERED CAUSING A SYSTEM CRASH >20. THIS PATCH MOVES PP* THE CODE BEING OVERWRITTEN TO THE OS PATCH AREA. PP* PP*#SYN SROOT,ROOT PN*#SYN SIO,SVCIO,SYSLOG N P*.EVAL S$$PAT="@ROOT+>0000" PP* PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>1A5C+>0362, PP V=@SVCIO+>1A5C+>04B2, ! TM$SHD+>04B2 PP D=@S$$PAT+>01E0,C=@S$$PAT+>01E0 PPEC PP*$ PP************************************************************************** PP* PP*=P0407 MU 01/18/80 STR #05638 3.3.1 DXIOS,FMACES P * D DP* AN UNEXPECTED >3B ERROR OCCURS WHEN MULTIPLE TASKS ARE PP* TRYING TO OPEN THE SAME FILE WITH SHARED ACCESS OR THE PP* FILE S$FGTCA GETS DESTROYED. THIS PATCH CORRECTS THE PP* PROBLEM. PP* PP*#SYN SFILMG,FILMG,KIF PP*#SYN SROOT,ROOT PP*#SYN SIO,SVCIO,SYSLOG PP*.EVAL S$$PAT="@ROOT+>0000" P* 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0044, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>CB08,>0008,>0720),C=>CC20 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004A, PP V=>DEAD,D=@SVCIO+>0E58,C=@SVCIO+>0E58 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004C, PP V=>DEAD,D=>0460,C=>0460 P0EC 0 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>004E, PP V=>DEAD,D=@SVCIO+>0E58+>0344,C=@SVCIO+>0E58+>0344 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0050, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>CA4C,>0006,>0760),C=>CD2A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0056, PP V=>DEAD,D=@SVCIO+>0E58,C=@SVCIO+>0E58 PBEC B PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0058, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>130A,>C129,>000C),C=>D22F PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>005E, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0244,>0018,>0B64,>5B20),C=>5218 PPEC PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0066, P T@P V=>DEAD,D=@S$$PAT+>004D,C=@S$$PAT+>004D PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0068, PP V=>DEAD,D=>0004,C=>0004 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>006A, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>EB04,>0004,>045B),C=>EF5B PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0340, P V=>0720,D=>04>60,C=>0460 >PEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0342, PP V=@SVCIO+>0E58,D=@S$$PAT+>0044,C=@S$$PAT+>0044 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A6, PP V=>CA4C,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A8, PP V=>0006,D=@S$$PAT+>0050,C=@S$$PAT+>0050 P$EC $, ,PMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>05AE+>0072, PP V=>CB6C,D=>1005,C=>1005 PPEC PP*$ PP************************************************************************** PP* PP*=P0409 MSC 01/30/80 STR #05680 3.3.1 DSR820 PP* PP* THE 820 DSR DOES NOT PROPERLY HANDLE INITIATE I/O REQUESTS. P6* THIS CAUSES A 'LIST ALL' COMMAND IN XGEN TO PRINT O6NLY ONE P* LINE ON THE 820 AND THEN GO TO STATE 9 WITH THE XGEN KEYBOARD PP* LOCKED OUT. THE FOLLOWING PATCH CORRECTS THE 820 LOGIC. PP* PP*#SYN S820,DSR820 PP* PP.IF "@DSR820" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0086, PP V=>C840,D=>D840,C=>D840 PHEC H P* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0410 MSC 01/30/80 STR #05681 3.3.1 DDIOSR PP* PP* PATCH TO CORRECT THE PRIORITY OF LOOKING AT DISK ERROR BITS PP* TO AVOID SAYING 'NOT READY, >18' WHEN 'SEEK INCOMPLETE, >1D'. PP* AND TO ENABLE RETRIES ON >1E ERRORS SINCE THESE MAY BE THE P* SAMJE AS >11 ERRORS (NONFLOPPY CONTROLLERS MAY SET THE SAME JP* BITS AS THE FD1000 THAT INDICATE DELETED SECTORS). PP* PP*#SYN SDDIO,DDIOSR PP* PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>039C, PP V=>0002,D=>0001,C=>0001 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B0, PP V=(>980A,@DDIOSR+>048C,>138D,>980A), P D=(>1005,>1004,>10038,>1002),C=>0000 8PEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B8, PP V=(@DDIOSR+>048D,>1B12), PP D=(>1001,>1000),C=>0001 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C6, PP V=>9829,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C8, P* V=>FFFE,D=@S$$PAT+>0108,C=@S$$PAT+>010*&8 &PEC PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03CA, PP V=@DDIOSR+>483,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0108, PP V=>DEAD,D=>980A,C=>980A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>010A, PP V=>DEAD,D=@DDIOSR+>048D,C=@DDIOSR+>048D P010C, PP V=(>DEAD,>DEAD),D=(>1202,>0460),C=>1662 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0110, PP V=>DEAD,D=@DDIOSR+>03E0,C=@DDIOSR+>03E0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0112, PP V=(>DEAD,>DEAD),D=(>9829,>FFFE),C=>67D7 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0116, N P V=>DEAD,D=@ROOT+>027B,C=@ROOT+>027B PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0118, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>011A, PP V=>DEAD,D=@DDIOSR+>03CC,C=@DDIOSR+>03CC PPEC PP*$ PP************************************************************************** P * D DP*=P0411 MSC 01/30/80 STR #05682 3.3.1 DDIOSR PP* PP* THIS PATCH PREVENTS THE DESELECTION OF A UNIT BETWEEN PP* COMMANDS ISSUED TO A DISK. THIS WILL INHIBIT CHANGING PP* THE WRITE PROTECT STATE OF A UNIT WHEN ONLY ONE DRIVE PP* IS CONNECTED ON A CONTROLLER. THIS IS TO ELIMINATE PP* RESPONSE TIME LOSS IN THE CURRENT IMPLEMENTATION OF PP* THIS FEATURE. PP* P*#SYN SDDIO,DDIOSR 2 2P* PPMPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>0304, PP V=>04EC,D=>1001,C=>1001 PPEC PP*$ PP************************************************************************** PP* PP*=P0412 CRM 01/30/80 STR #05683 3.3.1 TM$INT PP* P0* TILINE CONTROLLER BOARDS (FOR DISKS) HANG IN 0 A FAULTED P* STATE AFTER POWER IS RE-APPLIED FROM A POWER FAILURE. PP* IT TAKES TWO 'RSET' INSTRUCTIONS TO CLEAR THIS CONDITION PP* AT THIS TIME. THIS PATCH MODIFIES THE CURRENT POWER PP* UP CODE TO EXECUTE TWO RSET INSTRUCTIONS IN THE OS PP* PATCH AREA. PP* PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PBMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0002, B P V=>02E0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0004, PP V=@ROOT+>26D4+>00B4,D=@S$$PAT+>0076,C=@S$$PAT+>0076 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0076, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>0360,>0360,>02E0),C=>02E0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007C, P T@P V=>DEAD,D=@ROOT+>026D4+>00B4,C=@ROOT+>26D4+>00B4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007E, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0080, PP V=>DEAD,D=@ROOT+>26D4+>0006,C=@ROOT+>26D4+>0006 PPEC PP*$ PP************************************************************************** P* > >P*=P0413 MSC 01/30/80 STR #05684 3.3.1 SYSLOG PP* PP* PATCH TO KEEP THE SYSTEM LOG FROM CAUSING A SYSTEM PP* CRASH WHEN A CRU FLOPPY DRIVE DOES NOT EXIST. PP* PP*#SYN SIO,SVCIO,SYSLOG PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* P$MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$,$PAT+>0082, ,P V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>1803,>0841,>1701,>0A23),C=>0D60 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008A, PP V=>DEAD,D=>045B,C=>045B PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0090, PP V=(>0241,>000F,>D0E1), PP D=(>0203,>0004,>08B1),C=>0AB6 P6EC 6 PMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0096, PP V=@SYSLOG+>025B,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0098, PP V=>0983,D=@S$$PAT+>0082,C=@S$$PAT+>0082 PPEC PP*$ PP************************************************************************** PP* PH*=P0416 MSC 01/30/80 STR #05686 3.3.1 DSR911,DSR911PF H P* PP* ABORT I/O SVC'S TO 911'S ARE LOGGED TO THE SYSTEM LOG. PP* THIS IS THE STADARD WAY COMM WORKS. IT SHOULDN'T BE LOGGED. PP* THIS PATCH ALSO PREVENTS ANY DEVICE TIMEOUTS FROM BEING PP* LOGGED, BUT SHOULD NOT PRESENT ANY PROBLEMS SINCE THERE PP* SHOULD BE NO 911 WITH TIMEOUT DEFINED OTHER THAN 0. PP* PP*#SYN S911,DSR911 PP*#SYN S911PF,DSR911PF PP* P.IF @DJSR911 ,NE, NONE JP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>020C, PP V=>0606,D=>0006,C=>0006 PPEC PP* PP.ENDIF PP* PP.IF @DSR911PF ,NE, NONE PP* PMPI PF=IMAGE,MT=OV,MN=@S8911PF,ADR=@DSR911PF+>031A, 8P V=>606,D=>0006,C=>0006 PPEC PP* PP.ENDIF PP*$ PP************************************************************************** PP* PP*=P0417 MSC 01/30/80 STR #05687 3.3.1 DSR913 PP* P** DISPLAYING CHARACTERS ON A 913 VDT THAT*& IS CONNECTED &P* TO A 990/12 FAILS DURING SCROLLING THE SCREEN. CHARACTERS PP* DRIFT FROM THE PREVIOUS LINES. THIS PATCH INTRODUCES PP* A TIMING LOOP TO PROHIBIT THE ABOVE PROBLEM. PP* PP*#SYN S913,DSR913 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF @DSR913 ,NE, NONE P<* < PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AA, PP V=(>DEAD,>DEAD),D=(>1D0A,>06A0),C=>1BAA PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AE, PP V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B0, PP V=(>DEAD,>DEAD),D=(>0607,>0460),C=>0267 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B4, N P V=>DEAD,D=@DSR913+>0730 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072C, PP V=>1D0A,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072E, PP V=>0607,D=@S$$PAT+>00AA,C=@S$$PAT+>00AA PPEC PP* PP.ENDIF P *$ D DP************************************************************************** PP* PP*=P0418 RVL 01/30/80 STR #05689 3.3.1 WAITIO PP* PP* WHEN A TASK ISSUES A 'WAIT FOR ANY I/O' SVC AFTER HAVING PP* PREVIOUSLY ISSUED A 'DO NOT SUSPEND', THE I/O COMPLETION PP* MAY NOT BE HANDLED PROPERLY. THIS PATCH CORRECTS THE PP* 'WAIT FOR ANY I/O LOGIC'. PP* P*#SYN IOC,IOCOM 2 2P*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B6, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>D128,>0060,>1308,>04E0),C=>C6A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00BE, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), P0 D=(>014A,>04E0,>0104,>0720),C=>038E 0 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00C6, PP V=(>DEAD,>DEAD),D=(>0106,>0460),C=>0566 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CA, PP V=>DEAD,D=@ROOT+>1DB4,C=@ROOT+>1DB4 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CC, PP V=>DEAD,D=>0460,C=>0460 PBEC B PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CE, PP V=>DEAD,D=@IOCOM+>08DC,C=@IOCOM+>08DC PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>08D6, PP V=>D128,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>08D8, PP V=>0060,D=@S$$PAT+>00B6,C=@S$$PAT+>00B6 PPEC PP*$ P T@P************************************************************************** PP* PP*=P0419 RVL 01/30/80 STR #05690 3.3.1 MM$SCN PP* PP* MANY REAL TIME TASKS RUNNING CONCURRENTLY THAT FILL PP* AVAILABLE MEMORY APPEARS TO CAUSE A SCHEDULAR LOCKOUT. PP* THIS WOLULD CAUSE THE SYSTEM TO 'HANG'. THIS PATCH PP* CORRECTS THE PROBLEM. PP* PP*#SYN SROOT,ROOT P*.EVAL S$$PAT="@RO>OT+>0000" >P* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>00A4, PP V=(>1501,>04C1),D=(>1104,>1000),C=>0104 PPEC PP*$ PP************************************************************************** PP* PP*=P0422 MSC 01/29/80 STR #05691 3.3.1 RDSEQ PP* P$* PATCH TO FIX FILE MANAGEMENT ROUT$,INE "RDSEQ". THE ,P* STACK IS IMPROPERLY MANAGED IF AN ERROR IS RETURNED PP* TO RDSEQ FROM BM$REL. PP* PP*#SYN SFILMG,FILMG,KIF PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PPMPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>08E2+>00BE, PP V=@FILMG+>08E2+>00E0,D=@S$$PAT+>0070,C=@S$$PAT+>0070 P6EC 6 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0070, PP V=(>DEAD,>DEAD),D=(>064A,>0460),C=>022A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0074, PP V=>DEAD,D=@FILMG+>08E2+>00E0,C=@FILMG+>08E2+>00E0 PPEC PP*$ PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, PP V=>2E30,D=>2E31,C=>2E31 PH!EC ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH. H P************************************************************************** PP* PP*=P0425 CRM 02/08/80 STR #05726 3.3.1 DSR911PF PP* PP* WHEN USING 16K RAM MEMORIES, THE POWER FAIL/RECOVERY PP* SNAGS ON SOME UNINITIALIZED MEMORY DURING THE RECOVERY PP* PHASE. THIS PATCH CAUSES THE 911PF BUFFERS TO BE PP* INITIALIZED DURING IPL TO PROHIBIT THIS PROBLEM. PP* PP*#SYN S911PF,DSR911PF P*#SYN JSROOT,ROOT JP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911PF", NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>02B6, PP V=>04E0,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>02B8, PP V=@DSR911PF+>0BA2,D=@S$$PAT+>00D0,C=@S$$PAT+>00D0 PEC 8 8PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D0, PP V=>DEAD,D=>0206,C=>0206 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D2, PP V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D4, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0207,>0780,>0209,>2020),C=>27AE P*EC *& &PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00DC, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>CD89,>0647,>16FD),C=>DD33 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E2, PP V=>DEAD,D=>04E0,C=>04E0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E4, PP V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 P00E6, PP V=>DEAD,D=>04E0,C=>04E0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E8, PP V=>DEAD,D=@DSR911PF+>0BA2,C=@DSR911PF+>0BA2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EA, PP V=>DEAD,D=>045B,C=>045B PPEC PN* N P.ENDIF PP* PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>003C, PP V=>23E0,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>003E, PP V=@ROOT+>0272,D=@S$$PAT+>00EE,C=@S$$PAT+>00EE PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0040, PP V=>1307,D=>1000,C=>1000 P EC D DPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EE, PP V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0200,>0080,>23C0,>1602,>0460), PP C=>3322 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00F8, PP V=>DEAD, PP D=@ROOT+>26D4+>0050, PP C=@ROOT+>26D4+>0050 PEC 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00FA, PP V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0200,>000F,>23C0,>1602,>0460), PP C=>33AD PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0104, PP V=>DEAD, PP D=@ROOT+>26D4+>0050, PP C=@ROOT+>26D4+>0050 P0EC 0 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0106, PP V=>DEAD,D=>045B,C=>045B PPEC PP*$ PP************************************************************ PP* PP*=P0434 MSC 02/14/80 STR #05775 3.3.1 FPYDSR PP* PP* PATCH TO NOT ISSUE COMMAND UNTIL CONTROLLER READY AND PB* MAKE ALL READS DO NON-SEQUENTIAL SECTORING. B P* PP*#SYN SFPY,FPYDSR PP* PP.IF "@FPYDSR", NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0352, PP V=>1004,D=>10F3,C=>10F3 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0250, PP V=>4000,D=>4100,C=>4100 P T@PEC PP* PP.ENDIF PP*$ PP************************************************************ PP* PP* BEGIN PATCHES FOR RELEASE 3.3.2 PP* PP************************************************************* PP* P*=P0448 RVL 02/2>7/80 STR #05841 3.3.2 LPDSR >P* PP* THE LINE PRINTER WILL NOT RETURN A TIMEOUT ERROR ON PP* OPEN. THIS PATCH CORRECTS THE PROBLEM. PP* PP.IF "@LPDSR", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0116, PP V=>1037,D=>0380,C=>0380 PPEC PP.ENDIF P$*$ $, ,P************************************************************* PP* PP*=P0449 RVL 02/27/80 STR #05842 3.3.2 DSR979 PP* PP* IF A TASK DOING I/O TO A TAPE TRANSPORT IS KILLED WHILE PP* THE TRANSPORT IS BUSY REWINDING, A CRASH >22 MAY OCCUR. PP* PP*#SYN S979,DSR979 PP.IF "@DSR979" ,NE, NONE P6MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0024, 6 P V=>0248,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0026, PP V=>F000,D=@S$$PAT+>012C,C=@S$$PAT+>012C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>012C, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0248,>F000,>C2C2,>0A2B),C=>3AA1 PPEC PHMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0134, H P V=(>DEAD,>DEAD,>DEAD), PP D=(>1801,>0380,>0460),C=>1FE1 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013A, PP V=>DEAD,D=@DSR979+>0028,C=@DSR979+>0028 PPEC PP.ENDIF PP*$ PP************************************************************* PP* P*=P045J4 RVL 03/09/80 STR #05907 3.3.2 IOCOMX JP* PP* THE POWER UP ROUTINE 'SCNPDT' FAILS TO PROPERLY HANDLE PP* SOME NON-DISK TILINE DEVICES. PP* PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023C, PP V=>22E0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023E, PP V=@IOCOM+>01E4,D=@S$$PAT+>013C,C=@S$$PAT+>013C PEC 8 8PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013C, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>024B,>40FF,>028B,>4006),C=>0039 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0144, PP V=(>DEAD,>DEAD),D=(>1602,>0460),C=>1262 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0148, PP V=>DEAD,D=@IOCOM+>0242,C=@IOCOM+>0242 P*EC *& &PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014A, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014C, PP V=>DEAD,D=@IOCOM+>0286,C=@IOCOM+>0286 PPEC PP*$ PP************************************************************************** PP* P<*=P0453 MU 03/10/80 STR #05906 3.3.2 DSR911 < P* PP* KATAKANA CHARACTERS ARE NOT ACCEPTED/DISPLAYED PROPERLY PP* WHEN READ AND WRITE DIRECT OP CODES ARE USED ON A 911. PP* PP*#SYN S911PF,DSR911PF PP*#SYN S911,DSR911 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PN.IF "@DSR911" ,NE, NONE N P* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8, PP V=>0200, D=>06A0, C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01CA, PP V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE, PP V=>0200, D=>06A0, C=>06A0 PPEC P MPI PF=IMAGE D,MT=OV,MN=@S911,ADR=@DSR911+>02C0, DP V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0084, PP V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>050A, PP V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, P V=(>DEAD,>DEAD,>DEAD,>DEA2D), 2P D=(>C002,>0A80,>04C0,>1802), C=>D640 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>0200,>8080,>045B), C=>86DB PPEC PP.ENDIF PP* PP.IF "@DSR911PF" ,NE, NONE P0* 0 PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256, PP V=>0200, D=>06A0, C=>06A0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0258, PP V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A, PP V=>0200, D=>06A0, C=>06A0 PPEC PBMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041C, B P V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>00BA, PP V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>070A, PP V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), P T@P D=(>C002,>0A80,>04C0,>1802), C=>D640 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>0200,>8080,>045B), C=>86DB PPEC PP.ENDIF PP*$ PP************************************************************* PP* P*=P0457 MU 03/1>1/80 STR #05777 3.3.2 LPDSR >P* PP* A SERIAL INTERFACED PRINTER IN 'CODE8' MODE DOES NOT PP* MAINTAIN EITHER ODD OR EVEN PARITY. PP* PP.IF "@LPDSR" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016C, PP V=>0624,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016E, P$ V=>0002,D=@S$$PAT+>008C,C=@S$$PA$,T+>008C ,PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008C, PP V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0624,>0002,>0249,>7FFF,>0460),C=>7FF0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0096, PP V=>DEAD,D=@LPDSR+>0170,C=@LPDSR+>0170 PPEC PP.ENDIF P6*$ 6 P********************************************************************************PP* PP*=P0456 JLH 02/26/80 STR #05927 3.3.2 DXIOS PP* PP* WHEN USING THE 3780/2780 EMULATORS, THE STATISTICS REPORT OF PP* PROTOCOL COUNTERS ARE AVAILABLE ONLY WHEN THE COMMUNICATIONS PP* LINE IS CONNECTED. THIS IMPLIES THAT THE STATISTICS ARE NOT PP* AVAILABLE WHEN THE LINK HAS BEEN DISCONNECTED BY THE REMOTE PP* OR ABNORMALLY BY PHONE PROBLEMS. THIS PATCH ALLOWS THE 3780 PH* OR 2780 TASK TO ACCESS THE STATISTICS AT ALL TIMES. H P* PP*#SYN SCOMM,COMMCOM PP.IF "@COMMCOM",NE,NONE PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0084, PP V=@SVCIO+>0E58+>0294,D=@ROOT+>015C,C=@ROOT+>015C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C, PP V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C027,>000A,>0A60,>1706,>9803),C=>4548 PPEC PMPI PFJ=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000A, JP V=>DEAD,D=@ROOT+>027A,C=@ROOT+>027A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000C, PP V=(>DEAD,>DEAD),D=(>1305,>9803),C=(>8B06) PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0010, PP V=>DEAD,D=@ROOT+>0264,C=@ROOT+>0264 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0012, P V=(>DEAD,>DEAD),D=(>81302,>0460),C=(>1762) 8PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0016, PP V=>DEAD,D=@SVCIO+>0E58+>0294,C=@SVCIO+>0E58+>0294 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0018, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+001A, PP V=>DEAD,D=@SVCIO+>0E58+>0094,C=@SVCIO+>0E58+>0094 P*EC *& &PMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05A4, PP V=(>F9E0,@ROOT+>0270,>0008,>C127), PP D=(>C127,>000A,>1106,>F9E0),C=>29CB PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05AC, PP V=>000A,D=@ROOT+>0270,C=@ROOT+>0270 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+05AE, PP V=>1103,D=>0008,C=>0008 P0E58+>05CA, PP V=>C127,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CC, PP V=>000A,D=@ROOT+>015C+>001C,C=@ROOT+>015C+>001C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001C, PP V=>DEAD,D=>F9E0,C=>F9E0 PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001E, N P V=>DEAD,D=@ROOT+>0270,C=@ROOT+>0270 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0020, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>0008,>C127,>000A,>0460), PP C=(>C545) PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0028, PP V=>DEAD,D=@SVCIO+>0E58+>05CE,C=@SVCIO+>0E58+>05CE PPEC P .ENDIF D DP.SYN SCOMM="",COMMCOM="" PP*$ PP************************************************************* PP* PP*=P0460 RVL 03/14/80 STR #05938 3.3.2 TM$INT PP* PP* TM$INT INCORRECTLY CALLS THE GET SYSTEM TABLE AREA PP* ROUTINE WHILE IN INTERRUPT CODE. PP* PMPI PF=IMAGE,MT=TA,MN=@SROOT,A2DR=@ROOT+>26D4+>011C, 2P V=>1602,D=>1002,C=>1002 PPEC PP*$ PP************************************************************* PP* PP*=P0469 RVL 03/15/80 STR #05941 3.3.2 DSR911 PP* PP* A READ ASCII SVC ISSUED TO A 911 WILL DESTROY SYSTEM PP* TABLE LINKAGE IF THE RECORD LENGTH IS ZERO. THIS WILL P0* RESULT IN >22,>30 AND SEVERAL OTHER CRASH COD0 ES. P* PP.IF "@DSR911", NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02F8, PP V=>C261,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02FA, PP V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, PB V=(>DEAD,>DEAD,>DEAD,>DEAD), B P D=(>C261,>0006,>1602,>C90A),C=>1D6F PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, PP V=>DEAD,D=@DSR911+>02FC,C=@DSR911+>02FC PPEC PP.ENDIF PP.IF "@DSR911PF", NE, NONE P T@PMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0464, PP V=>C261,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0466, PP V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, PP V=(>DEAD,>DEAD,>DEAD,>DEAD), PP D=(>C261,>0006,>1602,>C90A),C=>1D6F PPEC PMPI PF=IMAGE,MT=TA>,MN=@SROOT,ADR=@S$$PAT+>00A0, >P V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, PP V=>DEAD,D=@DSR911PF+>0468,C=@DSR911PF+>0468 PPEC PP.ENDIF PP*$ PP************************************************************* PP* P$*=P0470 RVL 03/18/80 STR #05967 $,3.3.2 LPDSR ,P* PP* ACCESSING SERIAL PRINTERS DIRECTLY WILL SOMETIMES CAUSE PP* THE SYSTEM TO 'HANG' OR CRASH WITH A CODE >22. PP* PP.IF "@LPDSR" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>000C, PP V=(>0205,>0002),D=(>1000,>1000),C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>001A, P6 V=>1815,D=>1515,C=>1515 6 PEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0046, PP V=>102B,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0048, PP V=>0207,D=>0205,C=>0205 PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>004A, PP V=@LPDSR+>0266,D=>0002,C=>0002 PHEC H PMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0052, PP V=>1025,D=>10FA,C=>10FA PPEC PPMPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0058, PP V=>1022,D=>10F7,C=>10F7 PPEC PP.ENDIF PP*$ PP************************************************************* PP* P*=P047J6 GRJ 03/25/80 STR #05696 3.3.2 CASHAN JP* PP* IF THE RECORD SWITCH OF A CASSETTE IS IN THE OFF OR PP* LOCAL POSITION AND AN ATTEMPT IS MADE TO WRITE TO IT, PP* AN ERROR >7 IS CORRECTLY RETURNED. HOWEVER ON A SUBSEQUENT PP* ATTEMPT, THE SYSTEM WILL CRASH WITH A CODE >20 PP* PP*#SYN S733,DSR733 PP* PP.IF "@DSR733", NE, NONE P.EVAL CASHAN="@DSR733+>08566" 8PMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0092, PP V=>2260,D=>0A89,C=>0A89 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0094, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0096, PP V=>1602,D=>1702,C=>1702 PPEC P*MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0*&0C0, &P V=>2260,D=>0A89,C=>0A89 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C2, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C4, PP V=>1302,D=>1802,C=>1802 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0134, P< V=@CASHAN+>014C,D=@CASHAN+>0150,C=@CASHAN+>0150 < PEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>014E, PP V=>4000,D=>0000,C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0150, PP V=@CASHAN+>0156,D=>0000,C=>0000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0152, PP V=@CASHAN+>01F0,D=>4000,C=>4000 PNEC N PMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0154, PP V=>0001,D=@CASHAN+>015A,C=@CASHAN+>015A PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0156, PP V=>1300,D=@CASHAN+>01F0,C=@CASHAN+>01F0 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0158, PP V=(>0100,>1000),D=(>0001,>1300),C=>1301 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>016C, P V=@CASHA DN+>0152,D=@CASHAN+>0156,C=@CASHAN+>0156 DPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0254, PP V=>2260,D=>0A89,C=>0A89 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0256, PP V=@CASHAN+>0158,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0258, PP V=>1302,D=>1802,C=>1802 PEC 2 2PMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0164, PP V=>2260,D=>0A49,C=>0A49 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0166, PP V=@CASHAN+>015A,D=>1000,C=>1000 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0168, PP V=>16EE,D=>17EE,C=>17EE PPEC P0.SYN CASHAN="" 0 P.ENDIF PP*$ PP************************************************************* PP* PP*=P0490 GCH 04/11/80 STR #06206 3.3.2 IOCOMX PP* PP* THE CHARACTER QUE IN THE PDT WILL BE DESTROYED IF A TASK PP* OPENS A TERMINAL FOR EVENT CHARACTERS AND SUBSEQUENTLY PP* USES A SHORT FORM PRB. THIS MIGHT BE OBSERVED AS A SINGLE PB* EVENT CHARACTER CAUSING TWO I/O CALLS TO BE TERMINATED. B P* PP* NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH. PP* PP*#SYN IOC,IOCOM PP*#SYN SROOT,ROOT PP*#SYN S911,DSR911 PP*#SYN S911PF,DSR911PF PP* PP.EVAL TM$INT="@ROOT+>26D4" PP* P T@PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0182, PP V=(@TM$INT+>0186,@TM$INT+>01A6,>0000,>0000), PP D=(>04C6,>C264,>0002,>1612),C=>D0B2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>018A, PP V=(>0000,>0000,>0000,>0000), PP D=(>100F,>C264,>0002,>0609),C=>D460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0192, PP V=(>0000,>0000,>0000,>0000), P D=(>1608,>C186>,>1306,>0624),C=>C2AC >PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>019A, PP V=(@TM$INT+>01F0,>0000,>0000,>0000), PP D=(>0006,>C024,>0006,>D406),C=>1422 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01A2, PP V=(>0000,>0000,>0201,>0014), PP D=(>1003,>0624,>0002,>1602),C=>0027 PPEC P$MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$,$INT+>01AA, ,P V=(>06A0,@ROOT+>14CA,@TM$INT+>01E8), PP D=(>C19B,>0380,>0460),C=>C67B PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B0, PP V=>C8A0,D=@IOCOM+>02D0,C=@IOCOM+>02D0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B2, PP V=(@ROOT+>024A,>0006,>C8A0), PP D=(>0624,>0006,>0460),C=>0242 P6EC 6 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B8, PP V=@TM$INT+>01EA,D=@IOCOM+>032E,C=@IOCOM+>032E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01BA, PP V=(>0008,>C8A0,@TM$INT+>01EC,>000A), PP D=(>C186,>1306,>0624,>0006),C=>D4A2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01C2, PP V=(>D8A0,@TM$INT+>01EE,>000E,>04C1), PH D=(>C024,>0006,>D406,>1002),C=>0426 H PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01CA, PP V=(>D881,>000C,>D881,>000D), PP D=(>0624,>0002,>046B,>0004),C=>0249 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C2, PP V=>C024,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C4, PP V=>0002,D=@TM$INT+>0182,C=@TM$INT+>0182 PEC J JPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C6, PP V=(>1602,>C19B,>0380,>0624), PP D=(>1000,>1000,>1000,>0460),C=>1460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02CE, PP V=>0002,D=@TM$INT+>018C,C=@TM$INT+>018C PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0300, PP V=(>13E0),D=(>13E5),C=>13E5 PEC 8 8PMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0312, PP V=(>17D7),D=(>17DC),C=>17DC PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0324, PP V=(>1804,>05A4),D=(>1802,>0460),C=>1C62 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0328, PP V=>0002,D=@TM$INT+>01B2,C=@TM$INT+>01B2 PPEC P*MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>032*&A, &P V=(>0624,>0006),D=(>0624,>0002),C=>0626 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0334, PP V=>046B,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0336, PP V=>0004,D=@TM$INT+>01BA,C=@TM$INT+>01BA PPEC PP* P<.IF @DSR911 ,NE, "NONE" < P* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A0, PP V=>06A0,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A2, PP V=@IOCOM+>002C,D=@TM$INT+>01D2,D=@TM$INT+>01D2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, PP V=>D881,D=>06A0,C=>06A0 PNEC N PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, PP V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, PP V=>D881,D=>0206,C=>0206 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, PP V=>0010,D=@DSR911+>01B2,C=@DSR911+>01B2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, P V=>D881, DD=>0380,C=>0380 DPEC PP* PP.ENDIF PP* PP.IF @DSR911PF ,NE, "NONE" PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FC, PP V=>06A0,D=>0460,C=>0460 PPEC PMPI PF=IMAGE,MT=OV,MN=@S911PF,2ADR=@DSR911PF+>03FE, 2P V=@IOCOM+>002C,D=@TM$INT+>01D2,C=@TM$INT+>01D2 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, PP V=>D881,D=>06A0,C=>06A0 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, PP V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, P0 V=>D881,D=>0206,C=>0206 0 PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, PP V=>0010,D=@DSR911PF+>0240,C=@DSR911PF+>0240 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, PP V=>D881,D=>0380,C=>0380 PPEC PP* PP.ENDIF PB* B P.SYN TM$INT="" PP*$ PP************************************************************* PP* PP*=P0496 RVL 04/18/80 STR #06147 3.3.2 DSR820 PP* PP* THE REQUEST TO SEND FLAG IS INCORRECTLY REFERENCED IN PP* THE 820 DSR. PP* PP.IF "@DSR820" ,NE, NONE P T@PMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>00A6, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0174, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01CE, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01F8, P V=@DSR820+>05C>C,D=@DSR820+>05CA,C=@DSR820+>05CA >PEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0490, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PPMPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04B4, PP V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA PPEC PP.ENDIF PP*$ P$************************************$,************************* ,P* PP*=P0499 RVL 04/21/80 STR #06113 3.3.2 DSR911 PP* PP* IF CHARACTERS ARE ENTERED INTO AN ECHO SUPPRESSED FIELD PP* AND THE ERASE INPUT KEY IS DEPRESSED AND MORE CHARACTERS PP* ARE INPUT PRIOR TO DEPRESSING THE RETURN KEY, THE SYSTEM PP* WILL CRASH WITH A >22 CRASH. PP* PP* NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH P6*#SYN SLGY,SYSLGY 6 P* PP.EVAL TM$INT="@ROOT+>26D4" PP.IF "@DSR911" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0320, PP V=>06A0,D=>0460,C=>460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0322, PP V=@DSR911+>064A,D=@TM$INT+>01DC,C=@TM$INT+>01DC PPEC PHMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, H P V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, PP V=>06A0,D=@DSR911+>064A,C=@DSR911+>064A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, PP V=@SYSLGY,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, PP V=@TM$INT+>01E8,D=@DSR911+>0324,C=@DSR911+>0324 PEC J JP.ENDIF PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048C, PP V=>06A0,D=>0460,C=>460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048E, PP V=@DSR911PF+>08CA,D=@TM$INT+>01DC,C=@TM$INT+>01DC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, P V=(>0011,>C881,>0012(GE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>006A, (& <0579>  V=(>DEAD,>DEAD,>DEAD), &, <0580>  D=(>EB04,>0004,>045B),C=>EF5B, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>006A* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >EB04,>0004,>045B CHECKSUM  >EF5B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 470A DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 470A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = EF5B L 470A EB04 0004 045B DEAD DEAD DEAD DEAD DEAD .. .. .[ .. .. .. .. ..L <0581> EC> <0582> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0340,>& <0583>  V=>0720,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7900+>0E58+>0340  VERIFICATION DATA  >0720 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R 8A98 0720  . CURRENT IMAGE L 8A98 0720 8758 9800 8463 1205 9800 8462 119C . .X .. .c .. .. .b ..L  NEW IMAGE: CHECKSUM = 0460 L 8A98 0460 8758 9800 8463 1205 9800 8462 119C .` .X .. .c .. .. .b ..L <0584> EC> <0585> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0342,>> <0586>  V=@SVCIO+>0E58,D=@S$$PAT+>0044,C=@S$$PAT+>0044 > PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7900+>0E58+>0342 $ VERIFICATION DATA  >7900+>0E58$ DATA  18080+>0044 CHECKSUM  18080+>0044$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  8A9A 8758  .X  CURRENT IMAGE L 8A9A 8758 9800 8463 1205 9800 8462 119C 7020 .X .. .c .. .. .b .. p L  NEW IMAGE: CHECKSUM = 46E4 L 8A9A 46E4 9800 8463 1205 9800 8462 119C 7020 F. .. .c .. .. .b .. p L <0587> EC> <0588> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A6,>& <0589>  V=>CA4C,D=>06A0,C=>06A0& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7900+>0E58+>03A6  VERIFICATION DATA  >CA4C DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  8AFE CA4C  .L  CURRENT IMAGE 8 8AFE CA4C 0006 06A0 64CE 89A8 07D5 D9A0 4910 .L 8 .. .. d. .. .. .. I.  NEW IMAGE: CHECKSUM = 06A0 L 8AFE 06A0 0006 06A0 64CE 89A8 07D5 D9A0 4910 .. .. .. d. .. .. .. I.L <0590> EC> <0591> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>03A8,>6 <0592>  V=>0006,D=@S$$PAT+>0050,C=@S$$PAT+>00506 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23   ADDRESS >7900+>0E58+>03A8  VERIFICATION DATA  >0006 DATA  18080+>0050 CHECKSUM  18080+>0050$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  8B00 0006  ..  CURRENT IMAGE L 8B00 0006 06A0 64CE 89A8 07D5 D9A0 4910 0004 .. .. d. .. .. .. I. ..L  NEW IMAGE: CHECKSUM = 46F0 L 8B00 46F0 06A0 64CE 89A8 07D5 D9A0 4910 0004 F. .. d. .. .. .. I. ..L <0593> EC" <0594> MPI PF=IMAGE,MT=OV,MN=""@SFILMG,ADR=@FILMG+>05AE+>0072, "& <0595>  V=>CB6C,D=>1005,C=>1005& PROGRAM FILE IMAGER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >7000+>05AE+>0072  VERIFICATION DATA  >CB6C DATA  >1005 CHECKSUM  >1005$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7620 CB6C  .l  CURRENT IMAGE L 7620 CB6C 0002 0008 1002 0200 003B 0420 5FFA .l .. .. .. .. .; ._.L  NEW IMAGE: CHECKSUM = 1005 L 7620 1005 0002 0008 1002 0200 003B 0420 5FFA .. .. .. .. .. .; ._.L <0596> EC <0597> *$R( <0598> **********************************************************************R <0599> * * <0600> *=P0409 MSC01/30/80STR #0*56803.3.1 DSR820  <0601> * J$ <0602> * THE 820 DSR DOES NOT PROPERLY HANDLE INITIATE I/O REQUESTS.JJ$ <0603> * THIS CAUSES A 'LIST ALL' COMMAND IN XGEN TO PRINT ONLY ONE JL% <0604> * LINE ON THE 820 AND THEN GO TO STATE 9 WITH THE XGEN KEYBOARDLH <0605> * LOCKED OUT.THE FOLLOWING PATCH CORRECTS THE 820 LOGIC. H <0606> *  <0607> *#SYN S820,DSR820  <0608> * $ <0609> .IF "@DSR820" ,NE, NONE $ <0610> * : <0611> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0086,:& <0612>  V=>C840,D=>D840,C=>D840& <0613> EC <0614> *  <0615> .ENDIF <0616> *$R( <0617> **********************************************************************R <0618> * > <0619> *=P0410 MSC01/30/80STR #056813.3.1 DDIOSR > <0620> *  <F"0621> * PATCH TO CORRECT THE PRIORITY OF LOOKING AT DISK ERROR BITSFL% <0622> * TO AVOID SAYING 'NOT READY, >18' WHEN 'SEEK INCOMPLETE, >1D'.LJ$ <0623> * AND TO ENABLE RETRIES ON >1E ERRORS SINCE THESE MAY BE THE JJ$ <0624> * SAME AS >11 ERRORS (NONFLOPPY CONTROLLERS MAY SET THE SAME JB <0625> * BITS AS THE FD1000 THAT INDICATE DELETED SECTORS). B <0626> *  <0627> *#SYN SDDIO,DDIOSR <0628> * < <0629> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>039C, <& <0630>  V=>0002,D=>0001,C=>0001& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7900+>039C VERIFICATION DATA  >0002 DATA  >0001 CHECKSUM  >0001$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C9C 0002  ..  CURRENT IMAGE L 7C9C 0002 14F9 D2AA 7D85 C186 1394 C18B 06A0 .. .. .. }. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 0001 L 7C9C 0001 14F9 D2AA 7D85 C186 1394 C18B 06A0 .. .. .. }. .. .. .. ..L <0631> EC< <0632> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B0, <2 <0633> V=(>980A,@DDIOSR+>048C,>138D,>980A),22 <0634> D=(>1005,>1004,>1003,>1002),C=>0000 2 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7900+>03B06 VERIFICATION DATA  >980A,>7900+>048C,>138D,>980A6" DATA >1005,>1004,>1003,>1002" CHECKSUM  >0000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 7CB0 980A 7D8C 138D 980A  .. }. .. .., CURRENT IMAGE  7CHB0 980A 7D8C 138D 980A 7D8D 1B12 C264 FFB8 .. }. .. .. }. .. .d ..H  NEW IMAGE: CHECKSUM = 0000 L 7CB0 1005 1004 1003 1002 7D8D 1B12 C264 FFB8 .. .. .. .. }. .. .d ..L <0635> EC< <0636> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03B8, <& <0637>  V=(@DDIOSR+>048D,>1B12),&& <0638>  D=(>1001,>1000),C=>0001 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7900+>03B8* VERIFICATION DATA  >7900+>048D,>1B12* DATA  >1001,>1000 CHECKSUM  >0001$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7CB8 7D8D 1B12 }. .. CURRENT IMAGE L 7CB8 7D8D 1B12 C264 FFB8 1602 C260 055C 9829 }. .. .d .. .. .` .\ .)L  NEW IMAGE: CHECKSUM = 0001 4 7CB8 1001 1000 C264 FFB8 1602 C260 055C 98294 .. .. .d .. .. .` .\ .) <0639> EC< <0640> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C6, <& <0641>  V=>9829,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7900+>03C6 VERIFICATION DATA  >9829 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7CC6 9829  .)  CURRENT IMAGE L 7CC6 9829 FFFE 7D83 1481 BA60 48FE FFFE C2A4 .) .. }. .. .` H. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 7CC6 0460 FFFE 7D83 1481 BA60 48FE FFFE C2A4 .` .. }. .. .` H. .. ..L <0642> EC< <0643> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03C8, <6 <0644> V=>FFFE,D=@S$$PAT+>0108,C=@S$$PAT+>0108 6 PROGRAM FILE IMAGE MODULE TYPE  OV  * N&SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH N MODULE NAME OR ID  24  ADDRESS  >7900+>03C8 VERIFICATION DATA  >FFFE DATA  18080+>0108 CHECKSUM  18080+>0108$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7CC8 FFFE  ..  CURRENT IMAGE L 7CC8 FFFE 7D83 1481 BA60 48FE FFFE C2A4 001C .. }. .. .` H. .. .. ..L  NEW IMAGE: CHECKSUM = 47A8 L 7CC8 47A8 7D83 1481 BA60 48FE FFFE C2A4 001C G. }. .. .` H. .. .. ..L <0645> EC< <0646> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>03CA, <, <0647> V=@DDIOSR+>483,D=>1000,C=>1000, PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7900+>03CA$ VERIFICATION DATA  >7900+>483 $ DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7CCA 7D83  }.  CURRENT IMAGE L 7CCA 7D83 1481 BA60 48FE FFFE C2A4 001C 0A5A }. .. .` H. .. .. .. .ZL  NEW IMAGE: CHECKSUM = 1000 L 7CCA 1000 1481 BA60 48FE FFFE C2A4 001C 0A5A .. .. .` H. .. .. .. .ZL <0648> EC< <0649> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0108, <& <0650>  V=>DEAD,D=>980A,C=>980A & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0108 VERIFICATION DATA  >DEAD DATA  >980A CHECKSUM  >980A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47A8 DEAD  ..  CURRENT IMAGE L 47A8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L NEW IMAGE: CHECKSUM = 980AL 47A8 980A DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <0651> EC< <0652> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>010A, <6 <0653> V=>DEAD,D=@DDIOSR+>048D,C=@DDIOSR+>048D 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>010A VERIFICATION DATA  >DEAD DATA  >7900+>048D CHECKSUM  >7900+>048D$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47AA DEAD  ..  CURRENT IMAGE R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 47AA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7D8D L 47AA 7D8D DEAD DEAD DEAD DEAD DEAD DEAD DEAD }. .. .. .. .. .. .. ..L <0654> EC< <0655> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>010C, <6 <0656> V=(>DEAD,>DEAD),D=(>1202,>0460),C=>1662 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>010C$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >1202,>0460 CHECKSUM  >1662$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47AC DEAD DEAD .. .. CURRENT IMAGE L 47AC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1662 L 47AC 1202 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <0657> EC< <0658> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0110, <6 <0659> V=>DEAD,D=@DDIOSR+>03E0,C=@DDIOSR+>03E0 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0110 VERIFICATION DATA  >DEAD DATA  >7900+>03E0 CHECKSUM  >7900+>03E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47B0 DEAD  ..  CURRENT IMAGE L 47B0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7CE0 L 47B0 7CE0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD |. .. .. .. .. .. .. ..L <0660> EC< <0661> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0112, <6 <0662> V=(>DEAD,>DEAD),D=(>9829,>FFFE),C=>67D7 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0112$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >9829,>FFFE CHECKSUM  >67D7$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA   47B2  DEAD DEAD .. .. CURRENT IMAGE L 47B2 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 67D7 L 47B2 9829 FFFE DEAD DEAD DEAD DEAD DEAD DEAD .) .. .. .. .. .. .. ..L <0663> EC< <0664> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0116, <2 <0665> V=>DEAD,D=@ROOT+>027B,C=@ROOT+>027B 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  18080+>0116 VERIFICATION DATA  >DEAD DATA  >46A0+>027B CHECKSUM  >46A0+>027B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47B6 DEAD  ..  CURRENT IMAGE L 47B6 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L@  NEW IMAGE: CHECKSUM = 491B L 47B6 491B DEAD DEAD DEAD DEAD DEAD DEAD DEAD I. .. .. .. .. .. .. ..L <0666> EC< <0667> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0118, <& <0668>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0118 VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47B8 DEAD  ..  CURRENT IMAGE L 47B8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 47B8 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <0669> EC< <0670> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>011A, <" <0671>  V=>DEAD,D=@DDIOSR+>0" 3CC,C=@DDIOSR+>03CC  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>011A VERIFICATION DATA  >DEAD DATA  >7900+>03CC CHECKSUM  >7900+>03CC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47BA DEAD  ..  CURRENT IMAGE L 47BA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7CCC L 47BA 7CCC DEAD DEAD DEAD DEAD DEAD DEAD DEAD |. .. .. .. .. .. .. ..L <0672> EC <0673> *$R( <0674> **********************************************************************R <0675> * > <0676> *=P0411 MSC01/30/80STR #056823.3.1 DDIOSR > <0677> * D! <0678> * THIS PATCH PREVENTS THE DESELECTION OF A UNIT BETWEEND <0679> * COMMAND2S ISSUED TO A DISK. THIS WILL INHIBIT CHANGING 2D! <0680> * THE WRITE PROTECT STATE OF A UNIT WHEN ONLY ONE DRIVEDB <0681> * IS CONNECTED ON A CONTROLLER. THIS IS TO ELIMINATEBB <0682> * RESPONSE TIME LOSS IN THE CURRENT IMPLEMENTATION OFB <0683> * THIS FEATURE. <0684> *  <0685> *#SYN SDDIO,DDIOSR <0686> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <0687> MPI PF=IMAGE,MT=OV,MN=@SDDIO,ADR=@DDIOSR+>0304, <& <0688>  V=>04EC,D=>1001,C=>1001& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  24  ADDRESS  >7900+>0304 VERIFICATION DATA  >04EC DATA  >1001 CHECKSUM  >1001$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C04 04EC  ..   CURRENT IMAGE L 7C04 04EC 000C 5964 0026 0001 C20C 05C8 C244 .. .. Yd .& .. .. .. .DL  NEW IMAGE: CHECKSUM = 1001 L 7C04 1001 000C 5964 0026 0001 C20C 05C8 C244 .. .. Yd .& .. .. .. .DL <0689> EC <0690> *$R( <0691> **********************************************************************R <0692> * > <0693> *=P0412 CRM01/30/80STR #056833.3.1 TM$INT > <0694> * F" <0695> * TILINE CONTROLLER BOARDS (FOR DISKS) HANG IN A FAULTED FD! <0696> * STATE AFTER POWER IS RE-APPLIED FROM A POWER FAILURE.DH# <0697> * IT TAKES TWO 'RSET' INSTRUCTIONS TO CLEAR THIS CONDITION HD <0698> * AT THIS TIME.THIS PATCH MODIFIES THE CURRENT POWER DB <0699> * UP CODE TO EXECUTE TWO RSET INSTRUCTIONS IN THE OS B <0700> * PATCH AREA. <0701> *  <0702> *#SYN SROOT,ROOT( <0703> *.EVAL S$$PAT="@ROOT+>0000" ( <0704> * @ <0705> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0002, @& <0706>  V=>02E0,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>26D4+>0002  VERIFICATION DATA  >02E0 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6D76 02E0  ..  CURRENT IMAGE L 6D76 02E0 6E28 C020 6E50 1606 C80D 6E4E C80F .. n( .nP .. .. nN ..L  NEW IMAGE: CHECKSUM = 0460 L 6D76 0460 6E28 C020 6E50 1606 C80D 6E4E C80F .` n( .nP .. .. nN ..L <0707> EC@ <0708> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0004, @B <0709>  V=@ROOT+>26D4+>00B4,D=@S$$PAT+>0076,C=@S$$PAT+>0076B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>26D4+>0004 * VERIFICATION DATA  >46A0+>26D4+>00B4* DATA  18080+>0076 CHECKSUM  18080+>0076$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R 6D78 6E28  n(  CURRENT IMAGE L 6D78 6E28 C020 6E50 1606 C80D 6E4E C80F 6E52 n( . nP .. .. nN .. nRL  NEW IMAGE: CHECKSUM = 4716 L 6D78 4716 C020 6E50 1606 C80D 6E4E C80F 6E52 G. . nP .. .. nN .. nRL <0710> EC< <0711> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0076, <& <0712>  V=(>DEAD,>DEAD,>DEAD), &, <0713>  D=(>0360,>0360,>02E0),C=>02E0, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0076* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0360,>0360,>02E0 CHECKSUM  >02E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4716 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 4716 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 02E0 L 4716 0360 0360 02E0 DEAD DEAD DEAD DEAD DEAD .` .` .. .. .. .. .. ..L <0714> EC< <0715> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007C, <@ <0716>  V=>DEAD,D=@ROOT+>026D4+>00B4,C=@ROOT+>26D4+>00B4 @ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>007C VERIFICATION DATA  >DEAD DATA >46A0+>026D4+>00B4   CHECKSUM >46A0+>26D4+>00B4  OUTPUT ACCESS NAME ** NULL **  VERIFICATION DATA  471C DEAD  ..  CURRENT IMAGE L 471C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6E28 L 471C 6E28 DEAD DEAD DEAD DEAD DEAD DEAD DEAD n( .. .. .. .. .. .. ..L <0717> EC< <0718> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>007E, <& <0719>  V=>DEAD,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>007E VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  471E DEAD  ..  CURRENT IMAGE L 471E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460  471E 046@0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..@ <0720> EC< <0721> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0080, <> <0722>  V=>DEAD,D=@ROOT+>26D4+>0006,C=@ROOT+>26D4+>0006>R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0080 VERIFICATION DATA  >DEAD DATA >46A0+>26D4+>0006  CHECKSUM >46A0+>26D4+>0006 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4720 DEAD  ..  CURRENT IMAGE L 4720 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6D7A L 4720 6D7A DEAD DEAD DEAD DEAD DEAD DEAD DEAD mz .. .. .. .. .. .. ..L <0723> EC  <0724> *$R( <0725> **********************************************************************R <0726> * > <0727> *=P0413 MSC01/30/80STR #056843.3.1 SYSLOG > <0728> * B <0729> * PATCH TO KEEP THE SYSTEM LOG FROM CAUSING A SYSTEM B< <0730> * CRASH WHEN A CRU FLOPPY DRIVE DOES NOT EXIST.< <0731> * " <0732> *#SYN SIO,SVCIO,SYSLOG" <0733> *#SYN SROOT,ROOT( <0734> *.EVAL S$$PAT="@ROOT+>0000" ( <0735> * < <0736> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0082, <, <0737>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0738>  D=(>1803,>0841,>1701,>0A23),C=>0D602 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00820 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >1803,>0841,>1701,>0A23" CHECKSUM  >0D60$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4722 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4722 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0D60 L 4722 1803 0841 1701 0A23 DEAD DEAD DEAD DEAD .. .A .. .# .. .. .. ..L <0739> EC< <0740> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008A, <& <0741>  V=>DEAD,D=>045B,C=>045B& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>008A VERIFICATION DATA  >DEAD DATA  >045B CHECKSUM  >045B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  472A DEAD  ..  CURRENT IMAGE L 472A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..LN@  NEW IMAGE: CHECKSUM = 045B R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 472A 045B DEAD DEAD DEAD DEAD DEAD DEAD DEAD .[ .. .. .. .. .. .. ..L <0742> EC: <0743> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0090, :& <0744>  V=(>0241,>000F,>D0E1), &, <0745>  D=(>0203,>0004,>08B1),C=>0AB6, PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23  ADDRESS  >982E+>0090* VERIFICATION DATA  >0241,>000F,>D0E1* DATA >0203,>0004,>08B1 CHECKSUM  >0AB6$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 98BE 0241 000F D0E1  .A .. .. & CURRENT IMAGE L 98BE 0241 000F D0E1 9A89 0983 C043 0221 0026 .A .. .. .. .. .C .! .&L  NEW IMAGE: CHECKSUM = 0AB6  98BE 0203 0004 088B1 9A89 0983 C043 0221 0026 .. .. .. .. .. .C .! .&8 <0746> EC: <0747> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0096, :. <0748>  V=@SYSLOG+>025B,D=>06A0,C=>06A0. PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23  ADDRESS  >982E+>0096$ VERIFICATION DATA  >982E+>025B$ DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  98C4 9A89  ..  CURRENT IMAGE L 98C4 9A89 0983 C043 0221 0026 06A0 5B6A 9A76 .. .. .C .! .& .. [j .vL  NEW IMAGE: CHECKSUM = 06A0 L 98C4 06A0 0983 C043 0221 0026 06A0 5B6A 9A76 .. .. .C .! .& .. [j .vL <0749> EC: <0750> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SYSLOG+>0098, :6 <0751>  V=>0983,D=@S$$PAT+>0082,C=@S$$PAT+>00826 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23  ADDRESS  >982E+>0098 VERIFICATION DATA  >0983 DATA  18080+>0082 CHECKSUM  18080+>0082$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  98C6 0983  ..  CURRENT IMAGE L 98C6 0983 C043 0221 0026 06A0 5B6A 9A76 C8A0 .. .C .! .& .. [j .v ..L  NEW IMAGE: CHECKSUM = 4722 L 98C6 4722 C043 0221 0026 06A0 5B6A 9A76 C8A0 G" .C .! .& .. [j .v ..L <0752> EC <0753> *$R( <0754> **********************************************************************R <0755> * F <0756> *=P0416 MSC01/30/80STR #05686 3.3.1 DSR911,DSR911PFF <0757> * F" <0758> * ABORT I/O SVC'S TO 911'S ARE LOGGED TO THE SYSTEM LOG. F6 * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 *6* SCI990 ** SCI990 **BATCH L <0759> * THIS IS THE STADARD WAY COMM WORKS. IT SHOULDN'T BE LOGGED. LF" <0760> * THIS PATCH ALSO PREVENTS ANY DEVICE TIMEOUTS FROM BEINGFF" <0761> * LOGGED, BUT SHOULD NOT PRESENT ANY PROBLEMS SINCE THEREFB <0762> * SHOULD BE NO 911 WITH TIMEOUT DEFINED OTHER THAN 0.B <0763> *  <0764> *#SYN S911,DSR911 " <0765> *#SYN S911PF,DSR911PF " <0766> * " <0767> .IF @DSR911 ,NE, NONE " <0768> * : <0769> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>020C,:& <0770>  V=>0606,D=>0006,C=>0006& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>020C VERIFICATION DATA  >0606 DATA  >0006 CHECKSUM  >0006$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA @ 7B0C 0606  ..  CURRENT IMAGE L 7B0C 0606 1002 0209 0006 0206 7AB2 5920 491B .. .. .. .. .. z. YI.L  NEW IMAGE: CHECKSUM = 0006 L 7B0C 0006 1002 0209 0006 0206 7AB2 5920 491B .. .. .. .. .. z. YI.L <0771> EC <0772> *  <0773> .ENDIF <0774> * $ <0775> .IF @DSR911PF ,NE, NONE $ <0776> * > <0777> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>031A,>& <0778>  V=>606,D=>0006,C=>0006 & <0779> EC <0780> *  <0781> .ENDIF <0782> *$R( <0783> **********************************************************************R <0784> * > <0785> *=P0417 MSC01/30/80STR #056873.3.1 DSR913 > <0786> * D! <0787> * DISPLAYING CHARACTERS ON A 913 VDT THAT IS CONNECTED D$ <0788> * TO A 990/12 FAILS DUR$(ING SCROLLING THE SCREEN. CHARACTERS (D! <0789> * DRIFT FROM THE PREVIOUS LINES. THIS PATCH INTRODUCESD< <0790> * A TIMING LOOP TO PROHIBIT THE ABOVE PROBLEM. < <0791> *  <0792> *#SYN S913,DSR913  <0793> *#SYN SROOT,ROOT( <0794> *.EVAL S$$PAT="@ROOT+>0000" ( <0795> * " <0796> .IF @DSR913 ,NE, NONE " <0797> * < <0798> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AA, <6 <0799>  V=(>DEAD,>DEAD),D=(>1D0A,>06A0),C=>1BAA6 <0800> EC< <0801> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00AE, <6 <0802>  V=>DEAD,D=@DSR913+>07DC,C=@DSR913+>07DC6 <0803> EC< <0804> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B0, <R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R. <0805>  V=(>DEAD,>DEAD),D=(>0607,>0460). ,C=>0267  <0806> EC< <0807> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B4, <& <0808>  V=>DEAD,D=@DSR913+>0730& <0809> EC: <0810> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072C,:& <0811>  V=>1D0A,D=>0460,C=>0460& <0812> EC: <0813> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>072E,:6 <0814>  V=>0607,D=@S$$PAT+>00AA,C=@S$$PAT+>00AA6 <0815> EC <0816> *  <0817> .ENDIF <0818> *$R( <0819> **********************************************************************R <0820> * > <0821> *=P0418 RVL01/30/80STR #056893.3.1 WAITIO > <0822> * H# <0823> * WHEN A TASK ISSUES A 'WAIT FOR ANY I/O' SVC AFTER HAVING HH# <0824> * PREVIOUSLY ISSUED A 'DO NOT SUSPEND', THE I/O COMPLETION H, <0825> * MAY NOT BE HANDLED PROPERLY. , THIS PATCH CORRECTS THE( <0826> * 'WAIT FOR ANY I/O LOGIC'.( <0827> *  <0828> *#SYN IOC,IOCOM  <0829> *#SYN SROOT,ROOT( <0830> *.EVAL S$$PAT="@ROOT+>0000" ( <0831> * < <0832> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00B6, <, <0833>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0834>  D=(>D128,>0060,>1308,>04E0),C=>C6A02 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00B60 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >D128,>0060,>1308,>04E0" CHECKSUM  >C6A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4756 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4756 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L NEW IMAGE: CHECKSUM = C6A0L 4756 D128 0060 1308 04E0 DEAD DEAD DEAD DEAD .( .` .. .. .. .. .. ..L <0835> EC< <0836> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00BE, <, <0837>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,2 <0838>  D=(>014A,>04E0,>0104,>0720),C=>038E2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00BE0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >014A,>04E0,>0104,>0720" CHECKSUM  >038E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 475E DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 475E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 038E  475E 014A 04E0: 0104 0720 DEAD DEAD DEAD DEAD .J .. .. . .. .. .. ..: <0839> EC< <0840> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00C6, <6 <0841>  V=(>DEAD,>DEAD),D=(>0106,>0460),C=>05666 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00C6$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >0106,>0460 CHECKSUM  >0566$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4766 DEAD DEAD .. .. CURRENT IMAGE L 4766 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0566 L 4766 0106 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <0842> EC< <0843> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CA, <2 <0844>  V=>DEAD,D=@ROOT+>1DB4,C=@ROOT+>1DB42E06@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00CA VERIFICATION DATA  >DEAD DATA  >46A0+>1DB4 CHECKSUM  >46A0+>1DB4$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  476A DEAD  ..  CURRENT IMAGE L 476A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6454 L 476A 6454 DEAD DEAD DEAD DEAD DEAD DEAD DEAD dT .. .. .. .. .. .. ..L <0845> EC< <0846> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CC, <& <0847>  V=>DEAD,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00CC VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460 OUTPUT ACCESS NAME **  NULL **  VERIFICATION DATA  476C DEAD  ..  CURRENT IMAGE L 476C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 476C 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <0848> EC< <0849> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00CE, <4 <0850>  V=>DEAD,D=@IOCOM+>08DC,C=@IOCOM+>08DC4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00CER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA  >DEAD DATA  >7000+>08DC CHECKSUM  >7000+>08DC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  476E DEAD  ..  CURRENT IMAGE   476E DEAD DEAD DEAD DEAD D . EAD DEAD DEAD DEAD .. .. .. .. .. .. .. ...  NEW IMAGE: CHECKSUM = 78DC L 476E 78DC DEAD DEAD DEAD DEAD DEAD DEAD DEAD x. .. .. .. .. .. .. ..L <0851> EC8 <0852> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>08D6,8& <0853>  V=>D128,D=>0460,C=>0460& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>08D6 VERIFICATION DATA  >D128 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  78D6 D128  .(  CURRENT IMAGE L 78D6 D128 0060 1690 D128 0061 138D DA20 4928 .( .` .. .( .a .. .I(L  NEW IMAGE: CHECKSUM = 0460 L 78D6 0460 0060 1690 D128 0061 138D DA20 4928 .` .` .. .( .a .. .I(L <0854> EC2 <0855> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+2>08D8,6 <0856>  V=>0060,D=@S$$PAT+>00B6,C=@S$$PAT+>00B66 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>08D8 VERIFICATION DATA  >0060 DATA  18080+>00B6 CHECKSUM  18080+>00B6$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  78D8 0060  .`  CURRENT IMAGE L 78D8 0060 1690 D128 0061 138D DA20 4928 0009 .` .. .( .a .. . I( ..L  NEW IMAGE: CHECKSUM = 4756 L 78D8 4756 1690 D128 0061 138D DA20 4928 0009 GV .. .( .a .. . I( ..L <0857> EC <0858> *$R( <0859> **********************************************************************R <0860> * > <0861> *=P0419 RVL01/30/80STR #056903.3.1 MM$SCN > <0862> * 0 <0863> * MANY REAL TIME TASKS RUNNING CONC0 URRENTLY THAT FILLF" <0864> * AVAILABLE MEMORY APPEARS TO CAUSE A SCHEDULAR LOCKOUT. FB <0865> * THIS WOLULD CAUSE THE SYSTEM TO 'HANG'.THIS PATCHB$ <0866> * CORRECTS THE PROBLEM.$ <0867> *  <0868> *#SYN SROOT,ROOT( <0869> *.EVAL S$$PAT="@ROOT+>0000" ( <0870> * @ <0871> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>00A4, @6 <0872>  V=(>1501,>04C1),D=(>1104,>1000),C=>01046R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>1708+>00A4 $ VERIFICATION DATA  >1501,>04C1$ DATA  >1104,>1000 CHECKSUM  >0104$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5E4C 1501 04C1 .. .. CURRENT IMAGE @L 5E4C 1501 04C1 0971 C021 4D42 1303 C022 0050 .. .. .q .! MB .. ." .PL  NEW IMAGE: CHECKSUM = 0104 L 5E4C 1104 1000 0971 C021 4D42 1303 C022 0050 .. .. .q .! MB .. ." .PL <0873> EC <0874> *$R( <0875> **********************************************************************R <0876> * < <0877> *=P0422 MSC01/29/80STR #056913.3.1 RDSEQ< <0878> * B <0879> * PATCH TO FIX FILE MANAGEMENT ROUTINE "RDSEQ".THE BB <0880> * STACK IS IMPROPERLY MANAGED IF AN ERROR IS RETURNEDB$ <0881> * TO RDSEQ FROM BM$REL.$ <0882> * " <0883> *#SYN SFILMG,FILMG,KIF" <0884> *#SYN SROOT,ROOT( <0885> *.EVAL S$$PAT="@ROOT+>0000" ( <0886> * B <0887> MPI PF=IMAGE,MT=OV,MN=@SFILMG,ADR=@FILMG+>08E2+>00BE,B( <0888>  V=@FILMG+>08E2+>00E0,D=@S($$PAT+>0070,C=@S$$PAT+>0070  PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  19   ADDRESS >7000+>08E2+>00BE * VERIFICATION DATA  >7000+>08E2+>00E0* DATA  18080+>0070 CHECKSUM  18080+>0070$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  79A0 79C2  y.  CURRENT IMAGE L 79A0 79C2 064A 0746 1603 C2DA 0A2B 189E 0583 y. .J .F .. .. .+ .. ..L  NEW IMAGE: CHECKSUM = 4710 L 79A0 4710 064A 0746 1603 C2DA 0A2B 189E 0583 G. .J .F .. .. .+ .. ..L <0889> EC< <0890> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0070,<6 <0891>  V=(>DEAD,>DEAD),D=(>064A,>0460),C=>022A6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0070$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >064A,>0460 CHECKSUM  >022A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4710 DEAD DEAD .. .. CURRENT IMAGE L 4710 DEAD DEAD DEAD 0360 0360 02E0 6E28 0460 .. .. .. .` .` .. n( .`L  NEW IMAGE: CHECKSUM = 022A R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 4710 064A 0460 DEAD 0360 0360 02E0 6E28 0460 .J .` .. .` .` .. n( .`L <0892> EC< <0893> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0074,<@ <0894>  V=>DEAD,D=@FILMG+>08E2+>00E0,C=@FILMG+>08E2+>00E0@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0074 VERIFICATION DATA  >DEAD DATA >7000+>08E2+>00E0  CHECKSUM >7000+>08E2+>00E0 $ OUTPUT ACCESS NAME ** NULL ** $AD(@ VERIFICATION DATA  4714 DEAD  ..  CURRENT IMAGE L 4714 DEAD 0360 0360 02E0 6E28 0460 6D7A 1803 .. .` .` .. n( .` mz ..L  NEW IMAGE: CHECKSUM = 79C2 L 4714 79C2 0360 0360 02E0 6E28 0460 6D7A 1803 y. .` .` .. n( .` mz ..L <0895> EC <0896> *$< <0897> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, <& <0898>  V=>2E30,D=>2E31,C=>2E31& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0240 VERIFICATION DATA  >2E30 DATA  >2E31 CHECKSUM  >2E31$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48E0 2E30  .0  CURRENT IMAGE L 48E0 2E30 202A 2A00 0000 0001 0002 0003 0004 .0 * *. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 2E31  48E0 2E31 202A 2A06 0 0000 0001 0002 0003 0004 .1 * *. .. .. .. .. ..6@ <0899> !EC  ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH. @R( <0900> **********************************************************************R <0901> * @ <0902> *=P0425 CRM02/08/80STR #057263.3.1 DSR911PF @ <0903> * D! <0904> * WHEN USING 16K RAM MEMORIES, THE POWER FAIL/RECOVERY DF" <0905> * SNAGS ON SOME UNINITIALIZED MEMORY DURING THE RECOVERY F@ <0906> * PHASE. THIS PATCH CAUSES THE 911PF BUFFERS TO BE@@ <0907> * INITIALIZED DURING IPL TO PROHIBIT THIS PROBLEM. @ <0908> * " <0909> *#SYN S911PF,DSR911PF " <0910> *#SYN SROOT,ROOT( <0911> *.EVAL S$$PAT="@ROOT+>0000" ( <0912> * & <0913> .IF "@DSR911PF", NE, NONE& <0914> * 2 <0915> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR2911PF+>02B6,& <0916>  V=>04E0,D=>06A0,C=>06A0 & <0917> EC> <0918> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>02B8,>@ <0919> V=@DSR911PF+>0BA2,D=@S$$PAT+>00D0,C=@S$$PAT+>00D0 @ <0920> EC< <0921> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D0, <& <0922>  V=>DEAD,D=>0206,C=>0206 &R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <0923> EC< <0924> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D2, <: <0925> V=>DEAD,D=@DSR911PF+>0BA6,C=@DSR911PF+>0BA6 : <0926> EC< <0927> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00D4, <* <0928> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <0929> D=(>0207,>0780,>0209,>2020),C=>27AE 2 <0930> EC< <0931> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00DC, < <0932> V=(>DEAD,>DEAD ,>DEAD), , <0933> D=(>CD89,>0647,>16FD),C=>DD33 , <0934> EC< <0935> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E2, <& <0936>  V=>DEAD,D=>04E0,C=>04E0 & <0937> EC< <0938> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E4, <: <0939> V=>DEAD,D=@DSR911PF+>0BA0,C=@DSR911PF+>0BA0 : <0940> EC< <0941> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E6, <& <0942>  V=>DEAD,D=>04E0,C=>04E0 & <0943> EC< <0944> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00E8, <: <0945> V=>DEAD,D=@DSR911PF+>0BA2,C=@DSR911PF+>0BA2 : <0946> EC< <0947> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EA, <& <0948>  V=>DEAD,D=>045B,C=>045B & <0949> EC <0950> *  <0951> .ENDIF <0952> * < <0953> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>00<3C, & <0954>  V=>23E0,D=>06A0,C=>06A0 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>26D4+>003C  VERIFICATION DATA  >23E0 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6DB0 23E0  #.  CURRENT IMAGE L 6DB0 23E0 4912 1307 C3ED 001E C3AD 001C C36D #. I. .. .. .. .. .. .mL  NEW IMAGE: CHECKSUM = 06A0 L 6DB0 06A0 4912 1307 C3ED 001E C3AD 001C C36D .. I. .. .. .. .. .. .mL <0955> EC@ <0956> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>003E, @< <0957> V=@ROOT+>0272,D=@S$$PAT+>00EE,C=@S$$PAT+>00EE < PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>26D4+>003E  VERIFICATION DATA  >46 A0+>0272  DATA  18080+>00EE CHECKSUM  18080+>00EE$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6DB2 4912  I.  CURRENT IMAGE R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 6DB2 4912 1307 C3ED 001E C3AD 001C C36D 001A I. .. .. .. .. .. .m ..L  NEW IMAGE: CHECKSUM = 478E L 6DB2 478E 1307 C3ED 001E C3AD 001C C36D 001A G. .. .. .. .. .. .m ..L <0958> EC@ <0959> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>0040, @& <0960>  V=>1307,D=>1000,C=>1000 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>26D4+>0040  VERIFICATION DATA  >1307 DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 46@ 6DB4 1307  ..  CURRENT IMAGE L 6DB4 1307 C3ED 001E C3AD 001C C36D 001A 10F6 .. .. .. .. .. .m .. ..L  NEW IMAGE: CHECKSUM = 1000 L 6DB4 1000 C3ED 001E C3AD 001C C36D 001A 10F6 .. .. .. .. .. .m .. ..L <0961> EC< <0962> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00EE, <0 <0963> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),00 <0964> D=(>0200,>0080,>23C0,>1602,>0460),0 <0965> C=>3322  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00EE6 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD,>DEAD6( DATA  >0200,>0080,>23C0,>1602,>0460( CHECKSUM  >3322$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 6 478E DEAD DEAD DEAD DEAD DEAD  .. .. .. .. .. 6 CURRENT IMAGE  478E DEAD >DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..>  NEW IMAGE: CHECKSUM = 3322 L 478E 0200 0080 23C0 1602 0460 DEAD DEAD DEAD .. .. #. .. .` .. .. ..L <0966> EC< <0967> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00F8, < <0968> V=>DEAD," <0969>  D=@ROOT+>26D4+>0050,"" <0970>  C=@ROOT+>26D4+>0050 " PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00F8 VERIFICATION DATA  >DEAD DATA >46A0+>26D4+>0050  CHECKSUM >46A0+>26D4+>0050 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4798 DEAD  ..  CURRENT IMAGE L 4798 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 6DC4 . 4798 6DC4 DEAD DEAD DEAD DEAD DEAD DEAD . DEAD m. .. .. .. .. .. .. ..  <0971> EC< <0972> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00FA, <R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R0 <0973> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),00 <0974> D=(>0200,>000F,>23C0,>1602,>0460),0 <0975> C=>33AD  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00FA6 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD,>DEAD6( DATA  >0200,>000F,>23C0,>1602,>0460( CHECKSUM  >33AD$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 6 479A DEAD DEAD DEAD DEAD DEAD  .. .. .. .. .. 6 CURRENT IMAGE L 479A DEAD DEAD DEAD DEAD DEAD DEAD DEAD 980A .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 33AD  479A 0200 000F 283C0 1602 0460 DEAD DEAD 980A .. .. #. .. .` .. .. ..8 <0976> EC< <0977> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0104, < <0978> V=>DEAD," <0979>  D=@ROOT+>26D4+>0050,"" <0980>  C=@ROOT+>26D4+>0050 " PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0104 VERIFICATION DATA  >DEAD DATA >46A0+>26D4+>0050  CHECKSUM >46A0+>26D4+>0050 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47A4 DEAD  ..  CURRENT IMAGE L 47A4 DEAD DEAD 980A 7D8D 1202 0460 7CE0 9829 .. .. .. }. .. .` |. .)L  NEW IMAGE: CHECKSUM = 6DC4 L 47A4 6DC4 DEAD 980A 7D8D 1202 0460 7CE0 9829 m. .. .. }. .. .` |. .)L <0981> EC< <0982> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0106, < <"0983>  V=>DEAD,D=>045B,C=>045B " PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0106 VERIFICATION DATA  >DEAD DATA  >045B CHECKSUM  >045B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47A6 DEAD  ..  CURRENT IMAGE L 47A6 DEAD 980A 7D8D 1202 0460 7CE0 9829 FFFE .. .. }. .. .` |. .) ..L  NEW IMAGE: CHECKSUM = 045B L 47A6 045B 980A 7D8D 1202 0460 7CE0 9829 FFFE .[ .. }. .. .` |. .) ..L <0984> EC <0985> *$H# <0986> ************************************************************H <0987> * > <0988> *=P0434 MSC02/14/80STR #057753.3.1 FPYDSR > <0989> * D! <0990> * PATCH TO NOT ISSUE COMMAND UNTIL CONTROLLER READY ANDD  * SCI990 ** SCI990 ** SCI990 4 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH 4: <0991> * MAKE ALL READS DO NON-SEQUENTIAL SECTORING.: <0992> *  <0993> *#SYN SFPY,FPYDSR  <0994> * $ <0995> .IF "@FPYDSR", NE, NONE$ <0996> * < <0997> MPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0352, <& <0998>  V=>1004,D=>10F3,C=>10F3& <0999> EC< <1000> MPI PF=IMAGE,MT=OV,MN=@SFPY,ADR=@FPYDSR+>0250, <& <1001>  V=>4000,D=>4100,C=>4100& <1002> EC <1003> *  <1004> .ENDIF <1005> *$H# <1006> ************************************************************H <1007> * 0 <1008> *  BEGIN PATCHES FOR RELEASE 3.3.20 <1009> * J$ <1010> ************************************************************* J <1011> * . <1012> *=P0448 RVL02/27/80STR #05841.3.3.2 LPDSR <1013> * B <1014> * THE LINE PRINTER WILL NOT RETURN A TIMEOUT ERROR ONB6 <1015> * OPEN. THIS PATCH CORRECTS THE PROBLEM. 6 <1016> * " <1017> .IF "@LPDSR", NE, NONE"8 <1018> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0116,8& <1019>  V=>1037,D=>0380,C=>0380 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>0116 VERIFICATION DATA  >1037 DATA  >0380 CHECKSUM  >0380$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7A16 1037  .7  CURRENT IMAGE L 7A16 1037 1F0E 16FB D278 1008 0289 6100 1A05 .7 .. .. .x .. .. a. ..L  NEW IMAGE: CHECKSUM = 0380 L 7A16 0380 1F0E 16FB D278 1008 0289 6100 1A05 .. .. .. .x .. .. a. ..L <1020> EC <1021> .ENDIF <1022> *$J$ <1023> ************************************************************* J <1024> * > <1025> *=P0449 RVL02/27/80STR #058423.3.2 DSR979 > <1026> * F" <1027> * IF A TASK DOING I/O TO A TAPE TRANSPORT IS KILLED WHILEFF" <1028> * THE TRANSPORT IS BUSY REWINDING, A CRASH >22 MAY OCCUR.F <1029> *  <1030> *#SYN S979,DSR979 $ <1031> .IF "@DSR979" ,NE, NONE $: <1032> MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0024,:& <1033>  V=>0248,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  27 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  >7900+>0024 VERIFICATION DATA  >0248 DATA  >0460 CHECKSUM  >0460 OUTPUT ACCESS NAME * * NULL **  VERIFICATION DATA  7924 0248  .H  CURRENT IMAGE L 7924 0248 F000 06A0 71A2 1371 8080 5335 3367 .H .. .. q. .q .. S5 3gL  NEW IMAGE: CHECKSUM = 0460 L 7924 0460 F000 06A0 71A2 1371 8080 5335 3367 .` .. .. q. .q .. S5 3gL <1034> EC: <1035> MPI PF=IMAGE,MT=OV,MN=@S979,ADR=@DSR979+>0026,:6 <1036> V=>F000,D=@S$$PAT+>012C,C=@S$$PAT+>012C 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  27  ADDRESS  >7900+>0026 VERIFICATION DATA  >F000 DATA  18080+>012C CHECKSUM  18080+>012C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7926 F000  ..  CURRENT IMAGE L 7926 F000 06A0 71A2 1371 8080 5335 3367 5C5A .. .. q. .q .. S5 3g \ZL  NEW IMAGE: CHECKSUM = 47CC "@L 7926 47CC 06A0 71A2 1371 8080 5335 3367 5C5A G. .. q. .q .. S5 3g \ZL <1037> EC< <1038> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>012C, <* <1039> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1040> D=(>0248,>F000,>C2C2,>0A2B),C=>3AA1 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>012C0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >0248,>F000,>C2C2,>0A2B" CHECKSUM  >3AA1$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 47CC DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 47CC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 3AA1 L 47CC 0248 F000 C2C2 0A2B DEAD DEAD DEAD DEAD .H .. .. .+ .. .. .. ..L <1041> EC <1042> MPI PF,=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0134, ,$ <1043>  V=(>DEAD,>DEAD,>DEAD),$, <1044> D=(>1801,>0380,>0460),C=>1FE1 , PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0134* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >1801,>0380,>0460 CHECKSUM  >1FE1$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 47D4 DEAD DEAD DEAD  .. .. .. &R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CURRENT IMAGE L 47D4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1FE1 L 47D4 1801 0380 0460 DEAD DEAD DEAD DEAD DEAD .. .. .` .. .. .. .. ..L <1045> EC< <1046> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013A, <  <1047> *V=>DEAD,D=@DSR979+>0028,C=@DSR979+>0028 * PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>013A VERIFICATION DATA  >DEAD DATA  >7900+>0028 CHECKSUM  >7900+>0028$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47DA DEAD  ..  CURRENT IMAGE L 47DA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7928 L 47DA 7928 DEAD DEAD DEAD DEAD DEAD DEAD DEAD y( .. .. .. .. .. .. ..L <1048> EC <1049> .ENDIF <1050> *$J$ <1051> ************************************************************* J <1052> * > <1053> *=P0454 RVL03/09/80STR #059073.3.2 IOCOMX > <1054> * < <1055> * THE POWER UP ROUTINE 'SCNPDT' FAILS TO PROPER< LY HANDLE , <1056> * SOME NON-DISK TILINE DEVICES., <1057> * 8 <1058> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023C,8& <1059>  V=>22E0,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>023C VERIFICATION DATA  >22E0 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  723C 22E0  ".  CURRENT IMAGE L 723C 22E0 71E4 1622 C808 7248 02E0 0000 C1A4 ". q. ." .. rH .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 723C 0460 71E4 1622 C808 7248 02E0 0000 C1A4 .` q. ." .. rH .. .. ..L <1060> EC8 <1061> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>023E,8< <1062> V=@IOCOM+>01E4,D=@S$$PAT+>013C,C=@S$$PAT+>013C< PROGRAM FILE IMAGEER@ MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>023E$ VERIFICATION DATA  >7000+>01E4$ DATA  18080+>013C CHECKSUM  18080+>013C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  723E 71E4  q. R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CURRENT IMAGE L 723E 71E4 1622 C808 7248 02E0 0000 C1A4 0030 q. ." .. rH .. .. .. .0L  NEW IMAGE: CHECKSUM = 47DC L 723E 47DC 1622 C808 7248 02E0 0000 C1A4 0030 G. ." .. rH .. .. .. .0L <1063> EC< <1064> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>013C, <* <1065> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1066> D=(>024B,>40FF,>028B,>4006),C=>0039 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS   18080+>013C0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >024B,>40FF,>028B,>4006" CHECKSUM  >0039$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 47DC DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 47DC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0039 L 47DC 024B 40FF 028B 4006 DEAD DEAD DEAD DEAD .K @. .. @. .. .. .. ..L <1067> EC< <1068> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0144, <6 <1069> V=(>DEAD,>DEAD),D=(>1602,>0460),C=>1262 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0144$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >1602,>0460 CHECKSUM  >1262$ OUTPUT ACCESS NAME ** NULL ** $  VERIFI CATION DATA  47E4 DEAD DEAD .. .. CURRENT IMAGE L 47E4 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1262 L 47E4 1602 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <1070> EC< <1071> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0148, <4 <1072> V=>DEAD,D=@IOCOM+>0242,C=@IOCOM+>0242 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0148 VERIFICATION DATA  >DEAD DATA  >7000+>0242 CHECKSUM  >7000+>0242$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47E8 DEAD  ..  CURRENT IMAGE L 47E8 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7242  47E8 7242 DE<AD DEAD DEAD DEAD DEAD DEAD DEAD rB .. .. .. .. .. .. ..< <1073> EC< <1074> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014A, <& <1075>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>014A VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47EA DEAD  ..  CURRENT IMAGE L 47EA DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 47EA 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <1076> EC< <1077> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014C, V=>DEAD,D=@IOCOM+>0286,C=@IOCOM+>0286 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>014C VERIFICATION DATA  >DEAD DATA  >7000+>0286 CHECKSUM  >7000+>0286$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47EC DEAD  ..  CURRENT IMAGE L 47EC DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7286 L 47EC 7286 DEAD DEAD DEAD DEAD DEAD DEAD DEAD r. .. .. .. .. .. .. ..L <1079> EC <1080> *$R( <1081> **********************************************************************R <1082> * > <1083> *=P0453 MU 03/10/80STR #059063.3.2 DSR911 > <1084> * @ <1085> * KATAKANA CHARACTERS ARE NOT ACCEPTED/DISPLAYED PR@OPERLYF" <1086> * WHEN READ AND WRITE DIRECT OP CODES ARE USED ON A 911. F <1087> * " <1088> *#SYN S911PF,DSR911PF " <1089> *#SYN S911,DSR911  <1090> *#SYN SROOT,ROOT( <1091> *.EVAL S$$PAT="@ROOT+>0000" ( <1092> * $ <1093> .IF "@DSR911" ,NE, NONE $ <1094> * : <1095> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8,:( <1096>  V=>0200, D=>06A0, C=>06A0( PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>01C8 VERIFICATION DATA  >0200 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AC8 0200  ..  CURRENT IMAGE L 7AC8 0200 8000 D23A 5200 3208 1D08 1E0A 0609 .. .. .: R. 2. .. .. ..L$ * SCI990 ** SCI990 ** SCI990 ** $0SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH 0  NEW IMAGE: CHECKSUM = 06A0 L 7AC8 06A0 8000 D23A 5200 3208 1D08 1E0A 0609 .. .. .: R. 2. .. .. ..L <1097> EC: <1098> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01CA,:8 <1099>  V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>01CA VERIFICATION DATA  >8000 DATA  18080+>014E CHECKSUM  18080+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7ACA 8000  ..  CURRENT IMAGE L 7ACA 8000 D23A 5200 3208 1D08 1E0A 0609 16F9 .. .: R. 2. .. .. .. ..L  NEW IMAGE: CHECKSUM = 47EE L 7ACA 47EE D23A 5200 3208 1D08 1E0A 0609 16F9 G. .: R. 2. .. .. .. ..L <1100> EC <1101> MPI ,PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE,,( <1102>  V=>0200, D=>06A0, C=>06A0( PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>02BE VERIFICATION DATA  >0200 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7BBE 0200  ..  CURRENT IMAGE L 7BBE 0200 8080 361A 5E80 1E0A 0609 16FB 10CD .. .. 6. ^. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 7BBE 06A0 8080 361A 5E80 1E0A 0609 16FB 10CD .. .. 6. ^. .. .. .. ..L <1103> EC: <1104> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02C0,:8 <1105>  V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>02C0 VERIFICATION DATA  >8080 DATA  18080+>014E CHECKSUM  18080+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7BC0 8080  ..  CURRENT IMAGE L 7BC0 8080 361A 5E80 1E0A 0609 16FB 10CD 1D0F .. 6. ^. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 47EE L 7BC0 47EE 361A 5E80 1E0A 0609 16FB 10CD 1D0F G. 6. ^. .. .. .. .. ..L <1106> EC: <1107> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0084,:B <1108>  V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>AB PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>0084R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ VERIFICATION DATA  >7900+>02C0$ DATA  18080+>14E+>A CHECKSUM  18080+>14E+>A  OUTPUT  ACCESS NAME ** NULL **  VERIFICATION DATA  7984 7BC0  {.  CURRENT IMAGE L 7984 7BC0 003A F924 003A 002C C2E4 002C 1E0B {. .: .$ .: ., .. ., ..L  NEW IMAGE: CHECKSUM = 47F8 L 7984 47F8 003A F924 003A 002C C2E4 002C 1E0B G. .: .$ .: ., .. ., ..L <1109> EC: <1110> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>050A,:B <1111>  V=@DSR911+>02C0,D=@S$$PAT+>14E+>A,C=@S$$PAT+>14E+>AB PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>050A$ VERIFICATION DATA  >7900+>02C0$ DATA  18080+>14E+>A CHECKSUM  18080+>14E+>A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7E0A 7BC0  {.  CURRENT IMAGE L 7E0A 7BC0 C2E4 002C 093B 1703 06A0 8060 7E5A {. .. ., .; .. .. .` ~ZL  NEW IMAGE: CHECKSUM = 47F8 L 7E0A 47F8 C2E4 002C 093B 1703 06A0 8060 7E5A G. .. ., .; .. .. .` ~ZL <1112> EC< <1113> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <, <1114>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,4 <1115>  D=(>C002,>0A80,>04C0,>1802), C=>D640 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>014E0 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >C002,>0A80,>04C0,>1802" CHECKSUM  >D640$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 47EE DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 47EE DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D640 L 47EE C002 0A80 04C0 1802 DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <1116> EC< <1117> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <1118>  V=(>DEAD,>DEAD,>DEAD), &. <1119>  D=(>0200,>8080,>045B), C=>86DB . PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0156* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0200,>8080,>045B CHECKSUM  >86DB$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 47F6 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 47F6 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 86DB L 47F6 0200 8080 045B DEAD DEAD DEAD DEAD DEAD .. .. .[ .. .. .. .. ..L <1120> EC <1121> .ENDIF <1122> * @& <1123> .IF "@DSR911PF" ,NE, NONE & <1124> * > <1125> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256,>( <1126>  V=>0200, D=>06A0, C=>06A0( <1127> EC> <1128> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0258,>8 <1129>  V=>8000, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 <1130> EC> <1131> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A,>( <1132>  V=>0200, D=>06A0, C=>06A0( <1133> EC> <1134> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041C,>8 <1135>  V=>8080, D=@S$$PAT+>014E, C=@S$$PAT+>014E8 <1136> EC> <1137> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>00BA,>F <1138>  V=@DSR911PF+>41C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A F <1139> EC> <1140> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>070A,> <1141>  V=@DSR911PF+>41*C, D=@S$$PAT+>14E+>A, C=@S$$PAT+>14E+>A * <1142> EC< <1143> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <, <1144>  V=(>DEAD,>DEAD,>DEAD,>DEAD), ,4 <1145>  D=(>C002,>0A80,>04C0,>1802), C=>D640 4 <1146> EC< <1147> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <1148>  V=(>DEAD,>DEAD,>DEAD), &. <1149>  D=(>0200,>8080,>045B), C=>86DB . <1150> EC <1151> .ENDIF <1152> *$J$ <1153> ************************************************************* J <1154> * < <1155> *=P0457 MU 03/11/80STR #057773.3.2 LPDSR< <1156> * D! <1157> * A SERIAL INTERFACED PRINTER IN 'CODE8' MODE DOES NOT D2 <1158> * MAINTAIN EITHER ODD OR EVEN PARITY.2 <1159> * " <1160> .IF "@LPDSR" ,NE, NONE"" <1161> MPI PF=IMAGE,MT=OV,MN=" @SLP,ADR=@LPDSR+>016C,& <1162>  V=>0624,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>016C VERIFICATION DATA  >0624 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7A6C 0624  .$  CURRENT IMAGE L 7A6C 0624 0002 31C9 1C02 1E07 1001 1D07 C908 .$ .. 1. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 7A6C 0460 0002 31C9 1C02 1E07 1001 1D07 C908 .` .. 1. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1163> EC8 <1164> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>016E,86 <1165> V=>0002,D=@S$$PAT+>008C,C=@S$$PAT+>008C 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>016E VERIFICATION DATA  >0002 DATA  18080+>008C CHECKSUM  18080+>008C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7A6E 0002  ..  CURRENT IMAGE L 7A6E 0002 31C9 1C02 1E07 1001 1D07 C908 0004 .. 1. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 472C L 7A6E 472C 31C9 1C02 1E07 1001 1D07 C908 0004 G, 1. .. .. .. .. .. ..L <1166> EC< <1167> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>008C, <0 <1168> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),08 <1169> D=(>0624,>0002,>0249,>7FFF,>0460),C=>7FF0 8 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>008C6 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD,>DEAD6$ DATA >0624,>0002,>0249,>7FFF,>$0460 CHECKSUM  >7FF0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA 6 472C DEAD DEAD DEAD DEAD DEAD  .. .. .. .. .. 6 CURRENT IMAGE L 472C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7FF0 L 472C 0624 0002 0249 7FFF 0460 DEAD DEAD DEAD .$ .. .I .. .` .. .. ..L <1170> EC< <1171> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0096, <4 <1172> V=>DEAD,D=@LPDSR+>0170,C=@LPDSR+>0170 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0096 VERIFICATION DATA  >DEAD DATA  >7900+>0170 CHECKSUM  >7900+>0170$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4736 DEAD  ..  CURRENT IMAGE  4736 DEAD DEAD DEAD 4 DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..4  NEW IMAGE: CHECKSUM = 7A70 L 4736 7A70 DEAD DEAD DEAD DEAD DEAD DEAD DEAD zp .. .. .. .. .. .. ..L <1173> EC <1174> .ENDIF <1175> *$R( <1176> **********************************************************************R <1177> * < <1178> *=P0456 JLH02/26/80STR #059273.3.2 DXIOS< <1179> * L% <1180> * WHEN USING THE 3780/2780 EMULATORS, THE STATISTICS REPORT OF LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL% <1181> * PROTOCOL COUNTERS ARE AVAILABLE ONLY WHEN THE COMMUNICATIONS LL% <1182> * LINE IS CONNECTED. THIS IMPLIES THAT THE STATISTICS ARE NOT LJ$ <1183> * AVAILABLE WHEN THE LINK HAS BEEN DISCONNECTED BY THE REMOTEJ& <1184> * OR ABNORMALLY BY PHONE &(PROBLEMS. THIS PATCH ALLOWS THE 3780 (B <1185> * OR 2780 TASK TO ACCESS THE STATISTICS AT ALL TIMES.B <1186> *   <1187> *#SYN SCOMM,COMMCOM " <1188> .IF "@COMMCOM",NE,NONE"> <1189> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>0084,>> <1190> V=@SVCIO+>0E58+>0294,D=@ROOT+>015C,C=@ROOT+>015C> <1191> EC: <1192> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C, :0 <1193> V=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),08 <1194> D=(>C027,>000A,>0A60,>1706,>9803),C=>4548 8 <1195> EC@ <1196> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000A, @2 <1197> V=>DEAD,D=@ROOT+>027A,C=@ROOT+>027A 2 <1198> EC@ <1199> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>000C, @8 <1200> V=(>DEAD,>DEAD),D=(>1305,>9803),C=(>8B06) 8 <1201> EC <1202> MPI PF=IMAGE*,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0010, *2 <1203> V=>DEAD,D=@ROOT+>0264,C=@ROOT+>0264 2 <1204> EC@ <1205> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0012, @8 <1206> V=(>DEAD,>DEAD),D=(>1302,>0460),C=(>1762) 8 <1207> EC@ <1208> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0016, @@ <1209> V=>DEAD,D=@SVCIO+>0E58+>0294,C=@SVCIO+>0E58+>0294 @ <1210> EC@ <1211> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0018, @& <1212>  V=>DEAD,D=>0460,C=>0460 & <1213> EC> <1214> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+001A,>@ <1215> V=>DEAD,D=@SVCIO+>0E58+>0094,C=@SVCIO+>0E58+>0094 @ <1216> EC> <1217> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05A4,>0 <1218> V=(>F9E0,@ROOT+>0270,>0008,>C127),0* <1219> D=(>C127,>000A,>1106,>F9E0),* C=>29CB  <1220> EC> <1221> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05AC,>2 <1222> V=>000A,D=@ROOT+>0270,C=@ROOT+>0270 2 <1223> EC> <1224> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+05AE, >& <1225>  V=>1103,D=>0008,C=>0008 & <1226> EC> <1227> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CA,>& <1228>  V=>C127,D=>0460,C=>0460 & <1229> EC> <1230> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>0E58+>05CC,>> <1231> V=>000A,D=@ROOT+>015C+>001C,C=@ROOT+>015C+>001C > <1232> EC@ <1233> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001C, @& <1234>  V=>DEAD,D=>F9E0,C=>F9E0 & <1235> EC@ <1236> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>001E, @2 <1237> V=>DEAD,D=@ROOT+>0270,C=@ROOT+>0270 2 <1238> EC <1239> MPI PF0=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0020, 0* <1240> V=(>DEAD,>DEAD,>DEAD,>DEAD),*R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R* <1241> D=(>0008,>C127,>000A,>0460),* <1242> C=(>C545)  <1243> EC@ <1244> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>015C+>0028, @@ <1245> V=>DEAD,D=@SVCIO+>0E58+>05CE,C=@SVCIO+>0E58+>05CE @ <1246> EC <1247> .ENDIF$ <1248> .SYN SCOMM="",COMMCOM=""$ <1249> *$J$ <1250> ************************************************************* J <1251> * > <1252> *=P0460 RVL03/14/80STR #059383.3.2 TM$INT > <1253> * B <1254> * TM$INT INCORRECTLY CALLS THE GET SYSTEM TABLE AREA B0 <1255> * ROUTINE WHILE IN INTERRUPT CODE. 0 <1256> *  <1257> MPI PF=IMAGE,MT=&TA,MN=@SROOT,ADR=@ROOT+>26D4+>011C, && <1258>  V=>1602,D=>1002,C=>1002 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>26D4+>011C  VERIFICATION DATA  >1602 DATA  >1002 CHECKSUM  >1002$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6E90 1602  ..  CURRENT IMAGE L 6E90 1602 0420 6EF6 23C5 1675 C0A0 00FE 1372 .. . n. #. .u .. .. .rL  NEW IMAGE: CHECKSUM = 1002 L 6E90 1002 0420 6EF6 23C5 1675 C0A0 00FE 1372 .. . n. #. .u .. .. .rL <1259> EC <1260> *$J$ <1261> ************************************************************* J <1262> * > <1263> *=P0469 RVL03/15/80STR #059413.3.2 DSR911 > <1264> * 2 <1265> * A READ ASCII SVC ISSUED TO A 911 WI2 LL DESTROY SYSTEM D! <1266> * TABLE LINKAGE IF THE RECORD LENGTH IS ZERO. THIS WILLD@ <1267> * RESULT IN >22,>30 AND SEVERAL OTHER CRASH CODES. @ <1268> * $ <1269> .IF "@DSR911", NE, NONE $: <1270> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02F8,:& <1271>  V=>C261,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>02F8 VERIFICATION DATA  >C261 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7BF8 C261  .a  CURRENT IMAGE L 7BF8 C261 0006 133D A289 C264 0034 824A 1201 .a .. .= .. .d .4 .J ..L  NEW IMAGE: CHECKSUM = 0460 L 7BF8 0460 0006 133D A289 C264 0034 824A 1201 .` .. .= .. .d .4 .J ..L <1272> EC  * SCI9 J$90 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH J: <1273> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02FA,:6 <1274> V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>02FA VERIFICATION DATA  >0006 DATA  18080+>0098 CHECKSUM  18080+>0098$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7BFA 0006  ..  CURRENT IMAGE L 7BFA 0006 133D A289 C264 0034 824A 1201 C289 .. .= .. .d .4 .J .. ..L  NEW IMAGE: CHECKSUM = 4738 L 7BFA 4738 133D A289 C264 0034 824A 1201 C289 G8 .= .. .d .4 .J .. ..L <1275> EC< <1276> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, <* <1277> V=(>DEAD,>DEAD,>DEAD,>DEAD),* <1278> D=$(>C261,>0006,>1602,>C90A),C=>1D6F $ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00980 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >C261,>0006,>1602,>C90A" CHECKSUM  >1D6F$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4738 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE L 4738 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1D6F L 4738 C261 0006 1602 C90A DEAD DEAD DEAD DEAD .a .. .. .. .. .. .. ..L <1279> EC< <1280> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, <B <1281> V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00A0* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >0030,>C249,>0460 CHECKSUM  >C619$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4740 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 4740 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = C619 L 4740 0030 C249 0460 DEAD DEAD DEAD DEAD DEAD .0 .I .` .. .. .. .. ..L <1282> EC< <1283> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, <6 <1284> V=>DEAD,D=@DSR911+>02FC,C=@DSR911+>02FC 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>00A6 VERIFICATION DATA  >DEAD DATA  >7900+>02FCR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CHECKSUM  >7900+>02FC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4746 DEAD  ..  CURRENT IMAGE L 4746 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7BFC L 4746 7BFC DEAD DEAD DEAD DEAD DEAD DEAD DEAD {. .. .. .. .. .. .. ..L <1285> EC <1286> .ENDIF& <1287> .IF "@DSR911PF", NE, NONE &> <1288> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0464,>& <1289>  V=>C261,D=>0460,C=>0460 & <1290> EC> <1291> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0466,>6 <1292> V=>0006,D=@S$$PAT+>0098,C=@S$$PAT+>0098 6 <1293> EC< <1294> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0098, <* <1295> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1296> D=(>C261,>0006,>1602,>C90A),C=>1D6F 2 <1297> EC : <1298> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A0, :B <1299> V=(>DEAD,>DEAD,>DEAD),D=(>0030,>C249,>0460),C=>C619 B <1300> EC< <1301> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>00A6, <: <1302> V=>DEAD,D=@DSR911PF+>0468,C=@DSR911PF+>0468 : <1303> EC <1304> .ENDIF <1305> *$J$ <1306> ************************************************************* J <1307> * < <1308> *=P0470 RVL03/18/80STR #059673.3.2 LPDSR< <1309> * F" <1310> * ACCESSING SERIAL PRINTERS DIRECTLY WILL SOMETIMES CAUSEF> <1311> * THE SYSTEM TO 'HANG' OR CRASH WITH A CODE >22. > <1312> * " <1313> .IF "@LPDSR" ,NE, NONE"8 <1314> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>000C,86 <1315> V=(>0205,>0002),D=(>1000,>1000),C=>0000 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>000C$ VERIFICATION DATA  >0205,>0002$ DATA  >1000,>1000 CHECKSUM  >0000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  790C 0205 0002 .. .. CURRENT IMAGE L 790C 0205 0002 020A 792E 06A0 71A2 132D 1815 .. .. .. y. .. q. .- ..L  NEW IMAGE: CHECKSUM = 0000 L 790C 1000 1000 020A 792E 06A0 71A2 132D 1815 .. .. .. y. .. q. .- ..L <1316> EC8 <1317> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>001A,8& <1318>  V=>1815,D=>1515,C=>1515 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>001AR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R VERIFICATION DATA  >1815  DATA  >1515 CHECKSUM  >1515$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  791A 1815  ..  CURRENT IMAGE L 791A 1815 1E1B 1E26 3E3E 2D2D 2D21 211E 1E3E .. .. .& >> -- -! !. .>L  NEW IMAGE: CHECKSUM = 1515 L 791A 1515 1E1B 1E26 3E3E 2D2D 2D21 211E 1E3E .. .. .& >> -- -! !. .>L <1319> EC8 <1320> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0046,8& <1321>  V=>102B,D=>1000,C=>1000 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>0046 VERIFICATION DATA  >102B DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7946 102B  .+  CURRENT IMAGE L 7946 102B 0207 7B66 1028 0207 7B62 1025 0207 .+ .. {f .( .. {b .% ..L NEW IMAGE: CHECKSUM = 1000L 7946 1000 0207 7B66 1028 0207 7B62 1025 0207 .. .. {f .( .. {b .% ..L <1322> EC8 <1323> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0048,8& <1324>  V=>0207,D=>0205,C=>0205 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>0048 VERIFICATION DATA  >0207 DATA  >0205 CHECKSUM  >0205$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7948 0207  ..  CURRENT IMAGE L 7948 0207 7B66 1028 0207 7B62 1025 0207 7B64 .. {f .( .. {b .% .. {dL  NEW IMAGE: CHECKSUM = 0205 L 7948 0205 7B66 1028 0207 7B62 1025 0207 7B64 .. {f .( .. {b .% .. {dL <1325> EC8 <1326> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>004A,8* <1327> V=@LPDSR+>0266,D=>0002,C=>00*02 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>004A$ VERIFICATION DATA  >7900+>0266$ DATA  >0002 CHECKSUM  >0002$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  794A 7B66  {f  CURRENT IMAGE L 794A 7B66 1028 0207 7B62 1025 0207 7B64 1022 {f .( .. {b .% .. {d ."L  NEW IMAGE: CHECKSUM = 0002 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 794A 0002 1028 0207 7B62 1025 0207 7B64 1022 .. .( .. {b .% .. {d ."L <1328> EC8 <1329> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0052,8& <1330>  V=>1025,D=>10FA,C=>10FA & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>0052 VERIFICATION DATA  >1025 DATA  >10FA CHECKSUM  >10FA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7952 1025  .%  CURRENT IMAGE L 7952 1025 0207 7B64 1022 C1E1 0004 C161 0008 .% .. {d ." .. .. .a ..L  NEW IMAGE: CHECKSUM = 10FA L 7952 10FA 0207 7B64 1022 C1E1 0004 C161 0008 .. .. {d ." .. .. .a ..L <1331> EC8 <1332> MPI PF=IMAGE,MT=OV,MN=@SLP,ADR=@LPDSR+>0058,8& <1333>  V=>1022,D=>10F7,C=>10F7 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  25  ADDRESS  >7900+>0058 VERIFICATION DATA  >1022 DATA  >10F7 CHECKSUM  >10F7$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7958 1022  ."  CURRENT IMAGE : 7958 1022 C1E1 0004 C161 0008 161D 04E1 0008 ." ..: .. .a .. .. .. ..  NEW IMAGE: CHECKSUM = 10F7 L 7958 10F7 C1E1 0004 C161 0008 161D 04E1 0008 .. .. .. .a .. .. .. ..L <1334> EC <1335> .ENDIF <1336> *$J$ <1337> ************************************************************* J <1338> * > <1339> *=P0476 GRJ03/25/80STR #056963.3.2 CASHAN > <1340> * B <1341> * IF THE RECORD SWITCH OF A CASSETTE IS IN THE OFF ORBD! <1342> * LOCAL POSITION AND AN ATTEMPT IS MADE TO WRITE TO IT,DJ$ <1343> * AN ERROR >7 IS CORRECTLY RETURNED. HOWEVER ON A SUBSEQUENT J> <1344> * ATTEMPT, THE SYSTEM WILL CRASH WITH A CODE >20 > <1345> *  <1346> *#SYN S733,DSR733  <1347> * $ <1348> .IF "@DSR733", NE, NONE $( <1349> .EVAL CASHAN="@DSR733+>0566"(( <1350> MPI PF=IMAGE,MT=OV,MN=@S733,( ADR=@CASHAN+>0092,& <1351>  V=>2260,D=>0A89,C=>0A89 & <1352> EC: <1353> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0094,:. <1354> V=@CASHAN+>0158,D=>1000,C=>1000 . <1355> EC: <1356> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0096,:& <1357>  V=>1602,D=>1702,C=>1702 & <1358> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R: <1359> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C0,:& <1360>  V=>2260,D=>0A89,C=>0A89 & <1361> EC: <1362> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C2,:. <1363> V=@CASHAN+>0158,D=>1000,C=>1000 . <1364> EC: <1365> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>00C4,:& <1366>  V=>1302,D=>1802,C=>1802 & <1367> EC: <1368> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0134,:3,>> <1369> V=@CASHAN+>014C,D=@CASHAN+>0150,C=@CASHAN+>0150 > <1370> EC: <1371> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>014E,:& <1372>  V=>4000,D=>0000,C=>0000 & <1373> EC: <1374> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0150,:. <1375> V=@CASHAN+>0156,D=>0000,C=>0000 . <1376> EC: <1377> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0152,:. <1378> V=@CASHAN+>01F0,D=>4000,C=>4000 . <1379> EC: <1380> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0154,:6 <1381> V=>0001,D=@CASHAN+>015A,C=@CASHAN+>015A 6 <1382> EC: <1383> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0156,:6 <1384> V=>1300,D=@CASHAN+>01F0,C=@CASHAN+>01F0 6 <1385> EC: <1386> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0158,:6 <1387> V=(>0100,>1000),D=(>0001,>1300),C=>1301 6@ <1388> EC: <1389> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>016C,:> <1390> V=@CASHAN+>0152,D=@CASHAN+>0156,C=@CASHAN+>0156 > <1391> EC: <1392> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0254,:& <1393>  V=>2260,D=>0A89,C=>0A89 & <1394> EC: <1395> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0256,:. <1396> V=@CASHAN+>0158,D=>1000,C=>1000 . <1397> EC: <1398> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0258,:& <1399>  V=>1302,D=>1802,C=>1802 & <1400> EC: <1401> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0164,:& <1402>  V=>2260,D=>0A49,C=>0A49 & <1403> EC: <1404> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0166,:. <1405> V=@CASHAN+>015A,D=>1000,C=>1000 . <1406> EC: <1407> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@CASHAN+>0168,: <"1408>  V=>16EE,D=>17EE,C=>17EE " <1409> EC <1410> .SYN CASHAN="" <1411> .ENDIF <1412> *$J$ <1413> ************************************************************* J <1414> * > <1415> *=P0490 GCH04/11/80STR #062063.3.2 IOCOMX > <1416> * H# <1417> * THE CHARACTER QUE IN THE PDT WILL BE DESTROYED IF A TASK HF" <1418> * OPENS A TERMINAL FOR EVENT CHARACTERS AND SUBSEQUENTLY FR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RJ$ <1419> * USES A SHORT FORM PRB. THIS MIGHT BE OBSERVED AS A SINGLE JF" <1420> * EVENT CHARACTER CAUSING TWO I/O CALLS TO BE TERMINATED.F <1421> * L% <1422> * NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH.L <1423> *  <1424> *#SYN IOC,IOCOM  <1425> *#SYN SROOT,ROOT <1426> *#SYN S911,DSR911 " <1427> *#SYN S911PF,DSR911PF " <1428> * & <1429> .EVAL TM$INT="@ROOT+>26D4"& <1430> * < <1431> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0182, <: <1432> V=(@TM$INT+>0186,@TM$INT+>01A6,>0000,>0000),:2 <1433> D=(>04C6,>C264,>0002,>1612),C=>D0B2 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>0182< VERIFICATION DATA  28020+>0186,28020+>01A6,>0000,>0000<" DATA >04C6,>C264,>0002,>1612" CHECKSUM  >D0B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6EF6 6EFA 6F1A 0000 0000  n. o. .. .., CURRENT IMAGE L 6EF6 6EFA 6F1A 0000 0000 0000 0000 0000 0000 n. o. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D0B2  6EF6 04C6 C2<64 0002 1612 0000 0000 0000 0000 .. .d .. .. .. .. .. ..< <1434> EC< <1435> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>018A, <* <1436> V=(>0000,>0000,>0000,>0000),*2 <1437> D=(>100F,>C264,>0002,>0609),C=>D460 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>018A0 VERIFICATION DATA  >0000,>0000,>0000,>00000" DATA >100F,>C264,>0002,>0609" CHECKSUM  >D460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6EFE 0000 0000 0000 0000  .. .. .. .., CURRENT IMAGE L 6EFE 0000 0000 0000 0000 0000 0000 0000 0000 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = D460 L 6EFE 100F C264 0002 0609 0000 0000 0000 0000 .. .d .. .. .. .. .. ..L <1438> EC" <1439> MPI PF=IMAGE,MT=TA,MN=" @SROOT,ADR=@TM$INT+>0192, * <1440> V=(>0000,>0000,>0000,>0000),*2 <1441> D=(>1608,>C186,>1306,>0624),C=>C2AC 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01920 VERIFICATION DATA  >0000,>0000,>0000,>00000" DATA >1608,>C186,>1306,>0624" CHECKSUM  >C2AC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R, 6F06 0000 0000 0000 0000  .. .. .. .., CURRENT IMAGE L 6F06 0000 0000 0000 0000 6F64 0000 0000 0000 .. .. .. .. od .. .. ..L  NEW IMAGE: CHECKSUM = C2AC L 6F06 1608 C186 1306 0624 6F64 0000 0000 0000 .. .. .. .$ od .. .. ..L <1442> EC< <1443> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>019A, <>@2 <1444> V=(@TM$INT+>01F0,>0000,>0000,>0000),22 <1445> D=(>0006,>C024,>0006,>D406),C=>1422 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>019A6 VERIFICATION DATA  28020+>01F0,>0000,>0000,>00006" DATA >0006,>C024,>0006,>D406" CHECKSUM  >1422$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6F0E 6F64 0000 0000 0000  od .. .. .., CURRENT IMAGE L 6F0E 6F64 0000 0000 0000 0000 0000 0201 0014 od .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 1422 L 6F0E 0006 C024 0006 D406 0000 0000 0201 0014 .. .$ .. .. .. .. .. ..L <1446> EC< <1447> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01A2, <* <1448> V=(>0000,>0000,>0201,>0014),*2 <1449> D=(>1003,>0624,>0002,>1602),C=>0027 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01A20 VERIFICATION DATA  >0000,>0000,>0201,>00140" DATA >1003,>0624,>0002,>1602" CHECKSUM  >0027$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6F16 0000 0000 0201 0014  .. .. .. .., CURRENT IMAGE L 6F16 0000 0000 0201 0014 06A0 5B6A 6F5C C8A0 .. .. .. .. .. [j o\ ..L  NEW IMAGE: CHECKSUM = 0027 L 6F16 1003 0624 0002 1602 06A0 5B6A 6F5C C8A0 .. .$ .. .. .. [j o\ ..L <1450> EC< <1451> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01AA, <2 <1452> V=(>06A0,@ROOT+>14CA,@TM$INT+>01E8),2, <1453> D=(>C19B,>0380,>0460),C=>C67B , PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01AA@6 VERIFICATION DATA  >06A0,>46A0+>14CA,28020+>01E86 DATA >C19B,>0380,>0460 CHECKSUM  >C67B$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 6F1E 06A0 5B6A 6F5C  .. [j o\ & CURRENT IMAGE L 6F1E 06A0 5B6A 6F5C C8A0 48EA 0006 C8A0 6F5E .. [j o\ .. H. .. .. o^L  NEW IMAGE: CHECKSUM = C67B L 6F1E C19B 0380 0460 C8A0 48EA 0006 C8A0 6F5E .. .. .` .. H. .. .. o^L <1454> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <1455> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B0, <4 <1456> V=>C8A0,D=@IOCOM+>02D0,C=@IOCOM+>02D0 4 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01B0 VERIFICATION DATA  >C8A0 DATA  >7000+>02D0 CHECKSUM  >7000+>02D0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F24 C8A0  ..  CURRENT IMAGE L 6F24 C8A0 48EA 0006 C8A0 6F5E 0008 C8A0 6F60 .. H. .. .. o^ .. .. o`L  NEW IMAGE: CHECKSUM = 72D0 L 6F24 72D0 48EA 0006 C8A0 6F5E 0008 C8A0 6F60 r. H. .. .. o^ .. .. o`L <1457> EC< <1458> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B2, <* <1459> V=(@ROOT+>024A,>0006,>C8A0),*, <1460> D=(>0624,>0006,>0460),C=>0242 , PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01B20 VERIFICATION DATA  >46A0+>024A,>0006,>C8A00 DATA >0624,>0006,>0460 CHECKSUM  >0242$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 6F26 48EA 0006 C8A0  H. .. .. & CURRENT IMAGE  6F26D 48EA 0006 C8A0 6F5E 0008 C8A0 6F60 000A H. .. .. o^ .. .. o` ..D  NEW IMAGE: CHECKSUM = 0242 L 6F26 0624 0006 0460 6F5E 0008 C8A0 6F60 000A .$ .. .` o^ .. .. o` ..L <1461> EC< <1462> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01B8, << <1463> V=@TM$INT+>01EA,D=@IOCOM+>032E,C=@IOCOM+>032E < PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01B8$ VERIFICATION DATA  28020+>01EA$ DATA  >7000+>032E CHECKSUM  >7000+>032E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F2C 6F5E  o^  CURRENT IMAGE L 6F2C 6F5E 0008 C8A0 6F60 000A D8A0 6F62 000E o^ .. .. o` .. .. ob ..L  NEW IMAGE: CHECKSUM = 732E L 6F2C 732E 0008 C8A0 6F60 000A D8A0 6F62 000E s. .. .. o` .. .. ob ..L   <1464> EC < <1465> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01BA, <2 <1466> V=(>0008,>C8A0,@TM$INT+>01EC,>000A),22 <1467> D=(>C186,>1306,>0624,>0006),C=>D4A2 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01BA6 VERIFICATION DATA  >0008,>C8A0,28020+>01EC,>000A6R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R" DATA >C186,>1306,>0624,>0006" CHECKSUM  >D4A2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6F2E 0008 C8A0 6F60 000A  .. .. o` .., CURRENT IMAGE L 6F2E 0008 C8A0 6F60 000A D8A0 6F62 000E 04C1 .. .. o` .. .. ob .. ..L  NEW IMAGE: CHECKSUM = D4A2 L 6F2E C186 1306 0624 0006 D8A0 6F62 000E 04C1 .. .. .$ .. .. ob .. ..L <1468> EC @< <1469> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01C2, <2 <1470> V=(>D8A0,@TM$INT+>01EE,>000E,>04C1),22 <1471> D=(>C024,>0006,>D406,>1002),C=>0426 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01C26 VERIFICATION DATA  >D8A0,28020+>01EE,>000E,>04C16" DATA >C024,>0006,>D406,>1002" CHECKSUM  >0426$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6F36 D8A0 6F62 000E 04C1  .. ob .. .., CURRENT IMAGE L 6F36 D8A0 6F62 000E 04C1 D881 000C D881 000D .. ob .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0426 L 6F36 C024 0006 D406 1002 D881 000C D881 000D .$ .. .. .. .. .. .. ..L <1472> EC< <1473> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01CA, <& <1474>  V=(>D881,>000C,>D881,>00&0D),2 <1475> D=(>0624,>0002,>046B,>0004),C=>0249 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01CA0 VERIFICATION DATA  >D881,>000C,>D881,>000D0" DATA >0624,>0002,>046B,>0004" CHECKSUM  >0249$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 6F3E D881 000C D881 000D  .. .. .. .., CURRENT IMAGE L 6F3E D881 000C D881 000D D881 000F D881 0010 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0249 L 6F3E 0624 0002 046B 0004 D881 000F D881 0010 .$ .. .k .. .. .. .. ..L <1476> EC8 <1477> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C2,8& <1478>  V=>C024,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>02C2@ VERIFICATION DATA  >C024 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  72C2 C024  .$  CURRENT IMAGE L 72C2 C024 0002 1602 C19B 0380 0624 0002 C024 .$ .. .. .. .. .$ .. .$LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 0460 L 72C2 0460 0002 1602 C19B 0380 0624 0002 C024 .` .. .. .. .. .$ .. .$L <1479> EC8 <1480> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C4,86 <1481> V=>0002,D=@TM$INT+>0182,C=@TM$INT+>0182 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>02C4 VERIFICATION DATA  >0002 DATA  28020+>0182 CHECKSUM  28020+>0182$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  72C4 0002  ..  CURRENT IMAGE L 72C4 0002 1602 C19B 0380 0624 0002 C024 0006 .. .. .. .. .$ .. .$ ..L  NEW IMAGE: CHECKSUM = 6EF6 L 72C4 6EF6 1602 C19B 0380 0624 0002 C024 0006 n. .. .. .. .$ .. .$ ..L <1482> EC8 <1483> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02C6,8* <1484> V=(>1602,>C19B,>0380,>0624),*2 <1485> D=(>1000,>1000,>1000,>0460),C=>1460 2 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>02C60 VERIFICATION DATA  >1602,>C19B,>0380,>06240" DATA >1000,>1000,>1000,>0460" CHECKSUM  >1460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 72C6 1602 C19B 0380 0624  .. .. .. .$, CURRENT IMAGE , 72C6 1602 C19B 0380 0624 0002 C024 000,"6 8900 .. .. .. .$ .. .$ .. .."  NEW IMAGE: CHECKSUM = 1460 L 72C6 1000 1000 1000 0460 0002 C024 0006 8900 .. .. .. .` .. .$ .. ..L <1486> EC8 <1487> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>02CE,86 <1488> V=>0002,D=@TM$INT+>018C,C=@TM$INT+>018C 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>02CE VERIFICATION DATA  >0002 DATA  28020+>018C CHECKSUM  28020+>018C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  72CE 0002  ..  CURRENT IMAGE L 72CE 0002 C024 0006 8900 0008 1A01 6010 04C9 .. .$ .. .. .. .. `. ..L  NEW IMAGE: CHECKSUM = 6F00 L 72CE 6F00 C024 0006 8900 0008 1A01 6010 04C9 o. .$ .. .. .. .. `. ..L <1489> EC" <1490> MPI PF=IMAGE,MT=OV,MN=" @IOC,ADR=@IOCOM+>0300,* <1491> V=(>13E0),D=(>13E5),C=>13E5 * PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R ADDRESS  >7000+>0300 VERIFICATION DATA  >13E0 DATA  >13E5 CHECKSUM  >13E5$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7300 13E0  ..  CURRENT IMAGE L 7300 13E0 C009 C264 FFFE C269 FFFC C269 0004 .. .. .d .. .i .. .i ..L  NEW IMAGE: CHECKSUM = 13E5 L 7300 13E5 C009 C264 FFFE C269 FFFC C269 0004 .. .. .d .. .i .. .i ..L <1492> EC8 <1493> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0312,8* <1494> V=(>17D7),D=(>17DC),C=>17DC * PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>0312 VERIFICATION DATA  >17D7 DATA  >17DC CHECKSUM  >17DC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7312 17D7  ..  CURRENT IMAGE L 7312 17D7 C240 C024 FFFE 05C0 E420 4906 C010 .. .@ .$ .. .. . I. ..L  NEW IMAGE: CHECKSUM = 17DC L 7312 17DC C240 C024 FFFE 05C0 E420 4906 C010 .. .@ .$ .. .. . I. ..L <1495> EC8 <1496> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0324,86 <1497> V=(>1804,>05A4),D=(>1802,>0460),C=>1C62 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>0324$ VERIFICATION DATA  >1804,>05A4$ DATA  >1802,>0460 CHECKSUM  >1C62$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7324 1804 05A4 .. .. CURRENT IMAGE L 7324 1804 05A4 0002 0624 0006 C2EB 0002 045B .. .. .. .$ .. .. .. .[L  NEW IMAGE: CHECKSUM = 1C62 L 7324 1802 0460 0002 0624 0006 C2EB 0002 045B .. .` .. .$ .. .. .. .[L <1498> EC8 <1499> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0328,86 <1500> V=>0002,D=@TM$INT+>01B2,C=@TM$INT+>01B2 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>0328 VERIFICATION DATA  >0002 DATA  28020+>01B2 CHECKSUM  28020+>01B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7328 0002  ..  CURRENT IMAGE L 7328 0002 0624 0006 C2EB 0002 045B 046B 0004 .. .$ .. .. .. .[ .k ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RT@  NEW IMAGE: CHECKSUM = 6F26 L 7328 6F26 0624 0006 C2EB 0002 045B 046B 0004 o& .$ .. .. .. .[ .k ..L <1501> EC8 <1502> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>032A,86 <1503> V=(>0624,>0006),D=(>0624,>0002),C=>0626 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>032A$ VERIFICATION DATA  >0624,>0006$ DATA  >0624,>0002 CHECKSUM  >0626$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  732A 0624 0006 .$ .. CURRENT IMAGE L 732A 0624 0006 C2EB 0002 045B 046B 0004 1700 .$ .. .. .. .[ .k .. ..L  NEW IMAGE: CHECKSUM = 0626 L 732A 0624 0002 C2EB 0002 045B 046B 0004 1700 .$ .. .. .. .[ .k .. ..L <1504> EC8 <1505> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0334,8 <"1506>  V=>046B,D=>0460,C=>0460 " PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>0334 VERIFICATION DATA  >046B DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7334 046B  .k  CURRENT IMAGE L 7334 046B 0004 1700 21A0 4902 1305 96CA 1658 .k .. .. !. I. .. .. .XL  NEW IMAGE: CHECKSUM = 0460 L 7334 0460 0004 1700 21A0 4902 1305 96CA 1658 .` .. .. !. I. .. .. .XL <1507> EC8 <1508> MPI PF=IMAGE,MT=OV,MN=@IOC,ADR=@IOCOM+>0336,86 <1509> V=>0004,D=@TM$INT+>01BA,C=@TM$INT+>01BA 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  22  ADDRESS  >7000+>0336 VERIFICATION DATA  >0004 DATA  28020+>01BA CHECKSUM  28020+>01BA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7336 0004  ..  CURRENT IMAGE L 7336 0004 1700 21A0 4902 1305 96CA 1658 E1A0 .. .. !. I. .. .. .X ..L  NEW IMAGE: CHECKSUM = 6F2E L 7336 6F2E 1700 21A0 4902 1305 96CA 1658 E1A0 o. .. !. I. .. .. .X ..L <1510> EC <1511> * $ <1512> .IF @DSR911 ,NE, "NONE" $ <1513> * : <1514> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A0,:& <1515>  V=>06A0,D=>0460,C=>0460 & PROGRAM FILE IMAGER( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>02A0 VERIFICATION DATA  >06A0 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7BA0 06A0  ..  CURRENT IMAGE L 7BA0 06A0 702C 0380 C261 0006 C849 0008 130E .. p, .. .a .. .I .. ..L  NEW IMAGE: CHECKSUM = 0460 L 7BA0 0460 702C 0380 C261 0006 C849 0008 130E .` p, .. .a .. .I .. ..L <1516> EC: <1517> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02A2,:< <1518> V=@IOCOM+>002C,D=@TM$INT+>01D2,D=@TM$INT+>01D2< PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>02A2$ VERIFICATION DATA  >7000+>002C$ DATA  28020+>01D2 CHECKSUM  ** NULL ** $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7BA2 702C  p,  CURRENT IMAGE L 7BA2 702C 0380 C261 0006 C849 0008 130E C2A1 p, .. .a .. .I .. .. ..L  NEW IMAGE: CHECKSUM = 6F46 L 7BA2 6F46 0380 C261 0006 C849 0008 130E C2A1 oF .. .a .. .I .. .. ..L <1519> EC< <1520> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, <& <1521>  V=>D881,D=>06A0,C=>06A0 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01D2 VERIFICATION DATA  >D881 DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F46 D881  ..  CURRENT IMAGE L 6F46 D881 000F D881 0010 D881 0011 C881 0012 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 L 6F46 06A0 000F D881 0010 D881 0011 C881 0012 .. .. .. .. .. .. .. ..L <1522> EC< <1523> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, <4 <1524> V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C 4 PROGRAM FI LE IMAGE  MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01D4 VERIFICATION DATA  >000F DATA  >7000+>002C CHECKSUM  >7000+>002C$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F48 000F  .. R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CURRENT IMAGE L 6F48 000F D881 0010 D881 0011 C881 0012 06A0 .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 702C L 6F48 702C D881 0010 D881 0011 C881 0012 06A0 p, .. .. .. .. .. .. ..L <1525> EC< <1526> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, <& <1527>  V=>D881,D=>0206,C=>0206 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01D6 VERIFICATION DATA  >D881 @ DATA  >0206 CHECKSUM  >0206$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F4A D881  ..  CURRENT IMAGE L 6F4A D881 0010 D881 0011 C881 0012 06A0 464E .. .. .. .. .. .. .. FNL  NEW IMAGE: CHECKSUM = 0206 L 6F4A 0206 0010 D881 0011 C881 0012 06A0 464E .. .. .. .. .. .. .. FNL <1528> EC< <1529> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D8, <6 <1530> V=>0010,D=@DSR911+>01B2,C=@DSR911+>01B2 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01D8 VERIFICATION DATA  >0010 DATA  >7900+>01B2 CHECKSUM  >7900+>01B2$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F4C 0010  ..  CURRENT IMAGE . 6F4C 0010 D881 0011 C881 0012 06A0 464E . 6F5C .. .. .. .. .. .. FN o\  NEW IMAGE: CHECKSUM = 7AB2 L 6F4C 7AB2 D881 0011 C881 0012 06A0 464E 6F5C z. .. .. .. .. .. FN o\L <1531> EC< <1532> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, <& <1533>  V=>D881,D=>0380,C=>0380 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01DA VERIFICATION DATA  >D881 DATA  >0380 CHECKSUM  >0380$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F4E D881  ..  CURRENT IMAGE L 6F4E D881 0011 C881 0012 06A0 464E 6F5C 0380 .. .. .. .. .. FN o\ ..L  NEW IMAGE: CHECKSUM = 0380 L 6F4E 0380 0011 C881 0012 06A0 464E 6F5C 0380 .. .. .. .. .. FN o\ ..L <1534> EC <1535> *  <1536> .ENDIF <1537> *  $ <1538> .IF @DSR911PF ,NE, "NONE" $R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1539> * > <1540> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FC,>& <1541>  V=>06A0,D=>0460,C=>0460 & <1542> EC> <1543> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>03FE,>< <1544> V=@IOCOM+>002C,D=@TM$INT+>01D2,C=@TM$INT+>01D2< <1545> EC< <1546> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D2, <& <1547>  V=>D881,D=>06A0,C=>06A0 & <1548> EC< <1549> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D4, <4 <1550> V=>000F,D=@IOCOM+>002C,C=@IOCOM+>002C 4 <1551> EC< <1552> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01D6, <& <1553>  V=>D881,D=>0206,C=>0206 & <1554> EC6 <1555> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>601D8, : <1556> V=>0010,D=@DSR911PF+>0240,C=@DSR911PF+>0240 : <1557> EC< <1558> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DA, <& <1559>  V=>D881,D=>0380,C=>0380 & <1560> EC <1561> *  <1562> .ENDIF <1563> *  <1564> .SYN TM$INT="" <1565> *$J$ <1566> ************************************************************* J <1567> * > <1568> *=P0496 RVL04/18/80STR #061473.3.2 DSR820 > <1569> * D! <1570> * THE REQUEST TO SEND FLAG IS INCORRECTLY REFERENCED IND <1571> * THE 820 DSR.  <1572> * $ <1573> .IF "@DSR820" ,NE, NONE $: <1574> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>00A6,:> <1575> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1576> EC0 <1577> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR0 820+>0174, > <1578> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1579> EC: <1580> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01CE,:> <1581> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1582> EC: <1583> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>01F8,:> <1584> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1585> EC: <1586> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0490,:> <1587> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1588> EC: <1589> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04B4,:> <1590> V=@DSR820+>05CC,D=@DSR820+>05CA,C=@DSR820+>05CA > <1591> EC <1592> .ENDIF <1593> *$J$ <1594> ************************************************************* J <1595> * & <1596> *=P0499 RVL04/21/80ST&R #061133.3.2 DSR911  <1597> * F" <1598> * IF CHARACTERS ARE ENTERED INTO AN ECHO SUPPRESSED FIELDFR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RH# <1599> * AND THE ERASE INPUT KEY IS DEPRESSED AND MORE CHARACTERS HH# <1600> * ARE INPUT PRIOR TO DEPRESSING THE RETURN KEY, THE SYSTEM H, <1601> * WILL CRASH WITH A >22 CRASH. , <1602> * L% <1603> * NOTE: PATCH 460 MUST BE APPLIED PRIOR TO APPLYING THIS PATCH L <1604> *#SYN SLGY,SYSLGY  <1605> * & <1606> .EVAL TM$INT="@ROOT+>26D4"&$ <1607> .IF "@DSR911" ,NE, NONE $: <1608> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0320,:$ <1609>  V=>06A0,D=>0460,C=>460$ PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>0320ST VERIFICATION DATA  >06A0 DATA  >0460 CHECKSUM  >460 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C20 06A0  ..  CURRENT IMAGE L 7C20 06A0 7F4A 04E4 0034 1D0F 36CA 890A 0032 .. .J .. .4 .. 6. .. .2L  NEW IMAGE: CHECKSUM = 0460 L 7C20 0460 7F4A 04E4 0034 1D0F 36CA 890A 0032 .` .J .. .4 .. 6. .. .2L <1610> EC: <1611> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0322,:> <1612> V=@DSR911+>064A,D=@TM$INT+>01DC,C=@TM$INT+>01DC > PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>0322$ VERIFICATION DATA  >7900+>064A$ DATA  28020+>01DC CHECKSUM  28020+>01DC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C22 7F4A  .J  CURRENT IMAGE @L 7C22 7F4A 04E4 0034 1D0F 36CA 890A 0032 1402 .J .. .4 .. 6. .. .2 ..L  NEW IMAGE: CHECKSUM = 6F50 L 7C22 6F50 04E4 0034 1D0F 36CA 890A 0032 1402 oP .. .4 .. 6. .. .2 ..L <1613> EC< <1614> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, <B <1615> V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01DC* VERIFICATION DATA  >0011,>C881,>0012* DATA >04E1,>0008,>06A0 CHECKSUM  >0249$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 6F50 0011 C881 0012  .. .. .. & CURRENT IMAGE L 6F50 0011 C881 0012 06A0 464E 6F5C 0380 4D45 .. .. .. .. FN o\ .. MEL  NEW IMAGE: CHECKSUM = 0249 0 6F50 04E1 0008 06A0 06A0 464E 6F5C 0380 4D045 .. .. .. .. FN o\ .. ME <1616> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <1617> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, <6 <1618> V=>06A0,D=@DSR911+>064A,C=@DSR911+>064A 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01E2 VERIFICATION DATA  >06A0 DATA  >7900+>064A CHECKSUM  >7900+>064A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F56 06A0  ..  CURRENT IMAGE L 6F56 06A0 464E 6F5C 0380 4D45 4D20 4E00 0000 .. FN o\ .. ME M N. ..L  NEW IMAGE: CHECKSUM = 7F4A L 6F56 7F4A 464E 6F5C 0380 4D45 4D20 4E00 0000 .J FN o\ .. ME M N. ..L <1619> EC< <1620> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, <( <1621>  V=@SYSLGY,D=>0460,C=>0460 ( PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01E4 VERIFICATION DATA  >464E DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F58 464E  FN  CURRENT IMAGE L 6F58 464E 6F5C 0380 4D45 4D20 4E00 0000 0000 FN o\ .. ME MN. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 6F58 0460 6F5C 0380 4D45 4D20 4E00 0000 0000 .` o\ .. ME MN. .. ..L <1622> EC< <1623> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, <> <1624> V=@TM$INT+>01E8,D=@DSR911+>0324,C=@DSR911+>0324 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  28020+>01E6$ VERIFICATION DATA  28020+>01E8$  DATA  >7900+>0324 CHECKSUM  >7900+>0324$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  6F5A 6F5C  o\  CURRENT IMAGE L 6F5A 6F5C 0380 4D45 4D20 4E00 0000 0000 0000 o\ .. ME M N. .. .. ..L  NEW IMAGE: CHECKSUM = 7C24 L 6F5A 7C24 0380 4D45 4D20 4E00 0000 0000 0000 |$ .. ME M N. .. .. ..L <1625> EC <1626> .ENDIF& <1627> .IF "@DSR911PF" ,NE, NONE &> <1628> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048C,>$ <1629>  V=>06A0,D=>0460,C=>460$ <1630> EC> <1631> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>048E,>@ <1632> V=@DSR911PF+>08CA,D=@TM$INT+>01DC,C=@TM$INT+>01DC @ <1633> EC< <1634> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01DC, <N& * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATNCH B <1635> V=(>0011,>C881,>0012),D=(>04E1,>0008,>06A0),C=>0249 B <1636> EC< <1637> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E2, <: <1638> V=>06A0,D=@DSR911PF+>064A,C=@DSR911PF+>064A : <1639> EC< <1640> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E4, <( <1641>  V=@SYSLGY,D=>0460,C=>0460 ( <1642> EC< <1643> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E6, <B <1644> V=@TM$INT+>01E8,D=@DSR911PF+>0490,C=@DSR911PF+>0490 B <1645> EC <1646> .ENDIF <1647> .SYN TM$INT="": <1648> *$ ! NOTE: THIS PATCH MODIFIED BY PATCH 649 :J$ <1649> ************************************************************* J <1650> * > <1651> *=P0507 RVL04/23/80STR #057543.3.2 DSR820 > <1652> * , <1653> * IF THE 820 IS PUT INTO THE LO, CAL MODE AND BACK ONLINEH# <1654> * WHILE PROCESSING I/O, THE REQUEST TO SEND SIGNAL IS NEVERHB <1655> * RESET. IN ADDITION, IF THE 820 IS PROCESSING A READBJ$ <1656> * REQUEST AND THE SWITCH IS PLACED IN THE LOCAL POSITION, THEJ0 <1657> * TASK AND/OR SCI IS NEVER ABORTED.0 <1658> * F" <1659> * NOTE: PATCH 0460 MUST BE APPLIED PRIOR TO THIS PATCH. F <1660> *#SYN S820,DSR820  <1661> * $ <1662> .IF "@DSR820" ,NE, NONE $& <1663> .EVAL TM$INT="@ROOT+>26D4"&: <1664> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03D8,:& <1665>  V=>1F0D,D=>0460,C=>0460 & <1666> EC: <1667> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>03DA,:6 <1668> V=>160E,D=@TM$INT+>01F6,C=@TM$INT+>01F6 6 <1669> EC< <1670> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01F6, <0 <1671> V=(>0000,>0000,>0000,>0000,>0000),08 <1672> D=(>1F0D,>1609,>1F0E,>1602,>0460),C=>0468 8 <1673> EC< <1674> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0200, <6 <1675> V=>0000,D=@DSR820+>03DC,C=@DSR820+>03DC 6 <1676> EC< <1677> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0202, <$ <1678>  V=(>0000,>0000,>0000),$, <1679> D=(>0262,>0400,>0206),C=>0464 , <1680> EC< <1681> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>0208, <6 <1682> V=>0000,D=@TM$INT+>01F6,C=@TM$INT+>01F6 6 <1683> EC< <1684> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020A, <6 <1685> V=(>0000,>0000),D=(>0380,>0460),C=>07E0 6 <1686> EC< <1687> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>020E, <6 <1688> V=>0000,D=@DSR820+>03F8,C=@DSR820+>03F8 6 <1689> EC: <1690> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F0,:& <1691>  V=>0206,D=>0460,C=>0460 & <1692> EC: <1693> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>04F2,:> <1694> V=@DSR820+>04EE,D=@TM$INT+>01E8,C=@TM$INT+>01E8 >R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1695> EC< <1696> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01E8, <$ <1697>  V=0380,D=>0206,C=>0206$ <1698> EC< <1699> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EA, <6 <1700> V=>4D45,D=@DSR820+>04EE,C=@DSR820+>04EE 6 <1701> EC< <1702> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@TM$INT+>01EC, <0 <1703> V=(>4D20,>4E00,>0000,>0000,>0000),08 <1704> D=(>C024,>0030,>1101,>1D0A,>0380),C=>CF9F 8 <1705> EC <1706> .SYN TM$INT="" <1707> .ENDIF <1708> *$R( <1709> **********************************************************************R <1710> * L <1711> *=P0557 KDK04/25/80STR #061963.3.2 DSRVDT(911,911PF,913)L <1712> * J$ <1713> * THE CURSOR POSITIONING ON THE VDTS FAIL TO ADVANCE WHEN THEJP <1714> * LAST CHARACTER OF A FIELD IS ENTERED. THEN, ALTHOUGH THE CURSOR PN& <1715> * IS POSITIONED ON A CHARACTER, THE CHARACTER CANNOT BE MODIFIED NN <1716> * UNTIL A LEFT ARROW KEY IS STRUCK.BUT STRIKING THE LEFT ARROW NH# <1717> * KEY IN THIS CONDITION DOES NOT CAUSE THE CURSOR TO CHANGEHN& <1718> * POSITIONS. THIS PATCH CAUSES THE CURSOR TO ALWAYS MOVE TO THE NL% <1719> * NEXT CHARACTER POSITION WHEN A CHARACTER IS ENTERED. IT ALSOLJ$ <1720> * CORRECTS A PROBLEM IN READING THE LAST CHARACTER IN A FIELDJ@L% <1721> * THAT DOES NOT REQUIRE A TERMINATING CHARACTER TO CAUSE RETURNL$ <1722> * TO THE CALLING TASK. $ <1723> *  <1724> *#SYN SROOT,ROOT <1725> *#SYN S911,DSR911 " <1726> *#SYN S911PF,DSR911PF " <1727> *#SYN S913,DSR913 ( <1728> *.EVAL S$$PAT="@ROOT+>0000" ( <1729> * " <1730> .IF @DSR911 ,NE, NONE " <1731> * : <1732> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0348,:, <1733>  V=(>060A,>32CA,>058A,>0B2B), ,2 <1734>  D=(>32CA,>0B2B,>1818,>100A),C=>31F32 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>03480 VERIFICATION DATA  >060A,>32CA,>058A,>0B2B0" DATA >32CA,>0B2B,>1818,>100A" CHECKSUM  >31F3$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  *7C48 060A 32CA 058A 0B2B  .. 2. .. .+* CURRENT IMAGE L 7C48 060A 32CA 058A 0B2B 1816 1012 1D0F 058A .. 2. .. .+ .. .. .. ..L  NEW IMAGE: CHECKSUM = 31F3 L 7C48 32CA 0B2B 1818 100A 1816 1012 1D0F 058A 2. .+ .. .. .. .. .. ..L <1735> EC <1736> *  <1737> .ENDIF <1738> * $ <1739> .IF @DSR911PF ,NE, NONE $ <1740> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R> <1741> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04BA,>4 <1742>  V=(>060A,>32CA,>0460,@S$$PAT+>0000), 42 <1743>  D=(>32CA,>0B2B,>182D,>1015),C=>31D92 <1744> EC> <1745> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>04E8,>0 <1746>  V=(>C80A,@DSR911PF+>0BA0,>32CA), 0, <1747>  D=(>1000,>32CA,>1E0F),C=>3CC5, <1748> EC@< <1749> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0000, <F <1750>  V=(>058A,>0620,@DSR911PF+>0BA0,>0460,@DSR911PF+>04C2), F8 <1751>  D=(>DEAD,>DEAD,>DEAD,>DEAD,>DEAD),C=>DEAD8 <1752> EC <1753> *  <1754> .ENDIF <1755> *  <1756> * " <1757> .IF @DSR913 ,NE, NONE " <1758> * : <1759> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B0,:4 <1760>  V=(>060A,>1D0C,>0460,@S$$PAT+>0016), 42 <1761>  D=(>1003,>1002,>1001,>1000),C=>00002 <1762> EC: <1763> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>02B8,:6 <1764>  V=(>0B5B,>1811),D=(>0B2B,>1006),C=>1B2D6 <1765> EC: <1766> MPI PF=IMAGE,MT=OV,MN=@S913,ADR=@DSR913+>023E,:> <1767>  V=@S$$PAT+>0024,D=@S$$PAT+>002A,C=@S$$PAT+>002A> <1768> EC$ <1769> MPI PF=IMAGE,MT=OV,MN=@S$& 913,ADR=@DSR913+>0654, !CURSOR OFF&& <1770>  V=>1D1C,D=>1E1C,C=>1E1C& <1771> EC< <1772> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0016, <4 <1773>  V=(>06A0,@DSR913+>07DC,>C2E4,>002C), 42 <1774>  D=(>DEAD,>DEAD,>DEAD,>DEAD),C=>00002 <1775> EC< <1776> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>001E, <. <1777>  V=(>058A,>0460,@DSR913+>02B8), ., <1778>  D=(>DEAD,>DEAD,>DEAD),C=>DEAD, <1779> EC< <1780> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0024, <& <1781>  V=(>890A,>0030,>1301), &, <1782>  D=(>DEAD,>DEAD,>DEAD),C=>DEAD, <1783> EC <1784> *  <1785> .ENDIF <1786> *$< <1787> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, <& <1788>  V=>2E31,D=>2E32,C=>2E32& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0240 VERIFICATION DATA  >2E31 DATA  >2E32 CHECKSUM  >2E32$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48E0 2E31  .1  CURRENT IMAGE L 48E0 2E31 202A 2A00 0000 0001 0002 0003 0004 .1 * *. .. .. .. .. ..LR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R  NEW IMAGE: CHECKSUM = 2E32 L 48E0 2E32 202A 2A00 0000 0001 0002 0003 0004 .2 * *. .. .. .. .. ..L> <1789> !EC  ! THIS PATCH MODIFIED BY A SUBSEQUENT PATCH>H# <1790> ************************************************************H, <1791> *  BEGIN RELEASE 3.3.3 PATCHES,J$ <1792> ************************************************************* J <1793> *  <1794> *=P0563 RVL05/1"6/80STR #063153.3.3 TM$FUN " <1795> * L% <1796> * THE 'DO NOT SUSPEND' TIME INTERVAL IS CALCULATED INCORRECTLY.LL% <1797> * IF AN ERROR OCCURS PATCHING FOR 60HZ SYSTEM, PATCH FOR 50HZ. L <1798> * P' <1799> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0006,D=>00FA,C=>00FA P PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  23  ADDRESS  >7900+>030E VERIFICATION DATA  >0006 DATA  >00FA CHECKSUM  >00FA$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7C0E 0006  ..  CURRENT IMAGE L 7C0E 0006 3802 C801 0104 0720 014A 04E0 0106 .. 8. .. .. ..J .. ..L  NEW IMAGE: CHECKSUM = 00FA L 7C0E 00FA 3802 C801 0104 0720 014A 04E0 0106 .. 8. .. .. ..J .. ..L  <1800> .IF "@$$CC" , GT, 0 /1$@P' <1801> MPI PF=IMAGE,MT=OV,MN=@SIO,ADR=@SVCIO+>030E,V=>0005,D=>00FA,C=>00FA P <1802> EC <1803> .ENDIF <1804> *$J$ <1805> ************************************************************* J <1806> * > <1807> *=P0576 RVL06/09/80STR #064823.3.3 DSR820 > <1808> * H# <1809> * THE 820 DSR DOES NOT ALLOW THE TAB CHARACTER TO BE PASSEDH <1810> *  <1811> *#SYN S820,DSR820  <1812> * $ <1813> .IF "@DSR820", NE, NONE $: <1814> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>02FA,:> <1815> V=(>0460,@DSR820+>01E8),D=(>13D2,>1000),C=>03D2 > <1816> EC <1817> .ENDIF <1818> *$J$ <1819> ************************************************************* J <1820> * > <1821> *=P0577 MU 06/11/80STR #064063.3.3 DSR820 > <1822> * F" <1823> * THE FIRST KATAKANA CHARACTER ENTERED FROM THE KEYBOARD F <1824> * FAILS TO ECHO.  <1825> *  <1826> *#SYN S820,DSR820  <1827> * $ <1828> .IF "@DSR820" ,NE, NONE $: <1829> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>0486,:& <1830>  V=>C024,D=>C2A4,C=>C2A4 & <1831> EC: <1832> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>048E,:R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R& <1833>  V=>2020,D=>22A0,C=>22A0 & <1834> EC: <1835> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049A,:& <1836>  V=>0240,D=>024A,C=>024A & <1837> EC: <1838> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR820+>049E,:& <1839>  V=>C900,D=>C90A,C=>C90A & <1840> EC0 <1841> MPI PF=IMAGE,MT=OV,MN=@S820,ADR=@DSR0 820+>04C8, & <1842>  V=>C024,D=>C2A4,C=>C2A4 & <1843> EC <1844> .ENDIF <1845> *$J$ <1846> ************************************************************* J <1847> * > <1848> *=P0578 KDK06/11/80STR #064193.3.3 DSR911 > <1849> * F" <1850> * ENTERING THE BACKFIELD KEY OR TAB KEY AFTER ENTERING ANFH# <1851> * INVALID CHARACTER INTO A VALIDATION FIELD WILL CAUSE THE H$ <1852> * CURSOR TO DISAPPEAR. $ <1853> *  <1854> *#SYN S911,DSR911   <1855> *#SYN S911,DSR911WP " <1856> *#SYN S911PF,DSR911PF " <1857> * $ <1858> .IF "@DSR911", NE, NONE $: <1859> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0402,:& <1860>  V=>C2E4,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26 @ ADDRESS  >7900+>0402 VERIFICATION DATA  >C2E4 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D02 C2E4  ..  CURRENT IMAGE L 7D02 C2E4 002C 32CA 091B 178E 1D0E 108C 0764 .. ., 2. .. .. .. .. .dL  NEW IMAGE: CHECKSUM = 0460 L 7D02 0460 002C 32CA 091B 178E 1D0E 108C 0764 .` ., 2. .. .. .. .. .dL <1861> EC: <1862> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0404,:6 <1863> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>0404 VERIFICATION DATA  >002C DATA  18080+>0186 CHECKSUM  18080+>0186$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7D04 002C  .,  CURRENT IMAGE L 7D04 002C 32CA 091B 178E 1D0E 108C 0764 0034 ., 2. .. .. .. .. .d .4L  NEW IMAGE: CHECKSUM = 4826 L 7D04 4826 32CA 091B 178E 1D0E 108C 0764 0034 H& 2. .. .. .. .. .d .4L <1864> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <1865> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, <* <1866> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1867> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01860 VERIFICATION DATA  >DEAD,>DEAD,>DEAD,>DEAD0" DATA >C2E4,>002C,>1D0C,>0460" CHECKSUM  >DBA4$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA , 4826 DEAD DEAD DEAD DEAD  .. .. .. .., CURRENT IMAGE   4826 D DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..D  NEW IMAGE: CHECKSUM = DBA4 L 4826 C2E4 002C 1D0C 0460 DEAD DEAD DEAD DEAD .. ., .. .` .. .. .. ..L <1868> EC< <1869> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <6 <1870> V=>DEAD,D=@DSR911+>0406,C=@DSR911+>0406 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>018E VERIFICATION DATA  >DEAD DATA  >7900+>0406 CHECKSUM  >7900+>0406$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  482E DEAD  ..  CURRENT IMAGE L 482E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 7D06 L 482E 7D06 DEAD DEAD DEAD DEAD DEAD DEAD DEAD }. .. .. .. .. .. .. ..L <1871> EC@: <1872> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>055A,:& <1873>  V=>1D0C,D=>1000,C=>1000 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>055A VERIFICATION DATA  >1D0C DATA  >1000 CHECKSUM  >1000$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7E5A 1D0C  ..  CURRENT IMAGE L 7E5A 1D0C 62A1 0004 A2A4 0032 058A 0460 7D00 .. b. .. .. .2 .. .` }.L  NEW IMAGE: CHECKSUM = 1000 L 7E5A 1000 62A1 0004 A2A4 0032 058A 0460 7D00 .. b. .. .. .2 .. .` }.L <1874> EC <1875> .ENDIF <1876> * & <1877> .IF "@DSR911PF", NE, NONE &> <1878> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B2,>& <1879>  V=>C2E4,D=>0460,C=>0460 & <1880> EC <1881> MPI PF=IMAGE(,MT=OV,MN=@S911PF,ADR=@DSR911PF+>05B4,(6 <1882> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1883> EC< <1884> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, <* <1885> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1886> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 <1887> EC< <1888> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <: <1889> V=>DEAD,D=@DSR911PF+>05B6,C=@DSR911PF+>05B6 : <1890> EC> <1891> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0772,>& <1892>  V=>1D0C,D=>1000,C=>1000 & <1893> EC <1894> .ENDIF& <1895> .IF "@DSR911WP", NE, NONE &> <1896> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B4,>& <1897>  V=>C2E4,D=>0460,C=>0460 & <1898> EC  <1899 6> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>04B6,66 <1900> V=>002C,D=@S$$PAT+>0186,C=@S$$PAT+>0186 6 <1901> EC< <1902> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0186, <* <1903> V=(>DEAD,>DEAD,>DEAD,>DEAD),*2 <1904> D=(>C2E4,>002C,>1D0C,>0460),C=>DBA4 2 <1905> EC< <1906> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>018E, <: <1907> V=>DEAD,D=@DSR911WP+>04B8,C=@DSR911WP+>04B8 : <1908> EC> <1909> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0636,>& <1910>  V=>1D0C,D=>1000,C=>1000 & <1911> EC <1912> .ENDIF <1913> *$R( <1914> **********************************************************************R <1915> * D <1916> *=P0584 KDK06/19/80STR #06144 3.3.3 DSRKSR,DSR733D <1917> * & <1918> * WHEN USING THE KSR OR A&(SR DSR FOR DIALUP TERMINALS, THE PHONE(L% <1919> * CONNECTION LOGIC PROHIBITS A RECONNECTION IN THE EVENT OF AN LH# <1920> * ABNORMAL DISCONNECTION; I.E. HANGING UP THE PHONE WITHOUTHL% <1921> * TERMINATING SCI, OR MOMENTARY POWER LOSS AT THE MODEM. THIS LL% <1922> * PATCH CORRECTS THE LOGIC AND ENABLES A RECONNECTION AFTER AN L <1923> * 8 SECOND DELAY. <1924> *  <1925> *#SYN SKSR,DSRKSR  <1926> *#SYN S733,DSR733  <1927> * < <1928> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0190, <& <1929>  V=>DEAD,D=>06A0,C=>06A0& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0190 VERIFICATION DATA  >DEAD DATA  >06A0 CHECKSUM  >06A0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA @ 4830 DEAD  ..  CURRENT IMAGE L 4830 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 06A0 R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 4830 06A0 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <1930> EC< <1931> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0192, <4 <1932>  V=>DEAD,D=@IOCOM+>0004,C=@IOCOM+>00044 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0192 VERIFICATION DATA  >DEAD DATA  >7000+>0004 CHECKSUM  >7000+>0004$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4832 DEAD  ..  CURRENT IMAGE H 4832 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .H. ..  NEW IMAGE: CHECKSUM = 7004 L 4832 7004 DEAD DEAD DEAD DEAD DEAD DEAD DEAD p. .. .. .. .. .. .. ..L <1933> EC< <1934> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0194, <6 <1935>  V=(>DEAD,>DEAD),D=(>0380,>0460),C=>07E06 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0194$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >0380,>0460 CHECKSUM  >07E0$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4834 DEAD DEAD .. .. CURRENT IMAGE L 4834 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 07E0 L 4834 0380 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <1936> EC <1937> *  <1938> *  <1939> .IF @DSRKSR ,NE, NONE  <1940> *  <1941> * : <1942> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A4,:& <1943>  V=>06A0,D=>0460,C=>0460& <1944> EC: <1945> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A6,:> <1946>  V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 > <1947> EC: <1948> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>00A8,:6 <1949>  V=(>0380,>C047),D=(>C047,>1002),C=>D0456 <1950> EC< <1951> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, <6 <1952>  V=>DEAD,D=@DSRKSR+>00A8,C=@DSRKSR+>00A86 <1953> EC <1954> *  <1955> *  <1956> .ENDIF <1957> *  <1958> * " <1959> .IF @DSR733 ,NE, NONE " <1960> * R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <1961> MPI PF*=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A4,*& <1962>  V=>06A0,D=>0460,C=>0460& <1963> EC: <1964> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A6,:> <1965>  V=@IOCOM+>0004,D=@S$$PAT+>0190,C=@S$$PAT+>0190 > <1966> EC: <1967> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>00A8,:6 <1968>  V=(>0380,>C047),D=(>C047,>1002),C=>D0456 <1969> EC< <1970> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0198, <6 <1971>  V=>DEAD,D=@DSR733+>00A8,C=@DSR733+>00A86 <1972> EC <1973> *  <1974> .ENDIF <1975> *$J$ <1976> ************************************************************* J <1977> * D <1978> *=P0597 RVL06/27/80STR #06603 3.3.3 DSRKSR,DSR733D <1979> * H# <1980> * KATAKANA CHARACTERS ARE NOT PROCESSED PROPERLY BY DSRKSR H <19 81> * AND DSR733. <1982> *  <1983> *#SYN SKSR,DSRKSR  <1984> *#SYN S733,DSR733  <1985> *   <1986> .IF @DSRKSR,NE,NONE  <1987> * : <1988> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>0398,:& <1989>  V=>02AA,D=>02AB,C=>02AB & <1990> EC: <1991> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>039A,:& <1992>  V=>D2AA,D=>D2AB,C=>D2AB & <1993> EC: <1994> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03A8,:& <1995>  V=>FAA0,D=>FAE0,C=>FAE0 & <1996> EC: <1997> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>03BC,:& <1998>  V=>5AA0,D=>5AE0,C=>5AE0 & <1999> EC: <2000> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015C,:& <2001>  V=>DF00,D=>E000,C=>E000 & <2002> EC: <2003> MPI PF=IMAGE,MT=OV,MN=@SKSR,ADR=@DSRKSR+>015E,: $ <2004>  V=>1BE6,D=>14E6,C=>14E6 $ <2005> EC <2006> *  <2007> .ENDIF <2008> *   <2009> .IF @DSR733,NE,NONE  <2010> * : <2011> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>0398,:& <2012>  V=>02AA,D=>02AB,C=>02AB & <2013> EC: <2014> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>039A,:& <2015>  V=>D2AA,D=>D2AB,C=>D2AB & <2016> EC: <2017> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03A8,:& <2018>  V=>FAA0,D=>FAE0,C=>FAE0 & <2019> EC: <2020> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>03BC,:R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R& <2021>  V=>5AA0,D=>5AE0,C=>5AE0 & <2022> EC: <2023> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015C,:& <2024>  V=>DF00,D=>E000,C=>E000 &  <2025 > EC: <2026> MPI PF=IMAGE,MT=OV,MN=@S733,ADR=@DSR733+>015E,:& <2027>  V=>1BE6,D=>14E6,C=>14E6 & <2028> EC <2029> .ENDIF <2030> *$J$ <2031> ************************************************************* J <2032> * > <2033> *=P0602 GJ 07/10/80STR #064243.3.3 ABTLDT > <2034> * F" <2035> * ABTLDT GENERATES A CLOSE CALL BLOCK WHICH IS NOT SIZED FF" <2036> * PROPERLY. THIS MAY CAUSE THE SYSTEM TO 'HANG' WITH ALL F@ <2037> * MEMORY LIGHTS ON AND REQUIRES AN IPL PROCEDURE TO@" <2038> * RESTART THE SYSTEM." <2039> * @ <2040> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>06AE+>0038, @& <2041>  V=>000E,D=>0012,C=>0012 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>06AE+>0038   VERIFICATION DATA  >000E DATA  >0012 CHECKSUM  >0012$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4D86 000E  ..  CURRENT IMAGE L 4D86 000E 06A0 5B6A 4D80 C883 0006 E8E0 48EE .. .. [j M. .. .. .. H.L  NEW IMAGE: CHECKSUM = 0012 L 4D86 0012 06A0 5B6A 4D80 C883 0006 E8E0 48EE .. .. [j M. .. .. .. H.L <2042> EC <2043> *$J$ <2044> ************************************************************* J <2045> * : <2046> *=P0629 GJ 07/30/80STR #067323.3.3 KIF: <2047> * J$ <2048> * IF BETWEEN THE TIME A READ OF A RECORD AND A REWRITE OF THEJH# <2049> * RECORD, AN OPERATION IS DONE TO THE FILE THAT AFFECTS THEHH# <2050> * LEAF NODE THE KEY READ IS IN BUT DOES NOT CAUSE A SPLIT, H <2051> * THE REWRITE WIL$L INCORRECTLY RETURN A >B9 ERROR. $ <2052> *  <2053> *#SYN SKIF3,KIF3 <2054> * " <2055> .IF "@KIF3" ,NE, NONE "@ <2056> MPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0FF6+>008E, @& <2057>  V=>133C,D=>1335,C=>1335 & <2058> EC <2059> .ENDIF <2060> *$J$ <2061> ************************************************************* J <2062> * @ <2063> *=P0649 RVL08/18/80STR #068663.3.3 DSR911PF @ <2064> * D! <2065> * PATCH 499 HAS AN INCORRECT ADDRESS FOR THE 911 POWER D <2066> * FAIL DSR.R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R <2067> * & <2068> .IF "@DSR911PF" ,NE, NONE &@ <2069> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>01E2, @0 <2070> V=@DSR911PF+>064A,D=@DSR911PF+>08C0 A,C=@DSR911PF+>08CA  <2071> EC <2072> .ENDIF <2073> *$< <2074> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0240, <& <2075>  V=>2E32,D=>2E33,C=>2E33& PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0240 VERIFICATION DATA  >2E32 DATA  >2E33 CHECKSUM  >2E33$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  48E0 2E32  .2  CURRENT IMAGE L 48E0 2E32 202A 2A00 0000 0001 0002 0003 0004 .2 * *. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 2E33 L 48E0 2E33 202A 2A00 0000 0001 0002 0003 0004 .3 * *. .. .. .. .. ..L <2076> ECJ$ <2077> ************************************************************* J, <2078> *  BEGIN RELEASE 3.3.4 PATCHES, <2079> **********6*************************************************** 6 <2080> * > <2081> *=P0650 RVL08/15/80STR #068683.3.4 DSR911 > <2082> * B <2083> * THE 911 DOES NOT CHECK THE RECORD LENGTH ON A READ BB <2084> * DEVICE STATUS. MORE CHARACTERS MAY THEN BE RETURNEDBH# <2085> * THAN WERE REQUESTED AND MAY DESTROY SYSTEM TABLE LINKAGE.H <2086> * $ <2087> .IF "@DSR911" ,NE, NONE $: <2088> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F2,:& <2089>  V=>CAA4,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>00F2 VERIFICATION DATA  >CAA4 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  79F2 CAA4  ..  CURRENT IMAGE   79F2 C BAA4 0002 0002 0460 7B68 C261 0008 1333 .. .. .. .` {h .a .. .3B  NEW IMAGE: CHECKSUM = 0460 L 79F2 0460 0002 0002 0460 7B68 C261 0008 1333 .` .. .. .` {h .a .. .3L <2090> EC: <2091> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F4,:6 <2092> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>00F4 VERIFICATION DATA  >0002 DATA  18080+>019AR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R CHECKSUM  18080+>019A$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  79F4 0002  ..  CURRENT IMAGE L 79F4 0002 0002 0460 7B68 C261 0008 1333 C2A1 .. .. .` {h .a .. .3 ..L  NEW IMAGE: CHECKSUM = 483A  79F4 4 B83A 0002 0460 7B68 C261 0008 1333 C2A1 H: .. .` {h .a .. .3 ..B <2093> EC< <2094> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2095> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>019A$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >8821,>0006 CHECKSUM  >8827$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  483A DEAD DEAD .. .. CURRENT IMAGE L 483A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8827 L 483A 8821 0006 DEAD DEAD DEAD DEAD DEAD DEAD .! .. .. .. .. .. .. ..L <2096> EC< <2097> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, <. <2098> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>0.24E  PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>019E VERIFICATION DATA  >DEAD DATA  >46A0+>024E CHECKSUM  >46A0+>024E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  483E DEAD  ..  CURRENT IMAGE L 483E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 48EE L 483E 48EE DEAD DEAD DEAD DEAD DEAD DEAD DEAD H. .. .. .. .. .. .. ..L <2099> EC< <2100> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <B <2101> V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01A0* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA  >1103,>CAA4,>0002 CHECKSUM  >DBA5$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4840 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 4840 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = DBA5 L 4840 1103 CAA4 0002 DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <2102> ECR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R< <2103> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, <6 <2104> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01A6$ VERIFICATION DATA  >DEAD,>DEAD$ DATA  >0002,>0460 CHECKSUM  >0462$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA A4@ 4846 DEAD DEAD .. .. CURRENT IMAGE L 4846 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0462 L 4846 0002 0460 DEAD DEAD DEAD DEAD DEAD DEAD .. .` .. .. .. .. .. ..L <2105> EC< <2106> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, <6 <2107> V=>DEAD,D=@DSR911+>00F8,C=@DSR911+>00F8 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01AA VERIFICATION DATA  >DEAD DATA  >7900+>00F8 CHECKSUM  >7900+>00F8$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  484A DEAD  ..  CURRENT IMAGE L 484A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 79F8 " 484A 79F8 DEAD DEAD DEAD DEA",D DEAD DEAD DEAD y. .. .. .. .. .. .. .., <2108> EC <2109> .ENDIF& <2110> .IF "@DSR911PF" ,NE, NONE &> <2111> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013C,>& <2112>  V=>CAA4,D=>0460,C=>0460 & <2113> EC> <2114> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013E,>6 <2115> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 <2116> EC< <2117> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2118> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6 <2119> EC< <2120> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, <2 <2121> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E 2 <2122> EC< <2123> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <B <2124> V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 B <2125> EC  <2126> MPI PF=IMAGE,MT=TA,M N=@SROOT,ADR=@S$$PAT+>01A6, 6 <2127> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 <2128> EC< <2129> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, <: <2130> V=>DEAD,D=@DSR911PF+>0142,C=@DSR911PF+>0142 : <2131> EC <2132> .ENDIF& <2133> .IF "@DSR911WP" ,NE, NONE &> <2134> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010C,>R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R& <2135>  V=>CAA4,D=>0460,C=>0460 & <2136> EC> <2137> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010E,>6 <2138> V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A 6 <2139> EC< <2140> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, <6 <2141> V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 6 <2142> EC. <2143> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@.S$$PAT+>019E, 2 <2144> V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E 2 <2145> EC< <2146> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, <B <2147> V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 B <2148> EC< <2149> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, <6 <2150> V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 6 <2151> EC< <2152> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, <: <2153> V=>DEAD,D=@DSR911WP+>0112,C=@DSR911WP+>0112 : <2154> EC <2155> .ENDIF <2156> *$R( <2157> **********************************************************************R <2158> * > <2159> *=P0709 MU 08/29/80STR #070963.3.4 DSR911 > <2160> * L% <2161> * THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATIONL <2162> * FAILS, 6HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THE6F" <2163> * FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED.FJ$ <2164> * **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIED FOR THIS PATCHJ( <2165> * **** TO APPLY PROPERLY. ( <2166> * " <2167> *#SYN S911PF,DSR911PF "" <2168> *#SYN S911WP,DSR911WP " <2169> *#SYN S911,DSR911  <2170> *#SYN SROOT,ROOT( <2171> *.EVAL S$$PAT="@ROOT+>0000" ( <2172> * $ <2173> .IF "@DSR911" ,NE, NONE $ <2174> * : <2175> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8,:( <2176>  V=(>06A0,@S$$PAT+>014E), (& <2177>  D=(>C024,>003A),C=>C01E& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>01C8* VERIFICATION DATA  >06A0,18080+>014E* DATA  >C0 24,>003A  CHECKSUM  >C01E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7AC8 06A0 47EE .. G. CURRENT IMAGE L 7AC8 06A0 47EE D23A 5200 3208 1D08 1E0A 0609 .. G. .: R. 2. .. .. ..L  NEW IMAGE: CHECKSUM = C01E L 7AC8 C024 003A D23A 5200 3208 1D08 1E0A 0609 .$ .: .: R. 2. .. .. ..L <2178> EC: <2179> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE,:( <2180>  V=(>06A0,@S$$PAT+>014E), (R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R& <2181>  D=(>C024,>003A),C=>C01E& PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>02BE* VERIFICATION DATA  >06A0,18080+>014E* DATA  >C024,>003A CHECKSUM  >C01E$ OUTPUT ACCESS NAME ** NULL ** $C0(@ VERIFICATION DATA  7BBE 06A0 47EE .. G. CURRENT IMAGE L 7BBE 06A0 47EE 361A 5E80 1E0A 0609 16FB 10CD .. G. 6. ^. .. .. .. ..L  NEW IMAGE: CHECKSUM = C01E L 7BBE C024 003A 361A 5E80 1E0A 0609 16FB 10CD .$ .: 6. ^. .. .. .. ..L <2182> EC: <2183> MPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568,:> <2184>  V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E> PROGRAM FILE IMAGE MODULE TYPE  OV  MODULE NAME OR ID  26  ADDRESS  >7900+>0568$ VERIFICATION DATA  >7900+>0400$ DATA  18080+>014E CHECKSUM  18080+>014E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  7E68 7D00  }.  CURRENT IMAGE L 7E68 7D00 1D0F C20A 098A 130C 0207 0018 8824 }. .. .. .. .. .. .. .$L NEW IMAGE: CHECKSUM = 47EEL 7E68 47EE 1D0F C20A 098A 130C 0207 0018 8824 G. .. .. .. .. .. .. .$L <2185> EC< <2186> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <& <2187>  V=(>C002,>0A80,>04C0), &, <2188>  D=(>C024,>003A,>0460),C=>C47E, PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>014E* VERIFICATION DATA  >C002,>0A80,>04C0* DATA >C024,>003A,>0460 CHECKSUM  >C47E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 47EE C002 0A80 04C0  .. .. .. & CURRENT IMAGE L 47EE C002 0A80 04C0 1802 0200 8080 045B DEAD .. .. .. .. .. .. .[ ..L  NEW IMAGE: CHECKSUM = C47E L 47EE C024 003A 0460 1802 0200 8080 045B DEAD .$ .: .` .. .. .. .[ ..L <2189> EC& <2190> MPI PF=IMAGE,MT=TA,MN=@SRO& OT,ADR=@S$$PAT+>0154, 6 <2191>  V=>1802,D=@DSR911+>0400,C=@DSR911+>04006 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0154 VERIFICATION DATA  >1802 DATA  >7900+>0400 CHECKSUM  >7900+>0400R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  47F4 1802  ..  CURRENT IMAGE L 47F4 1802 0200 8080 045B DEAD DEAD DEAD DEAD .. .. .. .[ .. .. .. ..L  NEW IMAGE: CHECKSUM = 7D00 L 47F4 7D00 0200 8080 045B DEAD DEAD DEAD DEAD }. .. .. .[ .. .. .. ..L <2192> EC< <2193> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <2194>  V=(>0200,>8080,>045B), &, <2195>  D=(>DEAD,>8080,>DEAD),C=>8080,RO0@ PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>0156* VERIFICATION DATA  >0200,>8080,>045B* DATA >DEAD,>8080,>DEAD CHECKSUM  >8080$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 47F6 0200 8080 045B  .. .. .[ & CURRENT IMAGE L 47F6 0200 8080 045B DEAD DEAD DEAD DEAD DEAD .. .. .[ .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 8080 L 47F6 DEAD 8080 DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L <2196> EC <2197> .ENDIF <2198> *  <2199> * & <2200> .IF "@DSR911PF" ,NE, NONE & <2201> * > <2202> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256,>( <2203>  V=(>06A0,@S$$PAT+>014E), (& <2204>  D=(>C024,>003A),C=>C01E& <2205> EC  <2206 6> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A,6( <2207>  V=(>06A0,@S$$PAT+>014E), (& <2208>  D=(>C024,>003A),C=>C01E& <2209> EC> <2210> MPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780,>@ <2211>  V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E@  <2212> < <2213> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <& <2214>  V=(>C002,>0A80,>04C0), &, <2215>  D=(>C024,>003A,>0460),C=>C47E, <2216> EC< <2217> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, <: <2218>  V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF+>05AA: <2219> EC< <2220> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, <& <2221>  V=(>0200,>8080,>045B), &, <2222>  D=(>DEAD,>8080,>DEAD),C=>8080, <2223> EC <2224> .ENDIF <2225> *  <2226> * 97@& <2227> .IF "@DSR911WP" ,NE, NONE & <2228> * > <2229> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6,>, <2230>  V=(>C002,>0A80,>04C0,>1802), ,R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R2 <2231>  D=(>C024,>003A,>1003,>1002),C=>C01F2 <2232> EC> <2233> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318,>, <2234>  V=(>C002,>0A80,>04C0,>1802), ,2 <2235>  D=(>C024,>003A,>1003,>1002),C=>C01F2 <2236> EC> <2237> MPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644,>@ <2238>  V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E@  <2239> < <2240> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, <& <2241>  V=(>DEAD,>DEAD,>DEAD), &, <2242>  D=(>C024,>003A,>0460),C=>C47E, <2243> EC <2244> MPI PF,=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, ,: <2245>  V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B0: <2246> EC <2247> .ENDIF <2248> *  <2249> *$J$ <2250> ************************************************************* J <2251> * > <2252> *=P0714 RVL09/19/80STR #070983.3.4 MM$SCN > <2253> * D! <2254> * IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK DD! <2255> * AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TODF" <2256> * LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THEFJ$ <2257> * TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. J <2258> * @ <2259> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0094, @& <2260>  V=>D022,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>1708+>0094  VERIFICATION DATA  >D022 DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  5E3C D022  ."  CURRENT IMAGE L 5E3C D022 0008 130E 9004 1111 150B 04C1 D040 ." .. .. .. .. .. .. .@L  NEW IMAGE: CHECKSUM = 0460 L 5E3C 0460 0008 130E 9004 1111 150B 04C1 D040 .` .. .. .. .. .. .. .@L <2261> EC@ <2262> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, @6 <2263> V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC 6 PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3  ADDRESS >46A0+>1708+>0096  VERIFICATION DATA  >0008 DATA  18080+>01AC CHECKSUM  18080+>01AC$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA @ 5E3E 0008  ..  CURRENT IMAGE L 5E3E 0008 130E 9004 1111 150B 04C1 D040 1104 .. .. .. .. .. .. .@ ..L  NEW IMAGE: CHECKSUM = 484C R( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH RL 5E3E 484C 130E 9004 1111 150B 04C1 D040 1104 HL .. .. .. .. .. .@ ..L <2264> EC< <2265> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, <B <2266> V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01AC* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >D022,>0008,>1304 CHECKSUM  >C32E$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 484C DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE  484C DEAD DEAD DEAD DEAD0 DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..0  NEW IMAGE: CHECKSUM = C32E L 484C D022 0008 1304 DEAD DEAD DEAD DEAD DEAD ." .. .. .. .. .. .. ..L <2267> EC< <2268> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, <B <2269> V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),C=>C660 B PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01B2* VERIFICATION DATA  >DEAD,>DEAD,>DEAD* DATA >D104,>1304,>0460 CHECKSUM  >C660$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA & 4852 DEAD DEAD DEAD  .. .. .. & CURRENT IMAGE L 4852 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = C660 L 4852 D104 1304 0460 DEAD DEAD DEAD DEAD DEAD .. .. .` .. .. .. .. ..L@ <2270> EC< <2271> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, <> <2272> V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01B8 VERIFICATION DATA  >DEAD DATA >46A0+>1708+>009A  CHECKSUM >46A0+>1708+>009A $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4858 DEAD  ..  CURRENT IMAGE L 4858 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5E42 L 4858 5E42 DEAD DEAD DEAD DEAD DEAD DEAD DEAD ^B .. .. .. .. .. .. ..L <2273> EC< <2274> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, <& <2275>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01BA VERIFICATION DATA  >DEADR( * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 **BATCH R DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  485A DEAD  ..  CURRENT IMAGE L 485A DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 485A 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <2276> EC< <2277> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, <> <2278> V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01BC VERIFICATION DATA  >DEAD DATA >46A0+>1708+>00B6MO @  CHECKSUM >46A0+>1708+>00B6 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  485C DEAD  ..  CURRENT IMAGE L 485C DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5E5E L 485C 5E5E DEAD DEAD DEAD DEAD DEAD DEAD DEAD ^^ .. .. .. .. .. .. ..L <2279> EC< <2280> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, <& <2281>  V=>DEAD,D=>0460,C=>0460 & PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01BE VERIFICATION DATA  >DEAD DATA  >0460 CHECKSUM  >0460$ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  485E DEAD  ..  CURRENT IMAGE L 485E DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 0460 L 485E 0460 DEAD DEAD DEAD DEAD DEAD DEAD DEAD .` .. .. .. .. .. .. ..L <2282> EC< <2283> MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01C0, <> <2284> V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 > PROGRAM FILE IMAGE MODULE TYPE  TA  MODULE NAME OR ID  3 ADDRESS  18080+>01C0 VERIFICATION DATA  >DEAD DATA >46A0+>1708+>00C0  CHECKSUM >46A0+>1708+>00C0 $ OUTPUT ACCESS NAME ** NULL ** $ VERIFICATION DATA  4860 DEAD  ..  CURRENT IMAGE L 4860 DEAD DEAD DEAD DEAD DEAD DEAD DEAD DEAD .. .. .. .. .. .. .. ..L  NEW IMAGE: CHECKSUM = 5E68 L 4860 5E68 DEAD DEAD DEAD DEAD DEAD DEAD DEAD ^h .. .. .. .. .. .. ..LD! * SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCI990 ** SCDI990 **BATCH  <2285> EC <2286> *$R( <2287> **********************************************************************RR <2288> * INSERT PATCHES HERE.BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALR <2289> * R( <2290> **********************************************************************R <2291> *  <2292> * @ <2293> CM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" @" RECEIVING TERMINAL NAME  ME ". MSG  SYSTEM PATCH STREAM ERROR COUNT = 0. <2294> *  <2295> Q$SYN $ <2296> .SYN IMAGE="", S$$PAT=""$6 <2297> .SYN SROOT="", ROOT="", S820="", DSR820=""6@ <2298> .SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" @6 <2299> .SYN SMEM="", MEMRES="", SIO="", SVCIO="" 66 <2300> .SYN DDIOSR="", SDDIO="", IOC="", IOCOM=""6  <2301> ,.SYN S911="", DSR911="", SLP="", LPDSR="" ,< <2302> .SYN S911PF="", DSR911PF="", S913="", DSR913="" <& <2303> .SYN S911WP="",DSR911WP=""&$ <2304> .SYN SFPY="", FPYDSR="" $ <2305> *  <2306> SDT & 13:27:44 WEDNESDAY, JUL 19, 1989. & <2307> EBATCH CODE  ** NULL **  TEXT  ** NULL **  LS (LIST SYNONYMS) ? NO =ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" @" RECEIVING TERMINAL NAME  ME ". MSG  SYSTEM PATCH STREAM ERROR COUNT = 0. <2294> *  <2295> Q$SYN $ <2296> .SYN IMAGE="", S$$PAT=""$6 <2297> .SYN SROOT="", ROOT="", S820="", DSR820=""6@ <2298> .SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" @6 <2299> .SYN SMEM="", MEMRES="", SIO="", SVCIO="" 66 <2300> .SYN DDIOSR="", SDDIO="", IOC="", IOCOM=""6  <2301> > >P************************************************************************** PP* PP*=P0709 MU 08/29/80 STR #07096 3.3.4 DSR911 PP* PP* THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATION PP* FAILS, HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THE PP* FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED. PP* **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIED FOR THIS PATCH PP* **** TO APPLY PROPERLY. P$* $, ,P*#SYN S911PF,DSR911PF PP*#SYN S911WP,DSR911WP PP*#SYN S911,DSR911 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8, P6 V=(>06A0,@S$$PAT+>014E), 6 P D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568, PP V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E PPEC PHMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, H P V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>1802,D=@DSR911+>0400,C=@DSR911+>0400 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC P.ENDIFJ JP* PP* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A, P V=(>06A0,@S$$PAT+>0814E), 8P D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780, PP V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC P*MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>*&0154, &P V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF+>05AA PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC PP.ENDIF PP* PP* P<.IF "@DSR911WP" ,NE, NONE < P* PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PNMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644, N P V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B0 PPEC PP.ENDIF P * D DP*$ PP************************************************************* PP* PP*=P0714 RVL 09/19/80 STR #07098 3.3.4 MM$SCN PP* PP* IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK PP* AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TO PP* LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THE PP* TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. P* 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0094, PP V=>D022,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, PP V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, PP V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E PPEC P0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, 0 P V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),C=>C660 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, PP V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, PB V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 B PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01C0, PP V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 PPEC PP*$ PP************************************************************************** PP* INSERT PATCHES HERE. BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALL. P T@P* PP************************************************************************** PP* PP* PPCM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" PP* PPQ$SYN PP.SYN IMAGE="", S$$PAT="" PP.SYN SROOT="", ROOT="", S820="", DSR820="" PP.SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" P.SYN SMEM="", MEMR>ES="", SIO="", SVCIO="" >P.SYN DDIOSR="", SDDIO="", IOC="", IOCOM="" PP.SYN S911="", DSR911="", SLP="", LPDSR="" PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************P$* THE NEXT AVAILABLE PATCH LOCATION $,IS S$$PAT+>01C2 ,P* 21 WORDS RESERVED FOR COMMCOM PATCH STARTING AT S$$PAT+>015C PP********************************************************************************P PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************P$* THE NEXT AVAILABLE PATCH LOCATION $[ZTEMP1 VCATALOG`XALGSLIST`P5>JͬH&0240, &P V=>2E32,D=>2E33,C=>2E33 PPEC PP************************************************************* PP* BEGIN RELEASE 3.3.4 PATCHES PP************************************************************* PP* PP*=P0650 RVL 08/15/80 STR #06868 3.3.4 DSR911 PP* PP* THE 911 DOES NOT CHECK THE RECORD LENGTH ON A READ P<* DEVICE STATUS. MORE CHARACTERS MAY THEN BE RETURNED < P* THAN WERE REQUESTED AND MAY DESTROY SYSTEM TABLE LINKAGE. PP* PP.IF "@DSR911" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F2, PP V=>CAA4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F4, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, N P V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 P EC D DPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911+>00F8,C=@DSR911+>00F8 PPEC PP.ENDIF PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013C, PP V=>CAA4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013E, P V=>0002,D=@S$$PAT+>019A,C=2@S$$PAT+>019A 2PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PP V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 P0EC 0 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911PF+>0142,C=@DSR911PF+>0142 PPEC PP.ENDIF PP.IF "@DSR911WP" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010C, PB V=>CAA4,D=>0460,C=>0460 B PEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010E, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PP V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC P T@PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911WP+>0112,C=@DSR911WP+>0112 PPEC PP.ENDIF P*$ > >P************************************************************************** PP* PP*=P0709 MU 08/29/80 STR #07096 3.3.4 DSR911 PP* PP* THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATION PP* FAILS, HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THE PP* FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED. PP* **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIED FOR THIS PATCH PP* **** TO APPLY PROPERLY. P$* $, ,P*#SYN S911PF,DSR911PF PP*#SYN S911WP,DSR911WP PP*#SYN S911,DSR911 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8, P6 V=(>06A0,@S$$PAT+>014E), 6 P D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568, PP V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E PPEC PHMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, H P V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>1802,D=@DSR911+>0400,C=@DSR911+>0400 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC P.ENDIFJ JP* PP* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A, P V=(>06A0,@S$$PAT+>0814E), 8P D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780, PP V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC P*MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>*&0154, &P V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF+>05AA PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC PP.ENDIF PP* PP* P<.IF "@DSR911WP" ,NE, NONE < P* PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PNMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644, N P V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B0 PPEC PP.ENDIF P * D DP*$ PP************************************************************* PP* PP*=P0714 RVL 09/19/80 STR #07098 3.3.4 MM$SCN PP* PP* IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK PP* AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TO PP* LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THE PP* TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. P* 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0094, PP V=>D022,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, PP V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, PP V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E PPEC P0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, 0 P V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),C=>C660 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, PP V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, PB V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 B PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01C0, PP V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 PPEC PP*$ PP************************************************************************** PP* INSERT PATCHES HERE. BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALL. P T@P* PP************************************************************************** PP* PP* PPCM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" PP* PPQ$SYN PP.SYN IMAGE="", S$$PAT="" PP.SYN SROOT="", ROOT="", S820="", DSR820="" PP.SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" P.SYN SMEM="", MEMR>ES="", SIO="", SVCIO="" >P.SYN DDIOSR="", SDDIO="", IOC="", IOCOM="" PP.SYN S911="", DSR911="", SLP="", LPDSR="" PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************P$* THE NEXT AVAILABLE PATCH LOCATION $,IS S$$PAT+>01C2 ,P* 21 WORDS RESERVED FOR COMMCOM PATCH STARTING AT S$$PAT+>015C PP********************************************************************************P PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************P$* THE NEXT AVAILABLE PATCH LOCATION $/ "TAPEDUMPVCATALOG`DOC `P == @>\ԤOBJECTA `P0 \ԬIBM2TI `P58 >\ԭTI2IBM `P3p >\ԯSOURCED `P=+ \ԠSOURCEE `P $ \ԡSOURCEF `P55 \ԣOBJECTC `P 5W N\Ԣ!SOURCEA `P5Q 5z\Ԝ$OBJECTB `P3 \Ԧ(SOURCEB `P 0 a\ԝ.CONVERT   o=I oo\Ԩ/SOURCEC `P 0p a\Ԟ@, TITL 'GENERAL CODE CONVERSION ROUTINE' , IDT'CONVRT'$ REF CNTLCD,BUFFER,LRECL,TABLE $2 REFINFILE,INFUN,INBADR,INFLAG,INLREC,INPREC2& REFOUTFIL,OUTFUN,OUTADR,OUTPRC & REFINNAME,OUTNAM & REFS$GTCA,S$RTCA,S$STOP,S$PARM & DEFCONVRT DXOP SVC,15* ' * GET SCI .BID PARM FIELDS  * 'CONVRT EQU$ ! BLWP @S$GTCA  GET TCA  MOVR0,R1 EXIT IF ERRORS  JNESCIERR& LI R2,1 GET FIRST PARM FIELD & LI R3,INNAME  BLWP @S$PARM  BYTE R2,R3   MOVR0,R1 EXIT IF ERRORS  JNESCIERR& LI R2,2 GET SECOND PARM FIELD& LI R3,OUTNAM  BLWP @S$PARM  BYTE R2,R3   MOVR0,R1 EXIT IF ERRORS  JNESCIERR& LI R2,3 GET THIRD PARM FIELD & LI R3,CNTLCD  BLWP @S$PARM  BYTE R2,R3   MOVR0,R1 EXIT IF ERRORS  JNESCIERR  BLWP @S$RTCA  RELEASE TCA  MOVR0,R1 EXIT IF ERRORS  JEQASSIGNSCIERR EQU$ ! LI R2,SCIMSG  JMPEXIT * '*  ASSIGN LUNOS TO FILES* 'ASSIGN EQU$ ! MOVB @AL,@INFUN& SVC@INFILE  ASSIGN INPUT LUNO&$ MOV@INFILE,R1EXIT IF ERRORS$ JNEFILERR MOVB @AL,@OUTFUN ( SVC@OUTFIL  ASSIGN OUTPUT LUNO ($ MOV@OUTFIL,R1EXIT IF ERRORS$ JNEFILERR* '*  OPEN FILES * ' MOVB @OPEN,@INFUN$ SVC@INFILE  OPEN INPUT FILE$$ MOV@INFILE,R1EXIT IF ERROR $ JNEFILERR MOVB @OPEN,@OUTFUN & SVC@OUTFIL  OPEN OUTPUT FILE & MOV@OUTFIL,R1EXIT IF ERROR  JNEFILERR, LI R4,BUFFER  SET BUFFER ADDRESSES , MOVR4,@INBADR MOVR4,@OUTADR$ LI R5,LRECL SET BUFFER SIZE$ CB @CNTLCD,@HEX00 JEQFULLRC( DECR5 LESS ONE IF CONTROL CODES (FULLRC EQU$ ! MOVR5,@INLREC* '*  READ NEXT RECORD * 'READLP EQU$ ! MOVB @READ,@INFUN& SVC@INFILE  READ NEXT RECORD &$ MOV@INFILE,R1EXIT IF ERROR $ JNEFILERR MOV@INFLAG,R1* COC@EOFMSK,R1 DONE IF END OF FILE * JEQEOFINP* LI R4,BUFFER  LOAD BUFFER ADDRESS*4 MOV@INPREC,R5 GET AND COPY CHARACTER COUNT 4 MOVR5,@OUTPRC* '*  TRANSLATE RECORD * 'TRNSLT EQU$ ! CB @CNTLCD,@HEX00 JEQNOCODEFI@6 MOVB @1(R4),R6  IF CONTROL CODES, SKIP ONE BYTE 6 JMPTRBYTENOCODE EQU$ !$ MOVB *R4,R6 TRANSLATE A BYTE $TRBYTE EQU$ !  SWPB R6!  ANDI R6,>00FF MOVB @TABLE(R6),*R4+ * DECR5 LOOP UNTIL DONE WITH BUFFER* JH TRNSLT* '*  WRITE RECORD * ' MOVB @WRITE,@OUTFUN, SVC@OUTFIL  WRITE TRANSLATED BUFFER,$ MOV@OUTFIL,R1EXIT IF ERROR $ JNEFILERR JMPREADLP* '*  CLOSE FILES* 'EOFINP EQU$ ! MOVB @CLOSE,@INFUN & SVC@INFILE  CLOSE INPUT FILE &$ MOV@INFILE,R1EXIT IF ERROR $ JNEFILERR MOVB @CLOSE1,@OUTFUN & SVC@OUTFIL  CLOSE OUTPUT FILE&$ MOV@OUTFIL,R1EXIT IF ERROR $ JNEFILERR* '*  RELEASE LUNOS FROM FILES * ' MOVB @RL,@INFUN, SVC@INFILE  RELEASE INPUT FILE LUNO,$ MOV@INFILE,R1EXIT IF ERROR $ JNEFILERR MOVB @RL,@OUTFUN . SVC@OUTFIL  RELEASE OUTPUT FILE LUNO .$ MOV@OUTFIL,R1EXIT IF ERROR $ JNEFILERR* '*  RETURN TO SCI* ', LI R1,0 SET NORMAL COMPLETION CODES, LI R2,DONMSG EXIT EQU$ !" BLWP @S$STOP  RETURN TO SCI"FILERR EQU$ !. LI R2,FILMSG  SET ERROR RETURN CODES . JMPEXIT  EOFMSK DATA >2000 HEX00 BYTE >00 AL BYTE >91 OPEN BYTE >00 READ BYTE >0A WRITE BYTE >0C CLOSE BYTE >01 CLOSE1 BYTE >02 RL BYTE >93   EVEN " DONMSG BYTE 18! TEXT 'TRANSLATE COMPLETE'  EVEN " FILMSG BYTE 14! TEXT 'FILE I/O ERROR'  EVEN " SCIMSG BYTE 19!  TEXT 'SCI INTERFACE ERROR'   END# JNEFILERR MOVB @RL,@OUTFUN . SVC@OUTFIL  RELEASE OUTPUT FILE LUNO .$ MOV@OUTFIL,R1EXIT IF ERROR $ JNEFILERR* '*  RETURN TO SCI* ', LI R1,0 SET NORMAL COMPLETION CODES, LI R2,DONMSG EXIT EQU$ !" BLWP @S$STOP  RETURN TO SCI"FILERR EQU$ !. LI R2,FILMSG  SET ERROR RETURN CODES . JMPEXIT  EOFMSK DATA >2000 HEX00 BYTE >00 AL BYTE >91 OPEN BYTE >00 READ BYTE >0A WRITE BYTE >0C CLOSE BYTE >01 CLOSE1 BYTE >02 RL BYTE >93   EVEN " DONMSG BYTE 18! TEXT 'TRANSLATE COMPLETE'  EVEN " @@INSTALLATION OF ASCII TO/FROM EBCDIC CODE CONVERSION 03/24/79@(J1)!Refer to the link edit control files and link the module 'CONVRT' J0with both 'TI2IBM' and 'IBM2TI' separately. 0H2) Refer to the procedure source and install the SCI procedures forH TI2IBM and IBM2TI.(:OPERATION OF ASCII TO/FROM EBCDIC CONVERSION ROUTINES :(D Two SCI procedures are provided for executing the ascii to/from DF! ebcdic conversion routines, following are examples of their use. F([] TI2IBM # ASCII TO EBCDIC CONVERSION" INPUT ACCESS NAME :.SAMPLE " OUTPUT ACCESS NAME : MT01  DELETE CONTROL CHAR : NO  ASSIGNED LUNO >22  TRANSLATE COMPLETE: (J#The above will translate the ascii file '.SAMPLE' onto MT01 in ebcdic J([] IBM2TI #EBCD IC TO ASCII CONVERSION INPUT ACCESS NAME : MT01& OUTPUT ACCESS NAME : .SAMPLEIN &" DELETE CONTROL CHAR : NOYES " ASSIGNED LUNO >22  TRANSLATE COMPLETE: (H"Entering 'YES' in responce to 'DELETE CONTROL CHAR' will delete the HH"first character of the input record, this was provided to facilitateHD reading an ebcdic card deck that was punched onto tape and will D*shorten the record length by one byte.*(H"RESTRICTIONS ON USE OF THE ASCII TO/FROM EBCDIC CONVERSION ROUTINES H(&1)ALL files MUST be sequencial, &2no other file type is supported at this time. 2D2)all files must have a logical record length of 140 or less, D,otherwise the record will be truncated. ,F!however, this is an assembly-time constant and may be increased byFchangiBng the 'LRECL' equate in the source files for TI2IBM & IBM2TI,B4re-assembling and re-linking the object modules.4((COMMENTS: # .OBJECTA = .OBJECT.TI2IBM .OBJECTB = .OBJECT.IBM2TI .OBJECTC = .OBJECT.CONVRT. .SOURCEA = .S$PROC.IBM2TI, .S$PROC.TI2IBM. .SOURCEB = .SOURCE.TI2IBM .SOURCEC = .SOURCE.IBM2TI .SOURCED = .SOURCE.CONVRTF! .SOURCEE = CONTROL FILE TO LINK .OBJECT.TI2IBM TO .OBJECT.CONVRTFF! .SOURCEF = CONTROL FILE TO LINK .OBJECT.IBM2TI TO .OBJECT.CONVRTF(F1. CHANGE NAMES IN .SOURCEE & SOURCEF TO AGREE WITH OBJECT NAMESFB2. CF(PROG) TO CREATE PROGRAM FILE OR 2ND LINK WILL NOT WORKBF3. XLELINK .OBJECT.TI2IBM TO OBJECT.CONVRT USING CF(PROG) FILEFF4. XLELINK .OBJECT.IBM2TI TO OBJECT.CONVRT USING CF(PROG) FILEF.5. CHANGE PROCS TO AN=CF(PROG) FILENAME .(BM2TI,B4re-assembling and re-linking the object modules.4((COMMENTS: # .OBJECTA = .OBJECT.TI2IBM .OBJECTB = .OBJECT.IBM2TI .OBJECTC = .OBJECT.CONVRT. .SOURCEA = .S$PROC.IBM2TI, .S$PROC.TI2IBM. .SOURCEB = .SOURCE.TI2IBM .SOURCEC = .SOURCE.IBM2TI .SOURCED = .SOURCE.CONVRTF! .SOURCEE = CONTROL FILE TO LINK .OBJECT.TI2IBM TO .OBJECT.CONVRTFF! .SOURCEF = CONTROL FILE TO LINK .OBJECT.IBM2TI TO .OBJECT.CONVRTF(F1. CHANGE NAMES IN .SOURCEE & SOURCEF TO AGREE WITH OBJECT NAMESFB2. CF(PROG) TO CREATE PROGRAM FILE OR 2ND LINK WILL NOT WORKBF3. XLELINK .OBJECT.TI2IBM TO OBJECT.CONVRT USING CF(PROG) FILEFF4. XLELINK .OBJECT.IBM2TI TO OBJECT.CONVRT USING CF(PROG) FILEF !9ITI2IBM IBM2TI U a CONVRT mo7-./% <=2&?'@O{[lP}M]\Nk`Kaz^L~no|JZ_myjС !"#$()*+, 01345689:;>ABCDEFGHIQRSTUVWXYbcdefghipqrstuvwx*p *xJ!ʁp*v&& jd &I`@*v*pʪhj&&  @& @ڻb*zʐnʪpf/`*a ; K/r[\J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*p* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* $jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ 2  ,` R  ,` R $ ,`"`:`SYSTEMp `  & R  `h  R  ``  `  `   r  R  `t  .S$FTLF00 R v ~`  ``U @@ u}8_AjT    [.<(+!&]$*);^-/|,%_>?`:#@'="abcdefghijklmnopqr~stuvwxyz{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789*p *xJ!ʁp*v&& jd &I`@*v*pʪhj&&  @& @ڻb*zʐnʪpf/`*a ; K/r[\J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC*p* ā*/ jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`=`F%00څڅj ʁ* $jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ 2  ,` R  ,` R $ ,`"`:`SYSTEMp `  & R  `h  R  ``  `  `   r  R  `t  .S$FTLF00 R v ~`  ``U @@ u}8_AjT @ @ @  @ @~ U/`x U/`p V/`h V/`` T W/`I` `R` TѤєF& X/`' Y/` Z/` [/` [/`\ p TRANSLATE COMPLETEFILE I/O ERRORSCI INTERFACE ERRORA@PQR`jjjj ~@K[KKk * %@Ln@@@@@@@@@@@~@K[k*6 %@Ln@@@@@@@@@@@~@K[KK6< %@@@@@@@@@@@@K[KK<. %@@@@@@@K[.< %@@@@@@@@@@@@K[KK@<$ %@@@@@@@@@@@@@@@@@@@@$6 %@@k@@@@@k@@@@@@6 %@Ln@K@|[[kkJ$ %@Ln@@@@@@~k~\\\@@`@@@@@~@|[[@\\\@J> %@Ln@@@@K@~\\\@@`@@@@@\\\> %@Ln@KF" %@Ln@\\\\\\\\\\\\\\\\\\\\@@@@@\\\\\\\\@F8 %@Ln@@@@@@@@~@K[KKk@8. %@Ln@@@@@@@@@@~@KKk.8 %@Ln@@@@@@@@@~@K[KKk8:@4 %@Ln@@@@@@@@@@~@K[KK4< %@@@@@@@@@@@@@@@@@@@@@@@@@K[KK@<2 %@@@@@@@@@@@@@@@@@@@@@@@@KK2< %@@@@@@@@@@@@@@@@@@@@@@@K[KK<: %@@@@@@@@@@@@@@@@@@@@@@@@K[KK@:  %@  %@@@  %@Ln@K@[[@~|[[  %@Ln@K@|[[kk4 %@Ln@@@@K@@@@@@@@K[KK4 %@Ln@K %@Ln@K@|[[kkR( \@@\\@@\\@@\\@@\\@@\\@@\\@@\\ %RP' %@Ln@@@@@~k~\\\@@`@@@@@~@|[[@\\\@PF" %@Ln@@@@K@~\\\@@`@@@@@\\\@F %@Ln@K %@Ln@K@|[[kk %@Ln@@@@@@~k~\8\\@@`@@@`@@~@|[[@\\8J$ %@Ln@@@@K@~\\\@@`@@@`@@\\\@J %@Ln@K: %@Ln@@~k~\\\@@`@@@\\\@:$ %@@@@@@@@@$B %@@@@@@@@@@@@@@@@@@@@@@@@@@\\\@@`@@@\\\B8 %@Ln@K@~\\\@@`@@@\\\@8n@K@|[[kk4 %@Ln@@@@K@@@@@@@@K[KK4 %@Ln@K %@Ln@K@|[[kkR( \@@\\@@\\@@\\@@\\@@\\@@\\@@\\ %RP' %@Ln@@@@@~k~\\\@@`@@@@@~@|[[@\\\@PF" %@Ln@@@@K@~\\\@@`@@@@@\\\@F %@Ln@K %@Ln@K@|[[kk %@Ln@@@@@@~k~\@M08903A001 A80058MX-18340/U 22 1ANALYZER,AUDIO 0 01AM08903A001 284808903B001908C02 72 M08903A006 3 68 01JM08903A006 3 68POST, BINDING, ELECTRICAL M08903A012 A002 00010000100000150 A013 01CM08903A012 M1 9 M08903A018 MP3 9 01DM08903A018 M08903A022B 3 16B 01JM08903A022B 3 16BSCREW, EXTERNALLY RELIEVED BODY M08903A029 Z284802190-0652 52 3WASHER,LOCK 0 01AM08903A029 5310 EA0000000075EA0000000075  M08903A035 A002 0002REF 00000004 A032 01CM08903A035 9 M08903A041 CP 01EM08903A041 3 15 M08903A047 3 32SCREW, MACHINE 01KM08903A048 Z284802190-0586 32 3WASHEM08903A054 C2848008903-20054 32 7HTSK,ELEC-ELEK CMPT0 01AM08903A054 5999 EA0000006250EA0000006250 M08903A060 A002 00020000600000004 A119 01CM08903A060 A 9 M08903A066 CP 01EM08903A066 3 92  M08903A072 A002 00010000100000004 A070 01CM08903A072 A MP47 9 M08903A078 9 01DM08903A078 M08903A084 3 108 01JM08903A084 3 108RIVET, TUBULAR M08903A091 C2848008640-40052 32 7LEVER,SWITCH 0 01AM08903A091 5930011150240 EA0000000975EA0000000975 M08903A097 5999 EA0000000850EA0000000850 1PAHZZ A 3 UA 01BM08903A097 A002 00010000100000001 ~M08903A102 3 118CLAMP, LOOP 01KM08903A103 Z284800515-0372 ~ 32 3SCREWM08903A108 CP 01EM08903A108 3 77 M08903A114 3 44 01JM08903A114 3 44SCREW, ASSEMBLED WASHER M08903A120 U2 9 01DM08903A120 M08903A126 A1 9 01DM08903A126 M08903A131 4 6CAPACITOR, FIXED, CERAMIC DIELECTRIC 01KM08903A132 D284801990-0665 32 1LIGHTxM08903A138 D284805041-1832 32 7PUSH BUTTON 0 01AM08903A138 5930 EA000000x0270EA0000000270 M08903A144 A126 00010000100000010 A167 01CM08903A144 MP8 9 M08903A150 CP 01EM08903A150 4 31 M08903A156 4 27PUSH BUTTON 01KM08903A157 D284805041-0815 32 7PUSH M08903A163 5930 EA0000000270EA0000000270 1PAHZZ A 3 UA 01BM08903A163 A126 0001REF 00000010 A1M08903A169 MP34 9 01DM08903A169 rM08903A175 4 46 01JM08903A175 4 46PUSH BUTTONr M08903A181 5905002701403 EA0000000010EA0000000010 1PAHZZ A 3 UA 01BM08903A181 A126 00010000200000080 M08903A186 CG 01EM08903A186 4 57 M08903A192 5905010902994 EA0000000480EA0000000480 1PAHZZ A 3 UA 01BM08903A192 A126 00010000100000080 M08903A197 4 7MICROCIRCUIT, DIGITAL 01KM08903A198 D284801990-0753 32 1DISPLM08903A203 CG 01EM08903A203 4 17 lM08903A208 4 22SOCKET, PLUG-IN ELECTRONIC COMPONENTS 01KM08903A209 Z284800515-0655 l 32 3SCREW M08903A215 D284800121-0422 72 1CAP,VAR,CER DIEL 0 01AM08903A215 18736TP5G 52 M08903A220 C8 9 01DM08903A220 M08903A225 11 5CAPACITOR, FIXED, CERAMIC DIELECTRIC 01KM08903A226 D284800160-4832 72 1CAP,FM08903A232 04222SA101A680JAA 52 03AM08903A232 5910011899229 EA0000000055EA0000000055 M08903A238 D56289592CC0G270J100B 52 1CAP,FXD,CER DIEL 0 01AM08903A238 5910 EA0000000060EA0000000060 fM08903A243 11 7CAPACITOR, FIXED, CERAMIC DIELECTRIC 01KM08903A244 D284800160f&-4791 72 1CAP,F&M08903A250 D284800160-6370 32 1CAP,FXD,MTCH SET 0 01AM08903A250 5910 EA0000001900EA0000001900 M08903A256 D284800160-4832 72 1CAP,FXD,CER DIEL 0 01AM08903A256 5910011532519 EA0000000065EA0000000065 M08903A262 A211 0001REF 00000060 A217 01CM08903A262 C104 9 M08903A268 284801901-0050 72 07AM08903A268 5961 EA0000000010EA0000000010 M08903A274 D07263FDH5323 52 1SEMICOND DVC,DIODE 0 01AM08903A274 5961 EA0000000020EA0000000020 `M08903A280 D96906MS14046-4 22 1CHOKE,RADIO FREQ 0 01AM08903A280 998`,001537-36 52 ,M08903A285 MP2 9 01DM08903A285 M08903A291 5961003042783 EA0000000675EA0000000675 1PAHZZ A 3 UA 01BM08903A291 A211 0002REF 00000240 A2M08903A297 5905002330851 EA0000000040EA0000000040 1PAHZZ A 3 UA 01BM08903A297 A211 00010000200000080 M08903A302 11 76RESISTOR, FIXED, FILM 01KM08903A303 D81349RNC55J3001BS 22 1RESISM08903A308 R15 9 01DM08903A308 ZM08903A314 D81349RLR05C22R0GS 22 1RESISTOR,FIXED,FILM0 01AM08903A314Z2 5905011709082 EA0000000050EA0000000050 2M08903A319 11 34RESISTOR, FIXED, FILM 01KM08903A320 D267695023Z1/10T13-4981B 52 1RESISM08903A325 R47 9 01DM08903A325 M08903A331 A211 00010000100000080 A477 01CM08903A331 R56 9 M08903A337 A211 0003REF 00000080 A190 01CM08903A337 R67-69 9 M08903A343 284800757-0442 72 03AM08903A343 5905007213739 EA0000000010EA0000000010 TM08903A349 5905003909930 EA0000000030EA0000000030 1PAFZZ A 3 UA 01BM089T803A349 A211 0001REF 00000080 A38M08903A355 5905001468521 EA0000000060EA0000000060 1PAHZZ A 3 UA 01BM08903A355 A211 00010000100000080 M08903A361 R121 9 01DM08903A361 M08903A367 R128-131 9 01DM08903A367 M08903A372 11 12MICROCIRCUIT, LINEAR 01KM08903A373 D284801826-0783 72 1MICROM08903A378 U14 9 01DM08903A378 NM08903A384 284801902-0029 72 0N>5AM08903A384 5961 EA0000000045EA0000000045 >M08903A389 12 82PRINTED WIRING BOARD 01KM08903A390 D284800160-4834 72 1CAP,FM08903A395 12 79 01JM08903A395 12 79CAPACITOR, FIXED, PLASTIC DIELECTRIC M08903A401 12 3 01JM08903A401 12 3CAPACITOR, FIXED, CERAMIC DIELECTRIC M08903A408 D00853RDM19F2470F1C 52 1CAP,FXD,MICA DIEL 0 01AM08903A408 5910 EA0000000320EA0000000320 M08903A413 12 7 01JM08903A413 12 7CAPACITOR, FIXED, CERAMIC DIELECTRIC HM08903A419 12 3CAPACITOR, FIXED, CERAMIC DIELECTRIC HD 01KM08903A420 D284800160-3510 32 1CAP,FDM08903A426 5910 EA0000000500EA0000000500 1PAHZZ A 3 UA 01BM08903A426 A388 00010000100000100 M08903A431 12 58SEMICONDUCTOR DEVICE, DIODE 01KM08903A432 D96906MS14046-4 22 1CHOKEM08903A438 D284800403-0026 72 3BUTTON,PLUG 0 01AM08903A438 02768207-120241-03-0101 52 M08903A443 12 38RESISTOR, FIXED, FILM 01KM08903A444 D284801810-0208 72 1RES NM08903A449 CG 01EM08903A449 12 11 BM08903A455 A388 00010000500000080 A68BJ2 01CM08903A455 R14 9 JM08903A461 D81349RNC55J1002BS 22 1RESISTOR,FIXED,FILM0 01AM08903A461 5905002337104 EA0000000095EA0000000095 M08903A467 A388 0001REF 00000080 A457 01CM08903A467 R30 9 M08903A473 CG 01EM08903A473 12 15 M08903A479 12 5RESISTOR, FIXED, FILM 01KM08903A480 D81349RNC55K1003FS 22 1RESISM08903A486 D81349RNC55K3161FS 22 1RESISTOR,FIXED,FILM0 01AM08903A486 284800757-0279 72 1BM08903B241 B067 0001REF 00000080 A1>M08903B247 B067 0002REF 00000080 A449 01CM08903B247 R124,125 9 M08903B253 CG 01EM08903B253 15 12 M08903B259 U5 9 01DM08903B259 M08903B265 5962011374383 EA0000001100EA0000001100 1PAHZZ A 3 UA 01BM08903B265 B067 0001REF 00000100 A5M08903B271 B067 0001REF 00000100 B054 01CM08903B271 C U19 9 HM08903B277 B067 0001REF 00000240 A787 HD 01CM08903B277 AB VR5 9 DM08903B283 B280 0002REF 00000060 A244 01CM08903B283 C11,12 9 M08903B289 04222SA101A180JAA 52 03AM08903B289 5910011719387 EA0000000050EA0000000050 M08903B294 16 29CAPACITOR, FIXED, ELECTROLYTIC 01KM08903B295 D284800160-4832 72 1CAP,FM08903B301 5961 EA0000000010EA0000000010 1PAHZZ A 3 UA 01BM08903B301 B280 0006REF 00000240 A2M08903B307 D801311N4150 52 1SEMICOND DVC,DIODE 0 01AM08903B307 5961 EA0000000010EA0000000010 BM08903B313 D96906MS90538-12 22 1CHOKE,RADIOBJ FREQ 0 01AM08903B313 5950000759144 EA0000000120EA0000000120 JM08903B319 5999002308837 EA0000000025EA0000000025 1PAHZZ A 3 UA 01BM08903B319 B280 00010000100000300 M08903B324 16 36 01JM08903B324 16 36TRANSISTOR M08903B330 16 63RESISTOR, FIXED, FILM 01KM08903B331 D81349RNC60K6R81FS 22 1RESISM08903B337 D81349RNC60H1000FS 22 1RESISTOR,FIXED,FILM0 01AM08903B337 5905004712259 EA0000000010EA0000000010 M08903B343 5905010565014 EA0000000105EA0000000105 1PAHZZ A 3 UA 01BM08903B343 B280 0001REF 00000080 A8S$SDS$ *638 12/07/7909:28:40 NBSN PRO NO DEL >8S$SLG1 * 77 07/25/8911:39:11 BS C SEQ YES86S$SLG2 *0 01/00/0000:00:05 BS C SEQ YES6>S$TCALIB *2 07/25/8911:31:00 NBSN REL NO DEL >6TEMP *933 04/01/8017:12:34 BS N SEQ YES6"11:45:01 TUESDAY, JUL 25, 1989. "01/02/8013:58:31 NBSC REL NO WRT DEL B:S$FGTCA  * 12 07/25/8911:44:49 NBSN REL NO :8S$FTLF02 *1 07/25/8911:44:49 BS N SEQ YES8@S$IMAGES *817 07/25/8910:40:38 NBSN PRO NO DEL @@S$LOADER * 20 11/14/7915:04:19 NBSC IMG NO DEL @$S$OVLYA  * 33 04/01/8017:1$ P************************************************************* PP* PP*=P0629 GJ 07/30/80 STR #06732 3.3.3 KIF PP* PP* IF BETWEEN THE TIME A READ OF A RECORD AND A REWRITE OF THE PP* RECORD, AN OPERATION IS DONE TO THE FILE THAT AFFECTS THE PP* LEAF NODE THE KEY READ IS IN BUT DOES NOT CAUSE A SPLIT, PP* THE REWRITE WILL INCORRECTLY RETURN A >B9 ERROR. PP* PP*#SYN SKIF3,KIF3 P* J JP.IF "@KIF3" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@SKIF3,ADR=@KIF3+>0FF6+>008E, PP V=>133C,D=>1335,C=>1335 PPEC PP.ENDIF PP*$ PP************************************************************* PP* PP*=P0649 RVL 08/18/80 STR #06866 3.3.3 DSR911PF P* 8 8P* PATCH 499 HAS AN INCORRECT ADDRESS FOR THE 911 POWER PP* FAIL DSR. PP* PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>26D4+>01E2, PP V=@DSR911PF+>064A,D=@DSR911PF+>08CA,C=@DSR911PF+>08CA PPEC PP.ENDIF PP*$ P*MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>*&0240, &P V=>2E32,D=>2E33,C=>2E33 PPEC PP************************************************************* PP* BEGIN RELEASE 3.3.4 PATCHES PP************************************************************* PP* PP*=P0650 RVL 08/15/80 STR #06868 3.3.4 DSR911 PP* PP* THE 911 DOES NOT CHECK THE RECORD LENGTH ON A READ P<* DEVICE STATUS. MORE CHARACTERS MAY THEN BE RETURNED < P* THAN WERE REQUESTED AND MAY DESTROY SYSTEM TABLE LINKAGE. PP* PP.IF "@DSR911" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F2, PP V=>CAA4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>00F4, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PPEC PNMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, N P V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 P EC D DPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911+>00F8,C=@DSR911+>00F8 PPEC PP.ENDIF PP.IF "@DSR911PF" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013C, PP V=>CAA4,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>013E, P V=>0002,D=@S$$PAT+>019A,C=2@S$$PAT+>019A 2PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PP V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 P0EC 0 PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911PF+>0142,C=@DSR911PF+>0142 PPEC PP.ENDIF PP.IF "@DSR911WP" ,NE, NONE PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010C, PB V=>CAA4,D=>0460,C=>0460 B PEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>010E, PP V=>0002,D=@S$$PAT+>019A,C=@S$$PAT+>019A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019A, PP V=(>DEAD,>DEAD),D=(>8821,>0006),C=>8827 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>019E, PP V=>DEAD,D=@ROOT+>024E,C=@ROOT+>024E PPEC P T@PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A0, PP V=(>DEAD,>DEAD,>DEAD),D=(>1103,>CAA4,>0002),C=>DBA5 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01A6, PP V=(>DEAD,>DEAD),D=(>0002,>0460),C=>0462 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AA, PP V=>DEAD,D=@DSR911WP+>0112,C=@DSR911WP+>0112 PPEC PP.ENDIF P*$ > >P************************************************************************** PP* PP*=P0709 MU 08/29/80 STR #07096 3.3.4 DSR911 PP* PP* THIS PATCH CORRECTS THE FOLLOWING: WHEN CHARACTER VALIDATION PP* FAILS, HIT LEFT FIELD, LEFT ARROW, AND THE INTENSITY OF THE PP* FIELD BECOMES LOW CAUSING NO CHARACTERS TO BE ACCEPTED. PP* **** NOTE -- PATCH 453 MUST HAVE BEEN APPLIED FOR THIS PATCH PP* **** TO APPLY PROPERLY. P$* $, ,P*#SYN S911PF,DSR911PF PP*#SYN S911WP,DSR911WP PP*#SYN S911,DSR911 PP*#SYN SROOT,ROOT PP*.EVAL S$$PAT="@ROOT+>0000" PP* PP.IF "@DSR911" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>01C8, P6 V=(>06A0,@S$$PAT+>014E), 6 P D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>02BE, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911,ADR=@DSR911+>0568, PP V=@DSR911+>0400,D=@S$$PAT+>014E,C=@S$$PAT+>014E PPEC PHMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, H P V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>1802,D=@DSR911+>0400,C=@DSR911+>0400 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC P.ENDIFJ JP* PP* PP.IF "@DSR911PF" ,NE, NONE PP* PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0256, PP V=(>06A0,@S$$PAT+>014E), PP D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>041A, P V=(>06A0,@S$$PAT+>0814E), 8P D=(>C024,>003A),C=>C01E PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911PF,ADR=@DSR911PF+>0780, PP V=@DSR911PF+>05AA,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>C002,>0A80,>04C0), PP D=(>C024,>003A,>0460),C=>C47E PPEC P*MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>*&0154, &P V=>1802,D=@DSR911PF+>05AA,C=@DSR911PF+>05AA PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0156, PP V=(>0200,>8080,>045B), PP D=(>DEAD,>8080,>DEAD),C=>8080 PPEC PP.ENDIF PP* PP* P<.IF "@DSR911WP" ,NE, NONE < P* PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>01F6, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PPMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0318, PP V=(>C002,>0A80,>04C0,>1802), PP D=(>C024,>003A,>1003,>1002),C=>C01F PPEC PNMPI PF=IMAGE,MT=OV,MN=@S911WP,ADR=@DSR911WP+>0644, N P V=@DSR911WP+>04B0,D=@S$$PAT+>014E,C=@S$$PAT+>014E PP PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>014E, PP V=(>DEAD,>DEAD,>DEAD), PP D=(>C024,>003A,>0460),C=>C47E PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>0154, PP V=>DEAD,D=@DSR911WP+>04B0,C=@DSR911WP+>04B0 PPEC PP.ENDIF P * D DP*$ PP************************************************************* PP* PP*=P0714 RVL 09/19/80 STR #07098 3.3.4 MM$SCN PP* PP* IF THE LOADER IS TRYING TO LOAD A ZERO PRIORITY TASK PP* AND MUST CAUSE A ROLL OF A TASK IN MEMORY IN ORDER TO PP* LOAD THE ZERO PRIORITY TASK, THE SYSTEM MAY HANG IF THE PP* TASKS IN MEMORY ARE ALL EITHER REAL TIME OR ZERO PRIORITY. P* 2 2PMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0094, PP V=>D022,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@ROOT+>1708+>0096, PP V=>0008,D=@S$$PAT+>01AC,C=@S$$PAT+>01AC PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01AC, PP V=(>DEAD,>DEAD,>DEAD),D=(>D022,>0008,>1304),C=>C32E PPEC P0MPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B2, 0 P V=(>DEAD,>DEAD,>DEAD),D=(>D104,>1304,>0460),C=>C660 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01B8, PP V=>DEAD,D=@ROOT+>1708+>009A,C=@ROOT+>1708+>009A PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BA, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BC, PB V=>DEAD,D=@ROOT+>1708+>00B6,C=@ROOT+>1708+>00B6 B PEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01BE, PP V=>DEAD,D=>0460,C=>0460 PPEC PPMPI PF=IMAGE,MT=TA,MN=@SROOT,ADR=@S$$PAT+>01C0, PP V=>DEAD,D=@ROOT+>1708+>00C0,C=@ROOT+>1708+>00C0 PPEC PP*$ PP************************************************************************** PP* INSERT PATCHES HERE. BE SURE TO FOLLOW EACH MPI CALL WITH AN EC CALL. P T@P* PP************************************************************************** PP* PP* PPCM R=ME,M="SYSTEM PATCH STREAM ERROR COUNT = @$E$C" PP* PPQ$SYN PP.SYN IMAGE="", S$$PAT="" PP.SYN SROOT="", ROOT="", S820="", DSR820="" PP.SYN SFILMG="", FILMG="", KIF="", KIF3="", SKIF3="" P.SYN SMEM="", MEMR>ES="", SIO="", SVCIO="" >P.SYN DDIOSR="", SDDIO="", IOC="", IOCOM="" PP.SYN S911="", DSR911="", SLP="", LPDSR="" PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************P$* THE NEXT AVAILABLE PATCH LOCATION $,IS S$$PAT+>01C2 ,P* 21 WORDS RESERVED FOR COMMCOM PATCH STARTING AT S$$PAT+>015C PP********************************************************************************P PP.SYN S911PF="", DSR911PF="", S913="", DSR913="" PP.SYN S911WP="",DSR911WP="" PP.SYN SFPY="", FPYDSR="" PP* PPSDT PPEBATCH PP********************************************************************************P$* THE NEXT AVAILABLE PATCH LOCATION $*KBT S 3 1  111/20/7916:31:35**KEY S 223  311/20/7916:27:42*(KO S 7 1  111/20/7916:27:44((KT S 7 1  111/20/7916:31:38((LB S 6 1  111/20/7916:31:40(*LBP S 5 1  111/20/7916:31:43*(LC S 3 1  111/20/7916:27:46((LD S 6 1  111/20/7916:27:49(*LDC S 4 1  111/20/7916:31:46**LLR S 193  311/20/7916:31:50*(LM S 183  311/20/7916:31:54(*LPS S 102  211/20/7916:31:56*(LS S 5 1  111/20/7916:27:51(*LSB S 3 1  111/20/7916:32: 2**LSM S 172  211/20/7916:32: 0**LTS S 6 1  111/20/7916:27:54**LUI S 101  111/20/7916:34:57**M$00 S 2 3  3 7/25/8911:30:53**M$AL S 5 1  111/20/7916:36:13*,@.M$BASIC S 6 1  111/20/7916:36:16.,M$BGB S 112  211/20/7916:36:19,,M$BKPT S 8 1  111/20/7916:36:21,*M$CF S 112  211/20/7916:36:24*.M$COBOL S 122  211/20/7916:36:27.,M$COPY S 113  311/20/7916:36:31,.M$DEBUG S 7 1  111/20/7916:36:33.,M$DEL S 5 1  111/20/7916:36:37,,M$DEV S 7 1  111/20/7916:36:40,,M$DIR S 122  211/20/7916:36:43,,M$DISK S 123  311/20/7916:36:46,.M$DVICE S 122  211/20/7916:36:49.,M$EDIT S 122  211/20/7916:36:53,,M$FILE S 9 1  111/20/7916:36:55,.M$FILEC S 112  211/20/7916:36:58..M$FORTRN S 9 2  211/20/7916:37: 1.,M$GDEB S 133  311/20/7916:37: 5, M$LANG S 102  211/20/ 7916:37: 8*M$LC S 142  211/20/7916:36: 9*,M$LUNO S 102  211/20/7916:37:11,,M$MAC S 5 1  111/20/7916:37:13,,M$MISC S 102  211/20/7916:38:32,,M$MOD S 123  311/20/7916:37:16,,M$OVER S 7 1  111/20/7916:37:19,,M$PDEB S 102  211/20/7916:37:22,,M$PDEV S 102  211/20/7916:37:25,,M$PFIL S 102  211/20/7916:37:29,,M$PROC S 6 1  111/20/7916:37:32,,M$RPG S 9 2  211/20/7916:37:35,,M$SDEB S 102  211/20/7916:37:41,,M$SGEN S 123  311/20/7916:37:45,,M$SHOW S 122  211/20/7916:37:50,*M$SM S 6 1  111/20/7916:37:53*.M$SMAIN S 102  211/20/7916:37:59.,M$SOP S 102  211/20/7916:38: 2,M$STAT S 9 2  211/20/7916:38: 5,M$SYN S 8 1  111/20/7916:38: 8,,M$TASK S 123  311/20/7916:38:12,,M$TERM S 7 1  111/20/7916:38:16,*M$TX S 112  211/20/7916:38:19*,M$USER S 7 1  111/20/7916:38:22,,M$VOL S 102  211/20/7916:38:25,,M$WARM S 102  211/20/7916:38:28,*MAD S 132  211/20/7916:35:27**MADU S 142  211/20/7916:35:30*(MD S 223  311/20/7916:27:57(*MDS S 7 1  111/20/7916:35:32**MFN S 8 1  111/20/7916:32: 4**MFP S 122  211/20/7916:32: 9**MIR S 6 1  111/20/7916:32:11**MKF S 7 1  111/20/7916:28: 0**MKL S 5 1  111/20/7916:32:13*(ML S 142  211/20/7916:28: 3(*MLP S 5 1  111/20/7916:32:16*,@(MM S 7 1  111/20/7916:32:18(*MOE S 112  211/20/7916:32:21**MPE S 152  211/20/7916:32:24**MPF S 7 1  111/20/7916:28: 5**MPI S 193  311/20/7916:32:28*(MR S 9 1  111/20/7916:28: 8(*MRF S 173  311/20/7916:32:31**MRM S 122  211/20/7916:28:11*(MS S 7 1  111/20/7916:28:15(*MSG S 6 1  111/20/7916:28:13**MSM S 5 1  111/20/7916:35:38*(MT S 172  211/20/7916:28:18(*MTE S 678  811/20/7916:32:37**MTS S 152  211/20/7916:35: 0**MUI S 122  211/20/7916:35: 3**MVI S 4 1  111/20/7916:32:39**MWR S 7 1  111/20/7916:32:42*(PB S 7 1  111/20/7916:32:44((PBP S 8 2  211/20/7916:32:(47(PF S 244  411/20/7916:28:22(*PGS S 132  211/20/7916:35:41*(Q S 182  211/20/7916:28:25(,Q$SYN S 204  411/20/7916:28:29,(QD S 6 1  111/20/7916:32:49((QE S 9 1  111/20/7916:28:31(*QE$1 S 132  211/20/7916:28:34**RAL S 6 1  111/20/7916:32:51**RCD S 8 1  111/20/7916:35:43**RCRU S 4 1  111/20/7916:35:46*(RD S 132  211/20/7916:32:55(*RGL S 5 1  111/20/7916:28:37*(RL S 5 1  111/20/7916:28:39((RO S 6 1  111/20/7916:28:42((RS S 324  411/20/7916:28:46(*RST S 3 1  111/20/7916:32:57*(RT S 6 1  111/20/7916:32:59(*RWL S 5 1  111/20/7916:28:48*&SAD S 213  311/20/7916:3&3: 3*SADU S 213  311/20/7916:33: 6**SBS S 3 1  111/20/7916:28:50**SCC S 5 1  1 4/ 1/8017: 9:14**SDT S 3 1  111/20/7916:28:53*(SF S 7 1  111/20/7916:28:55(*SIR S 6 1  111/20/7916:33:11**SIS S 142  211/20/7916:28:58**SIS$ S 4 1  111/20/7916:29: 0*(SL S 101  111/20/7916:29: 3(*SMM S 4 1  111/20/7916:29: 5**SMS S 4 1  111/20/7916:29: 8**SOS S 142  211/20/7916:29:12*(SP S 7 1  111/20/7916:33:14(*SPI S 173  311/20/7916:33:17**SPS S 5 1  111/20/7916:33:20**SRF S 233  311/20/7916:33:23*(ST S 8 1  111/20/7916:33:26(*STI S 9 2  211/20/7916:29:14*STS S 6 1  111/20/7916:29:17(SV S 5 1  111/20/7916:29:19(*SVL S 152  211/20/7916:29:22**SVS S 132  211/20/7916:29:25**SWR S 6 1  111/20/7916:33:29**TGS S 102  211/20/7916:35:49*,TI2IBM S 203  3 7/25/8910:47:17,*TXCM S 4 1  111/20/7916:33:32**TXCP S 112  211/20/7916:33:38*,TXCP$ S 212  211/20/7916:33:41,*TXDF S 4 1  111/20/7916:33:35**TXDX S 8 1  111/20/7916:29:28**TXFD S 7 1  111/20/7916:33:44**TXMD S 6 1  111/20/7916:29:30**TXSF S 5 1  111/20/7916:33:46*,TXXLE S 133  311/20/7916:33:50,(UV S 6 1  111/20/7916:29:33((VB S 9 2  211/20/7916:29:36((VC S 132  211/20/7916:29:39( WAIT S  4 1  111/20/7916:29:41 *WCRU S 4 1  111/20/7916:35:51**WEOF S 4 1  111/20/7916:29:43*,XANAL S 122  211/20/7916:33:53,(XB S 9 2  211/20/7916:29:46(*XCU S 9 1  111/20/7916:33:55*(XD S 193  311/20/7916:33:59((XE S 303  311/20/7916:29:50(*XES S 304  411/20/7916:29:54**XGEN S 4 1  111/20/7916:35:54**XHT S 122  211/20/7916:34: 2**XLE S 234  411/20/7916:34: 6**XMA S 315  511/20/7916:34:10**XMA2 S 344  411/20/7916:34:15**XPS S 7 2  211/20/7916:35:57*(XT S 132  211/20/7916:29:58(*XTS S 132  211/20/7916:34:21*, **.VCATALOG.S$PROC TOTAL SIZE = 920 ADUS,* 1S$SYSGEN:  FILES=37 AVAILABLE=16 *,@*DS D 1212 12  5/17/8214: 4:29*,QUIT D 1212 12  7/19/8910:47:12,.RLSYS D 1212 12  1/ 2/8014: 1:19.,SKI D 1212 12  5/17/8214:19:51,,SKI1 D 1212 12  7/27/8917:32:54,.COMPLT R 8127 27 11/20/7916:20:55.,CRDSR S 249  911/14/7914:53:59,,D32I S 3712 12 11/20/7916:21: 0,,D5MT S 3712 12 11/20/7916:21: 4,.DDIOSR S 3412 12 11/14/7914:57:56.,DIGDSR S 9 3  311/14/7914:54: 8,,DSR5MT S 176  611/14/7914:54:18,.DSR733 S 6421 21 11/14/7914:54:33..DSR820 S 4215 15 11/14/7914:54:46..DSR911 S 5518 18 11/14/7914:55: 1.0DSR911PF S 7221 21 11/14/7914:55:170.DSR913 S 5115 15 11/14/7914:55:30.DSR979 S 279  911/14/7914:55:42.DSRKSR S 3912 12 11/14/7914:55:56.,DUMCOM S 4 3  311/14/7914:56: 5,,DUMKIF S 4 3  311/14/7914:56:14,,DUMMY S 4 3  311/14/7914:56:22,0FILMG S 109 33 33 11/14/7914:58:170,FPYDSR S 309  911/14/7914:56:34,2GENDAT R 1648495  49511/20/7916:20:482.IOCOM S 7021 21 11/14/7914:58:37..KIF S 119 36 36 11/14/7914:56:53..KIF3 S 130 39 39 11/14/7914:57:14.,LPDSR S 196  611/14/7914:57:26,0MEMRES S 100 30 30 11/14/7914:59: 60,NOCOMM S 4 3  311/14/7914:59:17,,NOFCCC S 4 3  311/14/7914:59:26,.ROOT S 279 84 84 11/14/7915: 0:22.0SVCIO S 223 66 66 11/14/7915: 1:250&SYSLGN S 5 3  311/14/7914&:57:35,SYSLGY S 7 3  311/14/7914:57:43,,SYSLOG S 196  611/14/7915: 1:42," 2 DS: FILES=4AVAILABLE=7 "0 BATCHSTM S 408  8 5/17/8214: 4:3200 CONFIG R 1 12 144 5/17/8214: 3:5206 D$SOURCE S 1201180  218 5/17/8214: 4:2660 LINKSTRM S 406  6 5/17/8214: 4:2902 **.VCATALOG.S$SYSGEN.DS TOTAL SIZE = 388 ADUS2$ 2 QUIT: FILES=2AVAILABLE=9 $0 CONFIG R 1 12 144 7/19/8910:47:1100 D$SOURCE S 0 0  4 7/19/8910:47:1304 **.VCATALOG.S$SYSGEN.QUIT TOTAL SIZE = 160 ADUS4& 2 RLSYS:  FILES=2AVAILABLE=9 &0 CONFIG R 1 12 12  5/17/8214: 4:4802 LINKMAP S 423 75 75 11/20/7916:21:2724 **.VCATALOG.S$SYSGEN.RLSYS TOTAL SIZE = 99 ADUS 4$ 2 SKI:  FILES=11 AVAILABLE=0$14(@2 ALGSLIST S 7415 18  5/17/8214:19:2120 BATCHSTM S 408  8 5/17/8214: 9: 600 CONFIG R 1 12 144 7/27/8917:19:1104 D$LIST S 1183225  342 5/17/8214:11:5744 D$OBJECT S 133 39 48  5/17/8214:11:5746 D$SOURCE S 1132168  176 5/17/8214: 9: 06, ERROR S 3 3  3 5/17/8214:19:16,2 LINKMAP S 382 69 84  5/17/8214:15:4320 LINKSTRM S 406  6 5/17/8214: 9: 306 PATCHFIL S 2311681  741 5/17/8214:19:1664 PGSLIST S 5022726  786 5/17/8214:35: 244 **.VCATALOG.S$SYSGEN.SKI TOTAL SIZE = 2368 ADUS 4$ 2 SKI1: FILES=8AVAILABLE=3 $0 BATCHSTM S 408  8 7/27/8917:20:5600 CONFIG R 1 12 120 7/27/8917:20:1404 D$OBJECT S 142 42 45  7/27/8917:28:424 D$S2OURCE S 1225184  196 7/27/8917:20:502, ERROR S 3 3  3 7/27/8917:35:58,2 LINKMAP S 404 72 93  7/27/8917:32:1920 LINKSTRM S 436  6 7/27/8917:20:5306 PATCHFIL S 2312681  744 7/27/8917:35:5866 **.VCATALOG.S$SYSGEN.SKI1 TOTAL SIZE = 1227 ADUS 60 **.VCATALOG.S$SYSGEN TOTAL SIZE = 5334 ADUS 0( 1S$SYSLIB:  FILES=2AVAILABLE=35(*TX D 1212 12  1/ 2/8014: 8:23*,L$$OVM S 123  311/20/7916:41: 1," 2 TX: FILES=2AVAILABLE=9 ". L$$OLD S 146  611/20/7916:41:57.. L$$OVM S 229  911/20/7916:41:53.2 **.VCATALOG.S$SYSLIB.TX TOTAL SIZE = 27 ADUS 2. **.VCATALOG.S$SYSLIB TOTAL SIZE = 68 ADUS .& 1SCI990:  FILES=6AVAILABLE=5 &4S$OBJECT D 102 102  102 1/ 2/8014: 9:414ME,NU S 483 63 63 11/ 2/7911:50:20,2PROC0 S 1220156  15611/ 5/79 9: 5:2222PROC2 S 1234162  162 4/ 1/8017:11:3820PROC4 S 244 72 72  9/29/79 2:20:4400PROC6 S 182 27 27 10/26/79 8:47:520* 2 S$OBJECT: FILES=28 AVAILABLE=31 *, S$BID S 8 3  311/10/7915:33:11,. S$BIDT S 156  6 4/ 1/8017:11: 2.0 S$DSP$ S 5418 18 11/10/7915:34:1800 S$DSPL S 4315 15 11/10/7915:34:570. S$IADD S 103  311/10/7915:35:13.. S$IASC S 249  911/10/7915:35:42., S$INT S 239  911/10/7915:36: 9,. S$IO S 4715 15 11/10/7915:36:52., S$IT$ S 299  911/10/7915:37:17,. S$KEY S 3812 12 11/10/7915:38: 3.. S$MAPS S 126  611/10/7915:38:22. S*$NEW S 156  611/10/7915:38:44*. S$OVLY S 9 3  311/10/7915:39: 0.. S$PARM S 156  611/10/7915:39:24.. S$QBID S 136  611/10/7915:39:44.. S$SCOM S 6 3  311/10/7915:39:59.. S$SETS S 166  611/10/7915:40:24.. S$SHOW S 196  611/10/7915:40:44.. S$SNCT S 113  311/10/7915:41: 3.. S$SPLT S 156  611/10/7915:41:25.. S$STAT S 6 3  311/10/7915:41:38.. S$STOP S 113  311/10/7915:41:55.. S$TCA$ S 229  911/10/7915:42:21.. S$WSP1 S 9 3  311/10/7915:42:33.. S$WSP2 S 5 3  311/10/7915:42:43.. S$WSP3 S 5 3  311/10/7915:42:54.. S$WSP4 S 4 3  311/10/7915:43: 4.. S$WSP5 S 4 3  311/10/7915:43:14. **.VCATALO , G.SCI990.S$OBJECT TOTAL SIZE = 282 ADUS,, **.VCATALOG.SCI990 TOTAL SIZE = 774 ADUS,& 1TEMP1: FILES=1AVAILABLE=346 &0ALGSLIST S 7415 15  7/19/8914:37:320, **.VCATALOG.TEMP1  TOTAL SIZE = 363 ADUS," 1TI:  FILES=1AVAILABLE=4 ",SOURCE D 2 2  2 1/ 2/8014: 2: 2,& 2 SOURCE: FILES=1AVAILABLE=0 &2 TSTSDS S 114 12 12  9/29/79 2:26: 620 **.VCATALOG.TI.SOURCE TOTAL SIZE = 14 ADUS 0(**.VCATALOG.TI TOTAL SIZE = 20 ADUS ((**.VCATALOG  TOTAL SIZE = 15950 ADUS(229  911/10/7915:42:21.. S$WSP1 S 9 3  311/10/7915:42:33.. S$WSP2 S 5 3  311/10/7915:42:43.. S$WSP3 S 5 3  311/10/7915:42:54.. S$WSP4 S 4 3  311/10/7915:43: 4.. S$WSP5 S 4 3  311/10/7915:43:14. **.VCATALO 6*b#0x{^S?=ݻ-ɳ緌r\ShZΠ̄t yن^|EBxX}Q>/Mt❁z)Gyl7|H_dMK@bfow\ۥc"8`+TEZn{-ڧ LUb(}a=D} 9;Fׂ< 6C,>4]:RŶm,rus &bnd$ d&7JeXmqޭOW<?;pIg 0Rg!Nmmko`HŠ"PͩvǠu23ȩ.`߹;juˏ@Y%6cwt1:s}O-0# VD'r."7?-J+ sWhrۘՑ~Xo&ݺ[i6Ff5&[lA *6?'b?#xF^n=z熌һShe:Γ;Q ym|wEBXQK>E/tz!Ѓ)ZGlN߳cHo_d-M7K.fw\"8Y(ZTZ1{l֭L,U(a0D^ 9BFב< CTq4]v: ,rsIn $ gx ^6&7[eq`O;lpsIݖgn ?Rӆ!N mFpk.`sTŢ­BmўޯS3›P8v$u2324.ߨ:uj@Y,K^4%cV?1} 0 oV'Ai(*?.f-J+> ƆW#x: (~o_1[i06ca5A*~P"[b#x^ϝE=c+AUhҞShpΆ y熫||2EBrXQ>x/tozd)NGleBH֮_dHMPKmpfw&\Q"*8$OƏTZ{RրLUw(a[#fD49IFנ<'CF74o]:(SC ,޵ r;sJ<0nJ$/  r&7eⳣwqO;p^Ig= &Rӥ!UNbm}sk`yظEPEvw>}u2t3ȿ.FߗU,j{ @lYo%<|c5 1➠ )}+0 6V'\ͨ?-+J+ IƙWޅOÙk~oݨ6[^iw6쇲\5󙈂Asz*<751]b#x ^l̔=&~$!ҁS5h{y L4y|EeBX^Q>/ZtszY)Gflz|H_dcM=KAf(w\h"8vyTV}Z{jSxL"U'Z(aŽDNFܠ_9PF"ׯ<<JCI4J]d:W隶Z,ٵ"rsn$J ժ~ ܀&7ye]VBqOM;jpIIkhg mRr!NUmvk`ǗPDa!HPvǍxu23pJ.߆pjL@Y:q|ܪ%c1 SOԄ}ژ0 V'_˓쨣? Ĝ-bJ+ tƬW&v~oy[i6?W5-O8 Ab׍1*v b(#x3^=)Q^dSThol"P _y|E/ tN]z)/Glu@Hs_~d~MK~fwD\ǥ"p8,TtZz{ى&GLU=(a) DD}9WF5׾<mCI 4%]:,Ե9rsRn0$e  7&@76e qFyOK;p4I2;g RU !#N@mykk`ڗ!'_Nѓw`<Pyvsu2:3Ձ.,u͚jˋ@Y %c10~}[)0 V'Պ ]?{7-J+{ ƿWżTW~$olݖ[4i6PR5D׈AqiQ*B;C O`b#xrZ^*V=ɖ$ŒٕOGSsh_ y|cEB'XQ>/t)z-/)vGGlpkH_mdMuCK*fNw\"c8ߏT kZ={hĉLUU (aDZ9^FH<iC'=D4]R:i(<,ϵPrds'n$ C Z&7qe ✣zqm,OB;hpIg R8!Nm"|k*`0@9ؙ:ΛPvp+nu623`.dQj@mYH %AecҸk1W:}0 Vc'}U!*?-J+: ʹWԼԂ!öL~Wom [iL6凟M5[v#AXܟ@ *ŋz8ʦޜbn#jx=^Y=o']瑌T*Sh=RfX y|EBJX?Q>D/gtKzp)GSlkγ~H&rY_\dM,KiBٌfwb\=m"B8PETgbZ{簯ņLU:(a"D9eF[w/tߝz)Glfز1HY_KdMIKftw\x"Y!8EtTYZ{f5֟LUY(a^⿑D"!ؠ 9lFn<(C>4]@:c?鶶,ŵ~r*sen$ ؀8&7e8nqޒOw;fpIgH R@-!XNmk`uNŬ|/шmTPvdud2c3vM.BͿj H@YVܖ%c1 }ڤ0 V 'KOWh?->J#+ W򼅅gt~oy#[~ui6=C59A&ŸC *ˋئ·eb#(x^Ϸg=r%j/JSh 8D,  y|EBXQ>/t9zp)K@GlaﲔH<@?_:dMKٚfw\"89TPZ{尅rLUx(aŎտDUY$69sF<C$Q4]:5,rs~n$ h 㙜&7D"eⅣ9qEOnW;pINg `R_8!N\mNJkg`&]qŃ¢z/CtP%vi_u{234.1vjˇ@nYPG%FNco1̞:K}g%0{ V':?7ģ-uJ&+w K W@YӘ-~o(r[}i!6އ>5>SA 5 ^*N79_UbW#x^=iUɲpŕShr+)c 6y0|OEoB X Q>/ttz9)G@l\[H'_)dMQOK&C!fw\r"8`TxGZI{dpERLU(a,ȿoD'Va9zF <CS 4l].:D4,rs no$  V#&7]eg(q Ooe;dpIZg R~C!&Nkmk&`9l,Z:־vڛP6vgZu2)3*Ȍ.k -j@Yd %cN1iԦ}*0f V'A}`?>-J)+6 vW02x`~#o״ [|Kih61۬95OAy{*ыvb#xi^Q=`{#@yC͌@BҶShȡ" ayC| EFBփjXkQ*>/#tp'z|F)GlWZHR%_d MKe٨f-w\)"B8|^T>Z {[!LUH(aD*9F+@県ҙS-hӡ@_ Dy&V|EBXQ>C/tKzб) 9GlR4H_d;MUK/fw-\d "8G0T.5Z{bFQLUߒr(aMD&-Ԡ9F'<sbCAo^4"]:oҶ.,rsOnUc$" Ԁ1&E7enqW^O\%S;bpIg y%RӼY!NI-mlk`!*_ [$ܯ)9`PfvbPu23hȢ.QH͛jD@oYr ܂%K7c -1A\}ڰ0< 5VU'W7ի.?t-J/+ ̹ DW.qނ~o5׺[z!i6ׇy/5g0eAڤ*׋:8pb@#xk^s=N!k6p|SLhޡ y-i|EB(XQx>v/t&z)gG-lMK 8Hhܮ _dVMvKDٶfSw\w"|8ď_T,Z{1־LuUvU(aaD509F6<JC4 4]:V!,rs6nR$= D &7eleq~OJc;pIjgS Rmd![N~mkc`L1r].Wئ˾PPѩ vTKu2R3-.cRj˃@Yܽ%c1hԷ}s!0' V('&̲BƓ?-QJ2+s WW=,OYU~ojN[yi=6*Ȭ*5ψAɤʍ*Z3{ǜb#x^jϢ.=EĻ:_Skho? y4|!|;EB?XLQ>/0tzEЇ)G|lHbHî~_dqM-[K"=fwK\ڥ"+[8ݱwT#ZU{`֑LU 8( aȎ+D\l3R 9FE<!C(4] :`p,r|s5n;A$X R:?&k7Ieⴣr0qO۽A&;`pwI1g" oSRPo!Nq'cmڊk"`w8ŶQrB曘P/tܝz)2GlCyvH~_dMKafyw\%":8#*T?Z{߰d]LkU2(a/D689FT)Pv[Au23EC.j@pY3%P c1Tm}0 V'̨pAc?E-J8+ M }W[c\ ~"oB /tzz])IH d_dMaKEKf wi\P|"q8sJݏTZ{^m7,LU;Q("az D9Рc9Fc<Cv;4]:{z,6rBs]Kn!$ i ЀM&7-eq0q*O/;^pMILg eR8!NWmHk`Fd—t؇lPvAB/=tz)Gil9Hx_dMRKfw\"8>qTZ{ݰ݉4 LaUҒp(-amxD-<9Fr<C`n4i]o:5],Mrsn$ % ;&$7e❣qOG&o;p8Ig RW!NJt4mk_`MI;ºgۯ,P}'vǐ7u323Yl.ߩ.j@Yܩ%fcg$1j#}0 Vt'b̞՞R21g?{--J>+o .ƣWy˘~o*[u8iY6v5XVKAE͟6|*f/tbo#x.^6^=!лvcSh+ yP]|'E'B˃XxQ>u/tmhzQ3)+Gl4SH_J_dM gKYf2w\ƥ*"8 CJTPZa{\ȉݧLUi(8ad`DȭH?N9F,ׁ/tHzО)~Gl/ղrHF_dMK]Ffw\"Z8ԱyTZ${۰ְLWU(CaˎSVDcB 9F?א<1TWCk'4]]:Dös,{rks:nz$ + &J7pev'qhCO;pIg- FRӕ!N0Rjm튣k`N[hѵA65PSv.-ua23o:.v߇͜j@Y#%c%1R}q0 V'̔HM?ı-JD+ /Jt#Vz )XGVl*ճH5-0_dMwmKgfXw\<"8TZ{ZփhLU(Na2FDE̠9FRן<+zC9A4]:C J,rswn$ E ̀/tzt)$Gl%80H_nd.M.Kfw4\w/"t8j \TaZ{ٰPV7LMU.m(Ya94DH:9Fe׮<C:4]K:Q,r1sxnn`$ 1 &p7e$)qީOX{;pIkg tR!N0m[k[`i 5ŗFOPP)CvM#u2j3ȅ.\e; j{@rY14ܕ%ZcP16nԏ}_ڋ0 4V'̊ޓ^3?k- JJ+k OJWm.G~To\B[qiu6‡@5LjHAAX*r+=9?b#{x"^=ܻYT粌wSchAFΏm *:yl|EBWXQW>A/tٝDz])wGl HK_]dIMsKGuf~w\"CS854TZm{Xt)LUŒP (da,D4$KJe9Fx׽;XpIi>g G Rh!N ;mk`p niIѪگPvu23.TVj4˺@Y%c¸1Ǟ}VN0j V'mՑi4&?Ă-@JM+* zQWļDQæ4~o }/[pOi65EfA 0*j:̷Μ'b#Zx^Ia=D'灌VZShL΂V. -yeys'|EZBzXQ>t/WtzJ)-GCl1nH⮉_LddMKYfwR\"28[5TZ0{װ_LCU\3*(oagDϭ[N 9F<CV"4]9:P߶7,zrs