Digital PDFs

DEC-12-ZR1A-D

December 1970

158 pages

Original

8.1MB

Document:	dec-12-zr1a-d
Order Number:	DEC-12-ZR1A-D
Revision:
Pages:	158
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-12-zr1/dec-12-zr1a-d.pdf

OCR Text

IDENTIFICATION

Product node:

DBC-12--ZR1A-D

Product Name:

DIAL-MS Assembler Progr
Description

Date Created:

July

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
LAPG^ by Mary Allen Wilkes
of Washington University.
The assembly portion is
derived
from^several programs used for the PDP-8
computer including

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
xts thanks for permission to
use parts of the LAP6 program.

^^^"^"dbook. Computer Research Laboratory
Tech
Rep. ""^J'H^^w
Re;
No. 2, Washington University,
St. Louis, May 1, 196?!
2pAL-D Assembler Programmer's

Reference Manual DEC-D8-ASAA-D.

1. 0

PROGRAM OVE RVIEW

The DIAL Assembler is a bilingual assembler which
can assemble program which have been edited by the DIAL
editor or

entered by PIP.

Additional features to the assembler are:
1.

Ability to save and load parts of the symbol table

Conditional assembly of various lines

Listing between line numbers

A "quick list" entry point which removes comments
and line numbers and replaces tabs by blanks

Listing on disk or tape

Chaining between source files.

This assembler is based on PAL~D which, in turn, was
based
on MACRO-8.

Most of the routines in the DIAL Assembler will be

found and described in the PAL-D or MACRO-8 system
description.

2.0

ENVIRONMENT
The Assembler leaves its binary output in the Working
Area

on tape 1 (blocks

37jef"427) ,

and the header block in 447.

The

Assembler itself (including necessary scratch blocks)
resides
in blocks 324-345 of tape 0.

2.1

LOADER MAP
Common literals and pointers

0000-0117

Page 0:

0200-0211

Bank Check Routine; Symbol Search Routine

0A00-0511

Symbol Table Getter Routine

0600-0111

Routine to get a symbol from Symbol Table (or add on)^
Ring buffering routines

1000-1111

General Recursive Expression Evaluator

12J30-1377

Recursive Address Evaluator

14jJJJ-1577

Central Processing Loop, Main Start of Assembler
after Initialization

1600-1111

Text Processor, Current Line Tester, plus Minor
Support Routines

2J?jJJ2f-2177

An Input Character Scanner Routine, the output
buffer routine and tab routine

2200-2311

Number Conversions, Type Checks

2A00-2511

Symbol Sort for Output, Teletype Routine

2600-2111

Symbol Output and Value Routine, Octal Print
Routine, Field Change Routine, and Work Area

3000-3111

Output List Routine, 8K Pseudo Op Initialization
(destroyed and never used) Work Area

3200-3311

Error Message Processor, Type Evaluator, System
Symbol Table Swapper, Fairly Low Level Character
Getter, and Routine to Skip if Not Pass 2 or Not
in List Mode

3A00-3511

Input Character Converter to Internal Form, Plus
Page Checkers, Other Little Routines

3600-3111

Internal to External Character Converter,
Symbol Table Type Getters and Setters

Low Level Character Getter, Ccmment Processor,
List and No List Processors
A000-A111

General Tape I/O Call Routines, Initialization
for Tape Routines, Other Short Routines

A200-A311

More Tape I/O Routines, Pseudo Op Processor,
and Loader Core Map

4400-4777

Input Buffer and Swapped In and Out Work Area
for SAVSYM and LODSYM

5000-5377

Output Buffer, plus Initialization for Entire
Assembler after it is first loaded in

54)2fJ3f~5777

Pseudo-Op Processor

6j2fJ2fj2f~6377

Line Printer Checker and Basic Line Printer
Routine.
Rina hn-F-Fta-r

6400-6777

Listape Buffer

r* f* f*

ux/uj— jyib

routines

User defined symbols

System Mode Symbols (L-mode or P-^mode)
17400-17577

3.0

Pseudo Ops and Special Character Table

THE PSEUDO OP PROCESSOR

After the desired pseudo op is found in the
table by "EXPR'^
it then JMPs to an ISZ chain.
The ISZ chain is a group of sequential ISZs of location "GPL". After falling
through the ISZs,
OPL contains the desired pseudo op number; the
routine then JMSs
to it with the desired operation number in
the AC.

4.0

SYMBOL TABLE ORGANIZATION

A symbol table entry is composed of four words.
three words are the name and the last is
the value.

The first,

If the
symbol is a pseudo-op, then the last word
contains a pointer to
the routine which will process the pseudo
op and the rest of the
statement.

The name is composed of six characters.

These characters

are usually the 26 alphabetic letters plus 10
numbers plus a
null character if less than six letters long,

permitting 45

octal possible characters for the left or the
right half of

a word.

If six bit notation were used, 23 possible positions

on the character would be wasted; therefore, six bit is not used.
The first character of a name must be a letter, thus leaving

only 32 octal combinations for the first character.

If the

left characters of a word are multiplied by 45, there are two
free bits in the first word of a name (32*45 < 2000 octal)

These two left bits are used as follows:

Special Character
01z

Undefined

10:

Defined

11:

Pseudo operation

5.0

SUBROUTINES

Initialization

NAME:

SETORG

FUNCTION

Called at the beginning of each
pass to initialize counters,
pointers, and tables. Sets ori
gin to SEGMNT 2.

INPUT

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

AADR, APAGE, EVAL, ABANK

NAME:

RESET

FUNCTION

Called when a new page is to be
started to initialize pointers.

INPUT

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

APAGE.

Input
NAME:

GETIN

FUNCTION:

Gets an 8-bit character
from GETCHR.
Saves it in ITEM.
Also scans off
comments if in QUICK LIST mode.

MAJOR REGISTERS CHANGED:
3.

Input Conversion
NAME:

FUNCTION:

INPUT
OUTPUT:

MAJOR REGISTERS CHANGED:
4 .

ITEM

BIT6

Translates the 8-bit ASCII character
in ITEM to its 6-bit internal
code.

Clear AC
6~bit internal code in AC

None

Output
NAME:

FUNCTION:

PUNONE
Outputs the contents of EVAL (the
generated binary)
1.

PASS

no operation

Save word in correct core locaIf correct block not in core,
it calls NOTBCl to load it in.
2.

tion.

INPUT:

OUTPUT:

MAJOR REGISTERS CHANGED:

Clear AC when EVAL contains
assembled
binary.

Clear AC.
CUNADD,

Output (contO
NAME:

OPS

FUNCTION:

It
This is the octal print routine.
converts the binary word in the AC to

octal characters

(8-bit ASCII code)

and calls TYPO to output them..

INPUT:

Value to be output in AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

None,

NAME:

EMPTY

FUNCTION

Outputs the contents of the symbolic
buffer via TYPO during optional PASS

It then calls TYCAR to output a
carriage return/line feed.

INPUT:

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

CHARAC - the buffer counter/pointer.

NAME:

TYCAR

FUNCTION:

Outputs a carriage return and a line
feed in 8-bit ASCII code via two calls
to TYPO.

INPUT

Clear AC.

Output (cont.)
^^'^^^T:

Clear AC

MAJOR REGISTERS CHANGED:

None,

NAME:

UNTRAN

FUNCTION:

Converts the 6~bit internal code
character in the AC to 8-bit ASCII
and then calls TYPO to output it.

INPUT:

Internal code character in AC.

OUTPUT;

Clear AC.

MAJOR REGISTERS CHANGED:

TYCAR - symbol character counter.

NAME
FUNCTION:

^sed to decode a word of a symbol
table entry by dividing by
45 ^ and
then calling UNTRAN twice to output
the two characters that are now in
6-bit internal code.

Word to be decoded in AC.
O^^PU'T^

Clear AC.

MAJOR REGISTERS CHANGED:

LWC, HIC, MP

Output (cont.
NAME:

OSYM

FUNCTION:

Outputs the symbol in TEM1A-TEM1A4-2
It initializes the symbol character
counter, TYCAR, and then calls OX
once for each word of the symbol.

INPUT

Clear AC,

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

TYCAR

NAME:

OSANDV

FUNCTION:

Outputs a symbol via OSYM and its
It calls SKIP2 to
value via OPS.

output spaces for format and TYCAR
for a terminating carriage return/line
feed.

INPUT:

Clear AC.

OUTPUT

Clear AC,

MAJOR REGISTERS CHANGED:

None.

NAME:

SKIP2

FUNCTION:

Outputs spaces (8~bit ASCII) for
formatting purposes via TYPO.

INPUT:

2's complement of number of spaces
in AC.

Output (cont.)
OUTPUT:

Clear AC,

MAJOR REGISTERS CHANGED:

None.

NAME:

ALPHA

FUNCTION:

Called at the end of PASS 2
to output an alphantimeric ordered
symbol
table print of all the defined
symbols and their values.
it uses
the following "lower level"
output
routines to accomplish this: LT2
TYPE, TYCAR and OSANDV.
It also uses

MOVE

and

INPUT:

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

SADR, auto-index
16q, TEM1-TEM3,
TEMlA-TEMlA+2 , and VAL.

NAME:

FUNCTION

the triple precision
moving routine,
TRIPLE - the triple precision
comparison routine,
GETYPE - to determine the type
of the symbol currently
being ordered.
-

ONEREG
This routine is entered with
the AC
containing the value that is to.be
loaded into the location now
pointed

Output (cont.)
at by AADR (the current address

counter) when the assembled program
is to be run.

This value is output

via PUNONE.
INPUT:

Value to be output in AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

EVAL

AADR - incremented by 1,
TYPINST+page number - this contains
the highest instruction address +1
and was changed if the value just
output was the highest instruction
so far on this page.

NAME:

ERROR

FUNCTION

Called to output error message (8-bit
ASCII) via TYPO corresponding to
error number in the AC. The error
address is either relative to a
symbolic tag or absolute depending
on whether or not a tag has been
encountered since the last origin

setting.

INPUT:

Error ntamber in AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

None,

Pseudo- Instruction Processors
NAME:

PAGEC

FUNCTION:

Handles the PAGE pseudo-op. Calls
EXPR to see if a page number
follows PAGE.
If so, the origin is
set to the beginning of that

page.
If no number is specified,
the origin
is set to the beginning of

the next
PUNORG is called to punch the
new origin.
page.

INPUT:

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

AADR, EVAL

NAME:

FUNCTION:

INPUT:

OUTPUT:

MAJOR REGISTERS CHANGED:

PERIOD
Handles the
pseudo instruction.
Combines the value of the current
address counter, AADR, with the
value
already accumulated according to the
last operator received,
if in LMODE,
AADR is ANDed with 1777.

Clear AC.

CON (indirectly)

£5

Pseudo-Instruction Processors (cont.)
NAME:

FUNCTION:

Handles the "1" pseudo instruction.
The indirect indicator register is
set to 400 g and the scanning for
the rest of the expression resumes
at A+1.

INPUT:

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

H"f3

NAME:

ORGIC

FUNCTION:

Handles the

pseudo instruction.

EXPR is called to get the address of
the new origin which follows the *.
PUNORG is called to punch the new
origin.

INPUT

Clear AC.

OUTPUT

Clear AC,

MAJOR REGISTERS CHANGED:

AADR

NAME:

STRING

FUNCTION:

This handles the TEXT pseudoIt uses calls to GETIN
instruction.

Pseudo-Instruction Processors (cont.)
to input the beginning delimiter,
the string of characters, and the

terminating delimiter in 6-bit DIAL
code.
It then uses calls to ONEREG
to output two string characters per
register in 6-bit DIAL code.
^NPUT:

Clear AC.

OUTPVT:

Clear AC.

MAJOR REGISTERS CHANGED:

VAL, EVAL, ITEM.

NAME:

FIELDM

FUNCTION:

Handles the FIELD pseudo-instruction.
EXPR is called to pick up the bank
designation which follows FIELD. This
memory bank designator is output (pass
only) via TYP02 in a format
acceptable to the binary loader.
2

INPUT:

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

None.

NAME:

DECIM

FUNCTION:

Handles the DECIMAL pseudo-ins tructioji
Calls the subroutine DECIMS, which by

Pseudo-Instruction Processors (cont.)
setting a switch in the MTIO subroutine, effects all subsequent

numbers to be considered in the
decimal radix.
INPUT:

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

MTSW - the switch register.

name:

OCT

FUNCTION:

Handles the OCTAL pseudo-instruction.
Calls the subroutine OCTS, which by

setting a switch in the MTIO

sxib-

routine, effects all subsequent

numbers to be considered in the octal
radix.

INPUT:

Clear AC.

OUTPUT:

Clear AC.

MAJOR registers CHANGED:

MTSW - the switch register.

Symbol Table Routines
NAME:

FUNCTION:

Searches the symbol table for the
symbol found in TEMl, TEM2, and TEM3,

INPUT:

Clear AC.

Symbol Table Routines (cont.)
OUTPUT':

Clear AC.

MAJOR REGISTERS CHANGED:

SADR, Autoindex 16^, INST, VAL,
VADR, ANY, TYPE

NAME:

GETYPE

FUNCTION

Extracts the type from the left hand
2 bits of the 1st word and the
left
hand bit of the second word of the
current symbol and places it in TYPE,

INPUT:

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

TYPE.

NAME:

TYPADD

FUNCTION:

Change or add the type of the symbol
pointed at by SADR.

INPUT:

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

TYPE, 1st

entry

words Of symbol table

Symbol Table Routines (cont,)
NAME:

CURREN

FUNCTION:

Handles the special character

It defines the symbol preceding the

comma as equal to the current
address counter.
INPUT

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

TEMlA-TEMlA+2 , VADR, VALIA

NAME:

ENTS

FUNCTION:

Enter a symbol in the symbol table

with type equal to the parameter
following the call. The symbol to
be entered is in TEM1-TEM3 and the

value in VAL.
INPUT

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

SEND, SADR, VADR, TYPE.

NAME:

ERR7

FUNCTION:

This routine is called by CURREN to

determine whether the symbol to be
defined has already been defined and,
if so, whether the new definition

agrees with the old.

Symbol Table Routines (cont.)
INPUT:

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

None.

NAME:

SAVE

FUNCTION:

Called by SEARCH to save the
pointers (SADR, TYPE, VADR) of the
previous symbol, in case the current
symbol is a definition character
or =) or a macro escape
character.
(

INPUT:

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

REPUN, RESTOR-1, VADRl

NAME:

RESTOR

FUNCTION:

Restores the registers saved by SAVE.
CURREN, the
processing routine,
is one place where RESTOR is called
to allow definition of the symbol
preceding the
II

•INPUT

Clear AC.

OUTPUT:

Clear AC,

Symbol Table Routines (cont.)

MAJOR REGISTERS CHANGED:

SADR, TYPE, VADR

NAME:

LDT

FUNCTION

Used in the assembling of a symbol.
If the character is alphanumeric,

exit is made with it in the AC after
having incremented IN and called IDX
for the next character.

alphanumeric,

If non-

CHARX is cleared to

effect immediate exit from LDT in

subsequent calls.
INPUT:

Clear AC,

OUTPUT:

Alphanumeric character of

MAJOR REGISTERS CHANGED:

NUPAGE (for temporary storage)
alphanumeric character
IN
counter CHARX

in AC«

—

NAME:

AlW

FUNCTION:

Used in the assembling of a symbol.
It makes two calls to LDT and adds
the output of the 2nd to 45 g times
the 1st. This gains type bits in the
1st two words of the symbol table

entry
INPUT:

Clear AC.

Symbol Table Routines (cont.)
OUTPUT:

Word of symbol in AC.

MAJOR REGISTERS CHANGED:

NUPAGE (for temporary storage)

NAME:

AAS

FUNCTION:

Assembles a 3 word symbol by calling
AlW three times. By calls to LDT,

VAL-

it causes all letter/digits beyond
to be ignored.

INPUT:

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

TEMl, TEM2, TEM3.

NAME:

ANYY

FUNCTION:

Control comes here from the SEARCH
If the type of the symbol
found is defined or undefined, ANY is

routine.

indexed to indicate something valid
was assembled for this line.
INPUT

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

ANY

Symbol Table Routines (cont.)
NAME:

GETASY

FUNCTION:

Calls AAS to get a symbol and then
SEARCH to see if it is already in
the symbol table.
If it is not in
the table, it is entered as undefined
by calling ENTS.

INPUT:

Non-zero AC when called by GETSYM;
otherwise clear AC.

OUTPUT:

Non-zero AC if symbol undefined and
pass is

otherwise clear AC.

MAJOR REGISTERS CHANGED:

IN, VAL, TRUBL.

NAME:

TRIPLE

FUNCTION:

Triple precision comparison routine
used by ALPHA to order its output.
It exits with the link on if the

symbol in WORK-WORK+2 is greater

than the symbol in TEMl - TEMl+2.
INPUT:

Clear AC.

OUTPUT

Clear AC; link on or off.

MAJOR REGISTERS CHANGED:

MOVE (for temporary storage)

Symbol Table Routines (cont.)
NAME:

GETADR

FUNCTION:

Called by EXPR when a defined or
undefined symbol is terminated by
a space.

Its job is to get the
address portion of this expression.

Because it calls EXPR to accomplish
this, it must save its own exit
point for possible recursion.
It
will call CONC to generate a link
when the address is an out~of-page
reference.

INPUT:

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

ADR, NUPAGE

(for temporary storage)

Numeric Routines
NAME:

DECIMS

FUNCTION:

Sets a switch in MTIO to effect decimal radix for all subsequent numbers.

INPUT

Clear AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

MTSW (the switch address)

Numeric Routines (cont.)
NAME:

OCTS

FUNCTION:

Sets a switch in MTIO to effect octal

radix for all subsequent numbers.
INPUT:

Clear AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

MTSW (the switch address).

NAME:

MTIO

FUNCTION:

Uses calls to MTRL (which shifts LWC
left 1 place) and calls to MTAD
(which adds the contents of TIC to

the pseudo accumulator, LWC) to combine
the number in MTDG, according to the

currently declared radix, with the
previously accumulated value, LWC.
INPUT:

Clear AC,

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

TIC.

NAME:

QPCV

FUNCTION:

Numeric input and conversion routine.
It calls IDX for input and MTIO for
conversion to the currently declared
A non-numeric character will
radix.
stop processing.

Numeric Routines (cont.

INPUT:

Clear AC.

OUTPUT:

AC non-zero.

MAJOR REGISTERS CHANGED:

ANY, HIC, LWC, RTDIG, SIGN, DPN,
MTDG.

Miscellaneous Routines
NAME:

RADD

FUNCTION:

Add the value in the AC to the
accumulated value, CON, and store
the result in CON.

INPUT:

Value to be added to CON in AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

CON.

NAME:

RSUB

FUNCTION:

Subtract the value in the AC from
the accumulated value, CON, and
store the result in CON.

INPUT

Value to be subtracted from CON in AC.

OUTPUT

Clear AC.

MAJOR REGISTERS CHANGED:

CON.

Miscellaneous Routines

(cont.)

NAME:

RAND

FUNCTION

AND the value in the AC with the
accvnnulated value, CON, and store
the result in CON.

INPUT:

Value to be ANDed with CON in AC.

OUTPUT:

Clear AC,

MAJOR REGISTERS CHANGED:

CON.

NAME:

RIOR

FUNCTION:

OR the value in the AC with the
accumulated value, CON, and store
the result in CON.

INPUT:

Value to be OR'd with CON in AC.

OUTPUT:

Clear AC.

MAJOR REGISTERS CHANGED:

CON, VAL (for temporary storage).

NAME

UNDERR

FUNCTION:

Channels the error printout number,
which is in the AC, to ERROR if the
current pass is not 1.
It suppresses
error printouts during pass 1.

Miscellaneous Routines (cont.)

^^^^"^^

Error printout number in AC.

OUTPUT:

Pass
AC.

1 -

error printout number in
Not pass 1 - clear AC.

MAJOR REGISTERS CHANGED:

None.

NAME:

PUSH2

FUNCTION:

Enters the contents of the AC into
the push down list.

INPUT:

Entry for push down list in AC,

OUTPUT

Clear AC,

MAJOR REGISTERS CHANGED:

POINT, PACK (for temporary storage)

NAME:

POPUPl

FUNCTION:

Retrieves the last entry from push
down list.

INPUT:

Clear AC.

OUTPUT

Entry in AC.

MAJOR REGISTERS CHANGED:

POINT.

MOVE I/O ROUTINES
TO 7000 OF FIELD 0

READ IN PSEUDO-OPS

AND LINE PRINTER
ROUTINE

SET UP TTY TO CHECK
FOR LINE PRINTER

CALL INST ROUTINE

»4gOTD pass

SWITCH

f
SET "SWITCH" FOR
PASS 2

strm OF
DEFINED SYMBOLS
TO 1408

C PASS

SET LINE #- TO I

MAIN SE

BOP UP LINE i«k
AND CHECK
USTING UMITS

c OOCAL

PASS

)

SWITCH = RETURN
TO
DIAL

PASS

)

MAIN SE

WRITE OUT CORE
8t0CK.REA0 IN
DESIRED BLOCK

EVALUATED
NUMBER GOES TO
0RIGINI377a
BINARY CORE BASE

C{4400-IC-0RIGtN

/4001)» 7777

TTY:»-«-UNE«*fr.
ORIGIN E>MLUATED

NUMBER

^ EXPR I IS THE
MACRO-EXPRESSION
EVALUATOR

SAVE CON INST,
SGN,Hf3 ANDEXPR
IN PUSH DOWN UST

THIS IS DONE IN
-CASE ON THE NTH
ENTRY TO EXPR THE
NTH - ENTRY HAS
NOT BEEN
COMPLETED
I

INITJALIZE CON,

INST.SGN AND
H+3 FOR THIS

ENTRY

/ CALL I OX TO
GET NEXT
CHARACTER jN

SPACE

CALL 6ETSYM
WITH DISPATCH

•

TABLE

V INTERNAL CODI

NUMBERS, MACROS.
AND PSEUOaOPS
CAUSE DIRECT
TRANS.FROM GET

DISPATCH TABLE

ALL OTHER

UNOERNED OR

DEFINED

SYMBOL

COMBINE VALUE
FOR SYMBOL WITH
PREVIOUSLY

ACCUMULATED
VALUE CON,
ACCORDING TO
THE LAST OPER.

COMBINE ROUTINE
POINTER. S6N,
'INITIALLY POINTS
TO RIOR.

GET

TYPES

VALUE OF LAST
SYMBOL INPUT IS
COMBINED WITH
PREV. ACCUMMUL.
VALUE ACCORD. TO
LAST OPERATOR

VALUE OF LAST

NUM^R INPUT IS
COMB. WITH PREV.

ACCUMUL. VALUE
ACCORD. TO LAST

GETSYM TRANSFER
.DIRECTLY TO HERE

AFTER PROCESSING A NUMB

OPERATOR

CALL IDX TO
GET THE NEXT
CHARACTER

CALL GETSYM'

SPACE
DISPATCH TABLE

DISPATCH TABLE

ALL OTHER
TYPES

SET POINTER OF
COMBINE ROUTINE,
SGN,FO« ADDITION

SET POINTER OF
COMBINE ROUTINE
SGN FDR SUBT.

SET POINTER OF
COMBINE ROUTINE.
SGNfFOR
INCLUSIVE OR

SET POINTER OF
COMBINE ROUTINE,

S6N,roRAND

GET

CALL GETIN
TO INPUT THE
NEXT CHAR. IN
8-BiT ASCII

STORE THIS VALUE
IN CON, THE
ACCUMULATED
VALUE

INCREMENT ANY TO
INDICATE VALID INFO

CALL GETADR
TO GET THE ADDRESS PORTION OF
THIS EXPRESSION

OR 9-BIT ADDRESS
MICRO INST)
WITH PREV. ACC.
VALUE CON.

(12 BIT IF

RESTORE EXPR.FROM
PUSH DOWN LIST

HAS BEEN ASSEMBLED
PUT CON IN EVAL,
H
3 IN IND AND
TNST IN MICRO
FOR LATER REFERENCE

RESTORE THE NTHH + 3.
SGN.(NST,AND

CON VALUES FROM
THE PUSH DOWN LIST

EXIT TO THE
ADDRESS IN EXPR

CALL CURREN TO
DEFINE THE SYMBOL
PRECEDING THE COMMA
AS«TOCURR.A0D.CNTR.

GETADR CALLS
EXPR-THIS IS
ONE OF THE CAUSES
OF RECURSION

CURREN DOES
NOT RETURN CONTROL
TO HERE, BUT
TO MAINSE

EQU

0
SAVE THE POINTER TO THE VALUE WORD OF THE
SYMBOL BEING
DEFINED.

LINC MODE

SYMBOL BIT 0 OF
WORDS 2 a 3 "
LEFT TWO BITS OF
EVAL.

ERONE
\ r

r CALL

TO
/ ERROR
OUTPUT

/
ILLEGAL
\ EQUAL SIGN

EVAL* EVAL a 1777

<CALL IDX TO \

GET THE NEXT )

CHARACTER /

(

TYPE ERROR

^CALL EXPR\
^TO GET THE^
EXPRESSION
Ta WHICH THE

MAINSE

^SYMBOL WILL/
BE SET
EQUAL

INSERT THE VALUE OF THE EXPRESSION TOTHE
RIGHT OF THE «
IN THE SAVED
VALUE WORD

CALL
TYPADD TO
MAKE TVPE
OF SYMBOL
DEFINED

MAINSE

GETLET

TRANSFER TO ,
,OPCV TO INPUTS
ODNVERTIN CURR

BIdN EXPR)COMB

K'SVALU£A0c5Ra

RADIX UNTIL NON.

NUMERIC

"TNCOUNTEREO

PICK UP THE CHAR
FROM BACKUP

SYMBOL TABLE
SEARCH

^CALL SEARCH To\

SEARCH SYMBOL ^

CALL ERROR TO
OUTPUT ILLEGAL
CHARACTER (IC)
ERROR MESSAGE
CALL lOX 70 GET
NEXT CHARACTER

TOLASTOPERATION
^^lI^.f^'EVIOUSLY

ACCUMUL VALUE 8
TDCONT SCANNING

.NO

THE VALUE OF THE
SYMBOL iS MADE
THE TYPE FOR
DISPATCHING

PURPOSES
'yes

TRANSFER TO THC

AODRCSSOFTHE
PSEUDO-mST

pt=65'b( litres:

PROCESSOR WHICH
IS THE VALUE OF
THE SYMBOL

a
SPACE
ESCAPE CHAR.

0R6IC

PERIOD

ESCAPE

GSTART

TRANS, TO THE

ADDRESS OF THE
PSEUDO-INSTR
PROCESSOR
WHICH IS THE
VALUE OF THE

SYMBOL

OCTAL

DECIMAL

OCT

TEXT

PAGE

FIELD

DECIM

STRING

PAGEC

EXMEM

(DECOUT)

SAVE THE CHAR

1
CALL CHECK TO

CHECK BUFFER
STATUS

YES

BUFFER
FULL

NO
REGET THE CHARACTER

STORE IN BUFFER BY
INP POINTER

CALL BUMP (INP) TO
BUMP UP IMP

ADD ONE TO THE
BUFFER COUNTER

CALL CHECK

GGGET

BOP DOWN BUFFER

COUNT

GET CHARACTER

FROM BUFFER

SAVE FOR A SECOND

[

CALL BUMP (OUTP)
TO BOP UP POINTER

REGET THE CHARACTER

RETURN

c
INCREMENT CALLING

ARGUMENT

•c

RETURN

SET ARGUMENT EQUAL

TO START OF BUFFER

T
CHAIN

PAGE OUT
BINARY AREA

PAGE IN CHAIN
ROUTINE

LOOK FOR DOUBLE
QUOTE

XCER

TYPE OUT
"CH ERROR"

XCER

KILL ASSEMBLY
|

XDONE1

SAVE BLOCK NUMBER

AND UNIT NOW

TYPE "CHAINING

PROG NAME"

RESET LIN E NUMBER

COUNTER
XDONEl

REREAD IN BINARY

WORK AREA

RETURN

YES

XCER

CALL EXPR1 TO
EVALUATE REST OF
LINE

USE UNIT ALREADY
SELECTED
SET THIS UP AS THE

NEW UNIT

SKIP PAST REST OF

LINE

0225
0006
0007
80i2
0011
2212
0013
0014

DIAL
:x

ASSEMBLER

/
/

•:.

VERSION

01754

/POP-12 DISK DIAL ASSEMBLER
/
/

THIS ASSEMBLER REQUIRES THE STANDARD DISK DIAL HARDWARE

SJif
0016
0017
0020
2021
0022
0023
0024
0025

/
/
/
/
/
/
/

LATEST ASSEMBLER <5/l4/70>, INCLUDES CHAINING.

EJECT

^-3

S3 </</

)
-¥

c c

-h

C'7

G
—

%
1/
^

0026
0027
0030
0031
0032
0033
0034
0035
0036

0037
0040
0041
00 42

0043
0044
0045
0046
0047
0050
0051

/
/

/0000-0177
/020 0*0377
/0 400-0577
/0600-0777
/
/
/

PAGE 01 COMMON LITERALS AND POINTERS,
BANK CHECK ROUTINE! SYMBOL SEARCH ROUTINE
SYMBOL TABLE GETTER ROUTINE
ROUTINE TO GET A SYMBOL FROM SYMBOL TABLE< OR ADO ON).
SDEC04 IS ACTIVE, S0EC08 IS NOT USED.
SDEC04 USES 6777-6000 FOR USER SYMBOLS,
.
5400-5777 IS USED FOR USER SYMBOLS AND FOR A SWAPPING BUFFER/
EXTRA SYMBOLS GO OUT ON UNIT 1.
IF MORE THEN 300 SYMBOLS
GENERAL RECURSIVE EXPRESION EVALUATOR.
,

/1000-1177
/1200-1377
/1400-1577
/1600-1777

/^^^?«lL%ROCEsi?NrjoOPr«;.N START
/Tr«T PRnrESSOR.CURRENT LINE TESTER.
In

/2200-2377
/2 400-2577
/2600-2777

™L

0067

0070
0071
0072

/3000-3177

00 76

0077
0100
0101
0102
0103
0104
0105
0106
0107
0110
0111

TYPE GETTERS AND SETTERS,
iiTERNAL^TJ^ EXTERNAL CHARACTER CONVERTOR. SYMBOL TABLE
AND NOLIST PROCESSORS.
lSw LEVEL CHARACTER GETTER, COMMENT PROCESSOR, LIST

/3 60 0-37 77
/
/
/

FOUOWING LOCATIONS ARE

/
/

ASSEMTHO!
10 CALL ROUTINES.

INITILUZTION FOR TAPE ROUTINES, PLUS EXTRA LITTLE

/4000-4177

GENERAL TAPE

STurr,
/420 0-4377
RE MAP,

FOR
MORE TAPE I/O ROUTINES, PSEUDO OP PROCESSOR(

PAGED IN PSEUOO OPS), AND LOADER CO

TWDiiT QilrrrB*S WAPPFD IN AND OUT WORK AREA FOR SAVSYM AND LOOSYM,
FIRST LOADED IN
S
nu^pJr BUFFER PLUS INITIALIZATION FOR ENTIRE ASSEMBLER AFTER IT
NOTE. WHEN THINGS ARE SH
OP PROCESSOR.
SnJ ^HiI aLsS cONTMNS THE SWAPPED IN PSEUDO

/4400»4777
/5 00 0-5377
/

TO PRESERVE THEM.
TMr PRrvtOUS CONTENTS OF THE LOCATIONS ARE FIRST SWAPPED OUT
AREA FOR SWAPPING SYMBOLS FROM TAP
IsER s5!!"ul iTl ill SYMbSlS: else IT S BUFFER

/5400-5777

USER SYMBOLS (FIRST 200 OF THEM ANYWAY),
DEPENDING ON MODE,).
MODE SYMBOLS<EITHER PMODE OR LMODE TABLE.
TABLE.
PSEUOO OP TABLE PLUS SPECIAL CHARACTER DEFINITION
LENGTH
IT S
sSpPO^EDLY UNUSED. BUT WHEN PSEUDO OP TABLE IS LOADED.
OF 400 WORDS OVERLAYS IT.

