Digital PDFs

XX-E8188-4B

September 1968

43 pages

Original

1.5MB

Document:	PDP-9 Monitor 4B Release Notes 196809
Order Number:	XX-E8188-4B
Revision:
Pages:	43
Original Filename:	http://bitsavers.org/pdf/dec/pdp9/PDP-9_Monitor_4B_Release_Notes_196809.pdf

OCR Text

The current release of the PDP-9 ADVANCED Software System
(Keyboard Monitor V4B) supercedes all earlier versions and
is dis tr ibu ted in o_ne of two farms :
1.

Three (3) trays of paper tapes (24 tapes) for PDP-9's
with Disks but no DECtapes.
·

One (1) DECtape for PDP-9's with Disks and/or DECtapes.

DECTAPE PDP-9's
The System DECtape issued by Digital Equipment Corporation is
an SK, non-EAE, non-API, 33KSR version of the Keyboard Monitor
System: V4B, 9-30-68 (DEC-9U-SRZB-UC). SGEN (System Generation)
should be used to tailor the system tape to the specific machine
configurations. A write-up on SGEN starts on page
DECTAPE/DISK PDP-9's
The System DECtape issued by Digital Equipment Corporation is
an 8K, non-EAE, non-API, 33KSR version of the Keyboard Monitor
System: V4B, 9-30-68 (DEC-9U-SRZB-UC). Disk handlers are
contained in the binary file, .LIBR BIN. It is not directly
operable from the Disk until system generation has been performed.
Before attempting to use the system, the user should be familiar
with the material contained in the SGEN write-up beginning on
page
INTERIM
/ and the PDP-9 ADVANCED SOFTWARE DISK SYSTEM:
VERSION write-up, beginning on page
In addition to the System DECtape (DEC-9U-SRZB-UC) and DECtape
bootstrap (DEC-9U-LBAA-PH) , the following two paper tapes should
be included:
1.

.DSKBT (DEC-9U-LWDA-PH) - Disk System Bootstrap

DSKSAV (DEC-9A-UPFA-PH) - Disk System Save/Restore
Ut.tlity Program

PAPER TAPE/DISK PDP-9'8
The 24 binary tapes, as distributed by Digital Equipment Corporation,
constitute an SK, non-EAE, non-API, 33KSR version of the Keyboard
Monitor System: V4B, 9-30-68 (DEC) . SGEN (System Generation) should be used to tailor the system to the specific configuration involved. Before attempting to use the system, the user
should be familiar with the material contained in the S.GEN write-up,
beginning on page
I
and the ·PDP-9 ADVANCED SOFTWARE DISK SYSTEM:

..,

INTERIM VERSION write-up, beginning on page
In addition to the three trays of tape, the following two paper
tapes should be included:
1.

.DSKBT (DEC-9U-LWDA-PH) - Disk System Bootstrap

DSKPTR (DEC-9A-YPDA-PH) - Disk System Save/Restore
Utility Program

Attached is a list of PDP-9 ADVANCED Software System changes
between V4B, 9-30-68 and earlier versions, a write-up on the
INTERIM DISK SYSTEM, one on MAGTAPE HANDLER: MTF.,· one on the
RM~9 drum handlers, and additions to the FORTRAN IV subroutines
library. Also included are features published with system V3C
which have not.yet been u~-dated in manuals.

Document Contents:
PART I:
PDP-9 ADVANCED SOFTWARE SYSTEM CHANGE NOTICE
I/O Handlers
KM9 V4B
SGEN V3B
UPDATE V4A
DUMP V3A
MACROA V3A
F4 V4A
F4A V4A
LINKING LOADER V3A
EDITOR V4A
DDT V3A
PIP V7A
PATCH V3A
CHAIN V2A
MONITOR V4B SYSTEM PROGRAM PATCHES
PART II:
SYSTEM OPERATION
SK DECTAPE SYSTEM OPERATION
SYSTEM GENERATION: BASIC RULES
PDP-9 ADVANCED SOFTWARE DISK SYSTEM:: INTERIM VERSION
MAGTAPE HANDLER: MTF., Version l
RM¢9 DRUM HANDLERS FOR THE PDP-9
ADDITIONS TO PDP-9 FORTRAN IV SUBROUTINE LIBRARY
FILE: File Commands
TIME: Clock Handling
TIME1¢: Clock Handling
ADJl: Adjustable Dimensioning
ADJ2: Adjustable Dimensioning
ADJ3: Adjustable Dimensioning

PDP-9 ADVANCED SOFTWARE SYSTEM CHANGE NOTICE
VERSI:ON V4B. · (9-30-68).

I/O Handlers

Disk Handlers (DKA.,. DKB., DKC., DKD.)
Disk handlers (DKA., DKB., DKC.,: DKD.) have been added to
the system library. (see PDP-9 ADVANCED SOFTWARE DISK SYSTEM:
INTERIM VERSION, page 30).

Magnetic Tape Handler (MTF.)
Magnetic tape handler MTF. has been added to the system
library (see MTF., Version 1, page 44). V{hen used in the
Keyboard Monitor environmel)lti MTF. references .SCOM+4, bit 6
to determine whether 7 or 9 channel drives are present in
the system (0=7 channel, 1=9 channel). Variable MT9CHN need
only be defined· for 9-channel paper-tape systems.

Teletype Handler (TTA)·
Appropriate. del~ys for both vert'ical and horizontal tabbing
have been added.to the teletype handler to accommodate the
automatic tabping mechanisms of Model 35 teletyp1es.

Card Reader Handler (CDB.)
1

CDB. has been modified to operat e in the following manner:

*End-of-Medium:

EOM occurs on 1 of 2 conditions:

