Установка RSTS/E 7.0

Из всех систем работающих на PDP-11 мне больше всего нравится RSTS/E версии 7.0 Она многопользовательская, легко настраиваема и в ней уже сразу есть BASIC-PLUS и TECO.

По сравнению со старшими версиями, софта сохранилось для семерки не много, но кое что можно найти.

Как обычно выкладываю полный лог генерации системы из гуляющих по сети 3х дисков RL01. Мои ответы выделены черным, там где не указаны ответы было нажато CTRL+J, это отправит LF и будет соотвествовать ответу по умолчанию.

Прикладываю архив с simh и конфигом sys.zip с которого я начал установку.

sim> att rl1 rsts_sysgng.dsk
%SIM-INFO: RL1: './rsts_sysgng.dsk' Contains a RSTS File system
%SIM-INFO: RL1: Pack ID: SYSGNG Revision Level: 0.0 Pack Clustersize: 1
%SIM-INFO: RL1: Last Unallocated Sector In File System: 10219
sim> set rl1 lock
sim> B RL1

Enabling only console, disks, and tapes.

RSTS V7.0 (DL1)

Option: DSK

DD-MMM-YY? 19-FEB-85
12:00 PM? 05:57

Disk? DSK
Sorry, but that disk doesn't exist
Disk? RL0
Pack ID? DISK0
Pack cluster size? 2
SATT.SYS base? 
MFD password? SYSTEM
MFD cluster size? 16
Pre-extend directories ? 
PUB, PRI, or SYS? SYS
Library password? SYSTEM
Library UFD cluster size? 16
Date last modified ? 
New files first ? 
Patterns? 1
Proceed (Y or N)? Y
Invalid data in error record sector # 1
Invalid data in error record sector # 2
Invalid data in error record sector # 3
Invalid data in error record sector # 4
Invalid data in error record sector # 5
There are no valid error records on this pack.
If you wish to continue the DSKINT, you must specify
the number of patterns to be used in checking the disk.
No factory error information will be used.
Continue with DSKINT? Y
Patterns? 1
Proceed (Y or N)? Y

Pattern # 1

Option: COP

19-Feb-85? 
05:59 AM? 

To which disk? RL0

Enabling only console, disks, and tapes.

RSTS V7.0 (DL0)

Option: REF

19-Feb-85? 
05:59 AM? 

Disk? RL0

Clean? N

  REFRESH suboption? CHA

  SWAP.SYS changes? Y

    Size? 256

    Base? 

  SWAP0.SYS changes? 

  SWAP1.SYS changes? 

  SWAP3.SYS changes? 

  OVR.SYS changes? 

  ERR.SYS changes? 

  BUFF.SYS changes? 

  CRASH.SYS changes? Y

    Size? 35

    Base? 

  Other files? 

  REFRESH suboption? 

Option: INS

Sil? SYSGEN
  Rebooting . . .

RSTS V7.0 (DL0)

Option: DEF

No defaults are currently set in SYSGEN.SIL

You currently have: JOB MAX = 2, SWAP MAX = 16K.

JOB MAX or SWAP MAX changes? Y

  New JOB MAX? 

  New SWAP MAX? 28

You currently have: JOB MAX = 2, SWAP MAX = 28K.

JOB MAX or SWAP MAX changes? 

Run Time System? RT11

Error message file? ERR

Installation name? PICO

  Memory allocation table:

     0K: 00000000 - 00127777 (  22K) : EXEC
    22K: 00130000 - 00147777 (   4K) : RTS (RT11)
    26K: 00150000 - 00757777 (  98K) : USER
   124K: 00760000 - End              : NXM

  Table suboption? 

You currently have crash dump disabled.

Crash dump? Y

Magtape labelling default ? ANSI

Preferred clock ? 

Date format ? 

Time format ? 

Power fail delay <1>? 

Option: 

You currently have: JOB MAX = 2, SWAP MAX = 28K.

You currently have crash dump enabled.

19-Feb-85? 
06:02 AM? 

15 devices disabled

?Can't find file or account
.MOUNT DL1:SYSGNG/RO

.R DL1:CREATE.SAV

  ^C
  HELLO 1/2
  Password:
  1 other user is logged in under this account

  .
  .ASSIGN DL1: IN

  .R IN:PIP.SAV
  *SY:$*.*<232>=IN:$LOGIN.SAV,$LOGOUT.SAV,$PIP.SAV
  *SY:$*.*<104>=IN:$UTILTY.SAV
  *SY:$*.*<104>=IN:$MACRO.SAV,$CREF.SAV,$LINK.SAV
  *SY:$*.*<104>=IN:$SILUS.SAV,$HOOK.SAV,$SYSGEN.SAV
  *SY:$*.*<124>=IN:$SYSBAT.SAV
  *SY:$*.*<104>=IN:$ONLPAT.SAV
  *DK:$*.*< 40>=IN:$ERR.STB,$PIPSAV.TXT
  *SY:[0,1]*.*<40>=IN:$TECO.RTS
  *SY:[0,1]*.*/MO:16=SY:[0,1]TECO.RTS
  *SY:$*.*<104>/RTS:TECO=IN:$TECO.TEC
  *^C

  .DEASSIGN IN

  .DISMOUNT DL1:

  .R LOGOUT
  Confirm: Y
  Saved all disk files; 516 blocks in use
  Job 2 User 1,2 logged off KB1 at 19-Feb-85 06:02 AM
  1 other user still logged in under this account
  System RSTS V7.0-07 PICO
  Run time was 0 seconds
  Elapsed time was 0 minutes
  Good morning

**19-Feb-85**

Beginning of RSTS/E  system  generation.

Questions come in long and short  forms.
If  you  are  familiar with them, answer
"S" for short; otherwise, answer "L" for
long form.

Form ?                          #S #    L

The  system  will  automatically  supply
answers to all of its prompts.  You have
the  option  of  accepting  the  answer,
supplying   a   different   answer,   or
requesting the full printed message. The
hardware answers will be meaningful only
if you  are  generating a system for the
computer  that you are currently running
on.  If you are generating a system  for
this  computer,  type "YES";  otherwise,
type "NO".

Same system ?                   #Y #    

The  RSTS/E  system  is  distributed  on
magtape;  RK05 (DK), RL01 (DL), and RK06
and RK07 (DM)  cartridge disks;  or  may
already  have  been  transferred  to the
system  disk (SY).  For magtape,  a dis-
tinction  must be made between the TU10,
TE10,  and  TS03 drives,  which use  the
device name "MT"; the TU16, TE16,  TU45,
and  TU77  drives,  which use the device
name "MM"; and  the  TS11  drive,  which
uses  the  device  name "MS".  Enter the
type of  distribution  medium  for  this
system  generation  (MT, MM, MS, DK, DL,
DM, or SY).

Distribution medium ?           #DL#    

The generated system can be written onto
the  current  system disk (SY);  another
disk drive  (DF, DK, DL, DM, DP, DR,  or
DB);  TU10,  TE10, or TS03 magtape (MT);
TU16, TE16, TU45, or TU77 magtape  (MM);
TS11  magtape  (MS);  or  DECtape  (DT).
Using  the  current  system disk (SY) as
the output medium is recommended only if
the system type is DM, DP, DR, or DB.

Output medium ?                 #DL#    SY

RF disk drives have limited storage cap-
acity.  If an RF drive is  being used as
the system  disk during  the SYSGEN pro-
cedure,  files will have to  be  deleted
from that disk after they are used. When
the system  disk  is an RK05 or RL01 and
output to SY has been chosen, files will
also have to be deleted  after they  are
used to leave enough room for the system
library.  Should  files be deleted after
they are used (YES or NO)?

Delete files ?                  #Y #    

If there is a line printer available for
use  during  SYSGEN  it may  be  used to
print  the   system   load   maps   and,
optionally,  to print  assembly listings
of   the  system   tables  and  terminal
service  modules.  If you have a printer
and want the  assembly  listings  and/or
load  maps printed during SYSGEN, answer
"YES".  Otherwise answer "NO".

LP for SYSGEN ?                 *Y *    N

This program can be used  to generate a
monitor  and/or  a  BASIC-PLUS Run-Time
System.  Do  you  wish  to  generate  a
monitor (YES or NO)?

Generate monitor ?              #Y #    

The  monitor  Save  Image  Library (SIL)
will have  a name  of from 1 to 6 alpha-
numeric characters  and  an extension of
"SIL". Please specify the name you want.

Monitor name ?                  #RSTS#  

The system generation process can  auto-
matically  patch  the generated monitor.
You must have a monitor  patch  file  on
any RSTS/E file structured medium. Would
you  like  to  automatically  patch  the
generated monitor (YES or NO)?

Monitor patching ?              #??#    YES

The  monitor  patch  file  can  exist on
the  current  system disk (SY);  another
disk  (DF, DK, DL, DM, DP, DR,  or  DB);
TU10, TE10, or TS03 magtape (MT);  TU16,
TE16,  TU45,  or  TU77  magtape (MM); or
TS11 magtape (MS).  Enter  the  name  of
the patch file  medium  which  has  your
monitor patch file.

Patch file medium ?             #DL#    

The disk on which your patch file exists
has  a  logical  name  called  the  pack
identification. This was assigned to the
disk when  it  was  initialized.  Please
specify that pack ID.

Pack ID ?                       #??#    PATCHG

Enter the file name of the monitor patch
file.  You  may  enter an account number
(e.g.,  [10,23])  or $ (for [1,2]) along
with the file name.

Patch file name ?               #$MONITR.CMD#   

You have  the  option of generating  the
BASIC-PLUS  Run-Time System  in addition
to generating  the monitor.  Do you want
to  generate  BASIC-PLUS  at  this  time
(YES or NO)?

Generate BASIC-PLUS ?           #Y #    

The  BASIC-PLUS Save Image Library (SIL)
will have  a name  of from 1 to 6 alpha-
numeric characters  and  an extension of
"RTS". Please specify the name you want.

BASIC-PLUS RTS name ?           #BASIC# 

The system generation process can  auto-
matically  patch  the  generated  BASIC-
PLUS.  You must have a BASIC-PLUS  patch
file  on   some  RSTS/E  file structured
medium.  Would you like to automatically
patch   the  generated  BASIC-PLUS  (YES
or NO)?

BASIC-PLUS patching ?           #??#    YES

The BASIC-PLUS patch file  can  exist on
the  current  system disk (SY);  another
disk  (DF, DK, DL, DM, DP, DR,  or  DB);
TU10, TE10, or TS03 magtape (MT);  TU16,
TE16,  TU45,  or  TU77  magtape (MM); or
TS11 magtape (MS).  Enter  the  name  of
the patch file  medium  which  has  your
BASIC-PLUS patch file.

Patch file medium ?             #Identical to monitor#  

Enter  the  file  name of the BASIC-PLUS
patch file.  You may  enter  an  account
number  (e.g., [10,23]) or $ (for [1,2])
along with the file name.

Patch file name ?               #$BASIC.CMD#    

You have  the  option of installing  RSX
or  BASIC-PLUS-2  as  the system default
run-time system.  Will you want  RSX  as
the   system   default  run-time  system
(YES or NO)?

RSX as default RTS ?            #NO#    

Now you must specify the  hardware  con-
figuration  on  which this RSTS/E system
will run.

The next few  questions  deal  with  the
numbers and types of terminal interfaces
on the system.

Serial ASCII terminals connected direct-
ly to the computer and  those  connected
through  leased  private telephone lines
(not dial-up)  may  use  either  of  two
classes  of  single  line interfaces (or
several multiplexers,  discussed later).
The first class includes the KL11, LC11,
DL11A, and DL11B interfaces. Specify the
total number of these single line inter-
faces  (1 to 16 -  include  the  console
terminal).

KL11,LC11,DL11A,DL11B's ?       *01*    

The second class of single  line  inter-
faces  used to connect terminals locally
or through leased telephone  lines  (not
dial-up)  includes  the  DL11C and DL11D
interfaces. How many DL11C's and DL11D's
are  on  this system  (0 to 31)?

DL11C, DL11D's ?                *00*    

There are two kinds of individual inter-
faces for automatic answer datasets used
on the dial-up telephone  network.   The
first  of  these  is the DC11.  How many
DC11-DA lines do you have (0 to 32)?

DC11's ?                        *00*    

The  second  kind  of  individual   line
dial-up interface is the DL11E. How many
DL11E's are on this system (0 to 31)?

DL11E's ?                       *00*    

Each DJ11 multiplexer can connect up  to
16 terminals to the system. Please enter
the total  number of DJ11's attached  to
this system (0 to 16).

DJ11's ?                        *00*    

Each DH11 multiplexer can  connect up to
16 terminals to the system. Please enter
the total  number of DH11's attached  to
this system (0 to 16).

DH11's ?                        *00*    

Each DZ11 multiplexer can connect up  to
8 terminals to the system.  Please enter
the total  number of DZ11's attached  to
this system (0 to 16).

DZ11's ?                        *01*    

For this DZ11 unit,  enter the number of
lines  which will  be used now or in the
forseeable future. A response of  8 will
permit all lines to be used. If the num-
ber of lines enabled (n) is less than 8,
RSTS/E will not  be configured  for  and
will  not  recognize  lines  n thru 7 on
this  DZ11  unit.  Enter  the number  of
lines enabled (0 to 8).

DZ11 unit 00 lines enabled ?    #08#    

The  DZ11-A and DZ11-B  include  partial
modem  control,  while  the  DZ11-C  and
DZ11-D do not. If you have a  DZ11-A  or
DZ11-B  and  wish  to  include   support
for  datasets  on  DZ11's  answer "YES".
Otherwise answer "NO".

Dataset support for DZ11's ?    #NO#    

Pseudo keyboards permit interactive jobs
to be run without tying up a real termi-
nal. They are primarily intended for use
by a batch control program  which  feeds
commands to one or more pseudo keyboards
dedicated to running  background  tasks.
How many pseudo keyboards would you like
to have (1 to 127)?

Pseudo keyboards ?              #04#    

RSTS/E is capable of supporting IBM 2741
compatible  terminals  on DL11D,  DL11E,
and  DC11 single  line interfaces, or on
DH11 or DZ11 multiplexers. If you do not
want any 2741 support  then answer "NO".
Otherwise answer "YES".

2741 support ?                  #NO#    

An optional feature of the RSTS/E termi-
nal service  allows  one job to interact
with several terminals  through  special
forms  of  the  Record  I/O  GET and PUT
statements.  This feature is  useful  in
applications  where the same basic func-
tion is performed on  several  terminals
and a separate job for each is  undesir-
able or at least inefficient.  Would you
like to include this feature(YES or NO)?

Multi-terminal service ?        #Y #    

Echo  control  is an optional feature of
the RSTS/E terminal service which allows
any full  duplex  terminal  to  function
like a block mode terminal. This feature
enables a program to define fixed length
input fields and to defer echoing of all
typed characters until they are actually
requested.   It  is useful in data entry
applications or wherever the  appearance
of  terminal  output  must  be precisely
controlled.   Would  you like to include
this feature in your system (YES or NO)?

Echo control ?                  #Y #    

The RSTS/E terminal service can be built
to respond to CTRL/T by printing a  one-
line  status report describing the job's
status.  This report  includes  the  job
name,  RTS name,  run state, job and RTS
sizes, and  total  and  incremental  CPU
times. The job is not disturbed when the
report  is  printed.  Would  you like to
have this feature in your  monitor  (YES
or NO)?

One-line status report ?        #Y #    

The next questions deal with the numbers
and kinds of disk units on this system.

The RF11 controller is used  to  control
up to 8 of the RS11 256K word fixed-head
disks.  If this system has none of these
disks, answer NO; otherwise, answer YES.

RF/RS11's ?                     *NO*    

The RS04/RS03 disk system consists of an
RH11 device controller  and  from one to
eight  RS03 (256K)  or  RS04 (512K word)
fixed-head disk drives. Please enter the
total number  of RS03 and RS04 drives on
this system (0 to 8).

RS03/RS04's ?                   *00*    

The RK11 controller is used  to  control
up to  8  of the RK05  1.2  million word
moving-head cartridge disk  drives. Note
that an RK05F is equivalent to 2 RK05's.
How many RK05 drives are there (0 to 8)?

RK05's ?                        #08#    2

By using the overlapped seek driver, you
can increase the  efficiency of disk I/O
at  the  expense  of  some memory.  Type
YES to  use the  overlapped seek driver.
Type NO to  use  the non-overlapped seek
driver.

Overlapped seek ?               *Y *    

The RL11 controller is used  to  control
any  combination of up to four RL01 (2.6
million word) or RL02 (5.2 million word)
top loading cartridge disk drives. Enter
the total number of RL01 and RL02 drives
on this system (0 to 4).

RL01/RL02's ?                   *04*    

Overlapped seek ?               *Y *    

The RK611 controller is  used to control
any  combination  of up to eight RK06 (6
million word)  or RK07 (12 million word)
top loading cartridge disk drives. Enter
the total number of RK06 and RK07 drives
on this system (0 to 8).

RK06/RK07's ?                   *00*    

The RP11  controller is  used to control
any combination of  up to eight RP02 (10
million word)  or RP03 (20 million word)
moving-head disk pack drives.  Enter the
total number  of RP02 and RP03 drives on
this system (0 to 8).

RP02/RP03's ?                   *00*    

The RM02/3 disk  system  consists  of an
RH11 controller and  up  to  eight  RM02
or  RM03  moving-head  disk pack drives.
Type the total number of  RM02  or  RM03
drives in this configuration (0 to 8).

RM02/RM03's ?                   *00*    

The RP04/5/6 disk system  consists of an
RH11  controller and  any combination of
up to eight RP04 (44 million word), RP05
(44 million word), or  RP06 (88  million
word) moving-head disk pack drives. Type
the total number of RP04, RP05, and RP06
drives  in  this configuration (0 to 8).

RP04/RP05/RP06's ?              *00*    

The next few  questions  deal  with  the
peripheral   devices  attached  to  this
RSTS/E system.

The TU16/TE16 magtape system consists of
an  RH11  massbus  interface,  TM02/TM03
controller  and from one to  eight TU16,
TE16, TU45,  or  TU77  drives.  If  this
system  has no TU16, TE16, TU45, or TU77
magtape drives answer 0; otherwise,  how
many  TU16, TE16, TU45, and TU77  drives
exist on this system (1 to 8)?

TU16/TE16/TU45/TU77's ?         *00*    

The  TM11/TMA11/TMB11 magtape controller
can support up to eight  TU10,  TE10, or
TS03 magtape drives.  Please  enter  the
number of TU10, TE10, and TS03 drives on
this system (0 to 8).

TU10/TE10/TS03's ?              #08#    1

The  TS11  magtape  system consists of a
TS11 controller and a TS11 drive. RSTS/E
supports up to 4 TS11  systems.  If this
system has no TS11 magtape drives answer
0;  otherwise,  how many TS11's exist on
this system (1 TO 4)?

TS11's ?                        *00*    

The TC11 DECtape controller can  control
up  to  8 single drives.  If this system
has no DECtape at all, answer 0;  other-
wise,  how  many  single DECtape drives,
not TU56's, are there (1  to  8  -  note
that each TU56 dual drive has 2).

DECtapes ?                      *00*    

The TU58 DECtape-II system  consists  of
two  drives  and a controller, connected
through a DL11  interface.  RSTS/E  sup-
ports  up  to   four  TU58 systems for a
maximum of  eight  drives.  Please enter
the  number  of  TU58 drives attached to
this system (0 to 8).

TU58's ?                        *00*    

The RSTS/E system can have  up to  eight
line printers of the LP11, LS11, or LV11
type. These printers are referred to  by
the device names LP0:  through LP7:.  If
there  is  no  line  printer,  answer 0;
otherwise, enter the  number of printers
(1 to 8).

Printers ?                      *01*    

The  RX11  or  RX211  floppy disk system
consists of  a UNIBUS interface  and  an
RX01  (single density)  or  RX02 (double
density) floppy disk subsystem. The RX01
and RX02 each include  a disk controller
and  two  floppy  disk  drives.   RSTS/E
supports  up  to   four  RX11  or  RX211
systems for a maximum of  eight  drives.
Please  enter  the number of floppy disk
drives attached to this system (0 to 8).

RX01/RX02's ?                   *00*    

Does  this  system  have a CR11  punched
card reader or a CM11 marked card reader
(YES or NO)?

CR11/CM11 card reader ?         *NO*    

Does this system have a CD11  high-speed
punched card reader (YES or NO)?

CD11 card reader ?              *NO*    

Is there a high-speed paper tape  reader
(YES or NO)?

P.T. reader ?                   *Y *    N

Is there a high-speed paper  tape  punch
(YES or NO)?

P.T. punch ?                    *Y *    N

The DMC11  network link is a synchronous
communication  line interface which imp-
lements the DDCMP line protocol in hard-
ware.  At least one unit is required for
DECnet communications.  How many DMC11's
are attached to this system (0 to 16)?

DMC11's ?                       *00*    

The   KMC11  is  an  intelligent  micro-
processor  controller which, when loaded
with  appropriate  micro-codes,  can  be
used  to  control various types of peri-
pherals.  How many KMC11  units  do  you
have on this system (0 to 16)?

KMC11's ?                       *00*    

The LP driver can be made to take advan-
tage  of the extended buffer pool rather
than always buffering  character  output
from  the  small buffer pool.  This will
particularly benefit those systems which
have  an increased contention for system
small buffers.  Do you want the extended
buffering for LP (YES or NO)?

Extended buffering for LP ?     #Y #    

The  RSTS/E 2780  package  emulates  the
operation  of  the IBM 2780 Model 1 data
transmission terminal.  The package per-
mits  the RSTS/E  system  to communicate
with any IBM system  which supports  the
device,  or  another RSTS/E 2780 system.
The 2780 package is sold and distributed
as a separate package.It is not included
in the standard RSTS/E kit.  Do you have
the  2780 package and wish to include it
in this system (YES or NO)?

2780 support ?                  #NO#    

The remaining questions  deal  with  the
capacity  and  features  of  this RSTS/E
system  provided at the system manager's
option.

An  optional  feature  of  RSTS/E is the
ability  to read and  write  files which
are longer than 65535 blocks.  Including
large file  support  also  reduces  file
creation  and  access  times  and  makes
disk update  mode significantly  faster.
Including  large  file support will make
your monitor  2K  larger,  and  will use
more  small buffers  for each open file.
Do you want your system to handle  large
files (YES or NO)?

Large files ?                   #Y #    

With sufficient hardware RSTS/E can han-
dle up to 63 simultaneous jobs.  What is
the maximum number  of  jobs (JOBMAX) to
be used at this installation (1 to 63)?

Maximum jobs ?                  #10#    

Small buffers are 16 word blocks in mon-
itor  storage that are dynamically allo-
cated as input and output buffers,  file
parameter  blocks,  etc.  Storage may be
allocated for  30 to 999 small  buffers.
The recommended  minimum  is at least 10
for each  possible  job.  How many small
buffers would  this installation like to
have (30 to 999)?

Small buffers ?                 #170#   

Logical names can be assigned to devices
on a system wide  basis.  The assignment
table  consists  of five  words for each
assignment.  Please  enter  the  maximum
number  of  system  wide logical assign-
ments that will be in  use  at  any  one
time (5-50).

System wide logicals ?          #10#    

You can add special statistics gathering
code  to the monitor. This code includes
tables that record job and disk transfer
statistics.  Would  you  like to include
the  statistics  gathering  code (YES or
NO)?

Monitor statistics ?            #NO#    

An optional feature of the RSTS/E system
allows  the file  processor (FIP) to use
free  buffers, or  dedicated sections of
memory (called the extended buffer pool)
to  store  directory  information.  This
improves the speed of directory process-
ing by not rereading frequently accessed
directory information. If you  want  FIP
buffering type YES, otherwise type NO.

FIP buffering ?                 #Y #    

