Digital PDFs

DEC-12-EOSA-D

December 1971

56 pages

Original

1.8MB

Document:	dec-12-eosa-d
Order Number:	DEC-12-EOSA-D
Revision:
Pages:	56
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-12-eos/dec-12-eosa-d.pdf

OCR Text

TED

DEC-12-EOSA-D
F i r s t Printing

June

1971

T E D

(Tape E D i t o r )

For a d d i t i o n a l c o p i e s , o r d e r DEC-12-EOSA-D from D i g i t a l
Equipment C o r p o r a t i o n , Program L i b r a r y , Maynard, Mass. 0 1 7 5 4
P r i c e $5.00

Your attention is invited to the last two pages
of this document. The "HOW to Obtain Software
Information" page tells you how to keep up-todate with DEC's software. The "Reader's Comments"
page, when filled in and mailed, is beneficial
to both you and DEC; all comments received are
acknowledged and are considered when documenting
subsequent manuals.

The material in this handbook is for information purposes and is subject to
change without notice.

1971

Digital Equipment Corporation

The following are trademarks of Digital
Equipment Corporation, Maynard,
Massachusetts
DEC
FLIP CHIP
DIGITAL
OMNIBUS
GLC
DDT

PDP
FOCAL
COMPUTER LAB
UNIBUS
LABCOM

CONTENTS

Page

1.0

INTRODUCTION

2.0

HARDWARE R E Q U I R E M E N T S

3.0

L O A D I N G PROCEDURE

4.0

USAGE

5.0

CORE LAYOUT

6. Q

INTERNAL DESCRIPTION

7.0

ASSEMBLY I N S T R U C T I O N S

iii

1.0

INTRODUCTION

TED (Tape E D i t o r ) a l l o w s s e l e c t i v e m o d i f i c a t i o n of any s p e c i f i e d b l o c k

of t a p e o r disk via, a CRT d i s p l a y and s i m p l e keyboard commands.

Ten

l o c a t i o n s o f t h e b l o c k a r e d i s p l a y e d a t a t i m e w i t h a movable c u r s o r .
Multi-word a s w e l l as s i n g l e - d i g i t changes a r e e a s i l y accomplished.
2.0

HARDWARE REQUIREPE'NTS

TED w i l l r u n o n any PDP-12

3.0

system t h a t s u p p o r t s DIAL-MS

LOADING PROCEDURE

T h e program u s e s the DIAL-MS

I/O

r o u t i n e s f o r i t s i n p u t and o u t p u t , and

r e a d s t h e r/O r o u t i n e s from a system d e v i c e ( t a p e u n i t P, i f t a p e system
or disk unit

i f d i s k system).

T h e r e f o r e , b e f o r e l o a d i n g , make s u r e

t h a t the system has been i n i t i a l i z e d (by s t a r t i n g a t 7 3 1 a ) f o r the p a r t i c u l a r machine c o n f i g u r a t i o n b e i n g used.
The program i s l o a d e d by t h e command

where u = u n i t .
mode.

Starting address, i f not self-starting,

A f t e r t h e program h a s been s t a r t e d and t h e I / O

i s 4p120, LINC-

routines read

i n t o c o r e , t h e t a p e on u n i t p1 may b e dismounted i f d e s i r e d .

4.0

USAGE

A n i n i t i a l QANDA ( q u e s t i o n and answer) frame w i l l a p p e a r
TED

(Tape E d i t o r )
READ BLOCK----

FROM UNIT,-

Legal b l o c k s a r e pI88j3-7777 and l e g a l u n i t s are 8 8 - 7 7 .

I f nonexistent

b l o c k s o r u n i t s are s p e c i f i e d , r e s u l t s a r e q u e s t i o n a b l e .

A nonexistent

u n i t s h o u l d g i v e a "NO" message; t y p e RETURN t o r e t u r n t o D I A L , o r res t a r t a t 4820.
'LAPG-DIAL-MS

i s r e f e r r e d t o a s DIAL-MS.

Once t h e b l o c k and u n i t have been s p e c i f i e d ( i l l e g a l c h a r a c t e r s w i l l
c a u s e t h e frame t o be r e d i s p l a y e d ) , t h e b l o c k w i l l be r e a d i n t o c o r e
and t h e f o l l o w i n g d i s p l a y w i l l a p p e a r .
UNIT XX
BLOCK XXXX

LOC / CONTENTS

ggg / xxxx
gg1 / xxxx
gg2 / xxxx
gg3 / xxxx
%94 / xxxx
gg5 / xxxx
,0@6 / XXXX
gg7 / xxxx

xx
xx
xx
xx
xx
xx
XX

The e x t r e m e r i g h t column g i v e s t h e two 6 - b i t ASCII e q u i v a l e n t s o f t h e
o c t a l number.

Most o f t h e s e a r e o b v i o u s ( g l = A , e t c . ) , b u t t h e r e a r e

a few e x c e p t i o n s :
43

( D I A L code f o r c a r r i a g e r e t u r n ) i s d i s p l a y e d a s a
curved down-arrow

( D I A L code f o r TAB) i s d i s p l a y e d as a h o r i z o n t a l
"T" ( 4 )

(Back-arrow) i s d i s p l a y e d a s s u c h even though DIAL
i g n o r e s i t (-+I-

w ).

The c u r s o r f i n i t i a l l y under t h e f i r s t d i g i t of t h e c o n t e n t s of l o c a t i o n ~ 3 , may be moved by p r e s s i n g t h e f o l l o w i n g keys ( t h e r e i s no T e l e type' echo).
Key

DIGITS

Action

SPACE

Moves c u r s o r one d i g i t t o r i g h t

RUBOUT

Moves c u r s o r one d i g i t t o l e f t

RETURN

Moves c u r s o r down one l i n e and t o l e f t

ALTMODE

Moves cursor up one line and to left

,0 - 7

When a d i g i t i s t y p e d , t h e nurrber t y p e d r e p l a c e s
t h e d i g i t under which t h e c u r s o r i s l o c a t e d .
The
c u r s o r t h e n moves one s p a c e t o t h e r i g h t .

The "window" may b e moved t o d i s p l a y new l o c a t i o n s by t y p i n g t h e f o l lowing keys.
' T e l e t y p e i s a t r a d e m a r k of t h e T e l e t y p e C o r p o r a t i o n .

Action

Key
CTRL/F

Advances window by 18; t h u s , i f i n i t i a l l y
l o c a t i o n s j3j38-pIj37 a r e d i s p l a y e d , CTRL/F
w i l l c a u s e l o c a t i o n s @1@-@17t o be d i s played.

Same as CTRL/F, e x c e p t by 1.

CTRL/B

Backs up window by 18 ( j u s t t h e r e v e r s e
o f CTRL/F)

Backs up window by 1 ( t h e r e v e r s e o f F ) .

LINEFEED

P o s i t i o n s t h e window s o t h a t t h e s p e c i f i e d
l o c a t i o n i s a t t h e t o p of t h e window.
(371-377 p o s i t i o n t h e d i s p l a y such t h a t
378 i s a t t h e t o p o f t h e window.)

+ a number
t o 377

LINEFEED

+ s

Searches t h e block s t a r t i n g a t t h e curr e n t location (location displayed a t the
t o p o f t h e window) f o r t h e c o n t e n t s of
t h e Right Switches masked by t h e c o n t e n t s
o f t h e L e f t Switches.
I f t h e search is
n o t s u c c e s s f u l , t h e window i s p o s i t i o n e d
t o l o c a t i o n zero.
I f t h e s e a r c h i s successful, the location with the desired
number i s p o s i t i o n e d a t t h e t o p of t h e
window.
E x c e p t i o n : I f a match i s found
i n l o c a t i o n s 371-377, t h e window i s s e t
s t a r t i n g a t l o c a t i o n 37% and t h e c u r s o r
i s p o s i t i o n e d under t h e f i r s t o c c u r r e n c e
o f t h e matching number.

I n a d d i t i o n , i f a t any t i m e t h e c u r s o r i s a t t h e b e g i n n i n g o r end
of t h e window and a command i s g i v e n t h a t would move t h e c u r s o r
beyond t h e window, t h e window w i l l be moved t o g i v e t h e d e s i r e d

result.

Thus, i f t h e c u r s o r i s on t h e l a s t l i n e of t h e window and

RETURN i s t y p e d , t h e whole window w i l l move up 1 frame.

I f t h e window i s a t

o r 377, a t t e m p t s t o go beyond t h e ends are

ignored.
Various o t h e r keys a r e used t o c o n t r o l t h e r e a d i n g and w r i t i n g
of t h e b l o c k s :
Action

Key
CTRL/R

Rereads t h e c u r r e n t b l o c k (RESTORE).

CTRL/C

R e t u r n s t o i n i t i a l QANDA d i s p l a y .

Writes back t h e c u r r e n t b l o c k , w i t h any
changes, and r e t u r n s t o t h e i n i t i a l d i s Play.
'A CTRL/F i s t y p e d by h o l d i n g down t h e CTRL key and t y p i n g t h e l e t t e r F.
CTRL/W

Action

Key

5.0

CTRL/N

Reads i n t h e n e x t s e q u e n t i a l b l o c k (does
not w r i t e ) .

CTRL/P

Reads i n t h e p r e v i o u s b l o c k ( c u r r e n t
b l o c k - 1).

CTRL/D

R e t u r n s t o U I A L ( a c t i v e d u r i n g most
q u e s t i o n and answer d i s p l a y s ) .

CORE LAYOUT

SEGMENT 8

A l l t h e d i s p l a y r o u t i n e s and p o i n t e r upd a t e r o u t i n e s , e x c e p t f o r QANDA.

SEGMENT 1

L o c a t i o n s 8-377 a r e t h e t a p e b l o c k b u f f e r .

SEGMENT 2

The code t o c a l l t h e QANDA d i s p l a y s and
i n t e r p r e t t h e answers i s h e r e , p l u s t h e
I/O calls.
Also i n t h i s segment a r e t h e
QANDA t e x t frames.

SEGMENT 3

QANDA i s i n l o c a t i o n s g-777

o f t h i s segment,
a l o n g w i t h r o u t i n e s t h a t a c t u a l l y JMP t o
QANDA i t s e l f , s i n c e QANDA can o n l y be
c a l l e d from i t s own segment.
The DIAL-MS
I/O r o u t i n e s a r e i n l o c a t i o n s lag$-1777
( a b s o l u t e 7888-7777).

FIELD 1 i s e n t i r e l y f r e e .

6.0

INTERNAL D E S C R I P T I O N O F TED

O p e r a t i o n o f TED i s q u i t e s t r a i g h t f o r w a r d .

The d i s p l a y i s c o n t r o l l e d

by t h r e e main p o i n t e r s , RBASE, L I N E , and LINPOS.

By s e t t i n g t h e s e , t h e

display routines a r e set t o d i s p l a y t h e d e s i r e d information.

RBASE

p o i n t s t o t h e word t h a t i s t o be t h e t o p o f t h e d i s p l a y "window".
can r a n g e from

t o 37%.

RBASE i s added t o BASE

(the actual starting

a d d r e s s i n c o r e of t h e t a p e o r d i s k b l o c k b e i n g worked o n ) t o p r o v i d e
a p o i n t e r t o t h e c o r e l o c a t i o n of t h e f i r s t word t o be d i s p l a y e d .
i s t h e " r e l a t i v e b a s e " o f t h e window.

Note t h a t BASE i s

28pIg, which

i s l o c a t i o n 8 o f an LMODE d a t a f i e l d and a l e g a l PDP-8 c o r e l o c a t i o n
I f BASE i s changed, b e c a r e f u l t o check f o r
p o i n t e r a t t h e same t i m e .
LMODE r e f e r e n c e s t h a t depend on it

t r o l t h e p o s i t i o n of t h e c u r s o r .

b e i n g 2$$38.

L I N P O S and L I N E con-

L I N E can r a n g e from % t o 7 and i n d i -

cates which o f t h e e i g h t l o c a t i o n s c u r r e n t l y b e i n g d i s p l a y e d on t h e
scope t h e cursor should be under.

LINPOS r a n g e s from @ t o 3 and i n d i -

c a t e s t h e d i g i t on t h e l i n e .

L I N P O S may b e t h o u g h t of a s t h e "X" and

L I N E t h e "Y" o f t h e c u r s o r ,

though t h e y must be changed t o a c t u a l scope

c o o r d i n a t e s be f o r e d i s p l a y

.
4

There are three major d i s p l a y r o u t i n e s .

One o f t h e s e i s QANDA which

i s used t o d i s p l a y t h e t e x t "BLOCK XXXX, UNIT XX, LOC, CONTENTS."

The

QANDA i n t e r n a l keyboard check i s removed t o p e r m i t s c a n n i n g of charac-

t e r s by t h e main program.

The check i s p u t back i n when t h e f i r s t

q u e s t i o n frame i s b e i n g d i s p l a y e d .
DISCUR t a k e s t h e p o i n t e r s LINPOS and L I N E and c o n v e r t s them t o a scope

(X,Y), t h e n d i s p l a y s t h e c u r s o r .
DISlfl d i s p l a y s t h e l o c a t i o n numbers, t h e o c t a l c o n t e n t s , and t h e ASCII
e q u i v a l e n t s o f t h e t e n c o n s e c u t i v e l o c a t i o n s p o i n t e d t o by RBASE.

u s e s t h e QANDA c h a r a c t e r p a t t e r n t a b l e f o r t h i s p u r p o s e , b u t DISlB
h a n d l e s i t s own DSC i n s t r u c t i o n s .
When a key i s t y p e d , a n o p e r a t i o n d i s p a t c h r o u t i n e s c a n s a l i s t o f
c h a r a c t e r s and t r a n s f e r s c o n t r o l t o a number o f l i t t l e r o u t i n e s dependi n g on t h e key t h a t w a s typed.

I f "F" i s t y p e d , f o r example, c o n t r o l

goes t o t h e K F r o u t i n e .
LINEFEED

i s a s p e c i a l case.

When a LINEFEED

i s typed, t h e terminating

34 i n t h e QANDA t e x t s t r i n g i s moved from i t s i n i t i a l l o c a t i o n followi n g "CONTENTS" t o a l o c a t i o n immediately a f t e r t h e "=" s i g n .

This

p e r m i t s t h e " = " t o be d i s p l a y e d i n t h e lower l e f t c o r n e r of t h e scope.
I f an " S "

i s t h e n typed,

t h e 34 i s moved back t o i t s o r i g i n a l l o c a t i o n ,

t h e l e f t and r i g h t s w i t c h e s are r e a d , and c o n t r o l goes t o t h e "GOTS"
routine.

I f a d i g i t i s typed, it i s p l a c e d i n t h e t e x t s t r i n g immedi-

ately after the

"=I'

and t h e t e r m i n a t i n g 34 i s moved o v e r one h a l f word.

Up t o 3 d i g i t s may be typed: a f t e r 3 d i g i t s , t h e o n l y l e g a l c h a r a c t e r s
a r e RUBOUT (which backs up t h e 34 one h a l f word) o r c a r r i a g e r e t u r n
(which causes t h e 3 - d i g i t number t o be d e c o d e d ) .
eras e t h e

= I'

RUBOUT can a l s o

s i g n ; i n t h i s c a s e , t h e 34 i s moved back and t h e o r i g i n a l

d i s p l a y resumed.
7.0

ASSEMBLY INSTRUCTIONS

TED i s assembled a s r e q u i r e d by t h e DIAL A s s e m b l e r .

r e c t sequence i s :
+ZE)
+AS T E D , d
+ S B TED,u,LJ

