Digital PDFs

DEC-12-ZR2B-D

December 1970

178 pages

Original

10MB

Document:	dec-12-zr2b-d
Order Number:	DEC-12-ZR2B-D
Revision:
Pages:	178
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-12-zr2/dec-12-zr2b-d.pdf

OCR Text

IDENTIFICATION

Product Code:

DEC-12~ZR2B~D

Product Name:

DIAL-MS PIP 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 hAPS'^ by Mary Allen Wilkes
of Washington University,

The assembly portion is derived
from several programs used for 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,

Rep. No.

LAP 6 Handbook Computer Research Laboratory Tech.
Washington University, St. Louis, May 1, 1967.
,

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

l.Q

PROGRAM OVERVIEW

PIP is basically an I/O device manipulator.
It transfers data from one
device to another, perhaps doing some conversion on the way. PIP
works with two
types of I/O:
sequential and file oriented. File oriented merely means that
the
entire file resides on some device (DECTAPE, DISK, etc.) from which
any part of
the file may be retrieved at any time. On such a device
there exists an index
which has the file names, the record numbers and lengths of
each file.
Sequential
input is defined as a string of one data word after another,
where generally the
length of the input and/or output is unknown and where it is
generally impossible
to "backspace" the input device to retrieve characters
once they are read in or
written out. PIP can transfer files to files, files to sequential,
sequential to
sequential, and sequential to files.
PIP is composed of several "handlers".
Each handler does one conversion
task {binary, source, etc.).
The initial display chooses which handler to use.
The handler does not do any I/O; rather it sets flags which
tell the low level
I/O routines what to do.
This is done by two "flags" called BFLAGl and BPLAG2
(for exact values see the system routine descriptions at the
end of this manual)
If either BFLAGl or BFLAG2 is zero, then file oriented I/O is
to be used instead
of sequential.

If an input or output is sequential, the handler gives an
AUXIN
to get a character or AUXOUT to output a character.
Thus, from a high level
point of view, the handler does not know or care what sequential
device it is
using; all it knows is that when it gives an AUXIN, the I/O routine
will

return
with a character in the AC (the AUXIN also checks for CTRL/d, CTRL/P,
and CTRL/Z)
For file to file operations a "FILEC" call looks up the output
file using "DIRECT*
and then uses "COPY" to transfer all the data.
(These routines are described in
system subroutine calls, section 2.0.) For file to sequential
or sequential to
file operations, separate "mini-handlers" are often required.
For example, the
binary handler has two handlers, BINTAP for input from tape and BTAPE
for output.
Note that these cannot both be in use at the same time because file to file
operations are done by "FILEC". Thus, PIP is merely a grouping of subroutines,
with a very small main loop. This modularity makes PIP fairly big,
but it also
makes it easy to understand and to modify. Most of the key subroutines
.

are

described in the back of the next section.
2.0

PIP SUBROUTINES

PIP is basically a set of general purpose low level subroutines and a master
coordinating loop which calls them. This section describes what these routines

do and how to call them.
is used as follows:

Instead of using a JMS NAME type of call, the equal sign

PNAME = JMS NAME

Thus, by just stating PNAME, the subroutine call is obtained.
In almost all
cases all the tags defined in a subroutine begin with the same letter as the

subroutine name.
TAPE

Sets up the index information area (locations INDEX through CUPPER) to
use tape rather than disk.
Sets the unit to between 0 and 7.

DISC

Same as TAPE except the unit is set between 10 and

PUSH

Takes the "FBLOCK" area (FSIZE through PNAME+3) and moves it to an
area called the "lower save" area

POP

Transfers the lower save area back to the FBLOCK area.

HPUSH

Transfers the FBLOCK area to the "high save" area.

HPOP

Transfers the high save area to the FBLOCK area.

LEADER

Generates about 120 characters of leader-trailer on the chosen output
device (BFLAG2)

FILEC

Copies a named file from one unit to another. The input unit was
already "looked up" and exists in the high save region. The output
file name and unit are still in FBLOCK.
FILEC will do the rest
and return to PIP.

PUTL

Puts a character on the TTY.

DISPLAY

DISPLAY
XYZ

XYZ

47,

AC=character on entry; AC=0 on return.

Horizontal coordinate (1 word)
Vertical coordinate (1 word)
Text/F Q and A type
H text
end\/.

Display will display the message pointed to by the next word.
The
first and second words are the starting horizontal and vertical
positions on the screen. The text is standard Q and A type text, but
no replies are permitted.
This routine displays the message once and
then returns.
To refresh you must go back and redisplay it.
PIP

Restarts PIP.

DIAL

Returns to the DIAL monitor.

COPY

Copies blocks from one unit to another.
INBLOCK contains the first
input block number, OUTPUT contains the output unit. OUTNUM contains
the two's complement of the number of copies to make.

CHECKIO

Checks to see if a CTRL/D or CTRL/P was typed.

GETL
xxxx
xxxx

comes here if no character typed (1st word).
comes here with typed character in the AC (2nd word).

DYRECT

Looks up the name of a file on a device index.
The index information
is contained in INDEX and ILEN and the unit in FUNIT.
The name of
the file is in FNAME and the type of file (source or binary) in FTYPE
There are two types of files:
(1 or 2).
input and output.
If FWHAT=1,
then it is an input file.
If the file exists, then the starting block
number is left in FBNUM and the length in FSIZE.
If the file does not
exist, the routine issues a "NO" display.
If the file is output, you
2

supply the length in FSIZE and the routine will return the block number
in FBNUM.
The routine handles the "REPLACE" and the "NO" messages.
DECODE
XYZ

This routine will get a line from the Teletype, check its syntax, and
then return.
It will display the user's message at XYZ (see DISPLAY)
in addition to displaying a "REPLY".
The reply is of the form:
X

1234

single
letter

octal
number

;

ABCDEFGH

8 six bit
characters

4321

octal
number

The first letter goes in the location "FTYPE" in 8 bit ASCII, the first
octal number goes into FUNIT, the 8 character name goes into FNAME
through FNAME+2 (filled by 77's), and the last number goes into FSIZE.
Any missing numbers go to 0, any characters missing from the FNAME go
to 77.

MOVE
FROMLOC
TOLOC
NUMBER

The move subroutine will move NUMBER number of words from FROMLOC to
TOLOC.

NOG

Displays the word "NO" on the screen.

REPLACE

Displays the word "REPLACE" on the screen and waits for an R.
If an R
is typed, it returns.
Replace does a PUSH on entry and a POP on exits.

It never returns.

READ (or WRITE)
UNIT #
Core Loc. (starting loc of transfer)
Number of blocks to transfer
First block of transfer
These are the calls to the Mass Storage I/O Handler.
UNIT # is the
device number (0-7 = tapes 0 -7;
10-17 are disk units; 20-77 are
unassigned yet; 100-7777 an error condition occurs).
If you overflow
from location 7777^ the routines will automatically read into location
of field 1, and so on.
PIP uses essentially the same RF0 8 and RK0 8
routines as BUILD.
For a detailed description see DEC -12-ZR5A-D.

SEARCH
CHECKLIST
GOTOLIST
CHECKLIST,

301
302
303
320
307

4215

bit

GOTOLIST,

on = end of list

AFOUND
BFOUND
CFOUND
PFOUND
GFOUND
CARRET

This routine checks the contents of FTYPE with the list pointed to by
the first argument and, if found, goes indirectly to the corresponding
position on the second list.
Note that bit
If not found, it returns.
0 is the end of list indicator.
Therefore, only values between 0 and
3777 may be checked using this routine.
3

AUXIN

Gets a character from the device specified by BFLAGl.

BFLAGl =

Teletype
High speed reader
Card reader

= 2
= 3

Any other values should not be used.
AUXOUT

This puts a character on the specified device.

BFLAG =

=
=

Teletype
High speed punch
Line printer

Important lower core locations
0000
0001

AUTO 1-AUTO

is used by JMP s in LMODE
is used for displaying characters
*

(10-17)

Used for auto registers.
TEMP
TEMPI thru TEMP

These may be used as temporary locations at any time. Remember that
as a routine is called, that routine is also free to use them.

KEYCHAR

Last character typed on the TTY.

BNUM

Nximber of 400 g word blocks that can be used for buffers.

INBLOCK
through
OUTNUM

See COPY.

INDEX

Contains starting block number of the DIAL index (normally 346)

ILEN

Contains the blocks length of the index (normally

ELOWER

Lowest block on the device.

EUPPER

Highest block on the device.

CLOWER

Lowest block the system uses on the device.

CUPPER

Last block the system uses on the device.

FBLOCK AREA
FSIZE thru FNAME

FSIZE

generally the length of the file (in blocks)

FUNIT

unit on which the file sits.

FTYPE

1
2

= source
= binary

anything else = wrong

FWHAT

1 =
2

input

= output

anything else = wrong

FBNUM
FNAME

starting block of the file.

name of the file

characters =

words).

3.0

ADDING OR DELETING DEVICES TO PIP

3.1

MASS STORAGE

Mass storage I/O is all done by calling the system read and write routines.
By looking at the mass storage routine (approximate location 1400) the reader can
see the general call is:

READ (or WRITE)
unit number
first core location of transfer
number of blocks to transfer
first block number of transfer

The key to selecting the type of device lies in bits 6-8 of the unit number word.
There are, therefore, a maximum of 8 possible types of mass storage devices which
PIP may use. At present, only device type 0 (units 0-7) is implemented as LINC
tape.
Type 1 (units 10-17) is now the RF08 or the RK08. Type
and
2,

(de-

vices 20-47) are used for additional RK08 drives. Slots 5-7 (units
40-77) are
free and there are no plans to use any of these in the immediate future.
These
slots have a "NOSUCH" in them so that if they are referenced, they will
merely
JMS to NOSUCH. NOSUCH will display an error message. Note that this
should not
happen in practice, because PIP should not try to address imaginary units.

Assume the reader wants to add a new mass storage device (for example, a
drum) to be called device "7".
At location 1411 (the last word of the input
slots) put the address of your read routine.

Then, whenever PIP attempts to

read from a unit on device 7 (units 70-77)
it will call this read routine in
the manner just discussed.
The write routine uses the same principle, with
the exception that the address routine goes at location 142 3 (the last write
,

slot}

All that now remains is to tell the particular handler about the new device
now made available for it to use. You would probably want to add it to the
scope message; because that is merely adding one line in the middle of the

desired text statement, it will not be discussed further. Assuming that you
wish to tell the COPY handler about the new device, consider the following seAt location ACOPY (approximately 5626) the COPY routine calls DECODE to
get the unit.
It then checks for an "L" for LINC tape (314) and for a "D" for
quence.

This ensures
Notice that the LINC tape unit number is ANDed with 0007.
a unit between 0 and 7, which is device 0, which is the LINC tape routines.

drum.

For this device

AND the unit with 0007 and then add 0070.

unit as being between 70 and 77.

COPY logic

This ensures the

will do the rest, including calling

the mass storage routines with the unit selected, which in turn will call the

particular handler.
3,2

That is basically all there is to adding another device.

SEQUENTIAL DEVICES

Sequential devices are selected by program switches (BFLAGl and BFLAG2) . To
insert or remove a sequential device, add a BFLAG test in SEQIN or SEQOUT, the input and output routines.
The exact nature of the device is then unimportant, as
is the actual testing of the BFLAG switch.
As an example of this, a brief

description of the card read routine is in order.
The card reader is at present the most complicated sequential device on PIP,
It differs from most other devices in that it has a limited amount of time to read
in a mass of data.

For this reason, it has its own buffer.

The card routine is

initialized by call CDINIT,

This sets certain flags and stores the limits on the
card columns to be read in. The main entry point is CDREAD. This routine
actually checks BFLAGl and then returns to the third address after the call if
BFLAGl^^a.
It returns to the first location if the data is not yet ready.
It returns to the second location if the data is ready with a character in the AC,
The
routine reads in an entire 80 column card into CDBUF.
The buffer is 40
words
long because BCD is only 6 bit. After an entire card is read in, it then translates it to

bit ASCII,

This is done by using the CDTAB which is a table of the
6 bit ASCII characters.
The characters are arranged positionally to correspond
to the values of the BCD,
As an example, the translation of the character "A"
6

follows

A has the niomerical value 61 in BCD from the card reader. The table CDTAB is
packed two characters to a word. Therefore 61/2 = 30+ Remainder. This may be
taken as meaning the 30th character from the table CDTAB, right, as opposed to
left if the remainder was 0.

ASCII value of "A".

The contents of CDTAB+30 is 01, which is indeed the

It then stores this correct value back in the card buffer

CDBUF until it translates the entire card.
to the user on an individual basis.

another card and translates it.
IBM-029 Keypunch code.

Then it will give the characters back
When it has exhausted CDBUF, it reads in

The translation table CDTAB is set up for the

This table may be reshuffled or changed in any way, as

long as blank is always the only character to have the 00 value,
4.0

FLOWCHARTS

(Attached)

PIP FLOWCHART CONVENTIONS
An underlined name means that routine has been called.

means that is the message now being displayed,

A name in quotes ("F")
A subdivided box means that the

rest of the box is the argument to the subroutine which is being called.
at the end of a subroutine means return to the calling program.
5,0

LISTINGS

RETURN

(Attached)

The Disk I/O routines are functionally the same as the DIAL-MS routines.
a more detailed description and flowchart, refer to DEC-12-ZR5B-D.
6

For

GO INTO POP MODE

CALL "RESTART"
ROUTINE

DECODE
PIP 0 PTIONS
a-AUXiLL/ RY MODE
b-BINARY MODE

REPLY NOT
ON LIST
ASK AGAIN

s-SOURCE MODE

CALL

SEARCH"

R0U1riNE

AR61 POINTS TO

ARG 2 PO NTS TO

"S"

BINARY

ASCI)

EXIT

CALL "RESTART"

MOVE THE FOLLOWING
INSTRUCTIONS TO 4013
LINC
LDF 3

JMP .+1
RDG

JUMP TO 4013

GET FIRST POINTER
AFTER CALL AND
PLACE IN TEMP
I

GET SECOND
POINTER AFTER
CALL AND PLACE
IN

TEMPI

GET CHAR POINTED
TO BY TEMP

IS IT

NEGATIVE
?

YES

ADD 4000 TO GET
RID OF SIGN BIT

COREF

ZERO TEMPORARY

LOCATION

ADD

TO TEMP

OVERLAY RF08
ROUTINES WITH
PLACE TEMP IN

RK08 ROUTINES

COUNTER

ZERO TEMP 2

ADD

YES

TO TEMP 2

^
CALL "CSET"

SET UP SOURCE AND

BINARY HANDLERS
TO USE DISK AS
SCRATCH
1

PLACE TEMP
INDIRECTLY IN
"CPOINT"

RETURN

ZERO TEMP 2 AGAIN

AND RESET COUNTER
TO TEMP

CPOlNT=TEMP2

SUBTRAC T 2 FROM
TEMP

MULTIPLY BY 20,'8

AND ADD IN

-[BUFFER/400q]

TO GET

BUFFER SIZE PLACE
IN "BNUM"

RESTART

[

)

TURN OFF
INTERRUPTS

SET "OUTNUM"TO
- SO COPY
ROUTINE WILL
ONLY MAKE COPY
1

UNLESS RESET

CALL"COREF" TO
FIND OUT HOW
MANY K OF CORE
THIS MACHINE HAS

DESTROY PREVIOUS
CALL INSTRUCTIONS
SO"COREF" CAN
ONLY BE CALLED
ONCE

CSET

SET DAT/^ FIELD TO
VALUE 3F TEMP-1
DISPLAY MAINOiS
10 TIMES TO ALLOW
A POSSH3LE TAPE
OPERATt ON TO

RETURN
1

FINISH

CLEAR TTY
CHAR (KEY CHAR)

DO AN I/O PRESET

CLEAR AND SET
INPUT AND
OUTPUT DEVICE
FLAGS

ZERO OUT "BUFFER^
MOVING ZERO IN
"
BUFFER -1" TO
BUFFER FOR
•-BUFFER LOCATIONS"

RETURN
1

DECODE
INPUT DEVICE

MESSAGE

CLEAR DEVICE SELECTOR
FLAGS

ILLEGAL REPLY

"G"

"H"
"L"

ASCLST

"R"

"T"

ASCGO

CRDLTT

ASCH

ASRF8

ASCT

C
BFLAGl =BFLAG1 +1
|

ASCHl

)

BFLAGl « BFLAGl +1
|

)

BFLAGl = BFLAGl +

APART2

ASRF8

Ascr

TAPE

FWHAT =

APART 2

FTYPE

>
DECODE OUTPUT
DEVICE MESSAGE

"H"
"L"
„p..

ASCGO

"R"

"T"

BFLAG2 =2
BFLAG2 = 0
8FLAG2 =3
8FLAG2 = 0
BFLAG2 =
1

ASCTT

BRAG
AND SaAG 2
1

= 0

£ - U

NO
j

GENERATE LEADER
j

ASCTT

YES

CALL AAA6ET
TO GET A CHAR

YES

CALL MORE

ALOOP

MORE TAPES

OUTPUT A CTRL/2
AND CR/LF

TRAILER

SPECIAL CHARS

TO BE IGNORED
PIP

ETC.

BUFFER USING

AAPUT

ALOOP

DECODE INPUT
DEVICE MESSAGE

CLEAR DEVICE
SELECTOR FLAGS

NOT A LEGAL REPLY

"T"

SEA RCH

-J

8INLST
BIN GO

BHIGH
BLT
BLRF8

c
c

)

BHIGH2
BTTY

BFLAG2 « BFLAG2 +

BFLAG2 « BFLAG2 + 1

BFLAGS = BFLAG

+ J

BTTY

>
BFLAG

= BFLAG 1+1

BPART2

CREATE HEADER

BLOCK BOOTSTRAP
(SEE DEC>12-ZW5A)

C
DISK

FWHAT =
FTYPE = 2

BPART2

DECODE DISPLAY
bOtPUT 3EVICES
ILLEGAL REPLY

SEARCH
BiNLST
BIN GO 2

BHIGH2
BLT2

BTTY2

YES

IBLOOP

USE STANDARD DEC

BINARY LOADER

ASSEMBLE WORD
|

GET ASSEMBLED

WORD

MOREBLOOP
DECODE

SET FUNIT BETWEEN
0 AND 1

V NO

PUTWORD

FUNIT =

1
1

"C"

"D"

OLTNUM = FUNIT
1

"S"

"U"

ABG1
AB(32

ACOPY

NOT A LEGAL OPTION
AASVSC

AAUNTC

c
DECODE "CINPUT"

NOT A NUMBER
JMP ACOPY

INBLOCK =AGNUM

ACOPY2
DECODE "COUTPUT"

ACOPY2

AGETN
JMP ACOPY2

r OUTBLOCK = AGNUM
.

COPY
1

]

PIP

PUP

iNUNIT=0
1

IN8L0CK*0

OUTBLOCK = 0

OUTUNIT =

FSIZE = IOOOg

COPY

^hEHIHL^Al IML^?ChANoL r=?OG-<Ay FC^ THE PDP-12 COMPUTER.
DIGITAL EuUIPyE^T CC^PO^aTIU^, maYnahO MASS.,017d4
dUn\LSb
Iv6^.
hELLAbtJ NOVt'-'irt
UPjaTEU to DIAL-?^S ^AKCH, 19?^.
tf^DATEj FOR CHAINING ^aY 14,197/
UFUATED fO'n MULTIPLE HK2BS

^^It
2^1/
^^^^

::i:^L

CL=PYnIG-tT 19o9;
aKITTlV by jack

iJ02l

Ziik;^

i;02j
^0iJ4
i;025

^22b

0452^

i3li}3i5

20^2

k;033
02 34

0kJi6

/
/

f^IP

<^IIL

RU\ OM

0040
0041
004^
0043
0044

OR HIGHER.

/
/

0t545

/
/

/
/
/

/
/

ppppppppp

0054
005b
0056
00b7
0060
0061
0062
0063
0064

00 65

0066
0067
0070
0071

0073
0074

PDP-12

0046
0047
00b0

00 72

00 37

00!3l
00t>2
00i?3

;^ .

IlIIIIIMIII

PPPPPPPPP
PP
PPP
PP

P
P
P

PPPPPPPPP

P
P

iiuiimiii

/
/

/
/
/
/

S5075

0076
0077
0100
0101
0102

/
/
/

EJECT

PP
PPP
PP

0103
0104
010b
0106
0107
0110
0111
0112
0113
0114
011b
0116
0117
0120
0121
0122
0123
0124
0125
0126
0127
0130
0131
0132
0133
0134
013t>

0136
013 /
0140
0141
0142
0143
0144
0145
0146
0147

/MAJOH PAGE

0
0

/RESEKVEO FOR JMP S IN L MODE.
/USED BY DISPLAY ROUTINE.

/
/
/

0000
0001

0000
0000

0002

3340

00 03

3321

0004

3313

0005

3303

LOCI

TAPE=JMS I
TTAPE
HPOP=JMS I
HHPOP
HPUSH=JMS
HHPUSH
LEADER=JMS
lleoeh
FILEC=JMP

0006

1515

FF ILEC

0007

3361

PUTL=JMS
TTYPU T

/
/

*10

0010
0011

00 00
00 00

00 1

0013
0014
0015
0016
0017

0000
0000
0000
00069

0000

AU TO 1
AU TU 2
AU TO 3 t
AU T 0 4

0
0
0

AUT05
AUT06
AUT07
AUTOb

0
0

/AUTO REGISTER

0
0

/
/
/
/

/
/
/

01t70

0151
0152
0153
0154
0155
0156
015/
0160
0161
0162
0163
0164
0165
0166
0167
0170
0171
0172
0173
0174
0175
0176
0177
0200
0201

LUCATIONS.

«0
/

Rr08=l

/SET THIS SWITCH TO 1 IF YOU WANT
/THE HFt58 DISK HANDLE^ ASSEMBLED INTO PIP.
/ELSE SET The SWITCH "RFI^8" TO 0.

DlSKWORK=00fc

/SET THIS SWITCH TO 2 IF YOU 00 NOT WANT PIP TO
/AUTOMATICALLY USE THE RFi^a DISK FOR
/THE BINARY AND SOURCE SCRATCH AREAS; IF AN RF0b DISK IS PRESE^mT.

/
/

/
/
/
/
/

/
/

CAR0=1
/

/SET THE CARU=1 TO CARD READER AND LINE PRINTER.
ELSE SET CARD TO 0.

/
/

TEHMC= 00
/

REMAKE = 0
/

/SET TO LOOK

m AS THE EOF CHAR.

THE SOURCE FILE COMVERTER.
/DO NOT LOAD
REMAKE /^AS ORIGINALLY 1 BUT THE COKVERT ROUTINES

ECH0=1
/

/SET THIS S^vITCH TO

TUPPRESS ECHOING.

:>lCJ

LONGER ARE

:'*tEi::E;].

0232

^-im
0203
0206
0207
0210
0211
0212
0213
0214
0215
0216
0217
0220
0221

PFLiCK=i

02 22

/
/

02 24

0225

02 26

0227
0230
0231
0232
0233
0234
0235
0236
0237
0240
0241
0242
0244
0244
0245
0246
0247
0250

D1ALBOOT = 300
OIALSYS=300
SYSWTS467
TINDEX=346
TILEN=2
TLOWe:H=0

TUPPER=777
TSYSLOWER=270
TSYSUPPER=467
SYSBBLOCK=370
SYSBIN=0001
ASM1F2
RF08AOISKWORK
SYSBSP=0001
ASMIFN
RF 08 &D I SKWQRK
SYSBSP=k?011

SYSSBLOCK=3/0
SYSHuK=447

02 53

/
/

0254

02 55
02 56

/
/

0257
0260
0261
0262
0263

02 64

02 74

0275
0276
0277
0300

"ft20"

The SEUINJ^IIMG OF EVERY FILE.

02i>l

0265
0266
0267
0270
02/1
0272
0273

/SET To 1 IF YOU WANT TO HAVE
ELSE SET STAR20 TO ^StUj/

STAR20 = 1
/

0223

0252

/SET This Switch to one to cause oisplay
/CHARACTtkS TO ALTERNATE RANQOhLY BETWLi:;\
/CHANNELS 1& 2 KAY BE SET TQ ZEKO
/TO PIC^ UP SPACE ON PAGES IF NiEtUEO. :-dTH
/NO ILL EFFECTS NOTED. A FRILL ONLY.

/
/

TO REREAD IN DIAL FROM
/START OF FIRST BLOCK OF SYSTEM ABOVE FREE BLOCKS.
/LAST BLOCK OF DIAA WORK AREA.
/TAPE I^^DEX BLOCK
/NUMBER OF BLOCKS IN INDEX
/FIRST BLOCK Tq uSE
/LAST dLOCK TO USE
/START OF SYSTEM
/LAST BLOCK OF SYSTEM.
/START OF BINARY kORK AREA.
/BINARY SCRATCH UNIT.
/WHAT IS SPECIAL DISK UNIT
/NO SPECIAL SCRATCH UNITS.
/HOW ABOUT NOW???
/DEFINE PRIMARY SCRATCH AS DISK (INIT wiLL DECIDE -^EST OF STORY)
/START OF ASCII WORK AREA.
/BINARY HEADER 9L0CK FOR "SB"2 COMMAND"
/isHERE

SOME BASIC DEFINITIONS

2£RQ=CLA
P0l\iL=2ER0+l

/(AWvJWW)

PTWO = PONE + 4 + 100

/CLA CLL
/CML

PTHKEE=PTWO+20
PF0UR = PTW0+2
PSIX=PTHREE+2
MONE=CLA CMA
MTW0=CLA CLL CMA RAL
MTHHEE=CLA ClL CMA RTL
LEFT=000
TOP=340
BOTTOMs-400

AC RAL

/(AWwi^)

/RTL

/POINTER TO STARTING LEFT
/POINTER TO TOP OF SCREEN
/SCREEN BOTTOH

SCREEN

0301

/
/

rf
3UF

CA-EQ-1

/IF cakd ;^Eadl^ is i.v
/StT THE cjUFTtH TO 64,:0

CA"!';-1

/IF

= 6'+»; 0

=6 1

-JO

CAkj NlAUER

SET T^ TO e/^'^
IN A^Y LVt\T BUFFER ^UST

/The;^;

MULTIPLE

i3311
fc!31i

00 2
7 7 70

0314
0315

7 7 74

Z61d

t;316

iU2 3

77to0
0^: /7

23320

J025

0321
0322
0323
0324

i^-^26

02 0w)

032^>

0^32

0326
03 2 7

0iJ33
Ki034

0330
0331
0332
0333
0334

0035
0036
0037
0040
0041

il-

ri21

/4'36

400^
5000
6000
7000
7757
0060

i£5

3i£,'

^^^vSl

070k5

7766

033t5

0i^342

04^0
0054
7724

0336
0437
0340
0341
0342
0343
0344
034b
0346
0347
03^0

lt'0 4

7 7 20

iJfe}44

7 710

0045
0046
01^47

0050
0051
0052
00 53

0054
0055
0056

7 7

77 01
7 7 77

7746
0333
7744
7700
0010
0004
7740

M4
.M

«.

"20

2/ ,

L/7.
i_l/^

100
200

L20^,
N322
L40^0,
l5000.

-.>22
4t-00

b^00
6W00

l6:'^0.

L7000
L7757i
L60,
L700
M12.

60
72 0

= 12

L400 ,

400

L54,

m:?4 ,

M60
m70.
M73,

-54
= 60
-70
-73
-77

m7 7.
L7 77 7,
m32.

7 7 77

-32
333
= 34

L333,
h3 4.

77 00
10

L7 70 0,

L10.
L4,

77 40

L7740,

M40=L7740

03!?2

0353
0354

0057

03t>b

0061
0062
0063
0064

03b6
0357
0360
0361
0362
0363
0364
0365
0366
0367
0370
0371
0372
0373
0374
0375
0376
0377

L777e=M 1

0317

03 51

l2 c
Ml

00 60

2021
0007
0030
7735
7772
7400

= 5757

M57b7,
L7.
l30,
M43,
M6 »

-43

L7400,

7400

30
-6

m40i5=L 7400
/

k;065

00 00

00^10

0067
0070
0071

0000
0000
0000

0072

0000
0000

1^)0

TEMP
TEMPI
,

0
0
0
0

Tb.MP-2.

te:mp3,

TLMP4,
/

00 73
00 74

0075
00 76

0077

00 00

0000
4413
0000

KEYCHAH,
0
CNTRL^
BNUM
0
0
DFIKST
MOHE
PMUHE.
0
BWOHDI
*

/CONTAINS THE CONTROL

SV^ITCH.

40i^

OCTAL WQNQS

0400
0401
0402
040^
0404
040b
0406

0m2

04 07

0106

dULL

iNeLOCK
INU!^ IT »

i^it20d

OUTbLOLK
OUTUNl

00 00

OU T

0440
0441
0442
0443
0444
0445
0446
0447

04 54

0455
0456
0457
0460
0461

04 72
04 73

0474
0475
0476

/
/
/

ASMIFii

010/

0000

Rl^DH IV

RF08-1

/IF RF08 CRK083 DESIRED
/INSERT WORD FOR UNIT NUMBER

PAGE

/
/

^lU

0346
0002
0000

^113
0114
0115

027U
0467

TINDEX
TILEN
TLQWEH
tupplR
EUPPER
CLO^EH, tsyslcwer
CUPPER* TSYSUPPER

^3757

L5/57,

0110
0111

^7 77

IMDtX,

0116
0117
0120
0121
0122
0123
01ii4

0125
0126
0127

5757

0000

rs UE.

00 00

ruNi T.

0000
0000
0000
7/77
7/77
7777
7777

FTYPE.

FWHAT,
FNAME,

77 77

7777
7777
7777
/

0130
0131
0132
0133
0134
0135
0136
0137
0140

0000
00 00

0000
0000
0000
0000
0000
00 00

0000

04 62

0463
0464
0465
0466
0467
0470
0471

BCHAK=OUTuM T

04 50

0451
0452
0453

NBLOCK
dF LAG2 = UUT BLOCK
80LDP= INU\ IT

04 34

04 37

NOT ?£RO=DELETE 2ER0S FROM BI'vlARY OUTPUT

BF LAGl = I

04 23

0435
0436

iiLROSj

04 20

0424
0425
0426
0427
0430
0431
0^32
0433

0t30i3

0410
0411
0412
0413
0414
0415
0416
0417
0421
0422

/iJ^DONT Ot^LETE

ORIGIN,
OATA#
BTEMPl,
BTEMP2
BTEHP3

0
0
0

BF lELO.

BOLUO,

BOFIELD
BCDUNT,

0
0
0
0

0141
0142

0000
0177

COUNT,
L177,

014 3
0144

7563
7566
7401
7540

M2i;>,

-^^153

M212
M37/,
M240
M340.

-240
-340

0145
0146
0147

7440

177

-212
=.3 7 7

/
/
/

R0R6SJMS

/SUBROUTINE ROTATES AC RIGHT

PLACES

]0H f (

Bl SKI

0/ 7ti$

05 00
0& 01

101 3X

100 1010

01 Oc

(A'J (31 01
KP

RS I
nT

p
rr 1i p
r I1 PP
n ! A = MP

i0c 10

0504
0 1 53

0iC 46

r
A I1 T
LV

0506
0507
0510

0154

3214

CC OP Y

05 11

0155

/"AOVo imC
CL"TA -

tMG

rCTA-TAn
bL'A-lAU

A«. TT
AO
L

15 02

0512
05 1>J

0156

050!?

0514
0515
0516

0502
0b0«5

A V= IM

PP D S
p J p-

07 43

AltTHH
AUlUO

nrwrrK

/ECHOING DESIRED?
/NOPE. DON T ASSEMBLE CRLF PROCESS IN.

05 17

0520
0521
0522
05 23
05 24
05 25

0157

t0O 01

TT YCR

101 OKI

11 107

re Tt sJMS
TT VK FT

1000

Mr sJMS

GL \Ht
nf rn
~ w m'?
ui_
uu nr
Uu. r
nw
uu V w w c.

I
1

0161

0162

22 22

SYSERRsHLT
ni RE:rTQHY= JMS
dyre ct

2400

05 >5
05 >52

016 3

S '< <

01 64

13 27

MM OV E

0165

1360

POPsJMS
PROP
PUSH^JMS

101 oo

1352

p PUSH

016/

3151

NODI S
RF PI AP^s IMS

0170

3161

REPO IS

<7I

MOVE=JMS

05 ^4

0535
05 ^ 6

05 4
05 42
05 43

RF An =

1 4 00

TREAD
WRITE=JMS

05 47
05 50

0172

1412

TWRI TE

0551
0552
0553
0554
0555
0556
0557
0560
0561
0562
0563
0564
0565
0566
0567
0570
0571

0173

0334

SEARCH=JMS
SSERCH

05 72

0573

Mu A i

0174

3/11

ill

0171

0546

3747

0176

4273

•

SEQI N

AUXOUT=JMS
SEQOUT
PUTWORO=JMS I
BBOUT
ASHIF^ RF08
ASMSKP 2
DISC=JMS
RFOISK
I

0177

0175

1540
/
/
/
/
/

/
/

EJECT

/DO WE WANT THE RF08 ROUTINES LOADED?
/NO. SKIP PAST THE DEFINITIONS.

0574
0575
0576
0577
0600
0601
0602
0603
0604
0605
0606
0607
0610
0611
0612
0613
0614
0615
0616
0617
0620
0621
0622
0623
0624
0625
0626
0627
0630
0631
0632
0633
0634
0635
0636
0637
0640
0641
0642
0643
0644
0645
0646
0647
0650
0C>51

06 52

0653
0654
0655
0656
0657
0660
0661
0662
0663
0664
0665
0666
0667
16670

0671
0672

/
/
/

/
/
/
/

/
/

«200
/

/
/

0200

4216

0201
0202
0203
0204
0205
0206
0207

455/
4562
0263
4573
0210
0213
5202

PIPP IP.

PIPL,

JMS
ASMIFN
CRLF
OECOOE

RESTART
ECHO

MAINOIS
SEARCH
PI PL SI

PIPGO
JMP

PI PL

/RESTART I-O OEVICES, CLEAN UP SYSTEM, ETC.
A CRLF ONLY JF ECHOING.
/GIVE INITIAL CARRIGE RETURN LINE FEED,
/DISPLAY OPTIONS
/FROM MY LIST OF GOODIES.
/LOOK FOR LEAGAL OPTIONS
/LIST OF P IP OPT lUNS
/WHERE TO GO IF FOUND
/NOT A LEGAL REQUEST.
/DO

/
/
/

0210
0211
0212

0301
0302

0213
0214
0215

5600
3400
5000

PIPLST

4.523

301
302
4323

/A=ABSOLUTE MQUE
/B=BINARY MODE
/S=SOURCE MODE» 4000=ENO LIST

A8S0L
BINARY
ASCII

/ABSOLUTE HANDLER.
/POINTER TO BINARY HANDLER
/SOURCE HANDLER

PIPGO,

/
/

/
/
/

0216
0217

0000
4660

02 20

72 40

0221

3106

02 22
02 23

46 62

0224
0225
02 26

3000
4i>51

0263
2000

0227
0230
0231

t?224

0232
0233
0234

2020
0004
0002

0235
0236

6026
4661
6046

02 37

RESTART. 0
JMS I
SAVEST
MONE
OCA
OUTNUM
INITOV
JMS
FCOHE
OCA
0
UISPLAY
MAINDIS
I

/SAVE RKt58STATUS BEFORE 2APPER.
/SET UP COPIEH FOR 1 COPY
/-NUMBER OF OUTPUT TAPES FOR COPY
/ALLOCATE CORE NOW. THIS IS LATER

/JUST

i/<AIT

"TAD M40".

SECOND.

ISZ

JMP
DCA
LINC
LMOOE
ADD
Esr
POP
PMODE
6026
JMS I
TLS

3072
6141

KEYCHAR

/NOT DONE YET
/NO NEW CHAR.
/ENTER LINC MODE

L20

/GET THE I/O PRESET BIT
/AND DO AA I/O PRESET

RESTST

/FIX UP RK08 NOW, IF NECESSARY.
/FIX UP ThE TELEPUNCH NOW BY GIVING

LP08O1.

ASMIFH

CARO-1

/SHOULD WE INITIALI2E PRINTER?/?

PHQONEY CHARACTER.

63673

02-^0

LCB

/YEP. CLEAH THE PRlNTtR

4t)64

MOVE

/iE'^O UP^^E^ C^^^E

u Y

6^77

BUFFER-1
BUFEt«
rtF^d

/IF

ALL OF CURF

-BUFFlH
HF^d
ASMIF\

/IF

b6b^

BUFFE^'*

AND SET THE FLAG SO IT LL BE READY

IT,

0674
06 75

0676
i36 77

0700
0701
07K2
0703
0704
0705
0706
0707
0710
0711
0712
0713
0714
0715
0716
0717
0720
0721
07ii2

0723
0724
0725
0726
0727
0730

biJ41
0;^42
0*^4 J

64k}J

ASMITj?

0244

r^2]L

024t>

5616

KF^S PHtSENT ^E^O

Q^JLY

BUFFlR-7.577

JMP

RESTAi^T

/
/
/

0246
024/

4216

02t3l

4t>64
02t54
45314

k52;?2

M^A

0253

5651

^25fe}

RESTART

JHS
HOVE

EX1T»
OVEWEX,

/RESTA^^T UlAL

/PLACE DIAL RESTART INSTRUCTIONS

HEAOIN
EX I T LO C 4^ 20 =R E A DL
^JEAQENi-HEADl N
,

JMP

EXIFLOC

/IN PROPER PLACE FOR RtBOOTSTRAP.
/BOOTSTRAP IS 4 wO^DS LONG
/RETURN TO OIAL

/
/

0254

6141

0255
0256
0257

0643
0701
/300

REAOIN, LINC
LHOOE
3
LDF
RCG
/XDIALBOOT
PMODE
REAOEN=,

/MAIN BOOTSTRAP.
/GCT INTO LiNC MODE FOR REBOOTSTRAP
/MAKE SURE DATA FIELD IS SET AT 3
/READ GROUP
/FROM 300,
/RESUME 8 MODE QEFINITIO^iS

/
/
/
/

07 34

0260
0261

4600
4562

SAVEST. STATSV
HESTST. STATRS

/POINTER TO RK08 SAVER
/POINTER TO THE RK08 FIXER,

/
/

/
/
/

07 41

0742
0743
0744
0745
0746
0747
0750
0751
0752
0753
0754
0755
0756
0757
0760
0761
0762
0763
0764
0765
0766
0767
0770

A'sl

HiOLOUS MOVE.

-c3UFFEN-4i5i3

0731
0732
0733

0735
0736
0737
0740

zfERQ

/
/
/

/
/
/
/

0262

6400

FCQRE,
/
/
/
/
/
/
/
/
/
/
/
/
/

COREF

/POINTER TO CORE INITIALUEH ROUTINE.

aZ NEED

0771
0772

026^

07 73

i3264

0774
0774
0774
0774
0774
0774
0774
0775
0775
0776
0776
0777
0777
0777
0777
0777
0777
0777
0777
0777
0777
0777
0777
1000
1000
1000
1000
1000
1000
1000
1000
1000
1000
1001
1001
1001
1001
1001
1001
1001
1001
1001
1001
1001
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014
1015
1016
1017
1020

026b
e266
0267

0^?^0
dlAi,

MA I\OI b, Li{;rT+<J4i5
TJP.^^kJ

0622

02 7i3

112i3
4i3l7
2i324

2271
0272

1117
1623

0273

7243

0274

4043

0275
0276
0277
0320
0301
0302
0303
0304
0305
0306
0307

4043
1001
4055
b55b
4001
2530
1114
1101
2231
4015
1704

0310
0311
0312
0313
0314
0315
0316
0317
0320

0543
1002
4055
5555
4002
1116
0122
3140
1517

0321
0322
0323
0324
0325
0326
0327
0330
0331
0332
0333

0405
4310
2340
5555
5540
2317
2522
0305
4015
1704
0534

"FPIP 3PTI0\S:

TtXl

AUXILIARY MODE

BINARY MODl

SOURCE M00£\"

/
/

/
/
/
/

0334
0335
0336
0337
0340
0341
0342
0343

mm
7300
1734
3t365

2334
1734
3066
2334

SStRCH,

CLA CLL
TAD I
SSE^CH
DCA
TE-^P
ISZ

TAD
DCA
IS2

SSERCH
SSERCH
TEMPI
SSERCH

/COMpA^tS "FTYPE" AGAINST GIVEN LIST.
/CLEAR AC Tt) BE SURE
/GET POIMTER TO USER L 1ST
/Ai\D STOORE AwAY
/BOP PAST FIRST ARG.
/GET JMP LIST
/STORE POIMTER N TEMPI
/BOP PAST SECOND ARG FOR RETRUN.

1021
1022

1465
7510

1025

0344
0345
0346
0347

10 26

03 50

1027
1030
1031
1032
1033
1034
1035

0351
0352
0353
0354
0355

7640
5356
1466
3065
5465

1041

0356
0357
0360
0361
0362

2066
1465
7710
5734
2065

10 42

03 63

53 44

10 23

10 24

10 36

1037
10 40

SSLOOP

Tad

TEMP

/GET NEXT WORD TO CO AM PARE

L4 00 0

ywFnATlVf"

SP A

10 30

TAD

7041

CI A

11 21

Tad
FT YP E
SHA CLA
SS NO

JM P

TAD
OCA
JMP

TEMPI
TEMP
TEMP

^UwCO
/Mfl
/iNUt
/VP'S

AST rw AW

C-UUnL.

TfQT
mo
Icot rUn
fiTT

pn<?i?TT\/r

ma kit

uUlMiC-ivlQ

row

iTrfc.

TNiH
t.l^U

rniiMn octiidm

Amoccc

SSNO

1043

10 44

/
/
/
/
/

1045
1046
1047
10 50

1051
1052
1053
1054
1055
1056
1057
1060
1061
1062
1063
1064
1065
1066
1067
i070
1071
1072
1073
1074
1075
1076
1077
1100
1101
1102
1103

TEMP 1
TAD I
TEMP
SPA CLA
SSEHCH
JMP I
w «j n V n
ISH
TEMP
JMP
SSLOOP
IS2

/BOP UP JUMP TABLE POINTER
/WAS THIS LAST CHARACTER?

/YEP
IT S
NFfJATUir
/NOP. BDP UP CHAR PDINTFR
/BACK UP Tf) TRY wrxr

AMfl

TRY ATAIW

/
/
/

ASMI FjJ

ECHO

ASMSKP

/DQ WF wA{\iT rrHnTwn???
/NOPE. CR NEVER CaLLEH. SD nn

M215

/GET

M212

/AND AWAY IT GOES
/N THE L.F.

TTYCR

/AND AWAY IT GOES
/AND RETURN TO CALLER.

0364
0365
0366
0367
0370
0371
0372
03/3

0000
1143
7041
4407
1144
7041
4407
5764

TTYCR»

TAD

C.R.

In the

AC,

C I A

PUTL
TAD
CIA
PUTL
JMP

/
/

/
/
/
/
/
/
/

EJECT

NflT

PUT

1104
1125
1106
1107
1110
1111
1112
1113
11 14

1115
1116
1117
1120
1121
1122
11 23
11 24

«400

DISPLAY CHARACTER TABLE.

/
/

TABLtD=.
/

0400
0401

7777
7777

04 02
04 03

44 77
77 44

0404

5177
2651

04 05
04 06
04 07

0410
04 11
04 12

77 77
77 77
44 77
17
f f AA
*t*t

/00= ILLEGAL
/01 = A

/02 = B
£ 0 3 J.

41 36
22 41

4136

4177
3641

41 77

/04 = D

45 77

45 77
41 45

/05=E

/03=C

22 41

04 13

4145
4477

11 26

0414
0415

40 44

1127

014 1X ^
o

'*xoo

4044
4136

11 30

04 17
04 20
04 21

26 45

1077

1 !?

0422

7 74i

7 741

414 2
40 76
10 7 7

414 2

/12 = J

40 76
10 7 7

/13 = K

1125

1131
1132
1133
11 34

04 23

1135
1136

0424

11 3 7
11 40

04 25
04 26
04 27

1141
1142

0430
0431

11 43

1144
1145
1146
1147
11 50

1151
11 52

1153
11 54

1155
1156
1157
1160
1161
1162
1163
1164
1165
1166
1167
1170
1171
1172
1173
1174
1175
1176
1177
1200
1201
1202

04 32
04 33

/06 = F

43 24

* 0 c •»

0177
0301
3077

ni 7

7 7 30

30 77
77 30

/15rM

^377
/ /
0
7/ 7/ 0(
A
WO

/16 = N

4177

/17 = 0

77 41

77 41
44 7 7

04 41
04 42
04 43

3044

0444

0446

4477
3146
5121

30 4 4
42 76
03 76
44 77

04 47

46 51

0450
0451
0452
0453
0454
0455

4040

04 61

0462
04 63

0464
0465
0466
0467
0470
0471

03 76

4077
0177
7701
0176
7402
0677

/14sL

0301

4477

0457
0460

/11=I

0041

3077
7706
4177

04t>6

/10SH

7 710

0434
0435
0436
0437
0440

04 45

/07sG

Itf

3146
5121
4651
4040
4077
0177
7701
0176
7402
0677

7 7 01

7701

1463
6314
0770
7007
4543
6151
4177
0000
7777
7777

1463
6314
0770
7007
4543
6151
4177
0000
7777
7 7 77

/20SP

/21sQ
/22 = R

/23 = S

/24=T

/25sU
/26rV
/27 = W
/30 = X

/3ls Y
/32 = £

/33=C

/34SILLEGAL

Vi 03
12 134
12 05

tj<,i

1206
1207
1210
1211

24 75

12 12
12 13

(S5 0

^ 7A

k54 77
ffl

K f7

at)

7/41

7 7 41

20 00
20 76
7
1 77
1 7
1 f
77
77
fill

20 00

tf,

11
l6'

12 17

050 7
0510

7 7 77

1111
1111

5721

1
7 7/ 7
c J.

12 22
12 23
12 24
12 25

05 1

d A 71

0512
0513

6 6 61

1216

O0A

05 14
107 17
05 16

77 7 7

4^33
m
AA
7X00
cm 7 A
00 00
00 00

0517

12 31
12 32
12 33
12 34
12 35

05 20
05 21

36 00
00 41
41 00

0523
0524
0525

0036
2050
0050

/ *« i -

MMuw
7 0 00

/AO - »

46 71
66 61

'^J- ILLfc-uAL

/ ^

J — ~ t. "

4 3 33

51 66

/4 6= &

0526
00 00

/4 7= TA B

0000
3600

/5 0s (

00 41

4100
0036
2050
0050
04

/51=

)

/52= »

/53s +

12 37

05 26

04 04

1240

0527

12 41
12 42
12 43
12 44

05 30

0437
0500
0006
0^04

0437
0500
0006

/54=

(j4 04

/55=«.

1 y
i

05 34
05 35
05 36
05 37
05 40

04 04
00 01
00 00
06 01
40 30
45 36

0404
0001
0000
0601

3651
2101
0177
4523
2151
4122

12 46
12 47

12 51
12 52

0531
05 32

0533

((34

40 30
45 36

11 7 /

05 45
05 46

3651
2101
0177
4523
2151
4122

7 Ad

IC7 * /

26 51

1261
X262
1263
1264
1265
1266

0550
0551
0552
0553
0554
0555

2414
0477
5172
0651
1506
4225

12 67

05 56

44 43

1270
1271
1272
1273
1274
1275
1276
1277
1300
1301

0557
0560
0561
0562
0563
0564
0565
0566
0567
0570

6050
5126
2651
5122
3651

2414
0477
5172
0651
1506
4225
4443
6050
5126
2651
5122
3651
2200
0000
4601
0000
1000

1253
1 7<?4
1 7<t>^
1

^ 70
A

0541
0542
0543
0544

rf'At

00 70

12 30

1236

/*tif-o»- HOC.

75 00

1220
1221

12 15

/<7=T!

It/ 1C>

05 02
05 03
05 04
25 05
05 06

1214

/3 6- '

1111
t'

00 00
75 00
00 00
70 00

/ o

22 00

0000
4601
0000
1000

/56=

/57= /

/60= 0
/6 1 = 1

/62 = 2
/63 = 3

/64=4
/65s5

/66=6
/6 7=7

/70=e
/71 = 9

/72=

/73s

;

/74=<

OL^'

0»\J'»

U2i2
1303
1304
1305
1306
1307
1310
1311
1312
1313
1314

iib71

0572
0573
25 74
05 75
05 76
05 77

4224
1212
1212
2442

4224
1212
1212

/75

24 42

/7 6

0i5 10

/II

4025;;

2055

2ic;55

/
/

EJECT

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
13 63

1364
1365
1366
1367
1370
1371
1372
1373
1374
1375
1376
1377
1400
1401
1402
14Jfi3

14 04

1405
1406
1407
1410
1411
1412
1413

«600
/
/

DISPLAY ROUTINE

/
/

GENERAL CALL:

/
01 SHLAY
PTEXT

/
/

WHERE PTEXT POINTS TO THE FOLLOWING!

/
/

XCOOR.
YCOOR

/PTEXT
/
/

TEXT

THIS

MY MESSAGE\»'

0600
0601
0602
0603
0604
0605
b606
0607
0610
0611
0612
0613
0614
0615
0616
0617

0000
7300
4556

06 20

32 51

0621
0622

4302
7240
3337
1336
1021

PPOI S,

PINSTl

CLA CLL

CHECKIO
TAD
DCA

16 00

3331
2200
1731
3332
2331
1731
3333
1331

IS^

TAD
DCA

IS2

TAD I
DCA
TAD
DCA
MONE
OCA
TAD
DCA

PDCAVR,

33 34

7240
3335
1201

PPDI S

PDIS
PPDI S
PDIS
PH OR

PDIS
PDIS
PVER
PDIS
PSTART
PSWI TCH
PI NSTl

PNOTl

/MAIN ENTRY
/CLEAR AC,
/CHECKIO FOR 10 NOW AND AFTER EVERY C,R
/GET MAIN POINTER
/AND PLACE IN TEMP POINTER.
/PAST POINTER ON RETURN,
/GET POINTER
/X POS
/BOP UP
/GET VERTICAL
/AND STASH AWAY,
/START OF TEXT
/BOP DOWN BY 1
/SET SWITHC TO LEFT OF NEXT WORD.
IIML IHHiJLHaH,
A CLA rOH rlRbi
/AND STORE SO NO VERTICAL BOP.

/GE'

06 23

0624
0625
0626
0627
0630
0631
0632
0633
0634
0635
0636
0637
0640
0641
0642
0643
0644
0645
0646
0647
0650
0651
0652
0653
0654
0655

76 50

5235
1336
1063
7640
5236
3337
4302
1337
7650
1022
1022
1332
3001
1337
7650
1023
1023
1333
3333
1212
3251
1337
7040

PPSTART, JMS
MONE
DCA
TAD
TAD
SNA
JMP
TAD
TAD
SHA
JMP
OCA
PPAST,
JMS
TAD
POO.
SNA
TAD
TAD
TAO
DCA
TAD
SNA
TAO
TAO
TAD
DCA
PNOTl,
TAO
OCA
TAD
CMA
r

PGETL
PCSW
PCHAR
H10
CLA
PPAST
PCHAR
M6

CLA
POO

PCSW
PGETL
PCSW
CLA
M4
M4

PHOR
LOCI
PCSW
CLA
M2 0

M20
PVER
PVER

POCAVR
PNOTl
PCSW

/GET NEXT CHAR FROM TEXT,
/SET CHAR SIZE TO HALFWORD
/IN CASE OF NO F OR H.
/GET IN AC.
/IS IT AN "H"
/IF IT 1S»SKIP PAST AND IGNORE.
/ITS AN "H"
/IS IT AN "F"
USE IT AS
/NOT AN "F" OR AN "H"
/SET SI^E TO FULL.
/GET FIRST CHAR TO BE DISPLAYED,
/GET SI^E.
/IS IT FULL SIzJE.
/YES. SET BACK LEFT BY a,
/ IF HALF SET IT BACK BY 4,
.

CHAR

/THIS IS A REAL LOC1(0001)
/GET SUE
/FULL?
/YES, BOP DOWN BY 40, NOT 20
/M20 IF HALF SI2E

/MADE A CLA FOR THE FIRST TIME THROUGH
/GET CORRECT INST,
/SET UP FOR FUTURE CALLS,
/CHAR SI2E.
/COMPLEMENT BIT.

1414
1415
1416
1417
1420
1421
1422

0656

0026

AND

06 57

L200

0660
0661

00 04

0662

72 00

0663
0664
0665

1336
7104
1347
3016
1333
6141

LH OD E
ES F
on
r
rU D

0002

/GET INTO LINC MODE
/SET CHARS TO CORRECT SIHE
/BACK OVER INTO 8 MODE

PMODE
CL A

/CLEAR THE AC BECAUSE ThE SIHE IS STILL IN THE AC

14 23

1424
142J>
14 26
14 27

1430
1431

06 66
i36 67

06 70

PL 00 P

TAD
PC H A R
r*!
D
A
KAL
OLu
Tar
AU
PT ABLE
DC A
AU TO 7
TAD
PVER
L I NC
LM OD E
DSC I
AU TO
OSC I
AUT07
PD P
i

1433

0671

17 76

14 34
14 35
14 36
14 37

WO / c
06 73

1 7 7A

1440
14 41
14 4 2
14 43
14 44
14 46
14 47
14 50
14 5l

1452
1453
1454

0002

PMODE
7 7 OIK

PT WO

0675

1001

TAD

06 76

0 tJ

06 77

4 7 30

DC A
AS M I FN
JM S I

M
7 0101
10/1010

4302
5263

JMS
JMP

<5t

(71

I?l

j7I

7 0!

t£)

iCi ttl

m
^ 10
fl(

pgetl

PFLI CK

PALT
PGETL
PLOOP

0705

0
I

07 04

PSWI TCH
PR IGHT

JMP
C
b2
c

0 7 06

23 34
17 3 4

Tad

0 7 07

4 550

RO R 6

0710

5314

JMP
MONE

PCOM

DC A

Pb w I TCH

ffl7
10 / 1 1

75 ^01

1457

0712
0713

3335

I
i

r UT

«71 4

17 34
00 2 4

14 62

0715

3336

DC a

1463

017 1 A

1 '^TtA

Tad
tad
SNA
JMP
TAD
TAD

Tad
PC On

1 ooo

0717

1052

14 65
14 66
14 67

07 20
07 21
07 22

76 50
56 00

14 70
14 71

0723
0724

1336
1062
7640

14 72

07 25

57 02

1473
1474

0726
0727

4556
5221

14 75

1476
1477
1500
1501
1502

LOCI
LOCI

/GET THE CHAR IN THE AC,
/MULTIPLY BY 2.
/POINTER TO DISPLAY TABLE,
/AUTO FOR PICKING UP THE DISPLAY CHARS.
/GET THE VERTICAL IN THE AC.
/GO OVER TO LMODE AND START TO DISPLAY.

/FIRST PART OF CHAR
/SECOND PART QF CHAR,

/BACK INTO 8 MODE
/GET A +2 IN THE AC
/GET NEXT DISPLAY POINT.
/AND BOP BY 1/2 CHAR.
/DO WE WANT TO ALTERNATE CHANNELS?
/YES. ADO IN RANDOM CHANNEL BITS NOW.
/GET ANOTHER CHARACTER.
/ AND DISPLAY IT,

/
01

2335

14 56
14 60
14 61

14 32

1 *» 1

/BIT4 OF ESF

PS T A RT
I

AN D

PSTART

PSTART
L77
PCHA R
P CH AR

M34

/CHAR GETTER ROUTINE
/IS IT LEFT HALF?
/GET CHARACTER
/GET NEXT WORD
/IN THE AC
/ROTATE LEFT HALF TO THE RIGHT HALF.
/GO 00 THE AND.
/RESET SWITCH
/FOR NEW WORD NEXT TIME,
/WORD IN AC
/JUST THE LOW ORDER BITS.
/SAVE FOR LATTER USE.
/BACK IN AC.
/IS IT "\"

CL A
I

PPOI S

PCHAR

Srf A

M43
CLA
PGET L

JMP
CHECK!
JMP

PPSTART

ASMI FN

PFLICK

EXIT.

/YES
/GET IT AGAIN
/IS IT A CR.
J

RETURN.
/CHECK I/O FLAGS AND SERVICE.
/RESET TO START NEXT LINE.
/NO.

/
/

0730
0731
0732

3372
0000
0000

15 03

07 33

00 00

1504
1505
1506
1507
1510
1511
1512

0734
0735
0736

0000
0000
00 00

PALT

PO IS,

POTHER
0
0

PHOK.
PVEH
0
PSTART
0
PSWI TCH,
PCHAR,
0
,

/
/

/IF ALTERNATING CHANNELS STICK IN POINTER NOW
/POINTER TO THE FLICKEHER
/TEMPORARY POINTER
/HORIZONTAL COORDINATE
/VERTICAL COORDINATE
/POINTS TO NEXT TEXT WORD.
/0=GET RIGHT HALF.-1=GET LEFT HALF OF NEXT WORD.
/CONTAINS NEXT TEXT CHARACTER.

1513
1514
1515
1516
1517
1520

0737
2740

0000

iJ741

1336
5/37

15iil

0743
0744
0745
0746
0747

1522
1523
1524
1525
1526
1527
1530
1531

0742

/jecOuE CALLS THIS ROUTINE TO GET
/oET A CHAR.
/PLACE r-M AC.

UUCGM,

4 3i)2

0000

TAD
JMP

6031
5743
03 77

PTAdLE.

/CHECKS
CLA CLL
KSF
JMP 1
lOCHECK
TABLtlJ-l

/IS

/I.JPE.

DEVICES.

KlYBOARD?
RETuR.M.

/POINTS TO THE DISPLAY TABLE-1
/

/NO^ check TO h>LE IF PREVIOUS INSTRUCTION
/y,AS AN "AND" SU THAT ITS EhFECTIVELY A NOP,
/IT IS NECESSARY BECAUSE DOUBLE lOTS
/CAN SCHErt UP THE DATA BREAK TRANSFER.
/SINCE THE AC IS £ERO, AN AND CAN BE NO WRONG

15 32

1533
1534
1535

15 36

1537
1540
1541
1542
1543
1544
1545
1546
1547
1550
1551
1552
1553
1554
1555
1556
1557
1560
1561
1562
1563
1564
1565
1566
1567
1570
1571
1572
1573
1574
1575
1576
1577
1600
1601
1602
1603
1604
1605
1606
1607
1610
1611

CHAR FROM PGETL

/hV urn.

lOCHECK.

73 00

ASMIFN

TABL£D-li7i^00
1,<HUH HAS OCCuRHEO

/CHECK f^OR A:^ AiMO CONDITION,
/AND IF NOT AN ANDf THEN GIVE AN ASSEMBLY EHROR MESSAGE
/THE ASSE^eLY ERROR MESSAGE WILL LET THE GUY KNOW SOMETHINGS WRONG

KRS
TAD
SNA

/READ

0751

6034
1366

07 52

74 50

0753
0754
0755
0756
0757
0760
0761
0762
0763
0764

5553
1367
7650
5552
1072
7500
6036
7004
7130

07t?0

07 65

RKBTST

lOCU

DI AL

TAD
lOCP
SNA CLA
PIP
KEYCHAR
TAO
SMA
KHB
RAL
CLL CML RAK
KEYCHAR
DCA
lOCHECK
JMP I

30 72
57 43

/IS

IN
A

THE FLAG BUT DON

CONTROL

TURN OFF THE FLAG.

/????
/YEP. RESTART DIAL
/hOw ABOUT A CONTROL

/? ? V ?

/YEP. RESTART PIP,
/DO WE HAVE A CHARACTER

/REAO

NEW CHAR

BUFFER?????

NONE THERE

/TURN ON SIGN BIT.
/STASH AwAY.
/ALL DONE. RETURN TO CALLER

/
/

0766
0767

7574
77 64

lOCO.
lOCP,

-220+204

/CONTROL
/CONTROL

/THIS LITTLE ROUTINE ROTATES THE AC SIX PLACES RIGHT

=204

D
P

MINUS CONTROL

/
/
/
/
/
/
/

/
/

0770
0771
0772
0773
0774

0000
7012
7012
7012

5770

RS IX

RTR
KTR
RTR
JMP

RS IX

/RETURN,

1612
1613
1614
1615
1616
1617
1620
1621
1622
1623
1624
1625
1626
1627
1630
1631
1632
1633
1634
1635
1636
1637

/
/

/
/
/

PUS^=^JC0H
/
/

/
/
/
/

/
/
/
/
/
/
/

EJECT

/A GOOD PLACE rOR THIS

LOCATlOrg

1640
1641
1642
I64j
1644
1645
1646
1647
16^0
1651
1652
1653
1654
1655
1656
1657
1660
1661
16 62
16 63

1664
1665
1666
1667
1670
1671
1672
1673
1674
1675
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
1732
1733
1734
1735
1736

»1000
/
/
/

ROUTINE TO GET

LINE FROM TTY

GENERAL CALL:

/
/
/
/

LINE
PDIS

WHERE POIS POINTS TO THE STUFF TO

/
/

tit

DISPLAYED WHILE

/
/
/

1000
1001
1002

0000
1600
3222

10 03
10 04

k;2 00

1005
1006
1007
1010
1011
1012
1013
1014
1015
1016
1017

3241
3700
7201
1700
4252
0000
7305
1700
4252
0034
1303
3141

10 20

GLINE,

TAD

12 22

GCLEAR
GMAI N>

GLINE

DC A

ISH
TAD
DCA
OCA
PONE
TAD I
JMS

GLINE

Gl
G2

GGNUM
GGNUM
GIN

PTWO
TAO I
JMS

GGNUM
GIN

GCOUNT
COUNT

TAD
DCA

/MAIN ENTRY FPR LINE GETTER ROUTINE.
/GET POINTER TO DISPLAY
/AND SAVE IT
/SET UP RETURN.
/GET POINTER
/AND STASH IT IN THE SECOND LOOP.
/CLEAR NUMBER OF CHARS TO iiERO.
/GET A +1 IN THE AC.
/GNUM*1, NEXT SPOT IN BUFFER.
/STICKS NEXT CHARACTER INTO GNUM+1
/0=ILLEGAL=A SOLID BLOCK.
/GET A PTWO INTO THE AC.
/NUMBER OF CHARS+2
/PUT A 34 AT END FOR DISPLAY ROUTINE.
/ FORM.
/AN OSCILLATING NUMBER,
/GENERAL COUNT LOCATION,

1021
1022
1023
1024
1025
10 26
10 27

1030
1031
10 32

1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
10 47

1050
1051

4551
0000
4551
1120
4560
7410
4702
2141
5221
1303
3141
7201
1700

Gl ,

0
Dl SPLAY

GTEXT
GETL
SKP
JMS
I

ISi
JMP

TAD
OCA
PONE
TAD I
JMS

425)2

0034
4551
0000
4551
1120
4560
7410
4702
2141
5240
5207

/DISPLAY CALLERS MESSAGE,
/HIS POINTER HERE
/NOW DO OUR LINE OF CRAP,
/POINTER TO OUR BUFFER.
/IS THERE A TTY CHAR?

GL00P1» DISPLAY

/no:
GG INSERT

COUNT
GLOOPl
GCOUNT
COUNT

/YES. PLACE IN BUFFER.
/BOP UP FLICKER COUNT.
/STILL good. DISPLAY AGAIN,
/GET FLICKER COUNTER
/AND RESET TEMPORARY COUNTER.
/+ 1

GGNUM
GIN

/SET A "\" AT END WITH NO BLOCK FLICKER,
/PLACE IN bUFFER

GL00P2#

DISPLAY

G2 ,

/NOW DISPLAY USERS MESSAGE.
/H IS POI NTER
/NOW OUR bUFFER

DISPLAY
GTEXT
GETL
SKP
JMS
ISi

JMP
JMP

GMAI N

/BUFFER POINTER.
/TEST LOW READER.
/NO CHAR THERE
/INSERT INTO BUFFER
/DONE YET???
/NO. DISPLAY AGAIN.
/RESET FLICKER POINTER,

GMLEN

/PUTS A CHAR IN BUFFER
/BASIC MESSAGE BEFORE USER DOES ANYTHING.

GG INSERT

COUNT
GL00P2

/
/
/

1052
1053

0000
1301

GIN.

TAD

1737
1740
1741
1742
1743
1744
1745
1746
1747
1750
1751
1752
1753

1054
1055
10i>6

1057
1060
1061
1062
1063
1064
1065
1066
1067
1070

3065
1065
7110
13 04

3067
1065
7010
7620
5273
1467
00 53

1652
2252

GINTO.

OCA
TEMP
TAD
TEMP
CIL RAR
GGTEXT
TAO
TEMP2
UCA
TAO
TEMP
SAR
SNL CLA
JMP
GLEFT
TAD I
TEMP2
AND
L7700
TAD 1
GIN
ISZ
GIN

17 54

10 71

34 67

DC A

TE MP 2

1755
1756
1757

1072

5652

JMP

GIN

1073
1074
1075
1076
1077

1652
7106
7006

I76ii

1761
17 62

1763

70 06

20 00
20 01

2002
2003
2004
2005
20 06

2007
2010
2011
2012
2013
2014
2015
2016
2017
2017
2017
2017
2017
20 20

2021
2022
2023

TAD
GIN
CLL RTL
RTL
RTL
JMP
GINTO
I

/GET THE DESIRED CHARACTER TO bE INSERTED
/ROTATE TO BITS 0-5. CANNOT INSERT
/IN The MIDDLE OF THE BUFFER.

/AND GO STORE AWAY THE WORD.

/
/

1100
1101
1102
1103
1104

12 76

0005
1200
7770
1122

GGNUMi
GN UM
GMLEN.
L8NUM-1
GO INSER1',G INSERT
-10
GCUUNT
GGTtXT, GTEXT+2

/LEN OF MESS ALREADY IN BUFF -1 TO COMPENSATE FOR
/POINTER TO INSERT ROUTINE.
/FLICKER CUUNTER
/ACTUAL TEXT POINTER.

CHAR.

/
/

17 74

1775
1776
1777

GLEFT,

5270

1765
17 66

/EVEN. GET LEFT HALF.
/GET RIGHT HALF
/BLAH OUT RI Gh
6 81 TS
/GET DESIRED SAVE CHAR,
/BOP PAST CALLING CHAR.
/AND STASH AWAY,
/RETURN.

17 64

1767
1770
1771
1772
1773

/SAVE CHAKACTEN NUMBER.
/GET CHARACTER Nu.^BER.
/DIVIDE BY 2 TO GET ^^ORO NUMijER.
/POINTER TO ACTUAL TEXT.
/AND STASH AWAY.
/REGET CHAR NUMBER.
/IS IT ODD OR EVEN.

1105
1106
1107
1110
1111
1112
1113
1114
1115
1116
1117

0000
4556

1120

0000

TTYGET

CHECKIO

10 72

5705

TAD
SNA
JMP

23 05

ISZ

74 50

1030
3000
3072

KE YCHAR
I

TAD

10 00

5705

TTYGET
TTYGET
L4000

DC A

OCA
TAO
JMP

KEYCHAR
I

/ROOM FOR NON>OV£RLAPPED TTY ROUTINE HERE
/CHECK 10 DEVICES NOW,
/GET SAVED CHAR.
/IS THERE REALLY ONE THERE???
/NO. RETURN
/YES. BOP UP RETURN ADDRESS,
/CHOP OFF STUCK ON SIT,
/0 CAN BE USED RIGHT ONW.
/2AP OUT OLD CHAR.

/RETRI EVE CM AR

TTYGET

/EXIT TO SECOND LOCATION WITH CHAR IN THE AC.

1121
1122
1123
1124
1125

7400
2205
2014
3172

LINEBp

/START AT BOTTOM LEFT FOR DISPLAY,

LEFT

GTEXT=LINEB
BOTTOM

/BOTTOM OF SCREEN.

34 00

TEXT

L8NUM=6
LBMAX=62!-LbNUM
/

20 24

2025
2026
2027
2030

/
/

20 31

"REPLY :'

/HALFWORO ASSUMED.
/NUMBER OF PREVIOUS CHARS IN BUFFER.
/MAXIMUM NUMBER OF USER CHARACTERS.
FOUND BY GETTING MAX ON LINE(62) AND SUBTRACTING THOSE IN BUFFER (LBNUM

)

iJ032

2033
2034
2035
2036
2037
2040
2041
2042
2043
2044
2045
2046
2047
2050
2051
2052
2053
2054
20 55
2 0 56

-1*1

* L I N E rJ + dl

1153

0000

/ALLOW SPACE FOH THE SUFFER
/LAST wOHU OF THt CHAKACTL^ BUFFER

/
/

/
/
/
/

1154

1375

TAD

lUNO AD

UL3i?0

/FOR

SET

POSITIN BLOCK TO 300

/FOR

tu SET

OSHlON kJLOCK

/
/

1155

3373

UNLOAD

UNPOS

DC A

1156

L I NC

6141

00 t

2057
2060

1157

0076

20 61

11 60

7 7 73

2062
2063
2064
2065
2066
2067
2070
2071
2072
2073
2074
2075
2076
2077
2100
2101
2102
2103
2104
2105
2106
2107
2110
2111
2112
2113
2114
2115
2116
2117
2120
2121
2122
2123
2124

1161
1162

20 20

11 63

77 76

—
•"1

1164
1165
1166
1167
1170
1171
1172
1173
1174

00 01

AX 0

0300
0002

UNPOS

1175
1176

73 00

1120

S£ T

Annu
AU
UN LU Ur

ADA

AUT07

TO 0

/STORE THE BLOCK TO POSITION UNIT

OR 300)

/THIS ROUTINE UNLOADS ALL THE TAPES
/EXCEPT FOR TAPE 0. IT IS SU SIMPLE
/AND YET SO ELEGANT IT NEEDS
/NO COMMENTS. SO GAHE UPON IT AND BE THANKFUL.

L20
1

0737

07 27

CH K

AO fN

.-1

7166
02 3 6
71 62
a 7 a?

TOI U

CH K
30 0
PO P
PM ODE

CUA CLL
IMP

5207

AUT07
UNLOOP

/
/
/
/
f
/
/
/
/
/
/
/
/
/
/
/
/
/
/

EJECT

GMAIN

/CLEAR THE AC AND JMP TO MIDDLE OF MESSASGE DISPLAY
/KEEP MESSAGE GOING

2ld5
21^6
2127
2130
2131
2132
2133
2134
2135
2136
2137
2143
2141
2142
2143
2144
2145
2146
2147
2150
2151
2152
2153
2154
2155
2156
2157
2160
2161
2162
2163
2164
2165
2166
2167

/
/
/

»i20Z
^LCO\fD Page

LIME GLTTE)^ ROUT!

/
/

1200
1201
1202
1203

0000
0142
1026
3121

12 0 4
12 0t>

45 73

bE ARCH

13 03

GS PL 1

1206
120/
1210
1211
1212

1315
4253
5600

12 13

12 77

Ta D

1214

7650
5/02

JM p

1216

1121

ASM FN
TAD

1217
1220
1221
1222
1223
1224
1225
1226
1227

1121
0024
3226
2276
1276
4700
0000
5701

12 15

GI \SEP% T

AND
Tag

Ll 77

OC A

r T Yr £

12 76

GSPG 1
JHS
JMP
Tad

/040

CM A

GNX

I
I

GG L I MC
n I i\fSt R T

r r ft r A Lj

ECHO
F T YPE

ECHO
44 07

PUTL
TAD
AND

FTYPE
L77
GPUT
GNUM
GNUH

DC A

ISi
TAD
JH S

GPUT

2171
2172
2173
2174
2175
2176
2177
2203
2201
2202
2203
2204
2205
2206
2207
2210
2211
2212
2213
2214
2215
2216
2217
2220
2221
2222
2223

GG I

GG MA I

jMP

21712

/CHECKS CHAN A\D STICKS IN BUFFER.
/CHOP OFF THE PARITY BIT.
/A\D FOhCE 200 BIT ON FOR TESTS TO FOLLOW.
/\0^. STASH AWAY IN FTYPE F OH SEARCH TO FOLLOW.
/SEARCH LIST FOR FTYPE MATCH
/SPECIAL CHARS AMD EXCEPTIONS.
/h^HERE TO GO IF FOUND.
/CHECK FOR BETWEEN 240 AND 340
/NOPE. IT ISN T A 37. RETURN TO CALlER.
/GET NUMBER OF CHARS.
/TEST TO SEE IF THIS OVERFLOWS THE BUFFER
/NUMBOER OF SPACES IN BUFFER.
/TOO MANY. RESTART.
/LOAD THE CHAR IN AC TO ECHO IF ECHOING CHARS*
/GET THE CHAR.
/ECHO CHAR ONLY IF SWITCH IS SET.
/ECHO ON TTY.
/GET CHAI?.
/MAKE INTO A SIXBITTER

/BOP UP COUNT
/PLACE IN AC.
/PLACE CHAR IN BUFFER
/HERE IS CHAR.
/ALRIGHT, GO BACK AND DO NEXT

/
/

GNLF

1230
1231

4557
5702

ASHI FN

ECHO

CHLF
JMP

CCCi Far

/LINEFEED WAS TYPED. GIVE C.R.L.F.
/IF ECHOING IS DESIRED.
/AND RESTART THE INPUT BUFFER.

/
/
/
/

1232
1233
1234
1235

7240
1276
7500
3276

GNRUB.

NONE
TAO
SMA
DCA

GNUM

/RUBOUT TYPED. -1 TO AC.
/SUBTRACT ONE FROM THE NUMBER OF CHARS IN THE 8UFER.
/HAVE wE BACKSPACED TOO FAR?
/NOPE. STORE AWAY.

1236
1237
1240
1241

7640
5242
1307
44 07

ECHO
ASHSKP
4
S2A CLA
JMP
GNRNO
TAD
GNL334
PUTL

/DO WE WANT ECHOING?
/NO. DO NOT ASSEMBLE

ASMIF£
CLA
JMP I

/DO WE HAVE ECHOING?
/N0< w£ DON T. AC MIGHT BE N0N-2ER0, CLEAR TO
/NOW GO BACK AND START DISPLAYING LINE AGAIN.

IN TTY ECHO CHAR,
/WAS BACKSPACE SUCCESFULL?
/NO. 00 NOT PRINT "\'*.
/FORM CHAR.
/OUTPUT IT TO SHOW DELETE WAS SUCCESFULL.

GNRNO,
1242

5701

ECHO
GGMA IN

SURE.

22 24
22 25
22 26
22 27

/
/

2230

GA LL

22 31

12 43

2232
2233
2234

1244
1245
1246
1247
1250
1251
1252

22 35

2236
2237
2240

PO NE
TA D

4700
0000

JMS I
0000
CRLf
TAD
DCA
JMP I

45 57

1675
3200
5600

22 41

2242
2243
2244
2245
2246
2247
2250
2251
2252
2253
22 54

GN UM

/WHIOH lb 1+bNUn
/AND INbLni A I<?k500 Ab
/IN IT GOES
/UU A L.AK Ktl AFvU LIN

GG IN

IS SET.

SImITCH

/DO

ILHn|NAlUK

rt.tJ»

GGLI NE

GINSERT
GI NSER T

/
/
/
/
/
/

12 53
12 54
o

22 62

12 60
12 61
12 62
12 63

22 63
22 64

1264
1 O AS

0 0 f^A

CRLF ONLY

ECHO

XCO
22 60

i\|

/
/

12 56

CCJl

M D 11 1 r

72 01
12 76

00 00

GGLI MC

1121
1147
7510

T AO

FT YPE

TA0

M3 40

SPA
TAD

12 57
12 74

GGM3 3
TAD
SPA CLA
TAD
M4 0

7 710

10 56

1121
3121

TA D

DCA
TAD
TAD

1191
XX
C.X

O AA

1147

22 66

12 6/

71 00

2267
2270
2271

1270

1025
7630
2253

TAD
S2L CLA
I S2

12 71
12 '2

/SEE IF

ITS GREATER THAN 340

FT YP E
FT YPE

FT YPE

M340

L HwW

/IT ISNT, SO MAKE IT A BIG NUM FOR SECOND TEST
/SEE IF ITS GREATER THEN 372
/?

/ITS GREATER THEN 337 BUT LESS THEN 373
/NOW EITHER UPDATE FTYPE OR LEAVE IT ALONE
/THE UPDATE CONVERTS A 37 CHAR TO A 35 CHAR
/NOW GET THE MODIFIED OR UNMOOIFED CHAR
/SUBTRACT OFF 340 FOR LIMIT TEST
/CLEAR THE Lie FOR THE FOLLOWING TEST
/MOW Ann TM
!^SA
rnR inwFtt
tmtT TF<!T
/TF rnnn iiwr I'-^^^lnllJ a
^

/ELSE GO TO THE FIRST RETURN

22 72
22 73

2274

22 75

22 77
23 00

23 01

2302
2303
2304
2305
2306
2307
2310
2311
2312
2313
2314
2315
2316
2317
2320
2321
2322

f
i

1274

7745

-33

GGM33,
/
/

1275
1276
1277
1300
1301
1302

1000
0000
0054
1052
1007
1006

GGLINE, GLINE
GNUM,
0
GLIMIT, LBMAX
GIN
GGIN»
GMAl N
GGMA IN
G6CLEAR tGCLEAR
,

/
/

1303

0212

/COMMUNICATION.
/NUMBER OF CHARS IN BUFFER
/MAX NUM OF USER CHARS IN BUFFER.

GSPLl.

212

/CROSS PAGE REFEREENCES.

2323
2324
232b
2326
2327
2330
2331
2332
2333
2334
2335
2336
2337
23 40
23 41

1304
1305

0215
0377

215
377

ASMir2
244
1306
1307
1310
1311
1612
1313
1314

0247
0334
0300
0337
0224
0225
4243

TERHC-44

24 7

/EOF CHAR=OOLLAR SIGN?
/YEP. PLACE IT ON THE EXCEPTION TABLE

GNL334, 334
300
337
22 4

225
4243

/CONTROL

GALL

/C .R .

CHARACTER

/
/
/

1315
1316
1317

GSPGl,

12 30

/LINE FEED

2342
2343
2344
234b
2346
2347
23b0

1320
1321
1322

1210
1210
1210

23 51

13 23

12 10

GNXI T

2352
2353
2354
2355
2356
2357
2360
2361
2362
2363
2364
2365
2366
2367
2370
2371
2372
2373
2374
2375
2376
2377
2400
2401
2402
2403
2404
2405
2406
2407
2410
2411
2412
2413
2414
2415
2416
2417
2420
2421

1324
1325
1326

1154
1155
1210

LUNOAD
UNLOAD
GNXIT

1243
1232

GNRUB
ASMi rz
GNX! T

TERMC-44

GNXiT
GNXI T

GNXIT

/POINTER TO THE UNLOAD ROUTINE.

/
/
/
/
/
/

1327
1330
1331
1332
1333
1334
1335
1336
1337
1340
1341
1342
1343
1344
1345
1346
1347
1350
1351

0000
7240
1327
3012
7240
1412
3013
7240
1412

MMQVE,

MONE
Tad
OCA
MONE
TAD
OCA
MONE
TAD I
OCA
TAD
CHA
OCA
JMP
TAD
OCA I

>3014

1412
7040
3141
5347
1413
3414
2141
5345
5412

/RUB OUT
/DO WE WANT DOLLAR SIGN IN LIST?
/YEP. DOLLAR SIGN ILLEGAL

ISH

JMP
MMEXIT, JMP

MMOVE
AUT03
AUT03
AUT04
AUT03
AUT05
AUTO 3
CO UN T

MMEXIT-2
AUTO 4

AUT05
COUNT
.•3

AUT03

/
/

1352
1353
1354
1355
1356
1357

0000
4564
0117
1366
0011
5752

PPUSH,

1360
1361
1362

0000
4564
1366

PROP,

MOVE

rsuE
PPTEMP
FNAME+3-rsi2E*l
JMP I
PPUSH
/

MOVE
PPTEMP

2423

1363
1364

24 24

13 6b

24 22

24 27

13 66

243^
2431
2432

1376

2435

rs ut
r^Az-iL + ^^ro 1?'L + 1
PPC'P
ji^P
I

2425
2426

24 33
24 34

i3117
iiiaii

/
PPTE. MP .i^

apPT LMP + F\

/JJ3T Tj
/
/
/

EJECT

i,Et

WHEKt IT IS. \EXT LOCATIQM

COMPLETELY FREE.

2436
2437
2440
2441
2442
2443
2444
2445

/
/

/
/
/

EVOKt PIP2 NOW

/
/

24 46

2447

24 5SJ

2451
2452

ChAl\

"PIF2"

0000
0001
000<f

*20

PMODE
EJECT

00133

0004
0005
0006
0007
0010
0011
0012
0013
0014
0015
0016
0017
0020
0021
0022
0023
0024
0025
0026
0027
0030
0031
0032
0033
0034
0035
0036
0037

/
/

THIS

/
/

/
/
/
/

/
/

/
/
/

/
/
/
/
/

/
/

/
/
/
/
/

EJECT

THE SECOND PART OF PIP.

CALLED

«14

G3040

N(!

Gt^tRAL MASS STORAGE I/O ROUTIMES,

0042
0043
0044

/
/

00 4t>

01646

0047
0050

CALlING StUUL-NiCt:

(OH WRITE)
READ
UNIT NUMBER
FIRST CORE LOCATION OF TRAMSF£R
NUMBER UF BLOCKii TO BE T RANSFt RREJ
FIRST BLOCK OF TRANSFE^^.

/
/
/

00tj3
00!?4
00t>5
005>6

/
/

0057
0060
0061

00 62

0063
0064
0065

1400
1401
1402

0000
4224
1453

TREAD,

00 72

0073
0074
0075
0076
0077
0100
0101
0102
0103
0104
0105
0106
0107
01 10

0111
0112
0113
0114
0115
0116
0117
0120
0121
0122
0123
0124
0125
0126
0127
0130
0131
0132
0133
0134
0135
0136

•WRAP AROUND"

/
/

00 66

0067
0070
0071

ROUTINE HAS THE ABILITY TO GO INTO EXTENED CORE.
IF HIS NUMBER OF BLOCKS MAKES THE LOCATION COUNTER

JMS
TAPER
ASMI FN

TWHERE

ASMSKP
NOSUCH
NOSUCH
NOSUCH
NOSUCH

RF08

1403
1404
1405
1406

7501
7501
7501
7501

ASMIF2
ASMSKP
RF08R
RF08R
RF08R
RF08R

1407
1410
1411

4560
4560
4560

NOSUCH
NOSUCH
NOSUCH

RF08

/MAIN READ ROUTINE
/GET CORRECT MASS DEVICE
/k)0-07 = TAPE HEAD
/OO wE WANT THE Rr08 ROUTINES ASSEMBLED?
/YEP BYPASS NON-UNIT ASSIGNMENTS.

/UNITS 10-47 NOT PRESENT

/ARE THEY NOT THERE?
/NOT THERE. DO NOT ASSEMBLE

/UNITS

POINTERS.

0-47 INCASE OF RKWSS

/UNITS 50-77 FREE FOR

NOk^.

/
/
/

1412
1413
1414

1415
1416
1417
1420

00 00

TWRITE.

TWHERE

4224
1464

JMS
TAPEW
ASMIFif

RF08
4

7505
7505

ASMSKP
RF08W
RF08W
RF08W
RF08W
ASMI FN

RF08

ASMSKP
NOSUCH
NOSUCH
NOSUCH
NOSUCH

75 05
75 05

/MAIN WRIT EE.
/GET COORRECT MASS STORAGE DEVICE.
/FIRST IS LINC TAPE.
/DISK DESIRED?
/NOPE. BYPASS POUTERS
/UNITS lfc>-47 ARE DISK UNITS NOW,

/TEST AGAIN.
/SKIP NOSUCH UNITS IF DISK DESIRED.
/UNITS 10-17 NOT YET ASSIGNED.
/UNITS 20-77 FREE FOR NOW,

0137
0140
0141
0142
0143
0144
0145
0146
0147
01b0
01 51

0152
0153
0154
0155
0156
0157
0160
0161
0162
0163
0164

14 21

45<3ij

142ff

4560
4560

14 2v5

/
/
/

1424
1425
1426
14 2 /

14 3C3
14 31

0000
7344

1224
3065
1465
3065

tao
OCA
TAD

1465
1356
00 61

7112
3107

1437

01 73

14 40

0174
0175

1441

01 76
01 77

1443
1444
1445
1446
1447

TAD
TAO
AND
ClL

TEMP
RK70
L30

/DISK
/NOPE

RKDRIV

/GET USERS UNIT.
/SUBTRACT ONE FRqm THE DRIVE NUMBER
/CHOP OFF RANDOM CRAP.
/SHIFT TO CONTHOLLER BITS 9-10
/SAVE AWAY

TEMP

/GET THE USERS UNIT AGAIN.

f^TK

DC A

14 42

14 50
14 51

1452

1465
7012
7010
0060
1224
3224
1624
3224
1065

TAD
RTR
PAR
AND
TAO
OCA
TAD
DCA
TAD
DCA

3624
2224
5624

/GET 8ITS 6-6
L7

TEMP
I

\Si.

JMP

twhere
TWHERE
TWHERE
TWHERE

TWHERE
TWHERE
TWHERE

/GET START OF LIST.
/AND STORE AWAY.
/GET CALLING ADDRESS,
/AND STASH AWAY.
/GET USERS CALLING ADDRESS,
/AND SET UP PHONNEY CALL.
/GO TO SECOND LOC.
/PHONNEY CALL ALL DONE.

/
/
/

02 11

14 53
14 54

0000

TAPER*

1455
1456
1457
1460
1461

3212
1312
3713
3707
4711

1462

0722

1463

5276

TAD
DCA
TAD
DCA I
DCA I
JMS I
LMODE
RDE I
PMODE
JMP

12 00

02 21

TREAD
TWRI TE

TERENT
TEERNT
TTSKP
TTBLAH

TEXIT

/MAIN LINC TAPE READ ROUTINE.
/GET READ ADDRESS.
/AND SAVE FOR READ.
/SET TO RETRY READ IF ERROR
/SAVE IN RETRY LOCATION
/OO A CHECK OF CHECKSUM,
/GO PERFORM FOLLOWING OPERATION.
/NEXT INSTRUCTION IS EXECUTED BY TBLAH IN LMODE
/READ AND LEAVE GOING.
/JUST FOR ASSEMBLER.
/AND EXIT

/
/

0230

1464
1465

02 31

14 66

0232
0233
0234

1467

02 35

RF?8

ASMSKP

0172

ASMI r:{

/GET USER CALLING.

01 71

0222
0223
0224
0225
0226

DC A

TEMP
TEMP
TEMP

/-2
/GET CALLING.
/GET ORIGi:viAL CALLING.

1432
1433
14 34

0212
0213
0214
0215
0216
0217
0220

Tw HE f^C

1435
1436

0204
0205
0206
0207
0210

/JETS CORRECT MASS STORAGE DEVICE.

01 65

02 03

\ J SUCH
/

0166
0167
0170

0200
0201
0202

^JOSUCH

14 70

1471

00 00

1310
3707
1314
3713
4711

TAPEW*

TAD
DCA
TAO
DCA
JMS

I
I

LMODE

TTTSKP
TTSKP
TTAPEW
TEERNT
TTBLAH

/GENERAL LINC TAPE WRITE ROUTINE.
/SET UP TO IGNORE BAD CHECKSUM.
/AND STASH AwAY.
/FOR WRITE ERROR REWRITE ENTIRE BLOCK
/DO WRITE NOW,

0236

1472

0726

WRI

1473
1474

3707
4711

PMODE
OCA I
JMS I
LMODE

14 75

0727

63237

0241
632 42

0243

CHK

02S>1

1476
1477
1500
1501

7307
1212
3212
5612

TAO
OCA
JMP

1502
1503
1504
1505
1506

0000
7240
1212
3017
5702

ASET ,

TWRI TE
TWRI TE
I

TWRITE

/GENERAL EXIT.
/GET WRITE
/GO PAST ARGUEMENTS,
/PAST ARGUEMENTS.

/INITIALIZES ARGUEMENT GETTER FOR AMSS STORAGE

MONE
TAO
OCA
JMP I

TWRI TE

AUTOS
ASET

/FIRST AGRt
/ARC REGISTER.
/EXIT

/
/
/
/

0265
0266
0267
0270
0271
0272
0273

/
/
/

1507
1510
1511
1512
1513
1514

1750
7410
1600
1627
20 32

1413

TTSKP#
TTTSKPi
TTBLAH
TERENT
TEERNT
TTAPEWf

TSKP
SKP
T8LAH
TREENT
TTRENT
TWRI TE+1

/CHECKSUM SKIP
/INSTRUCTION TO IGNORE CHECKSUM
/POINTER TO I/O DOER
/RETRY LOCATION
/RETRY SWITCH
/RETRY ENTRIE WRITE ON ERROR

/
/
/
/

03 00

0301
0302
0303
0304
0305
0306
0307
0310
0311
0312
0313
0314
0315
0316
0317
0320
0321
0322
0323
0324
0325
0326
0327
0330
0331
0332
0333
0334

PFOUR

TEXIT,

02 64

02 74

/
/

02 53

0275
0276
0277

/BACK INTO PMODE
/SET TO CHECK CHECKSUM,
/NOW DO CHECK OF WHAT WE JUST WROTE,

0252
0254
0255
0256
0257
0260
0261
0262
0263

TTSKP
TTBLAH

PMODE

02 44

0245
0246
0247
0250

1515
1516
1517
1520
1521
1522
1523
1524
1525
1526
1527
1530
1531
1532
1533
1534
1535
1536

7240
3106
7305
3123
1737
3117
4563
1120
3105
1122
3104
4403
1120
3103
1122
3102
4554
5552

FF ILEC.

MONE
DCA
PTWO
DCA
TAD I
OCA
DIRECT
TAO
DCA
TAD
DCA

3327

rWHAT
FFTEMP
FSI2E
FUNI T

OUTUNIT
FBNUM
OUTBLOCK

TAO
DCA
TAO
DCA
COPY
PIP

FFTEMP, HHTEMP
/
/
/
/

/COPIES A NAMED FILE TO ANOTHER NAMED FILE.
/2ET COUNTER TO 1
/SET UP SECOND DIRECTORY LOOKUP
/IT S AN OUTPUT FILE
/GET THE ORIGINAL SI?.E
/PLACE IN THE SIZE NOW,
/NOW ALLOCATE SPACE,
/GET THE NEW OUTPUT UNIT
/AND SET UP OUTPUT UNI
/GET OUTPUT BLOCK
/AND SET UP.
IN UPPER SAVED F8L0CK
/SAVE THE INPUT UNIT
/POP

HP OP

/
/
/

1537

OUTNUM

FUNI T
INUNIT

FBNUM
INBLOCK

/GET
/AND
/NOW
/AND

THE INPUT STARTING BLOCK
SET UP

COPY THE FILE
RETURN TO PIP.

0335
0336
0337
0340
0341
0342
0343
0344
0345
0346
0347
03!50

0351
0352
0353
0354
0355
0356
0357
0360
0361
0362
0363
0364
0365
0366
0367
0370
0371
0372
0373
0374
0375
0376
0377
0400
0401
0402
0403
0404
0405
0406

1540
1541
1542
1543
1544
1545
1546
1547
1550
1551
1552
1553
1554
1555

00 00

TAD
DCA
TAPE
TAD
AND
SNA
TAO
TAD
AND
TAD
TAD
DCA
JMP I

12 00

0356
7450
1054
1356
0356
10 54

1120
3120
5740

FUNI T

TREAD
TREAD
RK70
L10
RK70
RK70
L10
FUNIT
ruNIT

/GET THE USERS UNIT
/AND SAVE FOR A SECOND
/DO THE NECESSARY STUFF,
/REGET THE USERS UNIT
/JUST HAJOR DEVICE BITS.
/iERO?
/YEP. ADO IN 10 TO FORCE CONTROLLER
/THIS IS TO FORCE BETWEEN 10-37

/FUNIT IS ALL SET NOW,

RFOISK

/
/
/

1556

0070

RK70,

/
/
/
/
/
/
/

/
/

/
/
/
/
/
/

04 07

0410
0411
0412
0413
0413
0413
0413
0413
0414
0414
0414
0414
0414
0414
0414
0414
0414
0414
0414
0414

RFOISK,

1120
3200
4402

ASMIF2
ASMSKP
1557
1560
1561
1562

0614
1116
0340
2401

1563
1564
1565
1566
1567
1570
1571

2005
4306
0310
0503
1323
2515
4005

TMESS2, TEXT

15 72

22 22

1573
1574
1575

1722
40 40

FCHECKSUM ERROR

RF08
4

"FLINC TAPE

/RF08 DESIRED?
/NO. DON T PUT MESSAGE HERE.

0415
0415

1576

4043

/TAPE FRf^oR MESSAGE HERE TO LEA
VE ROOM LATTER ON.

0416
0417
0420
0421
0422
0423
0424

04 25

0426

/
/
/

Eject

(

0427
0430
0431

/
/

!(J432

654 33

0434
0435
0436
0437
0440

« 1 61 0

1607
1610

04 4 7

16 11

33 17

0450
0451
0452
0453
0454
0455
0456
0457
0460
0461
0462
0463
0464
0465
0466
0467
0470

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

1317
3307
2200
1417
3315
1417
7450
5600
7041

04 71

16 30

0472
0473
0474
0475
0476
0477
0500
0501
0502
0503
0504
0505
0506
0507
0510
0511
0512
0513
0514
0515
0516
0517
0520

1631
1632
1633
1634
1635
1636
1637

7240
1320
3320
1315
7440
5244
1033
1304
3304

1640
1641
1642
1643

1304
0033
7650
1064

0442
0443
0444
0445
0446

1600
16 01

1602
1603
1604
1605
16k36

TBLAH,

SETA
GETA
CLL RAK
TAO
DCA
CLA RTL
RTL
TAD
DCA
TAO
OCA
I

\St

GETA
DCA
GETA
SNA
JHP

L30
TAXD

TBLAH
TOPR
TOPR
TSTOPH
TBLAH
TLOCl

OCA
GETA

33 61

TBLAH

TCOUNT

lAC

DCA

/PERF^R^'S A FU^CT10^J, THE-'vi EXITS.
/SET UP AHGUEMEf^T GET TEH
/GET UNIT :^UH8t^
/MOVE INTO CORhiECT PLACE
/SET UP EXTENEO UNITS 8|TS.
/AND STORE A^AY. NO-PAUSE AND EXTENEDEO ADDRESSING ALSO SET.
/NOiN HOVE BACK TO BIT 6
.

CI A

1417
7001
3320

tblock

/AOD IN UESIREO FUNICTION.
/AND STORE A»^AY TO BE EXECUTED.
/GET ThE OPERATION AGAIN.
/SET UP SELECT-*vRI TE LOCK CHECK.
/SKIP PAST CRAP.
/GET STARTING ADDRESS.
/AND STORE AWAY.
/GET *gORO COUNT.
/IS IT ^ERO?
/YEP. EXIT.
/NOPE. COMPlEMETN IT.

/STASH Av^AY.
/GET BLOCK NUMBER
/FOR UPCOMING SUBRACTION ERROR.
/AND OPLACE IN FIRST BLOCK.

/
/
/

1627

TREENT

MONE
TAD
DCA
TAO
S2A
JMP
TAD
TAO
DCA

TBLOCK
TBLOCK
TLOCl

ASMI F£

TDOWN
L7000
TAXO
TAXO
RF08

ASMSKP

TAXO
TAD
AND
L7000
SNA CLA
M400
TAO

/TO RETRY SAME BLCOK AFT£R ERROR.
/RESET BLOCK NUMBER TO CORRECT ONE.
/GET THE FIRST LOC
/IT S ifERO. CORRECT FOR FIELD CHANGE
/NOT 2ER0 OK,
/BOP DOWN FIELD.
/IN EXTENDED REGISTER

/DISK ROUT INES THERE
DO NOT ASSEMBLE IN CODE TO PROTECT 7400-7777 OF FIELD 0.
/REGET THE NEXT aXO REGISTER.

/NO.

/ARE WE CROSSING BOUNDARY TO LOWER CORE?
/YES. BOP DOWN BY AN EXTRA 400 SO HE DON
/AND THE READ ROUTINES THERE.

8ASH DATA BREAK

1644
1645

1064
3315

1646
1647
1650
1651

1143
3363
1031
6151

TDOWN,

TAO
OCA

M400
TLOCl

/400= LENGTH OF 1 RECORD.
/LOC ALL SET TO GO.

TAD
OCA
TAD
6151

M215
TERRC2
L5000

/ENTERS HERE

TRENT2.

IF A SKIP OVER RECORD.
/SET UP WAIT COUNT.
/SET MAINANCE MODE
/FOR TESING WHETHER OR NOT UNIT OK

M215=LENGTH OF TAPE+10 SECONDS.

/
/
/

05 21

0522
0523
0524
0525

I/O LOOP.

0000
4555
1417
7110
1061
3304
/206
7006
1600

e<4

KAU. G?.\EHAL TAPE

1652
1653
1654

72 01

1361
76 40

TLOOP,

PONE
TAO
TCOUNT
S2A CLA

/MAIN LOOP TO 00 NEXT RECORD. IS THIS LAST RECORD?
/GET THE NUMBER OF RECORDS TO GO

107 cO

05 27
05 30
\DZf

16 55
16 56
16 57
16 60

JM P

,4-4

TAD
AND

TOPR

00 34

3317

DC A

ASMI FZ

TOPR
Rr08

ASliSKP

TAO

TLOCl

5261
1317

1 6 62

1315
1040

0536

1 663

10 40

107 o /

16 64

7640

0540

1665
1666
1667
1670
1671
1672
1673
1674

52 75

1675
1676
1677

7300
1040
1315
3315
6141

1661

107 ** X

0542
0543
05 44

0545
0546
0547
0550
0551
0552
0553

17 00

0555
0556
0557
0560
0561
0562
0563
0564
0565
0566
0567

1701

0571
0572
0573
0574
05 75
05 76
05 77
06 00
06 01
06 02
06 03
06 04

0605

TA D

1304
0033
7640
5275
1040
1315
3315

1702
1703
1704
1705
1706
1707
1710
1711
1712
1713
1714
1715
1716

0323
1160
0000
0001
0011
0000
0000
0500
6154
4071
1020
0000
0023

17 17

00 00
00 00

1720
1721
17 22
17 23

1724
1725

/SiEE IF NEXT IS GOING TO READ
/??
/NO. [T ISN T.
/GET THE TAXO TO SEE IF
/IT S 74i3fc; OF FIELD 0

/NOT FIELU 0
/WE RE GOING TO BASH 7400,

CLA CLL
TAD
L400
TLOCl
TAO
TLOCl
OCA

/LINC MUST BE CLEAR
/80P UP LOCATION

LI NC

/GO OVER INTO LMOOE

LMODE
ROR
ADM

INTO 7400.

SO SKIP PAST

IT.

/MOVE OVERFLOi^ BIT INTO CORRECT TAPE POSITION.
/UPDATE TAXO AND AXO ALL AT ONCE.

/SEND TO CONTROLER
/CLEAR AC FOR TEST TO FOLLOV^ DUMMY OPERTION.
/PEKFORM USERb OPERATION ONCE. BLOCK NUM8ER=0 INSURES SUCCESS.
/BECAUSE BLOCK NUMBER IS ADDED TO SPECIAL REGISTER WHICH IS READ IN.
/DO 8 lOT TO GET SPECIAL REGISTER.
/IF TAPE OK(SELECT AMD WRITE-LOCK OFKAY
/THEN 8IT10=i; .MOW DO REAL USER OPERATION.
/GET ADDRESS

TAXO.

AXO
CLR

TSTOPR*

0000
lOB

6154
STC
LDA
TLOCl*

TEHP4

/AND SENQ IT TO CONTROLLER
/ACTUAL TAPE INSTRUCTION
/ACTUAL BLOCK NUMBER.
/RECALL PAST SPECIAL FUCTIQN
/REGISTER AND CHECK WHETER UNIT OK
/GET BACK INTO B MODE

THA
TOPR

0
0

T8L0CK

LOA
TEMP4
POP
PMODE

tblock

23 20

ISZ

RTH
SNL CLA
TSELER
JMP

1727

7012
7620
5357

1730

0002

1731
1732
1733
1734
1735

4556

1736
1737

4764
2202

1740

6141

1741

0416

17 26

TLPl,

1000
0071
0002

06 06

0607
0610
0611
0612
0613
0614
0615
0616
0617
0620
0621
0622
0623
0624

L4 00
TAO
L400
S2A CLA
TlPI
jmp
TAXO
TAD
AND
L7 00 0
S2A CLA
TLPl
JMP
TAD
L4 00
TAD
TLOCl
OCA
TLOCl

/RF08 OEISRED?
/NOPE. DON T ASSEMBLE IN CODE TO PROTECT 7400.
/GET THE LAST LOCATION.

05 54

05 70

/NO. STILL MORE TO GO,
/LAST ONE, TURN OFF MOTION BIT.

L7 75 7

LMODE
TL0OP2, POP
PMODE
CHECKIO

23 62

ISZ

5340
2363
5340

JMP
ISZ
JMP

TERRCl
TNT2LG
TERRC2
TNT2LG

/BOP UP BLOCK NUMBER
/PLACE BIT 10 IN LINC
/IS UNIT OK WITH WRITE LOCK OFF IF NECESSARY,
/UNIT NOT OK, DISPLAY MESSAGE.
/TELL ASSEM WE LL BE IN LMODE.
/GET INTO 8 MOOE. IF IN 8 MODE ITS JUST A NOP.

/CHECKIO I/O DEVICES WHILE WAITING IN LOOP.
/80P UP FIRST WAIT COUNT
/DIDN T OVERFLOk^ YET, GO DOWN
/OUTER SKIP OK?
/BIG COUNT STILL OK. GO DOWN,

JMS I
TMESSl

TEMAIN

/WE VE WAITED TOO LONG. GIVE MESSAGE.
/TO LONG MESSAGE

TNT2LG.

LINC
LMODE
STO

/GET INTO LINC MODE FOR FLAG TESTING.
/GET INTO L MOOE TO TEST TAPE.

062!?

174ii

77 30

0626
0627
0630
8631
0632
0633
0634
0635
0636

1743
1744

0003
0002

1745
1746
174/
1750
1751
1752
1753
1754

7040
7650

06 37

0640
0641
0642
0643
^644
064t>

0646
0647
0650
0651
0652
0653
0654
0655
0656
0657
0660
0661
0662
0663
0664
0665
0666
0667
0670
0671
0672

53 52

7410
5355
2361
5252
5600

JMP
TL00P2
TAC
POP
PMODE
CHA
SNA CLA
JMP
TDOC
TSKP
SKP
JMP
TCHEKE
TCOUNT
TDOC,
\Si
JMP
TLOOP
T8EXIT. JMP
TBLAH
,

/
/

1755
1756
1757
1760

4764
1557
4/64
1765

TCHEKE

JMS
TMESS2
TSELER, JMS I
TMESS3
I

TEMAIN

/CHECKSUM ERROR
TEMA IN

/BLOCK NUMBER OR TIMING ERROR

/
/
/
/
/

1761
1762
1763
1764

0000
0000
0000
20 05

TCOUNT, 0
TERRCl. 0
TERRC2* 0
TEMAIN
TMAINE
/
/

/
/
/

ASMIFN
asmskp

0674
0675
0676

RF0a
4

"FLINC TAPE
TMESS2, TEXT
FCHECKSUM ERROR

06 77

0700

07 01

0702
0702
0702

1765
1766
1767

07 02

17 70

0623
0514
0503
2440

1771
1772

1722
4306

07 03

17 73

27 22

0703
0703
0703
0703
0703

1774

1124

17 75

05 55

1776
1777
2000

TMESS3,

0702

0703

/AND GET BACK INTO 8 MODE
/MAKE INTO iJEKO IF 7777
/GOOD CHECKSUM
/YEP. TRY NEXT RECORD.
/SWITCH FOR ERROR IF BAD CHECKSUM.
/BAD CHECKSUM. GIVE MESSAGE
/OK. IS ALL ODNE?
/NOPE. DO NEXT
/YEP. EXIT

06 73

07 03

/NOT YET DONE. GO BACK ANO WAIT,
/DONE. GET CHECKSUM INTO AC.

07 03

20 01

0703

2002

07 03

20 03

1417
0313
4005
2222
1722
4040

0703
0704

2004

4043

TEXT "FSELECT OR

FWWITE- LOCK ERROR

/RF08 DEISREO?
/YEP, DON T ASSEMBLE MESSAGE HERE

0704
07 05

0706
0707
0710
0711
0712

/
/
/
/

fe.j£CT

0713
0714
0715

fc5716

2717
0720

07 21

07 22
k5723

e!724

K725
2726
0727

/
/

A'\3iS\0

2005
2^06

TMAI NE

TAPE

Ou T I .\E S CO i\ T

/KAI \

CLA CL L CM L ^A

2ii 07

/3 3K
61 52

61 d2

/ s TO P

201(5

/3 0

2011
2012

16 05

ClA cll
TaD I

T^Al\E

3214

DC A

07 32

2tt 13

45 64

0733

2014
2015
2016
201?
2020
2021
2022

07 30

0731

07 34

0735
0736
0737
0740
0741
0742
0743

k','

T M A I

216

72 40

MO N£

1633
4237
2023

TAD
JMS
T TEG 1

LITTLE RIT,

MJR

,1.

c* ol 52 = T AP r
A-

\ JE D

A I T

S FT .
H P r W A T T n.\, ^

TA Pr

T k A V

jHAi^ACTEH

'^jAMEi

TRLnKK
TTf?iC

07 44

/
/

2023
2024
2025

2026
2031
2026

TREN T3
TERROT
TRENT3

T T EG 1

/SKIP lOTATIOIv

(

!NTrH;\IALl Y

/
/
/
/
/

07 60

2026
2027
2030

2634
5635
5636

TRENT3

IS^

JMP
JMP
»J

1
I
i

TKOUNT
TTRNT2
TRLAHT
o "n
i_

/
/
/
/

07 66

0767
0770
07 71

GVE«LAPS

+ 2

/^i?

07 46

0761
0762
0763
0764
0765

^^AGt.

0020

0745
0747
0750
0751
0752
0753
0754
0755
0756
0757

r-^EvlUuS

2.'-/i*.

2031

5632

0772
0773
0774
0775
0776
0777

TEHHOT

/
/
/
/
/

10 00

2032

1001
1002
1003
1034
1005
1006
1007
1010
1011

20 33

2034
2035
2036

1627
1720
1761
1646
1754

TTRE NT

T8L0KK
TKQUMT
TTHNT2
T3LAHT
/
/
/
/
/

TREE\T
TBLOCK
TCOUNT
TRENT2
TBEXIT

L 'N

/IS This last record?
/^jOPC
go hack ami skip
/ YEP
EXIT
.

^AMP AS APPrPTi

1012

113 13

/
/
/

1014
10 lt>
10 16
113 17
10 20
10 21

1022
1023
1024

/
/

20 40

0000
6141

10 27

00 41

40 46

1030
1031
1032
1033
1034

0042
0043

0065
4131

2037

TTBC

L I NC

LMODE

10 25

TBRE:G= TM A I NEiil 77 7

1026

0044
0045

TTBLP

TTEBLK

00 46

00 00

0047
0050
0051
0052
0053
0054
0055
0056
0057
0060
0061
0062

0243
1040
0046
1560
7770
1620
0060
1365
1520
3567
6044
0002

2063
2064
2065
2066

7200
1637
3272
4562

20 6/
20 70

20 77

10 57
10 60
10 61
10 62
10 63

2071
20 72

2073

/ASSIGN A BETA REGISTER
/SAVE THE BLOCK NUMBER
/SET THE B REG TO POI-NJT TO
/WHERE THE BLOCK NUMBER SHOULD GO.
CLOBBER

/GET THE ri»OCK NUMBER
/ROTATE TO GET UIGIT

/AND STORE BACK FOR NEXT TIME

-7

BSE

STH I
TBREG
SRO I
3567
JMP
TTBLP
POP
PMOOE
CLA
TAD I
TTBC
DCA
TTS2
DECODE
NQ-2
TM Al
SEARCH
TTSl
TT b2 ,

JMP
/
/

2076

0301
0322
4323

TTEBLK
BCL

10 65
10 66
10 67

20 74
20 75

/DON
I

ST A

4573
2074
00 00
52 66

OJR
LOA

ROL

1064

1070
1071
1072
1073
1074
1075
1076
1077
1100
1101
1102
1103
1104
1105
1106
1106
1106

TTEBLK
TBHEG

TOUT181777-1*4000

0006
1020

10 35

1055
1056

STC
SET
/

1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
1050
1051
1052
1053
10 54

/ERROR MESSAGE DISPLAYER
/GET OVER TO LINC SlOE

TTSl

.-5

/CONVERT TO TRIMMED ASCI
/AND STORE AWAY.

/ALL DONE WITH 4 DIGITS?
/NOPE. DISPLAY MORE,

/GET BACK

INTO 8 MODE

/GET THE GO TO LIST
/AND SAVE IN SEARCH CALL
/DISPLAY MESSAGE AND GET REPLY

/LOOK-UP REPLY
/CALLERS LIST,
/NOT A LEGAL REPLY.

301
32 2

4323
/
/

/
/
/
/
/
/

2077
2100
2101

0140
0240

2121
2122
2123

0601
2440
0214

LEFT+140
TUP-100
TMAIND. 0
*TMAINO+20

TOP. LEFT OF SCREEN
/LOCATED
/OVERLAYEU BY EXACT MESSGE
/A 40 CHAR MESSAGE FROM CORRECT ERROR

1106
1106
1106
1106
1106
1106
1106
1107
1110
1111
1112
1113

21^4
2l2t>

2126
2127
2130
2131

1703
1340
1625
1!?02

0522
4040
TEXT

2132
2133

0^tj0

2134

4340

1114
1114
1114
1114
1114
1114
1114
1114
1114
1114
1114

2135
2136
2137
2140
2141
2142
2143
2144
2145
2146

4340
4301
4055
5555
4001
0303
0520
2440
0123
4011

1115
1115
1115
1115
1115
1115
1115
1115
1115
1116
1116
1116
1116
1116
1116
1116
1116
1116
1116
1116
1116
1115
1116
1116
1116
1116
1116
1116
1116

2147
2150
2151
2152
2153
2154
2155
2156

2343
2240
5555
5540
2422
3140
0107
0111

2157
2160
2161
2162
2163
2164
2165
2166
2167
2170
2171
2172
2173
2174
2175
2176
2177
2200
2201

1643
2340
5555
5540
2422
3140
2417
4023
1311
2040
2001
2324
4006
0125
1424
3140
0214
1703
1334

11 17

22(32

1117

2203
2204
2205
2206
2207

0602
1417
0313
4016
2515
0205

2210
2211
2212

0617
2240

11 17

1117
1117
1117
1117
1120
1120
1120

TOUTl,
T0UT2,

TEXT

ACCEPT AS

THY

T«Y TO SKIP PAST FAULTY BLOCK\"

TMESSlf
22 43

"FAT BLOCK NUMBER

AGAIN

TEXT

"FBLOCK NUMBER

1120

^216
2214

ii2ia

22 It?

1120

2216
2217

112t3

1120
1120
1121
1121
1122
1123
1124
1125
1126

22 2^

2411
li^ll
16i37

4005
2222
1/22
TINGING EWROK

22 21
n

/
/
/
/

LJECT

LOCATED

11^0
1131
1132
1133
1134
1135
1136
1137

ISPL AY

/
/
/
/

11 4i

.viLL

/
/

<bI.^GLE

/
/

A^,Y

1146
1147
1150

11 5l

1153

1 1 54

/
/

PAHT MAY

oc. MO

LI NE

72 4^

3125

XX / 0

22 37
22 4 0
22 41
22 42
£ t Ho

1177
1 200

"3
5
:?
c c dS

1173
11 74
1X /7
1 1

75/1!/

312 7
3120
oi^i

{?,

13 7 3
37 74

1202

2247

3/75

££ 710
55
cc 5X

2252
2253
2254
2255
2256
2257

4 7 71

X C lw*t

12 25

DODI S.

FN AHE

< 7 A

3141

2141
5252
7200

FN A,ME + 3

FUM T
FTYPE
FSI2E

TAD
DCA

DDGTEXT
DPSTART

.\iUMeER>

OPSw ITCH
OS UE

COUNT
DPGETL
COU^^T

.-2

2261
2262

1047
7510
5227
1050

22 63

75 00

5^SA

2264
2265
2266
2267
2270
2271
2272

5227
1051
3121
4^34
1065
3120
1066

J^.P

DO AG \

TAD
jCA

L33i
FTYPE

JM S

OGETNUM

TAD
DCA
TAO

FU.vl T

DPGETL
L7 77 7

00 AG IN
M3 2
I

TEMP

TEMPI

INTO "FUMIT

/GETS AND DECODES A LINE FROM THE TTY WHILE DISPLAYIMG SOmETHH
/CLEAR AC.
/GET LOCATION OF DISPLAY,
/AND PLACE HERE.
/SKIP PAST CALLING ARG.
/RESTART OF DISPLAY,
/SET NAME TO 7777

/NAME X^OW CONTAINS A 7 77 7
/£AP OUT UNIT NUMBER.
/2AP OUT CHAf^.
/AND SIi?E.
/GET A L INE FROM THE TTY
/rtHlLE DISPLAYING THE CALLERS CRAP.
/POINTER TO dUFFER-1
/tsE LL USE "PGETL" TO GET
/THE CHARS SO
M
SETTING IT UP NOW.
/SET SWITCH TO LEFT CHAR.
/NUMdER OF CHARS ALREADY IN BUFFER,
/PLACE IN TEMP COUNT.
/GO GET A CHAR,
/BOF UP CONUT. IS THTA ALL?
/NO. GET NEXT.
/YES. ClLAR AC OF CHAR.
/GET NEXT CHAR,
/TEST TO SEE IF A LETTER
/IS IT <"A"
NOT A LET. TRY AGA IN
/YES
/IS IT TOO BIG???
I

OCA
TAO
DCA
JNS
Ib^f

22612

Ai^ E > , < OC T A L

FiMAME + 2

jmp
CLA
JHS
Tad
SPA
JMP
TAD

47 71

FNAME+1

/2 4 0

ii31

1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1222
1221
1222
1223
1224

HO NE

45 61

22 31

2232
22 33
22 34
22 35

31 1

11 64

1 1 liA
JL / tf

DDCODE
UDaG IN

OCA
MONE
OCA
HONE
DCA
HONE
OCA
OCA
DCA
DCA

1165
1166
116 7
1171
11 72

2 22 2
7 2 A^d

STKI\G AS FOLLOwS:

MISSING ^ITH THE tXCEPTIOlxi OF THE FIRST LETTER.

CLA CLL
TAD
DDCOOE
OCA
OODI S

Ac
50
1D
d;
1

3124

XXoo

IT S SROKE^J OOWi^i AS FOLLOWS. The FIRST LETTER GOES hNTO "FTYPE", THE NUMBER
THE 6 CHArt ACTlk NA^E INTO "FNA^E" FOlL^lD 3Y
"7/" S
TO F ILL IT OUT, A=\D THE LAST NUMBER IMTO
"rsi£E". A\Y MISSING H UMBE«S GO TO 0, A !^ISSI.\G NAME GOES TO 7 77 77 77 77 77 77

11 56
22 24
'^'J oh
>
cc
2 22 6
22 2 7

DEC ODE

LETTEPJX OCTAL vuMBER>;<6 CHARACTER

11b5

i 1
1 1 62

lITTlE SIT.

1142
1143
1144

X J. Ot'

11413
11 41

1157

-EVIOUS PAGE OVL'^LAPS

22<,.

AfxUU^.l:

/YEP. TOO filG. TRY AGAIN.
/OK. HAKE INTO A GOOD LETTER.
/AND STASH Ai^AY.
/GET A NUMBER NEXT.
/GET THE VALUE.
/AND STASh ArtAY.
/GET CHARACTER ^HICH ^vAS NON NUM.

12'^b

2273

1227
1230
1231
1232
1233
1234

22 74

12 3S

1236
1237
1240
1241
1242
12 43
12 44
124^5

12 46

124 7
12 1?0
12 51
12 52

12 53
12 54
12 55
12 56

125 7

2275

450
5622
1045

2 2 76

76 40

Si A

2277
2300
2301
2302
2303
2304
2305
2306
2307
2310
2311
2312
2313
2 314
2315

!>2 27

JMP
TAD
OCA

23 16

2317
2320
2321

13 72
30 70

1022
3141

COUN T
DOCHEK

/GET A CHAR AND CHECK IT.

OL 00 P
UU Ln Lf\
UU Ab N

/NO.

n r. r T M

/uVMt.UA't. 'VUn
/bt
V AL uL

23 22
c 0 fc o

*tO 0)0

2 324

K V '3 7

4334

/ROTATE

56 22

IK'TQ LEFT
R IGHT

SPOT.

/2 AP

L77

/NAME TERMINATES WITH A 77
/PLACE IT AWAY.
/GET ANOTHER
KlbHl o dilj
/ J Uo
/GET BACK OLD 1
/CHOP OFF L77 ^£ ADDED BEFORE,
/AND PLACE BACK IN THING.
/ano no
INAnt oniKiTco
rUiNILK,
fOVr
U" N<AMr
/4 WORub r ILLtu UP YET?

TE MP 3
00 CH EK

TE MP3
M7 7
TE MP 3
rr
r o
L MP
1

TAD
TEMP
OCA
T r MP 1
TAD
S2A CL A
JMP
DO AG IN
ri n
r> c
JMP I
DDCOOE

i?t

OUT

TRY AGAIN,

L7 70 0

L77
I

DCOMMA, JMS

0 c;
X k] A
7

.'5

BAD CHAR.

JMP
JMS
JMP

002 4

522 7

1277
1300
1301
1302
1303
l304
130b
1306
1307
1310
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324

TE MP3
H4

/POINTER TO "FNAME"
/AND STORE AwAY
/4 »2 CHARS PE'^ rtORO=8

COUNT

34 70
43 60

^OOl
2332
2333

12 74
12 75
12 76

/NOT ANYONE.

OFNAME

2141

1024

12 64

12 70
12 71
12 72

DO AG I

0 tJ 0

IS2
ISH

70 06
00 53

Oil/
10 66

1266
1267

/IS IT TERMINATING
/YES. EXIT,
/IS IT A "

14 70
10 46
34 70

DLOOP»

7006

23 27
23 30

1^
C 07

ODCOOE
M73

CL A

TA 0

7006

232 5
2326

DCA
JMS
RTL
RTL
HTL
AND
TAD
OCA
JMS
AND
TAD
TAD
OCA

43 60

1262

SNA
JMP
T AO

/NAnc

KLolAKI/

!UU LUUnib.
Ar

lt.»t

bU'^~A,

/AI\U

biAon AWA'

/rrT
/wC-l

rrPMiKiATTNiP
IC.r<rlil>JAIllNb ruAt
LMAn.

/NO, RtTKY AGAIN.
/YtP. ALL uONE

EXIT:

23 34

3065
C<J oO

0.7 71

23 37

OW 0 0
10 66

23 40
23 41

2342

DGETNUM, 0
OCA
JMS
DCA
TAD
TAO
SPA
JMP
TAD
TAD
SMA
JMP
TAD
CLL
CLL
CLL
TAO
TAO
OCA
JMP

1043
7
7n a
/ fltO

3 / >5*l
2 34 4

23 45

10 66
10 44

2346

7/00

2350
2351
2352
2353
2354
23ib
2356
2357

1065
7104
7104
7104
1066

1043
3065
5336

OP GE TL
TE MP 1

/FORMS A NUMBER
/rtHO bUM
/btl A uHAK»
/ctacu
W AT
A on it
If AAuIAV
/o

TEMPI
M60

/lb

TEMP
I

(

/b t

D A LK

< 60

CL A
nr* r T Ml 1
I

DGt NUn
TEMPI
1

M7 0

VO0
HE. URN
y<^f*T
A^^Atik.
/GET
AGAIN
/IS IT TOOOOO BBBI II GGGGr? r f f
/

CL A
1

r IT T

i\l 1 1

/ T Lr ,

U KIM

TEMP

/GET OLD TOTAL

TEMPI
M60
TEMP

/MULTIPLY BY 8
/ADD IN TEMPI
/GET RIO OF ASCI
BITS,
/AND STASH AWAY.
/GO GET NEXT CHAR,

RAL
HAL
RAL

DGETNUM*2

2360
2361
2362
2363
2364
2365
2366

0000
4771
74 50

5622
1042
7450
5325

DOCHEK

/CHECKS FOR

JMS
SNA
JMP
TAO
SNA
JMP

DPGETL

DDCOOE

M54

/IS GOTTEN CHAR 0?
/YES.
EX I T
/IS IT A

DCOMMA

/YES, END or NAME.

13;;5

2367

1041

1326
1327
1330
1331
1332
1333
1334

23 70

57 60

DOCHEK

/CORRECT FOR SUBTRACTION.
/RETURN IwTH CHAR
AC.
! Nj

2371
2372
23 73

133t?

2374
237t>
23 76

1342
1343
1344
1343
1346
1347

L54
I

1336
1337
1340
13 41

TAD
JMP
/

0737
0124
1121
0734
0735
77 72

DPGETLt DOCOM
DFNAME, FNAME
DDGTEXT, GTEX T+1
DPSTART, PSTART

OPSWITCH.PSWITCH

DSUE,

-LBNUM

/
/
/
/
/
/
/

EJECT

/POINTER TO UNPACK ROUTINE CriAK GETTER.
/POINTER TO FNAME
/POINTER TO STAHT OF MESSaGE-1
/POINTER TO GETCHAR POINTED
/POINTER TO SWITCH (LEFT OR RIGHT CHAR)
/NUM8ER OF SYSTEM CHARS ALREADY IN BUFFER.

1350
1351
1352
1353
1354
1355
1356
1357
1360
1361

*2 40i;
/
/

13 76

1377
1400
1401
1402
14i(33

1404
1405
14 06

1407
1410
1411
1412
1413
1414
1415
1416
1417
1420
14 21

1422
1423
1424
1425
1426
1427
143i3

1431
1432
1433
1434
1435
14 36

1437
1440
1441
1442
1443
1444
1445
1446

/
/
/

niHECT

/
/
/

13 62

1363
1364
1365
1366
1367
1370
1371
1372
13/3
1374
1375

GENRtAL CALL

ARGUEMENTS.

/
/
/
/
/

UYRECT

/MAIN ENTRY
/CLEAR AC TO BE SURE.
/GET START OF INDEX
/AND PLACE AWAY HEt^E
/GET LENGTH OF
NDEX
/AND PLACE AwAY,
/SAVE F3L0CK. I/Q MIGHT DESTROY IT.
/GET OES IREO UNIT.
/AND FINISH SETTING UP READ.
/READ !-N
NOEX

24t30

ii0 00

24 01

7300
1110
3215
1111
3214
4566
1120
3212
4571

PUSH
Tad
OCA
READ

00kJ0

/UNI T

8UFFEH

/INTO START OF BUFFER AREA,
/LENGTH OF INDEX,
/STARTING Block of index.
/RESTORE F8L0CK
/LOOKUP NAME
/NAME EXISTS. GO ELSE^^HEHE.

2402
2403
2404
2405
2406
2407
2410
2411
2412
2413
2414
2415
2416
2417
2420
2421
24 22

2423
2424
24 25

2426
2427
24 30
24 31
24 32

2433
24 34
24 35

2436
2437
2440
2441
2442
2443
2444
2445
2446
2447
2450
2451
2452

CLA CLL
TAP
INDEX
OCA
DINOEX
Tad
1LE\

OtEN

DC A

6400
0000
0000
4565
4/63
5764
4765
2141
1213
3010

OPOI NT
OLEN,

47 66
14 10

DY LU Of' 1

1057
7650
5235
2141
5225
4567
1010
3241
4564
0124
0000
0004
7307
1010
3250
4564
2570

OINOEX,

FUM T
,

0
0

POP
JMS
JMp
JMS

QDN AME

ODFOUNO

OY GL EN

COUNT

iSi

TAO
OPOINT
OCA
AUTQl
JMS I
OYPAST
TAD 1
AUTOl
TAD
M5757
SNA CLA
JMP
DYGOOO

COUNT
OYLOOP

JMP
NO

DYGOOO, TAO
DCA
MOVE
FNAME

AUTOl
.+3

/ROP RY
Tn DFF^FT FDR TTRST ^^JTPY
/SET UP AUTUl
/TO POO NT TO DIRECTORY.
1

/G 0

EX T

EN TN Y

/GET FIRST LFTTER"? OF MAMF
/IS IT r

/YTP

Pi APF
IT HFRF
rnnn. aniY mort th rwAfK'J
Cn WATk'

/ iv V

r\ ij

/YFP
/uci

)^ t-

Hn u

/SET UP MOVE TO DIRECOTRY OF NAME
/NAME PLACE IN DIRECTORY.
/MOVE NEW NAME INTO DIRECTORY.

0
4

PFOUR
TAO
DCA
MOVE
0L5757

00 00
00 04

AUTOl

/NOW FILL IN SPACES wITH 5757S
/POINTER TO SOURCE BLOCKS

/NOW MOVE

5757

0
4

4767

JMS

OYdACK

/POINT TO START OF NAME

FWHAT

/OFOUND ALSO COMES HERE.

/
/

2453

1123

Of^EENT.

TAD

INPUT OR OUTPUT???

14 47

24 54

1 4 t30

Z 4 55

1 4 b1

10 4 7

TAD
b\A

4567

\'J

TAD

1
JO
A**

24 5 7
24 6i(5
24 61

10 4 7
74 4^^
/ 4 02

p A A 'J

1121

14 56

24 63

14 5/

2464
2465
2466

1 4 i?2

•»

14 6)3
14 61
14 62

74 50

J-^P

10 47

TaO
S£A

7 4 40

1463

2472

14 66
14 6 7
14 70
14 71
14 72

24 73

1055
1010

PT wQ
DSaU«CF., TAD

AU T0 1

/
/

R0JT 1 NL

/
/

24 75
24 76
2 4 77

1114
30 75
10 75

DL 00 K

DLOOPl

Tad
DC A

LL UW tK
OF I R ST

Tad

OF RS

25 03

7 6 6 0

2504
2505

5316
4 7 61

JMP
JMS
JMP
TAO
TAO
CIA
TAG

25 01

2502

1117
7141
1114

25 06

-'O 10

1512
1513

25 07

10 75

iJ i

2511
2512
2513
25 14

15 25

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

T aD

2515
25 16
i /

25 20
25 21
25 22

2523
2524
2525
2526

70 41

1110
/ 10 IS

;i>

53 31
10 75
70 41

TAD
rs
AC
CLL CHA

1117
ii1/

1524

ri^D VACANT .^PACE I^ THE DIRECTORY

1507

15 23

/=\£I ThPR
SYSTE-^ ERROR
BOP PAST SOURCE.
/GO PAST NAME.
/SET alJT02 to Block number pointer.
,

AU T02

15 06

15 20
15 21

FOR OLBUGGI^JG OMLY.

/5I^v!ARY.

TA 0

250i<3

1515
1516
1517

/v£S. SCURCl
/IS IT2. iSlMAriY)

OCA

1503
1504
1505

L7 77 7

"UO"

14 74
14 75
14 76

15 iiy

/NO,
.Tt<-(\AL ^IP Er^ROR,
/SOUni>:=i, dl \ARr=2
/IS IT 4 1

j;^

SYSEKR
73 05

1473

14 7 7
1 5 00
15 01
15 02

F T VP
L7 77 7

5272

24 67
24 72
24 71

L7 / 7 7

SYSt kR
TAD
TAD
SNA

14 64

146i

7/7

/i = \PJT ,k = jui Put
/IS it I. .Put
/YlS. \J :v-AMt. u SPLAY
/IS IT "2"

DNOl

1112
7 650
53 27

7240

1075
3075
5277

SN
I

cl 0 w er
CL A
ON 01
DO CH EC K
ON 01
OF RST
I

FS 12 £

LNDE X

OCA
JMP
TAD
CIA
TAD
SNA CLA
JMP
MONE
TAD
DCA
JMP

/GET LOWER LIMIT OF SYSTEM.
/THAIS WHERE WE LL STaRT CHECKING.
/GET START OF 3L0CKS ^s'E RE NOW CHECKING
/FIND OUT HOH BIG ^E t^ANT THEM.
/13 BIT NEGATE. EXCEPT FOR LINK.
/DO '^E GO OVER INTO SYSTEM?
/NOW REASON FOR NO CHL ABOVE.
/YEP. GO OOh.N AND TRY NEXT.
/CHECK TO SEE IF ANY OF THESE BLOCKS ARE OCCUPIED.
/YEP. THEY ARE. GO OO^JN AND TRY NEXT.
/FOUNJ ROOM.
/GET DISTANCE FROM INDEX.

0D02
OF RST
I

ELOwER

OF IKST
DF IRST

oloopi

/I MORE FOR ADDITION
/C I STANCE FROM I ND£X

OVERSHOOT.
.

/NOW CHECK OTHER SIDE.
/BLOCKS WON T FIT.
/CAN WE TRY FARTHER FROM SYSTEM,
/ADO LOwlR LIMIT OF DEVICE.
/ARE wE AT BOTTOM NOW?
/YEP. NO ROOM HERE IN THIS SIDE.
/ROOM LEFT. BOP DOWN DPIRST AND TRY AGAIN.
/A LITTLl FARThER FROM SYSTEM THIS TIME.
/GO BACK AND TRY AGA IN

2527
2530

7240
3357

D8AD1,

MONE
DCA

/NO ROOM ON BOTTOM

SET DISTANCE TO MAX.

DDISl

2531
25 32

2533

7300
1115
3075

DD02

2075
7410
5354
1113

DL00P2

CLA CLL
TAO
CUPPER
OCA
DFIRST

/NOW Ew LL CHECK TO UPPER TO SEE
/GET UPPER PART OF SYSTEM.
/FOR FIRST ISi CORRECTION.

FITS.

2534
2535
25 36
25 37

ISi
SKP
JMP
TAD

OFIRST

D8AD2
EUPPER

/^E LL TRY NEXT BLOCK.
/WOW. QUITE A DEVICE HE S GOT THERE.
/BUT STILL NO ROOM ON TOP.
/GET THE UPPER LIMIT OF THE DEVICE.

RF08

IT MUST BE.

lt>46

15 47
lb 50

1551
1552
1553
15 54

1555
1556
1557
15 60

1561
1562
1563
1564
1565
15 66

25 40
25 41
25 42

2543
2544
2545
2546
2547
2550
2551
2552
2553

CLL CML CM A
TAD
OF IRST
TAD
FS IZE
S2A SNL CLA
JMP
0BA02
OD CHECK
JMS I
JMP
DL00P2
INDEX
TAD

7160
10 75

1117
7660
5354
47 61

5334
1110
7041
1075
3360

/13 BIT COMP

-1

/WILL WE OVERFLOW DEVICE LIMITS,
/WHEN WE ADD I N LENGTH
.

/NO ROOM LEFT ON TOP END.
/CHECK TO SEE IF BLOCKS ARE FREE.
/NOT FREE. GO BACK AND TRY AGAIN,
/FREE. GET DISTANCE.

CI A

57 62

DF IRST
DO IS2

TAD
OCA
JMP

MONE
OCA
JMP

DDFIG

/AND SAVE IT.
/GO CALCULATE WHICHONE

IS CLOSER

CLOWER HALF OR UPPER HALF]

/
/

2554
2555
2556

7240
3360

DBAD2.

57 62

1567

/NO ROOM ON UPPER HALF
/SET DISTANCE TO A MAXIMUM.
/GO FIGURE OUT WHICH ONE IS CLOSER,
.

DDIS2
ODFI G

15 70

2557

0000

1571
1572
1573
1574
1575
1576

25 60

00 00

2561
2562
2563
2564

2653
2600
3064
3000

15 77

25 65

27 06

1600
1601
1602
1603
1604
1605
1606
1607
1610
1611
1612
1613
1614
1615
1616
1617

2566
2567
2570
2571
2572
2573

2717
2725
5757
5757
5757
5757

DDISl*
0
0
00IS2*
DDCHECK) OCHECK
ODFI G,
OF IG
ONAME
DONAME
DOFOUNOi DFOUND
OY GLEN 1 DGLEN
DYPAST. OP AST
DYBACKi DBACK
DL5757, 5757
5757
5757
5757
.

/
/
/
/
/

/
/
/

EJECT

/LOWER DEVICE DISTANCE
/UPPER DEVICE DISTANCE FROM DESIRED FILE.
/POINTER

1620
1621
1622
162i
1624
1625
1626
1627
1630
1631
1632
1633
1634
1635
1636
1637
1640
1641
1642
1643
1644
1645

»2600
/

/
/
/
/
/

2600
2601
2602
2603
2604
2605
2606
2607
2610
2611
2612
2613

1765
7001
7650

or iG.

1766
7001
7650
52 15

26 14

1647
1650
1651

2615
2616
2617

/240
1117
1765

16 52

26 2!(3

70 41

1653
1654
1655
1656

2621

1 1 1 13

26 22

3122
1122
3411
1117
3411
4564

16 46

1660
1661
1662
1663
1664
16 65

2623
2624
2625
262(?

2627
2630
2631

2635

26 32
26 33

4 56 6

1701
1702
1703
1/04
1705
1706
1707
1710
1711
1/12
1713
1714
1715
1716

/IS LOWER HALF OK??
CL A
01 Nu G
nn n T

/NO ROOM IN LOWER HALF.
/HOW ABOUT THE UPPER HALF?

CL A
n
uQ
Ul1 n
UL n
oc
t.

UU U o
CML CMA lAC
I

DDDIS2

CLA
02 CLOSE

/LOWER HALF IS CLOSER BECAUSE NO UPPER HALF.
/BOTH THERE. GET LOWER DISTANCE.
/13 BIT NEGATE
/GET UPPER DISTANCE.
/WHICH IS CLOSER.
/UPPER IS CLOSER.

TAD
TAD

DDOISl

CI A

DCOM

TAD
DCA
TAD
DCA
TAD
DCA

INDEX
F8NUM
EBNUM
AUT02
rsiEE
AUTO 2

MOVE

/WE VE GOT THE ORGINAL BLOCK NUMBER NOW,
/TELL CALLING PROGRAM ABOUT IT.
/NOW PLACE IT IN DIRECTORY.

/ALSO THE SI2E IN THE DIKECOTRY.
/NOW SET UP THE WRITING OF ThE DIRECTORY,

DPOI NT-1
DWRI TE+1
4

PUSH
OWRl T£,

MM CI

2641

4
A c:
M >S
i» 0 3

26 42

17 67

2643
2644

3065
5465

2645
2646
2647

1/66
7001
76 50

SNA

26i?0

4567
1^75
5222

D2CL0SE, TAD
JMP

00 00

/PUSH DOWN F SLOCK
/WRITE DIRECTORY, WITH MOVED IN

WR ITE

26 36
26 3 7
26 40

Cfl

/-I FOR ADDITION ERROR
/RECREATE ORIGINAL BLOCK NUMBER

00 04

aRGUEMENTS,

Ot t5f

(71

16 7 7

i?m

OlCLOSt MONE

24 1 2

nana

1667

1675
1676

nnD

4 5 72

iO f\0
16 71
16 72
16 73
16 74

TAD
lAC
SNA
JMP
TAD
lAC
SNA
JMP
TAD
CLL
TAD
S^L
JMP

52 45

1765
7161
1766
7630
5251

16 57

MORE OF THE DHECTORY LOOKUP ROUTINES.

DDEXIT.

POP
TAD
OCA
JMP

/POP UP FBLOCK
/GET CALLING ADDRESS
/STORE IT
/EXIT TO USER.

DDYRECT

TEMP
TEMP

D0DIS2

/CHECK IF ROOM ON TOP HALF,

DP IRST

DCOM

/ROOM?
/NO ROOM ON DEVICE FOR FILE.
/GET THE LAST BLOCK CHECKED.
/AND THATS IT. PLACE IN DIRECTORY.

OOPOINT
AUTOl
DO GLEN

/SET AUTOl TO POINT TO START OF DIRECTORY
/IN CORE,
/GET lEN of DIRECTORY

2651
2652

OINOG.

TAD
lAC

:l A

(

/
/

2653
2654
2655
2656
2657

0000
7240
1/70
^010
4771

OCHECK,

/CHECKS TO SEE IF BLOCKS OCCUPIED BY DFIRSR ARE FREE

MONE
TAD
DCA
JMS

17 17
17i^M
17 21

26 60
26 61

1724

2662
2663
2664
2665

17 25
17 26

26 66
26 67

1727

2670

17 30
17 31
17 32

26 71
26 72
26 73

1/33
1734

2&74
26 75
2676
2677

1722
l/2<5

1 /3i?

17 36
17 37
17 40

1/41
1742
1743
1744
17 45

27 00

14 10
10 57
76 50

OL 00P3

b\ A

5301
2010
2010
2010
2010
1410
77 1^
52 74
47 72
20 10

iNjKU

?JAnt.

Ivi

Int.

UDw

i> r\

AU TO 1
AU TO 1
AU T 0
AU T 0

c
T

AUTO 1

/IVU*

J<\ir

Uir(LC'U"Y«

i!«

/bfNir' rAi>l nhb'
iMAnLt
Jr
/AND AlSO starting BLOCK OF SOURCE
/
t TiHL"L
UC
A
V Cl'^
C
T
on C T
A'^T
/lo
buUKLLtLE'>fo!n-HUbl!lVEJ
T

r* C"

!_l •<»

]

DN0b
T w
n rL. R
f* r
c

AU T 01
AU TO 1

J r. 1-

JH b

DNOb

T \J r- *

Past BINARY 9L0CK

/^j^jp

jS< p

47 72

JM S

00 P A ST
/ At\f

COUNT
DL 00P3
OCHECK
OCHECK

ILEN

/GET INDEX LEMGTh,

l7 740

/MULTIPLY BY "^2 (7? FWTHTFS PTR
/CHOP AH AY CRAP,

CO UN T
DG LE N

/RFTllRM Tn rAl

SP A CL A
DB L A NK

27 01

4 7 73

2141
5260
2253

27 04
27 05

OBLA NK

JMP
ISi

JMP

56 53

AIL

,)ni\F

W I th

DTRmnsY?

Thf

SKIP PAST MFXT CALS
/G0008YE. AND GOOD LUCK,
/YES.

NG c;TATFMFNT

A NH

FyrT

/
/

2706
2 7 07

2710
2711
2712
2713
2714
2715
27 lb

0000
1111
7006
7006

OGLE N

TAD
RTL
HTL
PAL
AND

70 04

0056
70 41

CI A
QC A

3141
5/06

JM P

DTK

2717

0000

27 20

10 10

2721
2722

0021
1060
3010
5717

2723
2724

1774

2725
2726
2727

OP AS T»

/ROUTINE SETS AUTOl TO POINT TO NEXT NAME IN DIRECTORY.

TAO
AND
TAD
OCA
JMP

AU ^ 0
L7 77 0
L7

AUTOl

/ AND

nf^iPAi

PUT

P pr R A T I nM

Auim

h AfK

DP AST

2 7 30

2731
2732

00 00

OB AC K

4317
1010
1021
3010
5725

JMS
TAD
TAD
OCA
JMP

DPAST
AUTOl
M10
AUTOl
1

/MOVE TO END OF THIS NAME

/A.xD

OOP DO^N dY 10 (1 DIRECTORY ENTRY)

DBACK

20 03

2004
2005
2006
2007
2010
2011
2012
2013
2014
2015

ri^oi

53 01

2702
2703

17 72
17 73

1776
1777
2000
2»01
2002

TA 0

17 52

17 75

/ \j t.

r\ A
A
bP A UL

1770
1771

AU TO 1
M5 75 7

cl a

1410
7/10

1751

17 67

b zf

1 C3

17 50

1765
1766

Tin

17 61
17 62
17 63
17 64

1746
1747

1753
1754
1755
1756
1757
1760

TaD
TAD

/
/

2733
2734

0000

27 35

1010
3070
1470
7161
1075
7450
5653

2736
2737
2740
2/41
2742
2743

72 40

DTHERE

/CHECKS JUST CML DIRECTORY ENTRY FOR BEING WITHIN THE SPECIFIED

MONE
TAD
OCA
TAD
CLL CML
TAD
SMA
JMP
I

AUTOl
TEMP3

DFIHST

/BOP BACK THE AUTO REG.
/AND PLACE IT AlvAY
/RETRIEVE STARTING BLOCK NUMBER
/13 BIT NEGATE.
/ADD IN DESIRED STARTING BLOCK,

DCHECK

/SAME.

TEMP 3
CMA lAC

BLOCK IS TAKEN. EXIT.

2016

27 4 4

1 t'cw

<d0 1

2 7^5

53 55

jM P

OF 3

Tad

J ^ V(P j

Cl L

CM L

2 1^ 2 0

20 21
2id 22
20 23
22 2 4
20 2^>
20 26

7 1 Ay*

10 75

T A u

2 7 51
27 5 2

1117

Tad

27 53
27 54

7 6 20
56 53
57 33

22'27

20 30
20 31
20 32
20 33
20 34
20 3b>
20 36
20 3 7
20 4 0
20 41

2 7 P5

1^70

2 7 56

21bl

20 70
14 70

2 7 60

7141

27 b1

10 75
/6 60

27 62
27 63
27 64

211963
1

jM P

DF I K b
FS I 2E

^fu
'J r

/w CO

/Qutb
/

OC Hl CK
DT riE R£

T
TE

)') >

/ I T

Past
1

jFirji^T,
lb

<Lt
SLt

iriv:
LL'J

/^f.

Cl A
I

/A^t.
/ \ :J .

^ b

b 1 b v>L W ,
tr .'-t
.'T
i^Jbo
it-

:3i

\G N J Ao H

IT
ill
u:^j

uUH

tf^

F 1 Tb

OF 8

TA U

TAD
CLL CM A
I

/ADO OU^ LENGTm

IIS!

JH P

OThEHE

S^A SNL

5653

DF I n ST
Cl a
OCHE CK

TA 0

57 33

TE "^P 3
3
TE

yr>rt
'DO

/» t
/

CE H T A I Nl T
WE "L

n>fr*i3C"i

JvE'^rLUrt

NurE»

t-. ,Tr>

ii'^TU

."^r''tiicT"5'S'>

jriKbi???

DJ ,

CLEAR,

HLTUKig

CHLCK AGAIIv,

27 65

25 5 7

2766
2767

2560
2400

27 70

24 13

27/1

2706
2733
2717

27 72

2773
2052
2053
2054
2055
2056
2057
2060
2061
2062

iN L
jM P

CL A

20 42

204 3
2044
2045
2046
2047
2050

/
/
n
U 1 ^
O 11 >
Un
Un
1

0D I S

0DIS2
DDYRECT, DYRECT
DDPO INT, OPOI NT
DGLEN
OOTHERE. OTHtRt
DOPAST, OPAST
DDOl S2

•

/
/
/
/
/
/
/
/
/

EJECT

/PtMNiTTK

/POINTER
/POINTER
/POINTER
/POINTER
/POINTER
/POINTER

in
TO
TO
TO
TO
TO
TO

iOwFR DT^TANPr FROM tTvJ^TFM
UPPtR DISTANCE FROM SYSTEM
ENTRY
BUFFERS
GET NUMBER OF DIRECTORY ENTRIES ROUTINE.
BLOCK CHECKER
ROUTINE TO GO TO NEXT ENTRY.

#3 00 0

20 64

2065

2067
2070

/
/

20 71
265 72

2tfl

20 73

2074
2075

3000
3001
3002
3003

1123
1047
7450
5241

2100

30 04

2 1 i<31

2107
2110
2111

3005
3006
3007
3010
3011
3012
3013
3014
3015

10 47
/4 40

21 12

30 16

2113
2114
2115

3017

20 76

2102
2103
2104
2105
21 06

21 16

30 20
30 21
30 22

2117
2120
2121
2122
2123
2124
2125
2126
2127

3023

21 30
21 31

3034
3035

2132
2133
2134
2135

30 36

30 24

3025
30 26

3027
3030
3031
3032
30 33

3037
30 40

21 40

2141
2142
2143
2144
2145
2146
2147
2150
2151
2152
2153
2154
2155
2156
2157
2160
2161
2162

OFOUND

TAO
TAD

rwHA T
L7777

/NAME ALREADY IN DIRECTORY, GET WHETHER INPUT OR OUTPUT
/1 = INPUT »2=0UTPUT

DD IN

L7777

/IT S INPUT.
/IS IT OUTPUT?

FTYPE
L7777

/NOT 1 OR 2, SOMETHING HAS BLOWN,
/1=S0URCE» 2=BI NARY
/IS IT SOURCE

5N A

JMP
TAO
Szf A

SYSERH

7402
1121
1047
7450

TAD
TAD
SNA

52 17

JM P

OH AP

/YEP. 2AP OUT BLOCKS FROM DIRECTORY,

1047
7440
7402
7305
1055
1010
3010

TAD

L7777

/8 INARY???

/BINARY FILE. ADD TWO TO BYPASS SOURCE
/BOP PAST NAME
/GET POINTER NOW

SYSERR
PT WO

02AP

11 16

3410
4566
1010
3012
1412
7/00
4570
4565
1116

TAO
TAD
OCA
TAD
OCA i
PUSH
TAD
OCA
TAD I
SMA CLA
REPL ACE
POP
TAD

AUTOl
AUTOl
L575 7
AUTOl
AUTOl
AUT03
AUT03

34 10

OC A

L575 7
AUTOl

4566
4/45
5640
2453

PUSH
JMS

OOBACK

JMP

DREENT

/BLANK OUT THE BLOCK NUMBER
(EITHER TO POINTER TO SOURCE OR BINARY)
/PUSH DOWN FBLOCK SO "REPLACE" WONT BLOW IT.
/NOW GET THE AUTO LENGTH POINTER.
/AND PLACE IN A TEMPORARY AUTO,
/IF SIGN BIT OF LENGTH ON THEN NO SOURCE OR BINARY,
/DO WE WANT TO REPLACE????
/YEP, DISPLAY REPLACE MESSAGE,
/HE S ANSWERED AN "R", NOW REPLACE FBLOCK.
/NOW ?AP OUT The LENGTH,
/BY PLACING IN SOME 5757 S.
/NOW PUSH DOWM SO THAT WE WILL REMEMBER IT,
/BACKSPACE TO BEGINNING OF NAME,
/WE WANTS IT REPLACED.
/REENTRY FOR REPLACING THE FILE
/

21 36

2137

SOME MORE OF THE DIRECTORY LOOKUP ROUTINES.

3041
3042
3043
3044
3045
3046
3047
3050
3051
3052
3053
3054
3055
3056
3057
3060
3061
3062
30 63

1121
1047
7450
5251
1047
7440
7402
7305
1055
1010
3010
1410
3122
1410
7510
4567
3117
5663
2642

00 IN

FT YPE

TAD
TAD
SNA
JMP
TAD

L7777
DOT
L7777

/IT AN INPUT FILE. GET THE MODE.
/IsSOuRCE* 2=81 NARY
/IT SOURCE

/MAYBE IT

BINARY

SYSERR
PTWO
DOT,

TAD
TAD
OCA
TAD
OCA
TAO I
SPA
NO
OCA
JMP I
DDEXIT
I

AUTOl
AUTOl
AUTOl
FBNUM
AUTOl

FSIZE
.+1

/UGH. PIP HAS BLOWN,
/IT S BINARY. MOVE PAST SOURCE.
/PUSH PAST NAME.

/RESET POINTER
/GET BLOCK NUMBER
/AND STORE AWAY.
/GET SUE OF FILE
/IS IT OK?
/NO.
DISPLAY "NO" MESSAGE.
/YEP, ITS THERE. STASH AWAY,
/NOW EXIT FROM DYRECT.

2163
2164

/
/

21 65

2106
2167
21 70
21 71
21 72

2173
21 74

30 64
30 65
30 66
30 67
30 70
30 71
30 72

/ 3
c A 7K
'5 1

0000

Tad
Tad

3010

DC A

47 47
17 46
30 71

JM S

3074

DN AM E

17 46
10 47

d71

TAD
Tad

X 10 9 /

30 7 5
30 76

5 > ail

'< 01

22 64

2203

0 1 iu X

XX •tX
70 06

22 0
22 06

310 3
3104

3141

IX 10

22 10

OX 107
31 06

AND
OCA
T AD

0 410

UL/ A

22 11

31 0 7

21 41

s^f A

L7 77 7
AU TO 1
UlN bL L'v

TE MP 4

TEMP 4

/GET FIRST WORD.

DOK
DN AM E
CO UN T

5 3 05

5664

22 1/

31 12

2220
2221
2222

3113

4 7 50
X T X if

U KL

A WA T «

"5757"

/MULTIPLY CD UN

/otCAUbt T He. KE ARE
/UlKtLlUKT LNIRT

•!

3110

b
iHt"L, ALL lb WELL
/]
/DEiilRED NAME NOT THERE BECAUSE NO DIRECTORY,

KA L

31 11

CL A

S2
TA
A n
u
OT
1

00 2
1 1

/I nrik^i
iip KiAMT
i\i
Tur
Ur
i\Mnt;'UUUfSj
li\
Int. nturrTnov
UiKt.UlUHT,
/uLl olMnillifb AUUrtL^J rUH l"L NAnL LuUKUr.
fLinT
/aP may
pn\tTATM
comin!
e
nAi i\;Ui
/AL»
UUiVIAilv aron
rUK ochmc
Un
i:t"U rnt;
l>r
LuiAL r**!!
CALLb.
/Di Apr T\i
AiiTm
li^
/rLAUc.
AUlUX
rN|i~Tu
/PCT
/btl blAKIiriib AU UNLbo Ur ul"EC'UHY

M5 75 7

jM P

31 02

2212

nr
UU AA

22 0fc3

10 /

L7 / / 0

COUNT
L575 7
1

S ;E

JMP
JM P

JM b

TAD

AU U X
CO UN T
I

/MAKE

L L

WuROS PER

GOOD DIRECOTORY,

/ALL DONE?
/NOPE

-3

/Y Lr

DN AM E

DO NE

AL L

2216

22 23

2224
222^
2226
2227
22 30
22 31

2232
22 33
22 34
22 3t>
22 36

2237
2240
22 41
22 42

2243
2244
22 4iP

3l 14

70 41

3115
3116
3117
3120
3121

1124

OX
31 23

X X <!^9

3124
3125
31 26
31 27
3 1 30

3131
3132
3133
3134
3135
3136
3137
3140

r
A
L T1 A
TA D

Si A

Pe
LL Aa

1410

TA0

J
i

7(3 41

ti A
T A n
AU

oc A
JM P

1410
7041

Tad

/rUbn rAbI rHtbLNi NAML,
/GET FIRST WORD OF NEW NAMEt
/A M
A T nu o
/A
nAi
LH r

TBv

DNOT

/Kin

A
Tn
1
AU
UX

/A^U bU

irvT
Ui\

UUhN UNIIL

rAILb uH

FN AME*

76 40
53 41

UN r A c>
AU TO 1
r
M AM r
r N An t.

76 40
53 41

CL A
I

DN 0 T
AU ux
1

P
A
L Ti A

11 26
76 40

Tad

5341
1410
7041
1127

JMP
TAD

r M An
A M r * 9
r
L t
f\f

CL A

DNOT
I

AU TO 1

CI A

TAD

76 40

S2 A

5341

JMP
JMS
JMP

4 7 45

56 64

2246
2247

FN AM E+ 3

CLA
I

DNOT
DNBACK

DNAME

/A MATCH SET

AJTQl AND EXIT.

22t>0

31'il

2251
2252
2253
2254

3142
3143
3144

2141
5312
2264
5664

DNOT

IS2

JMP
\S£

JMP

COUNT
DOK
DNAME

/FINISHED CHECKING ALL?
/NO, MORE TO GO.
/NOT THERE. PUSH BACK EXIT LOCATION

ON AME

/AND EXIT.

/
/

22 55

2256
2257
2260
2261

DO K

/
/

3145

27 25

DOBACK

OBACK

/POINTER TO BACKSPACE ROUTlNiE

MAICH

MADE.

22bZ
22 ti

314&

2413

22 bA

31 47
315kJ

2717

2265
2266
2267

27 06

22 76

2277
2300
2301
23k52

2302
2302
2303
2304
2305
2306
2307
2310
2311
2312
2313
2314
2315
2316
2317
2320
2321
2322
2323
2324
23 24

2324
2324
2324
2325
2325
2326
2326
2327
2327
2327
2327
2327
2327
2327
23 27

2327
2327
2330
2331
2332
2333
2334
2335
2336
2337

/PL'l \TEr^

/
/

22 71

22 fb

2270

2272
2273
2274

SLIGHT OVERcalGHT.
TO BUFFERS
/GET \JMbER OF ENTRIES ROUTINE
/ADVANCE POINTER TO ;>EXT N'A^E ROUTINE

ONBaCK = OOd ACK
DNKO IN T uHUI M
DNGLEN
DGLEN
DNPAST* DP AS T

/
/

3151
3152
3153
3154

00 0t
45 51

NODI
Z: SPtAY

NQN031
JMP

3155
53 52

.-2

/THIS ROUTINE DISPLAYS A "\0"
/ISSUE DISPLAY COMMAND
/MYOUTPUT CRAP
/HANG AHOuNu U.niL A tO OH tP

3155
3156
3157
3160

0340
7740
0616

LlFT *34B
ri0TT0M+34K

/ABOUT CENTER JF THE SCREEN

17 34

TEXT

"FMO\"

SIMPLE MESSAGE.

/
/
/

3161
3162
3163
3164
3165
3166
3167
31/0
3171
3172

0000
4566
4562
3173

REPD IS

PUSH
DECODE
DI SKEP
TAD

1121
1027
7640
5363

/STORE AhAY FBLOCK
/GET

FTYPE

TAD
M322
SiA CLA
JMP
REPDIS+2
POP
JMP I
REPOIS

45 65

5761

L INE

/REPLACE MESSAGE
/GET REPLY
/IS

AN "R"

/NOPE.

TRY AGAlsvi.
/REiiTORE FSLOCK

/AND RETURN.

/
/

3173
3174
3175
3176
3177
3200

0260
0040
0622
0520
1401
0305

3201

7743

TEXT

3202

4043

3203
3204
3205
3206
3207
32X0
3211
3212
3213

4043
1022
4055
5555
4022
0520
1401

/ABOUT THE CENTER
/GOOD ENOUGH

DISREP* LtrT+260
TOP-300

03 05

3400
rir^

/
/

/
/
/
/
/
/

REPLACEX"

"FREPLACEV

TYPED.

2^40

2342
2343

ljlCT

2344
2345
2346
2347
23b0
23bl

/
/
/

COPY ROUTINE:
OVERLAPS IN 3200 TROM PREVIOUS PAGE.

/
/

23t?2
23S>3

2354
2355
2356
2357
2360
2361
2362
2363
2364
2365
2366
2367

/
/
/

GENERAL CALL:

/
/
/

COPY

/
/
/
/

23 70

/
/

23/1

23 72

/
/

2373
2374
2375
2376
2377
2400
2401
2402

3214
3215
3216
321/

0000
1103
3252
1102

i^4k33

32 20

32 55

2404
2405
2406
2407

3221
3222
3223
3224

1104

TAD
DCA
TAD
DCA
TAO
OCA
TAD
DCA

1117
3301

INUNIT
CINU
INBLOCK
CI NB

OUTBLOCK
COUTB
FSI2E

CSUE

/MAIN ENTRY
/GET INPUT UNIT
/AND PLACE IN READ CALL
/GET INPUT STARTING BLOCK
/AND STORE IN READ BLCOK
/GET THE OUTPUT STARTING BLOCK
/AND LEAVE THAT IN WRITE
/GET THE NUMBER OF BLOCKS TO COPY
/AND STOHE THAT AWAY.

2 42 7

24 30

32 44

52 51

3245
3246
3247
3250

1301
3254
1301
3261

2431
2432
2433
2434
2435
2436
2437
2440
2441
2442

CCOPY.

32 62

1105
3257
1106
3302
1301
7450
5614
7161
1074
7660
S245
1074
3254
1074
3261

2424
2425
2426

3225
3226
3227
3230
3231
3232
3233
3234
3235
3236
3237
3240
3241
3242
3243

242k:
if423

24 10

2411
2412
2413
2414
2415
2416
2417
2420
2421

INUN T I NBLO CK
COPIES FSIHE BLOCKS FROM
TO OUTUN IT OUTBLOCK
PENDING ON THE VALUE OF «'OUTNUM"
UNITS
OE
MO«E
rO
AND
OUTNUM SHOULD SE 7777 FOR 1 TAPE COPY.

CPLOOP»

OUTUNIT
TAD
COUTU
DCA
OUTNUM
TAO
CCOUNT
DCA
TAD
CSUE
SNA
CCOPY
JMP I
CLL CML CMA IaC
BNUM
TAD
SNL S2A CLA
CSHALL
JMP
BNUM
TAO
CI NS
DCA
BNUM
TaD
COUTS
OCA
CCOM
JMP

CSMALL

TAD
DCA
TAD
OCA

CI NS

/GET THE ORIGINAL OUTPUT UNIT.
WIRTE OUT UNIT.
/AND PLACE I N
/GET NUMBER OF UNITS ITS GOING TO
/PLACE IN TEMPORARY COUNTER.
/GET NUMBER OF BLOCKS LEFT.
/ALL DONE???
/YES
/13 BIT NEGATE.
/NUMBER OF BUFFERS AVAILABLE.
/MORE TO GO THEN BUFFERS ALOLOW?
/NO. BUFFERS BIGGER.
/GET BUFFER SIiiE.
/STASH IN READ.

/STASH IW WRITE,
/GO DO READ-WRITE
/GET NUMBER LEFT.
/STASH IN INPUT SIZE.

CSUE
COUTS

/AND OUTPUT SIHE.

3251
32 52

3253
3254

4571
0000
6400
0000

CCOH

CI NU .

BUFFER
CINS,

/READ IN CURECT NUMBER OF BLOCKS,
/INPUT UNIT.
/POINTER TO BUFFERS,
/NUMBER OF RECORDS TO BE READ IN.

2^4 3
24 44

2445
2446
24 47
24i?0
24 51
24 52

245i
2454
2455
2456
2457
24 60

2461
2462
2463
2464
2465
2466
2467
2470
24 71

2472
2473
2474
2475
2476
2477
2500
2501

3255
32b6
3257
3260
32 61

0000
4572
0000
6400
0000

25 06

2507
2510
2511
2512
2513
2514
2515
2516
2517
2520
25 21

2522
2523
2524

25 30

2531
25 32
25 33

2534
2535
2536
2537
2&40
2541

WRITE
0

BUFFER
C0U1 S.

0
0

2257

32 64

23 02

IS^

3265

5256

JMP

COUTB*

COUTU
CCOUNT
CCMORE

/STARTING BLOCK NOW OF READ.
/NOW WRITE IT OUT.
/OUTPUT \}uU
/BUFFER POINTER
/NUMBER OF RECONDS,
/0STARTING RECORD NUMBER.
/80P UP TO NEXT OUTPUT UNIT
/MORE UNITS TO WRITE ON??
/YEP, GO BACK AND WRITE ON NEXT.

/
/
/

3266
3267
3270
32 71

3272
32 73

3274
32/5
3276
3277
3300

1254
1255
3255
1261
1262
3262
1254
7041
1301
3301
5225

TAD
TAD
DCA
TAD
TAD
DCA
TAD
CIA
TAD
OCA
JMP

CI NS

CIN8
CINB
COUTS
C0UT8
CDUTB
CI NS

CSIzJE

CSI2E
CPLODP

/GET THE INPUT SUE
/AUD
THE BLOCK NUMBER
/AND UPDATE BLOCK NUMBER,
/GET THE OUTPUT SI2E.
/ADD THE COUTPUT SI2E.
/AND UPDATE IT.
/GET THE NUMBER OF RECORDS JUST TRANSFERRED.
/AND SUBTRACT IT FROM
/THE TOTAL TRANSFERR
/AND STORE AwAY.
/GO BACK AND DO SOME MORE.

/
/
/

3301
3302

0000

CSI2E.
CCaUNT,

0
0

/CUREnT NUMBER OF BLOCKS GOING,
/TEMPORAY COUNTER FOR THE UNITS.

/
/
/

33 03

3304
3305
33 06
33 0/

3310
3311
3312

0000
1144
3141

LLEDtR,

TAD
OCA
TAD
AUXOUT

1026
4575
2141

IS2
JMP
JMP

63 06

5703

M212
COUNT

/GENERATES LEADER OR TRAILER
/ABOUT 130 CHARACTERS OF LEADER

L2 00

COUNT
.-3

LLEOER

/PUT OUT LEADER
/ALL DONE?
/NOPE* DO MORE.
/ALL DONE. EXIT

/
/

3313
3314
3315
3316
3317
3320

0000
4564

HHPUSH,

MO VE

FSI2E
HHTEMP
FNAME+3 «FSUE + 1
JMP
HHPUSH

^3117

3327
0011
5713

/HIGH FBLOCK SAVE,
/MOVE FBLOCK TO A SAFE PLACE

25 25

2526
2527

32b2
3263

25 02

2503
2504
2505

CINB,
CCMOR£.
COUTU,

3321
3322
3323
3324
3323
3326

0000
4564
3327
0117
0011
5721

HHPOPr

/RESTORES FBLOCK FROM HIGH PLACE

MOVE
HHTEMP
FS ML

FNAME+3 »FSi2E+l
JMP
hhpop
I

/
/

3327

0000

HHTEMP

0/HIGH SAVE ARE;
1

«HHTtMPi-FNAME:*3-

3337

0000

0000
/

/LEAVE ROOM FOR FBLOCK
/LAST WORD OF SAVE AREA.

2b»42

/
/

2b44
334;3

2b46

3341
3342
3343
3344

4564
3353

334i>

112!0

3346
3347
5350
3351
3352

0060
3120
/240
310b
5740

25 47
2i?50

2b bl

2b52
25P3
2bb4
2b!?5

2b56
2bb7

25 6b

2b6b
2b67
2570
2571
2572
2573
2574
2575
2576
2577
2600
2601
2602
2603
2604
2605
2606
2607
2610
2611
2612
2613
2614
2615
2616
2617
2620
2621
26 24

2625
2626
2627
2630
2631
26 32
26 33

2634
2635
2636
2637
2640

r.L X

FU\1 T

TAD
AND
OCA

/GET THE UwIT
/SET UP FGh Li ^iC TAPE

FU\1 T

/SET FOR

COPY

OU TMUM

TTAPE

/A^iO

^ETuWN

3353
3354
3355

0346
0^02
0000

33 56
33 57

07 77
02 70

3360

to467

OF TAPE InOEX BLOCK
/lemgth of tape index
/LOv^LiT BlOCK i\uB?lEH ON DEVICE
/highest BLOCK \UMBEH ON THE DEVICE
/LQWEH LI^MT OF SYSTEM
/LAST 3L0CK USED bY SYSTEM
/STA-^T

TINOEX

TT rSET

TuGwLf^

TSYSLOWLH
TSYSUPPEW
/
/
/

3361
3362
33 63

3364
3365
3366
3367
3370
3371

3372
3373
33 74

3J75
3376
3377

TT YPUT

•

334k5

4556
6041
53 63

1340
60 46

7200
5/61

26 22

2623

TTISET
I

256«5

2b61
2b62
2b63
2b64

/SETS UP TO USE TAPE LIGHTS FQK DIRECTORY LOOKUP,
/MOVE IN COf<HECT POINTERS

TTAPt,

iib45

0000
1415
0030
1001
3001
5772

POTHER.

/TTY OUTPUT ROUTINE
/STASH AWAY ^HILE DOING CHECK.
/TEST FOR MAY9E A CONTROL 2
/IS IT FREE?
/NOPE. CHECK AGAIN,
/GET IT AGAIN.
/YEP. GOOD BYE.

DCA
CHECKI
6041
JMP
TAO
6046
ClA
JMP I

TTAPE

TTYPUT

/THAIS ALL

ASMIF2
ASMSKP

PFLICK

/DO v^E WANT THE FLICKER FACTOR ADDED?
/NOPE. DONT ASSEMBLE THEM IN

.-2

TTAPE

TaD
AND
tao
DCA
JMP

AUT06
L4 00 0

LOCI
LOCI
I

POTHErt

/FLICKER
/PICK A RANDOM LOCATION
/JUST GET THE HIGH ORDER SIT
/^J0^^ ADO IN THE TABLE POINTER
/AMD THE CHANNEL SELECTIO WORD
/STASH BACK AND RETURN TO THE CALLER

2641
2b^2
2643
2644

/
/

264!?

2646
2647
2630
26pl

265ki

/
/

EjtCT

2653

<i654

/
/

26 55
26 56

2657
2660
2661
2662
2663
2664
2665
2666

/
/

/
/
/

CALL PIP3

/
/

26 67

2670
2671
2672

26 73

2674

END OF

/
/

CHAIN

"PIP3"

2»

0001^

midl
mid2

«20

PMODE
EJECT

0003
0004
midb

/
/

0007
0010
0011
0feJ12

0013
0014

/
/

ThL

ThIKG

PA^tT

PIP.

PIP

001i3

0016
0017
0020
0021
0022
0023
0024

/
/

00 25

/
/

0026
0027
0030
0031
0032

This

/
/

/
/
/

/
/

EJECT

CALLE

0033

* 3 4 i"

0i3 34

0i} 3^

i3P36

0037

/
/

00 41

0042
0K43

00 46
04 7

00P0
0051
08 >2
00 53
00 54

0055
0056
0057
0060

b i \1 \P

/344
3137

MT ^0

34 05
34 06
34 07
34 10

3123
3135
3136

3^11

31 02

34 12
34 13

3104

3414

43 77

34 IS
34 16

4403
5200

OK G IN
BU LD P
8F I L LD
BO LO 0
dC OU-vT

/SET
/SEI
/SET
/SET
/SET

IJC A

tjK LA Gl

/CLEAr^

The

/CHtC'^

OhIGIi^ to j^ERO

BASE To jfEWQ
FIE Lb TO 2!EH0
OLD OKIGIiSi TO iEHQ
S I2l

TOiJE r<0

aNO OUTPUT DEVICE FLAGS,

I'mPuT

BF LA G2

LEGAL OPTION WAS GIVEN

I
I

ft I

\A RY

/iNiO

/f\.OT

WAS. Cn TO CORKFCT
t GAL
DLV rr
IT

3417
3420

0070
0071

3421
3422
3423

1124

3424
34 25

53 04
11 24

3426
3427

0053
3121

01 00

34 30
34 31

0101
0102

3432
3433

AfF
6^ It?

/
/
/
/

00 65
006 6
0067

21io2

BH 1QH»

S £

gf lA Gl

2102

8TT Y

IS2

SFLAGl

TAD

FNAMt

.^/^

/SFT FlAT, TORFADFR
/SET FLaG To L-Ort READER. MORE DEVICE MAY COME
/BEFORE THE HIGH READER
/TEST TO SEE IF MDUF GIVEN

70 40

CM A

/650

45 73

bNA CLA
JMP
BP AR T2
TAD
FN AME
AND
L? 700
FTYPE
DC A
SE AR CH

3555
3557
5200

dGOL ST
db TGO
JMP

BINARY

/ 1 LLEGAL

TA D

FS liE

/GET STARTING ADDRESS

L2 00
FS I E

/MQPF SET IT TO ?00
/AND STASH AWAY
/GET A "POP" INSTRUCTION INTHE AC
/AND STOr?E AWAr.

01 03

0107
0110
0111
0112
0113
0114
0115
0116
0117
0120
0121
0122
0123
0124
0125
0126
0127
0130
0131

/GET THL Cl^f^ntCl INPUT DEVICE.
/^hIll j::jPlayi\g input message.
/sET r^Fifc.i_o to do a iVEi^ 0\E.
I

DC A
JU A
UC A
SE AK CH
\L b T
NG 0
ti

45 73

0064

01 06

Bori ll 0

OC A
uC A
CC A
DC A

31 40

0062

0104
0105

ILCO JE
46 10

00 63

0073
0074
0075
0076
0077

^400
3401
3402
3403

00 61

00 72

/NO Ll'J'TERS. NOO AUTO START,
/GET LEFT CHARACTER OF NAME.
/OivLY

NEEDED

/AND STASH AWAY
/CHECK FOR P 0*^

/
/

34 34
34 3 5

1117

3436
3437
3440
3441

1026
3117

BP ODE

SNA
tad

74 50

DC A
PT WO

73 05

5252

JMP

BSCOMM

TAD
SNA
TAD
DCA
TAD
CMA
AND
TAD

FSI2E

3442
3443

3450

1117
7450
1350
3117
1032
7040
0117

34 51

10 32

34 44

3445
3446
34 47

slode;.

L4020
rS Iz!E

L6000
FSIiiE
L6 03 0

/
/

3452
3453
3454
34 55

3752
1117
3754
7352

/GET THE STARTING ADDRESS.
/ONE GIVEN?
ASSUME 4020
/NO
/SAVE BACK STARIING ADDRESS.
/GET .NOT. 10 BIT MASK IN AC.
/MKAE IT A GOOD 10 BIT AN D MASK
/jUST 10 SITS.
/NOW MAKE IT A GOOD JMP IN LMODE INSTRUCTION,
DID IT THAT WAY
NEEDED A PAGE 0 LOCATION, SO
I
.

d300T+l
BSCOHM, OCA
TAD
FSUE
OCA
BaoQT+3
CLA CLL CMA RTR
I

/GET STARTING ADDRESS
/PLACE AWAY IN HEADER.
/PLACE A JMP I 7777 IN THE AC( 57 77

)

01 32

34 56

01i3
0134
0135
0136
0137
0140
0141
0142
0143

3457
3460
3461
3462
3463
3464
3465
34 66

3467

3753
1120

01 44

34 70

0145
0146
0147
0150
0151
0152
0153
0154
0155

3471
3472
3473

1120
3751
5304

0157
0160
0161
01 62
01 63

0164
0165
0166
0167
01 70

0171

ASMIFH
ASMSKP
3474
34 75
34 76

4577
7410
4402

3477
3500
3501

73 05

35 02

3503

73 45

02 05
02 06

0207
0210
0211
0212
0213
0214
0215
0216
0217
0220
0221
02 22

0223
0224
0225
0226
0227
02 30

/INTO CORHLCT PUSI TI ON
/ADD BACK IN CORRECT "LIF"
/AND SAVE AWAY
/GO TO COMMON.
.

DIRECT

/DISK THERE?
/NOPE. DOi>i T ASSEMBLE THE FOLLOWING IN.
/SET UP DISK INPUT
/SKP OVER TAPE SETUP.
/SET UP Tape operation.
/TELL DIRECTORY LOOKUP ITS BIANRY
/FTYPE=2 MEANS A BINARY FILE,
/+1=BINARY, 7345=-433=-( "02")-1 FOR DELETE 2ER0
/IN OTHER WORDS, ITS ALSO A LlTTERALi SO OONT MESS,
/SET INPUT SWITCH
/GO DO IT,

HPUSH

/PUSH

SKP
TAPE
PT WO
DC A

BL7345

FT YPE
CLA CLL CIA RAL

DCA

FWHAT

3504
35 05

44 04
45 62

3506

4703
45 73

02 02

HF08

DI SC

3123
4563

4377

0203
0204

BLRF8,

3121

35 07

02 00

/SAVE A PAGE 0 LITTERAL
/PLACE BACK
/GET STARTING ADDRESS.
/JUST L'^ODE FIELD 81 TS

3510
3511
3512

0201

/AND PLACL AWAY.
/GET THE FIELD
/MAKE IT KEaSO:maBLE
/SHIFT TO CORRECT PLACES.

0173
0175
0176
0177

BB 00 T+ 2

01 72
01 74

TAO
FUNI T
ANO
L7
CLL RTL
TAD
L200
TAD
L400
FUNI T
OCA
TAD
FSI2E
AND
L6000
CLL RTL
RAL
TAD
FUNIT
OCA I
eaooT
BPART2
JMP

7106
1026
1040
3120
1117
0032
/106
7004

01 56

DC A

00 60

8PART2

OOWi\ THE FBLOCK REGION.
/GET THE OUTPUT DEVICE

DE CO DE
BI NOUT
SEARCH
81NLST
dING02

44 07

5305

/BINARY UUTPUT DISPLAY CMESSAGE
/CHECK NAEM FOR LEGAL OPTION
/SAME INPUT AS OUTPUT FORR NOW
/JMP LIST
/NOT A LEGAL REQUEST.

JMP

BPART2*!

ISZ
IS2
IS2

8FLAG2
BFLAG2
FNAME
8L7345

/SET THE OUTPUT FLAG
/FOR THE CORRECT DEVICE
/PREPARE TO CHECK FOR "DH'»
BOP UP FNAME
/ADD IN -02-1. (IF NOT 7777
AWAY
/NOW STASH
IN DELETE SWITCH (0 OR -02-1)
/NOW GET THE CORRECT NAME+1
/COMPARE AGAINST WHAT WE PUT THERE
/DO THEY MATCH.
/THEY OONT MATCH. ASK AGAIN,
/NOW B0EL2 CONTAINS 0 FOR NO DELETE OR 7345 FOR DELETE.

RF0b

/DISK THERE????
/NOPE. NO DISK CODE NOW,
/SET FOR DISC NOW

/
/

3513
3514
3515
3516
3517
3520
3521
^b^2

2104
2104
2124
1301
3101
1124
1101

35 23

5305

BHIGH2,
BTTY2,

TAO
DCA
BO EL 2
FNAME
TAD
TAD
BDEL2
S^A CLA
JMP
BPART2*!

76 40

/
/

ASMI F2

3524
3525
3526
3527
3530
3531
3532
3533
3534
3535
3536

4577
7410
4402
4566
7305
3121
7240
1102
1104
/710
5406

ASMSKP
BLRF82, DISC
SKP
TAPE
BLT2,
PUSH
PTWO
DCA
MONE

FT YPE

TAD
BFLAGl
TAD
BFLAG2
SPA CLA

FILEC

/SET FOR LINC TAPE. NOT DISC
/SAVE FBLOCK IN LOW SAVE AREA.
/SET BINARY MODE AGAIN.
/IN CASE OF COPY
/IS IT A MASS STORAGE DEVICE OPERATION
/IF NEGATIVE IT IS.
/THE TESTl
/YEP. COPY CHOSEN FILLS,

3537

0232
0234

35 40

02 34

0235
0236
0237

5541
3542
3543
3544
3545

1104
7640
1102
7650
5746
5747

02 40

0241
0242
0243
0244
02 4t>

0246

02t>2

0253
0254
0255
0256

4003
3600
4020

B8TAPE, BI NTAP
BLOOYR. BNFILE
4020
L4020#

3551
3552
3553
3554

70 00

8B00T,

7001
7002
7003

/HEADER BLOCK SELF STARTING POINTERS.

BUFFER*''»02

BUFFER+403

3555
3556

1400
6000

BGOLST. 1400
6000

3557
3560

3442
3434

BSTGO,

/L»100
/P«100*4kiO0

BLODE
BPODE

/
/
/
/
/
/

/
/

ASMIFN
ASMSKP

CARD-1
30

WANT CARD READER CRAP LOADERED????
/DO
/GUESS NOT. DON T ASSEMBLE THEM.

FTYPE
CRM303

/CARD READER CHECKER AND INITIALI2ER.
/GET THE REPLY
/IS IT A "C"

/
/

3561

02 77

35 62

0300
0301
0302
0303
0304
0305
0306
0307
0310
0311
0312
0313
0314
0315
0316
0317
0320
0321
0322

3563
3564
3565
3566
3567
3570
3571
3572
3573
3574

03 27

/NORMAL STARTING ADDRESS IN LINC MODE.

8UFFER+400
BUFFER+401

02 70

03 23

/YEP. GO TO LING TAPE ROUTINE
/NOPE. USE STANDARD BINARY LOADER.

0263
0264
0265
0266
0267

0324
0325
0326

BBTAPE
BLODYR

3546
3547
3550

02 62

0271
0272
0273
0274
0275
0276

BFLAGl

/GET OUTPUT FLAG
/TAPE OUTPUT?
/NO, PUNCH LEADER.
/IS IT LINC TAPE INPUT???

02 57

0260
0261

BFLAG2

/
/

02 47

02b0
0251

TAD
S2A CLA
LEADER
TAD
SNA CLA
JMP
JMP 1

44 05

35 75

0000
1121
1376
7640
5761
1120
3136
1117
3131
4777
2102
5775
5017

CRDLTT

TAD
TAD
St A

JMP
TAD
DCA
TAD
DCA
JMS

CLA
I

CRDLTT
FUNI T

ISl

JMP I
ASCHl

SOLDO
FSI2E
DATA
CRINIT
BFLAGl
.

+ 1

/NOPE. RETURN TO CHECK MORE,
/YEP. GET THE STARTING COLUMN
/AND STASH AWAY.
/AND GET THE LAST COLUMN
/AND STORE IT AWAY.
/ITIALI2E CARD READER.
/PREPARE TO SET THE INPUT FLAG TO 3
/NOW ADD T^O TO THE INPUT FLAG

/HIGH SPEED READERS2

3576
3577

7475
6005

CRM303* -303
CRINIT, CDINIT
/

/
/
/
/
/
/
/
/
/

/A - "C"

/POINTE TO CARD READER INITIALISE ROUTINE.

03 30

0331

03 32

0333
0334
0335
0336
0337

/
/

EJECT

0340
0341
0342
0343
0344
0345
0346

/
/
/
/
/

03 47
03 50

36 00
36 01

0351
0352
0353

3602
3603
3604

6016
6032
3135
3372
4243

03 54

36 05

52 04

0355
0356
0357

3606
3607
361ti

0361
0362

3611
3612
3613
3614
3615
3616
3617

0364
0365
0366
0367
03 70

36 20

0371

3621
3622
3623
3624
3625
3626

03 72

0373
0374
0375
0376
0377
0400
0401
0402
0403
0404
0405
0406
04 07
04 10

0411
0412
0413

3371
1105
3077
4574
3100
4243
5276
4234
7420
5227
3130
1372
3135
1077
1100
1371
5206

3627
3630
3631
3632
3633

3131
4576
2130
7600
5221

3634
3635

00 00

36 36

3637

70 06

3643
3644
3645
3646

Z433
0434
0435

3650
3651
3652
3653
3654
3655
3656
3657
3660
3661
3662

0000
3071
4574
1145
7640
5254
2071
7040
5244
1071
7640
5245
1105
0036
1232
7512

04 36

36 63

22 43

0415

fe5423

04 24

0425
04 26

0427
0430
0431
04 32

BGO»

BCHEX,

BBBPUT

er ield
BFEI LD

DCA
TAD
OCA

BCHICK
BCHAR
BKOROl

bEGG
,-1

/IMTIA^F A.\0 ClEA^^ all possible DEVICES.
/SET FIElO TO 25ERD.
/A\0 SE^ \EM riEi^n TCJ 3E?tC ALSO,
/JET A CHARACTEn
/L EAOER-TRAI LER. IG\OKE IT.
/UPDATE CHECKSUM
/GET The CHARACTER
/STORE ArtAY
/LO0^u?^ FO*^ NEXT CHAK

AUXI\
DCA
jys
jMp
jMb
SNL
jMP
OCA
TAC
OCA
TAD
TAD
TAD
JMP

8CHECK
BGO

/UPDATE CHECKSUM

CCA

DATA

/PLACE IN OATA FOR OUTPUT ROUTINE TO USE.
/GO OUTPUT IT.
/GO TO NEXT LOC.
/NOP IN CASE OF SKIP
/AND UPDATE CHECKSUM

B^^0KD2

BEGG
BE NO

BAbSEM
BBBPUT
OKIG IN
BFEILD
BF lElO

BWORDl

/A NO SAVE
/LOOK AHEAD 0\t NQW,
/TRAILER FOUND. ChECK CHECKSUM.
/ASSEMBLE A wOHO
/ORIGIN?
/NO. PLACE IN DATA ^^ORO
/YES. STORE IN ORIGIN.
/GET THE NEXT FIELD
/AND STORE IT IN ThE PRESENT FIELD FOR NEXT TIME

BtJ0R02

PUIWORQ
\Si
m2«)0 ,

OR IG IN

-200

8CHEX

JM P

BASSEM,

1077
7106
7006

1100
5634

0417
0420
0421
0422

/AND GO GET NEXT ^ORD.

36 40

04 16

6..'

DCA
DCA
JMS
JMP

3641
3642

04 14

o-i 16

03 60

^5363

MORE i:I\iKV LCA:En ^QjTl\ES A^D CRAP.

TAD
BkiOROl
CLL RTL
RTL
RTt
TAD
BW0R02
JMP I
BA Sb EM

/GET THE FIRST WQRD

ZHOU PLACE IN SECOND PART
/NOV*

EXIT

36 4 7

OCA
TEMP4
AbXl N
TaD
M377
SifA CLA
*4
JMP
\Si
TEMP4
.

/GETS AsiO CHECKS A CHARACTER FROM GIVEN SEQUENTIAL DEVICE.
/SET S'^IJC»
/GET A CHARACTER.
/CHECK FOR RJBOUT
/?

/NO RUBOUT
/YES. COMPLEMENT SWITCH

CM A

JMP
TAD

BEGG*1
TEHP4

/GO BACK AGAIN.
/SWITCH SET?

JMP
TAD
AND
TAD
SPA

BEGG+2
eCHAR
L700

152

BEGG

/YEP. STILL IN RU80UTS
/GET THE CHAR
/HIGH ORDER BITS ON?
/GET TYPE
/IS IT JUST LEADER
/NO HIGH ORDER SITS ON.

CLA

M2 00

04 37

36 64

77 50

0440

3665
3666
3667
3670
3671
3672

5643
1105
0374
3372
1372
1023

36 73
36 74

77 00

fcJ447

04S>0

3675

5245

04 41

0442
0443
0444
0445
04 46

0451
0452
0453
0454
0451?

0456
0457
0460
0461
0462
0463
0464
0465
0466
0467
0470
0471
0472
0473
04 74
04 75
04 76

0477
0500
0501
0502
0503
0504
0505
0506
0507
0510
0511
0512
0513
0514
0'3l5

0516
0517
0520
0521
0522
0523
0524
0525
0526
0527
0530
0531
0532
0533
0534
0535

45 67

SPA SNA CLA
BEGG
JMP I
BCHAR
TAD
AND
L70
BFEILO
OCA
TAD
BFEILD
M2 0
TAD
SMA CLA

/TEST NOW FOR ORIGIN AN D L EaOE R- TR Al L£
/DATA»0R1GIN, OR LEADER TRAILER
/FIELD CHARACTER
/JUST GET FIELD
/SAVE IN NEXT FIELD
/GET BACK
/MORE TEHN 8 K?

/YEP

JMP

BEGG+2

JMS
CIA
TAD
SEA CLA
JMP I
JMS I
JMP
MONE
DCA

BASS EM

TOOOO BBBI IGGG!

/
/

3676
3677
3700
3701
3702
3703
3704
37 05

3706
3707
3710

4234
7041
1371
7640
5775

BEND,

44 76

5200
7240
3135
4576
5552

BCHECK
BCERR
PMORE
BNFILE

/CHECK CHECKSUM
/GOOD?
/GIVE CHECKSUM MESSAGE,
/ASK IF ANY MORE TAPES?

BAD

/CLOSE THE OUTPUT FILE

BFIELO

/SEND T 0 BLAHS.
/RETURN TO PIP

PUTWORD
PIP
/
/
/
/
/

3711
3712
3713
3714
3715
3716
3717
3720
3721
3722
37 23

3724

0000
4556
3073
1102
1047
7650
5336
4560
5327
1373
7450
2073

37 25

76 50

3726

5711

S£Q1N»

CHECKIO
DCA
TAD
TAD
SNA CLA
JMP
SEQTST* GETL
JMP
TAD
SNA

CNTRLE
BFLAGl
L7777

/SEQ INPUT UNIT,
/CHECKIO AND LEAVE AC 0
/CLEAR THE CONTROLH FLAG
/GET INPUT FLAG,
/SUBTRACTl

SEQTTY

/TEST LOW READER FOR

CHAR

SEQNl
M232

CNTRL2
ISi£
SNA CLA
SEQIN
JMP
I

/EXIT

SEQNl.

ASMIFN
ASHSKP

/DO WE WANT CARD READER CHECK L0ADED??V??
/NOPE. DONT ASSEMBLE THEM IN

JMS
JMP
JMP

SEQCIN
SEQTST
SEQCOM

/CHECK FOR CARD READER AND GET CHAR.
/CHAR NOT READY YET,
/CHAR READY.

CARD-1

3727
3730
3731

4776
5320
5340

/
/

3732
3733
3734
3735
3736
37 '37
37 40

3741
3742
3743
3744
37 45

6011
5320
6016
5340
4560
5336
3105
1105
1373
7650
2073
1105

6011
JMP
6016
JMP
SEOTTY, GETL
JMP
SEQCOMi DCA
TAD
TAD
SNA CLA
.

ISH
TAD

IS HIGH SPEED READER. FLAG READY???
/GO INTO BIG WAIT LOOP

/DEVICE
SEQTST
SEQCOM
BCHAR
BCHAR
M232

CNTRL2
BCHAR

/GET A CHARACTER
/WAIT FOR IT
/STASH AWAY

0:?36

3746

5711

JMP

fc5537

0t>40

0541
0b 42

0543
0 b 44
1(5545

05 46
ia547

0550
i3551
055ii

05 53

3747
3750
3751
3752
3753
3754
3755
3756

0000
3311
4556
1104
1047
7640
5361
1311

37 57

4 407

3760

5747

0554

05 62

0563
05 64

0565
0566
0567
0570
0571

SE 00 UT

DCA
CHECK 0
TAD
TAD
S2A CLA
JMP

BFLAG2
L7777

TA D

SE Q I N

SEQI N

SEQ02

/HIGH PUNCH OUTPUT

PU TL
JM P
SE 002

3761

/OUT

AS MI Fi!
jM S I

4777

IT GOES.

CA RD -1
SE QL P

/OO WE CHtCK FOR LINE PRINTER???
/YEP, GO CHECK

SEQ I

/LINE PRINTER ISn
/WAIT FOR OK.
/WAIT TILL DONE.
/GET THE CHAR.
/SEND IT OUT
/CLEAR THE AC,
/ALL DONE.

3762
3763
3764
3765
3766
3767
3770

4556
6021
5362
1311

w n L. w r\ ^ \j
o KJ

JH P
T AO

60 26

7200
5747

60 26

SEQE XT

Ct A

IMP

cc nniiT
y uu
dc
i

THE ONE.

/
/
/

05 72

0573
0574

3771
3772

0000
0000

05 75

37 73

75 46

m2 32 ,

-2 32

0576
0577

3774
3775

0070
4477

L70
8CERR,

CERR

06 00

BCHECK
ww n
i*

1 •
p

BFEI LO

/
/

0601
0602
0603

06 04

ASHI FN

CARQ-1

0605

ASMSKP

06 06

0607
0610
0611
0612
0613
0614
0615
0616
0617

/SEQUNETIAL OUTPUT BLOP,
/SAVE THE CHAR
/CHECK 10
/GET THE OTPUT FLAG

05 55

0556
0557
0560
0561

SEQl N

/CARD READER AND LINE PRINTER THERE????
/NOPE. OONT ASSEMBLE IN POINTERS.

3776
3777

6025
6275

5E0CIN. CORE AD
SEQLP,
LP TEST
/

/
/
/
/
/

EJECT

/POINTER TO CARD READER ROUTINE,
/POINTER TO LINE PRINTER ROUTINE.

0620
0621

»4000

B6 22

0623
0624
0625
0626
0627

MORE OF The BIMAKV ROUTINES,

06 30

0631
0632
0633
0634
0635
0636
0637
0640
0641
0642
0643
0644
0645
0646
0647
0650
0651
0652
0653
0654
0655
0656
0657

4000
4001
4002

0000
0000
0000

4003
4004
4005
4006
4007
4010
4011
4012
4013
4014
4015
4016
4017
4020
4021
4022
4023

4403
1120
4211
il22
3214
4571
0000
7000
0001
0000
4403
2122

0666

4024
4025
4026
4027

06 67

40 30

0670
0671
0672
0673
0674
0675
0676
0677
0701
0702
0703

4031
4032
4033
4034
4035
4036
4037
4040
4041
4042
4043
4044

1064
3134
1132
1371
7112
7012
/010

07 04

40 45

0705
0706
0707
0710
0711
0712
0713
0714
0715
0716

4046
4047
4050
4051
4052
4053
4054
4055
4056
4057

06 60

0661
0662
0663
0664
06 65

07 00

/FIRST

0000
0000
0000

HPOP
TAO
DCA
TAO
UCA
READ

BI NTAP

FUNI T
.

FBNUM
.

8UFFER+400
1

HPOP

FBNUM
8SETI

ISZ

JMS
TAD
DCA
TAD
OCA

47 72

1056
3132
1367
3133

M40

BTEMPl
bhtab
BTEMP2

3130
7006
7006
3135
1533

8ETLP2

7650
5245

4773
3131
4576
2130
7000
2134
5237
2133

M400
TAO
8TEMP3
OCA
8TEMP1
TAO
TAD
L40
CLL RTR
RTR
RAR
ORIGIN
OCA
RTL
RTL
BFIELD
DCA
BTEMP2
TAD
SNA CLA
JMP
BE OUT
BGETI
JMS
DATA
DCA
I

PUTWORD
ORIG IN

8E0UT,
NOP
ISi

JMP
IS2

70 00

NOP

2132
5224

iSi
JMP
MONE
OCA

72 40

3135
4576

PUTWQHO

BTEMP3
BETLP2
BTEMP2

8TEMP1
BEILOP

8FIELD

LOCATION ARE RESERVED FOR

REGISTESR IN LMODE

/INPUT FROM LINC TAPE.
/GET THE UNIT
/SET UP CONTROL BLOCK READ
/GET THE STARTING BLOCK NUMBER
/GET BLOCK NUMBER
/READ IN HEADER BLOCK
/PLACED IN UNIT
/READ HEADER SLOCK IN SECOND BLOCK OF BUFFER.
/I RECOOD
/CORECT BLOCK NUMBER
/HAP IN FBLOCK AGAIN
/MOVE PAST HEADER BLOCK
/SET UP /JORO GETTER.
/SET UP NUMBER OF 400 WORD BLOCKS TO CHECK
/AND STASH Ai^AY.
/GET START OF MEMORY MAP CONFIG.
/AND PLACE AWAY,

BE ILOP

/400
/SET
/GET
/GET

WORDS PER RECORD
UP COUNT
THE BLOCK NUMBER
BETWEEN 0-37

/MOVE INTO 7400 POSITION
/SET UP INITIAL ORIGIN,
/HOVE LINC TO FIELD POSITION.
/AND PLACE IN BFIELD.
/IS THIS BLOCK USED,
/?

/NOPr, k^ANDER DOWN,
/GET A WORD FROM TAPE/
/PLACE IN DATA WORD.
/SEND IT DOWN THE LINE.
/BOP UP ORIGIN.
/BOP UP 400 COUNTER
/NOT YET DONE. DO ANOTHER.
/BOP UP HAP POINTER
/IT REALLY CAN SKlPtI FOUND OUT THE HARD WAY)
/BOP UP 8IGC0UNT POINTER
/GO BACK AND GET NEXT FIELD AND ORIGIN.
/ALL DONE,
/PLACE AN "EOF" ON BFIELD
/END OF FILE CODE WORD.

0717

4060

5;>52

637 20

0721
0722
0723
0724
0725
07 26

0727
0 7^0

0731
0732
0733
0734
0735
0736
0737
07 40

0741
0742
0743
0744
074^
0746
0747
07tJ0

0751
0752
0753
0754
0755
0756
0757
0760
0761
0762
0763
0764
0765
0766
0767
07 70

0771
0772
0773
0774
0775
0776
0777
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014
1015

/RETURN Tn PIP

/
/
/

40 61

4262
4063
4064
4065
4066
4ij67
407k;

4071
4072
4073
40 74

4075
4076
4077
4100

BTAPL,
ILLD

7a 01

lAC

7652

1135

SNA CL A
JMP
TAD

;2;4i

Ci A

1137

TAD
S£k CL A
JMP
TAD
AND
CIA
TaO
b2 A cla
JMP

1>77^

/64k)

5315
1130
0064
7041
1136
7640
5315

TAPE OUTPUTER.
/LAST TIME THROUGH?
/i'^AlN

TAD

1133

dFRLD

/YLP. CLOSE FILE.
/GET THE FIELD

BOFIELO

/SAME AS LAST ONE?

81 DIFF
OR IG IN

/NOPE. SET TO CHANGE BANKS.
/GET THE ORIGIN
/JUST HIGH BITS.

dTt\D

L7400

BOLOO
Bl 01 FF

/ADD IN LAST ORIGIN
/SAME 400 rtORD BANK??
/NOPE.
CHANGE BANKS
.

4101
4102
4103
4104
4105
4106
4107
4110
4111
4112
4113
4114

1130

BI NTRY

0365
1366
3065
1131
^465
1130
0064
3136
1135
3137
5661

TAD
AND
TAD
OCA
TAD
DC A

TAD
AND
DCA
TAD
DCA
JMP

OR IG IN

L3/7
BPOINT
TEMP
DATA
TEMP
OR IG IN

L7400
SOLDO
BF lELD
I

BOFI ElO
BTAPE

/GET THE ORIGIN
/GET IN 4fe)kj WORD BANK POSMTION
/GET START OF BUFFER LOCATION.

/STORE AWAY
/GET The OATa k^ORD
/NOW PLACE IN BUFFER
/GET ORIGIN
/GET JUST BANK NUMBER
/STASH AWAY,
/RESET The field TOO
/AND AWAY IT GOES.
/GO BACK AND GET ANOTHER WORD.

/
/

4115
4116
4117
4120
4121
4122
4123
4124
4125
4126
4127
4130
4131
4132
4133
4134
4135
4136
4137
4140
4141
4142
41 43

4144
4145
4146
4147

1130

Bi Di rr

7006
7006
00 60

1135
/004
3132
1137
7700
4352
1132
3123
1132
1367
3133
1533
7650
2140
7240
3533
1132
1364

33 50
45 71

0001
64^0
0001

TAD
ORIGIN
htl
RTL
AND
L7
TAO
BF lELO
RAL
DCA
BTEMPl
TAD
BOFIELD
SMA CLA
JMS
8IDUMP
BTEMPl
TAO
OCA
80LDP
TAD
btlmpi
TAD
6MTAB
DCA
BTEMP2
TAD I
BTEMP2
SNA CLA
BCUUNT
IS2
MONE
8TEMP2
OCA
TAD
BTEMPl
TAD
eMBASE
,*5
DCA
READ
SYSB IN
dUFFER

OSYSl.

/GET THE ORIGIN

/MUST MAKE IT BITS 8-11
/PUT IN FIELD BIT NOW!
/AND ROTATE IN REST OF CRAP,
/STASH AWAY/
/GET THE OLD FIELD BITS,
/IF ITS MiNUSi UONT DUMP BUFFERS.
/NOT THE FIRST TIME THROUGH. DUMP BUFFERS
/REGET NEW PDS T ION
/AND PLACE
N OLD PLACE
/GET PLACE AGAIN
/START OF POSITION THING
/CORE MAP
/GET REFERNCt ^ORD
/!S IT TAKEN?
/NOPE. AiNiOTHtR RECORD TO WRITE OUT LATTER ON.
/MEANWHILE..
/TELL SYSTEM IT S TAKEN NOW,
/REGET BASE POINTER
/ADD IN STARTING BLOCK NUMBE
/READ IN NEW CORE IMAGE FOR OVERLAYING,
/READ IT IN
/FROM SYSTEM BINARY UNIT.
/THIS IS The GENERAL CORE WORKING AREA FOR THE
I

1016
1017

4150
4151

00 00

5301

10 20

1021

10 22

1023
1024
1025
1026
1027
1030
1041
1032
1033
1034
1035
1036
1037
1040
1041
1042
1043
10 44

1045
1046
1047
1050
1051
1052
1053
1054
1055
1056
1057
10 60
10 61
10 62

JMP

BINTRY

TAD
TAD
OCA
WRITE
SYSB IN

BOLDP
BMBASE

/RECORD NUMBER GOES HERE.
/RETURN TO MAIN PUTTER,

4152
4153
4154
4155
4156
4157
4160
4161
4162
4163

0000
1103
1364
3362
4572

BIOUMP*

m%\

DSYS2*

/DUMPS THE PRESENT BUFFER INTO THE CORRECT POSITION.
/GET OLD POINTER
/ADD IN THE RECORD NUMBER BASE,
/SAVE AWAY.
/WRITE IT OUT.

BUFFER

6400
0001

JMP

5752

BIDUMP

/RETURN

/
/
/
/

4164
4165
4166
4167
4170
4171
4172
4173

42 00

SYSB BLOCK
BMBASE
377
L377,
BPOINT. BUFFER
BUFFER+740
BMTABf
BTENT
8TEND,

0040
4^14
4525

140,

BSETI,
BGETI,

SETI
GETI

0370
0377
64 00

7340

EJECT

/BINARY CORE WORKING AREA
/LOADING MAP.

1063
1064
1065
1066
1067
1070
1071
1072
1073
1074
10 75

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
114a
1141
1142
1143
1144
1145
1146
1147
1150
1151
1152
1153

«4200
/

BINARY LOADER ROUTINES.

/
/
/

4200
4201
4202
4203
4204
4205
4206
4207
4210
4211

4667
1140
7450
4567
3671
4572
0001
7000
0001
0447

BTENT.

JMS
TAD
SNA

NO
DC A I
WR TE

BBDUMP
BCOUNT

B80INT-1

/DUMP THE BUFFER
/NUMBER OF RECORDS SAVED.
/ANY AT ALL?
/NOPE.
/STASH IN HEADER BLOCK.
/WRITE OUT HEADER BLOCK NOW,

SYSB IN

BSYbi

BUrFER* 400
1

8BBHDR

SYSHOR

/POSITION OF HEADER BLOCK ON SYSTEM.

DSYS3= BSYS
/

4212
4213
4214
4215
4216
4217
4220
4221
4222
4223
4224
4225
4226
4227
4230
4231
4232
4233
4234
4235
4236
4237
4240
4241
4242
4243
4244
4245
4246
42 47

4250
4251

4565
1140
7001
3117
7305
3123
7305
3121
4563

POP
TAO
I

BCOUNT

DC A

FS I2E

PTWO
DCA

FWHAT

PT^^O

DCA

/SET FOR BINARY F|lE
FT YPE

DIRECT

44 04

HP USH
TAO
DCA
TAD
DCA
TAD
DCA
TAD
OCA
PONE
DCA
COPY
TAD
DCA
MOVE

1122
3104
1120
3105
1206
31 03

1211
3102
7201
3117
4554
12 70

3102
4564
6400
7000
0400
1272
3132
1056
3134
2104

FBNUM
OUTBLQCK
FUNIT
OUTUNI
BSYS
INUNIT
BBBHOR
INBLOCK

\SZ

/LOOKUP UP NAME AND ROOM.
/STASH AWAY.
/GET THE STARTING BLOCK
/STAbH IN UNIT TOO.
/SET UP OUTPUT UNIT,
/GET INPUT UNIT
/SET UP INPUT UNIT
/POINTER TO HEADER BLOCK
/STASH IN INPUT BLOCK NUMBER
/SET THE SUE TO 1 BLOCK

FSI2E
6BBASE
INBLOCK

BUFFER
BUFFER+400
400
TAO
DCA
TAD
DCA

/BRING BACK FBLOCK FROM LOWER AREA NOW,
/REGET THE LENGTH.
/ADD 1 FOR HEADER BLOCK
/SAVE IN CORRECT PLACE.
/SET FOR OUTPUT FILE.

BBOI NT

BTEMPl
M4 0

BTEMP3
OUTBLOCK

/COPY THE HEADER BLOCK TO THE CORRECT LOCATION ON TAPE,
/GET THE BINARY WORK AREA POINTER.
/SET THE INPUT UP AGAIN.
/NOW MOVE THE HEADER BLOCK WHICH
/WE JUST READ INTO BUFFER BY COPY
/BACK UP TO 8UFFER+400 SO WE CAN USE THE HEADER
/BLOCK INFORMATION FQR THE COPYING OF THE BLOCKS.
/START OF MEMORY BLOCK CONFlG.
/SET UP GUTCHECKER
/SET UP TO LOOK AT 40 BLOCKS
/8TEMP3 IS OUR COUNTER NOW.
/SKIP PAST HEADER BLOCK

42 52

li>32

4253
4254
4255

52 61
72 01

1154

42 56

1155
1156
1157
1160
1161

4257
4260
4261

BELOOPi

7650

42 62

3117
4554
2104
2102
2132

4263

70 00

BEEND.

TAO 1
BTEMPl
SNA CLA
JMP
8EEND
PONE
DCA
FSI2E
COPY
IS2
1S2
IS2

NOP

OUTBLOCK
INBLOCK
BTEMPl

/GET THE MOMORY USAGE WORD
/BLOCK USED?
/NOPE. GO DOWN
/SET TO MAKE A 1 BLOCK COPY
/BY Placing a "i" in fsi2e
/YEP. COPY A BLOCK
/GO TO NEXT OUTBLOCK.
/GO TO NEXT INPUT BLOCK
/BOP MEMORY POINTER
/this CAN SKIP IF BUFFER WAS SET TO 7000

11 63

42 64
42 65

1164

4266

1162

1 34
52 52
<^

I3zf

^552

JMP
PIP

11 65
11 66
11 67
42 70
42 71
42 72

03 70
7 3 37
73 40

12 04
12 05

42 76

lex**
1^.1^

4275
42 77
43 00
4 3 01

00 00

TAD

/MASS STORAGE OUTPUT???

BBOU T

1104
7640
5301

SzfA

JMP

47 76

JM S

JMP

P G ME
TA D

43 03

/6 40

Sjf A

4 3 04

JM P

4 306

5316
1140
4 5^0

4 3 07

00 24

AND

43 05

9FLA&2
CLA

56 73
72 01
1 1 OP

12 22
12 2 3
12 24

4314
4315

4405

1225

1101

Xcc0

4316
4317

53 24
XX ox
76 50
56 73
11 35
70 41

+ 3

BbLT
BdOU T
BF 1 LD
1

B88BBJ
BCOUNT

RO R6

1 1 40

00 24
45 75

/NO.
/YEP. GO 00 IT.
/AND RETURN
/IS THIS END OF
/(Br lLLU~////r

INPUT???

CLA

TAD

p / p

43 13

LNU,

/Nul

/KJIAIt.

LHLLa UKIGIN AND

iNiU Luw UHULK Blfb

lELD SETTINGS,
ur

AC.

L77

AU XO U T
T aD

BCOU NT

AND

L7 7
/nliTDllT
PUC"(^1/C11M
/UUI
Un
rU
LMLLfAb

AU XO UT
LE ADER

PIP

/blVL

IKAILEK AND KETUKN TU rlP

1227

43213

9 OkI
<0I
Xc

**0C X

Xc0X

4 322

12 32
12 33

43 23
43 24

1235

4325
4326

12 36
12 37

43 27
43 30

1240

4331
4332
4333
4334

1246
1247
1250
1251
1252
1253
1254
1255
1256
1257
1260

/POINTER TO HEADER BLOCK LENGTH. MUST QE AT BBOINT
/POINTS TO START OF CORE MAP IN HEADER BLOCK

42 73
42 74

12 21

12 45

BUFFErr + 740

SYSeBLOCK
BurFER+737

4311
4312

1242
1243
1244

BBOI NT

12 20

xc**x

d I DUMP

XC 10

1217

B3DUMP
BbBASt

lc.lv

1211
1212
1213

4152

0 Oil

4267

/HAVE wE FINISHED THE HEADER BLOCK?
/:mOT
ye T done
/ALL DOOE. RETURN TO PIP,

1170
1171
1172
1173
1174
1175
1176
1177
1200
1201
1202
1203
1206

BE LOOP

OD QO D

TA D

BO EL 2

SNA CLA
jM P

TAD
DATA
SNA CLA
JMP I
B8UU T
TAO
8FIELD
CIA
TAD
BOFIELO
SNA CLA
JMP
BBNl
TAO
BF lELO
TAD
L700

1137
7 6 50

5335
1135
1036
4575
5342

/?
/ ?

8BNE WO

/YEP, DON T OU A NEW FIELD
/GET THE FIELD
/PLACE ON TWO HIGH ORDER BITS,
/AND OUTPUT IT.
/AND GO OUTPUT ORIGIN.

SOLDO

/IS

ORIGIN

/SO THTA !T WOULO LOAD HERE ANYWAY.

6BN2
ORIGIN

/NEXT LOG. DON T
DO A NEW ORIGIN
/NEW ORG, OUTPUT IT ON SEQ. DEVICE
/NOW PLACE IN RIGHT HALF OF A.C.
/JUST 6 BITS
/PLACE ON ORIGIN BIT
/AND PUT OUT WITH A CHECKSUM
/GET THE ORIGIN
/JUST 6 BITS

AUXOUT
JM P

/GET THE DELETE ZEROS SWITCH,
/lb IT NON rLHur
/ITb tERO. OONT DELETE ZEROS.
JfCT TUC"
THE. riAT*
/GLT
WORD,
DATA Lirton
/IS IT ifERO?
/YEP. RETURN TO THE CALLER NOW, HERO DELETED,
/SEE IF IN SAME DATA FIELD AS BEFORE,

4335
4336
4337
4340
4341
4342

4343
4344
4345
4346
4347
4350

1136
7040
1130
7650
5352
1130
4550
0024
1025
4366
1130
0024

TAD
CMA
TAO
SNA CLA
JMP
BBNEWO* TAO
R0R6
AND
TAO
JMS
TAO
ANO
&BN1

L7 7

80ADD
ORIGIN
L77

LOCATlON+1?

1261
1262

4351

4366

12 63
12 6 4
1 9 O 3
AC

43:52

43 i>4

1266

4 ,5

12 67
12 70

4 »i 5 7

1130
31 36
1135
3137
1131
4550

43 60

00 24

4361

4366
1131

12 72
12 73
12 74

43d3

43b6

1^: / 3

43 63
43 64

43 66

12 76

436i?

5673

8BN2

t^OAUD

/A'4D

OUTPUT

TAD
DCA
TAO
OCA

0^^ IG Ik

/GtT

Tne

BOLGD

bfkld

A 0

R0R6
AiyjD

L7 7

JMS
TAO
AND
JMS
JHP

0;^24

1277

BOADD

/A.^O c^AVL IT AaAY,
/NOW RfclSET THE FIlED TOO
/AND STaS A^AY
/GET THE DATA
/PLACE LEFT HALF IN RIGHT HALF FOR THE OUTPUT

L77
BO ADJ
8B0UT

/ANiD

?UT

/NUw PUT

OUT

OUT TOO

AvOW EXIT

/
/

13 01

4366
4367
4370
43/1

0000

437i>

1070
1140
3140
1070
4575
5766

43/6

4061

43 72

4373
4374

80ADD.

33 70

DCA
TAD
TAD

TEMP3
TEMP3
HCOUNT
BCOUNT
TEMP3

DC A

Tad

AUXOU T
JMP
I

B8LT.

roo

ORGn

OA TA

130i}

1302
1303
1304
1305
1306
1307
1310
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324

JMS
/

aTAPE

/
/

/
/
/
/
/
/

EJECT

30AD0

/UPUATL bCOUNT
/SEND IT ALONG

1325
1326
1327
1330

LITTLE FRQH THE PREVIOU PAGE.

/
/

/
/
/

/
/

4400

0310
0314

4401
4402

0322
4424

43 77

RF08

/BINARY INPUT DEVICE LIST. " H"
/"L"
/DO WE WANT THE RF08 PRESENT
/YES. "R"
/"T"

RF08

/HIGH SPEED READER
/LINC TAPE
/DISK?
/YES. RF08
/TELETYPE.

BINLST, 310
314

ASMIFN
322
4324
/

/
/

4403
4404

3417
3476

4405
4406

34 74

BINGO,

BH IGH
BLT
ASMIFN

BLRF8
BTTY

3420
/
/
/

4407
4410

3513
3526

4411
4412

3524
3>14

BING02* 6HIGH2
8LT2
ASMIFN
8LRFa2
BTTY2

RF08

/
/
/
/
/
/
/
/

14 00

1401
1402
1403
1404
1405
1406
1407
1410
1411
1412
1413
1414
1415
1416
1417
1420
1421
1422
1423

THIS PAGE MAY OVERLAP OR UNOERLAP

/
/
/
/

13 31

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
1366
1367
1370
1371
1372
1373
1374
1375
1376
1377

COMMON ROUTINES USED BY BINARY AND ASCII HANDLERS.

4413
4414
4415
4416
4417
4420
4421
4422
4423

0000
4562
4432

DECODE
MMORE
SEARCH
MAORN
MGOTO

4:?73

4424
4427
5214
2213
5613

MORE-^l

JHP

MANDM1» ISZ
MANDM2, JMP

/
/

4424
4425
4426

0301
0316
4322

4427
4430

4423
4422

/DISPLAYS A "MORE" MESSAGE.
/DECODE A LINE
/THATS OUR MESSAGE
/LOOK UP THE ANSWER

MORE,

MAORN,

301
316
4322

MGOTO,

MANDH2
MANOMl

MOHE
MORE

/JUMP TABLE
/BAD REPLY.
/NO MORE TAPES
/EXIT.

1424
1425
1426
1427
1430
1431

4431

/
/

4432
4433

0200
0040

MMOHE,

L£rT*200
TOP=300

/
/

14 32

1433
1434
1435
1436
1437
1440
1441
1442
1443
1444
1445
1446
1447
1450
1451
1452

/
/

ASMIFN
ASMSKP

TEXT

"FMORE TAPES?

CARD

HN
HR

NO MORE TAPES

READ ANOTHER TAPE\"

/
/
/
/

ASMir£
ASKSKP

CARD

TEXT

"FMORE INPUT?

4434
4435
4436
4437
4440

0615
1722
0540
1116
2025

4441

2477

4442

4340

4443
4444
4445
4446
4447

4340
4310
1640
5555
5540

14 61

1462
1462
1463
1463
1463
1463
1463

/CARD MESSAGE
/THERE. GIVE CARD MESSAGE

14 53

1454
1455
1456
1457
1460
1460
1460
1460
1460
1460
1461

MANDM2

4423

14 63

44 50

16 17

1463
1463
1463
1463
1463
1463
1464
1464
1464
1464
1464
1464
1464
1464
1464
1464
1464
1464
1464

4451
4452
4453
4454
4455

4015
1722
0540
1116
2025

4456
4457
4460
4461
4462
4463
4464
4465
4466
4467
4470
4471
4472

2443
1022
4055
5555
4022
0501
0440
1517
2205
4003
0122
0423
4017

NO MORE

INPUT

/CARD READER NOT THERE?
/SKIP OVER MESSAGE

1464

44 73

14 64

44 7 4

1464

44 75
44 76

14 64

22 4io
24 01

2005
23 34
HR ---

1464
1465
1466
1467
1470
1471
1472

/
/
/
/

14 73

1474

14 75

1476

14 77

/
/

130^
1501
1502
1503
15 04

1505
1506
1507
1510
1511
1512
1512
1512
1512

4477
4500
4501

4551
4502

CEHR

52 77

02i30

4504
4505
4506

06 03

45 07

23 25
15 40
05 22

1512
1512
1512
1512

4512
4513

ARniINn

lliMTll

tD OR fP

I**

TYPFD

t ri n >
T no — XA a

1005
0313

2217
22 34
r oo nn V M

TC" V T

15 13

1514
1515
1516
1517
1520
1521
1522
1523
1524
1525

/
/
/

4514
4515
4516
4517
4520
4521

0000
7240
1122
3342
1120
3337

45 22

72 40

4523
4524

3347
5714

SET 1 ,

MONE
TAD
CA

TAO
OCA
MONE
DCA
JMP I

FBNUM
GEENUM
FUN T
I

GUNl T

/Bur UOWN B" 1
/GET FIRST BLCOK NUMgEn
/AND PLACE IN READ CALL.
/GET T HE UNIT
/PLACE AHAY UNIT
nt awl bn
/dLi
/TO OVERFLOW FIRST TIME THROUGH
/RETURN
1

GCUNT
SETI

15 34

/
/
/

1535
1536
1540
1541
1542
1543
1544
1545
1546

/WAMP.

45
45 03

45 11

15 37

/CHLCKbUn LKKOK UlbrLAT,

4510

1527
1530
1531
1532
1533

D I SPLA Y

CC ER R
JM P
/

15 12

15 26

HEAD MORE CARJS OR TA HE S\ "

4525
4526
452/
4530
4531
4532
4533
4534

0000
7200
2347
5343
1064
3347
1340
3346

GETI

/GETS

CHARACTER FROM THE SYSTEM BUFFER.

CLA
IS2

GCUNT

JMP
TAO
DCA
TAO
DCA

GOK
M400
GCUNT
GPLACE

GPLCE2

/IS BUFFER EXHAUSED?
/NOPE. GET NEXT,
/YEP. RESET COUNRTE FOR
/COUNTER RESET.
/GET START OF BUFFER
/STORE AWAY,

NEW BLOCK,

1547
lUSe
1551
1552
1553
1554
1555
1556
1557
1560
1561
1562
1563
1564
1565
1566
1567
1570
1571

45J5
4>36
4537
4540
4541
4542
4543
4544
4545

2342

is<i

4:>7l

READ

0000
6400
0001
0000
1746
2346
5725

0000
01080

16 34

1635
1636
1637
16 40

1641
1642
1643
1644
1645

/BOP UP TO NEXT RtOCRD,

/AND READ

IN.

GEENUH,

GOK,

TAD

IS2

JMP

GPtCE2
GPLCE2
GETI

/GET WORD FROM SUFFER
/BOP UP POINTER
/EXIT

GPLCE2t
CCUNT,

0
0

/GCOUNT ALREADY USED ELSEWHERE

/
/
/
/

/
/
/
/
/
/
/
/
/

ASHir?
ASMSKP

RF08
15

/RF08 THERE?
/NOPE. OONT ASSEMLE THIS CRAP.

/
/

4550
4551
4552
4553

7417
7427
7425
7417

ASUCOl.

ASULPl
ASUTTl
ASUOOl
ASUtPl

/TRANSFER TABLES FOR SYS AND UNIT COPIES

/
/
/

1612
1613
1614
1615
1616
1617
1620
1621
1622
1623
1624
1625
1626
1627
1630
1631
1632
1633

GUNIT,
0
GPLACE, BUFFER

4546
4547

15 72
15 73

1574
1575
1576
1577
1600
1601
1602
1603
1604
1605
1606
1607
1610

GEENUM

4554
4555
4556
4557

7432
7442
7440
7432

ASUC02i ASULP2
ASUTT2
ASU002
ASUtP2
/

/
/
/
/
/
/
/
/
/
/

4560
4561

0000
4567

NOSUCH.

NO
/
/
/
/
/
/
/
/
/

/THIS ROUTINE DISPLAYS A UCVICE OVERFLOW MESSAGE
/ON THE SCREEN CONSISTING OF THE LETTERS N AND 0.

1
1

A4A
A 47

1 ASfl

00 00
Afll t9
O0
Jc

16 1>4

43 62
45 63
45 64
Afi. AS
A<E> A A
^9 DO

1655
1656

4551

A (tl
A
lo
1

A Ckt

1 Af« 7

lOOID

7A
7A
/ D Aa
^0
A7
Of SI
91

/IHio uA L dK A Lb UlbK Ir NUI OK.
if ICAO AC
*f*
AMn TTv
/uULAn
AMU
M T,
/KtbLI
HL alAlub NUM.
/lo II cLKUr <N0 LXIHA UNITS StLECTtD>7
/NDPt. DO A CALlanATL.
1

DV C7 A T

TA n

1 *

S^A CLA
OCLA
/

^9 /o
AS 71

CT
A T D
al AT
Lr »
1

0C A
DOt
Ok'J

01 Splay
nA 1 l\iU I o

7010

16 63

AS
^9 7"^
fO
AS
/^
^9 7A

7A
9a
/O£0
S7
9/ AO
0<

1664

AS
^9 7S
/9

SX
90 A7
0/

/DO SOME MORE DISPLAYING WHILE WAITING.
ycAQ
Tuc
f\
Kin
Mt r»tc^
UialN Tr>
lU tier
KLAUi,
HL nCADw
/DTAn tu CTATllC
/onTATC Tft
hi ^
/DONE
1

67 41

^9 /t

lOOl
1662

ST AT RS

r»
SNL CLA
IMO ft
Jnr
ST AT RS
ST ATlP
JMP

/V Co

/NUrL. WAi

«"(HlLt.«

16 65
t

1666
A A7
10
0/
1 A 7a
f B
XO
1 A 71
lO
/J>
1 A 79
AO /«
1
ATI
AO /O

4576

0000

D|r CT AT .

yunon rno
armor i_n
rut qtatiic
aiAlUa OLrUnL
rK La t
l~U oorcrT

/ MUriu

f
f

1674

1676

/
/
/

16 77

AO ' 3

1 700

ASlil FN

A 7 ai
1 7019

r A i»t

1 /
i0A

•

ftl00

/IF TMP

^fiiiii

niT

nN.

A<;^rMni r

/
/
f

1703
1704
A f 07
A f 0O
A/0/

f
f

A 7 A0
1 / 1 11

1/ AA
A / Ac
1 71

A/ AO
1 71 A
A / A^
1711%
/ A7
1

0000
6032

4602

A7 TA

(in Utrf

02 06

AND

1 7 1 A
/ AO
A

1717
A / A/
1 7 911

1/ ei9

4604
4605

1721

/ri TAD Twr
Awn lur
at
rSLTDUAnU ANU
/LLLAn
ML krvflnAon
IML AL«
1

3607
5600

ML U LU U U" n A v%\j "Lwl3 ILK,
/I TAUr
Ai
IIICT CvTOA
tXiHA liUITC
/LLAVL
JUaf
UNlTa DiTC
IN
oIia«
/Aun
CAur
AUAV Tur
/AiiU aAVL AKAT
WL nt nu
Unl VL ur>or
ML noiur
UM«
/OCTiiOM
Ainu
/KLiUHN NUN*
/" L A U

DC A

JMP

ST L6
RK ST TP
ST ATSV

1 1"!

/
f
f

1 799
/CC
A / <w
1

1724
1725
1726
1727
1730
1731
1732
1733
1734
1735
1736
1737
1740
1741
1742
1743
1744

CT
AT CU
av t
a A

46 00
46 idl

4606
4607

0006
45 76

STL6,
6
RKSTTP, RKSTAT
/
/
/
/
/
/

/
/
/
/
/
/
/
/
/

/ACCROSS PAGE POINTER.

thp pact

1745
1746
1747
1750
1751
1752
1753

1754
1755
1756
1757
17 60
1761
1762
1763
1764
1765
1766
1767
1770
1771
1772
1773
1774

/
/

1775
1776
1777
2000
2001
2002
2003
2004
2005
2006
2B07
20X0
2011
2012
2013
2014
2015
2016
2017
2020
2021
2022
2023
2024
2025
2026
2027
2030
2031
2032
2033
2034
2035
2036
2037
2040
2041
2042
2043

/
/
/
/

/
/

/
/
/

46 1ti
46 11

2240
3140

BININP. lE:FT*240
TOP=200
/
/

aSMIFN
ASMSKP

HFatt'CAf^O
12

TEXT

-FINPUT DEVICE:

/OO WE haNT STANDARD MESSAGE???
/NOPE. DONT ASSEMBLE I.T
IN...

/
/

HIGH SPEED «EaOE«
LINC TAPE
TElETYPEN"

HH
HL
HT
/

/
/
/

ASMIF2
ASHSKP

RF08*1«CARO

TEXT

*FINPUT DEVICE:

WANT THE CARD READER BUT NO DISK?
/DO
/YES. OONT ASSEMBLE THAT IN.

/
/

HH
L
T

—
—

CARD READER
HIGH SPEED READER
LINC TAPE

TELETYPES

/
/
/
/

/
/
/

CARD*l«Rra8

ASMIF2
ASMSKP

TEXT

"F INPUT DEVICE:

/
/

HH
L
R
T
/

/
/

HIGH

SPEED
— » LINC TAPE

READER

RF08,RK0a DISK

— = TELETYPEX-

/ASSEMBLE FOLLO*<ING MESSAGE
/SKIP OVER IT.

DISK BUT NO CARD READER.

2244

2046

/
/

2fc47

20b0
20!>1

2i}53

0611
1620
2524
4004
0526
1103

4620

0572

4621

4340

20 57

46 22

43 40

4623
4624
4625
4626
4627
4630
4631
4632

4303

2057
2057
2057
2057
2057
2057
2057
2060
2060

"FINPUT device:

40 55

5555
4003
0122
0440
2205
0104
C

46 33

4634

CARD READER

0522
4310

20 60

46 35

10 40

2060
2060
2060
2060
2060
2060
2060
2060
2060
2060
2060
2061
2061
2061
2061
2061
2061
2061
2061
2061
2062
2062
2062

4636
4637
4640
4641
4642
4643
4644
4645
4646
4647

5555
5540
1011
0710
4023
2005
0504
4022
0501
0405

46 50

2243
1440
5555
5540
1411
1603
4024
0120

HIGH SPEED READER
4651
4652
4653
4654
4655
4656
4657

2062
2062

4660
4661
4662
4663
4664
4665

20 62

46 66

54 22

2062
2062
2062
2062

4667
4670
4671

1360
7040
0411

20 62

TEXT

4612
4613
4614
4615
4616
4617

2057
20 57

20 52

2854
2054
2054
2054
2054
2054
2054
2055
2055
2056
2056

ASMSKP

-» LING

TAPE

05 43

2240
5555
55 40
22 06

6070

RFkJ8»RK08 disk

bQTN OlSK AND CARD?
/OO Hi
/NOPE. \0T THib MESSAGE.

2063
2063
20 63

2B63
2063
2063
2063
2063
2063
2263

4672
4673
4674
4675
46 76
46 77

4700
4701
4702

2313
4324
4055
5555
4024
0514
0524
3120
0534
T

TELETYPEN"
2064
2065

/
/

20 66

2067
2070
2071
2072
2073
2074
2075
2076
2077
2100
2101
2102
2103
2104
2105
2106
2107
2110
2111
2112
2113
2114
2115
2116
2117
2120
2121
2122
2123
2124
2125
2126
2127
2130
2131
2132
2133
2134
2135
2136
2137
2140
2141
2142
2143
2144
2145
2146
2147

/
/
/

/
/
/
/
/
/
/
/

/
/

/
/
/

4703
4704

0240
0140

BINOUT

LErT+240
TOP;:200

/
/

ASMIFN
ASMSKP

CARDlRr08

TEXT

"rOUTPUT DEVICE:

/DO WE WANT STANDARD OUTPUT DEVICES.
/NOPE. OQNT ASSEMBLE THEM IN'.

/
/

HIGH SPEED PUNCH
LINC TAPE
TELETYPE\"

HH
ML
HT
/
/
/

ASMIF2
ASMSKP

Rr08*l«CARO

TEXT

"FOUTPUT DEVICE

/
/

HH
L

—

HIGH SPEED PUNCH
LINC TAPE

/DO WE WANT THE LINE PRINTER ROUTINES LOADED??
/DO NOT DISPLAY LINE PRINTER MESSAGES.

i^lb0

2151
2152
2153
2154
2155
2156
2157
2160
2161

T
/

/
/
/
/

/
/

HH
R —
—

22 07

CARD*l«Rr08

TEXT

"FOUTPUT DEV:

/DO WE WANT DISK BUT NOT PRINTER?
/NOPE. SKIP OVER MESSAGE.

HIGH SPEED PUNCH
LINC TAPE
RF0fa,RK08 DISK
TELETYPES"

/
/
/
/
/
/

22 05

2207
2210
2210
2211
2211
2212
2212
2212
2212
2212
2212
2212
2212
2212
2212
2212
2212
2212
2213
2213
2213
2213
2213
2213
2213

ASMIFZ
ASMSKP
/
/

CARD5RF08

ASMIF2
ASKSKP

TEXT

"FOUTPUT DEV

2206
2207
2207
2207
2207
2207

LINE PRINTER
TELETYPES"

2162
2163
2164
2165
2166
2167
2170
2171
2172
2173
2174
2175
2176
2177
2200
2201
2202
2203
2204
22 07

—
—

4705
4706
4707
4710
4711
4712
4713

0617
2524
2025
2440
0405
2611

4714

7243

4715

4043

4716
4717
4720
4721
4722
4723
4724
4725
4726
4727
4730
4731

4043
1010
4055
5555
4010
1107
1040
2320
0505
0440
2025
1603

4732
4733
4734
4735
4736
4737
4740

1043
1440
5555
5540
1411

03 05

HH -« - HIGH SPEED PUNCH

16 03

4024

/OO WE WANT BOTH PRINTER AND DISK?
/NOPE. DONT ASSEMBLE IN THIS MESSAGE

2213
2213
2214
2214
2214
2214
2214
2214
2214
2214
2214
2214
2215
2215
2215
2215
2215
2215
2215
2215
2215
2215
2215
2215
2216
2216
2216
2216
2216
2216
2216
2216
2216
2216

4741

0120

4742
4743
4744
4745
4746
4747
4750
4751
4752

0543
2040
5555
5540
1411
1605
4020
2211
1624

4753
4754
4755
4756
4757
4761
4762
4763
4764
4765

0522
4322
4055
5555
4022
0660
7054
2213
6070
4004
1123

4766
4767
4770
4771
4772
4773
4774
4775
4776

1343
2440
5555
5540
2405
1405
2431
2005
3400

LINC TAPE

LINE PRINTER

47 60

RF08,RK08 DISK

—
TEL£TYPE\"

2217
2220
2221
2222

/
/

22 23

2224

22 25

2226
2227
2230
2231
2232
2233

/
/

EJ ECT

2234
22 35
22 36
22 37
22 40

2241
2242
2243
2244
2245
2246
2247
2250
2251

/
/
/
/

/
/
/

CHAIN TQ ThE NEXT PART

/
/

/
/
/

CHAIN

"P1P4"

PIP

0201
m(S2

PHOOL
EJECT

0003
0004
0005
00 06
ki007

0010
0011
0012
0013
0014

/
/
/
/
/
/
/

/
/

00 32

/
/

0035
0036
0037
0040
0041
0042

THIS

0016
0017
0020
0021
0022
0023
0024
0025
0026
0027
0030
0031

00 34

/
/

fe5015

0033

/
/
/
/
/
/
/
/
/
/

/
/
/
/
/

EJECT

THE FOURTH PART OF PIP

0043

6j0 4 4

0045
0046
0047
0050
0051

»5000
/
/

/
/

00 52

0053
0054

SOUR

00 60

0061

00 62

00 64
00 65

ASCI NP =B ININP
ASCOUT = B INOUT
ASCLST = B INLST
asclto =ASCLST

0066

00 67
00 70

0071
0072
0073

0063

0075
0 076
007 7

0100
0101
0102
0103

/SAKE DEFINITIONS AS BINARYCFOR NOW

ANYWAY)

/
/
/

5000
5001
5002
5 003

4562
4610

DECODE
ASCINP

ASCI I

31 02

310 4

/GET THE INPUT REQUEST NOW
/DISPLAY THE POSSIBLE INPUT DEVICES.

BFLAGl
BFLAG2
BC OUNT

OCA
DCA

50 04

3140

DC A

500 5

31 30

5006
500 7

3135
3103

01 04
01 05

50 10

30 73

0106

50 11

4616

DCA
DCA
DCA
OCA
ASM! F2
JMS

BOLOP
CNTHL2
CARD-1
ACRCHK

01 07
01 10
01 11
01 12

5012

45 73
43 77
51 74
52 00

SEARCH
AS CLST
ASCGO
JMP

ASCI I

50 13

5014
50 15

0113

01 14

0115
01 16

0057

00 74

/
/

00 55
00 56

5016

0117
0120
0121

5017

01 22

50 20

0123
0124
0125
0126
0127
0130
0131
0132
0133
0134
0135
0136
0137
0140
0141

50iJl

3561

ACRCHK

OR IG IN
BF lELO

/INITIALIE VARIOUS POINTERS AND COUNTS.
/ASSEMBLE NEXT CHECK IF CARD READER DEISRED.
/SEE IF ITS A "C" FOR THE CARD READER
/SEARCH THE LIST FOR A GOOD OPTION
/LIST OF GOOD CHARS
/WHERE TO GO FOR THEM
/NO LEGAL REQUEST THERE.

ASMIF2
CROLTT

CARD-1

/ASSEMBLE IN CARD POINTER
/CARD READER POINTER.

IS2
1S2

BFLAGl
BFtAGl
APART2

//SET FOR HIGH SPPEED READER
/SET FO R
TTY
/GO AND GET OUTPUT

ASMI FH

RF08

ASMSKP
DISC
SKP
TAPE
PONE
DCA
PONE
DCA
DIRECT
HPUSH

HAVE THE DISK?
/DO
/NOPE, SKIP OVER DISK INSTRUCTIONS
/SET UP FOR DISK OPERATION

CARD READER DESIRED.

2102
2102
5233

ASCHl,
ASCII,

JMP
/
f

5022
5023
5024
5025
5026
5027
5030
5031

4577
7410
4402
7201
3123
7201
3121
4563

50 32

44 04

ASRFa,
ASCT

/SET FOR TAPE OPERATION
/SET TO INPUT AND SOURCE

FWHAT

FTYPE

/LOOKUP UP NAME NOi^.
/AND SAVE IT AwAY

/GfT vn: i.uTPuT

OEvine

PG r.TS

JM^^

ASCL^T
APAht^

/GO Tu
/IS Li
/CmECK
/M OT

AS'^IF^

CAK:0-1

/ASbEMf<Lr.

0142
0144

biiJii
^>C3i4

4302
4/^J

fe;i44

:?2it>

^iJ?^

APAHT2, UlCODE:
ASCOUT
SEARCH

014!?

b^i5

4v5 7 7

AS CL TO

0146
0147

b0i7

bi;7

MSC(iG2
AS IF

015)0

5>B40

0151
0152
0153

b041

4642
b^33

J^-ii

^'-^i

^TLtN

T-iF^U. V. Ti

TYPE'l

*'P"

GO no

A,-.;-)

I\ITlALIi^E LlNEPHINTER.

•'<LPLY

/
/

5J1^4

0155
0156
0157
0160
0161
0162
0163
^164
0165
0166
0167
0170
0171
0172
0173
0174
0175
0176
0177
0200
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

CArtO-l

5765

ASCLPT,

/POrUFn

LPT2

P^^ll^TER

POINTER?
INITIALIHER.

CtiEuKLR A^^D

/
/

504i
5044

1^104

2104

ASCH2,
ASCT2.

BFtAG2
dFLAG2

ASMirt
ASMSKP

RFJrt

/OO

/;.OPl.

S zf

5045

45 77

t>l546

7410
4402

5047
5050
5051
5052
bliJ&3

5054
5055
5056
5057
5060
5061
5062
5063
5064

A^«F82.
ASCTT*

72k/l

3121
7240
11^2

/SET Tn HiGh OjTPUT
/SET TO TTY OOTPUT

ISi?

QI SC

SKP
TAPE
PONE
OCA

HAVE THE DISK ROUrUJES?
:^^1P next T^O INSTRUCTIONS.
/SET UP FOR DISK OPERATION
.ME

/SET FOR

FTYPE

TAPE OPERATIQM. SHOULD THERE BE ONE.

/SET FOR SOURCE MOOD.

^^ONE

BFLAGl
TAO
BrLAG2
TAD
SPA CLA

1104
7710
5406
4566
4403

FILEC
PUSH
HFOP
A3£T I
J^S I
t3FLAG2
TAO
S^A CLA

4762
1104
7640
4405

/IS IT MASS STORAGE TO MASS STORAGE.
/????
/YEP. DO TRANSFER NOW.

/SAVE OOTPUT FILE INFORMATION
/BRING IN INPUT FILE INFORMATION
/SET UP SEQUENTIAL TAPE INPUT
GOING 10 TAPE
/ARE
/NO.

LEADER

WE BETTER GENERATE SOME LEADER NOW.

/
/
/
/

5065
5066

6016
6032

/INITIALIZE THE HIGH SPEED READER
/AND CLEAR THE TTY FLAG ANU THE AC,

ANTAPE* 6016
6032
/
/

5067
5070
5071
5072
5073
5074
5075
5076
5077
5100
5iai
5102
5103
5104
5105
5106
5107

1102
7640
5274
4763
7410
4574
0142
1026
3121
1073
7640
5313
4573
5165
5372
4764
5312

5110
5111

4350
5267

AlOOP.

CNTRLifi

INPUT DEVICE POINTER.
/FROM A FILE?
/NOPE.
/YEP. GET A CHAR NOW
/SKP OVER BELOv^ GET.
FROM A FILE. GET THE CHAR NOW. AND
/IF NOT
/MAKE I^JTQ A GOOD ASCII CHARACTER.
/WITH PARITY BIT ON.
/AND STORE AhAY.
/WAS A CONTROL I TYPED?

AEND

/YEP.

AALIMC
ABAD

/CHECK TO SEE IF IT S
IGNORE IT.
/ IT ISN.T

APUTIT
AlOOP

/CHAR OK AS IS. OUTPUTTIT.
/GO BACK AND GET ANOTHER ONE.

BFLAGl
TAD
S£A CLA
,+3
JMP
AAGET
JMS
SKP
I

AUXIiNi

AND
TAD
OCA
TAD
S£A Ci_ A
JMP
SEAHCH
ACl
AGl
JMS
JHP

Ll77

jMS

FTYPE

/GET THE

00 END
/SEARCH FOR POSIBLE SPECIAL CHARACTERS.

240-337 LIMITS.

AOK»

Jt^P

Ll77

eiJ4i

/
/

K243
0244

5112

5267

02 4&
22 46
02S?0

11Z2
7650

0251
0252
0253

5115
5116
5117

532i6

02 54

5l2ii

0255
02 56

0257
02 60

0261
0262
02 63
02 64

0265

51 22
51*^3

5124
5125
5126
5127
5130
5131

4476
5265
4334
1372

AENa

03 22

0323
0324
0325
0326
0327
0330
0331
0332
0333

AE^D2

/YEP. IG\0"'E SI ABOARD PAPEH TaPE Cf^AP.
/ASK FCK :-!QRE TAPES??
/HE S
GUT ANOTHER TAPE.
/PLACE A C'^ IN
HE BUFFER.
THE EOT-if CHAK
/GETE
/A^D Pl«CE In The RUFFEf^
JMS
APUTIT
/PLACE IT OUT There
/IF LASS STOREAGE IT -mEVEH RETUHnS TO HERE
/PLACE A RUBOUT Qh
BUS
/AND SE^U IT OJT
/DO ANi OTHER CaRRIGE RETURN.
/THEN GENERATE iRAiLER
/ANiD FINALLY GO BACK TO PIP

MASS INHJT?

A.viTaPE

a aBL An
r TY PI

APiJl IT

OCA
JMS
JMS
LE ADLH
PIP

FTYPE

JMS
JMP

ACHR
aluop

/COMES HERE IF
/GET .vjEXT CHAR

ACl

/GENERATES
/215

/
/

0307
0310
0311
0312
0313
0314
0315
0316
0317
0320
0321

/IS

DC A

02 70

03 06

HFLAGl

0:.E

CLA

JMS

0271

02 76

/HAO ChAs. get ..EXT

31 21

0277
0300
0301
0302
0303
0304
0305

AlOjP

435^
7240
3121
4350
^334
44^5
5552
/

5132
5133

JHP
^^S
jyP
jxs
TAD

AE^D2,

02 66

02 72

TaO
S:-^A

0267

0273
0274
0275

t?113
!?114

B247

AH AD
/
/

4334
5267

ACH,

APUT IT
ACf<fJ

CR ENCOUNTERED,

/
/

5134
5135
5136
5137
5140

ACRR

5141

70 41

5142
5143

3121
4350
7240
3121
4350
5734

5144
5145
5146
5147

1365
3121
4350
1144

TAD
DCA
JMS
TAD
CIA
DCA
JMS
MONE
DCA
JMS
JMP 1

FTYPE
APUTIT
M212
FTYPE
APUTIT

CR.LF. RUBOUT

/OUT GOES THE

FTYPE
APUl IT

ACRR

GOES THE RUBOUT
/RETURN

8FLAG2

/SENDS A CHAR ALONG CORRECTLY
/WHERES IT GOING?

/OUT

/
/
/

5150
5151
5152
5153
5154
5155
5156
5157
5160

0000
1104
7640
5356
4761
5750
1121
4575
5750

APUT

T »

TAD
Sit A

JMP
JMS
JMP
TAD

CLA
.

AUXOUT
JMP I

+ 3

AAAP JT
APUT IT
FTYPE

APUTIT

/TO THE SEQUENTIAL DEVICE
/PLACE IN MASS BUFFER.
/AND RETURN
/GET THE CHAR
/GOOD BYE
/AND RETURN.

/
/

5161
5162
5163
5164

5200
4514
5403
1253

AAAPUT
ASETI,
AAGETi
AALIMC.

03 34

0335

03 36

0337

AAPUT
SET!

AAAGET
GGLIMC

/LIMIT CHECKER

JMP

0340
0341
0342

5165

03 43
03 44
03 4tj
03 46
03 47
03 b0

51 70

51 66

0215
0300

loo 0 /

02 43
A S M I r if

m 71

015 A7

31
51 /3

AA oL AH
AO 1 1

0351

03 52

03^3
0354
03 55
03 56

0357
0360
0361
0362
0363
0364
03 65

0366
fe53

0370
0371
0372
0373
0374
0375
0376

1 f

TERMC-44

A Lf:GAL CHAR???
ASSLMBLE INTO THE EXCEPTION TABLE,

/IS 44

24 4
24 7
23 2

/NO.

4211

/END OF THE LIST

f
y

5174

SC1 1 7

rr n

ASCH

51 75

ASM I FN

5176
51/7

ASRF8
ASCTl

50 22

5020
/
/

/
/
/
/
/
/

/
/
/

EJECT

RF08

/DO WE HAVE DISK?
/YEP. ASSEMBLE IN BRANCH

0377
0400
0401
0402
0403

/
/

04 06

/
/
/

0000

!?2 05

5165
5470
1121
1146

5206

77 10

t)207

5220
1121
1147
7700
5220
1121
0024
4253
5600

5202
5203
5204

0424
04 2t>

52 14

0426
0427
0430
0431
0432

5215
5216
5217

SEARCH
ACl

AAAl,

5220

5600

AP,

5221
5222

1365
5216

5223
5224
5225

1060
1364
5216

APCR,

AATAB,

04 47

AAEND.

0467
0470
0471
0472
04 73
04 74
04 75

JMP

TAD
JMP

5226
5227
5230
52^1
5232
5233
52 34

5235
5236
5237
5240
5241
5242
5243
5244
5245
52 46

5247
5250

4253
1354
7040
0103
7650
5236
4253
5227
1353
J120
1363
3122
1363
/041
1356
3117
7201
3121
4404

TAD
TAD

JMP
/
/
/

04 66

/GET THE CHAR

/TOO SMALL.

NOG

REGULAR CHAR.

/TOO BIG. IT S NO GOOD.
/GET THE CHAR AGAIN
/JUST THE LOW ORDER BUS.
/PLACE THE CHAR IN THE BUFFER.
/AND EXIT

AAPUT

/BAD CHAR.

AL43

/CR FOUND. PLACE

AA Al

/STICK

"43"

THE BUFFER

BUFFER

0446

04 60
04 61

AG2
TAO
FTYPE
TAD
M240
SPA CLA
JMP
AP
TAD
FTYPE
TAD
M340
SMA CLA
JMP
AP
FTYPE
TAD
AND
L77
JMS
AAAAAA
JMP I
AAPUT

04 44
04 45

0462
0463
0464
0465

/CHECK F OK A SPECIAL CONTROL CHAR.
/SAME LIST IS OK.

04 35

0450
0451
0452
0453
0454
0455
0456
0457

/
/

04 33

0436
0437
0440
0441
0442
0443

AAPUT,

45 73

5210
5211
5212
5213

0434

MORE OF THE ASCI I HAIMOLER

/
/
/

04 23

LUTlE FROM PREVIOUS PAGE.

0405
0407
0410
0411
0412
0413
0414
0415
0416
0417
0420
0421
0422

THIS PAGE OVERLAPS

AL40
AAAl

/CONVERT TAB TO

AS MI FN

TERMC-44

ASMSKP
PFOUR

TAD
JMS
TAO
CMA
AND
SNA CLA
JMP
JMS
JMP
TAO
OCA
TAO
OCA
TAO
CIA
TAD
OCA
PONE
OCA

AL40
AAAAAA
AAAORG

/IS 44 THE END OF FILE CHARACTER?
/NO. 2ER0 IS. IGNORE NEXT TWO STATEMENTS.
/DOLLAR SIGN IS THE END OF BUFFFR CRAP
/MAKE IT INTO A DOLLAR SIGN
/AND PLACE EOF CHAR IN THE BUFFER.
/SEE IF BUFFER IS WRITTEN OUT.

eOLDP

/BY CHECKING ENDING ADDRESS

/BUFFER IS CLEAR AND WRITTEN OUT,
/BUFFER STILL IN USE. ADD 1 CHAR AND SEE IF
/NOT DUMPED. WAIT.
/GET THE UNIT
/AND FLACE AWAY
/GET THE FIRST BLOCK
/AND STASH AWAY.
/GET THE FIRST BLOCK

HPUSH

AAAAAA
.-6
AAUN IT
FUNI T

AABLOCK
FBNUM
AABLOCK
aaoutb
fSlil

/ADD IN NEXT BLOCK TO GET
/AND STASH AWAY.
/SET FOR SEOURCE

SUE.

FTYPE
/NOW STASH THIS AWAY FOR FILEC TO USE.

04 76
\dA 77

52 51
52 52

45 65
54 06

/h EG L r
!

01301

/
/

Mb 02

0503
0b04
0505
ia*7

0^07
0510
0511
0512
0513
0514
0515
0516
0517
0520
0521
05 22

05 30

05 32

0533
05 34

0535
05 36

0537

J /;

AAAA AA

3132
1135

0 u'T

U\ IT

C ON f I GU AK Ta T I ON .

OlrtCTj^y TYPE COPY.

5257
526i^

5261
52 62

5263
5264
5265
526t)

5267
52 70

/PLACES HALF

»'

t^lTEvPl
OCA
TAD
aF IlLJ
SiK CLA
JMP
AA A

i?256

5303
2135
1363
3356
1354
3103
7240
3130
1064
3134

BF UL j

AABLOCK
AAOuTd
AAAOHG
BOLDP

TAD
OCA
TAD
DCA
mone:

CHAR

ThL PUFFER.

/Fh^ST TIxE Th-JQUGH?
/NOPE.
GNORl bETUP
/SET SwHCH
/GET STAHT OF Hl.'viARY CKAP.
/AND SET UP t^RlTE BLOCK.
/GET THE LOCATION OF STAHT
/AMD SAVE I.N THE ADDRESS
/SET THE SWITCH TO PLACE IN LEFT HALF OF^O'^0.
I

ORIGIN

OCA
TAO
UCA

M4 00

ASMl FN

STAR20-1

ASMSKP

13 bl
35 03

TAO
OCA

2103
1362

iSi

ISH

A5262
SOLOP
BOLOP
A6043
BOLOP
BOLOP
BTEMP3
0TEMP3

TAO
DCA

AL43
AL ASTC

BTEMP3

/SET ThE ^ORD C0U:4TER
/TO 400 k.0H0S TO GO I »l BUFFER.

/OO WE WArvT TO STICK IN A "*20" AT BEGINNING OF FILE???
/NOPE. OOrvT ASSEMBLETHEM IN,

52 71
52 72
52 73
52 74
52 75
52 76
52 77
53 00

TAO
OCA

35 03
21 03

ISi

2134
2134

/GET

"»20"

ANiO

PLACE IT

/IN FIRST TWO WORDS OF FILE.

/BOP UP THE

POINTER.

/INCREMENT THE BUFFER COUNTER BY 2.

0541
0542
0543
0544
0545
0546
0547
0550
0551
0552
0553
0554
0555
0556
0557
0560
0561
0562
0563
0564
0565
0566
0567

5301
5302

1365
3366

5303
5304
5305
5306
5307
5310
5311
5312
5313
5314
5315
5316
5317
5320
5321
5322
5323
5324
5325
5326

1132
7041
1365
7640
5315
1366
7041
1365
7650
5653
1132
3366
2130
5330
1132
7006
7006
7006
0053
3503

05 70

53 27

56 53

5330
5331

7240
3130
1132

k3573
05 74

/
.J «^

05 40

0571
0572

T ht

L)J

5253
5254
5255

0523
0524
0525
0526
0527
0531

/AMD

LEC

/TELL BUFFERS WE JUST PUT A "43" IN IT.
/8Y PLACING IT IN LAST CAR INSERTED.

AAA*

TAO
BTEMPl
CIA
TAO
AL43
S£A CLA
JMP
+6
TAO
ALASTC
CIA
TAO
AL43
SNA CLA
JMP I
aaaaaa
TAO
BTEMPl
OCA
ALASTC
ORIGIN
IS2
AAA2
JMP
TaO
BTEMPl
RTL
RTL
RTL
AND
L7 700
OCA
BOLOP
JMP 1
AAAAAA
,

/GET THE CAR
/IS

/NOPE. IiMSERT IT
/GET PREVIOUS CHAR
/W^S

ALSO

/YEP. IGNORE ir.
/UPDATE OLD CHAH

/TEST LEFT OR RIGHT SWITCH
/RIGHT HALF
/LEFT HALF

/PLACE i;. LEFT HALF OF WORD
/AND STASH AWAY.
/AND EXI T NOW.

53 32

AAA2,

MGNE
DCA
TAO

OR IG IN

BTEMPl

/RESET HALF S^v TCI
/PLACE I;m right HALF OF WORD.
I

5333
fcJ!?76

0;>77

0600
0601
0602
13604
0601?

0606
5^607

0610
0611
0612
0613
0614
0615
0616
0617
0620
0621
06 22

0623
0624
062b
0626
0627
0630
0631
0632
0633
0634
063b
06 36

0637
0640
0641

15^3

ANO
TAu

3:?03

Di;A

53 3 7

70^^

534^
5341
5342
5343
5344
5^45
5346

^l 34

isi

5653
1354
3103

JMP
TAO
QCA
TAD
OCA
TAO
TAD

53 4/

5350
5351
5352
5353
5354
5355
5356
5357
5360

-^^2^

NOP

liJ 64

3134
1356
1367
7650
4567

AAUN IT
AAAOMG.

AAOUTB

AAOul

AALIM

/RESET CuUNTErJ.
/GET THE CUTPUl BLOCK
/^ILL IT EXCEED WORKING AREA?
/YEP,

WILL. GIVE ERROR ^-^ESSAGE.
OUT FULL BUFFER.

/l^HITE

BUFFER
1

UP taLOCK

AAOUTB

/BUR

AA AA AA

/AND EXIT

ASMI FN

ST AR23~1

ASMSKP

/DO WE WA^T THE "»20" LITE^^AlS
/NOPE. DON T PUT THEM IN.

23 56

b653

JHP

DSYS4SAAUNI T
/
/

5361
5362

5262
6043

5363
5364
5365
5366
5367

0370
0040

5262
6043

A5262,
A6043,
/

20 43

^000
7310

AABLOCK SYSBSLOCK
.

AL40,
AL43

40
43

ALASTC

AALl M,

-sysht- 1

/MAXIMUM

SUE OF

THE WORKSPACE.

/
/
/
/
/

0651
0652
06 53

/
/
/

5370
5371
5372
5373

!5132

AGli

5112
5112
5112

06 63

0664
0665
0666
0667
0670

BTLMH3

SY SB IN

/
/
/
/

06 61
i£662

M40i^

ITE

0301
^000

06 50

0660

BOLDP

64 00

0644
0645
0646
0647

06 57

AA AA AA
AA AOr^G

SNA CLA

4!? 72

0001

BTlMP3
I

/AND ^lace: it aa ay
/That kLl>
/Th13 Ca\ skip if f?UFFEj^ = 74i:^
/1 :4C-^^^'t ,T thl cou\tlk. all 00 NE i^ITh
/'vGPE. '?jFFf, H STILL GOOD.
/oUFFtr^ fULL. -^tlSET POIMTER.
.

21.-^3

06 42
06 43

0654
0655
0656

L 7^

53 34

5335
5336

5374
5375
5376

5112
5113
5110
/
/

06 71

0672

06 73

ACR
ABAD
ARAO
ABAD
ASMI F2
ABAD
ABAD
AEND
AOK

TERMC-44

/SHOULD WE IGNORE DOLLAR SIGNS?
/YEP. ASSEMBLE IN THE POINTER

IN???

06 74
06 75
06 76

0677
0700
0701
0702
0703
0704
0705
0706
0707
0710
0711
0712
0713
0714
0715
0716
0717
0720
0721
0722
0723
0724

/
/

5377
5400

5047

5401
5402

5045
5044

50 43

ASCG02» ASCH2
ASCII
ASMIFN
ASRFttS

ASCI2
/
/
/
/

/
/
/

/
/
/
/

/
/
/

EJECI

Rf0a

/DISK THERE?
/YEP.

07i^5

0726
0727
0730
0731
0732
0733
0734
0735
0736
0737
0740
0741
0742
0743
0744
0745

/
/
/

/
/

5403
5404
5405
5406
5407
5410

0000
7200
1135
7640
5215
2135

/MAIN BUFFER GETTER ROUTINE

CLA
TAD
BFIELD
S2A CLA
JMP
AAGET2

BFIELD

IS2

/ARE WE ACTIVE?
/YEP. IGNORE NEXT.
/SET STATUS SWITCH

"•20"

AS Ml FN

STAR 20-1

ASMSKP

/DO WE WANT TO SKIP PAST
/NOPE. NO #20 SKIP.

JMS
JHS

AGETl
AGETl

/GET A WORD
/GET TWO WORDS (BYPASS "•20")

OR IG IN

/WHICH HALF?
/RIGHT HALF
/GET A WORD.
/AND STASH AWAY
/RETURN ^IJH ITS VALUE.
/SHIFT LEFT HALF OF AC TO THE RIGHT
/GO DOWN AND GET REST.

5411
5412

4644
4644

1
I

5413
5414

7240
3130

MONE
OCA

LEFT HALF OF WORD CHAR.

i>4l5

5416
i54l7
54 20
i)421

07 74

54 22

0775

5423

2130
5224
4644
3103
1103
4550
5227

07 76

0777
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014
1015
1016
1017
1020
1021
1022
1023

AAAGET

07 60

0761
0762
0763
0764
0765
0766
0767
0770
0771
0772
0773

kHlCH OVERLAP SOME MORE FROM THE PREVIOUS PAGE.

/
/

07 46

0747
0750
0751
0752
0753
0754
0755
0756
0757

MORE ASCII HANDLERS

AAGET2»

ISH

JMP
JMS
DCA
TAD
R0R6
JMP

AAGET3
AGET
I

BOLOP
BO LOP

AAGET4

5424

7 2 40

54 25

3130
1103
0024
3121
4573
5460
5464
1121

5426
5427
;?430

5431
5432
5433
5434
5435
5436
5437
5440
5441
54 42

AAGET3, MONE
DCA
AAGET4,

10 56

7510
1025
1224
02 43
56 03

TAD
AND
DCA
SEARCH
AAGLl
AAGOl
TAD
TAD
SPA
TAD
TAD
AND
JMP I

/
/

5443
5444

0377
4525

A377
AGETI,
,

377
GETI

OR IG IN

BOLOP
L7 7

FTYPE

FTYPE
M40
L100

AAGET3
A377
AAAGET

/RESET RIGHT-LEFT SWITHC.
/GET THE RIGHT CHAR
/JUST GET 6 BITS
/STORE AWAY.
/CHECK FOR A NO NO,

/F IGURE OUT CORRECT 81 T 4
TYPE CHARACTER
/>40. A 20 0
/<40 A 300 TXPE CHAR,
/240)
(ACTUALLY
/ADD IN 240
/JUST MAKE IT6 BITS
/AND EXIT.

5445
5446
5447

1143
7041
5603

AACR.

1030
1031
1032

5450
5451
5452

AAAT AB

10 33

54 53

7201
1054
1026
56^3

ltJ24
lB2t?

1026

M215

TAO

/CARRIGE RETURN

CI A

JMP

AAAGET

10 27

1034
1035
1036
1037

1040
1041
1042
1043
1044
1045
1046

POME
TAD
TAO
JKP

L10
L2C^»3
I

5454
5455
5456
5457

73ti5

AAAEND

1061
1^526

5603

PTWO
TAD
TAO
JMP

L3fc;

/EXIT WITH

TERMC-44

/IS 44 THE END OF FILE CHAR?
/YEP. ON 44 GO TO THE CONTROL

CONTROL

IN THE AC.

/
/
/

5460

0000

AAGL1»

ASMIF2

10t?0

44
43
47

5461
5462
5463

0043
0047
4037

GENERATOR.

/END OF LIST

4037
/

AAGOl
5464

5454

10 57

1060
1061
1062
1063
1064
1065
1066
1067
1070
1071
1072
1073
1074
1075
1076
1077
1103
1101
1102
1103
1104
1105
1106
1107
1110
1111
1112
1113
1114
1115
1116
1117
1120
1121
1122

L200
AAAGET

1047

1051
1052
1053
1054
1055
1056

AA AGlT

5465
5466
5467

ASMIFN TERMC-44
AAAENO
TERMC-44
ASMIF2
AAAGET+1
TERMC-44
ASMIFN
AAAEND

/00

THE END OF FILE CHARQACTER.

/44 (DOLLAR SIGN) IS THE TERMINATOR.
/IS DOLLAR SIGN LEGAL?
/NOPE. IT S THE END OF FILE CHAR.

AACR
AAATA8

5445
54^0
5404

AAAGET+1
/

5470
5471
54 72

5221
5220
5220

AG2»

APCR
AP
AP

ASMIF2
5473
5474
5475
5476

TERMC-44

/ASMEBLE IGNORE CHARACTER

DOLLA.R IS THE END OF FILE CAHR.

AP
AP
AH

5220
5220
5226
5223

AAEND
AATAB
/
/
/
/
/
/

/
/
/
/
/

5477
5500

0200
0100

ABDI S,

LEFT+200
TOP=240
ZOO »vE ^ANT REMAKE OPTION OR THE DISK?
REMAKE1RF08
ASMIFN
/YEP. SKIP NEXT MESSAGE.
5
ASMSKP
"FAUXILIARY OPTIONS:
TEXT

1123
1124
1125
1126
1127

HC -«»
HD

Il3i3

1131
1132
1133
1134
1135
1136
1137
1140
1141
1142
1143
1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
1156
1157
1160

116i3

1160
1160
1160
1160
1160
1160
1160
1160
1161
1161
1162
1162
1163
1163
1163
1163
1163
1163
1163
1163
1163
1163
1163
1163
1163
1163
1163
1164
1164
1164
1164
1164

CGPV bPECIFED BlOCkS
Duplicate, tapl ? o.viTo i\"

/
/

HC
HD
HR

—

ASMIF£
ASMSKP

TEXT

"FAUXlLlAHY

/DO aL waM Hty.AKE MLS SAGE?
/YEP. PUT IN MESSAGE.

REMAKE

COPY SPECiriED BLOCKS
Duplicate tape a onto
REFORMAT FltEX"

QPTIOrviS:

/
/
/

/
/
/
/

/DO W£ WANT THE RF38 0PT10?^S.
PUT IN THE MESSAGE.
/NOPE. DON T

ASMIF£
ASKSKP

TEXT

"FAUXILIARY OPTIONS:

RF08

5501
5502
5503
5504
5505
5506
5507
5510
5511

0601
2530
1114
1101
2231
4017
2024
1117
1623

5512

7243

5513

4043

5514
5515
5516
5517
5520
5521
5522
5523
5524
5525
5526
5527
5530
5531

0340
5555
5540
0317
2031
4023
2005
0311
0611
0504
4002
1417
0313

5532
5533
6534
5535
5536

2343
0440
5555
5540
0425

40 43

— « COPY SPECIFIED BLOCKS

1164
1164
1164
1164
1164
1164
1164
1164
1164
1164
1164
1165
1165
1165
1165
1165
1165
1165
1165
1165
1165
1166
1166
1166
1166
1166
1166
1166
1166
1166
1166

5537
55 40

5541
5542
5543
5544
5545
55 46

5547
5550

2014
1103
0124
05 40

2401
2005
4060
4017
1624
1740

DUPLICATE TAPE
5551
5552
5553
5554
5555
5556
5557
5560
55 61

6143
2340
5555
5540
0317
2031
4023
3123
2405
S

5562
5563
5564
5565
5566
5567
5570
5571
5572

— • COPY SYSTEM

1543
2540
5555
5540
0317
20 31

4025
1611
2434
U -

COPY UNIT\"
1167
1170
1171
1172
1173
1174
1175
1176
1177
1200
12131

1202
1203
1204
1205

/
/
/
/
/
/
/
/
/
/
/
/
/
/

EJECT

ONTO

1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1220
1221
1222
1223

/
/
/
/
/

«5600
/
/
/

/
/

/
/
/

12 24

122o
1226
1227
1230
1231
1232
1233

12 34

123t)

/
/

1236
1237
1240
1241
1242
1243
1244
1245
1246
1247
1250
1251
1252
1253

/
/
/

CINPUT =ASCrNP
COUTPUTsASCOUT

t?604

4562
5477
1120
0060
7450

5605
5606
5607
5610
5611
5612

7201
/041
3365
4573
5755
5761

i>61i

5<i00

5600
5601
56152

5603

ABSOL

/SAME AS SOURCE INPUT(FOH NOW)
/SAME AS SOURCE FOR NOW,

DECQDf
w u w U wti
A6DIS

/GIVE THE MFSSAGF ANPI WATT FPIR L RFPJ Y
/ABSOLUTE DISPLAY CRaP,
/GET THE NUMBER OF ADDITION AL
UNITS.
/ONLY 3 GOOD BITS ALWLOEO.
/WAS IT ziERO?
/YEP, MAKE IT INTO A ONE.
/COMP TO SET UP COUNT
/AND STORE AWAY IN COUNTER SET,
/LOOKUP THE RELYP.

TAD
AND
SNA
PONE
CIA

FUNI T
L7

DC A

A8STMP

SEARCH
ABLl
ABGl
JMP

ABSOL

/ILLEGAL REPLY.

INUNIT
IN6L0CK
outblock

/COPIES 0 TO 1 OR MORE TAPES.
/SET UP INPUT UNIT AND BLOCK TO

OUTUNIT
CML RTR

/SET THE OUTPUT UNIT TO 1
/2000
/1000. A 100k5 BLOCK COPY.
/SET UP SI^E.
/RECALL THE NUMBER OF COPIES TO MAKE
/AND SAVE IN THE COPIER PARAMETER TABLE.
/THEN GO DO OCPY,
/RETURN TO PIP WHEN DONE

12 54

1255

/
/

12 56

1257
1260
1261
1262
1263
1264
1265
1266
1267
1270
1271
1272
1273

THIS IS THE ABSOLUTE BLOCK HANDLER

5614
5615
5616
5617
5620
5621
5622
5623
5624
5625
5626
562/

3103
3102
3104
7201
3105
7332
7010
3117
1365
3106
4554
5552

DUP,

DCA
OCA
DCA
PONE
DCA
CLA cut
RAK
DCA
TAD
DCA
COPY
PIP

FSI2E
ABSTMP
OUTN UM

0«

OUTPUT

12 74

1275
1276

5630

12 77

56 31

1300
1301
1302
1303
1304

5632
5633
5634
5635

4562
4610
4573
4^77
5674
5230

ACOHY,

DECODE
CI NPUT

/GET THE INPUT DEVICE AND BLOCK NUMBER.
/FROM THE COPY INPUT CRAP,

SEARCH
ACPLl
ACPGl
JMP

/LOOK-UP ^^ePLY.
/INPUT LIST
/GO TO LIST
/NO GOOD REPLY FOUND

ACOPY

/
/

lsJ05

1326

/
/
/

lJli8

1311
1312
1313
1314
1315
1316
1317
1320
1321

ASM
t?636

457 7

56 37

/4 10

564»a
56 41

44ii32

5642
5643
564i?

52 3 0

1324
1325
1326
1327
1330
1331
1332

5646

li31

56 47

31 02

5650
5651
5652
5653
5654

4562
4703
4573

13 33

56 55

AC0PY2

13 3d

1336
1337
1340
1341
1342
1343
1344

/bLl

rjK

lA rt.

O
Or-

T \t l;

FU N I T
y

AGETN
ACOP Y
AG NU M
I

' (~

/dL!
/SAv

INUi'i I T

OaCGOE.
CO UT Pu T
SE Ar^CH
AC PL 1
AC PG 2
JM P

AS M

NBL OCK

IHL

liNfrUIT
i

{

Ui'J 1

T
1

\i O]*i\i

THE bicE oLCuASt UEtuUL nibn rAr
/bET The SIAKTI«\<C> tjLuCK MJ^bEn,
/NOT All legal numbers.
/GEI THE gLuLK "JUMdtK
/ANO SAVE Ah AY,
/GET THE OUTPUT DEVICE

/DISPLAY CHOICES
/LOOK UP THE WLrLY
/NOT

AC OP Y2

RF0O

LEGAL ritPLY

/(J I S K f

ASMS aP
56 56

43 77

7410
44 02

1346
1347

AM
70 Ol
56 62

I3i?0

56 63

1351

13t?4

5664
5665
5666
5667

13 55

56 70

45 65
13 65

1356
1357
1360
1361
1362
1363
1364
1365
1366
1367
1370
1371
1372
1373
1374
1375
1376
1377
1400
1401
1402
1403

56 /I

3106

5672
5673

45 54

1353

/\Q 01 S< hAIvOlE^S ThE-^E,
/SET 'jP f 0^ JISK

/
/

5 657

13:?2

43 77
5 7 00
52 50

1334

13 45

/J 1 S KV

TAPE

Push
JMS
JMP
T AO
DCA

56 44

HF l^;6

SK P

ACOP Ti

Ta D
DC A

13 23

F £

D I SC

AC OP R

11 20
31 03

4566
4304

U2l

Sit*

AC no T3

T A PF

AU
DCA
jMS

FU N I T
UU U N 1

AGETN

JM P

AC OP Y2

TAD
OCA
POP
TAD
DCA
COPY
PIP

AGNUM
OUTBLOCK

3105
4304
5250
1331
3104

5552

/Nur c ,

n
U1 0r
u
Ck o

k r C\D Q 'J

FOR TAPE
TmF ('ORRFCT OUTPUT UNIT

/=iFT
/r,FT

IJP

/ f^NU

biADn AWAT,

/rcT
/bLl

Ti-ir
nL

/inU!

/bLf

Int.

ui
npk
DLUur\

oiftnlliVkj DLUUr\
/ A Nipi
Q
T A Cw AWAT,
A U A Y
/Ai\U
oiAon

IML DlcL Ur inc UUrT,
IHL NUnoLH Ur LUrlLo lU nA!\L
nL L ur T rA KA rIL L r\
/A imU b a V L i n
/ANU DU IT.

/rtLolUnt

abstmp
OUTNUM

/HLLALL

/
/

ACPL1=BINLST
/

5674
56/5
56 76

5677

5630

ACPGl,

ACOPH
ACOPY

/ILLEGAL REPLY
/LINC TAPE
/DISK?
/YES. DISK
/ILLEGAL

AC0PY2

/ILLEGAL

ACOPY
AC OPT
ASMI FN

56 40

5636
5630

RF08

/
/
/

5700

5650

ACPG2,

i\jiiMsri5
iNUnDLP\»

LLbbAL IMUnbLn

1 4 j 7

57i;i

50 6 J

57 iJ2
57 i'

P656

1*1 IS

ACOH T2
AS
r \
AC OF ''2
Au OP Y2

/DISK?
/its
/Illegal
.

/
14 1

5 ; '4

/CZKMt^lS F\h^l l\TO

T N
i_ I

14 14

'jC

1415
1416
1417

1 / </6

i^5i3

bE T

17 2 7

6123

F \ A

£ + 6^'0;? -1

171i3

536 4 k:

14 28
14 21
14 22
14 23

1/11
1712
1713
1714

5/31

14 24

l7 15
17 16

14 2iu
77 77

7 7 72
13 21

AA LO OP

7 7 o ld

11 2t

AlA

14 3ii

1/21

/ / 2iC-

-5 7

14 v5
14 32
14 33
14 34

17 22

^451

1/23

7 7

APO
JMP

17 24

112t!

AC A

1/23
1726
1/2/

7/60

143t)
14 36

a4 71

1437

1 73k5

1 •32

-11
APO
JMP
LDA

7/52

14t>l

14 S2
14133
14 54

14 55
14 56

y 2 43

ROL

1 / 33

156ii5

BL'L

1734

ii}*307

1 7 35

5 7 31

ST C

1736

13^)1
11 2ii

LDH

1743
1744
17 45

1746
1/4/

ADA
•60
ADO
A2£
CLR
SIC
XSK
JMP
JMP

7717
3/31
0470
0011
5731
02 22
77 14

7/52

14 57

1460
1461
1462
1463

175i4

0002

1465
1466
1467
1470

5751

2304

14 71

17p2

^^02

5753
5/54

5/04

14 76

ALD

^UMRtR( IF NOT THERE RETURNS TO

QThE^»JSIL

/IN DF

/SET

=01 .T

p-\A:'iE

uLCCK.

Twr

/GET
/IS IT

COu.T,

"vEXT

ChaR TROM FNAr'E.

/«HICh 13 L.'xD OF NUMbER?
/YEP
EXIT.
/ii>
IT TOO SMALL?
/( RllOw 6,:
.

)

AALL
I

/YEP
BAD CHAR
/IS IT TuO LAhGl
.

/(ABOVE 7/)
I

AAlL

/YEP. BAD CHAR,
/GET OLD TOTAL

/MULTIPLY 3Y

AGNUM

/MULTIPLY DONE
/REGET The NUMBEh

!«•

1
I

AGNUM
I

/CHOP OFF CHAR BITS
/ADD IN OLD TOTAL.
/IF NOT ^EHO JHZU SKP
/IF £ERO
iZHQ AC TO 01^00. JN CASE
/STASH A^AY SOMEPLACE 0 OTHER.
/bOP UP COUNT
/MORE TO GO.
/TOO MANY 01 GITS. NUM TOO LARGE.
.

AGNUM
I

AAlOOF
AALL

POP
PMODE

ALD,

/GET INTu PMOUE
AGETiM

ISif

/GO TO GOOD RF luRN

LHODE
/

AALl

1472

1474
1475

/
/
/
/

14 64

14 7 3

/SET

KOi

AGNUM*

17 31

17 37
17 40
17 4 1
17 42

bM D I
77 77
jM P

1/1/

1 7 32

lDH

1725!

14 50

OV/t.L

SE T
-5

1426
1427

14 41
14 42
14 43
14 44
14 4i>
14 46

/GC-

L^OJE

POP
PMOOE
CLA
JMP
I

/
/

1477
1500
15^1

15 02

/GET

AGETN

INTO « MODE
/\ftl
RE SACK IN PMODE NOW.
/CLEAR The AC
/AND EXIT.

WAS 7777. WHICH IS EVIL IM

MODE,

lb03
y
f

1506

f
y

Ibid?

1510
Ibll
1512

57 55

03 03

ABLl

30 3

15 13

1514
1515
1516
15 17
l52i^

ASHSKP
323

57 57
57 60

03 25

32 5

RF 06

/REMAKE OPTION INCLUDED???
/YEP. PLACE CHECK CHAR IN LIST.
/DISK THERE
/NOPE. DO NTT OUT IN S AND U

4304

4304
/

5761

5630

ABGl

ACOPY
ASMI FN

REMAKE

KONV RT

15 25

15 27

57 62

74 00

1530
1531
1532
1533
1534
1535
1536
1537

5763

7405
5614

57 64

ASMI VI

RF 08

ASKSKP

AA SY SC

AAUNTC
DUP

/REMAKE OPTI QN?V?
/YEP, PLACE IN POINTER OPTION.
/HOW ABOUT THE POINTERS?
/NOT THERE

/
/
/

15413

/
/
/

15 41

1542
1543
1544

/
/

15 45

1546

/
/

15 47
15 50

16 01

0323

1526

1551
1552
1553
1554
1555
1556
1557
1560
1561
1562
1563
1564
1565
1566
1567
1570
1571
1572
1573
1574
1575
1576
1577
1600

REMAKE

5756

15 21

1522
1523
1524

ASMI FN
322
ASMI F2

ASMIFN
ASMSKP

CARO-1
30

/DO WE WANT LINE PR NT RT ER
/NOPE. DONT ASEEM8LE IT
I

? ??

/
/

5765

00bj0

57 66

1121
1376
7640
5765
4777
2104
5775
5043

5767
5770
57 /I

5772
5773
57 74

5775

LPT2 ,

TAD
FT YPE
TAD
I.PM320
S£A CLA
JMP I
LPT2
JMS I
LLPEJ2
ISi!

JMP I
ASCH2

BFLAG2
.

/LINE PRINTER CHECKER AND INITIALIZER,
/GET THE OUTPUT DEVICE
/IS IT A "P"
/?

/NOPE. RETURN TO CHECK SOME MQHE.
/YEP. GIVE TWO EJECTS TO GET THINGS GOING.
/PREPARE TO SET OUTPUT FLAG TO 3
/HETUHN AND ADO TWO MORE TO BFLGA2
/HIGH SPPEED PUNCH SETTER

5776
5777

7460
6323

LPM320, -320
LLPEJ2, lpe:j2
/
/
/
/
/

/
/
/

/"P"
/POINTER TO EJECTOR ROUTINE.

1602
1603
1604
160!?

1600
1607
1610
1611
1612
1613
1614
161&
1616
1617

/
/
/
/

ASMir2

ABSThP*

ASMIFN
ABSTMpsLPTii
/
/
/
/

/
/

1622

16 23

1624
1625

/
/
/
/

1627
16 30

1631
16 32

1633
1634
1635
1636

/L.P. ThLRE?
/NOPL. DEFINE THE TEMPORARY

16 20
16 21

16 26

CARD

/
/

/
/
/
/

EJECT

CARD

/L.P. THERE?
/YEP. USE ENTRY AS THE TEMP

NO*^

16^7
1640
1641
16 42

1643
1644
164^
16^6
1647
1650
1651
1652

/
/
/
/
/
/

GlT

/
/

the:

CHAIM

"PIP5"

last pakt of pip

00 03

0004
0005
00 06

0007
0010
0011
0012
0013
0014
0015
0016
0017
00 20

0021
0022
0023
0024
002»>

/
/

/
/
/
/
/
/
/

/
/
/
/
/
/
/
/

EJECT

0026
0027

m6^
i303l

ASMIFN
ASMSKP

fc3i3i2

2033
0234

/DO WE WANT THE isARO REaDEP ROUTINE
/NOPE. SKIP PAST THE MESS.

INi

ThERE??????

/
/
/
/

id(33i7

0036
1^037

0040
0041

00 42

8043

t3ia44

/
/
/
/
/

iat}45

0046
0047
0050
00t>X

CARD-l
2237-1415

6000

0000

CARD READER AND LINE PHIKTER ROUTINES.

COFLAG. 0000

0052
LY EXECUTE

00S3

/FOR JUMPS IN LINC MODE.
/ALSO USED AS THE CARD MOVING INDICATOR.

/JUHPS

00t>4

OVE THIS TO

0055

THIS CAN BE DONE BECAUSE

W£

*^ILL

/A HZA LOCATION OTHER THEN 0 OF THIS SEGMENT.
/THIS WORD MAY BE LOCATED ANYPLACE ON THIS PAGE

00 56

0057
00 60

0061
0062
0063
0064
0065
00 66

0067
0070
0071
00 72
0073

LMOOE

/OEFl!>fE

SYMBOLS

/TELL

WE RE BACK

0001

0002
0003
0004

0000
0000
0000

LMOOE IN CASE OF ADDRESSING ERRORS WHILE ASSEmBLUG

CDCUNT
0000
CPOINT.
CUSWT,
0000
CDCONT.
,

00 74
00 75
00 76

/
/
/

0077
0100
0101
0102
0103
0104
0105
0106
0107
0110
0111
0112
0113
0114
0115
0116
0117
0120
0X21
0122

PMODE

PMODE NOW.

/
/

RCSF=663l
RCHA=6632
RCR8=6634

/SKIP IF COLUM.Xi READY.
/REAQ IN AN ALPHA CHAR
/HEAD IN A B IN AR Y CH AR
/SKIP IF END OF CARD,
/START A NEW CARD MOVING AND SKlPlF OK.
/TURN OFF THE CARD 00;\IE FLAG.
.

RC SO =6 671

RCSE=6672
RCH0S6674
/

/
/
/
/

/
/

LiNC MODE k^HEN THIS FLAG IS NO N- HE RO [C ARD M0VING3
/IF YOU HAVE ANY DOUBTS ABOUT WHETHER THIS IS TRUE AFTER YOU MAKE
CHANGES, M
Ibi

012;5
43124

01 2t>

0126
0127

60 05
60 06
60 07
6^1i5

60 1

0012

00 00
32 00

0131

60 13

01 vS2

6ii 1

74 4 Z

01 36

0137
0140
0141
01 42
01 43
01 44
01 45

/IMTIALliE The CARD READER.

0A TA

/CLEAR ThL CARD MOVING FLAG.
/cll^^ The carl) i\ buffer flag.
/GET The first cqlu^in to be looked at.
/GET THE LAST COlUMinj TO OE DONE,

CD LI liu

/oLI

/\(\UC
/\Urt.«
/r-L'T

CDFl AG

DC A
DC A

3133
1136
1131
76 50
12 24

0133
0134
013b

CD I<N IT

9T E"^ P2

TAD
T AO

s
A
O Ki
pX A
TA
A n
U

DC A

r
**
l/L A
1

y T

60 1

0 X ox

OCA

n
0 A* T AA

6016
6017

1131

TA0

DATA

CM A

60 20
60 2

1136

InL

f £.
ft

TUC"

AL/i

nV ? >

<?TlPf
olJf^t.

Ti-|C
Int.

aCT

/NLG AT L IT
y
C TU
C riUCT
rlHol
IHL
/lo

Tad
BOLD 0
Sh A CL A

7 7 00

•*

79
1
C.

P'llilkitN:

S
?

T\i
\'
i

Twr
AQT
inc. LAjl
PATS
1

mi
nfN
L»U LU Miy
1)

<;rAM
O UA :X •

iaCT'5P'?
LAolff*

fy 0
i

4 5 £)7

6023

56 05

JM P

LJ 1

/
/

60 c4

110

/y79
/ t

73 46

0
M T MP?
F
n r\ f
t_ L

/RFAnS A THAR FROM THF CARD RFADtR/no WF WANT TARD REAnFR INPUT??'?
/CHECK THE INPUT FLAG.

01 10

COLl 10

"irrwij
^1*' IL
Jt

0146
01 47
01 !70
01 51
01 1?2

0153
01 54
01 55

0156
0157
0160
0161
0162
0163
0164
01 65
01 66
10 J,

ai
/i0
101 701

01 71
01 72
i 7/ 0

0! 1
Ic)

01 74

60 25
60 26
60 27
60 30
60 31
60 32
60 33
60 34

6035
6036
60 37
60 40
60 41
OlO •t
60 4 3
60 44
60 45
60 46
60 47
60 50
60 l5l

Cl SCJ

llJ

02 21

1102
7650

SNA CLA

52 34

jM P

2225
5314
1133
/ 640
5303
1200

IS i
JM P

76 40
52 54
66 72
52 77
22 00
45 64

TA 0

CDL2 40

+ 3

CO IS

/YEP. WE CwANT CARD READER INPUT
/NOPE. JMP THRIRD RETURN ADDRESS,
/IS? CDREaD AGAIN BEFORE EXITING.
/IS THE CARD ALREADY IN THE BUFFER???
/YEP. IT IS, FETCH A CHAR FROM IT,
/IS THE CARD MOVING????
/TESTA NO LI TTERAL
/ITS MOVING, CHECK TO SEE IF COLUMN IS READY.
/<;tart t hf r ar n nniNK now
/ITS NOT READY. WAIT AWILE BY RETURN TO USER.
/SET THE SWITCH TO SHOW THE CARD MOVING,
/2ER0 OUT THE CARD BUFFER.
/CONTAINS A 0000
.

CN OT R
CDFL AG

MO VE
rn3u F-

CO 8U F
50

TA 0

ox *rKl

DC A
nr A

rn »r ad

8TEMP2
TAD
S2A CLA
JMP
CONEXT
TAD
CDFL AG
SiJA CLA
JMP
JM P

00 50
1

BF LA Gl

r?C SE

6163
6164

01 77

0201
0202
0203
0204
0205
0206
0207
0210
0211
0212
0213
0214
0215
0216
0217
0220

/
wU nL Mu •

rn Pn wt
CP 0 1 NT
D U UU

l>|

/c:FT

r Pn I \« T

POINT TO FIRST CHAR OF CA RO BUFFER

/?FRn OUT THF CURRENT COlUMN COUNTER.

6054
6055
6056
6057
6060
6061
6062
6063
6064
6065
6066
6067
60/0
6071

DO 0 1

60 72

5277
1065
6141

6073
60 74

5277
6632
3065
2140
1140
7161
1136
7660
5277
1131
7161
1140
76 60

rn
uU iMu f
OU fin

/IS TMFRF

RC SF

THAR THFRF???

CH u R
1

RC RA

OCA

TEMP

ISif

BCOUNIT

TAD
CLL C^L
TAD
SNL SZA
JMP
TAD
CLL CML
TAD
SNL SiiA
JMP
TAD
LINC
LMODE

8C0UNT
CMA lAC
BOLOO
CLA
CNOTR
OATA
CMA lAC
HCOUNT
CLA
CNOTR
TEMP

/READ IT IN ALPHA NUMERIC TYPE
/STORE 1''^ TEMP
/BOP UP COLUMN COUNTER BY 1.
/GET CUHRENT POSITHON.
/13 BIT NEGATE
/IS IT BELOW THE STARTING COLUMN???
/YEP.
IGNORE IT,
/GET THE UPPER LIMIT
/13 BIT NEGATE
/HAVE ^E G0^4E TOO FAR???
/YEP. IGfxiORE THE CHAR.
/ALL IS WELL. RETRIEVE THE HCARACTER.
/NOW GO OVER TO THE LINC SIDE.

Z222

75
£0 76

1352
Mid2

0224
0223
60 7/

61^0
6101
6102

7200
66/1
5625
5322

02 32
02 3i

0234
0235
0236
023 7
0240
0241
02 42

0243
02 44
02 4b

0246
0247

02 60
02 61
02 62
02 63

0264
0265
0266
0267

CNQl Ri

jmP

02 73
02 74
02 75
02 76
02 77

0300
0301
0302
0303
0304
0305
0306
0307
0310
0311
0312
0313
0314
0315
0316
0317

AC l5 UEf I^ETLY .^OT gERQ i^HEN IT COMES HE ^E
Of oARD KLACHEn???
/\OPl, RETUh.M TO uSEf^ TQ wAIT AwHILE.

CDOD\E

/GO CONVERT STORLO CARD.

6141

CDNE XT #

010 4
0105

1 3<i 2

CDNXT2

6106
6107

74 50
53 16
10 56

61 10

6111
6112
61 13

L 1 '^C
l_M ODE
LQH
POP
PMOOE
I

0002

7510
1025
1240

/CARD I=\ HUFf-ER AND CONVERTED.
/LETS GE T A CHAR
/GET A CHAR. [COMES HERE IN LlNC MODE SOMETIMES^
/GET OVER INTO A DECENT MODE
.

CPU I NT

SN A

JMP

CDEOC

TA 0

M4 0

/IS IT Through (00=CR)
/YEP. END OF CARD.
/NOT DONE. SEE i^HICIh WAY TO ADD.

SP A
TA D

LI 00

CDL2 40

/01-37=301-337
/40-77S240-277

rn RE AD
rn RE AD

/AND EXIT TO SECOND LOCATION
/(OR THIRD IF CARD READER NOT CHOSEN DEVICE.

6114

£^225

61 15

t>6 25

CD IS 2»

IS i

JMP

/
/
/

61 16

31 33

6117
6120
6121

32 00

CUEOC,

1361
5314

DC A

BT EM P2

UCA
TAD
JMP

CDFL aG

/TURN OF THE CARD IN FLAG
/ALSO TURN OFF ThE CARD MOVING FLAG.

CD L2 15
CDISif

/GET A CR IN THE AC
/AND EXIT.

ISH

BTEHP2

/TURN ON THE CARD IN BUFFER FLAG
CAN LEAVE ON THE CARD MOVING FLAG FOR NOW BECAUSE THE CARD MOVING FLAG

/
/
/
/
/

6122

2133

CDDONE
S

0272

INTO 8 MODE.

/E'<!3
f^E

02 70
02 71

/SAVE TSL HALFwuRD IM THE BUFFEW,

/THE

CL A

6103

02 54

0255
0256
0257

CP 0

02 50

02bl
0252
0253

/AMD BACK

45226

02.51

PO P
/

£227
02 30

6123
6124

66 74

6141

TESTED FIRST
RCRU

/TURN OFF THE CARD DONE FLAG.
/AND GO Over TO LmODE

LIiMC

LMOOE
0125
01 26

00 61
76 57

0127

0062

SET I
-120
SET 1

01 30

02 34

CDBUF+50

0131

4003

STC

CDCUNT

/SET COUNTER TO 80 COLUMNS

CPOINT

/SET POINTER TO POINT TO LAST COLUMN+1

COSt^T

/TELL THE BLANK SCANNER TO DELETE BLANKS.

0132
0133
0134
0135
0136
013/
0140
0141
0142
0143
0144
0145
0146
0147

1020
3/77
1140
00 02

1302
02 03

0450
0456
6152
0301
1120
02 35

4004
1304

COLOOP* LOA
.4000
ADM
CPOINT
LOH
X5K
A2E
SKP
JMP
ROR
ADA
CDTAB
STC
LDH
1

/BACKSPACE
CPOINT
CDSWT

CDFUNT
1

COCONT
CDCONT

CHAR IN CARD BUFFEER.

/GET THE CHAR
/TEST THE BLANKS SCAN SWITCH.
/STILL SCANNING. CHECK FOR BLANK.
/NOT BLANK OR NOT SCANNING.
/IT BLANK. IGNORE IT.
/ROTATE RIGHT TQ PUT BIT 11 IN BIT 0
/NO^ ADD IN BASIC TABLA ADDRESS POINTER,
/GET TRANSITION CHAR ADDRESS.
/NOW GET THE TRANSITION CHARACTER.

03 20

0321
0323
03 24

0325
0326
0327

01 50
01 51
01 52
01 53
01 54
01 55

0156
0157

00 63
77 77
13 42
02 21
61 32
00 62
»1 00

03 42

0343

\^\J T \J ri }

bur UN

ST H

CP SW T
Lr U

ASK

JM P
SE T

/anu TELL
1

Cu CUNT

CDLOOP
CP 0

CDBUF" 1+4000
JM P

/
/
/
/

CD NX T2

WE RE NOT SCANNING BLANKS ANYMORE

/NOW STASH AWAY CONVERTED CHAR,
/HAVE hE DUNE 80 COLUMNSV?
/NOPE. GO BACK AND DO ANOTHER.
/YEP. WE VE DUNE 80 COLUMNS.
/SET THE POINTEW SO CDNEXT CAN GET THE CHARS,
/AND EXIT BUT FIRST GET A CHAR TQ SEND BACK

/
/

0160
0161
0162

0211
0215
4232

LPl,

211
CDL215, 215
4232
/
/

03 44

0345

03 46

0347
03 50

/
/

0351

03 52

0353

"id

OX \0*J

03 30
03 31
03 32
03 33

0334
0335
0336
0337
0340
0341

Qf T

EJECT

/TAB
/CR
/
END-Or- TAPE

0354
0355
0356
03157

03 60
03 61

0362
0363
0364
0365
0366
0367
0370
0371
0372

/
/

0163

0000

00 00

/USEU FOR ^tHOlNG OUT THE CARD BUFFER.

00 00

/80 COLUMN BUFFER

0164

CDBUF,
/

*CDBUF*50
0234

0000

/
/
/

THIS IS THE CONVERSION TABLE FOR THE CARO READER CHARS TO ASCII CHARS.

03 76

0377

/
/

0401
0402
0403
0404
0405
0406

0235
0236
0237
0240
0241
0242
0243

4061
6263
6465
6667
7071
7243
4047

0410
0411
0412
0413
0414
0415
0416
0417
0420
0421
0422
0423
0424
0425
0426
0427

02 44

/AT SIGN

75 42

0245
0246
0247

/s
/u
/w
/Y
/3
/%
/>

04 30

02 64

73 34

0431

0265
0266
0267

02 73

4601
0203
0405
0607
1011
3356
7450

0274

53 36

6057
2324
2526
2/30
3132
3554
4537
7677
5512
1314
1516
1720
2122
4144
5251
7334
4601
0203
0405
0607
1011
3356
7450
5336

0263

6057
2324
2526
2/30
3132
3554
4537
7677
5512
1314
1516
1720
2122
4144
5251

0433
0434
0435
0436
0437
04 40

02 50

0251
0252
0253
0254
0255
0256
0257
02 60

0261
02 62

02 70

0271
0272

CDTABf

0441
04 42

0443
0444
0445
04 46

0447
04 50

0451
0452

80 CHARACTER SCAN.

0375

04 32

03 73
03 74

/USED AS END OF CHAR CHARACTER INCASE

EJECT

/BLANK

/4
/6
/a

NUMBER SIGN
APOSTROPHE

//K

/M
/O
/Q

3
7

X
2
*

BACK ARRO^*
?

J
L
N
P
R

DOLLAR SIGN

/«
/B
/D
/F

C
E
G

)

(

04
04 54
04 5!?
04 56
04 57

/
/

0460
0461

43462
04 63

04 64
04 65

0466

04 67
04 70

/
/

LI NE

LINE PRINTER DEFINITIONS.

/
/
/

LSE=6651

04 74
0** 75
04 76
04 77

LCf = 6652

0500

lPK=6664

05 01
050iJ

/
/
/
/

LLB=66 54
LSQ56661
UCtis66 62

0503
0504
0505
0506

/
/

05 07

/
/
/

0510
0511
0512

0514
0515
0516

6275
6276
6277
6300

0000
7346
1104
/640

05 17

63 01

56 75

0520
0521
0522
0523
0524
0525
0526
0527
0530

6302
6303
6304
6305
6306
6307
6310
6311
6312

1721
3121
4573
6160
6356
1121
1147
7100
1025

05 31

63 13

76 20

0532
0533
0534
0535
0536

6314
6315
6316
6317

5720
1121
4333
5720

05 51

LPTEST, 0000
mthrle:

BFLAG2
tao
S2A CLA
JMP I
LPTtST
TAO I
LPSEQ
FTYPE
JC A
SEARCH
LPl
LP2
TAD
FTYPE
TAO
M340
CLL
TAD
LI 00
SNL CLA
LPEXIT
JMP 1
FTYPE
TAD
LPPUT
lpcomm, jms
JMP I
LPEXIT

/MAIN LINE PRINT CHARACTER CABOSH.
/IS IF LINE PRINTER IS THE CHOSEN ONEiOEVICE
/NOT THE CHOSEN ONE*
/GET THE CHAR
/PLACE IN SEARCHErt INPUT.

/GET THE CHAR
/SUBTRACT TOO BIG CHAR
/CLEArt LINC FOR NEW TEST.
/CHECK FOR LOWER LIMIT
/IS IT INSETWEEN 240-337???
/NOPE. IGNORE IT,
/GET THE CHAR
/AND OUTPUT THE CHAR.
/AM D EXIT
.

05 37

0540
0541
0542
0543
0544
0545
0546
0547
0550

0471
0472
0473

05 13

P«I -ntR ROuTi NE

/
/

6320
6321
6322

3767
3711
0000

LPEXIT,
LPSEQ,
LPCOt,

SEQEXT
SEQIN
0000

/
/
/

6323

0000

63 24

72 40

0
LPEJ2,
LP08O2, MONE

/GIVES TWO EJECTS ON THE PRINTER.
/REALLY A 17

0t>32

63 25
63 6

43 33
13 74

6327
6330

3322
7240
4333
5723

25 56

63 31

6:557
05 6kj

6332

LPPU T
TAD
JC A
lPiucS 03 »

ji'^S

kS563
056*?
t^565

63 33

00 0fej

6 3 34

3i(^ 6 5

6335
6336

2322
5343

DC A

13 74

lpck

LP08O4

0574
0575
0576
K577
060k:)

63 4 7

0601
0602
0603
0605

6350
6351
6352
6353
6354

4556
6661
5343
6652
1065
7500
6654
7510
6664
7200

06 06

63 55

57 33

06 04

TriE

dEGINjMNG

LPCCL

JM P

LP WF IT
LPf^204

tpwr IT

LP0dO5
LH0aO6

TAD
OCA
TAD
JMP
CHECKI
LSU
jhP
LCF
TAD
SMA
LLB
SPA
LPR
CLA
JMP 1

/PKr-jT:S A CHAK OR DOES A CONTROL CRAP.
/SAVE T n t C H A
/END OF THE LINE??
/HOPZ. Pr^IMT IT.
/RESET THE COLUMN COUNTER
/STA5H AWAY.
/SPACE 1 PR! NTEK L VU.
/COM -ION PuTTLR ROUTINE
/CHECK FOR A CCNTROL i OR SOMETHING.
/LINE PRINTER CLEAR????
/NOPE. WAIT.
/CLEAR The FLAG
/GET THE FUNCTION.
/IS IT A CONTROL,
/NOPE. MUST BE CHAR.
STICK IN BUFFER, R,
/IS IT PUSITIVE?
/NOPE. MUST BE CONTROL. tkP IT
/NOW CLEAR THE AC TO 8E SURE.
/AND RETURN TO THE CALLER,

lpcol
L7 770
LP CO MM

.-2

TEMP

LPPUT

/
/
/

/
/
/
/

06 16

63 56

63 61

6357
6360

6337
6371

LP TAB

LP2,

LPCR
LPENO
/
/
/
/

06 26

6361

0627
0630
0631
0632
0633
0634
0635
0636
0637
0640
0641
0642
0643

63 62
63 63

6365
6366
6367
6370

1373
4333
7325
1322
0060
7640
5361
5720

6371
6372

4323
5552

6364

LPTABt
LP0tiO7

TAD
JMS
,

PTHREE
TAO
AND
bZA CLA
JMP
JMP I

/BLANK
/SEND TO PUTTER ROUTINE.
/TO COMPCNSTATE FOR THE -2P4
/GET THE COLUMN.
/IS IT A MULTIPLE OF 8

LPTAB
lpexit

/??
/NOPE. GIVE ANOTHER BLAKN.
/AND EXIT.

JMS

LPEJ2

/GIVE TWO EJECTS.

LP 40

LPPUT

LPCOL

/
/

LPEND,

Pi P
/
/

06 44

0645
0646
0647
0650

•

i>316

0607
0610
0611
0612
0613
0614
0615
0617
0620
0621
0622
0623
0624
0625

bj?

3322
1021

^572

LP PU T

6340
6341
6342
6343
6344
6345
6346

16573

/lJLCT 2
/itjjn\ TO The Called.

CGLu^'N CDJ'JTEK

63 37

t3571

lPPut
LPtj2

A,-4AY.

0 .\ E

JHP
/

05 67
05 70

/t. JLCT
/^L^cT
/STASh

25 61
05 62

0566

LP^^t'4
LP CCL

/
/

6373
6374
6375

0040
7574
0212

LP 40

LPM204
LP212,

• 204

212

/LINE FEED IF LP 08 PRESENT,

[

204-1!]

LINE.

0&51
dbbZ
db36

667b

ZdlA

LP214,
/

06 54

0655

0657
0660

t5661

/
/

fe;6

2662

2lA

^6 6;5

0664

fe;665

0666
0667
0670
067X

/
/
/

LJECT

/FORM

FEE.U

LP08 PRtSENT

tJ672

THIS ORIGIN INSURES THAT BUrPEK-l CONTAINS
WHICH IS LOCATED IN PAGE 1(203-377)

0673
0674
0675
0676
0677

»BUFFEH-1

ii700
idlidl

0702

6377

0000

K7 03

0704
0705
0706
0707
0710
0711
0712

EJECT

ifRQ FOR THE TRIVIAL CORE IZhO HC -'TINE

21U
0714

0716
E717

fe!7«^Z

MAW K OF CCRE T^.E. Guy has.

k:72i

'3UFFE«

Z7 22

2723

e7 24

THIS

R ouTI\t

CALLEJ

J-.lY

0\CE

INITIALISATION TU FIGURE OUT hO^
Thl\

USED

THc

AREA.

Zl2b

07 27

/
/

e730
137 31

07i2
0733
0734
0735

6400
6401
6402
6403
64 04

0741
0742
0743

6407
6410
6411
6412
6413
6414
6415
6416

e7 4b

0746
0747
0750
0751
63752

640!?

64 06

64 17
64 20

3065
2065
1065
7041
3141
2066
4275
1066
3711
2141
5212
7041
3141

07 55

64 23

30 66

0756
0757
0760
0761

6424
6425
6426
6427

07 62

64 30

0763
0764
0/65
0766
0767

6431

2066
4275
1711
7041
1066
7640
5236
2141
5224
5205

64 32

6433
6434
6435

07 70

07 75

0776
0777
1000
1001
10 02
10 03
1004

1005
1006
1007
1010
1011

CLA
TAD
OCA

CL ITOl
CL IT02

TEMP
TEMP
TEMP

DC A
IS^

CLOCP.

TAD

CIA
DCA
OCA

CLLOOP

/MAIN ENTRY.
/CLEAR AC TO BE SURE. WE VE GOT HOOM
/REPLACE JMS I\STRUCTION BY NORMAL TAU.
/AND OVEKlAY mow.

/HERO OUT

COUNT
TEMPI
TEMPI

iSif

jmS
TAD
OCA

CSET
1

ISiJ

JMP
TAO

10 65

0754

0771
0772
0773
0774

30 66

6421
6422

07 53

CORtF,

7200
1261
3712
/

e7 36
07 37
e7 40

fe;744

00 00

TEMPI
CPBYTE
COUNT
CLLOOP
TEMP

CI A

DCA
OCA

CCLOOP

ISif

JMS
TAD

COUNT
TEMPI
TEMPI
CSET
CP8YTE

CI A

Tad

TEMPI

CLA
JMP COUT
IS£
COUNT
JMP
CCLOOP
JMP
CLOOP
St? A

6436
6437
64 40

6441
6442
6443
6444
6445
64 46
64 47
64 50

6451
6452
6453
6454
64 55

7344
1065
7106
7006
30 66

1310
7041
7106
7006
7004
10 66

1047
3074
6kl01

1074
7110

COUT,

MT WO

TAD
TEMP
CLL RTl
HTL
TEMPI
DCA
TAD
C8UFF
CI A

CLL RTU
RTL
RAL
TAO
ASMI FN
TAO
DCA
CDF
TAO
CLL RAH

TE MPl
RF08
L777 7
BNJM
0

aNUM

/DISK PRESENT???
/YEP. 80P DOWN The NUMBER OF HUFFERS BY

TO PROTECT 7400

IkilS
liJ14
lf?l&

6456
6457
6460
6461

una

646k:

i;di7

6463
6464
6465

1012

1020
1021
1022
1023
1024
1025
1026
1027
1030
1031
1032
1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
10 50

1051
1052
1053
1054
1055

1056
1057
10 60

1061

64 66

0021
7640
5*J67

1056
3236
4551
6513

lfc5

COCOOC

TAD
DC A

CQUT

/A LiTTtH

IvPt.

IN SUIT

CQ JT

6467

4671

6 4 70

7 4 10

6471

67fci3

LP08TS

6472
64/3
6474

1200
5674
6601

- i

CA
3
.

ASMi Fi

RF08

ASMSKP

TAD
COREF
+
JKP
CD !SKC
ASMI FZ
RF06
CMA CMA
RF06
ASMIF2
JMP I
COREF
I

/TEST FOm ThL LiNt POINTER
/SKIP PAST LP0t3 CRAP
/TEST FOR NO A.^LEX
i''A^jT
A SCRATCH Di S^ SETUP????
LJO
DISK CHECK NOW,
/RETURN ADDRESS
/DO TO CORE CHECKER
/\'0W CHECK FOR UISKSSSSS

/DO wt
/NOPE.

/MINUS ONE COUNT, FOR NOW,

/RETURN NOW

/
/

6475
6476
6477
6500
6501
6502
6503
6504
6505
6506

0000
1047
1066
0060
7106
7004
1307
3305
0000

6507
6510
6511
6512

6201
6400

CSET.

TAD
L7777
TAD
TEMPI
AND
17
CLL RTl
Ral
TAD
CCOF

DC A
0

JMP

56 75

CSET

77 77

0222

CCDF.
CBUFF,
CP8YTE
CLIT02*

CDF

BUFFER
77 77

ITDV

/SHOULD BE A FREE LOC NOW.
/POINTER INITIALISATION OVERLAY,

/
/
/
/

6513
6514

0240

INSULT

6515
6516
6517
6520

4306
1140
2717
2514

6521
6522
6523

0443
0640
4022

65 24

2516
4306

1073
1074

6531

WOULD

RUN

FASTER

40 06

0123
24 05

2243

lLFT+240
TOP

k)340

TEXT

10 73

JMP

DI bPLAY

CDCDCC

6525
6526
6527
6530

1073

l777^
CLA

JMP
ASM! Fjf
AbHbKP
JMS
SKP

1071
1071
1071
1071
1071
1072
1072
1072
1072
1073
1073

CL ITOl

22 36
52 63

10 62

1063
1064
1065
1066
1067

AND
bziA

/ABOUT CENTER OF SCREEN

1^74

ie74
1074
1075
li575
1071?

6b32
653i
6b34

S3611

6t>3b

2i>43

6536
6537

0640
4010

6540
6541
6542

0104
4306
4040

6543
6544
6545
6546
6547

7013
4306
1116
2324
0501

6550
6551
6552
6553

0443
0617
0640
1716

6554
6555
6556
6557
6560

1431
4306
4040
6413
3400

0640
3117

FIF YOU

10 75

1076
1076
1076
1076
1077
1077
1077
1077
1077
1077
1100
1100
1100
1100
1100
1101
1101
1101
1101
1101
1101
1102
1103
1104
1105
1106
1107
1110

HAD

FINSTEAD

FOF ONLY

F
/
/
/
/
/

4K\"

EJECT

nil

11 12

1113
1114
1115
1116
1117

/
/

IX 2id

/
/
/

1121

ASMIF2
ASMSKP

11 22
11 23

1124

1127

*8urrE:R*20 0

/DISK CHECKER CRAP.

/PHOONEY RETURN
/SAVE RETURN ADDRESS
/CLEAR THE RK08 STATUS REGISTER

6600
66 01

6602
6603
6604

0000
3200

CDISK.
CD ISKC ,

66 07

114 4
114 5
114 6
1147

6 610

6736

6611
6612

1302

66 13

76 50

1150
1151
1152
1153
1154

6614

5261

6615
6616
6617

6601
6601
1024

DCMA
DCMA
TAD

66 05

6606

7041

CDISK

DC A

7240
6742
7200
1302
6732
7200

11 37

CLA CMA
dcls
CLA
TAD
CDIL70
OLDC
CLA

ORDC
CIA
TAD
CDIL70
SNA CLA
JMP
CRK08
/

L77

11 55

66 20

66 43

OX AL

1156

6621

7200

11 i>/

66 22
66 23
66 24
66 25
66 26

66 45

CLA
OXAC
CIA
TAD
L7 7
SNA CLA
JMS
DSET
CLA CMA
JMP
CDISK

1160
1161
1162
1163
1164

6627

116^7

66 30

1166
1167
1170
1171
1172
1173
1174
1175
1176
1177
1200
1201
1202
1203
1204
1205
1206
1207

/DISK CHECKER OK?V?
/SKIP FOLLOWING CODE

/
/
/

1 1 30

1140
1141
1142
1143

12 7

/
/

11 25
11 26

1131
1132
1133
1134
1135
1136

RF0d

7041
1024
76 130

4231
7240
5600

/NOW CLEAR THE AC
/PLACE A 7fe} IN THE AC TO SEE IF THE RK0b IS THERE
/SEND TO THE CONTROLLER
/CLEAR AC IN CASE lOT WAS A NOP
/NOW READ BACK IN COMMAND REGISITER
/NEGATE IT
/TEST TO SEE IF STILL THERE
/HOW ABOUT IT.
/REG IS GOOD. WEVE GOT AN RK08
/BAH. CLEAR DISK
/ONE MORE TIME FOR GOOD MEASURE
/A DISK ADDRESS.
/SEND IT OUT
/CLEAR THE AC TO BE SURE
/READ IT BACK???

/ALL WELL?
/???
/SET UP FOR THE DISKS NOW???
/MINUS 1 FOR THE COUNT.

/RETURN

/
/
/

6631
6632
6633
6634
6635

0000
7240
3670
1074
0021

66 36

76 50
52t>0
4tJ64

6637
6640
6641
6642
6643
66 44
66 45
66 46

DSET,

MONE
DCA I
TAD
AND
SNA CLA
JMP
MOVE

0750
6213
0002

RKBTST
RK9ST

4564

MOVE

66 71

RKSETU
RK8TST

0/50

CRKP TN
BNUM
L7770

/SET TO ALL ONES SO RK08 CONTROLLER WILL THINK ITS ThE
/WRONG UNIT AND WILL GIVE A POWER CLEAR.
/GET THE NUMBER OF BUFFERS NOW.
/SEE IF GREATER THEN 20, ACTUALLY 10 WILL 00

OSETPl

/NOT 8K.

NO REfcfOOTSTRAP.

/SAVE OLD INSTRUCTIONS
/IN CARD READER TEMP
.

/NOW MOVE

KEYBOARD TEST INSTRUCTIONS.

1210
1211
1212
1213
1214
121!)
l'<il6

1217
ld2d
1221

6647
6653

2032
1273

66bl

6ZU

66t?2

lAli:

6653
6654
6655

74i7kJ

DStTPl. TaO

'JTAdl

/G^-T

JCA
TAJ
SnA

/oAvrl

Au^Jl
AuTJl

JStT

DCLOOP.

5b31

J'^P

3K5t)P

OCA
TAD
OCA

66^>6
60 5/

13^1

6662

o2o2

3 4 65

1223
1224

lid30

1231
X2:S2

1233
1234
1235
1236
1237
1240
1241
1242

1244
1245
1246
1247
1250
1251
1252
1253

4^31
4564
7226
7626
0152
7240
5600

CHK^B.

/SU UP Tnt dl-^At^Y U-NITS aS AOVENTISED.
/NGw KUVE Tht WK^Ib RGUTl:gtb JP THE
/THt DESIKEO AWlA

DSET

/LENGTH JuST HAHR^NS TO BE THIS NUM.
/MINUS 1 FOR THE COUNT. BABY.
/HANDLER NOW SET UP USE DISKS.

-KFr^EAO
I

/
/
/

/
/

667i3

6671
6672

4576
4751
6164

CRKPTN. RKSTAT
RKSETU. »<KBTST + lil77
RKCHAR

460i5

/RK0e STATUS AS OF BEFORE I'O PRESET.
RKBTST + 1
/JMS
/CHECK T ht RKijS CHARACTER,
I

/
/
/
/

/
/
/

12 56

/
/
/

12 70

/
/
/
/

/
/
/
/
/
/
/

1271
1272
12 73

6673
6674
6675
6676
6677
6700

6673
4145
4157
42B6
5353
0000

13 03

1304
1305
1306

JMS
^OVt
RKRtAQ
^rREAJ

CLA CMA
JMP
CQISK

1257
1260
1261
1262
1263
1264
1265
1266
1267

/GET Tne MX AJjRfSS
l 0? ? ? ?
/I^ iT
/YEP. nl
/:>AVL ThL ^jJhl:>S
/uF.T Tn^; CoH^^CT \tW UNIT
/A^M-.i
bET IT UP,
/GO dAC^ K OP NExT.

1255

1301
1302

LOCATIONS

6661
6662
6663
6664
6665
6666
6667

12 54

1274
1275
1276
1277

Tt^iP

TAt»Lt

12 2b

1226
1227

CS^'SBW
I

Fb^sT

A.nAY

T^-^P

DCLOOP

12 22

f-HE

QTABl,

/POINTS TO NEXT

-1

/SPECIAL BINARY

Ji^iIT.

OSYSl
USYS2
DSYS3
aSYS4
00002
/
/

6701
6702

0011
0k}70

03YSB1N, SYSBSP
CDIL70, 7iJ

1307
1310
1311
1312
1313
1314
1315
1316
1317
I32i3

1321
1322
1323
1324

/
/
/
/

/
/

/
/
/
/

/
/

13 23

1326
1327
1330
1331
1332
1333
1334
1335
1336

/
/
/
/
/
/

/
/

EJECT

1337
1340
1341
1342

/
/
/

/
/

13 43

1344
1345
1346

ASMIFH
ASKSKP

13 47

1350
1351
1352
1353

13 62

1363
1364
1365
1366
1367
1370
1371
1372
1373
1374
1375
1376
13 77

1400
1401
1402
1403

/
/

6703
6704
6705
67 06

6707
6710
6711
6712
6713
6714
6715
6716
6717
6720
6721
6722
6723
6724
6725
6726

0000
6652
1022
3065
3066

UP08TS,

66 62

6661
7410
5703
2066
5311
2065
5311
1337
7450
5703
3727
2323
23 20
5320

tP0BLP

LP08LT

LCF
TAD
DCA
OCA
LCB
LSD
SKP
JMP
IS2
JMP
ISH
JMP
TAD
SNA
JMP
DCA

TEMP
TEMPI

LP0ttTS

TEMPI
LP 08 LP

TEMP
LP0aLP
LP08PT
I
I

iS2
IS2

JMP

LP08TS
LP08PO

/ALL FINISHED WITH THE PATCH NOW
/STORE IN THE POINTER NOW

1-1

LP0BLT
LP08LT

/
/
/

14 04
14 05

67 27

1406

6730

14 07

67 31

1410
1411
1412
1413
1414
1415
1416

6732
67 33

6734
67 35

6736

0240
6324
6330
6341
6350
6353

LP08PO

LP 08 01

LP08O2
LP 08 03

LP0aO4
LP 08 05
LP 08 06
LP 08 07

63 63
63 74

LPM204
/
/
/
/

14 17

1420
1421
1422

LP08BA= ,£7600
LP08B2= LPEJ247I
/
/
/

14 23
14 24
14 25

1426
1427
1430
1431
1432
1433
1434
1435

/LP08 TESTER ROUTINES
/SKIP PAST THE STUFF NOW

13 54

1355
1356
1357
1360
1361

CARD
1373-12

6737
6740
6741
6742
6743
6744
6745
6746

6666
1376
1376
1375
5353
6666
7201
7656

LP08PT, LPR: LCB
TAD
TAD
TAD
JMP
LPRILCB
PONE
-122

LP214LP214-:

LP212LP08O6
/ALL THATS NECESSARY TO FILL OUT TABS CORRECTLY,

1436
1437
1440
1441
14 42
14 43

1444
1445
1446
1447
1450
1451

6747

0000

0
/
/
/
/
/
/

/
/
/
/

EJECT

I4i>2

1454
14t)5

1456
14137

1460
1461
1462
1463
14 64

1465
1466
1467
1470
1471

6164
6165
6166
6167
61 7i^

6171
6172
6173

RKCH AH

CLA CLL
KKS
M215
TAO
SNA CLA
Dl ALEX
JMP
MOVE
JACKS
OVER EX

730.;

60 34

1143
;6b^
5376
4564
62 04

14 72

61 74

02 47

1473
1474
1475

6175
6176
6177

14 76

62015

a007
4564
6213
0/50

1477
1500
1501

6201

0k)02

62 02

5603
0750

RK8TST

6203

THE CARD READER BUFFER.

/CLEAR AC TO BE SURE.
/READ IN THE AC CHAKACTER
/IS

C .R .

/mORMAL TAPE EXIT.
/SET UP DISK RETURN NOW
/MOVE OVERLAY IN NOW

OVEHLEN
DI ALEX »

MOVE
HKBST
NKBTST
JMP

/OLD INFO

.+1

15 03

6204
6205
6206
6207
6210
6211
6212

4571
0010
6400
0022

JACKS*

/READ

READ

BUFFER
22
30 2

03 02

CDF CIF 10
JMP
L7 77 7

6213
54 47

OVEHLEN=. -JACKS
/
/

6213
6214

0000

DIAL-MS BOOTSTRAP NOW,

RK9ST.

00 00
/
/
/
/
/
/
/

15 30

1531
1532
1533
1534
1535

/
/
/
/

15 36
15 37

1540
1541
1542
1543

15 02

1504
1505
1506
1507
1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1524
1525
1526
1527

/ORIGIN INITIALIZATION CODE

*CDc3UF

/
/

EJECT

/TWENTY TWO FOR 8-K.
/302+2l&22=322«323
/UPPER CORE
/REBOOTSTRAP

1544
lb45
lb46
IbA?

I55lj
1!>31

/
/

l':>^2

/
/

THE SeCOfvD PART

The FIRST PART

/
/
/

1553
li>54

This

l^Z

T hE

OPTIOiNiAL

^riS~Ri<^6 ROUTINE.

DiViOEO

N'T 0

T^Q PARTS.

ACTUAL LOw LEVEL DISK ROUTINE.

LITTLE CALLI\'G ROUTINE vJHICH INTERPRETS THE CALLS FROM PIPS MASS STOREAGE ROUTIN

£S .
1^?5^

Ib56
1557
1560
1561
1562
1563
1564

AND PROTECTS LOCATIONS 7400- 77 77 FROM THE DISK

2APPING THEM.

/
/
/
/
/
/

15 65

1566
1567
1570
1571
X572
1573
1574
1575
1576
1577
1600
1601
1602
1603
1604
1605
1606
1607
1610
1611
1612
1613
1614
1615
1616
1617
1620
1621
1622
1623
1624
1625
1626
1627
1630
1631
1632
1633
1634
163d
1636
1637
1640
1641

/
/

ASMIF2
ASMSKP

HF08
136^

/SHOULD BE CORRECT NUMBER TO SKIP OVER THEM

/
/
/

»7400
/
/
/

/
/
/

/
/
/
/

THE SYSTEM AND UNIT COPIER HANDLERS.

/
/

/
/
/

/
/

/
/
/

7400
7401
7402
7403
7404

4564
7472
7466
0204
5211

AASYSC.

MOVE
ASYSL
AASUC
AASUCS
JMP

/SET UP TQ COPY JUST THE SYSTEM (NO INDEX)
/SYSTEM COPY INFORMATION

AASUCR

/COMMON INFORMATION
/SUE OF SYSTEM INFORMATION
/GO TO COMMON ROUTINES

16 42

1643

16 44

1645
16 46

1647
16 5B

7405
7406
7407
7410

4564
7476
7466
00 04

1651
1652
1653
7411
7412

1120
0060

AASUCR

74 13

M50

TAD
AND
SNA

7414
7415
7416

7001
7041
3301

CIA
OCA

ruNi T
L7

lAC

AAMHOW

/GET THE NUMBER OF COPIES TO MAKE
/CHOP OFF THE Hi GH ORDER CRAP
/2ER0???
/YEP, MAKE 1 COPY ONLY

/STASH AWAY NUMBER TO MAKE

/
/
/
/

A 77
10/0
1

7422

16 74

74 23

45 50

74 2 4

5217

7417

4562
4610

ASULPl

45 73
4 < 77

16 76
10 f 1
17 00
17 01
17 02
1 7 mi

DECODE
CI NPUT
SE ARCH
ACPLl
ASUG 01
JHP

/GET THE INPUT DEVICE
/COPY INPUT IS GOOD ENOUGH FOR ME
/LOOK UP THE REPLY
/TABLE OF CHARS
/ TR A NSFE R

ASUL PI

/NOT

T A BlE

LEGAL REPLY

/
/
/

/
A c in rt
ASUUUl

0 1 sc
SK P

ASUT Tl

TAPE

1704

74 26

74 10

17 05
17 06
17 07

7427
74 30

44 02
11 20

7431

3103

7432
7433
7434

4562
4703

1713

/INFORMATION
/TO COMMON ROUTINES,
/NUMBER OF WORDS TO MOVE

74 20
74 21

17 12

/SET UP TO COPY THE ENTIRE UNIT.

/
/

16 66
16 67
16 70
16 71
16 72

1710
1711

MOVE
auntl
AASUC
AASUCS

16 54

1655
1656
1657
1660
1661
1662
1663
1664
1665

AAUNTCi

TA D

OCA

/DISC

CHOOSEN

/TAPE IS CHOOSEN
FUNI T
INUN IT

ASULP2

45 73

17 14

74 35

43 77

1715
1716
1717
1720
1721
1722
1723
1724
1725
1726
1727
1730
1731
1732
1733
1734
1735
1736
1737
1740

7436
7437

4554
5232

DECODE
COUTPUT
SEARCH
ACPLl
ASUG02
JMP
ASULP2

/GET THE OUTPUT UNIT
/OUTPUT OPTIONS
/LOOKUP REPLY
/REPLY L 1ST
/WHERE TO GO WHEN FOUND
/NOT A LEGAL OUTPUT DEVICE

D I SC

/DISC IS THE CHOOSEN ONE,

/
/
/

7440
7441
7442
7443
7444

4577
7410
4402
1120
3105

ASUuD2

SKP
ASUTT2» TAPE
TAD
OCA

/TAPE

THE CHOOSEN ONE

FUNI T

OUTUNI

/STASH AWAY

AAMHOW
OUTNUM
AASI21
FSI2E
AA8L1
INBLOCK
INBUOCK

/GET THE NUMBER OF COPIES TO MAKE
/STASH AWAY NOW.
/GET THE SUE OF THE FIRST COPY
/AND STASH IN THE Slit PARAMETER
/GET THE FIRST BLOCK NUMBER
/AND SET UP THE READ
/AND THE

/
/

7445
7446
7447
7450

1301
3106
1266
3117

74 51

12 67

7452
7453

3102
1102

TAD
OCA
TAO
DCA
TAD
UCA
TAD

1741
1742
1743
1744
17 45

1746
1747

7454
7455
7456

3104
4554

74 57
74 60
74 61

3117
1271
3102
1102
3104
4554
5552

7462

I7;>fe3

74 63

1751
I7b2
1753
1754
1755
1756
1757
1760
1761
1762
1763
1764
1765
1766
1767
1770
1771
1772

7464
7465

12 70

7466
7467
7470
7471

0000

AASI21

00 00

AABLl,
AASI22*
AABL2»

0
0
0

/SI2E or THE FIRST COPY
/BLOCK NUMBER OF THE FIRST COPY.
/SI2E OF THE SECOND COPY
/BLOCK NUMBER OF THE SECOND COPY.

AASUC=AASiHl
AASUCS-. -AASUC

/POINTER TO COMMON TABLE
/SI2E OF MOVE.

0000
0000

/
/
/
/

17 75

/
/

/
/
/
/
/
/
/

20 05

/
/

7472

0046

74 73
74 74

03 00
00 20

7475

0350

ASYSL,

SYSS BLOCK-TI NO EX-

TINDEX+TILEN
/

7476
7477
7500

1000
0000
0000

AUNTL.

TUPPER~TL0WER*1
TLOWER
0

/
/
/
/
/
/
/
/

2034

/
/
/
/

2036
2037

TINDEX-DIALSYS
DI ALSYS

20 33
20 35

/SET UP FINAL COPY
/AND DO IT
/FINALLY RESTART PIP.

/
/
/
/
/
/
/
/
/

1774

2026
2027
2030
2031
2032

AASi22
rSI2E
AaBl2
INBLOCK
INBLOCK
OUTBLOCK

/AND THl write.
/COPY Trit SELlCTeD BLOCKS.
/THE THE SECOND COPY
/STASH That AwAY
/THE THE SECOND STARTING BLOCK NUMBER

1776
1777
2000
2001
2002
2003
2004

20 25

OUTBLOCK

17 73

2006
2007
2010
2011
2012
2013
2014
2015
2016
2017
2020
2021
2022
2023
2024

DCA
COPY
TAD
OCA
TAD
DCA
TAD
DCA
COPY
PIP

20 4!^

2i341

20 42

2043

20 44

2fe3

2246

20 47

2050
2051

20 52

/
/

2054

20 55
20 56

/
/
/

2057
20 60

/
/

2061
2«62

20 63

2i;64

/
/

2065
2366

u)EF I

2;i67

2070
2?71

JIb^

rjLr i:U T IO\S

FOR THE RFge

255 72
22 73
20 74
2^5 75

/
/
/

/
/

2276
2077
21 00
2101
2102
2103
2104
2105
2106
2107
2110
2111
2112
2113
2114
2115
2116
2117
2120
2121
2122
2123
2124
2125
2126
2127
2130
2131
2132
2133
2134
2135
2136
2137
2140
2141
2142
2143
2144
2145
2146
2147
2150

01 SK

OmAW=6605
UL- f1« -0 0 j3 1

UL AL -0015

0tAC=6616
SE =6 62 1
D I SK =6623

npTM— AA1

nCAP~A«.1'J
UoAL-OoIjC
J] nL-OOip
U 1 rlA -6616
nir
— A <.oi

UaAL -ooio
Url AL -0 Oc 0

/
/

RK08 DISK OEF! NI TI ONS.

/
/
/
/
/

/
/
/
/

/
/

DCLA=6751
0L0C=6732
DL0R=6733
0l0W=6735
DCHPS6737
DRDAS6734
0RDC=6736
0RDSS6741
DCLS=6742

2151

DM NT =6 74 3

iil52

DSKC=6 74 5
0SKT=6746
0SKES6747
0RWC56752
0LWCS6 75 3
0LCA=6755
0RCAS6757

2153
i;i54

2155
2\bt
2157
2160
2161
2162
cl63
2164
2165
2166
2167
2170
2171
2172
2173
2174
2175
2176
2177
2200
22 01

2202
22 03

2204
2205
22 06

2207
2210
2211
2212

/
/
/

/
/
/
/

/
/
/

/
/

/
/
/

/
/
/
/
/

/
/
/

/
/

EJECT

^213
2214
2215
2216
2217
2220
2221
2222
2223
2224

/
/

/
/
/
/

/
/

222t?

2226
2227
2230
22 31
22 32

2233
2234

7501
7502
7503
7504

7505

00 00

7!p06

/305
1371
3372

223i>

7i?07

7510
7511
7bl2
7513
7514
7515
7516
7517
7520
7521
7522
7523
7524
7525

22^4
2245
2246
2247
2250
22 51

2252
2253
2254

47 72

5773
3363
1362
1054
3362
1365
1366
3365
1020

23 03

7540
7541
7542
7543
7544
7545
7546
7547
7550
7551

2304

75 52

22 76
22 77

2300
2301
2302

RRRT
WWWT
RRC

/DISK»READ SETUP ROUTINE
/ADDRESS OF TREAD
/MOVE TO TWRIIE FOR ThE ARGUEHENT GETTER.
/GO TO THE COMMON AR G GETTE^.

RRC,

CLA CLL
TAD
DCA
SETA
GETA
AND
DCA

GETA
DCA
GETA
OCA
GETA
OCA
TAD
AND
OCA

lAC RAL

RRR
RRT

RUNIT
rloc
RNUM
RF IRST

BNUM
L7

ROUT

/DISK-WRITE SET-UP ROUTINE
IN THE AC TO ADO THE READ ROUTINE ADDRESS
/POINTER TO THE READ ROUTINE
/SAVE IN THE GO- TO LOCATION.
/IMTIALUE THE ARGUEMENT GETTER
/GET THE FIRST ARGUEMENT
/CHOP OFF RANDOM UNITS BITS.
/STASH AWAY NOW.
/GET THE NEXT ARGUEMENT NOW,
/SAVE AWAY IN THE LOCATION WORD
/NOW GET THE NUMgER OF BLOCKS TO TRANSFER
/AND STASH AWAY NOW.
/NOW GET THE FIRST BLOCK TO BE TRANSFERRED
/AND STASH AWAY ALSO.
/NOW GET THE NUMBER OF BUFFERS AVAILABLE
/JUST GET HOW MUCH GOES INTO FIELD 0
/AND STORE IN THE FIRST TIME THROUGH BIT,
/+2

3364

2267
2270
2271
2272
2273
2274
2275

/
/
/

75 37

2262
2263
2264
2265
2266

RF08W,

1417
0060
3362
1417
3363
1417
3364
1417
3365
1074
0060
3366

7526
7527
7530
7531
7532
7533
7534
7535
7536

22 61

TAD
OCA
JMP

45 55

22 55

2256
2257
2260

RF08W,

2236
2237
2240
2241
2242
22 43

0000
1767
3770
5307

1364
7650
5774
1366
7041
1364
7510
53 56

33 66
53 26

TAD
RNUM
SNA CLA
RRRET
JMP i
TAD
ROUT
CIA
UM
TAD
SPA
JMP
RF IT
OCA
RNUM
RRTRY,
JMS I
RRT
JMP I
RRERR
RRGOOO# OCA
RLOC
TAD
RUNIT
TAD
L10
DCA
RUNI T
TAD
RF IRST
TAD
ROUT
DCA
RF IRST
TAD
L20
OCA
ROUT
JMP
ROK
ROK,

23 05

2306
2307
2310
2311

/
/
/

/GET THE NUMBER LEFT TO DO
/STILL SOME MORE???
/NOPE, EXIT NOW,
/TEST TO SEE IF ITLL FIT THIS TIME.
/NEGATE.
/NUMBER LEFT
/TEST ^JOw
/ITLL FIT. GO AND READJUST COUNT NOT
/STORE AWAY NUMBER TO GO NEXT TIME.
/GO 00 THE DISK OPERATION.
/DISK ERROR HAS OCCURED.
/CLEAR The LOCATIONTO 0000
/SOP UP TO THE NEXT MEMORY FIELD
/SO THE OVERLAP WORKS CORRECTLY.
/BOP UP THE BLOCK NUMBER BY THE NUMBER DONE

/SO THAT Ulll PICK UP FROM kHERL WE LEFT OFF.
/SET THE NUMBER OF BLOCKS TO DO TO 20
/WHICH IS THE NUMBER IN
MEMORY FIELD
/AND GO BACK AND DO THE NEXT ONE.
3.

;^312

2314
2315
2316
^317

7553
7554
7555

7541
75 37

7541

23 23

2324
2325
2326
2327
2330
2331
2332

33 66

5326

7562
7'363

7571
7572
7i)73

7574

0000
0000
0000
0000
0000
14 00

1412
7626
0000
7615
1476

RUNI T,
RLOC
RNUM
RF IRST
ROUT
RRRT

RCUT
ROK

/NU^dE-? TO JO IS THE EXACT NUMBER
/AND GO BACK AND TRY AGAIN

WW WT

TREAD

/POI NTS TO

TWRI TE

TEXl T

/POINTS TO TWRITE
/POINTS TO A HEAD DISK ROUTINE
/FINAL POINTER
/POINTER TO THE ERROR RECOVERY ROUTINE
/MASS I-O EXIT LOCATION

AAMHOW =RF08R

/DEFINE

RRRt

HE AOSK

RRT

RRERR
RRRET,

RERR

T RE AO

/
/
/
/

23 50

2351
2352
2353
2354
2355
2356
2357
2360
2361
2362
2363
2364
2365
2366
2367
2370

/ITll FIT ThS TIME. SET TO CORRECT OUTPUT

/
/
/

757^5

23 40

1364

75 60

23 36

2341
2342
2343
2344
2345
2346
2347

RF IT

7561

2337

2334
2335

CLA
TAD
OCA
jVP

/
/

7556
7557

7564
7565
7566
7567

23 33

/ir ACCEPTED AS IS
/TO -<ETR^ The OPERATIDN.
/TO T^Y TO SKIP PAST T HL lR^OH

/
/

i^320

2321
2322

kRGOOD
hRTRY
RRGOOU

/
/
/

/
/

/
/
/

/
/
/
/
/
/
/

EJECT

TEHPOrtARY FOR THE SPECIAL COrltS

NLh'^BER

2371
2372

2374

/
/
/

23 75

2376
2377

23 73

24 00

/
/
/

2401
2402
24 03
24 04

/
/

2405
2405
2405
2405
2405
2405
2405

7575
7576
7577
7600
7601
7602

24 06

76 03

22 43

2406
2406
2406
2406
2406
2406
2406
2406
2406
2407
2407
2410
2411

7604
7605
7686
7607
7610
7611
7612
7613

0610
0123
4017
0303
2522
2205
0440
4040

7614

4043

0601
4^304

1123
1^540
0!?22

2217

RRBAD,

/
/
/

24 12

/
/
/
/
/

24 20

7615
7616
7617
7620
7621
7622
7623
7624

3001
4564
7575
2101
0020
1001
4625
7553

24 32

24 36

2437
24 40

RERR,

LOCI

/STASH AwAY IN A PLACE
KNOW IS FREE
/MOVE IN THE DISK ERROR MESSAGE
1

REWERE

/32CHAkS=i6 wORDS=20 «0RDS
/RETRIEVE THE dLCCK NUMBER
/CALL THE ERROR MESSAGE DISPLAY ROUTINE
/LIST OF RETUR^ OPTIONS.

TTBC

/POINTER TO THE ERROR MESSAGE DISPLAY ROUTINE

TAO
JMS

7625

2037

RREREO*

LOCI
RREREO

/
/
/

2441
2442

24 43
24 44

2445

OCA
MOVE
RRBAQ
TMAIND

/
/
/

24 33
24 34

2435

'T A DISK ERROR

FHAS OCCURRED

2413
2414
2415
2416
2417
2421
2422
2423
2424
2425
2426
2427
2430
2431

TEXT

READSK =
/
/

24 46

2447

/THE DISK READ ROUTINE GOES HERE.

2450
2451

/
/

24i)2

2453
2454
2455

EJECT

24 56
24 57

/
/
/
/

2460
24 61
24 62

2463

7626

0000

24 64
24 65
24 66
24 67
24 70
24 71
24 72
24 73
24 74
24 75
24 76
24 77
2 b 00
25 01
25 02

76 27

52 34

7630

0000

76 31
76 32
76 33

12 30
32 26
73 05

1343
32 75

76 36

6601
1740
1047
3351
1063
3066

7637

25 04

7645

25 05

76 46
76 4 7
76 50

2510
2511
2512

7651

25 13

76 52
76 53
76 54

^p1

7 65 5

2515
2516
2517
252 0

76 56

25 21

7657
76 60

7661

66 15
17 3 7

76 66

03 44

7667
7670

1065
6643
1742
4550
7004
0064
0000

25 31

76 71
76 72

7673

25 33
25 34
25 35

76 74

2536
2537
2540
2541
2542
2543
2544
2545
2546
2547
25 50

2551
25 52
25 53

2554

7675

45 56

7677
7700
7701
7702

2067
5304
2066
5304
5334
6623

7 7 03

7704
7705
77 06

7707
7710
7711
7712
7713
7714
7715

TAD
AND
CLL RTL
RTL
RAL
DCA
TAD I
RTR
RTR
AND
TAD
DXAL
TAD
R0R6
RAL
AND
I

17 42

7A 7A

i>276

6621
5332
6616
03 45

7112
13 50
76 50

5332

TAD
DCA
DCMA
TAD 1
TAD
DCA
TAD
DCA
TAD I
CIA RTR
RTR
RAR
AND
DCA
TAD I
AND

RFDMAR
RF INST

RRLOC
L7777
RFOBAD
M6

TEMPI
RROUT

READ ENTRY

TriE

WRITE FOR

RF INST #

L7400
RFD8WC
RRUNIT
L7770
L7

/CHOP OFF ANY CRaP W£ PICKED UP ON THE WAY.
/STASH AWAY NOW
/GET THE FIELD BITS ON
/AND OUT UNIT aiTS
/AND SET THE FIELD BITS IN THE STATUS REG.
/NOW GET THE UNIT FOR REAL
/JUST THE UNIT BITS

TEMP
RRFI RST

/SHIFT OVER TO EXTENEO DISK BITS
/SAVE FOR A SECOND
/GET THE FIRST BLOCK NUMBER

RRUN IT

RFL377
TEMP

RRFIRST

L7400

CHECKIO
ISi

JMP

RFNOSK

/ADD A READ INSTRUCTION TO THE AC.
/NOW STORE AWAY THE CORRECT FUNiCTION
/CLEAR The disk status REGISTER
/GET THE LOC TO WHERE WERE GOING TO
/SUBTRACT 1 FOR GOOD MEASURE
/STOKE Away MOW
/SET UP THE RANDOM COUNTER
/WHICH TIMES OUT THE DISK THERE FLAG.
/GET THE NUMdER OF 3L0CKS TO 00
/MOVE TO BITS 0-3 OF THE AC AND

/NEGATE

DI ML

0060
7106
7006
7004
3065
7012
7012

2532

RFCOMM

70 12

7665

25 2 7
2 53 0

/RF08 WRITE ENTRY
/REPLACE THE READ ENTRY BY
/THE RETURN
/*2 TO MAKE DMAK A OMAW

DC A

7010
0064
3350
1737
0021

25 23

2526

RFWR ITE
RFRE AD
CLA CLL lAC RAL

TAD

7053

2 52 4

25 25

/RF08 READ-^RITE ROUTINES.
/GO TO COMMEN ENTRY

RF WRITE,

17 41

76 62
76 63
76 64

2522

RFCOMM

JMP

76 34

7635

2503

25 07

76 40
76 41
76 42
76 43
76 4 4

2506

RFREAD

TEMP2
RFNOSK
TEMPI
RFNOSK
RF08NO

JMP
JMP
DISK
JMP
RF INST + 1
DFSE
JMP
RFGX T
DIMA
AND
RF1003
CLL RTR
TAD
RFDBWC
SNA CLA
JMP
KFGXT

/IGNORE 4 LOW ORDER BITS
/JUST BLOCK BITS OF DISK
/ADO IN DISK SELECTION BITS
/SET UP THE DISK ADDRESS.
/RECALL THE STARTING BLOCK NUMBER
/ROTAE LOW BITS TO BITS 0-3 OF
/THE AC. THIS SAVES A LOC.
/CHOP OFF STRAY CRAP
/CORRECT DISK INSTRUCTION GOES HERE
/CHECK KEYBOARD NOW
/INCREMENT THE FAST COUNTER
/DIDNT SKIP
/NOW INCREMENT THE SLOW COUNTER
/IT DIDNT SKIP EITHER
/DISK FLAG DIDNT RAISE- PRObABLY NO DISK.
/AND NOW CHECK THE DISK FLAG
/IT OIONT SKIP EITHER. HANG AROUND.
/WAS THERE AN ERROR?
/NOPE. GOOD RETURN
/AN. ERROR, WAS IT A MYTHICAL ONE
/THIS CHECKS IMPORTANT BITS
/ALSO CHECK TO SEE
/ALL WELL????
/ALL IS WELL. EXIT

OPERATION COMPLETED

7716
7717
7720

6645
0344
7106

2t>6i!)

77 21

2!?61

7722
7723

70 06
30 65

2b5^

2b62
2b6i

2t)66

2bl^
2b71
2b72
2t)73
2:?74

2b75
2b76

77 24
77 25

7726
7727
7 7 3e
7731

JX AC

6626
0064
7106

RFL3 77

ClL rtl
RTL
OCA

11^.^

D-^ AC

a:.0

l74;30

CLL RTl
^Tl

70 06

7004
1065
5626

f<AL

TAD
JNP

TEVP
I

RFREAJ

/CHOP OFF

The txTt-\nEJ
Cr^AP

/ROTATE T:^ GG:yj block NU^uER rflTS
A
/SAVE
SLJC:\a
Twl ;_ow ORDLK bits
/^iJ^ PIC^
^ORO bTUFF
/1G\0RE
/Shift ivto cjRRect place
/WHICH IS -ITS 8-11 JF THE AC.
/Aou I'j The correct factck
the CALLER
/A'-.U KlTJRv To

/
/
/

7732
7733

2226
5626

Rrax T»

RFRtAO

ISz5

JMP

RF RE AO

/ALL IS .^LLL. SKIP PAST ERROR RETURN
/AND EXIT TC THE USER

/
/

2t?77

26 00

2601
2602
2603
2604
2605
2606
2607
2610
2611
2612
2613
2614
2615
2616

i!6l7

/s.CAO

A,vJ

7734
7735
7736

4551
7752
5334

RF"0aNO

/JISK FLAG NOT UP. GIVE ERROR MESSAGE

Dl SPLAY

RF08N2
JMP

RF08NO

/ITS kH livFlNlTE WAIT,

/
/
/
/
/
/
/
/

7737
7740

7t>62

/563
7566
/565

2620
2621
2622
2623
2624

77 41

77 43

66 b3

7744

0377

26 25

77 45

11^03

7742

RU.Nil T
RHUN IT
RRLOC,
RLOC
RROUT,
ROUT
RRFI RST HF RST
,

/POIiNTER TO PREVIOUS SECTION

INFO

2626
2627
2630
2631
2632
2633
2634
2635

RFDMAR
OMAR
377
RFL377
Rri0B3, 1003
,

/ACTUAL RF08 DISK READ

/
/
/
/
/
/

26 36

2637
2640
2641
2642
2643
2644
2645
2646
2647
2650
2651
2652
2653

/UATa break ADDRESS

HFDRAD=7751
RFD8/JC = ?750

/^vORO COUNT

»RF0BAD+1

/ORIGIN PAST DATA BREAK

LOCATION

/
/
/
/
/
/
/
/

7752
7753

0300
0000

RF08N2, LEFT+300
TUP^340

/A90UT THE CENTER OF THE SCREEN

26b4
2bb^
2654
26b4
2654

77!34

7700
7756
77e»7

7762

^blt
X74^-

^411
2313
3420
TLXT

26 54

2655

26 56

2657

26 60
26 61
26 62

2663
2664
2665

/
/

26 66

2667
267a
2671

26 72

2673

26 74

2675
2676
2677

27 00

2701
2702

/
/

Eject

"F\U

2703

/
/
/

27 04
27 05
27 06

2707

/
/

27 10

2711
2712

/
/

27 13
27 14
27 15

2716
2717

/
/
/

/
/

27 20

2721

*R EAQSK--40 0

27 22

2723
27 24
27 25

/
/
/

2726
2727
C f Olw

27 31
27 32

72 26
72 27

Ttc;

9 7 <A

27 37
27 40

Dif or An
Mfv nt. AU »

52 34

/RK08

RKCOMM

JM P

(A!7\

72 31
72 32
/

£00

1 C.O*^

27 41

run

rtl\

wn i

12 30
32 26
73 05

13 34
32 75

/Dl/'DlQ
/KrsitJo

Li» 0
TA
A n
U

oil'

!J7 AS?

57 ^7
27 50
27 51
/

27 53
27 54

2755
2756
2757
27 60

2761
2762
2763
2764
2765
2766
ilbl
2770
2771
2772
27 73

72 ^5 7
72 40
72 41
72 42
72 43
72 44
72 45
72 46
12. Al
72 50

nf\ UU nn »

67 32
1 7
i / OO

tJYU QiO

71 12
70 12
17 30
30 13
1 7 32

1047

72 52
72i>3
72 54

30 14

7255
72 56

u T T r

iiDTTfT
WKIIL

r'KiTDV Or^TkiT
LNInY
rUlNI

/KLr'LACL
HE HEAD ENTRY B" THE CORRECT
/NR TE ENTkY
/<J Tu MAKE THE READ A WRITE
1

DC A

RKHE AO

CLA CLL

TAD
OCA
TAD
AND
TAD
DLOC
TAD I
AND
CLL RTR

RA L

HK uL UK
1 M C T
O
IKi 1 T
KK U!N|
1
7 77
//w

Dl/

iVI

L/
1

RKUH 1
Dl^ <M IT
UN I
RK
L7
1

/ADD IN THE READ INSTRUCTION
/AND SAVE IN THE CORRECT INSTRUCTION WORD
/GET THE F lELO alTS
/AND LOAD INTO THE COMMAND REGISTER
/INSERT CORRECT DRIVE NUMHER NOW,

/SEND TO JIMS CONTROLLER
/NOW k^lELL GET THE UNIT BITS
/JUST The UNIT PORTION
/ROTATE TO BITS 0-3

RT R

Tad

TAD
TAD
OCA
TAD

1731
70 41
30 12
52 63

D
1/ T L> C T
Nr\
Kb
I

RK TR CK

DC A
I

RKLOC
L7 777

RKLOCC
RKOUT

CI A

OCA

RKCUNT

jM P

nlMNOUr

TAD
TAD
OCA
ISi

RKLOCC

/NOW ADD IN THE CORRECT BLOCK NUMBER.
/SAVE IN THE TRACK POINTER NOW
/GET THE CORE LOCATION
/SUBTRACT 1 FOR THE D.B,
/SAVE IN A LOCATION POINTER NOW,
/GET THE NUMBER OF RECORDS TO 00
/NEGATE IT NQW
/SAVE IN THE COUNTER NOW.
/UUN
bur ur
HL AUDricbb ANlJ TRACK FOR rlRST OPERATION
1

7257
7260
7261
7262

1014
1040
3014
2013

RKBOP,

L400

RKLOCC
RKTRCK

/GET
/BOP
/AND
/BOP

THE LAST LOCATION
UP BY 400 TO THE NEXT CORE LOC.

SAVE

IT .

UP THE SECTOR BY

NOW.

7263

72 40

72 64
72 65

6 7 42

2774
2775
2776

7266
7267

nil

72 71
72 72
72 73

3000
3001

1107

7251

i.i

4'<
y
c 7/ •0
07
c / *f*t

ROUTIfvjES

HE AU

/GO TO COMMON AREA

57 XX

< / 0*»

/ORIGIN This SECTION INTO FREE AREA.

/
/

72 70

7200
1023
3066
1014
6755
1064
6753

RKNBOP, CLA CMA
DCLS
CLA
TAD
OCA
TAD
OLCA
TAD
OLWC

/PREPARE TO START THE NEXT OPERATION
/CLEAR THE STATUS REGISTER ^'OW
/CLEAR THF AC BECAUSE OClS OOESNT
/RESET THE TIME OUT COUNTER SO THAT
/WELL KNOW IF WE TAKE TOO MUCH TIME.
/GET THE LOCATION TO 00.
/SEND IT OUT TO THE CONTROLLER
/SET THE V.OHU COUNT TO 1 RECORD (-400 wUROS)
/AND SEND IT TO THE CONTROLLER
.

M20
TEMPI
RKLOCC
M400

/2/4

1013

3004

7275

0000

30 0^>
30 06
30 07
30 10

72/6
1211
7300

^5002

TAD

rktrck

/NOW GET THE TRACK AND SECTOR IN THE AC.

/DO RK08 INSTKUCTION

4556

CHECKI

2i5 67
t>306

JMP

TEMP2
RKNOSK
TEMPI
RKNOSK

/TEST THE KEY BOARD
/AND ALSO THE TiME-OUT FLAG
/STILL OK
/HOW AQOuT THE SLOW COUNTER
/STILL OK

30 03

3011
3012

RK INST
/

73 01

7302

IS£

2066
5306

JMP

30 13

3014
301b
3016
3017
30 20

3021
3022
3023
3024
30 25

3026
3027
3030
30 31

3032
3033
3034
3035
3036
3037
^040
3041
30 42

73 03

7304
7305

4551
7735
5303

6745

731

5313
6747
5276
6747
5323

7311
/312
7313
7314
7315
7316
7317
7320
7321
7322

RKNOSK

74 10

RKSEKE

67 41

7323
/3 24

7325
73 26

2012
5257
2226
5626

RKDUNl

RKOUNl

RKL40
CLA

RKOFF
RKTRCK
RKKE AD

/IT WAS. DRIVE dLEW IT. A NO-NO
/NOW GET THE RECORD THAT FaIlED.
/RETURN ON AN ERRQR CONDITION TQ DISPLAY MESSAGE.

/BOP UP The RECORD COUNT. DONE?
/NOT YET DONE. BOP ALL AND GET NEXT.
/GOOD OPERATION. GOOD RETURN. ALL IS WELL

RKCUNT
RK80P
RKREAO
RKREAD

\Si

ISi

JMP

/RETURN

CALLER

3050
3051
3052

3076
3077
3100

RKlNST+1

JMP

30 75

/
/

3074

30 73

/NOW TEST THE DISK FLAG.
/NOT COMPLETE. TEST THE ERROR FLAG,
/COMPLETE. TEST THE ERROR FLAG ANYWAY
/ALSO CHECK THE POSSISalLTY OF AN ERROR WITH NO COMPLETION FLAG
/NOT YET DONE. HANG AROUND AWHiLE
/TEST THL E^KOR FLAG
/WEVE FI^aSHED ^ITH THIS SECTOR. CHECK FOR MORE TO GO
/READ IN THE STATUS REGISTER
/WAS
T A
TRACK MISS

SjfA

30 47

30 57

OSKC
SKP
JMP
DSKE
JMP
DSKE
JMP
ORDS
AND
JMP
TAD
JMP

30 45

3060
3061
3062
3063
3064
3065
3066
3067
3070
3071
3072

0327
7640
5351
1013
5626

3046

3056

/ERROR
NOT DONE YET. A BOO BOO.
/RK08 BAD MESSAGE FOR ORIGIN AT 7600
/WAIT FOREVER

/306
7307

3043
3044

30 53
30174
30 5^

01 SPLAY
KKBA0&177! 76kJ0
JMP
.«2

/
/

7327
7330
7331
7332
7333
7334

0040
7565
7566
7563
7562
6733

RKL40,
RKIKST.
RKOUT.
RKLOC,
RK UN

T ,

RKQLOR,

40
RF IRST

ROUT
RLOC
RU'^I T

QLDR

/POINTER TO FIRST BLOCK NUMBER
/POINTER TO THE NUMBER OF BLOCKS TO DO
/POINTER TO THE CORRECT LOACTION TO DO
/POINTER TO THE UNIT AND FIELD HITS
/ACTUAL RK08 READ INSTRUCTION

/
/

/THESE NEXT DEFINITIONS ARE DEFINED AS
/AUTO-INHlX REGISTERS BECAUSE OF SPACE
/REQUIREMENTS. NO ROUTINE WHICH WE CALL
/WILL TOUCH ThEM. BECAREFuL OF THIS
/IN THE FUTURE* IF DISPLAY OR CHECKIO
/SHOULD EVER NEED TO USE THEM.
/

/
/

RKL0CC=AUT05
RKTWCK=AUT04
RKCUNT=AUT03
/

/CONTAINS THE CORE AODRESS-1 FOR THE PRESENT TRANSFER
/CONTAINS THE TRACK AND SECTOR PRESENTLY BFiNG USED
/CONTAINS -THE NUMBER OF RECORDS TO GO.

3101

31 H2

3103
3104
3105
3106
3107
-61U
3110
3110
3110
3110
3110
3110
3110
3110
3110
3110
3111
3112
3113
3114

/
/
/

733t>

'^lA-l

7336
7337
7340
7341
7342
7343
7344
734b
7346
7347
7350

i5J2^

3134
3135
3136
3137
3140
3141
3142
3143
3144
3145
3146
3147
3150
3151
3152
3153
3154
3155
3155
3155
3155
3155
3155

31b5
3156
3157

GOG J ENOUG-i

LefT*140

/i,'-iCl,JL J

TJP=34i5

/ABOUT Thl CV^^tk

^bd4
^211
^605
4016
1724
4027
1722
1311
1607
3400
te;xt

"fd«ive. not '^OHKINGN"

/
/

311i>

3116
3117
3120
3121
3122
3123
3124
3125
3126
3127
3130
3131
3132
3133

RK8AD.

/
/
/

73bl
73132

7353
7354
7355
7356
7357
7360
7361
7362
7363
7364
7365

7366
7367

3230
4bbl
7/70
2230
5352
7240
6742
6751
4^56
6747
7410

RKOFF,

RKWRlTt
DCA
DISPLAY
RK 0FF2S177 7 600
RKWRITE
IS2
!

JMP
CLA CMA
DCLS
DCLA

RKHANG,

CHECKIO
OSKE
SKP
jMP
DSKC
JMP
JMP

t33l5

6745
5361
5263

.-3

RKSEKE

RKHANG
RKN80P

A COUNT OF 4096
IN A TeMPQRARY REGISTER
/DISPLAY THE ERROR MESSAGE FOR A FEW SECONDS
MESSAGE
7600
ERROR
TO
/POINTER
/INCREMENT AND TEST THE COUNTER
SECONDS.
/DISPLAY FOR ABOUT 1
/CLEAR THE STATUS REGISTER BITS
/CLEAR THE STATUS REGISTER
/OO A POk^ER CLEAR
/NOW »JAIT FOR THE RESYNC OF THE DISC
/WAS THERE AND ERROR ON THE RECALIBRATE?
/NOPE. NOT YET ANYWAY.
/THERE WAS AN ERROR. GIVE TH£ MESSAGE
/IS THE RECALIBRATE FINISHED,
/NO?E. WAIT FOR IT.
/RETRY THE OPERATION NOW.

/SET JP

/
/
/
/

/
/

7370
7371
7372
7373
7374
737b
7376
7377

0240
mSid
0623

RK0FF2,

/ABOUT CENTER SCREEN

lEFT*240
TOP-340

0t?05

1340
0t?22

2217
2234
TEXT
/
/

"FSEEK ERROR\"

3160
1161
1162
3163

3164

/
/

3l6i?

3166
3167
3170
3171
3172
3173
3174

/
/

/
/
/

31 7b

3176
3177

/
/

32 01
32 02

3203
3234
3205
3206

/
/
/
/
/

32 07

3210
3211

3^ii2

Eject

3213
3214
32155

3216
3217

NO ERRORS

SYMBOL

VALUE

DtF

AAA

b30o

0544

AA AA AA
AA AEND

b2i3i

05i55

1 iJ 56

&3i)4

1035
074 7
0616
033^
1030
04 27

AAAGET
AAAOKG
AAAPUT
AA AT AB
AA Al

bl61

f%LF'E^E\C£S

0b 11
04 2 7
0 3 32

04 ?4
03 21

4b 3

1^'2 6

bl b

Jo 04

44 3

AAA2

05/2

04 37
0b6

AABLAH
AA8L0C
AABLl
AABL^

bl72

03 4 7

0255

i>3b3

0635
176/

04 65 0 46/

b2 lb

7467
7471

17 /I
10 24

/1^61

0513

17 36
17 4 5
10 63

AACR

b4 4b

AAEND
AAGET
AAGET2
AAGET3
AAGET4
AAGLl
AAGOl

S226
5163

04 47

10/6

0332

022«fl

t?41b

0 7 67

0 / b3

b424
b427

077/
1002
1046
1055
0641
0333
1471
1423
2350
0620
0411
1766
1770

0/70 1013
0/7 5
1005
1006

17 /6

16 36 164 7 1777

AALI M
AALI MC
AALL

AALOOP
AAMHOW
AA0UT8
AAPUT

&4 60

b464
5367
tJl64

b7b2
b714
7b01
b3b6
b2i20

AASUl

7466

AASIZ2
AASUC

74 70
74 66

A A SUCH

7411
0004
7400
b223
5353
7405
5112
5477
5761
5755
5600

AASUCS
AASYSC
AATAB
AAUNIT
AAUNTC
AB AO

A80I S

A9G1
ABLl

ABSOL
ABSTMP
ACOPR
AC0PR2
ACOPT
ACQPT2
ACOP Y
AC0PY2
ACPGl
ACPG2
ACPLl
ACR
ACRCHK
ACr^R

ACl
AEND

AEND2
AGET
AGETN
AGNUM
I

57 65
56 36

5656
5640
5660
5630
5650
56 74

5700
43 77

5132
5016
5134
5165
5113
5120
5444
37'IA

5731

00 11
02 34

1432 1 436 1456
1455
1662 1732
04 71 0 1?1
0610
03 30 0 430 0434
17 34

17 76

1655

16 40

17 /7

16 37

1634
0441
061b

lb27

0463

0 62 4

164i.

lb 30
02 35
12 40

0 65 7

0660

12 50
06 3b 1 2b 2
12 46 126 7

1355

0243
1114
1522
1511
123/
1613
1314
1343
1316
1345

1 650

10 77

1251

1376
1406
1374
1404
1 32 3

13 73

12 7 6

13 03

1326
1373
1403
1371

1333 1351 1403

02 72

0116
02 76

0340
0247
0254
1021
1412
144^

13 02

1332
1301 1331
0656
0106
02 54 0263
0232 0277
0230 0665
0251
0/61 0762
1322 1 350
1324 1352

16 73

0272
04 13

^j771

1465
1420

SYM30L

VALUE

OEF

AGl
AG2

b370

13233

&4 70

0656
1067

AL AS TC

bs5 66

06 4^

ALD
Al OOP

!27 b0
t)0 67

1463
0215

05 42
14 2o
02 40

A L 40

53 54

06 36

0442 0452

06 37

b0 6 b
bl 10

0211

04 36 0 54 1 05 46 0 5d 3
02 53
06 66
04 20 0 42 4 10 7 0; 107 1 1073
01 23 0 15 1
10 67
02 37 0257 02 62 0 301 03 05
0111

Ai_ 43

AN TAPE

AOK
AP
AP AR T2
AP CR

APUT

ASCGO

b2 2ii

02 3 1
04 34

50 33

0142

b221
5150

04 36
0v5lD

HEFERENCES
0414

bl 74
b3 77

03P6

AS CG02
AS CHI
AS CH2

06 76

01 46

b017

0312

50 4 3

0121
0163

b0e^

00 74

AS C NP

AS CT 2

50 4 4

0062
01^5
0064
0065
0063
0132
0167
0122
0161

AS E T

1 5 k;2

02 54

51 62
52522
504t>

0331
0130
0165
1703

asclpt
ASCLST
asclto

b042
437/
4377

AS COUT
AS CT

47 03

asctt
ASCII
ASET

AS RF B
AS RP 82

ASUDDl
AS UDD2
AS UG 01

b024
5i3 47

b02ti.

7425
74 40
45 50

ASUG02
ASUlPl
AS ULP2
ASUTTl

4t>54

AS UT T2
AS YSL
AUt^TL
A'JTOl

74 42
74 72
74 76

AUT02
AU 103

AUT04
AU T05
AUT06
AUTO?
AUTDB
AUXI N

AUXOUT
A377
A5262
A6 04 3

BASSEM
BBBASE
BBB8BJ
B5BHDR
BBBPUT
BBOUMp
B8LT

7417
7432
742 7

0010
0011
0012
0013
00 14
^5015
00 16

0017
4574
4575
5443
5361
5362
3634
4270
4316
4211
3627
4267
4376

17 22

1604
1613
1670
1711
1705
1724
2013
2021
0131

0132
0133
01^4
0135
0136
0137
0140
05 52

0554
1020
0632
0633
0406
1171
1225
1103
0400
1170
1313

«3

0 24 3

0<^ 73

0 35 6
06 76 156 6
06 37 0112
00 7D

1232

0150
00 65 0110

0145
0143 123 3
03 57
06 77

0362
0702
0511 0260
0201
03 61

0/01
1606
1615
16 74

1715
1604 160 7 16 75
1613 1 61 6 1716
16 05
16 14

16 35
16 46
1
7 1426
1415 1417
2 6 1435 1466
21 21 2130
l3 0 2150 2151 21 52
1

14 67

165 6

2366 2 37 0 23 73 2375 2405
2371 2401 30/6
2374 2402 3075
i^624

1427 1433 1434 2060 2071
0512 025/
0^61 0 42 0 02 22
2507 1216 1221 1242 1310
1014
0530
05 33
03 65 0414 04 53

1134
1212
1127
0367
10 72

1205

1 71 5
2 154

1717 1 723 1724 1 725 1726 l 727 1733 1 734
2i7i 2210 222C 2225 2232 2237 I2l2 I2l3

766 l77l

1 7 76

2000 2007 2114 2li5 2ll 7

cv Mam

BB Nl
Bo IMc
UD
IN
DO n
U T1 KIT
BB OO T
BB OU T
88 TA PE
BC ER R
BC HA R
1

w u u <N
U LL £

1 5 A
OO<
Ic

t C

1 1

4 2 73

12 01

7 <

3^ 46

37/5
01 0b

05 7 7
04 14
io;? /

36 21
1

Utr

1 "3

arur
ourit. i/r\
BP
ML YA
KU ur

0140

03 71
04 61

01 01

BE END
or rr
OL 1 L ur
BE LO OP
ot i>tu

4261
3643

1 1

40 24
42 52
7A
40 4t>

06 63

BETLP2

4037

BF E LD
BF IE LD
BF LA Gl
BF LA G2
BG ET
BG 0

37 72

BH I GH
RM
ij w?
nc
tsn r
B I D I FF

3417
3513
4115

H T ni MP

41 52
34 00

B I NG 0
D T Kir no

4 4 07

T
1

H 1

0135
0102
01 04
41 73

36 06
35 55

4610

lfl*»iO

1150
04 53
07 04
06 76
05 74
04 56
04 11
04 12
10 51
03 56
IOC

0065
02 00

0763
10 23
00 42
13 54
13 64
1 7 62

2114
40 03

a
n VT
D T1 M T P

4101

fit

DL UU T n

BL RF 8
BL RF Q2

4*s

RM
A SF
D R
PM
O^
1

BMTAB
8NFILE
BNUH
BOADD
BOFi EL

BOLOO
BOLOP
BOTTOM
ePART2
8P0DE
BPGINT
BSCOMM
BSETl
BSTGO
8SYS

0200 02 01

02 20
10 42

1045
03 47

0374
1302
0460
04 5 7

0413
0300
0167
0105
1044
0126
1050
0260
1100

1 'J 7

053 0

1110
0 431

0444
0463
022 5
10 cc 0

1 371

0244
1017
0260
02 37

0162

0146

0743
103 4 1170
1000 0060

0062
0173 00 64
0171 0063

1357
1367
1355
1365
0203
1010
0660
0245
2421
1256
0045
0051
0047
2016
0073

3501
4164
4167
3600
0074
4366
0137
0136
0103
7400
3504
4166
3452
4172
3557
4206

0701
0376
0100
1354
1364
0735
0774
0636
0057
0174
0043

02 45

35 26

34 34

00 54

015 5
0216
W1 S7

BL Ti^
f

35 4 7
34 74
35 24

06 41
07 45

0114

oi_ UU L

12 43
12 37

1251
1076 1142
0126 0130 0132
05 57 1206 1232
0236
0457
03 57 0432 0441
0356 0375 0455
0404
0052 1004 1073
02 04 0206 12 25
1152
0353 0363 0426
0713
1163
0364
0/00
0707
0352 0371 04 43
0050 0351 0372
0053 0065 0066

00 56

43 77

BINT AP

REFERENCES

1025
1000
0461
2424
1261
0733
0304
0776
2301
0147

02 61

0747
0112
0655
0101
1105 1125

2426
1272
0757
0741
1024

1006 1010 1175 2251
1275 1311
0772 1235 1266
0755
0103

01/5 0210

0102 05SI7 0512 0751 0754

SYM30L

VALUE

DEF

BTAPE
BTEMPl
BTEMP2
BTEHP3
BTENO
BTENT
BTTY
BTTY2
BUFFER

df^
"ffO A
O 1i

a77^

0 / 60

1313

^162

04 b3

06 57

01 3v5

04 b4
04 b

06 61

0 66 5
M
A7/ A
too
0

0134
4 1 70

42 ^0

10 72
00 66

O *l ssic

BWORDl
BW0R02
CARD

00 7 7
01 00
00 0 1

CBUFF
CCDF
CCERR
CCLOOP
CCMORE
CCOM
CCOPY
ccauNT
CDBUF
COCDDC
CDCONT
COCUNT
COOONE
CDEOC
CDFLAG
CDFUNT

6b 10

03 77

REFERENCES

V fVJO

CD GO NG

CDIL70
CDINIT
CD ISK
CD ISKC

4b 0k!
6 4 24

32 b6
<32 bl

32 14
0 o ic/£f

616 4
6467

6004
6001

0 6 7 6 0 6 7 7 0701
0616 0 700 0713
0360 0373 0407
03 62 0374 0413

0167

03 03 0 30 5 06 72

10 57

07 76

1056
1510

X05l

07 56
24 44
24 3 7
23 77
24 7 7
03 61

0 7 66

102 3

0073

61 22

00 70
6?P
O/
vc A7

6116

02b6

60 00

00 b 1
03 22

A1 K0

60^4
6702

02 00

60 0 b
A
^A
OH

0123
1134
1135

CDISH
CDLOOP

66 01
61 14
61 32

CDLl 10

6024

1 551

1606

lb 03
24 53
24 30

0507 2 417
2414 24 52
0171 0172 0277
1014
03 16 0317
02 74 0323
02 31

012 4 0162 0167
03 12
Ol^ A^

1141 1146
0315 0141
1135 116 5 1234
10 34
01 56 0261

60 40

02 51
03 02
014 4
03 40
01 63

61 03

02 3 b

02 60
02 47
01 61

6104
6156

023 7

0327

03 26

01 74

60 2 b
60 03

0150

CO SWT

CDTAB
CERR
CHECKI

6235
4477
4bb6

0401
1502
0513

0607 0155 0230
0 30 7 0320
0315
0577
1337 1473 2000
2403 2 460 24 61
1277 1671
2425 2 433 2457
2401
0733
0/34
0751
0767
15 00 150 5
0166 0201 0211
0475 0506 0534
0323 1133 iibb
0/53 1032 1040
1677 1710 1713

CDL215
CDL240
CDNEXT
CDNXT2
CDPONT
CDREAO

61 61

CI NS

32 bb

24 43

CINPUT
CJNS
CINU

4610

1232

32 54

24 42

3252
6461
6512

2440

CL ITOl
CL I T02

CLLOOP
CLOOP
CL OWER
CNOTR
CNTRLE
COPY
COREF
COUNT

1015
1061

64 1^

07 44

6405

0737

01 14

04 32

6077
0073
4bb4
6400

0226
0373
0506
0731
0464

S3141

1150

07 30
10 46
1 SAW
13 7 0

01 54
to /

0712
0710
1145

0324
0131

;

116i^;

0506 0544

^5556

^562 0574

COUT

C0UT8
COUTPU
COUTS
COUTU
CPBYTE
CPLOOP
CPOINT
CROLTT
CR IN IT

CHKPTN
CHK08
CRlF
CRM303
CSET
CSIHE
CSMALL
CUPPER
DATA
DBACK
DBADl
08AD2
08LANK
DCHECK
OCHP
DCIM
DCLA
DCLOOP
OCLS
DCMA
OCOM
DCOMMA
DOAGIN
D08ACK
ODCHEC
DDCHEK
DDCODE
OOCOM
DDOI S

DDDISl
0DOIS2
DDEXIT
DDTIG
OOFOUN
ODGLEN
DDGTEX
ODIN
OQISl
DD1S2
ODNAHE
DD02
DDPAST
ODPOIN
DOT
ODTHER
DUYREC
QEAC
DEAL
DECODE
OFBIGR
OriG
OFIRST
DFNAME

1^21

6436
3262

07 71

t;764

24!?i3

47iJ3

12«53

240i? 246J «:!464
1327 1712
2427 2431? 2462
241ie 24bl

lk316

3261

244/

32!57
6;>li

244b
li560

i57 47

3225
60B2
3b61
3b77
6670
6661

2411
0071
02/6
031b
1244
1226
0517
0314
1043
2476
2432
0433
0452
1774
1533
1564
1741
1712
2144
2106
2140
1213
2150
2100
1654
1261
1162
2261
1573
1316
1155
1513
1176
2043
2044
1674
1574
1576
2047
1334
2137
1571
1572
1575
1536
2051
2046
2147
2050
2045
2103
2102
0525
2030
1631
0375
1333

2471
0175 1^5222 e23/ i;276
M302 0116

^5t>7

3576
647b
3301
3245
0115
0131
2725
2527
Z554
2701
2653
6737
6611
6751
6652
6742
6601
2622
2325
2227
3145
2561
2360
2222
0737
2243
2765
2766
2642
2562
2564
2771
2373
3041
2557
2560
2563
2531
2773
2770
3051
2772
2767
6616
6615
4562
2755
2600
0075
2372

i^762
^330!?

if3i£)6

^322 '^325

0.507

1174
ll5k}
fe)6l7

217 / 223b

\d6^-^

1^74b

2407
2423
1537
0306
1601
1525
1544
1722
1573

1054
2415 2432 2434 2467 2470

0 75 /

i;551

0400 0702 0751 1230 1267 1273 0127 0133 0134 0212
2001 2261
1552
1736
1744 1745 2015 2025 2036

1654 3131
1221
1137 2772 3130
1152 1153 2475
1705
1324
1214 1217 1232 1257 1266
2132 2262
1510 1553
1237 1246 1256 1326
0526 1157 1161 1227 1267 1321
1516 1621 1332
1160
1631 1641 1651
1635 1643 1700
2161
1561 1566
1411
1716
1177
2077
1517 1534 2043
1560 1565 2044
141^}

1520
1741
1714
2142
1732 1737
1074

0620 1056 2310 0042 0170 1404 0074 0142 1237 1276 1326 1670 1711
2017
1574
1501 1502 1512 1521 1527 1530 1540 1542 1547 1557 17?4 2013 2022 2034
1233

SYMBOL

VALUE

DEF

DF OUND

3000
6622
6621
2334
2706

2B74
2112

1576

21k54

2543
1222 1261 i2>'^id 16ZA 1314
1577 1 763 2t.47 2264
1544

UFSC
DFSE
DGETNU
DGlEN
DIAL

OUlBO
DIALEX
OIALSY
OIMA
DIML
DINOEX
DIRECT
DISC
DISK
DISKWO
DI5PLA
DIS»^EP

OLCA
OLOC
DLOR
OLOW
OLEN
DLOOK

OLOOP
DLOOPl
DL00P2
DL00P3
OLi^C

DL5757
OMAC
DHAR
DMAW
OMNT
DNAME
DN6ACK
ONGLEN
ONOS
ONOT
ONOl
DNPAST
DNPOIN
DOK
DPAST
DPGETL
OPOINT
DPSTAR
DPSi^IT

DHCA
ORDA
DHOC
DRDS
DREENT
DRWC
OSAC
DSET
DSETPl
DSIHE
OSKC
DSKE
DSKT
OSOURC

1271
I7t33

REFERENCES

bbt>3
03 00

05^4
^2 31

k^/24

6176

14/4
0232
2111
2110
14^6

1467

03(50

6616
661b
241b
4b63
0b3i^
4577 0562
6623
210b
0001
0155
4551
0500
3173
2322
6755
2157
6732
2141
6733
2142
6735
2143
2414
140b
2475
1500
2304
1237
2477
1502
2534
154^?
2660
1717
6753
2156
2570
1602
6626
2115
6603
2101
6605
2077
6743 2151
3064 2166
3145
2262
3147
2264
2674
1733
3141
2250
2516
1521
3150
2265
3146
2263
3112
2217
2717
1765
2371
1332
2413
1404
2374
1335
2375
1336
6757
2160
6734
2145
6736
2146
6741
2147
2453
1446
6752 2lbb
6612
2107
6631
11/2
6650
1211
2376
1337
6745
2152
6747
2154
6746
2153
24 72
1465

2itfl3

2547
2513
1374
0311
0i5b
2037
0244
0653

2014

016b 1117 01^7
0216 0130 0165 1314 1343 1703 1722
206 2 21 73 221 5 2543
0246
1703 I7ii0 1722 2274 1522 1656 1017 2603 3014 3123
1 70 1

*i311

2777
1142 274b
3060
1^376
iii5b

1531
1554
1743
31301

1440
2562
^?623

1575
2244
2172
1731
2224
1507
2217
^167
2200
1600
1205
1414

2201 2213 2245 2252 2253

2 231

22 36 2 24 3

1511

2173
2251
1772 1775 2051 2265
1211 1273 1317
1662 2046 2263

l^m
1202
1/15 1144
1660 3027
2134

1163 l2lb 1226
1*^00

1203
3020 3136
3023 3025 3133
1460

SY MRQL

VALUE

DEF

6701
4145
4157
4206

13 05

DS YS
OS YS 2
UO TOO

DS YS 4
DT ABl
OT HE RE
DU P
ny BT Tr

53
66 73
27 33
t>614

1013
1030
1105
0624
1275
2005
1257

REFERENCES
12 17
12 76
12 77
13 00

13 01

1211
2026 2037 20 50
1531
1663
1157 2555
1155 2527
1443
1412
1422

26 34

16 66

n Vftnnn

6645
6643
2567
2565
2435

2114
2113
1601
1577
1426

DY LO OP
DY PA ST

24 25

14 16

14 24

2566

1600

1416

DY RE CT

24 00

13 71

05 31

02AP
01 CLOS
DINOG
D2CL0S
ECHO
ELOWER
EUPPER

3017
2615
2645

2113
1647
1700

2106
1640
1634

26 51

FS I2E

0001
0112
0113
0246
0251
0122
0262
1515
1537
5406
0124
0117

1704
0200
0430
0431
0710
0713
0441
0753
0303
0330
0122
0443
0436

FT YPE

0121

0440

FUN I T

0120

04 37

FWHA T

0123
1243
1006
1123
4547
4542
1417
4525
4560
1302
1300
1102
1253
1275
1301

0442
2230
1665
1771
1562
1554
0512
1537
0521
2314
2312
1770
2252
2307
2313
2304
1766
1772
1735
2136
1753
1757
2311
1657

DX AC
DX AL

DY8ACK
DY Gl. £N

EX IT
EX ItTLO

FBNUM
FCORE
FF ILEC

FFTEMP
FI LEC
FNAME

GA LL

GCLE AR
GCOUNT
GCUNT
Gf FNUH
wn
GET A
c>i'i

GE T

GETL
GGCLEA
GGIN
GGINSE
GGLIMC
GGLINE
GGMAIN
GGM3 3
GGNUM
GGTEXT
GIN
GINSER
GINTO
GLEFT
GLIMIT
GlINE

12 74

1100
1104
1052
1200
1070
1073
1277
1000

2 04 5

16 45

0515 0616 1055 2154 2156 2176 2212 2221 2230
1523
1545
0505
0715
0314 0321 1654 1655 2153 0644 0654 li2l l523 0466
0651
0123
0307
0230 0176 0477
2414 2423 2430
^^^^ 2^22
^^11
2412 2414 2422 llol li.l 11^^
^^^^ ^^^^ ^^^^ ^^^^ ^^^^
Jli 11^
0110 0114 0117 0122
0127 0141 0305 1112 1132 1154
1026 2141 2155
^^^^ ^^^^ ^221
IMl 0415
^^^i
0256 0 261 0300 0304 0307 0323
0421 0425 0474
0312 0317 0350 0362 0363 1172 1224 1400 2552 2554
1706 1725
0306 1446 2074 0164 1114 0134
2342
2314
1676 1712
1530 1541 1544
1524 1547
0440 0453 0455
1051 1557 1021
1/05 1724 0502
2i53 2200
2165 2233
1707 1726
2145 2271 2272
2236
2167 2223
2257
1665 1667 1673
1742
1670 1674 1716
1770 2146 2237
1763
1747
2151
0524 1660 1662

2227
1^50
0472
1455
1003
0133

2234
1650
1266
2103
1007
0140

224i
1657
1735
2l37
1557
0145

2522
2023
1744
23l2
0521
0303

2532 2537 0270 0074 0202 0205 1416
2157 2406 2520 2522 2531 253? ^^^^
2537 0105
^^^^

0076 0l6l 0223 0277 1116 0136 0l7l 0225
0525 0533
0642 1123 1525 0464 i241 1317 iZa^

SYMBOL

VALUE

DEF

REFERENCES

GLOOPl
GL00P2
GMAIN
GMLEN
GNLF
GNL3i4
GNRNO
GNRUB
GNUM
GNXIT
GOK
GPLACE
GPLCE2
GPUT
G3PG1
GSPLl
GTEXT
GUNIT

1021
1040
1007
1101
1230
1307
1242
1232
1276
1210
4543
4540
4546
1226
1315
1303
1120
4537
1022
1041
3321
3313
3327
4403
4404
0111
0102
0110
0222
6513
0103
0766
0743
0767
6204
0072
0054
0006
6662
6652
4405
0000
4561
1120
6654
3303
5777
0001
6322
6316
6337
6323
6371
6320
6374
5776
6333
6664
6321
6361
6275
5765

1701

1711
17J0
1/31 iJl00 26U
1736
2341
2216
2215
^343
1/66 2147 2163 2164 2206 2210 2232
2345 2346 2347 23!?0 2351 2354
1S42
1545
1546 1555 1556
2162
2144
2143
1/04 1723 17 72 1334
1526
1661 1663
1664
0115 2533
0117 2523
0^30 252i 2530 2537
0316 0641 0653 0200
0167 1120 0140 0475
1375 1754
0411 0322 2402 il30 1135 1157 1260 1325 173? 1740 i746
1373 1515 1555 1653 2550 2551
1061
1020
0413 0320 2400 1126 1257 1320 1707
1542
0514 1524 1556
1545
1471 1514
0657 1550 1555 2001 2007

Gl
G2

HHPOP
hnPUSH
HHTEMP
riPOP

HPUSH
IlEN
INfBLOC

INDEX
iNirOV
INSULT

IHmiJ
lOCD
lOCHEC
lOCP

JACKS
KEVCHA
L3MAX
L3NUM
LCo
LCF

LEADER
LEFT
LINE
LINE8
Lie
llEDER
LLPtJ2
LOCI
LPCOL
lPCOHH
LPCR
LPEJ2
LPlND
lPEXIT
LPH204
LPM320
LPPUT
LPH
LPStQ
lPTAB
LPTEST
LPT2

I7i^0

1666
1767
2176
2330
2221
220i?

261^
2146
lt>55

1552
1561
2166
23 41

2322
2015
1551
1702
1721
2526
2516
2536
0114
0116
0427
0403
0426
0651
1066
0404
1562
1521
1563
1504
0372

1 747

2021

2^5 11

2020

1767 2021 1337
0673 1 42 6 1433
0577 1362
02 33 122 2 02 04 0264
0/72 2014 U02 2300 2322 1427 1510 1762 2114 lli4 1066 2652 3106 3153
1175 2l50 2214
2015 2033
0602
0121 2512
1563
1401 1440 1441 2626 2627 2422 2427
0554 0566 0571 0631
0573
0620
1571 0557 0640 1422
0621
idb32 0535 k5635
ii5:?53
0570 1414
1560
0i?34 0552 0556 0606 0627
0604 1426 1433
0520
0617 0634
0610 0517
0155 1562 1613

04 77

0474
0120
0276
0523
2014
0475
2503
l57l
0111
0543
05^4
0570
05;?0

0640
0541
0647
1570
0564
0500
0542
0626
0513
1556

iJYMaOL

VALUE

DEF

6<54>5

LP088A
LP0882

66B0
6200
6/11
6720

0574
14^1
1422
1363
1372

LPiJSLP
LP;3dLT
LPk3801

LP08O2
LPi)303

LP3804
LP08O5
LP 38 06
LPt3807
LPi38PO
LPi^SPT
LPi58TS

024kJ
63 24
63 6Z
63 41

1^555
05 72

6350

06 /2

0551

HLFERENCES
01>67

1427
1427
1367
1377
1405
14id6
14;27
141i5

0601

1411

63:>3

06 04

14 12

6363
bill
6737
6703
6160

0630

1413

14 i35

13 75

1372

63 &6

1426
1355
0337
061/

LP4«3

6375
6376
6373

0651
0646

LSO
LSE

66 61
66 bl

04 76
04 /3

UUNOAD

llb4

L10
L100
L177

0025
0142

L6000

3550
0031
0041
0116
0035
0032

2047
0347
0320
0465
0312
0321
0355
0344
1043
0350
1047
0333
0323
0246
0324
0334
0435
0330
0325

00 60

03 54

L70
L700

3774
00 36

0576
0331

L7740
L7757
L7770

0033
0064
0024
0053
0056
0034
0021

0360
0317
0346
0351
0327
0314

L7 777
MA INDI

00 47
02 63

MANDMl
MAN0H2
MAO«N
MGOTO
MMEX IT
MM ORE
MMOVE
MONE

4422
4423
4424

LPl
LP2
LP21if
LP 21 4

L2 0

00 20

L203
L^0
L333
L377

0026
0061
0051
4165
0055

L4
L4 0

41 71

L4i30

0040

L4000
L4020
LtJ000

Lb4
Li57^?7

L60

L7i}00

L7400
L77
L7 7kJ0

003i$

44 27

1351
4432
1327
7240

06i?0

03 26

03 42

0772
1412
1413
1416
1422
24i35

142/
2363
02 73

1430 1431 1 432
1430 1431 1432
1371
1400

143 2

10 27 1365 1374
0523
0524
1431
1427 143 0
0626
05 75 136 3

2352
0356 0361 1031 2275
2267 1255 1012 0246 ^530
2137 0223
06 62 2 06 2

23 02

1414 2140 2506 0107 0136 0224 1032 1037
0165 0442 1036
1220
0/46
14 65 2113 2147
0666
0535 0536 0545 0552 0137 2765
1024 2005 2625
0116
0516
1325
2116 2127 2207

0120 0123 0142
0175 1770 2553 0134 0766
0442
0433 1241
04 76 0504 0542
0361 0737 0754 2507 2533
1-^61
^^^^
1751 124^ 0^75 0566
0352 1760
0530
1/67 2205 0572 1012 1176
1212
^'^^ ^'"^
0621 0654 ^657
1423
1422 1424
1407

044i 1242 0632

2563
^^^^

^'^^"^

10 46

1656 2241 2252 25l5

^^^^ ^^^^ ^^^"^

2512 2743
^^^^ ^^^^

^^'^^

^""^^

2 74 7

^^^^ ^^^^ ^^^^ 1^6^

2^'^ 2170 04 77 0546 1005 104 4 I5l2 2477 2755

141ia

2400
1405
0533 2365
0647
2006

nil

III'.

i^ii

... ... ,.,3

iiY

HdOL

VA LUE

DEF

HtPE^ENCEb
^3 76
06 75

MURE

44 13

14 ii^3

MO VL

4b64

05 32
02 75
02 /4

7*546
Ml fiO

7^4^

Ml .3
Ml 2

00 3 7

Mi* 12

0023

03 13
03 32
03 16

*5632

0403

01 4 4

04 6 7
2 4 66
05 7^?

M2 it?

5/7 6

Mi:

MiJ 43

04 71
03 43

1411 1412 1413 14 44
0711 24 11 2 42i? 0732
0151 2514
i^lbl
03 14

2313
1464

M3 4*^

0147

Mv5 7 7

01 45

04 72
04 70

0421

M4
M4
M4 22
M4 3

02 22
00 56

Mt> 4

0042

Mt>757
M6
M6 0
M7 0

0fe)57

M73
M77
NO

NOD S
NONQDI
NO SUCH
I

0063
00 43
00 44

0045
0046
4567
3l5l
31 55

OU TNUM
OU TUN I

4560
0130
0104
0106
0105

QV£REX
OVERLE

0007

palt
PCHAR

0736

OH I G IN

0UT3L0

02 47
07 30

03 15

0352

22 54

0335
0353
0357

1322
1420
1367
1^76
1302
1230
1251
1425
0541
2275

0341
0540
22 7 3

2300
1632
0451
0405
0407
0406
0711
1514
1500

2265 04 22

0 ^2 6

1377 1235 1 35 7
2261 0656 1144 1010 0244 1 01
0511 06 63 154 3 t'521 0606 3000

05 06

03 3 7
03 4 0

17 77

13 76

03 61
03 56

03 36

1 «>63

14 37

12 15

0322
0345

M»5 4

07 /I

14 6 4

1404 1405 .:4 45 2 7 74
04^4
10 64 2504 00 02
1061 0514 l/;24 1465
0:>04 0532
0416

0(i)27

M3 «22

0 04 4

4o 3

1 4oi'

14 70

1720 2176
2501
1312

1451 1703 2156 0447 1075 1444

00 74 3075 00 76 0077 0110 0111 0112
0046 0370 04 02 0672 0704 0 73 6 0745

0412 0315 2404 1122 1146 1156 1261
06 50 0 30 4 2413 2556 1270 1356 1733
0414 0313 2411 1124 1263 1^4 7 1726
14 72

1473
14 43

15 06
14 61

1362 1366 1424 1462 14 63 1467 15 15

1621

1361 1372 1374 1402 14 12

PDCA VR

07 37
06 12

13 47

14 10

PO I

0731

1501

06 36
00 01

13 74

1341
1^71
1442
0246
13^7

1343 1345 134 6 13 50

POO

13 44

1400

PC OH
PC S*^

0 714

14 55

147 7 2620
1434 0451
1373 1444 1472 1514

0702
0732
0601

0204
0271
1447
1502
1336

PI P
PI PGO

5S3 52

05 02

ir? 47

0213

0624

PIPL
piplst

02 02

0210

0635
0620
0631

PI PP IP

02 00

06lt?

0t>03

PLOOP
PMQRE

0663
0076
0651
7201
4565

1424

1445

03 76

0252
1355 1411
02 67 1666 1714 2 231 0!3 23 1131 1153
1407 1673 2126 2316 1107 0476 1354
1^?0^ 2630
1365

PF L I CK

PFQUR
PGETU
PHOR
PI.VSTl

pNon
PONE
POP
POTHER
PPAST

7307

33 72

0635

14 07

0266
0534
2623
1373

13 54
0 32 4

04 65

0717 1164 122 3 02 65

06 2»

0623

04 60

1661 ^Ji7

25^-7

2546 1136 ^17,^ l201

12^'5

i227

14 7^)

1474 1634 1645 2423

SY MB OL

VALUE

DEF

PPDIS
PROP
PPSTAR
PPTEMP
PPUSH
PRIGHT

06 00

133b

1360
0621
1366
16b2
0711

24 17

05 01 1340 1342 1466
05 35 2 424

13b7
2427
2410
14b6

1474
2413 2421 24 30
0b37 2415
14bl

PS IX

PSTART
PSWI TC

PTA8LE
PTHREE
PTWO
PUSH
PUTL
PUTWOR
PVER
RCRA
RCRB
RCRD
RCSD
RCSE
RCSF
READ
RE ADEN
REAOIN
READSK
REMAKE
REPOIS
REPlAC
RERR
RESTAR
RESIST

73 27
07 34
073t)

4b 71

0260

0 7 26

7626

2442
017b
2306

23 40

0b 42
24 22
06 4b

21 25 2 32 7
23 42
06 15 0 70 4 07 10
06 67

0747
732!?
y30t?
4!366
4 4 07

4!>76

0733
66 32

6634
66 74
66 71
66 72

6631

a7
OiA
%} f C*J
n tA ti (A
<5

1 61

4^ 70

0216
02 61

7^53

RFCOHM
RroaAD
RFOBWC
RFOISK
RFOMAR
RFGXT

76 34
77 bl

RFIT
RFL377
RFNOSK
RFREAD
RFWRIT
RF08

RF08NO
RF0dN2
RFfejaR

RF0BW
RFl0fe53

RK8A0
RKBOP
RKBST
RKBTST
RKCHAR
RKCOMM
RKCUNT
RKOLDR

02 72

1504
lb0b
lb2b
0270
0267
0b36
0124
0bb6
1503
0107
0110
0113
0111
0112
0106
0544

RE^^ERE

RF INST
RF IRST

REFERENCES

7 7 b0
It? 40
77 43
77 32
76 /b

0736
2313
2473
26 34

2635
0347
2623
25 74

7744
7704

2534
2334
2322
2624
2543

76 26

24 63

7630
0001

2466
2215

7734

2603
2652
2226

7!> 6t3

7tjt36

77 52
7b 01

7b0b
774b
733b
/2b7
6213
07b0
6164
7234
0012
7334

22 33

1351
1353
1426
0272
0270
1377
1063
0401
1347
0202

1452 1453 1460 1335
1450 1457 1336
0630
0271 1437 1672 0305 1464 2112
1665 2120 2131 2307 0221 01 77
1066 2157 2217 0552
0 46 4 0703 0716
1406 1407 1430

0271
0227
0165
0200
1402 243 7 06 46 1012 14 45 146 4 15 50
0713 0714
07 1
0 713 0714
2 721

1116 1132 1512 1523
0543 2315 2317

2431
2464
25 00 2645
2510 2552
0b 63 0 36 4

2473
25 46 2 554
24 74 2544

2250
2267
2525
2537
1231

2277 2301 2621 3054

2556
2541
1232 24 70 2570 2574 2575

2 4 67

0244
2004
1037
2542
2604
0103
0124

0246 0421 0560 0700 0 702 00 72
2026 20 50 2121 2137 2162 2203
1121 1572
2605
0104 0105 0106 2350
0125 0126 0127

2625
3106
2764

2550
3015

151/
1541
1462
2740

1203 1475
1202 120 7 1245 1476 1501
1246

30 77

2/61 3037
2740

3060

30 40

27 31

SYMBOL

VALUE

DEF

REFERENCES

HKOH IV
HKDUNl
KKHANG

0X0/

76tl

0422
3037
3132

12 lb

30 04

0167 274 4
3026
313/
2/41 3 02 4

KK INST
HK IKST

RKLOC
HKLOCC
RK

i!5

RKN80P
RKNOSK
RKorr
RK0FF2
RKOUT
RKREAD
RKSCKC
RKSETU
RKSTAT
RKSTTP

7330

3054

73 32
00 14
73 27

30 56
30 7;>

7i^63

7306
7351
73 70
7331
7226
731!?

6671
4^76
4607

3053
27/1
0020
3122
3153
2730
302/
1245

12 30 2 73 5
31 35
12 06

30 34

16 70

16 52 1725
1717
2/53 2 76 7
2 742 2 74 6

Xt**

1725

00 13

30 76

7333

305/
2733
03/0
2332

RRFI RS

71564

2333

7^26

2260
04/6
2335
2405
2235
2435
2342
2621

7t?66
7!?7t>

7i>07

76 25

7573
7742
7541

RRGOOD
RRLOC
RROUT
RRR
RRRET

75 74

RHRT

7567

77 40

7741
7571

RR T

75 72

RR TRY

7537

RRUN IT

77 37
07 70

RS IX

RUNI T
SA VEST

SEARCH
SEQCIN
SE QCOM
SEQEXT
SEQI N

SEQLP
SEQNl
SEQOUT
SEQ02
SEQTST
SEQTTY
SETA
SETI

SSERCH
SSLO OP
SSNO
STAR 213
STATLP

7562
0260

Ov QC.

3124
2/b7

RK TRCK

4!ji?0

2/66

3030
2/62 314 0
30 10 3012

305iJ

RKUM IT
RKWR IT
RK70
RLOC
RNUM
ROK
RQR6
ROUT
RR8AD
RRC
RREREO
RRERR

72 30
lt>b6
7i?63

2/ 52
27 54
2/ 56 276 4

016 4

2246
23 04

1454

9 1^ c
0 354
2 26 0
2 32 5
1 ^1 4

31 25
If

03/

261/
2265

xc ?o
22 53 2 26 3 23 00
2 424

2231
24 30
22 72
25 22 2 53 0

22 73

2313

2617

2 4 76

26 20

25 03

2340
2343
2336
2341
22/1
2616
15/6
2331
0735

CCO7

t 0 J. 3

222 7
C Ci 1X

2314
^5 1 1 2 514
04 77 160 2
22 42 2 2/4 22 76

45 73

05 50

06 22

3776

0607
0530
0565

0515
051/ 0525
0541
05 53 0510 05 36
0556
0503
0555 0553 0566

37 40

3767
37 11
37 77

3/2/
3747

m 73

0610
0512
05 42

37 61

055:3

05 50

3720
3736
4555
4514
0334
0344
0356
0001
4567

05 02

0516
0501
0437
1050
0551
1042
1030
0525
1664

0526
0510
1521
1011
1022
1035
0220
1656

^ 1" t

10 60

0523

2237
1531 0331
1013 1015
0627 07 56

SYMBOL

VALUE

DEF

REFERENCES

STATRS
STATSV

4tJ62

16 50

0/36 1663
k;735

STL6

46 06

SYS9BL
SYSdIN
SYSBSP
SYSERR
SYSHOR
SYSS8L
SYSWT
TA8LE0
TAPE
TAPER
TAPEW
TAXO
TBEXIT
TBLAH
TBLAHT
TBLOCK
TBLOKK
TBREG
TCHEKE
TCOUNT
TDOC
TO OWN
TEERNT
TEMAIN
TEMP

id6?^

1713
1/24
0242
0243
0247
052/
0251

1755
1/61
1752
1644
Ibli
1764
0065

TEMPI

0066

0365

TEMP2
TEMP 3
TEMP4
TERENT
TERMC
TERRCl

0067

0366
036/
0370

TERRC;i

TERROT
TEXIT
TILEN
TINOEX
TKOUNT
TUOCl
TLOOP
TL00P2
TLOWER
TLPl
TMAI NO

TMAINE
TMESSl
TMESS2
TMESSL
TNT2LG
TOP
TOPR
TOUTl
T0UT2
TREAD
TREENT
TRENT2
TRE'NTi

069 01

mil
M447
0^70
0467
0401S

4402
i45>5

1464
1/04
17^?4
160K}
20s56

1720
20^3
00 0t>

00 70

0071
1&12
0000
1762
1763

0251^]

0233
1107
0112
0212
0227
0561
0640
0436
1004
0575
1001
1026
0645
0656
0636
0511
02/4
0661
0364

02 73

0173
065/
0660

20 31

07 /I

1476
0002
0346
2034
1715
16b2

0246
0235
0234
1022
0572
0523
0607
0236

17 30

0000
1675
2101
2005
2202
1557
1765
174K
0340
1717
2132
2133
1400
1627
1646
2026

i3551

1104
0724
111/
06 76

0702
0622
0277
0574
1107
1110
006/
0470
2514
0761

1/16
1042 1171 *:-6 35
1013 lk^30 110.5
615
1305
1454 146 3 2102 2111 2145
1103
2015
0641
li>25 1535
.535
0352 0157
1157 0220 1445 1776
76 2015 2036 2061 2l3l 2l47 2172 2213 0132 0167 1124
1140 1164 1316 1345 17^5 i724
00 71
0121
04 43 0477 0500 0 50 3 0541
1004
02 72 0446 0452 0 45 7 26 40
0/ 03
64 0471
li:30

04 72 0602

1001

1045

0035
^'^61

0524 06 36 100 2

;>6 33

0475
i<J216

0617
1014
0750
1017
2/75
1/43
1234

0233
0645
1022
0752
1031

06 47

1032 1033 1036
02 03 0 21 7 0565
1035 1225 1264

3 011

1750 1754 2536
1245 1250 125 2
0570 0577 2174 2175
0215
2325 2344 0344 0447
0612
0515 0614
0/50
0224 2343
0427 2563 2015 2016
0426 2562 2013 2015
0761
0454 0473 0512 0534
0637
0625
0430 2564 2021 2022
0540 0544
0/34 105 7 1105 2425
0661 0730 1026
0620
0646

1003 1045 1361 1366 2502 2540

3007
1233
0417

0662

2016
0546

06 50

0613 0615
07 73 110 3 2323 14^0 1511
0447 0450 0527 45531
1031
0D45 0213 0351 0353 2336
02 73 1000
10 03

0747 0751

)

b Y MBOt

V A uJ L

t' t. r

TS £L ER

1 / p /

Tb KP

i / Pi,

tl <^

TS TO PH
TS YS LO
TS YS UP
TT AP E

1 / Z /

t3*+

41
4^ b 4 1>
i''

TT BC

TTBL Ah

15 11

TTiiLP

<:!

J 7

TTEoLK
TTEGl
TT RENT

12 6 6

10 »5

1 «5 2 7

7 4 7

it32/
2 2' 74

Qui 7ki

234

24 3
iii'

24 1

104k,

/ 4

till

7 62

10 6 7
10 6.^

2i?

Di]

274
2'^ 6b

WW^T
2ER0

2!?b /

2 2 «j

2 / c

2 !?6 b

1 1
/ 4

Ic-

ttskp

UNLOAD
UNLOOP
UNPOS
WRITE

«i

«j <i

TT RN T2

TTS2
TTTSET
TT TSKP
TTYCR
TTYGET
TTYPUT
TUPPER
TwHERE
TWRI T£

i'**

044

b1
iJ 4 3 2

/A b /

TT AP Ew

L " t iM C t b

06 4/

1/
1

2>i 1

0 2^'^-

li5t?5

2547

11 ^i?
27 7/
14^!4

i}23^

ik3b0

kSt?2^

1^6/

1/7/
^574
3^3/

i3:>22

2 iii^53

til2p

2b04
2^)21

1^4 31

^^1 ^ 0l2i^ ^1^2

I4i;;

011/

ii/b
llbp

2i>7l
2^!?4

llb^e

«?0t)3

117i

2074
0546
233/

4i>72

2ti04

{i26b

i5P4/
<i^47
2^!p3
2-1 ri
2^!34

*^214

*d24/

1&66 2444 1^.27
22 30
'd2tti