The presence of an EOF card (col. 1 = all l's).•
1

NOTE: An EOF card is required as the terminating
card of a deck when using the cR,01E reader.
It is
optional for the CR,02B.,
b..

Striking the EOF butt.on (CR,0'2B only) with the
hopper empty.
This feature is used as follows:
(

( 1)

Hopper cmpt.y ( <.Yt:. ond of; dech)
output of IOPS 4 (not ready).

Cu\.Wofi

t.nl0 t:-.ypCJ

WJ;:11d~·of-·Mc1cli \1111 on t'l1n f!i\'.l'"'«l :r.'OiH'Jn:1~ · 1.n 4·•ql'l:i.Vt11 r 1 nl·. 'l 0 '111\ l•:lld•·"O r·~·li':l lr-i 1
1.. q., l l,n onr.-'d :r.n~di<n'.' '!1iancfl.ol:" :r.oco~1n:L:t.nn thJn t~ondi LIO\\ nn l h"' ,q\\\
nl' 1111• 11111'.i '.}"'c! onrt'J <'ln,~k. ,,i:- f.Llo.

.(2)

At this point strD;:ing the EOF button on the
card reader followed by striking 1R on th~
teletype causes recognition of end of file.
NOTE: The IOT, CREF, 7¢6761, skip on EOF,
is recognized only by the CR,02B control and
is assumed to be an effective NOP on the CR¢1E.

2. ·

E •

Reader-Not-Ready (. IOPS 4): · All error conditions result·
in .IOPS 4. Manual intervention at the card reader
allows continuation of card :input:
a.

Hopper empty

Stacker· full

Not ready:

Feed check

Re ad check

Stop button depressed
Start button not depr~ssed
Validi;tt~l check with validity button on

DECtape Handlers (DTA. ·, DTB .. ,· DTD. , DTC. )
1

All :the· DECtape handlers hav'e been modified to allow
up to 56
10 ~iles on a DECtape unit jl:h~~ i_s l)Ot a sy,stem
device. '(241¢ is still the maximum of the syst~m device.)
Block 1¢¢s is the directory; blocks 71-77 are now all
reserved as file bit map blocks.·

DTB. has been shortened to allow DECtape input·and output
for the assembler (MACROA) and the ~ompiler (F4A) in 8~
systems.
•

.MTAPE monitor calls to the DECtape handler DTD. are
now operational. This is· th'e only handler which recognizes
them.

DUMP and IMAGE data modes are now operational in DTA. and
DTD.

Drum Handlers (DRA., DRB., , DRC., DRD) · ·
1.

Four drum (RM¢9) handlers.have been added to the system
library for use in the PDP-9 Keyboard Monitor environment
(see RM~9 Drum Handlers, page
) •· . ·

...

ALL I/O Handlers
The .WAITR 2, ADDR monitor call has been implemented in all
the I/O device handlers.
In I/O busy situtations control is given to the location with
the symbolic name ADR; otherwise.it is identical to the .WAIT
a monitor call.

···-···-····-·1

KM9 V4B

--~

A. NEW FEATURES
1.

Channel(C) 7 (or 9)
This conunand causes the default operation bit (.SCOM+4,
bit 6) to be cleared or set. If this bit is %, then
7 channel operation will be assumed by the magtape handler.
If it is 1, then 9 channel will be assumed.
This default
condition can also be set at system generation time by
answering YES or NO to the question "SHOULD DEFAULT ASSUMPTI°ON BE 7 CHANNEL MAGTAPE?

339(3) ON/OFF
This command tells the monitor .that a 3¢s register block
is (or is not) reserved for the 339 push-down list.
If
a 339 display handler is later loaded and the push-down
list has not been reserved, an .IOPS 24 error will occur
·on the first .INIT to that handler.
The default condition
of the 339 ON/OFF bit (.SCOM+4, bit 5) can be set at system
generation time by answering YES:to the question "SHOULD DEFAULT ASSUMPTION BE A 339 LOAD?"

VC38(V) ON/OFF
This command causes the character display table for theVC38 option to be set up prior to loading of any system
or user programs.
If this table is not set up and the
user does not specify a character table in an .INIT to the
handler, the display handler wil~ assume the absence of a
VC38 for text manipulation.
The ~efault condition of the
VC38 ON/OFF bit (.SCOM+4, bit 4) can be set at system
generation time by answering YES to the question "SHOULD VC38 CHARACTER TABLE BE LOADED?

If the 339 is ON (bit 5 of .SCOM+4=1), then the contents of
the first location of the push-down list is initially set
to zero.
However, if VC38 is ON (bit 4 of .SCOM+4=1), then
the first register of the push-down list points to the
starting address of the VC38 table.
This command implies 339 ON.

.4.

BATCH CD

(Reference Addendum Number 2 to PDP-9 Monitor.
Manual D~C-9A-MAB¢-D)

This command causes batch mode to be entered with the CR¢1E
or CR02B as the batch input device.
TWo special characters
may be keypunched to generate proper commands ..
a.

Back arrow (<t-") = 0-5-8 punch

·Altmode (ESC) = 12-1-8 punch
I

Expansion of the SKIP BLOCK

The skip block has been divided into two

separat~

parts:

(logical block 44)
which" contains the skip
chain and associated transfer vectors.

SKPBLK

IOBLK

F4A

is present on the System Tape and may be called.

GET function:

•

·~

. ',!

(logical block 55~
which contains the I/O
handler names as prod~ced by SGEN .

In order'.to"·allow a SAVE (-?'Q) and restart of all system
programs and to compensate for all changes which~result·
from Q occuring during execution of an 1I/O'handler,
'
particularly TTA, the GET function now works as follows:
a.)

$GET n xxxx&)
works as in the p~st where n =· the·~nit #of the
device whose save. ('tQ) area is being referenced
and XXXXX is the location in memory where execution
is to begin.

b.)

$GET n · (H) ALT~
when the save area is loaded the computer stops.
The user may load the address switches with his
desired starting location (remembering to raise
the extended memory switch: if the machine ~s gr7ater
than 8K) and press "'START"· or follow the dire9t1ons
in {c) below.

c.)

