Digital PDFs

XX-07FDA-22

August 1973

39 pages

Original

2.6MB

Document:	019 MAINDEC-11-DCKTA-B-D KT11-C BASIC LOGIC TEST ONE Aug73
Order Number:	XX-07FDA-22
Revision:	0
Pages:	39
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/1140_45/019_MAINDEC-11-DCKTA-B-D_KT11-C_BASIC_LOGIC_TEST_ONE_Aug73.pdf

OCR Text

DCKTA
MACYll.624
DCKTAB.Pl1

22-AUG-73

1~:14

PAGE 1
.REM*

IDENTIFICATION
PRODUCT CODE:

MAINDEC-l1--DCKTA-B-D

PHODUCT NAME:

KTll-C BASIC LOGIC TEST ONE

D)\TE CREATED:

AUGUST 1973

MJUNTAINER;

DIAGNOSTIC ENGINEERING

AUTHOR:

RICK FADDEN

COPYRIGHF @ 1972, 1973
DIGITAL EQUIPMENT CORPORATION

DCKTA
MACYll.624
DCKTAB.Pl1

22-AUG-73

14:14

PAGE 2

MAINDEC-I1-DCKTA-A
PAGE 02
1.0

ABSTRACT
THIS PROGRAM AND THE NEXT (DCKTB) INCREMENTALLY TEST THE BASIC LOGlC
FUNCTIONS OF THE KTII-C MEMORY MANAGEMENT OPTION f'OR THE PDP-lI/45,
THEY FULLY TEST RELOCATION, DIRECT AND INDIRECT ADDRESSING OF THE
MEMORY MANAGEMENT R~GISTERS, AND CORRECT OPERATION OF ALL
THE BITS IN THE REGISTERS, THE VARIOUS ABORTS ARE TESTED, AS
IS PROPER "LOCKING" AND "UNLOCKING" OF THE ERROR TRACKING LOGIC.

2.0

REQUIREMENTS

2.1

EQUIPMENT
PDP-l1/45 WITH KTll-C OPTION

2.2

STORAGE
THE PROGRAM REQUIRES MEMORY LOCATIONS 0 TO 17474,

3,0

LOADING PROCEDURE
LOAD PROGRAM INTO MEMORY USING ABS LOADER.

4.0

STARTING PROCEDURE
LOAD ADDRESS 200.
SET DESIRED SWITCH REGISTER SETTINGs (ALL DOWN FOR WORST CASE).
PRESS START,
THE PROGRAM WILL DISPLAY THE NUMBER OF THE CURRENT SUBTEST IN
THE DISPLAY REGISTER, AND WILL RING THE BELL ON COMpLETION
OF A PASS.

DCKTA
MACY11,624
DCKTAB,Pl1

22-AUG-73

14:14

PAGE 3

MAINDEC-11-DCKTA-A
PAGE 03
5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS
SW 15=1
SW 14=1
SW 13=1
SW 11=1
SW 08=1

5.2

OR
OR
OR
OR
OR

UP
UP
UP
UP
UP

HALT ON ERROR
SCOPE LOOP
INHIBIT PRINTOUT
INHIBIT ITERATIONS
LOAD MICROBREAK REGISTER WITH VALUE IN
SW 00-07.

SUBROUTINE ABSTRACTS
SCOPE
THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST. IT RECORDS
THE STARTING ADDRESS OF EACH SUB TEST AS IT IS BEING ENTERED,
IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE·START OF THE
SUBTEST THAT THE SCOPE LOOP IS REQUESTED FOR. IF SCOPE LOOP IS
NOT REQUESTED, THERE WILL BE 1024 ITERATIONS ON THAT SUB TEST
BEFORE THE NEXT SUBTEST IS ENTERED. SWITCH 11 ON A 1 INHIBITS
ITERATION OF SUBTESTS.

5,2.2

HLT
THIS EMT CALLS THE SUBROUTINE PRINT, WHICH PRINTS OUT THE LOCATION
COUNTER AT THE TIME OF FAILURE AND THE CONTENTS OF THE PROCESSOR STATUS
REGISTER. NOTE THAT THE LOCATION COUNTER WILL BE THE ADDRESS
OF THE HLT PLUS TWO.
TRAPCATCHER
THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 DESIGNED
TO DETECT AND ISOLATE UNEXPECTED TRAPS AND INTERRUPTS TO THE
TRAP AND INTERRUPT VECTOR AREA OF MEMORY.
EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE
NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH A HALT (000000),
THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A HALT AT THE TRAP
LOCATION PLUS TWO.
IF A HALT OCCURS IN THE TRAp OR INTERRUPT AREA EXAMINE REGISTER
SIX, IT WILL CONTAIN THE CURRENT STACK ADDRESS, THE CONTENTS
OF THE CURRENT STACK ADDRESS IS THE VALUE OF THE LOCATION
COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED.

DCKTA
MACYll.624
DCKTAB,Pll

22-AUG-73

14:14

PAGE 4

MAINDEC-ll-0CKTA-A
PAGE 04
EMTSRV (EMT DECODER)
THIS ROUTINE DECODES ALL EMT CALLS, INCLUDING PATCHES AND THE
HLT CALL WHICH PASSES CONTROL TO THE PRINT ROUTINE,
CLRALL
THIS ROUTINE CLEARS ALL THE PAR'S AND PDR'S OF THE KTll-C,
AS WELL AS SRO,
RWALL
THIS ROUTINE MAPS ALL PAGES TO BANK 0 BY CLEARING ALL THE PAR'S.
ALL PAGES ARE MADE 4K READ-WRITE BY LOADING ALL THE PDR'S WITH
THE VALUE 77406.
RWISP
THIS ROUTINE MAPS ALL I-SPACE PAGES RW,4K, BANK O.
RWDSP
THIS ROUTINE MAPS ALL D-SPACE PAGES RW,4K, BANK 0,
5.3

PROGRAM AND lOR OPERATOR ACTION
THE PROGRAM FIRST CHECKS THOSE PROPERTIES OF THE KT11-C
WHICH CAN BE TESTED WITH MEMORY MANAGEMENT TURNED OFF.
THEN, DESTINATION ONLY RELOCATIUN IS USED TO SHOW THAT BASIC
RELOCATION IS WORKING CORRECTLY, FINALLY, FULL RELOCATION IS
ENABLED AND MISCELLANEOUS ASPECTS OF THE KTll-C'S OPERATION
ARE CHECKED,

DCKTA
MACY11.624
DCKTAB.Pl1

22-AUG-73

14:14

PAGE 5

MAINDEC-II-DCKTA-A
PAGE 05
6.0

ERRORS

6.1

ERROR PRINTOUT
PRINTOUTS ARE IN A STANDARD TWO-WORD FORMAT. THE FIRST WORD IS
THE OCTAL VALUE OF THE PC+2 OF THE DETECTED ERROR. THE SECOND IS
THE CONTENTS OF THE PROCESSOR STATUS REGISTER WHEN THE ERROR WAS
DETECTEn,

6.2

ERROR RECOVERY
IN GENERAL, TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND
CONTINUE. IF THE "HALT ON ERROR" SWITCH IS SET, HITTING CONTINUE
wILL RECOVER, IF THE PROGRAM HANGS UP IN A LOOP, THE ERROR IS
LIKELY TO BE A SIGNAL WHICH WAS NEVER RECEIVED. IF A HALT
OCCURS IN THE TRAP AND VECTOR AREA THE PROGRAM MUST BE RESTARTED,
IF THE PROGRAM HALTS IN THE MAIN FLOW, CONSULT THE LISTING IF NO
MESSAGE IS TYPED OUT.

6.3

BRANCH SELF
A BRANCH TO SELF IS USED IN THE KTll-C DIAGNOSTICS TO INDICATED A FAILURE
WHEN A HALT OR A HLT WORD TRAP CALL COULD L~AD TO PROBLEM.

7,0

RESTRICTIONS
PROGRAM MUST BE LOADED INTO LOWER 4K OF MEMORY.

8.0

MISCELLANEOUS

8,1

EXECUTION TIME
EACH PASS TAKES APPROXIMATELY 1 MINUTE WITH CORE MEMORY.

8.2

STACK POINTERS
THE KERNEL STACK POINTER IS USUALLY INITIALIZED TO 1400,
HOWEVER, IN CERTAIN TESTS IT MAY BE INITIALIZED TO A LOWER
ADDRESS (VIRTUAL) TO MAKE UP FOR RELOCATION OF THE BANK.
THE SUPERVISOR STACK POINTER IS INITIALIZED TO 1000,
THE USER STACK POINTER IS INITIALIZED TO 400,

DCKTA
MACY11.624
DCKTAB.Pl1

22-AUG-73

14:14

PAGE 6

MAINDEC-11-DCKTA-A
PAGE 06
8.3

DISPLAY REGISTER
THE NUMBER OF THE CURRENT SUBTEST IS DISPLAYED.

8.4

EXECUTION ORDER CHECKING
SINCE THE KT11-C MAY CAUSE AN INCORRECT FETCH IF IT IS NOT
WORKING CORRECTLY, THE ORDER OF EXECUTION OF ALL SUB TESTS
IS CHECKED. THE SCOPE ROUTINE, WHEN IT CHANGES FROM ONE SUBTEST
TO THE NEXT, INCREMENTS A COUNTER CALLED TESTCT. AT THE START
OF EACH SUBTEST, THIS COUNTER IS CHECKED FOR THE CORRECT
VALUE FOR THAT SUBTEST. IF TESTS ARE NOT EXECUTED IN THE CORRECT
ORDER, TESTCT WILL NOT CONTAIN THE EXPECTED VALUE, AND
AN ERROR PRINTOUT WILL OCCUR,

9.0

PROGRAM DESCRIPTION
THE PROGRAM INITIALLY TESTS THOSE FEATURES OF THE KT11-C OPTION
WHICH CAN BE TESTED WITHOUT TURNING ON MEMORY MANAGEMENT.
IT THEN USES THE MAINTENANCE MODE (DESTINATION ONLY RELOCATION)
TO TEST TURNING MEMORY MANAGEMENT ON AND OFF AND TO FULLY
CHECK OUT RELOCATION. ONCE RELOCATION HAS BEEN FULLY TESTED,
FULL PAGING IS USED TO TEST THE REMAINING OPERATIONS OF
THE OPTION.

DCKTA
MACYll.624
DCKTAB.Pl1

22-AUG-73

14:14

PAGE 7

:KT11-C BASIC LOGIC TEST ONE [RICK FADDEN)
:COPYRIGHT 1972, 1973 DIGITAL EQUIPMENT CORP,. MAYNARD, MASS. 01754
:REVISED TO REV. B BY BRUCE BURGESS
TEST22, BELL ON PASS COMPLETE SUBROUTINE, AND
ERROR PRINTOUT WITH ITERATIONS INHIBITED
MODIFICATIONS MAKE UP REV. B
:OPEHATlNG INSTRUCTIONS
1.
LOAD TEST USING THE ABSOLUTE LOADER
2.
LOAD SA 200
3.
SET SR TO INITIAL SETTINGS
4.
PRESS START
:OPERATIONAL SWITCH SETTINGS:
:SW15=1 CAUSES HALT ON ERROR
:51'114=1 CAUSES SCOPE LOOPING
:Sw13=1 INHIBITS ERROR PRINTOUT
:51'111=1 INHIBITS ITERATIONS
:SW08=1 LOAD MICROBREAK REGISTER WITH LOW BYTE OF SWITCH REGISTER
:DEFINITIONS
SCOPE=TRAp
NOP=240
RO=\O
Rl=\!
R2=\2
R3=\3
R4=\4
R5=\5
R6=\6
R7=\7
SP=\6
PC=\7
SR=177570
PS=177776
STATUS=PS
HLT=104006
KTOFF=104010

104400
000240
000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
177570
177776
177776
104006
104010

LOAD TRAP CATCHER INTO 0 THRU 777
LOAD EACH VECTOR ADDRESS WITH THE ADDRESS OF THE NEXT
LOCATION, AND LOAD EACH LOCATION IMMEDIATELY FOLLOWING
A VECTOR ADDRESS WITH A HALT INSTRUCTION

000030
000032
000034
000036

DCKTA
MACY11.624
DCKTAB.Pll

000200

000200
000167

001400
001402
001410
001412
001414
001416
001420
001422
001424
001426
001430
001432
001434
001436
001440
001442
001444
001446
001450
001452
001454
001454
001456
001460
001462
001464
001466
001470
001472
001474
001476
001500
001502
001504
001506
001510
001512
001514
001516
001520
001522
001524
001526

177600
177602
177604
177606
177610
177612
117614
17761&
177620
177622
177624
177626
177630
177632
177634
177636
177640
177642
177644
177646
177650
177652

001000

22-AUG-73

000400
000000
001000
000000
001400
000000
000000
000000
000200
123456
134567
100000
177564
177566
000000
000000
000000
177572
177573
177574
177575
177576
177577
112516
172517

000400

:LOAD VECTOR AREA
.=30
EMTSRV
340
.=34
SCOpEC

000030
017324
000340
000034
016552
000000

14: 14

PAGE 8

001632

:LOAD STARTING AREA
.=200
JMP
START

000000

:LOAD DATA AREA
.=400
USTACK: 0
.=.+376
SSTACK: 0
.=.+376
KSTACK: 0
.WORD 0,0,0,0

000000

K200:
K123:
Kl34:
KNR:
TCSR:
TOBR:
TE!4PX:
TEMPI:
TEMP2:
SRO:
SROH:
SRI:
SIHH:
SR2:
SR2H:
SR3:
SR3H:

200
123456
134567
100000
177564
177566
0
0
0
177572
177573
177574
177575
177576
177577
172516
172517

ADRTAB:
UIPDRO:
UIPDRI :
UIPDR2:
UIPDR3:
UIPDR4:
UIPDR5:
UIPDR6:
UIPDR7 :
UDPDRO:
UDPDRI :
UDPDR2:
UDPDR3:
UDPDR4:
UDPDR5:
UOPDR6:
UDPDR7:
UIPARO:
UIPAR1:
UIPAR2:
UIPAR3:
UIPAR4:
UIPAR5:

177600
177602
177604
177606
177610
177612
177614
177616
177620
177622
177624
177626
177630
177632
177634
177636
177640
177642
177644
177646
177650
177652

:CONSTANTS

:TELETYPE PRINTER CSR ADDRESS
:'!EHPGRAin' STORAGE LOCAtIONS

:KTll-C STATUS REGISTER ADDRESSES

:USER I-SPACE PAGE DESCRIPTOR REGISTERS

I USER D-SPACE PAGE DESCRIPTOR REGISTERS

JUSER I-SPACE PAGE ADDRESS REGISTEItS

OCKTA
MACYll,&24
OCKTrtS,Pll

22-AUG-73

14114

PAG~

001530
001532
001534
001536
001540
001542
001544
001546
001550
001552

177654
17765&
177660
177662
177664
177666
177670
177.672
177674
177676

UIPAR6:
UIPAR7:
UDPARO:
UDPAR1:
UDPAR2:
UDPAR3:
UOPAR4:
UDPAR5:
UDPAR6:
UDPAR7:

001554
001556
001560
001562
001564
00156&
001570
001572
001574
001576
001600
001602
001604
001606
001610
001612
001&14
001616
001620
001622
001624
001626
001630
001632
001634
001636

SIPDRO: 172200
SIPDR1: 172202
SIPDR2: 172204
SIPD'R3: 172206
SIPDR4: 172210
SIPOR5: 172212
SIPDR6: 172214
SIPDR7: 172216
SDPDRO: 172220
SDPOR1: 172222
SDPDR2: 172224
SDPOR3: 172226
SDPOR4: 172230
SDPDR5: 172232
SDPOR6: 172234
SDPOR7: 172236
SIPARO: 172240
SIPAR1: 172242
SIPAR2: 172244
SIPAR3: 172246
SIPAR4: 172250
SIPAR5: 172252
SIPAR6: 172254
SIPAR7: 172256
SDPARO: 172260
SDPAR 11 172262
SLiPAR2: 172264
SDPAR3: 172266
SDPAR4: 172270
SDPAR5: 172272
SDPAR6: 172274
SDPAR7: 172276

;SUPERVISOR I-SPACE PAGt: DESCRIPTOR REGISTERS

001642
001644
001646
001650
001652

172200
172202
172204
172206
172210
172212
172214
172216
172220
172222
172224
172226
172230
1722 32
172234
172236
172240
172242
172244
172246
172250
172252
172254
172256
172260
172262
112264
172266
172210
172272
172274
172276

001654
001656
001660
001662
001664
001666
001670
001672
001674
001676

172300
172302
172304
172306
172310
172312
172314
172316
172320
172322

KIPDRO:
KIPDR1:
KIPDR2:
KIPDR3:
KIPDR4:
KIPDR5:
KIPDR6:
KIPDR7:
KOPDRO:
KDPDR1:

,KERNEL I-SPACE PAGE DESCRIPTOR RE<.iISTERS

001640

DCKTA
MACY11.624
DCKTAS,Pll

22-f<UG-i3

14:14

177654
177656
177660
177662
177664
177&66
177670
177672
177674
177676

172300
172302
172304
172306
172310
172312
172314
172316
172320
172322

,USER D-SPACE PAGE

.~DDRESS

REGISTERS

,SUPERVISOR D-SPACE PAGE DESCRIPTOR REGISTERS

,SUPERVISOR I -SPACE PAGE ADDRt:SS Rt:GISTlRS

; SUPERVISOR

D-SPAC~

PAGE ADDRESS REGISTERS

; KERNEL D_SPACE PAGE DESCRIPTOR RE<.ilSTERS

PAGE 10

001700
001702
001704
001706
001710
001712
001714
001716
001720
001722
001724
001726
001730
001732
001734
001736
001740
001742
001744
001746
001750
001752

172324
172326
172330
172332
172334
172336
172340
172342
172344
172346
172350
172352
172354
172356
172360
172362
172364
172366
172370
172372
172374
172376
001752

KDPOR2:
KOPDR3:
KDPOR4:
KDPDR5:
KDPDR61
KOPDR7:
KIPARO:
KIPARt:
KIPAR2:
KIPAR3:
KIPAR4:
KIPAR5:
KIPAR6:
KIPAR7:
KDPAROI
KDPARll
KOPAR2:
KDPAR3:
KDPAR4:
KDPAR5:
KDPAR6:
KDPAR7 :
ADREND=

001754
001756
001760
001762
Oot 764
001766

177600
172200
172300
177640
172240
172340

PORTAB: 177600
172200
PDREND: 172300
PARTAB: 177640
172240
172340

001770
001772
001774
001776
002000
002002

001654
000000
001554
040000
001454
140000

STATAB: KIPDRO

,ADDRESS OF KERNEL TABLE UF PDR'S AND PAR'S

SIPDRO
40000
UIPDRO
STAEND: 140000

:ADDRESS OF SUPERVISOR TABLE OF PDR'S AIllD PAR'S

002004
002006
002010
002012
002014
002016
002020
002022
002024
002026
002030
002032
0020)4

000000
000000
000000
000000
000250
000252
177770
177710
000401
002717
100360
000000

STAPNT:
PAGES:
SAVEAI
SAVEB:
KTVEC:
KTSTA:
UBRK:
"'5KB:
SETMSK:
EXPMSK:
PDRMSK:
TESTCT:
BLOCKS:

COCOOO

172324
172326
172330
172332
172334
172336
172340
172342
172344
172346
172350
172352
172354
172356
172360
172362
172364
172366
172370
172372
172374
172376

,KERNEL I-SPACk: PAGE ADDRESS REGISTERS

,KERN~L

a-SPACE PAGE ADDRESS REGISTERS

,-2

;STARTING ADDRESSES OF" PDR'S FOR EACH MODE

: STARTING ADDRESSES OF" PAR' S FOR EACH MUDE

: ADDR~SS OF USER TABLE OF PDR' S ANI) PAR' S

o
o
o
250
252
177770
177770
401
2777
100360

o
o

I SET UP FOR START OF BASIC LOGIC TESTS

,KT11-C VECTOR ADDRESS
: MICROBREAK REGISTER ADDRESS

DCKTA
MACYll.624
DCKTAB.Pll

22-AUG-73

002036
002042
002046
002054
002060
002066
002072
002076
002104
002112
002120

005037
012706
012737
012706
012737
012706
005037
012767
012767
012767
000401

002122
002124
002132
002136
002142
002146
002154
002156

104400
012737
005037
012706
004767
026727
001401
104006

002160
002164
002166
002170
002174
002176
002200
002204
002206
002210

105777
100375
000005
005777
001401
104006
005777
001401
104006
012767

002216
002220
002226
002232
002236
002242
002250
002252

104400
012737
005037
012706
004767
026727
001401
104006

002254
002260
002262
002264
002270
002274
002300
002304

012700
010001
010102
046701
046702
010177
020277
001401

DCKTA
MACY11,624
DCKTAB,Pll

177776
001400
040000
001000
140000
000400
177776
002000
002124
000001

14:14

PAGE 11

START:
177776
177776

014574
014572
177712

000001
177776
001400
014114
177660

177570

000001

ISTB
BPL
RESET
TST
BEQ
HLT
1ST
IlEQ
HLT
MOV

177240

177234

000002
177776
001400
014020
177564

014462

177570

000002

,INITIALIZE USER STACK

,INITIALIZE ITERATION COUNT
: SETUP SCOPE AND ITERATION LOOP RETURN
:INITIALIZE TEST COUNT
,SKIP SCOPE INSTRUCTION

~TCSF!

,WAIT FOR TTY REAllY TO AVOID KILLING BELL

.-4
@SRO
.+4
@SRI
.+4
'10, ICOUNT

:ISSUE INIT
:CHECK SRO
:SRO WAS NOT INITIALIZED TO ZERO
:CHECK SRI
:SRI WAS NOT INITIALIZED TO ZERO
:DROP .ITERATION COUNT SINCE RESET IS USED

:CHECK READ/WRITE PROpERTIES OF ALL BITS IN SRO EXCEPT 0 AND 8
:BY ROTATING A ONE THRU THE BIT pOSITIONS BEING CHECKED
TEST2:
SCOpE
MOV
12,@#SR
:DISPLAY TEST NUMBER
CLR
@IPS
,INITIALIZE PROCESSOR STATUS
MOV
,KSTACK,SP
:INITIALIZE KERNEL STACK POINTER
",SETUP
: INITIALIZE SRO,SR3
JSR
CMP
TESTCT,. 2
: IS THIS TEST BEING EXECUTED IN THE
BEQ
.+4
:CORRECT SEQU"NCE?- BRANCH IF YES
HLT
: TEST EXECUTED OUT OF SEQUENCE- TESTCT
:CONTAINS NUMBER OF PREVIOUS TEST pLUS ONE

000001
LOOp2:
177534
177532
177134
177130

22-AUG-73

: INITIALIZE STATUS
,SETUP KERNEL STACK
: INITIALI ZE SUPERVISOR STACK

:SRO AND SRI SHOULD BE INITIALIZED TO 0
TEST 1 :
SCOPE
MOV
11,@~SR
:DISPLAY TEST NUMBER
CLR
@#PS
: INITIALIZE PROCESSOR STATUS
: INITIALIZE KERNEL STACK POINTER
MOV
'KSTACK,SP
:INITIALIZE SRO,SR3
JSR
'7,SETUP
: IS THIS TEST BEING EXECUTED IN THE
CMP
TESTCT, # 1
:CORRECT SEQUENCE?- BRANCH IF YES
BEQ
• +4
: TEST EXECUTED OUT OF SEQUENCE- TESTcr
HLT
:CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

177236

000010

@IPS
HSTACK,SP
HOOOO,UPS
'SSTACK,SP
U40000,UPS
IUSTACK,SP
@IPS
12000, ICOUNT
ITEST1+2,RETURN
.1,TESTCT
,+4

CLF!
MOV
MOV
MOV
MOV
MOV
CLF!
MOV
MOV
MOV
BR

14:14

MOV
MOV
MOV
BIC
SIC
MOV
CMP
BEQ

.I,RO
RO,Rl
R1,R2
SETMSK,R1
EXPMSK,R2
Rl,!!lSRO
R2,!!lSRO
.+4

:RO CONTAINS BIT INDICATING POSITIUN BEING
~TESTED-SETUP Rl TO SET THAT BIT IN
~SRO UNLESS IT'S BIT 0 OR BIT 8
;R2 CONTAINS THE EXPECTED CONTENTS OF SRO
;CLEAR THE BIT IN R2 IF IT SHOULDN'T SET IN SRO
,SET THE BIT IN SRO UNLESS IT'S BIT 0 OR BIT 8
,CHECK SRO
;BRANCH IF OK

PAGI:: 12

002306

104006

HLT

002310
002312
002314

006300
103362
005077

ASL
BCC

RO
LOOp2

:SRO INCORRECT AFTER VALUE IN Rl
:WAS LOADED INTO IT
:CHECK NEXT BIT POSITION
:BRANCH IF NOT ALL DONE

eLK

@SRO

:REINlTiALiZE SRO

002320
002322
002330
002334
002340
002344
002352
002354

104400
012737
005037
012706
004767
026727
001401
t 04006

002356
002364
002370
002374
002400
002402
002406
002412
002414
002416
002420

012767
004767
012703
012700
012301
012102
012704
010411
020411
001401
104006

002422
002424
0024]0
002432
002434
002436
002440

006304
020427
001370
005011
005721
017215
077021

002442
002444
002452
002456
002462
002466
002474

177114

000003
177776
001400
013716
177462

001000
013704
001762
000003

177570

000003

014314

000020
00000 I

005037
012706
004767
026721
001401

000004
177776
001400
013574
177340

MOV
JSR
MOV
MOV
LOOP] :
MOV
MOV
1,00P3A: MOV
LOOp3B: MOV
CMp
BEQ
HLT

ASL
CMP
BNE
CLR
TST
SOB
SOB

010000

104400

012737

:BITS 0-11 OF ALL PAR'S SHOULD BE READ/WRITE
:TEST BY ROTATING A BIT THRU EACH PAR
: ALSO SHOWS THAT OUTPUT PATHS FROM PAR'S ARE OK
: AND THAT EVERY PAR ADDRESS IS RESPONDED TO
TEST3:
SCOPE
MOV
#3,@ISR
:DISPLAY TEST NUMBER
@.PS
CLR
~INITIALIZE PROCESSOR STATUS
MOV
'KSTACK,SP
: INITIALIZE KERhEL STACK POINTER
JSR
'l;7,SETUP
:INITIALIZE SRO,SR3
eMP
TESTCT, n
:IS THIS TEST BEING EXECUTED IN THE
BEQ
.+4
:CORRECT SEQUENCE?- BRANCH IF YES
HLT
: TEST EXECUTED OUT OF SEQUF;NCE- TESTCT
;CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

177570

000004

UOOO,ICOUNT

\7 ,CLRALL
,PARTAB,R3
n,RO
(R3)+,Rl
• 20, R2
Il,R·;
R4,!!lRl
F!4,!!lRI
.+4

R4
R4,,10000
LOOP3B
!!lRI
(Rl)+
R2,LOOP3A
RO,LOOP3

:RAISE ITERATION COUNT
:INITIALIZE KT11-C REGISTERS
:R3 POINTS TO TABLE OF PAR ADDRESSI::S
:RO IS COUNTER OF STATES LEFT TO TI::ST
:PUT ADDRESS OF 1ST PAR IN SET IN 1<1
:R2 IS COUNTER OF PAR'S LEFT TO TI::ST IN SET
:R4 IS BIT OF PAR BEING TESTED
:SET BIT IN PAR
:CHECK PAR
~BRANCH IF OK
:PAR WHOSE ADDRESS IS IN R1
:FAILED WHEN THE. VALUE IN R4
,WAS LOADED INTO IT
:SETUP TO CHECK NEXT BIT POSITION
,ALL R/W BITS IN THIS PAR ALREADY CHECKED?
,NO-BRANCH TO CONTINUE
: YES-CLEAR PAR JUST TESTED
; MOVE POINTER TO NEXT PAR
:TEST ALL PAR'S IN SET
: TEST ALL 3 REGISTER SETS

:BITS 0-3 AND A-14 OF ALL PDR'S SHOULD BE READ/WRITE
:BITS 4,5, AND 15 SHOULD ALWAYS BE ZERO
: BITS 6 AND 7 SHOULD BE ZERO IF PDR IS WRITTEN
,ACTUAL CLEARING AND SETTING of 6 AND 7 IS TESTED LATER
: THIS TEST ALSO SHOWS THAT OUTPUT PATHS FROM PDR' S ARE OK
,AND THAT EVERY pDR ADDRESS I S RESPONDED TO
TEST4:
SCOPE
MOV
t4,iI.SR
:DISPLAY TEST NUMBER
@IPS
CLR
,INITIALIZE PROCESSOR STATUS
MOV
,KSTACK,Sp
:INITIALIZE KERNEL STACK POINTER
,7,SETUP
JSR
,INITIALIZE SRO,SR3
CMP
TESTCT,.4
,IS THIS TEST BEING EXECUTED IN THE
BEQ
,+4
:CORRECT SEQUENCE?- BRANCH IF YES

DCICTA
MACYll.624
OCIC1AB.Pll

22-AUG-7 )

002476

104006

002500
002504
002510
002512

004767
012703
012301
012102

013510
001754

002516
002522
002524
002510
002532
002534
002536

012700
010005
046705
010011
021105
001401
104006

000001

002540
002542
002544
002546
002550
002552
002556

006300
103367
005011
005721
077216
020327
003754

002560
002562
002570
002574
002600
002604
002612
002614

104400
012737
005037
012706
004767
026727
001401
104006

14114

PAGE 1)

JILT

JSR
MOV
MOV
MOV

\7,CLRALL
'PDRTAB,R3
(Rl)+,R1
.20, R2

LOOP4AI MOV
LOOP4BI MOV
BIC
MOV
CMP
BEQ
HLT

I1,RO
RO,R5
PDRMSK,R5
RO,IilR1
IilR1, R5
.+4

LOOP4:
000020

177 300

IISL
BCC
CLR
TST
SOB
CMP
BLE

001760

000005
177776
001400
013456
177222

,TEST EXECUTED OUT OF' SEQUENCE- TESTCT
,CONTAINS NUMBER OF' PREVIOUS TEST ilLUS ONE

RO
LOOP48
IilR1
(R1)+
R2,LOOP4A
R3,.PDREND
LOOP4

177570

000005

002616

004767

013452

JSR

\1,CLRALL

012701

001454

MOV

'AORTAB,Rl

002626

012702

001454

MOV

IADRTAB,R2

002632
002636

012703
012771

000140
010421

MOV
MOV

.96.,R3
110421,€ICRl)

002644
002646
002650

020201
001406
005772

000000

CMP
BEQ
TST

R2,Rl
CONT5
tHR2)

002654

001403

BEQ

CONT5

000000

14114

104006

002660
002664
002666

005072
005722
077312

000000

002670

022701

001752

002674
002676

001402
005031

002700

000752

002702

012767

CONT51

000100

002710
002712
002720
002724
002710
002734
002742
002744

104400
012737
005037
012706
004767
026727
001401
104006

002746
002754
002760
002764
002710
002772
002776
003002
003004
003010
003012

012767
004767
012703
012700
012301
012702
012711
105011
022711
001401
104006

002000
013314
001762
000003

003014
003020
003024
003030
003032

012711
105061
022711
001401
104006

177777
000001
000377

003034
003040

005721
1)71'2'!
077 025

003042

104400

000006
177776
001400
013326
177072

000020
177777
007400

013770

177570

000006

013724

,PDR WHOSE ADDRESS IS IN N1
,WAS INCORRECT AFTER VALUE IN RO
,WAS LOADED I NTO IT
,ROTATE BIT
:BRANCH IF NOT DONE WITH THIS PDR
,IF DONE WITH THIS PDR, CLF.AR IT
,MOVE POINTER TO ADDRESS NEXT PDR
:TEST ALL PDR'S IN THIS GROUP
,TEST ALL 3 GROUPS OF PDRS-USER,
: SUPERV I SOR, AND KERNEL

:INiT!A~IZE ALL ?AR·S AND P'DR-S
:TO ZERO
'Rl pOINTS TO ADDRESS O~' pAR OR PDR
,LOADED
'R2 USED AS A pOINTER TO CYCLE THRU
,ALL OTHER ADDRESSES OF PAR'S AND ilDR'S
,TO CHECK FOR DlJAL ADDRt:SSING
,R3 USED AS A COUNTER
ILOAD THE PAR OR PDR WHOSt: ADDRESS IS IN R1
,SET ONE BIT IN EACH CHIP (4 BITS PER CtlIP)
,IF Rt:AD/WRlTE
:IF Rl CONTAINS ADDRESS O~
:LOCATION LOADED, SKIP CHI::CKING IT
:OTHERWISE, CHECK TO SEE I f THIS
; REGISTER RESPONDED TO THI:: ADDRt:SS
10F THE ONE LOADED AS A DUAL
,BRANCH If' OK

PAGE 14

HLT

002656

~~~!,!5

LOPS .. :

LOP5BI

22-AUG-73

,R5 CONTAINS EXPECTEO RESULTING CONTENTS OF PDR
,LOAD PDR
,CHECK RESULTING CONTENTS OF PDR

