Digital PDFs

MAINDEC-12-D1FA-D

2000

48 pages

Original

1.3MB

Document:	Basic Memory Control Test
Order Number:	MAINDEC-12-D1FA-D
Revision:	0
Pages:	48
Original Filename:	http://bitsavers.org/pdf/dec/pdp12/diagnostics/MAINDEC-12-D1FA-D_Basic_Memory_Control_Test.pdf

OCR Text

PALS

TITLE:
/IDENTIFICATION:
/DATE CREATED:
/AUTHOR:

/PROGRAM

/MAJNTA!NED

av:

26171

PAGE 1

PDP-12 BASIC EMORY CONT
MA!NDEC 12-DlFA-D
28 FEBRUARY, 1971
HAROLD LONG
DIAGNOSTIC GROUP

iE ST

M£J1CT

PAl.,8

/POP-12 MA1.,.-£C l2-D1FA

2/28171

PAGE 2

/PDP-12 MA!NOEC 12-D1FA-L
BASIC MEMORY CONTROL EST
ICOPYR!GhT, 1970, 1971, DJGJTAL EQU!PMENl CORP,, MA NARD, MASS,
I

/AUTHOR:

~AqOLD

LONG

/THIS TEST IS DESIGNED TO EXERCISE ALL MEMORY
/CONTROL INSTRUCTIONS AVAILABLE ON
POP-12
/COMPUTER, !T OPERATES IN BOTH 8 AND L MOOE,

/4K OF MEMORY IS REQUIRED,
I
I

/RIGHT SWITCH REGISTER OPTIONS:
/SR00:1, INHIBIT ERROR HALT
/SR01=1, INHIBIT ERROR PRINTOUT
ISR02:1, SCOPE LOOP ON FAILING ROUTINE
/SR03=1• SCOPE LOOP ON NON-FAILING ROUTINE
/SR05:1, INHIBIT BELL
/SR06=1• INHIBIT PASS COUNTER PRINTOUT

I
I

/NORMAL SWITCH SETTING rs RSW:0000,
I
I
I
I

/PROGRAM CONTROL !S HAND D BY A MONITOR RESIDENT IN BANK 0,
/LOCATIONS 5000 TO 5177, MOST ROUTINES VISIT THE MONITOR 4096 TIMES
/AT THE COMPLETION OF A TEST, AN ERROR WILL CAUSE THE
/PROGRAM TO TYPE OUT THE ERROR MESSAGE AND HALT, THE
/HALT IS AT LOCATION 5033, THE HALTS IN THE PROGRAM
/BLOCKS ARE NOT, REPEAT NOT, EXECUTED, THEY ARE
/THERE FOR MANUAL PROGRAM CONTROL ONLY,
I
I

IIIO PRESET TO PMODE, START 20
I

....

)

/PDP-12 MAINDEC 12-DlFA-L

PAL.8

2/28171

PAGE 3