$GET n
When the save area i~,ioaded, execution of a Monitor
wait loop with API and/or PI on tapes place.
To start the saved program, one of· the following
actions must take place:
(1)
rrypc tP or tT or ~S
or (2) Prcna tho STOP button; oct·thc desired
:il·r1l·l: rul'h~n1.rn :Ln tho u.dd'r.- 1 11tt nw.it<!l1('tq
t\1111

1111111

1111

:: 111/\1\ 111 (PHl.P11c'l nwl llHi Hp i r

HI~),.

ljl'(1 i\l.P1.·

restarts system programs and will restart any user
program which has issued an .INIT to the teletype '
with a restart.address.
~T

is for a DDT restart.

S would be used only if a SAVE (tQ) had been executed
at the completion of a link load when the .loader was
waiting for ~S to be typed.

Communication with PIP:
For improved PIP operation (see PIP V7A), KM-9 has ·been
changed to refrain from storing the unit # in the .DEV table.

A major improvement ~n Monitor oper~tion with reference

to IOPS errors has been implemented in V4B. At the occurence
of all IOPS errors othei than ~4 {not~eady - which operates
as in the past), the resident Monitor now waits in a teletype
loop for the user to type 1P to restart the system or user
program; j\Q to execute· a sa'{e.,1of core; or 1tC to reload the
Monitor.
, '

New and/or Modifie'd Commands
( l)

INS rrHUC'l' (I)

List of lrtoni tor conuncmd:·;

(2)

INSTRUCT (I) ERRORS List of .IOPS,
.OTS and .SEG error messages

' I

.LOAD,

.SYSLD,

All other INSTRUCT commands have. been deleted
since this information is contained in the Keyboard
Monitor Guide (DEC-9A-NGBA-D) •

(3)

ASSIGN(A)
Assumes handler A if a two-letter•handler
is typed and Unit·~. if no unit number number is typed.
Example:
and

A DTl .2 is equivalent to A DTAl 2
A DT 3 is equivalent to A DTA~ 3

(4)

BATCH(B) XX Enter batch rpocessing mode. XX can
be PR (pnpor tape rcaJer) or CD (card reader) •

( h)

l. 1 J\ 1 I'l~11

I\ 1: I 1l1j

l!l

~y~ f.dHI

J:in t:ol•i::;r:,

( ,q

t '117\ I N

l\1·lnq

( \\

d\'n.\.l1 L>u 1 lL1 e .e •

(7)

EXECUTE(E) NAME
called NAME.

(8)

MACROA

(9)

F4A

(10)

Begin executing the chain file

Bring in abbreviated MACR0-9.
Bring in abbreviated FORTRAN IV.

API ON/OFF

Run the sy,stem :with the API on or off.

New Options
Resident error routines for
Power Fail
Memory Parity
Non-existent memory violation and
Memory Protect violation
have been incorporated into the system and effect an
.IOPS error message if the condition is detected.
(See
.IOPS error list below.)
The user has the ability (via .SETUP) to tie his own
handler into these skip IOT or API channel registers.
·Example:

A machine with power fail will generate an
.IOPS 34 error if the power low flag interrupts.
The IOPS error routine will not save the
appropriate registers. Therefore, if the user
wants the ability to restart, the save and
.restore routines should be contained within
the user's program. The skip !OT for power
fail must be connected to this routine by a
call to .SETUP.

Negative skip facility is now allowed in the program
interrupt skip chain.
c.

Clock Handling
.. TIMER monitor call has been modified to allow the user
to indicate another interval at the completion of previous
interval in the subroutine specified to .TIMER.
LOAD AC with desired interval
(2's complement)
(7
DAC*
LAC RETURN
/RESTORE LINK

RAL
LAC SAVEAC
CLON
JMP* RETURN

/RESTORE AC
/TURN ON CLOCK
/RETURN TO USER

8 • New Error ·Li-sts for V4B
Monitor Errors ~

1
2
3
4
5
6
7
1%
11
12
13
14
15
16
17
2¢
21
22
23
24
25
26
27
3%
31
32
33
34
35

ILLEGAL FUNCTION CAL - CAL ADDRESS
CAL* ILLEGAL - CAL ADDRESS
.DAT SLOT ERROR - CAL ADDRESS
ILLEGAL INTERRUPT - INPUT/OUTPUT STATUS REGISTER.
DEVICE NOT READY - TYPE R WHEN READY
ILLEGAL .SETUP CAL - CAL ADDRESS
ILLEGAL HANDLER FUNCTION
ILLEGAL DATA MODE - CAL ADDRESS
FILE STILL ACTIVE - CAL ADDRESS
SEEK/ENTER NOT EXECUTED - CAL. ADDRESS
UNRECOVERABLE DECTAPE ERROR - STATUS REGISTER B A.~D UNIT NO.
FILE NOT FOUND - CAL ADDRESS
DIRECTORY FULL - CAL ADDRESS
DECTAPE FULL ~ CAL ADDRESS
OUTPUT BUFFER OVERFLOW - CAL ADDRESS
TOO MANY FILES FOR HANDLER - CAL ADDRESS
DISK FAILURE - DISK STATUS REGISTER
ILLEGAL DISK ADDRESS - CAL ADDRESS
TWO OUTPUT FILES ON ONE UNIT - CAL ADDRESS
ILLEGAL WORD PAIR COUNT - CAL ADDRESS
339 PUSH-DOWN LIST NOT RESERVED - CAL ADDRESS
ILLEGAL DRUM SECTOR ADDRESS
ILLEGAL DRUM UNIT
ILLEGAL DISK UNIT - CAL ADDRESS
API SOFTWARE LEVEL ERROR - API STATUS REGISTER
NON-EXISTENT MEMORY REFERENCE - PROGRAM COUNTER
MEMORY PROTECT VIOLATION - PROGRAM COUNTER
MEMORY PARITY ERROR - PROGRAM COUNTER
POWER FAIL SKIP NOT SETUP - .PROGRAM COUNTER
ILLEGAL DRUM SIZE

Loader Errors 1
2
3
4

.IOPS

.LOAD or .SYSLD

MEMORY OVERFLOW
DATA ERROR
SUBROUTINE NOT FOUND
.DAT SLOT ERROR

Object Time System Errors 5
6
7
l~

11
12
13
14

.OTS

ILLEGAL REAL SQUARE ROOT ARG
ILLEGAL DOUBLE SQUARE ARG
ILLEGAL INDEX IN COMPUTER 'GOTO
ELLEGAL I/O DEVICE NUMBER
ELLEGAL INPUT DATA
ELLEGAL FORMAT STATEMENT
ILLEGAL REAL LOGARITHMIC ARG
ILLEGAL DOUBLE LOGARITH~IC·ARG

Execute Errors
1
2
3

4
5

- .SEG

CHAIN CANNOT·CALL ITSELF
ILLEGAL EOF
ILLEGAL EOM
READ ERROR
CHAIN AND COMMON TOO LARGE

SYSTEM GENERATOR V30
A.

CORRECTED BUGS
1.

Special device handlers can be specified with no skip IOT's
in the skip chain.

Negative skip IOT'S - .SGEN has been corrected to allow
placement of a negative skip (SKIP ON NOT CONDITION) anywhere in the skip chain.

NEW FEATURES
1.

Magtape 7 or 9 channel default assumption can be set
at system generation time if any magtape handlers were
requested.

339 system load and VC38 option default assumptions
can be set at system generation if ·a 339 handler is
added.

System devices are now DT or DK (DTC or DKC assumed).

c. USER Is HINT
1.

The resident monitor can be reduced in size by deleting
unwanted devices from the system. This can be accomplished
by typing N for those devices (actually device handlers)
which are not present in the user's configuration (e.g.,
Disk (DKA, etc.), Mattape (MTF, etc)).

Another way of deleting skip IOT's is available to those
installations not having Memory Parity, Power Fail, or
Memory Protect. When skip chain ordering is performed,
type all skips except those associated with the options.
which are not included at the installation; namely I

SPE for memory parity

SPFAL :for power fail

MPS NE and MPSK for memory protect
i

Then type DONE to terminate the skip chain.
3.

Note to 24 and 32K PDP-9 Users
Because of the expansion of the library file (.LIBR BIN)
in the Keyboard Moni t~?= syste_m, system generation of 24
and 32K systems requires one of two possible preliminary_____________ _
steps to as sure the exfs-tence. --of adequate space on the--------- ----generated system tape:
a.)

The simpler of the two methods is to modify .SGEN,
cell 13475 (NOP), thereby inhibiting the provision

of a Q area on the generated tape. (This aoes
not inhibit use of Q to other tapes) •

b.)

Prior to system generation, run the UPDATE program
and delete unwanted I/O handlers from .LIBR BIN;
e~g., drum, disk, etc. if these devices do 'not exist
in the system.

Please note the write-up on system generation (page

UPDATE V4A

CORRECTED BUG
1.

The binary program processing routines have been
modified to allow for short '(l binary buffer) programs.

ADDITIONAL FEATURES
1.

The command

DELETE (D) NAMEl, NAME2
will delete programs NAMEl through NAME2 inclusive and
leave the file positioned immediately before the .entry·
after NAME2.

DUMP V3A
A.

ADDITIONAL FEATURES
1.

The command NNN#-J or ALT Mode will dump DECtape block
number NNN read in the reverse direction.

MACROA V3A
A.

CORRECTED BUG
1.

The buffers in MACROA have be~n .l~~gthened to allow for
card image (81 characters) ;~nput.

PERMANENT DESIGN RESTRICTIONS
1.

User defined Macros are not allowed~
(System Macro calls are still allowed)

.ABS and .FULL output is not allowed.

Conditionals and Repeats are not allowed.

SYMBOL TABLE
l.

The following symbol table sizes exist on 8K with the
full complement of skip IOT's in the skip chain:
(NOTE: Handlers listed are for .DAT slots -11, -12, -13,
and -10 respectively)
a.

PRB,TTA,PPC,TTA - 610. symbols (decimal)

DTC,TTA,PPC,TTA

DTB,TTA,DTB,TTA - 261 symbols (decimal)

482 symbols (decimal)

F4 V4A

CORRECTED BUGS

Correct code is generated for a subroutine argument which
is in both a DIMENSION and a COMMON statement.

References to non-existent memory:
Several illegal references to non-existent memory by F4 and F4A have been found
and corrected.

Absence of an END statement: The compiler has been modified
to assume the presence of an END statement if i t fails to
find one. This corrects the endless error printout of
former versions.

TEMPORARY RESTRICTIONS

EXTERNAL statements in subprograms will not compile properly.

Function names which are used as dummy arguments in subprograms will not compile properly.

The compiler fails when a subprogram contains a COMMON
·statement and a dimensioned ,array is in the argument list.

Programming hint to temporarily 'get·around the bug:
NORMAL CODING

i.
i

Main program
DIMENSION A ( 2f0f0)
COMMON B
CALL SUB (A)
Subroutine
SUBROUTINE SUB{A)
DIMENTION A (2¢)0)'
COMMON B
CORRECTED CODING {with new code underlined)
Main Program
DIMENSION A ( 2fJf5)
COMMON B
I

CAL SUB (A ( 1))
Subroutine
SUBROUTINE SUB (AX)
DIMENSION A ( 1)
COMMON B
CALL ADJl {A,AX)
l~t

this point the array A can be' referenced as i t would be in
the normal coding above.

Mixture of .OR. and .AND. in logical IF statements
generate errors at compilation time. This can be
corrected by breakinq up the logical expression
in statements prior in the logical IF statement.

If the name of a subroutine or function does not agree
with the file name given to the program, an E error
will occure in PASS 1 as a war~ing. It will have no
effect on the compiled output.

Block data subprograms with COMMON blocks are not
properly compiled.

SYMBOL TABLE

The following symbol table size.s exist on 8K with the
full comple~ent of skip IOTs in the'. skip cha~n:
(NOTE:

Handlers listed are for .nAT slots -11, -12,
and -13 respectively)

PRB ,TTA,PPC - '189 9-YILfuol's (decimal)

DTC,TTA,PPC - 62 symbols·(decimal)

MANUAL CHANGE

Changes need to be.made to the PDP-9·FORTRAN IV Manual
(DEC-9A-AF 4B-D)
a.

~dd~the~following

paragraph to the description of
the EQUIVALENCE statement of page I-37. 1.
I

An EQUIVALENCE statement which refers to an array
which also appears in a COMMON si;:atement must refer
to the first element of that array.
·
Example:

A.(100) I

DIMENSION
COMMON
EQUIVALENCE

B(SO)

(A ( l) I

B ( l) )

The above example shows a legal EQUIVALENCE statement.
If, however, the statement were changed to read
EQUIVALENCE
(A(SO), B(l)), the statement would not
compile.
b.

Add the following paragraph to the description of
TYPE statements on page I-35~
Any function reference (statement functions, intrinsic
·functions, or exter~al functions) which are not
implicitly REAL or 'INTEGER must appear in the appropriate type statement.
·
Example:

DOUBLE PRECISION B,X,DABS,DATAN
B=DATAN. (DABS (X))
J

If DABS and DATAN were not declared DOUBLE PRECISION,
improper code would be generated by the compiler.
19

F4A V4A (New)
A.

PERMANENT DESIGN .RESTRICTIONS
1.

F4A has been deliberately designed for use on 8K installations. Installations with 16K or greater may always use
F4. Consequently, F4A is not intended to operate in
systems greater than 8K.

The O (object code listing) and S (symbol table listings)
·options have been deleted.·

The following statements have been deleted from FORTRAN IV:
EQUIVALENCE

EXTERNAL

ASSIGN

Assigned GOTO

TEMPORARY RESTRICTIONS
l.

All which apply to F4 · ap.ply___ ,1:.? F4A.

SYMBOL TABLE
1.

The following symbol table sizes .exist on 8K with the
full complement of skip IOTs in the skip chain:
(NOTE: Handlers listed are .for .DAT slots -11, -12, and
-13 respectively.)
a.

PRB,TTA,PPC - 407 symbols (decimal)

DTC,TTA,PPC - 278 symbols (decimal)

DTB,TTA,DTB -

54 symbols (decimal)
;

FORTRAN IV SUBROUTINE LIBRARY
A. CORRECTED BUG
The double precision multiply routines for EAE have been
improved from 33 to 34 bit accuracy, with the 35th bit
rounded off.

LINKING LOADER V3A
A.

ADDITIONAL
1.

FEATUm~s

The Linking IJ0,':<d1_~r has been changed to allow coITu-non
blocks and blocj\:da ta subprograms to overlap meinory banks.
FORTRAN IV allows conunon block sizes greater than 8192 ,
provided that each element in common does not exceed 1 0
8192 , e.g.,
10
COMMON

/I/L(l00,100)
'

is illegal because the size 'of array L is 10000
COMMON

•

/I/Ll(l00,50)~L2(100,50)

is acceptable. Each array size is
the conunon block is 10000
.
10

sooo 10 . and the size of

(NOTE: FORTRAN IV does not properly compile blockdata
subprograms with conunon blocks.)
2.

Rubouts (echoes~) and CTRL U (@) may be used in the
conunand string to delete characters or the entire line.
Carriage return is equivalent to comma except that i t
allows continuation of the command string on the next
line. ALT Mode terminates the conu-nand string.

CTRL P (~P) may be used to restart the Loader if an error
is made in typing the command string. CTRL P (tP) must
be given before the terminating ALT Mode to be effective.

Non-common arrays· and variables are initialized to zero
(O) by the Loader.

¥.i.ACR0-9 programs can be--iinked to COMJ.VION areas defined
by FORTRAN IV. If any virtu'al globals remain after the
Loader has searched the user and system libraries and
defined COMMON blocks, an attempt will be made to match
those global names to COiv"illON. block names. · If a· match is
made, the global becomes defined as the address of the
COMMON block. An example follows:
IV PROGRAM
INTEGER A,B I c .
COMMON /NAME/C
COMMON A,B

FORTR.Al~

•

MACR0-9 PROGRAM
.GLOBL NAME,
DZM*
ISZ
DZM*
DZM*

.xx
.xx
.xx
NAME

.xx

/.XX is :::.·.·,:cie given to blank COMl.'10N
·/by th~ F4 Compiler
/CLEAR A - NOTE INDIRECT REFERENCE
/BUY.LP COUNTER

/CLEAR B
/CLEAR C

Please note that if the values are REAL (2 words) or
DOUBLE PRECISION (3 words) , the MACRO program must account
for the number of words when ac~essing specific variables.

. EDITOR V4A
A.

CORRECTED' BUGS : BLOCK MODE IMPROVEMENTS
1.

Block.Buffer is now properly cleared on pr~gram restart .

.2.

Final line of buffer may now be deleted.·

Buffer emptied by deletions may now be filled by READ
request.

WRITE request with pointer in middle of buffer will
output entire buffer~
·

READ request no longer required" before teletype input to
prime buffer ..

WRITE request no longer.required before CLOSE.

RENEW command acts just ~ike WRITE followed by READ.

"''

'."
'

BLOCK OFF issued while buffer is partially full results
in message:.
BUFFER NON-EMPTY
User must empty· buffer be;Eore block mode really goes off.
Editor cannot just blindly write buffer because pointer
posi,tio.p. .wo~ld get lost in the ·process.

ADDITIONAL' FEATURES
I

·I

Temporary File Deletion
If the Editor's temporary file (.TFILl EDT) is found on
the output device, the foll~wing comments are printed:FILE .TFILl IS PRESENT ON OUTPUT DEVICE.
RENAl.VIB IT OR IT WILL BE DELETED.

PLEASE

If the file is not explicitly: deleted or renamed (via.
the CALL function), it is automatically deleted.

Liko-Nnmo<l Files

Jl7 n f:lln :l.11
11 oUL1JUt 11

l'.cnmd n.t. 'J.'OP n;r~ CJ,<:;::1 1; ·l~l.rnn
Lllo .ColJJM;l.n<J c.!<.11111nt11iLti
I

d\,y;l.oc1,

J11

tJi~

nrc1

p':'J,1Lqd;

l•1 ILB 1n:LNl\M l~X'l' IS l!llliSlm'I' ON OU'J 1PUr.L1 DEVJCg.
'l'l.•':LLl

YOUR EDITED FILE IS ON .DAT

: ,1

~'I

[

-1'1~
£•
·
AS

-15

~D'l.'} •

l?ILN.l\M r:;xrr

ORIGINAL FILE DELETED.
The file processing goes as

follows~

The Editor first attempts to leave the file
on -14 as FILNAM EXT.

If it cannot do {l), it tries to leave the
file on -14 as .TFILl EDT.

. If it cannot do {2) either, it leaves the
file on -15 as .TFILl EDT.

The Editor is restarted.
In any case, the user knows exactiy the
.status {residence, name) of the edi~ed file.
This scheme protects .against:

{l)

Files of the same name on -14 and
-15.

(2)

Two or more files of the same name
on -14.

Name Provided in CLOSE sequence
It is now possible to give a name in the CLOSE request which
is identical to that given in .the OPEN sequence. The
norma:J_ comment:
PLEASE USE ANOTHER NAME
is not printed in this case.

Provision for Backup Files
The KEEP function effects preservation of the original file
as it appears on .DAT -14. That file will be renamed
"SAVNAM EXT" during processing of the next CLOSE or TOP
request.
Format:
KEEP SAVNAM (EXT)
"SAVNAM" must be different from any file name appearing in
the directory on -14. As many KEEP requests as needed may
be issued.

Restriction:
1.

The KEEP request must be issued while the
input file is on -14 (i,e., the number of
TOP·'s issued must be even 0,2·,4, ... ).

2 •·

"SAVNAM EXT" must bP unique.
If i t is not,
the name "SAVFIL EDT" will-be assigned.

Example of Usage:
EDITOR V4A
OPEN THSFIL
EDIT
KEEP BKUPOl
TOP
NEXT

TOP
KEEP BKUP02

/N0rmal TOP
/Some locative request must
be issued here to allow
physical file transfer at
second TOP.
/To return file to -14.

CLOSE
_Resulting Directory on -14:
THSFIL SRC
BKUPOl SRC·
BKUP02 SRC

/New edited file
/First copy~-original
/Second copy--after TOP's

File Renaming and Deletion
The CALL function allows user access to the file renaming
and deletion facilities in the Editor. This conunand may
not be issued while any file (either input or output) is
open. That is, it may only be used immediately after the
Editor is loaded or restarted.
Format:
INPUT
CALL RENAME

FILEl EXl FILE 2 (EX2)
OUTPUT

•The file FILEl EXl on .DAT-14 (if INPUT is specified)
or ·fAT-15 (if OUTPUT is specified) is given the new
name FILE2 . . EX2 need not be given. If it is not, EXl
is used; if it is given, th~n EX2 is used.
INPUT
CALL DELETE

FILNAM EXT
OUTPUT
The file named FILNAM EXT is deleted from the device
specified (INPUT or OUTPUT) • EXT need not be given
and, if it is not, "SRC" is used.

6.~~CLciSE Req~est

J:CLOSE -command effec-Es. the clo~.rng-_ of--the_-··--cU:rrent-- in-put-.
file only. The output file remains open. - P.. new input file may be referenced after the ICLOSE request by issuing an
OPEN conunand. ICLOSE provides a facility for combining source
files during an editing run.

':\~~~=~--The

PRECAUTIONS
l.

Block Buffer Overflow
In the event that the editor's block buffer becomes full
(BUFFER CAPACITY EXCEEDED BY: Offending line) the user's
only recourse at present is deletion of the line (or lines)
that caused the error. The user must ensure that the
buffer contents stay well within the buffer limits if he is
to avoiq this situation.·

SCLOSE Restriction
The conunand SCLOSE is intended to allow the placement of
the edited file on the current output device. Its use,
in place of the CLOSE request, normally causes the file to
be left on .DAT -15.
This allows the closing-of long files, after trivial changes,
without the tedious recopy proee·ss from -14 to -15 . . However,
its use causes a fatal error under some circumstances. For
example, the following_sequence causes an IOPS l~ error:

>.!CLOSE

> SCLOSE NAME

Error message (Ple~.
Use another name)

where name is the same as
that used in the OPEN conunand

'> SCLOSE NEWNAM
For this reason, SCLOSE should be used only with care.

DDT V3A
A.

ADDITIONAL. FEATURES
1.

DDT can now be called without.loading any user programs.
When the Linki~g Loader is in core and types
LOADER V2A

waiting for the user to type in the names of the programs
to be loaded,· the user may type CTRL T ("/'T). Control will
. go directly to DDT.

The HDR$ routine (which changes the symbol table look-up)
has been modified. The proper form is now
NAME;HDR$

with no spaces.
The old form (NAME HDR$) will still work if NAME is not
also used as an internal symbol.
B.

DELETIONS

The patch file feature has been deleted from the Keyboard
Monitor version. of DDT. Thus, the following commands are
illegal and will produce a question mark (?) response:
PFI$
PFO$
SNS$
PFE$
.DAT slots -6 and -10 have no further significance. to DDT.
I

RESTRICTIONS
1.

Breakpoints should not be placed in routines which operate
with API active. If such a breakpoint is encountered,
DDT will type:
. API 4XXXXX

(API status register)

along with the normal breakpoint information. The exclamation point (!) will have no effect at that breakpoint,
that is, a restart from the breakpoint is not possible.

PIP V7A

A. CORRECTED BUGS
1.

An.error is VSA which prevented H mode copy of a disk unit
to DECtape & vice veria has been corrected in V6A.

An error in VSA which caused failure to copy block 1077
in H mode copy of DECtape to. DECtape has been correctedi

ASCII line buffer sizes have been increased to accomodate
the 120 character line printer length.
i

H Mode Copy Pro~lem ·in 24 and 32K: PIP has been corrected
to properly copy tapes· in H mode without false reports pf
read-compare errors in 24 and '32K.
·

File Closing Problem~ PIP has been corrected to close files
after copy (H mode)
operations to ..'prevent the IOPS 17 (too
many files referenced) after several copy operations, each
refer~ncing different .DAT slots.

'~ '' ,1

ADDITIONAL FEATURES

Tran~fer, Copy, and List Directory commands may be used
with 56 file DECtapes •

. WARNING:
. '.,

24 file tapes with earlier versions of the PDP-9 Advanced
may-.still .be used, provided they contain· no more·
than 24 files. To convert to the new 56 fil1 format.' use
the PIP ~· corrunand with switch N or S ·! Do ''not use the
H switch.
·
'
Soft~are·

To distinguish 24 file tapes from 56 ~ile tapes:
,.

A 24 file tape indicates .4 system blocks when the
directory is listed. ·
A 56 file tape indicates 10 or more.

•

~·J

The New Directory (N) conunand or switch will now cause
· 8·blocks to be reserved as file bit map blocks (required
to implement the DECtape 56 file capacity). These blocks.
are: the directory (block 100 8 ) .and 7 £ile bit map blocks
(718' through 77 a> •
'
.

~ switch: as a function of installation core size,
(determined at system g~neration time), the~ switch
refreshes a directory~ :~~serving tQ area blocks as well
as basic system blocks for directory and file bit maps.
For example, in an 8K system, ·3?ln additional blocks
(lOlR - 140 8 ) are specified as occupied in the directory
(block 100 8 ) •
-·
·

S is now a permissible ·switch (the only one) in a Newdir · .......
{N) command.
Whereas,
.. N DT2 'i).,
reseryes only directory and file bit map blocks,
N

DT2

(S) ~

additionally reserves ~Q area blocks. S remains permissible
wherever else .it is specified in the PIP manual. However,
S and N are mutually exclusive when they both are used as
switches.
·
'
(NOTE:
4.

S no longer copies a system tape.)

I/O device designations in the PIP9, command string may now
include a third letter, e.g.·, the letter "A" in the statement:
· "' ·
1

L TT]\<- DTBl

is acceptable to PIP-9.
5.

Fil~

name ·extensions SRt.and BIN may be omitted in the
Transfer (T) or Verify (V) corrunands if the appropriate
data mode switch (A or B) appears ..in. the command string,
e .g • I .
:£. DT2

(~) ~ DTl

FILE ~

effects a transfer of FILE SRC to D'tl12 "I ., (If ,;prog~?-~· -~~LE
(no exten·sion) exists on DTl, it will be: -tr~~~~~~Fed) ·.
V DTl FILE (A)

causes FILE SRC to be verified.
Conversely: if SRC or BIN appears as an extension in
the command.string (Tor V), data modes A or B (whichever
~pplies) will be assume4, e.g.,
T DT2 ~ DTl FILE SRC i).,

is the same as T DT2 {A)+- DTl FILE SRC ~
is the same as T DT2 (A)~ DTl FILE~

L. I

F and T are two J:?.ew switch options •

They may only be
used with the transfer command (T) and data mode A.

T(le T switch causes the deletion of trailing spaces in
an ASCII file. T, E, and C are mutually exclusive switches.
The F switch causes the insertion of _a form feed {FF) and
carriage return (CR) after every .EJECT or 56 10 lines if
no FF has been thus far encountered •

. 7.

A new switch (Q) has been added to delete sequence nurr~ers
from ASCII input lines.during' the Transfer conunand. The
switch is primarily intended for card conversion to some

other medium. Coiumns 73-80 are deleted leaving a 72 character line with a carriage return as the 73rd character.
The Q switch is legal only with A data mode in a Transfer
command. It may be combined with C (spaces to tabs) or
T (delete trailing spaces) •
8.

The internal logic of the Copy (C) commanq with H switch
specified (i.e., a direct DECtape copy in its entirety)
has been changed to use all of available core memory for
.a very much faster copy (approximately 5 minutes in 8K
and 3.5 minutes in 16K). The fastest possible copy is
executed by assigning "NONE" ·to all positive ·.DAT slots
except those needed for the DECtape prior to loading PIP
· for an H copy •

Use of Positive .DAT slots: PIP V7A has been improved in
its method of referencing .DAT slot assignments:
a.)

PIP now used .DAT slot-3 {alsways TTA) when
teletype I/O is requested thus obviating the
necessity of TTA assignment to the positive
side of the .DAT table and freeing up one
more slot for another device.

b.)

