Digital PDFs

AH-F611A-MC

January 1980

130 pages

Original

8.0MB

view download

OCR Version

8.8MB

view download

Document:	CKKTAA0 KD11-Z 11-44 MEM MGMT PRT A JAN 1980 bw
Order Number:	AH-F611A-MC
Revision:	0
Pages:	130
Original Filename:	CKKTAA0__KD11-Z__11-44_MEM_MGMT_PRT_A__AH-F611A-MC__JAN_1980_bw.pdf

OCR Text

11/44 MEM MGMT PRTA

CKKTAAO

AH-F611A-MC

JAN 1980

FICHE 1 0F1

IN
MADE

dlifglitfallUSA

(KKYAAD 11744 MEM MGMT PRT

MACRO M1

26-SEP-79 12:27

SEQ 0001

.REM

PAGE 2

D ndd
D
d
D

=200

IDENTIFICAT]ION

—d

00 N N

PRODUCT

THE

(ODE:

AC-F 609A-M(

PRODUCT NAME:

(KKTAAQ 11/44 MEM MGMT PRT

DATE :

OCTOBER,

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

INFORMATION

1979

PETER BRADY

IN THIS DOCUMENT

SUBJECT

TO CHANGE

WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT (ORPORATION ASSUMES
NO fg?P%NSIBJLJTY FOR ANY ERRORS THAT MAY APPEAR [N THIS
DOCUMENT.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM

AND CAN BE rOPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTIL(E)
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED
IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR THE USE OR RELIABILITY OF ITS
THAT IS NOT SUPPLIED BY DIGITAL.

(C)

SOF TWARE

ON EQUIPMENT

1979 BY DIGITAL EQUIPMENT CORPORATION

(KK TAAD 11/44 MEM MGMT

PRT

MACRO M1111

26-SEP=79 12:27

PAGE 3

SEQ 0007

PROGRAM HISTORY

DATE
OCTOBER,

REVISION
1979

REASON FOR REVISION
FIRST RELEASE

(KK TAAD 11/44 MEM MGM

PRT A

MACRO Mi1M

26~SEP=79 12:27

TABLE

1.0

ROGRAM

1
.l
.3
4

2.0

5
RROR
1

2
3

4.0

[NFORMAT
ION

ABSTRACT
REQUIREMENTS
RELATED DOCUMENTS AND STANDAKRDS
PREL IMINARY PROGRAMS
INSTRUCTIONS

LOADING PROCEDURES
STARTING PROCEDURES
OPERATIONAL SWITCH SETTINGS
LOADING THE SWITCH REGISTER
EXECUTION TIMES

INFORMATION

ERROR REPORTING PROCEDURES
INTERPRETING ERROR REPORTS
SAMPLE

ERROR REPORT

I?CELLANEOUS INFORMAT JON
ACT/APT/XXDP COMPATABILITY
END-OF ~PASS MESSAGE
2
T-BIT TRAPPING
3
p)

POWER FAILURE HANDL ING
PHYSICAL BUS ADDRESS CONSTRUCTION

0
1

DESCRIPTION
SUBROUTINES USED BY

5.0

SEQ 0003

CONTENTS

PERATING

2
3

3.0

)

PAGE 4

2
3

PROGRAM L ISTING

THIS PROGRAM

USING THE PROGRAM T0O DIAGNOSE A “AULT

(KKTAAQ 11/44 MEM MGMT PRT A
G3
94

9s
9%

1.0

PROGRAM

PAGE 5

SEQ 0004

INFORMAT JON

THIS PROGRAM WAS DESIGNED USING A 'BOTTOM UP'" APPROA(H
STARTING WITH THE SMALLEST SEGMENT OF MEMORY MANAGMENT
LOGIC POSSIBLE AND BUILDING TO COVER ALL OF THE LOGIC.
THE DIAGNOSTIC WILL PROVIDE ENOUGH INFORMATION SUCH THAT
BY DEDUCTION, THE FAILURE CAN BE I[SOLATED TO A SMALL
SEGMENT OF THE MEMORY MANAGEMENT LOGIC.

d D Y

HYRRRURLEERNERRUN
NS oI F R 25 38IRIR WD

26-SEP-79 12:27

1.1

97
98
99
100
101

MACRO M1111

PART A BEGINS BY

TESTING SOME OF

THE

INTERNAL

CPU DATA

d v

D e

AND ADDRESS PATHS AND ADDRESS DETECTION LOGIC, THEN
WORKS OUTWARD THROUGH THE MEMORY MANACCMENT REGISTERS.
AFTER THE REGISTERS ARE FOUND TO BE 'LSEABLE, RELOCATION
(CONSTRUCTION OF PHYSICAL ADDRESSES FROM A VIRTUAL ADDRESS
AND THE ASSOCIATED PAR/PDR INFORMATION) IS TESTED. PART B
BEGINS BY TESTING THE ABORT AND STATUS SEGMENTS OF LOGIC.

PART B THEN CHECKS

THE

SPECIAL ABORT

D ad e

INSTRUCTIONS AND THE CSM INSTRUCTION.

SEQUENCES,

THE MFPI/MTP]

REQUIREMENTS

—

e
8
«

ACT11/XXDP PROGRAMMING SPECIFICATION
STANDARD APT SYSTEM TO A PDP11 DIAGNOSTIC INTERFAC(E
DIAGNOSITC ENGINEERING STANDARDS AND CONVENTIONS
PDP11

MAINDEC

SYSMA(C PACKAGE

XXDP USER'S MANUAL

1.4

PREL IMINARY

BEFORE

PRCGRAMS

THIS MEMORY MANAGEMENT DIAGNOSITMC

FOLLOWING DIAGNOSTICS

— ed

d e e

) e

RELATED DOCUMENTS AND STANDARDS

1.3

e ed

D d

D ed ed

A PDP 11/44 PROCESSOR WITH A MINIMUM OF 16K OF MEMORY
AND A CONSOLE TERMINAL ARE REQUIRED TO RUN THE PROGRAM
UNLESS THE PROGRAM IS RUNNING UNDER APT OR ACT IN WHI(H
CASE THE CONSOLE TERMINAL IS NOT NECESSARY.

SHOULD BE

RUN:

IS RUN,

THE

(KKAAAQ 1/44 CPU/EIS

140

CKKABAO 11/44

TRAPS

ALSO, THE MAIN MEMORY DJAGNOSTIC (CZMSD) SHOULD BE RUN TO SCAN
AT LEAST THE FJRST 16k TO SEE THAT A PROGRAM (AN BE EXECUTED.

2.0

OPERATING INSTRUCTIONS

OO NN
NN 2O

b
b
Db
b
d od
b

LAl CALVALV IV, LV IV, (U LV 1V ]

D _a

(KKTAAQ 11744 MEM MGMT PRT A

MACRO M1111

26=SEP=79 12:27

PAGE 5-1

]

SEQ 0005

THE PROGRAM 1S SUPPLIED ON THE DIAGNOSTIC LOAD MEDIA,
REFER TO THE XXDP USER'S MANUAL FOR FURTHER INFORMATION.
FOR USE WITH ACT OR APT, REFER TO THEIR RESPECTIVE
DOCUMENTS.
THE PROGRAM (AN ALSO BE DIRECTLY LOADED

USING THE ABSOLUTE LOADER AND THE BINARY PAPER TAPE.

2.2

STARTING PROCEDURES
THE PROGRAM S STARTED BY LOADING ADDRESS 200 AND
STARTING. THE SWITCH REGISTER SHOULD BE SET ACCORDING 710

SECTION 2.3 BEFORE THE PROGRAM IS STARTED.
HOWEVER, IF
DESIRED, THE PROGRAM WILL USE THE SOFTWARE SWITCH REGISTER
AT LOCATION 176 (LOCATION 174 WILL BE USED AS THE SOF TWARE
DISPLAY REGISTER). IN THAT CASE, THE PROGRAM WILL ASK FOR
THE INITIAL SWITCH REGISTER VALUE BY TYPING ''SWR= XXXXXX
NEW=
"' AFTER TYPING THE NAME OF THE PROGRAM (XXXXXX =
THE OCTAL CONTENTS OF LOCATION 176).
(SEE SECTION 2.4)
ALSO THE PROGRAM (AN BE MADE TO USE THE SOF TWARE SWIT(H
REG. EVEN IF THE CONSOLE SWITCH REG. IS PRESENT BY LOADING

"177777"' INTO THE
THE

2.3

PROGRAM.

CONSOLE SWITCH REG.

BEFORE STARTING

CONTROL SWITCH SETTINGS

Sw15

100000

HALT ON ERROR

THIS SWITCH WHEN SET WILL HALT
THE PROCESSOR WHEN AN ERROR IS

DETECTED AFTER THE ERROR MESSACF
HAS BEEN TYPED. PRESSING CONTINUE
WILL RESUME TESTING (SEE SECTION

3.1 ABOUT LOADING THE
BEFORE CONTINUING).
SWi4

040000

LOOP ON TEST

THIS SWITCH WHEN SET WilL

CAUSE
THE

Sw13

020000

THE PROGRAM TO LOOP ON

CURRENT

THIS

SWITCH WHEN SET WILL

ME SSAGES.

010000

SUBTEST.

INHIBIT ERROR TYPEOQUTS
INHIBIT THE

Sw12

SWITCH REG

TYPING OF

ERROK

INHIBIT TRACE TRAP

THIS SWITCH WHEN SET WILL

INHIBIT T-BIT TRAPPING WHI(H
NORMALLY TAKES PLACE DURING
EVERY OTHER PASS STARTING
WITH
THE THIRD PASS.

Sw10

002000

BELL

ON ERROR

(KKTAAQ 11/44 MEM MGMT PRT A

MACRO M1111

G 1
PAGE 5-2

26-SEP-79 12:27

SEQ 0006
THIS SW]TCH WHEN SET WILL RING
THE CONSOLE TERMINAL BELL WHEN
AN ERROR HAS BEEN DETECTED.

NINLIAL
NI PO
NN

SW9

001000

LOOP ON ERROR
THIS

SWITCH WHEN SET W'
L

)

CAUSE THE PROGRAM TO LOOP ON 1HE

FIRST FAJLUPE WHICH

D
e ek o

EVEN IF

LOOP ON TEST IN SWR<7:0>

000400

Sw8

THIS

CAUSE

SWITCH WHEN SET WILL

THE PROGRAM TO _OOP ON THE

TEST WHOSE

TEST NUMBER

£~

IN BITS 7-0 OF

LOADING THE

IS ENCOUNTERED

IS INTERMITTANT

THE FAILURE

THt

SET

SWITCH REG.

SWITCH REGISTER

"HE CONSOLE SWITCH REGISTER PROVIDED IS LOADED DIRECTLY FROM
THE CONSOLE BY TYPING A CONTROL P (*P), THEN WHEN THE CONSOLE
PROMPT IS RECIEVED, TYPE 'D SW XXXXXX'', WHERE 'XXXXXX'' IS THE

INTENDED VALUE OF THE SWITCH REGISTER.
THE VALUE OF THE
CONSOLE SWITCH REG. CAN BE CHANGED ANY TIME WHETHER THE PROGRAM
IS RUNNING OR NOT.

TO LOAD THE SOFTWARE SWITCH REG. WHILE THE PROGRAM IS
RUNNIN;, A CONTROL G (*G) SHOULD BE TYPED ON THE CONSOLE

TERMINAL. (THE ''SCOPE'’" AND 'ERROR'' ROUTINES CHECK TO SEE
IF A “G HAS BEEN TYFED.)
THE ORIGINAL VALUE OF THE SOF TWARE

SWTICH REG. WILL BE REQUESTED AS MENTIONED IN SECTION 2.2.
IN RESPONSE

PROGRAM WILL

TO A “G OR AT
TYPE:

SWR = XXXXXX

WHERE “XXXXXX'' IS THE
THE

OPERATOR MAY

XXXXXX<CR>
<CR>
XXX*U

THE BEGINNING OF

THE PROGRAM,

THE

NEW =

(URRENT OCTAL CONTENTS OF LOC.

THEN TYPE ANY ONE

THE

FOLLOWING:

176.

ONE TO SIX OCTAL DIGITS FOLLOWED BY A
CARRIAGE RETURN WHICH WILL BE LOADED
AS

THE NEW VALUE

JUS}TAIECR>,

FOR

THE

SWITCH REG.

LEAVES THE SWITCH REG.

A CONTROL=U (*U) WILL CAUSE ALL OF
DIGITS TYPED SO FAR TO BE IGNORED.

THE

WILL CAUSE THE PROGRAM TO TYPE THE PRESENT

TEST AND PASS NUMBERS, REQUEST A NEW VALUE
FOR THE SWITCH REG., AND JUMP TO THE END-

OF -PASS ROUTINE SO THE PROGRAM WILL GO DIRECTLY
<JLL.CHAR>

NOTE:

TO THE NEXT PASS WITH A NEW SW.

REG.

VALUE

ANY (HARACTER TYPED WHICH IS NOT ANY OF THE
ABOVE OR AN OCTAL DIGIT WILL CAUSE THE PROGRAM
TO TYPE A "2<CRLF>'" AND REACT AS THOUGH A
“U HAD BEEN TYPED.

RECOGNITION OF

A “G MAY Bt HAMPERED BY

(KKTAAQ 11/44 MEM MGMT PRY A
264
265
266
267
268
269
270
27
272
273
274
275
276

277
278

279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
29
295
296
297
298
299
300
301
X02
303

----2.5

26~SEP-79 12:27

PAGE 5-3

SEQ 0007

EXECUTION OF A COUPLE "RESET'' INSTRUCTIONS

WITHIN THE

PROGRAM.

EXECUTION TIMES
THE

RUN TIME

FOR A SINGLE

PASS WITH TRACE

TRAPPING

ENABLED [S APPROXIMATELY B SECONDS WITH CACHE.
3.0

ERROR [NFORMATION

3.1
IF AN ERROR IS DETECTED, THE PROGRAM WILL TRAP TO THE
ERROR HANDLING ROUTINE (SERROR).
THE VALUE OF BITS
15,13,10, AND 9 IN THE SWITCH REGISTER ARE CONSIDERED

IN REPORTING AN ERROR (SEE SECTION 2.3).
THE
ERROR INFORMATION WILL BE TYPED UNLESS SW13 = 1.
IF SW15 = 1,

REPORTED.
ARE TO BE

THE PROCESSOR WILL HALT AFTER THE ERROR [S

IF THE CONTENTS OF THE
CHANGED, A “G SHOULD BE

"'CONTINUE'' TO RESUME TESTING.

SOFTWARE SWITCH REGISTER
TYPED BEFORE PRESSING

IF SW9 = 1 (LOOP ON ERROR), THE PROGRAM WILL GO TO THE
ADDRESS CONTAINED IN LOCATION 'SLPERR''.
AFTER REPORTING

THE ERROR.
'SLPERR'' IS SET BY EACH ''SCOPE'’ CALL AND IS
SET DIRECTLY DURING SOME SUBTESTS TO PROVIDE THE SMALLEST

LOOP FOR LOOPING ON ERROR.

RETURN TO THE

IF SW9 = 0,

THE PROGRAM WILL

INSTRUCTION FOLLOWING THE ERROR CALL.

(SEE SECTION 5.3 FOR MORE ON "LOOP ON ERROR'").

INTERPRETING ERROR REPORTS

EVERY ERROR REPORT TYPES THE NUMBER OF
THE

ERROR

ERROR CALL

TOOK MLACE

(ERRORPC).

(TESTNO)

AND

THE

TEST

IN WHICH

LCCATION OF

THE

THESE TWO VALUES PINPOINT THE

PLACE IN THE CODE THAT THE ERROR OCCURRED.
BY REFERRING
TO THE PROGRAM LISTING, THE OPERATOR CAN THEN READ THE
COMMENTS ASSOCIATED WITH THAT PARTICULAR ERROR AND SUBTEST.

A DESCRIPTION OF THE TEST FOUND IN THE PROGRAM LISTING
WILL ALSO PROVIDE THE OPERATOR WITH INFORMATION ON THE LOGIC

AND FUNCTIONS BEING TESTED.

EVERY ERROR REPORT ALSO TYPES AN ERROR MESSAGE
GIVING A VERBAL DESCRIPTION OF THE ERROR THAT HAS

BY USING THE COMMENTS AND TEST DESCRIPTION FOUND IN
TO THE ENGINEERING DRAWINGS
CAUSE FOR THE FAILURE.

BEEN DETECTED.

AN N NN N N NN N NN
| NG P
N
g
e i
o

WN—O

305
306
307

MACRO M1111

THF PROGRAM LISTING TO DETERMINE

LOGIC WAS BEING TESTED,

WHAT

FUNCTION OR

THE OPERATOR CAN THEN REFER
TO

ISOLATE

THE

PROBABLE

(KKTAAQ 11/44 MEM MGMT PRT A

MACRO M1111

3. 3

PAGE 5-4

26=SEP-79 12:27

SEQ 0008

SAMPLE ERROR REPORT
BELOW ]S AN EXAMPLE OF AN ERROR WHICH (CULD HAVE
OCCURRED DURING EXECUTION OF THE PROGRAM:
MEM. MGMT. REG.
REGISTR WROTE

BITS NOT SET CORRECTLY
READ
READ=(BINARY)

ADDRESS (OCTAL)
177572
040000

(OCTAL)
060000

5432109876543210
0110000000000000

TESTINO
000012

ERRORPC
022060

WE SEE THAT THE ERROR OCCURRED IN TEST 12 AT LOCATION
022060.
THE 'REGISTER ADDRESS'' TELLS US THAT WE WERE
TESTING MEMORY MANAGEMENT'S STATUS RGISTER O (SRO).
IN THE LISTING, THE TEST DESCRIPTION SAYS THAT THE

ERROR BITS (BITS <15:13>) OF SRO WERE BEING SET AND

CLEARED INDIVIDUALLY.
THE ERROR REPORT SAYS WE TRIED
TO SET BIT 14 BY WRITING '040000'° TO SRO BUT WHEN WE
READ IT BACK WE READ '060000°".
IT APPEARS THAT BIT 13

STUCK AT '"1°" OR IT IS GETTING SET WHEN BIT 14 IS SET
TO """,
TELL

4.0

6.2

ERROR REPORTS BEFORE AND AFTER THIS ONE COULD

US WHICH

THE

CASE.

MISCELLANEOUS

INFORMATION

THE

FULLY A(CT

AND

PROGRAM

[S SUPPORTED UNDER

AND APT

THE

(OMPATABLE

XXDP PA(CKAGE.

END-OF -PASS MESSAGE
AT THE END OF EACH PASS OF THE PROGRAM THE PASS NUMBER
AND TOTAL NUMBER OF ERRORS SIMNCE THE LAST END-OF-PASS ARt
REPORTED IN THE END-OF -PASS MESSAGE.
FCR EXAMPLE:

END OF PASS #2

TOTAL ERRORS SINCE LAST REPORT O

THAT WOULD INDICATE THAT PASS TWO WAS JUST COMPLETED
AND NO ERRORS WERE
DETECTED DURING THAT PASS.
BOTH
THE PASS NUMBER AND NUMBER OF ERRORS ARE DECIMAL
NUMBERS.

4.3

T-BIT

TRAPPING

THE "T-BIT'' (F.T 4)

IN THE PROCESSOR

STATUS WORD

SET

BY AN 'RTI'"
IN THE END-OF -PASS ROUTINE FOR_EVERY OTHER PASS
BEGINNING WITH THE THIRD PASS (PASSES 3,5,7,9...).
T-BIT
TRAPPING (AN BE INHIBITED BY SETTING BIT
REGISTER
(SEE SECTION 2.4).

4. 4

POWER

FAJLURE

HANDL ING

12 =

IN THE

SWIT(H

MACRO MI111

26=SEP-79 12:27

PAGE 5-5

SEQ 0009

IF A POWER FAIL OCCURS (FOLLOWED BY A POWER UP), THE
MESSAGE 'POWER FAILURE-RESTARTING'® IS TYPED OUT AND
THE PROGRAM WILL RESTAKRT EXECUTION AT ''START:'' (THE
VERY BEGINNING OF THE PROGRAM.
Sgg}ggggEGISTER IS BEING USED,

6.5

IF THE SOF TWARE
ITS CONTENTS WILL BE

PHYSICAL BUS ADDRESS CONSTRUCTION

BELOW IS A SIMPLIFIED DIAGRAM OF HOW THE MEMORY
MANAGEMENT LOGIC

CONSTRUCTS A PHYSICAL BUS ADDRESS

USING THE VIRTUAL ADDRESS AND THE PAGE ADDRESS REGISTER.
THE PAGE DESCRIPTOR REGISTER SELECTED WILL CONTAIN
PAGE EXPANSION, LENGTH, AND ACCESS INFORMATION.

12 11

THE

10 09 08 07 06 05 04 03 02 01

00
VBA*

1
}

(ADDED TO)

15 16 1312 11

10 09 08 07 06 05 04 03 02 01

I
PAR®*

*=
*x
5.0

VBA BITS <15:13> SELECT THE APPROPRIATE PAR AND PDR
PSW MODE BITS <15:14> SELECTS THE USER ( 11), SUPERVISCR
(=0") OR KERNEL (=00) SET OF PAR'S/PDR'S

PROGRAM DESCRIPTION

5.1
FOLLOWING

IS A LIST OF

PACKAGE''.

DETAILS OF

THE

SUBROUTINES AND HANDLERS USED

8Y THIS PROGRAM THAT ARE NOT PROVIDED BY THE "‘SYSMA(
PROGRAM MAY BE

FOUND

THE SUBROUTINES UNIQUE

IN THE

PROGRAM LISTING.

TO THIS
REFER

;HET}SEEMAC” DOCUMENT AND PROGRAM LISTING FOR THE OTHER
OUTINES.

S nr—

(KKTAAD 11/44 MEM MGMT PRT A

TURN OFF T-BIT AND SAVE CURRENT PSW
TURN ON T-B]7T AND RESTORE PREVIOUS PSw

SET ALL WRITEABLE BITS IN ALL PAR/PDR'S
CONVERT VIRTUAL ADDRESS TO PhHYSICAL

ADDRESS

(KKTAAQ 11/44 MEM MGMT PRT A
435
436
437
438
439
440

441
462
443
444

MACRO M1111

26=SEP-79 12:27

PAGE 5-6

NOTE ALSO THAT THE MACRO LIBRARY USED TO ASSEMBLE THIS PROGRAM
HAS OTHER SPECIAL ROUTINES APPENDED TO THE SYSMAC MACRO PACKAGE:
gg’l‘gslc_%?sARY MUST BE USED TO ASSEMBLE EITHER PART A OR PART B8

5.2

PROGRAM LISTING

445

A TABLE OF CONTENTS APPEARS AT THE BEGINNING OF THE LISTING
WHICH CONTAINS THE NAMES OF EACH SECTION, SUBTEST, AND
FEQOLCJTINE AND THE LINE NUMBERS CORRESPONDING TO THE START OF

447
448
4469

FOLLOWING THIS SECTION OF DOCUMENTATION IS THE ACTUAL
PROGRAM LISTING COMPLETE WITH SUBTEST DESCRIPTIONS AND

446

450
451

452
453
454
455
456
457
458
459
460
461
462
463
464
465

466

467

468
469
470
47;
472
473
474
475
476
477

478
479
480
481
482
483
484
485
486

ACH.

"'CODING COMMENTS''.

5.3

USING THE PROGRAM TO DIAGNOSE A FAULT
WHEN AN ERROR OCCURS, ONE OF THE THINGS THAT'S IMPORTANT
TO NOTE IS WHAT PASS THE ERROR OCCURRED ON.
IF THE PASS
NUMBER IS ODD AND IS THREE OR GREATER, THE ERROR MIGHT BE
T=BIT SENSITIVE.
TRY RUNNING THE PROGRAM AGAIN WITH
BIT

12 OF THE SWITCH REG. EQUAL TO '1'° TO INHIBIT T-BIT

TRAPPING.
THIS SHOULD HELP YOU DETERMINE WHAT MAKES THE
MACHINE FAIL AND WHEN.

IF YOU HAVE BEEN RUNNING WITH BIT 15 OF THE SWITCH
REG. EQUAL TO '0°'‘, THEN YOU ARE ABLE TO LOOK AT ALL
THE

ERRORS

THAT MAY BE RELATED TO THE FAULT YOU ARE

DIAGNOSING.
A FAULT IN AN EARLIER TEST MAY RESULT IN
ERRORS DURING LATER TESTS WHICH MAY Gi1VE YOU MORE
CLUES ABOUT THE NATURE OF THE FAULT.
NOW USE THE METHOD

OUTLINED IN SECTION 3.2 FOR EACH ERROR TO GATHER AS

MUCH INFORMATION AS POSSIBLE.

NOW TO TEST YOUR IDEAS ON THE CAUSE OF THE FAILURE,
YOU MAY WANT TO SCOPE THIS ERROR CONDITION.
SET BIT 09

THE SWITCH REG. EQUAL TO ‘"1°' Tu LOOP ON THE ERROR.

FOR AN EVEN TIGHTER SCOPE LOOP THE ERROR CALL CAN BE
REPLACED WITH A BRANCH (REFER TO COMMENTS BY ERROR CALLS

IN THE PROGRAM LISTING).

OR YOU COULD LOOP ON THE TEST BY EITHER SETTING BIT 14

OF THE SWITCH REG. EQUAL TO ‘"1'° OF BY SETTING BIT 08 OF THE
SWITCH REG. EQUAL TO ‘"1'° AND THEN SETTING THE TEST NUMBER
IN BITS 07-00 OF THE SWITCH REG.
YOU WILL PROBABLY WANT TC
éNHIB”T’OER!;OR TYPEOUTS BY SETTING BIT 13 OF THE SWITCH REG.
OUAL

ll-

SEQ 0010

(KKTAAQ 11/44 MEM MGMT PRT A
804

MACRO M1111

26-SEP-79 12:27

LTITLE

805

-—d

PAGE 9

SEQ 00N

CKKTAAD 11/44 MEM MGMT PRT A

;*COPYRIGHT (C) 1979
;*DIGITAL EQUIPMENT CORP.
:*MAYNARD, MASS

01754

]
*

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11

;*PACKAGE
- %

_SBTTL

806

SWITCH
15
14
13

%
#
%

»*

.SBTTL

807

001100
104000

000004

000011
000012

000015

000200
177776
177776

177774
177772
177570
177570

1977.

MAINDEC SYSMA(

OPERATIONAL SWITCH SETTINGS

. %

(MAINDEC-11-DZQAC-C3), JAN 19,

USE
HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

INHIBIT TRACE TRAP
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER *x* 1700 w#«

STACK=

1100

ERROR=EMT
SCOPE=]OT

J*MISCELLANEOUS DEF INITIONS

HT=

LF=
(R=
CRLF=
PS=

12
15
200

177772

PSW=P

;;CODE FOR HORIZONTAL

TAB

:.CODE FOR LINE FEED
;. CODE FOR CARRIAGE RETURN

;. CODE FOR CARRIAGE RETURN-LINE FEED
; ;PROCESSOR STATUS WORD

STKLMT= 177774

;;STACK LIMIT REGISTER

DSWR=
DDISP=

177570
177570

; HARDWARE SWITCH REGISTER
: - HARDWARE DISPLAY REGISTER

X0
4
X2
x3

: ;GENERAL
:;GENERAL
; ;GENERAL
; :GENERAL

x5
X6
X7
X6
X7

; ;GENERAL REGISTER
; ;GENERAL REGISTER
; ;GENERAL REGISTER
;:STACK POINTER
: ;PROGRAM COUNTER

PIRQ=

177772

; ;PROGRAM INTERRUPT REQUEST REGISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS

RO
R1=
R2=
R3=

Ré4=

R5=
R6=
R7=
SP=
PC=

)

;*PRIORITY LEVEL

PRO=
PR1=
PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

0
40
100
140
200
240
300
340

; ;GENERAL REGISTER

DEFINITIONS

::PRIORITY
:;PRIORITY
J;PRIORITY
::PRIORITY
;:PRIORITY
:;PRIORITY
;:PRIORITY
::PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

O
1
2
3
4
S
6
7

(KKTAAQ 11/44 MEM MGMT PRT A
BASIC DEF INITIONS
100000

MACRO M1111

26-SEP-79 12:27

PAGE 9-1

SEQ 0012

' SWIT CH REGISTER'' SWITCH DEFINITIONS
100000
SW15=
40000
SW14=
SW13=
SW12=
SWil=
SW10=
SW09=
Sw08=

SW9=SW09
SW8=SW08
SW7=SW07
SWE=SW06
SW5=SW05
SWé4=SW04
SW3=Sw03
SW2=Sw0?2
SW1=SW01
SWO=SW00
;*DATA BIT DEFINITIONS (BITOO TO BIT15)
100000
BIT15=
BIT14= 40000
B8IT13=
BIT12=
BIT11=
BIT10=
8I1T09=
8IT08=
BIT07=
BIT06=
BIT05=
BIT04=
B8IT03=
BIT0Z2=
BIT01=
81700=
BIT9=BIT09
BIT8=BIT08
BIT7=81107
BIT6BIT06

BIT5=8B]T05
BIT4=8BIT04
817381703

BIT2=8BIT02
BIT1=BITNY
81T0=BI1T00
;*BASI( "'CPU'* TRAP VECTOR ADDRESSES
;. TIME OUT AND OTHER ERRORS
ERRVE(= 4

ReSVEC(-= 10

;oRESERVED AND

ILLEGAL

INSTRUCTIONS

(KKTAAD 11/44 MEM MGMT PRT A

BASIC DEF INITIONS

808

000014
000014
000014
000020
000024
J00030
000034
000060
000064
000240

000250

SEQ 0013

;2T

BPTVEC= 14
JI0OTVEC= 20

:;BREAKPOINT TRAP (BPT)
;o INPUT/0UTPUT TRAP (IOT)

PWRVEC= 24

EMTVEC= 30
TRAPVE (=34

TKVEC=
60
TPVEC=
64
PIRQVE (=240

BIT

;. TRACE

TRAP

:;POMER FAIL

;:TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

:*KT11 STATUS REGISTER ADDRESSES

UIPDRO=
UIPDR1=
UIPDRZ2=
UIPDR3=

177620

UDPDRO=
UDPDR1=
UDPDR?2=
UDPDR3=
UDPDRé&=
UDPDRS=

SR1=
SR2=

SR3=

177572
177574
177576
172516

;*USER '°I'' PAGE DESCRIPTOR REGISTERS

UIPDRé4=

UIPDRS=
UIPDR6=
UIPDR?7=

177600
177602
177604
177606
177610
177612
177614
177616

;*USER ‘D'’ PAGE DESCRIPTOR REGISTORS

177620
177622
177624
177626
177630
177632
UDPDR6= 177634
UDPDR?7= 177636

;*USER ''I'' PAGE ADDRESS REGISTERS

177640
177642
177644
177646
177650
177652
177654
177656

UJPARO= 177640
UIPAR1= 177642
UIPARZ2= 177644
UIPAR3= 177646
UIPAR4= 177650
UIPARS= 177652
UIPARG= 177654
UIPAR?7= 177656

177660
177662
177664
177666
177670
177676

UDPARO= 177660
UDPAR1= 177662
UDPARZ2= 177664
UDPAR3= 177666
UDPAR4= 177670
UDPARS= 177672
UDPARG= 177674
UDPAR7= 177676

172200
172202

SIPDRO= 172200
SIPDR1= 172202

=«SCOPE=x«

;;EMULATOR TRAP (EMT) ««ERRORw*
;' 'TRAP'' TRAP

.SBTTL
MEMORY MANAGEMENT DEF INITIONS
;*KT11 VECTOR ADDRESS
MMVEC(C=
250

177600
177602
177604
177606
177610
177612
177614
177616

177672
177674

N 1
PAGE 9-¢

TBITVEC=14

TRTVEC=

SRO=

177626
177630
177632
177634
177636

26=SEP-79 12:27

177572
177574
177576
172516

177622
177624

MACRO M1111

;*USER ‘D'’ PAGE ADDRESS REGISTERS

S *SUPERVISOR “°'I"" PAGE DESCRIPTOR REGISTERS

CKKTAAD 11/44 MEM MGMT PRT A

MEMORY MANAGEMENT DEF INITIONS

MACRO M1111

26-SEP-79 12:27

SIPDR2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPDR6=
SIPDR7=

172204
172206
172210
172212
172214
172216

SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
SDPDR4=
SDPDRS=
SDPDR6=
SOPDR7=

172220
172222
172224
172226
172230
172232
172234
172236

SIPARQO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPAR4=

172240
172242
172244
172246
172250

PAGE 9-3

;*SUPERVISOR ‘D'’ PAGE DESCRIPTOR REGISTERS

172236
172240

172242

172244
172246
172250
172252
172254
172256

172260
172262
172264
172266
172270
172272
172274
172276

172300
172302
172304
172306
172310
172312
172314
172316

172320
172322
172324
172326

172330
172332
172334
172334

;*SUPERVISOR ''I'' PAGE ADDRESS REGISTERS

SIPARS= 172252
SIPARG= 172254
SIPAR7= 172256

:*SUPERVISOR 'D'' PAGE ADDRESS REGISTERS

SDPARO= 172260
SDPAR1= 172262
SDPAR2= 172264
SDPAR3= 172266
SDPARG= 172270
SDPARS= 17227°2
SDPARG= 172274
SDPAR7= 172276
s *KERNEL ''I'' PAGE DESCRIPTOR REGISTERS

KIPDRO= 172300

KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

172302
172304
172306

172310
172312
172314
172316

;*KERNEL ‘D'’ PAGE DESCRIPTOR REGISTERS

KDPDRO= 172320
KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDRS= 172332
KDPDR6= 172334
KDPDR7= 172336
s *KERNEL 'T"SAGE ADDRESS REGISTERS
KIPARO= 17234
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346

KIPARé4= 172350

SEQ 0014

(KKTAAD 11/44 MEM MGMT PRT A
MEMORY MANAGEMENT DEF INITIONS

MACRO M1111

26-SEP-79 12:27

c 2
PAGE 9-4

SEQ 0015

K]PARS= 172352
K]PARG= 172354
KIPAR7= 172356

;*KERNEL ‘D'' PAGE ADDRESS REGISTERS

KDPARO= 172360
KDPAR1= 172362

KDPAR2= 172364

KDPAR3=
KDPAR4=
KDPARS=
KDPARG=
KDPAR7=

172366
172370
172372
172374
172376

;*ADDITIONAL

DEFINITIONS

MMRO=SR0
MMR1=SR1
MMR2=SR?

177572
177574
177576
172516

MMR3=SR3

KSP=SP
SSP=SP
USP=SP
TBIT=BIT4
WBIT=BIT6
KERSTK=STACK

000100
001100
000700
000600
177766
177770

SUPSTK=STACK-200
USESTK=STACK-300
CPUERR=177766
RMIREG=177770

.SBTTL

000000

TRGP CATCHER

:«ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A '*.+2,HALT"'
“~SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

000174
000000
000000

000200

000137

; *LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

020000

DISPREG: .WORD
0
;. SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
0
;;SOFTWARE SWITCH REGISTER
.SBTTL
STARTING ADDRESS(ES)
JMP
S#START ;;JIMF TO STARTING ADDRESS OF PROGRAM
.SBTTL
ACT11 HOOKS
A2

000046

000052
883

000204
000046
035116
000052
000000
000204

22AA220220R2XR22

*HOOKS REQUIRED BY ACT11
$SVPC=.

:SAVE PC

ifgng

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

"WORD

LSBTTL
A

2Rt RRRRRRRRRRiRRRtRRRR
R RRR R

. $SVPC
APT PARAMETER BLOCK

2222222222322

::2)SET LOC.52 TO ZERO
;;

RESTORE PC

0822020222020t

RRRRRRRRRRRRRttRRRRR

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

.'"."."'......"..tt'fi.""."Q'.“'.'..""..Q"""'..".'.'.Q

.9X=.

000024
000044

.=24
200
. 44
SAPTHDR

;2 SAVE

CURRENT LOCATION

;:SET POWER FAJL TO POINT 7O START OF
:.FOR APT START UP
:;POINT TO APT INDIRECT ADDRESS PNTR.
;:PNINT TO APT HEADER BLOCK

PROGRAM

(KKTAAQ 11/44 MEM MOMT PRT A
APT PARAMETER BLOCK

MACRO M1111

26=SEP-79 12:27

000204

.=.8X

R4
PAGE 9-5

SEQ 0016

;;RESET 1 OCATION COUNTER

""fi".'.t.'...'fi.!.'t'tl."'...'tl.l'..'t.'.'tl'Qtt'.t!ttfittt"..

000204

000204
000206
000210
000212
000214
000216

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT~PDP11 DIAGNOSTI(
. INTERFACE SPEC.

000000
001224
000010
000020
000005
000014

$APTHD:
$HIBTS: .WORD
SMBADR: .WwORD

$TSTM:
$PASTM:
SUNITM:

_WORD
_WORD
_WORD

.WORD

O
SMAJL
10
20

;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;. ADDRESS OF APT MAILBOX (BITS 0-15)
:;RUN TIM OF LONGEST TEST
..RLN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
cADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
$ETEND-SMAIL/2 ;s LENGTH MAILBOX-ETABLE (WORDS)

(KKTAAD 11/44 MEM MGMT PRT A

COMMON TAGS

26=-SEP=79 12:27

MACRO M1111

.SBTTL

884

COMMON TAGS

8853888

207

012

377

000

377

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

.REPT
$REGD:
.WORD
$REG1:
.WORD
$REGZ2:
.WORD
$REG3:
.WORD
$REGL:
.WORD
$REGS:
.WORD
.REPT
6
$TMPO:
.WORD
STMP1:
.WORD
$TMP2:
.WORD
$TMP3:
.UORD
$TMPL:
.WORD
$TMPS:
_WORD
$SESCAPE: 0
$BELL:
LAS(C]Z

$QUES:
$CRLF:
$LF:

L.ASCI]
_ASCI!
JASCI2

g
DDISP

:;ADDRESS OF SWITCH REGISTER
;. ADDRESS OF DISPLAY REGISTER

;. TTY KBD STATUS
;:TTY KBD BUFFER

;oTTY PRINTER STATUS REG.
::TTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

;¢ CONTAINS NULL CHARACTER FOR FILLS
;o CONTAINS # OF FILLER CHARA(CTERS REQUIRED

;s INSERT FILL CHARS. AFTER A "LINE FEED"

;. TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)

$NULL:
$FILLS:
$FILLC:
$TPFLG:
$REGAD:

177560
177562
177564
177566

;oAUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR

$TKS:
$TKB:
$TFS:
$TPB:

[eololelolololelelololdelolelololols
o)

000

THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RET'URN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS NF °*GOOD' DATA
ADDRESS OF 'BAD' DATA
°'GOOD* DATA
'BAD' DATA

:;RESERVED=-=NQOT TO BE USED

OO—MNO
~N

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
.WORD
SWR:
DISPLAY: .WORD

;:START OF COMMON TAGS
;;CONTAINS
. cCONTAINS
;s CONTAINS
;. CONTAINS
;s CONTAINS
;. CONTAINS
;s CONTAINS
;;CONTAINS
:;CONTAINS
;. CONTAINS
;;CONTAINS
;s CONTAINS
;:CONTAINS

Q
o

$ERRP(C:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT:

OOOOOCOWTM

000000

.WORD
_BYTE
.BYTE
_WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE

OOOOOO

$TSTNM:
$CRFLG:
$I(NT:
$LPADR:
SLPERR:
SERTTL:
$SITEMB:
$ERMAX:

SXNXNIFHFRuSRRIAIRSSE

)

SCMTAG:

W
[a¥]

D
e

D
d
b

e
D

d od —d

d
D
b e

d e

d
—

——

—

) e

)

33 2883833888333838

001134

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;*USED IN THE PROGRAM.
.=1100

000000
000
000
000000
000000

SEQ 0017

2222222222333 223 2222222223222 8222328203232
11221220
%2]

1*THIS TABLE

001100

E
2
PAGE 10

;. CONTAINS THE ADDRESS FROM
(SREGO) WAS OBTAINED
JJWHICH

;;CONTAINS
;:CONTAINS
::CONTAINS
:;CONTAINS
;;CONTAINS
:;CONTAINS

;USER DEF INED

;cUSER DEF INED

s cUSER DEF INED
;cUSER DEF INED

:sUSER DEF INED

..USER DEF INED

;. ESCAPE ON ERROR ADDRESS

<207><377><377>;;CODE

/?/
<15>

<12>

+0)
((SREGAD)
+2)
((SREGAD)
+4)
((SREGAD)
((SREGAD)+6)
((SREGAD)+10)
((SREGAD)+12)

FOR BELL

:;QUESTION MARK
;2 CARRJAGE RETURN

J:LINE

FEED

—

CKKTAAQ 11/44 MEM MGMT PRT A

COMMON TAGS

2
PAGE 10-1
F

MACRO M1111

26-SEP=-79 12:27

SEQ 0078

'.'Qfi‘fit'i..'Qttfi'ttt'lt"t"tt'."l‘ttttttt't.'ttt'ttttt'tt'tt.Q't

"SBTTL

APT MAILBOX~ETABLE

""tttt"tt't'ttttt'fitt‘*"'ttt'ttt!ttttfi'tfittttttitt.'ttt't'it.!'

AUSWR
ACPUOP

.WORD

TRAPP(:
TRAPPS:

.WORD
.WORD

WASSR":
WASSRZ2:
TBITPS:

.WORD
.WORD
.WORD

WASRG:

WASSRQO:

TONUM:

VIRT1:
VIRTZ:

PBALO:
PBAH]:
DATAOR:
DATAND:
PATTOR:

PATAND:
ADDROR:
ADRAND:

ERRCNT:
BADP(:
OLDPC:
OLDPS:

PCPUER:

CPUEXP:

000200

BITS

.WORD

. WORD

_WORD
.WORD

.WORD
.WORD
.WORD
,WORD
.WORD

.WORD
.WORD
. WORD

.WORD
.WORD
.WORD
.WORD

.WORD

,WORD

HOLFLG: .WORD
HDWF LAG: . WORD
READON: .WORD

SMX(NT.

.WORD

20000
200

15=-11=CPU TYPE
11/704=01,11/05=02,11/20=03,11/40=04,11/45=05

11/70=06.PDQ=07,0=10
10=REAL TIME CLOCK
O9-FLOATING POINT PROCESSOR
8=MEMORY MANAGEMENT

;HOLDS TEST NUMBER FOR TYPEOUTS

;USED TO STORE THE STACK POINTER AFTER A TRAP
:USED TO STORE THE PC OF A TRAP OR ABORT

:USED TO STORE THE PS OF A TRAP OR ABORT

:USED TO STORE CONTENTS OF SRQ
:USED TO STORE CONTENTS OF SR1

:USED TO STORE CONTENTS OF SR2

SAVES THE PSW THAT MAY HAVE ITS T-BIT ON
:HOLDS NUMBER OF TIME-OUTS
;HOLDS VIRTUAL ADDRESS TO BE

.
N\

TESTNO:

COUNT

;:DEVICE COUNT
22170 UNIT NUMBER
; ;MESSAGE ADDRESS
; ;MESSAGE LENGTH
;;APT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
:;ENVIRONMENT MODE BITS
;:APT SWITCH REGISTER
:;USER SWIT(HES
;:CPU TYPE,OPTIONS

BIT
BIT
BIT

[eleleleololalalelalelolalololololeolololalolololololelo]

000000
000000
000000
000000
000000
000000

;s PASS

SETEND:
JMEXIT

001254

001254
001256
001260
001262
001264

AENV
AENVM
ASWREG

:;APT MAILBOX
; ;MESSAGE TYPE (CODE
;sFATAL ERROR NUMBER
::TEST NUMBER

S.e,
0, 0w,

AMSGTY
AFATAL
ATESTN
APASS
ADEV(CT
AUNIT
AMSGAD
AMSGLG

000000

.EVEN
SMAIL:
SMSGTY: .WORD
SFATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$SMSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
SENV:
.BYTE
$SENVM:
_BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

001224
001224
001226
001230
001232
001234
001236
001240
001242
001244
001244
001245
001246
001250
001252

)

SHOLDS BITS <15:00> OF

CONVERTED

PHYSICAL ADDRESS

SHOLDS BITS <21:16> OF PHYSICAL ADDRESS
;HOLDS LOGICAL OR OF BAD DATA
;HOLDS LOGICAL AND OF BAD DATA
;HOLDS LOGICAL OR OF PATTERN LOADED
:HOLDS LOGICAL AND OF PATTERN LOADED
;HOLDS LOGICAL OR OF ADDRESS
;HOLDS LOGICAL AND OF ADDRESS
;HOLDS NUMBER OF ERRORS ON TEST
;HOLDS PC FROM ABORT OR TRAP
:HOLDS RETURN ADDRESS IN CASE OF LOOP ON ERROR
:HOLDS OLD PSW IN CASE OF LOOP ON ERROR
;HOLDS VALUE OF CPU ERROR REGISTER
;HOLDS EXPECTED CPU ERROR CONDIT1ON
;HOLDS NUMBER OF TIMEOUTS FOR CARRY PROPAGATION TEST
:FLAGS APT SPECIAL HARDWARE FOR T47 & 150
READ ONLY BIT IN MMRO
;HOLD MAX.

NUMBER OfF

LOOP

ITERATIONS

(KKTAAQ 11/44 MEM MGMT PRT A

APT

MAILBOX~Et TABLE

001346
001350
N01353

000000
136
012

001356
001356
001360
001362
001364
001366
001370

103
000

MACRO M1111

015

26=-SEP-79 12:27

$IBIT:
SONTLC:
PARTAB:

172200
172240
172300
172340
177600
177640

.WORD
.ASCIZ
EVEN
L

O
/*(/<15-<12>

PAGE 10-2

SEQ 0019

;'T' BIT STATE
JCONTROL €

;THIS IS THE TABLE OF
;OF

.WORD
WORD
.WORD
WORD
.WORD
.WORD

INDICATOR

172200
172240
172300
172340
177600
177640

EACH GROUP.

JADDRESSING TEST.
:SIPDRO
; SIPARO
;KIPDRO

;KIPARQ
;UIPDRO
;UIPARD

THE fjRST PAR OR PDR

THEY ARE USEL FOR THE DUAL

(KKTAAQ 11/44 MEM MGMT PRT A

ERROR POINTER TABLE

MACRO M1111

26-SEP-79 12:27

.SBTTL

PAGE 11

SEQ 0020

ERROR POINTER TABLE

:*TH]IS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION SITEMB, THIS NUMBER INDICATES WHICH ITEM [N THE TABLE IS PERTINENT.
:*NOTE:

:*NOTEZ:
:*
EM
DH
Jw

$ERRTB:

001372

887 001372
888 001374
889 001376

890 0014GO

041304
044647
047606
050360

893 001402
894 001404
895 001406
896 001410

041344
044727
047624
050365

899
900
9C1
902

001412
001414
001416
001420

041413
045026
047646
050375

905
906
907
908

001422
001424
001426
001430

041452
045026
047646
050375

911
912
913
914

001432
001434
001436
001440

041505
045026
047646
050375

917 001442
918 001444
919 001446
920 001450

041560
045026
047646
050375

923
924
925
926

001452
001454
001456
001460

041643
045066
047660
050401

929 001462
930 001464

041701
045116

JeITEM 1

EM2

JUNEXPECTED MEM. MGMT.

DT?

: TRAPP(C , TRAPPS ,WASRG6,WASSRO,WASSR1
,WASSR2, TESTNO, $SERRP(C,0

DF 2
J*ITEM 3
-~ EM3
DH3

DT3
DF3

Jx]TEM 7

;0LD PC

OLD PSW R6 WAS

TRAP T0O LOC. 250

SRO

SR1

SR2

;0,0,0,0,0,0,0,0

;PRIORITY BITS SET WRONG IN PSW

;WROTE
READ
TESTNO
ERRORPC
;OREGO,SREGT, TESTNO,SERRPC,0
;0,0,0,0

!MODE BITS SET WRONG IN PSW
;WROTE
READ
TESTNO
ERRORP(C
JSREGO,SREGT,TESTNO,SERRPC.0

EMS

;DUAL ADDRESSING BETWEEN HIZLO BYTES OF PSw

DF3

;0,0,0,0

EM6

:KERNEL

DH3
or3
J*]TEM 6

;OLD PC
OLD PSW R6 WAS
C(CPUERR
TESTNO
ERRORPC
;TRAPPC,TRAPPS,UASRé,CPUERR,TESTNO,SERPPC, 0
:0,0,0,0,0 -

EM4
DH3
DT3
DF3

;*]JTEM S

;;POINTS TO THE DATA

:;POINTS TO THE DATA FORMAT

JUNEXPECTED CPU TRAP TO LOC. 004

DH?2

J*]TEM 4

(SERRPC).

EM1

DH1
DT1
DF1

J*]TEM 2

IF SITEMB 1S O THE ONLY PERTINENT DATA IS

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
:;POINTS TO THE ERROR MESSAGE
;;POINTS TO THE DATA HEADER

;0,0,0.0

;WROTE
READ
TESTNO
ERRORP(C
;SREGO,SREGT,TESTNO,SERRPC,0

R6 CHANGED BY WRITING SUPERVISOR/USER R6

DH3
D13
DF3

;WROTE
READ
TESTNO ERRORP(C
;SREGC,SREGT,TESTNO,SERRPC,0
:0.0,0,0

£m?7
DH?7

;A MEMORY MGMT. REG. TIMED OuT
;ADDRESS TESTNO ERRORP(

DF?7

;0,00

D17
Jx]TEM 10
‘
EM10
DH10

:SREGO, TESTNO,SERRPC,0

JSUMMARY OF MEM, MGMT. REG.
JREGISTER~ADDRS
NUM, OF

TIMEOUTS

TESTNO

ERR

931
932 001466

26-SEP-79 12:27

-3

ERROR POINTER TABLE

MACRO M1111

(KKTAAD 11/44 MEM MGMT PRT A

041745
045216

]TEM T
EMN
DH11

939 001476
940 001500

047704
050411

DT
DF1M

943 001502
944 001504

042005

045336

J+]TEM 12
EM12
DH12

946 001506
947 001510

047720
050416

DT12
DF12

950
951
952
953

001512
001514
001516
001520

042054
045476
047660
050401

;J*]TEM 13
EM13
DH13
DT?7
DF?

956 001522
957 001524
958 001526
959 001530

042111
045526
047736
050375

962
963
964
965

001532
001534
001536
001540

042145
045566

968 001542
969 00154«

042204
045626

971 001546
972 001550

047762
050360

975 001552
976 001554
977 001556
978 001560

042253

045727
047776
050345

J*I1TEM 17
EM17
DH17
D117
DF2

981 001562
982 001564

042331
046010

;x]TEM 20
EM20
DH20

984 001566
985 001570

050014
050432

—

936 001472
937 001474

933 001470

047670
050404

;~I1TEM 14

EM14
DH14
DT14
DF3

;*x]TEM 15
EM15
DH1S
DT15

047750

OF3

050375

:«]TEM 16
EM16
DH16

DT16
1
DF

DT20
DF 20
Je]TEM 21

I
2
PAGE 11-1

SEQ 0021

OR-~ED

JAND-ED

TIMOUTS

TESTNO ERRCRPC

;ADRAND ,ADDROR, TONUM, TESTNO, $ERRP(, 0

:0.0,1,0.0

JMEM. MGMT. REG. WOULD NOT CLEAR
READ-(BINARY)
JREGISTR READ

;ADDRESS (OCTAL) 5432109876543210

:SREGO,SREGT,$REGT, TESTNO,SERRPC,0
;0,0,2,0.0
JMEM,

MGMT.

REG.

BITS NOT

SET

TESTNO

ERRORP(

CORRECTLY

READ
READ
JREGISTR WROTE
(BINARY) TESTNO ERRORP(
(OCTAL)
(OCTAL)
;ADDRESS
GT0
,SREG2, TESTNO, SERRP(,
O,SRE
,$REGZ
;SREG
:0,0,0,2.0,0

;SRO EFFECTED BY WRITE TO PSwW
TESTNO ERRORP(
;READ
sSREGO,TESTNO,SERRPC,
0
;0,0,0

JMRT DID NOT TRACK PROPERLY
TESTNO
ERROR®C(
EXPECTD (MMR1)

GT,
TESTNC, SERRP(C,C
:SREG3,$RE

;0,0,0,0

:MMR3 IS HOLDING THE WRONG DATA
TESTNO
ERRORP(
(MMR3)
;LOADED
PC,0
;SREGZ,$REG1, TESTNO,SERR
:0.0.0.0
:DUAL ADDRESSING BETWEEN PAR-PDR GROUPS
PAR-PDR
;INDEX ~ INDEX
SJEXPECTD RECEIVD ADDRREAD TESTNO ERRORP(

$SERRPC .0
TESTNO,REGZ,
;$REGO,SREGT,$
:0,0.€.0.,0
;PHYS.

ADDR.

;VIR ADDR

FORMED READ WRONG

KIPAR4 GDDATA

IN MAINT.

BADDATA TESTNO

MODE

ERRORP(

s SREGO,KIPAR4 ,SREG1,$REGZ, TESTNO, SERRPC,0

;0,0,0,0,0.0

;PHYS.

ADDR.

FORMED READ WRONG

JPHYSICL PAR 4
;ADDRESS VBA

PAR 5
VBA

PAR &

IN RcLOCATE
PAR S

MODE

PSW

TESTNO

R
;PBALO,VIRT1,VIRT2,SREG4,SREGS,$TMPO,
TESTNO, SERRP( 0
:3,0,0,0.0.0.0, 0

ERR

CKKTAAQ 11/44 MEM MGMT PRT A

ERROR POINTER TABLE

MACRO M1111

26=SEP=79 12:27

001572
001574
001576
001600

042403
046136
050036
050375

EM21
DH21
DT
DF3

994 001602
995 001604

042436
046176

J*]TEM 22
EM22
DHZ?2

997 001606
998 001610

050050

1001 001612
1002 001614
1003
1004 001616
1005 001620
1006
1007
1008 001622

042514
045216

988
989
990
991
992
993

050432

D122
DF20

J*]TEM 23
EM23
DH11

001624
001626
001630

042552
046314
050072
050442

JITEM 24
EM24
DH24
DT24
DF 24

001632
001634
001636
001640

042630
045026
050100
050375

J*1TEM 25
EM25
DH3
DT25
DF3

1020 001642

042701
044727
047624
050365

JITEM 26
EM26
DH2
DTc
DF
2

b
ek
e
b

e cd ed
ad

)
—d

b amd

d o
—

O ~NOWNSWN=O

eololololelelolele)

047704
050411

DT
DF11

001644

1022 001646
1023 001650
1026 001652
1027 001654
1028 001656
1029 001660
1030
1031
1032 001662
1033 001664
1034 001666
1035 001670
1036
1037
1038 001672
1039 001674
1040

1041 001676

1042 001700
1043
1044

042741
046136
050112
050375

043015
046334
050124
050375

J*ITEM 27

EM27
DH21
D127
DF3

J*]TEM 30

EM30
DH30
DT30
DF3

043055
046374

Jx]TEM 31
EM31
DH31

050136
050375

D131
DF3
J*ITEM 32

J 2
PAGE 11-2

SEQ 0022

;SR2 NOT TRACKING CORRECTLY
;SR WAS EXPECTD TESTNO ERROPC
;8A85826$REG1,TESTNO,SERRPC,O

;WRONG PDR'S REFERENCED WHILE
;PHYSICL PAR 4

IN RELOCATE MODE

TESTNO
SRO WAS SR2 WAS PSW
PAR 4
JADDRESS V.B.A.
:gBSL8.518T8,3R564.UASSRO,UASSRZ,STMPO.TESTNO,SERRPC,O

JPAR OR PDR WAS CHANGED BY A RESET

JREGISTR READ

READ~(BINARY)

;ADDRESS (OCTAL) 5432109876543210

:SREGO,SREGT,$REG1, TESTNO,SERRPC(,0
’

TESTNO

ERRORP(

JMAINT MODE (SR0<8>) NOT DISABLED BY A RESET
ERRORP(

JTESTNO

s TESTNO,$ERRPC,0
.

’

;DATA INCORREC1 AFTER A MAINT. MODt WRITE
;WROTE

READ

TESTNO

ERRORPC

:8R668.3REGZ,TESTNO.sERRPC.0

sSOURCE RELOCATED IN MAINT. MODE

;OLD PC

OLD PSW R6 WAS

SRO

SR2

TCSTNO

ERRORPC

;6R8P8C678A8P8,UASRé,UASSRO.UASSRZ.TESTNO.SERRP(.0

;SR2 DIDNOT LOCKUP CORRECT VIRTUAL ADDR.
;SRC WAS EXPECTD TESTNO ERRORPC
:8A858263R564,TESTNO,SERRPC,0

JFOLLOWING PAR/PDR WILL NOT ZERO
TESTNO ERRORPC
;ADDRESS DATA
:3R568.3REGZ.TESTNO.SERRPC.0

;SUMMARY OF DUAL ADDRESSING ERRORS
;ADDROR ADDRAND ADDROR ADDRAND
JLOADED LOADED ENABLED ENABLED TESTNO

#ERRORS

:608R8R6A8Rr.D.DATAOR,DATAND,TESTNO,ERRCNT,O
l.

4 ‘

ERRO

(KKTAAD 11/44 MEM MGMT PRT A
ERROR POINTER TABLE

MACRO M1111

26-SEP-79 12:27

PAGE 11-3

SEQ 0023

1045 001702
1046 001704
1047 001706

043117
046513
050154

EM32
DH32
DT32

1050
1051 001712
1052 001714
1053 001716

043161
046613
050176

J*]TEM 33
EM33
DH33
D733

;ERROR IN BYTE ADDRESSING OF PAR/PDR
;ADDRESS EXPECTD RECEIVD TESTNO ERRORPC
;$REGO,SREG2,$REGT,
TESTNO, SERRPC,C

1056
1057 001722
1058 001724

043225
046663

Jx]TEM 34
EM34
DH34

:THE FOLLOWING ARE DUAL ADDRESSING ERRORS FOR PAR'S/PDR'S
;ADDRESS ADDRESS

;828 001710

}82? 001720

1059
1060 001726

050444

050452

DF 32

.WORD

000000
000000
050212
050360

:«]TEM 35
LMWORD
WORD
DT35
DF1

}8;2 001750

043316
046703
000000
000000

;*]TEM 36
EM36
DH36
WORD
.WORD

1075
1076 001752
1077 001754

000000
000000

1079 001760

050401

1063
1064 001732
1065 001734
1066 001736
1067 001740
1068
1069
1070 001742
1071 001744
1072 001746

1078 001756

1080
1081
1082 001762
1083 001764
1084
1085 001766

1086 001770

1087
1088
1089 001772
1090 001774
1091 001776

}83% 002000

1094

1095 002002

1096 002004
1097

1098 002006
}?gg 002010
1101

000000

WORD

050222

J*]TEM 37
.WORD
LMWORD
DT37

043405
046752

;*]TEM 40
EM4O
D40

047660

DF?7

DT?

050401

DF?7

043470
047010
050236
050365

J*ITEM 41
EM4
DHG
DT41
DF2

043551

047051

050250
050365

;0,0,0,0,0,0,0.,1

DF33

000000

}82; 001730

:SUMMARY OF COUNT PATTERN FAILURES
;ADDROR ADDRAND PATRNOR PATRNAND DATAOR DATAAND TESTNO #Et
:ADDROR ,ADRAND ,PATTOR,PATAND ,DATAOR ,DATAND , TESTNO ,ERR(CHMNT,O

Jx]TEM 42

EMS?2

DH&?2
DT42
DF 2

J*]TEM 43

;0,0,0,0,0

O
O
O

;LOADED
JUST READ TESTNO
;THIS IS A NULL VALUE TO INHIBIT

TYPING

;THIS IS A NULL VALUE TO INHIBIT TYPING
:THIS IS A NULL VALUE TO INHIBIT
JTHIS IS A NULL VALUE TO INHIBIT
;SREGO,$REG1,TESTNO,O
;0,0,0

TYPING
TYPING

JTHE FOLLOWING ARE COUNT PATTERN ERRORS FOR PAR'S/PDR'S
;ADDRESS DATAREAD PATTERN COUNT
TESTNO
JTHIS IS A NULL VALUE TO INHIBIT TYPING
JTHIS IS A NULL VALUE TO INHIBIT TYPING

0
O

JTHIS IS A NULL VALUE TO INHIBIT
;THIS IS A NULL VALUE TO INHIBIT

;SREGO,$REG2,
SREGS ,$REGT, TESTNO,O

TYPING
TYPING

;0,0,0,0,0

JILLEGAL (MODE 10) STACK PUINTER NOT MAPPED TO USER
;READOFF TESTNO
ERRORPC
:STACK
;SREGO,TESTNO,SERPC,0

;0,0,0

;18-BIT MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM
;STARTADR
FINISHADR TESTNO
ERRORP(C
JSTMPY ,STMP2 , TESTNO,SERRP(,0
;0,0,0.0

;FAULTY CARRY PROPAGATION 18-BIT MAPPING

;PATTERN DATA
:LOADED

ADDRESS

FETCHED INTENDED

TESTNO

;SREGZ,$REG3,$REGD, TESTNO,$ERKRPC,0
;0,0,0,0,0

ERRORP(

CKKTAAD 11/44 MEM MGMT PRT A
ERROR POINTER TABLE

1102 002012

043621

1104 002016
1}82 002020

050264
050462

1103 002014

1107

047153

MACRO M1111

26-SEP-79 12:27

;18-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY

DT4L3
DF&43

:$STMP1,TESTNO, SERRPC,0
;4,0,0

S*]TEM 44

1108 002022
1109 002024
1110 002026

043677
046314
050072

1113
1114 002032
1115 002034

043752
047203

;*]TEM 45
EM4S
DHGS

}}1; 002040

050401

DF 7

}}}; 002030

1116 002036

050442

050274

SEQ 0024

EM4L3

DH43

L 2
PAGE 11-4

EMLS
DH24
DT24

DF 24

DT45

:STARTADR

TESTNO

ERRORP(

:NO TRAP THRU ERRVEC,AT 18-8BIT ADDR.
:TESTNO
ERRORP(
:TESTNO,SERRFC,0

760000

;0.0

:DIDN'T GET WRAP AROUND TO ADDRESS ZERO
‘DATA
TESTNO
ERRORP(
“$REG1,TESTNO, SERRPC,0

;0,0,0

1119
1120 002042
1121 002044
1122 002046

044021
047233
047660

SITEM 46
EM46
DH46
DT?

:NO TRAP THRU ERRVEC, ON NON-EX]STANT ADDR.
*NEADDR TESTNO
ERRORPC
:SREGO, TESTNO, SERRC., 0

1125
1126 002052

044074

S*ITEM 47
EMG7

;PREMATURE END OF MEMORY FOUND

1128 002056

050304

DT47

*KIPARG,$LSTBK,
TESTNO, SERRPC,0

}}gz 002050

1127 002054

}}gg 002060

050401

047262
050365

DF7

DH4G7
DF2

;0,0.0

KIPARG

[ASTBK

TESTNO

ERRORP(

:0,0,0,0

1131
1132 002062

044132

:*]TEM S0
EMSO

;22-BI1T MAPPING POSSIBLE HOLE

1134 002066

050236

DT41

:STMP1,$TMP2,
TESTNO, SERRPC,0

1133 002064

1135 002070

1136
1137
1138 002072
1139 002074
1140
1141 002076

047010
050365

DH& 1
DF?2

:STARTBK FINISHBK TESTNO

IN MAIN MEMORY FROM

ERRORP(

;0.0,0.0

044213
047051

;*ITEM S1
EMS1
DHG2

050250

DT42

1144
1145 002102
1146 0021046
1147 002106

044273
047153
050264

;*]TEM 52
EM52
DH4 3
DT43

:22-BIT MAPPING POSSIBLE HOLE AT
:STARTADR
TESTNO
ERRORPC
S$TMP1,TESTNO, SERRPC, 0

1150
1151 002112

044351

;*]TEM 53
EMS3

;DID NOT GET UNIBUS ADDRESS

}}2; 002100

}}23 002110

1152 002114

1153
1154 002116
;;gg 002120
1157

1158 002122

050365

047051

050250
050365
044404

DF2

DH4?2
DT42
DF 2

;*ITEM 54

EMS4

:BAD RELOCATION,CARRY PROPAGATION 22-BIT MAPPING
:PATTERN DATA
ADDRESS
:LOADED
FETCHED INTENDED
TESTNO
ERRORP(
:SREG2,$REG3,SREGO,
TESTNO, SERRPC
0

;0,0,0,0.0

TOP OF MEMORY

;0,0,0

:PATTERN DATA

ADDRESS

:LOADED
FETCHED INTENDED
TESTNO ERRORP(C
:SREG2,SREG3,$REGO,
TESTNO, SERRPC .0
:0,0.0.0.0
:Ww=BIT DID NOT GET

SET

IN PDR

(KKTAAQ 11/44 MEM MGMT PRT A
ERROR POINTER TABLE
1159 002124
1160

1161 002126
}}g% 002130
1164
1165 002132
1166 002134
1167
1168 002136

}}98 002140

1N
1172 002142
1173 002144

1174 002146
1};2 002150

1177
1178 002152
1179 002154
1180 002156
}}g} 002160
1183

1184 002162

1185 002164
1186 002166
1187 002170

MACRO M1111

26-SEP-7" 12:27

047326

DHS4

050316
050375

DT54
DF3

044441
047406

;*ITEM 55
EMSS
DHS5

050330

DTS5

050360
044500
047506
050344

DF1

JAITEM 56
EM56
DH56

050401

DT56
DF 7

044544
047536
047750
050375

Jx]TEM 57
EMS7
DH57
DT15
DF3

044611

047576
050354
050360

J*ITEM 60

EM60

DH60
DT6C
DF1

PAGE 11-5

SEQ 0025
;PDR
;TESTED

VIRTUAL
ADDRESS TESTNG

ERRORPC

s SREGS,$REG3,
TESTNO, SERRPC,0
:0,0.0,0

;W=BIT SET IN MORE THAN ONE PDR
;PDR IN PDR
VIRTUAL

JERROR
TESTED
ADDRESS TESTNO
ERRORP(
;SREGO, SREGS ,$REG3, TESTNO, SERRP(,0

:0.0,0,0,0

;W=BIT NOT CLEARED BY WRITING TO PDR
;PDR
TESTNO ERRORP(
JSREGS,TESTNO,SERRPC,0

;0,0,0

;W=BIT GOT SET DURING ODD ADDR. ABORT
;PDR WAS EXPECTD TESTNO ERRORPC
;SREG2,SREGT,
TESTNO, SERRPC,0
;0.0,0.0

:NO APT SPECIAL HARDWARE FOUND
sERRORPC(
;SERRPC,0
:0

CKKTAAD 11/44 MEM MGMT PRT A
ERROR POINTER TABLE

MACRO M1111

1189
1190

1191
1192

26-SEP-79 12:27

LSBTTL

w~xxxx

.SBTTL

TURN OFF

N 2
PAGE 12

SEQ 0026

SUBROUTINES UNIQUE TO THIS PROGRAM

T-BIT AND SAVE CURRENT PSW

1193
1194
1195

;;tttttttQttttttttt!tttttttttitttttttitttttt'tlttttttttttttttt'tt

1198
1199
1200
1201 002172
1202 002200
1203 002202

° %

o*
i*

1196
1197

BIT

PSW,#4TBIT

;IS THE T-BIT SET IN THE PSW?

175570
177060

MOV
MOV

PSW,~(SP)
(SP) ,TBITPS

:PUSH PRESENT PSW ON THE STACK
;ALSO SAVE IT IN '‘TBITPS'' FOR

000020

BIC

#TBIT, (SP)

158? 002206

016746
011667

1206 002c12

042716

1208 002222
1209 002224

000006
000207

1221 002236

1238
1239
1240
1241
1242
1243
1244
1245

002242
002250
002254
002256

012746

000020

TOFF:

MOV
RTT

1%:

RTS

LSBTTL

#18,-(SP)

EXIT IF NO

JRESTORING LATER
:CLEAR THE T-BIT

(BIT &)

IN THE PSW

;PUSH PC OF 'RTS'' ON STACK

RETURN'' TO 18 WITH T-BIT OFF

JRETURN TO PROGRAM

TURN ON T-BIT AND RESTORE PREVIOUS PSw

‘:ttttttfi'tfittt'ttttttttttttfittfitttt*ifitttifi'tfittQtttiittttttt'it

THIS SUBROUTINE

THE PROCESSOR STATUS

SAVED BY THE °‘TOFF'' SUBROUTINE IN THE 'TTBITPS'' LOCATION.

IS USED TO RESTORE

TO ITS PREVIOUS CONDITION BY RESTORING THE 'T-BIT PSW'’

S oM

036727
001410

177040

012767
012746
000006
000207

000340
002256

016746

177030

000020

R AR A AR

A AR ARk

A R h

MOV
MOV
MOV

T181TPS,~(SP)
#340,TBITPS
#1$.-(SP)

18:

RTS

JRETURN TO PROGRAM

.SBTTL

CLEAR 16 PAR'S OR PDR'S STARTING FROM ADDRESS IN RS

B
..

N
Y

N
PO
SRR

B
LR

000020

A AARAA AR RN A AN

;JWAS T-BIT ON IN THE PREVIOUS PSW?
SEXIT IF NO

177022

BIT
BEQ

ARA AR

TBITPS A18BIT
1%

010046
012700
005025
077002
012600
000207

RN KA AR AANA AR

TON:

KRR

002260
002262
002266
002270
002272
002274

BEQ

002224

1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237

CONDITION WHEN CONDITIONS WARRANT T-BIT TRAPPING.

E:ttttttttttttttttttttttt'tttttttttttttttttttttttttt'tttttittt‘t'
175600

1210
1211
1212
1213
1214
1215
1216
1217
1218
1219 002226
1220 002234

"TBITPS'' SO THAT THE PSW CAN BE RESTORED TO ITS PREVIOUS

036727
001411

1207 002216

THIS SUBROUTINE IS USED TO TURN OFF THE TRACE TRAP BIT IN
THE PSW IF IT IS ON.
THE PROCESSOR STATUS I§ SAVED IN

RTT

AR AR

AN RN AR R

;PUSH PREVIOUS PSW ON THE STACK
JRESET THE °‘‘TBITPS'' LOCATION
;PUSH PC OF 'RTS'' ON STACK

;'RETURN'' TO 18 WITH T-BIT RESTORED

AR R RN AR NN N AN R AN RN

AN R RN RRARNRRNRRR

THIS ROUTINE CLEARS 16 CONSECUTIVE MEMORY MANAGEMENT
REGISTERS STARTING WITH THE REGISTER POINTED TO BY RS.

IT SAVES RO ON THE STACK, AND LOADS A COUNT IN RO,
CLEARS THE PAR'S OR PDR'S, AND THEN RESTORES RO

BEFORE RETURNING.

CALL:

MOV
JSR

#KI1PARO RS
PC,CLRREG

;PUT ADDRESS OF FIRST KERNAL PAR INTO RS
;CLEAR ALL THE KERNAL PAR'S

CHAAN AR RN AANCRNARRAANANARANAAARRARARANNAANAAAANANAAARARAARARNRAR
AR R AN

CLRREG: MOV
1%:

‘

RO,~-(KSP)

;SAVE RO ON THE STACK

(RS)+

:CLEAR PAR OR PDR POINTED TO BY RS

(KSP) +,RO

‘POP RO FROM STACK

MOV

#20,R0

RO,1S

RTS

CLR

MOV

*PUT COUNT IN RO

"BRANCH BACK 15 DECIMAL TIMES
JRETURN TO TEST

MACRO M1111
26-SEP-79 12:27
(KKTAAD 11/44 MEM MGMT PRT A
CLEANUP LOCATIONS THAT HOLD LOGICAL °'AND' AND 'OR'

THIS SUBROUTINE IS USED TO INITIALIZE ALL LOCATIONS THAT
HOLD THE ‘LOGICAL AND''
'LOGICAL OR''
OF THE DATA AND

°‘AND' AND 'OR’

ADDRESSES THAT FAJLED DURING THE EXECUTION OF A TEST.

;;Qt't't't."'t"'t.tltlt"Q'.Q'..'fit""'Q"Q.'t'.""..."'.'.Q

005067
005067
005067
012700
010067
010067
010067
000207

177004
177010
177000
177777
176766
176772
176762

1263
1264
1265
1266
1267
1268
1269

CLEANUP:

CLR
(LR
CLR

DATAOR
ADDROR
PATTOR

MOV

RO.,DATAND

MOV
MOV

MOV
RTS

.SBTTL

JLOCATION OF LOGICAL OR OF BAD DATA
JLOCATION OF LOGICAL OR OF ADDRESS
JLOCATION OF LOGICAL OR OF PATTERN LOADED

#-1,R0

JLOAD =1

INTO RO TO INITIALIZE
JLOCATION OF LOGICAL AND OF BAD DATA

RO ,ADRAND

;LOCATION OF LOGICAL AND OF ADDRESS

RO,PATAND

;LOCATION OF LOGICAL AND OF PATTERN LOADED

JRETURN TO TEST

DUAL ADDRESSING WHEN LOADING A PAR OR PDR

:;t'fitttt'fit't"'fifi*t.."t'tlQfifitfifitfifittfi...QQQ'Q'.Q&Q'.Qtti'tt't

THIS SUBROUTINE WILL LOG AND REPORT ALL DUAL ADDRESSING ERRORS

FOUND IN BOTH PAR'S AND PDR'S.

it
;®
*

1270

A "LOGICAL OR'' AND A "LOGICAL

AND'' OF THE WRITTEN ADDRESSES WILL BE MAINTAINED IN °'ADDROR’,
AND 'ADRAND'.
THE LOG ON THE ADDITIONAL OR FAILING ADDRESSES
WILL BE MAINTAINED IN ‘DATAOR' AND ‘DATAND'.

;:'tttt.tlQttt*ttttt..fit.'t.lt...ltl..'Qtifi'.t"tt'..i.'tQ."l"'

1271
1272 002334
1273 002334
1274 002340
1275 002344
1276 002350
1277 002354
1278 002360
1279 002364

176766
176752
176750
176732
176730
176517

1280 002366
1281 002370
1282 002372
1283 002374

MOV
8IS

BIT

8IS
81T

TSTB

;SAVE RETURN ADDRESS IN CASE OF LOOP
sLOGICAL OR OF WRITTEN ADDRESS
JLOGICAL AND OF WRITTEN ADDRESS
JLOGICAL OR OF DUALED DATA
JLOGICAL AND OF DUALED DATA
;SEE IF THIS IS FIRST ERROR
;JBRANCH [F NOT FIRST ERROR

(KSP) +,0LDPC

RO,ADDROR
RO, ADRAND

R1,DATAOR
R1,DATAND

SERFLG
1%

1%:

8NE
ERROR
B8R
ERROR

LSBTTL

COUNT PATTERN ERRORS IN PAR'S OR PDR'S

2%:

JMP

AR AN

+34
2%
+35

;BRANCH TO EXIT
JRETURN TO TEST

a0LDP(

AN AR AR R A AR

THIS SUBROUTINE

AN RN NI RN AR AR R AR NI LR AN RTRANRRRS

IS USED TO LOG AND REPORT

THE

COUNT PATTERN

ERRORS OCCURRING WHEN TESTING THE PAR'S AND PDR'S.
THE
"LOGJICAL OR'" AND "LOGICAL AND'' OF VARIOUS DATA WILL BE

MAINTAINED A FOLLOWS:
1. ADDRESSES OF

FAILED REGISTERS

°'ADDROR'

AND

‘'ADRAND'

2. DATA FETCHED FROM REGISTERS IN 'DATAQR' AND 'DATAND’
3. PATTERN LOADED INTO REGISTERS IN ‘'PATTOR' AND ‘PATAND'.

%08,

176726

DUALADR:

';'tt.'t"tt't'tt".'tt".l'i.'Ql.t."'t.tt.t"."Q'it'."'tfi.Qtt

:
PARCOUNT

MOV
8IS

BIT

—~

176722
176706
176704
176672
176670
176656
176654

g Gy By B

012667
050067
030267
050167
030167
050267
030267

OODODD

1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295 002400
1296 002400
1297 002404
1298 002410
1299 002414
1300 002420
1301 002424
1302 002430

M
i

1262

002332

CLEANUP LOCATIONS THAT HOLD LOGICAL

1261

.SBTTL

1260 002326

SEQ 0027

;;t"..'t.QQ‘.".t.'.""""'.l..fifi".fi'.'..'...'.'."'..'Q'.'.t

1246
1247
1248
1249
1250
1251
1252
1253 002276
1254 002276
1255 002302
1256 002306
1257 002312
1258 002316
1259 002322

B 3

PAGE 12-1

(KSP) +,0LDPC
RO,ADDROR
R0,ADRAND
R1,PATTOR
R1,PATAND
R2,DATAQOR
R2.,DATAND

sSAVE RETURN ADDRESS IN CASE OF LOOP
sLOGICAL OR OF FAILING ADDRESS
JLOGICAL AND OF FAILING ADDRESS
;LOGICAL OR OF PATTERN LOADED
;LOGICAL AND OF PATTERN LOADED

JLOGICAL OR OF DATA FETCHED
JLOGICAL AND OF DATA FETCHED

MACRO M1111
(KKTAAQ 11/44 MEM MGMT PRT A
(OUNT PATTERN ERRORS IN PAR'S OR PDR'S

\-Snw

1303 002434
04 002440
002442
306 002444
307 002446
%08 002450

105767
001002
104036
000401
104037
000177

26=SEP=79 12:27

176443

TSTB

BNE

ERROR

1%:
2%:

176652

B8R

ERROR
JMP

PAGE 12-2

SERFLG

+36

+37
a0LDPC

SEQ 0028
;SEE

THIS

THE

FIRST ERROR

*BRANCH IF NOT FIRST ERROR

:BRANCH TO EXIT
:RETURN TO TEST

;'CALL:

JSR
PC,$SI2E
RE TURN
e
“«SLSTAD WILL CONTAIN:

:'
;e

WITH KT11 OPTION
WITHOUT KT11 OPTION

-~ LAST VIRTUAL ADDRESS OF THE LAST BANK
-- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

Ta$LSTBK WILL CONTAIN THE LAST BANK AS A SAF
~sxr07 = 0 DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE TH CALL

-31115 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION

$SIZE:

000004
000006
SSET

000006
003776
$KT11:

MOV
MOV
MOV
MOV
MOV

R1.-(SP)

S SAVE R1 ON THE STACK

R2,=(SP)
*SAVE
R3,-(SP)
*SAVE
SWERRVEC.,-(SP)
-+SAVE
FERRVEC+2,~(SP)
SP.RO
:SAVE

R2 ON THE STACK
R3 ON THE STACK
PRESENT ERROR VECTOR PS & P(
THE STACK POINTER

THE ERRVEC PS TO THE PRESENT PS
T1RAP
;PUSH OLD PSW AND PC ON STACK

MOV
MOV

(SP)+, a~ERRv5c+2..5Avs THE PSW IN @¥ERRVEC+?2
#3776.R1
*SETUP ADDRESS

TSTB
.WORD

(PC)+
200

:SUSE MEMORY MANAGEMENT?
;;SET TO USE MEMORY MANAGEMENT

000004

BPL
MOV

$CORE
*BR IF NO
#SKTNEX, awennvec.,ser FOR TIMEOUT

003122
000340

177754

000250
000252

BIS

#100000,8KT11

172340
000010
077406

177740

MOV

CLR
MOV

000200

002626
000020
177572
002660
143776
000040
172356

MOV

000004

172516

2% :
000004

3¢

48 :

SRO

#MGMERR
. @#MMVEC

#3540, SNMMVEC+2
-(SP)
#K IPARQ,R2

:KT11

ARE

YOU THERE?

- -YES==SET KT11 KEY
::SET

IN CASE OF

ERROR

#-D8,R3

;:INITIALIZE FOR ‘PAR'' LOADING
:ADDRESS OF FIRST ‘PARTM
SLOAD EIGHT 'PAR.'S'* AND EIGHT 'PDR.'S"

(SP), (R2)+

*LOAD 'PAR"’

MOV

#77406,-40(R2)

ADD
S08

#200. (SP)
R3,1

SUPDATE FOR NEXT 'PAR'
SLOOP UNTIL ALL EIGHMT ARE LOADED

CLR
MOV
MOV

-(R2)
#2% . MERRVEC
#20, 3#SR3

SISETUP KIPARG FOR TESTING.
2:CATCH TIMEOUT IF NO SR3
SENABLE 22 BIT MODE

MOV

177600

101371

MOV

002670
177572

160000

023712

DETERMINED BY ROUTINE
~sLser WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION
MOV
RO.=(SP)
::SAVE RO ON THE STACK

B8R

CMP

#177600,-(R2)

(SP)+,(SP)+

:iPDR
= 4K,

UP,

READ/WRITE

--SETUP KIPAR7 FOR 1/0

S THIS PDP=11 HAS A SR3 REGISTER
..CLEAN OFF TE STAC--NO SR3

INC

a¥SR0

143776

. TRAP ON NON~E X~MEM

arKIPAR?7. (R2)

,,LAsr ONE?

MOV
ADD

)

BH]

TURN ON MEMORY MANAGEMENT

#SKTOUT acennvsc..sn FOR TIME OUT
#40, (R2)

MAKE
A 1K STFP

J:NO==TRY [T

MACRO M1111
(KKTAAQ 11/44 MEM MGMT PRT A
(OUNT PATTERN ERRORS IN PAR'S OR PDR'S
002660
002662
002666
002670
002676
002704
002706
002712
002716
002720
002724

00272€
002732
002736
002744
002750
002752
0027564
002760
002762
002766
002772
002776
003002
003004
003006
003010
003012
003016

FHRIRIEIRURIRE

003022

162701
162702
012737
012701
005721
000776
162701
010006
012637
012637
010167
010267
012603
012602
012601
012600
005067
000207

177572

100000
002726

177614
000004

004000
000040
002754
020000

(R2) ,R2
;oGET LAST BANK+1
a¥SRO
;s TURN OFF MEMORY MANAGEMENT
$SI12EX
#100000,8KT11
JcKT11 NON<EXISTENT
#$CROUT . apennv&c..ssr FOR TIMEOUT
R2
SSET UP BANK

$SI2EX: SUB

#40.R2

ADD
ADD
TST
CMP
BNE
$CROUT: SUB

177776

000004

1%:

#4000 ,R1
#40,R2
(R1)
#177776.R1
13
#4000 ,R1

* INCREMENT 8Y 1K
;31K STEP
STRAP ON TIME OU!
..LAST ONE
NO--TRY AGAIN

MOV
MoV

#2$% ,a¥ERRVE(
#20000,R1

;.SET FOR TIMEOUT
;.FIRST ADDRESS

B8R

::TRY ANOTHER

TST

2%:

000002

(R1)+

SuB

#2,R1

MOV
MOV

000006
000004
000022
(00020

174750
$LSTAD:
$LSTBK:

000000

;:TEST AND STEP TO NEXT ADDRESS

: :DROP BACK

(SP)+ a#ERRVE(

MOV
MOV
MOV
MoV
MOV
MOV
CL?

R1,$LSTAD
R2.SLSTBK
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+,R0
CPUERR

;sLAST ADDRESS
;JLAST BANK
;;RESTORE R3
;;RESTORE R?
2 ;RESTORE R1
;RESTORE RO
;CLEAR THE ERROR REGISTER

.WORD
.WORD

0
O

2 ;CONTAINS THE LAST ADDRESS
;2 CONTAINS THE LAST 8ANK

LSBTTI

.SBTTL

; :DROP BACK

RO,SP
JsRESTORE THF STACK
(SP)+ ,a#ERRVE(C+2; ;RESTORE ERROR VECTOR

MOV

0C0000

SEQ 0029

$KTOUT: MOV
CLR
BR
SKTNEX: BIC
$CORE:
MOV
CLR
1$:

004000
000040

PAGE 12-3

wwaws

TRAP HANDLING ROUTINES

«xnex

(PU TRAP HANDLER ROUTINE

""tt'i'i'ttttfitt.'itttfiittiittlfiitlfltittl'Q't.tttttlfitt..fit.t't‘t

THIS SUBROUTINE WILL HANDLE ALL

CPU TRAPS AND ABORTS

THRU

"ERRVEC'' (LOC. 004).
IF THIS SUBROUTINE IS ENTERED BY A
SECOND [RAP BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS
EXECUTED.

N N N NN N LN N AN NN AN AN AN N NN NN
NN NN
] NN =D
a2
N=O VNN
W=
L

N
S QU S W S S
SU U S W
e I

003020

011202
005037
000421
042767
012737
005002
062701
062702
005711
022701
001370

)

26-SEP=-79 12:27

TIMERR:

TIMFLG:

003044

016767

]

}74716
1

176260

INC

AR NN

RN P AR RN RN RN

(PC)+

.WORD
BEQ
HALT

-1
1%

MOV
MOV
MOV
MOV
TST

(KSP)+, TRAPP(
(KSP) +,TRAPPS
CPUERR ,PCPUER
KSP ,WASR6
CPUEXP

BEQ

JMAKE

R R AN RN RN RRRNRRR AR RN RS

FLAG ZERO IF

FIRST

TIME

* W

THRU

JNEGATIVE ONE FOR 'HAVE ENTERED'' FLAG
BRANCH IF FIRST TIME IN
:STOP! - ['VE ENTERED THIS ROUTINE

;A SECOND TIME BEFORE I FINISHED
THE
;REPORTING THE FIRST ERROR.
;SECOND ENTRY ADDRESS SHOULD BE ON
;THE KERNEL STACK.
;SAVE PC+2 AT TIME OF ABORT
;SAVE PS AT TIME OF ABORT
;SAVE (PU ERROR REGISTER
;SAVE STACK POINTER VALUE
;SEE IF ANY ERROR CONDITION WAS EXFECTED
;BRANCH [F NO TRAP EXPECTED

(KKTAAQ 11/44 MEM MGMT PRT A

026767
001401

176242
174664
1727777
176146
176140

N = OO0 NN
WY =

VAN RERRRRRRRE

[

SN N

(PU TRAP HANDLER ROUTINE

MACRO M1111

26=SEP=79 12:27

176242

177716

2%:
3%:

3
SEQ 0030

cMP

PCPUER,CPUEXP

;SEE

MOV

=1, TIMFLG

JMAKE FLAG NEGATIVE ONE FOR NEXT

MoV
RTT

TRAPP(,
= (KSP)

BEQ
ERROR
CLR
MOV

.SBTTL

PAGE 12-4

3s
+1
CPUERR

TRAPPS , - (KSP)

EXPECTED CONDITION OCCURED

JBRANCH [F ERROR CODES MAT(H
JUNEXPECTED TRAP OR ABORT TO LOC. 4
;CLEAR CPU ERROR REGISTER
JPUT PC & PS OF

TRAP ON STA(K

TIME

JRETURN FROM INTERRUPT OR ABORT

MEMORY MANAGEMENT TRAP HANDLER ROUTINE

""tQtfi*tfi't'Q.fitt.'ttfi'fi"ttttt.fi‘tfitt"'Qfififi.'Q.Qfittfit.ttt"tt"
~

i
i

it
.

353

THIS SUBROUTINE WILL HANDLE ALL UNEXPECTED MEMORY MANAGEMENT
TRAPS AND ABORTS THRU "MMVEC'' (LOC. 250).
IF THIS SUBROUTINE

ENTERED BY A SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A
HALT IS EXECUTED.

1356
1357
1358
1359

003122
003124
063126
003130

:'"Q.fitttfitt"'fiittttttt"i'Qtt'.itfi.fi"tifl"'"t'fi"tt‘.Qtit"fi'ti

005227
1727777
001401
000000

MGMERR:

012667
012667
010667
016767
016767
016767
042767

1%:

MGMFLG:

INC

(PC)+

.WORD
BEQ
HALT

=1
1%

176110
176104
176100
174374

MoV
MOV
MOV
MOV
MOV
MOV
8IC

(KSP)+,TRAPPC
(KSP)+,TRAPPS
KSP ,WASR6
SRO,WASSRO
SR1,WASSR1
SR2 ,WASSR?
#160000, SRO

177716

MOV

#-1,MGMFLG

MOV
RTT

TRAPP(,~(KSP)

ERROR

MOV

.SBTTL

FIRST

TIME

THRU

;A SECOND TIME BEFORE I FINISHED
THE
JREPORTING THE FIRST ERROR.
;SECOND ENTRY ADDRESS SHOULD BE ON
;THE KERNEL STACK.
;SAVE PC+2 AT TIME OF ABORT
;SAVE PS AT TIME OF ABORT
;SAVE STACK POINTER VALUE
;SAVE CONTENTS OF KT STATUS
;SAVE CONTENTS OF KT STATUS
;SAVE CONTENTS OF KT STATUS
;CLEAR ERROR BITS IN STATUS

REG. O
REG. 1
REG. 2
REG O

JUNEXPECTED TRAP OR ABORT TO LOC. 250

TRAPPS , = (KSP)

;PUT PC & PS OF

JMAKE FLAG NEGATIVE ONE FOR NEXT

TRAP ON STA(K

TIME

JRETURN FROM [NTERRUPT OR ABORT.

CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS

B
B
B

8,8,

5
3
B

8, 8,8,
e

»»

""tkttl"!'Qttttttlttttttlt'!tittt"t‘tt'kfi't't..tt'ttt"t!’tlt“ti'

177777
176050
176042

[0}

—_

012767
016746
016746
000006

FLAG ZERO IF

JNEGATIVE ONE FOR 'HAVE ENTERED'' FLAG
LBRANCH IF FIRST TIME IN
;STOP! = I°VE ENTERED THIS ROUTINE

THIS SUBROUTINE IS USED TO FORM AN 22-81T PHYSICAL ADDRESS
(PBA) FROM THE 16-BIT VIRTUAL ADDRESS (VBA) AND THE APPROPRIATE
PAGE ADDRESS REGISTER (PAR).
THE SAME METHOD USED BY THE MEMORY

MANAGEMENT LOGIC IS USED.

VBA <15:13> SELECTS WHICH PAR/PDR

IS TO BE USED, VBA <5:0>+PBA <5:0>, AND VBA <12:6> IS ADDED

TO PAR <15:00> TO GIVE PBA <21:6>.
BITS <21:16> OF THE
PHYSICAL ADDRESS ARE LEFT IN LOC. ‘PBAHI'® AND BITS <15:00>
ARE LEFT IN LOC. '"PBALO''.
THE PSW'S ''CURRENT MODE'’' BITS
ARE USED TO SELECT THE KERNEL,SUPERVISOR OR USER PAR/PDR'S.
THE ROUTINE IS ENTERED WITH LOC. "VIRT1'W CONTAINING THE 16-R[~
VIRTUAL ADDRESS.

NOMN
W N—=O0

104002

W
~nN

VOO NV

WWWWWWNWWWNWN
SNNNNNNNNNYNY

235 s BREE

)

d e

d —d

D —d —d

b —ad

S
U WY
D P S

3
3

SEsyEEss

1361

sJMAKE

".‘t..tt.t"tltfi.i'tttt...t"t'tflfi'.'lQtt!.t"‘t.tl...".Q.""'.t

TKKTAAD 11/44 MEM MGMT PRT A
MACRO M1111
CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS
1394 003220

012702

1396 00323¢

001403

1398
1399
1400
1401
16402
1403

003256
003262

000406
032767
001402
012702
016700
072027

1405 003272

060002

1395 003224

1397 003234

003240
003242
003250

003252

1404 003266

1406
1407
1408
1409
1410

003274
003276
003300
003306
003314

1411 003320
1412 003324
1413 003330

1414 003334
1415
1416 003340
1417 003342
1418 003346

032767

012702

042700

172340

140000

040000

000207

BEQ

177774

175742

175736

%
2%:

177761

000006
000077

010267

174526

176014
177764

072027
042700
005502

BIT

MOV

172240

175772
160000
177766

060007

fFORMPA: MOV

177640

011200
010002
016767
042767
072227

0427C2

174544

26-SEP-79 12:27

BR
BIT
BEQ
MOV
MOV
ASH

BIC

ADD

175774
175766

MOV
MOV
MOV
BIC
ASH

BIC

ASH
BIC
ADD

#K |PARQ ,R?

SEQ 2031
;LOAD ADDRESS OF

FIRST KERNEL PAR

IN R/

#140000,PSW

;IN USER MODE?

#UIPAR(Q,R?2

;LOAD ADDRESS OF FIRST USER PAR IN R?

2%
#40000,PSW
2%

;BRANCH [F NO

VIRT1 RO
#-14 RO

;BRANCH WHEN DONE
;IN SUPERV]ISOR MODE?
;BRANCH [F NO
:LOAD ADDRESS OF FIRST SUPERVISOR PAR IN R?
JLOAD VIRTUAL ADDR. (VBA) INTO RO
SGET BITS <15:13> DOWN TO BITS <3:1>

RO,RZ

;ADD OFFSET TO BASE PAR ADDRESS

#SIPARO R

0177761.R0
(R2) ,RO
RO,RZ
VIRT1 ,PBALO
#160000,FBALD
#-12,R2

0177774,R2
#6,R0O
#77,R0O

RO.PBALD

ADC(

R?2

RTS

MOV

T3
PAGE 12-5

R2 ,PRAH]

JMASK OF ALL BITS BUT BITS <3:1>

;GET BITS <15:00> FROM APPROPRIATE PAR
;COPY PAR BITS <15:00> INTO R2
;PUT VIRTUAL ADDR. IN LOC. 'PBALO"
;CLEAR OFF BITS <15:13> OF ORIGINAL VBA
JGET PAR <15:00> DOWN TO BITS <1:0> OF RZ

:CLEAR OFF ALL BITS BUT BITS <1:0>

JSHIFT PAR<9:0> TO <15:6> OF RO
:CLEAR BITS <5:0> OF RO

:IN EFFECT, ADD VBA<12:0> TO PAR<9:(C>
;(PAR<9:0> IN BITS <15:6> OF RO)
;ADD ANY CARRY TO R?
JPUT BITS <21:16> OF PHYSICAL ADDR. IN PBAH]
JRETURN TO PROGRAM

(KKTAAD 11/44 MEM MGMT PRT A
L2 2

2 J

STARTING POINT OF

TEST

MACRO MY111

26=-SEP=-79 12:27

020000
START:
LSBTTL

020112

020120
020126
020134
020142

020150

620152
020156
020160
020166
020170
020174
020202
020206
020214
020222

020256
020260
020262
020266

020270
020276
020304
020310
020314

001100

012737
012737
012737
012737
012737
012737
012737
012737
016767
005067

035174

000020
000022
00003C
000032
000034
000036
000024
000026
014630

000001

160775

012737
012737
012767
012737
005046
01274¢€
000006
012767
000402
062706
012737
005067
012767
012767

035162
000340
000002
020170

000014
000016

013746

022777
001012

000403
012716
000002

012767
012767
012637
005067
132767

177570
177570
177777

000004

160716

000200

TEST

eneans

STARTING ADDRESS OF 200 #wwen

THE COMMON TAGS

#SCMTAG,R6

(MP

#SWR ,R6 ;.DONE?

MOV

#STACK,SP

MOV

#$SCOPE ,a#JOTVEC ;10T VECTOR FOR SCOPE ROUTINE

MOV

#SERROR ,@FEMTVEC

MOV
MOV
MOV

MOV
MOV

MOV

MOV
CLR
MOVB

(RG)+
-6

JoFIRST LOCATION TO BE

;:CLEAR MEMORY LOCATION
;;LO0P BACK
2;SETUP THE

CLEARED

IF NO

STACK POINTER

#3640 ,@#I0TVEC+2 ; LEVEL 7

. EMT VECTOR FOR ERROR ROUTINE

#3640, FEMTVEC+2 ; LEVEL 7
#STRAP ,@#TRAPVEC . TRAP VECTOR FOR TRAP (CALLS
#3460, NFTRAPVEC+2;
LEVEL 7
#SPWRDN ,a#PWRVEC ; ;POWER FAILURE VECTOR

#3460, @PWRVEC+2 ;;LEVEL 7
SENDCT,SEOPCT
SESCAPE
#1,SERMAX

;;SETUP END-OF -PROGRAM COUNTER
;;CLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST

;o INITIALIZE THE “T-BIT'" TRAP VECTOR. THEN LOAD LOCATION 'SRTRN'',
;. THE 'END-OF -PASS’’ (SEOP) ROUTINE, WITH A 'RTI'*
OR 'RTT",

015020
000010

MOV
MOV

#SRTRN
, @NTBITVEC ;;SET “T'' BIT VECTOR TO SRTRN
#340 ,a#TBITVEC+2 ;,LEVEL 7

MOV
(LR

#658 , NRESVEC
-{SP)

MOV

#RT] ,SRTRN

JJSET SRTRN TO A RT]

MOV

#6483 ,-(SP)

;. AND PC

RTT

;. TRY

THE

RTT

64%:

ggv

gg;f,SRTRN

000010

65%:
66%:

ADD
MOV

#10,SP
;oRTT ILLEGAL=--CLEAN OFF THE
W#RESVE(+2,a#RESVEC ; RESTORE TRAP CATCHER

MOV

#. ,SLPADR

160672
160666

MOV

MoV
MOV
MOV
MOV

160676
160672
160662

G id
BNE

67%:

160723

J;RTT

IS LEGAL--SET SRTRN TO A RTT

STA(K

$18I1T

;;CLEAR "T°'' BIT SWITCH

#. SLPERR

..SETUP THE ERROR LOOP ADDRESS

;o INITIALIZE

THE LOOP ADDRESS FOR SCOPE

;.SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;.EQUAL TO A "'-1"', SETUP FOR A SOF TWARE SWITCH REGISTER.

000004

160642
160636

CLR

c:TRY 10 DO A RTY
;. DUMMY PS

014774

020270

000176
000174

STARTING POINT OF

;o INITIALIZE A FEW VECTORS

020160

000004
020262

SEQ 0032

MOV

BNE

001100

000010
000012
161140
020206
020214

INITIALIZE

(LR

001140

000006

;. CLEAR THE COMMON TAGS (SCMTAG) AREA

112767

012737
012767
012767

w#eean

.Sgaébo evsxs

012706
005026
022706
001374
012706

3
G_

L2 A A3

LSBTTL

1420
1421
1422
1423
1424

PAGE

¢8% 69%:

a#ERRVEC,-(SP)
#673 ,aNMERRVEC
#DSWR, SWR
#DDISP,DISPLAY

#-1,3SWR
69%

;.SAVE ERROR VECTOR
;;SET UP ERROR VE(TOR
;;SETUP FOR A HARDWARE SWICH REGISTER
.AND A HARDWARE DISPLAY REGISTER

;o TRY TO REFERENCE HARDWARE SWR
;;BRANCH IF NO TIMEQUT TRAP OCCURRED

;oAND

THE HARDWARE SWR [S NOT

BR
S?Y

68%
#68%, (SP)

MOV
MOV
MOV
CLR
BITB

#SWREG, SWR
;;POINT TO SOF TWARE SWR
#DISPREG,DISPLAY
(€°)+ ,@NERRVEC
;,RESTORE ERROR VECTOR
$PASS
;sCLEAR PASS COUNT

NAPTSIZE ,SENVM

;JBRANCH [F NO TIMEOUT
;.SET UP FOR TRAP RETURN

;. TEST USER SIZE UNDER APT

-1

(KKTAAQ 11744 MEM MGMY PRT A
INITIALIZE THE COMMON TAGS

1425

020322
020324
020332

00403
012767

426
1427
1428
1429
1430
1431
1432
1433
1634
1435

ITYPE

035116

020416

.SBTTL

000042
160656

000001

160542

000176

112767

000001

160520

000420

012706
012767
012767
0|2767

012767
012700
010067
010067
012767

73%:

76%:
§%72$:
$:

LOOP:

001100
003024
000340
003122
000340
177777
162304
162376

000340

INC

NAME

”-1

THE

13-1

PROGRAM

718
#SENDAD ,an4c
71%

SEQ 0033

;s YES,USE NON-APT SWIT(CH
2;NO,USE APT SWITCH REGISTER
[F

FIRST PASS

J:FIRST TIME?

;;BRANCH IF NO
;ACT=11?
JJBRANCH [F YES

TYPE
,72%
;s TYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER

BNE
(ML
BEC

TST

ansl
73%
SENV . #1
73%

;JARE WE
;;BRANCH
;JARE WE
;;BRANCH

BNE

7498

::BRANCH IF NO

GTSWR
BR
MOVR

B8R

SWR ,#SWREG

74%
#1,3AUTOR

71%

RUNNING UNDER XXDP/A(T?
JF YES
RUNNING UNDER APT?
IF YES

;:SOFTWARE

SWITCH REG SELECTED”

;:GET SOFT-SWR SETTINGS

;:SET AUTO-MODE

INDICATOR

::GET OYER THE ASCIZ

LASCIZ

<CRLF>#CHKTAAD

MOV
MOV

#STACK ,KSP
#TIMERR,ERRVEC

JINITIALIZE THE STACK POINTER
;LOAD CPU SERVICE ROUTINE INTO TRAP VE(CTOR

#3640 ,MMVE(+2

;SET NEW PS TO PRIORITY LEVEL 7-KERNEL

MOV
MOV

MOV

#340,ERRVEC+2
MMGMERR , MMVE (

MOV

#-1,R0

MOV
MOV

RO . MGMF LG
#340,TRITPS

MOV
160536

TYPE PROGRAM NAME

THE

104407

000403

PAGE

708
#$SWREG, SWR

BNE
C(MP
BEQ

000042

020456

020456
020456
020462
020470
020476
020504
020512
020516
020522
1436 020526

BtQ
MOV

160606

177777

020346
020350

020406
020414
020414

26-SEP-79 12:27

_SBTTL

020332
020336
020340

020354
020360
020362
020370
020372
020400
020402
020404

001246

MACRO M1111

RO, TIMFLG

11/44 MEM MGMT

PRT

AN<CRLF>

;SET NEW PS TO PRIORITY LEVEL 7-KERNE
;LOAD MEMORY MANAGENT ROUTINE INTO VECTOR
;PUT =1

INTO RO TO INITIALIZE FLAGS

JINITIALIZE CPU ERROR FLAG

JINITIALIZE MEMORY MANAGEMENT ERROR FLAG
JINITIALIZE LOG THAT HOLDS T-BIT PSw

(KKTAAQ 11/44 MEM MGMT PRT A

GET

vALUE FOR SOF TWARE

1438 02053%

1439 020540

005067

MACRO M1111

SWIT(H REGISTER

157032

151752

26=SEP-79 12:27

(LR

MMRO

MMR3

PAGE 14

SEQ 0034

;BE SURE MEM. MGMT S GFF TO START WITH

;MAKE SURE ALL MAPFING S OFF

(KKTAAD 11/44 MEM MGMT PRT A
MACRO M1111
GET VALUE FOR SOF TWARE SWITCH REGISTER
1441 020544
1442 020550

005067
052767

157216
000200

1444 020562
1445

005067

157200

1443 020556

004767

161672

161734

26-SEP=79 12:27

PAGE 15

SEQ 0035

CLR
8IS

CPUERR
#B177,8KT11

JMAKE SURE (PU ERROR REG. IS CLEAR
JSET MM, FLAG FOR SIZING ROUTINE

CLR

CPUERR

;CLEAR

PC,$SIZE

JRUN SIZING ROUTINE

CPU ERROR REG.

AFTER SIZING

(KKTAAQ 11/44 MEM MGMT PRT A

GE”TM VALUE

FOR SOF TWARE

SWITCH REGISTER

1447
1448
1449
1450
1451
1452
1453
1460

26-SEP-79 12:27

MACRO M1111

PAGE 16

SEQ 0036

NSNS NSNS NS NSNS NSNS NSNS NS NN
NN
NN
ADDRESS AND DATA PATHS TEST>
GROUP 1
.SBTTL
TNTNSNS NSNS NSNT NSNS NSNS NSNS NS NSNS
NSNS

2222223283230

TRTEST

22d0

N
N

3RdRRR R0
22 2222

PSW PRIORITY BIT TEST

- %

x
T

THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <7:5> 'PRIORITY BITS''
TO SEE THAT SOME OF THE BASIC 'DATA PATH'* LOGIC IS WORKING.

* %

E:Q'Qfilfitt*tttttttttttt"‘I'tt.ifitfifitt..tifififififi.ifittifitittfitt'itt
020566
1461 020570
1462 020576
1463 020600
1464 020602
1465 020606
1466 020612
1467 020616
1468 020620
1469 020622

1470
1471
1472
1473
1474
1475
1476
1477
1483

020624
020630
020634
020636

000004
012767
005000
005001
010037
013701
042701
020001
001401

020600

160312

T§11:
1$:

MOV
MOV

RO, 34PSW
MPSW R

*WRITE PRIORITY BITS IN THE PSW
IREAD BACK THE LOW BYTE OF PSW

CMP
BEQ
ERROR

000040
000400

020570

;SET LOOP ON ERROR POINTCR TO 2%

BIC

104003

062700
022700
001361
012767

#2$ SLPERR

CLR
CLR

2%:

177776
177776
177437

ScopE
MOV

ADD
CMP
BNE
MOV

160244
S

RO
R

#1774657 R
RO,R1
3$
+3

#40,R0
#600,RO
23
#1$,SLPERR

SINITIALIZE RO WITH PRIORITY=0 DATA
:PREPARE R1 TO ACCEPT DATA READ

IMASK OFF EVERYTHING EXCEPT PRIORITY BITS
*WAS CORRECT PRIORITY SET IN THE PSW?
*BRANCH IF YES
*PRIORITY BITS SET WRONG IN PSW

:FOR TIGHTER SCOPE LOOP
*REPLACE ERROR CALL WITH
2'BR 28" = 000770

*CHANGE DATA TO NEXT PRIORITY
*HAVE PRIORITIES 0-7 ALL BEEN CHECKED?
:BRANCH IF NO
*RESET LOOP ON ERROR POINTER TO 1$

3332328232222 3232232223223232222333822322233823232323833323203232232232233232222¢8¢2|]

TRTEST

i
* %

PSW MODE

BjT

TEST

THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <15:12> ‘MODE BITS'
TO FURTHER CHECK THE BASIC CPU DATA PATHS

tB 2322338233222 2223322323332332323322222238322323333222332232223838232223223323]
020644

020656

1484 020646
1485 020654
1486 020656

157114
157110
157104

1487 020662
1488 020666
1489 020672
1490 020676
1491 020700
1492 020702
1493 020706
1494
1495
1496
1497
1498
1499
1500
1501

020710
020714
020716
020724

160234

1512:
18:

SCOPE
MOV

#23 ,$LPERR

2%:

CLR

PSW

CLR

“INITIALIZE RO WITH MODE BITS = 0000

BIS

RO,PSW

:BIT SET THE PSW MODE BITS WITH RO

BIC

#007777 .R1

MOV

007777

CMP
BEQ
CLR

157070

:SET LOOP ON ERROR POINTER TO 2%

ERROK

PSW,R1

RO.R1
3
PSW
+4

SINITIALIZE PSW

:READ BACK THE CONTENTS OF

THE PSW

IMASK OFF EVERYTHING EXCEPT THE MODE BITS

IWERE THE MODE BITS SET CORRECTLY?
:BRANCH IF YES
:CLEAR PSW FOR ERROR REPORT
‘MODE BITS SET WRONG IN PSW
*FOR TIGHTER SCOPE

LOOP

:REPLACE ERROR CALL WITH

062700
001360
012767
005067

38:

010000

020646
157046

160164

ADD

#10000,R0

+MOV

#1$,SLPERR

BNE

CLR

PSW

:'BR 28" = 000763

:CHANGE MODE BIT DATA

:BRANCH IF STILL MORE COMBINATIONS

*RESET LOOP ON ERROR POINTER 10 1%
:RESET PSW BEFORE LEAVING

CKKTAAD 11/44 MEM MGMT PRT A

MACRO M1111

BYTE ADDRESSING TEST FOR PSW

1509

26-SEP-79 12:27

3
L
PAGE 16-1

SEQ 0037

';fit.'ttt"t'ttt..'fitt.ttt'tltti'fitttfifi.t.t"t..'tt"'tfi""'.t..

SwTEST 3

BYTE ADDRESSING TEST FOR PSW

tu
e
e

THIS TEST WRITES THE HIGH AND LOW BYTES OF THE PROCESSOR STATUS WORD
AND READS THEM BACK TO BE SURE THEY CAN BE WRITTEN INDEPENDENTLY.
THIS CHECKS THE PSwW PORTION OF THE ADDRESS DETECTION LOGIC.

020740
157032
000360
157023

S
R

[o]e]

]

=OVO~NOWVHW N

D cid end e
d wd

i navroanunani
-—
=
b b
b ek =

) e
d
—

020730
0 020732
020740

ViV
PO

d —b

E;tttttttttfit't'iiit'fitfitttttttt!i'tttttfitttt'fit't'tt..itttttttt.
160150

7$T3:
1$:
28

157016

020754
020760
020764
020766
020770
020772
020776

SCOPE
MOV
CLR

#2$ ,SLPERR
PSW

:SET LOOP ON ERROR POINTER TO 2%
:CLEAR THE PSW

MOVB
MOV

RO,PSw+1
PSW.R1

‘WRITE THE HIGH BYTE OF THE PSW
*READ BACK THE ENTIRE PSW

MOV

BIC

007437

SWAB
CMP
BEQ
CLR
ERROR

157000

#360.R0

#007437 R
RO
RO,R1
3$
PSW
+5

22
021000
021006
021012
021016
021022
021026
021032
021034
021036
021042

012767
005067
012700

021044

012767

110067

016701
042701
020001
001403
005067
104005

021006
156764
000340
156754
156750
007437

160102

3$:

48:

#4$, SLPERR

MOV

#340,R0

CLR

MOVB
MOV

BIC

CMP

BEQ
CLR
ERROR

156734

020732

MOV

160036

5%:

g [0)%

PSW

RO.PSW
PSW.R1

#007437,R1
RO.R1

5%
PSW
+5

#1% ,SLPERR

“PUT THE HIGH BYTE DATA INTO RO

*MASK OFF THE T & CC BITS

SGET DATA WRITTEN IN HIGH BYTE OF RO
“WAS THE PSW WRITTEN TO CORRECTLY
*BRANCH IF YES
“CLEAR PSW FOR ERROR REPORT
SLOW BYTE EFFECTED BY WRITE TO HIGH BYTE OF PSW
*FOR

TIGHTER SCOPE

LOOP

*REPLACE ERROR CALL WITH
S'BR 28" = 000760

*SET LOOP ON ERROR POINTER TO 4%
*CLEAR

THE

PSW

“PUT THE LOW BYTE DATA INTO RO

SWRITE THE LOW BYTE OF THE PSW
*READ BACK THE ENTIRE PSW

*MASK OFF THE T&CC BITS

‘WAS PSW WRITTEN TO CORRECTLY

*BRANCH IF YES
*CLEAR PSW FOR ERROR REPORT
"HIGH BYTE EFFECTED BY WRITE

TO LOW BYTE OF PSW

JRESET LOOP ON ERROR POINTER

TO 1%

;FOR TIGHTER SCOPE LOOP
JREPLACE ERROR CALL WITH
."BR 2%'" = 000736

(KKTAAQ 11/44 MEM MGMT PRT A
TEST AND SETUP OF

STACK POINTERS

1550

PAGE

SEQ 0038

'."t't'tttitttttt.Q't!t't'ifi.ttt'tifi.'tttt'ttttfitttt.ttttt'tl!t"

TEST

AND

SETUP OF

STACK POINTERS

*TEST &
B

THIS

REST
EACH
USER
IT'S

TEST SETS

THE USER AND KERNEL

STACK POINTERS FOR THE

OF THE PROGRAM AND MAKES SURE THEY ARE INDEPENDENT OF
OTHER.
KERNEL R6 IS SET TO 1100,SUPERVISOR R6 IS SET TO 700,
R6 IS SET TO 600, THEN KERNEL R6 IS READ TO BE SURE
STILL 1100.
THE SECOND PART OF THE TEST CHECKS TO SEE
THAT THE ILLEGAL MODE(“"10'") STACK POINTER IS MAPPED TO THE
USER STACK POINTER, WITH MEMORY MANAGEMENT OFF.

“e

.0,

26=SEP-~7 9 12:27

MACRO M1111

NOWN
S W =

ach
b
)
D
d el
b cad
D wd
d wd
b
b
)
)
D
d e
ad
—

—

156666

dd2020d

002

i tdRdd0RddRRRRRRdRd)

aMMRO

JMAKE SURE M.M.

#KERSTK ,KSP

sSET KERNEL STACK POINTER 10 1100

PSW

#40000, PSW
#SUPSTK,SSP
#140000,PSW

#USESTK ,USP

PSW
#KERSTK ,KSP
1%
#KERSTK RO
KSP,R1

IS OFF

.GO TO KERNEL MODE

;60 TO SUPERVISOR MODE
;SET SUPERVISOR STACK POINTER TO 700
;GO _TO USER MODE

;SET USER STACK POINTER TO 600

;BACK TO KERNEL MODE
;1S KERNEL R6 STILL 1100?
;BRANCH TO NEXT PART OF TEST
;SAVE DATA WRITTEN FOR ERROR REPORT
;SAVE DATA READ AFTER USER R6 WAS WRITTEN

JKERNEL R6 CHANGED BY WRITING USER R6
;FOR TIGHTER SCOPE LOOP

;REPLACE ERROR CALL WITH

N2767
005067

012746
012767
012746
012767

021136

156626
177777

157744
156614

156602

156572
576 021206
577 021210

SCOPE
CLR
CLR

MOV
MOV
MOV
MOV
MOV
CLR
MP
BR
MOV
MOV
ERROR

156700

021110

567 021136
568 021144
569 021150

2832420202232

177572
156712

021060
021064
021070
021076
021102

58 021114
59 021120
560 021124
561 021126
562 021132
563 021134
564
565
566

021052
021054

)

b cnd ed Ed

ViAW
VIV

1 $:

MOV

CLR

MOV
MOV
MOV
MOV

CLR
MOV
MOV
BEQ
ERROR

#1$,SLPERR

PSW
#-1,-(KSP)

;000756

;SET LOOP ON ERROR POINTER TO 1%
;60 TO KERNAL MODE
JPUSH A =1 ONTO STACK

#40000,PSW
#1,-(SSP)
#140000,PSW
-(USP)

2GO TO SUPERVISOR MODE
JPUSH A 1 ONTO THE STACK
;GO TO USER MODE
;PUSH A ZERO ONTO THE STACK

(SP) ,RO
TSTS

JPUT TOP OF STACK INTO RO
;.WE'RE OK-GO TO NEXT TEST

#100000,PSwW
+40

;PUT ILLEGAL MODE IN PSW

JILLEGAL MODE NOT MAPPED TO USER MODE

(KKTAAD 11/44 MEM MGMT PRT A

TEST AND SETUP OF

MACRO M1111

26-SEP-79 12:27

STACK POINTERS

1579
1580
1581

1222232222222

8222222302282

SEQ 0039
222222

iRdiRsRiRi

2Rt

THE NEXT SEVEN (7) TESTS WILL TRY TO_ADDRESS ALL OF THE
MEMORY MANAGEMENT REGISTERS (SRO->SR3; 18D SPACE KERNEL,
SUPERVISOR & USER PAR/PDR'S).
EVERY TIME A REGISTER TIMES OUT ITS ADDRESS WILL BE REPORTED.
AT

THE END OF

EACH TEST A SUMMARY OF

OUT DURING THAT TEST IS GIVEN.
THEIR ADDRESSES

STUCK AT 0 OR 1,

THE ADDRESSES THAT

TIMED

THE RESULTS OF ''AND~ING'' AND ‘DR=-ING''

IS GIVEN TO SHOW WHICH ADDRESS LINES MAY BE

THE PAR/PDR ADDRESS AND KT MUX'S ARE THE

THINGS BEING CHECKED.

2R A

PAGE 18

;;*tt'ttitt'ttttfitfi.tt""'ttfittt!Qtttt.tttttttt'fittt'ttfit'*tttfit

':tttttt'tttttttttfitttl.ttfilt..itfitt"tt.tfittttfitfifittttt.ttt"'lfi

SRTEST §

SRO,SR1,SR2,SR3 TIMEOUT TEST

. %

o
i*
%

THIS TEST ADDRESSES THE MEMORY MANAGEMENT STATUS REGISTERS
0,1,2, AND 3. DATA WILL BE WRITTEN OR READ FROM THESE REGISTERS
IN (ATER TESTS, THIS TEST JUST CHECKS FOR A RESPONSE.

E:tttitfifi*tttitttt"tfit.'tfitfit.iittfifit.'ttfifitfi'.'.tttttttt"ttt"
021212

000004

0
021240
0
0
0
0

005067
012767
012737
012700
012701
012767
005067
005067
005710

156556
021262
021326

062700
077104
012700
005710
012767
005767
001401

000002

021220
157762

157602

012737
000417

003024

006004

062706

000004

021264
021270
0
0
0
0
0
0
(=
NN

—

o ed ad wd b D

O‘&O«OO‘OO\OO\OOO\

b b

104010

104007

177572

000003

177777
160040
160012

157662
000004

TS15:

SCOPE

1$:

CLR
MOV

PSW
#2$ ,$LPERR

;MAKE SURE KERNAL MODE IS SELECTED
*SET LOOP ON EPROR POINTER TO 2%

2%:

MOV
MOV
MOV
CLR
CLR
TST

#SRO,RO
#3 Ri
#-1,ADRAND
ADDROR
TONUM
(RO)

:LOAD RO WITH ADDRESS OF FIRST REG.
:LOAD R1 WITH THE LOOP COUNT
:INITIALIZE ‘°AND'* OF ADDRS. LOC.
:INITIALIZE ‘DRTM
OF ADDRS. LOC.
ZINITIALIZE *‘TIMEOUTS'' COUNTER
:TRY ADDRESSING A STATUS REGISTER

160046

172516
48:

5% :
6$:

MOV

N6S$ NG

ADD
S0B
MOV
TST

#2.RO
R1,28
#SR3,RO
(RO)

BEQ
ERROR
MOV
BR

5%
+10
#TIMERR, 3k
ST6

MOV
TST

ADD
ERROR

#1$,SLPERR
TONUM

#4 KSP
+7

*SET TIMEOUT VECTOR TO 6%

:IF 1T TIMES OUT GO TO 6%

:PUT NEXT ADDRESS IN RO
:LOOP BACK TO 2% UNTIL ALL TESTED
*LOAD RO WITH THE ADDRESS OF SR3
:TRY ADDRESSING SR3

*RESET LOOP ON ERROR POINTER TO 1%
:DID ANY OF THE STATUS REG.S TIMEOUT?

*BRANCH IF NO
*SUMMARY OF STATUS REG. TIMEQUTS
*RESTORE NORMAL CPU TRAP ROUTINE ADDRESS
;60 TO NEXT TEST
;CLEAN UP THE STACK
‘ONE OF THE STATUS REGS.
*FOR TIGHTER SCOPE LOOP

TIMED OUT

‘REPLACE ERROR CALL WITH
010002
050267
005102

1633 021350
1634 021354

040267
005267
032700

157754
157750
157720
172516

MOV

RO,R2

INC
BIT

TONUM
#SR3,R0

BIS
COM
BIC

R2.ADDROR
R2
R2 , ADRAND

SBR 28" = 000756
*LOAD THE ADDRFSS THAT TIMED OUT INTO R2
STMOR"* IT WITH OTHER ADDRS. THAT TIMED OUT
“AND'* IT WITH OTHER ADDRS. THAT TIMED nUT
; INCREMENT THE TIMEOUT COUNTER
STEST FOR LAST REGISTER

MACRO M111M
(KK TAAQ 11746 MEM MGMT PRT A
1S
SRO,SR1,SR2,SR3 TIMEOUT TEST
1635 021360
1637
1641

021362

26~-SEP-79 12:27
BNE
B8R

001347
000740

PAGE 18-1

43
3%

SEQ 0040

;SR3 IS LAST;GO TO FINAL ERROR REPORT
JBRANCH BACK TO TEST THE NEXT ADDR.

.'"'."...Q.....'..Q'....""......'..fi'.'..."t..'.'.....'.Q"'..

J*TEST 6
I
X
X

KERNEL 18D SPACE PAR'S TIMEOUT TEST

THIS TEST ADDRESSES THE SIXTEEN (16) KERNEL PAGE ADDRESS
REGISTERS (K]PARO~K]IPAR7 AND KDPARO-KDPAR?7)
AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES.

""Q"'."."'."'.Q'...."'....."."'."..'....'....'..Q..t'Q'.'

021364
021366
021374
021402
021406
021412
0214620
021424
021430

021432
021436
021440
021446
021452
021454
021456
021464
021466
021472

021474
021476
021502
021504
021510
021514

000004
012767
012737
012700
012701
012767
005067
005067
005710

062700
077104
012767
005767
001601
104010

012737
000414
062706
104007

010002

050267
005102
040267
005267
000746

021430
021466

172340
000020
177777
157672
157644

157514

000004

157700
2%:

000002

021366

157442

003024

000004

157622

1ST6:

1$:

000004

4%:
5%:

SCOPE

MOV

#2% ,$LPERR

;SET LOOP ON ERROR POINTER TO 2%

MOV

#-1,ADRAND

JINITIALIZE ‘AND'* OF ADDR.

MOV
01V
MOV
CLR
(LR
TSY

157610

157560

ADDROR
TONUM
(RO)

ADD

#2.R0

MOV
TST
BEQ

#18,SLPERR
TONUM
43

SOB

ERROR

R1,2$%

+10

MOV

#TIMERR , ¥4

B8R

;SET TIMEOUT VECTOR TO S$
:LOAD R WITH ADDRESS OF FIRST REG
;LOAD R1 WITH LOOP COUNT (16)
LOC

JINITIALIZE 'OR''
OF ADR. LOC.
JINITIALIZE '‘TIMEOUTS'' COUNTER
;TRY ADDRESSING A REGISTER

JIF IT TIMES OUT, WILL GO TO 5%

JPUT NEXT REGISTER ADDRESS IN RO

JLOOP BACK TO 2% UNTIL ALL TESTED

JRESET LOOP ON ERROR POINTER TO 1%
;DID ANY OF THE REGISTES TIME OUT?
;BRANCH [F NO

;SUMMARY OF REGISTER TIMEOUTS

JRESTORE NORMAL CPU TRAP ROUTINE ADDRESS

ADD
ERROR

1S17

84 KSP
+7

;sBRANCH TO NEXT TEST

MOV

RO,R?2

JFOR TIGHTER SCOPE LOOP, REPLACE ERROR
;CALL WITH *'BR 2%'' = 000756
:LOAD THE ADDRESS THAT TIMED OUT INTO R2

BIS
oM
8iIC
INC

157614

nSS N
#K 1PARO RO
#20 R

R2 ,ADDROR
R2
RZ ,ADRAND
TONUM

;CLEAN UP THE STACK
JONE OF THE REGISTER TIMED OUT

J"OR"'
IT WITH OTHER ADDRS. THAT TIMED OuT
JUAND'' IT WITH OTHER ADDRS. THAT TIMED OuT
: INCREMENT THE TIMEOUT COUNTER

JBRANCH BACK TO TEST THE NEXT REGISTER

.'"t'Qtttt.'tfit‘t*'t'fi'fi""Q'fifl’"*'tfi'...'.."fi""fifi'fifii"fitti"

J*TEST 7
KERNEL I8D SPACE PDR'S TIMEOUT TEST
M
THIS TEST ADDRESSES THE SIXTEEN (16) KERNEL PAGE DESCRIPTOR

REGISTERS (KIPARO-KIPAR7 AND KDPARO-KDPAR7?)

AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES.

T1S717:
1$%:

SCOPE
MOV

#2%8 ,3LPERR

;SET LOOP ON ERROR POINTER 10 2%

MOV
MOV

#x 1PDRO,RO
#20,R1

;LOAD RO WITH ADDRESS OF FIRST REG
;LOAD R1 WITH LOOP COUNT (16)

CLR
CLR

ADDROR
T ONUM

""t't"t*t.fi*fi'.""fifi.'i"tfi't**Qfi'.Q."'..'."l""'fi"'fifi'Q'*"

021516
021520

021526
021534
021560
021544
021552
021556
021562
021564
021570
021572

000004
012767

012737
012700
012
01

062700
077104
012767

021562

021620
172300
000020
177777
157540
157512

157362

000004

157546

021520

MOV

2%:

000002

3s:
157310

MOV

TST

ADD
SOB
MOV

nS5S, ané

#-1,ADRAND

(RO)

#2,R0
R1,2%
#1$ ,SLPERR

;SET TIMEOUT VECTOR TO S$

JINITIALIZE :%NP" OF ADDR.

LOC

;INITIALIZE "DR'' OF ADR. LOC.
JINITIALIZE ‘‘TIMEOUTS'' COUNTER
;TRY ADDRESSING A REGISTER

JIF IT TIMES OUT, WILL GO TO 5%

JPUT NEXT REGISTER ADDRESS IN RO
;LOOP BACK TO 2% UNTIL ALL TESTED
;RESET LOOP ON ERROR POINTER TC 1%

CKKTAAO 11744 MEM MGMT PRT A

1649

MACRO M1

KERNEL

18D SPACE PDR'S TIMEOUT TEST

021600
021604
021606
021610
021616
021620
021624

005767
001401

157470

012737
000414
062706

003024

021626
021630
021634
021636
021642
021646

1064010

104007

010002
050267
005102
040267
005267
000746

000004

5%:

TST
BEQ
ERROR
MOV
BR
ADD
ERROR
MOV

157462

BIS
coM
BIC
INC
BR

157456
157426

1653

PAGE 18-

TONUM
43

+10

#T[MERR
, a4

TST10

#4 KSP

RO.RZ

R2,ADDROR
R2
R2 ,ADRAND
TONUM

SEQ 0041

;DID ANY OF THE REGISTES TIME OUT?
JBRANCH IF NO
;SUMMARY OF REGISTER TIMEQUTS
JRESTORE NORMAL (PU TRAP ROUTINE ADDRESS
s BRANCH TO NEXT TEST
sCLEAN UP THE STAC(K
;ONE OF THE REGISTER TIMED OUT
;FOR

TIGHTER SCOPE

LOOP,

REPLACE

ERROR

;CALL WITH ‘BR 2¢%'' = 000756
;LOAD THE ADDRESS THAT TIMED OUT INTO RZ
IT WITH OTHER ADDRS. THAT TIMED OUT
J'OR""
JAND'' IT WITH OTHER ADDRS.

THAT TIMED OUT

;INCREMENT THE TIMEOUT COUNTER
BRANCH BACK TO TEST THE NEXT REGISTER

. tQt.ttttttt'titt't!fi.'t."fit't'tttt..ttt'ttttt"tfi't.'t.'tt".t
.

021650

1654 021652

021660
021666
021672
021676
021704
021710
021714

021716
021.22
021724
021732
021736
021740
021742
021750
021752
021756
021760
021762
021766
021770
021774
022000

000004
012767
012737
012700
012701
012767
005067
005067
005710

021714
021752

172240

000020

177777
157406
157360

157230
000004

157156

012737

00302¢

000004

062706

000004

010002
050267
005102
040267
005267
000746

~
[}

CRARRARAAANRNAARRAAARAARARAARACEARRAAAARRRAAARARAAAAAARAAARNARANARAAAARAANNT
RS

S T10:
$:

3s:

021652

104007

REGISTERS (SIPARQO-SIPAR7 AND SDPARO-SDPAR?)
AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES.

]

’%:

000002

104010

TEST 10
SUPERVISOR I&D SPACE PAR'S TIMEOUT TEST
THIS TEST ADDRESSES THE SIXTEEN (16) SUPERVISOR PAGE ADDRESS

157414

062700
077104
012767
005767
001401

157336

JRIEDY
Sy N

)

N '

1655
1659

26=SEP-79 12:27

5%:

SCOPE
MOV
MOV
MOV
MOV
MOV
CLR
CLR
TST
ADD
S08
MOV

157324
157274

:SET LOOP ON ERROR POINTER TO 2%
*SET TIMEOUT VECTOR TO 5%
*LOAD RO WITH ADDRESS OF FIRST REG
*LOAD R1 WITH LOOP COUNT (16)
SINITIALIZE ''AND" OF ADDR. LOC

(RO)

*TRY ADDRESSING A REGISTER

TONUM

TST
BEQ
ERROR
MOV
BR

#15 $LPERR
TONUM
A3
+10
#TIMERR ,ané
TST11

ERROR

ADD

MOV
BIS
COM
8I1C
INC
BR

157330

#23% ,SLPERR
58, N
#S1PARO
RO
#20.R1
#-1 ,ADRAND
ADDROR

¥4 ,KSP

RO,R2
R2,ADDROR
R2
R2 ,ADRAND
TONUM

“INITIALIZE "DR'' OF ADR. LOC.

SINITIALIZE '‘TIMEOUTS'' COUNTER
SIF IT TIMES OUT, WILL GO TO S$
*PUT NEXT REGISTER ADDRESS IN RO
SLOOP BACK TO 28 UNTIL ALL TESTED
“RESET LOOP ON ERROR POINTER TO 1%
:DID ANY OF THE REGISTES TIME OUT?
*BRANCH IF NO
*SUMMARY OF REGISTER TIMEOUTS
*RESTORE NORMAL CPU TRAP ROUTINE ADDRESS
*;BRANCH TO NEXT TEST
SCLEAN UP THE STACK
*ONE OF

THE REGISTER TIMED OUT

:FOR TIGHTER SCOPE LOOP,

REPLACE ERROR

SCALL WITH 'BR 28" = 000756

“LOAD THE ADDRESS THAT TIMED OUT INTO R?
"R IT WITH OTHER ADDRS. THAT TIMED OUT
S“AND'* IT WITH OTHER ADDRS.

THAT TIMED OUT

s INCREMENT THE TIMEOUT COUNTER
sBRANCH BACK TO TEST THE NEXT REGISTER

;;QttttttttRttttitt*t'tt'it"'.Qfi"ti"fit"t"'tt‘ttfi'."t't"Qt'
M1

]

TEST

SUPERVISOR 18D SPACE PDR'S TIMEOUT TEST

THIS TEST ADDRESSES THE _SIXTEEN (16) SUPERVISOR PAGE DESCRIPTOR
REGISTERS (SIPARO-SIPAR7 AND SDPARO-SDPAR?7)
AND CHECKS THAT SOMETHING RESPONDS TO THEIP ADDRESSES.

;:'t'ttitittl..t'li"i..t".tQ..Qtt.tt".'t.tt.\t"t""l"..!'tt

TAAO 11744 MEM MGMT PRT

A
MACRO M1111
26-SEP-79 12:27
SUPERVISOR 18D SPACE PDR'S TIMEOQUT TEST

022046
022050

000004
012767
012737
012700
012701
012767
005067
005067
005710

062700
077104
012767
005767
001601

104010

022110

1661

022112
022114
022120
022122
022126
022132

012737
000414
062706
104007

010002
050267
005102
040267
0052¢7
000746

022046
022104
172200
000020
177777
157254
157226

157076
000004

157204

003024

1%:

157262
2%:

000002

022004

TST11:

3s:

157024

000004

SCOPE

5%:

157176

1665

SEQ 0042

#28 ,$LPERR
#5% ,aN6
#SIPDRO,RO
#20,R1
#-1 ,ADRAND

JSET LOOP ON ERROR POINTER TO 2%
:SET TIMEOUT VECTOR TO S$
;LOAD RO WITH ADDRESS OfF FIRST REG
;LOAD R1 WITH LOOP COUNT (16)
JINITIALIZE °''AND'' OF ADDR. LOC

TST

(RO)

;TRY ADDRESSING A REGISTER

CLR
(LR

ADDROR
TONUM

ADD
SOB

#2,R0
R1,2%

TST

TONUM

#1838 ,SLPERR

BEQ
ERROR
MOV
8R
ADD
ERROR

48
+10
#TIMERR ,a#4
TST12
#4 KSP
+7

MOV

RO,R2

B8R

8IS
oM
8IC
INC

167172
157142

18-3

MOV
MOV
MOV
MOV
MCV

MOV

4%:

PAGE

RZ,ADDROR
RZ
R2 .ADRAND
TONUM

JINITIALIZE ‘OR'*
OF ADR. LOC.
JINITIALIZE ‘‘TIMEOUTS'' COUNTER

JIF IT TIMES OUT, WILL GO TO 5%

JPUT NEXT REGISTER ADDRESS IN RO
;LOOP BACK TO 2% UNTIL ALL TESTED

:RESET LOOP ON ERROR POINTER TO 1%
;DID ANY OF

THE REGISTES

TIME OUT?

;BRANCH IF NO
;SUMMARY OF REGISTER TIMEOUTS
;RESTORE NORMAL (CPU TRAP ROUTINE ADDRESS
;sBRANCH TO NEXT TEST
;CLEAN UP THE STACK
JONE OF THE REGISTER TIMED OUT
JFOR

TIGHTER SCOPE

LOOP,

REPLACE

;CALL WITH 'BR 2%'' = 000756

ERROR

;LOAD THE ADDRESS THAT TIMED OUT INTO RZ

JORIT WITH OTHER ADDRS. THAT TIMED OUT
JUAND’' IT WITH OTHER ADDRS. THAT TIMED OUT
s INCREMENT THE

TIMEOUT COUNTER

;BRANCH BACK TO TEST THE NEXT REGISTER

"."tiQQ'Q'Q.Q'!."QtttQQt't*fiQQfififitfifi."fi'fi"fi.'ifit"‘t"'it'fitfit

USER 18D SPACE PAR'S TIMEOUT TEST
;«TEST 12
M
THIS TEST ADDRESSES THE SIXTEEN (16) USER PAGE ADDRESS
REGISTERS (UIPARO-UIPAR7 AND UDPARO-UDPAR?)
.Y
.t
AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES.

"""'.'fifi".'.'t!'fi..fifi."t"fi'Q.’fiQtt'.'.tt't'.fi'tttt"...tttttt.

022134

1666 022136

022144
022152
022156
022162

022170
022174
022200

022202
022206
022210
022216
022222
022224
022226
22234
022236
022242

02220C

022236

177640
000020
177777
157122
157074

156744

000004

156672

003024

000004

MOV

#23% ,SLPERR

;SET LOOP ON ERROR POINTER TO 2%

2%:

MOV
MOV
MOV
CLR
(LR
TST

#UJPARO RO
#20,R1
#-1,ADRAND
ADDROR
TONUM
(RO)

JLOAD RO WITH ADDRESS OF F]RST REG
;LOAD R1 WITH LOOP COUNT (16)
JINITIALIZE ''AND'' OF ADDR. LOC
JINITIALIZE ‘OR'*
OF ADR. LOC.
JINITIALIZE '‘TIMEOUTS'' COUNTER
s TRY ADDRESSING A REGISTER

3s:

022136

SCOPE

1%:

157130

000002
157052

TST12:

MOV

ADD
SO8

#2,R0
R1,2%

TST
BEQ
ERROR

TONUM
43
+10

MOV

4$:
5¢:

#58 a6

MOV
BR

ADD
ERROR

#1$ ,SLPERR

#TIMERR , a4
TST13
#4 KSP
+7

JSET TIMEOUT VECTOR TO 5%

JIF IT TIMES OUT, WILL GO TO 5%

JPUT NEXT REGISTER ADDRESS IN RO
,LOOP BACK TO 2% UNTIL ALL TESTED

:RESET LOOP ON ERROR POINTER TO 1%
;DID ANY OF THE REGISTES TIME OUT?
;BRANCH IF NO
;SUMMARY OF REGISTER TIMEOUTS

JRESTORE NORMAL CPU TRAP ROUTINE ADDRESS
;JBRANCH TO NEXT TEST

JCLEAN UP THE STACK
JONE OF THE REGISTER TIMED OUT

“FOR TIGHTER SCOPE LOOP,

REPLACE ERROR

“CALL WITH 'BR 28" = 000756

MACRO M1111
(KKTAAQ 11744 MEM MGMY PRT A
112
USER 18D SPACE PAR'S TIMEOQUTM TEST

1667
1671

022244
022246
022252
022254
022260
022264

010002
050267
005102
040267
005267
000746

26-SEP-79 12:27
MOV

BIS
COM
BIC

157044

157040

157010

INC

B8R

AN RN AR

LRTEST 1 3
*

* %

PAGE

184

;LOAD THE ADDRESS THAT TIMED OUT INTO RZ

RO,RZ

R2,ADDROR
RZ
R2,ADRAND

;"OR'
1T WITH OTHER ADDRS. THAT TIMED OUT
;AND* IT WITH OTHER ADDRS. THAT TIMED OuUT

TONUM

JINCREMENT THE

AR AN N RN

SEQ 0043

TIMEOUT COUNTER

;BRANCH BACK TO TEST THE NEXT REGISTER
N R

R R RN R A RN RNAARRRR N R R R A RN RN RN

R RN RO TR E

USER 18D SPACE PDR'S TIMEOUT TEST

THIS TEST ADDRESSES THE SIXTEEN (16) USER_PAGE DESCRIPTOR
REGISTERS (UIPARO-UIPAR7 AND UDPARO-UDPAR?)
AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES.

AR R R AR RANARNANNAAARNARRAARNNAARRAARNRAARARAAPRAAACNARRARRRAA
AN RN SR

022332

000004
012767
012737
012700
012701
012767
005067
005067
005710

022334
022340
022342
022350
022354

062700
077104
012767
005767
001401

000002
022270
156720

156540

012737
000414
062706

003024

000004

1672 022270

022374

022376
022400

1673
1686

022404
022406
022412
0¢2416

104010

104007

010002
050267
005102
040267
005267
000746

022332
022370
177600
000020

1777277
156770

156612
000004

1%:

156776

156742

000004

TST13:

2%:
3%:

SCOPE

MOV

MOV
MOV
MOV
MOV
CLR
CLR
TST

5%:

#2,R0
R1,2%
#1%,3LPERR

B8EQ
ERROR

43
+10

156706
156656

TONUM

MoV

#TIMERR ,a#4

ERROR

BR
ADD

MOV
BIS
(oM
BIC
INC
BR

156712

#58 , ans
#UIPDRO RO
#20,R1
#-1_,ADRAND
ADDROR
TONUM
(RO)

ADD
SOB
MOV
TST

#23% ,SLPERR

TST14
#6 KSP

RO,R?
R2 ,ADDROR
R2
R2 .ADRAND
TONUM
33

;SET LOOP ON ERROR POINTER TO 2%

;SET TIMEOUT VECTOR TO 5%
;LOAD RO WITH ADDRESS OF FIRST REG
;LOAD R1T WITH LOOP COUNT (16)
DINITIALIZE AND'' OF ADDR. LOC
JINITIALIZE "OR'' OF ADR. LOC.
JINITIALIZE °*‘TIMEOUTS'® COUNTER
;TRY ADDRESSING A REGISTER

JIF 1T TIMES OUT, WILL GO TO 5%

JPUT NEXT REGISTER ADDRESS IN RO
;LOOP BACK TO 2% UNTIL ALL TESTED
JRESET LOOP ON ERROR POINTER TC 1%
;DID ANY OF

THE REGISTES TIME OUT?

;BRANCH IF NO
;SUMMARY OF REGISTER TIMEOUTS
JRESTORE NORMAL

CPU TRAP ROUTINE

;;BRANCH TO NEXT TEST
;CLEAN UP THE STACK

;ONE OF

THE REGISTER TIMED OUT

JFOR TIGHTER SCOPE LOOP, REPLACE ERROR

;CALL WITH ‘BR 2%'' = 000756

JLOAD THE ADDRESS THAT TIMED OUT INTO R2
J"OR" IT WITH OTHER ADDRS. THAT TIMED OUT
JAND'' IT WITH OTHER ADDRS. THAT TIMED OUT
JINCREMENT THE TIMEOUT COUNTER
;BRANCH BACK TO TEST THE NEXT REGISTER

:;Q""'t.""t't't."""'.."fi"."..".."‘."'.“Q""t"t"'

J*TEST
-

MMRO(15:13) BIT

TEST & MMR? TEST

M
M
o
.Y
;®
S
S
S
.

THIS TEST CHECKS BITS <15:13> OF MEMORY MANAGEMENT
REGISTER O TO SEE THAT EACH CAN BE SET AND CLEARED
AND THAT A 'RESET'’ WILL CLEAR ALL OF THEM. A TEST
OF THESE THREE ERROR BITS CHECKS PART OF SRO, THE
SRO MUX AND THE KTMUX.
THE REST OF THE BITS IN
SRO WILL BE CHECKED LATER.
ALSO CHECK THAT SR2 IS TRACKING WITH MEM, MGMT.
OFF BUT LOCKS UP WHEN ANY OF SRO ERROR BITS SET.

E:"'..'.'."."."".‘.""Qlt..fi'l"fi"""'Q.'.'."Q""Q."t.
687

022420

000004

7ST14:

SCOPE

ADDRESS

(KKTAAQ 11/44 MEM MGMT PRT A

114

MMRO(15:12) BIT

1688 022422

012700

1689 022426

012710

1691

011001

1690 022432
0226434

1692 022436
1693 022640
1694
1695

1696

1697
1698
1699
1700
1701
1702
1703

022442
022450
022456
022462
022666
022470

000005

MACRO M1111

TEST & MMR2 TEST
177572

26=SEP-79 12:27

1%:

160000

MOV

RESET

MOV

001404
104011

012767
016767
012701
020167
001401
104021

MOV

022450
155122
022450
156602

156440
156612

2%:

PAGE 18-5

#SRO,RO

:LOAD ADDRESS OF

#160000, (RO)

SRO INTO RO

“SET BITS <15:13> IN SRO (ERROR BITS)

“ISSUE AND "‘INIT'' SIGNAL

(RO) ,R1

"READ SRO INTO R1

BEQ
ERROR

2%
+11

MOV
MOV
MOV
CMP
BEQ
ERROR

#2$ . $LPERR
SR2.WASSR2
#2% R
R1,WASSR?
3
+21

TO SEE

CLEAR

;BRANCH 1F SR0<15:13> CLEARED 8Y "'INIT"
*SR0<15:13> NOT CLEARED BY A 'RESET"
"FOR TIGHTER SCOPE LOOP
"REPLACE ERROR CALL WITH

S'BR 18" = 000770

“SET LOOP ON ERROR POINTER TO 2%
*READ CONTENTS OF SR2
JLOAD EXPECTED CONTENTS INTC R?
“IS SR2 TRACKING?
*BRANCH IF YES
;SR2 NOT '‘TRACKING'' VIRTUAL ADDRESSES
*FOR TIGHTER SCOPE LOOP

1704

JREPLACE ERROR CALL WITH

1705

1706 022472
1707 022500

1708
709
1710
1711
1712
1713
1714
1715
1716

SEQ 0044

022504
022510
022512
022514
022516
022520
022522

1717

1718 022524

012767
012701

012703
005010
050110
011002
020102
001401
104012

C22510
100000

000003

022512

1720 022536 020467

156526

1721
1722 022542
1723 022544
1724

3%:

4$:
5§

MOV
MOV

MOV
CLR
8IS
MOV
TMP
BEG
ERROR

S'BR 28" = 000767

#4$,$LPERR
#BIT15.R

"SET LOOP ON ERROR POINTER TO 4%
*PUT DATA TO BE WRITTEN IN R1

#3,R3
(RO
R1, (RO)
(RO) .R2
R1,R2
6%
+12

"SETUP R3 AS A LOOP COUNTER
*CLEAR SRO
“SET ONE OF THE ERROR BITS IN SRO
*READ SRO INTO R2
‘DID RIGHT ERROR BIT GET SET?
*BRANCH IF YES
‘BITS WERE SET WRONG IN SRO
"FOR TIGHTER SCOPE LOOP
"REPLACE ERROR CALL WITH

012704

1719 022530

156410

016767

1550642

156532

6%:

001401
104027

Y'BR 48"
= 000772

MOV

#5% R4

R4, WwASSR2

BEQ
ERROR

7%
+27

MOV

*LOAD EXPECTED CONTENTS OF

SR2.WASSR?

‘READ SR2

};gg 0225564

IN R

‘DID SR2 LOCK UP WHEN ERROR
‘BIT SET IN SR1?
‘BRANCH IF YES
*SR2 DID NOT LOCK UP
*FOR

1725

1726
1727 022546
1708 022550
1729 022552

SR¢

TIGHTER SCOPE

LOOP

‘REPLACE ERROR CALL WITH

006001
077321
005010

012767

78:

022622

1741

156326

ROR
SO8
CLR

MOV
NN R AR AR AN

TRTEST
‘e

e
e
ie
e

15
THIS

S'BR 48"
= 000761
*CHANGE DATA TO CHECK NEXT ERROR BT
"LOOP BACK UNTIL <15:13> ALL TESTED
*CLEAR SRO BEFORE LEAVING

R1
R3,4$
(RO)

#18 ,SLPERR
AR AR NN AN R

"RESET LOOP ON ERROR POINTER 10 1%

R AN RN N R ANR AN R AN RAC R AR NN

N R AN

R AR O AN NEY

SRO & PSW DUAL ADDRESSING TEST
TEST

CHECKS MORE

THE ADDRESS DETECTION LOGIC BY

VERIFYING THAT STATUS REGISTER O IS NOT EFFECTED BY WRITING
TO THE PSW AND THAT THE LOW BYTE OF STATUS REGISTER 0
IS NOT EFFECTED BY JRITING TO ITS HIGH BYTE.
THIS IS 10
SEE IF ADJACENT OUTPUTS ARE SHORTED ON THE ADDRESS DET. LOGIC.

:‘:.'tt.ttt'.tt'ttQ.tt.!t"'lt.t.i.t'.'.tl..t"'ttt'.t't'tttlt'ttt
. 022562

000004

1743 022564

005067

155206

TS115:

SroPE

1%:

(LR

PSW

;CLEAR

THE

PSW

MACRO M1111
(kK TAAQ 11744 MEM MGMY PRT A
116§
SRO & PSwW DUAL ADDRESSING TEST

022612
022616

005067
012737
016700
001401

154776

000340
154764

(LR

177776

MOV
MOV
BEQ
ERROR

104013

005067
005067

—

022570
022574
022602
022606
022610

67564
5154

1744
1745
1746
1747
1748
1749
1750
1751
1752
1753

26=SEP=7?9 12:27

s ¥

CLR

PAGE

SRO
#340,a0PSwW

S@90,R0
23
+13

18-6

SEQ 0045

JCLEAR STATUS REGISTER 0
JSET PRIORITY 7 IN LOW BYTE OF PSw

JREAD STATUS REGISTER O

;BRANCH [F IT WAS STILL O
JSRO EFFECTED BY A WRITE TO THE PSwW
;FOR

SRO

PSw

TIGHTER SCOPE

LOOP

:REPLACE ERROR CALL WITH
JBR 18" = 000767
;JBE SURE SRO IS O BEFORE LEAVING
;B SURE PSW IS O BEFORE LEAVING

$§§TMO 117446 MEM MGMT PRT A

MACRO M*11°

SRO € PSw DUAL ADDRESSING TEST

PAGE 19

26-SEP=-79 12:27

SFQ 0046

1767

1768

J*TEST

L R
L)

BIT

TEST

MEMORY MANAGMENT REGISTER

;=THIS TEST WILL CAUSE BITS IN MMR1

TO BE LOCKED BY SETTING BITS <15:13>

;*IN MMRO,
THE REGISTER ONLY GETS CLOCKED ON AN INSTRUCTiON THAT AUTO
THE LOWER BYTE IS ALWAYS CLOCKED
;*INCREMENTS OR AUTO DECREMENTS A REGISTER.
J*FJRST AND THE UPPER BYTE IS ONLY CLOCKED IF BOTH SOURCE AND DESTINATION
-*AUTO INCREMENT OR DECREMENT A REGISTER.

;*ALL COUNTS (+1,-1,42,-2) THAT CAN BE GENERATED ARE CLOCKED INTO THE HIGH
;*AND LOW BYTES. ALL REGISTER NUMBERS ARE GENERATED, INCLUDING ALL THREE
;*R6'S, AND ALL THE BITS THAT HOLD THE REGISTER NUMBER [N BOTH BYTES
:«ARE

TESTED;

HOWEVER,

ALI

:«LOW BYTES, BUT ENOUGH ARE USED TO TEST THE LOGIC.

" 1222222222222

022650
022654
022656
022660
1778 022662
1779 022664
1780 022672
1781

1786 022714
1788 022720
1789 022722
1790 022726

1792
1793
1794
795
796
797
798
799
800

022730

022732
022734
022740
022746
022752
022754
022756

022762
022764
1802 022766
1803 022770
1804 022772
1805 023000
1806 023004
1807 023010

177574
020000
022642

012703

013427

011001

100000

20%:
156246
177572

118$:

020103
001401
104014

012767
000005
011001
001601
104011

012767
012702
012722
011001
012703
020103
001401
104014

005037
012767
012702
010442
011001
012703

022672

022710
177572
040000

156216

156200

10%:
12%:

011027

177572

022746
177574

156742

2$:
14%:

02300C
177573

001343

006411

SCOPE

156110

3
15%:

2383232

8222823282000

MOV
MOV
MOV
MOV

MMR1,RO

MOV
MOV
(MP
BEQ
ERROR
MOV
RESET
MOV
BEQ
ERROR
MOV
MOV

#013427 ,R3
(RO) ,R1

MOV

MOV
MOV
cMP
BEQ
ERROR

(LR

MOV
MOV
MOV
MOV
MOV
CMP

171000

1808

1809 023017
1810 023014

TST16:

—

1773
1774
1775
1776
1777

022624
022630
022634
022642

000004
012700
012704
012767
012737

1769
1770
1771
1772

022622

BEQ
ERROR

CLR

MOV
MOV
MOV
MOVR

MOV
MOV

#IT13.R4

#7118, $(PERR

#RITIS, 3AMMRO

R1.R3

108
+14
#12%,$LPERR

(RO) ,R1

1%
+11

#138,8LPERR

#MMMRO ,R?

#MIT14,(R2)+
(RO) ,R1
#011027 ,R3
R1,R3

+14

IMMRO

#1463, SLPERR

#MMMRO+2 ,R2
R4, =(R2)

(RQ) ,R1
#171000,R3

R1.R3
3s
+14

(R2)
#1588 ,SLPERR
#MMMRO+17
RS
#READON+1,R1

(R1)+,(R5)+
(RO) ,R1

#006411,R3

0020302d33202R0

INTO BCTH HIGH AND
ARAA ]

;PUT ADDRESS OF MMR1 INTO RO
JSET READ ONLY BIT IN Ré
;SET LOOP ON ERROR POINTER T0O 11%
:LOCK UP MMRT LOW BYTE 027.HIGH BYTE (2°
JWORD=-013427
;PUT EXPECTED DATA [N R3
JREAD MMR1 INTO R1
;SEE 1F DATA MAT(CHES

JBRANCH JF DATA MATCHES
:MMR1 DID NOT TRACK PROPERLY
JSET LOOP ON ERROR POINTER TO 12%
JISSUE INIT
:SEE IF MMRY IS CLEARED
JBRANCH [F MMR1 IS ZERO

JCAN'T CLEAR MR
:SET LOOP ON ERROR POINTER TO 13%
;PUT ADDRESS OF MMRO INTO R?
JLOCK UP MMRI-LOWER BYTE 027
JUPPER BYTE 022-WORD 011027
JREAD MMR1
;PUT EXPECTED DATA IN R3
:SEE IF DATA MATCHES
JBRANCH IF DATA MATCHES
;MMR1 DID NOT TRACK PROPERLY
;CLEAR MMRO
;SET LOOP ON ERROR POINTER TO 14%
:PUT ADDRESS OF MMRO PLUS 2 IN R?
JLOCK UP MMR1-LOWER BYTE 000
JUPPER BYTE 362-WORD 171000
JREAD MMR1
;PUT EXPECTED DATA IN R3
:SEE IF DATA MATCHES
:BRANCH IF DATA MAT(HES
MMR1 DID NOT TRACK PROPERLY
;CLEAR MMRO
;SET LOOP ON ERROR PDINTER 10 15%
JPUT ADDRESS OF MMR(O'S UPPER BYTE [N RS
;PUT ADDRESS OF READ ONLY BIT <13> [N R®
JLOCK UP MMRTI-LOWER BYTE 011
;UPPER BYTE 015-WORD 006411
;READ MR
;PUT EXPECTED DATA IN R3

ALV
—

=
OV
W =00 00 ~NON VNS

b
b

e
e

d ad

e
e

d
d

d
—

——d
b
d
D
D
b
b
—

00 00 0o 0o 20 0o 00 00 00 00 00 0o Co O 00 00

023020
023022
023024
023026
023030
023036

020103
001401
005012
012767
012701

023036

023042

012705

001344

023046

114541

023050
023052
023056

011001
012703
020103
001401

104014

177574

156052

023106
023112
23116
023120
023124

011001
012703
020103
001401
104014
016706
005012

012767
012737
010637
012706
012726

023170
023172

023220

011001
012703
020103
001401

104014
016706
005037
005037
012767

16%:

023106
040000
001176
177574
040000

156014
177776

5%:

17%:

6%:

156040

140000

001176
177572
100000

155742
177776
18%:

022624

MOV

#READON+2
RS

MOVB

-(RS),-(R1)

MOV
(MP
BEQ
ERROR
CLR
MOV

MOV
MOV
MOV
MOV

BEQ
ERROR

7%:

155662

(RO)

,R1

#174975.R3

R1,R3
s$
+14
(R2)
#17$,$LPERR
#40000, a#PSW

SSP, a#$TMPO

MMMR0+2,
SSP
#40000,
- (SSP)

(RO) R
#173027 ,R3
R1,R3
+14

(LR

MOV
MOV
MOV

#188,SLPERR
#140000, a#PSW

USP,a#$TMPO

MOV

AMMRO, USP
#100000, (USP) +

MOV
MOV

(RO) ,R1
#013027,R3
R1,R3
7%
+14
$TMPO ,USP

cMP
BEQ
ERROR

MOV
CLR
CLR
MOV

StQ 0047

;SEE [F DATA MAT(CHES
JBRANCH [F DATA MAT(CKES
;MMR1 DID NOT TRACK PROPERLY
;CLEAR MMRO
JSET LOOP ON ERROR POINTER TO 16%
;PUT ADDRESS OF MMR0O'S UPPER BYTE
JPLUS 1 IN R1
;PUT ADDRESS OF READ ONLY BIT <13>

;PLUS 2 IN RS
;LOCK UP MMR1-LOWER BYTE 375
JUPPER BYTE 371-WORD 174775
JREAD MMR1
JPUT EXPECTED DATA [N R3

;SEE IF DATA MAT(CHES
JBRANCH IF DATA MATC(CHES

JMMRT DID NOT TRACK PROPERLY
;CLEAR MMRO
;SET LOOP ON ERROR POINTER TO 17%
:SET SUPERVISOR MODE
;SAVE SUPERVISOR STACK POINTER
;PUT ADDRESS OF MMRO+2 [N SSP
JLOCK UP MMRI-LOWER BYTE 027
;UPPER BYTE 366-WORD 173027
JREAD MMR1
JPUT EXPECTED DATA !N R3
;SEE IF DATA MAT(CHES
;BRANCH IF DATA MAT(CHES

;MMR1 DID NOT TRACK PROPERLY
LRESTORE

MoV

MOV

013027

155766
177776
177572

R1,R3
43
+14
(R2)
#1638, SLPERR
#MMR0+2,R1

MOV
MOV
CMP

173027

023160

(MP
BEQ
ERROR
CLR
MOV
MOV

MOV

1746775

104014

005012
012767
012737
010637
012706
012746

PAGE 19-1

26~SEP-79 12:27
MACRO M1171
BIT TEST OF MEMORY MANAGMENT REGISTER 1

(KKTAAQ 11/46 MEM MGMT PRTM A

a#PSW

MRO

#20%,SLPERR

THE

SUPERVISOR STACK PCINTER

;CLEAR MMRO
;SET LOOP ON ERROR POINTER TO 18%
;SET USER MODE
s SAVE USER STACK POINTER
;PUT ADDRESS OF MMRO IN USP
;LOCK UP MMRT-LOWER BYTE 027
;UPPER BYTE 026~WwORD 013027
JREAD MMR1
JPUT EXPECTED DATA IN R3
;SEE IF DATA MAT(CHES
;BRANCH IF DATA MAT(CHES
;MMR1

DID NOT

TRACK PROPERLY

JRESTORE THE USER STACK POINTER
;GO BACK TO KERNAL MODE
JLET ALL MEM MGT RIG'S TRACK
.SET LOOP ON ERROR POINTER TO STAR

TEST

MACRO M1
26-SEP=79 12:27
CKKTAAO 11744 MEM MGMT PRT A
117
BIT TEST OF MEMORY MANAGEMENT REGISTER 3
1864

PAGE 20

SEQ 0048

e 2232222322222
2R 2R22 R
R RRRR2RARRRRRRRR )

STEST 17
BIT TEST OF MEMORY MANAGEMENT REGISTER 3
'.
THIS TEST SETS AND CLEARS BITS <05:04> AND <02:00> OF MMR3.
.

L4
®

IT DOES
THAT THE BITS FUNCTION PROPERLY SINCE THAT REQUIRES MORE
HOWE VER, IT TESTS THE REGISTER AND THE DATA PATH TO AND FROM
LOGIC.
THE REGISTER.
THE PROPER FUNCTIONING OF THESE BITS IS TESTED LATER
IN SEVERAL TESTS.

NOT

TEST

:;tQttQttt't"tt'fii..tttt"'tfiQl.'ttQtt.t'..ttttfitt."t"ttfi't."

023226

000004
012700
12702
005010
011001
001401
104011

012703
012767
010210
011001
020201
001401

TST17:

20%:

172516
000001

000006
023262

155€26

104011

012767

1%:

MOV

104015

006302
077307
012702
012767
010210
011001
020201
001401
104015
012767
000005
011002
001407

5%:

SCIOPE
MOV
MoV
CLR
MOV
BEQ
ERROR
MOV
MOV
Mov

2%:

000077
023312

155576

12%:

CMP
BEQ
ERROR

#MMR3 RO
#1,R2
(RO)
(RO) ,Ri
5%

+11
#6,R3
#18 ,SLPERR
RZ, (RO)

(RO) ,R1

R2.R1

ASL
S08

l12$ SLPERR
R2, (RO)
(RO).R1
R2.R1

023332

023230

155556

155540

3%:

+15
#1388,
8. PERR

4%
+11
#20%,$LPERR

13%:

(RO) ,R2

;PUT ADDRESS OF MMR3 IN RO
;SET BIT TO FLOAT THRU MMR3
;CLEAR MMR3
JREAD MMR3 INTO R1
;BRANCH IF ZERO

JCAN'T CLEAR MMR3

JSET UP LOOP COUNT
:SET LOOP ON ERROR POINTER TO 1%

;LOAD MMR3
;READ MMR3 INTO R1

:DOES DATA MAT(CH PATTERN?

JBRANCH ]F T MATCHES
:MMR3 HAS WRONG DATA
JLEFT SHIFT DATA PATTERN
;BRANCH BACK IF R3 NOT O

:PUT DATA PATTERN IN RZ2
;SET LOOP ON ERROR POINTER 10 12%
;TRY TO SET ALL BITS

IN MMR3

:READ MMR3 INTO R1
;SEE IF ALL BITS GOT SET
;BRANCH IF ALL WERE SET

:MMR3 HAS WRONG DATA
;SET LOOP ON ERROR POINTER T0O 13%
;ISSUE AN INIT
;READ MMR3 INTO R?
;BRANCH 1F MMR3 CLEARED
JCAN'T CLEAR MMR3
JSET LOOP ON ERROR POINTER TO START OF

TEST

MACRO M1111
26=SEP=-79 12:27
BIT TEST OF MEMORY MANAGEMENT REGISTER 3

PAGE 21

CKKTAAD 11/44 MEM MGMT PRT A

117

SEQ 0049

NSNS NS NSNS NSNS NSNS NSNS NSNS NSNS NSNS NN
PAR AND PDR TESTS
.SBTTL
GROUP 2
NSNS NN NS NSNS NSNS NSNS NSNS NSNS NN NN

1894
1895
1896
1897

1908
1612

AN ARAARNRRAAARARARRNARNRIRRANRARAR
AR P ARNRARAAANNNANACACARAS AN R

TeTEST 20

DUAL ADDRESS KERNAL PAR'S,ON LOADING

- %

:*THIS TEST FIRST CLEARS ALL THE KERNAL PAGE ADDRESS REGISTERS,

THEN, STARTING
;*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO.
;*WITH I-SPACE ADDRESS REGISTER ZERO, ONE REGISTER AT A TIME IS
ALL KERNAL ADDRESS REGISTERS ARE
;*LOADED WITH A NEGATIVE ONE.
;*NOW READ TO SEE THAT ONLY THE ONE UNDER TEST IS NON-ZERO.
;*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN

;*AT

THE END OF

THIS

TEST.

;:ttt.fit'ttfittfitttttktit*ttiifit*ttttt.itfitttt.t'fifittttttttt'tltQt

023350

000004
004767
012767
012705
004767
012700
012701
011002
001401
104030

156720
023404
172340
156664
172340
006020

062700
077106

000002

012767
012700
012705
004767
012701

023432

TST20:

155524

1%:

2%:

SCOPE

JSR

MOV

MOV
JSR
MOV
MOV
MoV
BEQ
ERROR

ADD

so8

PC ,CLEANUP
#18 ,SLPERR

#KIPARO
RS

PC,CLRREG

#KJPARO,RO

#20,R1

(RO) ,R2
2%
+30

#2,R0O
R1,1$

;INITIALIZE THE ERROR LOCATIONS
;SET LOOP ON ERROR POINTER TO 1%

;PUT ADDRESS OF FIRST PAR IN RS
;CLEAR 16 REGISTERS POINTED TO BY RS
;PUT ADDRESS OF FIRST PAR IN RO
;BRANCH COUNT IS 16 DECIMAL
JREAD PAR TO RZ2
;BRANCH IF PAR IS O

;PAR NOT ZERO

;POINT TO NEXT REGISTER
:BRANCH BACK TO 18 15 TIMES

;NOW START DUAL ADDRESSING TEST BY LOADING -1 INTO ONE REGISTER AND
JREADING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY

172340
172340
156616

155462

172376
177777
155520

156642
155500
000002
172340

000002

172376

023352

155360

155560

155444

155566

1917

20%:

;DROPPED BITS WILL BE FOUND IN THE NEXT TEST).
#38% ,SLPERR
MOV
;SET LOOP ON ERROR POINTER TO 3%
#KIPARQ,RO
MOV
;PUT ADDRESS OF FIRST PAR IN RO
#KIPARO
RS
3%:
MOV
;LOAD STARTING ADDRESS INTO RS
PC,CLRREG
JSR
;CLEAR 16 REGISTERS POINTED TO BY R5
#KDPAR?7
,R1
MOV
;PUT KDPAR7 ADDRESS INTO R1
#-1,(RO)
MOV
;LOAD REGISTER UNDER TEST
A ¥
CLR
$TMPO
;FLAG TO INDICATE THERE WAS A MAT(H
(R1) ,R2
MOV
JREAD ALL REGISTERS
63
BEQ
;BRANCH IF REGISTER IS O
RO.R1
CMP
;1S THE ADDRESS OF NON-ZERO REGISTER THE SAME
;AS THE REGISTER UNDER TEST?
5%
JBRANCH IF ADDRESSES MAT(CH
PC ,DUALADR
;LOG AND REPORT ERRORS
5%:
INC
$TMPO
;SET FLAG WHEN ADDRESSES MAT(H
#2 ,R1
6%:
SURB
;POINT TO NEXT REGISTER
#KI1PARO,R1
;SEE IF ALL REGISTERS HAVE BEEN READ
43
;BRANCH IF MORE TO READ
#2,RO
JNOW LOAD THE NEXT REGISTER
#KDPAR?7 ,RO
;SEE IF THERE ARE MORE REGISTERS TO TEST
33
;BRANCH IF MORE REGISTERS TO TEST
#208 ,SLPERR
;SET LOOP ON ERROR POINTER TO START OF TEST
ERRCNT
;SEE IF THERE WERE ANY ERRORS
TST21
;;BRANCH TO NEXT TEST IF NO ERRORS
MGV
ERRCNT, $TMPS
;SAVE # OF ERRORS FOR PAR OUT
+31
ERROR
;. SUMMARY OF DUAL ADDRESS TEST
::tttttt.fitt'ttttttttt!ttitttttt!ttttttt'titttttt'tttltfit‘lt!'tt'

4
L
PAGE 21-1

MACRO M1111
26-SEP-79 12:27
(KKTAAQ 11/44 MEM MGMT PRT A
121
DUAL ADDRESS SUPERVISOR PAR'S,ON LOADING

;*TEST 21

SEQ 0050

DUAL ADDRESS SUPERVISOR PAR'S,ON LOADING

;*THIS TEST FIRST CLEARS ALL

THE

SUPERVISOR PAGE ADDRESS REGISTERS,

J*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO.
THEN, STARTING
;*W]TH 1-SPACE ADDRESS REGISTER ZERO, ONE REGISTER AT A TIME IS
;*LOADED WITH A NEGATIVE ONE.
ALL SUPERVISOR ADDRESS REGISTERS ARE
;*NOW READ TO SEE THAT ONLY THE ONE UNDER TEST IS NON-ZERO.

;*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN
;AT

THE END OF

THIS TEST.

: .'ttttfittttttfitt.*ttltfit'tttfifitfitfitti't.t'ttttttttifittt'*ttttt.tt

023546

1918 023550

023554
023562
023566
023572
023576
023602

023650
023654
023656
023660

023662
023664
023670
023674
023700
023704
023706

023712
023716
023720
023726
023732
023734
023742

000004
004767
012767
012705
004767
012700
012701
011002
001401
104030
062700
077106

012767
012700
012705
004767
012701
012710
005067
011102
001406
020001
001402
004767
005267
162701
022701
101761
062700
022700
103344
012767

005767
000404
016767
104031

156522

023602

172240
156466
172240
000020

TST21:

155326

172240

MOV

MoV
JSR
1$:

2%:

155264

MOV

Mov

6%:

156444
155302

5%:
6%:

000002

172240

000002
172276
155162

155362

155246

#SIPARO,RS
PC,CLRREG

;PUT ADDRESS OF FIRST PAR IN RS
;CLEAR 16 REGISTERS POINTED TO BY RS

#S]IPARO,RO
#20,R1
(RO

,R2

2SET LOOP ON ERROR POINTER TO 1%

;PUT ADDRESS OF FIRST PAR IN RO
;JBRANCH COUNT IS 16 DECIMAL
;READ PAR TO R2

2%
+30
#2,RO
R1,1$

MOV
MOV
MOV
JSR

#3$ ,SLPERR
#SIPARO,RO
#SIPARO RS
PC,CLRREG

;SET LOOP ON ERROR POINTER TO 3%
;PUT ADDRESS OF FIRST PAR IN RO
;LOAD STARTING ADDRESS INTO RS
;CLEAR 16 REGISTERS POINTED TO BY RS

MOV

#-1,(RO)

;LOAD REGISTER UNDER TEST

CLR

#SDPAR?7 ,R1
$TMPO

MOV
BEQ
cMP

(R1) ,R2
6%
RO,R1

BEQ
JSR
INC
suB
CMP
BLOS
ADD

5%
PC ,DUALADR
$TMPO
#2 ,R1
#SIPARO,R1
43
#2 RO

BHIS

cMP

023550

JINITIALIZE THE ERROR LOCATIONS

#1$,SLPERR

BEQ
ERROR
ADD
s08

MOV

1727777
155322

PC, CLEANUP

;BRANCH IF PAR IS O
;PAR NOT ZERO
¢POINT TO NEXT REGISTER
:BRANCH BACK TO 18 15 TIMES

;NOW START DUAL ADDRESSING TEST BY LOADING =1 INTO ONE REGISTER AND
JREADING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY
;DROPPED BITS WILL BE FOUND IN THE NEXT TEST).
38:

172240

156420
172276

155370

SCOPE

JSR

MOV

000002

023630

20%:

#SDPAR?7 ,RO

MOV
TST

#208,SLPERR
ERRCNT

MOV

ERRCNT ,$TMPS

ERROR

TST22

+31

;PUT SDPAR7 ADDRESS INTO R1

JFLAG TO INDICATE THERE WAS A MAT(H

JREAD ALL REGISTERS
;BRANCH IF REGISTER IS O
;1S THE ADDRESS OF NON~ZERO REGISTER THE

;AS THE REGISTER UNDER TEST?

SAME

;BRANCH IF ADDRESSES MATCH
;LOG AND REPORT ERRORS
;SET FLAG WHEN ADDRESSES MAT(H
;POINT TO NEXT REGISTER
;SEE IF ALL REGISTERS HAVE BEEN READ
;BRANCH IF MORE TO READ
;NOW LOAD THE NEXT REGISTER

;SEE IF THERE ARE MORE REGISTERS TO TEST
JBRANCH ]IF MORE REGISTERS TO TEST

;SET LOOP ON ERROR POINTER TO START OF
;SEE IF THERE WERE ANY ERRORS

;:BRANCH TO NEXT TEST IF NO ERRORS
;SAVE # OF

ERRORS FOR PAR OUT

;. SUMMARY OF DUAL ADDRESS TEST

TEST

CKKTAAD 11/44 MEM MGMT PRT A

122

MACRO M1111

DUAL ADDRESS USER PAR'S,ON LOADING

1923

26-SEP-79 12:27

PAGE 22

SEQ 0051

';Qtttt'.'t"""fifl..'!.""fittt.t.'fi.t't.tt.t'ttQt.t..'fi.t...t!t

SeTEST 22

DUAL ADDRESS USER PAR'S,ON LOADING

. %

;*THIS

TEST FIRST CLEARS ALL

;*AND CHECKS TO SEE

THE USER PAGE

ADDRESS REGISTERS,

THAT THEY EACH HOLD ZERO.

THEN,

STARTING

;*WITH [-SPACE ADDRESS REGISTER ZERO, ONE REGISTER AT A TIME [S
;*LOADED WITH A NEGATIVE ONE.
ALL USER ADDRESS REGISTERS ARE
;*NOW READ TO SEE THAT ONLY THE ONE UNDER TEST IS NON-ZERO.
;*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN
;%AT THE END OF

THIS TEST.

::ttttt.t*tfittifii'!.fi'*Qfiiitttttttttitfittttttttt"t'..tlt.'..t.'t

023744
1924 023746
023752

000004
004767
012767

156324
024000

023764

004767

156270

023760
023770
023774
024000

024002
024004
024006
024012

024014

024022
024026
024032
024036
024042
024046
024052

024054
024056

012705

012700
012701
011002

001401
104030
062700
077106

012767

012700.
012705
004767
012701
012710
005067
011102

024066
024072
024076

005267
162701
022701

024110

0264114
024116
024124
024130
024132
024140

1%:

000002

024026

177640
177640
156222
177676
177777
155124

2%:

155066

004767

3$:

4%:

101761
062700

022700

103344
012767
005767
000404
016767
104031

156246

155104
000002
177640

5%:
6%:

000002

177676

PC,CLEANUP
#18 ,SLPERR

JINITIALIZE THE ERROR LOCATIC.>
;SET LOOP ON ERROR POINTER v 1%

JSR

PC,CLRREG

;JCLEAR 16 REGISTERS POINTED TO BY RS

MOV
MOV
MOV

BEQ
ERROR
ADD
so8

154764

155164

155050

#UIPARO,RO
#20,R1
(RO) ,R2
23
+30
#2 RO
R1,1$

;PUT ADDRESS OF FIRST PAR IN RS

;PUT ADDRESS OF FIRST PAR IN RO

;JBRANCH COUNT IS 16 DECIMAL
;JREAD PAR TO R2

;BRANCH IF PAR IS O
;PAR NOT ZERO
sPOINT TO NEXT REGISTER
;BRANCH BACK TO 18 15 TIMES

MOV
JSR
MOV
MOV
CLR

#UIPARO,RS
PC,CLRREG
#UDPAR?7 ,R1
#-1,(RO)
S$TMPO

;LOAD STARTING ADDRESS INTO R5
;CLEAR 16 REGISTERS POINTED TO BY RS
;PUT UDPAR7 ADDRESS INTO R1
;LOAD REGISTER UNDER TEST
JFLAG TO INDICATE THERE WAS A MAT(H

BEQ
0 o

6%
RO.R1

;BRANCH IF REGISTER IS O
;1S THE ADDRESS OF NON-ZERO REGISTER THE SAME

BEQ

MOV

(R1) ,R2

JSR

PC ,DUALADR

BLOS
ADD

3]
#2 RO

BHIS
MoV
TST
BR
MOV
ERROR

33
#208,SLPERR
ERRCNT
TST23
ERRCNT ,$TMPS
+31

INC
su8
cMP

cMP

023746
155172

#UJPARO RS

;NOW START DUAL ADDRESSING TEST BY LOADING =1 INTO ONE REGISTER AND
JREADING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY
;DROPPED BITS WILL BE FOUND IN THE NEXT TEST).
MOV
#3$ ,SLPERR
;SET LOOP ON ERROR POINTER TO 3%
MOV
#UIPARO,RO
;PUT ADDRESS OF FIRST PAR IN RO

001402

024102
0264104

177640

000020

SCOPE
JSR
MOV

MOV

001406
020001

024060

024062

177640

155130

TST22:
20$%:

$TMPO
#2 ,R1
#UIPARO,R1

#UDPAR7 ,RO

JREAD ALL REGISTERS

;AS THE REGISTER UNDER TEST?
;BRANCH IF ADDRESSES MATCH

;LOG AND REPORT ERRORS

;SET FLAG WHEN ADDRESSES MAT(H
;POINT TO NEXT REGISTER
;SEE IF ALL REGISTERS HAVE BEEN READ
;BRANCH IF MORE TO READ
JNOW LOAD THE NEXT REGISTER

;SEE IF THERE ARE MORE REGISTERS TO TEST
;BRANCH |F MORE REGISTERS TO TEST
JSET LOOP ON ERROR POINTER TO START OF
JSEE IF THERE WERE ANY ERRORS
;,BRANCH TO NEXT TEST IF NO ERRORS
;SAVE # OF ERRORS FOR PAR OQUT
;. SUMMARY OF DUAL ADDRESS TEST

TEST

CKKTAAD 11/44 MEM MGMT PRT A
MACRO M1111
26-SEP-79 12:27
123
DUAL ADDRESS KERNAL PDR'S,ON LOADING
1929

AN RN R R R R

;*TEST 23

PAGE 23

R R R RN AR

SEQ 0052

AR AN R AR R

R AR AN NN

NN AR R R R AR PR RN RNR AR

DUAL ADDRESS KERNAL PDR'S.ON LOADING

;*THIS TEST FIRST

CLEARS ALL

THE KERNEL PAGE DESCRIPTOR REGISTERS,

J*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO.
;*WITH 1~SPACE DESCRIPTOR REGISTER ZERO,

THEN, STARTING

ONE REGISTER AT A TIME

.~LOADED WITH A NEGATIVE ONE.
ALL KERNEL DESCRIPTOR REGISTERS ARE
;*NOW READ TO SEE THAT ONLY THE ONE UNDER TEST IS NON-ZERO.
;*INDIJVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN
;*AT

THE END OF

THIS TEST.

':t't"ttt..tttlifit't.tit""'.‘Qltfitfifit'fi"t'ttttttttttttttttttt

024142
1930 024144
024150
024156
024162

026166
024172
024176
024200
024202
024204
0264210

000004
004767
012767
012705
004767

012700
012701
011002
001401
104030
062700
077106

156126
024176
172300
156072
172300
000020
_
00000¢

024212
024220
024224
024230
024234

012767
012700
012705
004767
012701

024224
172300
172300
156024
172336

024244
024250
024252
024254

005067
011102
001406
020001

154726

024240

024256

012710

154670

;DROPPED BITS WILL BE FOUND IN THE NEXT TEST).

001402

004767
005267
162701
022701
101761

156050
154706
000002
172300

024306
024312
024314
024322
024326
024330
024336

022700
103344
012767
005767
000404
(16767
104031

172336

062700

SCOPE
JSR
MOV
MOV
JSR

PC, CLEANUP
JINITIALIZE THE ERROR LOCATIONS
#1$,SLPERR
;SET LOOP ON ERROR POINTER TO 1%
#KIPDRO,RS
;PUT ADDRESS OF FIRST PDR IN RS
PC,CLRREG
;CLEAR 16 REGISTERS POINTED TO BY RS
MOV
#K1PDRO,RO
;PUT ADDRESS OF FIRST PDR IN RO
MoV
#20,R1
;BRANCH COUNT IS 16 DECIMAL
1%:
MOV
(RO) ,R2
;READ PDR TO R2
BEQ
2%
:BRANCH IF PDR 1S 0
ERROR
+30
;PDR NOT ZERO
2%:
ADD
#2 RO
;POINT TO NEXT REGISTER
S08
R1,18
:BRANCH BACK TO 18 15 TIMES
;NOW START DUAL ADDRESSING TEST BY LOADING =1 INTO ONE REGISTER AND
JREADING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY

3$:

177777

024260
024264
024270
024274
024300

024302

154732

TST23:
208 :

MOV
MOV
MOV
JSR
MOV

#33 ,SLPERR
#KIPDRO,RO
#KIPDRO RS
PC,CLRREG
#KDPDR7 ,R1

;SET LOOP ON ERROR POINTER TO 3%
;PUT ADDRESS OF FIRST PDR IN RO
;LOAD STARTING ADDRESS INTO RS
;CLEAR 16 REGISTERS POINTED TO BY R5
;PUT KDPDR7 ADDRESS INTO R1

CLR
MOV
BEQ
MP

$TMPC
(R1) ,R2
6%
RO,R1

JFLAG TO INDICATE THERE WAS A MAT(H
JREAD ALL REGISTERS
;BRANCH IF REGISTER IS 0
;1S THE ADDRESS OF NON-ZERO REGISTER THE SAME

MOV

BEQ

5%:
6%:

000002

154566

154766

154652

;LOAD REGISTER UNDER TEST

;AS THE REGISTER UNDER TEST?
;BRANCH IF ADDRESSES MATCH

JSR
INC
SuB
cMP
BLOS

PC ,DUALADR
$TMPO
#2 ,R1
#K1PDRO,R1
43

;LOG AND REPORT ERRORS
sSET FLAG WHEN ADDRESSES MATCH
;POINT TO NEXT REGISTER
;SEE IF ALL REGISTERS HAVE BEEN READ
;BRANCH IF MORE TO READ

cMP
BHIS
MOV
TST
BR
MOV
ERROR

#KDPDR7 ,RO
3s
#20% ,SLPERR
ERRCNT
TST24
ERRCNT ,$TMPS
+31

;SEE IF THERE ARE MORE REGISTERS TO TEST
;BRANCH ]F MORE REGISTERS TO TEST
JSET LOOP ON ERROR POINTER TO START OF TEST
;SEE IF THERE WERE ANY ERRORS
;,BRANCH TO NEXT TEST IF NO ERRORS
;SAVE # OF ERRORS FOR PDR OUT
.. SUMMARY OF DUAL ADDRESS TEST

ADD

024144
154774

#-1,(R0O)

#2,R0O

;NOW LOAD THE NEXT REGISTER

MACRO M1111

26-SEP-79 12:27

DUAL ADDRESS SUPERVISOR PDR'S,ON LOADING

1935

PAGE 24

5
-~

(KKTAAQ 11/44 MEM MGMT PRT A

124

SR 2232223222222222232222222232222222222223232282232222322222222228222223329.2]

STEST 24

DUAL ADDRESS SUPERVISOR PDR'S,ON LOADING

;*THIS TEST FIRST CLEARS ALL THE SUPERVISOR PAGE DESCRIPTOR REGISTERS,
;*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO.
THEN, STARTING

;*WITH |-SPACE DESCRIPTOR REGISTER ZERO, ONE REGISTER AT A TIME IS
;*LOADED WITH A NEGATIVE ONE.
ALL SUPERVISOR DESCRIPTOR REGISTERS ARE
;*NOW READ TO StE THAT ONLY THE ONE UNDER TEST IS NON-ZERO.
;~INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN
;*AT
S

024340
024342

000004
004767

024354

012705

0264346

024360

024364
024370
024374

024376
024400
024402
024406

155730

012767

024374

004767

155674

012700
012701
011002
001401
104030
062700
077106

172200

004767

155626

024450

024452

024454
024456

024462
0264466
024472
024476
024500

024504
024510
024512
024520
024524

024526
024534

154472

172200

3%:

172236
177777
154530

6%:

001406

005267
162701
022701
101761
062700

022700
103344
012767
005767
000404

016767
104031

SCOPE
JSR

PC, CLEANUP

MOV

#SIPDRO,RS

MOV

MOV
MOV
MOV

#1§ SLPERR

8022202222 30d00R0d022a0tfiaRZRZ2ZR
2]

SINITIALIZE THE ERROR LOCATIONS

;SET LOOP ON ERROR POINTER TO 1%
;PUT ADDRESS OF FIRST PDR IN RS

PC,CLRREG

sCLEAR 16 REGISTERS POINTED TO BY RS

(RO) ,R2

JREAD PDR TO R2

#S1PDRO,RO
#20,R1

;PUT ADDRESS OF FIRST PDR IN RO
;BRANCH COUNT IS 16 DECI/MAL

BEQ
ERROR
ADD
s08

2%
+30
#2 RO
R1,1$

MOV

#SIPDRQO,RS

;LOAD STARTING ADDRESS INTO R5

MOV
MOV
CLR
MOV

#SDPDR?7 ,R1
#=1,(RO)
$TMPO
(R1) ,R2

;PUT SDPDR7 ADDRESS INTO R1
JLOAD REGISTER UNDER TEST
JFLAG TO INDICATE THERE WAS A MAT(H
JREAD ALL REGISTERS

JSR

BEQ

020001
]

001402
004767

dR20dR

JBRANCH IF PDR IS O
;PDR NOT ZERO
;POINT TO NEXT REGISTER
;BRANCH BACK TO 18 15 TIMES

;NOW START DUAL ADDRESSING TEST BY LOADING =1 INTO ONE REGISTFR AND
JREADING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY
;DROPPED BITS WILL BE FOUND IN THE NEXT TEST).
MOV
#38,SLPERR
;SET LOOP ON ERROR POINTER TO 3%
MOV
#SIPDRO,RO
;PUT ADDRESS OF FIRST PDR IN RO

024426

012701
012710
005067
011102

002303330

2%:

024422
172200

024432
024436
026442
024446

1%:

THIS TEST.

000002

012767
012700

012705

TST24:
208 :

233222

JSR

172200
000020

024410
024416

024422

154534

THE END OF

43232220332

cMP

155652

154510

5%:

000002
172200

6%:

000002
172236
024342
154576

154370

154570

154454

BEQ
JSR

INC

suB
P
BLOS
ADD
P
BHIS
MOV
TST
BR
MOV
ERROR

PC,CLRREG

RO.R1
5$
PC ,DUALADR

$TMPO
#2,R1
#S1PDRO,R1
3
#2 RO

#SDPDR7 ,RO
33
#20% ,SLPERR
ERRCNT
TST25

ERRCNT ,$TMP5
+31

:CLEAR 16 REGISTERS POINTED TO BY RS

JBRANCH IF REGISTER IS 0

;1S THE ADDRESS OF NON-ZERO REGISTER THE SAME
;AS THE REGISTER UNDER TEST?
JBRANCH IF ADDRESSES MATCH
;LOG AND REPORT ERRORS

sSET FLAG WHEN ADDRESSES MAT(H
JPOINT TO NEXT REGISTER
JSEE IF ALL REGISTERS HAVE BEEN READ
BRANCH IF MORE TO READ
JNOW LOAD THE NEXT REGISTER

;SEE IF THERE ARE MORE REGISTERS TO TEST
JBRANCH IF MORE REGISTERS TO TEST
sSET LOOP ON ERROR POINTER TO START OF TEST
;SEE IF THERE WERE ANY ERRORS
;.BRANCH TO NEXT TEST IF NO ERRORS

;SAVE # OF ERRORS FOR PDR QUT

. :SUMMARY OF DUAL ADDRESS TEST

SEQ 0053

26-SEP-79 12:27

MACRO M1111
(KKTAAD 11/44 MEM MGMT PRT A
125
DUAL ADDRESS USER PDR'S,ON LOADING
1941

PAGE 25

SEQ 0054

';t'."'.Q.Q't.".'.t't."'tt.".ltfil".'fi.""t"Q'Qt't'tt'.'t.'

TeTEST 25

DUAL ADDRESS USER PDR'S,ON LOADING

;*THIS

TEST FIRST

CLEARS ALL

THE USER PAGE

DESCRIPTOR REGISTERS,
THEN, STARTING

J*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO.

;*WITH [-SPACE DESCRIPTOR REGISTER ZERO, ONE REGISTER AT A TIME IS
ALL USER DESCRIPTOR REGISTERS ARE
:*LOADED WITH A NEGATIVE ONE.

s*NOW READ TO SEE THAT ONLY THE ONE UNDER TEST IS NON-ZERO.
s*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY Of THEM IS GIVEN
;*AT

THE

END OF

THIS

TEST.

':Qtttt.tt'itt".QtQ'..."Q.Q.'t.Q.'Q..QQQ'tt'i'...tt.'.t"'t'ttt

024536

1942 024540

024544
024552
024556
024562
024566
024572
024574
024576
024600
024604

1943

1959

000004

004767
012767
012705
004767
012700
012701
011002
001401
104030
062700
077106

024606
024614
024620
024624
024630
024634
024640
024644
024646
024650

012767
012700
012705
004767
012701
012710
005067
011102
001406
020001

024652
024654
024660
024664
024670
024674
024676
024702
024706
024710
024716
024722
024724
024732

001402
004767
005267
162701

022701
101761

155532
024572

177600
155476
177600
000020

154336

TST125:
20%:

1%:

SCOPE
JSR

MOV
Mov
JSR
MOV
MOV

MoV

BEQ
ERROR
ADD
so8

PC,

CLEANUP

#1$,SLPERR

RS
#UIPDRO
PC,CLRREG

#UIPDRO,
RO
#20,R1
(RO) ,R2

2s
+30

#2.R0
R1.1$

JINITIALIZE THE ERROR LOCATIONS
JSET LOOP ON ERROR POINTER TO 1%
;PUT ADDRESS OF FIRST PDR IN RS
;CLEAR 16 REGISTERS POINTED TO BY RS
;PUT ADDRESS OF FIRST PDR IN RO
;BRANCH COUNT IS 16 DECIMAL
;READ PDR TO R?
;BRANCH IF PDR IS O
.PDR NOT ZERO
;POINT TO NEXT REGISTER
:BRANCH BACK TO 18 15 TIMES

000002

024620
177600

JREADING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY
;DROPPED BITS WILL BE FOUND IN THE NEXT TEST).
#38,SLPERR
MOV
JSET LOOP ON ERROR POINTER TO 3%
MOV
#UIPDRO,RO
;PUT ADDRESS OF FIRST PDR IN RO
3s:
MOV
#UIPDRO,RS
;LOAD STARTING ADDRESS INTO R5
PC,CLRREG
JSR
;CLEAR 16 REGISTERS POINTED TO BY RS

:NOW START DUAL ADDRESSING TEST BY LOADING =1

154274

177600
155430
177636

17277277
154332

MOV
MOV
(LR
MOV
BEQ
M

4%:

155454
154312
000002
177600

5%:
6%:

INC
SUB

000002
177656

024540

154172

154372

154256

154400

,R1
#UDPDR?7
#-1,(R0O)
$TMPO
(R1) ,R2
6$
RO,R1

PC ,DUALADR

$TMPO
#2,R1
#UIPDRO,R1
43
#2 RO

#UDPDR7 ,RO
3$

#208,SLPERR
ERRCNT

MOV
ERROR
MO

SRR

1ST26
ERRCNT,$TMPS
+31

LATEST 26

INTO ONE REGISTER AND

;PUT UDPDR7 ADDRESS INTO R1
JLOAD REGISTER UNDER TEST

JFLAG TO INDICATE THERE WAS A MAT(H
JREAD ALL REGISTERS

;BRANCH IF REGISTER IS O
;1S THE ADDRESS OF NON-ZERO REGISTER THE SAME
;AS THE REGISTER UNDER TEST?
;BRANCH IF ADDRESSES MAT(CH
;LOG AND REPORT ERRORS

;SET FLAG WHEN ADDRESSES MAT(H
;POINT TO NEXT REGISTER
JSEE IF ALL REGISTERS HAVE BEEN READ
;BRANCH IF MORE TOQ READ
;NOW LOAD THE NEXT REGISTER
;SEE IF THERE ARE MORE REGISTERS TO TEST
;BRANCH IF MORE REGISTERS TO TEST
;SET LOOP ON ERROR POINTER TO START OF TEST
;SEE IF THERE WERE ANY ERRORS
;.BRANCH TO NEXT TEST IF NO ERRORS
;SAVE # OF ERRORS FOR PDR OUT
;- SUMMARY OF DUAL ADDRESS TEST

R RRRRRRRSRRRRRRRRRRRRR0RRRRRRRRRRRARRRRRED

COUNT PATTERN IN KERNAL PAR'S

[

:*THIS TEST RUNS A COUNT PATTERN THROUGH THE KERNAL PAGE ADDRESS REGISTERS.
;*IF

THE COUNT PATTERN DOES NOT MAT(H THE DATA RECEVIED,

THE REGISTER ADDRESS,

MACRO M1111
(KKTAAQ 11/44 MEM MGMT PPT A
126
COUNT FATTERN IN KERNAL PAR'S

26-SEP-79 12:27

:*DATA PATTERN,

D
5
PAGE 25-1

SEQ 0055

AND BAD DATA ARE REPORTED.

;*OF ERRORS IS GIVEN.

THE

END OF

THE

TEST

A SUMMARY

a2l 8220222022000l
Rl
iRl RdR]

024734

1960 024736

155334

026742
024750
024752
024756
024760
024762
024764
024766
024770
024774
025000
025004
025006
025012
025014
025020
025022
025030
025034
025036
025044

024752

154140

TST26:
20$:

2%:

3%:

024736

154060

154260

154144

154266

6%:

#KDPAR?7 ,RO

;SEE IF YOU PASSED THE KDPAR7 PAR

BHIS
cMP

3 ]
8177777 ,R1

MOV
FRROR

JPUT PATTERN IN R4

JSEE IF DATA MAT(CHES PATTERN

3s
PC,PARCOUNT
#2 RO

TST

;SET LOOP ON ERROR POINTER TO 18

R4 ,R2

BEQ
JSR
ADD

;CLEAR REGISTER TO HOLD COUNT PATTERN
;PUT ADDRESS OF FIRST REGISTER INTO RO
JLOAD COUNT INTO REGISTER
JREAD REGISTER BA(CK TO R?

R1,R4

BEQ
ADD
BR
MOV

000401

R1
#K IPARO,RO
R1,(RO)
(RO) ,R?

MOV

(MP

177777

JINITIALIZE ERROR LOCAT]IONS

#1$ ,SLPERR

(MP

155404
000002
172376

PC,CLEANUP

MOV

CLR
MOV
MOV
MOV

18:

172340

SCOPE
JSR

JBRANCH IF DATA IS GOOD
;LOG AND REPORT COUNT ERROR
JPOINT TO NEXT REGISTER

;BRANCH [F MORE TEST
;SEE IF COUNT HAS REACHED 177777

48
#401 ,R1
1%
#208,SLPERR

JBRANCH [F SO
s INCREASE COUNT PATTERN
JBRANCH TO CONTINUE TEST
;SET LOOP POINTER TO START OF

1ST127

;BRANCH TO NEXT TEST IF NO ERRORS

ERRCNT

ERRCNT,STMPS
+32

;SEE

THERE WERE ANY ERRORS

TEST

;SAVE # OF ERRORS FOR TYPEOUT
;SUMMARY OF COUNT PATTERN FAILURES

3382323232423323382323000R2RdRRRRRRRR
2R RR2ddRdRRdRRRtdtdtRiRhlld

S*TEST 27

COUNT PATTERN IN SUPERVISOR PAR'S

;*THIS TEST RUNS A COUNT PATTERN THROUGH THE SUPERVISOR PAGE ADDRESS REGISTERS.
;*]F THE COUNT PATTERN DOES NOT MAT(CH THE DATA RECEVIED, THE REGISTER ADDRESS,
;*DATA PATTERN, AND BAD DATA ARE REPORTED.
AT THE END OF THE TEST A SUMMARY

;*OF ERRORS IS GIVEN.

';QtQt'.t.t"ttt'.t'.tt."".fi..'ttfit"t.fitttfitt"'t"t'fi"tt‘t.t

155222

025064

TST27:

154026

172240

208 :
1%

2%:

SCOPE

JSR

PC,CLEANUP

MOV

#SIPARO,RO

MOV
CLR
MOV
MOV
MOV

cTMMP

BEQ

155272

000002

172276

025126
025132
025134
025142
025146
025150

153746

154146

154032

154154

016767

R4 ,R2
3s

ADD

025050

:LOAD COUNT INTO REGISTER
READ REGISTER BACK TO R?2
:PUT PATTERN IN Ré

BHIS
BEQ

000401

R1, (RO)
(RO) ,R2
R1,R4

PC . PARCOUNT
#2 RO

(MP

177777

:SET LOOP ON ERROR POJNTER TO 18
:CLEAR REGISTER TO HOLD COUNT PATTERN

JSR
ADD

B8R

MOV
TST

BR
MOV

;INITIALIZE ERROR LOCATIONS

#18 ,SLPERR
R1

#SDPAR7 ,RO

:PUT ADDRESS OF

FIRST REGISTER

INTO RO

:SEE IF DATA MATCHES PATTERN
:BRANCH IF DATA IS GOOD

:LOG AND REPORT COUNT ERROR
;POINT TO NEXT REGISTER

:SEE IF YOU PASSED THE SDPAR7 PAR

:BRANCH IF MORE TEST

8177777 ,R1

;SEE IF COUNT HAS REACHED 177777

#401,R1

:INCREASE COUNT PATTERN

#208,SLPERR
ERRCNT

TST30
ERRCNT , $TMPS

:BRANCH IF

;BRANCH TO CONTINUE TEST

:SET LOOP POINTER TO START OF
;SEE IF THERE WERE ANY ERRORS

TEST

;:;BRANCH TO NEXT TEST IF NO ERRORS
;SAVE # OF ERRORS FOR TYPEOQU!

CS;TAAO 11744 MEM MGMT PRT A

MACRO M1111

COUNT PATTERN IN SUPERVISOR PAR'S

1967
1971

025156

26-SEP-79 12:27
ERROR

104032

5
E
PAGE 25-2

+32

SEQ 0056
:SUMMARY OF COUNT PATTERN FAJLURES

::t"..t‘."".t..t'tttt."ttt'ti't'fi'.'.'t."Q't"'.'tt""..."

;wTEST 30
M

COUNT PATTERN IN USER PAR'S

s*THIS TEST RUNS A COUNT PATTERN THROUGH THE USER PAGE ADDRESS REGISTERS.
;*]7 THE COUNT PATTERN DOES NOT MAT(CH THE DATA RECEVIED, THE REGISTER ADDRESS,

;*DATA PATTERN, AND BAD DATA ARE REPORTED.
;*OF ERRORS IS GIVEN.
a2

0¢5160

1972 025162

1973
1977

025166
025174
025176
025202
025204
025206
025210
025212
025214
025220
025224
025230
025232
025236
025240
025244
025246
025254
025260
025262
025270

000004
004767
012767
005001
012700
010110
011002
010104
020402
001402
004767
062700
022700
103364
022701
001403
062701
000754
012767
005767
0004 04
016767
104032

155110
025176

153714

172340

3323223222223

TST30:
208:
18:

155160

000002

172376

177777

000401

025162

153634

154034

153720

1540472

4$:

2222

0RR

THE END OF

THE

TEST A SUMMARY

RRRRRRRdRRRdd

SCOPE
JSR
MOV
(LR

PC, CLEANUP
#1$,SLPERR
R1

;INITIALIZE ERROR LOCATIONS
*SET LOOP ON ERROR POINTER TO 1$
:CLEAR REGISTER TO HOLD COUNT FATTERN

MOV
MOV
MOV
P
BEQ

R1, (RO)
(RO) ,R2
R1,R
R4.R2
3

:LOAD COUNT INTO REGISTER
*READ REGISTER BACK TO R2
:PUT PATTERN IN Ré
SEE IF DATA MATCHES PATTERN
:BRANCH IF DATA IS GOOD

MOV

JSR

ADD
cMP
BHIS
CMP
BEQ
ADD
BR
MOV
TST

MOV
ERROR

35323232323

232222220

#K IPARO, RO

PC,PARCOUNT

#2 RO
#XDPAR7 , RO
28
#177777 R
43
#401,R1
13

#208 , SLPERR
ERRCNT

TST31

ERRCNT,STMPS
+32

:PUT ADDRESS OF

FIRST REGISTER INTO RO

:L0G AND REPORT COUNT ERROR

:POINT TO NEXT REGISTER
:SEE IF YOU PASSED THE KDPAR7 PAR
:BRANCH IF MORE TEST
:SEE IF COUNT HAS REACHED 177777
:BRANCH IF SO
: INCREASE COUNT PATTERN
:BRANCH TO CONTINUE TEST
*SET LOOP POINTER TO START OF
:SEE IF THERE WERE ANY ERRORS

TEST

:7BRANCH TO NEXT TEST IF NO ERRORS
-SAVE # OF ERRORS FOR TYPEOUT
*SUMMARY OF COUNT PATTERN FAILURES

203223¢42323232328223230222028232d333322323232232323822323222¢828028¢Z22%/

STEST

COUNT PATTERN IN KERNAL PDR'S

S#THIS

TEST RUNS A COUNT PATTERN THROUGH THE KERNAL

PAGE DESCRIPTOR REGISTERS.

;*SINCE BITS <05:04> AND <0> ARE NOT INPLEMENTED, AND BITS <07:06>

;*CANNOT BE SET BY DIRECT LOAD, THEY ARE MASKED OUT OF THE DATA COMPARE.
;*THESE BITS ARE STILL SENT TO THE DESCRIPTOR REGISTER TO FIND BAD ETCHES.
;*]F THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS,
:«DATA PATTERN, AND BAD DATA ARE REPORTED.
AT THE END OF THE TEST
A SUMMARY
;*OF ERRORS IS GIVEN.
2328822322022

025272

154776

025310
172300

000361

025332

155042

TST31:

153602

20%:
1%:

2%:

SCOPE

32322223 3332222

200020000

22200222

JSR
MOV
CLR

PC, CLEANUP
#1$ ,SLPERR
R1

JINITIALIZE ERROR LOCATIONS
;SET LOOP ON ERROR POINTER TO 18
;CLEAR REGISTER TO HOLD COUNT PATTERN

MOV
MOV
MOV
8I(
cMP
BEQ
JSR

R1, (RO)
(RO) ,R2
R1,R4
#000361,Ré
R4 ,R2
3s
P(,PARCOUNT

;LOAD COUNT INTO REGISTER
JREAD REGISTER BACK TO R2
;PUT PATTERN IN R4
JCLEAR BJITS NOT FOUND IN REGISTER
JSEE IF DATA MATCHES PATTERN
;BRANCH [F DATA IS GOOD
;LOG AND REPORT (OUNT ERROR

MOV

#K1PDRO,RO

;PUT ADDRESS OF

FIRST REGISTER

INTO RG

(RKTAAQD

18Y

11/44 MEM MGMT

MACRO M1111

COUNT PATTERN IN KERNAL PDR'S

025336
025342
025346
025350
025354
025356
025362

1979

PRT

062700
022700

103362
022701
001403
062701
000752
012767
005767
000404
016767
104032

1%:

00000¢

172336

153716

#2 RO

#KDPDR7
RO

#601,R1

000401
153724

ADD

L8]

PAGE 25-3

n77777
,R1
43

177777

025274

26=SEP=-79 '2:27

153516
153602

4$:

1%
#208 ,SLPERR
ERRCNT
TS132

ERRCNT,$TMPS
+32

SEQ 0057

JPOINT TO NEXT REGISTER
JSEE IF YOU PASSED THE KDPDR7 PDR
JBRANCH [F MORE TEST
JSEE 1F COUNT HAS REA(CHED 177777
:BRANCH [F SO
;s INCREASE COUNT PATTERN
JBRANCH TO CONTINUE TEST
;SET LOOP POINTER TO START OF TEST
;SEE

THERE WERE ANY ERRORS

JJBRANCH TO NEXT TEST
;SAVE # OF ERRORS FOR

IF NO ERRORS
TYPEOUT

:SUMMARY OF COUNT PATTERN FAJLURES

(KKTAAD 11/44 MEM MGMT PRT A

132

MACRO M1111

COUNT PATTERN IN SUPERVISOR PDR'S

19&.

26-SEP=79 12:27

G S
PAGE 26

SEQ 0058

""".."‘t..'!...Q..".""'.."‘.t."...".'.'..fi'.."'t'....."

;*TEST 32

COUNT PATTERN IN SUPERVISOR PDR'S

- N

;*THIS

TEST RUNS A COUNT PATTERN THROUGH THE

SUPERVISOR PAGE

DESCRIPTOR REGISTERS.

;*SINCE BITS <05:04> AND <0> ARE NOT INPLEMENTED, AND BiTS <07:06>

;*CANNOT BE SET BY DIRECT LOAD, THEY ARE MASKED OUT OF THE DATA COMPARE.
;*THESE BITS ARE STILL SENT TO THE DESCRIPTOR REGISTER TO FIND BAD ETCHES.
;*]1F

THE

COUNT PATTERN DOES NOT MAT(CH

THE

;*DATA PATTERN, AND BAD DATA ARE REPORTED.

DATA RECEVIED,

;*OF ERRORS IS GIVEN.

AT THE END OF

THE REGISTER ADDRESS,

THE

TEST A SUMMARY

""Q"Q.i't'tttf.fifittfi'fifi"t.t".'.t'.tl'.t"'.fifii""t‘.t't.tt'..

025410

1985 025412

025416
025424
025426
025432
025434

025436

025440
025444
025446

025450
025454

025460
025464
025466

025472
025474
025500
025502
025510
025514
025516
1986 025524

000004

004767

154660

012767
005001
012700
010110
011002

025426

042704
020402

000361

004767

154724

010104

0014602

062700

022700
103362
022701

001403
062701
000752
012767
005767
000404
016767
104032

TST32:

153464

172200

20$:

1%:
2%:

SCOPE

JSR

PC, CLEANUP

MOV

R1,R4

MOV
CLR
MOV
MOV
MOV

ADD

#2 RO

JPOINT TO NEXT REGISTER

8EQ
ADD
BR
MOV
TST
B8R
MOV
ERROR

43
#401.R1
1%
#208 ,SLPERR
ERRCNT
TST33
ERRCNT, $TMP5
+32

8EQ

00000c

3%:

172236
177777

000401
025412
153606

153400

153600

153464

1990

4%:

JINITIALIZE ERROR LOCATIUNS

;SET LOOP ON ERROR POINTER TO 1%
;JCLEAR REGISTER TO HOLD COUNT PATTERN
;PUT ADDRESS OF FIRST REGISTER INTC RO
;LOAD COUNT INTO REGISTER
;READ REGISTER BACK TO RZ
;PUT PATTERN IN R4
;JCLEAR BITS NOT FOUND IN REGISTER
;SEE IF DATA MATCHES PATTERN
;BRANCH IF DATA IS GOOD

8iC
(MP

JSR

(€
BHIS
cMP

#1% SLPERR
R1
#SIPDRO,RO
R1, (RO)
(RO) ,R?
#000361,R4
R4 ,R2

P(C ,PARCOUNT

#SDPDR7 RO
2%
#177777 ,R1

;LOG AND REPORT COUNT ERROR

;SEE IF YOU PASSED THE SDPDR7 PDR
JBRANCH IF MORE TEST
;SEE IF COUNT HAS REACHED 177777

JBRANCH IF SO
; INCREASE COUNT PATTERN
JBRANCH TO CONTINUE TEST
;SET LOOP POINTER TO START OF TEST
;SEE IF THERE WERE ANY ERRORS
;,BRANCH TO NEXT TEST If NO ERRORS
;SAVE # OF ERRORS FOR TYPEOUT
;SUMMARY OF COUNT PATTERN FAILURES

".'tttt"fi"ttitttt.l"t.tt'tfi'ttfitt.t"'.t"'iti'\tt'..tt.ttt'tt'Q

;*TEST 33
MR

COUNT PATTERN IN USER PDR'S

J*THIS TEST RUNS A COUNT PATTERN THROUGM THE USER PAGE ADDRESS REGISTERS.

;*SINCE BITS <05:04> AND <0> ARE NOT INPLEMENTED, AND BITS <07:06>

;=CANNOT BE SET BY DIRECT LOAD, THEY ARE MASKED OUT OF THE DATA COMPARE.
;*THESE BITS ARE STILL SENT TO THE DESCRIPTOR REGISTER TO FIND BAD ETCHES.

;*]F THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS,
;*DATA PATTERN, AND BAD DATA ARE REPORTED.
AT THE END OF THE TEST A SUMMARY

;*0F ERRORS IS GIVEN.

""l'ttttfi'i'ttt"‘.i'ttt'tttiQtittt.'tt't'.i"ttt"..t'..Qtt.'t‘t

1991

025526
025530

025534
025542
025544
025550
025552
025554

025556

025562

004767

012767
005001
012700
010110
011002
010704

042704

020402

154542

025544

177600

000361

153346

TS133:
20%.

1%:
2%:

SCOPE
JSR

MOV
CLR
MOV
MOV
MOV
MOV

BI(

{MP

PC, CLEANUP

#13 ,SLPERR
R1
#UIPDRO,RO
R1,(RO)
(RO) ,R2
R1,R4

#000361,R4
R4 ,R2

JINITIALIZE ERROR LOCAT]IONS

;SET LOOP ON ERROR POINTER TO 1§
;CLEAR REGISTER TO HOLD COUNT PATTERN
JPUT ADDRESS OF FIRST REGISTER INTO RC
;LOAD COUNT INTO REGISTER
JREAD REGISTER BACK TO R2
;PUT PATTERN IN R4

sCLEAR BITS NOT FOUND IN REGISTER
JSEE

IF DATA MAT(CHES PATTERN

(KKTAAQ 11/44 MEM MGMT PRT A

133

COUNT

PATTERN

025564
025566
025572
025576
025602
025604
025610
025612
025616
025620
025626
025632

MACRO M1111

IN USER PDR'S

26-SEP=79 12:27

k3 ¥

177636
1727777

000401

ADD

CMP
B8H.S
(MP
BEQ
ADD

025530

153262

157462

153346

153470

8EQ
JSR

1992

2004

8R
MOV
1S7T
B8R
MOV
ERROR

PAGE 26-"

SEQ 0059
:BRANCH [F DATA ]S GOOD
;LOG AND REPORT (OUNT ERROR
JPOINT TO NEXT REGISTER
;SEE IF YOU PASSED THE UDPDR7 PDR
;BRANCH [F MORE TEST
;SEE IF COUNT HAS REACHED 177777
JBRANCH [F SO
: INCREAST COUNT PATTERN
JBRANCH TO CONTINUE TEST
JSET LOOP POINTER TO START OF TEST
;SEE IF THERE WERE ANY ERRORS
;BRANCH TO NEXT TEST [F NO ERRORS

P( ,PARCOUNT

#2 RO

,RC
#UDPDR?
2%

#77777
,R1
48
#401,R1
1%
#208,SLPERR

ERRCNT
TST34

ERRCNT ,$TMPS

;SAVE # OF

+32

JSJMMARY OF

ERRORS FOR TYPEOUT

COUNT PATTERN FAJLURES

'".'..t..'tt'tttt.tt'ifi'."‘tfi't".ifi."..'ttt"ttfifi.."."tt'...

TRTEST 34

BYTE ADDRESSING OF

KERNAL PAR'S

»
»
»
»

S.w.
8, w,

THIS

TEST

CHECK

THE

LOGIC

HAVE

ALL BEEN TESTED.

ASSOCIATED WITH BYTE

ADDRESSING

OF KERNAL PAGE ADDRESS REGISTERS.
IT CAN BE ASSUMED THAT
ONE RFGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS

[Ff

e (2283238222222 2232028d002002022d32f22Ri2R0R2
22 R 2RRRRRRR2RRRARRR Q)

025644
2005 025646
025654
025660
025664
025670
025674
925700
025702
025704
025706
025714
025720
025724

025730
025734
02573%6
025740

2009

025742

000004
012767
012702
012700
005067
112710

016701

020102
001401
104033
012767
012700
012702
112710

016701
020102
001401
104033
012767

02°664
000014
172340

153234

144450

1°$:

172014
1644440

025724
172341

153174

052014
000124

1%:

12%:

144404

025646

157134

20%:

153140

2%:

(LR
MOVR
MOV
(MP
BEQ
ERROR

MOV

MOV
MOV

MOVB
MOV
(MmP
BEQ
ERROR
MCV

#1183 ,SLPERR
#14 ,R2
#K ]PARO,RO

K IPARO

#172014, (RO)

K]PARO,R1
R1,R2
13

+33

#12%,SLPERR
#K]PARO+1,RO
#52014 ,R?
#124,(RO)

KIPARO,R1

R1.R2
2%
+33

#208 ,$LPERR

JSET LOOP ON ERROR POINTER TO 11%
;PUT EXPECTED DATA IN R2
;PUT ADDRESS OF REGISTER IN RO

;sCLEAR THE REGISTER UNDER TEST
JLOAD LOWER BYTE OF REGISTER

;READ REGISTER INTO R1

JSEE IF ONLY LOWER BYTE WAS WRITTEN
JBRANCH IF DATA MATCHES
;DIDN'T LOAD CORRECT BYTE

;SET LOOP ON ERROR POINTER TO 1°2%
;POINT TO UPPER BYTE OF REGISTER
;LOAD EXPECTED DATA INTO R2
JWRITE UPPER BYTE OF REGISTER
JREAD REGISTER INTO R1
;SEE IF ONLY UJPPER BYTE WAS WRITTEN
JBRANCH TO EXIT IF CORKECT
sDIDN'T LOAD CORRECT BYTE
;SET LOOP POINTER TO START OF TEST

'".t't!tit..t't.ttt!Q'tt'"ttttQ"'Q"ilfififittt'ti.t'tfittt"'!Qtt'

TeTEST 35
*

.
.
*

025750
2010 025752
025760
025764
025770
025774

SCOPE
MOV
MOV
MOV

000004
012767
012702
012700
005067
112710

025770
000014

172240
144244
172014

153130

THIS

BYTE ADDRESSING OF
TEST

CHECK

SUPERVISOR PAR'S

THE LOGIC ASSOCIATED WITH BYTE

ADDRESSING

IT CAN BE ASSUMED THA
OF SUPERVISOR PAGE ADDRESS REGISTERS.
ONE REGISTER WORKS, THEY ALL WORK BECAUSE THC REGISTERS
HAVE ALL BEEN TESTED.

SCOPE
MOV
MOV
MOV
(LR
MOvVB

#118,SLPERR
#14,R2
#S1PARO,
RO

;SET LOOP ON ERROR POINTER TO 11%

#172014, (RO}

;LOAD LOWER BYTE OF REGISTER

S1PARO

JPUT EXPECTED DATA IN R?
;PUT ADDRESS OF REGISTER IN RO
;CLEAR THE REGISTER UNDER TEST

—

cmuo 11/44 MEM MGMT PRT A
MACRO M1111
*35
BY E ADDRESSING OF SUPERVISOR PAR'S
006000
026004
026006
026010

016701
020102
001401
104033

026020
026024

0127C0
012702

026012

026030
026034
026040

2014

026042
026044
026046

144234

012767

026030

112710

000124
144200

016701
020102
001401
104033
012767

26-5EP=79 12:27

172241
052014

025752

153070

1%:
12%:

153034

S
I
PAGF 26-2

SEQ 006V

MOV
(MP
BEQ
ERROR

SIPARO,R1
R1,R2
13
+33

JREAD REGISTER INTO R1
JSEE IF ONLY LOWER BYTE WAS WRITTEN
;JBRANCH [F DATA MATCHES
;DIDN'T LOAD CORRECT BYTE

MOV
MOV

#SIPARO+1,RO
#52014 ,R?

;JPOINT TO UPPER BYTE OF REGISTER
;LOAD EXPECTED DATA INTO R2

MOV

#1288, SLPERR

Mov8
MOV
(MP

2%:

BEQ
ERROR
MOV

TeTEST

4124, (RO)
SIPARO,R1
R1,R2

;SET LOOP ON ERROR POINTER TO 12%
;WRITE UPPER BYTE OF REGISTER

JREAD REGISTER INTO R1
;JSEE IF ONLY UPPER BYTE WAS WRITTEN
JBRANCH TO EXIT I+ CORRECT
DIDN'T LOAD CORRECT BYTE
;SET LOOP POINTER TO START OF TEST

2%
+33
#208 ,SLPERR

M ..t.t'Q.Qt‘t.'tt.."t"'t.t..".tfi'."ttfi'fit'fi'.fit't.ttltiQ'QQ'

BYTE

ADDRESSING OF

USER PAR'S

0
»
»
%

e
e, e,

[

THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING
OF USER PAGE ADDRESS REGISTERS.
IT (AN BE ASSUMED THAT [F
ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS
HAVE ALL BEEN TESTED.

;'t't'ttfi'l.'t.ttttt"t'tt'..tlttiQ'fi"'*.'i.t.t't".ttt'ittQtfit.

026064
026070
026074
026100
026104
026110
026112
026114

026116
026126
026130
026134

2019

026140
026146
026146
026150
026152

000004

012767

012702
012700
005067
112710
016701
020102
001401
104033

012767
0127
012702
112710

016701
020102
001601
104033
012767

026074

000014
177640
151540
172014
151530

026134
177641
052014
000124

153024

11%:

152764

1%:
12%:

151474

026056

TST36:

20%:

152730

2%:

SCOPE

MOV

#1183 ,SLPERR

;SET LOOP ON ERROR POINTER TO 11%

MOV
MOV
MOV
MOv8

#1238 ,SLPERR
#UIPARO+1,R0O
#52016 ,R?
#124,(R0O)

;SET LOOP ON ERROR POINTER TO 172%
;POINT TO UPPER BYTE OF REGISTER
;LOAD EXPECTED DATA INTO R?2
JWRITE UPPER BYTE OF REGISTER

MOV
MOV
(LR
MOVB
MOV
(MP
BEQ
ERROR

MOV
(MP
BEQ
ERROR
MOV

IR A AN

A A

J*TEST 37
*

it
it
026160

000004

2020 026162
026170
026174
026200
026204

012767
012702
012700
005067
112710

26214

020102

026210
026216

016701
001401

026200
000014
172300
144074
172014
144064

152720

'\J"‘" .

”M4 R2
#UIPARO RO
UIPARO
#172014, (RO)
UIPARO,R1
R1,R2
1%
+33

THIS

UIPARO ,R1
R1,R2
2%
+33
#208 ,SLPERR

AR AN R AN AN RN

;JPUT EXPECTED DATA IN R2
;PUT ADDRESS OF REGISTER IN RO
sCLEAR THE REGISTER UNDER TEST
;LOAD LOWER BYTE OF REGISTER
JREAD REGISTER INTO R1
JSEE IF ONLY LOWER BYTE WAS WRITTEN
;BRANCH IF DATA MAT(CHES
;DIDN'T LOAD CORRECT BYTE

JREAD REGISTER INTO R1
JSEE IF ONLY UPPER BYTE WAS WRITTEN
JBRANCH TO EXIT IF CORRECT
;DIDN'T LOAD CORRECT BYTE
;SET LOOP POINTER TO START OF TEST

AR AN AN AR AR AR NN R NAN AR R AR AR RN AR

RN AR AR

BYTE ADDRESSING OF KERNAL PDR'S
TEST

CHECK

THE LOGIC ASSOCIATED WITH BYTE

ADDRESSING

OF KERNAL PAGE DESCRIPTOR REGISTERS.
1T CAN BE ASSUMED THAT
ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS

HAVE ALL BEEN TESTED.

A2 2322332322220222222322222323032222f2222222223R2RRRRRRRRRRRRRR

ST 37

20$:

i1$:

SCOPE

MOV
MOV
MOV
CLR
MOVB

#1138 ,SLPERR
#14,R2
#K]1PDRO,RO
KIPDRO
#172014, (RO)

;SET LOOP ON ERROR POINTER TO 1'%
JPUT EXPECTED DATA IN R2
;PUT ADDRESS OF REGISTER IN RO
;CLEAR THE REGISTER UNDER TEST
JLOAD LOWER BYTE OF REGISTER

(MP

R1,.R2

JSEE IF ONLY LOWER BYTE WAS WRITTEN

MOV
BEQ

KIPDRO,R1
1%

;READ REGISTER INTO R1
;BRANCH IF

DATA MAT(HES

026054

2015 026056

(KKTAAD 11/44 MEM MGMT PRT A

137

BYTE ADDRESSING OF

026220
026222
026230
026234

104033
012767
012700
012702

026244
026250
026252
026254
026256

016701
020102
001401
104033
012767

02624C

2024

112710

MACRO M1111

KERNAL PDR'S

026240
172301
052014

152660

000124

026162

18%:

12%:

144030

152624

2§%:

J
5
FPAGE 26-3

26=SEP=-79 12:27

SEQ 0061

ERROR
MOV
MOV
MOV

+33
#128,$LPERR
#K1PDRO+1,R0
#52014 ,R2

;DIDN'T LOAD CORRECT BYTE
JSET LOOP ON ERROR POINTER TO 12%
;POINT TO UPPER BYTE OF REGISTER
;LOAD EXPECTED DATA INTO RZ

MOV
(MP
BEQ
ERROR
MOV

KIPDRO,R1
R1.R2
2%
+33
#208 ,SLPERR

;READ REGISTER INTO Rl
.SEE IF ONLY UPPER BYTE WAS WRITTEN
;BRANCH TO EXIT IF CORRE(CT
:DIDN'T LOAD CORRECT BYTE
.SET LOOP POINTER TO START OF TEST

MOvB

AR R AN N

#1264, (RO)

SRTEST 40

JWRITE UPPER BYTE OF REGISTER

AR AR AR R R AN AR

RN R IR AN N RN

BYTE ADDRESSING OF

RN R

TR ANARN

SUPERVISOR PDR'S

L
i

THIS

TEST

CHECK

THE

LOGIC ASSOCIATED WITH BYTE ADDRESSING

IT CAN BE ASSUMED THAT [f
OF KERNAL PAGE DESCRIPTOR REGISTERS.
ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS
HAVE ALL BEEN TESTED.

';tQtt'tttttttt'ttttt.fitt!'tfi'tt‘ifit'titt'fifltl'tttt.ttttttfi'ttttfi

026264
2025 026266
026274
026300
026304
026310
026314
026320
026322
026324
026326
026334
026340
026344
026350
026354
026356
026360
026362
2029

000004
012767
012702
012700
005067
112710
016701
020102
001401
104033
012767
012700
012702
112710
016701
020102
001401
104033
012767

026304
000014
172200
143670
172014
143660

152614

026344
172201
052014
000124
143624

152554

026266

152520

TST40:
20$:
11%:

1%:

12%:

2%:

A A

SCOPE
MOV
MOV
MOV
CLR
MOVB
MOV
cMP
8tQ
ERROR
MOV
MOV
MOV
MOovB
MOV
MP
BEQ
ERROR
MOV

A AR

JATEST 41

#118,SLPERR
#14 ,R?
#SIPDRO,RO
SIPDRO
#172014, (RO)
SIPDRO,R1
R1.R2
1%
+33
#12%,SLPERR
#S1PDRO+1,R0
#52014 ,R2
#124,(RO)
SIPDRO,R1
R1,R2
2%
+33
#208 ,SLPERR
AN

A AN

JSET LOOP ON ERROR POINTER TO 118
;PUT EXPECTED DATA IN R2
;PUT ADDRESS OF REGISTER IN RO
;CLEAR THE REGISTER UNDER TEST
;LOAD LOWER BYTE OF REGISTER
JREAD REGISTER INTO R1
JSEE IF ONLY LOWER BYTE WAS WRITTEN
;BRANCH IF DATA MATCHES
;DIDN'T LOAD CORRECT BYTE
;SET LOOP ON ERROR POINTER TO 12%
;POINT TO UPPER BYTE OF REGISTER
;LOAD EXPECTED DATA INTO R?
;WRITE UPPER BYTE OF REGISTER
;READ REGISTER INTO R1
JSEE IF ONLY UPPER BYTE WAS WRITTEN
;BRANCH TO EXIT IF CORRECT
;DIDN'T LOAD CORRECT BYTE
JSET LOOP POINTER TO START OF TEST

AR AR AR AR A AR AR AN

BYTE ADDRESSING OF

NN R

R RN NE

RN R RN RN

USER PDR'S

B
»
»

ce,

w8,

THIS

TEST

CHECK

THE

LOGIC ASSOCIATED WITH BYTE

ADDRESSING

OF USER PAGE DESCRIPTOR REGISTERS.
IT CAN BE ASSUMED THAT
ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS
HAVE ALL BEEN TESTED.

';'lt.'t!t'..'fitttttitt*tt'tttttltttt'ttttttttttttt.tt't'tttttttt

026370

2030 026372

026400
026406
026410
026414
026420
026424
026426
026430
026432
026440

000004

012767

012702
012700
005067
112710
016701
(020102
001401
104033
012767
012700

026410

000014
177600
151164
172014
151154

026450
177601

152510

TST41:

20%:

1'$:

152450

1%:

SCOPE

MOV

MOV
MOV
CLR
MOvB
MOV
(MP
BEQ
ERROR
MOV
MOV

#4118 ,3LPERR

#4 ,R2
#U1PDRO,RO
UIPDRO
#172014, (RO)
UIPDRO,R1
R1.R2
13
+33
#12% ,SLPERR
#UJPDRO+1,RO

JSET LOOP ON ERROR POINTER TO 11%

JPUT EXPECTED DATA IN R2
;PUT ADDRESS OF REGISTER IN RO
;CLEAR THE REGISTER UNDER TEST
;LOAD LOWER BYTE OF REGISTER
JREAD REGISTER INTO R1
JSEE IF ONLY LOWER BYTE WAS WRITTEN
JBRANCH 1F DATA MATCHES
;DIDN'T LOAD CORRECT BYTE
;SET LOOP ON ERROR POINTER 10 12%
;POINT TO UPPER BYTE OF REGISTER

TAAQ 11/44 MEM MGMT PRT

MACRO M1111

BYTE ADDRESSING OF USER PDR'S
026444
026450
026456
026460
026462
026464
026466

012702

112710

016701
020102
001401
104033
012767

052014
000124

12%:

151120

26=-SEP=79 12:27
MOV
MovB
MOV
MP

8EC

02637¢

1524614

2%:

ERROR

MOV

PAGE 26-4

SEQ 0062

#52014,R?

JLOAD EXPECTED DATA

UIPDRO,R1

JREAD REGISTER INTO R

#1264, (RO)
R1,R2

2%
+33

#20%,SLPERR

INTO R2

;WRITE UPPER BYTE OF REGISTER
JSEE

ONLY UPPER BYTE WAS WRITTEN

JSET

LOOP POINTER

JBRANCH TO EXIT IF CORRECT
sDIDN'T LOAD CORRECT BYTE

TO START OF

TEST

5
L_
PAGE 27

(KKTAAQ 11/44 MEM MGMT PRT A
MACRO M1111
26-SEP=79 12:27
I
DUAL ADDRESSING FOR ALL PAR'S & PDR'S
?045

SEQ 0063

".'tttfittt'fii.'t'tfi'fitfl.t'tttt!Qti'tii'tttttttfiitfitttfi't't'tt't.t'

cwTEST 42

DUAL

ADDRESSING FOR ALL PAR'S B PDR'S

]

P
P
P

P *

P
026476
2046 026476
2047 026504
2048
2049 026506
2050 026512

000004
012767
005000

026512

012704

000006

2052 026522
2053 026524
2054 026530

077405
012704
016767

2056 026542
2057 026546

017001
020001

010070

152404

001356

000006
000006

2055 026536 162700 000002
2058 026550
2059 026552
2060 026556
2061 026560
582% 026562

001403
016002
104016
077412
012767

152352

001356

20%:

2% :

108:

001356
026476

2073

152320

TEST WILL

ENSURE

THAT

THERE

IS NO DUAL

THAT

ADDRESSING

S, WHEN YOU

REFERENCE A KERNAL I-SPACE PAR YOU ARE REALLY REFERENCING
THAT PAR,

FIRST EACH [-SPACE PAR(O OR PDRO IS LOADED WITH

A UNIQUE NUMBER 0-12 AND THEN THEY ARE EACH CHECKED FOR
THE CORRECT DATA.
EACH GROUP HAS ALREADY BEEN TESTED FOR DUAL ADDRESSING

WITHIN ITS OWN GROUP,

SO ONLY ONE REGISTER FROM EACH

GROUP NEEDS TO BE TESTED.

:'"!tttttttt'ttttttttttttt'ttttttttttt'ttttttttt'ttttttttt'tt"i't
18742:
SCOPE

1%:

2051 026516 062700 000002

THIS

BETWEEN GROUPS OF PAR'S AND PDR'S.

MOV
(LR

#18,SLPERR
RO

MOV

#6.RG

ADD

#2.R0O

SUB

#2 RO

MOV

SOB
MOV
MOV
MOV
MP

BEQ
MOV
ERROR
08
MOV

RO,aPARTAB(RO)

JSET LOOP ON ERROR POINTER TO 1%
“THIS WILL HOLD THE INDEX OF EACH
"REGISTER, AND THE COUNT LOADED.
"NUMBER OF TIMES TO DO THE LOOP
:LOAD PAR OR PDR WITH INDEX NUMBER

RG.1S
#6 R4
108, SLPERR

*BRANCH BACK S TIMES
DO NEXT LOOP 6 TIMES
*SET LOOP ON ERROR POINTER TO 108

aPARTAB(RO)
,R1
RO,R1

3s
PARTAB(RO)
,R2
+16

RG,2$

#208 . SLPERR

*CHANGE INDEX TO POINT TO NEXT REGISTER

*ADJUST INDEX FOR REGISTER DESIRED
:READ PAR OR PDR INTO R1
*SEE IF INDEX EQUALS DATA

‘BRANCH IF INCORRECT REGISTER WAS READ
:SAVE ADDRESS OF BAD REGISTER
*DUAL ADDRESSING ERROR
*BRANCH BACK 5 TIMES
‘SET LOOP ON ERROR POINTER TO START OF TEST

;;tttttttt'ttitttttttttt'tfittt.fit.ifitti.tiQfifiitlitfit'tttttttitttt

TRTEST 43
- %

P
P
‘e

TEST THAT PAR-PDR'S NOT AFFECTED BY RESET

THIS TEST CHECKS TO SEE THAT THE KERNEL.SUPERVISOR OR USER
PAR/PDR'S ARE NOT AFFECTED BY THE EXECUTION OF A 'RESET'
INSTRUCTION. ALL WRITEABLE BITS ARE SET TO A '“1'' IN THE
PAR/PDR'S; THEY ARE THEN READ TO SEE THAT THEY REMAINED
UNCHANGED.

:"'Qtl"ttttittttttttfitttt.ttttl’ttittt'ttittt'fittttttI'ttttitttt!t‘
026570

000004

2076 026572
2077 026576
2078 026602
2079 026606
2080 026612

012703
012701
012702
012721
012722

000020
172300
172340
177777
177777

2082
2083
2084
2085
2086

012703
012701
012702
012721
012722

000020
172200
172240
177777
177777

2075

2081 026616

026620
026624
026630
026634
026640

077305

T5T43:

SCOPE

1$:

MOV
MOV
MOV
MOV
MOV

#20,R3
#KIPDRO,R1
#K1PARO .R?
#-1,(R13+
#-1.(R2)+

;LOAD LOOP COUNTER WITH A 16
*LOAD FIRST ADDRESS OF PDR INTO Ri
‘LOAD FIRST ADDRESS OF PAR INTO R2
“SET BITS IN PDR TO 1'S
“SET BITS IN PAR'S TO 1'S

MOV
MOV
MOV
MOV
MOV

#20.R3
#SIPDRO,R1
#SIPARO .R2
#-1,(R15+
#-1.(R2)+

*LOAD LOOP COUNTER WITH A 16
*LOAD FIRST ADDRESS OF PDR INTO R1
*LOAD FIRST ADDRESS OF PAR INTO R2
“SET BITS IN PDR TO 1°'S
“SET BITS IN PAR'S 10 1'S

218:

S08

228:

R3,21$

‘LOOP UNTIL ALL KERNAL PAR/PDR'S LOADED

CKKTAAQ 11744 MEM MGMT PRT A

143

MACRO M1111

26-SEP=79 12:27

TEST THAT PAR-PDR'S NOT AFFECTED BY RESET

L]
PAGE 27-1

SEQ 0064

2087 026644 077305
2088 026646 012703 000020

SO8
MOV

R3,22%
#20.R3

;LOOP UNTIL ALL SUPERVISOR PAR/PDR'S LOADED
*LOAD LOOP COUNTER WITH A 16

2090 026656

MOV

#MUIPARO R

JLOAD FIRST ADDRESS OF PAR INTO R2

2089 026652

012701

177600

2091 026662

012721

177777

012702

2092 026666 012722
2093 026672
2094 026674
2095 026676

077305
000005
012700

177640

177777

172300

MOV

238:

MOV

SOR
RESET
MOV

#UIPDRO,R1
#=1,(R1)+

#-1.(R2) ¢+
R3,23%

#KIPDRO,RO

;LOAD FIRST ADDRESS OF PDR INTO R1
SSET BITS IN PDR TO 1°S

SSET BITS IN PAR'S TO 1°S

JLOOP UNTIL ALL USER PAR/PDR'S LOADED
SISSUE AN "INIT'* BY EXECUTING A RESET
;LOAD ADDRESS OF FIRST KERNEL PDR IN RO

MACRO M1111
CKKTAAD 11/44 MEM MGM[ PRT A
26-SEP-79 12:27
143
TEST THAT PAR-PCR'S NOT AFFECTED BY RESET

012704
011001
022701
001401

2105 026720

062700
077410
012700
012704
011001
022701
001401
104023

38
NVOONO
N WN=O

Sl
Sl S
i
S
G
G
ity Sl S

i
Sy
P

06 026724
026726
026732
026736
026740
026744
026746

—_——

AIRL AN AL NI AN NN NN AN

2097 026702
2098 026706
2099 026710
2100 026714
2101 026716
2102
2103

2120
2121
2122
2123
2124

000020
1774616

2%:

BEQ
ERROR

104023

000002
172340
000020

177777

026750
026754

062700
077410

000002

026756
026762
026766
026770
026774
026776

012700
012704
011001
022701
001401

172200
000020
177416

MOV
MOV
cMP

3%:

#20,R4
(ROJ,R1
#177416,R1

38
+23

#2,R0
RG.2$
#XIPARO,RO
#20 R4
(ROJ ,R1

4%:

#177777 R
s$
+23

#2 RO

5%:

6%:

104023

ERROR

PAGE 28

SEQ 0065

sLOAD LOOP COUNTER WITH A 16
JREAD A KERNEL PDR INTO R1

JARE ALL THE BITS STILL SET?
:BRANCH IF YES
sKERNEL PDR AFFECTED BY A RESET
;JFOR TIGHTER SCOPE LOOP
REPLACE ERROR CALL WITH

;'BR 28'' = 000773

:FORM ADDRESS OF NEXT KERNEL PDR

:LOOP TO 28 UNTIL ALL KERNEL PDR'S CHECKED
;LOAD ADDRESS OF FIRST KERNEL PAR IN RO
;LOAD LOOP COUNTER WITH A 16
JREAD A KERNEL PAR INTO R1
JARE ALL THE BITS STILL SET?
;BRANCH [F YES
KERNEL PAR AFFECTED BY A RESET
JFOR TIGHTER SCOPE

LOOP

JREPLACE ERROR CALL WITH
;"BR 48"’ = 000773

;FORM ADDRESS OF NEXT KERNEL PAR

R4 ,4$

;LOOP TO 4% UNTIL ALL KERNEL PAR'S CHECKED

#S1PDRO,RO

;LOAD ADDRESS OF FIRST SUPERVISOR PDR IN RO
;JLOAD LOOP COUNTER WITH A 16

(RO) ,R1
4177416 ,R1
7$

+23

JREAD A SUPERVISOR PDR INTO R1
SJARE ALL THE BITS STILL SET?
;BRANCH IF YES

;SUPERVISOR PDR AFFECTED BY A RESET
;FOR TIGHTER SCOPE

LOOP

sREPLACE ERROR CALL WITH
2128 027000
2129 027004
2130
2131 027006
2132 027012
2133 027016
2134 027020
2135 027024
2136 027026
2137
2138
2139
2140 027030
2141 027034
2142
2143 027036
2144 027042
2145 027046
2146 027050

2147 027054
2148 027056

062700
077410

000002

012700
012704
011001
022701
001401

172240
000020

177777

7%:

8%:

012700
012704
011001
022701
001401

000002

:
9%

177600

000020
177416

#2 RO

MOV
MOV

#S1PARO,RO
#20,R4

cMP

#177777 R

BEQ
ERROR

104023

062700
077410

ADD
SOB

108:

104023

R4,6%

(RO) ,R1

+23

ADD

#2 RO

MOV
MOV
MOV
MP
8EQ
ERROR

#UIPDRO,RO

S08

R4 ,8%

#20 R4
(RO) ,R1
#177416
,R1
118

+23

;'BR 6%'' = 000773

;FORM ADDRESS OF NEXT SUPERVISOR PDR
;LOOP TO 6% UNTIL ALL SUPERVISOR PDR'S CHECKED

;LOAD ADDRESS OF FIRST SUPERVISOR PAR IN RO
;LOAD LOOP COUNTER WITH A 16
JREAD A SUPERVISOR PAR INTO R1
JARE ALL THE BITS STILL SET?
JBRANCH IF YES
;SUPERVISOR PAR AFFECTED BY A RESET
;FOR TIGHTER SCOPE LOOP
REPLACE ERROR CALL WIT

;"BR 88'' = 000773
:FORM ADDRESS OF

SUPERVISOR PAR

:LOOP TO 88 UNTIL ALL SUPERVISOR PAR'S CHECKED

;LOAD ADDRESS OF FIRST USER PDR WITH RO
;LOAD LOOP COUNTER WITH A 16
JREAD A USER PDR INTO R1
JARE ALL THE BITS STILL SET?
;BRANCH IF YES
JUSER PDR AFFECTED BY A RESET
;FOR

TICHTER SCOPE

LOOP

REPLACE ERROR CALL WITH

062700
077410

000002

11%:

ADD

SO8

#2 RO

R4,10%

:'BR 108'° = 000773
:FORM ADDRESS OF

NEXT USER PDR

JLOOP TO 108 UNTIL ALL USER PDR'S (HECKED

CKKTAAQ 11/44 MEM MGMT PRT A

143

MACRO M1111

26-SEP=79 12:27

TEST THAT PAR-PPR'S NOT AFFECTED BY RESET

2154

2155 027066
2156 027072
2157 027076

012700
012704
011001

2159 027104
2160 027106

001401
104023

2163
2164 027110
5165 027114

062700
077410

2158 027100 022701
2161
2162

177640
000020

177777

000002

12%:

13%:

8 6
PAGE 28-1

SEQ 0066

MOV
MOV
MOV

#UIPARO,RO
#20,R4
(RO) ,R1

;LOAD ADDRESS OF FIRST USER PAR IN RO
cLOAD LOOP COUNTER WITH A 16
JREAD A USER PAR INTO R1

BEQ
ERROR

138
+23

JBRANCH [F YES
;USER PAR AFFECTED BY A RESET

CMP

ADD
SO8

8177777 R1

#2 RO
R4, 128

JARE ALL THE BITS STILL SET?
JFOR TIGHTER SCOPE LOOP
JREPLACE ERROR CALL WITH

J'BR 128" = 000773
;FORM ADDRESS OF NEXT USER PAR
;LOOP TO 12% UNTIL ALL USER PAR'S (HE(KED

(KKTAAQ 11/44 MEM MGMT PRT A

144

MACRO M1111

26=-SEP-79 12:27

INST. FETCH NOT RELOCATED IN MAINT. MODE

2181

PAGE 29

SEQ 0067

,'"t"'.tttt."'.t..fi'tt.t"'tt.tt..t.'t'.t...tt"t..'t"ttttt'tt'

JoTEST 44
o

THIS

INST.
TEST

FETCH NOT RELOCATED

(HECKS

MAINTENANCE MODE

TO SEE

IN MAINT.

MODE

THAT WHEN MEMORY MANAGEMENT

(DESTINATION-ONLY-RELOCATION), AN INSTRUCTION

FETCH IS NOT RELOCATED AND A RESET CLEARS THE MAINTENANCE BIT

(BIT 08)

IN SRO.

THE 'FETCH'' IS RELOCATED, A PG.LENGTH ABCRT

SHOULD QOCCUR, CAUSING A HALT SINCE TRAP (AT(HER IS PLACED IN VECTOR 250

NOTE:

A HALT MAY OCCUR

MAINT.

MODE NOT DISABLED BY RESET

;,-'t.ttttfitt'ttttttttttt'tt'ttttttQttfittttttt'tttfitttttttt't'ttt.
027116
2182 027120

000004
004767

2185 027134
2186 027136
2187 027140

005020
077402
012767

2183 027124
2184 027130

2188 027146

2189

2190
2191 027152
2192 027160
2193 027166

2194 027174
2195 027176
2196 027204
2197 027206

2198 027212

2199
2200
2201

2202 027214
2203 027220
2204 027224
2205 027232
2206 027240
Sggg 027246

012700
012704

005067

012767
012767

012767

000005
032767
001403
005067

104024

012706
005067
012767
012767
012767
004767

TST144:
1%:

153046

172300
000010

000252

151100

001006
027166

000400
000400

2%:
151102

143120
151722

150376

152754

2222

MOV
MOV

CLR
SOR
MOV

CLR

3%:

150366

150360

001100
150346
003122
000340
027120

SCOPE
JSR

1510'6

151012
151642

ot
oW
M
M
M
.t
P
.

027252
2223 027254

000004
004767

]
152712

;CLEAR PDR - MAPPING PAGE NON~-RES, 0 BLKS.
JLOOP TO 2% UNTIL ALL KERNEL PDR®S CLEARED
;LOAD TRAP CATCHER INTO MEM MGM. VECTOR

MMVE(C+?

;A HALT WILL OCCUR IF RESET FAILS

sTO DISABLE DEST.~-ONLY RELOCATION
JMAP KERNEL PG 0 R/W, 3 BLOCKS LONG.
JSET LOOP ON ERROR POINTER TO 3%
sTURN ON DEST-ONLY-RELOCATION

RESET
8IT
8LQ
CLR

#]T8,SR0
43
SRO

JSHOULD CLEAR MAINT, BIT - WILL ABORT IF RELOCATED
JWAS MAINT. BIT (BIT 8) OF SRO CLEARED?
JBRANCH [F YES
;CLEAR SRO SO ERROR CAN BE REPORTED

#KERSTK ,KSP
SRO
#MGMERR ,MMVE C
#3640 ,MMVE(+2
#18 ,SLPERR

JFOR A TIGHTER SCOPE LOOP
;REPLACE ERROR CALL WITH
J'BR 3%'' = 000765
JRESTORE STACK POINTER
;BE SURE SRO IS CLEAR
JRESTORE MEM. MGMT. TRAP VE(CTOR
JRESTORE MEM. MGMT VECTOR+?
JRESET LOOP ON ERROR POINTER TO 1%

MOV

MOV
CLR
MOV
MOV
MOV

#3]1T78,SR0

+24

PC.TON

JMAINT., MODE NOT DISABLED BY A RESET

;TURN T-B]T TRAPPING BACK ON

NN AR AN AR R AN IR AR R RN AR RAARR AR AR A RN AR ANARRANRRRNRAN RO RS

J*TEST 45
S
oTM

(RO) +
R4 ,2%
MMVE(C+2 MMVEC

;LOAD ADDRESS OF FIRST KERNEL PDR INTO RO
;LOAD LOOP COUNTER WITH AN 8

#1006 ,K1PDRO
#33,SLPERR

JSR

;TURN T-BIT TRAPPING OFF FOR THIS TEST

MOV
MOV

ERROR

A ¥

PC,TOFF

#K]PDRO RO
#10,R6

TEST THAT SOURCE NOT RELOCATED IN MAINT. MODE

THIS TEST CHECKS TO SEE THAT WHEN MEMORY MANAGEMENT IS IN
MAINTENANCE MODE, THE SOURCE IS NOT RELOCATED;
ONLY THE

DESTINATION IS RELOCATED.
KERNEL PAR'S 3 & 4 ARE MAPPED TO
PHYSICAL ADDRESS 60000-77776. PDR4 IS SET TO ALLOW FULL
READ/WRITE BUT PDR3 IS CLEAR ALLOWING NO ACCESS. VIRTUAL
ADDRESSES REFERENCING PAR/PDR'S & £ 3 ARE USED AS
DESTINATION AND SOURCE RESPECTIVELY. IF THE SOURCE IS
RELOCATED IN MAINTENANCE MODE A MEM, MGMT. TRAP WILL OCCUR
AND THE ERROR WILL BE REPORTED.
KERNEL PG. 7 IS MAPPED R/w.

:-;n.t----tcn--.nntt-.n-n-nnnttnt--tt'nnttn-ttntctnnt-:n\n-tttqnnt
TST45:
SCOPE
1%:
JSR
PC,TOFF
;TURN OFF T-B]T TRAPPING FOR THIS TEST

2244
2245 027400
2246 027406
2247 0274614
2248 027422
2249 027426
2250
2251
2252 027430
2253 027436
2254 027444
2255 027452
2256 027456
2257 027462
2258 027466
2259 027474
2260
2261
2262
2263 027476
2264 027502
2265 027506

012767
012767
012767
012767
005067
012767
012767
012767
012737
012700
052767
113737
000005
013701
020001
001401

NOT RELOCATED

[N MAINT.

MODE

027350
000600
000600
007600

151622
143052
143046
143046

MOV
MOV
MOV
MOV

077406
077406
027430
000377

142766
142766
150712
060000

MOV
MCV
MOV
MOV

142772

177777
000400
060000

150214
100001

CLR

MOV

’%:

BIS
MOVA
RESET
MOV
(MP
BEQ
ERROR

060000

104025

#28 SLPERR

#600,K1PAR3
#600 K IPARG

#7600,k 1PAR?
K1PDRS

#77406
K IPDR4
#77406.K1PDR7
#4$ MMVE
C

#37
, ax60000
7
#-1,R0

SEQ 0068
-

2224 027260
2225 027266
2226 027274
2227 0273C2
2228 027310
2229 027314
2230 027322
2231 027330
2232
2233
2234
2235
2236
2237
2238
2239
2240 027376
2241
2242
2243

SOURCE

D
¢
PAGE 29-1
m

THAT

26-SEP-79 12:27

003122
077406
027254
152600

3%:

042767
016767

016767

010667

012667
012667
042767
104026

A ¥

MOV
MOV
MOV

sTURN ON DEST.-ONLY-RELOCATION
#8118, SRO
a#60000, a#100001 <LOAD HI BYTE OF TEST LOC.-ABORT
RO.R1

[F SOURCE RELOCATED
JTURN OFF DEST.-ONLY~-RELOCATION
cREAD CONTENTS OF TEST LOC.
;WAS TEST LOCATION LOADED PROPERLY?

+25

JTEST LOC.

,R1
a#60000
33

;BRANCH IF

YES

NOT LOADED =

INST.

JWHEN SOURCE WAS RELOCATED

#MGMERR ,MMVE (

#77406,K1PDR3
#1$,SLPERR

PC,TON
JSR
TST46
BR
THE PROGRAM TRIES

8IC
MOV
MOV
MOV
MOV
MOV
BIC
ERROR

POINTER TO 2%
TO 12-16K
TO 12-16K
TO THE 1/0 PAGE
NO ACCESS'
R/W, 128 BLKS
R/W, 128 BLKS

;SET MM, VECTOR TO 4% IN CASE OF ABORT
JLOAD ALL 1'S IN LOW BYTE OF TEST LOC.
;LOAD EXPECTED CONTENTS OF TEST LOC. IN RO

;FOR

012767
012767
012767
004767
000430

LOOP ON ERROR
KERNAL PAGE 3
KERNAL PAGE 4
KERNAL PAGE 7
KERNAL PAGE 3
KERNAL PAGE 4
KERNAL PAGE 7

$55533"

TEST

145

MACRO M1111

(KKTAAQ 11/44 MEM MGMT PRT A

TIGHTER SCOPE

WAS ABORTED

LOOP REPLACE

;ERROR CALL WITH
;"BR 28" = 000764
JRESTORE MEM. MGMT. VECTOR
JMAP KERNAL PAGE 3 R/W, 128 BLKS
JRESET LOOP ON ERROR POINTER TO 1%
;TURN T-BIT

TRAPPING BACK ON

;. SKIP TO NEXT TEST
TO RELOCATE THE SOURCE, IT SHOULD TRAP TO 4%

#8178,SRO

SRO,WASSRO

SR2 ,WASSR?2
SP_,WASR6

(SP)
+, TRAPP(

(SP)
+, TRAPPS
#160000,
SRO

+26

;TURN OFF DEST.~ONLY~RELOCATION THRU PAR/PDR 7
;SAVE REST OF SRO CONTENTS
;SAVE CONTENTS OF SR?
JSAVE VALUE OF THE STACK POINTER
;SAVE PC OF TRAP
:SAVE PSW OF TRAP
;CLEAR ERROR BITS IN SRO
;SOURCE APPARENTLY RELOCATED IN MAINT. MODE
;FOR

TIGHTER SCOPE

LOOP

REPLACE ERROR CALL WITH A
016746
016746
000002

MOV
MOV
RTI

TRAPPS
= (SP)
TRAPP(,=(SP)

:NOP'* = 000240

;PUT PSW OF TRAP BACK ON THE STA(K
JPUT PC OF TRAP BACK ON THE STA(K

JRETURN TO TEST

(KKTAAQ 11/44 MEM MGMT PRT A
TEST

THAT

SOURCE NOT RELOCATED

2267
2268
2269
2270
2271
2272
2284

IN MAINT.

SEQ 0069

MODE

NSNS N

.SBTTL

NSNS NSNS NSNS NSNS NN

GROUP 3

ADDER TESTS

NSNS NSNS NSNS NN

NSNS NN

Al
R RRRRRl
R
Rl RARdRR )]

18-BIT MAPPING ADDER TEST

LR
TR
TR

e
e

THIS TEST

USES °'DESTINATION ONLY'

PROPERTIES OF

RELOCATION TO CHECK THE

FULL

ADD

NOTE

- PART OF THIS TEST WILL NOT BE RUN [F
THAN 16K OF MEMORY ON THE SYSTEM.

?6 :ggegR?éfiRE ADDED,

TeTEST 46

THE RELOCATION ADDER.

TWELVE

PAIRS

GENERTING PHYSICAL ADDRESSES FROM 12K
THERE

IS LESS

145

MACRO M1111 26-SEP-79 12:27 PAGE %0

'"tttfiQfitittt..tt‘t'tlttt'ttitfifittittl’fl'Qti't"ttt"ttttttttttttl

TST46:

;

012705

40$:

000010
172300
000000
000200
000400
000600
177600

027702
060000
000600

41%:

100000
125200

THE FOLLOWING CODE CLEARS ALL THE PAR'S AND PDR'S SO THAT
THE

RELOCATION ADDERS

MOV

#SI1PARO,RS

016737

ONLY

THE

KERNAL

WILL BE MAPPED RESIDENT AND R/W.
:PUT ADDRESS OF FIRST PAR IN RS
*CLEAR KERNAL PAR'S
"PUT ADDRESS OF FIRST PDR IN RS
“CLEAR KERNAL PDR'S

JSR
MOV
JSR

PC.CLRREG
#SIPDRO.RS
PC.CLRREG

“CLEAR SUPERVISOR PAR'S
*PUT ADDRESS OF FIRST PDR IN RS
*CLEAR SUPERVISOR PDR'S

JSR
MOV
JSR

#UIPARO,RS

#10.R2
#XIPDRO,R1

*SET COUNTER TO LOAD 8 ADDRESSES
‘PUT ADDRESS OF FIRST PDR IN R1

MOV

RO, (R1) +

S08

R2.41$

MOV

#000,KIPARO

MOV

#400.KI1PAR2

#200.K1PAR1

MOV

#600.KIPAR3
#177600,KIPAR?
#18,SLPERR

MOV

#600,a¥KIPARG

MOV

MOV
BIS

MOV
MOV

151244

BEQ
ERROR
MOV

RESET
CMP

*PUT ADDRESS OF FIRST PAR IN RS

*CLEAR USER PAR'S
'PUT ADDRESS OF FIRST PDR IN RS
*CLEAR USER PDR'S

#77406,R0

MOV
MOV

*PUT ADDRESS OF FIRST PAR IN RS

PC,CLRREG
#UIPDRO, RS
PC,CLRREG

MOV

MOV
MOV

CHECKED.

PAR'S AND PDR'S
#KIPARO,RS
PC.CLRREG
#K1PDRO,RS
PC,CLRREG

060000

CAN BE

1-SPACE
MOV
JSR
MOV
JSR

MOV

18:

000400

027726

SCOPE

MOV

N = NOQO ==l
ORI
OO

027512
027516
027522
027526
2292 027532
2293 027536
2294 027542
2295 027546
2296 027552
2297 027556
2298 027562
2299 027566
2300 027572
2301 027576
2302 027602
2303 027606
2304 027610

000004

(WIS S AV, LV, IV, 1V, 1V, |

2285
2286
2287
2288
2289
2290
2291

027510

ar60000,8TMPO

#100000, RO
#125200.R1

#BITS.a#MMRO

R1. (RO)
a#60000,R2

R1,R2
2
+17
$TMPO,a#60000

*MAKE KERNAL I=SPACE PDR'S 4K,R/W,UPWARD
‘LOAD RO INTO PDR ADDRESSED BY R1

*BRANCH BACK TO 418 IF R2 IS NOT ZERO

*MAP PAGE 0 TO 0->4K
‘MAP PAGE 1

TO 4K->8K

“MAP PAGE 2 TO 8K=>12K

‘MAP PAGE 3 TO 12k->16K
:MAP PAGE 7 TO I1/0 PAGE
*SET LOOP ON ERROR POINTER TO 1%

:SAVE DATA AT TEST LOCATION
:LOAD PAR4 WITH 600

:PUT VIRTUAL ADDRESS IN RO
"PUT DATA PATTERN INTO R1

:TURN ON DESTINATION ONLY RELOCATION

“TRY TO LOAD DATA PATTERN INTO 100000
*READ (60000) INTO R2
*CLEAR MMRO
“SEE IF DATA MATCHES PATTERN

"BRANCH IF DATA MATCHES
*RELOCATION FAILED
-RESTORE ORIGINAL DATA TQ TEST LOCATION

(KK TAAQ 11744 MEM MQGMT PRT A
18-BIT MAPPING ADDER

146

2311 027734
027742
027750
027756
027762
027766
027774
027776
030002

01
01
01
012700
01
05
010110
013702
000005

027766
067776
000625

151146
151226
172350

000400

177572

105276
125201

3%:

067776

151160

030052
071000
000633

2312

MACRO M1111

TEST

105500
125202

000400

067776

151062
151142
172350
177572

5%:

071000

1510764

2313

030'36
072076
000604
111476

125203
000400

071000

150776
151056
172350
177572

6%:

7%:

151010
152626

072076
001000

001166

030204
030212
030220
030226
030232
030236
030244
030246

030254
030256
030260
030262
2318 030270

012767
013767
012737
01270C
012701
052737
010110
013702
000005
020102
001401
104017
016737
012767

030236

100000
001000
100000
125204

000400

150676

8%:

9%:

BEQ
ERROR

MOV
MOV
MOV
MOV
MOV

PAGE 30-1

177572

;JSET LOOP ON ERROR POINTER TO 3%

#625 , WK | PARS

;LOAD PAR4 WITH 625
;PUT VIRTUAL ADDRESS IN RO
;PUT DATA PATTERN INTO R1

N62776,8TMPO
#105276,R0
#125201.R1

R1,R2
/X3
+17
STMPO, a#67776
#5$, SLPERR

a#71000, $TMPO
#633, a#K 1PARG

#105500,R0

#125202.R1

#8178, 34MMRO
R1,

(RO)

a¥?71000,R2
R1,R2
63
+17

$TMPO, a#71000

#7$,SLPERR

72076, $TMPO

#604
, K [ PARG
#111476.R0

#125203.R1
#8118, IAMMRO
R1,

(RO)

R1.R2
8%
+17

$TMPO, 72076
$LSTBK
, #1000
9

12%:

JTURN ON DESTINATION ONLY RELOCATION

;CLEAR MMRO
;SEE 1F DATA MATCHES PATTERN
;BRANCH ]F DATA MATCHES
JRELOCATION FAILED
JRESTORE ORIGINAL DATA TO TEST LOCATION
;SET LOOP ON ERROR POINTER TO 5%
:SAVE DATA AT TEST LOCATION

;LOAD PAR4 WITH 633
;PUT VIRTUAL ADDRESS IN RO
;JPUT DATA PATTERN INTO R1

sTURN ON DESTINATION ONLY RELOCATION

;TRY TO LOAD DATA PATTERN INTO 105500

;READ (71000) INTO R2

;CLEAR MMRO
;SEE IF DATA MATCHES PATTERN
;BRANCH IF DATA MATC(CHES
JRELOCATION FAILED
JRESTORE ORIGINAL DATA TO TEST LOCATION
;SET LOOP ON ERROR POINTER TO 7%
;SAVE DATA AT TEST LOCATION
;LOAD PARGL WITH 604

JPUT VIRTUAL ADDRESS IN RO
;PUT DATA PATTERN INTO R1

sTURN ON DESTINATION ONLY RELOCATION
I
;TRY TO _LOAD DATA PATTERN INTO 11 476
1

JREAD (72076) INTO R2
;CLEAR MMRO

sSEE IF DATA MATCHES PATTERN
;BRANCH IF DATA MATC(CHES
JRELOCATION FAILED
JRESTORE ORIGINAL DATA TO TEST LOCATION
;DO WE HAVE OVER 16K ON THIS SYSTEM?

APTTST

JBRANCH IF WE DO
;JUMP TO THE NEXT TEST If WF DO NOT

#11$, $LPERR

JSET LOOP ON ERROR POINTER TO 11%

#1000, a#K
| PARG

;LOAD PARG WITH 1000
;PUT VIRTUAL ADDRESS IN RO
;PUT DATA PATTERN INTO R1
;TURN ON DESTINATION ONLY RELOCATION

#125204 .R1

#81 T8, 3AMMRO

R1, (RO)

a#100000.R2

100000
150612

;SAVE DATA AT TEST LOCATON

;TRY TO LOAD DATA PATTERN INTO 105276
JREAD (67776) INTO R2

#100000.
RO
11%:

SEQ 0070

#3$ $LPERR

a#100000, $TMPO

150756
172350

100000

150710
030322

MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
(Mp
BEQ
ERROR
MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
(MP

)

ax?2076.R2

072076

2314
2315
2316
2317

26-SEP=-79 12:27

R1,R2
12%
+17

$TMPO,a# 100000

#138,$LPERR

;SAVE DATA AT TEST LOCATION

;TRY TO LOAD DATA PATTERN INTO 1200GO0

JREAD (100000) INTO R?
;CLEAR MMRO

JSEE IF DATA MATCHES PATTERN
JBRANCH IF DATA MAT(HES
JRELOCATION FAILED
JRESTORE ORIGINAL DATA TO TESTTM LOCATION

JSET LOOF ON ERROR POINTER TO 13%

(K TAAD

146

117644 MEM MGMT PRT A
18-8B1T MAPPING ADDER

030276

(013767
012737
012700
012701
052737
010110
013702
000005
020102
001401
104017

2319

2320

016737
012767
013767
012737
012700
012701
052737

010110
013702
000005
020102
001401
104017
016737
012767
013767
012737
012700
01270

052737

2321

010110
013702
000005
020102
001401
104017
016737
012767
013767
012737
012700
012701

052737
010110
013702
000005
020102
001401
104017

2322

016737
012767
013767
012737
012700
012701
052737

MACRO M111°

TEST

137776

001252

112576
125205

000400

150672

172350

177572

13%:

137776

150624

137776

117776

150606

030406

001125

105276
125206

000400

150526

14%:

172350
“77572

15%:

117776

150540

117776

102000

150522

030472

001010
101000

125207

000400

150442

16%:

172350

177572

17%:

102000

142000

150436

001314

110400

125210
000400

150356

18%:

172350
177572

19%:

142000

150370

142000

030642
122000
001104

150272
150352

000400

17/572

111400
125211

20%:

172350
21%:

PAGE

6 6
30-2

MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
(MP

137776 ,$TMP)
#1252 ,3#K [PARG

MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
cMP
8EQ
ERROR
MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV

$TMPO,

BEQ
ERROR

RESET

150454

030556

26=SEP=79 12:27

MP
BEQ
ERROR
MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
cMP

BEQ
ERROR

112576
R0

#125205
,R1

#B] T8, IAMMRO

R1,(RO)

ari37776.R2

;SAVE

DATA AT

TEST

LOCATION

;LOAD PAR4L WITH 1252
JPUT VIRTUAL ADDRESS IN RO
;PUT DATA PATTERN INTC R1

;TURN ON DESTINATION ONLY RELOCATION
:TRY TO LOAD DATA PATTERN INTO 112576

;READ (137776) INTO R2
;CLEAR MMRO

;SEE IF DATA MAT(CHES PATTERN
;BRANCH IF DATA MAT(CHES

R1,R2
14$
+17

137776

#15% $LPERR

ar117776.$TTMMPO

;RELOCATION FAILED
JRESTORE ORIGINAL DATA

TEST

LOCATION

;SET LOOP ON ERROR POINTER T0 15%
;SAVE DATA AT

TEST LOCATION

#105276.R0

JLOAD PARG WITH 1125
;PUT VIRTUAL ADDRESS IN RC

#8118, INMMRO

;TURN ON DESTINATION ONLY RELCCATION

#1125,

3K IPARS

#125206.R1

R1, (RQ)

117776
.R2
R1,R2
16%
+17

STMPO ,a#117776

#17% ,SLPERR

a#102000,8$TTMMPO

#1010,
4K I PARS
#101000,.R0
#125207
,R1

#1718, a4MR0
R1,(RO)

a#102000,R2
R1.R2
18$
+17

$TMPO, a#102000

#1938 $LPERR

4142000, $TMPO

#1314,
a¥K IPARG
#110400.RO
#125210.R1

#BITS, I¥MMRO

R1, (RO)

a#162000,R2
R1,R2

208

+17

$TMPO,
a# 142000

MOV
MOV
MOV
MOV
MOV

#111400,R0

BIS

#]T18,a#MMRO

MOV

SEQ 007°

#2138 $LPERR

a#122000, $TMPO
#1104 , 3K
I PARG
#125211.R1

;PUT DATA PATTERN INTO R1

;TRY TO LOAD DATA PATTERN INTO 105276

JREAD (117776) INTO RZ
:CLEAR MMRO
;SEE IF DATA MATCHES PATTERN

;BRANCH ]IF DATA MATCHES
JRELOCATION FAILED
JRESTORE ORIGINAL DATA TO TEST LOCATION

;SET LOOP ON ERROR POINTER T0O 17%
;SAVE DATA AT TEST LOCATION
:LOAD PAR4 WITH 1010
;PUT VIRTUAL ADDRESS IN RO
;PUT DATA PATTERN INTO R1
SJTURN ON DESTINATION ONLY RELOCATION
:TRY TO LOAD DATA PATTERN INTO 101000
JREAD (102000) INTO R2
;CLEAR MMRO
;SEE IF DATA MAT(CHES PATTERN

;BRANCH IF DATA MATCHES
cRELOCATION FAILED
;RESTORE ORIGINAL DATA TO TEST LOCAT]ION
;SET LOOP ON ERROR POINTER TO 19%
;SAVE DATA AT TEST LOCATION
:LOAD PARSG WITH 1314
;PUT VIRTUAL ADDRESS IN RO
;PUT DATA PATTERN INTO R1
JTURN ON DESTINATION ONLY RELOCAT]ON
:TRY TO LOAD DATA PATTERN INTO 110400
;READ (142000) INTO R2

;CLEAR MMRO
:SEE IF DATA MATCHES PATTERN
;BRANCH ]F DATA MAT(CHES
JRELOCATION FAILED
RESTORE ORIGINAL DATA TO TEST LOCATION
;SET LOOP ON ERROR POINTER TO 21%
;SAVE DATA AT TEST LOCATION

:LOAD PARSG WITH 1104
;PUT VIRTUAL ADDRESS IN RO
:PUT DATA PATTERN INTO R1

JTURN ON DESTINATION ONLY RELOCATION

(KK TAAQ
Tub

11744 MEM MGMT PRT A
18-BIT MAPPING ADDER

030650

2323

010110
013?0%
00000
020102
001401
104017
016737
012767
013767
012737
012700
012701
052737
010110
013702
000005
020102
001401
104017

2324

2325

4
6
0

2326

031202

016737
012767
013767
012737
012700
012701
052737
010110
01370%
00000
020102
001401
104017
016737
012767
013767
012737
012700
012701
052737
010110
01370§
00000
020102
001401
104017

016737
012767
013767
012737
012700
012701
052737
010110
013702
000005
020102
001403

MACRO M1111

TEST

MOV

122000

MOV
RESET
CMP
BEOQ

150304

122000

142000

150266

030726

001356
104200
125212

000400

150206

22%:

172350

177572

142000

150220

142000

1642000

150202

031012

15012¢

001242

172350

000400

177572

115600
125213

26%:

25%:

142000

150134
031076
1642000
001377
102100
125214
000400

142000
150036
150116

26$%:

172350
177572

27%:

142000

150050

142000

031162

147752

001221

172350

125215
000400

17757¢

142000

117700

142000

26-SEP-79 12:27

28%:

150032

29%:

ERROR

MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
CMP
BEQ
ERROR
MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
P

BEQ
ERROR
MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
CMP
BEQ
ERROR
MOV
MOV
MOV
MOV
MOV
MOV
BIS
MOV
MOV
RESET
(MP
BEQ

PAGE 30-3

R1,(RO)

a#122000,R2
R1,R2

22%

$17
STMPO, a#122000

#238 ,SLPERR

a#1462000,$TTMMPO

SEQ 0072
;TRY

TO LOAD DATA PATTERN INTO 111400

JREAD (122000) INTO R2
:CLEAR MMRO

JSEE IF DATA MAT(CHES PATTERN
;BRANCH IF DATA MAT(CHES
JRELOCATION FAILED

JRESTORE ORIGINAL DATA TO 'eSTM LOCATION

;SET LOOP ON ERROR POINTER 1O 23%
;SAVE DATA AT TEST LOCATION

#125212.R1

;LOAD PAR4 WITH 1356
;PUT VIRTUAL ADDRESS IN RO
;PUT DATA PATTERN INTO R1

R1, (RO)

:TRY TO LOAD DATA PATTERN INTO 104200

#1356,

K] ARG

#106200,R0

MBIT8, IMMMRO

JTURN ON DESTINATION ONLY RELOCATION

41462000, $TMPO

JREAD (142000) INTO R2
;CLEAR MMRO
:SEE IF DATA MATCHES PATTERN
JBRANCH IF DATA MATCHES
JRELOCATION FAILED
;RESTORE ORIGINAL DATA TO TEST LOCATION
:SET LOOP ON ERROR PCINTER TO 25%
;SAVE DATA AT TEST LOCATION

MBI T8, IMMMRO

;PUT DATA PATTERN INTO R1
;TURN ON DESTINATION ONLY RELOCATION

a142000,R2
R1,R2

248

+17

$TMPO, a#142000

#25% , $LPERR

#1242, I¥KIPARG
#115600,
RO
#125213.R1

R1, (RO)

ar1462000.R2

26$

+17
$TMPO,
a# 142000

#27%
. $LPERR

24142000, $TMPO
#1377 . WK IPARG

#102100,R0
#125214
.R1

#8178, I¥MMRO
R1, (R0)

a#142000,R2

R1,R2
+17

$TMPO,
a4 142000
#29% ,$LPERR

a#1462000,$TMPO
4K IPARG

#117700.R0
#125215
. .R1

#8] T8, I4MMRO

a#142000,R2
R1,RZ

30%

JREAD (142000) INTO R2
;CLEAR MMRO

JBRANCH IF DATA MATCHES
JRELOCATION FAILED

JRESTORE ORIGINAL DATA TO TEST _OCAT]ON

JSET LOOP ON ERROR POINTER TO 27%
:SAVE DATA AT TEST LOCATION
:LOAD PAR4 WITH 1377
;PUT VIRTUAL ADDRESS IN RO
;PUT DATA PATTERN INTO R1
;TURN ON DESTINATION ONLY RELOCATION
:TRY TO LOAD DATA PATTERN

JREAD (162000) INTO R?
;CLEAR MMRO

INTO 102100

;SEE IF DATA MATCHES PATTERN
JBRANCH IF DATA MATCHES

28%

R1, (RO)

:TRY TO LOAD DATA PATTERN INTO 115600

;SEE IF DATA MATCHES PATTERN

R1,R2

#1221,

;LOAD PARG WITH 1242
;PUT VIRTUAL ADDRESS IN RO

JRELOCATION FAILED
;RESTORE ORIGINAL DATA TO TEST LOCAT.ON
;SET LOOP ON ERROR POINTER TO 29%
;SAVE DATA AT TEST LOCATION

:LOAD PARG WITH 1221
;PUT VIRTUAL ADDRESS IN RO
JPUT DATA PATTERN INTO R1
;TURN ON DESTINATION ONLY RELOCATION
;TRY TO LOAD DATA PATTERN

INTO 117700

JREAD (142000) INTO R?
;CLEAR MMRO
:SEE ]F DATA MATCHES PATTERN
JBRANCH

DATA MAT(HES

26-SEP=-79 12:27

(kK TAAQ 11744 MEM MGMT PRT A
MACRO MITN
146
18-8B]T MAPPING ADDER TEST

031204
031206
2327 031214

104017
016737
012767

147764
031246

142000
147666

30%:

031242
031246

012701
052737

125216
000400

177572

31%:

031222 013767 140000
031230 012737 001377
031236 012700 100100

03125¢ 010110
031256 013702
031262
031264
031266
031270
031272

000005
020102
001401
104017
016737

031326

012701

2328 031300
031306
031314
031322

031332
031340

031342

013702

031346

000005

031352
031354
031356

001401
104017
016737

031350

5%%3 031364

147700

125217

000400

140000

32%:

177572

33%:

147602
147662
172350

140000

012767

147614

027572

+1/
$STMPO,a# 142000
#3188 ,SLPERR

JRELOCATION FAILED

MOV
BIS

8125216 ,R1
#BITS,aMMMR0O

JPUT DATA PATTERN INTO R1
-TURN ON DESTINATION ONLY RELOCATION

MOV
MOV

RESET
(0 'ad
BEQ
ERROR
MOV

140000

147516

34%.

“TRY TO LOAD DATA PATTERN INTO *00100
*READ (140000) INTO R2

R1.R2
328
+17
$TMPO. a¥140000

;CLEAR MMRO
;SEE IF DATA MATCHES PATTERN
;BRANCH IF DATA MATCHES
*RELOCATION FAILED
-RESTORE ORIGINAL DATA TO TEST LOCATION

7125217 .,R1

:PUT DATA PATTERN INTO R1

BIS
MOV

MIT8,IMMRO
R1, (RO)

RESET

:SAVE DATA AT TEST LOCATION
+LOAD PARG WITH 1377
*PUT VIRTUAL ADDRESS IN RO

R1, (RO)
ar140000,R2

#33$_ $LPERR
a#140000,8TMPO
#1370, a#KIPARG
#101000. RO

MOV

;RESTORE ORIGINAL DATA TO TEST LOCATION
:SET LOOP ON ERROR POINTER TO 31%

a#140000,8TMPO
#1377 .a#KIPARG
#100100.R0

MOV
MOV
MOV
MOV
MOV

020102

SEQ 0073

ERROR
MOV
MOV

MOV
MOV
MOV

140000

012767 031332
013767 140000
012737 001370
012700 101000
052737
010110

147746
172350

6
I
PAGE 30-¢

*SET LOOP ON ERROR POINTER TO 33$
:SAVE DATA AT TEST LOCATION
:LOAD PARG WITH 1370
*PUT VIRTUAL ADDRESS IN RO

-TURN ON DESTINATION ONLY RELOCATION
;TRY TO LOAD DATA PATTERN INTO 101000

av140000,R2

*READ (140000) INTO R2
*CLEAR MMRO

CMP

R1,RZ2

;SEE IF DATA MATCHES PATTERN

MOV

#4608 ,SLPERR

;SET LOOP ON ERROR POINTER TO 40%

BEQ
ERROR
MOV

348
+17
$TMPO,a# 140000

;BRANCH IF DATA MATCHES
*RELOCATION FAILED
RESTORE ORIGINAL DATA TO TEST L QOCATION

2331

;ttttttttttttttttttttttltt'tttttttttttttttQtttttttttttttlt!'t'tttt

2332
2333
233
2335

“»
:*
:*
;*

2336

,-Qttttttt!ttttttttttttttttttt‘fttt'ittt.lfit'fitfi"lfitttttn'ltfitttfi't

2337 031372

005067

2339 031402
2340 031404

001002
000167

2338 031376

2341 031410

105767

032767

2342 031416 001002
2343 031420 000167
2344 031424 012767
2345 031432
2346 031436
2}47 031440

005767
000403
104060

S%fig 031446

005267

2548 031442
pl

2365

THIS PIECE OF CODE CHECKS TO SEE IF THE PROGRAM IS RUNNING UNDER
APT, AND THEN LOOKS FOR THE APT SPECIAL ADDRESSING HARDWARE. IFf
THE HARDWARE IS FOUND, THE NEXT TWO TESTS OPERATE AS [F THERE
WERE A FULL COMPLEMENT OF MEMORY ON THE SYSTEM.

147742

APTTST:

147642

000042

000200

147632

1%:

000026
031440

146352

2%:

146332

000167 000004

147666

CLR

HDWF LAG

JRESET THE HARDWARE PRESENT FLAG

BNE
JMP

1
1ST47

*BRANCH IF WE ARE
SELSE GO TO TEST 47

2
1ST47
#3$ ,ERRVE(

*BRANCH iF TRUE
“ELSE GO TO TEST 47
*TRAPS TO &4 GO TO 3$

1ST47

“GO TO TEST 47

TSTB

BIT

BNE
MNP
MOV

3%:

TST
BR
ERROR

A ¥

INC

JMP

SENV

;ARE WE UNDER APT?

MIT7,3USWR

;IS THE HARDWARE SUPPQSED TQO BE

RMIREG
43
+60

THERE®

*SPECIAL HARDWARE PRESENT?
JIF WE GOT HERE, THE HARDWARE IS THERE
;APT SPECIAL HARDWARE NOT FOUND

HDWF LAG

;SET SPECIAL HARDWARE PRESENT FLAG

'-'-tttltttttt'tt.ttttt'tt'tttt.l'lttttttitt..tttttttt'tt!ttt'ttttt

J*TEST 47

e
J*

18-B]T MAPPING CARRY PROPAGAT]ION

THIS TEST USES FULL

PROPAGATION OF

18-BIT RELOCATION TO CHECK THE

[HE RELOCATION ADDER.

CARRY

SINCE THIS TEST SCANS

MEMORY FROM 00100000 TO 00740000 ON 8Kk BOUNDARIES, IT wil.
REPORT

ANY HOLES

THAT

FINDS

IN MEMORY UF

THE

LAST

26-SEP-79 12:27

PAGE

30-5

SEQ 0074

THE INFORMATION GIVEN WILL BE
WAS DITCOVERED AND THE FJRST

THE

HS.E

THE

HOLE.

THE ADDRESS WHERE
GOOD ADDRESS AFTER

NOTE

- PART OF
MEMORY

THIS

SIZE

TEST WILL

LESS

NOT BE

THAN

RUN IF

16K WORDS.

THE

SYSTEM

BLCCK.

MACRC M1111
(KKTAAC 11/44 MEM MQGMT PRT A
147
18-BIT MAPPING CARRY PROPAGATON

-:.ttt'..ttQ'ti.Q.QQ...."Qt"'.."..‘i..ti'tt'.‘Q"Qt'..'fi.".t.

031452

000004

2367 031454
2368 031460
2369 031466
2370 031472
2371 031474

012700
012737
005767
001004
026727

15747
100100

000001
147646

177572

151322

001000

147626

032146
000777
001000

146266
140624
160620

000375
031550

147340

120000

147556
147560
1640564

MOV
MOV
TST
BNE
(MP

20%:

1%:

2%:

140534

031504

147262

147502

3%:

21s:

000400

146116

2602 031660
2403 031662
2604 031666
2405 031674
2606 031702
26407 031704
2408 031712
26409 031714
2610 031720
2411 031722
2412
2413

147210

23%:

000400
000400

140454
140450

007400

140440

147416

22%:

$LSTBK #1000

;1S THERE AT LEAST 16K ON THE SYSTEM?
;BRANCH IF LESS THAN 16K TO 4$

208

MOV
MOV

#1000 ,KIPARS
#120000,R1

MOV
CLR

#1$ SLPERR

MOV
MOV

TST

BEQ
(MP
BGT
MOV
TST
TST

147362

;LOAD VIRTUAL ADDR FOR PAR4 INTO RO
;TURN ON 18-BIT MAPPING

BNE

147526

#100100,R0
#1,MRO
HDWF LAG

8LT
CLR

MOV

151232

147400
147530

SCOPE

HOLFLG

#10%,ERRVE(

#777 ,KIPAR&

#375 ,R2
PCPUER
HDWF LAG

23
KIPARS ,$LSTBK
21$
(R1),$TMPO

PCPUER

HOLFLG

3s
KIPARS,$TMP2

#208
. SLPERR
+41
HOLFLG
R2. (RO)

23$

R2.R4

#8178, R4

R& ,RMIREG

(R1) ,R3

R2,R3
22%

+42
$TMPO, (R1)

#400,K IPARG

sSOO.KIPARS
1;400.K1PAR5
HOLFLG

43
+43

s SPECIAL HARDWARE?
;BRANCH IF TRUE

JMAKE SURE HOLE FLAG STARTS AT ZERO
;SET ERROR VECTOR POINTER TO 10%
;LOAD PAR4 WITH STARTING BASE

;START ADDRESSING WITH 16K
;LOAD VIRTUAL ADDR FOR PARS5 INTO R1
;LOAD DATA PATTERN INTO R2
;SET LOOP ON ERROR POINTER TO 1%
;CLEAR CPU ERROR FLAG
; SPECIAL HARDWARE?
JBRANCH IF

FALSE

;ARE WE OUT OF EXISTING MEMORY?
;BRANCH IF TRUE
;SAVE DATA AT TEST LOCATION
;SEE IF THERE WAS A (PU TRAP

sBRANCH [F TRAP OCCURRED

;SEE IF HOLE WAS FOUND IN MEMORY
;JBRANCH IF NO HOLE WAS FOUND
;SAVE PAR THAT POINTS TO END OF HOLE

;SET LOOP ON ERROR POINTER TO 20%
JHOLE IN MEMORY FROM $TMP1 TO $TMP?2
;CLEAR HOLE FLAG IN CASE THERE ARE MORE
JLOAD TEST PATTERN INTO TEST LOCATION
;BRANCH OVER NEXT INSTRUCTIONS
;GET COPY OF DATA
;ADD SPECIAL HARDWARE ENABLE BIT
;PUT DATA IN SPECIAL HARDWARE
JREAD TEST LOCATION VIA DIFFERENT VIRT. ADDR.
;SEE IF THE CORRECT LOCATION WAS REFERENCED
JBRANCH IF CORRECT DATA WAS OBTAINED
;BAD RELOCATION
JRESTORE ORIGINAL DATA TO TEST LOCATION

s CHANGE BASE ADDRESS

; CHANGE BASE ADDRESS
;CHANGE DATA PATTERN
;SEE IF PAST LAST ADDRESS
JBRANCH IF NOT PAST LAST ADDRESS
JSEE IF YOU ARE

IN MIDDLE OF HOLE

JBRANCH IF NOT IN MIDDLE OF HOLE
IN MIDDLE OF HOLE IN MEMORY
JHOLFLG HAS NUMBER OF TIMEOQUTS
;$TMP1

HAS PAR OF

FIRST

TIMEOUT

(KKTAAD 11/44 MEM MGMT PRT A

147

MACRO M1111

18-BIT MAPPING CARRY PROPAGAT]ION

2614

*
;*
o

2619
5259

2622 031724
2423 031730

005767
001402

147410

26425 031736
2626 031744

012767
012767

003024
031776

012702
012767
005067

007600
000020
147334

26427 031752

26428 037760
2429 031764
2430 031772

2431 031776

2432
2433
26434 032000
2435 032004

Szgg 032006

PAGE 30-6

SEQ 0075

2615
2616
2617
2618

2624 031732

26-SEP=-79 12:27

005067

012767
010210

005767
001001

146032

007577

146040
147136

ADDRESS 760000 IS GENERATED BY CARRY PROPAGATION WHILE THE
PROGRAM 1S EXPECTING A TIME QUT.
(760000 IS THE FIRST 1/0
PAGE ADDRESS).
KIPARG WILL CONTAIN 007577 AND RO HAS 100100
(WHICH SELECTS KIPAR4 AND GENERATES ADDRESS 760000).
IF THE

i
i

WRONG BIT IN THE CPU ERROR REGISTER IS SET, OR IF NO TRAP
TO 'ERRVEC' OCCURS AN ERROR IS REPORTED.

TST
BEQ

HDWF LAG
459

:SPECIAL HARDWARE?
JBRANCH [F NOT

45%:

MOV
MOV

#TIMERR,ERRVEC
#4038, SLPERR

;RESTORE NORMAL ROUTINE FOR TRAPS THRU &
JSET LOOP ON ERROR POINTER TO 40%

140370

CLR

MOV

147342

408%:

147326

MOV
MOV
(LR

MOV
TST
BNE

104044

ERROR

RMIREG

#7577 ,K1PAR4
#7600,R2
#20, CPUEXP
PCPUER

R2, (RO)

;MAKE SURE SPECIAL HARDWAE IS OfF

;LOAD KIPAR4 WITH 007577

;LOAD DATA PATTERN INTO R2
JEXPECTING UNIBUS TIMEOUT
;CLEAR _CPU TRAP FLAG

;LOAD 760000 THRU PAGE 4

;THIS INSTRUCTION SHOULD TIMEOUT
;OVER THE UNIBUS.
;SEE IF TRAP OCCURRED
;BRANCH IF TRAP

PCPUER
63
+44

;NO CPU TRAP

- %

2438

ADDRESS 000000 IS GENERATED By CARRY PROPAGATION.

2440

.®

BLOCK (SLSTBK)

26439

522;

i*
.

2643 032010
2644 032016
2445 032022

012767
005067
012767

032034
147312
007777

2647 032034
2448 032040

013701
005701

100100

2452 032054

022767

2446 032030 005037 000000
2449 032042
2450 032044
26451 032046

2453 032062
2654 032064
2455 032072
2456 032076
2457 032104

2458 032112

26459 032116
2460 032122

26461 032124

2462 032130
2663 032132
2664 032136
5222 032144

001401
104045
012767
101423
012767
005067
016767
062767

013701

005767
001003

012700

104046
005067
012767
000462

032112

007377
000040
147234
150720
000100

100100

147072

147034

150740

MOV
CLR
MOV

168:

MOV
TST

7$:

147242

140244
140236

147219

17%:

100100
147176
031504

S{,gg

8%:

IS USED AS A PAR AND A CARRY IS PROPAGATED TO

#163,SLPERR
CPUEXP
N7777 ,K1PARG

;SET LOOP ON ERROR POINTER TO 16$
:NO TRAPS THRU ERRVEC EXPECTED HERE
;LOAD PAR4 WITH HIGHEST VALUE POSSIBLE

CLR

a#000000

*CLEAR ADDRESS ZERO

BEQ
ERROR
MOV

’$
+45
#17$ SLPERR

/BRANCH IF ADDRESS ZERO WAS READ
;DIDN'T READ ADDRESS ZERO
*SET LOOP ON ERROR POINTER TO 17%

BLOS
MOV
CLR
MOV
ADD

8s
#40, CPUEXP
PCPUER
SLSTBK KIPARG
#100,K]PARS

cMP

MOV
TST
BNE

MOV
146744

ERROR
CLR
MOV
BR

;xensannnnrxn

a#100100,R1
R

:THIS SHOULD READ ADDRESS ZERO INTO R1
:SEE IF YOU READ ADDRESS ZERO

#7377,8LSTBK

100100, R1
PCPUER
8s

HERE

sREAD FROM NON-EXISTANT ADDRESS

;SAVE VIRTUAL ADDRESS FOR ERROR TYPEOUT

+46
CPUEXP
#208,SLPERR
TST50
TO

;BRANCH IF MORE THAT 120K ON SYSTEM
:EXPECTING NON-EXISTANT MEMORY ERROR
;CLEAR TRAP THRU ERRVEC FLAG
;GET READY TO GENERATE NON-EXISTANT ADDR.
JMAKE SURE WE'RE IN NON-EXISTANT MEMORY.

;SEE IF TRAP THRU ERRVEC OCCURRED
;BRANCH TO EXIT IF TRAP OCCURED

#100100.RO0

TRAP

:1S MEMORY BLOCK SIZE < 7377

;NO TRAP THRU ERRVE(C
JNO CPU TRAPS EXPECTED
;SET LOOP ON ERROR POINTER TO START OF
;cBRANCH TO NEXT TEST
THRU

ERRVEC

®twaxsxansansnnwnnn

2469 032146
2470 032152

012667
012667

147154
147152

10%:

CAUSE AN 18-BIT OVERFLOW.

68:

140320

THEN,

THERE IS LESS THAN 120K OF MEMORY ON THE SYSTEM, THE LAST

MOV
MOV

(KSP)+,0LDP(
(KSP) +,0LDPS

:SAVE RETURN ADDRESS
;SAVE RETURN PSW

TEST

MACRO M1111
CKK TAAO 11744 MEM MGMT PRT A
147
18-8B1T MAPPING CARRY PROPAGATION
26471 032156
2472 032164
2473 032172
2474 032174
2475 032202
2476 032204
2477 032212
2478 032214
2679 032216
2480 032220
2481

2682 032230
2483 032234
2684 032236
2485 032244
2686 032250
2487 032252
2488 032260
2489 032262
2490 032270
2491 032274
2492 032300
2493 032304
2494 032310
2508

016767
022767
001012

1465604
000040

147746
147140

140150

150620

031724

167114

26-SEP-79 12:27
MOV

CMP
BNE
CMP
BLT
MOV

11%:

000020

147104

12%:

1647102
140110
147066

146734

147050

147044

166620
147042
145466
147024
147016

147036

15%:

138:

148:

2509

6
L
PAGE 30-7

CPUERR,PCPUER

1493

JBRANCH TO EXIT

KIPARL ,SLSTBK
118
#4%,0LDPC

CMP

#20,PCPUER

TST

HOLFLG

INC

HOLFLG

BNE
MOV
BR
MOV
ERROR
MOV
CLR
CLR
MOV
MoV
RTI

CPU ERROR REGISTER FOR

;WAS TRAP NON-EXISTANT MEMORY
JBRANCH IF MEMORY EXISTS

+47

BNE

;SAVE

#40 ,PCPUER
12%

ERROR

B8R

SEQ 0076

14%
133

158
KIPARS ,$TMP1
14%
OLDPC ,BADP(
+1

$LPADR,OLDPC
HOLFLG
CPUERR

OLDPS,~(KSP)
OLDPC,~(KSP)

TYPING

;SEE IF PAR&4 MATCHES LAST 3LOCK [N MEMORY
JBRANCH IF NO MATCH-ERROR IN COMPARE CIRCUITS
; CHANGE RETURN ADDRESS IF AT TOP OF MEMORY
;PREMATURE END OF MEMORY FOUND

;BRANCH TO EXIT
;SEE

IF ADDRESS TIMED OUT

sHAS

THIS HAPPENED BEFORE?

sBRANCH IF NO TIME OUT,UNEXPECTED ERROR
JBRANCH [F NOT FIRST TIMEOUT
;SAVE PAR WHERE HOLE FIRST DISCOVERED
;KEEP COUNT OF

SUCCESSIVE

TIMEOUTS

;BRANCH TO EXIT
sJMOVE PC OF UNEXPECTED ERROR FOR TYPEOUT
JUNEXPECTED TRAP THROUGH ERRVEC
JRETURN TO BEGINNING OF TEST
;CLEAR FLAG IN CASE IT WAS SET
;CLEAR CPU ERROR REGISTER
;JPUSH OLD PSW ONTO STACK
;PUSH RETURN ADDRESS ONTO STA(CK
SRETURN TO TEST AND CONTINUE

.'"tfittittttttt'ttttttfittttttttttttfiitit*t*!fitfi..tt.Qt'tt!l’tfi"t'.t

J*TEST 50
b

A
i

22-BIT MAPPING CARRY PROPAGATION

o
o
o

THIS TEST USES FULL 22-BIT RELOCATION TO CHECK THE CARRY
PROPAGATION THAT PERTAINS TO 22 BIT ADDRESSES. THIS TEST
SCANS MEMORY FROM 00740000 TO 16740000 OR THE LAST BLOCK,
ON 8K BOUNDARIES. IF ANY HOLES ARE FOUND, THE ADDRESS
WHERE THE HOLE WAS DISCOVERED AND THE FIRST GOOD ADDRESS
AFTER THE HOLE WILL BE REPORTED.

i
.

NOTE - PART OF THIS TEST WILL NOT BE RUN IF THERE IS LESS
THAN 120K ON THE SYSTEM.

. %

:'"t.ttit*ttttttttttfittt'ttit'fiifittttt'itfi"tt"Q.t"tfifi'.'fi"ttt'
032312
2510 032314
2511 032320
2512 032324
2513 032332
2514 032336
2515 032340
2516 032346
2517 032350
2518 032356
2519 032362
2520 032370
2521 032376
2522 032402
2523 032410
2524 032414
2525 032416
2526 032424

100100
120000

TST50:

000020
147002

140164

007377

150454

033030

145426

007377
007400
000360
032410

137760
137754
146500

137730

150376

146754

146724

SCOPE

MOV
MOV

18:
21%-

;LOAD VIRTUAL ADDR FOR PAR4 INTO RO
;LOAD VIRTUAL ADDR FOR PARS INTO R1

HDWF LAG

;1S

MOV

#B1T4 ,MMR3

BNE
cMP
BGT
MOV

208
#7377 ,8LSTBK
3
#108 ,ERRVEC

;BRANCH IF THERE IS
;1S THERE AT LEAST 120K ON THE SYSTEM?
JBRANCH IF LESS THAN 120k
;SET ERROR VECTOR POINTER TO 10%

#7377 ,K1PAR4
#7400,KIPARS
#360.R2

;LOAD PARG WITH STARTING BASE
;LOAD BASE ADDRESS +100 INTO KIPARS
;LOAD DATA PATTERN INTO R?

TST

20$:

#100100,R0
#120000,R1

CLR

MOV
MOV
MOV
MOV
TST

8EC
MP
BGT

HOLFLG

#213 ,SLPERR
HDWF LAG

22%
KIPARS,SLSTBK
23%

JENABLE 22 BIT MAPPING

THERE SPECIAL HARDWARE?

;MAKE SURE HOLE FLAG STARTS AT ZERO

JSET LOOP ON ERROR POINTER TO 21%
;1S THERE SPECIAL HARDWARE?

JBRANCH [F NOT
;ARE WE OUT OF MEMORY SPACE?
JBRANCH [F WE ARE

MACRO M1111
(KKTAAQ 11/44 MEM MGMT PRT A
22-BIT MAPPING CARRY PROPAGAT]ON

2565 032616
2566 032624

2567 032630
2568 032636
2569 032644
2570 032650
2571 032652
2572 032654
2573 032660
2574 032662
2575 032664
2576
2577
2578
2579

146522
146422

166642

BNE

;BRANCH [F TRAP OCCURRED

ERKOR

2%:

23%:

000400
145256

248:

CLR
MOV

005302
026767
003010
022767
103307

005767
001401

146450
000400
000400

137614
137610

137600

150250

167400

137570

146546

HOLFLG

2%
KIPARS ,$TMP2
#208 ,SLPERR

+50

HOLFLG
RZ, (RO)

24$
R2 R4
#3178 R4

MOV

(R1) ,R3

MOV

R& ,RMIREG

JSEE

THERE WAS A (PU TRAP

;SEE

HOLE WAS FOUND

[N MEMORY

;BRANCH IF NO HOLE WAS FOUND
;SAVE PAR THAT POINTS TO END OF HOLE
;SET LOOP ON ERROR POINTER TO 20%

JHOLE IN MEMORY FROM $TMP1 TO $TMP2

JCLEAR HOLE FLAG IN CASE THERE ARE MORE
;LOAD TEST PATTERN INTO TEST LOCATION

;BRANCH OVER NEXT FEW INSTRUCTIONS
;GET CURRENT DATA VALUE
sSET SPECIAL HARDWARE ENABLE BIT
;SETUP SPECIAL HARDWARE

;READ TEST LOCATION VIA DIFFERENT VIRT. ADDR.

cmP

R2.RS

;SEE IF THE CORRECT LOCATION WAS REFERENCED

ERROR

+51

;BAD RELOCATION 22-8BIT MAPPING

MOV

$TMPO, (R1)

ADD
DEC
cMP
BGT
cMP
BHIS

#400,KIPARS
R2
KIPARS ,SLSTBK
43
#1676400,KIPARS
1%

ADD

TST

B8EQ
ERROR

#4600 ,K1PARS

HOLFLG

43
+52

;BRANCH IF CORRECT DATA WAS OBTAINED

JRESTORE ORIGINAL DATA TO TEST LOCATION

; CHANGE BASE ADDRESS

; CHANGE BASE ADDRESS
;CHANGE DATA PATTERN
;IS THE PAR ABOVE THE LAST BLOCK OF MEMORY
sBRANCH IF ABOVE LAST MEM. LOC.
;MAKE SURE YOU DON'T GO ON THE UNIBUS
;JBRANCH [F NOT PAST LAST ADDRESS
;SEE

IF MEMORY ENDS WITH A HOLE

JBRANCH IF NO HOLE AT END OF MEMORY
;HOLE AT END OF MEMORY

104052

PCPUER

B8R
MOV
81S

BEQ

012767
012767
012767
012767
012702
012767
012767

011067
010210
011103
016710
020203
001401

137714
145174
137532
137526

146326

1646252
146470

5%:

UNIBUS ADDRESS 000000 IS GENERATED BY CARRY PROPAGATION
SINCE THE MAP IS DISABLED, THIS SHOULD REFERENCE PHYSICAL
ADDRESS 000000.

MOV

#BIT4,MMR3

MOV

#17000,R2

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

146316

CMP
8tQ
ERROR

104053

;ENABLE 22-8BIT MAPPING

#TIMERR ERRVEC
#167777 KIPAR4
#000000 ,KIPARS

RESTORE NORMAL ROUTINE FOR TRAPS THRU &
;GET READY TO TEST U.B. ADDRESS O
;SHOULD GO TO PHYSICAL ADDRESS O

#58,SLPERR
#20, CPUEXP
(RO) ,$TMPO
R2, (RO)
(R1) ,R3

;SET LOOP ON ERROR POINTER TO 5%
JEXPECTING UNIBUS TIMEOUT
;SAVE DATA IN LOCATION O USING PAGE &
;LOAD DATA PATTERN INTO TEST LOCATION
JREAD TEST LOCATION VIA DIFFERENT VIRT ADDR

R2.R3
6%
+53

;SEE IF DATA MATCHES
JBRANCH [F TRAP
;BAD RELOCATION,UNIBUS ADDRESS

$TMPO, (RO)

;LOAD DATA PATTERN INTO R?

JRESTORE ORIGINAL DATA USING PAGE &

*
®

*
't
-

2582 032666
2583 032674

sCLEAR (PU ERROR FLAG
;SAVE DATA AT TEST LOCATION

TST

2554 032564
2555 032570
2556 032572
2557
2558
2559
2560
2561
2562 032574
2563 032602
2564 032610

137674

032350

SEQ 0077

PCPUER
(R1) ,$TMPO

BEQ
MOV
MOV

2552 032554
2553 032562

166666

PAGE 30-8

CLR
MOV
TST

2551 032552

22%:

146700
146540
146670

2550 032544

005067
011167
005767
001014
005767
001411
016767
012767

FEE

2527 032426
2528 032432
2529 032436
2530 032442
2531 032444
2532 032450
2533 032452
2534 032460
2535 032466
2536 032470
2537 032474
2538 032476
2539 032500
2540 032502
2541 032506
2542 032512
2543 032514
2544 032516
2545 032520
2546 032522
2547 032526
2548 032534
2549 032542

26-SEP-79 12:27

012767
005067

146214

THEN, If
ADDRESS 000000 [S GENERATED BY CARRY PROPAGATION.
THERE [S LESS THAN 120K OF MEMORY ON THE SYSTEM, THE LAST

BLOCK (SLSTBK) IS USED AS A PAR AND A CARRY IS PROPAGATED TO
CAULE A 22-BIT OVERFLOW.

6%:
$

MOV
CLR

#16% ,SLPERR
CPUEXP

;SET LOOP ON ERROR POINTER TO 16%
;NO TRAPS THRU ERRVEC EXPECTED HERE

MACRO M1111
CKKTAAOD 11/44 MEM MGMT PRT A
22-BIT MAPPING CARRY PROPAGAT]ON
2584 032700
2585 032706
2586 032712
2587 032716
2588 032720
2589 032722
2590 032724

2591 032732
2592 032740
2593 032742
2594 032750

2595 032754
2596 032762
2597 032770
2598 032774
2599 033000
2602 033010
2603 033014
2604 033022
2605 033026
2606
2607
2608
2609 033030
2610 033034
2611 033040
2612 033046

2613 033054
2614 033056
2615 033064
2616 033066
2617 033074
2618 033076
2619 033100
2620 033102
2621 033110
2622 033112
2623 033116
2624 033120
2625 033126
2626 033132
2627 033134
2628 033142
2629 033144
2630 033152
2631 033156
2632 033162
2633 033166
2634 033172
2635
2656

012767

177777

000000

032770

146156
150062

000040
146356
150042
000100

146364

100100
146332

137366
137360

16%:

n177777 ,KIPARG
a#000000
a#100100,R1

78"

BEQ
ERROR
MOV

78
+45
#178 SLPERR

146320
137470

146066

TST

17%:

8%:

#167777,$LSTBK

MOV

#460,CPUEXP

MOV

a*100100,R1

BNE
MOV
ERROR

8%
#100100,R0
+46

MoV
CLR

#20%,8LPERR
MMR3

CLR
MOV
ADD
TST

(LR

B8R

JRNRRRANAKANRE

1646272
146270
144722
000040

166264
146256

137266

147736

032574

146232

10%:

11$:

000020

146222

12%:

146220

MOV
MOV
MOV

146052

146166

146162

145736
146160
144604
146142
146134

146154

15%:
13%:

14%:

PCPUER
$LSTBK ,K]PAR4
#100 ,K]1PAR4

CPUEXP

TO HERE

(KSP)+,0LDPC
(KSP) +,0LDPS
CPUERR ,PCPUER

+47

B8R

118
#4$,0LDPC
14%

148

cMP
BNE

#20,PCPUER
13%

BNE
MOV

15%
KIPARS ,$TMP?

INC

MOV

ERROR
MOV
(LR
CLR

MOV

;LOAD PARG WITH HIGHEST VALUE POSSIBLE
;CLEAR ADDRESS ZERO
;THIS SHOULD READ ADDRESS ZERO INTO R1
;SEE IF YOU READ ADDRESS ZERO
;BRANCH IF ADDRESS ZERQ WAS READ
;DIDN'T READ ADDRESS ZERO

;SET LOOP ON ERROR POINTER TO 17%
;1S MEMORY BLOCK SIZE < 167777
JBRANCH [F MORE THAT 120K ON SYSTEM
JEXPECTING NON-EXISTANT MEMORY ERROR
;JCLEAR TRAP THRU ERRVEC FLAG
sGET READY TO GENERATE NON-EXISTANT ADDR.
JMAKE SURE WE ARE IN NON-EXISTANT MEMORY
JREAD FROM NON-EXISTANT ADDRESS

THRU ERRVEC

ERROR

BLT
MOV
BR

SEQ 0078

JRETURN TO 18-BIT MAPPING
;;BRANCH TO NEXT TEST

TSTS1

TRAP

sSEE IF TRAP THRU ERRVE(C OCCURRED
JBRANCH TO EXIT IF TRAP OCCURED
;SAVE VIRTUAL ADDRESS FOR ERROR TYPEOUT
NO TRAP THRU ERRVE(C
NO CPU TRAPS EXPECTED
;SET LOOP ON ERROR POINTER TO START OF TEST

PCPUER

#40,PCPUER
12%
K]PARS ,$LSTBK

:?Y

8s$

cMP
BNE
MP

TST

137226
146204

B8LOS

100100

032350

PAGE 30-9

MOV
CLR
MOV

137442

100100

167777

26-SEP-79 12:27

HOLFLG

14%

OLDPC ,BADPC

+1
$LPADR,OLDPC
HOLFLG
CPUERR

OLDPS,~(KSP)
OLDPC ,~(KSP)

*amasmannaswannns

:SAVE RETURN ADDRESS
:SAVE RETURN PSW
:SAVE CPU ERROR REGISTER FOR TYPING
;WAS TRAP NON-EXISTANT MEMORY

;BRANCH IF MEMORY EXISTS

;SEE IF PAR4 MATCHES LAST BLOCK IN MEMORY
;BRANCH ]F NO MATCH-ERROR IN COMPARE CIRCUITS
;CHANGE RETURN ADDRESS IF AT TOP Of MEMORY
;BRANCH TO EXIT
sPREMATURE END OF MEMORY FOUND
;BRANCH TO EXIT
;SEE IF ADDRESS TIMED OUT
JBRANCH IfF NO TIME OUT,UNEXPECTED ERROR
;HAS THIS HAPPENED BEFORE?
;BRANCH IF NOT FIRST TIMEOUT
;SAVE PAR WHERE HOLE FIRST DISCOVERED
JKEEP COUNT OF SUCCESSIVE TIMEOUTS
;BRANCH TO EXIT
;JMOVE PC OF UNEXPECTED ERROR FOR TYPEOUT
JUNEXPECTED TRAP THROUGH ERRVEC(
JRETURN TO BEGINNING OF TEST

JCLEAR FLAG IN CASE IT WAS SET

;CLEAR CPU ERROR REGISTER
;PUSH OLD PSW ONTO STACK
sPUSH RETURN ADDRESS ONTO STACK
JRETURN TO TEST AND CONTINUE

L 2222202220202
00 R
R0 R R0
000020020020t
RdRR R

S*TEST 51

READ AND WRITE WHILE

IN RELOCATE MODE

L
* W

THE FOLLOWING TEST TURNS ON MEMORY MANAGEMENT AND THEN
READS AND WRITES LOCATIONS BETWEEN PHYSICAL ADDRESSES

READ AND WRITF WHILE

IN RELOCATE MODE

26-SEP-79 12:27

N
S

THE PAR/PDR ADDRESS MUX

IS CHECKED BY READING AND WRITING

IN USER MODE.
REMEMBER ALSO, THAT SINCE MEMORY MANAGEMENT
IS ON (IN RELOCATE MODE) THE PROGRAM ITSELF IS USING ITS
VIRTUAL ADDRESSES AND THE PAR/PDR'S TO EXECUTE.

IR BN

SEQ 0079

B 7

PAGE 30-10

060000-067600.
ONE LOCATION IN EVERY BLOCK (32. WORDS)
IS WRITTEN USING PAR4G AND READ USING PARS.
THIS IS
DONE IN BOTH USER AND KERNEL MODES. THE 'MODE'' INPUT TO

MACRO M1111
4

(KKTAAQ 11/44 MEM MGMT PRT A

B
IR S
I

YR Y

YRR

WHILE TESTING IN KERNEL MODE, USER PAGES 4 & 5 ARE MAPPED
NON-RESIDENT WITH DIFFERENT PAR VALUES THAN THE KERNEL
PAR'S TO BE SURE THAT THE KERNEL PAR'S AND PDR'S ARE BEING
USED WHEN IN KERNEL MODE (AND VICE VERSA WHILE TESTING IN
USER MODE).
IF A MEM. MGMT. TRAP OCCURS, THE PROGRAM GOES
TO 8% WHERE THE TRAP IS REPORTED.

CRN

2657 033174

000004

2658
265¢
266
2661
2662
2663

005067
012704
012705
010467
010567
012700

033176
033202
033206
033212
033216
033222

2664 033226
2665 033232
2666 033234
2667 033240

2668 033242
2669 033244
2670 033250
2671 033252
2672 033256

2673 033262

2674
2675
2676
2677

033266
033272
033276
033302

2678 033304
2679 033306
2680 033310

012703
005001
012702
010120

010123
062701
077205
012710
012713

012700

012703
012701
012702
010120

144574
000577
000600
137132
137130
177640

SCOPE

1%:

(LR
MOV
MOV
MOV
MOV
MOV

PSW
#577 R4
#600.RS
Ré K IPARG
RS .KIPARS
#UIPARO,RO

;START IN KERNEL MODE
"LOAD R4 WITH VALUE FOR PAR&
*LOAD RS WITH VALUE FOR PARS
*LOAD KERNEL PAR4
*LOAD KERNEL PARS
“LOAD ADDRESS OF FIRST USER PAR IN RO

MOV
ADD
S08
MOV
MOV

R1,(R3)+
#200.R1
R2.2$
#7600, (RO)
#7600, (R3)

;MAP SUPERVISOR PAR'S TO PAGES 0-6 (4K EACH)

172240

000007

AN RARARAARARAAAANRN P AARNARARAAANRAARANAAAARAANRRAARAAANARR
AN AN OO

78151:

2%:

000200
007600
007600

177600

MOV
CLR
MOV
MOV

MOV

172200
077406
000010

MOV
MOV
MOV
MOV

010123
077203
105067

144274

MOV
S08
CLRB

033320
2683 033324
2684 033330
2685 033334
2686 033340

105067
105067
010567
010467
010567

136664
136662
144314
144312
136704

C(LRB
CLRB
MOV
MOV
MOV

2688 033350
2689 033356

012767
012767

000001
033410

144214
145524

2691 033372

016767

144400

145576

2693 033404
2694 033410
2695 033412

012701
010010
011102

2681 033314

2687 033344

2690 033364

2692 033400
2696 033414

105067

010467

144272

136702

012767 033732
012700
020002

100100

120000

CLRB

144656

MOV

4$:
5%

#SIPARQO,R3
R1
#7 ,R2
R1,(RO)+

#UIPDRO,RO
#SIPDRO.R3
#77606.R1
#10.R2
R1, (RO) +

R1. (R3)+
R2.3$
UIPDR4

UIPDRS

SIPDR&
SIPDRS
RS ,UIPARS
R4 .UIPARS
RS .S IPARG

R4 . SIPARS

:LOAD ADDRESS OF FIRST SUPERVISOR PAR IN R3
*CLEAR R1
;LOAD LOOP COUNTER WITH A 7
;MAP USER PAR'S TO PAGES 0-6 (4K EACH)
;LOOP UNTIL UIPARO-UIPARG ARE LOADED
*MAP USER PAR7 TO THE 1/0 PAGE
‘MAP SUPERVISOR PAR7 TO THE 1/0 PAGE

;LOAD ADDRESS OF FIRST USER PDR IN RO

*LOAD ADDRESS OF FIRST SUPERVISOR PDR IN R3
*LOAD PDR DATA INTO R1
*LOAD LOOP COUNTER WITH AN 8
:MAP ALL 8 PAGES 128 BLOCKS, UPWARD

EXPANDABLE ,READ/WRITE FOR
USER AND SUPERVISOR MODES.
MAP USER SPACE NON-RESIDENT WHILE

TESTING KERNEL SPACE

MAP SUPERVISOR SPACE NON-RESIDENT WHILE
TESTING KERNEL SPACE
‘MAP USER PAR'S OPPOSITE OF KIPAR'S

;MAP SUPERVISOR PAR'S OPPOSITE OF KIPAR'S

MOV
MOV

#1,SR0O
#58, SLPERR

;TURN ON MEMORY MANAGEMENT (RELOCATE MODE)
“SET LOOP ON ERROR POINTER TO S$

MOV

PSW.$TMPO

*SAVE PSW IN CASE OF ERROR

MOV

MOV
MOV
MOV

CMP

#88 _MMVE(

#100100.R0
#120000.R1
RO, (RO)
(R1) ,R2

RO,R?

“SET M. M. TRAP VECTOR TO 8%

*PUT VIRTUAL ADDR. THAT USES PAR4 IN RO
*PUT VIRTUAL ADDR. THAT USES PARS IN RI
SWRITE TO TEST LOC. USING PAR&
“READ THE SAME LOC.. BUT USING PARS

‘DID WE READ WHAT WE WROTE?

?TAAO 117446 MEM MGMT PRT A

READ AND WRITE WHILE

2697 033416
2698 033420
2699 033426
2700 033430
2701 033434
2702
2703

001411
010167
010067
004767
10402

MACRO M1111

IN RELOCATE MODE

26-SEP-79 12:27

BEQ
MOV
MOV
JSR
ERROR

1456564
165646
147564

PAGE

6%
R1,VIRT?
RO.VIRT1
PC . F ORMPA
+20

*ADDR. DID NOT FIND DATA WRITTEN WHEN USING
*PAKG AND VIRT. ADDRESS.
*FOR TIGHTER SCOPE LOOP

2705

2734 033620

‘REPLACE ERROR CALL WITH

016700
062700
062701
020127
001354
032767
001026
010467
010567
112767
112767
105067
105067
010567
010467
012767
000713
032767
001026
010467
010567
112767
112767
105067
105067
010567
010467

012767

2735 033626 000661

145634
000100
000100
127700
160000
144154
144152
000006
000006
136570
136566
136620
136616
140000
040000
136470
136466

000006
000006
144004
144002
144034
144032

2742 033670
2763 033674
2764 033700

010567
010567
010567

136456
143750
143746

2749 033730

2750

2751

010567
010567
012767
012767

000427

144102
144076

1464234
144224

136460

136340
136336
003122
033176

7%:

136416
136412

136446
136442
143732
143726

144142
077406
077406
077406
077406

2745 033704
2766 033710
27647 033714
2748 033722

144310

144150

005067
012767
012767
012767
012767

010567

6$:

040000

2736 033630
2737 033634
2738 033642
2739 033650
2740 033656

2741 033664

SEQ 0080

:BRANCH IF YES
“SAVE VIRTUAL ADDR. THAT SELECTED PARS
*SAVE VIRTUAL ADDR. THAT SELECTED PARé4
“GO FORM PHYSICAL ADDRESS BEING USED
*READING LOC. USING PARS AND A VIRT.

2704

2706
2707 033436
2708 033442
2709 033446
2710 033452
2711 033456
2712 033460
2713 033466
2714 033470
2715 033474
2716 033500
2717 033506
2718 033514
2719 033520
2720 033524
2721 033530
2722 033534
2723 033542
2724 033544
2725 033552
2726 033554
2727 033560
2728 033564
2729 033572
2730 033600
2731 033604
2732 033610
2733 033614

30-11

MOV
ADD
ADD
CMP
BNE
BIT
BNE
MOV
MOV
MOVB
MOVE
CLRB
CLRB
MOV
MOV
MOV
BR
BIT
BNE
MOV
MOV
MOVB
MOVB
CLRB
CLRB
MOV
MOV

VIRT1,RO
#100,R0
#100.R1
R1,#127700
58
#140000, PSW
7%
R4, UIPARS
RS.UIPARS
#6.UIPDR4
#6.UIPDRS
KIPDR4
KIPDRS
RS ,KIPARG
R4 .KIPARS
#140000,PSW
4
#40000,PSW
108
R4, SIPARS
RS.SIPARS
#6.SIPDR4
#6.SIPDRS
UIPDR&
UIPDRS
RS,UIPARS
R4 .UIPARS

B8R

MOV

108 :

CLR
MOV
MOV
MOV
MOV

MOV

MOV
MOV
MOV

144326
145160

MOV
MOV
MOV
MOV

IRRNTAARNRS

#40000,PSW

PSW
#776406.KIPDR4
#77406.K1PDRS
#77406.UIPDRG
#77406.UIPDRS

S'BR 58 = 000765
*RESTORE VBA IN RO
*CHANGE VIRTUAL ADDRS.

TO POINT TO NEXT BLOCK

:WERE BLOCKS FROM 60000-67600 ALL TRIED?
*BRANCH IF NO
*HAVE WE DONE TEST IN USER MODE YET?
‘BRANCH IF YES
*LOAD USER PAR4
*LOAD USER PARS
*MAP USER SPACE R/W TO TEST IT

;MAP

KERNEL SPACE NON-PESIDENT WHILE
TESTING USER SPACE
*MAP KERNEL PAR'S OPPOSITE UIPAR'S
;G0 TO USER MODE
‘GO BACK AND READ/WRITE IN USER MODE
*HAVE WE DONE TEST IN SUPERVISOR MODE YET?
*BRANCH IF YES
*LOAD SUPERVISOR PAR&
*LOAD SUPERVISOR PARS

‘MAP SUPERVISOR SPACE R/W TO TEST IT
;MAP USER SPACE NON-RESIDENT WHILE
TESTING USER SPACE
*MAP USER PAR'S OPPOSITE SIPAR'S

:GO TO SUPERVISOR MODE

*GO BACK AND READ/WRITE IN SUPERVISOR MODE
*GO BACK TO KERNEL MODE BEFORE LEAVING
-REMAP KERNEL PAGES READ/WRITE
;REMAP USER PAGES READ/WRITE

RS.,K]PAR4

:MAP KERNEL., SUPERVISOR AND USER PAR'S 4 & S

RS .SIPARS
RS.SIPARS
WMGMERR ,MMVEC
#1$ SLPERR

:RESTORE ADDR. OF NORMAL M.M. TRAP ROUTINE
"RESET LOOP ON ERROR POINTER TO 1%

RS.KIPARS
RS.UIPARS
RS .UIPARS

15162

TRAP

HERE

BACK TO 12-16K

*:BRANCH TO NEXT [EST

THRU

ERRVEC(

RRENR Y

(KKTAAQ 11/44 MEM MGMT PRT A

READ AND WRITE WHILE

2753

)

2754 03373¢

2755 033736
2756

012667

MACRO M1111

IN RELOCATE MODE

1453272

8%:

145320

26=-SEP-79 12:27

MOV

PAGE 31

{(KSP) +, TRAPP(

(KSP)+.TRAPPS

2757

2758
2759 033742
2760 033746

2761 033752

2762 033760

2763 033766
2764 033774
2765

2769 033776

2770 034002
2771 034006

SEQ 0081

;SAVE PC & PS OF TRAP
:PROGRAM WILL TRAP TG HERE IF

TRY

70 USE USER/SlPERVISOR PDR'S WHEN [N KERNEL MODE

010067
004767
016767
016767

042767
104022

145330
147246
143614
143612

160000

1465304

145302

143576

MOV
JSR
MOV
MOV

BIC

ERROR

RO,VIRT1
P( ,FORMPA
SRO WASSRO
SR2.WASSR2

0166000 SRO
+22

2766
2767
2768

OR KERNEL PDR'S WHEN [N USER/SUPERVISOR MODE
SAVE VIRTUAL ADDRESS FOR ERROR REPORT
.uO FORM THE PHYSICAL ADDRESS BEING USED
;SAVE SRO £ SR2 FOR ERROR REPORT

;CLEAR ERROR BITS IN SRO

JM.M, TRAP WHILE IN RELOCATE MODF *REFERENCED WRONG SET OF PDR’S

JFOR TIGHTER SCOPE LOOP
016746

016746
000002

145260
145252

MOV

MOV
RTI

TRAPPS , = (KSP)
TRAPP(.-(KSP)

JREPLACE ERROR CALL WITH
‘A "NOPTM = 000240

JPUT PC £ PS OF TRAP ON STA(K

JRETURN TO TEST

MACRQ M1111
26-SEP=7Y 12:27
CKKTAAQ 11/44 MEM MGMT PRT A
151
READ AND WRITE WwHILE IN RELOCATE MODE
2778

NGNS N

2775

Slove/

2774

_SBTTL

PAGE 32

GRCUP &

NS NN

SEGC 0082

NSNS NN

w=BIT TESTS

NSNS NSNS NSNS NN

NN LN
UL

2776

2777

2781

;:".".."..""'Q..."'.....'Ql...'.".".t'.'ttt.'t.Q.tt".tt'

SeTEST 52

W-BIT LOGIC TEST, KERNEL PDR'S

THIS

€ PBA'S CONSTRUCTED = 17776, 37776, S7776. 77776, 77776,

De
e
e

WHICH SHOULD CAUSE THE ‘W=BIT'* TO SET IN EACH OF THE
EIGHT (8) KERNEL PAGE DESCRIPTOR REGISTERS.
THE PDR'S
ARE CHECKED TO SEE THAT IT'S Ww-BIT DOES SET WHEN THE

DOES NOT SET IN ANY OF THE OTHER PDR'S.

e
"

“e

ie
i
e

TEST WRITES

(VBA'S =

77776,

PAGE

TO EIGHT

(8)

DIFFERENT

VIRTUAL ADDRESSES

17776,37776,57776,77776,117776,137776,157776 & 17777¢

77776,

& 77776 RESPECTIVELY).

IS MAPPED

IS WRITTEN

TO AND

THAT

THE w-BIT

KERNEL PDR'S 3.4.5 & 6

ARE MAPPED TO 12-16K FOR THIS TEST.
ALSO THE W=BlT
SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO.
THE

W-BIT PORTION OF

THE PDR'S AND

ARE BEING CHECKED.

THE PAR/PDR ADRS MUX

""'Qt.tttttt't!'l.t'tflttt"t.ttt"Q'Q.Qfi'.fittt'..t.t"'ttt'lt.ttfi

634010
2782 034012
034012
034016
034022
034026
034032
034034
034036
034042

004767
012702
012700
012701
010120
077202
012705
012704

146154
000004
172346
000600

034052
034060
034064

012767
012700
012702

034060
172300
000010

034046

034070
034074

034076

034100

034102
034106
034110

034112
034114
0346120

034124
034130
034132
034134
034136
034140
034144
034146

000004

012703

012701
010120

031527
001002
104054
000422
012702
012700

031027
001403
020500
001401
104055
062700
077211
010115

2$:

172300
000010

017776

077406

077202

011313

15752:
18

145030

000002

JSR
MOV
MOV
MOV
MOV
S08
MOV
MOV

PC,TOFF
# R2
#x IPAR3,RO
#600,R1
R1, (RO)+
R2,2$
#KIPDRO.RS
#8. R4

;TURN T-BIT TRAPPING OFF FOR THIS TEST
:SET LOOP COUNTER TO 4
*LOAD ADDRESS OF KIPAR3 INTO RO
SLOAD ‘12-16K''
PAR VALUE INTO R1
:MAP PARS 3-6 TO 12-16K
SLOOP UNTIL ALL & OF THEM ARE LOADED
:LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS
:SET LOOP COUNTER TO 8

MOV
MOV
MOV

#3$ SLPERR
#X 1PDRO . RO
#8. .R2

“SET LOOP ON ERROR POINTER TO 3$
*LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO
SSET LOOP CONTER TO 8

MOV

48 :

MOV
MOV

SOB

MOV

000100

000010
172300
000100

SCOPE

5¢:

6% :

7% :

#17776.R3

¥#77606 R
R1, (RO +
R2.4$

(R$) . (R3)

BIT
BNE
ERROR

(RS) , MBI T
5¢
+56

BR
MOV
MOV

8s
#8. .R2
#K 1PDRO,RO

BIT
BEQ
cMP
BEQ
ERROR
ADD
SO8
MOV

(RO) .MBIT
78
RS,RO
7%
+55
#2.R0
R2.6$
R1. (RS)

*INITIALIZE VIRTUAL ADDRESS TO BE IN R3

SPUT *W-BIT OFF DATA'' INTO R1
*CLEAR ALL W-BITS BY WRITING TO ALL PDRS
SLOOP UNTIL ALL OF THEM ARE SET uP

‘DO 'DATO’' TO VIRTUAL ADDR.-SETTING A w-BI[T

:DID THAT CAUSE W-BIT TO BE SET?
*BRANCH IF YES
“w-BIT DID NOT GET SET IN PDR
SFOR TIGHTER SCOPE LOOP, REPLACE ERROR

SCALL WITH ‘BR 38" = 000763

*SKIP CHECKING OTHER PDR'S-ERRPOR WILL SET w-BlTS
*SET LOOP COUNTER TO 8
*LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO

*DID W=BIT IN OTHER PDRS REMAIN CLEAR?
*BRANCH IF YES
“IF Ww=BIT SET, THEN WAS IT PDR UNDER TEST?
:BRANCH IF YES
:W-BIT GOT SET IN MORE THAN ONE PDR

:FOR TGHTE SCOPE LOOP, REPLACE ERRCR
;CALL WITH "BR 3%'' = 000750

“POINT RO TO NEXT PDR TO BE CHECKED
SLOOP UNTIL ALL 8 CHECKED FOR CLEAR w-BIT
SWRITE TO THE PDR TESTED TO CLEAR W-BIT

(KKTAAD 11/44 MEM MGMT PRT A

152

w=BIT LOGIC

034150

TEST, KERNEL

036154
036156

001401
104056

031527

000100

034160
034164
034170
036172

062705
062703
077445
012767

000002
020000

5783 036200

004767

034012
146022

MACRO M1111
PDR'S

26-SEP-79 12:27

8IT

8%:
144710

2787

;«TEST

(RS) ,miB!T

8s
+56

ADD
ADD
S0B
MOV

#2 RS
#20000,R3
R4, 3$
#18 ,SLPERR

RN N

PAGE 32-1

8EQ
ERROR

JSR

PC,TON

SEQ 0083

;DID WRITING PDR (LEAR THE Ww=BIT?

JBRANCH IF YES
;W-BIT DID NOT CLEAR BY WR]TNG THE PDR
;FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL
;WITH "BR 38'' = 000740

JPOINT RS TO THE NEXT PDR TO BE TESTED
;CHANGE VIRT. ADDR TO REF. NEXT PDR
;LOOP BACK TO 3% UNTIL ALL 8 PDR'S TESTED
JRESET LOOP ON ERROR POINTER T0O 1%
JTURN T-BIT BACK ON FOR NEXT TEST

RN AR RN AR AR R AN R PR A AN R A NN AN N R RN RN AR NN RN

W-BIT LOGIC

TEST,

AR AN RN RN E RN

SUPERVISOR PDR'S

THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES

(VBA'S = 17776 .37776,57776,77776 ,117776,137776,157776 & 177776

€ PBA'S CONSTRUCTED = 17776, 37776, 57776, 77776, 77776,

WHICH SHOULD CAUSE THE 'W-BIT'' TO SET

it
.
o
B
ot
i
i

*
B

77776, 77776, & 77776 RESPECTIVELY).

IN EACH OF

THE

EIGHT (8) SUPERVISOR PAGE DESCRIPTOR REGISTERS.
THE PDR'S
ARE CHECKED TC SEE THAT IT'S W-8BIT DOES SET WHEN THE
PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE w-BIT
DOES NOT SET IN ANY OF THE OTHER PDR'S.
SUPERVISOR PDR'S 3,4,5 8 6
ARE MAPPED TO 12-16K FOR THIS TEST.
ALSO THE W=B]T
SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO.

THE

W-BIT PORTION OF THE PDR'S AND THE PAR/PDR ADRS MUX
ARE BEING CHECKED.

"‘-ttQttttttt!ttttttttttttttttttlultttttttttttttttttttt"'ttttnttt

034204
<788 034206

000004
012767

034220

012702

2789 034214

0346224
034230
034234
034236
034240
034244

034250

034254
034262
034266
034272
034276
034300

034302
034304

034310

034312

004767
012700
012701
010120
077202
012705
012704

012703

012767
012700
012702
012701
010120
077202

011313

031527

001002

143562

TSTS53:
1%:

000004

c%:

172200
000010

(17776

034262
172200
00001C
077406

000422
012702
012700
031027
001403

034336

001401

020500

SCOPE
MOV
JSR

#40000,PSW
PC,TOFF

;G0 TO SUPERVISOR MODE FOR THIS TEST
JTURN T-BIT TRAPPING OFF FOR THIS TEST

MOV
MOV
MOV
S0B
MOV
MOV

#SIPAR3 R0
#600,R1
R1,(RO)+
R2,2%
#SIPDRO.RS
#8. R4

;LOAD ADDRESS OF SIPAR3 INTO RO
;LOAD '"12-16K’'' PAR VALUE INTO R1
JMAP PARS 3-6 TO 12-16K
;LOOP UNTIL ALL & OF THEM ARE LOADED
;LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS
JSET LOOP COUNTER TO 8

MOV

172246
000600

144526

MOV

3%:
A ¥

MOV
MOV
MOV
MOV
MOV
SOR

MOV

000100

BIT

BNE

104054

03314
034316
034322
034326
034332

034334

040000
145752

ERROR

000010
172200
000100

5%:
6%:

#64 R2

#17776 ,R3

#38 SLPERR
#S1PDRO,RO
#8. R?
#77606 ,R1
R1,(RO)+
R2 49

(R$),(R3)

(RS) ,MB]T

+54

BR
MOV
MOV
BIT
BEC

8%
#8. ,R2
#SIPDRO,RO
(RO) , M1 T
7%

BEQ

’$

(MpP

RS.RO

JSET LOOP COUNTER TO 4

JINITIALIZE VIRTUAL ADDRESS TO BE IN R3

;SET LOOP ON ERROR POINTER TO 38
;LOAD ADDR. OF FIRST PDR TC BE SETUP IN RO
;JSET LOOP CONTER TO 8
;PUT ‘W=BIT OFF DATA’' INTO R1
JCLEAR ALL W-8BITS BY WRITING TO ALL PDRS
;LOOP UNTIL ALL OF THEM ARE SET LP

:DO "DATO'' TO VIRTUAL ADDR.-SETTING A W-R]T
;DID THAT CAUSE W-BIT TO BE SET?

;JBRANCH IF YES

;W-BIT DID NOT GET SET IN PDR

;FOR TIGHTER SCOPE LOOP, REPLACE ERROR

;CALL WITH *BR 3%'" = 000763

;SKIP CHECKING OTHER PDR'S—ERROR WIiL SET w-B]TS
JSET LOOP COUNTER TO 8
;LOAD ADDR. OF FIRST PDR TO BE C(HECKED IN RO
;DID W=BIT IN OTHER PDRS REMAIN CLEAR?
JBRANCH IF YES

JIF W=BIT SET, THEN WAS |T PDR UNDER TEST?
JBRANCH [F

YES

034340

26~-SEP-79 12:27

1046055

062700
077211
010115
031527
001401

000002

062705
062703
077445
012767
004767
005067

000002
020000

104056

2790

2791
2795

165620
143364

+5§

ADD

#2,R0O

SOB
MOV

BIT

000100

034206

ERROR

8% :
144506

PAGE

SCALL WITH “BR 38"= 000750

*POINT RO TO NEXT PDR TO BE CHECKED

R2.6$
R1.(RS)

(RS) .mB]T

8$
+56

ADD

#2 RS

S08
MOV

R4, 3$
#1$ SLPERR

JSR
CLR

SEQ 0084

;W=8]T GOT SET IN MORE THAN ONE PDR
:FOR TGHTE SCOPE LOOP, REPLACE ERROR

8EQ
ERROR

ADD

wey

(KKTAAD 11/44 MEM MGMT PRT A
MACRO M1111
153
w=BIT LOGIC TEST, SUPERVISOR PDR®S

SLOOP UNTIL ALL 8 CHECKED FOR CLEAR w-BIT
SWRITE TO THE PDR TESTED TO CLEAR w-BIT

:DID WRITING PDR CLEAR THE w-BIT?

*BRANCH IF YES
‘W=BIT DID NOT
LEAR BY WRITNG THE PDR
:FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL

‘WITH "'BR 38'' = 000740

*POINT RS 10 THE NEXT PDR TO BE TESTED

#20000,R3
PC,TON
PSW

*CHANGE VIRT.

ADDR TO REF.

NEXT PDR

SLOOP BACK TO 38 UNTIL ALL 8 PDR'S TESTED
“RESET LOOP ON ERROR POIN1:
TO 1%
STURN T-BIT BACK ON FOR NEXT TEST
:BACK TO KERNAL MODE BEFORE LEAVING

'-'tt.'!!'ttfittttttfitt.tt't.t"itfittt!tttttitltt..fitttttt'ttti't.t

SATEST

‘e

THIS

Ww-BIT

LOGIC

TEST WRITES

TEST,

TO EIGHT

USER PDR'S

(8)

DIFFERENT VIRTUAL ADDRESSES

(VBA'S = 17776.37776.57776.77776.,117776,137776,157776 & 177776

€ PRA'S CONSTRUCTED = 17776, 37776, S7776, 77776, (7776,

o
Se
v

77776, 77776, & 77776 RESPECTIVELY).
WHICH SHOULD CAUSE THE ‘W-BIT'' TO SET IN EACH OF THE
EIGHT (8) USER PAGE DESCRIPTOR REGISTERS.
THE PDR'S
ARE CHECKED TO SEE THAT IT°'S W-BIT DOES SET WHEN THE

o
e
o*

DOES NOT SET IN ANY OF THE OTHER PDR'S.
USER PDR'S 3.4.5 & 6
ARE MAPPED TO 12-16k FOR THIS TEST.
ALSO THE W-BIT
SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO.
THE

PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE Ww~BIT

W-BIT PORTION OF

THE PDR'S AND THE PAR/PDR ADRS MUX

ARE BEING CHECKED.

;;tttttttt.ttttttttttttttttttt.titttt'ttttttttttttttttttttttt't't

2796
2797

000004
012767
004757
012702
012700

012701

010120
077202
012705
012704

012703
012767
012700
012702
012701
010120
077202
011313
031527
001002
104054

140000

1465544
000004
177646
000600

177600
000010
017776

034470
177600
000010

077406

000100

143354

*$754:

2%:

144420

SCOPE

MOV

#1460000,PSW

MOV

#UIPAR3 RO
#600,R1
R1. (RO) +

MOV
MOV

#UIPDRO,RS
#8. R4

JSR
MOV
MOV
MOV

SOB

MOV
3%
4$:

MOV
MOV

MOV
MOV
MOV

SOR

MOV
BIT

BNE
ERROR

;60 TO USER MODE FOR THIS TEST

PC.TOFF
#4 R2

“TURN T=BIT TRAPPING OFF
*SET LOOP COUNTER TO &

R2.,2$

SLOOP UNTIL ALL 4 OF THEM ARE LOADED

#17776.R3

#38,SLPERR

#UIPDRO, RO

#8..R2
#77406,R1
R1, (RO} +

TEST

*LOAD ADDRESS OF UIPAR3 INTO RO
*LOAD ‘"12-16K'*
PAR VALUE INTO R1
:MAP PARS 3-6 TO 12-16K

“LOAD ADDRESS OF FIRST PDR TO BE
;SET LOOP COUNTER TO 8

TESTED IN RS

SINITIALIZE VIRTUAL ADDRESS TO BE IN R3
*SET LOOP ON ERROR POINTER TO 3$
*LOAD ADDR.

FIRST PDR 10 BE

*SET LOOP CONTER TO 8
SPUT ‘W-BIT OFF DATA" INTO Rl
“CLEAR ALL

W-BITS BY WRITING

R2.4$

:LOOP UNTIL ALL OF

5$
+54

*BRANCH IF YES
*W=BIT DID NOT GET SET

(R3), (R3)
(RS) .MB] 1T

FOR THIS

THEM ARE

SETUP IN RO

TO ALL

SET uP

PDRS

DO 'DATO'’ TO VIRTUAL ADDR.-SETTING A w-B]T
:DID THAT CAUSE Ww=BIT TO BE SET?
IN PDR
;FOR TIGHTER SCOPE LOOP, REPLACE ERROK

JCALL WITH "BR 38"

000763

MACRO M1111
(KKTAAQ 11/44 MEM MGMT PRT A
154
w-B1T LOGIC TEST, USER PDR'S
000422
01270c
012700
031027
001403
020500

5%:

000010
177600
000100

6%:

000002

7%:

001401
104055

034566
034570
034574
034600
034602
034610
2798 034614

0627C0
077211
010115
031527
0016N

8%:

034414

145612
143156

144300

MOV

ADD

#2,R0

BIT
BEQ
(MP
BEQ
ERROR

S08
MOV

ERROR

000002
020000

PAGE

#8. ,R2
#U]PDRO,RO

MOV

BIT
BEQ

006100

104056

062705
062703
077445
012767
004767
005067

20=SEP=79 12:27

ADD
ADD

SOB
MOV
JSR
CLR

(RO) ,MiB1T
7%
RS.RO
7%
+55

R2,6%
R1, (RS)
(RS) ,miBI1T

+56

#2,R5

#20000,R3

R4, 38

#13 ,SLPERR
PC,TON

PSW

7
H
3¢-3

SEQ 0085

JSKIP CHECKING OTHER PDR'S-ERROR WILL SET w=BJTS
JSET LOOP COUNTER TO 8
;LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO
:DID W=BIT IN OTHER PDRS REMAIN CLEAR?
;BRANCH IF YES
J1F Ww=BIT SET, THEN WAS IT PDR UNDER TEST?
JBRANCH IF YES
;W=BIT GOT SET [N MORE THAN ONE PDR
;FOR TGMTE SCOPE _(OP, REPLACE ERROR
;CALL WITH 'BR 3%'' = 000750
JPOINT RO TO NEXT PDR TO BE CHECKED
;LOOP UNTIL ALL 8 CHECKED FOR CLEAR w-BIT
JWRITE

THE

PDR

TESTED

TO CLEAR W=B]T

;DID WRITING PDR CLEAR THE W=BIT?
;BRANCH IF YES
;W=BIT DID NOT CLEAR BY WRITNG THE PDR
JFOR TIGHTER SCOPE LOOP, REPLACE ERROR (CALL
:WITH 'BR 3%’ = 000740

JPOINT RS TO THE NEXT PDR TO BE TESTED
JCHANGE VIRT. ADDR TO REF. NEXT PDR
;LOOP BACK TO 3% UNTIL ALL 8 PDR'S TESTED
JRESET LOOP ON ERROR POINTER TO 1%
;TURN

;BACK

T-BIT

BACK

TO KERNEL

ON FOR NEXT

MODE BEFORE

TEST

LEAVING

(KKTAAD 11/44 MEM MGMT PRT A
MACRO M1111
155
TEST "W=BIT NOT SET'" CASES
2810

26-SEP=-79 12:27

PAGE

7
[
33

SEQ 0086

R R
R R AR R
R

TEST "W-BIT NOT SET'' CASES

S+TEST S5
%

»
5
»

TEST

CHECKS

TWO SPECIAL

CASES WHERE

THE

W-BIT

FIRST CASE

THE Ww=BIT

THE 'DATO’'
IS ABORTED DUE

SHOULD NOT SET IM PAGE DESCRIPTOR REG.
STATUS REGC SRO (KERNEL PDR 7 IS USED).
IS NOT SET

DOES

IS THAT THE w-BIT

7 WHEN WRIiTING TO
SECOND CASE IS THAT
TO AN

ODD ADDRESS ERROR (KERNEL PDR3 & VIRTUAL ADDR 60001 ARE USED).

PR Y

THIS

NOT GET SET ON A WRITE.

2811

034620

000004

2812 034622

004767

2814 034632
2815 034640

012767
Ci0167

2813 034626
2816 034644

2817 034652

2818 034656
2819 034662
2820 034666

2821 034670
2822 034672
<823
2824

2825
2826 034674
2827 034702
2828 034710

TSTSS:
1453644

012701

077406

012767

(034656

005267

012706
016702
020102

034632
135442

023123

1%:
144250

143132

001100
135420

b2 ¥

JSR

143102
144200

4$:

RdR

R2RRRR

tRRdRRRdR

)

PC,TOFF

sTURN OFF

#28 ,SLPERR
Ri,KIPDR3

;SET LOOP ON ERROR POINTER TO 2%
JLOAD KERNEL PDR3 WITH 77406 TC CLEAR w-BIT

#77406,R1

MOV

#3$ ,ERRVEC(

MCV
MOV
INC

MOV
MOV

ERROR

003024
034622
1453172

2222

MOV

BEQ

104057

SCOPE

cMP

001401

012767
012767
004767

2222208232

MOV
MOV
JSR

60001

#KERSTK ,KSP
KIPDRZ ,R¢

T-BIT TRAPPING FOR

[HIS TEST

JPUT 'WBIT OFF'' VALUE FOR PDR IN Ri

JSET UP LOC. 4 TO 3% FOR ODD ADDR. ABORT
;CAUSE ODD ADDRESS ABORT THRU LOC. 4

JRESTORE THE STACK POINTER
;READ KIPDR3 INTO R?

R1,R?

JWAS W-BIT LEFT CLEARED?

+57

;W=BIT GOT SET DURING AN ODD ADDR.
JFOR TIGHTER SCOPE LOOP
JREPLACE ERROR CALL WITH

4“3

#TIMERR, ERRVEC
#1$ ,SLPERR
PC,TON

JBRANCH IF YES

;'BR 2%'' = 000757
;RESTORE NORMAL (PU TRAP ROUTINE

ABORT

TO LOC.4
JRESET LOOP ON ERROR POINTER TO 1%
JTURN T-BIT TRAPPING BA(K ON

(KKTAAQ 11/44 MEM MGMT PRT A

MATRO M1111

26-SEP-79

12:27

PAGE

SEQ 0087

| 2222223222222 2ARARERZAREREZRR
R
ds R RERRRRARdRARNA

2830
2831
2832

LSBTITL

RERRR 2R RARARRERRRRR RS
wxwsrasnnnnantantetnnsn (2828222220

.SBTTL

END OF

PASS ROUTINE

RRRRRRRRR N NI
S 2232322022080
222220 222222222 L 222228332222

"% INCREMENT THE PASS NUMBER (SPASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRUKC SINCE LAST PEPORT YyYyyy"
**WHERE

034714
034714
034716
034722
034726
034734
034736
034740
034742
034744
034746
034750
034754

XXXXX AND YYYYY ARE DE CIMAL

;*]F SW12=1 INHIBIT TRACE TRAP
;*]F THERES A MONITOR GO TO IT
;v]F THERE ISN'T JuMP TO LOOP

000004
005067
005267
042767
005327

$EOP:

144160
144304
100000

144276

000001
003072
012737
000001
034736

104401

000407

SCOPE
(LR
INC
8IC
DEC
$EOPCT: .WORD

BGT

MOV
$ENDCT: .WORD
$EOPCT
TYPE

034756

éigSS:

$TSTNM
$PASS
#100000, $PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1

;s 2ERO THE TEST NUMBER
;INCREMENT THE PASS NUMBER

,65%

;s TYPE ASCIZ STRING

144232

MOV

$PASS ,-(SP)

035000
035002
035006

104405
104401
000421

035010

TYPDS
TYPE

,67%

035052
035052

016746

144034

035056
035060
035064
035070
035074
035076
035100
035104

104405
104401
005067
013700
001414
005046
012746
000426

035106
035112

013700
001405

035116
035120
035122
035124

004710
000240
000240
000240

035126
035130
035134
035142
035144

104400
042716
032777
001005
005167

B8R

663

MOV

$ERTTL,~(SP)

JASCIZ

TYPDS

001221
144022
000042

TYPE

CLR
$GET4L2: MOV
BEQ

(LR

035106
SCLR.T

LR.T:

000042

000005

$ENDAD:

000020
010000
144176

143776

s YES

;;RESTORE COUNTER

;:SAVE

SPASS FOR TYPEOUT

::; TYPE PASS NUMBER

;260 TYPE--DECIMAL ASCII
;s TYPE ASCIZ STRING

WITH SIGN

;;GET OVER THE ASCIZ

TOTAL FRRORS SINCE LAST REPORT /

LSCRLF

$ERTTL
a#62 RO
$DOAGN

-(SP)

;. SAVE SERTTL FOR TYPEOUT
;s TOTAL NUMBER OF ERRORS
;.60 TYPE--DECIMAL ASCII
s TYPE

CARRIAGE

RETURN,

. :CLEAR ERROR TOTAL
;;GET MONITOR ADDRESS
;;BRANCH IF NO MONITOR

WITH SIGN

LINE

FEED

:2INSURE THE "'T'' BIT IS CLEAR

MoV
BR

#SCLR.T ,=(SP)
SRIRN

MOV
BEQ

a#62 RO
$DOAGN

::INSURE RO CONTAINS THE MONITORS
;;RETURN ADDRESS

JSR
NOP

PC, (RO

;.G0 TO MONITOR
;s SAVE ROOM

RESET

NCP

$DOAGN:

. .LO0P?

649
J;GET OVER THE ASCIZ
<12><15>/END PASS ¥/

016746

é627s:

;:DON'T ALLOW A NEG, NUMBER

BR
JASCIZ

034774
034774

NUMBERS

TRAP

817
BNE
(oM

;s CLEAR THE WORLD
;2FOR

NOP

BIC

;:SETUP FOR AN RTI OR RTT
;3G0 DO AN RT] OR RTT TO LOAD THE PSW
;;WITH A CLEARED *T' BIT

SACTIN

#20,(SP)

#BIT12,3SWR
1%
$IBIT

:2PUSH OLD PSW AND P(

ON STACK

;:RUN WITH TRACE TRAP?
;:BR IF NO
;1S IT TIME FOR TRA(LE

TRAP

;;CLEAR THE '‘T'' BIT

(KKTAAD 11/44 MEM MQMT PRT A

ENC OF PASS ROUTINE

035150
035152
035156
035162

052716
012746
000002

035164
035164
035166
035170

000137
020456
377

100402

MACRO M1111

000020
035164

26-SEP=-79 12:27

BM]
BIS

1%:

MOV

$RTRN:

RT]

$LOO0P:

377

000

2833

SRTNAD:

SENULL:
.SBTTL
a2

JMP
.WORD

PAGE

34-1

1%
#20, (SP)

SEQ 0088

;:BR IF NO
:;SET TRACE TRAP

#$.00P,~(SP)

JJUMP TO START OF

TEST

,,RETURN--THIS IS CHANGED

AN ‘RTT''
IF "RTIT'
IS A LEGAL
ION
..INSTRUCT
a(PC)+
LOOP

;JRETURN

.BYTE
=1,-1,0
.EVEN
SCOPE HANDLER ROUTINE

;sNULL CHARACTER STRING

3332332322283338880238802200220
382232040233 202302322302322322282822R23 31

:*THIS ROUTINE

CONTROLS

THE LOOPING OF

:~AND LOAD THE TEST NUMBER(STSTNM)

SUBTESTS.

IT WILL

INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)

:*AND LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY<15:08>

S«THE

SWITCH OPTIONS PROVIDED BY

LOOP ON TEST

;*SW08=1

LOOP ON TEST IN SWR<7:0>

;*SW09=1

035174
035174
035176
035204

032777
001062

035206

000416

035210
035214
035222

013746
012737
005737
012637
000431
022626
012637
000417

104410

032777
001404

127767
001433
105767
001412

032777
001404
016767
0004

163734

LOOP ON ERROR

. *CALL
o

SCOPE

1%:

CKSWR
BIT

$SCOPE:

040000

BNE

JHRARASTART OF

$XTSTR: BR

000004

035234

177060
000004

000004

143666

143660

143620

143613
143640

143602

143576

143565
143560
143554
143552
143550
143646
000001
143524
143522

163700

$OVER

CODE

FOR

THE

XOR

TST

an177060

#5$ B#ERRVEC

(SP)+,a#ERRVEC

JoYES IF SW14=1
TESTERANANA

;o
1F RUNNING ON THE "XOR'' TESTER CHANGE

2oTHIS INSTRUCTION TO & 'NOP'' (NOP 240)
;;SAVE THE CONTENTS OF

;.SET FOR TIMEOUT

::RESTORE THE ERROR VECTOR

$SVLAD

26O TO THE NEXT TEST

BIT
BEQ
CMPB
BEQ
1518
BEQ

#81708,aSWR
2%
ASWR,STSTAM

;:LOOP ON SPEC. TEST?
;;BR IF NO
;;ON THE RIGHT TEST?

#31709,aSWwR

43
SLPERR,$LPADR
$OVER
$ERFLG

,,LOOP ON ERROR?

4$:

BEQ
MOV
BR
CLRB

$OVER:

MOV
MOV
CLR
MOVB
MOV

cMP
MOV
BR
68 :; #A4HHEND OF

BIT

7$:

$SVLAD:

INCB
MOvB

MOV

THE ERROR VECTOR

S:TIME OUT ON XOR?

2%:

001000

;s TEST
FOR CHANGE IN SOFT-SWR
;:1L00P ON PRESENT TEST?

#B1T14,3SWR

@#ERRVEC,~(SP)

MOV

000400

:;SCOPE=]OT

MOV

000004

THiS ROUTINE ARE:

;*SW14=1

(SP)+, (SP)+
SSCLEAR THE STACK AFTER A TIME OUT
(SP)+,@WERRVEC
:RESTORE THE ERROR VECTOR
73
;LOOP ON THE PRESENT TEST
CODE FOR THE XOR TESTERANNNA

$OVER
$ERFLG
$SVLAD

$STSTANM
STSTNM STESTN

(SP) ,$LPADR
(SP) ,$LPERR
$ESCAPE
#1,SERMAX
$TSTNM aDISPLAY

$LPADR, (SP)

;.BR IF YES
:;HAS AN ERROR OCCURRED?
;BR IF NO

SWR<7:0>

;BR_IF NO
::SET LOOP ADDRESS TO LAST

SCOPE

;. ZERO THE ERROR FLAG

;o COUNT TEST NUMBERS
;;SET TEST NUMBER IN APT MAILBOX

;. SAVE SCOPE LOOP ADDRESS
;. SAVE ERROR LOOP ADDRESS
;;CLEAR THE ESCAPE FROM ERROR ADDRESS
J;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;:DISPLAY TEST NUMBER

. ;FUDGE RETURN ADDRESS

(KKTAAQ 11/44 MEM MGMT PRT A

SCOPE HANDLER ROUTINE

2834

035364

MACRO M1111

000002

L 7
PAGE 34-¢

26-SEP=79 12:27
RTI

.SBTTL

ERROR HANDLER ROUTINE

AN RN A AR AR

SEQ 0089
JJFIXES PS

AN R AN I N AR AN AR A NA AN AR AR RSN A NN RN SN IR AN RN AR AR

'THIS ROUTINE WILL

INCREMENT

THE ERROR FLAG AND

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF

J'AND GO TO ERRTYP ON ERROR
;*THE

SWITCH OPTIONS PROVIDED BY THIS ROUTINE
HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

;»SW15=1
;*SW13=1
;*SW10=1
;*SW09=1
s*CALL

035366
366

104410

010067
010167
010267
010367
010467
010567
116767
105267

001775
016777
032777
001402
104401

005267
011667
162767
117767
032777
001004
004767
104401

122767
001007
116767
004767
000
000
000777
005777
100002
000000
104410

035610
035616

$ERROR:

163442
002000

143626

;:TEST FOR CHANGE IN SOFT-SWR
;SAVE THE CONTENTS OF RO
;SAVE THE CONTENTS OF R1
;SAVE THE CONTENTS OF R?

R& , SREGS

;SAVE

THE CONTENTS OF Ré

;SAVE

THE TEST NUMBER

STSTNM,TESTNO

$SERFLG

#MIT10,3SWR
1%
1%:

143356
002032

000004

22%:
2%:

001000

022737
001001

035116

143350

143312
143410

163402

000042

5%:

;:STRIP AND SAVE THE ERROR ITEM CODE
;:SKIP TYPEOUT IF SET
::SKIP TYPEOUTS

HAPTENV ,SENV

;;RUNNING IN APT MODE

$ITEMB,21%
SC,SATYé

;:SET ITEM NUMBER AS ERROR NUMBER
:JREPORT FATAL ERROR TO APT

::NO,SKIP APT ERROR REPORT

0
278

::APT ERROR LOOP

;:SKIP IF

#M]1T09,aSWR
TST
8eEQ

ERRORS

;G0 TO USER ERROR ROUTINE

aSWR

I%:

;o COUNT THE NUMBER OF

PC,ERRTYP

pé

21s:

143364

032777
001402
016716
005767
001402
016716

;:GET ADDRESS OF ERROR INSTRUCTION

.SCRLF

20%:

;cBELL ON ERROR?
;:NO - SKIP

(SP) ,$ERRP(C

#BIT13,aSWR
208

143514

;:SET THE ERROR FLAG

;:RING BELL

#2 ,8ERRP(
ASERRPC.,SITEMB

143416
020000

000001

;SAVE THE CONTENTS OF RS

JSBELL

SERTTL

000002

000106
001221

;SAVE THE CONTENTS OF R3

7%
;:DON'T LET THE FLAG GO TO ZERO
$STSTNM,aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG

143500
143470

001214
143430
1463430

ITEM NUMBER

RO,S$REGO
R1.,$REG]
R2,$REGZ2

RS5,$REGS
7%:

ERROR COUNT,

ARE:

: JERROR=EMT AND N=ERROR

R3,$REG3

143651

THE

THE ERROR CALL

43
$LPERR, (SP)

$SESCAPE

5%
$ESCAPE, (SP)

#SENDAD , aN4?2
6%

JcHALT ON ERROR

CONTINUE

JeHALT ON ERROR:

:;TEST FOR CHANGE

IN SOFT-SWR

;:LOOP ON ERROR SWITCH SET?
:BR IF NO
..FUDGE RETURN FOR LOOPING

;cCHECK FOR AN ESCAPE ADDRESS

;:BR IF NONE
JJFUDGE RETURN ADDRESS FOR ESCAPE

;;ACT=11 AUTO=-ACCEPT?
:;BRANCH [F

(KKTAAQ 11744 MEM MGMT PRT A

ERROR HANDLER ROUTINE

035620
035622
035622

000000

2836 035624
2837 035630
2838 035632
2839 035634
2840 035640
2841
2842 035642
2843
2844 035646
2845 035650
2846 035652
2847 035654
2848 035656
2849 035660
2850 035662
2851 035666
2852 035672
2853 035674
2854 035676
2855 035700
2856 035704
2857 035710
2858 035712
2859 035714
2860 035716
2861 035722

104401
010046
005000
153700
001004

001221

016746

143250

2863
2864
2865
866

001472
012000
105710
001003

2862 035724

035726
035730
035732
035734

1%:

001221
000004

001221

3%:
AN

5%:

6%:

SEQ 0090

RTI

: ;RETURN

.SCRLF

TYPE
MOV
CLR
BISB
BNE

RO,-(KSP)
RO
a¥SITEMB
RO
1%

MOV

$ERRPC,~(SP)

B8R

DEC
ASL
ASL

13%

RO
RO
RO

RO
#SERRTB,RO

MOV
BEQ
2%:

PAGE 34-3

;s YES

ASL
ADD

001372
000004

HALT

TYPOC

012001

(RO)+,2$
3s

TYPE

.WORD

MoV

(RO)+,48

TYPE

.WORD

MOV

R1,-(KSP)

TYPE

MOV
BEQ
MOV

JIF ITEM NUMBER S ZERO, JUST
;TYPE

THE

PC OF

THE ERROR

;:SAVE SERRPC FOR TYPEOUT
: :ERROR ADDRESS
;:G0 TYPE--OCTAL ASCIICALL DIGITS)
JGET ouT
;ADJUST THE INDEX SO THAT T WILL
.WORK FOR THE ERROR TABLE.
;FORM TABLE POINTER

;PICKUP 'ERROR MESSAGE'' POINTER

;SKIP TYPEOUT IF NO POINTER
;TYPE THE 'ERROR MESSAGE'’

;"ERROR MESSAGE'' POINTER GOES HERE
;"'CARRIAGE RETURN''
& 'LINE FEED"’

.SCRLF

8EQ

;''CARRIAGE RETURN'' & '"LINE FEED''
;SAVE RO.
PICKUP THE ITEM INDEX

;PICKUP 'DATA HEADER'' POINTER

;SKIP TYPEOUT IF 0

;TYPE THE 'DATA HEADER''
;' DATA HEADER'' POINTER GOES HERE
;"'CARRIAGE RETURN'' & 'LINE FEED''
;SAVE R1
;PICKUP ‘DATA TABLE'' POINTER

. SCRLF

(RO)
+ ,R1
12%
(RO)+,RO

;BR IF NO DATA TO BE TYPED
;PICKUP ‘'DATA FORMAT'' POINTER

TSTB
(RO)
;IS IT FORMAT 0?
7%
BNE
:BR IF NO
;*THIS CODE IS FOR OCTAL (16-BIT) FORMAT (DF=0)
MOV
a(R1)+,-(SP)
;.SAVE a(R1)+ FPR TYPEOUT

013146
10440¢
000456

035744
035750
035752
035754
035756

121027
001003
013146
104405
000450

000001

2878 035760
2879 035764
2880 035766
2881 035770
2882 035772
2883
2884 035774
2885 036000
2886 036002
2887 036004
2888 036010

121027
001003
013146
104406
000442

000002

121027

000003

004767
062716

002640
000003

001011
012146

ERRTYP:

001114

2868 035736
2869 035740
2870 035742
2872
2873
2874
2875
2876

26=SEP-79 12:27

6%:

000002

104402
000522
005300
006300
006300
006300
062700
012067
001404
104401
000000
104401
012067
001404
104401
000000
104401
010146

MACRO M1111

2:6G0 TYPE--OCTAL ASCII(CALL DIGITS)

TYPOC

B8R
7;THIS CODE

CMPB
BNE
MOV

118
IS FOR DECIMAL FORMAT

TYPDS

;*THIS CODE

8s:

cMPB
BNE
MOV

CMPB
BNE
MOV
JSR
ADD

118%

1S FOR BINARY FORMAT

TYPSBN

BR
9;THIS CODE

(RO .M
8%
a(R1)+,=-(SP)

(RO) 42
9%
a(R1)+,-(SP)

118

IS FOR OCTAL

(RO) 43
158

:BRANCH IF NO

1 :SAVE @(R1)+ FOR TYPEQUT

:;60 TYPE~~DECIMAL ASCII WITH SIGN
(DF=2)

;IS IT FORMAT 2
BRAN(H IfF NO

::SAVE a(R1)+ FOR TYPEOUT

;.GO TYPE--BINARY AS(]I

(22-BIT)

(R1)+,-(KSP)
PC,$DB20
#3,(KSP)

(DF=1)

;IS IT FORMAT 1?

FORMAT

(DF=3)

;IS IT FORMAT 3?
:BRANCH IF NO
;PUT ADDRESS OF FIRST LOC. ON STA(K
;CONVERT TWO LOCS. TO AN ASCII STRING
JONLY NEED 8 CHARACTERS NOT 11

(KKTAAQ 117446 MEM MGMT PRT A
ERROR HANOLER ROUTINE

2889 036014

2890 036020
Sgg; 036022

2893 036026

012667

104401
000000

MACRO M1111

000002

26=~SEP-79 12:27

108

MOV

iss:

010246

MOV

0
IS FOR OCTAL

R2,~(KSP)

R3,-(KSP)
3(R1)’.R3

ASH(C
MOV
MoV
MOV

”6,R2
R2.$TMP4
R3.$TMPS
'$THP4 -(KSP)

R?2

JSR

16%:

11%:

#3,(KSP)
(KSP)*.16$

L.WORD

MOV
MOV

12%:
13%:

001221
000

14%:
LSBTTL

;PUT ADDRESS OF ASCII

CHARS. AT 10%

;TYPE OCTAL VALUE OF 22-BIT BINARY NO.

FORMAT FOR A PAR LEFT SHIFTED 6 (DF=4)

JSAVE R2 ON STA(CK

;SAVE R3 ON STACK
:LOAD DATA WORD INTO R3

;R2 HOLDS UPPER SIX BITS OF NUMBER
JSHIFT VALUE
JHOLDS LOWER
;HOLDS UPPER
;PUT ADDRESS

LEFT 6 TIMES
16 BITS OF ADDRESS
6 BITS OF ADDRESS
OF LOWER BITS ONTO STACK

;CONVERT TWO LOCS. TO AN ASCII STRING

JONLY NEED 8 CHARACTERS NOT 11
JPUT ADDRESS OF ASCI] CHARS. AT 16%
:TYPE OCTAL VALUE OF 22-BIT BINARY NO,

(KSP)+ R3
(KSP)+ R2

:RESTORE R3
;RESTORE R2

BEQ

129%

BR IF NO

TSTR

(RO)+

POINT TO NEW ‘'DATA FORMAT"'

(KSP)+ R
(KSP) +,R0
LSCRLF

JRESTORE R1
JRESTORE RO
:"'CARRIAGE RETURN'' & "LINE

TST

(R1)

TYPE

036126

040

PC, 508?0

ADD
MOV
TYPF

SEQ 0091

(22-BIT)

MOV
MOV

CLR

——

PAGE 34-4

(KSP)+,10%

TLSED

;*THIS CODE

L1468

B8R

RTS

.BYTE

MOV
MOV
TYPE
JASCIZ

TTY

;1S

THERE ANCTHER NUMBER?

:TYPE TWO(2)

SPACES

:LOOP

JRETURN

:TWO(2)

FEED"'

SPACES

INPUT ROUTINE

.'"fififi*'..fi"fi.fi'."'fififi.'t...fi""'fiii'..‘...Q*fi'fi.fi'.*'.i.'t'.!'

.ENABL

LSB

IR AR AR AN R R AN R R AN R AN AR AN R AN R

RN R AR AR N AN AR AN R

AN R RN RN RN

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
J*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE

022767
001114
105777
100111
117746
0462716

000176

$CKSWR:

142776

037067
037074
141764

037105
142714

TEST FOR CHANGE

TSTB

@$TKS

$GTSWR:

19
7% :

158

15$
@$TKB,-(SP)

#-C177.,(SP)

#7.(SP)+

(MP8
BEQ

SAUTOB.#1
15%

TYPE

T$MSWR

BNE

TYPE

MOV

TYPOC
TYPE

CLR
CLR

TSTB

IN SOF TWARE

FLAG MODE.

#SWREG, SWR

BI(
000001

IN TTY

CMP

BNE

BPL
MOVB

142772
177600
000007
142742

105777

143000

THE

;*WHEN OPERATING

SWITCH REGISTER TRAP CALL

;1S THE SOFT-SWR SELECTED?

..BRANCH IF NO
runn

THERE?

2:1F NO, DON'T WAIT AROUND
L SAVE THE CHAR

“SSTRIP-OFF THE ASCII
::IS IT A CONTROL G?

15%

©NO, RETURN TO USER

LSCNTLG

SIECHO THE

SWREG. - (SP)

LARE WE RUNNING IN AUTO-MODE?
SBRANCH IF YES
CONTROL=G

(“G)

::TYPE CURRENT CONTENTS

$:SAVE SWREG FOR TYPEOUT

,SMNEW

a$TKS

*CHAR

<(SP)
-(SP)

{:CLEAR COUNTER
;s THE NEW SWR
THERE?

’

—

(KKTAAQ 11/44 MEM MGMT PRT A
INPUT

ROUTINE

036230

100375
117746
042716

021627

26-SEP-79 12:27

MACRO M1111

8PL

142710

000003
001350
00006
1462651

000001

000100
000614
000025

142646

#6,SP
SINTAG.#1

#100,a8TKS
CNTRLC
(SP)
, 425
108

8%:

9%.

037062
000006

20%:

000015

10%:

142555

000001

000100

142552

001040
000060

LSCNTLU

n6,SP
19%

(SP) 415

16%:

JSR
(€ 4

PC,STYPEC

;cECHO CHAR

(MP

(SP) ,#67
18%

BNE
MOV
RTI

BLT

000067

BGT
BIC

000060
000002

TST

BEQ

000002

17%:

001220

18%:

177776

.DSABL
R

1F NOT TRY AGAIN
;s
J<PICK UP CHAR
J:MAKE IT 7-BIT ASCII
;oIS IT A CONTROL-C?
;cBRANCH [F NOT
JoYES, ECHO CONTROL-C (*()
JoCLEAN UP STACK
;IREENABLE TTY KEYBOARD INTERRUPTS?
; BRANCH IF NO
J;ALLOW TTY KEYBOARD INTERRUPTS
s cCONTROL=-C RESTART
;1S IT A CONTROL=-U?
; ;BRANCH [F NOT
;JoYES, ECHO CONTROL-U (*U)
;: IGNORE PREVIOUS INPUT
;;LET'S TRY IT AGAIN
JJIS IT A <CR>?

#100,381KS

ADD
TYPE
CMPR

15%:

SEQ 0092

;;BRANCH IF NO
JIJYES, IS IT THE FIRST (HAR?
;sBRANCH IF YES
;. SAVE NEW SWR
.2CLEAR UP STA(K
::ECHO <CR> AND <LF>
;JRE=-ENABLE TTY KBD INTERRUPTS?
;JBRANCH IF NOT
;;RE=ENABLE TTY KBD INTERRUPTS

TST
BEQ
MOV

L
X

142574

& —

000004
000002
000006
001221

7s
a$TKB, - (SP)

RAC177 . (SP)
(SP) 4%

177600

—_—

TTY

8 8
PAGE 34-5

ASL
ASL
ASL
INC

BIS
B8R

TYPE

BR
LS8

16$

4{SP)
119%

2(SP) ,aSWR
#6,SP
. SCRLF
#1
$INTAG,
158

(SP) ,#60
18%

#60, (SP) +

2(SP)
178
(SP)
(SP)
(SP)

2(SP)
=2(SP),(SP)
7%
$QUES

:;CHAR < 07
e

YES

. sSTRIP=-OFF ASCIlI
;:1S THIS THE FIRST (HAR
;sBRANCH IF YES
JoNO, SHIFT PRESENT
CHAR OVER TO MAKE
J.
ROOM FOR NEW ONE.
Je
;cKEEP COUNT OF (HAR
::SET IN NEW CHAR
;sGET THE NEXT ONE

JITYPE

208

:;RETURN

72<CR><LF>

;:SIMULATE CONTROL=-U

R20dRRRRRRRRRRS

S*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

s*CALL:
:t

RDCHR
RE TURN HERE

::INPUT A SINGLE CHARACTER FROM THE
Z:CHARACTER IS ON THE STACK
P:WITH PARITY BIT STRIPPED OFF

MOV

;;PUSH DOWN THE PC

036454
036456

000004

000002

036470
036472
036500

142450
177600

000004
000004

142454

$ROCHR:
1%:

MOV
TSTR
BPL
MOVB

BIC

(SP) ,=(SP)

4(SP),2(SP)
as$TkKS
19
@$TKB,4(SP)

#AC<177>,4(SP)

$:SAVE THE PS
JWAIT FOR
;A CHARACTER
:READ THE

TTY

::GET RID OF JUNK IF ANY

TTY

(KKTAAD 11/44 MEM MGMT PRT A

TTY

INPUT ROUTINE

036506
036514
036516

000004

MACRO M1111

000023

1462422

2$:

162416
177600
000021

000140

000004

000175

000040

000004

3$:

104401

005726

037052
037062

4(SP) 4140

cMP

4L(SP)
. #4175

BLT

ROUTINE

000003
001350

108 :

6$:

5% :

000025

000124
7%

JBRANCH [F

YES

;60 BACK TO USER

INPUT

A STRING FROM

R3.-(SP)
-(SP)
#STTYIN,.R3
#STTYIN+8.
,R3
4$

LSCNTLC

(SP)+,R3

THE

TTY

J2INPUT A STRING FROM THE TTY
. sADDRESS OF

FIRST

(CHARACTER WILL

;;RESTORE R3

#177,(R3)

;:GOTO CONTROL-C RESTART
..IS IT A RUBOUT

(SP)

..IS THIS THE FIRST RUBOUT?

BNE

CNTRLC

6%
#'\,9%

;BR If NO

;:BR IF NO

..TYPE A BACK SLASH

TYPE
MOV
DEC

,9%
#-1,(SP)
R3

;:SET THE RUBOUT KEY
;;BACKUP BY ONE
::STACK EMPTY?
;:BR IF YES
J:SETUP TO TYPEOQUT THE DELETED (HAR.
;:G0 TYPE
;GO READ ANOTHER (HAR.

BEQ
MOVB

78
#'\,9%

;.BR JF NO
;sTYPE A BACK SLASH

(M
8LO
MOVB
TYPE
ST

TYPE
CLR

C(MPB

B8R

(MPB

R3,#STTYIN
43
(R3),9%
,9$

(SP)

.98
(SP)
#25,(R3)
$CNTLU

#22,(R3)

;. TERMINATOR WILL BE A BYTE OF ALL 0'S
;:SAVE R3
;;CLEAR THE RUBOUT KEY
JcGET ADDRESS
J:BUFFER FULL?
;:BR IF YES
;:GO READ ONE CHARACTER FROM THE TTY
;<GET CHARACTER
;oIS IT A CONTROL=-C?
;cBRANCH IF NO
;:TYPE A CONTROL-C (*O)
;:CLEAN RUBOUT KEY OFF OF THE STACK

(MPB

JMP

TYPE

8% :

WILL

(SP)+

BNE

037062
000022

2.1S IT A CONTROL-S?
. ;BRANCH IF NO
;oWAIT FOR A CHARACTER
;.LOOP UNTIL ITS THERE
;:GET CHARACTER
;MAKE IT 7-BIT ASCII
2.1S IT A CONTROL-Q?
1F NOT DISCARD IT
;.
;. YES, RESUME
..IS IT UPPER CASE?

::1S IT A SPECIAL CHAR?
; cBRANCH IF YES
;cMAKE IT UPPER CASE

X3
#40,4(SP)

BNE
MOVB

000170

000144
037050

000134
037050

(e0)+, (R3)
#3,(R3)
108

MOV

037052

(SP)+., #21
2
18

MOVS
(MPB
BNE
TYPE

177777

aS$TKB,-(SP)

RDLIN
RETURN HERE

RDCHR

000134
037050

122713

CMP
BNE
BR

$RDL IN: MOV
CLR
1%:
MOV
28 :
cTMP
BLOS

€00256
000177

000715

#AC177.(SP)

RTI

;'
o

001006

BIC

@$TKS
2

SEQ 0093

2222222222302
220 80 20200
0
2R
AR R

-ruxc

101467
104411
112613
122713

L(SP) A23
3s

BGT
BIC
A

010346
005046
012703
022703

CMP
BNE
TSTB
BPL
MOVB

000004

¢ 8
PAGE 34-6

26-SEP-79 12:27

::RUBOUT KEY SET?

;:;CLEAR THE RUBOUT KEY
;oIS CHARACTER A CTRL U?
.:BR [F NO

J;TYPF A CONTROL VU

::GO START OVER
;. 1S CHARACTER A

.‘R'

)

THE

STA(K

(KKTAAD 11/44 MEM MGMT PRT A
ROUTINE

001011
105013

001221
037052

1064401

001220

111367
104401
122723

000046
037050
000015

105063
104401
00572¢
012603
011646

177777
001222

000701

001274

000002
000004

016746
104402
104401

016746

— B

#15,(R3)+

;2CHECK FOR RETURN

=1(R3)
LSLF
(SP)+
(SP)+,R3

J:;CLEAR RETURN (THE 15)
;:TYPE A LINE FEED
;3CLEAN RUBOUT KEY FROM THE
;;RESTORE R3

pé

;;LO00P IF NOT RETURN

(SP) ,-(SP)

0
0
8

123
040
000

SMSWR:

LASCIZ

<15><12>/SWR

SMNEW:

LASCIZ

SBTTL

CONTROL-C

CNTRLC: MOV
INC

TYPE

MOv8
MOV

TYPOC

TYPE
MOV

TYPDS

175526

1%:

s ¥

(MSG:

GTSWR
JMP
. WORD
LASCIZ
LAS(Cl]

BYTE

#STTYIN,4(SP)

/2G/<15><12>

040
000

;;ADJUST

4(SP),2(SP)

LASCIZ

000026

J:TYPE A '
;:;CLEAR THE BUFFER AND LOOP
;2ECHO THE CHARACTER

**GO PICKUP ANOTHER CHACTER

$CNTLG:

141742
000022

040
040
104
106
101
015

TYPE
TST
MOV
MOV
MOV
MOV
RTI

,SQUES
1%
(82).93

015

142064

040
125

TYPE
CMP8

;JBRANCH [F NO
;JCLEAR THE (HARACTER
JJTYPE A (R
& "LF"
;. TYPE THE INPUT STRING

$TTYIN:
$CNTLU:

037172
142030

ao%

104405
104407
000167

BR
mMovB

SEQ 0094

33
(R3)
.SCRLF
$STTYIN

015

142110
142060

037175

104401
116767

TYPE

D 8
PAGE 34-7

.BYTE
BYTE
.BLKB
LASCIZ

e lelV,P
Yo 3V, o]

037203
037206
037211
037214
037217
037222
2938 037225

040

016767
005267

8"\)'\)—‘—'—‘0'\)
WONORNNO O

2928 037142
2929 037146
2930 037150
2931 037154
2932 037160
2933 037162
2934 037164
2935 037170
2936 €37172
2937 037175
037200

075

BNE
CLRB

116

e e B P

2924 037116
2925 037124
2926 037130
2927 (037134

000004
037052

TYPE
TYPE

:
9%

037050
037051
037052
037062
037065
037067
037072
037074
037077
037102
037105
037110
037113

BNE
CLRB

104401
104401

000706

26=-SEP-"9 12:27

NEW -

THE

STACK AND PUT ADDRESS OF

FIRST ASCII

CHARACTER ON IT

;2STORAGE FOR ASCII CHAR. T0O TYPE
. cTERMINATOR
: ;RESERVE 8 QYTES FOR TTY INPUT

S CONTROL 'V’

;;CONTROL "G
-

SERVICING ROUTINE

$PASS, $TMPS
$TMPS
. CMSG

JGET THE VALUE OF "'SPASS''
sFORM CURRENT PASS #
JTYPE THE TEST STOPS HERE

18,-(SP)

;SAVE

$TSTNM,1$

,2$
$TMPS5,-(SP)
SEOP+?
0
/7

;SAVE TEST NUMBER

18 FO TYPEOUT

;SAVE STMPS FOR TYPEOUT

;TYPE

ASCI]

DECIMAL

WITH SIGN

JASK FOR NEW SWR VALUE

;JUMP TO END OF PASS + 2
JTEST & BUFFER
;2 SPACES & STOP MESSAGE

/JUMPING TO END OF PASS/<15><12>

STACK

+ JRETURN

/U/<15><12>

ANV

036752
036754
036756

o—‘o?—.—.—.-‘o
=SB
BON)
= =20

INPUT

[ P R

TTY

MACRO M11*1

THE

(KKTAAQ 11/44 MEM MGMT PRT A
TYPE ROUTINE

MACRO M1111

2939

26-SEP-79 12:27

LSBTTL

8
E
34-8

PAGE

SEQ 0095

TYPE ROUTINE

R
T
T
R

J*ROUTINE
;*THE

TO TYPE

ROUTINE

J*NOTE :

;*NOTEZ:

WILL

ASCIZ MESSAGE.
INSERT

SNULL

MESSAGE MUST

A NUMBER OF

CONTAINS THE

NULL

TERMINATE WITH 4 Q BYTE.

(HARA(CTERS AFTER A LINE

FEED.

CHARACTER TO BE USED AS THE FILLER (HARA(TER,

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

;=NOTEZ:

$FILLC CONTAINS THE CHARACTER TO FILL AFTEK.

;'(ALL:

;*1Y USING A TRAP INSTRUCTION
X

;*OR

037226
037232
037234
037236
037240
037242
037246
037254
037256
037264
037266
037272
037276
037300
037306

105767
100002

000000
000430
010046
017600
122767
0010M
132767

001405
010067
004767
000000

132767

141725

037334
037340
037342
037344
037346
037350
037354
037356
037362
037366
037370

037374
037400
037402
037406
037412
037414

1%:

000002
000001

141770

000100

161761

000004
000270
000040

141737

61%:
62%:

2%:

122716

001006
005726
104401
001221
105067
000755
004767
126726
001350
016746

000002

60%.
2%:

000011

4%:

0002060

000056

141570

000001

105367

000032
000142

000770
112716

5¢:

000040

’%:

::1S

FIRST

ADDRESS

AN ASC]Z

THERE

::BR IF YES

STRING

JsHALT HERE

;. LEAVE

A TERMINAL?
IF

TERMINAL

MOV

RO.,~(SP)

(MPR
8NE
BITR
BEQ
MOV
JSR
LMWORD
BITB
BNE

NAPTENV, SENV
JsRUNNING [N APT MODE
62%
;:NO,GO CHECK FOR APT CONSOLE
NAPTSPOOL ,$ENVM ; ;SPOOL MESSAGE TO APT
62%
;:NO,GO CHECK FOR CONSOLE
RO,61%
;s SETUP MESSAGE ADDRESS FOR APT
PC,$ATY3
;s SPOOL MESSAGE TO APT
O
; :MESSAGE ADDRESS
NAPTCSUP,SENVM ; -APT CONSOLE SUPPRESSED
603
;YES,SKIP TYPE OUT

MOV

MOVR
BNE
TST

MOV
ADD

a2i(SP) R0

(RO)+,-(SP)
49

8EQ
(MPB

;:SAVE RO

::GET ADDRESS OF ASCIZ STRING

;;PUSH CHARACTER TO BE TYPED ONTO STA(K
:2BR IF IT ISN'T THE TERMINATOR

(SP)+

J:1F

#HT, (SP)

2 ;RETURN
;;BRANCH

(SP)+,R0
#2,(SP)

RT]
(MPR

8%
#CRLF, (SP)

TERMINATOR POP

;;RESTORE RO
;2 ;ADJUST RETURN PC
[F

IT OFF

THE

;;BRANCH IF NOT <(CRLF>
J:POP
;sTYPE

CLRB
BR

$CHARCNT
’$

;. CLEAR CHARACTER COUNT
;GET NEXT CHARACTER

(MPB
BNE

SFILLC,(SP)+
23

cs1S IT TIME FOR FILLER CHARS.?
;:1F NO GO GET NEXT (HAR.

JSR

DECB

BLT

;HORIZONTAL

MOVB

PC.S$TYPEC

$NULL ,~-(SP)
1(SP)

PC.$TYPEC
$CHARCNT
7%

TAB PROCESSOR

,(SP)

STACK

<HT>

(SP) +

JSR
DECB
BR

BS:

$TPFLG

MOV

141560

105366

002770
004767

TSTR

B8P

TST
TYPE
$CRLF

6%:

s sMESADR

TYPE

BNE

000200

.MESADR

ME SADR

HALT

037310

037312
037314
037316
037320
037324
037326
037332

$TYPE:

TYPE

<CR><LF> EQUIV
A CR AND LF

;.60 TYPE THIS CHARACTER

;.GET # OF FILLER CHARS. NEEDED
;.AND THE NULL CHAR.
.c.DOES A NULL NEED

TO BE

TYPED?

::BR IF NO=--GO POP THE NULL OFF OF
;G0 TYPE A NULL
;D0 NOT COUNT AS A (COUNT

;.LOOP

;JREPLACE TAB WITH SPAC(E

STA(K

(KKTAAQ 11/44 MEM MGMT PRT A

TYPE

ROUTINE

037420
037424
037432
037434
037436
037440
037444

2940

004767
132767

000014
000007

MACRO M1111

000122

141504

037446
037454
037460
037462
037466
037472
037476
037500
037504
037506
037512
03,516
037522
037524
037532
037534
037540
037542
037550
037552
037554
037556

000002
1414664

26=~SEP-79 12:27

9%:

$TYPEC:
141476

141460
177600

JSR
BITR
BNC
TST
BR
TSTB
BPL
mMovB8
TST8
8PL
MOV

000023
141440

3%:

g3
asTPS

S$TYPEC

2(SP) ,a$TP8

as$TkKS

a$TKB, ~-(SP)

#177600, (SP)
#23,(SP)+

a$TKB,~(SP)

#177600, (SP)
051.(SP)0

000002

(MP8

000002

1%:

(MP8

00001¢

000012

PC,STYPEC

#7 ,$CHARCNT
9%
(SP)+

TSTR

141634
177600
000021

000015

PAGE 34-9

#(R,2(SP)

13
$CHARCNT
$STYPEX
#LF,2(SP)
STYPEX
(PC)+

SEQ 0096
;s TYPE

A SPA(CE

;BRANCH ]JF NOT AT
;. TAB

STOP

;.POP SPACE OFF STA(K
;:GET NEXT CHARACTER

;oWAIT UNTIL PRINTER

IS READY

;.LOAD CHAR TO BE TYPED INTO DATA REG.
;;SEE IF KEYBOARD |S TALKING.

;;BRANCH IF IT ISN'T.
;;PUSH CHARACTER ONTO STACK.
J:BIT CLEAR TOP BYTE AND PARITY BI”.
JoSEE IF THIS IS A *S.
;;BRANCH TO CONTINUE IF [T ISN'T,
J:WAIT FOR ANOTHER [NPUT,
. JBRANCH BACK IF NOT READY.
::PUSH NEXT CHARACTER ON STACK.
;:81T CLEAR TOP BYTE AND PARITY BIT.
;oSEE IF THIS IS A “Q.
. JBRANCH BACK FOR MORE WAIT [F NOQOT.
;1S CHARACTER A CARRIAGE RETURN?
;JBRANCH [F NO
::EE?;-CLEAR CHARACTER COUNTY
s

;1S CHARACTER A LINE FEED”
::BRANCH IF YES
;JCOUNT THE CHARACTER
;sCHARACTER COUNT STORAGE

INCB
$CHARCNT
: . WORD
0
STYPEX: RTS
PC
.SBTTL
APT COMMUNICATIONS ROUTINE

'"lttt'tlttfi'tttltttfittl"tttttfitit"tt'tttti‘fl"fii"""""""'

037560
037566
037574
037576
037604
037604
37606
037610
037614
037616
037624
037626
037634
037636
037642
037650
037654
037656

037662
037664
037666
037672
037674
037700
037706
037710

112767
112767
000403
112767

010046
010146
105767
001450
122767

000001
000001

000236
000226

$ATY1:
$SATY3:

000001

000220

$ATYSL:
SATY(:

MOVB
MOVB
B8R
MOVB

000206

000001

141420

000100

1641611

000004
000002
141350

000004

161356

161342

i41316

000004

000316

;.70 REPORT FATAL ERROR
;.TO TYPE A MESSAGE

M ,SFFLG

;27O ONLY REPORT FATAL ERROR

RO,-(SP)
R1,-(SP)
SMFLG
5%

;;PUSH RO ON STACK
:2PUSH R1 ON STACK
;:SHOULD TYPE A MESSAGE®

$MSGAD RO
RO
RO, SMSGLGT

;.SUB START OF MESSAGE
2.GET MESSAGE LNGTH IN WORDS
;. PUT LENGTH IN MAILBOX
;oTELL APT TO TAKE MSG.

SATY(

B8R
;o1F NOT:
;. :OPERATING UNDER APT?
3%
BR
:2]F NOT:
gAPTSPOOL,‘ENVM ;. SHOULD SPOOL MESSAGES”
s
B8R
::1F NOT:
84 (SP) ,RO
ADDR.
MESSAGE
;. GET
#2,4(SP)
;:BUMP RETURN ADDR.
SMSGTYPE
;:;SEE 1F DONE W/ LAST XMISSION®
WALIT
18
JolF NOT:
RO, SMSGAD
;:PUT ADDR I[N MA]LBOX
+
(RO)
JsFIND END OF MESSAGE
2%
NAPTENV, SENV

1%:

TST

2%:

TST8

141346

000004

#1,$FFLG
¥, SMFLG

¥4, SMSGTYPE

1% :

MOV

5%
@4 (SP) 4%

. .PUT MSG ADDR IN JSR L INKAGE

(KKTAAD 11/44 MEM MGMT PRT A

APT

COMMUNICATIONS ROUTINE

037716
037724
037730
037734
037736
037736
037742
037744
037750
037752
037756
037760
037766
037774

062766
016746
004767
000000

000002

105767
001416
005767
001413
005767
001375

000062

140046
177272

MACRO M1111

26=SEP=79 12:27

000004
6%
5¢:

10%:

141274

000004
000002
161224
000020
000013
000006

11%:

141240

12%:

SMFLG:
$LFLG:
$FFLG:

2941

- -BUMP RETURN ADDRESS

JSR
. WORD

179776,=(SP)

Sc,srvpf

::PUSK 177776 ON STACK

1ST8B

$FFLG
12%
$SENV
12%
$MSGTYPE
118
a4 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE
$SFFLG
$LFLG
SMFLG
(SP)+ R]
(SP)+ R0

;:;SHOULD REPORT FATAL ERROR>
BR
c.IF NOT:
: JRUNNING UNDER APT?
BR
;;IF NOT:
:;FINISHED LAST MESSAGE?

BEQ
BEQ
TST
BNE

INC
CLRB
CLRB
(LRB

MOV
MOV
RTS

.BYTE
.BYTE
.BYTE
.EVEN
APTS17E-200
APTENV-001
APTSPOOL=100
APT(SUP=040
.SBTTL
BINARY

000040

SEQ 0097

#2.4(SP)

MOV
ADD

000004

ADD
MOV

TST

141246

PAGE 34-10

;. CALL TYPE MACRO

WAIT

J0I1F NOT:

;.GET ERROR #
;;BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG
;. CLEAR LOG FLAG
;s CLEAR MESSAGE FLAG
;;POP STACK INTO R1
;;POP STACK INTO RO
::RETURN

;:MESSG. FLAG

0
0
0

;:LOG FLAG

;.FATAL

TO ASCII

FLAG

AND TYPE ROUTINE

T R
TR R
)

;*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A '6-B]T
;*BINARY-ASCI] NUMBER AND TYPE

.*CALL:
- w

010146
016601
000261

2942

000006

112767

000060

104401

0000¢4
040100

006101
001406
105567
000241
000765
012601
01666¢
012616
000002
000

$STYPBN:

000002
000

000034

18:

MOV

- (SP)
NUMBER,

J:NUMBER TO BE TYPED

MOV
MOV
SEC
MOvB

R1,-(SP)
6(SP) ,R1

;:SAVE R1 ON THE STA(K
;cGET THE INPUT NUMBER
J:SET "C'' SO CAN KEEP TRA(CK OF THE NUMBER OF BITS
;:SET CHARACTER TO AN ASCII 'O,
;:GET THIS BIT
s cDONE?
::NO=--SET THE CHARA(CTER EQUAL TQO THIS BIT
;260 TYPE THIS BIT
;2CLEAR "'C'" SO CAN KEEP TRA(CK OF BITS
;G0 DO THE NEXT BIT
;:POP THE STACK INTO R1

TYPBN

ROL

8tQ

AD(CB
TYPE
CLc

000004

2%:

$RIN:
.SBTTL

IT.

MOV
MOV
MOV
RV

1%
(SP)+ ,R1

2(SP) ,4(SP)
(SP)+, (SP)

0
BYTE
0.0
BINARY TO OCTAL

(ASCII)

sTYPE

:;ADJUST

THE

STACK

J;RETURN TO USER
..STORAGE FOR ASCII CHAR. AND TERMINATOR

AND TYPE

""'tt.'t.'fi."'Qtt.'tttt"'"fiittl'tl..t..t.t'tttt.i'."'ttlttt"fl

J*THIS ROUTINE

J*OCTAL

IS USED

TO CHANGE A 16-BIT BINARY NUMBER

(ASCII) NUMBER AND TYPE

IT.

TO A 6-DIGIT

J¥$TYPOS~~=ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TvPE
.*CALL:

MOV

,
- (5P)
NUM

;;NUMBER TO BE TYPED

TYPOS

.BYTE
.BYTE

,,1=TYPE

- w

]

MOV

TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS

,
- (SP)
NUM

;:NUMBER

.«CALL:
< W

000001
000006
000005

000171
000165
00015¢

$TYPOS:

$TYPOC:
$STYPON:

000145
000006
000132
000125
000012

2%:

000076

1%:

177770

NUM,~(SP)

MOV
MOov8
MOvVB
ADD
BR
MOVB
MOVB
MOvB
MOV
MOV
MCV
Movs
NEG
ADD

8{SP) ,~(SP)
1(SP) ,SOFILL
(SP) +,$0MODE
+1
#2,(SP)
$TYPON

TYPOC

MOVB
MOV
CLR

5¢:

000032

7%:

#1,80FILL
#6,$0MODE
+1
#5,80CNT
R3,-(SP)
R4 ,~(SP)
RS,~-(SP)

$OMODE +1,R4

R&
#6.R4

R4, SOMODE
$OF ILL R4
12(SP) RS

ROL
ROL
ROL

MOV
ROL

DECB
BFL
BIC
BNE
BEQ
INC
BIS
8IS
MOVS
TYPE

DECB

B3T
BLT
INC
BR

TYPED

A 16 BIT NUMBER

;oNUMBER TO BE TYPED
;;CALL FOR TYPEOUT
. :PICKUP THE MODE
:;LOAD ZERO FILL SWIT(CH
;;NUMBER OF DIGITS TO TYPE
: sADJUST RETURN ADDRESS
J:SET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
csSET THE ITERATION COUNT
;;SAVE R3

:3SAVE R4

::SAVE RS
;:GET THE NUMBER OF DIGITS 10 TYPE

;SUBTRACT IT FOR MAX., ALLOWED
;:SAVE IT FOR USE
;;GET THE Z2ERO FILL SWITCH
.sPICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD
;;ROTATE MSB INTO ‘‘C*'

ROL

260 DG MSB
;:FORM THIS DIGIT

TST

TYPEOUT OF

MOV

MOVB

1%:

FOR

TO BE

THE

;:CALL FOR TYPEQUT

;*$TYPOC--~ENTER HERE

000211

LEADING Z2EROS

;0=SUPPRESS LEADING ZEROS

;'CALL:

000000
000601
000207
000002

SEQ 0098

;. CALL FOR TYPEOUT
..'N‘1 10 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 0R O

N
M

'STVPON°°~-ENTER HERE
;*$TYPOS OR $TYPOC

0640102
040106
040114
040120
040124
0460126
040134
0460142
040150
040152
040154
040156
040162
040164
040170
040174
040200
040204
040206
040210
040212
040214
0460216
040220
04022
040224
040230
040232
040236
040240

PAGE 34-11

26-SEP=79 1¢:27

Sev.v.v,.

0.0,

MACRO M1111
(KKTAAQ 11/44 MEM MGMT PRT A
BINARY TO OCTAL (ASCII) AND TYPE

RS.R3

R3
$SOMODE
7%
#177770,R3
4%

;:GET LSB OF THIS DIGITY

;:TYPE

;:BR

THIS DIGIT?

::GET RID OF JUNK

..IEST FOR O
;s SUPPRESS THIS 0?
.BR IF

YES

..DON T SUPPRESS ANYMORE 0°'S
;sMAKE THIS DIGIT ASCII
;JMAKE ASCI] IF NOT ALREADY
::SAVE FOR TYPING
::G0 TYPE THIS DIGIT
:;COUNT 8y 1
BR IF MORE
BR 1F DONE

T0 DO

..INSURE LAST DIGIT ISN'T A BLANK
;GO DO THE .AST DIGIT

LAST

2943

040302
040304
040306
040310
0460316
040320
040322
040323
040324
040325
040326

012605
012604
012603
016666
012616
000002
000
000
000
000
000000

2h=SEP=79 12:27

£s:

000002

00000¢
8%:

MOV
MOV
MOV
MOV
MOV

PAGE

8
I
34-12
;;RESTORE RS

(SP)+ ,R3
2(SP)
4 (SP)

;,RESTORE R3

(SP)+,(5P)

RTI

SEQ 0099

(SP)+ RS

(SP)+ R4

.BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
: . WORD
$OMODE
.SBTTL
CONVERT BINARY

;;RESTORE R4
;;SET

THE

STACK FOR RETURNING

; JRETURN

.2STORAGE FOR ASCII DIGIT
;;TERMINATOR FOR TYPE ROUTINE
c;OCTAL DIGIT COUNTER
;o ZERO FILL SWITCH
JoNUMBER OF DIGITS TO TYPE

elololele

(KKTAAD 11/44 MEM MGMT PRT A
MACRO M1111
BINARY TO OCTAL (ASCI1) AND TYPE

TO DECIMAL AND TYPE ROUTINE

""Q'lt.Q."Q".'t..!t.ll‘.t"'ltfi.‘tfifi"t."'t*it.tttttt"Qfitfitttt

S¥THIS ROUTINE

1S USED

TO CHANGE A 16-BIT BINARY NUMBER

TO A 5-DIGIT

:«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:«NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
:*BEFORE

THE

FIRST DIGIT OF

: *REPLACED WITH SPACES.

s*CALL:
o
"'

040330
040330
040332
040334
040336

$TYPDS:

010046

010146
010246
010346

010546

012746
016605
100004

005405

112766
005000
012703
112723
005002
016001
160105

020200
000020

000055

000001

0460544
000040

1¢%:

2%:

040534

3%:

002402

4%:

5%:

000001
000060
000040

002746
003002
010502

000010

177777

THE NUMBER.

LEADING ZEROS WILL ALWAYS BE

MOV

- (SP)
NUM,

;;PUT THE BINARY NUMBER ON THE STA(K
2:G0 TO THE ROUTINE

MOV
MOV

RC,-(SP)
R1,-(SP)
RZ,=(SP)
R3,~(SP)
RS,=(SP)

;sPUSH
;sPUSH
::PUSH
::PUSH

TYPDS

MOV
MOV
MOV
MOV
MOV
8PL
NEG
MOVB
CLR
MOV
movs
CLR
MOV
SuB
BLT
INC
BR
ADD
TST
BNE
TSTR
BM]
ASLB

- (SP)
20200,
2C{SP) ,R5

#SDBLK R2

" C(R3)+

R2
$DTBL (RO) ,R1

6
1(SP) ,=1(R3)

#'0,R2
# R
R2,(R3)+

BGT

2%
8s

MOV

ON
ON
ON
ON

STACK
STACK
STACK
STACK

:;PUSH RS ON STACK

;:SET BLANK SWITCH AND SIGN
;;GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;:MAKE THE BINARY NUMBER POS.
J.MAKE THE ASCII NUMBER NEG.
;. IJERO THE CONSTANTS INDEX
;.SETUP THE OUTPUT POINTER
;SET THE FIRST CHARACTER 7O A BLANK
;;CLEAR THE BCD NUMRER
J:GET THE CONSTANT
;.FORM THIS BCD DIGIT
::BR IF DONE
;o INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CONSTANT
;;CHECK IF BCD DIGIT O
;FALL THROUGH IF O
;:STILL DOING LEADING 9°'S?
::BR IF YES

8CC
MOovB
8IS
BIS
MOVB
TST
4
BLI

RU
R1
R2
R3

+
(RO)
RO, 410

R5.R2

;;MSD?

;:BR IF NO
;YES==-SET THE SIGN
;sMAKE THE BCD DIGIT ASCI!
;:MAKE IT A SPACE If NOT ALREADY A DIGIT
::PUT THIS CHARACTER IN THE OUTPUT BUFFE R

ING
12 JUST INCREMENT
INDEX
TABLE
THE
;;CHECK
DIGIT
NEXT
THE
DO
;:G0
;260 TO EXIT
J;GET THE LSD

(KKTAAQ 11/44 MEM MGMT PRT A
MACRO M1111
(ONVERT BINARY TO DECIMAL AND TYPE ROUTINE
040666
040470
0640472
060474

(C00764
105726
100003
116663

040504
040506
040510
040512
040514
040516

012605
012603
012602
01260
012600
104401

040530
040532
0405364
040536

012616
000002
023420
001750

040502

040522

2944

040540
040542
040544

105013

016666

26=SEP=79 12:27

177777

040544
000002

177776

9% :

000004

000144
000012

BR
ISTB
BPL
MOVB

63
(SP)+
9%
-1(SP),=2(R3)

MOV
MOV
MOV
MOV
MOV
TYPE

(SP)+ RS
(SP)+ ,R3
(SP)+ R2
(SP)+ R
(SP)+ RO
. SDBLK

CLRBR

[0}

$DTBL:

$DRLK:
.SBTTL

MOV
RT]
10000.
7000.

PACE 34-13

SEQ 0100
;. 2G0 CHANGE TO ASCII
;WAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO
:JYES==SET THE SIGN FOR TYPING

(R3)

;:SET THE TERMINATOR

2(SP) ,4(SP)

;ADJUST THE STACK

{SP)+,(SP)

;:POP
;;POP
::POP
;:POP
:;POP
;iNOW

STACK INTO RS
STACK INTO R3
STACK INTO RZ
STACK INTO R1
STACK INTO RO
TYPE THE NUMBER

;:RETURN TO USER

100.
10.
.BLKW
4
SAVE AND RESTORE RO~RS ROUTINES

:"'ttttitttitlt'ti.lt'tfit'..tl.'Q't'!'t'l.tttttfit'l...tttt'!lttt'

:%*SAVE RO-RS

swCALL:

SAVREG

;*UPON RETURN FROM $SAVREG THE

STA(CK WILL LOOK LIKE:

;*TOP~==(+16)

Jx +2=-=-=(+18)
:* +4-=-=RS
;* +6=-=-=R4

;v +8---R3

040554
0640554
040556

010046
010146

;*+10--<R2
;¥+12---R1
;x+14---R0
$SAVREG:
MOV
MoV

060562
0460564
040566
040570
040574
040600
040604

010346
070446
010546
016646
016646
016646
016646

MOV
MOV
MOV
MOV
MOV
MOV
MOV

040560

040610

010246

000002

MOV

000022
000022
000022
000022

RT]

RO,-(SP)
R1,-(SP)

J;PUSH RO ON STACK
J;PUSH R1 ON STACK

R3,-(SP)
R4 ,-(SP)
RS,~(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

;:PUSH
J:PUSH
;:PUSH
;:SAVE
::SAVE
::SAVE
;:SAVE

R2.=-(SP)

;sPUSH R2 ON STACK
R3
R4
RS
PS
PC
PS
PC

ON
ON
ON
OF
OF
OF
OF

STACK
STAZK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

;*RESTORE RO-R5S

;*CALL:

040612
040612

012666

000022

04640622
040626
040632
040634
040636

012666
012666
012605
012604
012603

000022
000022

040616

012666

000022

RESREG
M
$RESREG:
MOV

MOV

MOV
MOV
MOV
MOV
MOV

(SP)+,22(SP)

;JRESTORE PC OF

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS
(SP)+ R4
(SP)+,R3

..RESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN fLOW
;;POP STACK INTO RS
;:POP STACK INTO R4
;.POP STACK INTO R3

{(SF)+,22(SP)

CALL

:;RESTORE PS OF CALL

(KKTAAQ 11744 MEM MGMT PRT A
MACRO M1°11
SAVE AND RESTORE RO-RS5 ROUTINES
040640

2945

MOV

(SP)+ R?

012600

MoV

(SP)+,R0O

012601

040646

000002

MOV
.SBTTL
Al

PAGE 34-14

012602

060642

0460644

26-SEP-79 12:27

(SP)+ R

SEQ 0101

;;POP STA(CK INTQ R2

;;POP STACK INTO R1

;.POP STACK INTO RO

RTI
DOUBLE LENGTH BINARY TO OCTAL ASCII

CONVERT ROUTINE

220202202222t
RSl Al

S*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER T0 AN

:*UNSIGNED OCTAL ASCIZ NUMBER.

.' «~CALL
I

MOV

RE TURN

040650
040652
040656
0460662

104413
016601
012705
012704

0460672
040674
040676
040700
040702
040704
040706
040710
040712
040714
040720
040722
040724
040726
040730
040732

012100
012101
005002
110245
010002
005304
003007
001405
005205
010566
104414
000207
006203
006001
006000
006001

040666

040734
040736

040740
040742
040744
040750
040752

012703

000002
040767
002014

177770

SAVREG
MOV
MOV MOV

MOV

1%:

000002
2%:
3%

006000
006001

006000
040302
062702
000753

$DR20:

JSR

MOV
MOV
CLR
MOVR
MOV
DEC
BGT
BEQ
INC
MOV
RESREG
RTS
ASR
ROR
ROR
ROR

ROR
ROR

000060

ROR
BIC
ADD
BR
$OCTVL: .BLKB

#PNTR,-(SP)

PC,a#$DB20

2(SP) ,R1
#$0CTVL+13.,RS
#12. R4

#~(7.,R3

(R1)+,R0
(R1)+,R1
R2
R2,~(RS)
RO,R2
R4
3
2%
RS
RS,2(SP)
PC
R3
R1
RO
R1

::POINTER

TO LOW WORD OF

;2CALL THE ROUTINE
::THE ADDRESS OF

THE

BINARY NUMBER

FIRST ASCIZ

;2SAVE ALL REGISTERS
2JPICKUP THE POINTER TO LOW WORD
;:POINTER TO DATA TABLE
::D0 ELEVEN CHARACTERS

; JMASK

IS ON THE

::LOWER WORD
;sHIGH WORD
;s TERMINATOR
::PUT CHARACTER IN DATA TABLE
;2GET THIS DIGIT
;;COUNT THIS CHARACTER
::BR IF NOT THE LAST DIGIT
::BR IF IT IS THE LAST DIGIT
:2ALL DIGITS DONE-ADJUST POINTER FOR FIRST
::ASCIZ CHAR. £ PUT IT ON THE STA(K
:;RESTORE ALL REGISTERS
;2RETURN TO USER
..POSITION THE MASK FOR THE LAST DIGIT
JPOSITION THE BINARY NUMBER FOR
32
THE NEXT OCTAL DIGIT

RO
R1

RO
R3,R2
#'0,R2
1%
14,

(HAR.

::MASK OUT ALL JUNK
;JMAKE YHIS CHAR. ASCII
::G0 PUT IT IN THE DATA TABLE
;sRESERVE DATA TABLE

STA(CK

CKKTAAD 11/44 MEM MGMT PRT A

TRAP DECODER

MACRO M1111

2947

.SBTTL
AR

040770
060772
040776
041000
041002
041004
1
0

000200

011646

000002

010046
016600
005740
111000
006300
016000

016666

26-SEP-79 12:27

PAGE 35

8
SEQ 0102

TRAP DECODER
AN

AR AN AN R RN

AR A AT AN AN R RN NN AN

NN AN SRR NN AN RN

041012
037226
040126
040102
040142
040330
040026
036202

041046
041050
041052
041054

036454
036574
040554
040612

041044

'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION
J*AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;'OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED [T WILL
;*GO TO THAT ROUTINE.

$TRAP:

000002

MOV
MOV
TST

RO,~-(SP)
2(SP) RO
-(R0O)

;:SAVE RO
::GET TRAP ADDRESS
; ;BACKUP BY 2

ASL

;;POSITION FOR

RTS

MOVB

(RO) ,RO

MOV

041024

;:GET RIGHT BYTE OF

$TRPAD (R0O) ,RO

TRAP

INDEXING

2o INDEX TO TABLE
;:G0 TO ROUTINE

;3THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO

000004

000002

$TRAPZ: MOV
MOV
.SBTTL

(SP) ,-(SP)
4(SP) ,2(SP)

RTI
TRAP TABLE

;*THIS

TABLE

CONTAINS

ROUT INE

THE

;:MOVE
;:MOVE

THE PC DOWN
THE PSW DOWN

;;RESTORE

ierAo: .WORD

036132

.SBTTL

$TYPE
$TYPOC
$TYPOS
$STYPON
$TYPDS
S$STYPBN
$GTSWR
$CKSWR
$RDCHR
S$ROLIN
$SAVREG
SRESREG

THE PSW

STARTING ADDRESSES

;*BY THE '‘TRAP'' INSTRUCTION.

041024
041026
041030
041032
041034
041036
0410640
041042

RN RNRNNAN RN

$TRAP?

;;CALL=TYPE
..CALL=TYPOC
;. CALL=TYPOS
;. CALL=TYPON
;. CALL=TYPDS
;.CALL=TYPSBN
;;CALL=GTSWR
;. CALL=CKSWR
;. CALL=RDCHR
;. CALL=RDLIN
..CALL=SAVREG
;.CALL=RESREG

THE

ROUTINES

CALLED

TRAP+1(104401)
TTY TYPEOUT ROUTINE
TRAP+2(104402)
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TRAP+3(1064403)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TRAP+4(104404)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TRAP+5(104405)
TYPE DECIMAL NUMBER (WITH SIGN)
TRAP+6(104406)
TYPE BINARY (ASCII) NUMBER
TRAP+7(104407)
GET SOFT-SWR SETTING
TRAP+10(104410) TEST FOR CHANGE [N SOF T-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
TRAP+12(104412) TTY TYPEIN STRING ROUTINE
TRAP+13(104413) SAVE RO-R5 ROUTINE
TRAP+14(104414) RESTORE RO-RS ROUTINE

POWER DOWN AND UP ROUTINES

000024
000026

:POWER DOWN ROUTINE

$PWRDN: MOV

MOV
MOV
L 01Y)
MOV
MOV
MOV
MOV

—

—t

)
~
W
N

017746
010667

041234
000340

juurd

n
~
W
~

012737
(=]

\Nn

KROSARN

e
d
d
d
b
b
b e
ed
—

ek b ed b = = = O OO
N
— =
RO

RRRRRRRRRERRR

b ek =D

""ttttttti'fl.tt.'*t.fi.‘."Qfifi.ttfit'fitt*tttlfitt!tt'ifitfiitfittttfittt

140026
000122
041130

MOV
MOV
:2VT

000024

B8R

#SILLUP, a#PWRVEC

;,SET FCR FAST UP

#3640 ,@HPWRVEC+2
RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
R5,-(SP)

;;PRIO:7
J:PUSH RO
;sPUSH R1
;;PUSH R2
;:PUSH R3
J;PUSH R4
:;PUSH RS

.~2

JJHANG UP

ON STACK

ON STACK
ON STACK
ON STACK
ON STACK
aSWR,-(SP)
J:PUSH aSWR ON STACK
SP, SSAVR6
:;SAVE SP
#SPURUP S#PWRVE C ..SET UP VECTOR

—_

012737
o

b e

b
-

—

RRRR

""tttltttittttttttttt*tit"l’tfittfitt.littttlttttttttttttt't.'tttt'

005067
005267

041234
000076
000072
000066

000024

.POWER UP ROUTINE

$PWRUP:
1%:

MOV

#SILLUP,a#PWRVEC

CLR

$SAVR6

MOV
INC

;,SET FOR FAST

$SAVRG6, SP

;:GET SP

$SAVR6

;:WwAIT FOR THE

DOWN

J:WAIT LOOP FOR THE
'NC

TTY

MACRO M1111

(KKTAAQ 11/44 MEM MGMT PRT A

2950
2951
2952

BNE

137760

MOV
MOV
MOv
MOV

nNO

001375
012677

NONSNO

000024
000026
SPWRMG:

000020
140114

000002

oY
i
lelalV,
[ NE_F 1 V]
QO = = NN
O NO

—A—J—l—l?-—l—l—h.‘o

015

1%
(SP)+,aSWR
(SP)+,R5
(SP)+,R4

#20,2(SP)

$SAVR6:

HALT

0
.ASCI2

.EVEN

SEQ 0103

WORD
;:0F
. cPOP STACK INTO @SWR
sPOP STACK INTO RS
.
. .POP STACK INTO R4
;:POP STACK INTO R3
. .POP STA(CK INTO R?
. sPOP STACK INTO R1
;. POP STACK INTO RO

(SP)+ ,R3
(SP)+,R2
(SP)+ ,R1
(SP)+ RO
#SPWRDN ,a#PWRVEC ;. SET UP THE POWER DOWN VECTOR
#340,@MPWRVE(+2 ;:PRIO:7

$TBIT

PWRMSG:

m 8
PAGE 35-1

PWRMSG
(PC)+,(SP)
START

:
$PWRAD

SILLUP:
ONNNHENON) = —
N BAOOWVIN)
NN

SINLRIFIEESEY
RN o OO

— -

WAL

RRRRRRRRRRRRRR R R RRRRRRRRRRRRRER

2949

NN [aST1aN} PONIAVININIA)
~d b d b b —d d b d

POWER DOWN AND UP ROUTINES

26-SEP-79 12:27

;;REPORT

THE POWER FAILURE

;;POWER FAIL MESSAGE POINTER
2 JRESTART AT START
s JRESTART ADDRESS

;;CLEAR 'T'" BIT
;. CLEAR THE "T'" BIT FLAG

;:THE POWER UP SEQUENCE WAS STARTED
:: BEFORE THE POWER DOWN WAS COMPLETE
;sPUT THE SP HERE

<12><15>? POWER FAILURE

= RESTARTING ?72<12><15>

(KKTAAD 11/44 MEM MGMT PRT A
MACRO M1111
26-SEP-79 12:27
ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS

2954
2955

.SBTTL

2956 041304
2957 041344
2958 041413
2959 041452

125
125
120
115

116
116
122
117

105
105
111
104

EMI1:
EM2:
EM3:
EM4:

2961 041560
2962 041643
2963 041701
2964 041745
2965 042005
2966 042054
2967 042111

113
101
123
115
115
123
115

105
040
125
105
105
122
115

122
115
115
115
115
060
122

104
102
120
123
127
120
115
104
123
123

125
101
110
122
122
101
i01
101
117
122

101
104
131
062
117
122
111
124
125
062

125
125
122
110
110
114

115
115
122
105
105
114

2960 041505

2968 042145

2969 042204
2970 042253
2971 042331
2972 042403
2973 042436
2974 042514
2975 042552
2976 042630
2977 042701
2978 042741

2979 043015

2980
2981
2982
2983
2984
2985

043055
043117
043161
043225
043316
043405

104

115

106
123
123
105
126
124
MM

125

115

117

101

122

114

2986 043470
2987 043551
2988 043621
2989 043677
2990 043752

061
106
061
116
104

070
101
070
117
111

055
125
0S5
040
106

2993 044132

062

055

2995 044273

062

055

%} 044611

116

117

040

114
114
122
104
105
116

104
104
117
104
107
104

2991 044021
2992 044074

2994 044213

2996 044351
2997 044404
2998 044441
2999 044500
3000 044544
3003 Q44647
3004 044727
3005 045026
3006
045066
3007 045116
3008 045146

3009 045216
3010 045254

116
120

102

104
127
127
127
127
117
117
127
101
122
101

122
101

117
122

101

11
055
055
055
055

105
104

040
105

104

106
102
102
102
102

107
104

N 8
PAGE 36

SEQ 0104

ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS
.NLIST BEX
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

/UNEXPECTED CPU TRAP TO LOC. 004/
/UNEXPECTED MEM. MGMT. TRAP TO LOC. 250/
/PRIORITY BITS SET WRONG IN PSW/
/MODE BITS SET WRONG IN PSW/

EM6:
EM7:
EM10:
EMI11:
EMIZ2:
EM13:
EMI4:

LASCIZ
LASCIZ
LASCIZ
_ASCIZ
CASCIZ
.ASCIZ
_ASCIZ

/KERNEL R6 CHANGED BY WRITING SUPERVISOR OR USER R6/
/A MEMORY MGMT. REG. TIMED OUT/
/SUMMARY OF MEM., MGMT. REG. TIMEOUTS/
/MEM. MGMT. REG. WOULD NOT CLEAR/
/MEM. MGMT. REG. BITS NOT SET CORRECTLY/
/SRO EFFECTED BY WRITE TO PSW/
/MMR1 DID NOT TRACK PROPERLY/

EMI16:
EMI17:
EM20:
EM21:
EM22:
EM23:
EM24:
EMZ5:
EM26:
EM27:

.ASCIZ
ASCIZ
ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/DUAL ADDRESSING BETWEEN PAR-PDR GROUPS/
/BAD RELOCATION,ON STORING DATA 18-BIT MAPPING/
/PHYS. ADDR. FORMED WRONG IN RELOCATE MODE/
/SR2 NOT TRACKING CORRECTLY/
/WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE/
/PAR OR PDR CHANGED BY A RESET/
/MAINT, MODE (SRO <8>) NOT DISABLED BY A RESET/
/DATA INCORRECT AFTER A MAINT. MODE WRITE/
/SOURCE RELOCATED IN MAINT. MODE/
/SR2 DID NOT LOCK UP CORRECT VIRTUAL ADDRESS/

EMS:

EM15:

EM30:
EM31:
EM32:
EM33:
EM34:
EM36:
EMLO:

EM41:
EM4L2:
EM43:
EM44:
EMAS:
EM46:
EM47:

EMS0:
EMS1:

EMS2:
EM53:
EMS4:
EM55:
EM56:
EMS7:

EMO6O:
DHI1:
DHZ:
DH3:
DH7:
DH10

DHM

.ASCIZ

LASCIZ

.ASCIZ

/DUAL ADDRESSING BETWEEN HIRLO BYTES OF PSW/

/MMR3 [S HOLDING THE WRONG DATA/

/FOLLOWING PAR-PDR WILL NOT ZERO/

_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

/SUMMARY OF DUAL ADDRESSING ERRORS/
/SUMMARY OF COUNT PATTERN FAILURES/
/ERROR IN BYTE ADDRESSING OF PAR-PDR/
/THE FOLLOWING ARE DUAL ADDRESSING ERRORS FOR PAR'S-PDR'S/
/THE FOLLOWING ARE COUNT PATTERN ERRORS FOR PAR'S~PDR'S/
/ILLEGAL (MODE 10) STACK POINTER NOT MAPPED TO USER/

.ASCIZ
_ASCIZ

/NO TRAP THRU ERRVEC, ON NON-EXISTANT ADDR./
/PREMATURE END OF MEMORY FOUND/

LASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ

_ASCIZ

.ASCIZ

ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

LASCIZ
LASCIZ
LACCIZ
.ASCIZ
.ASCII
.ASC1Z

.ASCI1
LASCI¢

/18-BIT MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM/
/FAULTY CARRY PROPAGATION 18-8BIT MAPPING/
/18-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY/
/NO TRAP THRU ERRVEC,AT 18-8IT ADDR. 760000/
/DIDN'T GET WRAP AROUND TO ADDRESS ZERO/

/22-BIT MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM/
/BAD RELOCATION,CARRY PROPAGATION 22-BIT MAPPING/

/22-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY/
/DID NOT GET UNIBUS ADDRESS/
/w-BIT DID NOT GET SET IN PDR/
/W-BIT SET IN MORE THAN ONE PDR/
/wW-BIT NOT CLEARED BY WRITING TO PDR/
/W-BIT GOT SET DURING ODD ADDR. ABORT/

/NO APT SPECIAL HARDWARE FOUND/

/0LD PC
OLD PSW
/0LD PC OLD PSW
/WROTE
READ
/ADDRESS TESTNO
/REGISTER-ADDRS
/AND-ED OR-ED

R6 WAS
CPUERR
TESTNO ERRORP(/
R6 WAS
SRO
SR1
SR2
TESTNO
TESTNO ERRORPC/
ERRORPC/
NUM OF /<CRLF>
TIMOUTS TESTNO ERRORPC/

/REGISTR READ
READ-(BINARY) /<CRLF>
/ADDRESS (OCTAL) 5432109876543210
TESTNO

ERRORPC/

(KKTAAQ 11/44 MEM MGMT PRT A

MACRO M1111

ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS
3011 045336
3012 045404
3013 045476
3014 045526
3015 045566
3016 045626
3017 045656
3018 045727
3019 046010
3020 046036
3021 046136
3022 046176
3023 046214
3024 046314
3025 046334
3026 046374
c/ 046434
3028 046513
3029 046613
3030 046663
3031 046703
3032 046752
3033 047002
3034 047010
3035 047051
3036 047101
3037 047153
3038 047203
2039 047233
3040 047262
3041 047326
3042 047346
3043 047406
3044 047436
3045 047506
3046 047536
3047 047576
ggzg

122
101
122
105
114
111
105
126
120
101
123
120
101
124
107
101
114
101
101
101
101
122
123
123
120
114
123
104
116
113
120
124
120
105
120
120
105

105
104
105
130
117
116
130
111
110
104
122
110
104
105
104
104
117
104
104
104
104
105
124
124
101
17
124
101
105
111
104
105
104
122
104
104
122

107
104
101
120
101
104
120
122
131
104
062
131
104
123
104
104
101
104
106
104
106
101
101
101
124
101
101
124
101
120
122
123
122
122
122
122
122

3050 047606
3051 047624
3052 047646
3053 047660

001260
001260
001162
001162

001262
001262
001164
001254

001256
001256
001254
001116

3054 047670
3055 047704
3056 047720
3057 047736
3058 047750
3059 047762
3060 047776
3061 050014
3062 050036
3063 050050
3064 050072
3065 050100
3066 050112
3067 050124

001320
001162
001162
001170
001166
001162
001162
001302
001270
001302
001254
001164
001270
001162

001316
001164
001164
001164
001164
001164
172350
001276
001164
001276
001116
001166
001172
001166

001274
001164
001166
001254
001254
001166
001164
001300
001256
001172
200
001254
00125
001254

DH12:
DH13:
DH14:
DH15:
DH16:
DH17:
DH20:
DH21:
DH22:
DH24:
DH30:
DH31:

DH32:
DH33:
DH34:
DH36:
DH40:
DH41:
DH42:
DH43:
DH&4S:
DH&46:
DH47:
DHS4:
DHSS:
DHS56:
DHS57:
DH60:
OT1:
DT2:
DT3:
DT7:

D110
DT11
DT12
DT14
D115
DT16
D117
DT20:
DT21:
DT22:
DT24:
DT25:
DT27:
DT30:

26-SEP=79 12:27
.ASCil
LASCIZ
.ASCI2
ASCIZ
.ASCIZ
.ASCII
LASCIZ
.ASCI2
.ASCII
LASCIZ
.ASCIZ
.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
. ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCI2
ASCIZ
.ASCII
.ASCIZ
.ASCIZ
(ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ
.ASCIZ
(ASCIZ
ASCIZ
EVEN
.WORD
. WORD
.WORD
.WORD

.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD

PAGE

36-1

/REGISTR WROTE
/ADDRESS (OCTAL)
/READ
TESTNO
/EXPECTD (MMR1)

/LOADED

(MMR3)

SEQ 0105
READ

READ=-(SINARY)/<( (F>

iESTNO

ERRORP(/

(OCTAL) 543210987654321
ERRORP(/

TESTNO

TFSTNO

ERRORP( /

ERRORP(/

PAR=PDR/<(RLF>
/INDEX ~ INDEX
/EXPECTD RECEIVD ADDRREAD TESTNO
ERROR >(C/
/VIR ADDR KIPAR4
GDDATA
BADDATA TESTA)
ERROKRPC(/

/PHYSICL PAR &
/ADDRESS VBA

PAR 5/<CRLF>
VBA
PAR &

PSw
PAR 5
/SR2 WAS EXPECTD TESTNO
ERRORPC(/
/PHYSICL PAR &/<CRLF>
/ADDRESS V.B.A.
PAR &
SRO WAS SR2 WA5 PSw
/TESTNO
ERRORPC/
ERRORP(C/
/ADDRESS DATA
TESTNO
ADDRAND/<CRLF>
/ADDROR
ADDRAND ADDROR
/LOADED
LOADED ENABLED ENABLED TESTNO #ERRORS/
/ADDROR
ADDRAND PATRNOR PATRNAD DATAOR
DATAAND
ERRORPC/
/ADDRESS EXPECTD RECEIVD TESTNO
/ADDRESS ADDRESS/
TESTNO/
/ADDRESS DATARED PATTERN COUNT
ERRORPC/<CRLF>
/READOF
F TESTNO
/STACK/
/STARTBK FINISHBK TESTNO
ERRORP(C/
ADDRESS/<CRLF>
/PATTERN DATA
/LOADED
FETCHED INTENDED
TESTNO
ERRORPC/
/STARTBK TESTNO
ERRORPC/
/DATA
TESTNO
ERRORPC/
/NEADDR TESTNO
ERRORP(C/
/K1PARS
LASTBLOCK TESTNO
ERRORP(/

/PDR

/TESTED

VIRTUAL /<CRLF>

ADDRESS TESTNO

TESTNO

ERRORP(C/

TESTNO

ERRORP(C/

TESTNG

#ERRORS/

ERRORPC/

/PDR IN
PDR
VIRTUAL/<CRLF>
/ERROR
TESTED
ADDRESS TESTNO
ERRORPC/
/PDR
TESTNO
ERRORP(/
/PDR WAS EXPECTD TESTNO
ERRORP(C/
/ERRORP(/

TRAPPC , TRAPPS ,WASR6 , CPUERR, TESTNG, SERRP( , 0
TRAPPC(
, TRAPPS ,WASRGO ,WASSRO,WASSR1
,WASSRZ, TESTNO,$ERRP(,0

$REGO, SREGT, TESTNO, $ERRPC .0

$REGO . TESTNO,
SERRPC ,0
ADRAND , ADDROR , TONUM . TESTNO, SERRP( , 0

$REGO, SREGT,SREGT,
TESTNO, SERRPC,0

$REGO.SREG1.$REG2.
SREG2, TESTNO, $ERRPC , 0
$REG3.SREG]
. TESTNO, SERRPC .0
$REG2.$REGY
. TESTNO, SERRPC .0

$REGO. SREG1 . SREG2, TESTNO, $ERRPC.,0
$REGO.KIPARS
, $REGT , SREG2. TESTNO
. SERRP( , 0
PBALO.VIRT1, VIRT2,$REG4, SREGS,$TMPO, TESTNO, SERROC,0
WASSRS, SREGT , TESTNO, SERRPC .0
PRALO,VIRT1,8REG4L,WASSRO,WASSR2,
$TMPO, TESTNO, SERRP( 0
TESTNO, SERRPC,
0

$REG1, SREG2, TESTNO, SERRPC .0
WASSRS , SREG4 , TESTNO,
SERRPC , 0
$REGO, $REG2, TESTNO, ERRCNT, 0

c 9
PAGE 36-2

000001

OO o
OONOO
OO

8
S

&
e

8%
%
%

N
%

%
%

s
"

T
.

Y
LI

OOON—=O000O0

000

OO0

000

$REGS, $REG3, TESTNO, SERRPC, 0

$REGO. SREGS . SREG3, TESTNO, $ERRPC .0
snsss.resruo.sipnpc.o
$ERRP(C.,0

004

DF20:
DF 24:
DF32:
DF 33:
DF43:

STMP1.$TMPS . TESTNO, SERRPC , 0
S$REG2.SREGS.
SREGO, TESTNO, $ERRPC,0
$TMP1 . TESTNO, SERRPC, 0
$REG1 . TESTNO_
$ERRPC .0
KIPARG SLSTBK, TESTNG, SERRPC .0

DF16:

$REGO. SREGT.TESTNO, 0
$REGO . SREG2 . SREG4 , SREGT, TESTNO, 0

DF2:
DF3:
DF7:
DF10:
DF11:
DF12:

$REGO, $REG2. SREG1, TESTNO, SERRPC, 0

DF1:

ADDROR ,ADRAND ,PATTOR ,PATAND ,DATAOR,DATAND,
TESTNO,ERRCNT O

X OOOOOOOOOOOO

DTS6:
DT60:

ADDROR , ADRAND , DATAOR , DATAND , TESTNO, ERRCNT , 0

M-«

3083 050360
3084 050365
3085 050375

0T31:
DT32:
DT33:
DT35:
D137:
DT41:
DT42:
DT43:
DT4LS:
DT47:
DT54:
DT55:

DA OOOWOOOOO0O0O0

b
) ——d
b

b wd ) —
=

b
d
d

—d

—_—

= NWVWN=2S0NNAN
[e XaP P Yo Yo N S F 1,V

001306
001312
001164
001254

33333333

—

N
nJ

)
)
)
b
d
—

—

RSX SRS o

001320

3081 050354

B3I3IBIII3333
S
—l—l—l—lN—l—J—b-fl—l—l—l—l

—

3068 050136
3069 050154
3070 050176
307

MACRO M1111
26-SEP-79 12:27
(KKTAAD 11/44 MEM MGMT PRT A
ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS

SEQ 0106

001334
000015
000200
001310
001306
= 177570
050360
050404
050411
050416
050424
050365
050432
050442
050375
050444
050452
050462
050401
044647
045116
045216
045336
045476
045526

= 177570

DT10
DT11
DT12
DIT4
DT15
DT16
DT17
DT2
DT20
DT21
D122
DIo4
D125
DIo7
DT3
DI30
DT31
DT32
DT33
DI35
0137
DT47
DI42
DT43
DT4S

047670
047704
047720
047736
047750
047762
047776
047624
050014
050036
050050
050072
050100
050112
047646
050124
050136
050154
050176
050212
050222
050236
050250
050264
050274

DT1

003220

HOWF LA

001340
001336
= 000011

047606

JIOTVEC=
KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPARG=
KDPAR7=
KDPDRO=
KDPDR1=
KDPDR2=
KDPDR3=
KDPDRé&=
KDPDRS=
KDPDR6=
KDPDR7=
KERSTK=

K IPARO=
KIPAR1=
KiPARZ=
KIPAR3=
K IPARGL=
K IPARS=
K IPARG=

KIPAR7=

K IPDRO=
KIPDR1=
KIPDRZ2=

KIPDR3=

KIPDR4
KIPDRS=
KIPDR6=
KIPDR7=
KSP
LF
LOOP
MGMERR
MGMFLG

2370
V]
~

HOLFLG

047660
002334
000030
041304
041701
041745
042005
042054
06211
0462145
042204
042253
041344
042331
042403
042436
042514
042552
042630
042701
042741
041413
043015
043055
043117
043161
043225
043316
041452
043405
043470
043551
043621
043677
043752
044021
044074
041505
044132
044213
044273
044351
044404
044441
044500

046752
047010
047051
047153
047203
047233
047262
047326
047406
047506
047526
047576
045066
001142
000174

DSWR

f ORMPA

GTSWR = 104407

2324
2326

7
7
7
7 2346
7 2350
7
7
72356
4
7 2302
7 2304
7
7
7
7 2314

177766

ERRVEC= 000004

045566
045626
045727
044727
046010
046136
046176
046314
045026
046334
046374
046513
046613
046663
046703

7 IO [ B
1 O
O
1
O
O
Y
1
O
I

037116

DH40
DH41
DH42
DH43
DH4S
DH46
DH4?
DHS4
DHSS
DH56
DH57
DH60
DH7
DISPLA
DISPRE

SEQ 0107

—

BPTVEC
CKSWR
CLEANU
CLRREG
CMSG

040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000014
104410
002275
002260
037175

DHIS
DH16
DH17
DH2
DHO
DHO1
DH22
DHO4
DH3
DH30
DHZ1
DH32
DH33
DH34
DHZ6

D 9
36-3

BIT?7
BIT8
BIT9

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000

PAGE

narnorn

BIT6

BIT4
BITS

BIT12
BIT13
BIT14
BIT15
BIT2
BIT3

BIT1
B8IT10
8ITN

BIT00
BIT01
BIT02
BIT03
BITO4
BITOS
BITO6
BITO7
BIT08
BIT09

ADDW15
ADDW2
ADDW3

gece 143

ZEEE TE §;£

528

ABASE
ACDW1
ACDW?

A 1}

TABLE

SYMBOL

26-SEP=-79 12:27

MACRC M1111

(KKTAAD 11/44 MEM MGMT PRT A

044544
041560

ERRTYP

044611
041643
001322
104000
035624

001304

(KKTAAQ 11/44 MEM MGMT PRT A
TABLE

STACK
START

027510
031452
021212
032312
033174
034010
034204
034412
034620
021364
021516

nhnn

104406
104405
104401
104402
104404
104403
177660
177662
177664
177666
177670
172672
177674
127676
= 177620
UDPDR1= 177622
It

172240
172242
172244
172246
172250
172252
172254
172256
172200
172202
172204
172206
172210
172212
172214

[an]

PRS

000000
000040

o)
Qo

PR3
PR4

177772
000240

PR2

PIRQ

022266
022420
022562
022622
023226
020644
023250
023546
023744
024142
024340
024536
024734
025046
020730
025160
025272
025410
025526
025644
025750
026054
026160
021052
026264
026370
026474
026570
027116
027252

001302
001332

PBALO

PCPUER

PIRQVE
PRO
PR1

26-SEP-79 12:27

—

SYMBOL

MACRO M1111

9
E
PAGE 36-4

SEQ 0108

UDPDR2= 177624
UDPDR3= 177626
= 177630
UDPDR4
UDPDRS= 177632
UDPDR6= 177634
UDPDR?7= 177636
UIPARO= 177640
UIPAR1= 177642
UIPARZ2= 177644
UIPAR3= 177646
UIPARS= 177650
UIPARS= 177652
UIPAR6= 177654
UIPAR7= 177656
UIPDRO= 177600
UIPDR1= 177602
UIPDR2= 177604
UIPDR3= 177606

UIPDR4= 177610
UIPDRS= 177612
UIPDR6= 177614
UIPDR?7= 177616
USESTK= 000600
uSP
= 2000006
VIRT1
001276
VIRT?
001300

001256
001264
001266
001270
= 000100
WwBIT
$SAPTHD
000204
SATY(C
037604
SATY1
037560
$ATY3
037566
SATYS
037576
SAUTOB
001134
$8DADR
001122
$8DDAT
001126
$BELL
001214
$8IN
040100
$CHARC
037554
$CKSWR
036132
$CLR.T
035106
$SCMTAG
001100
$CM1
000006
$CM2
000014
$CM3
000006
$CM4
000006
SCNTLC
001350
$CNTLG
037067

WASR6
WASSRO
WASSR1
WASSR?2

$CNTLU
$CORE
$CPUOP
$CRLF
$CROUT
$DBLK

037062
002676
001252
001221
002726
040544

$0820
$DEVCT
SDOAGN
$DTBL
SENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
$EOPCT
SERFLG

040650
001234
035126

040534

SERMAX
SERROR
SERRPC
S$ERRTB
SERTTL
$ESCAP
SETABL
SETEND
SFATAL
$FFLG
SFILLC
SFILLS
$GDADR
$SGDDAT
$GET42
$GTSWR
$HD
=
$HIBTS
$ICNT
SILLUP
$INTAG
$ITeMB

$K TNE X
$KTOUT

$KT11
SLF
SLFLG
$LOOP
SLPADR
SLPERR
SLSTAD

$LSTBK
SMAIL
$MBADR
SMFLG
SMNEW
$MSGAD
MSGLG
MSGTY
SMSWR
SMXCNT
SNULL

SNWTST=
$OCNT
040324
$0CTVL
040752

—

(KKTAAD 11/44 MEM MGMT PRT A

SYMBOL TABLE

$OMODE
$OVER

$PASS
SPASTM
$SPWRAD
SPWRDN
SPWRMG
$PWRUP
$QUES
$RDCHR
$RDL IN
$RDSZ =
$REGAD
$REGO

001164
001166
SREG3
001170
SREG4
001172
$REGS
001174
$RE SRE
040612
SRTNAD
035166
SRTRN
035162
$SAVRE
040554
$SAVR6
041240
$SCOPE
035174
$SETUP= 000137
$SIZE
002454
$SIZEX
0002732

040326
035352
001232
000212
041216
041056

$REG]
$REG2

041212

041130
001220
036454
036574
000010
001160

001162

050466
000000
EYRORS DETECTED:
.

MACRO M1111

ABS.

26=SEP=79 12:27
$STUP = 177777
$SVLAD
035316
$SVPC = 000204

$SWR =
$SWREG
$SWRMK=
$IBIT
$TESTN

$TKR
$7KS
$TMPO
$TMP1
$TMP?2
$TMP3

000
co1

( 232 PAGES)
VIRTUAL MEMORY USED:
59296 WORDS
( 78 PAGES)
DYNAMIC MEMORY:
20434 WORDS
EL APSED TIME:
00:07:09
(KK TAAQ.BIN,(KKTAAQ.SEQ/CRF
-CKKTAAC MLB/ML , (KK TAAQ, P17

173400
001246
000000
001346
001230

001146
001144
001176
001200
001202
001204

PAGE 36- 5

SEQ 0109
$TMP4

$TMPS

$TN
$TP8

$TPFLG
$TPS
$TRAP
$TRAP?
$TRP
STRPAD
$STSTM
STSTNM
$STTYIN
$TYPSN

001206
001210
000056
001152
001157
001150
040770
041012
000015
041024
000210
001102
037052
040026

$TYPDS
$TYPE

$TYPEC

$TYPEX
$TYPOC
STYPON

$TYPOS
SUNIT
SUNITM
SUSWR
$XTSTR
$$GET4=
$OF ILL
. $X

040330
037226
037440
037556
040126

040142
040102
001236
000214
001250
035206
000001
040325
000204

MACRO ON 259=SEP=-79 AT
(KK TAAQ
(REATED BY
SYMBOL C(ROSS REFERENCE
SYMBOL
VALUE
REFERENCES
10~ 884
ABASE
= 000000
ACDW
10-88¢
= 000000
ACDWZ
10-88¢4
= 000000
ACPUOP
10-88¢
= 000000
#10-884
ADDROR
001316
*18-1648
36-305¢4
10-884
ADDWO
- 000000
10~-884
ADDW1
- 000000
10-884
ADDW10
= 000000
ADDW11
= 00CO00
ADDW12
= 000000

APRIOR

= 000000

*+18-1630
*18-1666

*18-1642
*18-1666

12-1275
~18-1654

*18-1660

12-7298

+18-1608
*18-1660

»18-1632
*18-1666

»18-1642
+18-1666

34-2939

34-2940

#34-2940

34-2940

#34-2940

£12-1274

*18-1648
*«18=-1672

«18-1642

*18-1648
*18-1672

+18=-1672

Qo Oo
00 Qo
oo 00
o] 00
00
Q0 00 0o [0 2o Ho J
(o ) &H
e
S
&~
&~

36-3069

*18=1642

(UL
0
D

10-88¢4

D
D

10-884
10-884
10-884

(o]
eo
&~

36-3069

10-884
10-884
10-88¢4

-1424

#346-2940

H &~

#34-2940

%J\ S8 NN

AMTYPY
AMTYPSL

*18-1609
*18-1660

36-3068

(o3
00 Qo

= 000040
000001
- 000200
- 000100

AMSGTY
AMTYP1
AMTYP?2

SEQ 0110

*12-1267
»18-1660

A\ 0o o Co Co 0o OO oo o
~O 00 Oo 00 00 00 O o o

APTCSU
APTENV
APTS1IZ
APTSPO

AMAMS3
AMAMSS
AMSGAD
AMSGLG

000000
000000
000000
(000000
000000
000000
000000
000000
000000
000000
000000
(0000G0
000000
000000

+18-1654

*12-1259
*18-1654

b e

APASS

=
=
=
=
=
=
=
=
=
=
=
=
=

~884

b d

000000
- 000000
000000
- 000000
- 000000

PAGE
CREF

000000
000000
000000
000000
000000
000000
001320

b edod cd ced ed =D —d

=
-

AMADRY
AMADRSG
AMAMST
AMAMS?

= 000000
= 000000

AENV
AENVWM
AFATAL
AMADR1
AMADR?

= 000000
= 000000

]
]
[
]
J\wl\l\OOOOOOC.)OOOOOOOOO

ADDWZ
ADDW3
ADDW4
ADDWS
ADDWS6
ADDW7
ADDW8
ACDWS
ADEVCTY
ADE WM
ADRAND

= 000000
= 000000
- 000000

ADDW13
ADDW14
ADDW1S

12:%1

~-2834

-2939

10-884

*18-1672

(KKTAAD
CREATED BY
SYMBOL CROSS REFERENCE
SYMBOL
VALUE

APTIST
ASWREG
ATESTN
AINIT
AUSWR
AVECT1
AVECT2

BADPC

=
=
=
=
=

000000
000000
000000
= 000000

BITO
BITOO
BITO!
BITO2
BITO3
BITO4
BITOS
BITO6
BITO7

=
=
=
=
=
=
=
=

BITT
BITI0
BIT11
BIT12
BITI3
BIT14
BITIS
BIT2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8

=
=
=
=
-

BIT08
BITO9

(031372
000000
000000

001324

MACRO

ON 26=SEP=79 AT

10-884

#10-884

#9-807
#9-807
#9-807
#9-807
#5-807
#9-807
#9-807
#9-807
#9-807

000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400

#9-807
#9-807
#5-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
30-2317
30-0326
#5-807
#9-807
34-2833
#12-1253
25-1972

BIT9
BPTVEC
(KSWR
CLEANU

- 001000
- 000014
= 104410
002276

(LRREG

002260

(MSG
(NTRLC
CPUERR

037175
037116
- 177766

CPUEXP

001336

(R
CRLF

000015
000200

PAGE 2
CREF

S€o 011?

REFERENCES
30-2316
#30-2337
10-884
10-884
10-884
10-884
10-884
10-884
10-884
10-884
10-884

000001
000001
000002
000004
000010
000020
000040
000100
000200

= 000400
= 001000

12:31

#9-807
#5-807

+30-2487
9-807
9-807
9-807
9-807
9-807
9-807
9-807
9-807

9-807
9-807

+30-2627

34-2833
34-2833

34-2834

34-2834
34-2832
19-1770
19-1786
18-17207

34-2834
34-2833
19-1772

9-818

30-2512

30-2562

15-1442
29-2193
30-2318
30-2327

30-2341
29-2195
30-2319
30-2328

29-2236
30-2320

34-2834
21-1913
25-1978

34-2834
21-1918
26-1985

9-819

30-2397

#35-2947

29-2252
30-2321
30-2540

30-2310
30-232¢2

30-2311
30-2323

30-2312
30-2324

30-2313
30-2325

23-1930

24-1936

25-1942

25-1960

25-1966

21-1918
30-22389

22-1924
30-2291

22-1924
30-2293

23-1930
30-2295

23-1930
30-2297

24-1936
30-2299
34-2926
34-0920
#3-823

24-1936

25-1942

22-1924
26-1991
21-1918
25-194¢

#34-2937
34-2920
+12-1310

#34-2924
12-1333

*12-1340

*15-1441

*15-1444

30-2471

*30-2491

30-2611

#10-884
«30-2593
#9-807
#9-807
36-3019

12-1335
+30-2602
34-2939
13-1425
36-3022

12-1337

*30-2429

*30=2444

*30-2454

*30~2663

*30-c 568

*30-2583

34-2939
13-1425
36-3026

34-2939
36-3032

34-2939
36-3C35

36-3007
36-3041

36~3009
36-3043

36-3011

36-3016

#12-1239

+30-2631

21-1913

36-3050

21-1913

(KKTAAQ
CREATED BY MACRO
SYMBOL CROSS REFERENCE
SYMBOL

DATAND
DATAOR
DDISP
DF 1
DF10
DF 11
DF12

DF16

VALUE

001310
001306
= 177570
050360
050404
050411
050416

050424

DF 2

050365

DF 20
DF 24
DF3
]
DF 32
DF 33

050432
050442
050375

DH3T

DH32
DH33
DH34
DH36
DH&0
DH4 1
DH42
DH4 3
DH45
DH46
DH47
DH54
DH55
DH56
DH57
DHG0
DH7

#36-3090
11-896

11-1155

11-926

044647

DH2
DH20
DH21
DH22
DH24
DH3
DH30

11-890
11-933
11-940
11-947

050401

DH1

DH17

#10-884
#10-886
#9-807

050444
050452

050462

DH10
DH11
DH12
DH13
DH14
DH15
DH16

REFERENCES

11-985
11-1011
11-902
1-1035
11-1048
11-1054

DF&43
DF7

ON 26-SEP-79 AT 12:31

11-1105
11-888

045116
045216
045336
045476
045526
045566
045626

11-930
11-937
11-944
11-951
11-957
11-963
11-969

044727
046010
046136
046176
046314
045026
046334

11-89
11-982
11-989
11-995
11-1009
11-900.
11-1033

045727

046374

046513
046613
046663
046703
046752
047010
047051
047153
047203
047233
047262
047326
047406
047506
047536
047576
045066

11-976

11-1039
11-1046
11-1052
11-1058
11-1071
11-1083
11-1090
11-1096
11-1103
11-1115
11-1121
11-1127
11-1159
11-1166
11-1173
11-1179
11-1185
11-924°

)

«12-1258
«12-1254
10-884

11-972
#36-3087
11-1005
#36-3089

12-1277
*12-1276
13-1424
11-1067

PAGE 3
CREF

SEQ 0112

12-1302
+12-1301

36-3068
36-3068

36-3069
36-3069

11-1169

11-1187

#36-3083

#36-3088

11-978

11-1023

11-1092

i1-1099

11-1129

11-1135

11-1142

11-1148

11-998
11-1111
11-908
11-1042
#36-3093
#36-309

#36-3091
#36-3092
11-914
11-1162

11-920
11-1181

11-959
#36-3085

11-965

11-991

11-1017

11-1029

11-953

11-1079

11-1086

111117

11-1123

11-1175

#36-3086

#36-3084

#36-3095

#36-3003

#36-3007
11-1002
#36~3011
#36-3013
#36-3014
#36-3015
#36-3016

#36-3018

11-1021
#36-3019
11-1027
#36-3002
11-1109
11-906
#36-3025

#36-3009

#36-3004
#36-3021

#36-3024
11-912

11-918

#36-3026

#36-3028
#36-3029
#36-3030
#36-3031
#36-3032
11-1133
11-1139
11-1146
#36-3038
#36-3039
#36-3040
#36-3041
#36-3043
#36-3045
#36-3046
#36-3047
#36-3006

#36~3034
11-1152
#36-3037

#36-3035

11-1015

#36-3005

DISPLA
DISPRE
DSWR
OT1
D110
D111
DT12
DT14
DT15
D116
D117
D12
D120
D121
D122
D124
D125
D127
D73
D130
DT
D132
D133
D135
D137
0141
D142
D143
DT4S
D147
DT54
DT55
DT56
DT60
D17
DUALAD
EMTVEC
EM1
EM10
EMT
EM12
EM13
EM14
EM15
EM16
EM17

EM2
EM20
EM21
EM22
EM23
EM24

001142
000174
= 177570
047606
047670
047704
047720
047736
047750
047762
047776
047624
050014
050036
050050
050072
050100
050112
047646
050124
050136
050154
050176
050212
050222
050236
050250
050264
050274
050304
050316
050330
050344
050354
047660
002334
= 000030
041304
041701
041745
042005
042054
042111
042145
042204
042253

041344
042331
042403
042436
042514
042552

ON 26-SEP-79 AT 12:31

MACRO

REFERENCES
#10-884
*13=1424

#9-881

#9-807
11-889
11-932

11-939
11-946
11-958

11-964
11-971
11-977

Ntk ed ek e b e D OOOOOOOOO
¥
VO NOONN
= O VO ~ N (P
oo
WN—
NS00 —000H00—000N

CREATED BY

N.—h—l—l—‘—l—‘—l—l—l—l—l—l—l—.—l—l—l—l—l—l

(KK TAAQ

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

13-1424

10-884
#36-3050
#36-3054
11-1004

#36-3056
#36-3057
11-1180
#36-3059
#36-3060
11-1022
#36-3061
#36-3062
#36-3063
11-1110
#36-3065

#36-3066

11-907
#36-3067
#36-3068
#36-3069
#36-3070
#36-3071
#36-3072
11-1134
11-1141
11-1147
#36-3076
#36-3077
#36-3078
#36-3079
#36-3080
#36-3081
11-952

21-1913

13-1424
#36-2956
#36-2963

#36-2964
#36-2965
#36-2966
#36-2967
#36-2968
#36-2969
#36-2970
#36-2957
#36-2971
#36-2972
#36-2973
#36-2974
#36-2975

PAGE

CREF

SEQ 0113

34-2833

34-2834

11-913

11-919

#36-3052

#36-3073
11-1154
#36-3075

#36-3074

*13-7424

13-1624
#36-3055
#36-3058
#36-3051

#36-3064

11-1122

22-1924

#36-3053

23-1930

24-1936

25-1942

REFERENCES

RIXY

ERRTYP
ERRVEC

035624
- 000004

#9-807

12-1310

16-1493
18-1648
18-1672
19-1802

D
—

ek e

o~
N

\V,]

b
md =D
md

16-1469
18-1642
18~1672
19-1792

12-1310

12-1371
18-1642
18-1666
19-1783

33-2822

#34-2836

23-1930
25-1972
36-3068

21-1918
25-1942
26-2010
26-2030
29-2240
30-2320
30-2347
30-2535
31-2764
32-2797

23-1930
25-1966
36-3067

—

12-1280
16-1533
18-1654
18-1702
19-1826

104000

22-1924
25-1966
26-1991

\I\WO‘O@?N
[}
[e V.1, V)

NONN
===

ERROR

25-1978

OO0
&N
oUW

VO NOWNN
=S WN—=SNO0N00
00N
NN

001322

—

el cd

b cd ——d

b —ad

EML3
EML4

020

008

) —d
d

)

R RRRRRRRR
®
3

EML
EMLO
EMLT
EML2

SEQ 0114

11-1014
D

EM2S
EM26
EmM27
EM3
EM30
EmM31
EM32
EM33
EM34
EM36

PAGE 5
CREF

S@s

SYMBOL CROSS REFERENCE
SYMBOL

ON 26-SEP-79 AT 12:31

MACRO

od—-l—l—l—‘—l—l—l—.—.—.—l—l—‘—l—l—dd—‘—‘-‘—.—d—l-—l—‘-fl—A—l_‘
I
] [ '
[
] L
t
]
L
R
D
2
N
I
D
I
I
A | ] L
b e o et e (N b med
oo N =D = b d b D e e wd ) =D
b —d
b D b
lolole)
o
Qo N—l-—l—d—l—‘—l—l—l—l—l—‘—l—‘-‘—l—d
P
N
00 00N N\
NNOWNWNESWW=2NIN
=00
o
VIO =W
OOSH0NWVION
ON-—W00N

(REATED BY

(KK TAAQ

20-1886
23-1930
26-1985

30-2589
32-2789
12-1310

12-1310

20-1891
24-1936
26=-1991
26-2025
28-2148
30-2317
30-2326
30-2462
30-2618
32-2789

21-1913
24-1936
26-2005
26-2025
28-2160
30-2318
30-2327
30-2478

12-1310

30-2628
32-2797

CKKTAAQ
CREATED BY MACRO
SYMBOL CROSS REFERENCE
SYMBOL

FORMPA

ONS

GTSWR

VALUE

003220
AR AT RN

104407

ON 26-SEP-79 AT 12:31

REFERENCES

12-1310
*30-2425

#12-1394
9-881

001340
001336

#10-884
#10-884

000011
0000

#9-807
#9-807
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-820
#9-808

KDPAR&

KDPARS
KDPAR6
KDPAR7
KDPDRO
KDPDR1
KDPDR2
KDPDR3
KDPDR4
KDPDR5

KDPDR6
KDPDR7

KERSTK
KIPARD

K IPAR?
K IPAR?2
KIPAR3
K JPAR4G

*30-2517

35-2947
35-2947
35-2947
13-1425

HOWF LA
HOLFLG

IOTVEC
KDPARO
KDPAR1
KDPAR?2
KDPAR3

12-1310

30-2531

K IPARS

172352

K IPAR6
K IPAR7
KI1PDRO

172354
172356
172300

KIPDR1
KiPDR?2
KIPDR3
K IPDR4

172302
172304
172306
172310

#9-808
30-2320
*30-2375

30-2550
36-3060

SEQ 0115

CREF

13-1424

*13-1429

*13-1430

34-2833

*30-2344
34-2833

*30-2374
34-2833

13-1425
35-2947

35-2947
35-2947
35-2947

30-2422
30-2482
+30-2630

30-2513
*30-2485

*30-2490

*30-2518

«30-2563
31-2760

34-2833

35-2947
#35-2947

*30-2536
34-2939

*30-2349
30-2388
30-2554
34-2939

30-2369
*30-2393
30-2622

30-2381
30-2409
«30-2625

211913

21-1913

25-1960

25-1972

23-1930
17-1559

25-1978

26-2005

*29-2225
*29-2226
30-2321
*30-2404
*30-2564
36-3077

13-1424

30-2523

13-1424

29-2202

*26-2005

21-1913
26-2005

33~-2818
21-1613
26-2005

21-1913
26-2005

21-1913
27-2078

21-1913
28-2107

*30-2308
30-2310
30-2322
*30-2427
*30-2584

32-2782
30-2311
30-2323
*30-2445
*30-2595

30-2312
30-2324
*30-2456
*30-2596

30-2313
30-2325
*30-2457
30-2614

30-2317
30-2326
30-2474
*30-2661

30-2318
30-2327
*30-2519
*30-2720

30-2319
30-2328
*30-2547
*30-2741

*30-2376
*30-2548

30-2383
30-2552

30-2390
*30-2565

*30-2405
30-262¢4

30-2407
*30-2662

30-2484
*30-2721

*30~2520
«30-2742

30-2525

12-1310
18-1648

*29-2227
23-1930
26-2020
32-2782

*30-2309
23-1930
26-2020
32-2782

23-1930
27-2077

23-1930
27-2095

23-19 30
29-2183

*29-2191

25-1978

26-2020
30-2290

12-1394

25-1960

172346
172350

PAGE 6

26-2020
32-2782
*29-2228
*29-2229

17-1561
18-1642

+33-2815
+30-2737

33-2819

= 177572

30-2319
30-¢2328

MR3
MMVE C

= 172514
= 000c¢.v

#9-812
#9-813
#9-814
#95-808

OLDP(

001326

#10-884

001330

#10-884
#12-1295
#10-884
#10-884
#10-884
#10-884
#10-884
#10-884

MMR 1

MMR 2

= 177574

= 177576

OLDPS

PARZOU

002600

PATAND
PATTOR

001314
001312

PBALO
PCPUER

001302
001332

PARTAB

001356

PBAH]

PIRQ
PIRQVE
PRO
PR1
PR2
PR3
PR&
PRS
PR6
PR7

PS
PSW

001304

=
=
=
=
=
=
=
=
=
-

*29-2205
30-2493

*30-2471

177772
000240
000000
000040
000100
000140
000200
000240
000300
000340

177776
177776

#9-807
16-1488
16-1528
*17-1574
30-2691
«32-2798

*30-2469
*31-2755
*34-2893

34-2939
342832

#12-1356
*12-1372
*14-1438
19-1844

30-2320
30-2368

*12-1243

*12-1331
*12-1374
*18-1654

*12-1365
*18-1624

*12-1332
*13-1428
*18-1660
*30-2610
*34-2861
*34-2906

12-1334
*17-1553

*18-1666

*30-2632
*34-2886
*34-2907

*34-2900

34-2902

«30-2609
*34-2837
*34-2903

13-1431
+13-1435
17-1551
19-185¢4
30-2321

29-2204

29-2245

30-2747

19-1772
30-2310
30-2322

19-1785
30-2311

19-1793
30-2312
30-232¢4

19-1795

30-2313
30-2325

19-1805
30-2317
30-2326

30-2318
30-2327

20-1865

*30-2512
*13-1431
*30-2690
*12-1296

*30-2562

*30-2604
29-2187

*29-2187

*29-2188

*29-2204

*30-2469
30-2633

*30-2476

30-2487

*30-2489

26-1985

26-1991

36-3063
+30-2430
*30-2594

30-26434
30-2598

*30-2455
*30-2611

30-2459
30-2612

+16-1486

*16-1487
*16-1527
*17-1572
*30-2658
*32-2796

*30-2470
*31-2769
*34-2894

34-2939

30-2323

19-1816

19-1769

*14-1439
12-1310

+29-2231

+12-1273
+30-2609
+30-2470

25-1960
27-2050

*12-1260
*12-1256
*12-1417
*12-1408
+12-1333
30-2472

9-807
12-1201
*16-1492
*16-1532
*18-1603

30-2712

12-1310

*29-2245

12-1283
*30-2616
30-2492
25-1966
27-2056
12-1300
*12-1299
*12-1409

12-1337
30-2480

30-2627
*30-2610
25-1972
27-2059
36-3069
36-3069

«12-14164

*30-2380
+30-2527

*13-1432

*30-2747
12-1308
*30-2629
30-2632
25-1978

36-3061

30-2386

30-2529

~N OO\
AN S
WRIWN
= O
OO
00 &

003124

#9-807
#13-1427
12-1310
#12-1357
#9-811
19-1831

*29-2230

*12-1239
*12-1364
*17-1569

*30-2738

TPITT

MMRO

003122

*29-2202
+31-2754
*34-2889
*34-2914

+30-2719

SEQ 0116

N)—d
—d b =

MGMF L G

#9-808
#9-808
#9-808
#9-815
*12-1343
17-1562

—b

MGME RR

= 000012
020456

REFERENCES

PAGE
CREF

b —

LF
LOOP

= 172312
= 172314
= 172316
=%X000006

ON 26-SEP-79 AT 12:31

KIPDRS
KIPDR6
KIPDR?
KSP

MACRO

N =

CREATED BY

(KK TAAQ

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

*16-1525
*17-1570
19-1853
*32-2790

CREATED BY

(KK TAAQ

SYMBOL (ROSS REFERENCE
SYMBOL
VALUE
PWRMSG
041242
PWRVEC
= 000024
= 10441
ROCHR
ROL IN
= 104412
READON
001342
RESREG
= 104414
RESVEC
= 000010
RMIREG
= 177770
R6
=2000006

R?7

SAVREG
SCOPE

SDPARO

MACRO

ON 26=SEP=79 AT 12:31

REFERENCES

35-2948

#35-2949
13-1424
#35-2947

19-1806
#35-2947
13~1424

30-2345

=%000007
= 104413
= 000004

= 172260

SDPAR1
SDPAR2
SDPAR3
SDPARL
SDPARS
SOPARGE
SDPAR7?
SDPDRO
SDPDR1
SDPDR2
SOPDR3
SDPDR4
SDPDRS
SDPDR6
SDPDR7
SIPARO

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

172262
172264
172266
172270
172272
172274
172276
172220
172222
172224
172226
172230
172232
172234
172236
172240

SIPARY
SIPAR?
SIPARS
SIPARG
SIPARS
SIPARG
SIPAR7?
SIPDRO

=
=
=
=
=
=
=
=

172242
172244
172246
172250
172252
172254
172256
172200

#9-808

SIPDR1
SIPDR2
SIPDR3
SIPDR4
SIPDRS
SIPDR6
SIPDR7?

=
=
=
=
=
=
=

172202
172204
172206
172210
172212
172214
172216

#9-808
#9-808
#9-808
#9-808
#9-808
#9-808

13-1424

PAGE
CREF

35-2948

13-1424

*13-1424

#35-2947
16=-1460
18-1665

16-1483
18-1671

13-1624

*30-2424

13-1424

35-2948

21-1918

25-1966

24-1936

+26-2010

18-1654

26-2010

26-1985
21-1918
26-2010

32-2789
*30-2686
*30-2687

*30-2726
*30-2727

*30-2745
*30-2746

24-1936
26-2025

+30-2728
«30-2729

*30-2541

18-1653

18-1641

246-1935
26-2009
30-2284

*30-2682
*30-2683

35-2948

21-1917
26-1984
27-2073
32-2795

20-1864
25-1971
26-2029
32-2781

23-1929
262004
29-222°2
34-2832

*26-2025
32-2789
#9-808

35-2948

19-1818

*30-2398
*13-14624

12-1401

SEQ 0117

21-1918
26-2010

21-1918
27-2084

264-1936
27-2082

24-1936
28-2119

24~-1936
30-2294

21-1918
30-2292

25-1966
30-2664

26-1985
30-2674

26-2025
32-2789

MACRO ON 26-SEP-79 AT
(KK TAAQ
CREATED BY
SYMBOL CROSS REFERENCE
REFERENCES
SYMBOL
VALUE
#9-808
9-811
SRO
- 177572
18-1746
*18-1744
SR
SRQ

= 177574
- 177576

SSP
STACK
START
STKLMT
SUPSTK
SWR

=X000006
= 001100
020000
= 177774
= 000700
001140

SR3

SWREG
SW0
SW00
Sw0l
SW02
SW03
SWo4
SW0S
SW06
Sw07
SW08
SW09
Sw1
SW10
swil
swi2
swi3
Swié
SWi5
Sw2
Sw3
St
SWS
SWo
4
Sw8
Swo

TBIT
18ITPS
TBITVE
TESTNO

= 172516

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

=
=
=
=
=
=
=
=
=
=
=

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000

= 000020
001272
= 000014
001254

29-2253

#9-808
#9-808
#9-808

+29-2258
9-812
9-813

12:31

PAGE 9

8 10
SEw 0118

CREF

*12-1370

12-1310
*18-1752

#9-816

#9-807
9-881
#9-807
#9-821

34-2833

36-3054

36~3063
36-3072

36-3055
36-3064
36-3073

36-3056
36-3065
36-3074

18-1660

18-1666

18-1672

*19-1832
13-1428

*19-1839

13-1424

«13-1424

#9-881
#9~-807

13-1425

34-2920

12-1219
12-1221

*12-1222

*13-1436

36-3051
36-3060
36-3069
36-3078

36-3052
36-3061
36-3070
36-3079

36-3053
36-3062
36-3071
36-3080

34-2833

34-2832

31-2762

~13-1424

34-2833
35-2948

34-2834

18-1688

*29-2252

29-2254

#10-884

18-1606

*29-2234

*29-2203

*13-1424

34-2834

34-2920

#9-807

#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-807

#9-807
#9-807
#9-807
#9-807
#9-807
#9-807
#9-818
#10-884
#9-807
#10-884

36~-3057
36-3066
36-3075

TIMERR

003024

#12-1323

TIMFLG
TKVE

003026
000060

#9-807

30-2425

#12-1324

12-1201
*12-1204
13-1424
*34-2834

18-1642

*12-1341

*13-1434

18-1648

18-1654

CREATED BY

(KK TAAQ

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

ON 26=SEP-79 AT 12:31

REFERENCES
#12-1201
29-218¢2
#12-1219
29-2207
+18-1610
#10-884

PAGE

CREF

TPVE(
TRAPP(

000064
001260

#10-884

*12-1364

TRAPPS

001262

#10-884

*12-1365

TRAPVE
TRTVEC

000034
000014
020566
021650
022002
022134
022266
022420
022562
022622
023226
020644
023350
023546
023744
024142
024340
024536
024734
025046
020730
025160
025272
025410

TS120
TST21
TST22
TST23
1ST24
TST25
TST26
1ST127
TST3

TST30
1ST31

7ST32
TST33

TST34
TST35
TST136
1S137

TST4
T1ST40
TST41
TST42
TST43
TST&44
TST4S
TST46
TST147

TSTS
TST50
TSTS51
TSTS?

13-1424

00N

T1ST16
1ST17
1ST2

#26-2024
#26-2029
#27-2045
#27-2073
#29-2181
#29-2222

292249
30-2340
17-1576

30-2465
30-2605
30-2749

#21-1917
#22-1923
#23-1929
#24-1935
#25-1941
#25-1959
#25-1965

#25-1971
#25-1977
#26-1984
#26-1990
#26-2004

#30-2284

30-2343

#18-1601
#30-2509
#30-2656
#32-2781

18-1648
18-1666

*18-1654
*18-1672

#18-1686

O VN0 O OO OO0 0

TST14
TST1S

o~ OR B WWN) — = =00 o
o~ VOO
WA NS oo

TST13

36~3050

TST
1ST10
TST1Y
TST12

002172
002226
001274

36-3050

SEQ 0119

TOF
f
TON
TONUM

~18-1648
+18-1666
#9-807

¢ 10

30-2348

#30-2365

12-1373

*29-2256

29-2264

*+31-2754

31-2770

*29-2257

29-2263

*31-2755

31-2769

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

034204
034412
034620
021364
021516

TST153

TST54
TSTSS
TST6
1S17

104406
104405
104401

[

TYPOC
TYPON
TYPOS

]

TYPBN
TYPDS
TYPE

UDPARO
UDPAR1

UDPAR2
UDPAR3
UDPARS

UDPARS

UDPARG
UDPAR7
UDPDRO
UDPDR1
UDPDR2
UDPDR3
UDPDR4
UDPDRS
UDPDR6

UDPDR?7
UIPARO

104402
104404
104403
177660
177662
177664
177666
177670
177672
177674
177676
177620
177622
177624
177626
177630
177632
177634

177602
177604
177606
177610
127612
177614
177616
000600
000006

USESTK
USP

T
T
T I
T O T
T
L

UIPDR6

UIPDR?

UIPDR1

UIPDRS

REFERENCES

#32-2787
#32-2795
#33-2810
18-1622
18-1642

34~2881
34-2832
13-1425
34-2858
34-2920
34-2920
34--29¢42
342844

#18-1641
#18-1647
#35-2947

34-2832
34-2832
34-2860
34-2920
34-2920
34-2943
36-2869

#35-2947
#35-2947
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#95-808
#9-808
#9-808

34-2875
34-2832
34-2890
34-2920
34-2920

#35-2947

34-2920

22-1924

25-1942

PAGE

CREF

34-2932
34-2832
34-2904
364-2920

D 10
SEQ 0120

#35-2947

34-2834
342910
34~2920
34-2920

34-2920
35-2948
34-2926

#35-2947

26=1991
22-1924
26-201%

22-1924
27-2090

34-2834
34-2915
34-2920
34-2926

34-2836
34-2920
34-2920
34-2930

34-2853
34-2920
34-2920
34-2939

34-2855
34-2920
34-2920
34-2941

22-1924
30-2296

22-1924
30-2663

26-2015

25-1942
30-2298

26-1991
30-2673

26-2030
32-2797

#9-808
#9-808

12-1397
26-2015

177640

177642
177644
177646
177650
177652
177654
177656
177600

UIPDR4

ON 26-SEP-79 AT 12:31

177636

UIPAR1
UIPARZ2
UIPAR3
UIPARS
UIPARS
UIPARG
UIPAR?7
UIPDRO

UIPDR?
UIPDR3

MACRO

32-2797
+30-2684
*30-2685

#9-817

26-2015

*30-2732

*30-2733

*30-2743
«30-2744

18-1672
26-2030
32-2797

25-1942
26-2030

25-1942
27-2089

*30-2680
*30-2681

+30-2716
*30-2717

+30-2730
*30-2731

*30-2739
*30-2740

57
57

*17-1573

19-1843

*19-1844

*26-2030
32-2797

#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-808
#9-822

18-1666

*30-2714
*30-2715

1 7-1
1 7-1

(UL AN, )

CREATED BY

(KKTAAQ

*19-1845

*19-1852

(KK TAAQ

CRTATED BY

SYMBOL CROSS REFERENCE
VAL UE
SYMBOL
VIRT]

VIRT2

MACRO

ON 26-SEP-79 AT 12:31

#10-884
#10-884
#10-884
#10-884

WwBIT

#7-819

$8IN

SCHARC
$CKSWR
$CLR.T
SCMTAG
(M

36~3062

000204
& 2]
LAAR

037604
037560
037566
037576
001134
001122

001126
001214
040100

037554
036132
035106
001100

000006

(M2

000014

$(M3

000006
000006

SCNTLC
$CNTLG
$CNTLU
$(ORE
$CPUOP
$CRLF

001350
037067

$CROUT
$DBLK
$0820
$DEVCT
$OOAGN
$OTBL
SENDAD
T
SENDC
SENULL
$SENV
SENVM

002726
040544
040650
001734
035126
04605%4
03516
034744
035170
001244
001245

(M4

037062
002676
001252
001221

CREF

REFERENCES
#10-884
12-1402
#10-884
»30-2698

WASRG
WASSRO
WASSR1
WASSR?

$APTHD
$ASTAT
SATY(
$ATY]
$ATY3
SATYSL
$SAUTOB
$BDADR
$SBDDAT
$BELL

PAGE

32-2797
9-883
34-2940
34-2940

#34-2940

34-2939
34-2834

#10-884
#10-884
#10-88¢4
#10-884

*34-2941
* 342939

#34-2920

34-2832

#10-884
#10-884
#10-884
#10-884
#10-884
#10-88¢4
#10-88¢4
#10-884
#10-884
#10-884
#10-884
#10-884

34-2920

34-2920
12-1310
#10-884
#10-884

34-2920
12-1310
34-294%
34-2887

#10-884

34-2832
34-2943

9-882
13-1424
#34-2832
#10-884
#10-884

E 10
SEQ 0121

*30-2699

30-2707

*31-2759

*29-2255
*31-2761

36-3050
36-3051

36-3051
36-3063

18-1700

*18-1719

32-2782

32-2789

#34-2940
#34-2940
*13-1425

34-2920

34-2834
2342941
*34-2939
35-2947

34-2834
34-2941
34-2939
35-2947

13-1424
10-884
10-884

#10~-884
#10-884

#10-884
#10-884

10-884
10-884

10-88¢4
10-884

10-884
10-884

#10-884
#10-884

10-884
10-884

#10-884
#10-884

10-884
10-884

*12-1334
*12-1367
«12-1368
*12-1369

36-2063
32-2782

36-3061

36-3063

18-1720

*29-2254

*31-2762

36-3051

32-2789

32-2797

#9-883

34-2940

#34-2940

#34-2832

10-884

10-88¢

34-283¢4

#34-2941

*34-2939
13-1424

#10-884
#10-884

10-884
10-884

10-88¢4
10-884

34-2920

#34-2920

364-2832
34-2920

34-2834
34-2920

34-2943
34-2901

#34-2943
#34-2945

34-2832

#34-2832

34-2834

30-2338
34-2939

34-2834
34-2939

#34-2920
#12-1310

#12-1310

#34-2943
13-1425
#34-2832

13-1425
13-1424

#34-2939

13-1424

10-884
10-884

34-2920

34-2834
34-2920

34-2834

34-2836
34-2939

342855
34-2939

34-2939
34-2940

34-2940

34-2939

34-2860

34-2915

CREATED BY
SYMBOL CROSS REFERENCE
SYMBOL
VALUC
034714
SEOP

(KK TAAQ

$EOPCT

SERFLG
$ERMAX
$£RROR
$ERRP(

034736

001103
001115
035366
00111¢

$ERRTB
SERTTL
$ESCAP
$€ TABL
$E TEND
SFATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HD
$HIBTS
$ICNT
sILLUP
$INTAG
$ITEMB
$K TNE X

001372
001112
001212
001244
001254
001226
040024
001156
001155
001120
001124
035070
036202
- 000000
000204
001104
0461234
001135
001114
002670

$LF
$LFLG
$L 00P
${ PADR
$LPERK

001222
040023
035164
001106
001110

K TOUT
$&T11

MA(RO

ON 26-SEP-79 AT

REFERENCES
#3(-283%2
34-2934
#34-2832
*13-1424
12-1278
#10-884

34,~2834

#10-884

13-1424

#10~-884

36-3052

12:

34-2832

PAGE

SEQ 0122

CREF

12-1303

34-2833

*34-2833

34-2833

*+34-2824

*34-2834
36-3054
36-3063
36-3077

34-2834
36-3055
36-3064
36-3078

34-2832

*34-2832
*34-2833

34-2940
34-2939
34-2939

34-2834

*13-14624
#34-2834

36-3053
36-3062
36-3076
34-2850

*13-1424

«34-2833

34-2833

*34-2834

34-2834
36-3056
36-3065
36-3079

34-2834
36-3057
36-3066
36-3080

34-2842
36-3058
36-3070
36-3081

36-3050
36-3059
36-3073

36-3051
36-3060
36-3074

«34-2834
34-2834

34-2834
34-2834

34-2834

*34-2940
34-2939

#34~2940

34-2920
34-2834

34-2839

34-2920

#10-884

*34-2940
*34-2940
34-2939
34-2939

35-2947

9-805

35-2948
34-2920
*34-2834

#35-2948

#12-1310
#12-1310
*12-1310

002660
002512

35-2947

9-805

34~2920
34-2834

£15-1442

34-2834

+18-1660
*19-1771

+20-1872
*21-1918
*24-1936
*25-1972
*26~2005
*26-2020
*27-2062
+30-2317
+30-2326
*30-2464
*32-2782
*34-2833

#34-2940
#34-2832
*13-1424
*13-1424
*18-1604
»18-1660
*19-1779

+20-1881
*22-1924
*25-1942
*25-1978
*26~-2010
*26-2025
*29-2192
*30-2318
*30-2327
«30-2522
+32-2782
34-2833

34-2920

30-2489

*16-1461
*18-1617
*18-1666
*19-1784

*20-1887
*22-1924
*25-1942
*25-1978
*26-2010
226-2025
*29-2206
*30-2319
+30-2328
*30-2534
*32-2789
34-2833

*34-2833
*16-1484
*18-1642
*18-1672
*19-1804

*21-1913
*23-1930
*25-1960
*26-1985
*26-2015
*26-2030
*29-2247
*30-2321
*30-2379
*30-2582
«32-2797

x34-2833

*16-1499

+18-1648

*18-1672
*19-1815

*21-1913
+23-1930
*25-1960
*26-19N
*26-2015
*26~-2030
*30-2310
«30-2322
*30~23N1
*30-2590
*32-2797

34-2939

34-2833

*16-1510
*18-1648
*18-1697
*19-1828

*21-1913

+33-2814

34-2939

34-2833

*16-1524
+18-1654
*18-1706
*19-1841

*21-1918
*24-1936
*25-1966
*26-2005
*26-2020
*27-2046
*30-2312
*30-232¢4
*30-2443
*30-2689
*33-2827

34-2833
*16-1537
*18-1654
«18-1730
*19-1855
*21-1918
*24-1936

+25-1972
*26-2005
*26-2020
*27-2054
+30-2313
*30-2325
*30-2451
*30-2748
34-2833

$SPASTM

000212

$PWRAD

041216

SPWRMG
$PWRUP
$QUES
$RDCHR

061212
041130
001220
036454

$SPWRDN

SRDDE(C

041056

mennnn

$RDL IN

036574

$RDS?Z

- 000010

$RDO(CT

$RE GAD
$REGO

22X

001160
001162

A Y1AY)
Pl
e 3V
~n — 00
NN

— NN

W?O

)
el
cd

#18-1647
18-1659
#18-1671

18-1659

#18-1686

#21-1912

19-1768
#21-1912

#24-1935

#25-1941

#25-1977

18-1741

#26-2004

26-2004

#26-2009

#26-2014

26-2024

#26-2029

26~2029

#27-2045

29-2222

#30-2284

#30-2365

32-2781

#32-2787

#32-2795

26-1984
26=2014

29-2222

*34~29642

#34-2942

®34-2942

34-2833

*13-162¢6

342042
34-2833
*36-2832

#35-2948

35-2948

#35-2948

22-1923

#26-1984

34-2834
35-2947

34-283¢
35-2947

#34-2920

35-2947

#34-2920

34-2920

36-3070

*34-2834
36-3071

36-3052
36-3072

25-1965

26-1990

26-2024

26-2019

#26-2019

29-2181

#27-2073

29-2181

30-2509

#32-2795

32-2795

#33-2810

*34-2942

#34-2947

*34-2832

34-283¢2

34-2920

36-3053
36-3074

#34-2833

22-1923

25-1959

#30-2509

30~-2656

#34-2945

32~2787
* 342942
34-2945
*34-2942
34-2833

25-1941

26-2004

#30-2365

#10-884
#10-884

2
2
2

17-1550

#25-1971

30-2365

35-2947

#16-1509
18-1601
#18-1647

#16-1483

25-1965

#27-2073

35-2947

}8-1641
5
6

34-2939

2
n2
p)
25-1971

27-2045

#10-884
#34-2920

16-1660
#17-15590

34-2834

30-2515

*34-2940

34-2939

30-2474

23-1929

#26-2014

35-2948

34-2939

#16-1460
16=-1509
#18-1641
18-1653
#18-1665
18-1686
#20-1864

30-2456

21-1917
#23-1929

26-2014

#10~-884
#9-883
#35-2948
13-1424
#35-2948

34-2940

cmd

19-1768

*34-2940

30-2452
36-3077
34-2833

OO0
NONONON N B
NW=ON
S
o
NN NS = a2 W—=0OW

#18-1686

#26-1984

#30-2656

035352
001232

16=-1460
#16-1509
18-1601
#18-1653
18-1665

25-1977

#29-2222

$OVER
$PASS

342939

#25-1941

#26-2024

040326

#34-2920

25-1941

#26-2004

$OMODE

34-2940

#21-1917

#25-1965

040324
040752

*34-2940
*34-2940
34-2940

21-1912

#23-1929

SOCNT
$OCTVL

#34-2940

—

#10-884
#10-884
216-1460
16=-1509
#18-1601
18-1647
#18-1665
18-1686
#19-1768

*34-2940

[

- 000001

34~2920

34-2940

#34-2920

13-1424

»N
R
N
®
n
PNOPOMNOINY)
= —d =
—d —

SNWTST

#10-884
#10-884
#10-884

#10-884

30-2371
30-2595

001240
001242
001224
037074
001344
001154

037105

9-883

30-2314
30~2591

30-2550

OO N

$MSGAD
MSGLG
MSGTY
SMSWR
SMXCNT
SNUL L

SMNE W

SEQ 0123

NONO

001224
000206
040022

30-2525
9-883
#9-883
*34-2940
34-2920

#12-1310
#12-1310

CREF

G 10

OO0V

SMAIL
SMBADR
SMFLG

«12-1310
«12-13'0

PAGE

NN
— O 00 00 00

003020
003022

REFERENCES

2.
%11

SLSTAD
$LSTBK

ON 26-SEP=79 AT

SYMBOL (ROSS REFERENCE
SYMBOL
VALUE

MACRO

CREATED BY

(KK TAAQ

30-2656

33-2810

#33-2810

34-2832

34-292¢4

34-2920

34-2939

36-3055
36-3079

36-3056

36-3059

36-3060

36-3067

33-2810

(KK TAAQ

CREATED BY

SYMBOL (ROSS REFERENCE
SYMBOL
VALUE

SREG1

001164

SREG?

001166

$REG3
SRE G4
$REGS
SRE SRE

001170
001172
001174
040612

SRTNAD
SRTRN

035166
035162

$SAVRE
$SAVRE
$SCOPE
$SETUP

0460554
041240
035174
000137

SR2A

MACRO

ON 26-SEP-79 AT

REFERENCES

22228

$SIZE
$SIZEX
$STUP

002454
002732
177777

$SVLAD
$SVP(
$SWR

035316
000204
173400

$1BIT
$TESTN
$TKB
$TKS

001346
001230
001146
001144

$TMPC

001176

CREF

H 10

SEQ 0124

36-3052
36-3065
36-3056
36-3074
36-3057
36~3061
36-3061

36-3055
36-3070
36-3056

36-3055
36-3071
36-3058

36-3056
36-3072
36-3059

36-3074
36-3063
36-3078

36-3078
36-3066
36-3079

36-3077
36-3072
36-3080

*13-1424

*13~142¢4

34-2832

#34-2832

35-2947
35-2948

*35-2948

#35-2948

9-880

#9-880

#34-2833
9-880
#9-880
13-1424

34-2832
35-2948

35-2947

#9-880
9-880

13-1424

34-2832

#9-880
13-1424

34-2833

13-1424
13-1424

34-2834

36-3057
36-3076
36-3060

9-880
13-1424
13-1424

#95-880

9-880
9-880

#9-880
#9~880

34-2834

13-1424
13-1424
34-2834

36~3058

36-3059

36-3065

36-3067

9-880
13-1424
13-1425
34-2834

#9-880
13-1424
13-1425

34-2920

15-1443

#12-1310
#9-880
#9-880

34-2833

9-882
9-805

10-884

24-1935
26-2009
30-2284
34-2832
34-2833
34-2833
34-2834
001246
000000

PAGE

*34-283%
36-3062
*34-2834
36-3072
*3(-2834
v34-2834
*34-2834
35-29¢47

16-1483
18-1671

$SWREG
$ SWRMK

12:31

#9-880
#9-880

9-880
9-880
#34-2833
9-806
10-884
16-1509
18-1686

25-1941
26-2014
30-2365
34-2832
34-2833
34-2833
34-2834

9-806
13-1424
18-1601
19-1768

34-2834

25-1965
26~2026
30-2656
34-28342
34-2833
34-2833
34-2834

9-806
13-1424
18-1641

20-1864
25-1971
26-2029
32-2781
34-2833
34-2833
34-2833
34-2834

13-1424
9-806

9-806

34-2833

9-806
34-2833

9-806

34-2833

9-806
34-2833

#10-88¢4
#10-884
#10-884
#10-884

*13-1424

*34-2832

34-2832

+35-2948

34-2920
34-2920

34-2920
34~2920

342920
34-2920

#10-884

19-1830

19-1852

34-2833
34,-2833

34-2939

£22-1924
30-2310
«30~-2318

30-2322
«30-2327

34-2833

*34-2833
34-2920
34-2920
34-2939

*22-1924
«30-2311
30-2318
*30-2323
30-2327

19-1839

*23-1930
30-2311
*30-2319
30-2323
*30-2328

19-1843

*23-1930
*30-2312
30-2319
»30-2324
30-2328

*24-1936
30-2312
+30-2320
30-2224
+30-2385

#9-880
#9-880

9-806
13-1424
18-1647

9-806
13-1424
18-1653

27-2045

27-2073

21-1912
25-1977
32-2787
34-2833
34-2833
34-2833
34-2834

21-1917
26-1984

32-2795
34-2833
34-2833
34-2834
34-2834

9-880
9-880
9-806
13-1424
18-1659

22-1923
26-1990
29-2181
33-2810
34-2833
34-2833
34-2834
34-2834

9-806

34-2833

9-806
34-2833

9-806

34-2920
34-2920

34-2939
34-2920

*21-1913
*26-1936
«30-2313
30-2320
*30-2325

*21-1913
*25-1942
30~2313

+21-1918
*25-1942
+30-2317
30-2321
+30-2326
30-2546

*21-1918
+30-2310
30~2317
»30-2322
30-2326
+30-2569

30-2403

*30-2321
30-2325
*30-2528

34-2833

110
SEQ 0125

34-2900
*21-1918
*26-1985

*22-1924
*26-1991

«23-1930
*34-2899

*21-1913
*25-1978

9-805
#16-1509

16-1460
50
b
b
d
D
ek
—

25-1977

16~1460
17-1550
#18-1641
18-1654
18-1671
#18-1741
#21-1912

*24-1936
*34-2924

16-1483
17-1576
647
659

22-1924
25-1941
25-1965

*34-2898

36-3075

36~3063
36-3073
36-3073

d wd oed

36-3061
*30~2624
*30-2533

—

CREF

NN
= = s

000056

PAGE

*30-2691
*30-2484
+30-2390

30-2572

#10-884
#10-884
#10-88¢4
#10~884

—b

001200
001202
001204
001206
001210

REFERENCES

12:31

$TMPY
$TMP?
$TMP3
S TMPS
$TMPS

ON 26-SEP=79 AT

(ROSS REFERENCE
VALUE

MACRO

VOOV
O NN\
AW
=N
VNOMNMANN)
= ON N —

SYMBOL
SYMBOL

(REATED BY

Nf\)l’?)!\)—l—a—;—.—a
\A‘\N—‘?mmmw
t
[}

(KK TAAQ

#25-1977

26=-1991

30-2365

$1PB
$TPFLG
$TPS
$TRAP

$TRAP2

$TRP

001152
001157
001150
040770

36-2939
34-2939

041012

35-2947
35-2947

000015

#35-2947

$TRPAD
$TSTM
$TSTNM

041024
000210
001102

$TTYIN
$TYPBN
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$T7YPOS
SUNIT
SUNITM

037052
040026
040330
037226
037440
037556
040126
040142
040102
001236
000214

#35-2947

x34-2832
34-2834
34-2920
35-2947
35-2947
34-2940
342939
34-2939
35-2947

#34-2942

35-2947

18-1601
18-1647
#18-1659
18~1672
#19-1768

#32-2795

35-2947
35-2947
35-2947

35-2947
35-2947
35-2947
35-2947

#35-2947

#26-1984

16-1509
#18-1601

18-1648
18-1665
18-1686

20~1864
21-1918
24=1935
25-1959

23-1930
25-1959
25-1971

#25-1971

26-2009
26-2024
27-2073
29-2249
30-2509

#30-2509

26-1985
26-2009
26-2024
27-2073
30-2284
32-2787

33-2810

35-2947

35-2947
35-2947
35-2947
352947

#35-2947

35-2947
35-2947
35-2947

#35-2947

34-283%

34-2833

35-2947
35-2947
35-2947
35-2947

#35-294/

35-2947
35-2947
35-2947

#35-2947

35-2947
35-2947

#35-2947

35-2947

#35-2947

34-2833
342834
34-2920
35-2947
35-2947
35-2947
34-2939

34-2833
34-2834
34-2920

*34-2833
34-2927
34-2920

34-2833

#34-2920

35-2947
34-2939

#34-2939

34-2939

35-2947
35-2947

*25-1966

#32-2781
#33-2810

35-2947
35-2947
35-2947

#34-2939

20-1864

25-1942
25-1971
26-1984

#23-1929

#35-2947

35-2947

#16-1483
18-1601
#18-1647
18-1660
18-1686
#21-1917

30-2509
32-2781

32-2795
34-2939
34~2939
34-2939

*25-1960
34-2931

21-1917

#26~-2004
#26-2019
#27-2045
#29-2222

#26-2014
#26-2029
#29-2181

#30-2656

*25-1942
*34-2925
16-1483

352947

35-2647

35-2947
35-2947

35-2947
352947

CREATED BY

(KK TAAQ

SYMBOL CROSS REFERENCE
SYMBOL
VALWE

SUSWR
$XTSIR
$$GET4L

001250
035206
= 000001

$LOCAT

SASTA

.BX

= 000204

SOF ILL

040325
wxenns
svennn

MA(CRO

ON 2¢-SEP-79 AT 12:31

REFERENCES
#10-884
30-2341
#34-2833
#34-2832
#34-2832

2342942
34-2833
34-2940

#9-883

*34-2942
34-2834
34-2940
9-883

34-2832
34-2942

PAGE

(REF

#34-2942

J 10
SEQ 0126

(KKTAAQ

CREATED BY

MACRO CROSS REFERENCE
MACRO NAME

REFERENCES

ADD18

#8-694

BYTADR

#8-770

BYTEMG

MACRO

#30-2322

ON 26-SEP-79 AT 12:31

#30-2310

#30-2323

26-2005

#30-2311

#30-2324

26-2010

PAGE 18

K 10

CREF

#30-2312
#30-2325

26-2015

#30-2313
#30-2326

26-2020

#30-2317

w#30-232/

26=-2025

#30-2318
#30-2328

26-2030

#26-1993

#26~2004

#26-2009

#26-2014

#26-2019

#26-2024

#26-2029

COUNT1
DUAL
DUALMG

#8-667
#7-625
#21-1898

25-1960
#21-1913
#21-1912

25-1966
#21-1918
#21-1917

25-1972
#22-1924
#22-1923

25-1978
#23-1930
#23-1929

26-1985
#24-1936
#24-1935

26-1991
#25-1942
#25-1941

ESCAPE

#9-807

GE TSR

#9-807

#13-1425

#23-1931

24-1935

COMMEN

ENDCOM

GETPR]

MSG1
MSG10
MSG11
MSG12
MSG13
MSG14
MSG14A
MSG15
MSG15A
MSG158
MSG15C

MSG15D

MSG15E
MSG16
MSG16A
MSG168

MSG16(
MSG16D

#9-807

#16-1456
#18-1662
#18-1668
#18-1674
#18-1732
#19-1755
#20-1857
#21-1909
#21-1914
#21-1919
#22-1925
#24-1937
#25-1956
#25-1962
#25-1968

34-2832

16=1460
#18-1665
18-1671
18-1686
18-1741
19-1768
#20~1864
#21-1912
#21-1917
22-1923
23-1929
25-1941
#25-1959
#25-1965
#25-1971

MSG16E
MSG17
MSG17A

#25-1974
#25-1980
#26-1987
#26-2001
#26-2006

#26~1990
26-2004
26-2009

MSG17C
MSG17D
MSG1 7€

#26-2016
#26-2021
#26-2006

26-2019
26-2024
#26-2029

#27-2064

#27-2073

#30-2351

30-2365

MSG178B
MSG2
MSG20

MSG21A

MSG218
MSG21C
MSG22

MSG23

MSG23A
MSG24
MSG25
MSG25A
MSG26
MSG27
MSG3
MSG4

#26-2011

#16-1478
#26-2031
#28-2168
#29-2209
#30-2273
#30-2495
#30-2636
#32-2778
#30-2784
#32-2792
#33-2800
#16-1502
#17-1539

#25-1977
#26-1984

26-2014

16-1483
27-2045

#29-2181
29-2222
30~2284
30-2509
#30-2656
32-2781
32-2787
32-2795
33-2810
16-1509
17-1550

13-1425

#30-2319

SEQ 0127
#30-2320

#30-2321

(KKTAAQ

(REATED BY

MACRO (ROSS REFERENCE
MACRO NAME

MSGS
M3Gh
MSG7
MSG7A
MSG7B
MULT

NEWTST

PARMSG
POP
PUSH
REPORT

SAVR
SETPRI
SETTRA

SETUP

SKIP

SLASH
SPACE
STARS

MACRO

REFERENCES

#18-1593
#18-1638
#1B-1646
#18-1650
#18-1656
#9-807

#9-807
18-1665
261935
26=2014
30-2509

ON 26-SEP=79 AT 12:31

16=1460
18-1671
25-1941
262019
30-2656

25-1959
302940
W34-2940

#7-499
#9-807
#35-2947

34-2834
#35-2947

#9-807

#13-1424

#35-2947

#9-807
21-1918
26=1991
#5-807
#7-496
#9-807

#12-1212
#12-1315
#16-1509
#18-1647
#18-1686
#21-1917
#25-1959
#26-1990

#26-2026
#29-2202
#32-2781
#34-2834
#34-2944

#35-2947

17-1576
22-1924
29-2249

16=1483
18-1686
25-1959
26-2024
32-2781

#35-2947

18-1622
23-1930
30-2465

18-1642
24-1936
30-2605

18-1648
25-1942
30-2749

18-1654
25-1960

18-1660
25-1966

18-1666
25-1972

18-1672
25-1978

21-1913
26-1985

#12-1193

#12-1200

#26-2029
H30-2284

#26-2029
#30-2284

W27-2045
#30-2365

13-1424

#12-1228
#12-1348
#17-1550
#18-1653
#18-1741
#22-1923
#25-1965
#26-2004

w32-2787
#34-2920
H35-2947

#34-2832

USER
WMSG

#9-833
#8-709

26-2009
30-2365

AHIS-2947

#26-2024
#29-2202

#34-2920
#34-2832
#10-884
32-2781

26-2004
30-2284

#35-2947

#34-2837

#9-807
#9-807
¥5-807
#9-807

26-1990
29-2222

35-2947

#18-1648

TYPNUM
TYPOCS
TYPOCT
TYPTXT

26-1984
29-2181

18-1659
23-1929

W35-2947

#9-883

#13-1425

25-1977
27-2073
33-2810

18-1653
22-1923

W35-2947

#9-883

18-1641

18-1647
21-1917

A35-2947

#35-2947

#9-883

W32-2781
#34-2920
H34-2945

18-1641
21-1912

#35-2947

#9-807
#9-882

#12-1218
#12-1322
#16-1509
#18-1647
#18-1686
#21-1917
#25-1950
#26-1990

18-1601
20-1864

#35-2948

#18-1642

#9-807

17-1550
19-1768
25-1971
27-2045
32-2795

26-1990
35-2948
N35-2948

#7-596
#35-2947

TYPNAM

16=1509
18-1741
25-1965
26-2009
32-2787

26-1984
35-2948
N34-2944

TIMTST
TRMTRP

#3-807
#9-807

SEQ 0128

25-1977
34-2944
#34-2943

#13-1424

TYPBIN
TYPDEC

CREF

25-1971
34=-2943
#34-2940

#3-807

#7-591

]

25-1965
34-2940
#34-2940

SWRSU

TiIMMSG

L 10

18-1601
#18-164]
#18-1647
18-1653
18-1659

#25-1944
#9-807
#9-807
#9-807

PAGE 19

18-1647

#12-1237
#12-1355
#17-1550
#18-1653
#18-1741
#22-1923
#25-1965
#26-2004

W32-2787
#34-2920
N35-2948

18-1653

#18-1654

#34-2832
32-2787

32-2795

w10-884

#10-884

#12-1247
#12-1378
#18-1579
#18-1659
W19-1768
#23-1929
#25-1971
#26-2009

#12-1251
#12-1392
#18-1591
#18-1659
#19-1768
#23-1929
#25-1971
#26-2009

W12-1264
#16-1460
#18-1601
#18-1665
#20-1864
#24-1935
W25-1977
#26-2014

#12-7070
#16-1460
#18-1601
#18-1665
#20-1864
#24-1935
#25-1977
#26-2014

#12-1286
#16-1483
#18-1641
#18-1671
#21-1912
#25-1941
H26-1984
#26-2015

#12-129
#16-1483
#18-1641
#18-1671
#21-1912
#25-1941
#26-1984
#26-2019

W32-2795
#34-2920
H35-2948

#32-2795
#34-2939

#33-2810
N34-2940

#33-2810
H34-2941

#34-2832
#34-2942

#34-2833
N34-2943

18-1659

#18-1660

W27-2045
#30-2365

18-1665

#18-1666

W27-2073
#30-2509

18-1671

#18-1672
;

#27-2073
#30-2509

#29-2181
#30-2656

#29-2181
#30~2656

(KKTAAQ

CREATED BY

MACRO

ON 26-SEP-79 AT 12:31

MACRO CROSS REFERENCE
REFERENCES
MACRO NAME
#32-2782
#8-724
WISt

$SCMRE
SSCMTM
$SESCA
SINEWT

#9-884

16-1460
18-1671

25-1941
26-2019
30-2656

#35-2947
#35-2947
#13-1424
13-1424
17-1576

$SLET

$$SETM
$$SE TU
$$SKIP

22-1924
29-2249

9-807
#9-794
9-807
9-807
9-817
9-805
9-808
9-880
#12-1310
9-806

.EQUAT
EQUIV

.HEADE

.SETUP
.SIZME
. SWRHI
.SWRLO

LSACTT
.$APTB
.$APTH
.SAPTY
.SCATC
.SCMTA
.$0B20

#9-882

.$EOP
. $ERRC

.SREAD
. $SAVE
.$SCOP

.$TRAP
.$TYPB

.$TYPD
.$TYPE
.$TYPO

10-884
#10-884

#9-798

PAGE 20
CREF

#32-2789
10-884
#10-884

#32-2797
10-884
#10-884

16-1483
18-1686

16-1509
18-1741

25-1959
262024
32-2781

#35-2947
#35-2947

25-1965
26-2029
32-2787

#35-2947

M 10

10-884
#10-884
17-1550
19-1768

25-1971
27-2045
32-2795

#35-2947

SEQ 0129
10-884
#10-884
18-1601
20-1864
25-1977
27-2073
33-281

#35-2947

10-884
#10-884

18-1659

18-1641
21-1912
26-1984
29-2181

18-1647
21-1917
26-1990
29-2222

18-1653
22-1923
26-2004
30-2284

23-1929
26-2009

#35-2947

#35<2947

W35-2947

#35-2947

30-2365

23-1930
30-2465

24-1936
30-2605

25-1942
30-2749

25-1960

25-1966

25-1972

25-1978

18-1672

21-1913
26-1985

9-807
9-807
9-807

9-807
9-807
g-g?g

9-807
9-807
9-807

9-807
9-807
9-811

9-807
9-807
9-812

9-807
9-807
9-813

9-807
9-807
9-814

9-807
9-807
9-815

18-1622

9-818

18-1642

18-1648

18-1654

18-1660

18-1666