/6000-6777
/700 0-^377
/7400.7577
/7600-7777
/
/
/

END
EJECT

(

PLUS PAGE CHECKERS, OTHER
INPUT CHARACTER CONVERTOR TO INTERNAL FORM,

/3400-3577
"

0075

ruimp Mr«5SACr PROCESSOR. TYPE EVALUATOR, SYSTEM SYMBOL TABLE SWAPPER,
NOT PASS2 OR NOT IN LIST M
^A^R^ Lo5 £eVEL CHAfACUrciriEJ. AND ROUTINE TO SKIP IF

/3200-3377

/T HE

PLUS MINOR SUPPORT ROUTINES.

THE PRINTER BUF ROUTINE. AND TAB ROUTINE.

ROUTINE. AND WORK
'oS?JuT°ANS'rAL;E TdSt iSe! 'ScT AL PRINT ROUTINE. FIELD CHANGE
NEVER
UESED). WORK AR
AND
TROYED
2A T ON DES
OUTPUT LIST ROUTINE, 8K PSEUDO OP IN I T I AL

APPEO IN,
0073
0074

OF ASSEHBLER AFTER IN .T IL .|AT ,0N.

NUMBER CONVERSIONS. TYPE CHECKS,

ode:,

0055
0056
0057
0060
0061
0062
0063
0064
0065
0066

Jpu?°CHrR«TERSMNNER ROUTINE.

/2 00 0-21 77

EA,

0053
0054

MAP

AREA.

0052

LOADER

MAP

0112
0113
0X14
0115
0116
0117
0120
0121
0122
0123
0124
0125
8126
0127
0130
0131

LOADER

MAP

/THIS MAP SHOWS ONLY CHANGES TO 4K HAP.
/
/
/
/

/0 60 0-07 77
/

GIVEN)
/5 00 0-53 77
/5400a5777
/6000»6177
/620 0-6377
/6400~6777
/7000 = "7377
SK)

0132
0133
0134
0135
0136
0137
0140
0141
0142
0143
0144
0145
0146
0147
0150
0151
0152

/
/

SDtCOS IS NOW ACTIVE AND SDEC04 IS PASSIVE. S0EC08 USES THE UPPER 4K OF CORE
FOR THE SYMBOL TABLE, THUS IT STORES NO USER SYMBOLS ON UNITKEXCEPT IF A SAVSYM
IS

PSEUDO OP TABLE IS NO LINGER PAGED IN HERE. SEE 7200-7377.
OVERLAPPED READ ROUTINES FOR READING WHILE CALCULATING.
LINE PRINTER CHECKER AND BASIC LINE PRINTER ROUTINE.
OVERLAPPED TAPE OUTPUT ROUTINES PLUS COMMON READ-WRITE ROUTINES.
INPUT BUFFER NO .2
RESIDENT PSEUDO OP PROCESSOR. NOTE THAT IT CAN RESIDE IN TWO SEPERATE PAGES{FOR

/7400-7777
/
/
/
/
/

INPUT BUFFER NO.l FOR TAPE,

FIELD

/10000 -16777

REFERENCES

/I 7000 173 77
/1 74 00 -175 77

USER DEFINED SYMBOLS.
SYSTEM MODE SYMBOLS( LMODE OR PMODE),
PSEUDO OPS AND SPECIAL CHARACTER TABLE.

/
/
/
/
/

END

/
/

EJECT

MAP

THE

/
/
/

PSEUOO

PROCESSOR

THE PSEUOO OP PROCESSOR

400 LOCATION ROUTINE WHICH

PAGED IN ON THE 4K MODE AND RESIO

/AFTER THE DES I RED PSEUOO OP IS FOUND IN THE TA8LE BY "EXPR" IT THEN JMPS TO AN 1S2 CHAIN
THROUGH THE ISH S OPl CONTAI
/THE ISE CHAIN IS A BUNCH OF SEQUENTIAL ISZ S OF LOCATION "0P1«, AFTER FALLING
'

THE ROUTINE THEN PAGES

THE DESIRED PSEUDO OP NUMBER,

TO^?T^WITH THE DESIRED OPERATION NUMBER

/K OUT,

THE 8K VERSION

/
/

EJECT

IN THE

PSEUOO OP PROCESSORdF 4K, ELSE

RESIDENT)

THE AC. WHEN FINISHED THE PSEUOO OP PROCESSOR RETURNS AND IT S

RESIDENT AND IS NOT SWAPPED

OR OUT,

0174
0175
0176
0177
0200
0201
02 02

0203
0204
0205
0206

SYMBOL

TABLE

ORGANIZATION

/A SYMBOL TABLE ENTRY

IS COMPOSED OF A WORDS, THE FIRST THREE ARE THE NAME AND THE LAST IS THE
VALUE
/IF THE SYMBOL IS A PSEUOO OP THEN THE LAST WQRO CONTAINS A POINTER To THE ROUTINE WHICH WILL PROCrsS
/THE PSEUDO OP AND THE REST OF THE STAATEMENT.
/
/

/THE NAME IS COMPOSED OF SIX CHARACTERS,
/THESE CHARACTERS ARE USUALLY THE 26 LETTERS PLUS 10 NUMBERS PlUS
NG

NULL CHARACTER

IF LESS

THEN

LETTERS LO

0207
0210

/THIS GIVES YOU 45 OCTAL POSSIBLE CHARACTERS FOR THE LEFT OR THE RIGHT HALF OF A WORD.
/^F YOU USE SIXBIT NOTATION, YOU LL WASTE 23 POSSIBLE POSITIONS ON THE CHARACTER.
THEREFORE, SIXBIT

0211
0212
0213
0214
0215
0216
0217

/NON. SINCE THE FIRST CHARACTER OF A NAME MUST 8E A LETTER, THIS LEAVES ONLY 32 OCTAL
/COMBINATIONS FOR THE FIRST CHARACTER. THUS IF WE MULTIPLY THE LEFT
/CHARACTERS OF A WORD BY 45» WE WILL HAVE 2 FREE BITS IN THE FIRST WORD OF A NAME./
/( 32*45+45<2000 OCTAL), THESE TWO LEFT BITS ARE USED AS FOLLOWS!

02 20
02 21

0222
02 23

0224
0225
0226
0227

/
/
/
/
/
/
/
/
/

101
11

EJECT

SPECIAL CHARACTER
UNDEFINED
DEFINED
PSEUDO OPERATION

NOT

0230
0231
0232
0233
f

^23^

VERSI0N*17

0236
2237
0240
0241
0242

0^4

UN1TAS::4777
E7s0

0245
0246
02 47

/^^^^^ ^j^^

/THIS

USED

CHECKING TAPE 1,

8Y
ASSEMBLE AND CHANGE THE MAJOR SYMBOL LOCATIONS, UP THIS

/PLACE TO GET UNIT FROM

06*300
07 =3 70

0250

08=410

0252

= 7325
PTHRrE
PTHREE-7325

0254

MTun-7^44
MTWO-7344

g256

MTHREE = 7346

/CLA CLL CML

AC RAL

A
IN AC WHEN EXECUTED
/CLA CLL CMA RAL
^2
IN AC WHEN EXECUTED.
^GENERATES A
/CLA CLL ^CMA ^RTL
^^^^
^

/GENERATES

0260
02 61

0262
02 63

0264
2265

/SET TERMC TO 44 IF DOLLAR SIGN

^ERMC«00

0267
0270
02 71

0272
0273

/
/

EJECT

THE END OF FILE CHAR.

0274
0275
0276
0277
0300
0301
0302
0303
0304
03 05
03 06

0307
0318
0311
0312
0313
0314
0315
0316
0317
0320
0321
0322
03 23
0324
0325
03 26

0327
0330
0331
0332
0333
0334
03 35

0336
0337
0340
0341
0342
0343
0344
0345

/PDP«12 ASSEMB
PMODE
*1

0001
0002
0003
0004
0005
0006

0710
0000
0000
2353
0000
7777

00 07

00 00

OECOUT
ERTOT*

PUT
0

L.ISTWD*

CNTLPI f CNTRLP
0
MI CROB
EQRETI
7777
,

TE MP ,

/VARIABLES
0010
0011
0012
0013
0014
0015

2400
00 00

0000
7740
0000
0011

•10
BINPTR, 2000+d:
BIN8LK, 0
CURLIN, 0
-40
M40,
TYPEA,
0
Pli,

/16 AND 17 ARE
/FOR AUTO»INDE)
• 20

0020
0021
00 22

0023
0024
0025
0026
0027
0030
0031
0032
0033
00 34
00 35

0036
0037
0040
0041
0042
0043

00 00

ANY,

0000
0000
0000
0000
0000
0000
0141
0000

TYPE
VAOR
SADR,
VAt,
VALK ,
SCURR,
SEND,
AAOR,
APAGE,
PERMA,
EVAL,
SGN,
PASS.

00 00

0141
0000
0000
00 00

0000
0000
0000
0000
0000
0000

03 46

004 4
0045

0347
03 50
0351
0352
0353
0354

0046
0047
0050
0051
0052
0053

03 55

00 54

0356
0357
0360
0361
0362
0363
0364

0055
0056
0057
0060

0000
4013

0061
0062

2054
2661

03 65

00 63

36 63

0366
0367
0370
0371
0372

0064
0065
0066
0067
0070

3400
3355
a520

00 00

0000
0000
0000
0000
00 00

0000
0000
00 00
00 00
00 00

«17
3524

0
0
0

0
0

/WAS THIS AN INSTRUCTION
/HOLDS TYPE OF CURRENT SYMBOL
/VALUE OF CURRENT SYMBOL
/POINTER OF FIRST WORD OF CURRENT SYMBOL
/VALUE OF CURRENT SYMBOL

0
0

141
0
0

141
0
0
0

MODE.
TEMIA,

0
0
0
0
0
0

CURR,
CHARX,
CHARX2
ABANKi
POINT,

/CURRENT SYMBOL NUMBER
/POINTER TO FIRST FREE REGISTER AFTER SYMBOL TABLE
/ACTUAL CURRENT ADDRESS
/ORIGIN OF CURRENT PAGE - ACTUAL
/FIRST REGISTER AFTER PERMANENT SYMBOL TABLE
/HOLDS ADDRESS PORTION DURING CALCULATION
/7777
/7777
/7777

IF
IF

PASS 2
EXTENDED MEMORY
IF LlNC

POP-8; 0

0
0

IN,
ITEM ,

/PUSH DOWN LIST
/TELLS WHETHER SYMBOL WAS ACCEPTED

HI C,

0
LWC,
0
MI CROL
INST,
0
0
MICRO,
CHAR AC, 0
INITl,
INIT
.

/POINTERS
EMPTYI
EMPTY
SOPS
OPS
RESE Tl» RE SE TL
,

81 T6A,

BI T6

PASSEK,
CURSKA,
GETCHR.
CHEKER,

PASSER
CURSKP
SYSIN
PAGSET

SYMBOLIC

MICRO INST.

0374
0375

0071
0072
0073

03 76

00 74

0377

0075
0076

03 73

04 00

0401
0402
0403
0404
0405
0406
0407
0410
0411
0412
0413
0414
0415
0416
0417
0420
0421
0422
0423
0424
04 25

0426
04 27

0430
0431
04 32

0433
0434
04 35

0436
0437
0440
0441
0442
0443
0444
0445
0446
0447
0450
0451
0452
0453
0454
0455
0456
0457
0460
0461
0462
0463
0464
0465
0466
0467
0470
0471

14 54

1400
1547
0524
0764
3201

00 77

10 00

0100
0101
0102
0103
0104
0105
0106
0107
0110
0111
0112
0113
0114
0115
0116
0117
0120
0121
0122
0123
0124
0125
0126
0127
0130
0131
0132
0133
0134
0135
0136
0137
0140
0141
0142
0143
0144
0145
0146

2510
1411
1551
1046
2037
2341
4307
0400

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

32 42

0622

SYMLST
MAINEX
INAS

MOVEl,
SKIP,
ERR!
eXPRl.
TYCARl
.

MA IN1»

PAGE1»
821*

LSTSYM
MAIN
CJMPl
MOVE 8
SKIP2
ERROR
EXPR
TYCAR
MA INSE
RE SET
B2
IDX

lOXl

PUSH2
PUSHl,
POPUPl
P0PU1»
GETSYl, GETS YM
GETASY
GETASl
TYPADD
TYPADl
»

SDEC08
SRITlCr SWRC
SYMBU
SYB,
SREAOl
SROl,
RETURN
RETl,
MONIT
MQN.
PUNONE
PUNONl
-1000
M1000J
SO EC 01

4201
1503
4275
4051
4101
3001
7000
7735
7745
7733
7711
00 76
17 06
37 77

2132
7731
0240
7774

3662
0000
0740
5000
0300
1777
0177
7600
0200
4000
75 63

2000
0212
0215
7400
07 77

0007
0077

-43

M43»

-3 3

H3 3.
M4 5,
M6 7,

400
.45
-67

P76,

P400

LlNENOr J8TEST
37 77
P3777,
SCLEAR, CLEARR
H4 7,

-4 7

P240,

240

M4,

-4

P6000,
PM60A,
UOWTHP.
PC HECK,
P5000.
P300
P177?,
P177,
P7600,
P200
P4000.
M215
P2000J
P212,
P215,
P7400I
P777,

6000
M60A

P7,
P7 7p
IE Ml

/MAY 8E USED QNUY FOR

0
CH ECK

IMM.

5000
30 0

1777
177
7600
20 0

4000
'215
2000
212
215
7400
777
7

77
0

/F IRST

TEH2
TEM3,

CON.
ADR,
IND,

/SECOND
/THIRD WORD OF CURRENT SYMBOL
/HOLDS ACCUMULATED VALUE OF WORD
/HOLD FULL 12 BIT ADDRESS
/400 IF INDIRECT OTHERWISE 0

ERRCNT

TEMP. NEVER USED

YOU LEAVE ROUTINE,

0472

0170

04 73

01 71

00 00
00 00

0474
0475
0476
0477

0172
0173
0174
0175
0176
0177

0000
0000
3102
0000
2370
4321

05 00

0501
0502
05 03

0504
Z5B5
0506
0507

SW ITCHi

SNUM,
EMPTRA
SPCUNT,

0
0
0
0

SY,

SYMB UF

TBCONT
0
8INTAB, 2000*07
SETINU. UB ITS

/LINE CHARACTER SPACE COUNTER^

/
/
/
/

EJECT

/POINTS TO THE ROUTINE TO TURN ON THE HEADER BLOCK BITS

0510
0511
0512
0513
0514
0515
0516
0517
0520
0521
0522
0523
0524
0525
0526
0527
0530
05 31

0532
0533
0534
0535
0536
0537
0540
0541
0542
0543

/PDP-12 ASSEMBLER PAGE
0200
02 01

0202
0203
0204
02 05

0206
0207
0210
0211
0212
0213
0214
0215
0216
0217
0220
0221
0222
0223
0224
0225
0226
0227
0230

05 44

02 31

05 45

0232
0233
0234

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

0235
02 36

0237
0240
0241
02 42

0243
0244
0245
02 46
0247
0250
0251
0252
02 53

0254
0255
0256
0257

BANKCH,

10 30

TAD AADR
OCA EVAL
PASSEK
JMS
JMS 1 CURSKA
JMP I MA INI
BANKEM, CLA CLL lAC RTL
EVAL
AND
DCA TLOWD
EVAL
TAD
RTR
RAR
JMP BANKHR -2

3033
4465
4466
5501
7307
0033
3036
1033
7012
7010
5207

0000
4663
2260
3171
4661
4662
1037
7004
7200
1030
7420
0144
6211
34 22

6201
7430
5253
1030
0136
7112
1150
3256
4511
0000
5664

0260

05 75

02 61
02 62

0263
0264

7777
3757
22 75

1751
1416

0606

CURREN*

0265

RESTOl
COMMAN
SNUM
PSTCHK
MOVEAA
MODE

ISZ

DCA
JMS I
JMS I
TAD
RAL
CLA
AAOR
TAD
SNL
P1777
AND
6211
OCA 1 VADR
6201
SZL
PDPBER
JMP
AADR
TAD
P6000
AND
RTR
CLL
P4000
PDP8ER1 TAD
.+2
OCA
JMS I TYPAOl
JMP

COMMAN,
PSTCHK
MOVEAA,
RESTOl
MAINIA,
r

STOCHK

ERR2
RESTOR

1736

SAVEl,

SEARCH,
4665

3026

/CHECK FOR TOO MANY COMMAS,
/YEP, A BADDY

/PLACE SIGN BIT INTO THE LINK

MAINIA

-1

MAINSF
SAVE

0266
0267
0270

JMS

06 03

06 05

JMP BANKEM
CMA
TAD AAOR
TAD P2000
AND P6000
DCA AADR
BANKHR. JMS I RESETl
JMS I PAGEl

0574

0604

JMS I EXPRl
TAD ANY
SZA CLA

4477
1020
7640
5220
7040
1030
1152
0136
3030
4463
4502

05 73

0576
0577
0600
0601
0602

»200

JMS I SAVEl
OCA SCURR

/RESET IRREGULARLY.

0607
06i0
0611
0612
0613
0614
0615
0616
0617
0620
0621
0622
0623
0624
0625
0626
0627
0630
0631
0632
0633
0634
0635
06 36

0637
06 40

0322i

0641
0642
0643

0323
0324
0325
0326
0327
0330
035i

06 44

0645
0646
0647
0650
0651
0652
0653
0654
0655
0656
0657
0660
0661
06 62

0663
0664
0665
06 66

)

UK n

iM<5

cnrmi

72 40
TA n

^
A no
3A
Un

DC A

TA0

1023
3016
1416
0144
7041
1161
7640
5370
1416
0131
7041
1162
7640

SZ A CL A

53 70

)M D
Jnr

T kl T\A

1416

TA
A n
U

t
i

01 31

A W n

7041
1163
7640
5370
1367
7041
1023
7700
5334
1032
7041
1026
7510
3055

CI A

)

U1 A

Tr Ml

TA n

S2A CLA
TAD

n4
INUi
16
I