PIP no longer requires the exact unit # of a
multi-unit device in the positive .DAT table.
Provided a handler for the device is assigned,
PIP will set the unit # from the command string
into the .DAT table.
For example, suppose two slots were assigned to
DECtape, uriits 1 and 2. PIP V7A will allow
reference of any two DECtape units, not just
1 and ·2 as in past versions.

PATCH V3A
(Reference Addendum-Number 5 to PDP-9 Utility. Manual
DEC-9A-GUAB-D)
A.

.---CORRECTED" BUGS--.
L--·. -

Leading spaces are allowed in all.commands and no longer
cause an error.

Comments in some conunands were flagged as errors.
has been corrected.

This

Because of the way the READ com.~and has now been implemented,
a comment can only be used after both filename and extension
have been given.
B.

--ADDITIONAL FEATURES .

S~p.g;J.._~.::-Jtl-9~~-

Forms:

_Commands.· -·· --- --)B octnum~

>B+octnum~ '
)B-octnum~

The octal number specifies the block number:¢~ octnum......:11¢1 8 •
If ·the number is out of this range, the following error message
will be given:
ILLEGAL BLOCK ;!;f

B and B+ are equivalent and indicate that the block is to be
read in the forward direction. B- means read in reverse
direction. This distinction is necessary only for DECtape,
which has bidirectional recording. For the Disk all three
forms are equivalent.
The Block qommands are equivalent to specifying a system
program for patching. Once a block has been selected, List
and Read commands may ref er to locations
¢ ~ loc < 377 8

