Digital PDFs

DEC-12-ZR7B-D

December 1970

124 pages

Original

6.9MB

Document:	dec-12-zr7b-d
Order Number:	DEC-12-ZR7B-D
Revision:
Pages:	124
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-12-zr7/dec-12-zr7b-d.pdf

OCR Text

IDENTIFICATION

Product Code:

DEC-12-ZR7B--D

Product Name:

DIAL-MS Editor Program
Description

Date Created:

December

Maintainer

Software Services

1970

LAP6-DIAL is an editor, filing system and assembler for use
with the PDP~12 computer. The editor and filing portions are
derived from the basic LINC program LAPS^ by Mary Allen Wilkes
of Washington University.
The assembly portion is derived

from several programs used the the PDP-8 computer including
PAL-D^.
The Digital Equipment Corporation wishes to express to the
author, Mary Allen Wilkes (Clark), and the Computer Research
Laboratory of Washington University, St. Louis, Missouri, its

appreciation for the development set forth in LAP6 as well as
its thanks for permission to use parts of the LAP6 program.

M. A. Wilkes, LAP 6 Handbook , Computer Research Laboratory Tech.
Rep. No. 2, Washington University, St. Louis, May 1, 1967.

PAL-D Assembler Programmer's Reference Manual DEC-D8-ASAA-D.

1.0

PROGRAM OVERVIEW

1. 1

Introduction

The Editor is that LAP6-DIAL program that allows the user to develop,
The Editor also has the second-

modify and edit a source program.

ary function of interpreting monitor commands and dispatching

calls to the rest of the DIAL system.

On the scope, the Editor

displays line numbers as well as an editing cursor in the form
of an inverted T.

The DIAL-MS Editor is a combination of the DIAL-V2 Editor (DEC12-ZW7ft-D)

and the DIAL-V2 program Add Program (DEC-12-ZW8f^-D)

(Add Program is merely a special overlay for the Editor and is

discussed in Section 2.0.)

The DIAL-MS Editor is logically and

functionally the same as its DIAL-V2 counterpart, with the exception that all I/O is done through the DIAL-MS routines.

All

commands which reference any device, except the Working Area,

have been replaced by the identical function in calls to the
DIAL-MS routines; those that reference the Working Area (such
as the string slides, etc.) have been left intact.

However,

they are preceded by a subroutine call to the routine GOODY

which looks at what follows the siibroutine call and does

logical transformation to the equivalent DIAL-MS call.

1.2

SYSTEM PARAMETERS

The system parameters are those Editor symbols that are used
in the Editor and/or other system programs that define the

nature and configuration of the DIAL system.
are listed and explained below.

These parameters

APTBLK

The first tape block of Add Program*

ASTBLK

The first tape block of the Assembler
that is read in by the Editor.

The first core location of the DSC grid
table.

The first core location of the Editor's
buffer block input buffer.

BLKST

The core location that holds the first
tape block of a source program for
assembly

B12VAL

Pointer to the core locations in the Editor's
pointer tape block that hold the knob to
switches patch for a PDP-12B.

The first core location of the Editor's continuation block input buffer.

DELTA

The value that determines the maximum number
of pointers that can be stored in the Editor's
pointer tape block.

DIALST

The first tape block of the DIAL System and
also the first tape block of the Editor.

DIALU

The tape unit that holds the resident DIAL
System.

DXTBLK

The first tape block of Display Index.

The first core location of the control table.

D6VAL

The pointer to the first core location in the
Editor's pointer tape block where the control
table is saved.

EXTMTP

The value that determines the Editor's extended
tape operations.

Pointer to the Editor's monitor command parameter table.

FCSA

The core location in Filecoms which the Editor
references to execute calls to Filecoms.

FCTBLK

The first tape block of Filecoms.

FILE

The first tape block above the Working Area
that is available for file storage.

FREE

The first tape block of the free area and
the first tape block below the Working Area
that is available for file storage.

INDEX

The first tape block of the index.

KBDOPR

The first core location of the Editor's keyboard input conversion routines.

LNHC

The initial horizontal coordinate for display
of line numbers in the scope routines.

LOTBLK

The first tape block of the Loader.

MAXNUM

The maximum number of allowable characters
on a line.

MCHC

The initial horizontal coordinate for display of a monitor command in the scope routines.

MCVC

The vertical coordinate for display of a
monitor command.

MKHC

The horizontal coordinate, for display of
the marker.

PTADDR

The pointer to the core locations in the Editor's
pointer tape block that hold the addresses of
all the Editor's pointers.

PTBLK

The first tape block of the Editor's pointer
tape block.

PTEXIT

The pointer to the core locations in the
Editor's pointer tape block that hold the
values of the Editor^ pointer upon
system exit.

PTINIT

The pointer to the core locations in the Editor's
pointer tape block that hold the initialization
values for the Editor's pointers.

PT12B

The pointer to the core locations in the
Editor where the patch for a PDP-12B will
go.

PXTBLK

The first tape block of Print Index.

SBTBLK

The first tape block of Save Binary.

SPCHAR

The first core location of the Editor's
special character table.

SPFCNS

The value that determines the Editor's
special functions whenever an ESF is
executed.

TXTHC

The initial horizontal coordinate for display of text in the scope subroutines,

UNITNO

The core location relative to which arguments are stored for the assembler.

First tape block of Working Area.

WAEND

Last tape block of the Working Area.

WAUNIT

The tape unit that contains the Working Area.

First core location of the Editor's Working
block input buffer.

The last core location of the monitor com-

mand table.

1. 3

The first core location of the monitor command table.

SYMBOLIC CHARACTER CODES

A number of DIAL characters are symbolically defined in the
Editor.

Any change in the DIAL character code itself or in

the structure of tables which use the symbolic codes would

require a redefinition of the following symbols.

SYMBOL

VALUE

DIAL CHAR

DIAL CODE

Alt Mode

4036

AMI

3600

Alt Mode

4036

COMA

COMAl

5400

Carriage Return

CRl

4300

Carriage Return

EOF

0000

End of File

EOFl

0000

End of File

SYMBOL

VALUE

DIAL CHAR

6100

6200

KOM

KOMI

5700

Line -Feed

LF 1

3700

Line -Feed

PCODE

2000

1400

"D T

KJLi

1400

Rubout

4037

ROl

3700

Rubout

4037

Space

SPl

4000

Space

Tab

TBI

4700

Tab

1.4

DIAL CODE

THE EDITOR'S TABLES

The Editor utilizes seven different tables which are ex-

plained below:

1. 4 1

Control Table
The control table is located in LDF 1 and covers
locations D6-2 (2235) through E6-1 (2370) inclusive,
the function of the table is to facilitate those
routines that execute locate requests. The first
two locations ot the table (D6-~l, D6~2) must always
have zeroes in them. The rest of the control table
is used for storing line numbers.
The table sets
up a one-to-one correspondence between line numbers
and tape blocks used in the Working Area. The
first core location of the control table (D6) contains the line number of the last line of input
in the first tape block of the Working Area.
The
second location in the table contains the line
number of the last line of input on the second tape
block of the Working Area, Etc. For example, if
lines 1-54 filled up the first tape block of the
Working Area, then location D6 (2235) would contain 54. The locate routines use the information
in the control table for locating line numbers
and finding appropriate tape blocks.

1.4.2

Grid Table
The grid table is located in LDF 1 at locations
A6 (2001) through locations Z6-1 (2200) inclusive
Every
and is used for character display (DSC)
dxsplayable DIAL character is in the grid table.
Each DIAL character is allotted two contiguous
locations in the table which is exactly the number
needed to display a character. For each character
the two core locations contain the bit configuration
required to "reproduce" it on the scope. The order
in which the characters appear in the table is important because the scope routines access these
grid configurations by an algorithm that relates
the DIAL character codes to locations in the table.
The marker appears in the first two locations, although this is not a rigid requirement. The grid
? come next
configurations for A, B, C,
by core location pairs and in ascending DIAL code
Note that the DIAL codes for these characorder.
ters are 1, 2, 3,
75, 76, 77 respectively.
,
If the DIAL code for any character is changed then
that character must be repositioned in the grid
table.
.

1.4.3

Keyboard Input Conversion Table

The keyboard input conversion table runs from locations TABLE (7517) through CHAR (7534) inclusive.
It holds the codes for all the special and illegal
DIAL characters. The keyboard input conversion
routine scans this table every time it processes a
character from the keyboard. Every incoming character is stored in the next to last and last locations
of the table (the tags ENDTAB and CHAR)
If a given
character is in the table at location P, the following format applies.
The high order four bits of
location P contain a micro address that is used to
generate a jump instruction to a routine that is
appropriate to that character. The low order eight
bits of location P contain the ASCII for the given
character.
The low order six bits of location P+1
contain the DIAL code for the given character. Except for those characters that are special, the low
order six bits of any ASCII character is the DIAL
code for that character,
A match between the incoming character and the keyboard table will always
occur because the incoming character is always stored
at the end of the table.
Thus, if a special character is not selected, a "normal" one is selected by
default.
The special characters in the table are
tab, apostrophe, line feed, left arrow, carriage
return, number sign, ASR33 ALT MODE, KSR 35 ALT
MODE, RUBOUT, LEFT ARROW, ESCAPE ALT MODE, and at
sign/ in that order.
Consider the first two locations
of the table:
.

TABLE, ljg00 + 211

0400 +

2 47

/TAB

/APOSTROPHE

The high order four bits is the micro address for a
tab, the low order 8 bits is the ASCII for tab and
the low order six bits of the next word is the DIAL
code for tab (47)

1.4.4

Monitor Coinmand Table
The monitor command table is located at locations Z6
(2201) through Y6 (2234) inclusive.
The monitor command table has the following format:
X1X2
JMP DOX1X2

X3X^
JMP DOXaXif

^m^m+
JMP DOX^X^^i

DIAL code for a given command and
^i^i+i
JMP DOX^X^^^ Is a call to.a subroutine that will
handle
the command X.X.
In particular,
XjX2= 0120, A=01y and P=20,^ ^"^^ the DIAL codes for
A and P. The routines that decode a monitor command
load the user requested command pair and the Corresponding DIAL code, say Y2 into the AC. The table is
then scanned for equality with the AC.
If a match is
found at location P of the table, then the jump instruction at location P+1 of the table is executed.
•

1.4,5

Special Character Table
The special character table contains the DIAL codes
for all those characters that can indicate a special
command to the Editor, Those characters are tab,
linefeed, ALT MODE, carriage return, comment, comma,
rubout, 1, 2, Q, W, R, L, D.
The special character
table is utilized by the DIAL code interpretive
routines which are called prior to a character being
input to the Editor's buffers. The special character
table is compared by half words to every incoming
character. For a given situation, only the appropriate portion of the special characteur table is

compared to the incoming character.
If an incoming
character matches one in the special character tcible,
then the routine that will implement the request of
the special character is called
The special chcoracter table is always checked for rubout, but the
characters 1, 2, Q, W, which are also in the table,
are only checked for if the previously typed key was
an ALT MODE and input was to a fresh line.
•

Monitor Command Parameter Table

1.4«6

The monitor command parameter table runs from location E6 (2371) to location E6-1-6 (2377) inclusive.
Whenever a monitor command is issued^ the arguments
accompanying the command, if any, are stored in the
parameter table* Argxments for a command are any
legal combination of the following:
line numbers,
file name, tape block number, and tape unit number.
The monitor command parameter table has the following structure:

LOCATION

CONTENTS

first line number or tape block number

E6+1

second line number

E6+2 - E6+5

file name

E6+6

tape vinit nvmiber

The MC parameter table also holds at locations E6 and
E6+1 the load and go arguments during a Save Binary
command (see DEC-12-2W5A-D)

1.4.7

Tab Table
The tab table runs from locations FLDTAB(6774) to
ENDTB(7000) inclusive.
The table is used by the scope
routines to display tabs as a complement of eight
scope spaces; it is merely a table of horizontal
coordinates with each succeeding entry eight scope

spaces larger than the previous one. Whenever a tab
is encountered during display, beta 1 holds the
horizontal coordinates of the last displayed character.
At this point the table is scanned to find
the smallest entry in the table that is larger than
the current horizontal coordinate; beta 1 is then
reset to that value. The table is defined relative
to the symbolic tags TABSET (the length of a tab)
and TXTHC (the initial horizontal coordinate of the
first character on a line) . A scope line can be
thought of as divided into three fields: the tag
field, the instruction field, and the comment field.
The tag field is the first eight scope spaces, the
instruction field is the next sixteen and the comment
field is the last sixteen (a scope line is forty scope
The first entry in the
spaces or characters long)
tab table is the horizontal coordinate for the start
of the instruction field; the next entry is the coordinate
for the middle of the instruction field; the third
entry is the coordinate for the start of the comment
field; the fourth entry is the coordinate for the
middle of the comment field; and the last entry is
The last entry is used as a terminator to
zero.
indicate that a tab extends beyond a scope line and
routines must be called to modify the vertical as
well as the horizontal coordinate.
.

1. 5

MONITOR COMMAND DECODE ROUTINES
Whenever the carriage return key is typed, the Editor sets

a pointer, beta 7, to the first character of the current line,

then checks that character for a line feed code (37)

If the char-

acter is a line feed, the current line is a monitor command re-

quest and the Editor calls routines to decode it-

The first

routine it calls dispositions the type of monitor command (AS,
AP, etc.).

The routine looks at the second character of the

command; if it is a number code for 0-7 the locate request

routines are called.

If the second character is not an octal

numeric code and if the command has a legitimate format, the

second and third characters correspond to a word in the

monitor command table (see Monitor Command Table)

If a monitor command is not a locate,

the second and third

characters of the current line are loaded into the Accumulator.

A pointer is set to the start of the monitor com-

mand table and a counter is set to its length.

The table

is scanned one word at a time and checked for equality

with the AC.

As a matter of table structure, the jump

instructions are compared to the AC, but they are of the
form 6XXX or 7XXX and would never match a legitimate monitor

command which is of the form IXXX, 2XXX,or 3XXX.

If the

table is scanned before a match is found, the command is
illegal; it is deleted and control is returned to the

display routines.

If a match is found,, the word subsequent

to the one in the table that matched is loaded into the AC,

then stored at p+1; i.e., the corresponding jump instruction is planted.

All monitor commands, except EX, CL, PI, 2E and locate,

require decoding of the command string - characters
5,

—

up to carriage return of the monitor command - and

setting up of the monitor parameter table prior to execution.
The monitor parameter table is seven words long starting at
PDP-8 location 2371

(E6+20)2f0) .

The first two words are for

line numbers; the next four are used for the name; and the

last one is used for the unit number.

The command string

decode routines initially set the words for line and unit
numbers to zero, and the words for name to 7777

•

A check

is first made for numeric codes; if they exist, they are

converted to a number and stored as the first line number
in the monitor command parameter table.

If numeric codes

in the command string are not followed by a comma, the

corresponding line number word in the monitor command parameter table is reset to

otherwise the command string is

checked and decoded for the second line number*

After a

second comma is encountered or a no comma condition as

described above, pointers are set for the name sector of
the command string and monitor command parameter table.

Characters are transferred from the command string to the
name sector of the parameter table.

If, before a comma

is encountered, a carriage return code is detected or the

number of characters transferred exceeds eight, the command
string is improperly formatted.

The command is then deleted

from the WMBLK and control is returned to the display routines.

When a comma is encountered, the pointer to the monitor command parameter table is set to the unit number word.

The

unit number is decoded from the command string and put in
the parameter table.

A check is then made to see if the

unit number is in the range

0-7.

If it is, the decoding

routine returns to P+2; otherwise, the command is deleted

from the WMBLK and control is returned to the display
routines
The routine to convert codes to numbers accesses
the command string via the pointer beta 6.

codes in the command string sequentially.

It converts

Each code

is converted to a 3-bit octal digit and packed in one

word (T4)

The routine exits when the first non -octal

numeric code in the command string is encountered.
Arguments of more than four octal digits will be improperly
converted, but no error condition will be detected.
1-6

EDITOR POINTER TAPE BLOCK
Whenever the Editor is fired up from a DIAL tape,

initialized by the command line feed CL, or is exited
from by a monitor command, the Editor's pointers are read
from or written onto the Editor's pointer tape block (320).

When the pointer tape block is in core, it resides in

memory block five of LINC data field
is divided into six sectors:

pointer addresses

pointer initialization values (PTINIT)
values (PTEXIT)

(2400-2777); it

(PTADDR)

pointer exit

pointer PDP-12-B addresses (PT12B)

PDP-12-B values (B12VAL)

;

and control table values (D6VAL)

The PTADDR sector holds the addresses of all the Editor's

pointers; they are sprinkled throughout segment two.

The

PTINIT sector holds the values that the Editor's pointers

are to be set to upon initialization.

The PTEXIT sector

holds the values of the Editor's pointers at the time of
the last exit of the Editor.

The PT12B sector holds the

addresses of the Editor's knob subroutines.

The B12VAL

sector holds the patch to the knob subroutines to make

them run off the right and left switches for DIAL users

with a PDP-12-B,

The D6VAL sector holds the control

table values upon exit from the Editor.

The primary

purpose of the pointer tape block is to preserve the
Editor's pointers upon exit without generating a core
image of the Editor on the DIAL Tape.

INPUT BUFFERS

1.7

The Editor's input buffers take up memory blocks
5,

and

of LDF

and are named respectively as the

buffer memory block, working memory block, and continu-

ation memory block.

All editing and display is done

with respect to these buffers.

Whenever a given section

of the Working Area is requested, by a locate for instance,

the Editor determines where in the Working Area the

requested source is located and reads the pertinent blocks
into the input buffers and displays them on the scope.
The last scope character is defined as the last logical

character in the working memory block (unless the working
memory block is empty, in which case the last scope

character is in the last half-word of the buffer MBLK)
Between the last logical character of the working MBLK
(depending upon the state of the art, the last logical

character can be anywhere in the working MBLK) and the
first logical character of the continuation MBLK, there
is a gap or void

tate editing.

(LAP-6 calls it a playground) to facili-

The first logical character of the con-

tinuation MBLK is the first character that would be

displayed on the scope if an ALT MODE

Buffer MBLK

Working MBLK

were requested.

Continuation MBLK

Line
Tape
BWD
TBLKs

Line
Tape
FWD
TBLKs

Last
Scope
Void
Character
(LN 100)

Figure ^

First Character
LN

ijari

The input buffers can be thought of as an extension
in core of the Working Area.

The source should be considered

as continuous from the start of the Working Area

(TBLK37j2f)

up to the last logical character of the working MBLK and from
the first logical character of the continuation block to
the end of the source.

The working MBLK and buffer MBLK are

used for scope display and editing.

The continuation MBLK

is used for locate and ALT MODE requests only.

If the

numbers of characters in the scope display exceed the number
of characters in the working MBLK, the display is continued

back into the buffer MBLK

The scope display routines

determine the characters to be displayed by starting from
the last logical character in the working MBLK and counting

back a predetermined number of characters.

Since editing

or input can be performed relative to any scope character, it

follows that all editing is reflected by changes in the buffer

MBLK or working MBLK.

Addition of characters compresses the void

between the working MBLK and continuation MBLK by increasing the

number of characters in the buffer MBLK working MBLK area.
tion of characters similarly expands the void area.

Whenever

the working MBLK becomes full, it is written out on tape

along with the buffer MBLK and pointers are reset for a
fresh working MBLK.

The continuation MBLK is not affected.

Whenever the working MBLK becomes empty, the buffer MBLK is

Dele-

(core)

transferred into the working MBLK and a backward

TBLK (Fig. a) is read into the buffer MBLK.
The void or playground allows modification of a source

without constant packing.

Whenever a source id modified,

the input buffers are no longer an image of their corres-

ponding TBLKs in the Working Area and the tape is said to
be in a not o.k. status.

The only way to make the tape o.k.

is to pack the Working Area.

The Working Area as a matter

of general usage is not packed but is updated by writing

out the input buffers at appropriate times.

When the tape

is not o.k. the input buffers always contain information

that must go out on tape sooner or later.

As long as there

is a void in the input buffers, the Working Area need only

be updated TBLK by TBLK as editing proceeds.

Once the' source

is expanded by 512 characters the playground is full and

there is no more room in the input buffers for editing; the
source must be packed.
The continuation MBLK is used during locate requests

primarily to minimize tape transfer.

When a locate forward

is requested, a transfer is made character by character and

line by line from the continuation MBLK to the working MBLK

until the proper line is located.

If the continuation block

is emptied during the transfer, the next forward tape block

of the Working Area is read into the continuation MBLK and

For locating backwards, the same

the transfer continues-

logic is employed but in this case the transfer is from

Locate requests

the working MBLK to the continuation MBLK.

require tape transfers only when the continuation or working MBLKs become full or empty.

Subroutine GOODY is called whenever the Editor wants
to read or write anything from the Working Area and is always

called from segment

LIF
DJR

The general call is:

LDA I
JMP
JMP
RDC
xxxx
YYYY

.+2

GOODY

GOODY resides in segment 3*
DJR is enabled to save zeroThe AC contains a JMP to the
tape instruction to be executed,
Call GOODY.
The desired tape operation (read
or write) and the block number^
GOODY will return here with all
7*s in the AC,

GOODY looks at the block number and determines where the

operation is to occur (the range is

Next, it decodes

20j2fJ2f-5777) .

the block number into a DIAL-MS block number and calls DIAL-MS
to perform the operation.

1.8

GOODY then returns to the caller.

THE EDITOR'S POINTERS
The following is a description of the Editor's key

pointers.

Beta registers 2-6 of segment

are crucial and must

be left entirely to the Editor.
A.

BETA 2 - holds the half word address in the
input buffers of the last scope character.
If the last two characters in the scope display were AB, for instance, and B2 held the
value 7010 then the contents of location
The
3010 would be 0102 (DIAL Code for AB)
only time that B2 does not point to a HALF
word address in the working MBLK is when that
MBLK is empty; then it holds the address of
the last half word of the buffer MBLK (6777).
Beta 2 is used in all editing and LINCtape
routines that affect the working MBLK and there
are not too many that do not affect this MBLK.
.

BETA 3 - points to the half word address of
the first character on the current line.
The
first character on the current line may be
anywhere in the buffer or working MBLK. Beta
3 is used after a carriage return to determine
if a monitor command has been requested and to
set pointers to the monitor coramai.d if it was
requested. Beta 3 is also used to determine
whether editing is occurring above or below
the current line.
All input and a number of
LINCtape routines address this beta register.

BETA 4

BETA 5 - points to the control table. Any
access to the control table during locate
requests, for instance, go through beta 5.

BETA 6

- points to the first logical character
in the continuation memory block.
It is utilized during the execution of ALT MODE and
locate requests and for storing end of file
during an exit.

- during input beta 6 is used as a counter
for the number of characters on the current line.
A carriage return at the end of the current line
would, for example, cause beta 6 to be set to the
value MAXNUM (the maximum number of characters
allowable on a line). When beta 6 goes to 7777,
a carriage return is automatically inserted on
the current line.
During execution of a monitor
command, beta 6 of segment 3 is used as a pointer
to the command.

{

The following symbols in segments two and three define core

locations that are also crucial to the Editor.

BBTBLK -

the core location in segment 2 that holds the
TBLK in the Working Area that corresponds to
the buffer MBLK.
The contents of this location
always has the form 5\XXX.

CBTBLK -

the core location in segment 2 that holds the
TBLK in the Working Area that corresponds to
the continuation MBLK.
Its contents are of
the form 7 \ XXX.

CURLN

the core location in segment 2 whose contents
hold the current line nuit±>er.

CURPTR -

the core location in segment 3 that points to
the cursor character in the display routines.
Each character that is displayed has its address compared with CURPTR. When a match occurs, the cursor is displayed.

CURPT2

the core location in segment 2 that points to
the cursor character for the edit routines (it
differs from CURPTR by one-half word)
Beta 2
and CURPT2 are the Editor's most active pointers.
All editing, input, and most LINCtape routines
reference this pointer.

location in segment 3 that points to
the first character in the scope display and
is used by the scope display.

FIRSWD

- the core

MAXBLK

MAXLN

- the

TBLKCB

- a core

TOPPTR

- located in segment 2, TOPPTR is identical to
FIRSWD but is used by the editing routines as
a boundary value

WBTBLK

the core location in segment 2 that holds the
largest tape block used in the Working Area.

core location in segment 2 that holds the
largest line of the source in the Working Area.

location in segment 2 which is conceptuCBTBLK is used
ally identical to CBTBLK above.
during read instructions and TBLKCB is used
during write instructions.

the core location in segment 2 that holds the
tape block in the Working Area that corresponds
to the working MBLK.

ADD PROGRAM

2.0

Add Program is used to add a program to the Working Area
starting at the current line number.

A program may be

retrieved from the file area by name from any unit or
by block number from any unit and added to the Working
Area.

Line nvimber arguments may be specified provided

that the Add Program is by name; note that Add Program

assumes the line number arguments are in ascending order.

The manner in which a program is added to the Editor is

very similar to the manner in which the Editor accepts
input from the keyboard.

The only real difference is that

the DIAL code interpretive subroutines are not utilized

during Add Program because no special characters are
being input.

When Add Program is called, it determines the first tape
block of the source.

All necessary information for the

request is stored in the monitor command parameter table
at locations E6

(2371)

through E6 +

Add Program first

looks at the name sector of the parameter table (E6 +

-E6

+5).

If the left half of E6 + 2 is 77/then the request

is by block number.

mark (DIAL code for

No file name should begin with question
? =

77)

because Add Program will never

be able to retrieve it by name.

If a name has been requested. Add Program gsts the unit

number at E6

-f

tains an index.

and thenchecks to see if that unit con-

A unit is said to have an index if the

first ten words of the first tape block of the index area
(TBLK 346) contain 5757

{//)

If no index is found, Add

"*"For a full description of index structure,
see FILE COMMANDS, DEC-12-ZW9A-D.

Program displays "NO".

If the requested unit has an index,

each name in the index is compared with the requested name

until a match is found.

A no name match condition will

cause Add Program to display "NO".

If a match is found,

Add Program further checks to see if the name corresponds
to binary only and, if so, again displays "NO".

If the

name match has a source, then the starting tape block is

retrieved from the index and stored at location TPWD

(-5553) .

Add Program then checks the parameter table for line numIf location E6 = location E6 + 1, Add

ber arguments.

Program assumes that the entire source has been requested and
sets the line number arguments LNl and LN2 to

respectively.

and 7776

If E6 is not equal to E6 + 1, then LNl is
If .the Add Program

set equal to E6 and LN2 to E6 + 1.

request is by tape block number, the requested block is at
location E6 where it is retrieved by Add Program and stored
at location TPWD.

Once LNl and LN2 have been set, the add

program part of Add Program begins.

Add Program has its own input buffer, to wit, MBLK

segment

During an Add Program, all LINCtape read

instruction from the requested unit is executed by Add

Program and placed in its input buffer (to include the
index) ; however,

the Editor does all the LINCtape instruc-

tions affecting the 'forking Area.

The Add Program transfer is executed in the following manner.

Add Program gets the first TBLK from the requested

source, and ignores the

of every source.

which is at the start

If IiNl is not equal to 1, Add Program

calls the routine BYPASS which scans the requested source

always checking for end of file tape block by tape block

until LNl is equal to the current line of the requested
source.

When this occurs, control is turned over to the

subroutine F8 which transfers characters one at a time
from Add Program's input buffer to the Editor's input

buffers.

When the Add Program input buffer becomes empty.

Add Program gets the next TBLK.

After each character is

transferred, control is turned over to the Editor, at whic
time the Editor checks its input buffers to see if they
are full.

When the Editor's input buffers become full,

the Editor writes out on the Working Area, modifying its

various arguments and pointers, and returns control to Add

Program when it is finished.

Before Add Program passes a character to the Editor, it
checks for end of file, exiting and returning control to
the Editor upon finding it.

After Add Program passes a

character to the Editor it checks for carriage return.
If the character was not a carriage return,

the input

buffers are checked and transfer of the next character is
initiated.

If the character was a carriage return, Add

Program increments by one the Editor's arguments MAXLN
(the last line of the source), CURLN

of the source)

(the current line

and its own argument LNl,

LNl is then

compared for equality with LN2; if the condition is met,
the transfer is terminated.

It should be noted that if

LNl is greater than LN2, Add Program will add from LNl
to the end of file since equality with LN2 will never

occur

2.1

ENVIRONMENT

Add Program resides in tape block 321 and in locations
5400-5777 when in core.

Add Program is really an

Editor subroutine because it requires that the Editor's
LINCtape and input subroutines be resident with it and

must be in MBLKs zero and one of segment two.

3.0

FLOW DIAGRAM (Attached)

4.0

PROGRAM LISTING (Attached)

EDITOR MEMORY MAP
7777

GOODY
KNOB S.R.
SCOPE S.R.
MONITOR COMMAND S. R.
KBD INPUT CONVERSION S. R.
KBD INPUT CONVERSION TABLE
TAB TABLE
(21 FREE LOCATIONS)

6000
INITIALIZATION S.R.

INPUT BUFFER S. R.

AUTO FORMAT S. R.
DELETES, ALT MODES. AND LOCATE S.R.
LINC TAPE S. R.
SCOPE INITIALIZATION S. R.
(44 FREE LOCATIONS)

CONTINUATION MBLK

WORKING

MBLK

BUFFER

MBLK

4000

> INPUT BUFFERS

2400
MONITOR COMMAND PARAMETER TABLE
CONTROL TABLE
MONITOR c6mMAND TABLE
GRID TABLE
(1

FREE LOCATION)

2000
SPECIAL CHARACTER TABLE

AUTO FORMAT S. R.
DIAL CODE INTERPRETIVE S. R.
INITIALIZATION AND EXIT S.R.

(516 FREE LOCATIONS)

c EDITOR COLD

START

RDC IN DIAL -MS
I/O ROUHNES

READ IN REST OF
EDITOR

RESTORE PTRS

DISPLA

SET UP CALL TO
INTERPRET S.R.

0
(

INITIALIZE SCOPE

ARGUMENTS

NORMAL SCOPE

DO INITIAL CALL
TO SCOPE

SET ARGUMENTS

NO
READ KNOB 3
SET CURSOR

©NO^X^
*
^"V^

HAS KNOB^Sy^

7MO^V£D

yeS

*VV

RECALL TO
SCOPE

DISPLAY
LN NUM

YES

DSC CURSOR
1

YES

DISPLAY MARKER
|

YES

SET UP FOR
NEXT LINE

DSC CURSOR

INTERPRETIVE SUBROUTINE

SUB CHAR

}

|rETRIEVE 1 CHAR

YES

com-ENT

CO*AMA

RUB OUT

FOR MAT

ACR

ALT REQ

OlSPLA

)

com^ENT

FORMAT
COMMA

c
RETRIEVE

CHAR
RETRIEVE

CHAR

C
DO EDIT

REQUEST

DO ALT

MODE REQUEST

01 S PL A

)