Cu=unit I
Cfor load

go)

Briefly, t h e cor-

0000
00 0 1
0002
0003
0004
0005
0006
00 07
00 10
0011
0012
0013
0014
0015
00 16
0017
0020
0021
00 22
0023
00 24
0025
0026
0027
0030
00 3 1
00 32
00 33
0034
00 3s
0036
0 0 37
00 40
00 4 1
0042
0043
0044
0045
091 46
0047
00 50
0051
0052
00 53

'20
/
/
/

O ~ Q I C Q

TED

OOQOQO

TAPE E D I T O R

/COPYRIGHT 1971
/ D I C 1 TAL EQU I P MENT C O R PO R A T 1ON
/MAYNARD, MASS,
01754
/
/

/ALLOWS S E L E C T I V E E D I T I N G OF ANY TAPE OR
/ D I S K BLOCK,
CONTROL KEYS ARE4
/

/CTRL/R
RE-REAO CURRENT BLOCK
/CTRL/C
RETURN T O I N I T I A L D I S P L A Y
/CTRL/W
WR I T E CURRENT BLOCK, RETURN T O I N IT I AL 0 I S P L A Y
/CTRL/N
READ NEXT S E Q U E N T I A L BLOCK
/CTRL/P
READ P R E V I O U S BLOCK (CURRENT B L O C K - 1 )
/CTRL/O
RETURN T O D!AL
/
/FOR E D I T I N G :
/<RE TURN >
MOVES CURSOR OOWN 1 L I N E
/<AL THODE)
MOVES CURSOR U P ONE L I N E
/< F>
MOVES WINDOW DOWN ONE L O C A T I O N
/<B>
MOVES WINDOW UP ONE L O C A T I O N
/ < CTRL /F >
SAME AS F , EXCEPT $0
/ < CTRL /B >
SAME F O R B
/ D I G I T S 0-7
REPLACE D I G I T CURSOR 1 s UNDER
/<SPACE >
MOVES CUROSR O V E R 1 D I G I T
I<RUB0 UT >
MOVES CURSOR BACK 1 D I G I T
/<LINEFEED*NUMBER>
MOVES WINOOW TO THAT LOCAT I O N 0 0 0 - 3 7 0
/<LINEFEED*S>
SEARCHES S T A R T I N G AT CURRENT L I N E (TOP OF WINDOW)
/
FOR RSW MASKED B Y LSW
- 9 -

- 0 -

- 9 -

- 9 - 9 -

-9-

/STARTING

ADDRESS IS 4 0 2 0 , L I N C M O D E

/ I N THE I N T E R E S T OF REDUCING N O I S E P O L L U T I O N ,
/THERE IS NO T E L E T Y P E ECHO
/

/S GW
13 / 7 1
/
/

EJECT

/PAGE 0

8: 5554

00 56
0057
0060
0061
00 62
0063
0064
0065
0066
0067
0070
0071
0072
00 73
0074
00 75
0076
0b 77
0100
0 10 1
0102
0103
0 104
0105
0106
0 1 07
0110
0111
0112
0 1 13
0114
0115
0116
0117
0120
0 1 21
0 1 22
0 1 23
0124
0 1 25
0126
0127
0130
0131
0132
0133
0134
0%35
0 1 36
0137
01 40
0141
0 1 42
0

PMODE
/

*l 0
0010
0011
00 12
00 13
0014
0 0 15
0016

0000
00 00
00 00
0000
OB00
0000
0000

0020
0021
00 22
00 23
0024
00 25
0026
0027
00 30
00 3 1
00 32
00 33
0034
00 35
00 36
0037
00 40
0044
0042
00 43
00 4 4
00 45
00 46
0047
0050
00 5 1
00 52
00 53
00 54
00 55
00 56
0057
00 60
0061
0062
0063
0064
0065
00 66
0067
00 70
0071

0000
0000
00 00
00 00
0000
00 00
4 132
00 00
77 70
00 00
67 27
0000
00 77
77 40
3443
43 56
00 20
0377
0000
6476
76 72
7401
00 07
7774
4141
0600
05 22
74 10
7 4 20
00 10
77 7 1
7520
0370
00 12
00 00
0000
20 00
0 1 62
00 43
0034
00 00

63 67

COUNT1, 0
COUNTZ, 0
GETBNTt 0

PUTPFIT,
PUTB,
PATPNT,
XTEMP,

0
0
0

0
*20
WROCNT, 0
MASK,
0
MATCH,
0
LINE,
0
LINPOS, 0
HOLD,
0
EXIT,
DLOOP
TEMP t
0
Mia,
-10
XCOR,
0
102,
Q2
YCORI
0
P77,
77
M40 8
-40
P3443,
3443
SLASH11 FRAME2427
P20,
20
P377,
374
WORD,
0
BNUM I
NUMB A T !2000
PCRMS,
+215-323
M377,
-377
P7 I
7
M4 I

/ M A S K FOR "S" C O M M A N D
/ C H A R , T O M A T C H ON "S" C O M M A N D
/ L I N E CURSOR IS O N , 0*7
/ D I G I T C U R S O R IS ON, 0 - 3

/HOW T O G E T BACK T O D I S P L A Y LOOP
/X
/A
/Y

O F D I G I T B E I N G DISPLAYED
QANDA T H I N G
O F D I G I T B E I N G DISPLAYED