Any other number causes ADDRESS OUT OF R&~GE error. A spac~
and optional comment may follow the block number in the Block
coms.'11and s •

The READ command has been altered to allow DECtape or Disk
as the auxiliary input oevice (in addition to the paper tape
reader). This was done because MACRO can now assemble
Absolute Block Binary (.ABS) onto DECtape or Disk.
·.Forms:

)READ~
>READ f name i}.
>READ fname ext~

The first form is used when reading from paper tape (no file
name needed).
If the second form is used, the extension ABS
is assumed.
Only the first 6 characters in fnarne are used and
only the first 3 characters in ext are used. Each may contain
up to 9 characters.
1

---

If the file is not found on the input device, the following
error message may be given:
FILE NOT FOUND

3.. When in single-block mode, if a READ command is given, the

address range is from ¢ to 377 octal and must be as such on
the auxiliary device.

The error message
END OF MEDIUM
can no longer occur because end of medium cannot be detected
anymore. This is due to the change in the READ command which
now reads in dump mode.

CHAIN V2A
(Reference Addendum Number 6 to PDP-9 Utility.Manual
DEC-9A-GUAB-D)
A.

CORRECTED BUGS. . - --· --·-··1~-----Chain ··numbers

larger than 9 are now interpreted properly.
"'·---