DISPLA

REG CHAR

DISPLA

INSERT CHAR
OVER CURSOR

CHECK INPUT
BUFFERS AND
LING TAPE STATUS

ADJUST POINTERS|

DISPLA

MONITORS

—YES

INSERT CR

OVER CURSOR

CHECK INPUT

BUFFERS AND
LINC TAPE STATUS

YES

RESET POINTERS

DISPLA

CHK MC

KBDOPR

SAVE RTN JMP

READ

]

CHAR

GET CHAR
MATCH DIAL CODE
AND JMP INST
FROM TABLE

CjdL-J

gJs^D CiIlD C"^~^

(

ECHO C HAR ~|

CHAR

— AC

( "uiouT )

ILLEGAL

0-*AC

LN FEED

37-AC

ALT

43-^AC

[

RUBOUT

ECHO

4037

(ztt^^

aJi

3
/

— AC

( ALT ESCAPE ^

)

4036 — AC

1
1

jscHo crlnfeedI

rr^r^iiT)

4036 -AC
1

ECHO SPACE

47-AC

CHKMC

CLEAR XOB
AND SPEC FGNS

PUT SECOND CHAR
INAC0.5
PUT THIRD CHAR
INAC6-11

SET PTR TO START
OF MONITOR
COMMAND TABLE
SET CTR TO
LENGTH OF TABLE

^ois^

DELETE ILLEGAL

COMMAND FROM

WMBLK

YES ^X^ABLE^s.
SCANNED _>
?

JMP TO

PLANT MP FROM

COMMAND

MONITOR COMMAND
IN NEXT LOC

YES

^X^OES AC^\.
COMMAND IN
s^MONITOR TABLE
?

NO
SET PTR TO
NEXT WORD IN
MONITOR COMMAND
TABLE

MODIFY ROACHR
FOR EXTENDED RUB SEQUENCE
S.R

ROACHR

)

SAV RTN JMP
1

0
(

FIX UP ROACHR $.r|

ROACHR

DISPLA

(RUBOUT LEfA
OF CURSOR

MODIFY ROACHR
SR. FOR EXTENDED RUB SEQUENCE

SET POINTERS

RUBOUT CHAR
OVER CURSOR

YES
1

SET POINTERS
|

|fIX up

ROACHR SJ^
YES

DISPLA

^^r\^

^ TOS^CK
BACK

DECODE COMMANI
STRING

LNNUM,
0
LN NUM. UNIT NUM

777 7

NAME

IN MONITOR
PARAMETER TABLE

|rtn jmp—»betai|

SET PTRS TO START
OF CONWilAf© STRING

AND META
PARAMETER TABLE
V

AC =0

AC • NUMBER

MONITOR

IPARAMETER TABLE

SET PT R TO
NAME S€CTOR
OF MONITOR

PARAMETE:R TABLE

SET CTR TO MAX
NAME LENGTH +1

RTNP+2—BETA!

LOAD A CHAR
FROM COMMAND
STRING

YES

DELETE ILLEGAL

COMMAN D FROM
WMf3LK

OlSPLA

CONVERT COOES^
TO NUMBERS

—^

UNIT

NUM IN
RARAMETER TABLE

UNIT

NUMBER LEGALJ

MONITOR
PARAMETER
TABLE

LOAD A CHAR
FROM COMMAND
STRING

CONVERT COOES
TO NUMBERS
YES

CLR

STORE ANSWER

LOAD NEXT CHAR

FROM COMMAND
STRING

CONVERT CODE
TO NUMBER

ADO ANSWER

ANSWER

—^AC
1

ROR 3
1

RTN

SET THE DATA FIELD

TO SEGMENT TWO

SAVE THE RETURN JMP
WHICH IS IN THE AC

GET TViE DESIRED
TAPE OPERATION

READ

WRITE

GCLOC=CALL TO

GCLOC<ALL TO

READ ROUTINE

WRITE ROUTINE

CREATE CO RRECT CORE
ADDRESS 0 UT OF BITS
0-2 OF BLO CK

NUMBER

SAVE IN GCORE

i
INCREMENT RETURN
JMP TO POINT AFTER
BLOCK NUMBER

ADD IN *UDGE
f

FACTOR TO BRING
BLOCK N UMBER

DOWN nvlTO THE
DESIRED f^ANGE

RESET FUDGE FACTOR
TO -WA+1 (WORKING

AREA)

GCLOC
1

CALL DIAL-MS
ROUTINES TO PERFORM OPERATION

SET AC TO 7777
|

SET D.F. TO 1
SET D.F. TO 2

c ADD PROG 1

SET F LAG 10
INHBtT BBWRC

GET UNIT NUM
AT E6+6
RECALL EDITOR TO
DELETE APXXX
FROM BUFFER

EXTENDED UNITS-*

7BLK NUM FROM
E6— TPWO

C
DOES
UNIT HAVE
AN INDEX
?

NOLN

7776

CHKORG

——

LN1

LNe

>
GET FIRST
TAPE BLOCK

LOAD 1 CHAR FROM
AP INPUT BUFFER

STORE IN EDITOR'S
INPUT BUFFER

LNCTR

LOAD 1 CHAR
FROM AP INPUT
BUFFER

YES
|C(LNCTR)»1— C(LNCTR)|

CALL EDITOR
TO UPDATE PTRS

C<CUPLN)+l-KMClff»LN)

C(MAXLNH1-»C(MAXLN)

C(LNI)

C<LN1)+1

|SET 83> B2
1

A8F

CALL EDITOR TO

CHECK EDITOR
INPUT BUFFER

YES

CALL EDITOR
TO DELETE
LAST LN

YES

FULL
?

YES
SET UP EXTENDED UNITS

NEXT TBLK TO
AP BUFFER

RESET AP BUFFER
PTR.BUMP TPWD
BY ONE

ADO PROGRAM MEMORY MAP

EDITOR
ADD PROGRAM
(46 FREE

LOCATIONS)

ADD PROGRAM
INPUT BUFFER

EDITOR SUBROUTINES
NEEDED FOR AP
EDITOR INPUT BUFFERS

NEEDED FOR AP

MC PARAMETER TABLE
CONTROL TABLE
NEEDED FOR AP

NOT USED

0000
0001
0002
0003
0004
0005

«20
/DIAL-MS EDITOR

/EDITOR
/UPDATE
/15 DEC 69
/UPDATED TO CHAINING 5/14/70

00 06
00 07

0010
0011
0012
0013
0014
0015
0016
0017
0020

/
/

00 21

0022

UPDATED FOR MULTIPLE RK08S 8/11/70

/
/
/
/

/
/
/

EJECT

0023
0024
0025
0026
0027
0030
0031
0032
0033
0034
0035
0036
0037
00 40

0041
0042
0043
0044
0045
0046
0047
0050
0051
0032
0033
0034

SEGMNT
LMOOE
»2 0

0020
0021
0022
0023
0024
0025
0026
2027
0030
0031
0032
0033
0034
2035
0036
0037
0040
00 41

0042
0043
0044
00 45

0103
1120
6777
0342
4016

6000
0016
0016
0016
0010
1000
0000
4073
0044
0014
1324
1460
0037

00 46

60 54

0047

1000
0014
1440
0002
6712

00 50

0075
0076
0077
0100
0101
0102
0103
0104
05

00 73

00 00

0106
0107
0110
0111
0112

0074
0075
0076

0000

i(Jl

01 13

0114
0115
0116
0117
0120
0121

/LNS PER FRAME

DSCCUR

LDA
0

STC SCPRTN
SET 4
14

UDH

SAE I
LF
JMP 8YHC
LDA
14

SAE
2

JMP Y5

0072
0076
7762
1020
7767
2765
1040
0074
1752
1772
0011
4075
2060
1140
0001

00 74

P10

-1000
SCR 2
STC CURVAL
JMP 0
SAM 7
SCR 6
ADD P10
JMP 0
NOP
NOP
NOP

0054
0055
0056
0037
0060
0061
0062
0063
0064
0065
0066
0067
0070
0071
0072

0072
0073

SAM7

/KNOB S.R,
/CURSOR

/DISPLAY CURSOR

00 64

00 71

SAM
ADA

20 35

0056
0057
0060
0061
0062
0063

0051
0052
0033

SAM3.

60 00

0107
0346

00 55

0063
0066
0067
0070

00 00

0100
0101

7717
1777
0000
0500

6102

6041

0103
0104
0105

6101
0602

00 77

8YMC,

SET

CURSOR
JMP
J8TH
LOA
-10
ADD VCOORD
STA
CURVC
OSC 12
OSC
12
CLR
STC CURFLG
ADD
JBMl
AOM
1

JBM10,

/SET CURSOR POINTER TO POINT TO
/GRID PATRN ADOR
/SET STATUS NOW OF FLICKER INDICATOR,
/CURSOR VC IS BELOW
/CURSOR LN
/VC or CURSOR LN

/CURSOR VC

POSl,
1
SCPRTN. 0
CURVC,
0
0
CURFLG
CURSOR. 7717
1777
GAPARG, 0
DOCU
lOB
RHODE

/SET FLAG TO 0
/RESET HC TO INHIB GAP BETWEEN CHARACTERS.

/RTN

Tsr

/THESE LOCS DET.
/CURSOR PATTERN
/WAIT FOR TTY FREE BEFORE

/CLEARING THE WORKING AREA

LMODE
60 41

JMP
DOCU
LIF
2
JMP CLWA

/HANG
/SET UP THE PROPER

,F,

SET

0106
0107

0072
2372

01 10

0127
0130

0111
0112
0113

1020
2011
1072
1020

01 31

Kl 14

20 77

0115
01 16

1072
1020

IDA
2011
STA
12
LDA
2077
STA
12
LDA I

01 17

77 77

nil

0120

1072
1072
0647
1000
7341

STA
STA
LDF
LOA

06 41

LDf

0122
0123

OOP

E6+1+2000

01 24
Vi, CO

01 33
01 34

01 35
tl X «o

01 21

©X ^fc
01 43

0470

A2E:

01 44

01 27

00 11

CL«
STA

Afi

011

1040

Oli

ivx 4A

011

wX
uX 31

23 77

IDX *t f

0132

6422

01 33
01 34

10 20

011

ItJX

UX -'10
WX 5i
If

X -'C

12
12

OS YS 12000

DOQL*

7777

1
I

0135

01176

0137

0157
0160
0161
0162
0163
0164
0165
0166
0167

0140
0141
0142
0143
0144

01 73
01 74
(^1
^ ?
V X 7B
01 76

0177
0200
0201
02 02

0203
0204
0205
0206
0207
0210
0211
0212
0213
0214
02153

0216
0217
0220

(77

TERMINATES
/NAME)
/FILL OUT REST OF NAMES WITH 778

/WORD NUMBER 3
/WORD NUMBER 4
/PREPARE TO PICK UP UNIT PARAMETER TABLE
/GET THE DISK 8ITS(10 IF THERE, 7777
/RESET TO E6 SEGMNT
/IF ITS EER0(7777) MAKE IT 0000
/ELSE, LEAVE IT THE WAY IT IS (10)
/UNI T SECTOR
/NOW DO AN

LOA
7777

/LO PIP,0
/HERE FOR QUICK LIST
/THIS VALUE TELLS

NOT)

/ASSEMBLER TO QL

01 34
01 5b

0171
0172

/P77

£6^6^2000
JMP DOLO+2

10X 70

01 70

/PI

0122
0123
0124
0125
0126

XO/

0140
0141

/GET PIP
/NAME SECTOR OF
/MC PARAM TABLE
/PUT P I P IN TABLE

01 36

01 45

0146
0147
0150
0151
0152
01 53

0154
01 55

0156
0157
01 60
01 61

0162
01 63

0164
0165
0166
0167
0170
0171

0172
0173
0174
0175
0176
0177

0642
1040
2774

0641
1040
2000
1020
5000
6152
0011
6135
1020
5002
4240

LOF 2
STA
UNITNO*200 0»3

LDF 1
STA
2000
LDA
5000
JMP 8YAS
CLR
JMP DOQL+2
LOA I
5002
STC LIORCV
JMP W2
JMP ecoN
JMP CHKMT
JMP ERRXIT
LDA
DISKS
LDF 2
STA
I

DOLI

DOAS,

BYAb,

62 42
76 07

7275
7051
10 20
01 10
06 42
10 40

2777
1020
0000
4241
0641
0011
1440
2372
6177
1440
2371
7051
1000

/=7777 FOR QL .NE.
/7777 FOR LI
/NO MATTER FOR AS

/SA FOR AS

UNlTNO+2000
RDCASM

LDA I
0000
STC 8LKST
LOF 1
CLR
SAE

2000*E6*1
JMP ,+4
SAE

2000+E6
JMP ERRXIT
LDA

/START OF THE WORKING AREA WITH REF TO 110

tic.

cup I^Ci

fflA

(759 ftp

10 40

0203

P 7 7*^

ftp ft4

001 7

CA ^
£^
+ L 6
c f%
W Wio
fyt

LOT

2
o A
9 ft ft ft ^
f

hi 1

02 26

02 05

06 4

p
n
un
UM
LUr

0227

02 06

1100

ADA

02 30
02 31

02 07
0 210

0232

0211

ftp "^"^

ftp
P
tiC 1ic

23 72
12 00
23 71
ft4 RP
»*
Pt

Let

0234

0213
0214

7ft
1
/ 10 P X

J" r LH W A

0642

0225

02 35

ic)

02 37
02 40

>
C 1X R

ftp
1 h
o
t X

[?!

i7 ft 4.

62
1 2
oc Xc

fir

44 c?1X

iM C
Jn
o

0245

6223

6212

02 4 6

AP P 4
A
-7
DP
CP
cR

"*ci

PM00E

A
P P^5
0t
co

ft
lO

02 27

06 42
1 ft ftft

ftp 31
wX

ftp 41

0232

1620

C OX
A?

JB AS 1
L I NC
M nn r
LnUUL
nr

It)

coo

p ws
C

2002

ftp XA

ftft
1010 ftp
k^c

4 ft

\0c

no A^
HI

03 7 0

O
A 7/
c 0

02 42

00 51
ft (71 0( 01

P 7(51

(0^ «* o

019 71

02 44

7(51

vc f £

a O A Ki

A r3 C i

ftp 7"^

»C ^0
02 47
02 50
02 51
02 52

02 74
02 75
02 76
02 77

JM P

+ 1

LMOOE
f719

on
rU r

PO •tfl

A
0A
0

fJS

f
1

ft ftft
10 Kilo

RHODE

KiC 0 17
lUC

DL "NJ
ac
L
Db r

ft ftft

02 34
ft
iC

IOC o*»

O^'?

DC A n

AP "^7

ftp

ic:

ftp "^ft

0260

L i r
MC

«y V
0
A
* 11
O 1X 4

ftp S"^

1 ft

or
A n
nt. AU

T
I

ID AC O

S
P7
3c
/

02 50
02 51
02 52

02 54
02 55
02 56
02 57

p ft ftft * M M T T M n_
D
rn
r
uD

62 20
6P P1
cX
AP p p

024 7

C T A

10 40
27 76

CX/

02 43

r A* 1

P ft ft ft + r A

024

0242

LA M

ftft ft p

TMn_

L I UK tV 1

BL KS T

WA
se T 11
0

7A.

JMP DECODE
+ 4
JMP
,

(?tp
ICfC

^
^
P'J

(71

A mo

LI F

7744
6011
06 02
77 44
?1
P ox
\oc
ft

0301

0254

03 02

02 55

06 42

0303
0304
0305
0306
0307
031feJ

0256
0257
0260
0261
0262
0263

0046
2007
6266
0641
1326
6321

0311

02 64

62 70

0312

0265

6311

0313
0314
0315
0316
0317

0266
0267

0011
6000

JMP T2
JMP 11
LIT 2
JMP 12
XSK
11
JMP 11
Lor 2
SET 6
2007
JMP CLRALL
LDF 1
6
LDH
JMP NUMCHK
JMP MS
JMP LOCATE
I

6011

CHKMC3

/EXECUTE MC COMMAND

CLRALL, CLR
JMP

/IS FIRST CHAR 0-7

/YES 00 LOG REQUEST
/SEARCH MONI TOR
/COMMAND TABLE
/CLR NO PAS AND TRAP

Oc 1

vOcc

D»9 70!

1 7
X
O 01
Kf O

'^7
1
<£ /

Oi"? AAl

01
It)

MA
no

£ *t O

OiO 79

(AO 7'<
010 74

1
7 £.0
Ofs
lO
yen oia

019 7R

01 01

(An 7 A

LDH
ROL
STC
LDH
ADD
SET

6
6
0
I

ypnuMAun vv
aa
/LUnnANU

0
I

26-1.+2000
SET I 7
26-Y6-.3
XSK 1 7

a
< OCX
100 I0O

w4 3q
7
^A
/ 01
10 40

SKP
JMP XITERR

03 04

1461

0305
0306

63 01

1711 017

100 w /

AX
(A
*tO xl0

SAE I 1
JHP t-4
LOA I 1
STC .^1

100110

1010 (010

01 "<

WO 4T Tt0

0311

1 01 OOl

Oft A A

oil 1 9

77 77
Of//

LDA I
-HBIT
ADM

/ L> On M A IN U

/C TD
/O
n T1 M
NbP

Ic/O

9 77

T Dl 01

100 0^
tA X X \

wO \0c

OlDl

on 14

0336
0337
K>0 HtO

19041

Nl 1

1021
"i

0 *T !3

71 1

'10
X i 401
1 1

Oi(A
1010 OlA
lOO

03 15

DA
^'0 f

JMP P56

0316

064

017
f
I0O 1X 7

01^1719

^SX

0320

oc X »

LDF 1
LIF 2
JMP LOKATE

0354
0355
0356

0321
0322

1120
7710

-6 7

04 71
60 00

03 61

03 23
03 24
03 23

0362

0326

0010

03 63
03 64
03 65

03 27
03 30
I0W OX
017
79
KrO Oc

04 51
60 00
A0i0l0l
OKI 1010

APO
JMP
XSK
JMP

01371

0333

0056

75
/£

017
74
BO On

0ICI Old
1010 1010

7IS
07
I0O
017
1A
100 Oo

0101 i i
1010

CLR
STC
LDH
SHO
SPl
JMP
JMP
JMP
LDH
BCL

03 57

0360

0366

ADA

APO
JMP
ADA

0!5 9 01

lOO 74
/

/ V
lOO 7S
Dl

/YES DELETE
/ILLEGAL CuMMANO
/FOUND A MATCH ?
/NO 00 SOME MORE
/LOAD A JMP INST

^ 7A

0377
0400
0401
04 02

0403
0404
0405
0406
0407
0410
0411
0412
0413
0414
0415
0416

lOO 0 /
!0

0 *t 10

11
C14
47
*t0 5^
7 9
A
XO
^0
1

1 4
H 901
X
4:10

03 41

40 00

0342
0343
0344
0345
0346
0347
0350
0351
0352
0353

6337
6321
6353
1306
1560
7770
2354
0243
6336
1020
0000
0303
6016
7076
7046

03 54

0355
0356
0357
0360

/N n

/ T

INUn

0
I

TT
tc
MttM
it
lb Aa Nun
/DECODE MONITOR
/LOnMANu blKlNo
//VC*C
T Lb

SET 16

A W

D TM

/SET NUM TO 0
/bTORE RESULT

T4
6

.-3

NUMCHK
T4-1

/IGNORE SPACES
/DIGIT ?
/NO EXIT

6
I

ADD T4
ROL 3
JMP P56 + 3
LOA I

OOMC,

77 70

T4,

wO /Ifl
r

63 33

Kiw

03 4 6
03 47
03 50

a""?
I0O

/L LN bT H
VTaQi
CPAMKiCn
/lAoLt.
oLANiNLU
/N 0

/TO META
/LUC A
LN A aX A
/HE5ET PTR TO
/bTART OF

lOO
XlO ^10

m
IN
f

/DTD Trt
ur» TADi C
/rlR
TU MC
lABLE

A7
7/ 7
7K
/ 05
019 97

W0t /

tc
lb

ROR 3
JMP 16
JMP DECODE
JMP XI TERR

/0-7 TO AC

/DO SOME MORE

/NUMBER TO MOVE

ap
AL

0417
04 20

0421
0422
0423
0424
0425
0426
0427
04 30
0431
04 32

0433
0434
0435
0436
0437
0440

0361
0362
03 63

7305
06 00
76 61

AAA4S3,

JMP E2
LIF 0
JMP KOOMC

DOAPr

SET

/ADD PROGRAM
0364
0365
0366
0367
0370
03 71

0047
0006
1327
1420
4300
7046

03 72
03 73

70 76
63 75

0374

03 77

6400
1000
2372
7177

0400

0002

POP
PMODE

6401
6402
6403
6404

6212
4421
0533
6141

GIF
JMS

0405

0641
0602

03 75

0376

LDH
SHD
CRl
JMP
JMP
JMP
JMP
LOA

04 43

0444
0445
0446
0447
0450
0451
0452
0453
0454

04 06
04 07

,*2
,*4

/BY BLOCK NUM
/BY NAME

10
I

JBAPl
LINC
LMOOE
LOF
LIF
JMP

READ

1400

6411
6412
6413
6414

6212
4421
0537
6141

0415

0641

04 16

0417

06 02
70 42

0470

0420
0421

7076
0016

04 71

04 22

0472
0473
0474

0423

73 05
00 02

6424

6212

04 75
04 76
04 77

64 25

44 21

6426
64 27

0547
6141

0430
0431
0432
0433
0434

0606
6020
0000
0241
4620

APRTN,

POP
PMODE
GIF
JMS
J8AP2
LINC
LMOOE
LOF
LIF 2
JMP CI

04 55

HEAD

0466
04 67

0500
0501
0502
0503
0504
0505
0506
0507
0510
^3511

0512
0513
0514
0515

(

/UNIT NUM
/PUT IN UNIT
/NUM WO OF PARAM TABLE

0002

04 64
04 65

XITERR
OECOOE

JMP U2*3

74 00

0410

0456
0457
0460
0461
0462
0463

E6+1+2000

04 41

0442

JMP DECODE
NOP
JMP E2
POP
PMODE
GIF
10
JMS
READ
J8L0
LINC
LMOOE
6
LIF
JMP
20

DOLO,

/GO DISPLAY
/LOAD BINARY

CURPTR
SCOPE,

/PREPARE TO CALL THE LOADER NOW.
/START THE LOADER GOING NOW

ROL i
STC LNFOR

/PRESET ONCE
/PER FRAME
0435
0436
0437
0440
0441
0442

06 42

1000
2010
1040
0602
0042

LOF
LDA

2000+10
ST A
FI RSWD

SET 2

0516
0517
05 20

0443

2002

04 44
04 45

6603
6553
6445
0641

0521
0522
0523
0524
0525
0526
0527
0530
0531
0532

0446
0447
0450
0451

05 33

0460

0534

0461
0462

4552
0642
0070
7774
6020
6466
4541

0535
0536

0453
0455
0456
04 57

6017
1000
0000

04 63

45 42

0464

0540
0b41

04 65

05 42

04 67

0543
0544
0545
0546
0547

0470
0472

2541
6544
1000
0000
4543
1000
0002

04 73

14 40

0474

0014

04 71

05 50

04 75

04 56

0551
0552
0553
0554
0555
0556

0476
0477
0500

6543

05 57

05 04

0560

0505

05 61

0562
0563
0564
0565

05 01

0502
0503

05 06
05 07

0510
05 11
05 12

05 66

0513

0567

05 14

05 70
05 71

0515
0516

0572
0573

0517
0520
0521

05 74

0575
0576
0577
06 00

0601
0602
0603
0604
0605
0606
0607
0610
0611
0612
0613
0614

052 2
0523

0524
0525
0526
0527
0530
0531
0532
0533
0534
0535
0536
0537
0540
0541

JMP
JHP
LOF

X I Tl #

0602

0 53 7

0466

2000*2
JMP SCPSTR
H Ai T
, = 1

1
2

LI F"

GETCUR

JMP 17
LDA
STC CURRTN
LOT 2
SET I 10
'3

CURGO*

JMP
JMP
STC
bTC
AOO
JMP
LOA
0
b

SAM3
CURGO
TEMPS
ENQrLG
TEMPB
QUTCUR

All uUK

LOA
2

SA E
14

SKP
JMP XITCUR
Xb K

0456
6543
1120

SK P

CURSlT

LU n V AL

MD
Jnr

Y
T T P
ID
Ail
u Un

AO A

-MBIT

37 77
02 36
04 56
65 43
14 40

CUnVAL

XSK

SK P
ikt D
Jflr

V
ID
A TI T r*
UUK
i

S AE

0014
6502

JMP CURSET
XSK
10

02 30

04 56
65 43
10 00
05 42

SK P

JMP

X I

U UH

lo a

ENDFLG
AH E

JMr CNfALL
bt

UU K V AL

/KNOB

TOO FAR

T r MP o

CNTALL*

JMP CURGO
JMP OUTCUR
LOA
2

STA

ENDFLG
ROL
COM
STC
ADD
ROL
AOO
STC
JMP

45 41

2014
02 41

2541
4541
6000
00 00

/FIND CURSOR
/CHAR

02 16

0470
6525
0056
0541
6466
6544
1000
0002
1040
0542
0241
0017

/NORMAL CALL
/TO SCOPE
/NOT READY
/READY GET A
/CHAR

TEMPB.

TEMPB
14
1

TEMPB
TEMPB
0

/FREE2E CURSOR

0615
0616

0542

06 17

0544
0545
0546
0547
0550

0620
0621
0622
06 23

0624
06 25
0 62 6

0627
0630
0631
0632

05 43

0551
0552
0553
0554
0555
05 56

063 3

0557
0560

06 34

05 61

0635
0636

0562
0563

06 37

05 64

0640
0641
0642
0643
0644
0645

0646
06 47
06 50

0651
0652
06 53

0654
0655
06 56
06 57
06 60

0661
0662
0663
0664
0665
0666
06 67

0670
06 71

0672

0565

0677
070b
0701
0702
0703
0704
0705
0706
0707
0710
0711
0712
0713

ENDFLG, 0
XI TCUR, 0
OUTCUR, STA
CURPTR
ADA
MBIT
STA
I

2000+CURPT2
CURR TN
I

SET

00 00

6574
0600
6400
0225
6005
6603
6553
0016
0456

JMP
LIF
JMP
XSK
JMP
JMP
JMP
NOP
SKP
JMP
LIF
JMP

05 66

65 63

0567

0600

NOPAS,

OUTSCP+1

/GO SCOPE

MODKBD
SCPSTR
IWAIT

/CHK DUBL BUFR
/CHAR READY
/EMPTY OR HTP
/NO PAUSE CALL
/TO SCOPE

N0PAS*1

/LOOP TILL DUN

/RTN TO
/TRAP SR

TRPRTN

0570
0571

4601
2000

/cro^co^
/5
CP S R EX I

/RTN JMP TO CALL

05 72

46 00

0000
1000
0000
4573
2601

OUTSCP

06 00

00 00
00 00

DSCRTN,
SVACCr

0000
1000
0000
4573
0054

FI RSWD,

0601
0602
0603
0604
0605
0606
0607
0610
0611
0612
0613
0614
0615

LOA
3

STC OUTSCP
ADD SVACC

SCPSTR

JGC,

4 1 00

0617
0620
0621
0622
0623
0624

5060
1020
0000
4765

0625

6026

1020
00 00

06 26

1460

0627
0630
0631
0632
0633
0634

00 00

0456
6634
0602
7535
6570

/RTN JMP TO SCP

LOA
0

0602

6452
0641
3023
4075
3023
4074

INSTRUCTION WAS REMOVED BECAUSE TRAP HANDLER

STC SVACC
ADO 0
STC DSCRTN

0573
0574
0575
0576
0577

06 16

0674
06 75
06 76

0000
0000
1040
0432
1120
4000
1040
2026
0000
0045

STC OUTSCP
SET 14
F IRSWD
JMP GETCUR
LDF 1
ADO EOFR AM
STC CURFLG
ADD EOFR AM
STC CURVC
STC GAPARG
LDA
1

LNFOR,

/LN-1 FOR DISPLAY

STC K5 + 1
LDA i

HAXVC#

STC VCOORD
F5,

JMP SAM7

OLDSAM,

SAE

/ONCE PER LN
/RTN WITH NUM LNS
/PER FRAME

SKP

JMP .+3
LIF 2
JMP SAMARG
JMP OUTSCP-3

/HAS KNOB

MOVED

NO QNGER PRESENT,

07 14
07 It)

0716
0717
0720
0721
0722
0723
0724
0725
07 26

0727
0730
0731
0732
0733
0734
0735
07 36

0737
0740
0741
07 42
07 43

07 44

0745
0746
0747
07^)0

07 51
07 52
07 53
07 54
07 55
07 56

0757
0760
07 61

0762
07 63

076 4
0765
07 66

0767

/DISPLAY

A LN NUM
/DO NOT DISPLAY

/LEADING 2ER0ES
0635
0636

0061
1013

0637
0640

1020
0002
3060

LOA

0642
0643

50 60

7057

ADD K5 + 1
STC K5*l
JMP K5

0644
0645

0450
6654

AHE
JMP J5

0646
0647
0650
0651
0652

1120
0012
2001
4001
7054

06 53

66 44

0654
0655
0656
0657
0660

1120
0140
6761

06 41

70 54

6654

ADA

/GET GRID PTR FOR
/DIGIT IN LN NUM
/IS IT A LEADING 0 ?
/NO DISPLAY FIRST NON
/HERO DIGIT
/YES INCREASE H COORD

ADO
STC
JMP
JMP
ADA
140
JMP
JMP
AAA7S3i JMP

K5-3
,-7

/AND GET NEXT DIGIT
/CHK FOR LEADING iZRQ

OSCCHR+1
K5-3

/DISPLAY A DIGIT
/GET PTR NEXT DIGIT

/COME HERE To
/DISPLAY THE LN
0661
0662

0061
1157

0663

7023

JMP EOFRAM

06 64
06 65

13 34
14 20

0666
0667
0670
0671

4700
6722
1420
3700

14
LDH
SHD I
TBI
JMP FLDSET
SHO

06 72
06 7 3

67 12

0674
0675
0676

0701

771

O
^ 71 sac

07 74

0703
0704
0705
0706
0707
0710
0711
0712
0713
0714
^715

0775
0776
0777
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012

SET I
LNHC

/NUM

07 70
07 71
07 72
D!

H5,

06 77
07 00
i9l

(71

id? 16

0717
0720
0721

6760
7023

01 STXT ,

/INIT H COORD FOR
/FIRST CHAR OF A LN
/CHK FOR END
/OF FRAME

/TAB

un
P5 1

13 34

1420
47 00

6722
1460
0043

JMP
JMP
JMP
LOH
SHO
TBI
JMP
SAE

OSCCHR
EOFRAM
I

FLDSET
I

JMP P5
LDA I
TXTHC
SAE

66 73

1020
1157
1440
0001
6774

66 25

1020
7420
4765
0061
1051
1020
0037
6000

SET
TXTHC

Y5,

JMP W5
JMP F5
LDA
MCVC
STC VC 00 RD
SET I 1
MCHC
LDA I
I

JMP 0

/SET FOR MC

1013
1014
1015
1016
1017
1020
1021
1022
1023
1024
1025
1026
1027
1030
1031
1032
1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
1050
1051

0722
0723
0724
0725
0726
0727
0730
0731
0732
0733
0734
0735
0736
0737
0740
0741
0742
0743
0744
0745
0746
0747
0750
0751
0752
0753
0754
0755
0756
0757

0070
0752
1030
1440
0757
6742
1020
6120
2001
4736

GOTAB,

1140
0001
6674
0017
2001
0471
6724
0470
6724
1010
4001
6674
1277
1417
1537
1657
0000

SET

/SET FOR TAB

FLDTA8-1
10
LDA
SAE
ENDTB
JMP ENDSKP
LDA
-C0MT8
ADD 1
STC CARTB
I

67 74

1020
0000

16J52

1053
1^54
1255
1^56
105^
1^6^
1061
1062
1063
1064
1065
1066
1067
1070
1071
1072
1073
1074
1075
1076
1077
1100
1101
1102
1103
1104
1105
1106
1107
1110
1111

FLDSET,

CARTBi

JM P

LOA

AOM
1

jMP P5+1
ENDSKP, COM
ADO 1
APO
JMP GOTaB
A2E
JMP GOTAB
LOA 10
STC 1
jMP P5+1
FL0TA8. TAGTB
INSTBl
INSTB2
COHTB
ENDTB,
0
TABSET=120
TXTHC=1157
TAGTB=TXTHC+TA6SET
INSTB1=TAGTB+TABSET
INST82=INSTB1*TABSET
C0MTB=INSTB2+TABSET
I

/DSC 1 CHAR ACCORDING
/TO C(AC) AND RTN
0760
0761
0762
0763
0764
0765
0766
0767
0770
0771
0772
0773
0774
0775
0776
0777
1000
1001
1002
1003
1004
1005
1006
1007
1010

0241
1120
2000
4012
1120
0000
2100
1772
1772

DSCCHR, ROL 1
ADA
M5
A6=l*2000
STC 12
I

ADA

VCOORDi

ADO GAPARG
DSC
12
DSC
12
XSK
1
I

02 21

0221
6000
0011
0052
0000
1440
0075
7005
1020
7767
4100
1020
7760
1200
0765

XSK
W5,

JMP 0
CLR
SET 12
0

SAE
CURFLG
JMP ,*4
UDA I
-10
STC GAPARG
LOA
-17
LAM
VCOORD
I

/SET VC
/FOR NXT

S CP

1112
1113
1114
lilt)

1116
1117
1120
1121
1122
1123
1124

1125
1126
1127
1130
1131
1132
1133
1134
1135?

1136
1137
1140
1141
1142
1143
1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
1156
1157
1160
1161
1162
1163
1164
1165
1166
1167
1170
1171
1172
1173
1174
1175
1176
1177
1200
1201
1202
1203
1204
1205
1206
1207
1210

1011
1012
1013
1014
1015
1016
1017
10 20

BCL
7020

1560
7020
0061
1157
6570
1460
0360
6012

SE T I
TX THC

JMP OUTSCP-3
SAE
360
JMP 12
I

/MOVE DISPLAY TO
/TOP OF SCOPE
1021

1022

STC MAXVC
JMP 1

4623
6012

/CHK END OF FRAME
1023
1024
1025
10 26

1027
1030
1031
1032
1033
1034
1035

1036
1037

1000
0000
5040
1000
0014

EOFRAM

LOA
0

STC RTNEOF
LOA
14

SAE
CUHP TR
skp
c p
JMPD nU5CCUR

14 40

0432
0456
6036
1000
0002

1 Jul

LO A

/PTR TO LAST CHAR
/IN BUFFER

SAE

1440
0014

/PTR TO LST

/DISPLAYED CHAR
10 40

1041
1042
1043
10 44
10 45

1046
1047
1050

0000
0011
0061

DT
RT KiC
Or
Nt nc

(7
1

clr
SE T

67 61
66 06
05 00

MK HC
Jn r Uo UU HK + 1

17 63

/DISPLAY MARKER

JMr bUralK + o
XI TE RR 1

108

6244
JMP OELMC

6244
6210
/

1051

0002

7052
7053

5653

ERHX I T

POP
PMOOE
JMP

EA NO HB

77 35

LMODE
/

/COUNT DIGITS
SRO I
4210

1054
1055
1056

1520
4210
6661

1057

1020

1060
1061
1062

0000

02 43

ROL
STA

1063
1064
1065
1066
1067
1070
1071
1072
1073

1040
1060
1560
7761
6000
1000
0000
5075
6026
0500

Jn r U I b A
1

K5,

LDA

/LN FOR DISPLAY
3

K5 + 1

6CL
7761
JMP 0
LOA
I

KSAM7,

STC EGGSIT
JMP SAM7
lOB

/EXEC THIS WHEN
/LN NUM
/HAS BEEN DISPLAYED

19 11

10 74

^
H4
0c A

62 44
Lb bo i

/MONITOR COMMANiD
/STRING DECODE

•LC i.0
4.**

/LN, NAME .UNI T

12 15
5 i.
1 ^»
O
Xc
1

CI 7
1
/ A
o
XiC

1217

1
XiC f

12 2fe5

1100

7 71

UL bU UL *

00 72
23 71

r A

9 ?1

/PARAMETER TABLE
/CLEAR THE TABLE
/LN NUM
/LN NUM

12
12
12

/A
/M

12 22
19 94
12 25

1226
1227
12 30
12 31
12 32

1233
1234
1235

XX i^x
1 1 019
XX
11 03

110 4
1105
1106
11 07

11 10

1111
1112
1113

1 n ^9
10 72

CT
A
0 A

19
XC

A
CO M

0017

10 72
10 72
10 72
10 72
00
10 72
00 41

<;T
A
O A

19
xc

/£

JIMA

T
1

19
Xc

SET

/UNIT NUM
/SAV RTN JMP

S T A

ST A

0000

11 15
11 16

00 72
23 70

O L T T1 19
Xc
F6 al +9 0005

0077

<;r T

12 43

11 17
11 20

77 75
00 54

-2
Ou T

14
x**

1244

1121

12 45

11 22

0006
6333

/LN NUM

1114

12 40
12 41

1242

12 50
12 51

1123
1124
11 25
w

)

(

12 53
12 54
12 55
12 56

XXC'

ftCH
ok; CHI

11 30

1 4 60

XX OA
XXOt

Xt 9 /

1X00

00 54
7
1 T A
/ X
00
ao
VC It
0/

I0X

JM P

XSK

1 1 <«>"

XX ^4

71 9f?l

IM D

1 X w7

71 49

JMP

1 1

OtCI i 1

00 11
Xv R9
9c

CL R

1 01

12 63

"^7
1
X 1X o ^

9 /s
0A
Xfc

I 1

401
^»

004 6

SET

1 9 ^ii'i
X^
09
X c OO

1141

v\0 x*t

9 A7

114 2
1143
1144

13 02
13 03

1304
1305
1306
1307

1145
1146
1147
1150
1151
1152
1153
1154
1155
1156
1157
1160
1161
1162

/END OF COMMAND

r
nMA
L< U n A

9 ^%9
wC
X^

CT i35

SE T

CO
,

/NO COMMA RESET
/NUM TO 0
/RESET COMMAND
/STRING PTR
/NAME

xc
6

LO*'ti(yi(3X*cl<3«y!0

0076
7766
0221
1326
1420
4000
7147
1420

SET I 16
-11
XSK I 1
LON I 6
SHD I
SPl
JMP = 3
SHD
CRl
JMP XITERR
SHD
KOMI
JMP XITERR
SHO I

7046
1420
5700
7046
1420
7700

REDO,

/NO
/FIRST COMMA ?
/YES CHK FOR 2ND LN NUM

63 72

4-300

/AND RTN WITH A
/NUM IN AC
/STORE A LN NUM

XC Ot'

1270
1271
1272
1273
1274
1275
1276
1277
1300
1301

19
Xc

?
i

nu
D
n ^
LU
on U I
Ln X
Jn r 1
OA L

/COMMA CTR

1
X9
c

JMP P56
QT
v)
AA

10 72
13 06
14 20

1252

iLii^

12 36

1237

1246
1247

/PTR TO HON

QMARKl

/NAME SECTOR
/NAME LENGTH CTR
/SET RTN TO P+2

'< i

•1

lolc
lOlO
1714

00
X 11 A7

7
Dl 4 A
/ 10 * o

1 1 A 4
10*
X

tup

y T Tr pp

cun T
pn
n AA X
UM

4 901

X X hfi
1 1

O ft
w
XX A

71 74

IMP

13 72

STH

1326

13X6

X O'
X X / If
1 1 7 1
X1 /

10i /

r7l

1 1

1 1
X

/GET UNIT NUM
12

M9 7 A

Y<;
AO W
fV

1179
X
X ^c

71
/ X R7
90

o
XX 77

7CI
A
/ Id 4
"to

IMP
IMP

1 1 74
f*^
XX

117^
XX

63 33
00 40

/ o
X 1X 7A

^ci
c/Kl 011
lOX

1 1

O
XA

prnQ
y T Tr RR

10c*

10t

I 1

O
^A
109
1 < 9 7

1
X9

13 30
l3 31
13 32

/
II 77

13 40

IJ9

JMP P5 6
SET 0

Xti tlO

<IT
A
o A

pA «A >90IOIOI

12 01

23 77
11 20

1202
1203

7 7 30

**47

0451

12 04

60 00
70 46

apo
JMP 0
IMP XfTFRR

19
It J
XC 05

1334
1335
1336
1337

12 06

1207
1210
1211
1919
XC XC

7076
7046
1306

AHA

JHP DECODE
IMP X TERR

OOSB f

14 20

SHO

4300

PR 1X
IMP

ntiKiSR

i.o *tc

Xc xo

lO74 O
13 44

1914
Xt X ~
1915
tX
X

13 45
13 46

12 16

7046

IMP

13 26

LOH
SHO

lo jV)

1217
1220
19
91
xCCx

1 0 -) X
1
7 S9
17 <C
lO

19 9 9
1
9 «>o
93
Xc

7997
r CC

pp nn r
IMP
o r ur
r <^TPnp

1 4 95!

on u
1

134 7

1 460

S AE I
CO MA

00 54

1420
9&t
1

y T TTRR

I
I

1030

1994

1 4

XO 54
13 55
i 7
90A
10

1 9 S"?
fc?

X£

72 36

12 26
19 97f
xCC

7046

1357
1360

1230

0200

19
71X
X£ O
12 32
1933
oo
XC

1 01 401
*T)£J

ST A
9M0|CI
vv 4.r A^ 1X
Cv

1 7 -'•t

ox
xo7 A1
1

1362
xo oo
13 64
13 65
1 7 AA
X 0 OO

1367
1370
1371
1372
1373
1374
1375
1376
1377
1400
1401

/NAME TOO LONG
/UNI T

10 cl

1 C! 90!

rur

rnnr
IMP
IMP
nA

^Ti 1 tor
XT Tr RR
T

2372
109CI
Xv £10

1234

440101

ffiVKf

VKi

1
X9 o^

72 44
10 20

IMP
Ji
r

nn^A
O

HAM
LU

12 36
19
77/
X w
12 40

1241
12 42

1243
1244
1245
1246
1247
1250
1251
1252

14 02

12 53

1403
1404
1405
1406

1254
1255
1256
1257

<^li< f
L I1 wr
1

V»C.

401901
H 10 c 0

4020

1040
2372
1020

ST A

04 00

0+400-»0

1040
2371
1326
1420
4300
7264
6321
7046
1306
1560
7770
1140

2000*E6*1
UDA

GETSA,

STA
20004E6
LDH I 6
SHO I
CRl
JMP DUNSB
JMP NUMCHK
JMP XI TERR
LDH 6
BCU I
7770
AOM

/TEST FOR UNIT TOO LARGE.
/LARGEST UNIT
/IF POSITIVE THEN ITS WAY TOO LARGE (ABOVE 47)
/GOOD UNIT.
/ILLEGAL UNIT
/SB.SR
/NO NAME

1407

12 60
12 61

2371
63 33

JMP P56

1411
1412
1413
1414
1415

1262
1263
1264
1265

1040
2372

ST A

73 05
00 02

14 16

7266

62 12

1417
1420
1421
1422
1423
1424
1425
1426
1427
1430
1431

72 67

7270
7271

4421
0543

JBS8

61 41

L I NC

12 72
12 73

06 41
06 02

1274

6020

14 10

?£900 4>r ^

?P!

OUNSB

r 6*

JMP E2
POP

PMOD£
10

CI r

LMODE
LD r
Li"

JMP

rrSA

/AS,SP

/cm FOR EMPTY WA

14 32

1433
1434
1435
1436
14 37

1440
1441
1442
1443
1444
1445
1446
1447
1450
1451
1452
14 53

1454
1455
14 56

1457
14 60
14 61

1462
14 63
14 64
14 65

/DO THE SAVE BINARY

/
/
/

1275
1276
1277
1300
1301
1302
1303
1304

06 42

CHKMT»

1000
2451
0641

LDF
LDA

20 00 4'M AXl N

LDF
SAE

14 60

0001
0220

1
I

X5K
JMP

60 00

/EXIT LOAD BINARY SR
1305
1306
1307
1310
1311
1312
1313
1314

0642
0011

LDF
CLR

10 40
27 42

ST A
20004-X2<^5
lOB
62 44

0500
6244
7744
6000

JMP T2
JMP 0

/SAVE PROG
13 15
13 16

1317
13 20
1321
1322

72 75

OOSP

7046
7076
7046
7305
0642

13 23

10 00

1324

2533

JMP
IMP
JM p

fHKMT

y TP RR
nr rn nr
JMP yiTFRR
JM P E2
1

n A

1 3 25

53 35

QT P

1466
1467
1470

1326

0002

7327

14 71

73 30

6212
4421

1472
1473
1474

7331

14 75
14 76

1477

13 33
13 34
13 35

PDP
PMOOE
GIF
JMS 1
JBSP
LINC
LMODE
LIF
LDA

15)00

1336

1501
1502
1503
1504
1505

1337
1340
1341
1342

73 32

0543
6141
06 02

nn QP TD

/NO NAME
/SET THE D.F. TO 2 TO PICK UP THE OF BLOCKS.
/GET THE LAST BLOCK IN THE AC.
/LAST BLOCK NUMBER
/SAVE IN A TEMPORARY UNTIL PAST READ.

10
READ

1020
0000
6023

DOSPTP, 0
JMP FCSA*3

6242

DOPS,

/RECALL THE LAST BLOCK NUMBER NOW
/TEMPORARY FOR THE LAST BLOCK NUMBER
/PRINT MS

73 43

7275
7051

JMP W2
+ 3
JMP
JMP CHKMT
JMP ERRXIT
.

1506

1343

0002

7344

6212
4421
0543
6141

POP
PMOOE
CIF
JMS
JBSP
LINC

15137

1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1524
1525
1526
1527
1530
1531
1532
1533
1534
1535
1536
1537
1540
1541
1542
1543
1544
1545
1546
15 47

1550
1551
1552
1553
1554
1555
1556
1557
1560

734t>

7346
7347

lmode:

1352

0641
0602
6025

1353
1354

7574
0002

7355
7356
7357
7360

6212
4421
0553

1361
1362
1363

0641
0602
6020

1350
13 51

DOPX,

tor
UIF
JMP FCSA*5
/PX
JMP 12
POP

PMODE
CIF
JMS I
J8PXDX
LINC
LMOOE
LOF
LIF
JMP 20

6141

READ

/
/

1364
1365

7076
7046

13 66

73 05

1367

0002

7370
7371
7372
7373

6212

1374
1375

0602
6021

4421
0543
6141

DOABf

JMP
JMP
JMP
POP
PMODE
CIF
JMS I
JBFC2
LINC
LMODE
LIF
JMP

15 61

1562
1563
1564
1565

READ

EJECT

DECODE
XI TERR

/DECODE THE COMMAND
/AN ERROR. REDO EDITOR
/FORCE THE EXIT NOW.

READ

/GET OVER INTO THE WONDERFULL MODE
/PREPARE TO CALL THE ROUTINES
/CALL THEM IN NOW,
/THEYRE SING CALLED IN NOW,
/BACK TO THE CALLING SIDE

/SET UP THE CORRECT INSTRUCTION FIELD
/DO ITiBUBBY

FCSA^l

Ib66
lb67

/
/
/

1^7(3

lb71

15 7ii

1!573

1^74
lb75
Iblt

/
/

15)77

»7377

1600
1601
1602
1603
1604

/
/
/
/

160t>

1606
1607
1610
1611
1612
1613
1614

/
/
/

16 25
16 26

1627
1630
1631
1632
16 33

/
/

161!?

1616
1617
1620
1621
1622
1623
1624

THIS LOCATION IS A RETURN FROM FIELCQMS
AS
AND QL " WILL GO INTO
"L
THE EDITOR AND START THE ASSEMBLER GOING
DO NOT REMOVE. ITS A NO-NO,
SO THAT

1377

6166

JMP
/
/
/
/
/
/

/
/
/
/
/

EJECT

RQCASM

/ASSEMBLER READ

LOCATION,

1634
163b
1636
1637
1640
1641
16 42

1643

1400
1401

1000
00 00

14 02

STC RTNJMP

1403

5523
0500

1646
164 7

7404

6036

16 50
16 551
16 52

14 05
14 06

15 60
76 00

16 44
16 45

1653
16 5)4

/KBD INPUT CONVERSION ROUT INES
CODES OF ALL
/TABLE CONTAINS ASCI
/SPECIAL
AND ILLEGAL CHARS
/HIGH OKDER 4 BITS HOLDS A MICRO ADDR
/RELATIVE TO LOC KLEGAL
• 1400
KBDOPR* LDA

1 407
1410

/GET THE CHAR

108

PMOOE
KR9
LMODE
ecu
7600

/READ IN THE CHAR

10 4 0
Aa

ST A

CHAR
STC EN0TA8

i f\

16 56
16 57
1 A

A A7
loo/
1

16 70
16 71

1419
X^ XO

00 61
1
49
X3
tJcl
i D101

14 14

1415
1416

15 60

A17

A 4(91

JMP SPYTA8
LOH 1
SCR 2
ADA 1

14 22

13 01

X*t t J

Tt 4 0
M
*t c
w0

1675

14 24

1120
f *J

JMP*KLEGAL
STC AJMP

1426
1427
1430

0221
1321

17 04

14 31

55 57

1705
17 06

1432
A A XX
X7OO

7AA7

017
/B/
17

X *» "J *

7mA
3X0

1710
1711
1712
1713
1714
1715
1716
1717
1720
1721
1722
1723
1724
1725
1726
1727
1730
1731

14 35

74 71

1436
1437
1440
1441

7475
7477
7506
7507

1442
1443
1444
1445
1446
1447

17 32

14 56

7513
3560
1120
7637
0451
7454
1120
7745
0451
7460
1000
1560
7534

XSK
LDH

17 02

1703

14 50

1451
1452
1453
1454
1455

/NEXT CHAR
/LOOK AT
/EVEN ASCI I ONLY
/FOUND A
/
A
i
/MATCH
/NO 00 Some more
/MICRO ADDR TO
/LOW ORDER FOUR BITS
/MAKE A JMP INST
/RELATIVE TO KLEGAL
AJ

CH AR

7 414

167 4
16 7 6

SET I 1
TA8L£«1
SPYTA81 LOA I 1
BCL
7600
SAE

~ J OXt

1673

1677
1700
1701

16 61
16 62
i,0 oo
XO 0*1
16 65
16 66

/
ACT CHAK
t*Li k D
fM
lAoLt
/LAST
IN TADiC
/WILL GENERATE A MATCH
/IN bC AN ROUT NL
/Hkit fCC
CDrrr'TAi
/UNLLbb
A brLUlAL
/UK ILLtGAL CHAK
/WAS STRUCK

1 1

/DIAL CODE OF INPUT
/CHAR IS LOW ORDER
/6 BITS OF LOC
/FOLLOWING MATCH

STC ENOTAB
AJMP,
/GO TO S .R
0
/HERE FOR LEGAL CODE
KLEGALi JMP LEGAL
JMP ILEGAU
JMP TAB
JMP KCR
JMP RUBOUT
JMP LNPEEO
JMP ALTM
/FOR ADDITIONAL SPECIAL CHARS
JMP ALT2
ADO CHAR
LEGAL*
ADA I
-140
APO
JMP ,*5
AOA I
-32
APO
JMP ,*5
LOA
^
CHAR
/ JMP TYPE
.

1733
1734

1457

7517

14 60

1735
1/36
1737
1740

1461

1000
1560
1560
0040
7534
3557
1560

1741
1742
1743
1744
1745
1746
1747
1750
l7t)l

1752
1753
1754
1755
1756
1757
1760
1761
1762
1763
1764
1765
1766
1767
1770
1771
1772
1773
1774
1775
1776
1777
2i300

2001
2(^02

20 03

2004
2005
2006
2007
2010
2011
2012
2013
2014
2015
2016
2017

14 62

1463
1464
1465
1466
1467
1470
1471
1472
1473
1474
1475
1476
1477
1500
1501
1502
1503
1504
1505
1506

20 22

2023
2024
2025
2026
2027
2030
2031

LD A

CHAR
BCL I
40
.

7520
1020
0240
/534
7517
7524
7517
10 20

0334
7534
3557
1620
4000
7520

JMP TYPE

enotab

""stro

8CL

00 40

JMP EXIT+1
LOA
240
JMP
TYPEJMP
EXIT
JMP TYCAR
JMP EXIT

TABi

KCR»

RUBOUT

LD A
334

JMP TYPE
ADO ENOTAiB
BSE

ALTMl*

)

JMP EXIT*!
JMP EXIT
ADO ENOTAB
BCL 1

7535
7536
7537
7540
7541

6041
5335
6046
7200
6141

JMP .-1
TLS
CLA
LING

1542

60 00

JMP 0

LNFEEO*
ALTM
,

ALT?

ILEGAL

0041
JMP AlTMI
LOA
4036
JMP EXIT+1
STC ENOTAB
I

EX IT ,

AO 0

EN OT AB

lOB

6244
DJR

RTNJMP
TYCARi

LOA
0

STC
ADO
JMP
ADD
JMP
RTN,
TYPE,

RTN
CRCODE
TYPE
LFCODE
TYPE

}

POP

/TYPE AC
/AND RTN

PMOOE
Tsr

LMOOE
/TABLE FORHAT IS
/XX00+0YYY
/AA2Z where;
/XX= UNROTATED MICRO
/1400 ROR 10=0003
/AND C{KlEGAL+3) = JM
/YYY= ASCI
CODE
/HZs DIAL CODE FOR YY

SPACE FOR

/AND THEN RETURN

4000

1527
1530
1531
1532
1533
1534

1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1524
1525
1526

/TYPE OUT

7517
3557
1560
0041
7503
1020
4036
7520
5557
3557
0500
6244
0006
0000
1000
0000
5533
3547
7534
3545
7534
0000
0002

1507

20 20

2021

JMP EXIT

TAB

^0i2

/SPECIAL CHAR

2i3 3i

2034
2033
66
^0 37
20 40
2feJ

15 43

1211

15 4 4
15 45

06 4 7

20 51

1546
1547
1550
1551
1552
1553
1554
1555
1556

20 52

15 57

2053
2054
2055
2056
2057
2060

1560

2(i?

204 2
20 4 3

2044
20 45

2046
2047
20t70

2 612

20 72

2073
2074

LF CO OE

o n \j u u c f

GNDTAB
CHAR
,

^:122

2123
2124
2125
2126
2127
2130

tl4PI0 + ^'^7

/Lrri ARROW

1 4 0M +P 1 S

^000 + 176

/Ai T

2000+377
0400+337
3400*233
0400*300

/RUBOUT
/LEFT ARROW
/ALT ESCAPE

/C (C HA R )

/LOC FOR INPUT CHAR
/ABOVE 2 TAGS NOT
/TO BE MOVED

JMP E2
HLT
LIF 2
JMP 20
JMP 12
POP
PHOOE

/EXIT

/AT SIGN

/
/
/
/

1561
1562
1563
1564
1565
1566

7305
0000
0602
6020
7574

7567
7570
7571
7572

6212

CI F

44 21

JMS
JBPXDX

OOEX

DODX

•

00 02

1601
1602
1603
1604
1605
1606
1607

6447
1000
0000
5606
7076
7602
7046
1000
2372
7177
7305
0000
0002

7610
7611
7612
7613

6212
4421
0543
6141

1614
1615
1616
1617

0642
0602
6024

1573
1574
1575
1576
1577
16 00

1620

00 00
06 42

16 22

4012
1012

1623

03 02

1621

/GET OVER
10

0553
6141

READ

LI NC

lmode
JMP XITl

20 75

2076
2077
2100
2101
2102
2103
2104
2105
2106
2107
2110
2111
2112
2113
2114
2115
2116
2117
2120
2121

/APnsTRnpwr

07 00

0000
0000

/TAB

247

^^4 00 +

07 37

1615
0643
3375
3376
237 7
0737
3633

20 61

2062
2063
2064
2065
2066
2067
2070
2071

1000+211

TABLE

LD A
0

STC P2T
JMP DECODE
JMP ,2
JMP XITERR
LOA

£6+1+2000
JMP U2+3
JMP E2
P2T,

ECON,

POP
PMODE
GIF
10
JMS
READ
J8FC2
LINC
LMODE
LOF
2
LIF
2
JMP FCSA+4
I

AATTY3, 0
GOODY,
LOF
STC
LOA
HOR

12
12
2

INTO

2131
2132
2133
2134

1624
1625
1626

1560
7776
1120

2135
2136
2137
2140
2141
2142
2143
2144
2145
2146
2147
2150
2151
2152

7627

4421

1630
1631
1632
1633
1634
1635
1636
1637
1640
1641
1642
1643
1644
1645
1646
1647
1650
1651
1652
1653
1654

t>661

2153
2154
2155
2156
2157
2160
2161
2162
2163
2164
2165

2166
2167
2170
2171
2172
2173
2174
2175
2176
2177
2200
2201
2202
2203
2204
2205
2206
2207
2210
2211
2212
2213
2214
2215
2216
2217
2220
2221
2222
2223
2224
2225
2226
2227

7655
7656
7657

BCL

ADA

BSE

1020
0110
5702
1020
7410
5701
0641
0602
2012
5700
0017
0006
0000

STC
LOA
COM
BCL

1702
1703
1704
1705

0110
0000
0000
0001

GTOUT
12
3

GCORE
12
I

-4000
ROL
ADO
STC

GCLOC.

XSK I
POP
PMOOE
TAD
TAD
OCA
CIF
JMS I
GCTWO
LINC
LMODE
LDA I
DISKS
STC
LDA
-WA*1
STC
LDF
LIF
ADD
STC
COM
DJR

GCORE
GCORE
12

WATAG
GTOUT
GTOUT
10

READ

GCTW0&1777

0
/

7410

7701

GCL0C41777

02 32

1664
1665
1666
1667
1670
1671
1672
1673
1674
1675
1676
1677
1700

READ

-3

0002

7660
7661
7662
7663

PMOOE
JMS I
LMODE
STC
UDA
BCU I
^777
STC
LOA
ROL
BCL I

1032
1560
7000
5704
1012
0243
1560
7774
1620
0004
5/03
1012
0017
1560
3777
0243
3703
5703

1301
1304
3304
6212
4421
7702
6141

-1

WATAG,

PMODE
-WA
LMODE

GCTwOf
GCORE,
GTOUT,

DISKS
0
0
1

/
/
/
/

WATAG«1777
1

12
,*3

/GET WORKING AREA POINTER,

2230
2231
2232
2233
2234
2235

/
/
/
/
/
/
/
/
/

22 36
22 37

2240
2241
2242
2243
2244
22 45
22 46

2247
22t30

2251

2253
2254
2255
2256
2257
22 60

2261
2262
2263
2264
2265
2266
2267
2270
2271
2272
2273
2274
2275
2276
2277
2300
2301
2302
2303
2304
2305
2306
2307
2310
2311
2312
2313
2314
2315
2316
2317
2320
2321
2322
2323
2324
23 25

2326

17 06

1707

7710
7711
7712
7713
7714
7715
7716
7717

7305
0002

ZERO,

JMP
POP

PMODE
CLA CMA
10
OCA
ZM7000
TAD

72 40

3010
1362
3011
6211
3410
2011
5315

DCA
CDF
DCA
ISZ
JMP

11
10
1

10
11

.-2

/THIS IS THE ZERO BINARY ROUTINE, 00 AN EX,
/GET OVER INTO 8 MODE
/TEL ASSY WERE IN 8 MODE
/PREPARE TO ZERO UPPER CORE
/0-1
/ZERO OUT 7000 WORDS OF UPPER CORE
/SAVE IN A COUNTER
/SET THE DATA FIELD TO POINT T UPPER CORE
/ZERO A WORD OF CORE
/DONE?
/NOPE, LOOP

7720
7721
7722
7723
7724
7725

6201
6212
4422
7740
6212
4422

77 26

77 44

7727
7730
7731
7732
7733
7734
7735
7736
7737

6212
4422
7752
6212
4422
7756
6212
5737
7777

CDF
GIF
JMS
2P1
CIF
JMS
2P2
CIF
JMS
ZP3
CIF
JMS

10
I

10
1

WRITE

10
.+1

CAN02B* CIF

2P1,

111
20
0

16
/
/
/
/

7744
7745
7746
7747

0111
0020
0016
0016

111
20
16
16
/
/

«7752
/

7752
7753
7754
7755

0111
0020
0034
0004

WRITE
10

0111
0020
0000
0016

ZP3,

111
20

16*16
40-16»16
/
/

FOR THE WRITE

WRITE

2P 4

JMP
7777

10
!

/
/

7740
7741
7742
7743

WRITE

/RESET THE DATA POINTER TO FIELD
/SET THE INSTRUCTION FIELD TO 1
/WRITE AND ZEROTHE OUTPUT AREA

/BINARY AREA SHOULD NOW BE ZERO
/SET I,F. TO UPPER CORE FOR ONE MORE CALL
/NOW ZERO OUT THE BIT MAP,
/POINTS TO THE BIT MAP
/NOW REBOOTSTRAP DIAL

2327
2330
2331
2332
2333
2334
2335
2336
2337
2340
2341
2342
2343
2344
2345
2346
2347
2350
2351
2352
2353
2354

7756
7757
7760
7761

0111
0020
0057
0001

2401
2402
2403
2404
2405

2406

/TELL ASSY WERE IN LMODE

/
/
/

/
/
/
/

/
/
/

/
/

/
/
/
/

1762
1763
1764
1765
1766
1767
1770
1771
1772
1773
1774
1775

1000
1771
1660
0020
1520
4444
5771
0456
6000
0072
1776
6000

24 07

2410
2411
2412
2413
2414
2415
2416
2417
2420
2421
2422
2423
2424
2425

LMODE

/
/

23 61

24 00

/POINTS TO THE BIT MAP,
/ONE BLOCK PGR THE BIT MAP

23613

2377

/
/

2356
2357

23 74
23 75
23 76

111
20
57

/
/
/
/
/
/
/

23 55

2362
2363
2364
2365
2366
2367
2370
2371
2372
2373

ZP4.

JBTMT.

LDA

J8TMTS
BCO
20

SRO I
4444
STC
JBTMTS* SKP
JMP
SET
I

0000
0000

JB
0

JBNULO
JHP
/
/
/

1776
1777

/GET THE SWITCH IN THE AC.
/COMPLEMENT THE SKP BIT NOW,

J8NUL0,

0
0

/
/
/
/

/
/
/
/
/

PMOOE

/TEST FOR 12 TIMES THROUGH
/ONE IN SIX COUNTER
/SAVE AWAY NEW ONE
/SKIPS SOMETIMES
/RETURN SOMETIMES
/SET CURSOR TO DISPLAY BLANKS.

2426
2427
2430
2431
2432
2433

/
/

ZM700(3=JBTMT

if4 34

/
/

24 35

2436
2437

244t1

2441
2442
2443
2444
2445
2446
2447
2450
2451

»7750
/
/
/

7750
7751

,-1

7747
7751

LMODE
/

24 52

2453
2454
2455
2456

/
/

EJECT

/LOA IS

106)0

WHCIH IS -7000

24^>7

2460
2461

24 62

2463

24 64
246i>

CHAIN

"EDITORS"

0000
0001

0002

/
/

00 03

mjdA

/
/

00 05

0006

t?007

0010
0011

0fe512

0013
0014
0015
0016
0017
0020
0021
0022
0023
0024
0025
0026
0027
0030
0031
0032
0033
0034
0035
0036
0037
0040

00 41

SEGMNT
/
/

«10
/
/

0010
0011
0012
0013
0014

7774
0100
0000
0010
0010

0020
0021
0022
0023

6022
6027
0647
07 00

0042
0043

00 24

6322

0025

07 00

00 44

00 26

7323

0045
0046
0047
00 50
00 51

00 52

0053
0054
0055
0056
0057
0060
0061
0062
0063
0064
0065
0066
0067
0070
0071
00 72
00 73

0074
0075
0076
0077
0100

BTREAD, 7774
BTREC,
DISKO

/ADDRESS or THE READ ROUTINE,

0
DI ALST*10»300

TEMPI,
TEMP2,
TEMP3,
TOPPTR
CURPT2,
,

*20
JMP
JMP
LOF
ROC

.2
PASTL
7

6\SETUP1
RDC

7\S£TUP2

0027
0030

0640
0002

40 31

4032
4033

6212
4610
4011

4034

6141

00 35

0600
7033
6053
7042
0600
6770
6053
1020
5262
1062

PASTL*

LDF
POP
PMODE
CIF
JMS I

8TREA0

BTREC

/READ IN THE REST OF DIAL

0036
0037
00 40

0041
0042
0043
0044
0045
0046
0047
00 50

0051

0052
0053
0054
0055

RETEX,

CLWA

/RTN FROM EXIT

/CLR THE WA

10 20
60 4 3

1062
7042
0046
0000
0002

LINC
LMODE
LIF 0
JMP OLDPTR
JMP INBUr
JMP CI
LIF 0
JMP IMPTRS
JMP INBUF
LOA I
5262
STA
2
LOA I
60 00+CR
STA
2
JMP 01
SET
6
I

INBUF,

POP
PMODE

/SAVE RETURN

4057
4060
4061

6212
4421
0567
6141

0106
0107
0110
0111
0112
0113
0114

0062
0063
0064

6771
0011
4351

00 65

00 02

4066

1275
3676

01 lb

4070
4071
4072
4073

12 75

0074

6006

4075
4076
4077
4100

0513
0506
0507
0502

0101
0102
0103
0104
0105
0106
0107
0110
0111
0112

1020
4000
1140
0026
1020
0047

01 13

63 72

0114
0115
0116
0117
0120
0121
0122
0123
0124
0125
0126
0127
0130
0131
0132
0133
0134
0135
0136
0137
0140

6166
6310
6013
1020
0001
1440

01 41

44 51

0142
0143
0144
0145
0146
0147

4146
6176
6152
1020
0000
0450

Z101
0102

0104

40 56

010t>

0116
01 17

0120
0121
0122
0123
0124
0125
0126
0127
0130
0131
0132
0133
0134
0135
0136
0137
0140
0141
0142
0143
0144
01 45

0146
0147
0150
0151
0152
0153
0154
0155
0156
0157
0160
0161
0162
0163
0164
0165
0166
0167
01 70
01 71

0172
0173
0174
0175
0176
0177

40 67

3677
3700
6141

13 62

0053

GIF
JMS

READ

U NB UF
I

LINC
LMODE
INITLF
JMP
CLR
STC PLAFLG
PUP
PMOOE
TAD KHERE
OCA I KBDIN
TAD KHERE
KBDOUT
DCA
KCTR
OCA
LINC
LMOOE
6
JMP
PHODE
HERE
PTRIN
KBOIN,
KBDOUT, PTROUT
CHRCTR
KCTH»
LMODE
TBT0W8, LOA 1
H8IT
ADM
CURPT2
LOA I
I

/RETURN

/INSERT TAB

ACTOWB, STH 1 2
SET 13
CHKBUF

/CHK

INPUT BUFRS

6352

JMP
JMP
JMP
JMP
JMP
LOA

CHKWBF
WBFULL
CHKPLA
PLAFUL
13

/DELETE CUR LN

SAE

04 51

MAXLN

6125
6041
1440
0447
6131
7044
1302
1460
0043
6143
1020
7776
6504
2451

JMP .+2
CLWA
JMP
SAE

CURLN
JMP ,+2
JMP Cl+2
LDH 2
SAE I
CR

JMP
EOBLDP, LOA

EOBPST
I

-1

EOBPST,

EOBWRDi

JMP
ADD
STC
STC
JMP
JMP
LOA
0

AZE

EOLFIX+2
MAXLN
MAXLN
E08WRD
NOTOK
Kl
I

0200

0150

02 01
02 02
02 03

01t>l

0204
0203
0206
0207
0210
0211
0212
0213
0214
0215
0216

6135
7042

JMP
JMP CI

EOBLOP

0152
0153
0154
0155
0156
0157
0160
0161
0162
0163
0164
0165

0050
0000
6551
1020

Kl .

77 76

MINUSli -1
JMP CHKPLA+2
STC PLACTR
JMP BUl^B
JMP Kl*2
SET 3

6170
4171
6611
6154
0043
0002
6010

SET 10
0

JMP CHKW8E
LDA I

02 33

0234
0235
0236
0237
0240
0241
02 42
02 43

0244
0245
0246
0247
02 50
02t>l

0252
0253
0254
0255
0256

0166
0167
0170
0171
0172
0173
0174

0175
0176
0177
02 00

0201
02 02

0203
0204
0205

1020
0001
1160
0000
0450
0220
3072
6000
0011
4742
4203
6000
1520
7777
0220
6000

JMP 10

CHKPLA, LDA
PI #

ADM

PLACTR,

NO TOK,

TPCHK.
TPFLG.

A2E
XSK I 0
ADD P1000
JMP 0
/TAPE NOT OK
CUR
STC X2*5
STC
TPFLG
JMP 0
SRO
7777
XSK I 0
JMP 0

/YES

/CLEAR META EXIT

/OK IF ONE
/OK
/NOT OK

/MONITOR COMMAND
/CHECK
0206
0207
0210
0211
0212
0213
0214
0215
0216
0217

0603
6255
6611
6152
7042
0000
2167
1040
0213
4234

CHKMC,
DELMC,

KT4,

LIF
JMP
JMP
JMP
JMP

CHKMC3
euw8
Kl
CI

LOKATE, ADD PI

/LOCATE REQUEST

ST A

KT4
STC M4

0220

6611

JMP BUWB

0262
0263
0264
0265
0266
0267
0270

6152
0011
2447
0017
1200
0213
6202
7675

02 71

02 31

04 72

0272
0273
0274

0232
0233
0234
0235
0236

7711
1020
0000
0017
4242

JMP
CLR
ADD
COM
LAM
KT4
JMP
JMP
L2E
JMP
LDA

0276

/IS PLAYGRND FULL
/NO

0260

02 75

/COUNT PLAYGRND
/DECREASE
/COUNT BY ONE

0221
0222
0223
0224
0225
0226
0227
0 230

02157

02 61

/CHK WB EMPTY

02 17

0220
0221
0222
0223
0224
0225
0226
0227
0230
0231
0232

/GO DISPLAY

M4.

CURLN

TPCHK
S4
I

/CHK TAPE STATUS
/NOT OK
/OK

L4
I

/REQO LINE

COM
STC

/DELETE REST OF
/MONITOR COMMAND
/DEL 1 CHAR
/FROM WB
/DELETE UNTIL DONE

0277

\0C.\3 f

03 02
03 03

02 40
02 41
02 42
02 43

0304
02 45

03 055
03 06

0246

10010/

1 *i /

CLR
ADO MAXLN
LAM
0017
LDA

00 11
24 51
^

1
JLC 501
£.]0

0017
10 00
04 51
04 72
42 34
7711

MAXLN
L2£ I
STC M4
JMP L4
/I nr
AT F run
r n U
Utf AIL
/L
/r un o Arc

0311
03 12

02 50

o J. o

0251

ic;

wo l*t
03 16

1 0(
lie)

M Dl

IDA

1 547

LNSPER
ADD MINUSl

V>1 >^/S

0253

0450

02 54

62 57

02 55

AHE
JMP F4*2

/FWD LN

0317
03 20

0321
0322
0323
0324
0325

0256

0011
2167

02 57
02 60

42 13
00 50

0261
0262

0203
6267
1000
0010
4203
7042

03 26

02 63

0327
0330
0331
0332
0333
0334
033b
0336
0337
0340
0341

0264
0265
0266

03 42

0267
0270
0271
0272
0273

6300

03 01

0347

0302
0303

03 5t>
03 56

0357
0360
0361
0362
0363
0364
0365
0366
0367
0370
0371
03 72

0373
0374
03 75

03 04

0305
0306
0307

1140
0213
6433
6352
6372

CLR
ADD PI
STC KT4
SET 10

/TAPE STATUS

TPFLG
JMP H4
LDA
10

STC TPFLG
JMP CI
H4 (

/GO DISPLAY
/SLIDE FWD

SET 13
0

JMP A3
JMP 13
JMP CBTO

6013
6474

65 02

03 46

64 46

02 75
02 76

0277
0300

03b2
0353
0354

0053
0000

0274

0343
0344
034b

03 50
03 51

/rwFTK
MAy
' u nc ui\
n«A

JMP J4
JMP EOLFIX
ADM

/IS MAXLN=CURLN ?
/YES RTN
/NO TRANSFER 1
/CHAR FROM CB TO WB
/RTN HERE IF NON CR

KT4
J4 1

10 00
02 13
04 50

6271
6013

JMP
JMP
JMP
LDA
KT4
AZE
JMP
JMP

C8MT
CHKWBF
WBFULL

H4 + 2
13

/PLAYGRNO FULL
0310
0311
0312
0313
0314
0315
0316
0317
0320
0321
0322
0323
0324
0325
0326
0327

00 57
00 00

6446
6017
6622
2705
4461
2167
4351
0054
0002
1324
1420
0000
6334
13 62

PLAFUL.

SET 17
0

JMP
JMP
JMP
ADD
STC
ADD
STC
SET

F3
PI

PLAFLG
14

4
LDH
SHD
EOFl
JMP S3
STH I 2
I

/YES

B6WRC
BBTBLK

R3.

/MAXLN=CURLN

A3
17

/WRITE IT OUT
/AC IS 2ER0 ON

{Till A

0377

0 3 30
03 31

6433
6352

0 4 00

0352

00 16

04 01

03 33

0402

0334

6323
1362

04 03

03 35

66 35

0404

0336

04 05

03 37

0406
0407
0410
0411
0 412
0413
0 414

0340

6671
0042
0014

03 41

24 54

0342

4770
4351
6 456
1020
0700

03 43

034 4
03 45

0346

04 15

03 47

66 50

0416

0350
0351

6017
0000

04 24

0352
0353
0354

0055
0000
0220

04 25
04 26

03 55
03 56

10 20
73 77

JMP
JMP
NOP
JMP
STH
JMP
JMP
SET

S3,

CBMT
CHKWBF
R3
1

WBWRC
88FWD
2

T3,

PLAF LG

/NOTE

ADD
STC
STC
JMP
LDA
RDC
JMP
JHP

MA XBLK

CURBLK
PLAFLG
F3-3
I

WAUNIT
MB RDC
17

04 20

0421
0422
0423

0427

1440

04 30
04 31

01(71

CHKWBF,

SET 15
0

XSK
LOA

H8IT+CB-1
SAE

0361
0362
0363
0364

6000
6635
6671
6176

04 35
04 36
04 37

03 65

00 62

0366

till

03 67

64 46

0440

0370

04 41
04 42
04 43

03 71

4770
6015

JMP A3
STC CURBLK
AAA4S2, JMP 15

04 44

03 72
03 73

0055

WBFULL#

0432
V5*} <io

0434

0445
0446
0447
0450

0451
0452

0374
0375
0376
0377
0400

04 53

04 01

0454
0455
0456

0402
0403
0404

04 57
04 60

04 05

0461

0076
2777

0463
0464

0406
0407
0410
0411

04 65

04 12

00 72

0466
0467
0470

0413
0414
0415
0416
0417
0420
0421

04 62

04 71

0472
04 73

0474

/MS INPUT ROUTINES
/CHK WB FULL
/RTN JMP
/TO P*l
/RTN TO P+2

JMP 0
JMP WBWRC
JMP BBFWD
JMP NOTOK
SET I 2
MBIT WB-l

/IF WB IS NOT FULL
/DO STRING SLIDE

/TAPE NOT OK
/WA FULL
/WB FULL FIX
/BPL AND BB

SET 15
0

1020
IZll
2026
4026
2375
2003
4003
2447
1045
0225

LOA I
*400
ADO CURPT2
STC CURPT2
ADD .-3
ADD 3
STC 3
ADD CURUN
STA 5
XSK I 5
SET
16
W8=l
SET
14
BB-1
SET I 12
-400
LOA
16
STA
14
XSK I 12
JMP
LDA

/WB TO BB

miA
2377
7377
10 36

1074
0232
6414
1000
0005

I
I

047!?
04 /6
iJ477

0501
0502
0503
0504
0505

0422
0423
0424
tM25
0426
i3427

1460

SAE

23 71
60 15

E6+2000
JMP 15
LOA
JMP NOTOK
TPSTAT
STC
SET I 5
06+2000
JMP 15

1020
6176
4523

04 30

00 65

0431
0432

2243
6015

0507
0510
0511
0512
0513
0514
0515
0516
0517
0520
0521
0522
0523
0524
0525
0526
0527
0530
0531
0532
0533
0534
0535
0536
0537
0540
0541
0542
0543
0544
0545
0546
0547
0550
0551
0552
0553
0554
0555
0556
0557
0560
0561
0562

0433
0434
0435
0436
0437
0440
0441

0055
0000
1000
0004
0450

05 63

0502
0503
0504

/YES
/MAKE TAPE ALWAYS
/NOT OK
/TO START
/OF CNTRL TABLE
/CHK CB EMPTY

05 06

0564
0565
0566
0567
0570
0571
0572
0573

/IS CNTRL TABLE
/FULL ?

CBMT,

SET 15
0

LDA

/BETA

/IS CB PTR

60 00

JMP

0443
0444
0445

6707
6715
0064
7377
6015

JMP CBFWD
JMP CBRDC
4
SET

0446

1020

04 42

/CB IS EMPTY

HBIT+CB»1
JMP 15
/CHK CONTINUATION

04 47

0450
0451

1460
0000

LDA

A3,

CURLN.

SAE

MAXLN.

XSK
LDA

04 52

02 20

0453
04 54

1020
0000

0455

60 00

JMP

0456
0457
0460
0461
0462
0463
0464

0055
0000
1020
0000
1440
0705
6466
6541
1040
0705
4664

SET 15

MAXBLKi

/BIGGEST USED
/IN WA

0
0

/FIX BNS

04 65

0466
0467
04 70
04 71

LDA
F3,

2705
6534

04 74

1324
1362

/BQBN SAVED

SAE

BBTBLK
JMP ,*2
JMP V3-4
STA
BBTBLK
STC WBTBLK
JMP BBROC
ADO BBTBLK
JMP V3-11

66 77

0472
0473

0475
0476
0477
0500
0501

CBTOWB

14 20

4300
0220
6000

IDH
STH
SHO
CRl
XSK
JMP

LOA

/ROC CQ
/CB TO WB

/EOL FIXES

05 05

0506
0507
0510
0511

1020
0001
2447
4447
0043
0002
2156
6000

EOLFIX,

ADD CURLN
STC CURLN
SET 3
2

ADD MINUSl
JMP 0

/MAKE TAPE OK

0512
05 75

05 13

0576

0514

rxc;

00 5 5
00 00
00 4 4
00 02

0600

0516

1020

06 i51
06 02
06 03
86 04
06 05
06 06

051

00 00
13 6 4

vOV) /
Dl A 1 C(
01 A 1 i
luO 11

06 12
06 13
06 14
06 15

0520
05 21
05 22

0523
05 24

0525
05 26
05 27
05 30
05 31

053 2

77 77
42 03
24 4 7
10 4 5
10 20
07 24
66 35

0 53 3

n 'A rx (A

0620
0621

0535
0536

1620
2000
4 723

06 2
06 23

05 37
05 4 0
05 41
05 42

6715
1020

0543

2002

LOA
EOF
STH
LOA

iOO £ /

05 44

40 04

06 31

0546

67 7 7

1020

77 77
TP ST AT

)

TPFLG

STC

ST A
LD A

WHC
WAUNIT
JMP
WBWRC
ADD B8TBLK

WH #

ST A
C n T ti

SPTBLKw
1

BSE

2000
STC CBTBLK
JMP CBFMD
JMP CBRDC
LDA
I

P4 00

40 0

ADD 2
STC 4
LOA I
HB IT+WB-1
STC PLACTR
JhP CHKWBF+15

V3 ,

06 3 2

05 47

0550

4171
6367

06 35
06 36
06 37
06 40
06 41

05 51

00 55

0552
0553

0000
1020

05 54
05 55

H8IT*WB-1

0556
0557

67 77
14 40
00 02
60 00

06 43
06 44
06 45
0646

0647

/CHK MB EMPTY

06 53
06 54

CHKW BE

SE T 15

LOA

SAE
2

JMP 0
JMP 6BWRC
LDA

05 60

6622

0561
0562
0563

7776
6673

0565
0566
0567

2717
6650
0062

JMP
JMP
ADD
JMP
SET

05 70

73 77

HBIT*CB-1

0571
0572
0573
0574
0575
0576

ADO
STC
ADD
ADD
STC
ADD
ADO
STC
JMP

BUCBWB. LDA

10 20

6677

0651
0652

/DIAL POST VERSION TWO PATCH 2/19/70

0633
0634

0642

/THIS LOCATION CHANGED TO JMP NOTOK
/WHEN TAPE NOT OK

ADD CURLN

0/ 0/

04 00

St T
2

2705
1060

0534

06 25
06 26

SET 15

1020

0 616
061

ie?

0655
0656
0657
0660
0661
0662
0663
0664

0600

06 65

06 01

0666
0667
0670
0671
0672

0602
0603
0604

2005
1460
2243
2156
4005
2542
2025
4025
2542
2026
4026
6367

0605

1020

05 77

-1

ADO
SAE

8BBWD
B8RDC
CBROC+2
WBRDC
I

/RTN WITH -0 IN AC

5
I

/CNTRL TABLE NOT MT

06 4-2000

MINUSl
5

P400
TOPPTR
TOPPTR
P4 00

CURPT2
CURPT2
CHKWBF+15
/LOWER PSA.PFA
I

067>5

0674
067S
0676
0677
0700
0702
070s5
07 04

0705
07 06

0707
0710
0711
0712
071.5

0714
0715
0716
0717
0720
0721
0722
0723
0724
0725
0726
0727
0730
0731
0732
0733
0734
0735
0736
0737
0740
0741
0742
0743
0744

0606
0607
0610
0611
0612
0613
0614
0615
0616
0617
0620
0621

3777
2004
4004
1020
3777
2002
4002
1302
1420

-HBIT
ADD 4
STC

dU^B

LDA
-HBI T
ADD 2
STC 2
LDH 2
SNO
CRl
XSK
JMP 0
I

43 00

0220
6000

/STRING SLIDES
/WB FWO OR BUD
0622
0623
0624
0625
0626
0627
06 30

0631
0632
0633
0634
0635
0636
0637
0640
0641

0642
0643
0644
0645
0646
0647
0650

1000
0705
4633
0603
0006
1020
6632
7620
0/04
0000
6000
0051
0000
1020
0001
1440
0351
6622
0040
0011
1020

LI F

DJR
LOA
JMP
JMP
G0(
WRC WAUNIT
!

WBV^RCi

JMP
SET

LDA

SAE

PLAFLG
JMP B8WRC
SET

LDA
WRC WAUNIT
STC .+13
1

WT,

4663

W8R0C,

06 53

0652

LDA

B8TBLK
STC ,*7

07 04

1020
1001
1140

06 51

BBMRCi

LOA
1001
ADM

/SOMETIMES COMES HERE
/WITH ROC IN AC
/AOO 1 TO
/M8LK AND TBLK

0654

06 64

,*10

07 45

06 55

0656
0657
0660
0661
0662
0663
0664

STC MAX8LK
LIF
3
DJR
LDA I
JMP
GDI
JMP

/WA TBLK

0746
0747
0750
0751
0752
0753
0754

4454
0603
00 06
1020
6663
7620
0000
0000
1000
0705
4664
6000

/TAPE INSTRUCTION
/MBLK6\TBLK

AAA7S2.

STC .«3
JMP 0

10 20

BBFWD,

LDA

07 55

06 65

0756
0757
0760
0761

0666
0667
0670

07 62

0671
0672

0763

MBT8LK.

LOA

BBTBLK
/8B ROC FWD OR BWD

0001

/SOMETIMES COMES HERE
/WITH -1 IN AC

07 64
07 65

0766
0767
07 70

0771

0673
0674
0675
0676

1140
0705
4664
60 00

BBBWO.

ADM
.

+ 11

STC WBT8LK
JMP 0

/ADD +0R-

TO TBLK

0772
0773
07 74
07 75

0776
0777
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014
1015
1016
1017
1020
1021
1022
1023
1024
1025
1026
1027
1030
1031
1032
1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
1050

0677
0700
0701
0702
0 7 03

0704

0603
0006
1020
6704
7620
0700

BBRDC,

JMP
JMP
RDC

GOODY
WAUNIT

070!?

0706

6000

0707
0710

1020
0001

CBFWDi

0711
0712
0713
0714

1140
0723
4733
6000

CBBWD»

ADM
CBT8LK
STC TBLKCB
JMP 0

071b
0716
0717
0720
0721
0722
0723
0724

0603
0006
1020
6722
7620
0700
0000
6000

CBRDC»

LIF
3
DJR
LDA I
JMP
,2
JMP
GOODY
ROC WAUNIT

0725
0726
0727
0730
0731
0732
0733
0734
0735
0736
0737
0740

0603
0006
1020
6732
7620
0704
0000
6000
0041
0300
6611
6152
1520
0000
6747
1020
7777
4742
0002

0741
0742
0743
0744
0745

0746
0747

BBTBLK,

JMP

LDA

/CB FIX
1

/SOMETIMES COMES HERE
/WITH »1 IN AC

/FWD

CBTBLK,

/MBLK7\TBLK

JMP 0

/CB WRC BWO

10 51

47 50

1052
1053
1054
1055
1056
1057

4751
4752
4753
4754
4755
4756

6212
4422
0567
6212
4421
0563
6141

0757
0760
0761
0762
0763
0764
0765
0766

0600
7010
1000
0001
4767
0641
0603
0006

CBWRC,

LIF
3
DJR
LDA
JMP
,+2
JMP
GOODY
WRC WAUNIT
I

TBLKCB,

/MBLK7\T8LK

X2.

JMP 0
SET 1

/MC EXIT

JMP BUWB
JMP Kl
SRO I
0

JMP WP
LDA
I

-0

WP,

STC .-4
POP
PMODE
CIF
JMS
01 NBUF
CiF
JMS I
WRL2
I

WRITE
10

READ

LI NC

10 60

1061
1062
1063
1064
1065
1066
1067
1070

LIF

OJR
LDA

LMODE
XI T2,

LIF 0
JMP OUTPTR
LDA
1

STC RJMP
LDF 1
LIF 3
OJR

1071
1272
1073

07 67

00 00

0770

6370

RJMP,
CUR8LK
/

107b

/
/

li576

0771
0772
07 73

1020
0212
0500

INITLF

11 43

1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
1156
1157
1160
1161
1162
1163
1164
1165
1166
1167

LDA
212

lOB

PMOOE

11 a2

1103
1104
1105
1106
1107
1110
1111
1112
1113
1114
1115
1116
1117
1120
1121
1122
1123
1124
1125
1126
1127
1130
1131
1132
1133
1134
1135
1136
1137
1140
1141
1142

6\WA

1^-74

1077
1100
1101

0
.

4 77 4

60 4 6

TLS

07 75

0641
6000

LMODE
LOF
JMP

0776

/
/

0777
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013

1020
3777
1140
0010
1460
0000
6000
0220
1310
1460
0043
6000

BUIC

LDA

-HBI T
ADM
10

SAE
05,

JMP
XSK
LOH
SAE

10
I

JMP
JMP

75 76

BYALN

/
/
/
/
/

1014
1015
1016
1017

0047

CRSET,

SET

00 00

1020
0001

LDA

10 20

24 47

1021
1022
1023
1024
1025
1026
1027
1030
1031
1032
1033
1034
1035
1036
1037
1040
1041
1042
1043
1044

4447
2167

ADD CURLN
STC CURLN
AOD PI
ADD MAXLN
STC MAXLN
JMP CHKBUF
LDA
MA XLN
A2E
EOBERR
JMP
LDA

24 51

04 51

7531

4451
6110
1000

0470
7037
1020
1311
2770
0451
6007
2167
4146
6117
0066
7607

/UPDATE CR
/ARGUMENTS

2000«MAEND
ADD
CUR8LK
EOBERR

CI,

ARC
JMP 7
PI
AOD
EOBWRD
STC
JMP
Dl
6
SET
-M AXNUM
JMP DISPLA
I

/GO DISPLAY
/CALLS TO
/ KEYBRO INPUT
/INTERPRETIVE SH

Il7id

1045

0600

1171
1172
1173
1174

10 46

7174
7531
0600
7262
7531

1175
1176
1177

izm
1201
1202
1203
12 654

1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1220
1221
1222
12 23

1224
1225
12 26

1227
1230
1231
12 32
12 33

1234
12 35
12 36

1047
1050
1051
10b2
1053
1054
1055
10 56

1057
1060
1061
1062
106J
1064
1065
1066
1067
1070
1071
1072
1073
1074
1075
1076
1077
1100

1101
1102
1103
1104
11 05

1106
1107
1110
1111
11 12

06 00

7312
7531
0600
7322
4022
61 01

0226
0456
4022
7256
7071
06 00

/572
7202
1000
0022
6107
7761
7256
7102
1323

7160
1327

60 00
73 51
77 61

11 21

20 26

1246
1247

1122
1123
1124
1125
1126
1127
1130
1131
1132
1133
1134
1135
1136
1137
1140
1141
1142

4026
7112
4010
6101
0230
7125
1020
0057

1255
1256
1257
1260
1261
1262
1263
1264
1265
1266

1000
0006
0450
70 44

3251

06 40

1040
3374
0641
7064
6101
7102
7246
7160

/INSERT

CHAR

UP6#

CRLOW,

3700
6206

12 45

12 53
12 54

14 20

1113
1114
1115
1116
1117
1120

12 50

7044
02 26
70 44

1237
1240
1241
1242
1243
1244

1251
1252

LIE 0
JMP A88
ALTSET, JMP OISPLA
LIE 0
JMP ALTR£Q*2
EDSET,
JMP OISPLA
LIE 0
JMP CHKED+2
SUBSET. JMP 01 SPLA
LIE 0
JMP SUBCHR+2
STC TEMPI
JMP TBTOWB
XSK
6
SKP
REGGHR STC TEMPI
JMP CHKPOS
+ 3
JHP
LIE 0
JMP CHKCNT
JHP INSERT
P1000,
LOA
TEMPI
JMP ACTOWB
JMP CHKNOK
JMP CHKPOS
JMP UP6
3
LDH
UP3,

RUB,

JMP
XSK
JMP
JMP
LOH
SHD
LEI
JMP
JMP
JMP
JMP
LUA

/PTR TO 1ST CNR
/ON CUR LN

Cl + 2
I

/CHAR CTR CUR LN

Cl*2
ACR2
I

/CR ON CUR LN

CHKMC
0

ROACHR
CHKNOK

/RUB OUT

CHAR

AHE
JMP
ADO
ADO
STC
JMP
COMRTN, STC
JMP
XSK
JMP
LOA
KOM
LDE

Cl*2
MHBI
CURPT2
CURPT2
HUB
10

TBTOWB
10
1
r-2
I

ST A

2000+COMElG
LDE
JMP
CMARTN, JMP
JMP
ACR,
JMP
JMP

REGCHR
TBTOWB
UP6

CHKENO
ACR2

/HERE EOR CR

1267
1270
1271
1272
1273
1274
127b
1276
1277
1300
1301
1302
1303
1304
1305
1306
1307
1310
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324
1325
1326
1327
1330
1331
1332
1333
1334
1335
1336
1337
1340
1341
1342
1343
1344
1345
1346
1347
1350
1351
1352
1353
1354
1355
1356
1357
1360
1361
1362
1363
1364
1365

1143
1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
11 &6

1157
1160
1161
1162
1163
1164
1165
1166
1167
1170
1171
1172
1173
1174
1175
1176
1177
1200
1201
1202
1203
1204
1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1220
1221
1222
1223
1224
1225
1226
1227
1230
1231
1232
1233
1234
1235
1236
1237
1240
1241

4007
1020
0043
1427
7044
1427
0456

STC
LDA

7
I

7160
1000

7
SHD
JMP 01*2
SHD I 7
SKP
JMP ACR2
LOA

00 07

7250
7160
7044
1020
0043
4022
7202
1000
0022
1362
7761
0047
0003
7256
7177

JMP CHKENO*
JMP ACR2
JMP Cl*2
LOA I

74 47

7014
7044
7447
7105
7175
0057
0000
7246
6017
1120
4000
1440
0002
0456
6017
1040
0012
4007
1332
4023
1000
0002
1440
0012
0456
7237
1332
4024
2023
1352
1000
0024
4023
7221
1000
0022
1367

ACR2,

STC TEMPI
JMP INSERT
LOA
TEMPI
STH I 2
JMP CHKNOK
SET 7
3

JMP CHKPOS
JMP .*4
JMP SET6N3
JMP CRSET
CRHI
JMP Cl*2
JMP SET6N3
JMP CRLOW
JMP CRHI
INSERT, SET 17
.

JMP CHKEND
JMP 17
ADA I
MBIT
SAE
2

SKP
JMP 17
ST A
12

STC 7
12
LDH
STC TEMP2
MAKGAP, LDA
I

SAE
12

OUNGAP

SKP
JMP DUNGAP
LDH I 12
STC TEMP3
ADD TEMP2
STH 12
LOA
TEMP 3
STC TEMP2
JMP MAKGAP
LDA
TEMPI
STH I 7

/CR ABOVE
/CUR LN

/INSERT CHAR
/OVER CURSOR

13 66

12 42

1367
li70
1371
1372
1373
1374

1243
1244
1245
1246
1247
1250
1251
1252
1253
1254
1255
1256

13 75

1376
1377
1400
14 01
lAd'd

1403
1404
1405
1406
1407
1410
1411
1412
1413
14 14

1415
1416
1417

12 57

1260
1261
1262
1263
1264
1265
1266
1267
1270
1271
12 72

1273

14 20

12 74

1421
1422
1423
1424
1425
1426
1427
1430
1431
1^32
1433
1434
1435

1275
1276
1277
1300
1301
1302
1303
1304
1305

14 36

1437
1440
1441
1442
1443
1444
1445
1446
1447
1450
1451
1452
1453
1454
1455

1000
0023
4022
6017
1000
0026
1120
1440
00 02

0220
6000
1000
0026
0241
0017
4023
1000
0003
0241
2023
0471
0220

XSK
0
JMP 0
LDA

37 77

7246
7044
1020
7306
5366
1020

CURPT2

/NO
/YES
/IS CURSOR
/ON CUR LN

ROL 1
ADD TEMP2
APO
I

RORIT,

OUNRIT

F IXUP*

XSK
JMP
JMP
JMP
LDA
JMP
STC
LDA
JMP

CHKENO
Cl*2

/NO
/YES
/RUB OUT TO
/RIGHT OF CURSOR

DUNRIT
OK-1
I

EXTRUB
STC R0ACHR*3
ADO 0K*1
STC OK -3
JMP ROACHR
JMP ,-1
JMP FIXUP
JMP roachR
JMP CHKNOK
JMP Cl*2
LDA
I

JMP

5366
3464
5364
3401
5354
60 00

7246
4026
1020
0026
5362
1020
7343
5366
1020
7361
5354
7351
1020
3777
2026

/IS CURSOR
/FULL RIGHT

ROL 1
COM
STC TEMP2
LDA

5354
3370
5364
7351
7304
73 12

13 32

CHKPOS,

73 61

7351
7761
7044
1020
7044

1333
1334
1335
1336
1337
1340

60 00

13 06

14 56

ti:mp2

STC TEMPI
JMP 17
CHKEND# LDA
CURPT2
ADA I
MH8IT,
-MBIT
SAE

1307
1310
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324
1325
1326
1327
1330
1331

1457
1460
1461
1462
1463
1464

LDA

ROLEFi

Cl*2
STC 0K»1
ADD RE SET* 4
STC OK-3
ADD N0TACR*2
STC ROACHR+3
JMP 0
JMP CHKEND
STC CURPT2
LDA I

CURPT2
STC OK-5
LDA
JMP DUNLEF
STC OK-1
LOA I
JMP EXTRUB
STC ROACHR+3
JMP ROACHR
LDA
-HBI T
ADD CURPT2
I

OOLEF.

/RUB OUT TO
/LEFT OF CURSOR

146

1.341

14 66

1467

1342
1343

14 70

13 44

1471
1472
1473

1345
1346
1347
1350
1351
1352
1353
1354
1355
1356
1357

14 74

1475
14 76

1477
1300
1501
1502
150*3
15 04

1505
1506
1507
1510
1511
1512
1513
1514
1515
15 16

I5l7
1520
1521
1522
1523
1524
15 25

1526
1527
1530
1531
1532
1533
1534
1535
1536
1537
1540
1541
1542
1543
1544
1545
15 46

1547
1550
1551
I5b2
lb5i
1554
1555
1556
1557
1560
1561
1562
1563

13 60

1361
1362
1363
1364
1365
1366
1367
13/0
1371
1372
1373
1374
1375
1376
1377
14 00

1401
1402
1403
1404
1405
1406
1407
1410
1411
1412
1413
1414
1415
1416
1417
1420
1421
1422
1423
1424
1425
1426
1427
1430
1431
1432
1433
1434
1435
1436
1437

STC CURPT2
JMP DOLEF
LDA I

4026
7335
10 20

DUNLEr

0002
5362
7312
7761

STC OK-5
JMP FI XUP
JMP CHKNOK
JMP CI +2
LDA

70 44

1000
0000
5441
1020
0001
1440
0447
73 67

1000

ROACHR

STC XITRO
LOA I
1

SAE

CURLN
JMP OK
EXTRUB. LDA

00 02

1440
0025
0456

SAE
TOPPTR
SKP
JMP Cl+2
SET 12
OK,
CURPT2
JMP CHKENO
STC 12
LDH 12
SHD
CRl
JMP LASTCR
NOADJ,
NQTACR, JMP CHKEND
JMP ENDRUB
LDA I
-HBI T
ADD 12
STC 1
12
BWDCHR, LDH
STH I 1
LDA

70 4 4

0052
0026
7246
4012
1312
14 20

4300
7502
7246
7414
1020
3777
2012
4001
1332
1361
1000
0001
1440

SAE

00 02

7405
6551
1020
7776
6170
4171
6611
0016
7447
1020
3777
2026
1040
0007
7250
7441
1307
1460
0043
7441
1427

ENDRUB

JMP 8WDCHR
JMP CHKWBE
LOA I
-1

AN OP,

JMP CHKPLA+2
STC PLACTR
JMP BUWB
NOP
JMP SET6N3
LDA
-MBIT
ADD CURPT2
STA
I

JMP CHKEND+2
JMP XITRO
LDH 7
SAE I
CR

JMP
SHD

XI TRO
1

/RUB OUT

CHAR

1 440

Ib64
1363

1441

13 66

14 42

1567
1570
1571
137^

1443
1444
1445
1446

15 7 5

14 47

1574
1575
1576
1577
1600

1602
1603

1450
1451
1452
1453
1454
1455
1456
1457

16 04

14 60

1605
1606
1607
16ia
1611
1612
1613
1614

1461
1462
1463
1464

0456
0000
1000
0007
7250

SKP

XITNO.

IDA
7

7441
7554

JMP CHKEND+2
JHP XITRO
JMP ROACHR
LOA

1467
1470

1000
0000
5501
0050
0002
0061
0000
1322
0456
0221
1000
0002
1440
0025
0456
7471
6611
7460

16 15

14 71

00 43

1616
1617
1620
1621
1622

1472
1473
1474
1475
1476
1477
1500

0002
0042
0010
1020
7607

2001

ADD
STC

16i31

16 23

1624
1623
1626
1627
1630
1631
1633
1634
16 35

1636
1637
1640
1641
1642
1643
1644
1645
1646

14 65
14 66

00 00

1502
1503
1504
1505
1506
1507
1310
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522

0051
0000
1000
1366
1460
7044
7321
1000
0012
1440
0002
0456
7521
0600
7372
1020
7776
2447
4447
3522

15 23

1650
1651
1652
1633
1654

1524
1525
1326
1527
1530

SIC RTNSET
SET 10
2

SET

24 51

4451
6011

LDH
SKP
XSK
LOA

RESET,

SAE
TOPPTR
SKP
JMP .3
JMP BUWB
JMP RESET
SET 3
SET

LOA

-HAXNUM

40 06

15 01

16 47

SE T6 N3

RTNSET
0
LASTCR. SET 11
,

LDA
SAE I
JHP 01*2
JMP NOCNT
LOA
12

SAE
2

SKP
JMP NOCNT
LIT 0
JMP CHKCNT
NOCNT,

LOA

-1

ADD
STC
ADD
ADD
STC
JMP

CURLN
CURLN
,»3

HAXLN
MAXLN
11

16 55
16 56

1657
1660
1661
1662

1531
1532
1533
1534

0057
0000
0603
7067

DISPLA. SET 17
0

Lir 3
JMP KSAM7

/DISPLAY
/ONCE PER ENTRY
/SAVE RTN JMP
/SET INITIAL
/SCOPE ARGUMENTS

1663
1664
1665
1666
1667
1670
1671
1672
1673
1674
167S
1676
1677
1700
1701
1702
1703
1704
1705
1706
1707
1710
1711
1712
1713
1714
1715
1716
1717
1720
1721
1722
1723
1724
1725
1726
1727
1730
1731
17 32

1733
1734
1735
1736
1737
1740
1741
1742
17 43

1744
1745
1746
1747
1750
1751
1752
17 53
1754
1755

17 56

1757

1535
1536
1537
1540
1541
1542
1543

0643
1040
2627
1040
1547
0244
1040

15 44

26 23

1545

0641

SAMARG, LDF 3
STA
OLDSAM42000
STA
UNSPER
ROL 4
STA
MAXVC«2000
LDF 1
B5
IDA 1
LNSPER* 0
COM
STC 14
ADD CURLN
STC DISLN
SET 10

15 46

10 20

1547
1550
1551
1552
1553

0000
0017
4014
2447
5612

15 54

00 50

1555
1556
1557
1560
1561
1562
1563
1564
1565
1566

0002

10 20

LDA I
-06* 2- 40 00
ADD 2
STC 05
EST
KGOf
LDH
10
SHD I
CRl
KBUlLNi JMP BUlLN

3536
2002
5004
00 04

1310
1420
4300
7607

00 WN*

/BU LN TO BE
/DISPLAYED BY

/UNLESS AT FIRST
/LN OF DISPLAY
1567
1570
1571
15 72

1573
1574
1575
1576
1577
1600
1601
1602
1603
1604
1605
1606

6777
7563
6777
1310
1460
0043
7571
1020
7776
3612
4022
2010
4025
2022
0603
6433

OOBU,

JMP
JMP
JMP
LDH
SAE

BUIC
KGO
BUIC
10
I

BYALN.

JMP
LDA

DOBU
I

-1

GOSCP.

ADO
STC
ADD
STC
ADO
LIF
JMP

DISLN
TEMPI
10

TOPPTR
TEMPI
3

SCOPE
/CR LOWER LN

1607
1610
1611
1612
1613
1614
1615
1616
1617

1020
7776
1160
0000

BUILN,

ADM

DISLN.

10 00

1547
2156

1625

0011

AZE I
GOSCP
JMP
XSK I 14
JMP 0
GOSCP
JMP

7601
0234
6000
7601

16 20

-1

04 70

1621
1622
1623
1624

LDA

Q4,

LOA
LNSPER
ADD MINUSI
AZE
JMP 84*2

B4,

CLR

04 50

7627

/BACK UP
/LN FOR DISPLAY
/LN 1 7
/YES
/TOP LOGICAL LN
/YES
/BWD PAGE

/BWD LN

176ia

1761

/ENABLE SPECIAL FCNS

6 76

2167
AO
t
*»6 110

1764

A 97
«/
10
1 A "^a
16 OlD

A
0^9 mo
(9^

Ann
rX
M
U U Pi
OIL K
tu Q TO f*LI
Jnr TPLHiS

7 A t>

A 1
J. 0 0 i

/ o o 0

JM P

1 / OO

16 32

7 A7

1 0 OO

76 41
64 46

Jnr an ua lu
JMP A3

A o*t
io

u7X £

"^i^

X 101010

1 A
OA
XO
XO O /

019
1 7
fOC XO

17 62
17 63
1

1 7 70

1 / /I
1 770
JL / fC
A / /O
1 7 7 A

/ Onu
1

Kb WU i

Ac L
IMP
r
jn

r
L 1X

n AA
LU

T
1

A "10
XO

70 42

7 7A

A4
1
*t X
XO

1 ffl 9 Dl

17 77

1642

0001

2000

14 40
04 47

cu rl n

764 7

jfj{p

2003

16 43
16 44
16 45
16 46

20 0 4

1647

6551

20 01
20 0 2

2005
2006
2007
20 10

2011
2012
e Kf 4. sj

2014
20 15

2016
2017
2020

Dy
n5Ln
DKua
ui
1

«;

AF
,

JMR CI
IMP rUKURT

70 42

/rwK PR

1650
1651
1652
1653
1654
1655
1656

10 20

UR TO PR ,

7377
14 40

36 66

16 61
16 62
1 A A
XO 00

1302
134 4
A
A OfC^
OO
109

AA4

«L

JMP E4
IMP PRUPr
STC 4
innU Mr
MU
1Mb. CI
IMP PRQUn

E4 *

-f u
n
Ln
Q
TU
Din
1

/7777 TO RFTA

4
*

IMP UQ
jnr
^x
WD TD
U no
LB .1

1
01 901
Xk)

n AA
LU

1
0 7
/ X
iA
1 A 7 9

(AO
^ T
kj^ 1

A 7fO
1
10
4 A 7A
7^
16

7A
'1
^O 41
70 4 2

20 v33
20 34

16 75

04 52

2035

1676

6256

CKl 00

A 77
/ /
10

0101
1010 1
X/

2037
2040

1700
1701
1702
1703
1704
1705

4213
2523
1460
4203

O CH

£iO OX

20 41

2042
2043
2044
2045
2046
2047
2050
2051
2052
2053
2054
2055
2056
2057
2060

rvL b X »

ffl

JM P

54 t

/LOCATt TP NOT OK
r
/ L AHKT ON LAn

Lc L

JMP
LUn
STC
ADD
SAE
STC
JMP
JMP
JMP
JMP
JMP

76 35

0011
4705
0065
2241
2167
4213
1005

_
1
•X

IM o ou
nc n
Jnr
oWUdLU

1711
1712
1713
1714
1715
1716
1717

KT 4
Ac t

4 c:
10
9d

10 *»

1707
1710

Jnr tULr I A
ADM

iO
X X 4 01
1

6446
7710
7635
6512

17 06

£10

77 76

9
c

7 A4 7

XO 07
1 A AA
OD
XO
1 A A 7
O/
XO
16 70

1 A

riJi

HA
WR
^wD
no ! T+rR-1
SA E
i

0004
7661
6725
4004

16 57
16 60

'J £J1

D L i Uc.

LDA

1 7

F4+1

/YES

KT4

TPSTAT
I

TPFLG
KB WD

/MAXLN=CURLN

/YES

KBWD
L3

/FIND REQUEST
/IN CNlTRL BLK
L4.

CLR
STC B8TBLK
5
SET
I

D6=2+2000
ADD PI
STC KT4
LDA 5

/SET WRONG BB

21361
2fe3

1 / tic*
1
&X
X 7/ 91

4447

CTf
O U

rtJRI
W w fA M

LO A

1025
0017

20 64

206 b
2066

7
79 d

5 727

1
1

7 PS

CVQf

22 34
12 20

QUI 701

17 26
17 2 7

COM
STC
CLR
ADO M4
LAM I

0000

C W /I

1730

04 ^2

yoi 79

17 31

LZE
JMP

C Kl / O

1732

7715
1020

17 99

0011

OCT 7a

17 33

31 24

9 01 7 R

1734
1735
1736

2005
4461
6456
0062
6777

901 77

21 ^id
21 01
21 02
21 03

17 37

1740
1741
17 42

2104
2105
2106

1743

C1Wr

17 45
17 46

0041
0000

17 50
17 51

62 02

1752
1753
1754
1755
1756
1757
1760

6741
1020
7776
4213
6267
6512

21 21
21 22
21 23
91 94

2125
2126
2127
2130
2131
2132
2133
2134
2135
2136
2137
2140
2141
2142
2143
2144
2145
2146
2147

JMP F4*3

17 62

1763
1764
1765

0047
0003
1327

17 66

14 60
00 37

1767
1770
1771
1772
1773
1774

77 53

67 44
00 41
00 00

1761

SET

T2,

66 11

•31 1 9

2120

H81T+CB-1
/TP FIX

1744

6152

91 1 6
91
cx X1 7/

ADD 5
STC F3
JMP F3-3
SET I 2
HB IT+WB-1
4
SET

7377
6260

1747

L4't'4

LD A I
50 00+W A'»D6-:1*2000

00 64

2111
9
£ 117
11 0
9114
C X
2115

CHKNOK

JMP BUWB
JMP Kl
JMP TPCHK
JMP ,2
JMP X2+4
LDA I
7776
STC KT4
JMP H4
JMP L3
JMP X2*7
SET 1
0

SET

LOH
SAE

JMP NOTOK
JMP CHKPOS
JMP 1
JMP NOTOK

6176
7256
6001
6176
6001

JMP 1
/

1775
1776

6771

RESTRT

70 44

JMP
JMP

/
/

EJECT

IN]

01^

/FROM WMBLK
/NOT OK
/OK

2152
2151

SEGMNT

2lt)2

/GRID TABLE
/FOR DSC
/MARKER

2\b6
^^

i-)

00 01

i > -?

\0v<O c

i i -3 0

2 1 ^7

0004

£:

£?l

£ X Olf
1 O^

3
Ct 51 7
/
t;

216 3
2164

0010
0011

ic> fcl

& J. 07

X C.

21 66

00 13

2167
217 0
2171
2172
2173
2174

0014
0015
0016
0017
0020
0021
0022

21 75

2176
2177
22 00

2201
2202

00 23
00 24
00 25
00 26

0027

22 03

00 30

2204

0031

22 0 5
22 06

00 32
00 33
00 34
00 35
1010 oo
00 37

220 7
22 10
9?1 1
C ^ XiC

2213
2214

1077
7710
7741

0101
0101
4477
7744
5177
2651
4136
2241
4177
3641
4577
4145
4477
4044
4136
2645
1077
7710
7741

00 41

4142

4142
4076
1077
4324
0177
0301
3077
7730
3077
7706
4177
7741
4477
3044
4276
0376
4477
3146
5121
4651
4040
4077
0177
7701
0176
7402
0677
7701
1463
6314
0770
7007
4543
6151
4177
0000
1020
0204
0000

It'

X k9

d477

77 4 4

m 77

9
A c;
1
CO
i? X

2161
<£

01 01

H
^Hd
(71

l(y

iti

00 41

0042
l^ifl

00
P?
1
H1
t4

*» i.

4177
36 41
45 77

414 5
44 7 7
40 4 4
41 36

26 4 5

40 76
10 77
43 24

0177
0301
30 77
77 TCO!

3077
770IA

417 7
77 AX
44 77
Tt 01 Z ^
013 4 4
45 7A

0376

del. f

22 20

00 4 5

4 4 77

2221
2222
2223
2224
2225

0046
0047
0050
0031
0052
0053
0054
0055
0056
0057
0060
0061
0062
0063
0064
0065
0066
0067
0070
0071
0072
0073

3146
5121
4651
4040
4077
0177
7701
0176
7402
0677
7701
1463
6314
0770
7007
4543
6151
4177
0000
1020
0204
0000

22 26

2227
2230
2231
2232
2233
2234
2235
2236
2237
2240
2241
2242
2243
2244
2245
2246

/I,

/2.B
/3,C

/4,0
/5,E
/6»F

/7.G

/10,H
/II,

/12,J
/13,K
/14,L

/15,M
/16,N
/17,0

/20iP

/21»Q
/22.R
/23,S
/24,T
/25,U
/26,V

/27,W

/30»X

/31.Y
/32.2
/33./

/34,\
/35.3

00 74

77 41

0075
0076
0077

4710
1047
2504

2253
2254
2255
2256

01 00

04 16
00 00

22 57

01 04

00 00

2260
2261
2262
2263

0105
0106
0107
0110

6000
0060
4020
2055

2247
2250
2251
22 52

0101
0102
0103

0000
7500

77 41
47 10

JiA.

1047
2504
0416

/LF

7500

/41 1

6000
0060
4020
2055
5721
4671

/42»

14 46

01 11

5721

0112
0113

46 71
14 46

01 14

6130

22 70
22 71

51 66

P 1 00

\az>do

R '3 A

It?

2274
2275
2276
2277
2300

0115
0116
0117
0120
0121
0122
0123
0124
0125

23 01

01 26

00 50

2302
2303
2304
2305
2306

0127
0130
Viol
0132

0404
0437

U*» O /

V)\a\ao

23 07

2310
2311
2312
2313
2314
2315
2316
2317
2320
2321
2322
2323
2324
2325
2326
23 27

2330
2331
2332
2333
2334
2335
2336
2337
2340
2341
2342
2343
2344
2345

4 020
2055
3600
0041
4 1 00

;

/43 CR
»

/DOL LAR
or

/ <f o f a

3 -?

0 010x7

0041
4 1 00

/ 3 i 1

2050

/ 5 (C » "

04 04

107 1010
fTl I7t

04 04

/33» "

01 34

04 04
04 04

0001
0000
0601

/50» •

M 1 oO

0135

0001

01 36

00 00

0137

0601

01 40

40 30

0141

45 36
36 51

/6 0 0

0143

4536
3651
2101

2101

/6 1 1

01 44

01 77

flu

0145

4523
2151
4122
2651
2414
0477
5172
0651
1506
4225
4443
6050
5126
2651
5122
3651
2200
0000
2601
0000
2410
0042

4523
2151
4122
2651
2414
0477
5172
0651
1506
4225
4443
6050
5126

01 42

01 46

0147
01 50

0151
0152
0153
0154
0155
0156
0157
0160
0161
0162
0163
0164
0165
0166
0167
0170
0171
0172

/5 7

(

//
01 T7

/AO O
/Oct
^
/O 0 * o

/A4. 4

/65»5
/66, 6

/67,7

/70.10

26 51

5122
3651
2200
0000
2601
0000
2410
0042

/71.11
/72.

S I GN

rc mt

00 36

2050

/4w» arACt

22 64

227 2

A dq

00 00

2265
2266
2267

22 73

/73.

/74,<

2346
2347
2350
2351
2352
2353
2354

0173
0174
0175
0176
0177
0200

1212
1212
4200
1024
4020
2055

23 55

0201
0202
0203
0204
0205
0206
0207
0210
0211
0212
0213
0214
0215
0216
0217
0220
0221
0222
0223
0224
0225
0226
0227
0230
0231
0232
0233
0234
0235
0236
0237
0240

0120
6364
0530
7561
2320
7315
0123
6150
2302
7206
1411
6146

2356
2357
2360
2361
2362
2363
2364
2365
2366
2367
2370
23 71

2372
2373
2374
2375
2376
2377
2400
2401
2402
2403
2404
2405
2406
2407
2410
2411
2412
2413
2414
2415
2^16
2417
2420
2421
2^22
2423
2^24
2425
2426
2427
2430
2431
2432
2433
2434
2435
24 36

1212
1212
4200
1024
4020
2055

/75.

/76.>
/77,?

/MONITOR COMMANDS
Z6,

04 30

7565
2011
6106
2030
7353
2023
7337
0314
6101
3205
7706
0102
7364
2114
6133
1503
6357
1417
6420

Y6,

0120
/AP
JMP OOAP
0530
/EX
JMP DOEX
2320
/SP
JMP DOSP
0123
/AS
JMP DOAS
2302
/SB
JMP D0S8
1411
/H
JMP OOLI
04 30
/QX
JMP DOOX
2011
/PI
jMP DOPI
2030
/PX
JMP DOPX
2023
/PS
JMP DOPS
0314
/CL
JMP DOCL
3205
/2ER0
JMP
ZERO
0102
/AB
jMP
OOAB
2114
/Qi
JMP DOQL
1503
/USER MC
JMP OOMC
1417
/LO
JMP DOLO

/MUST HAVE TWO
/HEROES HERE
0241
0242
0243

0000
0000
0000

D6f

0
0

/CNTRL TABLE
/NOTE:
E6-D6 MUST BE >=LENGTH OF WORKING AREA,
/

/MONITOR
/PARAMETER TABLE
»371

0371
0372
0373
0374
0375
0376
0377

0000
0000
0000
0000
0000
000?
0000

E6,

0
0
0
0
0

/lN NUM
/LN NUM

/N
/A
/m
/£

/UNIT

EJECT

2437
2440
2441
2442
2443
2444
2445
2446
2447
2450
2451
2452
2453
2454
2455
2456
2457
2460

SEGMNT

/
/
/

0021
0022

mm
0000

«21

READ,
WRITE,

0
0

/
/

*400
0400
0401

0402
0403
0404

1000
0000
0002

24 61

04 0b

0406
0407
0410
0411
0412

0413
0414

24 72

04 15

0603
7400
0002

2473
2474

0416

3706

24 75

04 17

23 02

2476
2477
2500
2501
2502
2503
2504
2505
2506
2507
2510
2511
2512
2513
2514
2515
2516
2517
2520
2521
2522
2523
2524
2525
2526
2527
2530
2531
2532
2533
2534

0420
0421
0422
0423
0424
0426
0427
0430

4237
0506
1302
7640
5231
2230
6141
0603
0000

0431

6141

04 32

04 56

0433
0434
0435

0456
6427
0002

0436
0437
0440
0441
0442
0443
0444
0445
0446
0447
0450
0451

5225
0000
1637
3254
1654

25 35

04 52

04 25

POP
PMODE
OCA RTNMOD
KSF
JMP TRYBUF
TAG CHRCTR
TAD M24
SNA CL
JMP CHKMTP
LINC
LMODE
LIT 3
JMP KBDOPR
POP
PMOOE
DCA
PTRIN
IS2 CHRCTR
JMS BUMPIT

3230
6031
5222
1302
1303
7650
5231
6141

2462
2463
2464
2465
2466
2467
2470
2471

I3l2
7640
5251
1311
3654
7410
2654
2237

/DUBL BUFFERED
/KEYBRD INPUT SR

MODKBO, LDA

PTRIN
TRYBUF, TAD CHRCTR
SHA CLA
JMP CHKMTP
RTNMOD
IS2
LINC
603
RTNMOD, 0

CHKMTP, LINC
LMOOE
SKP
SKP
JMP ,«5
POP
PMODE
JMP ,«11

BUMPIT,

TAD
DCA
TAD
TAD
S2A
JMP
TAD
OCA
SKP
ISi

BUMPIT
I
TEMP5
TEMP5
I
ENOBUF
CLA
.

+ 4

ST8UF
TEMP5
I
I

TEMP5

IS2 BUMPIT

/L I F

/RTN TO P+1 IF
/READY ; RTN TO
/P*2 IF MTP
/OR BUFR EMPTY

OS XA

f7!

^
*S
3 0<

^?o/

56 37
10)0 10 1^

Jnr
Tr
"r Ci
9»
t MD

04 55

0456

DUnrii

P
r T DO
r\U U T

/GET A CHAR FROM
/OUBL BUrrER

0
7 200

17 07
oO 11(3
42 37
05 0 7

TA
A n
U

T
i

r^PA
IJLA
IM ^

CV/PUD
oVuMK
Q MP T T

7
01
/ 9
*t 10
Ci

13 02
33 02
1310
13 04

T*n
n
A U ruRrTR
l<n

TA n

IR M 4 7

0 471

7650
7 346

SNA CL A
n A TM
A
ULA
onM

ri
L L L>

04 72

6 1 4'l

04 7 3

0 4 40

04 74
04 75

0011
0002

2563

0476

25 64
25 65

04 77

7440
3705
1310
5655

c7 * i

04 57
£ ^ *t o

23 44

y 'S4 7

25 50

2551
25 52
25 53
2 55 4

2555
2556
2557
25 60

2561

04 61
04 62
04 64
04 65
04 66
04 6 7
04 70

25 70

9571

2573
2574
9S77

A
1

R
"

/TEST FOR "TAB"
/YEP. BIG NUMBER
/TEST THE SENSE SWITCH ALSO,

Mnnr

SNS
CLR
PHP

/DO AUTO FORMATING NOW?
/YEP. KEEP DOING IT.
/GET BACK INTO SUPER MODE

PMOOE
0500
0501
05 02

0503
0504
0505
0506
0507

ruor
n
w n w TD
M2 4 #

-2

7731

JB M4 7
runn
r U Uo rr
C.W *

• 47

PT R N
P T RO UT
c
V U" D
K^
Uw
QT Ql C

13 74

0000
00 00
W 1010

109 li)

79
/ COO
vv\Ov

.
$

LINUDUr »
fit nL 1

26 03

26 05

2606

/
/

SVfHR
GETCHR

UU nr m»
0
10

ur PC
-T ur pr
0

•

26 07
26 10

/SKIP IF STILL FORMATTING.
/TELL IT NOT TO 00 FORMATTING.

S2 A

TAD
JMP

00 00
77 76

109
CIS 1 9

26 00
2 6 01

ML nt. *fc

2611

OA 1 0

2613
2614
2615
2616
2617
2620
2621
2622
2623

/
/

0517
0520
0521

0100
0004
0014

05 22

00 01

26 24

2625
2626
2627
2630
2631
2632
2633
2634

9«S7*5
9Si 7A

PTROUT

25 62

2566
2567

INPT.

Oi SKD
4

DI ALST*14.300
1

0523
0524
0525
0526

0100
0000
0030

JBASl.

DISKO
0

ASTBLK-300

mil

11
/

0527
0530
0531

0100
0012
0044

JBAS2«

DISKD
12

ASTBLK»300+14

2635
2636
2637
2640
2641
2642
2643
2644
2645
2646
2647
2650
2651
2652
2653
26 54

2655
2656
2657
2660
2661
2662
2663
2664
2665
2666
2667
2670
2671
2572
2673
2674
2675
2676
2677
2700
2701
2702
2703
27 04

2705
2706
2707
2710
2711
2712
2713
2714
2715
2716
2717
2720
2721
27 22

2723
2724
2725
2726
27 27

2730
2731
2732
2733

0532

0001

0533
0534
0535
0536

0100
0013

0537
0540
0541
0542

0100
0013
0003
0001

JBAPl,

DISKD
13

00 21

APTBLK-300

0001

JBAP2»

DISKD
13
DI ALST+3-300
1

0543
0544
0545
0546

01 00

JBFC2,

0010
0050

DISKD
10

rCTBLK-300

00 04

4
/

0547
0550
0551
0552

0100
0030
0054
0002

JBLOi

DISKD
30

tOTBLK-3 00
2
/

JBSB=JBFC2
/

JBSP=JBFC2
/

0553
0554
0555
0556

0100
0010
0061
0004

0557
0560
0561
0562

0100
0005
0015
0001

0563
0564
0565
0566

0100

JBPXDX, DISKD
10

PXT8LK-300
4
/

DISKD
5
DI AUST*15-300
1

MRL2

DISKD

00 05

0020

PTBLK«300

00 01

0567
0570
0571
0572

0100
0005
0015
0003

DI NBur

DISKD
5

O1ALST*300*15
3

*770
/
/

0770

0002

0771
0773
0774
0775
0776
0777

6212
4421
0517
6212
4421
0563
6141

1000
1001

0641
0002

1002
1003

7240
4307

07 72

INPTRS, PGP
PMOOE
CIF
JMS I

READ

INPT

CIF
JMS
WRL2
LINC

10
I

READ

LMODE
LOF
PDP

PMOOE
ST A

JMS SHIFT

2734
2735
2736

1004
1005

2450
6141

27 37
27 40

1006

0602

10 07

2741
2742
2743
2744
2745
2746
2747
2750
2751
2752
2753
2754
2755
2756
2757
2760

1010

60 00
00 02

1011
1012
1013

7200
4307
2520

10 14
10 15

42 65

27 61

2762
2763
2764
2765
27 66

2767
2770
2771
2772

10 17

2241
2625
6141

10 20

0002

1016

/EXIT SAVE
/EDITOR PTRS

CL A
IM S
o on ITT
viri
i r
P T EX IT
1

D6 PT R
06 VA L

pn P

62 12

1022
1023
1024
1025
1026

4422
0563

JM<5

WH l2

62 12

rT r

4421
0557

WR L.1

10 27

61 41

L I NC

1030
1031
1032
1033

0641

LMODE
LOF

06 02

L IF

JHP
POP

6000
0002

OLDPTR

1 01
JLIO
T

yp ! TF

pr An

1 CI

PM OD E

1034

10 42

3032

POP
PMODE

10 21

30 00

30 30
30 31

r
I r
Ur i r

1037
1040
1041

3022
3023
3024
3025
3026
3027

JM P

OUTP TR

PMO DE

2775
2776
2777

30 20
30 21

LMOOE
LIP 2

M nnr
wUL
un

10 35
10 36

3015
3016
3017

27 73
27 74

3001
3002
3003
3004
3005
3006
300 7
3010
3011
3012
3013
3014

PT I N I T
T MP

RTNR TIM

6212
4421

05 17

CI F
w

6212
4421
0563
6141

10
i

MPT

CI F

10 47

PCI

1050

1052

4265
2625
2241

JMS I
READ
WRL2
LINC
LMODE
LDF
1
POP
PMODE
STA
JMS SHIFT
PTEXIT
JMS CTLTAB
06VAL
D6PTR

1053
1054

4654
1705

JMS I
TESTM

1043

06 41

10 44

0002

1045
1046

7240
4307

10 51

/TEST FOR 128 OR 12A
/GO TO THE 12A-12B CHECKER

/
/

10 55

1056
1057
10 60

1061
1062
1063
1064
1065
1066

1371
3316
7240
4307
2610
1372
3316
5205
00 00

1665

/CHNG KNOB SR FOR 12B
TAD KTAD
OCA MOVEIT-3
STA
JMS SHIFT
B12VAL
TAD K2TAD
OCA MOVEIT-3
JMP RTNRTN
CTLTAB, 0
TAD
CTLTAB
I

/FOR CONTROL

3033
3e.34

303b
3036
3037
3M40
3041
31342

3043
3044
304ij

3046
30 47

30b0
3051
3052
3053
3054
3055
3056
30 57
30 60
30 61
30 62

3063
3064
3065
30 66

3067
30 70

3071
3072
3073
3074
30 75
30 76

3077
3100
3101
3102
3103
3104
3105
3106
3107
3110
3111
3112
3113
3114
3115

1067
1070
1071
1072
1073
1074
1075
1076
1077
1100
1101
1102
1103
1104
1105
1106
1107
1110
1111
1112
1113
1114
1115
1116
1117
1120
1121
1122
1123
1124
1125
1126
1127
1130
1131
1132
1133
1134
1135
1136
1137
1140
1141
1142
1143
1144
1145
1146
1147
1150
1151

IS^^

1305
31 00

1501
3503
2101
2103
2100
5276
5665
7650
5205
0000
3352
1707
4341
3101
7410
3103
1366
3102
2307
1502
4341
3103
7410
3101
1501
3503
4341
2101
7410
2103
2102

D6L0OP,

13 52

7640
5350
2341
2341
1100
5741

ISZ CTLTAB
TAD 06CTR
DCA SAVAC
TAD
FROM
TO
DCA
ISZ FROM
1

ISZ TO
ISZ SAVAC

JMP 06L00P
JMP I CTLTAB
D6CTR,

06=2«E6
JMP RTNRTN

SHIFT.

OCA
TAD
JMS
OCA
SKP
OCA
TAD
OCA

SKPLIT
SHIFT
SKPCHK
FROM
I

KPTADR
TORF
ISZ SHIFT
TORF
MOVEIT, TAD
JMS SKPCHK
DCA TO
SKP
OCA FROM
TAD I FROM
DCA I TO
JMS SKPCHK
ISZ FROM
I

SKP
ISZ TO
ISZ TORF
TAD
TORF
SZA CLA
JMP MOVEIT
JMP I SHIFT

15 02

7640
5321
5707
0000
3100

ctltab

TAD
CTLTAB
OCA TO

22 65

SKPCHK

DCA SAVAC
TAD SKPLIT
SZA CLA
JMP .+3
ISZ SKPCHK
ISZ SKPCHK
TAD SAVAC
JMP I SKPCHK

SAVAC=100
FROM=101

31 16

3117
3120
3121
3122

OCA FROM

3101
2265
1665
3103

TORF =102

1152

31 23

11 53

3124
3125
3126
3127
3130
3131

1154
1155
1156
1157
1160
1161

0000
1370
3766
1367
3321
6212
4422
0563

TO=103
SKPLIT, 0
VIRGST, TAD P4002
DCA I KPTADR
TAD ATAD
DCA MOVEIT
10

CI F

JMS
WRL2

WRITE

/CORE TRANSFER
/SR USED FOR
/SETTING PTRS

3132

1162

6141

LINC
LMOOE

1163
1164
1165

0641
0602
6041

1
LOF
LIT 2
JMP CLWA
PMODE

1166
1167
1170
1171
1172
1173

2400
1502
4002
1373
1366
2570

KPTADR*
ATAD
P4002,
KTAD,
K2TAD,
KPT12,

1174
1175
1176
1177
1200
1201
1202
1203
1204
1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1220
1221
1222
1223
1224

7233
0456
7322
0642
0043
2003
0641
1440
0003
7322
0011
5374
7556
0470
7245
0077

Asa,

12 25

1437
7371
1437
7245
0602
7060

31 33

3134
3l3S>
31 36

3137
3140
3141
3142
3143
31 44

3145
3146
3147
3150
3151
3152
3153
3154
31 55

3156
3157
31 60

3161
3162
3163
3164
3165
3166
3167
3170
31 71
31 72

3173
3174
3175
3176
3177
32 00
32 01

3202
32 03

3204
3205
3206
3207
3210
3211
3212
3213
3214
3215
3216
3217

1226
1227
1230
1231
1232
1233
12 34

1235
1236
1237
1240
1241
1242
1243
1244

32 20

12 45

32 21
32 22

1246

3223

1250

32 24

12 51

3225
3226
3227
3230

1252
1253
1254
1255

12 4 7

PTAOOR
TAD

TORF

4002
TAD KPT12
TAD KPTADR

PT12B
LM ODE
JMP ENOCHK
SKP
JMP SUBCHR+2
LDF 2
SET 3
2003
LDF 1
SAE
3

JMP SUBCHR+2
CLR
STC COMFLG
JMP GETTTY
AifE

JMP XIT2C1
17
SET
1

55 62

SPCHAR-HBIT

1437
7247
1437

SHO
JMP
SHO
JMP
SHO
JMP
SHD
JMP
SHD
JMP
SHD
JMP
LIF
JMP
LOF
LDA

72 54

1437
7251
1437
72 45

06 42

ENOCHK,

1000
2026
1120
3777
1440
2002
0220
0641

17
17

LFORRO
I

AMORUP
I

XIT2C1
I

COMSET
I

XIT2C1
2

REGCHR-4
2

ADA

-HSIT
SAE

2000*2
XSK
0
LDF 1
JMP 0
LIF 2
JMP Cl+2
LIF 2
JMP REGCHR
APO
JMP XITREG
JMP ALTREQ
APO I
JMP XITHEG
I

0602
7044

X 1 T2 CI

06 02
70 64
04 71

XITREG
AMORUP

7247
7260

7247

XITREG

2000+CURPT2

60 00

04 71

/INTERPRET
/DIAL CODES

LFORRO

/FIRST CHAR
/CUR LN

1256
1257
1260
1261
1262
1263
1264
1265
1266

0602
7112
0602
7047
7556
0470
7260
0077
5565

32 42

12 67

3243

14 37
72 45

3245
3246

1270
1271
1272
1273

32 4 7

12 74

73 44

3250
3251
3252
3253
3254
3255
3256
3257
3260
3261
3262
3263

1275
1276
1277
1300

1437
7346
1437
7350
1437
7352
1437
7354
1437
7356
7245
0602

32 31

3232
3233
32 34

3235
3236
3237
3240
3241

32 44

32 64
32 65

3266
3267
3270
3271
3272
3273
3274
3275
3276

1301
1302
1303
1304

1305
1306
1307
1310
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323

7342
1437

32 7 7

13 24

72 45

1325
1326
1327
1330

0077
1563
1437
7362
1437
7366

1332

EOALT,

CHKED,

70 52

7556
0470
7310
0077
1570
7301
0602
7055
7556
0470

13 33

14 37

1334
1335
1336
1337
1340
1341
1342
1343
1344
1345
1346
1347
1350
1351
1352
1353
1354

7360
1437
7414
1437
7464
7247
0602
7625
0602

SU8CHR

/ALT MODE REO

ALTSET
GETTTY
I

ALTREQ
I

XIT2C1
I

8WDLN
I

FWDFR
I

8W0FR
I

FWDLN
I

/ALT MODE EDIT

RUBR
1

RUBL
I

RU8C
XIT2C1
2

EDSET
GETTTY
I

CHKEO
I

LIF 2
JMP SUBSET
JMP GETTTY
A2E
JMP X1T2C1
I

SPCHAR
17
SHD
JMP LFCHK
17
SHD
JMP CHKAM
17
SHD
JMP XITCR
17
SHD
JMP COMFMT
I

BMOLN*
FWDFR,
BWOFR,
FWOLN»

62 55

0602
7272
0602

SHD
JMP
SHD
JMP
SHD
JMP
SHO
JMP
SHO
JMP
SHD
JHP
SHD
JMP
SHD
JMP
JMP
LIF
JMP
JMP
A2E
JMP
SET

SET

7620

0602

RUB

SPCHAR+5
JMP EDALT

62 50

0602

SPCHAR+2+HBI

14 37

3300
3301
3302
3303
3304
3305
3306
3307
3310
3311
3312
3313
3314
3315
3316
3317
3320
3321
3322
3323
3324
3325
3326
3327

13 31

ALTREQ

LIF
JMP
LIF
JMP
JMP
A2E
JMP
SET

RUBR,
RUBL»

SHD
JMP
JMP
LIF
JMP
LIF
JMP
LIF
JMP
LIF
JMP
LIF
JMP
LIF

CMAFMT
XITREG
2

84
2

P4
2

Q4
2

F4
2

RORIT
2

/LATER CHARS

3330
3331
3332
33 33

3334
3335
3336
3337
3340
3341
33 42

3343
3344
3345

1355
1356
1357
1360
1361
1362
1363
1364
1365
1366
13 67
13 70

1371
1372

7322
RUBC t

0602
7141

X I TC R»

04 71

LFCH K

r
U TI F

JMP Dl
r
L iI r

YTT9n

LIT

APO

w o r\ w n $

w w M w b.

y T TPrr

fut^rn

ST A

V u nr I,
IMP yrTfirr
0

LOF

33 46

13 73

72 4 7

1374
1375

0000
0642

13 76

10 00

1377
1400

02 41

PHl

0017
5413
1000

vu n

33 56
33 57

3360
3361
3362
3363
33 64

3365
3366
3367
3370
3371
33 72

3373
33 74

3375
3376
3377
34 00
34 01

3402
3 4 03

3404
34 05

3406
3407
3410
3411
3412
3413
3414
3415
3416
3417
3420
3421
3422
3423
3424
3425
3426

1402
14 03

14 04

1405
1406
14 07
14 10
14 11

tup
IMP
w

1374

COMFLG
POSCHK

IMP

3347
3350
3351
3352
3353
3354
3355

14 01

APR

AP 0

7310
10 40

7
c

IMP

7245
0602
7112
04 71
72 47

QfM c r
9
<

IMP

06 02
61 17

LD A

rtlR PTU

2026

ft.

20 03
02 41
341
04 71

ImF

Ann TruD^
AUU
itnr*i
ADA T

0220

XS K

14 16
14 17
14 20
14 21

06 41
60 00
00 00
73 75
74 50!
13 17
72 47
10 00
13 74

1422
1423

0450
7462

14 24
14 25
14 26
14 2 7
14 30
14 31
14 32

06 42
00 52

Jn r A I
LU r
SE T 12

2003

1412
1413
1414
1415

1433
1434

1435
1436
1437
14 40

1441
1442
1443
1444
1445
1446
1447
1450
1451
1452
1453

nr n

nA
A
LU
1

T E MP 4

JM P
0
)M P

Jnr

AI IKcG

Pr\^f* Ufa'

LU A
uU nr L
Act,
1

u Un

00 4 2

2002
0641
0061
7767
0070
7774
1332
1420
4700
7456
0221
0456
7456
1000
0012
1440

2002
nr
SET
.10
SET
t

1
I

-3

SRTABi

LOH
12
SHD
TBI
JMP TABCNT
XSK I 1
SKP
JMP TABCNT
TABEND* LOA
I
I

SAE

00 02

7436
1000
0010

JMP SRTAB
LDA
10

/FORMAT COMMENT

3427

1454
14t>5

0602
7124

3431
3432

1456
1457

34 33

14 60

3434

1461

34 3b

14 62

13 17

3436
3437

1463
1464
X465
1466

7371
0642
0043
2003

34 42

14 67

00 42

3443
3444
3445
3446
3447
3450

1470
1471
1472
1473
1474
1475
1476
1477
1500
1501
1502
1503
1504
1505
1506
1507
1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1524
1525
1526

2002
0046
2006
0641
0054
0003
1334

34 40

3441

34 51
34 52

3453
3454
3455
3456
3457
3460
3461
3462
3463
34 64

3465
3466
3467
34 70

3471
3472
3473
34 74

3475
3476
3477
3500
3501
3502
3503
3504
3505
3506
3507
3510
3511
3512
3513
3514
3515
3516
3517
3520

15 27

1530
1531
1532
1533
1534
1535
1536
1537
1540
1541
1542
1543
1544
1545

0fc561

7767
02 30
7445

LDH I 14
SHD I
LFl
JMP XITCMA
SAE

3700
7554
1460
0047
7554
1000
1374
0450
7554

JMP XITCMA
LOA
COMFLG
AZE
JMP XITCMA
ENOCf
JMP
SKP
JMP XITCMA
LOA

72 33

0456
7554
1020
0161
2006
1120
0010
0017
4001
0070
7770
0052
0003
1000
0012
1440
0002
0456
7542
1332
1417

MAXNUM-'7

ADD
ADA

35 21

15 46

02 21

1547
1550
1551
1552

7544
1317
13 42
06 02

6
I

COM
SIC
SET

-7

SET 12
3

CMACHK,

LOA
12
SAE
2
SKP

JMP
LOH
SHO
JMP
XSK
JMP
SET

72 45

0230
7527
0052
0003
1334
1372

/FORMAT COMA

14 20

3522
3523
3524
35 2&

LIF 2
JKP COMRTN
1
TABCNT, StT
-10
XSK 1 10
JMP T A BE NO
XITCOM, LOH 17
JMP COMSET
CMAFMT
LOF 2
SET 3
2003
SET 2
2002
SET 6
2006
LDF 1
SET 14

SHUFLE-2
I

XIT2C1
1

CMACHK
12

SHUFUE<

14
LDH
STH I 12
XSK I 1
JMP SHUFLE
LDH 17
STH 2
LIF 2
I

/FIXED JUNE 10.1970

3b26

1553

35 27

15 54
15 55

3t> 30
3b31

7137
1317
72 47

1556

0002

3b32
3533

15 57

35 34

1560

4762
6141

3535
3536
3537
3540
3541
3542
3543
3544
i545
3546
3547
3550
3551

15 61

60 00

1562

0455

1 56i
1564

3643

4 737

15 65

57 54

1566
1567
1570
1571
1572
1573

35 52

15 75

3553
3554
3555
3556
3557
3560
3561
3562

1576

3727
6121
6222
1404
1000
0000
5660
0642
0056

15 77

20 26

1600
1601
1602
1603
1604
1605

35 63

16 06

3564
3565
3566
3567

1607
1610
1611
16 12

7233
4016
0642
0057
2025
0055
0016
0053
2002
0074
0000

35 70
35 71
35 72

1613

06 41

16 14

7630
0234
1000

3573
3574

15 74

1615
16 16

JMP CMARTN
XITCMA, LDH 17
JMP XITREG
GETTTY. PDP
PMOOE
JHS I KGET
LINC
/JMP

60 00

GETCHR
LMODE
SPCHAR. TBl+LF
AMl+CR
K0M1*C0MA
R01+8L

/SPECIAL CHAR
/TABLE

FL *RR

rl*rc
chkcnt. ida
0

STC CNTOUT
LOT 2
SET 16

CURPT2+2000
ENDCHK

JMP
STC
LOF
SET

16
2

TOPPTR*2000
SET 15
16

SET 13
2002
SET I 14
0

GOCNT,

LDF
JMP
XSK
LOA

OFFI
I

00 15
14 40

3576

1617
1620
1621

0017

35 77

16 22

04 56

3600
3601
3602
3603
3604
3605
3606
3607
3610
3611
3612
3613
3614
3615
3616
3617
3620
3621
3622
3623

1623
1624
1625
1626
1627
1630
1631
1632
1633
1634
1635
1636
1637
1640
1641
1642
1643
1644
1645
1646

36 24

16 47

7634
1020
3777
2015
4015
1315
1460
0043
7615
1000
0016
1440
0013
0456
7647
0234
1336
1460
0043
7634
1020

SKP
JMP OUNHI
LDA I
-HBIT
ADO 15
STC 15
15
LDH
SAE I

35 75

KGET,

SAE

OUNHI.

JMP GOCNT
IDA
16

SAE
13

SKP
JMP DUNLO

XSK
LOH
SAE

DUNLOl

JMP DUNH
LDA
I

/CHK ILLEGAL
/LEMGTH

-MAXNUM

^626

1650
1651

7607
2014

36 27

16 52

04 70

3630
3631
3632
3633
3634
3635
3636

1653
1654
1655
1656
1657
1660
1661
1662
1663
1664

7656
0451

3643
3644
3645
3646

1665
1666
1667
1670

6212
3272
4421
1672

36 47
36 50

16 71
16 72

52 76

0000

1673

00 10

16 74

270

1675
1676

0270
0001
6141

1677
1700
1701

0641
1000
2373

36 25

36 37

3640
3641

ERROR*
G000»

ADD
A2E
JMP
APO
JMP
JMP
LIT

CN TO U T »

KOOMC#

CLR
LOA
E6+2006
POP
PMOOE
10
GIF
J8MET
OCA
READ
JMS

76 57

7245
0602
0000
0011
10 00

2377
00 02

36 42

3651
3652
3653
3654
3655
3656
3657
3660
36 61

17 02

06 43

3662
3663
3664
3665
3666
3667
3670
3671
3672
3673
3674
3675
3676
3677
3700
3701

1703
1704

0602
6020

37 02

3703
37 04

3705
3706
3707
3710
3711
3712
3713
3714
3715

ERROR
GOOD
XIT2C1
2

.*2

JMP
JBME T»

LINC
IMODE
LDF
LOA
E6+2002
LOF 3
LIF 2
JMP 20

/
/
/

PMODE
/

1705
1706
1707

0000
2305
6141

1710
1711
1712
1713
1714
1715
1716
1717
1720
1721
1722

0053
0000
0074

TESTM.

3717

1724
1725
1726
1727
1730
1731
1732

6014
0234
1560
0017
1460
0000
7742

37 20

17 33

02 36

3721
3722
3723

1734
1735
1736

7724
0040
0013

ISZ

TESTM

/BOP PAST PHOONEY POINTER

LINC
LMODE
SET

/SAVE

/SET 14 TO A SAM 0-1
/THE SAMPLE INST RU CT 10 N( 0- 17
/SET 15 TO THE KETUKN JUMP

SET

SAM
SET
JMP
SET
-20

6000
0076
7757
0100
1560
0017
57 31

WE BASH IT

01 00
00 75

17 23

37 16

LOOP.

0
I

XSK I
BCL I
-7760
SAE I

/SET UP THE COUNTER NOW
SAMPLE OF 16 CHANNELS.
/GET AN INITIAL VALUE

SAM
BCL I
-7760
STC
JMP

COMPEAR,»0
JMP
XSK
JMP
SET

15
0

COMPEAR
14
14

/JUST LEAVE THE HIGH BITS
/SAVE IN THE COMPARITOR
/DO A SAMPLE NOW
/BOP TO THE NEXT CHANNEL
/CHOP OFF THE MISCt CRAP.
/TEST AGAINST OUR FIRST SAMPLE

WGA12A
I

LOOP
0

/WE-G0T-A-12-A
/BOP THE COUNT
/ITS THE SAME. CHECK THE NEXT CHANNEL
/RESTORE 0 NOW

3724
v5725

1737
1740

0011
0002

3726
6727

1741

5705

37 33
37 31
37 32

CLR
POP
PMOOE
JMP I

TESTM

/RETURN TO THE CALLER

/CLEAR THE AC NOW
/RESTORE 0

/
/

1742
1743
1744
1745

0011
0040
0013
0002

1746
1747

5747
1005

WGA12A,

CLR
SET
13

PDP
PMOOE
JMP

RTNRTN

LMODE
/
/
/

3753
3754
3755
3756

/
/

17 50

0000

AASEG0,

/GET

INTO THE GOOD MODE

/
/
/
/

37 52

3760

LMODE

37 34

37 57

ITS

/
/
/

3733
3735
3736
3737
3740
3741
3742
3743
3744
3745
3746
3747
3750
3751

/ALL THE SAME.

EJECT

/RETURN TO THE CALLER

HES CHEAP

/SYSTEM
/PARAMETERS

37 61

3762
3763
3764

DI SKD=100
0 ISK S = 110
5E TUPl =3 22
S£ TU P2 = 323

37 65
3 76 6

3767
3770
3771
3 772
3773
3774
37 75
37 76
37 77
42 00
40 01

40 02
40 03
A fA

40 05

/POINTS TO NEXT FREE SPOT ON SYSTEM DEVICE TABLE

OS YS = 7 341
/
/

UNITN0=777
WA=370
ASTBLK=330
WAUN T = 0
WAEN 0 = 467
n LE =W A£ ND+1
rKt.L'c/0
01 AL ST -300
I

0 1 AL U = 0
1 NUL A- 0*» 0
c r< T o 1/ " z a.
I

Ar ToL^ -0^1

400 6
40 07

4010
4011
4012
4013
4014
W 10
40 16

4017
4020

Ua dLK - o61
nvTni
w—--iJ
nvTDi
i/
rX oLK
X dLI\
r"
C =o
FC
3 A 20
brr L Nb -1 4 0 iw
r Y tm
td
-1 a
I n
LA
r —1
0
13
-c ^01 a
10
DO —9
i

Co - 0 SWlo
lou AL
Ai si A
uUKv
•lo
r*)

4022
40 23

4024
40 25

402 6
402 7

1 na
LFr' i V= »5/00
'4

-77

lb 1- 4 /0lO
TB - 4 7
ro
mfli
UH 11 —- 4^ v3lO0
CR =4 3
"z

4030
4031
4032

EOFl 20
Eor=

40 33
40 34

40 35

AM =3 6
HQ 1- 3 / toio
on -'X 7

4036

SP1=40 00

40 37
40 40

SP=4 0

4041
4042
4043
4044
4045
4046
4047
4050
4051
4052
4053
4054
4055
4056
4057

COMA1=5400
X0A=21
C0MA=54
KOM1=5700
K0M=57
LNHC=1013
MCVC=-357
MKHC=1763
MCHC=1051
BL=27
Fr=6100
8F = 21

FL=6200
RR=22
RL=1400
RC = 04

/WA UNIT

/START OF DIAL
/DIAL UNIT

4062
4061
4062
4063
4064
4065
4066
406?
4070
4!^;7 1

4072
4073
4074
4075
40 76

4077

OELTA=50
PT ADDR=2400
PT IN IT=PTADDR+OtLTA
PTEXIT=P TINI T + OELTA
PT12B=PTEX IT+DELTA
B12VAL=PT12B*20
D6VAL = B12VAL*lt>
D6PTR=2000+D6-2
MA XNUM =1 70

PCODE=2000
LCODE=1400
QMARK1=7700
PT8LKS320
/THIS IS THE DIAL EDITOR V2
/15 DEC 69
EJECT

4100
4101
4102
4103
4104
4105
4106
4107
4110
4111
4112
411^
4114
4115
4116
4117
4120
4121
4122
4123
4124
4125
4126
4127
41i0
4131
4132
4133
4134
4135
4136
4137
4140
4141
4142
4143
4144
4145
4146
4147
4150
4151
4152
4153

/APNPTRV2
/10 DEC 69

/EDITOR V2 POINTERS T8LK 320
/INITIAL VALUES EXIT
/AND ADDRESSES
LMOOE
SEGMNT 5
»PTAOOR
PMODE
MOVE IT
/BECOMES 4002
LMODE
/AFT VIRGIN RUN
/BETA 2 IS PTR

VAlWT^

24 00

1121

0401

4003

0402

4004
4005

4006
4705
4664
4770

4006
40 00+BBTBL K

04 03

0404
0405
0406
0407
0410
0411
0412
0413
0414
0415
0416
0417
0420
0421
0422
0423
0424

4533
4200
4742
4447
4451
4203
4171
44 54

4723
4733
4020
4523
0000

4000+WBTBLK
4000+CURBLK
4000+SPT9LK
4000+NQT OK+2
4000+X2+5
4000+CURLN
4000+M AXLN
4000+TPrLG
4000+PLACTR
40 00 +M AX8LK
4000+CBTBLK
4000+TBLKC8
4000 +20

4000+TPSTAT
0

«PTINIT
H8IT+WB-1
HBIT+HB+1

0450
0451

6777

04 52

00 00

0453
0454

2243
7607

06+2000
-MAXNUM
5\WA«1
5SWA«1
6\WA™1
5\WA«1
STC TPFLG

7001

04 55

53 67

0456
0457

5367
6367

04 60

53 67

0461
0462

0463
0464
0465
0466
0467

4203
0000
0001
0001
7777
0000
0000

04 70

00 00

0471
0472
0473
0474

0000
7775
4203

JMP RESTRT
STC
TPFLG

00 00

41 73

2520

5353

VIRGST4177+5200

4174
4175
4176

0521
0522

7001

LMODE
HBIT+WB*!

00 00

41 54
41 55

4156
4157
4160
4161
4162
4163
4164
4165
4166
4167
4170
41 71

0
1

7777
0
0
0
0

»PTEXI
PMOOE

4172

/TO W8
/PTR TO
/OF CUR
/PTR TO
/PTR TO

1ST CHAR
LN
CB

CONTROL
/TABLE (06)
/CHAR CTR CURLN

4177
4200

0523
0524

2243

05 25

53 67

4202
4203

0526
0527
0530
0531
0532
0533
0534
0535
0536
0537
0540
0541
0542
0543
0544

5367
6367

42 04

4205
4206
4207
4210
4211
4212
4213
4214
4215
4216
4217
4220

06*2000
-MAXNUM
5\WA-1
5\WA=1
6\WA=1
5\WA=1
SIC TPFLG

7607

42 01

53 6 7

4203
0000
0001

0
1

0001
7777
0000
0000
0000
0000
7775
6203
0000

7777
0
0
0

JMP RESTRT
JMP
TPFLG
0

42 21

4222
4223
4224
4225
4226
4227
4230
4231
4232
4233
4234
4235
4236
4237
4240
4241
4242

/AOOR OF KNOB

/THE KNOB SUB RT
/ARE CHANGED
/FOR A 128

0570

6020

6000*SAM3

05 71

6021
6022
6023
6024
6025
6026
6027
6030
6031
6032
6033
6034
0000

6000*SAM3*1
6000*SAM3*2
6000+SAM3+3
6000*SAM3+4

0572
0573
0574
05 75

0576
0577
06 00

0601
0602
0603
0604
06 05

0610
0611
0612
0613
0614
0615
0616
0617
0620
0621

42 55

4256
4257
426a
4261
4262
4263

6000+SAH3+6
6000+S AM3*7
60004SAM3^10
6000+SAM3+11
6000+S AM3+12
6000*S AM3+13
6000+S AM3+14
0

0517
1560

LSW
8CL

40 00

0017
4016
6000
0516
1560
7760
0450

COM
STC CURVAL
JMP 0
RSW
BCl
7760

06 22

60 00

0623
0624

2072
6000

JMP 0
ADO POSl
JMP 0

/KNOB SR FOR 12A
/ARE REPLACED BY
/THE FF
/SWITCH SR
/FOR A 12 B
/LSW 1-11
/CONTROLS CURSOR
/RSW 8-11
/CONTROLS LNS
/PER FRAME

/ADD PROGRAM V2
/TBLK 321

42 64

14 00

4265
4266
4267
4270
4271

1401
1402
14 03

1404
1405

SEGMNT
*1400
LDA

1020
0001
4351
6611
6152
7636

STC
JMP
JMP
JMP

7434
1030
1620

JMP E8
LDA I 10
BSE I

PLAFLG
BUWB
Kl
18

42 72

4273

60 00 +S AM 3* 5

«B12VAL

4244
4245
4246
4247
4250
4251
4252
4253
4254

42 43

•P Tl 28

1406

42 74

14 07

4275

1410

C8,

/DISABLE B8 WRC
/SUB RT BY
/SETTING THIS WO
/DELETE AP COM
/FROM WB
ZAP BY NAME
/OR TBLK NUM
/BLK NUM
/BY NAME

4276

4300
4^01
4302
4303
43<j94

4335
4 3 06

4307
43ia
4 311
4312
4313
4314
4315
4316
4317
43^0
4321
4322
4323
4324
4325
4326
4327
4330
4331
4332
4333
4334
4335
4336

1411
1412
1413

2000
5601
1030

MB LK2
STC TPWO
LOA I 10

1414
1415
1416
1417
1420
1421

0451
7665
1000
2371
1440

AP 0

14 22

04 56

X 423
1424
1425
1426
1427
1430
1431

7447

2000-i-E64'l
SK P
IMP Nini N

10 00

LO A

2371
5765
1000
2372
3753
5766
7455
1000
2371
1560
0777
0450
7702
1000
2371
1620
2000
5601
1020
0001
1040
1765
0017
5766

2000 4E6
STC LNl
LOA

14 32

4344
4345
4346
4347

1433
1434
1435
1436
1437
1440
1441
1442
1443
1444
1445
1446
1447
1450
1451
1452
1453
1454
1455
1456
1457
1460
1461

43 50

14 62

43 37

4340
4341
4342
43 43

LD A

/AP RY

2000+E6+1
ADD AONE
STC LN2
JMP CHKORG
LDA

E8 >

E6+2000
BCL I
-7000
AZE
JMP
LDA
BSE

NOLN

ST A

CHKORGt

LNl
COM
STC LN2
JMP MAGTP-10

1460
60 43

60 00 +CH

4354
4355
4356
4357
4360
4361
4362

1466
1467
1470
1471
1472

43 72

4373
43 7 4

10 30

/RESTORE 10

JMP K8a

LDA

F8,

7550
1362

SAE
LNl
JMP BYPASS
LOH
10
SHD I
EOFl
JMP J8
STH
2
I

/TRANSFER

CHAR

/ARE WE DUN ?
/YES
/NO GI VE 1 CHAR
/TO EDITOR
/WAS IT A CR ?

JMP H8
JMP EOLFIX
COM
ADO MAXLN

/NO CHK BUFFERS
/YES UPDATE
/BETA 3, CURLN
/AND MAXLN

1460
0043
7512
0017
2451

/GET 1ST TBLK
/DO NOT PUT
/»20 CR IN
/WITH AP

14 20
00 00

65i^2

AGAIN.

14 64
14 65

1500
1501
1502
1503
1504
1505

/RECALL

1463

4364
4365
4366
4367
4370
4371

/YEP

4351

43 63

MBLK2
STC TPWD
LDA

43 52
43 53

1474
1475
1476
1477

/AP BY 8LK NUM
/BLK NUM TO AC

/TOO BIG C8LK ND,>777]

E6+2000

10
LOA
SAE I
5262
JMP K86
LDA
10
SAE

1473

N NtUM9

SAE

1030
1460
5262
7722

7722
1020
0001
1440
1765
7742
1330

2000+E6

2372

75 70

JMP SAYNO

/BINARY OR
/PROG NAME
/Match ?
/BINARY ONLY

SAE
CR

G8 ,

4375
4x5 76

4J77
4400
4401

1506
1507
i5ia
1511
1512

1140
1765
7554

1513

6110

1514
1515
1516

1020
0001
4351

1517
1520
1521
1522
1523
1524

1000
0003
1440
0002
7543
1000
0451
0470
7535
1000
0770
1460

AZE
JMP ,+6
LDA
CURBLK
SAE I

4451

STC MAXLN
ADD AONE
AOH
LNl
JMP ASF

37 53

H8 #

44 02

4403

JMP CHKBUF

44 04

4405
4406
44fe}7

4410
4411
4412
4413
4414
4415
4416
4417

LDA

STC

PLAFLG

LDA

/HAVE WE JUST
/PROCESSED A
/CR ?

SAE
2

JMP
LDA

15 25

4421
4422
4423
4424
4425

1526
1527
1530
1531
1532

44 26

15 33
15 34

64 67

6\WAEND

7543

1535
1536

10 20

JMP
LDA

7776

-1

6504
2451

JMP
ADD
STC
JMP

CHKEF8

/NO. CHECK END
/YES CHK FOR
/NA TOO FULL
/TOO MANY LNS ?
/YES END OF AP
/TOO MANY BLKS ?

CHKEFS

/NO. CHECK END
/WA IS FULL
/DELETE LAST LN
/AND RTN

MA XL N
I

44 32

4433
4434
4435
44 36

4437
4440
4441

/TO EDITOR
153?
1540
1541
1542

44 51

6152

1543
15 44

1545
1546
1547

1000
1765
1440
1766
7473

CHKEF8,

44 42

1550

6176

LDA
LNl
SAE
LN2
JMP

/NOT END. GET NEXT CHAR,

44 51

1551

64 46

4452
4453
4454
4455
4456
4457
4460
4461

1552
1553
1554

6512

4463
4464
4465
4466
4467
4470
4471
4472
4473

EOLFIX+2
HAXLN
MAXLN

4443
4444
4445
4446
4447
4450

44 62

/MAKE SURE THE ADD PROGRAM SWITCH

44 20

4427
4430
4431

/CHK AP INPUT
/BUFFER
/CHK EDITOR
/INPUT BUFFERS

JMP NOTOK
JMP A3
JMP L3
JMP K8
LDA

1555
1556
1557
1560

7702
1000
0010
1460
5377
6000

15 61
15 62

10 00
16 01

1563
1564
1565
1566
1567
1570
1571
1572

1560
0777
1460
2000
7550
0041

SAE I
MBLK 2
JMP
SET 1

00 00

7730
0603

JMP DTEXTR-1
LIF
3

15 73

A8F»

/COME HERE
/WHEN DONE

/IS AP INPUT
/BUFFER EMPTY

SAE I
5377
JMP 0
LDA
TPWD
BCL I

/NO

/TEST FOR END OF DEVICE.

-7000

/CHOP OFF BLOCK NUMBER
J8

/STILL THERE CNO OVERFLOW]
/OVERFLOW. END OF INPUT.
/GET EXTENDED

OK,

4474
4475
44 76
44 77

1574
1575
1576
1577

0006
1020

1600
1601

0700
2346

1602
1603

0070
4777

DJH
LDA
JMP
JMP

76 00

7620

.+2

GOOOY

A5m
4^02
4503
4504
4505
4506
4507
4510
4511
4512
4513
4514
4515
4516
4517

/TAPE UNITS

1604
1605
1606
1607
1610
1611

2167
3601
5601

1612
1613
1614
1615
1616
1617
1620
1621
1622
1623
1624
1625
1626
1627

MAGTP.
TPWDi

RDC

MBLK2MNDEX

SET I 10
4777

0041

ADO PI
ADD TPWD
STC TPWD
JMP 1
SET 1

00 00

00 72
77 73

SET

60 01

45^^0

4521
4522
4523
4524
45 25

4526
4527
4530
4531
4532
4533
4534
4535
4536

0073
2372
1000
0010
1620
0007
1460
5377
7627
0221
6001
4010

45 37

16 30

10 30

4540
4541
4542
4543
4544
4545

1631

1473
7612

45 46

4547
4550
4551
4552
4553
4554
4555
4556
45 57

4560
4561
4562
4563
4564
4565
4566
4567
4570
4571
4572

16 32

1633
1634
1635
1636
1637

0232
7630
60 01

0057

16 40

00 00
77 14

1641

5731

1642
1643
1644
1645
1646
1647
1650
1651
1652
1653
1654
1655
1656

0264
3600
5600
1300

16 57

1660

23 73

14 20

7700
6017
0237
7570
1030
1460
5757
7665
7610

/INITIALLY HOLDS
/INDEX TPWORD
/HOLDS TBLKS
/DURING AP

/INITIAL ADDR
/OF AP INPUT
/BUFFER
/BUMP TBLK

/SEARCH INDEX
/FOR NAME MATCH
/I TBLK ONLY
/LENGTH OF NAME

-4

SET

E6+1+2000

/NAME SECTOR OF
/MC TABLE

LDA
/PTR TO INDEX

BSE

/NEXT NAME

SAE I
5377
JMP .3
XSK
1
JMP 1
STC 10
LOA I 10
SAE 1 13
JMP 88*2
I

XSK
12
JMP ,-4
JMP 1
SET 17
I

/DUN A 8LK
/NO
/YES RTN
/TO P'^2

/ALL 4 WORDS
/MUST MATCH
/OR WE TRY NEXT
/NAME
/4

MATCHES

/NO DO SOME MORE
/YES NAME MATCH

JMP SETS
STC DTEXTR
4
ROL
ADD MAGTP
STC MAGTP
LDH
E6 +2 +2000
SHD
7700
JMP 17
XSK I 17
JMP MAGTP-10
10
IDA
SAE I
5757
JMP SAYNO
JMP B8
I

/GET UNIT NUM

/SAVE EXTENDED
/UNITS
/UNIT BIT TO AC
/CHK FOR AP
/BY NAME

/ITS BY TBLK NUM
/ITS BY NAME
/GET INDEX
/IS IT AN INDEX

/NO INDEX
/SEARCH 1ST
/TBLK OF INDEX

45 73

1661
1662

6017

JMP 17

75 70

IMP

1663
1664
1665
1666
1667
1670
1671
1672
1673
1674
1675
1676
1677
1700
1701

7610
6017
0011
0061
0340
0072
2035

JMP 88
JMP 17
CLR
SET I 1
340
SET I 12

/FOUND A MATCH
/COME FOR NO
/PROG. NO INDEX
/OR NO MATCH

A6^34<*' 20 00

/GRID ADDR

4b74

M&f^TP~10

45 75

4576
4577
4600
4601
4602
4603
4604
4605
4606
4607
4610
4611
4612
4613
4614
4615
46 16

4617
4620
4621
4622
4623
4624
4625
4626

1703
1704

1772
0061
0352
1772
1772
0415
7665
0011
4351
0002

17 02

352
DSC
DSC

K8 f

JMS

1711

0641
0603
6410

17 14

00 11
10 00

LM ODE
LDF
LI F
IMP

S£ TS t

70 00

"7 77

ftp

lOV Kl

no O t

LU A
1

cv
7 7 76

ADA
-1

1726

17 2 7

4010
6000

7 ^C!

10 20

LD A

1735
1736
1737

46 55

17 40

4656
4657
4660
4661
4662
4663
4664
4665
4666
4667
4670
4671

1741
1742

0000
0643
3702
0011
1040
3701
0641
6000
t>7b7

1330

1744

14 20

1745

0000
7550
1460
0043
7763
1020
0001
1140

1747
1750
1751
1752
1753
1754

JMP
DT FXTR

0
I

LOF
3
STA
TW0S1777
GC
12000
CLR
STA

10 40

17 43

17 46

6000

Li.

1731
1732
1733
1734

OT Kl

/GET UNIT
/NUM

0010

4646
4647
4650
4651
4652
4653
4654

A P

1723

CL R
1

17 24
17 25

46 45

RFAn

L I NC

10 00

10
T

JPLAF

2377
1560

17 17
17 20
17 21
17 22

S A YN 0

CL R
ST c PI ATI r:
PO P
PM ODE

GIF

1715
1716

12
12

/LOOP UNTIL K80

JM P

4421
5770
6141

1713

KS T

62 12

4630
4631
4632
4633
4634
4635

46 41
4 64 2
46 43
46 44

SE T

57 05

17 12

46 36

DSC 12
DSC
12

5706
5707
5710

46 27

4637
4640

SAYN 0 t

/FOUND A MATCH
/GET 2ND TBLK
/OF INDEX
/SEARCH AGAIN

WATAG51777+2000
LDF
1
JMP 0
BYPASS* STC LNCTR
LDH I 10
SHD I
EOFl
JMP J8
SAE
I

JMP BYEOL
LDA I
AONE»

ADM

/RETURN NOW. DONT GO TO THE OTEXTR,

46 72

17 55

17 67

4 67 3

1756

1 440

c
b AA r
t

1 / OP

LM 1

46 74
46 7b
46 76
46 77
47 i30
4 701

47 02

4703
47 04

4735
4706
4707
4710
4711
4712
4713
4714
4715
4716
4717
4720
4721
4722
4723
4724
4725
4726

17 60
1 7 01
17 62
17 63
17 6 4

77 A ?
7^ CkA

17 65
17 66

00 00

0t
Xf1 t\1
i

LN CT R

7d77
V rn

lot

V cn

JM P

ASF

J rn r

JM P

ASF

/ / *» O

0000

UNI
LN2

ti\0 iu0

UN If N

f
T

PMODE
M9UK2=2000
/

5770
5771
5772

0100
0012
0002

57 73

00 01

JPLAF,

OISKO
12

DIALST +2-300
1

/
/

/
/
/
/
/
/
/

EJECT

4727
4730
4731

/
/

NO ERRORS

SYMBOL

VALUE

DEF

AAA4S2
AAA4S3
AAA7S2
AAA7S3
AASEG0
AATTY3

4371

0441
0421
0760

ACR
ACR2
ACTOWB
AJMP
ALTM
ALTHl
ALTREQ
ALTSET
ALT£
AM

AHORUP
AMI
ANOP

AONE
APRTN
APTBLK
AST8LK
ATAD
A3

A8F
A88
BB

B6BWD
B8FWD
8BR0C
BBTBLK
BBWRC
BF
8L

BLKST
BTREAD
BTREC
BUCBWB
BUMPIT
BU^B
BUIC

BUILN
8WDCHR
BWDFR
Bt^OLN

BWOSLO
BYALN
BYAS
BYEOL
BYMC
BYPASS
B12VAL
84

85
B8

CARTB
CB

CBBWD
C8FW0

636^5

4670
6660
1750
7617
5141
5160
4107
7432
7507
7503
1260
5047
7513
0036
1251
3600
5422
5753
6410
0321
0330
1167
4446
2001
5554
1174
2400
4673
4671
4677
4705
4622
0021
0027
6241
4010
4011
4605
0437
4611

4777
5607
5405
l34b
1342
5641
5576
6152
5763
6054
5742
2610
5625
5546
5610
6736
3400
4711
4707

REFERENCES

074t)

3757
2124
1265
1304
0137
1705
1763
1757
3233
ll72
1767
4033
3224
4032
1546
4670
0454
4005
3774
3141
0523
2154
4454
3147
4015
0766
0762
0772
1000
0711
4053
4051
0266
0024
0025
0672
2522
0676
1111
1741
15 31

3321
3315
1776
1727
0173
4700
0066
4657
4065
1761
1674
4516
1027
4020
1007
1003

3334
1230 1266 1276 1302
1217
1677
1714
1 /66

1174 3226 3237
3234
1716

3175
3541
4317
4630
2641
2627
3125
0335
1063
4401
1171
0464
0647
0404
0550

4 37 6

2634
0360 0437 1767 2044 4451
4604
4676 4700

0433
0650
03 63 0542 05 46 0551 0614 07l2 0756 2053 4l23
03 62
35 44

064 4 0732

3543
02 07

0254

0052
0053
2021
2476 2523 2535 2536 2544
02 12 0245 0257 103 7 1545 1613 2110 4267
1720 1722
l7l4
1537
3251
3245
i/66 2031
1125
0166
4666 4 67 5
0055
4360 4701
3025 4066 4242
1757 3316

4541 4571 4576
1024
0426 0520 0654 2007 2103
2016
0515 0622

OEF

RtrERENCLS

SVMBOL

VALUE

C8MT
CBHDC

47 1':^

CBTBLK
CBT0W3

1Z14
1022

4 4 7 4

ii554

i3337

Cb W^C

4 72:>

CHAR
CHKAM
CHKB JF"
chkcnt
CmKLO
CHKEF8
CHKEND
CHKMC
CHKMC3
CHKMT
CHKMTP
CHK^OK
CHKORG
CHKPLA
CHKPOS
CHKWBE
CHKWBF
CHRCTR
clRall
CLWA
CMACHK
CMArMT
CMARTN
CNTALL
CNTOUT
COMA
COMAl
COMFLG
COMFMT
COMPEA
comrtn
COMSET
COMTB

75bi?

1025
2053
3341

31«?i

2013
1634
3305
1145
1213
1177

CRCOOE
CRHI

crlow
CRSET
CRl

CTLTA8
CURBLK
CUHFLG
CURGO
curln
CURPTR
CURPT2
CURRTN
CORSET
CURSOR
CURVAL
CURVC

Z3i5/

331/
3263
44 41

42 C6

04 J
37 61
416t5

5256
45t>l

43»2

6266
4041
1&27
1464
bl37
65>2b

1660
20b4

b^m
1374
1414
1731
5124
1371
1637
0043
7547
5173
31 ^^3

3014
4300
106P
4772
6i573

6466
4447
64o2
4026
tb^2
63^12

13 7'^
02 43
03 02

1434
2312
2123
4343
0220
1402
06 33
04 22

2567
0316
0 063

35 02
34 37

1263
0600
3635
4042
4040
3347
3367
3716
1230
3344
1036
402 /
2042
1321
1231
1134
4026
3031
10/2
010/
0541
0524
03 03

0044
0625
0533
01 10

6076
0016
6074
5042

542 7

OtCOOE
OEL^C
OELTA

4274
1216

42lg
0030

02 45

4021
0106
1162

^345 •3376
0516 t^62 3 ii6 51
0 621 1010 4136
1671 1717 1/31 1735

4403
1644
3267 3343
44 16 4427
1263 1301 1330 1416 1446 1515 1523 1555 1570
1^:34

02 44

1455 1504
2 502
1220 1237 1313 1434 1473
4321
0144 0210 1543
1210 1221 1316 2133
02 05 154 0 2004
0142 0346 0377 0633 0670
0127 2462 2475 2500 2547 2550
0305
0121 0154 3136
3514
3313
3526
0373
3551
12 55 134 4 35 42
1312
1260 2572 3162 3345 3374 3461
3311
3/10
3430
3201 3436
1022 104 7
4352 4370 4665
0773 0072 0163 1123 1271 1305 1561 1725 3541 3607 3622
2003
1325
1324
1321
0427 1252 1301 1341 1377 0557 0704 l521 1713
2/46 3010 3032 3034 3035 3037 3050
0410 0440 1154 4125 4424
0101 0670 1101
0534 0576
1647 1650 l700 2001 2061 4l3l
0156 0263 0455 0565 0566 0607 1140 1141 1503
3554
0620 1135
1447 l45l 1464 1465 l5l4 1552 3210 3352
0624 0134 0450 0451 0666 0667 1245 1246 1373 1403
0527
0564
0067
00 3 3 0552 0357 0374 4247
2032
lfl075 0672
1273 1303 1322 1417 1435 1437 1474 I5l2 1633 1775 2003
0465 0062 0874 3160 0201 0247 0331 1225 1227 1243

01 7 6
k!465

2142 3221

4060

0271 0413 0431 0467 1335 1457 15 41 2102
1156
4062 4063 4064

SYMBOL

VALUE

OFF XR
01 ALST
DI ALU

16 3.-:

DEF

40^.1

0 1 iM3 UP
0! SKD

27Zb
6766
01 iZ

37 64

561^

01 SPLA

t>i>31

1744
1657

OISTXT

6661

^75^^

DO AB
DO AP
00 AS

6364

0423

6lDi:

01 /I

008U
docl
OODX
DUEX

bb7l

1722
0113
2066
2062

dolef

533!3

l'>61

OOLl
OOLO

6146

00 HC

63 b7

OOP
OOPb
DOPX
DDQL
DOSB
OOSP

tlZb
7657
7353
6133
7206
73lb

0167
0467
0415
0122

DOSPTP
DOWN
DSCCHR
DSCCUR
OSCRTN
DSYS
DTEXTR
DUNGAP

733i?
5S>36
675i5

73 64

61i?l

7563
7bbl

642s;

OUNLEF
OUNlO
DUNK IT
DU NS 8

OXTBLK
Dl
05>

06
06 CTR
06 LOOP

D6PTR
06VAL
EANOZB
ECON
edalt
EOSET
EGGSIT
END8Ur
ENOCHK
ENDFLG
ENORUB
ENOSKP
ENDTAB
EN 0TB
ECbERR
EQBLOP
EoaPST

3t)7l
k3027

2b22 ^646 2676 27lJ 4/i3

4 0tV

DISKS
oisln

HtFErJENCES

15iJ2

1521
0151
1335
14t>t>

14 7 7

4117
5004

1704
1061
0045
0655
3767
4646
1363
3611
1467
3624
1432
1413
4010
0147
1116

22 43

24 21

11Z5

3051
3042
4067
4066
2272
2112

6036
6620
73 41

5731
t>237

1634
i>343

1647
t?3i36

7264
0361

10 76

2241
262b
773t)

7607
1301
5052
7075

1233
6542
5414
6/42
7557
6757
5037
4135
4143

0103 1053
0025 2620 2625 2632 2637 2644 2651 2656 2667
0201 2176 2220
1/01 1731
1164 1172 11 75 1200
1171
2406
2356
2364
1726
0117 2402
2372
2360
1466
2370
0147 2414
2412
2374
2400
2376
01 70

2410

2366
2362
1465
0743 0764 1152
1137
0647
0141
4472 4551
1352
3600 3623
1454
3616
14 21

1342
4011
1161
1707
0504
3040
3047
2747
2/50
1163
0175

1400
3332

0657 1705 2055 2074 305l 4067 4147 4177
3012
3011

32 54

32 72

1175
1212
257 ;

3264
1206
2526

32i56

31 47 3 464 3555
0536 0571 0603
1524
1020
1655 1704 1741 1756 1763 1772 1773
1017
1151
0200
0164

0615
1540
1033
20^2
1050
1157
0165
0173

SYMBOL

VALUE

OEF

REFERENCES

E08WR0

4146

017 2 1160

EOF

00 (d0

EOFRAM

7023

EOL!^ IX

45>02

ERROR

16b6

0176
4031
1127
4030
0563
3633

iRRX IT
EXIT

70!?1

Il6ii3

7517

1773
4014
15U5
1444
2017
2427

EOFl

EXTMTP
EXTRUB

mis

L2
E4

7305
5661
2371

E6
EB
F'CSA

FCT8LK
FF

FILE
Fl RSWD
FI XUP

FLOSET
FLDTAB
FREE
FROH
FUDGEC
FWOFR
FWDLN
F2

F3
F4
F5
F8

GAPARG
GCLOC
GCORE
GCTWO
GETCHR
GETCUR
GETSA
GETTTY
GOCNT
GOOD
GOODY

GOSCP
GOTAB
GTOUT
G4
G8

H8IT
HERE
H4

Hb
H8

ILEGAL
IN8UF
INDEX
INITLF
INPT

INPTRS

06 01

0667 0671 0753 0765
03 73 4363 4662
0167 0342 2025 4372
36 30

0177 0217 0234 1505
1752

17 33 174 4 1750
14 24

1 457

0417 0471 1413 1461
2012
0123 0146 0213 0216
4305 4307 4313 4316

5434
0020
0350
6100
0470
6602
5312
6^00
6722
6753
0270
0101

4322
4012
4004
4052
0657
1436
4054
1013
1044
4000
3117

3033 3042 3044 305 7

05 05

25 72

25 64

1344
1350
7122
4461
4255
6625
5473
6100
7661
7703
7702

3317
3323
1245

32 47

0455
6452

2540
0525
1373
3531
3572
3634
2125
1732
1015
2222
2073

72 44

1556
1615
1657
762fe3

56 01

6724
7704
5732
5503
4000
0513
4267
6635
5512
7516
4053

42 73

1425 1500 1517 1554
2653
3544

37 77

0540
0320
0703
4361
0112
2171
2221
22 20

0514 0664
14 32 1472
3545
0760 0771
1014

3253
1260
0364 0412 2076 2077
0316 2035 2104 3324
1002
44 45

4 67 7

0673 1067 1105
2137
2152 2160 2161
21 72 2 177 4651
2566 3536
0665
1364
3163 3235 3265 3275
3610
3632
0720 0752 0776 1020
1746 1751
1036 1040
iJ143 2166 2167

43 72

4017
2600
0333
0717
4401
1772
00/5

0344
3212
0124
0325

0556
3241
2576
0353

4371
1707
0061 0065

03 4 6

4 003

45 02

4771
0517
0770

107 7

0106 2141
2/21 2774
0064

2620
2715

0622 0132
36 02 4144
2601
2120

SYMBOL

VALUE

DEF

REFERENCES

T
i

MQ
nT
Jr
tO

5 202

1 32 6

1214 130 7

QT Q2

0626

1 055
m1 A 10 56
05 20

H <7

W AI T
CIS '< <

5/^17

05 37

5
*t*f
O 4<a
CA

JB AS 1
JB A S 2

0^23
052 7

26 25
2 6 32

J8FC 2

05 43

2651

1 1^

wo LU
JB ME T

0547

2656
3650

04 76

JB AP 1

1 6 72

04 60
02 4 7
02 4 4
S Dl

60 60

00 72

2412
2667

2 4 05

7
^
oo
0A
CA

1 •* c W

jB H4 7

2116

3644
0102
c

U Lu

77 76

O" A U A
J8 SB

0553
054 3

J USP

05 4 3

2 66 !3

1472 1512

J8 TM T
IQ T n
M TQ
ijD
o

77 62

23 73

00 70 2 43 4

7 7 71

2 4 02

23/4

JGC

66 10
57 70
43 00
66 54

06 65

J tS

jp j_
j4

47 11
03 45
07 41

JO
KBD I
d uu r

L/D
nn POn
f\

40 76
74 00

w
n T
nbtj nUUU
!

o Ui LIN

0125
01 2 6

55 66
56 3b>
/!

M7 <1

0 74 5

43 64

4467

10 1 1 ^
2 4 71

01 1

1714
1

7 7 .P

1 7 bl

KC R

46 23
03 41

20 43 2 04 6
7 i 1
I'll
0117
1

012 7

KG 0

i
41
00
16 61
15 62
55 63

17 11

04 21
35 33
17 21

K HERE

4 0 75

KLEG AL
koh

74 33

01 24
17 06

16 76

0057

4044

1255

KO Mi

57 00

40 43

KPTAOR
KPT12
KSAM7
KTAD

1166
1173
7067
1171
4213
4152

0037
1362

3140
3145
1204
3143
0250
0203
3144
1174
4615
4637
1626
4072
1717
4023
3335

75 45

20 40

1254
3700
6240
5767

3227
4022
0265
4704
1762
06/5
4045
16/5

KC TR

wn
riM r*
tsU Un
L

KGET

KT4
Kl

K2TAD
Kb

KB8

lastcr
LCOOE
LEGAL
LF

LFCHK
LFCOOE
LFQRRO
LFl
LI ORCV

LNCTR
LNFEEO
LMFOR
LNHC
LNSPER

11 72
70 57

5/02
5722
5502
1400
74 43

75 06

6620
1013
5547

36 36
35 36

0113 0115

3062 3124
3143
1662
3021
0253 0266
0174 0213
3026

m76

0 724

4327 4453
4347 4353
1522
1353
17 06

0054 1011
3303
2005
3173
0762 1233
0173
4657 4672
1713
05 05

0720
0313 1667

SYMBOL

VALUE

DEF

L-a
LN2
LOCATE
LOKATE
LOOP
LOTBLK

b76b
5766

4 7;'12

I33t>4

4703
034J
0251
37 11
4006

4!? 12

05 74

5711

44 51

2052
4546
4501
1345
0531
0526

0172

40 70

MA XVC
MBLKi?

66 2>5

0700

20iii2

47 06

MChC
MCVC
MHBIT
MI NUSl
HKHC
M00K80
MOVEIT
M24

1051
7420
5251
4156

0503
4234
6762
6270

4050
4046
1375
0207
4047
2453
3065
2570
0274
1063
0320

56 66
53 76

20 24
15 22

5521
5447
6562
5377
4176
6321
6304
7142
5367
1033
6627
6544
1010
6573
4027
200^

1645
4335

41 71

0223
041/
0356
3350
0104
4061
4074
4063
4062
2573
2574
4064

6^11
4214
1724

MAGTP
MA K GAP

MAX8LK
MAXLN
MAXNUM

M5
M8

NEGl
NOAOJ
NOCNT
NOLN
NOPAS
NOTACR
NOTOK
NUMCHK
Nl

OLOPTR
OLDSAM
OUTCUR
OUTPTR
OUTSCP
PASTL
PCODE
FLACTR
PLAFLG
PLAFUL
pnSCHK

5600
5221
4454

17 6i
04 00
21

4351
4310
1375

POSl

60 72

PTADOR
PT5LK

PliJiija

2400
0320
2520
2450
0506
0507
2570
0361
4167
6035
5072

P2T

76 06

PTEX IT
PTINIT

PTRIN
PTROUT
PTliJB

PXTBLK
PI

06 35

1523
0231
0355
0335

REFE^L'vlCES

4314 4340 4357 4400
4320 4342 4444
0312
0353
3/21

4 44 2

4674

26 60

1/70 2047 2121 4 45 2
0272 0307 2072
4271
4343 4554 4555 4564 4574
1362
0407 0 745 4135
14 35 0152 0170 0171 03 00 0304
1163 1622 34 70 3 62 5 4150 4200
1124 167 2
42/6 40Jo s^Oo 4 502
1007
1004
1244
0314 0571 0660 1/55
1151
0632
3022 3027 3103 312 6 41 11
2463
0254 0306 2066

11 *»o

1 l** *t

0311
2015
1634 1642
4311
0641
1443
0173 0434 0501 2132 2135 ^1^ / 44 47
0310 0401 1401

12 6/

1513
2770
07 06

0617
2741
0650
0046
40 71

A A etc;
1422 1426 1427 1440 14 42 145 2 14 55 14/1

00 60

1665
0540
1062
0630
0037
1350
0211
0110
0145
3367

0577
0653 0662 0713 1116
0632 1544 4134
0366 0411 0731 4266 4410 4616

42 56

3140
2703
2/45
2734
0125
0126
3145

4062 4107
3007
4063
2474
2542
4065

4064 4171
4143
2477
2545
4221

4011

26 71

0221
0044
1215
2111

0^51 0321 0365 1142 1157 1762 2056 4512
0037
0226
2101

11^7

P56

VALUE

OlF

4 2t)»?

0 31 2

5320

4542
117?

0625

06 62 0665

66 73
63 55

0764
0371
0346
4073

31'^ 2

F6
QH ARKl

6314

00 £'4

405 7

RDCASM
REaO

6166
24? 2 1

0207
2445

71t:.i

llZ'c

11 ZZ
b6 2'Z

^E GCHR
RESET
RESTRT

tj46k'

RE TE X

405t?

PJMP

4767

RO
RO ACHR
rolep*

ROR
ROl

1401^

1207
160 4
2141
005 /
10/1
4056

00 i 7

40 35

t>5 22

I47t>
14 46

t?2 7 2
,57 iJcl

0022

rtn

RTNEOF
RTNJMP
RT NMOD
RT NR TN
RT NS ET

RUB
RUBC
RU8L
~UDUU

712 40

7523
0450
10 iJ5
12
1>556

!:>1

135>4
1

R U 5R
R<5

74 7 7

13^2
4 323

SA MA RG

SAM3
SAM7

I7t)3

3123
1032 IZ 43
0347 0410 12 45
07 74

1307
3322
3546
1617
0«^43

0246 0443

4622
1317
1262 3205 32 23
1441 1614
4166 4216

1065
3546

405t>

1236 1425 14 30
3350
3326
3543
3545

20 07

20 02

1146
1777
2506
27 35

1131
1644
2457 2503
3030 3 05 2 3744

1416
4034

16 25

15 75

1236
3331
3327

1247 3232 3340
3261
3257
1/12

17 53
33 25

0371
1663

32 55
04 01

0712
0533 4222 4225
0703 1207
3041 3046 31 06
4303 4570 4614

60 20

00 27

6026

0035

SA VAC
SA YNO

01 00

SBT8LK
SCOPE
SCPRTN
SCPSTR

0356
64^3

51 16
4600
4007

05 04

60 73

010:5

6623

0660

SETS
SETUPl
SETUP2

5 ?14

4 631

4t>50

0322

T6N3

5447

3765
3766
1573

0042
0044
1320 1323 1547
2 7 33 2744 3006
3507 3 52 2
3056 3066 3074
3054 310 7

^>6 65

03 2 3

30 53

SH lET

111?-

SHUriE
SKPCHK

15 44

3517

1141
1152

3l0t>

SKPL IT

3122

00 4

40 3 7

SPCH AR

1563

SPf'CNS

14 0^5

SPTBLK
SPYTAB

4533

SPi

4000
1436
0511

3540
401 ^
0616
1665
4036
3411

SRTA8
STBUr

74 14

25 76

1737
0047
0517 0635 1153

3167 3241 3271
1464 4126
1672
0377 1276
3424
2531

bY Mb UL

VA LUE

DEF

REFERENCES

S T L I NC

7/ c 0 A
o

1 36 5

STROP

227

1356

1 >52 0

1354
1351
1202 3151
3274
0645 0654
25 43 2551
0374
0270
1710
3414 3417
3434
1664
1053 1054
1044 105 4
0136 3456
1011 4137
12 04 1251
0757 0770
0535 0537
1203 1207
1344 1355
1354 1360
3355 3361
2524 2525
3015 3672
2577 2604
3036 3043
0663 0664
3063 3065
02 67 1764
0233 0324
0502 2040

3045 0 O 1 70 a7
1510 1610 1 /04
3100 "ti oil OX
2112
0330 0 60 5 20 42 4133 4155 4167 4205 4217
4141

42 77

44 62

bU d5 £T
SV ACC
SV CHR

b0b5

32 73
12 00

6601

065 6

S6
b4

4 33 4

0402
20 34

TA BC NT

56 75
7 4 71
14 56

Tab

0t> 10

25 7 5

174 5
34 31

TA BEND

144 5

3420

T AA CI
oL rL
1

75 43

C\0OO

TA
A Qc
Us rL T

012

T A rr o

1 'J 7 7

00 4 7
47 33

40 25
10 33

41 01

01 31

TP 1

4700

40 24

6 541

0 614

TC MP 1

4022

00 40
00 41

u no

•IW £ O
401'? 4

T r MP 4

1413

TE MP 5

04 54

TEST M

170 5

htnc

10 53

3366
2537
3671
£ 0 101

01 03

Tft

"
Tn
r T D
UnD

4 02 5

T0R F

0102

TP CH K
TP FL G
TO CT A T

42 02

T Q V D NC

04 22

TX T H C

1157

'^l
kJ -JX
1 171

004 3
3120
02 3 6
06 05
45 02

4 33 4

3160

2565

1055

CtSA

12 63

3413 354 0
0575 0 60 6
oil
1216 1306 1311
X 1X
"^A?
1 406
/
1361 A1 oo
<u

2532
3727

2 534

•!

4 51 3

57 4 4

21 06

2461
0751 0776 1053 1115
1751
1732 1740 1747 1 7 (%R 20 0 4
02 74 0277 1452

63 54

04 12
37 72

0374 0402 04 06
0156 0204 0224 0237

4650
4664

1223
1226
1322
1066
3123
0630
3773
3776
2215
3775
4016
0444
0737
0754

0436
0073
4173
0544
0266
1153
2165
0414
0436
0143
0415
0547

56 50

20 06

20 22

0724

4635
1742
4747

WRITE

00 22

WRLl
WRL2

0557

0403 0432 0613
3717
1043
2257 2262 2265 2 27 0 1052
2762
1056 2724 2757 2 77 7 3131

T Y CA R

/ -> C *f

d M 01

TYPE
TO
T Tt

o
TA
1

UN IT NO
\JP6

UP6
U2

VCOORD
VIRGST
V3
WA

MAEND
WATAG
WAUNIT
WB

WBFULL
W8RDC
WBT8LK
WHTOCB
WBWRC
WGA12A

0777
5100
5102
7174
6765
1153
4545
0370
0467
7701
0000
3000
43 72

05 63

37 36

1047
2446
2674
2701

12 22

1264
1313 2107
0701 1005 1111
0552
2201
3777
2202
0612
0462
0347
0652
0770

2215 1072 2074
4426
4654
0721 0736 0777
0631 0640 2101

4124

SYMBOL

VALUE

OEF

464 7

w'i

4t>27

6242
6774
1554
1462
1^60
6543
7046
1247

0736
0612
0267
1075
3527

0174 1502
1201 1025
3454 3457 3463 3466

34 35
33 33

33 76
33 07

0616
1154
3222
1565
0522
1063
3220
1035
1003
2414
2241

0543 0551
03 33 0416
3171 3225
14 77 1556

XI TCMA
XI TCOM

XITCR
XI TCUR

XITERR
XI TREG
XI TRO
XI Tl
X I T2
XI T2C1

Y&
Y6
HERO
jfH7000
HPl
^P2

2P3
EP4
£2
26

54 41
64 47

4761
1245
4735
6712
224 0
7706
77 6 2
77 4 0
77 44

7752
7756
7574
2201

24 34

2301
2311
2321
2330
2077
2355

REFERENCES

0554
0430
3230
1562

0561 0567
1302 1305 1310 1320 1333 1336 1345 1355 1402 1456 1460 l542
3346 3372 3530
3314
1571

20 76

3165 3177 3203 3243
1447 023 2 2114 212 2
0062 0763
0330
2404
2246
2260
2263
2266
2271
15)21 2066
0326 0330

3336 3512 3633

2 104