An extended version of FIP buffering  is
available under RSTS/E which allows jobs
to  specify,  on  a  file by file basis,
that user data files are to be cached in
the extended buffer pool.   This caching
is  in  addition  to  the  FIP directory
buffering.  Extended  data buffering can
also cache clusters of data, and do read
ahead of user data.   It requires you to
allocate   at  least  2K  words  to  the
extended buffer pool.  Do  you  want  to
include  extended data buffering in your
system (YES or NO)?

Extended data buffering ?       #NO#    

At  the  cost  of  a  physically  larger
monitor,  the  disk  drivers  and  their
subroutines can be built into a separate
monitor "phase". If you want to maximize
the size of your small buffer pool,  you
should answer "YES".  Build monitor with
a separate disk driver phase(YES or NO)?

Disk driver phase ?             #Y #    

An  optional feature  of  RSTS/E  allows
programs to reduce I/O for overlaying by
attaching  to  shareable memory-resident
code. If you have at least 124K words of
memory,  and intend to use  the  RMS-11K
Resident Library, answer 'YES'.

Resident libraries ?            #Y #    

The  RSTS/E monitor can be made  to take
over some of the function of the RSX Run
Time System. Programs which normally run
under the RSX Run-Time System don't need
any run time system, so they can grow to
31K,  or  use  the  address space  for a
resident library.  This option makes the
monitor about 1K larger. Do you want  to
include  RSX  directives in your monitor
(YES or NO)?

RSX directives ?                #Y #    

If there is sufficient memory  available
on this system, the most frequently used
non-resident  disk  handling code can be
made resident in order to provide better
system  performance.  Should  this  disk
processing be done by resident code (YES
or NO)?

Resident disk handling ?        #Y #    

The routines  that  implement  the send
and  receive  system function calls are
also non-resident. If your applications
require  inter-job  communication,  you
may want send/receive resident.  Please
answer YES or NO.

Resident send/receive ?         #NO#    

The routines to implement the simple SYS
calls are normally non-resident. Overall
system performance  can  be  improved by
making this  code resident.  Do you want
the simple SYS  call code  resident (YES
or NO)?

Resident simple SYS calls ?     #NO#    

Non-resident code  is used  to delete or
rename  a file.  If you  want  the  file
delete/rename  code to be  resident type
"YES";  otherwise type "NO".

Resident file delete/rename ?   #NO#    

Non-resident code is used  to do logins,
attaches, and assign attributes.  If you
want the login,  attach,  and  attribute
code  resident, type "YES", else  answer
"NO".

Res. login/attach/attribute ?   #NO#    

Non-resident code is used to  list  disk
directories  (CATALOG  command)  and  do
file lookups.  If you want the directory
lister and  file  lookup  code resident,
type "YES", otherwise answer "NO".

Resident catalog/lookup ?       #NO#    

The  following  questions  deal with the
BASIC-PLUS run-time system

Will this  software  run  on  a computer
with  a  floating  point  processor (YES
or NO)?

FPP ?                           *NO*    

Will  this  software  run  on a computer
with   the  floating   instruction   set
(YES or NO)?

FIS ?                           *Y *    

Floating point numbers  are  represented
internally  as  two 16-bit words, giving
seven significant digits. It is possible
to maintain 17 significant digits by us-
ing 4 words per number.  The  four  word
math  packages  also  include the scaled
arithmetic feature.  Would  this instal-
lation prefer to use 2 or 4 word math?

Math precision ?                #02#    

It is possible  to  save  space  in  the
BASIC-PLUS  system by omitting the loga-
rithmic functions SQR,EXP,LOG,and LOG10,
if they are not needed.Does this instal-
lation need to compute  these  functions
(YES or NO)?

Log functions ?                 #Y #    

It is possible  to  save  space  in  the
BASIC-PLUS system by omitting the trigo-
nometric functions SIN,COS,TAN, and ATN,
if they are not needed.Does this instal-
lation need to compute  these  functions
(YES or NO)?

Trig functions ?                #Y #    

Special output formatting  can  be  done
using   the   "PRINT  USING"  statement.
Would this  installation  like  to  have
this optional feature (YES or NO)?

Print using ?                   #Y #    

BASIC-PLUS permits the user  to  operate
on  an entire matrix using just a single
statement.   These  statements  are  the
"MAT"  statements.  Would this installa-
tion like to have this optional  feature
(YES or NO)?

Matrices ?                      #NO#    

An optional feature of BASIC-PLUS allows
arithmetic operations to be performed on
numbers  represented  by  strings.  This
feature  can be used  to obtain  greater
accuracy  in arithmetic  operations.  Do
you want string arithmetic (YES or NO)?

String arithmetic ?             #NO#    

The system generation  dialog is finish-
ed. If you have any special requirements
which require editing the generated file
CONFIG.MAC(system configuration file) or
SYSGEN.CTL(batch control file)  you  may
do it now.  When  ready type "R SYSBAT".

.R SYSBAT

SYSGEN  batch  processing  has  started.
If any problems develop during the batch
process  it  may  be aborted  by  typing
"Control/C". To restart type "R SYSBAT".

  ^C
  HELLO 1/2
  Password:
  1 other user is logged in under this account

  .
  .SIZE 20

MOUNT AX-D527G-BC ON A DISK DRIVE

READY AND WRITE PROTECT THE DRIVE

Mount DL:"SYSGNG"-write locked
Unit ? DL1
  .ASSIGN  DL1: SYSGNG

  .ASSIGN SYSGNG: IN

  .R PIP.SAV
  **.*=IN:$COMMON.MAC
  *SY:$*.*/PR:NOWARN=IN:$SYSLIB.OBJ
  **.*=IN:$OVLHD.OBJ
  **.*<104>=IN:$LIBR.SAV,$PATCH.SAV,$PAT.SAV
  **.*<60>=IN:$MINCOP.BAS
  *^C

  .R PIP.SAV
  *TBL.OBJ,TTDINT.OBJ,TTDVR.OBJ/DE:NOWARN
  *TBL.LST,TTDINT.LST,TTDVR.LST/DE:NOWARN
  *RSTS.SAV,TER.SAV,DSK.SAV/DE:NOWARN
  *EMT.SAV,FIP.SAV,RSX.SAV,OVR.SAV/DE:NOWARN
  *RSTS.MAP,TER.MAP,DSK.MAP/DE:NOWARN
  *EMT.MAP,FIP.MAP,RSX.MAP,OVR.MAP/DE:NOWARN
  *RSTS.STB,TER.STB,DSK.STB/DE:NOWARN
  *EMT.STB,FIP.STB,RSX.STB,OVR.STB/DE:NOWARN
  *NSP.SAV,TRN.SAV,XMDVR.SAV,RJ2780.SAV/DE:NOWARN
  *NSP.MAP,TRN.MAP,XMDVR.MAP,RJ2780.MAP/DE:NOWARN
  *NSP.STB,TRN.STB,XMDVR.STB,RJ2780.STB/DE:NOWARN
  *^C

  .R MACRO.SAV
  *TTDVR=IN:$COMMON,$KERNEL,DK:CONFIG,IN:$CHECK,$KBDEF,$TTDVR
  ERRORS DETECTED:  0
  *^C

  .R MACRO.SAV
  *TTDINT=IN:$COMMON,$KERNEL,DK:CONFIG,IN:$CHECK,$KBDEF,$TTDINT
  ERRORS DETECTED:  0
  *^C

  .R MACRO.SAV
  *TBL=IN:$COMMON,$KERNEL,DK:CONFIG,IN:$CHECK,$TBL
  ERRORS DETECTED:  0
  *^C

  .R LINK.SAV
  *RSTS/Z,RSTS/A/W,RSTS=TBL,$ERR.STB/X/B:0/E:#12500/U:#1000/I/C
  *TTDINT/C
  *IN:$RSTS
  Extend section? MORBUF
  Round section? MORBUF
  Library search? SYDLRG
  Library search? BUF
  Library search? LPDVRX
  Library search? 
  *^C

  .R LINK.SAV
  *DSK/Z,DSK/A/W,DSK=IN:$DSK,DK:RSTS.STB/X/B:#117000/U:#1000/I/C
  *IN:$RSTS
  Round section? DSKPAT
  Library search? DKSEEK
  Library search? DLSEEK
  Library search? 
  *^C

  .R LINK.SAV
  *TER/Z,TER/A/W,TER=IN:$TER,DK:RSTS.STB/X/B:#117000/U:#1000/I/C
  *TTDVR/C
  *IN:$RSTS
  Round section? TERPAT
  Library search? TTSYST
  Library search? 
  *^C

  .R LINK.SAV
  *EMT/Z,EMT/A/W,EMT=IN:$EMT,DK:RSTS.STB/X/B:#117000/U:#1000/I/C
  *IN:$RSTS
  Round section? EMTPAT
  Library search? LIB
  Library search? 
  *^C

  .R LINK.SAV
  *FIP/Z,FIP/A/W,FIP=IN:$FIPLRG,DK:RSTS.STB/X/B:#117000/U:#1000/I/C
  *IN:$RSTS
  Round section? FIPPAT
  Library search? OPL
  Library search? 
  *^C

  .R LINK.SAV
  *RSX/Z,RSX/A/W,RSX=IN:$RSX,DK:EMT.STB/X/B:#117000/U:#1000/C
  *IN:$RSTS
  Round section? RSXPAT
  *^C

  .R LINK.SAV
  *OVR/Z,OVR/A/W,OVR=IN:$OVRLRG,DK:FIP.STB/X/B:#1000/C
  *IN:$RSTS
  *^C

  .R PIP.SAV
  *TBL.OBJ,TTDINT.OBJ,TTDVR.OBJ/DE
  *^C

  .R SILUS.SAV
  *SY0:[0,1]RSTS.SIL,TT:=RSTS,TER/M,DSK/M,EMT/M,FIP/M/C
  *RSX/M/C
  *OVR/M/C
  *IN:$ODT,$DEFALT
  Directory of SIL RSTS  .SIL on 19-Feb-85 at 06:09 AM

   Name   Ident    Load    Size  Transfer Total

  RSTS    07.007  000000  062000  000001   13K
  TER     07.007  120000  016000  000001   16K
  DSK     07.007  120000  004000  000001   17K
  EMT     07.007  120000  020000  000001   21K
  FIP     07.007  120000  021000  000001   26K
  RSX     07.007  120000  007000  000001   27K
  OVR     07.007  002000  070000  000001   41K
  ODT     07.007  140000  012522  142524   44K
  DEFALT  07.007  001000  002000  000001   45K

  Resident monitor size is 27K (with 175 small buffers)
  608 small buffers can be added to this system (783 total)
  No small buffers can be added without a size change (175 total)

  *^C

  .RUN LIBR.SAV
  *SY:$SYSLIB=SY:$SYSLIB,DK:OVLHD/U
  *^C

  .R PIP.SAV
  *RSTS.SAV,RSTS.STB/DE
  *TER.SAV,TER.STB/DE
  *DSK.SAV,DSK.STB/DE
  *EMT.SAV,EMT.STB/DE
  *FIP.SAV,FIP.STB/DE
  *RSX.SAV,RSX.STB/DE
  *OVR.SAV,OVR.STB/DE
  *^C

  .R PIP.SAV
  *BASIC.SAV,BASIC.STB/DE:NOWARN
  *^C

  .R LINK.SAV
  *BASIC/Z,BASIC/A/W,BASIC=IN:$RTS,DK:$ERR.STB/X/H:#177776/U:#4000/C
  *IN:$MA2I/C
  *IN:$XL2I/C
  *IN:$XT2I/C
  *IN:$IO/C
  *IN:$PU/C
  *IN:$SN/C
  *IN:$VE
  Round section? PA
  *^C

  .R SILUS.SAV
  *BASIC.RTS,TT:=BASIC
  Directory of SIL BASIC .RTS on 19-Feb-85 at 06:09 AM

   Name   Ident    Load    Size  Transfer Total

  BASIC   07.007  110000  067776  000001   14K

  *^C

  .R PIP.SAV
  *BASIC.SAV,BASIC.STB/DE
  *^C

  .DEASSIGN IN

Dismount DL1:  
  .DEASSIGN  SYSGNG

MOUNT THE MONITOR PATCH FILE DISK "PATCHG" ON A DISK DRIVE

READY AND WRITE PROTECT THE DRIVE