.Af>D!T:tONAL . FEATURES·-:·!_

Common blocks and blockdata subprograms can now overlap
memory banJ<.s (see Linking Loader V3A).

MACRO programs may refer to FORTRAN program cornm.on bloc}rn
through the use of global symbols (see write-up on Linking
Loader V2A). This feature will worl< only if the MACRO and
FORTRAN programs are part of the same chain. The only
exception is blank couu~on (.XX), which cannot be so
referenced.

MONITOR V4B SYSTEM PROGRAM PATCHES

KM-9 V4B:
6234
16312
11122
11123
11124
13257
326
426
427
43%
431
432
433
434
435
51,0'
511
5316
6413
6414
6415

4%772%
1321
64,0'14,0'
. 554,0'67
576361
233537
74,0',0',0',0'
76,0',0'56
76,0'111
76,0'117
76,0'12,0'
76,0'123
76,0',0'4,0'
2,0',0'24,0'
62,0'422
4,0',0'511
62%24,0'
4,0'344

. 41372%
25,0'
649$24%
: 5549$71
57636,0'
! 75%.0'.0'.0'
~ 6,0',0'434
76,0'111
' 76,0'117
76,0'12,0'
: 76,0'123
. 2,0',0'24,0'
' 629$422
2,0',0'511
~,0',0'377