/PDP-12 INSTRUCTION DEFINITIONS
IL MODE MEMORY REFERENCE
LOF=0640
ILOAD DATA FIELD 0-37
LIF=0600
/LOAD INSTRUCTION FIELD 0-37
OJR=0006
/DISABLE JUMP RETURN
/MODE CHANGE
POP=0002
/SWITCH TO P MODE
LlNC:6141
/SWITCH TO L MODE
IL MOOE PROGRAMMING INSTRUCTIONS
LJMP:6000
/JMP
CLR=0011
AtE=0450
AOD=2000
108=0500
L.NOP=0016
/NOP
ROR=0300
LSKP=!21456
ROL=0240
BSE=1600
BCL=1540
SET=0060
/(REALLY SET I>
STC=4000
SR0=1500
/USED AS A SWITCH CHECK
LDA=1000
STA=1040
XSK=0220
/(REALLY XSK I>
/DATA MATRIX SWITCHES
EX I TA=7777
EX ITB=4444
/SPECIAL RESTART SWITCH
EXIT=i0011l0

P~d.S

l'!ll'lllllfl>-11.2 1'1A ... .JlE'C :u?•D:l.f ~,~L

l?4'2iill'H

Pt1GE: 4

IP MOD£ INTERRUPT HANDLER
000121
001211
0002
0003
0004
0QH'l5
0006

0007
e010
0011
0012

0013
0014
0015
121016
0017

0000

i>00!ZH1J
Pl NTR,

7320
6234
3125
1124
765121
5535
3124
6244
2012l0
5400
012l00
12ll2ll2l0

012l0f/J
0000
0000

0000
A

RIB
DC A
TAD

L.L CML
PREG
PP 0 I NT

SNA OLA
RETURN
JMP l
DCA
PPO!NT
RMF
!St

l2l

JMP !
P!NTR
/AUTO·INDEX REGISTERS
LREG1, !2112l012l
PINT,
00012!
AUT011, 11ll1ll1J0
AUT012, 11l011l121
COUNT,
I

/!NTERRUPT RETURN STORAGE (ALSO LINC JUMP
vu
/SET L!NK, CLEAR AC
/READ SF
/SAVE lT
/GET SWITCH
/SET?
/NQ, RETURN THROUGH PRESET LINKUP
/CLEAR SW!TC
/RESTORE MEMORY
/INCREMENT RETURN OVER JMP ,
/BACK TO MAINLINE VIA INTERRUPT RETURN LINKUP
/DATA POINTER
/MESSAGE POINTER

12Jl2l00

/CROSS-PAGE REFERENCE TAGS ANO CONSTANTS
I

•0020
0020

JMP

5176

176

/MINOR START

ILOC 0021-0037 RESERVED FOR SUBROUTINES
I

/PDP-12 MAINDEC 12-D1FA·L

0040
12112141
012142
012143
0044
0045
0046
0047
1211215121
012151
012152
12112153
12112154
121055
0056
121057
1211216121
012161
12112162
121063
121064
121065

121000
012111

050121
6234
4064
150121
121065
0456
61215121
1215121121
62 44
12122121
21214121
1620
61211210
4063
412165
12150121
612101
612163
121000
12100121

PALS

/LMOOE INTERKUPT HANDLER
lf12104121
LINTR, 0000
CLR
LH AN,
JOB
RJB
STC
LREG
SRO
LPO!NT
LSKP
LSET,
LJMP
'
!OB
RMF
XSK
0
ADO
Ll NTR
BSE
20
612100
STC
'+4
STC
LPO!NT
IOB
ION
LJMP
•
LREG,
0000
LPOINT, 1210121121

2/28171

PAGE 5

/INTERRUPT RETURN STORAGE
/CLEAR LINK, CLEAR AC
I

/READ SAVE FIELD REG
/SAVE IT
/SW ITCH SET?
I

/TO HERE IF BIT 0:1
/NQ, RETURN TO BANK 121 THROUGH PRESET LINKUP
I

/YES, RESTORE MEMORY FIELDS
/INCREMENT
/GET RETURN
/MAKE IT A LINC JUMP CBSE ll
I

/STORE FOR EXECUTION
/CLEAR SWITCH
I

/ENABLE INTERRUPTS
/BACK TO BANK 0 VIA INTERRUPT RETURN LINKUP

2 MA.

lF·~~

/MORE TAGS AND CONSTANTS
I

0066
121067
lHl7121
!21071
!2112172
012173
00 74

5337

5020
0020
0040
0077

BELL,
ERROR,

BELLS
ERRORS

K0020,

0020

K004121,
K0077,

0040
0077
0H'l0

K0100,
Ki21177,
K0207,

0100
0177
0207
0400

K121411l11J,

0400

1026

K1026,

1026

1777
2000
2021

K1777,
K2000,

1777

K2021,

5252
6020

K5252,
1(6020.

fll 111l 5

7774

K7774,

0106

0640
0600

5306
5244
1124

KLDF,
KLIF,
KLJMP,
LMASK,
LS TERR,
NERROR,
PNTA.,
PNTC,
PNTCA,
PNTE,
PNTF,
PNi J,
PNTO,
PNTP,
PPOINT,
PREG,
RANDOM,
REGA,
REGS,
REGC,
REGO,
REGE,
RELOCR,
RETURN,
SETFLG,
SPACE,
TSTJNT,
TY PE,
TST29N,

1001
1163

TRY22N,

T~Y22A

TEST,

TE ST \I

0075
121076
012177
0 l!Zl l1l
0101

"'lf212
0HJ3
0104
0107
0110
0111

rn12
0113
0114

0115
0116
0117

600121
0003

0000
5!2100
0354
0434
0400
04 77

12112121
121121
0122

0757
1115

0123

5331

0124
0125
121126

0000
0121121121

0127
fll13fll
IH31

001210

0132
0133
0134
lil135

0136
0137

0140
0141
0142
0143
0144

1161

5200

0000
00121121
012100
0000
5261
000121

5253
011l01il

/CROSS PAGE TO BELL RINGER
/CROSS PAGE TO ERROR MONITOR

0177
0207

2000
2021
5252

/USED IN RELOCATION OF TESTS

602121
7774

LDF
LI F'
LJMP
0003
001210

NE RR OS
LOCA
LOCC
LOCCA
LOCE
LOCF'
LOCJ
LOCO
LOCP
0000
0000

RANDY
0000
liH1!011l
0000
0000
i211i:l00

RELOC
0000

F'LA.G
000111

/LMODE LDF
ILMODE L!F
/LMODE JMP
IL.IF'ILDF MASK
/LAST ERROR POINTER
/CROSS PAGE TO NON-ERROR MONITOR
/INTERRUPT RETURN TEST 07
/INTERRUPT RETURN TEST 09
/INTERRUPT RETURN
/INTERRUPT RETURN TEST 11
/INTERRUPT RETURN TEST 21
/MESSAGE POINTER
/PMODE SWITCH,
/HOLDS SF
/CROSS PAGE TO RANDOM GENERATOR
/DATA
/DAT A
/DATA
/DATA

/DA.TA
/CROSS PAGE TO RELOCATOR SUBR
/PMODE INTERRUPT RETURN IF SW TC
/CROSS PAGE TO F'LAG SET ROUT!N[
/DATA I/O BUFFER

l NTTST
TY PQ UT

TST29

/CROSS PAGE TO TYPEOUT SUBR

PALS

/POP-12 MAINOEC 12-DlFA-L

2128171

PAGE 7

/TO HERE FROM MINOR START
I

0176
0176
0177

7410
4466

SKP
JMS

/DON'T RING ON STARTUP, INITIAL!rE TEST
IGO RING BELL, RETURN TO TST03

BELL

/MAJOR START P MODE;

lNIT!ALl~AT!ON

ROUTINE

0200
0201
0202
0203

7300
3127
3112
3017

0204

4540

START,

CLA CLL

OCA
DCA
OCA
JMS

REGA
LS TERR
COUNT
TS TINT

/CLEAR AC
/CLEAR LOOP COUNTER
/CLEAR OLD ERROR
/CLEAR PASS COUNTER
/TEST FOR NO INTERRUPT

ff:.

MA l"

IL MOOE
THE DATA FIELD REGISTER BE LOADED WITH BINARY CGUNT

/CA~

0205
0206
121207
02Hl
0211
0212
0213
0214
121215
0216
0217
0.220
0221
0222
0223
0224
0225
0226
0227
0230
0231
0232
0233
0234

1127
0111
3130

1130
111'6
3214
6141
121000
0500

6214
0002
71Hl
3131

1131
7041
1130
6201
7650
4513
4467
5350
74et2
7610
0205

TST03,

TAD
ANO
DCA
TAO
TAD
DCA
LINC

REGA
LMASK
REGB
REGB
KL OF'
• +2

0000

!OB
RDF
PDP
RAR CLL
DCA
REGC
REGC
TAD
CIA
REGS
TAO
COF
00
SNA CLA
JMS I
NE RR OR
ERROR
JMS I
TST03M
HLT
SKP CLA
TSH13

/FETCH TEST NUMBER
/SAVE Bl TS HJm11
/SAVE FOR OBSERVATION
IF'ETCH IT
I ADO LOF
/PLACE IN ROUTINE
IGO TO Ll NC MODE
/EXECUTE LDF
/PREPARE TO GET DATA FIELD
/GET DATA FIELD
/BACK TO PMODE
/JUSTIFY RIGHT TO AGREE WITH REGS
/SAVE FOR TYPING
/FETCH IT
12' S COMPLEMENT
/COMPARE
/RESTORE DATA FIELD
/INCORRECT IF NOT rERO
/CHECK WITH MONITOR
/LDF FAIL.ED
/MESSAGE POINTER
/ERROR HLT
IGO TO NEXT TEST
/SCOPE LOOPl !St LOOP

/POP-12 MAINDEC 12-0lFA-L

PALS

2/28171

PAGE 9

IL MODE
/CAN THE DATA FIELD REGISTER BE LOADED WITH RANDOM NUMBERS
I

0235
0236

4526
0111

02 37

313121

024121

11.30
111216

0241
0242

3244

0243
0244
0245

6141
IHHl0

050121

0246

6214

121247

001212

121250

711121
3131

121251
0252

1131

0253

7041

0254

113121

0255

6201

0256
121257
121260

7650
4513

4467

0261

5402

0262
0263

741212

121264

lil235

76H~

TSTJ4,

JMS
ANO
DC A
TAD
TAO
DCA
LI NC

~ANDOM

LMASK
REGB
REGB
KLDF
... 2

0000
JOB

ROF
PDP
RAR CLL
OCA
REGC
TAO
REGC
CIA
TAO
REGB
CDF
00
SNA CLA
JMS I
NERR OR
ERROR
JMS I
TST04M
HL T
SKP CLA
TST04

/GET RANDOM NU~BER
/SAVE B!TS 10-11
/SAVE FDR OBSERVATION
/FETCH l T
/ADD LF
/PLACE IN ROUTINE
/GO TO LINC MODE
/EXECUTE LDF
/PREPARE TO GET DATA FJELD
/GET DATA FIELD
/BACK TO PMOOE
/JUSTIFY RIGHT TO AGREE WITH REGB
/SAVE FOR TYPING
/FETCH IT
/2 1 S COMPLEMENT
/COMPARE
/RESTORE DATA FIELD
/INCORRECT IF NOT ~ERO
/CHECK WITH MONITOR
/LDF FAILED
/MESSAGE POINTER
/ERROR HALT
/GO TO NEXT TEST
/SCOPE LOOP; IS~ LOOP

hPOP-12 M,

JEC 12-0:l,F A-L

P4L,8

2:/'2!J./f ~1

PAGE 10

IL ·100E

/GATE

TEST

S~AKER

TSTZ6,

0340

4526
0111
313121
1130
1106
3324
6141
0640
0677
0660
065121
0644
0642
0641
0665
0652
121647
1216 7121
0640
0641
0642
0643
0644
0645
0646
0646
0647
0650
0657
0667
0677
000121
0500
6214
0002
7110
3131
1131
7041
11312!
621211
7650
4513
44 67

ii:1341

5434

TS T06M

0342
0343

7402

1:!3 44

0265

r-IL T
SI\
CLA

0265
121266
0267
027121
0271
0272
1212 73

0274
0275

0276
0277
12130121
0301
121302
0303
0304
0305
0306
0307
0310
0311
0312
0313
0314
0315
0316
0317
0320
0321
0322
0323
0324
0325
0326
0327
0330
0331
0332
0333
0334
121335
0336
033 7

76Hl

NOW2,

J>'•S I
A\0
OCA
TAD
TAD
DCA
LINC
LOF
LDF
LDF
LDF
LOF
LDF
LOF
LDF
LOF
LDF
LDF
LDF
LDF
LDF
LDF
LDF
LDF
LDF
LOF
LDF
LDF
LDF
LDF
LDF
000121
JOB
ROF
POP
RAR CLL
DCA
TAD
CIA
TAD
COF
Sf\JA CLA
J'1S l
J'-1

TST~!6

RANDOM

LMASK
RE GB
REGB
i<LOF
NOW2
121121

/GET A RA~OOM \UMBER
/SAVE BITS 10··11
/SAVE FOR OBSERVATION
/FETCH l T
/ADD LOF
/STORE FOR EXECUTION
/GO TO LINC MODE
/TRY SOME DATA F!ELO
/NOISEMAKERS

20
10

1214
02
01
25
12
07
30
00
01
02
1213

1214
05
06
06
07
111!

17
27
37

REGC
REGC
REGB
0121

NERROR
ERROR

/EXECUTE ACTUAL LDF
/PREPARE TO GET DATA FIELD
/GET DATA FIELD
/GO TO PMODE
/JUSTIFY WITH REGB
/SAVE FOR TYPING
/FETCH ! T
/2'S COMPLEMENT
IGOMPARE
/RESTORE DATA FIELD
/INCORRECT IF NOT rERO
/CHECK WITH MONITOR
/PROBLEMS W!TH NO!S DATA FIELD
/MESSAGE PO!N ER
ERROR ALT
0 TO N XT TEST
iJ: LOOP
COPE LLlO

/PDP-12 MA!NDEC 12-DlFA-L

2128171

PAGE 11

/THE DATA FIELD IS NOW CONSIDERED TO 8E TESTED,
/NO>~ CHECK RIB
I

/PMOOE
/CHECK INTERRUPT FACILITY,
I

121345
0346
0347
0350

0351

121352
0353
0354
0355
03 56

0357
12136121
0361
121362
0363

6041
4536
1114
3135
3124
6001
700121
601212
7430
4513
4467
5466
741212

7610
0345

TST07,

LOCA,

TSF
JMS i
TAD
DCA
DCA
ION
NOP
!OF

SETFLG
PNTA
RETURN
PPO!NT

JMS l
NERROR
JMS I
ERROR
TST1217M
HLT
SKP CLA
TST07

/CHECK FOR FLAG
/NOT UPl GO SET Ii
/GET ADDRESS RETURN
/STORE IT
/2ERO THE PMOOE SWITCH
/ENABLE INTERRUPT
/WAIT
/DISABLE INTERRUPT
/CHECK LINKl INCORRECT If i'!ERO
/CHECK WITH MONITOR
/INTERRUPT FAILED
/MESSAGE POINTER
/ERROR HALT
/GO TO NEXT TEST
/SCOPE LOOP; !St LOOP

/P,QP-12 MA; ... ,;E.C 12··01.FA-I,.

ILMODE
/C~ECK

PAL.8

2128/)1

PAGE 12

INTERRUPT FACILITY

03 64
0365
0366
0367
0370
03 71
03 72
0373
03 74
0375
03 76
0377

0400
0401
0402
0403
04 04
0405
0406
0407
0410
0411

60 41
4536
1116
0100
1110
3050
3065
7120
6141
0500
6001
0016
0500
6002
0002

74 2i2l
4513

4467
5507
7402
7610
0364

TST9A,

TS F
JMS !
TAD
AND
TAD

KLJMP

LSET
LPOINT
DCA
CLL CML
Ll !\IC
!OB
! ON
LNOP
!OB
!OF
PDP
SNL
NE RR OR
JMS I
ERROR
JMS I
TST9AM
HLT
SKP CLA
TST9A
DCA

LOCCA,

SETFLG
Pl\ITCA
Kl 777

ICYECK FOR FLAG
/N'.JT UP; GO SET IT
/GET RETURN ADDRESS
I H'.l 8 ! T ADDRESS
/ADD LINC J MP
/STORE FOR XECUT!ON
/tERO THE LMOLlE SWITCH
/SET LINK
/GO TO LINC MODE
/PREPARE TO EXECUTE !OT
/ENABLE INTERRUPTS
/wA IT
/PREPARE TO EXECUTE IDT
/DISABLE INTERRUPTS
/BACK TO PMOOE
ICHEC:K L!NK, l NCORRECT ! F SET
/CHECK WITH MONITOR
/INTERRUPT FAILED
/MESSAGE POINTER
/ERROR HALT
/GO TO NEXT TEST
/!Sr LOOP! SCOPE LOOP

/PDP-12 "IA INDEC 12-DlF A-L

PALS

2128171

PAGE 13

/LMOOE
/CHECK RIB
I

0412
0413
0414
0415

0416
0417
0420
0421
0422
0423
0424
0425

0426
0427
04311')
0431
121432
04 33
0434
0435

0436
0437
0441il

121441
0442
0443
0444
0445
0446
04 47
0450

0451
0452
0453

0454
04 55

6041

TSTZ9,

4536

1115
121100
1110

TSF
JMS
TAD

ANO
TAD
DCA
JMS

3050

4526
0111

ANO

3130
1130

6141

DCA
TAD
TAD
DC A
CLL CML
LI NC

001210

0000

0500

!08

601211
01/J16
0512ll21

ION
LNOP
!OB

1106
3230

7120

612102
0511'Jfll
6234
121242
0002

0111
3131

LOCC,

SETFLG
PNTC
Kl 77 7

KL JMP
LSET
RANDOM
LMASK
REGB
REGB
KLDF
'+ 3

/SET LINK

I0F
108

RIB

ROL
PDP
AND
OCA

LMAS
REGC
REGC

1131

TAD

7041

CIA

1130
7650
4513
4467

REGS
TAD
SNA CLA
NE RR OR
JMS I
ERROR
JMS l
TSTel9M

5530

7402
7610
0412

HLT

SKP CLA
TST09

/CHECK FOR FLAG
/NOT UP; GO SET JT
/GET RETURN ADDRESS
/10 B!T ADDRESS
/ADD LINC JUMP
/STORE IN RETURN ADDRESS
IGET RANDOM NUMBER
/SAVE 8 I TS li0•1l
/SAVE FOR COMPARISON
/FETCH IT
IADD l.DF
/STORE F'OR EXE CU TI ON
/GO TO LINC MODE
/EXECUTE LDF'
/PREPARE FOR !OT
/ENABLE INTERUPT
/WAIT
/PREPARE FOR IDT
/DISABLE INTERRUPT
/PREPARE FOR IDT
/READ INTERRUPT BUFFER
/JUSTIFY WITH REGS
/BACK TO PMODE
/SAVE BITS 10~11
/SAVE FOR TYPING
/FETCH Ii
/2 1 S COMPLEMENT
/COMPARE
/INCORRECT Ir NOT ~ERO
/CHECK WITH MONITOR
/LMODE R!B FAILED
/MESSAGE POINTER
/ERROR HALT
IGO TO NEXT TEST
/SCOPE LOOP: IS~ LOOP

/fil0P·12 MA

..1EC

12~01F'Adl

PALl.'l

'ii

171

IL MO DE
/DOES THE DA A FIELD SET TO 2ERO FOR

PAGE 14

IN ERRUPT

0456
0457
0460
0461
0462
0463
0464

04 65
0466
04 67
04 70
0471
0472
0473
0474
0475
0476
0477
0500
051111
0502
0503
0504
0505
0506
0507
0510
lll!Hl

0512
0513
0514
0515
lll516
0517
05211J
0521

6041
4536
1117
0100

TST11,

TAD
AND
TAD
DCA
JMS l
AND
DCA
TAD
TAD
DCA
LI NC

1110
3050
4526

0111
3130
1130

1106
3273

6141
i!!IH-50

SETFLG
PNTE
Kl 777

KLJMP
LSET
RANDOM
LM ASK
REGS
REGS
KLDF
,+2

0000

0500

6001
0016

0500
6002
05r,rn
6234
0242
4131
0500
6214
0002
7110
3132
1132
7650
4513
4467
5562
7402
7610
0456

TSF
JMS

LOC:E,

!OS
ION
LNOP
!OB
!OF
IDB
RIB
ROL
2
STC
REGC
!OS
RDF
PDP
RA R CL L
REGO
DCA
TAD
REGO
SNA CLA
JMS I
NERROR
ERROR
JMS I
TS T11M
HU
SKP CLA
TST11

/CHECK FLAG
/NOT uc GO SET !T
/GET R TURN ADDRESS
/10 BIT ADDRESS
/ADD LINC MODE JMP
/STORE IT
/GET RANDOM NUMBER
/SAVE BITS 10~11
/STORE FOR TYPING
IF'ETC:H l T
IADD LDF
/STORE FOR EXECUTION
IGO TO LINC MODE
/EXECUTE LOF
/PREPARE FOR !OT
/ENABLE INTERRUPT
/IH!T
/PREPARE FOR !QT
/DISABLE INTERRUPT
/PREPARE FOR !OT
/READ INTERRUPT BUFFER
/~USTIFY WITH REGB
/SAVE FOR TYPING
/PREPARE FOR !OT
/READ DA TA FIELD
/8 ACK TO PMODE
/JUSTIFY WITH REGB
/SAVE FOR TYPING
/FETCH 1 T
/INCORRECT !F NOT tERO
/CHECK WITH MONITOR
/DATA FIELD FAILED TO 2ERO ON !N C
/MESSAGE POINTER
/ERROR HALT
/GO TO NEXT TEST
/SCOPE LOOP; !St LOOP

UPT

/PDP-12 MAINDEC 12-01FA-L

PAL8

AGE

2128 71

IL MO DE

/DOES STA-LOA WORK FOR ALL DATA FIELDS
I

0522
0523
0524
0525
0526

7300
1127
0111
3130

TST13

CLA

TAD
AND
DCA

1130

TAD

0527

11':'!6

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

3335
1102
3013
1103

TAD
DC A

0545

0546
0547
0550
0551
0552
0553
0554

6141
0000

Hl53
1013
0640
0eH2l2
3131

1131
7!H1
1103
7650
4513
4467
5626
7402
76H:l
0522

CLL

TST13A, TAD
DCA
TAD

REGA
LMASK
REGS

REGB
KLDF
EXC13
K2021

LREG1
K5252

Ll NC
EX C13,

012100

ST A
LOA
LDF
POP
DCA
TAD
CIA
TAD

LREG
LREG1
0

REGC
REGC
K525

SNA CLA
JMS I
ER
JMS I
TST13M

HLT

SKP CLA
TST13

/CLEAR AC
IGET CURRENT BANK
/SAVE BITS le- l
/SAVE FOR OBSERV l N
!GET

I T

IADD LDF
/STORE FOR EXECUTIG~
/GET DORESS
/STORE FOR INDIRECT ACCESS
!GET CONSTANT
/GO TO LMODE
IEl<ECUiE LDf
/S RE INDIRECT TO OF
IF TCH NUMBER
ESTORE DATA FIELD
Tel PMODE
SAVE FOR TYPING
F'ETCH IT

/2'S COMPLEMENT
/COMPARE
/INCORRECT IF NOT i!ERO
/CHECK W!TH MONITOR
/STA OR LOA FAILED
/MESSAGE POINTER
/ERROR HALT
/NEXT TEST

/SCOPE LOO Pl

I Si! LOOP

? .MA,. f.f;

-plF A

?/28

/TEST THE OJR FUNCTION FOR ALL COMBINATIONS
I

IL MODE
/DOES OJR NOT FUNCTION WHEN NOT SET?
I

0555
0556
0557
0560
0561

7300
1H'J3
3000

0562

121002
100121

0563
0?64
0565
0566
0567
0570

0571
0572

0573
0574

TST14,

CLA CLL

TAD
DCA
LI NC
LJMP
PDP
TAD
CIA
TAO

6141
6562
7041
1103
7640
4513
4467

K5252
0

,+1
0

K5252

Si!A CLA

JMS I
JMS I
TST14M

6040
7402

NE RR OR
ERROR

HLT

SKP CLA
TST14

7610

0555

/CLEAR AC
/GET CONSTANT
/SET 0
/GO TO LINC MODE
IDO A LINC JUMP
/BACK TO P MODE
/GET 0
/2 'S COMPLEMENT
/ADD CONSTANT
/WAS LOCATION 0 CHANGED?
IYESI CHECK WITH MONITOR
/LINC JUMP SAVE RETURN FAILED
/MESSAGE PO INTER
/ERROR HALT
/TO N(XT TEST
/SCOPE LOOP;. I Si! LOOP

IL MOOE
/DOES DJR FUNCTION WHEN IT'S SET?
I

TST15,

0575

7300

0576
0577
0600

1103
3000

TAD

K5252

DCA

6141
121006

LI NC

0601
~1!12

0603
0604
0605
0606

0607
0610

0611
0612
0613
0614

0615

6603
0002
1000

7041
1HJ3

7650
4513
4467
6075
7402
7610

0575

CLA CLL

DJR
LJMP
PDP
TAD
CIA

,+1
0

K5252
TAD
SNA CLA
JMS I
NERROR
ERROR
JMS I
TST15M
HLT

SKP CLA
TST15

/CLEAR AC
/GET CONSTANT
/SET 0
ITO L MODE
/DISABLE JUMP SAVE RETURN
/DO A LINC JUMP
/BACK TO PMODE
/GET Ill
/2'S COMPLEMENT
/COMPARE WITH CONSTANT
ID !D DJR WORK?
/CHECK WITH MONITOR
/DJR F Al LED
/MESSAGE POINTER
/ERROR HALT
/TO NEXT TEST
/SCOPE LOOP; !Si! LOOP

DP-12 MAlNDEC 12-DlFA-L

PALS

2/28 71

MOOE
/DOES A LINC JUMP CLEAR DJR?
I

0616
0617

121620
0621
06 22
0623

7300
11'?!3
30012J

TST16,

6141
0006

6624

0624

6625

0625
0626
121627
0630

0002
1000

0631

7640

0632

4513

0633
0634

4467

7041

111213

6123

11!635

741212

0636
li'l637

7610

12!616

CLA CLL
TAD

K5252

OCA
LI NC
OJR
LJMP
LJMP
PDP
TAD
CIA
TAD
St:A CLA
JMS !
JMS !
TS T16M
HLi
SKP CLA

' ... 1

,+1

252

NE RR OR
ERROR

11J640

7300

121641
642

1Hl3

3011!0
5244
101210

0645

DCA
,JMP
TAD

7041

0646

1103

CIA
TAD

0647
50

4513

0644

0651

7650

67
6150

0652
0653
0654

7402

0655

11l640

7610

COMPLEMENT
/COMPARE W TH CONSTANT
ID DJR CLEAR?
/CHECK MONITOR
/OJR FAILED TO CLEAR
/MESSAGE POINTER
/ERROR HALT
TO NEXT TEST
/SCOPE LOOP; !St LOOP
12 1

TST16

I
TSH 7 #

/GET 0

/PMODE
/QOES JUMP SAVE RETU

121643

/CLEAR AC
IGET CONSTANT
/SET 0
/TO LMODE
/DISABLE JUMP SAVE REI
/QO A LI NC JUMP
/DO ANOTHER LINC JUMP
/BACK TO PMODE

WORK

N ERROR FOR 8 MODE JUMPS

K525

/CLEAR AC
/GET CONSTANT

l2l

/SET 0

CL.A CL L
'+

0 AN 8 MODE JUMP
/GET li:l

S COMPLEMENT
OMPARE WITH CONSTANT
/DID WE SA E lN ERROR?
HECK MONITOR
UMP SAVE RETURN OPERATED IN ERROR
/MESSAGE POINTER
/ERROR HALT
1

SNA CLA
JMS
RROR
ERROR
JMS I
TSH 7M
HLT
CLA
K
TST17

/TO NEXT TEST
/IS~

LOOP: SCOPE LOOP

/PDP-12

MA1~~EC

PALS

12-0lFA-:

2/28/71

IP MODE

/DOES JUMP SA E RETURN WORK IN ERROR FOR NON-JUMP COMMANDS?
121656
0657
121660
0661
0662
121663
0664
0665
0666
121667
121670
0671
0672
06 73

730ii1

I
TST181

/CLEAR

3000

CLA C:LL
TAD
K5252
OC A
0

601212
100121
7041
1103
7650
4513
4467
6174
7402
7610
0656

IOF
TAD
CIA
TAD
SNA CLA
JMS l
JMS I
TS T1 SM
HLT
SKP CLA
TST18

/IOF LOOKS LIKE LINC JUMP

11123

IGET CO.\JSTANT
/SET 0

/GET 121
12'S COMPLEMENT

K5252

/COMPARE WITH CONSTANT
/QlD CELL 121 CHANGE?
/CHECK MON !TOR
/!OF CHANGED CELL 121
/MESSAGE POINTER
/ERROR HALT
!TO NEXT TEST
/SCOPE LOOP; lSi! LOOP

NE RR OR
ERROR

/LMODE
/DOES JUMP SAVE RETURN WORK IN ERROR FOR NON-JUMP COMMANDS?
I

0674
0675
f/J676
0677
0712!0
121701
0702
0703
0704
12171215
07':'J6
0707
0710
0711
121712
0713
0714

7300
1103
3~Hll1J

6141
0500
601212
0fll02

1000

7041
1H:l3
765121
4513
4467
6220
7402
7610
0674

TST19,

CLA CLL
K5252
TAD
OCA
11!
LINC
108

IOF
PDP
TAD

121

CIA

TAD
K5252
SN A CL A
JMS I
NERROR
JMS I
ERROR
TST19M
HLT
SKP CLA
. TST19

/CLEAR AC
/GET CONSTANT
/SET 0
IGO TO LMODE
/PREPARE F'OR I OT
!DISABLE INTERRUPTS
/BACK TO PMOOE
/FETCH l1l
/2 1 S COMPLEMENT
/ADD CONSTANT
/EQUAL?
/CHECK MONITOR
/IOB/IOF CAUSED LOC 0000 TO ALTER
/MESSAGE POif\!TER
/ERROR HALT
/TO NEXT TEST
/!Se LOOP; SCOPE LOOP

/POP-12 MAINDEC 12-0 FA-L

PAL8

2128 71

PAGE

/LMOOE
/DOES DJR CLEAR IN ERROR WITH 8 MODE JUMP?
I

IZl715
0716

IZl717
0720
IZl721
0722
0723
0724
IZl725

7300
110.5
300121
6141
121006
121002

TST20,

CLA CL L
TAD

K5252

DCA

LINC

OJR
PDP

5324

JMP

6141

LI NC

6726

LJMP
PDP

•+1

0726

0002

0727

1000

TAD

0730

7041
1103

CIA

76 50
4513
4467

SNA CLA
JMS l
NE RR OR
JMS l
ERROR
TS T20M

0731

073 2
0733
0734
0735
0736
0737
12174'1l

6244

7402
7610
0715

TAD

HLT
SK P CLA

TST20

K5252

/CLEAR AC
/GET CONSTANT
/SET 0
/TO LMODE
/DISABLE JUMP RETURN SAVE
/TO PMODE
/JUMP
/TO LMODE
/JUMP
/TO PMOOE
/FETCH 0
/2 1 S COMPLEMENT
/ADD CONSTANT
/EQUAL?
/CHECK MONITOR
18 MODE JUMP CLEARED DJR
/MESSAGE PO! NTER
/ERROR HALT
/TO NEXT TEST

/ISt LOOP; SCOPE LOOP

.,.12 MA, ...l::C 12-D!!.fA-t

,pA,l.8

i/?'ISl'i'U,.

P~zGf

/PMCJO[

/JOES DJR !NHlB!T 8 MODE INTERRUPT SAVE IN ERROR?
I

0741
0742
0743
0744
0745
0746
0747
0750
0751
0752
0753
07 54
0755
0756
0757
0760
0761
07 62
0763
fl)? 64
0765
07 66
0767
0770

730;1'

TST21,

DC A
TAD
DCA
TSF
JMS l
LI NC
DJR

1Hl3

3000
6041
45.56
6141

0ii.H;i6

7410
1103
7640
4513
4467
6265

7402
7 61ii~
0 741

RETURN
K5252
0

SETFLG

JON
NOP
IOF
SKP

7000
6002
7041

P~TF

PDP

0002
6001

1000

CLA CLL
TAO

1122
3135

LOCF,

TAD

CIA
TAD
K5252
Si!A CLA
JMS l
NE RR OR
ERROR
JMS I
TST21M

HLT

SKP CLA
TST21

/CLEAR AC
/GET RETURN POINTER TO LOCF
/SET UP INTERRUPT HANDLER
/GET CONST ,o,NT
/STORE

!N 0

/FLAG SET?
/NO, GO SET IT
!TO L.MODE
/SET DJR
/TO PMODE
/ENABLE INTERRUPTS
/WAIT
/DISABLE INTERRUPTS
/IF NO INTERRUPT, THIS CAUSES ERROR
/GET 0
/2 1 S COMPLEMENT

/ADO CONSTANT
/EQUAL?
/CHECK MONITOR
/DJR I NH !B !TED 8 MODE INTERRUPT
/MESSAGE POINTER
/ERROR HALT
/TO NEXT TEST
IISt LOOP; SCOPE LOOP

/POP-12 MAlNDEC 12-DlFA-L

PALS

2/28/H

PAGE 21

/LMOQE
/NOW CHECK THE LMODE SF
I

0771
0772
0773
liP74

0775
0776
0777
H'li1H?l

1001
llil 02

101213
111'04

1005

7300
1127
0111
3131
1131
1106
3543
6141
000e
06;30
0500
6234
0242

10!216

f1Ji2ll02

1007
10H'J
1011
1012
1013
1014
1015
1016
1017
1020
1021

3133
1133
7041
1131
7650
4513
4467
6314
7 402
7610
0771

TST22,

CLA CLL
TAD
REGA

AND
0 CA

TAD
TAD
OCA I
LINC
TRY22A, 0000
Ll F
!OB

LM ASK
REGC
REGC
KLDF
TR Y22N

ILDF
0

/BACK TO lF 121, LOAD SF
I

/READ SA\IE F!El.D

RIB

RQL
PDP
DCA
TAD
CIA

/CLEAR AC
/GET DATA WORD
/SAVE 8! TS 10-11
/SAVE FDR OBSERVATION
/GET OF
/ADD KLDF"
/STORE FOR EXECUTION

/JUSTIFY

REGE

ITO PMODE
/SAVE roR TYPEOUT

REGE

/GET IT
12'S COMPLEMENT

/COMPARE
/INCORRECT IF NOT 2ERO
/CHECK MONITOR

TAD
REGC
SNA
A
JMS
NERROR
JMS I
ERROR
TST22M

IL!F F"AILED TO LOAD
/MESSAGE POPHER

HLT

/ERROR HALT

SKP CLA

!TO NEXT TEST

TST22

/SCOPE LOOP;

IS~

LOOP.

;12 MA,

-:-8H

IL MOOE
/EXEtUTE

LIF

P~.L8

N ANO SEE

2.2

HE REALLY GET TrlERE,

1022
112123

1'1124
112125
1026
1027
1030

1031
H.132
1033

1034
1035
1'1136
1037
1040
112141
1042
1043
112l 44
1045
1046
1047
1kl50
1051
112l 52
1053
1054
1055
1056

7300

TST23,

1127
0111
3130
1130
1107
3234
4534

121007
6141
0000
6024
050121
6224
12160121
712142
11H1l02
7010
3131
1131
7041
1130
7650
4513
4467
6357
7402
7610
1022

TRY~3,

CLA CLL
TAD
AND
DCA
TAO
TAD
DCA
JMS l
0007
LINC

REGA
LMASK
REGS
REGB
KLl F

TRY23
REL OCR

121000

LJMP
!OB

RI!='
LI F

LJMP
PDP
RAR
OCA
TAD
CIA

,+1
REGC
RE~C

REGS
SN A CL A
NE RR OR
JMS I
ERROR
JMS l
TST23M

TAD

HLT

SKP CLA
TST23

/CLEAR AC
/GET DATA WORD
/SAVE i s 10-11
!STORE FOR OBSERVAT!GN
/GET IT
IAOD LIF
/STORE FOR EXECUTION
IGO RELOCATE THE NE T
17 LINES OF CODE
ITO LMOOE
/EXECUTE LIF N
/( ,+1 IN RELOCATED PROGRAM)
/READ INSTRUCTION FJELD
/BACK TO F !ELD 121
/BACK TO TEST PROGRAM
!TO PMODE
/JUSTIFY
/SAVE IT
/GET IT
/2 1 S COMPLEMENT
I ADD TAR GET
/COMPAREl INCORRECT IF NOT cERO
/CHECK MONITOR
/LIF-JMP N FAILED TO FIND IF
/MESSAGE POINTER
/ERROR HALT
ITO NEXT TEST
/IS LOOPI SCOPE LOOP

/PDP-12 MAINDEC 12-DlFA-L

PALS

171

PA GE 2 3

IL MO DE

/INTERRUPT INHIBIT TEST BANK 0

8 NK N- BANK

TST28,

CLA CL L

1057
1060
1061
lii'J 62
112163

7300
3065
1121
1110

3050

DCA

1064
1065
Hl66
1067

1127
0111
3130
1130
1Hl7
3277
6041

TAD

1070

1071
1072
1073
1074

1075
112176
1077
1100

1101
1 02
1 03
04
Hl5
111216

DCA
TAD
TAD

REGA
LMASK
REGB
REGS
KL IF
TRY28

AND
D CA

TAO
TAO

DCA
TSF

4536
4534
0017
6141
12Ji?J 0 eJ

LPOJNT
PNTJ
KLJMP
LSET

JMS
JMS

SETFLG
l

0017
TRY28,

0500
6001

RE LO CR

LINC
012100
!08
ION

LJMP
LNOP

6026

0016

121600
0500
Ml01

Ll F

112

6002

LJMP
LNOP
!OB
!OF
POP

110
1111

612)33
0016
0500

JMP

TST29N

111217

1113
1114
1115
1116

111

5542
0002

6002

4 67
6417

7402

7610
lll'J57

l1l

!OB

LOCJ,

OF
I

ST28M
HLT
T2

/ENABLE INTERRUPT AGAI
/BACK TO BANK 0
/WAIT FOR INTERRUPT
I

POP

/ENABLE N RRUPTS SHOULD INH Bl
/TO EXTENDED MEMORY .+1 IN RELOCA ED SUBROUTI
/W IT FOR INTERRUP
/LOAD lB
I

ION

121002

CLEAR AC
/CLEAR HANDLER SWITCH
GET ERROR RETURN
/MAKE IT A LINC JUMP
/PLACE IT !N HANDLER
/GET DATA WORD .
/MASK OUT TO B!TS 10-11
/SAVE BANK
IF ET CH IT
/MAKE !T A L!F N
/STORE FOR EXECUTION
/FLAG SET?
INO, GO SET IT
/GO RELOCATE THE NEXT
I 7 LINES OF CODE
!TO LINC MODE
/EXECUTE LIF N

ERROR

/DISABLE INTERRUPT
/BACK TO PMODE
/JUMP TO NEXT PORTION OF TEST
/BACK HERE IF INTERRUPT OCCURS
/DISABLE INTERRUPT
ILIF FAILED TO INHIBIT INTERRUPT
/MESSAGE PO! NTER
/ERROR HALT
0 NEXT TEST

!Se LOOP; SCOPE LOOP

,,12 MA

,(C 12-.Gll.fA-l

/LMODE

1124
1125
1126
1127
1130
ll.3!

1132
1133
1134
1135
1136

1137
1140
1141
1142
1143
1144
U45

73e0
6141
05.0121
6234
0303
0~02

0111

3131
1131
7041
1130
7650
4513
4467
6454
7402
7610
1057

PAL8

2/2i/71

PAG( 214

/SAVE FIELD EST CTST28 SHOULD HAVE LOADED THE Sfl
I
TST29, CLA CLL
ITO LING MODE
LINC
/READ SAVE FIELD
I 08
RIB
/JUSTIFY
ROR
3
POP
!TO PMOOE
/MASK our NOISE
AND
LMASK
/SAVE IT
REGC
DGA
/F[TCH IT
REGC
TAO
!COMPLEMENT
CIA
/COMPARE WITH IF
REGB
TAD
/EQUAL?
SNA CLA
/YES, CONTINUE WITH TST28
NERROR
JMS I
ERROR
JMS I
/NO, LlF FAILED TO LOAD SF
/MESSAGE POINTER
TST29M
/ERROR HALT
HL T
/TO NEXT TEST
SKP CLA
/!St LOOP, SCOPE LOOP
TST28

/PDP-12 MAINDEC 12-01FA-L

PALB

2/28171

PAGE 25

/ALERT OPERATOR OF P11Ss cDMPLETION (!NH!BlT IF RSW 06=01)
I

7300

1146
1147
1150
1151
1152

3127
2017
7000
7604

115.3

(,!!
""IU I

1154
1155
1156
1157
1160
1161
1162

7640
5177
1122
3467
5762
6514
5050

PASS,

CL A CLL
DCA
REGA
JS~
COUNT
NOP
LAS

nl-, 4

AND

.I..

K01Z1412l

SH CLA

JMP
TAD
DCA
JMP I
LOCO,
TST37M
PASPNT, AS CI I

177
PNTO

ERROR
PASPNT

/CLEAR REGA
/INCREMENT COUNT
/DON'T SKIP
/GET SWITCHES
/PICK OUT BIT 06
/SET ?
/YES, INHIBIT AND RESTART
/GET POINTER TO TEXT
/CHEAT MON l TOR
/GO TYPE MESSAGE
/MESSAGE POINTER
/LINKUP POINTER

/TEST FOR CTL-C AND RETURN TO PS12 MONITOR IF STRUCK
I

1163
1164
1165
1166
1167
1170
1171

0000

TES TN,

6036

KRB

1372

TAD
M212l3
SNA GLA
JMP I
K7605
LAS
JMP I TESTN
-203

7650
5773
7604

5763

1172

7575

1173

7605

M203,
K7605,

7605

/GET KEYBOARD
/ADD IN MINUS 203
/CTL=C?
/YES, CALL MONITOR
/NO, GET SWITCHES
/RETURN TO CALLING ROUTINE

2 ~A1 .. uEC

PALS
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP

0016

0016
0016
0016
0016
0016
0016
0016
0016
0016
0016
0016
0016
0016
0016
0016
04020

4020
4021
4022
4023
4024
4025
4026
4027
4030
4031
4032
4033
403~

403!$
4036
4037

0·016
0(lJ16
0016
0016
0016
0'016
0016
0016
0016
0016
0016
0016
0016
0016
0016
0016

PAG'E t6

ILOC 2020-2040 RESERVED

*2020

2020
2.021
2022
2023
2024
2025
2026
2027
2030
2031
2032
2033
2034
2035
2036
2037

LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP

ILOC 4020 - 4040 RESERVED

/PDP-12 MAINOEC

-D

PAL

A-l.

*50kl0

5000
5001

21000
7307

5002
5003

1200
3200
1600
3220

5004
501215
5012!6
5007
50Ul
5011
5012
5013

5014

2127
562121

4544
0076
7640
5620
7040

5016

1200
3200

5017

5600

5015

502121
5021
512122
5023

5024
:Hl25
511i26
5027
5fil311l
503'.i..

512132
5033
5034
512135

512136
5037
504121

5041
5042
512143
50 4
5
6
47

MONITOR DETERMINES IF OPER OR WANTS TO LOOP ON r
A !NG TEST
/RETURN ADDRESS
/SET AC :: 4
CLA CLL I AC RTL
TAD
NE RR OS
/GET RETURN AD
DCA
NERROS
/RETURN ADDRESS +4
TAD
NE RROS
/GET SCOPE LOOP ADDRESS
DCA
ERRORS
/STORE iT
!St'
REGA
/UPDATE DAT A
ERRORS
JMP
/LOOP BACK TO TEST
JMS
TE ST
/CHECK FOR CTL-C AND RETURN WITH SWITCHES
AND
Kl2l41211ZJ
/SAVE SR3
SH CLA
/TEST AND CLEAR
ERRORS
JMP !
I LOOPING
CMA
/SET AC=-1
NE RR OS
TAD
/ADD NERRORS
NE RR OS
DCA
/STORE IN NERRORS
NE RR OS
JMP
/JUMP INDIRECT LOOP

NON ERROR
NE RR OS, l2l

4544

I
/ERROR PROCESSOR
SCOPE
ERRORS, fZI
TEST
JMS

7004
770121

SMA CLA

0000

5250
1220
7041
3112
2220
1604
77fil0
74Q'l2
222121

2220
1620
320121
7604
7006
7710
5600
7040
1220

3220
5620

RAL
JMP
ASCRXT, TAO

ASC!
ERRO

CIA

DCA

IS~

LAS
SMA CLA
HLT
!Si!
!Si!
A

OCA
L S

ERRORS
ERRORS

ERRORS
NERROS

A CLA
NE RR OS
JMP I
CMA
ERRORS
TAD
DCA
ERRORS
JMP
ERRORS

LOOP, HALT PRINT
/RETURN ADDRESS STORAGE
/CHECK FOR CTL-C AND RETURN WITH SWITCHES
/MOVE SR1 INTO AC00
!IS Ii SET
INO TYPE A MESSAGE
/GET CURRENT ERROR DDRESS
/INVERT Ii
TORE !N LAST ERROR
/YES INDEX ESCAPE
/REA SWITCHES
/IS
0 SET?
/NO. ERROR HALT
/YES INDEX ESCAPE TO JUMP OUT
/INDEX ERRORS TO ScOPE MODE
/GET SCOPE ADDRESS
/STORE l N TYPE
/READ SW ITCHES
/MOV SR02 TO AC0
l!S
OPE MODE SELECTED
YES CONTINUE IN SCOPE LOOP
0 SET AC=7777

UBTRACT ONE FROM ERRORS
TORE SELECTED ADDRESS
X!T TO NEXT TEST

MA1

7240

ASC !

/~f)1Jii.::.12

5050
5051
5052

16212'
3014

5053
5054
55
511l56
5(2157

1220
111'-'
7650
5362
1414

5060

3200
1200
7450

5061
5062
5063
5064
5(i;65

5225
7040
7450

5066

5314

5067

711l411l
7112
7012
7012

511170
5[1!71

5072
5013
5074
!'>075
5076
511177
5U.10
5101

5102
5U3
5U4
5105

5106

511117
5110
5111
5112
5113

4217
120121
4277
5257
~000

0072
3137
1137

7650
4353
1137
1377

7510
1073
1376
4541

5617

CL 4 CM A

TAD !
DCA
TAD
TAO
SN
CLA
JMP

TAD l
DCA
TAD
SNA
JMP

ERRORS
PINT
ERRORS
LS TERR

DA TYP
PJNT
NERROS
NERROS
ASCRXT

CMA

SNA
JMP

PALS

..;,.!

DATUM

CM A

RTR CLL
RTR
RTR
JMS
TYPE CH
NERROS
TAO
JMS
TY PECH
ASCI !+7
JMP
TVPECH, 0
AND
K0077
DCA
SPACE
TAO
SPA CE
SNA CLA
JMS
CRLF
SPACE
TAD
··r AD
M40
SPA
TAD
K121100
TAD
K240
TYPE
JMS I
JMP I
TYPE CH

/SET CCACJ:::-1
IGET MESSAGE ADORES$ STORAGE
/STORE IT !N AUTO !N ~X REGISTER
/GET RETURN ADDRESS
/SUBTRACT LAST ERROR ADDRESS
/TEST
/SAME GO TYPE DATA
/GET FIRST CHARACTER
/SAVE IT
/GET IT
/TEST IT
/NUMBER:::EX!T
11 NVERT IT
INUMBER:::D:ITA
/TYPE OUT DATA ROUTINE
/CHANGE IT BACK
/SWAP AC TO THE RIGHT
/MOVE
/MQl/E
/TYPE IT
/GET IT AGAIN
/TYPE IT
/MUST BE MORE WORDS THAT NEED TYPING
/SAVE SIGNIFICANT PART
/STORE WORD
/FETCH IT
/TEST FOR 00 CRLF CODE
/YES IT WAS
/NO TYPE IT
/SUBTRACT 40
/TEST POLAR! TY
/ADD 340
IADD 240
/TYPE
!EXIT

/PDP-12 MAINDEC 12-DlFA-L
5114
5115
?116
5117
?120
5121
5122
5123
5124
5125
5126
512 7
5130
5131
5132
5133
5134
5135

1414
32e0
12 2['
7552
?2.:5
12 e0
1373
7650
44 66
160e
4332
1376
4541
5314

DATUM,

012100

OCTYP,

3277
1105
3137

TAD
DCA
TAD
SNA
JMP
TAD
TAD
SNA
JMS
TAO
JMS
TAO
JMS
JMP
0
DCA
TAD
DCA

PAL8
PINT
NERRQS
\ERR OS

CLA
ASCRXT
NE RR QS
M,4444
CLA
I
BELL
NE RROS
I
OCTYP
K2 4121
I
TYPE
DA TUM
TYPE CH
K7774
SPACE

2/28171

PAGE 2 9

/GET ADDRESS OF REGISTER
/STORE IN TEMP
/GET TEMP
/TEST FOR EXIT
/EQUALS 0000 EXIT
/GET TEMP
IADD CONSTANT
/TEST FOR RESTART
/IT'S THERE: RESTART
!GET DATA
/TYPE IT
/SPACE
/TYPE IT
/TvPE NUMERIC DATA
/RETURN ADDRESS STORAGE
/STORE DATA TO BE PRINTED
ISET UP TALLY
/SET IT

/P [)P, - 12

5136
5137
5140
?141
5142
'.5143
5144
::>145
5146
5147
5150
5151
5152
5153
5154
5155
5156
5157
5160
5161
5162
5163
5164
5165
5166
'::>167
5170
5171
5172
5173
5174
5175
5176
5177

1077
33?3

c
HEF?E,

REDC,

JCA
T ::;
PAL

1277

72 ll4
3277
1353
7004
7420
5337
4541
2137
5336
5732
li'Jri'J00

1374
4541
1375
4541
1074
5753
1414
7450
5225
711J40
7640
5362
4353
7300
5314
3334
0215
0212
0240
7740

PAL8

-OlFA··-L

'JC A
TAO

KL:J26
CRLF
TYPECH
TY PECH
CrlLF

RAL
S ~~ L

JMP
JMS l
!St
JMP
J'1 p l
CRLF,

DATYP,

M4 44 4,
K0215,
K0212,
K240,
M40,

REDO
Ty PE
SPACE
HERE
OC TYP

TA 0
JMS I
TAO
JMS I
TAD
JMr' I
TAD I
SN A
JMP
CMA
SlA CLA
JMP
JMS
CLA CLL
JMP
-444 4
0215
0212
0240
-42

K0215
TYPE
K0212
TYPE
K01 77
CRLF
PINT
ASCRXT
DA TYP
CRLF
DATUM

.2 /'i. fJ 17 1

PA GE 3 Z

r~UM8£P
/GET F ..
/STORE
ATA BACK
!GET
/JUST;>/SAVE IT
IGET CRLF CODE
/JUSTIFY
/FINISHED?
/NO, CONT! NUE
/NOW TYPE ! T
/FINISHED?
/NO, CONTINUE
/EXIT
/RETURN ADDRESS STORAGE
/GET CR
/TYPE IT
/GCI LF
/TYPE IT
/SET TO RUBOUT
IEXI T
/GET A TERM OFF OF TYPE LIST
/ENO OF LIST?
/YES EXIT
/INVERT
/BEGINNING OF CATA
/NO
/YES OK RETURN THE TTY CARRIAGE AND LINE FEED
!CLEAR AC AND LINK
/GO TYPE THE DATA
/SWITCH CHECK

/PDP-12 MAINDEC 12-DlFA-L

PAL8

2128171

PAGE 31

11 5200

5200
?201
5202
5203
?204
5205
5206
5207
52 ie•
5211
5212
5213
5214
5215
5216
5217
5220
5221
5222
5223
5224
5225
5226
5227
52 30
5231
5232
5233
5234
5235
5236
5237
5240
5241
5242
5243
5244
5245
5246
?247
5250
5251
5252

011100

RA ND Y,

124~

1241
1103
3243
1243
1242
3240
702'4
1240
1241
1103
32 43
1243
1242
3241
7004
1240
1103
3243
1243
1241
1242
3242
7004
1240
3240
1241
11el3
3243
12 43
5600
7601
3542
3755
0016
11Hl00
6046
6041
5246
6042
72111111
5644

TAD
TAD
TAD
DCA
TAD
TAD
DCA
RAL
TAO
TAO

RNA
RNB

TAD

K5252

DCA

RND
RND
RNC
RNB

K5252

RNO
RND
RNC
RNA
RNA
RNB

TAD

TAD
DCA
RAL
TAD
TAD
DC A
TAO
TAD
TAD
DCA

RNA
K5252

RNO
RNO
RNB
RNC
RNC

RAL
TAD

DCA
TAD
TAD
DCA
TAO
JMP I
RNA,
RNB,
RNC,
RNO,
TYPOUT,

/NEW PAGE
/RANDOM NUMBER GENERATOR

RNA
RNA
RNB
K5252

RND
RNO
RANDY

7601
3542
3755
0016
0

TLS
TS F
JMP
TCF
CLA

.-1

JMP

TYPO UT

/AC TO PRINTER
/FLAG SET?
/NOT UP; WAIT
/NOW CLE AR IT
/CLEAR AC
/INDIRECT RETURN

/TELEPRINTER FLAG SET ROUTINE
I

5253
'.:-254
5<:'.55

OCH'lJ

'."257

1200
6"146
0[141
5250

5.'.6~

':i6'JJ

?.2 '::>6

FL AG,

.?lH;?
CL -4
IL S
TS r
J"P
J'1"

!CLEAR AC
/BUMP PRINTER
hJA!T 100 MS
, -1

FLAG

/JNOIHECT

RETUR~.

/PIJP-12

1i?

1F -

PA1:.. 8

2/l/J/71

PAGE 32

/PROGRAM RELOCATOR
/CALL! REL C; LE~GT~. --"3ANK" MUST BE IN REGB
I

5261
5262
5<:'63
?264
5265
5266
5<:'6 7
52 70
5271
5272
5273
5274
5275
5276
5277
5300
5301
5302
5303

5304
5305

z00e
7 3 '~ z
1261
3131
1531
7040
313<:'
1261
311115
1130
7012
7010
1070
3016
2261
2132
5303
5661
1415
3416
5300

RElUC,

1:'.0 Z2

CLA CLL
TAD
DCA
TAD I
CMA
OCA
TAD
DC A
TAD
RTR
RAR
TAO
DCA
!St
!NCREL, !Si'.
JMP
JMP I
PI CK UP, TAD I
DCA I
JMP

RELOC
REGC
REGC
REG CJ
RELOC
AUT011
REGB
Klil020
ALJT012
RELOC
REGO
PICKUP
RELOC
AUT011
AUTQ12
JNCREL

/CONTAINS CALLING LLlCAT!ON •1
ICLEAQ AC
/GET ADDRESS
/SAVE ADDRESS
/LENGTH
!COMPLEMENT
/SAVE JT
/GET ADDRESS
/SAVE AS PICK-UP POINTER
/GET BANK
/JUSTIFY ADDRESS
/JUSTIFY
/ASSEMBLE ADDRESS
/SAVE ADDRESS
/MOVE RETURN POINTER
/CHECK IF DONE
/NOT DONEi MOVE A WORD
/RETURN
/GET WORD
/DEPOSIT wORD
/CHECK BACK

/POP-12 MAINDEC 12-DlFA-L

PAL8

2/28171

PAGE 33

/P~'iOOE-LMODE

/INTERRUPT TEST: DO WE HAVE A SPURIOUS INTERRUPT ON-LINE?
?3 06
5.507
5310
5.511
:i312
5313
5314
5,315
5316
5317
:i320
5.521
5322
5323
5324
5.525
5326
5327
5330
5.531
:i332
5.533
5334
5335
5336

cezz
7342
3127
6041
4536
6141
1021Z

l"JTTST. 0022
CLA Ci..i.. CMA
DCA
RE GA
TSF
JMS I
SETFLG
L.l NC
LOA
20

0~l20

0004
0002
5321
5322
73k'.:0
1123
3135
6001
7QH?0
6002
4513
4467
6532
7402
7410
5307
57216

022e

e:e 04
POP

JMP
• +1
JMP
• +1
CLA CLL
TAC
PNTP
DCA
RETURN
!(H,

LOCP,

NOP
!OF
Jt'S I
JMS I
l '<TS TM
1-!L T
SKP

NE RR OR
ERROR

J~TTST+l

JMP I

INTTST

/FLAG SET?
!NOT UP: GO SET IT
!To LMODE
/GET BIT 07
II!O PRESET
IESF
!TO PMODE
/CLEAR INHIBIT
/CLEAR INHIBIT
ltERO AC, LINK
!GET POINTER
ISET UP RETURN
/ENABLE INTERRUPTS
/WA JT
/DJ SABLE JNTERRt,,PTS
INO INTERRUPT ON-LINE
/SPURIOUS INTERRUPT!
/MESSAGE POINTER
/ERROR HALT
/RETURN
/!St LOOP: SCOPE LOOP
/RETURN

Ip GP' ""'1 2 ~

G 12'"'D1Ffi-

f'P:l.;;8

uas111

f!IP:

/RlNG THE i:JELL
I

5337

0000

5340

7404
0073
7640
5737
H'l75
4541
5747
0205

':>3 41
5342
5343

5-344
5345
5346
5347

BELLS,

:'1

OSR
AND
K0100
Si: A CL A
JMP I
BELLS
TAO
K0207
JMS I
TYPE
,+1
JMP l
TST03

/READ SWITCHES
/SAV' SR05
/IS IT SET?
/YES, INHIBIT BELL
!GET BELL
IGO RING

/RETURN
/AVOID CLOBBERING PASS COUNTER

/PDP-12 MA!NOEC 12-DlFA-L
5350
5351
5352
5353
5354
5355
5356
5357
5360
5361
5362
5363
5364
5365
5366
5367
5370
5371
5372
5373
5374
5375
5376
5377
54 00
5401

0024
2324
6063
0014
0406
4017
2240
2204
0640
0601
1114
0504
4050
1415
1704
0551
4000
2305
1624
4022
0326
0400
7777
0130
0131
0000

TSTZ3~,

5402
5403
5404
5405
5406
5407
5410
5411
5412
5413
5414
5415
5416
5417
542121
5421
5422
5423
5424
5425
5426
5427
5430
5431
~)4 3 2
5433

0024
2324
6064
0014
0406
4017
2240
2204
0640
0601
1114
0504
412150
1415
1704
121551
0023
0516
24 40
2203
2604
4000

TST04M, 0024
2324
Ml64
0014
0406
4017
2240
2204
064:2l
0601
1114
'1504
4050
1415
1704
<"551
U2' 23
0516
24 40
22>'3
2624
4222

7777

E ;q TA
'E G·l

0130
0131
0000

12224
2324
6263
2214
Z4Z6
4017
2240
2204
0640
0601
1114
0504
4050
1415
1704
0551
4000
2305
1624
4022
0326
0400
EX! TA
REGS
REGC
EX IT

~Ec;C

EX l T

PAL8

2/28171

PAGE 35

ITSTil3
/LOF DR RCF FAILED ILMODEI
/SE'JT RCVD

/TST1214
/LDF OR ROF FAILED <LMDOEl
/SENT RCVD

/p ()p "' .!. 2 "'-·• N

c 2-Q lF'° I ~ .

5434
5435
5436
5437
54 40
5441
5442
5443
5444
5445
54 46
5447
5450
5451
5452
5453
5454
5455
5456
5457
5460
5461
5462
5463
5464
5465

0024
2324
6066
•21014
0406
4017
2240
2204
0640
0601
1114
0504
4050
1415
1704
0551
0023
0516
2440
2203
2604
4000
7777
0130
0131
0000

TSH6M, eZ24
2324

5466
5467
5470
5471
5472
5473
5474
5475
5476
5477
550111
5501
5502
5503
5504
5505
?506

0024
2324
6067
011120
1517
0405
4011
1624
0522
2225
2024
4006
0111
1405
0400
7777
0000

TST07M, 0024
2324
6067
01112111
1517
0405
411111
1624
0522
2225
2024
401116
0111
1405
0400
EXIT A
EXIT

5507
5510
5511
5512
5'.? 13
5514

0024
2324
7101
02114
1517
0405

TST9AM, Dlil24
2324
7H1
('.;014
1517
0405

551'5
5516
5517

4011

4211

1624
0522

1.624
0522

62 66

PAt.f:l

2/2~171

F'AG·f 35-1

1rsT06
ILDF OR ROF FA!LED CLMOOEl
/SEt\JT RCVD

0014
0406
4017
22 412J
2204
0640
0601
1114
0504
4050
1415
1704
0551
0023
0516
2440
2203
2604
4000

EX IT A
REGS
REGC
EXIT
/TST07
/PMODE INTERRUPT FAILED

/TST9A
/LMOOE INTERRUPT FAILED

;POP-12

~AINOEC

5520
5521
5522
5523
5524
5525
5526
5527

2225
2024
4026
.::i111
1425
241::e
7777

5530
5531
5532
5533
5534
5535
5536
5537
5540
5541
5542
5543
5544
5545
5546
5547
5550
5551
5552
5553
5554
5555
5556
5557
5560
5561

ee24
2324
6071
2014
1517
0405
4014
1701
0440
2306
4017
2240
2211
0240
0601
1114
0504
0040
i2l4e6
4040
4023

5562
5563
5564
5565
5566
5567
5570
5571
'::J572
55 73

0024
2324
6161
0014
1517
0405
4004

eeee

e6~rn

7777
0130
0131
0000

<'64~

12-DlFA-L

TSHl9M, C024
2324
6071
0014
1517
0405
4014
1701
04 40
2306
4017
2240
2211
0240
0601
1114
0504
0040
0406
4040
4023
0600
EXIT A
RE GB
REGC
EX IT

ITSHl9

TST11M, 0024
2324
6161
0014
1517
0425
4004
'2640

ITST11

2217
4717

"217
'~ 17

s6n

16 4~

56<'.3

.._ ..,.. .... '""

642
' 116

55 77

56 00
56.~1

5604

11 1 A

PAGE 35-2

EX JT A
EXIT

C5?>4
4024
17 40
32 v,5

5574

2/28171

2225
2024
4Z06
e111
1405

C6f'1
1114
05 24
4Z24
17 4i'
32 ('5

5575
55 76

PALS

~601

1114

417111

/LMOOE LOAD SF OR RIB FAILED
OF
SF

ILMODE OF FAILED TO tERO ON AN
/SENT SF Rcvo

I~TERRUPT

/P!.JP"'1'2, .. 1
5605
56(56
5607
5610
5611
5612
5613
5614
5615
5616
5617
56 20
5621
5622
5623
5624
5625

1624
0522
2225
2024
0023
0516
2440
4023
0640
4022
0326
0400
7777
0130
0131
0132
0000

5626
5627
5630
5631
5632
5633
5634
5635
5636
5637
5640
5641
5642
5643
5644
5645
5646
5647
5650
5651
5652
5653
5654
5655
5656
5657
5660
5661
5662
5663

0024
2324
6163
0014
1517
04 05
4023
2401
5514
0401
4006
0111
1405
0400
0201
1613
4003
0514
1440
HH7
1704
4002
0104
4000
7777
0130
0102
0Hl3
0131
0000

6 12"'6Y1F

~·

P' ~I..~

if'r.

~5 .. 3

16 2 c,
12522
222?

2024
80 ?3

(1,516
2440
4023
06 40
4022
0326
04 00
EXIT A
REGB
REGC
REGD
EXIT
TST13M, 0024
2324
6163
0014
1517
0405
4023
2401
5514
0401
4006
fil111
1405
0400
0201
1613
4003
0514
1440
1'H7
1704
4002
0104
4000
EX!TA
REGB
K2021
K525 2

REGC
EX !T

ITST13
/LMODE STA-LOA FAILED
/BANK CELL GOOD BAD

/PDP-12 MA!NDEC 12-DlFA-L

PALB

2/28/71

/LOCATIONS 6e2e-612'40 RESERVED FOR SUBROUTINES

~60212l

60212'
6021
6022
6023
6024
6fl25
6026
6027
60312'
6031
6032
6033
612'34
6035
6036
6037

0()16
2liiH6
0016
0016
0016
2016
0016
0016
0016
0016
0016
12lli'J16
12ll1l16
0016
011l16
012116

LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
Ll-.JOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP
LNOP

6040
6041
6042
6043
6044
6045
612146
612l47
6050
6051
6052

12ll2l24
2324
6164
012)14
1517
'11405
4012
2515
204121
2312l1
2605
4022
0524
2522
1640
0601
1114
0504
4006
1722
4016
1722
15 01
1440
1225
1520

ITST14

ITST15

602

.i(l~C

6273

1777

6 •' 7 4

~0er

TST14M, 12ll2l24
2324
6164
11l014
1517
11l405
4012
2515
2040
231211
2605
4022
0524
2522
1640
0601
1114
111504
4006
1722
4016
1722
1512'1
1440
1225
1520
40 :00
EX!TA
EXIT

6 ,:' -;5

C:l? 24

TST15M, v:z,24

t:l7t::

2324

d24
6165

6~53

6054
6055
6056
6057
612'60

6e61
6062
6063
M'64
612'65
6.'oo
6~· 6 7

6k'U
6.'71

6...,.,:

''~'

6165

< L

.~ ~.: 4

:' ~~ 4

1222

. .
'

t.:

PAGE 36

4;' ?b

ILMODE JUMP SAVE RETURN rAILED FOR NORMAL JUMP

IOJR FAILED TO INHIBIT JUMP SAVE

(,i?QP-12
6103
61!il4
6105
6126
6107
6112
6111
6112
6113
6114
6115
6116
6117
6120
6121
6122
6123
6124
6125
6126
6127
6130
6131
6132
6133
6134
6135
6136
6137
614121
6141
6142
6143
6144
6145
6146
6147
615121
6151
6152
6153
6154
6155
6156
6157
616121
6161
6162

6163
6164
6165
6166
6167

.:N,Q,E;C 12-D Ft

Zill

0111

141215
z44e
2417
4J11
1612
1H2
1124
4012
2515
2040
2301
261215
400fl
7777
01210121

1425
0441_7

0024
2324
6166
012114
1517
~41215

4iil12
1520
401216
121111
141215
0440
2417
4003
1405
121122
4004
1222
4000
7777
0000
0024
2324
6167
C02Z
1517
2405
4012
2515
22 4?
2'114
2 4 ~~ 5
22?5

PAL8

2128171

PAGE 36·1

2417

4z,11
1612
1102

1124
412112
2515
2c4e
2301
261215
4000
EXJTA
EXIT
TST16M, 0024
2324
6166
0014
1517
0405
4012
1520
4006
0111
1405
0440
2417
4003
1405
0122
4004
1222
401210
EXJTA
EXIT

ITST16

TST17M, 0024
2324
6167

ITST17

0022

1517
121405
4012
2515
22! 40
2114
241215
2205

~44r

04 4['

2325
1414

0325
1.4 4

4 (~ o~·

4f16

/LMODE JUMP FAILED TO CLEAR QJR

/PMOOE JUMP ALTERED CELL

ee e

/PDP-12 MAINDEC 12-DlFA-L

PAL8

2/28171

6170
6171
6172
6173

612160
6e:00
7777
000?·

606121
600121
EXIT A
EXIT

6174
6175
6176
6177
6200
6201
6202
6203
6204
6205
6206
6207
6210
6211
6212
6213
6214
6215
6216
6217

121024
2324
6170
012120
1517
0405
4011
1706
4001
1424
0522
0504
4003
0514
14 40
6060
6060
4000
7777
001110

TST18M, :.'.l024
2324
6170
0020
1517
12141215
4011
1706
4001
1424
0522
0504
4003
0514
14 40
6060
6060
4000
EX!TA
EXIT

ITST18

6220
6221
6222
6223
6224
6225
6226
6227
6230
6231
6232
6233
6234
6235
6236
6237
6240
6241
6242
6243

0024
2324
6171
0014
1517
0405
4011
1H6
4001
1424
121522
0504
412103
0514
1440
612160
6060
4000
7777
12112100

TST19M, 0024
2324
6171
0014
1517
0405
4011
1706
4001
1424
0522
0504
4003
0514
1440
6060
6060
4000
EXIT A
EX IT

/TST19

6244
6245
6246
6247
6250
6251
6252
6253

0024
2324
626f'.
0020

TST20M, 2224
2324
6260
220
1517
l'.'4 05
; VJ 12

ITST2<l

1517

0405
4012
5

2515

PAGE 36-2

/PMODE !OF ALTERED CELL 012100

/LMODE

ror ALTERED CELL 0000

/PMODE JUMP CLEARED DJR

"".12 .. ..,,,.,

12-c1i:: -

204 0
0314

2 314

05~1

2':> 21

2205
e44e
0412
2200
7777
00 Ni'.

2225

6265
6266
6267
6270
62 71
6272
6273
6274
6275
6,?,76
6277
6300
63.01
6302
630.3.
6304
6305
6306
6307
63Hi
6311
6.312
6313

00:?4
2324
6261
001!4
1222
4011
1612
1102
1124
05rQA
4020
1517
0405
4.011
1624
0522
2225
2024
4023
0126
052'0
7777
0000

TST21M,

63.14
6315
6316
6317
6320
6321
6322
6323
6324
6325
6326
6327
6330
6331
6332
6333
6334
63 ~~5
6336
63 7
63

0024
2324
6262
0014
1517
0405
4014
11'?6
40 >C6

TST22M, 0Z24
2324
6262
8014
1517
0405
4214

'1111

0111

1425
24 41(

14 {)?
z4 4 <)

2417

2412
2222

EXIT A
EXIT
0e 24
2324
6261
2004
1222
4011
1610
1Hl2
1124
f'>504
4020
1517
0405
4011
1624
05 22
2225
2024
4023
0126
0500
EXiTA
EXIT

111?6

4ZZ6

4:314

1771

17 :"1
2 4 4{)
2326

23 ;' 6
::' 4;,: 6

,' c' 4
,' 4 Q'.6

4~42

z;::

84G~

;?442

4r~14

:' .~ 4 ~'\

?,l;9a,1; 'H

224e

6254
6255
6.2 56
62 :,7
6260
6261
6262
6263
62 64

C4 4~·

PA Lb

ITS T21
/DJR INHIBITED PMCDE INTERRUPT SAVE

ITST22
ILMODE LlF FAILED TO LOAD SF
I
OF
SF
SF IN ERROR

/P8P-12

~AlNDEC

12-0lFA-L

PAL8

2128171

PAGE 36-4

6341
6342
6343
6344
6345
6346
6347
6350
6351
6352
6353
6354
6355
6356

264e
4 2 4 ('
2326
4211
1542
2522
2217
2200
7777
;;J13 0
2131
0132
3133
212'00

0640
4 ~' 4 e
2326
4l011
1640
2522
2217
2200
EX I TA
REGB
REGC
REGO
REGE
EX JT

635 7
6360
6361
6362
6363
6364
6365
6366
6367
6370
6371
6372
6373
6374
6375
6376
6377
6400
6401
6402
6403
6404
6405
6406
6407
6410
6411
6412
6413
64 14
6415
6416

11:024
2324
6263
0014
1517
04215
4014
1106
4030
400b

TST23M, 0024
2324
6263
0014
1517
0405
4014
1106
4030
4006
0111
1405
0440
2417
4006
1116
0440
2022
1720
0522
42111
0600
2422
3140
4006
1725
1604
4000
EX!TA
RE GB
REGC
EXIT

/TST23
ILMODE LIF X FAILED TO FINO CORRECT IF
/TRY FOUND

TST28M,

ITST28
/LMODE LIF FAILED TO INHIBIT INTERRUPTS
ISANK

6417
642<'
6421
6t.22

6423

64 2 ~
64 25

n11
1405
044~

2417
42106
1116
0440
2022
1720
0522
4011
0600
2422
3140
4006
1725
1634
4020
7777
3132'

2!131
2~ ?Z,
~~

J 2 '1

[7 J 24

2324
6 2 7'

2324
272

,, :; 1.c
1?1 7
~'4? 5

' "114

b17

/475
41714

/PDP-12. , iNGEC 12-.:,1F A-L

6426
6427
6433
64 31

6432
6433
6434
6435
64 36
6437
6440
6441
64 42
6443
6444
6445
6446
6447
6450
6451
6452
6453
6454
6455
6456
6457
6460
6461
6462
6463
6464
6465
6466
6467
6470
64 71
64 72
6473
6474
6475
6476
64 77
6500
6:>01
6502
6503
6504
6525
65 V'6
6507
6? 1.?
6'.::>11

6512
6513

Ht'.6
412Jl6
2111
1405
?,4 42
2417
4011
1610
1102
1124
4011
1624
0522
2225
2024
2300
0201
1613
4000
7777

0130
00e0
0024
2324
6271
0014
1517
0405
4014
1106
4006
0111
1405
04 40
2417
4014
17 01
0440
2306
4 vi 0v;
4011
0640
404('.
11 ['.1 6
0023
0516

244('
22V3
2H4
40 ['['

7777
v'il 3 2

01 31
[10 ['

P M.8

2128171

PAGE 36•5

1l Z6
4~Z6

z111
1425
:; 4 4 <::

2417
4 Vr."
1
. .J..•
16 lZ
1102
1124
4Z 11
1624
0522
2225
2024
23>?:3
22?1
1613
4 J ;;J2
EXJTA
REGB
EXIT
TST29M, .:'.1024
2324
62 71

/TST29
/LMODE LIF FAILED TO LOAD SF

:?i614

1517
24?5
4014
1106
4006
e111
14 25
2442
2417
4C 1 4
1701
0440
2326
4 l'JI?.?:
'-

"'-

4,...,'- -4~ 1~
;:6 42
c ~' 4.::
11~6

;: : 2 3
/5:6
24~:

2 2 :' ~
? ~ ~· ~
•

(_"

::: \ ! T ~
::{ ~,:;
"<(

'.:..

;

/SENT RCVO

/FJP-12

~AINOEC

t=: 14

0002

6515

2123
112' 3
4 :>15
J515
4 2124
2324
4020
21123
2355
5555

6"'',.,
.;

65:. 7
1-.,;.."""--:.

. . - . . c (..

6521
6"'.;(.(.
~~
6523
6524
6525
6526
6527
6532
6531
6532
6533
6534
6535
6536
6:'37
6542
6541
6542
6543
6544
6545
6546
6547
6550
6551
6552
6553
6554
6555
6556
6557
65612

7777

0i2117
4444
0023
2225
2211
1725
2340
1116
2405
2222
2520
24 41
0050
2310
2503
1340
1117
Z340
1157
1740
2222
0523
2524
5100
0000

12-0lFA-L

TST07M, 2222
2123
112 3
4215
2515
42 24
2324
4022
2123
2355
5555
EXIT A
COUNT
EX I TB
!NTSTM, 0023
2025
2211
17 25
2340
1116
2405
2222
2520
2441
0050
0310
05123
1340
1117
2342
1157
1742
2022
0523
0524
5100
EXIT
$

PAL8

2/28171

PAGE 36-6

/BASIC MEM TST PASS--CPASSl

/SPECIAL RESTART: EVENTUALLY GETS TO TST23
/SPURIOUS INTERRUPT!
/(CHECK !OC IIO PRESET>

,, "F'

/Prm:i"_

2~12 2

A SC l l

2458

ti CL

CL'<

{

ADD
JJR
EX l TA
INTST"
KL JMP
K0177
K1026
f\,252
LDF
LJMP
LO CC A
LO CP
LSKP
\!ERROR
PASS
PNTA
PNTJ

COU~H

; :· ~: 6

ERR Jr<
EXIT ti

7177

65-52
2110

z ,' 7 4
7/77
z1z 3
0./.../1<

.,. "'t I.(.,

6 ::<.';:;

z4ze

5331
2456
;;113
1140

2114
,;i121
RA~~DOM 2126
REGC
0131
RETURN 12135
1224 e
ROL
SRO
15ee
TRY22A 1 ( 0
TST03 22?5
TST06•: 5.:34
TS T11 2456
TST14 C' 555
TST16M 6123
TS Tl 9 i,674
TST2F 6265
TST28 1l57
TST37M 6514
TYPOUT 5244

P AL'8'.

? ?2
:<:o 40
117
,(,? 6 7
4444
53?6
Je 7'l
1?075
'1100
0124
%042
2111
04 77
2065
0112
5002
0e02
0115
0122
5200
0132
5240

!\JTTST
KiZ02k'.'1
K0207
K1777
>\ 60 20
LHAN
L MA SK
LOGE
L.PO pq
LSTERR
\JERROS
PDP
PNTC
PNTO
RANDY
REGO
RNA
ROR
12302
STAiH 0200
TRY22~; 0143
TST03M 5350
T ST07 0345
TST11M 5562
TST14M 6040
TSTi 7 0640
TST19M 6220
TST22 0771
TST28M 6417
TST9A 0364
XSK
0220

hSCRXT 5225
2 76 6
5153
ERRORS ?l'C.rz
5253
'°LAG
Z5.ZZ
!OB
Ki?04C 312 71
KZ212 5175
K2~rne
21e 1
K7 60 5 117 3
0600
LI F
U,OP
2016
{,757
LOCF
2264
LHEG
M203
1172
2324
NOW2
PICKUP 53e3
PNTCA 2116
PNTP
;1123
:513 7
REDO
2133
REGE
5241
RNB
0060
SET
4000
STC
TRY2 3 Hl34
rsrn 4 2235
TST071" 5466
TST13 2522
TST15 ;;)575
TST17M 6150
TST2C ;1)715
TST22M 6314
TST29 1124
TST9AM 5507
BE LL
CRU

PA1Gf'. 3o-7

21'i8171

11 0,215
53 37
?114
53?
HE~E
51..i6
t-. '~:

::.'- :)
.-:: AT.;'•
E xc; ::__s
~

KL F

0H~6

K00 77

0KJ72
5174
01'?2
010?
6141
03 54
1115
1'013
5177
5132
0014
0117
0124
0127
52 61
5242
0136
0144
1077
5402
0412
0531
60!l75
0656
6244
1022
6454
0141

K0215
K2021
K77 74
Ll NC
LOCA
LOCJ
LREGl
M40
OCTYP
PPJT
P"JTE
PPOll\iT
REGA
RELOC
RNC
SETFLG
TEST
TRY 28
TST34M
TST09
TST13A
TST15M
TST18
TST20M
TST23
TST29~

TYPE

AUT012 Ql016
160 z
DA YP 5162
;.H:i0e
EX IT
l cJCREL 530Z
llHl7
KL If
K0100 0073
K0400 0076
K240
5176
10120
LOA
L! NTR 0040
043 4
LDCC
LOCO
1161
0050
LSET
M4444 5173
PASPNT 1162
P ll'H R 12000
PNTF
0120
PREG
012?
REGB
0130
RELOCR <1134
RND
5243
SPACE 0137
TESTN 1163
TSTJNT 0140
TST06 0 26 5
TST09M 5530
TST13M 5626
TST16 0616
TST18M 6174
TS T21 0741
TST23M 6357
TST29N 0142
TYPECH 507?
BS E