Mount DL:"PATCHG"-write locked
Unit ? 
Simulation stopped, PC: 027222 (SOB R1,27220)
sim> att rl1 rsts_patchg.dsk
%SIM-INFO: RL1: './rsts_patchg.dsk' Contains a RSTS File system
%SIM-INFO: RL1: Pack ID: PATCHG Revision Level: 0.0 Pack Clustersize: 1
%SIM-INFO: RL1: Last Unallocated Sector In File System: 10219
sim> C
DL1
  .ASSIGN  DL1: PATCHG

  .R ONLPAT.SAV
  Command file name? PATCHG:$MONITR.CMD
  !
  !       MONITR.CMD
  !       INCLUDES ALL MANDATORY MONITOR PATCHES PUBLISHED
  !       THROUGH DECEMBER 1981
  !
  !       Seq 3.1.4 M, April 1980
  !       Executive
  !       Monitor Patches
  ! CORRECT PLAS CREATE WINDOW PROBLEM
  ! MANDATORY MONITOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL IF RESIDENT LIBRARIES ARE
  !       NOT CONFIGURED ON YOUR SYSTEM.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0301
  Offset address? 0
   Base   Offset  Old     New?
  030306  000000  000000  ? Q!10
  030306  000002  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? EMT
  Base address? LIB
  Offset address? 1132
   Base   Offset  Old     New?
  136154  001132  022700  ? 4737
  136154  001134  000007  ? EMTPAT
  136154  001136  103770  ? 103370
  136154  001140  116101  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? EMTPAT
  Offset address? 0
   Base   Offset  Old     New?
  120000  000000  000000  ? 16403
  120000  000002  000000  ? 4
  120000  000004  000000  ? 1403
  120000  000006  000000  ? 5303
  120000  000010  000000  ? 72327
  120000  000012  000000  ? 177771
  120000  000014  000000  ? 60003
  120000  000016  000000  ? 116505
  120000  000020  000000  ? 16
  120000  000022  000000  ? 62705
  120000  000024  000000  ? 3
  120000  000026  000000  ? 6205
  120000  000030  000000  ? 6205
  120000  000032  000000  ? 162705
  120000  000034  000000  ? 10
  120000  000036  000000  ? 5405
  120000  000040  000000  ? 20305
  120000  000042  000000  ? 207
  120000  000044  000000  ? ^C
  Patch complete

  !
  !       Seq 3.1.5 M, April 1980
  !       Executive
  !       Monitor Patches
  ! CERTAIN TIMING PROBLEMS MAY CAUSE SYSTEM TO JUMP TO 0 AND CRASH
  ! MANDATORY MONITOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0301
  Offset address? 0
   Base   Offset  Old     New?
  030306  000000  000010  ? Q!20
  030306  000002  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? SYDVR
  Offset address? 232+(32*(LRGFIL=0))
   Base   Offset  Old     New?
  050076  000232  004737  ? 
  050076  000234  045750  ? PATCH+34
  050076  000236  000261  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PATCH
  Offset address? 34
   Base   Offset  Old     New?
  027204  000034  000000  ? 5003
  027204  000036  000000  ? 137
  027204  000040  000000  ? FNDJOB
  027204  000042  000000  ? ^C
  Patch complete

  !
  !       Seq 3.1.6 M, August 1980
  !       Executive
  !       Monitor Patches
  ! CORRECT HANDLING OF PARITY MEMORY
  ! MANDATORY MONITOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0301
  Offset address? 0
   Base   Offset  Old     New?
  030306  000000  000030  ? Q!40
  030306  000002  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? UNISCN
  Offset address? 272
   Base   Offset  Old     New?
  020160  000272  011111  ? 240
  020160  000274  005012  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? FTLSCN
  Offset address? 204
   Base   Offset  Old     New?
  036604  000204  000114  ? 
  036604  000206  000421  ? 404
  036604  000210  012737  ? ^C
  Patch complete

  !
  !       Seq 3.1.7 M, July 1980
  !       Executive
  !       Monitor Patches
  ! DISK STATISTICS WILL NOT BE CORRECT WITH DATA CACHING ENABLED
  ! MANDATORY MONITOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL IF THE OPTIONAL STATISTICS CODE
  !       WAS NOT INCLUDED ON YOUR SYSTEM.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? DSTAT
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.1.8 M, August 1980
  !       Executive
  !       Monitor Patches
  ! MONITOR .STAT CALL RETURNS RUNBURST/PRIORITY TO NON-PRIVILEGED USERS
  ! MANDATORY MONITOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? EMT
  Base address? CAL
  Offset address? 360
   Base   Offset  Old     New?
  120410  000360  010423  ? 137
  120410  000362  000207  ? EMTPAT+44
  120410  000364  004737  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? EMTPAT
  Offset address? 44
   Base   Offset  Old     New?
  120000  000044  000000  ? 10423
  120000  000046  000000  ? 32711
  120000  000050  000000  ? 16000
  120000  000052  000000  ? 1002
  120000  000054  000000  ? 5043
  120000  000056  000000  ? 5043
  120000  000060  000000  ? 207
  120000  000062  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0301
  Offset address? 0
   Base   Offset  Old     New?
  030306  000000  000070  ? Q!200
  030306  000002  000000  ? ^C
  Patch complete

  !
  !       Seq 3.1.9 M, November 1980
  !       Executive
  !       Monitor Patches
  ! ISSUING AN .FSS DIRECTIVE WITH AN ODD ADDRESS CRASHES THE SYSTEM
  ! MANDATORY MONITOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? EMT
  Base address? FSS
  Offset address? 3056
   Base   Offset  Old     New?
  124206  003056  011343  ? 
  124206  003060  004767  ? 4737
  124206  003062  177732  ? EMTPAT+62
  124206  003064  004737  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? EMTPAT
  Offset address? 62
   Base   Offset  Old     New?
  120000  000062  000000  ? 4737
  120000  000064  000000  ? FSS+3016
  120000  000066  000000  ? 32763
  120000  000070  000000  ? 1
  120000  000072  000000  ? 4
  120000  000074  000000  ? 1401
  120000  000076  000000  ? 104437
  120000  000100  000000  ? 207
  120000  000102  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0301
  Offset address? 1
   Base   Offset  Old     New?
  030306  000001     000  ? Q!1
  030306  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.1.10 M, January 1981
  !       Executive
  !       Monitor Patches
  ! SYSTEMS USING RESIDENT LIBRARIES MAY EXPERIENCE RANDOM ERRORS
  ! MANDATORY MONITOR PATCH
  ! COPYRIGHT (C) 1980, 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL IF RESIDENT LIBRARIES ARE
  !       NOT CONFIGURED ON YOUR SYSTEM.
  !
  !       IF THIS PATCH IS APPLIED ONLINE TO THE INSTALLED SIL,
  !       IT WILL NOT TAKE EFFECT UNTIL THE SYSTEM IS RE-BOOTED.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? EMT
  Base address? LIB
  Offset address? 1610
   Base   Offset  Old     New?
  136154  001610  122763  ? 
  136154  001612  000002  ? 200
  136154  001614  000017  ? 
  136154  001616  001266  ? 1666
  136154  001620  000137  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0301
  Offset address? 1
   Base   Offset  Old     New?
  030306  000001     001  ? Q!2
  030306  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.1.11 M, April 1981
  !       Executive
  !       Monitor Patches
  ! DISK STATISTICS WILL NOT BE CORRECT WITH DATA CACHING ENABLED
  ! MANDATORY MONITOR PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED WITH
  !       THE (OPTIONAL) STATISTICS CODE. SEQ 3.1.7 M MUST BE
  !       APPLIED PRIOR TO THIS PATCH.
  !
  !       IF THIS PATCH IS APPLIED ONLINE TO THE INSTALLED SIL,
  !       IT WILL NOT TAKE EFFECT UNTIL THE SYSTEM IS RE-BOOTED.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? COMDSK
  Offset address? 0
   Base   Offset  Old     New?
  040670  000000  004537  ? Old<>000167 105064
  040670  000002  043406  ? 33
  040670  000004  112764  ? 105764
  040670  000006  177767  ? 2
  040670  000010  000003  ? 100002
  040670  000012  116405  ? 105364
  040670  000014  000006  ? 33
  040670  000016  006305  ? 137
  040670  000020  004767  ? DSTAT+14
  Symbol not found in STB
  040670  000020  004767  ? Offset<>000022 Old<>000020 ^Z (CTRL/Z FOR NE
  W OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? DSTAT
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.3.8 M, June 1980
  !       Executive
  !       Terminal Service Patches
  ! FORM CONTROL DIFFERENCES ON LOCAL ECHO TERMINALS
  ! MANDATORY TERMINAL SERVICE PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? TER
  Base address? TTIJOB
  Offset address? -34
   Base   Offset  Old     New?
  127236  177744  132761  ? 
  127236  177746  000002  ? 
  127236  177750  000032  ? 
  127236  177752  001720  ? 137
  127236  177754  000736  ? TERPAT
  127236  177756  012604  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? TERPAT
  Offset address? 0
   Base   Offset  Old     New?
  120000  000000  000000  ? 1003
  120000  000002  000000  ? 4537
  120000  000004  000000  ? ASCOUF
  120000  000006  000000  ? CR
  120000  000010  000000  ? 32761
  120000  000012  000000  ? 100
  120000  000014  000000  ? 10
  120000  000016  000000  ? 1413
  120000  000020  000000  ? 32761
  120000  000022  000000  ? 404
  120000  000024  000000  ? 10
  120000  000026  000000  ? 1405
  120000  000030  000000  ? 42761
  120000  000032  000000  ? 404
  120000  000034  000000  ? 10
  120000  000036  000000  ? 105261
  120000  000040  000000  ? 11
  120000  000042  000000  ? 137
  120000  000044  000000  ? TTISJS
  120000  000046  000000  ? 137
  120000  000050  000000  ? TTILFS+6
  120000  000052  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0303
  Offset address? 0
   Base   Offset  Old     New?
  030316  000000  000000  ? Q!200
  030316  000002  000000  ? ^C
  Patch complete

  !
  !       Seq 3.3.10 M, May 1981
  !       Executive
  !       Terminal Service Patches
  !
  ! PK DRIVER WILL KILL A JOB THAT IS NOT THE CONTROLLED JOB
  ! MANDATORY TERMINAL SERVICE PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  ! (TBS)
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? TER
  Base address? SER$PK
  Offset address? 216
   Base   Offset  Old     New?
  121246  000216  030427  ? 4737
  121246  000220  000020  ? TERPAT+52
  121246  000222  001404  ? ^Z
  Offset address? ^Z
  Base address? TERPAT
  Offset address? 52
   Base   Offset  Old     New?
  120000  000052  000000  ? 30427
  120000  000054  000000  ? 20
  120000  000056  000000  ? 1403
  120000  000060  000000  ? 32761
  120000  000062  000000  ? DDCONS
  120000  000064  000000  ? DDCNT
  120000  000066  000000  ? 207
  120000  000070  000000  ? ^Z
  Offset address? ^Z
  Base address? ^Z
  Module name? RSTS
  Base address? $$0303
  Offset address? 1
   Base   Offset  Old     New?
  030316  000001     000  ? Q!2
  030316  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.3.11 M, June 1981
  !       Executive
  !       Terminal Service Patches
  !
  ! DETACHING A KEYBOARD CAN PREVENT GUARDED CTRL/C MODE FROM WORKING
  ! MANDATORY TERMINAL SERVICE PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  ! (TBS)
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? TER
  Base address? TTHGLN
  Offset address? 32
   Base   Offset  Old     New?
  122206  000032  004737  ? 4737
  122206  000034  044644  ? TERPAT+70
  122206  000036  103402  ? ^Z
  Offset address? ^Z
  Base address? TERPAT
  Offset address? 70
   Base   Offset  Old     New?
  120000  000070  000000  ? 4737
  120000  000072  000000  ? CONNEX
  120000  000074  000000  ? 103005
  120000  000076  000000  ? 132761
  120000  000100  000000  ? 20
  120000  000102  000000  ? 32
  120000  000104  000000  ? 1401
  120000  000106  000000  ? 241
  120000  000110  000000  ? 207
  120000  000112  000000  ? ^Z
  Offset address? ^Z
  Base address? ^Z
  Module name? RSTS
  Base address? $$0303
  Offset address? 1
   Base   Offset  Old     New?
  030316  000001     002  ? Q!4
  030316  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.3.12 M, June 1981
  !       Executive
  !       Terminal Service Patches
  !
  ! PHANTOM JOB MAY PREVENT SYSTEM SHUTDOWN
  ! MANDATORY TERMINAL SERVICE PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  ! (TBS)
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? TER
  Base address? NEWJOB
  Offset address? 0
   Base   Offset  Old     New?
  127156  000000  004767  ? 4737
  127156  000002  004010  ? TERPAT+112
  127156  000004  103425  ? ^Z
  Offset address? ^Z
  Base address? TERPAT
  Offset address? 112
   Base   Offset  Old     New?
  120000  000112  000000  ? 12737
  120000  000114  000000  ? 34240
  120000  000116  000000  ? 177776
  120000  000120  000000  ? 4737
  120000  000122  000000  ? JOBCHK
  120000  000124  000000  ? 207
  120000  000126  000000  ? ^Z
  Offset address? ^Z
  Base address? ^Z
  Module name? RSTS
  Base address? $$0303
  Offset address? 1
   Base   Offset  Old     New?
  030316  000001     006  ? Q!10
  030316  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.3.14 M, December 1981
  !       Executive
  !       Terminal Service Patches
  ! CONTROLLED JOB OF A PK MAY HANG SYSTEM
  ! MANDATORY TERMINAL SERVICE PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? TER
  Base address? CLS$PK
  Offset address? 46
   Base   Offset  Old     New?
  121172  000046  004767  ? 4737
  121172  000050  002700  ? TERPAT+140
  121172  000052  000207  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? TERPAT
  Offset address? 140
   Base   Offset  Old     New?
  120000  000140  000000  ? 120237
  120000  000142  000000  ? JOB
  120000  000144  000000  ? 1003
  120000  000146  000000  ? 52737
  120000  000150  000000  ? QDUMP
  120000  000152  000000  ? L3QUE2
  120000  000154  000000  ? 137
  120000  000156  000000  ? DOKILL
  120000  000160  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0303
  Offset address? 1
   Base   Offset  Old     New?
  030316  000001     016  ? Q!40
  030316  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.5.10 M, February 1980
  !       Executive
  !       File Processor Patches
  ! UU.SYS RETURNS INCORRECT CONTROLLING JOB NUMBER
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? UUO2ST
  Offset address? 116
   Base   Offset  Old     New?
  032000  000116  005303  ? 6303
  032000  000120  070327  ? 4737
  032000  000122  000014  ? FIPPAT
  032000  000124  062703  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? FIP
  Base address? FIPPAT
  Offset address? 0
   Base   Offset  Old     New?
  120000  000000  000000  ? 163703
  120000  000002  000000  ? PKDDDB+10
  120000  000004  000000  ? 70327
  120000  000006  000000  ? 6
  120000  000010  000000  ? 207
  120000  000012  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0305
  Offset address? 1
   Base   Offset  Old     New?
  030326  000001     000  ? Q!2
  030326  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.5.11 M, March 1980
  !       Executive
  !       File Processor Patches
  ! UU.SPL MAY CRASH SYSTEM
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? SPL0ST
  Offset address? 412
   Base   Offset  Old     New?
  071000  000412  004537  ? 411
  071000  000414  123016  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 436
   Base   Offset  Old     New?
  071000  000436  000000  ? 16103
  071000  000440  000000  ? 10
  071000  000442  000000  ? 5063
  071000  000444  000000  ? 26
  071000  000446  000000  ? 4537
  071000  000450  000000  ? FJMP
  071000  000452  000000  ? $FIPTB+SNDFQ+1
  071000  000454  000000  ? ^C
  Patch complete

  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0305
  Offset address? 1
   Base   Offset  Old     New?
  030326  000001     002  ? Q!4
  030326  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.5.13 M, May 1980
  !       Executive
  !       File Processor Patches
  ! UU.SYS RETURNS PRIORITY/RUN BURST TO NON-PRIVILEGED USERS
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? UUO2ST
  Offset address? 256
   Base   Offset  Old     New?
  032000  000256  005721  ? 4737
  032000  000260  012124  ? FIPPAT+24
  032000  000262  112124  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? FIP
  Base address? FIPPAT
  Offset address? 24
   Base   Offset  Old     New?
  120000  000024  000000  ? 5721
  120000  000026  000000  ? 12124
  120000  000030  000000  ? 32761
  120000  000032  000000  ? 16000
  120000  000034  000000  ? 177744
  120000  000036  000000  ? 1002
  120000  000040  000000  ? 5064
  120000  000042  000000  ? 177776
  120000  000044  000000  ? 207
  120000  000046  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0305
  Offset address? 1
   Base   Offset  Old     New?
  030326  000001     006  ? Q!20
  030326  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.5.14 M, May 1980
  !       Executive
  !       File Processor Patches
  ! ATTACH SYS CALL DOES NOT PROPERLY CHECK ALL PARAMETERS PASSED TO IT
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0305
  Offset address? 1
   Base   Offset  Old     New?
  030326  000001     026  ? Q!40
  030326  000002     000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? OVR
  Base address? LIN1ST
  Offset address? 260
   Base   Offset  Old     New?
  034000  000260  004737  ? 
  034000  000262  124172  ? FIPPAT+46
  034000  000264  103737  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? FIP
  Base address? FIPPAT
  Offset address? 46
   Base   Offset  Old     New?
  120000  000046  000000  ? 5742
  120000  000050  000000  ? 16203
  120000  000052  000000  ? 10
  120000  000054  000000  ? 21063
  120000  000056  000000  ? 30
  120000  000060  000000  ? 1402
  120000  000062  000000  ? 261
  120000  000064  000000  ? 207
  120000  000066  000000  ? 4737
  120000  000070  000000  ? SDM
  120000  000072  000000  ? 207
  120000  000074  000000  ? ^C
  Patch complete

  !
  !       Seq 3.5.15 M, May 1980
  !       Executive
  !       File Processor Patches
  ! PRE-EXTENDING A FILE WITH /SIZE MAY NOT WORK ON A LARGE FILE SYSTEM
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! ***   THIS PATCH IS FOR SYSTEMS GENERATED WITH
  !       THE NEW (LARGE) FILE PROCESSOR ONLY ***
  !
  ! NOTE: THIS PATCH CAN NOT BE APPLIED ONLINE TO THE INSTALLED SIL.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? OPL5ST
  Address above module bounds
  Base address? ^Z (MODULE IS RESIDENT)
  Module name? FIP
  Base address? OPL5ST
  Offset address? 534
   Base   Offset  Old     New?
  135654  000534  005764  ? 4737
  135654  000536  000016  ? FIPPAT+74
  135654  000540  001403  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? FIP
  Base address? FIPPAT
  Offset address? 74
   Base   Offset  Old     New?
  120000  000074  000000  ? 16446
  120000  000076  000000  ? 16
  120000  000100  000000  ? 156416
  120000  000102  000000  ? 5
  120000  000104  000000  ? 5726
  120000  000106  000000  ? 207
  120000  000110  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0305
  Offset address? 1
   Base   Offset  Old     New?
  030326  000001     066  ? Q!100
  030326  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.5.16 M, May 1980
  !       Executive
  !       File Processor Patches
  ! UNLOADING A READ/WRITE LIBRARY OR RUN-TIME SYSTEM MAY
  ! CAUSE UNEXPECTED RESULTS
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? RTS0ST
  Offset address? 150
   Base   Offset  Old     New?
  035000  000150  000137  ? 167
  035000  000152  045632  ? 574
  035000  000154  020302  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 750
   Base   Offset  Old     New?
  035000  000750  000000  ? 32763
  035000  000752  000000  ? 2000
  035000  000754  000000  ? 36
  035000  000756  000000  ? 1404
  035000  000760  000000  ? 5763
  035000  000762  000000  ? 32
  035000  000764  000000  ? 1401
  035000  000766  000000  ? 104403
  035000  000770  000000  ? 137
  035000  000772  000000  ? REMRTS
  035000  000774  000000  ? ^C
  Patch complete

  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0305
  Offset address? 1
   Base   Offset  Old     New?
  030326  000001     166  ? Q!200
  030326  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.5.17 M, May 1980
  !       Executive
  !       File Processor Patches
  ! SYSTEMS GENERATED WITH SMALL FILE PROCESSOR MAY LOSE SMALL BUFFERS
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! ***   THIS PATCH IS FOR SYSTEMS GENERATED WITH THE
  !       SMALL FILE PROCESSOR ONLY ***
  !
  ! NOTE: THIS PATCH CAN NOT BE APPLIED ONLINE TO THE INSTALLED SIL.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? OPN1ST
  Symbol not found in STB
  Base address? ^Z (MODULE IS RESIDENT)
  Module name? FIP
  Base address? OPN1ST
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.5.18 M, July 1980
  !       Executive
  !       File Processor Patches
  ! 'RUN' COMMAND MAY NOT FIND A PROGRAM
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! ***   THIS PATCH IS FOR SYSTEMS GENERATED WITH
  !       THE NEW (LARGE) FILE PROCESSOR ONLY ***
  !
  ! NOTE: THIS PATCH CAN NOT BE APPLIED ONLINE TO THE INSTALLED SIL.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? OPL3ST
  Address above module bounds
  Base address? ^Z (MODULE IS RESIDENT)
  Module name? FIP
  Base address? OPL3ST
  Offset address? 160
   Base   Offset  Old     New?
  133660  000160  026165  ? 4037
  133660  000162  000006  ? FIPPAT+130
  133660  000164  000006  ? 772
  133660  000166  001371  ? 240
  133660  000170  005302  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? FIP
  Base address? FIPPAT
  Offset address? 130
   Base   Offset  Old     New?
  120000  000130  000000  ? 26165
  120000  000132  000000  ? 6
  120000  000134  000000  ? 6
  120000  000136  000000  ? 1005
  120000  000140  000000  ? 136527
  120000  000142  000000  ? 11
  120000  000144  000000  ? 100
  120000  000146  000000  ? 1401
  120000  000150  000000  ? 5720
  120000  000152  000000  ? 200
  120000  000154  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? $$0305
  Offset address? 2
   Base   Offset  Old     New?
  030326  000002  000000  ? Q!2
  030326  000004  000000  ? ^C (UP-ARROW/C TO EXIT)
  Patch complete

  !
  !       Seq 3.5.18 M, July 1980
  !       Executive
  !       File Processor Patches
  ! 'RUN' COMMAND MAY NOT FIND A PROGRAM
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! ***   THIS PATCH IS FOR SYSTEMS GENERATED WITH THE
  !       SMALL FILE PROCESSOR ONLY ***
  !
  ! NOTE: THIS PATCH CAN NOT BE APPLIED ONLINE TO THE INSTALLED SIL.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? OPN3ST
  Symbol not found in STB
  Base address? ^Z (MODULE IS RESIDENT)
  Module name? FIP
  Base address? OPN3ST
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.5.20 M, September 1980
  !       Executive
  !       File Processor Patches
  ! SET TIME CALL DOES NOT RESET SECONDS
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? PAS0ST
  Offset address? 556
   Base   Offset  Old     New?
  024000  000556  010037  ? 167
  024000  000560  001002  ? 200
  024000  000562  000207  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 762
   Base   Offset  Old     New?
  024000  000762  000000  ? 112737
  024000  000764  000000  ? 74
  024000  000766  000000  ? 1004
  024000  000770  000000  ? 10037
  024000  000772  000000  ? 1002
  024000  000774  000000  ? 207
  024000  000776  000000  ? ^C
  Patch complete

  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0305
  Offset address? 2
   Base   Offset  Old     New?
  030326  000002  000002  ? Q!10
  030326  000004  000000  ? ^C
  Patch complete

  !
  !       Seq 3.5.23 M, October 1980
  !       Executive
  !       File Processor Patches
  ! CORRECT PROBLEM IN STORAGE ALLOCATION TABLE ALLOCATION ROUTINE
  ! MANDATORY FILE PROCESSOR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? FIP
  Base address? GETCLU
  Offset address? 110
   Base   Offset  Old     New?
  125676  000110  062702  ? 4737
  125676  000112  000010  ? PATCH+104
  125676  000114  000766  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ^Z (CTRL/Z FOR NEW MODULE)
  Module name? RSTS
  Base address? PATCH
  Offset address? 104
   Base   Offset  Old     New?
  027204  000104  000000  ? 62702
  027204  000106  000000  ? 10
  027204  000110  000000  ? 103002
  027204  000112  000000  ? 62716
  027204  000114  000000  ? 112
  027204  000116  000000  ? 207
  027204  000120  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? $$0305
  Offset address? 2
   Base   Offset  Old     New?
  030326  000002  000012  ? Q!100
  030326  000004  000000  ? ^C
  Patch complete

  !
  !       Seq 3.5.25 M, June 1981
  !       Executive
  !       Terminal Service Patches
  !
  ! FIP DOES NOT UPDATE FCB'S CONTIGUOUS BIT
  ! MANDATORY FIP PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  ! (TBS)
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? DIR1ST
  Offset address? 446
   Base   Offset  Old     New?
  020000  000446  140361  ? 4737
  020000  000450  000012  ? FIPPAT+166
  020000  000452  151661  ? ^Z
  Offset address? ^Z
  Base address? ^Z
  Module name? FIP
  Base address? FIPPAT
  Offset address? 166
   Base   Offset  Old     New?
  120000  000166  000000  ? 142761
  120000  000170  000000  ? 22
  120000  000172  000000  ? 12
  120000  000174  000000  ? 207
  120000  000176  000000  ? ^Z
  Offset address? ^Z
  Base address? ^Z
  Module name? RSTS
  Base address? $$0305
  Offset address? 3
   Base   Offset  Old     New?
  030326  000003     000  ? Q!1
  030326  000004     000  ? ^C
  Patch complete

  !
  !       Seq 3.5.26 M, August 1981
  !       Executive
  !       File Processor Patches
  ! RESTRICTING NONPRIVILEGED ACCOUNT ZEROING
  ! MANDATORY FIP PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? OVR
  Base address? ZER0ST
  Offset address? 66
   Base   Offset  Old     New?
  023000  000066  021037  ? 105737
  023000  000070  001304  ? FIPRIV
  023000  000072  001403  ? 
  023000  000074  105737  ? 4767
  023000  000076  001303  ? 564
  023000  000100  001003  ? 103403
  023000  000102  032711  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 126
   Base   Offset  Old     New?
  023000  000126  152000  ? Q!20000
  023000  000130  000207  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 664
   Base   Offset  Old     New?
  023000  000664  000000  ? 21037
  023000  000666  000000  ? FIUSER
  023000  000670  000000  ? 1004
  023000  000672  000000  ? 32711
  023000  000674  000000  ? 20000
  023000  000676  000000  ? 1001
  023000  000700  000000  ? 5727
  023000  000702  000000  ? 261
  023000  000704  000000  ? 207
  023000  000706  000000  ? ^C
  Patch complete

  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0305
  Offset address? 3
   Base   Offset  Old     New?
  030326  000003     001  ? Q!2
  030326  000004     000  ? ^C
  Patch complete

  !
  !       Seq 3.7.6 M, April 1980
  !       Executive
  !       Device Driver Patches
  ! PAPER TAPE READER MAY LOSE CHARACTERS
  ! MANDATORY DEVICE DRIVER PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL IF THE PAPER TAPE READER WAS
  !       NOT CONFIGURED ON YOUR SYSTEM.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? $$0307
  Offset address? 0
   Base   Offset  Old     New?
  030336  000000  000000  ? Q!40
  030336  000002  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? INT$PR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.7.7 M, June 1980
  !       Executive
  !       Device Driver Patches
  ! DPDSK DRIVER MAY NOT REPORT FATAL ERRORS
  ! MANDATORY DEVICE DRIVER PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH IS FOR MONITOR SILS WITH THE NON-OVERLAPPED SEEK
  !       DP DRIVER (DPDSK). THE PATCH WILL FAIL ON SYSTEMS WHICH DO
  !       NOT HAVE RP02/RP03S CONFIGURED AND THOSE USING THE RP02/RP03
  !       OVERLAPPED SEEK DRIVER.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? DSK
  Base address? DPDSK
  Address below module bounds
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.7.8 M, June 1980
  !       Executive
  !       Device Driver Patches
  ! TS11 DRIVER MAY HANG JOB
  ! MANDATORY MSDVR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED FOR THE
  !       TS11 MAGNETIC TAPE DRIVER (MSDVR).
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? MSDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.7.9 M, August 1980
  !       Executive
  !       Device Driver Patches
  ! PUNCH WITH PARITY MAY CRASH SYSTEM
  ! MANDATORY PPDVR PATCH
  !
  ! NOTE: THIS PATCH WILL FAIL IF YOUR SYSTEM IS NOT CONFIGURED
  !       WITH THE PC11 PAPER-TAPE DRIVER (PPDVR).
  !
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? SER$PP
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.7.10 M, October 1980
  !       Executive
  !       Device Driver Patches
  ! MMDVR AND MTDVR RETURN INCORRECT VALUE THROUGH THE MAGTAPE BACKSPACE
  !       FUNCTION WHEN AT BOT
  ! MANDATORY DEVICE DRIVER PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: IF THIS PATCH IS INSTALLED ONLINE TO THE INSTALLED MONITOR
  !       SIL, IT WILL NOT TAKE EFFECT UNTIL THE SYSTEM IS RE-BOOTED.
  !
  ! NOTE: PARTS OF THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED FOR
  !       THE MM AND/OR MT MAGNETIC TAPE DRIVER.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? PATCH
  Offset address? 120
   Base   Offset  Old     New?
  027204  000120  000000  ? 12746
  027204  000122  000000  ? 42
  027204  000124  000000  ? 402
  027204  000126  000000  ? 12746
  027204  000130  000000  ? 20002
  027204  000132  000000  ? 32613
  027204  000134  000000  ? 1404
  027204  000136  000000  ? 16464
  027204  000140  000000  ? 10
  027204  000142  000000  ? 177776
  027204  000144  000000  ? 244
  027204  000146  000000  ? 207
  027204  000150  000000  ? ^C
  Patch complete

  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? ASN$MM
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? ASN$MT
  Offset address? 2414
   Base   Offset  Old     New?
  055156  002414  032713  ? 4737
  055156  002416  000042  ? PATCH+120
  055156  002420  001043  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? $$0307
  Offset address? 1
   Base   Offset  Old     New?
  030336  000001     000  ? Q!2
  030336  000002     000  ? ^C
  Patch complete

  !
  !       Seq 3.7.11 M, November 1980
  !       Executive
  !       Device Driver Patches
  ! CORRECT TU58 DRIVER PROBLEMS
  ! MANDATORY DEVICE DRIVER PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED FOR THE
  !       TU58 DRIVER.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? DDDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.7.12 M, December 1980
  !       Executive
  !       Device Driver Patches - DXDVR
  ! FIX HANDLING OF SOFT ERRORS
  ! MANDATORY DXDVR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: IF THIS PATCH IS INSTALLED ONLINE TO THE INSTALLED MONITOR
  !       SIL, IT WILL NOT TAKE EFFECT UNTIL THE SYSTEM IS RE-BOOTED.
  !
  ! NOTE: THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED FOR
  !       DXDVR (FLOPPY DISKETTE) DRIVER.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? DXDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.7.13 M, December 1980
  !       Executive
  !       Device Driver Patches - DXDVR
  ! SIMULTANEOUS SPEC% CALLS TO DXDVR MAY HANG CALLING
  ! JOBS IN NON-KILLABLE STATE
  ! MANDATORY DXDVR PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: IF THIS PATCH IS INSTALLED ONLINE TO THE INSTALLED MONITOR
  !       SIL, IT WILL NOT TAKE EFFECT UNTIL THE SYSTEM IS RE-BOOTED.
  !
  ! NOTE: THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED FOR THE
  !       DXDVR (FLOPPY DISKETTE) DRIVER.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? DXDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !       Seq 3.7.14 M, August 1981
  !       Executive
  !       Device Driver Patches
  ! TS11 CONCATENATES FILES DURING CORRECTIVE RECOVERY OF SOFT ERRORS
  ! MANDATORY TS11 DRIVER PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED FOR THE
  !       TS11 MAGNETIC TAPE DRIVER (MSDVR).
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? MSDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !       Seq 3.7.15 M, August 1981
  !       Executive
  !       Device Driver Patches
  ! TS11 DRIVER MAY CRASH SYSTEM DURING RECOVERY OF FATAL ERRORS
  ! MANDATORY TS11 DRIVER PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED FOR THE
  !       TS11 MAGNETIC TAPE DRIVER (MSDVR).
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? MSDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !       Seq 3.7.16 M, August 1981
  !       Executive
  !       Device Driver Patches
  ! RX02 DRIVER MAY CAUSE SYSTEM TO HANG ON CERTAIN CPU'S
  ! MANDATORY DXDVR PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL ON SYSTEMS NOT CONFIGURED FOR THE
  !       RX01/RX02 FLOPPY DISKETTE DRIVER (DXDVR).
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? DXDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 3.7.17 M, November 1981
  !       Executive
  !       Device Driver Patches
  ! TS11 MAY CAUSE SYSTEM HANGS DURING REWINDS
  ! MANDATORY MSDVR PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: IF THIS PATCH IS INSTALLED ONLINE TO THE INSTALLED MONITOR
  !       SIL, IT WILL NOT TAKE EFFECT UNTIL THE SYSTEM IS RE-BOOTED.
  !
  !       THIS PATCH WILL FAIL (WITH SYMBOL NOT FOUND IN STB AT
  !       BASE ADDRESS MSDVR) ON SYSTEMS NOT CONFIGURED FOR THE
  !       TS11 MAGNETIC TAPE DRIVER.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? MSDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !       Seq 3.7.18 M, December 1981
  !       Executive
  !       Device Driver Patches
  ! MMDVR DOES NOT RETRY WRITES WHEN CORRECTABLE ERRORS ARE ENCOUNTERED
  ! MANDATORY MMDVR PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? MMDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 50.2.1 M, February 1980
  !       KMC Drivers
  !       IBM Interconnect (II) Driver
  ! PUNCH CHANNEL FOR 3780
  ! MANDATORY IIDVR DEVICE DRIVER PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL IF THE IBM INTERCONNECT (II) DRIVER
  !       IS NOT CONFIGURED ON YOUR SYSTEM.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? IIDINT
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 50.2.2 M, February 1980
  !       KMC Drivers
  !       IBM Interconnect (II) Driver
  ! DEVICE SELECTION FOR 3780
  ! MANDATORY IIDVR DEVICE DRIVER PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL IF THE IBM INTERCONNECT (II) DRIVER
  !       IS NOT CONFIGURED ON YOUR SYSTEM.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? IIDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  !
  !       Seq 50.2.3 M, February 1980
  !       KMC Drivers
  !       IBM Interconnect (II) Driver
  ! END OF FILE FOR 3780
  ! MANDATORY IIDVR DEVICE DRIVER PATCH
  ! COPYRIGHT (C) 1980 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! NOTE: THIS PATCH WILL FAIL IF THE IBM INTERCONNECT (II) DRIVER
  !       IS NOT CONFIGURED ON YOUR SYSTEM.
  !
  File to patch? SY0:[0,1]RSTS.SIL
  File found in account [0,1]
  Module name? RSTS
  Base address? IIDVR
  Symbol not found in STB
  Base address? 
  Command file sequence error
  Patch complete - no modifications made

  28 patches installed
  20 patches skipped

  Command file name? ^C

  .R ONLPAT.SAV
  Command file name? PATCHG:$BASIC.CMD
  !
  !       BASIC.CMD
  !
  !       Seq 4.1.8 M, April 1980
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! CORRECT EXP FUNCTION LIMIT CHECKING
  ! MANDATORY 2-WORD EIS/FIS BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1980, 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, 
  MASS.
  !
  ! NOTE: This patch will fail unless applied to 2-WORD EIS or FIS
  !       BASIC-PLUS Run-Time Systems with LOG functions.
  !
  File to patch? BASIC.RTS
  Base address? MAXL
  Offset address? 404
   Base   Offset  Old     New?
  174326  000404  020027  ? 
  174326  000406  141662  ? 141660
  174326  000410  101123  ? ^C
  Patch complete

  !
  !       Seq 4.1.9 M, April 1980
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! CORRECT EXP FUNCTION LIMIT CHECKING
  ! MANDATORY 2-WORD FPU BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1980, 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, 
  MASS.
  !
  ! NOTE: This patch will fail unless applied to 2-WORD FPU
  !       BASIC-PLUS Run-Time Systems with LOG functions.
  !
  File to patch? BASIC.RTS
  Base address? MAXL
  Offset address? 306
   Base   Offset  Old     New?
  174326  000306  012741  ? Old<>020027 
  174326  000310  040061  ? Old<>141662 141660
  174326  000312  000134  ? Old<>101054 ^C
  Patch complete - no modifications made

  !
  !       Seq 4.1.10 M, March 1981 (April 1980)
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! CORRECT EXP FUNCTION LIMIT CHECKING
  ! MANDATORY 4-WORD EIS BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1980, 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, 
  MASS.
  !
  ! NOTE: This patch will fail unless applied to 4-WORD EIS
  !       BASIC-PLUS Run-Time Systems with LOG functions.
  !
  File to patch? BASIC.RTS
  Base address? MAXL
  Offset address? 522
   Base   Offset  Old     New?
  174326  000522  062711  ? Old<>020027 
  174326  000524  100200  ? Old<>141662 141660
  174326  000526  000134  ? Old<>101160 ^C
  Patch complete - no modifications made

  !
  !       Seq 4.1.11 M, April 1980
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! CORRECT EXP FUNCTION LIMIT CHECKING
  ! MANDATORY 4-WORD FPU BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1980, 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, 
  MASS.
  !
  ! NOTE: This patch will fail unless applied to 4-WORD FPU
  !       BASIC-PLUS Run-Time Systems with LOG functions.
  !
  File to patch? BASIC.RTS
  Base address? MAXL
  Offset address? 402
   Base   Offset  Old     New?
  174326  000402  003004  ? Old<>020027 
  174326  000404  020027  ? Old<>141662 141660
  174326  000406  141660  ? Old<>101075 ^C
  Patch complete - no modifications made

  !
  !       Seq 4.1.12 M, July 1980
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! CTRL/C TRAPPING WITH SEND/RECEIVE
  ! MANDATORY BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1980, 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, 
  MASS.
  !
  File to patch? BASIC.RTS
  Base address? $$0401
  Offset address? 1
   Base   Offset  Old     New?
  177466  000001     000  ? Q!10
  177466  000002     000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? SN
  Offset address? 302
   Base   Offset  Old     New?
  124406  000302  004737  ? 137
  124406  000304  120144  ? PA
  124406  000306  012704  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PA
  Offset address? 0
   Base   Offset  Old     New?
  177476  000000  000000  ? 32737
  177476  000002  000000  ? 100200
  177476  000004  000000  ? 400
  177476  000006  000000  ? 1402
  177476  000010  000000  ? 105037
  177476  000012  000000  ? 402
  177476  000014  000000  ? 4737
  177476  000016  000000  ? IODIE
  177476  000020  000000  ? 137
  177476  000022  000000  ? SN+306
  177476  000024  000000  ? ^C
  Patch complete

  !
  !
  !
  !       Seq 4.1.13 M, August 1981
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! TRAILING COMMA AT END OF PRINT LIST
  ! MANDATORY BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! Note: only the patch which is associated with the
  !       BASIC-PLUS math package on your system will
  !       apply correctly; the remaining patches will fail.
  !       The shortened version of the patches will only
  !       apply if you have applied the April 1981 version
  !       of the patch.
  !
  ! The patch is as follows if you have applied the earlier version
  ! and have the 4 word EIS math package:
  File to patch? BASIC.RTS
  Base address? MA
  Offset address? 4244
   Base   Offset  Old     New?
  165370  004244  100404  ? Old<>121327 ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PA
  Offset address? 76
   Base   Offset  Old     New?
  177476  000076  000000  ? Old<>161566 MA+4244
  177476  000100  000000  ? Old<>001004 ^C
  Patch complete - no modifications made

  ! The patch is as follows if you have applied the earlier version
  ! and have the 4 word FPU math package:
  File to patch? BASIC.RTS
  Base address? MA
  Offset address? 4222
   Base   Offset  Old     New?
  165370  004222  000071  ? Old<>121327 ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PA
  Offset address? 76
   Base   Offset  Old     New?
  177476  000076  000000  ? Old<>161566 MA+4222
  177476  000100  000000  ? Old<>001004 ^C
  Patch complete - no modifications made

  ! The patch is as follows if you have applied the earlier version
  ! and have one of the 2 word math packages:
  File to patch? BASIC.RTS
  Base address? MA
  Offset address? 3520
   Base   Offset  Old     New?
  165370  003520  121327  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PA
  Offset address? 76
   Base   Offset  Old     New?
  177476  000076  000000  ? Old<>161566 MA+3520
  177476  000100  000000  ? Old<>001004 ^C
  Patch complete - no modifications made

  !
  ! The patch is as follows if you have NOT applied the earlier version
  ! and have the 4 word EIS math package:
  File to patch? BASIC.RTS
  Base address? $$0401
  Offset address? 1
   Base   Offset  Old     New?
  177466  000001     010  ? Q!20
  177466  000002     000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? MA
  Offset address? 4244
   Base   Offset  Old     New?
  165370  004244  100404  ? Old<>121327 ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PO
  Offset address? 2
   Base   Offset  Old     New?
  165364  000002  137566  ? Q+10
  165364  000004  040511  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PU
  Offset address? 7
   Base   Offset  Old     New?
  137524  000007     151  ? 151
  137524  000010     026  ? 
  137524  000011     002  ? 2
  137524  000012     201  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 23
   Base   Offset  Old     New?
  137524  000023     204  ? 
  137524  000024     013  ? 23
  137524  000025     061  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 31
   Base   Offset  Old     New?
  137524  000031     356  ? 6
  137524  000032     361  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 37
   Base   Offset  Old     New?
  137524  000037     100  ? 151
  137524  000040     101  ? 26
  137524  000041     102  ? 352
  137524  000042     366  ? 201
  137524  000043     013  ? 161
  137524  000044     002  ? 356
  137524  000045     000  ? 70
  137524  000046     016  ? 366
  137524  000047     002  ? 100
  137524  000050     227  ? 101
  137524  000051     045  ? 102
  137524  000052     110  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 52
   Base   Offset  Old     New?
  137524  000052  171110  ? 137
  137524  000054  001014  ? PA+66
  137524  000056  122327  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PA
  Offset address? 66
   Base   Offset  Old     New?
  177476  000066  000000  ? 5766
  177476  000070  000000  ? 2
  177476  000072  000000  ? 1005
  177476  000074  000000  ? 22627
  177476  000076  000000  ? MA+4244
  177476  000100  000000  ? 1004
  177476  000102  000000  ? 137
  177476  000104  000000  ? PU+56
  177476  000106  000000  ? 137
  177476  000110  000000  ? PU+104
  177476  000112  000000  ? 137
  177476  000114  000000  ? PU+106
  177476  000116  000000  ? ^C
  Patch complete - no modifications made

  !
  ! The patch is as follows if you have NOT applied the earlier version
  ! and have the 4 word FPU math package:
  File to patch? BASIC.RTS
  Base address? $$0401
  Offset address? 1
   Base   Offset  Old     New?
  177466  000001     010  ? Q!20
  177466  000002     000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? MA
  Offset address? 4222
   Base   Offset  Old     New?
  165370  004222  000071  ? Old<>121327 ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PO
  Offset address? 2
   Base   Offset  Old     New?
  165364  000002  137566  ? Q+10
  165364  000004  040511  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PU
  Offset address? 7
   Base   Offset  Old     New?
  137524  000007     151  ? 151
  137524  000010     026  ? 
  137524  000011     002  ? 2
  137524  000012     201  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 23
   Base   Offset  Old     New?
  137524  000023     204  ? 
  137524  000024     013  ? 23
  137524  000025     061  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 31
   Base   Offset  Old     New?
  137524  000031     356  ? 6
  137524  000032     361  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 37
   Base   Offset  Old     New?
  137524  000037     100  ? 151
  137524  000040     101  ? 26
  137524  000041     102  ? 352
  137524  000042     366  ? 201
  137524  000043     013  ? 161
  137524  000044     002  ? 356
  137524  000045     000  ? 70
  137524  000046     016  ? 366
  137524  000047     002  ? 100
  137524  000050     227  ? 101
  137524  000051     045  ? 102
  137524  000052     110  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 52
   Base   Offset  Old     New?
  137524  000052  171110  ? 137
  137524  000054  001014  ? PA+66
  137524  000056  122327  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PA
  Offset address? 66
   Base   Offset  Old     New?
  177476  000066  000000  ? 5766
  177476  000070  000000  ? 2
  177476  000072  000000  ? 1005
  177476  000074  000000  ? 22627
  177476  000076  000000  ? MA+4222
  177476  000100  000000  ? 1004
  177476  000102  000000  ? 137
  177476  000104  000000  ? PU+56
  177476  000106  000000  ? 137
  177476  000110  000000  ? PU+104
  177476  000112  000000  ? 137
  177476  000114  000000  ? PU+106
  177476  000116  000000  ? ^C
  Patch complete - no modifications made

  !
  ! The patch is as follows if you have NOT applied the earlier version
  ! and have one of the 2 word math packages:
  File to patch? BASIC.RTS
  Base address? $$0401
  Offset address? 1
   Base   Offset  Old     New?
  177466  000001     010  ? Q!20
  177466  000002     000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? MA
  Offset address? 3520
   Base   Offset  Old     New?
  165370  003520  121327  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PO
  Offset address? 2
   Base   Offset  Old     New?
  165364  000002  137566  ? Q+10
  165364  000004  040511  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PU
  Offset address? 7
   Base   Offset  Old     New?
  137524  000007     151  ? 151
  137524  000010     026  ? 
  137524  000011     002  ? 2
  137524  000012     201  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 23
   Base   Offset  Old     New?
  137524  000023     204  ? 
  137524  000024     013  ? 23
  137524  000025     061  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 31
   Base   Offset  Old     New?
  137524  000031     356  ? 6
  137524  000032     361  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 37
   Base   Offset  Old     New?
  137524  000037     100  ? 151
  137524  000040     101  ? 26
  137524  000041     102  ? 352
  137524  000042     366  ? 201
  137524  000043     013  ? 161
  137524  000044     002  ? 356
  137524  000045     000  ? 70
  137524  000046     016  ? 366
  137524  000047     002  ? 100
  137524  000050     227  ? 101
  137524  000051     045  ? 102
  137524  000052     110  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 52
   Base   Offset  Old     New?
  137524  000052  171110  ? 137
  137524  000054  001014  ? PA+66
  137524  000056  122327  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PA
  Offset address? 66
   Base   Offset  Old     New?
  177476  000066  000000  ? 5766
  177476  000070  000000  ? 2
  177476  000072  000000  ? 1005
  177476  000074  000000  ? 22627
  177476  000076  000000  ? MA+3520
  177476  000100  000000  ? 1004
  177476  000102  000000  ? 137
  177476  000104  000000  ? PU+56
  177476  000106  000000  ? 137
  177476  000110  000000  ? PU+104
  177476  000112  000000  ? 137
  177476  000114  000000  ? PU+106
  177476  000116  000000  ? ^C
  Patch complete

  !
  !       Seq 4.1.14 M, June 1980
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! CORRECT PROBLEM WITH "OLD" FROM FLEXIBLE DISKETTES
  ! MANDATORY BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1980, 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? BASIC.RTS
  Base address? $$0401
  Offset address? 1
   Base   Offset  Old     New?
  177466  000001     030  ? Q!40
  177466  000002     000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? ED
  Offset address? 556
   Base   Offset  Old     New?
  155714  000556  052764  ? 240
  155714  000560  104000  ? 240
  155714  000562  000022  ? 240
  155714  000564  004567  ? ^C
  Patch complete

  !
  !       Seq 4.1.16 M, August 1980
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! BASIC-PLUS FAILS TO INITIALIZE LOW MEMORY
  ! MANDATORY BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1980, 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  File to patch? BASIC.RTS
  Base address? SU
  Offset address? 14
   Base   Offset  Old     New?
  127752  000014  005067  ? 4737
  127752  000016  050406  ? PA+54
  127752  000020  100406  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? PA
  Offset address? 54
   Base   Offset  Old     New?
  177476  000054  000000  ? 5037
  177476  000056  000000  ? 400
  177476  000060  000000  ? 105037
  177476  000062  000000  ? 731
  177476  000064  000000  ? 207
  177476  000066  005766  ? Old<>000000 ^C
  Patch complete - no modifications made

  !
  !       Seq 4.1.17 M, August 1981
  !       BASIC-PLUS
  !       BASIC-PLUS Patches
  ! CORRECT NEGATIVE ARRAY SUBSCRIPT CHECKING
  ! MANDATORY BASIC-PLUS PATCH
  ! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
  !
  ! Note: only the patch which is associated with the
  !       BASIC-PLUS math package on your system will
  !       apply correctly; the remaining patches will fail.
  !
  ! NOTE: THIS PATCH HAS A POTENTIAL ERROR IN IT, THEREFORE IT WILL NOT
  !       BE DISTRIBUTED UNTIL THE ERROR IS CLEARED UP.
  File to patch? 
  Command file sequence error
  Patch complete - no modifications made

  !
  ! The patch is as follows for 4 word EIS math packages:
  File to patch? BASIC.RTS
  Base address? $$0401
  Offset address? 2
   Base   Offset  Old     New?
  177466  000002  000000  ? Q!2
  177466  000004  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? MA
  Offset address? 5166
   Base   Offset  Old     New?
  165370  005166  004767  ? Old<>000020 21
  165370  005170  001176  ? Old<>103263 ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 5174
   Base   Offset  Old     New?
  165370  005174  011600  ? Old<>000100 101
  165370  005176  062700  ? Old<>000660 ^C
  Patch complete - no modifications made

  !
  ! The patch is as follows for 2 word FPU math packages:
  File to patch? BASIC.RTS
  Base address? $$0401
  Offset address? 2
   Base   Offset  Old     New?
  177466  000002  000000  ? Q!2
  177466  000004  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? MA
  Offset address? 4416
   Base   Offset  Old     New?
  165370  004416  001047  ? Old<>000020 21
  165370  004420  000261  ? Old<>103273 ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 4424
   Base   Offset  Old     New?
  165370  004424  000231  ? Old<>000100 101
  165370  004426  001043  ? Old<>000670 ^C
  Patch complete - no modifications made

  !
  ! The patch is as follows for 2 word EIS or FIS math packages:
  File to patch? BASIC.RTS
  Base address? $$0401
  Offset address? 2
   Base   Offset  Old     New?
  177466  000002  000000  ? Q!2
  177466  000004  000000  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? ^Z (CTRL/Z FOR NEW BASE)
  Base address? MA
  Offset address? 4432
   Base   Offset  Old     New?
  165370  004432  000020  ? 21
  165370  004434  103263  ? ^Z (CTRL/Z FOR NEW OFFSET)
  Offset address? 4440
   Base   Offset  Old     New?
  165370  004440  000100  ? 101
  165370  004442  000660  ? ^C
  Patch complete

  5 patches installed
  12 patches skipped

  Command file name? ^C

Dismount DL1:  
  .DEASSIGN  PATCHG

  .R PIP.SAV
  *SY0:[0,1]*.*/MODE:16.=BASIC.RTS
  *BASIC.RTS/DE
  *^C

  .R LOGOUT
  Confirm: Y
  Saved all disk files; 886 blocks in use
  Job 2 User 1,2 logged off KB1 at 19-Feb-85 06:09 AM
  1 other user still logged in under this account
  System RSTS V7.0-07 PICO
  Run time was 19.7 seconds
  Elapsed time was 0 minutes
  Good morning

Batch job completed.

.R UTILTY.SAV
*NO LOGINS
*SHUTUP

RSTS V7.0-07 PICO (DL0)

Option: INS

Sil ? RSTS

Option: DEF

No defaults are currently set in RSTS.SIL

You currently have: JOB MAX = 10, SWAP MAX = 16K.

JOB MAX or SWAP MAX changes? Y

  New JOB MAX? 

  New SWAP MAX? 31

You currently have: JOB MAX = 10, SWAP MAX = 31K.

JOB MAX or SWAP MAX changes? 

Run Time System? BASIC

Error message file? ERR

Installation name? PICO

  Memory allocation table:

     0K: 00000000 - 00153777 (  27K) : EXEC
    27K: 00154000 - 00243777 (  14K) : RTS (BASIC)
    41K: 00244000 - 00757777 (  83K) : USER
   124K: 00760000 - End              : NXM

  Table suboption? 

You currently have crash dump disabled.

Crash dump? Y

Magtape labelling default ? ANSI

Preferred clock ? 

Date format ? 

Time format ? 24-HOUR

Power fail delay <1>? 

Option: 
^E
Simulation stopped, PC: 011130 (BPL 11322)
sim> att rl2 rsts_sysl1g.dsk
%SIM-INFO: RL2: './rsts_sysl1g.dsk' Contains a RSTS File system
%SIM-INFO: RL2: Pack ID: SYSL1G Revision Level: 0.0 Pack Clustersize: 1
%SIM-INFO: RL2: Last Unallocated Sector In File System: 10219
sim> set rl2 lock
sim> B RL0

RSTS V7.0-07 PICO (DL0)

Option: 

You currently have: JOB MAX = 10, SWAP MAX = 31K.

You currently have crash dump enabled.

DD-MMM-YY? 19-FEB-85
00:00 ? 18:13
?Can't find file or account
?Program lost-Sorry

Ready

MOUNT DL1:PATCHG/RO

Ready

MOUNT DL2:SYSL1G/RO

Ready

RUN DL2:$BUILD
BUILD   V7.0-07 RSTS V7.0-07 PICO
System Build  ? YES
Source Input Device  ? 
Library Output Device  ? 
Target System Device  ? 
Library Account <[1,2]> ? 

*** Copying file DL2:[1,2]BUILD.CTL to BLD01.TMP ***

Locate logical 'LB:' on  ? 
Function (Build/Patch, Patch, Build)  ? 
Patch file input location  ? DL1:[1,2]
Save patched sources  ? 
Run-Time System  ? 
Locate ERROR Package on  ? 
Additional Control File is  ? 
COMPILE SY:[1,2]BUILD
OLD DL2:[1,2]LOGIN.BAS
COMPILE SY0:[1,2]
OLD DL2:[1,2]ATPK.BAS
COMPILE SY:[1,2]
RUN SY:[1,2]ATPK
BLD01.TMP/RTS:[0,1]BASIC.RTS/LOG/DEL

Ready

Ready

Ready

Ready

Ready

Ready

ATPK    V7.0-07 RSTS V7.0-07 PICO
*
Ready

ASSIGN SY0:SYSDSK

Ready

ASSIGN SY:SYSTEM

Ready

ASSIGN [1,2]

Ready

ASSIGN DL2:INPUT

Ready

!********** BUILD.CTL - STANDARD LIBRARY PROGRAMS
! Copyright (C) 1979 by Digital Equipment Corporation, Maynard, Mass.

SCALE 0

Ready

OLD DL2:[1,2]CPATCH.BAS

Ready

COMPILE SY:[1,2]CPATCH

Ready

SCALE 0

Ready

OLD DL2:[1,2]AUTOED.BAS

Ready

COMPILE SY:[1,2]AUTOED

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]BUILD.BAS=DL2:[1,2]BUILD.BAS
#DL1:[1,2]PA1002.002/CS:17422
*H/2!/V
2!              PROGRAM         : BUILD.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/08-JAN-80/V
7!              EDIT DATE       : 08-JAN-80
*H/20   !/V
20      ! &
*G/REASON &/I

        ! V7.0-07A      08-JAN-80       FIX $PATCH WITHIN A $FORCE. &$*V
        ! V7.0-07A      08-JAN-80       FIX $PATCH WITHIN A $FORCE. &