11,0'262
553466

' 62,0'24,0'
25,0'
: 6,0'6413
: . 4,0'344
4Ji1'326
6,0'5317

316,0'21
6,0',0'11

' 316,0'41
: 6137,0'7

~51,0'34

(New Values)

.SGEN V3B:

145,0',0'
13744
.SYSLD:

17363
17364
17365
17A44
17445
17446
17353
17354
17355

3642
764,0',0'5
3643
5,0'57
765222
5,0'6,0'
7777
77,0'142
1,0'.0'.0' .0'

36,0'2
i 763745.

3 6,0'3
5,0'17
765162
5,0'2,0'
7737
77,0'1~2

77 4,0'
___. , )

PATCH V3B:

16424
16567
1657,0'
·166,0'3
166,0'4
16561
16562

340432
3642
764005
5057
765222
7777
770142

341,0'32
36,0'2
763745
5,0'17
765162
7737
77~1,0'2

Additions to the PDP-9 FORTRAN IV Subroutine Library
FILE
File Commands
1. · Class:

External Subroutine

To provide the device-independent .IOPS commands
SEEK, ENTER, CLOSE, FSTAT, RENAM, and DLETE. These
conunands are used to allow the FORTRAN IV Object
Time System to coromunic~te with .IOPS file-oriented
deyices. ·