M(\U

r0 / / /

MD
Jfir

t kt

CIA
TaH
nw TrM9
It nt
1

INU*

0
XA
1

77 7

acA UUA

tf5

TKtm

IMP

/NO HATCH,

TAD TOP
PT A
A

AU O AUn
SMA CLA
1

IMP

DCItn

TAn PTRMA
CI A
TA
A fl
U

ID n
Un
1

SP A
nr
uu AA

w
N CT
a

n A n

03 34

73 00
14 16

0335
0336
0337
0340
0341
0342
0343
0344
0345
0346
0347

3025
1016
3022
7346
1016
3016
1416
0150
3007
1416
0150

TAD I 16
AND P4Gina
UU A
Lnr
TAO I 16
ANU r*TBIff0

PS UO

Tad I 16
np
A 1^
UUAA UVAL>>
1

T AA n
1 A
U ID
nr
A u
A no
Ulr A
VA
Un
HT MR £E
!

TAnU

1
0
i

03 50

71 10

RA R

0351
03 52

1007
1025

0671

0353
0354
0355

TAD TtMr
VA LK
OCA VAL
TAD MODE
SMA CLA
JMS I INDIB
JMS I GETYE
ISH SEARCH
JMS I INDIC
6201

06 74

03 56

0675

0357
0360
0361
0362
0363
0364
0365
0366
0367

06 76

0677
0700
0701
0702
0703
0704
0705

^
/

0333

6211
Mn \iX

06 70
06 72

03 32

6211
1026
4512

0667

0673

0271
0272
0273
0274
0275
0276
0277
0300
0301
0302
0303
0304
0305
0306
0307
0310
0311
0312
0313
0314
0315
0316
0317
0320
0321

3024
1037
7700
4764
4765
2266
4766
6201
5666
1560
3623
2367
7374

CL L

TA D

TAABA*
INDIB.
GETYE»
INDIC,
TOP#

JMP I SEARCH
LNINST
GETYPE
ANYY
7374

INSTRUCTION

.£-

0706
0707
0710
0711
0712
0713
0714
0715
0716

0370
0371
0372
0373
0374
0375
0376
0377

2026
1026
7041
1027
7640
5272
2020
5362

IND1»

IS2

TAO
CIA
TAO
SHA
JMP
IS2

SCURR
SCURR
SEND
CLA

SEARCl
ANY
JMP TAA8A
EJECT

^ jg.

07 17
07 20
07 21

0722
07 23
07 2 4
07 25
07 26

0727
0730
0731
07 32
07 33
07 3 4
07 35
07 36

0737
0740
07 41
07 42
07 43
07 44
07 45

0746
0747
07 50

0751
07 52

/PDP-12 ASSEMBLER PA
*4 00

04 00

0000

G£ TSYM

04 01
04 02

1 044

040 3

5 216

TAD CHARX
SNA
JMP SPECAL
TAD M33
SPA
JMP GETLET
TAD M12A
SMA CLA
JMP SPECAL
JMS I OPCVOP
JMP I 811
M12A
-12
DPCVOPj DPCV
SPECAL
TAD CHARX2
DCA TEM3
OCA TEM2
DCA TEMl
JMS I SCHl JMP 811*1
TAD TYPE
TAD P2000
SNA CLA
..JMP I VAL
TAD VAL
OCA TYPE
JMP GSTART
SCHl
SEARCH

74 50

04 04

11 23

56 41
Ic 1 ^

7510

0407
0410
0411
0412
04 13

7700
52l6
56 3 4
77 AA

04 15
04 16

0417
04 20
04 21
04 22

31 63
31 62
31 61
46 33

0423

5235

04 24
04 25
04 26
04 27
04 30

10 21
11 52

0431

76 50

5424
JW 1

04 32

0433
0434

07 56
07 57
07 60

04 35
04 36
04 37

04 41

52 01
45 10

0761

1021

04 44

07 70

0447

0771

10^710

07 72
07 73
07 74

04 $1
04 52
04 53
04 54
04 55

10 03

1004
10 05

1006
1007
1010
1011
1012
1013
1014
1015

11 52
76 50
54 24

f
»4> 4 6

07 76

0266
1041
7325

04 42

0766
0767

0777
1000
1001
1002

/ 1^
/DIGIT

1045

07 53

0775

07^4
0tS5

07 62
07 63
07 64
07 65

0456
0457
04 60
04 61
04 62

0463
0464
0465
0466
0467
0470
0471
0472
0473
0474

1600
0145

1200
01 46
10 43
30 43
16 00

0146
7440
5264
1043
32 00

5246
7041
10 21
76 50

5443
1600
0146
1147
7650
5443

81 1>

PTHREE
JMS I ERR!
JMS r IDXl
JMP GETSYM+l
GETLET, JMS I GETASl
TAD TYPE
TAD P2 000
SNA CLA
JMP I VAL
GSTART, TAD r GETSYM
AND P177
DCA CURR
TAD GETSYM
AND P7 60 0
TAD CURR
DCA CURR
TAD I GETSYM
AND P7600
SZA
JMP GTYPOT
TAD CURR
DCA GETSYM
JMP GSTART
GT YPOT
CI A
TAD TYPE
SNA CLA
JMP I CURR
TAD
GETSYM
AND P7600
TAD P200
SNA CLA
JMP I CURR

—

/GET SYMBOL

/PSEUDO OP.

'•^^.^

—

1016
1017
1020
1021
1022
1023
1024
1025
1026
1027
1030
1031
1032
1033
10 34

1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
1050
1051
1052
1053
1054
1055
1056
1057
1060
1061
1062
1063
1064
1065
1066
1067
1070
1071
1072
1073
1074

0475
0476
0477
0500
0501
0502
0503
0504
0505
0506
0507
0510
0511
0512
0513
0514
0515
0516
0517
0520
0521
0522
0523
0524
0525
0526
0527
0530
0531
0532
0533
0534
0535

0536
0537
0540
0541
0542
0543
0544
0545
0546
0547
0550
0551
0552
0553

ISi I GETSYl
JMP GSTART
JMS I EXPRl
PAGEC.
TAD ANY
SZA CL
JMP PAGEM
CMA
TAD AAOR
TAD P200
1147
AND P7600
0146
OCA AADR
3030
PAGEl
JMS
PAGHERi
4502
TAD AADR
1030
OCA EVAL
3033
PASSEK
JMS
44 65
JMS I CURSKA
4466
"Al«i
JMP
J"^' I MAINI
5501
TAD EVAL
PAGEM.
1033
RTR
7012
RTR
7012
RTR
7012
JMP PAGHER-2
5306
Ml.-l
7777
MOVES.
0
0000
TAD Ml
1323
OCA 16
3016
CMA
7040
TAD I MOVES
1724
OCA 17
3017
ISZ MOVES
2324
TAO I MOVES
1724
ISZ MOVES
2324
DCA MOVA
3345
TAO P777
1156
OCA TEMP
3007
TAO TEMP
1007 MOVB,
CLL CML RAL
7124
OCA TEMP
3007
S2L
7430
JMP I MOVES
5724
0
0000 MOVA*
TAO I 16
1416
AND TEMP
0007
AND P3777
0131
6201
6201
OCA I 17
3417
JMP MOVB
5340
I

iS76
1077
1100
1101

0554
0555
0556
0557

1103

0561
0562
0563
0564

n04
1105
1106

1111
1112
1113
1114

0566
0567
0570
0571

^^jpi/^'€/~^

2507
5Z46
4477
1020
7640
5316
7040
1030

7610
7240
3324
1035
35
7650
5367
1324
3770
1324
7040
'.77?
37 71

5503
1733

D0LIST» CLA SKP
DOLIST.
CLA CMA
PLIST,
OCA
TAD
SNA
JMP
TAO
DCA I
TAO
CMA
Set
DCA
JMP I
OOPOUT,
00
JJ ST ART
JEND
JJENO*
I
1

17 34

MOVES
PASS
CLA
OOPOUT
MOVES
JjSTART
JJSTART
MOVES
JJEND
B21
JSTART

^„
/MULTIPLY 8Y 200

^
"1

//...x^
'^'-^"^

/LIST ENTRY PSEUDO.
/NOLIST PSEUDO.
/IN TEMPORARY.
/IS THIS PASS2?
IGNORE IT.
/0 =L IS T, 7777 =N OL IS
/NO.

/FUDGE JBTEST PARAMS,
/SET UP LINE NUHBER tlHITS.
/CLEAN UP SYSTEM.

1H5
1116
1117
1120
1121
1122
1123
1124
1125
1126
1127
1130
1131
1132
1133
1134
1135
1136
1137
1140
1141
1142
1143
1144
1145

/
/
/
/

/
/
/

0572
0573
0574
0575

4776
4331
5772

0576

7774

VRSTR,
JMS
VSAVE
JMP I
I

VRSTRR, READ
/
/
/
/
/
/
/
/

EJECT

VRSTRR
VRSTR

/THIS ROUTINE RESTORE 6400 FROM THE SCRATCH AREA
/CALL THE READ ROUTINE
/POINTER TO THE SAVE AREA
/RETURN TO THE CALLER

/POINTER TO THE READ ROUTINE

/PDP-12 ASSEMBLER PAGE

li46

....
3171
1171
0136
7640
5674
1171
7106

r'''

u£ STAB
DCA IaOR
PTHREE

1153
1154
1155
1156
1157
1160

.6..
0601
0602
0603
0604
0605
0606
0607

Hti

TAl

11%

l\tl
1164
''''

0612
0613

3023
7325

lir?

n52

^^'l

nil
1172
1173
1174
1175
1176
1177
1200
1201
1202
1203
1204
1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1220
1222
1221
12 22

1223
1224
1225
1226
1227
1230
1231
1232
1233
12 34

1235
1236
1237
1240
1241
1242
1243
1244

'''''''

SNUM
SNUM
P6000
CLA
ERSY
TAD SNUM
CLL RTL

OCA
TAD
AND
SZA
JMP

/CONVERT A SVHBOU NUMBER TO AN ADDRESS
/SAVE THE NUMBER

/TOO MANY SYMS

/STAB IS TOP OF SYMBOL TABLE
/ADDRESS OF FIRST WORD OF SYMBOL
^^^^

Bl
ml
0621
0622
0623
0624
0625

'''''''

IVaI
5600
0000
72 00

1622
3014
1014
06 26
3021
0627
«v^.
6211
0630
1423
0631
0144
0632
0633 3423
1021
0634
0635 0136
1423
0636
3423
0637
2023
0640
1423
0641
0131
0642
3423
0643
1021
0644
7006
0645
0150
0646
1423
0647
3423
0650
2023
0651
0654
0655
0656
0657
0660
0661
0662
0663
0664
0665
0666
0667
0670
0671
0672
0673

;SE?^rHE'^U^BEl OF CHARACTERS IN THE OUTPUT BUFFER
/IF NON-ZERO. SEE IF ITS OK TO PRINT ONE,
/by calling THE CHECK ROUTINE.

'*'%OUNT

3423
1021
7006
7004
0150
1423
3423
73 44
OI-JT
1023
3023
1021
0136
3021
6201
2222
5622
^

Ilk
!hS
JMP

TYPADD.

CLA

''\hECK
S0EC08

CLA
TAD I TYPAOO
OCA TYPEA
TAD TYPEA
DCA
'-^ TYPE
6211
TAD I SAOR
AND P1777
OCA I SADR
TAD TYPE
AND P6000
TAD I SAOR
OCA I SAOR
IS2 SAOR
SAOR
TAD
AND P3 77 7
DCA I SADR
TAD TYPE
RTL
AND P4000
TAD I SAOR
DCA 1 SAOR
4iS2 SAOR^

O^'tJ^P^Sl
«J^^^

^^^j^J^

^^l-^.-^^J^^

tM^

bcA

^
^

'^^v^jL
c/^-^^^

SADR

/TAD TYPE
iRTL
;RAL

(AND P4000
TAD 1 SAOR
OCA, I SADR
MTWO
T
An
5
SADR
TAD
OCA SADR
TAD TYPE
AND P6000
OCA TYPE
6201
ISZ TYPADD
JMP 1 TYPADD

C/^

/
^

/0,..4^'

L^^^-n^^^

.<^^^^
'

Q
,

.-O-O'

.^ZU^''

1245
12 46

1247
12S0
1251
1252
1253
1254
1255
1256
1257
1260
1261
1262
1263
12 64

1265
1266
1267
12 70
12 71
12 72

1273
1274
1275

0674
0675

1175
7600

13 06

1307
1310
1311
1312
1313
1314
1315
1316
1317
1320

/SET TO POINT TO END OF THE SYMBOL TABLE

/
/
/
/
/
/
/

/
/

0676
0677
0700
0701
0702
0703
0704
0705
0706
0707

0000
7240
1360
3360
1705
3140
4326
6110
1140

BUFFERED TTY AND LPT ROUTINE

GGCET.

CLA CMA
TAD
DCA
TAD 1
DCA
JMS
riRST
TAD
JMP I

OUTP,

56 76

/GETS A CHARACTER FROM THE BUFFER
/DECREMENT COUNT BY 1

COUNT
COUNT
OUTP
LOWTMP
BUMP
LOWTMP
GGCET

/GET THE CHARACTER
/SAVE FOR A SECOND
/BUMP THE RING POINTER NOH
/POINTS TO THE NEXT GET FROM SPOT
/REGET THE CHARACTER
/AND EXIT

THE BUFFER

/
/
/
/
/

12 76

1277
1300
1301
1302
1303
1304
1305

ERSY, STEXD
STAB»
7600

0710
0711
0712
0713
0714
0715
0716
0717
0720
0721
0722
0723
0724
0725

PUT,

3222
4541
1360
1361
76 50
53 12

1222
3722
4326
6110
2360
4541
5710

INP»

OCA
JMS I
TAO
TAD
SNA CL4
JMP
TAD
DCA I
JMS
FIRST
1S2
JMS I
JMP I

TYPAOD
PC HECK

COUNT
PLTST
PUT* 2
TYPAOD
INP
BUMP

COUNT
PC HECK
PUT

/SAVE THE CHAR IN ANOTHER TEMP LOC
/CHECK TO STATUS OF THE DEVICES,
/GET THE COUNT
/COMPARE AGAINST THE MAXIMUM NUMBER ALLOWED

/BUFFER IS FULL. WAIT
/RECALL THE DESIRED CHARACTER
/STASH IN THE BUFFER
/BUMP THE BUFFER POINTER
/THE BUFFER POINTER
/BOP UP THE COUNT
/SEND OUT ANOTHER CHAR IF ALL
/AND EXIT

WELL

13 21

1322
1323
1324
1325

0726
0727
0730

13 26

07 31

1327
1330
1331
1332
1333
1334
1335
1336
1337
1340
1341
1342
1343

0732
0733

0000
2726
1726
1362
7650
1361

07 34

17 26

0735

3726
2326
5^26

07 36

0737

BUMP,

ISZ
TAD

I
I

BUMP
8UHP
PLOVR

TAD
SNA CLA
TAD
PLTST
TAD I
BUMP
OCA I
BUMP
ISZ
BUMP
JMP I
BUMP

/THIS BUMPS THE RING BUFFER POINTER
/TEST FOR WRAP AROUND
/?

/GET MINUS END START
/NOW READJUST POINTER IF NECESSARY

/
/

0740
0741

0000
1360

CHECK.

TAD

COUNT

/THIS CHECKS THE OUTPUT STATUS
/GET THE NUMBER OF CHARS IN THE BUFFER

1344
1345
1346
1347
1350
1351
1352
1353
1354

0742
0743
0744
0745
0746
0747
0750
0751
0752

7650
5740
6041
5740
6661
5740
6214
1353
3356

13 55

07 53

1356

0754
0755
0756
0757

6201
4276
4763
0000
5740

13 57

1360
1361
1362
1363
1364
1365
1366
1367
13 70

1371
1372
1373
1374
1375
1376
1377
1400
1401
1402
1403
1404
1405
1406
1407
1410
1411
1412
1413
1414
1415
1416
1417
1420
1421

CNOPt

CCDft

SNA CLA
JMP I
TSF
JMP I
LSO
JMP I
RDF
TAD
DCA
CDF
JMS
JMS
0000
JMP I
I

CHECK

CHECK
CHECK
CCDF
.*4
0

GGGET
CTYPO

CHECK

/RETURN IF NO CHARS IN THE BUFFER
/KEYBOARD OK???
/NOPE, RETURN NOW
/HOW ABOUT THE LINE PRINTER
/IF NO LINE PRINTER THIS GETS 2APPED
/READ IN THE PRESENT DATA FIELD
/SAVE IT AWAY
/SAVE IT AWAY FOR A SECOND
/RESET THE DATA FIELD TO FIELD ZERO
/GET A CHAR FROM THE BUFFER
/NOW OUTPUT IT RIGHT AWAY,
/RETURN COF GOES HERE
/NOW RETURN TO THE CALLER

/
/
/
/
/
/

0760
0761
07 62

0763

0000
7510
1400
2527

COUNTf
PLTST,
PLOVRi
CTYPO,

/NUMBER OF CHARACTERS NOW IN THE BUFFER
-BAD FIRST
-BAD
TYPO

/-UPPER LIMIT
/ADDRESS OF THE ACTUAL PUTTER

/
f

t
i
/
/

/
i

0764
0765
0766
0767
0770
0771
0772

0000
3200
1134

0773
0774
0775
0776

0000

SKIP2i

44 01

OCA
TAO
JMS

2200
5366
5764

JMP
JMP

SO EC 08
I

P24f
OECOUT
S0EC06

SKIP2

IS2

/SAVE SKIP COUNT

,-3

14 22
14 23
14 24

1425
1426
1427
1430
1431
1432
1433
1434
1435
1436
14 37

1440
1441
1442

VPRSRW

/THIS ROUTINE PRESERVES LOCATIONS 6400-67777
/IN THE SCRATCH AREA. CALL THE WRITE ROUTINE

VPRSRV

/AND RETURN TO THE CALLER.

VPRSRV,

JMS 1
VSAVE
JMP I

47 77

4331
5773
/
/
/
/

0777

7775

VPRSRH, WRITE
/
f

/POINTER TO THE WRITE ROUTINE.

14 43

1444

14 45

/
/
/
/
/
/

1446
1447
1450
1451
1452
1453

EJECT

1454
1455
1456
1457
1460
1461
1462
1463
1464
1465
1466
1467
1470
1471
1472
^473
1474
1475
1476
1477
1500
1502
1503
1504
1505
1506
1507
1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1*24
1525
1526
1527
1530
1531
1532
1533
1534
1535
1536
1537
15 40

1541
15 42

1543
1544
1545
1546
1547
1550
1551
1552

•a
SCOLON*200
COMMAB600
SYM9=4000
EQUALS=1400
USYMB=2000
EXCtAM'2200
ANOS«3400

MINUS=5200
SPACE«5600
ALU«7600
/POP -12 ASSEMBLER
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014
1015
1016
1017

0000

EXPR.

^.^-Ot^^^^^

PAGE

PUSgl^,^. / ^ ,^
OCA CON y^^T^

1021
1022
1023
1024
1025
1026
1027
1030
1031

4^05
3164
1055
4505
3055
1054
4505
3054
1034
4505
1365
3034
1275
4505
3275
1200
4505
7410
4504
4507
2076
4076
5624
4655

10 32

52 60

C* 3- 1000

1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
1050
1051
1052
1053
1054
1055
1056
1057
1060
1061

2262
0313
3464
7713
1024
5243
7200
1053
4434
7410
4504
4507
5662
0707
4037
2037
1540
0031
1366
3034
5245
1367
5256

C*5-1000*E XCtAM
G-1000*S COLON
C+7-1000*ANDS
G-1000*ALL
TAO VAL

10 20

TAO INST
JMS I PUSHl
0
OCA INST
TAD MICROL
JMS I PUSHl
OCA MICROU ./c;
TAO SGN
,
JMS 1 PUSHl / ^^^^
TAD CRIOR
OCA SGN
TAO H6
^.
JMS I
OCA H6
TAD EXPR
JMS I PUSHl
SKP
JMS 1 10X1
JMS I GETSYl

PUSin^™^^_

/OR

C^^-""^

82,

C*5ol000*SPACE
GET»1-1000*COMMA
91»2-1000*SYMB
B1.2-1000*US YMB
ERONE-1000*EOUALS _
A*5«1000
/PLUS
TAD CRIOR^l

OCA
JMP
TAD
JMP

SGN
B2-1
CRI0R*2
C*l

/MINUS

L. Ok^

),uh^l^
A

/
'

'X -

ij^^i/*^^-^

,^^

M INUS

JMP .S
CLA
TAD LWC
JMS I SGN
SKP
JMS I IDXl
JMS I GETSYl

Vc?/«^-

8-1000HJSYMB
8-1000*SYMB
A-1000*SPACE
C-1000*PtUS

Blr

.-W-H

^'^

j^--^^^'.
>rf^^^

$ /. (

;

TAD CON
Jf^S

W-*^

.^/^^-^

^
,^,^,fvi>^'^

U64

^rC

^(J^'

PUUSM600

/
A

CM>Z^^'

^
T^^^
^

1553
1554
15 56

1557
1560
15 61

1562
1700
1564
1565
1566
1567
15 70

1573
13 / 3

1576
1577
1600
1601
1602
16 03

1604
1605
1606
1607
1610
lOll
10 Ic
10 10

1614
16 IS

1010
101 /

lOel
16 22

1623
1624
lOcD
1626
1627
1630
1631
1632
1633
1634
1635
1636
1637
1640
1641
1642
1643
1644
1645
1646
1647
1650
1651

1062
1063
1064
1065

1365

10 66
10 67
10 70

10 37
77
aa
1 1 Vtt

110 /

110 fc

1073
74

1
fl / •*
110

107 6
10 77
1
0101
1010
11

52 56
10 flO
52 56

53 04
11 c ^
1 9 7C!
1<
/9
32 75

5225
0000
1024
4434

11 01

1 («A9
1

57 10
flISI

52 72
47 7 J
47 72

11 1/

IC
wl OO

£QU-1000«£OUAUS
GeT«1000«SPACC
B2«l-1000
UN r

GETi

1165
4506
3200
11 64

3033
1 9 7R
73

32 75
•9 1^0
30 34

1140
lie/

X0I as
010
109

11010
4 1 11
Ol
11
11 32

010 94

JMS

1 1099

4506
Op 99

4506
3164
5600

ADR
I

POPUl

SGN
TAD MICROL
OCA MICROS
JMS I POPUl
DC A MICR OL
TAO INST
OCA MICRO
JMS 1 POPUl
OCA INST
JMS I POPUl

30 56

1135
1136
1137

H*4
DEFINl
I
GtTAOl
I

DC A

4506

11 33

P10
P10

DC A H6

e; A
1
01 p**
110

1 1

TAD
TAD
JHP
JMS
JMS
TAD
JMS
JMS

CRIOR
POPUl DC A EXPR
TAD CON
OCA EVAL
TAD H6
OCA IND
JMS I POPUl

4 7 65

11
11 £0
11 24
11 CP

TAD VAL
JHS I SGN
JMS I GETSYl

/0
10T7T

1110
1111
1112
1113
1114
1115
1116

/AND

H6
A*l

11 06
11 07

C*l
CRI0R*3
C*l
M00£
CLA
LINK I
P400

1373

/OR

CR lOR

45 07

1102
1103
llB^
1105

11 CIO
11 21

H»

TAO
JMP
TAD
JMP
TAO
SMA
JMP
TAO
TAD
OCA
JMP

DC A CON

JMP

EXPR

1140
1141

5741
3766

ERONCf

JMP I
COUERR

1142
1143
1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
1156

1771
3364
3006

CQUi

TAD I REPUNl
OCA CRIOR-1
OCA EQRETI
JMS I
0X1
EXPRl
JMS
CLA CM A
OCA EQRETI
TAO CRIOR-1
JMS 1 SOECOl
TAO EVAL
6211
OCA I VADR
6201

45 04

4477
7240
3006
1364
4512
1033
6211
3422
6201

1652
1653
1654
1655
1656
1657
1660
1661
1662
1663
1664
1665
1666
1667
1670
16 71

1672
1673

1157
1160
1161
1162
1163
1164
1165
1166
1167
1170
1171
1172
1173
1174
1175
1176
1177

JMS 1
SYM8
JMS
JMS I
JMP I

4511
40 00
44 65

4466
5501
0000
1600
4235
4211
3713
1747
1200
0010
0227
1157
44 76

5517

TYPADl'

PASSEK
CURSKA
MA INI

CRIOR.

RIOR
RADO
RSU8

RAND
REPUNl , RESTOR -2
CETADl , GETAOR
P10»
OEFINl , CURREN
STEXDi TAO P7
JMS I ERRl
JMP 1 HON
EJECT

16 74

1675
16 76

1677
17 00

1701
1702
1703
1704
1705
1706
1707
1710
1711
1712
1713
X714
1715
1716
1717

PAGE

Ur *i c

12 20

00 00

GE TA DR i

4504
1200
4505
4477
1037
7700
5250
1056
7700
5222
1164
7106
7006
0157
1261

JHS I FX PR!
Tin
m u MfihF
nunc
SMA CLA
JMP Mi(QR
1

77 00

SMA CLA
JH P CH KL A
TAD CQN
CLL RTL
RTL
AND P7
TAD M6A
SMA CLA
JMP LCVFL*!
TAD EVAL
AND P7 60 0

12 21

52 57

10 33

1721

1223

0146

17 22
17 23

12 24

74 50

SN A

1225

1724

12 26

1725
1726
1727
1730
1731

1227
1230
1231
1232
1233

5242
7041
1031

JHP
CIA
V1 A
AU
SNA
IMP
jnr

17 32

12 34

1733
1734
1735

1235
1236
1237

1736
1737
l740
1741

12 40

3165
4506
3200
5600

1241
12 42

11 47
30 07

1243
1244
1245
1246
1247

1033
0145
1007

15^42

1743
1744
1745
17 46

12 50

1747
1751
1752
1753

1251
1252
1253
1254
1255

17 54

12 56

1755
1756
1757

1257
1260
1261
1262
1263
1264
1265
1266
1267

17 50

17 60

1761
1762
1763
1764
1765
1766
1767
1770

12 70

1271

1771

12 72
12 73

1772

1274

CHKl,A»

76 50

524
70 01

4A u

4662

JMS

52 36

JMP

LEAVEi

t
MUPACr
LFAVr

PfSPUl

Tin P2flfl
UUA Itnr
Tin
TAU ruAi
bVAU
TAH
U TFMP
L nr
TAO IND
tHP iFAUr-l
TAR Mf rn nfi
SMA CLA
JHP CHKL
Tin
run
lAW tVAL
AKin
r* 777
AINU Pi
f »
T AU
A n T1 Wft
viiJ
nrAA ruAi
L V AL
TAO EVAL
1

i.L TB.L f

JMP

LEAVE-1

H6Af
NUPAGEi

-6

CHKLi

TAD TYPE A
IRTL
lAND P6000

UNDERR

iSZA CLA

JMP
TAO
TAO
JMP

52 56

0000

Ar Awe.

CLA
AUAV
ANAT

Alun
U Pi
ri f
AN

1033
5235
77 72

AHAY t

5235
1005
7700
5264
1033
0144

2317
0000
1014
7006
0136
7640
5253
1033
1166

JMS

AUAY^l

nr
k nPTAnp
uitf n
uc
un

11 66

11 66
30 33

IQVI

Tin CTTAnR
JMS I ^USMl

12 22

17 20

*1200
1200
1201
1202
1203
1204
1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217

LOT,

LEVCL-3
EVAL
IND

LEVEL

-7^ D

1773
1774
17 75
17 76

nil
2000
2001
2002
20 03

2004
2003
2006
2007
2010
2011
2012
2013
2014
2015
2016
2017
2020
2021
2022
2023
2024
2025
2026
20 27
20 30

2031
2032
2033
2034
2035
20 36

2037
20 40

2041
2042
2043
2044
2045
2046
2047
2050
2051
2052
20 53

2054
2055
2056
2057
2060
2061
2062
2063
2064
20 65
20 66

2067
20 70

2071

TAD CH ARX
SNA
JMP I LOT
56 74
DC A NUPAGE*1
32 63
TAD NUPAGE+1
1263
TAD M45
1125
SMA CLA
7700
JMP NOTLOT
5311
/LETTER OR DIGIT
IS2 IN
2050
JMS I IDXl
4504
TAO NUPAGE*!
12 63
1307
JMP 1 LOT
56 74
1310
NOTLOTf OCA CH ARX
3044
13
JMP I LOT
5674
1312
0
AIM,
0000
1313
JMS LOT
4274
1314
OCA NUPAGE*1
3263
1315
TAO NUPAGE*1
12 63
1316
CLU RTL
7106
1317
/CHR.
OCA VAL
1320 3024
TAO VAL
1024
1321
RTU
7006
1322
/CHR. •sa
RAL
1323 7004
TAO VAL
1024
1324
/CHR •!
TAD NUPAGE*!
1263
1325
OCA VAL
1326 3024
JMS LOT
4274
1327
TAO VAL
1330 1024
JMP I AlW
5713
1331
0
AAS*
900
1332
JMS AlW
4313
1333
OCA TEMl
3161
1334
JMS AlH
4313
1335
OCA TEM2
1336 3162
JMS AlW
4313
1337
OCA TEM3
3163
1340
JMS LOT
4274
1341
SNA CLA
7650
1342
JMP I AAS
5732
1343
JMP ,-3
1344 5341
JMS I lOXl
ORGIC,
1345 4504
JMS I EXPRl
4477
1346
TAD HODE
1037
1347
SMA CLA
7700
1350
JMP LINKIC
53 70
1351
TAO EVAL
1033
1352
OCA AAOR
1353 3030
TAO EVAL
1033
1354
ANO P7600
1355 0146
CIA
7041
1356
TAO APAGE
1031
1357
SNA CLA
7650
1360
JMP LNRT
1361 5365
JMS I PAGEl
1362 4502
TAO AAOR
1363 1030
OCA EVAL
3033
1364
JMS I PASSEK
4465 LNRT.
1365
JMS I CURSKA
4466
1366
MAINI
JMP
55 01
1367
TAO EVAL
LINKIC
1033
13 70
77
7
PI
AND
0144
1371
TAO ABANK
1046
1372
OCA AAOR
1373 3030

1275
1276
1277
1300
1301
1302
1303
1304
1305
1306

1044
7450

2072
2073

1374

5365

JMP LNRT

EJECT

2074
2075
2076
2077
2100
2101
2102
2103
2104
2105
21 i6

2107
2110
2111
2112
2113
2114
2115
21X6
2117
2120
2121
2122
2123
2124
2125
2126
2127
2130
2131
2132
2133
2134
2135
2136
2137
2140

END

CHAIN

»ASSEM2«»

0 F

ASSEMONC!!!!!

/GO GET THE SECOND PART NOW,

0000
0001

*20

PMQOE

00 02

0003
00 04

0005
0007
0010
0011
0012
0013
0014
0015
0016
0017
0020
0021
0022
0023
0024
0025
0026
0027
0030

BEGINNING OF ASSEMTNO.

0031
0032
0033
0034
0035
0036
0037

00 40

0041
0042

/
/
/
/
/

EJECT

0043
0044
0045
0046
0047
0030
0051
0052
0853
0054

0055
0856
0057

/
/
/
/

/PDP-12 ASSEMBLER PAGE
• 1400
/

1400
1401
14 02

1403

00 60

14 04

0061
0062
0063
0064
0865
0866
0067
0070

1405
1406
1407
1410
1411
1412
1413
1414
1415
1416
1417
1420
1421
1422

00 71

0072
0073
8074
0075
00 76

0077
0100
0101
0102
0103
0104
0105
0106
0107
0110
0111
0112
0113
0114
0115
0116
0117
0120
0121
0122
0123
0124
0125
0126
0127
0138
0131
0132
0133
0134
0135
0136
0137
8140
0141

14 23

1424
1425
1426
1427
1430
1431
1432
1433
1434
1435
1436
1437
14 40
14 41

1442
1443
1444
1445
1446
1447
14 50

1451
1452
1453
1454
1455
1456
14 57

1460
1461
1462
1463
1464

5201
1032
3027
3035
3037
4320
1350
3200
4735
4530
7240
3777
4404
4653
4504
1376
3173
1357
3047
3020
3166
5775
44 77

1020
76 50

5304
1033
4236
4461
5211
3033
45 20

2030
1037
7700
5252
1030
0145
7640
5636
4502
5636
21 32

1003
7710
5654
1051
1122
7650
5654
1051

JMP
TAD
OCA
OCA
OCA
JMS
TAD
PASSIP, OCA
JMS
MAINSCi JMS
CLA

PASSl*

PASSl
PERMA
SEND
PASS
MODE
SETORG
CJMP1*1

/SWITCH

HA IN

OCTSl
/SET TAOIX TO OCTAL
LINENO
CMA
/RESET THE COMMA SWITCH,
DC A \
PTOCHC
JMS 1 CNTUPI
JMS I CLENUP
MAINSFi JMS I
IDXl
TAD
M60
DC A
SPCUNT
TAD LISTl
DCA POINT
DCA ANY
OCA IND
JMP I
PS INTER
OOCAL,
EXPRl
JMS I
TAO ANY
SNA CIA
JMP MAINSA
/NOTHING TO BE ASSEMBLED
TAO EVAl
JMS ONEREG
TACK»
JMS I EMPTYl
JMP MAINSE
ONCRCGi
DCA EVAL
JMS I PUNONl
ISZ AADR
TAO MODE
SMA CLA
JMP LNKREG
TAD AAOR
AND P177
S2A CLA
JMP ! ONEREG
JMS I PACEl
/END OF PAGE
LNKREG, JMP I ONEREG
CLENUP, CLEARR
/SYMBOLIC ASSEMBLY SAVE ROUTINE
LSTSYM, 0
TAO LISTWD
SPA CLA
JMP I LSTSYM
TAD ITEM
TAO M43
SNA CLA
JMP I LSTSYM
I
I

TAO ITEM

0142
0143
0144
0145
0146
0147
0150
0151
0152
0153
0154
0155
0156
0157
0160
0161
0162
0163
0164
0165
0166
0167
0170
0171
0172
0173
0174
0175
0176
0177
0200
0201
0202
02 03

0204
0205
0206
0207
0210
0211
0212
0213
0214
0215
0216
0217
0220
0221
0222
0223
0224
0225
0226
0227
0230
0231
02 32
02 33

0234
02 35

0236
0237
0240

1471
1472

2356
5274
1703
3703
2303
2057

14 73

56 54

1465
1466
1467
14 70

1474
1475
1476
1477
1500
1501
1502
1503
15 04

1505
1506
1507
1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1524
1525
1526
1527
1530
1531
1532
1533
1534
1535
1536
1537
1540
1541
1542
1543
1544
1545
1546
1547
1550
1551
1552
1553
1554
1555
15 56

1557
1560
1561
1562
1563

7106
70 06

7006
3703
7040
3356
5272
3102
1035
7650
5211
1003
7710
5211
1167
7640

ISc SWOT
JMP DOLE FT
SYMBU
TAD
SYMBU
OCA
I

SYMBU
CHARAC
JMP I LSTSYM
OOLEFTi CUL RTL
RTL
RTL
OCA I SYMBU
IS Z

LSRTEi

ISc

CM A

OCA SWOT
JMP LSRTE
SYMBUF
SYMBU>
PASS
MAlNSAf TAD
SNA CLA
MAINSE
JMP
TAO USTWO
SPA CLA
JMP MAINSE
TAD ERRCNT
S2A CLA
JMP TACK
52 34
JMS I PASSEK
4465
JMS I CURSKA
4466
JMP MAINSE
5211
0
0000
SE TORG
Yin a A not
1150
LA AAUn
30 30
Tin
D
^ 0101
vV V
T A U
r^
1150
OCA APAGE
3031
in
DitfUflm
TAU r*t!flWB
1150
n^ A
A
OCA
EvAL
3033
TAD P4000
1150
OCA ABANK
30 46
OCA ERTuT
3002
OCA FLOWD
3036
OCA ERKCNT
3167
JMP I SETORG
5720
DOTS
2235 OCTSlt
PUNONE+1
3002
PASS2i
7240
CL A CM A
OCA PASS
3035
TAD M1000
1121
OCTbl<
OCA I
3736
JMS SETORG
4320
JMS I INITI
4460
TAD CJMPl
1347
IMP PASS IP
5207
JMP PASSl
CJMPI*
5201
JMP PASS2
5337
0
0000 RESET,
TAD AAOR
1030
AND P7600
0146
APAGE
OCA
3031
RESET
JMP I
5751
0
SW OT
0000
LISTA
UISTI.
2731
0000
ININST . 0
INST
TAO
1055
SMA
CLA
77 00
JMP
5372
ai

IT II

22 41

0242
0243
0244
0245
0246
0247
0250
0251
0252
0253
0254
0255
0256
0257
0260

1564
1565
1566

1024
0136
7650

15 67

53 72

1570
1571
1572
1573
1574
1575
1576
1577

7040
3054
1025
3024
57 60

1426
7716
0260

TAO
AND
JMP

VAl

P6000

CM A

OCA
TAO
OCA
JMP I
PS INTER,•OOCAL
-62
M60.
PTOCMC, CO MM AN
'

/
/

EJECT

MICROL
VALK

VAL
ININST

0261
02 62

0263
0264
0265
0266
0267
0270
0271
0272
0273
0274
0275
02 76
02 77

0300
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
03 32
03 33

0334
0335
0336
0337
0340
0341
03 42

0343
0344
0345
0346
0347
0350

1600
1601
1602
1603
1604
1605
1606

0000
3024
1164
7040
0024
1164
3164

16 07

56 00

1610
1611
1612

4703
7041
3024

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

4:! 41

1641
1642

0000
4703
1024

e^-R

CM A

AND
TAD
OCA
JMP

VAL
CON
CO N
RI OR

9~o

5273
5224
4241
52 67

1033
4704
44 65

4500
1051
0160
7106
7006
7006
3033
42 41

5267
1051
0160
1033
3033
5216

GENINI
STRING* JMS I
CIA
VAL
DCA
ST GET
JMS
ST NO DUMP
JMP
ST INTO
JMP
STGET
STLOOP* JMS
ST DUMP
JMP
CVAL
TAD
ONCRCI
JMS I
PASSEK
JMS I
TYCARI
JMS
ITEM
ST INTOi TAD
P77
AND
CLL RTL
RTU
RTL
EVAL
DCA
STGET
JMS
STDUMP
JMP
ITEM
TAD
P7 7
AND
EVAL
TAD
EVAL
DCA
STLOOP
JMP
I

16 43
16 44
16 45

1646
1647
1650
1651
1652
1653
1654
1655
1656
1657
1660
16 61

22 41

'4466

4532
1705
3173
4530
5641
1051

1662

7640

16 63

56 41
47 02

03 56

16 66

4702
5517

GENINI
JMS I
VAL
TAD
SZA CLA
STGET
ISH
M4 3
TAD
ITEM
TAD
SZA CLA
STNOT
JMP
PASSEK
JMS I
CURSKA
JMS I
SCLEAR
JMS I
SPTO60
TAD
SPCUNT
DCA
LINENO
JMS I
STGET
JMP 1

1122
1051
7640
5261
4465

0352
0353
0354
0355

1664
1665

STCET,

76 40

03 51

0357

/PDP-12 ASSEMBLER PAGE
•1600
0
RIOR
VAL
DC A
CON
TAD

STNOT,

TAD
ASMirZ
TAO
SZA CLA
JMP
JMS I
JMS I
JMP I
I

ITEM

TERMC-44
STM4 4

STGET
SQERR
SQERR
MON

/GET THE CHAR,
/DO WE WANT A DOLLAR SIGN AT THE END.
ADO IT IN.
/YEP.

0360
0361
03 62

0363
0364
0365
0366
0367
0370
0371
0372

1667

1033

16 70

47 04
44 65

1671
1672
1673
1674
1675
1676
1677
1700

4500
1051
1122
7650
5701
4703
5274

STOUMP,

TAD
JMS
JMS
JMS

E V AL

ONERE
passek

TYCA R
I TEM

STNODUMP.TAD
1

M4 3

SNA CLA
JM P

jna

5:n rn PT

03 73

8374
0375

AS M I Fi?

03 76

0377
0400
0401
0402
0403

1701
1702
1703
1704
1705

2714
3201
3670
1436
1576

1706
1707
1710
1711
1712
1713
1714
1715
1716
1717

0000
2012
7300
7240
3003
1332

SYM4 4#
sorn RT
SQCRRf

/OO ME WANT THE LITTERAL 1N??7
/YEP, ASSEMBLE IT IN.

«»4 4
r U n i

rppn D

cr y r u r .

QMpBr 1
9r

w QV f

MAR

04 04

0405
0406
0407
0410
0411
0412
0413
04 14

0415
0416
0417
0420
0421
0422
0423
04 24
04 23

0426
04 27
04 30
04 31

04 32
04 33

0434
04 35
04 36
04 37

17 20
17 21

1722
1723
1724

>R MS TR

IOC
CURL IN
CLA CLL
CLA CMA
nr AA
LIST WD

/THIS

/RESET THE FUDGE SWITCH
/BY REPLACING THE ISH

TA D

JB SM F

33 07

OC A

tao

JBMSTR
CURL I

76 60
57 06

1334

17 26

7670
3003
5706

JNOr f

CML

A i AU
IQ T An
A PT
Jo
1

S2A cl a
ID Tr CT

JEND
CML CMA I AC
CURL IN
SNA CLA
LI ST HQ

DC A

JMP

JBTEST

/
/

1732
1733
l7 34
17 35

J8SMF#

0000
7777

jC T i DT .

77 77

HIA,

tsz

CURL IN

7777
-1

/
/
/
/
/
/
/
/

04 41

0442
04 43

0444
04 45
17 36

1737
1740
1741
1742
1743
1744
1745

0000
1026
3347
1014
3346
1021
3350
5736

5AVC,

TAO SCURR

OCA
TAD
OCA
TAO
DCA
JMP

MADE

NOP FOR THE SEMI -COLON FUDGE

/THIS CODE DISPLAYS THE LINE NUMBER BEING
/ASSEMBLED IN THE HQ.

/4<;i

CLL
Tad
SNL
JMP
TAD
CLL
TAD
SZL

71 61

1727
1730
1731

1012
7421
7501
7161
1333

0440

0446
0447
0450
0451
0452
0453
0454
0455
0456

lOTrQT .f

iJD 1 & 3 1

RESTOR-2
TYPEA
RESTOR-3
TYPE
RESTOR-l
SAVE
I

04 57

17 46

00 00

0460
0461
0462
046j
0464
0465
0466
0467
0470
0471

1747
1750

0000
0000
0000
1447
4512
1346
3014
1350

1752
1753
1754
1755
1756
1757
1760

0
10

BrsTnR

TAD
jMs
TAD
OCA
TAD

RCST0R"'2

soecoi
RESTOR-3
I

TYPEA

RESTOR-1

DC A TYPE

30 21

JMP

5751

04 72

0473
0474
0475
0476

/
/

EJECT

RESTOR

04 77

0500
0501
0502
0503
0504
0505
0506
0507
0510
0511
05 12

0513
0514
0515
0516
0517
0520
0521
0522
0523
0524
0525
0526
0527
0530
0531
0532
0533
0534
0535
05 36

/PDP-12 ASSEMBLER
*2000
0000
1027
4512
6211
1024
3422
1161
3423
2023
1162
3423
2023
1163
3423
6201

20 22

56 33

2023
2024
20 25
20 26

3023
1600
3227
4511

TAO I ENTS
DCA ,*2
JMS 1 TYPADl-

2027
2030
2031
2032

00 00

2200
2027
5600

ISZ ENTS
132 SEND
JMP
ENTS

20 33

11 75

SAOROV

STEXD

2034
20 35
2036

7721
3670

M5 7,

-57

GETS,
COMS,

GETIN
COMMEN

2041

05 45

20 42

0546

2043
2044

0551
0552
0553
05 54
05 55

0556
0557
05 60
05 61

0562
0563
0564
0565
0566
0567
05 70

0571

0572
0573
0574
0575

ENTS,

TAO SEND
JHS
SDECOl
6211
TAD VAL
DCA I VAOR
TAD TEMl
OCA I SADR
ISH SADR
TAO TEM2
DCA I SADR
ISZ
SADR
TAD TEM3
DCA
SADR
6201

ao.J^^

''''

t^^^-

7344
1023
7450

MTWO
TAD
SNA
JMP I
DC A

/RESET TO FIELD 0.
/BACK UP SADR TO FIRST WORD OF NAME

SADR

SADROV

/IS IT ZERO?
/YES, TO MANY SYMBOLS.

SA DR

/Oy RESTORE SADR NOW.

ABORT WITH ERROR

0537
0540
0541
0542
0543
0544

05 47
05 50

PAGE

2000
2001
2002
2003
2004
2005
2006
2007
2010
2011
2012
2013
2014
2015
2016
2017
2020
2021

37 01

/POINTER TO TOO MANY SYMBOLS ERROR.

2037
20 40

2045
20 46

2047
2050
2051
2052

0000
4635
1234

lOX,

7650
5636
1051

7650
5773
44 64

JMS I GETS
TAD M57
SNA CIA
JMP I COMS
TAO ITEM
ASMirZ
TERHC-44
TAO
M44
SNA CLA
JMP
FINEND
JMS
8IT6A
OCA CHARX
TAD CHARX
DCA CHARX2
JMP I IDX
I

BIT,

3044
1044

2054
2055

3045
5637
0000
1003

20 56

70 40

CM A

2057
2060
2061
2062
2063
2064
2065
2066
2067

0035
7650
5654
1057
7450

AND
SNA
JMP
TAD
SNA
JMP
CIA
DCA
DCA
TAD

20 53

20 70

53 30

7041
3057
3175
1174

/IS END OF FILE CHAR A 44??
/YEP. ASSEMBLE IT IN NOW.

EMPTY,

LISTWD

TAD

PASS
CLA
I

EMPTY

CHAR AC

EMLEVE
CHAR AC
TBCONT
SY

/GET THE LISTING WORD

/NEGATE IT.
/AND WITH THE PASS.
/LISTING AND PASS2?
/NOPE. DONT PRINT ANYTHING

0576
V7 fJ
06 00

0601
0602
VOVO
0604
06 05
06 06

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

7019
ID X<S
0160
3007

OCA EMPTRA
SKP
iSZ EMPTRA
TAD I EMPTRA
RTR
RTR
RTR
AND P77
OCA TEMP

70 40

CM A

3172

20 71
20 72

74 10
21 72

2073
2074
'301 7^
2076

1572
7C1
1 9
'Wit
70 12

Qffl77
CV 1 1

cXvv
fill

2103

3170

(Ci 10

10 07
11 33

2105
2106
2107

7650
5356
43 47
20 57

21 10

2111
2112

^ < "KOI

21 13

2114
21 15

2116
2117

X9 f C
All OD
SX ACi
'V0I (X7

06 25

21 20

Xl 7fl

0626
0627
0630
0631
0O3Z

2121

BO 0<3

2126

0634

21 27

1007
1133
7650
5356
4347
2057
5344
4500
5654
0000
3057
3772
1167
1002
3002
3167

0636
0637
06 4

0642
0643
0644

0646
00 4/

0650
0651
0652
0654'
BO 99
0656
0657
0660
0661

0662
0663
0664
06 65
06 66
06 67

0670
0671
06 72

0673
0674

o^ OA

2130
2131
91 39

2133
2134
2136
2137
2140
91 41
^X
CX
91
kX 49
91 AS

~
11
'
X* 74

3514
5732

47 46

ci ^3

5273

91
''w
CX 46

37 37
00 00
10 07

2151
2152
2153
2154
2155
2156
2157
2160
2161
2162
2163
2164
2165
2166
2167

4755
4401
2175
5747
3600
1175
1371
7500
5357
47 70

4475
3175
2170
5326
5311

TMOCHR»

OCA SWITCH
TAO TEMP
TAD M47
SNA CLA
OUTTAB
NOTABl. JMP
JMS OUTTP
ISH CHARAC
DRHT.
JMP ,2
JMP EMLEVE
JMS I LNCKA
TAD I EMPTRA
AND P77
OCA TEMP
OCA SWITCH
TAO TEMP
TAD M47
SNA CLA
OUTTAB
N0TAB2, JMP
JMS OUTTP
ISl CHARAC
OUFT»
JMP TWOCH
EMLEVE I JMS I TYCARI
JMP I EMPTY
CLEARR* 0
OCA CHARAC
OCA I SWOTA
TAD ERRCNT
TAO ERTOT
OCA ERTOT
OCA ERRCNT
TAD SY
OCA I SYB
JMP I CLEARR
LNCKA
JMS I
TWOCH»
JMP TWOCHR
LNCK
LNCKA,
0
OUTTP*
TAD TEMP
JMS I ONVRT
JMS I OECOUT
ISZ TBCONT
JMP I OUTTP
CONVRT
ONVRT,
OUTTABi TAO TBCONT
TAO M10
SMA
JMP ,-2
JMS I KLUG2
SKIP
JMS I
OCA TBCONT
1S2 SWITCH
JMP OLFT
JMP DRHT

0675
0676
0677
0700
0701
0702

2170
2171
2172
2173
2174

3744
7770
1!>56

3717
7771

SPACK
KLUG2*
.10
SMOTA*
SWOT
riNENOi ENDMS
-7
M7TW0.
EJECT
M10I

.SiS

0703
0704
0705
07 06

0707
0710
0711
0712
0713
0714

0715
0716
0717
07 20

0721
07 22

0723
0724
0725
0726
0727
0730
0731
0732

B733
0734
0735
0736
0737
0740
07 41

0742
0743
0744
07 45

0746
07 47

2200
2201
2202
2203
2204
2205
2206
2207
2210
2211
2212
2213
2214
2215
2216
2217
2220
2221
2222
2223
2224
2225
2226
2227
2230
22 31

2232
2233
2234
2239
2236
2237
2240
2241
2242

0000
2020
3052
3053
1045
1126
7450
5212
1242
7650
4504

OPCS.

1125
7500
5600
1241
7510
5600
3273
4243
5212
4231
5503
4235
5903
0000
1255
3251
5631
0000
1121
3251
5635
0012
77 76

0000
1093
0196
3274
4257
4257
4269
4257

0752
0753
0754
0755
0756
0757
0760
0761

2243
2244
2245
2246
2247
2250
2291
2292
2253

07 62

22 54

12 73
32 74

0763
0764
0765
0766
0767
0770
0771
0772
0773
0774

2255
2256

4265
5643

2257
2260
2261
2262
2263
2264

0000
7300
1053
7004
3053
5657

07 75
07 76

2265

0000

22 66

73 00

0777
1000
1001

2267
2270
2271

1053
1274
3053

PAGE

ISZ ANY
OCA HIC
OCA LWC
TAD CHARX2
TAO H67
SNA
JMP OPCS
DPCVM2
TAO
SNA CLA
JMS I lOXl
TAO CHARX2
TAO M45
SMA
JMP I OPCV
TAO P12
SPA
JMP I OPCV
OCA MTDG
JMS MT10
JMP OPCS
JMS DECIMS
JMP I B21
JMS OCTS
JMP I B21

10 45

0750
07 51

/PDP-i2 ASSEMBLER
•2200
0
OPCV,

DECIM,
OCT,

OtClMS,

/CLEAR HIGH AND LOW PARTS
/

GET THE NEXT CHARACTER

/INDEX CHARACTER POINTER

/IF LESS OR EQUAL TO 9 CHECK FOR GR
/EQ. iERO

/LESS THAN ZERO, EXIT NOT DIGIT

TAO MTSW+4
OCA MTSW
JMP I OECIMS

OCTS,

TAD M1000
OCA MTSW
JMP I OCTS
P12,

0PCVM2» -2
/MULTIPLY LWC BY 10,
0
MT10,
TAO LWC
AND P777
OCA TIC
JMS MTRL
JMS MTKL
JMS MTAD
MTSW,
JMS MTRL
TAD MTDG
OCA TIC
JMS MTAO
JMP I MT10
/ROTATE LWC LEFT 1
0
MTRL,
CLL CLA
TAO LWC
RAL
OCA LWC
JMP I MTRL
/AOO LWC TO TIC
0
MTAD,
CLL CLA
TAD LWC
TAO TIC
OCA LWC
:

/NOP FOR OCTAL, JMS MTAD FOR DECIMAL

1002
1003
1004
1005
10 06

1007
1010
1011
1012
1013
1014
1015
1016
1017
10 20
10 21

1022
1023
1024
1025
1026
1027
1030
1031
1032
1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
1050
1051
1052
1053
1054
1055
1056
1057
10 60
10 61

1062
1063
1064
1065
1066
1067
10 70
10 71

1072
10 73

1074
1075
1076
1077
1100

2272

5665

JMP
MTAD
/SOME DATA STORAGE

22 73

2274
2275
2276
2277

0000
0000
0000
1021
1136

HTDGi
TIC,
ERR2i

23 00

76 50

2301
2302
2303
2304
2305
2306
2307
2310
2311
2312
2313
2314
2315
2316
2317
2320
2321
2322
2323
2324
2325
2326
2327
2330
2331
2332
2333
2334
2335
2336
2337
2340
2341
2342
2343
2344
2345
2346
2347

5675
1014
7106
0136
6211

23 50
23 51

2352
23 53

2354
2355
2356
2357
2360
2361
2362

0
0
0

TAD TYPE
TAD P6000
SNA CLA
JMP I ERR2
TAD TYPE A CLL RTL
AND P6000
6211
TAD I VADR 6201
CIA
TAD AADR
SNA CLA
JMP I ERR2
CLA CLL CML RTL
JMS I ERRl
JMP I ERR2

14 22

6201
70 41

1030
76 50

5675
7326
4476
5675
0000
2035
5332
3007
7040
3035
1007
4476
7240
3035
5717
1135
7650
4740
7240
30 06

5330
3366
00 00

3275
1142
1047
7700
5364
1275
3447
2047
5741
0000
6031
5753
6036
1151
7650
5763
57 53

//3

^/-^

UNDERR f 0
ISZ PASS
JMP EQCHK

OCA TEMP
CM A

DCA PASS
TAD TEMP
JMS I ERRl
CLA CMA
DCA PASS
JMP I UNDERR
EQCHKi
TAD M4
SNA CLA
JMS I EQCHKI
CLA CMA
DCA EQRETI
JMP EQCHK>2
EQCHKI , EQUCHK
0
PUSK2t
DCA ERR2
TAD P5000
TAD POINT
SMA CLA
JMP ERRl
TAD ERR2
DCA I POINT
IS2 POINT
JMP I PUSH2
CNTRLP * 0
Ksr
JMP I CNTRLP
KRB
TAD M215
SNA CLA
JMP I
CNTMON
JMP I CNTRLP
/

2363

4075

CNTMON,

2364
2365

1015
4476

ERR12,

KILBUF

TAD Pll
JMS I ERRl

^
..../

/RETURN TO KILL BUFFER MONITOR RESTART

1101
1102
1103
1104

U05
1106
1107
1110
1111
1112
1113

2J66
2367
2370
2371
2372
2373
2374

5517
0000
1021
1136
7450
2020
1136

23 75
23 76

76 50

2020

2377

57 67

JMP

ANYY,

MON

TAD TYPE
TAD P6000
SNA
IS2 ANY
TAO P6000
SNA CLA
ISZ ANY
JMP I ANYY

EJECT

Q
1114
1115
1116
1X17
1120
1121
1122
1123
1124
1125
1126
1127
1130
1131
1132
1133
1134
1135
1136
1137
1140
1141
1142
1143
1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
1156
1157
1160
1161
1162
1163
1164
1165
1166
1167
1170
1171
1172
1173
1174
1175
1176
1177
1200
1201
1202
1203
1204
1205
12 06

1207
1210
1211
1212

/POP-12 ASSEMBLER PAGE
•2400
2400
2401
24 02

2403
2404
2405
2406
2407
2410
2411
24 12

2413
2414
2415
2416
2417
2420
2421
2422
2423
2424

0000
4500
3307
1032
3026
7350
3040
7350
3041
7350
3042
1026
7041
1027
7650
52 74

2436
2437

1026
4512
6211
1423
7104
7020
7530
5270
7070
1040
7040
7640
5252
2023
7350
0423

24 40

70 40

2441

1041

24 25

2426
2427
2430
2431
24 32

2433
24 34
24 35

24 42

70 40

2443
2444
2445

7640
5252
2023

24 46

7350
0423
7160
1042

2447
24 50

2451
24 52

76 30

2453
2454
2455
2456
2457

5270
6201
1026
4512
1023

24 60

44 74

2461

0040
6211
6211
1416
3024
1023
3307

24 62

2463
2464
2465
2466
2467
2470
2471
2472
2473

ALPHA,

72 00

6201
2026
5213

JMS I TYCARI
SYMBLPi OCA
FOUND
TAD
PERMA
OCA
SCURR
CLA CMA CLL RAR
OCA
TEMIA
CLA CLL CMA RAR
DC A
TEM1A*1
CLA CMA CLL RAR
OCA
TEMIA*
NXCAND, TAD
SCURR
CIA
TAO
SEND
SNA CLA
JMP
PRSYMB
TAD
SCURR
JMS I
SDECOl
6211
TAD I
SAOR
CLL RAL
CML
SHL SPA
JMP
REJECT
RAR CMA CML
TAD
TEMIA
CMA
Si?A CLA
JMP
JUDGE
ISZ
SAOR
CLA CLL CMA RAR
AND I
SADR
CMA
TAO
TEM1A*1
CMA
SZA CLA
JMP
JUDGE
ISH
SADR
CLA CLL CMA RAR
AND
SAOR
CMA CLL CML
TAO
TEM1A*2
SZL CLA
JMP
REJECT
CDF
0
TAD
SCURR
JMS I
SDECOl
TAO
SADR
JMS I
MOVEl
I

JUDGE.

TEMIA
6211
6211
TAO I
OCA
TAO
OCA
REJECT, CLA
CDF
ISZ
JMP
/

VAL
SAOR
FOUND
0

SCURR
NXCAND

1213
1214
1215
1216
1217
1220
1221
1222
1223
1224
1225
1226
1227
1230
1231
1232
1233

2474

1307

24 75

74 50

Z476
2477
2500
2501
2502
2503
2504
2505

5600
3023
7240
6211
3707
6201
4706
5202

2506
2507

2600
0000

PRSYMB, TAD
SNA
JMP
OCA
CUA CMA
6211
OCA I
cor
JMS I
JMP
I

FOUND.

FOUND
0

PQSANOV
SYMBUP

/
/
/

12 35

0000
1154
4401
1153
4401
4470
4404
5710
0000
1012

1236
1237
1240
1241
1242
1243
1244
1245
1246
1247

2510
2511
2512
2513
2514
2515
2516
2517
2520
2521

12 50

25 22

44 62

1251
1252
1253

2523
2524
2525

1335
4475
4461
5720
0000
6041
5330
6046
7200
5727
7756

1256
1257
1260
1261
1262
1263

ALPHA
SAOR

POSANDVfOSANDV

1234

12 54
12 55

FOUND

25 26

2527
2530
2531
2532
2533
2534
2535

12 64

TYCAR»

TAD
JMS
TAO
JMS
JMS
JMS
JMP

P215
I

1
I

I
I

OECOUT
P212
DECOUT
CHEKER
CNTLPI
TYCAR

CURSKPi 0
TAD CURL IN
JMS I SOPS
TAD M22
JMS I SKIP
JMS 1 EMPTYl
JMP 1 CURSKP
0
TYPO,
TSF
JMP .-I
TLS
CLA
JMP 1 TYPO
-22
M22i
TEMP A«TY CAR

1265
12 66
12 67

1270
1271
1272
1273
1274
1275
1276
1277
1300
1301
13 02

1303
1304
1305
1306

2536
2537
2540
2541
2542
2543
25 44
25 45

4747
2555
4746
2551
4750
4746
2555
5501

/
/
/
/

13 07

1310
1311

XCHAIN, JMS I
XPSEU
JMS I
XINIT
JMS 1
JMS I
XPSEU
JMP I

2546
2547

7774
7775

OXREAOi 7774
OXWRIT, 7775

OXWRIT
OXREAO
XPP
OXREAO

MAINI

1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324
1325
1326
1327
1330
1331
1332
1333

2550
2551
2552
2553
2554

5000
0100
0012
0024
0001

XPP,
XINIT,

BCHAIN
1

2555
2556
2557
25 60

0100
0012
0025
0001

XPSEU,

SCRATCH
1

/
/
/
/
/
/

1335

/
/
/

2561

0000

13 41

25 62

13 75

1342
1343
1344
1345
1346
1347
1350
1351
1352
1353
1354
1355
1356
1357
1360
1361
1362
1363

2563
2564
2565
2566
2567
2570
2571
2572

7450
5367
1376
5761
1373
3774
1376
5761

13 64

DIAL UN IT
12

13 36

1365
1366
1367

OULUNIT
12

/
/

13 34

1337
1340

XXXX

SEMITX»

TAD
SNA
JMP
TAD
JMP
TAD
OCA
TAD
JMP

XM13
,*3
I

XP46
SEMITX

SEMFOC
SEMPTF
XP46
SEMITX

/REPLACE LINE BOPPER BY

/
/
/

2573
2574
2575
25 76

7000
1707
7765
0046

SEMrOC,
SEMPTF,
XM13,
XP46,

NOP
JBHSTR
-13
46

/
/
/
/

/
/

EJECT

/POINTER TO THE ISZ,

NOP

1370
1371
1372
1373
1374
1375
1376
1377
14 00

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

1426
1427
1430
1431
1432
1433
1434
1439
1436
1437
1440
1441
1442
1443
1444
1445
1446
1447
1450
4 A m
1^91
1452
1453
1454
1455
14 56

1457
1460
1461
1462
1463
1464
14 65

1466

/PDP-i2 ASSEMBLER PAGE
/OUTPUT A SYMBOL ANO
«2600
OSANOV, 0
I

2600
2602
2603
2604
2605
2606
2607
2610
2611
2612
2613
2614
2615
2616
2617
2620
2621
2622
2623
26 24

2625
2626
2627
2630

0000
4213
1175
1302
4475
4624
1024
4261
4S»00

44 04

JMS

5600
0000
3175

OSYHi

LINKS,

OCA TBCONT
TAD TEMIA
JMS OX
TAD TEM1A*1
JMS OX
TAD TEM1A*2
JHS OX
JMP I OSYM
LI NK8A

OX t

4225
1041
4225
1042
4225
5613
3551
0000
3053
3052
1053

26 3l
26 32

74 50

1125
7510
5240
2052
5233
1301
3053
1052
4247
1053
4247
5625

2637
2640
2641
2642
2643
2644
2645
2646
2647
2650
2651
2652
2653
2654
2655

00 00

7450
5613
1123
7510

1303
1304

26 56

44 01

2657
2660

2175
5647

2661
2662
2663
2664
2665
2666
2667
2670
2671
2672

10 40

2633
2634
2635
26 36

JMS OSYM
TAD T8C0NT
TAD M7
JMS I SKIP
JMS I LINK8
TAD VAL
JMS OPS
JMS I TYCARI
CNTLPI
JMP I OSANDV

00 00

3213

1135
3175
1213
70 06
70 04

3213
1213
7004

DCA
OCA
TAD
SNA
JMP
TAD

/OUTPUT SYMBOL

/OUTPUT TAB

/OUTPUT NUMBER

0
^v^Uv...

LWC
HIC
LWC

OSYM
I
M45

SP A

0V3f

JMP DV3
IS2 HIC
JMP .-4
TAD P45
Ui/A uHU
TAD HIC
JMS UNTPAN
TAD LWC
JMS UNTRAN
JMP I OX

UNTRAN# 0
SNA
JMP 1 OSYM
TAD M33
SPA
TAD P53
TAD P260
JMS I DECOUT
ISH TBCONT
UNTRAN
JMP
/OCTAL PRINT SUBROUTir
I

OPS,

OCA
TAD
DCA
- TAD
RTL
RAL
OCA
TAO
RAL

OSYM
M4
TBCONT
OSYM

OSYM
OSYM

f 4r^ -J~

146^
1470
1471
1472
1473
1474
1475

2673
2674

0157
1304

26 75
26 76

44 01

2677
2700
2701

14 76

27 02

1477
1500

2703

15 81

1502
1503
1504
1505
1506
1507
1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1524
1525
1526

27 04
27 05

2706
2707
2710
2711
2712
2713

2175
5265
5661
0045
7771
0053
0260
44 77

27 23

2724
27 25

2726
2727
2730

P45,
M7.
P53,

P260,
FLOUP,

1037
77 00

5314
1020
7640
5317

77
i A
t / i*»

2715
2716
2717
2720
2721
2722

AND P7
TAD P260
JMS I DECOUT
IS2 TBCONT
JMP OPS+4
JHP I OPS

44 66

5501
1033
7710
5314
73 44

1033
7700
5314
1033
3036
5314

45
-7

53
26 0

JMS I EXPRl
TAD MODE

SMA CLA
JMP FORT
TAD ANY
SZA CLA
JMP FIELOM
FDRT,
JMS I PASSEK
JMS
CURSKA
JMP
MAINI
1
FIELOM, TAD EVAL
SPA CLA
JMP FORT
MTWO
TAD
EVAL
SMA CLA
JMP FORT
TAD EVAL
DCA FLOWD
JMP FORT
LISTA".
EJECT
I

1531
1532
1533
1534
1535
1536
1537
1540
1541
1542
1543
1544
1545
1546
1547
1550
1551
1552
1553
1554

f,56
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
1612
1613
1614
1615
1616
1617
1620
1621
1622
1623
1624
1625

.^-^

/PDP-12 ASSEMBLER PAGE 12

1527

3000
,
3001
3002
3003
3004
3005
3006
3007
3010
3011
3012
3013
3014
3015
3016
3017
3020
3021
3022
3023

2661
0000
S601
1030
0155
7106
7006
7004
1176
3010
1036
7650
5220
1010
1300
3010
1010
7041
1011
7640

«7?
1030
3026
0277
3027
1142
3030
3140
3031
1033
3032
3540
3033
1003
3034
7710
3035
5601
3036
1167
3037
7640
3040
3041 5246
1012
3042
4600
3043
1301
3044
4475
3045
1037
3046
7700
3047
5262
3050
1030
3051
4600
3052
7344
3053
44 75
3054
3055 1033
3056 4600
73 44
3057
4475
3060
5601
3061
1030
3062
3063 0136
7041
3064
1046
3065
7650
3066
5273
3067
3070 1030
0131
3071
5252
3072
1030
3073
0144
3074

OPS

PUNONEi

BINCK,

JMP I PUNONE
TAD AAOR
AND P7400
CLL
I
RTL
RAL
TAD BINTAB
OCA BINPTR
TAD FLDWD
SNA ClA
JMP BINCK
TAD BINPTR
TAD P20
OCA BINPTR
TAD BINPTR

/NOP FOR PASS

c^aL,^^^:!
(

^4^1^-

V,.

CI A

TAD BINBLK
SZA CLA

jSI 5 '"SETINU
TAD AAOR
AND P377
TAD P5000
LOWTMP
OCA
TAD EVAL
LOMTNP
OCA I
TAO LISTHD
SPA CLA
PUNONE
JMP
TAD ERRCNT
SZA CLA
JMP NONER
CURL IN
ABN0P1» TAD
PUNONE -1
A8N0P2i JM S I
M6
ABN0P3, TAO
SKIP
ABN0P4» JMS I
TAO MODE
NONER*
SNA CLA
JMP LNKA
TAO AAOR
JMS I PUNONC-1
AADRL*
I

LNKA,

SAMES*

MTWO
JMS I SKIP
TAO EVAL
JMS I PUNONE *1
MTWO
JMS I SKIP
PUNONE
JMP I
TAD AADR
AND P6000
CIA
TAD ABANK
SNA CLA
JMP SAMES
TAO AAOR
AND P3777
JMP AADRL
TAD AADR
AND P1777

/SET BITS NOWNIN HEADER BUOCK

i^'

1626
1627
1630
1631
1632
1633
1634

3075
3076
3077
3100
3101

5252
3616
0377
0020
7772

JMP AADRL
NOTBLl, NOTBLK
377
P377,

P20,
20
-6
M6,
SYMB ur»,

16 35
16 36

1637
1640
1641
1642
1643
1644
1645
1646
1647

EJECT

1650
1651
1652
1653
1654
1655
1656
1657
1660
1661
1662
1663

/PDP-12 ASSEMBLER PAGE 13
«3200
/
/

3200

3201
3202
3203
3204
3205
3206

16 64

32 07

1665
1666
1667
1670

3210
3211
3212
3213
3214
3215
3216
3217
3220
3221
3222
3223
3224
3225

1671
1672

1673
1674

1675
1676
1677
1700
1701
1702
1703
1704
1705
1706
17 07

1710
1711
1712
1713
1714
1715
1716
1717
1720
1721
1722
1723
1724
1725
1726
1727
1730
1731
1732
1733
1734
1735
1736
1737
1740
1741
1742
1743
1744
1745
1746

TABIE

3271
ERROR*

44 65

1167
7640
4500
1012
4462
7344
44 75

3227
3230
3231
3232
3233
3234
3235
3236

1637
0160
1143
4401
1637
7012
7012
7012
0160
1143
4401
7344
4475
2167
7000
4465
7410
4900
5601

3237
3240
3241
3242
3243
3244
3245
3246
3247

0000
2317
1332
0000
7200
3050
4641
1050
7650

32 50

56 42

3251
3252
3253
3254
3255
3256
3257
3260
3261
3262

4670
7610
5262
3024
4667

32 26

UNREFi

UNDERR

GETASY,

3265
32 66

52 57

3267
3270

2000
0266

/CHECK FOR LISTING AND PASS2,

AAS

CLA
DCA
JMS
TAO
SNA
JMP
JMS
SKP
JMP
OCA
JMS

IN
I

GETASY-1

CLA

GETASY
SEARl
CLA
CKUN
VAL
ENTSl
1
USYMB
CLA CLL UC RTL /4
JMS I GETASY-2
JMP I GETASY

20 00

7307
4640
5642
1021
1136
7640
5642

32 63
32 64

TAD ,"2
OCA UNREF-1
PASSEK
JMS I
ERRCNT
TAO
SZA CLA
TYCARI
JMS I
TAO CURUIN
JMS I SOPS
MTWO
JMS I SKIP
TAD 1 UNREF-1
AND P77
TAD P300
JMS I OECOUT
TAD I UNREF'l
RTR
RTR
RTR
AND P77
TAO P300
JMS I OECOUT
HTHO
JMS 1 SKIP
ISZ ERRCNT
NOP
PASSEK
JMS I
SKP
JMS I TYCARI
JMP 1 ERROR

1200
3237

CKUNi

ENTSli
SEARli

TAO TYPE
TAO P6 000
SHA CLA
JMP 1 GETASY
JMP CKUN-3
ENTS

/FOUND

/US

1747
1750
1751
17 52
1753
1754
1755
1756
1757
1760
1761
1762
1763
1764
1765
1766
1767
t770
17 71

1772
1773
1774
1775
1776
1777
2000
2001
2002
2003
2004
2005
2006
2007
2010
2011
2012
2013
2014
2015
2016
2017
2020
2021
20 22
2023
2024
2025
2026
2027
2030
2031
2032
2033
2034
2035
2036
2037
2040
2041
2042
2043
2044
2045

32 71

3272
3273
3274
3275
3276
3277
3300
3301
3302
3303
3304
3305
3306
3307
3310
3311
3312
3313
3314
3315
3316
3317
3320
3321
33 22
33 23

3324
3325
3326
3327
3330
3331
3332
33 33

3334
33 35

3336
3337
3340
3341
3342
3343
3344
3345
33 46

3347
3350
33 51

3352
3353
3354
3355
3356
3357
3360
3361
3362
3363
3364
3365
3366

0511
2211
0411
0311
2325
1503
1003
0523
0127
2320
7610
7240
3037

I057
1316
3375
4772
33 73

4463
4502
55 03

0042
0000
7300
2351

/TABLE OF ERROR MESSAGES
TABLEi
0511
/IE
ILLEGAL EQUALS
2211
/IR
ILLEGAL REFERENCE
0411
/lO
ILLEGAL REDEFINITION
0311
/IC
ILLEGAL CHARACTER
2325
/US REFERENCE TO UNDEFINED SYMBOL
1503
/CM COMMA USED INCORRECTLY
1003
/CH CHAINING ERROR.
0523
/S£ SYSBOL TABLE EXCEEDED
0127
/WA WORKING AREA EXCEEDED
2320
/PS PUSH DOWN LIST EXCEEDED
UN KM 00
CLA SKP
POPS MO, CLA CMA
OCA
MODE
TAD
MODE
TAD
P6321
OCA
INSYM
JMS I
SYREAD
SYCRAP
/SWAP THE CORRECT SYMBOL TABLE IN NOW
JMS I RESETl
JHS
PAGEl
JMP 1
B21
/CLEAN UP THE SYSTEM. WE RE DONE WITH THIS ONE,
P6321,
O6«42»300
I

SYSIN,

53 40

1752
0160
3007
2352
2354
5336
1155
3354
1353
3352
4750
1007
5717
7040
3351
1752
7012
7012
7012
0160
5717
4006
0000
0000
4400
0000
00 00

1003
7710
5364
1035
7710
5755
2355
5755
0000

RTHrT»

LEFTHF,

SUFI ,

CLA ClU
ISZ wdhauf
JMP LEFTHF
TAD I PTBUFP
AND P77
DCA TEMP
IS2 PTBUFP
ISH CHRC
JMP RTHFT
TAD P7400
DCA CHRC
TAO PTBUFF
OCA PTBUFP
JHS 1 Buri
TAD TEHP
JMP I SYSIN
CMA
DCA WO HALF
TAO I PTBUFP
RTR
RTR
RTR
AND P77
JMP I SYSIN
BUFIN

WDHALF, 0
PTBUFP, 0
PT8UFF, 4400
CH RCi

PASSER,
TAO
SPA
JMP
TAD
SPA
JMP

LISTMO
CLA

PASS
CLA
PASSER
I
1S2 PASSER
JMP I PASSER

EQUCHK#0

2046
2047
2050
2051
2052
2053

3367
3370
3371
3372

2006
4476
5766
7774

/
/
/
/
/

20 54

2055
2056
2057
2060
2061
2062
2063
2064
2065
2066
20 67

2070
2071
2072
2073
2074
2075

IS2 EQRETI
JMS I ERRl
JMP I EQUCHK
SYREAO. READ

3373
3374
3375
3376

0100
0036
0000
0001

SYCRAPi DIALUNlT
36

INSYM,

0
1

/
/

/
/
/
/
/
/

EJECT

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
2150
2151
2152
2153
2154

2155
2156
2157
2160
2161
2162
2163
2164

2165
2166
2167
2170
2171
2172
2173
2174

/POP -12 ASSCMSIER
/
/

•3400
3400
3401
34 02

3403
3404
3405
3406
3407
3410
3411
3412
3413
3414
3415
3416
3417
3420
3421
34 22

0000
1051
1013
7510
5225
1254
7510
5212
4640
5600
1015
7450
5241
1256

BIT6.

TAD
TAD
SPA
JMP
TAD

52 43
12 57
56 00

3423
3424
3425
3426
3427
3430
3431

7200
1051
1123
7510
5245

34 32

12 62

3433
3434
3435
3436
3437

7700
5250
1051
1260
5600

ITEH
H40

P1T037
M20

SPA
JMP
JHS
JMP
P40T57, TAD
SNA
JMP
TAD

74 50

5250
1256
7450

P40T57
SE! IT2

I
BIT6
'
Pll

TA8A
P2

SNA
JMP P367A
TAD P2
SNA
JMP CARET
TAD P57
JMP I BIT6
P1T037, CUA
TAD ITEM
TAO M33
SPA
JMP ALPHAS
TAO
BP
SMA CLA
JMP P367A
TAD ITEM
TAO P41
JMP
BIT6
I

/
/

3440

2561

SEMITZ, SEHITX
/
/

3441
34 42
34 43

3444
3445
3446
3447
3450
3451
34 52
34 53

3454
3455
3456
3457
3460
3461
3462
3463
3464
3465
3466

1255
5600
1261
56 00

7200
1051
5600
7325
4476
56 53

2040
7760
00 54

0002
0057
0041
0046
7775
0000
4500
1002
7450

TABAf

TAD P54
JMP I BIT6
CARET,
TAD P46
JMP I BIT6
ALPHA8, CIA
TAD ITEM
JMP I 81 T6
P367A,
PTHREE
JMS I ERRl
JMP I
IDX*1
-20
hl20,
P54,
54
P2,
2
P57,
57
P41.
41
P46, 46
-3

BI T6M3,

OISRET, 0
JMS
TAO
SNA

TYC
ERT

/GIVE A CARRIAGE RETURN BEFORE THE SYMBOL TABLE
/GET THE TOTAL NUMBER OF ERRORS
/2ER0?

2175

3467

5277

21 76

34 70

71 10

2177
2200
2201

3471
3472
3473
3474
3475
3476

7450
3320
7004
4462

3477
3500
3501
3502
3503

1310
7450
5304
4401
5276

3504
3505
3506

1322
3322
5663

22 02

2203
2204
2205
2206
2207
2210
2211
22 12

2213
2214
2215
2216
2217

/JUST

SNA
OCA
RAL

MESSS

/REMOVE THE FINAL

SOPS
two
LWO

/OUTPUT THE OCTAL NUMBER OF ERRORS
/PUSH PAST THE "NO" PART OF THE MESSAGE

MESS

/GET A WORD OF THE MESSAGE
/ZERO??
/YEP, THATS ALL
/OUTPUT THE LETTER
/GET THE NEXT CHARACTER NOW

JMS
isz
ISZ

22 77

2277

22 37

2240
2241
2242
2243
2244
2245
2246

TAD
SNA
JMP
JMS
JMP

LWDi

LWDE
OECOUT
LWD-1

tao
OCA
JMP

LW DE

pcont
PCONT
DISRET

/OVERLAYEO INSTRUCTION,
/AND RETURN TO CALLER
/SYSTEM WILL GIVE THE EXTRA CRLF AFTER
/DECIDING IF THERES ANY BINARY,

/
/

3507

7677

/MAGIC NUMBER FOR FORM FEED PROBLEM AT SYMBOL TABLE TIME,

LWOCFDi 7677
/

/
/
/
/

3510
3511
3512
3513
3514
3515
3516
3517
3520
3521

0316
0S17
0240
0305
0322
0322
0317
0322
0323
0000

/"NO"

316
317
240
305
322
322
317
322
323
0000

MESS,

MESSSf

/" ERRORS"

/FINAL OPTIONAL S
/TERMINATING ZERO WORD

/
f

22 47
22 50

2251
2252
2253
2254
2255
2256
2257
2260
2261
2262
2263
2264
2265
2266
2267
2270
2271
2272
2273

NOW

2221
2222
2223

2225
2226
2227
2230
2231
2232
2233
2234
2235
2236

22 20

22 24

/YEP, PRINT OUT MESSAGE WITH "NO" PREFIX
1 ERROR?

LWD
JMP
CLL RAR

3522
3523
3524
3525
3526
3527
3530
3531
3532
3533
3534
3535
3536
3537
3540
3541
3542
3543
3544

7777
0043
0000
2322
5341
1135
3016
1323
1153
4401
1154

PCONTi
P43,
PAGSET

7041
1127
7640

43
>

ISZ PCONT

TATA,

4401

2016
5332
5724
1322

7777

COSA,

JMP
TAD
OCA
TAD
TAD
JMS
TAD
JMS

COSA

ISZ

JMP
JMP
TAD
CIA
TAO
SZA

TATA
PAGSET
1
PCONT

M4
16

P43
P212
OECOUT
I
P215
OECOUT
I

P76
CLA

2275

054?
3546

22 76

KR 47

2300
2301
2302
2303

3551
3552
3553

00 00

2305
2306

07 70
tR R7
07
7
35 60

47 67
&9ai
i n i A
10 l7
flii AA
7 A RA
7b
57 51

3561

1014

35 62
07 OO
35 64

71 06
01 36

3565

30 24

35 66
35 67

3570
3571
3572
3573
3574

5751
3623
7300
1053
7012
7012
3164

35 75
35 76

57 76
10 55

22 74

2312
10
23 14

2315
2316
2317
2320
2321
2322
2323
2324
23 25

2326
2327
2330
2331
2332

jn r

r A &3 1

CUA CHA
R794

CC f f

eo 10 /
23 10

!MD
L I NK 8 A »

DArerT

6211

1024

IMC

TAH
IT rt A
U TVPPA
Aun Dl
/ ' 7
r 1 77
ANU
SNA CLA
I

Tin TYPFa

TAD
VAL
OCA VAU
LINKSA
JMP I
GYP,
GETYPE
THOU, CLA CLU
TAD LWC
RTR
RTR
OCA CON
JMP I CIA
ClAi

/
/
/

EJECT

/PDP-12 ASSEMBLER PAGE

2933
2334
2335
2336
2337
2340
2341
2942
2343
2344
2345

3600

23 46

3606

/
f
• 3600
/

36 01

3602
3603
3604
36 05

0000
0160
1013
7510
1351
1134
5600

2347
2350

2352
2353
2354
2355
2356
2357
2360
2361
2362
2363
2364
2365
2366
2367
2370
2371
2372

36 27

2377
2400

3630
3631
3632
3633
3634

24 01

36 35

2402
2403
2404
2405
2406
2407
2410
2411

3636
3637
3640
3641

24 12

3646
3647
3650
3651
3652
3653
3654
3655
3656

24 21

2422
2423
2424
2425
2426
2427
2430
2431

AND
TAD
SPA
TAD
TAD
JMP

P7 7

M40

P100
P240
CONVRT
I

/
/

3607
3610
3611
3612
3613
3614
3615
3616
3617
3620
3621
3622
3623
3624
3625
3626

23 73

2413
2414
2415
2416
2417
2420

/
/

2374
2375
23 76

CONVRT

36 42

3643
3644
36 45

36 57

3660
3661
3662
3663
3664
3665

0000
4500

UPLNi

JMS
TAD
JMS
TAD
OCA
JMP

12 61

4475
1262
3173
5607
0000
1011
4513
4253
5616
0000
1423
0136
3014
2023
1423
0150
7112
1014
9014
2023
1423
7012
7010
0124
1014
3014
1014
0136

NOTBUKf

TYCARI
M26
SKIP
M60A
SPCUNT
UPLN

TAO BINBUK
JMS I SRITIC
JMS SETUSE
NOTBLK
JMP
I

GETYPE.

TAO
SAOR
AND P6000
OCA TYPEA
ISZ SAOR
TAD I SAOR
P4000
AND
Ctt RTR
TAO TYPEA
OCA TYPEA
1

nSZ SAOR
/

/
'

30 21

7344
1023
3023
5623
0000
1010
4515
1010
3011
5653
7752
7716
0000
1030
0136

SETUSE.

AND P6 000
OCA TYPE
MTWO
SAOR
TAD
OCA SADR
JMP I GETYPE
0

TAD BINPTR
JMS I SRDl
TAO BINPTR
OCA eiNBUK
JMP I SETUSE
-26
-62

M26.

H60Af
RESETL

TAD I SAOR
RTR
RAR
AND P400
TAO TYPEA
DCA TYPEA

TAO AAOR
AND P6000

24 32

36 66

2433
2434
2435
2436
2437
2440
2441
2442

3667
3670
3671
3672
3673
3674
3675

24 43

36 76

3046
5663
0000
4467
3051
1035
7710
4471
1051

2450

3677
3700
3701
3702
3703
3704

24 5i

37 0$

76 40

2452
2453
2454

3706
3707
3710
3711
3712

5301
1325
3274
5712
2047

3713
3714
3715

0000
0164
3164
5713

2444
24 45

2446
24 47

24 55

2456
2457
2460
24 61

2462
2463
2464
2465
2466
2467
2470
2471
2472
2473

2474
2475
2476
2477
2500
2501
2502
25 03

2504
2505
2506
2507
2510
2511
2512
2513
2514
2515
2516
2517
25 20
2521
2522
2523
2524
2525
2526
25 27

2530

56 70

7710
1300
3274
42 70

1122

DCA
JHP

GCTIN.

A8ANK
RESETL

GETCHR

JMS
DCA
TAO
CONSKP, SPA
JMS
TAO
JMP
CONYES. SPA
COHHEN* TAO
OCA
JMS
TAD
SZA
JMP
TAD
OCA
JMP
BITT,
8IT

0
/GET A CHARACTER

ITEM
PASS
CLA
SYMtST
I
ITEM
I

GETIN

CLA

CONYES
CONSKP
GETIN

/SPA FOR NORMALiSKP FOR ABBREVIATED!!

M43
CLA
CO MM EN

CONREG
CONSKP
I

81 TT

CON
CON
RAND

/
/

3716

RANDi

AND
OCA
JHP
/

/
/
/

3717
3720
37 21

3722

1035
7710
5516
5472

CNOMS.

PASS
TAD
SPA CLA
JMP I
RETl
JMP I
MAINEX

/
/
/

3723
3724
3725
3726
3727
3730
3731
37 32

3733
3734
3735
3736

0000
1003
7710
5723
1736
1356
3017
4500
2017
5332
5723
3522

PGJS,

TAO
CONRCG. SPA CLA
JHP I
TAD I
TAD
DCA
JMS I
IS2

PCOT

JMP
JMP 1
PCONT

LISTWD
PGJS
PC or

M77

/FINAL UPPER

TYCARI
17
.-2

PGJS

/
/
/

37 37

3740
3741
3742
3743
3744
3745
3746
3747
3750

0000
2173
5343
4207

LNCKi

IS2
SPCUNT
JMP .2
JMS UPLN
JMP
LNCK

57 37

0000
3007
1007
70 40

1173

SPACK,

DCA TEMP
TAD TEMP
CMA
TAD
SPCUNT

/•(TEHP*1)

2531
2532
2533
2534
2535
2536
2537
2540
2541
2542
2543
2544
2545
2546
2547

3751

7500

37 52
37 53

72 40

3754
3755

SMA
CLA CMA
SPCUNT
DCA
TAD TEMP
JMP
SPACK

P100 f

3173
1007
5744

/TOO FAR???

3756

7701

-77

M77,
/

/
/

STOCHK

3757
3760
3761

0000
1171
7040

25 50

37 62

10 32

2551
2552
2553
2554
2555
2556
2557
2560
2561
2562
2563
2564
2565
2566

3763
3764

3765

7710
5757
1370

3766
3767

4476
9771

EQUERR, JMS
JMP

3770
3771

0005
1416

5
P5i
EDEFIN, MAINSF

TAO
SNUM
CMA
PERM A
TAD
SPA CLA
STOCHK
JMP I
P5
TAO
/
I
I

/
/
/

EJECT

ERRl
EOEFIN

/GIVE ERROR MESSAGEt

2567
2570
2571

/
/
/
/
/

25 72

2573
2574

/ASSEHeiCR PAG
•4 001
D1SRE»
DISRET
•40 82
1000*07

25 75
25 76

2577
2600
2601
26 02

2603
2604
2605
26 06
26 07

2610
2611
2612
2613
2614
2615
2616
26 17

2620
26 21

2622
2623
26 24

2625
2626
26 27

4001
4002
400^
4004
4005
4006
4007
4010
4011
4012
4013
4014
4015
4016
4017
40 20

4021
4022
4023
4024
4025
4026
4027
4030
4031

34 63
13 70

0000
24 00
7774
0000
4605
4175

FS8LK,
FSUNITi 0
AALPHA, ALPHA
UTREAD* READ
0
8UFIN»
JMS I
eSLOCK

23 77

5606
0000
4500
1202
0374
3377
1203
3375
1241
3010
4643
1155
3645
3642
1246

132
JMP

INIT,

/GETS NEXT BUFFER FROM INPUT UNIT,

LTREAO
BUFINH
BUFIN

/INITIALIZATION ROUTINE! CALLED AT BEGINNING OF EACH PASS,

JMS I TYCARI
TAD FSBLK
AND
L777
OCA BUFINE
TAD
FSUNIT
DCA
BBLOCK
TAD P2270
DCA
BINPTR
JMS I
TOUSE
TAD P7400
DCA
CHO
DCA I WDH
TAD P4400
DCA I PT8
JMS
BUFIN
DCA
MODE
JMS
LTREAO
LTAB
CLA CM A
DCA CURLIN
JMP 1 INIT
20 00*07* 10
WO HALF
SETUSE

36 47

4044
4045
4046

26 45

40 47

2646
2647
2650
2651

4050
4051
4052
4253
4054
4055
4056
4057
4060
4061

4170
7240
3012
5613
2400
3351
3653
4337
3354
4400
3352
5737
1011
4513
1244
3016
1013
3017
3644
1416
7710

26 60

40 62

26 44

4400
PTBUFP
CHECKO
TAD
BINBLK
JMS I SRITIC
TAD USES
DCA 16
TAD M4 0
OCA 17
OCA I
USES
TAD 1 16
SPA CLA
ISH I
USES

2661
2662
2663
2664
2665

4863
4064
4065
4066
4067

2017
5260
4763
4164
4601

JMP «4
JMS I
RWRITE
BINKDR
JMS I
DISRE

26 52
26 53

2654
2655
2656
2657

4035
4036
4037
4040
40 41

4042
40 43

/SET UP POINTER. SETUSE WILL SET BINBLK
/CALL SET USE NOW.

2630
2631
2632
2633
2634
2635
2636
2637
2640
2641
2642
2643
2644

40 32
40 33
40 34

/4000 IS THE JMP RET STORE IN LMODE.

4206
30 37
46 05

/RESET TO LMODE AND READ IN SYMBOL TABLE,

P2270,
WDH,

TOUSE.
USES,
CHO,
P4400,
PT8»
OCHECK*
RETURN,

USEDNO
CHRC

ISH 17
•

/POINTS TO THE NO-BINARYy CHECKER
/MAIN EXIT AFTER PASS2, WRITES OUT SYMBOLS, DUMPS BUFFERS, ETC.

9 AAA
2667
2670

40 70

4650

JMS

9 A 71

JMS 1
JMS I
JMP I
PG JS

AALPHA
PSTS
HON

DC A
T Aw
AH
nr A

PCOUNT

f
1

P I NP

pn UT P

40 7^
40 72

4604

9
ATf T
C070

4073

5517

2674
2675
2676

40 74

37 23

CO / C

46 7 4

Cf 13
971 A
971 7

4076
4077
4100

3733
1 7 t1
1/01

uD Ur 1

3314

DC A

KLOOP

JMS I
CDF
7000
cor
7000
1000
TAD
JMS I
TAD
JMS I
JMS I
JMS
JMS I
TAO I
S2A CLA
JMP
Tad
PR

MMHG Vr

/
f
/

A1 All

7 f OO

41 02

Oft Wl

4103
4104
4105

7000
6211
7000

41 06

10 00

4107

9793
w
(6 »
2724

4112
41 13

1334
4401
1335
4401
4401

979<3
ft ' ft 7

4114

44 04

41 15

4122
4123

4541
1733
7640
53l4
1 oo»
6664
0000

41 94

20 00

MnKi
I T
ru Will

KLOOPi

9797
c r ft r
2730

4116

27 31

41 20

2732
2733
97^^
2735
2736

41A «1
91

41
^1 9%
ft-?

^ wftO

97 H7
Of
<f
27 40
27 41
27 42

4126

6212

41 97
41 "xn

57 30
77 77

41 "tl
41
71 "^9
Jft

B799

PI MP .

INP

07 05

pnuTP
rUU r f
PCOUNT
PL215,
PL212.
MMMOVEi

OUTP
COUNT
215
212
7200

2743
2744
2745
2746
2747
27 50

2751
2752
2753
2754
2755
2756
27 57
27 60
27 61

2762
27 63

2764

/2ER0 THE COUNTER NOW
/POSITION THE INPUT POINTER TO PATCH
/THE OUTPUT POINTER
/RESET C.R, CHECKER AFTER C,R» ABORT

d1
0
1 A 1IB
A1 1 1

ftf ftO

F\ 1

17 T9

97 91
97
Z7 99
2c
ft

o t

/CHECK FOR NO BINARY, ALSO GIVE CARRIAGE
/RETURN AFTER ERROS MESSAGE. MUST GO
/AFTER GALL TO DISRET

/
f

An 7^

27 07

2710
2711
2712
2713
2714

OCHECK

26 77

2700
2701
2702
2703
2704
2705
2706

41 1 7

41 33

4134
4135
4136

0760
0215
0212
7200

p|_215

/GIVE AN EXTRA C.R,L,F FOR GOOD MESSURE

DECOUT
PL212
DE GOUT
OECDUT
CNTLPI

/GIVE A NULL CHARACTER IN CASE OF TAPE LIST OPTION
/CHECK FOR A C.R, TO TERMINATE THE OUTPUT

PC HE CK
PG OU NT

KLOOP
PI

jms
GIF
JMP I
7777

•

-2

/
/
/

4137
4140
4141
4142
4143
4144
4145
4146

1030
0131

NO Si

53 47

2020
1037
7700
5352
1030

/WAIT UNTIL THE BUFFER IS EMPTY,

PERI 00

TAO AADR
AND P3777
JMP POLK
IS2 ANY
TAD mode:
SMA CLA
JMP LINKOT
TAO AADR

/WAIT FOR LPR TO TAPE EFFECT

27 65
Of
£ I 00

41 47

4434

Al C\0l

07
0/
C ' A?

41 51

45 04
55 03

4153

1030
0136

4155

1046

27 70
9771

L I NK DT »

27 75
1

30 00

3001
3002
3003

3005
30 06
30 07

3010
3011
3012
3013
3014
3015
3016
3017
3020
3021
3022
3023
3024
3025
3026
3027

41 97
41 60

53 37

4161

014 4

41 62

53 47

TA
A n
U

AA A no

Del

CIA
TAn AQAKiV
SZA CLA

2774
cf

JMr

AN u ro BloiS

7n di

2772
27 73

Pni u .

TAnU AA
A A no
UK
i

A wn

P 1 77 7

iM P

pn K
t

4163

7775

RWR I TE

41 64

A1
1 1
vx Xl

Q r MurtD

4165
4166
4167

0010
0057
0001

n
1 at1 ma
ni
U r1 ALo
NA dv
1

10
07 +5 7»37 fl
f

4170
4171
4172
4173

0100
0036
0042
0002

UTAB

01 At UN IT

06*42-300
2
/

4174

0777

L777,

777

4175
4176
4177
4200

0000
0011
0000
0001

BBlOCKf 0
11

BUFIN2f

0
1

/
/

EJECT

9030
3031
3032
3033
3034
3035
3036
3037
3040
3041
3042
3043
3044
3043
30 46
30 47

9050
3051
3052
3053
30 54

3055
3056
3057
3060
3061
3062
30 63

3064
3065
3066
3067
3070
3071
3072
3073
3074
3079
3076
3077
3100
3101
3102
3103
3104
3105
3106
3107
3110
3111
3112
3113
3114
3115
3116
3117
3120
3121
3122
3123
3124
3125
3126

/ASSEMBLER PAGE
/
/
/

ASMIFM
«4200

.-4200

/
/

4201
4202
4203

0000
1305
0304

4204
4205
4206
4207

3317
4610
4315
5601

4210
4211
4212
4213
4214
4215
4216
4217

7775
0000

SWRC*

SM370
SL777
SMOUT
WWRITE

SURC

TAD
AND

OCA
JMS
SIT
JMP
/

42 20

4221
4222
4223
4224
4225

32 27

1164
3232
1037
7700
5225
12 27
7041
1164

3164
5611
6141

0232
0293

1020
0000
0017
1120
0000
0002

4234
4235

5223
0000

42 36
42 37

32 52

0226
02 27

0230
02 31

4240
4241
4242
4243
4244
4245
4246
4247
4250

1164
3254
1037
7700
5250
1252
1164
3164
5635
6141

0252
0253
0254
0255

1020
0000
1120
0000
0002

4256

5246

02 51

WWRITE f MR ITE
0
RSUB»
OCA SOHEU
TAD CON
OCA SU8C0N
TAD MODE
SMA CLA
JMP LNKSUB
TAD SOMEW
CIA
TAD CON
RSUBRTf OCA CON
JMP I RSUB
LNKSUBi LINC
LMOOE
UDA I

COM
ADA

SUBCONi

MSG 2
RHODE
JMP RSU8RT

RADDi

)

OCA WHERE
TAD CON
OCA AD DC ON
TAD MODE
SMA CLA
JMP LNKAOO
TAD WHERE
TAD CON
RAODRTi OCA CON
JMP 1 RADD
LNKADDi LINC
LMOOE
LDA I
0
WHERE
ADA I
ADDCONi 0
MSC 2
PMODE
JMP RADDRT
>

/
/

PSEUDO OP SETTER AND PAGER

3127
3130
3131
3132
3133
3134
3135
3136
3137

/
/

GIVEN PS
/ROUTINE PAGES IN PSEUDO
/FOR 8K
PSNOPS ARE MAO
»

2273
2273
2273
2273
2273
2273
7300

31 44

42 67

3145
3146
3147
3150
3151
3152
3153
3154
3155
3156
3157

4270
4271
4272
4273

4674
3201
3273
5601

31 40

31 60

3161

12 73

00 00

31 67

3170
3171
31 72

3173
3174
3175
3176
3177
3200
3201
3202

OPl,

4275
4276
4277
4300
4301
4302
4303

00 00

1305
0304
3317
4706
4315
5675

PSRE TsSWRC
PPSEUOOi
PSEUDO
SREADl
0
TAD
SM37 0
AND
SL777
OCA
SWOUT
JHS
WREAO
SIT
JMP I
SREADl

4304
4305

0777
7410

SL777,
SH370.

/PSEUDO

CORRECT ORIGIN

/SUBTRACT OFF THE EXTRANEOUS CRAP

777
-370

4306
4307
4310
4311
4312
4313
4314

7774
0000
7240
1047

WREAO,
P0PUP1»

READ
/PUT LAST ENTRY IN PUSH

CLA CM A
TAD POINT
OCA POINT
TAD I POINT
JMP I POPUPl

30 47

1447
57 07
/

4315
4316
4317
4320

0111
0012
0000
0001

SIT,

DIALBINARY
12

SWOUT,

0
1

/
/

3204
3205

3214
3215
3216
3217
3220
3221
3222
3223
3224
3225

5410

32 03

3206
3207
3210
3211
3212
3213

PSUD07, ISZ
OPl
PSUD06, IS2
OPl
PSUD05. ISZ
OPl
PSU004, ISZ
OPl
PSUD03, ISH
OPl
PSUD02
ISZ
OPl
PSUDOl, CL A CLL
TAD
OPl
JMS I
PPSEUOO
PATTER. OCA
PSRET
OCA
OPl
JMP 1
PSRET

42 74

31 62

3163
3164
3165
3166

4257
4260
4261
4262
4263
4264
4265
4266

3141
3142
3143

THROUGH ISZ CHAIN. THIS SETS OPl TO PSEUDO NUMBER.
WITH NUMBER IN AC, PROCESSOR DOES THE REST.
AND PPSEUDO IS CHANGED,

50R

/
/
/
/

4321
4322
4323
4324
4325
4326
4327

3407
5721

4330

1750

00 00

UB IT S

1011
1330

TAD
8IN8LK
TAD
FACTOR
OCA
TEMP
CLA CMA
OCA I
TEMP
JMP
UBITS

30 07
72 40

/THIS ROUTINE SETS THE "IN USE" BITS IN THE HEADER BLOCK
/GET THE IN USE aOCK POINTER
/CONVERT TO AN ABSOLUTE MEMORY ADDRESS
/STORE AWAY NOW
/SET THE HEADER BLOCK BITS ALL ONE NOW
/IN THEY GO

/RETURN TO THE CALLER. ALL IS WELL

FACTOR* 8LKUSE»2000-D7
/
/
/

/CORE HEADER BLOCK MAPPER,

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

/
/

/
/
/
/
/
/
/
/

/
/

32 42

3243
3244
3243
3246
3247
3250
3251

4331
4332
4333
4334

0100
0015
0023
0001

VSAVCt

SCRATCH
1

/
/

32 52

3253
3254
3255
3256
3257
3260
3261
3262
3263
3264
3265
3266
3267
3270
3271

/
/
/
/
/
/

/
/
/
/
/

32 72

3273
3274
3275
3276
3277
3300
3301
3302
3303
3304
3305
3306
3307
3310
3311
3312
3313
3314
3315
3316
3317
3320
3321
3322
3323
3324

OIAUUNIT

4337

0000

4340
4341
4342
4343
4344
4345
4346
4347
4350
4351
4332
4353
4354
4355
4356
4357
4360
4361
4362

0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000

•4337
USEDNO> 0
•4340
BLKUSE'.
0
0
0

0
0
0
0
0
0
0
0

0
0
0

0
0
0
0
0

/THE ACTUAL DIAL AREA
/LOCATIONS 6400-6777
/A SCRATCH AREA ON THE TAPE
/I BLOCK IN OR OUT,

3325
3326
3327
3330
3331
3332
3333
3334
3335
3336
3337
3340
3341
3342
3343
3344
3345
3346
3347
3350
3351
3352
3353
3354
3355

4363
4364
4365
4366
4367
4370
4371
4372
4373
4374
4375
4376
4377

0000
0000

0
0

0000
0000

0
0

0000

EJECT

3356
33 57

3360
3361
3362
3363
3364
3365
3366
3367
3370
33 71

3372
3373
3374
33 75

3376
3377
3400
3401
3402
3403
3404
3405
3406
3407
3410
3411
3412
3413
3414
3415
3416

END OF ASSEMTWO, FETCH ASSE:M3,

CHAIN

"ASSEM3"

0000
0001
0002
0003
0004
00 05

0006
0007
0010
0011
0012
0013
0014
0015
0016
0017
0020
0021
0022
0023
0024
0025
00 26

0027
0030
0031
0032

»20

PMODE
/
/

/
/
/
/
/
/
/

BEGINNING

/
/
/
/

/
/
/
/
/
/
/
/
/
/

EJECT

ASSEMTHREE

0033
0034
0035
0036

0040
00 41

0042
30 00

72 00

0045
0046
0047
0050

5001
5002
5003
5004
5005

7410
7240
3003
1621
3620

00 51

50 06

16 22

0052
0053
0054

5007
5010
5011
5012

0056
0057
0060
0061

5014
5015
5016

3617
1003
7650
5216
1214
7000
3637
5240

00 62

50 17

17 34

0063

5020
5021
5022

00 55

00 64

0065

50 13

1733
4775

00 66

50 23

47 76
47 74

0067
0070

5024
5025
5026

3042
3043
3044

00 71
00 72
00 73
00 74

50 27
50 30
50 31

0075
0076

5032
5033

00 77

50 34

0100

5035

01 01

50 36

0102
0103
0104

5037
5040
5041

01 05

50 42

0106

5043

01 07

50 44
50 45

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

THE

ASSEMBLER

/
/
/
/
/

00 37

00 43
00 4 4

5046
50 47

5050
505
5052
5053

30 45

3700
7610
1374
21 07
21 24
77 70
25 35
17 30

JBNOPi

P4 77 4

3633
1232
3634

50 60

12 35

5061

3636
1473
3472
6141

/ENTRY IF LIST IS DESIRED.
LI ST WO

P4775
PJSTART
P4776
PJEND

/ENTRY IF JUST ASSEMBLY,
/SAVE LIST STATUS CONDITION,
/4775 CONTAINS STARTING LINE NUM. OF LISTING

/4776 CONTAINS ENDING LINE NUM

0641

STASH

AWAY PERMANENTLY,

,+ 4
.

+ 1

PJNOP
PJNOP*!

/IF NO LIST THEN FIX JBTEST SO IT CAN NEVER LIST OUT.

JSTART

47 74

ABNOPl
ABN0P2
A8N0P3
ABNQP4
CONYES
SKP CLA
1200+M7TWa -ENTS
NOTABl
N0TAB2
-10

8L PM 22

M2 2

PJNOPi

JNOP
ISH

JMP
TAD
OCA
TAD
OCA
TAD
OCA 1
TAD
OCA I
TAD
OCA I
TAO
OCA
TAO
OCA I
TAD
OCA I
TAO 1
OCA I
LINC
I

LI SREG,

P4 774

LISREG
J8 NOP

/4774=7777 IF QUICK LIST.
/NO QUICK LIST,
/CHANGE LIST ROUTINE FOR OL BY ALL FOLLOWING CRAP.

BANOPl
JBNOP
BAN0P2
JBNOP
BAN0P3
JBNOP
BAN0P4
BANOO
BAN0P5
8LTA0
BLTAOl
BLTAO
BLTA02
8LM10
BLPM22
INAS

MAiNEX

/INITILIZE TO PASSl.

/SET UP PRINTER CHECK

UMOOE
1065

LI ST WO

8AN0P1
BAN0P2 t
BAN0P3
8AN0P4
BAN0P5
BANDO»
BLTAO»
BLTAOl
BLTAD2
BLM10,

3630

5055
5056
5057

»5000
CtA
SKP
CtA CM A
OCA
TAD I
OCA I
TAO I
OCA 1
TAO
SNA CLA
JMP
TAD
NOP
OCA I
JMP
JENO

PJEN0»
PJST AR T
4775
P4775,
4776
P4776,

12 31

12 32

5063
5064

BEGN AS

2623
5262
1214
3624
1214
3625
1214
3626
1214

50 54

5?062

BEGNLI

UDF

0132
0133
0134
0135
0136
0137
0140
0141
0142
0143
0144
0145
0146
0147
0150
0151
0152
0153

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

1020
5731
1040
2530
1020
624 4
1040
2531
0643
1000

5110
5111
5112
5113
5114
5115
5116
5117

6212
4730
6211
7000

LOA 1
TYPO+3202
ST A

TYPO+1
LDA I
lptest
sta
TYPO+2
LDP
LOA

07 77

77 7

4003
1000
0002
1560
7000
4002
0002

stc
LOA

5120
5121
5122
5123
5124

5125

7000
1000

1072
3460
1326
4727
5732

01 74

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

FSUNITi

BCL I
-777
STC
POP
PMODE
CIF
JMS I
COF
7000
CDF
7000
1000

62 01

47 31
51 33

rSBLK«1777

01 54

0155
0156
0157
0160
0161
0162
0163
0164
0165
0166
0167
0170
0171
0172
0173

/NOW CHANGING TTY ROUTINE TO CALL LINE PRINTER CHECK ROUTINE.
/TYPE=2571*3202=5773(JMP I TYPO+2)

FSBIK42

10
0

JMS I
IMREAD
ITABIN
TAD
MA INEX
INITI
OCA I
TAO
IM215
IMTYPO
JMS
IMINIT
JMP I
/START THE ASSEMBLER Gi
I

/PREPARE TO MOVE DOWN THEREAD ROUTINES.

IMHQVE

/FAKE START OF ASSEMBLY BY PLACING
/STARTING ADDRESS OF ASSEMBLER IN IT
/GET A C.R. TO iNlTIALliE THE SYSTEM
/ANO SEND IT DIRECTLY TO THE OUTPUTER
/AND BY JUMPING TO THE SECOND LOC OF INIT

/
/
/

5126
5127
5130
5131
5132

0215
2527
7200
77 74

1H215,
IMTYPO
IMHO V£
IMREADi

4014

IH IN IT

215
TYPO
7200
READ
1N1T*1

/
/
/

5133
5134
5135
5136

0100
0013
0026
0002

ITABIN.

DIALUNIT
13

FUDGEl
2
/

/
/

EJECT

/C,R.

PSEUOO OP PROCESSOR, IT REALLY IS ORIGINEO AT
5000 FOR 4K, BUT IT WOULD THEN OVERLAY THE INITIALIZATION ROUTINE. UT ASSEMBLY).
/
/THUS ITS ASSEMBLED AT 7000 BUT PFUOGE MAKES THE INTERPAGE REFERENCE LOOK LIKE IT S AT 5g
/ THE 8K VERSION IS REALLY ORIGINEO AT 7000,
GENERALLY CHANGE THE INTERPAGE
/REFERENCES BY HANO<THERE S ABOUT 6 ON THIS PAGE ANO 3 ON THE NEXT PAGE.)
/ALL INTERBANK REFERENCE HAVE A
/TO THE DATA ITEMS,
/REMEMBER, THIS IS FINE AS IS FOR •FUDGE4". FOR FUDGES ADD 2000 TO INTER6AGE REFERENCES,

0221
0222
0223
0224
0225
0226
0227

02 30

0231

02 32

0233
0234
0235
0236
0237
0240
0241

/
/

/
/
/

•5400

02 42

0243
0244
0245
0246
0247
0250
02 51
02 52
02 53
02 54

0255
0256
0257
0260

/
/

MAIN PSEUOO OP PROCESSOR, PAGED IN!

/
/
/

5400
5401

1202
4377

ACOUNTt 1202
GETVAUi 4360«VERS|ON

/"JB" ON THE TAPEl IN CORE IT S A TEMPORARY
/VERSION NUMBER ON TAPE. IN CORE IT
/A SUBROUTINE ENTRY,
/NO. 7
/
(CHECKS UNIT X TO SEE
/IF PRESENT ANO IF IT IS USES UNIT
TO READ IN THIS PAGE

n
5402

02 61

54 03

0262
0263
0264

5404
5405
5406
5407

02 65

/NEW LOCATION OF PSEUDO PROCESSOR

/
/

4477
1020
7650

JMS I
EXPRl
TAD
ANY
SNA CLA
ASSNO
JHP
TAD
EVAL
JMP I
GETVAL

5303
1033
5601

0266

/CETVAL EVALUATES THE EXPRESION TO THE RIGHT OF A PSEUOO OP,
/IF NO EXPRESSION THEN IT EXITS,
/BACK TO THE MAIN ASSEMBLER WITHOUT DOING ANYTHING.

02 67

0270
0271
0272
0273
0274
0275
0276
0277
0300
0301
03 02

0303
0304
0305
03 06

0307
0310
0311
0312
0313
0314
0315
0316
0317

/
/
/
/
/

5410
5411
5412
5413
5414
5415
5416
5417
5420
5421
5422
54 23

4270
1214
3213
5214
5215
5224

PSEUDO, PAFTER
TAO
DC A

PJMP,

52 25

5226
5353
>316
$333
5235

JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP

/RETURN

OVERLAYEO BY ITSELF,

PJMP

.1
.1
.1
NASSIF
ZASSir
MASSIF
SYMLOD
AEJECT
SYMSAV
SKIPAS

/OVERLAYED BY PSEUDO NO
/MAIN TABLE POINTER
/EVIL IF SPELLED RIGHT

/
/

/END OF JUMP TABLE, PSEUOO WAS CALLED WITH PSEUDO OP NUMBER IN AC.
/

0320
0321
0322
0323
0324
0325
0326
03 27

0330
0331
0332
0333
0334
0335
0336
0337
0340
0341
0342
0343
0344
0345
0346
0347
0350
0351
0352
0353
0354
0355
0356
0357
0360
0361
0362
0363

/
/
/

5424
54 25
tj426

5427
5430
5431
54 32

5433
54 34

5435
5436
5437
5440
5441
5442
5443
54 44

5445
5446
5447
54 50

5451
5452
5453
5454
5455
5456
5457
5460
5461
5462
5463
5464

03 64

54 65

0365

5466

03 66

54 67

0367
0370
0371
0372
0373
0374
0375
0376

5470
5471
54 72

5473

1305
1013
1320
32 31

4201
0000
5303
7240
5241
4201
7041
7450
5303
3200
1051
1122
7640
7240
1200
3200
1312
3711
1306
3714
1307
3310
5657
2714
7300
1051
1122
7650
5267
4504
5261

2200
5710
1313
3711
1315

54 74

3714

5475
5476
5477

1310
5610
7300

03 77

55 00

0400
0401
0402

5501
5502

1315
3310
5271

5503
5504

1257
5610

AMM10

NASS IF* TAD
2ASSIF, TAO
MASSIF, TAD
DCA
JMS

H4 0

L7710

/STORE CORRECT SKP AFTER EVALUATING EXPR,

GETV AL

SKIPAS*

ASSNO
JMP
CLA CMA
JMP
ASSYIN
JMS
GETVAL
CIA
SNA
JMP

ASSY IN.

DCA
TAD
TAO
SZA CLA
CIA CMA
TAD
DCA
TAD
OCA I
TAO
DCA
TAD
DCA
JMP
AFORT,
FORT
ACHECK, CLA CLL
TAD
TAO
SNA CLA
JMP
JMS I
JMP
ASPAST, ISZ
JMP I
ASSRSr» TAD
DCA 1
TAD
OCA I
TAD
JMP I
APAENO
CLA CLL
TAO
OCA
JMP
I

/WRONG SKIP CONOITION. ASSEMBLE NEXT,
/OO AN ASMSKP

/NUMBER TO BE SKKIPEO,

ITEM
M43

04 12

0413
0414
0415
0416

TAD
JMP

TO SKIP BECAUSE OF END OF THIS STATEMENT,

ACOUNT
ACOU NT
PACHECK
PSWITCH
aseno
POOLLAR
AMAINPS
PMAINSA

/AFTER SETTING SWITHCES EXIT TO PICK UP NEXT STATEMENT.

ITEM
M4 3

ASPAST
IDXl
.-5

ACOUNT
PMAINSA
POOCAL
PSWITCH
PENOMS
POOLLAR
PMAI NSA
PSEUOO

/WAIT FOR END OF THIS LINE.
/NOT DONE YET. PICK UP NEXT STATEMENT TO SKIP.

/RESET SWITCHES AND EXIT,

ASSNO>

2ER0 EXIT,

/WAS DOLLAR TERMINATOR
/NO, ADD

PENOMS
PMAINSA
ASSRST

/END OF MANUSCRIPT

AFDRT
PSEUOO

/GENERAL EXIT,

04 03

0404
0405
0406
0407
0410
0411

ASSNO
ACOUNT

0417
0420
0421
0422

0423
0424
0425
0426
0427
0430
0431

55 05

77 70

5506
5507
5510
5511
5512
5513
5514
5515

5477
1504
1504
1575
54 60

1426
2173
3717

-10
AMM10,
APAEND
ASENO.
AMAINPS,
PMAINSA.

PSWITCH
PACHECK,
POOCAU, OOCAL
POOLtAR,
PENDHS. ENOMS

MAINSA
MAINSA
PS INTER
ACHE CK

FINE NO

04 32

/
/

0433
0434
0435
0436

5516
5517
5520
5521
5522
5523
5524
5525
5526
5527
5530

04 37

0440
0441
04 42

0443
0444
0445
0446
0447

4477
4465
7710
5303
1537
1331
7700
5303
7240
3732
5303

EXPRl
AEJECT, JMS
PASSEK
JMS I
SPA CLA
L7710,
ASSNO
JMP
TAD I
PM60A
AEP62
TAD
CLA
SMA
ASSNO
JMP
CLA CM A
AEPONT
DCA I
JMP
ASSNO
I

/JUST TO SCAN TILL END OF LINE,
/GET THE PASS NO,
/ALWAYS SKIPS BECAUSE AC =0
/NOT L 1ST OR NOT PASS2
/IF LP THEN M60»-140
/SEE IF GREATER THAN 62
/IS PRINTER THERE???
/NOPE, LINE PRINTER ISN T
/YES. SET PACE POINTER TO EJECT,

THERE

04 50

5531
5532

0451
0452
0453

0062
3522

62
AEP62,
AEPONTp PCONT
/
f

04 54
'

0455
0456
0457

/
/
/
/

04 60

0461
0462
0463
04 64

0465
0466

5533
5534
5535
5536
5537
5540

04 67

55 41

0470
0471
0472
0473
0474

5542
5543
5544
5545
5546

42 01

1035
7010
7620
5303
4772
1027
3751
4747
5566
4773
5752

04 75

0476

SYMSAVi JMS
TAD
RAR
SNL
JMP
JMS
TAO
OCA
JMS
YPl
JMS
JMP

GETVAL
PASS
CLA

ASSNO

VOUT
SENO
VL6777

YWRITE

VIN

PV8M0VE

/INCORRECT PASS NO
/SAVE 6400 FOR A SECOND,
/NUMBER OF DEFINED SYMBOLS.
,

/RESTORE 6400 NOW.

5547

7775

04 77

55 5 0

77 74

0500
0501
0502
0503
0504
0505
0^06
0507
0510
0511
0512
0513
0514
0515

5551
5552
5553
5554
5555
5556
5557
5560

6777
5600
1035
7640
5224
4772
4750
5566

55 61

5562
5563
5564
5565

YWRITE,
YREAD*
VU67 77
PV8M0VE
SYMLOO,

17 51

3027
47 73

5765
5604

VINIT,
/

WRITE
READ
6777

TAO
SZA CLA
JMP
JMS 1
JMS I
YPl
TAD I
OCA
JMS I
JMP I
VVINIT

V8M0VE
PASS
NASSIF
VOUT
YREAD
VL67 77
SENO
VIN
VINIT

/DO NOT LOAD SYMBOLS IF PASS2
/PRESERVE 6400 NOW

/GET NUMBER OF SAVED SYMBOLS
/NOW RESTORE 6400
/NOW READ IN THE SYMBOL TABLE

0516
0517
0520
0521
0522
0523
0524
0525
0526
0527
0530
0531
0532
0533
0534
0535
0536
0537
0540
0541
0542
0543
0544
0545
0546
0547
0550
0551
0552
0553
0554

V......

/
/

5566
5567
5570
5571

0111
0015
0077
0001

YPl,

DIALBINARY
15

FUDGE2
1

/
/
/

/
/
/
/
/
/
/

5572
5573

0773
0572

VOUT.
VIN,

VPRSRV
VRSTR

/
/

/
/
/
/
/
/
/

/
/
/

EJECT

/POINTS TO THE PRESERVE ROUTINE
/POINTS TO THE RESTORE ROUTINE

0555
0556

«5600
/

RA 0101

0560

70101

4607
SA-I
70ll1

i35 61

7055 J

05 63

0564

5604

3/B

0571
0572

77i3i3

5606

4610
5611
5202

VWRI TE

VASSNO

VT AB

VCLE AN
A c C Kin
V Abb
NO »
\t

JMP

/
/
VV IN IT *

AS5N0
JMS I
VTAB
JMP

VREAO

VCLEAN

/
/

05 73

0574
0575
0576

-JMS

?OI0O

ism fif\

0566
0567

voriuvt #
/

5607
5610

7775
7774

05 77

VWRITE
VR£AO»

WRITE
READ

/
/
/

0600
0601
5611

vl 11

0603

i«Ai
30ic9

0101

Weon

0060

BOOUT

06 05

CAi T
SA
70 1 d

A
101010

VT A8

0101 1

DIALBINARY

06 07
06 10
06 11

0612
0613
06 14
06 15
OA
A
WO 1lO
CIA 1 7

nA 9fli

RA
4 S
70 19

5616
06 22
06 23

0624
06 25

0626
0627
06 31
06 32

C5A
70 1 7

56 20

5621
5622
5623
5624
56 25
56 26

063 4
0635

5627
5630
5631
5632

06 36

56 33

0637
0640
0641
0642
0643
0644
0645
0646
0647
0650
0651
0652
06 53

1634

OU Tr UT r
32 54
10 35

7640
5725
12 54

7510
5306
0326
3333
3335
1331
3330
7240
6141

JMS I
OCA
TAG
SHA CLA
JMP I
TAD
SPA
JMP
AND
OCA
OCA
TAO
DCA
CIA CMA
LINC
LMODE
SNS I

1636
1637
1640
1641
1642
1643
1644
1645

0460
0441
0011
0462
0443
0011
0464
0445
0011
0002

SNS
CLR
SNS
SNS
CLR
SNS
SNS
CLR
POP

5646

7040

PMODE
CMA

16 35

OGTVAL
OPUT
PASS

/THIS ROUTINE ALLOWS OPTIONAL TAPE OUTPUT
/SAVE FOR A SECOND
/GET THE PASS NUMBER

OASSNO
OPUT

/NOPE, IGNORE
/REGET THE USERS VALUE,
/ir POSITIVE THEN OUTPUT
/IF NEGATIVE THEN READ IN BIT TABLE
/JUST GET THE UNIT NUMBER

/IS IT

OBSET
0L17
OUNIT
08L0CK
QL6400
OLOC

/CLEAR THE BLOCK
TO 0
/RESET THE LOCATION COUNTER TO 6400
/WHICH IS THE BUFFER AREA
/SET UP THE TEST TO FOLLOW
/TEST FOR BOTH
0 AND

0
1

/SWITCHES

/AND SO ON DOWN THE LINE

3
I

0654
0655
0656
WOP /
0660
0661

76 40

5650
7071
5652
5653

5725

3001

100 0 /

vo fx
06 72
06 73
06 74
06 75

0676
El /

C^A A1

90 01
56 62
56 63

A9 A7
0/
13 30
03 32

5664
5665
56 66

5654
5261

OPUT

SNA

5261
4267
5654

JMS
JMP

OENO

07 17
atoct
07<W
a7
W / 91
el
n7 99
017 9T
07
Wf 9A

56 67
56 70

00 jggj
37 30

5671
5672
5673

1330
7001
0332
1331

56 74
56 75
56 76
56 77
57 00
57 01
(^709
9 / Wc

5703
5704
5705

00 PU T

2ER0 WORD

0L377

/CHOP OFF THE HIGH BITS NOW, JUST

0U A
I

OP UT

OENO

0
I

OL OC

OLOC

lAC

AND
TAD
OCA
TAD

33 30
13 30
03 32
76 40
<>A
A7
90 0/
^0 W/

0L377
OL64 00
OL OC
OL OC
OL 37 7

AN D
S2 A

CL A

JMP

/CHOP OFF THE BAD BITS,

00 PU T

VWR I TE

5733
2335
5667

OU NI T

UD Uw Uf>

IS 2

JMP

OOPUT

VREAD

/ALSO POINTS TO MOVE ROUTINE
/READ IN THE OLD HEADER BLOCK

QfiSET

/MOVE DOWN THE HEADER BLOCK NOW

f
f

0730

07*11

0743
0744
0745
0746
0747
0750
0751
0752

TAD

07
A
W/ 9
cO
0797
vl CI

07 42

l>J

/PUT

OL OC

DC A

i
f

0734
0735
0736
0737
0740
0741

OOPUT

JMS
TAD
AND

JMP

0725

07
t9
W/ Oc
07
W' «3w.

OE ND

OOPUT
OPUT

JH P

f
f
/

»/ WO

0716

/NOW RETURN TO THE USER.

JH P

UI7
W/ Wn

»/ 10
07 14
W' 17

a ^ fM u
U A ssNn
ft A

74 50

fil7 1

/SWITCHES NOT UP, IGNORE REQUEST
/RESET DECOUT TO POINT TO HERE

0000

w/ wx

a7 flR

oass no
OP 0 1 NT
nrcouT
WW W
DC

5654
5655
5656
5657
5660

1X709

0706
0707
0710
0711
0712

06 63
06 64

\00 / V

CL A

Tad
DC A
JMP

S7 9R

100 O4C

0665
0666

S2 A
JM P

13 27

57 06
57 07

5710
5711
5712
5713
5714
5715
5716
5717

72 00

DBS E T

46 10

CL A

JMS

5720
4706
6201
5337

OB IN

JMS I
CDF
5337
CDF
4337

62 01
43 37

0041
5725

0
0

JMP
/
/
/
/
/
/

OASSNO

/AND RETURN TO THE USER

0753
0754
0755
0756
0757
0760
0761
0762
0763
0764

/
f

5720
5721
5722
5723

0111
0012
0057
0001

OBINt

ill
12

447^370
1
/

/
/

07 65

0766
0767
0770
0771
0772

/
/
/
/

07 73

0774
0775
0776
0777
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014
1015
1016
1017
1020
1021
1022
1023
1024
1025
1026
1027
1030
1031
1032
1033
1034
1035
1036
1037

f
/
/

57 32

5401
5503
0817
5654
6400
6400
0377

5733

0000

57 34

00 15

5735
5736

0000
0001

OB LOCK* 0

5724
5725
5726
5727
5730
5731

OG TV At ,

GE TV At

OASS NO
0L17.

AS SNO

OPOINT, OPUT
6400
OL0C#
OL6400, 6400
37 7
0137 7,
/

OUNI T,

/15=6400 FOR THE BUFFER AREA

/
/
/
/
/
/
/
/

/
/
/
/

/THIS ROUTINE CHECKS FOR NO BINARY 01
/GET THE NUMBER OF BLOCKS OF OUTPUT,
/ANO THERE?
/YEP, JUST GIVE A C.R.L.F AND RETURN

5737
5740
5741
5742

0000
1776
7640
5351

CHECKO, 0
TAD I
OCUSCS
SHA CUA
JMP
OCCRLF

5743

1353

OCDOIT,

10 40
10 41

57 44
57 45

10 42

5746

74 50
53 51
44 01

TAD
SNA
JMP
JMS

1043
1044
1045
1046
1047

57 47

1J:S43

!SH

OC DO IT

5750

53 43

JMP

OCOOIT

/GET A CHARACTER FROM THE MESSAGER,
/ZERO » THATS All FOLKS
/GIVE THE LINEFEED NOW
/OUT GOES THE CHARACTER NOW
/BOP TO THE NEXT CHARACTER,
/GO GET THE NEXT CHARACTER

TYCARl
CHECKO

/GIVE THE CARRIGE RETURN NOW
/RETURN TO THE CALLER NOW

10 50

1051

OCPNT

OCCRLF
OECOUT

5751
5752

4500
5737

occRur, JMS

JMP

/
/

1052
li53
1054
1055
1056
1057
1060
1061
1062
1063
1064
1065
1066
1067
1070
1071
1072
1073
1074
1075
1076

5753
5754
5755
5756
5757
5760
5761
5762
5763
5764
5765
5766
5767
5770
5771
5772
5773
5774
5775

0254
0240
0316
0317
0240
0302
0311
0316
0301
0322
0331
0240
0317
0325
0324
0320
0325
0324
0000

OCPNT»

5776

4337

OCUSES, US£ONO

254
240
316
317
240
302
311
316
301
322
331
240
317

325
324
320
325
324

/
/

/N
/O
/

/B
/I

/N
/A
/R
/Y
/

/O
/U
/T
/P

/U
/T

10 77

1100
1101
1102
1103
1104
1105
1106
1107
11
11
11
11
11

1120
1121
1122
1123
1124
1125
1126
1127
1130
1131

EJECT

/POINTS TO THE NUMBER OF BINARY BLOCKS USED.

1132
1 1 'K'X

/
/

Xi, 0^

1135

11 36

CINE PR 1 NTrR ROUT INT

60 00
1 1

1 1

X*.
1 i

6001
6002
6003
6004

0000
1151
7450

PR INT

M2 15

pprnijun
D9
re 1i.-?

52 10

JMP

1154

TA
A n
U

60 05

66 61

ls D

6006

5241
5640

JMP
JMP

010 k) /

11 70

1151
119c
1153
4 4
1194
4 4 CR
1199

6010

1235

Aa4
oBxl4

^904
Xt
OA
dOBO

6012
O0XO
A0I4 A

D|0 X9

32 34
12 34

6016
6017

1305

ii
A1
XXOX

60 20

1162
4 1 A
xxoo
1164
1165
1166
1167
1170
1171
1172
1173
1174
1175
1176
4177
' f
XX
1200
1201

6021

5232
1234

60 22

11 51

6023

7650
5233
1236
3201
7240
1306
5637

1 i

4 9019

Af
1 9 04
0^
Xc
4 9ac
X£09
4 9fllA
XC VO
4 9a7
4 9

IclV
1211
4 94 9
xcX«
1213
1214
1215
1216
1217
1220
1221
1222
1223
1224
1225
1226
1227
1230

OnKS

LPBACK
PCLP

(

IMQ

PRtMT

•

/NU i

/WAJi run ULLAn
/I TMT PRINTTB

\»V\

AL t

DliCY

R AfK

QPAPT

TU AO

9r
XX S7
4 4 Mk
DH
XX

4 4

f 1

/T S

[

A TTY
tad rUlQ:
nAnlULLO Ln ANU Lr
IT \t Ann 1 Avw nt uniM
1

AU
sn a
1

1146
11^/

1 1

/THIS ROUT INT
TNT
/SORT flr

•6000

1137

60 24

6025
6026
6027
6030
6031

SWl
PRlNT+1
NUM
PRINT
TEMPI
TEMPI
M212

.TAD
DC A

LF TEST 1

76 50

OCA
JMP
DCA
TAD
TAO
SNA
JMP
TAO
TAD
SNA
JMP
TAO
OCA
CLA
TAD
JMP

/StT TUCHE.U

FDR LF

CLA
LFF
TEMPI

M215
CLA

LFFZ
SW2

/NOT AN LF OR CR

NCH

L I NF .

OUTPUT LAST.

PRINT*1
CMA
I

NUM
PCFIC

NUM
PRINT

6032
6033

2306
56 00

ISi

LFF2#

JMP

/LF. BOP UP LF COUNT.

/
/
/

6034

0000

60 35
OKftf O

XX SI
9X
1 1

TEMPI

SW 1

JMP
TAD

QU 9

LFTEST
M215

/
f
/
f
/

6040

6057
6054

/
/
r Ur lot

PCLP #

ANLXE
ANLXC

/
/
/
/

6041
6042
6043
6044
6045

2700
7240
1701
3701
1302

60 46

17 01

6047

7650
1303
1701

60 50

6051

IPBACK»

ISZ I
LCOUNT
CLA CMA
TAO I
LOUTP
DCA !
LOUTP
TAO
LFIRST
TAD
LOUTP
SNA CLA

/INCREMENT THE COUNTER BY 1
/-I TO DECREMENT THE POINTER

TAO
TAO

/ITS TOO FAR, COMPENSTATE TO TOP OF BUFFER

/COMPARE AGAINST LOWER LIMIT

LB AO
I

LOUTP

1231
12 32

1233
1234
1235
1236
1237
1240

6052
6053

3701
5600

6656
7200
56 00

12 45

6060
6061
6062
6063
6064
6065
6066
6067
6070

0157
7640
1157
1304
6652
6664
7200
3306
1234
5201

6071
6072

6666
5255

6073
6074
6075
6076
6077

7640
7305
1153
6666
5265

6100
6101
6102
6103

0760
0705
1671
0270

60 57

1324
1325
1326
1327

LCF'LLB

JMP

ANLXE»
M140 t

AND
P7
SZA CLA
TAD
P7
TAD
L10
Lcr
LPR
LPRENT, CLA
NUM
DCA
TEMPI
TAD
PR!NT*1
JMP
/

LP08C,

LPRSLCB
JMP

ANLXC*!

S2A CLA
CLA CLL lAC RAL
TAD
P212
LPR; LCB
JMP
LP RE NT
/
/

LCOUNTi
LOUTP,
LriRST,
LBAD.

COUNT
OUTP
-FIRST*!

BAO-riRST*l-l

/
/

12 77

13 23

ANLXC»

12 56
12 57

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

LOUTP
PRINT

60 56

1260
1261
1262
1263
1264
1265
1266
1267
1270
1271
1272
1273
1274
1275
1276

6054
6055

1246
1247
1250
1251
1252
1253
1254
1255

/
f

1242
1243
1244

12 41

DCA
JMP
/

6104
6105

0010
7566

L10I
H212»

-212

/
/
/

/
/

/
/
/
/

6106
6107

NUMi

PRINIT,
/
/
/
/
/
/
f

FIRST*.
BAO«6400

/DEFINE THE START OF THE BUFFE
/AND THE END*1

1330
1331
1332
1333
1334
1335

/
/
/

PAGE
/

13 36

1337
1340
1341
1342
1343
13 44

1345
1346
1347
1350
1351
1352
1353
1354
1355

/
/
/

/
/

6200
6201
6202
6203
6204
6205
6206
6207

1305
6652
6664
7200
1311
3706
1706
3707

13 63

1364
1365
1366
1367
1370
1371
1372
13 73

1374
1375
1376
1377
1400
1401
1402
1403
1404
1405
1406
1407
1410
1411
1412
1413
1414
1415
1416
1417
1420
1421
1422
1423
14 24

1425
1426

TAO
LCF
LPR
CLA
TAO
OCA
TAD
OCA

L17

/LP IS THERE, EJECT TO START AS,

/SET LINE COUNTER FOR 154 COLUMNS

M154
PCI
PCI

PC 2

SYMFIX
SYMOVR

6210
6211

1335
3736

6212
6213
6214
6215
6216
6217
6220
6221
6222
6223
6224
6225
6226
6227
6230
6231
6232
6233

1233
3626
1235
3627
1237
3630
1241
3631
1243
3632
1154
5626
2530
2531
2532
2533
2534
4732
6041
7410
5330
6000
6046
5727
7200
5727

13 56

1357
1360
1361
1362

UOKi

LOK0.

TAO
OCA

62 34

6235
6236
6237
6240
6241
6242
6243

LOKl*

PR1»
PR2i
PR3,
PR4,
PR5,
Rli

TAO
OCA I
TAO
OCA I
TAO
OCA 1
TAO
OCA I
TAD
OCA I
TAD
JHP I
TYPO+1
TYPQ*2
TYP0*3

R2,

SKP
JMP

R4,

PR3
R4
PR 4
R5

PR5
P215

TYPOM
TYP0*5
JHS I
Tsr

R3,

R5.

/RESET TYPO TO LP OR TTY ROUTINE.

PRl
R2
PR2

TLS
JMP
CLA
JMP

L0K*TYP0-TyBASE*3

L0K*TYP0-TY8ASE*1

LOK*TYPO-TYBASE

LOK^TYPO-TYBASE

/
/

6244
6245
6246
6247
6250
6251
6252
6253
6254
6255
6256
6257

7300
1135
3313
3312
6652
6662
6661
7410
5200
2312
5252
2313

LPTESTi CLA CLL
TAO
M4
PT2
OCA
PTl
OCA
Lcr
LCB
TEST,
LSD
SKP
JMP
LOK
PTl
IS2
JMP
TEST
PT2
ISZ

/WAIT FOR PRINTER TEST

/CLEAR BUFFER. IF LP THERE FLAG RAISES IN

/FLAG SI UP.

LP THERE.

WHAT

1427
1430
1431
1432
1433
1434
1435
14 36

1437
1440
1441
14 42

1443
1444
1445

6260

5252

6261
6262
6263
6264
6265
6266
6267
6270
6271
6272
6273
6274
6275

1135
3313
3312
1134
6666
7200
6661
7410
5314
2312
5267
2313
5267

6276
6277
6300
6301
6302
6303

2212
2214
2216
2220
3704
5212

6304

0747

14 46

1447
1450
1451
14 52

1453
1454
1455
1456
1457
1460

15 05

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

IS2

IS2
ISZ
IS2
ISi

OCA
JMP

LOKl
L0K1*2
tOKl*4
L0K1*6
CCNOP
tOKl

CCNOPi

CNOP

f
/
/
/
/

6305
6306
6307
6310
6311
6312
6313

0017
1576
3662
7706

Li7.
PCI,
PC2»
M72i

76 24

M154,

M60
M60A
-72
-154

0000
0000

PTl.
PT2,

0
0

/
/
/

14 75

1476
1477
1500
1501
1502
1503
1504

JMP
JMP

L0KA2
PTl
TESTC2
PT2
TESTC2

14 64

14 72

ISZ

PT2
PTl
P240

14 61

1473
1474

TAD
OCA
DCA
TAD
tCBl LPR
CLA
TESTC2, USD
SKP
JMP

1462
1463

1465
1466
1467
1470
1471

TEST

JHP
/

/
/
/
/

6325
6326
6327
6330

7305
1153
6676
7200
1310
3706
1310
3707
1331
3733
1332
3734
5210

6331
6332
6333

6071
6073
6040

6314
6315
6316
6317
6320
6321
6322
6323
6324

L0KA2»

CIL CLA lAC RAL

P212
TAD
LCriLPR
CLA
TAD
DCA
TAO
OCA
TAD
DCA
TAD
OCA
JMP

M72
PCI
M72
PC 2

PLP08C
I

/
/

PL P08C# LP08C
PLP08E» LP08E
PC LP
PXLl.

PXLl
PLP08E
PXL2
LOK0

/TIME HAS RUN OUT. CHANCE TO SET UT

TTY MODE.

/2AP OUT THE LPTEST ON THE BUFFERING ROUTINE

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

1550
1551
1552
1553
1554

6334
6335
6336

6037
1307
3504

PCF!
PXL2i
SYMFIX, TAD
SYMOVR, LWOE

/
f
/
f

f
/
/

SONE BASIC DEFINITIONS FOR THE ROUTINES

TY8ASE«2400
LLB«66 54
LCF*6652
LS0>6661
LCB>6662
LPR>6664

15 55

1556
1557
1560
1561
1562
1563
1564
15 65

1566
1567
1570
1571

l.WDEFD4177*L0K

/
/
/
/

EJEC

/HAIN BASE FOR REFS,

1572
1573
1574
1575
1576
1577
1600
1601

/
/
/

16 02

/
/

YH80L

TABLE

/
/
/
/

1603
1604
1605

/
/

16 06

1607
1610
1611
1612
1613
1614
1615
1616

6400
6401
6402
64 03

6404
64 05

1634
1635
1636
1637
1640
1641
1642
1643

6406
6407
6410
6411
6412
6413
6414
6415
6416
6417
6420
6421
6422
6423
6424
6425
6426
6427
6430
6431
6432
6433
6434

16 44

64 35

1645
1646
1647
1650
1651
1652
1653
1654
1655
1656
1657
1660
1661
1662
1663
1664
1665
1666
1667
1670

6436
6437
6440
6441
6442

1617
1620
1621
1622
1623
1624
1625
1626
1627
1638
1631
1632
16 33

64 43

6444
64 45

6446
64 47

6450
6451
6452
64 53

6454
64 55

6456
6457
6460
6461

7777
7777
7777
7777
7777
7777
7777
7777
7777
7777
7777

7777
7777
77 77

7777
7777
7777
7777
7777
7777
7777

77 77

5143
0336
0000
6021
5123
0336

5143
0336
0000
6021
5123
0336
0000
6022
5140
0157
0000
6024
5134

00 00

6022
5140
0157
0000
6024
5134
1277
0000
6026
5255
0336
0000
6011
5254
0112
0000
6012
5240
0157
0000
6014
4170
0336
0000
6202
4163
0336
0000
6201
5243
0112

/PSF

/per

/PPC

/PLS

12 77

0000
6026
5255
0336
0000
6011
5254
0112
0000
6012
5240
0157
0000
6014
4170
0336
0000
6202
4163
0336
0000
6201
5243
0112

/RCf

/RRB

/RFC

/CIF

/COF

/RIB

1671
1672
16 73

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
1739
1736

6462
6463
6464
6465
6466
6467
6470
6471
64 72

6473
6474
6475
6476
6477
6500
6501
6502
6503
6504
6505
6506
6507
6510
6511
6512
6513
6514
6515
6516
6517
65 20

0000
6234
5247
0336
0000
6244
5243
0336
0000
6224
5236
0336
0000
6214
5360
1277
0000
6046
5364
0157
0000
6044
5347
0336
00 00

6042
5367
0336
0000
6041
4651
0112
0000
6036

0000
6234
5247
0336
0000
6244
5243
0336
0000
6224
5236
0336
0000
6214
5360
1277
0000
6046
5364
0157
0000
6044
5347
0336
0000
6042
5367
0336
0000
6041
4651
0112
0000
6036
4651
1277
0000
6034
4632
0157
0000
6032

1740
1741
1742

6521
6522
6523
6524
6525
6526
6527
6530
6531
6592
6533

17 43

65 34

46 52

1744
1745
1^46
1747
1750
1751
1752
1753
1754
1755
1756
1757

6535
6536
6537

0336
0000
6031

0336

65 40

45 34

6541
6542
6543
6544
6545
6546
6547
6550
6551
6552
6553
6554
6555
6556
6557
6560

0336
0000
6002
4534
1006
0000
6001
4705
1011
0000
6141
4173
1312
0000
6131
4173

0336
0000
6002
4534
1006
0000
6001
4705
1011
0000
6141

17 37

17 60

1761
1762
1763
1764
1765
1766
1767

46 51

1277
0000
60 34
46 32

0157
0000
6032

/RMF

/RIF

/Ror

/TLS

/TPC

/TCF

/TSF

/KRB

/KRS

/KCC

/KSF

00 00

6031

/lOF

/ION

/LINC

4173/ClSK
1312
0

6131

4173/CUR

17 70

1771
17 72

1773
1774
1775
1776

nil
20 00

2001
2002
2003
2004
2003
2006
2007
2010
2011
2012
2013
2014
2015
2016
2017
2020
20 21

2022
2023
2024
2025
2026
2027
2030
2031
2032
2033
2034
2035
2036
2037
2040
2041
2042
2043
2044
2045
20 46

2047
20 50

2051
2052
2053
20S4
2055
2056
2057
2060
2061

6561
6562
6563
6564
6565
6566
6567
6570
6571
6572
6573
6574
6575
6576
6577
6600
6601
6602
6603
6604
6605
6606
6607
6610
6611
6612
6613
6614
6615
6616
6617
6620
6621
6622
6623
6624
6625
6626
6627
6630
6631
6632
6633
6634
6635
6636
6637
6640
6641
6642
6643
6644
6645
6646
6647
6650
6651
6652

0716

716

00 00

6132
4173
0047
0000
6133
4173

6132
4173

03 07

0000
6134
4173
1300
0000
6135
4173
0160
0000
6137
4173
0113

47
0

6133
4173
307
0

6134
4173
1300
0

6135
4173
160

6137
4173
113
0

6136
4417
0627
0000
7204
5323

6136
4417
0627
0000

0000
7120
5323
0045
0000
7240
4675
1277
0000
7604
4170
00 45

0000
7041
4464
1344
0000
7402
5076
1232
0000
7404
5312
1120
0000
7410

/cue A

00 00

06 74

/CLSA

/CLBA

/GLK

72 04

5323
0674
0000
7120
5323
0045
0000
7240
4675
1277
0000
7604
4170
0045
0000
7041
4464
1344
0000
7402
5076
1232
0000

/STL

/STA

/LAS

/CIA

/HIT

/OSR

74 04

5312
1120
0000
7410

/SKP

53 31

/S2U

0674
0000

20 62

66 53

74 30

2063
2064
2065
2066

6654
6655
6696
6657

5315
0674
0000
7420

/SNL

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
2150
2151
2152
2153
2154
2155
2156
2157
2160
2161
2162
2163
2164
2165

66 60
66 61

5315

6662
6663
6664
6665
6666
6667
6670
6671

0000
7450
5317
0045
0000
7510
5331
0045
0000
7440
5314
0045
0000
7500

66 72

6673
6674
6675
6676
6677
6700
6701
6702
6703
6704
6705
6706
6707
6710
6711
6712
6713
6714
6715
6716
6717
6720
6721
6722
6723
6724
6725
6726
6727
6730
6731
6732
6733
6734
6735
6736
6737
6740
6741
6742
6743
6744
6745
6746
6747

00 45

45 16

0157
0000
7001
5256
0674
0000
7006
5233
0674
0000
7004
5256

5315
0045
0000
7450
5317
0045
0000
7510
5331
0045
0000
7440
5314
0045
0000
7500
4516
0157
0000
7001
5256
0674
0000
7006
5233

1120
0000
7000

67 50

45 77

6751
6752
6753
6754

1120
0000
5000
4577

1120
0000
5000
4577
1277
0000

12 32

(10 45

0000
70 40

4173
0674
0000
7100
4173
0045
0000
7200
5025

67 55

1277

6756

0000

/SPA

/SZA

/SHA

/I AC

/RTL

/RAL

06 74

0000
7004
5256
1232
0000
7012
5233
1232
0000
7010
4174
0674
0000
7020
4174
0045
0000
7040
4173
0674
0000
7100
4173
0045
0000
7200
5025
1120
0000
7000

0000
7012
5233
1232
0000
7010
4174
0674
0000
7020
4174

/SNA

/RTR

/RAR

/CML

/CHA

/CLL

/CUA

/NOP

/J MP

/JMS

2166
2167

6757

4000

40 00

ei / W

67 61

00 43

2171
2172
2173
2174
2175
2176
2177
2200
2201
2202
2203
2204
2205
2206
2207

6762
6763
6764
6765
6766

0000
3000

0045
0000
3000

/n r
UAA
/U

O / Ov

67 67

6770
6771
6772
6773
6774
6775
6776
6777

45 40

1702
0000
2000
5345

1702
0000
2000
5345
0224
0000
1000
4063
0224
0000

0224
0000
1000
4063
0224

0000
0000

/ISiJ

/TAD

/AND

EJECT

/L INC SYM TABLE

2210
2211

•7000
/

2213
2214
2215
2216
2217
9990
9991
9999
Q59^
22 24

2226
cZc7

7000
7001

5607
0045

70 02

00 00

7003
7004
7005
7006
7007
7010

0021
5201
1702
0000
0455
4352

70 11
70 12

10 53
00 00

5607
0045
0000
0021
5201
1702
0000
0455
4352
1053

/QLZ

/ruo

0101 0101
1010 i0V

B^9^
4A 49

99"<"»

701

99 T9

2235
2236
2237
2240
2241
2242
2243

7016
7017
7020
7021
7022
7023
7024
7025
7026
7027

22 AA

70 30

2245
2246
2247
2250
2251
2252
2253
2254
2255
2256
2257
2260
2261
2262
2263
2264
2265
2266
2267
2270
2271
2272
2273
2274
2275
2276
2277
2300
2301
2302
2303
2304
2305
2306

7031
7032
7033
7034
7035
7036
7037
7040
7041
7042
7043
7044
7045
7046
7047
7050
7051
7052
7053
7054
7055
7056
7057
7060
7061
7062
7063
7064
7065
7066
7067
7070
70 71

7072

0000
0415
5305
0045
0000
0024
4075
1053
0000
0001
4314
0336
0000
0004
4464
1344
0000
0000
5166
0157
0000
0005
4173
1232
00 00

0011
4071
1232
0000
0014
5256
0045
0000
0015
5025
1120
0000
0016
4176
0741
0000
0017
5304
1344
0000

0000
0415
5305

/sfa

45
0

4075
1053
0000
0001
4314
0336
0000
0004
4464
1344
0000
0000
5166
0157
0000
0005
4173
1232
0000
0011
4071
1232
0000
0014
5256
0045
0000
0015
5025
1120
0000
0016
4176
0741
0000
0017
5304
1344
0000

/AXO

/ESF

/HLT

/QAC

/CLR

/ATR

/RTA

/NOP

/COM

/SET

2307
23113

2312
2313
2314
2315
2316
2317
2320
2321
2322
2323
2324
2325
2326
2327
2330
2331
2332
2333
2334
2335
2336
2337
2340
2341
2342
2343
2344
2345
2346
2347
2350
2351
2352
2353
2354
2355
2356
2357
2360
2361
2362
2363
2364
2365
2366
2367
2370
23 71

2372
2373
2374
23 75

2376
2377
2400
2401
2402
24 03

2404
2405

7073
7074
7075
7076
7077
7100
7101
7102
7103
7104
7105
7106
7107
7110
7111
7112
7113
7114
7115
7116
7117
7120
7121
7122
7123
7124
7125
7126
7127
7130
7131
7132
7133
7134
7135
7136
7137
7140
7141
7142
7143
7144
7145
7146
7147
7150
7151
7152
7153
7154
7155
7156
7157
7160
7161
7162
7163
7164
7165
7166
7167
7170
7171

0040
5300
0741
0000
0100
4235
1277
0000
0140
5613
0627
0000
0200
5251
06 74

0000
02 40

5251
1232
0000
0300
5302
1232
0000
0340
5327
06 74
00 00
04 00

5315
1277
§000
0440
5312
1120
0000
0456
4077
02 71

0000
0450
4065
1053
0000
0451
4726
0271
0000
0452
4236
1232
0000
0006
4705
0336
0000
0600
4700
0336
0000
0640
5236
0157

0040
5300
0741
0000
0100
4235
1277
0000
0140
5613
0627
0000
0200
5251
0674
0000
0240
5251
1232
0000
0300
5302.

1232
0000
0340
5327
0674

/SAM

/OIS

/XSK

/ROi.

/ROR

/SCR

/SXU

00 00
04 00

5315
1277
0000
0440
5312
1120
0000
0456
48 77
02 71

0000
0450
4065
1053
0000
0451
4726
0271
0000
0452
4236
1232
0000
0006
4705

/SNS

/SKP<L>

/AZ£

/APO

/LZE

/OJR

/LIF

03 36

0000
0600
4700
0336
0000

/UDF

06 40

5236
0157

/RDC

7257
7260
7261
7262
7263
7264
7265

0000
1500
4115
0674
0000
1540
4135
0271
0000
1600
4115
1053
0000
1640
4247
0157
0000
1740
4051
0224
0000
2000
5323
0157

0000
0700
5235
0403
0000
0701
5236
0271
0000
0702
4765
0112
0000
0703
5545
0157
0000
0704
5526
0403
0000
0705
5545
0515
0000
0706
4167
0627
0000
0707
5300
0271
0000
1440
5321
1053
0000
1500
4115
0674
0000
1540
4135
0271
0000
1600
4115
1053
0000
1640
4247
0157
0000
1740
4051
0224
0000
2000
5323
0157

72 66

00 00

7267

4000
4577

2421
2422
2423
2424
2425
2426
2427
2430
2431
2432
2433
2434
2435
2436
2437
2440
2441
2442
2443
2444
2445
2446
2447
2450
2451
2452
2453
2454
2455
2456
2457
2460
2461
2462
2463
2464
2465
2466
2467
2470
2471

7172
7173
7174
7175
7176
7177
7200
7201
7202
7203
7204
7205
7206
7207
7210
7211
7212
7213
7214
7215
7216
7217
7220
7221
7222
7223
7224
7225
7226
7227
7230
7231
7232
7233
7234
7235
7236
7237
7240
7241
7242
7243
7244
7245
7246
7247
7250
7251
7252
7253
7254
7255

24 72

72 56

2473
2474
2475
2476
2477
2500
2501
2502
2503
2504

2406
2407
2410
2411
2412
2413
2414
2415
2416
2417
24 20

72 70

0000
0700
52 35

0403
00 00

0701
5236
0271
0000
0702
4765
0112
00 00

0703
5545
0157
0000
0704
5526
0403
0000
0705
5545
0515
0000
0706
4167
0627
00 00

0707
5300
0271
00 00
14 40

5321
10 53

/RCG

/ROE

/MTB

/WRC

/MCG

/WRI

/CHK

/SAE

/SRO

/BCt

/BSE

/BCO

/OSC

/ADD

/STC

/JMP

2505
2506
2507
2510
2511
2512
2513
2514
2515
2516
2517
2520
2521
2522
2523
2524
2525
2526
2527
2530
2531
2532
2533
2534
2535
2536
25 37

2540
25 41

2542
2543
2544
2545
2546
2547
25 50

2551
2552
2553
2554
2555
2556
2557
2560
2561
2562
2563
25 64

2565
2566
2567
2570
2571
2572
2573
2574
25 75

2576
2577
2600
2601
2602
2603

7271
7272
7273
7274
72 75

7276
7277
7300
7301
7302
7303
7304
73 05

7306
7307
7310
7311
7312
7313
7314
7315
7316
7317
7320
7321
7322
7323
7324
7325
7326
7327
7330
7331
7332
7333
7334
7335
7336
7337
7340
7341
7342
7343
7344
7345
7346
7347
7350
7351
7352
7353
7354
7355
7356
7357
7360
7361
7362
7363
7364
7365
7366
7367

1120
0000
6000
4764
0157
0000

1140
4675
0741
0000
1200
4766

1120
0000
6000
4764
0157
0000
0000
4700
0045
0000
1000
5323
0045
0000
1040
4051
0045
0000
1100
4051
0741
0000
1140
4675
0741
0000
1200
4766

06 74

0000
1240
4700
0450
0000
1300
5323

0000
1240
4700
0450
0000
1300
5323
0450
0000
1340
5307
0224

00 00

4700
0045
0000
1000
5323
0045
0000
1040
4051
0045
0000
1100
4051
0741
00 00

04 50
00 00

1340
5307
0224
0000
1400
5345
0157
0000
0003
53 61

0045
0000
0023
5124
1120
0000
0002
5323
0224
0000
0416
4717
1523
0000
0517

/HSC

/LDA

/STA

/ADA

/AOM

/LAM

/MUL

/LOH

/STH

/SHD

00 00

1400
5345
0157
0000
0003
5361
0045
0000
0023
5124
1120
0000
0002
5323
0224
0000
0416
4717
1523
0000
0517

/TAG

/TMA

/PDP

/STO

/usw

2604
2605
2606
2607
2610

26H
2612
26X3
2614

7370
7371
7372
7373
7374
7375
7376
7377

•>255

52b5

1523
0000
0516
4534
0112
0000
0500

15:^3

0000
0516
4534
0112
0000
0500

/RSW

/I 08

EJECT

2615
2616
2617
2620
2621
2622
2623

/SPECIAL CHARACTERS AND PSEUDO-INSTRUCTIONS
*7400
/

7480
7401
7402
74 03

2625
2626
2627
2630
2631
2632
2633
2634

7404
7405
7406
7407
7410
7411
7412
7413
7414

26 35

74 15

2636
2637
2640
2641
2642
2643
2644
2645
26 46
26 47

26 24

2650
2651
2652
2653
2654
2655
2656
2657
2660
2661
2662
2663
2664
2665
2666
2667
2670
2671
26 72

2673

6167
0056
1006
2536
6705
1323
0065
5615

6167
0056
1006
XCHAIN
6705
1323

OUTPUT
6303
0274
1344
PSUD05

60 70

7416
7417
7420
7421
7422
7423
7424
7425

0752
0354
4265
6070
0752
0370
4264
6070
0752

0752
0354

74 26

03 53

7427
7430
7431
7432
7433
7434
7435

4263
6070
0764
0647
4257
7300
1501

74 36

16 52

7437
7440
7441
7442
7443
7444
7445

4260
6347
0305
0224
2705
7135

74 46

0271
3304
6711
1057
0271
3303

7447
7450
7451
7452
7453

10 57

60 70

0752
0370
PSUD02
6070
0752
0353
PSUD03
6070
0764
0647
PSU007
7300
1501
1652
PSU006
6347
0305
0224
FLOUP
7135

6711
1057
0271

74 54

73 04

0420
1032
0200
6713
0247
1652
4262
0000
0000

UNKMOO
7304
0420
1032
BANKCH
6713
0247
1652
PSUD04
0000
0000

00 62

3400
7056
1345
0674
2227

3400
7056
1345
0674
OCT

2707
2710
2711
2712
2713

{ I

H AD

/PSEUDO
/ASMIFN

/PSEUDO

/PSEUDO OP
/ASMSKP

/PSEUDO
/S AVSYK

/PSEUDO

/PSEUDO OP

/ASM IFH

/F lELD

/PMOOE

PDP8MD

7455
7456
7457
7460
7461
7462
7463
7464
7465
7466
7467
7470
7471
7472
7473

27 06

/PSEUDO
/ASM IFi

10 57
02 71

2675
2677
2700
2701
2702
2703
2704
2705

/EJECT

PSUOOl

26 74

26 76

/L ISTAPE

00 65

0274
1344
4261

63 03

/CHA IN

/LMOOE

/SECMNT

/LOOSYH

/AND

/OCTAL

IT ASS I

BUT THE PRUOES THOUGHT IT WAS TOO

2714
2715
2716
2717
2720
2721
2722
27 23

74 74
74 75

6231

01 70

7476
7477

0742

0742
OECI M

7 500

7501
7502
75 03

22 25

7351
1614

7 351

00 00
16 10

STRI NG

2724

7504

7025

75 05

07 05

2726
2727
2730
2731
2732
2733
2734
2735
2736
2737
2740
2741
2742
2743
2744
2745
2746
2747
2750
2751
2752
2753

7506
7507
7510
7511
7512
7513
7514
7515
7516
7517
7520
7521
7522
7523
7524
7525
7526
7527
7530

1323
0555
6705
1323
0000
0554
7121
0410
0000
0477
0000
0000
0046
0200
0000
0000
0055
2200
6000
0000
0066
1345

1323

27 54

75 34

60 00

2755
2756
2757
9fiia
c7ov
2761
2762
2763
2764
2765
2766

7535
7536
7537

0000
0072
4142
6000
0000
0075
3570
7411
0000
0000
1105

27 67
27 70

2771
2772
2773
2774
2775
2776
2777
3000
3001
3002
3003
3004
3005
3006
3007
3010
3011
3012

7541
7542
7543
7544
75 45

7546
7547
7550
7551
7552
7553
75S4
7555
7556
7557
7560
7561
7562
7563
7564
7565
7566
7567
7570
7571
7572

00 00

0000
0070
0600
0000
0000
0050
1400
7702
0000
0000
1025
6515
0000
00 00

1066
0000
0000
0071

/TEXT

1614

27 25

7^04

/DEC IHAL

/NOL IS T

PU 1ST

6705
1323
0000
DOLIST
7121
0410

/UIST

/PACE

PAGEC
0000
0000
0046
0200
0000
0000
0055
2200
6000
0000
0066

/SEMICOLON

/EXCLA MATION

/S TAR

ORGI C
60 00
0

0072
PERIOD
6000
0000
0075
THOU
7411

/POI NT

00 00

0000
UN

0000
0000
0070
0600
0000
0000
1010

/COHMA

1400
7702

0
0

A*l
6515

0
0
H

0000
0000
0071

3013
3014
3015
3016
3017
3020
3021
3022
3023
3024
3025
3026
3027
3030

7573
7574
7575
7576
7577
7600
7601
7602
7603

5200
0000
0000
0067
4600
0000
0000
0054
5600

5200
0000
0000
0067
4600
0000
0000
0054
5600
/
/
/
/
/

30 31

3032
3033
3034
3035
3036
3037

/
/
/

/
/

EJECT

/SPACE

3040
3041
3042
3043
3044
3045

/
/
/
/
/
/

FIELD

30 46

3047
3050
3051
3052
3053
3054
3055
3056

/
/

/
/
• 5000

/
/
/

30 57

3060
3061
3062
3063
3064
3065
3066
3067
3070
3071
3072
3073
3074

5000
5001
5002
5003
5004
5005
5006

30 75

50 07

3076
3077
3100
3101
3102
3103

5010
5011
5012
5013
5014
5015
5016
5017
5020
5021

3104
3105

3106
3107
3110
31 11

3112
3113
3114
3115
3116
3117
3120
3121
3122
31 23

3124
3125
3126
3127
3130
3131
3132
3133
3134
3135
3136

/
/

50 22

5023
5024
5025
5026
5027
5030
5031
5032

0000
17 54
0353
33 66

4312
7240
4264
5205
4312
4322
5334
5225
1051
1350
76 50

5211
1051
1346
76 50
52 11

XXXXi

TAD I
AND
OCA
JMS
CLA CM A
JMS
JMP
JMS
XUOOPlf JMS
JMP
JMP
TAD
TAD
SNA CLA
JMP
TAD
TAD
SNA CLA
JMP

53 34

4322
5334
5334
5234

XOKl,

43 22

XL00P2

5334

JMP
JMS
JMP
JMP
r

JMP
JMS
JMP

50 33

52 44

JMP

5034
5035
5036
5037

1051
4765
3764

XINTOI, TAD
JMS
DCA

23 64

50 40

5041
5042
50 43

1051
4264
5231
5334

ISZ
TAD
JMS
JMP
JMP

5044
5045
5046
5047

7240
4264
7000
4322

I
I

XBBLOCK
XL 77

XTHISBLOCK
XRESET
XPUT
.-2

XRESET
XCET
XCER
XOKl
ITEM
XM47

XLOOPl
ITEM
XM40
XLOOPl
XCER
XGET
XCER
XCER
XINTOI
XCET
XCER
XDONEl
ITEM
XCON
XXXP
XXXP
ITEM
XPUT
XL00P2
XCER

XOONEl. CLA CM A
JMS
XPUT
NOP
JMS
XGET

/THIS IS REALY IN 5000 OF FIELD

3137
3140
3141
3142
3143
3144

3145
3146
3147
3150
3151
3152
3153
3154
3155
3156
3157
3160
3161
3162
3163
3164
3165
3166
3167
3170
3171

5050
5051
50 52

5743

50 57
50 60

3020
4477
1020
7650
5743
1033

5061
5062
5063

3366
5743

5053

5054
5055
5056

/
/
/

/
/
f

5064
5065
5066
5067
5070
5071
50 72

0000
2017

51 04

72 40

5105
5106
5107
5110

3355

3205
3206
3207
3210
3211
3212
3213
3214
3215
3216
3217
3220
3221
3222
3223
3224
3225
3226
3227

ISi

.4
JMP
CLA
XPUT
ISZ
XPUT
JHP I
AND
XL 7?
XGET
OCA
ISZ
XHALF
XRICHT
JMP
XGET
TAD
Cll RTL
RTL
RTL
XT
DCA
XPUT
JMP I

7200
2264
5664
0353
3322
2355

32 01
32 02
32 04

XPUT,

52 72

3173
3174
3175
3176
3177
3200

3203

XN
XCER
EVAL
ANY
EXPRl
ANY

OCA
JMS I
TAD
SNA CLA
XN
JMP I
EVAL
TAD
AND
XL77
XTHISBLOCK
DCA
XN
JMP I

03 53

5073
5074
5075
5076
5077
5100
5101
5102
5103

3172

JMP
JMP
DCA

5334
3033

53 04

1322
7106
7006
7006
3356
5664
/

51U

13 56

1322
3416
5664

XRIGHT, CLA CM A
DCA
TAD
TAD
OCA I
JMP 1

XHALF
XT

XGET
16

XPUT

/
/
/
/

5112
5113
5114
5115
5116
5117
5120
5121

0000
7240

XRESET,

CLA CM A
DCA
TAD
DCA
TAD
DCA
JMP I

33 55

1347
3017
1357
3016
5712

XHALF
XM9
17
XP
16

XRESET

/
/
/

5122

32 30

51 23

3231
3232
3233
3234
3235

5124

5125
5126
5127
5130

0000
4751
1352
7450
5722
23 22

7001

XGET.

JMS
TAD
SNA
JMP
ISZ
lAC

XGET IN
XM43
XGET
XGET

3236
3237
3240
3241

5131
5132
5133

SHA CLA

7640
2322
5722

XGET
XGET

XL6
ERRl

isz

JMP

32 42

3243
3244
3245
3246
32 47

3250
3251
32 52

3253
3254
3255
OC 79
OC 7 /
32 60
32 61

3262
3263
3264

5134
5135
5136
5137
5140
51 41

5142

51 44
51 45
51 46

5147
51 50

5151
5152
5153
5154

32 71

51 55

3272
3273
3274
3275

5156
5157
5160
5161
5162

44 66

4532
4530
5517

5202
0086
0017
7740
7767
7731
3670
7735
0077
4175

0000
0000
5157
0000

32 77

51 63

0000
0000
0000

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

5164
5165

5310
3600

3276

TAD
JMS
JMS
JMS
JMS
JMS
JHP

XCERi

I
I
I
1
I

PASSEK
CURSKA
SCLEAR
LINE NO
MON

5143

3266
3267
3270

32 65

13 44

4476
4465

XN f

XX N

XL 6»

XLl?
XH40
XH9
XH47 t
XGET IN #
XM43 f
XL77 1

<-40

-47
GET I
.43
77

XBBLOCK B8L0CK
»

XHALFf
XT#
XP,

XXNli
XXN2»
XXN3i

0
0
1

XX N4 ,

0
0
0
0

XXXPr
XCONt

XNMl
CONVRT

/
/
/
/
/

5166
5167
5170
5171

7777
0036
0346
0002

XTHISBLOCKi
36

346
2

/
f

/
i
/
/
/

5172

5600

XXRETi

JMP

/
/
f

/
f
/

33 31

3332
3333
3334

/
/

PAGE

XXXX

3335
33 36

/
/

3337
3340
3341

5200
b201

4754
7410

XX XR,

33 42

52 02

XXNi

3343
3344
3345

5203
5204
5205

1051
1341
7640

5200

33 46

JMS I
XX GET
SKP
TAD
ITEM
TAD
XXM43
S2A CLA
JMP
XXXR

3347

5206
52 0 7

47 36
51 66

JMS

33 50

3351
3352
3353

5210
5211
5212

1337
3016
1340

TAD

XL 67 77

OC A

33 54

52 13

32 02

DC A

3355
3356
3357
3360
3361

5214
5215
5216
5217
5220

1016
7040

XXLOOPi TAO

03 42
70 40

AND

3016

DCA
TAD
OCA
Tad
DCA
cor
TAO

33 62

52 21

13 43

3363
3364
3365

5222
5223
5224

3017

33 66

52 25

3367
3370
3371
3372

5226
5227
5230
5231
5232

33 73

XREAD
XTHISBLOCK

tao

XXLP»

62 01
70 41

1417
7640

32 A

CL A

53 2 7

JMP

2203
5225
6211
1416
3204
1416
6201
7710
5327
4465
4466
4532
4530
1204
3745

IS2
JM P

52 61

1733

5262
52 63

3425
3426

5264
5265
5266
5267
5270
5271
5272

3734
4736
4170
4465
5321
1335
4475
1277

34 27

3430
3431
3432
3433

CDF

74 50

1 CI
t
t

13 46

34 24

XX Y
XX
1
XX LP

DCA
XXN*2
TAO I
16
cor
0
SPA CLA
XXY
JMP
JMS I
PASS£K
JHS I
CURSKA
JMS I
SCLE AR
JMS I
LINENO
TAD
XXN*2
DCA I
XXL
TAD
XL7400
DCA I
XXI
DCA 1
XX2
TAO
XL 44 00
DCA I
XX3
DCA
MODE
TAO I
XTH
DCA I
XHT
JMS I
XRCAO

3750
3751
1347
3752
3037

3423

XM4
XXN^'l

CIA
Tao

52 33

5257

XXP
17

10
16

5234
5235
5236
5237
5240
5241
5242
5243
5244
5245
5246
5247
5250
52^1
5252
5253
5254

52 60

XL 77 70

33 74

34 22

XXN

CM A

3375
3376
3377
3400
3401
3402
3403
3404
3405
3406
3407
3410
3411
3412
34l3
3414
4415
3416
3417
3420
3421

52 55
52 56

XM 100

CM A

13 44

3203
6211
1416

(.TAB

XXT,

JMS
JMP
TAO
JMS
TAO
SNA

PASSEK
XXFH
XM26

SK IP
XX MESS

f
3434
3435
3436
3437
3440
3441
3442
3443
3444
3445

5273

JMP
JMS
ISZ
JMP

5321

52 74

44 01

5275
5276

2271
5271

5307

0240

5310
5311
5312
5313
5314
5315
5316
5317
5320

0000
0000
0000
0000
0000
0000
0000
0000
0000

XNMlt

3470
3471
3472

5321
5322
5323

4500
7240
3012

XXFH f

3^ 73
34 74
34 75

53 24

5325

4753
5726

53 26

51 72

303
310
301
311
316
311
316
307

XXME SS

240
/

34 66
34 67

3476
3477
3500
3501
3502
3503
3904
3505
3506
3507
3510
3511
3512
3513
3514
3515
3516
3517
3520
3521
3522
3523
3524
3525

XXT

0303
0310
0301
0311
0316
0311
0316
0307

3447
3450
3451
3452
3453
3454
3455
3456
3457
3460
346i
3462
3463
3464
3465

XX T

5277
5300
5301
5302
5303
5304
5305
5306

34 46

XXFH
OECOUT

0
0
0
0
0
0
0

0
0
/
/

JMS I
CLA CM
OCA
JMS 1
JMP I
XXRE T

TYCARI

CURLIN
XBUFIN
t

/
/
/
/
/

5327
5330
5331
5332

2202
5214

XXY#

ISZ

JMP
JMP i
XCER

57 32

5134

XXN
XXLOOP
•

/
/
/
/
/
/

/
/
/

5333
5334
5335

35 26

53 36

3527
3530
3531
3532

5337
5340
53 41

5342

5166
4175
7752
7774
6777
7700
7735
7770

XTHISBLO CK
B8L0CK

XTHi
XHTi
XH26,

XREAOt
XL6777,
XM100,
XXM43»
XU7770I

-26
READ
6777
•100
-4 3

7770

3533

5343

35 34

53 44

3535
3536
3537
3540
3541
3542
3543
3544
3545
3546
3547
3550
3551
3552
3553
3554
3555
3556
3557
3560
3561
3562
3563
3564

53 45

5346

5157
7774
4177
7400

53 47

44 00

5350
5351
5352
5353
5354

3354
3351
3352
4006
3670

XXP,
XM4,
XXL,

XP
«4

BUFINH
XL7400, 7400
XI 4400, 4400
XXI,
CHRC
XX2,
WDHALF
XX3,
PT8UFP
XBUriN
8UFIN
XXGET,
GETIN
/

/
/
/
/
/

/
/

/
/
/

/
/

EJECT

3565
3566
3567
3570
3571
3572
3573

TAPE

DEFINITIONS

/
/
/

FUOGEl»326-300
rUOGE2»467-370
SCRATCH»32 5-300
BCHAIN«324»300
BOOUT3450-370

35 74

3575
3576
3577
3600
3601
3602

/
/

36 03

3604
3605
3606
3607
3610
3611
3612
3613
3614
3615
3616
3617
3620
3621
3622
3623
3624
3625

MAJOR
J 0
M

/
/

Ot AUUN!Tel00
01 AUBINARY>111
/
/
/

REAO-7774
WRITE«7775
/
/
/

/
/
/

EJECT

/DEFINES

SCRATCH AREA FOR SA VSYMSLOOSYM

3626
3627
36 30

3631
3632
3633
3634
3635
3636
3637
3640

END

/
/
/

/
/
/
/

/
/
/

EJECT

ASSEMTHREE

3641
3642
3643
3644
3645

ERRORS

SYMBOL

VALUE

DEF

REFERENCES

A
A A OR

1024
003B

1515
0331

0^1 7 0522

AAORL
AALPHA

3052
4004
1332
0046
3042
3043
3044

1603
2602
2030
0347
1573
1574
1575
1576

AAS
ABANK
ABNOPl

ABN0P2
ABN0P3
ABN0P4
ACHECK
ACOUNT
AODCON
AOR

AEJECT
AEPONT
AEP62
AFORT
ALL
ALPHA
ALPHAB
AMAINP
AHM10
ANOS
ANLXC
ANLXE
ANY
ANYY
APAENO
APAGE
ASEND
ASPAST
ASSNO
ASSRST
ASSYIN
AWAY
AlW
B

BAO
BANOO
6ANKCH
8ANKEM
-BANKHR

6AN0P1
BANOPd
BAN0P3
BAN0P5
BBLOCK
6CHAIN
6EGNAS
BEGNLI
BINBLK
BINCK
BINHOR
BINPTR
BINTAB
BIT
BITT
B1T6

30 45
54 60
54 00

4254
0165
5516

553Z
5531
5457
7600
2400
34 45

5507
5505
3400
6054
6057
0020
23 67

03 57

0250
3120
0467
0434
0452
0451
0356
14 67

•1

A9A

9A
£0 7i
/X

2041

1 /I /

2432

C B / 10

0067
0070
0071
00 72
04 24

0340 0345 0346 0366
3103
1602 1733
0310
"*4''

04 41

0411
1527
_
1215 Z6B£

1116
2153
0421
0417
1463

0353

12 40

1 9 10
1

4 9A1
<o 1

05 13

01 7flA
f
V

i 1 1

1244
0321
1102
0376

1565 3003
0525 0553
2764 2770 2776

21 33
111^91
V<3C«J

71 4

1 0i9<i

110CX

007 7

9
X XXc

5477
0031
5506
5467
5503
5471

0332
0420
0366
0411
0370

0401

54 41

03 40

03 33

1241
1313
1076
6400
5031
0200
0220
0211
5024
5025
5026

1737
2011
1567
1326
0074
0512
0532
0523
0067
0070
0071

1^23 1727
1^ 2035
cvZ/ 9 AT 4 9a
cBOtf
1!>1/ 19cB
i 179
4 9TK
0115

50 27
50 30

00 72
00 73

4175
d024
5002
5000
0011
3020
4164
0010
0176
2047
3712
3400

3021
3575
0045
0043
0311
1551
3004
0310
0500
0554
2456
2102

2055

0231

0363

0331 0337 0437 0443 0446 0465 0564 1002

yA 7T
as
R
107 11?
05 40

0106
0110
0112
0114
0116
2^06 2617 3270 3524
1315
1553 2 363 2423 2647
1545
2664
1542 1546 1550 1551
1541
2456
2455
0366 2113 2126 2141

SYMBOL

VALUE

DEF

8IT6A
BIT6M3
8LKUSE

0064
3462
4340
5033
5036
5032

0366
2170
3301
0100

BLPM22
BITAD
BLTADi
BLTA02
BO OUT
Buri

BUFIN
BUFINZ
BUMP
61
Bil
62
821
C

CARET
CCDF
CCNOP
CHAR AC
CNARX
CHARX2
CHECK
CHECKO
CHEKER
CHKL
CHKLA
CHO
CHRC
CJMPl
CKUN
CLEARR
CIENUP
CNOP
CNTUPl
CNTNON
CNTRLP
COMMA
COMHAN
CO MM EN

COMS
CON
CONREC
CONSKP
CONVRT
CONYES
COSA
COUNT

CRFOUN
CRIOR
CTYPO
CURL IN
CURR
CURREN
CURSKA
CURSKP
CIA
DECIH
OECIMS
OECOUT

50 33

5034
0060
3350
4006
4177
07 26
1041
0434
1046
0103
1055
34 43

0753
63 04

0057
0044
0045
0740
5737
00 70

1264
1222
40 45

3354
1547
32 62

2132
1453
07 47

0004

2363
2353
0600
0260
3701
2036
6164
3725
3474
3600
3700
3541
0760
6010
1165
0763
0012
0043
0227
0066
2520
3576
2225
2231
0001

0101
0075
0076
00 77

3576
2027
2604
3023
13 23

1532
0755
1537
0405
1546
2151
1355
1456
0360
0345
0346
1342
1032
0372
1762
1720
26 43
20 33

0224
1740
0637
0127
1351
0302
1075
1064
1456
0574

REFERENCES

0i24
01 17
01 20
01 22

XC 1

2 014
Of,
xa
CO ou
23zy
2607 2615 35 35
1270 1312 13 24
1542 1 ^AX
0734 0744
0405 1550 1574
1111
K 9A
19<« 415Z4

3543
1325 1331

1774 2767
1526 1540

21 24
1 X*Lt
10

1453

0567 05 73 0616 0633
CC 1773 2007 0555 0556
aR*t 7 0711 072 0
11'
1347 1351
9A
CO AA
^o 4 lAA 7
n3 ax
1 '30
101 ^ t

*» »

26 24
*0 3540
20 06 2011 OA
CO AX
03 75 10 iffO C vc cc
17 31 1 74 4

0434 0127 0650
00 71
00 70 1 24 4 14 04 2725
IB 72
atx
^302 1 06 6 A1070

0540
0466
2502
2440
2340
2444

13^1
^^AA
»3 44 0254
AK o
05 40 £43
2
0546
4 Al A
1472 1474
1000 1627 1711
2453
2446 2454
flZA9
"Kl 014
oovi
2445 0073

22 70

22 55

1370
1151
1660

1167 1264 1265 1304
1143
1505 1546 1551 1553
1357
0406 0414 0425 0433
07 71 0774 0775 1002
1667
0530 1035 1655 2064
0370 1254
2324
2717
0732 0741
1407 0657 1240 1242

24 45

13 73

0312
0344
0542
0370
1246
2325
07 32

0736
0277

1314
1555
1247
1010

0173

1451 1471

1674

703 ?2l1

2?6? ??A4 ?72l 27?3 2724 B&57 1 «47 34SS

SYMBOL

VALUE

DEF

REFERENCES

OEFI Nl
0! AUBI

1174

1667
3605

1600
3004 3176
1313 1321
2665
2216 2576
0673
0252 0425
0143
2733
1103
0714 0731
0736 0723
0715
0733
0674
1430
1775 3013
0310 0500

D ! AU UN
DI SRE
01 SRET

Din
OOCAt
OOLEFT
DOLIST
DOPOUT
DPCS
OPCV
OP CV M2

OPCVOP
DRHT
DV3
06

07
08

£0£r IN
EMUEVE
EMPTRA
EMPTY
EMPT Yl
ENDMS
EN TS

ENTSl
EOCHK
EQCHKI
EQRETl
EQU
EQUALS
EQUCHK
n IP OB
EQUERR
ERONE
ERRCNT
ERROR
ERRl
ERR12
ERR2
ERSY
ERTOT
EVAL
ft

EXCIAM
EXPR
EXPRl
E7
FA CT OR

FORT
FIELDM
FINE NO
FIRST
FUOUP
FUOWO
FOUND
FSBUK
FSUNIT
FUDGE!
FU0GE2
G

01 11
01 00
40 01

3463
2126
1426
1474
0554
056 7
2212
2200
2242
0415
2111
2640
0300
0370
0410
0446
3771
21 30

01 72

2054
0061
37l 7
20 00
3267
2332
23 40
00 06
11 42

1400
o7oo
1140
01 67

3201
00 76

36 04

2576
2171
0633
0102
0151
1076
11 11

0717
0705
0747
0736
0616
1433
0246
0247
0250
0251
2561
0635
04 74
05 61

0363
2 471

05 01
17 45

1043
1051
03 04

1635
1460
2045
2555
1632
0471
1656
04 00
10 77

2364
2275
0674

1006
1245

00 02

03 00

0033

0334

2200
1000
0077
0000

1462
1471
0401
0245
3222
1510
1513
0700
1325
1501
0337
1231

43 30

2714
2717
2173
6110
2705
0036
25 07

4002
4003
0026
0077
1113

26 00

2601
3572
3573
1604

0520 0602
2060 3011

0726

2600 2637

2556
0571 0620
0576 0600 06 01 0622
03 63 0566 06 36
0110 1253
0700 0427
0525 0S31 0533 1745
1733

1^32
1045
1637
1572
1544
i051
1633
1544
^167
0400
0757

1050
1643 1047 2046
1572

2050
0645
1713
1671 1026 103 7

0 210
0 400

e^642

10 57
05 76 1012 1024 1027

ii56

0643 0644
0526 0S33 0535
0323 0324 0360
1524
1^401 1512 1605
d$l2 1020 1641
0:206

3213
0377
1507
0553
1271
2663
0534
1120
2613
2616
0211

2173
1033
1513
1630
1702

1504' 1515 1521

0426
1313 1371 1274
0207 1523 1543
1205 1213 1221
0147 0152
0145

05 22

1525 1527

2047 2157 2555 3250

SYMBOL

VALUE

OEr

REFERENCES

GENINI
GET
GETADR
GETADl
GETASY
GETASl
GETCHR
6ETIN
CETLET
GETS
GETSYM
GETSYl
GETVAL
GETYE
6ETYPE
GGGET
GSTART
GT YPOT
GYP

1703
1110
1200
1172
3242
0110

0401
1601
1676
166b
1720
0412

0275 0330 0370
1541 1573
1665 1700 1735 1736

00 67

03 71

3670
0441
2035

2434
0762

HI C

H6
!0X
10X1

IMINIT
IMMOVE
IHREAO
IMTYPO
IH2i5
IN

INAS
IND
INDl
INDIB
INOIC
INIT
INITI
INP
INST
INSYH
ITABIN
ITEM
JBHS TR

JBNOP
JBSMF
J8TEST
JEND
JJENO
JJSTAR
JNOP
JSTART
JUDGE
Kiusur
KLOOP
KL UG2
LBAO
LCB
Lcr
LCOUNT
LOT
LEAVE
LEFTHF

04 00

0107
5401
0365
3623
^676
0446
04 64

3567
1066
0052
1075
2037
0104
5132
5130
5131
5127
5126
0050
0073
0166
03 70

0364
03 66

4013
0060
0722
0055
3375
5133
0051
1707
5014

0203

1601
0412 1723 1726 1736
0/62
2435
0401 0537 2443 2447
0727
0543
04 11 0761 0767 0 772
1016 1516 1537 1571
0265 0 327 0334 0461
0675
0703 2316 2416
i273 1356
0753 1004 1017
1001
2302
1577 3007
0707 1422 1431 1435
1507 1511 1563 1564
0406 0560 2161
0760 1515 1536 1640
0172

02 01

01 56

0537
0721
04 11

0251
0703
2367
1262
0767
1005
2316
1557
0353
1566
0542
04 06

0202
0200
0177
0351
0375
0470
0706
0702
0704
2611
0361
1313
0356
2062

1737 174 3

3265 3544
0776 1003
1001

1610 1613

1677 2004

0164
0171
01 70

2003 172 2 1724
0125
1611 1744 1753 1770 0100
0622 0630 0636
0674
06 77
0361 2636 0203
0221 0167

0057

1311 2744
0650 1475 1477 1622 1625 0236
1767
0165
0135 0i4l 0311 0321 0335 0347
0413 1356
0105 010 7 0111 0113

17 32

04 33

04 12

1706
1734

0405
0435

05 71

1113
1112
0427
0434
1170
2701
2725

0432
1113
1110
1105
0102
1112
1152

0570
1730
1733
2452
40 75

4114
2170
6103
6662
66 52

6100
1274
1236
3340

02 07

0352
04 06

0422 0430
0423 0062

0420 0063
1162

10 75

2704 2731

06 75

06 67

1275
1552
1550
1272
1772

1227
1260 1266 1420 1435
1240 1250 1344 1417 15 06

17 34

2017

12 20

1775 2006 2010 2012 2025 2037
17 32 1745 1756
2001

SYMBOL

VALUE

DEF

REFERENCES

LEVEL
LFF
LFF2
LFIRST
LFTEST
LINENO
LINKDT
LINKI
LINKIC
LINK8
LINK8A
LISREG
LISTA
LISTHO
LISTl
LLB
UNCK
LNCKA
LNINST
LNKA
LNKAOO
INKMOO
LNKOR
LNKREG
LNKSUB
LNRT
LOK
L0KA2
LOK0
LOKl
LOUTP
LOWTHP
LPBACK
LPR
LPRENT
LPTEST
LP08C
LP08E
LSO
LSRTE
LSTSYM
LTA8
LTREAO
LWC
LWD
LWOE
LWOEFD
L10
L17
L7710
L777
MAIN
MAINEX
MAINSA
MAINSE
MAINSF
MAINl

1256
6032

1754
1174
1175
1274
1155
0432
2770
1575
2066
1417
2300
0125
1525

1717
1161
1165
1224
1202
0065
2763
1561
2047
1400
1417
0104
0234
0132
0075
1240

MA INIA

MASSIF
MESS
MESSS
MICRO

60 33

6102
6014
0130
415)2

1104
1370
2624
35 51

5062
2731
0003
1557

03 01

0234

66 54

15 47

3737
2146
1560
3062
4250
3303
1250
1452
4225

2517
0653
0235
1613
3113
1762
1746
0126
3066

1365

2063
1343
1504
1354

62 00

6314
6210
6212
6101
0140
6041
6664
6065
'62 4 4

60 71

6073
6661
1472
1454
4170
4005
^053
3477
3504
3507
6104
6305
5520
4174
1400
0072
1904
l4ll
1416
0101
0264
5426
3510
3520
0056

13 57

1273
04 42

1220
1553
1252
1413
1260

1766 1771

0345 3254 3411

2307 2315
0164 0411 0427 0562 1565 2035 2501 0046 0053

06 53 2523
0621 0651
0702 0251
1601
3106
S673
1705
0120
3060
2057 2072
14 00 1403 1406 1410
1441
1520
1447 1450 1451 1452
1222 1223 1225 1230
1267 1272 1562 1564
1146
2733 1251 1260 1266
1267
0137
1523

1423 1527
1454
1231

1345 1439 1506

12 63

1524

1551
0147
0131
3011
2603
0354
2206
2214
2224
1300
1466
0436
3017
0054
0374
0161
0065
0072
0403

1350 1145 1421 1437
0157
0373 0134 0140 01S0
26 33 3425
26 05 2632
1533 0710 0752 0770 0772 0777 1001 1421 1423 1434 1437 2320
2175 2203 2204 2212
2210 1530
1527
1247
1343
0325
2614
0374 0063
2474 0126 0166
0105 0421 0422
0403 0111 0163 0166 0174
0600 2561
0531 1036 1656 2065 1303 1512
0572
0306
2206

06 00

0325
2232
2242
0357

22 00

1623 1706

St MBul.

VALUE

DEF

REFERENCES

M I LH Ud
n i LK UL.

0005

H I NUS
4i
A \j C

5 200
41 3 6
1010 0 /

0303
0355
1465

1617 1746
1500 1502
1523
2712
0550 0672
1672 0356
0421
1056
1074
0547
ll76
0376 1051
0757 0763
0727 0761
0656
0755 0756
07 37 0740

MODE
nUN
HON I T

00 54

4101

1 Ot ^1

XI0 oi

02 62

057 6

00 74

03 76

0524
2265

07 75

1045

CC I o

7346
HT RL
MT SW
MT WO
MT 10
Ml
Ml A

971 9

1066

MO VA
nu va
nO VE
HO VE8
HT AO
MT DG

275l
<Xt
KfO Ath

9 OS 7

2251

0256
0766
0757
fl7*i<t

4 fl4A

1735
2171
0121
0414

Oil 1

Mi 40

60 60

4 9

1*^9

M154
H20
M212

0011
a*94

94 &9

04 R4

0453

9i% YS

12 63

M10
H1280
M12A

M2 2
H2 6

06 64

07 35

0216 0743
0730

4 J

9 A 9S

0135

M40
UA
n^it
M45
M47
M57
M6
H6 A
H60
M60A
M67

00 13

0313

0122
0125

04 27

H7
M7 TWO
H7 2

M7 7
IMA as If

NONER
NOS
N0TA81
N0TAB2
NO TBLK
NOTBLi
NOTLDT
num
nupage
NXCAND
OASSNO
OBIN

OBLOCK
08SET

€kA t«t

1141 1163
0101
1445
1457
2342
0334
0721
0627

1 054

14 76
07 01

1471
2537
vo&o
1577
2755
0614
0631
2362
1627
20 07
1313
1760
1131
1002
0756
1013

0733

901

2131
2256 1414 1431
26 53

0324

0365
14 26

05 44

24 26

57 20

1347
2i07
1157
1070
1251
2355
0725
1043
2104
0136
2000
0^12

1575
1715
0873 0403 1467
04 41 2357 14 70
0712
1376
0075
1510 1512
2505
0304 0504
1572
2775

0430

5735
5706

1053
1002

at; t A

36 62

1311
6106
1262
2413
5725

' kI

1632
175/
a9Rt

0126
2702
2174
6310
3756
KA9 A
3046
4137
2107
2124
3616
30 76

1557 11 7fll 0
1101 2673

0760 0773
0744
12 34 052 0 1516 1604
0730 0764
1046

06 76

1 v>0

1621

8450

1<9I0X

2034
3101
1261
19 /o

1616

00 76

0077
1627
1555
2002
1153
1731
1211
0624

2366
1171 1174 1253
1776 1777 2005

0655 0660 0744

07 35

0632 0722
06? 7 0736

SYMBOL

VALUE

DEF

REFERENCES

OCCRLF
OCOOIT
OCH£CK
OCPNT
OCT
OCTS
OCTSl
ocuses
OENO
06TVAI
OLOC
0L17
0L37 7
016400

5751
5743
4050
5753
2227
2235
1535
5776
5661
5724

1046

1035 1041
1043 1044

ONERCI
ONVRT
OOPUT
OPOINT
OPS
OPUT
OPl

ORGIC
OSANOV
OSYM
OUNIT
OUTP
OUTPUT
0UTTA8
OUTTP
OX

OXREAO
OXWRIT
PACHEC
PATTER
PAGEC
PA GEM
PAGEl
PA6HER
PAGSET
PASS
PASSEK
PASSER
PASSl
PASSiP
PASS^
PCFIG

PCHECK
PC LP

PCONT
PCOT
PCOUNT
PCI
PC2
PDLK
POOCAL
POOLLA
P0P8ER
POPS MO
PENDMS
PERIOD
PERMA

57 30

1037
26 46

26 66

1054
0734
0742
0212
1102
0673
1001

1037
2713
0212 0734
0064 0217
1033
0667 0700
0620
0634 067 4
0630
0675 0711
0633 0712
0107 0124
0306 0361
0656
0670 0673
0656
0364 1402
0621 0625
3134 3135
2753
1230 1405
1374
0631 0721
1266 2745
2627
063
0615 0632
1^1
ha 1
1276 4loel
1274
0347
0277

5726

10 05
10 03

57 32

1007

5731
1436
1704
2155
5667
57 27

2661
5654
4273
1345
2600
2613
5733
0705
5615
2156
2147
2625
2546
2547
5512
4270
0477
0516
0102
0510
3524
0035
00 65

3355
1401
1407
1537

10 06

0112
0402
0662
0706
1004
1455
0665
3150
2043
1373
1406
1011
1271
0620
0663
0654
1420
1310
1311
0424
3145
1020
1037
0404
1031
2253
0336
0367
2034
0055
0063
0214

60 37

1212

0141
6040
3522
3736
4133
6306
6307
4147
5513
5514
0253
3304
5515
4142
0032

0443
1213
2251
2513
2746
1467
1470
2765
0425
0426
0566
1763
0427
27 60

0333

«*

0745

0706 0707

0715

0126 0402

0717 0723
1473 1474
0671 0677 1004
3136 3137
1425 1444
1273

0661
1415 1441

27 37

1023
a*i OA
B9Z4
1031 2060 0125
1043
^372 2267 2274 2277
11 01 0 057 0161 0215
0527 1034 1654 2063
0367 2042 2043 2044
0054 0224
0223
0225
1172 1526
1303 1315 2726
1147 1525
2214 2215 2254 2270
2504
2701 2727
1350 1351 1511
1352 1513
2757 3000
0370
0352 0373
0562
2667
0372 0377
2757
0644 0055 1121 2550

SYMBOL

VALUE

DEF

REFERENCES

PCJS
PINP
PJEND
PJMP
PJNOP
PJSTAR
PLIST
PtOVR
PLP08C
PUP08E
PLTST
PLUS

3723
4131

2500
2744

2503 2512 2674

5017
5414
5037

00 62

PL 17

PL212
PL2i5
PMAINS
PM60A
POINT
POPUPl
POPUi
POSAND
POUTP
ppseuo
PRINIT
PRINT
PRSYHB
PRl
PR2
PR3
PR 4

PR5
PSEUOO
PSINTE
PS RET
PSTCHK
PSTS
PSUO
PSUOOl
PSUO 02
PSU003
PSUD04
PSU005
PSUD06

PSUD07
PSWITC
PTB
pTBurr
PTBUrP
PTHRCE
PTOCMC
PTX
PT2
PUNONE
PUNONX
PUSHl
PUSH2
PUT
PV8M0V
PXLl
PXL2
P1T037
P10

50 20

0555
0762
69 31

6932
0761
4600
4130
4135
4134
5510
0137
0047
4307
0106
2506
4132
4274
6X07
6000
2474
6^26
6227
6230
6231
6;^32

S410
1575
42 01

0261
4074
0334
4265
4264

0303
0102
0063
1077
1372
1523
1524
1371
1464

2727
1326
1514
1516
1305 1330
1522

27 41

27 32

2750
2747
0422
0441
0350
3167
0410
1230
2745
3152
1314
1140
1213
1373
1374
1375
1376
1377
0277
0252
3151
0575
2674
0652
3142
3141

42 63

31 '40

4262

3137
3136
3135
3134
0423
2645
2032
2031
0252
0254
1473
1474
1532
0422

4261
41^60

4257
55X1
4047
3353
3352
7325
1577
6312
6313
3001
0120
0105
2341
0710
5552
6333
6334
3425
1173

27 02
00 52

04 07

1052
1301
0501
1525
1526
2127
1666

0300
00 60 0 061
00 50

2722
27 20

0354 036 7 0374
0440
0076 1055 1061
04 10 3174
l604 l6lS 1614
1223
2703
3l44

1152 1154 1167
1X35
X360
1362
1364
1366
1370
3l52 0 37 5 0412
0101 0423
31 45 3147
0546
2672
0643
2637
^643
2647
2703
2633
2^57
2653
0350 8371
2627
2012
2002 2005 2013
0756 1164 2156
0067
1416 1424 1433
1415 1426 1432
0422 0213 1533
0114
1473 1476 1501
0407 1063
0277 1307 1316
0474
1515
1517
2106
1575 1576

SYMBOL

VALUE

DEF

REFERENCES

Pi00
Pll

3751
0015
2241
0145
0144
3456
3100
0147
0152
0153
0154
4041
0134
2704
0143
3450
3077
0131
3412
0124
0150
3460
3523
4046
2701
3461
5023
5021
5022
3770
0142
2703
3455
3457
0136
3316
0157
0155
0127
0146
0160
0156
4235
4246
3713
7774
2470
1171
1551
3663
0063
1751

2531
0315
0746
0447
0446
2164
1631
0451
0454
0455
0456
2637
0436
1500
0445
2156
1630
0433
2114
0426

2344
0724
0770
0555
2117
1547
1013
0520
1241
1237
2620
1406
1450
1673
2121
1560
0624
2111
1562

04 52

05 66 0 66 2 06 65

PI 2

P177
P1777
P2

P20
P200
P2000
P212
P215
P2270
P240
P260
P300
P367A
P377
P3777
P40T57
P400
P4 00 0
P41

P43
P4400
P45
P46
P4774
P4775
P4776
P5

P5000
P53
P54
P57

P6000
P6321
P7

P7400
P76
P7600
P77
P777
RAOO
RADDRT
RAND
READ
REJECT
REPUNl
RESET

RESETU
RESETl
REST OR

2166
2252
2644
1475
2167
0066
0064
0065
2560
0444
1477
2163
2X65
0440
17 75
04 61

0457
0431
0450
0462
0460
3100
3111
2461
3612
1206
1664
0226
2427
0365
0462

RE ST 01

02 63

05 77

RETURN

4051
0116
1600
4211

2647
0420
0263
3052
3064
2015
3002
1400
1402

RETl
RIOR
RSUS

RSU8RT
RTHFT
RWRITE
Rl
R2

42 23

3336
4163
6233
6235

10 77

2114

1742 0122
0616 1203
2122
1026
0746
2261
2263

1737
0764
1265
1144

2345 1434
1470
1702
2136

0632 1071
2405

2140
22 60

2626
1433
2151
0103
004 7
00 51

1901
1447
2147
2125
4 1154
54 1206 1240 1764 0242 1010 1015 1104
0i>cl 0564
1766
1670 1714 1467
1535 2010 2623

21272

0773
0312
1057
1661

0777 1012
0322 0605
0 753

3112

3123
1663
1134
1145
1635
0404

2464
2051 2603
1171

0232
0365 2433
0S23 1772
0577 1664 0451
0543
0420
24'73

1660 0272
1662 3065
3077
2007
2663
lS57
1361

H07 1614 1741 2312 2371 2411 2431 2771

SY HBOL

VALUE

OEF

REFERENCES

R3
R4

6237
6241
6243
2023

1404
1406
1410
0324

136 3

SAOR

SADROV
SAMES
SAVE
SAVE!
SCHl
SCLEAR
SCOLON
SCRATC
SCURR
SOECOl
SDCC06
SEARCH
SEARCl
SEARl
SEMFDG
SEMITX
SEMITZ
SEHPtr
SEND
SETINU
SETORG
SETUSE
S6N
SIT
SKIP
SKIPAS
SKIP2
SU77 7
SH370
SNUM
SOHEW
SOPS
SPACE
SPACK
SPCUNT
SPECAL
SPT068
SQERR
SQFORT
SROl
SREADi
SR ITIC

STAB
STOUMP
STEXO
ST GET
ST INTO

STLOOP
STNOOU
ST NOT
STOCHK
STRING
SUBCON
SWITCH
SWOT

SWDTA
SWDUT

2033
3073
1736
0265
0433
0132
0200
0025
0026
0112
0600
0266
0272
3270
2573

0535
1624

0447
0602
0754
0434
1455
3574

0327
0414
1151
0604
0610
1746
1355

25 61

13 40

3440
2574

0062
5600
3744
0173
0416
1705

2144
1356
0330
0501
0175
2417
0335
3176
0377
0334
1404
3163
3164
0473
3071
0364
1466
2524
0475
0737
0403

17 02

04 00

1701
0115
4275
0113
0675
1667
1175
1641
1624
1616
1673
1661
3757
1610
4232
0170
1556
2172
4317

0377
0417
3153
0415
1246
0360
1670
0327
0311

00 27

0177
1520
3653
0034
4315
0075
5435
0764
4304
4305
0171
42 27

03 03

0364
0347
2545
0275
3074
0472
0233
0677
3200

1365
1367
0613 0641
05 13 0514
0523
1620
0602 0456
0605
0743
0342 3253
1525
1323 324 5
060 6 0 61 0
0611 1645
0414
BP / O

017011

1163
0516

3410

0646
0464
1405
0754

0713
1727
1346
13 45
21 12

1351 2144

1347
07ll 0056 0502 0532 1133 0467 0511
1556
0220
0061 021
2365 2424 2641
1534
1506
1503
3046 3 160
0670 1252 1377 1576 1605 1611 1670 1705 2356 3431
0312
0377 1412
30 43 3155
3042 3154
05 45 1152 1153
3053 3061
1250 1666 2202
1521 1540 1573
0675 2535
007 4 0 344 2360 2520 2530 2533
0724 0732
0343
0354 0355
0367
2421
04l7
2364 2650
il62
03 04 0320
1245 0535
0300 0303 0317 0333 0346 0353
0302
0325
0301 0371
0337
0575 2552
2723
3055
0610 0625 0672
0142 0156 0677
0641
30 4 4 3156

SYMBOL

VALUE

OEF

REFERENCES

SWRC
SWl
SW2

4201
6035
6036
0174
0114
3373
4000
2402
1503
3102

3041
1202
1203
0476
0416

0415 3047 3151

SYB
SYCR AP
SYM8
SYMBLP

SYM8U
SYMBUF
SYMF IX
SYMLOO
SYMLST
SYMOVfl
SYMS AV

SYREAD
SYSIN
7AABA
TABA

TABLE
TACK
TATA
TBCONT
TEMP
TEMPA
TEMPI
TEMl
TEMl A
TEM2
TEM3

TERMC
TEST
TESTC2
THOU
TIC
TOP

TOUSE
TWOCH
TWOCHR
TYBASE
TYCAR
TYCARl
TYPAOD
TYPAOl
TYPE
TYPEA
TYPO
U8ITS
UN

UNOERR
UNITAS
UNREF
UNTRAN
UPLN
USEONO
USES
USYM8
VADR
VAL

VALK

VASSNO

63 35

5553
0071
6336
5533
3372
3317
0362
3441
3271
14 34

3532
0175
0007
2510
6034
0161
00 40

0162
0163
0000
6252
6267
'3570

2274
0367
4043
2144
2073
2400
2510
0100
0622
0111
0021
0014
2527
4321
1105
2317
41^77

20 60

1457
1120
0160
1633
1527
0502
0373
1530
0461
20 51

1776
0700
2147
1750
0110
2261
04 77

0305
1264
12 01

0463
0341
0464
0465
0266
1421
1437
2317
1005
0705
2641
0651
0600
1546
1236
0402
1173
0413
0322
0314
1255
3211
1576
1030
0244
1716
1442
2353
3277
2642
1461

3240
2647
3607
4337
4044
2000
0022
0024

0325

0025
5603

0326
0564

03 23

1151
1166
0575 0646
06 47

1771
1520 1542 1653
1224
0416 0144 0145 0146
0476 0160
l354
0307
24 41

1355
03ll
1770
0371 2016 2026
0715
2116
1654
0171
22 66

0574 0660 0663 0671
0663 0667 1060 1061
1155 1156 1162 1254
0620 0742 2032 0507
1124 1126 1130 1147
0626 0741 2034 0512
0634 0740 2036 0515
0350 0375 0550
1425 1427
1443 1445
2763
0754 0762 1000
0637
2622
0634
0652
1400 140 3 1406 1410
0402 1245 1264
0310 0363 0635 1117
04l3 1175 1243 1244
0570 1652 0527
07 45 0752 0763 1006
1176 1177 1762 0452
1373 1262 0133 0135
0501 3217
2767
1760 1042 1716
1660
1436
2361
2642
2651
1517
0557
0671
2314
0653
0562

1671 1675
1440 1453
2522
1102
2655 2660
1543 1734
0655 1166 1650
0750 0751 0766
0670 0247

C V MDftl

VALUC.

nrr

REFERENCES

TAW
AM
V ULL

5602
0017

0562

0571

02 35
05 37

02 51
04 73

\lf*i

VC rO i U
1 in
VI N

VL67 77

VCRSRV
VPRSRW
VR E A D

55 73

5565
5951
5572
0^73
0 777
5610

VRSTR

05 72

VR ST RR

0576
4331
56 11
5604
5607
5600
4042

VS A V E
VT AB
VV INI
VWR! TC

0514
0500

0536
1427
1437
05 76
11 24

1134
32 43

4252

0602
0567
0575
0557
2640
2030
3116

43 06
7775
42 10

3613
3051

51 54
53 53

32 70
35 43

XCER

5134

3247

yf*
rlA 1T M
Aw Ul
n

25 36

12 74

5044
5122

3301
3133
3227

V SHOVE

WON
WQHA LP"

HHERE
WREAO
NR ! TE
WW RITE
AO DL '^'^
AD wr 1 n

33 51

AW Uni

XDONEl
XGET
XH AL, F

XI NI T
X I NTOX

31 66

51 51
51 55
53 34
tsi
OK
cZf ox

32 65
32 71

3524

5034

^9 11

010 » /

nnv?

790X

XI
Ox 1X 7/

53 4 7

w
aL A
VI

44
PO O /
<Sl

AUw ' '
VI lAaA
AU ' ^

32 61
35 37
Oc VW
0* < '

3536

Xt. 77 70

5342

XH100

53 4 0
5«i 7R

3532
35 30
1357

AL /

111

VUt

XM26

32 67

3171 3203
34 23

3116

3111
3130
3417
3247
3351
3414
3070 3150
3357
33 53

33 00
31 01

32 73

3221 3533
13 00
1275 1302
3074 312 7
1344 1350

5146
5152
5150
5147

5143
5310
5025
5157

2550
2555
5064
2576

1312
1321
3161
1360

XPP
XPSEU
XPUT
XP46
XREAO
XRESET
XRIGHT

32 30

34 55
31 13

XH40
XH43
XM47
XH9

34 73

3100 3112 3114 3115 3120 3131 3140 3510
2623
3123
3121
3077 3113

3263
3257

Art ^

XNMl
XOKl

0501

2625
2000 2 02 0
3101 3107
5157
1437 3002 3051 0476 0575
3045
3067

1341
34 30
3364
3107
3J31
3103
3217
3137 314 6

53 35
53 44

l432 0536
1430
0567 0734
1127 0537
1125
1126 1 431
0560 0570
0514
0^57 0720

12 77

XL OOPl
7

0512

0bl3
04 70 0510
04 66 0505

3534
32 62

3266
32 64

53 36

35 26

33 47 3 42 4

5112
5104

3214

3072 3076

32 02

31 72

SYMBOL

VALUE

OEF

REFERENCES

5156

3272

3177 3204

53 33

5166

3523
3307

53 21

34 7 0

5354

XTH
XTHIS8
XXFH
XXGET

S4 22

XXL

53 45

XXtOOP
xxlp
XXMESS

5214

3544
3535
3355

3071 3151
3427 3 43 4
3340
3413
3506

52 25

33 66

33 76

5277

34 42

XX
3
XXN

53 41

35 31

34 32
33 43

5202
51 60
5161

3342

3257 3354

XX Nl

XXN2
XXN3
XXN4
XXP
XXRET
XXT
XXXP
XXXR
XXXX
XXY
XXI
XX2
XX3
YPl
YREAO
YWRITE
2ASSir

51 62

5163

32 74
327!5
32 76

3277

53 43

35 33

33 62

5172

3322

3475

52 71

34 32

34 36 3 43 7

5164
5200
5000

3300

3124 3125

33 40

33 45

3066

1312 3322

53 27

35 05

33 74

5350

3540

3415

53 51

35 41

34 16

5352

3542
0520
0477

3420

5550
55 47

04 76

04 71

5425

0324

0305

55 66

04 72

0506

3405

0507