*H/1000 /V
1000    ! &
*G/V7.0-07/I/A/V
        \ I$="V7.0-07A" &
*H/17520        /V
17520   IF ERR=11% &
*I
CLOSE 10%,11% &
        \ $*V
        \ IF ERR=11% &
*H/17540        /V
17540   CLOSE 10%,11% &
*K3DV
17540   ON ERROR GO TO 19000 &
*H/20085        /V
20085    GO TO 20140 IF FNR%("$PATCH",-4%)=0% OR BOT% &
*I
P%=0% &
        \$*V
        \ GO TO 20140 IF FNR%("$PATCH",-4%)=0% OR BOT% &
*EX
Patch from _DL1:[1,2]PA1002.002 complete.
#DL1:[1,2]PA1002.003/CS:61092
*H/2!/V
2!              PROGRAM         : BUILD.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 08-JAN-80
*G/08-JAN-80/-9C/24-SEP-80/V
7!              EDIT DATE       : 24-SEP-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      24-SEP-80       FIX MISCELLANEOUS BUGS. &
$*V
        ! V7.0-07A      08-JAN-80       FIX $PATCH WITHIN A $FORCE. &
*H/1000 /G/07A/-C/B/V
        \ I$="V7.0-07B" &
*H/2010 /V
2010    IF ASCII(C$)<>36% THEN &
*G/FNR%("BREAK",-3%)/I/ OR FNR%("END",-3%)/V
                GOTO 2000 IF FNR%("BREAK",-3%) OR FNR%("END",-3%) &
*H/2020 /16DI/GOTO 2050/V
2020    GOTO 2050 UNLESS FUNC%=2% OR BOT% &
*H/2030 /V
2030    ! &
*G/JMP%/0AKG/JMP%/0AKV
        \ WHILE SP%>DPAT% &
*G/GOSUB 20000/I/ IF SP%>DPAT%/V
        \       GOSUB 20000 IF SP%>DPAT% &
*G/JMP%/0AKV
                !       SAVE STATE OF STACK &
*H/2100 /3AI
        GOSUB 2110 &
        \ GOTO 2000 &

2110$*V
2110    NEW.FIL%=-1% &
*G/GOTO 2000/-9C/RETURN/
*G/GO BACK TO 2000/-8D
*H/2185 /G/GOTO 2000/-9C/RETURN/
*H/2200 /G/GOTO 2000/-9C/RETURN/
*G/GOTO 2000/-9C/RETURN/
*H/2220 /G/GOTO 2000/-9C/RETURN/
*G/GOTO 2000/-9C/RETURN/
*H/2250 /G/GOTO 2000/-9C/RETURN/
*G/"RTS.NM"/AI
        \       NKBM$,RTSD$,UCSP$=NL$ &
$*V
        \       GOTO 2000 &
*G/GOTO 2000/-9C/RETURN/
*H/2260 /G/"RTS.NM"/AI
        \                       NKBM$,RTSD$,UCSP$=NL$ &
$*V
        \                       GOTO 2000 &