/WHERE THE C H A R , PATTERNS ARE
/*CAR,RET,
"S"
0

-4

IDISPLAIDI SPLAY
I D I S 1 0 # DIS10
I D ISCUR, 01 SCUR
M3701
-370
M360,
-360
Pia,
10
H7 I
-7
M260,
-260
P370,
370
P12,
12
CURY,
0
CHARI
0
BASE,
2080
MCRRUB 12154377
P4 3,
43
P34 I
34
RBASE,
0
LNOPUT 8 FR AME2*40 ! 6000
EJECT

/ P O I NTER T O 01 SPLAY E V E R Y 1 I N G
/POlNTER T O DISPLAY WINDOW

/PO!NTER

T O D I S P L A Y CURSOR

OF CURSOR
/TEMP, FOR K E Y TYPED
/WHERE THE BLOCK IS
I-CAR,RET,
+ RUBOUT
/ C A R , RET,
/B ACKSLASH
/ R E L A T I V E BASE OF " W I N D O W
/WHERE T O PUT 3 D I G I T S TYPED AFTER "LINEFEED"
/Y

0143
0i44
0 1 45
0146
0147
0tS0
01 5 1
0152
0153
0154
0 1 55
01 56
.
I

00 72
00 73
00 74
00 75

0076
00 77
0 1 00
0101
0 1 oa
0103
0 1 04

7774
7775
57 72
77 76
5773
77 77
72 00
0100
0034
0022
08 02

RE AD p
WRITE,
P5772,
P7776,
P5773,
P7777,
PMOVE,
SY SBLK t

77 7 4
77 75
57 72
77 74
5773
77 77
72 00
100

34
22
2
EJECT

/MS

DIAL P O I N T E R S

/SYS U N I T
/e6000
I B L K 22
12 B L K S

0 1 57
0160
0161
0 1 62
0163
0 1 64
0165
0166
0167
0170
0171
0 1 72
0173
0 1 74
0175
0176
0 1 77
0280
02 0 1
02 02
0203
0204
0205

02 e6
02 07
82 1 0

e21 1
0212
02 13
82 14
02 15
0216
0217
02 20
02 2 1
02 22
02 23
0224
02 25
0226
02 27
02 30
0231
02 32
0233
8234
0235
02 36
0237
0 2 40
02 4 1
0242
0243
02 44
0245
0246
0247
0250
0251
.
)

PACE
/COME HERE AFTER L I N E F E E D S
/

0200
0201
02 02
0203
0204
020s

7346
40 16
30 25
1071
30 14
6 14 1

0206
02 07
02 10
02 11
02 12
0215
02 14
02 i S

20 66
13 40
23 56
10 00
00 67
1340
6367
00 02

KLFi

CLA CLL C M A RTL 1 - 3
DC A
XTEMP
/3 D I G I T S
DC A
HO LD
/ Z E R O OUT NUMBER
TAD
DC A

LNOPUT
PUT8

/ T E X T FRAME A D D R ,
/OF WHERE TO P U T NOS,

P4 3

/ C A R R I A G E RETURN
/ZAP F I R S T B A C K S L A S H

LINC
LMODE

02 16
02ii
0228
0221
02 22
02 23
02 24
022 5
0226

4450
6031
$216
4036
30 63
10 63
10 45
7450
5314
8223 1865
02 3% 74 50
0 2 3 i 5272
02 32 10 44
0233 7650
02 $4 5744
02 35 1 0 16
02 36 77 00
02 37 52 16
02 40 10 63
02 4 1 10 57
0242 7510
02 43 32 16
02 44 10 30
0245 77 00
02 46 52 16
0247 1 0 6 3
0250 6 1 4 1
0251
0252
0253
02 54
0255

13 54
1000
00 67
1374
00 02

02 36
0267
0260
0261
0262
0263

72 00
1063
00 46
3063
le25
7104

AD 0
STH

LISNi

PRAME2*27t2000
LD A
P34
STH
/PUT B A C K S L A S H HERE
FR AM E2 *4 0 I 60 00
PDP
PM OD E
JMS I
IDISPLAY
KSF
JMP
1-2
KR R
I R E A D TTY
DC A
CHAR
TA 0
CH AR
TA D
M3 77
SNA
/ RUBOUT 7
JMP
RUBGOT / Y E S
TA 0
MCRRUB / - 2 1 5 * 3 7 7
SNA
I C AR R I AC E RET?
JMP
CRGOT
/YES
TA D
PC RM S
SNA CLA
IS?
JMP 1
IGOTS
TA 0
XTEMP
/SEE WHERE BUFFER IS
SMA CLA
/COUNT <0 ?
/NO-SD O N L Y RUBOUT O R CR L E G A L
L I SN
JMP
TA 0
CHAR
TA 0
M2 60
/< 2601
SPA
I Y E S - N O GOOD
JMP
LISN
TA 0
M10
SMA C L A
/>267?
/YES
JM p
L I SN
TAD
CHAR
/GET THE CHAR
LINC

ST H
LD A

P34
STH I
PDP

PUT6

/PUT

I N OISPLAY

PUTB

/PUT

"\*' AFTER I T

PMODE
CL A
TA 0

CH AR
AN P
P7
DC A
CHAR
TAD
HOLD
C L L RAL

/THE. NUMBER WE"RE B U I L D I N G

0252
02 53
025 4
0255
0256
02 57
0260
02 6 1
02 62
02 63
0264
02 65
02 66
02 67
0270
0271
02 72
0273
0 2 74
0275
0276
02 77
03 00
05 0 1
0302
83 03
0304
83 05
03 06
03 07
0310
03 11
0312
05 13
83 1 4
0315
0316
03 17
83 20
0321
03 22
0323
03 24
03 25
03 26

0264
02 4 5
0266
0247
0270
02 7 1
0272
02 73
02 74
0275
0276
0277
03 00
03 0 1
0302
0303
0304
0305
0306
0307
03 10
0311
03 12
03 13
0314
03 1s
0316
0317
0320
03 21
0322
03 23
0324
03 25
03 26

7006
1063
3025
2016
7000
52 16
7200
1036
3437
1025
$0 45
7540
54 26
1046
7700
5306
1025
5510
1025
0060
3070
30 23
J0 24
54 26
7325
1016
7650
53 4 1
70 40
1014
30 1 4
7040
1016
30 $6
614 1

0327
03 30
03 31
03 32
03 33
0334
03 35
0384
0s 37

2067
13 74
10 00
0025
15 60
0007
03 03
402§
00 02

0340
0341
0342
0343
0344

5216
7332
30 25
3272
0400

RTL

TAD
DCA

CRCOT,

0332
0333
0 3 34

05305

NOP
M
J P

L I SN

TAD
DCA
TA 0
TAD

P3443
SLASHI
HOLD
M377

SMA SZA
JMP I
EXIT
TA 8
P7
SMA C L A
JMP
#* 3
TA 0
HO LD

SLI

RUBGOT,

JMP

TA 0
AND
DC A

HOLD
P370
RBASE
LINE
LINPOS
EXIT
CML R A L
XTEMP

ODCC A
JMP I
CLA CLL
TA 0
SNA CLA

Si. SH BK

JMP
CMA
TA 0
DC A
CMA
TAD
DC A

/ADD

I N M O S T RECENT

/ I N CASE OF S K I P
/ W A I T F O R NEXT

/GET

L I N E NO,

/>377?
/YES
IGNORE
/I: *$70
/>370?

/YES

/SO MAKE I T 378

/SET R E L A T l V E BASE P O I N T E R
/ S E T CURSOR
/ T O UPPER L E F T
IAC/+3
/ALREADY ERASED A L L ?
/ Y E S 4 0 E X I T THIS MADNESS

PUTB
PUT8

/BACK

UP P O I N T E R

XTEHP
XTEM P

/BACK

UP COUNTER

/PUT

S L A S H BACK 1/2 WORD

LINC
LMODE
AD R
STH

P3 4
PUT6

LDA
HOLD
BCL I
0007
ROR 3
STC
PDP
PMODE
JMP

0327
0330
8331

I si?

CHAR
HOLD
XTEMP

IREMOVE L A S T D I C I T TYPED

HOLD
LISN

/ W A I T FOR NEXT CHAR

SLSHBKI

CLA CLL CML R T R / T O RESET B A C K S L A S H
/PUT I N A R I D I C U L O U S L I N E NUMBER
OC A
HOLD

IGOTSt

JMP
GOTS
EJECT

CR GO T

/THEN

GO TO CR R O U T I N E

03 36
0337
03 40
03 4 1
03 42
03 43
0344
0345
0346
0S47
0350
03 5 1
0592
0353

0354
0395
0S56
03 57

0360
0361

0462
0363
0Sb4

03 65

03 66
8369
0370
0371
0372
03 73
03 74
0375
0376
03 77
04 00
04 01
04 02
04 03
04 04
0405
04 06
04 07
04 10
8411
04 12
0413
0414
0415
8416
04 17

/COME

PA GE
HERE AFTER < L I N E F E E D + S >

04 80

6141

COTS,

LINC

LM OD F
04 0 1
0402
0403

LS w
ST C

05 17

40 2 1

HA SK

0002

POP
PMODE

0404
04 $5
04 06
04 07
$41B
04li
04 12
04 13
0414
0419
04 16
0417
0420
04 2 1
04 22
04 23
0424
0423
0426
0427
04 30
04 31
0432
0433
04 34
0435
04 $6
0437
04 40
044%
0442
04 43
04 44
0445
0444
0449
0450

7604
0021
$0 22
7200
1 0 70
1064
30 12
14 12

LAS
AN D
DC A
CLA

0481

5426
0272

0452

SCAN,

TAD

DC A

TAD I
AND

00 21

70 4 1
10 22
7650
52 32
10 70
70 0 1
30 70
1 0 70
10 45
7710
52 07
30 25

56 52
1070
7001
3025
1025
10 53
7710
36 52
1025
0 1 46
3023
30 24
1036
3437
1040
30 70

/GET

WHAT TO MATCH

MASK
MA TC H

CIA

RBASE
BASE
GETPNT
GETPNT
MASK

1
/SET UP COR AUTOeINOEX
/FORM POINTfR

MATCH

TAD

SNA C L A
JMP
SA ME
TA 0
RB ASE

/GOOD
/B UM P

IAC

DC A

RB ASE
RB ASE
M377

TA D
TA 0

SPA CLA
SCAN

SAME,

JMP
DC A
JMP I
TA 0
IAC

WOLO
ICRGOT
RB ASE

TA 0
M3 70
SPA CLA

TA 0

OCA I
TAD

DCA
ICRCOT,

/NOW

SEE WHERE WE ARE

HOLD
HOLO

OCA
TA D
JMP
TA 0
AN D
DC A
DC A

IDONE?
/ONE MORE TIME

JMP 1
CRGOT

EJECT

ICRCOT
HO LO
P7
LINE
LINPOS
P3443
SLASH1
P370
RBASE
EXIT-

/> a3 70 1
I N0

04 20
0421
04 22
04 23
04 24
04 25
04 26
0427
0430
0431
04 32
04 33
04 34
04 35
0436
04 37
04 40
04 4 1
04 42
0443
El4 44
0445
04 46
0447
04 50
0451
04 52
0453
0454
04 55
0456
04 57
04 60
0461
04 62
04 63
0464
0465
04 66
0467
04 70
0471
0472

0475

04 53
04 56
04 57
0460

72 00
1023
10 70
10 64
30 12
6141

0461
04 62
04 63
04 64
04 65
0466
04 67
04 70
04 71,
04 72
0473
0474
0475
04 76
0477
0500
0501
05 02
050J
0504
05 05
0586
05 07
0510
0511
05 12
05 13
0514
0515
05 16
0517

2024
0017
4010
20 46
09 03
4512
20 63
15 60
77 70
03 03
4514
0210
0456
65 07
2514
0303
4514
2512
0303
4512
02 30
6477
06 4 1
1012
1560
00 00
1620
0000
1052
06 42
0002

0520
0521

5721

04 54
04 55

1266

/COME HERE T O CHANCE A CHARACTER
/
K D I G I T i CLA
/COME HERE W I T H TYPED CHAR I N "CHAR"
TA 0
LINE
/ L I N E CURSOR IS ON
RBASE
/+OFFSET D F WINDOW
TAD
BASE
TA D
/ + B A S E OF BLOCK
GETPNT h P O 1 N T E R TO WORO CURSOR IS ON
DC A
LINC
LMOOE
L I N P O S /WORD P O S I T I O N O N L I N E
ADD
CO M
COUNTl
STC
P7
AD D
ROR 3
STC
B ITC
CH AR
AD 0
BCL I
77 70
ROR 3

SHIFT,

STC
XSK
SKP
JM P
ADO
ROR 3
STC
ADO
ROR 3
STC
XSK I

JMP
BITSET, LDF 1
LDA
BCL I
BITC,
000
BSE I
BITS,
0
STA
LDF' 2

BITS
COUNT1
BITSET
B 1 TS

/OK

THERE?

/YES
/TRY

BITS
61 TC
B I TC

COUNTl
SHIFT

/?
/NOT YET

GETPNT
I R E M O V E OLD
/ADD NEW
CETPNT

/REPLACE THE NUMBER

PDP
PMODE
JMP 1
K S PA CE
EJECT

l*b
/NOW DO T H I S

0474
04 75
0476
0477
05 00
0501
05 02
05 03
8504
05 05
0506
0507
0510
0511
05 12
05 13
05 14
0515
0516
05 17
05 20
os21
0522
0523
05 24
05 25
05 26
05 27
05 30
05 31
05 32
05 33
05 34
0535
05 36
0537
05 40
0541
915 42
m

/COME

HERE T O DISPLAY CURSOR

0522
05 23
0524

0525
05 26
0527
05 30
ld5 31
0532
0533
0534
05 35

03 36
05 37
0540
05 4 1
05 42
05 43
0544
05 45
05 46
05 47
05 50
05 5 1
05 52
05 53
0554
0595
05 56
05 57
05 60
0561
05 62
0563

0000
6141

DISCURI 0
LINC
LM OD E
2024
AD D
LINPOS / L I N E P O S I T I O N 0 - 3
0017
CO M
4010
STC
C O U N T 1 /HOW M A N Y T I M E S T O BUMP X
2023
A00
LINE
/ L I N E NO, 0-7
00 17
CO M
40 11
ST c
COUNT2 /HOW M A N Y T I M E S TO BUMP Y
2562
AD 0
P140
/INITIAL V
0 2 1 1 SUBYt
XSK
COUNT2 /DO WE NEED TO BUMP Y?
0456
SKP
/YES
65 4 1
JMP
SAVEY
/ Y OK-SAVE 8 BUMP X
20 35
ADD
M I0
/ZAP DOWN Y
XSK I
COUNT2 / M O R E ?
02 3 1
6533
JMP
su BY
/YES
40 62 S A V E Y i
STC
CURY
/Y CURSOR P O S I T I O N
25 63
ADD
P3 02
/ I N I T I A L X O F CURSOR
0 2 10 S U B X i
XSK COUNT1
/NEED TO BUMP X ?
0456
SKP
65 5 1
JMP
SAVEX
/ X OK
20 6 1
AD D
P i2
/BUMP OVER X
82 30
XSK I
COUNT1
65 43
JMP
SUBX
/MORE FOR X
Sa01 S A V E X e
STC
1
/ X GOES HERE COR DSC
20 62
ADO
CURY
/ Y I N AC
1 7 68
osc I
74 34
74 34
/PATTERN
1760
DSC I
34 74
34 74
IFOR CURSOR
00 02
POP
PMOOE
72 00
CLA
5722
JMP I
D ~ S C U R /GET OUT OF HERE
0 1 40 P i 4 8 1
140
0302 P 3 0 2 t
302

EJECT

0543
0544
05 45
05 46
0547
0550
0551
05 52
05 53
0554
0555
05 56
0557
0560
05 61
05 62
05 63
05 64
056s
0566
0567
05 70
0571
05 72
05 73
0574
0575
BS 76
05 77
0600
86 0 1
06 02
06 03
06 04
06 05
0606
0607
0610
06 11
0612
06 13
0614
06 15
06 16
0617
0620
06 2 1
06 22
0625
0624
0625
06 26
0627
0630
0631
06 32
06 33
0634
a635
9

0600
06 01
0602
06 03
06 04
06 05
0606
06 07
0610
0611
06 12
0613
06 14
06 15
0616
06 17
0628
06 2 1
0622
06 23
06 24
0 6 25
06 26
0627
0630
06 $1
0632
06 53
06 34
0635
0636
0637
0640
0641
0642
06 43
0644
06 45
06 46
0647
0650
06 5 1
0652
0653
0651
0655
06 56
0657
0660
0661
06 b 2
86 63

0664
0665

0000
7 2 00
1070

PAGE
/ D I S P L A Y L O C AND CONTENTS
I F O H lfl S U C C E S S I V E WORDS
/
D I S ~ @ J0

33 4 4
10 30
3020
1345
30 33
1346
3031
13 4 4
1 0 64
23 4 4
32 17
4226
0000
20 20
74 10
5600
10 35
1033
5207
0000
7040
1626
30 1 2
2226
14 12
30 42
7346
3010
7344

3011
1 01 2
0041

7 1 04
70 06
7 104
$0 27
70 04
3347
1347
70 1 0
1027
7004
70 06
3027
7004
3547
1027
00 46
70 04
1043
PI0 75

BUMPY,

CLA
TAD
DC A
TA D
DC A
TAD
DCA
TA 0
DC A
TA D
TA D
ISZ
DcA
JMS
0
TSE
SKP
JMP

RBASE
RB
MI0
WROCNT
P160
YCOR
P284
XCOR
RB
BASE
RB

110 WRDS I N ALL
/INITIAL Y

/INITIAL

/BUMP FOR NEXT T I M E

e*2
LOCO IS
WR DC NT

/ADDRe T O D f S P L A Y
/DONE ALL WORDS?

DIS10
M40

TAD
TA 0

YCOR
BUMPY

JMP
/
LOCDISi 0
CMA
TAD
DC A

/ S T A R T I N G WORD NUMBER

/BUMP DOWN Y
/DO NEXT LOC 8 CONTENTS

I D I S P L A Y L O C A T I O N 8 CONTENTS

/=3

LOCD IS /GET ADDR TO D I S P L A Y
GETPNT
LOCDIS
ISZ
GE TP NT /GET CONTENTS
TAO I
WORD
DC A
CLA C L L CMA R T L 1 - 3
DC A
COUN 11
CLA C L L CMA RAL 1 - 2
DC A
COUNT2 12 N O S , TO DO
TAD
GE TP NT / G E T ADDR,
AN I)
P377
/MAKE I T A R E L A T I V E BLOCK ADDR
C L L RAL
/L,EFT-JUSTIFY
RTL
RONUM,
C L L RAL
/ONCE TO L I N K
DC A
TE MP
RAL
/PRESERVE THE L I N K
DC A
LINK
GETNUMI TAD
LINK
RA R
TAD
TEMP
RAL
RTL
DC A
TEMP
DC
R A AL

LINK
TEMP
lAD
AN D
P7

RAL
TANA 0
D

BNUM

P7776

/PRESERVE L I N K

/GET D I G I T
/VULT B y 2
/BASE OF NUMBER PATTERNS

0636
06 37
06 40
0641
06 42
0643
0644
06 45
06 46
06 47
0bS0
0651
0452
0653
0654
0653

0656
06S7
86 60
0461
06 62
06 63
0664
06 65
0666
06 67
06 70
04 7 1
06 72
0673
06 74

0675
0676
0677
07 00
0701
07 02
0703
0704
07 05
0706
0707
0710
0711
0712
07 13
07 1 4
07 15
0716
0717
07 20

07 2 1
8722
.
I

0666
0667
06 70
0671
06 7 2
0673
0674
0675
06 76
06 77
07 00
0701
0702
07 03
0704
0705
0706
0707
07 10
07 11
07 12
0713
0714
07 15
0716
0717

3015
4350
20 10
5251
2011
5316
7344
30 10
43 36
10 42
70 12
7012
70 1 2
0034
7 1 04
13 15
3015
4350
10 42
20 10
53 03
72 00
3626
63 36
43 36
6141

07 20
07 21
07 22
07 23
0724
0725
0726
0727
07 30

00 4 1
0031
1000
0033
1760
0402
1760
20 10
0002

07 3 1
0732
0733
0744
0735
0736
0737
07 40
07 4 1
0742
074s
0744
0745
07 46

4336
i 0 47
3010
1042
5245
0000
72 00
10 40
10 3 1
3031
5736
B000
0160
02 04
0000

07 4 7

DC A
JMS

PA TP NT
D I SCAR
IS z
COUNT1
JMP
GETNUM
I s2
COUNT2
JMP
DOCON
CLA C L L CMA R A L
DC A
COUNT1
JM 8
BUMP x
TA 0
WORD
RTR
RTR
P77
CLL RAL
TAD
BALF
DC A
PATPNT
JMS
D1 SC AR
TA 0
WO RD
1st
COUNT1
JM P
D I SA LF

/OUTPUT TO SCOPE
/DONE ALL D I G I T S ?
/N 0
/DONE BOTH LOC 6 CONTENTS?
/ G O T T O DO CONTENTS

1-2
/NOW G I V E A S C I I E Q U I V A L E N T S

TR
DI S A L r I RAND

CL A

JMP I
LOCDIS
QAV14000
JMS
BUMPX
LINC

/ M U L 1 BY 2
/GET B A S E OF A S C I I P A T T E R N S

/D I S P L A Y A S C I I
/ D O 2ND HALF
/OR HAVE E ALREADY DONE I T ?
/NOT YET
/OONE! !
/SET

UP T O D I S P L A Y CONTENTS

LMODE
SET 1
XC OR
LD A
YCOR
DSC I
40 2
DSC I
20 10
PDP
PMODE
JMS
TA 0
DC A
TA D
JMP
0
CLA
TAO
TA 0
DCA

JMP I
RB t
P160,
P204,
LINK,

0
160
20 4
0
EJECT

/PATTERN

/FOR ct/rc
BUMP X
M4

CO UN T i
WORD
DONUM
P20
XCOR
XCOR
BUMPX

/SET TO 4 D I G I T S

0723
0724
0725
0726
0727
07 30
0731
07 32
07 33
0734
07 35
07 36
07 37
0740
0741
0742
0743
87 44
0745
B7 46
8747
0750
07 5 1
0752
07S3
0754
07 55
07 56
07 57
07 60
0761
0762
B763
87 64
07 65
0766
8767
0770
07 7 1
0772
0773
07 74
0775
07 76
1777
1000
10 0 1
m

07 50
0751

0000
6141

DISCARC 0
LINC
LMODE

0752
0755
07 54
0755
07 56
0757
0760
07 6 1
07 62
07 63
0764
0765
0766

8041

SET 1

003 1
10 00
0033
06 43
1755
1775
04 42
10 20
00 12
11 40
0031
0002

07 67
0770

72 00
5750

19100

1225
3010
12 23
3012
1 4 12
1063
7650
52 13
2610
5204
5426
10 10

1081
1002
1003
1004
1005
1 0 06
10 07
101cs
1011
1012
10 13
1014
10 1s
1016
1017
10 20
1021
1022
1023
10 24
1024
1026

1226
12 24
3027
1427
$2 22
5622
0008
1026
1060
77 47
a031

/SUBROUTTNE TO D I S P L A Y CHAR
/ P O I N T E D T O BY P A T P N T

XCQR

LO A
YCOR

LOF 3
DS C
DSC 1

P A TP NT
PATPNT

LDF 2

LOA I
12
ADM
XC OR
PDP
PM 00 E
CL A
JMP I
PAGE
/KEY DECODER
/
KEYDEC, TAD

/SPACE

DISCAR

LISLEN
COUNT1

/HOW M A N Y IN LIST

BLST
CETPNT

/BLSTC KEYLST-1

CETPNT
TA 0
CHAR
SNA CLA
JHP
GO T
ISZ
CO UN T i
JMP
G
JMP I
EXIT
GOT,
TA D
COUNT1
TAD
PLEN
TA D
BR OU TE
DCA
TEMP
TAO I
TEMP
DC A
,*2
JMP I
,+I
0
BLSTt
KEYLST-1
BROUTE, JMPLST
LISLENI KEVLST-JMPLST
P L EN t
JMPLSTmKEY L S T

/ P I C K UP L I S T

C C

I AC DA
O
DC A
TAD I

EJEC T

/NOT

I N LIST

/FORM POINTER

/GET

THE ADDR,

1 0 02
1003
1004
10 05
1006
1007
i 0 10
10 11
1 0 12
10 13
10 1 4
1015
i 0 16
1017
10 20
10 2 1
1022
1023
1024
1023
10 26
1027
1030
10 3 1
1032
1033
10 34
1033
1036
1037
1 0 40
1041
1042
1043
1044
1 0 45
10 46
1047
i 0 50
1051
i 052
1033
1054
1055
10 56
1057
1060
1061
1062
1063
10 64
$0 65
i 0 66

10 27
10 30
1031
1032
1033
10 34
10 35
10 36
10 37
1040
10 4 1
1042
1033
1044
1045
1046
1047
10s0
1 0 $1
1 0 52
1053
1054
1055
1056
10 57

10650
1061
104 2

75 76
74 76
75 75

7574
75 72
74 72
7S 66
7563
7s 62
7560
75 56
7551
73 45
7540
7520
7517
7516
7915
75 1 4
7513
7512
75 11
7403
7402
74 0 1
1200
1143
1216

1043

1221

1064
1045
1066
1 0 67
1070
10 7 1
1 0 72
10 73
1 0 74
10 73
1076
10 77
1100
1101
1102
1103
1104
1105
1106
1107
1110

1164
1153
02 00
1243
12 40
1256
1213
1234
1132
1266
0453
04 53
0433
04 53
0453
0453
8453
0453
1132

1132
li11

/ D I S P A T C H T A B L E S FOR KEYS
/
K E Y L S T , -202
/CTRL/B
-3 02
/0
-2 03
/CTRL/C
-204
/C T R L / 0
-206
/CTRL/F
-3 06
/F

-2 12
-2 15
-2 16
-2 20
-2 22
-227
-2 33
-240

- 2 60
-2 6 1
-262
-265
-2 64
-2 65

JMPLST,

-266
-267
-3 7s
-376
-3 77
KCB
KB
K TC
K TO

KCF
KF
K LF
KRET
KC N
KC P
KC R
KC W
K A LT
KSPACE
KOICIT
KO IC I T
KO 1G I T

/L INEFEfO
/CARRe R E T ,
/CTRL/N
/CTRL/P
/CTRL/R
/CTRL/W
/ONE F L A V O R OF ALTMODE
/S PACE
ITHE DIGITS, ,e

/ANOTHER ALTMODE
/ A N 0 ANOTHER
/RUB OU T
/WHERE T O GO, C T R L / B
/JUST 0
/CTRL/C
/CTRL/O
/CTRL/P
/F
/L I N E F E E D
/CAR , R E T
/CTRL/ N
/CTRL/P
/C TR L / A
/CTRL/W
/ALTMODE
ISPACE
/ D I G I T S 0-7

KO 1G IT
KOIGIT
KDIGIT

KDIGIT
KOICIT
KALT
KA LT

KR UB

EJECT

/AN0 THER ALTMODE
1, c i 0 R 2

J R UB OUT

1067
1070
1071
1072
1073
10 74
10 75
1076
1077
1100
1101
1102
1103
1104
1105
1106
1107
1110

1111
11 12
1%
13
1114
1115
1116
1117
1120
1121
1122
li23
$ 124
1125
1126
1127

/ALL THE P O I N T E R D I D O L E R S
1111
1112
1113
111 4
1115

1116
111 7
1120
112 1

1122
1123
1124
1125
1126
1127
1130

113 1

I132
1133

1134
1135
1136

1137
1140

1141
114 2

7200
10 24
76 50
53 2 1
7040
1024
3024
54 26
7325
3024
10 23
7650
53 43
7040
18 23
3023
54 26
72 00
3024

1131
1132

1144
1145
1146
1147
1150

1070
7650

lis6

1151

1137

1152

f142

.
I

1153
1154

115 5
1156

115V
1160

116 1
1162
1163

/
KB t

5426
7040
1070
30 70
54 26

1140
1141
1143
11 44
114s
1146
il47
1150
1151
1152
1153
1154

/
/
KALTt

72 00

7200
1670
10 53
7700
5426
7001
1070
3070
5426

TA 0
LINPOS
SNA C L A
JMP
KRUB2
CM A
L I NPOS
TD AC DA
LINPOS
JMP I
EXIT

/
/
KF I

I S TYPED
/COME H E R E ON RUBOUT
/ S T A R T OF L I N E ?
IYES-SfT
1-1

A T END OF P R E V I O U S L I N E

/BACK UP ON T H I S L I N E BY 1

C L A CLL STL RAL 1 A C / * 3
L I N P O S /SET CURSOR AT R I G H T
O?AC A0
LINE
SNA CLA
/FIRST L I N E ?
JMP
CMA
TAD
DC A
JMP

7650
53 43
7040
10 23
30 23
54 26

1143

1135

KRUB2e

10 23

11 38
1133
1134

/DEPEND1 NG ON WHAT K E Y
/
KRUBt
CLA

/YES-DO

A "8"

1-1

CLA
DC A

LINE
LINE
EXIT

/BACK UP ONE L I N E

LINPOS

/COME HERE FOR ALTMODE
/ S E T T O LEFT
/ L I N E 01

TA 0
LINE
SNA CLA
JMP
KB

/YES*DO

CM A
TA 0

/JUST

DC A
JMP 1

LINE
LINE

A "En

BACK UP 1

EXIT

CL A
TAD
RB AS€
SNA CLA
JMP I
EXIT
CMA
TAQ
RBASE
DC A
RBASE:
JMP I
EXIT

/COME HERE ON "8"
/CAN WE BACK UP?
/NO-WE"RE AT L I N E 0 ALREADY

/ C O M E HERE ON "F"

CLA
RBASE
TAD
TA 0
M3 70
SMA CLA
JMP I
EXIT
IAC
TA 0
RBASE
DC A
RBASE
JMP I
EXIT

EJECT

/ C A N WE GO AHEAD?
/NO-WE"RF AT 377 NOW

1155
1156
1157
1160
116 1
1162
1163
1164
1165
1166
1 2 67
1170
1171
1172
1173
1174
1175
1174
1177
1200
1201
1202
1203
12 04
12 05
12 06
1207
12 10

1211
1 2 12
1213
1214
12 13
1216

12 17
12 20
12 21
12 22
1223
12 24
1225
1224
12 27
12 30
1231
12 32

12 33
1234

i z 35

1236
1237
1240
I

114 4
1165
1166
1147
1170
1173
117 4
1175
1176
1177
1200
12 01
1202
12 03
12 04
12 05
1206
1207
1210
1211
1212
12 13
12 1 4
12 13

72 00
1070
1054
7 700
53 75
10 55
10 70
30 70
54 26
10 60
30 70
5426
72 00
1070
1 0 30
7710
52 11
10 30
10 70
30 70
5426
3070
5426
72 00
5615
4074

12 16

6 14 1

12 17
1220

06 02
6047

1221
1222
12 23
12 24
12 25
12 26
1237
12 30
1231
1252
12 33

7200
4633
62 0 1
70 00
62 11
70 00
1000
62 13
5632
7777
92 00

1234
12 35
12 36
1237
12 40
1241
1242

72 00
44 73
4 1 47
52 16
26 42
5213
4151

11 7 1
1172

KCF e

KCF2 t
KCB,

CL A

/COME HERE FOR C T R L / F

TAD
TAD
SMA CLA
JMP
TA 0
TA 0
DC A
JMP I
TAO
DC A
JMP I

RBASE
M36P)

CLA
TA 0

RBASE
MI0

KC F2
P1O
RBASE
RBASE
EXIT
P37vI
RB AS E
EXIT

KCBZt
KCRi
/
KTCt

JMP I
OCA
JMP 1
CLA
JMP I
CB

/CAN WE SUBTRACT 1 0 3

LIF 2
KTOi

KC 82
Mi0
RBAsE
RBASE
EXIT
RBASE
EXIT

KC N,
IBLOCK,

/SO S E T T O 0
/COME HERE FOR C T R L / R

/COME HERE FOR C T R L / C

D 1SP1
MOVE

CIF CDF 1 0
JMP I
e+1

MOVE I
/
KCwt

/N 0

8'1

LINC
LMODE
JMP
PMODE
CLA
JMS I
COC 0
70 00
CDF 10
70B0
1000

/SO S E T T O 370
/ C O M E HERE F O R CTRL/B

SPA C L A
JMP
TA 0
TA 0
DC A

/CAN WE ADD 1 0 1
/NO

/COME HERE FOR C T R L I D
/MOVE I / O T O F I E L D 1

/BOOT DIAL

7777
7200

CL A
JMS 1
PARA M
JMP
ISZ I
JM P
BLOCK
EJECT

/COME

HERE FOR C T R L / W

/COME

HERE FOR C T R L / N

WRITE

KT C
IBLOCK
KC R

12 4 1
1242
12 43
1244
1245
12 46
12 47
12 50
1251
1252
1 2 53
1254
1255
12 5 6
1297
i 2 60
i 261
1 2 62
1263
1264
1265
12 66
1267
12 70
12 7 1
12 72

1273
1274

1 2 75
1276
12 77
1300
0

12 4 3
12 4 4
12 45
1246
1247
12 50
12 5 1
12 52
1 2 33
1254
1 2 55

7200
30 24
10 23
1056
77 00
'56 55
70 0 1

7200
I642
7650
94 26
70 40
16 42
3642
$213

12 66
1267
12 70

7946
1B 24
7 700
52 43
70 0 1
1024
3024
5426

12 72
1273
1274
1275

DC A

'IA0
TAD

1023
3023
54 26
1153

1256
12 57
1260
i 26 t
1262
12 63
1260
1265

12 7 1

KRET I

IKFi
/
KCPi

LINPOS
LINE
M7

/COME HERE F O R C A R R .
/ S E T C U R S O R TO L E F T

SMA CLA
JMP I
IKF
IAC
TA 0
LINE
DC A
LINE
JMP 1
EXIT
KF

/AT LINE 7 1
/YES

CLA

/COME PER€ F O R C T R L / P

TAO I
IBLOCK
SNA C L A
JMP 1
EXIT
CM A
TAD I
IBLOCK
DCA I
IBLOCK
JMP
KCR
/
KSPACEe CLA CLC C M A R T L
TAD
LI NPOS
SMA C L A
JM P
KRET
I AC
TA 0
L l NPOS
OCA
LINPOS
JMP I
EXIT
/

EJECT

101

/YES-DON1

BACK UP

1-3
/END OF L I N E ?
/YES
/MOVE OVER 1

RET,

13 01

1302
1303
13 04
1305
13 06
is07
1310
13 11
i312
1313
13 14
13 15
1316
1317
1320
13 21

1322
1323
13 24
13 25
13 26
1327
13 30
13 3 1

1332
1333
13 34

1335
13 36
13 37
i340
1341
13 42
1343
13 44
1345
13 46
13 47
1350
1351

13 52

1553
13 54
1s 5s
13 56
1357
13 60
1361
1562
1363
1364
1565
13 66
1567
1370
13 7 1
1372
13 73

LMODE
SEGMNT 2
*2 0
00 20 0500 X X X ,
1OB
00 2 1 6046
6046
/ J I G G L E TTY
00 22 10 20
LDA I
0023 6047
JMP
01 S P 1
STC
,- 2
/MAKE T H I S ONCE-ONLY
0024 4022
0 0 2 5 0002
PDP
PMOOE
4026 6213
C1P CDF 1 0
4027 34 73
DCA I
WRITE
167775
40 S0 10 7 4
TA 0
P5 77 2
40 3 1 3475
OCA I
P7776
4032 1076
TA 0
P5773
DCA I
P7777
4033 3 4 7 7
40 34 62 0 1
COF 0
40 35 4472
JMS I
REA0
40 56 0 i 0 1
SY SBLK
4037 62 12
CIF 10
40 40 4500
JMS I
PMOVE
40 41 62 11
CDP 10
40 4 2 60 00
60 00
4043 62 0 1
CDF 0
40 44
70 00
70 00
1000
4045 1 0 0 0
40 46 6 1 4 1
LINC
LM 00 E
0047 0643 D I S P I # LDF 3
00 s0 10 20
LDA I
JMP
GETKBD / U N t A P KEYBOARD CHECK I N QANDA
0 0 5 1 6555
00 52 10 40
STA
0 0 5 3 2156
Q A JI
2000
00 S4 06 03
LIC 3
00 115 06 4 2
LDF 2
/QANDA A T 6020
0 0 3 6 6720
JMP
Q1
COUNT1
0097 0070 CETANS, SET I
-4
/HOW MANY O I C I T S
00 60 77 73
SET I
CETPNT /WHERE ANSWER IS
00 6 1 00 72
00 62 0372
ANSR 1
/GET THE BLOCK NO,
0063 6 1 5 3
JMP
GE T
00 44 4 1 5 1
ST C
BLOCK
/
00 65 00 70
SET I
COUNT1 /NOW U N I T
00 66 77 75
-2
0067 0072
SET I
GETPNT
00 70 4374
ANSR1+2!4000
/GET T H E U N I T
00 7 1 6 1 53
JR P
CE T
0072 4147
ST C
UNIT
00 7 3 0 0 0 2
POP
PMODE
40 7 4 6 1 4 1 CB 8
LINC
LMODE
00 75 1000
LDA
00 76 4147
UNIT
/

00 77
0100
0101

00 70
7775
00 73

SET I
-2
SET I

COUNTl
PUTPNT

/PIOW PUT U N I T I N T E X T FRAME
12 D I G I T S
/WHERE T O STORE

1374
13 75
1376
1377
1400
1401
1402
1403
1404
1405
1406
1407
1410
1411
1412
1413
1414
1415
14 16
1417
1420
1421
14 22
1423
1424
1425
1426
/4 27
14 30
1431
1432
1433
1434
1435
14 36
14$7
1440
1441
14 42
1443
1444
14 45
14 46
1447
1450
14Sl
1452
14 53
.
)

FR AM E2 *2 !2800
JHp
UNPACK

01 02
01 03

23 31
62 05

0104
01 05
01 04
0107
01 10
0111
01 12
01 13

0070
7773
00 73
6335
1000
41 51
6205
0002

4114
4115
41 16

44 72
4147
6 1 41

0117
01 20
01 21
01 22
0124
01 25

1020
6024
06 43
10 40
2156
0642
8002

4126
4127
41 30
4131
41 32
41 33
41 34
41 35
4154
41 37
4140
4141
4142
41 43
41 44
41 45
4146

7200
3023
DCA
3024
DC A
30 70
DC A
43 43. DLOOP8 JMS
6031
KSF
53 32
JM P
60 36
KR 9
3063
OCA
5740
JMP I
1000
KE YO EC
00 00 D I S P L A Y , 0
72 00
CLA
4451
JMS I
4452
JMS I
44 32
JMS I
3741
JMP I

0123

SET I

LDA
BLOCK
JMP
PD P
PMODE
JMS I
PARAM
LINC
LM OD E
LDA I
JMP

UNPACK
READ

/NOW

GET THE BLOCK

QA B

Lor 3
ST A
O A JI
2000
LDF 2
PDP
PMOOE

PARA Ms

0000
0004
e000
0001

/PUT BLOCK I N FRAME
/4 D I G I T S

SET I
PUTPNT
FRAME2+6!6000

41 47
4150
41 51
4152

COUNT1

-4

UNIT8

0
4

BLOCK,

1
EJECT

/ Z A P KEYBOARD CHECK I N Q A N D A

LINE
L I N P O S /SET CURSOR T O UPPER L E F T
RBASE
/AND WINDON TO B E G I N N I N G
D I S P L A Y /NOW SHOW T H E SCOPE
/KEY TYPED?
(-2
/N 0
/CRAB I T !
CHAR
/WHAT DO WE DO NOW?
/ G O HERE T O F I N D OUT

IDIS10 / F L A S H L O C A T I O N S
IOISCUR /FLASH CURSOR
IQ2
/ F L A S H TEXT
DISPLAY

/PARAMETER L I S T FOR MS I / O

/a2000

14 54
1455
14 56
1457
14 60
14 61
1462
14 63
1464
1465
14 66
14 67
14 70
1471
1 4 72
1473
14 74
1475
14 76
1477
1500
1501
1 5 02
15 03
1504
15 05
1506
15 07
15 10

is 1%

1512

15 13

LM OD E
/

/DECODES A QANDA FRAME

01 5 3
0154
01 55
0156
01 57
0160
0161
01 62
01 63
0 1 64
0 1 65
0166
0167
01 70
01 71
01 72
0173
0174
0 1 75
0174
01 77
0200
02 p l l
02 02
02 03
0204

1000
0000
42 04
4203
1332
1460
0000
04 56
62 00
15 60
7707
14 60
0060
60 47
1 3 12
15 60
7770
0303
22 03
0243
42 03
0230
61 57
10 20
0000
0000

GET,

/SAVE

LOA
0
GE TO UT

ST C
STC
NEXT,

RETURN

LDH I

WOLD
GETPNT

SAE I

/DECODE QANDA FRAME
I G E T P N T IS P O I N T E R TO ANSWER FRAME

SKP
JM P

QHOL 0- 3

BCL I
7707
SAC

/ I S I T A 68-67?

JMP
LDH
BCL I

DISPl
GETPNT

7770

ROR 3
ADD

ROL 3
STC
XSK
JMP
LDA

WOLD,
0
GETOUT, 0

/
/

EJ EC 1

OH OL 0

WOLD
COUNT1
NEXT

/No

15 1 4

1515
1s i 6
1317
15 20

15 21
15 22
1523

15 24
1525

15 26
15 27
15 30
1531
1532
15 33
15 34
i s 35
15 36
1537
1540
1541
1542
1543
1544
1545
15 46
1547
1550
15 5 1
1552

1553
1554
1555
15;56
I

0205
0206
0207
0210
0211
02 12
02 13
02 1 4
02 I S
02 16
0217
02 20
02 21
0222
0223
02 24
02 25
02 26
0227
0230
0231
023 2
02 35
0234
0235
02 36
0237
02 40
02 4 1
0242
02 43
0244

4025
20B0
4244
0051
0010
10 20
0004
20 10
0017
10 40
00 16
04 70
62 30
1000
0025
02 4 3
02 36
62 24
4025
1000
002s
0243
10 40
0025
1560
77 70
1620
0060
13 73
0230
62 30
0000

/ M A K E 6 w B I T A S C I I FROM OCTAL N O ,
U N P A C K t STC
/ S A V E AC
A0 0
0
/GET R E T U R N
STC
UN OUT
SE T
COUNT2
CO UN I1
/
M A X N O , OF D I G I T S
LDA I
4
/MAX OP 4
COUNT1 /HOW M A N Y WE H A V E
ADD
CO M
STA
XT EM P
/a 01
AZE I
G E T D I G I Y E S - N O NEE0 T O S H I F T
JMP
LDA
HOLO
/LEFT-JUST I F Y
ROL 3
XSK I
XTEM P
JMP
1-2
HOLD
/COT IT
STC

G E T D I G , LOA
HOLD

ROL 3

UNOUT#

ST A
HO 60
BCL I
77 70
BSE I
60
STH I
XSK I

CO UN T i

JMP

GETDIG

EJECT

PU TP NT

1557
15 60
15 6 1
1s 6 1
1562
1562
1562
15 62
1562
1562
15 62
1563
1563
1563
1563
15 63
1963
15 63
1563
15 63
1563
15 63
1363
1563
1563
13 63
13 64
15 64
1565
1565
1 5 65
13 65
2365
1363
1565
1565
1565
15 65
15 65
15 65
1565
1565
1566
15 66
1567
1367
1347
1567
1567
1567
1567

1567
1567
1567
1567
1367
15 67
1567
1567

/QANDA T E X T F R A M E S
F R A M E l r TEXT "F

02 45

06 43

02 46
0247
0250
0251
0292
02 53

0643
0640
4040
4040
40 40
40 24

0254
0255
02 56
0257
02 68
0261
02 42
02 63
02 64
0265
02 64
0267
0270
0271

0504
4340
40 40
40 40
40 40
4040
40 40
40 40
50 24
0120
ID5 40
0504

02 72

31 43

0273
0274
0275
02 76
0277
0300
0301
0302
0303
0304
0315
03 06
0307

0643
4040
4040
40 40
40 40
4040
4040
22 05
0104
4002
1417
0313
40 74

0310

6443

0311
03 12
0313
0314
0315
0316
0317
03 20
0321
0322
0325
0324
03 25
0326

1043
40 40
4040
4040
4040
4040
4040
06 22
1715
4025
1611
24 40
74 62
3400

t ED

1124
1722

(TAPE E D I T O R )
F

READ BLOCK < 4
H

FROM U N I T <2\"

15 70
1371

0327
03 $0
0331

2516
1124
4030

0332
0333
03 34
0335
0336

3043
0214
17 03
1340
3030

1978
15 73
1573
1573
1573
1973
1573

0337
0340
0341
03 42
0343
0364
0345
03 46
0347
03 50
0351
0352
0353
0354
0355

3030
4340
4040
40 40
4040
4040
4040
40 40
1417
03 40
40 40
0317
1624
0516
2423

13 74

0356

3443

1575
1575

0357

0643

03 60

06 43

0361

06 43

0362

0643

03 63

06 43

03 64

06 43

03 65
0366
03 67
0370
03 7 1

06 43
40 40
75 30
3030
3400

0372
0375
0374
03 75
0376
03 77

0000
0000
0000
00 00
0000
00 00

15 7 1
1571
1571
1572

1572
15 72
lS72
1372
1572
1373
$573
1573
1373
15 73
1573
1573

1573

FRAMf2r

TEXT "UNIT X X

BLOCK XXXX

LOC

I 5 73

C O N TE NT S \

15 74

15 76

15 76
13 77
15 77
1600
1600
1601
I601
16 02
id02
1 4 03
1603

16 03
1603
1603
1603
1604
1605
1606
1607
1610
16 11
1612
1613
I

=XXX\"
ANSRI,
0
0
0
0
0

0
EJECT

/ C A U T I O N ! I T H I N K T H I S ANSWER BUFFER
/GOES O V E R THE PAGE BOUNDARY WHEN I T " S F

1614
1615
16 16
1617
16 20
16 2 1
1622
1623
1624
1625
1626
16 27
16 30
1631
1632
1633
16 34
16 35
16 36
16 37
16 40
1641
16 42
1643
16 44
16 45
1646
1647
1650
16%
1652
1653
1654
1655
16 S6
1657
1660
1661
16 62
16 63
1664
16 65
16 66
1667
1670
1671
16 72
i 6 73
1674
i475
1676
16 77
17 00
1701
1702
1703
1704
1705
17 06

/QANDA
/P D P - I 2

SEGMNT 3
*2 0
S U B R O U T I N E FOR THE

/TO

HERE TO I N I T I A L I Z E THE R O U T I N E

0020
0021
0022
0023
00 24
00 25
00 26
0027
0030
00 3 1
00 32
00 33
00 34
00 3s
00 36
0 0 37
00 40

1020
0002
2000
1060
0000
22 20
40 01
1001
2304
4077
1021
40 72
40 06
0043
00 72
0 0 44
00 77

Q A I N I T , LDA
I
2
ADO 0
STA I
QAB,
0
ADD QAL*3
STC 1
LDA 1
ADD Q A Q * l
STC QAG-3
LDA 1 1
S T C QARFSH-1
STC 6
QACA,
SET 3
/ X R 3 TO

00 4 1
0042
0043
0044
00 45
0046
00 47
0050
00 5 1
00 52
00 53
0 0 54

00 4 1
0004
6310
0016
13 24
6251
60 55
6070
1460
00 43
6046
60 41

SET 1

00 3s
00 56
0057
0060
00 6 1
00 62
0063
00 64
00 65
0066
00 67

13 43
13 24
1120
77 17
00 17
40 06
1363
0226
60 63
13 23
6046

0070
00 7 1
00 72

1343
00 64
910 00

0573
0074
0073
0076
0077

1020
8377
1133
0063
0000

Q A Rr SH-1
SET 4

/ S A V E JMP RETURN

/JMP

/PTR T O F I R S T PARAM
/GET F I R S T PARAM
/PTR T O HALFWORD-1

/ X R 6 USED AS A SWITCH,
PTR TO ANSWERS

30 I F NO ANSWER F I E L D ,

s1777
I F YES

/XR4 T O PTR TO Q U E S T I O N S

QAG-3
/TO HERE

IF F I R S T T I M E THROUGH O R F O L L O W I N G

JMP QAT
NOP
/F
LOW I 4
/ H , BUMP PTR I F H OR F
QAD,
JMP Q A O
JMP ' 4 6
17 4
JMP QAE
134
SAE 1
/CR?
43
JMP Q A D
I N0
JMP QACA*4 / E X A M I N E N E X T CHAR
/ I N I T I AL IZE ANSWER BUFR
STH 3
/ 7 4 TO ANSWERS
LDH I 4
/NEXT HALFWORD
AOA I
-60
COM
STC 6
STH I 3
I 0 I N AC
XSK I 6
JMP ( - 2
LDH I 3
/BUMP PTR TO ANSWERS
JMP Q A D
/ANSWER BUFR IS I N I T I A T E D
STH 3
QAEt
SET I 4
/ X R 4 T O P T R TO L A S T TYPED CHAR I N ANSWER BUFR
0
/----RE-ENTER
HERE T O REFRESH---QARFSH, LDA 1
/ I N I T I A L Y POSITION
377
STC Q A H - 1
SET I 3
/ X R 3 T O P T R TO HALFWORD Q U E S T I O N S - 1
0

4787
7 10
1 7 11
1712
1713
17 1 4
17 15
17 16
1717
17 20
1721
1 7 22
1723
17 24
1725
17 26
1727
1730
1731
17 32
1733
17 34
i735
if36
17 37
1740
17 4 1
1742
17 43
1744
4 7 45
,7 46
A747
17 50
17 51
17 52
17 33
17 54
175s
17 56
$757
1760
17 6 1
1762
1763
1764
1765
1766
l767
1770
1771
17 72
1773
17 74
177 S
1776
1777
20 00
20 0 1
m

0112
0 1 13
0114
0 1 15
0116
0 117
0120
0 12 1
0122
0 1 23
0 12 4
0 1 25
0126
0127
0 130
0131
0 1 32
0135
0 1 34
0135
0 134
0 137
0140
0 14 1
01 42
0 1 43
0 1 44
0 1 IS
0 1 46
0 147
0 150

ld0 45
00 7 2
0041
0003
63 10
6114
13 23
10 20
1560
4 123
2542
6 12 1
1323
1020
1620
4 123
2543
4265
0024
16 20
02 00
00 04
11061
00 00
10 20
7737
1160
0000
1323
6252
4321
6156
1420
43 00
51 02
62 62
6 134
62 62
1520
00 00
6536

0151
0152
0153
0154
0155
0156
0 1 57
0160
0161
0162
0 1 63
0 164
0ldS
0166
0 1 67
0 1 70
0171

3325
6252
6134
6134
4145
6555
04 70
6024
0062
0551
1 4 02
6331
1422
6243
02 06
60 73
14 22

Ulld0
0101
0102
0103
0104
0105
8186
0 107
0 1 10
0111

SET 5

/XR5

T O PTR T O L A S T D I S P L A Y E D C H A R I N ANSWER RUFR

O A R F S H -1
QAG,

SET
3
JMP
JMP
LDH
LDA
BCL
STC
ADD
JMP
LDH
LDA
BSE

QAMi

1
QAT

,*7

I 3
I
I

/ H , BUMP P T R

QAM+2
QAW

/NEITHER,
/SET
/NOP

A S S U M E HALF S I Z E

I N S T R T O CLEAR FC FOR H A L F S I Z E

I N AC

QAH

I 3
I

I
S T C QAM+2
AD0 Q A W * l
S T C QAP*3
MSC I 4
BSE I
20 0
MSC 4
SET I 1
0

/BUMP PTR
/SET I N S T R T O SET FF FOR F U L L S I Z E
/ A D D 9U I N A C
/EA0 CONTROL R E G I S T E R
/ T H I S I N S T R CHANGES, E I T H E R B S E 8 OR BCL 8
/AC
/XRl

T O CONTROL R E G I S T E R
TO I N I T I A L X POSITION

LDA I

COORDINATE M U L T I P L E

COORDINATE

-40

ADM
QAH8

0
LDH I 3
JMP Q A O * l
JMP Q A Z
JMP QAJ

SHO 1

QA I t

QAJ,

174 BUMP PTR T O NEXT CHAR,
/3 4
/NE ITHER

PUT 40 I N A C

43 00
/ C R S M O V E X AND Y COORDINATE
JMP Q A G
JMP QAP
/ISPLAY C H A R
JMP QAH
/ P I C K UP NEXT CHAR
JMP QAP
/ T O MERE I F D I S P L A Y I N G ANSWER BUFR
SR0 1
/ S W I T C H TO D I S P L A Y CURSOR, E I T H E R 8000 O R 7777
0
/ I F X R 4 gXR5 THEN SW I TCHI 7777
JMP QAF
/ Q U E S T I O N MODE
LDH I 5
JMP Q A O * l
JMP QAH
174
JMP Q A H
134
JMP QA1-4
/NE1 THER, D I S P L A Y I T
JMP GETKBD
/ T O HERE I F DISPLAYED BUFFER

AZE I

JMP QAB / N O T H I N G TYPED
SET I 2

, EXIT

QA V

SHD 2
JMP Q A K * 4
SHD I 2
JMP QAN
XSK 6
JMP QARFSH
SHD I 2

/LF?
/YES,

EXIT

/CRi

/IS THERE AN ANSWER F I E L O ?
/<?

JMP Q A L
SHD I 2
JMP Q A K

20 02
2% 03
28 04
20 0s
2006
20 07
20 10
2011
2012
20 13
20 14
20 1s
20 16
20 17
2020
2021
2022
20 23
20 24
20 25
2026
2027
20 30
20 31
20 52
2033
20 34
20 35
20 36
20 37
20 40
2041
2042
20 43
2044
20 45
20 46
2047
2050
20 51
2052
20 53
2054
2055
20 56
2057
2060
2061
20 62
2063
2064

01 72
01 73
01 74
01 75
01 7 4
01 77
02 00
0201
02 02
02 03
0204
02 05
02 06
0207
0210
02 11
0212
02 13
0214
021s
0216
0217
0220
02 21
02 22
0223
02 24
02 25
0226
0227
0230
0231
0232
0233
0234
02 33
02 S6
02 37
0240
02 41
0242

6215
1422
63 25
1422
60 35
1422
6073
14 22
6215
14 22
60 73
42 12
6251
6303
63 03
1020
0000
13 44
60 73
1304
62 52
60 73
17 75
13 02
1460
00 37
6303
00 45
00 04
0043
0004
6233
1325
1323
6252
00 16
0011
1345
0450
62 32
6303

0243
02 44
0245
02 46
02 47
0250

0206
63 31
6251
6073
6071
62 4s

QANi

0251
0252

QAOc

2065

82 '55

2066
20 67
20 70
2071
2072
20 73
2074

0254
02 55
02 56
0257
0260
0261

1324
1420
74 00
60 00
14 60
00 34
0220
0220
6000

/>?

SHO I 2

/ALT?
JMP Q A C A /RE I N I T I A L l t E
/BACK SLASH?
SHO I 2
/IGNORE
JMP QARFSH
/RUBOUT?
SHD I 2
/ I GNORE
JMP QAL
/TAB?
SHD I 2
/IGNORE
JMP QARFSH
/A CC EPTA BLE CHAR
STC ,*5
JMP Q A O
/ T E S T NEXT CHAR
JMP Q A Q
174 BACK P T R UP BY 1
/34 ?
JMP Q A Q
/ O K , STORE I T
LDA I
0

STH 4
JMP QARFSH

QAbi

LRH 4
JMP Q A O + 1

/RED I S P L A Y
/ T O HERE I F RUBBOUT OR

JMP QARFSH
-6 00 2

1 7 4 IGNORE

LOH 2

/ T E S T THE CHAR
/RUB OUT?

SAE I
37
JMP Q A Q
SET 5

/NO,

BACK PTR UP BY 1

SET 3
4
JMP ,*5!

LDH 1 5
LDH I 3

/BUMP P T R
/GET N E X T CHAR

JMP QAO+l
NO P

/ I F 74 O R 3 4 1 REPLACE CURRENT CHAR W I T H 0

CL R
STH 5
AZE
JMP 8 - 7
JMP Q A Q

/WAS IT 74 O R 341
/NO, C O N T I N U E
/BACK PTR up B Y 1
/ T O HERE I F CR

XSK 6
JMP
JMP
JMP
JMP
JMP

QAK*4
QAO
QARFSH
QAE+l
QAN*2

LOW I 4
SHD I
7 4 00

JMP 0
SAE I

/EXIT

R O U T I N E I F NO ANSWER F I E L O

1 7 4 MOVE PTR T O NEXT Q U E S T I O N F I E L D
/ 3 4 END OF BUFR, MOVE P T R T O F I R S T Q U E S T I O N F I E L D
/S \R
/
/
1

+i 74 B E G I N F I E L D

/S\R

T O DISP L I N C CHAR I N A C

+2 3 4 E N D BUFR
+3 N E I T H E R 7 4 NOR 34

34
XSK 1 0
XSK I 0
JMP 0

20 75
20 76
2077
2100
2101
21 02
2 1 03
2 1 04
210s
2 1 06
2 1 07
2 1 10
2 1 11
2112
2 1 13
2 1 14
2115
2116
2117
2120
2121
2 1 22
2 1 23
2124
2 1 25
2126
2127
2130
2131
2 1 32
21 33
2134

82 62

162 4 1
25 50
1002
2541
25 4 1
20 0 1
40 0 1
2005
0017
2004
04 50
00 11
4147

QAP,

1742
1762
60 00
1020
3777
1140
0004
60 73

0310
03 11
0312
0313
0314
03 15
0316
03 17
0320

1321
1 4 20
0600
6000
1460
00 10
02 20
02 20
60 00

QAT,

0321
03 22
0323
0324

1323
10 20
00 40
6 1 45

QAT,

LDH I 3
LOA I
40
JMP Q A I - 4

03 25
03 26
03 27
03 3 0

13 24
04 70
63 03
65 44

QAK,

LRH

0331
0332
03 53
03 34
0335

10 20
0001
1140
00 24
60 24

0336
03 37
0340
0341
03 42
03 43
03 44
034’9
0346
03 47

0101
0 10 1
4477
7744
5 1 77
2651
4 1 36
22 4 1
4177
36 4 1

2133

Q A 0,

JMP QARFSH

2 1 54
2155

2156
2157
2160
2161
2 162
2 163
2 1 64
2 1 64
2166
2 1 67
m

/ADDRESS OF CHAR T O D I S P I N XR2
/ T H I S I N S T R CHANGES, E I T H E R OP OR ADD 9U
/ADD 4 T O X R l TO SPACE CHAR

/ G E T AUDRESS O F ANSWER BUFR

/ S W I T C H = 0 OR 7777
/ Y COORDINATE IN AC

/O I S P L A Y CHAR
/BACK

UP PTR B Y 1

/RED I S P L A Y
/

LDH I 1
SHQ

0600
JMP 0
SAE 1
10
XSK I 0
XSK I 0

/S \R
/
/
/

+1 P
*2 H
*3 N E I T H E R

JMP 0
/

/ T O HERE IF

I 4

AZE I
JMP Q A Q
JMP O A X

21 Q7
2/50

/ M U L 1 BY 2 FOR I N D E X T O ADDRESS OF T A B L E

2135
2136
2 1 37
2/40
2 14 1
2142
21 43
21 44
2 1 45
21 46

ROL 1
ADD QAX*4
STC 2
ADD QAU
ADD QAU
ADD 1
STC 1
ADD 5
CO M
ADO 4
A2 E
CLR
S T C QAX-2
ADD Q A H - 1
DSC 2
DSC I 2
JMP 0
LOA I
-4000
ADM

0263
0264
0265
02 66
02 67
02 70
02 71
02 72
02 73
02 74
0275
0276
0277
0300
0301
03 02
04 03
0304
0305
0306
03 07

/IS CURRENT CHAR B L A N K ?
/ Y E S , IGNORE
/MOVE DOT FORWARD
/ T O HERE T O E X I T W I T H S K I P

LDA I
1
AD M
QA B

JMP QAB
QA VI

0101
0 10 1
4477
7744
5 1 77
2651
4 1 36
22 4 1
4177
36 4 i

/CHARACTER P A T T E R N S
/ K B O 0, I L L E G A L , USED AS MARKER
/1IA

/ 2 16

/3 I C
14IO

2 1 70
2171
2 1 72
2173
21 74
2175
2 1 76
2177
22 00
2201
2202
2203
22 04
2205
22 06
2207
2210
22 11
22 12
22 13
22 1 4
2215
22 16
2217
22 20
2221
2222
2223
22 24
2225
22 26
2227
2230
2231
2232
22 33
22 34
2235
2236
22 37
22 40
2241
22 42
22 43
22 44
2245
22 46
2247
22 50
2251
2252
22 53
2254
2255
22 56
2297
22 60
2261
22 62
.
)

03 50
0351
0352
0353
03 54
0355
03 56
0357
03 60
0361
0362
03 43
03 64
0365
03 66
0367
03 70
03 7 1
03 72
0373
03 74
0375
0374
0377
04 00
0401
0402
0403
04 04
0405
04 06
0407
0410
0411
0412
04 13
04 14
04 15
04 16
0417
04 20
0421
04 22
04 23
0424
0423

45 77
4145
44 77
4044
4 1 36
2645
10 77
7710
7741
0041
4 1 42
40 76
1 0 77
4324
0 1 77
0301
30 77
77 30
30 77
7704
4 1 77
7741
44 77
3044
42 76
0376
4477
3146
5 12 1
4651
40 40
4077
0177
7701
0 1 76
74 02
06 77
7701
14 63
6314
07 70
7007
45 43
61Sl
4177
00 00

4597
4145
4 4 77
4044
4 1 36
2645
10 77
7710
7741
0041
4 1 42
40 76
10 77
4324
0177
0301
3077
77 30
30 77
7706
4 1 77
7741
4477
3044
42 76
0376

0426
0427
0430
0431

1020
02 04
0000
7741

1020
204
0000
7741

04 32
0433
04 34
0439
04 36
04 37
04 40

20 00
2077
1604
0404
0000
0000
75 00

20 00
2077
16 04
0404
0000
00 00
7500

15 I €
/6 I F
/71C

/10i H

/20: P

4477

3146
9 12 1
4651
40 40
4077
0177
7701
0176
74 02
06 77
7701
1 4 63
6314
07 70
7007
4543
6151
4177
0000

1231 u
/26lV
/271W
/301X
1311 Y
1321 t

/331 C
l341BACKSLASH IGNORED ON I N P U T
/35! 3
/CODES 368ALTa 3 7 !RUBOUT NOT D I S P L A Y E D
/ 3 6 t <UPARROW>

/ < B A C K ARROW >

1 4 0 1 SPACE
141::

2 2 63
2264
22 65
2266
226 7
2270
22 7 1
2272
2273
2274
22 75
2276
2277
23 00
2301
23 02
2303
2304
23 05
2306
2307
2310
2311
2312
23 13
2314
23 15
2316
2317
2320
23 2 1
2322
2323
2324
23 25
2326
2327
23 30
23 3 1
2332
2333
2334
23 35
2336
2337
2340
23 4 1
2342
23 43
2344
23 45
2346
23 47
2350
2351
2352
2353
2354

2355

0441
0442
04 43

00 00
7000
00 70

04 44 42 00
0445 0237
0446 5 7 2 1
%447 4671
0450 0423
0451 6210
84 52 5 1 66
0453 0526

/ C O D E S 4 3 : , 4 4 1 , 45il.F
/ 4 3 : < C A R A I A G E RETURN>

4 2 0D

0237

/44: s

5721
4671
0423
6210
51 66
0526

04 54
0455
04 56
0457
0460
04 6 1
0462
0463
0464
0465
0464
04 67
0470
04 7 1
0472
0473
0474
04 75
0476
0477
0500
05 0 1
0502
0503
05@4
05 05
0506
05 07
05 l a
a5 11
0512
0513
0514
05 15
0516
05 17
0520
0521
0522
0523
0524
0525

0404
3704
36 00
0041
4100
00 36
2050
0050
0404
0437
0500
00 06
0404
04 04
0001
0000
0401
40 30
4536
3651
2101
0 1 77
4523
2151
4 1 22
2651
2414
04 77
5172
06 5 1
1306
4225
4443
60 50
5126
26 5 1
5122
36 5 1
2200
00 00
4601
00 00

0484
37 04
36 00
0041
4100
00 36
2050
0050
0404
0437
0500
00 06
0404
04 04
0001
0000
0601
40 30
NUMPAT8 4536
3651
2101
0 1 77
4523

05 26
05 27
0530

1 2 04
00 2 1
1212

12
- . 04

/45; %

/ C O D E 47:TAB N O T OISPLAYED
147: <TAB>

/53:+

1571\
/60:0
16111
16212

2151
4 1 22
2631
2414
04 77
5172
06 5 1
1506
4225
4443
6050
5 126
24 5 1

5122
3651
2200
00 00
4601
00 00

1631 3
/64t 4

/6515
/6616

/67t 7
/70t 8
/7119
/721 I

/93r :
/CODE

21
1212

NOT DISPLAYED

/751=

74t<NOT DISPLAYED

23 56
23 57
23 60
2363
2362
23 63
2364

2365

23 66
2367
2370
23 71
23 72
2373
23 74
2375
23 76
23 79
24 00
24 0 1
2402
2403
24 04
24 05
24 06
24 07
24 1 0
2411
24 1 2
24 13
24 1 4
24 15
24 16

2417
2420
24 2 1
2422
24 23
2424
2425
24 26
24 27
2430
2431
24 32
24 33
2434
2435
2436
24 37
2440
2441
2442
24 43
24 44
2445
24 46
2447
24 50
m

0531

1 2 12

1212

05 32
0533
0534
0535
0536
0537
05 40
0541
0542
0543
05 4 4
0545
0544
0547
05 50
05 5 1
05 52
05 53
0554

2 100
04 12

2 100

/CODE 7 6 8 ) NOT D I S P L A Y E D
4020
20 55
1760
6000
6 15 1
0082
0016
2541
6252
6303
63 03
607 3
03 36
4543
74 76
36 34
37 47

412
4020
2055
QAF,

/77r?

ose I
6000
JMP Q A I

QAUt

QAWt

NOP
ADD QAU
JMP Q A O + l
JMP Q A Q
JMP Q A Q
JMP QARFSH
QA V
45 43
74 76
36 34
37 47

QAXc

QAYI

/CONST ANT

/Lf, CR
/< # >
/ALT t BACKSLASH
/RUBOUT# TAB
/END Q + A

/KEYBOARD

INPUT ROUTINE

Q A KR BF 60 36

/PDP-8

I O T KBD

0555
05 56
05 57
0560
05 6 1
05 62
0563
05 64
05 65
05 66
05 67
0570
0571
0572
05 73
0374
0575
05 76
05 97
06 00
0601
06 02
06 03
06 04
0605
0606
0607
06 10
0611
0612
0613
06 1 4

1000
00 00
47 03
20 0 1
47 00
2002
47 02
46 76
04 15
60 00
05 00
60 36
1460
0204
04 56
6737
10 60
0000
1120
75 40
0451
6644
00 6 1
07 06
00 62
7770
1000
0576
1461
6614
6675
02 22

GETKBOI

LOA
0
STC QAEXlT+6
ADD 1
STC QAEXIT+3
ADD 2

/SAVE RETURN
/SAVE XRS 1 AND 2

STC QAEX17+5
STC QAEXIT*I
KST
/WAS SOMETHING TYPED?
JMP 0
/NO1 E X I T

IOB
QAKRB
SAE I

QATYp

/GET

T T Y CHAR1 CLEAR FLAG

20 4
/C TR L/ 01
SKP
JM P
DIAL
/ Y CIS
STA f
/SAVE I T
0
ADA I
-237
AP 0
/BETWEEN 2 0 0 AND 2 3 7 1
JMP QACNTR
/CONTROL CHAR, CHECK FOR C R t L F # T A B
SET I 1
I N0
Q A CH AR -1
SET I 2
-7
LD A
Q A TY
SAE I 1
JMP , + 2
JMP Q A E X I T
/ I L L E G A L CHAR, DON1 ECHO
X S K I 2 /CHECKED THEM ALL?

2451
24 52
2453
2454
2455
24 56
24 57
2460
2461
2462
24 63
24 64
24 65
24 66
24 67
24 70
24 71
24 72
24 73
2474
2475
24 76
2477
25 00
2501
2502
2S03
2304
250s
2506
2507
2510
25 11
2512
25 $3
29 1 4
2515
25 1 6
2517
25 20
25 21
2s22
2323
23 24
2529
2526
2527
29 30
25 31
25 32

2533
25 34

2535
2536
2537
25 40
2541
2542
25 4 3
0

0615
06 16
0617
0620
0621

6611
1120
7440
0451
66 35

06 22
0623
0624
0625
0626
0627
06 30
06 31
0632
0633

14 61

66 32
10 20
0334
6704
1020
00 37
66 77
1461
6675

06 34
06 35
0636
0637
0640
06 4 1
0642
0643

6677
1000
0576
6704
25 76
1560
77 00
6677

0644
06 45
0646
0647
0650
0651
0652
0653
06 5 4
06 55
0656
0657
916 60

1460
77 55
6661
10 20
0043
46 76
1020
0215
67 04
1020
0212
67 04
66 75

06 61
0662
0663
06 64
06 65
0666
0667
06 70
0 6 71
06 72
06 73
06 74

1 4 60
7752
6667
I020
00 45
6651
1460
7751
66 75
1020
00 47
66 77

JMP , - 4
AOA 1

-331
APO
JMP QALEGL

/BETWEEN 2 4 0 AND 3 3 7 1
/ Y E S , LEGAL CHAR

SA€ I 1
JMP 1*7

/ N O * CHECK FURTHER,

LOA I
334
JMP QATPE
LOA I
37
JMP Q A E X I T + 2

/RUBOUT

0675
06 76
06 77
07 00
0701
0702

1020
00 00
00 61
00 00
00 62
0000

SAE I 1
JMP Q A E X I T
JMP Q A E X I T + 2
QALEGL, LDA
QATY
JMP QATPE
ADD Q A T Y
BCL I

/ECHO BACKSLASH
/LEGAL

EXIT

11LL EG AL
/ALT
/EXIT,

DONI
ECHO

/ECHO

CHAR

I S T R I P I T TO 6 - 6 1 1

7700
JMP Q A E X I T * 2

/ T O HERE IF CONTROL CHAR
QACNTRt SAE I
77 55
JMP QACKLF
/CR
LDA I
43
STC Q A E X I T + l
LOA I
215
JMP QATPE
LOA I

212
JMP Q A T P E
JMP QAEXIT

/
QACKLF, SAE

7752
JMP ( * 4
LOA I

JMP QACNTR+5
SA€ I

77 $1
JMP OAEXIT
LOA I

/ I LLEGAL

47
JMP Q A E X I T + P
/
QAEXIT,

/EXIT,

DON1 ECHO

LOA I
/GET 6-617 A S C I I
0
/RESTORE X R S
SET I 1
0
SET I 2

25 44

2545
25 46
25 47
2550
25 5 1
25 52
2553
2354
25 55
2556
25 57
25 60
2561
2562
2563
2564
25 65
2566
25 67
25 70

2571
25 72
.
)

07 03

60 00

JMP
/ E X 1 R S\R GE TKBD
T O PRINT C(AC)
QATPE,
NOPIPOP
I O O N T ECHO
/PMODE
/TSF
/JMP
*-I

/S\R

0704

00 1 6

0705

0011

CL R

60 00

/LINC
/LMODE
JMP

/TLS

07 06

/€XI T

0707
0710
0711
0712
0713
07 14
07 15
07 16
07 17

02 43
0244
0245
0247
03 00
03 36
0337
00 40
00 36

QACHARI 243
244

24s
247
30 0
33 6
337
40

/END

/HASH

/DOLLAR SIGN

/ P f R CENT
/ A PO STROPHE
/AT S I G N
/UP ARROW
/BACK ARROW
/RUBOUT
36
/ALT
OF S \ R CETKBD
EJECT

2573
2574
2575
25 76
25 77
2600
2601
2602
26 03
2604
26 05
2606
26 07
26 1 0
26 11
26 1 2
2613
2614
2615
2616
2617
2620
26 2 1
2622

0720
0721
07 22
07 23
07 24
0725
0726

0642
6020
22 45
23 72
60 7 3
0602
6057

Qlr

LDF 2
JMP
Q A I N IT
FRAME1 !200 0
/TYPE
AN SR l! 20 00
JM p
QARBSH
LIF 2
JMP
CETANS

I N BLOCK,

PMODE
6727
67 30

0000
6141

07 3 1
07 32
07 33
07 34
0735

06 42
60 20
23 27

67 36

5727

67 37
6740
67 4 1

0002
57 4 1
1221

Q2r

LINC
LMODE
LDF 2
JMP
QA I N I T
FR AM E2 12 00 0
A N S R i ! 2000
PDP
PMODE
JMP I
92

2372
0002
/

DIAL,

00 02
JMP I
KT 0

L I S T A P E 12

/PDP

/ D I A L ROOTER

UNIT"

NO ERRORS
0 2 6 4 SYMBOLS
1 0 1 1 REFERENCES

SYHEOL

VALUE

DEF

ANSRI
EALF
EASE
EITC
B I 1s
BITSET
BLOCK

4372
0715
0064
0512
0514
0507
4151
1023
0043
1024
8736
0607
0063
01110
0011
0272
0062
b737
0703
0750
0522
4141
4047
0600
4132
0716
0645
0026
4245
4527
1004
4074
4153
4057
4230
bb55
0651
4204
0012
1013
0400
0025
1242
0452
0052
0050
0051
0344
1255
0032

1 6 0 4 1 3 5 0 1357 2 5 7 6 2612
0665 06 55
0 1 3 4 0354 0 4 2 5 0 5 6 2
0462 0 ? 3 6 0 4 5 2 0 4 1 4
0464 0 4 4 3 0 4 4 7 0 4 5 1
0457 0446
1451 1237 1352 1404
0774 0753
0113 0634
0775 0766
0710 0646 0666 0703 0715
0 5 5 6 05 74
0 1 3 3 0206 0 2 0 7 0224 0 2 3 3 0245 0 2 4 7 0 2 5 3 0 4 3 7 0 7 5 6 1 4 3 4
0060 0433 0444 0455 0503 0520 0524 0606 0640 0645 0661 0705 0752 0761 0764 1345 1354 1371 1377 1504 1521 1524 1552
0 0 6 1 11506 0 5 1 0 0514 0 6 1 0 0642 1 5 2 0
0260 t u 1 5 11353 0 4 1 5
0132 0516 0527
2 6 1 7 24 30
0653 0 6 6 2
0723 0637 0657 0745
0476 8122 0 5 3 7
1 4 3 7 $120 1 4 3 0 1444
1 3 3 5 1 2 1 3 1 3 0 7 1474
0547 0121 0571
1 4 3 0 0076
~.
. .
0666 0 6 4 3
0615 8707
0076 0266 0 3 0 1 0414 0 7 6 3 1 1 0 1 1 1 1 2 1125 1 1 3 3 1 1 3 7 1 1 4 6 1 1 5 2 1 1 6 5 1 1 7 0 1 2 0 1 1 2 0 3 1 2 5 2 1 2 6 0 1 2 7 5
1 5 6 0 2575
15’11 0 1 0 7 0 1 4 1 0 1 7 3 0 1 7 7 1374 1 4 0 2 2 6 1 1
0755 0762
1364 1 2 0 6
1457 1 3 5 1 1 3 6 0
1345 2601
1540 1 5 3 1 1 5 5 3
2411 1637 1766
0621 0641
1510 1461
0 0 6 2 0 3 5 5 0356 0 4 2 6 0 4 6 0 0 4 6 5 0 6 0 1 0 6 0 3 0 6 1 1 0 7 5 4 0 7 5 5 1 3 4 7 1 3 5 6 1 4 6 3 1 4 7 5
0 7 6 4 0760
0 3 4 1 11334
00 75 0364 0 2 5 0 0254 0 2 6 3 0272 0 2 7 4 0 3 2 1 0 3 2 5 0332 0 3 7 3 0 3 7 1 0 4 0 0 0404 1 5 1 5 1533 1 5 3 7 1 5 4 1 1 5 4 4
1 2 3 7 1 2 3 5 1 2 5 6 1 2 6 2 1263
0415 0974 0405
0122 1 4 4 2
0202
0120
11121 1 4 4 1
0 3 3 4 0220
1253 1246
0102 14 43

eisi

BNUH
BROUTE
EUHPX
BUMPY
CHAR
COUNT1
COUNT2
CR GO 1
CURY
DIAL
OISALF
DISCAR
D f SCUR
DISPLA
D f SPl
DIS10

DLOOP
DOCON
OONUM
EXIT
FRAME1
FRAHE2

CE
GET
CETANS

CETDfG
GETKED
GETNUH
GETOUT
CETPNT
COT

GOTS
HOLD
IELOCK
ICRGOT
IDISCU
IDISPL
101S10
ICOTS
IKC
102

REFERENCE L I N E NUMBERS

SYMBOL

VALUE

DEF

REFERENCE (.IN[

JMPLST
KILT
KB
KCB

1060
1132
1143
1200
1211
1164
1175
1240
1256
1213
1234
0453
1000
1027
1153
0200
1243
1111
1121
1266
1216
1221
0023
0747
0024
1025
0216
0071
0626
0021
0022
0065
1233
8030
0057
0054
0053
0045
0047
0035
0056
4157
6476
4147
0015

1035
111s
1130
1171
1202
1155
1166
1235

0 7 7 5 0776 0 7 7 7
1 0 5 1 1 0 6 5 1064
1036 1 1 0 6 1121
10 35
1175
1U41
1161
11645
10 46
1047 1236 1264
10 50
1053 $054 1055 1 0 5 6 1057 1 0 6 0 1 0 6 1 1 0 6 2
14 36
0174 16776 0777
1042 1 2 5 3
11643
1044 1 2 7 1
1B65
1075
0 4 7 2 1052
1037 1 2 3 4
1840 2 6 2 1
16277 0 4 0 6 0423 0 5 0 4 1104 1 1 1 0 1111 1 1 1 7 1123 1 1 2 4 1243 1 2 5 0 1 2 5 1 1 4 2 5
0620 0 6 2 1 0630
0300 0407 0 4 3 1 0 5 0 1 1073 1 0 7 7 1100 1 1 0 3 1116 1 2 4 2 1267 1 2 7 3 1274 1 4 2 6
0751
1 2 2 3 0 2 2 7 0232 0 2 5 7 0330
01 65
0565 0 6 0 8 0602 0664
0344 0350 0357
0351 0361
02 1 3
1216
0230 0 5 5 3 1173 1 1 7 6
0225
1157
0401 1 1 4 4
0210 6264 0370
0704
0515 0 5 7 2
12 44
13 05
0133
1233 1411
0636 0656 0733 0734
0216
kl7 65
1325
0166 8236 0 2 4 1 0307 16310 0517
1 5 7 3 1 4 0 1 1551
ii62
0523
16507
05 55
07 12
0557

KCB2
KCF
KCF2
K CN
KC P
KCR
KC W
KDICIT
KEYDEC
KEYLST

KF
KL C
KR €1
KR U8
KRUBZ
KSPACE
KT C
KT 0
LI NE
LINK
L I NPOS

L r SLEN

L€SN
LNOPUT

LOCDIS
MASK
MATCH
MCRRUB
MO V f
M1O
M240
M360
M 3 70
M377
M4
~4 0

147
NEXT
NUMP A T
PARAM

PA TPNT
PCRMS
PLEN
PMOVE
PU TB
PUTPNT
Pi0
P12
Pi40
P i 60
P20
P204
P3 02

OB44

1026
0100
8014
0013
0055
0061
0562
0745
0040
0746
0563

1255
1204
1231
0422
0751
1004
1142
0162
1241
1072
1102
1266
1210

I215
0073
0721
0074
0776
0202
0141
0576
0071
0072
0135
1227
0100
0127
0124
0123
0119
0117
0105
0126
1463
2322
1446
c3065
0114
0777
0151
0064
01163
0125
0131
054a
0717
0110
0720
0541

05 17

NUMBERS

VALUE

DEF

REFERENCE L I N E NUHEERS

0067
0036
0060
0041
0066
0074
0076
P7
0046
0034
P77
P7776
0075
P7777
e077
6024
QA B
6035
QACA
QACHAR 6707
QACKLF 6 6 6 1
QACNTR
6644
6046
QAD
6070
QA E
P A E X I T 6675
6536
QA C
OAG
6102
6134
QA H
6151
04 I
O A l N l T 6020
6
156
QA J
QA K
6325
6036
QAKRB
6215
PAL
QALEGL 6 6 3 5
6121
QA M
6243
Q4N
6251
PA0
PAP
6262
PA0
6303
QARrSH 6073
QA I
6310
6704
QATPE
6576
QAlY
6541
04u
6336
QA V
6542
QA W
6544
QAX
6551
QA Y
6321
91 Z
4203
OHOLD
6720
01
6727
02
0744
RB
RE AS E
0070

0137
0106
0130
0111
0136
0145
0147
0116
0104
0146
0150
1627
1640
2560
2521
2503
1652
1676
2536
2364
i711
1743
1761
1623
1766
2145
2407
202s
2413
1738
2094
2063
2075
2116
1702
2124
2546
2432
2367
2156
2370
2372

0175 0240
0261 0410
0275 0412
0612
0171
1315
13 17
0246 0 2 6 7
8653
0635 1316
1320
1415 1770
1660 2006
2440
2>05
2436 2326

0072
0314
0432
0551
0541
0407
0477

0143
0302
0375
0526
0516
0312
0447

SVngoL

P34
P3443
P370
P377
P43
P5772
P I 77 3

REA0
RUBGOT
SAME
SAVE X
SA VE Y
SCAN
SWIFT

2sii

2136
1501
2573
2604
0716
0140

0316
1166

0405 0 4 3 4 0632

2 1 5 3 2154

1 6 3 4 1643 1 7 5 1
1704 1 7 5 3 1763 1 7 6 4 2112
1 7 6 5 2 1 1 1 2 1 4 1 2366
2574 2 6 1 0
1341 1420 1746
1774 2 0 0 4 2055
2414
i 6 3 0 2002 2012
2455
1720 I 7 2 2 1726
1776 2061
1652 1744 1762 2016 2026 2044 2056 2372
1730 1752 1754
1633 2017 2020 2034 2052 2145 2373 2374
1 6 3 6 1 6 4 1 1710 2 0 0 0 20 10 2 0 1 4 2 0 2 4 2 0 2 7 2057 2 1 2 2 2 3 1 5 2 5 7 7
1647 1713
24 63 2 4 7 5 25 13 2 5 1 6
24 44 2 4 7 4 2476
2 1 00 2 1 0 1 23 7 1
0b65 2376
1721 1727
2076 2146
17 72
1745
1462 1467 1501 1503
1344
0 1 0 2 2615
0552 0561 0563
0216 0 3 5 3 0364 0 3 6 6 0367 0 3 7 5 0413 0 4 2 4 0 5 5 1 1 1 3 1 1135 1 1 3 6 1 1 4 3 1 1 5 0 1 1 5 1 1 1 5 6 1 1 6 3 1 1 6 4 1167 1 1 7 2 1177 1 2 0 0
1202 1427
1322 1410
412 12
0363
0522
05 12
0372
0456

SYMBOL

VALUE

DEf

R E F E R E N C E L I N E NUMBERS

SL
SL AS H 1
SLSHaK

0319
00 37
03 4 1
a543
0553
0 10 1
0827
6 1 47
42 44
42 05
00 42
BE28
0a73
0831
00 16
4020
8033

0276
a1 07
53 3 1
a520
B510
0 15 2
0077
3447
1554
15 15
211 1 2
70
0144
E101
0066
13 04
0103

0273
5262 0 4 1 1
@305
0525

su ex

SUBY
SYSBLK
TEMP
UNIT
UNOUT
UNPACK
WORD
UROCNT
WRITE
XC OR
XTEHP

xx x

YCOR

0515

1?23
8616 8 6 2 3 0 6 2 6 0 6 3 1 0767 0 7 7 0
1J61 1367
15 1 7
1J75 1 4 0 5
a604 0 6 4 7 0660 0 7 0 6
0354 0 5 6 7
1232 1314
0568 0 6 7 2 0713 0714 8727 0 7 4 1
0163 0 2 2 1 0255 0 3 0 3 0 3 1 2 0 3 1 3 1527 1 5 3 5
0556 0575 0614 0 7 3 1

INDEX

Internal description,

2
ALTMODE,
Assembly instructions,
B command,
3
Bllock s p e c i f i c a t i o n ,

LLNE,
4
LINEFEED I
3 ,5
LINPOS , 4
L o a d i n g procedures,

Commands
ALTMODE,
2
3
B,
CTRL/B,
3
CTRL/CI
3
CTRL/F,
3
CTRL/N, 4
CTRL/OI
4
CTRL/P,
4
CTRL/R,
3
CTRL/W,
3
cursor, 2
2
D i g i t s la-7,
Display,
2
Fi
3
LINEFEED,
3, 5
Reading,
3
RETURN,
2
RUBOUT,
2, 5
SPACE,
2
Writing,
3
C o r e layout,
4
CTRL/B,
3
CTRL/CI
3
CTRL/F,
3
CTRL/N,
4
CTRL/O,
4
CTRL/PI
4
CTRL/R,
3
CTRL/W,
3
C u r s o r commands, 2
D i g i t s pI-7,
DISlg,
5
DISCUR,
5

Pointers
RBASE,
4
LINE,
4
LINPOS,
4

( q u e s t i o n and answer)
frames, 1
routines.
5

QANDA

RBASE,
4
RETURN,
2
Routines
DISCUR,
5

DISlg,

QANDA,
5
RUBOUT,
2,5
SPACE,

S t a r t i n g address,

U n i t specification, 1

Display commands ,

F command,

3
Frames, q u e s t i o n and answer,
H a r d w a r e requirements,

x-1

HOW TO OBTAIN SOFTWARE INFORMATION
Announcements for new and revised software, as w e l l as programming notes,
software problems, and documentation corrections are published b y Software
Information Service in the following newsletters.
Digital Software News for the PDP-8 & PDP-12
Digital Software News for the PDP-II
Digital Software News for the PDP-9/15 Family
These newsletters contain information applicable to software available from
Digital's Program Library, Articles in Digital Software News update the
cumulative Software Performance Summary which i s contained in each basic
k i t of system software for new computers. To assure that the monthly Digital
Software News i s sent to the appropriate software contact a t your installation,
please check with the Software Specialist or Sales Engineer at your nearest
Digital office.
Questions or problems concerning Digital's Software should be reported to
the Software Specialist. In cases where no Software Specialist i s available,
please send a Software Performance Report form with details of the problem to:
Software Information Service
D i g ita I Equipment Corpora t i on
146 Main Street, Bldg. 3-5
Maynard, Massachusetts 01754
These forms which are provided i n the software k i t should be f u l l y f i l l e d out
and accompanied by teletype output as well as listings or tapes of the user
program to facilitate a complete investigation. An answer w i l l be sent to the
individual and appropriate topics of general interest w i l l be printed in the
newsletter.
Orders for new and revised software and manuals, additional Software Performance Report forms, and software price lists should be directed to the
nearest Digital Field office or representative. U.S.A. customers may order
directly from the P r e y m Library in Maynard. When ordering, include the
code number and a brief description of the software requested.
Digital Equipment Computer Users Society (DECUS) maintains a user library
and publishes a catalog of programs as well as the DECUSCOPE magazine
for its members and non-members who request it. For further information
please write to:

DECUS
D ig ita I Equipment Corporation
146 Main Street, Bldg. 3-5
Maynard, Massachusetts 01754

TED
DEC-12-EOSA-D

COMMENTS

READER'S

Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness
o f i t s publications. To do this effectively we need user feedback -- your c r i t i c a l evaluation of
this manual.
Please comment on this manual's completeness, accuracy, organization, usability and reada bil it y

Did you f i n d errors i n this manual?

If so, specify by page.

~~~~~

How can this manual be improved?

Other comments?

Please state your position.

Date:

Name:

Organ izat ion :

Street:

Department:

City:

State:

Z i p or Country

---- _----_--

Do Not Tear -Fold Here and Staple - - - - - - - - - - - -

FIRST CLASS
PERMIT NO. 33
MAYNARD, MASS
BUSINESS REPLY MAIL
NO POSTAGE STAMP NECESSARY IF MAILED IN THF. UNITED S T A 1 f-S

Postage will be paid by,

Digital Equipment Corporation
Software Information Services
146 Main Street, Bldg. 3-5
Maynard, Massachusetts 01 754

Digital Equipment Corporation
Maynard, Massachusetts

printed in U.S.A.