Digital PDFs

XX-88260-59

April 1981

131 pages

Original

7.6MB

view download

OCR Version

7.5MB

view download

Document:	CVMSAA0 MSV11-DD,LF,PK,ED,LK,PF,PL 0-2 MEG MEM EXER AH-S437A-MC OCT 1981 bw
Order Number:	XX-88260-59
Revision:	0
Pages:	131
Original Filename:	CVMSAA0__MSV11-DD,LF,PK,ED,LK,PF,PL__0-2_MEG_MEM_EXER__AH-S437A-MC__OCT_1981_bw.pdf

OCR Text

0-2 MEG MEM EXER
SV1 1-DD.LF.
CVMSARD
:
ER R
PK.E
e

FICHE 1

COPYRIGHTE 1981

o4&

AH-5437A-MC

OCT

MADE

1981

USA

‘l—‘ n

EImEH)

1
SEQ 00U

IDENTIFICATION

PRODUCT CODE:

AC=-S435A-M(C

PRODUCT NAME:

CVMSAAD 0-2 MEG MEM EXER

PRODUCT DATEL:

APRIL ,1981

MAINTAINER:

DIAGNOSTIC ENGINEERING

NOTICE
THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO CHANGE WITHOUT
ENT
EQUIPM
L
DIGITA
B8Y
MENT
COMMIT
A
AND SHOULD NOT BE CONSTRUED AS
TY
SIBILI
RESPON
NO
S
ASSUME
CORPORATION. DIGITAL EQUIPMENT CORPORATION
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

OF SOF TWARE ON
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY ATED
COMPANIES.
AFFILI
ITS
EQUIPMENT THA IS NOi SUPPLIED BY DIGITAL OR
COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DIGTAL

PDP

UNIBUS

DEC

DECUS

DECTAPE

MASSBUS

SEQ 0007

REVISION HISTORY

REVISION A:

APRIL 1981

SEG OOU3

FANSRD MEWN—O

.
e
P

GENERAL PROGRAM [NFORMATION.
PROGRAM PURPOSE (ABSTRACT)
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS

LOAC ING AND STARTING PROCEDURE
SPECIAL ENVIRONMENTS

PROGRAM OPTIONS

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES
MOS PARITY REGISTER
SUB-TEST SUMMARIES

PUEEPUEEEN

—O N O O RNDO

ERROR [NFORMATION
ERROR REPORTING
ERROR HALTS

EXECUTION TIMES

NuNooNON

TABLE OF CONTENTS

SECTION 1: ADDRESS TESTS
SECTION 2: WORST CASE NOISE TESTS

SECTION 3: INSTRUCTION EXECUTION TESTS
SECTION 4: MOS TESTS
SPECIAL TOGGLE IN TESTS
PROGRAM LISTING

PROGRAM PURPCSE

SEQ 00U

GENERAL PROGRAM [NFORMATION.
(ABSTRACT)

Y
THIS PROGRAM HAS THE ABJLITY TO TEST MEMCR
:
USING
SO
000000 TO ADDRESS 17757777. 1T DOES
A.

8.
(.

FROM

ADDRESS

UNIQUE ADDRESSING TECHNIQUES

WORSE CASE NOISE PATTERNS, ANC
INSTRUCTION EXECUTION THRUOUT MEMORY.

ELY AS
THE INTENT OF THIS PROGRAM IS TO TEST AS COMPREHENSIV
UT
WITHO
BUS
1
LSI-1
THE
ON
USED
POSSIBLE ALL MOS MEMORIES
RELATE
TESTS
THE
GH
ALTHOU
.
CONCENTRATING ON ANY ONE SYSTEM
S.
SYSTEM
N
CERTAI
FOR
TE
COMPLE
BE
MAY
THEY
7O GENERAL DESIGNS
100X
TOTAL
A
BE
TO
ED
INTEND
NOT
THIS TEST IS ALSO
TEST OF THE MEMORY. OTHER TESTS THAT DO 1/0 MAY FIND MEMORY

’\v

PROBLEMS THAT THIS TEST IS UNABLE TO.

SYSTEM REQJUIREMENTS

HARDWARE REQUIREMENTS

LSI=-11/2,LS1-11/23 BUS FAMILY PROCESSORS.

MINIMUM OF 16KW OF MEMORY.
OPTIONAL...

ANY PARITY MEMORY CONTROL MODULE.
KTF11 MEMORY MANAGEMENT.

SOF TWARE REQUIREMENTS

THE SMAI LEST UNIT OF MEMORY THIS PROGRAM WILL RECOGNIZE
IF ANY ADDRESS IN A 8K BANK CAUSES A TIME OUT
IS 8K,
TRAP, THAT ENTIRE BANK OF MEMORY IS IGNORED BY THE
PROGRAM. PROGRAM TESTS IN 8KW BANKS,UNLESS IT IS THE LAST
4(KW BEFORE THE 1/0 PAGE OR LAST 6KW IF 30KW SYSTEM.
THE PROGRAM IS DESIGNED TO EXERCISE THE VECTOR PORTION OF

AS
MEMORY (LOCATIONS 0=~776) IN EXACTLY THE SAME MANNER
T
WITHOU
LE,
POSSIB
TO MAKE THIS
THE REST OF MEMORY.
USED
ARE
REQUIRING MEMORY MANAGEMENT, NO SOF TWARE TRAPS
IS
IN THE PROGRAM. THIS MEANS THAT IF MEMORY MANAGEMENT IS
PROGRAM
THE
NOT AVAILABLE OR IS DISABLED (Sw12=1), IF
D
RELOCATED OUT OF BANK O, IF LOCATION 0-776 ARE SELECTE
THE
OCCURS,
TRAP
E
FOR TEST., AND IF AN UNEXPECTED HARDWAR
RESULTS WILL BE UNPREDICTABLE.

THE PROGRAM HAS THE PROPER INTERFACE CODE TO_ ALLOW
RUNNING UNDER THE AUTOMATED MANUFACTURING TEST LINE
SYSTEM - ACT11 AND APT.

’EQ 0005

HARDWARE RESTRICTIONS

BIT) MEMORIES WITH
IF THE SYSTEM HAS MIXED MSv11-D (18
RECOMMENDED
MSV11-L OR MSVI1-P (22 BIT) MEMORIES,IT IS MODE.
BIT

10 SET UP THE MSV11-L OR MSY11-P TC 18
AS THE PROGRAM AUTOSIZES FOR NONCONTIGUOUS MEMORY,1-D'’

FROM THE ‘MSv1
17 15 POSSIBLE TO RECEIVE RESPONSESTHIS
CAN CAUSE

MEMORY WHEN SIZING ABOVE 18 BITS.

INCORRECT MEMORY SIZING AND FALSE ERRORS.

RELATED DOCUMENTS AND STANDARDS

A.
8.

01
PROGRAMMING PRACTICES - DOCUMENT NO. 175-003-009D
C-(5-DZQA
PDP-11 MAINDEC SYSMAC PACKAGE ~ MAINDEC-11
E MANUAL
THE APPLICABLE MEMORY SYSTEM MAINTENANC
THE APPLICABLE CIRCUIT SCHEMATICS

DIAGNOSTIC HIERARCHY PREREQUISITES

SHOULD BE RUN
BEFORE RUNNING THIS PROGRAM, A CPU DIAGNOSTIC
SOR AND PDP-11
PROCES
THE
OF
TO VERIFY THE FUNCTIONALITY
INSTRUCTION SET. FOR LSI-11/23:CJKDB_ DIAG

FOR LSI-11/2 :CVKAA_ DIAG

IF MEMORY MANAGEMENT IS TO BE USED, THEN THEM.KTF11

CJKDA_ SHOULD ALSO BE RUN BEFORE THIS PROGRA
1.

DIAGNOSTIC

ASSUMPT [ONS

TH]S PROGRAM ASSUMES THE CORRECT OPERATION OF THE CPU AND, IF

USED, THE MEMORY MANAGEMENT OPTION.
2. 0

OPERAT ING INSTRUCTIONS

2. 1

LOADING AND STARTING >ROCEDURES

2.1

LOAD THE PROGRAM USING XXDP OR ANY STANDARD ABSOLUTE LOADER.

2.1.2

STARTING ADDRESS 200:
NORMAL PROGRAM EXECUTION.

2.1.3

STARTING ADDRESS 204:

RESTART PROGRAM USING PREVIOUSLY SELECTED PARAMETERS.

2.2

Lty voo

SPECIAL ENVIRONMENTS

C MODE UNDER ACT11 OR
If THE PROGRAM IS RUN IN AUTOMATI
AFTER THE FIRST PASS. ALSO, THE
THE

APT11

PROGRAM

IS DONE

PROGRAM DOES NOT RELOCATE TO TEST THE LOWER BK OF MEMORY,
AFTER THE FJRST PASS.

2.3

PROGRAM OPTJONS

THE SOF TWARE SWITCH REGISTER (LOC. 176) IS USED FOR ALL
OPERATIONAL SWITCH SETTINGS,
THE USER CAN TYPE CTRL G (*G) TO ALLOW SWR (HANGES
DURING PROGRAM EXECUTION.

SWi5 = 1 OR UP....

HALT ON ERROR

SW14 = 1 OR UP....

LOOP ON TEST

SWi3 = 1 OR UP....

SWi2 = 1 OR UP....

2.4

INHIBIT ERROR TYPEOUT

INHIBIT MEMORY MANAGEMENT (INITIAL

START ONLY)

SW11 = 1 OR UP....

INHIBIT SUBTEST ITERATION (NOT USED)

SW10 = 1 OR UP....

RING BELL ON ERROR

SW9

=1 0R UP....

LOOP ON ERROR

SWw8

=1 0R UP....

LOOP ON TEST IN SWR<4:0>

SWw7

= 10R UP....

INHIBIT PROGRAM RELOCATION

Swé

= 1 OR UP....

SWS

= 1 OR UP....

INHIBIT PARITY ERROR DETECTION
INHIBIT EXERCISING VECTOR AREA
(LOCATIONS 0-1000).

EXECUTION TIMES

AND AMOUNT
EXECUTION TIME IS DEPENDENT ON TYPE OF MEMORY, ARE:
MEMORY.
A.

WORSE CASE RUN TIMES WITH MOS MEMORYS

FOR NON-PARITY MEMORY

FULL PASS:

< S MINUTES FOR 64KW
30 MINUTES FOR 1280 KW

FOR PARITY MEMORY

FULL PASS:

S MINUTES FOR 64KW
20 MINUTES FOR 256KW
117 MINUTES FOR 1280KW

a0t TIME 1S SETUP FOR 256KW (APPROX. 20 MIN).

+PLEASE MAKE CHANGES TO APT TIMES AS MEMORY
INCREASES OR DECREASES IN SIZE.
ERROR [NFORMAT JON
ERROR REPORTING

TED
THERE ARE A TOTAL OF 31(8) TYPES OF ERROR REPORTS GENERA
ARE
ICS
MNEMON
G
HEADIN
COLUMN
8Y THE PROGRAM. SOME Of THE KEY
DESCRIBED BELOW FOR CLARITY:

(COUNTER

PC =

PROGRAM

V/PC =

VIRTUAL PROGRAM COUNTER.

MA =

MEMORY ADDRESS

REG -

PARITY REGISTER ADDRESS.

PS =

PROCESSOR STATUS WORD.

Iur =

INSTRUCTION UNDER TEST.

5/8 =

WHAT CONTENTS SHOULD BE.

WAS -

WHAT CONTENTS WAS.

(v/PC=P/PC)

CODE.

DETECTION

ERROR

THE

THIS IS WHERE

DETECTION CODE CAN BE FOUND IN THE PROGRAM LISTING.
PHYSICAL PROGRAM COUNTER. THIS IS WHERE THE ERROR
P/PC =
DETECTION CODE IS ACTUALLY LOCATED IN MEMORY.
TRP/PC = ?SXSICAL PROGRAM COUNTER OF THE (ODE WHICH CAUSED A

3.2

ERROR HALTS

WITH THE 'HALT ON ERROR' SWITCH

(SW15)

NOT

SEVERAL PROGRAMMED 'HALTS' IN THE PROGRAM:

THERE

SET

ARE

IN THE ERROR TRAP SERVICE ROUTINE FOR UNEXPECTED TRAPS TO
VECTOR &. THIS ONE WILL OCCUR IF A 2ND TRAP TO 4 OCCURS
BEFORE THE ERROR REPORT FOR THE FIRST HAS HAD A CHANCE TO
BE PRINTED 0OUT.

THE

RELOCATED

RELOCATION

ROUTINE

THE

PROGRAM

BEING

BACK TO THE FIRST 8K OF MEMORY AND THE PROGRAM

CODE WAS NOT ABLE TO BE TRANSFERRED PROPERLY.

IN THE CASE OF ERROR REPORTING AND THERE IS
TO ALLOW THE INFORMATION TRANSFER.

TERMINAL

NCE WAS
IN THE POWER FAIL ROUTINE IF THE POWERNCEUP HADSEQUE
E T0
(HANC
A
STARTED BEFORE THE POWER DOWN SEQUE

COMPLETE ITSELF.

1IN THE MEMORY MAPPING ROUTINE

£.

THE

OR ANY OF

ADDRESS

CONTROL ROUTINES, FAILURES TO FIND A MEANINGFUL MAP.

PERFORMANCE AND PROGRESS REPORTS
L
| CABLE
NOT APP
5.0

DEVICE INFORMATION TABLES

THE FOLLOWING IS A PICTURE VIEW OF A PARITY (ONTROL STATUS
REGISTERS, WHICH WILL SHOW BIT ASSIGNMENTS AND DEFINITIONS,
10 PROVIDE A HANDY REFERENCE:

MOS PARITY REGISTER

—

Lad

111

—

:
l

1111111111 -1 1 -I I- I
1
PE
—

[

—

5.2

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00
BIT ASSIGNMENTS ARE DEFJNED AS FOLLOWS:
BIT15 PARITY ERROR

BIT02

WRITE

(0DD)
OTHER

WHEN

WRONG

PARITY NORMAL

PARITY

(EVEN)

WHEN SET

CLEAR;

BITOO ACTION ENABLE NO
ACTION WHEN CLEAR. TRAP
TO VECTOR 114 WHEN SET.

BITS 5-11 ADDRESS BITS FOR
OR ADDRESS BITS 18-21,IF Bl

LOCATES PARITY ERROR TO A 1
SEGMENT OF MEMORY.

BIT 14...ALWAYS READ AS A ZERO
ON 128KW. IN A 2044 MACHINE ,R/W
AND IS THE EXTENDED CSR READ

ENABLE BIT FOR A18-A21 IN BITS 5-8.

SEQ 0008

6.0

SUB~TEST SUMMARIES

6.1

SECTION 1:

ADDRESS TESTS.

THESE TESTS VERIFY THE UNIQUENESS OF EVERY MEMORY ADDRESS.

VALUE OF EACH MEMORY WORD
TEST 1 WRITES AND READS THE ON.
AFTER ALL MEMORY HAS BEEN
ADDRESS INTO THAT MEMORY LOCATI

WRITTEN, ALL LOCATIONS ARE CHECKED AGAIN.

TEST 2 WRITES THE BVTE VALUE Of EACH ADDRESS INTO THAT BYTE

LOCATION AND CHECKS IT.

WRITES THE COMPLEMENT OF EACH WORD ADDRESS INTO

TEST 4

WRITES THE 8K BANK NUMBER INTO EACH BYTE OF THAT BANK

TEST §

WRITES THE COMPLEMENT OF THE BANK

LOCATION AND CHECKS IT.

AND CHECKS IT.

SECTION 2:

INTO

NUMBER

BYTE OF THAT BANK AND CHECKS IT.
6.2

THAT

TEST 3

WORST CASE NOISE TESTS.

THESE ARE INTENDED TO APPLY MAXIMUM
TYPES OF PDP-11 MOS MEMORIES.

STRESS

THE

EACH

VARIOUS

OR 10
TEST 6 AND TEST 7 ARE SUPPLIED TO ALLOW THE OPERAT
SCOPE
SELECT A SINGLE WORD DATA PATTERN (SA-204) GAND(DATI) ON
IN
EITHER THE WRITING (DATO) IN TEST 6 OR THE READIN
TEST 7 OF THAT DATA.
SHOULD BE CHANGED IF A DIFFERENT
LOCATION .CONST:0
SINGLE WORD DATA PATYERN IS CONSIDERED.

TEST 10 WRITES AND THEN CHECKS A SERIES OF SINGLE
PATTERNS WHICH ARE DESIGNED TO STRESS PARITY MEMORY.
TEST 11 WRITES ALL MEMORY WITH 1'S IN EVERY BIT AND

WORD

AND

THEN

"RIPPLES'' A '0"" THROUGH IT.

TEST 12

WRITES ALL MEMORY WITH 0'S IN

"RIPPLES''A "'’ THROUGH IT.

EVERY

BIT

THEN

AND
TEST 13 WRITES WRONG PARITY IN EACH BYTE OF MEMORY
IS
TEST
THIS
CHECKS THAT THE PARITY DETEETION LOGIC WORKS.
SKIPPED FOR NON-PARITY MEMORY.

TEST 14

WRITE

CHECKS IT.

6.3

SECTION 3:

'RANDOM'' PROGRAM

(ODE

THROUGH

MEMORY

AND

INSTRUCTION EXECUTION TESTS.

THIS GROUP OF TESTS PLACE INSTRUCTIONS IN THE MEMORY UNDER
TEST, THEN EXECUTES THE INSTRUCTIONS, AND FINALLY, CHECKS

THAT THEY EXECUTED CORRECTLY.

TEST 15

EXECUTES AN INSTRUCTION WHICH DOES A DATI AND A DATO

ON THE MEMORY UNDER TEST.

N WHICH DOES A DATI
TEST 16 EXECUTES AN INSTRUCTIO
RY UNDER TEST.

DATOB ON THE LOW BYTE OF MEMO

TEST 17 EXECUTES AN INSTRUCTION WHICH DOES

DATOB ON THE HIGH BYTE.

AND A

75?6 20

EXECUTES AN INSTRUCTION WHICH DOES

DATIO

AND

TEST 21

EXECUTES AN INSTRUCTION WHICH DOES

DATIO

AND

TEST 22

EXECUTES AN INSTRUCTION WHICH DOES

DATIO

AND

[

DATOB ON THE LOW BYTE.

DATOB ON THe HIGH BYTE.
6.4

A DATI

AND A

MOS TESTS

SECTION 4:

MEMORY, THEN
TEST 23 -WRITES A PATTERN OF 000377 THROUGHIMENT
S THE NEW
COMPLEMENTS IT ADDRESSING DOWNWARD, COMPL
PATTERN
THIRD
THE
PATTERN ADDRESSING UPWARD, COMPLIMENTS
A3
NEW
THIS
MENTS
ADDRESSING UPWARD AND FINALLY COMPLI
PATTERNS ADDRESSING DOWNWARD.

TEST 24-25

WRITE A CHECKERBOARD THROUGH MEMORY

THEN

FOR 2 SECONDS AND THEN VERIFIES NO DATA HAS CHANGED.
6.5

SPECIJAL TOGGLE IN TESTS

6.5.1

TOGGLE~IN-PROGRAM #1

STALLS

THE FOLLOWING IS A TOGGLE IN MEMORY ADDRESS TEST. THIS TEST
FAILURE IS SUSPECTED
IS USEFUL WHEN AN ADDRESS SELECTION PROGRA
M WRITES THE
INVOLVING THE FIRST 8K OF MEMORY. THIS
LOWER
NG
VALUE OF EACH ADDRESS INTO ITSELF STARTI WITH THE
ADDRESSES
ALL
AFTER
LIMIT (200) AND CONTINUING TO THE UPPER LIMIT. FOR THE CORRECT
CHECKED
WAVE BEEN WRITTEN EACH ADDRESS IS
EgsEENE?M§}ARTING WITH THE UPPER LIMIT AND CONTINUING TO THE
LOCATION CONTENTS
012700
10
12

000200

14
16

010001
020037

20
22
24
26

30
32
34

000176
001403
010010
005720
000772
010004
020001

MNEMONI C
MOV #200,RO

COMMENT
;GET FIRST ADDRESS

;7O TEST
; (EXAMPLE START ADDRESS)
:SAVE IN R1

MOV RO,R1
1$: CMP RO,a#SWR ;CHECK UPPER LIMIT

. BEQ 2%
MOV RO, (RO)
TST (RO)+

BR 1%
28: MOV RO,R4
38: (MP RO,R1

: (IN SOF TWARE SWITCH REGISTER)
;BRANCH IF AT UPPER LIMIT
;LOAD VALUE INTO ADDRESS
;STEP TO NEXT ADDRESS
;LOOP UNTIL DONE
;SAVE UPPER LIMIT
JCHECK IF AT LOWER LIMITY

SEQ 0010

+ 36
40
42
44
46

6.5.2

;BRANCH iF DONE
SEQ 1%
DATA WRITTEN
;CHECK
(MP ~-(RO),RO

001767
024000

BEQ 3%
HALT
BR 3%

001774
000C00
000772

;BRANCH IF 0K
;ERROR
;LOOP BACK

L #?
IN~PROGRAM
E =GG
TO

USED WITH
THE FOLLOWING IS ALSO A TOGGLE IN PROGRAM TO BE
S TESTING. THIS
TOGGLE~IN-PROGRAM #1 FOR MORE COMPLETE ADDRES
ADDRESS INTO
EACH
OF
VALUE
MENT
COMPLE
THE
S
PROGRAM WRITE
AND CONTINUING TO THE
ITSELF STARTING WITH THE UPPER LIMIT
HAVE BEEN WRITTEN EACH
LOWER LIMIT. AFTER ALL ADDRESSES
STARTING WITH THE
ADDRESS 1S CHECKED FOR THE CORRECT CONTETONTS THE
UPPER LIMIT,
LOWER LIMIT ADDRESS AND CONTINUING
ABOVE.
TOGGLE IN THE FOLLOWING PATCHES TO THE PROGRAM
THIS IS THE PATCH TO TOGGLE~IN-PROGRAM #1:
COMMENT
MNEMONI C
LOCATION CONTENTS

:BRANCH TO PROGRAM #2

001404

BEQ 4%

54
56
60
62
64
66

020201
001375
020204
001755
010203
005103

CMP R2.R1
BNE 5%
6%: (MP RZ,Ré4
BEQ 1%
MOV R2.R3
COM R3

;CHECK IF AT LOWER LIMIT
;LOOP UNTIL DONE
;CHECK IF AT UPPER LIMIT
;GO TO PROGRAM 1 IF DONE
;GET VALUE OF ADDRESS
; COMPLEMENT VALUE

000770

BR 6%

;GO CHECK NEXT ADDRESS

THESE ARE THE ADDITIONS TO TOGGLE-IN-PROGRAM #1:
COMMENT
MNEMONI C
LOCATION CONTENTS
;GET UPPER LIMIT
4%: MOV R4 ,RC
010402
50
; COMPLEMENT ADDRESS
58: COM -(R2)
005142
52

70
72
74

7.0

020322
001772
000000

PROGRAM L ISTING
ATTACHED

CMP R3,(R2)+ ;CHECK ADDRESS
;BRANCH IF OK
BEQ 6%
;ERROR
HALT

SEQ 0011

(VMSAA

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00

CVMSAA P11

04~AUG-81 22:59

TABLE OF CONTENTS

14
29
141

OPERATIONAL SWITCH SETTINGS
BASIC DEF INITIONS
MEMORY MANAGEMENT DEF INITIONS

198
206

STARTING ADDRESS(ES)
ACT11 HOOKS

324
372
438
460

COMMON TAGS
APT MAILBOX-ETABLE
APT PARAMETER BLOCK
APT STATISTICS TABLE

TRAP CATCHER

189

POWER DOWN AND UP ROUTINES

282

MEMORY PAR]TY PATTERNS TABLE
MEMORY PARITY REGISTER ADDRESS TABLE

670
688

993
1138
1149
1183

1191

ERROR POINTER TABLE

START: SETUP AND MAP MEMORY
INITIALIZE THE COMMON TAGS
TYPE PROGRAM NAME

GET VALUE FOR SOF TWARE SWITCH REGISTER

MAP PARITY REGISTERS
MAP PARITY MEMORY

1410

1646

1529
1608
1824

DISPLAY PARITY MEMORY MAP
TEST PARITY REGISTERS
MEMORY ADDRESS TESTS
SECTION 1:

1985
2041
2046

TS5
SECTION 2:
16

2362

114

1825
1869
1909
1950

2065
2097
2120
2142
2164
2397
2398
2444

2490
2537
2585

2631

71
12
13
T4

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY
WRITE VALUF OF MEMORY ADDRESS INTO MEMORY ADDRESS.
WRITE 1°'S COMPLEMENT VALUE OF ADDRESS INTO
WRITE BANK # INTO ALL ADDRESSES IN A BK BANK

17
110
T
712
713

READ MEMORY AND COMPARE TO CONSTANT.
WORSE CASE NOISE (PARITY) WORD TESTING
ROTATE A ‘0'' BIT THROUGH A FIELD OF ONES.
ROTATE A '*1'* BIT THROUGH A FIELD OF ZEROS
WORSE -ASE NOISE PARI1Y BYTE TESTING

SECTION 3:
T15
T16

T17
120
121

WRITE 1'S COMPLEMENT OF BANK #.
WORST CASE NOISE TESTS
WRITE A CONSTANT INTO MEMORY.

RANDOM DATA TESTING THRII PROGRAM (ODE RELOCATION.
INSTRUCTION EXECUTION TESTS.
EXECUTE DATI, DATO THRU MEMORY.
EXECUTE DATI, DATOB (LOW BYTE) THRU MEMORY.
EXECUTE DATI, DATOB (HIGH BYTE) THRU MEMORY.
EXECUTE DATI. DATIO, DATO THRU MEMORY.

122

MEMORY.
EXECUTE DATI, DATI, DATIO, DATOB (LOW BYTE) THRU
EXECUTE DATI, DATI, DATIO, DATOB (HIGH BYTE) THRU MEMORY.

123

MARCHING 1'S AND 0'S.

2678

SECTION 4:MOS TESTS

2768
2809

124
125

2679

2840

2870
2919

2920
3174

3300

3502

3775

3972

DONE:

WRITE CHECKERBOARD STARTING WITH '125252' DATA.
WRITE CHECKERBOARD STARTING WITH 052525 DATA

RELOCATE PROGRAM AND REPEAT ALL TESTS.

END OF PASS ROUTINE
SUBROUTINE AND TRAP ROUTINE SECTION.

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.
SUBROUTINES FOR ADDRESS ARND WORSE CASE NOISE TESTS.
RELOCATION SUBROUTINES.
PARITY MEMORY TRAP SERVICt AND SUBROUTINES.
SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE.
SCOPE HANDLER ROUTINE

SEQ 0012

CVMSAA

04~AUG-81 22:59

ERROR HANDLER ROUTINE

4616

ERROR MESSAGE TYPEOUT ROUTINE
TTY INPUT ROUTINE
READ AN OCTAL NUMBER FROM THE TTY

45N

APT COMMUN]CATIONS ROUTINE

6754
4846

BINARY TO OCTAL (ASCII) AND TYPE
PHYSICAL ADDRESS TYPE ROUTINE

5044

ERROR REPORTING MESSAGES AND TABLES.

6120

4218

4493

4686
4905

VER MACY11 30(1046) 04-AUG-81 235:00
0-2 MEGAWORD MEMORY EXERCISER, 16K
TABLE OF CONTENTS

CVMSAA. P11
4051

TYPE ROUTINE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
STANDARD PROGRAM MESSAGES

SEQ 0013

(=2 MEGAWORD MEMORY EXERCISER, 16K VER MACTY11 30(1046) 04-AUG-81 23:00 PAGE 2

(VMSAA
CVMSAA, P11

LTITLE

06-AUG-81 22:59

CVMSAA

0~2 MEGAWORD MEMORY EXERCISER, 16K VER

;*DIGITAL EQUIPMENT_CORP.
;*MAYNARD, MASS. 01754
»

" «PROGRAM BY SAM/BARRY/BILL
E-THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMA(
S *PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981.
»

.SBTTL

001100

177776

PS=

177570

000000
000001
000002
000003
000004
000005
000006
000007
000006

NN
g~

HALT ON ERROR
LOOP ON TEST

INHIBIT ERROR TYPEQUTS

INHIBIT KT11 (AT START TIME ONLY)
INHIBIT ]TERATIONS

BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<4:0>
INHIBIT PROGRAM RELOCATION
INHIBIT PARITY ERROR DETECTION

INHIBIT EXERCISING VECTOR AREA.

BASIC DEFINITIONS

- «MISCELLANEOUS DEF I*JITIONS

HT=
LF=
(R=

177774
177772
177570

USE

«INITIAL ADDRESS OF THE STACK POINTER *x= 1100 w«
STACK= 1100
::BASIC DEFINITION OF ERROR CALL
"EQUIV EMT.ERROR
““BASIC DEFINITION OF SCOPE CALL
"EQUIV IOT,SCOPE

000011
000012
000015

000200

WVION N 00 OO = NINS

E
%

;

YR
TR YL

O
O

SWITCH

ENRER

OPERATIONAL SWITCH SETTINGS

_SBTTL

=S OVRNONE
W

NIN) — —d —d —b —cb s =B

11
12
15

CRLF=

200

.EQUIV

PS,PSW

DDISP=

177570

177776

STKLMT= 177774
PIRQ= 177772
DSWR= 177570

:-CODE FOR HORIZONTAL TAB
*2CODE FOR LINE FEED
*2CODE FOR CARRIAGE RETURN

“2CODE FOR CARRIAGE RETURN-LINE FEED
*PROCESSOR STATUS WORD

::STACK LIMIT REGISTER
*“PROGRAM INTERRUPT REQUEST REGISTER
* "HARDWARE SWITCH REGISTER
* THARDWARE DISPLAY RECISTER

: «GENERAL PURPOSE REGISTER DEF INITIONS

RO=
R1=
R2=
R3R4 =
RSR6=
R7=
SP

10
11
12
13
1%
x5
16
17
16

;:GENERAL REGISTER
* GENERAL REGISTER
" *GENERAL REGISTER
“GENERAL REGISTER
* *GENERAL REGISTER
* “GENERAL REGISTER
" GENERAL REGISTER
" "GENERAL REGISTER
* STACK POINTER

SEQ 0014

(WMSAA

CCVMSAA P11
gg

60
61
62
63
64
65
66
gg
69
70
71
72
73
74
75
76
77
78
79

80
81
82

83
84

86
87
88

04~-AUG=-81 22:59

BASIC DEFINITIONS
17

: ;PROGRAM COUNTER

P(C=

000000
000049
000100
000140
000200
000240
000300
000340

:;PRIORITY LEVEL O
0
PRO=
::PRIORITY LEVEL 1
40
PR1=
::PRIORITY LEVEL 2
100
PRZ2=
;:PRIORITY LEVCL 3
140
PR3=
::PRIORITY LEVEL &
200
PR4=
::PRIORJTY LEVEL 5
260
pPRS=
::PRIORITY LEVEL 67
300
PR6=
ORITY LEVEL
;:;PRI
340
PR7=
;«''SWITCH REGISTER'' SWIT(H DEFINITIONS

100000
040000

020000

010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

:*PRIORITY LEVEL DEFINITIONS

SW15=
swié=

1000C0
40000

swi2=
SWll=
swi0=
Sw09swo8=
swo7=
swo6=
SW0S5=
Swo4=
swo3=
Swo2=
Swol=
Swo0=

10000
4000
2000
1000
400
200
100
40
20
10
4
2
1

.EQUIV

SW04,SW4

.EQUIV
.EQUIV

SW01,sSwil
SWO0,Sw0

swi3=

94
gg

20000

CEQUIV SW09,SW9
.EQUIV SW08,Sw8
JEQUIV SW07,Sw7
JEQUIV SW06, Swh
JEQUIV SW0S,SWS
.EQUIV
JEQUIV

92
93

SW03,Sw3
SW02,Sw?

:*DATA BJIT DEFINITIONS (B]T00 1O BIT1S5)

98
99
100
10

100000
040000
020000
010000

BIT15=
BIT14=
BIT13=
8I112=

100000
40000
20000
10000

11
112

000004
000002

BIT02=
BITO1-

4
2

102
103
104
105
106
107
108
109
110

000007

89
90

0~2 MEGAWORD ! _MORY EXERCISER, 16K VER MACY11 30(1046) 04-AG-81 23:00 PAGE 3

004000
002000
001000
000400
000200
000100
000040
000020
000010

BIT11=
BI1T10=
BIT09=
BIT08=
BIT07=
8IT06=
BIT05=
BIT04=
81703=

4000
2000
1000
400
200
100
40
20
10

SEQ 0015

CVMSAA

(VMSAA. P
113

114
15
116
117
'18
119
120
121

04-AUG=-81 22:59
000001

BASIC DEFINITIONS
81700=

.EQuUIV
.EQulv
.EQuUlv
.EQUIV
LEQulv
.EQUIV
.EQUlv
.EQulv
.EQUlv

122

152
125

(-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 4
1

BIT09.BI79
BI1708,8IT8
BIT707.BIT7
BIT06.BIT6
BIT05.,BITS
BIT04 BIT4
BIT03.BIT3
BIT02.BIT2
BIT01,8IM

.EQuIvV BIT00,BIT0
;*BASIC '‘CPU"' TRAP VECTOR ADDRESSES

126
127

000004
000010

ERRVEC= 4
RESVEC= 10

;; TIME OUT AND OTHER ERRORS
; ;RESERVED AND ILLEGAL INSTRUCTIONS

130
13
132
133
134
135

000014
000020
000024
000030
000034
000060

BPTVEC= 14
JI0TVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVE (=34
TKVEC= 60

; ;BREAKPOINT TRAP (BPT)
;: INPUT/OUTPUT TRAP (10T) »+SCOPE=*
;s POWER FAIL
:;EMULATOR TRAP (EMT) *+ERROR*
;:"'TRAP'' TRAP
;:TTY KEYBOARD VECTOR

128
129

000014
000014

TBITVEC=14
TRTVEC= 14

;00T BIT
;. TRACE TRAP

;:TTY PRINTER VECTOR

TPVEC=

;29

139

.SBTTL

MEMORY MANAGEMENT DEF INITIONS

}2%

;*KT11 VECTOR ADDRESS

136

}%g

}2?

000064

000240

MMVEC=

177572
177574
177576
172516

SRO=
SR1=
SRZSR3=

172300
172302
172304
172306
172310
172312
172314
172316

KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KI1PDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316

172340
172342
172344

KIPARQ= 172340
KIPAR1= 172342
KIPAR2= 172344

%gz
155
156
157
158
159
160
161
}g%

}gg
166
167
168

: :PROGRAM INTERRUPT REQUEST VECTOR

250

000250

}2?
148
149
150
}g;

PIRQVEC=240

;*KT11 STATUS REGISTER ADDRESSES
177572
177574
177576
172516

:*KERNEL ‘''I'* PAGE DESCRIPTOR REGISTERS

;*KERNEL ‘'I'' PAGE ADDRESS REGISTERS

SEQ 0016

(VMSAA

(VMSAA P11

04-AUG-81 22:59

WY —

23:00

PAGE 5

SEQ 0017

KIPARG= 172354

KIPAR7= 172356

:CODE FOR UPWANDS MAP [N MEM MGMT PDR'S

uP = 0

bt SBELERRAIZE D00 ~NO N

MEMORY MANAGEMENT DEF INITIONS
KIPARS= 172352

NNNNNNNN ~

b —

170

D oD

KIPAR3= 172346
K IPARG= 172350

169

:CODE FOR READ/WRITE [N MEM MGMT PDR'S

RW = 6
;*

PARITY MEMORY DEFINITIONS.

MISCELLANEOUS ASSIGNMENTS

AE=1
PARVEC=11¢4

D =D

D e

04-AUG-81

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

MASKé4K= 17777
MASKBK= 37777
7
MFPT=

;MASK FOR 4K ADDRESS BANK BOUNDARY.
;MASK FOR 8K ADDRESS BANK BOUNDARY
;MOVE FROM PROCESSOR TYPE TO RO

B e

ed e

017777
037777
000007

;JPARITY ACTION ENABLE
;JPARITY TRAP VECTOR

TRAP CATCHER

.SBTTL

.=0
IN A "L42,HALT
s*ALL UNUSED LOCATIONS FROM & - 776 CONTA
*xSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS D VECTORS
:*LOCAT10N194C0NTA1NS 0 TO CATCH IMPROPERLY LOADE

—, ek

000000

000174
000176

000174
000000
000000

000200
000204

000137
000167

000004
€00006

000004
023252
000000

DISPREG: .WORD
.WORD
SWREG:
003742
000070

.SBTTL

O
0

STARTING ADDRESS(ES)

JMP

JMF

;;SOFTWARE DISPLAY REGISTER
;;SOFTWARE SWITCH REGISTER

4START ::JUMP TO STARTING ADDRESS OF PROGRAM

RESTAR

;RESTART ADDRESS. USING PREVIOUS PARAMETERS.

.=ERRVE(
ERRTRP
.WORD

.WORD

.SBTTL

ACT11 HOOKS
tt!

. 'tfi!l’tttttt*‘itt*tfil'!l"t'tt‘tti'ttfififi!l’fitt'ttfittttttt.t.t'tt

000C46

000052

000010
000046
012560
000052
040000
000010

*HOOKS REQUIRED BY ACT11
SSVPC=.

iEgng
"WORD

T=$SVPC

BIT14

;SAVE PC

..1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP
::2)SET LOC.52 TO BI"14
**“RESTORE PC

OV~

IaV LA 1AV 1V |

16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 6
0-2 MEGAWORD MEMORY EXERCISER, ACT11
HOOKS
04-AUG-81 22:59
P
000100

00010C
000104

000340

000002

.=100

;1F BEVENT IS ENABLED

104,340.2

.WORD

;IGNORE ITS INTERRUPT,DO RT]

.=300
;:l'.."...'.""........."‘."'.'....."....‘.'..'...-........'

000300

“*

0) SO THAT
THE FOLLOWING ROUTINES ARE LOCATED IN THE VECTOR AREANT (0-100
FOR USE OF SWOS: .

THEY CAN BE PROTECTED BY SELECTING SWOS5 (SEE DOCUME

-'ttttfit-tttt.tttttittt"tttt'.t!'.t"i'.fi't'.t..l...t‘.'.'.'tt..

000300
000302

000306
000312
000316
000320
000324
000332
0C0340
000347

005005
000401
010705
012706
005767
001002
000167
005767
001454
032737
001027
012700
012701
012720
005301
001374
012700
005020
012720

005020
005020

RESTAR: CLR

RESTOR: MOV
REST1: MOV
ST

RS
PC,
,
#SCMTAG SP
PRGMAP

B8R

001070
000216

003432

REST2:

000206

000001

“77572

172300
000010
077406

000200

103403

062700
000773
010037
000137

062700
010037
000410
016700
062700
010006
062700
000110
022767
001402
004767
005067
105067

CLR

177572

000106

2%:
3%:

000400

6%:

172340

000450
000200
172342

5%:
10%:

000044
001070
177412

000001

014370
000436
000344

DEC
BNE

CLR
CLR
CLR
CLR

005020

177600
000001

MOV
MOV
CLR
MOV

172340

005020

005020
012720
01273%7
005000
016701
006201

BNE
JMP
TST
BEQ
BIT
BNE
MOV
MOV

000024

20%:
21s:

REST1

REST2
STARTA
MMAVA
108
#R1T0. @#SRO
2
#K1PDRO RO
R1
#8.

#0776406,(ROY+
R1
1$

#K1PARO ,RO
(RO) +
(RO)+
#200,
(RO) +
(RO) +
(RO) +
(RO) +

(RO) +

MoV
MOV
CLR
MOV
ASR
BCS
ADD
BR

#177600, (RO)+
#BITO, a#SRO
RO
PRGMAP, R1
R1
48
RO
#400,
33

MOV
ADD

RELOCF, RO
#$CMTAG,RO

MoV
JMP
ADD
MOV
BR
MOV
ADD
JMP

RO
anss
#200,
RO,
20%

JSR

PC,

RELO

(tRB

$TSTNM

CLR

TCHECK IF MEM MGMT AVAILABLE.
“BR IF NO MEM MGMT.

-CHECK IF MEM MGMT ACTIVE.
'BR IF MEM MGMT ALREADY SET UP.
:POINT TO FIRST MEM MGMT DDATA REC.
*SET UP COUNTER.

:MAP FIRST 28K 1-FOR-1.
*COUNT REGISTERS.
“BR IF MORE REG.

*POINT TO FIRST MEM MGMT ADCPESS REG.
‘PARO MAPPED INTO BANKO.
:PAR1 MAPPED INTO BANKI.
*PAR2 CLEARED
*PAR3 CLEARED
*PARG CLEARED
*PARS CLEARED

*PAR6 CLEARED

;PAR? MAPPED INTO LAST BANK.
;ENABLE MEM MGMT.
;INIT TEMP PAR REG.
;GET THE PROGRAM MAP...LO 64K.
;SHIFT THE MAP POINTER...
;BR WHEN FIRST 8K BANK FOUND.
:UPDATE TMP PAR TO NEXT BK BANK.
JNEXT 8K BANK

;GET RELOCATION FACTOR.
JSET UP STACK POINTER.

JSET STACK TO RELOCATE PROGRAM.
N
RO,
#208-#$CMTAG,RO ;ADJUST RO TO RELOCATED ‘'20%" ADDRESS.
:GO 10 '208'" (RELOCATED).
(RO)

PRGMAF

BEW

"BR IF MEMORY MAPPED.
GO START,IF NOT MAPPED

INKIPARO ;PUT TEMP PAR INTO FIRST PAR.
;JUMP INTO PROGRAM IF NOT THERE ALREADY.
;KEEP UPDATING TEMP PAR REG.
RO
A#KIPART ;SET UP SECOND PROGRAM BANK POINTER.
;BR TO RELOCATE SECTION.

»,

(MP

:CLEAR FLAG TO INDICATE RESTART,
GO RESTORE PROGRAM BEFORE RESTARTING.
'PUT DATA INTO FLAG FOR RESTORE.
“SET UP THE STACK POINTER.
"CHECK IF THE MEMORY HAS BEEN MAPPED.

21%
$TIMES

:(HECK IF PROGRAM IS IN 8K BANK O .
;BR IF IN 8K BANK 0.
SRELOCATE THE PROGRAM BA(CK TO BANK O.
;CLEAN UP BEFORE STARTING.

SEQ 0018

MSAA

MSAA P

271

00052¢

04~AUG~81 22:59

000167

277
278

279
280

006150

ACT11 HOOKS

:RESTART WITH PREVIOUSLY SELECTED PARAMETERS.
;o THE FOLLOWING LOCATIONS ARE USED BY THE ABOVE ROUTINE AND MUST BE LOCATED
P

START1

‘e« BELOW 1000 TO INSURE CORRECT OPERATION UNDER THE WIDEST VARIETY Of

57%
274

57§
576

-2 MEGAWORD MEMORY EXERCISER, 16k VER MACY1Y 30(104¢) 04-AUG-81 23:00 PAGE 7

000532

000534
000536

000000

000000
000000

:*+

CJRCUMSTANCES.

RELOCF: .WCRD
PRGMAP: .WORD
MMAVA:

_WORD

0
O

;CONTAINS RELOCATION FACTOR (NO MEM MGMT)
:PROGRAM MAP - WHERE THE PROGRAM IS LOCATED
;MEMORY MANAGEMENT AVAILABLE FLAG.
MMU AVAILABLE
;BIT 0 -1
22 BIT ADDRESSING AVAILABLE
;BIT 15 -1

€0 0019

-81
(=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG
POWER DOWN AND UP ROUTINES
P11
04-AUG-81 22:59

.SBTTL

23:00

PAGE 8

SEQ 0020

POWER DOWN AND UP ROUTINES
RS
3
AR RA
222
R R0
332
X222

Q0) (23232
22
322
232223 3222228
e 122222222

000706
000340

000540
000546
000554
000556
000560
000562
000564
000566
000570
000574

NI NN —
N

LS
L W1,V — e
~N 2 OO0

s e

’3008
D00~

000606
000610

000612
000620
000624
020630
000634
000636
000642
000644
000646
000650
000652
000654
000656
000664
000672

000676
000700
000702
000704
000706
000710
000712

000334
000112
000612

000024
000026

:POWER DOWN ROUTINE
#SILLUP, S#PWRVE( ;:SET FOR FAST UP
$PWRDN: MOV

MOV

#3460, SFPWRVEC+2 ;:PRIO:7
JPUSH RO ON STA(K
RO,-(SP)
.,PUSH R1 ON STA(K
R1.-(SP)

MOV
ngvT

;. SAVE SP
SP,$SAVR6
ASPWRUP ,@#PWRVEC ;SET UF VECTOR

MOV

MOV
MOV
MOV
MOV
MOV
000024

000776

R2.-(SP)
R3,-(SP)
R4 ,-(SP)
RS,-(SP)
aSWR, = (SP)

;sPUSH R2 ON STA(K
;;PUSH R3 ON STA(K
;:PUSH R4 ON STA(K
;:PUSH RS ON STA(K
;:PUSH @SWR ON STA(K

.~2

; SHANG UP
tti!tttt'

. 'tt'it*tfifittt'fitl'fi"t""‘fl*"'.*t.'t*‘t"'!'Q'QtiIt.

012737
016706
005067
005267
001375
012677
012605
012604
012603

000706
000066
000062
000056

00002«

012737
012737
004567

023761
012716
000300
000002
000000
000776
000000

(LR

INC
BNE

MOV

000266

000540
000340
020676

MoV

1%:

012602

012601
012600

*POWER UP ROUTINE

$PWRUP: MOV

00002¢
000026

MOV
MOV
MOV
MOV
MOV
MOV

MOV

Mov
JSR

$PWRMG: .WORD
MoV

ASILLUP, SIPURVEC ;2SET FOR FAST DOWN
IGET SP
$SAVR6, SP
LOOP FOR THE TTY
:WAIT
$SAVR6
FOR THE INC
;WAL
$SAVR6
WORD

:0F

(SP)+,R5S
(SP)+,R4
(SP)+ ,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,R0O

;;POP STACK INTO RS
;;POP STACK INTO Ré
;;POP STACK INTO R3
':POP STACK INTO RZ
;POP STACK INTO R1
;POP STACK INTO RO

(SP) +,aSWR

;.POP STACK INTO aSwR

#SPWRDN, alPURVEC ;:SET UP THE POWER DOWN VECTOR
#340, NPWURVEC+2 : PRIO 7
SPRINT GO PRINT QUT THE FOLLOWING MESSAGE.
R5,
; ;POWER FAIL MESSAGE POINTER
PWRMSG

$PWRAD : é¥?RD

(PC)+,(SP)

RESTART

RESTART AT RESTART

$SILLUP: HALT
BR

.~2

THE POWER P SEQUENCE WAS STARTED
- BEFORE THE POWER DOWN WAS ([OMPLETE

$SAVR6: O

; JRESTARI ADDRESS

tPUT THE SP HERE

O-¢ MEGAWORD MEMORY EXERCISER, 16X VER MACY11 30(1046)
04-AUG-81 22:5

COMMON TAGS
.SBTTL

1
2
04-AUG-81

23:00

PAGE 9

SEQ 0021

(OMMON TAGS
.‘..'Q'l

-"......'t'.......'..'....".t.......'l'.Ql"..t....l.'.

“eTHIS TABLE CONTAINS VARIOUS (OMMON STORAGE LOCATIUNS
:*USED IN THE PROGRAM.

N—'Ol\l\)ool\NOVOMJ\NOngOOU‘A\NOO‘ HsNNO KIRI8

bl ——

N WNNONONINDN) —3 =d b =

NNNOROOWVWNNNS NS

D il

th e
]

b
e

) e e
D

D ad
D omd

D nd wd

—ad

d wd
D cad ad e
e
i mad o

177607

b i

.WORD
. WORD

.BYTE
.BYTE
.WORD
.WORD
SWR :
DISPLAY: .WORD

SAUTOB:
$SINTAG:

e caod

<
o

D e
e
i
—d

.WORD

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WCRD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD

000377

::START OF

(OMMON TAGS

;:CONTAINS THE TEST NUMBER
: :CONTAINS ERROR FLAG
; ; CONTAINS SUBTEST ITERATION COUNT
:; CONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
;s CONTAINS TOTAL ERRORS DETECTED
; ; CONTAINS ITEM CONTROL BYTE
:; CONTAINS MAX. ERRORS PER TEST
: ; CONTAINS PC OF LAST ERROR INSTRU(TION
; ; CONTAINS ADDRESS OF 'GOOD' DATA
: :CONTAINS ADDRESS OF 'BAD' DATA
; ;CONTAINS 'GOOD' DATA
;s CONTAINS 'BAD' DATA

; ;RESERVED--NOT TO BE USED

;;AUTOMATIC MODE INDICATOR
:: INTERRUPT MODE INDICATOR

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

$TSTNM:
SERFLG:
$ICNT:
SLPADR:
$SLPERR:
SERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT:

—d

i
b e

28838858888888 33 3333333333833

OD1SP

;:TTY KBD STATUS

$TKS:
$TkB:
$TPS:
$TPB:

177560
177562
177564
177566

"SBTTL

APT MAILBOX~ETABLE

;:TTY KBD BUFFER

::TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS

FILLS

:;CONTAINS NULL CHARACTER FOR
0
.BYTE
$NULL:
:;CONTAINS # OF FILLER CHARACTERS REQUIRED
2
$FILLS: .BYTE
T FILL CHARS. AFTER A 'LINE FEED''
;;INSER
12
$FILLC: .BYTE
NAL AVAILABLE'® FLAG (B]T<07>=0=YES)
TERMI
;U
0
$TPFLG: .BYTE
:;USER DEF INED
0
.WORD
$TMPO:
:JUSER DEF INED
0
.WORD
$TMP1:
::USER DEF INED
0
.WORD
$STMP2:
DEF INED
;JUSER
0
_WORD
$TMP3:
;:MAX. NUMBER OF ITERATIONS
$TIMES: O
:;ESCAPE ON ERROR ADDRESS
SESCAPE: 0
.ASCIZ <207><377><377> ;:CODE FOR BELL
$BELL:
;3 QUESTION MARK
/
.ASCII
$QUES:
:;CARRIAGE RETURN
<15>
.ASCI!
$CRLF:
::LINE FEED
<12>
ASCIZ
$LF:
tttt't'
"l"'ttfi.'."ttttl.'..t't"tit't‘ttt'i."'t.'fitt.'tttt.tt
t"ttttttl

';.fi.l.t."t.t.."tfit't.""fi't'fifi."'tt.!'tt'l!tt.ltt'

2888

I
S
T S S 3 :fiufi:uflfluflda&d
dvd St ehe
ONOWNS W00 oot

330

.=1070
[eolulvlelolololeloPHolololole
lolo )

S$CMTAG:

000000

.EVEN
SMAIL:
MSGTY:
$FATAL:
$TESTIN:

,WORD
.WORD
.WORD

AMSGTY
AFATAL

ATESTN

::APT MA]LBOX

::MESSAGE TYPE CODt
::FATAL ERROR NUMBER
;;TEST NUMBER

(-2 MEGAWORD MEMORY EXER’ISER, 16k VER MACY11 30(104€) 04-AUG-81 23:00 PAGE 10

04~-AUG-81 22:59

001202
001204
001206
001210
001212
001214
001214
001215
001216
001220
001222

00000C
000000
000000
000000
000000
000
000
000000
000000
000000

APT MAJ(BOX-ETABLE

$PASS: .WORD
$DEV(CT: .WORD
SUNIT: _WORD
SMSGAD: .WORD
SMSGLG: .WORD
SETAH.E:
.BYTE
$SENV:
SENVM: _BYTE
SSWREG: .WORD
SUSWR: _WORD
$CPUOP: .WORD
o
L
L®

: :PASS COUNT
::DEVICE COUNT
:: 170 UNIT NUMBER
;;MESSAGE ADDRESS
;.MESSAGE LENGTH
::APT ENVIRONMENT TABLE
: ;ENVIRONMENT OYTE
AENV
AENVM ; ENVIRONMENT MODE BITS
ASWREG ;;APT SWITCH REGISTER
AUSWR :;USER SWITCHES
ACPUOP ;.CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE
11704=01,11/05=02,11/20=03,11/40=04,11/45=05

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

001224
001225
001226
001230
001231
001232
001234
001235
001236
001240
001241
001242

000
000
000000
000
000
000000
000
000
000000
000
000
000000

001244 000000
001246 000000
001250 000000
001252 000000
001254 000000
001256 000000
001260 000000
001262 000000
001264 000000
001266 000000
001270 000000
001272 000000
001274 000000
001276 000000
001300 000000
001302 000000
001304 000000
001306 000000
001310 000000
001312 000000
001314 000000
001316 000000

i*
Ml

$MAMS1: .BYTE
SMIYP1: .BYTE
i

i*
S
M

$MADR1: .WORD
I%
SMAMS2: .BYTE
SMTYP2: .BYTE
SMADR2: .WORD
SMAMS3: .BYTE
SMTYP3: .BYTE
$SMADR3: .WORD
$MAMSS: .BYTE
SMTYP4: .BYTE
$SMADR4L: .WORD

SVECT1: .WORD
SVECT2: .WORD
$BASE: .WORD
$DEVM: .WORD
$COW1: .WORD
$CDW2: .WORD
$DDWO: .WORD
$DDW1: .WORD
$ODW2: .WORD
$DDW3: .WORD
$DDW4: .WORD
$ODWS: .WORD
$ODW6: .WORD
$DDW7: .WORD
$ODW8: .WORD
$DDW9: .WORD
$DDW10: .WORD
$DDW11: .WORD
$DDW12: .WORD
$DDW13: .WORD
$DDW14: .WORD
$DDW15: .WORD

AMAMS]
AMTYP1

11/70=06,PDQ=07,Q=10
81T 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT B=MEMORY MANAGEMENT

;:HIGH ADDRESS.M.S. BYTE
;MEM. TYPE BLKA1

MEM.TYPE BYTE

=--

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003

AMADR1 ;:HIGH ADDRESS,BLKA
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOwW Of *TYPE'' ABOVE
AMAMS? ;;HIGH ADDRESS ,M.S. BYTE
AMTYP2 ;.MEM.TYPE BLKA?
2
AMADR? ;;MEM.LAST ADDRESS,BLKA
TE
M.S.BY
S
ADDRES
AMAMS3 :HIGH
AMTYP3 :MEM.TYPE,BLKA3
AMADR3 ;;MEM.LAST ADDRESS,BLKA3
AMAMSS ;;HIGH ADDRESS.M.S.BYTE
AMTYP4 ; ;MEM.TYPE,BLKAG
AMADRS ; :MEM.LAST ADDRESS,BLKA4
ITYM

AVECT1
AVECT2
ABASE
ADEVM
ACDW1
ACDW2
ADDWO
ADDWI
ADDW2
ADDW3
ADDW4
ADDWS
ADDWE
ADDW?
ADDWS
ADDW9
ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW1S

;;INTERRUPT VECTORA1,BUS PRIOR
YA?2
;;INTERRUPT VECTORA2BUS PRIORIT
TEST
UNDER
ENT
EQUIPM
OF
S
ADDRES
; :BASE
MAP
CE
;;DEVI
: :CONTROLLER DESCRIPTION WORDA1
;:CONTROLLER DESCRIPTION wORDA?2
;:DEVICE DESCRIPTOR WORDAO
::DEVICE DESCRIPTOR WORDA1
;;DEVICE DESCRIPTOR WORDA2
;;DEVICE DESCRIPTOR WORDA3
; :DEVICE DESCRIPTOR WORDA4
::DEVICE DESCRIPTOR WORDAS
;:DEVICE DESCRIPTOR WORD#6
;;DEVICE DESCRIPTOR WORDA7
;;DEVICE DESCRIPTOR WORDA8
;;DEVICE DESCRIPTOR WORDA9
;.DEVICE DESCRIPTOR WORDA10
;;DEVICE DESCRIPTOR WORDA11
;:DEVICE DESCRIPTOR WORD#123
;:DEVICE DESCRIPTOR WORD#1
;;DEVICE DESCRIPTOR WORDA14
;:DEVICE DESCRIPTOR WORD#15

(VMSAA
CVMSAA

435

04~-AUG-81 22:59

001320

438

448
449
450
451
452

453
454

455
456

457

458
459

480
481
482
483
484
485
486
487

489
490

SEQ 0023

APT PARAMETER B.O(K

RN A AR ENRAN AN ARF AR

IR TARRNE AR AR RANRT TR RO IR A RSN Te

TIONS 24 AND 44 AS REQUIRED FOR APT
“SET LOCA
RO ND
RRCR R TN RC
RN O RRT
AR R AN REAAARIARAEAREIRARNARANAEN RAARRC
AR

001320
000024
000024 000200

L$X=,
.=24
200

;:SAVE CURRENT LOCATION
S.SET POWER FAIL TO PCINT TO START OF PROGRAM
;:FOR APT START UP

::POINT TO APT INDIRECT ADDRESS PNTR.
.=hé
$APTHDR ;;POINT TO APT HEADER BLOCK
R

000044
000044 001320

T LOCATION COUNTE
“SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

;;RESE
.=.$X
RN
EN
RCRR IR
RN R TRAA
LA RIARR
ATARE
RE
AR AR
R R AR RARRAA AN ARRARRRE

001320

; INTERFACE SPEC.

001320

$APTHD:

001326 002260
001330 000000

$PASTM: .WORD
SUNITM: _WORD

$HIBTS: .WORD
$MBADR: .WORD
$TSTM: _WORD

001320 000000
0C1322 001174
0013246 001604

001332 000052

.SBTTL

460

461
462
463
464
465
466
w67
468
469
470
6«71
672
473
474
475
676
677
4«78

SETEND:
.SBTTL

439

6467

APT MAILBOX-ETABLE
MEX]IT

637

440
4461
642
443
444
645
446

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 11

"WORD

O
SMAIL
900.

1200.
0.

X ADDR.
;:TWO HIGH BITS OF 18 BIT MAILBO0-15)
(BITS
X
MAILBO
APT
OF
SS
- ADDRE
;;RUN TIM OF LONGEST TEST
ON 1 UNIT (QUICK VERIFY)

1ST PASS
“:RUN TIME IN SECS. OF (SECS)
OF A PASS FOR EACH ADDITIONAL UNITY
.:ADDITIONAL RUN TIME
LE (WORDS)

SETEND-SMAIL/2 .:LENGTH MAILBOX~ETAB

APT STATISTICS TABLE

AR AR AR EENAAR AR TR AR R AR IR ARR

001334

001334
001340
001344
001350
001354
001360
001364
001370
001374
001400
001404
001410
001414
001420
001424
001430
001434
001440
001444
001450
001454
001460
001464
001470
001474
001500

001502

177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
001334

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

$ASTAT:

WORD
WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
.WORD
WORD
MWORD
LWORD
WORD
WORD
WORD
WORD
.WORD
MWORD
MWORD
WORD
LWORD
.WORD
.WORD
WORD
.WORD

$ASTEND :
$APTR: SASTAT

-1,0
-1,0
-1,0
-1.0
-1.0
~1.,0
-1,0
-1.0
-1.,0
-1.0
~1.0
-~1,0
-1,0
~1,0
-1,0

-1,0
-1.0
-1.0
-1.0
-1,0
-1,0
-1,0
-1,0
-1.0
-1,0
-1

R CRN AR AR

RRAY

16K VER MACY1? 30(1046) 04-AUG-81 23:00 PAGE 12
N-2 MEGAWORD MEMORY EXERCISER, APT
STATISTICS TABLE
06-AUG-81 22:59
LN

"t.t.'.tt‘fi""'tfi'l.t't'ttltttt.t".fittl.t.tt..."...t..'.‘l'.'

000000

070032

000000
000000

WING TAGS ARE USER DEF INED
"%THE FOLLO
"tttttt't"ttttt't'tttttt"tttt.tt't"lttifi'.t'.'t"".."l.l...
:VIRTUAL PC LOCATION FOR ERROR TYPEOUT ROUTINE (SERTYP).
0
$VERPC: .WORD
070032 :CORE PARITY REG BITS RESERVED FOR FUTURE USE.
RESRVD: .WORD
INOTE: FOR MS11 MEMORY WITH PARITY, CHANGE TO 077772.
LMAD:
LDDISP:

.WORD
.WORD

SLAST CONTIGUOUS MEMORY ADDRESS (+2)

; CONTAINS DISPLAY REGISTER IMAGE

:MEMORY MAP - EACH BIT CORRESPONDS TO 8K

MEMMAP:

.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

:TEST MAP - WHICH BANKS ARE SELECTED FOR TEST.

TSTMAP:

. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD

000000
000000

000000
000000
000000

000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;1ST WORD MAP...128KW
;OND WORD MAP...256KW
;3RD WORD MAP...384KW
;4TH WORD MAP...512KW
;STH WORD MAP...640KW
;6TH WORD MAP...768KW
;7TH WORD MAP...B96KW
;8TH WORD MAP..1024KW
;9TH WORD MAP..1152KW
.
. 1280KW
;10TH WORD MAP
W
P.
1408K
.
MA
WORD
;11TH
536KwW
MAP..1
WORD
;12TH
:13TH WORD MAP..71664KW
W
P.
. 1792K
:14TH WORD MA
;15TH WORD MAP..1920KW
;16TH WORD MAP. .2048KW

0
0
0

0
0
0
0
0
0
0
0
0
0
0
0
0

SAVTST:

;1ST
;2ND
;3RD

WORD MAP...128KW
.
.. 256KW
WORD MAP
WORD MAP...3B4KW

;4TH WORD MAP...512KW
;STH WORD MAP...660KW
;6TH WORD MAP...768KW
;7TH WORD MAP...B96KW
;8TH WORD MAP..1024KW
;9TH WORD MAP..1152KW
;10TH WORD MAP..1280KW
;11TH WORD MAP..1408KW
W
P.
. 1536K
;12TH WORD MA
W
P.
. 1664K
;13TH WORD MA
:14TH WORD MAP..1792KW
P.
. 1920KW
;15TH WORD MA
:16TH WORD MAP. .2048KW

:SAVED TEST MAP - USED DURING FIRST PASS TO ONLY
; TEST EACH BANK ONCE.

.WORD
.WORD
.WORD
. WORD
.WORD
.WORD

0
0
0
0
0
0

;1ST
;2ND
;3RD
;4TH
;STH
;6TH

WORD MAP...128KW
WORD MAP...256KW
3B4KW
..P.
WORD MA
WORD MAP...512KW
WORD MAP...640KW
WORD MAP...768KW

SEQ 0024

001640

000000

001644
001646
001650

000000
000000
000000
000000

001652

001654

001674
001676
001700
001702
001704
001706
001710
001712

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000

001714
001716
001720
001722
001724
001726
001730
001732
001734
001736
001740
001742
001744
001746
001750
001752

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

001754

000000

001756
001757

000

:7TH

;8TH

23:00

PAGE 13

WORD MAP...B96KW

W
P.
. 1024K
WORD MA

WORD MAP..1152KkW
;10TH WORD MAP..12B0KW

;9TH

.
. 1408KW
;11TH WORD MAP

;12TH WORD MAP..1536kw
;13TH WORD MAP. .1664KW
:14TH WORD MAP..1792KW
;15TH WORD MAP..1920kW
;16TH WORD MAP..2048kW

:1ST WORD MAP...128KW
..
. 256KW
;2ND WORD MAP
W
3B4K
P.
..
;3RD WORD MA
12KW
MAP...5
;4TH WORD
.
.. 640KW
;STH WORD MAP
W
.
768K
.
P.
;6TH WORD MA
896KW
MAP...
WORD
;7TH
;8TH WORD MAP..1024KW
;9TH WORD MAP..1152KW
;10TH WORD MAP..1280KW
;11TH WORD MAP..1408KW
:12TH WORD MAP..1536KW
;13TH WORD MAP..1664KW
;14TH WORD MAP..1792KW
;15TH WORD MAP..1920KwW
;T6TH WORD MAP., 2048KW

;POINTER TO CURRENT 8K BANK OF MEMORY

BITPT:

001714

04~AUG-81

:PARITY MAP - WHICH BANKS HAVE MEMORY PARITY

PMEMAP:

001654

[eYeoYololololololololalalololelo]

001642

.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD

00000C
000000

.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

:
MMORE

.WORD

SELFLG:
FLAGSK:

.BYTE
BYTE

[olololololelolelalelololalalels)

001630
001632
001634
001636

[e]elelelolololelelo]

(-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)
APT STATISTICS TABLE
04~AUG-81 22:59
P

128KW
..P.
;1ST WORD MA
W
256K
P.
..
MA
;OND WORD
W
.
384K
.
P.
MA
:3RD WORD
2KW
..51
MAP.
;4TH WORD
;STH WORD MAP...640KW
;6TH WORD MAP...768KW
;7TH WORD MAP...B90KW
;8TH WORD MAP..1024KW
;9TH WORD MAP..1152KW
:10TH WORD MAP..1280KW
.
. 1408KW
:11TH WORD MAP
6KW
.153
MAP.
:12TH WORD
:13TH WORD MAP..1664KW
;14TH WORD MAP. .1792KW
;15TH WORD MAP..1920KwW

:16TH WORD MAP. .2048KW

:LOOP ADDRESS FOR MULTIPLE BLOCK TESTING.
INES.
SSET UP BY “‘INITMM® AND ‘‘INITDN'' ROUT
NES.
ROUTI
N'‘'
'MMDOW
AND
'‘
SUSED BY "MMUP

FLAG. (SA=204)
*OPERATOR SELECTED PARAMETERS
IN "INITMM'* AND 'MMUP''.
;8K BLOCK IND] CATOR.

USED

SEQ 0025

)
0-2 MEGAWORD MEMOR Y EXERCISER, 16K VER MaCY11 30(1046

APT STATISTICS TABLE

04~-AUG-81 22:59

001760

001762
001764
001766

001770

id and
d el
ok

637

638

002002
002002
002004
002006
002010

653

654
65%
656

657
658

LSIFLG: .WORD
PLUST: .WORD

O
O

;ODD/EVEN FLAG USED IN PARITY MEMORY BYTE TEST.
:FIRST VIRTUAL ADDRESS 1O BE TESTED.
;FIRST ADDRESS IS USER SELECTABLE.
. TO BREAK TO “MMUP'' TO FIND LAST ADDRESS.
;USER SELECTABLE CONSTANT DATA.
;WRITE WRONG PARITY COMMAND
; TEMPORARY STORAGE
; TEMPORARY STORAGE
;30K MEMORY FLAG
;LSI1-11 PROCESSOR FLAG

;DATA BIT USED FOR FIRST ENTRY INTO
;MMUP AND MMDOWN ROUTINES.

RELATIVE ADDRESSING TABL:.

002012
002014

002016
002020

002022
002024
002026

002030
002032
002034
002036

RADTAB:

.STACK: $CMTAG
LMEMMAP :
.SAVTST:
.TSTMAP:
.PMEMAP :
.BITPT: BITPT

001070
001514
001614
001554
001654
001714
001506
002270
003370
010356
002242
015454
003432
000010
012344

002136

002144
002146
002154
002162
002164

\nsz—fla_acj_ac)_qa

OO0

ik
o
o
i md
el mad

002106

002112
002120
002126
002130

001

—

002040
002046
002052
002060
002066
002074
002100

ALY == (Y e A\ SN ek \ S}

4
648
649
650
651
652

0
4
O

SEQ 0026

':tttt

[eleleleloleleled

644
645
646

.CONST: .WORD
.WORD
WP :
.WORD
TEMP:

.EVEN

23:00 PAGE 14

IED AT RELOCATION TIME TO ALLOW
“« THE FOLLOWING LOCATIONS ARE MODIF
NT TAGS.
THE ARGUME
VALUE OFt.fi'
RELOC
THE
GET
TO
SSING tttttitttttt**'tt.ATED
ADDREtttttt
VEtttttt
‘x RELATI
ARAANE
ittttt
*tltif
tttt*t

(o]
3 slalelolalale

641
64
643

‘%

.RESRV: RESRVD
.MPRO: MPRO
.MPRX: MPRX
.PBTRP: PBTRP
.MPPAT: MPPATS
.PESRV: PESRV
.ERRTB: SERRTB
L.EIGHT: 8.
LTST32: TST32

MEMMAP

SAVTST
TSTMAP

PMEMAP

;STACK POINTER INITIAL ADDRESS.
;AUTO. MEMORY SIZING MAP
;SIZED MEMORY MAP FROM AUTO. OR USER
;MEMORY MAP OF 8K BANKS TO TEST
;PARITY MAP OF 8K BANKS
;BIT POINTER FOR BLOCK UNDER TEST

:PARITY REGISTER RESERVED BIT MASK ADDRESS.
:MEMORY PARITY REGISTER TABLE ADDRESS.
*MEMORY PARITY REGISTER EXIST TABLE ADDRESS.
:PARITY BYTE TEST TRAP ROUTINE ADDRESS.
:MEMORY PARITY PATTERN TABLE ADDRESS.
*MEMORY PARITY ERROR TRAP ROUTINE ADDRESS.
;ERROR TYPEOUT TABLE PONTER.
:DECIMAL TYPE ROUTINE COUNT DESIGNATOR.
©SCOPE ABORT ADR FOR WHEN NO MEM AVA FOR TEST.
tt*ttt

"ttitttttfittttt**t***ttttitt*ttitt*t*t**tfittttt*tttttttttt

“*

DATA CONTAINERS FOR ERROR PRINTOUT.

001114

DT1:

$ERRPC , $GDADR, $GDDAT , $8DDAT 0

001110
000000
001110

DT2:

SVERPC , $ERRPC , $GDADR, $GDDAT , $8DDAT .0

DT12:

$VERPC,$ERRP(,$GDADR, $GDDAT,0

001150

DT14:

S$VERPC,$ERRPC,$TMPO,SGDADR,0

001110

DT15:

,0
MPO,
$BDDAT
,S$T
$GDDAT,
$VERPC.SERRP(,$GDADR

DT21:

T,0
DR,
,$BDDA
$GDA
$GDDAT
$VERPC,SERRPC,$TMPO,

639

640

FSTADR: .WORD

-'tttttttttitttitttttttttt'tttti**t.t'tttti.'.lfi'fil'fi"'-t"'iQtt

—

W =2OLCo0~N
SO NN

636

TEMPT: _WORD
FLG30K: .WORD

001772
001774
01776
002000

630
631
652
633
634
635

.BYTE

OEFLG:

00C
001762
000000

04-AUG-81

001110
000000
001106
001116
001106
000000
001106
000000
001106
001114

0011

tttt

;;*tit*t*ttfifit***tt*t**tt*i‘fi**tttfit*fi*ttt***tii**ltt*tttlt't

DT23: S$VERPC,SERRP(,$GDADR,$8DADR, $GDDAT,$BDDAT,0
DT24:

$VERP(,SERRPC, $BDADR O

O-¢ MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 15

04-AUG-81 22:59

002172

APT STATISTICS TABLE

00000C

SVERPC .SERRP( ,$BDADR,$TMPO
STMP1,0
$SVERP( ,SERRP(C ,$TMPO,
$TMPO,STMP1_SGDADR,$BODAT .0

002174 001504 001106 001112 DT25:
002202 001150 001152 000000
002210 001504 001106 001150 DT26:
002216 001152 000000
002222 001150 001152 001110 DT30:
002230

00223

001116

000000

001156 000000

002240 177777

pT31:

$TMP3.0

LSBTTL

MEMORY PARITY PATTERNS TABLE

.WORD

-1

SE@ 0027

,STMF1,0

s TABLE TERMINATOR.
.

.'"t'fit.tt'fil’.fi!Q'Qittt'tit't'fi‘.t"fittfi'fifi'fi'l'*"."'t't..tt..'

"THE FOLLOWING ARE THE PARITY PATTERNS EXERCISED THRUOUT MEMORY

""tttt.'fitt'l’t‘t'tt't"t"""ttt'ii"lfi*itt'fi"ttfi"t'tfi"tfifi't"'.

002242
002244
002246
002250
002252
002254
002256
002260
002262

125325
152652
052452
025125
102070
072527
177777
107030
152525

002264 000000
002266 000000

;EVEN,ODD
;0DD,EVEN
;EVEN,ODD
;0DD,EVEN
;EVEN_EVEN
;0DD,0DD
JEVEN,EVEN
;0DD,0DD
;ODD,EVEN

MPPATS: 125325
152652
052452
025125
102070
072527
177777
107030
152525

;JEXTRA PATTERN HOLDER FOR
sFUTURE USE
;TABLE TERMINATOR

MPEND:

0
O

.SBTTL

MEMORY PARITY REGISTER ADDRESS TABLE

/////
://///////////////////////////////////////////////////////////////
REGISTER ADDRESS TABLE
"« THE FOLLOWING REPRESENTS THE MEMORYSEDPARITY
& CONTROLLED:
S«

FROM WHICH PARITY MEMORY IS ADDRES

‘«

ADDRESS IS SET TO A ONE (1)
THE LEAST SIGNIFICANT BIT IN THE DEVICE T.
THE MEMORY PRESENT UNDER

‘»

THE DEVICE ADDRESS.

PRESEN
“« ]F THE CONTROL IS FOUND NOT TO BE
REPRESENTED BY 16 WORDS FOLLOWING
IS
LLER
CONTRO
‘« THE CONTROL OF EACH
B8IT MEMORY ONLY 1 WORD IS USED

PN —O

NNNNY

238

‘s«

002270
002c72
002274
002276
002300
002302
002304
002306
002310
002312
002314

002316
002320
002322
002324

172101
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000

FOR NON-22

(EACH BIT REPRESENTING A 8K BLOCK,

I.E.

FIRST WORD BITO = 0 - 8k,

16 BIT ADDRESSING
24~28KwW
BIT 3=
i
18 BIT ADDRESSING
24KW
120-1
8IT 15 =
o
7177
II
117777
II
171717
II
007/17111717
IT
710070
II
010007
II
EEII71
I
II
II
SIII

MPRO:

172100 +1
.WORD O
.WORD 0
.WORD 0
LMWORD 0
.WORD O
.WORD 0
.WORD O
WORD O
.WORD O
.WORD 0

.WORD
WORD
.WORD
.WORD

9
O
0
O

;PARITY STATUS REGISTER
:1ST WORD CONTROL MAP...128KW
;eND WORD CONTROL MAP...256KW
:3RD WORD CONTROL MAP...384KW
;4TH WORD CONTROL MAP...512KW
;STH WORD CONTROL MAP...640KW
:6TH WORD CONTROL MAP...768KW
:7TH WORD CONTROL MAP...B96KW
:8TH WORD CONTROL MAP..1024KW
:9TH WORD CONTROL MAP..1152KW
:10TH WORD CONTROL MAP..1280KW

:11TH WORD CONTROL MAP..1408kW
$12TH WORD CONTROL MAP..1536KW
;13TH WORD CONTROL MAP..1664KW
:14TH WORD CONTROL MAP..1792KW

.WORD

002326
MPR1:

MPR?:

MPR3:

.WORD
.WORD

0
0
0

172102 + 1
¢
-WORD
0
~WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
. WORD
0
-WORD
0
.WORD
0
.WORD
0
. WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
172104 + 1
0
.WORD
0
-WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
. WORD
0
.WORD
0
.WORD
0
. WORD
0
.WORD
0
. WORD
0
.WORD
0
.WORD
. WORD
0
172106 + 1
0
.WORD
0
-WORD
0
. WORD
0
.WORD
0
.WORD
0
. WORD
0
. WORD
0
.WORD
0
.WORD
0
-WORD
0
.WORD
0
.WORD
9
.WORD
0
.WORD
0
.WORD
0
.WORD

23:00

PAGE 16

:1STH WORD CONTROL MAP, . 1920Kw
MAP . . 204 8KW
*16TH WORD CONTROL MAP

MASK FOR UNUSED PAR]TY (SR BITS
:qg$ITY STATUS REGISTER
WORD CONTROL

.. 128kW

.. 256KW
;2ND WORD CONTROL
.. 384KW
CONTROL
WORD
D
; 3R
..512KW
AL
WORD CONTROL
. .640KW
:STH WORD CONTROL
..768KU
;6TH WORD CONTROL
. 896KW
:7TH
WORD CONTROL
-1024KW
:8TH WORD CONTROL
.1152KW
WORD CONTROL
:9TH
.. 1280KW
:10TH WORD CONTROL
. 1408kW
:11TH WORD CONTROL
.1536KW
:12TH WORD CONTROL
. 1664KW
:13TH WORD CONTROL
.1792KW
:14TH WORD CONTROL
. 1920kKW
;15TH WORD CONTROL
.. 2048KW
;16TH WORD CONTROL
:MASK FOR UNUSED PARITY (SR BITS

*PARITY STATUS REGISTER
CONTROL
CONTROL
1 2ND
CONTROL
;3RD
CONTROL
;6TH
CONTROL
:5TH
CONTROL
;6TH
:7TH WORD CONTROL
;8TH WORD CONTROL
WORD CONTROL
;9TH
;10TH WORD CONTROL
;11TH WORD CONTROL
;12TH WORD CONTROL
:13TH WORD CONTROL
;14TH WORD CONTROL
:15TH WORD CONTROL
:16TH WORD CONTROL
MASK FOR UNUSED PARI

;18T

WORD
WORD
WORD
WORD
WORD
WORD

;PARITY STATUS REGIST
;18T

:2ND

;3RD
:4TH

;STH
;6TH
:7TH
;8TH
:9TH

;10TH
:11TH
:12TH

;13TH

J14TH

:1S5TH
:16TH

CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL

.. 128KW
. . 256KW
.. 384KW
.. 512KW
. . 640KW
..768Kw
. 896KW
-1024kwW
< 1152KW
. .1280kW
. 1408kW

.. 1536KW
. 1664KW

.1792KW

04-AUG-81 22:59

MEMORY PARITY REGISTER ADDRESS TABLE

m—

c 3
04-AUG-81

FIEIRRETRARINNES SEEEIIIIIIINIENSS SEERRRREIIIILELNGS

0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

. 1920kW
. 2048KW
CSR BITS
.. 128KW

. .256KW
. . 384KW

..512kw

. .640KW
.. 768KW
...896KW
. 1024KW
..1152kwW
.. 1280kw
. 1408KwW
..1536KwW
. . 1664KW
.. 1792KW
.. 1920k
..2048KW

SEQ 0028

172111

MPR :

MPR5 :

.WORD

0
.WORD
0
D
.WOR
0
.WORD
O
D
.WOR
O
.WORD
172112 +1

0
0
O
0
O
0
0
O
O
0
0
0
O
0O
O

MPR? :

0
.WORD
0
.WORD
O
.WORD
O
.WORD
0
.WORD
0
.WORD
0
.WORD
.WORD
O
172116 +1

MPR6 :

.WORD
O
172114 +1

i —id

—md

E T
-~ OO0~ [e JE, PRV

.WORD

JWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MWORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD

000000

822

172117

O
.WORD
172110 +1
O
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
O
.WORD
0
.WORD

WORD
JWORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD

O
0
0
0
O
O
O
0
0O

PAGE 17

:MASK FOR UNUSED PARITY (SR BITS

:PARITY STAUS REGISTER
. 128KW
;18T WORD CONTROL
56KW
..2
;2ND WORD CONTROL
KW
3B4
..
:3RD WORD CONTROL
.512xw
:4TH
WORD CONTROL
L. 640KW
:5TH WORD CONTROL
.. 768KW
CONTROL
D
;6TH WOR
. .896KW
:7TH
WORD CONTROL
.1024KW
CONTROL
D
WOR
;8TH
.1152kw
L
CONTRO
WORD
;9TH
. 1280w
CONTROL
D
WOR
:10TH
. 1408KwW
ROL
D
CONT
WOR
TH
:11
1536KU
:12TH WORD CONTROL
. 1664KW
:13TH WORD CONTROL
.1792KW
:14TH WORD CONTROL
.1920KW
:15TH WORD CONTROL
. . 2048KW
:16TH WORD CONTROL MAP
:MASK FOR UNUSED PARITY CSR BITS

JPARITY STATUS REGISTER
;1ST

S2ND

WORD CONTROL

WORD CONTROL
WORD CONTROL
:STH WORD CONTROL
:6TH WORD CONTROL
:7TH WORD CONTROL
;8TH WORD CONTROL
:9TH WORD CONTROL
:10TH WORD CONTROL
;11TH WORD CONTROL
:12TH WORD CONTROL
:13TH WORD CONTROL
;14TH WORD CONTROL
;15TH WORD CONTROL
$16TH WORD CONTROL

:3RD

:4TH

IMASK FOR UNUSED PARI
;PARITY STATUS REGIST
WORD CONTROL
12ND WORD CONTROL
:3RD WORD CONTROL
:4TH WORD CONTROL
:STH WORD CONTROL
:6TH WORD CONTROL
;7TH WORD CONTROL
;8TH WORD CONTROL
:9TH WORD CONTROL
:10TH WORD CONTROL
:11TH WORD CONTROL
:12TH WORD CONTROL
:137TH WORD CONTROL
;14TH WORD CONTROL
:1STH WORD CONTROL
:16TH WORD CONTROL

;1ST

.. 128KW
.. 256KW
. . 384KW
<. 512KW
. . 640KW
.. 768KW
. 896KwW
4KW
1026
.
52KW
..11
. 1280kW
. 1408KW
.1536Kw
. 1664KW
.1792KW
.. 1920Kw

. .2048KW

002506
002510
002512
002514
002516
002520
002522

MEMORY PARITY REGISTER ADDRESS TABLE

23:00

(SR BITS

.. 128kW
.256KW
- .. 384KwW
. 512K
. . 640KW
.. 768KwW
. . 896kW
. 1024KW
.1152kW
. 1280k
. 1408kw

04-AUG-81 22:59

D 3
04-AUG=-81

SEREEEEILISIELY%m—o %%%%E%%%E%E%%i%i %%%%%%%E%E%E%%%

46)
P1?-2 MEGAWORD MEMORY EXERUISER, 16Kk VER MACY11 30(10

. 1536KwW

- 1664KW

. 1792kw
.1920KwW
.2048KW

IMASK FOR UNUSED PARITY CSR BITS
;PARITY STATUS REGISTER

SEQ 0029

.WORD
.WORD
. WORD
-WORD

002666

WORD

0
0
0

.WORD

0
0
0
0
0
0
0
0
0
0
0
0

. WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

MPRS8 :

172120 + 1

MPR9:

172122 + 1

MPR10:

0
0
. WORD
0
.WORD
0
-WORD
0
.WORD
0
.WORD
0
.WORD
)
.WORD
0
. WORD
0
.WORD
0
. WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
. WORD
.WORD
0
172124 + 1
0
.WORD
0
.WORD

.WORD

23:00

PAGE

.. 128kKw
CONTROL
. .256KW
CONTROL
.. 384KW
CONTROL
:3RD
..512kW
L
;GTH
CONTRO
. . 640KW
H
CONTROL
:5T
..768Ku
H
CONTROL
;6T
. 896KW
CONTROL
;7TH
- 1024Kkw
CONTROL
:8TH
.1152KkwW
CONTROL
:9TH
.1280Kkw
.
L
CONTRO
H
WORD
0T
;1
. 1608KW
J11TH WORD CONTROL
.1536KW
:12TH WORD CONTROL
. 16664KW
;13TH WORD CONTROL
. 1792KW
;14TH WORD CONTROL
. 1920KwW
:15TH WORD CONTROL
;16TH WORD CONTROL MAP..2048KW
MASK FOR UNUSED PARITY CSR BITS

;18T
:2ND

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

gEEREIIIILELS

04-AUG-81 22: 59

MEMORY PARITY REGISTER ADDRESS TABLE
o

P11

3
E
04-AUG=-81

;PARITY STATUS REGISTER

. 128kwW
WORD CONTROL
.. 256KW
L 2ND WORD CONTROL
... 3B4KW
WORD CONTROL
;3RD
.. 512kW
;4TH
WORD CONTROL
. .640KW
;STH
WORD CONTROL
. .768KW
:6TH WORD CONTROL
. .896KW
:7TH
WORD CONTROL
. 1024KW
:8TH WORD CONTROL
KwW
.1152
:9TH
WORD CONTROL
KkwW
1280
.
:10TH WORD CONTROL
. 1408KW
J11TH WORD CONTROL
. 1536kW
:12TH WORD CONTROL
. 1664KW
;13TH WORD CONTROL
L1792KW
;14TH WORD CONTROL
. 1920KwW
J15TH WORD CONTROL
. 2048kwW
;16TH WORD CONTROL
:MASK FOR UNUSED PARITY (SR BITS

;1sT

SHIEEEERLII FEEIIRIEIEIILLS

0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

:PARITY STATUS REGISTER

.128Kw
WORD CONTROL
256KU
L 2ND WORD CONTROL
384KW
..
;2RD WORD CONTROL
512KW
<.
WORD CONTROL
:4TH
W
640K
.
.
:STH WORD CONTROL
KW
768
..
;6TH WORD CONTROL
. . 896KW
:7TH WORD CONTROL
. 1024KW
;8TH WORD CONTROL
1152KwW
<.
:9TH WORD CONTROL
1280kw
..
;10TH WORD CONTROL
16408KW
..
;11TH WORD CONTROL
1536Kw
.
;12TH WORD CONTROL
1664KW
.
;13TH WORD CONTROL
2kw
.179
;14TH WORD CONTROL
KU
920
..1
:15TH WORD CONTROL
8KW
204
.
MAP
;16TH WORD CONTROL
: MASK FOR UNUSED PARITY CSR BITS

;18T

‘PARITY STATUS REGISTER
;1ST WORD CONTROL MAP.. .128kw
:2ND WORD CONTROL MAP. . .256KW

SEQ 0030

MSAA

(-2 MEGAWORD MEMORY EXERCISER, 16K vER MACY1I 30(1046)

SAA. P11

04~-AUG-81 22:59

883
884
885
886
887
388
889
890
891
892
893
894
895
896
897
298
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914

003046
003050
003052
003054
003056
003060
003062
003064
003066
003070
003072
003074
003076
003100
(03102
003106
003106
003110
003112
0C3114
003116
003120
003122
003124
003126
003130
003132
003134
003136
003140
003142
0031644

CO000C
00000
J00000
000000
000000
000000
000000
000000
000000
000000
000900
000000
000000
000000
000000
172127
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

928
929
930
931
932
933

003200
003202
003204
003206
003210
003212

000000
000000
000000
000000
000000
000000

915
916
917
918
919
920
921
922
923
924
925
926
927

93
935
936
937
938

003146
003150
003152
003154
003156
003160
003162
003164
003166
003170
003172
003174
003176

003214
003216
003220
003222
003224

000000
172131
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

172133
000000
000000
000000
000000

04-AUG-81

MEMORY PAR]TY REGISTER ADDRESS TABLE
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD O0
.WGRC
.WORD 0
.WORD O
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
MPR11: 172126 +1
.WORD O
.WORD 0
.WORD 0
.WORD O
.WORD 0
.WORD 0
.WORD O
.WORD 0O
LWORD
.WORD 0
.WORD O
.WORD 0
.WORD 0
.WORD 0
.WORD ©
.WORD O
MPR'2:

wWR13:

.WORD 0
172130 +1
.WORD 0
.WORD O
.WORD O
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD OO
.WORD
.WORD 0
WORD O

LWORD
.WORD
.WORD
.WORD
.WORD
.WORD

0
0
O
0
O
0

172132 +1
.WORD 0
.WORD 0
.WORD 0
.WORD O

23:00 PAGE 19

;3RD WORD CONTROL MAP,..3B4kw
:4TH WORD CONTROL MAP...512Kw
:STH WORD CONTROL MAP...640KW
..
. 768KW
;6TH WORD CONTROL MAP
96KkwW
;7TH WORD CONTROL MAP...8
. . 1024KW
WORD CONTROLL MAP
;8TH
152KwW
MAP..1
;9TH WORD CONTRO
280Kw
MAP..1
L
:10TH WORD CONTRO
W
1408K
MAP..
L
CONTRO
WORD
;:11TH
536KwW
MAP..1
L
CONTRO
WORD
:12TH
;13TH WORD CONTROL MAP..1664KW
;14TH WORD CONTROL MAP..1792KW
:15TH WORD CONTROL MAP..1920KW
:16TH WORD CONTROL MAP..2048KW
:MASK FOR UNUSED PARITY CSR BITS
;PARITY STATUS REGISTER
;1ST WORD CONTROL MAP...128KW
S2ND WORD CONTROL MAP...256KW
;3RD WORD CONTROL MAP...3B4KW
;4TH WORD CONTROL MAP...512KW
;STH WORD CONTROL MAP...640KW
;6TH WORD CONTROL MAP...768kW
;7TH WORD CONTROL MAP...896KW
CONTROL MAP . . 1024KW
;8TH WORD
;9TH WORD CONTROL MAP..1152KW
;10TH WORD CONTROL MAP..1280KW
;11TH WORD CONTROL MAP..1408KW
;12TH WORD CONTROL MAP..1536KW
:13TH WORD CONTROL MAP..1664KW
;14TH WORD CONTROL MAP..1792KW
:15TH WORD CONTROL MAP..1920KW
$16TH WORD CONTROL MAP..2048KW

IMASK FOR UNUSED PARITY CSR BITS
;PARITY STATUS REGISTER
;1ST WORD CONTROL MAP...128KW
:2ND WORD CONTROL MAP...256KW
:3RD WORD CONTROL MAP...384KW
;4TH WORD CONTROL MAP...512KW
;5TH WORD CONTROL MAP...G40KW
:6TH WORD CONTROL MAP...768KW
;7TH WORD CONTROL MAP...B896KW
L MAP . . 1024KW
:8TH WORD CONTRO
:9TH WORD CONTROL MAP..1152KW
:10TH WORD CONTROL MAP..1280KwW
:11TH WORD CONTROL MAP..1408KW

:12TH WORD CONTROL MAP..1536KW
:13TH WORD CONTROL MAP..1664KW
:14TH WORD CONTROL MAP..1792KW
:15TH WORD CONTROL MAP..1920KW
:16TH WORD CONTROL MAP..2048KW
*MASK FOR UNUSED PARITY (SR BITS
:PARITY STATUS REGISTER
;1ST WORD CONTROL HAP . 128kwW
12ND WORD CONTROL MAP...256KW
3RD WORD CONTROL MAP. .. 3B4KW
;4TH WORD CONTROL MAP.. .512KW

SEQ 0031

.WORD

-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
-WORD
. WORD
.WORD
-WORD
.WORD
. WwORD
.WORD
. WORD
.WORD

JTHIS IS THE END OF THE

MPRX:

BLKW

s MASK

CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL

. .640KW
.. 768k
. . 896KW
. 1024KW
.1152kw
. 1280kw
. 1408kW
.1536KwW
. 1664KW
. 1792KwW
. 1920kw
.2048kW

FOR UNUSED PARITY CSR BITS

;?é?ITY STATUS REGISTER

.. 128KW
. 256KW
.
MAP.
L
CONTRO
;2ND WORD
. 384KW
.
L
CONTRO
;3RD WORD
512Kw
..
CONTROL
J4TH
WORD
KW
640
.
.
CONTROL
WORD
:5TH
KW
768
..
ROL
CONT
;6TH WORD
. . B96KW
;7TH
WORD CONTROL
- 1024KW
;8TH WORD CONTROL
. 1152KwW
WORD CONTROL
:9TH
. 1280KwW
:10TH WORD CONTROL
. 1408kwW
:1MTH WORD CONTROL
.1536Kw
:12TH WORD CONTROL
1664KW
.
L
CONTRO
H
WORD
J13T
L 1792KW
:14TH WORD CONTROL
.1920KW
;15TH WORD CONTROL
. 2048KW
;16TH WORD CONTROL
CSR BITS
PAR
i
UNUSED
FOR
K
sMAS
WORD CONTROL

:?Q?lTY STATUS REGI
CONTROL
CONTROL
;2ND
CONTROL
;3RD
CONTROL
;4TH
CONTROL
:STH
CONTROL
;6TH
CONTROL
;7TH
CONTROL
WORD
;8TH
:9TH WORD CONTROL
;10TH WORD CONTROL
:11TH WORD CONTROL
:12TH WORD CONTROL
:13TH WORD CONTROL
;14TH WORD CONTROL
:1STH WORD CONTROL
;16TH WORD CONTROL
WORD
WORD
WORD
WORD
WORD
WORD
WORD

TABLE

m—

MPR1S:

-WORD
. WORD
.WORD
.WORD
. WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
172136 +

.WORD

WORD
:STH
J6TH WORD
;7TH
WORD
WORD
:8TH
:9TH WORD
;10TH WORD
11TH WORD
J12TH WORD
;13TH WORD
;14TH WORD
;15TH WORD
WOR
:16TH WORD

838 ERBBREERRIIINIRITISEREREXE

e lelolelelololeolelolololslololeleBlolalolalelelels
i [alelolololelelololololoslololelalolelalela

MPR14:

.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORL
. WORD
. WORD
172134 +

003226
003230
003232

SREEIIEELILNENSS ER : PRRIERIRECEE 2

46) 04-AUG-81
23:00
p1$-{ ME GAWORD MEMORY EXERCISER, 16K VER MACY1? 30(10
TABLE
MEMORY PARITY REGISTER ADDRESS
04~AUG-81 22:59

.. 128KwW
.« 2I6KW
.- 384KW
..512kW
. . 640KW
.. (68KW
. 896KW
- 1024Kw
.1152KW
. 1280kw
. 1408KW
. 1536Kw
. 1664KW
.1792KW
.1920kw
.2048KW

:MASK FOR UNUSED PARITY CSR BITS

:TABLE TO HOLD JUST PARITY STATUS REGISTERS THAT EXIST.

: (THE EXTRA WORD IS FOR A TERMINATOR.)

SEQ 00%2

MACY11 30(1046) 04-AUG-81 23:00 PAGE 2’
<2 MEGAJORD MEMORY EXER(CISER, 16K VERPOINT
ER TABLE
06=AUG-8' 22:59

ERROR

.SBTTL

ERROR POINTER TABLE

;*NOTE1:
:«NOTE?:

EM
DH

B
;.

g23z3pe8esy

(AN OCCUR.
;*TH]S TABLE CONTAINS THE INFORMATION FOR EACH ERROR THATFOUND
|
NUMBER
;~THE INFORMATION IS 0BT AINED BY USING THE INDEXTEM
IS PERTINENT.
TABLE
THE
IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH
).

:;POINTS TO THE DATA

::POINTS TO THE DATA FORMAT

£ ERER PR

5 Sgpe ¥

~
>~
N
~

38 382K 33

$ERRTAR:
(HGG1:

024774
026334
002040
027072
025030
026357

002052
027076
025030

002052
007103

025064
026357
002052
027076

025122
0r6357
002052
027076
003502

025160
026357

025224
000000
000000
000000

025245

026357
002052

DM1

DH1
DF1

:16,22,16.16

ITEM 2

;ADDRESS TEST ERROR(TST1-5).

DT2

P(
, $8DDAT
RR
SGDDAT
$E
C,R,
:$VERP,$GDAD

DF2

JITEM 3

D12

;SVERPC,SERRPC,SGDADR,SGDDAT.SBDDAT

DF3

JTEM &

:16,22,22.8.8

: CONSTANT DATA ERROR(TST6-10).

D12

:$VERPC ,$ERRP( ,$GDADR, SGDDAT , $8DDAT

DF2

JTEM S

DM5

DF 2

JTEM 6

DM6

DH2

D12

;V/PC,P/PC ,MA,S/B,WAS

DM4

D12

:16,22,22,16,16

;ADDRESS TEST ERROR(TST1-5).

DH2
-«

:V/PC,P/PC,MA,S/B,WAS

pM?2

DH2

-«

T,
$S8DDAT
:$ERRPC,$GDADR,SGDDA

DM2

DH3I

;PARITY REGISTER DATA ERROR.

:PC,REG,S/B,WAS

DM2

002052

027076

1TEM 1

027036

388 gsss 8ss
GgE X5US B

b
e
D el

NS
W
=0

—
) i

i
il
s
D e
s
il
—_—

eJofeleolelalels)

sl el

1F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP( NED AS FOLLOWS:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAI
;;POINTS TO THE ERROR MESSAGE
::POINTS TO THE DATA HEADER

DF 2

JTEM 7

8H7
0
0

JTEM 10

pM10
DH2

D12

:V/PC,P/PC ,MA,S/B,WAS

:16.,22.22.16,16

;ROTATING BIT ERROR(TST11-12).
:V/PC,P/PC,MA,S/B,WAS

:SVERPC,SERRPC.SGDADR,SGDDAT,SBDDAT

:16,22,22.,16,16

:MOS REFRESH TEST ERROR (TST24-25).
:V/PC,P/PC ,MA,S/B WAS
<$SVERPC ,$ERRP( , $GDADR, $GDDAT , $BDDAT
:16,22,22.16.16

:FATAL ERROR HALT

;MARCHING 1°'S AND 0°S ERROR(T1ST23).
;V/PC,P/PC ,MA,S/B WAS

:$VERPC,SERRP(,SGDADR,SGDDAY,iBDDAT

SEQ 0033

J=¢ MEGAWORD MEMORY EXERCISER, 16K VER MACY1Y 30(1046)

06-AUG=81 22:59
02707¢
025311

027036
002052
027103
025355
026416
002066
027103

025431
026416
002066

002100
027110
WA

33333332 IBLRTEEE 88
0008
WD
—

il
o
-l

;PAR]TY MEMORY ADDRESS ERROR(TST13).

pH31

D12
DF3
1TEM 12
pMm1?2
DH12

pr12
DF3

ITEM 13

pM13
DH1?2
DT12

DF 14

026445

025700
027036
002052
027103

025776
026357
002052
027076
026030
026547

002130
027116

000000
000000
000000
000000

026077
026614

PAGE 22

027110

025621

23:00

:16,22,22,16,16

02552¢
026445
002100

0264774
026474
002112
027110

DF
2

I"Em 11

DF3
1TEM 14
pM14
DH14
D114

027103

1081

ERROR POINTER TABLE

04-AUG-B1

1TEM 15

DM1
DH1S
pT15
DF14
ITEM 16
DM16
DH14
D114
DF14

ITEM 17
pMi7
DH31
DT2

DF3
ITEM 20
DM20
DH2
D12
DF
2

ITEM 21
DM21
DH21
DT
21
DF
22
ITEM
0
0
0
0

ITEM 23
DM23
DHZ23

;V/PC,P/PC ,MA,S/B WAS

: SVERPC ,$ERRP(, $GDADR , $SGDDAT , $BDDAT
:16,22,22.8.8

:DATIO WITH WRONG PARITY DIDN'T TRAP(TST13).
Vv/PC,P/PC,MA,S/B

; SVERP(, SERRP( , $GDADR, $GDDAT
016,22.22.8

:WRONG PARITY DETECTED, BUT NO REGISTER SHOWS ERROR FLAG.

;Vv/PC,P/PC,MA,S/B

$GDDAT
$GDADR, PC,
;SVERP(,$ERR
.
;16,22,22.8

sPARITY REGISTEK NOT MAPPED AS C(ONTROLLING THIS ADDRESS(1ST13),
;v/PC,P/PC,REG,MA

PO,R
$GDAD
;SVERP(,SERRPC,$TM
:16,22,22,22
:PARITY REGISTER DATA ERROR.

WAS
;V/PC ,P/PC ,MAUT ,REG,S/B,

: SVERPC , SERRP(C , $GDADR, $TMPO, $SGDDAT , $BDDAT
:16,22,22,22.16.16

;MORE THAN ONE REGISTER INDICATED PARITY ERROR.
;V/PC,P/PC,REG,MA

; SVERPC ,$SERRPC ,$TMPO, $GDADR
:16,22,22.22

;:DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR

; TRAPPED(TST13).

;V/PC,P/PC ,MA,S/B WAS

: SVERPC ,$ERRPC , $GDADR, $GDDAT , $8DDAT
:16,22.22.8.8

;RANDOM DATA ERROR(TST14).
;V/PC,P/PC ,MA,S/B,WAS

; SVERPC , SERRPC ,$GDADR, $GDDAT, $SBDDAT
216,22,22,16.16

S INSTRUCTION EXECUTION ERROR(TST15-22).
:V/PC,P/PC,IUT MA,S/B,WAS
:$VERPC.$ERRPC,SYMPO,SGDADR.SGDDAT,$BDDAT
:16,22.16,22,16,16
:NOT USED

; CHGG1

:PROGRAM CODE CHANGED WHEN RELOCATED.
:V/PC,P/P(C,SRC MA,DST MA,S/B,WAS

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 23

04~-AUG=81 22:59

003656 00214¢

ERROR POINTER TABLE
DT23

nenos}.‘
DM24

b e

edd e

od e

B e

b ek

—J—l_l_‘—l_dd.d_‘—l—l—‘-—l_‘_‘—l—l—n-—d-—l—‘—‘-)_‘

e p—y

AN AN U AN N NN PO PO AN PO AN PO —b et 2
b st 2 b 2 et O
NTNE W -0V
NON NN OOV NO NS WSOV

—a

003660 027110
003662 026144

003664
003666
003670
003672
003674
003676
003700

026670
002164
027110
026220
02671%
002176
027110

003702
003704
003706
003710

026240
026757
002210
027076

DM26
DH26
D126
ITEMDE;

DM27
DH26

003712 026260
0C3714 026757

D126

003716 002210
003720
003722
003724
003726
003730
003732
003734
003736

DH24
DT24
DF 14
JTEM 25
DM25
DH2S
D125
ITEMDSé‘

027076
000000
027007
002222
027124
026314
000000
002234

ITEMDgg
0
DH30
DT30
ITEMD§§O
[
pMm31
0
DT31

DF30

003740 047124

.SBTTL START:

: SVERPC , $ERRPC , SGDADR, $BDADR, $GDDAT , $8DDAT

116,22.22.22.16.16
: TRAPPED, BUT NO REGISTER HAD ERROR BIT SET.
:V/PC,P/PC,TRP/P(
:SVERPC ,$ERRP(, $BDADR
;16,22,22
;TRAPPED TO 114.
:V/PC,P/PC,TRP/P( ,REG,WAS
:$SVERP( ,SERRP( ,$8DADR, $TMPO , $ TMPY
:16,22,22,22.16
;FAILED TO TRAP.
:V/PC,P/PC ,REG,WAS
:SVERPC ,$ERRPC ,$TMPO, S TMP1
:16,22,22.16

;(ACTION ENABLE WASN'T SET).
:V/PC,P/P(C ,REG,WAS

$VERP( ,$ERRP(C,$TMP( $TMP1

:16,22.22.16
;NO MESSAGE.
:REG,WAS ,MA WAS
:$TMPO,$TMP1,SGDADR, $BDDAT
:22.16,22.8
; TRAPPED TO 4
;NO HEADER
;STMP3
;22

SETUP AND MAP MEMORY

\fl\fi\h&\fl\fi\fl\fl\h\flbbbbbl\
VIS W~ OO0 ~yoO NS
V00~

b
kb
et ad
o
e
e
e
i
o
i
i o
s e

\:/-\:/*\:
;/'\:/'\:/'\:/'\:/'\:/t\:/*\:/'\:/'\:/t\:/*\:/'\:/'\:/'\:/t\:/t
THE PROGRAM.
THIS IS THE NORMAL (SA = 200) BEGINNING OFDENT.
o
INDEPEN
N
POSITIO
NOT
1S
CODE
THIS
NOTE :
v
;/:\t/:\'/:\'/:\'/:\'/:\'/:\'/:\'/:\t/:\'/:\'/:\'/:\'/:\'/:\*/:\'/:\*/:\*

START: C(LRB
003742 105067 176010
BR
003746 000403
mMOvB
SELECT:
176000
003750 112767 177777

STARTA:
LSBTTL INITIALIZE THE COMMON TAGS

003756

003756 012706 001070
003762 005026
003764

003770
003772
003776
006004

0046012

:CLEAR SELECT PARAMETER FLAG.
SELFLG
DO SETUP AND MEMORY MAP.
;G0
STARTA
SELFLG :SET THE SELECT PARAMETERS FLAG.
”~-1,

022706

001130

::CLEAR THE COMMON TAGS (SCMTAG) AREA

MOV
(LR

tMP

#SCMTAG,R6
(RE) +

#SWR,R6 ; ;DONE?

::FIRST LOCATION TO BE CLEARED
::CLEAR MEMORY LOCATION

;:L00P BACK IF NO
.~6
B8NE
001374
P THE STACK POINTER
:;SETU
#STACK,SP
MOV
012706 001100
s2INITIALIZE A FEW VECTORS
EC :;POWER FAILURE VECTOR
DN
, a#PWRV
H#SPWR
MOV
000024
000540
012737
;;LEVEL 7
EC+2
#340,a¥#PWRV
Mov
012737 000340 000026
::SETUP END=~QOF -PROGRAM COUNTER
T
SENDCT ,SEOPC
MOV
016767 006474 006464
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

SEQ 0035

0-2 MEGAWORD McMORY EXER(CISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 2%

5 S KIRERSSE SR
VB W —=OY0

b
ud
b
b
b

D e
i
i o

AVLIS
1.V 1,0 1,V 1,V

D i

Dl wd

NIRIRIAI AR

d ih

D b

d e

b e

e wd

e o

— —l—.—)-‘—l—.—l—l—.‘d—‘—l—l—.—d—l—.—‘—fl_J—J...)_A—l—‘—d_l—-‘—l - e e i

D i o

RS C SR TR RRRBIIISININIIRILARERE

P11

INITIALIZE THE COMMON TAGS

06~-AUG~B1 22:59

004020 013746 000004
004026 012737 004060 000004

0046032
004040
00. 46
004054

004056
006060
004064
0046066
004074
004102
004106
004112
004120
882}%8
004130
004134
004140
004144
004146
004154

004156
004162
004164
004170
004172
004200
0046202

000403
012716
000002
012767
012767
012637
005067
132767
001403
012767
005067
005077

.SBTTL

005227 177777
001041
022737 012560 000042
001435

004567
004236
005737
001016
126727
001412
026727

000042
175016 000001
174722 000176

000403

010700
022700
001402
000167
012767
005067
105737

_SBTTL

;*
:»

#DSWR, SWR
#ODISP.DISPLAY
#-1,aSWR
663

;;SAVE ERROR
:2SET UP ERROR VECTOR

ER
::SETUP FOR A HARDWARE SWICH REGIST
ER
REGIST
Y
;;AND A HARDWARE DISPLA
SWR
::TRY TO REFERENCE HARDWARE OCCURR
ED
TRAP
T
TIMEOU
:;BRANCH IF NO
=1
:;AND

THE HARDWARE SWR [S NOT =

;:BRANCH IF NO TIMEOUY
65%
:3SET UP FOR TRAP RETURN
#65%, (SP)
:;POINT TO SOF TWARE SWR
#SWREG, SWR
Y
ISPLA
#DISPREG,D
(SP)+,3#ERRVEC ;;RESTORE ERROR VECTOR
::CLEAR PASS COUNT
$PASS
;:TEST USER SIZE UNDER APT
,SENVM
HAPTSIZE
:IYES,USE NON-APT SWIT(CH
678
::NO,USE APT SWITCH REGISTER
SWR
G,
#SSWRE
:CLEAR DISPLAY REGISTER STORAGE LOCN
LDDISP
:CLEAR DISPLAY REGISTER
AY
aDISPL

TYPE PROGRAM NAME

INC
BNE
CMP
BEQ

#-1
68%
#SENDAD ,a#4?2
68%

::FIRST TIME?
::BRANCH IF NO
;.ACT=112
;;BRANCH IF YES

BNE

718

::BRANCH IF NO

MFPS
CLRB
JSR

-(SP)
1(SP)
PC,

:PUT THE PROCESSOR STATUS ON THE
:HIGH BYTE CLEARED TO INSURE KERNEL MODE

$PRINT :GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
JSR
:ADDRESS OF MESSAGE TO BE TYPED
.WORD 693
REGISTER
SWITCH
TWARE
SOF
FOR
GET VALUE
RUNNING UNDER XXDP/ACT?
WE
::ARE
a2
TST
:;BRANCH [F YES
70%
BNE
::ARE WE RUNNING UNDER APT?
1
SENV,#
CMPR
:;BRANCH IF YES
708
BEQ
:;SOFTWARE SWITCH REG SELECTED?
WREG
SWR,#S
cmP

ROUTINE
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $GTSWR
A(*r,
w«SYSM
BY
FOR
CALLED
AS
CTION
INSTRU
'TRAP''
A
WIHTOUT USING
STAC(K

174670 ;?g:
::69%:
68¢%:

9%:
004252
174014
000001 174242 10%:
12%:
174234
001214

8R
MOV
RTI
MOV
MOV
MOV
CLR
BITR
BEQ
Mov
(LR
(LR

@NERRVEC ,~(SP)
#6483 ,aNERRVEC

::TYPE THE NAME OF THE PROGRAM IF FIRST PASS

015412

882%%2 112767 000001
004234 000405
004250

MOV
MOV
CMP
BNE

64%:
0046066
000176 175034 65%:
000174 175030
66%:
000004
175070
000200 175075
001216 175000 67s
175356
174772

004212 106746
004214 105066 000001
004220 004767 014256

004250
004252
004256
006260
0046264
004272
004276

MOV
MOV

0312767 177570 175070
012767 177570 175064
022777 177777 175054
001012

004210 001011

004224

;ON PSW RETURN.

MOVB
BR

$GTSWR :GO TO THE SUBROUTINE
71%
::SET AUTO-MODE INDICATOR
#1,8AUTOB
::GET OVER THE ASCIZ
68%

MOV
CMP
BEQ
JMP
MOV
(LR
1578

RO
PC,
RO
#98,
108
RESTAR
PRGMAP
”,
RELOCF
SNSENV

B8R

.ASCIZ

<CRLF>'CVMSAA'<CRLF>

:GET CURRENT PROGRAM COUNTER.
:CHECK IF THE PROGRAM 1S RELOCATED.
:BR IF PROGRAM NOT RELOCATED.
GO TRY TO RELOCTED BEFORE CONTINUING.
;INITIALIZE PROGRAM MAP,
;INIT THE RELOCATION FACTOR.
LCHECK FOR APT11

SEQ 0036

Q-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

AUNLNS NP PUNL NN NN NI NN NN
N
~
AN
N ANAIWWN
I N A N RO N RO RO

—d_‘—‘;—-‘—‘—‘—‘—.—d_‘-—‘_‘—‘—J-—l-‘—‘—‘—‘-‘-‘—-‘—‘—l.—l—‘

PERAEGN
AVIASTASTAS
LS L S 1 VT S 1N L- U1,V |
ur\)—'oomwgmbum—aSom\JOmbwmagza;:

004302
004306
004310
004312
004320
004322

003911
005737 000042
001406
023737 000042 000046
00140c¢
0047¢7 011046

:«

004332 012701 000020
004336 005020

005067
032777
001047
012737
005037
004767
005267
004567
023472

004434
004442
004446
006454
004462
004470
004476
004476
004502

012737
005037
012737
052737
012737
005737
001403
005037
000454

INITIALIZE THE MEMMAP

175630
004360 173434
15%:

000004
175406

16%:
174142
010000 174526
004522 000004
177572
006214
174110
015142

004504
000000
010000
000020
177777
000000

000004
172344
172516

#MEMMAP RO

:LOAD RO WITH MEMMAP TABLE ADDRESS

so8

R1,14%

;DECREMENT COUNTER 16. TIMES

#16. .R1
(RO) +

;LOAD COUNTER
;CLEAR MEMMAP TABLE ENTRY

:1F COUNTER NOT = 0 THEN CLEAR NEXT ENTRY

JINIT LSI=11 /2/QUAD PROCESSOR FLAG
;FIND OUT IF LSI-11/2/QUAD
;mPTS}Nfl’F}lZJCTIM WILL CAUSE TRAP
LSIJON
;11/23 OR LATER WILL BRANCH
;LSI=11 RETURN,CORRECT STACK
JAND SET LSI-11/2 FLAG

CLR
MoV
MFPT
BR
ADD
INC

LSIFLG
#15% ,RESVEC

CLR
BIT
BNE
MOV
CLR
JSR
INC
JSR
.WORD

:CLEAR
MMAVA
;CHECK FOR INHIBIT KT11 SWITCH
#SW12,aSWR
;BRANCH IF SET
NONKT
#NONKT ,@#ERRVEC ;SET UP TIMEOUT TRAP VECTOR
;CLEAR MEM MGMT STATUS REGISTER
@¥SR0
:MEM MGMT INITIALIZATION ROUTINF
PC,MMINIT
;SET MEM MGMT AVAILABLE FLAG
MMAVA
:GO PRINT OUT THE FOLLOWING MESSAGE.
$PRINT
RS,
;ADDRESS OF MESSAGE TO BE TYPED
MMAMES

16%
#4,SP
LSIFLG

AND SET IT UP IF IT IS
CHECK IF MEMORY MANAGEMENT IS AVAILAKTBLE,
AND 22 BIT ADDRESSING FLAG

;'XT11 AVAILABLE''

IT IS
(HECK IF 22 BIT SYSTEM AVAILABLE AND SET IT UPOUTIF VECTOR

+ 2
TIME OUT TRAP TO HERE OR MEMORY EXISTS AT 128K FLAG

040000

17251¢

004504 052767 100000 174024 22%:
006512 004567 015056
004516 023537
004520 000445

PAGE 25

MOV

MOV
CLR

148:

004340 077102

004370
004374
004402
004404
004412
004416
004422
004426
004432

23:00

:BR IF APT
138
BNE
sCHECK FOR STANDALONE
w42
1ST
;BR IF STANDALONE
138
8EQ
K FOR ACTI1
;CHEC
N6
L2,
e
ACT11
IF
;BR
138
BEG
;MUST BE XXDP
;GO SAVE LOADERS
PC.,SAVLDR
JSR
;e (HECK IF MEMORY MANAGEMENT IS AVAILABLE, AND SET IT UP IF IT IS,
TABLE

13$:

004326 012700 001516
005067
012767
000007
000404
062706
005267

GET VALUE FOR SOFTWARE SWITCH REGISTER

04~AUG-81 22:59

004342
004346
004354
004356
004360
004364

04-AUG-81

MOV
CLR
MOV
8IS
mMov
TST
BEQ
CLR
BR

#22% ,a#ERRVEC ;SET UP FOR TIME
;CLEAR LOCATION O
ax0
;SET PAR2 TO LOC 128K + 2
AR2
,a#KIP
#10000
ON 22 BIT ADDRESSING
sTURN
NSRS
#BIT4
TO LOC 128K + 2
WRITE
sNOW
40000
#-1,a4
=0
0
LOC
:JF
40
; THEN 22 BIT SYSTEM
22%
: ELSE 18 BIT SYSTEM, DISABLE 22 BIT ADR
aMSR3
AND GO SIZE MEMORY
;
KTSIZ

BIS
JSR
.WORD

; ELSE SET 22 BIT
#81T15,MMAVA
$PRINT ;GO PRINT QUT THE FOLLOWING MESSAGE.
RS,
;ADDRESS OF MESSAGE TO BE TYPED
AVALZ2?
'

KTSIZ

;22 BIT ADR AVAILABLE"

;GO SIZE MEMORY

SEQ 0037

04-AUG-81 23:00 PAGE 26
0-2 MEGAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046) SWITC
H REGISTER

P11

04~AUG-81 22:59

GET VALUE FOR SOF TWARE

THIS ROUTINE WILL MAP MEMORY IN 8K SEGMENTS. SUPPORTS ONLY THE SIZING
OF 16 BIT ADDRESSING WITHOUT MEM MGMT SUPPORT.
STORAGE USED:
= MEMMAP POINTER ... LO 128K
RO
= ADDRESS POINTER
R2
= BANK POINTER ... LO 128K
R3

;

o
;.

;¥

N = O 000 NN B WA = O D0 N

d el b e cord e e i D e s id d md =D D wd ek —d =D
AN \NU“NU“NU“NU“NUMNU“NUNNU“NUHN
= = 3 2 e = 22000
N FORBRIRIRIFIA)

004562
004566
004572
004574
004576
004602
004606
004610
004612
004614
004620
004622
004624
004630
004632

062706
022702
001001
000405
022702
001004
005267
050310
000407
052702
005202
106303
032703
001746
000500

000004
160000

2%:

170000

20%:

037777

i
21%:
22%:

]

3%:

175164

000020

= 30K MEMORY FLAG

MASK8K

- 37777

::!tttQt'itt"ttttfi‘tt"ii'tfit.fiitt'ltttt'tt'.ttfitttt'tt.'!tnfit

NONKT: MOV
MOV
001514
CLR
MoV
000001
MoV
004562 000004
MOV
1%:
BIT
037777
BNE
BIS
BR

001100

FLG30K

LITERALS:

012706
012700
005002
012703
012737
011222
032702
001374
050310
000420

...t

'..'t"..tt.'tt..t't..""'t't.t..".l..‘tt".‘.il..l.l"ttt

t+
e

004522
004526
004532
004534
004540
004546
004550
004554
004556
004560

SEQ 0038

#STACK, SP
#MEMMAP RO
R2
#1,R3
#2$ ,a#ERRVEC
(R2) ,(R2)+
H#MASKSBK ,R2
1%
R3, (RO)
3%

TIMEQUT TRAPS TO HERE

ADD
cMP
BNE
BR
cMP
BNE
INC
8IS
BR
BIS
INC
ASLB
BIT
BEQ
BR

4%:

#4 ,SP
#160000,R2
208
21%
#170000,R2
22%
FLG30K
R3, (RO)
43
WMASKBK ,R2
R¢
R3
#B1T4 ,R3
1%
DISMAP

;SET-UP THE STACK
:SET UP MEMORY MAP PTR TO LO 128K
;SET ADDRESS PTR 10 0
;SET UP 8K BANK POINTER
;SET UP TIME OQUT VECTOR
JREAD AND WRITE ALL MEMORY
;IF NOT 8K BOUNDARY
;. THEN CHECK NEXT LOCATION
; ELSE SET BANK FLAG IN MEMMAP
AND DO SOME MORE
;

;RESTORE STACK POINTER
;IF NOT 28K BOUNDARY
: THEN BRANCH
; ELSE SET UP POINTERS
:IF NOT 30K BOUNDARY
: THEN BRANCH
; ELSE SET 30K MEMORY FLAG
;SET BANK FLAG IN MEMMAP
;BRANCH ALL DONE
;POINT TO LAST ADDRESS OF 8K BANK
;POINT TO 1ST ADDRESS OF NEXT BANK
;UPDATE BANK POINTER
;IF NOT DONE WITH 32K
; THEN TRY SOME MORE
;GO TYPE OUT MAP
tt

"ttt*ttt*tttit'*ti*ttttittttfi*tittti*fifiltfitttt'tttttittt'tttt'

‘%«
‘s«

‘«

“x

MANAGEMENT REGISTERS
THIS ROUTINE WILL MAP MEMORY IN 8K SEGMENTS. MEMORY
BANKS OF MEMORY.
KIPAR2 AND KIPAR3 ARE USED TO MAP THE 8K
(I.E. 760000 OR 17760000)

[/0 PAGE
|F MEMORY EXISTS NEXT TO THEACKNOWL
EDGED AS EXISTING.

THEN THE LAST BANK WILL BE

i*
o*
ox

M
;*
®

STORAGE USED:

RO
R2
R3

BANK
KIPAR? = MAPPED TO 1ST 4K OF PRESENTT 8K
BANK
8K
PRESEN
OF
4K
2ND
TO
KIPARS = MAPPED

LITERALS USED:

MASK8K

004634 012706 001100

= MEMMAP POINTER
= ADDRESS POINTER
= BANK POINTER

= MASK OF 8K (37777)

ltIt

':ttt'tt*fittttttttttt'tttt"ttt!*ttttttttttttittt"tttittttlt

KTSIZ:

MOV

#STACK, SP

-SET-UP THE STACK

0-7 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04~-AUG-81 23:00 PAGE 27

004640
004644
004650
0046564
004662
004670
004674

04- AUG~-81 22:59
01270C
012702
005037
012737
012737
012703
011222

GET VALUE FOR SOF TWARE SWITCH REGISTER

001514
040000
172344
000200 172346
004710 000004
1%:
000001
2s%:

004676 032702 037777
004702 001374

004704 050310
004706 000424

004710 062706 000C04
004714 022702 060000
004720 001017

005767 173610
100406
022737 007600 172346
001010
050310
000433
022737 177600 172346 4$:
001002
050310

:SET=UP MEMMAP PTR TO FIRST ENTRY THRU PARZ
S TO O MAPPED
“INIT VIRTUAL ADDRES
0
LOC
TO
PAR2
;INIT
;SET PAR3 TO 2ND 4K BANK
;LOAD TIME OUT VECTOR
;SET=-UP BK BANK POINTER
JREAD AND WRITE ALL MEMORY

BIS
BR

R3, (RO)
5%

; ELSE SET BANK FLAG IN MFMMAP
:AND GO UPDATE VARIABLES AND CONTINUE

ADD
cMP
BNE

TST
B8MI]
CMP
BNE
BIS
BR
CMP
BNE
8IS

BR
ADD
ADD
MOV
TST
BMI
ASL

000400 172344 5$:
000400 172346
040000
173532

001331
000407
006303
001326
062700 000002
022700 001554
001317
000400

BNE
BR
ASL
BNE
ADD
CMP
BNE
BR

6%:

7%:
AN AN

000425
062737
062737
012702
005767
100403
006303

005010
005012
005014
005016
005020
005024
005030
005032

3%:

B
%

004756
004760
004766
004774
005000
005004
005006

SMEMMAP RO
#40000,R?2
K IPAR2
#200,3#KIPAR3
#3S ,a#ERRVEC
#8170,R3
(R2),(R2)+
#MASKS8K ,R2
2%

TIMEOUT TRAPS TO HERE

:»

004722
004726
004730
004736
004740
004742
004744
004752
004754

MOV
MOV
CLR
MOV
MOV
MOV
MOV
BI!T
BNE

- -

»
%

W= O

BHHE
)~ CDE ONO N

et e

el el el

)

s D A

d oD e

N N N N
N NN N
NN N NN N NN N

s e

D e el el e

e ek

FHEEE
2358
VN

(N N N N N NN U
N
VIV NVAWNWWVHAWIL

PV IV

RRRLR F ol ol o S

VeIV T

w8
Ny
—
W=OO~N Oun:\uuv-ac»oafid gugwww

[V AV TR TV T

:1F NOT 8K BOUNDARY
. THEN TRY SOMEMORE

#4 ,SP
#60000,R2
5%

;RESTORE STACK POINTER
;IF NOT POSSIBLY THE 1/0 PAGE
; THEN GO TEST SOMEMORE

7%
#400,29KIPAR2
#600,3#KIPAR3
#40000, K2
MMAVA
63
R3

JAND GO TYPE MEMORY MAP
;UPDATE MAP TO NEXT
8K BANK
.
*RESTORE ADDRESS POINTER TO 1ST ADDRESS OF THIS BANK
;IF NOT 18 BIT ADDR
;THEN GO TEST SOMEMORE
;18 BIT ADDR. = 1 WORD

; ELSE IF 22 BIT ADDRESSING
% MMAVA
THEN GO SEE IF 2M I1/0 PAGE
:
43
BITS
ELSE IF NOT [/0 BOUNDARY FORAND18 TRY
#7600,3a#KIPARS ;
SOMEMORE
LES
VARIAB
UPDATE
THEN GO
:
5%
MEMMAP
IN
EXISTS
BANK
SET
ELSE
;
R3, (RO)
JAND GO TYPE MEMORY MAP
7%
;IF NOT 2M 1/0 BOUNDARY
#177600, aNKIPARS
; THEN GO TRY SOMEMORE SIZING
5%
; ELSE SET BANK IN MEMMAP
R3, (RO)

2%
7%
R3
2%
#2,R0O
#MEMMAP+40,RO
1%
DISMAP

A AR AN AR AR A RR

;IF NOT END OF 18 BIT ADDR
; THEN GO SIZE SOMEMORE
; ELSE ALL DONE 18 BIT SIZING.
;UPDATE BANK POINTER
THEN CONTINUE
SIF NOT END OF THIS MEMMAP ENTRY,
ENTRY
MEMMAP
NEX
TO
UPDATE
ELSE
;
. IF NOT END OF MEMMAP TABLE
THEN GO SIZE SOMEMORE
;
ELSE ALL DONE SIZING
H
;GO TYPE OUT MEMORY MAP

AR R AR AR AR

AN RN RARRARRANAR RIS AN

ROUTINE WILL TYPE OUT MEMMAP, LOAD TEST MAP (SAVTST) AND CHECKS
TO INSURE LOWEST 16K OF MEMORY IS AVAILABLE FOR TEST TO RUN
STORAGE LOCATIONS:

= MEMMAP POINTER ... LO 128K

= SAVTST PGINTER ... LO 128K

= COUNTER

t
::1l'tttttt"tltttttl‘t'tttt"fifit'tfittt.tit't!tit'tti'l'tltfltttt

SEQ 0039

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 28

P11

04-AUG-81 22:59

005034
005040
005046
005052
005054
005060
005064
005066
005072
005076
005102
005104
005106
005110
005114
005120
005124
005126
0C5132

01270C
012737
004567
023564
004767
004567
001171
012702
012700
012701
005012
012022
077103
016700
042700
022700
001404
004567
023644

005134

000000

SEQ 0040

GET VALUE FOR SOf TWARE SWIT(H REGISTER

DISMAP: MOV
001514
MOV
023252 000004
JSR
014522
.WORD
JSR
011570
JSR
014510
.WORD
MOV
001614
MOV
001514
MoV
000020
CLR
1%:
MOV
SOB
MOV
174400
BIC
177774
Mp
000003
BEQ
JSR
0144472
.wORD

;LOAD RO W]TH MEMMAP ADR
#MEMMAP RO
#ERRTRP ,Q#ERRVEC:SET UP TIME OUT VECTOR ING MESSAGE.
S$PRINT ;GO PRINT QUT THE FOLLOWBE TYPED
RS,
:fig%:%%i S:PH§§SAGE TO
MEMMES
;GO TYPE THE MAP
PC,TYPMAP
$PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
;ADDRESS OF MESSAGE TO BE TYPED
SCRLF
:LOAD ADR OF SAVTST TABLE TO BE CLEARED
,R2
#SAVTST
;LOAD ADR OF MEMMAP TABLE
RO
P
A#MEMMA
;LOAD COUNTER
#16. ,R1
;CLEAR SAVTST TABLE ENTRY
(RQ)
;LOAD SAVTST FROM MEMMAP
(RO)+,(R2)+
;DECREMENT CTR 16 TIMES
R1,1$
;LOAD RO WITH MAP OF 1ST 128k
MEMMAP RO
JMASK ALL BUT BOTTOM 16K
#177774,RO
;IF BOTTOM 16K IS ALL THERE
#3,RO
: THEN GO RUN
GMPR
$PRINT ;GO PRINT QUT THE FOLLOWING MESSAGE.
RS,
;ADDRESS OF MESSAGE TO BE TYPED
INSUFF
:*FIRST 16K OF MEMORY NOT ALL THERE."

;FATAL ERROR HALT ..
;MEMORY IS NOT CONF IGURED TO RUN THIS PROGRAM

HALT
.SBTTL

MAP PARITY REGISTERS

BEIFHRUS — OO0V~ N B NN = OOV

b
d b ek h b —h ik D eh ah
d b
Do

o PP A

e b

o8 o

b i
s b
e
e

—

WY U
U o ¥ 2R AR AR ol ol o L o
AWWWNIALPOTNVNDIPLNUNININY
=4 = b —d —d et ok 2 b

':ttfitfi*fitti.ttt*tttfitttit'ttt*.*tt*tl*tt'ttttttt'ttt'ttfitittttfl

“x

ADDRESSES OF THOSE FOUND
SEARCH FOR PARITY REGISTERS PRESENT AND TYPEPARITY
MEMORY
ING
AND HAVE CORRESPOND
THAT ARE FUNCTIONAL tttttt
tntttllttttttttttttlttttttttttttttt

;:ttttttttttttttlttthttt

MOV
BIT

MMPRX, R&G
#SW06. @SWR

:SET UP POINTER TO PARITY REG EXIST TABLE.
:CHECK FOR INHIBIT PARITY SWITCH.

BIS
GMPRBA: MOV
GMPR(C: (LR

(R3)+
”
#7..R1
(R3)+

-SET FLAG TO INDICATE REGISTER NOT PRESENT
:LOAD COUNTER
:CLEAR ENTRY IN THIS GPR TABLE

GMPR:
005136 012704 003370
005142 032777 000100 173760
005150
005152
005156
005164

)
001040
012703 002270
012737 005200 000004
0642713 000001

005170 005773 000000
0051764 012324

005176 000404
005200 062706 000004

005204 052723 000001
005210 012701 000021
005214 005023

005216 077102
005220 020327 003370

005224
005226
005230
005236
005242
005244

103757
005014
012737 023252 000004
005767 176126
001006
004567 0143264

SBR IF INHIBIT PARITY.
GMPRD
BNE
“SET UP TABLE POINTER
#MPRO, R3
MOV
HGMPRB, @NERRVEC ;SET UP TIMEOUT TRAP SERVICE
MOV
:CLEAR FLAG BIT IN TABLE
(R3)
»,
GMPRA: BIC
*DOES THIS MEMORY PARITY REGISTER EXIST.
2(R3)
ST
GO TO ‘'GMPRB'".
.« IF IT DOESN'T EXIST, A TIMEOUT TRAP WILL
PARITY REG EXIST TABLE.
THE
(RD+, “(R4)+ :SAVE IT IN
MOV
CODE
SERVICE
'SKIP TIMEOUT
GMPRBA
BR
TIMEOUT COMES HERE
;%
;RESTORE STACK POINTER
w4, SP
GMPRB: ADD

S0R
CMP

BLO
CLR
MOV
ST
BNE
JSR

R1,GMPR(
#MPRX
R3,

"DECREMENT COUNTER AND CONTINUE
*CLEARING COUNTER UNTIL COMPLETED.
-HAVE WE CHECKED ALL REGISTERS?

:NO - GO BACK TO CHECK NEXT ONEEXIST TABLE.
GMPRA
“SET TERMINATOR IN PARITY REG
(R&)
#ERRTRP.A#ERRVEC ; RESTORE TRAPCATCHER
T?
SANY PARITY REGISTERS PRESEN
MPRX
T
PRESEN
LS
CONTRO
TEST
GO
'YES
MPAMEM
.
MESSAGE
NG
FOLLOWI
THE
OUT
$PRINT ;C¢ PRINT
RS,

CUMSAA

{VMSAA P11

04-AUG-81 22:59

16440 005250 02372¢
1441
1442 005252 005014
16643 005254 000167 000744
1644

) 04-AUG-81 23:00 PAGE 29
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046
ERS

MAP PARITY REGIST
GMPRD:

.WORD
(LR
JMP

MTR
(RS
MANUAL

ADDRESS OF MESSAGE TQ BE TYPED
-*WNO MEMORY PARITY REGISTERS FOUND''
MAKE SURE TABLE IS CLEAR.
AND SKIP ALL CONTROLS TESTING

SEQ 0041

CVMSAA. P11

MAP PAR]ITY MEMOR

04-AUG-81 22:59

.SBTTL

1445

04-AUG-81

)
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046
Y

23:00

PAGE 30

MAP PARITY MEMORY

SEQ 0042
..

’:.'.tt't.'l't'fitit.t"t""t'tt.'t..'..l.tt.Q.tlt."t.'t.t'l't
ER

1446

A
¥ B
F SRR
X

~ PARITY GENERATE OR DETECT LOGIC FAILED
- PARITY ERROR BIT FAILED TO SET
- PARITY BITS IN MEMORY LOCATION FAILED
- 1.E. BIT STUCK AT GOOD PARITY VALUE

STORAGE USED:

= MEMMAP § PMEMAP TABLE INDEX

- ADDRESS TO WRITE WRONG PARITY TO

SET WRITE WRONG PARITY IN ALL

REGISTERS PRESENT, THEN WRITE TEST LOCATION VIA DATO & READ TEST
IN ALL REGISTERS.
LOCATION VIA DATI, THEN CLEAR WRITE WRONG PARITY CORRECT
LY THAT
LOCATED
THAT IF PARITY MEMORY 15 NOT
NOTE:
NG
FOLLOWI
THE
OF
IT IS IN ALL PROBABILITY DUE TO ONE
FAILURES:
- SETTING WRITE WRONG PARITY DIDN'T CAUSE BAD PARITY TO BE WRITTEN

:
:

AND TYPE RESULTS.

MAP CORRESPONDENCE BETWEEN PARITY REGISTERS AND MEMORY,

LRI
WK K SN Y LY

1447

*» N4 %

CVMSAA

R&
RS

- BANK POINTER

= MPR TABLE POINTER

- ADDRESS OF PRESENT MPR TABLE ENTRY
= MPR TABLES INDEX
tit*ttt'tfitt

;;!t*ktfitt*ttt**t*t***tttttit*tifiti*t‘t*ttt*'fittttttt

005260
005264
005270
005274
005276
005302

0046767
012702
005767
001404
012702
004767

011230
014000

005306
005312

012703

001654
000020

MPAMEM: JSR

005316
005320

012704
005023
077402

005322
005326
005330
005334

004767
005000
012705
012701

011166

005340
005344
005346

012703

002270

005350

032713

000001

013773
011212
005712
043773
005773

001766

000000

001766
000000

000000

012763
050160
050114
062703
022703

070037
001654

000042

010304
060504
001021

100006

18:

000044
003370

MAPRS

28:

3$:

THEN GO MAP PARITY MEMORY

ELSE SET ADDRESS POINTER TO MAP THRU PAR2

MOV

#PMEMAP ,R3

;LOAD PMEMAP TABLE ADR

SOB

R4.1$

MOV
CLR

PC,MMINIT
#16. R4
(R3) +

“SET UP MEM MGMT REGISTERS
*LOAD COUNTER
*CLEAR ALL OF TABLE

JSR
CLR

PC.CLRPAR
RO

*IF NOT DONE CLEARING THEN TRY SOMEMORE
;GO INITIALIZE ALL PARITY REGISTERS
TINIT INDEX FOR MEMMAP AND PMEMAP TABLES

MOV

#MPRO,R3

;INIT MPR

BIT
BNE

#8170, (R3)
43

:IF CSR IS NOT PRESENT
*" THEN GO_TRY AGAIN

MOV
TST

(R2), (R2)
(R2)

*WRITE WRONG PARITY
*READ WRONG PARITY

MOV
ADD

MOV

#2 RS
#3170,R1

R3.R4
R5.R4

WP, 3 (R3)

BI(

P, 3 (R3)

BPL

MOV

4%:

“SET ADDRESS TO 14000 TO WRITE WRONG PARITY

#54000, R2

MOV
MOV

000002
000001

*IF NO MEM MGMT

BEQ

JSR

MAPRB:

MMAVA

#14000,R2

MOV

054000
005330

:INITIALIZE ALL PARITY REGISTERS

MOV
TST

173242

PC., CLRPAR

BIS
8IS
ADD
(MP

a(R3)

#70032.42(R3)

R1,PMEMAP(RO)
R1. (R4)
#id R3
#MPRX,R3

“INIT INDEX FOR MPR TABLES
“INIT BANK POINTER

TABLE ADDRESS POINTER

“UPDATE TO NEW TABLE
"UPDATE INDEX THRU NEW TABLE

ELSE SET WRITE WRONG PARITY BIT

"CLEAR WRITE WRONG PARITY BIT
“IF NO PARITY ERROR

THEN REGISTER DOES NOT CONTROL THIS MEMORY
ELSE SAVE THE PARITY MASK IN TABLE

:SET BANK IN PMEMAP
*SET BANK IN MPR TABLES
*UPDATE TO NEXT MPR TABLE
“"IF NOT END OF TABLE

U~¢ MEGAWORD MEMORY EXER(ISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 31

04-AUG~81 22:59

005640
005442
005450
005452
005454
005460

005464
005470
005474
005476

001417
062737 000400 172344
006301
001020
062700 000002
062705 000002
012701 100001
022700 000040
001413
000406

005500 062702 040000
005504 1063501
005506 032701 000020

005512
005514
005520
005522
005524

001004
036001 001514
001745
000706
000167 000000

5%:

BHI
MOV
TST

33
(R2), (R2)
MMAVA

: THEN TRY SOMEMORE
: ELSE CLEAR BAD PARITY
;IF NO MEM MGMT

MOV
MP
BEQ
BR

#3]1T0,R1
#40,R0
9%
73

;INIT BANK POINTER
;1F END OF MEMMAP
; THEN GO TYPE MEM PARITY MAPS
:GO TRY SOMEMORE

8EQ
ADD
ASL
BNE
ADD
ADD

ADD
ASLB
BIT

6%:

6s
#400,34K1PAR?2
R?
73
#2.RO
#2 R5

#40000,R2
R1
#8174 R

9%
MEMMAP (RO) ,R1
5%
2%
TMAP

;UPDATE ADDRESS TO NEXT 8K BANK
;UPDATE BANK POINTR
;IF DONE WITH 16 BITS
; THEN FINISHED
;IF BANK DOES NOT EXIST
; THEN GET ANOTHER BANK
; THEN GO DO SOMEMORE
;GO TYPE PARITY MAPS

9%:
.SBTTL

DISPLAY PARITY MEMORY MAP

7%:

SEQ 0043

; THEN GO UPDATE FOR 16 BIT SYSTEM
BANK
; ELSE UPDATE PARZ2 TO NEXT 8KBANK
NEXT
TO
R
POINTE
BANK
;UPDATC
IN THIS 128K BANK THEN DO IT
SIF STILL SOME TO CHECK
MEMMAP AMD PMEMAP TABLES
FOR
INDEX
UPDATE
ELSE
>
;UPDATE [NDEX FOR GPR TABLES

BNE
BIT
BEQ
BR
JMP

005530 004767 0107¢0
005534 004567 014034
005540 023602

R
¥

;

TMAP:

1%:

005554

2%:

004567
024211
011301
042701
005767
100404
001006
012702

014014

100000
172742

000001

STORAGE USED:

= FIRST ADDRESS OF MAP TO BE TYPED

= PARITY REGISTER ADDRESS ... BITS 14-0

= PARITY REGISTER ADDRESS ... BITS 21-15
= MPR TABLE ENTRY

;;tttt'tttt*.'ttfitt*fii*"ti’*fifi*it*t*i*'t**t'tt'tt'ttttifitfittfiitfi

005542 012703 002270
005546 032713 000001
005552 001050

005554
005560
005562
005564
005570
005574
005576
005600

CONTROL REGISTERS CONTROL WHICH MEMORY.

T
R

ROUTINE TO TYPE MAP OF WHERE PARITY MEMORY IS PRESENT AND WHICH

;;ttt*ttfi'tfilttfitttfiitt"'tt'i'i‘t**'tt*tl*tt*fitttttttfi*ttt'ifitt

AN AN W NINNNITVROTNUNONINOPONINY)
— 2 b =
2 D 2
P
N
AN =200V NN
W
=00
NN
W
2O
bt\x\bbbbbwwwg
N/ WNL—=O00
N
N
W =000 NO
VVUVHA AN

o
—

—hd-fl—fl_‘_‘—‘—‘—d—a—‘—J—A—J.‘_‘_&—J—J—‘—‘—J—A_j—‘—.—LJ-‘-J—J_‘—‘—J—i—hfl-‘-fl_‘_‘_‘_‘_LJ_‘_‘

U“hu“hunflU“hUMAU“flUHflUMflU“flUHAUHfiU“flU“hU“fiUHAU“hU“flUHflUHAUNfiU“fiUMflLMfiU‘ WY

BEIR

005430 101345
005432 011212
005434 005767 173076

MAP PARITY MEMORY

JSR
JSR
.WORD

Mov
BIT
BNE

JSR
.WORD
MOV
BIC
TST
BM]
BNE
MoV

;INITIALIZE ALL PARITY REGISTERS PRESENT
PC.CLRPAR
$PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
;ADDRESS OF MESSAGE TO BE TYPED
MTMAP
Y MAP:'’
#MPRO,R3
#3170, (R3)
6%

$PRINT
RS,
MX1
(R3) ,R1
#100000 ,R1
MMAVA
3%
48
#1,R2

;" PARITY MEMOR

;INIT MPR TABLE POINTER
:IF THIS REGISTER IS NOT PRESENT
; THEN GO TRY AGAIN

;GO PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
;'PARITY REGISTER AT"
;SAVE PARITY REGISTER ADDRESS
*DEVELOP BITS 14-0 OF REGISTER ADDRESS
;1F TYPE OF MEMORY MANAGEMENT
; THEN 22 BIT BRANCH
: OR 18 BIT BRAN(CH
: ELSE 16 BIT SET BITS 21-15 FOR PRINY OUT

MSAA

J/MSAA P11

04-AUG-81 22:59

;ggg 005604 00040°
155 005606 012702 000177
:22? 05612 00C402

1%2% 005614 012702 000007
1564

0-2 MEGAWORD MEMORY EXERCISER. 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 32

DISPLAY PARITY MEMORY MAP
3%:

A¥
5%:

005620

1565 005620 010246

B8R
oV
BR

5%
8177 ,R2
5%

JAND GO TYPE OUT
:LOAD BITS 21-15 FOR PRINT QUT
JAND GO TYPE QUT

#7,R2

:LOAD BITS 21-15 FOR PRINT OUT

MoV

R2,-(SP)

:sSAVE R2 FOR TYPEOUT

JSR
.BYTE
.BYTE
MOV

$TYPOS
PC,
3
O
RTM,-(SP)

BYTE

;. TYPE LEADING ZEROS

ADD
(MP
BHI

#44 R3
AMPRX ,R3
1%

;UPDATE TO NEXT REGISTER IN TABLE
:IF NOT END OF MPR TABLE
; THEN DO SOMEMORE

MOV
MOV

#10,R0
#-1,R1

;LOAD DELAY
;LOAD DELAY

MOV

1566
1567
1568
1569 005622 106746
1570 005624 105066 000001

;:TYPE ADDRESS BITS 21-15
AN INTERFACE TO THE S$TYPOS ROUTINE
PROVIDE
TIONS
INSTRUC
TWO
NEXT
THE
:*
BY waSYSMA(n«,
“x WIHTOUT USING A '‘TRAP'' INSTRUCTION AS CALLEDORFORSTATUS
ON THE STACK
:PUT THE PROCESS
-(SP)
MFPS
KERNEL MODE
INSURE
TO
HIGH BYTE CLEARED
1(SP)
CLRB

1575
1576
1577
1578
1579
1580
1581
1582
1583

005636 010146

;;SAVE R1 FOR TYPEOUT
;:TYPE ADDRESS BITS 14-0
AN INTERFACE TO THE STYPOS ROUTINE
:« THE NEXT TWO INSTRUCTIONS PROVIDE
AS CALLED FOR BY *xSYSMA(**,
TION
“x WIHTOUT USING A ‘‘TRAP'‘ INSTRUC
PROCESSOR STATUS ON THE STACK
THE
:PUT
-(SP)
MFPS
CLEARED TO INSURE KERNEL MODE
BYTE
;HIGH
1(SP)
CLRB
RETURN.
;ON PSW
$TYPOS ;GO TO THE SUBROUTINE
PC.
JSR
;:TYPE S DIGIT(S)
5
BYTE

1585
1586
1587
1588
1589
}gg?

005654
005660
005662
005664
005670

1671
1572 005630 004767 015166
003
1573 005634
000
1574 005635

005640 106746
005642 105066 000001

005646 004767 015150
005
005652
001
1584 005653

004567 013714
024237
010300
062700 000002
004767 010754

1592 005674 062703 000044
1593 005700 022703 003370
}ggg 005704 101320
1596 005706
1597 095712

1598
}288
1601
1602
}ggz

005716
005720
005722
005726
005730

012700
012701

000010
177777

077101
077004
005737 003370
001002
000167 000270

JSR
.WORD
MOV
ADD
JSR
6%:
7%:

8%:

S0B
SOB
TST
BNE
JMP

$PRINT
RS,
MX?
R3.R0
#2,R0
P(,TYPMAP

R1,8%
RO,7%
AMPRX
CTRLS
MANUAL

;ON PSW RETURN.
GO TO THE SUBROUTINE
;:TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZEROS

;GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
;"'CONTROLS"’
:SET UP RO FOR TYPMAP ROUTINE
;POINT TO MAP ENTRY FOR MPR TABLE
:GO TYPE MEMORY COVERED BY THIS REGISTER

ALLOW DELAY TO INSURE PRINT OUT IS
:COMPLETED BEFORE RESET CCCURS
:IF PARITY REGISTERS TO TEST
; THEN GO TEST
: ELSE JUMP OVER TESTS

1605

1606

1607
1673

.SBTTL TEST PARITY REGISTERS
":ttttttttttttttttttttttitt’ttttt‘ttttttttttt"ttttltttt!t.tfitttl

1610
1611
1612

;v (AN BE SET AND CLEARED.
;* THIS IS A ONCE ONLY TEST.
;"ttttttttttttttttttttttttttitttttttt'ttttl!tfitt'ltt.ttt..t'tfi'tt

1609

ix SHOW THAT BITS 0, 2, 5 - 11 AND 15 OF EACH PARITY REGISTER PRESENT

SEQ 0044

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACYil 30(1046)
TEST PARITY REGISTERS

005734
005740
005742
005746
005750
005756

005760

005764
005766
005770
005774
005776

012703
011302
032702
001052
016367

001446
012700
005012
011201
046701

001405
004767
004767
000001
030067

001025

¢ TRLS:

002270

1 $:

000001

000042

173530

000001

64%:

010012
011201
005012
046701
020001
001405
004767
004767
000001

011201
046701
001405
004767
004767
000001
006300
001346
062703
022703
003315

= O D00 NN
NN

65%:
66%:

BNE
MOV
MOV
CLR
BIC
CMP
BEQ
JSR
JSR
.WORD
MoV

BIC
BEQ
JSR
JSR
.WORD

173432
67%:

010454

011600

ASL

105%:

000044
003370

4£2(R3) ,RESRVD
105%
#1,RO
(RQ)
(R2) ,R1
RESRVD,R1
2%
SPRNT
PC.
$ERROR
RO,RESRVD

3%
RO, (R2)
(R2) ,R1

(R2)
R1
RESRVD
R1
RO,
66%
PC.,
PC,
1

SPRNTO

$ERROR

(R2) ,R1
RESRVD, R1
3%
SPRNT
PC,
R
$ERRO
?C.
RO

2%
#44 R3
#MPRX,R3
1%

BNE

ADD
MP

BGT

23:00

PAGE 33

:LOAD INITIAL TABLE ADDRESS FOR A POINTER
;GET CSR ADDRESS INTO R?
ELSE IF CSR DOES NOT EXIST
THEN BRANCH

ELSE LOAD MASK, IF EQ TO 0
TIIEN DO NOT TEST

;LOAD RO WITH 1ST BIT TO BE TESTED
;INITIALIZE THE PARITY REGISTER
:READ THE CONTENTS OF THE PARITY REGISTER
;CLEAR RESERVED BITS, IF EQ O
THEN BRANCH

;

;SET UP VALUES FOR ERROR PRINTING.
;xxx ERROR **+ (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

;1F THIS BIT IS RESERVED

THEN BRANCH AND DON'T TEST

ELSE SET THIS BIT IN (SR
;
;READ AND SAVE CONTENTS OF (SR
;CLEAR THE CSR
;CLEAR RESERVED BITS

:COMPARE THE CHECK WORD WITH THE DATA READ.
;BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.

;&xx ERROR *** (GO TYPE A MESSAGE)
;ERROR TYPE (CODE.

;MAKE SURE BIT WAS CLEARED OUT OF (SR

;READ THE CONTENTS OF THE PARITY REGISTER
;CLEAR BITS WHICH ARE RESERVED
;CHECK OTHER BITS - BRANCH If OK
:SET UP VALUES FOR ERROR PRINTING.
;*#xx ERROR **+ (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

;ROTATE TO GET NEXT BIT TO BE TESTED
;BRANCH IF NOT DONE WITH ALL BITS
;UPDATE PTR TO NEXT ENTRY
;IF NOT DONE WITH TABLE
;THEN TRY AGAIN

M tittti'ttttt*"*ttttl‘ttt*tti*t**it‘ttt"*ti"tttttttt*ttttfitttifit'

N
HN N

FARXRRRRERR

106%:

* %

’

;* ALSO BIT

14 IN PARITY CSR IF MEMORY IS SET FOR 22 BIT

THIS IS A ONCE ONLY TEST.

REEREREFRR

":ttt*tttttttttttttttt"ittttt*tt*t*"itt*t*t*l’tttttt*ttttttttttt*

2EERERRESS

PN
N
S
i G g

1641

BIT

2%:

173472

(R3) ,R2

MOV
8IT
B8NE
MOV
8EQ
MOV
CLR

MoV
B8IC
8EQ
JSR
JSR
.WORD

173512

010534
011660

#MPRO,

MOV

04~AUG-81 22:59

04-AUG-81

012704
022704
003411
032714
001003
012774
062704
000764
000005
012702

RESCHK: MOV
CMP
1%:
BLE

002270
903370
000001

1727777
000044

002270

000000

BIT
BNE

101%:
100%:

MOV
ADD
B8R
RESET
MOV

R4
#MPRO,
R4
#MPRX
100%

#8170, (R4)
101%
#-1,3(R4)
#44 R4
1%

#MPRO,RZ

:LOAD INITIAL TABLE ADDRESS FOR A POINTER
;1F END OF TABLE

;

THEN BRANCH

;

ELSE IF CSR DOES NOT EXIST

ELSE LOAD CSR WITH ALL 1°S

;

THEN BRANCH

;UPDATE POINTER
;TRY AGAIN

JRESET THE WORLD

:LOAD INITIAL ADDRESS FOR PQINTER

SEQ 0045

<0 MEGAWORD MEMORY EXERCiSER, 16K VER MACY11 30(1046) 04-AUG-81 .3:00 PAGE 3¢

P1°

04-AUG-81 22:59

002370

006150
006154
006156
006162
006164
006170
006174

006200
006202
006204
006210
006214
004216
006216
006222
006224
006230
006234
006236
006242
006242
006246

TEST PARITY REGISTERS
P
BLE
8IT
BNE
Moy
CLR
81C

#MPRX ,R2

TST
BEQ
JSR
JSR
.WORD

ADD
BR

#44 ,R2

MANUAL: CLR

FSTADR
SELFLG
MANUL1

2%:

000001
000000
037772
4%:

54%:

65%:

062702
000752
005067

105767
021002

173532
173522

000167

000402

004567
024275

013326

1ST8

1T :
MANUL

* K

’

106746
105066

ofronony N <t b b d ik el =
FEVELVE
@ Lels B

b e

D o

b e

s e

~ NN NNNNNNNNNNNYN NN

b —b
oo~
O‘mwa—‘O%

1706

004767
032716
001365
016703
011604
006267
006016
006267
006016
00636/
012700
066700
012701
006016
077102
052710
005716
001403
006310
005316
000773
012702
066702

000001

013136
037777

013262

1%:

2%:

3%:

MANUAL

#8170, (R2)
65%
a(R2) .R1
a(R2)
#37772,R1
-

65%
PC,
PC.
1

SPRNT
$ERROR

‘CLEAR THE CSR

TEST rOR BIT14 TOO

:18 BIT MODE = BIT14 ALWAYS READ AS ZERO
;22 BIT MODE = BIT14 R/W,CLEARED BY RESET
;CHECK IF REST WERE CLEARED BY RESET
;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING.
:xxx FRROR **x (GO TYPE A MESSAGE)
;ERROR TYPE CODE.
;UPDATE POINTER

;INIT FIRST ADDRESS

;CHECK FOR SELECT PARAMETER StTUP
;IF FLAG SET GET USERS PARAMETERS
;ELSE USE DEFAULT DATA

MANUL
2
FADME
S

THEN BRANCH

ELSE SAVE CONTENTS OF (SR

:BRANCH BACK TO CHECK NEXT REGISTER

RS,

THEN BRANCH

ELSE IF CSR DOES NOT EXIST

$PRINT

;GO PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
;' FIRST ADDRESS:''
;FIRST ADDRESS 8K BOUNDARY

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $SRDOCT ROUTINE
WIHTOUT USING A *'TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMA(**.
-(SP)
;PUT THE PROCESSOR STATUS ON THE STACK
MFPS
CLRB

1(SP)

JSR

$RDOCT
PC,
#37777,(SP)
MANUL1

BNE
Mov

013270

000001

JSR
.WCRD

BIT

013276

013254
001714
013244
000012

BNE
JMP

;IF END OF TABLE

MOV
ASR
ROR
ASR
ROR
ASL
MoV
ADD
MOV
ROR

S08
BIS
TST
BEQ
ASL
DEC
BR
MoV
ADD

$HIOCT,R3
(SP) R4
SHIOCT
(SP)
$HIOCT
(SP)
$HIOCT

#MITPT RO
$H10CT RO

;HIGH BYTE CLEARED TO INSURE KERNEL MODE
JON PSW RETURN.
;GO TO THE SUBROUTINE
;ON 8K BOUNDARY?
;1F NO,REASK

;SAVE ORIGINAL HIGH BITS
JAND LOW BITS
;DIVIDE HIGH ADDRESS INTO
JNUMBER OF 128K BANKS AND
;NUMBER OF 8K BANK WITHIN
;128K BANK

;MAKE NUMBER OF 128K BANKS INDEX
;GET START OF TEST TABLE
;ADD INDEX

;SET UP TO ALIGN 8K BANK COUNT

#12,R1
(SP)
R1,1$

;ALIGN COUNT

(SP)

;SHIFT BIT UNTIL COUNT = 0

#8170, (RO)
3s

(RO)
(SP)

2%
NMEMMAP
R2

$HIOCT ,R2

;LOOP UNTIL uvONE

SINIT BK BANK POINTER IN 128K WORD
;WHEN ZERO
JSHIFT BIT

DONE

JSUBTRACT FROM COUNT
;LOOP BA(CK

;GET FIRST ADDRESS OF MEMORY TAaBLt
;ADD INDEX

SEG 0046

NNNNNYN

o SNNNNNSNSNNNSNNNYNNNNNNNNNNNNNNYNN
04)0%)\nunnunn\nuufiunumbl\:Mbl\:~bl\t~bu~vuflsazgf W) 2O
&3 SAhg\nhr4C><Mx‘dOWfiwahrdChoubNOMfi:wnnrJChoarv

NONTNNTN
Y N

N NN NN

006366

006370
006370
006374

031012

001725

004567
02436¢

A ¥

013200

- "

106746

105066

006767
005716
001010
005767
001005
016716
016767
020467
101353
103402

020316
101350
012700
012701
012702
052122
077002

020367

103403
101027
020416
101025

062704

005503
012700
012701
006321
006121
077002
103423
012700

012701

012702

032122
001337
077003
000753
012700
012701
012702
032122
001007
077003
012706

013152

000020
001714
001614

3136

5%:

6%:
7%:

013076

040000

JSR

es,

8%:

JSR
TST
BNE
TST
BNE
MOV
MOV
(MP
BHI
BLO
CMP

BHI

MOV
MOV
MoV

BIS
S08
MP
BLO
BHI
cmpP
BHI
ADD

ADC

0000
0017

MOV

0%:

000020
001714
001514

001100

S
LADME

$SPRINT

PAGE 35

;IS BIT JUST LOCATED,SET N MEM. TABLE
;1F NO BANK EX]STS...REASK
:GO PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
:"LAST ADDRESS:"’

11%:
12%:

13%:

PC,

(SP)
5%
$HIOCT
S$

$RDOCT

$TMP2, (SP)
$TMP3 SHIOCT

R4 ,SHIOCT
43
6%
R3, (SP)
49
#20,R0

R
#BITPT
H#SAVTST ,R2
(R1)+,(R2)+
RO,7%
R3,$HIOCT
8%
118
R4, (SP)
1%
#40000,R4
R3
#17 ,RO

Mov
ASL
ROL
S08

#3]1TPT ,R1

MoV

#20,R0

BCS

10%:

;PUT THE PROCESSOR STATUS ON THE
:HIGH BYTE CLEARED TO INSURE KERNEL MODE

-(SP)
1(SP)

MFPS
CLRB

013010

013132

(RO), (RQ)
MANUL1

23:00

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDOCT ROUTINE
WIHTOUT USING A ''TRAP'' INSTRUCTION AS CALLED FOR BY #*SYSMA(=*»,
STACK

000001

172526
172524

8IT
BEOQ
. WORD

006344

TEST PARITY REGISTERS

04-AUG-81 22:59

——

P11

C4-AUG-81

0-2 MEGAWURD MEMORY EXERCISER. 16K VER MACY11 30(1046)

MoV
MoV

BIT
BNE
S08
BR
MOV
MOV

MOV
BIT
BNE
SO8
MOV

(R1)+
(R1)+
RO,9%

138

#B]ITPT ,R1

AMEMMAP
, R?
(R1)+,(R2)+
6%
RO,108
8%
#20,R0

R
#81TPT
#MEMMAP ,R2
(R1)+,(R2)+

;ON PSW RETURN.

;GO TO THE SUBROUTINE
;CHECK IF LOW BITS ZERO
;1F NOT,NO DEFAULT
;CHECK IF HIGH BITS ZERO
:IF NOT,NO DEFAULT
;IF BOTH ZERO,FILL IN DEFAULT
;FOR LOW AND HIGH BITS
;CHECK FOR LAST ADDR. BELOW FIRST
:IF YES....REASK
;IF LAST HIGHER GO ON

;IF EQUAL CHECK LOW BITS
;IF LOW BITS LOWER...REASK
;TABLE COUNTER

;STORE BITPT IN SAVTST MAP
;DO 16. TIMES

;COMPARE HIGH BITS OF FIRST TO LAST
:1IF LOWER SEE IF NEXT BANK EX]STS
;IF HIGHER MUST BE LAST BANK
;IF EQUAL CHECK LOW BITS

;IF LOW BITS FIRST HIGHER LAST BANK
JUPDATE TO NEXT BANK

:SET UP TO UPDATE POINTER
:GET START ADDRESS OF TABLE
;ROTATE POINTER WITHIN
:TABLE

SUNTIL ALL LOCATIONS DONE
JBANK DOESN'T MAP

:SET UP TO SEE IF ONE EXISTS
:GET START ADDRESS OF POINTER TABLE
:GET START ADDRESS OF MEMORY TABLE
:TEST IF BANK EXISTS
:IF MATCH UPDATE
;DO ALL OF TABLE

;MAKE SURE LAST BANK

;WAS MAPPED BY MEMORY

:SIZING ROUTINE

148

RO,12%

#STACK,SP

JRESET STACK

SEQ 0047

(-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

TEST PARITY REGISTERS

04~ALG~81 22:59

006604
006610

004567
024405

006612
006614
006620
006624

000604
012706
004567
024442

006626
006630

106746
105066

004767
012667
032777
001403
012767

012764

14%:

001100
012750

.«
"«

JSR
.WORD

RS,
BADADR

BR
MOV
JSR
.WORD

MANUAL

$PRINT

#STACK,SP

RS,
CONST

$PRINT

23:00 PAGE 36

SEQ 0048

;GO PRINT OULT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
;"2 ADDRESS IN UNMAPPED BANK?"'
;LOOP BACK AND START OVER
JRESET STACK

:GO PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
;''SELECT CONSTANT: *

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDOCT ROUTINE
(w+,
WIHTOUT USING A '‘TRAP'' INSTRUCTION AS CALLED FOR BY #=*SYSMA
THE STA(K
MFPS

000001

CLRB

012560
173120
000040

172256

JSR
MOV

MANULZ: BIT

001000

173100

MoV

BEQ

;PUT THE PROCESSOR STATUS ON
:HIGH BYTE CLEARED TO INSURE KERNEL MODE

-(SP)
1(SP)

$RDOCT
PC,
(SP)+, . CONST
#SW05 ,aSWR
START1

#1000,FSTADR

;ON PSW RETURN.
;GO TO THE SUBROUTINE
;SAVE THE DATA
;1S VECTOR AREA PROTECTED?
;1F NO,GO ON

1000

:1F YES,SET STARTING ADDRESS

'\:/*\:/*\:/*\:/*\:
;/-\:/'\:/'\:/'\:/'\:/'\:/t\:/*\:/t\:/*\:/*\:/*\:/*\:/
CAN EXECUTE PROPERLY WHEN THE PROGRAM HAS BEEN RELO
"« THE REST OF THE PROGRAM IS POSITION INDEPENDE NT CCDE. SO THAT IT SED
IN EXACTLY THE SAME MANNER AS THE REST OF MEMORY
EXERCI
;* THIS IS DONE SO THAT THE FIRST TWO BANKS OF ME MORY CAN BE

—— e

D omd

b e

oo 00 0o 50 0o 00 OC 0o 00 00 00 00
Quil Gt g d
N n joer GtyGutrSutrGur
NN = O
OOV~ N

J/i\v/ A/ \wv/ \v/\n/ AV

1822

006662
006666
006672
006676
006702
006704
006706
006714
006722
006730
006734
006740
006742
006750
006752

016706
012700
016701
016702
012122
077002
046767
012767
066767
004767
005767
001406
032737
001002

004767

YA VAN VAL VAN VEAC VAL VARL VAL

AN A

173114

START1: MOV

173110

MOV

000020

171622

MOV
MOV
S08
8IC

171604
006626
171576

ADD
JSR
TST

173106

1%:

MOV

006662

000001

8EQ
BIT

177572

BNE
JSR

003660

.STACK, SP
#20,R0
.SAVTST R1
.TSTMAP R2
(R1)+,(R2)+
RO,1$
PRGMAP,TSTMAP
#START1,8LPADR

RELOCF, SLPADR

PC,

MMAVA

1ST1
#8170,
TST1
PC.

.SBTTL SECTION 1:

;SET STACK POINTER
;SET UP TO LOAD 20 LOCATIONS
;SOURCE TO BE SAVTST TABLE
SDESTINATIION TO BE TEST MAP
;INIT TESTING TABLE
;LOOP UNTIL DONE
;DON'T TEST WHERE PROGRAM IS LOCATED.
;INIT LOOP ADDRESS.

MAMF

;SET UP MEMORY PARITY ERROR VECTOR

a#SRO

;BRANCH IF NO MEM MGMT.
;CHECK IF MEM MGMT ENABLED.
;BR IF MEM MGMT ENABLED.
;SET UP MEM MGMT REGISTERS.

MMINIT

:CHECK FOR MEMORY MANAGEMENT AVAILABLE.

MEMORY ADDRESS TESTS

;e ttt*'*ttttttt!t"t*lttttfittfi!itfi'ltt*ittttt*tit*fittttttttttt‘tt

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY
J*TEST 1
RO = DATA WRITTEN INTO MEMORY (SHOULD BE)
S
R1 = DATA READ . ROM MEMORY (WAS)

R2 = VIRTUAL ADDRESS

RS = BLOCK BOUNDARY BIT MASK.

R3 - NOT USED
R4 = NOT USED

o
o

ttt"t’

""!!'I'tfifitttittfi*tt.ttt‘Q'fitfil'*".t'fitt'tfi*itfll!Qttfit'tt

006756
006756

004567

010372

006762

004467

004012

TST1:

JSR

RS,

$SCOPE

JSR

R4,

INITMM

UPWARDS WORD ADDRESSING.

;GO TO SCOPE ROUTINE.

;INITIALIZE THE MEMORY ADDRESS POINTERS.

MSAA

O=-2 MEGAWORD MEMORY EXERCISER, }?K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 37

1837
1838
1839
1840
1841
1842
1843
1844

006766
006770
006774
006776
007000
007002
007004
007010

1846

007016

JMSAA P11

06-AUG-81 22:59

01020C
004767 005124
010012
012201
020001
001405
004767 007614
004767 010652

1845 007014 000002

1847 007016 062700 000002
1848 007022 077514

}ggg 007024 004767 004162

1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864

007030
007034
007036
0C7042
007046
007050
007052
007054
007060

004467
010200
162700
004767
014201
020001
001405
004767
004767

004042
000002
005052

007520
010602

007064 000002
007066 162700 000002
007066

}865 007072 077513
866 007074 004767 006456

1$:
2%:
648:
65%:

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY

MOV
JSR
MOV
MOV
e
BEQ
JSR
JSR

R2,
PC,
RO,
(R2)+,
RO,
65%
PC,
PC,

RO
PHYADR
(R2)
RI]
R1
SPRNT2
$ERROR

:SET UP TO CALCULATE PHYSICAL ADDRESS
;GET PHYSICAL ADDRESS INTO RO
:WRITE VALUE OF ADDRESS INTO ADDRESS
TEST.
:GET THE DATA FROM MEMORY UNDER
DATA READ.
THE
WITH
WORD
:COMPARE THE CHECK
DATA.
GOOD
IF
CALL
;BRANCH OVER ERROR
;SET UM VALUES FOR ERROR PRINTING.
;**+ ERROR w»*+ (GO TYPE A MESSAGE)

ADD
soB

%2,
RS,

RO
2%

;ADD #2 TO PHYSICAL ADDRESS
;BRANCH IF MORE IN CURRENT BLOCK.

.WORD

JSR

PC.

MMUP

;ERROR TYPE CODE.

;FIND NEXT BLOCK AND LOOP TO 18$.

;*+ CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY
;* DOWNWARDS WORD ADDRESSING.
POINTERS.
INITON ;INITIALIZE THE MEMORY ADDRESS ADDRESS
R4,
JSR
L
PHYSICA
TE
CALCULA
TO
UP
;SET
RO
RE,
MoV
3%:
;JGET LAST ADDRESS OF BLOCK
RO
N,
SuB
;GET PHYSICAL ADDRESS INTC RO
PHYADR
PC,
JSR
;GET THE DATA FROM MEMORY
R1
-(R2),
MOV
4%:
DATA READ.
;COMPARE THE CHECK WORD WITH THE DATA.
R1
RO,
cMP
;BRANCH OVER ERROR CALL IF GOOD
67%
BEQ
NG.
;SET UP VALUES FOR ERROR PRINTI
SPRNTO
PC,
JSR
66%:
E)
MESSAG
A
TYPE
(GO
»**
ERROR
#*»
;
$ERROR
PC,
JSR
;ERROR TYPE CODE.
.WORD 2
67%:
;DEC DATA BY 2
RO
w2,
SUB
CURRENT BLOCK.

S08
JSR

RS,
PC,

;BRANCH [F MORE IN
4%
MMDOWN ;FIND NEXT BLOCK AND LOOP TO 3%.

SEQ (7 4y

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

04-AUG-81 22:59

Ro
R1

003670

110022
005200
077503
004767

005002

004060

007140
007142

007146
007150

007152
007154
007156
007162

007172
007174

003740

004752

001405
004767
004767
000003
005300
077512
0064767

007416
010500

004356

RS,

JSR

R&,

JSR
ASL

PC,
R5

PHYADR

RS,

2%
MMUP

1$:

MOV

2%:

MOVB
INC
SOB

JSR

64%:
65$

ASL
MovB

i o
i

007204
007210
007212
007216
007222

004567

010150

004467

003666

162700

000002
004676

010200

004767
005100

RO,
RO

PC,

R5
-(R2),

cMPB
BEQ
JSR
JSR

RO,
65%
PC,
PC.

DEC

.WORD

S08
JSR

(R2)+

;INITIALIZE THE MEMORY ADDRESS POINTERS.
:SET UP TO CALCULATE PHYSICAL ADDRESS
;GET PHYSICAL ADDRESS INTO RO
JMAKE TEST COUNTER BYTE VALUE
:;WRITE VALUE OF ADDRESS INTO ADDRESS
;ADD ONE TO PHYSICAL ADDRESS
;BRANCH IF MORE IN CURRENT BLOCK.

;FIND NEXT BLOCK AND LOOP TO 18.

RS,
PC,

R1
SPRNTO
$ERROR
4%
MMDOWN

;MAKE TEST COUNTER BYTE VALUE
;GET THE DATA FROM MEMORY

;CHECK THE DATA...LO BYTE ONLY VALID.
;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING.
;**» ERROR *** (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

;DEC DATA BY 1

;BRANCH IF MORE IN CURRENT BLOCK.
;FIND NEXT BLOCK AND LOOP TO 3$.

;:it'*ttt*tttttkfittti*tt*tt***t*t*t*t*l*tttfifi*t*tk*'ifitttkttitttt

WRITE 1'S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS.

o
i*

RO = DATA WRITTEN INTO MEMORY (SHOULD BE)
R1 = DATA READ FROM MEMORY (WAS)

R3 - NOT USED

RS = BLOCK BOUNDARY BIT MASK.

o*
007200
007200

R2,

INITMM
RO

;GO TO SCOPE ROUTINE.

CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY
DOWNWARDS BYTE ADDRESSING.
:
INITDN ;INITIALIZE THE MEMORY ADDRESS POINTERS.
R4,
JSR
:5ET UP TO CALCULATE PHYSICAL ADDRESS
RO
R2,
MOV
3$:
;GET LAST BYTE ADDRESS OF BLOCK
RO
DEC
PHYADR ;GET PHYSICAL ADDRESS INTO RO
PC.
JSR

el
D g
—tt il e

JSR

J*TEST 3

el —d
s e

) il e

O OV VO OVOO VOO

—

$SCOPE
UPWARDS BYTE ADDRESSING.

6%:

114201
120001

s e

D md e

8 38332 &
SOW\IO\AJ\U‘N—‘OOO\J

1901

007166
007170
007170

004467
010200
005300
004767
006305

DATA WRITTEN INTO MEMORY (SHOULD BE)
DATA READ FROM MEMORY (WAS)

"tfittttitttttfitttitttttt"tt't"ttttlifittttttiittitt'tfiltt"t.t‘
1S12:

:
007132
007136

SEQ 0050

»
¥

004467
010200
004767
006305

PAGE 38

VIRTUAL ADDRESS
R3 = NOT USED
R4 = NOT USED
RS = BLOCK BOUNDARY BIT MASK.

oTM

007104
007110
007112
007116
007120
007122
007124
0C7126

=
=

R =

o*
I

010250

23:00

"tt'fi't'tttt...'t"'t'.'t"'t...l..'.t.'t"..'..'Q'.t.‘Q't!.'tQ.
WRITE VALUE OF MEMORY ADDRESS INTO MEMORY
;*TEST 2
I3

004567

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY

:t
I

007100
007100

04-AUG-81

RZ = VIRTUAL ADDRESS
R4 = NOT USED

tttttt

:;tt*tiitttttt*ttttilfit**t*i*ttttttttttt*ttttttitttttt*tttt
TST3:

1$:

JSR

RS,

$SCOPE

JSR
MOv

R4,
R2,

INITON
RO

JSR

PC,

PHYADR

DOWNWARDS WORD ADDRESSING.

SuB
oM

42,
RO

;GO TO SCOPE ROUTINE.

;INITIALIZE THE MEMORY ADDRESS POINTERS.
:SET UP TO CALCULATE PHYSICAL ADDRESS
;GET LAST ADDRESS Of BLOCK
;GET PHYSICAL ADDRESS INTO RO
; COMPLEMENT THE ADR

04~AUG-81 23:00 PAGE 39
(-7 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) ENT
VALUE OF ADDRESS INTO ADDRESS.
WRITE 1°S COMPLEM
13
04~-AUG-81 22:59
PN
;PUT DATA INTO MEMORY
-(R2)
RO,
MOV
2%:
010042
007224
:+2 TO DATA--ADR GOES DOWN SO COM GOES UP
RO
2,
ADD
007226 062700 000002
JBRANCH IF MORE IN CURRENT BLOCK.
2%
RS.
S08
007232 077504
. FIND NEXT BLOCK AND LOOP TO 18.
MMDOWN
PC.
JSR
6
007234

007240
007244
007246
007252
007254
007254
007256
007260
007262
007266
007272
007274
007274
007300
007302

004767

004467
019200
004767
005100
012201
020001
001405
004767
004767
000002
162700

077513
004767

00431

003534
004646

007336
010374

:*
;*

CHECK COMPLEMENT DATA WRITTEN DOWN
UPWARDS WORD ADDRESSING.

3%:

JSR
MOV
JSR

R4,
R2,
PC,

INITMM
RO
PHYADR

:INITIALIZE THE MEMORY ADDRESS POINTERS.
:SET UP TO CALCULATE PHYSICAL ADDRESS
;GET PHYSICAL ADDRESS INTO RO

MoV
CMP
BEQ
JSR
JSR
.WORD

(R2)+,
RO,
65%
PC,
PC,
2

Rl
R1

:GET THE DATA FROM MEMORY UNDER TEST.
:COMPARE THE CHECK WORD WITH THE DATA READ.
;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUCS FOR ERROR PRINTING.
;x** ERROR #xx (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

suB
So8

42,
RS,

RO
4%

(oM

64%:
658

000002

JSR

003704

PC.

SPRNT2
$ERROR

MMUP

s COMPLEMENT IT

;COUNT DOWN WITH ADDRESS
;BRANCH IF MORE IN CURRENT BLOCK

:FIND NEXT BLOCK AND LOOP TO 3$.

;;tttttttttfitttttt*ittt**iiifi*tttfitfitt*t!*t'tttltttt.tttttttttttt

WRITE BANK # INTO ALL ADDRESSES IN A 8K BANK
;*TEST &
RO - DATA WRITTEN INTO MEMORY (SHOULD BE)
o
(WAS)
R]1 = DATA READ FROM MEMORY
R2 = VIRTUAL ADDRESS
R3 = NOT USED

o
o
A

R4 = NOT USED
RS = BLOCK BOUNDARY BIT MASK.
;*
;:ifi'ifi**fit't*t'fififi*t*'l‘t*i****fi‘t**'*fi'fifi*tfi.tfifitt*tfi"ti'tlifit

004567

010042

004467
004767
006305

003462
004674

1$:

2s:

110022

077502
004767

TST4:

003656

$SCOPE
RS,
JSR
UPWARDS BYTE ADDRESSING.

JSR
JSR

R&,
PC.

INITMM
BANKNO

MovB
so8
JSR

RO,
RS,
PC,

(R2)+
2%

ASL

MMUP

:GO TO SCOPE ROUTINE.

; INITIALIZE THE MEMORY ADDRESS POINTERS.
;GET THE BANK NUMBER INTO RO
;MAKE TEST COUNTER BYTE VALUE
:WRITE BANK # INTO ALL ADDRESSES
;BRANCH IF MORE IN CURRENT BLOCK.
;FIND NEXT BLOCK AND LOOP TO 18.

(HECK THAT DATA WRITTEN ABOVE CAN BE READ
;* UPWARDS BYTE ADDRESSING.
INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS.
Ré&,
JSR
BANKNO GET THE BANK NUMBER INTO RO
PC,
JSR
3$:
:MAKE TEST COUNTER BYTE VALUE
RS
ASL
THE DATA OUT OF MEMORY
;READ
Rl
(R2)+,
MOVB
4%:
DATA....LOW BYTE ONLY VALID
:CHECK
R1
RO,
CMPB
OVER ERROR CALL IF GOOD DATA.
H
;BRANC
65%
BEQ
s+

004467
004767
006305

003440
004652

112201
120001

001405
004767
004767
000003
077511
004767

007226
010302

003616

648:
658

JSR
JSR

PC,
PC,

SPRNT1
$ERROR

:SET UP VALUES FOR ERROR PRINTING.
:*** ERROR #*** (GO TYPE A MESSAGE)

SOB
JSR

RS,
PC.

4%
MMuP

;BRANCH IF MORE IN CURRENT BLOCK
SFIND NEXT BLOCK AND LOOP TO 3$.

.WORD

;ERROR TYPE CODE.

SEQ 0051

04-AUG-81 23:00 PAGE 40
{ VMSAA
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)
ALL ADDRESSES IN A Bk BANK
INTO
#
BANK
WRITE
14
04-AUG-81 22:59
[ VMSAA -P11
1979
1980

--t..t.'...tt't'."'."""Q"t..'.""l.tt....'t'..'l.fit't".'l.

WRITE 1°'S COMPLEMENT OF BANK #.
STEST S
RO = DATA WRITTEN (NTO MEMORY (SHOULD BE)
;v

1981

1982

R1 = DATA READ FROM MEMORY (WAS)

1983

R2 = VIRTUAL ADDRESS

R3 = NOT USED

1985

R4 = NOT USED

RS = BLOCK BOUNDARY BIT MASK.

1987

':tttfiltfitttttttt.ttti'ttt'ttttt."t'*ttfififi"'ttt".'.t.'t't.tt"

007374
007374

004567

007754

007400
007404
007410
007412

004467
004767
006305
005100

003472
004606

*0C7420

004767

004132

007414
007416

110042
077502

15715:
:*

18:

004467
004767
006305
005100

003446
004562

001405
004767
004767
00C003

172076
1727776
172026

;PUT 1°'S COM OF BANK # INTO MEMORY
;BRANCH IF MORE IN CURRENT BLOCK.
;FIND NEXT BLOCK AND LOOP TO 18.

.WORD

JSR

000020
172302

-(R2)
2%
MMDOWN

JSR
JSR

004070

000001

RO,
R5,
PC.

S0B

007522
007526

032767

mMovB
so8
JSR

ASL
CoM
MOV
MP8
BEQ

653

007466
0074674
007476
007502
007506
007510
007512
007516

;INITIALIZE THE MEMORY ADDRESS POINTERS.
;GET THE BANK NUMBER INTO RO

JSR
JSR

64%:

077511
004767

INITON
BANKNO

171040

2%:

;MAKE TEST COUNTER BYTE VALUE
:1'S COMPLEMENT OF BANK #

R4,
PC.

RS
RO
-(R2),
RO,
65%

INITDN
BANKNO
R1
R1

PC.
PC,

SPRNTO
$ERROR

RS,

PC.

MMDOWN

;INITIALIZE THE MEMORY ADDRESS POINTERS.
;GET THE BANK # INTO RO
;MAKE TEST COUNTER BYTE VALUE
;SET 1'S COMPLEMENT OF BANK #
;READ DATA OUT OF MEMORY
;CHECK DATA...LOW BYTE ONLY VALID
:BRANCH OVER ERROR CALL IF GOGD DATA.

;SET UP VALUES FOR ERROR PRINTING.
;**» ERROR *** (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

IF MORE IN CURRENT BLOCK.
:BRANCH

;FIND NEXT BLOCK AND LOOP TO 3%.
[4

SING
IF PROGRAM HAS RELOCATED TO UPPER BOUNDARY,THE ADDRESNOISE
TESTING
TESTS WILL BE EXECUTED FOR ALL BANKS AND WORST CASE
WILL BE LIMITED TO BANKS 0,1.
ALL OTHER BANKS WILL BE EXERCISED FOR WORST CASE NOISE TESTING
WHEN THE PROGRAM OCCUPIES BANKS 0,1.

SECTZ2:
1%:

R5
RO

DOWNWARDS BYTE ADDRESSING.

6%:
007126
010210

R4,
PC.

CHECK THAT DATA WRITTEN CAN BE READ.

3s:

114201
120001

;GO TO SCOPE ROUTINE.

JSR
JSR

ASL
CoM

2%:
:*

007424
007430
007434
007436
007440
007442
007444
007446
007452
007456
007460
007460
007462

$SCOPE
RS,
JSR
DOWNWARDS BYTE ADDRESSING.

BIT
BNE
Mov

#8170 ,PRGMAP
2%
#20,RO

CLR

(R1)+

MOV

S08
MOV
BIC
MOV

. TSTMAP,R1

RO,1$
SAVIST RO
#177776 ,RO
RO, TSTMAP

;1S PROGRAM RELOCATED
:IF NO,CONTINUE TESTING ALL BANKS
;CLEAR ALL LOCATIONS OF TEST MAP
;TEST MAP TABLE

;LOOP UNTII DONE
;GET LOWER 128K MAP
;DO ONLY FIRST BANK
;FOR DATA TESTS
;CONTINUE TESTING

SEQ 0052

-81 23:00
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(10646) 04-AUG
TESTS
NOISE
WORST CASt
SECTION 2:
04~AUG-81 22
P11

PAGE ~°

SEQ 0053

.
.

.SBTTL SECTION 2:

T D S L

WORST CASE NOISE TESTS

oty
i tiatabinitbiniiaieiiuiteiiuiainieuiainidaliiiuiiabib

THESE TESTS WRITE MEMORY WORST CASE NOISE TEST PATTERNS THROUGHOUT

= MEMORY AND CHECK THAT THEY CAN BE WRITTEN AND READ.

::Itttttt't't'tt.tttlt't"iit'!t*'t'.lt‘lt'.i"....‘Q.'Q'Qt.‘.."
':ttt'tttt.'tttfi'tttt't""'tt'tfi"'i.t.tfi"t"..i.."‘Q"l't.t'.

CRL I

007526
007526

007532
007536
0C7542
007544

007546

004567
016700
004467
010022
077502
004767

WRITE A CONSTANT INTO "IEMORY.

THE CONSTANi IS USER SELECTABLE (DEFAULT = 0).

munan

o) P
W ~nN

PSR IR IR

)

;*TEST 6

DATA WRITTEN INTO MEMORY (SHOULD BE)
DATA READ FROM MEMORY (WAS)
VIRTUAL ADDRESS

NOT USED
NOT USED

R5 = BLOCK BOUNDARY BIT MASK.

TST6A:

JSR
MOV

$SCOPE
RS,
.CONST, RO

1%:

MOV
SoB

RO,
RS,

”

:tt!!tttttttttt'tit'tfit'tQtittitttittifiit!ifitlt'ii*'Q‘l"t'itQQQ
TST6:

007622
172226

003236

JSR

003440

R4,

PC.

INITMM

(R2)+
1%
MMUP

;GO TO SCOPE ROUTINE.
:GET USER CONSTANT

:INITIALIZE THE MEMORY ADDRESS POINTERS.
SWRITE CONSTANT INTO MEMORY.
:BRANCH IF MORE IN CURRENT BLOCK
sFIND NEXT BLOCK AND LOOP TO 18.

"ttttt'tttttt*ttttttfitfiitt'fi*tktfittttfitttt'titt*tlttfitttfit'*"t'

READ MEMORY AND COMPARE TO CONSTANT.

LRTEST 7

FIRST RUNNING TEST $TN.
BE RUN WITHOUTtttttt'
SHOULD NOT ‘**titt
THIS TEST
ANT: tttl**t
IMPORT
‘x
.ttt"'t
t*ttttt
tttttt*titt.tt
"ttttttttktttt

007552
007552

007556

007562
007566
007566

007570
007572

007574
007600
007604
007606
007606
007610

007614
007622
007624

007630
007634
007640
007642
007650
007656

004567

016700
004467
012201
020001
001405
004767
004767
00000¢
077511
004767

032777
001416
017746
042716
022726
001007

162767
162767
000725

1$17:

007576
172202
003212

64%:

007024

010062

65%

003376

000400

.«
171306

171300
177740
000006
000001
000024

JSR
MOV

$SCOPE
RS,
.CONST, RO

R4,

INITMM

MoV
CMP
BEQ
JSR
JSR
.WORD

(R2)+,
RO,
65%
PC,
PC.
4

R1
R1

s08

RS.

JSR

;INITIALIZE THE MEMORY ADDRESS POINTERS.
;GET THE DATA FROM MEMORY UNDER TEST.
;COMPARE THE CHECK WORD WITH THE DATA READ.
;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING.
;*** ERROR **+ (GO TYPE A MESSAGK)
;ERROR TYPE CODE.
;BRANCH IF MORE IN CURRENT BLOCK

;FIND NEXT BLOCK AND LOOP TO 1S$.
MMuUP
PC,
JSR
6 IS SELECTED THRU THE SWR.
TEST
SPECIAL CHECK TO SEE IF
AND 7

FORTH BETWEEN TESTS 6
‘« ALLOWS THE OPERATOR TO SWITCH BACK ANDSW02,
AND SWOB ARE SET.
“« BY SIMPLY "‘TOGGLING'' SWOO WHEN SWO1,THAT LOOP ON TEST BIT SET
BIT

BEQ
MOV

BIC

171222
171220

SPRNT2
$ERROR

;GO TO SCOPE ROUTINE.
:GET USER CONSTANT

MP
BNE

Sus
SuB

B8R

NSWOB,
1ST10
aSWR.

@SWR

-(SP)

#177%40, (SP)
#6,
1sT10

(SP)+

;CHECK

'BRANCH IF NOT LOOP ON TEST
:GET SWITCH REGISTER DATA.

*CLEAR NON-TEST-NUMBER SWITCHS.

-CHECK IF TEST 6 IN SWITCHES.
‘BRANCH IF NOT TEST 6

$TSTNM -RESET TEST NUM
”,
.SLPADR ;RESET LOOP ADR
-TST6
#TST7

TST6A

;GO TO TEST 6

"tttttfitttttt*fittttt*tit'fit".it*tfifitfifiitlttfitttltt'ttfit!t!t't

S*TEST 10

WORSE CASE NOISE (PARITY) WORD TESTING

30(1046) 04-AUG-81 23:00 PAGE 42
(=2 MEGAWORD MNJRY EXERCISER, 160( VER MACY11
WORSE CASE NOISE (PARITY) WORD TESTING
110
04~AUG-81 22:59
P
-+

007660

LSV CT,NT.NT,
ST, NT.N1,¥]

238320000
ogm ng?wm

007660 004567 007470

007664
007670
007674
007676
007700
007706
007706
007710
007712
0077146
0077206

007724
007726
007726
007730
0C?734

CHECK MEMORY WITH A SERIES OF PATTERNS

oo tttt..ttt..'i'..t.t.'""'Q'...t..'.....t‘t.tlt.tt.i.."t [

016704
004767
012400
001417
004467
010012
012201
020001
001405
004767
004767

172136
005766

003074
006704
007742

000004
077512
004767 003256
000755

1S110:

1%:
2S:

648 :
65%:

SEQ 0054
2 XA
EE

JSR

RS,

;GO TO SCOPE ROUTINE.

.WORD
SOB
JSR
BR

4
RS,
PC,
1%

ERROR TYPE CODE.
;BRANCH IF MORE IN CURRENT BLOCK
:FIND NEXT BLOCK AND LOOP TO 2%.
BR BACK TO DO NEXT PATTERN

MoV
JSR
MOV
BEQ
JSR
MOV
MOV
tMP
BEQ
JSR
JSR

$SCOPE
MPPAT, R4
CKPMER
PC,
(RG)+, RO
TST11
INITMM
Ré&,
(R2)
RO,
(RA)+, R
R1
RO,
65%
SPRNT?Z2
PC,
$ERROR
PC,
2%
MMUP

cINITIALIZE PATTERN TABLE POINTER
CHECK FOR NON-TRAP PARITY MEMORY ERRORS.
GET THE DATA PATTERN.
;:BR IF END OF TABLE.
ADDRESS POINTERS.
THE MEMORY MEMORY
INITIALIZEPATTER
.
INIO
N
DATA
PUT
TEST.
UNDER
MEMORY
FROM
DATA
:GET THE
DATA READ.
THE
WITH
WORD
CHECK
THE
E
CWAR
BRANCH OVER ERROR CALL IF GOOD DATA,
SET UP VALUES FOR ERROR PRINTING.
**" ERROR *x* (GO TYPE A MESSAGE)

P L T LV S L LS L S LS LS LT NY. ST,V
NN LN ST LN LN TNd P LNd eNSwnd LSDTNi LND LN- DSTV
NT VLN N L S L VT V1, V1,b wr
§§i
b md D d d ared b
cd e e D o D b e b
OV IV, VW
W P oW o P 2R ¥ g . )
NN
—
AN—=OOVO
NN W20V~
OO0 O NEAN = O D00 NN NN — ;

D —b

6) 04-AUG-81 23:00 PAGE 43
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(104
"0°° BIT THROUGH A FIELD OF ONES.

04-AUG=-81 22:59

SEQ N7

ROTATE A

""t.'t.t.'t"!".t.fi'"t""".t...'.t't'flt't'tt.t.'.tt't!.!lt-t

ROTATE A "0’ BIT THROUGH A FIELD OF ONES.

;*TEST N

tlt

"."ttt't.'!t..fl't..tfi.'t'tt"tt.fi't"tl.t'!t.tlt!'t't'!.ttltl'

007736

007412
177777
004332

007736
007762
007746
007752
007756

004567
012700
004767
004467
000241

007770
007772
007774
007776

103402
020001
001405
004767 006622

007760 004767
007764 016201

003022

004336
177776

010002 004767 007660
010006 000005
010010

010010 077516
010012 004767 003174

1ST11:

RS,
-1,
PC.

1%:

JSR
MOV
JSR
JSR
CLC

63%:

BCS
CMP
8EQ
JSR

63%
RO,
648
PC,

64%:

Ré,

$SCOPE ;GO TO SCOPE RCUTINE.
sSET CHECK WORD
RO
SETCON ;PUT THE CONTENTS OF RO IN ALLS MEMORY.
INITMM ;INITIALIZE THE MEMORY ADDRES POINTERS.
;CLEAR CARRY BIT IN PSW

JSR
MOV

ROTATE
PC.
-2(R2), R1

JSR

PC.

;BRANCH IF 'C*' BIT WAS SET
DATA READ.
;COMPARE THE CHECK WORD WITH THE DATA.
R1
GOOD
IF
CALL
ERROR
OVER
;BRANCH
SPRNT2 :SET UP VALUES FOR ERROR PRINTING.
E)

RS,
PC.

1%
MMUP

.WORD

so8
JSR

JGET RESULT

SERROR ;*#*x ERROR #*+ (GO TYPE A MESSAG
;ERROR TYPE CODE.

;BRANCH IF MORE IN CURRENT BLOCK
:FIND NEXT BLOCK AND LOOP TO 18$.

;;tltttttfitittt**t*ttititttttittttttfitttttititttttttttlitttt!"tt

;*TEST 12

ROTATE A '"1'° BIT THROUGH A FIELD OF ZEROS

:;tt**ttttfifittttttttfit‘ttttt*tttttttt*tt*tt'tttttlttt*ttttttttttt

010016

010016 004567 007332
010022 005000

010024 004767 004254
010030 004467 002744
010034
010036
010042
010046

010050
010052
010056
010060
010064

010066

000261
004767 004260
016201 177776
103002

020001
001405
004767 006544
004767 007602
000005

010066 077516
010070 004767 003116

TST12:!

1%:

63%:
64%:

JSR
CLR

JSR
JSR

SEC
JSR
MoV
BCC

cMP
BEQ
JSR
JSR

.WORD

S08
JSR

$SCOPE

;GO TO SCOPE ROUTINE.
;SET CHECK WORD

ROTATE

PC.
-2(R2), R1
63%

JSET 'C' BIT IN PSW
-GO ROTATE *'1' BIT
JGET RESULT
JBRANCH IF *'C' IS CLEAR

JERROR TYPE CODE.

RS,
RO

PC.
R4,

SETCON ;PUT THE CONTENTS OF RO IN ALL MEMORY S.
INITMM ;INITIALIZE THE MEMORY ADDRESS POINTER

RO,
648
PC,
PC,

R1
SPRNT2
SERROR

RS,
PC,

1%
MMUP

;COMPARE THE CHECK WORD WITH THE DATA READ.
:BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING.
;**% ERROR *** (GO TYPE A MESSAGE)
;BRANCH [F MORE IN CURRENT BLOCK
;FIND NEXT BLOCK AND LOOP TO 18.

PAGE 44

)

R
R

N
LI

OCCURS
2) READ IT BACK WITH ACTION ENABLE SET, MAKING SURE THATIT A ISTRAP
READ
WHEN
OCCURS
TRAP
3) WRITE GOOD PARITY AND MAKE SURE NO
CORRECT
%) MAKE SURE THE ERROR ADDRESS BITS (CSR BITS <11-5>) ARE
<11-5>
BITS
AND
BIT14
CHECK
128KW,
5) é; gggl$¢A?§sD AND ABOVE

"tlttttttfittttfitt*tttttt'ttttt'ttttt*'ttfit.t'."Qfitt'tt'.titttl.
TST13:

=200
N
AR FRERENN
WNIN
=

—l —
)
e
ol — —
—

[
341", NS BN
OO
8
(e Yo ¥

e
e
e
b
ad i
e

amd wd v
—

Gy
s Qunr Qs

[eololeleolelelels)

b
—t

—d

[eJolNololololalelels)]

—

e ——

0000000000

[elelelelelels]

BRI RENCEBEIRIRZ BRBIIINANINYITEIEREER2E

23:00

WORSE CASE NOISE PARITY BYTE TESTING
;*TEST 13
CHECK PARITY MEMORY WITH A SERIES OF BYTE PATTERNS
1) FORCE WRONG PARITY IN EACH BYTE OF PARITY MEMORY
2%
R

o
D b el >

COO0DQ0 "N N NNNNNNNO

"'t.ttfi't't..tt.‘.'.'t"t"tttt.ltl't....'lQ'.'..Q.t.l".!'t...'

HAIWAN N
000~
W"

10U
U AU AU
AL AU
AU AL N0
MU NI
RO R AL AN RO AR N A NI
AN RD i
NL ND RN
NN NN R PO
D d e
D D e e e d o D
D o b e
b o o
i e
d e rd i
e e
) e e kb o mah h e ek D d e

04-AUG-81

WORSE CASE NOISE PARITY BYTE TESTING

113

06-AUG-81 22:59

P11

SAA

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

004567
005767
001404
032777
001402
000167
005000
004767
004467
006305
012700
016701
016703
032123
001004
077003
060502
000167
004767
004767
0202727
001004
062702
162705

007254

WWPB(Q:

173264

000100

171014

004154
002644

000011

105067
112700
110012

016703
056773
052733
005713
001371

000020
171646
171640

110012

016703

BNE
SOB

ADD

2%
RO,
RS,

JMP

WWPR6

BNE
ADD
suB

3%
#s,
I

JSR
JSR
C(MP

PC,
PC,
RZ.

655

(R2),
65%
PC.
PC.,
11

WWPBZ2:

CLRB
MOVR
MOVB

OEFLG
#2552,
RO,

10%:

BIS

64%:

;%
171526

.PMEMAP ,R3

MOVB
BEQ
JSR
JSR
JWORD

171522

000001

INITMM

(R1)+,(R3)+

MOV

3%:

000000

Ré4,

SETCON

BIT

wwPB1:

000252

PC,

aSWR

ASL
WWPBYT: MOV
MOV

2%:

006312
007436

$SCOPE

RS
RO
#20,
.BITPT, R1

000004
000004

171512

TST14
RO

JSR

1%:

000666
005434
005464
000114

171552

JMP
CLR

JSR

111201

001405
004767
004767

RS,
MPRX
1%
#SW06,

BEQ

1%:
2%:

000742

JSR
TST
8EQ
BIT

MOV

BIS

1%
R?

SETAE
CKPMER
#1114
R2
RS

SPRNT
$ERROR

RO
{(R2)
.MPRX, R3
WwP,@(R3)
#AE ,3(R3)+

;GO TO SCOPE ROUTINE.
:CHECK FOR ANY PARITY MEMORY.
:BR IF NO PAR]TY MEMORY.
:CHECK FORINHIBIT PARITY SWITCH.
:BR IF NOT SET.

:SKIP THIS TEST IF NO PARITY MEMORY PRESENT.
;ZERO TO BE PUT IN ALL MEMORY.
;ROUTINE TO LOAD ALL MEMORY.
:INITIALIZE THE MEMORY ADDRESS POINTERS.
;RETURN FOR MMUP

:MAKE TEST COUNTER BYTE VALUE
;TABLE COUNT
:BANK POINTER TABLE
:PARITY TABLE

:CHECK IF CURRENT BANK HAS PARITY MEMORY
:BRANCH IF PARITY MEMORY
:CHECK TILL END OF TABLE

;IF NONE FOUND POINT R2 TO
;FIRST ADDR OF NEXT BANK.

;FIND NEXT BLOCK

©SET ACTION ENABLE (EVEN If BANKO.)
:;CHECK FOR ANY NON TRAP PARITY ERRORS.
:CHECK IF POINTING TO PARITY ERROR VECTOR.
;BR IF NOT AT VECTOR.
:SKIP PARITY VECTOR.
:SKIP PARITY VECTOR
:SUBTACT 4 FROM TEST COUNTER

:CHECK IF BYTE STILL CLEARED.
;BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
;xxx ERROR *xx (GO TYPE A ME SSAGE)
:ERROR TYPE (CODE.
:CLEAR ODD/EVEN FLAG.
:SET UP DATA...EVEN, SETS PARITY BIT.
:MOV DATA INTO TEST LOCATION,

:GET PARITY REGISTER TABLE POINTER.

:SET WRITE WRONG PARITY.

:CHECK FOR TABLE TERMINATOR.
(R3)
TST
:BR IF MORE REGS IN TABLE.
108
BNE
UNDER TEST.
ION
LOCAT
SET WRONG PARITY IN
SAME DATA (EXCEPT PARITY) VIA DATOB.
:WRITE
(R2)
RO,
MOVR
:GET PARITY REG TABLE POINTER.
.MPRX, R3
MoV

SEQ Ol

(VMSAA

VMSAA P11
2209
2210
2211
2212
2213

PAGE 45
=2 MEGAWORD MEMORY EXERCISER, }?g VER MACY11 30(1046) 04-AUG-81 23:00
TESTING

010274
010300
010302
010306
010310

04-AUG=-81 22:59

046732 171466
005713
001374
005767 171466
001402

WORSE CASE NOISE PARITY BYTE
BIC
ST
BNE
ST
BEQ

118:

TSTR
B8R

2214 010312 105712
2215 010314 0006264

@(R3)+ :CLEAR WRITE WRONG PARITY.
WP,
ICHECK FOR TABLE TERMINATOR.
(R3)
"BR [F MORE PARITY REGISTERS.
118
IF RUNNING ON EARLIER LSI=11/2
TCHECK
LSIFLG
BR IF 11722 OR LATER PROCESSOR
128
NOT AVAILABLE ON LSI111/2

“PARITY TRAP LOGIC WITH READ AND BYPASS
“SET PARITY ERROR
(SR.

(R2)
PRTRP1

"PARITY TRAP AND TEST PARITY
2216
;SET UP VECTOR FOR EXPECTED TRAP.
EC
a#PARV
_PBTRP.
MOV
5517 010316 016737 171502 000114 12%:
DATOB SHOULDN'T EXECUTE. BIT.)
.+ DETECT WRONG PARITY VIA DATIO;
2218
:DATIO (DATOB AND COM PARITY
(R2)
NEGB

2219
2220
2221
2222
2223
2224
2225

010324
010326
01033
010340
010344
010346

105412
016737
004767
004767
000012
004767

s«

171476 000114
648
006240
007322
006142

SHOULD HAVE TRAPPED TO PBTRP.

MOV
JSR
JSR
_WORD
JSR
JMP

gggg 010352 000167 000442

2228
2229

.»

2230

223, 010372 032713 000001
2235 010376 001003

2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259

2260
2261
2262
2263
2264

010400
010404
010406
010412
010416

017301 000000
100413
062703 000044
020367 171404
103765

22%:

004767 006154
004767 007236
000013
000572
004567 005330
000405

64$:

010442
010446
010452
010454
010454
010456
010460
010464

004767 006126
004767 007214
000014
010046
010200
042700 003777
000300

65%:

010472
010476
010500
010506
010510

005767
001411
042700
063700
032702

010420
010424
010430
010432
010434
010440

010466
010470

006300
006300

170040
177600
172344
020000

"SKIP TRAP SERVICE.

WWPB4

EXPECTED PARITY MEMORY TRAPS COME HERE.

5531 010356 016737 171446 000114 PBTRP: MOV
CMP
2232 010364 022626
MOV
:
PBTRP1
2233 010366 016703 171426
BIT
21%:
2236
2237
2238
2239
2240

UNEXPECTED TRAPS.
_PESRV. a#PARVEC :RESET VECTOR FOR
PRINTING.
SPRNTO :SET UP VALUES FOR ERROR
PC,
ME SSAGE)
A
TYPE
(GO
*»*
$ERROR ;w*»* ERROR
PC,
CODE.
"ERRCR TYPE
12
*CLEAR ALL PARITY (SRS BEFORE NEXT BYTE
PC,CLRPAR

23%:

248

BNE
MOV
BM]
ADD
CMP
BLO
JSR
JSR
_WORD
BR
JSR
BR

VECTOR FOR UNEXPECTED TRAPS.
"PESRV. ®#PARVEC :RESET PARITY
POINTER AFTER TRAP.
STACK
THE
(SP)+. (SP)+ :RESET
MAP TABLE POINTER.
AND
REG
“GET PARITY
.MPRO. R3
R EXISTS.

#IT0.
22%

a(rR3),
23%
#44,
R3,
21%

(R3)

“CHECK IF THIS REGISTE
"BR IF IT DOESN'T EXIST.

“GET THE CONTENTS.
‘BR IF ERROR FLAG SET.
'MOVE POINTER TO NEXT REG.
:CHECK FOR END OF TABLE.
‘B8R IF MORE REGISTERS.

JSR
JSR
"WORD
MOV
MOV
BIC
SWAB

R3
_MPRX
G.
SPRNTO -SET UP VALUES FOR ERROR PRINTINE)
PC.
MESSAG
A
TYPE
(GO
*x*
ERROR
$ERROR =%~
PC.
"ERROR TYPE CODE.
13
‘EXIT AFTER ERROR.
WWPB4
PARMAT -CHECK FOR MAP OF THIS REGISTEERR
RS,
"BRANCH IF THIS PARITY REGIST
248
"CONTROLS THIS BANK.
'RETURN +2.ERROR ,CANNOT FIND MEM BANK
"IN PARITY MAP TABLE.
G.
SPRNTP -SET UP VALUES FOR ERROR APRINTIN
PC,
E)
MESSAG
TYPE
(GO
***
ERROR
-*»%
$ERROR
PC.
CODE.
TYPE
"ERROR
14
; :PUSH RO ON STACK
RO, -(SP)
“GET THE ADDRESS POINTER.
RO
R2
“CLEAR LOW ADDRESS BITS.
#3777, RO
6 PLACES RIGHT.
“SHIFT
RO

ST
BEQ
BIC
ADD
BIT

MMAVA
25%
#177600,R0
a#K [PAR2,RO
#BIT13, R2

ASL
ASL

RO
RO

sCHECK FOR MEM MGMT.
'BR IF NO MEM MGMT.
"CLEAR BANK BITS
“ADD MEM MGMT OFFSET.
"CHECK FOR PAR3 REF. ADDRESSING

SEQ 0057

(-¢ MEGAWORD MEMORY EXERCISER, }?g VER MACY11 30(1046)

P11

010514
010516
010522
010526
010534
010540
010544
010546
010550
010554

010560 000015
010562
010562 005767

67%:

ge8ds
—O

N N WA N AN LN N WA

OO O

~NO

NS W

n —0-‘—.—‘—.—.-—)—0-—._‘

w AN

. .WORD
TST

010576
010600
010602
010610

101030
010046
052773 040000 000000
013700 172344

BPL
cMP
8HI
MOV
BIS
MOV

010622
0106246
010630
010634
010640
010642
010644

006300
052700
017301
042701
020001
001405
004767

ASL
BIS
MOV
BIC
CMP
BEQ
JSR

010654

000015

010656
010660
010664
010666
010672
010676
010700
010704
010706
010712
0107214
010720
010724
010726
010730

012600
005073
010346
062703
020367
101014
032713
001370
017301
100365
004767
004767
000016
000757
111204

010732

111212

BIC
SWAB

010614 042700 007777
010620 000300

roruNLNURLRUNDNLNADN

23:00 PAGE 46

;BR IF R2 IS ADDRESSING PAR?
25%
BEQ
:SET UP EXPECTED WITH PAR3
#200,R0O
ADD
000200
#8IT15+BITO.RO ;3ET ERROR AND AE BIT IN CHECK WORD.
8IS
25%:
100001
42(R3), RESRVD GET APPROPIATE MASK. RESERVED FOR FUTURE.
MOV
000042 170752
:CLEAR PARITY REG BITS
RESRVD, RO
BIC
170746
:CLEAR PARITY REG BITS RESERVED FOR FUTURE.
RESRVD, R1
BIC
170742
FOR UNMIXED MEMORY TYPES.
:NOTE: THE ABOVE INSTRUCTION (2 WORDS) CAN BE NOP'EDWORD
WITH THE DATA READ.
CHECK
THE
RE
:COMPA
R1
RO,
cMP
IF GOOD DATA,
CALL
ERROR
OVER
:BRANCH
67%
BEQ
PRINTING.
ERROR
FOR
VALUES
UP
:SET
SPRNTP
PC,
JSR
66%:
006020
MESSAGE)
A
TYPE
(GO
*x«
ERPOR
:®***
$ERROR
PC.
JSR
007106
:ERROR TYPE CODE.
15

167750
100034
010566
010570 022737 010000 172344

140001
000000
030032

005724
010650 004767 007012

68%:

010656

69%:

010734 012603

WORSE CASE NOJSE PARITY BYTE TESTING

04-AUG~81 22:59
001402
062700
052700
016367
0646700
046701
020001
0014605
004767
004767

04-AUG-81

000000
000044
171124
000001
000000
005654
006742

010736 017301 000000
010742 046701 170540

JSR

.WORD

:CHECK FOR 22 BIT ADDRESSING
MMAVA
:BR IF 22 BIT ADDR NOT ENABLED
100%
#10000,3#K1PAR2 ;CHECK IF ABOVE 128KW 128kW

:BR IF KIPAR2 LESS THAN
::PUSH RO ON STACK
:SET BIT14 TO ENABLE B]ITS 18-21
;INTO BITS 8-5 OF PARITY (SR
:SETUP EXPECTED FOR PARITY (SR

100%
#MIT14,3(R3)
a#K ]1PAR2 RO

:A18-21 IN BITS 5-8
RO
#RITIS'BIT14'AE,RO:SAVE EXPECTED PARITY (SR
:GET CONTENTS OF PARITY (SR
a(R3) ,R1
:CLEAR MASKED BITS
#30032.,R1
DATA READ.
;COMPARE THE CHECK WORD WITH THE DATA.
R1
RO,
GOOD
IF
CALL
:BRANCH OVER ERROR
69%
SPRNTP ;SET UP VALUES FOR ERROR PRINTING.
PC,

RO,~(SP)

#7777 ,RO
RO

PC.
15

:BITS 18-21 STORED IN
:BITS 5-8.

$ERROR :xa» ERROR =*x (GO TYPE A ME SSAGE )
;ERROR TYPE CODE.

::POP STACK INTO RO
(SP)+ R0
MOV
:CLEAR REG INCLUDING ACTION ENABLE.
a(R3)
CLR
100%:
::PUSH R3 ON STACK
R3,-(SP)
MOV
;UPDATE POINTER TO NEXT PARITY REG ¢ MAP .
R3
846,
ADD
26%:
.MPRX :CHECK FOR END OF TABLE.
R3,
CMP
:BR IF END OF TABLE REACHED.
WwPB3
B8HI
:CHECK IF NEXT REG EXISTS.
MIT0, (R
8IT
:BR IF THIS PARITY REG DOESN'T EXIST.
26%
BNE
:SAVE AND CHECK FOR ERROR FLAG.
a(R3), RI
MOV
:BR IF NO ERROR FLAG.
26%
BPL
G.
SPRNTP :SET UP VALUES FOR ERROR A PRINTIN
PC,
JSR
70%:
E)
MESSAG
TYPL
(GO
$ERROR ;%#*x ERROR *x*
PC.
JSR
:ERROR TYPE (ODE.
.WORD 16
:BR AFTER ERROR.
269%
BR
:GET THE DATA FOR CHECKING.
(R2), R4
WWPB3: MOVB
CAUSE PARITY ERROR, 8UT
:* READING THE DATA VIA DATI TO CHECK 1T SHOULD
SET IN CONTROLLING REG, SO NO TRAP SHOULD OCCUR.
S« ACTION ENABLE 1S NOT (R2)
:RESTORE RIGHT PARITY
(R2),
MOVB
;NOTE:

;

THE ABOVE INSTRUCTION CAN BE NOP'ED FOR PROCESSORS

WHILH DO ONLY DATOB TO DESTINATION OF MOVBR3 INSTRUCTIONS.

MOV

MOV
BIC

(SP)+,R3

a(R3), Ri
RESRVD, R1

::POP STACK INTO

IT AGAIN.
READ THE PARITY REGISTER TO CHE(CK
FUTURE .
FOR
ED
RESERV
BITS
:CLEAR PARITY REG

sbw oot

0=¢ MEGAWORD MEMORY EXERCISER, }?g VER MACY11 30(1046) 04~AUG-81 23:00 PAGE “7

04-AUG-81 22:59

TS
S et tvve e
PN H

FOR UNMIXED MEMORY TYPES.
SNOTE: THE ABOVE INSTRUCTION (2 WORDS) CAN BE NOP'ED
ENABLE BIT IN TEST DATA,

010746
010752
0107564
010756
010762

042700 000001
020001
001405
004767 005612
004767 006700

010770

012773 000001 GOO000
010401
012600
120001
001405
66%:
004767 005566
004767 006650

010766 000015

ASLSLST,SLELET
S VLT N LWL VN T V1 81,8 1 V1,V 1,N 1,V

WORSE CASE NOISE PARITY BYTE TESTING

010770
010776
011000
011002
011004
011006
011012
011016
011020
011020
011022
011024

011030
011034
011036
011042

071044
011046
011050
011054
011060

0060017
110012
105712
012700 000253

105167 170724
100002
000167 177200
005202

005305
001402
000167 177122
004767 002132
004767 004476

64%:
65%:

67%:

WwwPB4:

27%:

#AE,
RO,
5%
PC,
PC,

MOV
Mov
MOV
{MP8
BEQ
JSR
JSR

3(R3)
s,
R1
R4,
(SP)+,RO
R1
RO,
67%
SPRNTO
PC.
$ERROR
PC,

.WORD

.WORD
MOVB
1STB
MOV

coms
BPL
JMP
INC

DEC
BEQ
JMP
WWPB6: JSR
JSR

WwwPBS:

RO
R
SPRNTP
$ERROR

BIC
MP
BEQ
JSR
JSR

17
RO,
(R2)
#4253,

OEFLG
27%
WWwPBZ2
RZ

RS
WWPB6
WwPa1
PC.
PC,

:CLEAR THE ACTION
THE DATA READ.
:COMPARE THE CHECK WORD WlTH
DATA.
GOOD
IF
CALL
ERROR
;BRANCH OVER
NG.
PRINTI
ERROR
FOR
VALUES
UP
;SET
;+** FRROR **= (GO TYPE A MESSAGE)
;JERROR TYPE CODE.

:CLEAR ALL BUT ACTION ENABLE.
:GET DATA READ FROM MEMORY FOR TESTING.
;POP STACK INTO RO
;CHECK THE DATA.
DATA.
;BRANCH OVER ERROR CALL IF GOODNG.
;SET UP VALUES FOR ERROR PRINTI
;***» ERROR *** (GO TYPE A MESSAGE)

;ERROR TYPE (ODE.
;RESTORE DATA.
;DO A DAT] TO BE SURE RIGHT PARITY.
;SET ODD PARITY DATA.

MMuUP
MAMF

;CHECK FOR END OF BLOCK
;BR IF END OF BLOCK FOUND.
;LOOP BACK TO TEST NEXT BYTE.
:FIND NEXT BLOCK AND LOOP TO WWPBYT
;GO RESET PARITY REGISTERS.

(R2)

;CHECK IF DONE BOTH ODD AND EVEN PARITY.
;BR IF DONE BOTH EVEN AND ODD.
:LOOP BACK AND DO ODD(PARITY BIT CLR).
:MOVE POINTER TO NEXT MEMORY BYTE.

SEQ 0059

0-2 MEGAWORD MEMORY EXERCISER. }?fi VER MACY11 30(1046) 04=-AUG-81 23:00 PAGE 48

P11

04-AUG-81 22:59

RANDOM DATA TESTING THRU PROGRAM CODE RELOCATION.

'-'-Qtttt.tt'ttt.tttt'ttt't"t'.t.l'.'.t'.l'....t't"'.t....'tt"'.

RANDOM DATA

TATEST 14

011064 004567 006264
011070 010703

JSR
MOV
RANTST:

RS,
PC

$SCOPE ;GO TO SCOPE ROUTINE.
"GET CURRENT PROGRAM COUNTER.
R3
T 2K BLOCK.

011102 010246
011106 010346
011106 010567 170660

1%:

MOV
MGV
MOV

R2,
R3.
RS

-(SP)
~-(SP)
TEMP1

CURREN
*POINT TO BEGINNING OF ADDRES
S POINTERS.

(R$)+, (R2)+
#7777, R3
3s
#10000, R3
2%
RS,

:MOV CODE INTQ TEST MEMORY.
"CHECK FOR END OF 'DATA TABLE'
*BRANCH IF MORE
M DATA'’
"RESET POINTER TO START OF 'RANDO
“1F NOT END OF BLOCK,BRANCH TO 2%

RG,

INITMM SINITIALIZE THE MEMORY

(SP)+, R3
(SP)+. R2
TEMP1, RS
(R3)+, RO
(R2)+, R1

"RESET 'DATA'* POINTER.
"RESET MEMORY POINTER.
*RESET ADDRESS COUNTER
‘GET $/B DATA.
"GET THE DATA FROM MEMORY UNDER TEST.

THE DATA READ.
*COMPARE THE CHECK WORD WITHGOOD
R1
DATA.
"BRAMCH OVER ERROR CALL IF
NG.
SPRNT2 -SET UP VALUES FOR ERROR PRINTI
A MESSAGE)

RO,
65%
PC,

BIT
BNE
SuB
s08
JSR

#7777, R3
5%
#10000, R3
48
RS,
MMUP
PC.

PC.
20

;SAVE MEMORY POINTER.
:SAVE 'DATA'’ POINTER.
:SAVE ADDRESS COUNTER

$SERROR -#%* ERROR #** (GO TYPE
‘ERKOR TYPE CODE.

:CHECK FOR END OF 'DATA TABLE'
*BR IF MORE.
"RESET POINTER TO TOP OF 'DATA TABLE''.
:BRANCH IF MORE IN CURRENT BLOCK
-FIND NEXT BLOCK AND LOOP TO 18.

INSTRUCTION EXECUTION TESTS.

.SBTTL SECTION 3:

,':ttttittttttQtt'tttttttttttttt*ttttfittfit*tt*t*ttttttttttti"tttt

PRI

ERRR

EXECUTE DATI, DATO THRU MEMORY.
L*TEST 15
.
EXECUTES THE INSTRUCTION 'MOV R4, (R2)‘' THROUGHOUT MEMORYCTION
TO RETURN
AN 'RTS RS' (CODE 205) IS PLACED AFTER THE 'MOV' INSTRU
UT.
ION CHECKO
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUT
ON TO MEMORY:
RELATI
IN
DOES
TEST
THIS
WHAT
OF
E
EXAMPL
AN
IS
THIS

MEMORY
LOCATION

:
.
:
“«
‘«

032703 007777
001002
162703 010000
077517
004767 002010

#7777, R3

CMP
BEQ
JSR

JSR
_WORD

011162
011166
81}};9
011174
011176

64%:

011154 004767 006506
8}1}23 000020

MOV
MOV
MOV
MOV
MOV

L$:

F R

011144 020001
011146 001405
011150 004767 005450

3¢

“«

012603
012602
016705 170632
012300
012201

MOV
81T
BNE
SUB
S08

2s:

® B

011130
011132
011134
011140
011142

012322
032703 007777
001002
162703 010000
077507

JSR

1ST PASS / 40000
THRU TEST / 40002
2ND PASS / 40002
THRU TEST /

:
:

40004

INSTRUCTION
PLACED THERE
010412
000205
710412
000205

CONTENTS OF MEMORY LOCATION
AFTER INSTRUCTION EXECUTION
000205
000205
000205
00205

ETC., ETC., ETC.

011112
011114
011120
011722
011126

BIC

007777
011072 062703 001676
011076 004467

ORI

285835
?wf\'dgo
O

TST14:

* % % B

SEE

~ NNNNNNY

[LSLERV ST NL VNV

wwwwwwggg

o VS wWN—=OVoo~N

FERELEILILR

NT N1, ST VT, VL VT, V1, UL, ST, VT, V1,8 1, V]

011064

LAV NT NI VLV, VT, N1,V 1 1 V1,V

TESTING THRU PROGRAM (ODE RELOCATION.

;"t.tt..t!ttttttttt'.t'tt"ttttttt'.'tttlt...tttlit'!tt.t"t‘t.'t

RO
R
R2

DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE).
DATA READ FROM MEMORY (WAS).
ADDRESS OF IUT/DATA.

SEQ 0060

30(1046) 04-AUG-81 23:00 PAGE 49
MSAA (=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11
EXECUTE DATI, DATO THRU MEMORY.
115
04~AUG-81 22:59
VM3AA P11
:» R3 = INSTRUCTION UNDER TEST (IUu7).
2606
:«
:*

2407
2408

2609

2610

2611
2612
2613
2614
2615
2616
2617
26418
2619

2620
2421
2622
2623
2624

011202

011202
011206
011212
011216
011220
011226
011226
011230
011232

01123
011236
011240
0112642
011246

;:fitt.tttttttfi'.ttttt'

004567
012703
012704
010400
004467
005305
010322
010412
004542

01125

006146
010412
000205

001554

012201
020001
001405
004767 005352
004767 0064614

24625 011252 000021

2426

R4( = RTS RS (CODE 205).
BIT MASK.
RS = BLOCK BOUNDARY t'tt't
tttttttttnttttttttntttt.ttttttnnt‘ttt

2627 011254 010322
2428 011256 077514
2629 011260 004767 001726

TST15:

DIDO:
1%:
2%:

64%:
65%:

MOV
(Mp
BEQ
JSR
JSR

$SCOPE
RS,
#0106412 ,R3
#205, R4
RO
R4,
INITMM
RG,
RS
(R2)+
R3,
(R2)
R&4,
-(R2)
RS,
(R2)+, RI
R1
RO,
65%
SPRNT3
PC,
$ERROR
PC,

MOV
S08
JSR

R3,
RS,
PC.

JSR
MOV
MOV
MOV
JSR
DEC
MOV
MOV
JSR

.WORD

(R2)+
2%
MMUP

;GO TO SCOPE ROUTINE.
JGET 'OV R4, (R2)* INSTRUCTION (IuT),
;GET 'RTS RS’
:SET UP S/B DATA AFTER EXECUTION.
:INITIALJZE THE MEMORY ADDRESS POINTERS.
:DO ALL ADDRESSES -1
(PUT TUT INTO FIRST LOC OF BLOCK.
:PUT 'RTS RS® FOLLOWING UT.
;GO EXECUTE THE JUT.

TEST.
:GET THE DATA FROM THE MEM ADR UNDER
READ.
DATA
THE
WITH
WORD
CHECK
THE
:COMPARE
DATA.
GOOD
IF
CALL
ERROR
OVER
H
:BRANC
NG.
;SET UP VALUES FCR ERROR PRINTI
;x*» ERROR *** (GO TYPE A MESSAGE)
:ERROR TYPE (CDE.

:PUT THE JUT INTO THE NEXT LOCATION.
:BRANCH IF MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP TO 1$.

(VMSAA

(-2 MEGAWORD MEMORY EXERCISER, }?g VER MACY11 30(1046) 04-AUG-81

(VMSAA. P11

04-AUG-81 22:59

23:00 PAGE 50

EXECUTE DATI, DATOB (LOW BYTE) THRU MEMORY.

2630

;;ntnttat-nt--tttttttttt't't--«:n.ttot--.t--t-n----a-c----.-qnnn

2633
2634

AFTER
‘« AN RTS RS' (CODE 205) IS PLACED
T.
CTION EXECUTION CHECKOU
INSTRU
PROGRAM FOR
“« CONTROL TO THE MAIN
MEMORY:
TO
ON
RELATI
IN
DOES
TEST
THIS
WHAT
OF
E
EXAMPL

MEMORY.
EXECUTE DATI, DATOB (LOW BYTE) THRUHOUT
;«TEST 16
MEMORY.
THROUG
(R2)'
R4,
‘v« EXECUTES THE INSTRUCTION *MOVB
THE ‘MOVB' INSTRUCTION TO RETURN

263
2632

T« THIS IS AN
i

5222
2437

*®

Si%g

522;

110412

110605

;*
L 4

000205

000205
A

THRU TEST / 40004

000205

110412

2ND PASS / 40002

118605

ETC., ETC., ETC.

2446

LOCATION

CONTENTS OF MEMORY LOCATION

AFTER INSTRUCTION EXECUTION

THRU TEST / 40002

2443
gzzg

PLACED THERE

1ST PASS / 40000

bR1

2440

INSTRUCTION

MEMORY

ix RO = DATA WRITTEN ON TOP OFf IUT BY THE IUT (SHOULD BE).

2647

2448

i*
‘«
“«
‘s
‘s«

2449
2450
2451
2452
2653

2454
2655

011264

2459
2460
2461
2662
26463
2464
2665
2666
2467
2468
2669

011300
011304
011310
011312
011314
011316
011320
011322
011324
011326
011332

2456 011264 004567 006064
2457 011270 012703 110412
2458 011274 012704 000205

012700
004467
005305
010322
010412
004542
012201
020001
001405
004767
004767

2470 011336 000021
2671 011340
2672 011340 010322

110605
001470

005266

006330

2473 011342 077514
2474 011344 004767 001642

R1 = DATA READ FROM MEMORY (WAS).
R2 = ADDRESS OF IUT/DATA.
R3 = INSTRUCTION UNDER TEST (IUT).
R4 = RTS R5 (CODE 205).
RS = BLOCK BOUNDARY BIT MASK.

_'.'t*tttttttt*tttt*ttttttt*'ttttt*kttttttttttttttt*ttttttttttttttt
1ST16:

JSR
DIDBL: MOV
MoV

1%:
2%:

64%:
65%:

MOV
JSR
DEC
MOV
MoV
JSR
MOV
cMe
BEQ
JSR
JSR

.WORD
MOV

SOB
JSR

$SCOPE
RS,
#110412,R3
#205, R4

;GO 7O SCOPE ROUIINE.
;GET 'MOVB R4, (R2)' INSTRUCTION (IUT).
;GET 'RTS RS

21
R3,

;ERROR TYPE CODE.
;PUT THE IUT INTO THE NEXT LOCATION.

#110605,RO
INITMM
Ré,
R5
(R2)+
R3,
(R2)
R4,
-(R2)
RS,
(R2)+, R1
R
RO,
65%
SPRNT3
PC,
$ERROR
PC,
RS,
PC,

(R2)+
2%
MMUP

:SET UP S/B DATA AFTER EXECUTION.
;INITIALIZE THE MEMORY ADDRESS POINTERS.
;DO ALL ADDRESSES =1
;PUT IUT INTO FIRST LOC OF BLOCK.
;PUT *RTS RS' FOLLOWING IUT.
;GO EXECUTC THE IUT.
TEST.
:GET THE DATA FROM THE MEM ADR UNDER
READ.
DATA
THE
WITH
WORD
CHECK
:COMPARE THE
DATA.
GOOD
IF
CALL
:BRANCH OVER ERRCR
;SET UP VALUES FOR ERROR PRINTING.
;*** ERROR #*#* (GO TYPE A MESSAGE)
;BRANCH IF MORE IN CURRENT BLOCK.
;FIND NEXT BLOCK AND LOOP TO 18.

SEa 0062

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

P11

04~AUG-81 22:59

23:00 PAGE 5’

EXECUTE DATI, DATOB (HIGH BYTE) THRU MEMCORY.

117

. '...t.t.'l"ttt."..t"'i'fi"".".t"t..'t'.t.l'.ttlllt‘.!'.!.Q'

EXECUTE DATI, DATOB (HICH BYTE) THRU MEMORY.
s*YEST 17
EXECUTES THE INSTRUCTION °'MOVB R3,-(R2)' THROUGHOUT MEMORY.
INSTRUCTION TO RETURN
AN ‘RTS RS' (CODE 205) !S PLACED AFTER THE 'MOVB' ION
CHECKOUT.
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUT
TO MEMORY:
ON
RELATI
IN
DOES
TEST
THIS
WHAT
OF
E
EXAMPL
AN
THIS IS
.

INSTRUCTION

MEMORY

LOCATION

PLACED THERE

40000
40002

110342
000205

:
“«

;*
:*
-»

¥ % %

“«

X % B3 ¥ N ¥

N E R B

SN NR

1ST PASS /
THRU TEST /

2ND PASS /

THRU TEST /

011350 004567 006000
011356 012703 110342
011360 012704 000205

011364 012700 161342
011370 004467 001404

AUNLNDRLNL
PONS NN

[V IV LS LV, TV TV, LV, LV, IV ]
b b
N —d d d h b
N & Wil
oY 0B ~NON

161342
000205

161342

000205

RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE).
R1 - DATA READ FROM MEMORY (WAS).
RQ2 = ADDRESS OF IUT/DATA.
R3 = INSTRUCTION UNDER TEST (IUT).
R4 = RTS R5 (CODE 205).
R5 = BLOCK BOUNDARY BIT MASK.

"tt*t*tttt*ttttttttt*i**ttt*****ktifitt*ttttttittt*tti*tttttt'ttt

011350

011410
011412
011614
011416
011422

000205

AFTER INSTRUCTION EXECUTION

ETC., ETC., ETC.

011374
011376
011400
011402
011406

110342

40002

40004

CONTENTS OF MEMORY LOCATION

005305
010322
010412
004562 177776
005302

012201
020001
001405
004767 005176
004767 006240

8}}258 000021

011430 010322
011432 077516
011434 004767 001552

1ST17:

DIDBH:
18:
2%:

64%:
658

JSR
MOV
MOV

$SCOPE
RS,
#110342 ,R3
R4
#205

;GO TO SCOPE_ROUTINE.
;GET 'MOVB R3,-(R2)' INSTRUCTION (IUT).
;GET °RTS RS’

DEC
MOV
MOV
JSR
DEC

RS
R3,
Ré,
RS,
R2

;DO ALL ADDRESSES
;PUT IUT INTO FIRST LOC OF BLOCK.
;PUT ‘RTS RS' FOLLOWING IUT.
;G0 EXECUTE THE IUT.
;ADJUST R2 TO POINT TO MAUT.

MOV
JSR

MOV
CMP
BEQ
JSR
JSR

.WORD

MOV
S08
JSR

:SET UP S/B DATA AFTER EXECUTION.
#161562,R0
INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS.
R&,
=1
(R2)+,
RO,
65%
PC.,
PC.
21

R3,
RS,
PC,

(R2)+
(R2)
-2(R2)

RI
R1
SPRNT3
$ERROR
(R2)+
2%
MMUP

;GET THE DATA FROM THE MEM ADR UNDER TEST.
;COMPARE THE CHECK WORD WITH THE DATA READ.
;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING.
;**x ERROR ***x (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

;PUT THE JUT INTO THE NEXT LOCATION.
;BRANCH IF MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP TO 1$.

SEQ 0063

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

04-AUG-81 22:59

120
T«
‘+

‘«

e
e
[P IV TV, IV, 1V, 1V, )

EXECUTE DATI. DATIO, DATO THRU MEMORY.

172366

“«

1ST PASS / 40000

THRU TEST /

40002

0056412
000205

000205

“«
“«

2ND PASS /
THRU TEST /

40002
40004

005412
000205

172366
000205

‘s«
- %

. %

ETC., ETC., ETC.

- %

.«

RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE).

-«

R3 = INSTRUCTION UNDER TEST (IUT).

“«
“«

R1 = DATA READ FROM MEMORY (WAS).
R2 = ADDRESS OF IUT/DATA.

“«

R4 = RTS RS (CODE 205).
RS - BLOCK BOUNDARY BIT MASK.

"*tt*tt*tti*ttt**t*tttttttitttitttttt*ttttttttt*tt*ttt!ttttttlt

”

011440

011440 004567 005710
011444 012703 005412
011450 012704 000205

011454 012700 172366
011460 004467 001314
005305
010322
010412
004542

012201
020001
001405
004767 005112
004767 006154

011512 000021

011514

Qt.ttttt.

HOUT MEMORY.
EXECUTES THE INSTRUCTION *NEG (R2)' THROUG
'NEG' INSTRUCTION TO RETURN
THE
AFTER
AN °RTS RS' (CODE 205) IS PLACED
EXECUTION CHECKOUT.
N
UCTIO
INSTR
FOR
CONTROL TO THE MAIN PROGRAM THIS
RELATION TO MEMORY:
IN
DUES
TEST
WHAT
OF
THIS IS AN EXAMPLE
CONTENTS OF MEMORY LOCATION
INSTRUCTION
MEMORY
INSTRUCTION EXECUTION
AFTER
THERE
PLACED
N
LOCATIO

- %

011474
011476
011500
011502
011506

SEG Jute

:'t.ttt..'tt'..Q't‘tt"""t'...'.fi.Itfit.'.t.tt".l'tti.

=TEST 20

011464
011466
011470
011472

23:00 PAGE 5.

EXECUTE DAT], DATIO, DATO THRU MEMORY.

011514 010322
011516 077514
011520 004767 001466

TST20:

JSR
DIPDO: MOV
MOV
18:
2%:

648:
65%:

MoV
JSR

DEC
MOV
MOV
JSR

MOV
CMP
BEQ
JSR
JSR

.WORD

MoV
S08
JSR

$SCOPE
RS,
#005412,R3
R4
#205

;GO TO SCOPE_ROUTINE.
:GET 'NEG (R2)*' INSTRUCTION (IUT).
;GET 'RTS RS5'

RS
R3,
R4,
RS,

;DO ALL
;PUT IUT INTO FIRST LOC OF BLOCK.
JPUT 'RTS RS' FOLLOWING IUT.
;GO EXECUTE THE IUT.

:SET UP S/B DATA AFTER EXECUTION.
#172566.R0
INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS.
Ré,
ADDRESSES =1
(R)+,
RO,
65%
PC,
PC.
21

R3,
RS,
PC,

(R2)+
(R2)
-(R2)

Rl
R1
SPRNT3
$ERROR
(R2)+
2%
MMUP

TEST.
:GET THE DATA FROM THE MEM ADR UNDER
READ.
DATA
THE
WITH
WORD
:COMPARE THE CHECK
DATA.
GOOD
IF
CALL
;BRANCH OVER ERROR
;SET UP VALUES FOR ERROR PRINTING.
;**v ERROR *** (GO TYPE A MESSAGE)
;ERROR TYPE (CODE.

;PUT THE JUT INTO THE NEXT LOCATION.
;BRANCH [F MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP TO 1$.

04~AUG-81 22:59

2568
2569
2570
2571
2572
2573
2574

2607
2608
2609
2610
2611
2612

SR AR 4

YRR

004567
012703
012704
012700
004467
005305
010322
010412
004542
012201
020001
001405
004767
004767
000021
0103¢’
077514
0047¢7

005624
142242
000205
142000
001230

001402

St0 0065

AFTER INSTRUCTION EXECUTJON

LOCATION

PLACED THERE

1ST PASS /
THRU TEST /

40000
40002

162242
000205

142000
000205

2ND PASS /
THRU TEST /

40002
40004

142242
000205

142000
000205

ETC., ETC., ETC.

RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE).
R1 = DATA READ FROM MEMORY (WAS).
R2 = ADDRESS OF IUT/DATA.

R3 = INSTRUCTION UNDER TEST (IUT).

R4 = RTS RS (CODE 205).
RS = BLOCK BOUNDARY BIT MASK.

;;tt‘ltttiitttt'itttitt*ttt*iifi*tkttitt!tilfiitttfi!fit'tltttttttttt
18T21:

DPDBL:
1$:

2%:

005026
006070

PAGE 53

BYTE) THRU MEMORY.
EXECUTE DATI, DATI, DATIO, DATOE (LOWHOUT
MEMORY.

EE B

R
e oD
)

(o SV IV AV IV P R VIV,
8 8]
gpnuununnuununnunn

2604
2605

2603

OO VW

2600
2601
2602

e e oD e D i e o i et D e D i e
D D o i e
D id i
D D dd e i D

2597
2598
2599

et e
e

2595
2596

;*
;*

[elelelelelelolelolelolelelelalololelels]

2593

9594

NN N

0588
2589

NN
N N N

TRTR IR IR TR TR
PR TR

2587

23:00

EXECUTES THE INSTRUCTION BICB (R2)+,-(R2)' THROUG
TO RETURN
AN 'RTS RS*® (CODE 205) IS PLACED AFTER THE BICB' INSTRUCTION T.
CHECKOU
ION
EXECUT
CTION
CONTROL TO THE MAIN PROGRAM FOR INSTRU
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY:
CONTENTS OF MEMORY LOCATION
INSTRUCTION
MEMORY

NN N

2576
2577
2578
2579
2580
2581
2582
2583
2584
2585

".t.t.tt.t'fit.t.'..'."'."t"'..t'.l".i..Q.'t."t.t.tt"..tt.t

;*TEST 21

2575

2590
2591
2592

121

(VMSAA

Q4-AUG-81

EXECUTE DATI, DAT], DATIO, DATOB (LOW BYTE) THRU MEMORY.

(VMSAA

0-2 MEGAWORD MEMOR' EXERCISER, 16K VER MACY11 30(1046)

64%:
658

$SCOPE

;GO TO SCOPE ROUTINE.

JSR

RS,

MOV
MOV

R4
4205,
#142000,R0

JGET 'RTS RS!
:SET UP S/B DATA AFTER EXECUTION.

RS
R3,
R&,
RS,

;DO ALL ADDRESSES -1
;PUT IUT INTO FIRST LOC OF BLOCK.
JPUT 'RTS R5' FOLLOWING [UT.
;GO EXECUTE THE IUT.

MOV

JSR

DEC
MOV
Mov
JSR

MOV
CMP
BEQ
JSR
JSR

.WORD

MOV
S08
JSR

#162242 ,R3
R4,

(R2-+,
RO,
65%
PC.
PC,
21

R3,
RS,
PC,

INITMM

(R2)+
(R2)
-(R2)

;GET BICB (R2)+,-(R2)* INSTRUCTION (1UT).
;INITIALIZE THE MEMORY ADDRESS POINTERS.

SPRNT3
$ERROR

:GET THE DATA FROM THE MEM ADR UNDER TEST.
;COMPARE THE CHECK WORD WITH THF DATA READ.
:BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING.
;%= ERROR *** (GO TYPE A MESSAGE)

(R2)+
2%
MMUP

;PUT THE IUT INTO THE NEXT LOCATION.
;BRANCH [F MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP T0 1%.

R
R1

;ERROR TYPE CODE.

23:00 PAGE 54
16K VER MACY11 30(1046) 04-AUG-81 DATOB
r MSAA 0-2 MEGAWORD MEMORY EXERCISER, 122
(HIGH BYTE) THRU MEMORY.
DATIO,
DATI,
DATI,
E
EXECUT
04~-AUG-81 22:59
( VMSAA P11
Peerer et 1212022022222 3222

2613

RS R A A AR AR AR AR

A LN

(HIGH BYTE) THRU “EMORY.
EXECUTE DATI. DATI, DATIO, DATOBTHROUG
:sTEST 22
MEMORY .
CTION °*BISB (R2)+,(R2)' 'BIS8' HOUT
*» EXECUTES THE INSTRU20S)
TION TO RE TURN
INSTRUC
IS PLACED AFTER THE
:+* AN °*RTS R5' (CODE
T.
CHECKOU
OM
:« CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTI

2614
265
2616
2617

“« THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY :
T
N
CONTENTS OF MEMORY LOCATIO
INSTRUCTION
MEMORY
b
]ION
EXECUT
CTION
INSTRU
AFTER
PLACED THERE
LOCATION
M

5613
6
2620
ggg;

- N

:+ 1ST PASS /7
;« THRU TEST /
;= 2ND PASS /
:* THRU TEST /

262%
gggé
2626
2627

- %

2628

000205

152212
000205

157212

000205

157212
000205

ETC., ETC.., ETC.

2629

152212

40000
40002
40002
40004

;%
:x RO = DATA WRITTEN ON TOP OF IUT .BY THE JUT (SHOULD BE).
:* R1 - DATA READ FROM MEMORY (WAS)

2630

2631
2632

2633

2634

:*
:*»

2635
2636

2637
2638

011610

2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653

011624
011630
011634
011636
071640
011642
011644
011646
011650
011652
011654
011660

2655

011666

2639 011610 004567 005540
2640 011614 012703 152212
2641 011620 012704 000205

012700
004467
005305
010322
010412
004542
005302
012201
02000
001405
004767
004767

2654 011664 000021

2656 011666 010322
2657 0116720 077515

157212
001144

004740
006002

2658 011672 004767 001314

R2 - ADDRESS OF IUT/DATA.
R3 = INSTRUCTION UNDER TEST (IUT).
R4 = RTS RS (CODE 205).
RS = BLOCK BOUNDARY BIT MASK. tt'tittttttttttttttttttt'ttt'tt

:.'**tttttttttttttttttttt*ttt*ttttk
15722:

JSR
DPDBH: MOV
Mov
MOV
JSR
DEC
1%:
MOV
MOV
2$:
JSR
DEC
MOV
cMP
BEQ
JSR
64%:
JSR
65%:

.WORD

MOV
soB

JSR

$SCOPE
RS,
#152212 ,R3
#205, R4

;GO TO SCOPE ROUTINE.
SGET 'BISB (R2)+,(R2)' INSTRUCTION (IUT).
:GET 'RTS RS

;ERROR TYPE C(ODE.

#157212.R0
INITMM
R4,
RS
(R2)+
R3,
(R2)
Ré,
-(R2)
RS.
R2
(R2)+, R1
R1
RO,
L
SPRNT3
-,
$ERROR
PC,
R3,
RS,

PC,

(R2)+
2%

MMUP

:SET UP S/B DATA AFTER EXECUTION.
;INITIALIZE THE MEMORY ADDRESS POINTERS.
:DO ALL ADDRESSES -1
:PUT IUT INTO FIRST LOC OF BLOCK.
:PUT 'RTS RS' FOLLOWING IUT.
:GO EXECUTE THE IUT.
:RESET R2 TO POINY TO IUT.
:GET THE DATA FROM THE MEM ADR UNDER TEST.
:COMPARE THE CHECK WORD WITH THE DATA READ.
DATA.
:BRANCH OVER ERROR CALL IF GOOD G.
;SET UP VALUES FOR ERROR PRINTIN
:*x* FRROR **» (GO TYPE A MESSAGE)
;PUT THE IUT INTO THE NEXT LOCATION.
:BRANCH IF MORE IN CURRENT BLOCK.

:FIND NEXT BLOCK AND LOOP TO 1§,

16K VER MACY11 30(1046) 04-AG-81 23:00 PAGE S5
0-2 MEGAWORD MEMORY EXERCISER, SECTIO
N &4:MOS TESTS
04-AUG-81 22:59
.SBTTL SECTION &4:MOS TESTS

SEQ 0067
i

-'-"tttt'tt"tt*fi.fitt't"tt.'il"fi'.'...t'fit't"..t‘.t.t!li'.t'

MARCHING 1°'S AND 0'S.
BANK S
STARTING AT THE BOTTOM ADDRESS AND ADDRESSING UPWARDS A BK
BANK THE
THE
OF
ADDRESS
TOP
THE
AT
G
STARTIN
WRITTEN WITH 000377.THEN
N
LOCATIO
THE
AND
177400
TO
SWAPPED
000377 IS READ,THE BYTES ARE
N
LOCATIO
EVERY
FOR
D
REPEATE
IS
HIS
WRITE.T
REREAD TO CONFIRM THE
THE
AT
G
STARTIN
REACHED.
IS
BOTTOM
THE
UNTIL
ADDRE SSED DOWNWARD
BOTTOM EACH LOCATION IS READ FOR 177400, THE BYTES ARE SWAPPED TO
Of THE
000377 AND REREAD TO CONFIRM THE WRITE UNTIL THE TOP ADDRESS
READ
IS
N
LOCATIO
EACH
BOTTOM
THE
AT
STARTING
AGAIN
BANK IS REACHED.
TO
REREAD
N
LOCATIO
THE
AND
177400
TO
SWAPPED
BYTES
THE
FOR 000377,
DOWNING
CONFIRM THE WRITE. LASTLY STARTING FROM THE TOP 2ND ADDRESS
THE
WARD EACH LOCATION IS READ,THE BYTES SWAPPED TO 000377 AND FOR
EVERY
ED
REPEAT
IS
THIS
WRITE.
THE
M
CONFIR
TO
REREAD
IS
ON
LOCATI
“«8K BANK UNDER TEST.
THIS TEST IS DESIGNED TO STRESS MOS MEMORIES.

R2=VIRTUAL ADDRESS
R4&=NOT USED

FYE

IR B

RO=DATA WRITTEN INTO MEMORY (SHOULD BE)
R1=DATA READ FROM MEMORY (WAS)

T AR Y T I

OE B

NN BN NN BN BN NN Y

S T YA W N

ER N

LATEST 23

R3=TIMES THROUGH COUNTER
RS=BLOCK BOUNDARY BIT MASK.

"tt

"*t*fit'itttfitt*'t'tittttttitttttk*ttttfittttttttttttitttttttt

332
S S 8EIIFRR -98NAgWNNN—h—' SR
ORI OO

VVAIVAWA

D ed
d
d
e
b
b cad
)
wd wmd mad
b wnd wud e

i VD e

) i

PORINUN)
= b b b b ah

) ol

—

NNNNY

DN —=O

ALPLRNLNLNINIAO
N

NNNNNNNNNN SNNNSNSNNN

felelelolelelolelelelelolelolololelolelelalelolololalelolelolel
b and b i ad b d
b b =
b ed D b i md ed =D —D

004567
004467
010567

010267
005003

ST23:

100%:

012700
010022
077502

014201
020001
001405
004767
004767
000010
000300
010012
011201
020001

001405
004767
004767
000010
000300
005703
001403
020327
001011

RS,

MoV
CLR
MOV
MOV
SOB

R2.TEMP
R3
#000377 RO
RO, (R2)+
R5,2$%

JSR
MOV

MOV

016705

MOV

64%:
65%:

66%:
67%:

$SCOPE

JSR

INITMM
R4,
RS, TEMP1

TEMP1,RS

-(R2) .R1

;GO TO SCOPE ROUTINE.

:INITIALIZE THE MEMORY ADDRESS POINTERS.
:STORE TEST WORD COUNTER
:SAVE BANK STARTING ADDRESS
;CLEAR PASS COUNTER
;SETUP TO WRITE PATTERN
:WRITE PATTERN
;END OF 8K?

RESTORE TEST WORD COUNTER FOR NEXT PASS
;GET DATA WRITEN
:COMPARE THE CHECK WORD WITH THE DATA READ.
:BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
:x*+ ERROR **x (GO TYPE A MESSAGE)

MP
BEQ
JSR
JSR

RO,
65%
PC,
PC.

SWAB
MOV
MOV

:SWAP BYTES OF DATA
&0
RO, (R2) ;WRITE SWAPPED WORD
:GET DATA WRITEN
(R2) .R1

.WORD

tmp
BEQ
JSR
JSR

.WORD

SWARB
TST
BEQ
cMP
BNE

RO,
67%
PC.
PC.
10

RO
R3
5%
R3,43
6%

SPRNT2
$ERROR

:ERROR TYPE CODE.

;COMPARE THE CHECK WORD WITH THE DATA READ.
:BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
:*** ERROR **x (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

:PUT DATA BACK TO ORINGINAL
:IF ON PASS 0 OR PASS 3
:WE ARE ADDRESSING DOWN
;1F ON PASS 1 OR 2 GO TO
:UPWARD

MEGAWORD MEMORY EXERCISER,

" VMSAA
G-2
" VMSAA P

2715
2716

27°7

2718

2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731

04-AUG-81 22:59

012014
012016
012020
012024
0120%6

012032
012034
012036
012042
012044
012046
012050

2732

—

sO8

RS.,3$

#6 ,R3

:DONE A PASS? ,]15f NOT THEN 3%
:IF YES INCREMENT PASS COUNTER
;ARE WE DONE ALL PASSES FOR THIS 8k”

TEMP1,.RS

RESTORE TEST COUNTER FOR NEXT PASS.

000002

042702

INC

BEQ

MOV

6%:

68%:
69%:

167676

8%:

SWAB
B8R

tMP
BEQ
JSR
JSR

RO,
69%
PC,
PC,

.WORD

RS
8%
(R2) ,R1

INC

BNE
MOV

38
TEMP ,R2

MOV

:ELSE SET UP NEW READ WORD
:GO TO START OF ADDRESS uUP

RO
7%

#2,R2

DEC
BEQ
MOV

;IF YES BRANCH

ADD

SWAB
(Mp

167656

JUPDATE TO NEXT ADDRESS

SPRNT2
$ERROR

:COMPARE THE CHECK WORD WITH THE DATA READ.
:BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
;xx» ERROR w»*x (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

:RESTORE TEST WORD COUNTER FOR NEXT PASS.

RO
R3,42

:SET UP NEW READ WORD
;ADDRESSING UP?

: INCREMENT

PASS COUNTER

:1F NO GO TO DOWN SEQUENCE
:1F YES RESET ADDRESS TO START

#40000,R2

001000

8IC

#1000,R2

001062

JSR

PC ,MMUP

;DONE A PASS?
:1F YES BRANCH
;GET DATA WRITTEN

TEMP1.RS

ADD

040000

PAGE 56

5%:

7%:

000732
016705
005203
000300
020327
001313
016702
000755
062702

23:00

123

167740

004544
005602

MARCHING 1°S AND O°S.

000004

000002

04-AUG-81

30(1046)

;G0 TO UP SEQUENCE

:TESTING ENDS WITH R2 = BOTTOM OF BANK
:ADD 8K FOR TEST START OF NEXT BANK

:CLEAR POSSIBLE FIRST STARTING

:ADDRESS OF 1000 WHEN VECTOR AREA IS
:PROTECTED.

:UPDATE TO NEW BANK IF EXISTS
;RETURN TO 100%

"t*tltt*t*‘k*ttttt'ttttttttttfi***ttttt*fiittttififlt*tttttttttttttt

WRITE CHECKERBOARD STARTING WITH '125252' DATA.
;*TEST 24
MEMORY,STALL
ix THESE TESTS WRITE A CHECKERBOARD T'7iGuciouT DATA
DID NOT

“* FOR 2 SECONDS THEN CHECK PATTERN TO VERIFY
;* DETERJORATE BETWEEN REFRESH CYCLES.
. &

i*
i*
i

i
i
Ownu“n:mbl~¥!
OO
OSOO

i el
il el
——d vd i

b =D
i cond sl ol mud
o

) ol —d

2767
2768
2769
2770

016705
000300
000404
062702
005305
001411
011201
020001
007405
004767
004767
000010

004767

LS ST N1 N1, ST, U1, N 1,0 10 18]

2736

2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
275%
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765

(elelelelelolelalelal

2735

b
d i
D
D

2733

07753
005203
022703
001433

16K VER MACY11

004567
004467
012700
010022
005100
077503
004767
005003
012704

005220
000640
125252

RO=DATA WRITTEN INTO MEMORY (SHOULD BE)
R1=DATA READ FROM MEMORY (WAS)
R2=VIRTUAL ADDRESS
R3=SMALL LOOP COUNTER FOR STALL
R4=NUMBER OF TIMES SMALL LOOP DONE
R5=8BLOCK BOUNDARY BIT MASK.

"ttt*itttttt*ti*tttt'*tt*i'iit*tifittiifltt*ttttttt*itttttttttt'tt
T ST24:

RS,

MOV
MOV
(oM

#125252 RO
L(R2)+
RO
RO

JSR

1%:

$SCOPE

JSR

S0R

001034

JSR

000046

MOV

(LR

R4,

RS,

INITMM
1%

PC.

MMUP

#66,

;GO TO SCOPE ROUTINE.

:INITIALIZE THE MEMORY ADDRESS POINTERS.
;SETUP DATA PATTERN
;WRITE A WORD
; COMPLEMENT DATA

;BRANCH IF MORE [N CURRENT BLOCK

JFIND NEXT BLOCK AND LOOP TO 1$.
:SET UP COUNTER FOR STALL
:DO LOOP 46 TIMES OR 2 SEC. TOTAL.

5¢Q 0068

wad
b
—

b —d

~
NN
R§

D
e
e
o

PONINNOPON)

[olelelalelels]

23:00 PAGE 57
30(1046) 04-AUG-81
p‘?‘z MEGAWORD MEMORY EXERCISER, ISK VER MACY11 CHECK
'125252' DATA.
WITH
NG
ERBOARD STARTI
WwRITE
04~AUG-81 22:59

012230

2$:

005302

001376
005304

001374
004467
012700
012201
020001
001405
004767
004767
000006
005100
077512
004767

000600
3%:

004406
0056444

64%:

65%:

000756

DEC
BNE
DEC
BNE
JSR
mMov

R3
2%

MOV
P
BEC
JSR
JSR
.WORD

(R2)+,

PC,
6

$ERROR

;GET THE DATA FROM MEMORY UNDER TEST.
:COMPARE THE (HECK WORD WITH THE DATA READ.
*BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING.
;*xx ERROR «*x (GO TYPE A MESSAGE)

;BRANCH IF MORE IN CURRENT BLOCK

com
s08
JSR

2%
INITMM
R4,
#125252,R0

RO,
55%
PC,

RS,

R1
SPRNTZ2

;INITIALIZE THE MEMORY ADDRESS POINTERS.
JINIT DATA FOR CHECKING

*ERROR TYPE CODE.

;FIND NEXT BLOCK AND LOOP TO 1%.
MMUP
PC.
tttttltfikittltitttt‘t*ttt't.t"
*tt*&tl
tt'tt*t
ifitfit
ttlttttt'*tttf
WRITE CHECKERBOARD STARTING WITH 052525 DATA
tTEST 25

NN NN LN N N AN AN N (N
WWAANRNIN)
= — — 2 2
SOOI
NOO

AV LT WY, STNT, N 18T V1,8 1, V]

—

D el e ard

d e

[elelolalololalelelelal

012254
012256
012262

012704
005303
001376
005304

001374
004467
012700

012201
020001
001405
004767
004767
000006

005100
077512
004767

—

NS
S

012240
012244
012250
012252

004567
004467
012700
010022
005100
077503
004767
005003

012234

[ole]e]
wnoo
oW

. ttt*ttt'ttitti*tttttttttttttt*ittttktt!ttikfittttttttttttttt't"

Ts12s:
1%:

000730
000046

000474
052525

004302
005340

2%:

3%:

64%:

65%:
000652

JSR
JSR
MOV
MOV

COM
so8
JSR
CLR
MOV
DEC
BNE
DEC
BNE

JSR
MoV
MoV

MpP
BEQ

JSR
JSR
-WORD
comM
SOB
JSR

$SCOPE
R5,
INITMM
R4,
#052525.R0
(R2)+
RO,
RO

RS,

PC,
R3
#46,

R3
2%

MMUP

;GO TO SCOPE ROUTINE.

SINITIALIZE THE MEMORY ADDRESS POINTERS.
*SETUP DATA PATTERN
SWRITE A WORD

;BRANCH IF MORE IN CURRENT BLOCK
;FIND NEXT BLOCK AND LOOP TO 18$.
;SET COUNTER FOR LOOP
;DO LOOP 46 TIMES OR 2 SEC. TOTAL

2%
INITMM
R4,
#052525,R0

(R)+,
RO,
65%

R
R1

PC,

$ERROR

PC,
6

RS,
PC.

SPRNT?

3%
MMUP

;INITIALIZE THE MEMORY ADDRESS POINTERS.

YINIT PATTERN FOR CHECKING

;GET THE DATA FROM MEMORY UNDER TEST.
:COMPARE THE CHECK WORD WITH THE DATA READ.
*BRANCH OVER ERROR CALL IF GOOD DAT.
:SET UP VALUES FOR ERROR PRINTING.

“xwxx ERROR *** (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

;BRANCH [F MORE IN CURRENT BLOCK
;FIND NEXT BLOCK AND LOOP TO 18.

56Q 0069

oNNOINSO SO0

SQtmsy
—

b
b
e
D
ed
d
e
b ad
d e

2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
284S

—

2823
2826
2825

:
.SBTTL DONE

2818
2819
2820
2821
2822

olelelelelololelels
lolele]

23:00 PAGE 58
( VMSAA
0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 ALL
TESTS.
REPEAT
AND
M
PROGRA
RELOCATE
ONE:
04-AUG=-81 22:59
VMSAA, P11

012436

012447
012446
012450
012454
012454
012460

004567
005067
105067

005010

105767

166626

032777
001037
001403
005767
001026
026767
001003
005767
001417
032767
001404

166610
166516
000200

:
DONE

1ST32:
166546

TSTB

BEQ

TSY
BNE
mp
BNE

166604

165436

165440

TST

166566

000001

JSR
(LR
(LRB
BIT
BNE

BEQ
BI7
BEQ

166110

004767
000167

002140
174226

JSR
JMP

004767
005767
001402
004767

002444
165374

JSR
TST
BEQ
JSR

004567
001171

007114

002632

5%:

6%:

JSR
.WORD

RELOCATE PROGRAM AND REPEAT ALL TESTS.
RS,
STIMES
$TSTNM
#SW07,
$EOP
SENV
19
$PASS

$SCOPE
aSwR

6%
42,46
2%
$PASS
6%
#3]70,PRGMAP
4%

PC,

START1

RELTOP

RELO
RESLDR

RS,

$PRINT

;GO TO SCOPE ROUTINE.

*RESET ITERATION COUNTER FOR RESTARTING TEST.
*RESET TEST NUMBER.

;CHECK FOR INHIBIT RELOCATION SWITCH.
;SKIPRELOCATION IF SWITCH SET.
;CHECK FOR APTT
‘BRANCH IF NOT APT11
;CHECK FOR 1ST PASS

:IF APT,DO NOT RELOCATE AFTER FIRST PASS

: CHECK FOR ACT11

*BRANCH IF NOT ACTN1
;CHECK FOR FIRST PASS
;IF ACT,DO NCT RELOCATE ON FIRST PASS

: CHECK 1F PROGRAM IN FIRST 8K

;1F NOT IN FIRST 8K,RELOC TOP TO BOTTOM

:MUST BE XXDP OR STANDAL ONE

;RELOCATE PROGRAM TO TOP OF MEMORY.

;LOOP BACK AND RUN ALL TESTS AGAIN.

;RELOCATE PROGRAM BA(K TO FIRST 8K.
;TEST FOR XXDP

“IF NOT RUNNING UNDER MON. DONT
SRESTORE LOADERS.

;GO PRINT OUT THE FOLLOWING MESSAGE.

*ADDRESS OF MESSAGE TO BE TYPED

SEQ 0070

0-2 MEGAWORD MEMORY EXERCISER,
04-AUG-81 22:59

P11

16K

VER MACY11 30(1046)

04-AUG-81

23:00

PAGE 59

ta 0071

RELOCATE PROGRAM AND REPEAT ALL TESTS.

:
DONE

.';'.'..t.'t.'t".'t.""..".v Y322 2232233232222 R R

.SBTTL

END OF PASS ROUTINE

:*INCREMENT THE PASS NUMBER ($PASS)
S«TYPE “END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)
;*1F THERES A MONITOR GO TO 1T
;«]F THERE ISN'T JUMP TO STARTI

$EOP:

012462
012462

166470
166506

&
O

10€746

“«

O oo

010026
007026

000167
005015
040520

174044

000
377

$GET42:

001214
$DOAGN:

020104
021440

377

000

RS,
$ENDMG

$PRINT

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE 10 BE TYPED

MFPS
CLRB

-(SP)
1(SP)

:PUT THE PROCESSOR STATUS ON THE
;HIGH BYTE CLEARED TO INSURE KERNEL MODE

JSR
JSR
.WORD

PC.

$TYPDS

42,
$DOAGN

RS,
$ENULL

$ENDMG:

$PRINT

PC,(RO)

NOP
MP
BEQ

000046

047105
051523

;s YES
;;RESTORE COUNTER

::SAVE $PASS FOR TYPEOUT

MOV
BEQ
RESET
$ENDAD: JSR

002562

$DOAGN
%PC)+.a(PC)*

;;LOOP?

$PASS ,-(SP)

NOP
NOP

000042

::;1ERO THE NUMBER QOf [TERATIONS
:: INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE S$TYPDS ROUTINE
WIHTOUT USING A ‘‘TRAP'' INSTRUCTION AS CALLED FOR BY #**SYSMA(=*«.
STACK

000001

165266

012633

. WORD
SEOPCT

.WORD

166452

NOORSO

105066

MOV

016746

$TIMES
$PASS
#100000, $PASS
gPC)*

JSR

SHNONESN0O

VAW
NON)
=2 = = b

D ViV
AV

INC
BIC
DEC
(T:
.WORD
$EOP
BGT

007052

016700
001416
000005
004710
000240
000240
000240
023737
001405
105737
001002
004767

o Yo XV IV, 1V,

b el wmad
b ek vl el

166500

$ENDCT:

004767
004567

RV, SN

PN
NN
oL

[ololeolololalel

—l
b

OO
OOOOO
COCOOQOOO0O0C

[LS1 1AV 1, S 1,N1,8],8]

100000

NOP
CLR

:ON PSW RETURN.,
:GO TO THE SUBROUTINE

;GO PRINT OUT THE FOLLOWING ME SSAGE.
:ADDRESS OF MESSAGE TG BE TYPED
::GET MONITOR ADDRESS
:;BRANCH 1F NO MONITOR
::CLEAR THE WORLD
::G0 TO MONITOR
: :SAVE ROOM

;:FOR
;. ACTI

:;ARE WE UNDER A(CT11 OR XXDP
::1F ACT11 THEN RESTART
::CHECK FOR APTI
::IF APT11 THEN RESTART
;:IF XXDP FIRST SAVE MONITOR

TSTB

DNL2, N6
$DOAGN
SHSENV
$DOAGN
SAVLDR
PC.

JMP

% %x
2 JRETURNxx
START1
<15><12>/END PASS #/

BNE
JSR

ASCIZ

;sNULL CHARACTER STRING
ROUTINE SECTION.
MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

-1,-1.0
$ENULL: .BYTE
.SBTTL SUBROUTINE AND TRAP
LSBTTL
R AR AR

“*

:»

R A RARARNKREP AR

A A A RR AR

R IR A AR R R AR

SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION.
THE PROGRAM IS POINTED TO BY PARS O AND 1.

NL S

077406
077406

17
17

077406

000020
000001

CLR
CLR

a#K IPDRS
a#K IPDR6

a#K ]PDR4

:SET KIPDR? = RW UP 200 BLOCKS

#200-1+400+UP+RW, a#KIPDR7

:MAP PARO INTO BANKO
;MAP PART INTO BANK 1
:MAP PARZ2 INTO BANKO

CLR

MOV
TST

JMAP PAR7 INTO 1/0 BANK
#177600, a#KIPAR7
:1F 22 BIT ADR NOT AVAILABLE
MMAVA

8
»

CLR
(LR
CLR
CLR

8PL

BIS
mMov

1%:

Rw UP 200 BLO.KS
;SET KIPDRO
RW UP 200 BLOCKS
;SET KIPDRI
:SET KIPDR2 - RW UP 200 BLOCKS
:SET KIPDR3 = RW UP 200 BLOCKS

a#K IPARO
#200, a#KIPAR1
K IPAR2

CLR
MOV

172356
~

165556

#200-1+400+UP+RW, a#K I PDRO
#200-1+400+UP+RW, a¥KIPCR1
#200-1+400+UP+RW, a#K [PDR2
#200-1+400+UP+RW, 3#KIPDR3

MOV

172342

rnor

177600

MOV
MoV
MOV
MOV

CLR

172350

172352
172354

't‘i.t

't't".tt..."'ltltfitt"""ifit"l.".t..t'ltttl'lt'tll!ttt
MMINIT:

wviun

100003
052737
012737
000207

THE DEVICE ADDRESS AREA S POINTED TO BY PAR 7.

PARS &, S, AND 6 ARE UNUSED.

172316

005037

SEQ 0072

THE MEMORY UNDER TEST IS POINTED TO BY PARS 2 AND 3.

172302

——

oD oD ek

760
762
770
776

077406

172310
172312
172314
077406
172340
000200
172344
172346

742..005037
7646 012737
754 005767

PPN

3¢

d
et
e o
D e
e

732

NINVNINININ NN

[elelelelolololelalololalole]

29C2

Sevang

1 23:00 PAGE 60
vMOSAA
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-8
SUBROUTINES.
SING
ADDRES
AND
MEMORY MANAGEMENT
04~-AUG-81 22:59
VMSAA Pl

RTS

a#K IPAR3
a#K 1PARSG
a#K IPARS
K IPARG

THEN BRANC(CH

: ELSE ENABLE 22 BIT ADDRESSING
;ENABLE MEMORY MANAGEMENT

#BITL,aNSRS
#1,a3#SR0O

SRETURN

l!it

"iIttt'tifiit*i"*tttit"i"t*fitk*ttttfikt.tttttktltQtttttt'4t

“*

MEMORY ADDRESS POINTER INITIALIZATION ROUTINES.

"".!tittttfit'ttflt.tttittti*i**ti"ttt*tt'tt*tl't!titt'tttttttlttt

AV}

rargmry

Por@urQuur
e inr Qur

013000
013000
013002
013004
013012
013014
013020

010046
010146
012767
005002

005767
001410
012700
016701
005021

077002
005037
012767
066767
012601
012600
004767
004767
000007
000000

INITMM:

100000

MOV
MOV

166766

CLR

165516

013204

165456

000124
004574

1%:

166704
166676

2%:

:FATAL

;;PUSH RO ON STACK
;;PUSH R1 ON STACK

;INITIALIZE ADDRESS

#BIT1S,PLUST

TST

MOV
MOV
(LR
SOB

#20,R0O

CLR
MOV

ADD
MOV
MOV

T
BITPR

(R1)+
RO,1$

a#K IPAR?

#IN]ITEX ,MMORE
RELOCF ,MMORE

(SP)+,R1
(SP)+ RO

JSR
JSR

PC ,MMUP
$ERROR
PC,

.WORD

ERROR

HALT

INITDN:

RO,-(SP)
R1,~-(SP)
MMAVA

BEQ

000020
166762
172344

MOV

::POP STACK INTO R1

;;POP STACK INTO RO

;xx% FRROR =*+ (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

;FATAL ERROR'.!:

NO MEM IND!CATED IN MEMMAP ABOVE 8k

= =2

por
MONIN)

DRB
(¥, ]

NISS IR

o d wd
b o
d
b o
b
D
d
D e
D o
b
D

NN N N NN N O N N N A AN
NN N NN
— e e b d
e d e d ed il e D o d ek (O

B
et
A

010145
005002

WNANINNE

[ololeololNolalelololalelololelolothlelolololols]

-81 23:00 PAGE 61
p1?-2 ME GAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG SUBROUTINES.
MEMORY MANAGEMENT AND ADDRESSING
04~AUG-81 22:59
::PUSH RO ON STA(K
RO.-(SP)
MOV
01004¢
005767
001414
012700
016701
005021
077002
012767
005037
000403
012767
012767
066767
012601
012600
004767
004767
000007
000000
010467
000204

000020
166672

000001
172344

1666464

000020
013204

166544
166576
166570

165350

R1,-(SP)
R2

8EQ
MOV

2%
#20 RO
R1
.BITPT
(R1)+
RO,1$
#8170,PLUST

MOV

CLR
SOB

AR 35

MOV
CLR

2%:
1%:

a#K IPAR2
33
#8174 ,BITPT
#INITEX ,MMORE

MOV
MOV

(SP)+,R1
(SP)+,R0O

JSR

0044¢€6

;FATAL ERROR

.WORD

HALT

INITEX: g?g

166544

MMAVA

B8R
MOV
(01"
ADD

000362

:;PUSH R1 ON STA(CK

MOV
CLR
TST

165426

SEQ 0073

RELOCF ,MMORE
PC .MMDOWN

PC,

$ERROR

;;POP STATZK INTO R1
:;POP STACK INTO RO

:*** ERROR *+» (GO TYPE A MESSAGE)
:FRROR TYPE (ODE.

7
EZ,MMORE

:FATAL ERROR!.!

NO MEM INDICATED IN MEMMAP ABOVE 8k.
tt

""ltttttttttttttt*it*tttt*ttt.*t*t!i*ttttttttttt'tttttt'tt'tttt

:*
S«
:+

COMMON UPWARDS ADDRESSING ROUTINE
FINDS NEXT EXISTING BK BANK AND UPDATES POINTERS.
GOES TO ADDRESS IN 'MMORE’'' IF MORE BANKS,

DOES STRAIGHT EXIT WHEN ALL MEMCRY HAS BEEN DONE.

:;titttttttttttti*tttt*ttttttt!titt’ 2322222832333 23 82222300 adsllal

3220
3224

»oOo

nno

e md d
d
AN AN

O0O000O0O0O000

ele)

——

013212

3236

D v

3240
3242
3244
3246

3260
R

NN N
wg
ROINE
b
N,V

ot ek e

b e mah md
W NN W

OO0

3256

3306

012705
106746

105066

004767
005767
001475
010046
010146
010346
010446
012702
005767
001003

062737
016701
012700
006367
006121
077002
103005

MMUP:

020000

“»

000001

TST

ADD

#400,34K1PAR2

ASL

PLUST

BEQ

MOV
MOV
MOV
MOV

MOV

040000
166522

BNE
100%:

2%:

$CKSWR

PC,
MMAVA
7%
RO,=~(SP)
R1,-(5P)
R3,-(SP)
R4 ,~(SP)
#40000,R2
PLUST

JSR
TST

1%:

;SET UP 8K TEST COUNTER

CALLED FOR BY *%SYSMA(w«.
WIHTOUT USING A ‘‘TRAP"' INSTRUCTION AS PROCES
SOR STATUS ON THE STACK
THE
;PUT
-(SP)
MFPS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB

165302

172344

#20000,R5

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUT INE

005200

000400
166522
000020
166476

MOV

MOV
MOV

ROL

S0B

BCC

1008

BITPT.R1
#20,RO

(R1)+

RO,2%

101%

;ON PSW RETURN.

;GO TO THE SUBROUTINE
:CHECK FOR MEMORY MANAGEMENT

;IF MMAVA = 0 ,BRANCH TO NON KT MODE
;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;;PUSH R3 ON STACK,
::PUSH R4 ON STACK

:MMU AVAIL. SET UP VA

0,PAR?

JCHECK IF FIRST TIME ENTRY

:DO NOT ADD 8K TO PAR?
;UPON FIRST ENTRY

;ADD 8K TO PARZ

;ROTATE TOTAL TABLE TO INSURE
STESTING IS DONE WHEN CARRY BIT IS SET
;ROTATION OF ONE BIT

NONOOSNO

000200

2346
2346

~N N

172344

oANO

§uuu FEERELLEY WU N N AN N
ANAN NN

000020

onNo
HsOO0

166344

100000

166274

5%:

7%:
166104

D
i
i

d mh cd

LY
&~

166226

8%:

9%:

166200

i o

013550
013554

005767
001402
004767
000207

167622

002106

(SP)+,R3

TST

MMAVA

BIT

#BIT15,B1TPT+36

BIT

431715 ,BITPT

BNE
BR

BEQ

MoV
BR
ASL

118:

I PAR3
,@#KR2
MK IPA

(SP) + R4

;:POP STACK INTO R&

(SP)+,R1
(SP)+,RC

;;POP STACK INTO R1
;;POP STACK INTO RO

6%
9%

#10000,R5
9%
PLUS1

#B1T3.BITPT

BEQ
ADD

BIT
BEQ
ADD

SuB

;;POP STACK INTO R3

BIT

BEQ

;:POP STACK INTO R3
;;POP STACK INTO R1
..POP STACK INTO RO
;DONE ,READY TO EXIT

(R3)+,(R4)+

BITPT

BEQ

10%:

R3
.BITPT

ROL

B8CS
BIT
BNE
ADD
BR

TST

166234

166214

MoV

MoV
TST

166240

016716
000207

1PAR3
34K0,
#20

BPL

166344
166254

000400

ADD

MoV

010000
166274

162705

49
RO,3%
18

MOV

040000

001402

BNE
S08
BR

4%:

6$:

004000
000001

MOV

R4
. TSTMAP
#20,R0O

MOV
MOV

3s:

010000

00001G

(SP)+,R3
{SP)+,R1
(SP)+,RO
12%

MOV
MoV

100000

166246

MOV
MoV
MOV
BR

BIT

165140

d —

[elelalelololelolelelolololel

1018:

1664666
166456

X
o
N)—
—

D wd
b
ad
d
e
D
b e
e
mh e
el o

AN W AN AN N e AN AN N N

el wd
b cd
o
—
e

012604
012603

Wi
I
NN

- —

NN NN N N U

PAGE 62
(-¢ MEGAWORD MEMORY EXERCISER, 16K VER MA(Y'1 30(1046) 04-AUG-81 23:00
TINES.
MEMORY MANAGEMENT AND ADDRESSING SUBROU
PN
064~-AUG~81 22:59
;:POP STACK INTO R4
(SP)+ R4
MOV

12%
BITPT,TSTMAP
8%
#40000,R2
73
9%

#10000,R5
FLG30K

9s
#4000,R5
#81T70,.BITPT
108
FSTADR,R2

FSTADR
108

#400,R5

;FSTADR = STARTING ADDRESS
0 OR 1000 IF VECTOR AREA [S
;
H

PROTECTED.

:ADJUST ADDR COUNTER TO PROTECT 0-1000

MOV

MMORE, (SP)

BEQ

13%

:BR IF NONE.

;STRAIGHT RETURN.

RTS

:+ BEFORE FINAL EXIT, CHECK FOR ANY NON-TRAP PARITY ERRORS.
:CHECK FOR ANY PARITY REGISTERS PRESENT.
MPRX
TST
i2s:
13%:

JSR

RTS

PC,CKPMER

:CHECK FOR PARITY MEMORY ERRORS.

SEU 0074

0-2 MEGAWORD MEMORY EXERZISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 63

04~AUG-81 22:59

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

SEQ 0075
.tt'

;"..It't.tfi'.'t"ll"""'.t"t'l.'.".t....l.“.!Q.Q'Qltt.t

s+
=
-«

“»

MEMORY DOWNWARDS ADDRESSING SUBROUTINE.
FINDS NEXT LOWER 8K BANK AND UPDATES POINTERS.
GOES TO ADDRESS IN ‘MMORE’' IF MORE BANKS,

DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE.

::tttlttttfil'!t'.fittiltt"t't*.tlQl..it"tl'fi.tfi.'"t‘ttt't"'Qt'

013556 012705 020000

MMDCOWN: MOV

013562 106746
013564 105066 000001

MFPS
CLRB

013570
013574
013600
013602
013604
013606
013610
013612
013620
013626
013630
013634
013640

Pt
uad -G

b o

00N
NNMNNB—‘
VIS W=
OO0 0O NOWVNMEB WO CEST

N NN AN U U put
N Pttt
LN U N Sut
N PGt
U N Put
AN Yu-Pu-Suld
AN NN PlNN
N N
S P Pud-puiy

013642

013644
013646
013650
013652
013654
013656
013660
013664
013670

013674
013700

013704
013706
013710
013712
013714
013722
013730
013734
013736
013740
013742
013744
013750
013752
013760
013762
013764

004767
005767
001502
010046
010146
010346
010446
162737
01,700
062700
012703
006267
006040
077302

000600 172344 18%:
166170
000040
000020
)
166140
¢$:

034041
001002
077303
000737
013737
062737
012702
012604
012603
012601
012600
005767
100005
032767
001005
000442
032767

013772 001436

000040
000020

1008:

3%:

172344 172346 4%:
100000

000200 172346

164566
100000 165772

100000 165722 5%:

SSET UP 8K TEST COUNTER

-(SP)
1(SP)

;PUT THE PROCESSOR STATUS ON THE
;SLGSSBY;ETfikEARED TO INSURE KERNEL MODE

R3,2%

;CONTINUE TESTING UNTIL CARRY BIT SET
;:POP STACK INTO R¢
;;POP STACK INTO R3
;2POP STACK INTO R1
;:POP STACK INTO RO
;TESTING DONE,READY TO EXIT
;THEN WE HAVE TESTED LAST BANK
;IF NO UNDERFLOW SET UP TO
;SEE IF BANK SHOULD BE TESTED

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUTINE
WIHTOUT USING A ‘‘TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMA(+».
STACK

004636
164736

103005
012604
012603
012601
012600
000517
016700 166130
062700 000040
016701 166114
062701
012703

-«
‘s«

#20000,R5

JSR
TST
BEQ
MOV
MoV
MOV
MOV
SuB
MOV
ADD
MOV
ASR
ROR

$CKSWR ;GO TO THE SUBROUTINE
PC,
;CHECK FOR MEMORY MANAGEMENT
MMAVA
;IF MMAVA = 0 THEN BR TO NON KT MODE
7%
;;PUSH RO ON STACK
RO, -(SP)
;:PUSH R1 ON STACK
)
R1,-(SP
;;PUSH R3 ON STACK
P)
R3,-(S
;:PUSH R4 ON STACK
R4 ,-(SP)
#400,3#K1PAR2 ;DOWN DATE TO NEXT 8K BANK
.BITPT RO
;SET UP TO MOVE POINTER
#40,RO
;ONE POSITION THRU 20 WORD TABLE
#20,R3
;GET INITIAL VALUE OF BIT
PLUST
;MOVE THE POINTER
-(ROQ)

ADD
MoV

#40,R1
#20,R3

S08

8CC
MOV
MOV
MOV
MOV
BR
MOV
ADD
MOV

81T
BNE
s08
BR
MoV
ADD
MoV
MOV
MOV
MOV
MOV
TST
BPL
BIT
BNE
BR
BIT

BEQ

1008
(SP)+,R4
(SP) +,R3
(SP)+,R1
(SP)+,RO
118
.BITPT RO
#4” RO
.TSTMAP,R1

;CHECK IF BANK IS UNDER TEST
-(R0O),~(R1)
;IF YES GO SET UP PARS
43
;IF NO CHECK AlLL POSSIBLES
R3,3$
- JF NOT GO _CHECK NEXT LOWER BK
1$
PAR2 AND PAR3 POINT TO SAME
MK IPAR2 ,a#KIPARS;MAKE KIPAR3
UPPER 4K
#200,a#KIPAR3 ;MAKE
;SET UP FIRST ADDRESS + 2
#100000,R2
;:POP STACK INTO Ré
(SP)+,R4
;;POP STACK INTO R3
(SP)+,R3
;;POP STACK INTO R1
(SP)+,R1
;:POP STACK_INTO RO
(SP)+,RO
;CHECK FOR 22 BIT ADDRcSSING
MMAVA
;IF NO,CHECK 18 BIT MODE
5%
BIT SEG.?
#BIT15,BI1TPT+36 ;TESTING HIGHEST 22 SEGMEN
T
;IF YES,DO ONLY 4K
6%
;1F NO,DO 8K SEGMENT
9%
;TESTING HIGHESTT 18 BIT SEGMENT
#BIT15,BITPT
9%

;1F NO ,DO 8K SEGMENT

(VMSAA

O -2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

L VMSAA P11

6$:

3126 013774 012702 060000
3127 014000 012705 010000
3128 014004 000431
3129 014006 006267 165702

3130 014012 103441
3131 014014 036767 165674 65532

7%:

001003

3137
3138
3139
3140
3141
3142

016042
016046
014052
014056
014060
014064

162702 040000
000766
032767 000010 165654 8%:
001413
162702 020000
012705 010000
005767 165716
001404
062702 010000
062705 004000

3145
3146
3147
3148
3149

014100
014104
014106
014112

005767 165656
001402
162705 000400
016716 165636

3143 014070 032767 000001
3144 014076 001405

g}g? 014116 000207

23:00 PAGE 64

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

04-AUG-81 22:59

3132 014022
3133 014026
3134 014030
3135 014032
3136 014040

04-AUG-81

165616

9%:

10%:

11%:

MOV
MOV
B8R

#60000,R2
#10000,RS
9%

BNE

ASR

8CS
8IT

BITPT

11%
BITPT,TSTMAP

suB
BR
BIT

suB
MoV
TST
BEQ
ADD
ADD

#40000,R2
’$
#3173,B1TPT
9%
#20000,R2
#10000,R5
FLG3CK
9%
#10000,R?2
#4000,R5

TST
BEQ
SuB
MoV

FSTADR
108
#400,R5
MMORE , (SP)

BEQ

BIT
BEQ

RTS

A#B1TO,BITPT
108

;DO ONLY 4K SEGMENT
JSET UFP 4K WORD CCUNTER
;JGET OVER NON KT ROUTINE

JPOINT TO NEXT LOWEST BANK

DONE TESTING
;1F CARRY FOR LSB THEN
TEST?
UNDER
BANK
;1S THIS

;CHECK FIRST ADDRESS = 0 OR 1000
;PROTECT VECTOR AREA 0-1000 FROM
;BEING TESTED IF FSTADR =1000
;SETUP RETURN FOR MORE TESTING
sRETURN

SEQ 0076

1 23:00 PAGE 65
P1?-2 ME GAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-8
CASE NOISE TESTS.
WORSE
AND
S
SUBROUTINES FOR ADDRES
04~AUG-81 22:59

_SBTTL

SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS.

PHYADR:

TST
BEQ
MOV

SEQ 0077
t

"'t'.ttt'.t.ttlt..'!tti"t't...tI......it..'tfl.'.'t.t'.t'ttt'.t

IT IN RO (BOTTOM 16 BITS).
S AND PUT !it't.
AL ADDRES
PHYSIC
ATE"'it.I
CALCUL
TO
TINE
SUBROU
‘*
tttttt
"t.t't
ttt.'t
tt'tt'
tl"t"t
"t.ttttttttttittti

1%:

2%:

172340

FROEXRS
A
LSS
SO0

017777
000014

3 o

G- Qir Ghurd

nd wmd
i

P o o o

iey Qi G

Gouar Qnar Quur G
GGy Qo Gy e P

o Guar P

3T 3 38 aF aF ¥ aR O F o F o P o ol o
W WN

Per nar Qe G Gner S

D—
bbb
eb e

[ele]elelelNolololalolololelolalalelolalelalolalels]

164412

000006

060300

3%:

160000

012605
012604
012603
012601
000207

MOV
MOV
MOV
MoV
BIC
MOV

ASR

SOB
MOV
ADD
MOV
MOV

ASL

SO8
MOV
8IC
ADD

4%:

RTS

MMAVA
A

:CHECK FOR MEM MGMT AVAILABLE
;BRANCH IF NO MEM MGMT

R3,-(SP)
R4 ,~-(SP)
R5,.-(SP)
RO,RS

:2PUSH R3 ON STACK
:;PUSKH R4 ON STACK
:2PUSH RS ON STACK
:SAVE FOR PHYSICAL ADDR. ADDITION

:;PUSH R1 ON STACK

R1,-(SP)

:CLEAR VIRTUAL ADDR BJTS

017777,R0

#12..R1

:SET UP ROTATE COUNTER

#K17ARU RS

:STORE START QOF PARS

RO
R 78

RO,R4
(R4) ,R3

:TO SHIFT PAR POINTER
:INTO BITS 0-3

:USE PAR POINTER IN 0-3 AS INDEX
:STORE CONTENTS GF PROPER PAR
:SET UP COUNTER TO

#6.R1

R3
R1.3%
R5.R0O

#160000,R0

R3.R0

(SP)+ ,R5
(SP) + R4
(SP)+,R3
(SP)+,R1

;CONVERT PAR CONTENTS
:TO A PHYSICAL 'X'' ADDRESS
:STORE VIRTUAL ADDRESS
:CLEAR PAR POINTER
:ADD PHYSICAL 'X'‘° ADDRESS
:TO OBTAIN 16 BIT PHYSICAL ADDRESS
::POP STACK INTO RS
::POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R1

SEXIT WITH PHYSICAL ADDR IN RO

"ttdfit#t*t**tttitttttttttt*tt*'**t**t*tt*ttttttfittttittttttttttt

“*

SUBROUTINE TO PUT BANK NUMBER INTO RO.

';tt*ttttttttfi*ttt*'itttt*t*t*tt***fifii*kttt*tttt*t*ttt.t*tttfitttt

005000
010146
010246
010346
010446
016701
012703
012702
012104
006204
103410
105200
001004
004767

NN A

—

i o

d med el Sl

e and e

e O OO OO O 00D 0000000000000
000000 N NNNNVNNNNN
SEE B8RSR G2 8 BRI RN RRTB B IRV A NANIISEUEFF AR LB

N N U U U U U N LN
N N
A U UD U
U N N N L UM N A U O O N U U A U U O N N A NN AN N N N
i e
) d e
e el e d wmd cud wd e d e D D e e b D —md —id i e d e’ —d —d it d el b

H T A

3154

000007
000000
077211

3203

014270
014272

165560
000020
000020

BANKNO: CLR
MOV
MOV
MOV
MOV
1%:

2%:

003404

MOV
MOV
MOV
MOV
ASR
BCS
INCB
BNE

4%:

:SET UP ROTATE COUNTER FOR 1 WORD
;GET WORD TO ROTATE BIT
;ROTATE BITPT WORD TO FIND BANK
;IF CARRY SET ,THEN BANK FOUND
s COUNT BANKS.

;BR IF NOT OVERFLOW.

;**% ERROR *** (GO TYPE A MESSAGE)

PC.

LMWORD

SOR

R2.

;ERROR TYPE CODE.
;FATAL ERROR!!! NO POINTER FOUND.

S0B

R3,

;FATAL ERROR

077315

BITPT, R1
R3
#20,
R2
#20,
(R1)+,R4
R4
48
RO
3%

;INIT RO
::PUSH R1 ON STACK
:;PUSH R2 ON STA(K
::PUSH R3 ON STACK
::PUSH R4 ON STACK
:START OF BIT POINTER TABLE
:SET UP BITPT TABLE COUNTER

$ERROR

JSR

3%:

RO
R1,-(SP)
R2.-(SP)
R3,-(SP)
R4, -(SP)

HALT

;IF NOT FINISHED ROTATING WORD
;GO BACK AND ROTATE AGAIN
;IF NOT FINISHED BITPT TABLE

:THEN ROTATE THROUGH NEXT WORD.

81 23:00 PAGE 66
P]?-P ME GAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046) 04-AUGSUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS.
04~AUG-8" 22:59
;POP STACK INTO Ré
(SP) + R4
MOV
014272 012604
STACK INTO R3
;;POP
,R3
+
(SP)
MOV
014274 012603
STACK INTO R2
;:POP
(SP)+,R2
MOV
014276 012602
INTO R1
STACK
;:POP
1
(SP)+,R
MOV
01
300
014302

0126
000207

RTS

‘x

sRETURN

YA AR R ANNRARANRRNA AR AR AN AN RN (122233232333 322322222 RRddRlil

INTO ALL OF MEMORY,
CONSTANT IN RO
TO WRITE THEititti'
SUBROUTINEt't*fit
.ifitttttt.'Qififiti'ttt.ttt"t'tt
ttttt't

U“NU"N;S§S
N\ = =

QNrNO

oF o¥ ¥ 2¥ 2
R

b
D e
b omd

(elelelolsle)]

-'tttttQttlttt

0046467
010022

077502
004767
000207

176470

SETCON:
18:

JSR

MOV
s08

JSR

176672

RTS

R4,

RO,
RS,
PC,
PC

INITMM

(R2)+
1%
MMUP

; INITIALI2E THE MEMORY ADDRESS POINTERS.
;MOV CONSTANT INTO MEMORY
;BRANCH IF MORE IN CURRENT BLOCK
;FIND NEXT BLOCK AND LOOP TO 1$.
;RETURN

'-tttttttttt'tttttttttt*ttttttfittlttttttttt*tt'tttttwttt*tfitttttt

LOCATION.
“%x ROUTINE TO ROTATE 'C' BiT THROUGH A MEMORY
t*itii*ttttIttttttitttltt

80000000000008

N = o ed ek s ek md =B P\ =D b b ed D b D D
~rororororRoRONNOND NONINLNUNINININOIND

(o Yo No
SVAV
GV, 1V,
SO0

366

ROTATE: ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLA
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB

e e i e D d e e
ek b
O = —d b b —b —t e e
o jololeled
[ Yo+ No N e oo No Yo Yo Yo Yo
oo OO
— el
e nndt
[ R
e
e R R R e e e e

W NN
~ SN
» OO

NN NN
LA
L4

e
e e

Y 2P 2P ¥

W Y

=D ——h —

Rl 2P 2l o o

[oleYeoleololelelalololelelalelalelols
o)

':*ttttt**tt'fitt'tfi*t*tttt‘t'ttt*tt*t**t

RTS

(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)+
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)+
PC

;(R2)=177776 OR 000001
:(R2)=177775 OR 000002
; (R2)=177773 OR 000004
; (R2)=177767 OR 00010
; (R2)=177757 OR 000020
;(R2)=177737 OR 000040
; (R2)=177677 OR 000100
;(R2)=177777 OR 000000
; (R2)=177577 OR 000200
; (R2)=177377 OR 000400
; (R2)=176777 OR 001000
; (R2)=175777 OR 002000
;(R2)=173777 OR 004000
;(R2)=167777 OR 010000
; (R2)=157777 OR 020000
; (R2)=137777 OR 040000
s (R2)=077777 OR 100000
;(R2)=177777 OR 000000
;RETURN

‘:t.*ttttl.tt..*tt*tttttttfiiitfitttt'tttttttt'ttiitittttttttttttfit

SUBROUTINE TO WRITE 3 XOR 9 PATTERN INTQ 256. WORD BLOCK.
:EACH LOOP WRITES 256. WORDS
#16. R4
MoV
wix9:
“x

"tfit*ttttttttttt‘t"t'tit't'*ttfit*tttitt.!tttttti!ti*t‘ttttttttfi

014770

014374
014376

012704

000020

2%:

MOV

RO, (R2)+

Mov
MOV
MOV

RO, (R2)+
RO, (R2)+
RO, (R2)+

MOV
MOV
1260

MOV
MoV

R3,(R2)+
R3.(R2)+

3262
3263

MOV
MOV

RO, (R2)+
RO, (R2)+

016400
014402

3259
3261

R3,(R2)+
R3,(R2)+

SEQ 0078

23:00 PAGL 67
(=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81
NOISE TESTS.
CASE
WORSE
AND
ADDRESS
SUBROUTINES FOR
04~-AUG-81 22:59
P
014420
014422

MOV
MOV

RO, (R2)+
RO, (R2)+

0146424
014426
0144
014432

MoV
MOV
MOV
MOV

R3.(R2)+
R3,(R2)+
R%,(R2)+
R3.(R2)+

014434
014436
014440
014462

DEC
BNE

014444
016446

MOV
MOV
MOV
RTS

RO,
R3,
(SP)+,
PC

-(SP)
RO
R3

:SAVE RO
;PUT R3 INTO RO
;PUT SAVED RO INTO R3
;RETURN

SEQ 0079

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

P11

RELOCATION SUSROUTINES.

04-AUG-81 22:59

.SBTTL

23:00 PAGE 68

RELOCATION SUBROUTINES.

£Q 0080
ttfl

.-"ttttttttttfittttttt't'tt"ttttttt.tttt'.t!'ttttt.'tttt.tttttt

:» ROUTINE TO RELOCATE PROGRAM CODE

tt'

;.-tttttttttl‘ttt.tttttttt'ttt'tttttt"ttttttttttttttttt.t'ttttt

014450

014450
014452
014454
014456
014460
014462
0144666
014470
014472
014476
014500
014502
014504
014510
014514
014520
014524
014530
014532
014534
014540
014542
014544
014546
014552
014554
014556
014562
014564
014566

014570

010246
010346
010446
012502
012503
012704
012223
005304
001375
012704
024243
001417
011267
011367
010267
010367
004767
000023
000000
162705
000746
005304
001355
004567
024526
010346
004767
012604
012603
012602

RELOC:

4%:
020000
020000

1%:

2%:

164404
164402
164370
164366

003136
000004
_

3$:

00502¢
006526

MOV
MOV
MoV
MOV
MOV
MOV
MOV
DEC
BNE
MOV
cMP
BEQ
MOV
MOV
MOV
MOV
JSR
.WORD
HALT
SUB
BR
DEC
BNE
JSR
.WORD
MOV
JSR
MOV
MoV
MOV
RTS

000205

:;PUSH R2 ON STA(CK
Rc,=-(SP)
::PUSH R3 ON STA(CK
R3,-(SP)
::PUSH R4 ON STACK
R4 ,-(SP)
:GET FIRST LOCATION.
(R5)+, RZ2
:GET FJRST LOCATION OF DESTINATION.
(R5)+, R3
'SET UP 8K COUNTER.
#20000, R&
;MOV THE DATA.
(R2)+, (R3)+
:COUNT THE WORDS.
R4
:BR IF MORE.
18
"RESET THE COUNTER.
#20000, R4
:CHECK THE DATA JUST MOVED.
-(R2), =(R3®
:BR IF DATA OK.
3%
$GDDAT :GET SOURCE DATA.
(R2).
$BDDAT :GET DESTINATION DATA.
(R3),
$GDADR -GET SOURCE ADDRESS.
R2,
$BDADR ;GET DESTINATION ADDRESS.
R3,
$ERROR ;xx* ERROR #**x (GO TYPE A MESSAGE)
PC,
JERROR TYPE (CODE.
23
;FATAL ERROR!'! RELOCATICN FAILED.
;ADJUST RETURN POINTER.
RS
#4,
:GO BACK AND TRY AGAIN.
4%
COUNT WORDS.
1
Ré
:BR IF MORE.
2%
PRINT OUT THE FOLLOWING MESSAGE.
:GO
$PRINT
RS,
:ADDRESS OF MESSAGE TO BE TYPED
PRELOC
“"PROGRAM RELOCATED TO **
:PUT THE DATA ON THE STACK.
-(SP)
R3,
$TYPAD :DETERMINE THE PHYSICAL ADDRESS AND TYPE IT.
PC,
;:POP STACK INTO R4
(SP)+ R4
::POP STACK INTO R3
(SP)+,R3
;:POP STACK INTO R2
(SP)+ ,R2
RS

“*
o%
o*

8K BANK OF 128KW MEMORY.
SUBROUTINE TO MOVE PROGRAM FROM BOTTOM TO TOP
- 737776
700000
BE
WILL
HIGHEST AVAILABLE BANK WITH KT
- 137776
100000
BE
WILL
BLE BANK NON-KT
HIGHEST AVAILA
ttttttttttttttt*ttttttttttttttttttttttttttttt

;"*'tttttttttt’tttttt

(MP
014572 022767 000001 163734 RELTOP: BEQ
014600 001404

014602 004767 003060
014606 000007

014616
014622

005767
001441

163714

0164624 (12737 007600 172346
014632 012700 100000
0146636 162737 000400 L72346 2%:

PRGMAP ;CHECK THAT THE PROGRAM [S NOW IN BANKS O AND 1.
;BR IF OK

JSR

PC,

$ERROR :*w*x ERROR »*x (GO TYPE A MESSAGE)

.WORD

:FATAL ERROR!!'! PROG SHOULD BE IN BANKS O AND 1

MOV
MOV

RO,~(SP)
R1.-(SP)

:FATAL ERROR

8}22}8 000000
014612 010046
014614 010146

*RETURN

":tt*ttttttttttttttttttttttttttt**tttttttfittttttt*tttttttttfittttt

HALT
TST
BEQ

MOV
MOV
SUB

MMAVA
108

:ERROR TYPE CODE.

::PUSH RO ON STA(K
“iPUSH R1 ON STACK

#7600, @#KIPAR3 :SET PAR TO TOP OF MEM
STUURD 128K,
#81T15, RO
:BACK DOWN ONE BANK.
#4600, afK ] PAR3S

MSAA

{ VMSAA P11

RELOCATION SUBROUTINES.

04~AUG-81 22:59

333, 016644 00600C

3335

(16666

3336
3337
3338
3339
33,0
331
33,2
33,3
3344
3,5
336
1347

014650
014654
014656
014664
014672
014676
014700
014704
014706
014710
014716

3350
3351
3352
3353
335,
3355
3356
3357

014726
014732
014736
014742
014744
014746
014752
014754

012700
012701
162701
006200
103606
030067
001771
030067

3359

014762

ggzg 0164726 000461

3358 014760 001404

000010
140000
0460000

3362 014766 000007

014770
014772
014776
015002
015004
015006
015012
015014
015016
015022
015026
015032
015036
015062
015046

000000
010167
004567
000000
000000
010167
060107
060106
010167
060137
060137
060137
060167
060167
062701

3379 015052 066721

3380 015056 005721
015060
015062
015066
015070
015074
015076
015100

;ggg 015104

000006
177446
163520
163510
000004
000024
000114

164066
164064
002002

163454

001776
026127 177777
001371
010067 163440
012601
012600
066716 163426
000207

172344
172344

172340
172342

108:
118:

163554

3361

:..10 64K.

B8R

308

:BR TO COMMON EXIT.

12%

'BR IF NO CONFLICT.

90$

MEMMAP :CHECK FOR BANK EXISTS.
RO,
8I7
BR IF NO BANK FOUND.
28
BEQ
:(COPY PAR
R2
a#K1PA
IPAR3,
4K
MOV
38:
DOWN WITH LOW PAR.
:BACK
IPAR2
K
#200,
SuB
4$:
FOR CONFLICT.
:CHECK
PRGMAP
RO,
BIT
IF DESTINATION OVERLAYS SOURCE.
TABORT
90$
BNE
E PROGRAM.
RELOCAT
GO
RELOC
RS,
JSR
ADDRESS.
FIRST
*SOURCE
O
LWORD
ADDRESS.
FIRST
ATION
:DESTIN
40000
.WORD
IPARD ;RELOCATE LO BANK
,a#KR?
AWK JPA
MOV
a#KIPAR3.3#KIPART -RELOCATE HI BANK.
MOV
NOW BE EXECUTING OUT OF LAST TWO BANKS OF MEMORY.
SHOULD
PROGRAM
.«

164542

3360 014762 004767 002700

3381
3380
3383
3382
3385
3386
3387

ROR

BCS

103445

030067 164640
001770
013737 17236
162737 000200
030067 163636
001031
004567 177544
000000
040000
013737 172344
013737 172346

3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046} 04-AUG-81 23:00 PAGE €9

$0$:

SSET BANK POINTER TO TOP OF MEM.
"SET ADDRESS POINTER TO TOP
"BACK DOWN ONE BANK.
:MOVE POINTER DOWN ONE BANK.
‘BR IF OVERFLOW.
-CHECK IF THIS BANK EXISTS.
‘BR IF NON-EXISTANT BANK.
:CHECK FOR A PROGRAM CONFLICT.

MOV
MOV
SUB
ASR
BCS
BIT
BEQ
BIT

#8IT3, RO
#1460000,R1
#40000, R1
RO
90$
MEMMAP
RO,
11$
PRGMAP
RO,

JSR

PC,

WORD

:ERROR TYPE CODE.

ADD

RELOCF. (R1)+

"CHECK FOR INTERUM TERMINATOR.

RTS

BEQ

:FATAL ERROR

$ERROR ;xxx ERROR *xx (GO TYPE A MESSAGE)

:FATAL ERROR!'' NOT ENOUGH MEMORY??
HALT
-SET DATA FOR RELOCATION SUBROUTINE.
13¢
R1,
MOV
128:
RELOC :GO RELOCATE THE PROGRAM TO TOP OF MEM.
RS,
JSR
"SOURCE STARTING ADDRESS.
LWORD O
‘DESTINATION STARTING ADDRESS.
WORD O
13$:
RELOCF -SET RELOCATION FACTOR IN UNRELOCATED CODE.
R1,
MOV
;JUMP TO RELOCATED PROGRAM
PC
R1,
ADD
.« PROGRAM NOW EXECUTING OUT OF TOP OF MEMORY. POINTER TO TOP OF MEMORY.
:ADJUST THE STACK
SP
R1,
ADD
RELOCF -SET THE RELOCATION FACTOR.
R1.
MOV
S#ERRVEC :ADJUST ERROR VECTOR.
R1,
ADD
SNPURVEC -ADJUST POWER FAIL VECTOR.
R1,
ADD
BNPARVEC :ADJUST PARITY ERROR VECTOR.
R1,
ADD
:ADJUST SOF TWARE SWITCH REGISTER.
SWR
R1,
ADD
DISPLAY -ADJUST SOF TWARE DISPLAY REGISTER.
R1.
ADD
"POINT 10 THE RELATIVE RELOCATION TABLE.
#RADTAB R}
ADD
148 :

158:

308:

TST

BEQ
CMP
BNE
MOV
MOV
MOV
ADD

{(R1)+

168
-(R1), #-1
15%
PRGMAP
RO,
(SP)+,R1
(SP) +.RO
RELOCF, (SP)

:ADD RELOCATION FACTOR TO ADDRESSES IN TABLE.

‘BR SO AS TO NOT MODIFY ZERO.
“CHECK FOR END OF TABLE.
‘BR IF MORE IN TABLE.
-SET NEW PROGRAM MAP...LO 64K.
1.pOP STACK INTO R1
1ipoP STACK INTO RO
*ADJUST RETURN ADDRESS.
*RETURN

SEQ 0081

£E

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 70

OO SN 0\58
NS BN

ek
e

d
-

—

D —d

b
d

d
d

D
D

D
h

D —d

ek
ed

—d

(eloleoleleolololeleliNololsl

(UL 1V, LV, LW, LV AV LW LV LV RNV [V, 1V}

04-AUG-81 22:59

032767
001404
004767
000007
000000
005767
001417
005037
012737
004567
000000
040000
005037
012737

000001
002544

163404

RRRRRERRRERRREY

NINON) et md e
bt =2 2
N=2OV
NN WO

016746
011667
004567
000000
000000
161607

166620
005720
001776
024027
001371
012600
161637

3423

161637
161637

161667
161667
162616

005067
012767
000207

3437

TO BANKS 0 AND 1.
TE PROGRAM BACK"'Q!"..
TINE TO RELOCAt'l'.'t
1% SUBROU
.'."t'.".Q'.QQ.".
"tt'll.
tttt.tt
'-.'ttt'tt.'.l
PRGMAP ;(CHECK FOR PROGRAM ALREADY [N BANKS 0 OR 1.
”n,
BIT
RELO:

18:

177276

172340

000200

163334
000004
177242

108:

000001

$ERROR

;BR IF NO CONFLICT.
;*»* FRROR *** (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

sFATAL ERROR'''

PROGRAM ALREADY IN BANKS 0 OR 1.

;CHECK FOR MEM MGMT.
MMAVA
;B8R IF NO MEMMGMT.
108
;SET PAR 2 TO BANK 0.
K ]PAR?
;SET PAR 3 TO BANK 1.
3
a#KIPAR
#200,

Mov
MOV

RELOCF, =(SP)
20%
(SP),

;PUT RELOCATION FACTOR ONTO THE STACK.
;SET DATA FOR RELOC SUBROUTINE.

WORD
.WORD
SuB

O
O
(sp),

;SOURCE STARTING ADDRESS.
;DESTINATION STARTING ADDRESS.
;JUMP TO RELOCATED PROGRAM.

;RESET THE STACK POINTER.

JSR

20%:

RS,

RELOC

:GO MOVE THE PROGRAM BACK TO BANKS 0 AND 1.

THE PROGRAM IS NOW EXECUTING OUT OF BANKS O AND 1.
suB

218:

22%:

23%:
30%:

(SP),

MOV

RO,~(SP)

SuB

2(SP),

BEQ

22%

MoV

177777

163234

.WORD

HALT

002002

000004
000024
000114
163644
163642

1
PC,

TS7T
BEQ
CLR
Mov
GO MOVE 8K INTO BANKS O AND 1.
RELOC
RS,
JSR
;SOURCE STARTING ADDRESS.
O
.WORD
;DESTINATION STARTING ADDRESS.
40000
.WORD
JRESTORE PAR O TO BANKO.
O
a#KIPAR
CLR
;RESTORE PAR 1 TO BANK 1.
1
@NKIPAR
#200,
MOV
BANKS O AND 1.
OF
OUT
G
EXECUTIN
NOW
IS
PROGRAM
TO COMMON EXIT.
;BR
308
BR

000002

BEQ
JSR

;FATAL ERROR

172344

161606

010046
012700

"..tlt'tt.'.i.'tt.'fi"".".t."..'."tfi...tt......'tIIQ.'!'."!

000200

000440

3409

RELOCATION SUBROUTINES.

TST

;;PUSH RO ON STA(K

#RADTAB,RO
(RO +

(RO)+

:SET UP POINTER TO RELATIVE ADDRESS TABLE.
;RESET ADDRESSES TO UNRELOCATED VALUES.
;CHECK FOR TERMINATORS.

;BR OVER TERMINATORS.

cMP
BNE
MOV
SuB
SuB
su8
SuB
suB
sus
CLR

;CHECK FOR END OF TABLE INDICATOR.
-(RO), #-1
;BR IF MORE ADDRESSES IN TABLE.
21%
;;POP STACK INTO RO
(sP)+,RO
@NERRVEC ;ADJUST ERROR VECTOR.
(SP),
Q#PWRVEC ;ADJUST POWER FAIL VECTOR.
(SP),
@NPARVEC ;ADJUST PARITY ERROR VECTOR.
(SP).,
;ADJUST SOF TWARE SWITCH REGISTER.
SWR
(SP),
DISPLAY ;ADJUST SOF TWARE DISPLAY REGISTER.
(SP),
;ADJUST RETURN ADDRESS.
(SP)+, (SP)
;RESET RELOCATION FACTOR.
RELOCF

RTS

MoV

PRGMAP

:SET PROGRAM MAP TO POINT TO BANKS O AND 1.
JRETURN.

':Ittttttitttttttt*tt*ttt*ttt**t!ttttttt!tttfittttttitfittttttttfit'

FROM
“+ THIS SUBROUTINE MOVES THE LOADER AREA BA(CK TO THE ‘‘TOP'' OF MEMORY
OF
8K
THE
OF
END
:+ WHENCE IT CAME. THE LOADER AREA IS SAVED AT THE
:*

pui

t:h“&fl

[V XV, 1V,

—

[elele]

016700
001004
004767

164176

002346

Y RUN.
PROGRAM (ODE WHEN THE PROGRAM IS INITIALL
uiuioloolniololofadolalalofafoalalofolints
L

RESLDR: MOV
BNE
JSR

sttt bt A

LMAD,
1%
PC,

$ERROR

b oieiobedal

:CHECK IF THE LOADERS WERE SAVED.
:BR IF LOADER AREA WAS SAVED.
;*** ERROR **» (GO TYPE A MESSAGE)

SEQ 0082

(VMSAA

VMSAA P11
3446

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04~AUG~81

04~AUG-81 22:59
000007
000000
005767
0014602
005037
012701
012702
0146140
005302
001375
005067
005767
001402
005237

RELOCATION SUBROUTINES.
;FATAL ERROR

.WORD
HALT
TST
BEQ
CLR
MOV
MOV
MOV
DEC
BNE
CLR
TST
BEQ
INC

23:00 PAGE 71

‘

;ERROR TYFE CODE.
7
;FATAL ERROR''' CAN'T RESTORE LOADER AREA [f IT WASN'T SAVED.
;CHECK FOR MEM MGMT.
MMAVA
;SKIP IF NO MEM MGMT.
2%
:DISABLE MEM MGMT.
a#SRO
;GET END OF 8K, ASSUME PROG NOT RELOCATED.
R1
#40000,
sGET COUNTER.
#1536., R2
-(R1), =-(RO) ;MOVE THE LOADER AREA.
;COUNT HOW LONG THE AREA IS.
R2
;BR IF NOT MORE TO MOVE.
3%
;CLEAR MONITOR SAVED FLAG
LMAD
;CHECK FOR MEM MGMT.
MMAVA
;BR IF NO MEM MGMT.
4%
JENABLE MEM MGMT,
a4¥SRO

3447
%68
3L49
3450
3451
3452
34,53
3456
3455
3456
3457
3,58
3459
3460

015320
015322
015326
015330
015332
01533
015342
015346
015350
015352
0153564
015360
015364
015366

3463
3466
3465
3466
3667
3,68
3469
3470
3471
3472
3473
34,74
3475
3476
3477
3478

;% ROUTINE TO SAVE THE LOADERS AT THE END OF 8K. HAVE BEEN SAVED ALREADY.
:CHECK IF LOADERS
LMAD
SAVLDR: TST
015376 005767 164110
;BRANCH IF ALREADY SAVED
4%
BNE
015400 001024
END OF 8K
;GET
440000, RO
MOV
015402 012700 040000
:GET END OF 8K
R1
RO,
MoV
015406 010001
#2%, B#ERRVEC ;SET UP TIMEOUT VECTOR
MOV
015410 012737 015422 000004
(RO)+ ;SEARCH FOR END OF MEMORY
(ROY,
MoV
1%:
015416 011020
;KEEP SEARCHING
1%
BR
015420 000776
(SP)+, (SP)+ ;RESTORE STACK POINTER
CMP
c$:
015422 022626
#ERRTRP ,@#ERRVEC ;RESET TIMEOUT VECTOR.
MOV
015424 012737 023252 000004
-(SP) ;SAVE LAST MEMORY ADDRESS ((ONTIGUOUS)
RO,
MOV
015432 010046
;SET UP WORD COUNTER
#1536., R2
MoV
0154346 012702 003000
;SAVE THE LOADERS
-(R0), =(R1)
MOV
3$:
015440 0164061
;COUNT THE WORDS
RZ
DEC
015442 005302
;BRANCH IF MORE WORDS
3%
BNE
015644 001375
;SAVE LAST MEMORY ADDRESS
(SP)+, LMAD
MoV
015446 012667 164036
;RETURN

%22; 015372 000207

3479

015452

000207

163206
177572
040000
003000

1$:

2%:

164130
163152
177572

4%:

RTS

SEQ 0083

JRETURN.

04~AUG~-81 22:59

04-AUG-81

0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

23:00

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.

PAGE 72

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.
ti
‘v PARITY MEMORY UNEXPECTED ERROR TRAP SERVICE ROUTINE.
* FIND OUT WHICH REGISTER DETECTED THE ERROR.
‘« THEN SCAN MEMORY TO SEE IF PARITY ERROR STILL SET AND REPORT LOCATION.
.SBTTL

;:.t."tt.tt...tttt!.t'Q".'t.tt..tt.....'Q.'tt.'t.'.t.‘I"t!.t

011667 163432
004567 004110

0246465

010146
010346

016703 164324
005733
100415
005713
001374
015506 004767 002154
015512 000024
015514 000417

A LN LA AN

U AN AN U AN NN

[V TV IV SV, LV TV R LV, IV 1V, 1V IV |
PNININ) —2 =t b e =D e b =D D

N =20V~
W =

3510

"t.tttttttt"tttt"t.'t"tt'i'tfi't'ttt'l.'.'..'t.'ttt"Qittt.'ti

PESRV: MOV
JSR

.WORD

MOV
MOV

1$:

;xx*ERROR** %

015516
015520
015522
015524
015526
015532

005713
001415
005733
100374
004567 004042
024556

2%:

015534

015534
015540
015564
015546

004767 001010
004767 002122
000025
004767 000262

648 :

015560

000002

8}222% 000/61
015554 012603
015556 012601

MOV
TST
BM]
1ST
BNE
JSR

3s:

.WORD
BR

TST
BEQ
TST
BPL
JSR
.WORD

JSR
JSR
.WORD
JSR

B8R
MOV
MOV
RTI

(SP),
RS,

UNEXPT

CAUSED ERROR.
$BDADR ;GET PC OF INSTRUCTION WHICHMESSAG
E.
ING
FOLLOW
SPRINT :GO PRINT OUT THE
:ADDRESS OF MESSAGE TO BE TYPED

:"UNEXPECTED MEMORY PARITY TRAP.'’

R1,-(SP)
R3,-(SP)

.MPRX, R3
a(R3)+
3%
(R3)
1%
$ERROR
PC,

::PUSH R1 ON STACK
::PUSH R3 ON STACK

SGET POINTER TO PARITY REGISTERS.
:CHECK THE PARITY REG FOR AN ERROR FLAG.
:BR IF THIS REGISTER SHOWS THE ERROR.
:CHECK FOR TABLE TERMINATOR.
:BR IF MORE REGISTERS.
:xxx ERROR w*%* (GO TYPE A MESSAGE)

NO REGISTER INDICATED ERROR

:ERROR TYPE CODE.
CEXIT

24
4%

;CHECK FOR TABLE TERMINATOR.
(R3)
:BR IF NO MORE PARITY REGISTERS.
4%
:CHECK THE PARITY REG FOR AN ERROR FLAG.
a(R3)+
:BR IF NO ERROR FLAG.
2%
:GO PRINT OUT THE FOLLOWING MESSAGE.
$PRINT
RS,
:ADDRESS OF MESSAGE TO BE TYPED
MTOE
:"MORE THAN ONE ERROR FOUND.''

PC,
PC,
25
PC.

2%
(SP)+,R3
(SP)+ . R1

SPRNTQ
$ERROR
PSCAN

;SET UP VALUES FOR ERROR PRINTING.
;*x** ERROR #**x (GO TYPE A MESSAGE)
:ERROR TYPE CODE.
:GO SCAN MEMORY FOR BAD PARITY.
;GO LOOK FOR MORE ERRORS.
::;POP STACK INTO R3
::POP STACK INTO R1
sRETURN.

:;tttttttttttfltttttttttttttitttttttttttttt*tflttt*tt*ttttitttttttt

*ROUTINE TO ENABLE PARITY ERROR ACTION ON SMA/MF PARITY MEMORIES

015562
015566
015570
015576
015600
015604
015606
015614
015616
015626
015626
015634

005767
001434
032777
001030
005767
001410
032777
001004
026727
103415
016737
005037

ECTED
IS MEANT TO CATCH UNEXP
STHIS ROUTINE tttttit
ttttttt'ttlttttttttttttttttt*tttttttt*ttttti
;;tttttttttttt

TST
BEQ
BIT
BNE
TST
162726
BEQ
BIT
000040 163314
BNE
CMP
164140 001000
BLO
164176 000114 SETAE: MOV
CLR
000116

MAMF:
165602
000100 163332

;CHECK IF ANY PARITY REGISTERS EXIST.
MPRX
SEXIT IF NO PARITY REGISTERS.
MAMF 2
SCHECK FOR INHIBIT PARITY ERROR DETECTION.
aSWR
#SW6,
CEXIT IF NO PARITY ERROR DETECTION.
MAMF 2
SCHECK IF PROGRAM RELOCATED OUT OF BANK 0.
RELOCF
:BR IF PROG IN BANK 0.
SETAE
;CHECK IF VECTORS PROTECTED.
aSWR
#SW5,
[F VECTOR AREA PROTECTED.
:BR
SETAE
VECTORS.
FOR STARTING ADDRESS ABOVE THE
:CHECK
#1000
FSTADR,
.
SEXIT IF VECTORS EXPOSED TO TESTING
MAMF 2
.PESRV, B#PARVEC ;SET PARITY ERROR TRAP VECTOR
:PRIORITY LEVEL O ON TRAP
B#PARVE (+2

SEC 0084

VMSAA
“VMSAA

3536
3537
3539
3540
3541
3542
3543
7544
3545
3546
3547
3548
3551
3552

PAGE 73
16K VER MACY11 30(1046) 04~AUG-81 23:00
=2 MEGAWORD MEMORY EXERCISER, PARITY
TINES.
SUBROU
AND
MEMORY TRAP SERVICE

04-AUG-81 22:59

015640
015642
015646
015652

01034€
016703 164154
052733 000001
005713

015654 001374
015656 012603

MAMF1:
MAMF?2:

015660 000207

SEQ 0085

MOV
MOV
BIS
TST

::PUSH R3 ON STA(K
R3,~(SP)
:GET PARITY REGISTER TABLE POINTER.
R3
.MPRX,
S(R3)+ ;SET ACTION ENABLE BIT IN PARITY REG
#AE ,
:CHECK FOR END OF TABLE.
(R3)

RIS

BNE
Mov

:BR IF MORE PARITY REGISTERS.
;:POP STACK INTO R3

MAMF 1
(SP)+ R3

;RETURN.

""""“fi.fi"""'"."."""“"""".t'..‘....'...‘.."'..'..

REGISTERS FOR ERRORS THAT DIDN'T TRAP,
TO CHECK PARITY
SUBROUTINE*'fi't
fifi".*."'t'...."t'.‘.".t.*t".“.""*""*t".'

""ifi.'.t'fi

015662

(HGGZ:

CKPMER: TST
165502
BEQ
BIT
163232
000100
BNE
MOV
MOV
164114
TST
1%:
BFL
s8It
000001 177776
BEQ
JSR
64%:
000622
JSR
001734

015662
015666
015670
015676
015700
015702
015706
015710
015712
015720
015722
015726

005767
001437
032777
001033
010346
016703
005733
100023
032773
001410
004767
004767

015734

200411

015742 004767 000602
015760 005713
015762 001351
015764 012603

015732 000026

8}2;23 004767 000072

015746 004767 001714
015752 000027
015754 004767 000054
015766

000207

.WORD

;CHECK IF ANY PARITY REGISTERS EXIST.
MPRX
:BR IF NO PARITY REGISTERS.
4%
SCHECK FOR INHIBIT PARITY ERROR CHECKING.
#SW6, aSWR
:BR IF PARITY ERROR (HECKING INHIBITED.
43
::PUSH R3 ON STACK
R3.-(SP)
:GET PARITY REG TABLE POINTER.
.MPRX, R3
THE PARITY REG FOR AN ERROR FLAG.
:CHECK
atR3)+
ERROR
NO
]F
:BR
3%
A TRAP SHOULD HAVE OCCURRED.
IF
;CHECK
#BITO., @-2(R3)
ENABLE. CHGG?2
ACTION
NO
IF
;BR
2%
ERROR PRINTING.
FOR
VALUES
UP
;SET
SPRNTQ
PC,
TYPE A MESSAGE)
(GO
**~
ERROR
;**x
$ERROR
PC,
26

:ERROR TYPE CODE.

PC,

65%:

JSR

PC,

3%:

TST
BNE
MOV

(R3)
1%
(SP)+,R3

4%:

JSR

JSR
.WORD
JSR
RTS

PC,
27
PC,

PSCAN

:G0 SCAN ALL MEMORY FOR PARITY ERRORS.
VALUES FOR ERROR PRINTING.

SPRNTQ :SET UP
$ERROR :**x ERROR *** (GO TYPE A MESSAGE)
:ERROR TYPE CODE.
PSCAN :GO SCAN ALL MEMORY FOR PARITY ERRORS.

:CHECK FOR TABLE TERMINATOR.
;:BR IF MORE.
::POP STACK INTO R3
JRETURN.

""fififi**.tfi't*t'fi***t**fi*"*"*'**"fi***'*t**fi"fit*fi***‘tfi*t‘fiiti"tfit

CONTROL THE BANK
;% SUBROUTINE TO VERIFY THAT THE PARITY CSR DOES
PARITY MAP TABLE.
THE
WITH
TEST
UNDER
;% UNDER TEST. MATCH THE BANK
TABLE.
MAP
PARITY
IN
MAPPED
:+ RETURN IF MEM BANK HAS BEEN
.
MAPPED
BEEN
NOT
HAS
BANK
;% RETURN+2 IF ERROR,MEM
**t'****"fi.tfi**fi‘fi‘it*t'il"fi
""*Q'fi"*****'"fifii’**‘*""‘*"'fi'*"l’fi*"

015770

015770
015772
015774
015776
016002
016006
016010
016012
016014
016016
016020

010046
010146
010446
012700 000020
016701 164006
010304
005724
032124
001003
005300
001374

PARMAT:

1%:

MOV
MOV
MOV
MOV
MoV
MOV
TST
8IT7
BNE
DEC
BNE

RO,~(SP)
R1.,-(SP)
R4 ,-(SP)
#20 R0
BITPT,RT
R3,R4
(R4)+
(R1)+,(R4)+
2%
RO
1%

;:PUSH RO ON STA(K
::PUSH R1 ON STA(CK
::PUSH R4 ON STACK
:COUNT OF PAR]TY MAP TABLE
:MEM BANK UNDER TEST POINTER
:STORE PARITY MAP TABLE
:MOVE PAST (SR ADDRESS TO MAP TABLE
:CHECK FOR TABLE MAT(H
:BR IF MAT(H MADE [N TABLES
;DO NEXT WORD IN TABLE
:BR TO NEXT WORD IN TABLE

0~2 MEGAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046)
04-AUG~81 22:59

016022
016024
016024
016026
016030
016032

04-AUG-81

23:00

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.

PAGE 74

00572¢

(RS5)+

;NO MATCH MADE ,RETURN +2

012604
012601
012600
000205

MOV
MOV
MOV
RTS

(SP)+ R4

::POP STACK INTO R4
:;POP STACK INTO R1
:;POP STACK INTO RO

(SP)+ ,R1
(SP)+ RO

SEQ 0086

STORAGE USED:

208
B
%

UPON FINDING THE LOCATION(S) A MESSAGE

WILL BE TYPtD AND THE LOCATION WILL BE REWRITTEN IN ORDER TO RESTORE GOOD PARITY.
RO

= BANK POINTER

- ADDRESS POINTER

R3
R4
TEMP

TR
TR IR IR TR

CAUSING THE PARITY ERROR.

- PARITY (SR TABLE POINTER (MPRX)

- PMEMAP TABLE ENTRY
- ERROR DETECT FLAG
- TEMPORARY STORAGE

M 'tttttttt.ltttttfiktttt't't'Qtfitttttfitt'.tfit.tfitfit.ttttQit'tttttt
MOV
MOV
MOV
MoV

010046
010146
010246
010346
010446

016052
016054
016060

[+ Yo] 2OHNONVOS

WWNN—'—'?O

mid
e
e
D ed ed e
b
ot

e
b e

D e e

b nd

(o YoS« o No ¥o No Yo Yo Jo Xo o0

FEEREEEY

ot
SEJ

AFTER A PARITY ERROR 1S ENCOUNTERED THIS SUBROUTINE 1S USED
TO SCAN ALL PARITY MEMORY PER THE PMEMAP TABLE LOOKING FOR BYTE LOCATIONS

[elele BN olelelelalelelolele]

-—

SRR O VOO
NI W)= o

. - 'ttt.tttti".t‘.!t't't't"t"tl"‘tii.t"tit'l..'fii.tlt"‘l'.t

016164

MOV
JSR
.WORD

004567
024622
004767
013746
013746
012737
005037
005004
005002
012700
016701
005767
001413
013746
013746
005037
012737
012702

030011
001003
062792
000475
111¢67

016170

016703

016174

ons733

JSR

000001

163674
162414

172344
172346
172344
000200
040000

040000
163600
163626

RO,-(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R&4,-(SP)

RS,

SCANM

:;PUSH RO ON STA(CK

::PUSH R1 ON STACK

$PRINT

PC,CLRPAR

MOV
MoV
MoV

#1146 ,~(SP)
a#116,-(SP)

Mov
MoV
TST

#81T0,RO
P
,R1
.PMEMA

CLR
CLR
CLR

BEQ
MOV
MOV
CLR
MOV
MOV

#116,a#114
116
R4
R2

::PUSH R2 ON STACK
::PUSH R3 ON STA(CK
::PUSH R4 ON STACK

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED

:'SCANNING MEMORY FOR BAD PARITY"'
;GO INITIALIZE PARITY (SR'S
;:PUSH a#114 ON STACK
::PUSH a#116 ON STA(CK
:SET UP PARITY VECTOR TO

sHALT IF ANOTHER PARITY ERROR OCCURS
;INITIALIZE ERROR DETECT FLAG
:INITIALIZE ADDRESS POINTER

T?AVA

SINITIALIZE BANK POINTER
:POINT TO PMEMAP TABLE
:IF MEMORY MANAGEMENT NOT AVAILABLE

K IPARZ,-(SP)
WK IPAR3,~(SP)
K 1PARZ
#200,a#K 1PAR3

:;PUSH a#KIPAR2 ON STA(CK
:PUSH a#KIPAR3 ON STA(K
;INITIALIZE PAR2 T0 O
:INITIALIZE PAR3

#40000,R2

;

THEN BRANCH

SINITIALIZE ADDRESS POINTER TO MAP THRU PARZ
;IF 8K BANK DOES EXIST

RO, (R1)
2%
#40000,R2
10%

MovB

(R2) ,TEMP

.MPRX,R3

;READ THE BYTE LOCATION
;POINT TO PARITY (SR TABLE

TST7

a(R3)+

:IF NO ERROR FLAG SET IN (SR

BIT
BNE

ADD

MOV

:
:

THEN BRANCH

ELSE UPDATE ADDRESS TO NEXT BK BANK
AND BRANCH TO SEE IF SHOULD CONTINUE TESTING

PAGE 75
0=2 TMt GAWORD HEHORV EXERCISER 16& VER MACYI1 30G(1046) 04-AUG-81 23:00
/MSAA
TINES.
SUBROU
AND
E
SERVIC
TRAP
ARITY MEMORY
04-AUG-81 22:5
MSAA PY]
3648
3649
3650
651

3652

3653
3654

3655
3656
3657
3658
36597
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3675
3677
3678
3679
3680
3681

162672

016210

016212
016212
016216
016222
016224

4%:

6468:

000332
001444

016226
016230
016232
016236
016236
016242

003332
177776

016244

5%:

016250
016252
016254
016256
016262
016264
016270
016272
016276
016300

162256

a-(R%)

TST
BEQ

a(R3)+
5%

060000

005767

162212

022737
001444
000404

007600

172346

3691
3692
3693
3694
3695

016340
016346

022737
001437

177600

172346

016350
016354

032702
001303

037777

3697
3698
3699
3700

016356
016360
016362
016366

006300
001012
062701
016700
062700
020001
001422

001014

100405

£00002
163420
000040

ELSE ADJUST ERROR COUNT
AND SET ERROR DETECT FLAG

SPRNTQ
SERROR

SET UP VALUES FOR ERROR PRINTING.
;»x+ ERROR **+ (GO TYPE A MESSAGE)
*ERROR TYPE CODE.

*REWRITE LOCATION TO CLEAR BAD PARITY

;CLEAR ERROR FLAG IN PARITY (SR

*REREAD LOCATION TO SEE IF ERROR CLEARED

(R2)

$PRINT

;IF ERROR CLEARED
: THEN BRANCH

,GO PRINT QUT THE FOLLOWING MESSAGE.
ADDRESS OF MESSAGE TO BE TYPED

JSR
.WORD

RS,
PEWN(

CLR

@-2(R3)

(R3)

;1IF NOT DONE WITH TABLE

TST

BNE
INC
TST

3%
R2
MMAVA

;*PARITY ERROR WILL NOT CLEAR'

CLEAR PARITY CSR

; THEN TRY NEXT (SR FOR ERROR
; ELSE UPDATE ADDRESS POINTER
;IF MEMORY MANAGEMENT AVAILABLE

THEM BRANCH
ELSE IF NOT 30K SYSTEM
THEN BRANCH
ELSE IF 30k 1/0 PAGE
THEN ALL DONE CHECKING MEMORY
ELSE TRY SOMEMORE

;
;

CMP

#160000,R2

;

CMp
BNE
TST

#60000,R2
9%
MMAVA

;IF NOT POSSIBLY THE 1/0 PAGE
: THEN BRANCH AND TRY SOMEMORE
: ELSE IF 22 BIT ADDRESSING AVAILABLE

cMP
BEQ
BR

#7600, a#K1PAR3
138
9%

8%:

cMP
BEQ

#177600,3#K1PAR3
;
13%

9%:

BIT
BNE

H#MASKBK ,R2
2%

:IF NOT DONE WITH THIS 8K BANK
*" THEN TRY ANOTHER ADDRESS

10%:

ASL

;1F NOT DONE WITH 128K BANK

ADD

#2.R1

6%:

022702

CLR

CMpP
BEQ

170000

016312
016316
016320
016326
016326
016334
016336

016372
016376

(R2),(R2)

:
:

$ERTTL
R4

7%
FLG30K
6%
#170000,R2
143
9%

163504

3683
3684
3685
3686
3687
3688
3689

3701
37202

Movs

BNE
TST
BEQ

160000

3696

PC.
PC,

TST8B

022702
001463
000417

3690

JSR
JSR

.WORD

016302
016306
01630

3682

BNE

DE(
INC

THEN BRANCH
ELSE IF NOT FIRS! ERROR
THEN BRANCH

:
;

5%
R4
43

8PL
TST

016176
016200
016202
016204

7%:

BEQ

BMI]

BNE

MoV
ADD
CMP
8EQ

14%

:1F 28K 1/0 PAGE

;

THEN ALL DONE CHECKING MEMORY

ELSE TRY SOMEMORE

THEN BRANCH

ELSE IF 128K 1/0 PAGE
THEN ALL DONE
ELSE TRY SOMEMORE
;1F 2M 1/0 PAGE
THEN ALL DONE CHECKING

THEN BRANCH

118

;

.PMEMAP RO
#40 RO

;START OF TABLE
TEND OF TABLE
;IF DONE WITH TABLE
; THEN ALL DONE

RO,R1
13%

;

ELSE POINT TO NEXT PMEMAP ENTRY

SEQ 0087

(VMSAA

TVMSAA. P11

04~-AUG=-81 22:59

g;gg 016402 01270C 000001

3706
3707
3708
3709

016606
016412
016414
014420

005767 162126
001004
032700 000020
001016

23:00 PAGE 76

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.
11%:

g;}? 016422 000653
3712 016424 062737 000400 72344 12%:

3713 016432 062737 000400 172346
37214 016440 012702 040000
g;}z 016444 000642

04-AUG-81

(-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

; ELSE REINIT BANK POINTER

MOV

#8170.RO

TST
BNE

MMAVA
12%
#3174 RO
149

;1F KT AVAILABLE
;. THEN BRANCH

#600,3#KIPAR3
#40000,R2
1%

;8K BANK
JREINIT ADDRESS
:AND TRY SOMEMORE

BIT
BNE
BR
ADD

ADD
MOV
B8R

1%
#4600, 3#KIPAR2

: ELSE IF AT 32Kk LIMIT
THEN ALL DONE CHECKXING
N
ELSE TRY SOMEMORE
:
;UPDATE PARS TO MAP TO NEXT

016446

13%:

MOV
MOV

3721 016456 005704
3722 016460 001003

14%:

TST
BNE

R4
15%

MOV
MOV
MOV
Mov
MOV
MOV
MOV

(SP)+,a#116
(SP)+, 34114
(SP)+ R4
(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+ RO

::POP STACK INTO aw116
::POP STACK INTO a#114
::POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
;;POP STACK INTO RO

RTS

:RETURN

3717

3718 016446 012637 172346
%;%g 016452 012637 172344
3723 016462 004567 003106
%Zgé 016466 024026
/

3726

016470

016470
016474
016500
016502
016504
016506
016510

012637 000116
012637 000114
012604
012603
012602
012601
012600

3735

016512

000207

3727
3728
3729
3730
3731
3732
%;gz
3736
3737

3738

3739

3740
3741

016514

3742
37243
37244
37245
3746

016514
016516
016522
0165246
016526

3748

016532

010346
016703 163300
005713
001402
005033

3747 016530 000774

37649 016532 012603
3750 016534

3733

000207

15%:

16%:

JSR
.WORD

(SP) +,a#K]PAR3
(SP)+,a#K1PAR2
RS,
NOPES

:;POP STACK INTO a#KIPAR3
;;POP STACK INTO a#KIPAR?
:1F ERROR FOUND
; THEN BRANCH

$PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED

;;ttttttt*ttttttttttttttttttttltttttt*tttttttttttttttt*ttttwttttt
ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT
.-'-ttttttttttttttttttttttttittttttttttttttt*tt*tt*tttttttttttttttt
CLRPAR:

1%:
2%:

MOV
MoV
TST
BEQ
CLR
BR

MOV
RTS

R3,-(SP)
.MPRX, R3
(R3)
23
a(R3)+

;;PUSH R3 ON STACK
:GET PARITY REGISTER TABLE POINTER.
;CHECK FOR THE TABLE TERMINATOR.
:BR IF DONE ALL PARITY REGISTERS.
:CLEAR THE PARITY REGISTER.

(sP)+ ,R3

::POP STACK INTO R3

;BR FOR MORE
;RETURN.

ROUTINE.
PRINTOUT tt*ttt
DATA FOR ERROR
INES TO SET UP tttttt
_SBTTL SUBROUT
ttittt
tttttt
tttttt
tt*ttt
tttttt
t*tttttttttt

3753

;.'*tttttttt

3756
3757
3758 016536 010267 162346
3759 016542 005067 162346

PRINTOUT BY .SERROR & .SERRTYP
“« FOR ERROR
'-"tttttttttttttfittnttttttttttt**fittttttttttttttttttttttttttittttt
$GDADR ;SAVE THE ADDRESS UNDER TEST.
R2,
SPRNT: MOV
;SHOULD BE DATA IS "0''.
$GDDAT
CLR

3754

3755

TO COMMON TAG AREA (.$CMTAG)
“* THESE ROUTINES ARE USED TO TRANSFER DATA ROUTINE
S FROM **SYSMACwe.

SEQ 0088

(VMSAA

( VMSAA . P11

04-AUG-87 22:59

SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT
B8R

%;29 016546 00063%

SPRNTQ: MOV
3762 016550 014367 162374
MOV
3763 016554 013367 162372 162330
MOV
163204
3764 016560 016767
3765 016566 010267
%;29 016572 000425

3768
3769
%;;?
3772
3773
%;;g
3776
3777
3778
3779
3780
%;g;

77
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGEROUTINE.

016574
016600
016604
016606
016612
016616
016620
0166264
016630
016636
016642
016646

011367
010267
000414
010267
005367
000407
010367
010267
162767
010067
010167
000207

MOV
BR

162316

SORNTP: MOV
SPRNTO: MOV
BR
SPRNT1: MOV
162276
DEC
162272
BR
SPRNT3: MOV
162324
SPRNTZ2: MOV
162260
SuB
00000¢ 62252
MOV
SPRNTA:
162252
SPRNTB: MOV
162250
SPREND: RTS

162350
162304

SPRNTB

-(R3), $IMPO
a(R3)+, $TMP1
TEMP,SBDDAT
R2,$GDADR
SPREND

(R3),
R2,
SPRNTA
R2,
$GDADR
SPRNTA
R3,
R2,
K2,
RO,
R1,
PC

;GET THE PARITY REGISTER ADDRESS.REG.
;GET THE CONTENTS OF THE PARITY

S$TMPO .GET THE PARITY REGISTER ADDRESS.
$GDADR ;GET THE MEMORY ADDRESS BEING TESTED
;BR TO COMMON SECTION.

BEING TESTED
$GDADR ;GET THE MEMORY ADDRESS
;ADJUST IT FOR PRINTOU'T.
:BR TO COMMON SECTION.
$TMPO ;GET THE DATA IN R3.
$GDADR ;GET THE MEMORY ADDRESS BELING TESTED
$GDADR ;ADJUST IT FOR PRINTOUT.
$GDDAT GET WHAT THE DATA SHOULD BE
$BDDAT ;GET WHAT THE DATA WAS
JRETURN TO ENTER ERRCR ROUTINES

M "ttttfitttt**t*tl’t*fitittttt*t*fitfl' 2222232228222 222232 32322220322t d

3783

3784

* THIS ROUTINE WILL TYPE OUT A MAP OF MEMORY BANKS.
CONTAIN THE ADDRESS
» UPON ENTERING THIS ROUTINE RO WILL ROUTINE
REQUIRES THAT THE
» OF THE TABLE TO BE TYPED OUT. THE

3785
3786
3787

3788

3789

TABLE CONTAIN 16 DECIMAL WORDS.
STORAGE USED:
= MAP TABLE ADDRESS
RO
= BANK POINTER
R1

3790
3791
3792
3793
3794
3795
3796

*
o

3799
3800

FLG30K = 30K MEMORY FLAG
b
";fil’ttt*tk*fi*ittt*l‘tlt*t*t"*tttk*iit'**tfiii’ttittfifitt*tttttitttttt

i
i
A
i*
o
;Y

3797
3798

3801
3802
3803
3804

3805
3806
3807
3808
3809
3810
3811

R
R3
Ré
LMEMLO
LMEMH]
BNKTAB

ENDBKT = LAST ADDRESS + 2 OF TABLE TO BE PROCESSED

015650
016654
016662
016666

016670
016672
016674
016700
016702
016706

TYPMAP: MOV
010037 017350
MOV
012737 000040 017352
ADD
060037 017352
TST
1%:
005710

BNE
1ST
mp
BNE
JSR
.WORD

001011
005720
023700 017352
001372
004567 002666
024252

gg}% 016710 000167 000426

3814 016714 013700 017350
3815 016720 010146

JMP

2%:

= CONSECUTIIVE ZERO BANK FLAG
- HIGH MEMORY ADR ... LO 16 BITS
= HIGH MEMORY ADR ... HI 6 BITS
= LOW MEMORY ADR ... LO 16 BITS
= LOW MEMORY ADR ... HI 6 BITS
= ADDRESS OF TABLE TO BE PROCESSED

MOV

RO, a#BNKTAB
#40, aENDBKT
RO, a#ENDBKT
(ROD)

;SAVE ADDRESS OF TABLE
:LOAD END BANK TABLE WITH 40
;GET LAST ADR + 2 INTO ENDBKT
;ANY MEMORY IN THIS TABLE ENTRY

13%

JEXIT

2%
(RO) +
A#ENDBKT RO
1%
$PRINT
RS,
NOMEM
GABNKTAB,RO
R1.,-(SP)

; THEN GO PRINT OUT LOCATIONS
; ELSE POINT TO NEXT TABLE ENTRY
;1F NOT END OF TABLE
; THEN TRY AGAIN
;GO PRINT QUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
;'NO MEMORY FOUND.''
;RESTORE MAP TABLE ADDRESS

;:PUSH R1 ON STA(CK

SEQ 0089

1 23:00 PAGE 78
p1?—2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-8
PRINTOUT ROUTINE.
ERROR
FOR
DATA
UP
SET
TO
TINES
SUBROU
04-AUG-81 22:59
016722
016724
016726
016730
016734
016740
016744
016750
016752

010246
010346
010446
005067

010304
012702

000001

016756

012701

000001

016762
016764
016766
016772
016774
016776

030110
001405
062703
005504
005002

017000
017002
017004
017006
017012
017014
017020
017022
017024
017030
017932
017036

005702
001123
005202
022703
001023
005767
100413
001006
005767
001412
162703
000411

017040
017044
017046

022704
001006
000403

000003

017050
017054

022704
001002

000077

017056

162703

020000

005067
005067
012703

016746

nch
b

oo
O

b
amd
b e
b

d
d e
d
e

NNNNNNNN

D od md

016746

olalalelelelele;

R2.-(SP)
R3,-(SP)
R4 ,-(SP)
LMEMLO
LMEMH]

#1,R2

JINIT LOW MEM ADR ... LO 16 BITS
SINIT LOW MEM ADR ... HI 6 BITS
JINIT LAST BANK IN MAP FLAG
SINIT HIGH MEM ADR ... LO 16 BITS
sINIT HIGH MEM ADR ... HI 6 BITS
:INIT CONSECUTIVE ZERO RANK FLAG

3s:

MOV

#8ITO0,R1

;INIT BANK POINTER

4%:

BIT
BEQ

R1, (RO
5%

ADC
CLR
BR

000410
000406
163024
177777

ADD

040000

000541

010346
010446

004567
023627
006303
006104
006003
006367
006167
006067
016746

5%:

1772777

162744

:;PUSH R4 ON STACK

TEMP

#-1,R3
R3,R4

;IF THIS 8K BANK IS NOT PRESENT

#40000,R3

THEN GO PRINTOUT MAP

;

ELSE UPDATE HIGH MEM TO TOP OF THIS BANK

"CLEAR CONSECUTIVE ZERO BANK FLAG

"GO CHECK FOR NEXT BANK

ARk

R2
108
R2
4177777 ,R3
ot
MMAVA
7%
6%

;IF CONSECUTIVE ZERO BANK
THEN DO NOT PRINT MESSAGE
:

; ELSE UPDATE CONSECUTIVE ZERO BANK FLAG
:IF NOT 32K, 128K OR 2M BOUNDARY
THEN GO PRINT MESSAGE
ELSE IF 22BIT ADDRESSING
THEN GO WORK ON 22 BIT ADDRESSING
OR GO WORK ON 18 BIT ADDRESSING
ELSE IF NOT 30K SYSTEM

FLG30K
8%

THEN GO ADJ TO 28K BOUNDARY

ELSE ADJ TO 30K BOUNDARY

#10000,R3

;

cMP
BNE
BR

#3,R4

;IF NOT 128K BOUNDARY

7%:

CMP
BNE

#77 R4
9%

;IF NOT 2M BOUNDARY

8%:

SuB

#20000,R3

:ADJ HIGH MEMORY TO BELOW 1/0 PAGE

MOV

R3,-(SP)
R4 ,~(SP)

::PUSH R3 ON STACK
;;PUSH R4 ON STACK
;:PUSH LMEMLO ON STACK
;:PUSH LMEMHI ON STACK

010000
6%:

9%:

000226
000224
000216
000214

TST

BNE
INC
cMpP
BNE

TST
BM]
BNE
TST
BEQ
suB
BR

161516

000252
000250
002472

;:PUSH R2 ON STA(K
;:PUSH RS ON STACK

MOV
MOV
MoV
CLR
CLR
CLR
MOV
MOV
MOV

MOV

MOV
JSR
.WORD
ASL
ROL
ROR
ASL
ROL
ROR
mov

;

9%
8%

;

LMEMLO,-(SP)
(SP)
-H]
LMEM
RS,

FROM

JAND GO PRINT

$PRINT

THEN GO PRINY

ELSE GO ADJ TO 124K BOUNDARY
THEN GO PRINT

;GO PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
JSHIFT BIT 15 INTO CARRY
SSHIFT BIT 15 TO ALIGN WITH BITS 17-16
;RESTORE BITS 14-0
;SHIFT BIT 15 INTO CARRY

LMEMLO

(SP)
, -HI
LMEM

SSHIFT BIT 15 TO ALIGN WITH BITS 17-16
;RESTORE BITS 14~0
;;SAVE LMEMHI FOR _TYPEOUT
;;TYPE ADDRESS BITS 21-15

SEQ 0090

0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) C4-AUG-81

04-AUG-81 22:59

017132 106746
01713 105066 000001

017140 004767 003656
003
017144
000
017145
000172
016746
017146

017152 106746
017154 105066 000001
017160
017164
017165
017166
017172
017174

:»
‘s«

:»
“«

s«
“»

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUT INE
es.
WIHTOUT USING A ‘‘TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMA(
THE STA(K

MFPS
CLRB

005
001
012667
012667
012604
012603
005767
001030
062703
005504
010367

017276

005567

017304 001226

JSR
.BYTE
.BYTE
MOV

$TYPOS :GO TO THE SUBROUTINE
PC.
::TYPE 3 DIGIT(S)
3
::SUPPRESS LEADING ZEROS
O
::SAVE LMEMLO FOR TYPEOUT
,-(SP)
LMZMLO

MF PS
CLRB

~(SP)
1(SP)

: :TYPE ADDRESS BITS 14-0

;PUT THE PROCESSOR STATUS ON THE
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
:ON PSW RETURN.

JSR
.BYTE
.BYTE
JSR
.WORD
MOV

$TYPOS :GO TO THE SUBROUTINE
PC,
;:TYPE S DIGIT(S)
5
::TYPE LEADING ZEROS
1
SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
:ADDRESS OF MESSAGE TO BE TYPED
TO
::SAVE R4 FOR TYPEOUT
R4 ,~-(SP)

MF PS
CLRB

-(SP)
1(SP)

JSR
.BYIE
.BYTE
MOV

“«

000112
000104

162520

108:
040000
000060
0172264 010467 000056
0172720 062767 000001 000046
017302 006301

:ON PSW RETURN.

::TYPE ADDRESS BITS 21-15

ROUTINE
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS
A(w*.
#*SYSM
BY
FOR
WIHTOUT USING A ‘‘TRAP'' INSTRUCTION AS CALLED OR STATUS ON THE STA(K

017226
017227
017230
017234
017240
017242
017244
017250
017252
017256
017260

;PUT THE PROCESSOR STATUS ON
HIGH BYTE CLEARED TO INSURE KERNEL MODE

-(SP)
1(SP)

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE
WIHTOUT USING A ''TRAP'' INSTRUCTION AS CALLED FOR BY *«SYSMA(Cw+,
STA(K

017204 004767 003612
003
017210
000
017211
017212 010346

017214 106746
017216 105066 000001
017222 004767 003574

SEQ 0091

SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE.

004767 003636
00s
001
004567 002402
023637
010446

017176 106746
017200 105066 000001

23:00 PAGE 79

000044

11%:

:PUT THE PROCESS
HIGH BYTE CLEARED TO INSURE KERNEL MODE

$TYPOS
PC,
3
O
R3,-(SP)

:ON PSW RETURN.

;GO TO THE SUBROUTINE
::TYPE 3 DIGIT(S)
: ;SUPPRESS LEADING ZEROS
::SAVE R3 FOR TYPEQUT

:;TYPE ADDRESS BITS 14-0

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUT INE

CALLED FOR BY **SYSMA(w~«.
WIHTOUT USING A '‘TRAP'' INSTRUCTIONTHEAS PROCES
SOR STATUS ON THE STA(K

MFPS
CLRB
JSR

.BYTE
BYTE
MOV
MOV
MOV
MOV
TST
BNE
ADD
ADC
MOV

-(SP)
1(sP?
PC,

;PUT
_HIGH BYTE CLEARED TO INSURE KERNEL MODE
:ON PSW RETURN.
$TYPOS :GO YO THE SUBROUTINE

5§
1
(SP)+ ,LMEMH]
(SP)+,LMEMLO
(SP)+ R4
(SP)+,R3

ADD

TEMP
14%
#40000,R3
R4
R3,LMEMLO
R4 ,LMEMH]
#1,LMEMLO

ASL

MOV

ADC

BNE

LMEMH]

::TYPE 5 DIGIT(S)
::TYPE LEADING ZEROS
:;POP STACK INTO LMEMHI
;;POP STACK INTO LMEMLO
::POP STACK INTO R4
.
::POP STACK INTO R3
?
PRINTED
MAP
[N
:HAS LAST BIT
SYES,EXIT TO STACK CLEANUP
:UPGRADE TO TOP OF THIS BANK
;
:UPDATE LMEM T0 THIS BANK
N

SGET TO NEW LOW ADDRESS OF NEXT BANK
.

:POINT TO NEXT 8K BANK

SBRANCH IF MORE TO TEST IN THIS MAP ENTRY

04-AUG-81 23:00 PAGE 80
0-2 MEGAWORD MEMORY EXERCISER, 16Kk VER MACY11 30(1046)
SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE.
1
04-AUG-81 22:59
005720
023700
001220
005760
100203
005267
000625

(RO) +

-UPDATE POINTER TO NEXT TABLE ENTRY

168
TEMP
5%

“IF ZERO,TYPMAP PRINT COMPLETED
ELSE SET LAST BANK PRINT FLAG
"PRINT FOR LAST BANK

*IF NOT DONE WITH TABLE
" THEN TRY AGAIN
"CHECK IF LAST BANK AVAILABLE

P
BNE
TSt

SFENDBKT RO
3
22(RO)

mov

(SP) +,Ré4

.:POP STACK INTO R&

000207

138:

RIS

:RETURN TO CALLER

000000
000000
000000
000000

LMEMLO:
LMEMAI:
BNKTAB:
ENDBKT:

.WORD
.WORD
.WORD
.WORD

O
0
O
0

. LOW MEMORY ADR ... LO 16 BITS
* LOW MEMORY ADR ... HI 6 BITS
. ADDRESS OF TABLE TO BE PROCESSED
LAST ADDRESS + 2 OF TABLE

.SBTTL

SCOPE HANDLER ROUTINE

017352
177776
162440

BPL
INC
B

012604
01260_
012602
012601

017352

TST

128:

MOV
MOV
MOV

PGP STACK INTO R3
" POP STACK INTQ R2
“1POP STACK INTO R1

(SP) +-R3
(SP)+.R2
(SP)+ R1

; TO BE PROCESSED.

> 2 .ilttt*ttt*kt*itttitt"tt*'t.l’*ttt*'ttfittQtttttttt'ttl’ttitttt't

S*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT

INTO THE DISPLAY REG. (DISPLAY<7:0>)
:«AND LOAD THE TEST NUMBER(STSTNM) INTO
DISPLAY<15:08>
SxAND LOAD THE ERROR FLAG (SERFLG)

:«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
s *SW14=1
INHIBIT ITERATIONS
;xSW11=1
LOOP ON ERROR
; *SW09=1

LOOP ON TEST IN SWR<4:0>

;*SW08=1
;*CALL

: :SCOPE=10T

SCOPE

$SCOPE:

-x

106746
105066

004767
010516
032777
001117

"«

001042
161532

013746
012737
005737
012637
000466
022626
012637

MFPS

1%:

:PUT THE PROCESS

-(SP)

:HIGH BYTE CLEARED TO INSURE KERNEL MODE

1(SP)

$CKSWR

;ON PSW RETURN.

;GO TO THE SUBROUTINE

JSR

PC,

BI1T
BNE

#B]T14,35WR
$OVER

;:LOOP ON PRESENT TEST?
;:YES IF SW14=1

MOV

RS,

(SP)

:PUT RETURN PC ONTO STACK, SIMULATE JSR PC.

SHMRRASTART OF CODE FOR THE XOR TESTERWAAAX

MoV

SNERRVEC,-(SP)

::1F RUNNING ON THE 'XOR'' TESTER (HANGE
2:THIS INSTRUCTION TO A "NOP'‘' (NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR

4177060

*:TIME OUT ON XOR?

$XTSTR: BR

000416

017402
017406
017414
017420
017424
017426
017430

BY **SYSMA(+**.
WIHTOUT USING A ‘‘TRAP'' INSTRUCTION AS CALLED ORFORSTATUS
ON THE STACK
CLRB

000001

040000

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE 10 THE $SCKSWR ROUTINE

000004

017426

177060

Mov

000004

MOV
BR

cMP

MOV

#5$ ,aNERRVEC

(SP)+.3#ERRVEC
$SVLAD

(SP)+, (SP)+

(SP)+ GNERRVEC

::SET FOR TIMEOUT

- -RESTORE THE ERROR VECTOR
1160 TO THE NEXT TEST

““CLEAR THE STACK AF(ER A TIME OUT

- -RESTORE THE ERROR VECTOR

SEQ 0092

46:
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(10

P11

017434
017436

017436
017444
017446
017452
017456
017462
017464
017470

017472

017500
017502
017510
017512
017520
017522
017526
017532
017534
017542
017544
017550
017552
017556
017564
017566
017574
017602
017606
017614
017620
017624
017630
017636
017644

017650
017652

4029
4030

SCOPE HANDLER ROUTINE

04-AUG-81 22:59

000426
032777
001407
017746
042716

122667

001465

105767

001421

126767
101015

032777
001404
016767
000446
105067

005067
000415
032777
001011

005767

001406
005267
026767
002024
012767
016767
105267
116767

011667
011667
005067
112767
016777
016716
000207

000400

161464

000340
161410

161407

2%:
161373

001000

161420

161362

161356

004000

161366

7%:

161376

161310

000001
000052

161300
161356

161264
161260
161256
161254
161332
000001

161230
161226

000001

161364

1€1247
161266

3%:

1%:

$SVLAD:

$OVER:

000001

017662

004767

000542

#1708,aSwR
2%
aSWR,~(SP)

TST
BEQ
INC
CMP
B8GE
MOV
MOV

INCB
MOVB
MOV
(LR
MOVB
MOV
MOV

ENDINS: RTS
SMXCNT: 1

‘x

106746
105066

817
BEQ
MOV
8I1C
M8
BEQ
TS18
8EQ
cMP8
BHI
BIT

MOV

017654
017656

CLRB
CLR
B8R
8IT
BNE

161432
161316

::SET DESIRED TEST NUM. FROM SWR
::STRIP AWAY UNDESIRED BITS

, (SP)
#SSWRMK
(SP)+,$TSTNM
SOVER
SERFLG
3s

;2ON THE RIGHT TEST?
;:BR IF YES

:2HAS AN ERROR OCCURRED?

§§RMAX.$ERFLG

::BR IF NO

::MAX. ERRORS FOR THIS TEST OCCURRED?
::BR IF NO

;:LOOP ON ERROR?

2@1109.asun
S$LPERR, $LPADR
$OVER
$ERFLG
$TIMES
1%

;:BR IF NO

;:SET LOOP ADDRESS TO LAST SCOPE
;:ZERO THE ERROR FLAG

::CLEAR THE NUMBER OF [TERATIONS TO MAKE

;;ESCAPE TO THE NEXT TEST
:;INHIBIT ITERATIONS?

#81T11,3SWR

::BR IF YES

$ICNT
STIMES,$ICNT
SOVER
#1,$1CNT

SMXCNT ,$TIMES
$TSTNM
STSTNM_STESTN
(SP) ,$LPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX

::IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
b
: 2 INCREMENT ITERATION COUNT
:;CHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ]ITERATION REQUIRED
;;REINITIALIZE THE ITERATION COUNTER
::SET NUMBER OF ITERATIONS TO DO
::COUNT TEST NUMBERS
::SET TEST NUMBER [N APT MAILBOX
;;SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
::CLEAR THE ESCAPE FROM ERROR ADDRESS

::;ONLY ALLOW ONE(1) ERROR ON NEXT TEST

STSTNM,aDISPLAY ;;DISPLAY TEST NUMBER
;;FUDGE RETURN ADDRESS
$SLPADR, (SP)
;EXIT SCOPE ROUTINE BACK TO TEST.
PC
; ;MAX. NUMBER OF ITERATIONS

THE NEXT TWO INSTRUCTION S PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE
BY »#SYSMA(x+.
WIHTOUT USING A ''TRAP'' INSTRUCTION AS CALLED FORSTATUS
ON THE STACK
SOR
PROCES
:PUT THE
~-(SP)
MFPS
KERNEL MODE
INSURE
TO
D
:HIGH BYTE CLEARE
1(SP)
CLRB
JSR

PC,

$CKSWR

ERROR HANDLER ROUTINE

.SBTTL
P

::LO0P ON SPEC. TEST?
;:BR IF NO

;ON PSW RETURN.
;GO TO THE SUBROUTINE

b bdiebedainieiubatataiaiuiiotabduintaioiololaioioofabiaiofofolvio

AND THE ERROR COUNT,
“*THIS ROUTINE WILL INCREMENT THE ERROR FLAG OF
THE ERROR (ALL
S
*«SAVE THE ERROR ITEM NUMBER AND THE ADDRES
;*AND GO TO SERRTYP ON ERROR

4035
4038

4039

PAGE 81

;.LOOP ON THE PRESENT TEST

B8EQ
MOV
B8R

A ¥

161345
161426

23:00

65 : : RRRRREND OF CODE FOR THE XOR TESTERAANNN

161456

161403

c
8
04-AuG-81

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
:*SW15=1
;*SW13=1

;xSW10-1
;*SW09=1
;*CALL

HALT ON ERROR

INHIBIT ERROR TYPEOUTS

BELL ON ERROCR
LOOP ON ERROR

SEQ 0093

CVMSAA
TUMSAA,

4040
4041
6062

4043

4044
4045
64046

4047

4048
4049
4050
4051
405
405
6054
4055
4056

4057

4058
4059
4060
4061
4062
4063
4065
4066
4067
4069
4070
4071
6072
4073
4074
4075
4076
4077
4078
4079
4,080
4081
408¢
4083
4085
4086
4087
40838
4089
«ON
4092

4093

4094
4095

0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

04-AUG-81 22:59

ERROR HANDLER ROUTINE
ERROR

017666 106746
N17670 105066 000001

“»

017674
017700
017704
017710
017712
017720

004767
062716
105267
001775
016777
032777

000530
000002
78:
161163
)
161154 161212
002000 161202

017736
017742
017746
017754
017762
017770
017772
017776
858882
020004
020012
020014
020022

005267
011667
162767
117767
032777
001005
004767
004567
001171
122767
001007
116767
004767

1%:
161140
161140
000002 161132
161126 161122
020000 161140
000120
001572
208
000001 161202
161064 000004
002152

017726 001403

000
000

020030 009777
020032 005777
020036 100006
020040 000V00

BY »«SYSMA(wr,
WIHTOUT USING A "TRAP'' INSTRUCTION AS CALLEDSORFORSTATUS
ON THE STACK

21$:

161072

020042 106746
020044 105066 000001
004767
032777
001402
016716
005767
001402

020110 001001
020112 000000
020114

000207

MFPS
CLRB

JSR
ADD
INCB
BEQ
MOV
BIT
BEQ

:PUT THE PROCES
:Z&GgSBY;ETfithRED TO INSURE KERNEL MODE

-(SP)
1(SP)

$CKSWR ;GO TO THE SUBROUTINE
PC,
:ADJUST POINTER PAST CODE WORD.
(SP)
2,
“:SET THE ERROR FLAG
$ERFLG
IDON'T LET THE FLAG GO 10 ZERO
78
Y
STSTNM,aDISPLA ;;DISPLAY TEST NUMBER AND ERROR FLAG
::BELL ON ERROR?
#BIT10.aSwR
18

*INO - SKIP

$PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE.
“ADDRESS OF MESSAGE TO BE TYPED

JSR
_WORD

RS,
$BELL

BYTE
.BYTE

0
0

MFPS
CLRB

-(SP)
1(5P)

JSR
BIT
BEQ
MOV
TST
BEQ

$(KSWR
PC,
#81709,aSWR
4S$
SLPERR, (SP)
SESCAPE
S

BNE
HALT

SERTTL
INC
(SP) ,$ERRPC
MOV
RPC
#2,SER
SUB
.$ITEMB
3$ERRPC
MOVB
,3SWR
#BIT13
BIT
208
BNE
TYP
PC,SERR
JSR
$PRINT
RS,
JSR
$CRLF
.WORD
WAPTENV.SENV
CMPB
28
BNE
MOVB SITEMB 218
PC,SATY4
JSR_

:;COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION
;;STRIP AND SAVE THE ERROR ITEM CODE
::SKIP TYPEOUT IF SET
*:SKIP TYPEOUTS
:2G0 TO USER_ERROR ROUTINE
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
;:;RUNNING IN APT MODE
“INO,SKIP APT ERROR REPORT
ISET ITEM NUMBER AS ERRCR NUMBER
“:REPORT FATAL ERROR TO APT

: :APT_ERROR LOOP
:HALT ON ERROR
TST
28:
S:SKIP IF CONTINUE
38
BPL
“*HALT ON ERROR!
HALT
E AN INTERFACE TO THE $CKSWR ROUTINE
PROVID
CTIONS
s« THE NEXT TWO INSTRU
"« WIHTOUT USING A ''TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMACw*.
228:

000354
001000 161046 3%:
161010

48:
161066
s
020076 016716 161060
020102 022737 012560 000042
020114

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUTINE

017730 004567 001640
01773 001164

020C50
020054
020062
020064
020070
020074

SEQ 0094

SERROR:

017666

020026
020027

23:00 PAGE 8¢

63:

MOV
(WP
RTS

228

aSwWR

SESCAPE.(SP)
WSENDAD,a#42
PC

:PUT THE PROCESSOR STATUS ON THE STACK
“HIGH BYTE CLEARED TO INSURE KERNEL MODE
ON PSW RETURN.

+GO TO THE SUBROUTINE
::LOOP ON ERROR SWITCH SET?
:BR_IF NO
“ZFUDGE RETURN FOR LOOPING
“ICHECK FOR AN ESCAPE ADDRESS
“:BR_IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE
;:ACT-11 AUTO-ACCEPT?
“:BRANCH IF NO
*IVES

"t."fiI'

"".i'.Q"tt't.'ttfi't't*"t."t'ttt'"t'tlttttttttttQl'!tt

0~-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

ERROR HANDLER ROUTINE

04-~-AUG~-81 22:59

.SBTTL

8
£
Cu-AUG-81

PAGE 83

23:00

ERROR MESSAGE TYPEOUT ROUTINE

-«TH]IS ROUTINE USES THE '"ITEM CONTROL BYTETM ($ITEMB) TO DETERMINE WHICH
;*ERROR IS T 0 BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'' (SERRTB),
;~AND REPORT S THE APPROPRIATE [NFORMATION CONCERNING THE ERROR.

NGNS WN—=O
=20V
BN

b e

D ed

2F X 2X 32X 2E 2R ¥ o

—h
e

SN o

ed e
b e

Pl o

[p®12
1)V 15¥) M) =t ed b ed e ed o e =D

4109

020116
020116
020122
020124
020126
020130
020134

004567
001171
010046
005000
156700
001010

001452

020136

016746

160744

$ERRTYP:

MOV

CLR
BISB
BNE

160750

MOV
-

020142

020144

020150
020154
020156
020164
020172
020174
020176
020200
020207
020206
020212
020214
020220
020222
020226
020230
020234
020236
020c42
020244
020250
020252
020254
020256
020260
020264
020266
020272
020274

020276

106746
105066

000001

004767

002672

000516
016767
166767
005300
006300

006300
006300
066700
012067
001406
004567
000000
004567
001171
012067
001406
004567
000000
004567
001171

010146
012007
001454
066701
012000
066700
105720
001007
013146

JSR
. WORD

160724

160342

161320
161312

001354

001346
000006

001332
001324

2%:
3s:
4%:

5%:

160240

6%:

[

$ERRPC,~(SP)

:SAVE RO

;PICKUP THE ITEM INDEX

;1F ITEM NUMBER 1S 2ERO, JUST

:TYPE THE PC OF THE ERROR

::SAVE SERRPC FOR TYPEOUT

:;ERROR ADDRESS

;PUT THE PROCESSOR STATUS ON THE STA(CK
:HIGH BYTE CLEARED TO INSURE KERNEL MODE

-(SP)
1(SP)

JSR
BR
MOV
SuB
DEC

$TYPOC
PC,
10$
$ERRPC, $VERPC
RELOCF, $VERPC

BEQ
JSR
. WORD
JSR
.WORD
MOV

BEOQ
JSR
.WORD
JSR
. WORD
MOV
MOV

ADD
MOV
ADD

1STB
BNE
MOV

MFPS
CLRB

BEQ

160246

$I1TEMB,RO

:GO PRINT OUT THE FOLLOWING MESSAGE.
JADDRESS OF MESSAGE TO BE TYPED

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOC RUUTINE
WIHTOUT USING A ‘‘TRAP'' INSTRUCTION AS CALLED FOR BY *«SYSMA(w+.

ASL
ASL
ASL
ADD
MOV

161624
000006

$PRINI
RS,
SCRLF
RO,-(SP)
RO

;ON PSW RETURN.

:G0 TO THE SUBROUTINE
:GET ouT

:SET UP VIRTUAL PC FOR TYPEOUT.
:MAKE VIRTUAL ]F NOT ALREADY.
;ADJUST THE INDEX SO THAT IT WILL
N

.ERRTB, RO

(RO)+,2%
3$

RS,

$PRINT

$PRINT
RS,
$CRLF
(RO)+,4%

RS.

$PRINT

0
$PRINT
RS,
$CRLF
R1,-(SP)
(RD)+ R1
9%
RELOCF, R1
(R0)+,RO

RELOCF., RO
(RO)+
7%

a(R1)+,-(SP)

WORK FOR THE ERROR TABLE

:FORM TABLE POINTER

:PICKUP 'ERROR MESSAGE'" POINTER
:SKIP TYPEOUT IF NO POINTER
;GO PRINT OUT THE FOLLOWING MESSAGE.
:"ERROR MESSAGE'' POINTER GOES HERE
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
:PICKUP ''DATA HEADER'' POINTER
:SKIP TYPEOUT IF O

:GO PRINT OUT THE FOLLOWING MESSAGE.

:"DATA HEADER'' POINTER GOES HERE

:GO PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
;SAVE R1
:PICKUP 'DATA TABLE'® POINTER
;BR IF NO DATA TO BE TYPED

:ADJUST POINTER
:PICKUP 'DATA FORMAT'' POINTER
TER.
POIN
UST
:ADJ

;CHECK THE FORMAT
:BR IfF NOT 16-BIT OCTAL
)+ FOR TYPEQUT
@(R1
E
::SAV

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOC ROUTINE
WIHTOUT USING A “‘TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMA(s#»,

SEQ 0095

0~2 MEGAWORD MEMORY EXERCISER. 16K VER MACY11 30(1046) 04~AUG-81

(VMSAA
{VMSAA P

6152
4153
6154
6155
4156
6157

4158

4159
4160
4161
4162
4163
4164
4165
64166
4167
4168
6169
4170
L7
4172

6173
4174
6175

6176

46177
4178
4179
4180
4181

4182

4183
4184
4185
4186
4187

4188
4189
4190
LN

4192
4193

4194
4195
4196
64197
4198
4199
4200
4201

4202
4203
4204
4205
4207

ERROR MESSAGE TYPEOUT ROUTINE

04~-AUG-81 22:59

020300
020302

10674€
105066

020306
020312
020314
020316

006767
000430
100407
013146

020320
020322

106746
105066

020326
020332
020334
020342
020344
020346
020352
020354
020354
020356

004767
000420
122760
001004
013146

004767
000410

020366

004767
003
001
005711
001404
004567
020424
000731

020406

020410
020412
020414
020420
020422
020424

002534

7%:

-«
“«
000001

177777

012601
012600
004567
001171
000207
020040
020430

17%-

:«

“x

B8MI
MOV

17%
a(R1)+,-(SP)

JSR

PC,

$TYPDS

(MPB
BNE

-1,
18%

-1(R0O)

JSR

PC,

$TYPAD

CLR
MOVB

;ON PSW RETURN.

GO TO THE SUBROUTINE

;BRANCH IF NOT DECIMAL
;;SAVE a(R1)+ FOR TYPEQUT

a(R1)+, -(SP)
8%

-(SP)
a(R1)+, (SP)

;ON PSW RETURN,

;GO TO THE SUBROUTINE

;SK]P

;CHECK FOR 22-BIT ADDRESS FORMAT.
;BR IF NOT 22-BIT ADDRESS FORMAT.
;PUT THE DATA ON THE STACK.

:DETERMINE THE PHYSICAL ADDRESS AND TYPE [T.

:SKIP

;CLEAR THE WORD ON THE STACK.
;PUT THE DATA ON THE STACK.

$TYPOS ROUT INE
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO BYTHE**SYSM
A(w+.

WIHTOUT USING A “‘TRAP'' INSTRUCTION AS CALLED ORFORSTATUS ON THE STACK

000001

002430

8%:
001170

MFPS
CLRB

-(SP)
1(SP)

JSR
.BYTE

PC.
3

TST

(R1)

BYTE

BEQ

9% :
10%:

:PUT THE PROCESS
;HIGH BYTE CLEARED TO INSURE KERNEL MODE

$TYPOS

;GO TO THE SUBROUTINE
;TYPE 3 DIGITS.

;1S THERE ANOTHER NUMBER?

$PRINT

RS,
11%

MoV
MoV
JSR
.WORD

(SP) +,R1
(SP)+,RO
S$PRINT
RS,
$CRLF

PC
/7

11%:

RTS
LASCIZ

.SBTTL

TTY INPUT ROUTINE

.EVEN

;ON PSW RETURN.

;TYPE LEADING ZEROS.

JSR
.WORD

B8R

000

$TYPOC

gg.

188

001154

;PUT THE PROCESSOR STATUS ON THE STACK

;HIGH BYTE CLEARED TO INSURE KERNEL MODE

1(SP)

égR

MOV

002736

=-(SP)

SEQ 0096

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPDS ROUTINE
BY *+SYSMA(+«.
WIATOUT USING A ‘‘TRAP'* INSTRUCTION AS CALLEDORFORSTATUS
ON THE STACK
:PUT THE PROCESS
-(SP)
MFPS
;HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB

002236

113116

106746
105066

020404

CLRB

000001

005046

020360
020362

020372
029373
020374
020376
020400

MFPS

23:00 PAGE 84

:BR IF NO

;GO PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
;LOOP

;RESTORE R1
;RESTORE RO
;GO PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
- RETURN
;DOUBLE SPACE

ttt

-'fittttttttttttt*tttttttit'tttttkttttttttt'ttttt‘*t'tttttttntt

"ENABL

LSB

"tfittfitttttttttt*tttttt!tt*fifitiifi**titi‘tttttttitttttt*tQttttttt

:*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
S«ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

020430
020436
020440

022767

000176

105777

160470

001105

160472

“+SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP (ALL
;*WHEN OPERATING IN TTY FLAG MODE.
::1S THE SOFT-SWR SELECTED?
#SWREG, SWR
$CKSWR: (MP
BNE

TS18

'5%

a$TKS

;:BRANCH IF NO
;:CHAR THERE?

G 8
04-AUG-81

VMSAA
Q=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)
TTY INPUT ROUTINE
04~-AUG-81 ¢2:59
{ VMSAA, P11

4208
4209

4270
421

4212
4213
6214
6215
4216

4217
4218
4219
4220
6221
4222
4223
4224
4225
4226
6227
4228
4229
4230
4231

4232

4233
423%
4235
423%6
4237
4238
4239
4240
4241
4242
4243
4244
4245

4246

4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263

020444
020446
020452
020456
020462
020464
020472

100102
117746

042716
022726

001073

8PL
]
BIC
Mp
BNE
cMP8
BEQ

160464
177600

000007
000001

126727
001467

160434

020474
020500
020502
020502
020506
020510

0046567
021371

001074

004567
021376
016746

001066

020514
020516

106746
105066

020522
020526
020532
020534
020536
020240

002320
001042

020944

004767
004567
021407
005046
005046
105777
100375

020546
020552

117746
042716

160364

020556
020562
020564
020570
020572
020576

021627
001006
004567
021364
062706
000756

000025

000006

20%:

020600
020604
020606
020612
020614
020622
020626
020626
020632
020634

021627
001023
005766
001403
016677
062706

000015

10%:

004567
001177
126727
001003
012777
000002
004767
021627
002420

000742

020642
020644
020652
020654
020660
020664

$GTSWR:

157462

;+
;v

19%:

7%:

177600

9%:

001004

000004
000002
000006

160306

160265

000001

000100

160262

001160
000060

JSR

a$TKB, - (SP)

#~C177.(SP)
#7.(SP)+

158
$AUTOB,#1

;1F NO, DON'T WAIT AROUND

SSAVE THE CHAR

;STRIP-OFF THE ASCI!

..IS IT A CONTROL G?
.NO. RETURN TO USE~r
ARE wWE RUNNING IN AUTO-MODE?
::BRANCH IF YES

158

RS,

$PRINT

RS,
SMSWR

$PRINT

$CNTLG

PAGE 85

:GC PRINT OUT THE FOLLOWING MESSAGE.
*ADDRESS OF MESSAGE 10 BE TYPED
;GO PRINT OQUT THE FOLLOWING MESSAGE.

SWREG,=-(SP)

ADDRESS OF MESSAGE TO BE TYPED
;SAVE SWREG FOR TYPEOUT

MFPS
CLRB

-(SP)
1(SP)

;PUT THE PROCESSOR STATUS
HIGH BYTE CLEARED TO INSURE KERNEL MODE

JSR
JSR
.WORD
(LR
CLR
1818
BPL

PC.
RS,
SMNEW
-(SP)
~(SP)
a$TKS
7%

MovB
BIC

a$TKkB,-(SP)
#~C177,(SP)

;;PICK UP (HAR

(MP
BNE
JSR
.WORD

(SP) 425

;1S IT A CONTROL-U?
BRANCH IF NOT

.WORD
MOV

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE
(x+,
WIHTOUT USING A '‘TRAP' INSTRUCTION AS CALLED FOR BY *xSYSMA
ON THE STA(K

000001

160370

JSR
.WORD

158

23:00

ADD
BR

cMP
BNE
TST
BEQ
MOV

108
RS,

$CNTLU
#6,SP
19%

$TYPOC
$PRINT

;G0 TO THE SUBROUTINE

;GO PRINT QUT THE FOLLOUING MESSAGE.
ADDRESS OF MESSAGE "0 BE TYPED
;CLEAR COUNTER
::THE NEW SWR

::CHAR THERE?

::IF NOT TRY AGAIN

$PRINT

JoMAKE IT 7-BIT ASCII

GO PRINT OUT THE FOLLOWING MESSAGE.
ADDRESS OF MESSAGE TO BE TYPED
IGNORE PREVIOUS INPUT
SLET'S TRY IT AGAIN

;IS IT A <(CR>?
BRANCH IF NO
,,YES IS IT THE FIRST CHAR?
2(SP) ,aSWR

ADD

#6,SP

JSR
.WORD
cMP8
BNE

RS,
$CRLF

JSR
(MP
BLT

PC,S$TYPEC

MOV
RTI

;ON PSW RETURN.

$PRINT

,
SINTAG#1
15%

#100,98TKS

(SP) ,#60

18%

; ;BRANCH IF YES
;:SAVE NEW SWR
::CLEAR UP STACK

:GO PRINT OUT THE FOLLOWING MESSAGE.
ADDRESS OF MESSAGE TO BE TYPED
::RE-ENABLE TTY KBD INTERRUPTS?
: :BRANCH IF NOT
'-RE-ENABLE TTY KBD INTERRUPTS
RETURN

ECHO CHAR

;CHAR < 0?
BRANCH IF YES

SEQ 0097

(VMSAA

* /MSAA,P1I
L2646

04-AUG-B1 22:59

TTY INPUT ROUTINE
cMP

020666 021627 000067

8GT

4265 020672 003015

BIC

6066 020674 042726 000060

4267
4268
4269
4270
4271
4272
4273
4274
4275

020700
020704
020706
020710
020712
020714
020720
0207264

020726

005766 000002
001403
006316
006316
006316
005266 000002
056616 177776
000705

4276 020726 004567 000642
4277 020732 001170
4278 02073
4279

000716

4280

17%:
18$:
.DSABL

1,282

o=CALL:

4285

te
T

4,286
4287

LSB

::CHAR > 7?

(SP) . #67

188

#60, (SP)+

2(SP)
178
(SP)
(SP)
(SP)
2(SP)
=2(SP), (SP)
7%

RS,
SQUES
20$

YES
IFCH
S BRAN

S.STRIP-OFF ASCII

231S THIS THE FIRST (HAR
“:BRANCH IF YES
*:NO, SHIFT PRESENT
22 "CIIAR OVER TO MAKE
ROOM FOR NEW ONE.
*+
* KEEP COUNT OF CHAR
SSSET IN NEW CHAR
“SGET THE NEXT ONE

$PRINT :GO PRINT OUT THE FOLLOWING MESSAGE.
*ADDRESS OF MESSAGE TO BE TYPED

RDCHR

RETURN HERE

4288
4,289

4290 020736 011646

020740 016666 000004 000002
4292 020746 105777 160162
4293 020752 100375
4294 020754 117766 160156 000004
4291

4295 020762 042766 177600 000004
4296 020770 026627 000004 000023
020776 001013
021000 105777 60130
021004 100375
021006 117746 160124
4301 021012 042716 177600
4302 021016 022627 000021
4303 021022 001366
4304 021024 000750

4297
4298
4299
4300

$RDCHR: MOV

1$:

2%:

021044
021046
021054
021056
021064

(SP) .= (SP)

MOV

4(SP),2(SP)

BPL
MOVB

1%
as$TkB, 4 (SP)

TSTB

8IC
cMP

- SIMULATE CONTROL-U

as$TKS

;s INPUT A SINGLE CHAKRACTER FROM THE TTY
**CHARACTER IS ON THE STA(K
SWITH PARITY BIT STRIPPED OFF

::PUSH DOWN THE PC
::SAVE THE PS
::A CHARACTER
S“READ THE TTY

::WAIT FOR

IF ANY
H#AC<177>,4(SP) ::GET RID OF JUNK S?
CONTROLA
IT
SIS
,#23%
4(SP)

CMP
BNE
BR

3%
asTKS
2$
a$TkB,-(SP)
#-C177,(SP)
(SP)+,421
2s
1$

$:BRANCH IF NO
S*WAIT FOR A CHARACTER
-:LOOP UNTIL ITS THERE
2 2GET CHARACTER
SSMAKE IT 7-BIT ASCII
2:1S IT A CONTROL-Q?
221F NOT DISCARD IT
::YES, RESUME

cMP
BLTY
cMP
BGT

4(SP) ,#140
48
4(SP) %175
48

+21S IT UPPER CASE?
::BRANCH IF YES
YIS IT A SPECIAL CHAR?
::BRANCH IF YES

BNE
TSTB
BPL
MOVB

BIC

4305 021026 026627 000004 000021 3%:
4306 021034 001744
4307 021036 026627 000004 000140

2%%3

JSR
.WORD

SEQ 0098

“%THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

2532

4317

TST
BEQ
ASL
ASL
ASL
INC
BIS
8R

23:00 PAGE 86

:"tttttttttttttttttttfittt'ttttttttt'ttfitttttttttttkt*ttt'tfittttt'

4081

4308
4309
4310
4311
4312
(.313
4314
4315
4316

=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

cMP
BEQ

4(SP) ,A$XON
1$

:21S IT A RANDOM XON?
:*BRANCH IF YES

; RANOO1
+RANOO1

002407
026627 000004 000175
003003
::MAKE IT UPPER CASE
#60,4(SP)
BIC
042766 000040 000004
1:60 BACK TO USER
RT]
4$:
000002
:.-tttttttttttttnttttttttttttt'ttttllfittt.tttttttttttttttttttttttt
“*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
S*CALL:
::INPUT A STRING FROM THE TTY
,
RDL IN
I
WILL BE ON THE STA(K

RETURN HERE

"*ADDRESS OF FIRST CHARACTER

* TERMINATOR WILL BE A BYTE OF ALL 0'S

/MSAA

MSAA PN
4320
6321
6322
4323
6324
4325
4326

04~AUG~-81 22:5%

027066
021070
021072
021076
021102

01034€
005046
012703 021354
022703 021364
101470

4327 021104 106746
4328 021106 105066 000001

4329
4330
4331
4332
4333
433,
4%35
4336

4337
(338

4339
(30

4341
6342
433
4344
4345

L3%6
4347
4348
439
4350
4351
4352
4353
4354

021112
021116
021120
021124
021126
021130
021132
021140
021144
021146
021152
021154
021160
021162
021166
021172
021174
021176
021200
021202
021210
021214
021216
021220
021224

4355 021226
4356
4357
4358
4359
430
4361
4362
4363
434
4365

021232
021234
021236
(021242
021244
021246
021252
021254
021260
021262

4367
4368
4369
4370
4371
4372

021264
021270
021272
021274
021300
021304

4366

0-2 MEGAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046) 04~AUG-81 23:00 PAGE 87

021264

4373 021306
4374 021312
4375 021314

004767
112613
122713
001024
005716
001010
112767
004567
021352
012716
005303
020327
103441
111367
004567
021352
000740
005716
001407
112767
004567
021352
005016
122713

177620
0060177

::SAVE R3
R3.-(SP)
SRDL IN: MOV
::CLEAR THE RUBDUT KEY
~(SP)
CLR
::GET ADDRESS
#STTYIN, R3
“OV
1$:
;:BUFFER FULL?
RY
IN+B.
#STTY
o
€,
2$:
;:BR IF YES
43
aL0s
AN INTERFACE TO THE SRDCHR ROUTINE
PROVIDE
IONS
INSTRUCT
TWO
NEXT
THE
:«
e:.
“a WIHTOUT USING A '‘TRAP'" INSTRUCTION AS CALLED FOR BY =*SYSMAC
ON THE STACK

10%:

177777

021354
000164
000402

-(SP)
1(SP)

JSR
MOVB
CMPB
BNE

$ROCHR
PC,
(SP)+, (R3)
#177,(R3)
5%
{SP)
63
#'\,9%
$PRINT
RS,
9%
#-1,(SP)
R3
R3.4#S$TTYIN
43
(R3),9%
$PRINT
RS,
9%
2%
(SP)
7%
#'\,9%
$PRINT
RS,
9%
(SP)
#25,(R3)

TST
MOVR
JSR
.WORD

6%:

MOV
DEC

5%:

BR
TST
B8EQ
MOVB

000134 000142

000360

7%:

8%:

4%:

1s:

;PUT THE PROCESSOR STATUS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE

MFPS
CLRB

BNE

0001346 000212
000430

000025
004567 000342
021364
000716
122713 000022
001014
105013
004567 000322
0011721
004567 000314
021354
000705
004567 000304
001170
000677
111367 000052
004567 000270
021352
122723 000015
001271
105063 177777

001004

TTY INPUT ROUTINE

CMP
8LO
MOVB
JSR
.WORD

JSR
.WORD
CLR
CMPB
BNE
JSR

.WORD
BR
CMPB
BNE
CLRB
JSR
. WORD
JSR
.WORD
B8R

JSR
.WORD
B8R
MOVB
JSR
.WORD
(MPB
BNE
CLRB

RS,

;ON PSW RETURN.
;GO TO THE SUBROUT INE
::GET CHARACTER
;oIS 1T A RUBOUT
;:BR IF NO
::1S THIS THE FIRST RUBOLT?
;:BR IF NO
;:TYPE A BACK SLASH

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
::SET THE RUBOUT KE)
::BACKUP BY ONE

::STACK EMPTY?
::BR IF YES
;:SETUP TO TYPEOUT THE DELETED CHAR.
;GO PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE T0 BE TYPED

::;G0 READ ANOTHER CHAR.
: :RUBOUT KEY SET?
::BR JF NO
;:TYPE A BACK SLASH
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
;:CLEAR THE RUBQUT KEY
::1S CHARACTER A (TRL U?
;;BR IF NO

$PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE.

:ADDRESS OF MESSAGE TO BE TYPED
SCNTLU
::GO START OVER
1%
::1S CHARACTER A "“R'7?
#22.,(R3)
; ;BRANCH IF NO
33
::CLEAR THE (HARACTER
(R3)
$PRINT :GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
:ADDRESS OF MESSAGE TO BE TYPED
$CRLF
$PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
;ADDRESS OF MESSAGE TO BE TYPED
$STTYIN
::G0 PICKUP ANOTHER CHACTER
2%

$PRINT
RS,
$QUES
1%
(R3),9%
$PRINT
RS,
9%
#15.(R3)+
2%
-1(R3)

;GO PRINT OUT THE FOLLOWING ME SSAGE .
:ADDRESS OF MESSAGE TO BE TYPED
::CLEAR THE BUFFER AND LOOP
:;ECHO THE CHARACTER
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
:;CHECK FOR RETURN
::LO0P IF NOT RETURN
;;CLEAR RETURN (THE 15)

SEQ 0099

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)
T1Y INPUT ROUTINE
PY?
06~AUG-81 22:59
02320

004567

001172
005726
012603

011646

000250

000004
021354

$PRINT
RS,
SLf
(SP) +
(SP)+_R3

MOV

#STTYIN,L(SP)

RTI

.BYTE

9% :
005015
006507
053523
000
047040
000040

JSR
.WORD
TST
MOV

MOV
MOV

000002
000004

.BYTE

04~AUG-81

(SP) ,-(SP)
4L(SP) ,2(SP)
0

23:00

; ;RETURN

::STORAGE FOR ASCII CHAR, TO TYPE
:; TERMINATOR
:;RESERVE B BYTES FOR TTY INPUT
::CONTROL 'V’
::CONTROL ''G""

000
000012

SMSWR:

.ASCIZ

053505

SMNEW:

.ASCIZ

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

020122

/*U/<15><12>
/4G/<15><12>

<15><12>/5WR = /
/

SEQ 0100

;GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS CF MESSAGE TO BE TYPED
;:CLEAN RUBQUT KEY FRUM THE STA(K
;RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCI1 CHARA(TER ON IV
i

$TTYIN: .BLKB
$CNTLU: .ASCIZ
$CNTLG: .ASCIZ

PAGE 88

NEW =/
t

N ‘ttttttt""ttfit.t't!ttt"'tti'ttQtttti.t'It‘tt!ttfitttttttfitt't

S«THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:x(HANGE IT TO BINARY.

ARE LEGAL
©»THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY WILL
BE TYPED
‘'
A
READ
IS
TER
«0OCTAL DIGITS. IF AN ILLEGAL CHARAC
MUST
NUMBER
TE
COMPLE
THE
FEED.
-LINE
©«FOLLOWED BY A CARRIAGE RETURN
RETURN.
GE
CARRIA
A
TYPING
BY
ATED
TERMIN
:'EREN BE RETYPED. THE INPUT 1S
;*CALL:
:;READ AN OCTAL NUMBER
RDOCT
;
ORDER BITS ARE ON TOP QF THE STACK
;;LOW
RETURN HERE
i
;;HIGH ORDER BITS ARE IN SHIOCT
i
021420
021422
021430

021432
021434
021436

021436
021440
121444

V21450
021452
021456
021460
021462
021464
021466
021472
021474
021500
021502
021504
021506

011646
016666
010046
010146
010246

000004

000002

$RDOCT: MOV
'

s«
106746

105066

004767
012600
010067
005001
005002

000001
177416

2%:

001420
122716

000060

122716

000067

003026

002423
006301

006102

006301

4(SP) ,2(SP)
RO,~-(SP)
R1,-(SP)
R2.~(SP)

;:PROVIDE SPACE FOR THE

; INPUT NUMBER
;;PUSH RO ON STA(K
;;PUSH R1 ON STACK
;:PUSH R2 ON STA(K

SRDLIN ROUT INE
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACEFORTOBYTHE**SYSM
A(#*.

WIHTOUT USING A ‘'TRAP'' INSTRUCTION AS CALLED OR STATUS ON THE STACK
;PUT THE PROCESS
-(SP)
MFPS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB
$RDLIN

:ON PSW RETURN.

:GO TO THE SUBROUTINE

JSR

PC,

MovY
(LR

RO,53
R1

Mova
BEQ
CMPB
8GT

(RO)+,~-(SP)
3%
#°'0,(SP)
A3

::PICKUP THIS CHARACTER
::1F 2ERO GET QUT
;:MAKE SURE THIS (HARACTER
;:1S AN OCTAL DIGIT

;ove

MOov

000102

112046

MOV
MoV
MOV
MOV

(SP) ,=(SP)

(LR

(MPB
BLT

ASL

ROL

{(SP)+ RO

#'7,(SP)
4%
R2

::GET ADDRESS OF 1ST CHARACTER
;:AND SAVE IT
::CLEAR DATA WORD

JMSAA

0-2 MEGAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046) 04-AUG-81

4632

027510

VMSAA P11

04-AUG-81 22:59

READ AN OCTAL NUMBER FROM THE TTY

006102

ROL

006102

ROL

ASL

4633 021512 006301
L6%

4435
4636
4637
6638
4439
4440

4441
4642
4643
4644
4445
44646
4447
4448
4449
46450
4451
222%

021514

021516
021522
021524
021526
021530

042716 177770
062601
000756
005726
010166 000012

021540
021542
021544
021546
021550
021552
021554
021560
021562
021566
021570
021572

012602
012601
012600
000007
005726
105010
004567 000014
000000
004567 000006
001170
000722
000000

021534

010267

00003¢

8IC
ADD
BR
1ST
MOV

3%:

MOV

MOV
MOV
MOV
RT!
187
4%:
CLRB
JSR
.WORD
5%:
JSR
.WORD
BR
$HIOCT: .WORD

23:00 PAGE 89

#~C7,(SP)
(SP)+ R
2%
(SP)+
R1,12(SP)

R2,$HIOCT

(SP)+,R2
(SP) +,R1
(SP)+,RO
(SP)+
(RO)
$PRINT
RS,
0
$PRINT
RS,
$QUES
1%
O

;sSTRIP THE ASCI1 JUNK
:sADD IN THIS DIGIT
;:L00P
;. CLEAN TERMINATOR FROM STA(K
;sSAVE THE RESULT

;:POP STACK INTO RZ
;:POP STACK INTO R1
;:POP STACK INTO RO
s JRETURN
;:CLEAN PARTIAL FROM STACK
;.SET A TERMINATOR
;GO PRINT OUT THE FOLLOWING MESSAGE.
;GO PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
;. TRY AGAIN
;:HIGH ORDER BITS GO HERE

4454

:"tttttt*ttttttttttttittttttttttttttttt'ktttttttttttt*ttttttttttnt

4456
4457

;*
o

‘% SUBROUTINE TO PASS RELOCATED MESSAGE ADDRESSES TO THE STYPE ROUTINE .

4455

4458

4459 021576 012567 000020
4660 021600 066767

156726 000012

4461
4462
4463 021606 106746
4464 021610 105066 000001

4465
4466 021614 004767 000004
4467 021620 000000
2223 021622 000205

SPRINT
RS,
JSR
<MESSAGE VIRTUAL ADDRESS>

CALL:

:;-tt:tttnttttttnwttttttrttttaattntttt.tttttnttttttttatntatt\ntt-

(R5)+,

;GET THE MESSAGE VIRTUAL ADDRESS.

JSR

PC.

$TYPE

RTS

;ON PSW RETURN.
;GO TO THE SUBROUTINE
;CONTAINS THE PHYSICAL MESSAGE ADDRESS.
;RETURN.

$PRINT: MOV

IT PHYSICAL.

JMAKE
RELOCF, 18
ADD
CE TO THE STYPE ROUTINE
:+ THE NEXT TwWO INSTRUCTIONS PROVIDE AN INTERFA
CALLED FOR BY *xSYSMA(C**,
“x WIHTOUT USING A '‘TRAP'* INSTRUCTIONTHEAS PROCESS
OR STATUS ON THE STACK
;PUT
-(SP)
MFPS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB

1%:

.WORD

4472

TYPE ROUTINE
'-;ttttttttttttttttfitttitttttttt*t*tttttttttt*tttttttttttttttttttt

22;‘7;

;*NOTE3:

.SBTTL

22;?

TERMINATE WITH A O BYTE.
“*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST
AFTER A LINE FEED.
“«THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS
AS THE FILLER CHARACTER.
USED
$NULL CONTAINS THE CHARACTER TO BE
S«NOTET:
ERS REQUIRED.
CHARACT
$FILLS CONTAINS THE NUMBER OF FILLER
:*NOTE2:

4473
G474
4475
4476

;*CALL:

4479

;*1) USING A TRAP INSTRUCTION

4480

4481

4482
4483
4484
4485
4486

4487 021626

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

TYPE

;*OR
o
:*

TYPE
ME SADR

$TYPE:

TSTB

105767 157317

.MESADR

; :MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

;;1S THERE A TERMINAL?

SEQ 0101

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)
TYPE ROUTINE
04-AUG-81 22:59
P

021634
021636

021640
021644

021652
021654

021662
021664
021670
021674
021676
021704
021706
021710

021712

021714
021716
021722
021726
021730
021732
021736
021740
021742
021746
021750
021754
021756

021762

021766
021770

021774
022000
022002
022006
022012

000002
000001

157342

000100

157333

8PL
HALT
BR
MOV
MOV
cMP8
BNE
BITB

157311

MOV
JSR
.WORD
B1TB

100002

000000
000430
010046
017600
122767
001011
132767

001405
010067
004767
000000
132767
001003

1%:

000004
000274
000040

61%:
62%:

000002

60%:
3%:

122716

000011

122716

000200

001431

001007
005726
004567
001171
105067
000754
004767
126726
001347
016746
105366

002770
004767
105367
000770

BNE

2%:

112046

001005
005726
012600
062716
000002

BEQ

MovB
BNE
TST
MOV
ADD
RT!
CMPS
BEQ
CMPB
BNE
TST
JSR
$CRLF
CLRB
BR
JSR

177626
000202
5%:
6%:

000056
157160

CMPB
BNE
Mov

157150

DECB
BLT
JSR
DECB
BR

7%:

000001

000032
000144

33
RO, -(SP)

23:00

PAGE 90

SEQ 0102

;sBR IF YES
;;HALT HERE IF NO TERMINAL
LEAVE

..SAVE RO
;:GET ADDRESS OF AS(CIZ STRING
a@2(SP) ,RO
HAPTENV, SENV
..RUNNING IN APT MOCE
:NO,GO CHECK FOR APT (ONSOLE
62%
#APTSPOOL,SENVM ;SPOOL MESSAGE TO APT
..NO GO CHECK FOR CONSOLE
62%
SETUP MESSAGE ADDRESS FOR APT
RO,61%
:SPOOL MESSAGE TO APT
PC,SATY3
0

#APTCSUP ,$ENVM

60%

(RO)+,-(SP)

43
+
(SP)

(SP)+,R0O

MESSAGE ADDRESS
APT CONSOLE SUPPRESSED
:YES,SKIP TYPE OUT

PUSH CHARACTER TO BE TYPED ONTO STACK
BR IF IT ISN'T THE TERMINATOR
:IF TERMINATOR POP [T OFF THE STACK

,,RESTORE RO

K2, (SP)

;:ADJUST REIURN PC

, (SP)
AHT

::BRANCH IF <HT>

8%
#CRLF, (SP)
5%
(SP)+
SPRINT
RS,

$CHARCNT
2%
PC,S$TYPE(

$FILLC,(SP)+
2%
SNULL ,~(SP)
1(SP)

PC,STYPEC
$CHARCNT
7%

:sRETURN

; ;BRANCH IF NOT <CRLF>
;POP

<CR><LF> EQUIV

GO PRINT OUT THE FOLLOWING MESSAGE.
;CLEAR CHARACTER COUNT
$GET NEXT CHARACTER
;GO TYPE THIS CHARACTER

;IS IT TIME FOR FILLER CHARS.?
$:IF NO GO GET NEXT CHAR.
;;GET # OF FILLER CHARS. NEEDED
;;AND THE NULL CHAR.
L

021630
021632

L 8
04-AUG-81

;DOES A NULL NEED TO BE TYPED?
‘BR IF NO--GO POP THE NULL OFF OF STACK
;GO TYPE A NULL

;:D0O NOT COUNT AS A COUNT
;. LOOP

022062

022064

004767
132767

001372

000040
000014
000007

005726
000723
105777
100022
017746
042716
122716

001012

157070

157064
177600

000124

TST

¥' ,(SP)
PC,$TYPEC
#7,$CHARCNT
9%
(SP)+

TSTB
8PL

a$7KS
10%

MOVB
JSR
8178
BNE

8%:
9%:

$TYPEC:

)

000023
101%:

MoV
BIC
(MPRB
BNE

= (SP)
%$TKB,

#177600, (SP)
F
, (SP)
H#SXOF
1028

112716

REPLACE TAB WITH SPACE
TYPE A SPACE

‘eBRANCH IF NOT AT

;. TAB STOP
;:POP SPACE OFF STACK

;:GET NEXT CHARACTER

;: CHAR IN KYBD BUFFER?
;BR _IF NOT
JGET CHAR

\.\.\

022C14
022020
022024
022032
022034
022036
022040
022040
022044
022046
022052
022056

;HORIZONTAL TAB PROCESSOR

;;STRIP EXTRANEOUS BITS
: ;WAS CHAR XOFF
::BR IF NOT

:MJD001
;MJDOO
:MJDOO1
:MJDOO1
;MJDOOT
:MJDO01

:mMJD001

( VMSAA

0-2 MEGAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046)

{ VMSAA PN

6544
4545
6546
6547
4548

4549

4550

4551
4552
4553
4554
4555
4556

4557
4558

4559
4560
4561
4562
4563
4564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4,586
4587
4588
4589
4590
45N
4592

04-AUG-81

PAGE 9

23:00

04-AUG~81 22:59

TYPE ROUT INE

157044

1578
BAL
MOVB
BIC
CMPS
BNE

a$TKS
1018

as$TkB, (SP)

#177600, (SP)
#SXON, (SP)
1018

:;GET CHAR
::STRIP 1T
ssWAS IT XON?
;:BR IF NOT

TST

+
(SP)

;oFIX STACK

022064
022070
05072
002076
022102
022106
022110
022110
022112
022112

022116

022120
022126
022134
022136
022142
022144
022152
022154
022156
022160

022162
022170
022176
022200
022206
022206
022210
022212
022216
022220
022226
022230
022236
022240
020244
022252
022256
022260
022264
022266
022270
022274
022276
022302
4593 022310
4594
022312
4595
002320
4596
002326
4597 020332
4598
022336
4599 022340

105777
100375
117716
042716
122716
001366

157040
177600
000021
1028:

005726
105777
100375
116677
122766
001003
105067
000406
122766
001402
1052.7
000000
000207

108:

157022

000002
000015

157014
000002

000014

000012

000002

MOVB
CMPB
BNE
CLRB
BR
CMPB
18:
BEQ
INCB
$CHARCNT: . WORD
STYPEX: RTS
.SBTTL

112767
112767
000403
112767

010046
010146
105767
001450
122767
001031
132767
001425
017600
062766
005767
001375
010067
105720
001376
166700
006200
010067
012767
000413
017667
062766
016746
004767
000000

000376
000366

$ATY1:
SATY3:

000001

000360

$ATY4:
SATYC:

000346

156766

000100

156757

000004
000002
156716

000004

156724

1$:

28:

156714
156710
000004

000004
000002
155444
177266

156664

090016
000004
'

a$TPS
10%

2(SP) ,a%$TPB

#CR,2(SP)
13
$CHARCNT
$TYPEX
ALF ,2(SP)
$TYPEX
(PC)+
0
PC

;:WAIT UNTIL PRINTER IS READY

::LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
; :BRANCH IF NO

::;i?;-CLEAR CHARACTER COUNT

;:1S CHARACTER A LINE FEED?
;:BRANCH IF YES
:2COUNT THE CHARACTER
::CHARACTER COUNT STORAGE

APT COMMUNICATIONS ROUTINE

. '*ttt*tt*t*t*tttttti*ttit\'t*t*ttl**ttt*fitfitttttttttittttttttttit

000001
000001

000001

TST8
BPL

;;WAIT FOR (HAR

3$:
4$:
5%:

MOVB
MOVB
BR
MOV

#1,8FFLG
#1,8MFLG

;:TO REPORT FATAL ERROR
;:T0 TYPE A MESSAGE

#1,8FFLG

;:TO ONLY REPORT FATAL ERROR

MOV
MOV
TST8
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
TST
BNE
MOV
TSTB
BNE
SUB
ASR
MOV
MOV
BR
MOV
ADD
MOV
JSR
. WORD

RO,=(SP)
R1,-(SP)
SMFLG
5%
V
, SENV
HAPTEN
3%
L
, SENVM
HAPTSPOO

$ATYC

3$
34 (SP) ,RO

#2,4(SP)

?gserype
RO, SMSGAD
+
(RO)
2s
$MSGAD , RO
RO
RO, SMSGLGT

::PUSH RO ON STACK
::PUSH R1 ON STACK
::SHOULD TYPE A MESSAGE?

BR
: ;OPERATING UNDER APT?
;:JF NOT: BR
::SHOULD SPOOL MESSAGES?
;2IF NOT: BR
:2GET MESSAGE ADDR.
;;BUMP RETURN ADDR.

::IF NOT:

:;SEE 1F DONE W/ LAST XMISSION?
IF NOT: WAIT
;o
::PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

gg.snscrvpe

;:SUB START OF MESSAGE
;GET MESSAGE LNGTH IN WORDS
;:PUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

3 (SP) 48

::PUT MSG ADDR IN JSR LINKAGE

177776 ,~(SP)

::PUSH 177776 ON STACK

22,4 (SP)

gc.srvps

- -BUMP RETURN ADDRESS

1 CALL TYPE MACRO

SEQ 0107

;MJDOOT
:MJD0O1
JMJDOOY
:MuD001
;MJDOO
;MJDOO
JMJDON
;MJD0OO

;MJDOO

MLAA

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

4600
4601
4602
4603
4606
L6G5
4606
4607
4608

02230
022344
022346
022352
022360
022364
022366
022370
022372

105767
0014622
017600
062766
012701
005711
100404
020021
001406

4610
4611
4612
4613
4614
L4615
4616
4617
(618
4619
4,620
4621
4622

022376
022400
022404
022406
022410
022412
022416
022420
022424
022426
022432
022434
022442

000772
026701
001402
010021
005211
105767
001416
005767
001413
005767
001375
017667
062766

VMSAA P11

4609 022374 005721

4623
4624
4625
64626
4627
4628

022450
0226456
022460
022464
022470
022472

4629 022474

4630

022476

005267
105067
105067
105067
012601
012600

000221
000004
000002 000004
001334

4648

022544
022550
022552
022554
022556

(022560

4650 022562
4651 022564
4652 022565
4653 022566
4654
4655

000207
000
000
000

022570
000200

11%:

000004 156534
000002 000004

156520
000106
000101
000074

012701 001334
005721
100402
005021
000774

L649 022560 012600

9%:
10%:

000150
156570
156542

000207

4639 022536 012600
4640 022540 00020/
4641 022542
4642 022542 010046

6%:

8%:

157076

4631 022476 010046
4632 022500 016700 156776
4633 022504 162700 001334
4634 022510 005767 7156460
4635 022514 001375
4636 022516 010067 156470
4637 022522 012767 001334
4638 022530 012767 000002
4643
4644
4645
L646
L6467

APT COMMUNICATIONS ROUTINE

04~-AUG-81 22:59

12%:

CLRB
CLRB
CLRB

..SHWLD LOG AN ERROR?
SLFLG
;IF NCT: BR
10%
..GET ERROR #
.
a4 (SP) RO
:BUMP RETURN ADDR.
#2.,4(SP)
TABLE STARIT
TO
::POINT
R1
T
#SASTA
TABLE?
OF
,,END
(R1)
;IF SO: BR
8%
PROPER ENTRY?
RO, (R1)+
;1F SO: BR
9%
mVE PAST COUNTER WORD
(R1)+
;KEEP LOOKING
6%
.','TABLE FULL?
$APTR,R1
"IF SO: B8R == NO MORE ROOM
109
:SET UP NEW ENTRY
RO, (R1)+
BU'P ERROR COUNT
(R1)
:SHOULD REPORT FATAL ERROR®
$FFLG
;1F NOT: BR
128
RUWING UNDER APT?
SENV
;1F NOT: BR
12%
FINISHED LAST MESSAGE?
SMSGTYPE
;IF NOT: WAIT
11$
GET ERROR #
a4 (SP) ,$FATAL
;BUMP RETURN ADDR.
#2.4(SP)
TO0 TAKE ERROR
APT
;o TELL
SMSGTYPE
:;CLEAR FATAL FLAG
$FFLG
::CLEAR LOG FLAG
SLFLG
::CLEAR MESSAGE FLAG
SMFLG

TS18
BEQ
MOV
ADD
MOV
TST
8M]
cMP
BEQ
TST
B8R
CMP
BEQ
MOV
INC
7S18B
BEQ
TST
B8EQ
TST
BNE
MOV
ADD

INC

RTS

(SP)+ R
(SP) + RO

::POP STACK INTO R1
:2POP STACK INTO RO

MoV
MOV
SuB

RO,-(SP)
$APTR.,RO
#SASTAT RO

::PUSH RO ON STACK
:GET SIZE OF STAT TABLE

MOV
MOV
TST
8M]
CLR
8R

RO,-(SP)
#SASTAT R
(R1)+
2%
(R1)+
1%

.,PUSH RO ON STACK
:GET START OF TABLE
.,END OF TABLE?
:IF SO: BR
.,CLEAR ERROR COUNT
:KEEP CLEARING

MOV

(SP)+,R0O

MoV
MOV

.
SATYG:

1%:
156460
156436
$ATY?:

1%:
2%:

$MFLG:
$LFLG:
$FFLG:

23:00 PAGE 92

TST
BNE
MOV
MOV
MOV
MOV
RTS

RTS
.BYITE
.BYTE
.BYTE

.EVEN
APTSIZE 200

:;RETURN

:SEE IF DONE LAST COMMUNICATION
tMSGTY
:IF NOT: WAIT
1s
SET MESSAGE LENGTH
RO, $MSGLG
;SET MESSAGE ADDR.
NSASTAT SMSGAD
:TELL APT TO TAKE STATS,
N2, 8MSGTY
..POP STACK INTO RO
(SP)+,R0O
;RETURN
PC

PC
0
0
0

:;POP STACK INTO RO

::RETURN
::MESSG. FLAG
::L0G FLAG
:FATAL FLAG
.

SEQ 0104

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

8 9
04-AUG-81

APT COMMUN]ICATIONS ROUTINE

04~AUG-81 22:5Y

23:00

PAGE 9>

APTENV=001
APTSPOOL=100
APTCSUP=040
;"ttt't't'tt‘tfiltl't‘t"tt"'lt"tQi'!'t'ttltt'...t'.'t‘...Qtt" L]

000001
000100
000040

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
-»«THIS ROUTINE IS USED TO CHANGE A 16-8I1T BINARY NUMBER TO A 5-DIGIT
.SBTTL

ON WHETHER THE
"«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING
WILL BE TYPED
SIGN
MINUS
A
OR
"«NUMBER IS POSITIVE OR NEGATIVE A SPACE
ALWAYS BE
WILL
ZEROS
LEADING
"«BEFORE THE FIRST DIGIT OF THE NUMBER.
;*REPLACED WITH SPACES.

;*CALL:
MOV
o*
b
TYPDS

022570
022570
022572
022574
022576
022600
022602
022606
022612
022614
022616
022624
022630
022634
022636
022642
022644
022650
022652
022654
022656
022660
022662
022664
022666
022670
022672
4701
4702
4705
4706

4707

4708
6709
4710
Y4k

022674
022676
022704
022710
022714
022716

022720
022724
022726

022730
022732
022734
022736

$TYPDS:

010046
010146

010246

010346
010546

012746
016605
100004

005405

112766

016700
012703
060003
112723
005002
016001
160105
002402
005202
000774
060105
005702
001002

020200
000020

000055

155702

000001

023012
000040

2%:

023002

3%:

4%:

105716
100407

5%:

106316

103003
116663

052702
052702
110223
005720
020067
103746

1%:

000001
000060

000040

177777

157110

101002

010502
000764

105726
100003

8%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
8PL
NEG
MOVB
MOV

MOV
ADD
MOovB
CLR
MOV
SUB
BLT
INC
BR
ADD
TST
8NE
TSTB
8!
ASLB
BCC
MOVB
BIS

BIS
MOvB
TST
(MP
8LO
B8HI
MOV
BR

TSTB

BPL

,
- (SP)
NUM

RO,-(SP)
Ri,-(SP)
R2,=(SP)
R3,-(SP)
R5,=(SP)
#20200,~(SP)

gg(SP),RS

RS
#'-,1(SP)
RELOCF, RO

#$DBLK ,R3
R3
RO,
#' ,(R3)+
R2

$DTBL (RO) ,R1
R1.R5
43

;;PUT THE BINARY NUMBER ON THE STACK
::G0 TO THE ROUTINE
::PUSH RO ON STACK
:;PUSH R1 ON STA(K
;:PUSH R2 ON STACK

;2PUSH R3 ON STACK

;:PUSH R5 ON STACK

::SET BLANK SWITCH AND SIGN

::GET THE INPUT NUMBER
::BR IF INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
::MAKE THE ASCII NUMBER NEG.
:GET RELOCATION FACTOR.
;:SETUP THE OUTPUT POINTER
;ADD IN RELOCATION FACTOR.

::SET THE FIRST CHARACTER TO A BLANK

::;CLEAR THE BCD NUMBER
;:GET THE CONSTANT
;:FORM THIS BCD DIGIT
;:BR IF DONE

:; INCREASE THE BCD DIGIT By 1
:;ADD BACK THE CONSTANT

:;CHECK IF 8CD DIGIT=0
::FALL THROUGH IF 0
::STILL DOGING LEADING 0'S?
;;BR IF YES
;:MSD?
::BR IF NO

::YES--SET THE SIGN

::MAKE THE B(D DIGIT ASCII
::MAKE IT A SPACE ]F NOT ALREADY A DIG 17
;:PUT THIS CHARACTER IN THE OUTPUT BUF FER
;;JUST INCREMENTING

:CHECK THE TABLE INDEX
:GO DO THE NEXT DIGIT
::60 TO EXIT
::GET THE LSD
::G0 CHANGE TO ASCII
::WAS THE LSD THE FIRST NON-ZERG?
;:BR IF NO

SEQ 0105

(VMSAA
(VMSAA

(O~2 MEGAWORD

P11

4712
713
4714

4715
4716
L7

4718
4719
4720
4721

4722

L7g3

4724
4725
4726
4727
4728
4729

022740
022746
022750
02752
022754
022756
022760
022762
022766
022770

MEMORY EXERCISER, 16K VER MACY11 30(1046)

04-AUG-81 22:59

022776

023002
023004
023006
023010
023012

4764

4765

4766
4767

23:00 PAGE 94

-1(SP) ,~2(R3)
(R3)
(SP)+,RS
(SP) +,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0
$PRINT
RS,
$DBLK
2(SP) ,4(SP)
(SP)+,(SP)

;;YES==SET THE SIGN FOR TYPING
::SET THE TERMINATOR
2:POP STACK INTO RS
::POP STACK INTO R3
-:POP STACK INTO R?2
::POP STACK INTO R}
::POP STACK INTO RO
:GO PRINT OUT THE FOLLOWING MESSAGE.
*ADDRESS OF MESSAGE TO BE TYPED
:;ADJUST THE STACK
;:RETURN TO USER

BINARY TO OCTAL (ASCII) AND TYFE

;:ttt*tttttt*tttkttttttttt*ttt*tttttttttttt'ttttttttttttttttttt't

“*THIS ROUTINE IS USED TO (HANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
“*OCTAL (ASCII) NUMBER AND TYPE IT.
TO TYPE

:*g;lfos--—enren HERE TO SETUP SUPPRESS ZEROS AND NUMBER OfF DIGITS
.

;

MOV

NUM, - (SP)

. :NUMBER TO BE TYPED

.BYTE

Z:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

TYPOS

.BYTE

:2CALL FOR TYPEOUT

::M<-1 0RO

::1=TYPE LEADING ZEROS

: :0=SUPPRESS LEADING ZEROS
L «$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
i*
[

4743

4763

10000.
1000.
100.
10.
.BLKW

_SBTTL

4740
4741
4762

4760
4761
4762

RT]

$DBLK:

4730

4759

MOV

$ODTBL:

4730
4731
4732
4733
4734
4735
4736
4737
4738

4764
4745
4746
4747
4748
4749
4750
4751
4752
(753
4754
4755
4756
4757
4758

MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
JSR
.WORD
MOV

012616

023420
001750
000144
001012
00C004

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

116663 177777 177776
9s:
105013
012605
012603
012602
012601
012600
0064567 176606
023012
016666 000002 000004

023000 000002

04-AUG-81

:*$TYPOS OR $TYPOC

;*CALL:

MoV

TYPOM

NUM, = (SP)

::NUMBER TO BE TYPED

::CALL FOR TYPEOUT

- %

:*g;YEOC---ENTER HERE FOR TYPEQUT OF 1 16 BIT NUMBER
s*CALL:
::NUMBER TO BE TYPED
NUM, - (SP)
MOV
I*
L FOR TYPEOUT
::CAL
TYPOC
o*

023022
023026
023034
023040
023044

017646
115667
112667
062716
000406

000000
000001 000213
(00211
000002

$TYPOS: MOV
MOVB
MCVB
ADD
BR

023046 112767 000001 000173 S$TYPOC: MOVB
MOVB
023054 112767 000006 Q00167
023062 112767 000005 000156 $TYPON: MOVB
023070 010346
023072 010446
023074 010546

023076 116704 000147
023102 005404
023104 062704 000006

MOV
MOV
MOV

MOVB
NEG
ADD

a(SP) ,-(SP)
1(SP) ,SOFILL
(SP)+,$OMODE+1
#2,(SP)
$TYPON

::PICKUP THE MODE
::LOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
2 :ADJUST RETURN ADDRESS

R3,-(SP)
R4 ,~(SP)
RS,=(SP)

::SAVE R3
: :SAVE Ré&
::SAVE RS

#1,80FILL
#6, SOMODE +1
#5,80CNT

$OMODE +1,R4
R4
#6,R4

**GET THE NUMBER OF DIGITS TO TYPE
;2SUBTRACT IT FOR MAX. ALLOWED

SEQ 0106

T VMSAA PN

04-AUG~8 122:5
110467
116704

4768
6769
4770
«771

016605
005003
006105
000404
006105
006105
006105
010503
006103

64772
4773
4774
4775
L4776
«777
4778
«779

105367
100017

4780

042703
001002
005704

4781
4782
4783
4784
4785
4786

«"TM
4792
4793
6794
4795
4796
4797
4798
4799
4800
4801
4802
4803

4810
4811
4812
4813
4814
4815
4816
4817
4818
4819

4820

4821
4822

4803

1$:
2s:

3%:

000100
177770

001403

005204
052703
052703
110367
004567
023244
105367
003346
002402
005204
000743
012605
012604
012603
016666
012616
000002

4787
4788
4789
4790

4805
4,806
4,807
4808
4809

0001
0001
0000

023247
023250

023302
023306

005067
000002

023310

5%:

176366

7%:

000032

MOvV8
MOVB
MOV
(LR

ROL

6%:
000002

::G0 DO MSB

MOV

RS,R3

ROL
DE(B

BPL
BIC
BNE
TST
BEQ

INC

R3
$OMODE

7%
#177770,R3
4%
R4
5%

#'0,R3
#' ,R3
R3,8%
RS,
8%
$OCNT
2%

INC
B8R
MOV

R4
2%
(SP)+ RS

MOV

MoV
RTI

$PRINT

(SP)+ R4

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

O
0
0
O
O

ERRTRP: TST

(PC)+

:ERROR TRAP SERVICE ROUTINE

1%:

2%:

000000

177746

3s:

WORD
BNE
INC
MOV
JSR
.WORD

B8R

HALT
CLR

RTI

O
28
1%
(SP),
PC,
31
3%

::GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?
;:BR IF NO
::GET RID OF JUNK

::TEST FOR O
::SUPPRESS THIS 0?
::BR IF YES

::DON'T SUPPRESS ANYMORE 0°'S
::MAKE THIS DIGIT ASCII
:2MAKE ASCII IF NOT ALREADY

BYTE
BYTE
$OCNT: .BYIE
$OFILL: .BYTE
$OMODE: .WORD

8%:

::ROTATE MSB INTO ‘°C"*
::FORM THIS DIGITY

RS
RS

8IS
BIS
Moy
JSR
.WORD
DECB
BGT

MOV
Mov

000004

;:SAVE 1T FOR USE
;:GET THE ZERO FILL SWITCH
:PICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD

ROL
ROL

23:00 PAGE 95

R4, SOMODE
$OF ILL .R4
12(SP) RS
R3

ROL

BLT

000000

005727
000000
001010
005267
011667
004767
000031
000401

000060
000040
000042

000
000
000
000

023252
023254
023<56
023260
023264
023270
023274
023276
023300

BINARY TO OCTAL (ASCII) AND TYPE

~NNR

{ VMSAA

04-AUG-81

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

$TMP3
$ERROR

::SAVE FOR TYPING

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
:2COUNT BY 1
::BR IF MORE TO DO
:;BR IF DONE
:2INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
::RESTORE RS
::RESTORE R4
:RESTORE R3
::SET THE STACK FOR RETURNING
; ;RETURN

::STORAGE FOR ASCII DIGIT
::TERMINATOR FOR TYPE ROUTINE
:;0CTAL DIGIT COUNTER
::2ERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE

:CHECK IF PREV TRAP TO 4 REPORTED

:CONTAINS ERROR REPORTED FLAG
:BRANCH IF NOT REPORTED
:SET DOUBLE TRAP FLAG.
:SAVE THE BAD PC FOR TYPOUT.
;*xx ERROR **+ (GO TYPE A ME SSAGE)
:ERROR TYPE CODE.
;SKIP HALT

:ERROR! SECOIID TRAP TO 4 OCCURRED
:BEFORE FIRS WAS PRINTED

:RETURN TO PROGRAM AND TRY TO RECOVER

.SBTTL PHYSJCAL ADDRESS TYPE ROUTINE
i;vpggUTlNE TO TYPE A PHYSICAL ADDRESS (22 BITS).

JMSAA 3R

04-AUG=-81 22:59
01004¢€
010146
010246
010346
016602
005003
005767

4824
482
4LB26
4827
4828
4829
4830
4831

4837

4,839

023344
023346
023350
023352

023354
023356
023360
023364
023370
023372
023376
023400

001424
010201

006101
006101
006101
006101
006101
042701
062701
011101

012700
006301

023404
023410
023412
023414
023416
023420
023422

006103
077003
042702
060102
005503
006302
006103
006002
010346

023424
023426

106746
105066

023402

023432
023436
023437
023440

004767
003
001
010246

023442
023444

106746
105066

MOV
MOV
MOV
MOV
MOV

000012

CLR
TST
BEQ
BIT
B8EQ

155204

000001

77572

MOV

ROL

000006

4%:

160000
1%:

023450

023454
023455

023456
023460

023462
023464
023466
023470

004767
005
001
012603
012602
012601
012600
012616
000207

R2,

F¥SRO
R1

;;PUSH RO ON STA(K
;:PUSH R ON STACK
:;PUSH R2 ON STA(CK
;:PUSH R3 ON STA(K
:GET BASE ADDRESS

;WORKING & INDEX REGISTER
JCHECK FOR MEM MGMT AVAILABLE
;BRANCH IF NO MEM MGMT
;CHECK IF MEM MGMT ENABL ED
;BRANCH IF MEM MGMT NOT ENABLED
;COPY VIRTUAL ADR

;SHUFFLE BITS 13,14,15 INTO 1,2.3

ADD
MOV
MOV

#K]PARO, R1
R1
(R1),
RO
46,

;SET TO APPROPRIATE PAR
;GET CONTENTS OF PAR
;SET UP COUNTER

ROL
S08
BIC
ADD

R3
4%
RO,
4160000, RZ
R2
R1.

;SAVE OVERFLOW BITS
;COUNT SIX SHIFTS
;SAVE BANK BITS
;COMPUTE PHYSICAL ADDRESS

ASL

ADC
ASL
ROL

#177761, R1
R1

R3
R2
R3

;CLR ALL EXCEPT BITS 1,2.3
;SHIFT PAR

;MAKE SURE CARRY ISN'T LOST!
;FIRST DIGIT TO R3
;RESTORE R2 FOR BITS 14-0
;:SAVE R3 FOR TYPEOUT
::TYPE ADDRESS BITS 21-15

RZ
R3.-(SP)

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE
WIHTOUT USING A *‘TRAP'* INSTRUCTION AS CALLED FOR BY **SYSMA(**.
;PUT THE PROCESSOR STATUS ON THE STACK
-(SP)
MFPS
:HIGH BYTE (LEARED TO INSURE KERNEL MODE
1(SP)
CLRB

000001

JSR
BYTE
BYTE
MOV

177364

177346

RZ
MMAVA
13
2,
1%

PAGE 96

R1
Rl
R1
R1

ROR
MOV

000001

RO,-(SP)
R1,-(SP)
RZ.-(SP)
R3,-(SP)
12(SP), R2

23:00

ROL
ROL
ROL
ROL

8IC

177761
172340

4833

001430
032737

PHYSICAL ADDRESS TYPE ROUTINE

[ VMSAA

04-AUG-81

0-2 MEGAWORD MEMORY tXERCISER, 16K VER MACY11 30(1046)

PC,
3
1
R2,=(SP)

$TYPOS

;ON PSW RETURN.

GO TO THE SUBROUTINE
;:TYPE 3 DIGIT(S)
;:TYPE LEADING ZEROS
;;SAVE R2 FOR TYPEQUT
;:TYPE ADDRESS BITS 14-0

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE
WIHTOUT USING A ‘‘TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMA(w+,
:PUT THE PROCESSOR STATUS ON THE STACK
-(SP)
MFPS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB
JSR
BYTE
BYTE

PC,
5
1

RTS

MOV
Mov
MOV
MOV
MOV

$TYPOS

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO
(SP)+, (SP)

;JON PSW RETURN.

GO TO THE SUBROUTINE
;:TYPE 5 DIGIT(S)
;;TYPE LEADING ZERQOS
;;POP STACK INTO R3
;;POP STACK INTO R2
;;POP STACK INTO R1
;;POP STACK INTO RO
;ADJUST THE STACK TO CLEAR DATA
;RETURN

SEQ 0108

p'%-( ME GAWORD MEMORY EXERUISER, 16K VER MACY11 30(1046)

STANDARD PROGRAM MESSAGES

04~AUG-81 22:59

04~AUG-81

23:00

PAGE 97

STANDARD PROGRAM MESSAGES
.SBTTL
b t'.".'.'t't.tt.t.tt."'I."t.t..l'.‘.".tt'.....'...l..'..'!..

*VARIOUS MESSAGE PRINTOUTS USED THRUOUT

: THE PROGRAM
M '...tt'..t't'tt.t!I'.t""'tt'..'.‘t'.t'tt'lt.'.‘.lt.'.!....“.t

005015
024040
054522
043501
024524
046111
000
015
044502
020122
006514
005015
054522
000072
005015
054524
051117
035120
015
020115

040

4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
(932

4933
4934
4935

005015
043106
052116
051117
044506
033061
020124
044124

000
015
0460520
051040
042524

052517
015
040524

020107
020122
042527
046111
000012
005015
051101
051105
043040
047440
047515
040503
005015
040522

052113
042515

046440

046505
040440
041101

031012
020124
053101
000012

<15><12>'KT11 (MEMORY MANAGEMENT) AVAILABLE'®

030461
047515
047101
047105
040526
042514

MMAMES: .ASCIZ

020062

AVAL2Z2:

.AS(IZ

<15><12>'22 BIT ADR AVAIL'<15><12>

042101

044501

042515

047515

MEMMES:

.ASCIZ

<15><12>'MEMORY MAP:'

040520
046440
020131
000
043012
000
047524
047111
041511
046440
027131
051522
020113
046101
051105

044522
046505
040515

MTMAP:

_ASCIZ

<15><12>'PARITY MEMORY MAP:'

047522

FROM:

LASCIZ

<15><12>'FROM °*

000040
052523
042511
046505
027056
020124
047516
020114
020505

10:

LASCIZ

<155<12>" INSUFF JCIENT MEMORY...FIRST 16K NOT ALL THERE!’

047012
044522
043505
051522
042116
051012
052122
0431017
020101
020122
051125

020117
054524
051511
043040
000
051505
047111
042524
047520
040506
006505

MTR:

JASCIZ

<15><12>°NO PARITY REGISTERS FOUND'

PWRMSG:

.ASCIZ

<15><12>'RESTARTING AFTER A POWER FAILURE'<15><12>

047516
052111
047522
052517
020116
054522
006516
051120
020115

050040
020131
051522
042116
042515
051440
000012
043517

NOPES:

.ASC]Z

<15><12>'NO PARITY ERRORS FOUND ON MEMORY SCAN'<15><12>

046440

050101

047516

INSUFF:

PROREL: .ASCII

'ro

<15><12>*PROGRAM NOW RESIDES BA(CK AT 0 70 8k'

SEQ 0109

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) ES 04-AUG-81

[ VMSAA
MSAA, P11
936
€337
4338
4939
4940
4941
4942
4943
6944
4945
4946
6947
4948
4949
4950
4951
4952
4953
4954
4955
4956

024114

024122
024130
026136
026144
024145
024152
024160
024166

STANDARD PROGRAM MESSAG

04~AUG-81 22:59
020127
042504
045503
020060

042522
020123
040440
047524

044523
040502
020124
034040

015

044012
047117
020105
047516
051040
043516

052111
044524
047506
046522
047125
005015

050012
020131
052123

051101
042522
051105
000
052116
000040
046440
020131
027104

005012
052125
050040
052105
047111
046101
043012
040440

044412
040440
051101
051105

040514
042104
020072

052123
042522

037412
051505
052440
042520

042101
020123
046516
020104
000077

113

0461440
052516
020122
026174 0466101
024202 044516
000
024210
015
024211
024216 052111
024224 044507
024232 040440
040
024237
024244 047522
024252 005015
024260 046505
024266 047596
000
4957 024274
015
4958
024275
050116
4959 024302
14
0461
0
4960
02431
01
0465
4961
024316
6962
0264324 020123
4963
024332 052103
015
4964
024337
3
05212
44
4965
0243
2
6966
024352 04252
4967 024360 000040
4968
024362 005015
040440
4969 024370
23
76
0515
4970
0243
000
04
4971
0244
015
4972
024405
051104
4973 024412
4974
024620 047111
4975
024426 050101
040502
4976
024434
005015
4977 02644642
052103
450
4978 0246
052123
6
4979
02445
000
4980
024464
015
5
4981
02446
0
05013
4982 024472
104
4983
020
024500
4984
024506 054522
4985
024514 052111
024522 047522
005015
4987 024526
34
040522
4988 0245
047514
4989 024542
020104
50
0245
56
4991
005015
0245

020124

047503
051514

047516
051117
047125

051523

045516

042523
041440
047101

.ASCIZ

<15><12>*HIT CONTINUE FOR NORMAL RUNNING'<15><12>

Mx1:

LASCIZ

<15><12>'PARITY REGISTER AT '

MX2:

LASCIZ

NOMEM:

LASCIZ

<15><12>"NO MEMORY FOUND.'®

FADMES:

.ASCI]

2> ALL PARAMETERS IN OCTAL.'
' INPUT
<15><12><12><1

LASCIZ

<15><12>°'FIRST ADDRESS:

LADMES:

.ASCIZ

<15><12>"'LAST ADDRESS:

BADADR:

LASCIZ

<15><12>'?2ADDRESS IN UNMAPPED BANK?'

CONST:

ASCIZ

<15><12>*SELECT CONSTANT:'’

UNEXPT:

LASCIZ

<15><12>"UNEXPECTED MEMORY PARITY ERROR'

PRELOC:

LASCIZ

<15><12>'PROGRAM RELOCATED TO °*

:
MTOE

LASCIZ

<15><12>*'MORE THAN ONE PARITY ERROR FOUND.'

047440
056

051111
042104
020072

CONTROLS '

020040

052412
041505

042515
050040
020131
000122
051120
020115
040503
047524
047515

23:00 PAGE 98

042522

SEQ 0110

(-2 MEGAWORD MEMORY EXERCISER, 16k VER MACY'1 30(1046)

P11

STANDARD PROGRAM ME SSAGES

04-AUG-81 22:59

024564
024572

024600
024606
024614

024622
024630
024636
024644

024652
024660
024664

026672
024700
024706
024714
024722
024723
024730
024736
024744
024747
024754
024762
024770
024771

000

377

23:00

PAGE 99

SEQ 011

020116

05204C
067117
044522
051122
052517
005015
044516
046505
047506
020104
054524
005015
054524
051117

020114
046103
000
015
042515
052040
027104
015
050129
042524

04-AUG-81

040520
042440
043040
000056
047101
046440
020131
0460502
044522

SCANM:

LASCIZ

<15><12>*SCANNING MEMORY FOR BAD PARITY.’

044522

PEWNC:

LASCIZ

<15><12>'PARITY ERROR WILL NOT CLEAR.'

020117
054522
0425264

NOMTST:

LASCIZ

<15><12>*NO MEMORY TESTED.'

044513
020107
021440

SKPMES::

LASCIZ

<15><12>"'SKIPPING TEST #'

FILLZ:

LASCIZ

<377><377>

.SBTTL

ERRCR REPORTING MESSAGES AND TABLES.

051122
046111

040505
047012
047515
051505
000
051412
047111
052123

020124
027122

000377

ttt

.. tttlttttttttt.titii**'ti'ttfi‘kttflti*tittttttt'tttt‘tttttttttt

FOR ERROR TABLE TYPEOUTS
% MESSAGE BLOCK
*tttt*ttt't't*t'tifi*tt't.tit*ttttfl'ttttttttt'ttttit'
» 'Qlttt‘ttfittt

024774
025002
025010
025016
025024
025030
025036

040520
051040
042526
040524
051117
042101
020123
042440
052050
024465
047503
052116
020101
024122
030455
047522

043516
042440
052050
030455
047515
051106
042524
051122
051524

044522
043505
020122
042440
000056
051104
042524
051122
052123
000056
051516
042040
051105
051524
024460
040524

041040
051122
052123
024462
020123
051505

052123
051117
020124

054524
051511
040504
051122

bfi1:

.ASCIZ

'PARITY REGISTER DATA ERROR.'

051505
052123
051117
026461

.
DMZ

LASCIZ

"ADDRESS TEST ERROR(TST1-5).'

040524
052101
047522
033124
000056
044524

DM¢:

LASCIZ

*CONSTANT DATA ERROR(TST6-10).°*

DMS:

LASCIZ

*ROTATING BIT ERROR(TST11-12).°

DM6:

LASCIZ

'MOS REFRESH TEST ERROR (TST 24-25).°

052111
051117

030461
000056
0642522
020110
042440
024040
032062

MSAA

(~2 MEGAWORD MEMORY EXERCISER, 16k VER MA(Y11 30(1046) 04-AUG-81

5068

125216

VMSAA P11

S049 025226

031055

024465

000056

020122
000

LASCIZ

115 051101

044103 DM10:

.ASCIZ

000

052111

DM11:

LASCIZ

°*PARITY MEMORY ADDRESS ERROR(TST13).*

DM12:

LASCIZ

°'DATIO WITH WRONG PARITY DIDN'T TRAP(TST13)."

127 047522 043516 DM13:

_ASCIZ

'WRONG PARITY DETECTED, BUT NO REGISTER SHOWS ERROR FLAG.'

025232
025240

051105
040510

047522
052114

5053
5054
5055
5056
5057

025252
025260
025266
025276
025302

047111
020123
023460
067522
020124

020107
047101
020123
024122
031462

5052 025265

025310

5059 02531

120 051101

023461
020104
051105
051524
027051

047515
042104
042440
052050
027051

5060
S061
5062
5063
5064

025316
025326
025332
025340
025346

020131
054522
042522
051122
052123

042515
040440
051523
051117
031461

5066
5067
5068
5069
5070
5071
5072
5073

025355
025362
025370
025376
025404
025412
025420
025426

106
053440
051127
040520
042040
020124
052050
027051

052101
052111
047117
044522
042111
051124
052123
000

04751
02011
02010
054524
023516
050101
031461

5075
5076
5077
5078
5079
5080
5081
5082
5083

025436
025444
0256452
025460
025466
025474
025502
025510
025516

050040
020131
052103
052502
051040
042524
053517
047522
043501

051101
042504
042105
020124
043505
020122
020123
020122
000056

052111
042524
020054
047516
051511
044123
051105
046106

5085
5086
5087
5088
5089
5090
5091
5092
5093
5094

025530
025536
025544
025552
025560
025566
025574
025602
025610
025616

051040
042524
020124
0642105
047503
046114
044124
042104
052050
027051

043505
020122
040515
040440
052116
047111
051511
042522
052123
000

047516
050120
020123
047522
020107
040440
051523
031461

5096
5097
5098
5099
5100
5101
5102

025626
025634
025642
025650
025656
025664
025672

04u126¢
042516
051511
047111
042524
044522
051122

047101
051040
042526
044504
020104
054524
051117

047440
043505
020122
040503
040520
062440
000056

5065

025354

5074 025431

000

DM14:
5084 025522 040520 044522 054524
051511

5095 025621

°FATAL ERROR HALT'

DM7:

040506 040526 020114

5050
5051

5058

ERROR REPORTING MESSAGES AND TABLES.

04~AUG-81 22:59

23:00 PAGE 100

*1S 051117 020105 DM16é:

5103 025700 040504 040524 051440 DM17:

'MARCHING 1'S AND 0°'S ERROR(TST 23)."

.ASCIZ 'PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST13).°*

.ASCIZ

‘'MORE THAN ONE REGISTER INDICATED PARITY ERROR.’

_ASCIZ "DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR TRAPPED(TST13)."

S5EQ 0112

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACYTY 30(1046)

WAWNWWRNUNIADNONDNONONUNIN
) — —
=
b b b b

—

(%]

_‘_‘—la—l—‘_‘—.-‘—l—l—l—‘—l_‘—d—d_—o-—‘—l—l_&—l—h—‘_a

LHAAAN
A AV
NN N AN AW
A D
mmmmmw.mmmmm\nmwmmwmu\mmmmmm ——d
e e
e o e oy d e e
nd b o ok D
b oD b D rd

b ed

b b

D —d

WAV

m\fl\fl\h\h\h\h\hl\l\bl\bbbl\bl\wuwuufiu
OO~
VN W= OO0 NRNB LN —=OVB N W N—-OvomwOmwadoom\aOmbwmdogggga

025774

04751C
052047
020105
042507
047105
052111
047522
050101
051524

000056

046125
044040
044103
020104
050040
020131
020122
042520
030524

047104
053101
047107
044127
051101
051105
0351124
024104
(24463

026026

23-00 PAGE 101

.ASCIZ

‘'RANDOM DATA ERROR(TST14).'

052123 052522 DOM21:

LASCIZ

"INSTRUCTION EXECUTION ERROR(TST15-22).°

.ASCIZ

'PROGRAM CODE CHANGED WHEN RELOCATED.®

.ASCIZ

'TRAPPED, BUT NO REGISTER HAD ERROR BIT SET.'

025776 040522 042116 046517 DM20:
026004
026012
026020

ERROR REPORTING MESSAGES AND TABLES.

04~AUG-81 22:59

025706
025714
025722
025730
025736
025744
025752
025760
025766

C4&-AUG-81

042040
051105
051524
000056

026030 047111

052101
047522
030524

020101
026122
026464

047511
041505
020116
024122
026465
000

020116
052125
051105
051524
031062

041440
044103
020104
051040
052101

042117
047101
044127
046105
042105

026036
026046
026052
026060
026066
026074

052103
054105
047511
047522
030524
027051

026104
026112
026120
026126
026134

046501
020105
042507
047105
041517

026152
026160
026166
026174
026202
026210

026106
047040
044507
0464040
051122
052111

041040
020117
052123
042101
051117
051440

052125
042522
051105
042440
041040
052105

026220

051126

050101

042520

©OM25:

.ASCIZ

'TRAPPED TO 114.°

040506

046111

042105

DM26:

.ASCIZ

‘FAILED TO TRAP.'

026260 040450 052103 047511

DM27:

.ASCIZ ‘"(ACTION ENABLE WASN'T SET)."

DM31:

,ASCIZ

026077

026142

000056

026216

026226
026234

026240

000056

020104
032061

047524
000056
020117
000056

026246
026254

052040
050101

026266
026274
026302
026310

020116
04257«
023516
024524

000056

026322
026330

042520
032040

020104
000040

026314

005015

030440
051124

047105
053440
020124

041101
051501
042523

051124

050101

047524

SEQ 0113

<15><12>'TRAPPED TO 4 '
ttt

. t'iQltI'l*'Rtt..t"fi't"'l't"t!tt"itifi.l'ttt'.fi.tit'itt'.t'

HEADINGS
*DATA COLUMN fi.ttt
tt'ttt"'ti"tifi"fi.lttti'itt'il.'t'fit't'tt"t'l
".’i"tt!t'tt

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1066)

R RR R
BB e
NN =
NOVWN

388

AN AN NN D AT NNA N

D000 D 00 00 00 00 00 00 00 00 00 00 ~r ~J I~

T R

TN AN AN AN NN N D NN NS N

i SN

)

RS SV F I RANIIDELESRE

P11

026334
026342
026350
026356

126

027520
046440
020040

ERROR REPORTING MESSAGES AND TABLES.

04~AUG-81 22:59
04152¢C
020011
020011
200

04-AUG-B1

23:00 PAGE 102
WAS'

REG

s/8

'v/PC

P/PC

LASCIZ

'v/PC

P/P(

DH14:

LASCIZ

'v/PC

P/PC

REG

MA'

DH15:

LASC1Z

*v/PC

P/PC

MAUT

REG

004503
020011
020011
020040

DH21:

LASCIZ

'v/PC

P/PC

Iur

020040

004502
040527

041520
004503
020103
020040
040515
027523
020040

050011
020040
040515
051504
020040
020102
040527

DH23:

.ASCIZ

'v/PC

P/PC

SRC MA

041520
004503
027520

050011
020040
041520

DH24:

LASCIZ

'v/PC

pP/PC

TRP/PC’

050057

004503

DH25:

LASCIZ

'V/PC

P/PC

DHZ26:

LASCIZ

'V/PC

p/P*

051011
051440
053440

043505
041057
051501

DH1:

.ASCIZ

050057
041520
004501
027523
020040

004503
020011
020040
004502
040527

DH2:

LASCIZ

041520
004503
020011
041057
050057
041520
043505
046440
041520
004503
052125
051040
020040
041057
053440

050011
020040
020040
000
004503
020011
020011
000101
050011
020040
020015
043505
020040
020040
051501

DH12:

050057
041520
052125
004501
027523

041520
050122
020040
020040
053440

050057
041520
043505
053440

020011

S/B

WAS*

S/B'

S/B

DST MA

S/B

TRP/PC

REG

WAS'

REG

WAS'

050057
051040
020040
051501
004503
020011
020011
057501

SEQ 0114

WAS'

WAS*

P11

ERROR REPORTING MESSAGES AND TABLES.

04~AUG-81 22:59

027006

027007

027014
027022
027030
027036
027044
027052
027060
027066

00C

122

053440
046440
020040
027526
050057
040515
051440
040527

043505
051501
004501
040527
041520
004503
020011
041057
000123

04~AUG-81

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

23:00

PAGE 103

020011
020011
020040

DH30:

LASCIZ

'REG

WAS

WAS*

050011
020040
020040
020040

DH31:

LASCIZ

‘v/PC

P/PC

S/B

000123

WAS'

. t!ttttfitfitt'tttttttitt'tttfitttit*t*tfitt‘tfiii'ttttt!tlQfillt'ttit

T TABLE FOR ERROR PRINTOUT.
% DATA FORMA
ttttttttttltttititttl’ttittttttt*t.tt!tfittittt'ttt‘iltttt
. t'.tttt

027072
027075
027076
027101
027103
027106
027110
027113
027116
027121
027124
027127

000
000

000
000
000
376
000
377
000
377
377
376
032000

000001

.BYTE

0,-1.0,0

377

000

DF1:

377
000
377
376
377
000
377
000
000

377

DF2:

.BYTE

0,-1,-1,0,0

377

DF3:

.BYTE

0,-1,-1,-2,-2

377

DF14:

.BYTE

0,-1.-1,-1,0.0

DF21:

.BYTE

0,-1,0,-1.,0.0

DF30:

.BYTE

-1,0,-1,-2

000
000
000

377

.EVEN

. ~ 32000
.END

:THE LOADERS ARE SAVE HERE TO END OF 8K
:1536. WORDS

SEQ 0315

Q=2 MEGAWORD HEHORY EXERCISER 16K VER MACY11 30(1046)

ICVMSAA

(VMSAA, P?I

374

[ O VI

374
374
374
374
374
374
374
374
374
374
374
374
374
374
374
374
374
374
374
374
374

L
£ I
A
Y
L3 S T
—

374
374
374
376
374
374

(]

o
Rt

1794
374

374

000000
000000
000000
000000
000C00
000040
000001
000200

= 000100

000000
000000
900000
000000
023537
000000
000000
024405
014216

374
374
374
374
374
374
374
374
374
374
374
374
4500
4067
1176
4495
374
374
374
374
1267
374

374
1782

1959

23:00

CROSS REFERENCE TABLE ~- USER SYMBOLS

04~AUG-81 22:5

ABASE
ACDWY
ACDW?Z
ACPUOP
ADDWO
ADDW1
ADDW10

04=~AUG-81

415
417
418
389
419
420
429
430
431
432
433
434
421
422
423
624
625
426
427
428
380
416

2203
385
386
377

2289

2322

4578

46564

3538

402
406
409
412

396
404
407
410

382
383
376
397

405
408
411
379

46584
4493
L6554
4580

387
378
381
388

48924
413
414
L9724
1968

46574

1993

2003

31864

PAGE 105

SEQ 0116

VMSAA

04-AUG-81 22:59
( MSAA.P11
<774
BITPT 001714

BI10 = 000001

BIT00 = 00000!

BITOT = 000002

3056

628
3121
233

2053

253,

112¢

122

1130

817102 = 000004
81103 = 000010
81104 = 000020
BIT0S = 000040
BIT06 = 000100
BI107 = 000200
BIT08 = 000400

1110
1104
100
1084
107
1060

= 000002

1224

123

121
120
119
118
117
116
115

4083

2267

133,

2283

2289

3048

3135

3350

3814

39464

015662

2096

2186

3067

024442
CONST
- 000015
R
CRLF - 000200
005734
CTRLS
DDISP = 177570
027072
DF 1

1787
3By
39¢
1602
454
1012

49774
4556
1208
16144
351
52304

1018

1028

= 000004

1214

BIT3

= 000010

1204

BIT5S
BI16
BI17
BIT8
BIT9

= 000040
= 000100
= 000200
= 000400
- 001000

1184
1178

(HGG1

003432

BIT4 = 000020

BNKTAB 017350
BFTVEC- 000014
CHGG2

CKPMER

015662

CLRPAR 016514

179#

1257

1154
1144
3801+
1304

35474

1467

1069

1479

1063

1085

5234

1077

51704
51744

1026

1031

1036

1046

1088

1123

5212

1135
51604
1061

DHOl
DHPY
DHOG
DHOS

PHO6

026357

026547
026614
026670
026713

006757

3124

3332

3556

1072

5178#

1093
1103
1108
1113

51864
5193
5201
52054

1118

1164

1058

1130
1010
1056

1015

4566

37414

1053

027124
026334
026416
026445
026474

1066

4566
4510

3622

1115

52384

DF30
DHI
DH12
DH14
DHIS

2225

1110

1095

1023

35484

1538

1105

027116

027103

3143

3629

1079

1074

DF21

DF 3

1518

3972

30564

3037
1662

10074

027110

027C76

1308

2289

1482

3034
1616

3042+
1671
3704

SEQ 0117
3048

3044
17217

1819

3826

1164

DF14

OF 2

3708

3986
3996

1965

BIT2

2970

2967

o84

8IT15 = 100000

2925

2833

4061

BIT14 = 040000

3121

2304

2264

213

3037

2567

1004

99%

3034

3131

4053
4003

81713 = 020000

2937

3129«

269

1034
1024

1014

1511

3124

8710 = 002000
BIT11 = 004000
BIT12 = 010000

14BB

2970+
1544

3135

81709 = 001000

114

23:00 PAGE 106

CROSS REFERENCE TABLE -- USER SYMBOLS
1775
1768
1762
1749
1712
3143

1054
1044

BIT1

(=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

1033

5240

1038

1048

1090

52364

1120

51644

1125

52324

024275
024771
001757
001774

1027

1032

1037

1047

1052

1084

1089

3807

3930

39474

3472

4808~
1173+

1254+
3983«

1332+

1385+

3978+

1244
3980«

1287+

3468+

1436
1161
3472%

1301+

3051

3139

3673

3843

50234

5028#

d
b
b
D
b
b
b
D ed

D
b
—d e
D e
d
o

2OV
OB NWNN—O

FADMES
FILLZ
FLAGBK
FLG30K

1163

o
W

002222
D130
002234
DT
EMTVEC= 000030
ENDBKT 017352
ENDINS 017650
ERRTRP 023252
ERRVEC= 000004

4052+

1385
-

002210

4018+«

002174

D126

002164

3632«

et 2 B D OO0
OOW
W= =200 0= NN =\

D125

D124

002040

3377«

b od

002066
002100
002112
002052
002130
002146

1181+

W
Qo

0112
DT14
D115
012
D121
D123

D11

SEQ 0118

13844
1172+

Ny
(=]

d
ek

= 177570

b e

DSWR

D md

026077
026144
026220
026240
026260
026314
025064
025122
025160
025224
012340
011614
011530

)

DM23
DML
DM2S
OM5
DM27
DM31
DMe
OMS
OM6
DM7
DONE
DPDBH
OPDBL

025621
025700
025030

oM16
oM17

PAGE 107

52214

»~a§§a333§§~“

005034
001132
000174
024774

DISMAP
DISPLA
DISPRE
oMl

04-AUG-81

1083

1051

— Qo

011444

DIPDO

52174

&WN\NN—'—'OOOO
QW
NN NN N

011206

DIDO

~=AANINDN)
=

027007
027036
011354
011270

OH30
DH31
DIOBH
pIoBL

d od

04-A uG-81 2

OO
= WANAR RO o ¥
NN
V=
53R
@
O
AN

TVMSAA . P11

8 10

23:00
SYMBOLS
USER
-TABLE
E
CROSS REFERENC

OO0 A2
a a0 [els)

O-2 MEGA WORD ME

(VMSAA

EXERCISER, 16K VER MACY11 30(1046)

49584

1062
1078
1022

1124

1162+
3977

1419+

1436

3373

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

CVMSAA

023627
001762
005136
005164
005200
005210
005214
005252

FROM
FSTADR

GMPR
GMPRA

GMPRB

GMPRBA
GMPR(
GMPRD
GNS

(2 2

000011
013076
013204
013000

INITON
INITEX

INITMM

F
INSUF
IOTVE(C=
K IPARQO=
KIPAR1=
K |PAR2=

023644
000020
172340
172342
172344

K IPAR3= 172346
K [PAR4=

K 1PARS=
K ]PARG=
K1PAR7=
K IPDRO=

172350

KIPDR1=
K [PDRZ2=
K IPDR3=
K IPDR4=
K [PDRS=
K IPDR6=

KIPDR7=
KTS12

LADMES
LDDISP
LF
LMAD

LMEMHI
LMEMLO
LSIFLG
MAMF
MAMF1
MAMF2
MANUAL

1
MANUL

MANUL
2
MAPRB

MASK4LK=

MASKSK
=
MEMMAP

023564
= 000007
MFPT
023472
S
MMAME
S
MEMME

3863
6054

1601
14204
1419
14264
14294
1617
194

3e#

1853
2946
1836

2460

14903
1314
1664
1674
1684
3090~
1694

3346

1704
1714
1724
1734
155#
1564
1574
158#
1594
1604
1614
1624
1262
1729
4984
374
L4974
3820«
3819«
6134
1816
35384
3524
1443
1690
1691
1470
1834
1844
500#

3336

23:00

CROSS REFERENCE TABLE -- USER SYMBOLS

04~-AUG-81 22:59

TVMSAA P11

c10
04-AUG-81

PAGE 108

49034
1688+
16154
16434
14264
14284
1430
16424
1207
4508
1890

1798+

3056

3057

3145

4566
1918

1992

2002

29574

1879

1930

1958

1967

2053

2686

2065
2763

2099
2775

2915+
3346+

3167
3407«

3345+«

3406~

4841

3687

2263
=
3401
2918+
3691

2280
3633
3026+
3713

2285
3635«
3027+
3718«

3478«
3912+
3880

3922+
3913«

3924+
3921«

39454
3923«

3944m

1370

1384

1393

1398

2971

2505
49064
240
259%

1256=

3112
=
1337
3402+
2919~
2920
2921«
2922+
235
2908+
2909+
2910
2911«
2912+
2913%
2914+

1269
L9684
1180+
4560

3443
3861
3860

1232«

29804

2553
256%

2916x
1330«
3338~
1348

3634

2598

1358«
3339«
1353

3636

2643

1506«

3345

1359«

4566
3457+

3868+
3867«
1238«

3464
3870
3869+
2212

3532

35424
16884
1726

1784

1289

1304

1337
128+

3694
1328

48964
1234
48854

2118
2793

2139
2805

2172
2934n

24615

2917x

2945+«

2968+

3026

3112«

3113»

3331«

3338

1521

1723

3712«

3719«

13274

35234

624
3355

353

2907«

2349
3540
3526

1603
16924
17964
14744

SEQ 0119

1670
1704

1226

1769

177¢

(VMSAA

0~-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

CVMSAA. P11

MMAVA
MMOOWN
MMINIT
MMORE
MMUP

013556
012636
001754
013212

231
2923
3671

MPPATS
MPRX

MPR3
MPR4
MPRS
MPRE
MPR/
MPRS
MPR9
MTMAP
MTOE
MTR
Mx1
Mx 2

0024464
002510
002554
002620
002664
002730
002774
023602
024556
023725
024211
024237

NOMTST
NONKT

024723
004522

MPR?2

NOMEM

1904

2520

1241

2961

3706
1926
1821

2947+

1247+

2997
3840
1998

29064
2971+

1346

3084

1361
3119

2975

30774

1978

2658

2980+
2056
2745

3062
2075
2768

1265+

3032
4830
2014

2972+

PAGE 109
1504

1817
3449

2260
3458

2278
3631

3149
2109
2787

2130
2798

2348

2382

29904

2429
3221

1650

1660

1669

2165

3065

3320

3340

3357

3484

3393

1469
3156

2567

1963
2612

1415

1432

1437

1500

1593

1607

1418

1484

1542

1614

1659

1668

2221+

2231~

3375«

3430%

3534%

3535«

1944

SEQ 012C

3329

7950

14674

6744

002242
003370
002270
002334
003040
003104
003150
003214
003260
003324

2939
3685

1886

005260
002266

MPRO
MPR1
MPR10
MPR11
MPR1?2
MPR13
MPR14
MPR1S

2784

1472
2946+

MMVEC = 000250

MPAMEM
MPEND

23:00
SYMBOLS
USER
-TABLE
CROSS REFERENCE

04-AUG-81 22:59

000536

D 10

04~-AUG-81

9894
3548

7004

002400

L8994
49914

49154
49484
49524
L954H

024252

1244
L927H

024026
NOPES
001760
OFFLG
015770
PARMAT
PARVEC- 000114
010356
PBTRP
010366
PBTRP1
015454
PESRV
024664
PEWNC
PHYADR (014120
PIRQ
= 177772
PIRQVE= 000240
PLUST
002000
PMEMAP 001654
PRELOC
024526
PRGMAP 000534
PROREL
024100
- 000000
PRO

2198+
35804
2217*
22314
20334
34864
50034

2341«

1856

1881

1893

1921

1932

31564

2937«
627

2967+

3004

3010=

3041«

3094+

251

266

2774

1213+

1813

2023

4987#

4934H
60#

12834

1474

1497+

2833

(=2 MEGAWORD MEMORY EXERCISER, 16Kk VER MACY11 30(1046)

654

177776

67#
LOn

014572
015106
006106
015306
001506
000300
000304
000306

RELO

RESCHK
RESLOR
RE SRVD
RESTAR
RESTOR
REST1
RESTZ

000324

RESVEC= 000010
ROTATE
RW

SAVLDR

SAVTST
SCANM

SECT2

SELECT
SELFLG
SE TAE
SETCON
S
SKPMF
SPREND
SPRNT
SPRNTA
SPRNTB
SPRNTP

SPRNTQ
SPRNTO
SPRNT1
SPRNT?

014322
000006
015374
001614
024622
007466
003750
001756
015626
014304

024747

016646

016536
016636
016642
016574
016550
016600

CTARTI

285+
3378

286+
3420

295+

301«

313

314

1156+

1157~

3374w

3429+

32824
261
4123
2836
268

3342
2764

3365

3403

3413
2947
4683

2972

3368+

3372+

3379

3387

3¢

2842

36434
629
224K

1628

1633

1642

2268+

2269

2270

2320

2909

2910

2914

1750

2029

2728

2781

'AY]
316
1324

€22n
2355+

1659#
4954
199

2264
225
229
1274
2120
1764
1222

5384
3620
20234
11464

6014
2185
2117
50134
3766
1625

003756
006662

3562
49204

4144

33204
2839

1144

1146%

L9974

3528
2138

37814
1644

2423

2468
233

230
271

3558
1860
37724
1938

1815
4460

3434

3527

281

37774

33934

32274
2908
34644
1392

3774
37804
2274

148#4
149
1504
151
314
198

1214+
4146

2274
2314
1233«
2141
2907
2890
625

3770
3760
2250
3509
1636
1973
1843

SPRNT3

SRO
SR1
SR¢
SR3
STACK
START
STARTA

36134

RELTOP

3567

3512

—_—

023761
000024
002002
011070
014450
000532

664

[aSTe)

177776

PWRMSG
PWRVE(
RADTAB
RANTST
RELOC
RELOCF

6Ll

ity

016034

PSCAN
PSW

SEQ 0121

6N
634

00 00

000300
000340

PR7
PS

PAGE 110

614

000040
000100
000140
000200
000240

\JU'\J;-‘\\I

PR1
PR2
PR
PR
PRS
PRG

23:00

{ROSS REFERENCE TABLE -~ USER SYMBOLS

04-AUG-81 22:59

N ===
NO & S

(VMSAA P11

JRNO
S
Y P §

( VMSAA

£ 10
04-AUG-81

1689

3530
2171

3534
32174

1680

2194

3758#

2294
3564

2308
3655
2009

2325
37624
2222

37684
2241

2334

37694

2070
2514
249%

2104
2561

2125
2606

2373

2697

2706

1819

2146
2652
2926+

3651+

3460+

4832

1261%
1283

2925
1327

1780

1785

1814

2837

2892

37794

1898

11474
18074

1245+

37764

F 10

0=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00
rYMSAA
CROSS REFERENCE TABLE -- USER SYMBOLS
(VMSAA P11
06-AUG=81 22:59
STRLMT- 177774
SWR
001130
SWREG
swQ0
SWw00
sw01
swQ2

swO03
Swi4
Sw05
SwOé
Sw07
SWwO8
w09
SW1

swi0
swii
sw12
swid
Swié
SW15
swe
sw3
Swé
SWS
swé
sw?
sw8
sw9

=
=
=
=

000776
000001
000001
000002
000004

= 000010
= 000020
= 000040
= 000100
= 000200
= 0004600
= 001000
= 000002

= 002000
= 004000
= 010000
= 020000
= 040000
= 100000
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000

TBITVE= 000014
TEMP
001770

TEMP1

TKVEC

001772

= 000060

005530
TMAP
023637
10
TPVEC = 000064
TRAPVE= 000034

TRTVEC=
TSTMAP
ST
TST10
TST11

000014
001554
006756
007¢60
007736

TST13
TST14
TST1S
1ST16
1ST17

010074
011064
011202
011266
011350

1ST20
TST21
1S122

011440
011524
011610

TST264

012130

1ST12

15712

15123

010016

007100

011676

293
2081

4053
1964

oS
85#
B4n
83
82#

804
794

784

774
764
OLN
7%

306+

2167

4061
1"n

95
94
93
92
N
90
89

88
87
86

3504
2823
4074
1195

1796

1416
2823
2079

1152
3376+
4083

4205

PAGE 111

1163
3431+
4205

1165
3525
4252+

1171«

1178«

3916

3934

4221

3529

3550

2167

74m

734
724

704

93N
o2

274
90N
85#

884

87#
864
1284
6104
611a
135#
1526
3891
1364
1344
1294
5194
1818
2080

2098
2135~
21634
2169
24104
24554
25004
18764

25484
2593
2638#
26844
27614

3550

2738
2368

3644
2687~

3764
2693

3821«
2719

1813~

2031«

3044

313

18334

20934

2733

1195

3972

SEQ 0122
1262

3986

1616

3988

1796

3996

2079
<003

0-2 MEGAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046)

vMSAA

“VMSAA P

15125

007200

TST3

1S132

012344

1STS

007374

1s16A
1517
TYPMAP
U?EXPT

007532
007552
(016650
024465

1ST4

007306

1816

U 4

007526

WP
wwPBYT
WwPB80
wwPB 1
wPB?
wrPB3
WwP84
WWPBS
WwPB6
wix9
SAPTHD
$SAPTR
SASTAT
SASTEN
SATYC

$SATY]
SATY3

$ATYSL
$ATYS
$ATY?
sAUTOB

$BASE
$8DADR
$8DDAT

$BELL
$COWT
$Chw2
$CHARC
$CkSWR
$CMTAG
$CM3 =
$CM4 =
$SCNTLG
SCNTLU
$CPUOP
$CRLF

001766
010136
010100
010176
010242
010730
011020
011044
011054
014370
001320
001502
001334
001500
022206

022162
022170

022200
022476
(022542
001124

001250
001112
(001116

001164
001254
001256
022156
020430
091070
002000
000C04
02137
021364
(001222
oo

0BLk
$ODWO
$DDW1
$O0W10
sODWY1

023012
001260
001262
001306
001306

$ODWi4

001314

soow12
soDwW13

001310
001312

23:00 PAGE 112

SEC 1.7

(ROSS REFERENCE TABLE -- USER SYMBOLS

04-AUG-81 22:59

012234

G 10

04-AUG-81

27914
19154

637

2821#

2050+
20524
20624

2086

19554
19894

1389

%86
1754
6094

21764

21654
2187#
22004
2303
2226
2345H
2184
32504

446
LB
LE62H
4884

4571
45694
4498
4070
46304
LO6L1A

2087
2086

1590
49814

38014

2909
2202

2910

2914

4600

4604

4630

4633

4637

4643

3486+
655

664

3296+

4082

42054

1150

1158

4107

4134

6140

2907

2908

2347
2343
2312#
2244

2338#

2346

23484

4524
4611
489

4632

1490

1493

2209

45734

L5704
45724

3,74

1204+

4213

4393

34204
3448
3664

655
641
4056

658
643
4095

660
649

3298+
652

4532

4558+
4027

45634

227

6525
3083
262

3634

3644

LI1SH

L1174
4184
4515«
2996

3604
3604
4217
4243
3894
3684

4514
4684
L1994
4204
429N

4304
L3
4324
433

3614
4,388#
4356
1391
4566
4720

3970
264
3624

3304

4048

623

1149

3764+

3780+

6191

4256

43874

2845
L7284

4065

4095

4367

4387

4453

(.M AA

(-2 MEGAWORD MEMORY EXERCISER, 1 6K VER MACY11 30(1046)

CVMSAA P
ODW1S

$0DwW2
$ODw3

$O0We
$ODWS
SODW6
sODW7
sOOw8
$ODWY
SOEVCT
$OEWM

$OOAGN
$0TBL

SENDAD

SENDCT
SENOMG
SENULL

SENV

SENVM

W21.
6224

001272

L244

001274
001276
001300
001302
001204
001252

012612

4254
4264
w274
4284
3804
4164

°862

2887

2889

1186

2882#

4090

1193

1215

2825

2888

4067

4493

4578

3994

4000+

4022

4050+

4095

023002

012512
012616
012633

1158
2867
2876

28644
28934
28964

001215

211

2854

386

28914

2880

L7244

001214

1176

4495

4500

4580

$EOP
$EOPCT

012462
012504

2824
1158+

2855#
28614

SERMAX

001105

1626

3394

3994

6017«

4022

2147
2515
3322

2195
2562
3360

2223
2607
3395

2242
2653
3445

4060
635

4095
1006#

4113

6122

3651%
4016~

4057+«
4086

4095
4088

4095

4572%

4615

L6246

L6534

641

643

3777«

645

3778+

1709+

SERFLG 001073

SERROR 017666

SERRPC 001106
SERRTB
SERRTY

$ERTTL
$ESCAP
SETABL
SETEND
SFATAL

003432
020116

001102
001162

001214
001320
001176

3334

3404

4063

3374
3654

3844
4354
3774

022566

4569

$GDADR 001110

3414

$FFLG

SFILLC
SFILLS

001146
001145

$GDDAT 001114

3584
3IS74

3772+«

3434

3955

1637

641

41054
458
4L621x

4518
4566

3773«

641

2865

3992

1645

643

4566

643

$GET42 012550
$GTSWR 020502
= 000000
$HD
001320
S
$HIBT

28774
1202
12
4534

$ICNT
S$ILLUP
$INTAG
sITEMB

001074
000706
001125
001104

334
285
3484
338

4007+
301
4257
4060+

4008
3204
4393
4069

SLFLG

022565

4600

4625

465N

$H10CT 021572
SLF

001172

$LPADR 001076
SLPERR

SMADRY

001100

001226

SEQ

4688

012560

PAGE 113

(3om

001264
001266

001270

23:00

C(ROSS REFERENCE TABLE ~-- USER SYMBOLS

04~AUG-81 22:59

00" 31€

H 10

04~AUG-81

1705

3694

3354
3364

1681

1844

1861

1899

1939

4617

1974

2010

2071

2105

2126

662

4058+

4059

2424
3199

2275
2707
3510

2295
2729
3559

2309
2782
3565

2326
2812
3656

2335
29¢1
4042

2374
2976
4813

647

649

652

655

664

3297+

3758+

3765+

645

649

652

655

3295+

3759+

3779«

1711«

1713

1724

1739

1742«

1743

1753

4440

44520

4019

4021

645

2251
2698
3497

647

649

652

655

658

660

4218#

1707+

4095

1814+
3998

4010+

4021

4377

4387

4095

4110

4453

4566

1815+

2086+

3998+

4014

4015«

4027

4085

2469
3299

3769+

MSAA

O=2 MEGAWORD MEMORY EXERCISER. 16K VER MACY11 30(1046)

JMSAA P11

007232
001236
001242

L06#
4094
“12m

SMAMS1
MamMs2
sMamMs3

001224
001230
001234

3964
604n
Q7%

SMBADR

001322

454

SMAIL - 001176

SSMAMSS

001240

3754

6564

458

1175

1193

4013

4067

4638+

022564

4570

4576

4626~

L6514

SMSGAD
SMSGLG

001210
001212

384
3834

4586+
4591+

4589
4636+

4637+

SMSWR
sMIYP1
sMTYP2
sMTYP3

021376
001225
001231
001235

4220
3974
4054
4084

43894

4592«

4619

64623+

4634

017652

40N

40214

182644

4520

18256

4566

2060
2477

20894
2521#

1869

2091
2523

19064

21114
25684

1908

21324
2570

4765

4768

4779

4BOGH

2831

2858x

2859«

021407

sMSGTY 001174

MTYP4

SMXCNT

SNULL

001241

001144

SNWTST= 000001
SOCNT

SOMODE
$OVER

$PASS

$PASTM

023246

023250

017636

001202

001326

$PRINT 021574
$PWRAD

4229

3764

411a

3564

20584
24750

4761«

4756%
3973

3794

456H

315

43914

4584

4791+

4760
3991

1175«

1188

295

020736
021066

42904
(3204

$RDS2 = 000C10

43134

$SCOPE 017354
$SETUP= 000130

1834
2456
4%8%‘

1877
2501
1155

$STUP = 177777
$SVLAD 017602
$SVPC = 000010

188#
3981
2094

40124
214

3994

4«00

$SAVR6

000712

$SWR = 167400

1266

1156

3164

021420

1248

313

000676

000612

SRDOCT

4009

2854

000702

44594

SPWRUP

$RDCHR
SRDLIN

3999

2827

2844
4064
4276

$PWRDN

SQUES

4LBOLH

1786
4055
4255

4449
3184

001170

18674

1781
3890
4242

000540

SPWRMG

StQ

4493

6104

SMFLG

SMNEW

23:00 PAGE 114

CROSS REFERENCE TABLE -- USER SVMBOLS

04~-AUG-81 22:59

tMADR?
SMADRS
SMADRG

110

04-AuG-81

3674

1702

294+

»
366
2355
2892

301#

4513

40184

1386

1390

19464

1948

23504
26604

23854
2662

2868

2893

4005

4022

1402

1439

2875
013
4344

3306
4133
4350

3487
4137
4355

3505
4139
4361

4387

4450

4453

4566

4789

1982

2155
2615

2866
4106
4337

4719

19804

21534
26134

1539

1548

20404

2042

1585

1693

2387
2748+

24304
2750

3663
4190
6367

3723
4216
W3N

3809
4219
4376

2411
4200

4368

1736

1794

44074

302

1916
2549
1156

303+

1956
2594
1158

304+

1990
2639
1159

3224

2051
2685
1186

2063
2762
1190

2094
2792
2857

2115
2820
3965

2136
39644
4043

2164
4077

2354
4090

17
1835
2457
3956

18
1878
2502
3957

19
1917
2550
3958

20
1957
2595
3959

21
1991
2640
3960

22
2052
2686
3972

23
2064
2763
3984

24
2095
2793
3986

319
2116
2852
3987

364
2137
2857
3992

4002

4003

4015

4018

4021

4034

1728

3619
4184
4363

6277

12
1159
26412
2893

2432
2788#

3862
4228
6447

4095

4330
4418

2043

4035

4036

4037

4038

365

2165
2878
3993
4053

$TMPY
$TN

Sarcorses

$TMPO
$TMP1
STMP?

g 8882888888
b

SSWRFG
=
$SWRMK
$TESTN
$STIMES
$TkB
$71KS

$TP8

STPFLG
$TPS
$TSTM
$TSTNM
$TTIYIN
$TYPAD
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPQOS
SUNIT
SUNITM

3960

3961

3988

3989

3644
4198

2821«

2857+

4001«

4011«

4259+

4008
4300
4292

662

4539
4298
664

1867

1878#

1906

3874

378#

64013»

269
353N
3524
3604

4198

Hnn

017400
023247

.BITPT
.CONST

LEIGHT

.MPRO
.PBTRP
.PESRV
.PMEMA
.RESRV
. SAVTS

032000

002014
001764
002034
002032
002004
002026
002022
002020

002024
002030
002012
002016
002006

39754

4755+«
3972
1904
442
L1944

6284
6084
6364
6354
624N
633
6314
6304
6324
634H
6274
629N
625#

4812«
1835#
20644

4294

660
3763«

401
4546
4537

3762+

19174
2098

2076
24124
2748

2089
2430
27634

20954
24574
2788

2822+

3990
43864

4012+

4013

6364

3955
4382

4531

45364

2385
26864

2475
27934

SEQ 0126

4566
4544
3768«

1946

1957~
21164

1980

19914

2521

2132
2550~

2137#
2568

4018

4022

4052

4095

4122+

41230

2111
25024

2040
2153
2595#

4566

2085+
4341
48234
L6728
4597
4524

L5644

3814
4574
388#

4305

1742
1824

4566
4566

4466
4261
4559
4120
4758
1572

$XON
$XTSTR

4235
4232
652
664

2060
23554
2660

20524
21654
2613
3554
3504
IS4LH

4134
L1144
LOLN
4541

4209
4207
649

662

361

3624
3634

4322
3310
2874

SVECT1
SVECT?
$SVERP(
SXOFF

.ERRTB
.MEMMA
MPPAT
.MPRX

4095

4554
270«

SUSWR

$OF ILL
$40CAT

4083

4074
1178

4061

PAGE 115

04~-AUG~81 22:59

VMSAA P11

23:00

CROSS REFERENCE TABLE -- USER SYMBOLS

J/MSAA

J 10
04-AuUG-81

S~
Nw

0-¢ MEGAWORD MFMORY EXERCISER, 16K VER MACY11 3C(1046)

4227

47594

3877

3887

3899

3909

4179

47544

4860

4870

645

647

€49

652

655

658

660

662

2104
6044

2124

214H
1153

2154

297
2897
52444
3585

3743

643
4566
6548

4566

4759+

4769

4063

1944
4434
4198

2177

1795«
4705
4128

2095
2201
2233
2217
2221
2178
1809

2014

L45H
43864

2942
2052

48054

209
4474
4387
2964
2064

2239
3534
3700

4393
3008

9894
4453
3019

4566

1208#
46544

3103

2194
2893
4728#
319

2302

3492

3537

3553

3645

3091

321

4021

3204

4022

370
4095

K 10

MSAA

04-AUG-81 23:00 PAGE 116
O-2 MEGAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046)-- USER
SYMBOLS

LSTACK

002002

.TST32

002036

- 001320

W28

MSAA, P

LTSTMA - 002010

SACTAz eevere y

!fsu

CROSS REFERENCE TABLE

04~AUG~-81 22:59

¢25%

6264

4570

1807

1810

4573

L47

2026

3020

3105

SEQ 0127

CVMSAA

L 10

0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AuG-81

[ ryMSAA P11
ABORT

04-AUG-81 22:59

295

2979

CROSS REFERENCE TABLE -- MACRO NAMES

3202

3301

3325

3363

(KSWR

299

3078

3965

4022

4043

4077

CKWD2

2512
1#

2559
1840

2604
1934

2650
2066

2695
2101

2704
2370

ENDCQOM

1384

1142

1805

(xwD

COMMEN

ERROR

ESCAPE
GETPR]
GE TSWR
GTSWR

LDPDR

MORE TA
MULT

NEWTST
POP
PRINT

PUSH

#1634

3on

1
14
14
1w

SCOPEX
SCOPIN
SETPRI
SETUP

SIMTRP
SKIP
SLASH

SPACE

STARS

SWRSU
SWROR3

SIREGS

TYPADR

2726
2777

2779
2807

2144

2272

2292

2323

23N

r{Y4

2466

211
3028

2132
3098

2153
3115

2350
3177

2385
3207

3187

3282

2809

11904

2910

2914

1
2430
1

1384
2475
1384

1824
2521
306

1867
2568
307

1906
2613
2298

1946
2660
2318

1980
2748
2331

2040
2788
2948

2058
2973

2089
3014

3505

3619

2253

3663

2282

3723

3809

2934

2957

2999

1697

1731

3234
»

3311
4639
1w
3306

3419

437
1384

3385
4648
1248

3487

1384

3490

3427
4714
1266

287

3536

3514
4873
1386

293

3552

4672

4823

1697

1731

1789

39504
39504
4
14

4020
3971
1384
138

1147

4022

4043

4077

1577

14
W

#
33n

14
1#

1384

4641

4325
4472

1384

1197

1384
1384

1567

2098
688

114
493
1446
1954
2153
2637
3075
3390
3740

1384
617
1466
1980
2162
2660
3153
3392
3754

207
621
1529
1988
2350
2683
3155
3438
3757

1
1w

1384
3274

11594

6472

18244
14

4568

1826

3309

SEQ 01728

2123

2102

2909

SAVREG
SCOPE

2068

2908

RDOCT

REPORT

1801

1936

2906

4630
14

RESREG

1384
138#
1384
1197

1138

1858

3448

RDCHR

RDDEC
ROL IN

138

1841

3398

23:00 PAGE 118

4659

1869

4168

3541
1390

3580

3570
1402

3613

3593
1439

2300

3623

1789

3717
1539
3633

4628
2843

3326

4575

4596

4855

4865

3894

3904

3965

370
1282
1824
2061
2475
2899
3226
3544
4197

373
1313
1832
2089
2499
2905
3247
3546
4200

439
1326
1867
2092
2521
2930
3249
3573
4282

441
1376
1875
211
2547
2932
3279
3578
4313

448
1383
1906
2113
2568
2983
3281
3600
6395

461
1410
1914
2132
2592
2988
3315
3612
6456

491
1413
1946
2134
2613
3070
3319
3738
4458

223
640
1608
2039
2385
2760
3185
3481
3800

283
670
1612
2040
2409
2788
3214
3485
3952

299
672
1653
2049
2430
2790
3216
3519
4030

325
1272
1657
2058
2454
2846
32264
3522
4095

1908

1948

1982

2043

5020

4573

4627
1786

4461

220
638
1537
2036
2352
2748
3183
3442
3784

4884

3158

4409

4441
1781

4413

4222

4881

3086

3857

3936
1727

4325

4174

473

3815

3912
1692

4159

699

3741

3748
1585

2869

4150

6115

3726
1547

5022

5156

3078

5158

3872

5227

3882

5229

CVMSAA

...

—

M10

, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 119
0-2 MEGAWORD MEMORY EXERCISER .
CROSS REFERENCE TABLE ~- MACRO NAMES

SEQ 0129-

04-AUG=81 22:59

CVMSAA.PI

TYPBIN
TYPEN
TYPBYT
TYPDEC
TYPDS
TWPET

TYPNAM
TYPNUM

1
1
1
1
1
.1
1786
4106
4350
.14
14

TYPOCS
TYPOCT
TYPON
TYPOS
TYPTXT

14
1#
14
1#
14

TYPOC

$CKWD

SINDN
SINVM
SMVDN

SMMUP

$SCKWD
SSCMRE
SSCMIM
SSESCA
SENEWT

SSSETM
$$5KIP

.CHBHD
€11
.DIDBH
.DIDBL
.0ID0
.01PDO
.DPDBH
.OPDBL
.EQUAT
.ERROR

.HEADE
KT
MARHD

. SCOPE

.SETUP
- SWRHI
- SWRLO

1384

1#
2566
14
2194
2652
3234
323#
14
14
2430
11754
14

27484
21534
24754
24304
23854
25214
26134
25684
14
14
2195
2653
3510
1#
14
26604

2500
14

4
14

4158

1188
2866
$133
4361

1248
2875
4137
4363

4150

4222

1575,
4149

1577

1679

1182

14
2293
14
14
2505

2868

159

1584
4113

2593

2103
2696

2124
2705

2145
2727

2193
2780

2273

2139

2172

2357

26415

2460

2150

2380

2428

2473

2519

2009
2423

2070
2468

2104
2514

2125
2561

2146
2606

2058 - - 2089

2132

2153

2350

2385

1974

2071
2469
3359

-2105
2515

3395

2126
2562
3445

2147
2607
3497

2163

2353

2410

2455

2218
4649

4208
4513

3902

4853

4863

3872

3882

3894

3904

4174

4855

4865

1842

1859

1897 -

1937

1972

2008

2069

3487

4184

1867

2568

2613

2810

2660

. 2748

2040

2788

1844 " 18610 71899

1681

1915-. 1955

2638

4344

- ...1906 % " 1946 . 1980
’

1645

4064

. 363

2275
2251
2042
.« 2729 1. 2782
5507
. 8565 . 3656 7 4813

1876

1781

3892

2098 .

1637

1728.
4055
4337

3880

-:362

361,
(2521

1693
3890
4275

3870
221

1386

2651
2605
2422 . 2467 . 2513 . -2560
2002
1992
_.2118
2099
2065
1958 1967, .2053
3217
.
2805
..
2793
|
63
2775
27
.. 2686
2013 = 1997
- 2074
2108. 2129
1977
. . 2055
- 1962.
3220
2816
. 2786 .. 2197
1973
1938
. 1680 1843 - 1860 -1898
2373
2325~ 233,
- 22% ;2308
' 2274
3854
3563,
2781 #2811~ 3508 * 3558
2728

. 5706
1824

1585
3862
4254
4789

1439
3663

4371

2379
1918
1930
2643
1925
1943
- 2767
- 1646
2250

2333
7890
. 1876
2508
7903
1885
2657
7636
2041
.

1548
3809
4242
4719

1539
3723

1402
3619
4216
4447

1390
3505
2190
4376

1266
3306
4139
4366

5
229"
5812
«

1939

2309 .~
2951 ©

2326, 2335
2976 ’3199

3299

2374

2010
2424
3322

2050 .

2062

2093

2114

2135

1989

2761

2791,

2819

)

N 10

0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04~AUG-81 23:00
(VMSAA
CROSS REFERENCE TABLE =-- MACRO NAMES
CUMSAA P11
04~AUG-81 22:59
.TM7

L.3ACT

2058»

1
»
1%

.$APTB
.SAPTH
LSAPTY
.$ASTA
LSCATC
.S{MTA
.$0820
.$0820
.S01V

1
1%
[
1%
1%
14

.$EQOP

.$ERRO
.$ERRT
LIMULT
. $POWE
. SRAND
. $RDDE
. $RDOC
.SREAD
. SR2AZ
. $SAVE
.$582D
.$5820
.$SCOP
.$SIZE
. $SUPR
.STRAP
.3TYPD

2846

4659
6470
4729

281
4393
4195

3950

1170

. ABS.

323

4028
4095

1
»
»

.$TYPE
.$TYPO
.$40CA

4566
459
188

iy
LY4
»
»
14
1%
1%
»
1»
14
14
14
14
1%
14
1Y

.$TYPB

2060
205
371
437

032000

ERRORS DETECTED:

000

CVMSAA, CVMSAA/SOL /CRF =SYSMAC . SML , CVMSAA. P11
RUN-TIME: 1 22 1 SECONDS

RUN-TIME RAT[OQ: 79/44=1.7
CORE USED:

4 5k

(90 PAGES)

PAGE 120

SEQ 0130