*G/GOTO 2000/-9C/RETURN/
*H/2380 /G/GOTO 2000/-9C/RETURN/
*H/15400        /G/DEF*/AI
        \ GOTO 15440 UNLESS E0% &
$*V
        \ TMO$=LIB.DEV$+LIB.ACC$ &
*H/15570        /G/JMP%/2AI
        \ JMP%=0% &
$*V
        \ IF LEN(T0$)=0% OR ((DEVSTAT% AND 255%) AND (M1%(17%) AND 2%)=0
%) &
*H/17500        /G/RECORDSIZE 2%/I/ EQV 32767%/
*H/20000        /G/HANDEL/-2C/LE/V
20000   ! HANDLE ALL PBUILD SPECIFIC SUBSTITUTIONS AND COMMANDS. &
*2A10KI
        \ RETURN IF FNR%("$END",-4%) &
        \ GOTO 20145 IF FNR%("$PROMPT",-4%) &
        \ GOTO 20140 IF FNR%("$BOOT",-5%) OR BOT% &
        \ GOTO 20085 IF FNR%("$PATCH",-4%) &
                ! &
        \ GOTO 20000 IF (FNIND% OR -1%) IF FNR%("$FORCE",-4%) &
        \ C0$=FNSBST$(CVT$$(C0$,4%)) &
        \ T0%=FNPRNT%(C0$+CRLF$) &
        \ RETURN &
$*V
                ! HANDLE ALL TEXT TO BE FORCED TO &
*H/20085        /2K3DV
20085   C0$=FNFLMRG$(".BAS",CVT$$(RIGHT(C0$,P%+1%),38%),31%) &
*H/20090        /4DI/GOTO 20150 IF /V
20090   GOTO 20150 IF FNIND% &
*AKI
        \ GOTO 20090 IF ASCII(C0$)=33% &
$*V
        \ GO TO 20100 IF FNR%("$END",-4%) &
*G/("$END",-4%)/I/ OR FNR%("$FORCE",-4%)/V
        \ GO TO 20100 IF FNR%("$END",-4%) OR FNR%("$FORCE",-4%) &
*H/20130        /G/KILL PATCHED/0AI
        \ RETURN &
$*V
                ! KILL PATCHED COPY UNLESS &
*H/20140        /2K3DG/T0% AND /-8DA
*I
        \ RETURN UNLESS P% &
$*V
        \ BOT%,E0%=0% IF T0% &
*G/ IF T0%/-7DG/ IF T0%/-7D
*2AI

20145   GOSUB 2110 &
        \ RETURN &
$*V

*EX
Patch from _DL1:[1,2]PA1002.003 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]BUILD.BAS

Ready

COMPILE SY:[1,2]BUILD

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]BUILD.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]ATPK.BAS=DL2:[1,2]ATPK.BAS
#DL1:[1,2]PA1707.003/CS:8120
*H/2!/V
2!              PROGRAM         : ATPK.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/14-APR-80/V
7!              EDIT DATE       : 14-APR-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      14-APR-80       FIX PK HANDLING &
$*V
        ! &
*H/1010 /V
1010    IDENT.STG$="V7.0-07" &
*G/07/I/A/V
1010    IDENT.STG$="V7.0-07A" &
*H/1530 /42AV
             +CVT%$(0%)+CHR$(128%)+CHR$(0%)+CHR$(255%)+CVT%$(-1%)) &
*6JI/+CHR$(0%)/V
             +CHR$(0%)+CVT%$(0%)+CHR$(128%)+CHR$(0%)+CHR$(255%)+CVT%$(-1
%)) &
*H/2010 /4AV
        \     T0%=FNTO.LOG%(CTRL.LINE$,0%) UNLESS KB.IN% &
*21J10C/CVT$$(CTRL.LINE$,1%)/V
        \     T0%=FNTO.LOG%(CVT$$(CTRL.LINE$,1%),0%) UNLESS KB.IN% &
*H/2930 /6AV
        \ IF PK.STATUS%=0% THEN GOSUB 10010 &
*G/0%/I/ OR PK.STATUS%=28%/V
        \ IF PK.STATUS%=0% OR PK.STATUS%=28% THEN GOSUB 10010 &
*H/16000        /8AV
        \ T0$=CVT$$(T0$,1%) &
*2KV
        \ IF (NOT LOG.OFF%) THEN &
*H/19010        /V
19010   IF ERR=11% AND ERL=2000% AND IN.AT% THEN &
*G/AT%/I/ AND KB.IN%=0%/V
19010   IF ERR=11% AND ERL=2000% AND IN.AT% AND KB.IN%=0% THEN &
*EX
Patch from _DL1:[1,2]PA1707.003 complete.
#DL1:[1,2]PA1707.004/CS:45132
*H/2!/V
2!              PROGRAM         : ATPK.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 14-APR-80
*G/14-APR-80/-9C/08-JUL-80/V
7!              EDIT DATE       : 08-JUL-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      08-JUL-80       FIX ERROR DETECTION &
$*V
        ! V7.0-07A      14-APR-80       FIX PK HANDLING &
*H/1010 /V
1010    IDENT.STG$="V7.0-07A" &
*G/07A/-C/B/V
1010    IDENT.STG$="V7.0-07B" &
*H/2000 /13AV
        \     FIELD #IN.CH%, RECOUNT-1% AS T1$, 1% AS T1$ &
*2G/T1/-C/2/V
        \     FIELD #IN.CH%, RECOUNT-1% AS T1$, 1% AS T2$ &
*AI
        \     LAST.CHR$=T2$+NL$ &
$*V
        \     ECHO%=ASCII(T1$)+1000% &
*G/T1/-C/2/V
        \     ECHO%=ASCII(T2$)+1000% &
*H/10310        /V
10310   GOTO 10350 IF ERR.FLG% AND ASCII(PK.TEXT$)<>32% &
*I
IF LEN(PK.TEXT$) THEN &
          $*V
          GOTO 10350 IF ERR.FLG% AND ASCII(PK.TEXT$)<>32% &
*3AV
        \ T0%=INSTR(1%,PK.TEXT$,"?") &
*I
        \ ERR.FLG%=0% &
$*V
        \ T0%=INSTR(1%,PK.TEXT$,"?") &
*EX
Patch from _DL1:[1,2]PA1707.004 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]ATPK.BAS

Ready

COMPILE SY0:[1,2]ATPK

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]ATPK.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]LOGIN.BAS=DL2:[1,2]LOGIN.BAS
#DL1:[1,2]PA1012.007/CS:21832
*H/2!/V
2!              PROGRAM         : LOGIN.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/25-FEB-80/V
7!              EDIT DATE       : 25-FEB-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      25-FEB-80       PREVENT OVERPRINT IN HALF DUPLEX
 MODE. &
$*V
        ! &
*H/12010        /V
12010   PRINT FNC$; &
*G/PRINT/6DV
12010   PRINT &
*EX
Patch from _DL1:[1,2]PA1012.007 complete.
#DL1:[1,2]PA1012.008/CS:52711
*H/2!/V
2!              PROGRAM         : LOGIN.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 25-FEB-80
*G/25-FEB-80/-9C/25-FEB-80/V
7!              EDIT DATE       : 25-FEB-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      25-FEB-80       FIX "NO SMALL BUFFER" ERROR SYS 
CALL &
$*V
        ! V7.0-07A      25-FEB-80       PREVENT OVERPRINT IN HALF DUPLEX
 MODE. &
*H/22630        /2AV
        ELSE    PRINT FNC$; CVT$$(RIGHT(SYS(CHR.6$+CHR$(ERR)),3%),4%) &
*G/CHR.6$/I/+CHR$(9%)/V
        ELSE    PRINT FNC$; CVT$$(RIGHT(SYS(CHR.6$+CHR$(9%)+CHR$(ERR)),3
%),4%) &
*EX
Patch from _DL1:[1,2]PA1012.008 complete.
#DL1:[1,2]PA1012.009/CS:38731
*H/2!/V
2!              PROGRAM         : LOGIN.BAS
*H/6!/:V
6!              EDIT            : 07B
*G/07B/-C/C/V
6!              EDIT            : 07C
*H/7!/V
7!              EDIT DATE       : 25-FEB-80
*G/25-FEB-80/-9C/03-MAR-80/V
7!              EDIT DATE       : 03-MAR-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07C      03-MAR-80       ONLY SWITCH TO ALT RTS IF LOGGED
 IN. &
$*V
        ! V7.0-07B      25-FEB-80       FIX "NO SMALL BUFFER" ERROR SYS 
CALL &
*H/32665        /3AV
        \ Q$=Q$+I$ &
*G/I$/I/ IF A%/V
        \ Q$=Q$+I$ IF A% &
*EX
Patch from _DL1:[1,2]PA1012.009 complete.
#DL1:[1,2]PA1012.010/CS:64854
*H/2!/V
2!              PROGRAM         : LOGIN.BAS
*H/6!/:V
6!              EDIT            : 07C
*G/07C/-C/D/V
6!              EDIT            : 07D
*H/7!/V
7!              EDIT DATE       : 03-MAR-80
*G/03-MAR-80/-9C/13-MAR-80/V
7!              EDIT DATE       : 13-MAR-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07D      13-MAR-80       FAILURE TO ATTACH LOGS INVALID J
OB NO. &
$*V
        ! V7.0-07C      03-MAR-80       ONLY SWITCH TO ALT RTS IF LOGGED
 IN. &
*H/19010        /V
19010   IF SEND.OPSER% THEN &
*6AV
        \       I$=NUM$(J%)+"- ["+NUM1$(SWAP%(T0%) AND 255%) &
*G/I$/-C/0$/V
        \       I0$=NUM$(J%)+"- ["+NUM1$(SWAP%(T0%) AND 255%) &
*2AV
        \       T0%=FNS%("ATTACHing to job"+I$) &
*G/I$/-C/0$/V
        \       T0%=FNS%("ATTACHing to job"+I0$) &
*H/19900        /V
19900   OPEN "_KB:LOGIN.CMD" FOR INPUT AS FILE 1% &
*AV
        \ T0%=FNS%("Failure to attach to job"+I$) IF SEND.OPSER% &
*G/I$/-C/0$/V
        \ T0%=FNS%("Failure to attach to job"+I0$) IF SEND.OPSER% &
*EX
Patch from _DL1:[1,2]PA1012.010 complete.
#DL1:[1,2]PA1012.011/CS:44278
*H/2!/V
2!              PROGRAM         : LOGIN.BAS
*H/6!/:V
6!              EDIT            : 07D
*G/07D/-C/E/V
6!              EDIT            : 07E
*H/7!/V
7!              EDIT DATE       : 13-MAR-80
*G/13-MAR-80/-9C/16-MAY-80/V
7!              EDIT DATE       : 16-MAY-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07E      16-MAY-80       ATTACH NOT CHECKING QUOTA. &
$*V
        ! V7.0-07D      13-MAR-80       FAILURE TO ATTACH LOGS INVALID J
OB NO. &
*H/7030 /V
7030    I$=SYS(PRIV.OFF$) &
*I
GOSUB 20000 &
        \ GOTO 21000 IF I% &
        \ $*V
        \ I$=SYS(PRIV.OFF$) &
*EX
Patch from _DL1:[1,2]PA1012.011 complete.
#DL1:[1,2]PA1012.012/CS:28037
*H/2!/V
2!              PROGRAM         : LOGIN.BAS
*H/6!/:V
6!              EDIT            : 07E
*G/07E/-C/F/V
6!              EDIT            : 07F
*H/7!/V
7!              EDIT DATE       : 16-MAY-80
*G/16-MAY-80/-9C/10-JUL-80/V
7!              EDIT DATE       : 10-JUL-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07F      10-JUL-80       LOGGED OUT ATTACHED GETS ERROR. 
&
$*V
        ! V7.0-07E      16-MAY-80       ATTACH NOT CHECKING QUOTA. &
*H/32540        /V
32540   IF A% THEN &
*0AI
32535   IF ERR=5% AND ERL=20000% THEN RESUME 20010% &

$*V
32540   IF A% THEN &
*EX
Patch from _DL1:[1,2]PA1012.012 complete.
#DL1:[1,2]PA1012.013/CS:65455
*H/2!/V
2!              PROGRAM         : LOGIN.BAS
*H/6!/:V
6!              EDIT            : 07F
*G/07F/-C/G/V
6!              EDIT            : 07G
*H/7!/V
7!              EDIT DATE       : 10-JUL-80
*G/10-JUL-80/-9C/12-DEC-80/V
7!              EDIT DATE       : 12-DEC-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07G      12-DEC-80       OPSER LOSES LAST CHAR OF MESSAGE
. &
$*V
        ! V7.0-07F      10-JUL-80       LOGGED OUT ATTACHED GETS ERROR. 
&
*H/22610        /V
22610   ON ERROR GOTO 22630 &
*3AV
                T0$=SYS(T1$+CHR$(LEN(I$))+I$) &
*G/I$)/I/+1%/V
                T0$=SYS(T1$+CHR$(LEN(I$)+1%)+I$) &
*EX
Patch from _DL1:[1,2]PA1012.013 complete.
#DL1:[1,2]PA1012.017/CS:64525
*H/2!/V
2!              PROGRAM         : LOGIN.BAS
*H/6!/:V
6!              EDIT            : 07G
*G/07G/-C/H/V
6!              EDIT            : 07H
*H/7!/V
7!              EDIT DATE       : 12-DEC-80
*G/12-DEC-80/-9C/10-MAR-81/V
7!              EDIT DATE       : 10-MAR-81
*H/20   /V
20      ! &
*G/REASON/AI
        ! V7.0-07H      10-MAR-81       WRONG EXIT ON CHAINING ERROR &
$*V
        ! V7.0-07G      12-DEC-80       OPSER LOSES LAST CHAR OF MESSAGE
. &
*H/32520        /V
32520   RESUME 32600 IF ERL=32300% OR ERL=32310% &
*AK
*EX
Patch from _DL1:[1,2]PA1012.017 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]LOGIN.BAS

Ready

COMPILE SY0:[1,2]LOGIN<232>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]LOGIN.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]LOGOUT.BAS=DL2:[1,2]LOGOUT.BAS
#DL1:[1,2]PA1013.002/CS:21204
*H/2!/V
2!              PROGRAM         : LOGOUT.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/25-FEB-80/V
7!              EDIT DATE       : 25-FEB-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      25-FEB-80       FIX "NO SMALL BUFFER" ERROR SYS 
CALL &
$*V
        ! &
*H/22630        /2AV
        ELSE    PRINT FNC$; CVT$$(RIGHT(SYS(CHR.6$+CHR$(ERR)),3%),4%) &
*G/CHR.6$/I/+CHR$(9%)/V
        ELSE    PRINT FNC$; CVT$$(RIGHT(SYS(CHR.6$+CHR$(9%)+CHR$(ERR)),3
%),4%) &
*EX
Patch from _DL1:[1,2]PA1013.002 complete.
#DL1:[1,2]PA1013.003/CS:57780
*H/2!/V
2!              PROGRAM         : LOGOUT.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 25-FEB-80
*G/25-FEB-80/-9C/28-MAR-80/V
7!              EDIT DATE       : 28-MAR-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      28-MAR-80       FIX MULTIPLE JOBS AND EXCEEDING 
QUOTA &
$*V
        ! V7.0-07A      25-FEB-80       FIX "NO SMALL BUFFER" ERROR SYS 
CALL &
*H/1440 /V
1440    IF I% <> 0% THEN GOTO 1500  ELSE &
*3KI
GOTO 1500 IF (Q=0) OR (T<=Q) &
        \ GOTO 1450 UNLESS I% &
        \ FOR I%=1% TO MAXCNT% &
        \  L$=SYS(CHR$(6%)+CHR$(26%)+CHR$(I%)+CHR$(0%)) &
        \  GOTO 1500 &
                IF (RAD$(SWAP%(CVT$%(MID(L$,17%,2%)))) &
                  + RAD$(SWAP%(CVT$%(MID(L$,19%,2%))))<>"LOGOUT") &
                AND (SWAP%(CVT$%(MID(L$,21%,2%)))=PPN%) &
                AND ((CVT$%(MID(L$,4%,2%)) AND -32513%)=0%)
1445      NEXT I% &
        ! IF I<>0 AND ALL JOBS ARE "LOGOUT" THEN MAKE SURE QUOTA IS ASKE
D. &
$*V
        ! I=0 MEANS NO OTHER JOBS LOGGED-IN; Q=0 MEANS UNLIMITED QUOTA. 
&
*H/19020        /V
19020   IF ERL=1075% THEN GOTO 1080 &
*2AI
19025   IF (ERL=1440%) AND (ERR=10%) THEN GOTO 1445 &

$*V
19030   CLOSE 1% &
*H/22500        /V
22500   ! &
*14AV
        \ CHANGE SYS(CHR.6$+CHR$(-3%)) TO M% &
*AI
        \ MAXCNT%=M%(4%) &
$*V
        \ JOBTBL%=M%(11%)+SWAP%(M%(12%)) &
*EX
Patch from _DL1:[1,2]PA1013.003 complete.
#DL1:[1,2]PA1013.004/CS:42792
*H/2!/V
2!              PROGRAM         : LOGOUT.BAS
*H/6!/:V
6!              EDIT            : 07B
*G/07B/-C/C/V
6!              EDIT            : 07C
*H/7!/V
7!              EDIT DATE       : 28-MAR-80
*G/28-MAR-80/-9C/03-JUL-80/V
7!              EDIT DATE       : 03-JUL-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07C      03-JUL-80       PRINT UNEXPECTED ERRORS. &
$*V
        ! V7.0-07B      28-MAR-80       FIX MULTIPLE JOBS AND EXCEEDING 
QUOTA &
*H/19040        /V
19040   PRINT &
*3AV
19050   L$=SYS(CHR$(9%)) &
*I
19045   PRINT CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)),3%),4%) &

$*V
19050   L$=SYS(CHR$(9%)) &
*EX
Patch from _DL1:[1,2]PA1013.004 complete.
#DL1:[1,2]PA1013.005/CS:27363
*H/2!/V
2!              PROGRAM         : LOGOUT.BAS
*H/6!/:V
6!              EDIT            : 07C
*G/07C/-C/D/V
6!              EDIT            : 07D
*H/7!/V
7!              EDIT DATE       : 03-JUL-80
*G/03-JUL-80/-9C/14-AUG-80/V
7!              EDIT DATE       : 14-AUG-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*G/REASON/AI
        ! V7.0-07D      14-AUG-80       LOGOUT MAY DISABLE TERMINALS &
$*V
        ! V7.0-07C      03-JUL-80       PRINT UNEXPECTED ERRORS. &
*H/9040 /V
9040    M%(0%)=30% &
*4AI
        \ M%(27%)=0% &
$*V
        \ M%(28%)=255% &
*EX
Patch from _DL1:[1,2]PA1013.005 complete.
#DL1:[1,2]PA1013.006/CS:63554
*H/2!/V
2!              PROGRAM         : LOGOUT.BAS
*H/6!/:V
6!              EDIT            : 07D
*G/07D/-C/E/V
6!              EDIT            : 07E
*H/7!/V
7!              EDIT DATE       : 14-AUG-80
*G/14-AUG-80/-9C/10-SEP-80/V
7!              EDIT DATE       : 10-SEP-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07E      10-SEP-80       CORRECT # OF USERS STILL LOGGED 
IN &
$*V
        ! V7.0-07D      14-AUG-80       LOGOUT MAY DISABLE TERMINALS &
*H/1430 /V
1430    I%=N%(3%)-1 &
*G/I%/-2C/USERS%/V
1430    USERS%=N%(3%)-1 &
*H/1570 /AV
                PRINT NUM1$(I%);" other user"; &
*G/I%/-2C/USERS%/V
                PRINT NUM1$(USERS%);" other user"; &
*EX
Patch from _DL1:[1,2]PA1013.006 complete.
#DL1:[1,2]PA1013.007/CS:27763
*H/2!/V
2!              PROGRAM         : LOGOUT.BAS
*H/6!/:V
6!              EDIT            : 07E
*G/07E/-C/F/V
6!              EDIT            : 07F
*H/7!/V
7!              EDIT DATE       : 10-SEP-80
*G/10-SEP-80/-9C/06-OCT-80/V
7!              EDIT DATE       : 06-OCT-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07F      06-OCT-80       MOVE DEFAULT ERROR SYS CALL &
$*V
        ! V7.0-07E      10-SEP-80       CORRECT # OF USERS STILL LOGGED 
IN &
*H/19030        /V
19030   CLOSE 1% &
*0AI
19028   PRINT CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)),3%),4%) &

$*V
19030   CLOSE 1% &
*H/19045        /0AV
19045   PRINT CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)),3%),4%) &
*2K
*EX
Patch from _DL1:[1,2]PA1013.007 complete.
#DL1:[1,2]PA1013.008/CS:43086
*H/2!/V
2!              PROGRAM         : LOGOUT.BAS
*H/6!/:V
6!              EDIT            : 07F
*G/07F/-C/G/V
6!              EDIT            : 07G
*H/7!/V
7!              EDIT DATE       : 06-OCT-80
*G/06-OCT-80/-9C/01-DEC-80/V
7!              EDIT DATE       : 01-DEC-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07G      01-DEC-80       REMOVE MSG "0 USERS STILL LOGGED
 IN" &
$*V
        ! V7.0-07F      06-OCT-80       MOVE DEFAULT ERROR SYS CALL &
*H/1430 /V
1430    USERS%=N%(3%)-1 &
*AI
        \ I%=USERS% &
$*V
        ! DECREMENTS NUMBER OF JOBS. &
*EX
Patch from _DL1:[1,2]PA1013.008 complete.
#DL1:[1,2]PA1013.009/CS:22360
*H/2!/V
2!              PROGRAM         : LOGOUT.BAS
*H/6!/:V
6!              EDIT            : 07G
*G/07G/-C/H/V
6!              EDIT            : 07H
*H/7!/V
7!              EDIT DATE       : 01-DEC-80
*G/01-DEC-80/-9C/05-JAN-81/V
7!              EDIT DATE       : 05-JAN-81
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*G/REASON/AI
        ! V7.0-07H      05-JAN-81       "1 USERS " IF OVER QUOTA, > ONE 
USER. &
        !                               FIX "?END OF FILE" IF CONTROL/Z.
 &
$*V
        ! V7.0-07G      01-DEC-80       REMOVE MSG "0 USERS STILL LOGGED
 IN" &
*H/1570 /V
1570    IF I%<>0% THEN &
*I/I%=USERS% &/
*I

        \ $*V
        \ IF I%<>0% THEN &
*H/19028        /V
19028   PRINT CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)),3%),4%) &
*I
IF ERR <> 11% THEN &
        $*V
        PRINT CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)),3%),4%) &
*EX
Patch from _DL1:[1,2]PA1013.009 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]LOGOUT.BAS

Ready

COMPILE SY0:[1,2]LOGOUT<232>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]LOGOUT.BAS/DE:NO
*^Z

Ready

SCALE 0

Ready

OLD DL2:[1,2]PATCPY.BAS

Ready

COMPILE SY:[1,2]PATCPY

Ready

SCALE 0

Ready

OLD DL2:[1,2]PBUILD.BAS

Ready

COMPILE SY:[1,2]PBUILD

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]UTILTY.BAS=DL2:[1,2]UTILTY.BAS
#DL1:[1,2]PA1027.001/CS:10647
*H/2!/V
2!              PROGRAM         : UTILTY.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/12-FEB-80/V
7!              EDIT DATE       : 12-FEB-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      12-FEB-80       CORRECT ADD SWAPFILE SIZE CHECK.
 &
$*V
        ! &
*H/1010 /V
1010    I$="V7.0-07" &
*G/07/I/A/V
1010    I$="V7.0-07A" &
*H/5310 /V
5310    J%=INSTR(1%,M$," ") &
*G/S%=/V
                        S%=PEEK(PEEK(PEEK(PEEK(520%))+2%)+4%) &