. Purpose:

SEEK finds and opens a named input file.

ENTER initiates and opens a named output file.

CLOSE terminates an input or an output file and
must be used if SEEK or ENTER has been used.

FSTAT checks for the presence of a ~:ame4. tJ:J.e •

.e.

RENAM checks for the presence of a file and
renames it if found.

DLETE checks for the presence of a file and
deletes it if found.
(NOTE: BACKSPACE, REWIND, and ENDFILE commands
should never be used with a device that is
operating in. the f.ile-oriented mode using the
above subroutines.}

Calling Sequences:
a.

To seek a named file:
CALL SEEK (N',A)
where N=device number
A=array name containing the 9-character
5/7 ASCII file name. and ext~nsion.
The file array has the following format for
the named file FILNAM EXT:
DIMENSION FILEN (2)
DATA FILEN(l) ,FILEN(2)/5HFILNA,4HMEXT/
To use this named file for input on .DAT slot 1:
. CALL SEEK (l,FILEN)

.----- ·------

·~

•

'· •

-·~----·-··-·---

----:----

- ···----- ---- - -·-· --,
..

•

\....-------···t._ .. __ - - - - - - - - - - - - - - - - - - - - ·

To enter a named file:
CALL ENTER (N ,A)
where N and A are the same as for SEEK.

To ·Close a named file:
CALL CLOSE (N)
where N is the same as for SEEK.

d., To check for t~e presence of a named. file:

CALL FSTAT (N, A, I)
where N and A are the same as for SEEK and
I=-1 (.FALSE.) if file not found and I=O
(.TRUE.) if file found and action.complete.
e.

To rename a file A and call it B:
CALL RENAM (N, A, B, I)
where N, A(B is the same as A), and I are the
same as for FSTAT.

To delete a named file:
CALL DLETE (N, A,-I)
where N, A, and I are the same as for FSTAT.

External Calls:
FIOPS I .DA, .ss I
.RENAM, .DLETE

5. ·Size:

.SEEK., .ENTER, .CLOSE I

.FSTAT I

322 octal locations

Error Conditions:
.OTS Error 10 if I/O device number is illegal
.IOPS Error 13 if file not found on SEEK
.IOPS Error 14-if directory full on ENTER

PDP-9

FORTRAN IV

TIME

Clock Handling

Class:

External Subroutine

Purpose:

To provide the ability to record elapsed time in
minutes and seconds

Calling sequence:
CALL TIME {IMIN,, ISEC, IOFF)
This call causes the clock to be started and the
elapsed time recorded as minutes and seconds in
IMIN and ISEC. To stop the clock, set IOFF to
non-zero.
Only one call to TIME or TIME1% can be active at
_any.. p~~n~__ _!p th~. user - program.
-

---~

...

Example:

CALL TIME

(IM, IS, IOF}

IOF=l·
WRITE (4,1%$) IM, IS
This sequence will cause the time taken to, execute
the code at A to. be output.
4~

External Calls:
.DA,

Size:

Error.Conditions:

.TIMER

52 octql locations

None

PDP-9'FORTRAN IV
Clock Handling

TIME1%

Class:

External Subroutine

Purpose:

To provide the ability to record elapsed time in
minutes, second~, and tenths of seconds.

Calling Sequence:

CALL TIME1%

(IMIN, ISEC, ISEC1%, IOFF)

This call causes the clock to be started and the
elapsed time to be recorded as minutes, seconds,
and tenths of seconds in IMIN, ISEC, and ISECl~
respectively. To stop the clock, set IOFF to
non-zero. Only one call at TIME1% or TIME can
be active at any point in the user program.
Example:_

See TIME

External Calls:
.DA, .TIMER

Size:

Error conditions:

66 octal locat{ons
I.

None

PDP-9 FORTRAN IV
AdjustableDimensioni

IDJl
1.

Class:

External Subroutine

Purpose:

To provide dimension adjustmerit on a one
dimension array

Calling Sequence:
DIMENSION B{l)

CALL ADJl

{B ,A)

where B is the array whose storage begins at A.
A must be array element {such as C(2%%)) with
sufficient storage beyond A to a~low for all the
entries of array B. The dimensions or type of
array A do not have to agree with array B.
B cannot be a dummy argument in a·subroutine but
A can be a dummy argument.
Example:

DIMENSION A(3~%), B(l), C{l)

CALL ADJl (B,A(l%1))
CALL ADJl {C,A(2%1))

.•

After the.calls to ADJl, the arrays Band C may b~
referenced as if they had been dimensioned as {l~~
each. No further calls to ADJl have to be made.
4.

External calls:
.DA

Size:

~rror

17 octal locations

conditions:
None

PDP-9 FORTRAN IV
Adjustable Dimensionin

IDJ2
L

Class:

External Subroutine

Purpose:

To provide dimension adjustment for a two dimensio
array

Calling Sequence:
DIMENSION B(l,l)
~

CALL ADJ2 (B,A,NR)
where NR is the number of rows to appear in array
See ADJl for comments on B and A.
Example:

DIMENSION A(3¢¢), B(l,l), C(l,1)

CALL ADJ2(B,A(l),1¢)
CALL ADJ2(C,A(l¢1),2¢)

After the calls to ADJ2, the arrays B and C may be
referenced as if they had been dimensioned (1¢,1¢)
and (2¢,1¢) respectively. No further calls to ADJ
have to be made.
~

External Calls:
DA, .AD.

5 •·

Size:

. 6.

Error conditions:

36 octal locations

None

PDP-9 FORTEAN IV
Adjustable Dimensioning

ADJ3

1. Class:

External Subroutine

Purpose:

To provide dimension adjustment for a
three dimension array

Calling Sequence:.
DIMENSION .B(l,1,1)
CALL ADJ3
(B,A,MR,NC)
Where NR and NC are the number of rows and
columns respectively to appear in array B.
·see ADJl for coITu~ents on Band A.
1

~·

Example:

See ADJl and ADJ2

External Calls:

.DA, .AD

5. Size:

41 octal locations

6. Error Conditions:
None