,NO DUAL ADDRESSING TEST .·OR PAR'S AND PDR'S
'SHOW THAT EACH pAR AND EACH PDR RESPONDS TO ONLY ONE ADDRESS
TESTS;
SCOPE
MOV
15,Iil'SR
,DISPLAY TEST NUMBER
CLR
,INITIALIZE PROCESSOR STATUS
UPS
IKSTACK, SP
,INITIALIZE KERNEL STACK POINTER
MOV
JSR
\7 ,SETUP
,INITIALIZE SRO,SR]
CMP
,IS THIS TEST BEING EXECUTED IN TH~
TESTCT"5
SEQ
,CORRECT SEQUENCE?- BRANCH IF YES
.+4
HLT
,TEST EXECUTED OUT OF SEQUENCE- TESTCT
,CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

002622

DCKTA
MACYI!.624
DCKTAB.Ptl

,INITIALIZE ICTll-C REGISTERS
,Rl POINTS TO TABLE Of PDR ADDRESSES
,LOAD ADDRESS Of' 1 ST PDR I N STATE 1 NTO Rl
,USE R2 AS A COUNTER OF PDR' S
I LEf'T TO TEST
,RO INDICATES BIT POSITION BEING n':Sn':D

DONE5:

CLR
TST
SOB

Iil(R2)
(R2)+
R3,LOP5B

CMP

IADREND,Rl

BEQ
CLR

DONE5
Iil(R1)+

LOP5A

MOV

1100,1COUNT

:DUAL ADDRESSING - ADDRESS POINTED
,TO BY R2 RESPOliDt:D TO THE ADDRESS
,POINTED TO BY Rl IN AT LEAST ONE
,4 BIT SECTION (1 CHIP)
,REINITIALIZI:: FAULTY LOCATION
IMOVE POINTER R2
,CHECK ALL PAR'S AND PDR'S
,TO SEE IF THEY RESPONDED TO THE
,ADDRESS POINTED TO BY Rl
,HAVE ALL ADDRESSES BEEN CHECKED
,FOR DUALS?
,YES - BRANCH TO DONE
,NO - MOVE POINTER Rl TO ADDRESS Of
,NEXT PAR OR PDR
,CHECK FOR DUALS OF THE
,ADDRESS POINTED TO B¥ Rl
,DROP ITERATION COUNT

: SHOW THAT BYTE ADDRESSING OF PAR'S WORKS FOR HIGH AND LOW BYTES
,CHECK ALL PAR'S
TEST6:
SCOPE
,DISPLAY TF.ST NUMBER
.6,USR
MOV
,INITIALIZE PROCESSOR STATOS
CLR
UPS
,INITIALIZE KERNEL STACK POINTER
MOV
,KSTACK,SP
:INITIALIZE SRO,SR3
JSR
\7 ,SETUP
,IS THIS TEST BEING EXECUTED IN THt;
TE5TCT,.6
CMP
,CORRECT SEQUENCE?- BRANCH IF YES
BEQ
.+4
I TEST EXECOTED OUT OF SI::QU,ENCE- TESTCT
HLT
,CONTA INS NUMBER OF PREVIOUS TEST PLUS ONE
MOV
JSR
MOV
MOV
MOV
LOOP6:
MOV
LOOP6AI MOV
CLRB
CMP
BgQ
HLT

,2000,ICOUNT
\7,CLRALL
'PARTAB,R3
.3, RO
(R3)+,Rl
'20,R2
.-l,IilRl
IilRl
.7400,IilRl
.+4

MOV
CLRB
CMP
BEQ
HLT

.-I,I'RI
l(R1)
.377,lIRl
.+4

TST
SOB
S08

(R1)+
R2, LOOPbA
RO,LOOP6

,RESTORE ITERATION COUNT
,INITIALIZE KTI1-C REGISTERS
,R3 POINTS TO TABLE OF PAR ADDRESSt;S
I RO IS COUNTER OF SI::TS LEft TO TEST
,PUT ADDRESS OF 1ST PAR IN SET IN Rl
: R2 IS COUNTER OF PAR'S LEFT TO TEST IN SET
:SET UP PAR BEING TESTED
:CLEAR LOW BYTE OF PAR
,CHECK PAR
IBRANCH IF OK
,DATOB TO LOW BYrI:: OF PAR WHOSE
,ADDRESS IS IN Rl FAILED
ISET UP PAR TO TEST HIGH BYTE
:CLEAR HIGH flYTE
:CHECK PAR
I DATDB TO HIGH BYTE OF PAR WHOSE
,ADDRESS IS IN HI FAILED
,MOVE POINTER TO ADDRESS NEXT PAR
,TEST ALL PAR'S IN SET
:n. :H 1\1.oi. ; itEGi5iER 5Er~

,SHOil THAT BYTE ADDRESSING OF PDR'S WORKS FOR HIGH AND LOW BYTES
SCOPE
TEST7:

OCKTA
MACYll.624
OCKTAB.Pll

22-AllG-73

003044
003052
003056
003062
003066
003074
003076

012737
005037
012706
004767
026727
001401
104006

000007
1 77776
001400
013174
176740

003100
003104
003110
003114
003116
003122
003126
003130
003134
003136

004767
012703
012700
012301
012702
012711
105011
022711
001401
104006

013170
001754
000003

003140
003144
003150
003154
003156

012711
105061
022711
001401
104006

177777
000001
000017

003160
003162
003164

005721
077221
077025

003166
003170
003176
003202
003206
003212
003220
003222

104400
012737
005037
012706
004767
026727
001401
104006

003224
003232
003236
003242
003246
003252
003254
003260
003262
ij03264
003266
003272
003274

012767
005067
012704
012703
012700
0123'01
012702
010421
077202

14114

PAGE 15

177570

077400

000010
000112
005252
001762
000003

",USR
UPS
,KSTACK,SP
'1;7, SETUP
TESTCT,.7
.+4

DISPLAY TEST NUMBER
INITIALIZE PROCESSOR STATUS
INITIALIZE KERNEL STACK POINTER
INITIALIZE SRO,SR3
IS THIS TEST BUNG EXECUTED IN TH):;
CORRECT SEQUENCE?- BRANCH IF YI::S
TEST EXECUTED OUT OF SEQUENCE- TE:>TCT
CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

JSR
MOV
MOV
LOOP7 :
MOV
MOV
LOOP7A: MOV
CLRB
CMP
BEQ
HLT