*KI
SWAP%(CVT$%(MID(SYS(CHR$(12%)),13%,2%))) &
$*V
        \               IF I%<>S% THEN &
*EX
Patch from _DL1:[1,2]PA1027.001 complete.
#DL1:[1,2]PA1027.002/CS:47977
*H/2!/V
2!              PROGRAM         : UTILTY.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 12-FEB-80
*G/12-FEB-80/-9C/27-MAR-80/V
7!              EDIT DATE       : 27-MAR-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! 7.0-07B       27-MAR-80       FIX SWITCH PARSING PROBLEMS. &
$*V
        ! V7.0-07A      12-FEB-80       CORRECT ADD SWAPFILE SIZE CHECK.
 &
*H/1010 /V
1010    I$="V7.0-07A" &
*G/07A/-C/B/V
1010    I$="V7.0-07B" &
*H/3757 /V
3757    GOTO 3810 IF ASCII(M$)<>47% &
*4AV
        \ GOTO 3815 IF INSTR(J%,M$,MID(D$,1%,LEN(D$)-I1%)) &
*I
        \ I5%=I1% OR (I1%=0% AND J%-1%) &
$*V
        \ GOTO 3815 IF INSTR(J%,M$,MID(D$,1%,LEN(D$)-I1%)) &
*G/LEN(D$)-I1%/-11C/I5%-1%/V
        \ GOTO 3815 IF INSTR(J%,M$,MID(D$,1%,I5%-1%)) &
*H/3780 /V
3780    IF LEFT(D$,4%)="EXT:" THEN &
*2AV
                        MID(M$,6%,3%)),7%,2%))) &
*G/MID(M$,6%,3%)/-13C/RIGHT(D$,5%)/V
                        RIGHT(D$,5%)),7%,2%))) &
*EX
Patch from _DL1:[1,2]PA1027.002 complete.
#DL1:[1,2]PA1027.003/CS:58786
*H/2!/V
2!              PROGRAM         : UTILTY.BAS
*H/6!/:V
6!              EDIT            : 07B
*G/07B/-C/C/V
6!              EDIT            : 07C
*H/7!/V
7!              EDIT DATE       : 27-MAR-80
*G/27-MAR-80/-9C/10-JUL-80/V
7!              EDIT DATE       : 10-JUL-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07C      10-JUL-80       MAKE TIME COMMAND MORE ACCURATE,
 &
        !                               DON'T ALLOW DETACH OF OWN JOB. &
$*V
        ! 7.0-07B       27-MAR-80       FIX SWITCH PARSING PROBLEMS. &
*H/1010 /V
1010    I$="V7.0-07B" &
*G/07B/-3C/07C/V
1010    I$="V7.0-07C" &
*H/3430 /V
3430    GOTO 5240 IF MM%<1% OR MM%>12% OR YY%<70% OR YY%>99% &
*5AV
        \ K1%=PEEK(514%) &
*G/PEEK(514%)/-10C/0%/V
        \ K1%=0% &
*10AV
                ! CALL REQUIRES TIME ALSO: USE CURRENT TIME. &
*KI
                ! DON'T CHANGE THE CURRENT TIME. &
$*V
                ! GO DO THE CALL. &
*H/3505 /V
3505    I%=INSTR(1%,M$,":") &
*6AV
        \       K0%=PEEK(512%) &
*G/PEEK(512%)/-10C/0%/V
        \       K0%=0% &
*4AV
                ! GET THE SYSTEM DATE &
*KI
                ! DON'T CHANGE THE SYSTEM DATE. &
$*V

*H/6020 /V
6020    CHANGE SYS(CHR6$+CHR$(-3%)) TO M% &
*AV
        \ IF J%<0% OR J%>M%(4%) OR &
*G/J%<0%/-5C/J%<1%/V
        \ IF J%<1% OR J%>M%(4%) OR &
*EX
Patch from _DL1:[1,2]PA1027.003 complete.
#DL1:[1,2]PA1027.004/CS:965
*H/2!/V
2!              PROGRAM         : UTILTY.BAS
*H/6!/:V
6!              EDIT            : 07C
*G/07C/-C/D/V
6!              EDIT            : 07D
*H/7!/V
7!              EDIT DATE       : 10-JUL-80
*G/10-JUL-80/-9C/18-SEP-80/V
7!              EDIT DATE       : 18-SEP-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07D      18-SEP-80       ERROR IN ADD IF /STAY AND NO /AD
DR: &
$*V
        ! V7.0-07C      10-JUL-80       MAKE TIME COMMAND MORE ACCURATE,
 &
*H/1010 /V
1010    I$="V7.0-07C" &
*G/07C/-C/D/V
1010    I$="V7.0-07D" &
*H/3860 /V
3860    M%(0%)=30% &
*3AI
        \ IF (M%(11%)=0%) AND (M%(12%)=0%) AND (M%(18%)=128%) THEN &
                E%=512%+10% &
                \ GOTO 19020 &
$*V
                ! SET UP THE RUN-TIME SYSTEM MANIPULATION CALL &
*EX
Patch from _DL1:[1,2]PA1027.004 complete.
#DL1:[1,2]PA1027.005/CS:27790
*H/2!/V
2!              PROGRAM         : UTILTY.BAS
*H/6!/:V
6!              EDIT            : 07D
*G/07D/-1C/E/V
6!              EDIT            : 07E
*H/7!/V
7!              EDIT DATE       : 18-SEP-80
*G/18-SEP-80/-9C/14-SEP-81/V
7!              EDIT DATE       : 14-SEP-81
*H/21   /G/REASON/AI
        ! V7.0-07E      14-SEP-81       FIX THE ADD LOGICAL COMMAND TO &
        !                               DEFAULT TO "_SY:". &
$*V
        ! V7.0-07D      18-SEP-80       ERROR IN ADD IF /STAY AND NO /AD
DR: &
*H/1010 /V
1010    I$="V7.0-07D" &
*G/07D/-1C/E/V
1010    I$="V7.0-07E" &
*H/6510 /2AV
                ! SET UP FUNCTION AS FOLLOWS: &
*I
        \ Q%=M%(29%)+SWAP%(M%(30%)) &
        \ GOTO 6600 IF (Q% AND 8192%) <> 0% &
        \ M%(23%)=ASCII("S") &
        \ M%(24%)=ASCII("Y") &
                ! DEFAULT TO "_SY:" &
$*V
                ! SET UP FUNCTION AS FOLLOWS: &
*EX
Patch from _DL1:[1,2]PA1027.005 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]UTILTY.BAS

Ready

COMPILE SY0:[1,2]UTILTY

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]UTILTY.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]INIT.BAS=DL2:[1,2]INIT.BAS
#DL1:[1,2]PA1010.001/CS:16599
*H/2!/V
2!              PROGRAM         : INIT
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/22-OCT-79/V
7!              EDIT DATE       : 22-OCT-79
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*G/REASON/G/&/I

        ! V7.0-07A      22-OCT-79       CLEAR ARRAY BEFORE END. &$*V
        ! V7.0-07A      22-OCT-79       CLEAR ARRAY BEFORE END. &
*H/1010 /V
1010    I$="V7.0-07" &
*G/V7.0-07/I/A/V
1010    I$="V7.0-07A" &
*H/32760        /V
32760   IF KB.NO% AND 128% THEN &
*G/CHANGE "" TO M%/-15C/M%(I%)=0% FOR I%=0% TO 30%/V
        \       M%(I%)=0% FOR I%=0% TO 30% &
*EX
Patch from _DL1:[1,2]PA1010.001 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]INIT.BAS

Ready

COMPILE SY0:[1,2]INIT

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]INIT.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]SHUTUP.BAS=DL2:[1,2]SHUTUP.BAS
#DL1:[1,2]PA1021.003/CS:29697
*H/2!/V
2!              PROGRAM         : SHUTUP
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/09-APR-81/V
7!              EDIT DATE       : 09-APR-81
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*G/REASON/AI
        ! V7.0-07A      09-APR-81       SLEEP IF JOBS NOT KILLED AFTER P
ASS 2 &
$*V
        ! &
*H/1010 /V
1010      I$="V7.0-07" &
*G/07/I/A/V
1010      I$="V7.0-07A" &
*H/1160 /V
1160      FOR L%=1% TO 3% &
*AI
        \ SLEEP 0% IF L%=3% &
                ! IF JOBS NOT ALL KILLED AFTER PASS 2, PASS 3 MAY &
                ! ABORT SHUTUP. &
$*V
                !ITERATE THROUGH JOB TABLE MAX OF 3 TIMES &
*EX
Patch from _DL1:[1,2]PA1021.003 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]SHUTUP.BAS

Ready

COMPILE SY0:[1,2]SHUTUP

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]SHUTUP.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]ERRBLD.BAS=DL2:[1,2]ERRBLD.BAS
#DL1:[1,2]PA1208.001/CS:9030
*H/2!/V
2!              PROGRAM         : ERRBLD.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/13-MAY-80/V
7!              EDIT DATE       : 13-MAY-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      13-MAY-80       ADD RM05 &
$*V
        ! &
*H/1010 /V
1010    I$="V7.0-07" &
*G/07/I/A/V
1010    I$="V7.0-07A" &
*H/3360 /V
3360    DATA    18,     DR,     "RH11/RM02-03", &
*G/"/12C%RM02/3/5%V
3360    DATA    18,     DR,     "RM02/3/5", &
*41AKI
                12,     "SkpSecErrInh",9, &
$*V
                16,     "Seek Incompl", 14, &
*EX
Patch from _DL1:[1,2]PA1208.001 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]ERRBLD.BAS

Ready

COMPILE SY:[1,2]ERRBLD

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]ERRBLD.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]ERRBLD
ERRBLD  V7.0-07A        RSTS V7.0-07 PICO

Ready

SCALE 0

Ready

OLD DL2:[1,2]ERRINT.BAS

Ready

COMPILE SY:[1,2]ERRINT

Ready

SCALE 0

Ready

OLD DL2:[1,2]ERRCPY.BAS

Ready

COMPILE SY:[1,2]ERRCPY

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]DIRECT.BAS=DL2:[1,2]DIRECT.BAS
#DL1:[1,2]PA1003.002/CS:23183
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/21-FEB-80/V
7!              EDIT DATE       : 21-FEB-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      21-FEB-80       ENABLE CTRL/C TRAPPING TO CLOSE 
FILES &
$*V
        ! &
*H/65   /V
65      I$="V7.0-07" &
*G/07/I/A/V
65      I$="V7.0-07A" &
*H/320  /V
320     O$="_KB:DIRECT" &
*I
O$=SYS(CHR$(6%)+CHR$(-7%)) &
        \ $*V
        \ O$="_KB:DIRECT" &
*2AI
        ! ENABLE CTRL/C TRAPPING. &
$*V
        ! DEFAULT OUTPUT DEVICE -- O%=0 IF DEFAULT &
*EX
Patch from _DL1:[1,2]PA1003.002 complete.
#DL1:[1,2]PA1003.003/CS:40862
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 21-FEB-80
*G/21-FEB-80/-9C/25-FEB-80/V
7!              EDIT DATE       : 25-FEB-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      25-FEB-80       CHECK FOR NFS BEFORE OPENING FIL
E. &
$*V
        ! V7.0-07A      21-FEB-80       ENABLE CTRL/C TRAPPING TO CLOSE 
FILES &
*H/65   /V
65      I$="V7.0-07A" &
*G/07A/-C/B/V
65      I$="V7.0-07B" &
*H/1075 /V
1075    CHANGE SYS(CHR$(6%)+CHR$(-10%)+O$) TO V% &
*3AI
        \ GOTO 1550 IF (V%(28%) AND 1%)=0% &
$*V
        \ OPEN O$ FOR OUTPUT AS FILE 2% &
*EX
Patch from _DL1:[1,2]PA1003.003 complete.
#DL1:[1,2]PA1003.004/CS:24054
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07B
*G/07B/-C/C/V
6!              EDIT            : 07C
*H/7!/V
7!              EDIT DATE       : 25-FEB-80
*G/25-FEB-80/-9C/28-FEB-80/V
7!              EDIT DATE       : 28-FEB-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07C      28-FEB-80       FIX ACCUMULATED TOTALS > 65535 B
LOCKS. &
$*V
        ! V7.0-07B      25-FEB-80       CHECK FOR NFS BEFORE OPENING FIL
E. &
*H/65   /V
65      I$="V7.0-07B" &
*G/07B/-C/C/V
65      I$="V7.0-07C" &
*H/2310 /3AV
        \ B9=B9+FND(P%(4))+65535.*FND(MSB.SI%) &
*G/4/I/%/G/65535/-C/6/V
        \ B9=B9+FND(P%(4%))+65536.*FND(MSB.SI%) &
*H/2605 /3AV
                PRINT #O%, FNC0$(O%);"Totals:";F9;"File";FNS$(F9);B9; &
*G/B9;/-3DV
                PRINT #O%, FNC0$(O%);"Totals:";F9;"File";FNS$(F9); &
*AV
                        "Block";FNS$(B9) &
*G/"/I/ ";NUM1$(B9);" /V
                        " ";NUM1$(B9);" Block";FNS$(B9) &
*AV
        ELSE    PRINT #O%, FNC0$(O%);"Grand total of";B9;"block"; &
*G/";B9;"/-6C/ ";NUM1$(B9);" /V
        ELSE    PRINT #O%, FNC0$(O%);"Grand total of ";NUM1$(B9);" block
"; &
*EX
Patch from _DL1:[1,2]PA1003.004 complete.
#DL1:[1,2]PA1003.005/CS:5936
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07C
*G/07C/-C/D/V
6!              EDIT            : 07D
*H/7!/V
7!              EDIT DATE       : 28-FEB-80
*G/28-FEB-80/-9C/10-MAR-80/V
7!              EDIT DATE       : 10-MAR-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07D      10-MAR-80       CORRECT ALLOC. SIZE FOR OPEN FIL
E. &
$*V
        ! V7.0-07C      28-FEB-80       FIX ACCUMULATED TOTALS > 65535 B
LOCKS. &
*H/65   /V
65      I$="V7.0-07C" &
*G/07C/-C/D/V
65      I$="V7.0-07D" &
*H/2250 /V
2250    P%(I%)=U%(U%,I%) FOR I%=1% TO 3% &
*10AV
        \ P%(4%) = (P%(4%)+P8%-1%) AND -P8% IF S2% AND 2048% &
*K6AV
        \ GOSUB 10100 IF FCBLST%<>0% AND (S1% AND 1032%) &
*AI
        \ P%(4%)=(P%(4%)+P8%-1%) AND -P8% IF S2% AND 2048% &
$*V
        \ I%=U%(R%,0%) AND (NOT 15%) &
*EX
Patch from _DL1:[1,2]PA1003.005 complete.
#DL1:[1,2]PA1003.006/CS:37502
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07D
*G/07D/-C/E/V
6!              EDIT            : 07E
*H/7!/V
7!              EDIT DATE       : 10-MAR-80
*G/10-MAR-80/-9C/16-APR-80/V
7!              EDIT DATE       : 16-APR-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07E      16-APR-80       FIX ZERO VALUED CREATE/ACCESS DA
TE. &
$*V
        ! V7.0-07D      10-MAR-80       CORRECT ALLOC. SIZE FOR OPEN FIL
E. &
*H/65   /V
65      I$="V7.0-07D" &
*G/07D/-C/E/V
65      I$="V7.0-07E" &
*H/2380 /V
2380    PRINT #O%, " ";DATE$(P%(8%)); IF S1% AND 32% &
*I
IF S1% AND 32% THEN &
                P%(8%)=-1% UNLESS P%(8%) &
        \       $*V
        \       PRINT #O%, " ";DATE$(P%(8%)); IF S1% AND 32% &
*G/; /15DV
        \       PRINT #O%, " ";DATE$(P%(8%)); &
*G/2390 /V
2390    PRINT #O%, " ";DATE$(P%(6%)); IF S1% AND 64% &
*I
IF S1% AND 64% THEN &
                P%(6%)=-1% UNLESS P%(6%) &
        \       $*V
        \       PRINT #O%, " ";DATE$(P%(6%)); IF S1% AND 64% &
*G/; /15DV
        \       PRINT #O%, " ";DATE$(P%(6%)); &
*EX
Patch from _DL1:[1,2]PA1003.006 complete.
#DL1:[1,2]PA1003.007/CS:22200
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07E
*G/07E/-C/F/V
6!              EDIT            : 07F
*H/7!/V
7!              EDIT DATE       : 16-APR-80
*G/16-APR-80/-9C/19-JUN-80/V
7!              EDIT DATE       : 19-JUN-80
*H/20   /G/REASON/AI
        ! V7.0-07F      19-JUN-80       FIX NFS CHECK TO LOOK FOR MAGTAP
E &
        !                               ONLY BEFORE OPENING FILE. &
$*V
        ! V7.0-07E      16-APR-80       FIX ZERO VALUED CREATE/ACCESS DA
TE. &
*H/65   /V
65      I$="V7.0-07E" &
*G/07E/-C/F/V
65      I$="V7.0-07F" &
*H/1075 /V
1075    CHANGE SYS(CHR$(6%)+CHR$(-10%)+O$) TO V% &
*3AV
        \ GOTO 1550 IF (V%(28%) AND 1%)=0% &
*G/0%/I/ AND (STATUS AND 255%)=14%/V
        \ GOTO 1550 IF (V%(28%) AND 1%)=0% AND (STATUS AND 255%)=14% &
*EX
Patch from _DL1:[1,2]PA1003.007 complete.
#DL1:[1,2]PA1003.008/CS:5956
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07F
*G/07F/-C/G/V
6!              EDIT            : 07G
*H/7!/V
7!              EDIT DATE       : 19-JUN-80
*G/19-JUN-80/-9C/25-JUL-80/V
7!              EDIT DATE       : 25-JUL-80
*H/21   /G/REASON/AI
        ! V7.0-07G      25-JUL-80       CORRECT ERRONEOUS OPEN FILE DATA
. &
$*V
        ! V7.0-07F      19-JUN-80       FIX NFS CHECK TO LOOK FOR MAGTAP
E &
*H/65   /V
65      I$="V7.0-07F" &
*G/07F/-C/G/V
65      I$="V7.0-07G" &
*H/900  /26AV
        ! /OA   NAME, OCTAL ATTRIBUTES  1               128 &
*G/128/-3C/256/V
        ! /OA   NAME, OCTAL ATTRIBUTES  1               256 &
*H/2710 /9AV
        \ PRINT #O%, 'ster';       IF (S1% AND 3328%)=256% AND (S2% AND 
4%)=0% &
*G/3328/-3C/840/V
        \ PRINT #O%, 'ster';       IF (S1% AND 3840%)=256% AND (S2% AND 
4%)=0% &
*H/10000        /19AV
        \ FCB.ROOT%(D%),I%=PEEK(FCBLST%+I%*2%) &
*G/FCB.ROOT%(D%)/3DJ5DG/)/-DV
        \ FCB.ROOT%(D%)=FCBLST%+I%*2% &
*AI
        \ I%=PEEK(FCB.ROOT%(D%)) &
$*V
                ! GET POINTER TO FIRST FCB FOR UNIT. &
*2AV
        \ RETRY=0% &
*G/RETRY/I/%/V
        \ RETRY%=0% &
*H/10040        /5AV
        \ I%=FCB.ROOT%(D%) &
*G/I%=/I/PEEK(/G/)/I/)/V
        \ I%=PEEK(FCB.ROOT%(D%)) &
*H/10110        /1AV
        \ I%=FCB.ROOT%(D%) &
*G/I%=/I/PEEK(/G/)/I/)/V
        \ I%=PEEK(FCB.ROOT%(D%)) &
*4AI
                        AND (PEEK(I%+12%) AND 64%)=0% &
$*V
                  ! SCAN THROUGH FCB LIST FOR UNIT UNTIL THE FILE &
*1AV
                  ! IS FOUND OR UNTIL THE END OF THE LIST &
*G/FOUND/I/ AND NOT A UFD TYPE/V
                  ! IS FOUND AND NOT A UFD TYPE OR UNTIL THE END OF THE 
LIST &
*EX
Patch from _DL1:[1,2]PA1003.008 complete.
#DL1:[1,2]PA1003.009/CS:60706
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07G
*G/07G/-C/H/V
6!              EDIT            : 07H
*H/7!/V
7!              EDIT DATE       : 25-JUL-80
*G/25-JUL-80/-9C/01-MAY-81/V
7!              EDIT DATE       : 01-MAY-81
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07H      01-MAY-81       CORRECT NON-PRIV SY0: PROBLEM. &
$*V
        ! V7.0-07G      25-JUL-80       CORRECT ERRONEOUS OPEN FILE DATA
. &
*H/65   /V
65      I$="V7.0-07G" &
*G/07G/-C/H/V
65      I$="V7.0-07H" &
*H/2055 /4AV
                \ I%,J%=0% &
*I
                \ GOTO 2057 IF D$(D%)="_SY0:" &
$*V
                \ I%,J%=0% &
*15AV
        !       SEE IF IT IS LOCKED &
*I
        !       (SKIPPING SY0:, WHICH CAN'T BE LOCKED, AND WHICH &
        !       IS OUTSIDE NORMAL TABLE RANGE) &
$*V
        !       SEE IF IT IS LOCKED &
*EX
Patch from _DL1:[1,2]PA1003.009 complete.
#DL1:[1,2]PA1003.010/CS:34473
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07H
*G/07H/-C/I/V
6!              EDIT            : 07I
*H/7!/V
7!              EDIT DATE       : 01-MAY-81
*G/01-MAY-81/-9C/13-MAY-81/V
7!              EDIT DATE       : 13-MAY-81
*H/21   !/G/REASON/AI
        ! V7.0-07I      13-MAY-81       FIX ALLOCATE FOR FILE <65536 BLO
CKS &
$*V
        ! V7.0-07H      01-MAY-81       CORRECT NON-PRIV SY0: PROBLEM. &
*H/2250 /18AV
        \ I%=U%(R%,0%) AND (NOT 15%) &
*I
        \ MSB.SI%=1% IF (S2% AND 2048%) AND (U%(R%,2%)<>0%) AND (P%(4%)=
0%) &
$*V
        \ I%=U%(R%,0%) AND (NOT 15%) &
*EX
Patch from _DL1:[1,2]PA1003.010 complete.
#DL1:[1,2]PA1003.011/CS:49165
*H/2!/V
2!              PROGRAM         : DIRECT.BAS
*H/6!/:V
6!              EDIT            : 07I
*G/07I/-C/J/V
6!              EDIT            : 07J
*H/7!/V
7!              EDIT DATE       : 13-MAY-81
*G/13-MAY-81/-9C/10-AUG-81/V
7!              EDIT DATE       : 10-AUG-81
*H/21   !/G/REASON/AI
        ! V7.0-07J      10-AUG-81       CORRECT OP/RR FOR NON-PRIV USER 
&
$*V
        ! V7.0-07I      13-MAY-81       FIX ALLOCATE FOR FILE <65536 BLO
CKS &
*H/10110        /V
10110   ON ERROR GOTO 10130 &
*AI
        \ TEMP$=SYS(PRIV.ON$) &
$*V
        \ I%=PEEK(FCB.ROOT%(D%)) &
*AKV
        \ I%=PEEK(I%) FOR J%=1% UNTIL J%>2%*FCB%(D%+1%) OR I%=0% &
*EX
Patch from _DL1:[1,2]PA1003.011 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]DIRECT.BAS

Ready

COMPILE SY:[1,2]DIRECT<232>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]DIRECT.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]TTYSET.BAS=DL2:[1,2]TTYSET.BAS
#DL1:[1,2]PA1025.002/CS:22865
*H/2!/V
2!              PROGRAM         : TTYSET.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/28-MAR-80/V
7!              EDIT DATE       : 28-MAR-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      28-MAR-80       ALLOW SPEED 134.5 &
$*V
        ! &
*H/1003 /V
1003    I$="V7.0-07" &
*G/07/I/A/V
1003    I$="V7.0-07A" &
*H/12350        /7AV
  12,-1,  0,50, 75,110,-1,150,200,300, 600,1200,1800,2400,4800,9600,  -1
,  -1, &
*G/110,/2C/134.5/V
  12,-1,  0,50, 75,110,134.5,150,200,300, 600,1200,1800,2400,4800,9600, 
 -1,  -1, &
*AV
  14,-1,  0,50, 75,110,-1,150,300,600,1200,1800,2000,2400,3600,4800,7200
,9600 &
*G/110,/2C/134.5/V
  14,-1,  0,50, 75,110,134.5,150,300,600,1200,1800,2000,2400,3600,4800,7
200,9600 &
*EX
Patch from _DL1:[1,2]PA1025.002 complete.
#DL1:[1,2]PA1025.003/CS:8793
*H/2!/V
2!              PROGRAM         : TTYSET.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 28-MAR-80
*G/28-MAR-80/-9C/16-JUN-80/V
7!              EDIT DATE       : 16-JUN-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      16-JUN-80       CHANGE VT55 TO LC INPUT &
$*V
        ! V7.0-07A      28-MAR-80       ALLOW SPEED 134.5 &
*H/1003 /V
1003    I$="V7.0-07A" &
*G/07A/-C/B/V
1003    I$="V7.0-07B" &
*H/VT55/AV
        "VT52;NO LC INPUT" &
*G/2/12DV
        "VT52" &
*EX
Patch from _DL1:[1,2]PA1025.003 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]TTYSET.BAS

Ready

COMPILE SY:[1,2]TTYSET<232>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]TTYSET.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]SYSTAT.BAS=DL2:[1,2]SYSTAT.BAS
#DL1:[1,2]PA1023.002/CS:8098
*H/2!/V
2!              PROGRAM         : SYSTAT.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/18-MAR-80/V
7!              EDIT DATE       : 18-MAR-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      18-MAR-80       CORRECT NFS DISK JOB NUMBER. &
$*V
        ! &
*H/1010 /V
1010    I$="V7.0-07" &
*G/07/I/A/V
1010    I$="V7.0-07A" &
*H/10530        /7AV
        \                       PRINT #O%,", Job ";NUM1$((I% AND 255%)/2
%); &
*AI
                                        UNLESS (I% AND 1%)<>0% &
        \                       PRINT #O%,", System "; IF (I% AND 1%)<>0
% &
$*V
        \                       PRINT #O%,", dirty"; IF I% AND 256%
*EX
Patch from _DL1:[1,2]PA1023.002 complete.
#DL1:[1,2]PA1023.003/CS:62867
*H/2!/V
2!              PROGRAM         : SYSTAT.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 18-MAR-80
*G/18-MAR-80/-9C/22-OCT-80/V
7!              EDIT DATE       : 22-OCT-80
*H/21   !/G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      22-OCT-80       CHANGE /32% TO SHIFT RIGHT. &
$*V
        ! V7.0-07A      18-MAR-80       CORRECT NFS DISK JOB NUMBER. &
*H/1010 /V
1010    I$="V7.0-07A" &
*G/07A/-C/B/V
1010    I$="V7.0-07B" &
*H/13720        /V
13720   IF (J% AND 8%+16%)=0% THEN &
*2AV
        \       LOC%(I%)=PEEK(J%+8%)/32% &
*KI
        \       T3%=PEEK(J%+8%) &
        \       LOC%(I%)=((T3% AND 32767%)/32%) OR (1024% AND (T3%<0%)) 
&
$*V
        \       I%=I%+1% &
*H/13740        /V
13740   J%=PEEK(J%) &
*4AV
        \       LOC%(I%)=PEEK(J%+16%)/32% &
*KI
        \       T3%=PEEK(J%+16%) &
        \       LOC%(I%)=((T3% AND 32767%)/32%) OR (1024% AND (T3%<0%)) 
&
$*V
        \       SIZE%(I%)=(PEEK(J%+14%) AND 255%)+(I1% AND -256%) &
*EX
Patch from _DL1:[1,2]PA1023.003 complete.
#DL1:[1,2]PA1023.004/CS:43149
*H/2!/V
2!              PROGRAM         : SYSTAT.BAS
*H/6!/:V
6!              EDIT            : 07B
*G/07B/-C/C/V
6!              EDIT            : 07C
*H/7!/V
7!              EDIT DATE       : 22-OCT-80
*G/22-OCT-80/-9C/24-NOV-80/V
7!              EDIT DATE       : 24-NOV-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07C      24-NOV-80       FIX /L AND /R WITH LARGE MEMORY.
 &
$*V
        ! V7.0-07B      22-OCT-80       CHANGE /32% TO SHIFT RIGHT. &
*H/10280        /V
10280   J3%=PEEK(J%+16%) &
*G/NUM1$(/7C/FNSHFT.RGT%(J3%,5%)/V
        \ S$=S$+", Addr:"+NUM1$(FNSHFT.RGT%(J3%,5%)) IF J3%<>0% &
*H/10840        /V
10840   S$=S$+", Addr:"+NUM1$(PEEK(J%+16%)/32%) &
*G/NUM1$(/16C/FNSHFT.RGT%(PEEK(J%+16%),5%)/V
10840   S$=S$+", Addr:"+NUM1$(FNSHFT.RGT%(PEEK(J%+16%),5%)) &
*H/13720        /V
13720   IF (J% AND 8%+16%)=0% THEN &
*3AG/=/46C/FNSHFT.RGT%(T3%,5%)/V
        \       LOC%(I%)=FNSHFT.RGT%(T3%,5%) &
*H/13740        /V
13740   J%=PEEK(J%) &
*5AG/=/46C/FNSHFT.RGT%(T3%,5%)/V
        \       LOC%(I%)=FNSHFT.RGT%(T3%,5%) &
*H/15230        /V
15230   FNEND &
*2AI

15240   DEF* FNSHFT.RGT%(X%,Y%)= &
        (X% AND 32767%)/(2%^Y%) OR ((2%^(15%-Y%)) AND (X%<0%)) &
        &
        ! FUNCTION TO SHIFT RIGHT A 16-BIT INTEGER (X%), BY (Y%) BITS. &
$*V

*EX
Patch from _DL1:[1,2]PA1023.004 complete.
#DL1:[1,2]PA1023.006/CS:32171
*H/2!/V
2!              PROGRAM         : SYSTAT.BAS
*H/6!/:V
6!              EDIT            : 07C
*G/07C/-C/D/V
6!              EDIT            : 07D
*H/7!/V
7!              EDIT DATE       : 24-NOV-80
*G/24-NOV-80/-9C/07-MAY-81/V
7!              EDIT DATE       : 07-MAY-81
*H/20   /V
20      ! &
*G/REASON/AI
        ! V7.0-07D      07-MAY-81       FIX DISK "DIRTY" CODE FOR SY/D. 
&
$*V
        ! V7.0-07C      24-NOV-80       FIX /L AND /R WITH LARGE MEMORY.
 &
*H/1010 /V
1010    I$="V7.0-07B" &
*G/07B/-C/D/V
1010    I$="V7.0-07D" &
*H/10530        /V
10530                   S$="Pub" &
*5AV
        \               IF (J4% AND 20480%)=20480% THEN &
*I
        \               I%=PEEK(J5%) &
        \               PRINT #O%, ", dirty"; IF I% AND 256% &
$*V
        \               IF (J4% AND 20480%)=20480% THEN &
*AKJDV
                                PRINT #O%,", Job ";NUM1$((I% AND 255%)/2
%); &
*2AV
        \                       PRINT #O%,", System "; IF (I% AND 1%)<>0
% &
*G/<>0%/2DV
        \                       PRINT #O%,", System "; IF (I% AND 1%)<>0
%
*AKV
10535                   PRINT #O%
*EX
Patch from _DL1:[1,2]PA1023.006 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]SYSTAT.BAS

Ready

COMPILE SY:[1,2]SYSTAT<232>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]SYSTAT.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]EDIT.BAS=DL2:[1,2]EDIT.BAS
#DL1:[1,2]PA1103.001/CS:33669
*H/2!/V
2!              PROGRAM         : EDIT.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/05-MAY-81/V
7!              EDIT DATE       : 05-MAY-81
*H/16   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      05-MAY-81       SECONDARY OUTPUT FILE PROTECTION
 &
        !                               CODE TRUNCATED. &
$*V
        ! &
*H/20   /V
20      I$="V7.0-07" &
*G/07/I/A/V
20      I$="V7.0-07A" &
*H/5000 /3AV
                29% AS O0$,28% AS O1$,1% AS P9$
*G/28/-C/9/V
                29% AS O0$,29% AS O1$,1% AS P9$
*EX
Patch from _DL1:[1,2]PA1103.001 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]EDIT.BAS

Ready

COMPILE SY:[1,2]EDIT<104>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]EDIT.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]EDITCH.BAS=DL2:[1,2]EDITCH.BAS
#DL1:[1,2]PA1104.002/CS:25317
*H/2!/V
2!              PROGRAM         : EDITCH.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/05-MAY-81/V
7!              EDIT DATE       : 05-MAY-81
*H/16   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      05-MAY-81       SECONDARY OUTPUT FILE PROTECTION
 &
        !                               CODE TRUNCATED. &
$*V
        ! &
*H/120  /2AV
                29% AS K$, 28% AS O1$, 1% AS P9$ &
*G/28/-C/9/V
                29% AS K$, 29% AS O1$, 1% AS P9$ &
*EX
Patch from _DL1:[1,2]PA1104.002 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]EDITCH.BAS

Ready

COMPILE SY:[1,2]EDITCH<104>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]EDITCH.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]ERRDIS.BAS=DL2:[1,2]ERRDIS.BAS
#DL1:[1,2]PA1206.001/CS:43848
*H/2!/V
2!              PROGRAM         : ERRDIS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/30-JAN-80/V
7!              EDIT DATE       : 30-JAN-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      30-JAN-80       HANDLE ZERO LENGTH INPUT FILE. &
$*V
        ! &
*H/1010 /V
1010    I$="V7.0-07" &
*G/07/I/A/V
1010    I$="V7.0-07A" &
*H/19040        /0AV
19040   PRINT "?";FNE$(E%);" at Line";E1% &
*I
19020   IF E%=11% AND E1%=10100% THEN &
                TOT.REC%=0% &
        \       GOTO 10120 &
                ! IF INPUT FILE IS ZERO LENGTH THEN &
                !       INDICATE NO ERRORS RECEIVED AND &
                !       CONTINUE &

$*V
19040   PRINT "?";FNE$(E%);" at Line";E1% &
*EX
Patch from _DL1:[1,2]PA1206.001 complete.
#DL1:[1,2]PA1206.002/CS:49905
*H/2!/V
2!              PROGRAM         : ERRDIS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 30-JAN-80
*G/30-JAN-80/-9C/10-DEC-80/V
7!              EDIT DATE       : 10-DEC-80
*H/21   /G/REASON/AI
        ! V7.0-07B      10-DEC-80       FIX INFINITE LOOP PROBLEM WHEN &
        !                               ERRDIS IS CHAINED TO BY ANALY1 &
        !                               AND NO ERRORS HAVE BEEN RECEIVED
. &
$*V
        ! V7.0-07A      30-JAN-80       HANDLE ZERO LENGTH INPUT FILE. &
*H/1010 /V
1010    I$="V7.0-07A" &
*G/07A/-C/B/V
1010    I$="V7.0-07B" &
*H/2000 /V
2000    PRINT #7% FOR I%=1% TO 3% &
*2AI
        \ GOTO 32760 IF ENTRY.TYP%=3% &
$*V
        \ GOTO 1100 &
*2AV
                ! REPEAT ?'S. &
*I
                ! EXIT IF CHAINED TO BY ANALY1. &
$*V
                ! REPEAT ?'S. &
*EX
Patch from _DL1:[1,2]PA1206.002 complete.
#DL1:[1,2]PA1206.003/CS:7773
*H/2!/V
2!              PROGRAM         : ERRDIS
*H/6!/:V
6!              EDIT            : 07B
*G/07B/-C/C/V
6!              EDIT            : 07C
*H/7!/V
7!              EDIT DATE       : 10-DEC-80
*G/10-DEC-80/-9C/22-JAN-81/V
7!              EDIT DATE       : 22-JAN-81
*H/21   /G/REASON/AI
        ! V7.0-07C      22-JAN-81       FIX SUBSCRIPT OUT OF RANGE ERROR
. &
$*V
        ! V7.0-07B      10-DEC-80       FIX INFINITE LOOP PROBLEM WHEN &
*H/400  /V
400     ! &
*G/!    LN%/AV
   !    M1%,M2%         HYPHEN POINTERS IN DATE FUNCTION &
*I
   !    MAX.UNITS%      MAXIMUM NUMBER OF UNITS PER DEVICE &
$*V
   !    M1%,M2%         HYPHEN POINTERS IN DATE FUNCTION &
*H/910  /4AV
                TOT%(27%,7%) &
*G/TOT%(27%,7%)/-3C/15%)/V
                TOT%(27%,15%) &
*G/TOT%(,)/AV
        !               USED FOR CODES 12-39:   (TOT%(ER.TYP%-12%,0-7)) 
&
*G/0-7/-C/15/V
        !               USED FOR CODES 12-39:   (TOT%(ER.TYP%-12%,0-15))
 &
*H/1010 /V
1010    I$="V7.0-07B" &
*G/07B/-C/C/V
1010    I$="V7.0-07C" &
*H/1040 /8AV
        \ RESTORE &
*I
        \ MAX.UNITS%=15% &
$*V
        \ RESTORE &
*H/1470 /24AV
        \       PRINT #7%,TAB(33%+UNIT%*5%); &
*6KV
1550    NEXT ER.TYP% &
*I
        \       I%=-1% &
        \       GOTO 1500 UNLESS ER.TYP%>=FIRST.DSK% AND ER.TYP%<=LAST.D
EV% &
                                AND ER.TYP%<>24% &
        \       FOR UNIT%=0% TO MAX.UNITS% &
        \               I%=I%+1% &
        \               GOTO 1490 UNLESS TOT%(ER.TYP%-12%,UNIT%) &
        \               IF I%>7% THEN &
                                I%=I%-((I%/8%)*8%) &
        \                       K%=(UNIT%/8%)*8% &
        \                       PRINT #7% &
        \                       PRINT #7%,"   Units ";K%;" - ";K%+7%;
1480                    PRINT #7%,TAB(33%+I%*5%); &
                        NUM1$(TOT%(ER.TYP%-12%,UNIT%));
1490            NEXT UNIT%
1500            PRINT #7%
$*V
1550    NEXT ER.TYP% &
*H/10100        /8AV
        \ TOT%(I%-12%,UNIT%)=0% FOR UNIT%=0% TO 7% &
*G/7%/-2C/MAX.UNITS%/V
        \ TOT%(I%-12%,UNIT%)=0% FOR UNIT%=0% TO MAX.UNITS% &
*EX
Patch from _DL1:[1,2]PA1206.003 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]ERRDIS.BAS

Ready

COMPILE SY:[1,2]ERRDIS

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]ERRDIS.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]ERRDET.BAS=DL2:[1,2]ERRDET.BAS
#DL1:[1,2]PA1205.001/CS:38075
*H/2!/V
2!              PROGRAM         : ERRDET.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/13-MAY-80/V
7!              EDIT DATE       : 13-MAY-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      13-MAY-80       ADD RM05 &
$*V
        ! &
*H/1010 /V
1010    I$="V7.0-07" &
*G/07/I/A/V
1010    I$="V7.0-07A" &
*H/16435        /V
16435           IF ER.TYP%=DR% AND REG%=10% AND (CTENTS% AND 4%) THEN &
*G/10%/21DV
16435           IF ER.TYP%=DR% AND REG%=10% THEN &
*A2KI
                        Z0%=(CTENTS% AND 255%) &
        \               S0$="" &
        \               S0$="RM03" IF Z0%=20% &
        \               S0$="RM02" IF Z0%=21% &
        \               S0$="RM05" IF Z0%=23% &
$*V
        \               PBUF$=PBUF$+"RM0"+S0$+SPACE$(9%) &
*G/+/6DV
        \               PBUF$=PBUF$+S0$+SPACE$(9%) &
*EX
Patch from _DL1:[1,2]PA1205.001 complete.
#DL1:[1,2]PA1205.002/CS:36405
*H/2!/V
2!              PROGRAM         : ERRDET.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 13-MAY-80
*G/13-MAY-80/-9C/10-JUL-80/V
7!              EDIT DATE       : 10-JUL-80
*H/20   !/G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      10-JUL-80       FIX DATE INTERVAL PROBLEM &
$*V
        ! V7.0-07A      13-MAY-80       ADD RM05 &
*H/1010 /V
1010    I$="V7.0-07A" &
*G/07A/-C/B/V
1010    I$="V7.0-07B" &
*H/1040 /V
1040    C$=CHR$(13%)+CHR$(10%) &
*9AV
        \ JSTBAD%=-1% IF ER.COD%=62% &
*I
        \ IN.INT% = 0% &
$*V
        \ JSTBAD%=-1% IF ER.COD%=62% &
*H/1130 /V
1130            ER.DAT%=P%(7%)+SWAP%(P%(8%)) &
*2AV
        \       GOTO 1200 IF ER.DAT%0% &
        \                       PRINT #1%,", System "; IF (I% AND 1%)<>0
% &
$*V
        \                       PRINT #1%,", dirty"; IF I% AND 256%
*EX
Patch from _DL1:[1,2]PA1203.003 complete.
#DL1:[1,2]PA1203.004/CS:29414
*H/2!/V
2!              PROGRAM         : ANALYS.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 18-MAR-80
*G/18-MAR-80/-9C/13-MAY-80/V
7!              EDIT DATE       : 13-MAY-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      13-MAY-80       ADD NEW DEVICE SUPPORT FLAGS &
$*V
        ! V7.0-07A      18-MAR-80       CORRECT NFS DISK JOB NUMBER. &
*H/1010 /V
1010    I$="V7.0-07A" &
*G/07A/-C/B/V
1010    I$="V7.0-07B" &
*H/4020 /8AV
        \               GOTO 4030 UNLESS LEFT(Q$,3%)="$$0" &
*4JI
GOTO 4025 UNLESS LEFT(Q$,5%)="$$AOD" &
        \               AODV%=A%(J%*4%+3%) IF Q$="$$AODV" &
        \               AODS%=A%(J%*4%+3%) IF Q$="$$AODS" &
        \               GOTO 4120
4025                    $*V
4025                    GOTO 4030 UNLESS LEFT(Q$,3%)="$$0" &
*H/4420 /3AV
        \ PRINT #1%,C$;"Further LOGINS were Disabled" &
*I
        \ PRINT #1%,C$;"Flag words: ";FNO$(AODV%);" ";FNO$(AODS%) IF AOD
V% &
$*V
        \ PRINT #1%,C$;"Further LOGINS were Disabled" &
*EX
Patch from _DL1:[1,2]PA1203.004 complete.
#DL1:[1,2]PA1203.005/CS:20556
*H/2!/V
2!              PROGRAM         : ANALYS.BAS
*H/6!/:V
6!              EDIT            : 07B
*G/07B/-C/C/V
6!              EDIT            : 07C
*H/7!/V
7!              EDIT DATE       : 13-MAY-80
*G/13-MAY-80/-9C/05-AUG-80/V
7!              EDIT DATE       : 05-AUG-80
*H/20   /G/REASON/V
        ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07C      05-AUG-80       CORRECT CRASH SIZE PROBLEM &
$*V
        ! V7.0-07B      13-MAY-80       ADD NEW DEVICE SUPPORT FLAGS &
*H/400  /G/F%(/I/,/V
   !    F%(,)           MAPS CRASH FILE TO MEMORY LOCATIONS &
*H/940  /V
940     DIM #12, F%(32767) &
*G/(/5C/2%,32767%/V
940     DIM #12, F%(2%,32767%) &
*H/1010 /V
1010    I$="V7.0-07B" &
*G/07B/-C/C/V
1010    I$="V7.0-07C" &
*H/1070 /2AV
        \ I%=(F%(29%)/2%) AND 32767% &
*G/F%(/I/0%,/V
        \ I%=(F%(0%,29%)/2%) AND 32767% &
*AV
        \ S$="_SY0:[0,1]"+RAD$(F%(I%))+RAD$(F%(I%+1%))+".SIL" &
*G/F%(/I/0%,/G/F%(/I/0%,/V
        \ S$="_SY0:[0,1]"+RAD$(F%(0%,I%))+RAD$(F%(0%,I%+1%))+".SIL" &
*H/15510        /V
15510   FNP%=0% &
*G/%/I/,PNT%/V
15510   FNP%,PNT%=0% &
*5AV
        ELSE    IF Q%<0% THEN &
*G/0%/I/ AND CRSZ%>0%/V
        ELSE    IF Q%<0% AND CRSZ%>0% THEN &
*3AKI
        \               IF (Q%>CRSZ% AND CRSZ%>0%) OR &
                        (Q%<0% AND CRSZ%>0%) THEN &
$*V
                                E$="FNP% Address Too Big" &
*G/15520        /0AV
15520   IF LEN(E$)=0% THEN &
*I
15515   IF Q%<0% AND CRSZ%<0% THEN &
                PNT%=1% &
        \       Q%=32768.+Q% &
        ! MAY NEED 2ND HALF OF ARRAY WITH &
        ! NEGATIVE CRASH SIZE.

$*V
15520   IF LEN(E$)=0% THEN &
*G/F%(/I/PNT%,/V
                FNP%=F%(PNT%,Q%) &
*EX
Patch from _DL1:[1,2]PA1203.005 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]ANALYS.BAS

Ready

COMPILE SY:[1,2]ANALYS

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]ANALYS.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]ANALY1.BAS=DL2:[1,2]ANALY1.BAS
#DL1:[1,2]PA1202.001/CS:35853
*H/2!/V
2!              PROGRAM         : ANALY1.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/18-MAR-80/V
7!              EDIT DATE       : 18-MAR-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      18-MAR-80       CORRECT 'FREE' BUFFER ANNOTATION
S. &
$*V
        ! &
*H/1010 /V
1010    I$="V7.0-07" &
*G/07/I/A/V
1010    I$="V7.0-07A" &
*H/13820        /7AV
        \ GOTO 13820 IF G%>G7% &
*G/G7%/I/ OR (G0%=1%)/V
        \ GOTO 13820 IF G%>G7% OR (G0%=1%) &
*AV
        \ TEMP$=' (circular)' &
*G/=/I/' Free #'+NUM1$(G0%)+/V
        \ TEMP$=' Free #'+NUM1$(G0%)+' (circular)' &
*AV
        \ TEMP$=' (backwards)' IF G%(CRSZ%-2%) &
*G/ADDR%/C/)>(CRSZ%-2%)-/G/-2%)/12DV
        \ MISMAT%=-1% IF (ADDR%)>(CRSZ%-2%)-(NXT.CHNK%*2%-2%) &
*H/15510        /V
15510   FNP%=0% &
*G/%/I/,PNT%/V
15510   FNP%,PNT%=0% &
*5AV
        ELSE    IF Q%<0% THEN &
*G/0%/I/ AND CRSZ%>0%/V
        ELSE    IF Q%<0% AND CRSZ%>0% THEN &
*3AKI
        \               IF (Q%>CRSZ% AND CRSZ%>0%) OR &
                        (Q%<0% AND CRSZ%>0%) THEN &
$*V
                        E$="FNP% Address Too Big" &
*G/15520        /0AV
15520   IF LEN(E$)=0% THEN &
*I
15515   IF Q%<0% AND CRSZ%<0% THEN &
                PNT%=1% &
        \       Q%=32768.+Q% &
        ! MAY NEED 2ND HALF OF ARRAY WITH &
        ! NEGATIVE CRASH SIZE.

$*V
15520   IF LEN(E$)=0% THEN &
*G/F%(/I/PNT%,/V
                FNP%=F%(PNT%,Q%) &
*H/17100        /2AV
        \ IF G%>=32000% or G%<0% THEN &
*G/IF /14DV
        \ IF G%<0% THEN &
*EX
Patch from _DL1:[1,2]PA1202.002 complete.
#DL1:[1,2]PA1202.003/CS:57169
*H/2!/V
2!              PROGRAM         : ANALY1.BAS
*H/6!/:V
6!              EDIT            : 07B
*G/07B/-C/C/V
6!              EDIT            : 07C
*H/7!/V
7!              EDIT DATE       : 05-AUG-80
*G/05-AUG-80/-9C/01-OCT-80/V
7!              EDIT DATE       : 01-OCT-80
*H/21   /G/REASON/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07C      01-OCT-80       ADD WDB ANNOTATIONS.&
$*V
        ! V7.0-07B      05-AUG-80       CORRECT CRASH SIZE PROBLEM &
*H/1010 /V
1010    I$="V7.0-07B" &
*G/07B/-C/C/V
1010    I$="V7.0-07C" &
*H/13220        /V
13220   G1%=FNP%(G%) &
*8AV
        \ G2%=FNP%(G1%+6%) &
*I
        \ G3%=FNP%(G2%+28%) &
$*V
        \ G2%=FNP%(G1%+6%) &
*3AV
        \ I%=FNGADD%(G2%,' IOB of job '+NUM1$(G0%))
*G/))/I
        &
        \ IF G3% THEN &
                I%=FNGADD%(G3%-12%,' WDB of job '+NUM1$(G0%)) &
        \       G3%=FNP%(G3%-12%) &
        \       IF G3% THEN &
                        I%=FNGADD%(G3%-2%,' WDB2 of job '+NUM1$(G0%)) &
        \               G3%=FNP%(G3%-2%) &
        \               I%=FNGADD%(G3%-2%,' WDB3 of job '+NUM1$(G0%)) IF
 G3%$*V
        \               I%=FNGADD%(G3%-2%,' WDB3 of job '+NUM1$(G0%)) IF
 G3%