%7,CLRALL
'PDRTAB,R3
t),RO
(R3)+,Rl
'20,R2
'-l,@Rt
(aRI
"7400,!!IRl
.+4

,INITIALIZE KT11-C REGISTERS
:R3 POINTS TO TABLE OF pDR ADDRESSI::S
,RO IS COUNTER OF SETS LEFT TO TEST
,PUT ADDRESS OF 1ST PDR IN SET INTU Rl
:R2 IS COUNTER OF PDR'S LEFT TO TE:>T IN SET
,SET UP PDR BEING TI::STED
,CLEAR LOW BYTE OF PDR
:CHECK PDR
,BRANCH IF OK
: DATOB TO LOW BYTI:: OF PDR WHOSE
:ADDRESS IS IN Rl FAILED
,SET UP PDR TO TEST HIGH BYTE
,CLEAR HIGH BYTE
:CHECK PDR

000007

000020
t 77777

000010
177776
001400
013050
176614

MOV
CLR
MOV
JSR
CMP
BI::Q
HLT

000010

013446

176130

012703
012700
012301
012702
020411
001401
104006

003322
003324
003326
003330
003334
00333&
003342
003346
003350

005721
077205
077011
005767
001006
005267
012704
000735
000000

(Rl )+
R2,LOOP7A
RO,LOOP7

14: 14

000020

000014
000006
002525

104400
012737
005037
012706
004767
026727
001401
104006

600011
177776
001400
012664
176430

003410
003414
003420
003424
003430
003432
003436
003440
003442
003444
003450
003452
003454
003460
003464
003466
003472
003474
003476

005067
012704
012703
012700
012301
012702
010421
077202
077006
105777
100375
000005
012703
012700
012301
012702
020411
001401
104006

000112
025012
001754
000003
000020

175752

001754
000003
000020

:DISPLAY TEST NUMBER
: INITIALIZE PROCESSOR STATUS
: INITIALIZE KERNEL STACK POINTER
: INITIALIZE SRO,SR3
:15 THIS TEST BEING EXECUTED IN THE
,CORRECT SEQUENCE?- BRANCH IF YES
,TEST EXECUTED OUT OF SEQUI::NCI::- TESTCT
:CONTAINS NUMBER OF PREVIOUS TEST pLUS ONE

"UD

..............
"" .........
nV' ..... uUf""lV

:DROP ITERATION COUNT
:CLEAR FLAG TO INDICATE FIRST PATTl::RN
;LOAD R4 WITH FIRST pATTERN
,R3 POINTS TO TABLE OF PAR ADDRESSl::S
,RO IS USED AS COUNTER OF SETS LEFT TO LOAD
: LOAD Rl WITH ADDRESS or FIRST PAR IN SET
,SETUP COUNTER TO LOAD PAR'S
:LOAD PAR WITH ,PATTERN
:LOAD ALL 16 PAR'S IN THIS SET

TSTB
BPL

@TCSR
.-4

:IvAIT FOR ANY TTY OUTPUT TO FINISH

;.1.1""1'''''",

"uu

u ...... u

,ISSUE INIT

PAGE 16

001762
000003

003352
003354
003362
003366
003372
003376
003404
003406

:DATOB TO HIGH BYTE OF PDR WHOSI::
,ADDRESS IS IN Rl FAILED
: MOVE POINTER TO ADDRESS NEXT PDR
:TEST ALL PDR'S IN SET
:TEST ALL 3 REGISTER SETS

1t0,ICOUNT
TST10F
'5252,R4
'PARTAB,R3
'3,RO
(R3)+,Rl
'20,R2
R4,(R1)+
R2,LOPI0A

RES~:T

22-AtlG-73

003276
003302
003306
003310
003314
003316
003320

TST
SOB
SOB

MOV
CLR
MOV
MOV
TST10:
MOV
LOOP10: MOV
MOV
LOP10A: MOV
SOB

ijiiuvo

MACYll.624
DCKTA
DCKTAB.Pll

l-l,@Rl
teRll
'17 ,I!IRI
.+4

: INlT SHOULD HAVE NO EFFECT ON PAR'S
TESTIO: SCOPE
110,@ISR
MOV
@IPS
CLR
,KSTACK,SP
MOV
JSR
%7,SETUP
CMP
TESTCT, flO
REQ
.+4
HLT

177570

000020

1 05777
100375
000005

MOV
CLRB
CMP
BEQ
HLT

177570

000011

MOV
MOV
LOP10B: MOV
MOV
LOPI OC: CMP
BEQ
HLT

'PARTAB,R3
I3,RO
(R3)+,Rl
120,R2

TST
SOB
SOB
TST
BNE
INC
MOV
BR
TSTlOF: 0

(Rt)+
R2, LOP 1 OC
RO,LOP10B
TST10F
TESTll
TST10F
J2525,R4
TSTI0

R4,@Ri
.+4

• R3 POINTS TO TII,BLE OF PAR ADDRESSES
:RO IS USt:D AS A COUNTER OF SETS Ll::FT TO CHt:CK
iLOAD Rl wITH ADDRESS OF 1ST PAR IN SET
:SETUP COUNTER TO CHECK PAR'S
;COMPAREPATTERN J.OADED TO PRESENT
:CONTENTS Of" PAr; - BRANCH IF NOT CHANGED
,PAR WHOSE ADDRESS IS IN Rl
,WAS CHANGED BY IN IT
,IT WAS LOADED WITH THE VALUE IN R4
:AND THEN INIT IvAS ISSUI::D
: MOVE POINTER TO ADDRESS NEXT PAR
,TEST ALL 16 PAR'S IN THIS SET
: TEST ALL 3 SETS
;CHECK FOR BOTH PATTERNS USED
,IF DONE, GO TO NEXT TEST
,IF NOT, SET FLAG
:LOAD OTHER PATTERN INTO R4
:REPEAT TEST WITH 2ND PATTERN

'INIT SHOULDN'T CLEAR OR SET ANY OF THE R/W BITS IN THE PDR'S
:A CHECKERBOARD PATTERN IS LOADED INTO ALL PDR'S, THEN INIT
: IS ISSUED AND THE PDR'S ARE CHECKED TO SEE IF THEY WERE ALTERRED
;THEN THE COMPLEMENT OF THE FIRST PATTERN IS LOADED AND AFTER INIT IS
: ISSUED THE PDR' S ARE CHECKED AGAIN
TEST 11: SCOPE
:DISPLAY TEST NUMBER
Ul,@ISR
MOV
,INITIALIZE PROCESSOR STATUS
I!ItPS
CLR
,INITIALIZE KERNEL STACK POINTER
IKSTACK,SP
MOV
'INITIALIZE SRO,SR3
'1;7 ,SETUP
JSR
;IS THIS TEST BEING EXECUTED IN THE
TESTCT, ' I I
CMP
'CORRECT SEQUENCE?- BRANCH IF YES
BEQ
.+4
: TEST EXECUTED OUT OF SEQUENCE- TESTCT
HLT
;CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE
CLR
MOV
MOV
TST11 :
MOV
LOOPl1 : MOV
MOV
LOPl1A: MOV
SOB
SOB
TSTB
BPL
RESET
MOV
MOV
LOPI1B: MOV
MOV
LOP11C: CMP
BEQ
HLT

TSTllF
'25012,R4
'PDRTAB,R3
'3,RO
(R3)+,Rl
120,R2
R4, (Rt)+
R2,LOPllA
RO,LOOPll
t1TCSR
.-4
,PDRTAB,R3
'3,RO
(R3)+,Rl
120,R2
R4,(aRI
.+4

,CLEAR FLAG TO INUICATE FIRST PATTERN
:LOAD PATTERN IN 1\4
;R3 POINTS TO TABLE OF PDR ADDRESSES
• RO I S COUNTER OF SETS LEFT TO LOAU
;LOAD Rl WITH ADDRESS OF FIRST PDR IN SET
: SETUP COUNTER TO LOAD PDR' S
:LOAD PDR WITH PATTI::RN
,LOAD ALL 16 IN THIS SET
: LOAD ALL 3 SETS OF PDR' S
,WAIT FOR ANY TTY OUTPUT TO FINISH
,ISSUE INIT
'R3 POINTS TO TABLE OF PDR ADDRESSl::S
;RO IS COUNTER OF SETS LEFT TO LOAU
,LOAD Rl WITH ADDRESS OF FIRST PDR IN SlT
:SETUP COUNTER TO CHECK PDR'S
;COMPARE PATTERN LOADED INTO PDR
'WITH CONTENTS OF PDR AFTER INIT
; PDR WHOSE ADDRESS IS IN Rl

DCKTA
MAC't11.624
OCKTAS.Pl1

00]500
003502
003504
003506
003512
003514
003520
003524
003526

22-AUG-73

005721
017205
017011
005767
001006
005267
012704
000735
000000

003566
003574
003600
003604
003606
003612
003620
003622

012767
005067
016703
005723
012743
022777
001401
104006

002000
175630
175630

005077

175604
001412
t 75576

016702
005202
112142
022777
001401
104006

000012
177776
001400
012506
176252

100000
171427

175011

003656
003662
003670
003674
003676

005077
016717
005717
001401
104006

175552
115532
175544

003700
003706

012717
005777

177777
175526

MACYll.624
OCKTA
DCKTAB.Pll

TST
SOB
SOB
TST
SNE
INC
MOV
SR
TST11F: 0

000006
052405

1 04400
012737
005037
012706
004767
026727
001401
104006

012701

PAGE 17

000014

003530
003532
003540
003544
003550
003554
003562
003564

003624
003630
003634
003640
003642
003644
003652
003654

14114

22-AUG-73

003712
003714

001401
104006

003716
003722
003726
003732
003734
003742
003744

005077
012704
016705
114425
022717
001401
104006

00374&
003752
003756
003762
003766
003770
003774
004002
004004

005077
010667
012706
016703
014623
016706
022777
001401
104006

175462
175450
001422
175446

004006
004012
004016
004022
004024
004026
004034
004036
004040

005077
012700
016705
005205
114045
022777
001402
104006
000407

175422
001413
175414

004042
00404&
004054
004056

005077
022777
001401
104006

175372
176770

004060
004064
004072
004076
004102
004106
004112
004120
004126
004130

005077
012737
010667
016706
012126
016706
042737
022777
001401
10400&

175350
040000
115330
175332
100000
175314
140000
013027

000012

013104

175620

175432
011766

176770

MOV
CLR
LOOP12: MOV
TST
MOV
CMP
BEQ
HLT

.2000, ICOUNT
TEMPl
SRO,R3
(R3)+
11 00000, - (R3)

CLR

i1SRO
#K20C, Rl
SROH,R2
R2
(Rl)+,-(R2)
U75011,ilSRl
.+4

MOV

MOV
INC
MOVB
CMP
BEQ
HLT

175566

175544

175532

1171427,~SRl

,RESTORE ITERATlON COUNT
,CLEAR FLAG TO INDICATE USING REGISTER SET 0
'SETUP R3 TO REFERENCE SRO
,SET NR ERROR BIT
,CHECK SR1

.+4

CLR
MOV
TST
BEQ
HLT

@SRO
KNR,ilSRO

MOV
TST

'-I,i1SRI
i1SRI

SEQ
HLT

.+4

CLR
MOV
MOV
MOVB
CMP
SEQ
HLT

!ISM
.K200+1,R4
SROH,R5
-(R4),(R5)+
.6774,i1SRI
.+4

CLR
MOV
MOV
MOV
MOV
MOV
CMP
BEQ
HLT

i1SRO
R6,TEMPX
.KNR+2,R6
SRO,R3
-(R6), (R3)+
TEMPX,R6
.11766,i1SRI
.+4

CLR
MOV
MOV
INC
MOVS
CMP
BEQ
HLT
BR

flSRO
'K200+l,RO
SROH,R5
R5
-(RO),-(RS)
tt76770,i1SRl
.+6

CLR
CMP
SEQ
HLT

(ilSRl
1176770,i1SRI
.+4

~SRI

,SR 1 INCORRECT - SHOULD HAVE TRAC KED
,CHANGE OF R7 SY +2 (LOW BYTE) AND
,R3 BY -2 (HIGH SYTE) AND "LOCKED UP"
:CONTAINING THAT VALUE
:CLEAR NR ERROR BIT TO RESUME TRACt(.ING
,SETUP Rl TO SET NR BIT
,SETUP R2 TO REt"ERENCE HIGH RYTEo:
,OF SRO
: SET NR ERROR BiT
,CHECK SRi
,SRI INCORRECT - SHOULD HAVE TRACKr:D
,CHANGES OF RI BY +1 (LOW BYTE) ANll
:R2 BY -1 (HIGH BYTE)
,CLEAR NR ERROR BIT TO RESlIME TRACKING
,SET NR ERROR SIT
;CHECK SRI

.+4
,SR 1 INCORRECT - SHOULD SHOW NO
: REGISTERS CHANGED
: TRY TO WRl TE SR 1 - SHOULD SE RI::AD-ONLY

PAGE 18

175512
001413
175504
006774

,WAS CHANGED B't INIT
,MOVE POINTER TO ADDRESS NEXT POR
,CHECK ALL 16 PDR'S IN THIS SET
,CHECK ALL 3 SETS Ot' PDR'S
,CHECK FOR BOTH PATTERNS USED
,IF DONE, GO TO NEXT TEST
I IF NOT, SET FLAG
,LOAD 2ND PATTERN INTO R4
,REPEAT TEST WITH SECOND PATTERN

,SHOW THAT SRl TRACKS WITH KT11-C OFF AND THAT IT IS READ-ONLY
,SHOW THAT IF NR ERROR IS SET IN SRO. SRl STOPS TRACKING
,NOTE THAT MOST OF THIS TEST IS ACTUALL't EXECUTED TWICE, t"IRST
:WITH THE REGISTER SET BIT (PS<l1» CLEAR, AND THEN WITH IT SET
TEST121 SCOPE
MOV
:DISPLAY TEST NUMBER
U2,~.SR
CLR
UPS
,INITIALIZE PROCESSOR STATUS
MOV
,INITIALIZE
KERNEL STACK POINTER
'KSTACK,SP
JSR
\7,SETUP
,INITIALIZE SRO,SR3
CMP
,IS THIS TEST BEING EXECUTED IN THE
TESTCT,412
SEQ
,CORRECT SEQUENCE?- BRAhCH IF 'tES
.+4
HLT
, TEST EXECUTED OUT OF SEQUENCE- TESTC1'
,CONTAINS NUMBER OF PREVIOUS TEST l>LUS ONE

177570

14114

(R1)+
R2,LOPllC
RO,LOP11S
TST11F
TEST12
TST11F
.52405.R4
TST11

175476

175436

175404

175364

177776

17777&
175312

CONTl21 CLR
MOV
MOV
MOV
MOV
MOV
BIC
CMP
SEQ
HLT

CONT12

~SRO

.40000,UPS
R6,TEMPX
SRO,R6
.100000, (R6) +
TEMPX,R6
t140000.~.PS

113027, ~SR 1
.+4

,SRI WAS ALTERRt.D BY WRITING IT
,WHILE NR ERROR WAS STILL SET
:CLEAR NR ERROR BIT TO RESUME TRACKING
ISETUP R4 TO SET NR BIT
: SETUP R5 TO REFEkENCE SRO (HIGH RnE)
:SET hR ERROR BIT
,CHECK SRI
:SRI 1 NCORRI::Cl' - SHOULD HAVE 'lRACKr:O
:CHANGE O~' k4 B~ -1 (LOw IHTE)
lAND R5 BY +1 (HIGH BYTE)
:CLEAR NR ERROR BIT TO RESUME TRACKlNG
,SAVE STACK POINTER
: SETUP R6 TO SET NR SIT
: SETUP loll TO REfERENCE SRO
;SET NR BIT
,RESTORE STACK POINTER
,CHECK SRI
,SRI INCORRECT - SHOULD HAVE TRACKI::D
,CHANGE OF R6 BY -2 (LOW BYTE)
,AND OF R3 BY +2 (HIGH BYTF.)
;CLEAR NR ERROR BIT TO RESUME TRACi\ING
: SETUP RO TO SET NR ERROR BIT
,SETUP R5 TO REfERENCE SRO (HIGH SHE)
,SET NR ERROR BIT
,CHECK SRI
,SRl INCORRECT - SHOULD HAVE
:TRACKED CHANGE OF RO SY -1
; (LOW BYTE) AND OF R5 SY -1 (HIGH
,BYTE)
,SHOW THAT SRI IS READ-ONLY
,CHECK SRl
:SRI NOT READ-ONLY - ALTERRED BY A CLEAR
:INSTRUCTION WHILE AN ERROR BIT (NH)
:WAS STILL SET IN SRO
,CLEAR NR ERROR BIT TO RESUME TRACKING
,SET MODE TO SUPERV I SOR
,SAVE SUPERVISOR STACK POINTER
,SET SUPERVISOR R6 TO REFERENCE SRu
,SET NR SIT
,RFSTORE SUPERVISOR STACK POINTER
I RETURN TO KERNEL
,CHECK SRl
;SRl INCORRECT WHILE TRACKING IN

,5ui='i:tcyi50i\ ioiuuL .. 5nuuL.u Snu"

004132

005077

175276

CLF!

!lSRO

,CHANGE Of 1<1 B'i +2 (LOW BYTE)
,AND CHANGE OF 1'6 BY +2 (HIGH BYTE)
,CLEAR NR ERROR BIT TO RESUME TRACKING

DCKTA
MACYll.624
DCKTAB.PII

22-AUG-73

004136
004144
004150
004154
004160
004164
004172
004200
004202

012737
010667
016706
012726
016706
042737
022717
001401
104006

140000
175256
175260
100000
175242
140000
013027

004204
004210
004214

005077
005767
100407

175224
175214

004216
004222
004230

005167
012737
000167

175206
004000
177 344

004234
004236
004244
004250
004254
004260
004266
004270

104400
012737
005037
012706
004767
026727
001401
104006

004272
004276
004302
004304

017701
022701
001401
104006

004306
004310
004316
004322
004326
004332
004340
004342

104400
012737
005037
012706
004767
026727
001401
104006

004344
004352

012767
012777

DCKTA
MACYll.624
DCKTAB.Pl1
004360
00436b
004370
004372
004400
004406
004410
004412
004420
004426
004430
004432
004440
004444
004446
004450
004454
004456
004460
004466
004472
004476
004500
004502
004510
004514
004522
004524

000013
177776
001400
012002
175546

PAGE 19

177776

177776
175240

t 77776

177570

000013

ADI3:

000014
177776
001400
011730
175474

000014

000010
000001

012326
175070

000001

175062

000002
000002

175050
175042

000004
000004

175030
175022

000007
t 74756

175010

174762

174756
174752

000007
174736
000007

004526
004530
004536
004542
004546
004552
004560
004562

104400
012737
005037
012706
004767
026727
001401
104006

004564

004767

011504

000015
177776
001400
011510
175254

CLR
TST
BMI

@SRO
TEMPI
TEST13

COM
MOV
JMP

TEMPI
14000,II'PS
LOOPI2

,SET MODE TO USER
,SAVE USER STACK POINTER
,SET USER R6 TO REFERENCE SRO
,SET NR ERROR BIT
:RESTORE USER STACK POINTER
,RETURN TO KERNICL
:CHECK SRI
,SRI INCORRECT wHILE TRACKING IN
,USER MODE-SHOULD SHOW CHANGE OF
:R7 BY +2 (LOW BYTE) AND CHANGE
,OF R6 BY +2 (HIGH BYTE)
:CLEAR NR BIT TO RESUME TRACKING
,CHECK FLAG TO SEE IF REGISTER SET 1 wAS TESTED
:BRANCH IF SET-BOTH REGISTER SETS
: ALREADY CHECKED
;OTHERWISE SET FLAG
;SET REGISTER SET BIT
; REPEAT TEST USI NG OTHER SET OF
,REGISTERS

MOV
eMp
BEQ
HI,T

@SR2,Rl
#AD13,Rl
.+4

:pICK UP SR2 - SHOULD CONTAIN ADDRESS
:OF THIS INSTRUCTION
:SR2 DID NOT CONTAIN
ADDRESS OF
: INSTRUCTION BEING EXECUTIW

CLEARS SR3, AND THAT BITS 0-2 CAN BE SET AND CLEARED
BYTE ADDRESSING OF SR3 WORKS
t14,@'SR
II#PS
.KSTACK,SP
%7,SETUP
TESTCT,tt4
.+4

:DISPLAY TEST NUMBER
:INITIALIZE PROCESSOR STATUS
,INITIALIZE KERNEL STACK PoINTER
:INITIALIZE SRO,SR3
,IS THIS TEST BEING EXECUTED IN THE
:CORRECT SEQUENCE?- BRANCH IF YES
: TEST EXECUTED OUT OF' SEQUENCE- TESTCl'
JCuNTAIi'i5 NUMBER Or PREVIOUS TE5T ~LU5 uNE

MOV
MOV

1l0,ICOUNT
U,@SR3

IDROP ICOUNT SINCE RESET IS USED
:ROTATE A 1 THRU THE R/w BITS OF SR3

CMP
BEQ
HLT
MOV
eMl'
BEQ
HLT
MOV
CMP
BEQ
HLT
MOV
TSTB
BPL
RESET
TST
BEQ
HLT
MOV
CLRS
TST
BEQ
HLT
MOV
CLRB
CMP
BEQ
HLT

U ,@SR3
• +4

PAGE 20

174774

000007

1140000dhPS
R6,TEMPX
SRO,R6
1100000, (R6)+
TEMPX,Rb
U40000,@.PS
U3027,@SRI
.+4

:SHOW THAT INIT
:ALSO SHOW THAT
TEST14: SCOPE
MOV
CLR
MOV
JSR
CMP
BEQ
HLT

177570

14:14

MOV
MOV
MOV
MOV
MOV
RIC
CMP
BEQ
HLT

:SR2 SHOULD CONTAIN ADDRESS Of' LAST FETCH
:WITH KTI1-C TURNED OFF'
TEST13: SCOPE
MOV
U3,(!I_SR
,D I SPLA Y TEST NUMBER
CLR
@#PS
; INITIALIZE PROCESSOR STATUS
MOV
#KSTACK,SP
:INITIALIZE KER~EL STACK POINTER
JSR
%7,SETUP
:INITIALIZE SRO,SR3
CMP
TESTCT, #13
: IS THIS TEST BEING EXECUTED IN THe;
BEQ
:CORRECT SEQUENCE?- BRANCH IF YES
.+4
HLT
: TEST EXECUTED OUT OF SEQUENCE- TESTCT
:CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

175146
004272

22-AUG-73

022777
001401
104006
012777
022777
001401
104006
012777
022777
001401
104006
012777
105777
100375
000005
005777
001401
104006
012777
105077
005777
001401
104006
012777
105077
022777
001401
104006

14: 14

174740
174726

177570

000015

:SR3 INCORRECT WHEN SET TO 1
'2,@SR3

#2d1SR3
.+4
: SR) INCORRECT wHEN SET TO 2
H,@SR3
#4, (!ISR3
.+4
#7 ,!!ISR3
!!lTCSR
.-4

:SR3 INCORRECT wHEN SET TO 4
: SET ALL R/W B ITS IN SR)
:WAIT FOR ANY TTY OUTPUT TO FINISH
:ISSUE INIT

@SR3
.+4
: SR3 NOT CLEARED BY INIT
n,@SR3
@SR3
IISR3
.+4

~CLEAR

LOW BYTE OF SR)

: SR3 INCORRECT AFTER A CLRB
17 ,@SR3
@SR3H
t7 .!!ISR3
.+4

(LOw)

:CLEAR HIGH BYTE OF' SR3

:SR3 INCORRECT AFTER A CLRB

(HIGH)

:SHOW THAT DESTINATION ONLY RELOCATION DOESN'T RELOCATE AN I NSTRUCT I ON
:FETCH (ONE CASE), AND THAT RESET CLEARS SRO<8>
lAND TURNS OFF DESTINATION ONLY RELOCATION
:IF THAT MUCH WORKS, YOU'LL GET THRU TO THE NEXT TEST
TEST 15: SCOPE
MOV
,DISPLAY TEST NUMBER
115, (iIISR
@liPS
,INITIALIZE PROCESSOR STATUS
CLR
MOV
,INITIALIZE KERNEL STACK POINTER
'KSTACK,SP
,INITIALIZE SRO,SR3
JSR
\7,SETUP
: IS THIS TEST BEING EXECUTED I N THE
CMP
TESTCT, #15
,CORRECT SEQUENCE?~ BRANCH IF YES
BEQ
.+4
: TEST EXECUTED OUT OF SEQUENCE- TESTCT
HLT
:CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE
JSR

%7,CLRALL

004570

012777

001006

175056

MOV

tlO06,@KIPDRO

004576
004604

012777
000005

000400

174630

MOV
RESET

#400, (!ISRO

004606
004614

032777
001401

000400

174620

BIT
BEQ

HOO,@SRO
• +4

:THIS TEST SHOULDN'T GO THRU ANY PAR/PDR pAIR'S
ISO MAKE THEM ALL GIVE NON-RESIDENT
:AND PAGE LENGTH ERRORS IF ACCESSED
: 3 BLOCKS of KERNEL PDRO MUST BE MAPPED
:TO ALLOW TRAPS AND ABORTS
:TURN ON DESTINATION ONLY RELOCATlUN
,INIT SHOULD CLEAR DESTlNATION ONLI'
BIT
:IF THE FETCH IS RELOCATED THIS WILL GIVE A
:PL ABORT
,IF KTI1-C STILL ON, THIS SHOULD CAUSE
: PL AND NR ERRORS

DCKTA
MACYl1.624
DCKTAB,Pl1

22-.WG-71

004616

000000

004620

005077

004624
004626

14:14

HALT

174610

CLR

004644
004650

104400
012737
005037
012706
004767
026727

004656

001401

004660

104006

004662

004767

004666
004674
004702

012777

000001

012777
012701

077406

175020
174752

004706

012777

004754
000400

174520

004714
004716
004720

021111
001001
000000

004722
004724

000005
012701

004730
004734
004742
004744

012702
012777
021211
001401

004746

000000

004750
004752
004754

000005
000401
132465

004756
004760
004766
004772
004776
005002
005010
005012

104400
012737

004634

004640

005037

012706
004767
026727
001401
104006

DCKTA
MACYll,624
DCKTAB,Pl1

PAGE 21

000016
177776
001400
011412
175156

tlSRO

,SHOll THAT DESTINATION ONLY RELOCATION DOESN'T RELOCATE THE SOURCE
,ADDRESS AND DOES RELOCATE THE DESTINATION
TEST 16 I SCOPE
MOV
U6, USR
,DISPLA~ TEST NUMBER
CLR
UPS
,INITIALIZE PROCESSOR STATUS
MOV
IKSTACK,SP
,INITIALIZE KERNEL STACK POINTER
",SETUP
JlNITIALIZE SRO,SR3
JSR
CMP
TESTCT,l1b
,IS THIS TEST BUNG EXECUTED IN THt:
BEQ
.+4
,CORRECT SEQUENCE?- BRANCH IF n:s
HLT
:TEST EXECUTED OUT UF SEQUENCE- TESTCT
,CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

177570

000016

011406

JSR
MOV
MOV
MOV
MOV
CMP
BNE
HALT
RESET
MOV

004654
004754
000400

,IF KTll-C IS OfF, BIT 8 OF SRO READS
,AS STILL SET
,IF KTI1-C IS O~, NU NR OR PL ABORt
,OCCURRED AND RESET FAILED TO TURN KTI1-C OH

MOV
MOV
CMP
BEQ

174472

,7,CLRUL
11,(lKIPARO
177406tilKIPDRO
.DATA16,Rl
1400, (lSRO
(lilt ,(lRt
• +4

.DATA16-100,Rl
.DATAI6,R2
HOO,@SRO
~R2,ilRl

.+4

HALT

RESET
BR
DAtAH,1 132465

000017
177776
001400
011260
175024

22-AUG-73

000017

005014
005020

004767
012777

011254
000001

174666

005026

012777

07740b

174b20

005034
005040
005046
005054
005060
005066
005070
005072
005074

012701
012777
012717
016702
012777
005012
021111
001401
000000

004754
007600
077406
174354
000400

005076
005104
005106
00511 0

032777
001402

000400

005112
005116

004767
012777

011156
000001

005124

012777

077406

005132

012701
012777

004754
007600
077406
174256
040000
000400

TEST17

,SHOll THAT A DATO OF 0 TO BIT 8, SRO THRU KERNEL PAGE 7 I-SPACE WILL
:CLEAR THE DESTINATION ONLY RELOCATION BIT AND TURN Of"f DESTINATION ONLY I'!l::LOCATION
TEST17: SCOPE
U7,(I,SR
MOV
,DISPLAY TEST NUMBER
(!IPS
!INITIALIZE PROCESSOR STATUS
CLR
iiKSTACK,SP
,INITIALIZE KER~EL STACI< POINTER
MOV
JSR
:INITIALIZE SRO,SIl3
'7, SETUP
CMP
:IS THIS TEST BEING EXECUTED IN THt:
TESTCT,117
BEQ
:CORRECT SEQUENCE?- BRANCH IF YES
.+4
HLT
,TEST EXECUTED OUT OF SEQUENCE- TESTCT
,CONTAINS NUMBER Of PREVIOUS TEST PLUS ONE

177570

14: 14

,INITIALLY CLEAR ALL I<T11-C REGISTJ::RS
,OFFSET KERNEL PAR/PDR PAIR 0 ONE ~LOCI<
,FROM RANK 0, A~D MAKE IT RW
,LOAD A BANK 0 ADDRESS INTO Rl
,TURN ON DESTINATION ONLY RELOCATIUN
,THIS TEST WILL fAIL IF BOTH ARE
,RELOCATED OR BOTH ARE NOT RELOCATED
,SOURCE AND DESTINATION BOTH ADDRESSED
,SAME LOCATION
,TURN OFF DESTINATION O~LY RELOCATLUN
,LOAD DESTINATION ADDRESS MINUS RELOCATION
,FACTOR INTO III
,LOAD SOURCE ADDRESS INTO R2
,TURN ON DESTINATION ONLY RELOCATIUN
:USE SAME INSTRUCTION AND ADDRESS
,MODES AS BEFORE-SHOULD RELOCATE Dt::STINATION
,TO ADDRESS SAME LOC AT lUN AS SOURCt:
:DESTINATION NOT RELOCATED OR INCOHIlECTLY
: RELOCATED OR SOURCE RELOCATED (lN
,DESTlNA!ION ONLY R!::LOC~"TIDN'
,TURN OFF RELOCATION

PAGE 22

174664
174616
174346

174330

104006
000005

JSR
MOV

,7,CLRALL
U.tlKIPARO

MOV

t7740b,~KIPDRO

MOV
MOV
MOV
MOV
MOV
CLR
CMP
SEQ
HALT

'DATA16,Rl
17600, ilKIPAR7
177406,tlKIPDR7
SRO,R2
HOO,(lSRO
liII-l2
liIR1,(lRI
,+4

BIT
BEQ
HLT
RESET

#400,@SRO
,+6

,INITIALLY CLt:AR ALL KT11-C REGISTt:RS
,MAP KERNEL PAGE 0 I-SPACE
,TO BANK 0 OFfSET RY 1 PAGE
,OffSET IS USED TO PROVE I<TI1-C IS
,TURNED OFF AfTER CLEARING RIT 8, SRO
,SETUP R 1 TO REFEI'!ENCE I<ERNEL PAGE 0
,MAP KERNEL PAGE 7 I-SPACE
,TO THE EXTERNAL BANK, RW,41<
: SETUP R2 TO ADDRESS SRO
,TUI'!N ON DESTINATlON ONLY RELOCATIUN
,CLEAR SRO THRU KERNEL PAGE 7
,SHOW THAT KTII-C IS Off
,I<T11-C STILL ON AFTER CLR SHOULD HAVE
,TURNED I T Off
,SHOW THAT ~IT 8, SRO IS NOW ZEI'!U
:DESTINATION ONLY Rt:LOCATION BIT IS STILL ON
,MAKE SURE THAT KTI1-C IS Off

005200

001401
000777

005202
005204

000005
005037

177776

,SHOW THAT A DATO Of 0 TO BIT 8, SRO THRU SUPERVISOR PAGE 7 I-SPACE
:WILL TURN OFF DESTINATION ONLY RELOCATION
,INITIALLY CLEAR ALL PAR/PDR PAIRS
%7,CLRALL
JSR
MOV
:MAP SUPERVISOR 0 I-SPACE
U,@SIPARO
:TO BANK 0 On"SET BY 1 PAGE, Ril
MOV
177406,(lSIPDRO
MOV
,SETUP Rl TO REf"ERENCt: SUPER V ISOR 0
'DATA16,Rl
MOV
t7600,(lSIPAR7
:MAP SUPERVISOR 1 I-SPACE
MOV
,TO THE EXTERNAL BANK, RW,4K
177406,@SIPDR7
MOV
,SETUP R2 TO ADDRESS SRO
SRO,R2
,SET MODE TO SUPERV 1 SOR
MOV
"OOOO,UPS
,TURN ON DESTINATION ONLY RELOCATlUN
MOV
.400,IISRO
,CLEAR SRO THRU SUPERVISOR PAGE 7
CLR
ilR2
CMP
,SHOW THAT I<T11-C IS OFF
IlRl,(lR1
BEQ
• +4
:RELOCATION
STILL ON AfTER CLR OF SilO
BR
,THUR SUPEIlVISOIi PAGE 1
RESET
:MAKE SURE THAT KTll-C IS OFf
(lIPS
CLR

005210
005214
005222
005230
005234
005242
005250
005254
005262

004767
012777
012777
012701
012777
012777
016702
012737
012777

011060
000001
077406
004754
007600
077406
174160
140000
000400

OUS~IU

uuSui .t

,SHOW THAT A DATO Of o TO BIT S, 5RO THRU USER PAGE 7 I-SPACE
,WILL TURN OFr DESTINATION ONLY RELOCATION
,INITIALLY CLEAR ALL PAR/POR PAIRS
JSR
" ,CLRALL
MOV
Ii, (lUIPARO
,MAP USER 0 I-SPACE TO
177406,@UIPORO
:BANK 0 OFFSET BY 1 PAGE, RW
MOV
,SETUP R 1 TO REFEIiENCE USt:R 0
MOV
,DATA16,Rl
:MAP USt:R 7 I-SPACE TO THE
17600,(lUIPAR7
MOV
,EXTERNAL BANK, RW,4K
MOV
t77406,tIUIPDR7
,SETUP R2 TO ADDRESS SRO
MOV
SRO,R2
,SET MODE TO USER
MOV
1140000,IIIPS
MOV
1-400,I!ISRO
,!?~~_ O~_~E~~~~A~~~~ ONLY Rt:LOCATIUN

005272
005274
005276

021111
001401
000777

005136
005144
005152
005156
005164
005172
005174
005176

012777
016702
012737
012777
005012

174470
174422
174466
174420
177776
174242

021111

174272
174224
174270
174222
177776
174144

CLR

CMF
BEQ
BI'!

Pi<~
~Rl, IIRl

;\..",c"KI\

"'''V

... n~u

u..,~"

rl'\Uw

,SHOW THAT I<T11-C IS OFF

.+4
:RELOCATION STILL ON

MACYl1.624
DCKTA
DCKTAB.Pl1
005300
005302

22-AUG-73

000005
005037

14:14

PAGJ:: 23

RESET
CLR

177776

,MAKE SURE THAT KT11-C IS OFF
@.PS

SHOW ThAT ALL BLOCK BOUNDARY REFERENCES REFERENCE THE CORRECT
I-SPACE PAR AND RELOCATE CORRECTLY WITHOUT D-SPACE ENABLJ::D
USE DESTINATION ONLY RELOCATION
MAP ALL D-SPACE PAGES NON-RESIDENT
MAP ALL I-SPACE PAGES RESIDENT READ WRITE
RO

00530&
005310
005316
005322
005326

104400

012737
005037
012706
004767

000020
17777&
001400

177570

010730
000020

Rl
R2
R3
R4
R5
EST20: SCOPE
MOV
CLR
MOV
JSR
CMP
BEQ
HLT

- POINTS TO THE ADDRESS Of' THE CURRENT I-SPACE PAR
IN THE ADDRESS TABLE
- CONTA 1 NS V I RTUAL ADDRJ::SS BEING USED TO REfERENCE START 01" BLOCK
_ CONTAINS VIRTUAL ADDRESS BEING USED TO REFERENCJ:: END OF !lLOCK
- POINTS TO EXPECTED CONTENTS OF START OF BLOCK
- POINTS TO EXPECTED CONTENTS OF END OF BLOCK
- USED TO REFERENCE SRO TO TURN OFF DESTINATION ONLY RELOCATION
.20,iI.SR
@'PS
,KSTACK,SP
%7,SETUP
TESTCT,#20
.+4

:DISPLAY TEST NUMBER
: INITIALIZE PROCESSOR STATUS
: INITIALIZE KJ::RNEL STACK POINTER
:INITIALIZE SRO,SR3
:IS THIS TEST BEING EXECUTED IN TH~
:CORRECT SEQUENCE?- BRANCH IF YES
:TEST EXECUTED OUT OF SEQUENCE- TESTCT
:CONTAINS NUMBER Of' PREVIOUS TEST pLUS ONE

JSR
JSR

%7,CLRALL
%7,RWISP

: INITIALLY CLEAR ALL KTl1-C REGISTERS
: MAKE ALL I SPACE PAR/PDRPA IR' S RW,
:BANK 0,4K
: SAVE CONTENTS OF LOCATIONS TO BE USED
,AS START AND E~D OF PHYSICAL BLOCK
,SET UP LOCATIONS TO BE REFERENCED

005332

026727

005340
005342

001401
104006

005344
005350

004767
004767

010724
011012

005354
005362
005370
005376
005404
005410

013767
013767
012737

17442&
174422
017700
017776

012703
012704

017700
017776
123456
134567
001414
001416

MOV
MOV
MOV
MOV
MOV
MOV

@#17700,SAVEA
(a#17776,SAVEB
U23456,ilU7700
H34567,@#17776
#K123,R3
1K134,R4

005414
005422
005430
005434
005442
005446
005452

012767
012737
012706
012737
012706
005037
012767

000100
040000
001000
140000
000400
177776
001770

011256
177776

MOV
MOV
MOV
MOV
MOV
CLR
MOV

#100,ICOUNT
HOOOO,@#PS
'SSTACK,SP
#140000,@#PS
'USTACK,SP
(alPS
flSTATAB, STAPNT

005460
005464

017700
062700

174320
000040

012737

174474

177776

174324

:LOAD R3 AND R4 WITH ADDRESSES OF
:LOCATIONS CONTAINING EXPECTED CON'rENTS
,OF START AND END OF BLOCK
:THIS ALLOWS USING THE SAME
:INSTRUCTIONS AS HAVE ALREADY
: BEEN SHOWN TO WORK CORRECTLY IN
,DESTINATION ONLY RELOCATION
:CHANGE ITERATION COUNT
,CHANGE TO SUPERVISOR
:SET UP SUPERVISOR STACK POINTER
,CHANGE TO USER
:SET UP USER STACK pOINTJ::R
,RETURN TO KERNEL
:SET UP TO REFERENCJ:: MODE TABLE
,THIS TABLE CONTAINS f'IRST ADDRESS
: OF TABLE OF ADDRESSES OF PAR' SAND
:PDR'S FOR EACH MODE, AND THE
&111\' liE:" flit" ..nonf"I;"c:c:tlD
.......... - C:TaTtt~
........ -- -finD
-.- THE
; 1'"' ..... "' ..........
:DESIRED MODE
,PICK UP ADDRESS OF START OF
: ADDRESS TABLE FOH NEW MODE

,~-

DCKTA
MACY11.624
DCKTAB.Pl1

22-AUG-73

STAT20: MOV
ADD

14: 14

@STAPNT,RO
#40,RO

PAGI:: 24

005470

062767

000002

174306

ADD

.2,STAPNT

005476
005504
005512
005520
005526
005532
005534
005540
005546

017737
062767
012767
012770
016705
005001
012702
012767
012770

174302
000002
000010
007600
173702

177776
174272
174266
00001&

000076
000200
000177

174266
000000

MOV
ADD
MOV
MOV
MOV
CLR
MOV
MOV
MOV

!;lSTAPNT,@#PS
n,STAPNT
#8.,PAGES
n600,@16(RO)
SRO, R5
Rl
176,1'2
t128 .. BLOCKS
1177,@(RO)

005554

022767

000001

174224

005562
005564
005572
005576
005604
005606
005610

001005
012770
042705
012777
021311
001401
000000

005612
005614
005&16

021412
001401
000000

005620
005622
005626
005632
005636
005642
005644
005650
005654
005656
005660
005662
005670
005612
005676
005702
005710

005015
005370
062701
062702
005367
001355
005070
005367
001402
005720
000727
026727
003613
005037
005077
016727
016727

005716
005720
005726
005732
005736
005742

104400
012737
005037
012706
004767
026727

007600
020000
000400

PAG20 :

17777&
173630

BLK20:

000000
000100
000100
174172
000000
174132

174116

002002

177776
173532
174102
174076

017700
017776

000021
177776
001400
010320
174064

177570

000021

.. _

END20:

CMP

fll,PAGES

BNE
MOV
BIC
MOV
CMP
BEQ
HALT

BLK20
#7600, @-2(RO)
120000, R5
#400,@SRO
IiIR3, ilRI
.+4

CMP
BEQ
HALT

@R4,@R2
.+4

CLR
DEC
ADD
ADD
DEC
BNE
CLR
DEC
BEQ
TST
BR
CMP
BLE
CLR
CLR
MOV
MOV

@R5
iI(RO)
1100,1'1
UOO,R2
BLOCKS
RLK20
@(RO)
PAGES
END20
(RO)+
PAG20
STAPNT, ,STAEND
STAT20
@.PS
@SRO
SAVEA,U7700
SAVEB,'17776

MOVE POINTER TO ADDRESS VALUE TO
LOAD IN PROCESSOR STATUS
SET PROCESSOR STATUS TO NEW MODE
MOVE POINTJ::R TO ADDRESS VALUES FOR NEXT MODE
SET UP COUNTER OF PAGES LEfT TO TEST
SET UP RELOCATED REFERI':NCE TO SRO,
USED TO TURN DI':STINATION ONLY RELOCATION m-F
INITIALIZE Rl TO CONTAIN VA OF START OF PAGE
INITIALIZE R2 TO VA OF J::ND OF PAGE
SET UP BLOCK COUNT
SET UP I-SPACE PAR TO RELOCATE VA
TO LAST BLOCK IN BANK 0
IS THIS PAGE 7? (WAS USED
FOR REFERENCE TO SRO)
IF NOT, BRANCH
YES, SET UP PAGE 6 FOR REFERENCES TO SI<O
CHANGE R5 TO POINT TO SRO THRU PAGE b
TURN ON DESTINATION ONLY RELOCATION
CK BOTTOM PAGE BOUNDARY
:DESTINATION ONLY RELOCATION ~'AILED
IVA CONTAINED IN R1 FAILJ::D TO RELOCATE
:TO TOP BLOCK Of' BANK ZERO
:CK UPPER PAGE BOUNDARY
:DESTINATION ONLY RELOCATION FAILED
IVA CONTAINED IN 1'2 FAILED TO RELOCATE
: TO TOP BLOCK OF !lANK ZERO
:TURN OFF KTI1-C
,MAP I-SPACE PAR 1 BLOCK LOWER
:SET UP R1 AND R2 TO REFERENCE
:NEXT VIRTUAL BLOCK
,DECREMENT COUNT OF BLOCKS LEFT
I BRANCH IF NOT DONE WI TH THIS PAGE
,IF DONE CLEAR PAR
: DECREMENT COUNT OF PAGES LEFT
,BRANCH IF ALL PAGES IN THIS MODE OONE
,MOVE ADDRESS TABLE POINTER TO ADDRESS hEXT PAR
,TEST REFERENCES TO NEXT PAGE
,CHECK FOR ALL MODES TESTED
:IF NOT, BRANCH
IIF DONE, RJ::INTIALIZE

:SHOW THAT THE INSTRUCTIONS USED IN THE NEXT TEST RELOCATE CORRECTLY IN
,DESTINATION ONLY RELOCATION
TEST21: SCOPE
MOV
t21,(alSR
:DISPLAY TEST NUMBER
CLR
: INITIALIZE PROCESSOR STATUS
!!l'PS
:INITIALIZE KERNEL STACK POINTER
MOV
'KSTACK,SP
JSP
%7 ,SETUP
:INITIALIZE SRO,SRl
,IS THIS TEST BEING EXECUTED IN THE
CMP
TESTCT, .21

DCI<TA
MAC't11.624
DCI<TAB,Pll

005750
005752

005754
005762
005766
005774
006002
006010
006016
006022
006026

22-AUC-73

001401
104006

012767

002000
010306
000001
077406
007600
077406
173412
000054
000052
000050
000140
177177
177777
000400
176543

01071b

006066
001401
104006

BEQ
HLT

012777
012777
012777
012777
016701
016746
016746

006032

016746
005067
012767

006076

BEQ
HLT

MOV
JSR
MOV
MOV
HOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
HOV
MOV
CMP
AD21A:,-4

004767

0{}6036
006042
006050
006056
006064

006072
006074

PAGE 25

14114

012761
012777
022737

122737

165432

173720
173652

g~~~!

000134
000130
173350
005766

006000

006100
006104
006106

001401

006110
006116

012737

006122
006126
006130

105037
005011
022767

006136

001401

006140

104006

006142
006146

005;6;

006150
006152
006160
006162
006164
006170

006174
006200
006202
006204

i0400b

005077

006212
006214
006222
006226
006232
006236
006244
006246

006106

077711

022767

177400

iST

CMP
BEQ
HLT

000026

001401
104006
012667
012667
012667
000404
000000
000000

MOV
MOV
MOV
BR
DST21A: 0
DST21B: 0

177716
171710
117702

22-AUG-73

14:14

Oi2706
004767
026727
001401
104006

.2000,ICOUNT
\7,CLRALL
'1 ,~KIPARO
t77406,iIKIPDRO

,RESTORE ITERATION COUNT
:CLEAR ALL KT l1-C REGISTERS
: OFF'SET KERNEL I -SPACE PAGE 0
,BY 1 BLOCK F'RO,", BANK 0
: MAP KERNEL I -SPACE PAGE 7 TO THE
: EXTERNAL BANK, RW, 4K
,SETUP Rl TO REfERENCE SRO
,SAVE CONTENTS UF LOCATIONS WHICH
,WOULD BE DESTROYED IF DESTINATION
,DOESN'T RELOCATf.
,INITIALIZE LOCATIONS TO BE
p'JRITTEN INTO

17600,~KIPAR7
t77406,~KIPDR7

SRO,Rl
DST21 A-I 00, - (SP)
DS12I B-1 00, - (SP)
DST21C-l 00, - (SP)
DST21A
'-I,DST211l
'-1,DST21C
W400,~SRO

U 76543, UAD21A-I00

:TURN ON DESTINATION UNLY RELOCATIUN
,COMPARE TH~: CONTENTS OF AD21 A
,WITH ITSELF, RELUCATED THIW KERNEL
,I -SPACE 0

,+4

'165432,~.AD21B-I00

.+4

.17711, ~'DST21A-l 00
~AD21C

~'DST21C-l 00
~Rl

177711,DST21A

:DESTINATION ONLY RELOCATION FAILEll
,TO RELOCATE ONLY THE LAST CALCUL1H'ION
,OF THE CMP INSTRUCTION
,COMPARE THE CONTENTS OF AD211l (LOW B HE)
,WITH ITSELf", RELOCATED THRU KERNEL
,I -SPACE 0
,DESTINATION ONLY RELOCATION
,FAILED TO RELOCATE ONLY THE f"INAL ADDRESS
,CALCULATION OF THE CHPB INSTRUCTIUN
,EXECUTE REMAINING INSTRUCTIONS - CHECK
,AF'TER I<Tl1-C IS TURNED OFF
,SHOULD CLEAR DST21B
,SHOULD CLEAR LOW BYTE OF DST21C
:TURN OFF KTI1-C
:CHECK LOCATION ADDRESSED BY MOV

,,+4
DST2iB
.+4
U77400,DST21C
.+4
(SP) +, DST21C-l 00
(SP) +, DST21B-l 00
(SP)+, DST21A-l 00
TEST22

:MOV INSTRUCTrol'< t"AILED TO RELOCATI::
,ONLY THE FINAL ADDRESS CALCULATION
,CHECK LOCATION AOORESSED BY CLi<
,CLR INSTRUCTION fAILED TO RELOCATI::
:CORRECTLY IN DESTINATION ONL¥ RELUCATION
,CHECK LOCATION ADDRESSED RY CLRB
:CLRB INSTRUCTION FAILED TU RELOCATE
,CORRECTLY IN DESTINATION ONLY RELUCATION
:RESTORE LOCATIONS SAVED IN CASE Of" ERROR

DST21C: 0
AD21C:
DST21B-I00

104400
012737

005037

,CORRECT SEQUENCE?- BRANCH IF' YES
,TEST EXECUTED OUT OF SEQUENCE- TESTCr
,CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

PAGE 26

000000
006104

177570

000022
177776
001400
010024
173570

000022

010020
077406
077406
077406
007600

173372
173366
173314
173426

006270

012777

006276

012777

006304
006312

012777
012737

006320

012777

006326

006354
006356
006360

022737
001012
005037
005071
032731
001401
104006
000405

006362

005077

006366

104006

006370

005037

177776

006374
006400
006406
006414
006422
006424

005077
012737
012777
022737
001011
005037

113316
125252
000400
125252

006336
006342

000044

REQ
HLT

004767
012717
012777

006346

CLRB
CLR
CMP
BEQ
HLT

000036

006250
006254
006262

006334

HOV
CLR

006102

001401
104006

MACYl1.624
DCKTA
DCKTAB,P11
006206
006210

077711
000066

CMPB
AD21B:,-4
BEQ
HLT

• +4

007777
030000
000400
030000

173404
177176

173106
020076

020076
173066

117140

111776

173046

037712

017712
173020
0.37712

:TEST OF RELOCA1'ION ADDERS - CHECK CORRECT PROPAGATION OF CARRY, AND CORRI::CT
,OUTPUT F'OR EACH POSSIBLE COMIlINATJON FOR EACH BIT POSITION
,USE DESTINATION ONLY RELOCATIOl'<, KERNEL I-SPACE
,TEST BY LOADING ONE OF THE VALUES TO BE INPUT TO THE ADDERS INTO KERNEL I-SPACE PAR I
ITHE SECOND VALUE INPUT TO THE ADDERS IS THE LOliER 13 BITS OF THE
,VIRTUAL ADDRESS (THE UPPER 3 BITS SELECT PAGE 1)
,CHECK THE RESULTING PHYSICAL ADDRESS BY READING THE COl'<TENTS m" THE LOCATiON,
,AND IF THIS IS CORRECT, BY WRITING INTO THE LOCATION
,NOTE THAT THIS TEST INCLUDES CHECKS OF ADDRESS WRAP AROUND
TEST22: SCOPE
:DISPLAY TEST NUMBER
MOV
.22,USR
: INITIALIZE PROCESSOR STATUS
CLR
UPS
,INITIALIZE KERNEL STACK POINTER
MOV
.KSTACK,SP
,INITIALIZE
SRO,SR3
%1,SETUP
JSR
: IS THIS TEST BE ING EXECUTED 1 N THI::
CMP
TESTCT,.22
:CORRECT
SEQUENCE?BRANCH IF YES
BEQ
.+4
: TEST EXECUTED OUT OF SEQUENCE- TESTCT
HLT
:CONTAINS NUMBER OF' PREVIOUS TEST PLUS ONE
JSR
MOV
MOV
MOV
MOV

%1,CLRALL
.,1406, ~I<IPDRO
'77406,~KlPDRl

t17406,IiIKIPDR7
17600,IiIKIPAR7

:CLEAR ALL KT11-C REGISTERS
,MAP KERNEL 0 TO BANK 0, 4K, RW
:MAKE KERNEL 1 RW, 4K
:MAP KERNEL 7 R\¥, 4K, t:XTERNAL IlANK

:CHECK VIRTUAL ADDRESS OF 0 ADDED TO pAR Of -1 (FOR BIT P.DSITIONS
,RELEVANT TO THE ADDERS ONLY,
VA 20016, pAR 7717, RESULTING PA 171776)
MOV
'7717,~KIPARl
,SET PAR TO -1
MOV
noooo,uPS
,SET UP LOCATION TO BE REf"ERENCED
MOV
t400,~SRO
:TURN ON DESTINATION ONLY PAGING
ADR22A: CMP
BOOOO,U20076
,IS PA 171776 BEING REFERt:NCED?
BNE
ERR22A
:BRANCH ON FAILURE
ADnA:
CLR
U20076
,CLEAR PA 11177b THRU KERNEL PAGE
CLR
~SRO
,TURN OFF KT ll-C
BIT
U77740,l1ItPS
,CHECK TO SEE IF CORRECT LOCATION
BEQ
• +4
: WAS REFERENCED
HLT
:RELOCATION FAILED IN THE CLil& AT 01;1221.
BR
CNT22B
:GO TO NEXT CHECK
ERR22A I CLR
~SRO
: TURN OFF KTll-C
HLT
,RELOCATION FAILED IN THE COMPARE
:AT LOCATION ADR22A
CLR
UPS
IREINITIALIZE PROCESSOR STATUS
:CHECK VIRTUAL ADDRESS OF -1 ADDED TO PAR OF 0 (VALUES FOR BIT
,POSITIONS RELEVANT TO THE ADDERS ONLY, VA 37712, PAR 0, PA 17712)
CNT22BI CLR
I1IKIPARI
,SET PAR TO 0
MOV
1125252,UDESTAD
:LOAD PHYSICAL LOCATION TO BE REF'EHENCED
MOV
HOO,1!'5HO
,fUKN UN D<:5In".TluN Oi,L, ;:;KGii,,,
ADR22B: CIoiP
t125252,i.i;37ii2
IRELOCATE THRU KERNEL PAGE 1
BNE
ERR22B
,BRANCH ON f"AILURE
AD22B:
CLR
i1131712
,CLEAR THRU KERNEL PAGE 1

OCKTA
MACY11.624
DCKl'AB.Pll
006430
006434
006440
006442
006444
006446
006452

22-AUG-73

005077
005737
001401
104006
000403
005077
104006

006454
006462

012777

006470

012777
022737

006476
006504
006506
006514
006520
006526
006530
006532
006534
006540
006542

012737

14: 14

PAGE 27

173000
017712

CLR
TST
REQ
HLT
BR
ERR22B: CLR
HLT

172762

007777
034343

173234
000000

000400

034343

172736
020100

005077
022737
001401
104006
000406
005077
104006
012737

000002
172714
000002

000000

020100

172674
000002

000000

006550
006556

012777
012737

007601
043434

173140
000000

006564
006572

012777
022737

000400
043434

172642
037700

006600
006602
006610
006614
006622
006624
006626
006630
006634

001013
012737
005077
022737
001401
104006
000406
005077
104006

000002
172620
000002

037700

00f>636

012737

:CHECK VIRTUAL ADDRESS OF -I (BITS 6-12) ADDED TO PAR OF 1
: (PLUS HIGH BITS SET, BUT THEY DON'T ALTER CARRY CONDITION TESTED r'OR)
:RESULTING PHYSICAL ADDRESS SHOULD BE ZERO
n601,@KIPARI
:SET UP PAR TO 1, WITH HIGH BITS St:T
CNT22D: MOV
MOV
143434,[iI#0
:SET UP A VALUE IN LOCATION TO
: BE REFERENCED (0)
MOV
1400,@SRO
:TURN ON DESTINATION ONLY PAGING
ADR22D: CMP
143434,@#37700
:ALL HIGH BITS OF VA ARE 1, ADDED 1'0
:A ONE IN LOWEST BIT OF PAR TO PROPAGATE
:CARRY - RESULTING PHYSICAL ADDRESS 0
BNE
ERR22D
,BRANCH ON FAILURE
MOV
n,@B7700
I WRI TE SAME LOCATION
AD22D:
@SRO
CLR
: TURN OFF KT ll-C
CMP
#2,@ilO
,CHECI< LOCATION WHICH SHOULD HAVE
BEQ
: BEEN REFERENCED
• +4
HLT
:RELOCATION FAILED IN MOV AT AD22D
BR
CNT22E
:GO TO NEXT CHECK
:TURN OFF KTll-C
ERR22D: eLR
!lSRO
:RELOCATION FAILED IN THE COMPARE
HLT
:AT LOCATION ADR22D
:RESTORE LOCATION REFERENCED
MOV
#2, [iI'O

000000

172600

000002

CNT22C
[ilSRO

:TURN OFF Kl'l1-C
:CHECK TO SEE IF CORRECT LOCATIUN
,WAS CLEARED
:RELOCATION FAILED IN CLR AT AD22B
: GO TO NEXT CHECK
,TURN OFF KT ll-C
:RELOCATION FAILED IN THE COMPARE
:AT LOCATION ADR22B

:CHECK VIRTUAL ADDRESS OF 1 (BIT 6) ADDED TO PAR OF -I
: RESULTING pHYSICAL ADDRESS SHOULD BE ZERO
:NOTE THAT THIS IS A CHECK OF ADDRESS WRAP ARUUND
#7777, (ilK IpAR 1
CNT22C: MOV
I SET UP PAR TO -I
MOV
04343.rcUO
:SET UP A VALUE IN LOCATION TO
: BE REFERENCED (0)
MOV
1400, [ilSRO
:TURN ON DESTINATION ONLY PAGING
ADR22C: CMP
: EFFECTl VELY ADDS 1 TO PAR ADDRESS
#34343,[iI'20100
:TO GET PHYSICAL ADDRESS OF 0
RNE
:BRANCH ON ~"AILURE
F:RR22C
MOV
AD22C:
:WRITE SAME LOCATION
'2,@#20100
@SRO
CLR
: TURN OFF KT l1-C
CMP
:CHECK LOCATION WHICH SHOULD HAVE
.2,[iI'0
Bt:Q
: BEEN REFERENCED
.+4
HLT
:RELOCATION FAILED IN MOV AT AD22C
BR
:GO TO NEXT CHECK
CNT22D
@SRO
ERR22C: CLR
:TURN OFF KTI1-C
HLT
:RELOCATION FAILED IN THE COMPARE
MOV
n,@.o
:AT LOCATION ADR22C

001013

012737

[ilSRO
[ilil7712
.+4

000000

:CHECK VIRTUAL ADDRESS -1 (BITS 6 - 12) ADDED TO PAH OF -1
:SHOULD GIVE RESULTING pA 17600
;NOTE THAT THIS IS A CASE OF ADDRESS WRAP AROUND

DCKTA
MACY11.624
DCKTAB.Pll

22-AUG-73

14: 14

PAGE 28

006644
006652

012777
013746

007777
017600

173044

CNT22E: '10V
MOV

t7777,I1IKIPARI
I1IU7600,-(SP)

006656
006664
006672

012737

076767
000400
076767

017600
! 72542
037700

MOV
MOV
ADR22E: CMP

#76767, [illt 7600
HOO, [ilSRO
#76767,@#37700

006700
006702
006706
006712
006716
006720
006722
006724
006730

001011
005037
005077
005737
001401
104006
000403
005077
104006

BNE
CLR
CLR
TST
BEQ
HLT
BR
ERR22E: CLR
HLT

ERR22E
@#37700
@SRO
@#17600
.+4

006732

012637

END22E: MOV

(SP)t,@#17600

012777
022737

006736
006740
006746
006752
006756
006762
006770
006772

104400
012737
005037
012706
004767
026727
001401
104006

006774
007002
007006
007014
007022
007030
007036
007044
007050
007054
007056
007060
007062
007064
007066
007070

012767
004767
012777
012777
012777
012777
012767
162706
005277
000000
000000
000000
000000
000000
000000
032777

007076
007100

001401
104006

AD22E:

037700
172522
017600

172504

017600

000023
177776
001400
007300
173044

000010
007266
000001
077406
007600
077406
052525
000100
172360

177570

000023

:SHOW THAT SETTING SRO<O> TURNS ON f'ULL
;SHOW THAT ALL ADDRESS CALCULATIONS ARE
; SHOW THAT INIT CLEARS SRO<O> AND TURNS
TEST23 : SCOPE
t23,@#SR
MOV
@IPS
CLR
MOV
IKSTACK.SP
%7,SETUP
JSR
CMP
TESTCT,t23
BEQ
.+4
HLT

007676
172700
172632
172702
172634
010646

ADD23:

000001

17 2336

END22E
!lSRO

:SET UP PAR TO -I
:SAVE CONTENTS OF LOCATION TO BE
; REFERENCED
:LOAD LOCATION TO BE HEFERENCED
!TURN ON DESTINATION ONLY PAGING
:READ LOCATION (VA=-l (BITS 6 - 12) ,PAR=-l)
,SHOULD GIVE PA 17600 (THRU KERNEL
:PAGE 1)
:BRANCH ON FAILURE
:WRITE SAME LOCATION
; TURN OFF KT ll-C
:CHECK TO SEE IF' CORRECT LOCATION
:WAS CLEARED (HIGH BYTE)
:RELOCATION FAILED IN THE CLR AT AD22E
,TURN OFF KTI1-C
:RELOCATION FAILED IN THE COMPARE AT
:LOCATION ADR22E
:RESTORE LOCATION REFERENCED
RELOCATION
RELOCATED
OFF RELOCATION
:DISPLAY TEST NUMBER
:INITIALIZE PROCESSOR STATUS
: INITIALIZE KERNEL STACK POINTER
;INITIALIZE SRO,SR3
: IS THIS TEST BEING EXECUTED IN THE
:CORRECT SEQUENCE?- RRANCH IF YES
: TEST EXECUTED OUT OF SEQUENCE- TESTC1'
:CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

MOV
JSR
MOV
MOV
MOV
MOV
MOV
SUB
INC
HALT
HALT
HALT
HALT
HALT
HALT
BIT

110,ICOUNT
\7,CLRALL
11,@KIPARO
.77 406,@KIPORO
17600,!lKIPAR7
07406,@KIPDR7
'52525,DESTAD
1100,SP
[ilSRO

:DROP ITERATION COUNT
;INITIALLY CLEAR ALL KTl1-C REGISTERS
:MAP KERNEL I-SPACE PAGE 0 TO
,BANK 0 OFFSET BY 1 BLOCK
: MAP KERNEL I -SPACE PAGE 7 TO
,THE EXTERNAL BANK
TO BE REfEREIKED
:INITIALIZE LOCATION
:ALTER STACK POINTER DUE TO RANK 0 OFf'SET
:TURN ON RELOCATION
:WITH RELOCATION ON, SHOULD FETCH
:FROM 1 BLOCK ABOVE THIS
: (ADD23A)

11, [ilSRO

BEQ
HLT

.+4

WHEN KTll-C IS TURNED OFF, NEXT
fETCH SHOULD BE FROM HERE CHECK BIT 0, SRO
KTll-C IS NOT RELOCATING THE FETCH BUT
SRO<O> STILL SET
AfTER AN IN IT

DCKTA
MACYl1.624
DCKTAB,Pll
007102
007106

22-AUG-73

14114

PAGE 29

007154

005077
000432
007154
022737

007162
007164

001401
000000

BEQ
HALT

007166
007170
007172

000005
000000
000777

RESET
HALT
BR

007174
007176
007204
007210
007214
007220
007226
007230

104400
012737
005037
012706
004767
026727
001401
104006

007232
007240
007244
007250
007256
007264
007272
007300
007306
007310
007312
007314
007316
007320
007330

012767
162706
004767
012777
012777
012777
012777
012777
000000
000000
000000
000240
000240
032777
001401
104006

007332

000433

007406

007406
042777

007414
007416
007420

000000
000005
000777

0073~6

172326

052525

000024
177776
001400
007042
172606

002000
000100
007024
000001
077406
007600
077406
000001

017612

177570

000024

CLR
tlSRO
BR
TEST24
.=ADD2l+100
ADD23A: CMP
'52525, lItDESTAD-l 00

,SHOW THAT A OATO OF o TO SRO<O> WILL CLEAR SRO<O> AND
,TURN OFF RELOCATION
TEST241 SCOPE
MOV
.24, (IISR
'DISPLA~ TEST NUMBER
CLR
tllPS
,INITIALIZE PROCESSOR STATUS
MOV
,KSTACK,SP
,INITIALIZE KERfojEL STACK POlNTER
JSR
'7,SETUP
IINITIALIZE 51'0, SR3
CMP
TESTCT,.24
,IS THIS TEST BEING EXECUTED IN THE
BEQ
.+4
I CORRECT SEQUENCE?- BRANCH IF YES
HLT
ITEST EXECUTED OUT OF SEQUENCE- TESTCT
,CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

007440

172436
172370
172440
172372
172126
ADD24:

000001

172106

MOV
SUB
JSR
MOV
MOV
MOV
MOV
HOV
HALT
HALT
HALT
NOP
NOP
BIT
BEQ
HLT
BR

000001

172020

• +4

,WHEN KTll-C IS TURNED ON, NEXT
,INSTRUCTION EXECUTED SHOULD
,BE HERE - CK RELOCATION OF SOURCE
,AND DESTINATION CALCULATIONS
,FULL RELOCATION rAILED IN A SOURCe; OR
,OESTINATION ADDRESS CALCULATION
,IN THE INSTRUCTION AT ADD23A
;ISSUE INIT TO TURN OfF KT11-C
,INIT DIDN'T TURN orF FULL RELOCAT1ON
,PROBLEM SHOULD BE n XED BEf'ORE CON'l'INUI NG

.2000,ICOUNT
HOO,SP
",CLRALL
.1, (lKIPARO
177406,(lKIPDRO
17600, (lKIPAR7
177406, (lUPDR7
11,(lSRO

;RESTORE ITERATION COUNT
IALTER STACK pOINTER DUE TO BANK 0 OFFSET
,INITIALLY CLEAR ALL KTl1-C REGISTERS
IMAP KERNEL I-SPACE PAGE 0 TO
,BANK 0 OFFSET BY 1 BLOCK
,MAP KERNEL I-SPAn: PAGE 7 TO
,THE EXTERNAL BANK
,TURN ON KT11-C
,WHEN KTll-C IS TURNED ON, SHOULD
,FETCH FROM ONE BLOCK ABOVE
:THIS (ADD24A)

It, (lSRo

,AFTER KTl1-C IS TURNED OFF, CHECK

• +4

,SRO<O>
,KTll-C NOT R~LOCATING BUT SRO<O> STILL
,SET AFTER A BIC It,tlSRO

TEST25

.=ADD24+100
ADD24A: BIC
U,(lSRO

HALT
RESET
BR

I WHEN KT 11-C IS TURNED ON, SHOULD
;RELOCATE FETCH TO HERE - TUf/!'
;OFF KTll-C VIA BIC OF SRO<O>
;KTll-C STILL RELOCATING AFTER
:BIC Of SRO<O>

,SHOW THAT A REFERENCE TO A NON-RESIDENT PAGE

DCKTA
MACY11.b24
DCKTAB.Pll

22-AUG-73

14114

PAGE 30

,WILL ABORT TO THE KT 11-C ABORT VECTOR ADDRESS (250)
IWITH BIT 15 OF SRO SET.
SRO, SRI, AND SR2 ARE CHECKED FOR
ITHE CORRECT VALUES, AS ARE KlpDRO AND KIpDR1
,SHOW THAT BIT 15 or SRO CAN BE CLEARED AND THAT
,SR2 IS READ ONLY
007422
007424
007432
007436
007442
007446
007454
007456

104400
012737
005037
01270b
004767
026727
001401
104006

007460
007464
007472
007500
007506
007514
007520

004767
012777
012777
012717
012777
005077
012704

006610
077406
007600
077406
007542
172276
020000

007524
007530
007532
007534
007540
007542
007546
007552
007556
007560

005277
005724
000000
005077
000457
017701
005277
022701
001401
104006

171704

007562
007570
007572

022777
001401
104006

000024

171650

CMP
BEQ
MLT

'24,(lSRl
.+4

007574
007602
007604
007606
007610
007614
007622
007624
007626
007634

022777
001402
104006
000407
005077
022777
001401
104006
022777
001401

007530

111 1042

CMP
BEQ
HLT
8R
CLR
CMP
BEQ
HLT
CMP
BEQ
HLT

IADR2S, @SR2
.+6

~O7~!~

!(l4nOF.

007640
007644
007646

005777
001401
104006

TEST25 :
000025
177776
001400
006614
172360

117570

000025

172200
172232
172146
172300

t25,(IIISR
[I'PS
'KSTACK,SP
\7,SF:TUP
TESTCT, .25
.+4

,DISPLAY TEST NUMBER
IlNITIALIZE PROCESSOR STATUS
IINITIALIZE KERNEL STACK POINTER
,INITIALIZE SHO,SI<3
;15 THIS TEST BEING EXECUTED IN THI::
ICORRECT SEQUENCE?- BRANCH IF YES
ITEST EXECUTED OUT or SEQUENCE- TESTC1'
,CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

JSR
MOV
HOV
MOV
MOV
CLR
MOV

,7,CLRALL
.77406,t1KIPDR7
17600, (lKIPAR7
.,7406, (lKIPDRO
.INT25, t1KTVEC
(lKTSTA
.20000,R4

,CLEAR ALL KTI1-C REGISTERS
I MAP KERNEL PAGE 7 I -SPACE TO
,TME EXTERNAL BANK
'MAP KERNEL 0 TO tlANJ( 0, RW, 4K
I SETUP ABORT RETURN

INC
TST
ADR251
ADR25A: HALT
CLR
Bil
MOV
INT25:
INC
CMP
BEQ
HLT

171674
171666
171662
100003

171630
007530

171622

077506

172020

172012

SCOPE
MOV
CLR
MOV
JSR
CMP
SEQ
HLT

TST
BEQ
HLT

(lSRO
(R4)+
lISRO
DONE25
(lSRO,Rl
(lSRO
1l00003,Rl
.+4

.+20
lISR2
IADR25, (lSR2
.+4
t77506,(lKIPDRO
• +4

IilKIPDRl
.+4

: USE R4 TO REFERENCE NR KERNEL
,ONE I-SPACE
,TURN ON KT11-C
,REFERENCE NR KERNEL 1 I-SPACE
,SHOULD HAVE ABORTED ALREADY
,TURN OFF I';T 11-C
,SAVE CONTENTS OF SRO
,TURN OFF KTll-C
,CHECK SAVED CONTENTS OF SRO
I SRO INCORRECT AFTER NR ABORT
,(SEE SAVED CONTENTS IN Rll
,CHECK SRl
,SR1 INCORRECT - SHOULD HAVE
,RECORDED AUTO INCREMENT or R4
ICK 5R2
ISR2 INCORRECT-SHOULD CONTAIN ADDRESS
,or LAST FETCH BEFORE THE ABORT
,TRY TO WRITE INTO SR2
J SR2 SHOULD BE RE_D ONLY
,SR2 NOT READ ONLY
,CHECK KERNEL 0 I-SPACE PDR
,KERNEL I-SPACE PDR 0 INCORRECT
, w jji 'i ~nuuLij riA i-e: p~E:: 5i:'r OY T~~
I CHECK KERNEL 1 I -SflACE PDIl
,KERNEL I -SPACE PDR 1 INCORRECT

"''''",. ..

~~!'!£

DCKTA
MACYll.624
DCKTAB.Pll

22-AUG-73

007650
007654
007656
007660
007662
007666
007674
007676
007700
007704

021627
001401
10400&
022626
005077
032777
001401
104006
005077
016777

007712
007714
007722
007726
007732
007736
007744
007746

104400
012737
005037
012706
004767
026727
001401
104006

0077!>0
007754
007762
007170
007776
010004
010012
010020
010026
010034
010042
010050
010056
010064
010072
010100
010106
010114
010122
010130
Q10136
010144

004767
012767
012777
012777
012777
012777
012777
012717
012777
012777
012777
012777
012777
012777
012777
012777
012777
012777
012777
012717
012777
005077

006320
000010
077406
07740&
077406
077406
077406
077406
077406
077406
077406
077406
077406
077406
077406
007600
007600
007600
007600
007600
007600
171646

010150

012777

010156
010164
010170

012737
005277
005737

010200
000000
171244
020000

DCKTA
MACU1.624
DCKTA8.Pll

104010

010176
010200

000403
104010

010202

104006

010204

022626

010206
010214
010222
010226

012777
012737
005277
005737

010232

104010

010234
010236

000403
104010

010240

104006

010242

022626

010244
010252
010260
010264

012777
012737
005277
005737

010270

104010

010272
010274

000403
104010

PAGE 31

007532

171546
100000

171540

172112
172106

172102

000026
171776
001400
006324
172070

22-AUG-73

010174

14: 14

CMP
BEQ
HLT
CMP
CLR
BIT
BEQ
HLT
DONE25 : CLR
MOV

(R6),.ADR25A
.+4
(R6)+. (R6)+
I'lSRO
'100000, @SRO
.+4
(ilKTSTA
KTSTA,(ilKTVEC

000026

JSR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR

006716
171664
171676
171550
171442
171436
171530
171622
171630
171522
171414
171626
171520
171412
171624
171516
171410
171622
17! 514
171406

\7,CLRALL
HO,ICOUNT
177406.@KIPDRO
#77406. !!IKDPDRO
n7406.!!ISIPDRO
t77406.@UIPDRO
.,7406.@UIPDRl
#17406,@SIPDRI
#77406,@KIPDRl
.17406,!!IKIPDR7
#77406,@SIPDR7
t77406.@UIPDR7
#77406.@KDPDR7
.,7406,@SDPDR7
#77406.@UDPDR7
#7600,@KIPAR7
#7600,@SIPAR7
#7600. (ilUIPAR7
#7600,@KDPAR7
n600,@SDPAR7
n600,@UDPAR7
!!IKTSTA

:INITIALLY CLEAI-! ALL KTI1-C REGISTI::RS
:MAKE KERNEL 0 I-SPACE RW
:MAKE KERNEL 0 D-SPACE RW. 4K
,MAKE SUPERVISOI-! 0 1 SPACE RW
:MAKE USER 0 I SPACE RW
,MAKE PAGE 1 Of EACH I-SPACE
: RW, 4K. BANK 0
:MAP PAGE 7 I AND o SPACES
:OF ALL MODES 4K. RW, EXTERNAL

,INITIALIZE KTll-C ABORT RETURN
:STATUS
:CHECK D-SPACE REFERENCES WITH NO D-SPACE ENABLE BITS SET
: SHOW THAT A REFERENCE TO KERNEL D-SPACE WITH NO D-SPACE I::NABLE
IsET WILL NOT ACTUALLY REfERENCE KERNEL D-SPACE
un"
!R!25A;@KT'!EC
:5E'!'IJP !\!:!QR,!, flETI)R~ !!oi C!>.S~'
MOV
'O,@#PS
: SET MODE TO KERNEL
@SRO
INC
,TURN ON KTll-C
TST
@,20000
I D-SPACE REFERENCE 1f D-SPACE ENABl.oE:D

171636
177776

14: 14

PAGE 32

RT26A:

,D-SPACE IS NR, I -SPACE IS RW
:NO ABORT SHOULD OCCUR SINCE
:CORRESPONDING D-SPACE ENABLE
:IS NOT SET
:TURN OfF KTI1-C VIA TRAPPING
:TO KERNEL AND EXECUTING A
,RESET

BR
KTOf'f

E26A+2

HLT

E26A:

010274
140000
171150
020000

,BIT 15 Of SRO DIDN'T CLEAR
,CHANGE TRAP VECTOR TO CAUSE A
,HALT ON A fALSE TRAP

:SHOW THAT THE D-SPACE ENABLE BITS v.ORK CORRECTLY
TI::ST26 : SCOPE
MOV
n6,(HSR
:DISPLAY TEST NUMBER
CLR
UPS
,INITlALIZE PROCESSOR STATUS
MOV
'KSTACK,SP
: INITIALIZE KERNEL STACK POINTER
JSR
%7 .SETUP
:INITIALIZE SRO.SR3
CMP
: IS THIS TEST BEING EXECUTED IN THt:
TESTCT,'26
BEQ
,CORRECT SEQUENCE?- BRANCH I f YES
.+4
HLT
: TEST EXECUTED OUT Of SEQUENCE- TE::>TCT
:CONTAINS NUMBEI-! UF PREVIOUS TEST PLUS ONE

177570

KTOFf

01023&
040000
171206
020000

:CHECK VALUE PUSHED ON STACK
,INCORRECT VALUI:: ON STACK
,RESTORE STACK POINTER
,CLEAR BIT 15

171600

177776

171542
177776

CMP

(R6)+, (R6)+

:TURN OFF KTII-C VIA TRAPPING
:TO KERNEL AND EXECUTING A RESET
,REFERENCE TO KERNEL D-SPACE WITH
: NO D-SPACE ENABLE SET
: REfERENCED KERNEL D-SPACE INSTEAD
:OF KERNEL I-SPACE
:RESTORE STACK POINTER

:SHOW THAT A REFERENCE TO SUPERVISOR D-SPACE WITH NO D-SPACE ENABLE
:SET WILL NOT ACTUALLY REfERENCE SUPERVISOR D-SPACE
:SETUP ABORT I-!ETURN IN CASE
MOV
.RT26B,@KTVEC
:SET MODE TO SUPERVISOR
HOOOQ,@.PS
MOV
@SRO
:TURN ON KTII-C
INC
,D-SPACE REfERENCE IF D-SPACE ENABLED
@120000
TST
:D-SPACE IS NR. I-SPACE IS RW
:NO A80RT SHOULD OCCUI-! SINCE
:CORRESPONDING D-SPACE ENABLE
: IS NOT SET
:TURN OfF KTll-C VIA TRAPPING
KTOff
,TO KERNEL AND EXECUTING A
:RESET
SR
E26B+2
:TURN OFF KTll-C VIA TRAPPING
KTOff
RT26B:
:TO KERNEL AND EXECUTING A RESET
,REfERENCE TO SUPERVISOR D-SPACE WiTH
HLT
: NO D-SPACE ENABLE SET
:REfERENCED SUPERVISOR D-SPACE INS1'EAD
,OF SUPERVISal-! I-SPACE
: RESTORE STACK POINTER
CMP
(R6)+. (R6)+
E26BI
: SHOW THAT A REFERENCE TO USER D-SPACE WITH NO D-SPACE ENABLE
,SET WILL NOT ACTUALLY REFERENCE USER D-SPACE
,SETUP ABORT RETURN IN CASE
MOV
'RT26C,@KTVEC
: SET MODE TO USER
MOV
1140000.@.PS
@SRO
:TURN ON KTll-C
INC
,D-SPACE REfERENCE IF D-SPACE ENABLED
TST
!!Inoooo
,D-SPACE IS NR. I-SPACE IS RW
I NO ABORT SHOULD OCCUR SINCE
,CORRESPONDING D-SPACE ENABLE
:IS NOT SET
,TURN OFF KTll-C VIA TRAPPING
KTOfF
:TO KERNEL AND EXECUTING A
,RESET
BR
E26C+2
:TURN OFF KTll-C VIA TRAPPING
KTOfF
RT26C:
:TO KERNEL AND EXECUTING A RESET

DCKTA
MACY 11. 624
DCKTAB,Pll

22-AUG-73

010276

104006

010300

022626

14114

PAGE 33

HLT

E26C:

CMP

(R6)+, (R6)+

,REfERENCE TO USER D-SPACE wITH
,NO D-SPACE ENABLE SET
,REfERENCED USER D-SPACE INSTEAD
,Of USER I-SPACE
,RESTORE STACK POINTER

:CHECK D-SPACE REfERENCES WITH KERNEL D .. SPACE ENABLE SET
010302

012777

000004

171140

010310
010316
010324
010330
010334

012777
012737
005277
005737
104010

010342
000000
171104
020000

171476
177776

010336

104006

010340
010342

000402
104010

010344

022626

010346

012777

000004

171074

010354
010362
010370
010374

012777
012737
005277
005737

010404
040000
171040
020000

171432
177776

010400

104010

010402
010404

000403
104010

010406

104006

MOV
j4, €ISR3
,ENABLE KERNEL D-SPAn:
,SHOW THAT A RF.fERENCE TO KERNEL D-SPACE WITH KERNEL D-SPACE ENARLE
,SET WILL ACTUALLY REfERENCE KERNEL D"-SPACE
MOV
'RT26D, €IKTVEC
,SETUP ABORT RETURN
MOV
.0. €lIPS
,SET MODE TO KERNEL
INC
~SRO
,TURN ON KTll-C
TST
~'20000
,D-SPACE R£fERENCE - SHOULD AIWRT
KTOfF
,TURN Off KTl1-C VIA TRAPPING TO
; KERNEL AND EXECUTI NG A RESET
HLT
,REFERENCE TO KERNEL D-SPACE WITH
,KERNEL D-SPACE ENABLE SET
:DID NOT USE KERNEL D-SPACE
BP"
£26D+2
RT26D:
KTOH
;TURN Of'f KT11-C VIA TRAPPING
;TO KERNEL AND EXECUTING A RESET
: RESTORE STACK POINTEI<
E260:
eMP
(1<6)+'(R6)+
MOV
.4.@SR3
;ENABLE KERNEL I)-SPACE
'SHOW THAT A REFERENCE TO SUPERVISOR D-SPACE WITH KERNEL I)-SPACE ENABLE
;SET WILL NOT ACTUALLY REFERENCE SUPERVISOR D-SPACE
MOV
.RT26E.@KTVEC
,SETUP ABORT RETURN IN CASE
MOV
HOOOO.UPS
,SET MODE TO SUPERVISOR
INC
I!lSRO
,TURN ON KT11-C
TST
~'20000
,D-SPACE REFERENCE IF D-SPACE ENABLED
,D-SPACE IS NR, I-SPACE IS RW
,NO ABORT SHOULD OCCUR SINCE
,CORRESPONDING D-SPACE ENAIILE
,IS NOT SET
!CTOfF
,TURN OFF KT11-C VIA TRAPPING
:TO KERNEL AND EX1:CUTI~!G A

;RESET
RT26E:

E26E:

010410

022626
012777

000004

171030

010420
010426
010434

012777
012737
005277

010450
140000
170774

171366
177776

22-AUG-73

010440

005737

010444

104010

010446
010450

000403
104010

010452

104006

010454

022626

E26E+2

HLT

010412

DCKTA
MAC'l11.624
DCKTAB,Pll

BR
KTOFF

14: 14

CMP

(R6)+, (R6)+

,TURN OfF Kt11-C vIA TRAPPING
,TO KERNEL AND EXECUTlNG A RESET
:REFERENCE TO SUPERVISOR D-SPACE WITH
: KERNEL D-SPACE ENABLE SET
,REFERENCED SUPERVISOR D-SPACE INSTEAD
,OF SUPERVISOR I-SPACE
,RESTORE STACK POINTER

MOV
,4,I!lSR3
,ENABLE KERNEL V-SPACE
:SHOW THAT A REFERENCE TO USER D-SPACE wITH KERNEL D-SPACE ENABLE
,SET WILL NOT ACTUALLY REFERENCE USER D-SPACE
MOV
,RT26F,@KTVEC
,SETUP ABORT RETURN IN CASE
MOV
It 40000, ~ I PS
,SET MODE TO USER
INC
@SRO
:TURN ON KT11-C

PAGE H

020000

TST

€I,20000

KTOFF

RT26f:

BR
KTOfF

E26F+2

HLT

E26F:

CMP

,D-SPACE REFEREr;CE IF D-SPACE ENABLED
/D-SPACE IS NR, I -SPACE IS RW
,NO ABORT SHOULD OCCUR SINCE
,CORRESPONDING D-SPACE ENABLE
,IS NOT SET
,TURN m'F KTll-C V IA TRAPP I NG
,TO KERNEL AND EXECUTI NG A
,RESET

(R6)+, (R6)+

: TURN OFF KT l1-C VIA TRAPPING
,TO KERNEL AND EXECUTING A RESET
,REFERENCE TO USER D-SPACE ~ITH
,KERNEL D-SPACE ENABT.E SET
I REFEREr;CED USER D-SPACE INSTEAD
,OF USER I -SPACE
: RESTORE STACK PO INTER

,CHECK D-SPACE REFERFNCES WITH SUPERVISOR D-SPACF. ENABLE SET
010456

012717

000002

170764

010464
010472
010500
010504

012777
012737
005277
005737

010514
000000
170730
020000

171322
177776

010510

104010

010512
010514

000403
104010

010516

104006

010520

022626

010522

012777

000002

170720

010530
010536
010544
010550
010554

012777
012737
005277
005737
104010

010562
040000
170664
020000

010556

104006

171256

177176

,ENABLE SUPERVISOR D-SPACE
MOV
'2.€ISR3
,SHOW THAT A REFERENCE TO KERNEL D-SPACE WITH SUPERVISOR D-SPACE ENABLE
,SET wILL NOT ACTUALLY REFERENCE KERNEL D-SPACE
,SETUP ABORT RETURN IN CASE
MOV
'RT26G, €IKTVEC
MOV
,SET MODE TO KERNEL
10,UPS
;TURN ON KTll-C
INC
~SRO
,D-SPACE REf"ERENCE If' D-SPACE ENABLED
TST
~120000
/D-SPACE IS NR, I -SPACE IS RW
,NO ABORT SHOULD OCCUR SINCE
,CORRESPONDING D-SPACE ENABLE
,IS NOT SE1'
,TURN Off KT11-C VIA TRAPPING
KTOFF
,TO KERNEL AND EXECUTING A
,RESET
BR
E26G+2
KTOfF
,TURN OFF KT11-C VIA TRAPPING
RT26G:
,TO KERNEL AND EXECUTING A RESET
,REFERENCE TO KERNEL D-SPACE WITH
HLT
,SUPERVISOR D-SPACE ENABLE SET
,REFERENCED KERNEL D-SPACE INSTEAD
,Of" KERNEL I-SPACE
(R6)+, (R6)+
,RESTORE STACK POINTER
CMP
E26G:
IENABLE SUPERVISOR D-SPACE
MOV
.2.@SR3
,SHOW THAT A REFERENCE TO SUPERVISOR D-SPACE WITH SUPERVISOR D-SPACE ENABLE
ISET WILL ACTUALLY REFERENCE SUPERVISOR D-SPACE
I RT26H, @KTVEC
,SETUP ABORT RETURN
MOV
,SET MODE TO SUPERVISOR
HOV
HOOOO,IHPS
,TURN ON KT11-C
INC
~SRO
,D-SPACE REFERElIiCE - SHOULD ABORT
TST
~.20000
,TURN OfF KTll-C VIA TRAPPING TO
KTOFF
'I'.t.HI'iI:.1.. ANi) ;;;;;;;;C iiT HiG ;.. .. ;;;5;;;T
,REFERENCE TO SUPER V tSOR D-SPACi.: ~l 'IH
HLt
,SUPERVI SOR D-SPACE ENABLE SET
,DID NOT USE SUPERVISOR D-SPACE

OCKTA
MACY11.624
OCKTAB.PII

22-AUG-73

14:14

PAGE 35

010560
010562

000402
104010

BR
KTOFF

E26H+2

RT2&H:

010564

022626

E26H:

CMP

(R6)+, (R6)+

010566

012777

000002

170654

010574
010602
010610
010614

012777
012737
005277
005737

010624
140000
170620
020000

171212
17777&

010&20

104010

010622
010624

000403
104010

010626

104006

010630

022626

010632

012777

000001

170610

010&40
010646
010654
010660

012777
012737
005277
005737

010670
000000
170554
020000

17114&
177776

010&64

104010

010666
010670

000403
104010

010672

104006

010674

022626

01067&

012777

000001

170544

:TURN OFF KTll-C VIA TRAPPING
;TO KERNEL AND EXECUTING A RESET
:RESTORE STACK POINTER

MOV
.2d1SR3
:I::NABLE SUPERVISOR D-SPACJ,;
,SHOW THAT A REFERENCE TO USER D-SPACE WITH SUPERVISOR D-SPACE ENABLE
;SET WILL NOT ACTUALLY REFERENCE USER D-SPACE
MOV
.RT26I, (!IKTVEC
:SETUP ABORT RETURN IN CASE
MOV
1140000,(!I.PS
,SET MODE TO USER
INC
IiISRO
,TURN ON KU1-C
TST
fil120000
; D-SPACE REf'ERENCE IF D-SPACE ENABLI::D
: D-SPACE IS NR, I-SPACE IS RW
:NO ABORT SHOULD OCCUR SINCE
:CORRESPONDING D-SPACE ENABLE
:IS NOT SET
KTOFF
:TURN OFF KTlI-C VIA TRAPPING
:TO KI::RNEL AND EXECUTING A
;RESET
BR
E26I+2
KTOff
RT26I:
:TURN Off KTll-C VIA TRAPPING
:TO KERNEL AND rXECUTING A RESET
HLT
:REFERENCE TO USER D-SPACE WITH
:SUPERVISOR D-SPACE ENABLI:: SET
: REfERENCED USER D-SPACE INSTEAD
: OF USER I -SPACE.
CMP
(R6)+, (R6)+
E26I:
:RESTORE STACK POINTER
:CHECK D-SPACE REfERENCES WITH USER D-SPACE ENABLE SET

DCKTA
MACYII.&24
DCKTAB.Pll

010704
010712

22-AUG-73

010724

012777
012737
005277
005737

010730

104010

010732
010734

000403
104010

010736

104006

010720

14:14

010734
040000
170510
020000

1711 02
177776

010740

022626

010742

012777

000001

170500

010750
010756
010764
010770
010774

012777
012731
005277
005737
104010

011002
140000
170444
020000

171 036
177776

010776

104006

011000
011002

000402
104010

011004
011006
011012
011020

022&26
005077
016777
005077

011024
011026
011034
011040
011044
011050
011056
011060

104400
012737
005037
012706
004767
026727
001401
104006

170436
171 000
170772

000027
177776
001400
005212
170756

170774

177570

000027

MOV
U,IiISR3
: ENABLE USER D-SPACIC
:SHOW THAT A REf'ERENCE TO KERNEL D-SPACE wITH USER D-SPACE ENABLE
;SET WILL NOT ACTUALLY REfERENCE KERNEL D-SPACE
MOV
.RT26J,(!IKTVEC
: SETUP ABORT RETURN INC ASE
MOV
.0,IiI.PS
: SET MODE TO KERNEL
INC
(ilSRO
:TURN ON KTll-C
TST
:D-SPACE REFERENCE IF D-SPACE ENABLED
1iI#20000
:D-SPACE IS NR, I-SPACE IS RW
: NO ABORT SHOULD UCCUR SINCE
:CORRI::SPONDING D-SPACE ENABLE
:IS NOT SET
KTOFF
:TURN OfF KTll-C VIA TRAPPING
:TO KERNEL AND EXECUTING A
;RESET
BR
E26J+2
KTOFF
RT26J:
:TURN OFf KT11-C VIA TRAPPING
:TO KERNEL AND I::XECUTING A RESET
HLT
; REf'ERENCE TO KI::RNEL D-SPACE WITH
:USER D-SPACE ENABLE SET
: REFERENCED KERNEL D-SPACE INSTI::AD
;OF KERNEL I,.SPACE
CMP
(R6)+, (R6)+
; RESTORE STACK POINTER
E26J:
MOV

.1,(!ISR3

:ENABLE USER D-SPACE

PAGE 36

: SHOW THAT A REf'ERENCE TO SUPERVISOR D-SPACE WITH USER D-SPACE ENABLE
:SET WILL NOT ACTUALLY REFERENCI:: SUPERVISOR D-SPACE
MOV
.RT26K.IiIKTVEC
: SETUP ABORT RETURN IN CASE
MOV
140000,(!I#PS
:SET MODE TO SUPERVISOR
INC
«ISRO
;TURN ON KTU-C
TST
~#20000
: D-SPACE I<EFERE~CIC I f D-SPACE ENABLED
;D-SPACE IS NR, I-SPACE IS RIO
; NO ABORT SHOULD OCCUR SINCE
;CORRESPONDING D-SPACE ENABLE
;15 NOT SET
KTOfF
;TURN OFF KTII-C VIA TRAPPING
;TO KERNEL AND I::XECUTING A
:RESET
BR
E26K+2
KTOFF
;TURN OFF KTll-C VIA TRAPPING
RT26K:
: TO KERNEL AND nECUT I NG A RESET
HLT
:REFERENCE TO SUPERVISOR D-SPACE wITH
:USER D-SPACE ENABLE SET
,REFERENCI::D SUPERVISOR D-SPACE INSTEAD
:OF SUPERVISOR I-SPACE
E26K:
CMP
(R6)+, (R6)+
:RESTORE STACK POINTEI<
MOV
; ENABLE USER D-SPACE
U.IiISR3
;SHOW Tj!~T A REFERENCE TO USER D-SPACE WITH USER D-SPACE ENABLE
:SET WILL ACTUALLY REFERENCE USER D-SPACE
#RT26L,@KTVEC
MOV
; SETUP ABORT RETURN
MOV
U40000,I;l#PS
:SET MODE TO USER
INC
IiISRO
;TURN ON KTll-C
TST
U20000
;D-SPACE REFERE~CE - SHOULD ABORT
KTOFF
;TURN OFF KTll-C VIA TRAPPING TO
;KERNEL AND EXECUTING A RESET
HLT
:REFERENCE TO USER D-SPACE WITH
; USER D-SPACE ENABLE SET
: DID NOT USE USER D-SPACE
BR
E26L+2
KTOFF
RT2&L:
:TURN OFF KT11-C VIA TRAPPING
:TO KERNEL AND EXECUTING A RESET
CMP
(R6)+,(R6)+
E26L:
:RESTORE STACK POINTER
CLR
IiISR3
;REINITIALIZE SR3
MOV
KTSTA,IiIKTVEC
:REINITIALIZE TllAP VECTOR TO CAUSE
: HALT ON FALSE TRAP OR ABORT
CLR
IiIKTSTA
,SHOW THAT A DATO OF 0 TO BIT 8, SRO THRU KERNEL PAGE 7 D-SPACE
: WILL TURN OFF DESTINATION ONLY RELOCATION
TEST27 : SCOPE
MOV
.27,filtSR
,DISPLAY TEST NUMBER
CLR
:INITIALIZE PROCESSOR STATUS
IiItPS
MOV
tKSTACK,SP
:INITIALIZE KERNEL STACK POINTER
JSR
,INITIALIZE SRO,SR3
"7.SETUP
; IS THIS TEST BEING EXECUTED IN THI::
CMP
TESTCT •• 27
BEQ
;CORRECT SEQUENCE?- BRANCH IF YES
.+4
: TEST EXECUTED OUT OF SEQUENCE- TESTCT
HLT
;CONTAINS NUMBER OF PREVIOUS TEST PLUS GtiE

MACYll,624
DCKTA
DCKTAB,Pll

22-AUG-73

011062
011070
011074
011102
011110
011114
011122
011130
011136
011142
011150

012761
004767
012777
012777
012701
012777
012177
012777
016702
012777
005012

011152
011154

021111
001401

011156
011160
011162
011166

000000
000005
005077
005037

011172

004767
012177

011176

011204
012177
011212 ' 012701
011216 012777
011224 012777

000100
005200
000001
077406
004754
007600
077406
000004
170272
000400

005076
000001
077406
007600

077406

012177

012737

011246
011252
011260
011262
011264

016702

170162

012777

000400

011272

011276

011302
011306
011314
011322
011326
011334
011342
011350
011356
011362
011370
011372

005610

170630

170562
170312

170264

HALT
RESET
CLR
CLR

170430

170362

000002
040000

170426
170360
170210
177776

170154

005012
021111
001401
000777
000005
005077
005037

004767
012777
012777
012701
01277,
012777
012717
012737
016702
012777
005012

170152
177776

004766
000001
077406
004754
007600
077406
000001
140000
170052
000400

170220
170152
170216
170150
170100
177776
170044

021111

DCKTA
MACYll.624
DCKTAB.Pll

22-AUG-73

011374

001401

011376
011400
011402
011406

000777
000005
005077
005037

MOV
JSR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CMP
BEQ

170632
170564

004754

011232

011266

PAGE 37

170262
177776

011240

011270

14: 14

UOO.ICOUNT

\7 ,CLRALL
U,liKDPARO
.77406,liKDPDRO
IDATA16,Rl
n600,I!IKDPAR7
17 7406 ,([IKDPDR7
l4,liSR3
SRO, R2
UOOdlSRO
liR2
liRl,liRI
.+4

liSR3
UPS

,INITIALLY CLEAR ALL KTll-C REGISTERS
,MAP KERNEL 0 D-SPACE TO BANK 0,
'RW, OFFSET BY 1 BLOCK
,SETUP RI TO REFERENCE KERNEL
,MAP KERNEL 7 D-SPACE TO THE
,EXTERNAL BANK
,ENABLE KERNEL D-SPACE
,SETUP R2 TO ADDRESS SRO
,TURN ON DESTINATION ONLY RELOCATIUN
,CLEAR SRO THRU KERNEL 7 D-SPACE
:SHOW THAT KTU-C IS On'-IF STILL UN,
:THE CMP WILL REFERENCE 2 LOCATION~
,WHICH AREN'T EQUAL
,KTll-C IS STILL ON
,MAKE SURE THAT KTI1-C IS OFF
,REINITIALIZE SR3
:REINITIALIZE PROCESSSOR STATUS

,SHOH THAT A DATO OF 0 TO BIT 8, SRO THRU SUPERVISOR PAGE 7 D-SPACE
,WILL TURN OFF DESTINATION ONLY RELOCATION
JSR
%7.CLRALL
,INITIALLY CLEAR ALL KTl1-C REGlSTt:RS
MOV
11 ,liSDPARO
,MAP SUPERVISOR 0 D-SPACE TO BANK 0,
MOV
177406, lISDPDRO
,RW, OFFSET BY 1 BLUCK
MOV
,SETUP Rl TO REFERENCE SUPERVISOR 0
.DATA16,Rl
MOV
,MAP SUPER V ISOR 7 O-SPACE TO THE
17600, I!ISDPAR7
MOV
,EXTERNAL BANK
177406,lISDPOR7
MOV
,ENABLE SUPERV I SOR a-SPACE
'2.I!ISR3
MOV
,SET MODE TO SUPERVISOR
1140000, UPS
MOV
,SETUP R2 TO ADDRESS SRO
SRO,R2
MOV
:TURN ON DESTINATION ONLY RELOCATIUN
1400,lISRO
CLR
,CLEAR SRO THRU SUPERVISOR 7 D-SPACE
liR2
CMP
,SHOW THAT KT11-C IS OFf - IF STILL ON
IiIR1, lIRl
BEQ
:THE CMP WILL REfERENCE 2 LOCATION:;
.+4
,WHICH AREN'T EQUAL
BR
:KT11-C IS STILL ON
RESET
,MAKE SURE KT11-C IS OfF
CLR
IREINitlALIZE SH3
tlSR3
,REINlTIALIZE PROCESSOR STAtUS
CLR
IiItPS
:SHOW THAT A DATO OF o TO BIT 8, SRO THRU UsER PAGE 7 D-SPACE
,WILL TURN Off DESTINATION ONLY PAGING
:INITIALLY CLEAp ALL KTll-C REGISTt:RS
JSR
" ,CLRALL
MOV
,MAP USER 0 D-SPACE TO BANK O. /lW,
l1.lI UDPARO
MOV
.77406,tlUDPDRO
10FFSET BY 1 BLOCK
MOV
,SETUP Rl TO REFERENCE USER 0
.DATA16,Rl
MOV
17600, liUDPAR7
I MAP USER 7 D-SPACE TO THE
MOV
,EXTERNAL BANK
177406, lIUDPDR7
MOV
: ENABLE USER D-SPACE
It,liSR3
MOV
,SET MODE TO USER
1140000,Ii.PS
MOV
SRO,R2
: sETUP R2 TO ADDRESS SPO
MOV
,TURN ON DESTINATION ONLY RELUCATIuN
HOO,lISRO
CLR
,CLEAR SRO THRU USER 7 D-SPACE
IiIR2
CMP
:SHOW THAT KTI1-C IS OFF - I f STILL ON, THE
IiIR1,lIRI

PAGE 38

170042
177776

BEQ

.+4

BR
RESET
CLR
CLR

liSRl
(alPS

,CMP WILL REFERENCE 2 LOCATIONS WH1CH Aln:N'T
:EQUAL
,KT11-C IS STILL ON
:MAKE SURE KTll-C IS on:REINITIALIZE SR3
:REINITIALIZE PROCESSOR STATUS

,SHOW THAT WITH ALL D-SPACES ENABLED ALL BLOCK BOUNDARY REfERENCES
: REFERENCE THE CORRECT O-SPACE PAR AND RELOC ATE CORRECTLY
:USE DESTINATION ONLY RELOCATION AND ENABLE O-SPACE
:MAP ALL I-SPACE PAGES NON-RESIDENT
: MAP ALL D-SPACE PAGES RESIDENT READ WRITE
RO
Rl
R2
R3
R4
R5
TEST30: SCOPE
MOV
CLR
MOV
JSR
CMP
BEQ
HLT

011412
011414
011422
011426
011432
011436
011444
011446

104400
012737
005037
012706
004767
026727
001401
104006

011450
011454
011460
011466
011474
011502
011510
011516
011522

004767
004767
013767
013767
012737
012737
012777
012703
012704

004620
004750
017700
017776
123456
134567
000007
001414
001416

011526
011534
011542
011546
011554
011560

012767
012737
012706
012737
012706
005037

~1!5~1

O! 2!~"

000100
040000
001000
140000
000400
177776
OO! ,}""It)

000030
177776
001400
004624
170370

177570

000030

170322
170316
017700
017776
167732

005144
177776
177776

! "702! 2

- POINTS TO THE ADDRESS OF THE CURRENT D-SPACE PAR IN THE
ADDRESS TABLE
- VIRTUAL ADDRESS BEING USED TO REFERENCE START OF BLOCK
- VIRTUAL ADDRESS BEING USED TO REFERENCE END Of BLOCK
- POINTS TO EXPECTED CONTENTS at' START OF BLOCK
- POINTS TO EXPECTED CONTENTS OF END OF RLOCK
- USED TO REfERENCE SRO TO TURN OFf DESTINATION ONLY RELOCATION
no,USR
Ii.PS
'KSTACK,SP
\7, SETUP
TESTCT,no
.+4

I DISPLAY TEST NUMI!ER
I INITIALIZE PROCESSOR STATUS
,INITIALIZE KERNEL STACK POINTER
:INITIALIZE SRO,SRl
I IS THIS TEST BEING EXECUTED IN THE
,CORRECT SEQUENCE?- BRANCH IF YES
: TEST EXECUTED OUT Of SEQUENCE- TE:;TCl'
,CONTAINS NUMBER Of PREVlOUS TEST PLUS ONE
,INITIALIZE KT11-C - CLEAR ALL REGISTERS
,MAKE ALL D SPACE PAGES RIi, BANK 0,4K
:SAVE CONTENTS OF LOCATIONS TO BE USED
,AS START AND END ot' PHYSICAL BLOCK
:SET UP LOCATIONS TO BE REFERENCED

MOV

\7,CLRALL
" ,RWDSP
1i1117700,SAVEA
U17776, SAVEB
1123456, h17700
1134567,[1117776
",[lSRl
'K12),R)
,K!34,R4

MOV
MOV
MOV
MOV
MOV
CLR

UOO, ICOUNT
HOOOO,UPS
'SSTACK,SP
U40000,lItPS
tUSTACK,SP
UPS

IoInv

.~TATAB. ~TAPNT

JSR
JSR
MOV
MOV
MOV
MOV
MOV
MOV

:ENABLE ALL D-SPACES
:LOAD R3 AND R4 WITH ADDRESSES OF
:LOCATIONS CONTAINING EXPECTED CONTENTS
,Of START AND END Ot' BLOCK
,THIS ALLOWS USING THE SAME INSTRUCTIONS
,AS HAVE ALREADY BEEN SHOWN TO WORK
,CORRECTLY IN DESTINATION ONLY RELUCATION
,CHANGE ITERATION COUNT
,CHANGE TO SUPERVISOR
,SET UP SUPERVISOR STACK POINTER
,CHANGE TO USER
,SET UP USER STACK POINTER
,RETURN TO KERNEL
I SET UP TO REfERENCt: MODE TABLE
ITHIS TABLE CONTAINS THE FIRST
,ADDRESSES Of THE TABLES OF PAR ANI) PDR
,ADDRESSES fOR EACH MODE. AND THE
,VALUE OF THE PROCESSOR STATUS rOR EACH

DCKTA
MACY11.624
DCKTAB.Pll

22-AUG-73

14: 14

PAGE 39

011512
011516
011602

017100
062700
062761

110206
000060
000002

170174

STATEL: MOV
ADD
ADD

011610
011616

017137
062767

170170
000002

177776
170160

MOV
ADD

ElSTAPNT,(a#PS
I2,STAPNT

011624
011632
011640

012167
017.170
016705

000010
007600
167510

170154
000016

MOV
MOV
MOV

la"PAGES
#7600,f!l16(RO)
SRO,R5

011644

005001

CLR

011646
011652
011660
011666

012702
012767
012770
022767

MOV
MOV
MOV
eMP

176,R2
#128" BLOCKS
H77,EI(RO)
U,PAGES

011674
011676
011704
011710
011716
011720
011722

001005
012770
042705
012777
021311
001401
000000

RNE
MOV
RIC
MOV
CMP
BEQ
HALT

BLKL
t7600,!I-2(RO)
120000,R5
#400,ElSRO
(aR3,!lRI
, +4

011724
011726
011730

021412
001401
000000

CMP
BEQ
HALT

@R4,(aR2
• +4

011732
011734
011740
011744
011750
011754
011756
011762
011766
011770
011712
011174
012002
012004
012010
012014
012022

005015
005370
062701
062702
005367
001355
005070
005367
001402
005720
000727
026727
003613
005037
005077
016127
016727

000076
000200
000177
000001

007600
020000
000400

PAGEL:

170154
000000
170112

177776
BLKL:

167516

CLR
DEC
ADD
ADD
DEC
BNE
CLR
DEC
BEQ
TST
BR
ENDPAG: CMP
RLE
CLR
CLR
MOV
MOV

000000
000100
000100
170060
000000
110020

110004

002002

177776
167420
167770
167764

011700
017776

(aSTAPNT,RO
'60,RO
.2,STAPNT

@R5
(a(RO)
#100,Rl
#100,R2
BLOCKS
BLKL
@(RO)
PAGES
ENDPAG
(RO)+
PAGEL
STAPNT, #STAEND
STATEL
@IPS
@SRO
SAVEA,iI17700
SAVEB, #17716

I MODE
: PICK UP ADDRESS Or START Or
:ADDRESS TABLE ~'OR NEW MODE
I MOVE POINTER TO ADDRESS VALUE TO
:LOAD INTO PROCESSOR STATUS
:SET PROCESSOR STATUS TO NEW MODE
:MOVE POINTER TO ADDRESS VALUE
: rOR NEXT MODE
:SETUP COUNTER Or PAGES LEFT TO TEST
:SET UP RELOCATED REFERENCE TO SRO
:USED TO TURN DESTINATION ONLY
:RELOCATION on'
:INITIALIZE Rl TO CONTAIN VA OF
:START OF PAGE
: INITIALIZE R2 TO VA Or END Or PAGt:
: SET UP BLOCK COUNT
:SET UP D-SPACE PAR TO RELOCATE VA TO LAST BLOCK
:IS THIS PAGE 7? (WAS USED
IFOR REFERENCE TO SRO)
:IF NOT, BRANCH
:YES, SET UP PAGE 6 rOR RErERENCES TO SRO
:CHANGE R5 TO POINT TO SRO THRU PA(;E 6
:TURN ON DESTINATION ONLY PAGING
: CK BOTTOM BLOCK BOUNDARY
:DESTINATION ONLY RELOCATION rAILED
IVA CONTAINED IN Rl FAILED TO RELOCATE
: TO TOP BLOCK OF BANK ZERO
:CK UPPER BLOCK BOUNDARY
:DESTINATION ONLY RELOCATION FAILED
IVA CONTAINED IN R2 rAILED TO RELOCATt:
: TO TOP BLOCK Of' BANK ZERO
: TURN Orr KT l1-C
: MAP D-SPACE PAR 1 BLOCK LOWER
: SET UP Rl AND R2 TO RErERENCE
: NEXT VI RTUAL BLOCK
:DECREMENT COUNT OF BLOCKS LEFT
:BRANCH IF NOT DONE WITH THIS PAGE
: IF DONE WITH PAGE, CLEAR PAR
:DECREMENT COUNT OF PAGES LEFT
: BRANCH IF ALL PAGES IN TH IS MODE DONE
:MOVE ADDRESS TABLE POINTER TO ADDHESS NEXT PAR
: TEST REFERENCES TO NEXT PAGE
:CHECK FOR ALL MODES TESTED
;IF NOT, BRANCH
: IF DONE, REINTIALIZE

;SHOW THAT WRITING A PAGE WILL SET THE W BIT IN THE CORRESPONDING
;pDR, AND THAT NO OTHER W BITS SET AT THE SAME TIME
;SHOW THAT WRITING THE PDR (VIA A DATO) WILL CLEAR THE W BIT

DCKTA
MAC¥11.624
DCKTAB,P11

22-AUG-73

14: 14

PAGE 40
:SINCE THIS IS DONE FOR ALL PDR'S, THIS IS ALSO
:A TEST Or INDIRECT ADDRESSING (VIA A VIRTUAL ADDRESS) OF THE PDR'S

012030
012032
012040
012044
012050
012054
012062
012064

104400
012731
005037
012706
004761
026127
001401
104006

012066
012074
012100
012106
012114
012122
012126
012134
012140
012146
012152
012156
012162

000031
177176
001400
004206
167752

177570

012767
004167
012777
012777
012717
005071
012737
012706
012137
012106
005031
012704
012105

000400
004224
007600
007600
007600
167322
040000
001000
140000
000400
177776
001454
000020

004604

012166
012172
012174

022734
001401
104006

077406

012176
012200
012204
012210
012212
012214
012220

017505
062704
020427
003001
000163
012700
012001

012222
012226
012232
012236
012240
012244
012252
012254

012102
012037
005277
011212
005077
032771
001001
104006

000031

167624
161516
167410
117776
177776

000040
001752

001170

011776
117176
167176
167170
000100

:F'!RST TEST ALL I-SPACE PDR'S
: ALL 0 SPACES ARE DISABLED
TES131: SCOPE
01,@#SR
MOV
@jPS
CLR
#KSTACK,SP
MOV
%7,SETUP
JSR
TESTCT,131
CMP
BEQ
, +4
HLT

MOV
JSR
!lOV
MOV
MOV
CLR
MOV
MOV
MOV
MOV
CLR
MOV
LOP31A: MOV

#400,ICOUNT
%7,RWALL
t7600,@KIPAR7
n600,@SIPAR7
n600,@UIPAR7
ilSR3
HOOOO, @tPS
IISSTACK, R6
U40000,@'PS
IUSTACK,R6
@#PS
IADRTAB,R4
120,R5

LOP31B: CMP
BEQ
HLT

111406,@(fl4)+
.+4

SOB
ADD
CMP
BGT
BR
CNT3IA: MOV
r.oP31C: MOV

R5,LOP31B
HO,R4
R4, ,ADRENO
CNT31A
LOP31A
'STATAB,RO
(RO)+,R1

MOV
MOV
INC
MOV
CLR
BIT
BNE
HLT

117776,R2
(RO)+,[i#PS
@SRO
(R2),(R2)
(aSRO
1100,@(Rl)
, +4

LOP31D:

000000

:DISPLAY TEST NUMBER
: INI TIALIZE PROCESSOR STATUS
: INITIALIZE KERt<EL STACK POINTER
;INITIALIZE SRO,SR3
,IS THIS TEST BEING EXECUTED IN THI::
:CORRECT SEQUENCE?- BRANCH If' YES
: TEST EXECUTED OUT Of' SEQUENCE- TESTCT
:CONTAINS NUMBER Or PREVIOUS TEST PLUS ONE
;LOAD ITERATION COUN':'
: MAP ALL pAGES 4K, BANK 0, RW
: MAP KERNEr. 1 I -SPACE TO EXTERNAL BANK
,MAP SUPERVISOR 7 I-SPACE TO EXTERNAL BANK
;MAP USER 1 I-SPACE TO EXTERNAL BANK
:CLEAR ALL D-SPACE ENABLES
:SET MODE TO SUPERVISOR
:SET UP SUPERVISOR STACK
: SET MODE TO USER
:SET UP USER STACK
,REINITIALIZE STATUS TO KERNEL MODE
:LOAD R4 WITH THE ADDRESS OF THE ADDRESS TABLE
:R5 IS A COUNTER OF THE PDR'S LErT TO CHECK
;IN THE CURRENT SET
,CHECK THE CONTENTS OF THE PDR
:PDR INCORRECT - W BIT SET OR ANOTHER
:BIT INCORRECT IN PDR WHOSE ADDRESS
: IS IN THE LOCATION POINTED TO BY H4
: TEST ALL PDR' SIN THE SET
;MOVE POINTER TO FIRST ADDRESS OF NEXT SET
; BRANCH If' DONE
:LOAD RO WITH THE ADDRESS OF THE STATE TABLE
:R1 POINTS TO THE ADDRESS
:OF THE 1ST PDR IN THIS MODE
,SET UP VIRTUAL ADDRESS TO BE REFEHENCED IN R2
; SET UP STATUS fOR THE CURRENT MODE
:TURN ON KTll-C
,WRITE INTO THE PAGE BEING TESTED
;TURN OFF KT11-C
:CHECK THE W BIT
THE W BIT WAS fIIOT SET IN THE PDR
WHOSE ADDRESS IS POINTED TO BY R1,
ArTER THE CORRESPONDING PAGE WAS
WRITTEN

DCKTA
MACYll.624
DCKTAB.Pll

22-AUG-n

012256
012262

012703

001454

012704

000020

012266
012270

020103
001405

012272
012300
012302

032773
001401
104006

012304
012306
012310

005723
077411
062703

012314
012320

020327
002760

001752

012322
012330
012336
012340

012771
032771
001401
104006

077406
000100

012342
012344
012350
012352
012356
012360
012364

005721
062702
103330
020027
002720
005077
005077

012370
012372
011400
012404
012410
012414
012422
012424

104400
012737
005037
012706
004767
026727
001401
104006

012426
012434
012440
012446
012454
012462
012470

0127('7
004767
012777
012777
012777
012717
012737

DCKTA
MACYll.624
DCKTAB,Pll

000100

14114

000000

000040

000000
000000

020000
002002
167064
167044

000032
177776
001400
00364b
167412

000400
003664
007600
007600
007600
000007
040000

22-AUG-73

012476
012502
012510
012514
012520
012524

012706
012737
012706
005037
012104
012705

001000
140000
000400
177'776
001454
000020

012530
012534
012536

022734
001401
104006

077406

012540
012542
012546
012552
012554
012556
012562

077505
062704
020427
003001
000763
012100
012001

012564
012570
012574
012600
012604
012606
012612
012620
012622

062701
012702
012037
005271
011212
005077
032771
001001
10400&

000020
017176
177176
166630

012624
012630
012634
012636

012703
012704
020103
001405

001454
000020

o t 2640
012646
012650

032773
001401
104006

000100

012652
012654
012656

005723
077 411
062703

012662

001752

012666

020327
002760

012670

012771

077406

177570

000032

,NOW CHECK ALL PDR'S TO SHOW THAT NO OTHER W-BITS WERE SET
MOV
UORTAB,R3
,R3 POINTS TO THE AODIlESS OF THE
LOP31EI MOV
120,R4
:PDR BEING CHECKED
LOP3!FI CMP
Rl, R3
,DON'T CHECK THIS PDR IF IT IS THt:
BEQ
CNT311:1
,ONE WHOSE W-BIT SHOULD HAVE BEEN
,SET (CORRESPOND I NG TO THt: PAGE WRl TTt:N)
BIT
UOO,~CR3)
,CHECK THE W-BIT
BEQ
• +4
HLT
I W BIT SET IN THE POR WHOSE ADDRESS
:IS POINTED TO IlY R3. AS WELL AS
I IN THE PDR CORRESPONDING TO THE PAGE
ITHAT WAS WRITTI::N (ADDRESS OF PDR
,CORRESPONDING TO THE PAGE THAT
,"'AS WRITTEN IS POINTED TO IIY Rl)
CNT3IB: TST
(R3) +
,MOVE POINTER
SOB
R4,LOP3IF
,CHECK ALL PDR'S IN THIS GROUP
ADD
HO,R3
,IF DONt: WITH THIS GROUP, MOVE PO I HTE"
:TO NEXT GROUP OF ADDRESSES
CMP
R3, IAOREND
: BRANCH I F SOME PDP' S NOT YET CHECKED
BLT
LOP31E
,SHOW THAT WRlTING THE PDR WILL CLEAR THE W BIT
MOV
177406'(!I(Rl)
,CLEAR W BIT VIA DATO TO PDR
BIT
.IOO,~(RI)
,CHECK W BIT
BEQ
.+.4
HLT
,,,, ElIT DIDN'T CLEAR WHEN PDR
,WAS WRITTEN (Rl POINTS TO
,THE ADDRESS OF THE PDR)
CNT31C: TST
(Rl)+
,MOVE POINTER
ADD
120000,R2
:CHANGE VA TO RE:Ft:RENCE NEXT PAGE
BCC
LOP31D
I BRANCH TO TEST NEXT PAGE IN THIS MODE
CMP
RO,ilSTAEND
,IF DONE IN THIS MODE, CHECK t"OR Al.L MODES DONE:
BLT
LoP31C
,LOOP UNTIL ALL MODES HAVE BEEN TE:;TED
CLR
€ISR3
IREINITlALIZE SII3
CLR
~SRO
,REINITlALIZE SRO
,NOW TEST ALL D-SPACE PDR'S
1ALL D SPACES ARE ENABLED
TEST32: SCOpE
MOV
1l2,(uSR
CLR
~'PS
IKSTACK,SP
MOV
JSR
",SETUP
CMP
TESTCT,1l2
BEQ
,+4
HLT

004244

14: 14

177776

001770

000000

000040

000000

:DISPLAY TEST NUMBEII
:INITIALIZE PROCESSOR STATUS
'INITIALIZE KERNEL STACK POiNTEf(
,INITIALIZE SRO,SII3
,IS THIS TEST BUNG EXECUTED IN THt;
,CORRECT SEQUENCE?- BRANCH IF YES
I TEST EXECUTED OUT ut" SEQUENCE- TESTCT
,CONTAINS NUMIlEII OF PREVIOUS TEST ~LUS ONE:

MoV
JSR
MOV
MOV
MOV
MOV
MoV

,400, ICOUNT
" ,RWALL
17600, ~KDPAR7
11600, tdSDPAR7
17600, i!lUDPAR7
17 ,~SR3
HOOOO,UPS

:LOAD ITERATION COUNT
,MAp ALL pAGES 4K, BANK 0, IIW
,MAP KERNEL 7 D-SPACE TO EXTERNAL tlANK
IMAP SUPERVISOR 7 O-SPACE TO EXTERNAL BANK
,MAP USER 7 D-SPACE TO EXTERNAL BANK
,ENABLE ALL D-SPACES
: SET MODE TO SUPEIIV ISoR

MoV
MOV
MOV
CLR
MOV
LOP32A: MOV

ISSTACK,R6
U40000,UPS
'USTACK,R&
!lWPS
IADRTAB,R4
120,R5

LOP32B: CMP
BEQ
HLT

n1406,~(R4)+

,SET UP SUPERVISOR STACK
:SET MODE TO USER
,SET UP USER STACK
:REINITIALIZE STATUS TO KEIINEL MODt:
,LOAD R4 WITH THE ADDRESS Of THt: AuDRt:SS TABLE
I (0(5 IS A COUNTE" OF THE PDR' S Lt::f'T TO CHECK
I IN THE CURRENT SET
,CHECK THE CONTENTS Of" THE PDR

SOB
ADD
CMP
BGT
BR
CNT32A: MOV
LoP32C: MOV

R5,LOP32B
.40,R4
R4, ,ADREND
CNT32A
LOP32A
'STATAB,RO
(ROH,R1

ADO
MOV
MOV
LOP32D: INC
MOV
CLR
BIT
SNE
HLT

'20,Rl
117176,R2
(ROH,UPS

167304
167176
167070
166760
177776

000040
001752

1&6622
000100

PAGE 41

PAGE 42

.+4

~SRO

(R2),(R2)
~SRO

UOO,i!l(Rl)
.+4

: PDII INCORRECT - W BIT SET OR ANOTHER
:BIT INCORRECT IN PDR WHOSE ADDRESS
,IS IN THE LOCAllON POINTED TO BY 1(4
: TEST ALL POR' S IN THE SET
: MOVE POINTER TO FIRST ADDRt:SS OF NEXT SET
,BRANCH If DONE
,LOAD RO WITH THE ADDRESS OF THE STATE TABLt:
IRl POINTS TO THE ADDRESS
10F THE 1ST PDR IN THIS MODE
,SET UP VIRTUAL ADDRESS TO BE REFEHENCED IN 112
: SET UP STATUS FOR THE CURRENT MODI::
,TURN ON KT11-C
,WRITE INTO THE PAGE BEING TESTED
,TURN OFF KT11-C
,CHECK THE W BIT

;THE W BIT WAS NOT SET IN THE PDR
,WHOSE ADDRESS IS POINTED TO BY Rl,
; AFTER THE CORRESPONDING PAGE WAS
,WRITTEN
I NOW CHECK ALL PDR'S TO SHOll THAT NO OTHER W-BITS WERE SET
MOV
; R3 POINTS TO THE ADDRESS ot" THE
'ADRTAB,R3
;PDR BEING CHECKED
LOP32E: MOV
120,R4
:DON'T CHECK THIS PDR IF IT IS THE
LOP32F: CMP
Rl,R3
BEQ
CNT32B
lONE WHOSE W-B IT SHOULD HAVE BEEN
:SET (CORRESPUNDING TO THE ~AGE wRlTTEN)
BIT
t100.~(R3)
:CHECK THE W-BIT
BEQ
.+4
,W BIT SET IN THE PDR WHOSE ADDRESS
HLT
: IS POINTED TO BY R3, AS "'ELL AS
: IN THE PDR CORRESPONDING TO THE PAGE
I THAT WAS WRITTEN (ADDRESS OF PDR
,CORRESPONDING TO THE PAGE THAT
,WAS WRITTEN IS POINTED TO BY Rl)
(R3)+
,MOVE POINTER
CNT32B: TST
:CHECK ALL PDR'S IN THIS GROUP
SOB
R4,LoP32F
JIF DONE WlTH THIS GROUP, MOVE POINTEII
ADD
.40, R3
I TO NEXT GROUP OF ADDRESSES
:BRANCH IF SOME PDR'S NOT yt;T C~"!.:"'''I)
CMP
R 3,. ADREND
BLT
LOP32E
,SHOW THAT WRITING THE PDR WILL CLEAR THE W BIT
MOV
177406,~(Rl )
,CLEAR W BIT VIA DATO TO PDP

DCKTA
MAC¥11.624
DCKTAB.Pll

22-AUG-73

012676
012704
012706

032771
001401
10400&

012710
012712
012716
012720
012724
012726
012732

005721
0&2702
103330
020027
002716
005077
005077

01273&
012740
012746
012752
012756
012762
012770
012772

104400
012737
005037
012706
004767
026727
001401
10400&

012774
013000
013006
013014
013022
013026
013032
013036
013040
013042
013050
013052

004767
012777
012777
012777
005077
005277
005737
000000
000405
022777
001401
104006

003324
000003
007600
013042
166770
166402
030000

013054
013060

005077
016777

166354
166732

013066
013070
013076
013102
013106
013112
013120

104400
012737
005037
Oi2706
004767
026727
001401

DCKTA
MACYll.b24
DCKTAB.Pl1

000100

104006

013124
013130
013134
013142
013146
013154
013160
013164
013172
013200
013206
013214
013222
013230
013236
013244
013252
013260
013264
013270
013276
013304
013312
013320
013326
013334
013342
013346
013350
013352
013354
013362
013370
013374
013376
013400
013402
013410
013416
013422
013424
013426
013430
013436
013440
013442
013450
013452
013454
013462
013464

004767
012706
012737
012706
012737
012706
005037
012777
012777
012777
012777
012777
012717
012777
012777
012777
012737
005037
016701
012777
012777
012777
012777
012777
012777
012777
005277
000004
000240
005011
012737
012737
005277
000004
000240
005011
012737
012737
005277
000004
000240
005011
022737
001401
104006
022737
001401
104006
022737
001401
104006

PAGE 43

000000

020000
002002
166516
166476

000033
177776
001400
003300
167044

140003

000034
177776
001400
003150
166714

22-AUG-73

013122

14:14

177570

000033

BIT
BEQ
HLT

UOO,(a(Rl)
• +4

CNT32C: TST
ADD
BCC
CMP
BLT
CLR
CLR

(Rl)+
.20000, R2
LOP32D
RO, .STAEND
LOP32C
(aSR3
(aSIlO

166726

177570

000034

14:14

J\<I BIT DIDN'T CLEAR wHEN PDR

RETH:

JSR
MOV
MOV
MOV
CLR
INC
TST
HALT
BR
CMP
BEQ
HLT

DONE)): CLR
MOV

%7,RWALL
B,(aKIpDRl
n600,(aKIPAR7
IRET33, (aKTVEC
(aKTSTA
(aSRO
(anOOoo
DONE33
#140003,@SRO
.+4

013400
040000
166040

177776
177776

166462
166354
166246
166460
166352
166244
166476
166370
166262
000720

166152
166406
166440
166272
166324
166156
166210

000720
000722

@SRO
KTSTA,(aKTVEC

000720
000722

013350

001374

000000

001376

013376

000774

;TURN ON KTll-C
: REFERENCE HR KERNEL 1 :NO NR ABORT

SHOULD ABlJRT

:CHECK SRO

:RESTORE TRAP CATCHER

:SHOW THAT KERNEL, USER, AND SUPERVISOR STACKS ARE IN THE
:RESPECTIVE D-SPACES WHEN O-SPACE ENABLES ARE SET
:D-SPACES ARE OFFSET FROM I-SPACES, AND AN lOT IS DONE TO
:EACH MUDE. THE LOCATION WRITTEN INTO WHEN THE STACK 15 PUSHED
:SHOWS WHICH SPACE WAS USED BY THAT STACK
TEST34: SCOPE
MOV
134,@ISR
:DISPLAY TEST NUMBER
CLR
@IPS
:INlTIALIZE PROCESSOR STATUS
MOV
'KSTACK,SP
: INITIALIZE KERNEL STACK POINTER
JSR
%7,SETUP
:INITIALIZE SRO,SR3
CMP
TESTCT, 134
: IS THIS TEST BEING EXECUTED IN THE
BEQ
• +4
:CORRECT SEQUENCE?- BRANCH IF YES

PAGE 44

JSR
MOV
MOV
MOV
MoV
MOV
CLR
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
INC
KTRP34: lOT
NOP
KRET34: CLR
MOV
~OV

INC
lOT
NOP
SRET34: CLR
MOV
MOV
INC
UTRP34: lOT
NOP
URET34: CLR
CMP
BEQ
HLT
CMP
8EQ
HLT
CMP
BEQ
HLT

:TEST EXECUTED OUT OF SEQUENCE- TESTC1'
:CONTAINS NUMBER OF PREVIOUS TEST PLUS ONE

%7 .CLRALL
!50Q, S?
140000, (alPS
#lOO,SP
U40000,@.PS
UOO.SP
@IPS
t71406,@KIPORO
#77406.@SIPDRO
n7406,@UIPDRO
#2006,@KDPDRO
#6,@SDPDRO
#6,@UDPDRO
t7,(!lKDPARO
.,,(aSDPARO
#3,@UDPARO
ilKRET34,0I1I720
U722
SRO,R1
",@SR)
n7406, (aKDPDR7
17600, (!lKDPAR7
n7406,@SDPDR7
17600, @snpAR7
177406, I!IUDPDR7
17600,@UDPAR7
I!ISRO

@R1
#SRET34,@t720
140000, @1722
taSRO

STRP34:

013426
140000
166012

:MAP ALL PAGES RW,4K,BANK 0
:MAp KERNEL I-SPACE 1 NR, 1 PAGE
:MAP KERNEL 7 I-SPACE TO THE EXTERNAL BANK
: SETUP ABORT RETURN

: SRO 1 NCORRECT - SHOULD SHOW REFERENCE
: TO KERNEL I -SPACE PAGE 1, ANO BOTH
: NR AND PL ERRORS SHOULD BE SET

HLT

003144
000500
040000
000100
140000
000100
177776
077406
077406
077 406
002006
000006
000006
000007
000007
000003
013352
000722
166144
000007
077406
007600
077406
007600
077406
007600
1&6066

:WAS WRITTEN (Rl POINTS TO
: THE ADDRESS OF THE PDR)
,MOVE POINTER
:CHANGE VA TO REFERENCE NEXT PAGE
:BRANCH TO TEST NEXT PAGE IN THIS MODE
: IF DONE IN THIS MODE, CHECK FOR ALL MODES DONE
:LOOP UNTIL ALL MODES HAVE BEEN TESTED
,REINITIALIZE 5113
:REINITIALIZE SRO

:SHOW TIlAT A REFERENCE TO A NR PAGE WILL SET BOTH THE Nil AND PL
:ERROR BITS IF IT IS OUTSIDE THE MAPPED PAGE LENGTH
TEST33: SCOPE
MOV
t33,(ilISR
,DISPLAY TEST NUMBER
CLR
(a liPS
: INITIALIZE PROCESSOR STATUS
MOV
'KSTACK,SP
:INITIALIZE KERNEL STACK POINTER
JSR
\7,SETUP
;INITIALIZE SRO,SR3
CMP
TESTCT"33
:15 THIS TEST BEING EXECUTED IN TH~
SEQ
• +4
:CORRECT SEQUENCE?- BRANCH IF YES
HLT
:TEST EXECUTED OUT OF SEQUENCE- TESTCT
:CONTAINS NUMBER UF PREVIOllS TEST PLUS ONE

166650
166716
166772

166364

:CHECK W BIT

!lRI
.URET34, U 720
1140000,U?22
@SRO

taR1
.KRET34-2,lilf1374
.+4

#SRET34-2,@1774
.+4

:INITIALIZE ALL KTll-C REGISTERS
: SET THE KERNEL STACK TO V!RTUAL AllDRESS 500
;SET THE SUPERVISOR STACK TO VIRTUAL ADDRESS 100
;SET THE USER STACK TO VA 100
;MAP KERNEL, SUPERVISOR, AND USER PAGE 0
;I-SPACES TO BANK 0, 4K, RW
:MAP KERNEL, SUPERVISOR, AND USER
;D SPACES TU BANK 0 (BUT OFFSET
:FROM PHYSICAL ADDRESS 0), RIO
;KERNEL D SPACE STARTS AT 700
:SUPERVISOR 0 SPACE STARTS AT 700
;USER D SPACE STARTS AT 300
: TEST USING lOT TRAP (THRU KERNI::L II SPACE)
: SETUP TO RETURN FROM TRAP IN KERNI::L MODE
;LOAD Rl TO RI::FERENCE SRO
,TURN ON"ALL D-SPACE ENABLES
; MAP KERNEL D SPACE PAGE 7
;TO THE EXTERNAL BANK, RIO
:MAP SUPERVISOR D-SPACE PAGE 7
;TO THE EXTERNAL BANK, RW
:MAP USER D-SPACE PAGE 7
;TO THE EXTERNAL BANK, RW
:TURN ON KT1'-C
: lOT TRAP SHOULD USE STACK IN KERNI=:L D-SPACE
,SINCE STATUS IN lOT VECTOR IS SET TO Kt.RNEL
;TURN OFF KTll-C
,SETUP ~'OR lOT TO SUPERVISOR STACK
:TURN ON KTI1-C
:IoT TRAP SHOULD USE STACK IN SUPERVISOR D-SPACE
:SINCE STATUS IN lOT VECTOR IS SET TO SUPERVISOR
: TURN OfF KT ll-C
: SETUP FOR lOT TO USER
:TURN ON KT1'-C
: lOT TRAP SHOULD USE STACK IN USER D-SPACE
;SINCE STATUS It. rOT VECTOR IS SET TO USER
: TURN OfF' KTll-C
:CHECK TO SEE IF lOT TRAP TO KERNEL PUSHED
:VALUE IN KERNEL D-SPACE
;KERNEL STACK CONTENTS WRONG. STACK NOT
,IN KERNEL O-SPACE
KERNEL STACK CONTENTS WRONG-TRAP STATUS NOT
WHERE IT SHOULD HAVE BEEN PUSHED
OR VALUE WRONG
SUPERVISOR STACK CONTENTS WRONG-STACK

OCKTA
MACYl1.624
OCKTAS.Pll

22-AUG-73

013466
013474
013476
013500
013506
013510
013512
013520
013522

022737
001401
104006
022737
001401
104006
022737
001401
104006

013524
013530
013534
013540
013544
013550
013554
013560
013564

005037
005037
005037
005037
005037
005037
005037
005037
012706

000000

000374

040000

000376

000374
000376

004767
012777
012777
012777
016701
012737
012706
012737
012706
005037
012706

002472
000001
001bOO
007600
007600
165546
040000
001000
140000
000400
177776
001300

013722
013130
013736
013744

012777
012737
012137
012737

000007
014004
040000
013774

000035
177776
001400
002446
166212

22-AUG-73

012737
012737
005277
104400

013174
013176
014000

022626
005011
104006

014002
014004
014006
014010
014016
014022
014030
014034
014042
014050
014056
014064
014072
014076

000402
022626
005011
012731
005037
012737
005037
012737
012737
012737
012137
012137
005277
104000

014100
014102
014104
014112
014120
014122
014124
014126
014130
014136
014144
014152
014156
014164
014172
014176
014202
014206
014212

022626
005011
012737
012137
104006
000410
022626
005011
012737
012737
012737
005037
012737
012737
005037
005037
005037
005277
000004

014214
014216
014220
014222
014224
014226
014230
014236
014244
014252

022626
005011
104006
000402
022626
005011
012737
012137
012737
012737

CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
MOV

000722
00077 4
000776
001374
001376
001400

013626
013632
013640
013646
013654
013662
013666
013674
013700
013706
013712
013716

013752
013760
013766
013772

CMP
SEQ
HLT
CMP
SEQ
HLT
CMP
SEQ
HLT

OO1t120

104400
012737
005037
012706
004767
026727
001401
104006

DCKTA
MAC'i11.624
DCKTAB.Pll

PAGE 45

000776

013424

013570
013572
013600
013604
013610
013614
013622
013624

Oi2117

14114

040000
040000
165442

177570

000035

177776
177776

165520
000134
000136
000034

TRP35:
NG35A:

OK35A:
000034

017324
000340

000030
000032

EMT35:

000134
000130
000030
000132
000032
177776

NG35BI

OK35B:

017324
000340
000132
000132
014224
014214
000122
000022
177776
165222

000030
000032
000130

IOT35:

000120
000020

NG35C I

OK35C:
000022
000122
014346
014332

000020
000120
000164
000064

HOOOO,U376
.+4

U374
U376
U720
"722
U774
U776
1ilt1374
U1376
'KSTACK,SP

,USER STACK WRONG-TRAP STATUS
I NOT WHERE IT SHOULD HAVE BEEN
I PUSHED OR VALUE WRONG
,REINITULIZE LOCATIONS CHECKED

:RESTORE KERNEL STACK POINTER

JSR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV

,7,RWALL
.1, ilKOPARO
;7600, (lKDPAR7
"600,@SOPAR7
17600,iIUDPAR7
SRO,Rl
140000,@jPS
'SSTACK,SP

I MAP ALL PAGES RW, 4K, BANK 0
: OFFSET KERNEL 0 lJ·SpAC~ 1 pAGE
: MAP KERNEL 7 TO TH~ EXTERNAL BANK
'MAP SUPERVISOR 7 TO THt: t:XTERNAL ~ANK
I MAP USER 7 TO THt: EXTERNAL BANK
,SETUP R 1 .TU REf"ERENCE SRO
,SETUP SUPERVISOR STACK

1140000,li~PS

,SETUP USER STACK

MOV
MOV
MOV
MOV

I7dl SR3
,OK35A,li'l34
140000,filt136
.NG35A,iII34

MOV
MOV
INC
TRAP

1140000, li136
140000, ilfPS
ilSRO

CMP
CLR
HLT

(SP)+,(SP)+
ilR1

BR
CMP
CLR
MOV
CLR
MOV
CLR
MOV
MOV
MOV
MOV
MOV
INC
EMT

EMT35
(SP)+, (SP)+
(aRI
.SCOPEC,il134
U36
1136,il1134
U136
.OK35B,ilU30
.NG35B,U30
U40000,il1132
U40000,U32
U40000,liIPS
@SRO

CMP
CLR
MOV
MOV
HLT
BR
CMP
CLR
MOV
MOV
MOV
CLR
MOV
MOV
CLR
CLR
CLR
INC
lOT

(SP)+, (SP)+
ilRI
'EMTSRV, ill 30
1340,il132

'USTACK,SP
(lIPS
IKSTACK-l 00, SP

; LOWER THE KERN~L STACK POINTER TO
,KEt:P IT OUT OF CUDt: WHEN HELOCATELl
,SET ALL D-SPACE ENAIILES
,IF SUCCEssrUL, WILL PICK UP VECTUR
,RETURN IN PHYSICAL ADDRESS 134
,IF NO GOOD, WILL PICK UP VECTOR RETURN

PAGE 46

000036
177776

016552
000036
000136
000136
014124
014100
140000
140000
140000
165336

.URET34-2,IH374
.+4

,NOT IN SUPERVISOR O-SPACE
,SUPERVISOR STACK WRONG-TRAP STATUS
,NOT WHERE IT SHOULD HAVE BEEN PUSHt:D
lOR VALUE WRONG
,USER STACK CONTENTS WRONG-STACK
,NOT IN USER O-SPAce;

,SHOW THAT TRAP,EMT, lOT, AND INTERRUPTS TAKE VECTORS FROM KERNt:L
,D-SPACE IRREGAROLESS OF THE MODE AT THE TIME Of" THE TRAp SEQUENCE
:ALSO SHOW THAT ODD-ADDRESS TRAP (AN "INTERNAL" TRAP) TAKt:S
,ITS VECTOR FROM KERNEL D-SPACE
,NOTE THAT IF DUAL ADDRESSING OCCURS, THE ERROR
,ADDRESS WILL BE USED (THE 0 OVERRIDES THE 1)
TEST351 SCOPE
MOV
135, USR
IDISPLAY TEST NUM~ER
CLR
UPS
,INITIALIZE PROCESSOR STATUS
MOV
,KSTACK,SP
I INITIALIZE KERNEL STACK POINTER
JSR
,7,SETUP
,INITIALIZE SRO,SR3
CMP
TESTCT,135
,IS THIS TEST BEING EXECUTED IN THt:
BEQ
:CORRECT SEQUENCE?- BRANCH IF YES
• +4
HLT
,TEST EXECUTED OUT UF SEQUENCE- TESTCT
ICONTAINS NUMBEfi OF PRf.VIOUS TEST PLUS UNE

166074
ib6104
16577b
165670

14: 14

.0,U776
.+4

IN'f35:

IOT35
(SP)+, (SP)+
ilRI
.EMTSRV, ill 30
,340, ill 32
U32,i11130
ilI132
,OK35C,,11120
.NG35C, ill 20
@U22
liI22
UPS
ilSRO

lIN PHYSICAL ADDRESS 34
ISET MODE TU SUpERVISOR
,TURN ON KTll-C
,SHOULD PICK UP Rt:TURN ADDRESS ~'RU'"
,KERNEL D-SPACE
IRESTORE STACK POINTER
,TURN OFF KTl1-C
; TRAP VECTOR WASN'T FROM KERNEL
ID-SPACE
,GO TO NEXT SUB TEST
,RESTORt: STACK POINTER
ITURN OFF KTll-C
,RESTORE TRAP VECTOR CONTENTS

,SETUP SUCCESS RETURN
,St:TUP fAILURE RETURN

,SET MODE TO USER
ITURN ON KTl1-C
,SHOULD PICK UP RETURN ADDRESS FROM
IKERNEL D-SPACE
,RESTORE STACK POINTER
,TURN OFF KTI1-C
IRESTORE EMT SERVICE POINTER
:EMT VECTOR WASN'T TAKEN FRUM KERNEL
,D-SPACE
I RESTORE STACK pOINTER
;TURN OFF KT11-C
,RESTORE EMT SEflVICE POINTER

,SETUP lOT SUCCESS RETURN
:SETUP lOT FAILURE RETURN

CMP
CLf!
HLT
BR
CMP

INT35
(SP)+, (SP)+

eLI(

t't<l

MOV
MOV
MOV
MOV

t22'~'20

,SET MODE TO KEI<Nt:L
ITURN ON KTll-C
,SHOULD PICK UP RETURN ADDRESS FROM
IKERNEL D - SPACE
,RESTORE STACK POINTER
,TURN OFF KTll-C
: lOT VECTOR WASh'T TAKEN FROM KERNt:L
,D-SPACE
,RESTORE STACK POlNTER
i:"UR:l Off ~r!!-c
IRESTORE VECTOR LOCATIONS

H22,IiIU20
.OK35D,ilI164
tNG35D,ilt64

, SETUP TTY SUCCESS RETURN
,SETUP TTY FAILURE RETURN

(SP)+, (SP)+
ilRl

DCKTA
MAcYll.624
DCKTAB.Pll

22-AUG-73

014260
014266
014274
014302
014306
014314
014316
014320
014322
014326

012737
012737
012737
005277

014330
014332
014334

000412

014336
014342
014344
014346
014350

014352
01435&
014364
014370
014376
014402
014406
014414
014420
014426

012777
000240
000240
005011
005077
104006
022626
005011
005077
104006
000404
005011
005077
012737
005037

012737

014440
014444
014450
014452
014454

022626
005011
104006

014456
014460
014462
014464
014472
014500

000402
022626
005011
012737
012737
005037

014504
014506
014514
014520
014524
014530

000166
000066
177776
165106

165074

NG35D:
165060

OK35D:
165044
000062
000062
000162
000162
177776
014460
000106
014450
000006
140000
164770
000001

000060

005031
012706
004767

026727

000104
000004
177776

NG35E:

OK35E:
000006
000106
177776

000036
17777b
001400
001532
165276

22-AUG-73

014536
014540

001401
104006

014542

004767
012777
012777
012777
012777
012777

000004
000104

001526
077406
007600
077406
077406
077400

177570

000036

14:14

012777

000007

012777

014646

005077
005277
013737

165172
164604

014&36
014642
014644
014646
014654
014662
014664
014666
014674
014676
014702
014710

005077
104006
000526
042777
022777
001401
104006
012777
022626
012702
052777
012242

014712
014716
014720

005077
104006
000500

164516

014722
014730
014736
014740
014742
014750
014752
014754
014762
014764

042777
022777

000001
100022

164504
164476

000027

164470

014630

164462

ADR36:

164572

00000 1
100022

164560
164552

014722

165120

037-776
000001

164524

014772
014774
014776
015000
015006

022626
012777
005077

015044
164422

015012

105777

164420

CMP
CLR
HLT

(SP)+, (SP)+
@RI

BR
CMP
CLR
MOV
MOV
CLR

END35
(SP)+, (SP)+
@RI
t6,1It4
1106,@004
@#PS

014712

165006

@Rl
@TCSR
ODD AD
(SP)+, (SP)+
@Rl
@TCSR
ODDAD
(SP)+, (SP)+
@Rl
IITCSR
#62,11.60
11#62
1162,i!lU60
@#162
i!lIPS
tOK35E,@U04
@U06
tNG35E,@#4
11#6
040000,i!l#PS
IISRO
i!lll

SET MODE TO SUPERVISOR
TURN ON KT11-C
SET TTY INTERRUPT ENABLE-SHOULD
INTERRUPT IMMED IATELY
; TURN orF KT l1-C
; CLEAR TTY IE
;TTY fAILED TO INTERRUPT
;RESTORE STACK POINTER
;TURN OFF KT11-C
;CLEAR TTY IE
;TTY INTERRUPT WASN'T TAK~N FROM
:KERNEL D-SPACE
:RESTORE STACK POINTER
I TURN OFf KT 11-C
,CLEAR TTY IE
; RESTORE TTY VECTOR R~TURN TO CAUS~
:A HALT ON A FALSE INTERRUPT

,RESTORE STATUS TO KERNEL
,SETUP INTERNAL TRAP SUCCESS RETURN
,SETUP INTERNAL TRAP FAILURE RETURN
: SET MODE ToO USI£R
:TURN ON KT11-C
: ODD ADDRESS REFERENCE - AN "INTERNAL
:TRAp· SHOULD OCCUR
;RESTORE STACK POINTER
:TURN OFF KTII-C
;000 ADDRESS TRAP DIDN'T TAKE
:VECTOR FROM KERNI£L D-SPACE
: RESTORE STACK POINTER
:TURN OFF KTI1-C
,RESTORI£ TRAP CATCHI£R
:REINITIALIZE PROCESSOR STATUS

INT36:

BEQ
HLT

,+4

,CORRECT SEQUENCE?- BRANCH IF YES
:TEST EXECUTED OUT OF SEQUENCE- TESTCT
:CONTAINS NUMBER OF PREVIOUS TEST pLUS ONE

JSll
MOV
MOV
MOV
MOV
MOV

%7,CLRALL

:CLEAR ALL KT110:0C REGISTERS

# 77 406, IIKDPDR7

MOV
MOV
CLR
INC
MOV

117,@SR3
UNT36,@KTVEC
IIKTSTA
@SRO
@137776,1I07776

; MAP KERNI£L 7 D-SPACE RW, 4K,
: EXTERNAL BANK
:MAP KERNEL 0 I AND D-SPACES
;RW,4K, BANKO
,MAP KERNEL 1 D-SPACE NR
;4K, BANK 0
; ENABLE ALL D-SPACES
: SETUP ABORT RETURN VECTOR

CLR
HLT
SR
SIC
CMP
BI£Q
HLT
MOV
CMP
MOV
BIS
MOV

ADR36A: CLR
HLT
BR

001401
104006
001401
104006
022777
001401
104006
021627
001401
104006

014766

164636
165174

037776

U40000,lIt166
1140000,11.66
140000, UPS
!lSRO
tlOO,@TCSR

PAGI£ 48

165076

014620
014624
014630

MOV
MOV
MOV
INC
MOV
NOP
NOP
CLR
CLR
HLT
BR
CMP
CLR
CLR
HLT
BR
CMP
CLR
CLR
MOV
CLR
MOV
CLR
CLR
MOV
CLR
MOV
CLR
MOV
INC
TST

:5HOW THAT THE ABORT LOGIC "LOCKS" SRO, SRI, AND SR2 AFTER A
: NON-RESIDENT ABORT UNTIL THE CORRESPONDING ABORT BIT IS CL~ARED IN SRO,
;WHEN THEY RESUME TRACKING, A NON-RESIDENT ERROR SHOULD STILL ABORT
:TO 250 EVEN WHEN BIT 15 (SRO) IS ALREADY SET
TEST36: SCOPE
MOV
:DISPLAY TEST NUMBER
t36,i!l.SR
@IPS
: INI TIALIZE PROCESSOR STATUS
CLR
: INITIALIZE KERNEL STACK POINTER
MOV
'KSTACK,SP
I INITIALIZE SRO,SR3
%7,SETUP
JSR
; IS THIS TEST BE:ING EXECUTED IN THI;;
CMP
TESTCT, #36

165072

014604

037776

END35 :

16513&
165170
165064

014612

022777

ODDAD:

000160

104400

012737

DCKTA
MACY11,624
DCKTAB,Pl1

014546
014554
014562
014570
014576

PAGE: 47

022626

005037
005037
012737
005037
012737
005037
012737
005277
005737

014432

140000
140000
040000
165126
000100

14: 14

INT36A: BIC
CMP
BEQ
HLT
CMP
BEQ
HLT
CMP
BEQ
HLT
CMP
BEQ
HLT

"600,@KDPAR7
#77406,@KIPDRO
#7 7406, @KDPDRO
177400,@KDPDRI

@SRO
DONE36
#l,@SRO
U00022,@SRO
.+4
UNT36A,@KTVEC
(R6)+, (R6)+
137776,R2
tl,@SRO
(R2)+,-(R2)
@SRO
DONE36

11 ,@SRO
U00022,IISRO
.+4

:TURN ON KTll-C
,REFERENCE KERNEL 1 D-SPACE
:SHOULD CAUSE NON-RI£SIDi::NT ABORT
: TURN OfF KT 11-C
; REFERENCE TO KERNEL 1 D-SPACI£
:DIDN'T CAUSE NON-RI£SIDI!:NT ABORT
:TURN OFF KT11-C
;CHECK SRO
;SRO INCORRECT AFTER NON-RI£SIDENT ABORT
;SETUP NEW RETURN VECTOR
,RESTORE STACK POINTER
:SETUP R2 TO REFERENCE KERNEL 1
;TURN ON KT11-C
: REFERENCE KERNEL 1 D-SPACE
;SHOULD CAUSE A SECOND NON-RESIDENT ABORT
: TURN OFF KT l1-C
:2ND REFERENC~ TO KERNEL 1 D-SPACE
:DIDN'T ABORT - PREVIOUS ERROR FLA~
,NOT YET CLEARED BUT ABORT SHOULD
;STILL HAVE OCCURRED
;TURN OFF KT11-C
:CHECK SRO
;SRO INCORRECT AFTER 2ND NON-RESIDt:NT ABORT
;CHECK SR1 - SHOULD CONTAIN VALUE
:FROM 1ST ABORT
,SRI DOESN'T CO"'TAIN VALUE FROM 1ST ABORT
;CHECK SR2

(R6), .ADR36A
.+4

CMP
MOV
CLR

(R6)+, (R6)+
lINT 36B,@KTVEC
!lSRO

TSTB

IISROH

;SR2 DOESN'T CO"'TAIN VALUE FORUM 1ST ABORT
,CHECK ADDRESS PUSHED ON STACK
INCORRI£CT ADDRESS ON STACK - SHOULD BE
PC AT TIME SECOND ABORT OCCURRED
RESTOR~ STACK POINTER
CHANGE RETURN ADDRESS
CLEAR NON-RES IDENT ERROR BlT';'SHOULD
·UNLOCK" ERROR TRACKING
CHECK TO SEE THAT ERROR BIT CLEARI;;D

DCKTA
MAC¥11.624
DCKTAB.Pll
015016
015020
015022
015026
015032
015034
015040
015042
015044
015052

22-AUG-n

001401
104006
012702
005277
012242
005077
104006
000427

042777

BEQ

000001
100022

164362
164354

HLT
MOV
tHC
ADR36B 1 MOV
ADR36C: CLR
HLT
BR
INT36B: BIC
CIoIP

000022

164346

HLT
CMP

164374

015074
015076
015104
015106

022777
001401
104006

015032

015110
015114
015116
015120
015122
015126
015132

022716
001401
104006
022626
005077
005077
016777

015064

015072

015140
015142
015150
015154
015160

104400
012737
005037
012706
004767

oi5i64

02bi21

015172
015174

001401
104006

015176
015202
015210
015216
015224
015232
015240
015246
015254
015260
015264

BEQ
BEQ

015034

CMP

BEQ

tADR36C, (SP)
.+4

164306
164664
164660

HLT
CMP
DONE36: CLR
CLR
MOV

(R6)+, (R6)+
(lSRO
IlIKTSTA
KTSTA,IlIKTVEC

164654

000037

004767
012777
012777
012777
012777
012777

001072
077406
007600
077406
077406
017406

164502
164534
164430
164442
164436

012777
012777
005077
005277
013737

000007
015302
164536

177570

164150
037776

22-AUG-73

037776

14: 14

005077
104006
000500

164062

015356
015364
015372
015374
015376
015404
015406
015410
015416
015420

000001
040022

164050
164042

000027

164034

015264

164026

015426
015430

042777
022777
001401
104006
022777
001401
104006
022777
001401
104006
021621
001401
104006

015432
015434
015442

022626
012777
005077

015446
015452
015454
015456
015462
015466
015470
015474

105771
001401
104006
012702
005277
012242
005077

015476

000427
042777
022777
001401
104006
022777
001401
104006

ADR37:

164124
164116

015356

164464

037176
000001

164070

015500
163766

JSR
MOV
MOV
MOV
MOV
MOV

\7,CLRALL
t7 7406, (lKDpDR 7
n600,IiIKDPAR7
n740b,(lKIPDRO
17 7406, !lIKDPDRO
II 7406,!lIKDPDR1

MOV
MOV
CLR
INC
MOV

",(!ISR3
.INT37,(!IKTVEC
(lKTSTA
(!ISRO
IlIB7776,1lI07776

CLR
HLT
BR
BIC
CHI'
BEQ
HLT
MOV
CMP
MOV
BIS
MOV

(lSRO

INT37 :

ADR37A: CLR
HLT
BR

015346

164352

163764

037176
163746
163740

104006
000001
040022

163726
163720

000022

16371 2

,SRO INCORRI::CT AFTER NON-RESIDENT ABORT
,CHECK SRI
,SRI INCORRECT - SHUULD HAn: RECORt)ED
,CHANGES MADE DURING 3Rt) ABORTED Rt:rERENCE
,CHECK SR2
,SR2 INCORRECT - SHOULD CONTAIN
,LAST FETCH ADDRESS BEFORE ABORT
;CHECK STACK
,PC ON STACK INCORRECT
,RESTORE STACK POINTER
:CLEAR ERROR BIT
:CHANGE TRAP RETURN TO CAUSE A HALT
ION A FALSE INTERRUPT

,CLEAR ALL KTll-C REGISTERS
: MAp KERNEL 7 D-SpACE RW, 4K,
: EXTERNAL BANK
: MAP KERNEL 0 J AND D-SPACES
:RW,4K, BANKO
; MAP KERNEL 1 D-SPACE RW
:IK, BANK 0
: ENABLE ALL D-SPACES
,SETUP ABORT RETURN Vt:CTOR
,TURN ON KTI1-C
,REFERENCE KERNEL I D-SPACE

PAGE 50

164136

000001
040022

,SRO HIGH BtU INCORRECT
,SETUP R2 TO REF'ERENCE KERNEL
;TURN ON KT11-C
J3RO ABORT REFERENCE, ERRUR BIT WA:; CLEARED
,TURN OFF KT l1-C
,3RD REFERENCE TO KERt4EL 1 D-SPACIC
,DIDN'T CAUSE NON-RICSIDENT ABURT
1TURN OFF I<.Tll-C
,CHECK SRO

,SHOW THAT THE ABORT LOGIC "LOCKS" SRO, SRI, AND SR2 AFTER A
,pAGE LENGTH ABORT UNTIL THE CORRESpONDING ABORT BIT IS CLEARED IN SRO,
,WHEN THEY RESUME TRACKING. A PAGE LENGTH ERROR SHOULD STILL ABORT
,TO 250 EVEN WHEN BIT 14 (SRO) IS ALREADY SET
TES137: SCOPE
MOV
137,USR
,DISPLAY TEST NUMIlER
UPS
: INITIALIZE PROCESSOR STATUS
CLR
MOV
'KSTACK,SP
,INITIALIZE KERNEL STACK POINTER
JSR
",SETUP
,INITIALIZE SRO,SR3
eMP
1E5TCT,01
,11> Trill> TEI>T BUNG EXECUTED Iii in":
BEQ
.+4
;CORRECT SEQUENCE?- BRANCH IF YES
HLT
,TEST EXECUTED OUT Of SEQUENCE- TESTCT
,CONTAINS NUMBER Of PREVIOUS TEST I'LUS ONE

164202
164540

015346
015352
015354

015516
015520
015526
015530

122,(lSRI
.+4

UDR36B, (lSR2
.+4

005077
104006
000526
042777
022777
001401
104006
012777
022626
012702
052777
012242

015514

DONE36
U,(lSRO
'100022, I!lSRO
.+4

HLT

015272
015276
015300
015302
015310
015316
015320
015322
015330
015332
015336
015344

015500
015506

t37776,R2
(lSRO
(R2)+,-(R2)
I!lSRO

CMP
BEQ
HLT

164340

000037
177776
001400
001076
lb4642

DCKTA
MAC¥11.624
DCKTAB.Pll

015422

PAGE 49

037776
164402

022777
001401
104006
022777
001401
104006

015060
015062

14114

INT37A: BIC
CMP
BEQ
HLT
CMP
SEQ
HLT
CMP
BEQ
HLT
CHP
BEQ
HLT
CMP
MOV
CLR
TSTB
BEQ
HLT
MOV
INC
ADR37B: MOV
ADR37C: CLR
HLT
BR
INT37B: RIC
CMP
BEQ
HLT
CMP
BEQ
HLT

DONE37
11,!lISRO
140022, IiISRO
.+4
tINT37A,IlIKTVEC
(R6)+,(R6)+
t37776,R2
t1, !lISRO
(R2)+,-(R2)
IiISRO
DONE37

11,I[ISRO
140022,IlISRO
.+4
t27,(lSRI
.+4
tADR37,!lISR2
.+4
(R6), .ADR37A
• +4
(R6)+, (R6)+
IINT37B,(lKTVEC
!lISRO
!lSROH
.+4
B7776,R2
(lSRO
(R2)+,-(R2)
IISRO
DONE37
UdlSRO
.40022, (lSRO
.+4
122,i1iSRl
• +4

;SHOULD CAUSE PAGE LENGTH ABORT
,TURN OFF KT ll-C
,REt"ERENCE TO KERNEL 1 a-SPACE
,DIDN'T CAUSE PAGE LENGTH ABORT
,TURN OFF KTI1-C
,CHECK SRO
,SRO INCORRECT AFTER PAGE Lt:NGTH AtlDRT
,SETUP NEW RETURN VECTOR
,RESTORE STACK POINTER
;SETUP R2 TO REFEREt4Ct: KERNt:L I
,TURN ON KT11-C
,REFERENCE KERNEL 1 D-SPACE
:SHOULD CAUSE A SECOND PAGE: LENGTH ABORT
:TURN OFF KTll-C
,2ND REFERENCI:: TO KI::RNEL 1 D-SPACE
,DWN'T ABORT - PREVIOUS ERROR ~'LA\i
:NOT tET CLEARED BUT ABORT SHOULD
:STILL HAVE OCCURRED
,TURN OFF KT11-C
,CHECK SRO
,SRO INCORRECT AFTER 2ND PAGE LENG1'H ABORT
,CHECK SRI - SHUULD CONTAIN VALUE
; FROM 1ST ABORT
,SRI DOESN'T CONTAIN VALUE FRUM 1ST AIlOI<T
;CHECK SR2
;SR2 DOESN'T CONTAIN VALUE FROM IS1' ABOFT
,CHECK ADDRI::SS PUSHED ON STACK
,INCORRECT ADDRESS ON STACK - SHOULD bE
,PC AT TIME SECOND ABORT OCCURRt:D
:RESTORE STACK POINTER
;CHANGE RETURN ADDRESS
;CLEAR PAGE LENGTH ERROR BIT-SHDUL[)
; ·UNLOCK" ERROR TRACKING
:CHECK TO SEE THAT ERROR BIT CLICARt:t)
: :;Ro HIGH BYTE 1 NCOHHt.CT
: SETUP R2 TO REFERENCE KERNt:L 1
,TURN ON KT ll-C
:JRD ABORT REFERENCE, ERROR BIT WA:; CLEARED
:TURN OFF KTll-C
,3RD REFERENCI:: TO KERNEL 1 D-SPACE
:DIDN'T CAUSE PAGE LENGTH ABORT
,TURN OFF KTll-C
:CHECK SRO
ISRO INCORRECT AFTER PAGE LENGTH AIlORT
,CHECK SRI
ISR! INCORRECT - SHOULD HAVE RECORDED
,CHANGES MADE DURING 3RD AAORTED FEFERENCE

DCKTA
MACH1.624
DCKTAB.Pll

22-AUG-73

015532
015540
015542

022777
001401
104006

015466

015544
015550
015552
015554
015556
015562
015566

022116
001401
104006
022626
005077
005077
016777

015470

015574
015576
015604
015610
015614
015620
015626
015630

104400
012737
005037
012706
004767
026727
001401
104006

015632
015636
015644
015652
015660
015666

163652
164230
164224

14:14

PAGE 51

163704

164220

000040

004767
012777
012777
012777
012777
012777

000436
077406
007600
077406
077406
077 402

16404&
164100
163774
164006
1&4002

015674
015702
015710
015714
015720

012777
012777
005077
005277
013737

000007
015736
164102
163514
037776

015726
015732
015734
015736
015744
015752
015754
015756
015764
015766
015772
016000

005077
104006
000526
042777
022777
001401
104006
012777
022626
012702
052777
012242

163502

016002
016006

005077
104006

016010

000500

016012
016020
016026
016030
016032
016040
016042
016044
016052
016054
016056
016062
016064

042717
022777
001401
104006
022777
001401
104006
022777
001401
104006
021627
001401
t 04006

177570

CMP
BEQ
HLT
CMP
DONE37: CLR
CLR
MOV

UDR37C, (SP)
.+4

163546
164104

03777&

000001
020022

163470
1&3462

016012

164030

037776
000001

163434

ADR40:

INT40:

16342&

22-AUG-73

IADR37B,@SR2
.+4

JSR
MOV
MOV
MOV
MOV
MOV

%7,CLRALL
877406, !lKDPDR7
#1600,@KDPAR7
171406,@KIPDRO
07406, !lKDPDRO
#77402,!lKDPDRl

MOV
MOV
CLR
INC
MOV

87,@SR3
iI INT40, !lKTVEC
@KTSTA
@SRO
@#37776,@#37776

CLR
HLT
BR
SIC
CMP
BEQ
HLT
MOV
CMP
MOV
BIS
MOV

ADR40A: CLR
HLT

14: 14

1&3414
163406

013427

163400

015720

163372

016002

016066
016070
01607&

022&26
012777
005077

016102
016106
016110
016112
016116
016122
016124
016130
016132
016134
016142
016150
016152
016154
016162
016164

105777
001401
104006
012702
005277
012242
005017
104006
000427
042717
022777
001401
10400&
022717
001401
104006

1&3330

016166
016174
016176

016134
163332

163716

037176
163312
163304

000001
020022

1&3272
1&3264

171022

1&3256

022777
001401
104006

016122

163250

016200
016204
016206
016210
016212
016216
016222

02271&
001401
104006
022626
005077
005077
016777

016124

016230

104400

163216
163574
163570

:PC ON STACK INCORRECT
:RESTORE STACK POINTER
:CLEAR ERROR BIT
:CHANGE TRAP RETURN TO CAUSE A HALT
ION A FALSE INTERRUPT

@SRO
DONE40
11 ,@SRO
.20022,!lSRO
.+4
UNT40A, faKTVEC
(R6)+, (R6)+
#37776,R2
#1, !lSRO
(R2)+,-(R2)
@SRO

:CLEAR ALL KT11-C REGISTERS
: MAp KERNEL 7 D-SPACE RW, 4K,
: EXTERNAL BANK
: MAP KERNEL 0 I AND D-SPACES
:RW,4K, BANKO
:MAP KERNEL 1 D-SI'ACE RRO
:4K, BANK 0
: ENABLE ALL D-SPACES
: SETUP ABORT RETURN VECTOR
: TURN ON KT l1-C
: REfERENCE KERNEL I D-SPACE
:SHOULD CAUSE ACCESS VIOLATION ABOKT
:TURN OfF KTI1-C
:FEfERENCE TO KERNEL 1 D-SPACE
:DIDN'T CAUSE ACCESS VIOLATION ABURT
: TURN OFF KT 11-C
:CHECK SRO
:SRO INCORRECT AFTER ACCESS VlOLATiON ABORT
: SF-TUP NEW RETURN VECTOR
:RESTORE STACK POINTER
:SETUP R2 TO REfERENCE KERNEL
:TURN ON KTII-C
: REFERENCE KERNEL 1 D-SPACE
:SHOULD CAUSE A SECOND ACCESS VIOLATION ABORT
:TURN OFF KTll s C
: 2ND REFERENCE TO KERNEL 1 D-SPACE

PAGE 52

000001
020022

(R6)+, (R6)+
(aSRO
!lKTSTA
KTSTA, !lKTVEC

:CHECK SR2
:SR2 INCORRECT - SHOULD CONTAIN
: LAST FETCH ADDRESS BEFORE ABORT
:CHECK STACK

: SHOW TI1AT THE ABORT LOGIC "LOCKS" SRO, SRI, AND SR2 AFTER A
:ACCESS VIOLATION ABORT UNTIL TJ;E CORRESPONDING ABORT BIT IS CLEARED IN SRO,
: WHEN THEY RESUME TRACKING. A ACCESS VIOLATION ERROR SHOULD STILL ABORT
:TO 250 EVEN WHEN BIT 13 (SRO) IS ALREADY SET
TEST40: SCOPE
MOV
HO,fa.SR
:DISPLAY TEST NUMBER
CLR
@IPS
: INITIALIZE PROCESSOR STATUS
MOV
tKSTACK, SP
: INITIALIZE KERNEL STACK POINTER
JSR
%7, SETUP
: INITIALIZE SRO, SR3
CMP
TESTCT,140
: IS THIS TEST BEING EXECUTED IN THI::
BEQ
.+4
:CORRECT SEQUENCE?- BRANCH IF YES
HLT
: TEST EXECUTED OUT OF SEQUENCE- TESTC1'
:CONTAINS NUMBER OF PREVIOUS TEST I'LUS ONE

000040
177776
001400
000442
lb4206

DCKTA
MACYIl.624
DCKTAB.Pll

CMP
BEQ
HLT

163564

INT40A: BIC
CMP
BEQ
HLT
CMP
BEQ
HLT
CMP
BEQ
HLT
CMP
BEQ
HLT
CMP
MOV
CLR
TSTB
BEQ
HLT
MOV
INC
ADR40B: MOV
ADR40C: CLR
HLT
BR
INT40B: BIC
CMP
BEQ
HLT
CMP
BEQ
HLT

DONE40

t1 ,@SRO
i20022di5RO
.+4
113427,!lSRl
.+4
IADR40,!lSR2
.+4
(R6)"ADR40A
.+4
(R6)+,(R6)+
tlNT40B, !lKTVEC
I!ISRO
I!ISROH
.+4
#37776,R2
@SRO
(R2)+,-(R2)
!lSRO
DONE40
U,@SRO
.20022, @SRO
.+4
U 71022,!lSRl
.+4

CMP
BEa
HLT

• P<DR40B, @SR2
.+4

CMP
BEQ
HLT
CMP
DONE40: CLR
CLR
MOV

IADR40C, (SP)
.+4

SCOPE

(R6)+,(R6)+
!lSRO
!lKTSTA
KTSTA,@KTVEC

:DIDN'T ABORT - PREVIOUS ERROR .-LAG
:NOT YET CLEARED BUT ABORT SHOULD
: STILL HAVE OCCURRED
:TURN OfF KTII-C
:CHECK SRO
:SRO INCORRECT AfTER 2ND ACCESS VIULATION ABORT
:CHECK SR1 - SHOULD CONTAIN VALUE
:fROM 1ST ABORT
:SR1 DOESN'T CONTAIN VALUE fROM 1ST ABORT
:CHECK SR2
:SR2 DOESN'T COr-TAIN VALUE FROM 1ST ABORT
:CHECK ADDRESS PUSHED ON STACK
: INCORRECT ADDRESS ON STACK - SHOULD BE
fPC AT TIME SECOND ABORT OCCURRED
:RESTORE STACK POINTER
:CHANGE RETURN ADDRESS
:CLEAR ACCESS VIOLATION ERROR BIT-SHOULD
: ·UNLOCK" ERROR TRACKING
:CHECK TO SEE THAT ERROR BIT CLEARI::D
:SRO HIGH BYTE INCORRECT
:SETUP R2 TO REfERENCE KERNEL 1
:TURN ON KT1'-C
: 3RD ABORT REFERENCE, ERROR BIT WAS CLEARED
:TURN OfF KT11-C
: 3RD REFERENCE TO KERNEL 1 D-SPACE
:DIDN'T CAUSE ACCESS VlOLATlO/lo ABOKT
:TURN OfF KT1'-C
:CHECK SRO
,SRO INCORRECT AFTER ACCESS V IOLAT lON ABORT
,CHECK SRl
,SRI 1 NCORRECT - SHOULD HAVE RECORDED
:CHANGES MP<DE DURING 3RD ABORTED RI::HREl'4CE
:CHECK SR2
,SR2 INCORRECT - SHOULD CONTAIN
,LAST FETCH ADDRESS BEFORE ABORT
:CHECK STACK
PC ON STACK INCORRECT
RESTORE STACK POINTER
CLEAR ERROR BIT
CHANGE TRAP RETURN TO CAUSE A HALT
ON A FALSE INTERRUPT

OCKTA
MACY11.&24
DCKTAB.Pl1

22-AUG-n

14114

PAGE 53

016232

0047&7

001144

JSR

'7,BELL

01&236
016242
016244
01624&
016250
016252
016254

013701
001405
000005
004711
000240
000240
000240

000042

MOV
BEQ
RESET
JSR
NOP
NOP
NOP

(H42,R1
END

016256

000167

163554

ENOl

JMP

START

016262

163146
163156

SETUP I

CLR
CLR
RTS

lISR3
\7

LOGIC:

016266

005077
005077

016272

000207

016274
016300
016304
016306
016312
016316
016320
016322

005077
005077
005000
012701
005720
077104
000207

016324
016330
016334
016340
016344
016350
016352
016356
016362
016364

005077
012701
012700
005071
012731
077005
062701
020127
002764
000207

016366
016372
016376
016402
016406
016412
016414
016420
016424
016426

005077
012701
012700
005071
012731
077005
062101
020121
002764
000207

163042
001454
000010
000040
077406

016430
016434
016440
016444

005077
012701
012700
005071

163000
001474
000010
000040

005070

DCKTA
MACY11.624
DCKTAB.Pll
016450
016454
016456
016462
016466
016470

012731
017005
062701
020127
002764
000207

000140
001454

000040

001752

000060
001752

016552
016560
016562
016570
016572
016600
016602
016606
016614
016616
016622
016630
016632
016640
016644
016650

032737
001015
032731
001025
026167
100021
005267
012737
022606
012637

040000

0161>54
016660
016666
016610
Ii intiili
016700
016702
016704

011667
032737
001403
113777

161060
000002
000154
016540
000010
000136
000000

000036
000030

000150

177570
177570

000104

000100

000074
000340

177776

032737
001403
113777
000177
005067
005267

177570
000040
000032
163156

PAGE 54

MOV
S08
ADO
CMP
BLT
RTS

004000

177776
0004no

uuu(ju~

14: 14

000060
001752

177776
001400

002000
000000
000000

;SUBROUTINE TO MAKE ALL D-SPACE PAGES RW, BANI< 0, 4K, UP
RWDSP:
CLR
~SRO
MOV
IADRTA8+20,Rl
,Rl POINTS TO ADDRESS TABLE
MOV
RWD1:
1t0,RO
,USE RO AS A COUNTER
RWD2:
CLR
fl40(Rl)
ICLEAR PAR

077406

005037
012706
000000
016767
062167
000000
005067
012167
000177
005067
000177
000000

~SRO

,SUBROUTINE TO MAKE ALL PAGES RW, 8ANK 0, 4K, UP
RWALL;
CLR
lISRO
MOV
IADRTAB,Rl
ILOAD Rl TO POINT TU ADDRESS OF lS'E PDR
RWLI:
MOV
'20,RO
I SETUP RO AS COUNTER
RWL2:
CLR
ta40(R1)
:CLEAR PAR
MOV
n1406,lI(R1)+
,SET PDR RW,4K
S08
RO,RWL2
ADD
HO,Rl
,AT END Of" GROUP, MUVE POINTER
CMP
Rl, IADREND
ICHECK FOR DONE
8LT
RWLl
ICONTINUE UNTIL DONE
RTS
'7
ISUBROUTINE TO MAKE ALL I SPACE PAGES Rw, BANi<, 0, 4K, UP
RWISP:
CLR
lISRO
MOV
,ADRTA8,RI
IRl POINTS TO ADDRESS TABLE
RWll:
MOV
HO,RO
,USE RO AS COUNTER
RWI21
CLR
l!l40(Rll
,CLEAR PAR
MOV
171406,~(Rl)+
,MAP PDR RW, 4K
SOB
RO,RWI2
ADD
'60,RI
,AT END OF GRUUP, MOn: POINTER
CMP
Rt, IADREND
,CHECK FOR DONE
BLT
RiB1
,CONTINUE UNTIL DUNE
RTS
%7

163104
001454
000020
000040
017406

016472
016416
Olf,502
016504
016512
016520
016522
016526
016534
016540
016544
016550

\7,liIRl

,SUBROUTINE TO CLEAR ALL KTll-C REGISTERS (EXCEPT SR1,SR2)
CLRALL: CLR
lISRO
CLR
!lSR3
CLR
RO
MOV
'96 •• R1
ICOUNT OF REGISTEHS TO 8E CLEARED
CLRLP:
CLR
~ADRTA8(RO)
,CLEAR REGISTERS THRU ADDRESS TA8LE
TST
(RO)+
,MOVE POINTER
S08
Rl,CLRLP
,LOOP TILL DONE
RTS
,7

163134
163144

22-AUG-73

,MONITOR HOOK

177570
163160

000024
000400

177570

163122

177406,flCR1)+
RO,RWD2
'60,Rl
Rl, HDRENO
RWOl

,SET PDR RIi, 4K.
,AT END OF GROUP, MOVE POI NTER
:CHECK FOR DONE
,BRANCH IF NOT DONE

;ROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST
,LOAD THE STARTING ADDRESS OF THE TEST
I YOU WISH TO RUN (TIfE ADDRESS OF THE TESTXX
,TAG) AT THE 1ST HALT, SET SWITCH REGISTER
;OPTIONS AT THE 2ND HALT.
:NOTE THAT Slil1 MUST BE DOliN AFTER THE 2ND HALT
TESTX:
CLR
fliPS
MOV
~KSTACK,Sp
HALT
: WAIT FOR STARTI NG ADDRESS
MOV
SR, RETRNX
,LOAD STARTING ADDRESS IN RETRNX
ADO
.2, RETRNX
: ADD 2 TO PO I NT TO I NSTRUC TI ON AFTi::R
HALT
,SET SR OPTIONS
I KEEP COUNT AT ZERO
SCOPEF
CLR
MOV
.XLOOP,RETURN
ILOAD SCOPE LOOP RETURN PUINTER
JMP
flRETRNX
: JUMP TO TEST
SCOPEF
I KEEP COUNT AT ZERO
XLOOP:
CLR
JMP
~RETRNX
IJUMP TO TEST
RETRNX: 0

: SCOPE AND/OR ITERATION LOOP FOR EACH TEST
SCOPEC I 8IT
: TEST SR FOR SCOPE
HOOOO,fI'SR
BNE
SCOPE8
,YES, SCOPE
BIT
,NO-TEST FOR ITERATION
HOOO,USR
8NF.
SCOPEG
: INHIBIT ITERATION
CMP
SCOPEF, ICOUNT
,COMPARE CURRENT COUNT TO MAX NUMBER
8PL
SCOPEG
IEXIT-DONE
INC
SCOPEF
; INCREMENT COUNT
MOV
040,UPS
:PREVENT TRAPPlhG WHILE MOVING STAI:K
SCOPEB: CMP
(6)+,\6
,REPOSITION STACK
MOV
(6)+,lIIPS
I RESTORE PREVIOUS PROCESSOR STATUS
BIT
,I,OAD MICROBREAK REGISTER?
HOOdl,SR
BEQ
,+10
INO-8RANCH
MOV8
IiltSR,lIUBRK
,YES-LOAD FROM SR
JMP
lIRETURN
,REPEAT TEST
SCOPEG: CLR
SCOPEF
,CLI::AR COUNT
INC
TESTCT
,STEP TEST COUNTER TO ALLOW CHECKING
,ORDER OF EXECUTIUN,
MOV
U6,RETURN
;SAVE SCOPE RETURN POINTER
BIT
t400,iltSR
ILOAD MICROBREAK REGISTER?
BEQ
:NO-BRANCH
• +1 0
MOV8
@,SR',IilUBRK
I YES-LOAD FROM SR
.RE:TIIRN INLINE-NEXT TEST
ICOUNT:2000
ITERATION COUNT
SCOPEF: 0
,COUNT LOCATION FOR ITERATION LOUP
,ADDRESS OF LAST TEST
RETURN: 0

DCKTA
MACYll.624
DCKTAB.Pll

016706
016714
016722
016724
016726
016732
016736
016740
016746
016752
016760
016764
016770
016772
017000
017006
017012
017016
017020
017022
017024
017 026

017030
017036
017042
017044
017050
017052
017060
017062
017066
017072
017076
017104
017110
017112
017116
017122
017126
017132
017136
017140
017146
017150
017154
017156
017164

22-AUG-73

012767
036727
001401
000432
012667
012667
024646
012767
004767
016767
004767
105777
100375
012777
016767
004767
005767
100001
000000
000002
000000
000000

012767
005767
001011
105777
100375
012777
000207
005067
005067
005067
012767
005767
100002
005267
006167
006167
005567
005767
001404
026727
001421
105177
100375
016777
105777

DCKTA
MACYll.624
DCKTAB.Pt 1

000340
1601>50

PAGIo: 55

161062
020000

000072
000070
000200
000470
000046
000076
162432
000240
000022
000050
160552

000001
000254

161030
000336

162424
000310

000254

11>2352
000260
000224
000230
000216
000260
000206

162344

000214

000202
000174
000170
000162
000154
000154

000260

162246
000136
162232

22-AUG-73

017170
017172

100375
012777

017200
017204
017212
017216
017224
017226
017230
017232
017236
017240
017244
017246

105777
100375
005067
005267
026727
001001
000207
000241
005767
001403
005067
000261
006167

017252
017256
017262
017266
017274
017 302
017310
017312
017314
017316
017320
017322

006167
006167
005!>67
016767
042767
052767
000710
000000
000000
000000
000000
000000

000040
000034
000026
000024
177770
000260

017324
017330
017336
017344
017350
017356
017362

000032
000002
000020
000013
017364
000000

017364
017366
017370
017 372
017374

011667
162767
017767
105067
062767
017707
000000
104000
104002
t 04004
104000
104002
104004
016706
017376

017376
017400

000005
000006

017402

105777

017206

14:14

000377

162240

14: 14

162224

162216
000100
000104
000100

000006

000056
000050
000044

000024
000016
000010

000024
000016
000004

: ENTERED WITH SYSTEM TRAP CALL (HLT)
: PR I NT OUT THE ERROR PC + 2 AND STATUS REG STER
MOV
t340,PS
PRIf'<T:
SET PRIORITY TU 7
BIT
SR,.20000
TEST FOR INHIBIT PRINT OUT
BEQ
BRANCH TU PRINT
.+4
BR
CK
INHIBIT, CHECK FUR HALT
MOV
(6)+,SAVPC
PC OF FAlLING ROUTINE
MOV
(6)+,SAVPSR
PSR OF ERROR CUNDITION
-(6) ,-(6)
C,.,P
RESTORE STACK
MOV
#200,PS
JSR
\7,CRLF
: OUTPUT CARR IAGto: RETURN AND LINE Ft:ED
MOV
SAVPC,PTEMPI
:LOAD WITH FAILING PC+2
JSR
%7,PROCT
:PRINT FAILING PC+2
TST8
:WAIT FOR TTY READY
IITCSR
BPL
.-4
MOV
n40,l!ITDBR
,OUTPUT A SPACE
MOV
:LOAD PROCESSOR STATUS
SAVPSR,PTEMPI
JSR
%7, PROCT
: PRINT PROCESSOR STATUS
TST
:CHECK SR FOR HALT SWITCH
CK:
SR
BPL
: BRANCH IF NOT SET
.+4
HALT
: HALT ON ERROR UP
RTI
:RETURN TO MAIN LlNE
SAVPC:
SAVPSR:
:SUBROUTINE TO PRINT OUT OCTAL NUMBER
:PRSHRT DELIo:TES LEADING ZEROS
:PRUCT PRINTS OUT 6 OCTAL DIGITS
PRSHRT: MOV
#l.PRSFLG
PTEMPI
TST
BNE
PROCT+4
TSTB
!!ITCSR
BPL
.-4
MOV
'260,!!ITDBR
RTS
%7
PRocr:
CLR
PRSFLG
CLR
PTEMP3
PRFLG
CLR
MOV
n60,PTEMP2
TST
PTEMPI
BPL
.+6
INC
PTEMP2
ROL
PTEMPI
ROL
PTEMPI
ADC
PRFLG
TST
PRSFLG
P.CK:
B~Q
P.IoIUT
CMP
PTEMP2,1260
BEQ
P.CONT
@TCSR
P.WAlT: TSTB
BPL
P.WAIT
MOV
PTEMP2, nDBR
@TCSR
TSTB

:OUTPUT A 'SINGLE ZERO
:RETURN
;CLEAR FLAG TU INDICATE fULL PRINTUUT
,CLEAR R4 FOR COUNTlNG CHARACTERS UUTPUT
;INITIALIZE CARRY FLAG FOR ROTATES
;SETUP R3
:CHECK BIT 15 Of NUMBER
:BRANCH IF ZERO
:INCREMENT R3 I f UNto:
: ROTATE LEFT MOST OCTAL TO RIGHT END
,STORF. CARRY
:CHECK fOR SHORT PRlNTOUT
: BRANCH IF NOT SET
:CHECK FOR ZERO IF SET
: IF SET, GO TO NEXT CHARACTER
:WAIT FOR TTY READY
:OUTPUT NEXT CHARACTER
: READY FOR NEXT CHARACTER?

PAGE: !>6

BPL
MOV
TSTB
BPL
CLR
P.CONT: INC
CMP
BNE
RTS
P.CNTI : CLC
TST
BEQ
CLR
SEC
ROL
ROL
ROL
ADC
MOV
RIC
BIS
BR
PRSFLG: 0
PRFLG:
0
PTEMPI : 0
PTEMP2 : 0
PTEMP3 : 0

.-4
1377, !!ITDBR
!!ITCSR

.-4
PRSFLG
PTEMP3
PTEMP3, #6
P.CNTI
%7
PRFLG
• +10
PRFLG
PTEMPI
PTEMPI
PTEMPI
PRFLG
PTEMP 1, PTEMP2
#171770,PTEMP2
#260,PTEMP2
P.CK

:NO - WAIT
: ISSU~ A 'DELETE' CODE
:TO BUY TIl-IE!
:ALL DONE?
l NO - HANG HI THERE I
: PRI NT REST OF NUMBI::R M'TER A NON-ZI::RO DIGIT
:COUNT
:CHECK FOR DONE
: BRANCH IF NOT DONE
:CLEAR CARRy
:CHECK FOR PREVIOUS CARRY
:BRANCH IF PREVIOUSLY ZERO
:INITIALIZE FLAG
:SET CARRY
: ROTATE NEXT CHARACTER INTO RIGHT to:ND
:OF REGISTER

: STORE CARRY
:LOAD DATA INTO R3
:CLEAR ALL BUT LOWEST OCTAL DIGIT
:SET TO ASCII EQUIVALENT
:LOOP

:CONTAINS VALUE TO BE OUTPUT
:SCRATCH
: USED TO COUNT CHARACTERS OUTPUT

: EMT HANDLER
:FIRST 3 CALLS LEFT OPEN IN TABLE FOR
EASY pATCHES
EMTSRV: MOV
I!ISP,EPC
,GET CALL
SUB
12, EPC
MOV
!!IEPC ,EPC
CLRB
EPC+l
: SA VE OFFSET ONLY
ADD
'EMTAB,EPC
: POI NT TO TABLE Of" ADDRESSES
MOV
@EPC,PC
:JUMP
TO DESIRED ROUTINE
EPC:
0
PATCH1=EMT+0
PATCH2=EMT+2
PATCH3=EMT+4
EMTAB:
PATCH 1
PATCH2
PATCH3
PRINT
KTOFFS
:ROUTINE TO TURN OFF KTll-C VIA RESET
KTOf"FS: RESET
RTT

1&2014

:SET fLAG TO INDICATE SHORT PR INTUUT
:CHECK FOR ZERO
: BRANCH IF NOT ZERO
:WAIT FOR TTY READY

:BELL ON PASS COMPLETE
BELL:
TSTB
nCSR

DCKTA
MAC"t11.624
DCKTAB.P11
017406
017410
011416
017422
011424

22-AUG-73

14; 14

100375
01271,
105777
100375
012777

000207
162000

162006

000377

161772

017432

105777

161764

017436
017440

100375
000207

017442
017446
011450
017456
017462
017464
011472

105777
100375
012777
105777
100375
012777
000207
017712

011712

125252
000001

161754
000215
161740

161746

000212

lbl732

PAGE 57

BPL
MOV
TST8
BPL
MOV

.-4
'207,nDBR
nCSR
.-4
077,iITDBR

TSTB
BPL
RTS

IREADY fOR NEXT CHARACTER?
:NO - WAIT
IISSUE A 'DELET'" CODE
ITO BUY TIME!
: ALL DONE?
INO - HANG IN THEi<!':!

nCSR
.-4

,SUBROUTINE TO OUTPUT CARRIAGE RETURN AND LINEfEED
CRLf:
TSTB
ilTCSR
:WAlT fOR TTY Rt:ADY
BPL
.-4
MOV
'215,lITDBR
10UTPUT CARR lAG" i<ETUR N
TSTB
nCSR
I WAIT FOR TTY RI:.AllY
BPL
.-4
MOV
.212.lITDBR
,OUTPUT LINEn~ED
RTS
IRETURN
'7
.=17712
DESTADI

125252
.END

DCKTA
MAC'il1.624
22-AUG-73
14:14 PAGE 58
DCKTAB.Pll
CROSS REfERENCE TABLE
ADD23
ADD23i1
ADD24
AD024A
ADREND
AORTAB
ADR22A
AOR22B
ADR22C
AOR22D
AOR22E
ADR25
ADR25A
ADR36
AOR36A
ADR36B
ADR36C
AOR37
ADR37A
ADR37B
AOR37C
ADR40
ADR40A
ADR40B
AOR40C
AD13
AD21A
A021B
AD21C
A022A
AD22B
AD22C
AD22D
AD22E
BELL
BLKL
BLK20
BLOCKS
CK
CLRALL
CLRLP
CNT22B
CNT22C
CNT220
CNT22E
CNT3lA
CNT31B
CNT31C
CNT12A
CNT32B
CNT32C
CONT12
CONT5

007054
007154
007306
007406
001752
001454
006326
006414
006416
006572
006612
001530
007532
014630
014712
015032
015034
015264
015346
015466
015470
015720
016002
016122
016124
004212
006066
006100
006210
006336
006424
006506
006602
006702
017402
011710
005576
002034
017012
016274
016312
006374
006454
006550
006644
012214
012304

012342
012556
012652
012710
004060
002664

1405.
1420.
145U
14631

41H
3141
1288.
13061
1325.
1345a
136U
1496.
14971
2458.
24131
25011
2502.
2550.
2565.
259H
25941
2642t
2657«
2685.
2686.
9111
1219
1226
1233*
1290.
1308.
1328.
1349.
1372.
2713
1976
1161
4411
2827
520
1397
27341
1295
1313
1333
1354
2049

2069
2092.
2134
2155
2178.
854
602

1419
1462
616
592

2048
594

1510
1525
2485
2488
2513
2517
2577
2580
2605

1515

20B3
2038

2133
20b6

1995
1180
1179*

1972*

1994*

590
1487

638
1548

670
1850

2169
2123

2147
2152

2758
2734*

2170
2141

:l1!>2

27b4

974
1810

1003
1891

1039

1933

lOb 1
2230

1080
2447

2539

2609
2669
2672
2697
2701
912
1220.
122,.
1256.

2928.
1979.
1164,
1156*
2840.
556
1445
2736
130H
13211
1341.
136H
205H
2079.
2136.
2165.
863t
606

6121

1119

1 ~O6
2b31

1277
2730.

MACY11,624 22-AUG-73
DCKTA
14:14 PAGE 59
CROSS REFERENCE TABLE
DCKTAB,P11
CRLF
DATA16
OESTAD
DONE25
DONE33
DONE36
DONE37
DONE40
DONES
OSPACE
OST21A
OST21B
OST21C
EMTAB
EMTSRV
EMT35
END
ENDPAG
END20
END22E
END35
EPC
ERR22A
ERR22B
ERR22C
ERR22D
ERR22f.
EXPMSK
E26A
E26B
E26C
E26D
E26E
E26F
E26G
E26H
E261
E26J
E26K
E26L
HLT

017442
004754
017712
007700
013054
015122
015556
016212
002702
000001
006202
006204
006206
017364
017324
014010
016256
011174
005662
006732
014464
017362
006362
006446
006534
006630
006724
002026
010204
010242
010300
010344
010410
010454
010520
010564
010630
010674
010740
011004
104006

ICOUNT

016700

2f132
1006
1304*
1499
2206
2462
2554
2646
618
20 IS.
1212
1213
1214
2911
277
2344
2716
1998
1183
1377
2425
2907*
1289
1307
1327
1348
1371
438.
1586
1608
1630
1653
1672
1695
1720
1741
1760
1785
1808
1829
2671
647
824
948
1247
1414
1589
1930
2227
2423
2515
2603
2692
452*

2940.
1013
1402*
15331
22121
2475
2567
2659
6231
2029
1215*
1216*
1217*
29171
2361
23471
272H
20011
1186.
13eu
2428.
2908*
1296,
13141
1334.
1355.
1378.
495
15931
1615.
16371
1656.
1679.
1702#
1727#
174U
1767#
1792.
1815#
1832i1
465
653
832
953
1274
1440
1611
2024
2274
2444
2519
2607
2695
477*

1015
1420

1025.
2949.

2504
2596
2688

25211
261H
2705,

2054
1232*
1241
1235*

2100.
1237
1250*
1245

2367

29071

2909*

473
667
843
958
1294
1458
1633
2043
2277
2461
2536
2611
2699
519*

1083

1853

1873

1894

516
721
885
1056
1332
1512
1723
2109
2289
2484
2573
2658

529
747
908
1116
1335
1517
1738
2128
2315
2487
2576
2665

553
768
914
1202
1353
1520
1763
2147
2342
2490
2579
2668

567
791
926
1223
1356
1524
1788
2159
2363
2498
2582
2671

587
BOI
933
1229
1376
1527
1811
2175
2381
2503
2590
2674

b07
812
937
1239
1379
1!>32
11126
2195
2398
2508
2595
2b82

634
819
941
1243
1393
1545
1846
2209
2403
2511
2600
2687

794*

929*

1133*

1205*

1396*

1443*

1549*

2541*

2633*

2029*
1447*

2200*
1490*

1518

1550*

2237*

663
1436
2532
1654
1805

695
1480
2624
1669
1909

743
1541
2781
1673
1824

787
11:142

904
1926

Ib92
11130

1696

1044

1064

2114
1251*
12541
1249*

2139
12531
1256
1255.

2910*

291h

2912

29131

476
679
853
971
1297
1484
1650
2061
2280
2466
2553
2628
2703
623*

488
685
860
1000
1312
1504
1675
2073
2283
2474
2558
2645

499
699
872
1036
1315
1508
1698
2089
2286
2481
2566
2650

637*

702*

2799

28171

DCKTA
MACY11,624 22-AUG-73
14:14 PAGE 60
OCKTAB,pll
CROSS REFERENCE TABLE
1NT25
INT35
INT36
INT36A
INT36B
INT37
INT37A
INT37B
INT40
INT40A
INT40B
10T35
KDPARO
KDPARI
KOPAR2
KDPAR3
KDPAR4
KDPAR5
KOPAR6
KOPAR7
KDPDRO
KOPDRI
KDPDR2
KOPDR3
KDPDR4
KDPDR5
KDPDR6
KOPDR?
KIPARO
K1PARI
KIPAR2
KIPAR3
KIPAR4
KIPAR5
KIPAR6
KIPAR7
KIPDRO

007542
014230
014646
014722
015044
015302
015356
015500
015736
016012
016134
014144
001734
001736
001740
001742
001744
001146
001750
001752
001674
001676
001700
001702
001704
001706
001710
001712
001714
001716
001720
001722
001724
001726
001730
001732
001654

KIPDR1
KIPDR2
K1POR3
KIPOR4
KIPDR5
KIPOR6
KIPDR7
KNR
KRET34
KSTACK

001656
001660
001662
001664
001666
001670
001672
001420
013352
001400

KTm"F

104010

KTOFFS

017376

1849*
1491
2382
2455
2467
2493
2547
2559
2585
2639
2651
2677
2364
405.
406.
407.
408.
409.
410.
41h
412.
389.
390#
3911
392i
393-11
394.
395.
396.
397#
398.
399.
400.
4011
402.
4031
4041
3811
2450*
382.
3831
384.
385.
386.
3871
388.
299.
2246
2931
922
2020
268.
1717
2921

1946*
1500#
2385.
2463#
247S#
2505.
2555.
2570.
25971
2647#
2662.
2689.
2369.
1851*

2027*

2112*

2243*

2319*

1566*
1551*
2452*

1854*
1852*
2544*

2114*
2240*
2636*

2251*
2451*

2320*
2543*

2449*
2635*

1560*
1004*
1285*

1855*
1040*
1303*

2250*
1207*
1321*

2448*
1398*
1341*

2540*
1446*
1363*

2632*

1045*
422
2542*
1279*

1209*
977*
2634*
1522

1281*
1005*

1400*
1042*

1448*
1208*

1489*
1278*

1563*
1399*

1556*

2199*

1046*
916
2259.
446
967
2105
1583
1721
29241

1210*
837
2272
461
996
2191
1587
1736

1280*

1401*

1449*

1488*

1557*

484
1032
2223
1605
1742

512
1112
2300
1609
1757

549
1198
2311
1627
1761

583
1270
2329
1631
1782

630
1389
2440
1648
1786

MACYll,624 22-AUG-73 14:14 PAGE 61
DCKTA
DCKTAB.Pll
CROSS PEF'ERENC E TABLE
KTRP34
KTSTA

013346
002016

KTVEC

002014

K123
K134
K200
LOGIC
LOOPI0
LOOPll
LOOP12
LOOP2

001414
001416
001412
016246
003252
003430
003600
002260
OOI4l70
002406
002412
002510
002516
002522
002770
002776
003114
003122
003260
003306
003314
003436
003464
003472
012162
012166
012220
012232
012262
012266
012524
012530
012562
012600
012630
012634
002626
002644
002022
013774
014100
014214
014332
014450
000240
014356
014004
014124

1.0UP3

LOOP3A
LOOP3B
LOOP4
LOOP4A
LOOP48
LOOP6
LOOP6A
LOOP7
LOOP7A
LOP10A
LOP10B
LOP10C
LOPI1A
LOPI1B
LOPI1C
LOP)lA
LOP)lB
LOP31C
LOP31D
LOP31E
LOP31F
LOP)2A
LOP32B

LOP32C
LOP32D
LOP32E
LOP32F
LOP5A
LOP58
MSKB
NG35A
NG35B
NG35C
NG35D
NG35E
NOP
ODDAD
OK35A
OK35B

22571
4341
2614*
4331
1797*
2639*
297.
298.
296.
2718.
70H
7541
796.
492.

1492*
2615
1491*
1820*
2651*
1126
1127
806

1534
2706*
1575*
2201*
2707*

1569*
2707
159h
2213*

1834

1835*

2202*

2213

2456*

2522*

2~23

2548*

1619*
2455*

1644*
2467*

1661*
2493*

1684*
2523*

1709*
2547*

1732*
2559*

1749*
2585*

1774*
2615*

1974

1997*

847

711

525.
526.
559.
5611
562.
64U
6431
6718
675.
709.
7171
719.
756.
7641
766.
2039.
20418
2052.
2056,
20671
2068.
21241
2126.
21371
2142.

758
995
502
538
537
534
576
574
571
657
656
699
688
710
727
726
757
772
771
2050
2046
2096
2094
2084
2090
2135
2131
2192
2180

21531

2170

21541
5941
6011
436.
2334
2352
2372
2388
2415
25H
2399
2332
2351

2166
621
613

SIn

15)3*
2640*
1534*
1834*
2677*
1940
1941
827

2340.
2359.
2379.
2400.
24211
2404
2345.
2365.

2408.

DCKTA
MACY 11,624 22-AUG-73 14114 PAGE 62
DCKTAB,Pll
CROSS REFERENCE TABLE
OK35C
014224
01<350
014346
OK35E
014460
PAGEL
011652
PAGES
002006
PAG20
005540
PARTAB
001762
PATCH 1
104000
PATCH2
104002
PATCH3
104004
PC
=\000007
PO REND
001760
PDRMSK
002030
PORTAB
001754
PRFLG
017314
PRINT
016706
PROCT
017062
PRSFLG
017312
PRSHRT
017030
PS
177776

017316
017320
017322
017132
017230
017212
017150
016550
016704
013042
010200
010236
010274
010342
010404
010450
010514
010562
010624
010670
010734
011002

2371
2387
2413
1972.
430.
1156,
418.
29141
2915.
2916.
2631
4118
439.
415.
2859*
2824.
2834
2850*
2850.
265.
694*
1068*
1292
1733*
1949*
2141*
2391*
2833*
2860*
2858*
29671
2983
2870
2968
2783*
453*
2201
1575
1597
1619
1644
1661
1684
1709
1732
1749
1774
1797
1820

RWII,I,

01 (, 114

'02A

RwOSp
RWOl
RWD2
RWl5P

016430
016440
016444
016366

1934
2765,
2766.
1120

PTEMPI
PTEMP2
PTEMP3
P,CK
P,CNTI
P,CONT
P,WAIT
RETRNX
RETURN
RET33
RT26A
RT26B
RT26C
RT260
RT26E
RT26F
RT26G
RT26H
RT261
RT26J
RT261<
RT26L

238H
2405.
2426.
2000
1151*
1185
521
2917
2918
2919
2912*
575
563
557
2866*
2920
2839
285,.
266
742*
1076*
1299*
1750*
1951*
2190*
2412*
2839*
2863*
2881"
2898
2985.
28811
28711
2784*
278'*
22011
15871
16091
163U
16541
16731
1696.
17211
1742_
176U
1786.
1809.
1830.
2113
276]1
2771
2768
275U

1159

1192*

1965*

639

705

715

671
2986

752
2889it

762
2894*

2852
2967

285H
2880*

2899,

445*
786*
108,.
1399it
1775*
1962*
2222*
241'*
2851
2869
2982

447*
864*
1094*
1435*
1798*
2003*
2232*
2430*
2861
2873
29031

449*
869*
1111*
1479*
1921*
2019*
2234*
2439*
2864*
2895*

2872
2788
2808

2790
2812"

27911
28191

2198

2318

2740.

2900.

451*
87,.
1134*
1540*
1941*
2033*
2236*
2531*
2865*
2896*

460*
882*
1136*
1576*
1866*
2035*
2310*
2623*
2990*
2897*

483*
894*
1138*
1599it
1977*
203'*
2324*
2790*
2892*
2902.

511"
903*
1149*
1620*
18117*
2055*
2326*
2902*
2893*

548*
921*
1188*
1645*
1898*
2104*
2328*
2804*
2895

582*
966*
1191*
1662*
1908*
2119it
2336*
2824*
290U

b29*
995*
1:.1&9*
Ib85*
1925*
2120*
2355*
21:131*

662*
1031*
1286*
1710*
1947*
2122*
2375*

DCKTA
MAC'tII.b24 22-AUG-73 14: 14 PAGE 63
DCKTAB. Pll
CROSS RI::FERENCE: TABLE:
RWIl
RWI2
RWLI
RWL2
RO

016376
016402
0110334
016340
=%000000

=%000001

=%000002

=%000003

=%000004

='1;000005

=%000006

R7
=%000007
SAVEll
002010
SAVEB
002012
SAVPC
017024
SAVPSR
017026
SCOPE:
104400

27531
27541
2742.
2743»
254.
689*
1152*
1999
2745*
255.
572*
651
719
1013*
1500*
2068
2265*
2427*
275,.
256.
642*
B08*
185"
2143*
2685*
25"
707
11&5
2167*
258.
776*
2067*
259#
1978*
260.
1525
1832
2652
26U
43U
4321
2828*
2829*
252.
964
2102
2796
280
2786*
2798
372.
3731
3741
375#

2759
2756
2748
2745
491*
706*
1157*
2051*
2753*
492*
573
655
725
1017
1502
2086*
2271*
2715*
2758
493*
656*
809*
1859*
2179*
521*
715*
1940*
2169
525*
82"
2080*
5&2*
1990*
836
1528
2034*
2672
1122*
1123*
2833
2838
458
993
2188
280H
2347
2789*
2800
1871*

492
711*
1162*
2052
2756*
493
592*
673*
754*
1044*
1853*
2087
2323*
2718
2764*
495*
674*
1015*
1878*
2469*

501*
716*
1176*
2055
2765*
494*
598*
675*
756*
1050
1860
2092
2341*
2733*
2766*
497
688*
1017
1880*
2471*

522*
727*
1181*
2095
276a.
496
601
676*
764*
1064*
1873*
2137*
2346*
2736*
2767*
524*
708*
1047*
1899*
2499*

538*
753*
1184
2136*

5101*
75a.
1958*
2137

562
763*
1959*
2141

5104
772*
1966*
2181

570*
84h
1973*
2732*

640*
850
197h
273h

657*
1145*
1!191*
2735

672*
1146*
1996*
2742*

523*
616
677
766
1071
1881
2139*
2360*
2741*
2769*
53,.
710*
1049*
1901*
2501*

526*
619*
681*
770
1083*
1894*
2145
2366*
2743*
2770
559*
718*
1067*
1971*
2561*

527
641*
682*
806*
1090
1902
2154
2380*
2744*

535*
643*
683
809
115h
1969*
2172*
2384*
2746*

536
644*
687
911*
1165
1980
2173
2396*
2747

SSe.
645
707*
912
117h
1992*
2178
2401*
2752*

564*
649*
709*
1006*
1:.111*
2052*
2:.148*
2406*
2754*

565
650*
71h
1008
1236*
2059
2259*
2422*
2755*

574*
726*
1070*
1985
2563*

594*
755*
1086*
1993*
2591*

601
757*
1089*
205h
25!13*

603
765*
1155*
205,.
2653*

&11*
771*
1170
2093*
2&55*

612
807*
1178*
2140*
2683*

523
717
1980

557*
752*
2066*

55B
754
2068

575
762*
2071

597*
764
2079

613*
796*
2081*

639*
797
2083

641
798*
2152*

671*
83B*
2154

67J
1139*
2157

705*
1126*
2165

526
829
2123*
563*
2039*
831*
1593
2036*
2676

527
1127*
2126
565
2046*
839
1615
2119*
2704

532*
1170
2132*
828*
2124*
840*
1637
2121*

533
1493*
2133
829*
2131*
865
1656
2468

704*
1496
2153*
848*

709
1941*
2166*
849*

719
1985

731*
2038*

751*
2041

156
2047*

766
2048

850*

1153*

1163*

1175*

1961*

866*
1679
2488

867*
1702
2492

8108*
1727
2520

878
1744
2560

879*
1767
2580

il80*
1792
2~84

881*
1815
2612

1190
1191
28441
2845'
481
1029
2220

1935*
1936*

2005
2006

509
1109
2308

546
1195
2437

580
1267
2529

627
1386
2621

660
1433
2711

692
1477

740
1538

784
1839

!l01
1923

919
2017

2801*

2809*

2818.

2253*

2321*

631
1390
2625

664
1437
2725,

696
1481

744
1542

788
1843

905
1927

923
2021

968
2106

695*
1213*

SCOPEIl
SCOPEC
SCOPEF
SCOPEG
SOPARO
SOPAR1
SOPAR2
SOPAR3

01&614
01&552
016702
016644
001634
001636
001640
001642

OCKTA.

MAC'i11.&24 22-AUG-73 14:14 PAGE &4
CROSS REFERENCE TABLE

2795.
2799
2809.
2244*

DC!<!~!'I. PH

SOPAR4
SO PARS
SOPAR6
SOPAR7
SOPOPO
SOPOR 1
SOPOR2
SOPOR3
SOPOR4
SDPOR5
SOPDR6
SDPDR7
SETMSK
SETUP

001644
001646
001650
001652
001574
001576
001600
001602
001604
001606
001610
001612
002024
016262

001614
SlPARO
001616
SlPARI
SIPAR2
001620
001622
SIPAR3
SIPAR4
001624
SIPAR5
001626
SlPAR6
001630
S IPAR7
001632
SIPDRO
001554
SIPDRI
001556
S IPDR2
001560
S I PDR3
001562
001564,
SlPDR4
SIPDR5
001566
SIPDR6
001570
SIPDR7
001572
SP
='1;000006

177570

SRETH
SHO

013400
001434

376.
37'71
378.
379#
356#
3571
358.
359.
3&0.
3611
362.
363#
437.
462
997
2192
3&4.
3&5.
3&6.
36"
3108.
369.
370'
371#
348.
349(
350.
351#
352.
3533
3541
35511
2&H
787*
1249
1926*
2327*
2517
264.
9&5*
2103*
2815
2260
305.
863*
1067
1)09*
141"
1646*
1899
2212*
2463*
2552*
2641*

15&7*
1872*

1874*
2241*

2115*

1561*
494
485
1033
2224
1062*

1875*

2252*

513
1113
2312

550
1199
2441

584
1271
2533

1065*
424
1555*

1564*
1063*

2030*
1552*

2238*

1066*
446*
904*
1250
1948*
2329*
2532*
459*
994*
2189*
2825
2265.
471
866
1069*
1314*
1450*
1663*
1900*
2248
2464
2555*
2644*

1558*
448*
922*
1251
1950*
2340
2609
482*
1030*
2221*
2840
2278
496*
876*
1086
1324*
1456
1686*
1967
2256*
2410*
2556
2647*

450*
967*
1270*
2020*
2345
2624*
510*
1110*
2309*

461*
996*
1364*
2105*
2359
2701
547*
1196*
2438*

484*
1032*
1381
2191*
2365
2781*
581*
1268*
2530*

512*
1112*
1389*
2223*
2379
2907
628*
1387*
2622*

549*
1135*
1403*
2231*
2383

583*
1137*
1436*
2233*
2400

630*
1198*
1444*
2235*
2405

6&3*
1212*
1480*
2300*
2421

2311*
2426

743*
1214*
1842*
2325*
2440*

661*
1434*
2783

693*
1478*
2795

741*
1539*
2797

785*
1840*
2805

902*
1924*
2807

920*
2018*
2813

497
879
1088*
1329*
1463*
1711*
1979*
2262*
2473*
2562*
2648

503*
889*
1153
1334*
1495*
1734*
2004*
226B*
247h
2565*
2654*

796
979*
1164*
1344*
1498*
1751*
2056*
2323
2479
2570*
2657*

805*
983
1189*
1350*
1500
1776*
205B*
2331*
2494*
2571
2662*

815*
989*
1211
1355*
1501*
1799*
2098*
2356*
2500*
2586*
2663

816*
1001*
1218*
1367*
1529*
1822*
2142*
2376*
2502*
2592*
2678*

826*
1016*
1287*
1373*
1530
1857
2144*
2392*
2505*
2594*
2684*

835*
1047
1291*
1378*
1517*
18511*
2184*
241h
2506
2597*
2686*

1138
1048*
1296*
1404*

846*
1054
1305*
1411
1621*
1879*
2207
2460*
2549*
2613*
2690

1~41*

1~99*

1878
2203*
2451*
2~21*

2598
2689*

OCKTA
MACY11.624 22-AUG-73 14:14 PAGE 65
OCKTAB,Pll
CROSS REFERENCE TABLE
SROH
SRI

001436
001440

SRIH
SR2
SR2H
SR3

001442
001444
001446
001450

SR3H
SSTACK
STAEND
STAPNT
START
STATAB
STATEL
STATUS
STAT20
STRP34
TCSR

001452
001000
002002
002004
002036
001710
011572
177776
005460
013374
001422

TDBR
TEMPX
TEMPI
TEMP2
TESTeT

001424
001426
001430
001432
002032

TESTN

000041

TESTX
TESTI
TESTI0
TESTll
TESTI2
TEST13
TEST14
TEST15
TESTI6
TEST17
TEST2
TEST20
TEST21
TESTn
TEST23
TEST24
TEST25
TEST26
TEST27
TEST3
TEST30

016472
002122
003166
003352
003530
004234
004306
004526
004624
004756
002216
005306
005716
006212
006736
007174
007422
007712
011024
002320
011412

2705*
306.
3071
883
308,
309.
310.
311.
956
1876*
2638*
312.
2911
42,.
429.
285
422.
1958.
266,
1145.
2263.
300.
2878
3011
302.
3031
3041
440.
924
2022
4431
965.
210H
2780.
453
692.
729
774
891
919.
9641
993.
1024
4811
1109.
1195.
1252
1386.
1418
1460
1538.
1839,
509.
1923.

2725*
807
474
1506

2730*
828
799
2482

2740*
848
810
2509

2751*
2496
817
2574

2763*
2588
821*
2601

2680
822
2666

830
2693

841

851

857*

911

1510

1514*

ISIS

2485

2513

2577

2605

2669

2697

930*
1641*
1886*
2726*
955*
448
1186
1139*
445t
1139
2002

931
1658*
189'*
2731*

93h
1681*
1907*

935
1706*
1939*

938*
1729*
2032*

939
1746*
2097*

942*
1771*
2117*

946
1794*
2183*

949*
1817*
2249*

1135
2001
1145
2723
1952

1948
2095
1147*

2034
2181
1149

2119

2325

1150*

1186

1952*

1958

2051

2136

468
2928
2837*
836*
795*

712
2931
2855*
840
890

759
2935
2873*
865*
893*

943
2940
2876*
868

2393*
2943
2930*
878*

2397*

2402*

2407*

2933*
881

2942*

2945*

454*
969
2107
459.
9941
2189.

463
998
2193
482.
1030'
2221.

486
1034
2225
510'
1110'
2309.

514
1114
2313
5471
1196.
2438.

551
1200
2442
5811
1268.
2530.

585
1272
2534
628,
13871
26221

632
1391
2626
6611
1434.

665
1438
2810*
6931
1478.

012030
012370
012736
013066
013570
014504
015140
002442
015574
002560
002710
003042
013772
003242
003350
003420
003526
002020
.001534
001536
001540
001542
001544
001546
001550
001552
001474
001476
!)01500
001502
001504
001506
001510
001512
001514
001516
001520
001522
001524
001526
001530
001532
001454
001456
001460
001462
001464
001466
001470

U.l.r-Vl'\'

uv ..... , 40

URET34
USTACK
UTRP34
XLOOP

013426
000400
013422
016540

2017.
2102.
2189.
2220,
230Bt
24371
2529.
546.
26211
580.
6271
660.
2338.
705.
703*
752,
750*
435.
339.
340#
34U
342.
3431
344.
345.
346.
3231
3241
325.
326,
3271
328.
329.
330.
3311
332J
3331
3341
335.
336,
3371
338.
315,
316.
3171
318.
319.
320.
3211

2255*

2322*

870

950*
lR33*
2331*

':151
1 ~56*
2454*

954*
1865*
2546*

1960*

1962

1963*

2001

2835

28!13

2tl71

2874

697
1482

745
1543

789
IS44

906
1928

74U
1539.

7S51
1840'

':1021
19241

920'
2018.

1187

458.
740.
7841
9011

1029.

12671
14331
14771

OCKTA
MACYlI.624 22-AUG-73 14:14 PAGE 66
OCKTAB,Pl1
CROSS REFERENCE TABLE
TEST31
TEST32
TEST33
TEST34
TEST35
TEST36
TEST37
TEST4
TEST40
TEST5
TEST6
TEST?
TRP35
T5TI0
T5Tl0f'
T5Tli
TSTIIF
UBRK
UOPARO
UDPARI
UDPAR2
UDPAR3
UDPAR4
UDPAR5
UDPAR6
UDPAR7
UDPDRO
UDPDRI
UDPDR2
UDPDR3
UDPOR4
UDPDR5
UDPDR6
UDPOR7
UIPARO
UIPARl
UIPAR2
UIPAR3
UIPAR4
UIPAR5
UIPAR6
UIPAR7
UIPDRO
UIPDRI
UIPDR2
UIPDR3
UIPDR4
UIPDR5
UIPDR6

1i58

732
729
777
773
2807*
1892*

730*

73H

775*
2815*
2245*

778'

156a.
1893*

1895*
2242*

2116*

1562*
108h

1896*

2254*

108h
426
1554*

1565*
1082*

2031*
1553*

2239*

'1 .. ..,.

""'0 ....

22&6
289.
2269.
2787

22711
450

!5!922B4
1131

1950

2036

2789.

2121

2327

MACYll,624 22-AUG-73 14114 PAGE 67
OCKTA
CROSS REFERE'lCE TABLE
OCKTAB,Pll

= 017714

274.
487
698
852
957
1115
1311
1483
1982
2127
2314
2557
2667
2854

276_
49A
713
859
970
1166
1331
1503
1884
2146
2443
2572
2670
2862

279.
515
720
871
984
1171
1352
1507
1903
2158
2465
2575
2673
2875

2841
52!!
746
884
999
1201
1375
1511
1905
2174.
2480
2578
2681
2879

288.
552
760
907
1009
1220
1392
1513
1929
2194
2483
2581
2691
2887

290.
566
767
913
1018
1222
1413
1516
1981
2208
2486
2589
2694
2929

292.
586
790
925
1035
1227
1419.
1519
1986
2226
2489
2599
2698
2932

413
633
800
932
1051
1228
1423
1523
2023
2273
2497
2602
2702
2936

455
646
811
936
1055
1238
1429
1526
2042
2276
2507
2606
2806
2941

464
652
818
940
1072
1242
1439
1531
2060
2279
2510
2610
2814
2944

4b9
6b6
823
944
1073
1246
1457
1544
2072
2282
2514
2627
2926
29471

472
b78
ij31
947
lU91
1273
146H
a45
2088
2285
2518
2b49
2ij36

475
684
842
952
1092
1293
1468
18bl
2108
2288
2535
2664
2841

OCKTA
MAC'ill.624 22-AUG-73 14: 14 PAGE 68
OCKTAB.PII
CIWSS REFERENCE TABLE
ABRT
NOTRP
TESTNO
TRP
WCK

2432.
1536.
4431
1030
2439
1536.
20141

2433
1573
459
1110
2530
1642
2015

2525
1595
492
1196
2622
1730
2100

2617
1617
510
1268
1818

1659
547
1397

1682
581
1434

1707
628
1478

1747
661
1539

1772
693
1840

1795

741

1924

785
2018

9.02
2103

920
2189

965
2221

994
2309

MACYll.624 22-AUG-73 14:14 PAGE 69
DCKTA
DCKTAB,Pll
CROSS REFERENCE TABLE
ADC
ADD
ASL
BCC
BEQ

BGT
BIC
BIS
BIT
BLE
BLT
BMI
BNE
BPL
BR

CLC
CLR

CLRB
CMP

2866
1146
2167
501
502
464
652
852
999
1242
1507
1998
2276
2514
26b4
2887
2049
494
2662
2470
983
2813
516
2084
891
534
2796
469
2941
455
1418
1785
2462
2885
445
703
921
1188
1329

2894
1147
2179
532
571
472
666
859
1018
1246
1511
2023
2279
2518
2667

1533

1540

1925
2144
2295
2374
2422
2586
2731
2859
644
463
665
883
1090
1345

1177

1178

1960
2911

1992

1993

2047

2081

2093

2132

2139

2769

19'59
2784

1963

2757
2180
487
684
884
1051
1293
1519
2069
2285
2557
2673

498
698
907
1055
1311
1523
2072
2288
25H
2681

515
720
913
1072
1331
1526
2088
2314
2575
2691

528
746
925
1091
1352
1531
2108
2443
2578
2694

552
767
932
1115
1375
1544
2127
24b5
2581
2698

5b6
790
936
1166
1392
1845
2155
2480
2589
2702

586
800
940
1171
1861
2158
2483
2599
2716

602
R11
947
1183
1423
1882
2174
2486
2602
2806

606
818
952
1201
1439
1903
2194
2489
2b06
2814

618
823
957
1222
1457
1929
2208
2497
2610
2826

633
ij31
970
1228
1483
1981
2226
2627
2ij68

646
842
984
1238
1503
1986
2273
2510
2649
2870

869

882

1163

1463

1978

2463

2478

2505

2555

2510

2~97

2647

2897
1411

1456

1530

2059

2011

2087

2145

2157

2173

2795

2797

2805

2748

2759

2771

1161

1180

1289

1307

1327

1348

1371

1976

1995

2060

2146

2800

2836

2841

2854

2862

2872

2875

2879

2929

2932

293b

777
1468
1884
2554

854
1499
1905
2561

1024
1513
2000
2596

1073
1586
2050
2646

1092
1608
2135
2659

1185
1630
2206
2688

1252
1653
2344
2821

1295
1612
2364
2898

1313
1695
2382

1333
1720
2399

1354
P41
2404

1377
1760
2425

483
786
995
1215
1355
1833
1990
2190
2298
2384
2439
2614
2740

503
795
1031
1233
1312
1835
1996
2202
2299
2396
2456
2623
2743

511
805
1049
1236
1373
1B41
2003
2212
2310
2397
2460
2640
2751

535
815
1070
12b9
1378
1859
2004
2222
2328
2401
2473
2644
2754

548
826
1076
1290
1388
1865
2019
2236
2341
2402
2494
2657
2763

572
835
1089
1291
1417
1866
2032
2247
2346
2406
2502
2678
2 1 66

582
846
1094
1296
1435

619
863
1138
1303
1492
1887
2097
2211
2360
2411
2531
2706
2789

629
876
1154
1308
1498
:901
2098
2292
236b
2412
2548
2725
2809

b62
1189
1175
1309

2037
2259
2348
2407
2521
2686
2780

611
857
1111
1299
1479
1886
2058
22b5
2350
2409
2522
2705
2786

b94
903
1181
1314
1529
1908
2122
2294
2373
2416
25b5
2730
2858

682
514
697
924
I1b5
1391

950
527
71'l
931
1170
1420

955
533
745
935
1186
1438

1235
551
7b6
939
1200
1482

2910
565
789
956
1219
1502

575
799
969
1237
1506

585
810
998
1245
1510

601
830
1008
1272
1515

616
841
1017
1288
1518

632
851
1034
1306
1525

645
tl58
1050
1325

1702
2001
2225
2405
2520
2648
2799

1727
2022
2272
2421
2534
2652
2803

1744
2041
2275
2426
2556
2663
2830

1767
2048
2278
2442
25bO
2666
2869

1792
20b8
2281
24b4
2571
2669
2882

1815
2083
2284
2468
2574
2672

1832
2095
2287
2479
2577
2676

1844
2107
2313
2482
2580
2690

lijbO
2126
2340
2b93

1881
2133
2345
2488
2598
2697

1172
1982
1501
2203
2801

1405
1987
1577
2256
2810

1406
2205
1599
2262
2863

1407
2782
1621
22b8
2881

1408
2785
1646
2337

1409
2842
16b3
2356

1410

1424

1428

1686
2376

1711

;U92

1734
2418

584
1033
1481
2192
2834
453
522
592
663
709
763
836
880
965
1040
1081
1127
I1b2
1216
1287
1366
1447
1549
1564
1661
1774
1854
1893
1940
1973
2038
2116
2172
2238
2254
2325

590
1039
1487
2198
2839
454
523
594
671
715
764
837
881
967
1042
1082
1133
1164
1217
1304
1367
1448
1550
15b5
16b2
1775
1855
1894
1941
1977
2039
2111
2189
2239
2255
2326

631
1061
1542
2224

638
1080
1548
2230

6&4
1113
1843
2312

670
1119
1850
2318

696
1120
1870
2441

'144
1199
1891
2447

788
1206
1927
2533

459
524
597
672
716
765
838
894
977
1044
1083
1134
1190
1218
1305

461
525
598
673
717
77b
8)9
902
979
1045
1084
1135
1191
1232
1321
1387
1450
1552
1567
1684
1797
1857
1896
1947
2005
2052
2119

477
526
623
674

482
547
628
675
731
787
847
911
99b
1047
1086
1137
1198
1250
1324
1396
1480
1554
1575
1706
1817
1871
1898
1949
2018
2055
2121
2201
2243
2267
2332

484
549
630
681
741
794
848
920
1004
1048
1087
1139
1205
1251
1328
1398
1488
1555
1576
1709
1820
1872
1899
1950
2020
2057
2123
2213
2244
2300
2333

491
557
b37
693
743
796
8b4
'n2
1005
1062
1088
1145
1:.!07
llb8
1336

492
558
639
695
751
798
865
929
100b
1063
1110
1149
1208
1270
1341
1400
1490
1557
1598
1729
1834
1874
1924
1958
2029
20b7
21J6
2223
2246
2311
2335

1150
2746
570
2094
475
678
871
1035
1273
1516
2042
2282
2535
2670
563
2896
2654
1292
2002
2170

2182

729
2798
713
2944
621
1429
1808
2475

774
2852
760

1009
2883
944

732
1460
1829
2504

451
742
966
1189
1334

460
750
9S'l
1197
1350
1569
1'l69
2184
2297
2380
2430
2613
2734
2R88
676
497
683
912
1159
1368

2134
495
2689
2562
1054
2825
1187
2096

1951
2183
2296
2375
2427
2594
2732
2880
650
486
677
906
1114
1351

1413

1880

2~07

1~14

1907
2104
2293
2310
2414
2552
2726
2657

1~28

651
810
1071
1330
1543

DCKTA
MACYl1.624 22-AUG-7) 14: 14 PAGE 70
DCKTAB,Pl1
CROSS REFERENCE TABLE

CMPB
COM
DEC
EMT
HALT
INC
lOT
JMP
JSR

MOV

1593
1902
2154
2359
2492
2601
2701
1226
893
1176
2357
274
1451
730
1751
2457
2257
285
462
905
1271
1933
2539
446
493
559
640
702
752
806
866
930
1007
1064
1112
1151
1209
1278
1342
1401
1491
1558
1619
1732
1840
1875
1926
1962
2030
2086
2137
2231
2248
2319

1615
1928
2169
2365
2506
2605
2704

1637
1974
2181
2319
2509
2609
2747

1656
1980
2193
2383
2513
2612
2758

1679
1985
2207
2400
2517
2626
2710

1179
2914
985
1452
175
1776
2500
2263
895
485
923
1277
1934
2625
447
496
561
641
704
753
807
867
934
1013
1065
1122
1152
1210
1279
1344
1402
1493
1559
1620
1733
1842
1876
1935
1965
2031
2103
2140
2232
2249
2320

1182
2915
1010
1453
808
1799
2549
2269
2723
513
968
1390
2021
2631
448
510
562
642
705
754
816
86B
938
1015
1066
1123
1153
1211
1280
1349
1434
1500
1560
1641
1746
1849
1877
1936
1966
2033
2105
2141
2233
2250
2321

1991
2916
1020
1466
849
1822
2592
2377
2788
520
974
1397
2028
2713
449
512
564
643
706
755
821
871
942
1016
1067
1124
1155
1212
1281
1358
1436
1534
1561
1644
1749
1851
1878
1937
1967
2034
2112
2143
2234
2251
2322

1994

1997

1052
1497
1404
2056
2641

llb7
1863
1495
2142
2684

2790
550
997
1437
2106
2718
450
519
581
649
707
756
827
878
949
1030
10b8
1125
1156
1213
1285
1363
1443
1539
15b2
1645
1750
1852
1879
1938
1971
2035
2114
2152
2235
2252
2323

2808
556
1003
1445
2113
2832
452
521
58)
661
708
762
828
879
954
1032
1069
1126
1157
1214
1286
1364
1446
1541
1563
1658

1771
1853
1892
1939
1972
2036
2115
2153
2237
2253
2324

1381
1449
1551
1566
1681
1794
1856
1895
1946
1979
2051
2118
2191
2240
2260
2327

2199
2241
2261
2329

118
785
840
904
994
1046
1085
1136
1196
1249
1322
1389

1478
1553
1568
Ib85
1798
1858
1897
1948
2006
2054
2120
2200
2242
2266
2331

24115
2~84

1399

1489
1556
1597
1710
1821
1873
1900
1952
2027
20b6
2124
2221
2245
2309
2334

DCKTA
MACY11.624 22-AUG-73 14:14 PAGI:: 71
CROSS REFERENCE TABLE
DCKTAB.Pl1

MOVB
NOP
RESET
ROL
RTI
RTS
RTT
SEC
SOR
SUR
TRAP
TST

TSTB
,ABS
.END
.ENDC
• IFf'
,IFNZ
.IFZ
.LIST
.MACR
,NLIST
.REM
.REPT
.TITLE
.wORD

2336
2385
2438
2501
2585
2653
2765
2850
809
1454
470
2717
2864
2816
2727
2925
2889
537
772
1403
252
471
890
1712
2851
468
2940
1
2950
2017
2017
2054
2015
1
965
2103
443
1
965
2103
1
274
1
294

ERRORS DETECTED:

2353
2390
2451
2541
2624
2707
2802
2895

2354
2391
2452
2542
2632
2715
2804
2907

2355
2393
2454
2543
2633
2733
2812
2909

2361
2408
2455
2544
2634
2741
2824
2912

2362
2410
2458
2546
2635
2742
2828
2930

2367
2413
2467
2547
2636
2744
2829
2933

2368
2415
2469
2550
2638
2752
2831
2942

2369
2417
2471
2559
2639
2753
2833
2945

2371
2428
2493
2561
2b42
2755
21137

2372
2429
2499
2563
2651
2764
2838

2394
1012

2395
1023

2719
1057

2720
1075

2721
1093

1427

1467

1864

1 ~85

1906

2772

2856

2884

2937

2946

613
2131

656
2166

657
2736

688
2745

689
2756

710
2768

711

726

727

757

758

771

536
951
1752
2867
759

573
1184
1777
2886
943

603
1241
1800

612
1310
1823

655
1374.
1999

687
1496
2079

725
1522
2092

728
1578
2165

770
1600
2178

773
1622
2204

797
1647
2419

!l17
1&64
2735

822
1687
2840

2496

2588

2680

2835

2853

2871

2874

2878

2928

2931

2935

2054
2100

2102
2114

2118

2140

2100
443
1030
2221
2014
443
1030
2221

2114
459
1110
2309
2432
459
1110
2309

482
1196
2438

510
1268
2530

547
1387
2622

581
1434

628
1478

661
1539

693
1840

741
1924

785
2015

902
2018

920
2100

482
1196
2438

510
1268
2530

547
1387
2622

581
1434

628
1478

661
1539

693
1840

741
1924

785
2015

902
2018

920
2100

2347
2386
2440
2523
2591
2655
2767
2855
829
1455
714
2924
2865
2843
2737

2349
2387
2448
2530
2593
2677
2781
2860
850
2258
761

2351
2388
2449
2532
2615
2683
2783
2873
2807
2264
945

2352
2389
2450
2540
2622
2685
2787
2876
2815
2270
980

2890

2892

2893

2749

2760

538
2046
1444
2338
474
946
1735
2861
712
2943

574
2080
2908

2033
2033
2139
2029
274
994
2189
1536
274
994
2189