*EX
Patch from _DL1:[1,2]PA1202.003 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]ANALY1.BAS

Ready

COMPILE SY:[1,2]ANALY1

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]ANALY1.BAS/DE:NO
*^Z

Ready

SCALE 0

Ready

OLD DL2:[1,2]ODT   .BAS

Ready

COMPILE SY:[1,2]ODT   

Ready

SCALE 0

Ready

OLD DL2:[1,2]REACT .BAS

Ready

COMPILE SY:[1,2]REACT 

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]REORDR.BAS=DL2:[1,2]REORDR.BAS
#DL1:[1,2]PA1020.002/CS:28249
*H/2!/V
2!              PROGRAM         : REORDR.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/18-FEB-80/V
7!              EDIT DATE       : 18-FEB-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      18-FEB-80       HANDLE ALL FILES > 32767 BLOCKS 
&
$*V
        ! &
*H/1010 /V
1010    I$ = "V7.0-07" &
*G/07/I/A/V
1010    I$ = "V7.0-07A" &
*H/1330 /AV
        \  IF (I% AND -18177%) <> 12416% &
*G/8177/-4C/9201/V
        \  IF (I% AND -19201%) <> 12416% &
*H/4190         /V
4190               T0% = D%(P0%+2%) &
*2A4KI
                \ T0 = 32768. + (T0% EQV 32767%) &
                \ T0 = T0 + 65536.*(D%(P0%+6%) AND 255%) IF D%(P0%+5%) =
 0% &
                \ S% = (S% + 1%) + (T0-1.) / (T1%*7%) &
$*V
                        ! T0% IS NUMBER OF BLOCKS IN FILE.  T1% IS THE F
ILE &
*H/4320 /V
4320               P% = P1%+6% &
*3A2KV
                        ! SET UP P% AS THE POINTER  TO THE ACCOUNTING EN
TRY &
*H/4420 /V
4420               GO TO 4500   IF (L% AND -16%) = 0% &
*2A2KV
                \  GO TO 4420 &
*EX
Patch from _DL1:[1,2]PA1020.002 complete.
#DL1:[1,2]PA1020.003/CS:62580
*H/2!/V
2!              PROGRAM         : REORDR.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 18-FEB-80
*G/18-FEB-80/-9C/20-FEB-81/V
7!              EDIT DATE       : 20-FEB-81
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07B      20-FEB-81       IF WRITE ACCESS TO UFD, MODE 163
84% &
        !                               SEND MESSAGE AND CONTINUE. &
$*V
        ! V7.0-07A      18-FEB-80       HANDLE ALL FILES > 32767 BLOCKS 
&
*H/1010 /V
1010    I$ = "V7.0-07A" &
*G/07A/-C/B/V
1010    I$ = "V7.0-07B" &
*H/19900        /0AV
19900      PRINT &
*I
19070   IF ERR = 10% THEN &
                PRINT " is not Reordered - No write access to UFD" &
        \       CLOSE -1% &
        \       RESUME 6000 &
                ! IF REORDR CAN'T GAIN WRITE ACCESS TO THE UFD &
                ! BECAUSE A PRIV USER SET MODE 16384% &
                ! SEND "NOT REORDERED" MESSAGE AND CONTINUE. &

$*V
19900      PRINT &
*EX
Patch from _DL1:[1,2]PA1020.003 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]REORDR.BAS

Ready

COMPILE SY:[1,2]REORDR

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]REORDR.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]DSKINT.BAS=DL2:[1,2]DSKINT.BAS
#DL1:[1,2]PA1008.001/CS:396
*H/2!/V
2!              PROGRAM         : DSKINT
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/30-OCT-79/V
7!              EDIT DATE       : 30-OCT-79
*H/21!/G/REASON/G/&/V
21!     VER/EDIT        EDIT DATE       REASON &
*I

  !     7.0-07A         30-OCT-79       FIX PROBLEMS WITH ROUTINE TO &
  !                                     FOLLOW LINKS (FNLINK.TO.CLUS%). 
&$*V
  !                                     FOLLOW LINKS (FNLINK.TO.CLUS%). 
&
*H/1010 /V
1010    I$="V7.0-07" &
*G/07/I/A/V
1010    I$="V7.0-07A" &
*H/15500        /V
15500   DEF* FNLINK.TO.CLUS%(DIR.LINK%) &
*G/-1%/-2C/16%/V
                        \ L6%=PEEK(PEEK(PEEK(PEEK(520%))+12%)+6%)-16% &
*G/M%/-DV
                              DIR.ENTRY%(1%+((DIR.LINK% AND 3584%)/512%)
)>=M &
*EX
Patch from _DL1:[1,2]PA1008.001 complete.
#DL1:[1,2]PA1008.002/CS:12725
*H/2!/V
2!              PROGRAM         : DSKINT
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 30-OCT-79
*G/30-OCT-79/-9C/13-FEB-80/V
7!              EDIT DATE       : 13-FEB-80
*H/20   !/V
20      ! &
*G/REASON/AI
  !     7.0-07B         13-FEB-80       DOES NOT SAVE OLD BAD BLOCK INFO
. &
$*V
  !     7.0-07A         30-OCT-79       FIX PROBLEMS WITH ROUTINE TO &
*H/1010 /V
1010    I$="V7.0-07A" &
*G/07A/-C/B/V
1010    I$="V7.0-07B" &
*H/12000        /V
12000   ON ERROR GOTO 12200 &
*10AV
        \ Z1%=Z1% OR DIR.ENTRY%(Z%) FOR Z%=3% TO 7% &
*G/7%/-2C/5%/V
        \ Z1%=Z1% OR DIR.ENTRY%(Z%) FOR Z%=3% TO 5% &
*2AV
                ! THIS ROUTINE WILL FORMULATE A LIST OF DEVICE CLUSTER N
UMBERS &
*I
        \ GOTO 12190 UNLESS (DIR.ENTRY%(6%)=0% AND DIR.ENTRY%(7%)=0%) &
                OR (DIR.ENTRY%(6%)=1% AND DIR.ENTRY%(7%)=-31692%) &
$*V
                ! THIS ROUTINE WILL FORMULATE A LIST OF DEVICE CLUSTER N
UMBERS &
*11AV

*I
                ! ENSURE BAD BLOCKS ARE RETAINED FROM V06C AND V7 DISKS.
 &
$*V

*EX
Patch from _DL1:[1,2]PA1008.002 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]DSKINT.BAS

Ready

COMPILE SY:[1,2]DSKINT

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]DSKINT.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]UMOUNT.BAS=DL2:[1,2]UMOUNT.BAS
#DL1:[1,2]PA1026.001/CS:23283
*H/2!/V
2!              PROGRAM         : UMOUNT
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/11-SEP-80/V
7!              EDIT DATE       : 11-SEP-80
*H/20   !/V
20      ! &
*G/REASON/AI
        ! V7.0-07A      11-SEP-80       PRINT SWITCH-IN-ERROR CORRECTLY 
&
$*V
        ! &
*H/1010 /V
1010    I$="UMOUNT      V7.0-07" &
*G/07/I/A/V
1010    I$="UMOUNT      V7.0-07A" &
*H/10270        /2AV
        \ P%=P%+1% IF Y8% AND 16384% &
*I
        \ E$=MID(F$,2%,INSTR(2%,F$+"/","/")-2%) &
$*V
        \ P%=P%+1% IF Y8% AND 16384% &
*EX
Patch from _DL1:[1,2]PA1026.001 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]UMOUNT.BAS

Ready

COMPILE SY:[1,2]UMOUNT<232>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]UMOUNT.BAS/DE:NO
*^Z

Ready

SCALE 0

Ready

OLD DL2:[1,2]COPY  .BAS

Ready

COMPILE SY:[1,2]COPY<40>  

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]FILCOM.BAS=DL2:[1,2]FILCOM.BAS
#DL1:[1,2]PA1105.001/CS:61749
*H/2!/V
2!              PROGRAM         : FILCOM.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/21-FEB-80/V
7!              EDIT DATE       : 21-FEB-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! V7.0-07A      21-FEB-80       ONLY CHECK FOR COMMENT CHARACTER
 &
        !                               IN INDIRECT FILES &
$*V
        ! &
*H/1010 /V
1010    I$="V7.0-07" &
*G/07/I/A/V
1010    I$="V7.0-07A" &
*H/15960        /V
15960   PRINT IF CCPOS(0%) UNLESS DETACHED% &
*7AV
        \ GOTO 15960 IF (ASCII(A$)=59%) OR (ASCII(A$)=33%) &
*G/IF /I/((C%<>0%) AND (/G/33%/I/))/V
        \ GOTO 15960 IF ((C%<>0%) AND ((ASCII(A$)=59%) OR (ASCII(A$)=33%
))) &
*EX
Patch from _DL1:[1,2]PA1105.001 complete.
#DL1:[1,2]PA1105.002/CS:28030
*H/2!/V
2!              PROGRAM         : FILCOM.BAS
*H/6!/:V
6!              EDIT            : 07A
*G/07A/-C/B/V
6!              EDIT            : 07B
*H/7!/V
7!              EDIT DATE       : 21-FEB-80
*G/21-FEB-80/-9C/11-DEC-80/V
7!              EDIT DATE       : 11-DEC-80
*H/21   /G/REASON/AI
        ! V7.0-07B      11-DEC-80       FIX ERRONEOUS ERROR MESSAGE. &
$*V
        ! V7.0-07A      21-FEB-80       ONLY CHECK FOR COMMENT CHARACTER
 &
*H/1010 /V
1010    I$="V7.0-07A" &
*G/07A/-C/B/V
1010    I$="V7.0-07B" &
*H/15150        /V
15150   GOSUB 10050 &
*AI
        \ TMP$=NUM1$(C%)+" '"+I$+"' " &
        \ IF ERR=10% THEN &
                FNO%=FNE%("?Protection violation on input file #"+TMP$,L
OGF%) &
$*V
        \ FNO%=FNE%("?Input File #"+NUM1$(C%)+" '"+I$+"' not found",LOGF
%) &
*G/\ /-2DI/ELSE /V
        ELSE    FNO%=FNE%("?Input File #"+NUM1$(C%)+" '"+I$+"' not found
",LOGF%) &
*G/+/21DI/TMP$+"/V
        ELSE    FNO%=FNE%("?Input File #"+TMP$+"not found",LOGF%) &
*AI

15160$*V
15160   \ RESUME 15190 &
*G/\ /-2DV
15160   RESUME 15190 &
*EX
Patch from _DL1:[1,2]PA1105.002 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]FILCOM.BAS

Ready

COMPILE SY:[1,2]FILCOM<40>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]FILCOM.BAS/DE:NO
*^Z

Ready

SCALE 0

Ready

OLD DL2:[1,2]QUOLST.BAS

Ready

COMPILE SY:[1,2]QUOLST<232>

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]MONEY.BAS=DL2:[1,2]MONEY.BAS
#DL1:[1,2]PA1014.001/CS:60284
*H/2!/V
2!              PROGRAM         : MONEY.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*G/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/06-FEB-80/V
7!              EDIT DATE       : 06-FEB-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*AI
        ! 7.0-07A       06-FEB-80       ALLOW [0,1] TO BE SELECTED. &
$*V
        ! &
*H/150  /V
150     I$="V7.0-07" &
*G/07/I/A/V
150     I$="V7.0-07A" &
*H/9000 /V
9000    ON ERROR GOTO 9100 &
*2AV
        \ GOTO 9000 IF M%(8%)<1% OR M%(8%)>254% &
*G/1%/-2C/0%/V
        \ GOTO 9000 IF M%(8%)<0% OR M%(8%)>254% &
*2AV
                ! SELECTIVE ACCOUNT LISTING - ENDS WITH CTRL/Z. &
*I
                OR (M%(8%)=0% AND M%(7%)<>1%) &
$*V
                ! SELECTIVE ACCOUNT LISTING - ENDS WITH CTRL/Z. &
*AI
                ! CHECK GENERAL RANGE &
                ! ALLOW ONLY [0,1] IF PROJECT NUMBER IS ZERO. &
$*V

*EX
Patch from _DL1:[1,2]PA1014.001 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]MONEY.BAS

Ready

COMPILE SY:[1,2]MONEY<40>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]MONEY.BAS/DE:NO
*^Z

Ready

RUN SY:[1,2]CPATCH
CPATCH  V7.0-07 RSTS V7.0-07 PICO
File to patch - SY:[1,2]GRIPE.BAS=DL2:[1,2]GRIPE.BAS
#DL1:[1,2]PA1009.001/CS:29389
*H/2!/V
2!              PROGRAM         : GRIPE.BAS
*H/6!/:V
6!              EDIT            : 07
*G/07/I/A/V
6!              EDIT            : 07A
*H/7!/V
7!              EDIT DATE       : 24-SEP-79
*G/24-SEP-79/-9C/03-DEC-80/V
7!              EDIT DATE       : 03-DEC-80
*H/21   !/V
21      ! VER/ED        EDIT DATE       REASON &
*G/REASON/AI
        ! V7.0-07A      03-DEC-80       $GRIPE.TXT NEEDS TO BE RESET &
        !                               WHEN THERE ARE TOO MANY MESSAGES
. &
$*V
        ! &
*H/1150 /V
1150    N%=N%(0%)+1% &
*A3KI
        \ L%=LEN(H$)+1% &
        \ IF (N%+L%/16%) > 10000% THEN &
                PRINT &
        \       PRINT "THIS MESSAGE WOULD FILL $GRIPE.TXT." &
        \       PRINT "PLEASE NOTIFY THE SYSTEM MANAGER." &
        \       CLOSE 1% &
        \       GOTO 32767 &

1155    N%(0%)=N%+L%/16% &
        \ A$(I%+N%)=RIGHT(H$,I%*16%+1%) FOR I%=0% TO L%/16% &
$*V
        \ CLOSE 1% &
*H/1170 /V
1170    OPEN H1$ FOR OUTPUT AS FILE 2% &
*1A3DI
        \ IF N%(0%) > 9000% THEN &
                PRINT &
        \       PRINT "$GRIPE.TXT IS GETTING FULL. SHOULD BE *RESET." &

1175    $*V
1175    PRINT #2%, A$(K%); FOR K%=0% TO N%(0%) &
*EX
Patch from _DL1:[1,2]PA1009.001 complete.
#^Z
File to patch - ^Z

Ready

SCALE 0

Ready

OLD SY:[1,2]GRIPE.BAS

Ready

COMPILE SY:[1,2]GRIPE<232>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]GRIPE.BAS/DE:NO
*^Z

Ready

SCALE 0

Ready

OLD DL2:[1,2]TALK  .BAS

Ready

COMPILE SY:[1,2]TALK<232>

Ready

SCALE 0

Ready

OLD DL2:[1,2]PLEASE.BAS

Ready

COMPILE SY:[1,2]PLEASE<232>

Ready

SCALE 0

Ready

OLD DL2:[1,2]INUSE .BAS

Ready

COMPILE SY:[1,2]INUSE<40> 

Ready

SCALE 0

Ready

OLD DL2:[1,2]SWITCH.BAS

Ready

COMPILE SY:[1,2]SWITCH<232>

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]ONLCLN.SAV/RTS:RT11=DL2:[1,2]ONLCLN.SAV
*^Z

Ready

RUN SY:[1,2]ONLPAT.SAV
Command file name? DL1:[1,2]PA2218.001
!
!       Seq 22.18.1 M, June 1981
!       RT-11 Emulator and Utilities Package
!       ONLCLN.SAV
!
! ONLCLN PRINTS INCORRECT ERROR TEXT WHEN ERRORS OCCUR DURING WIPEOUT PH
ASE
! MANDATORY ONLCLN PATCH
! COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
! (TBS)
!
File to patch? [1,2]ONLCLN.SAV
Base address? ONLCLN
Offset address? 1554
 Base   Offset  Old     New?
046126  001554  104364  ? 116700
046126  001556  004537  ? 402
046126  001560  044124  ? 4737
046126  001562  043611  ? CLNPAT
046126  001564  004767  ? ^Z
Offset address? ^Z
Base address? CLNPAT
Offset address? 0
 Base   Offset  Old     New?
065042  000000  000000  ? 104364
065042  000002  000000  ? 4537
065042  000004  000000  ? MESSAG
065042  000006  000000  ? 43611
065042  000010  000000  ? 207
065042  000012  000000  ? ^C
Patch complete

1 patch installed

Command file name? ^Z

Ready

RUN SY:[1,2]PIP.SAV
*SY:[1,2]NOTICE.TXT<40> /PR:NOWARN=DL2:[1,2]NOTICE.TXT/AS/NO
*SY:[1,2]HELP  .TXT<40> /PR:NOWARN=DL2:[1,2]HELP  .TXT/AS/NO
*SY:[1,2]START.TMP=KB:
@SY0:[1,2]RTS.CMD
@SY0:[1,2]TTY.CMD
;@SPOOL.CMD[1,2]
@SY0:[1,2]CCL.CMD
DETACH
LOGIN KB0: [1,2]
FORCE KB0: RUN SY:[1,2]UTILTY
FORCE KB0: REMOVE LOGICAL LB
FORCE KB0: ADD LOGICAL SY:[1,1]LB
FORCE KB0: EXIT
FORCE KB0: BYE/F
ATTACH
FORCE KB0: RUN SY:[1,2]ERRINT
FORCE KB0: 100
FORCE KB0: NO
LOGINS
SEND RSTS/E IS NOW ON THE AIR...
END
^Z
*SY0:[1,2]START .CTL    /PR:NOWARN=SY:[1,2]START.TMP/AS
*SY:[1,2]START .TMP     /DE:NOWARN
*SY0:[1,2]TTY   .CMD    /PR:NOWARN=DL2:[1,2]TTY   .CMD/AS/NO
*SY0:[1,2]RTS   .CMD    /PR:NOWARN=DL2:[1,2]RTS   .CMD/AS/NO
*SY0:[1,2]CCL   .CMD    /PR:NOWARN=DL2:[1,2]CCL   .CMD/AS/NO
*SY:[1,2]CRASH .TMP               =KB:
@SY0:[1,2]RTS.CMD
@SY0:[1,2]ANALYS.CMD
@SY0:[1,2]CLEAN.CMD
@SY0:[1,2]TTY.CMD
;@SPOOL.CMD[1,2]
@SY0:[1,2]CCL.CMD
DETACH
LOGIN KB0: [1,2]
FORCE KB0: RUN SY:[1,2]UTILTY
FORCE KB0: REMOVE LOGICAL LB
FORCE KB0: ADD LOGICAL SY:[1,1]LB
FORCE KB0: EXIT
FORCE KB0: RUN SY:[1,2]QUE
FORCE KB0: Q SY:[1,2]ANALYS.DMP/DE
FORCE KB0: EXIT
FORCE KB0: BYE/F
ATTACH
FORCE KB0: RUN SY:[1,2]ERRINT
FORCE KB0: 100
FORCE KB0: YES
LOGINS
SEND RSTS/E IS NOW ON THE AIR...
END
^Z
*SY0:[1,2]CRASH .CTL    /PR:NOWARN=SY:[1,2]CRASH .TMP/AS
*SY:[1,2]CRASH .TMP     /DE:NOWARN
*SY:[1,2]ANALYS.TMP               =KB:
DETACH
LOGIN KB0: [1,2]
FORCE KB0: RUN SY:[1,2]ANALYS
FORCE KB0: [0,1]CRASH.SYS
FORCE KB0: SY:[1,2]ANALYS.DMP/WIDE
FORCE KB0: SY:[1,2]ERRCRS.FIL
FORCE KB0: BYE/F
ATTACH
^Z
*SY0:[1,2]ANALYS.CMD    /PR:NOWARN=SY:[1,2]ANALYS.TMP/AS/NO
*SY:[1,2]ANALYS.TMP     /DE:NOWARN
*SY0:[1,2]CLEAN .CMD    /PR:NOWARN=DL2:[1,2]CLEAN .CMD/AS/NO
*SY:[1,2]UTILTY.HLP               =DL2:[1,2]UTILTY.HLP/AS/NO
*SY:[1,2]DIRECT.HLP<40>           =DL2:[1,2]DIRECT.HLP/AS/NO
*SY:[1,2]ERRDIS.HLP               =DL2:[1,2]ERRDIS.HLP/AS/NO
*SY:[1,2]ACCT  .SYS<188>        /PR:NOWARN=DL2:[1,2]ACCT  .SYS/AS/NO
*SY:[1,2]COPY  .HLP<40>           =DL2:[1,2]COPY  .HLP/AS/NO
*^Z

Ready

RUN SY:[1,2]UTILTY
UTILTY  V7.0-07E        RSTS V7.0-07 PICO
#LOGINS
#EXIT

Ready

!*** BUILD Complete ***

Ready

RUN $SHUTUP
SHUTUP   V7.0-07A   RSTS V7.0-07 PICO

18:16    19-Feb-85  ########  Set-up   Dialogue   Phase  ########

Type 'ESC'('ALT') to any query to backup one (1) step

'OPSER' not running

Minutes until system shutdown (0-99) <5>?  0

18:16    19-Feb-85  ########  Warning   Message   Phase  ########
Further LOGINs are now disabled

18:16    19-Feb-85  ########  Initial Job Killing Phase  ########

18:16    19-Feb-85  ########  Remove RTS/RES LIB  Phase  ########

18:16    19-Feb-85  ########  SWAP File  Removal  Phase  ########

18:16    19-Feb-85  ########  Disk    DISMOUNT    Phase  ########

18:16    19-Feb-85  ########  Final   Shutdown    Phase  ########

Please wait for system to re-boot itself