Digital PDFs

XX-AD3F6-2A

April 1981

131 pages

Original

62MB

view download

OCR Version

82MB

view download

Document:	CVMSAA0 MSV11-DD,LF,PK,ED,LK,PF,PL 0-2 MEG MEM EXER AH-S437A-MC OCT 1981 gray
Order Number:	XX-AD3F6-2A
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_gray.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)

SEQ 0007
REM

IDENTIFIEAT{(_)}

PRODUCT CODE:

AC-S435A-MC

PRODUCT NAME:

CVMSAAQ 0-2 MEG MEM EXER

PRODUCT DATE:

APRIL ,1981

MAINTAINER:

DIAGNOSTIC ENGINEERING

NOTICE
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
ENT
EQUIPM
L
DIGITA
BY
MENT
AND SHOULD NOT BE CONSTRUED AS A COMMITASSUME
TY
SIBILI
RESPON
NO
S
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 RELIABILITYATED
COMPANIES.
AFFILI
EQUIPMENT THA' IS NOT SUPPLIED BY DIGITAL OR ITS
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
—————————————————
Pt

REVISION A:

APRIL 1981

SEG 0003

LOADING AND STARTING PROCEDURE
SPECIAL ENVIRONMENTS

PROGRAM OPTIONS

EXECUTION TIMES

ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

PERFORMANCE AND PROGRESS REPORTS
DEVICE INFORMATION TABLES
MOS PARITY REGISTER
SUB-TEST SUMMARIES

e
=
NN

SHWN=-0
N=0

WKL
-

OPERATING INSTRUCTIONS

ASSUMPT IONS

DIAGNOSTIC HIERARCHY PREREQUISITES

WV
.

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

VIR WN—=0O

OO
~

V-0

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 LI3TING

1.0

GENERAL PROGRAM [NFORMATION.

1.1

PROGRAM PURPCSE (ABSTRACT)

THIS PROGRAM HAS THE ABILITY TO TEST MEMOR:Y
000000 TO ADDRESS 17757777. 1T DOES SO USING

A.
8.

SEQ 0004

FROM ADDRESS

UNIQUE ADDRESSING TECHNIQUES
WORSE CASE NOISE PATTERNS, AND

INSTRUCTION EXECUTION THRUOUT MEMORY.

EHENSIVELY AS
THE INTENT OF THIS PROGRAM IS TO TEST AS COMPR
WITHOUT
BUS
1
LSI-1
THE
ON
POSSIBLE ALL MOS MEMORIES USED
RELATE
TESTS
THE
UGH
ALTHO
.
CONCENTRATING ON ANY ONE SYSTEM
S.
SYSTEM
N
CERTAI
FOR
TE
COMPLE
BE
MAY
TO GENERAL DESIGNS THEY
100%
TOTAL
A
BE
TO
ED
INTEND
THIS TEST IS ALSO NOT
TEST OF THE MEMORY. OTHER TESTS THAT DO I/0 MAY FIND MEMORY
PROBLEMS THAT THIS TEST IS UNABLE TO.

1.2

SYSTEM REQUIREMENTS

HARDWARE REQUIREMENTS

LSI=11/2,L51=11/23 BUS FAMILY PROCESSORS.

MINIMUM OF 16KW OF MEMORY.
.
..
OPTIONAL

ANY PARITY MEMORY CONTROL MODULE.
KTF11 MEMORY MANAGEMENT.
€.

SOFTWARE REQUIREMENTS

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

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

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

1.2

SEQ 0005

HARDWARE RESTRICTIONS

BIT) MEMORIES WITH
IF THE SYSTEM HAS MIXED MSV11-D (18
T IS RECOMMENDED
IES,I
MEMOR
BIT)
MSV11-L OR MSV11-P (22
-P TC 18 BIT MODE.

TO SET UP THE MSV11-L OR MSV11
Y
AS THE PROGRAM AUTOSIZES FOR NONCONTIGUOUS MEMOR
'Msvil-DTM'

VE RESPONSES FROM THE
17 1S POSSIBLE TOGRECEI
ABOVE 18 BITS. THIS CAN CAUSE

MEMORY WHEN SIZIN

INCORRECT MEMORY SIZING AND FALSE ERRORS.

RELATED DOCUMENTS AND STANDARDS

A.
B

C.
D.

1.4

175-003-009-01
PROGRAMMING PRACTICES - DOCUMENT NO. EC-11
-DZQAC-(5-D
PDP=11 MAINDEC SYSMAC PACKAGE - MAIND E MANUA
L
THE APPLICABLE MEMORY SYSTEM MAINTENANC
THE APPLICABLE CIRCUIT SCHEMATICS

DIAGNOSTIC HIERARCHY PREREQUISITES

OSTIC SHOULD BE RUN
BEFORE RUNNING THIS PROGRAM, A CPU DIAGN
PROCESSOR AND PDP-11
THE
T0 VERIFY THE FUNCTIONALITY OF
INSTRUCTION SET. FOR LSI=11/23:CJKDB_ DIAG

FOR LSI=11/2 :CVKAAZ DIAG

THE KTF11
IF MEMORY MANAGEMENT IS TO BE USED, THEN
PROGRAM.

CJKDA_ SHOULD ALSO BE RUN BEFORE THIS
1.5

ASSUMPTIONS

2.0

OPERATING INSTRUCTIONS

2.1

LOADING AND STARTING .>ROCEDURES

DIAGNOSTIC

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.

e—
.

———

SEQ@ 0000

SPECIAL ENVIRONMENTS

MODE UNDER ACT11 OR
IF THE PROGRAM IS RUN IN AUTOMATIC THE
FIRST PASS. ALSO, THE
APT11 THE PROGRAM 1S DONE AFTER
8K OF MEMORY,

PROGRAM DOES NOT RELOCATE TO TEST THE LOWER
AFTER THE FIRST PASS.

2.3

PROGRAM OPTIONS

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

SW15= 1 OR UP....

ERROR
ONLT
HA

= 1 OR UP....
SW14

TEST
OP
ON
LO

SW13 = 1 OR UP....

SW12 = 1 OR UP....

2.4

INHIBIT ERROR TYPEOUT

INHIBIT MEMORY MANAGEMENT C(INITIAL

START ONLY)

SW11 = 1 OR UP....

INHIBIT SUBTEST ITERATION (NOT USED)

SW10 = 1 OR UP....

RING BELL ON ERROR

10R UP....

ERROR
ONOP
LO

SW9

SWw8

=1 0R UP....

LOOP ON TEST IN SWR<4:0>

SW7

= 10R UP....

SWwé6

= 10R UP....

INHIBIT PROGRAM RELOCATION
INHIBIT PARITY ERROR DETECTION

SW5

=1 0R UP....

INHIBIT EXERCISING VECTOR AREA
(LOCATIONS 0-1000).

EXECUTION TIMES

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

WORSE CASE RUN TIMES WITH MOS MEMORYS

FOR NON-PARITY MEMORY

FULL PASS:

< 5 MINUTES FOR 64KW
30 MINUTES FOR 1280 Kkw

FOR PARITY MEMORY

FULL PASS:

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

APT TIME 1S SETUP FOR 256kw (APPROX. 20 MIN).

SEQ@ 00U/

*PLEASE MAKE CHANGES TO APT TIMES AS MEMORY
INCREASES OR DECREASES IN SIZE.

ERROR [NFORMATION
ERROR REPORTING

REPORTS GENERATED
THERE ARE A TOTAL OF 31(8) TYPES OF ERRORHEADI
NG MNEMONICS ARE
N
COLUM
BY 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)

DETECTION

ERROR

CODE.

THE ERROR

THIS IS WHERE

DETECTION CODE CAN BE FOUND IN THE PROGRAM LISTING.
THE ERROR
P/PC = PHYSICAL PROGRAM COUNTER. THIS IS WHERE
DETECTION CODE IS ACTUALLY LOCATED IN MEMORY.
TRP/PC = FT’:X’S,ICAL PROGRAM COUNTER OF THE CODE WHICH CAUSED A

3.2

ERROR HALTS

WITH THE 'HALT ON ERROR' SWITCH

(SW15)

NOT

SEVERAL PROGRAMMED 'HALTS' IN THE PROGRAM:

THERE

SET

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

ARE

THE

RELOCATED

RELOCATION ROUTINE

THE

PROGRAM

IS 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

UP SEQUENCE WAS
IN THE POWER FAIL ROUTINE IF THE POWER
STARTED BEFORE THE POWER DOWN SEQUENCE HAD A CHANCE TO

COMPLETE ITSELF.

OR ANY OF THE ADDRESS
IN THE MEMORY MAPPING ROUTITONE FIND
A MEANINGFUL MAP.
CONTROL ROUTINES, FAILURES

E.
4.0

PERFORMANCE AND PROGRESS REPORTS
NOT APPLICABLE

5.0

DEVICE INFORMATION TABLES

L STATUS
THE FOLLOWING IS A PICTURE VIEW OF A PARITY (CONTRO
IONS,
DEFINIT
AND
ENTS
ASSIGNM
BIT
SHOW
REGISTERS, WHICH WILL
10 PROVIDE A HANDY REFERENCE:

——

MOS PARITY REGISTER
I
: pEl
I

—

502

1
¢
1

1.
£

£
f

YAtk
R R R b DL PR
ROt
YA
R
X
Y

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

WRITE
BIT02
PARITY #NORMAL
(ODD)
WHEN
OTHER _ PARITY
WHEN SET

WRONG

PARITY
CLEAR;
(EVEN)

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

BITS 5-11 ADDRESS BITS FOR A1l
OR ADDRESS BITS 18-21,IF Bl 3.3
LOCATES PARITY ERROR TO A 1 K
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.

SkG@ O0UB

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 THEION.
AFTER ALL MEMORY HAS BEEN
ADDRESS INTO THAT MEMORY LOCAT
ED AGAIN.

WRITTEN, ALL LOCATIONS ARE CHECK

TEST 2 WRITES THE BYTE VALUE OF EACH ADDRESS INTO THAT BYTE

LOCATION AND CHECKS IT.

TEST 3 WRITES THE COMPLEMENT OF EACH WORD ADDRESS INTO

LOCATION AND CHECKS IT.

THAT

TEST 4 WRITES THE 8K BANK NUMBER INTO EACH BYTE OF THAT BANK
AND CHECKS IT.

TEST 5§

INTO EACH

WRITES THE COMPLEMENT OF THE BANK NUMBER

BYTE OF THAT BANK AND CHECKS IT.
6.2

SECTION 2:

WORST CASE NOISE TESTS.

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

THE

VARIOUS

TOR TO
TEST 6 AND TEST 7 ARE SUPPLIED TO ALLOW THE4) OPERA
SCOPE ON
SELECT A SINGLE WORD DATA PATTERN (SA=20 NGAND(DATI)
IN
EITHER THE WRITING (DATO) IN TEST 6 OR THE READI
TEST 7 OF THAT DATA.

.CONST:0

LOCATION

D BE CHANGED IF A DIFFERENT

SINGLE WORD DATA PATYERN IS CONSIDERED.

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

ES T 12 WRITES ALL MEMORY WITH
"Rl PPLES'' A """ THROUGH IT.

0'S IN EVERY

BIT

AND

THEN

BYTE OF MEMORY AND
TEST 13 WRITES WRONG PARITY INIONEACH
LOGIC WORKS. THIS TEST IS
THE PARITY DETEfT

CHECKS

THAT

TEST 14

WRITE

SKIPPED FOR NON-PARITY MEMORY'
CHECKS IT.

6.3

SECTION 3:

‘RANDOM'' PROGRAM

C(ODE

THROUGH MEMORY

AND

INSTRUCTION EXECUTION TESTS.

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

THAT THEY EXECUTED CORRECTLY.

TEST 15 EXECUTES AN INSTRUCTION WHICH DOES A DATI AND A DATO

ON THE MEMORY UNDER TEST.

WHICH DOES A DATI
TEST 16 EXECUTES AN INSTRUCTIOY NUNDER
TEST.

DATOB ON THE LOW BYTE OF MEMOR
TEST 17 EXECUTES AN INSTRUCTION WHICH
DATOB ON THE HIGH BYTE.

DOES A DATI

AND A
AND A

Li?g 20 EXECUTES AN INSTRUCTION WHICH DOES A DATIO AND A
TEST 21

EXECUTES AN INSTRUCTION WHICH DOES A DATIO AND A

DATOB ON THE LOW BYTE.

TEST 22 EXECUTES AN INSTRUCTION WHICH DOES A DATIO

DATOB ON THt HIGH BYTE.
6.4

SECTION 4:

AND

MOS TESTS

GH MEMORY, THEN
TEST 23 -WRITES A PATTERN OF 000377 THROU
COMPLIMENTS THE NEW
COMPLEMENTS IT ADDRESSING DOWNWARD,
PATTERN
PATTERN ADDRESSING UPWARD, COMPLIMENTS THE S THIRD
A8
NEW
THIS
ADDRESSING UPWARD AND FINALLY COMPLIMENT
PATTERNS ADDRESSING DOWNWARD.

TEST 24-25 WRITE A CHECKERBOARD THROUGH MEMORY THEN
FOR 2 SECONDS AND THEN VERIFIES NO DATA HAS CHANGED.
6.5

SPECIAL TOGGLE IN TESTS

6.5.1

TOGGLE~IN-PROGRAM #1

STALLS

TEST
THE FOLLOWING IS A TOGGLE IN MEMORY ADDRESS TEST. THIS
TED
SUSPEC
IS
E
IS USEFUL WHEN AN ADDRESS SELECTION FAILUR
THE
WRITES
M
INVOLVING THE FIRST 8K OF MEMORY. THIS PROGRA
LOWER
THE
WITH
NG
VALUE OF EACH ADDRESS INTO ITSELF STARTI AFTER ALL ADDRESSES
LIMIT.
LIMIT (200) AND CONTINUING TO THE UPPERCHECKE
D FOR THE CORRECT
HAVE BEEN WRITTEN EACH ADDRESS 1S
E%EN{?HflARTING WITH THE UPPER LIMIT AND CONTINUING TO THE
LOCATION CONTENTS

10
12
14

012700
000200
010001

20
22
24
58

000176
001403
010010
005720
000772

32
3

020037

010004

020001

MNEMONIC

COMMENT

MOV #200.RO :;GET FIRST ADDRESS
*TO 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%

2%: MOV RO,R¢
3$: CMP 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

:CHECK IF AT LOWER LIMIT

SEQ 0010

+ 36
40
42

Ll
46
6.5.2

;BRANCH IF DONE
BEQ 18
K DATA WRITTEN
;CHEC
(MP -(RO) RO

001767
024000

BEQ 3%

001774

HALT
BR 3%

000C00
000772

;BRANCH IF OK

;ERROR
:LOOP BACK

TOGGLE~IN~-PROGRAM #2

USED WITH
THE FOLLOWING IS ALSO A TOGGLE IN PROGRAM TOSS BE
ETE ADDRE TESTING. THIS
TOGGLE~IN-PROGRAM #1 FOR MORE COMPL
OF EACH ADDRESS INTO
VALUE
EMENT
COMPL
PROGRAM WRITES THE
NUING TO THE

AND CONTI
ITSELF STARTING WITH THE UPPER LIMIT
BEEN WRITTEN EACH
HAVE
SSES
ADDRE
ALL
LOWER LIMIT. AFTER
CONTENTS STARTING WITH THE
ADDRESS 1S CHECKED FOR THE CORRECT
UPPER LIMIT.
LOWER LIMIT ADDRESS AND CONTINUING TO THE
ABOVE.
AM
TOGGLE IN THE FOLLOWING PATCHES TO THE PROGR
THIS IS THE PATCH TO TOGGLE-IN-PROGRAM #1:

LOCATION CONTENTS

MNEMONI C

001404

- BEQ 4%

LOCATION
50

CONTENTS
010402

MNEMON] C
4$: MOV Ré4,R2

COMMENT

;BRANCH TO PROGRAM #2

THESE ARE THE ADDITIONS TO TOGGLE-IN-PROGRAM #1:

52
54
56
60
62
64
66

005142
020201
001375
8%0204
1755
010203
005103

000770

70
72
74

7.0

020322
001772
000000

PROGRAM L ISTING
ATTACHED

58: COM -(R2)
CMP R2.R1
BNE 5%
6%: CMP R2.R4
BEQ 1%
MOV R2.R3
COM R3

COMMENT
;GET UPPER LIMIT

;COMPLEMENT ADDRESS
;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

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

BR 6%

;GO CHECK NEXT ADDRESS

SEQ 0011

r——————————————————————————

04-AUG-81
(=2 MEGAWORD MEMORY EXERCISER, }60( VER MACY11 30(1046)
CVMSAA
NTS
CONTE
OF
ABLE
04~AUG~81 22:59
CVMSAA. P11
14
29
141

OPERATIONAL SWITCH SETTINGS
BASIC DEF INITIONS
MEMORY MANAGEMENT DEF INITIONS

198
206

STARTING ADDRESS(ES)
ACT11 HOOKS
POWER DOWN AND UP ROUTINES

TRAP CATCHER

189

COMMON TAGS

2
438

APT MAILBOX-ETABLE
APT PARAMETER BLOCK

670

MEMORY PARITY PATTERNS TABLE

APT STATISTICS TABLE

MEMORY PARITY REGISTER ADDRESS TABLE

688
993

ERROR POINTER TABLE

1138
1149
1183

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

1410
1446

MAP PARITY REGISTERS
MAP PARITY MEMORY
DISPLAY PARITY MEMORY MAP
TEST PARITY REGISTERS

1191

GET VALUE FOR SOF TWARE SWITCH REGISTER

1529
1608
1824

SECTION 1:

1909
1950

T3
T4

1825
1869

1985
2041
04g

06
5097
120
5142
164

236;

239
S39B
444
490
537

585
2631

23:00

71
T2

R
SECTION 2:
T6

17
110
TMm
112
T13

T14

SECTION 3:
115
T16
T17
120

121
T 22

MEMORY ADDRESS TESTS

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY
WRITE VALUE OF MEMORY ADDRESS INTO MEMORY

S INTO ADDRESS.
WRITE 1'S COMPLEMENT VALUE OF ADDRES
BK BANK
A
IN
SSES
ADDRE
ALL
WRITE BANK # INTO
WRITE 1'S COMPLEMENT OF BANK #.
WORST CASE NOISE TESTS
WRITE A CONSTANT INTO MEMORY.

READ MEMORY AND COMPARE TO CONSTANT. G
WORSE CASE NOISE (PARITY) WORD TESTIN
ROTATE A ‘0'' BIT THROUGH A FIELD OF ONES.
ROTATE A '"1'* BIT THROUGH A FIELD OF ZEROS
WORSE -ASE NOISE PARITY BYTE TESTING
RANDOM DATA TESTING THRU PROGRAM CODE 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.

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

secnourl.énos TESTS
MARCHING 1'S AND 0'S.

WRITE CHECKERBOARD STARTING WITH '125252' DATA.
WRITE CHECKERBOARD STARTING WITH 052525 DATA
125
RELOCATE PROGRAM AND REPEAT ALL TESTS.
124

DONE:

END OF PASS ROUTINE

SUBROUTINE AND TRAP ROUTINE SECTION.

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

SEQ 001,

CVMSAA
4218

441

449

459

4846
4905

5044

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

CVMSAA.P11
4051
4120

04~AUG-81 22:59

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

APT COMMUNICATIONS ROUTINE
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
BINARY TO OCTAL (ASCII) AND TYPE
PHYSICAL ADDRESS TYPE ROUTINE
STANDARD PROGRAM MESSAGES

ERROR REPORTING MESSAGES AND TABLES.

SEQ 0013

———————————

o e e

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

CVMSAA

CVMSAA.P11

LTITLE

04~AUG-81 22:59

CVMSAA

0-2 MEGAWORD MEMORY EXERCISER, 16K VER

;*COPYRIGHT (C) 1981
;*DIGITAL EQUIPMENT CORP.
et
n

;*MAYNARD, MASS. 01754
-

; *PROGRAM BY SAM/BARRY/BILL

BLED USING THE PDP-11 MAINDEC SYSMAC
i#THIS PROGRAM WAS ASSEM
DZQAC-C5), JAN, 1981.
L4

“«PACKAGE (MAINDEC-11-

PRENNS VNV
W

. "

_SBTTL.

OPERATIONAL SWITCH SETTINGS

SWITCH

- %

— e

i
i

i
i
i

i
v
;v

"SBTTL

001100

LOOP ON TEST
INHIBIT ERROR TYPEOUTS

1
10
9

INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

7
&
5

INHIBIT KT11 (AT START TIME ONLY)

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

BASIC DEFINITIONS

:«INITIAL ADDRESS OF THE STACK POINTER #x+ 1100 w=#

STACK=
_EQUIV
"EQUIV

1100
EMT,ERROR
IOT,SCOPE

::BASIC DEFINITION OF ERROR CALL
*:BASIC DEFINITION OF SCOPE CALL

: *MISCELLANEOUS DEF INITIONS

11
12
15

HT=
LF=
CR=

177570
177570

DSWR= 177570
DDISP= 177570

000000
000001
000002
000003
000004
000005
000006
000007
000006

HALT ON ERROR

14
13

000011
000012
000015

000
177776
177774
177772

USE

CRLF= 200
177776
PS=
.EQUIV PS_PSW
STKLMT= 177774
PIRQ= 177772

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

*:CODE FOR CARRIAGE RETURN-LINE FEED
**PROCESSOR STATUS WORD
;:STACK LIMIT REGISTER
" PROGRAM INTERRUPT REQUEST REGISTER
"HARDWARE SWITCH REGISTER
* "MARDWARE DISPLAY RECISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS

RO=
R1=
R2=
R3=
R&=
RS=
R6=
R7=
SP=

0
11
%2
%3
%
x5
%6
X7
26

; :GENERAL REGISTER
: :GENERAL REGISTER
*:GENERAL REGISTER
: :GENERAL REGISTER
::GENERAL REGISTER
*:GENERAL REGISTER
: :GENERAL REGISTER
::GENERAL REGISTER
;:STACK POINTER

SEQ 0014

0=2 MEGAWORD ' “MORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

CVMSAA
CVMSAA P11

PN ARP= A VS SRR
S=338SR5RER2888 RORZC2STRARRRADZ2EIS AEN

57
58
59

b
—

N—=O

NNNNNNN

04-AUG-81 22:59
000007

BASIC DEF INITIONS
PC=

23:00 PAGE 3

; :PROGRAM COUNTER

;*PRIORITY LEVEL DEFINIT IONS
::PRIORITY LEVEL 0
0
PRO=
::PRIORITY LEVEL 1
PR1=
40
100
::PRIORITY LEVEL 2
PR2=
::PRIORITY LEVCL 3
140
PR3=
::PRIORITY LEVEL '
PR4=
200
::PRIORITY LEVEL 5
240
PR5=
::PRIORITY LEVEL 6
300
PR6=
::PRIORITY LEVEL 7
340
PR7=

;«"'SWITCH REGISTER'® SWITCH DEF INITIONS

Swi5=
SWi4=
swi3=
swi2=
SW11=
Swi0=
Sw09=
Swo8=
Swo7=
sSwo6=
SWo5=
SWo4=
Swo3=
swo2=
Swo1=
Swoo=

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

.EQUIV

.EQUIV
.EQUIV
.EQUIV

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

SW09,Sw9
SWO08,Sw8
SWO07,Sw7
SW06,SwWé
SWO5,SW5
SW04,SWé4

SWO3,Sw3

SW02,SW.
SWO01,sw1
SW00,SwW0

:*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BIT06=
BIT05=
BITO4=
BIT03=

BIT02=
BITO1=

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
&
2

SEQ 0015

04-AUG-81 22:59
000001

e e

—_

VMR
NN
=00V
NV
WN
=0V w
SARARAR IS BHIRRRUR LB SR IGHRGR 20D &I uruungmNNWNNNBAJA--a-

CVMSAA P11

Y
—————

: :TRACE TRAP

: :BREAKPOINT TRAP (BPT)
:: INPUT/0UTPUT TRAP (10T) *«SCOPE=**

I0TVEC= 20

: ;POWER FAIL

PWRVEC= 24

:;EMULATOR TRAP (EMT) =+ERROR**

EMTVEC= 30
TRAPVE C=34

::"'TRAP'' TRAP

TKVEC= 60
TPVEC= 64
PIRQVE(C=240

D b d e

D D e e

::TIME OUT AND OTHER ERRORS
::Rg.s.fg\fib AND ILLEGAL INSTRUCTIONS

BPTVEC= 14

.SBTTL

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

MEMORY MANAGEMENT DEF INITIONS

;*KT11 VECTOR ADDRESS
000250

MMVEC=

250

;*KT11 STATUS REGISTER ADDRESSES

D e

o ot

D o e

T Y T

.EQUIV
.EQUIV

BIT03.8BIT3
BI702,8IT2
BIT01,BIT1
81700,B170

BIT04 .BIT4

TBITVEC=14
TRTVEC= 14

177572
177574
177576
172516

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

;*KERNEL ''I'* PAGE DESCRIPTOR REGISTERS
N
o«amog 2 N

e
o
e
e
itk e

NNNNNNNN
noNORONONORONON

D i

D i i e

BIT09.81T9
BIT08.8I178
BIT07.BIT7
BIT06.BIT6
BIT05,8BIT5

RESVEC= 10

BIT00=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

ERRVEC=

b o

23:00 PAGE 4

;*BASIC "'CPU” TRAP VECTOR ADDRESSES

ol ot ol
o
il ol
— ol

BASIC DEFINITIONS

.EQUIV
.EQUIV

KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172
KIPDR4= 17231
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316

(VMSAA

04-AUG-81

(=2 MEGAWORD MEMOR Y EXERCISER, 16K VER MACY11 30(1046)

;*KERNEL ''I'' PAGE ADDRESS REGISTERS
KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344

SEQ 0016

CVMSAA

169
170
21

04~AUG-81 22:59

MEMORY MANAGEMENT DEF INITIONS

17234€
172350
172352
172354

KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354

000000
000006

uP =0
RW = 6

000001
000114

AE=1
PARVEC=114

172356

017777
037777

000007

SRR REN 8B

IR N RN 2B I I A NN

E 2

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

CVMSAA.P11
-‘-‘-.—ws-‘-‘-tz-‘-‘-hd-‘-‘-.-hd-‘-h‘-‘-‘—"d-‘-‘—hd

G
000174 000000
000176 000000

201

000004

000000

98 000200 000137 003742
288 000204 000167 000070

zog 000004 023252
g& 000006 000000
2282
207

208

000010
209
000046
210
5111 000046 %3?3

040000
000052 000010
21§
214

KIPAR7= 172356

MEM MGMT PDR'S
:CODE FOR UPWARDS MAP ININMEM
MGMT PDR'S
WRITE
:CODE FOR READ/

PARITY MEMORY DEFINITIONS.

;PARITY ACTION ENABLE
;PARITY TRAP VECTOR

MISCELLANEOUS ASSIGNMENTS

;MASK FOR 4K ADDRESS BANK BOUNDARY.
;MASK FOR BK ADDRESS BANK BOUNDARY

MASKé4K= 17777
MASK8K= 37777

;MOVE FROM PROCESSOR TYPE TO RO

MFPT=

.SBTTL

TRAP CATCHER

.=0
IN A ''.+2,HALT"
-ALL UNUSED LOCATIONS FROM 4 - 776ANDCONTA
INTERRUPTS
«SEQUENCE TO CATCH ILLEGAL TRAPS

:-Locmou#‘coumus 0 TO CATCH IMPROPERLY LOADED VECTORS
- :SOFTWARE DISPLAY REGISTER
DISPREG: .WORD 0
“SOF TWARE SWITCH REGISTER
SWREG: .WORD 0
"SBTTL

STARTING ADDRESS(ES)

JMP
JMP

NG ADDRESS OF PROGRAM US PARAMETERS.
HSTART ::JUMP TO STARTI
“RESTART ADDRESS, USING PREVIO
RESTAR

'WORD
WORD

ERRTRP
O

.=ERRVE(

LSBTTL ACT11 HOOKS
::'.fiflfifiiit.tfifltt't*.ttt't'tt.tt"i.t"ttt.tlit.'t'.'t'tt."-'ti'

*HOOKS REQUIRED BY ACT11

$SVPC=.
=46
sggng

BIT14
'WORD
~=$SVPC

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

2 TO BIT14
LOC.5
;:2)SETTORE
PC
*“"RES

SEQ 0017

' CVMSAA

CVMSAA.P11

04~AUG-81 22:59

ACT11 HOOKS

215

00010C

.=100

219

000300

:‘-tt'.ttltt'tttlt'ttlttttt"".'i.tt...tttt.t...'t't.t.ttitt.Q..t

516 000100 000104 000340 000002 .WORD
g%;
2 o

221

:1F BEVENT IS ENABLED
“IGNORE ITS INTERRUPT,DO RTI

104,340.2
.=300

SO THAT
LOCATED IN THE VECTOR AREA (0-1000) OF
"% THE FOLLOWING ROUTINES ARE SELECT
ING SWOS (SEE DOCUMENT FOR USE SWOS’.

224 000300 005005
01
225 000302
226 ooo& 0107056 001070
01270 000216
227 000
228 000312 005767
229 000316 001002

003432
230 000320 000167
231 000324 0057674 000206

zsg
23%
23,
235

000330
000332
000340
000342

00145
032737 000001 177572
001027
012700 172300

243
244
245
246

000374
000376
000400
000402

005020
005020
005020
005020

253
254
255
§6
57
58
59
261

000430
000432
000436
000440
000444
000450
000454

103403

370 000522

105067

23% 000346 012701 000010
237 000352 012720 077406
238 000356 005301
239 000360 001374 172340
240 000362 012700
241 000366 005020 000200
242 000370 012720

‘«

RESTAR: CLR
BR
RESTOR: MOV

REST1: MOV
ST
BNE
JMP
REST2: TST
18:

062700 000400
000773
48:
010037 172340
000137 000450
5%:
oossgg oooggo
172342
01
m 000410
108:
016700 000044
000466 062700 001070
000472 010983
177412
838%3 062
000110
5
000502 022767 0000017 000024 20$:
26 ooosrg 001402 014370
gge 000512 004767
21%:
9 000516 005067 000436
000344

THEY CAN BE PROTECTED BY

:.-t..tt..ttt.tt.ttlttt't"t't't.".t.tt'tQ.Q....Q..Q.'.'..'."'l.

247 000404 005020
248 000406 012720 177600 177572
249 000412 012737 000001
2s:
005000
250 000420
000106
016701
251 000422
3$:
1
25 oooasg

—

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

BEQ
BIT
BNE
MOV

RS
REST1
PC,

#SCMTAG, SP
PRGMAP
REST2
STARTA
MMAVA

108
#BITO. @#SRO
28
#KIPDRO,RO

T.
:CLEAR FLAG TO INDICATE RESTAR
TING.
RESTAR
BEFORE
M
PROGRA
E
RESTOR
GO
E.
RESTOR
FOR
FLAG
INTO
DATA
“PUT
POINTER.

“SET UP THE STACK
HAS BEEN MAPPED.
‘CHECK IF THE MEMORY
.
*BR IF MEMORY MAPPED
MAPPED
GO START,IF NOT
*CHECK IF MEM MGMT AVAILABLE.
“BR IF NO MEM MGMT.
.
-CHECK IF MEM MGMT ACTIVE
UP.
‘BR IF MEM MGMT ALREADY SET
:POINT TO FIRST MEM MGMT DDATA REC.

*SET UP COUNTER.
:MAP FIRST 28K 1-FOR-1.
*COUNT REGISTERS.
*BR IF MORE REG.
MEM MGMT ADDRESS REG.
*POINT TO FIRST
*PARO MAPPED INTO BANKO.
:PAR1 MAPPED INTO BANK1.

MOV
MOV
DEC
BNE
MOV
CLR
MOV

R1
48,
+
6,(RO)
#07740
R1
18
#K1PARO , RO
(RO) +
#200, (RO)+

CLR
MOV
MOV
CLR
MOV
ASR

*PAR6 CLEARED INTO LAST BANK.
(RO) +
#177600.(R0)+ :PAR7 MAPPED
MEM MGMT.
#8170, @#SRO :ENABLETEMP
PAR REG.
YINIT
RO
M MAP...LO 64K.
*GET THE PROGRAPOINTE
PRGMAP, R1
R...
‘SHIFT THE MAP
R1
‘BR WHEN FIRST 8K BANK FOUND.
48
“UPDATE TMP PAR TO NEXT 8K BANK.
#400, RO
SNEXT 8K BANK
3$
FIRST PAR.
a#KIPARO :PUT TEMP PAR INTO
RO
THERE ALREADY.
IF
:JUMP INTO PROGRAM NOTREG.
arss
*KEEP UPDATING TEMP PAR BANK POINTER.
#200, RO
M
a#KIPAR1 :SET UP SECOND PROGRAN.
RO
:BR TO RELOCATE SECTIO
208
*GET RELOCATION FACTOR.
RELOCF, RO
“SET UP STACK POINTER.E PROGRAM.
#$CMTAG,RO
*SET STACK TO RELOCAT
SP
RO
T RO TO RELOCATED '208'* ADDRESS.
#208-#$CMTAG,RO ADJUS
GO TO '208'* (RELOCATED).
(RO)
PRGMAP -CHECK IF PROGRAM IS IN 8K BANK O .
",
‘BR IF IN 8K BANK O.
21%
TO BANK O.
-RELOCATE THE PROGRAM BACK
RELO
PC,
G.
“CLEAN UP BEFORE STARTIN
$TIMES

CLR
CLR
CLR
CLR

BCS

ADD
B8R
MOV
JMP
ADD
MOV
8R
MOV
ADD
MOV
ADD
JMP
CMP
BEQ
JSR
CLR

CLRB

(RO) +
(RO) +
(RO) +
(RO) +

STSTAM

*PAR2 CLEARED
*PAR3 CLEARED
*PARG CLEARED
*PARS CLEARED

SEQ 0018

CUMSAA

0=2

CVMSAA. P11

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

~AUG~81 22:59

2;1 00052¢ 000167 006130

§7§
74
275

000532 000000
000000
0005
277
000536 000000

276

S;g

280

;RESTART WITH PREVIOUSLY SELECTED PARAMETERS.

START1

LOCATED
MUST BE
E AND VARIET
ROUTIN
ABOVE
THE
BY
USED
ARE
ONS
LOCATI
ING
FOLLOW
THE
:»
OF
Y
WIDEST
‘e BELOW 1000 TO INSURE CORRECT OPERATION UNDER THE
;*

CIRCUMSTANCES.

RELOCF: .WCRD
PRGMAP. : .WORD
MMAVA: .WORD

;

O
O
O

MGMT)
;CONTAINS RELOCATION FACTOR (NOMMEM
LOCATED
IS
THE PROGRA
*PROGRAM MAP - WHEREch%CB
G.
&EFLA
:MEMORY M'#GE&:Y”A

BIT 150
:BIT

22 BIT ADDRESSING AVAILABLE

SEQ 0019

1
|

(VMSAA

0=2 ME GA

(UYMSAA. P1

04~

MEMORY EXERCISER, 16K VER MACY11 30(1046)

285
286
287
288
289
290
291
295
293
294
295
296
297

298
299
300

301
30§

30
304

305

306
307
3}3
710
3,1

g‘li

1
21 4
15
316

17
1g
1

1
2

POWER DOWN AND UP ROUTINES

81 2 5%

.SBTTL

581

04-AUG-81

23:00

PAGE 8

SEQ

POWER DOWN AND UP ROUTINES

-'t'I.t...‘.tt..........'..I'.....'.......Q'.'.......Q..'Q-.'tt..

000540
000546
000554
%556
560
000562
000564
000596
000570
000574
000600

000606
000610

000612
000620

0006
0006
000636
000642
000644

000646
000650
000652
000654
000656
000664
000672
000676
000700
000702
000;8:>
000
000710
000712

012737
012737
010046
010146
010246
010346
010446
010546
017746
010667
012737
000000
000776

012737
016706

000706
000340

000026

000334
000112
000612

000776
000000

R4 ,-(SP)

::PUSH R4 ON STACK

::PUSH R3 ON STACK

::PUSH RS ON STACK
R5,-(SP)
:;PUSH @SWR ON STACK
aswR,-(SP)
;:SAVE SP
SP,$SAVR6
#SPWRUP ,#PWRVEC ;;SET UP VECTOR

000024

000706

000024

: JHANG UP

“POWER UP ROUTINE

$PWRUP : MOV
MOV
CLR
INC
1%:
BNE

MOV
MOV
MOV
MOV

012603
012602
012601

000000

;;PRIO:7
::PUSH RO ON STACK
;:PUSH R1 ON STACK
::PUSH R2 ON STACK

000266

012716
000300
000002

#340,3#PWRVEC+2
RO,-(SP)
R1,=-(SP)
R2,-(SP)

"'t."'l'..'l...'Q....'.'."t...l..t'.t...".'...fi.tl!.'t.t..'

012677
012605
012604

01 §737
012737
004567
023761

MOV

.~2

000062
000056

012600

“POWER DOWN ROUTINE
#SILLUP @#PWRVEC ;;SET FOR FAST UP
$PWRDN : MOV

R3,-(SP)

005067
005267
001375

000024

MOV
MOV

000540
000340
020676

000024

000026

MOV
MOV
MoV
JSR
$SPWRMG: . WORD
MoV
$PWRAD : .WORD
RTI
$ILLUP : HALT
BR
$SAVRG: 0

#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN
$SAVR6, SP

;:GET SP

$SAVRG

::WAIT LOOP FOR THE TTY

:;0F

::WAIT FOR THE INC

$SAVR6

(SP) +,aSWR
(SP)+ RS
(SP)+ R4
(SP)+ ,R3
(SP)+,R2
(SP)+ ,R1
(SP)+,R0O

WORD

::POP STACK INTO aSwR
::POP STACK INTO RS
::POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

#SPWRDN ,@a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,3#PWRVEC+2 ;;PRID:7

RS.
PWRMSG

$PRINT

(PC)+,(SP)
RESTART

.~2

:GO PRINT OUT THE FOLLOWING MESSAGE.
:;POWER FAIL MESSAGE POINTER
:RESTART AT RESTART
::RESTART ADDRESS

::THE POWER UP SEQUENCE WAS STARTED

:: BEFORE THE POWER DOWN WAS COMPLETE

::PUT THE SP HERE

‘

(VMSAA

1 2
-81 23:00 PAGE 9
04-AUG
6)
30(104
MACY11
VER
16K
0-2 MEGAWORD MEMORY EXERCISER,
Ok=AUG=81 22:59

CVMSAA.P11

33%2

:«USED IN THE
.=1070

32;

1070

001070

SCMTAG:

1070 000000

$TKS:
$TKB:

11;2 177560
355
177562
353 0011

gg‘

001140
001142
001144
001145
001146
001147
001150
001152
001154

1
365
369 0011% 177607

077
;2‘ 0011
015
001171
%9 001172 000012
370
;1
7

75 001174
37 881176 000000
1176 000000
gr

78 001200 000000

177560
177562

$TPS: 177564
$TPB: 177566
SNULL: .BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TMPO: .WORD
$TMP1: .WORD
$TMP2: .WORD

177564
177566
000
002
012
000
000000
000000
000000

1156 000000
1122 000000

WORD

$TSTNM: .BYTE O
SERFLG: .BYTE O
$ICNT: .WORD O
SLPADR: .WORD O
SLPERR: .WORD O
SERTTL: .WORD O
$ITEMB: .BYTE O
SERMAX: .BYTE 1
SERRPC: .WORD O
$GDADR: .WORD O
$BDADR: .WORD O
$GDDAT: .WORD O
$BDDAT: .WORD O
WORD O
MWORD O
$AUTOB: .BYTE O
$INTAG: .BYTE O
O
WORD
.WORD DSWR
SWR :
DISPLAY: .WORD DDISP

000
00107
3
000
3 0010
w
4
00107
g
S 881076
1100 000000
3;6
g 7 001102 000000
000
38 001104
001
339 001105
0 001106 000000
1 001110 000000
3%2 0C1112 000000
%3 001114 000000
54 001116 000000
S 001120 000000
346 001152 000000
000
3%7 001124
000
3%8 001125
9 001126 000000
177570
50 0011
51 881132 177570
54
55
57
358
59
361
36§

COMMON TAGS

S VARIOUS COMMON STORAGE LOCATIONS
S*«THIS TABLE CONTAIN
AM.
PROGR

ég
1

.SBTTL

:;'.....Q..'...t..ttt.'.l'.'......'..'tttl.t.'.....tt...t..tt.t.t

329

COMMON TAGS

$TMP3: _WORD
$TIMES: 0

000377

O
2
12
O
O
O
O
O

::START OF COMMON TAGS

:;CONTAINS THE TEST NUMBER
: :CONTAINS ERROR FLAG
::CONTAINS SUBTEST ITERATIONS COUNT
::CONTAINS SCOPE LOOP ADDRES
S
::CONTAINS SCOPE RETURN FOR ERROR
ED
DETECT
ERRORS
;:CONTAINS TOTAL
BYTE
:;CONTAINS ITEM CONTROSL PER
TEST
ERROR
MAX.
::CONTAINS
INSTRUCTION
ERROR
LAST
OF
::CONTAINS PC
DATA
'GOOD'
OF
S
ADDRES
AINS
:;CONT
DATA
'BAD'
OF
SS
ADDRE
TAINS
::CON
; :CONTAINS 'GOOD' DATA
::CONTAINS 'BAD' DATA
: ;RESERVED--NOT TO BE USED
:;AUTOMATIC MODE INDICATOR
: ; INTERRUPT MODE INDICATOR
::ADDRESS OF SWITCH REGISTER
::ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
::TTY KBD BUFFER

2:TTY PRINTER STATUS REG. ADDRESSS
::TTY PRINTER BUFFER REG. ADDRES
::CONTAINS NULL CHARACTER FOR FILLS
ED
::CONTAINS # OF FILLER CHARACTERS REQUIR
FEED'
'LINE
A
AFTER
CHARS.
FILL
T
*INSER
“:TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
:JUSER DEF INED
::USER DEF INED
: ;USER DEF INED
: ;USER DEF INED
::MAX. NUMBER OF ITERATIONS

:;ESCAPE ON ERROR ADDRESS
SESCAPE:0
;;CODE _FOR BELL
$BELL: .ASCIZ <207><377><377> ::QUES
TION MARK

$QUES: .ASCII /%
::CARRIAGE RETURN
$CRLF: .ASCIl <15
::LINE FEED
12>
ASCIZ
$LF: t.tttt
t'tt'tttt'tt'ttt'ttn'titt'.ttt.tll'tt't'ttt'Qtltttttt'

;.'tt'
.SBTTL APT MAILBOX-ETABLE
:;ttl.'tt'..l'ttttttt"tt.'t'ttt.tttt'tttt.tttltt.ltQttt'ttttt.tt
.EVEN

SMAIL :
SMSGTY: .WORD
SFATAL: .WORD

S$TESTN: .WORD

: :APT MA]LBOX

AMSGTY ;;MESSAGE TYPE CODE
AFATAL ;;FATAL ERROR NUMBER
ATESTN ;;TEST NUMBER

b
—d

16K VER MACY11 30(1046)

APT MAILBOX-ETABLE

35338

D
D

I
I
S

N
LS LY

Bl g:

":)'80\1'5 SO ?N

)

38833338338

ngXER(ISER.

$PASS:

SDEV(CT:
SUNIT:

" .BYTE

.BYTE

.WORD

WORD

: .WORD

APASS

ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

04-AUG-81

23:00

PAGE 10

; ;PASS COUNT
::DEVICE COUNT
::1/70 UNIT NUMBER
: :MESSAGE ADDRESS
: ;MESSAGE LENGTH
::APT ENVIRONMENT TABLE
: :ENVIRONMENT OYTE

: ;ENVIRONMENT MODE BITS
::APT SWITCH REGISTER
::USER SWITCHES
::CPU TYPE ,OPTIONS

BITS 15-11=CPU TYPE

11704=01,11/05=02,11/20=03,11/40=04,11/45=05

:
:

FERES bNa& FREPRR

b
b
b
b

oNMNO

WWNNN

)
NN NONUN
NN

AMAMS1
AMTYP1

::HIGH ADDRESS.M.S. BYTE
#2
.
,BLK
EM
TYPE
: :M
:;MEM.LAST ADDRESS ,BLK#2
::HIGH ADDRESS,M.S.BYTE
: ;MEM. TYPE ,BLK#3

BYTE
BYTE
JBYTE

: :MEM.LAST ADDRESS,BLKA3
::HIGH ADDRESS ,M.S.BYTE
K#G
,BL.
EM
: :MTYPE
: :MEM.LAST ADDRESS,BLKA#4
:: INTERRUPT VECTOR#1,BUS PRIORITY#1
:: INTERRUPT VECTOR#2BUS PRIORITYA2
: :BASE ADDRESS OF EQUIPMENT UNDER TEST

WORD

: .BYTE
:

BYTE

::DEVICE MAP

WORD
WORD

$DDW9:

$ODW10:
$DDW11:
$DDW12:

$DDW13:
$DDW14:
$DDW15:

BIT 9=FLOATING POINT PROCESSOR
BIT B=MEMORY MANAGEMENT
:;HIGH ADDRESS.M.S. BYTE
::MEM. TYPE ,BLKA#1
=- (HIGH BYTE)
MEM.TYPE BYTE
900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003
::HIGH ADDRESS ,BLKA#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF '‘TYPE'" ABOVE

: .BYTE

e
e
e o
o e
o

o
e e e
hb o

.BYTE
BYTE

2 38338 535358

:
:

o SO0 —=O

nINONNINONY

233333333388888883
8888833888888

NmNNN
FORRZ

11/70=06,PDQ=07,0=10
BIT 10=REAL TIME CLOCK

ADDW12

ADDW13
ADDW14
ADDW15

; :CONTROLLER DESCRIPTION WORD#1
::CONTROLLER DESCRIPTION WORDA?2
: :DEVICE DESCRIPTOR WORD#0
::DEVICE DESCRIPTOR WORDA1
::DEVICE DESCRIPTOR WORD#2
< :DEVICE DESCRIPTOR WORDA3
: :DEVICE DESCRIPTOR WORDA4
::DEVICE DESCRIPTOR WORDA'S
: :DEVICE DESCRIPTOR WORD#6
::DEVICE DESCRIPTOR WORDA7
::DEVICE DESCRIPTOR WORD#8
::DEVICE DESCRIPTOR WORD#9
::DEVICE DESCRIPTOR WORD#10
::DEVICE DESCRIPTOR WORDA#11
::DEVICE DESCRIPTOR WORD#12
::DEVICE DESCRIPTOR WORDA13
::DEVICE DESCRIPTOR WORD#14
::DEVICE DESCRIPTOR WORDA15

SEC

00«

(VMSAA

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

CVMSAA.P11
435

436

04~-AUG-81 22:59

APT MAILBOX-ETABLE
SETEND:
MEXIT

001320

04~AUG-81

23:00

PAGE 11

SEQ 0023

APT PARAMETER BLOCK

437

_SBTTL

439
440
441

::'titttlttt'ttti'.t..t""'.'fi..'...tutt...t.'tt".'.t"..!..l

*INTERFACE SPEC.

001320

0013
001322
001324
001326
0013
001332

000000
001174
001604
002260
000000
000052

$APTHD:

$HIBTS: .WORD
SMBADR: .WORD
$TSTM: .WORD

$PASTM: .WORD
$UNITM: .WORD
.SBTTL

"WORD

O
SMAIL
900.

1200.

::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0-15)
;;RUN TIM OF LONGEST TEST

1 UNIT (QUICK VERIFY)
:;RUN TIME IN SECS. OF 1ST PASS ONPASS
FOR EACH ADDITIONAL UNIT
*:ADDITIONAL RUN TIME (SECS) OF A

SETEND-SMAIL/2 ;;LENGTH MAILBOX~ETABLE (WORDS)

APT STATISTICS TABLE

001500
001502

177777
001334

e
e
e

L
e

$ASTEND:

$APTR:

S$ASTAT

pelelelelelelelelelolelelelelalelelelelolale
le)

TRT,
e

e e

WORD

177777
177777
177777
177777
177777
177777
127777
177777
177777
177777
177777
177777

177777
177777
177777

WORD

A AR

$ASTAT:

001334
001340
001344
001350
001354
001360
001364
001370
001374
001400

177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

d e

001334

LA o0

".tt.'fifi'ttt.titifit.""tit'tt.t..i.ttt'tt'tlfit"tt't"ttt"!

466
467
4«68
469
470
471
472
001404
473
474 001410
475 881 64
1420
476
477 001426
478 0014
479 0014
480 001440
481 001444
48% 001450
001454
483
484 001460
485 001464
486 001470
4«87 001474
4«88
489

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

463
464
465

;;tI.tttttttttt'fitt.Q'ttttit"tfi.tt

462

$APTHDR ::POINT TO APT HEADER BLOCK
:-RESET LOCATION COUNTER
=.$X
fi.ti..".t"t"fi.t.'...'t..'t'

e e

459
460
461

“244

::SET POWER FAIL TO PCINT TO START OF PROGRAM
*2FOR APT START UP
::-POINT TO APT INDIRECT ADDRESS PNTR.

453
454
455
456
457
458

001320
001320

200

::SAVE CURRENT LOCATION

452

000044

224"

448
LY
450
451

000024

.$X=.

001320
000024
000200
000044

446
447

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

: T T

2
L
444
445

.t."

"..t..ttit.tt.t..tt..""Q.tt.'..'..t't.tttt..t.t."...'t"

438

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

P11

04~AUG-81 22:59

LDDISP
MEMMAP :

WO =00

g 8

BRIRIR
WN-=O

PNONON) = =

O ~NONWN
W-0 LNV
B w RURZE 3~NNN~N

ALYwvivioa Vi

NN T VIVIWTWT
W

':tt..

00151
001514
001514 000000
001516 000000
001520 000000
001522 000000
001524 000000
001558 000000
000000
0015
001532 000000
001534 000000

001556
001560
001562
001564
001566
001570
881 572
1574
001576
001600
001602
001604
001606
001610
001612

001614

001614
001616
001620
%182
1624
001626

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
%8888
000000
000000
000000
000000
000000
000000
000000
000000
000000

WING TAGS ARE USER DEF INED
**THE FOLLO
t'.ttt....ttfi..t.t'."...t...'..it...'.........'.......l.'.

SVERPC: .WORD
RESRVD: .WORD

001536
001540
001542
001544
001546
001550
001552

SEQ 0024

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

001504 000000
001506 070032

0
0015120 00000
000000

RELL

APT STATISTICS

T ROUTINE (SERTYP).
ON FOR ERROR TYPEOU
:VIRTUAL PC LOCATIBITS
0
USE.
FUTURE
ED FOR
070032 :CORE PARITY REG MEMORYRESERV
TO 077772.
E
CHANG
,
WITH PARITY
MST11

.WORD OO

LMAD: : .WORD

.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
WORD
WORD
.WORD

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

.WORD

TSTMAP:

SAVTST:

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

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

FOR
SS (+2)
Y ADDRE
GUOUSAYMEMOR
CONTI
;LAST INS
IMAGE
DISPL REGISTER

INOTE:

;CONTA
;MEMORY MAP - EACH BIT CORRESPONDS TO 8K
;1ST WORD MAP...128KW
;2ND WORD MAP...256KW
:3RD WORD MAP...384KW
;4TH WORD MAP...512KW
;STH WORD MAP...640KW
;6TH WORD MAP...768KW
;7TH WORD MAP...896KWW
;8TH WORD MAP..1024K
:9TH WORD MAP..1152KW
:10TH WORD MAP..1280KW
:11TH WORD MAP..1408KW
:12TH WORD MAP..1536KW
W
:13TH WORD MAP..1
:14TH WORD MAP..1792KW
:15TH WORD MAP..1920KkW
;16TH WORD MAP. .2048KW

;TEST MAP - WHICH BANKS ARE SELECTED FOR TEST.
;1ST

WORD MAP...128KW

;2ND WORD MAP...256KW
;3RD WORD MAP...384KW
:4TH WORD MAP...512KW
;STH WORD MAP...640KW
768KW
..P.
;6TH WORD MA
B896KW
MAP...
WORD
;7TH
;8TH WORD MAP..71024KW
;9TH WORD MAP..1152KW
:10TH WORD MAP..1280KW
:11TH WORD MAP..1408KW
:1§TH WORD MAP..1536KW
P.
. 1664KW
:13TH WORD MA
792KW
MAP..1
WORD
:164TH
;15TH WORD MAP..1920KW
:16TH WORD MAP..2048KW

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

.WORD
WORD
.WORD
WORD
.WORD
.WORD

0
O
O
0
0
O

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

WORD MAP...128KW
WORD MAP...256KW
WORD MAP...384KW
WORD MAP...512KW
WORD MAP...640KW
WORD MAP...768KW

SRS

ee e e

e e

(VMSAA

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

CVMSAA P11
547
548
549
550
551
55%
553
554
555

04~AUG-81 22:59

0016
001632
0016
0016
001640
001642
001644
001646
001650

00000C
000000
000000
000000
000000
000000
000000
000000
000000

ggg 001652 000000
ggg 001654
560 001654 000000
561 001656 000000
000000
562 001
563 001662 000000
564 001664 000000
565 001666 000000
566 001670 000000
567 001672 000000
568 001674 000000
569 001676 000000
1700 000000
570
571 001702 000000
572 001704 000000
001706 000000
5
574 001710 000000
g;g 001712 000000
g;g 001714

001714 000000
001716 000000
001720 000000
001722 000000
001724 000000
001726 000000
001730 000000
001732 000000
001734 000000
001736 000000
1740 000000
1742 000000
1744 000000
591
1746 000000
59
593 001750 000000
gg‘so 001752 000000

579
580
581
582
583
584
585
586
587
588

398

598 001754 000000
599
600

601 001756
602 001757

000
000

APT STATISTICS TABLE

04-AUG-81

23:00

PAGE 13

;7TH WORD MAP...896KW
;8TH WORD MAP..1024KW
;9TH WORD MAP..1152KkWW
:10TH WORD MAP..1280K
:11TH WORD MAP..1408KW
;12TH WORD MAP..1536KWW
:13TH WORD MAP..1664K
:14TH WORD MAP..1792KW
;15TH WORD MAP..1920KW

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

O
O
0
O
O
0
O
0
O

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

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

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

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

;1ST WORD MAP...128KW
;2ND WORD MAP...256KW
:3RD WORD MAP...384KW
;4TH WORD MAP...512KW
;STH WORD MAP...640KW
;6TH WORD MAP...768KW
W
;7TH WORD MAP...
024KW
MAP..1
WORD
;8TH
;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..1920KW
;16TH WORD MAP..2048KW

MMORE: .WORD

SELFLG: .BYTE
FLAGBK: .BYTE

0
0

BLOCK TESTING.
:LOOP ADDRESS FOR MULTIPLE
'' ROUTINES.
‘‘INITDN
AND
M'‘
"‘INITM
BY
UP
SSET
ES.
ROUTIN
'‘'
‘MMDOWN
AND
SUSED BY 'MMUP''
TERS FLAG. (SA=204

PMEMAP :

BITPT:

.WORD

;16TH WORD MAP. .2048KW
;PARITY MAP = WHICH BANKS HAVE MEMORY PARITY
;1ST WORD MAP...128KW
;2ND WORD MAP...256KW
:3RD WORD MAP...384KW
;4TH WORD MAP...512KW
;STH WORD MAP...640KW
;6TH WORD MAP...768KW
;7TH WORD MAP...B896KW
;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..1920KW
:16TH WORD MAP. .2048KW
;:POINTER TO CURRENT 8K BANK OF MEMORY

,
*OPERATOR SELECTED PARAME
"MMUP".
AND
''
"'INITMM
IN
USED
TOR.
INDICA
‘8K BLOCK

SEQ 0025

CVMSAA

04~AUG-81 22:59

CWsSA2 P11
603
604
605

001760
001762

000004
000000
000000
000000
000000
000000

4
5

FSTADR: .WORD

.CONST: .WORD
WORD
WP :

O
4

.WORD

PLUST:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

;:ODD/EVEN FLAG USED IN PARITY MEMORY BYTE TEST.
;FIRST VIRTUAL ADDRESS TO 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
;LSI-11 PROCESSOR FLAG

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

RELATIVE ADDRESSING TABL:C.

TION TIME TO ALLOW
"« THE FOLLOWING LOCATIONS ARE MODIFIED AT RELOCA
OF THE ARGUMENT TAGS.
VALUE
TED
RELOCA
THE
GET
TO
SING
"« RELATIVE ADDRESttt"t't"i"'t'it.t.tt.fit'.i.tt.t'tt"
v~t.ltt'

':ltti't.t.'t.lttt

002002
002002
88 004
006

0
022

4
6

032
0
036

RADTAB:

.STACK: SCMTAG
MEMMAP
.MEMMAP
SAVTST
.SAVTST:
TSTMAP
.TSTMAP:
PMEMAP
.PMEMAP :
.BITPT: BITPT

001070
001514
001614

001554

001654

881714

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

1506

00§§70
003370
010356
002242
015454
003432
10
012344

;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.
sMEMORY 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.

DATA CONTAINERS FOR ERROR PRINTOUT.

001106
001116
001504

001110
000000
001106

DT1:

DT2:

SERRPC,$GDADR,S$GDDAT,$BDDAT,0
SVERPC,SERRPC,SGDADR,SGDDAT,$BDDAT,0

645

1504

001106

DT12:

SVERPC,SERRPC,SGDADR,$GDDAT,0

106

DT14:

SVERPC,SERRPC,STMPO,SGDADR,0

644

1114

1504

001116

6‘8
64
650

1
1
1

1110
15
1

881106
114

DT15:

SVERPC,SERRPC,SGDADR,STMPO,SGDDAT,SBDDAT,0

65
65

1
1

881106
1
114
1110

DT21:

SVERPC,SERRPC,STMPO,SGDADR, SGDDAT,SBDDAT,0

2146
}653

1504 001106
1112 001114

DT23:

SVERPC,SERRPC,SGDADR,S$BDADR,SGDDAT,$SBDDAT,0

DT24: -

O
SVERPC,SERRPC,$BDADR

651

654

655
g
658

144

ttt'

002164 -061504 007106

"t't."Itti..t.t*tt.tit't't'fi!'tt'ltt'tlttit"ttt'ttttttttt'.

641
645
64

1114

"it'.Q'.t.tt't'ttt!..tt'tttitttt.'tt.!ttttititttt'ttittttttt

63
640

669

SEQ 0026

RE
TR
ARR
RO RN
RAR
AE R
RRR
RARERR
EAR
RN
L ERARAARARRRRARRERAEAR

6
631
6 g
6
6
635
6
6

TEMP:
TEMP1:
FLG30K:
LSIFLG:

619

.2‘7’;5

Save

615
616
617
618

001766
001770
001772
001774
001776
002000

APT STATISTICS TABLE

OEFLG:

00C
001762
000000

.
7
60
608 001764 000000
609
610
611
61§
613
614

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

i
~N

23:00 PAGE 15

001112
000000
001150

DT25:

PO,0
STMF1.
SVERPC,SERRPC,S$BDADR,STM

DT26:

SVERPC,SERRPC,S$TMPO,S$TMP1.0

001110

DT30:

.0
S$TMPO,$TMP1,SGDADR,SBDDAT

DT31:

$TMP3.0
-1
.WORD

.SBTTL

MEMORY PARITY PATTERNS TABLE

iISR

g
oon

-\
dddd
-.§-a

I8888283
Nddddddd

oo NN
b

—

:TABLE TERMINATOR.

WING ARE THE PARITY PATTERNS EXERCISED THRUOUT MEMORY
“THE FOLLO
t.".".t.tt'.t.'t."..t..tiit.'!tt.t'ttt.t..'."tt.tt"t'.
— ek 2 O OO
VIO N NONWVWWWWA
ViR
N
NN
wvi
NWVO
= SO

tg\NU\uuvnnna
NNoOownrorRown

::..t'

102070
072527
177777
107030
152525

;EVEN,ODD
:0DD,EVEN
;EVEN,ODD
;0DD,EVEN
;EVEN,EVEN
:0DD,0DD
;EVEN,EVEN
:0DD,0DD
;0DD ,EVEN

MPEND:

;TABLE TERMINATOR

.SBTTL

MEMORY PARITY REGISTER ADDRESS TABLE

MPPATS: 125325
152652
052452
025125

;EXTRA PATTERN HOLDER FOR

;FUTURE USE

://////////////////////////////////////////////////////////////////////

TATEATEIA

IR O
R

TRLR D 1)

MEMORY PARITY REGISTER ADDRESS TABLE
‘s THE FOLLOWING REPRESENTS THE ADDRESS
ED & CONTROLLED:
22 2RB

FROM WHICH PARITY MEMORY IS

ONE (1)
THE LEAST SIGNIFICANT BIT IN THE DEVICE ADDRESS IS SET TO A NT
UNDER
IF THE CONTROL IS FOUND NOT TO BE PRESENT. THE MEMORY PRESE
THE CONTROL OF EACH CONTROLLER IS REPRESENTED BY 16 WORDS FOLLOWING
FOR NON=2281T rflngav ONLY 1 WORD IS USED
FIRST WORD BITO = 0 - 8K,
A 8K BLOCK,
TING
(EACH BIT_REPRESEN
ADDRESSING
BIT
16
wW
24~28Kk
BIT 3 =

THE DEVICE ADDRESS.

18 BIT ADDRESSING

BIT 15 =

120-124KW

172100 +1
O
WORD
O
.WORD

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

.//////////////////////////////////////////////////////////////////////
L

b~§0

ob
s

APT STATISTICS TABLE

2:59

04-AUG-81

"t.'t.'t.'..fit...t"."'.'t.t.tt't.....".ttfi!fi't..".'!...t'tt'

—

e
83080 TS S R SRR RE 20320300200 8REF8RER% 3

MEMORY EXERCISER, 16K VER MACY11 30(1046)

MPRO:

MWORD
WORD
WORD
WORD
.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD

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

;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

SEQ@ 0027

ERBINIIZRRESR

R
L

SIS

002446

322232

CERRT

755

WORD

*MASK FOR UNUSED PARITY CSR BITS
*PARITY STATUS REGISTER
:1ST

:2ND
:3RD
;4TH

:STH

;6TH
:7TH

WORD CONTROL

WORD CONTROL
WORD CONTROL

e s296KW

CONTROL MAP
CONTROL m...“““
e s 768KW
CONTROL
..-89“”
CONTROL
. « 1024KW
CONTROL

;8TH
CONTROL
:9TH
.. 1280KwW
:10TH WORD CONTROL
« . 16408KwW
:11TH WORD CONTROL
:12TH WORD CONTROL
. « 1664KW
:13TH WORD CONTROL
.«1792KW
:14TH WORD CONTROL
:15TH WORD CONTROL MAP. . 1920KW
MAP . . 2048KW
:16TH WORD CONTROL MAP

*MASK FOR UNUSED PARITY CSR BITS
;PARITY STATUS REGISTER
:1ST WORD CONTROL MAP
:2ND WORD CONTROL MAP .+ 296KW
:3RD WORD CONTROL MAP
:4TH

:5TH

:6TH

WORD CONTROL

WORD CONTROL
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
;15TH WORD

adaddaddadios

—

~
n

352

WORD
WORD
. WORD
. WORD
.WORD

“16TH WORD CONTROL MAP..2048KW

dadddan. 33333

WORD

SEQ 0028

:15TH WORD CONTROL MAP..1920KkwW

:16TH WORD CONTROL MAP . . 2048KW

:MASK FOR UNUSED PARITY CSR BITS

;PARITY STATUS REGISTER
.o
CONTROL
;18T

:2ND

:3RD

CONTROL

!
WORD CONTROL

WORD CONTROL
WORD CONTROL
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

:4TH
;5TH
:6TH

3333333333834

PAGE 16

333832

MPR1:

[elelelolelelelelelelele
e Polela) o

172103

[elelelelolelelelalelalelelelelatodelelelele) [elelelelolelolelelalelellelelele]

716
717

00000C
000000

715

6) 04-AUG-81 23:00
(VMSAA 0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(104
ADDRESS TABLE
ER
REGIST
PARITY
MEMORY
04-AUG-811 22:59
CVMSAA P11

:16TH WORD CONTROL

128KW

.+« 384KW
.. .“Wu
.o« T6BKW

?
|CVMSAA

D 3
-81 23:00 PAGE 17
04-AUG
6)
30(104
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11

CVMSAA. P11

04~AUG-81 22:59

771 00 508 00000C
;;i 002510 172111

002512
14 000000
774
516 000000
775
000000
776 % S
522 000000
777
% 002524 000000
000000
S
5 000000
780
5 000000
781
;gi 0025 000000
000000
5
540 000000
784
785 002542 000000
544 000000
;g?
002546 000000
788 002550 000000
789 002552 000000
790 002554 172113
791 002556 000000
79; 002560 000000
793 002562 000000
794 002564 000000
795 002566 000000
796 002570 000000
797 002572 000000
798 002574 000000
799 % 576 000000
60g 000000
800
801 002602 000000
000000
80; 00
000000
002606
803
000000
610
804
000000
612
805
614 000000
%
002616
172115
808 0026
8%888
809 0026
810
000000
8n
000000
81§
81
g‘llo
15
000000
816
817
818
819
000000
m
1
i
000000
000000
000000
S
826

172117

MEMORY PARITY REGISTER ADDRESS TABLE
MPRG:

MPRS:

MPR6:

MPR7:

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

;MASK FOR UNUSED PARITY (SR BITS
;PARITY STAUS REGISTER
:1ST WORD CONTROL MAP...128KW
;2ND WORD CONTROL MAP...256KW
:3RD WORD CONTROL MAP...384KW
:4TH WORD CONTROL MAP...512KW

;MASK FOR UNUSED PARITY CSR BITS

.WORD O
.WORD 0
.WORD 0
.WORD 0
.WORD O
.WORD O
.WORD 0
WORD 0
.WORD 0
.WORD O
WORD 0
.WORD 0
.WORD 0
172112 +1
WORD 0
WORD O
.WORD 0
.WORD O
.WORD 0
WORD O
WORD O
WORD 0
.WORD 0
.WORD O
.WORD 0
.WORD O
WORD O
WORD O
WORD O
.WORD O
.WORD O
172114 +1
.WORD O
WORD O
WORD O
.WORD O
.WORD O
WORD O
WORD O
MWORD O
WORD O
.WORD O
.WORD 0
WORD 0
WORD 0
.WORD O
.WORD 0
.WORD O
.WORD

172116 +1

MAP...640KW
;STH WORD CONTROLL MAP..
.768KW
CONTRO
WORD
;6TH
896KW
MAP...
L
CONTRO
;7TH WORD
024KW
MAP..1
L
CONTRO
WORD
;8TH
152KW
MAP..1
L
CONTRO
WORD
;9TH
280KW
MAP..1
L
CONTRO
WORD
:10TH
:11TH WORD CONTROL MAP..1408KwW
;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 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
;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
:15TH WORD CONTROL MAP..1920KW
;16TH WORD CONTROL MAP..2048KW
:MASK FOR UNUSED PARITY (SR BITS
;PARITY STATUS REGISTER
;1ST WORD CONTROL MAP...128KW
;2ND WORD CONTROL MAP...256KW
;3RD WORD CONTROL MAP...384KkwW
;4TH WORD CONTROL MAP...512KW
:STH WORD CONTROL MAP...640KW
:6TH WORD CONTROL MAP...768KW
;7TH WORD CONTROL MAP...896KW
;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
;15TH WORD CONTROL MAP..1920KW
;16TH WORD CONTROL MAP..2048KW
;PARITY STATUS REGISTER

SEQ 0029

S YBEBTR & 3
& LV

P11

N
~N

0o 0o 0o 0o 0o 0o

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

04~AUG-81 22:59

666 00000C
002670 000000
002672 000000
002674 000000
002676 000000
002700 000000
002702 000000
002704 000000
002706 000000
002710 000000
002712 000000
002714 000000
002716 000000
000000
7
002722 000000
002724 000000
002726 000000
172121
0027
002732 000000
0C2734 000000
002736 000000
002740 000000
002742 000000
002744 000000
002746 000000
002750 000000
002752 000000
002754 000000
002756 000000
000000
7
002762 000000
002764 000000
002766 000000
2770 000000
772 000000
002774 172123

002776 000000
000000
003002 000000
00%% 000000
000000
00
003010 000000
003012 000000
003014 000000
003016 000000
000000
003022 000000
003024 000000
003026 000000
0030 000000
0030 000000
003034 000000
003036 000000
003040 172125
003042 000000
003044 000000

SEQ 0030

MEMORY PARITY REGISTER ADDRESS TABLE
WORD O
.WORD O
.WORD 0
.WORD O
WORD O
.WORD O
.WORD 0
.WORD O
WORD O
.WORD 0
WORD 0
.WORD O
.WORD 0
.WORD O
.WORD O
.WORD O
.WORD 0
172120 +1
WORD O
WORD O
WORD O
WORD 0
.WORD O
.WORD O
WORD 0
WORD O
WORD O
WORD O
WORD O
WORD O
WORD O
WORD O
WORD O
WORD O

:1ST WORD CONTROL MAP...12BKW
:2ND WORD CONTROL MAP...256KW
:3RD WORD CONTROL MAP...384KW
:4TH WORD CONTROL MAP...512KW
640KwW
:STH WORD CONTROL MAP....768K
W
MAP..
L
CONTRO
:6TH WORD
B896KW
MAP...
L
CONTRO
;7TH WORD
;:8TH WORD CONTROL MAP..1024KW
:9TH WORD CONTROL MAP..1152KW
280KW
;10TH WORD CONTROL MAP..1408KwW
:11TH WORD CONTROL MAP..1 536Kw
;12TH WORD CONTROL MAP..1
: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
;2ND 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...896KW
;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
;15TH WORD CONTROL MAP..1920Kw
;16TH WORD CONTROL MAP..2048KW

WORD O
WORD O
.WORD 0
WORD O
.WORD O
WORD O
WORD O
WORD O
WORD O
WORD 0
WORD O
WORD 0
WORD 0
WORD 0
WORD 0
.WORD 0
.WORD 0
MPR10: 172124 +1
.WORD 0
WORD O

;1ST WORD CONTROL MAP...128KW
;2ND 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...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
:15TH WORD CONTROL MAP..1920KW
:16TH WORD CONTROL MAP..2048KW
;MASK FOR UNUSED PARITY CSR BITS
;PARITY STATUS REGISTER
:1ST WORD CONTROL MAP...128KW
:2ND WORD CONTROL MAP...256KW

MPR8:

MPR9

0
172122 +1

;MASK FOR UNUSED PARITY (SR BITS
;PARITY STATUS REGISTER

| CVMSAA

|(\MSM.P11
.
l

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

04~AUG-81 22:59

883 00%846 00000C
884 003050 000000
885 003052 000000
886 003054 000000
000000
887 00
000000
0
00306
888
889 003062 000000
890 oog% 000000
000000
891 00
89, 00%870 000000
893 003072 000000
894 003074 000000
895 003076 000000
8% 00;100 000000
897 003102 000000
298 00§104 172127
899 003106 000000
900 003110 000000
901 003112 000000
%g 0C3114 000000
903 003116 000000
904 003120 000000

905 0031%2 000000
906 003124 000000
907 003126 000000
000000
908 0031
909 003132 000000
910 003134 000000
911 003136 000000
91; 003140 000000
913 003142 000000
914 003144 000000
915 003146 000000
919 003150 172131
917 003152 000000
918 003154 000000
919 003156 000000
920 00?160 000000
1 003162 000000
%316‘ 000000
i
9
000000
g1
9
000000
4 0031
S 003172 000000
9, % 174 000000
176 000000
9
000000
00
000000
00
9
000000
00
9
000000
931 00
000000
"g
00
9
9§‘ % 1 W
1% 1721
9
16 000000
935
000000
9?
2 000000
937
938 003224 000000

MEMORY PARITY REGISTER ADDRESS TABLE
.WORD 0
.WORD O
.WORD 0
.WORD 0
.WORD 0
.WORD O
.WoRD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD O
.WORD 0
.WORD 0
MPR11: 172126 +]
.WORD 0
WORD 0
WORD O
.WORD 0
WORD O
.WORD 0

.WORD O
WORD 0
.WORD 0
WORD O
.WORD 0
LWORD O
WORD 0
WORD 0
.WORD O
.WORD O
LWORD O
MPR12: 172130 +1
.WORD O
.WORD 0
LWORD O
.WORD O
.WORD 0
WORD O
WORD O
WORD O
WORD O
WORD O
WORD O
.WORD O
WORD O
.WORD O
.WORD O
.WORD O
LWORD O
MPR13: 172132 +1
.WORD 0
.WORD 0
WORD 0
.WORD O

.384Kw
;3RD WORD CONTROL MAP..
:4TH WORD CONTROL MAP...512KkW
:STH WORD CONTROL MAP...640KwW
;6TH WORD CONTROL MAP...768KW
;7TH WORD CONTROL MAP...B96KWW
1024K
:8TH WORD CONTROL MAP..
152KkW
MAP..1
L
;9TH WORD CONTRO
280KwW
:10TH WORD CONTROL MAP..1
408Kw
MAP..1
L
:11TH WORD CONTRO
536KwW
MAP..1
:12TH WORD CONTROL
:13TH WORD CONTROL MAP..1664KW
;14TH WORD CONTROL MAP..1792KW
:1STH WORD CONTROL MAP..1920KwW
048KW
;16TH WORD CONTROL MAP..2(SR
BITS
PARITY
UNUSED
FOR
;MASK
TER
REGIS
S
STATU
Y
;PARIT
;1ST WORD CONTROL MAP...128KW
;2ND WORD CONTROL MAP...256KW
;3RD WORD CONTROL MAP...384KwW
:4TH WORD CONTROL MAP...512KW
;STH WORD CONTROL MAP...640KW
;6TH WORD CONTROL MAP...768kW

;7TH WORD CONTROL MAP...896KW
;8TH WORD CONTROL MAP..1024KW
;9TH WORD CONTROL MAP..1152KW
280KW
:10TH WORD CONTROL MAP..1408KW
;11TH WORD CONTROL MAP..1
: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 MAP...128KW
WORD CONTROL MAP...256KW
:
WORD CONTROL MAP...3B4KW
:
: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..1408KwW
MAP..1536KW
:12TH WORD CONTROLL MAP..1
664KW
:13TH WORD CONTRO
:14TH WORD CONTROL MAP..1792KW
:15TH WORD CONTROL MAP..1920Kw
CONTROL MAP..2048KwW
:16TH
:MASK FOR UNUSED PARITY CSR BITS
;PARITY STATUS REGISTER
:1ST WORD CONTROL MAP...128KkW
:2ND WORD CONTROL MAP...256KW
:3RD WORD CONTROL MAP...384KW
:4TH WORD CONTROL MAP...512KwW

SEQ 0031

000000
000000
000000
000000
000000

&
i g
95 003562 000000
000000
954 %

MPR14:

3552 003270 000000

ol
000000
959 00%;(7)8
000000
003
9%0
91
96;

%‘

003302
003304

000000
000000

00% 3

000000

OO; 16

000000

000000
965 %3?1%
3314 000000

966
97

e
S
970 oog 4 172137
00

0
0
0
0

0
0
0
0
0
0

§ Engquu«.u.
NN 282238282222
3 EEEERLxREEELQA

$88 35332833

983

3;1

MPR15:

0
0
0
0

0
0

;MASK FOR UNUSED PARITY (SR BITS
;PARITY STATUS REGISTER
:1ST

;2ND
;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
:13TH WORD CONTROL
:14TH WORD CONTROL
;15TH WORD CONTROL
:16TH WORD CONTROL

..« 384KW
ves312KW
.o« 640KW
eeoT68KW
L ¢896KU
. . 1024KW
” .}152!(\4

W
P.
. 1664K
MA
.
. 1792KW
MAP
W
P.
. 1920K
MA
W
P.
. 2048K
MA

;MASK FOR UNUSED PARITY (SR BITS
;PARITY STATUS REGISTER
:1ST
:2ND
:3RD

WORD CONTROL MAP. ..128KW
W
P.
. .256K
WORD CONTROL MA
CONTROL
D
WOR

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

:4TH

;THIS IS THE s~o19r THE TABLE

:
MPRX

WORD CONTROL MAP. ..128KW
.o 256KW
WORD CONTROL

003240
003242
003244
003246
003250

i gat S

[ =

%4
945
9%6
%7
98

0
0
0
0
0
0
0
0
0
0
0
.WORD
0
. WORD
172134 +
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
0
0
0
0
0
0
0
0
0
0
0

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
:1STH WORD CONTROL
:16TH WORD CONTROL

:STH

3 333333334

00000C
000000
000000

FEEERRRERLIINT

00;5%8
00
003232

939
%0
9%1

33333332883

G 3
46)
UG-81 23:00
30(10
04-A
1
MACY1
VER
16K
(0=2 MEGAWORD MEMORY EXERCISER,
(VMSAA
MEMORY PARITY REGISTER ADDRESS TABLE
04-AUG-81 22:59
CVMSAA P11

. .2048KW

:MASK FOR UNUSE D PARITY CSR BITS

STABLE TO HOLD JUST PARITY STATUS REGISTERS THAT EXIST.

: (THE EXTRA WORD IS FOR A TERMINATOR.)

04~AUG=81 22:59

WN—-O

e
e

VRNV

D e
e
D e

v SN
—

— e

SRARIFTSTL

o o000

lelololalelelelelele]

-~ mgmao

RRRERRRRGIZ

et it il il ol ol ol o ol il ol ol D el i el ol

ERROR POINTER TABLE
.SBITL

823833388888
8382 88 £ g

P11

elelelololeololale
i)

et ettt
—
— e il e — — e

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

CAN OCCUR.
-+THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THATFOUND
IN

THE INDEX NUMBER
«THE INFORMATION 1S OBTAINED BY USING
ATES WHICH ITEM IN THE TABLE IS PERTINENT.

+LOCATION SITEMB. THIS NUMBERO INDIC
IS (SERRPC).
IF SITEMB IS THE ONLY PERTINENT4 DATA
LeNOTE1:
EXPLAINED AS FOLLOWS:
ERS
POINT
EACH ITEM IN THE TABLE CONTAINS
L «NOTE2:
£
DH
DT
DF

T
e
e
i

003432
003432

$ERRTB:
cucc} e

DM1
DH1
DT

003432 024774
026334
0034
002040
0C34

003442 025030

003440 027072

003444 026357

003446 002052
003450 027076

003452 025030

003454 027036

',5"051

003462 025064
003464 026357
2052
88
3470 027076
34,72 02512
3474 0P635
3476 002052
003500 027076
gggi 0251
026357
gsoo 002052
510 027076
még}i 025224

§3523

. "

003524 026357
003526 002052

:ADDRESS TEST ERROR(TST1-5).
*V/PC.P/PC,MA,S/B,WAS

DH31

DT2

* SVERPC , SERRPC , SGDADR, SGDDAT , SBDDAT

DM&
DH2
DT2
nmogz
DM
DH2
pT2
e .,
DM6
DH2
DT2
DF 2

:CONSTANT DATA ERROR(TST6-10).
:V/PC,P/PC,MA,S/B,WAS SGDDAT , SBDDAT
*$VERPC , SERRPC , SGDADR,
116,22,22.16,16
:ROTATING BIT ERROR(TST11-12).
WAS
:V/PC,P/PC,MA,S/B,
SVERPC ,$ERRPC , SGDADR, SGDDAT , SBDDAT
:16,22,22.16,16
:MOS REFRESH TEST ERROR (TST24=25).
:V/PC,P/PC,MA,S/B,WAS
SVERPC , SERRP( , SGDADR , SGDDAT , SBDDAT
$16,22,22.16.16

ITEM 7

HEH°10

:ADDRESS TEST ERROR(TST1-5).
*V/PC,P/PC,MA,S/B,WAS

:16,22,22.8.8

:FATAL ERROR HALT

§1

oogssz ogg 45

116,22,16,16

: SVERPC , SERRPC , SGDADR, SGDDAT , SBDDAT
216,22.22,16,16

mno:s

;

:PARITY REGISTER DATA ERROR.
:PC,REG,S/B,WAS
:$ERRPC ,$GDADR , SGDDAT , SBDDAT

DT2
1rsn°§2

DM2

003456 002052

003460 027103

DH2

::POINTS TO THE ERROR MESSAGE
**POINTS TO THE DATA HEADER
*IPOINTS TO THE DATA
““POINTS TO THE DATA FORMAT

DM10
DH2
D12

:MARCHING 1°S AND 0°'S ERROR(TST23).

:V/PC,P/P(C,MA,S/B, WAS
*SVERPC , SERRP( , SGDADR, $GDDAT , SBDDAT

SEQ 0033

(VMSAA

064-AUG=-81 22:59

“YMSAA P

1048 003530 02707¢

1049

025311

1050

105

540 02710

1051
105

1054

ERROR POINTER TABLE
:*

027036
05

S
b

1055 % 542 025355
546 0 16
1056
003546 002066

1057

DF2

:16.22,22.16,16

DH31
D12

:V/PC ,P/PC ,MA,S/$GDADR, $GDDAT , SBDDAT
:SVERP(C SERRPC ,

JTEM 11

DM11
DF 3

ITEM 12

pM13

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

003554 856416

DH12

1060 003552 025431
1065 %gs%

}324

02552¢
1065 003562
003564 026445

1833 003570 027110
1070

107

%2‘5‘7)8 002112

107,
107

3602 025621
3604 026445

33333 PIIIZTEIRIREREE

1071 % §72 8 4774
6474
574
107;

EK ANOT MAPPED AS CONTROLLING THIS ADDRESS(1ST13).
REGIST
:PARITYP/PC
,REG,M

DF1514

ITEM

DM
DH15

DT15

027110

xrsn°§l‘

100
1078
1079 003610 027110

DT14
xrsn°§}‘

88 14 027036

—a-‘-‘—.—.-‘-—n—o—.—.—.—b-‘-‘—o_.—o—.-o—.—..‘—.-o

;8;2

16,22.22.8

:v/PC,
:$VERPC.SERRPC.STH’0.SGDADR

:16,22,22.22

:PARITY REGISTER DATA ERROR.
:V/PC ,P/PC ,MAUT ,LREG,S/B,WAS

: SVERPC $ERRPC , $GDADR, $TMPO,SGDDAT , $BDDAT

$16,22,22,22.16,16

pM16
DH14

:MORE THAN ONE REGISTER INDICATED PARITY ERROR.
:Vv/PC ,P/PC,REG,MA

003612 025700

pDMi7

:DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR

16 00205

DH31

DT2

" $VERPC , SERRP( , SGDADR, SGDDAT , SBDDAT

02710

2 02577
4 02635

.«

027076
026030

026547

gt
000000
00

101

10§ 003652 026077
003654 026614

ITEM 20

* SVERPC , SERRPC . STMPO, SGDADR
116,22,22,22
: TRAPPED(TST13).

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

116,22,22.8.8

pM20
DH2

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

DH21

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

DF 2
ITEM 21
DM21

pT21

130

027116

DF 3

D12

; 52

100 oogggg 000000
103

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

DM14

DT14

}067 0C3566 002100

$16,22.22.8

pT12
DH14

1066

" SVERPC , SERRP( , SGD

R
, SGDDAT
:SVERPC ,$ERRPC , $SGDAD

xren°§2

560 023535

116,22,22.8.8

pT12

xren°§§

SEG 0034

SS ERROR(TST13).
:PARITY MEMORY ADDRE
B ,WAS
:DATIO WITH WRONG PARITY DIDN'T TRAP(TST13).
:v/PC,P/PC,MA,S/B
SGDDAT
,ADR

pDM12
DH12

}333 003550 027103
1061

0=2 MEGAWORD 1&”' EXERCISER, 16K VER MACY11 30(1046) 04-AUG-B1 23:00 PAGE 22

DF 21

ITEM 22

ITEM 23

;0
0

DM23
DHZ3

: SVERPC $ERRPC , $GDADR, $SGDDAT , $BDDAT

16,22.22.16.16
;INSTRUCTION EXECUTION ERROR(TST15-22).

: SVERPC SERRPC,$TMPO, SGDADR, $SGDDAT , $BDDAT

16,22,16,22,16,16
:NOT USED

TED.
;PROGRAM CODE CHANGED WHEN RELOCA
WAS
:V/PC,P/PC,SRC MA,DST MA,S/B,

C(VMSAA

0~2 MEGAWORD MEMORY EXERCISER, gb& VER MACY11 30(1046)

CVMSAA . P11

04~AUG-81 22:59

1106 003656 00214€

RROR POINTER TABLE

04-AUG-81

23:00 PAGE 23

p123

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

DM24

16,22,22.22.,16,16

1‘382 ooggoo 027110

”E"og«

886670

DH24

NO REGISTER HAD ERROR BIT SET.
:TRAPPED, BUT
,TRP/PC

DF 14

116,22.22.22.,16

1107 00

1108 88

1109

026144

1115 00

1116

D124

;16‘

1110 003670 027110
"M
m§ 003672 026220
111 003674 026713
2174
1114 00%958

027110

1117 003702 026240
1118 003704 026757

112% 003712 026260
1123 003714 026757
1124 003716 002210
1126

1131

1132
1133
113,
Hgg
1137

ITEM 26

DM26
DH26

:FAILED TO TRAP.
:V/PC,P/PC ,REG,WAS

DM27
DH26
DT26

;(ACTION ENABLE WASN'T SET).
*v/PC,P/PC ,REG,WAS
s SVERPC $ERRPC,$TMPO,$TMP1

STMP1
. $TMPO,PC
*SVERPC ,SERR

116,22,22.,16

”E"ogg

”5? 003710 027076

1127 003722 000000
1128 003724 027007
11%8 003726 002222
027124
003730
1130

16,22.22
: TRAPPED TO 114.
:Vv/PC ,P/PC,TRP/PC ,REG,WAS
; SVERPC $SERRPC , $BDADR, $TMPO, $TMP

DF14
ITEM 25
DM25
DHZ2S
DT25
DT26

1119 003706 002210

1125 003720 027076

:v/PC,P/PC

$BDADR
: SVERPC ,$SER, RP(C

:»

116,22.22.16

DF2

ITEM 30

:NO MESSAGE.
REG,WAS ,MA,WAS
:$TMPO,$TMP1,$GDADR, $BDDAT
122,16.22.8
: TRAPPED TO 4
*NO HEADER
‘$TMP3

0
DH30

DT30
DF30

ITEM 31

pM31
0
DT31
122
DF30
SETUP AND MAP MEMORY
.SBTTL START:
/'\:/'\:/'\:/'\:/'\:/-\:/t\:/'\:/'\:/'\:/*\:/'\:/'\:/'\:/'\:/'\:/'\:/'\:

003732
003734
003736
003740

026314
000000
002234
027124

i
I

THIS IS THE NORMAL (SA = 200) BEGINNING OF THE PROGRAM.
THIS CODE IS NOT POSITION INDEPENDENT.
NOTE:
:\'/:\'/:\'/:\t/:\'

:/:\'/:\'/:\'/:\'/:\'/:\'/:\'/:\'/:\'/:\'/:\*/:\*/:\'/

START: CLRB
1144 003742 105067 176010
BR
1145 003746 000403
MOVB
SELECT:
176000
177777
1146 003750 112767
1147

1148
1149

1150 003756
1151 003762
usi 003764
1153 003770
1154 003772
1155
nsg 003776
1157 004
1158 004012
1159

STARTA:

003756

:CLEAR SELECT PARAMETER FLAG.
SELFLG
DO SETUP AND MEMORY MAP.
"GO
STARTA
SELFLG :SET THE SELECT PARAMETERS FLAG.
#-1,

LSBTTL INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA

2:FIRST LOCATION TO BE CLEARED
#SCMTAG,R6
MOV
*:CLEAR MEMORY LOCATION
(RE) +
CLR
#SWR,R6 ; ;DONE?
(MP
::L00P BACK IF NO
=6
BNE
*:SETUP THE STACK POINTER
#STACK, SP
MOV
012706 001100
::INITIALIZE A FEW VECTORS
#SPWRDN ,a#PWRVEC :;POWER FAILURE VECTOR
MOV
000024
000540
012737
7
#340, a#PWRVEC+2 ;:LEVEL END-OF
MOV
012737 000340 000026
~PROGRAM COUNTER
P
::SETU
T
,SEOPC
SENDCT
MOV
016767 006474 006464
OR IT IS
FOUND
NOT
IF
.
A HARDWARE SWITCH REGISTER

012706 001070
005%2
001130
022
801374

::SIZE FOR

SEQ 0035

AT ARER 5Z 33
ROV 2SFEIRARER SIBINNNANIITE
S BRARG
il il e o)

MOV
MOV

175034
175030

175075

001216

175000

648:

BR
:3\1(

65%
#65%, (SP)

;;AND THE HARDWARE SWR IS NOT = =i
;;BRANCH IF NO TIMEOUT
:2SET UP FOR TRAP RETURN

65%:

MOV

#SWREG, SWR

;;POINT TO SOF TWARE SWR

668%:

MOV

(SP)+,a#ERRVEC

;;RESTORE ERROR VECTOR

CLR

$PASS

;;CLEAR PASS COUNT

MoV

#$SWREG, SWR

;2NO,USE APT SWITCH REGISTER
;CLEAR DISPLAY REGISTER STORAGE LOCN

MOV

BITB
BEQ

67
.SBTTL

b
b

000042

174722

#D1SPREG,DISPLAY

#APTSIZE ,SENVM
67%

LDDISP
aDISPLAY

TYPE PROGRAM NAME

;TEST USER SIZE UNDER APT
;:YES,USE NON-APT SWITCH
;CLEAR DISPLAY REGISTER

0C0001

000176

INC
BNE
CMP
BEQ

#-1
68%
#SENDAD ,a#42
68%

::FIRST TIME?
: sBRANCH IF NO
;sACT=112
;:BRANCH IF YES

BEQ

708

::SOFTWARE SWITCH REG SELECTED?

$PRINT :GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
JSR
;ADDRESS OF MESSAGE TO BE TYPED
69%
.WORD
REGISTER
SWITCH
TWARE
SOF
.SBTTL GET VALUE FOR
RUNNING UNDER XXDP/ACT?
WE
::ARE
anse
TST
IF YES
H
::BRANC
70%
BNE
G UNDER APT?
RUNNIN
WE
::ARE
#1
.,
SENV
CMPB

cMP

SWR ,#SWREG

éfi"

Pes

MOVB

#1,SAUTOB

68%

mov
CMP

PC
#98,

JMP

RESTAR

BNE

718

::BRANCH IF YES

: sBRANCH IF NO

SGTSWR ROUTINE
;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TOBYTHE*+SYSM
AC++.
CTION AS CALLED FOR
“« WIHTOUT USING A '‘TRAP"" INSTRU:PUT
STACK
THE
ON
STATUS
SOR
PROCES
THE
-(SP)
MFPS
"MIGH BYTE CLEARED TO INSURE KERNEL MODE
1(5P)
CLRB

Vil

rOrORNONON)

3333 288 23888 88
3NFSE
S FRIRS =R

— D

000042

015412

175016

CLR
CLR

#-1,3SWR

::TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777

012560

;:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;:TRY TO REFERENCE HARDWARE SWR
;2BRANCH IF NO TIMEOUT TRAP OCCURRED

663

CMP

175356
174772

;;SET UP ERROR VECTOR

BNE

ov
n oSS
O

BRRRRER
233232
SITRER
RESNSR
SRR 3%

175070
000200

@MERRVEC,-(SP)
#648 ,Q¥ERRVEC

#DSWR, SWR
#DDISP,.DISPLAY

dd e

—

PAGE 24

MOV
MOV

175054

il e

VS WN—=O

23:00

ARE SWITCH REGISTER.
2;EQUAL TO A ‘*=1"', SETUP FOR A SOFTW
;;SAVE ERROR VECTOR

D e

s
s o
et el el

INITIALIZE THE COMMON TAGS

e
D ol
e
e
e
D
e
i

—
[T ———————
R A

) D dh e e
S el ol o

s
b bt b

NONUNUNUNUNY!

alel

16K VER MACY11 30(1046)

04-AUG-81

000001

014256
000001

174670

;?;:
352?”

98:

004252
174014

000001

174234

001214

174242

108:
128:

"ASCIZ

BEQ

MoV
CLR
TSTB

$GTSWR

*ON PSW RETURN.
-GO TO THE SUBROUTINE

::SET AUTO-MODE INDICATOR

::GET OVER THE ASCIZ

<CRLF>'CVMSAA'<CRLF>

108

i
RELOCF
a#SENV

RO
RO
PRGMAP

: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.
"CHECK FOR APT11

SEQ 0036

33333 e,4
Brors £
F oY

1uV]

388
§EY g8%
IR geme

o~
N
~N

04~AUG-81
001911

bbbgb
R OV~
NN mumwumb‘:\'}:b
YR
'\)NNNM)g-.-L
~
-0 SEIERRUR
~NO>
S ERNE
r R~ Vo el
VIS WA =0V~
239SXFIRER - “u“g

2
1

PO NN
NI PPN NN

e
R

MNONLNLN NN NNLNINLNL NN NN

—
N

nono NONONY
»

bR
e
i

D e e

PNOMNNNINONO
LN

ddddddddddddd e

04-AUG-81 23:00 PAGE 25
GAWORD Eg;gixERClSfiR. 16K VER MACY11 30(1046) SWITC
H REGISTER
005737 000042
0014
023737 000042 000046
00140¢

004767 011046

ST
BEQ
cMP
BEC

JSR

023472

012737
005037
012737
052737
012737
005737
001403
5037
54

13%:
148:

175430
004360 173434

177572
006214
174110
015142

:MUST BE XXDP

*GO SAVE LOADERS

MOV
MOV
CLR
SOB

#MEMMAP RO
#16. .R1
(RO)+
R1,14%

:LOAD RO WITH MEMMAP TABLE ADDRESS
:LOAD COUNTER
:CLEAR MEMMAP TABLE ENTRY
:DECREMENT COUNTER 16. TIMES NEXT ENTRY

CLR
MOV
MFPT
BR
ADD
INC

LSIFLG
#15% ,RESVEC

sINIT LSI=11 /2/QUAD PROCESSOR FLAG
:FIND OUT IF LSI-11/2/QUAD
;wzs{n?p}gcnm WILL CAUSE TRAP
:11/23 OR LATER WILL BRANCH
:LSI=11 RETURN,CORRECT STACK
SAND SET LSI=11/2 FLAG

CLR

MMAVA
“CHECK FOR INMIBIT KT11 SWITCH
#SW12,aSWR
*BRANCH IF SET
NONKT
:SET UP TIMEOUT TRAP VECTOR ER
VEC
,@#ERR
#NONKT
STATUS REGIST

BIT
BNE
MOV
CLR
JSR
INC
JSR

LWORD

:1F COUNTER NOT = 0 THEN CLEAR

000004
172344
172516

a#SRO
PC,MMINIT
MMAVA
$PRINT
RS,
MMAMES

*CLEAR MEM MGMT
:MEM MGMT INITIALIZATION ROUT INE
“SET MEM MGMT AVAILABLE FLAGMESSAGE .
:GO PRINT OUT THE FOLLOWING
:ADDRESS OF MESSAGE TO BE TYPED
“*XT11 AVAILABLE''

s«

SET IT UP IF IT IS
CHECK IF 22 BIT SYSTEM AVAILABLE AND FOR
TIME OUT VECTOR

.«

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

040000

052767 100000 174024 228%:

004567 015056
023537
000445

SCHECK FOR STANDALONE
:BR IF STANDALONE
;CHECK FOR ACTI
:BR IF ACT1

16%
#4,SP
LSIFLG
AND SET IT UP IF IT IS
:* CHECK IF MEMORY MANAGEMENT IS AVAILABLE,
:CLEAR KT AND 22 BIT ADDRESSING FLAG

15%:

000004
175406

004504
000000
010000
oooo;o
177777
000000
172516

PC,SAVLDR

INITIALIZE THE MEMMAP TABLE

16%:
005067 174142
174526
010000
032777
001047
012737 004522 000004

005037
004767
005267
004567

w62
138
L2, ameb
138

:BR IF APT11

:* (HECK IF MEMORY MANAGEMENT IS AVAILABLE, AND SET IT UP IF IT IS.

012700 001514
012701 000020
005020
077102
005067
012767
000007
000404
062706
005267

GET VALUE FOR SOF TWARE
138
BNE

MOV
CLR
MOV
BIS
MOV
ST
BEQ
CLR
BR

#228 .aMERRVEC ;SET UP
*CLEAR LOCATION 0
FY7)
:SET PAR2 TO LOC 128K + 2
AR2
#10000,a#KIP
ON 22 BIT ADDRESSING
“TURN
INSR3
#B]1T4,
TO LOC 128K + 2
WRITE
“NOW
40000
#-1,a4
=0
0
SIFLOC
a0
:" THEN 22 BIT SYSTEM
228
ELSE 18 BIT SYSTEM, DISABLE 22 BIT ADR
*
BISR3
AND GO SIZE MEMORY
:
KTSIZ

BIS

#BITI1S,MMAVA

JSR
_WORD
BR

; ELSE SET 22 BIT FLAG

ING MESSAGE.
SPRINT GO PRINT OUT THE FOLLOW
RS,
TYPED
BE
TO
E
MESSAG
OF
S
ADDRES
AVAL22
:'"22 BIT ADR AVAILABLE
*GO SIZE MEMORY
KTS1Z

SEQ 0037

153
1286

1285
1286
1287

1288
1289
1290

1291
1292
1293
1294
1295

1296

1297
1298
1%88
1
1301
130%

1303
1304
1305

1306

1307
1308
1309
1310

1311
1312
1313
1314
1315
1316
1317
1318
1319

I TR
IR IR IR I

1273
1274
1275
1276
1277
1278
1279
1280
1281
128§

"t..t.'..t.....fi.'.t"'.".'.t.'............'...'...I..t..'....t
RRRR

1272

SEQ 0038

GET VALUE FOR SOF

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

= ADDRESS POINTER

FLG30K

= 30K MEMORY FLAG

04~AUG-81 22:59

CVMSAA P11

LITERALS:

MASK8K

CVMSAA

6) 04-AUG-81 23:00 PAGE 26
0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(104
TWARE SWITCH REGISTER

= BANK POINTER ... LO 128K
= 37777

".tt.ttt'titttttt"fit.""tt..‘Q'ti'.t"'.'..QQ'..‘Q.Q'Q"'Q'.Q'

NONKT:

0045%2
004526

MOV

MOV
CLR

004532
004534
004540

004546
004550
004554

037777

MOV
MOV
MOV
BIT
BNE
BIS
B8R

18:

004556
004560
000004
160000

004562
004566
004572
004574
004576
004602
004604
004610

004612
004614
004620

170000

208:

175164

;
218:

037777

004622
004624
004630
004632

2%:

000020

“SET ADDRESS PTR TO 0

#1.R3
#28 aWERRVEC
(R2), (R2)+

#MASKSK ,R2
1%
R3, (RO)
3%

“SET UP MEMORY MAP PTR TO LO 128K
*SET UP 8K BANK POINTER
-SET UP TIME OUT VECTOR
“READ AND WRITE ALL MEMORY
“IF NOT 8K BOUNDARY
*" THEN CHECK NEXT LOCATION
* ELSE SET BANK FLAG IN MEMMAP
AND DO SOME MORE
:

#4,SP
#160000,R2
20$
21%
#170000,R2
22%

:RESTORE STACK POINTER
“IF NOT 28K BOUNDARY
*" THEN BRANCH
* ELSE SET UP POINTERS
*IF NOT 30K BOUNDARY
*" THEN BRANCH

B8R

*POINT TO LAST ADDRESS OF 8K BANK

FLG30K
R3, (RO)

* ELSE SET 30K MEMORY FLAG
“SET BANK FLAG IN MEMMAP

“BRANCH ALL DONE

BIS

#MASKBK ,R2
RZ

*POINT TO 1ST ADDRESS OF NEXT BANK

ASLB

:UPDATE BANK POINTER

INC

BIT
BEQ
B8R

:
48:
«

#MEMMAP , RO

ADD
CMP
BNE
BR
CMP
BNE
INC
BIS

3$:

:SET-UP THE STACK

TIMEOUT TRAPS TO HERE

228:

#STACK , SP

“IF NOT DONE WITH 32K
*" THEN TRY SOME MORE
‘GO TYPE OUT MAP

#BIT4,R3
1%
D1SMAP

RS
ERARAAAAAEARARAR A AR ARANRRRRR AR ARRARERRRRRRARRARRARAARR

THIS ROUTINE WILL MAP MEMORY IN 8K SEGMENTS.

MEMORY MANAGEMENT REGISTERS

KIPAR2 AND KIPAR3 ARE USED TO MAP THE 8K BANKS OF MEMORY.

760000 OR 17760000)
« IF MEMORY EXISTS NEXT TO THE 1/0 PAGE ED(I.E.
ING.
EXIST
AS
WLEDG
“x THEN THE LAST BANK WILL BE ACKNO
5

a®
4
:®

oTM
3

012706

001100

RO
R2
R3

= MEMMAP POINTER
= ADDRESS POINTER
= BANK POINTER

NT 8K BANK
KIPAR2 = MAPPED TO 1ST 4K OF PRESENT
8K BANK
PRESE
OF
4K
2ND
TO
KIPAR3 = MAPPED

LITERALS USED:

KTSI1Z:

MoV

004634

STORAGE USED:

MASK8K

= MASK OF 8K (37777)

t
"t*"'.tittt.i'tt.'.'ttit"tt't*t'tt.'ti.ttttt"'ttitt..tt't'tt

#STACK, SP

:SET-UP THE STACK

004640 0127

or.oggo
8822“ 0
S0 005037 172344o 172346
004654 012737 ooo;o
004662 012737 004710 000004

004670 012703 000001

004674 011222
004676 0327042 037777
004702 00137
7064 050310
706 00042

28:

.“s

3s:
000004
004710 062706 060000
8&714 022702
7 g 00101
005767 173610
004722
004726 100406
022737 007600 172346
004
004736 001010
004740 050310
004742 000433
004744 022737 177600 172346 4$:
004752 ogwog
004754 05031
004756 000425

760 062737 000400 172344 5$:

766

062737 000400 172346

774 012702 040000
5882 005767 173532
100403
5
soog 006303
5010 001331
5012
5014
5016
5020
5024
5030

8824 7
303
001326
062700 000002
022700 001554
001317

68 :

7%:

#MEMMAP RO

;SET=UP MEMMAP PTR TO FIRST ENTRY THRU PAR2

MOV

#81T0,R3

:SET=UP 8K BANK POINTER

MOV
CLR
MOV
MOV
MOV
BIT
BNE

#40000,R2
K IPAR2
#200.3#KIPAR3
#3S_3¥ERRVEC

SEQ 0039

S TO O MAPPED
“INIT VIRTUAL ADDRES
O
LOC
TO
PAR2
“INIT
-SET PAR3 TO 2ND 4K BANK
:LOAD TIME OUT VECTOR
:READ AND WRITE ALL MEMORY
*IF NOT 8K BOUNDARY
*" THEN TRY SOMEMORE
MEMMAP

(R2), (R2)+
#MASKSK ,R2
28

* ELSE SET BANK FLAG IN
“AND GO UPDATE VARIABLES AND CONTINUE

R3. (RO)
53

TIMEOUT TRAPS TO HERE

ADD
CMP
8NE
TST
BM]
CMP
BNE
BIS
BR
CMP
BNE
BIS
B8R

ADD

MOV
ST
BMI
ASL
BNE

BR
ASL
BNE
ADD
CMP
BNE

:RESTORE STACK POINTER
#4 ,SP
“IF NOT POSSIBLY THE 1/0 PAGE
#60000,R2
*" THEN GO TEST SOMEMORE
13
,
SING
* ELSE IF 22 BIT ADDRESI/0
% MMAVA
PAGE
2M
THEN GO SEE IF
:
48
BITS
ELSE IF NOT 1/0 BOUNDARYLESFORAND18 TRY
#7600.a#KIPAR3 :
SOMEMORE
VARIAB
THEN GO UPDATE
:
5
MEMMAP
IN
EXISTS
BANK
ELSE SET
:
R3. (RO)
“AND GO TYPE MEMORY MAP
78
sIF NOT 2M 1/0 BOUNDARY
#177600,a#K IPAR3
RE SIZING
: THEN GO TRY SOMEMO
5
MEMMAP
IN
BANK
P ELSE SET
R3, (RO)
*AND GO TYPE MEMORY MAP
7%
#400,24KIPAR2

#400.3#KIPAR3

#40000, k2
MMAVA
6%
R3
28

7%
R3
28
#2 R0
#MEMMAP+40,R0
1$

DISMAP

;UPDATE MAP TO NEXT

8K BANK

THEN GO SIZE SOMEMORE

"RESTORE ADDRESS POINTER TO 1ST ADDRESS OF THIS BANK
“IF NOT 18 BIT ADDR
*THEN GO TEST SOMEMORE
“18 BIT ADDR. = 1 WORD
“IF NOT END OF 18 BIT ADDR
* ELSE ALL DONE 18 BIT SIZING.
‘UPDATE BANK POINTER
THEN CONTINUE
“IF 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

*GO TYPE OUT MEMORY MAP

t'tt

- l'tQtt't.ttttQ.ttt!tifi"tl'.*tt".fltlt.tt'ttittfitittt!tt!"t
%
%
%
»

MOV

BIS
BR

1%:

-»

005032 000400
———

001514

GET VALUE FOR SOFTWARE SWITCH

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

COUNTER

SAVTST POINTER ... LO 128K

t
¢ ‘Itt"tttttt'.ttt'..'tt'*""'tt'titltlltt't!ttl.ttltt'!lt.ttt'

— Sa—

04-AUG~81 22:59

3
EEEREREE

elRNTe
AV HWN-=0 00~

AR
PR
s

S
S
S
—————
L
P
Y
NN
NN NN
VAWV VY

P11

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

SE—

023252 000004
01
004567 014522

-&£2§

012702 001614
012700 001514

e Ry
T
. T
S

_—

o
NN
N
bbabb
W 53¢
883 o
bbbgbbbbbbbbl\“
VNV
WN—=O 32 SEZE
NV
SN
=
SEIE wvi RUREEYWaNN
&» »

b
b
s

012701 000020

go 1
;;02

.WORD
JSR
JSR
_WORD

23:00 PAGE 28

“ADDRESS OF
:GO TYPE THE MAP
-GO PRINT OUT THE FOLLOWING MESSAGE.
“ADDRESS OF MESSAGE TO BE TYPED

#16. R1

*LOAD COUNTER

R1.1$
MEMMAP ,RO

BEQ
JSR

GMPR
RS,

_WORD
HALT

.SBTTL

MEMMES
PC, TYPMAP
SPRINT
RS.
SCRLF

OUT VECTOR
SERRTRP _S#ERRVEC:SET UP TIME
THE FOLLOWING MESSAGE.
OUT
SPRINT -GO PRINT
RS,
MESSAGE TO BE TYPED

S0B
MOV

BIC
CMP

023644
000000

:LOAD RO WITH MEMMAP ADR

#SAVTST ,R2
#MEMMAP . RO

CLR
MOV

18:

SMEMMAP RO

MOV
MOV
MOV

001404
004567 014442

(R2)
(RO)+,(R2)+

#177774 RO
#3,R0
INSUFF

“LOAD ADR OF SAVTST TABLE TO BE CLEARED
*LOAD ADR OF MEMMAP TABLE
*CLEAR SAVTST TABLE ENTRY
:LOAD SAVTST FROM MEMMAP

“DECREMENT CTR 16 TIMES 128K
:LOAD RO WITH MAP OF 1ST
*MASK ALL BUT BOTTOM 16K
:IF BOTTOM 16K IS ALL THERE

> THEN GO RUN
ING MESSAGE .
$PRINT :GO PRINT OUT THE EFOLLOW
TO BE TYPED

“ADDRESS OF MESSAG
:"FIRST 16K OF MEMORY NOT ALL THERE!"'
:FATAL ERROR HALT ...
PROGRAM
:MEMORY IS NOT CONFIGURED TO RUN THIS

MAP PARITY REGISTERS

::ttttttttttttt'tttt.ttt"t'itttttkt't'tt.tttttttt't.t.'ttttt!tt'

AND TYPE ADDRESSES OF THOSE FOUND
:* SEARCH FOR PARITY REGISTERS PRESENTSPOND
ING PARITY MEMORY

D
d —d

MOV
JSR

042700 177774
022700 000003

THAT ARE FUNCTIONAL AND HAVE CORRE

::ttttttttttttt.ttQtt"t't't.ttitt'ttttltt'.tttttttttttttttl.tt.t

gs 83 3333838
28 33 Sewvene

o
D e
e e
—

DISMAP: MOV

077103
016700 174400

o
it e
i
S dh e
it

P — et e
PR P
———

BEDDDDDDEDE

GET VALUE FOR SOF TWARE SWITCH REGISTER

023564
004767 011570
004567 014510
001171

- KERSRSERS

015;29 001514

883883228

gepeeegspass

s
D i D e D D De Dv e

— D b e i

04~AUG~81 22:59

b |

ME GAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81

012704
032777
001040
012703
012737
042713
005773
012324

:SET UP POINTER TO PARITY REG EXIST TABLE.
#MPRX, R4
GMPR : MOV
003370
:CHECK FOR INHIBIT PARITY SWITCH.
#SWO6. @SWR
BIT
000100 173760
:BR IF INHIBIT PARITY.
GMPRD
BNE
*SET UP TABLE POINTER
#PRO, R3
MOV
002270
#GMPRB, BNERRVEC :SET UP TIMEOUT TRAP SERVICE
MOV
005200 000004
:CLEAR FLAG BIT IN TABLE
(R3)
”,
GMPRA: BIC
000001
:DOES THIS MEMORY P.ARITY BEGISTER EXIST.
a(R3)
TST
000000
GO TO '‘GMPRB''.
.« IF IT DOESN'T EXIST, A TIMEOUT TRAPITWILL
IN THE PARITY REG EXIST TABLE.
(R3)+, (R&)+ ;SAVE
MOV
CODE

1SKIP TIMEOUT SERVICE
GMPRBA
BR
000404
HERE
COMES
UT
TIMEO
;%
:RESTORE STACK POINTER
#4,SP
GMPRB: ADD
062706 000004
(R3)+ -SET FLAG TO INDICATE REGISTER NOT PRESENT
”
BIS
052723 000001
*LOAD COUNTER
"M7..R1
GMPRBA: MOV
012701 000021
‘CLEAR ENTRY IN THIS GPR TABLE
(R3) +
GMPRC: CLR
005023
“DECREMENT COUNTER AND CONTINUE
R1,GMPRC
S08
077102
*CLEARING COUNTER UNTIL COMPLETED.
#MPRX -HAVE WE CHECKED ALL REGISTERS?
R3,
cMP
020327 003370
:NO - GO BACK TO CHECK NEXT ONE
GMPRA
BLO
103757
“SET TERMINATOR IN PARITY REG EXIST TABLE.
(R&)
CLR
005014
#ERRTRP ,@#ERRVEC ; RESTORE TRAPCATCHER
MOV
012737 023252 000004
T?
SANY PARITY REGISTERS PRESEN
MPRX
ST
005767 176126
T
PRESEN
LS
CONTRO
TEST
GO
*YES
MPAMEM
BNE
001006
E.
MESSAG
ING
FOLLOW
THE
OUT
$PRINT ;G PRINT
RS,
JSR
004567 014324

SEQ 0040

16K VER MACY11 30(1046)
(VMSAA 0=2 MEGAWORD film; EXERCISER, MAP
PARITY REGISTERS
04~AUG-81 22:59
CVMSAA P11
.WORD MTR
}22? 005250 02372%
1442
144

1444

005252 005014
005 54 000167 000744

GMPRD:

(LR
JMP

(R4
MANUAL

04-AUG-81

23:00

PAGE 29

;ADDRESS OF MESSAGE TO BE TYPED

**NO MEMORY PARITY REGISTERS FOUND''
MAKE SLRE TABLE IS CLEAR.

AND SKIP ALL CONTROLS TESTING

SEQ 0041

|
|

| CVMSAA

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

CVMSAA . P11

04~AUG-81 22:59

MAP PARITY MEMORY

04-AUG-81

23:00

PAGE 30

.SBTTL MAP PARITY MEMORY

1646

L L DL L

1448

i beiaiininipiiiyiiniiubinbvinbieiisisinieiainiainiuiniiviiviiiviiniiibl
REGISTERS AND MEMORY,
‘* MAP CORRESPONDENCE BETWEEN PARITY
PARITY IN ALL
WRONG
WRITE
SET
.
= AND TYPE RESULTS
ON VIA DATO € READ TEST

1456
1457
1458
1459
1460
1461
1462
1463
1464
1465

‘» REGISTERS PRESENT, THEN WRITE TEST LOCATI
PARITY IN ALL REGISTERS.
THEN CLEAR WRITE WRONGLOCATE
*x LOCATION VIA DATI, PARITY
D CORRECTLY THAT
MEMORY IS NOT
NOTE: THAT IF
o®
éxlll.lsfiég ALL PROBABILITY DUE TO ONE OF THE FOLLOWING
o*
- SETTING WRITE WRONG PARITY DIDN'T CAUSE BAD PARITY TO BE WRITTEN
o>
FAILED
- PARITY GENERATE OR DETECTTOLOGIC
o*
SET
FAILED
ERROR BIT
i*
o
i
s
i
)
.
ix
x
i

1445

1647

14649
1450
1451
}2;
1454
1455

1466

1467
1468
1469
1470
1471
}2;
1474
1475
1476

005260
005264
005270
005274
005276
005302
005306
005312
005316

004767
012702
005767
001404
012702
004767
012703
012704
005023

011230
014000
173242

054000

005330
001654

000020

}2;; 005320 077402

;:t'tttttttttttttttttttttttttttttt'ttttttt

MPAMEM: JSR
MoV
TST
BEQ
MOV
JSR
MAPRB: MOV
MOV
CLR
1%:

1479 005322 004767 011166
1480 005326 005000 000002
1481 005330 012705
}23% 005334 0127017 000001
2%:
1484 005340 012703 002270
3%:
010304
1485 005344
060504
}239 005346
1683 885350 032713 000001
5354 001021
148
1490 005356 013773 001766 000000
1491 005364 011;12
005712
149; 005
043773 001766 000000
0053
1493
1494 005376 005773 000000
1495 005402 100006
1496 005404 012763 070032 000042
1497 005412 050160 001654
1498 885416 050114
4%:
5420 062703 000044
1499
1500 005424 022703 003370

- PARITY
-~ PARITY BITS IN MEMORY LOCATION FAILED
- I.E. BIT STUCK AT GOOD PARITY VALUE
STORAGE USED:
= MEMMAP § PMEMAP TABLE INDEX
RO
= BANK POINTER
R1
= ADDRESS TO WRITE WRONG PARITY TO
R2
= MPR TABLE POINTER
R3
= ADDRESS OF PRESENT MPR TABLE ENTRY
Ré&
= MPR TABLES INDEXttttttttttQtttttt'tttt.
RS

S08

JSR
CLR
MOV
MoV
MOV
MOV
ADD
BIT
BNE
MOV
MOV
TST
BIC
TST
BPL
MOV
BIS
BIS
ADD

cMP

PC,CLRPAR
#14000,R2
MMAVA
MAPRB
#54000,R2
PC,MMINIT
#PMEMAP ,R3
#16. R4
(R3)+

:INITIALIZE ALL PARITY REGISTERSWRONG PARITY
:SET ADDRESS TO 14000 TO WRITE
;IF NO MEM MGMT
: THEN GO MAP PARITY MEMORY
: ELSE SET ADDRESS POINTER TO MAP THRU PAR2
;SET UP MEM MGMT REGISTERS
;LOAD PMEMAP TABLE ADR
;LOAD COUNTER
;CLEAR ALL OF TABLE

PC,CLRPAR
RO
#2 ,R5
#BIT0,R1
#MPRO ,R3
R3.R4
R5.Ré4
#8170, (R3)
43
anwP,a(R3)
(R2) . (R2)
(R2)
WP, 3 (R3)
a(R3)
43
#70032,42(R3)
R1,PMEMAP(RO)
R1, (R4)
#44 R3

;GO INITIALIZE ALL PARITY REGISTERS
INIT INDEX FOR MEMMAP AND PMEMAP TABLES
;INIT INDEX FOR MPR TABLES
;INIT BANK POINTER
:INIT MPR TABLE ADDRESS POINTER
;UPDATE TO NEW TABLE
:UPDATE INDEX THRU NEW TABLE
;IF CSR IS NOT PRESENT
; THEN GO TRY AGAIN
: ELSE SET WRITE WRONG PARITY BIT
;WRITE WRONG PARITY
;READ WRONG PARITY
;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

R&4.1$

#MPRX ,R3

:IF NOT DONE CLEARING THEN TRY SOMEMORE

; IF NOT END OF TABLE

SEQ 0042

(VMSAA

0~2 ME

| CVMSAA. P11

1501 0054

}gg
1504
1505
1506
1507
1508
1509
1510

1511
151;
1513
}g}g
1519
1517
1518
}gég
1521
}ggg
} g%l;

04-AUG-81 22:59

0054
005434
005440
005442
005450
005452
005454
005460

005464
005470
005474
005476
005500
005504
005506
005512
005514
005520
005522

D 1&”7 EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE n

MAP PARITY MEMORY
BHI

101345

011212
005767
001417
062737
006301
001058
0627
705

012701
0227
00141
000406
062702
106301
032701
001004
036001
001745
000706

5$:
173076
000400 172344

000002

000002
00001
000040

THEN TRY SOMEMORE

MOV
TST
BEQ
ADD
ASL
BNE
ADD
ADD

(R2),(R2)
MMAVA
6%
#400,3#KIPAR2
R?
7%
#2.RO
#2,RS

: ELSE CLEAR BAD PARITY
:IF NO MEM MGMT
> THEN GO UPDATE FOR 16 BIT SYSTEM
; ELSE UPDATE PAR2 TO NEXT 8K BANK
:UPDATC BANK POINTER TO NEXT BANK
128K BANK THEN DO 17
SIF STILL SOME TO CHECK IN THIS AND
PMEMAP TABLES
MEMMAP
FOR
INDEX
UPDATE
ELSE
>
TABLES
GPR
FOR
INDEX
:UPDATE

JMP

TMAP

:GO TYPE PARITY MAPS

MOV
(MP
BEQ
BR
ADD
ASLB
BIT
BNE
BIT
BEQ
BR

#MITO R
#40,R0
9%
7%
#40000,R2
R1
#8174 R1
9%
,R1
MEMMAP(RO)
5%
2%

:INIT BANK POINTER
:IF END OF MEMMAP
: THEN GO TYPE MEM PARITY MAPS
:GO TRY SOMEMORE
: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

040000
000020

6%:

001514

7%:

}%59 005524 000167 000000

9%:

1528

1S§g

::ttltttt'tttttt'tttttl'tttttt.tttttttttttttti'tlttttttt'ttttt't'

1531

153§

STORAGE USED:

010760
014034

15
1539
1540
1541
}gg
1544

005530
005534
005540
005542
005546

004767
004567
023602
012703
032713

1547

005554

004567 014014
024211
011301
042701 100000
005767 172742

}gzg 005552 001050

005554
005560
005562
005564
005570

1554 005574 100404
1555 005576 001006

002270
000001

1556 005600 012702 000001

= FIRST ADDRESS OF MAP TO BE TYPED
= PARITY REGISTER ADDRESS ... BITS 14-0

RO
R1

= PARITY REGISTER ADDRESS ... BITS 21-15

1535

1548
1549
1550
1551
1SS§
1553

CONTROL REGISTERS CONTROL WHICH

i*
i

153
1534

15 7

DISPLAY PARITY MEMORY MAP

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

1536

.SBTTL

= MPR TABLE ENTRY

.-;tttttttttt!ttttt'ttttt'ttttttt.ttttttttttttttttttttttttttttttfit

TMAP:

1%:
2%:

SEQ 0043

JSR
JSR
.WORD
MOV
BIT

PC,CLRPAR
$PRINT
RS,
MTMAP
#MPRO,R3
#8170, (R3)

sINITIALIZE ALL PARITY REGISTERS PRESENT
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
:"PARITY MEMORY MAP:'’
:INIT MPR TABLE POINTER
:IF THIS REGISTER IS NOT PRESENT

JSR
.WORD
MoV
BIC
TST

$PRINT
RS,
MX1
(R3) .R1
#100600.R1
MMAVA

;GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE Jp BE TYPED
:"PARITY REGISTER AT
:SAVE PARITY REGISTER ADDRESS ADDRESS
:DEVELOP BITS 14~0 OF REGISTER
:IF TYPE OF MEMORY MANAGEMENT

MOV

#1,R2

* ELSE 16 BIT SET BITS 21-15 FOR PRINT ouT

BNE

BM]
BNE

3%
43

THEN GO TRY AGAIN

: THEN 22 BIT BRANCH
: OR 18 BIT BRANCH

' CVMSAA

| CVMSAA, P11

04~AUG~-81 22:59

32; 005604 000405
0127022 000177
1 1569
005606
‘ 1 Ssg? 005612 00040
1
1 32
005614 012702 000007
1

1
1 364
;

005620

565 005620 010246

DISPLAY PARITY MEMORY MAP

3s:

B8R
MoV

5%
#177.R2

4$:

MoV

#7.R2

:AND GO TYPE OUT
:LOAD BITS 21-15 FOR PRINT OUT
SAND GO TYPE OUT
-LOAD BITS 21-15 FOR PRINT OUT

MOV

R2,-(SP)

::SAVE R2 FOR TYPEOUT

JSR
MY
.BYTE
MOV

$TYPOS
PC.
3
O
R1,=-(SP)

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

58:

EEl

::TYPE ADDRESS BITS 21-15

1567
1568
1569 005622 106746
1570 005626 105066 000001

AN INTERFACE TO THE $TYPOS ROUTINE
.+ THE NEXT TWO INSTRUCTIONS PROVIDE
CALLED FOR BY *«SYSMAC#+,
“x WIHTOUT USING A '‘TRAP'' INSTRUCTIONTHEAS PROCES
SOR STATUS ON THE STACK
:PUT
-(SP)
MFPS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB

1576
1577
1578
1579 005640 106746
1580 005642 105066 000001

;:TYPE ADDRESS BITS 14-0
AN INTERFACE TO THE $TYPOS ROUTINE
;* THE NEXT TWO INSTRUCTIONS PROVIDE
*+*,
TION AS CALLED FOR BY *xSYSMAC
“» WIHTOUT USING A '‘TRAP'* INSTRUC
STACK
THE
ON
STATUS
SOR
PROCES
THE
:PUT
-(SP)
MFPS
MODE
KERNEL
INSURE
TO
:HIGH BYTE CLEARED
1(SP)
CLRB

|
|

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

1571
157%
1573
1574
1575

005630 004767 015166
003
005634
000
005635
005636 010146

1581
158§ 005646 004767 015150
005
1583 005652
001
1584 005653

1585
1586
1587
1588
1589
]'gg?
159%
1593
}gg‘s

005654
005660
005662
005664
005670
005674
005700
005704

004567
024237
010300
062700
004767
062703
022703
101320

013714

000002

010754

000044
003370

1596 005706 012700 000010
1597 005712 012701 177777

1598
}288
1601
1602
]'(6:82
1605
1606

005716
005720
005722
005726
0057

R,
JSR
BYTE 5
a1

077101
077004
005737 003370
001002
000167 000270

6%:

JSR
.WORD
MOV
ADD
JSR
ADD
CMP
BHI

;ON PSW RETURN.
$TYPOS ;GO TO THE SUBROUTINE
;:TYPE 5 DIGIT(S)
::TYPE LEADING ZEROS

$PRINT
R5,
Mx2
R3,RO
#2,.RO
PC, TYPMAP
#44 R3
#MPRX ,R3
1%
#10.R0
#-1,R1

7%:

MOV
MOV

.SBTTL

TEST PARITY REGISTERS

8%:

SoB
S0B
TST
BNE
JMP

R1,8%
RO,7%
AA#MPRX
CTRLS
MANUAL

;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
:UPDATE TO NEXT REGISTER IN TABLE
:IF NOT END OF MPR TABLE
: THEN DO SOMEMORE
;LOAD DELAY
:LOAD DELAY

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

1607

1673

.':tttttttt.ttttttttttttttt'ttttttt.ttttttttttnttttlittttt'ttttttt

1610
1611
1612

;* CAN BE SET AND CLEARED.
;* THIS IS A ONCE ONLY TEST.
""Q.tttt'ttttttttt'ttt't"t'fit'nttttt.'t'tt!t'ttt..ttttttttttt'lt

1609

“* SHOW THAT BITS 0, 2, 5 = 11 AND 15 OF EACH PARITY REGISTER PRESENT

SEQ 0044

CVMSAA

16K VER MACYil 30(1046) 04-AUG-81 23:00 PAGE 33
0-2 MEGAWORD MEMORY EXERCISER, TEST
PARITY REGISTERS

(VMSAA.P11
1613

1614
1615
1616
1617
1618
1619
1620

1621
162%
1623
1624
1625
1626
1627
1628
1629

04~AUG-81 22:59

00573
005740
005742
005746
005750
005756
005760

005764
005766
005770
005774
005776
006002
006006
006010
006014

012703
011302
032702
001052
016367
001446
012700

005012
011201
046701
001405
004767
004767
000001
030067
001025

1630 006016 010012
1631 006020 011201

CTRLS: MOV
002270
MOV
18:
BIT
000001
BNE
MOV
000042 173530
BEQ
MOV
000001
CLR
173512
010534
011660
173472

163§ 006022 005012
1633 006024 046701 173456

1634 006030 020001

1635
1636
1637
1638
1639
1640
1641
w.g
1643
1644
1645
1646
1647
1648
1649
1650
}ggg

006032
006034
006040
006044
006046

001405
004767 010540
004767 011622
000001

006046 011201
006050
006054
006056
006062
006066
006070
006072
006074
006100
006104

046701
001405
004767
004767
000001
006300
001346
062703
022703
003315

173432
010454
011600
000044

003370

MOV
BIC
BEQ
JSR
JSR
LWORD
BIT
BNE

648:

28%:

MOV
MOV

1068:

658:
668:

CLR
BIC

cMP

BEQ
JSR
JSR
_WORD

MOV

67%:
3$:
1058:

BIC
BEQ
JSR
JSR
LWORD
ASL
BNE
ADD
CMP
BGT

#MPRO, R3
(R3) ,R2
#8170.R2
105$
42(R3) .RESRVD
1058
#1,R0

:LOAD INITIAL TABLE ADDRESS FOR A POINTER
“GET CSR ADDRESS INTO R2
> ELSE IF CSR DOES NOT EXIST
* THEN BRANCH
- ELSE LOAD MASK, IF EQ TO 0
TIEN DO NOT TEST
:
“LOAD RO WITH 1ST BIT TO BE TESTED

RO, (R2)
(R2) ,R1

* ELSE SET THIS BIT IN (SR
‘READ AND SAVE CONTENTS OF CSR

(R2)
(R2) .R1
RESRVD,R1
28
SPRNT
PC.
$ERROR
PC.
1
RO,RESRVD
3$
(R2)
RESRVD,R1

RO,

“INITIALIZE THE PARITY REGISTER
:READ THE CONTENTS OF THE PARITY REGISTER
*CLEAR RESERVED BITS, IF EQ 0
* THEN BRANCH
-SET UP VALUES FOR ERROR PRINTING.
-**% ERROR *** (GO TYPE A MESSAGE)
“ERROR TYPE CODE.
“IF THIS BIT IS RESERVED
*" THEN BRANCH AND DON'T TEST
*CLEAR THE CSR
“CLEAR RESERVED BITS

DATA READ.
“COMPARE THE CHECK WORD WITH THE DATA.

*BRANCH OVER ERROR CALL IF GOOD
SPRNTO :SET UP VALUES FOR ERROR PRINTING.
$ERROR :**% ERROR *** (GO TYPE A MESSAGE)
*ERROR TYPE CODE.
CSR
:MAKE SURE BIT WAS CLEARED OUT OF REGIST
ER
“READ THE CONTENTS OF THE PARITY
(R2) ,R1
*CLEAR BITS WHICH ARE RESERVED
RESRVD, R1
*CHECK OTHER BITS - BRANCH IF OK
38
G.

66$
PC,
PC.
1

SPRNT
PC,
$ERROR
PC.
1
RO
2s
#44 R3

#MPRX,R3
1%

-SET UP VALUES FOR ERROR PRINTIN
-*** 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

1653

"_'t'.itttQttttttt.t'ttttttttttttttttktttltttttt'tttttttttttttt'tt

1659

‘s«

OF EACH PARITY REGISTER PRESENT.
"% SHOW THAT RESET CLEARS BITS 0,2 AND 15
“« ALSO BIT 14 IN PARITY CSR IF MEMORY IS SET FOR 22 BIT ADDRESSING

1654
1655

165

1658

1659
1660
1661
we;
1663
1664
1665
1666

THIS IS A ONCE ONLY TEST.

:"tttttttttt.ttttt*tttt"ttttttttttttittttttttt!ttttttttttttt'ttt

006106
006112
006116
006120
006124
oom;g
006134
006140

012704
022704
003411
032714
001003
012774
062704
000764

1667 006142 000005

RESCHK: MOV
CMP
18:
003370
BLE
BIT
000001
BNE
MOV
177777 000000
101$: ADD
000044
B8R

002270

1668 006144 012702 002270

1008:

RESET

MOV

#MPRO, R4
#MPRX . R4
100
#8170, (R4)
101$
#-1,3(R4)
#44 R
1%

#MPRO,R2

:LOAD INITIAL TABLE ADDRESS FOR A POINTER
“IF END OF TABLE
THEN BRANCH
:
ELSE IF CSR DOES NOT EXIST
;
THEN BRANCH
:
ELSE LOAD CSR WITH ALL 1'S
:
*UPDATE POINTER
“TRY AGAIN
"RESET THE WORLD

“LOAD INITIAL ADDRESS FOR POINTER

SEQ 0045

(VMSAA

‘CVHSM.PH

1670 006154 00342
006156 032712
1671
1672 006162 00101

1673
1676
1675
1676
1677
1678
1679
1680
1681
1682

000001

TEST PARITY REGISTERS

2%:

006200
2
006,
006210

005701
001405
004767 010326
004767 011452

1688
1689
1690
1691

006224
006230
006234
006236
006242
006242
006246

5067
105767
021002
000167
004567
024275

173532
173522
000402
013326

1999 006250 106746
1700 006252 105066 000001
1701
170
1703
1704
1705

BLE
BIT

CLR
BIC

48:
548:
65%:

}ggg 006222 000752

1687

cmMP

BNE
MOV

006164 017201 000000
006170 005072 000000
006176 042701 037772

006214 000001
1683 006216
1684 006216 062702 000044

2333232

1669 006150 02§Z0§ 003370

kot

04~AUG-81 22:59

— e

.
|

ST
BEQ
JSR
JSR

.WORD
ADD

MANUAL: CLR
TSTB
BNE
JMP
MANU1L:
JSR
.WORD
“x«

006262 032716 037777

MFPS
CLRB

1%:

2%:

17264 006360 066702 013206

3%:

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

ASL
MOV

$HIOCT
#BITPT RO

:MAKE NUMBER OF 128K
:GET START OF TEST TABLE

$RDOCT

#37777.(SP)

(SP) R4
$HIOCT
(SP)
$HIOCT
(SP)

$HIOCT.RO
#12.R1
(SP)
R1,1$

BIS
TST
BEQ

#BIT0, (RO)
(SP)
33

MOV

AMEMMAP ,R2

ASL

006310

-(SP)
1(SP)

$HIOCT,R3

ADD
MOV
ROR
S08

175

:'FIRST

MANUL 1

700 013244
012701 000012
16
077102

006354 012702 001514

sINIT FIRST ADDRESS
FSTADR
*CHECK FOR SELECT PARAMETER SETUP
SELFLG
*IF FLAG SET GET USERS PARAMETERS
MANUL 1
“ELSE USE DEFAULT DATA
MANUL 2
$PRINT :GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
*ADDRESS OF MESSAGE TO BE TYPED
FADMES
ADDRESS:''

BNE

1213 006
1714 88‘6
17158
1216 006

006367 013254
012700 001714

006352 000773

*BRANCH BACK TO CHECK NEXT REGISTER

011604
006267 013270
006016
006267 013262
006016

1722

:UPDATE POINTER

JSR

1706 006274
1707 006276
1708 88% 2
1709
1710 006310

1721 006350 005316

#44 ,R2

THEN BRANCH
:
ELSE SAVE CONTENTS OF CSR
:
:CLEAR THE CSR
a(R2)
STEST TOR BIT14 TOO
#37772.R1
AS ZERO
*18 BIT MODE = BIT14 ALWAYS READ BY
RESET
EARED
122 BIT MODE = BIT14 R/W,CLD BY RESET
3
*CHECK IF REST WERE CLEARE
R1
*BRANCH OVER ERROR CALL IF GOOD DATA.
65%
G.
SPRNT :SET UP VALUES FOR ERROR PRINTIN
PC,
)
MESSAGE
A
TYPE
$ERROR -#*%*%* ERROR *** (GO
PC,
*ERROR TYPE CODE.
1

65%
a(R2) .R1

:ON PSW RETURN.
:GO TO THE SUBROUTINE
*ON 8K BOUNDARY?
;IF NO,REASK
:SAVE ORIGINAL HIGH BITS

MOV

006270 016703 013276

006346

THEN BRANCH
ELSE IF CSR DOES NOT EXIST

MANUAL
#8170, (R2)

WIHTOUT USING A ‘‘TRAP''

BIT

006266 001365

1717 006336 052710 000001
005716
1718 006
1719 006344 001403

:IF END OF TABLE

:
:

PROVIDE AN INTERFACE TO THE $RDOCT ROUT INE
:» THE NEXT TWO INSTRUCTIONS
INSTRUCTION AS CALLED FOR BY **SYSMA(x*.

006256 004767 013136

1711 0062
171; 0063

#MPRX ,R2

;FIRST ADDRESS 8K BOUNDARY

MOV
ASR
" ROR
ASR
ROR

1720

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

DEC
B8R

ADD

(RO)

*AND LOW BITS
*DIVIDE HIGH ADDRESS INTO
:NUMBER OF 128K BANKS AND
"NUMBER OF 8K BANK WITHIN
$128K BANK
BANKS INDEX

*ADD INDEX
“SET UP TO ALIGN 8K BANK COUNT
:ALIGN COUNT
SLOOP UNTIL DONE
:INIT BK BANK POINTER IN 128K WORD
:SHIFT BIT UNTIL COUNT = 0
‘WHEN ZERO DONE
“SHIFT BIT

(SP)
28

:SUBTRACT FROM COUNT

$HIOCT ,R2

;ADD INDEX

*LOOP BACK

:GET FIRST ADDRESS OF MEMORY TABLE

SEQ 0046

CUMSAA

CUMSAA P11

TEST PARITY REGISTERS

04~-AUG-81 22:59

1725 006364 03101;

};5‘7’ %398 00172
013200
1728 006370 004567
024362
1729
1730
173
1732
1733
1734
1735
173
1737
1738

1739
1740
1741
174%
1743
1744

1745
1746
1747
1748
1749
1750
1751
1752

1753
1754
1755
1756
1757
};gg

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

106746
105066
004767
005716
001010
005767
001005
016716
016767
020467
101353
103402
020316
101350
012700

000001
013010

013152
172526
172524 (013136
5%:
013132
000020

006454 012701 001714
001614
006464 052122
006466 077002

006460 012702

006470
006474
006476
006500
006502
006504

020367 013076
103403
101027
020416
101025
062704 040000

6%:
7%:

8%:

006512
006516
006552
8&5 4
558
006530
006532

012700 000017
012701 001714
006321
006121
077002
103423
012700 000020

1770
1771
1772
1773
1774
1775

006546
006550
006552
006554
006556
006562

032122
001337
077003
000753
012700 000020
012701 001714

1768 006536 012701 001714
1769 006542 012702 001514

1776 006566 012702 001514

1777 006572 032122
1778 006574 001007
1779 006576 077003

1780 006600 012706 001100

2IS BIT JUST LOCATED,SET iN MEM. TABLE

BEQ
JSR

S1F NO BANK EXISTS...REASK
MANUL 1
THE FOLLOWING MESSAGE.
SPRINT :GO PRINT QUTMESSAGE
RS,
TO BE TYPED
:ADDRESS OF
LADMES
:''

TST
BNE
MOV
MOV
cMP
BHI

$HIOCT
5%
$TMP2, (SP)
$TMP3,SHIOCT
R4, SHIOCT
48

BLO
CMP .
BHI '
MoV
MOV
MOV
BIS
SOB

CMP
BLO
BHI
CMP
BHI
ADD
ADC

1760 006510 005503

1761
1762
1763
1764
1765
1766
1767

(RO), (R2)

.WORD
**LAST ADDRESS
SRDOCT ROUTINE
PROVIDE ~N INTERFACE TO THE**SYSMA(
-« THE NEXT TWO INSTRUCTIONS
Cw+.
BY
FOR
CALLED
AS
‘e WIHTOUT USING A '‘TRAP'* INSTRUCTION
STACK
THE
ON
STATUS
OR
PROCESS
THE
;PUT
-(SP)
MFPS
MODE
KERNEL
INSURE
TO
CLEARED
BYTE
“HIGH
1(SP)
CLRB
“ON PSW RETURN.
$RDOCT :GO TO THE SUBROUT INE
PC,
JSR
“CHECK IF LOW BITS ZERO
(SP)
TST
NOT,NO DEFAULT
*IF
S$
BNE

006374

006376
006400
006404
006410
006412
006414
006420
006422
0064%2
0064
0C6440
006442
006444
006446
006450

BIT

9%:

108:
11%:
12%:

138:

R3,(SP)
48
#20,R0
#BITPT R
#SAVTST ,R2
(R1)+,(R2)+
RO,7%
R3,$HIOCT
&%
118
R4, (SP)
1%

#40000,R4
R3

“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
:1F EQUAL CHECK LOW BITS
“IF LOW BITS LOWER...REASK

*TABLE COUNTER

:STORE BITPT IN SAVTST MAP
;D0 16. TIMES

:COMPARE HIGH BITS OF FIRST TO LAST
“IF LOWER SEE IF NEXT BANK EXISTS
“1F HIGHER MUST BE LAST BANK
:IF EQUAL CHECK LOW BITS
“IF LOW BITS FIRST HIGHER LAST BANK
SUPDATE TO NEXT BANK

MOV
MOV
ASL
ROL
SO8
BCS
MOV

#17 .RO
#BITPT ,R1
(R1)+
(R1)+
RO,9%
138
#20,R0

:SET UP TO UPDATE POINTER
“GET START ADDRESS OF TABLE
SROTATE POINTER WITHIN
: TABLE
SUNTIL ALL LOCATIONS DONE
*BANK DOESN'T MAP
*SET UP TO SEE IF ONE EXISTS

BIT
BNE
SO8
BR
MOV
MOV

(R1)+,(R2)+
6%
RO,10$
8%
#20,R0
#B1TPT ,R1

STEST IF BANK EXISTS
:1F MATCH UPDATE
:DO ALL OF TABLE
:MAKE SURE LAST BANK
*WAS MAPPED BY MEMORY

MOV
MOV

#B1TPT ,R1
#MEMMAP , R2

MOV

#MEMMAP ,R2

MOV

#STACK,SP

BIT
BNE
SOB

(R1)+,(R2)+
14%
RO,12%

“GET START ADDRESS OF POINTER TABLE
*GET START ADDRESS OF MEMORY TABLE

“SIZING ROUTINE
:

:RESET STACK

SEQ 0047

(VMSAA

04~-AUG-81 22:59
CVMSAA P11
E 1781 006604 004567 012764

TEST PARITY REGISTERS
RS,
JSR

006626 106746
179% 006630 105066 000001

CLRB

‘.

NG MESSAGE.
$PRINT ;GO PRINT OUT THE FOLLOWI
TO BE TYPED

SEQ 0048

:ADDRESS OF MESSAGE
.WORD BADADR
:""2ADDRESS IN UNMAPPED BANK?''
;LOOP BACK AND START OVER
MANUAL
BR
JRESET STACK
#STACK,SP
MOV
14%:
PRINT OUT THE FOLLOWING MESSAGE.
:GO
$PRINT
RS,
JSR
;S OF MESSAGE TO BE TYPED
:.ADDRE.‘
.WORD CONST
:"'SELECT CONSTANT: ‘'’
AN INTERFACE TO THE SRDOCT ROUTINE
;+ THE NEXT TWO INSTRUCTIONS PROVIDE
AS CALLED FOR BY **SYSMA(Cw«+,
TION
INSTRUC
'‘TRAP'"
A
s« WIHTOUT USING
PROCESSOR STATUS ON THE STACK
THE
:PUT
-(SP)
MFPS
INSURE KERNEL MODE

024405
000604
012706 001100
004567 012750
024442

1782
1783
1784
1785
1786
1787
1788
1789
1790
1791

006610
006612
006614
8&(\6%0
4

179
17%
1795
1796
1797

JSR
00663 004767 012560
MOV
006640 012667 173120
006644 032777 000040 172256 MANULZ2: BIT
BEQ
006652 001403

MOV

}% 006654 012767 001000 173100

1800

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

1(SP)

:HIGH BYTE CLEARED TO

#1000,FSTADR

+IF YES,SET STARTING ADDRES

;ON PSW RETURN.
$RDOCT ;GO TO THE SUBROUTINE
PC,
:SAVE THE DATA
(SP)+,.CONST
:1S VECTOR AREA PROTECTED?
#SWO05 ,aSWR
;IF NO,GO ON
START1
S = 1000

/'\:/t\:/t\:/'\:/t\:
,'/'\:/'\:/'\:/'\:/-\:/'\:/-\:/-\:/'\:/'\:/'\:/t\:/t\:CCDE,
SO THAT IT CAN EXECUTE PROPERLY WHEN THE PROGRAM HAS BEEN RELO

ON INDEPENDENT
;* THE REST OF THE PROGRAM IS POSITI
SED IN EXACTLY THE SAME MANNER AS THE REST OF MEMORY
CAN BE EXERCI
OF MEMORY:\'/:\
TWO BANKS
THE FIRST
SO THAT */:\t/
IS DONE
s» THIS
'/:\t/:\-/:\t
:\'/:\'/:\'/:\*/:\'/:\'I
;/:\'/:\'/:\'/:\t/:\-/:\
START1: MOV

1807 006662 016706 173114

1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1322;

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

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

000020
173110
173106
171622 172640
171604

#20,R0
.SAVTST ,R1
.TSTMAP ,R2
(R1)+,(R2)+
RO,1$
PRGMAP, TSTMAP
#START1,SLPADR
RELOCF, SLPADR
MAMF
PC,
MMAVA
TST1
#8170, a#SRO
TST1
MMINIT
PC,

:SET STACK POINTER

:SET UP TO LOAD 20 LOCATIONS
:SOURCE TO BE SAVTST TABLEMAP
:DESTINATIION TO BE TEST
;INIT TESTING TABLE
:LOOP UNTIL DONE
:DON'T TEST WHERE PROGRAM IS LOCATED.
;INIT LOOP ADDRESS.
:SET UP MEMORY PARITY ERROR VECTOR LE.
:CHECK FOR MEMORY MANAGEMENT AVAILAB
:BRANCH IF NO MEM MGMT.
:CHECK IF MEM MGMT ENABLED.
:BR IF MEM MGMT ENABLED.
:;SET UP MEM MGMT REGISTERS.

MEMORY ADDRESS TESTS
.SBTTL SECTION 1:
WRITE VALUE OF MEMORY ADDRESS INTO MEMORY
:*TEST 1
RO = DATA WRITTEN INTO MEMORY (SHOULD BE)
o®

:'-tttr.tt'tttt'!tti'ttt'tt'tttt.tttttt'tttttttttttttttt'tttitttt'

R1 = DATA READ :ROM MEMORY (WAS)

R2 = VIRTUAL ADDRESS

1828

1829
1830

1891

006756

183 006756 004567 010372
1835

172146

006626
171576
000001 177572
003660

1827

1833

1%:

006662 172154

1823
1824
1825
1826

MOV
MOV
MOV
MOV
S08
BIC
MOV
ADD
JSR
TST
B8EQ
BIT
BNE
JSR

.STACK, SP

1836 006762 004467 004012

R3 = NOT USED
o
R4 = NOT USED
o
MASK.
RS = BLOCK BOUNDARY BIT
3
".'...t'fifit.!""t.t'tttt"'ti'fii't'.!'t'ltt.t'.t..ttlt'l'tttit"i'
TST1:

JSR

RS,

$SCOPE ;GO TO SCOPE ROUTINE.

UPWARDS WORD ADDRESSING.

JSR

R4,

INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS.

‘

| CVMSAA

0=2

CVMSAA.P11
1837 006766

~-AUG-81 22:59
010

1838 006770 004767 005124
1839 006774 010012
776 012201
1840

020581
1841 00
1842 007002 001405

1843 007006 004767 007614
1844 007010 004767 010652

1845 007014 000002
1846

007016

1847 007016 062700 000002
1848 007022 077514
}ggg 007024 004767 004162

1851
1as§
1853 007030 004467 004042

1854
1855
1856
1857
1858
1859

007034
007036
007042
007046
007050
007052

010200
162700 000002
004767 005052
014201
020001
001405

1860 007054 004767 007520
1861 007060 004767 010602
mg 007064 000002
1863

007066

K &

30(1046) 04-AUG-81 23:00 PAGE 37
MEGAWORD MEMORY EXERCISER, }?x VER MACY11 VALUE
OF MEMORY ADDRESS INTO MEMORY

1864 007066 162700 000002
1865 007072 077513
1866 007074 004767 004456

18:
28:

648:
65%:

WRITE
MOV
JSR
MOV
MOV

cMP

BEQ
JSR
JSR

LWORD

:SET UP TO CALCULATE PHYSICAROL ADDRESS
-GET PHYSICAL ADDRESS INTO
ADDRESS
-WRITE VALUE OF ADDRESS INTO
TEST.
UNDER
“GET THE DATA FROM MEMORY
READ.

R2.
PC.
RO
(R)+,

RO
PHYADR
(R2)
RI1

PC.
PC.

G.
SPRNT2 -SET UP VALUES FOR ERRORAPRINTIN
)
MESSAGE
TYPE
(GO
$ERROR -*** ERROR *%*

RO,
65$
2

ADD
S08
JSR

#2,
RS,
PC.

RO
28
MMUP

MOV
SUB
JSR
MOV
CMP
BEQ

R2.
"2,
PC.
-(R2),
RO
67%

RO
RO
PHYADR
R1
R1

LWORD

SEQ 0049

DATA
THE DATA.
WITH
CHECK WORD
THE ERROR
E OVER
"COMPAR
GOOD
IF
CALL
*BRANCH
“ERROR TYPE CODE.

L ADDRESS
:ADD #2 TO PHYSICA
“BRANCH IF MORE IN CURRENT BLOCK.
-FIND NEXT BLOCK AND LOOP TO 1S.

.« CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY
“» DOWNWARDS WORD ADDRESSING.
POINTERS.
INITON :INITIALIZE THE MEMORY ADDRESS
R4,
JSR
TE PHYSICAL ADDRESS

3$:

4%:
668:
67%:

JSR
JSR

suB
S08
JSR

PC,
PC.

#2,
RS,
PC.

“SET UP TO CALCULA
“GET LAST ADDRESS OF SBLOCK
:GET PHYSICAL ADDRES INTO RO
“GET THE DATA FROM MEMORYWITH THE DATA READ.
*COMPARE THE CHECK WORD
*BRANCH OVER ERROR CALL IF GOOD DATA.

SPRNTO :SET UP VALUES FOR ERROR PRINTING.
SERROR -+** ERROR *** (GO TYPE A MESSAGE)
“ERROR TYPE CODE.

~ :DEC DATA BY 2
RO
‘BRANCH IF MORE IN CURRENT BLOCK.
43
MMDOWN -FIND NEXT BLOCK AND LOOP TO 38.

;

(VMSAA

0=2 MEGAWORD MEMORY EXERCISER, }SK VER MACY11 30(1046)

CVMSAA.P11

04=AUG-81 22:59

04-AUG-81

23:00

PAGE 38

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY

1“7

.':'.'..t.'-.I..t."'.."'t""......'ti.'.'.."'t..'.....tt'l..'.

1871

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY
THTEST 2
RO = DATA WRITTEN INTO MEMORY (SHOULD BE)
i
R1 = DATA READ FROM MEMORY (WAS)
T

1868
1869
1870

187
187
1874
1875

1876

007100

18;8

003670
1879 007104 004467
1880 007110 010200 005002
1881
1aa§
1883
1884
1885
%
888

007112
007116
007120
007122
007124
007126

889

890 007132
891 007136
aog 007140
893 007142
89, 007146
895 007150
896 007152
897 007154
898 007156
899 007162

R2 = VIRTUAL ADDRESS

R3 = NOT USED
I
Re = NOT USED
T
RS = BLOCK BOUNDARY BIT MASK.
x
:.'tttt.itttttt‘t.'ttl’tt"t""tl't'.tit".ttt'ti.'ttt.'..t't'l.t'

1877 007100 004567 010250

-‘-‘d—.-‘ddddddd-‘d—l—.-—.—l—)—l—‘—lddd—l—.-J—‘-l-‘—l—‘—l—‘—‘—l

004767
006305
110022
005200
077503
004767 004060

004467
010200
005300
004767
006305
114201
120001
001405
004767
004767

900 007166 000003
007170
902 007170 005300

003740
004752

007416
010500

901

903 007172 077512 004356
% 007174 004767

T§12:

18:

JSR

RS,

$SCOPE ;GO TO SCOPE ROUTINE.

UPWARDS BYTE ADDRESSING.

JSR
MOV

R4,
R2.

THE MEMORY ADDRESS POINTERS.
INITMM ;INITIALIZE CALCULA
TE PHYSICAL ADDRESS
“SET UP TO
RO
S INTO RO
ADDRES
AL
PHYADR :GET PHYSIC

PC.
JSR
*MAKE TEST COUNTER BYTE VALUE ADDRESS
RS
ASL
(R2)+ -WRITE VALUE OF ADDRESS INTO
RO,
MOVB
28:
*ADD ONE TO PHYSICAL ADDRESS
RO
INC
H IF MORE IN CURRENT BLOCK.
*BRANC
28
RS,
S08
:FIND NEXT BLOCK AND LOOP TO 1S.
MMUP
PC.
JSR
ADDRESS WAS WRITTEN CORRECTLY
.» CHECK THAT VALUE OF MEMORY
s
‘x DOWNWARDS BYTE ADDRESSING.
THE MEMORY ADDRESS POINTERS.
ALIZE
;INITI
INITDN
R4,
JSR
ATE PHYSICAL ADDRESS
CALCUL
TO
UP
“SET
RO
R2.
MOV
3s:
S OF BLOCK
ADDRES
BYTE
LAST
“GET
RO
DEC
INTO RO
S
ADDRES
AL
PHYSIC
:GET
PHYADR
PC.
JSR
VALUE
BYTE
R
COUNTE
TEST
MAKE
RS
ASL
MEMORY
FROM
DATA
THE
*GET
=-(R2), R1
MOVB
48:
*CHECK THE DATA...LO BYTE ONLY VALID.
R1
RO,
CMPB
DATA.
BRANCH OVER ERROR CALL IF GOODNG.
658
BEQ
PRINTI
ERROR
FOR
VALUES
UP
:SET
SPRNTO
PC,
JSR
648:
$ERROR -**% ERROR *%* (GO TYPE A MESSAGE)
PC.
JSR
;ERROR TYPE CODE.
.WORD 3
65%:
:DEC DATA BY 1
RO
DEC
IN CURRENT BLOCK.

S08
JSR

RS,
PC.

BRANCH IF MORE AND LOOP TO 3.
48
NEXT BLOCK
:FIND
MMDOWN

906

DIRRAARRRAERRRARAARERAREAREARIRRERREARCRRERRRARIRAER AR AR AR A RS AR

909

ADDRESS INTO ADDRESS.
WRITE 1'S COMPLEMENT VALUE OFD BE)
;*TEST 3
(SHOUL
MEMORY
INTO
RO = DATA WRITTEN
i
MEMORY (WAS)

907
908

o
ot
P ik
2

910
M
91§
N

914
915

007200

916 007200 004567 010150
917

918
919
920
951

007
007210
007212
007216

004467 003666
010
000002
162
004767 004676

922 007222 005100

R1 = DATA READ FROM

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

I ERRRARARRARRAAERARRARRERRERIRRRA AR ARCRRERRRRRRA R AR AR
TST3:

1$:

JSR

R5,

CoM

$SCOPE ;GO TO SCOPE ROUTINE.

DOWNWARDS WORD ADDRESSING.

JSR
MOV
SuB
JSR

R4,
R2.
#2,
PC,

INITON
RO
RO
PHYADR

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

SEQ 0050

(VMSAA

04~AUG-81 23:00 PAGE 39
0=~2 MEGAWORD MEMORY EXERCISER, }gk VER MACY11 30(1046) MENT
VALUE OF ADDRESS INTO ADDRESS.

CVMSAA P11

04~AUG-81 22:59

WRITE 1°S COMPLE

MOV

RO,

=(R2)

;PUT DATA INTO MEMORY

1923 007224 010042

2%:

1928
19

;% (CHECK COMPLEMENT DATA WRITTEN DOWN
;* UPWARDS WORD ADDRESSING.

1924 007226 0?;700 000002
1925 007232 077504
]lg g 007234 004767 004316

007240 (004467 003534
19
1931 007244 010;00
193§ 007 43 004767 004646
}gg‘ 007 34 005100

1935 % 54 012201
020001
1936
1937
1938
1939

007256
007260 001405
007262 004767 007336
007266 004767 010374

3%:
@

648:

ADD
S08
JSR

2,
RS,
PC.

DOWN SO COM GOES UP
:+2 TO DATA--ADR GOES
RO
;BRANCH IF MORE IN CURRENT BLOCK.
2%
MMDOWN ;FIND NEXT BLOCK AND LOOP TO 18.

JSR
MOV
JSR

R4,
R2.
PC,

MOV

ADDRESS POINTERS.
INITMM ;INITIALIZE THE MEMORY
AL ADDRESS
PHYSIC
:SET UP TO CALCULATE
RO
RO
INTO
L ADDRESS
PHYADR ;GET PHYSICA
T IT

CMP
BEQ
JSR
JSR

(R2)+, R1
R1

RO
658
PC.
PC.

:COMPARE
DATA.
;BRANCH OVER ERROR CALL IF GOOD G.
PRINTIN
ERROR
FOR
VALUES
SPRNT2 ;SET UP
S$ERROR ;*** ERROR #*** (GO TYPE A MESSAGE)

SoB

RS,

RO
4%

com

.WORD
SuB

2
#2,

;COMPLEMEN

UNDER TEST.
FROM MEMORYWITH
:GET THE DATA
THE DATA READ.
WORD
CHECK
THE
;ERROR TYPE CODE.
;COUNT DOWN WITH ADDRESS

1940 007272 000002
1941 007274
194; 007274 162700 000002

65%:

1946

:.'ttttttttQtttttttttttttttttttttt'ttttttttttttltntttttttttttttttt

1949

1943

007

077513

}&g 007302 004767 003704

1950

195

007306

1959 007306 004567 010042

1958
1959
1960
1961
196§
}gg‘

007312 004467 003462
007316 004767 004674
007322 006305
007324 110022
007326 077502
004767 003656
0073

1966

004467
004767
006305
112201
120001
001405
004767
004767

1965

1967 007334
1968 007340
1969 007344
7346
1970
7353
1971
7352
19;;
7354
19
7360
1974

1975 007364 000003
1976

MMUP

:FIND NEXT BLOCK AND LOOP TO 3S$.

007366

R1 = DATA READ FROM MEMORY
R2 = VIRTUAL ADDRESS

R3 = NOT USED
*
R4 = NOT USED
i*
BIT MASK.
RS = BLOCK BOUNDARY t'tt!tt
i
tttttttttttttttttt!ttt't'tt'ttt'
;:fittttttttfitttttttitttltt

1951
195;

195

PC.

;BRANCH IF MORE IN CURRENT BLOCK

WRITE BANK # INTO ALL ADDRESSES IN A BK BANK
;*TEST 4
RO = DATA WRITTEN INTO MEMORY (SHOULD BE)
i*
(WAS)

1947
1948

1954
1955

JSR

SEQ 0051

003440
004652
_
007226
010302

1
00
1978 007370 004767 003616

TST4:

JSR

RS,

$SCOPE ;GO TO SCOPE ROUTINE.

;* UPWARDS BYTE ADDRESSING.

1%:
2%:

JSR
JSR
ASL
MOvB
S08
JSR

R4,
PC,
R5
RO,
RS,
PC,

INITMM
BANKNO
(R2)+
2%
MMUP

‘

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

:* CHECK THAT DATA WRITTEN ABOVE CAN BE READ
;* UPWARDS BYTE ADDRESSING.

38:
48:

648%:
65%:

JSR
JSR
ASL
MOVB
CMPB
BEQ
JSR
JSR

Ré&,
PC,
R5
(R2)+,
RO
65%
PC,
PC.

INITMM
BANKNO
R1
R1
SPRNT1
$ERROR

;INITIALIZE THE MEMORY ADDRESS POINTERS.
.GET THE BANK NUMBER INTO RO
;MAKE TEST COUNTER BYTE VALUE
;READ THE DATA OUT OF MEMORY
:CHECK DATA....LOW BYTE ONLY VALID
DATA.
:BRANCH OVER ERROR CALL IF GOOD G.
;SET UP VALUES FOR ERRORAPRINTIN
:*** ERROR *** (GO TYPE MESSAGE)

S08
JSR

RS,
PC.

4%
MMUP

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

.WORD

;ERROR TYPE CODE.

| CUMSAA

04~AUG-81 22:59

CVMSAA,P11
1979
1gw

007374

1991

003472
199% 007400 004467
1993 007404 004767 004606
1994 007410
1995 007412
1996 007414
1997 007416
}% ~0C7420

006305
005100
1100462
077502
004767 004132

g 007424 004467 003446
004767 004562
2003 007430

2004 007434
2005 007436

007440
007442
007444
007446
007452
007456
7460
7460
7462

006305
005100

114201
120001
001405
004767 007126
004767 010210
000003

077511

RS,

ASL
COM
MOVB
SOB
JSR

RS
RO
RO,
RS,
PC.

$SCOPE ;GO TO SCOPE ROUTINE.

18:

2s:
‘«

3s:
48:

648:
65%:

JSR
JSR

R4,
PC.

ADDRESS POINTERS.
INITDN :INITIALIZE THE MEMORYINTO
RO
BANKNO -GET THE BANK NUMBER
MAKE TEST COUNTER BYTE #VALUE
*1'S COMPLEMENT OF BANK
MEMORY
-(R2) :PUT 1'S COM OF BANK # INTOBLOCK.
*BRANCH IF MORE IN CURRENT TO 1S.
28
MMDOWN :FIND NEXT BLOCK AND LOOP

CHECK THAT DATA WRITTEN CAN BE READ.

DOWNWARDS BYTE ADDRESSING.

JSR
JSR

R4,
PC.

INITON :INITIALIZE THE MEMORY ADDRESS POINTERS.
BANKNO -GET THE BANK # INTO RO VALUE

MOVB
C(MPB
BEQ
JSR
JSR

=-(R2),
RO,
658
PC.
PC.

Rl
R
SPRNTO
$ERROR

RS,

ASL
COM

.WORD

S0B

JSR

RS
RO
3

PC.

*MAKE TEST COUNTER BYTE
*SET 1'S COMPLEMENT OF BANK #

*READ DATA OUT OF MEMORY
VALID
*CHECK DATA...LOW BYTE ONLY GOOD
DATA.
*BRANCH OVER ERROR CALL IFPRINTING.
:SET UP VALUES FOR ERROR MESSAGE)
:*** ERROR *** (GO TYPE A
*ERROR TYPE CODE.

.IF MORE IN CURRENT BLOCK,
:BRANCH
LOOP TO 3$.

MMDOWN :FIND NEXT BLOCK AND
(4

Y,THE ADDRESSING
.« IF PROGRAM HAS RELOCATED TO UPPER BOUNDAR
“« TESTS WILL BE EXECUTED FOR ALL BANKS AND WORST CASE NOISE TESTING

17
18

JSR

-« DOWNWARDS BYTE ADDRESSING.

004767 004070

2016

R3 = NOT USED
Re = NOT USED
RS = BLOCK BOUNDARY BIT MASK.

":tttttt'ttt*.t.'.""""'fi"..t'.t.fi..i't.'..‘..t."...t.."...
7§15:

19
0
%

WRITE BANK # INTO ALL ADDRESSES IN A 8K BANK

::'t'.t.'..".'.......""'.'t...'.'...'.Q.t'...'..'..t....'..tt.
i
e
e

1990 007374 004567 007754

006
7
2008
009
10
11
2 1;
01
}g

WRITE 1'S COMPLEMENT OF BANK #.
TTEST S
RO = DATA WRITTEN INTO MEMORY (SHOULD BE)
e
R1 = DATA READ FROM MEMORY (WAS)
e
R2 = VIRTUAL ADDRESS
e

1981
weg
198
1984
1985
1986
1987
19“
1989

N &

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

7466 032767 000001

7474
7476

00 1014
01

3700 000020

7502 86 701 172302
5021
75
7510 077002
12 016700 172076
8? 700 177776

88;%%6

0067 172026

“» WILL BE LIMITED TO BANKS 0,1.
FOR WORST CASE NOISE TESTING
“« ALL OTHER BANKS WILL BE EXERCISED0,1.
‘« WHEN THE PROGRAM OCCUPIES BANKS
;1S PROGRAM RELOCATED
#BITO,PRGMAP
171040 SECT2: BIT
INUE TESTING ALL BANKS

BNE
MOV

1$:

2%:

MOV
CLR
SOB
MOV
BIC

MOV

2%
#20,R0

. TSTMAPR1
(R1)+

RO,1$
SAVTST RO
#177776.R0O
RO, TSTMAP

:1F NO,CONT
;CLEAR ALL LOCATIONS OF TEST MAP
sTEST MAP TABLE
;LOOP UNTIL DONE
;GET LOWER 128K MAP
;DO ONLY FIRST BANK

;FOR DATA TESTS

;CONTINUE TESTING

SFO 0052

|
—

LSRRR

ale]

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

04=AUG-81 22:59

23:00

WORST CASE NOISE TESTS

PAGE 41

SEQ 0053

WORST CASE NOISE TESTS

.SBTTL SECTION 2:

CASE NOISE TEST PATTERNS THROUGHOUT
*» THESE TESTS WRITE MEMORY WORST BE
WRITTEN AND READ.

Y AND CHECK THAT THEY CAN
‘e MEMOR
tt.t."tt.-t...'Q'.'Q....".......Q..'.'Q'...'..".l.'....

::.....
::tt..t'...'..........""'.........Q.Q.....'..".."..'..l".!"

WRITE A CONSTANT INTO MEMORY.

TETEST 6

.« THE CONSTANT IS USER SELECTABLE (DEFAULT = 0).
RO = DATA WRITTEN INTO MEMORY (SHOULD BE)

T
e
e

R2 = VIRTUAL ADDRESS
R3 = NOT USED
R4 = NOT USED

‘e

R1 = DATA READ FROM MEMORY (WAS)

RS = BLOCK BOUNDARY BIT MASK.

;:tt..l't.tQt.tfitt't.t""!'t..t..'t'...ti.t'ttt"fi"t..'tt.'tt"

007526 004567 007622

007532 016700 172226

007536 004467 003236
007542 010022
007544 07750
003440
007546 004767

T§16:

JSR

RS,

E.
$SCOPE ;GO TO SCOPE ROUTIN
NT

JSR

PC.

MMUP

TST6A: MOV

18:

JSR
MOV
SOB

007556
88;552%
007
007570
007572

016700 172202
004467 003212
012201
020001
001405

007574 004767 007024
007600 004767 010062
;& 000004

007606 077511

.CONST, RO

R4,
RO,
RS.

*GET USER CONSTA

IZE THE MEMORY ADDRESS POINTERS.
INITMM > INITIALCONSTAN
T INTO MEMORY.
(R2)+ -WRITE
IN CURRENT BLOCK
MORE
IF
H
*BRANC
1$
BLOCK AND LOOP TO 1S.
:FIND NEXT

;:.tt'ttt.t.t.tt.fit.'.'.tttit.'Qt't'fi'fi.ttfi*ti't"t'tt.tt.".t."

TRTEST 7

007552
007552 004567 007576

::'...Q.......-..'....'.'.'.'.tt..".....'.'..Q'l...'...Q.'I.'.Q'

007526

Segese

SECTION 2:

04-AUG-81

“« IMPORTANT:
1517:
JSR

READ MEMORY AND COMPARE TO CONSTANT.

THIS TEST SHOULD NOT BE RUN WITHOUT FIRST RUNNING TEST STN.

::.t.tt'..t.ttt"t..."i"tttt.'tfi.fi.t"tfii'.fi.t.'t'tttt.t*t""'

648:
.y

;GO TO SCOPE ROUTINE.

RS,

$SCOPE

PC,
PC.

SPRNT2 -SET UP VALUES FOR ERROR PRINTING.)
$ERROR :*%% ERROR #%+ (GO TYPE A MESSAGE

RS,

MOV
JSR
MOV
CMP
BEQ

.CONST, RO
INITMM
R4,
(R2)+, R1
R1
RO
65%

*GET USER CONSTANT
:INITIALIZE THE MEMORY ADDRESS POINTERS.
UNDER TEST.
:GET THE DATA FROM MEMORY
DATA READ.
*COMPARE THE CHECK WORD WITH THE DATA.
*BRANCH OVER ERROR CALL IF GOOD

LWORD

*ERROR TYPE CODE.

JSR
JSR

S0B

:BRANCH IF MORE IN CURRENT BLOCK

-FIND NEXT BLOCK AND LOOP TO 18.
MMUP
PC,
JSR
007610 004767 003376
6 IS SELECTED THRU THE SWR.
TEST
.« SPECIAL CHECK TO SEE IF
BACK AND FORTH BETWEEN TESTS 6 AND 7
H
SWITC
“« ALLOWS THE OPERATOR TO
SWO1, SW02, AND SWOB ARE SET.
‘« BY SIMPLY '‘TOGGLING'® SWOO WHEN
THAT LOOP ON TEST BIT SET
;CHECK
@SWR
#SWO8,
BIT
007614 032777 000400 171306
IF NOT LOOP ON TEST
H
*BRANC
TST10
BEQ

007622
007624
007630
007634
007640
007642
007650
007656

001416
017746
042716
022726
001007
162767
162767
000725

171300
177740
000006
000001 171222
000024 171220

MOV
BIC
CMP
BNE
SUB
SUB
BR

~-(SP) -GET SWITCH REGISTER RDATA.
aSWR,
:CLEAR NON-TEST-NUMBE SWITCHS.
,(SP)
#177740
:-CHECK IF TEST 6 IN SWITCHES.
(SP)+
6,
*BRANCH IF NOT TEST 6
15710
TEST NUM
:RESET
$TSTNM
”,
#TST7-TST6,SLPADR ;RESET LOOP ADR
;GO TO TEST 6
TST6A

.'t

::'t..*.t'ttttttfitt".t."i"fi.t't'ttfi."itt"ti.fi‘.'ttt.tt"t

T*TEST 10

WORSE CASE NOISE (PARITY) WORD TESTING

€

PAGE 42
VER MACY11 30(1046) 04-AUG-81 23:00
(VMSAA (=2 MEGAWORD MEMORY EXERCISER, 16K
WORSE CASE NOISE (PARITY) WORD TESTING
110
04~AUG-81 22:59
CVMSAA P11
OF PATTERNS
A SERIES
.« CHECK MEMORY WITH'.'.l..
2091
.'t......'......'t.'t."'...l
mg

2093

007660

2180
2101
218§
21
2106
2105

7670 004767
7674 012400
007676 001417
004467
7704 010%2
007706 012201
7710 020001
1405
771
007714 004767
004767
007720

2107

007726

.':t"ttt.'t....tttltt..."t't

004567 007470
209 007660
016704 172136
76 6

2106 007724 000004

1§110:

005766

18:

003074

2s:

006704
007742

648:

2108 007726 077512 003256
004767
2109 007730
2110 0C7734 000755

65%:

JSR

MOV
JSR
MOV
BEQ
JSR

MOV
MOV
CMP
BEQ
JSR
JSR

.WORD

S08
BR
JSR

RS,

TO SCOPE ROUTINE.
$SCOPE ;GO
*INITIALIZE PATTERN TABLE POINTER

.MPPAT, R&
CKPMER
PC,
(R4)+, RO
1ST11
INITMM
R4,

-CHECK FOR NON=-TRAP PARITY MEMORY ERRORS.
GET TIE DATA PATTERN.
1:BR IF END OF TABLE.
ADDRESS POINTERS.
:INITIALIZE THE MEMORY
.
MEMORY
INTO
N
:PUT DATA PATTER
(R2)
RO
TEST.
UNDER
MEMORY
FROM
*GET THE DATA
(R)+, RI
DATA READ.
THE
WITH
WORD
CHECK
*COMPARE THE
R1
RO
DATA.
GOOD
IF
CALL
ERROR
OVER
BRANCH
658
PRINTING.
SPRNT2 -SET UP VALUES FOR ERROR
PC.
MESSAGE)
A
TYPE
(GO
***
ERROR
%%
$ERROR
PC.
CODE.
&

RS.
PC.
1$

MMUP

*ERROR TYPE

;

;BRANCH IF MORE IN CURRENT TOBLOCK
2§.
:FIND NEXT BLOCK AND LOOP
BR BACK TO DO NEXT PATTERN

SEQ 0054

;

CUMSAA

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

CVMSAA P11

04~AUG-81 22:59

211
211

2114

15k

007736

SATEST 1M

ROTATE A "0'* BIT THROUGH A FIELD OF ONES.

T§111:

JSR
MOV
JSR

RS,
#-i,
PC,

$SCOPE ;GO TO SCOPE ROUTINE.
*SET CHECK WORD
RO
.
SETCON :PUT TIIE CONTENTS OF RO IN ALL MEMORY
.
POINTERS
ADDRESS

JSR

PC.

ROTATE

JSR
JSR

PC,
PC.

SPRNT2 :SET UP VALUES FOR ERROR
$ERROR . *** ERROR *** (GO TYPE A MESSAGE)

S08
JSR

RS,
PC.

1$
MMUP

JSR
CLR

RS,
RO

$SCOPE

SEC
JSR
MOV
BCC

*SET *C* BIT IN PSW
:GO ROTATE '1' BIT
ROTATE
P,
RESULT
:GET
R1
-2(R2),
IF 'C' IS CLEAR
:BRANCH
638

5118 007752 004467
000241
007756
119

18:

2125 007776 004767 006622
2156 010002 004767 007660

638:

2120 007760 004767 004336

007764
007770
007772
007774

016201 177776
103402
020001
001405

2127 010006 000005

2128

010010

21%3 010010 077516
5131 010012 004767 003174
213%

213

213‘

2135

010016

5136 010016 004567 007332
137 010022 005000

2138 010024 004767 004254
2139 010030 004467 002744
2140
2141
5142
143

010034
010036
010042
010046

000261
004767 004260
016201 177776
103002

2144 010050 020001

2145 010052 001405
2146 010054 004767 006544
2147 010060 004767 007602
2148 010064 000005
2149

010066

.'.'i".'.'......'....'..........'..'...Qt.

"...'..'.'t'..'...'..
33

::....".'..'.'ttfi....'."".t..'.'.t...."..‘.t..'..'....Q.."Q.

%115 007736 004567 007412
116 007742 012700 177777
2117 007746 004767 004332
003022

2121
212
2123
2124

ROTATE A "0°°

2150 010066 077516

S}g; 010070 004767 003116

648%:

JSR
cLC

MOV
BCS
CMP
BEQ

.WORD

R&.

INITMM :INITIALIZE THE MEMORY
*CLEAR CARRY BIT IN PSW

-2(R2), R1
638
R1
RO,
64$

;GET RESULT
*BRANCH IF 'C' BIT WAS SET
WITH THE DATA READ.
*COMPARE THE CHECK WORD
IF GOOD DATA.
CALL
ERROR
OVER
H
*BRANC
PRINTING.

;ERROR TYPE CODE.

:BRANCH IF MORE IN CURRENT TOBLOCK
1S.
-FIND NEXT BLOCK AND LOOP

:;t"tt.tt.ttitfit!tti'tt"t.t'tit.i.tit'.".i'tt"t'l'.."'fi"tt'
ROTATE A ''1'* BIT THROUGH A FIELD OF ZEROS
S*TEST 12
::ttt'tttttt.'ttttt"il"t't.fit..'fi'ifitt...t'i.t'.t'tfittl"ttt.tt

Ts112:

18:

638:
64%:

JSR
JSR

cMP

BEQ
JSR
JSR

.WORD

S08
JSR

PC,
R4,

RO,

648
PC,
PC.
5

RS,

PC.

;GO TO SCOPE ROUTINE.
:SET CHECK WORD

SETCON -PUT THE CONTENTS OF RO IN ALLS MEMORY
INITMM - INITIALIZE THE MEMORY ADDRES POINTERS.

DATA READ.
*COMPARE THE CHECK WORD WITH THE DATA.

*BRANCH OVER ERROR CALL IF GOOD G.
SPRNT2 :SET UP VALUES FOR ERROR PRINTIN
$ERROR :#*%* ERROR *** (GO TYPE A MESSAGE)

MMUP

:ERROR TYPE CODE.

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

SEQ 0055

|
|

(VWMSAA

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

CVMSAA P11

04~-AUG-81 22:59

113

WORSE CASE NOISE PARITY BYTE TESTING

2153

‘-;'ttttt.t.tt'ttttttt't'ttt'tlfittl.t.tt.tit.tttt't..ttt"t.ttnttt

%157
158
2159
2160

;®
&
o
:®

WORSE CASE NOISE PARITY BYTE TESTING
;*TEST 13
MEMORY WITH A SERIES OF BYTE PATTERNSMEMORY
PARITY
*» (CHECK
1) FORCE WRONG PARITY IN EACH BYTE OF PARITY
o
SET, MAKING SURE THAT A TRAP OCCURS

2156
2155
2156
2161

216§

2163

2164
2165
2166
2167
2168
2169
2170
2171
%]';i

010074

010074
010100
010104
010106
010114
010116
010122
0101%3
0101

i
TST13:

2) READ IT BACK WITH ACTION ENABLE
NO TRAP OCCURS WHEN IT IS READT
3) WRITE GOOD PARITY AND MAKE SURE
BITS <11-5>) ARE CORREC
ADDRESS BITS (CSRBIT14
4) MAKE SURE THE ERRORABOVE
AND BITS <11-5>
CHECK
128KW,
S) IF MMU ENABLED AND
ON PARITY CSR.

:;tt'tttttttttttttwttttttttttttnttttttttt.t'tttt!tt'.tttttttttttt

004567
005767
001404
032777
001402
000167
005000
004767
004467

JSR
007254
TST
WWwPB0:
173264
BEQ
BIT
000100 171074
BEQ
JMP
1$:
000742
CLR
2%:
JSR
004154
JSR
002644

2174
2175 010134 006305
2176 010136 012700 000020
2177 010142 016701 171646

2178
2179
2180
2181
218%
218
2184

010146
010152
010154
010156
010160
010162

016703 171640
032123
001004
077003
060502
000167 000666

2188
2189
2190
%191
19%

010202
010204
010210
010214

001004
062702 000004
162705 000004
111201

2185 010166 004767 005434
2186 010172 004767 005464
2187 010176 020227 000114

2193 010216 001405
2196 010220 004767 006312
2195 010224 004767 007436

000011
2199 0105
010
2197
2198 010232 105067 171522

ASL

WWPBYT: MOV
MoV
MoV
BIT
1%:
BNE
So8

ADD

JMP

JSR
2%:
JSR
WwwPB1: CMP
3%:

64%:
65%:

BNE
ADD
sus
MovB

BEQ
JSR
JSR

.WORD
CLRB

$SCOPE ;GO _TO SCOPE ROUTINE.
RS,
.
;CHECK FOR ANY PARITY MEMORY
MPRX
.
MEMORY
PARITY
NO
;BR_IF
1%
;CHECK FORINHIBIT PARITY SWITCH.
#SW06, QSWR
;BR IF NOT SET.
2%
:SKIP THIS TEST IF NO PARITY .MEMORY PRESENT.
TST14
;ZERO TO BE PUT IN ALL MEMORY
RO
;ROUTINE TO LOAD ALL MEMORY.
SETCON
PC,
;INITIALIZE THE MEMORY ADDRESS POINTERS.
INITMM
Ré,
RS
RO
#20,
.BITPT, R]
.PMEMAP ,R3
(R1)+,(R3)+
2%
1$
RO,
R2
RS,
WWPB6
SETAE
PC,
CKPMER
PC,
#114
R2.
3%
R2
#G,
RS
#a,
(R2), RI
65%
SPRNT
PC,
$ERROR
PC,
11
OEFLG

;RETURN FOR MMUP
;MAKE TEST COUNTER BYTE VALUE
s TABLE COUNT
;BANK POINTER TABLE

;PARITY TABLE
;BRANCH IF PARITY MEMORY
;CHECK TILL END OF TABLE
;IF _NONE FOUND POINT R2 TO
;FIRST ADDR OF NEXT BANK.
;FIND NEXT BLOCK

;CHECK IF CURRENT BANK HAS PARITY MEMORY

:;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.

DATA.
;BRANCH OVER ERROR CALL IF GOODNG.
;SET UP VALUES FOR ERROR PRINTI
;*** ERROR *** (GO TYPE A MESSAGE)
;ERROR TYPE CODE.
:CLEAR ODD/EVEN FLAG.

:SET UP DATA...EVEN, SETS PARITY BIT.
#252, RO
MOvB
112700 000252
;MOV DATA INTO TEST LOCATION.
(R2)
RO,
wWwPB2: MOVB
110012
:GET PARITY REGISTER TABLE POINTER.
R3
.MPRX,
MoV
016703 171552
;SET WRITE WRONG PARITY.
WWP,d(R3)
BIS
056773 171512 000000 10%:
+
,a(R3)
#AE
BIS
1
052733
;CHECK FOR TABLE TERMINATOR.
(R3)
TST
005713
:BR IF MORE REGS IN TABLE.
108
BNE
001371
UNDER TEST.
N
LOCATIO
IN
;* SET WRONG PARITY
2206
SAME DATA (EXCEPT PARITY) VIA DATOB.
:WRITE
(R2)
RO,
MovB
2207 010266 110012 171526
;GET PARITY REG TABLE POINTER.
.MPRX, R3
MOV
2208 010270 016703

2199
2200
2201
220§
2203
2204
2205

010236
010242
010244
010250
010256
010262
010264

SEQ 0056

-2 MEGAWORD MEMORY EXERCISER,
04~AUG-81 22:59

n NINUNINLNLNINLNONONINUNINY
nA A L Y
Y N
N Y LV V]
o, .glh oo gl
e o
s
e<
N

046732
005713
001374
005767

016737

016737
004767
004767
000012
004767
000167

171502

REINIZRSILRIEN
o

—

F22RRRRRRRRRRRR

118:

04-AUG-81

MACY11 30(1046)

23:00

PAGE 45

WORSE CASE NOISE PARITY BYTE TESTING
BIC
TST
BNE

WP,
(R3)
11%

BEQ

12%

TST

a(R3)+

;CLEAR WRITE WRONG PARITY.
;CHECK FOR TABLE TERMINATOR.

;BR IF MORE PARITY REGISTERS.

;CHECK IF RUNNING ON EARLIER LSI=11/2
;BR IF 11/23 OR LATER PROCESSOR
*PARITY TRAP LOGIC NOT AVAILABLE ON LSI11/2
sSET PARITY ERROR WITH READ AND BYPASS

LSIFLG

1ST8
BR

(R2)
PBTRP1

JSR

PC,CLRPAR

;PARITY TRAP AND TEST PARITY (SR.

.PBTRP, @#PARVEC ;SET UP VECTOR FOR EXPECTED TRAP.
MOV
12%
T EXECUTE.
:* DETE CT WRONG PARITY VIA DATIO; DATOB SHOULDN'
COM PARITY BIT.)
AND
(DATOB
:DATIO
(R2)
NEGB
SHOULD HAVE TRAPPED TO PBTRP.
.PESRV, @#PARVEC ;RESET VECTOR FOR UNEXPECTED TRAPS.
MOV
SPRNTO ;SET UP VALUES FOR ERROR PRINTING.
PC,
JSR
64%:
SERROR ;*** ERROR *** (GO TYPE A MESSAGE)
.
JSR
;ERRCR TYPE CODE.
12
.WORD
.

171476

006240
007322
006142
000442

171446

171426

000001

000000
000044
171404

006154
007236

005330

—

d =D

RRRRRRRR]R]R
&H
o FRERIZRERS

[elelelelalelelolelelele)

022626
016703

gggsesetseseees

NONININONY!

016737

713

171466

105412

nINONY

AR
AN

- VRNV

001402
105712
000424

171466

16K VER

JMP

MOV
cMP
PBTRP1: MOV
BIT
c1%:
BNE
MOV
8MI
ADD
22%:
CMP
BLO
JSR
64%:
JSR
.WORD
BR
JSR
23%:
BR

24%:

.PESRV,
(SP)+,

.MPRO,

#8170,
22%
a(R3),

23%
#44,

@¥PARVEC ;RESET PARITY VECTOR FOR UNEXPECTED TRAPS.
;RESET THE STACK POINTER AFTER TRAP.
(SP)+
“GET PARITY REG AND MAP TABLE POINTER.
R3
“CHECK IF THIS REGISTER EXISTS.
(R3)
:BR IF IT DOESN'T EXIST.
RI

R3,
218

SPRNTO
$ERROR

RS,
248

PARMAT

13
WWPB4

PC,
PC.

MOV
MOV

RO, ~(SP)

SWAB
ASL
ASL

TST
BEQ
BIC
ADD

BIT

R3
.MPRX

PC.
PC.

JSR
JSR
. WORD

BIC

177600
172344
020000

;SKIP TRAP SERVICE.

;* EXPECTED PARITY ME MORY TRAPS COME HERE.

PBTRP:

65%:

170040

WWPB4

;CLEAR ALL PARITY (SRS BEFORE NEXT BYTE

R2
#3777,
RO

“GET THE CONTENTS.

*BR IF ERROR FLAG SET.
‘MOVE POINTER TO NEXT REG.
:CHECK FOR END OF TABLE.
*BR IF MORE REGISTERS.

:SET UP VALUES FOR ERROR PRINTING.
:»*% ERROR #*** (GO TYPE A MESSAGE)
*ERROR TYPE CODE.
*EXIT AFTER ERROR.

:CHECK FOR MAP OF THIS REGISTER
"BRANCH IF THIS PARITY REGISTER
*CONTROLS THIS BANK.

SPRNTP
$ERROR

RO
RO

*RETURN +2,ERROR ,CANNOT FIND MEM BANK
“IN PARITY MAP TABLE.
-SET UP VALUES FOR ERROR PRINTING.
-**% ERROR *** (GO TYPE A MESSAGE)
“ERROR TYPE CODE.

::PUSH RO ON STACK

“GET THE ADDRESS POINTER.
*CLEAR LOW ADDRESS BITS.
*SHIFT 6 PLACES RIGHT.

MMAVA
25%

:CHECK FOR MEM MGMT.
*BR IF NO MEM MGMT.

a#K IPARZ RO

“ADD MEM MGMT OFFSET.

#177600,R0

#BIT13, R2

“CLEAR BANK BITS

“CHECK FOR PAR3 REF. ADDRESSING

SEQ 0057

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

P11

04-AUG~81 22:59

010562
010566
010570
010576
010600
010602
010610
010614
010620
010622
010624
0106
010634
010640
010642
010644
010650

005767
100034
022737
101030
010046
052773
013700
042700
000300
006300
052700
017301
042701
020001
001405
004767
004767

167750
010000 172344

R0
—

)
e

010656
010660
010664
010666
010672
010676
010700
010704
010706
010712
010714
010720

012600
005073
010346
062703
020367
101014
032713
001370
017301
100365
004767
004767

el e e

010724 000016
010726 000757
010730 111204

010732 111212

b
o e

. -WORD

;BR IF R2 IS ADDRESSING PAR2
25%
BEQ
;SET UP EXPECTED WITH PAR3
#200,RO
ADD
000200
AND AE BIT IN CHECK WORD.
#BITi5+BITO,RO ;SET ERROR IATE
BIS
25%:
100001
MASK.
42(R3), RESRVD ;GET APPROP
MOV
000042 170752
BITS RESERVED FOR FUTURE.
REG
;CLEAR PARITY
RESRVD, RO
BIC
170746
BITS RESERVED FOR FUTURE.
REG
PARITY
;CLEAR
RESRVD, R1
BIC
170742
FOR UNMIXED MEMORY TYPES.
NOP'ED
BE
<NOTE: THE ABOVE INSTRUCTION (2 WORDS) RECANTHE CHECK WORD
WITH THE DATA READ.
;COMPA
R1
RO,
CMP
IF GOOD DATA.
CALL
ERROR
OVER
H
;BRANC
67%
BEQ
PRINTING.
ERROR
FOR
VALUES
UP
;SET
SPRNTP
PC.
JSR
66%:
006020
MESSAGE)
A
TYPE
(GO
*»+
ERROR
;***
SERROR
PC,
JSR
007106
CODE.
TYPE
;ERROR
15

010656

SOV NO NS WN—=O

678

001402
062700
052700
016367
046700
046701
020001
001405
004767
004767

010654 000015

%NNNNWNNNNWNNNM
WWWWU‘WVJWWW§§ SEoR8388

WORSE CASE NOISE PARITY BYTE TESTING

010514
010516
010522
0105%2
0105
010540
010544
010546
010550
010554

8}822(2) 000015

nonOND

113

010734 012603

040000 000000
172344
007777

140001
000000
030032

005724
007012

68%:
69%:

000000
000044
171124
000001
000000
005654
006742

010736 017301 000000
010742 046701 170540

1008:
268%:

70%:

TST
BPL
CMP
BHI
MOV
BIS
MOV
BIC
SWAB
ASL
BIS
%
BIC
cMP
BEQ
JSR
JSR

:CHECK FOR 22 BIT ADDRESSING
MMAVA
IF 22 BIT ADDR NOT ENABLED
;BR
100%
#10000,a#K IPAR2 ;CHECK IF ABOVE 128KW 128KW
;BR IF KIPAR2 LESS THAN
100%
;;PUSH RO ON STACK
RO,=(SP)
;SET BIT14 TO ENABLE BITS 18-21
#B1T14,3(R3)
;INTO BITS 8-5 OF PARITY CSR
;SETUP EXPECTED FOR PARITY CSR
a#K1PAR2,RO
;BITS 18-21 STORED IN
#7777 ,RO
;BITS 5-8.
RO
;A18-21 IN BITS 5-8
RO
SAVE EXPECTED PARITY (SR
,RO;'AE
#BIT15!BIT14
;GET CONTENTS OF PARITY (SR
a(R3) ,R1
:CLEAR MASKED BITS
#30032.R1
:COMPARE THE CHECK WORD WITH THE DATA READ.
R1
RO,
;BRANCH OVER ERROR CALL IF GOOD DATA.
69%
G.
SPRNTP ;SET UP VALUES FOR ERRORAPRINTIN
PC.
E)
MESSAG
TYPE
SERROR ;*** ERROR ##** (GO
PC,

MOV
CLR
MOV
ADD
cMP
BHI
BIT
BNE
MOV
BPL
JSR
JSR

(SP)+,R0
a(R3)
R3,-(SP)
R3
#ab,
.MPRX
R3,
wwPB3
#BIT0, (R3)
26%
a(R3), Rl
26%
SPRNTP
PC,
$ERROR
PC,

;:POP STACK INTO RO
;CLEAR REG INCLUDING ACTION ENABLE.
;;PUSH R3 ON_STACK
;UPDATE POINTER TO NEXT PARITY REG + MAP.
;CHECK FOR END OF TABLE.
;BR IF END OF TABLE REACHED.
;CHECK IF NEXT REG EXISTS.
:BR IF THIS PARITY REG DOESN'T EXIST.
;SAVE AND CHECK FOR ERROR FLAG.
:BR IF NO ERROR FLAG.
G.
;SET UP VALUES FOR ERROR PRINTIN
E)
MESSAG
A
TYPE
(GO
;**» ERROR #***

(SP)+.,R3

;:POP STACK INTO R3

.WORD

;ERROR TYPE CODE.

;ERROR TYPE CODE.
.WORD 16
;BR _AFTER ERROR.
26$%
BR
;GET THE DATA FOR CHECKING.
(R2), R4
WwWwPB3: MOVB
CAUSE PARITY ERROR, BUT
-+ READING THE DATA VIA DATI TO CHECK IT SHOULD
LLING REG, SO NO TRAP SHOULD OCCUR.
IS NOT SET IN CONTRO
“« ACTION ENABLE(R2),
;RESTORE RIGHT PARITY
(R2)
MOVB
:NOTE: THE ABOVE INSTRUCTION CAN BE NOP'ED FOR PROCESSORSCTIONS.
WHICH DO ONLY DATOB TO DESTINATION OF MOVB_ INSTRU
H

MOV

MOV
BIC

a(R3), Ri
RESRVD, R1

CHECK IT AGAIN.
:READ THE PARITY REGISTER TO ED
FOR FUTURE.
RESERV
BITS
*CLEAR PARITY REG

SEQ 0058

47
30(1046) 04-AUG-81 23:00 PAGE
(VMSAA 0=2 MEGAWORD MEMORY EXERCISER, }% VER MACY11
G
TESTIN
BYTE
PARITY
NOISE
CASE
WORSE
04-AUG-81 22:59
(CVMSAA.P1T
:NOTE: THE ABOVE INSTRUCTION (2 WORDS) CAN BE NOP'ED FOR UNMIXED MEMORY TYPES.
2321

232;
2323
zga
2325
2%26

010746
010752
010754
010756
010762

042700 000001
020001
001405
004767 005612
004767 006700

648:

2327 010766 000015
658:
2328 010770
GO0000
000001
010770 012773
2%

2
2331
233%
2333
2334
2335

010776
011000
011002
011004
011006
011012

010401
012600
120001
001405
004767 005566
004767 006650

233 011016 000017
2337 011020
2338 011020 110012

2339
2340
23,1
2342
2343
234
2345
2346
237
2348
2349

011022
011026
011030
011034
011036
011042
011044
011046
011050
011054
011060

105712
012700
105167
100002
000167
005202
005305
001402
000167
004767
004767

000253
170724
177200

177122
002132
004476

668:

RO
R1
SPRNTP
$ERROR

BIC
MP
BEQ
JSR
JSR

#AE,
RO,
£5%
PC.
PC,

MOV
MOV
(MPB
BEQ
JSR
JSR

@(R3)
R1
R&,
(SP)+,RO
R1
RO,
67%
SPRNTO
PC.
$ERROR
PC.

.WORD
MOV

.WORD
67%:
WWPB4: MOVB

1STB
MOV
COMB
BPL
JMP
INC
27%:
WWPBS: DEC
BEQ
JMP
WWPB6: JSR
JSR

15
#,

17
RO,

(R2)
#253,
OEFLG
27%
WWPB2
R2
RS
WWPB6
WWPB1
PC.
PC.

(R2)

MMUP
MAMF

BIT IN TEST DATA.
:CLEAR THE ACTION ENABLE
THE DATA READ.
WITH
WORD
CHECK
*COMPARE THE
DATA.
GOOD
IF
CALL
ERROR
*BRANCH OVER
NG.
PRINTI
ERROR
FOR
VALUES
UP
:SET
;*** ERROR **= (GO TYPE A MESSAGE)
:ERROR TYPE CODE.
:CLEAR ALL BUT ACTION ENABLE.

:GET DATA READ FROM MEMORY FOR TESTING.
::POP STACK INTO RO
:CHECK THE DATA.
GOOD DATA.
*BRANCH OVER ERROR CALL IFPRINTI
NG.
:SET UP VALUES FOR ERROR
:*** ERROR *** (GO TYPE A MESSAGE)
:ERROR TYPE CODE.
;RESTORE DATA.

:DO A DATI TO BE SURE RIGHT PARITY.
:SET ODD PARITY DATA.
: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.
: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.

SEC 0059

(VMSAA

| CVMSAA. P11

04~-AUG-81 22:59

2350

2351

235%
2353

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

011064

006264

2%54
2355
2356
2357
2358
2359
2360
231
236§
2363
2364
2365
2366
2367
2368
2%9
2370
2371
2372
2373
2374

011064
011070
011072
011076
011102
011104
011106
011112
011114
011120
011122
011126
011130
011132
011134
011140
011142
011144
011146
011150
011154

004567
010703
042703
004467
010246
010346
010567
012322
032703
001002
162703
077507
012603
012602
016705
012300
012201
020001
001405
004767
004767

2376

011162

032703 007777
001002
162703 010000
077517
004767 002010

2375 011160 000020

2377 011162
2378 011166
52873 8]'”;(‘)
2381 011174
5333% 011176

007777
001676
170660

007777
010000
170632

005450
006506

RANDOM DATA TESTING THRU PROGRAM CODE RELOCATION.

;;-.-t-..--att.-t-ttn--t't'ntttottt..'-.-..c..t.t-'t.-.-.-.--ooon
RANDOM DATA TESTING THRU PROGRAM CODE RELOCATION.
14
SRTEST
’-'-tttt.tttttttfittttttt.t"t..ttt.t't.t'l.tt.t't.-lttt'l.tt't."tt

TST14:

JSR
MOV
RANTST:
BIC
JSR
MOV
1%:
MOV
MOV
MOV
2s:
BIT
BNE
SuB
SoB
3%:
MOV
MOV
MOV
MOV
4%:
MOV
CMP
BEQ
JSR
64%:
JSR

$SCOPE ;GO TO SCOPE ROUTINE.
RS,
.
:GET CURRENT PROGRAM COUNTER
R3
PC
T 2K BLOCK.
CURREN
OF
ING
*POINT TO BEGINN
#7777, R3
S POINTERS.
ADDRES
INITMM - INITIALIZE THE MEMORY
R4,
R.
POINTE
-(SP) :SAVE MEMORY
R2.
-(SP) :SAVE 'DATA'' POINTER.R
R3.
TEMP1 ;SAVE ADDRESS COUNTE
RS
TEST MEMORY.
(R$)+, (R2)+ :MOV CODE INTO
'DATA TABLE"'
OF
END
FOR
:CHECK
#7777, R3
'
MORE
IF
H
;BRANC
38
M DATA'’
‘RANDO
OF
START
TO
R
POINTE
*RESET
#10000, R3
2%
TO
BRANCH
BLOCK,
OF
END
NOT
:IF
2%
RS,
:RESET 'DATA'' POINTER.
(SP)+, R3
;RESET MEMORY POINTER.
(SP)+, R2
ADDRESS COUNTER
RESET
RS
TEMP1,
DATA.
S/B
;GET
RO
(R3)+,
DATA FROM MEMORY UNDER TEST. READ.
THE
:GET
(R)+, R1
DATA
THE CHECK WORD WITH THE DATA.
RE
:COMPA
R1
RO,
GOOD
IF
CALL
ERROR
OVER
H
:BRANC
65%
ERROR PRINTING.
SPRNT2 :SET UP VALUES FOR
PC,
TYPE A MESSAGE)
(GO
***
ERROR
:+%%
SERROR
A
i

65%:

#7777, R3
5%
#10000, R3
49
RS,
MMUP
PC,

.WORD

BIT
BNE
SuB
S08
JSR

:ERROR 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:
EXECUTE DATI, DATO THRU MEMORY.
;*TEST 15
OUT MEMORY.
%« EXECUTES THE INSTRUCTION 'MOV R4,(R2)' THROUGH
"MOV' INSTRUCTION TO RETURN

2384
2385
2386
2387

'-;ttttttittlttttttttttttttQttttttttttttttttttlttttttttt'tttt.tttt

259§

2388
2389
S%g?

.
g&
2395

%ggg

2398
gzg

AFTER THE
x AN "RTS R5' (CODE 205) IS PLACED
CTION EXECUTION CHECKOUT.:
INSTRU
FOR
M
PROGRA
MAIN
THE
:+x (CONTROL TO
ix THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY
. %

o
. %

MEMORY

LOCATION

1ST PASS / 40000

:* 2ND PASS / 40002
:* THRU TEST / 40004
. %

ETC., ETC., ETC.

2401

2403

s* R1 = DATA READ FROM MEMORY

2+02

24604

2405

ON
CONTENTS OF MEMORY LOCATIION

PLACED THERE AFTER INSTRUCTION EXECUT

:* THRU TEST /7 40002
. %

INSTRUCTION
010412

000205

010412
000205

000205
000205

000205
00205

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

R2 = ADDRESS OF IUT/DATA.

SEQ 0060

30(1046) 04-AUG-81 23:00 PAGE 49
| CVMSAA 0-2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11
EXECUTE DATI, DATO THRU MEMORY.
115
| CVMSAA. P11 04~AUG~81 22:59
.» R3 = INSTRUCTION UNDER TEST (IUT).
| 2406
‘« R4 = RTS RS (CODE 205).
5407
MASK. ..".Q..."...."..".'.'.'.....
RY BIT ..'..'
‘« RS = BLOCK BOUNDA...".'
2408
‘m
410

8"582

006146
5411 011202 004567
012703
011206 012704 010412
5412
000205
011212
241%
010400
011216
2414
001554
26415 011220 004467
2416 011224 005305

417 811 6 010325
418 011230 01041

2419 011232 004542

2420 01123 012201
1
2421 011236 0O
2% g 011240 001405 005352
011262 004767
2423

2424 811546 004767 006414

2455 11252 000021
2426 011254

2627 011254 010322
2428 011256 077514
004767 001726
2429 011260

: :.".'..-"..'...'..
75115

DIDO:
18:

JSR
MOV
MOV
MOV
JSR
DEC

2%:

MOV
MOV

648:

JSR
JSR

:
65%:

JSR

MOV
cMP
BEQ
LWORD

MOV
SOB
JSR

ROUTINE.INSTRUCTION (IUT).
TO SCOPE
$SCOPE ;GO
RS,
)'
Ré,(R2
:GET 'MOV
2,R3
#01041
*GET °RTS RS
#205. Ré4
AFTER EXECUTION.
SET UP S/B DATA
RO
R&.,
INITMM -INITIALIZE THE MEMORY ADDRESS POINTERS.
R4,
RS

R3,
Rb.

(R2)+
(R2)

‘DO ALL ADDRESSES =1

OF BLOCK.
-PUT IUT INTO FIRST LOC
IUT.
NG
FOLLOWI
-PUT 'RTS R5' IUT.
:-GO EXECUTE THE

-(R2)

PC.
PC.

SPRNT3 -SET UP
$ERROR :**» ERROR *** (GO TYPE A MESSAGE)

R3,
RS,

(R2)+
2%

R1
(R2)+, R1
RO,
65%
21

PC.

MMUP

ADR UNDER TEST.
FROM THE MEM
“GET THE DATA
THE DATA READ.
WITH
WORD
CHECK
:COMPARE THE
DATA.
GOOD
IF
CALL
ERROR
BRANCH OVER FOR ERROR PRINTING.
VALUES
*ERROR TYPE CODE.

ON.
INTO THE NEXTT LOCATI
:PUT THE IUTMORE
BLOCK.
CURREN
IN
IF
H
"BRANC
AND LOOP TO 18.
-FIND NEXT BLOCK

SEQ 0061

(VMSAA

K S

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

CVMSAA.P11

04=-AUG-81 22:59

SEQ 0062

EXECUTE DATI, DATOB (LOW BYTE) THRU MEMORY.

Z‘m

::ttttttt't'.'.t'..".'t.."'tt!l.....'.......t!'.t...tt't."l.lt

2634
54‘.32

M FOR INSTRUCTION EXECUT
s« (CONTROL TO THE MAINOFPROGRA
WHAT THIS TEST DOES IN RELATION TO MEMORY:
= THIS IS AN EXAMPLE

.
EXECUTE DATI, DATOB (LOW BYTE) THRU MEMORY
;+«TEST 16
.
MEMORY
HOUT
THROUG
CTION *MOVB R4, (R2)'
i EXECUTES THE INSTRU205)
TION TO RETURN
INSTRUC
'"MOVB'
THE
AFTER
PLACED
IS
i« AN 'RTS RS' (CODE
ION CHECKOUT.

2631
243
243

PLACED THERE
110412

LOCATION
1ST PASS / 40000

i
i«

5223
2440

INSTRUCTION

MEMORY

2437

000205
110412

‘= THRU TEST / 40002
‘x 2ND PASS / 40002
40004

5225
2443

000205

s+ THRU TEST /

%22‘5'

000205
116605
A

000205

ETC., ETC.. ETC.

5229

CONTENTS OF MEMORY LOCATION

AFTER INSTRUCTION EXECUTION
110605

2448

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

2454
455

:;ttt.tttfitttttttttttttt't'ttttttttt'tttttttttttttttttttttttttttt
:
1ST16:

:*=
:*
>+
:*
:*

2449
2450
2451
245
245

011264

456 011264 004567 006064

2457 011270 012703 110412

012704 000205
2458 011274 012700
110605
459 011300
460
2461
2462
2463
2464
%665
466
2467
2468
2469
2470
2471
247
247
2474

011304
011310
011312
011314
011316
011350
011322
011324
011326
011332

004467 001470
005305
010322
010412
004542
012201
020001
001405
882767 005266
767 006330

011336 000021
011340

811340 010322
11342 077514
011344 004767 001642

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

RS,

MOV
JSR
DEC
MOV
MOV
JSR
MOV

#110605 ,RO
INITMM
R4,
R5
(R2)+
R3,
(R2)
RS,
-(R2)
RS,
(R2)+, R1

DIDBL: MOV

MOV

1%:
2%:

64%:
65%:

$SCOPE ;GO 7O SCOPE ROUTINE.

JSR

CMP
BEQ
JSR
JSR

.WORD

MOV
S08
JSR

#110412,R3

#205,

RO,
65%
PC,
PL.

R1
SPRNT3
$ERROR

R3,
RS,
PC.

(R2)+
2%
MMUP

“GET 'MOVB R4, (R2)' INSTRUCTION (IUT).

*GET 'RTS RS'

*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 RS5' FOLLOWING IUT.
:GO EXECUTC THE IUT.
:GET THE DATA FROM THE MEM ADR UNDER TEST.

WITH THE DATA READ.
:COMPARE THE CHECK WORD
IF GOOD DATA.
CALL
ERRCR
OVER
:BRANCH
PRINTING.
ERROR
FOR
:SET UP VALUES
MESSAGE)
A
TYPE
(GO
;**» ERROR ***
;ERROR TYPE CODE.

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

;

(VMSAA

==
-81 23:00 PAGE 51
04-AUG
6)
30(104
MACY11
VER
}%
0-2 MEGAWORD MEMORY EXERCISER,
THRU MEMORY.

CVMSAA.P11

04-AUG-81 22:59

EXECUTE DATI, DATOB (MIGH BYTE)

2‘75

":..t.tt.tt'.'t".....""Q'Q.tl.'.t...'.".'....'.t'..'..'..-."

248

MEMORY.
EXECUTE DATI, DATOB (HIGH BYTE) THRUOUT
TRTEST 17
MEMORY.
THROUGH
)'
R3,-(R2
s EXECUTES THE INSTRUCTION "MOVB
TION TO RETURN
INSTRUC
'MOVB'
THE
AFTER
PLACED
!S
“« AN °RTS RS' (CODE 205)
UT.
CHECKO
ION
EXECUT
CTION
INSTRU
FOR
M
PROGRA
‘« CONTROL TO THE MAIN WHAT THIS TEST DOES IN RELATION TO MEMORY
:
OF
E
‘e THIS IS AN EXAMPL

2476
2477
2478
2479
gzgg

110342
000205

1ST PASS / 40000

‘»

2485

PLACED THERE

LOCATION

szg‘

INSTRUCTION

MEMORY

L ]

‘« THRU TEST / 40002
‘x 2ND PASS / 40002
“» THRU TEST / 40004

%‘4’39

110342
000205 .

488

2238

AFTER INSTRUCTION EXECUT
161342
000205
161342

000205

ETC., ETC., ETC.

5231

N
CONTENTS OF MEMORY LOCATIO
ION

249

TOP OF IUT BY THE IUT (SHOULD BE).
“« RO = DATA WRITTEN ONMEMORY
(WAS).

2‘”
2500

;"i'ttt'.'.t.ttt*.l’..t""'tt't'fiktt!tfi*fitt"tl‘t.it.tttt'i.t"li.
1ST17:

“«
‘x
“x
‘x
‘x

249
2495
2496
2497
2498

011350

501 011350 004567 006000

502

011354 012703 110342

2503 011360 012704 000205
161342
504 011364 012700 001404
505 011370 004467
2506 011374 005305
2507 011376 010322
2508 011400 010412

2509 011402 004562 177776
2510 011406 005302

2511 011410 012201
251; 011412 020001

2513 011414 001405
gsu 011416 004767 005176
515 011422 004767 006240
2516 011426 000021

2517 011430

5518 011430 010322
519 011432 077516
2520 011434 004767 001552

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

JSR

RS,

$SCOPE :GO TO SCOPE_ROUTINE.

JSR
DEC

R&,
RS

INITMM - INITIALIZE THE
DO ALL ADDRESSES =1

RS,
R2

-2(R2)

658
PC,
PC.

*BRANCH OVER ERROR
ERROR PRINTING.
SPRNT3 +SET UP VALUES FOR
TYPE A MESSAGE)
(GO
***
ERROR
:*+*
$ERROR

R3,
RS,
PC.

(R2)+
2%
MMUP

DIDBH: MOV
18:

2s:
648:
65%:

MOV
MOV
MOV
MOV
JSR
DEC

MOV
CMP
BEQ
JSR
JSR

LWORD

MOV
S0B
JSR

#110342,R3

#205, R4
#161342,R0
R3,
R&.,

(R2)+
(R2)

(R2)+, R1
R1
RO,
21

“GET 'MOVB R3,-(R2)' INSTRUCTION (IUT).

*GET 'RTS RS'
AFTER EXECUTION. RS.
*SET UP S/B DATAMEMORY
ADDRESS POINTE
OF BLOCK.
:PUT IUT INTO FIRST LOC
IUT.
ING
FOLLOW
RS'
'RTS
:PUT
:60 EXECUTE THE IUT.
*ADJUST R2 TO POINT TO MAUT.

TEST.
THE MEM ADR UNDER
*GET THE DATA FROM WORD
READ.
DATA
THE
WITH
CHECK
THE
RE
*COMPA
CALL IF GOOD DATA.
*ERROR TYPE CODE.

LOCATION.
:PUT THE IUT INTO THE NEXT BLOCK.
CURRENT
IN
MORE
IF
BRANCH
-FIND NEXT BLOCK AND LOOP TO 18.

SEQ 0063

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

CVMSAA. P11

04~AUG-81 22:59

EXECUTE DATI, DATIO, DATO THRU

120

SEQ 0064
.

"..t.'I.'titt'ttt't..."."....'.t.."..'....'..'.'..t'..'.Q.tt

EXECUTE DATI, DATIO, DATO THRU MEMORY. .
S*TEST 20
THROUGHOUT MEMORY
“» EXECUTES THE INSTRUCTION "NEG (R2)'
THE 'NEG' INSTRUCTION TO RETURN
AFTER
“» AN 'RTS R5' (CODE 205) IS PLACED
UT.

FOR INSTRUCTION EXECUTION CHECKO
“» CONTROL TO THE MAIN PROGRAM THIS
TEST DOES IN RELATION TO MEMORY:
‘x THIS IS AN EXAMPLE OF WHAT
INSTRUCTION
MEMORY
i
PLACED THERE
LOCATION
i
-

. %

CONTENTS OF MEMORY LOCATION
AFTER INSTRUCTION EXECUTION

‘s
;*

1ST PASS /
THRU TEST /

40000
40002

005412
000205

172366
000205

‘x
“«

2ND PASS / 40002
THRU TEST / 40004

005412
000205

172366
000205

- %

ETC., ETC., ETC.

i
;t

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

*»

R2 = ADDRESS OF IUT/DATA.

:*
‘«
‘x

R3 = INSTRUCTION UNDER TEST (IUT).
R4 = RTS RS (CODE 205).
RS = BLOCK BOUNDARY BIT MASK.

NN NN
N AININI NI AN NINININI

v ’c
v
)
SREREE\”3R2U*2U“fluufi
O BURAR

“x

R1 = DATA READ FROM MEMORY (WAS).

;:tttttttt.ttttttttttttttttttttttttttttttttttttttttttttittttttttt

011440

TST20:

DIPDO:

JSR
MOV
MOV

$SCOPE ;GO TO SCOPE _ROUTINE.
RS
:GET 'NEG (R2)' INSTRUCTION (IUT).
#005412.R3
;GET 'RTS RS'
R4
#205
ION.

005305
010322
010412
004542

1$:
2%:

DEC
MOV
MOV
JSR

RS
R3,
RS,
RS

(R2)+
(R2)
-(R2)

011502 004767 005112
011506 004767 006154

648 :

JSR
JSR

PC.
PC.

SPRNT3 ;SET UP VALUES FOR ERROR PRINTI )
$ERROR ;*** ERROR *** (GO TYPE A MESSAGE

R3.
RS,
PC.

(R2)+
2%
MMUP

011440 004567 005710
011444 012703 005412
011450 012704 000205

011454 012700 172366
011460 004467 001314
011464
011466
011470
011472

011474 012201
011476 020001
011500 001405
8”%}% 000021

011514 010322
011516 077514
011520 004767 001466

558

MOV
JSR

MoV
CMP
BEQ
.WORD

MOV
S08
JSR

EXECUT
:SET UP S/B DATA AFTER ADDRES
#172566 R0
S POINTERS.
MEMORY
THE
INITMM ;INITIALIZE
R4,
ES =1
(R)+, Rl
R1
RO
65%
21

;DO ALL ADDRESS
;PUT IUT INTO FIRST LOC OF BLOCK.
:PUT 'RTS R5' FOLLOWING IUT.
;GO EXECUTE THE IUT.

ADR UNDER TEST.
:GET THE DATA FROM THE MEM
THE DATA READ.
WITH
WORD
:COMPARE THE CHECK
DATA.
GOOD
IF
CALL
ERROR
:BRANCH OVER
NG.
;ERROR TYPE CODE.

;PUT THE IUT INTO THE NEXT LOCATION.
;BRANCH IF MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP TO 18.

53
30(1046) 04-AUG-81 23:00 PAGEBYTE)
CVMSAA 0~2 MEGAWORD MEMORY 9EXERCISER, }3.1( VER MACY11
THRU MEMORY.
(LOW
DATOB
DATIO,
DATI,
DATI,
EXECUTE
04~AUG-81 22:5
CVMSAA.P11

SEQ 0065

"tt..t.t'.t....."..t.‘.t".'....'..'.......'.'...'tt..l"'t....

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

;*TEST 21
:t

. %

te
:t
- %

EXECUTES THE INSTRUCTION BICB (R2)+,-(R2)' THROUG
TION TO RETURN
AN *RTS RS' (CODE 205) IS PLACED AFTER THE BICB' INSTRUC
UT.
CHECKO
ION
EXECUT
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION RELATION TO MEMORY
:
IN
DOES
THIS IS AN EXAMPLE OF WHAT THIS TEST

THRU TEST /

INSTRUCTION
PLACED THERE
142242
000205

000205

:*
;*

2ND PASS / 40002
THRU TEST / 40004

142242
000205

142000
000205

- *

. &

. *

40002

142000

ETC., ETC., ETC.

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

s+
:*
:*
:*
:*

524
524 004567 005624
012703 142242
5
53, 012704 000205

il el s el D
el el el el e

[elelelelelalelelelelolelololelelelole
e

540
544
ssg
55
554
556
Sbg
56
564

it e o e e i el i el e el i e
i ot e ot e el el e el el el el D e

nN—O

vV
o v
hd
v
W —

2g 2R3238 2L000%BRIRARRTZ2S=

PONINLNITINININS
PR NN NN NN NN

2579

CONTENTS OF MEMORY LOCATION
AFTER INSTRUCTION EXECUTION

MEMORY
LOCATION
1ST PASS / 40000

i
o
;*

012700 142000
467 001230
5305
10322
010412
004542
012201
020001
001405

593 004767 0050_26
004767 006070
5

253 000021

600 0103¢2
602 077514
604 004767 001402

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.tt.ttifiQltt..t'tti'tttitfitk'tt'Qt!'t'tttt'.'tttit'ttt't'.'

18121:

JSR
DPDBL: MOV
MOV

1%:
2%:

64%:
s

MOV
JSR
DEC
MoV
MOV
JSR
MOV
CMP
BEQ

JSR
JSR

LWORD

MoV
SOB
JSR

-$SCOPE :GO TO SCOPE ROUTINE.
RS,
:GET BICB (R2)+,-(R2)’ INSTRUCTION (IUT).
#142242 ,R3
*GET "RTS R5'
#205, R4
EXECUTION.

PC,
PC.

*SET UP S/B DATA AFTER
:INITIALIZE THE MEMORY ADDRESS POINTERS.
Q
:DO ALL ADDRESSES -1
BLOCK.
OF
:PUT IUT INTO FIRST LOC
IUT.
:PUT 'RTS RS5' FOLLOWING
GO EXECUTE THE IUT.
:GET THE DATA FROM THE MEM ADR UNDER TEST.
THE DATA READ.
:COMPARE THE CHECK WORD WITHGOOD
DATA.
IF
"BRANCH OVER ERROR CALL
NG.
PRINTI
SPRNT3 :SET UP VALUES FOR ERROR
$ERROR :*** ERROR *** (GO TYPE A ME SSAGE)

R3,
RS,
PC.

(R2)+
2%
MMUP

#142000,R0
INITMM
R4,
RS
(R2)+
R3,
(R2)
R4,
-(R2)
RS,
(R2)+, R1
R1
RO,
658
21

*ERROR TYPE CODE.

LOCATION.
;PUT THE IUT INTO THE NEXT BLOCK.
T
:BRANCH IF MORE IN CURREN
:FIND NEXT BLOCK AND LOOP TO 1%.

(VMSAA

CVMSAA.P11

04-AUG-81 22:59

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

122

::...tt.t'.t...ttl...tt'..'.t..t.t..'.t..t.......tt.'.'..'....it'

(HIGH BYTE) THRU MEMORY.
DATI, DATIO, DATOBTHROUGH
EXECUTE DATI, 'BISB
OUT MEMORY.
(R2)+,{R2)'

3214.

LaTEST 22

6}3

‘e THIS IS AN EXAMPLE

s EXECUTES THE INSTRUCTIONIS PLACED AFTER THE 'BISB' INSTRUCTION TO RETURN
e AN °RTS RS' (CODE 205)
T.
FOR INSTRUCTION EXECUTIONN CHECKOU
+« CONTROL TO THE MAIN PROGRAM
MEMORY:
TO
RELATIO
IN
DOES
OF WHAT THIS TEST

15
19
1

i
e
-

000205

‘e« THRU TEST / 40004

;

CONTENTS OF MEMORY LOCATION
AFTER INSTRUCTION EXECUTION

157212
000205

gL,. BYC.. #7%¢C.

‘x« RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE).
*

“«

6
6
5
636
7

;s 011610 004567 005540

639 011610
152212
640 011614 012703
1 011620 015704 000205
§ 011624 012700 157212
011630

004467 001144

4 81163: 005305

011636

010322

811640 010412
11642 004542
811644 005302

9 011646 012201
50 011650 020001
51 011652 001405

gg 811654 004767 004740
11660 004767 006002
000021
8”%
aésg

%?9 811698 o1osz§
07751
57

152212

2ND PASS / 40002

‘«

2645

152212
000205

40000
1ST PASS
‘e THRU
TEST // 40002
‘e«

6 2§

643

INSTRUCTION
PLACED THERE

MEMORY
LOCATION

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

0116720

2658 011672 004767 001314

“«
“«
‘«
‘s«

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. .tttit.ttttttt't'.ttttt'tttttttt

:"tttttttl't'tlfittitttt.tt'tt'iitt

18ST122:

DPDBH:
1$:

648:
i

JSR
MOV
MOV
MOV

ROUTINE.
$SCOPE :GO TO SCOPE(R2)+,
RS
(R2)' INSTRUCTION (IUT).
“GET 'BISB
#152212.,R3
*GET "RTS RS’

MOV

R4
#205,
“SET UP S/B DATA AFTER EXECUTION.
#157212.R0
ADDRESS POINTERS.
INITMM -INITIALIZE THE ESMEMORY
Ré,
‘DO ALL ADDRESS -1
RS
LOC OF BLOCK.
(R2)+ :PUT IUT INTO FIRST
R3,
:PUT °RTS RS' FOLLOWING IUT.
(R2)
R& .

MOV
CMP
BEQ

(R)+, Rl
R1
RO
£ 3

JSR

DEC

MOV

JSR
DEC

JSR
JSR
LWORD

MOV

SOB

JSR

:GO EXECUTE THE IUT.
*RESET R2 TO POINT TO IUT.

RS.
R2

-(R2)

.
Pe.
21

SPRNT3 :SET UP VALUES FOR ERROR PRINTING
$ERROR -#*x* ERROR *** (GO TYPE A MESSAGE)
*ERROR TYPE CODE.

R3,

RS,
PC.

(R2)+

MMUP

TEST.
“GET THE DATA FROM THE MEM ADRTHEUNDER
DATA
"COMPARE THE CHECK WORD WITH DATA. READ.
"BRANCH OVER ERROR CALL IF GOOD .

LOCATION.
NEXT BLOCK.
INTO THE
:PUT THE IFIUTMORE
IN CURRENT
“BRANCH

-FIND NEXT BLOCK AND LOOP TO 18.

SEQ 0066

(VMSAA

0-2

CVMSAA. P11

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

SECTION 4:MOS TESTS

-AUG-81 22:59

_SBTTL SECTION 4:MOS TESTS

5659

:;ttttt'tt....tlt.ttt'tt"'.tt.t.ltl't.tl.tt'.t.tt'tt'tfitttt'tttt

MARCHING 1°'S AND 0'S.

LATEST 23

2661

2“§

‘« THIS TEST IS DESIGNED TO STRESS MOS MEMORIES.

52;2

:*8K BANK UNDER TEST.

AND ADDRESSING UPWARDS A 8K BANK ISTHE
« STARTING AT THE BOTTOM ADDRESS
TOP ADDRESS OF THE BANK
« WRITTEN WITH 000377.THEN STARTING AT THE
AND THE LOCATION
177400
TO
« 000377 1S READ,THE BYTES ARE SWAPPED
EVERY LOCATION
FOR
D
REPEATE
IS
"« REREAD TO CONFIRM THE WRITE.THIS
G AT THE
STARTIN
.
REACHED
IS
BOTTOM_
“+ ADDRESSED DOWNWARD UNTIL THE FOR 177400, THE BYTES ARE SWAPPE
D TO
READ
« BOTTOM EACH LOCATION IS
OF THE
ADDRESS
TOP
THE
UNTIL
WRITE
THE
“« 000377 AND REREAD TO CONFIRM
READ
IS
N
LOCATIO
EACH
BOTTOM
AT_THE
G
STARTIN
« BANK IS REACHED. AGAIN
TO
REREAD
N
LOCATIO
THE
AND
177400
TO
SWAPPED
« FOR 000377, THE BYTES
DOWNING
ADDRESS
AND
TOP
THE
FROM
G
STARTIN
LASTLY
WRITE.
“x CONFIRM THE
SWAPPED TO 000377 AND THE
"« WARD EACH LOCATION IS READ,THE BYTES
« LOCATION IS REREAD TO CONFIRM THE WRITE. THIS IS REPEATED FOR EVERY

66
664
5
2666
2667
2668
2669
2670
2671
7
7
674

- %

T
T
i
i
i
T

2677
2678
2679
2680
2681
268
2“

2684

.'.'tttt'tttt'tttfit.'ttttt'it'tt.'tttttt'

011676

Seas 011676 004567
686 011702 004467
687 011706 010567
010267
56& 011712
2689 011716 005003
2690 011750 012700
2691 011724 010022
269 011;53 077502
016705
2693 011
2694 on7§ 014201
2695 011736 020001
2696 011740 001405

005452
001072
170060

170052

000377
170036

2697 0117642 004767 004656
2698 011746 004767 005714

2699 011752 000010
2700 011754
2701 011754 000300

011756
011760
704 011762
705 011764
709 011766
707 011772

010012
011201
020001
001405
004767 004632
004767 005670

01
01
01
01

000300
005703
001403
020327 000003

% 8}1776 000010

2710
2711
Sni
7213

RO=DATA WRITTEN INTO MEMORY (SHOULD BE)
R1=DATA READ FROM MEMORY (WAS)
R2=VIRTUAL ADDRESS
R3=TIMES THROUGH COUNTER
R4=NOT USED
R5=BLOCK BOUNDARY BIT MASK.
ttt.ttttlt"ttttt.tfiit.ttt

2714 012012 001011

15123:

1008:
18:
28:
38:
648:
65%:

48:

668:
g

JSR
JSR
MOV
MOV
CLR
MOV
MOV
SOB
MOV
MOV
cTMP
BEQ

$SCOPE
RS,
INITMM
R,
RS. TEMP1
R2. TEMP
R3
#000377.RO
RO, (R2)+
RS.2$
TEMP1.RS
-(R2) .R1
R1
RO,
65%

;GO TO SCOPE ROUTINE. ADDRESS POINTERS.
-INITIALIZE THE MEMORY
"STORE TEST WORD COUNTER
*SAVE BANK STARTING ADDRESS
*CLEAR PASS COUNTER N
*SETUP TO WRITE PATTER
*WRITE PATTERN
*END OF 8K?
“RESTORE TEST WORD COUNTER FOR NEXT PASS
*GET DATA WRITEN
THE DATA READ.
“COMPARE THE CHECK WORD WITH
DATA.
GOOD
IF
CALL
*BRANCH OVER ERROR

LWORD
SWAB

10
RO

*ERROR TYPE CODE.
:SWAP BYTES OF DATA

JSR
JSR

MOV
MOV
cTMP
BEQ
JSR
JSR

LWORD

SWAB
ST
BEQ
cTMP

BNE

PC,
PC.

G.
SPRNT2 -SET UP VALUES FOR ERRORAPRINTIN
E)
MESSAG
TYPE
(GO
$SERROR -*** ERROR ***

WORD
RO. (R2) :WRITE SWAPPEDDATA
WRITEN
:GET
(R2) ,R1
THE DATA READ.
"COMPARE THE CHECK WORD WITHGOOD
R1
RO
DATA.
IF
CALL
ERROR
"BRANCH OVER
67%
G.
PRINTIN
ERROR
FOR
SPRNT2 -SET UP VALUES
PC,
$SERROR -*%* ERROR *** (GO TYPE A MESSAGE)
PC.
10

RO
R3
5%
R3,43

*ERROR TYPE CODE.

:PUT DATA BACK TO ORINGINAL
“IF ON PASS 0 OR PASS 3
‘WE ARE ADDRESSING DOWN
“IF ON PASS 1 OR 2 GO TO

* UPWARD

SEQ 0067

CVMSAA

0=2

CVMSAA . P11

715 01
716 0
2717 O

01
2718 4]

5719
2721
2 §
s
724
2725
S 6
727
5728
7.
2

01
01
01
01
O
01
01
015054
01
012064

D 6

MEGAWORD MEMORY EXERCISER, }% VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 56

~AUG-81 22:59

077531
oos;os
022703 000004

58:

000404
062702 000002
005305
001411
011201
020001
007405
004767 004544
004767 005602
000010

015066 000732
2731 012066

2;;;
012070 016705 167676
2
Sg‘ 012074 005203

6%:
7%:
68%:

698:
8%:

S 012076 000300

273% 012100
2737 0121064
2;%8 012106
2739 012112

020327 000002
001313
016702 167656
000755

s08
INC
TMP

RS.3$
R3
#4 ,R3

3%
:DONE A PASS? ,If NOT THEN
R
COUNTE
PASS
ENT
INCREM
*IF YES
8K?
THIS
FOR
PASSES
ALL
DONE
“ARE WE

BR
MOV

48
TEMP1.RS

COUNTER FOR NEXT PASS.
:RESTORE TEST WORD
PASS COUNTER

BEQ

001433 167740
016705

000300

MARCHING 1°S AND 0°S.

MOV
SWAB
BR
ADD
DEC
BEQ
MOV
CMP
BEQ
JSR
JSR
.WORD

INC

SWAB

cMP
BNE
MoV
BR
ADD
BIC

TEMP1,RS
RO
7%
#2.R2
RS
8%
(R2) ,R1
R1
RO,
69%
SPRNT2
PC,
SERROR
PC,
10

*IF YES BRANCH

:RESTORE TEST COUNTER FOR NEXT PASS.
“ELSE SET UP NEW READ WORD
:GO TO START OF ADDRESS UP
:UPDATE TO NEXT ADDRESS
:DONE A PASS?
*IF YES BRANCH
:GET DATA WRITTEN
WITH THE DATA READ.
:COMPARE THE CHECK WORD
:BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
:**» ERROR *** (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

: INCREMENT

:SET UP NEW READ WORD

R3.4#2
33
TEMP,R2
78

#40000,R2
#1000,R2

*ADDRESSING UP?
SEQUENCE
“IF NO GO TO DOWN
:IF YES RESET ADDRESS TO START
*GO TO UP SEQUENCE

OF BANK
“TESTING ENDS WITH R2 = BOTTOM BANK
NEXT
OF
:ADD 8K FOR TEST START
:CLEAR POSSIBLE FIRST STARTINGAREA 1S
:ADDRESS OF 1000 WHEN VECTOR
;PROTECTED.
:UPDATE TO NEW BANK IF EXISTS
:RETURN TO 100%

2740 012114 062702 040000
2741
274% 012120 042702 001000
74
744
2745 012126 004767 001062
5;29

9$:

749
750
751
g;g

WRITE CHECKERBOARD STARTING WITH '125252"' DATA.
;*TEST 24
MEMORY,STALL
“« THESE TESTS WRITE A CHECKERBOARD T*ROUCHGUT DATA
DID NOT
“« FOR 2 SECONDS THEN CHECK PATTERN TO VERIFY
i+ DETERIORATE BETWEEN REFRESH CYCLES.

JSR

PC ,MMUP

7(.8

;:t't.ttttttttttt*tt!t'tt'tt'tttttttttttttttttt'tt'tt'ttttttttttt

2754
2755

T
i

75
2760

R5=BLOCK BOUNDARY BIT MASK.
e
;"tttttt!ttttttttt'ttttttt't'ttt.tt'tttttttttttttttttt'tttttltQlt
15724

e
T
I

2756
2757
575
761

012130

76
764
765
766
767
768
769
2770

012134
012140
012144
012146
012150
012152
012156
012160

ni 012130 004567 005220

004467
012700
010022
005100
077503
004767
005003
012704

000640
125252
001034
000046

RO=DATA WRITTEN INTO MEMORY (SHOULD BE)
R1=DATA READ FROM MEMORY (WAS)
R2=VIRTUAL ADDRESS
R3=SMALL LOOP COUNTER FOR STALL
R4L=NUMBER OF TIMES SMALL LOOP DONE

JSR

1%:

JSR
MOV
MOV
COM
S08
JSR
CLR
MOV

RS,

$SCOPE

INITMM
R4
#125252 RO
“(R2)+
RO
RO
1%
RS,
MMUP
PC.
R3
R4
#46,

:GO TO SCOPE ROUTINE.

:INITIALIZE THE MEMORY ADDRESS POINTERS.
“SETUP DATA PATTERN
-WRITE A WORD
* COMPLEMENT DATA
"BRANCH IF MORE IN CURRENT BLOCK
-FIND NEXT BLOCK AND LOOP TO 18.
“SET UP COUNTER FOR STALL
:DO LOOP 46 TIMES OR 2 SEC. TOTAL.

SEQ 0068

£ &

30(1046) 04-AUG-81 23:00 PAGE 57
| CUMSAA 0=2 W MEMORY EXERCISER, }gll(. VER MACY11
WRITE CHECKERBOARD STARTING WITH '125252" DATA.
~AUG-81 22:59
CVMSAA. P11
2771 012164 005302
2772 012166 0013764
012170 00530
2773

27764 012172 001374
775 012174 004467 000600
77;9 312582 012700 125252

ng 012201
01
Sm
020001
2779 O

2780 012210 001405
2781 012212 004767 004406
s;gi 012216 004767 005444

2s:

64%:

DEC

BNE
DEC
BNE
JSR
MOV

MOV

CMP
BEQ
JSR
JSR

.WORD

R3
28
R4

2
INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS.
R4
“INIT DATA FOR CHECKING
#125252.R0

(R2)+, R1

TEST.
FROM MEMORY UNDER
:GET THE DATA CHECK
WORD WITH THE DATA READ.

;ERROR TYPE CODE.

RO
653
PC,
PC,

012222 000006
4
01225
2784

658

2m
2791

:'-t'ttttttttt'ttittt
T5125:

2785 012224 005100

2786 01%2%8 077512
004767 000756
2787 0122
2788
2789
012234

279; 012234 004567 005114

2793 012240
2794 012244
2795 012250
2796 012252
2797 012254
2798 012256

004467 000534
012700 052525
010022
005100
077503
004767 000730

2799 012262 005003

2800 012264 012704 000046
2801

012270 005303

2802 012272 001376
2803 012274 005304
2804 012276 001374 000474
2805 012300 004467
5% 8}53% 012700 052525
2808
2809
2810
2811

281

2813

2814

012310
012312
012314
012316

012201
020001
001405
004767 004302

012322 004767 005340
012326 000006

0153 0

005100
2815 012330
2816 012332 077512
2817 012334 004767 000652

R1
SPRNT2
$ERROR

:COMPARE THE
GOOD DATA.
:BRANCH OVER ERROR CALL IFPRINTI
:SET UP VALUES FOR ERROR MESSAGNG.
E)
;*** ERROR *** (GO TYPE A

RO
:BRANCH IF MORE IN CURRENT BLOCK
3%
RS,
SO8
TO 1%.
AND LOOP
BLOCK lttttt'
NEXTttttt't
:FIND
MMUP'tttttt
Pt
JSR
't.
ttttttt
ttttttt
ttt'tit
;'-tttttttttttQtttttt
DATA
052525
WITH
NG
STARTI
WRITE CHECKERBOARD ttt'ttt
s*TEST 25
ttttttttttttt'tttttttttt
ttttttttttttti
coM

JSR

1$:

JSR
MOV
MOV
COM
SOB
JSR
CLR

28:

%
64%:
65%:

MOV

DEC
BNE
DEC

RS,

$SCOPE ;GO TO SCOPE ROUTINE.

INITMM
Ré4
#052525 R0
(R2)+
RO,
RO
1%
RS,
MMUP
PC.
R3

#46,
R3
2%
Ré

ADDRESS POINTERS.
:INITIALIZE THE MEMORY
N
PATTER
DATA
“SETUP
-WRITE A WORD
:BRANCH IF MORE IN CURRENT BLOCK
:FIND NEXT BLOCK AND LOOP TO 1%.
“SET COUNTER FOR LOOP
:DO LOOP 46 TIMES OR 2 SEC. TOTAL

BNE
JSR
MOV

2%
ADDRESS POINTERS.
INITMM :INITIALIZE THEFORMEMORY
R4
G
CHECKIN
PATTERN
“INIT
#052525,R0

JSR

PC,

$ERROR :*%x ERROR *»x (GO TYPE A MESSAG

RO
RS,
PC,

3%
MMUP

MoV
cMP
BEQ
JSR
LWORD

CcoM
SOB
JSR

(R2)+, R1
R1
RO,
65%
SPRNT2
PC,
6

:GET THE DATA FROM MEMORY UNDER TEST.
THE DATA READ.
"COMPARE THE CHECK WORD WITHGOOD
DATA.
IF
CALL
ERROR
"BRANCH OVER
G.
PRINTIN
ERROR
FOR
VALUES
:SET UP
E)
*ERROR TYPE CODE.

:BRANCH IF MORE IN CURRENT BLOCK
:FIND NEXT BLOCK AND LOOP TO 1%.

SEQ 0069

~o& BINSRERELEE

e
NN

—

O
HWWNW

eleleleleleleolelelelololels]

PAGE 58
0=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04=-AUG-81 23:00
| CVMSAA
TESTS.
ALL
REPEAT
AND
M
RELOCATE PROGRA
DONE:
04~AUG-81 22:59
CVMSAA.P11
.SBTTL DONE:

004567

166610
166516

000200

1ST32:
166546

166604

165436

165440

166566

000001

0 24%6
012432

002140
174224

012436
012442
012446
012450
012454
012454

002444
165374

002632
007114

JSR

CLR
CLRB
BIT
BNE

TSTB

166624

012416
012424

012460

:
DONE

005010

166110

2%:

3%:
4%:

5%:

6%:

BEQ
TST
BNE
CMP
BNE
TST
BEQ
BIT
BEQ

JSR
JMP
JSR
TST
BEQ
JSR

JSR
.WORD

RELOCATE PROGRAM AND REPEAT ALL TESTS.
RS,

STIMES
$TSTANM
#SW07,
$EOP
SENV
1%
$PASS

$SCOPE
aSwR

1ST PASS

;CHECK FOR ACT11
;BRANCH IF NOT ACT11
;CHECK FOR FIRST PASS

#8170,PRGMAP
43

PC,

RELTOP

PC.

RELO

;SKIP RELOCATION IF SWITCH SET.
;CHECK FOR APTT
;BRANCH IF NOT APT11

:IF APT,DO NOT RELOCATE AFTER FIRST PASS

$PASS
6%

:RESET ITERATION COUNTER FOR RESTARTING TEST.
JRESET TEST NUMBER.
sCHECK FOR INHIBIT RELOCATION SWITCH.
;CHECK FOR

6%
42,46
2%

START1

;GO TO SCOPE ROUTINE.

PC.

RESLDR

RS,
$CRLF

$PRINT

;IF ACT,DO NOT RELOCATE ON FIRST PASS
;CHECK IF PROGRAM IN FIRST 8K

;IF NOT IN FIRST 8K,RELOC TOP TO BOTTOM
;MUST BE XXDP OR STANDALONE
;RELOCATE PROGRAM TO TOP OF MEMORY.
;LOOP BACK AND RUN ALL TESTS AGAIN.

;RELOCATE PROGRAM BACK TO FIRST 8K.

;TEST FOR XXDP

;1F NOT RUNNING UNDER MON. DONT
JRESTORE LOADERS.

;GO PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED

SEQ

007(

| CUMSAA

|CVMSAA.P1T ~ 04=AUG=81 22:59

RELOCATE PROGRAM AND REPEAT ALL

:
DONE

::'......'....'..'.'.."'....'..............'Q......'......'.‘..'

847

_SBTTL END OF PASS ROUTINE

5&8

)
:«INCREMENT THE PASS NUMBER ($PASS
IS A DECIMAL NUMBER)
XXXXX
(WHERE
:*TYPE ‘END PASS HOXXXX"*
1T
TO
GO
OR
:«]F THERES A MONIT
:«]F THERE ISN'T JUMP TO START1

850
851
%85%
2324

$EOP:

2855

012462

2860
2861
286
286

012502
012504
01 2508
01%51

2866
2867
2868
2869
2870
2871

012516 004567 007052
012522 012616
012524 016746 166452

2856 012462 000240

2857 012464 005067 166470
2858 012470 005267 166506 166500
2859 012474 042767 100000
005327
000001
00 1
012737

2874 012536 004767 010026
875 012542 004567 007026
876 012546 012633

2“%
2883
2884
Sggg

012560
012562
012564
012566

$GET42:

2879 012550 016700 165266
5880 012554 001416
881 012556 000005
004710
000240
000240
000240

DEC
$EOPCT: .WORD
BGT
MOV

:ON PSW RETURN.
$TYPDS :GO TO THE SUBROUTINE
L.
NG MESSAGE .
$PRINT :GO PRINT OUT THE FOLLOWI
RS,
TYPED
BE
TO
:ADDRESS OF MESSAGE
$ENULL

MOV
BEQ
RESET

RO
42,
$DOAGN

::GET MONITOR ADDRESS
::BRANCH IF NO MONITOR
::CLEAR THE WORLD

$ENDAD: JSR
NOP
NOP
NOP

cMP
000042 000046
BEQ
1STB
001214
BNE
JSR
002562
$DOAGN :
JMP
174044

012624
012632

040520
000

051523

5334 012616 005015 047105 020104 SENDMG: .ASCIZ

2901

377

;:LOOP?
2:YES
::RESTORE COUNTER

JSR
JSR
.WORD

023737
001405
105737
00100,
00476
000167

377

(PC)+
$DOAGN
(PC)+,a(PC)+
1

::2ERO THE NUMBER OF ITERATIONS
: s INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER

:HIGH BYTE

012570
2887 012576
012600
2
01%60‘
P4
012606
2
3891 012612
89% 012612

896 012633
2897
Zg%

$TIMES
$PASS
#100000, $PASS

1(SP)

CLRB

2873

012550

CLR
INC
BIC

MESSAGE.
$PRINT :GO PRINT OUT THE FOLLOWBEINGTYPED
RS,
JSR
TO
:ADDRESS OF MESSAGE
.WORD $ENDMG
::SAVE $PASS FOR TYPEOUT
$PASS ,~(SP)
MoV
AN INTERFACE TO THE $TYPDS ROUTINE
:* THE NEXT TWO INSTRUCTIONS PROVIDE
A(w~,
CTION AS CALLED FOR BY **SYSM
:% WIHTOUT USING A '‘TRAP'' INSTRU:PUT
STACK
THE
ON
STATUS
SOR
THE PROCES
-(SP)
MFPS
MODE
KERNEL
INSURE
TO
D
CLEARE

012530 106746
2872, 012532 105066 000001

gg;g

NOP

$ENDCT: .WORD
SEOPCT

2864 012512 000001
2865 012514 012504

895

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

021440

PC, (RO)

L2, N6
$DOAGN
SHBENV
$DOAGN
SAVLDR
PC.
START1

:2G0 TO MONITOR
: :SAVE ROOM
;:FOR
2:ACT1

::ARE WE UNDER ACT11 OR XXDP
::IF ACT11 THEN RESTART
::CHECK FOR APT11
::IF APT11 THEN RESTART
::IF XXDP FIRST SAVE MONITOR
2 JRETURN* * % % %

<15><12>/END PASS #/

:zNULL CHARACTER STRING
000 SENULL: .BYTE -1,-1,0
.SBTTL SUBROUTINE AND TRAP ROUTINE SECTION.
MANAGEMENT AND ADDRESSING SUBROUTINES.
MEMORY
.SBTTL t..ttt
ttt.ti.tfitttt't't'.l'tttt'ttt.t"t'tt’tttltt'ttt.'tt
':.i"'

“*

SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION.

i» THE PROGRAM IS POINTED TO BY PARS 0 AND 1.

SEQ 0071

390

2902

L T

‘

16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 60
(VMSAA 0-2 MEGAWORD MEMORY EXERCISER, MEMORY
MANAGEMENT AND ADDRESSING SUBROUTINES.
04-AUG-81 22:59
|CVMSAA.P1T

SEQ 0072

THE MEMORY UNDER TEST IS POINTED TO BY PARS 2 AND 3.
THE DEVICE ADDRESS AREA 1S POINTED TO BY PAR 7.

PARS 4, 5, AND 6 ARE UNUSED.

".'.t..I'-'.'.'t".t"'..'.....'.......l'.t."ltl.'t't.l'..".Qi
208
012636 012737 077406 172300 MMINIT: MOV
%06 013636
;SET KIPDRO = RW UP 200 BLOCKS
#200-1+400+UP+RW, a#K IPDRO

5007
5908
5000
210
5011

012644 012737 077406
013652 012737 077406
012660 015737 077406
012666 005037 172310

012672

005037

172312

012702
012710

012737
005037

077406
172340

217
5018
5919
5020
5091
2922
509%
5054

012722 005037
012726 005037
012732 005037
005037
012736
012742005037
012746 012737
012754 005767
012760 100003

172344
172346
172350
172352
172354
177600
165556

5056

019770

012737

000001

go1g

291

012676 005037 172314

5016

013714

14
5915

012737

000200

172302
172304
172306

5057

2928

012776

000207

172342

Sggz
5039

1$:

013000
013000
013002

010046
010146

013012

005002

013006

013014

g130ce
013032
013034
013036
013042
013050

5950

INITMM:

012767

100000

005767

165516

001410

013056
013060

013062

016701
005021
077002

166766

MOV
TST
BPL
BIS
MOV

:MAP PAR7 INTO 1/0 BANK
#177600, a#KIPAR7
ADR NOT AVAILABLE
BIT
22
;IF
MMAVA
BRANCH
THEN
:
1%
; ELSE ENABLE 22 BIT ADDRESSING
#BIT4 ,A#SR3
;ENABLE MEMORY MANAGEMENT
#1,34SR0

RW UP 200 BLOCKS

a#KIPAR3
K IPARS
a#K IPARS
a#K IPARG

sRETURN

005037
012767
066767

012601
012600

004767

172344
013204

165456

505%
5954

013072
013074

5957

013076

000007
000000

MOV
MOV

RO,-(SP)
R1,-(SP)

::PUSH RO ON STACK
::PUSH R1 ON STACK

CLR

:INITIALIZE ADDRESS

MOV
TST

1%:

166704

166676

2%:

CLR

a#K IPARZ

ADD

RELOCF ,MMORE

CLR
SO8

MOV
JSR

JSR

;FATAL ERROR

.WORD

HALT
INITDN:

MMAVA

2%
#20,R0
BITPT,R1

MOV
MOV

000124

#BIT15,PLUST

MOV
MOV

BEQ

166762

2951 013066 004767 004574
2955
5956

;SET KIPDR?7
#200-1+400+UP+RW, a#KIPDR7
BANKO
INTO
PARO
:MAP
a#K 1PARO
#200, a#KIPAR1 ;MAP PAR1 INTO BANK1
;MAP PAR2 INTO BANKO
K IPAR2

MEMORY ADDRESS POINTER INITIALIZATION ROUTINES.

013020

MOV
CLR
MoV
CLR

RTS

2941 013022 012700 000020
5945
5046

a#KIPDRS

"fii..tt...t"'....t"tt"t"'tfi..!'tit'ttt*'t'tttt.t'ttitttt.t

5940

5043
5044

a#KIPDR6

a#KIPDR4

:SET KIPDR1 = RW UP 200 BLOCKS
:SET KIPDR2 = RW UP 200 BLOCKS
:SET KIPDR3 = RW UP 200 BLOCKS

""Q.tt.t"'ifi"ttt..tt""ltt.Qii.tt'tt.t'...'tt't"tttt'(ttti'

2933
593,
sgss
%

CLR
CLR

CLR
CLR
CLR
CLR

172356

0
295
2931

#200-1+400+UP+RW, a#KIPDR1
#200-1+400+UP+RW, a#K IPDR2
W,
a#K IPDR3
#200-1+400+UP+R

CLR

172316

6
2925 015762 052737 000020 17251
177572

MOV
MOV
MOV

(R1)+
RO,1$

#INITEX ,MMORE

(SP)+ ,R1
(SP)+,R0O

PC ,MMUP

PC,
7

$ERROR

::POP STACK INTO R1
::POP STACK INTO RO

:**» ERROR #*** (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

:FATAL ERROR!!!

NO MEM INDICATED IN MEMMAP ABOVE 8k!

' CVMSAA

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

(CVMSAA.P1T ~
!

2958
2959
2960

2961

296§

01004¢
010146
00500

013110

001414

013106

005767

165426

012700
016701
005021
077002
012767
005037
03
012767

000020
166672

2963
24
2965
2966
2967
2968
2969
2970

013112
013116

2973
2974
2975
g8

013164
013166
013170
013176

012601
012600
004767
004767

013200
013202
013204
013210

000007
000000
010467
000204

2971
2972

2978
2979
2980
2981
2982

2983
2984
2985
2986
2987
2988
2989

2990

2991
299§

013122
013126

013126
013134

013140

013142
013150
Q13156

012767
Qegrer

013212

012705

2996
2997
2998

013258
013230
013234

004767
005767
001475

1
i

013242
013244

010346
010446

%811
1§
3013

PAGE 61

SEQ 0073

MMAVA

000001
172344

166644

000020
013204
165350

166544
166576
166570

28:
3s:

MOV
JSR

000362
004dss

JSR

;FATAL ERROR

.WORD
HALT

166544

INITEX: MOV
RTS

::PUSH RO ON STACK
1IPUSH R1 ON STACK

2s
#20,RO
_BITPT,R1
(R1)+
RO,1$
#B8170,PLUS1
K IPAR2

3
#8174 ,BITPT
, MMORE
#INITEX
CF
, MMORE
RELO
(SP)+,R1

(SP) +,R0O

PC ,MMDOWN

PC.

R& ,MMORE

$ERROR

;:POP STACK INTO R1

:POP STACK INTO RO

;*** ERROR *** (GO TYPE A MESSAGE)

:ERROR TYPE CODE.
NO MEM INDICATED IN MEMMAP ABOVE 8k!
EKROR'''
-FATAL

.'"'t'..t..Qfi.ifit"""'t'tt"t."'lfi.i't'.fit.'..'i'titt.fi.t"."

COMMON UPWARDS ADDRESSING ROUTINE
BK BANK AND UPDATES POINTERS.
FINDS NEXT EXISTING

GOES TO ADDRESS IN 'MMORE'' IF MORE BANKS.
ALL MEMORY HAS BEEN DONE.
DOES STRAIGHT EXIT WHEN
"'t"..'tt*fi*tt'tttt...tfi""i'ti"t"t'

".'ttt'l‘it'titi't'."t."

106746
105066

3007
3008
3009
3010

RO, =(SP)
R1.-(5P)

BEQ
MOV
MOV
CLR
S08
MOV
CLR
BR
MOV
MOV
ADD
MOV

18:

“«
“«

013216
013220

3003
3004
3005

MOV
MOV
CLR

*
*»

2993
299

2999

23:00

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

04-AUG-81 22:59

013076
013100
013102

I 6
04-AUG-81

013236
013240

013246
013252
013256

013260
01
013272
013%6

013302
013304
013306

MMUP:

020000
000001

WIHTOUT USING A
=(SP)
MFPS

005200
165302

062737
016701
012700
006367

000400
166522
000020
166476

006121
077002
103005

CLRB

1(5P)

JSR

PC,

:SET UP 8K TEST COUNTER

172344

1$:

1008:

28:

-PUT THE PROCESSOR STATUS ON THE STACK

"HIGH BYTE CLEARED TO INSURE KERNEL MODE

$CKSWR

ST
MOV
MOV
MOV
MOV
MOV
TST
BNE
ADD
MOV
MOV

MMAVA
7%
RO,=~(SP)
R1.-(SP)
R3.-(SP)
R& .= (SP)
#40000,R2
PLUST
100$
#400,a#KIPAR2
_BITPT,R
#20,R0

ROL

(R1)+

BEQ

010046
010146

040000
166522

#20000,RS

CTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUT INE
ox THE NEXT TWO INSTRU
‘‘TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMACw+*.
“»

012702
005767
001003

MOV

ASL

SOB

BCC

PLUST

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
*2PUSH R3 ON STACK,
““PUSH R& ON STAC
‘MMU AVAIL. SET UP VA = 0,PAR2
“CHECK IF FIRST TIME ENTRY
DO NOT ADD 8K TO PAR?2
*UPON FIRST ENTRY
-ADD BK TO PAR2
:ROTATE TOTAL TABLE TO INSURE
“ROTATION OF ONE BIT
“TESTING IS DONE WHEN CARRY BIT IS SET

CCVMSAA

(VMSAA. P11

013%10
013312
013314
013316

1
i
30
3024
3025
3026
3027

013332
o1g
013340
013342
81 344
013346
013354

MOV
MOV
MoV
MOV

012604
012603
012601
012600

00051
ggla 01
016703 166466
013322
19
6
3020 01332 016706 166456

3041
304;
3043
4
S

013362
013;22
013
01870
013372
mgz?é
013400
013406
013410
013412
013420
013422
013426

0134
013434
013440
813442
013450

1018:

012700 000020
3$:
032324
00100
07700
745
013737 172344 172346 4S:
062737 000200 172346

012604
012603
012601
012600
005767
10000
032767
001005
000436
032767
001432
012705
000427

165140

100000 166344

100000 166274 5%:
6%:
010000

006367 166344
006167 166254
103440
036767

001003

166246

7%:
166104

3048 013460 032767 000010 166226 8%:
3049 01;268 001407

iggi
54
55

013470 012705 010000
1%474 005767 166274
13500 00140
705
13502

004000
1;506 032767 000001
013514

001407

166200 9%:

5? 13516 066702 166240
§7 013522 005767 166234

58
59
1

81”;8

0135

001402

162705 000400

013534 016716 166214
013540

000207

01%542 005767 167622

013546 00140
002106
013554 000207

013550 004767

et
MOV
MOV

(SP)+ R4
(SP)+ ,R3
(SP)+ R1
(SP)+,RO

12%
.BITPT,R3
R4
.TSTMAP

::POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R1
;:POP STACK INTO RO
:DONE ,READY TO EXIT

MOV
BIT
BNE
SOB
B8R
MOV
ADD

#20,R0
(R3)+,(R4)+
A3
RO,3%
1%
A#KIPAR2 ,a#K IPAR3
#200,a#K I1PAR3

ASL
ROL
BCS
BIT

PLUS1
BITPT
12%
BITPT ,TSTMAP

ADD
BR

#40000,R2
7%

MOV
TST

#10000,RS
FLG30K

MOV
MOV
MOV
MOV
TST
BPL
BIT
BNE
RE
BIT
BEQ
MOV
BR

BNE

6 013452 062702 040000
3047 013456 ogow.

3050
3051

23:00 PAGE 62

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

04~AUG~81 22:59

3014
2015
3019
3017

3028
sogg
30
30;1
30
Sogl.
30
30;2
30
3037
3038
3039
3040

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

BIT
BEQ

BEQ
ADD
BIT
BEQ

::POP STACK INTO R4
(SP) + R4
::POP STACK INTO R3
(SP)+,R3
::POP STACK INTO R1
(SP) +,R1
::POP STACK INTO RO
(SP)+,RC
MMAVA
5%
#BIT15,BITPT+36
6%
9%
#B1T15,BITPT
9%
#10000,RS
9%
8%

#8I1T3.BITPT
9%

%
#4000,R5
#8I1T0,BITPT
10%

ADD
ST

FSTADR,R2
FSTADR

BEQ

#400,R5

su8

108

:FSTADR = STARTING ADDRESS

0 OR 1000 IF VECTOR AREA IS
:
PROTECTED.
:
:ADJUST ADDR COUNTER TO PROTECT 0-1000

(SP)
MMO, RE
PC
RAP PARITY ERRORS.
:» BEFORE FINAL EXIT, CHECK FOR ANY NON-T
ANY PARITY REGISTERS PRESENT.
FOR
:CHECK
MPRX
TST
12%:
NONE.
IF
:BR
13%
BEQ
*CHECK FOR PARITY MEMORY ERRORS.
PC,CKPMER
JSR
:STRAIGHT RETURN.
PC
RTS
13%:

108:
118:

MOV
RTS

SEQ 0074

PAGE 63

"..Q...t...."....'t'..".'tt..'.....'.I'....'....Ql..'.t....t'.

7644

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.

~
W
~

o
N

%
000020

—_—

z8:

MOV
MOV
MOV
MOV
SuB
MOV
ADD
MOV

RO, ~(SP)
R1.=(SP)
R3.-(SP)
R& .= (SP)
,
3#K IPAR2
#4600
.BITPT,RO
#40.R0O
#20.R3

ASR

ROR

S08
BCC
MOV
MOV

1008:

166130
00004

166114
000040
000020

172344

000200
100000

3%:
1

346
346

4%:

-d

164566
100000

165772

100000

165722

5%:

;ON PSW RETURN.

;GO TO THE SUBROUTINE
;CHECK FOR MEMORY MANAGEMENT

;IF MMAVA = 0 THEN BR TO NON KT MODE
;:PUSH RO ON STACK
::PUSH R1 ON STACK
;;PUSH R3 ON STACK
;;PUSH R4 ON STACK
;DOWN DATE TO NEXT BK BANK

PLUS1

;SET UP TO MOVE POINTER
;ONE POSITION THRU 20 WORD TABLE
;GET INITIAL VALUE OF BIT

R3,2$
1008

:CONTINUE TESTING UNTIL CARRY BIT SET

-(RO)

(SP) +,Ré4

(SP)+,R3
(SP)+,R1

“MOVE THE POINTER

*:POP STACK INTO Ré

::POP STACK INTO R3
::POP 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

MOV
BR
MOV
ADD
MOV

(SP)+ RO
118
.BITPT RO
#49 ,RO
. TSTMAP R1

BIT

-(RO).-(R1

;CHECK IF BANK IS UNDER TEST

:IF NOT GO CHECK NEXT LOWER 8K

ADD
MOV

BNE
So8

#40,R1
#20,R3

48
R3,3%

;IF YES GO SET UP PARS
;IF NO CHECK ALL POSSIBLES

MOV
ADD
MOV

AKE PAR2 AND PAR3 POINT TO SAME
IPARS;M2
,a#K AR
MKIP
;MAKE KIPAR3 UPPER 4K
#200,3#KIPAR3
;SET UP FIRST ADDRESS + 2
#100000,R2

MOV
MOV
MOV

(SP)+,R3
(SP)+,R1
(SP)+,RO

(SP)+ R4

;:POP STACK INTO R4

TST

MMAVA

;: CHECK FOR 22 BIT ADDRESSING

BEQ

;IF NO ,DO 8K SEGMENT

MOV

oW
N

-I

005767

PC,
MMAVA

MOV

~
W
~

701

166140

NN
non

233882

&
8 Segoge
anagcnuth
lelele]
4

1%:

$CKSWR

JSR
TST

BEQ

172344

sSET UP 8K TEST COUNTER

WIHTOUT USING A ''TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMAC STACK
;PUT THE PROCESSOR STATUS ON THE
-(SP)
MFPS
;HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB

164736

000400

#20000,R5

ROUT INE
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR+*.

004634

166170
000040

700

:«

“»

004767

purd

MMDOWN: MOV

020000

—h

012705

gg\l\l\l\l gS&&‘&‘&‘ggggg&&

R
BeEEs\hEcS \fiE:

o]
lo)leleolelelelolelelelalelalelelolelelelelelelelelelelolee
o (elolelelelelelelelelelelele
oD D o o od b o ed e b ed e e h e e
b v e e
D e
b
D e
b
d e
hB
— vl o
NN
NN
NN
W
NN
WWWWNWNW
NN
NN
N = =
b
b
v
»
HONO
oSO
n HM00
o

PRGN

ORI
N
b ==t =t b =t = 4 D OO OO OO OO

NN NN NN
NN NN NN N N N NNN
b ad D e e
D e

23:00

"tttt.tt!.t..tt"'.fi.t.'..'t.t......'l...'.....'."""l.""Q'l

013556

NN NN NN

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

04~AUG-81 22:59

P11

STty |

(VMSAA

04=-AUG-81

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

BPL
BIT
BNE
BR
BIT

: ;POP STACK INTO R3
; ;POP STACK INTO R1
:POP STACK_INTO RO

;1F NO,CHECK 18 BIT MODE
5%
#BIT15,B1TPT+36 ;TESTING HIGHEST 22 BIT SEG.?
;IF YES,DO ONLY 4K SEGMENT
6%
;IF NO,DO 8K SEGMENT
9%
:TESTING HIGHESTT 18 BIT SEGMENT
#B1T15,BITPT

SEQ 0075

CVMSAA

30(1046) 04-AUG-81 23:00 PAGE 64
0=2 MEGAWORD MEMORY EXERCISER, k&( VER MACY11 ENT
AND ADDRESSING SUBROUTINES.

CVMSAA P11

04~AUG-81 22:59

7%:

MOV
MOV
BR
ASR

#60000,R2
#10000,R5
9%
BITPT

040000
000010 165654 8%:
020000
010000
165716
010000
004000
000001 165616 9%:

BNE
suB
BR
BIT
BEQ
SuB
MOV
TST
BEQ
ADD
ADD
BIT

8s
#40000,R2
7%
#BI1T13,BITPT
9%
#20000,R2
#10000,R5
FLG3CK
9%
#10000,R2
#4000,R5
#B1T0,BITPT

10%:
118:

MOV
RTS

MMORE , (SP)
PC

{‘56
127
3128
21

013774
014000
014004
014006

01%70 060000
01 72 010000
000431
006267 165702

313%
3133
3134
3135
3136
3137
5 %B
3139
3140
3141
316%
3143

014022
014024
0140
014032
014040
014042
014046
014052
014056
014060
014064
014070

001003
162702
000766
032767
001413
162702
012705
005767
001404
062702
062705
032767

014012 103441
1
3131 014014 036767 165674 165532

3144 014076 001405
3145 014100 005767
3146 014104 001402

MORY MANAGEM

165656
3147 014106 162705 000400
3148

3149 014112 016716 165636
g}g? 014116 000207

68:

BCS
BIT

BEQ

TST
BEQ
sus

118
BITPT,TSTMAP

108

FSTADR
108
#400,R5

;DO ONLY 4K SEGMENT
JSET UP 4K WORD COUNTER
:GET OVER NON KT ROUTINE
;POINT TO NEXT LOWEST BANK

:1F CARRY FOR LSB THEN DONE TESTING
;IS THIS BANK UNDER TEST?

;CHECK FIRST ADDRESS = 0 OR 1000
;PROTECT VECTOR AREA 0-1000 FROM
;BEING TESTED IF FSTADR =1000
;SETUP RETURN FOR MORE TESTING
;RETURN

SEQ 0076

.SBTTL

SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS.

-'t....t-tttt't.ttt.t'.i"t't"t.t".""i."t'..."..'..Q...t'!.

164412

017777
000014

PHYADR: TST
BEQ
MOV
MOV
MOV
MOV

MOV
BIC

1%:

MOV

ASR

2%:

SoB
MOV

172340
000006

ADD
MOV
MOV

ASL

3%:

SoB

MOV

BIC

160000

ADD

MoV
MOV
MOV
MOV

EO S S

Db adad

N O

b edaded

o a3

b oD e

b e

wd e

b e

D e

eleleleleBlelelelolelelolelelelelelelelelelelelle]

k af 2F o o o o o o o

Vi
W
.a::-;ara:;—ha;:;ra-a—ha-a—ha

RO (BOTTOM 16 BITS).
IT INt..t..l
AND PUT
ADDRESS'..'t"t
AL .t...l.
ATE PHYSIC
CALCUL
TO
TINE
SUBROU
+
t"'..'t
.ttt...
.'t't.t
'-tt.'ttt't'tttti...t

MMAVA
48

R1,-(SP)
R3,-(SP)
R4 ,=(SP)

RO RS

#17777.RO
#12..R1
RO
R1.2%

#K iPARV,RG
RO,R4
(R&) ,R3
#6.R1
R3

R1.3$
RS.RO
#160000,
RO

:CHECK FOR MEM MGMT AVAILABLE
:BRANCH IF NO MEM MGMT
::PUSH R1 ON STALK
;:PUSH R3 ON STACK
::PUSKH R4 ON STACK
::PUSH RS ON STACK
:SAVE FOR PHYSICAL ADDR. ADDITION
;CLEAR VIRTUAL ADDR BITS
:SET UP ROTATE COUNTER
:TO SHIFT PAR_POINTER
:INTO BITS 0-3
:STORE START OF PARS

:USE PAR POINTER IN 0-3 AS INDEX
:STORE CONTENTS OF PROPER PAR

;SET UP COUNTER TO
;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

(SP)+,R5

; ;POP STACK INTO Ré4

(SP)+,R4

*:POP STACK INTO R3

(SP)+,R3
(SP)+,R1

;:POP STACK INTO R1
sEXIT WITH PHYSICAL ADDR IN RO

165560
000020
000020

»e

1%:

2%:

§E§E

003404

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

ASR
BCS

;FATAL ERROR
.WORD
HALT

3%:

014270

014272

TINE TO PUT BANK NUMBER INTO RO.

INCB
BNE
JSR

e
o

—
P

14266

"ttttfittitttfifi'tifit'tt'titt.ttttitfilt'tfitttttitt"ttit*itttttt't
;INIT RO
RO,
BANKNO: CLR

) e

&~ o

e o

D e

»H bbbbbl}bbbbbl‘b#
~»

gw SO

s rhkkkN t'ttfi.ttttttittt"t*t**.t'fi*itfi.t'tttttttttttit.t.tttt'tt

[eleleBNelelelelelelelelele lolelels

S8 RS S 88 YRR

) e o

el i e ol el

28 BRIERRERRE
ISV AN

—

NNN

SPEAEARARZBIRIRARG

LN N U N U N N N U N N U N N ol
N U el
N eU U
N U N N N N N e
N N eN e
OV v N s
N N
NN il
Ne
O stNN S
N e NN
N NW
e e s i e e e
i e v
e
i
i

1 23:00 PAGE 65
0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-8
CVMSAA
CASE NOISE TESTS.
WORSE
AND
SUBROUTINES FOR ADDRESS
04-AUG-81
C(VMSAA P11

e ol el e ol

4%:

R1,=(SP)
R2.~(SP)
R3.~(SP)
R4 ,=(SP)

BITPT, R1

*:PUSH R1 ON STACK
*:PUSH R2 ON STACK
*iPUSH R3 ON STACK
::PUSH R4 ON STACK

*START OF BIT POINTER TABLE

“SET UP BITPT TABLE COUNTER

PC,

$ERROR

-*** ERROR #*** (GO TYPE A MESSAGE)

:ERROR TYPE CODE.
-FATAL ERROR''' NO POINTER FOUND.

#20,

R2
#20,
(R1)+,R4
R4
4$
RO
38

*SET UP ROTATE COUNTER FOR 1 WORD
*GET WORD TO ROTATE BIT
“ROTATE BITPT WORD TO FIND BANK
*IF CARRY SET ,THEN BANK FOUND
*COUNT BANKS.
*BR IF NOT OVERFLOW.

SOB

R2,

:1F NOT FINISHED ROTATING WORD

SoB8

R3,

“IF NOT FINISHED BITPT TABLE
:THEN ROTATE THROUGH NEXT WORD.

GO BACK AND ROTATE AGAIN

SEQ 0077

23:00 PAGE 66
VER MACY11 30(1046) 04-AUG-81 CASE
CVMSAA 0=2 MEGAWORD MEMORY EXERCISER, ;&
NOISE TESTS.
UBROUTINES FOR ADDRESS AND WORSE
CVMSAA. P11 04~AUG~81 22:59
;:POP STACK INTO R4
(SP)+ R4
MOV
ggg 014272 012604
:;POP STACK INTO R3
(SP)+,R3
MOV
014274 012603
::POP STACK INTO R2
(SP)+,R2
MOV
)
3210 014276 012602
::POP_STACK INTO R1
RI
(SP)+.
MOV
012601
3311 014300
N
sRETUR
PC
RTS
}i 014302 000207
1‘

15
19

014304 004467 176470
3218 014
517

g 014320 000207

% °“‘§
2 106112
014324 106112
1
g
S

9
40
41
loi
43
4

8143 6 106112
106112
14
014332 106112
106112
014
0142436 106112
814 0 106112
014342 106122
14344 106112
14346 182112
14350 106112
014352 106112
014354 106112
14356 106112
014%20 106112
014362 106112
814% 106122

25 14
49'

000207

l.s
Y
000020
012704
E? 014370
i‘

25
54
55

14374

010022

14376 010022
010052
0144
010022
0144

2
4 010%2
g’ 01440
22
018
014406
58

§9

;:tttttt.ttttt'tt'tt'tt"t."t'.‘t'.'.u.fi'.t't..'t.t....tt'ttt.t'
.
ALL OF MEMORY
NT IN RO INTO
THE CONSTA
TO WRITE
TINEttttQ.
“* SUBROU
t"
..t'.'
"...i.
...t.i
..Q...
.'fi.'
f."..t
t'tt"t
::tt.t.ttttt

SETCON:
1%:

JSR
MOV
S8
JSR

RTS

R4,
RO,
RS,
PC.

ADDPRESS POINTERS.
INITMM ;INITIALIZE THE MEMORY
MEMORY
INTO
NT
(R2)+ ;MOV CONSTA
:BRANCH IF MORE IN CURRENT TOBLOCK
1%
1§.
:FIND NEXT BLOCK AND LOOP
MMUP

*RETURN

"t!ttttttfifitttititifi."ti"'tfi..'t'tt"t"ttfi.ttQt"'.'t'ttti't'

ON.
GH A MEMORY LOCATI
'C' BIT THROUtiii'tt
NE TO ROTATE tttt'*'
“%* ROUTIt'tittt
ttt..'...ttt'ttt.t'tttttt
ttfittt
ttt'ttt

3219 814 10 01
3220 Q1a312 077502 176672
1 014314 004767

SEQ 0078

014410 0N 32%

C 14412 01032
3362 014414 010022

3263 014416 010022

‘:ttfi'

ROTATE: ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB
ROLB

(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)+
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)
(R2)+

:(R2)=177776 OR 000001
: (R2)=177775 OR 000002
:(R2)=177773 OR 000004
*(R2)=177767 OR 000010
:(R2)=177757 OR 000020
:(R2)=177737 OR 000040
: (R2)=127677 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
: (R2)=077777 OR 100000
*(R2)=177777 OR 000000

*RETURN
PC
RTS
tt'
;;t't't..'.'t'ltttt'tit.""tt.ittfi..ttttfittt'fit!..tittttttt!t
BLOCK.

“* SUBROUTINE TO WRITE 3 XOR 9 PATTERN INTO 256. WORD
:EACH LOOP WRITES 256. WORDS
#16. R4
wix9: mMov

:'t.t..'tt'tt'i't.tl"'tfittt..itti'tt*itt.ifitt.t..t't't'ttttttttt

2%:

MOV

RO, (R2)+

MOV

R3,(R2)+
)+

MOV

RO, (R2)+

MOV
MOV
MOV

MOV

MOV
MOV

RO, (R2)+
RO, (R2)+
RO, (R2)+

R3.(R2

R3,(R2)+

R3. (R2)+
RO, (R2) +

—

(VMSAA

02 -%t‘;m m?iv EXERCISER, 16K VER MAC Y11 30(1046)

CVMSAA.P11

~AUG~81 22:59

RO, (R2)+

010
010

MOV
MOV

MOV

R3, (R2)+

R3. (R2)+
R3.(R2)+

;g 0144;: 005

BNE
MOV
MOV
MOV

s 016i33 81005

6? 014426 010
014426
014430

4 0144

014436
76 0146440
75 014442
;9 014444

010

0013
010046
010
012603

014446 000207

23:00

PAGE 67

SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS.
MOV

014420

04-AUG-81

—_—

MOV
DEC

RTS

RO.(R®)-

R3,(R2)+
R4

2s
-(SP)
RO
R3,
(SP)+, R3

RO,

;SAVE RO

*RETURN

:PUT R3 INTO RO
*PUT SAVED RO INTO R3

SEQ 0079

CVMSAA

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

CVMSAA.P11
3278
3280
3281

04~AUG-81 22:59

3283
3284
gg
3287
3288
3289
3290
1
g
%
ggg;

%
1
3
g
304
3305

014450

014450
014452
014454
014456
014460
014462
014496
014470
014472
014474
014500

014502
014504
014510
014514
014520
014524
014530
014532

014534
014540
014542
014544

Sg(ob 014546
3307 014552
308
309 014554
310 014556

.SBTTL RELOCATION SUBROUTINES.

;:ttttttttt.ttt'ttt.t't."tt'tltt.ittltt"t.tt.tt..t.t'tnttttttti
;* ROUTINE TO RELOCATE PROGRAM CODE
:".tt......t'.t"fi..'."""'t.t'.Q'..fi...t."..t'.t"'It."..'.'

3279

325%

RELOCATION SUSROUTINES.

010%26
010346
010446
01250
01250
012704 020000
012%%2
005
001375
012704 020000
024243
001417
011267
011367
010267
010367
004767
000023
000000

RELOC:

4$:
1$:
2%:

BEQ
MoV
MoV
MOV
MoV
JSR
.WORD
HALT
SuB
BR
DEC
BNE

164404
164402
164370
164366

003136

162705 000004
000746
005304
001355

3%:

JSR
.WORD

004567 005022
024526

MOV
JSR
MOV
MOV

010346
004767 006526
3311 014562 012604
31§ 014564 012603

014566 012602

§31

314 014570 000205
%315

MOV
MoV
MOV
MOV
MOV
MoV
MOV
DEC
BNE
MoV
CMP

MOV

014600 001404

§ 014602 004767 003060
4 014606 000007

3333

MESSAGE.
$SPRINT ;GO PRINT OUT THE FOLLOWINGTYPED
RS,
BE
TO
MESSAGE
OF
S
;ADDRES
PRELOC
:''PROGRAM RELOCATED TO *'
-(SP) ;PUT THE DATA ON THE STACK.
R3,
STYPAD ;DETERMINE THE PHYSICAL ADDRESS AND TYPE IT.
PC,
(SP)+ R4
(SP)+,R3

(SP) +.R2

;:POP STACK INTO R4
::POP STACK INTO R3

ipOP STACK INTO R2

*RETURN
et bebnisinioiuiaiaininioiiuiaisiinigianiainisiuiaiodpinininuipiaieiainiddy

PRGMAP ;CHECK THAT THE PROGRAM IS NOW IN BANKS O AND 1.

.WORD

;FATAL ERROR'!!!' PROG SHOULD BE IN BANKS O AND 1

MOV
MoV

RO,-(SP)
R1,=(SP)

;;PUSH RO ON STACK
;;PUSH R1 ON STACK

MoV

#7600,

@#KIPAR3 ;SET PAR TO TOP OF MEM

JSR

;FATAL ERROR

5 8}22}% 000000
005767
001441

;ADJUST RETURN POINTER.
;GO BACK AND TRY AGAIN.
s COUNT WORDS.
:BR IF MORE.

CMP
0 014572 022767 000001 163734 RELTOP: BEQ

014616
014622

:BR_IF DATA OK.
;GET SOURCE DATA.
;GET DESTINATION DATA.
:GET SOURCE ADDRESS.
;GET DESTINATION ADDRESS.
$ERROR ;*** ERROR #*** (GO TYPE A MESSAGE)
:ERROR TYPE CODE.
;FATAL ERROR!!! RELOCATION FAILED.

SGDDAT
$BDDAT
$GDADR
$BDADR

w6,
4%
Ré4
2%

RS
RIS
it L L

L Lt

7 014612 010046
014614 010146

3s
(R2).
(R3),
R2.
R3,
PC.
23

;:PUSH R2 ON STACK
::PUSH R3 ON STACK
:;PUSH R4 ON STACK
:GET FIRST LOCATION.
:GET FIRST LOCATION OF DESTINATION.
;SET UP 8K COUNTER.
;MOV THE DATA.
;COUNT THE WORDS.
:BR IF MORE.
;RESET THE COUNTER.
;CHECK THE DATA JUST MOVED.

TO TOP 8K BANK OF 128KW MEMORY.
‘% SUBROUTINE TO MOVE PROGRAM FROM BOTTOM
BE 700000 - 737776
WILL
KT
HIGHEST AVAILABLE BANK WITH
:®
100000 - 137776
BE
WILL
LE BANK NON-KT
HIGHEST AVAILAB
e
bbbdiububnipiaboinieiainieioioiainiaiuiiaiafoinieisiaioisininioiy
L L

316
2317
18
1

Rc.=(SP)
R3,-(SP)
R4 ,-(SP)
(RB)+, R2
(R5)+, R3
#20000, R&4
(R2)+, (R3)+
R&4
18
#20000, R&4
-(R2), =(R3)

163714

014626 012737 007600 172346

012700 100000
014632
014636 162737 000400 172346 28:

HALT
TST
BEQ

MOV
su8

PC,

MMAVA
108

:BR IF OK

$ERROR ;*%* ERROR *** (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

i...HI 128K,
#BIT15, RO
;BACK DOWN ONE BANK.
R3
#400, @#KIPA

SEQ 0080

CVMSAA

0-2

D 7
-81 23:00 PAGE 69
04-AUG
6)
30(104
MACY11
VER
16K
MEGAWORD MEMORY EXERCISER,

RELOCATION SUBROUTINES.
RO
ROR

~AUG-81 22:59
CVMSAA. P11
33, 014644 00600C

8CS

335 014646 103445

ss;e 014650 030067 164640

sg 7 014654 001770 172346 172344 38:
3 gg 0164656 013737 000200
172344 4$:
162737
01
3
163636
030067
ou.ei% 001031
g 01 014976
w.g 014700 004567 177544

3;24 014704 000000
014706 04
3

172340

8IT

BEQ
MOV
SuB
BIT
BNE
JSR

LWORD
"WORD

MOV

90s

RO,

:..L0 64K.

MEMMAP ;CHECK FOR BANK EXISTS.

“BR IF NO BANK FOUND.
28
;COPY PAR
IPAR2
aFKIPAR3,a#K
DOWN WITH LOW PAR.
:BACK
R2
#200. a#KIPA
CONFLICT.
FOR
:CHECK
PRGMAP
RO,
TION OVERLAYS SOURCE.
DESTINA
IF
*ABORT
90$
.
PROGRAM
E
RELOCAT
-GO
RELOC
RS,
*SOURCE FIRST ADDRESS.
O
40000

“DESTINATION FIRST ADDRESS.

#8173, RO

:SET BANK POINTER TO TOP OF MEM.

R? ,a#KIPARD :RELOCATE LO BANK
AFKIPA
a#KIPARS.a#KIPAR1 :RELOCATE HI BANK.

3345 014710 01973:7: 172344
MOV
336 014716 013737 172346 172342 .x PROGRAM
SHOULD NOW BE EXECUTING OUT OF LAST TWO BANKS OF MEMORY.
3347
:BR TO COMMON EXIT.
308
BR
ggzg 014726 000461

3§so 014726 012700 000010

140000
3351 014732 012701
162701 040000

3 sg
3353
3354
gsss
gse

014736
014742
014744
014746
014752

006200
103406
030067 164542
001771
3357 014754 030067 163554

3358 014760 001404
3359 014762
3360 014762 004767 002700
3361

ssei 014766 000007

ggg‘ 014770 000000
014772
3365 014776
336 015002
337 015004

010167 000006
006567 177446
000000
000000

gsoa 015006 010167
39 015012 060107
3370
3371 015014 060106
7§ 015016 010167
73 015022 060137
gn 015026 060137
75 015032 060137
3;9 015036 060167
815042 060167
;3 15043 062701
015052
015056
3381 015060
015062
3
g‘ 015066
015070
ggg 015076

015076
3
gm 015100

163520

163510
000004
000024
000114
164066
164064
002002
066721 163454
005721
001776
024127 177777
001371
010067 163440
012601
012600
066716 163426

3% 015104 000207

108:

118:

908:

MOV

SUB
ASR
BCS
BIT
BEQ
BIT

BEQ
JSR

;FATAL ERROR

LWORD

128:
13$:

HALT

#140000,R1

#40000, "R1
RO
90s
MEMMAP
RO,
11$

R TO TOP
“SET ADDRESSONEPOINTE
BANK.

*BACK DOWN
"MOVE POINTER DOWN ONE BANK.
*BR IF OVERFLOW.
:CHECK IF THIS BANK EXISTS.
“BR IF NON-EXISTANT BANK.

PRGMAP :CHECK FOR A PROGRAM CONFLICT.

?
:FATAL ERROR!'' NOT ENOUGH MEMORY?
ION SUBROUTINE.

128
PC.

*BR IF NO CONFLICT.
$ERROR ;*xx ERROR *** (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

138
RELOC

:SET DATA FOR RELOCAT
:GO RELOCATE THE PROGRAM TO TOP OF MEM.
*SOURCE STARTING ADDRESS.
*DESTINATION STARTING ADDRESS.

MOV
JSR
LWORD
WORD

R1,
RS.
O
0

ADD
ST
BEQ
cMP
BNE
MOV
MOV

RELOCF. (R1)+
(R1)+
.
16$
-(R1), #-1
15
PRGMAP
RO,
(SP)+,R1

-ADD RELOCATION FACTOR TO ADDRESS
‘CHECK FOR INTERUM TERMINATOR.
‘BR SO AS TO NOT MODIFY ZERO.
*CHECK FOR END OF TABLE.
*BR IF MORE IN TABLE.
-SET NEW PROGRAM MAP...LO 64K.
*:POP STACK INTO R1

RTS

*RETURN

IN UNRELOCATED CODE.
RELOCF -SET RELOCATION FACTOR
R1.
MOV
PROGRAM
ED
*JUMP TO RELOCAT
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
A#PURVEC :ADJUST POWER FAIL VECTOR.
R1.
ADD
B#PARVEC -ADJUST PARITY ERROR VECTOR. .
R1.
ADD
:ADJUST SOF TWARE SWITCH REGISTER
SWR
R1.
ADD
REGISTER.
DISPLAY :-ADJUST SOFTWARE DISPLAY
R1.
ADD
ION TABLE.
RELOCAT
E
RELATIV
THE
TO
*POINT
#RADTAB,R1
ADD
14$:
ES IN TABLE.
158:
168:

308:

MOV
ADD

(SP)+.RO
RELOCF, (SP)

*:POP STACK INTO RO
:ADJUST RETURN ADDRESS.

SEQ 0081

GAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 70

0-2

RELOCATION SUBROUTINES.

~AUG-81 22:59

P11

""t.'..Il"........."..t...'...Q.'.'.'...l'I.I.t'..t..'.".'!l

BACK TO BANKS O AND 1.
SUBROUTINE TO RELOCATE PROGRAM
LA A L A L A
T
e
st

sl
s

oD
b b

—

N
oownwnnaae S

005037
012737
004567
000000

040000
005037
012737

g
nNO

—

RN
&
gMY
ONO%

w—

wviwvauviuvioiwg vy
N

) e e ol e e -l ol
— )o o

172344
000200

177276
172340

000200

172346

000000

172342

JSR

PC,

SERROR

.WORD

TST
BEQ
CLR
MOV

;CHECK FOR MEM MGMT.
MMAVA
:BR _IF NO_MEMMGMT.
108
;SET PAR 2 _TO BANK 0.
a#K IPAR2
3
@#KIPAR ;SET PAR 3 TO BANK 1.
#200,

BEQ

JSR

000004

177242

20%:

:x
002002

21%:

000002

22%:

;*** ERROR »+» (GO TYPE A MESSAGE)

;ERROR TYPE CODE.

;FATAL ERROR!'' PROGRAM ALREADY IN BANKS 0 OR 1!!!!

RS,

O
40000

RELOC

;GO MOVE 8K INTO BANKS O AND 1.

;SOURCE STARTING ADDRESS.
;DESTINATION STARTING ADDRESS.

;RESTORE PAR 0 TO BANKO.
a#KIPARO
;RESTORE PAR 1 TO BANK 1.
@#KIPAR1
#200,

MoV

RELOCF, -(SP)

JSR

RS,

MoV

WORD
.WORD
SuB

23%:
30%:

(SP),

0
0
(),

208

RELOC
K

;PUT RELOCATION FACTOR ONTO THE STACK.
;SET DATA FOR RELOC SUBROUTINE.
;GO MOVE THE PROGRAM BACK TO BANKS 0 AND 1.
;S0URCE STARTING ADDRESS.
;DESTINATION STARTING ADDRESS.
;JUMP TO RELOCCATED PROGRAM.

THE PROGRAM IS NOW EXECUTING OUT OF BANKS O AND 1.
suB
MOV

=
(TM,
RO,=(SP)

MoV

#RADTAB RO

Sus

2(SP),

(RO)+

PRGMAP

;RESET THE STACK POINTER.
;;PUSH RO ON STACK

;SET UP POINTER TO RELATIVE ADDRESS TABLE.
;RESET ADDRESSES TO UNRELOCATED VALUES.
;CHECK FOR TERMINATORS.

sus
SuB
suB
CLR

(RO) +
;BR OVER TERMINATORS.
22%
;CHECK FOR END OF TABLE INDICATOR.
=(RO), #=1
;BR IF MORE ADDRESSES IN TABLE.
218
;:POP STACK INTO RO
(SP)+,RO
S#ERRVEC ;ADJUST ERROR VECTOR.
(SP),
Q#PWRVEC ;ADJUST POWER FAIL VECTOR.
(SP),
#PARVEC ;ADJUST PARITY ERROR VECTOR.
(SP),
;ADJUST SOF TWARE SWITCH REGISTER.
SWR
(SP),
DISPLAY ;ADJUST SOF TWARE DISPLAY REGISTER.
(SP),
;ADJUST RETURN ADDRESS.
(SP)+, (SP)
sRESET RELOCATION FACTOR.
RELOCF

RTS

TST
BEQ

sSuB
SuB
suB

163230

;BR IF NO CONFLICT.

CLR
MOV

cMP
BNE
MOV

177777

000004
000024
000114
163644
163642

PROGRAM IS NOW EXECUTING OUT OF BANKS O AND 1.
;BR TO COMMON EXIT.
308
BR

108:

163334

163234
000001

PRGMAP

.WORD
.WORD

000440

011667
004567

”,

HALT

1$:

;CHECK FOR PROGRAM ALREADY IN BANKS 0 OR 1.

BIT

;FATAL ERROR

b
b
D

el i

b
b
od

i
il
i

aanaana
RN
v
oo

—_—

e lelo]

163420

163404

016746

[elelelelelolololelolelelelaleBelele

000001

002544

[elelelelelelelelsleloelele]

032767

015170

MOV

:SET PROGRAM MAP TO POINT TO BANKS O AND 1.
sRETURN.

"tt.t*tti.ttt't'itfittt'tittti'ilfi.t*tttittttfi*tttt.itt'tt"ttti'

FROM
* THIS SUBROUTINE MOVES THE LOADER AREA BACK TO THE ‘‘TOP'' OFTHEMEMORY
OF
8K
OF
+ WHENCE IT CAME. THE LOADER AREA 1S SAVED AT THE END
«

PROGRAM CODE WHEN THE PROGRAM IS INITIALLY RUN.

wwg
—

—h
b
e

:;'ttit.t'tttQtttittttt"t.'tQt.ttttt'ttt.'ttfit'tt'tt!t't't'.tttt

o0O

PSS

S ISPIIIIIIIIIIIIIIIISIIN
PONINORONININUNON)
= = b
3
—a =

3409

aaoauna

RELO:

164176

002346

RESLDR: MOV

BNE
JSR

LMAD,

1$
PC.,

;CHECK IF THE LOADERS WERE SAVED.

BR IF LOADER AREA WAS SAVED.
$ERROR - *#* ERROR *** (GO TYPE A MESSAGE)

SEQ 0082

| CVMSAA

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

| CVMSAALP1T — 04-AUG-81 22:59
3446

347 015

000007

3,48 015322 000000
%49 015326 005767
3,50 msg oou.o;
351 015332 005037
012701
usi 015336 012702
253 015342
2454 015346 014140
2455 015350 005302
356 015352 001375
005067
3457 °‘5§Z‘5
005767
2458 015
359 015364 001402

163206
177572
040000

003000

164130
163152

260 015366 005237 177572
361 015372 000207
3463

364 015374 005767 164110
365 015400 001024

266 015402
2467 015406
2468 015410
3469 015416
24,70 015420
2471 015422
2,72 015424
3473 015432
3474 015434
3475 015440
3,76 015442
34,77 015444

RELOCATION SUBROUTINES.
:FATAL ERROR

1%:
28:
3$:

3,79 015452 000207

HALT
ST
BEQ
CLR
MOV
MOV
MOV
DEC
BNE
CLR
ST
BEQ

:ERROR TYFE CODE.

SAVLDR: TST
BNE

48:

MOV
MOV
MOV
MOV
B8R
CMP
MOV
MOV
MOV
MOV
DEC
BNE

MoV
RTS

SEQ 0083

RESTORE LOADER AREA IF IT WASN'T SAVED.
SFATAL ERROR''' CAN'T
MGMT.
MEM
FOR
:CHECK
MMAVA
‘SKIP IF NO MEM MGMT.
28
LE MEM MGMT.
*DISAB
a#SRO
OF 8K, ASSUME PROG NOT RELOCATED.
END
“GET
#40000, R1
.
COUNTER
“GET
R2
#1536..
AREA.
-(R1). -(RO) :MOVE THE LOADER
*COUNT HOW LONG THE AREA IS.
R2
“BR IF NOT MORE TO MOVE.
3$
SAVED FLAG
*CLEAR MONITOR MGMT.
LMAD
“CHECK FOR MEMMGMT.
MMAVA
‘BR IF NO MEM
4$

“ENABLE MEM MGMT.
HSRO
*RETURN.
PC
4$:
:* ROUTINE TO SAVE THE LOADERS AT THE END OF 8K.
INC
RTS

012700 040000
010001
012737 015422 000004
1%:
011020
;
000776
z8$:
022626
012737 023252 000004
010046
012702 003000
3$:
014041
005302
001375

34,78 015446 012667 164036

LWORD

LMAD
i .

:CHECK IF LOADERS HAVE BEEN SAVED ALREADY.
*BRANCH IF ALREADY SAVED

“GET END OF 8K
#40000, RO
*GET END OF 8K
R1
RO,
TIMEOUT VECTOR
#2%, BMERRVEC :SET UPH FOR
OF MEMORY
(ROJ, (RO)+ :SEARC SEARCHEND
ING
*KEEP
1%
STACK POINTER
(SP)+, (SP)+ :-RESTORE TIMEOUT
#ERRTRP ,@#ERRVEC ;RESETLAST MEMORYVECTOR.
ADDRESS (CONT IGUOUS)
-(SP) :SAVE
RO
R
COUNTE
WORD
UP
“SET
#1536., R2
LOADERS
-(RD). -(R1) :SAVE THE WORDS
*COUNT THE
R2
“BRANCH IF MORE WORDS
38
(SP)+, LMAD

:SAVE LAST MEMORY ADDRESS

*RETURN

0-2

P11

30(1046) 04-AUG-81 23:00 PAGE 72
MEGAWORD MEMORY EXERCISER, 16K VER MACY11 TRAP
SERVICE AND SUBROUTINES.
PARITY MEMORY
~AUG-81 22:59
_SBTTL

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.

SEC 0084
!

::.tlt..'..'.t....t'..'.""'t'..‘.'....."......."'...Q‘ltt'..

% PARITY MEMORY UNEXPECTED ERROR TRAP SERVICE ROUTINE.
« FIND OUT WHICH REGISTER DETECTED THE ERROR.

015454
015460

011667
004567

015464 024465

16343 2
00411 0

ERROR STILL SET AND REPORT LOCATION.
THEN SCAN MEMORY TO SEE IF PARITYtt"....
.fi.".tt-..'t'....'.

;:.'t.t'lttt"ttt.&tt.t"Q".tfit..fi"

PESRV: MOV
JSR

.WORD

MOV

015466 010146

015470
015472
015476
015500
015502
015504
015506

010346
016703 164324
005733
100415
005713
001374
004767 002154

015512 000024
015514 000417
015516 005713

WN—=O
VOO
w

rOK

—

NINININY

VS W=
83CONO
RO

(N NN N N NN N N N U LN N N N N NN N N AN NN N NN
vV VI vy
R
T

015520
015522
015524
015556
015532

001415
005733
100374
004567 004042
024556

015534
015534 004767 001010
015540 004767 002122
015544 000025
015546 004767 000262
8‘{%225 000761

18:

; ***ERROR* *

2%:

38
64%:
2

015554 012603

.WORD
BR
TST

BEQ
TST
BPL
JSR
.WORD

UNEXPT

$BDADR :GET PC OF INSTRUCTION WHICH CAUSED ERROR.
$PRINT -GO PRINT OUT THE FOLLOWING MESSAGE.

;ADDRESS OF MESSAGE TO BE TYPED '
:"'UNEXPECTED MEMORY PARITY TRAP.'

R1,-(SP)

R3,-(SP)
.MPRX, R3
a(R3)+
3%
(R3)
1%
SERROR
PC,
24
43
(R3)

;ERROR TYPE CODE.
JEXIT
;CHECK FOR TABLE TERMINATOR.

;'MORE THAN ONE ERROR FOUND.'
SPRNTQ ;SET UP VALUES FOR ERROR PRINTING.
$ERROR ;*** ERROR *** (GO TYPE A MESSAGE)

MOV

(SP)+,R3

RTI

;:PUSH R3 ON STACK
RS.
;GET POINTER TO PARITY REGISTEERROR
FLAG.
AN
FOR
REG
PARITY
THE
;CHECK
ERROR.
THE
SHOWS
R
REGISTE
;BR IF THIS
;CHECK FOR TABLE TERMINATOR.
;BR IF MORE REGISTERS.
;*** ERROR *** (GO TYPE A MESSAGE)

;BR IF NO MORE PARITY REGISTERS.
4%
;CHECK THE PARITY REG FOR AN ERROR FLAG.
a(R3)+
:BR IF NO ERROR FLAG.
2%
$PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
;ADDRESS OF MESSAGE TO BE TYPED
MTOE
'
PC.
PC.
25
PC.

;:PUSH R1 ON STACK

NO REGISTER INDICATED ERROR

JSR
JSR
LWORD
JSR
MOV

015556 012601

015560 000002

MOV
MOV
TST
BMI
TST
BNE
JSR

(SP),
RS,

(SP)+,R1

PSCAN

;ERROR TYPE CODE.
;GO SCAN MEMORY FOR BAD PARITY.
;GO LOOK FOR MORE ERRORS.

;;POP STACK INTO R3

;:POP STACK INTO R1
sRETURN.

"t.ttt"t.tt.t.t'!.ttltt'itii'ttttttfitttttt“tfittt..tt.ttlt't".

“ROUTINE TO ENABLE PARITY ERROR ACTION ON SMA/MF PARITY MEMORIES

015562
015566
015570
015576
015600
015604
015606
015614
015616
015624
015626
015634

005767
001434
032777
001030
005767
001410
032777
001004
0256727
103415
016737
005037

ECTED
IS MEANT TO CATCH UNEXP
:THIS ROUTINE t.'tt.t
tfi*.t'tt'iQ't‘fitt't.t"it.tit.Ifi'!fi'.t!".'t.
::tlt'!.fit'tt

TST
BEQ
BIT
BNE
TST
BEQ
BIT
BNE
CMP
BLO
164176 000114 SETAE: MOV
CLR
000116

MAMF:
165602
000100 163332
162726
000040 163314
164140 001000

;CHECK IF ANY PARITY REGISTERS EXIST.
MPRX
;EXIT IF NO PARITY REGISTERS.
2
MAMF
FOR INHIBIT PARITY ERROR DETECTION.
:CHECK
aASWR
#SW6,
;EXIT IF NO PARITY ERROR DETECTION.
MAMF 2
:CHECK IF PROGRAM RELOCATED OUT OF BANK O.
RELOCF
;BR IF PROG_IN BANK 0.
SETAE
;CHECK IF VECTORS PROTECTED.
aSWR
#SW5,
:BR IF VECTOR AREA PROTECTED.
SETAE
VECTORS.
:CHECK FOR STARTING ADDRESS ABOVE THE
#1000
FSTADR,
.
;EXIT IF VECTORS EXPOSED TO TESTING
MAMF 2
TRAP VECTOR
.PESRV, @#PARVEC ;SET PARITY ERROR
;PRIORITY LEVEL O ON TRAP
AHPARVE(+2

(=2
(VMSAA
CVMSAA. P11
3536

3537
3538
3539
3540
3541
354§

354
2544
3545
3546

3547

015640

015642
015646
015652
015654
015656
015660

MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)
PARITY MEMORY TRAP SERVICE
~AUG-81 22:59
010346

016703
052733
005713
001374
012603

015662

3564
3565

015742
015746

004767
004767

357

164154
000001

MAMF2:

580
581

SB%
583
584
gSBS
586
§587
588
3589
3590
3591

TST

BNE
MOV
RTS

.MPRX,
#AE ,
(R3)

R3
a(R3)+

PAGE 73

::PUSH R3 ON STACK

:GET PARITY REGISTER TABLE POINTER.
:SET ACTION ENABLE BIT IN PARITY REG
:CHECK FOR END OF TABLE.

:BR IF MORE PARITY REGISTERS.
::POP STACK INTO R3

MAMF 1
(SP)+,R3

:RETURN.

-'tt't'tt'tlt.tfi"l.t.tt"tttt..t.titttt".t"ltt"t..t't'..'.'.t

015742

015752
015754
015760

(15762
015764
015766

000027
004767
005713
001351
012603
000207

CHGG2:

165502

000100

000001

SCHECK IF ANY PARITY REGISTERS EXIST.

CKPMER: TST

MPRX

BIT

#SW6.

a@SWR

PC.
PC.

SPRNTQ
$ERROR

-SET UP VALUES FOR ERROR PRINTIN
:*** ERROR *** (GO TYPE A MESSAGE)

:GO SCAN ALL MEMORY FOR PARITY ERRORS.

BEQ

163232

164114

1%:
177776

BNE
MOV
MOV
TS
BFL
BIT
BEQ

JSR
JSR

64%:

000072

JSR

PC.,

PSCAN

000602
001714

658:

JSR
JSR

PC.
PC.

SPRNTQ@
$ERROR

JSR

PSCAN

RTS

000054

,',R"'°R°

_WORD

3$:
48:

ST
BNE
MOV

“BR IF NO PARITY REGISTERS.

:CHECK FOR INMIBIT PARITY ERROR CHECKING.

‘BR IF PARITY ERROR CHECKING INHIBITED.
43
*:PUSH R3 ON STACK
R3,-(SP)
“GET PARITY REG TABLE POINTER.
MPRX, R3
THE PARITY REG FOR AN ERROR FLAG.
“CHECK
a(R3) +
ERROR
NO
IF
*BR
3$
A TRAP SHOULD HAVE OCCURRED.
IF
:CHECK
#BITO. @-2(R3)
CHGG2
ACTION ENABLE.
NO
IF
“BR
28
G.

000622
001734

(R3)
1%
(SP)+,R3

“ERROR TYPE CODE.

:SET UP VALUES FOR ERROR PRINTING.
-*#* ERROR *** (GO TYPE A MESSAGE)
‘ERROR TYPE CODE.
-GO SCAN ALL MEMORY FOR PARITY ERRORS.

“CHECK FOR TABLE TERMINATOR.
‘BR IF MORE.
*:POP STACK INTO R3
*RETURN.

::t!itt.tit'.tt!t.ttt'lt't"i'tttt'tItttt.tfittl'ttt'tttt'tttttttt

357
3574
3575
3576

577
578
§S79

MAMF1:

MOV
BIS

R3,-(SP)

23:00

AND SUBROUTINES.

"ttt..ttttt'ttttt'.t'

005767
001437
032777
001033
010346
016703
005733
100023
032773
001410
004767
004767
000026
000411
004767

3569
3570
3571

PARITY REGISTERS FOR ERRORS THAT DIDN'T TRAP.
SUBROUTINE TO CHECK
.t"tt"t.t.ttlfifitiQttitli..'t.t'.'..'t.t..

015662
015666
015670
015676
015700
015702
015706
015710
015712
015720
015722
015726
015732
015734
015736

3566
567
568

MOV

000207

3548
3549
3550
3551
355§
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563

04-AUG-81

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
‘« RETURN+2 IF ERROR,MEM BANK
t.t'tttt.lttttttt"tt"tt'.t
;:'t"ttQQltttttt'ltttt*tt'i*'tttfi"t

015770
015770

015772
015774
015776
016002
016006
016010
016012
016014
016016
016020

010046
010146
010446

012700
016701
010304
005724
032124
001003
005300
001374

PARMAT:

000020
164006

1$:

MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1.-(SP)
R4 .- (SP)
#20,R0O
.BITPT,R1
R3,R4

: :PUSH RO ON STACK
*2PUSH R1 ON STACK
“IPUSH R4 ON STACK
*COUNT OF PARITY MAP TABLE
"MEM BANK UNDER TEST POINTER
*STORE PARITY MAP TABLE

BNE
DEC
BNE

2%
RO
1%

BR IF MATCH MADE IN TABLES
DO NEXT WORD IN TABLE
“BR TO NEXT WORD IN TABLE

ST
BIT

(R)+
(R1)+, (R4)+

"MOVE PAST CSR ADDRESS TO MAP TABLE
“CHECK FOR TABLE MATCH

SEQ 0085

) 04-AUG-81 23:00 PAGE 74
(VMSAA
0-2 ME GAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046
PARITY MEMORY TRAP SERVICE AND SUBROUTINES.
04~-AUG-81 22:59
| CVMSAA. P11

RO
R1
R2

= BANK POINTER
= PARITY CSR TABLE POINTER (MPRX)
= ADDRESS POINTER

TEMP

= TEMPORARY STORAGE

R3
R&

JSR

000114

= PMEMAP TABLE ENTRY
= ERROR DETECT FLAG

040000

016164

163600
163626

016162
016170

9 016174

016156

28:

3$:

$PRINT

PC,CLRPAR

MOV
MOV

#81T0,RO
.PMEMAP ,R1

an1é
R4
R2

MMAVA

::PUSH RO ON STACK
““PUSH R1 ON STACK
*“PUSH R2 ON STACK
**PUSH R3 ON STACK
*“PUSH R4 ON STACK

-GO PRINT OUT THE FOLLOWING MESSAGE.
*ADDRESS OF MESSAGE TO BE TYPED
“*'SCANNING MEMORY FOR BAD PARITY''

GO INITIALIZE PARITY CSR'S

1:PUSH a#114 ON STACK
“iPUSH a#116 ON STACK
*SET UP PARITY VECTOR TO

"HALT IF ANOTHER PARITY ERROR OCCURS
“INITIALIZE ERROR DETECT FLAG
*INITIALIZE ADDRESS POINTER

“INITIALIZE BANK POINTER
“POINT TO PMEMAP TABLE

“IF MEMORY MANAGEMENT NOT AVAILABLE
THEN BRANCH

MOV
MOV
CLR
MOV
MOV

K IPAR2 , - (SP)
a4K IPAR3. - (SP)
4K IPAR2
#200,a#KIPAR3
#40000,R2

BIT

BNE
ADD
B8R

RO, (R1)

28
#40000,R2
108

:IF 8K BANK DOES EXIST

MOVB

MOV

(R2).TEMP

.MPRX,R3

-READ THE BYTE LOCATION

a(R3)+

-IF NO ERROR FLAG SET IN CSR

BEQ

1$:

RS.
SCANM

a#i14,-(5P)
a#116.~(SP)
#116,a4114

172346

RO,=(SP)
R1.-(SP)
R2.=(SP)
R3.-(SP)
R&.=(SP)

MOV
MOV
MOV

CLR
CLR
CLR

016102

016154

MOV
MOV
MOV
MOV
MOV

JSR
_WORD

n
n

016070
016076

PSCAN:

UPON FINDING THE LOCATION(S) A MESSAGE

;;'tttttt't!'tt.tt..t'.t"i'ttt'...'.t..'.il."tt..ttt....ttt".'

016152

::POP STACK INTO RO

;gP)*.RO

STORAGE USED:

e
e

e
e
x

é;

.:POP STACK INTO R4
*1POP STACK INTO R1

AFTER A PARITY ERROR IS ENCOUNTERED THIS SUBROUTINE IS USEDBYTE LOCATIONS
TO SCAN ALL PARITY MEMORY PER THE PMEMAP TABLE LOOKING FOR

016104
016106
016112
016116
016122
016124
0161
0161
016140
016146

36
g231
3§
36
36
;2 5

(SP)+,Ré4
(S5P)+.R1

“+ WILL BE TYPED AND THE LOCATION WILL BE REWRITTEN IN ORDER TO RESTORE GOOD PARITY.

016054
016060
016064

MOV
MOV

*NO MATCH MADE ,RETURN +2

‘+ CAUSING THE PARITY ERROR.

(RS)+

'-t.fi.t'tt..........tt't't.'t'.t.fiit."tt.'..'..t..'tt.'.""..'t

016034
016034
016036
016040
016042
016044
016046
016052

:gg

016030
016032

3613
3614
3615
3616
3617
3218
19
362?

36%5
6

’

012604

360
3604
3605
3606
3607
3608
3609
3610
3611
361%

00572°

o
o

3596
3597
3598
3599
3600
3601
360%

016022
016024
016024
016026

geessg

;59%
593
3594
3595

SEQ 0086

< :PUSH @a#KIPAR2 ON STACK
**PUSH @4KIPAR3 ON STACK
PAR2 TO 0
ALIZE
:INITI
PAR3
LIZE
- INITIA
ADDRESS POINTER TO MAP THRU PAR2
LIZE
*INITIA
*" THEN BRANCH
* ELSE UPDATE ADDRESS TO NEXT BK BANK UE TESTING
© " AND BRANCH TO SEE IF SHOULD CONTIN

“POINT TO PARITY CSR TABLE

?‘2 MEGAWORD MEMORY EXERCISER, 16k VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 75

04-AUG-81 22:59
P1
016176 100024
016200
016202
01804
016210

005704
001003
005367 162672
005204

016512

016212 004767 000332

01316 004767 001444

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.
: THEN BRANCH
5%
8PL
* ELSE IF NOT FIRST ERROR
A ¥

64%:

SEREREREREES%%SESRESEREREREEg£5

016222 000030

R4
SERTTL
R4

BNE

ST
DEC
INC

JSR

PC.

JSR

_WORD

PC.
30

THEN BRANCH

ELSE ADJUST ERROR COUNT
AND SET ERROR DETECT FLAG

:
:

G.
SPRNTQ :SET UP VALUES FOR ERRORAPRINTIN
MESSAGE)

(GO TYPE
$ERROR -*%* ERROR ***
CODE.

(R2),(R2)
(R2)

:ERROR TYPE

*REWRITE LOCATION TO CLEAR BAD PARITY
CSR
*CLEAR ERROR FLAG IN PARITY
*REREAD LOCATION TO SEE IF ERROR CLEARED

016224 111212
81 6 005053
1os71§
1

MOVB
CLR
ISTB

a-(R%)

0162% 004567 003332
016242 024664

JSR
_WORD

RS,
PEWNC

NG MESSAGE.
$PRINT -GO PRINT OUT THE FOLLOWI
*ADDRESS OF MESSAGE TO BE TYPED

ST
BNE
INC

(R3)
3
R2

:IF NOT DONE WITH TABLE
*" THEN TRY NEXT CSR FOR ERROR
* ELSE UPDATE ADDRESS POINTER

FLG30K

* ELSE IF NOT 30K SYSTEM

ST
BEQ

016232 00573
016234 001405

016244 005073 177776

016250 005713
016252 001350
016254 00520

CLR

5%:

a(R3)+
5%

a-2(R3)

*IF ERROR CLEARED
:" THEN BRANCH

“"PARITY ERROR WILL NOT CLEAR"

* CLEAR PARITY CSR

*IF MEMORY MANAGEMENT AVAILABLE
*" THEN BRANCH

ST
BNE

MMAVA
7%

016270 001404

BEQ

000423
016
016302 022702
016306 001463
016310 000417
016312 022702
016316 001014
016320 005767
O16§ 4 100405
016326 022737
001444
016334
016336 000404
816340 022737

177600 172346 8S%:

B8R
CMP
BEQ
B8R
cMP
BNE
TST
BM]
CMP
BEQ
BR
CMP

#170000,R2

ELSE TRY SOMEMORE
:
9s
;IF 28K 1/0 PAGE
#160000,R2
*" THEN ALL DONE CHECKING MEMORY
148
* ELSE TRY SOMEMORE
9%
:IF NOT POSSIBLY THE 1/0 PAGE E
#60000,R2
*" THEN BRANCH AND TRY SOMEMOR
9%
* ELSE IF 22 BIT ADDRESSING AVAILABLE
MMAVA
THEN BRANCH
:
8$
ELSE IF 128K 1/0 PAGE
#7600.34K1PAR3 :
THEN ALL DONE
:
138
ELSE TRY SOMEMORE
:
9%
:IF 2M 1/0 PAGE
#177600, a#K IPAR3

9% :

BIT

#MASKBK ,R2

MOV
ADD
CMP
BEQ

#40 RO

016256 005767 162254
016262 001013

016264 005767 163504

CMP

016272 022702 170000

BEQ

016%8 001467

16346 001437

160000

7%:
060000
162212
007600 172346

016350 032702 037777
016354
016356
016360
016362

6$:

001303
006300
001012
062701 000002

016366 016700 163420
700 000040
016372
016376 020001
016400 001422

108:

BEQ

BNE
ASL
BNE
ADD

THEN BRANCH

ELSE IF 30K 1/0 PAGE

138

THEN ALL DONE CHECKING

2%
RO
118
#2.R1

*" THEN TRY ANOTHER ADDRESS
:IF NOT DONE WITH 128K BANK
: THEN BRANCH
* ELSE POINT TO NEXT PMEMAP ENTRY

14$

.PMEMAP ,RO
RO,R1
13$

;

THEN ALL DONE CHECKING MEMORY

:IF NOT DONE WITH THIS 8K BANK
*START OF TABLE
*END OF TABLE
“IF DONE WITH TABLE
*" THEN ALL DONE

SEQ 0087

(VMSAA

CVMSAA P11

04~AUG-81 22:59

g;gg

016402

01270C

000001

3706
3707
§708

0164
016412
016414

005767
001004
032700

162124

g;}?

016422

000653

709

b14!
3713
3714
3715

3716
3717

3718
§;19

0164

016‘%3
0164
016440
016444
016446

016446
016452

001016

000400
000400
040000

012637
012637

172346
172344

7 %

016460

g; g

016466

3726

3727
3728
3729
3730
3731
g?gg
;3‘

016462

016470

016470
016474
016500
016502
016504

016506
016510

001003

003106

012637
012637
012604
012603
012602

000116
000114

024026

3741
742

743
744
3745
74
74

748

3749
750

751
75
75
g?S&
755
756
757

758

3759

12%:

13%:

15%:

ELSE REINIT BANK POINTER

#8170,RO

;

TST
BNE

MMAVA
12%

;IF KT AVAILABLE
; THEN BRANCH

ADD

#400,a#KIPAR2

;UPDATE PARS TO MAP TO NEXT

MOV
MOV

(SP) +,a#K]PAR3
(SP) + ,a#K1PAR2

TST
BNE

R4
15%

MOV
MOV
MOV
MOV
MOV
MOV
MOV

(SP)+,a#116
(SP)+,a#114
(SP)+ ,R4
(SP)+,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,R0O

::POP STACK INTO a#116
::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

ADD
MOV
BR

JSR
.WORD

16%:

737

23:00 PAGE 76

MOV
BIT
BNE
BR

012601
012600

016512 000207
3735
736
738
739
740

118:

14%:

004567

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.

000020

062737
062737
012702
000642

7;? 016456 005704

3723

04-AUG-81

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

;

#8174 RO
149
1%
#400,a#KIPARS
#40000,R2
1%

RS,
NOPES

$PRINT

ELSE IF AT 32K LIMIT
THEN ALL DONE CHECXING
ELSE TRY SOMEMORE

; 8K BANK
:REINIT ADDRESS
:AND TRY SOMEMORE

:;POP STACK INTO a#KIPAR3
::POP STACK INTO a#KIPARZ2
;IF ERROR FOUND
: THEN BRANCH

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED

""'t.'t"t'.'tflttfi'.'tt'ttt'tt.tfiitttt.'ttt'ttlttttttttQttttttt

ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT

016514
016514

016516
816552
0165264
0165;8
8165
016532

816532
016534

010346

016703
005713
00140
00503
000774

::t...".'Qtt'...t'.‘*.itfi"'*'t'it.'*.tfi‘fit..i'fi't"i.it*ttfi".'
CLRPAR:

163300

1%:
2%:

012603
000207

010267

005067

162346

R3,-(SP)
.MPRX, R3
(R3)
2%
a(R3)+
:
1%

::PUSH R3 ON STACK
:GET PARITY REGISTER TABLE POINTER.
:CHECK FOR THE TABLE TERMINATOR.
:BR IF DONE ALL PARITY REGISTERS.
:CLEAR THE PARITY REGISTER.
;BR FOR MORE

(SP)+,R3

;:POP STACK INTO R3

sRETURN.

.
FOR ERROR PRINTOUT ROUTINE
SUBROUTINES TO SET UP DATA t"fittt
t*
t!tttt.
t*'tltt
ttt..tt
t'tttt'
"Ittttt't'ttfi'ttt.tt*tt'ttt
(.SCMTAG)
AREA
TAG
‘% THESE ROUTINES ARE USED TO TRANSFER DATA TO COMMON
(*+,
**SYSMA
S FROM
.SERROR & .SERRTYP ROUTINE
‘«+ FOR ERROR PRINTOUT BYt"ttt.
tit.
!"'!tt
t't'lt
litlti
fititt
i'tfii
"tt't'tttt.'t'tttttttttt
$GDADR :SAVE THE ADDRESS UNDER TEST.
R2,
SPRNT: MOV
*SHOULD BE DATA IS ‘0.
$GDDAT
CLR
.

016542

MOV
RTS

.SBTTL

016536

MOV
MOV
TST
BEQ
CLR
BR

SEQ 0088

CVMSAA

0=2

PAGE 77
MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00
SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE.
~AUG-87 22:59

3760

016546

000435

37
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
37764
3775
3776
3777
3778

016550
016554
016560
016566
016572

CVMSAA . P11

010267
005367
000407

016620
01 66%3
0166
016636
016642
016646

010367
010267
162767
010067
010167
000207

2324
62260
000002
62252

162252

62250

(R3),
R2,

$TMPQ
$GDADR

;GET THE PARITY REGISTER ADDRESS.
;GET THE MEMORY ADDRESS BEING TESTED

SPRNT1: MOV

R2,

$GDADR

SPRNT3: MOV
SPRNTZ2: MOV

R3,
R2,

$TMPO
$GDADR

SuB
MOV
SPRNTA:
SPRNTB: MOV
SPREND: RTS

TEMP,$BDDAT
R2,$GDADR
SPREND

SPRNTA

$GDADR
SPRNTA
K2,
RO,
R1,

$GDADR
$GDDAT
$BDDAT

;BR TO COMMON SECTION.

;GET THE MEMORY ADDRESS BEING TESTED

;ADJUST IT FOR PRINTOUT.
;BR TO COMMON SECTION.

;GET THE DATA IN R3.
;GET THE MEMORY ADDRESS BEING TESTED
;ADJUST IT FOR PRINTOUT.
;GET WHAT THE DATA SHOULD BE
;GET WHAT THE DATA WAS

;RETURN TO ENTER ERRCR ROUTINES

T
TR
T
R TR

:
H
:
H
:

R AR

IR AN
AR
AR RA
AE
AAAN KRR
RR
AARKAAA
AR
ARRARRR
RRRA
AR AAAAARAATR

794

THIS ROUTINE WILL TYPE OUT A MAP OF MEMORY BANKS.
UPON ENTERING THIS ROUTINE RO WILL CONTAIN THE ADDRESS

OF THE TABLE TO BE TYPED OUT.

TABLE CONTAIN 16 DECIMAL WORDS.
STORAGE USED:

RO
R1
R2

R3
R4
LMEMLO
LMEMH]
BNKTAB

THE ROUTINE REQUIRES THAT THE

MAP TABLE ADDRESS

= BANK POINTER

= 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

ENDBKT = LAST ADDRESS + 2 OF TABLE TO BE PROCESSED
FLG30K

= 30K MEMORY FLAG

3805
%
3808
3809
gg}?

016702
016706

381 §

016710

000167

000426

3814
3815

016714
016720

013700
010146

017350

016674
016700

PMAP: MOV

017350
000040
017352

016654
016662
016666
016670
016672

016650

"tittttt't!tfittt.t"*ttt'tttittit.i'tt'itt'tittttttti*tt'ltttti'

010037
012737
060037
005710
001011
005720
023700
001372
004567
024252

381

SPRNTP: MOV
SPRNTO: MOV

MOV
MOV
BR

DEC
BR

— -2
o

016606
016612
016616

3785
3786
3787
3788
3789
3790
3791
3792
§793

380§
%gg‘

;GET THE PARITY REGISTER ADDRESS.
;GET THE CONTENTS OF THE PARITY REG.

378
3784

3795
3796
3797
3798
3799
3800
3801

-(R3), $TMPO
@a(R3)+, $STMP1

N NN IR R

378

016574
016600
016604

SPRNTB

SPRNTQ: MOV
MOV

PRI N

3779
3780
3781

162330

_—

3761

017352

18:

MOV
ADD
ST
BNE

CMP
BNE

017352

JSR
_WORD

002666

JMP

28:

MOV

RO, a#BNKTAB

;SAVE ADDRESS OF TABLE

(RO) +

#40,a#ENDBKT
RO, S¥ENDBKT
(RO)
2%

AHENDBKT ,RO
1$
RS,
NOMEM

138

$PRINT

AMBNKTAB, RO
R1.-(SP)

-LOAD END BANK TABLE WITH 40
“GET LAST ADR + 2 INTO ENDBKT
*ANY MEMORY IN THIS TABLE ENTRY
* THEN GO PRINT OUT LOCATIONS

ELSE POINT TO NEXT TABLE ENTRY

*IF NOT END OF TABLE
*" THEN TRY AGAIN

-GO PRINT OUT THE FOLLOWING MESSAGE.
*ADDRESS OF MESSAGE TO BE TYPED
“*NO MEMORY FOUND."

CEXIT

-RESTORE MAP TABLE ADDRESS

;;PUSH R1 ON STACK

SEQ 0089

0-2 ME GAWORD MEMORY EXERCISER. 16K VE R MACY11 30(1046)

MOV

TEMP
#-1,R3
R3,R4
#1,R2

3%:

MoV

#B81T0,R1

s INIT BANK POINTER

A ¥

BIT
BEQ
ADD

R1.(RO)
5%
#40000,R3

2
—

177777
161516
162744

010000

000003

SZg
FRNROS RIS

#177777 ,R3
9%
MMAVA
7$
6%

FLG30K

#10000,R3

; 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
THEN GO ADJ TO 28K BOUNDARY
ELSE ADJ TO 30K BOUNDARY

;AND GO PRINT

cMP
BNE
BR

#3,R4
9%
8%

;IF _NOT 128K BOUNDARY
: THEN GO PRINT

;

ELSE GO ADJ TO 124K BOUNDARY

7%:

CMP
BNE

#77 R4
9%

;IF _NOT 2M BOUNDARY
: THEN GO PRINT

020000

8%:

sSuB

#20000,R3

;ADJ HIGH MEMORY TO BELOW 1/0 PAGE

MOV
MOV
MOV
MOV
JSR

R3,-(SP)
Ré ,=(SP)

::PUSH R3 ON STACK
;:PUSH R4 ON STACK
;:PUSH LMEMLO ON STACK
;:PUSH LMEMHI ON _STACK

. WORD

00606
016746

;IF CONSECUTIVE ZERO BANK
; THEN DO NOT PRINT MESSAGE

000077

9%:

e
e o
e e
oe o

6%:

THEN GO PRINTOUT MAP
ELSE UPDATE HIGH MEM TO TOP OF THIS BANK

:
:

GO CHECK FOR NEXT BANK

TST
BNE
INC
cMP
BNE
TST
BMI
BNE
TST
BEQ
suB
BR

;IF THIS 8K BANK IS NOT PRESENT

“CLEAR CONSECUTIVE ZERO BANK FLAG

CLR

5%:

elalelelelelelelele)

SEEeEe

ADC

LMEMH]

040000

VBN W =00V~
-

R4 ,-(SP)
LMEMLO

016762
016764
016766
016772
016774
016776

R3,-(SP)

(TETEIE

000001

;:PUSH R2 ON STACK
:;PUSH R3 ON STACK
;:PUSH R4 ON STACK

R2.=(SP)

MOV
MOV

CLR
CLR

000001
016756

PAGE 78

sINIT LOW MEM ADR ... LO 16 BITS
sINIT LOW MEM ADR ... HI 6 BITS
sINIT LAST BANK IN MAP FLAG
sINIT HIGH MEM ADR ... LO 16 BITS
INIT HIGH MEM ADR ... HI 6 BITS
sINIT CONSECUTIVE ZERO BANK FLAG

163024
177777

&
W

3871

MOV
MOV
MoV
CLR

04~-AUG-81 22:59

23:00

S UBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE.

000410
0004

wn-=0O O

Ve~

gEssEsEsEResReRR
s BERTRESEERSEERERResEEEE

CVMSAA
CVMSAA. P11

04-AUG-81

ASL
ROL
ROR
ASL
ROL
ROR
Mov

LMEMLO,-(SP)
LMEMHI ,-(SP)

R5,

FROM

$PRINT

;GO PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED
sSHIFT BIT 15 INTO CARRY

*SHIFT BIT 15 TO ALIGN WITH BITS 17-16

LMEMLO
LMEMHI
LMEMLO

LMEMHI ,-(SP)

;RESTORE BITS 14-0
sSHIFT BIT 15 INTO CARRY
*SHIFT BIT 15 TO ALIGN WITH BITS 17-16
;RESTORE BITS 14-0
;:SAVE LMEMHI FOR_TYPEOUT
;:TYPE ADDRESS BITS 21-15

SEQ 0090

CVMSAA

79
0-2 MEGAWORD MEMORY EXERCISER, ;6K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE
T ROUTINE.

CVMSAA. P11

04~AUG-81 22:59

SEQ 0091

UBROUTINES TO SET UP DATA FOR ERROR PRINTOU

387
387
3874 017132 106746
3875 017134 105066 000001

ROUTINE
PROVIDE AN INTERFACE TO THE STYPOS*+.
;* THE NEXT TWO INSTRUCTIONS
**SYSMAC
BY
TION AS CALLED FOR
‘« WIHTOUT USING A "‘TRAP'' INSTRUC
;PUT THE PROCESSOR STATUS ON THE STACK
-(SP)
MFPS
;HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(sP)
CLRB

003
017144
000
017145
017146 016746 000172

2:TYPE 3 DIGIT(S)
.BYTE 3
::SUPPRESS LEADING ZEROST
.BYTE 0
;:SAVE LMEMLO FOR TYPEOU
(SP)
,
LMZMLO
MOV
;:TYPE ADDRESS BITS 14-0
ROUTINE
AN INTERFACE TO THE $TYPOSw+.
PROVIDE
TIONS
;* THE NEXT TWO INSTRUC
=*SYSMAC
BY
FOR
CALLED
AS
TION
INSTRUC
'‘TRAP''
A
‘« WIHTOUT USING
;PUT THE PROCESSOR STATUS ON THE STACK
-(SP)
MFPS
sHIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB
;ON PSW RETURN.
$TYPOS ;GO TO THE SUBROUTINE
PC,
JSR
2:TYPE 5 DIGIT(S)
BYTE 5
:: TYPE LEADING ZEROS
1
BYTE
;GO PRINT OUT THE FOLLOWING MESSAGE.
$PRINT
RS,
JSR
;ADDRESS OF MESSAGE TO BE TYPED
.WORD TO
:;SAVE R4 FOR TYPEOUT
R4 ,-(SP)
MOV

77 017140 004767 003656

3878
3879
3880
3881
388%
3}33‘
3885
3886

017152 106746
017154 105066 000001

7 017160 004767 003636
005
017164
001
3889 017165

2890 017166 004567 002402
3891 017172 023637
3892

389§

017174 010446

017176 106746
017200 105066 000001

JSR

s«
*»

017226

17227

817 56
17
017
017270
017276

005504
010367
010467
oegm
005567

108:

017302 006301

11%:

017304 001226

3
0

PC,

R3,-(SP)

:PUT THE PROCESSOR STATUS ON THE
:»&Ggssv;gr&gmso TO INSURE KERNEL MODE

SUBROUTINE
-GO TO THEDIGIT(S
$TYPOS S:TYPE
)
3

’

* 'SUPPRESS LEADING ZEROS

*:SAVE R3 FOR TYPEOUT

*:TYPE ADDRESS BITS 14-0

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE

MFPS
CLRB
JSR

-(SP)
1(SP)
PC,

BYTE

MOV
MOV
MOV
MOV
ST
BNE

017352 882703 040000

000060
000056
000007 000046
000044

BYTE
BYTE

JSR

BYTE

001

012667 000112
012667 000104
012604
012603
88 67 162520
001030

-(SP)
1(SP)

CALLED FOR BY **SYSMACw+.
"« WIHTOUT USING A ''TRAP'' INSTRUCTION AS PROCES
SOR STATUS ON THE STACK

005

17230
17
17240
17242
17244
017250

MFPS
CLRB

MOV

.«

017214 106746
017216 105066 000001
017222 004767 003574

BITS TO21-15
;:TYPE ANADDRESS
THE $TYPOS ROUTINE
INTERFACE

000

017212 010346

$TYPOS GO TO THE SUBROUTINE

THE NEXT TWO INSTRUCTIONS PROVIDE
WIHTOUT USING A '‘TRAP'' INSTRUCTION AS CALLED FOR BY **SYSMAC#*.
STACK

003612
017204 004767
003

017210
017211

;ON PSW RETURN.

:PUT THE
.-gg‘sgsev;gr&zmeo TO INSURE KERNEL MODE
$TYPOS -GO TO THE SUBROUTINE

(SP)+,LMEMHI
(SP)+.LMEMLO
(SP) +.R4
(SP)+.R3
TEMP
148

“:TYPE 5 DIGIT(S)

*:TYPE LEADING ZEROS

- :POP STACK INTO LMEMHI
::POP STACK INTO LMEMLO
L:POP STACK INTO R4
.
**POP STACK INTO R3
?
PRINTED
MAP
IN
BIT
“HAS LAST
“YES,EXIT TO STACK CLEANUP

ADD

#40000,R3

:UPGRADE TO TOP OF THIS BANK

ASL

:POINT TO NEXT BK BANK

ADC
MOV
MOV
ADD
ADC

BNE

R4
R3,LMEMLO
R4 . LMEMHI
#1.LMEMLO
LMEMH]

JX |

:
"UPDATE LMEM TO THIS BANK
;
“GET TO NEW LOW ADDRESS OF NEXT BANK
:

“BRANCH IF MORE TO TEST IN THIS MAP ENTRY

CVMSAA
0-2
CVMSAA. P11

TINES TO

-AUG-81 22:59

—

005720
3931

) 04-AUG-81 23:00 PAGE 80
GAWORD MEMORY EXERCISER, 16K VER HACV1(1J 30(1046
UP DATA FOR ERROR PRINTOUT ROUTINE.
023700

017352

005760

177776

001220
10000

005267
000623

TST

128:

012604
01260
012602
012601

017344
017346

017350
017352

(RO) +

;UPDATE POINTER TO NEXT TABLE ENTRY

148

;IF ZERO,TYPMAP PRINT COMPLETED

cMP
BNE
1ST

SFENDBKT RO
3
-2(R0O)

INC
BR

TEMP
5%

BPL

162440

SET

;IF NOT DONE WITH TABLE
; THEN TRY AGAIN
sCHECK IF LAST BANK AVAILABLE

;ELSE SET LAST BANK PRINT FLAG
sPRINT FOR LAST BANK

MOV

(SP) + R4

;:POP STACK INTO R4

MOV
MOV
MOV

;;POP STACK INTO R3
;:POP STACK INTC R2
;;POP STACK INTO R1

(SP)+,R3
(SP)+,R2
(SP)+ R1

000207

138:

RTS

JRETURN TO CALLER

000000
000000
000000
000000

LMEMLO:
LMEMHI:
BNKTAB:
ENDBKT:

.WORD
.WORD
.WORD
.WORD

O
O
0
O

; 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

; TO BE PROCESSED.

"fit."tttttttttttfi..""t'..t.'tt...ttt"l!tttttfitt'.t.ttflttttt'

TS. IT WILL INCREMENT
“*THIS ROUTINE CONTROLS THE LOOPING OF SUBTES
Y REG. (DISPLAY<7:0>)
DISPLA
THE
INTO
M)
(STSTN
:«AND LOAD THE TEST NUMBER
AY<15:08>
:«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPL
NE ARE:
:«THE SWITCH OPTIONS PROVIDED BY THIS ROUTI
LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

s *SW14=1
;xSW11=1
; *SW09=1

LOOP ON TEST IN SWR<4:0>

;*SW08=1
s*CALL

$SCOPE:

017354

017354
017356

106746

105066

:*
“»

000001

0010462

017376

004767
010516
032777
001117

017400

000416

17402

013746
012737
005737
012637

000004
017426
177060
000004

012637

000004

017

; :SCOPE=I0T

SCOPE

o5
022626

040000

161532

1$:

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE 10 THE SCKSWR ROUTINE
BY #*SYSMAC+*.
WIHTOUT USING A '‘TRAP'‘ INSTRUCTION AS CALLEDORFORSTATUS
ON THE STACK
PROCESS
THE
;PUT
=(SP)
MFPS
KERNEL MODE
INSURE
TO
CLEARED
BYTE
*HIGH
1(SP)
CLRB
$CKSWR

JSR

PC,

BIT =
BNE

#BiT14,@SWR
SOVER

MOV

RS,

(SP)

:ON PSW_RETURN.

GO TO THE SUBROUTINE

:PUT RETURN PC ONTO STACK, SIMULATE JSR PC.
:;LOOP ON PRESENT TEST?
SIYES IF SW14=1

. AMAARSTART OF CODE FOR THE XOR TESTERMMAAMH

$XTSTR: BR

MOV

@WERRVEC,-(SP)

ST
MOV
BR

177060
(SP)+,a#ERRVEC
$SVLAD
(SP)+,(SP)+

MOV

000004

5%:

CMP

MOV

#58 QMERRVEC

(SP)+,a#ERRVEC

;:IF RUNNING ON THE “XOR'' TESTER CHANGE
*:THIS INSTRUCTION TO A ‘NOP’' (NOP=240)
::SAVE THE_CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT

S:TIME OUT ON XOR?
- -RESTORE THE ERROR VECTOR
1260 TO THE NEXT TEST
““CLEAR THE STACK AFIER A TIME OUT
;;RESTORE THE ERROR VECTOR

SEQ 0092

CVMSAA
?‘2 WO MEMORY EXERCISER, 16K VER MACY11 30(10462
SCOPE HANDLER ROUTINE
~AUG-81 22:59
CVMSAA.P1

3984

3985

3986

3987
3988
3989

gggo
1

399§
3993

3994

3995

017434

00042¢

0174

032777

000400

122667

161456
000340
161410

0174

017444
017446
017452

001407
017746
042716

017462

001463

017456

017,
0174

105767
001421

017500

101015

017472

126767

161464

161403

161407

3999

017502

032777

001000

161420

2998

017512

016767

161362

161356

3997

3999
4000
4001
4002

4003

4004

4005
4006
4007

4008

4009

4010
4011

4012
4013
4014
4015
4016
4017
4018
4019
4020
4051

40 ;
40

017510

0175
017522
017526
017532

001404

6
105067
005067
15

161345
161426

017534

032777

004000

017544
017550
017552

005767
001406
005267

161432

017542

017556
017564

017566
017574

017602
017606
017614
017620
017624
0176
017636
017644

017650
017652

001011

026767
2024

012767
016767

105267
116767
011667
011667
005067
112767
016777
016716
000207
000001

161316
161376

161310

000001
000052

161300
161356

161264
161260
161256
161254
161332

000001
161230
161226

1€1247
161266

B8R

BEQ
MOV
BIC
CMPB
BEQ

28
aswR,-(SP)
#SSWRMK, (SP)
(SP)+ ,$STSTNM
$OVER
$ERFLG
3$
ggRHAX .SERFLG

1STB

BEQ
CMPB
BHI
BIT
BEQ
7%:
MOV
BR
CLRB
4%:
CLR
BR
BIT
3%:
BNE
TST
BEQ
INC
cMP
BGE
MOV
1$:
MOV
$SVLAD: INCB
MOvB
MOV
MoV
CLR
MOvB
MOV
$OVER:
MOV

ENDINS: RTS
SMXCNT: 1

“x

017654
017656

106746
105066

000001

;

017662

004767

000542

4029
4030
4031
40
403
4034
4035
4036
4037
4038
4039

161364

PAGE 81

221 T09.3SWR
SLPERR, SLPADR
$OVER
SERFLG
$TIMES
1%
#81T11,3SWR

SICNT

$TIMES ,$I1CNT

$OVER
#1,8$1CNT

SMXCNT ,STIMES
$TSTAM
STSTNM_ STESTN
(SP) ,$LPADR
(SP) ,SLPERR
$ESCAPE
#1,SERMAX

;:BR IF NO

::SET DESIRED TEST NUM. FROM SWR
::STRIP AWAY UNDESIRED BITS
;20N TIHE RIGHT TEST?
;:BR IF YES
::HAS AN ERROR OCCURRED?
;:BR IF NO

::MAX. ERRORS FOR THIS TEST OCCURRED?

;:BR IF NO

::LO0OP ON ERROR?

::BR IF NO

::SET LOOP ADDRESS TO LAST SCOPE
;:ZERO THE ERROR FLAG

::CLEAR THE NUMBER OF ITERATIONS TO MAKE

::ESCAPE TO THE NEXT TEST
::INHIBIT ITERATIONS?
::BR IF YES
::IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
34
;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 IN 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,aD1SPLAY ::DISPLAY TEST NUMBER

SLPADR, (SP)

::FUDGE RETURN ADDRESS
:EXIT SCOPE ROUTINE BACK TO TEST.
::MAX. NUMBER OF ITERATIONS

ROUTINE
PROVIDE AN INTERFACE TO THE $CKSWR +*.
;* THE NEXT TWO INSTRUCTIONS
#**SYSMA(C+
BY
FOR
CALLED
AS
INSTRUCTION

4026
28 2

161366

23:00

;:LOOP ON THE PRESENT TEST
TESTERNAAAN
XOR
THE
6S:: MMARNEND OF CODE FOR
aSwR
#31708,
::L00P ON SPEC. TEST?
BIT

2%:

161373

c 8
04-AUG-81

WIHTOUT USING A '‘TRAP''
MFPS
CLRB

-(SP)
1(SP)

JSR

PC,

.SBTTL

$CKSWR

ERROR HANDLER ROUTINE

;PUT THE PROCESSOR STATUS ON THE STACK
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
;ON PSW RETURN.
;GO TO THE SUBROUTINE

s s ttl'.tt'tttttttfitt.'*t**t*'tfitififitttttttttt'ttttlttt""ttti'.t

THE ERROR COUNT,
“%THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND
OF THE ERROR CALL
;*SAVE THE ERROR ITEM M}BSS AND THE ADDRESS
;*AND GO TO SERRTYP ON ERR
;*THE _SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

:=SW15=1

:«SW13=1

:*SW10=1
:*SW09=1
s *CALL

HALT ON ERROR

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

SEQ 0093

16K VER MACY11 30(1046)
ERROR HANDLER ROUTINE
ERROR

04-AUG-81

23:00 PAGE 82

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

$ERROR

017666

o*
“»

017666
017670

000001

000530
000002
161163

JSR
ADD
INCB
BEQ
MOV
BIT

e
-

161154
002000

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE
WIHTOUT USING A '‘TRAP'* INSTRUCTION AS CALLED FOR BY #+SYSMA(C+*.
;PUT THE PROCESSOR STATUS ON THE STACK
-(SP)
MFPS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB

7%:
oo

017674
017700
017704
017710
017712

BEQ

JSR
.WORD
INC
MOV

001640

1%:
HPOW

000120
001572

MovB

161202

161064

000004

21%:

22%:
2%:

161072

161046

161010
161066
161060

022737
001001
000000

012560

000207

$PRINT

RS,
S$BELL
$ERTTL
(SP) ,SERRPC
#2 ,$ERRPC

;;STRIP AND SAVE THE ERROR ITEM CODE

$PRINT

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED

CMPB

#APTENV, SENV

BYTE
BYTE

BR
TST
BPL
HALT

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
::COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION

@SERRPC,$ITEMB

BIT
BNE
JSR

BNE
MOVB
JSR

;sNO - SKIP

RS,
S$CRLF

2%
$ITEMB,21%
PC,$ATYS
O

22%
aSwWR
33

::SKIP TYPEOUT IF SET
;;SKIP TYPEOUTS
::G0 TO USER ERROR ROUTINE
::RUNNING IN APT MODE

::NO,SKIP APT ERROR REPORT
::SET ITEM NUMBER AS ERRCR NUMBER
::REPORT FATAL ERROR TO APT
; :APT ERROR LOOP
;;HALT ON ERROR
::SKIP IF CONTINUE
:2HALT ON ERROR!

“» WIHTOUT USING A ‘‘TRAP'' INSTRUCTION AS CALLEDOR STATUS ON THE STACK
;PUT THE PROCESS
-(SP)
MFPS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB

000001

016716

$CKSWR ;GO TO THE SUBROUTINE
PC,
:ADJUST POINTER PAST CODE WORD.
(SP)
#2,
::SET THE ERROR FLAG
$ERFLG
::DON'T LET THE FLAG GO TO ZERO
7%
Y
$TSTNM,aDISPLA ;:DISPLAY TEST NUMBER AND ERROR FLAG
;;BELL ON ERROR?
#BIT10,aSWR

SCKSWR ROUTINE
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACEFORTOBYTHE**SYSMA
(C**.

000354
001000

;ON PSW RETURN.

#BIT13,aSWR
208
PC,SERRTYP

JSR
.WORD

208

000001

002152

SuB

onrnn

b
il

i
wuld
s

161140
161140
000002
161126
020000

e
b

1?-2 ME GAWORD ME MORY EXERCISER,
04-AUG~81 22:59

CVMSAA

3%:

MOV
TST

$LPERR, (SP)
$SESCAPE

BEQ

4%:

BEQ

s
000042
6%:

JSR
BIT

$CKSWR
PC,
#B1T09,aSWR

;

;GO TO THE SUBROUTINE
::LOOP ON ERROR SWITCH SET?

;:BR IF NO

;:BR IF NONE

MoV

$ESCAPE, (SP)

cMP

#SENDAD ,a#42

BNE
HALT

:ON PSW RETURN.

::FUDGE RETURN FOR LOOPING
::CHECK FOR AN ESCAPE ADDRESS

::FUDGE RETURN ADDRESS FOR ESCAPE
;:ACT=11 AUTO-ACCEPT?
;2BRANCH IF NO
22YES

RTS
PC
""
:"'fi'.'.."t.t'tt"l.tt"l'.'t'.‘t'tt.ttltttt'tl!tfilt.!t't".t

SEQ 0094

| CVMSAA

0=2 MEGAWORD MEMORY EXERCISER, g& VER MACY11 30(1046)

CVMSAA.P1T

HANDLER ROUT INE

04-AUG-81 22:59

4096

04-AUG-81

23:00

PAGE 83

SEQ 0095

283;

_SBTTL ERROR MESSAGE TYPEOUT ROUTINE

BYTE'' (SITEMB) TO DETERMINE WHICH
-«THIS ROUTINE USES THE "‘ITEM CONTROL
FROM THE 'ERROR TABLE'' (SERRTB),
“+ERROR 1S TO BE REPORTED. IT THEN OBTAINS,CONCER
NING THE ERROR.
+AND REPORTS THE APPROPRIATE INFORMATION

4101
6102
2}82
4105

020116

4106 020116 004567 001452
122 001171
4107
4108 020124 010046
4109 020126 005000
4110 020130

156700

160750

4111 020134 001010
411§
4113 020136 016746 160744
4114
4115

4116
4117 020142 106746
4118 020144 105066 000001
:
4119
002672
4120 020150 004767

SERRTYP:

JSR
_WORD
MOV
CLR

MESSAGE.
$PRINT :GO PRINT OUT THE FOLLOWINGTYPED
RS,
BE
TO
"ADDRESS OF MESSAGE
SCRLF
:SAVE RO
RO, - (SP)
‘PICKUP THE ITEM INDEX
RO

SITEMB,RO
BISB
:IF ITEM NUMBER IS ZERO, JUST
1%
BNE
“TYPE THE PC OF THE ERROR
FOR TYPEOUT
SERRPC
;:SAVE
SERRPC.-(SP)
MOV
ADDRESS
*ERROR
CE TO THE $TYPOC ROUTINE
.« THE NEXT TWO INSTRUCTIONS PROVIDE ANAS INTERFA
FOR BY *+SYSMAC»*.
CALLED
TION

"« WIHTOUT USING A '‘TRAP'* INSTRUC THE PROCESSOR STATUS ON THE STACK
:PUT
=-(SP)
MFPS
*HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(5P)
CLRB
*ON PSW RETURN.
$TYPOC -GO TO THE SUBROUTINE
PC,
JSR

4121 020154 000516
18:
41 i 020156 016767 160724 161320
161312
160342
020164 166767
4123

BR
MOV
SuB

:GET OUT
108
PC FOR TYPEOUT.
VIRTUAL
UP
:SET
$ERRPC, SVERPC
NOT ALREADY.
IF
VIRTUAL
-MAKE
RELOCF. SVERPC
SO THAT IT WILL

4126 020176 006300
4127 020200 006300

ASL
ASL

RO
RO

4124 020172 005300
4125 020176 006300

ADD
MOV

4128 020202 066700 161624
012067 000006
oso
41
4130
4131
41§§
4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143

020212
020214
020220
020222
ozos 6
020
020234
020236
020242
020244
020250
020252
020254
020256

001406
004567
000000
004567
001171
012067
001406
004567
000000
004567
001171
010146
012001
001454

4144 020260 066701

4145
4146
4147
4148
4149
4150

058264
0
020272
020274
020276

001354
001346

28:

001332
001324

48:

000006

160246

012000
066700 160240
105720
001007
013146

DEC
ASL

3$:
5%

BEQ
JSR
LWORD
JSR
_WORD
MOV
BEQ
JSR
LWORD
JSR
_WORD
MOV
MOV
BEQ
ADD

RO
RO

-ADJUST THE INDEX
WORK FOR THE ERROR TABLE
:

.ERRTB, RO
(RO)+,28

:FORM TABLE POINTER
“PICKUP 'ERROR MESSAGE'' POINTER

RELOCF, R1

:ADJUST POINTER

38
$PRINT
RS,
0
$PRINT
RS,
SCALF
(RO)+,4%
;
5%
$PRINT
RS,
0
$PRINT
RS,
SCALF
R1,-(SP)
(RO)+,R1
9

*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 0
: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
-

-PICKUP 'DATA FORMAT'' POINTER
(RO) +,RO
MOV
POINTER.
:ADJUST
RELOCF. RO
ADD
:CHECK THE FORMAT
(RO)+
TSTB
68:
‘BR IF NOT 16-BIT OCTAL
7%
BNE
FOR TYPEOQUT
@(R1)+
;:SAVE
,=(SP)
a(R1)+.
MOV
E TO THE $TYPOC ROUTINE
INTERFAC
AN
PROVIDE
TIONS
-« THE NEXT TWO INSTRUC
FOR BY **SYSMA(#+,
. %

WIHTOUT USING A ‘‘TRAP'* INSTRUCTION AS CALLED

(VMSAA

CVMSAA P11
415

415
4156
4155
4156
6157
4158
4159
4160
4161
416
416

04~AUG-81 22:59

620302

10674€
105066

004767

020%?3 700407
073146

020

106746
105066

004767
0004

égR

gg,

;GO TO THE SUBROUTINE

B8MI

MOV

17%

a(R1)+,-(SP)

;BRANCH IF NOT DECIMAL

000001

MFPS
CLRB

-(SP)
1(SP)

:PUT THE
;HIGH BYTE CLEARED TO INSURE KERNEL MODE

002236

JSR

PC.

CMPB
BNE
MOV
JSR

-1(RO)
#-1,
18%
a(R1)+, =(SP)
$TYPAD
PC,

000001

002534

7%:

D
D
d
D
e e

0o Co 0o

— e

SLURIREC28BEIR

wvi

020362

177777

004567
020424
000731

“x

000001

T oF o oF SR R

i e
D o e

000

-(SP)
a(R1)+, (SP)

JSR
.BYTE
.BYTE

PC,
3
1

BEQ

TST

$TYPOS

;ON PSW RETURN.

:GO TO THE SUBROUTINE

;SKIP

;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 IT.
;SKIP

:CLEAR THE WORD ON THE STACK.
;PUT THE DATA ON THE STACK.

$PRINT

RS,
11%

9%:
10%:

MOV
MOV

(SP) +,R1
(SP)+,R0O

11%:

RTS
JASCIL

LSBTTL

TTY INPUT ROUTINE

JSR
.WORD

.EVEN

GO TO_THE SUBROUTINE
:TYPE 3 DIGITS.
:TYPE LEADING ZEROS.
:BR IF NO

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
;LOOP

RS,
$CRLF

;ON PSW RETURN.

:1S THERE ANOTHER NUMBER?

(R1)

JSR
.WORD

001154

$TYPDS

WIHTOUT USING A ''TRAP'' INSTRUCTION AS CALLED FOR BY #*SYSMA(Cw+.
;PUT THE PROCESSOR STATUS ON THE STACK
-(SP)
MFPS
;HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB

001170

s e

;:SAVE @(R1)+ FOR TYPEOUT

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUT INE

8%:

$PRINT

PC
1/

:RESTORE R1
:RESTORE RO

:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
;RETURN
:DOUBLE SPACE

""Q'ltfitfltittt*tt't.Q'tt'*t'tfitfitt'*t*lttt*tt'ttt'tt.tt'ttt'tti

oW R

CLR
MOovB

002430

012601

020040
020430

siia

113116

004767
003
001
005711
001404

17%:

005046

106746
105066

S$TYPOC

;ON PSW RETURN.

ROUT INE
:« THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPDS
A(*+.
*+SYSM
BY
FOR
CALLED
AS
CTION
INSTRU
“« WIHTOUT USING A ‘‘TRAP'*
PRCCESSOR STATUS ON THE STACK

P o

020360

SEQ 0096

;PUT THE PROCESSOR STATUS ON THE STACK
sHIGH BYTE CLEARED TO INSURE KERNEL MODE

002736

020354
020354
020356

PAGE 84

23:00

-(SP)
1(SP)

MFPS
CLRB

020314
020316

020320
020322

ERROR MESSAGE TYPEOUT ROUTINE

S2EHDISDDEDDEY

NNNNNN

4164
4165
4166
4167
4168
4169
4170
“17
4172

04-AUG-81

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

"ENABL

LSB

"t*'tttfitt!tt.ttitt.iittlttt.tttttttl.fifi'tttttt'tttttt'tttittit

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

S«ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL
REGISTER TRAP CALL

“«SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH

000176

160470

160472

: *WHEN OPERATING IN TTY FLAG MODE.

iCKSUR: CMP

BNE
TSTB

#SWREG, SWR
15%
a%$TKS

::1S THE SOFT-SWR SELECTED?
::BRANCH IF NO
::CHAR THERE?

| CVMSAA
‘

CVMSAA.P11

04=AUG-81

22:

4208
4509
4210
4211
4212

020444
0582"
020452
020456
020462

100102
117746 160464
042716 177600
022726 000007
001073

4216
4217
4218
4219
4220
4221
429
422
4224
4225

020474
020500
020502
020502
020506

004567 001074
021371
004567 001066
021376

621

0=2 MEGAWORD 'i'_‘zfig EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 85

TTY INPUT ROUTINE
BPL
MOVB
BIC
P
BNE

CMPB

0%8264 126727 160434 000001

25}15. 020472 001467

020510 016746 157462
020514 106746
020516 105066 000001

4226
4227 020522 004767 002320

4228 020526 004567 001042
4229 020532 021407

4230 020534 005046
4231 020536 005046
4232 020540 105777 160370

23;2 020344 100375

BEQ

SAUTOB,#1

158

2:1F NO, DON'T WAIT AROUND
*:SAVE THE CHAR
*iSTRIP-OFF THE ASCI!
*:1S IT A CONTROL G?
“INO, RETURN TO USEn

“:ARE WE RUNNING IN AUTO-MODE?

*:BRANCH IF YES

$PRINT :GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
JSR
“ADDRESS OF MESSAGE TO BE TYPED
SCNTLG
_WORD
:
$GTSWR
MESSAGE.
$PRINT :GO PRINT OUT THE FOLLOWINGTYPED
RS,
JSR
"ADDRESS OF MESSAGE TO BE
_WORD SMSWR
*:SAVE SWREG FOR TYPEOUT $TYPOC ROUTINE
SWREG, = (SP)
MOV
-» THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE**SYSMA
Cw+.
TION AS CALLED FOR BY
"« WIHTOUT USING A '‘TRAP'* INSTRUC
STACK
THE
ON
STATUS
OR
:PUT THE PROCESS
=(SP)
MFPS
MODE
KERNEL
“HIGH BYTE CLEARED TO INSURE
1(SP)
CLRB
19%:
7%:

4235 020546 117746 160364

25;{; 020552 042716 177600

2539

15%
a$TKB,-(SP)
#-C177,(SP)
#7.(SP)+
158

$TYPOC

*ON PSW RETURN.
-GO TO THE SUBROUTINE

JSR
JSR
_WORD
CLR
CLR
TSTB

PC,
RS,
SMNEW
-(SP)
-(SP)
@$TKS

MOVB

BIC

@$TKB,-(SP)

#~C177., (SP)

::PICK UP CHAR

(SP) 425
108

::1S 1T A CONTROL-U?
*:BRANCH IF NOT

. IGNORE PREVIOUS INPUT

BPL

$PRINT -GO PRINT OUT THE FOLLOWING MESSAGE.
"ADDRESS OF MESSAGE 10 BE TYPED

*;CLEAR COUNTER
::THE NEW SWR
“*CHAR THERE?

*2IF NOT TRY AGAIN

“IMAKE IT 7-BIT ASCII

4240 020556 021627 000025
4241 020562 001006

9% :

cMP
BNE

4244 020572 062706 000006

208:

ADD

#6,5P

19%

“ILET'S TRY IT AGAIN

4247

108 :

CMP
BNE

(SP) ,#15
16$

::1S IT A <CR>?
*:BRANCH IF NO

4242 020564 004567 001004
4243 020570 021364

2522 020576 000756

4248 020600 021627 000015
4249 020604 001023

4250 020606 005766 000004
4251
4252
4253

020612 001403
020614 016677 000002 160306
020622 062706 000006

4255
4256
4257
4258
4259
4260
4261
4

020626
020632
020634
020642
020644
020652
020654
020660

4254

4263

020626

004567
001171
126727
001003
012777
000002
004767
021627

020664 002420

11$:

148:

000742
160265 000001
000100 160262
15%:
168$:
001160
000060

JSR
_WORD

$PRINT -GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
"ADDRESS OF MESSAGE TO BE TYPED
SCNTLU

TST

4(SP)

JSR
_WORD
(MPB
BNE
MOV
RT]
JSR
CMP

$PRINT
RS,
SCRLF
SINTAG.#1
15%
#100,387KS
PC,STYPEC
(SP) ,#60

BEQ
MOV
ADD

BLT

118
2(5P) ,aswR
#6,SP

18%

““YES, IS IT THE FIRST CHAR?
: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
S:ECHO CHAR
“:CHAR < 0?
; ;BRANCH IF YES

SEQ 0097

CUMSAA

' CVMSAA.P11
4264
4265
4266
4267
4268
4269
4270
4271
6272
42

4274
4275
4276
4277
4278

4279

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

04~-AUG-81 22:59

020666
03&72
020674
020700
020704
020706
020710
020712
020714
720

020724
020726
020726
0207%2
02073

021627
003015
042726
005766
001403
006316
006316
006316
005266
056616

TTY INPUT ROUTINE

000067

000060
000002
000002
177776

000705
004567 000642
001170
000716

4280

17%:
18$:

.DSABL

MP
BGT
BIC
ST
BEQ
ASL
ASL
ASL
INC
BIS

BR
JSR
.WORD
BR
LSB

(SP) ,#67
18%
#60, (SP)+
2(SP)
178
(SP)
(SP)
(SP)
2(SP)
-2(SP), (SP)

7%
RS,
$QUES
208

::CHAR > 7?
“:BRANCH IF YES
::STRIP-OFF ASCII
2:1S THIS THE FIRST CHAR
**BRANCH IF YES
“:NO, SHIFT PRESENT
“: CIAR OVER TO MAKE
*: ROOM FOR NEW ONE.
*:KEEP COUNT OF CHAR
2:SET IN NEW CHAR

*:GET THE NEXT ONE
NG MESSAGE.
$PRINT :GO PRINT OUT THE FOLLOWI
TYPED
BE
TO
MESSAGE
OF
*ADDRESS
-U
:SIMULATE CONTROL=

428

":ttttt.ttt'tttt'ttttttttttttttttttl'tttttttttttttttt"tttttttt"

4285

4585
4290 020736 011646

$RDCHR: MOV

4281

,--mf ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

gg‘

i*
i*

4286
4287

4291
4292
4293
429,
4295
4296
4297
4298
4299
4300
4301
4302
4303

020740
020746
020752
020754
020762
020770
020776
051000
021004
021006
021012
021016
021022

4307
4
4309
4310
4311

021036
021044
021046
021054
021056

016666
105777
100375
117766
042766
026627
001013
105777
100375
117746
042716
022627
001366

000004 000002
1$:
160162
160156 000004
177600 000004

000004 000023
2%:
160130
160124
177600
000021

4304 021024 000750

026627 000004 000021 3%:
021026
4305
001744
4306 0210 026627 000004 000140

::INPUT A SINGLE CHARACTER FROM THE TTY

RDCHR

“:CHARACTER IS ON THE STACK
S:WITH PARITY BIT STRIPPED OFF

RETURN HERE (SP) ,=(SP)

::PUSH DOWN THE PC

MOV
TSTB
BPL
MOVB
BIC
CMP
BNE
TSTB
BPL
MOVB
BIC
CMP
BNE

©:SAVE THE PS
4(SP),2(SP)
FOR
::WAIT
as$TKS
ER
CHARACT
::A
1%
TTY
THE
::READ
(SP)
a$TKB, 4
JUNK IF ANY
OF
RID
::GET
>,4(SP)
#AC<177
S?
CONTROLA
IT
*%IS
4(SP) ,#2%
NO
IF
H
::BRANC
3%
“*WAIT FOR A CHARACTER
asTKS
::LOOP UNTIL ITS THERE
2%
CHARACTER
2:GET
-(SP)
as$TKB,
IT 7-BIT ASCII
SSMAKE
#°C177.,(SP)
A CONTROL-Q?
IT
2%1S
(SP)+,#21
DISCARD IT
NOT
::1F
2%
1%

::YES, RESUME

cMP
BLT
CMP
BGT
BIC

4(SP) ,#140
48
4(SP) ,#175
4%
#40,4(SP)

»:1S IT UPPER
::BRANCH IF YES
221S IT A SPECIAL CHAR?
::BRANCH IF YES
“:MAKE IT UPPER CASE

CMP
BEQ

4 (SP) ,#$XON
1%

XON?
::1S IT A RANDOM
::BRANCH IF YESCASE?

002407
026627 000004 000175
003003
042766 000040 000004
::G0 BACK TO USER
RTI
4%:
4312 021064 000002
t'litt.t!ttttttttttt't.ttt.tttt
ttttttt
ttttttt
ttt'ttt
ttltttt
;.'tt.l
4313
**THIS ROUTINE WILL INPUT A STRING FROM THE TTY
4314
4315

4316
4317

2;}3

SEQ 0098

s*CALL:

i*
i

RDL IN
RETURN HERE

’

:RANOO1
*RANOO1

::INPUT A STRING FROM THE TTY
**ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

S TERMINATOR WILL BE A BYTE OF ALL 0'S

CVMSAA

| CUMSAA.P1]

04~AUG-81 22:55

TTY INPUT ROUTINE

R3,.-(SP)
-(SP)
#STTYIN,R3

::SAVE R3
:;CLEAR THE RUBOUT KEY
::GET ADDRESS

MF PS
CLRB

-(SP)
1(SP)

;PUT THE PROCESSOR STATUS ON THE STACK
:&G:SSY;EY%ARED TO INSURE KERNEL MODE

CMPB
BNE
TST

#177.,(R3)
5%
(SP)

::1S IT A RUBOUT
;:BR IF NO
::1S THIS THE FIRST RUBOUT?

4320 021066 010346
4;21 021070 005046
4 2; 021072 012703 021354

$RDL IN: MOV
CLR
MOV
1$:

4327 021104 106746
2323 021106 105066 000001

021076 022703 021364
4
4324 021102 101470
4325
4326

021112 004767 177620
43
43;1 021116 112613

43 § 0 1150 122713 000177
4333 0211246 001024
4334 02"58 005716
4335 0211

#STTYIN+8.,R3 ;;BUFFER FULL?
cMP
2%:
::BR IF YES
43
8L0S
SRDCHR ROUTINE
-« THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE*«SYSMAC
es.
“« WIHTOUT USING A ‘'TRAP'* INSTRUCTION AS CALLED FOR BY

108:

001010

433 021132 112767 000134 000212
4337 021140 004567 000430
021144 021352
43
4339 021146 012716 177777
6%:
4340 031152 005303
021354
020327
4341 021154
4342 021160 103441
4343 021162 111367 000164
4344 021166 004567 000402
4345 021172 021352
436 021174 000740
5%:
4347 021176 005716
001407
051200
4348
4349 021202 112767 000134 000142
4350 051510 004567 000360
4351 021214 021352
4352 021216 005016
7%:
4353 021 go 122713 000025
001004
021224
4354
4355 021 ib 004567 000342
4356 0O 15 2 021364
4357 021234 000716
8%:
4358 021236 122713 000022
001014
021342
4359
4360 031 44 105013
4361 021246 004567 000322
leg 021252 001171
"§’4 8 1254 024567 000314
1260 021354
4
i
000705
}2“
8
23322

4367
4368
4369
4370
4371
4372
4373
43764
4375

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

8 1264
1270
021272
021274
021
021304
021
021312
021314

004567
001170
000677
111367
004567
021352
1227;3
001271
105063

000304

000052
000270
000015
177777

3%:

JSR
MOVB

BNE

MOVB
JSR
.WORD
MOV
DEC
CMP
BLO
MOVB
JSR
.WORD
BR
TST
BEQ
MOVB
JSR
.WORD
CLR
(MPB
BNE
JSR
.WORD
BR
CMPB
BNE
CLRB
JSR
.WORD
JSR
.WORD
BR

JSR
.WORD
BR
MOVB
JSR
.WORD
(MPB
BNE
CLRB

$RDCHR ;GO TO THE SUBROUTINE
PC,
::GET CHARACTER
(SP)+, (R3)
6%

#'\,9%
$PRINT
RS,
9%
#-1,(SP)
R3
R3,A#STTYIN
43
(R3),9%
$PRINT
RS,
9%
2%
(SP)
7%
#'\,9%
$PRINT
RS,
9%
(SP)
#25,(R3)
8%
$PRINT
RS,
SCNTLU
1%
#22,(R3)
3s
(R3)
$PRINT
RS,
SCRLF
$PRINT
RS,
STTYIN
2%

$PRINT
RS,
SQUES
1%
(R3),9%
$PRINT
RS,
9%
#15,(R3)+
2%
-1(R3)

::BR IF NO

::TYPE A BACK SLASH
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
::SET THE RUBOUT KEY
: ;BACKUP BY ONE
::STACK EMPTY?
:;BR IF YES
::SETUP TO TYPEOUT THE DELETED CHAR.
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
::G0 READ ANOTHER CHAR.
: :RUBOUT KEY SET?
::BR IF NO
::TYPE A BACK SLASH
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
::CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?
::BR IF NO
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
::G0 START OVER
::1S CHARACTER A ""“R'7?
:;BRANCH IF NO
::CLEAR THE CHARACTER
;GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
;GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
::GO PICKUP ANOTHER CHACTER

;GO PRINT OUT THE FOLLOWING MESSAGE.
: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
::LOOP IF NOT RETURN
::CLEAR RETURN (THE 15)

SEQ 0099

04~AUG-81 22:59

| (VMSAA.P11
|

4376
4377
4378
4379
4380
4381
4
4383

021
851 24
1 ig
0213
051%%
021
021342
021350

t.gga 0 1%5

4385 02135
“

004567 000250
001172
005726
012603
011646
016666 000004 000002
012766 021354 000004
000002
000

000

386 021354 000010

Agg; 0 1;64 052536 00501
136 006507
021371
4

4389 021376 005015

4390

4391

4392

2%313.

021404

020075

021414

036440

021407

053523

WNW

| CVMSAA

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

000

040 047040

000040

4396
4397
4398
4399
4400

;GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS CF MESSAGE TO BE TYPED
=:CLEAN RUBOUT KEY FROM THE STACK
::RESTORE R3
S:ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
22
: :RETURN
::STORAGE FOR ASCII CHAR. TO TYPE
: :TERMINATOR

:;RESERVE 8 BYTES FOR TTY INPUT

;;CONTROL 'V’
000 SCNTLU: .ASCIZ /*U/<15><12>
;;CONTROL ''G""
000012 S$CNTLG: .ASCIZ /°G/<15><12>
020122 SMSWR: .ASCIZ <15><12>/5WR = /
053505

.ASCIZ

SMNEW:

NEW =/

.SBTTL READ AN OCTAL NUMBER FROM THE TTY

:"t.Qtt.t.tt.tt.'ttt.l'tt't'tttttttttit.ttttttlttttttttttt.tfitt.t

“*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:«CHANGE IT TO BINARY.
THEY ARE LEGAL
“«THE INPUT CHARACTERS WILL BE CHECKED TOIS INSURED
WILL BE TYPED
''?''
A
READ
ER
CHARACT
“~OCTAL DIGITS. IF AN ILLEGAL
NUMBER MUST
COMPLETE
THE
FEED.
LINE
RETURNE
“«FOLLOWED BY A CARRIAG
RETURN.
3

i
i*

021420
0214%
0214
021432
85}2

RDOCT

RETURN HERE

$RDOCT: MOV
011646
MOV
016666 000004 000002
MOV
010046
MOV
010146
MOV
o
010246

441
4414
4415 021436 106746
“19 021440 105066 000001
441
4418 N21444 004767 177416
1450 012600
4419

010067 000102
005001
005002
112046
001420
12%16 000060 .
003026

l.l.so
44621
445
44
L4624
4425
44

1452
51456
021460
051662
8 1464
1466
021472

44
44
4631

021502 006301
021504 006102
021506 006301

44
44

BYTE

9%:

4403

4407
4408
4409
4410
21‘.}1

SPRINT
RS,
SLF
(SP)+
(SP)+ ,R3
(SP) ,=(SP)
4(SP) ,2(SP)
#STTYIN,4(SP)

.--&ELI: BE RETYPED. THE INPUT 1S TERMINATED BY TYPING A CARRIAGE

228;

4404
2282

JSR
.WORD
ST
MOV
MOV
MOV
MOV
RTI

$TTYIN: .BLKB

4395

TTY INPUT ROUTINE

14724 122716
1500 002423

000067

(SP) ,=(SP)
4(SP) ,2(SP)
RO,=(SP)
R1,-(SP)
R2.-(SP)

::READ AN OCTAL NUMBER

::LOW ORDER BITS ARE ON TOP OF THE STACK
::HIGH ORDER BITS ARE IN SHIOCT
::PROVIDE SPACE FOR THE
::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
;2 INPUT NUMBER

E TO THE SRDLIN ROUTINE
:+ THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFAC
FOR BY **SYSMAC**.
CALLED
AS
TION
INSTRUC
“» WIHTOUT USING A ‘‘TRAP''
STATUS ON THE STACK
OR
PROCESS
THE
:PUT
-(SP)
MFPS
TO INSURE KERNEL MODE
CLEARED
BYTE
“HIGH
1(SP)
CLRB
:ON PSW RETURN.
SRDLIN :GO TO THE SUBROUTINE
PC,
JSR
::GET ADDRESS OF 1ST CHARACTER
O
(SP)+,R
MOV
2%:

MOV
CLR
CLR
MOVB
BEQ
CMPB
BGT

RO,5%
R1
R2
(RO)+,~(SP)
3s
#'0,(SP)
43

:;AND SAVE IT
::CLEAR DATA WORD
;:PICKUP THIS CHARACTER
::1F ZERO GET OUT
::MAKE SURE THIS CHARACTER
::1S AN OCTAL DIGIT

ASL
ROL
ASL

R1
R1

;%2
L

CMPB
BLT

#'7,(SP)
43

SEG 0100

(VMSAA
CVMSAA P11

W—‘-‘—'—l
NSO

e
e
e

jolelel

NNNg

ViAW

44
44
4440
444

d e

4634

2235

AD AN OCTAL NUMBER FROM THE TTY

04~AUG-81 22:59

—

438

ROL

177770

000012

BIC
ADD
BR

#*C7,(SP)
(SP)+,R1
2%

::STRIP THE ASCII JUNK
::ADD IN THIS DIGIT
;;LOOP

MOV

R1,12(SP)

::SAVE THE RESULT

MOV
MOV
MOV

(SP)+,R2
(SP)+ ,R1
(SP)+,R0O

::POP STACK INTO RZ2
::POP STACK INTO R1
::POP STACK INTO RO

(SP)+
(RO)

::CLEAN PARTIAL FROM STACK
::SET A TERMINATOR

MOV

000032

44k
4bdy
Ghlely

RTI

TST
CLRB

4%:

4445

000014

4450
4451
445
445
4454
4455
4456

PAGE 89

;%8

TST

3%:

23:00

ASL

Ll
4447
4448
4449

04-AUG-81

0=2 MEGAWORD MEMORY EXERCISER, ;gl VER MACY11 30(1046)

(SP)+

R2,$HIOCT

:sRETURN

JS?JRD

85.

$PRINT

JSR
.WORD

RS,
$QUES

$PRINT

$HIOCT: .WORD

::CLEAN TERMINATOR FROM STACK

: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

"tt't.tt't.tttttttt.'t'tt"tt.'tfitittttt.'t't.ittttt'tti'.ttt"!

% SUBROUTINE TO PASS RELOCATED MESSAGTE ADDRESSES TO THE S$TYPE ROUTINE.
i«

CALL:

JSR

RS,

$PRIN

;;'tttfittiitttt'fi.'tttt""'ttt.t..'.fi'fi.t'it'tttt't'ii.ll.ti"t'

012567
066767
106746

105066

004767
000000
000205

000020

156726

000012

“x

000001

000004

:GET THE MESSAGE VIRTUAL ADDRESS.
*MAKE IT PHYSICAL.
RELOCF, 1%
ADD
THE NEXT TWO INSTRUCTIGNS PROVIDE AN INTERFACE TO THE STYPE ROUTINE

$PRINT: MOV

(RS)+,

BY **SYSMA(Cw+,
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

1%:
.SBTTL

JSR

PC,

RTS

.WORD

$TYPE

;ON PSW RETURN.

;GO TO THE SUBROUTINE

;CONTAINS THE PHYSICAL MESSAGE ADDRESS.
sRETURN.

TYPE ROUTINE

"ttttt't*ttfl.ttttfi'ti'.tt!tttttIfi*.tfi'Qt'fitt*'ttttttt’ttt'tt't'.

TERMINATE WITH A 0 BYTE.
“*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST
CHARACTERS AFTER A LINE FEED.
“«THE ROUTINE WILL INSERT A NUMBER OF NULL

AS THE FILLER CHARACTER.
$NULL CONTAINS THE CHARACTER TO BE USED
CHARACTERS REQUIRED.

;*NOTE1:

$FILLS CONTAINS THE NUMBER OF FILLER
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

:*NOTEZ2:
:*NOTE3:
- %

s*CALL:

:*1) USING A TRAP INSTRUCTION

:'OR
. %

021624

105767

157317

TYPE

,MESADR

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

;:1S THERE A TERMINAL?

TYPE

MESADR

$TYPE:

TSTB

SEQ 0101

CVMSAA

L 8

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

CVMSAA. P11

04~AUG-81 22:59

TYPE ROUTINE

100002

4488
4489
4490
4491
449,

449
449%
4495

4496

1%:

000002
000001

157342

000100

157333

000004
000274

4497

4498
4499
500

000040

157311

BEQ

61%:
62%:

2%:

3 ODNONR WO

POl S S S

o S o

)
D e )
) -

4509

4531

000002

60%:
3%:

000011

4%:

000200

000202
5%:
6%:

000056

157160

157150

021774
022000
022002

000001

022006
022012

MOV
JSR
. WORD
BITB
BNE
MovB

BNE

TST
MoV
ADD
RTI
CMPB

BEQ
CMPB
BNE
TST
JSR

177626

021770

BPL
HALT
BR
MOV
MOV
CMPB
BNE
BITB

7%:

$CRLF
CLRB
BR
JSR
CMPB
BNE
MOV
DECB
BLT

JSR
DECB
BR

000032
000144

;:BR IF YES

:2HALT HERE IF NO TERMINAL

;:SAVE RO
::GET ADDRESS OF ASCIZ STRING
@2(SP) ,RO
#APTENV, SENV
:;RUNNING IN APT MODE
2:NO,GO CHECK FOR APT CONSOLE
62%
SENVM
OOL
,
;:SPOOL MESSAGE TO APT
#APTSP
::NO,GO CHECK FOR CONSOLE
62%
::SETUP MESSAGE ADDRESS FOR APT
RO.61%
::SPOOL MESSAGE TO APT
PC,SATY3
0
: :MESSAGE ADDRESS
#APTCSUP ,SENVM
::APT CONSOLE SUPPRESSED
::YES,SKIP TYPE OUT
60%

RO,-(SP)

(RO)+,-(SP)

43
+
(SP)

(SP)+,RO

#2,(SP)

#HT, (SP)
8$
(SP)
,LF
#CR
5%
(SP)+
$PRINT
RS,
$CHARCNT
2%
PC,S$TYPEC

$FILLC,(SP)+
2%
$NULL ,=(SP)
1(SP)
6%
PC,STYPEC
$CHARCNT
7%

::PUSH CHARACTER TO BE TYPED ONTO STACK
:2BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK
: :RESTORE RO
::ADJUST RETURN PC
; sRETURN
::BRANCH IF <HT>

;:BRANCH IF NOT <CRLF>

;:POP <CR><LF> EQUIV
;GO PRINT OUT THE FOLLOWING MESSAGE.

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
::1S IT TIME FOR FILLER CHARS.?
::IF NO GO GET NEXT CHAR.

::GET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?

::BR IF NO--GO POP THE NULL OFF OF STACK
::GO TYPE A NULL

:2D0 NOT COUNT AS A COUNT

;2 :LO0P

;HORIZONTAL TAB PROCESSOR
022014

000040
000014
000007

157070

000124

8%:
9%:

$TYPEC:

157064
177600

000023
454

101%:

MovB
JSR
BITB
BNE
TST
BR

TSTB

BPL
MOV
BIC
CMPB
BNE

#' ,(SP)
PC,STYPEC
#7 ,$CHARCNT
9%
(SP)+

::REPLACE TAB WITH SPACE
::TYPE A SPACE
::BRANCH IF NOT AT
::TAB STOP

:2GET NEXT CHARACTER

asTKS
10$

::CHAR IN KYBD BUFFER?
;:BR IF NOT
::GET CHAR
::STRIP EXTRANEOUS BITS
::WAS CHAR XOFF
::BR IF NOT

a$TKB, - (SP)

#177600, (SP)
, (SP)
#SXOFF
102%

::POP SPACE OFF STACK

SEQ 0102

0~2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)
| CUMSAA
TYPE ROUTINE
04~-AUG-81 22:59
CVMSAA. P11

042716
122716
001366

ISTB

157044

8PL

000021

102%:

105777

10%:

157022

000002
000015
000014
000012

000002

18:

12
12767

000001
000001

000376
000366

000001

000360

000346

000001

156766

000100

156757

000004
000002
156716

000004

156724

1%:

2%:

o
NOONNWNN

R
e

000004

000002
155444
177266

156664

000016
000004

@STKB, (SP)

(SP)+

:sFIX STACK

TSTB
BPL

a$TPS
108

CMPB
BNE

CMPB

BEQ
INCB

#SXON, (SP)
1018

;2WAS IT XON?
;:BR IF NOT

;:WAIT UNTIL PRINTER IS READY

2(SP).a$TPB
#CR,2(SP)
18
SCHARCNT

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?

ALF,2(SP)

:;1S CHARACTER A LINE FEED?
;;BRANCH IF YES
;:COUNT THE CHARACTER
;;CHARACTER COUNT STORAGE

$TYPEX

$TYPEX
(PO)+

0
PC

s sBRANCH IF NO

::g;?;-CLEAR CHARACTER COUNT

APT COMMUNICATIONS ROUTINE

> 2 t'ttfit'.ttt'ttt'*ttt't'i'tt*tttliittitfifi'tt*ttttttt'ttfitttt'ttt
#1,8FFLG
;:TO REPORT FATAL ERROR
$ATY1: MovB
#1,SMFLG
::TO TYPE A MESSAGE
$ATY3: MOvVB
SATYC
BR
#1,8FFLG
;:TO ONLY REPORT FATAL ERROR
$ATY4: MOVB
$ATYC:
RO,=(SP)
::PUSH RO ON STACK
MOV
SP)
::PUSH R1 ON STACK
R1,-(
MOV
::SHOULD TYPE A MESSAGE?
SMFLG
TSTB
5%
::IF NOT: BR
BEQ
V
SENV
,
#APTEN
: 2OPERATING UNDER APT?
CMPB
BR
NOT:
;:IF
33
BNE
MESSAGES?
SPOOL
LD
,SENVH
:2SHOU
gAPTSPOOL
BITB
BR
NOT:
$
:2IF
BEQ
:2GET MESSAGE ADDR.
a4 (SP) ,RO
MOV
#2.4(SP)
;:BUMP RETURN ADDR.
ADD

156714

156710

::WAIT FOR CHAR

1018

::GET CHAR
;:STRIP IT

$CHARCNT:.WORD
$TYPEX: RTS

.SBTTL

@$TKS

#177600, (SP)

MOVB
CMPB
BNE
CLRB

157014
000002

PAGE 9

23:00

BIC

MOVB

157040
177600

005726

—

FRERXSFRRoo&R

022072
022076
0% 1
022
022

105777
100375
117716

§°§O oo
FoNaRNS

022064
0% 70

"
8
04-AUG-81

3%:

4%:

5%:

TST
BNE

??SGTYPE

(ROY+

RO
RO, SMSGLGT
pg.snscrvps

;:SUB START OF MESSAGE
:2GET MESSAGE LNGTH IN WORDS
;:PUT LENGTH IN MAILBOX
2;TELL APT TO TAKE MSG.

34 (SP) ,4$

::PUT MSG ADDR IN JSR LINKAGE

MOV

BNE
SuB
ASR
MOV
MOV
BR

28
, RO
$MSGAD

MOV
ADD
MOV

JSR
.WORD

WMAIT

::PUT ADDR IN MAILBOX
::FIND END OF MESSAGE

RO, SMSGAD

TS1B

::SEE IF DONE W/ LAST XMISSION?

::1F NOT:

#2,4(SP)

177776 .,~(SP)

sc.srvpe

- -BUMP RETURN ADDRESS

::PUSH 177776 ON STACK

*:CALL TYPE MACRO

SEQ 0103

CVMSAA

0=2 MEGAWORD MEMORY EXERCISER, 1 6K VER MACY11 30(1046)

CVMSAA . P11
4600
4601
460%
4603
4604
4,605
4,606
4607
4608
4609
4610
4611
461%
461
4614
4615
4616
4617
4618
4619
4621
4 i
%

105767 000221
001422
000004
017
766 000002 000004
012701 001334
6%:
005711
100404
880021
1406
005721
000772
8%:
026701 157076
001402
010021
9%:
005211
10%:
105767 000150
001416
005767 156570
001413
11%:
005767 156542
001375
017667 000004 156534
062766 000002 000004
005267 156520

12%:

4 022454 105067 000106
4655 025460 105067 000101

4626 8% 494 105067 000074
2470 012601
4627
4628 022472 012600

46
46

4631
46

022474 000207

022476

022476 010046
022500 016700 156776

4633 ‘022504
4634 022510
514
4635
516
4636
5;8
4637
b)
4638
536
4,639

162700
005767
001375
010067
01%767
012767
012600

2540
Slos
54
544
550
5§52
554
228

4649

560 012600

4648

562 000207
4650
000
5 564
4651
000
4652 022565

4653

4654
4655

022566

022570
000200

.
$SATY6:

001334
1%:
156460
‘
156470
001334 156460
000002 156436

000207
010046
012701 001334
005721
100402
005021
000774

4640
4641
464
464
4644
4645
4646
Lo647

APT COMMUNICATIONS ROUTINE

04~AUG~81 22:59

02230
0O s
0
02235
8
0%
7
02237
022374
022376
022400
8 404
5406
022410
022412
022416
0224
022424
0 54 6
022432
0224
022442
022450

04-AUG-81

$ATY7:

1%:
2%:

$MFLG:
$LFLG:
$FFLG:

23:00 PAGE 92

SEQ 0104

1STB
BEQ
MOV
ADD
MOV
TST
BM]
cMP
BEQ
TST
BR
CMP
BEQ
MOV
INC
TSTB
BEQ
ST
BEQ
TST
BNE
MoV
ADD
INC

::SHOULD LOG AN ERROR?
SLFLG
::IF NOT: BR
108
::GET ERROR #
.
@4 (SP) ,RO
::BUMP RETURN ADDR.
#2,4(SP)
TO TABLE START
T
::POIN
#SASTAT R1
TABLE?
OF
;2;END
(R1)
BR
SO:
;:IF
8%
ENTRY?
PROPER
:
RO, (R1)+
;:1F SO: BR
9
::MOVE PAST COUNTER WORD
(R1)+
:KEEP LOOKING
:
6%
:;TABLE FULL?
$APTR,R1
::IF SO: BR == NO MORE ROOM
108
::SET UP NEW ENTRY
RO, (R1)+
:;BUMP ERROR COUNT
(R1)
::SHOULD REPORT FATAL ERROR?
S$FFLG
::;IF NOT: BR
12%
: :RUNNING UNDER APT?
SENV
::IF NOT: BR
12%
::FINISHED LAST MESSAGE?
SMSGTYPE
:;1F NOT: WAIT
11%
24 (SP) ,SFATAL ::GET ERROR #
::BUMP RETURN ADDR.
#2.,4(SP)
::TELL APT TO TAKE ERROR
$MSGTYPE

CLRB
MoV
MOV

SMFLG
(SP)+ ,R1
(SP) +,R0

MoV
MOV

RO,-(SP)
$APTR,RO

::PUSH RO ON STACK

PC
RO,-(SP)
#SASTAT R
(R1)+
2%
(R1)+
1%

:;RETURN
::PUSH RO ON STACK
::GET START OF TABLE
::END OF TABLE?
::1F SO: BR
::CLEAR ERROR COUNT
: :KEEP CLEARING

CLRB
CLRB

RTS

$FFLG
SLFLG

::;CLEAR FATAL FLAG
::CLEAR LOG FLAG

: :RETURN

::CLEAR MESSAGE FLAG
::POP STACK INTO R1
::POP STACK INTO RO

SuB
TST
BNE
MOV
MoV
MOV
MOV

#SASTAT RO
$MSGTY
1%
RO,$MSGLG
#SASTAT ,SMSGAD
#2,8MSGTY
(SP)+,R0

;:GET SIZE OF STAT TABLE
::SEE IF DONE LAST COMMUNICATION
;:1F NOT: WAIT
::SET MESSAGE LENGTH
;;SET MESSAGE ADDR.
::TELL APT TO TAKE STATS.
::POP STACK INTO RO

MOV

(SP)+,R0O

::POP STACK INTO RO

::FATAL FLAG

RTS
MOV
MOV
TST
BM]
CLR
BR
RTS
.BYTE
.BYTE

.BYTE

.EVEN
APTSIZE=200

PC
0
0

:;RETURN
: :MESSG. FLAG
::L0G FLAG
;

30(1046) 04-AUG-81
GAWORD MEMORY EXERCISER, 16K VER MACY11
APT COMMUNICATIONS ROUTINE
~AUG=-81 22:59

0-2
CVMSAA. P11
CVMSAA

APTENV=001
APTSPOOL=100
APTCSUP=040

000001
000100
000040

4656
4657

4658

23:00 PAGE 95

- "'t..’..'.t.'tt..'.fitt'i'.'t'.."t.i.lt...t".'.".‘...t'."Qt.‘Q

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
:#«THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
.SBTTL

WHETHER THE
“«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ONWILL
BE TYPED
SIGN
MINUS
A
OR
“«NUMBER IS POSITIVE OR NEGATIVE A SPACE
BE

“«BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS

;*REPLACED WITH SPACES.
s=CALL:

$TYPDS:

022570

020200
000020

000055

155702

000001

023012

000040

1%:
2s:

023002

3s:
4$:

nony
N

& Faes e ¥=)

N
ANINONY
SNSNNSN NNN

[elelelelelelelelelelelw]

5%:
000001
000060
000040

177777

6%:
7%:

157110

8%:

MOV

NUM,-(SP)

:;PUT THE BINARY NUMBER ON THE STACK

MoV
MOV
MOV
MOV
MOV
MOV
MOV
8PL
NEG

RO,~(SP)
R1,=(SP)
R2,-(SP)
R3,-(SP)
RS,-(SP)
#20200,-(SP)
20(SP) ,RS
1%
RS

::PUSH RO ON STACK
2:PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH R5 ON STACK
= :SET BLANK SWITCH AND SIGN
2:GET THE INPUT NUMBER
“*BR IF INPUT IS POS.
“:MAKE THE BINARY NUMBER POS.

MOV
MoV
ADD
MOVB
CLR

RELOCF, RO
#$DBLK ,R3
R3
RO,
#' ,(R3)+
R2

:GET RELOCATION FACTOR.
::SETUP THE OUTPUT POINTER
*ADD IN RELOCATION FACTOR.
*:SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER

SUB

R1.R5

::FORM THIS BCD DIGIT

égc

§§

*2INCREASE THE BCD DIGIT BY 1

ADD

R1.RS

:2ADD BACK THE CONSTANT

BNE

“:FALL THROUGH IF 0

TYPDS

MOVB

MOV
BLT

TST

TSTB
8MI

ASLB
BCC
MOVB

#'-,1(SP)

$DTBL (RO) ,R1
4%

(SP)
7%

::BR IF DONE

::CHECK IF BCD DIGIT=0

::STILL DOING LEADING 0'S?
::BR IF YES

8%
R5.Rc
6%

1260 TO EXIT
::GET THE LSD
::G0 CHANGE TO ASCII

TSTB

(SP)+

BPL

::GET THE CONSTANT

1(SP) ,=1(R3)

CMP
BLO

BHI
MOV
BR

S :MAKE THE ASCII NUMBER NEG.

2 :MSD?
::BR IF NO
;:YES=-SET THE SIGN

(SP)
63

#'0,R2
# R2
R2,(R3)+
(RO) +
.EIGHT
20,
23

BIS
BIS
MOVB
ST

::G0 TO THE ROUTINE

::MAKE THE BCD DIGIT ASCII
::MAKE IT A SPACE IF NOT ALREADY A DIGIT
2:PUT THIS CHARACTER IN THE OUTPUT BUFFER
ING
12JUST INCREMENT
:CHECK THE TABLE INDEX
:GO DO THE NEXT DIGIT

“*WAS THE LSD THE FIRST NON-ZEROC?
::BR IF NO

SEQ 0105

CVMSAA

CVMSAA.P11
4712
471
4714
4715
4716
4717
4718
4719
4720
4721
4 g
L7

4724
4725
4726
4727
4728

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

CONVERT BINARY TO DECIMAL

04~AUG-81 22:59

022740
0‘3‘ 7646
022750
022752
022754
022756
022760
022762
02 ;gb
022770
022776
0

2
0
023004
023006
023010
023012

MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
JSR
.WORD
MOV
MOV
RTI

116663 177777 177776
9%:
105013
012605
012603
012602
012601
012600
004567 176606
023012
016666 000002 000004
012616
000002

10000.
1000.
100.
10.
.BLKW

$DTBL:

023420
001750
000144
000012
000004

$DBLK:

-1(SP) ,=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0
$SPRINT
RS,
$DBLK
2(SP) ,4(SP)
(SP)+, (SP)

;:YES=--SET THE SIGN FOR TYPING
::SET THE TERMINATOR
::POP STACK INTO RS
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP 3TACK INTO RO
:GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED
::ADJUST THE STACK
::RETURN TO USER

_SBTTL BINARY TO OCTAL (ASCII) AND TYPE

473

_-;ttttfl:tttttttttttntntttttttttttttttflnttttttttttttt:ttttttttntt

4733

“xOCTAL (ASCII) NUMBER AND TYPE IT.

“%THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

4732

:~§Hfos---5mm HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

2;%

(R 1

i
i*
i*
%
%

4736
4737
47%8
4739
4740

MOV
TYPOS
.BYTE
BYTE

NUM, - (SP)
’
N
M

: ;NUMBER TO BE TYPED
::CALL FOR TYPEOUT
S*N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
:2M=1 OR O
;:1=TYPE LEADING ZEROS

: :0=SUPPRESS LEADING ZEROS
i
L «$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

2;2}
4743

;*$TYPOS OR $TYPOC
,
s*CALL:

4744
4745

4746

2;2;

4749
4750
4751
gg
4754
4755
4756
4757
4758
4759
4760
4761
47
4763
4764

- %

023022
0&30%2
0230
023040
023044
023046
023054
0
0230
023072
023074

017646
116667
112667
062716
000406
112767
112767
112767
010346
010446
010546

000000
000001
000211
000002
000001
000006
000005

4765 8 3076 116704 000147
3102 005404
4766
062704 000006
023104
4767

000213

000173
000167
000156

MOV

TYPON

NUM, - (SP)

::NUMBER TO BE TYPED
::CALL FOR TYPEOUT

- x$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:
::NUMBER TO BE TYPED
NUM,~-(SP)
MOV
i
::CALL FOR TYPEOUT
TYPOC
i
::PICKUP THE MODE
a(SP) ,~(SP)
$TYPOS: MOV
ZERO FILL SWITCH
::LOAD
ILL
,SOF
1(SP)
MOVB
OF DIGITS TO TYPE
;;NUMBER
MODE+1
(SP)+,$O
MOVB
RETURN ADDRESS
:ADJUST
>
#2,(SP)
ADD
$TYPON
BR
::SET THE ZERO FILL SWITCH
#1,80FILL
S$TYPOC: MOVB
::SET FOR SIX(6) DIGITS
+1
SOMODE
#6,
MOVB
2:SET THE ITERATION COUNT
T
#5,S0CN
$TYPON: MOVB
::SAVE R3
)
R3,-(SP
MOV
::SAVE Ré4
R4 ,~(SP)
MOV
::SAVE RS
R5,-(SP)
MOV

MOVB
NEG
ADD

$OMODE +1,R4
R4
#6.,R4

“:GET THE NUMBER OF DIGITS TO TYPE
;2SUBTRACT IT FOR MAX. ALLOWED

SEQ 0106

|
|

CVMSAA

CVMSAA.P11

-AUG=-81 22:59

BINARY TO OCTAL (ASCII) AND TYPE
MOVB

4768 023110 110467 000134

MOVB

4769 023114 116704 000127
016605 000012
4770 023120
4771 023124 005003
4772 023126 006105

000404
4773 023130
4774 023132 006105
4775

023134

006105

4176

023136 006105

4781
4782

023152 042703 177770
023156 001002

4777

023140 010503

4778 023142 006103 000100
4779 Q3146 105367
023150 100017
4780

4783
4784
4785
4786
4787
4788
4789
4790
4771
4792
4793
W%

023160
023162
023164
023166
023172
023176
023202
023206
023210
023214
023216
023220

4795 023222
4796 023224
4797 023206
4798 0232
4799 023232
4800 023240
4801

4802
4803
4804
4805
4806
4807
4808
4809
4810
4811

481

4813

005704
001403
005204
052703
052703
110367
004567
02320
105367
003346
002402
005204

000060
000040
000042

176366
000032

000
023244
000
023245
000
023246
000
023247
023250 000000

023252 005727

023254 000000
023256 001010
023260 005267 177770

011667 155666

4815 023276 000401
000000
4816 023300
4818

023302

005067

4819 023306 000002
4821

‘255
4

2s:

38:

4$:
5%:

78:

023310

BR
ROL

ROL

3%
RS

::G0 DO MSB
:FORM THIS DIGIT

12(SP).RS
R3
RS
RS

BIC
BNE

#177770.R3
48

BIS
MOVB
JSR
.WORD
DECB
BGT
BLT
INC

BR
MOV
MOV
MOV
MOV
MOV
RTI

MOV
JSR

.WORD

BR
HAL T
(LR

::SAVE IT FOR USE

IGET THE ZERO FILL SWITCH

MOV

BEQ
INC
BIS

PAGE 95

SOFILL.R4

R5,R3

ROL
DECB
BPL

23:00

R&,SOMODE

R3
SOMODE
78

IPICKUP THE INPUT NUMBER
*:CLEAR THE OUTPUT WORD
*:ROTATE MSB INTO '°C*'

::GET LSB OF THIS DIGIT
S:TYPE THIS DIGIT?
2:BR_IF NO
“:GET RID OF JUNK
*:TEST FOR 0

*:SUPPRESS THIS 0?
R4
“:BR IF YES
5%
:DON'T SUPPRESS ANYMORE 0'S
Ré
*IMAKE THIS DIGIT ASCII
#'0,R3
“IMAKE ASCII IF NOT ALREADY
#' .R3
*:SAVE FOR TYPING
R3.8%
$PRINT GO PRINT OUT THE FOLLOWING MESSAGE.
RS,
:ADDRESS OF MESSAGE TO BE TYPED
8%
*:COUNT BY 1
SOCNT
*2BR IF MORE TO DO
2%
*:BR IF DONE
68
“INSURE LAST DIGIT ISN'T A BLANK
R&

28
(SP)+.RS
(SP) +.Rk
(SP) +.R3
2(SP).4(SP)
(SP)+. (SP)

BYTE 0
8s:
BYTE 0
$OCNT: .BYIE 0
SOFILL: .BYTE O
$OMODE: .WORD 0
:ERROR TRAP SERVICE ROUTINE
(PC)+
ERRTRP: TST
.WORD 0
18:
28
BNE
18
INC

2s:
177746

MOV
(LR
ROL

TST

023270 004767 174372

4814 023274 000031

4817

18:

000743
68:
012605
012604
012603
016666 000002 000004
012616

023242 000002

04~-AUG-81

0-2 MEGAWORD MEMORY EXERCISER. 1 6K VER MACY11 30(1046)

(SP),

PC.
31

STMP3

::GO DO THE LAST DIGIT
*:RESTORE RS
*:RESTORE R4
*:RESTORE R3

ISET THE STACK FOR RETURNING
: ;RETURN

::STORAGE FOR ASCII DIGIT
*:TERMINATOR FOR TYPE ROUTINE
:0CTAL DIGIT COUNTER
*2ZERO FILL SWITCH
*INUMBER 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.

SERROR - *** ERROR *** (GO TYPE A MESSAGE)
*ERROR TYPE CODE.

*SKIP HALT
ERROR! SECOND TRAP TO 4 OCCURRED
*BEFORE FIRST WAS PRINTED

38:

RTI

.SBTTL

PHYSICAL ADDRESS TYPE ROUTINE

:RETURN TO PROGRAM AND TRY TO RECOVER

TO TYPE A PHYSICAL ADDRESS (22 BITS).
NE
ROUTI
‘»
$TYPAD:

0-2 ME GAWOR D MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81
ROUTINE

CVMSAA
CVMSAA. P11
4824

4858

PHYSICAL ADDRESS TYPE

04~AUG-81 22:59
01004€
010146
010246
010346

MOV
MOV
MOV
MOV
MOV

000012
155204

4«8
4831

000001

177572

CLR
TST
BEQ
BIT

R2
MMAVA
1%
",

@¥SRO

MOV

R2,

ROL
ROL
ROL
ROL

R1
R1
R1
R1

BEQ

4834
4,835

ROL

4836

4837
4,838
4839

BIC

177761
172340

000006

4%:

1%:

004767
003
001
010246

ASL
ROL

ADC
‘A“S)t

ROR
MOV

010346

106746
105066

ADD
MOV
MOV
SO8
BIC
ADD

160000

000001
177364

000001
177346

RO,=(SP)
R1,-(SP)
R2.-(SP)
R3,-(SP)
12(SP), R2

23:00 PAGE 96

;;PUSH RO ON STACK
:;PUSH R1 ON STACK
::PUSH R2 ON STACK
;:PUSH R3 ON STACK
:GET BASE ADDRESS

;WORKING & INDEX REGISTER
;CHECK FOR MEM MGMT AVAILABLE
;BRANCH IF NO MEM MGMT
;CHECK IF MEM MGMT ENABLED

;BRANCH IF MEM MGMT NOT ENABLED
;COPY VIRTUAL ADR
;SHUFFLE BITS 13,14,15 INTO 1,2.3

#177761, R1

;CLR ALL EXCEPT BITS 1,2.3

R1
R3
4%
RO,
#160000, R2

;SHIFT PAR
;SAVE OVERFLOW BITS

#KIPARO, R1
R
(R1),
RO
#6,

R1,
R3

;SET TO APPROPRIATE PAR
;GET CONTENTS OF PAR
sSET UP COUNTER

sCOUNT SIX SHIFTS
:SAVE BANK BITS
;COMPUTE PHYSICAL ADDRESS

;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

R2
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 CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB
JSR
.BYTE
BYTE
MOV

PC,
3
1
R2,-(SP)

$TYPOS

;ON PSW RETURN.

;GO TO THE SUBROUTINE
;:TYPE 3 DIGIT(S)
;:TYPE LEADING ZEROS
;:SAVE R2 FOR TYPEOUT
;: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(Cw+.
;PUT THE PROCESSOR STATUS ON THE STACK
-(SP)
MFPS
:HIGH BYTE CLEARED TO INSURE KERNEL MODE
1(SP)
CLRB
JSR
BYTE
.BYTE
MOV
MOV
MOV
MOV
MOV
RTS

$TYPOS

PC,
§
1
(SP)+,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,R0O
(SP)+, (SP)
PC

;ON PSW RETURN.

;GO TO THE SUBROUTINE
::TYPE 5 DIGIT(S)
::TYPE LEADING ZEROS

::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

(VMSAA

0=2 MEGAWORD MEMORY EXERCISER,

CVMSAA.P11

04-AUG-B1 22:59

16K VER MACY11 30(1046)

STANDARD PROGRAM MESSAGES

04-AUG-81

23:00 PAGE 97

.SBTTL STANDARD PROGRAM MESSAGES
*VARIOUS MESSAGE PRINTOUTS USED THRUOUT
*THE PROGRAM
'....t....'......‘..'..."..t'.'...'.

4880

::'."'...'.'.'.......'...'.."...QI.....t".'i...'Q'.....'.Q...'

‘&1

4
488

::....-....'.'...'.'..'.'...

MANAGEMENT) AVAILABLE'
0304615 MMAMES: .ASCIZ <15><12>'KT11 (MEMORY
0521135 04751
0050150 04251
Aggs 053472
.
023500 02404

‘

4886

4887
4888
4«889
4890

023506
OgSM
0 Sgg
023530

4892

0235

4895

0 g

489

489%
4896

0525;9

023544
023552

054522
043501
024526
046111

046440
046505
040640
041101

047101
047105
040526
042514

044502
020122
006514

020124
053101

042101
044501

15 031012 020062 AVAL22: .ASCIZ <15><12>'22 BIT ADR AVAIL'<15><12>

000

000012

489 02 596 005015 042515 047515 MEMMES: .ASCIZ
023600

000072

054522

046440

050101

4900
4901

023616

051117

020131

040515

4903

023627

4897

023572

<15><12>'MEMORY MAP:'

044522 MIMAP: .ASCIZ <15><12>'PARITY MEMORY MAP:'
005015 040520
4899 053602
023610 054524 046440 046505
4902

023624

035120

043012

047522

FROM:

LASCIZ

<15><12>'FROM '

040 047524

000040

10:

.ASCIZ

* T0'

015

4905

023634

023637

020115

4907
4908
4909
4910
4911
4912
4913

023652
023660
023666
023674
023702
023710
023716

043106
052116
051117

4904

000

ICIENT MEMORY...FIRST 16K NOT ALL THERE!'
INSUFF2>"
052523 INSUFF: .ASCIZ <15><1
4906 023644 005015 047111
041511 042511

4914

023724

4915 023725

044506
033061
020124
044124

000

046440
027131
051522
020113
046101
051105

046505
027056

020124
047516
020114
020505

015 047012 020117 MTR:

4916
4917
4918
4919

023732
023740
003746
023754

040520
051040
042524
052517

044522
043505
051522
042116

054524
051571
043040
000

4921
4922
4903
4924
4925

023766
02377
024002
024010
024016

040524
020107
02012¢
042527
046111

(0sg1z2
043101
020101
020122
051125

047ill
Dack
047320
040506
006505

051101
051105
043040
047440
Qu7sls
040503

052111
047522
052517
020116
Osusge
006516

020131
051522
042116
042515
051440
000012

040522

020115

047516

49,

4926

023761

024024

4927 024
4928
4929
4930
4931
432
4933

024034
024042
024050
024056
020es
024072

4935

024106

LASCIZ <15><12>'NO PARITY REGISTERS FOUND'

015 051012 051505 PWRMSG: .ASCIZ <15><12>'RESTARTING AFTER A POWER FAILURE'<15><12>

000012
005015 047516 050040 NOPES:

MEMORY SCAN'<15><12>
ON ND
.ASCIZ <15><12>'NO PARITY ERRORS FOU

9% 024100 005015 051120 043517 PROREL: .ASCII

GRAM BACK AT 0 T0 8k’
NOW RESIDES
<15><12>'PRO

SEQ 0109

(VHSAA

4936
4937
4938
4939
4940

026116
0261
0241
024136
024144

4941 024145
4942
4943
4944
4945
4946
4947

024152
024160
026166
024174
024202
024210

4948 024211
4949
4950
4951

4952

4953

STANDARD PROGRAM

04~-AUG-81 22:59

lCVHSAAP

020127
04%504
045503
020060

042522
020123
040440
047524

041440
052516
020122
046101
044516

047117
020105
047516
051040
043516

044523
040502
020124
034040

LASCIZ <15><12>'HIT CONTINUE FOR NORMAL RUNNING®<15><12>

015 050012 051101 Mx1:

000

LASCIZ <15><12>'PARITY REGISTER AT *

040 047503 052116 Mx2:

LASCIZ

113

020131
052123
020124

042522
051105
000

024244

047522

051514

000040

024260
024266

046505
047338

051117
047125

020131
027104

02423

044524
047506
046522
047125
005015

4954 024252 005015 047516 046440 NOMEM:
4955
4
4957

015 044012 052111

052111
044507
040440

024216
024226
024232

024274

4958 024275

0246302
024310
024316
024324
024332

050116
046114
046501
020123
052103

052125
050040
052105
047111
046101

040440
051101
051105
047440
056

4965
4966

024344
024352

0521 3
0425 2

040440
051523

042104
020072

4969

024370

' CONTROLS '
"

.ASCIZ <i5><12>'NO MEMORY FOUND.'

015 005012 044412 FADMES: .ASCI]

4959
4960
4961
496%
4963

<15><12><12><12>'INPUT ALL PARAMETERS IN OCTAL.'

LASCIZ

<15><12>'FIRST ADDRESS:

4968 024362 005015 040514 052123 LADMES: .ASCIZ

<15><12>'LAST ADDRESS:

== o
~ o~
&N

o
n
o

SRIRA

698

024500
02

.ASCIZ

<15><12>"SELECT CONSTANT:'

015

052412

UNEXPT: .ASCIZ

<15><12>"UNEXPECTED MEMORY PARITY ERROR'

020104
5

042515

PRELOC: .ASCIZ

<15><12>'PROGRAM RELOCATED TO °

N=nasoe
NN

éi
52

024465

CONST:

042523 042514
RR G3RRR &R

4981

n
o

024412
024420
024426
0244
024442
024450
024456
024464

4973
4974
4975
4976
4977
4978
4979
4980

042522
020040

037412 042101 BADADR: .ASCIZ <15><12>'?ADDRESS IN UNMAPPED BANK?'

~
~

024404

4972 024405

042104
020072

024376

g
04
0515

4971

000040

S2=9 o8

4970

024360

WWW

4967

015 043012 051111

nNROVOO~N—
i = O
-t
O)=
O —

4964 024337

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

4991 024556 005015 047515 042522 MTOE:

.ASCIZ <15><12>'MORE THAN ONE PARITY ERROR FOUND. "'

SEQ 0110

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

STANDARD PROGRAM MESSAGES

04-AUG-81 22:59

0%4;%0
024

SCANM:

—

~n
N

—

0460520 044522 PEWNC:
n
»
»
o

?80—'-‘-"\”\)—'

0415%2 047101

OO
=WV
=0
P == UAAWY
O = =)=
N)
WH NSNS
VioniNINON
N

038510

arnuég ZRER 3
K8

020116

05204C

~N
n

o0
o
NN
~
»

REER

024564

P11

.ASCIZ <15><12>'SCANNING MEMORY FOR BAD PARITY.'

.ASCIZ

015 047012 020117 NOMTST: .ASCIZ

042323

047515
051505

054522
042524

051412

044513

20
24

000

047111
052123

020107
021440

377 000377

024771

SKPMES: .ASCIZ

<15><12>'PARITY ERROR WILL NOT CLEAR.'

<15><12>'NO MEMORY TESTED.®
<15><12>'SKIPPING TEST #'

<377><377>

FILL2:

.ASCIZ

.SBTTL

ERRCR REPORTING MESSAGES AND TABLES.

:‘.'Q.Q.fi'..t.tt.tt.fi't""..‘tl'.t.tt.t.tttttfitttltttfit't"ttttt

025002

DM1:

LASCIZ

FOR ERROR TABLE TYPEOUTS
'PARITY REGISTER DATA ERROR.'

DM2:

LASCIZ

'ADDRESS TEST ERROR(TST1-5).’

DMé4:

LASCIZ

'CONSTANT DATA ERROR(TST6-10).°

047522 040524 044524 DM5:

LASCIZ

"'ROTATING BIT ERROR(TST11-12).'

LASCIZ

'MOS REFRESH TEST ERROR (TST 24-25).'

0 044522 054524

05 0‘2
4

040504
051122

051505

052123

—

051117

~ -b

—-

— -l

033124
— ~N

R
N

—

—-

0244

v wvi

051524

0511

0000

n
&S
~
o

n
W

020123 042522 DM6:
Wi

pt<

026461

it PN =

»
ORI
D =
oo
N\aaskuo

~ wi

RARS 2 RR
NW

024122

28SRS

b
il sl il cucl
D s

[olele]

o0 OO

051104

051511

040524

0251

020122
042440

!UN"UC“:
PONINONY
2%
VIV
wvivawviavana

043505

** MESSAGE BLOCK
e beiodeiuiafalaiialaiaibolodobbodobobolododbolodobol
Ll

SEQ 0111

| CVMSAA

ERROR REPORTING MESSAGES AND TABLES.

04~AUG-81 22:59

CVMSAA. P11
5048

025216

031055

024465

000056

LASCIZ

5050
5051

025232
025240

051105
040510

047522
052114

020122
000

5053
54
5055
5056
5057

025 28
025
025266
025274
025 8

047111
020123
023460
047552
020124

020107
047101
020123
024122
031462

023461
020104
051105
051524
027051

020131
054522
042522
051122
052123

042515
040440
051523
051117
031461

047515
042104
042440
052050
027051

053440
051127
040520
042040
020124
052050

052111
047117
044522
042111
051124
052123

020110
020107
054524
023516
050101
031461

5049 025224 040506 040526 020114 OM7:

051101

052111

5060
5061
soei
5063
5064
5065

025316
055353
0253
025340
025
025354

5067
5068
5069
5070
5071
5072

0%5
025370
025376
025404
025412
0254

5066 025355

5073

025426
~

5074 ossa 1

LASCIZ “MARCHING 1'S AND 0°'S ERROR(TST 23)."'

000

120 051101 052111 DM11:

_ASCIZ

000

LASCIZ 'TDATIO WITH WRONG PARITY DIDN'T TRAP(TST13)."’

106 052101 047511 DM12:

027051

000
047522 043516 DM13:

5076
5077
5078
5079
5080
5081
SOOi
5083

025444
025452
025460
025466
055474
025502
035510
025516

020131
052103
052502
051
042524
053517
047522
043501

042504
042105
020126
043505
020122
020123
020122
000056

042524
020054
047516
051511
044123
051105
046106

5085
5
5087
5088
5089
5090
5091
5092
5093
5094

0255
025536
025544
025552
025560
025566
025574
0 5605
025610
8 3616

051040
042524
020124
042105
047503
046114
044124
042104
052050
027031

04350
020122
040515
040440
052116
047111
051511
042522
052123
000

047516
050120
020123
047522
020107
040440
051523
031461

2096
097
Sggs
5
5100
5101
S10§

025626
0
0 5665
8 5650
025656
0256?4
025672

044124
042516
051511
047111
042524
044522
051122

047101
051040
042524
044504
020104
054524
051117

047440
043505
020122
040503
040520
042440
000056

DM14:
5084 025555 040520 0445225 054524
051511

5095

5103

‘'FATAL ERROR HALT'

115 051101 044103 DM10:

02531

5059 025311

SOS; 025245

5058

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

*15 051117 020105 DM16:

025700 040504 040524 051440 DOM17:

‘PARITY MEMORY ADDRESS ERROR(TST13)."

.ASCIZ 'WRONG PARITY DETECTED, BUT NO REGISTER SHOWS ERROR FLAG."'

LASCIZ 'PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST13).'

.ASCIZ 'MORE THAN ONE REGISTER INDICATED PARITY ERROR.'

LASCIZ °'DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR TRAPPED(TST13).""

SEQ 0112

046125
044040
044103
0%8624

0
0
020131
2
20

"RANDOM DATA ERROR(TST14).°

052522 DM21:

LASCIZ

*INSTRUCTION EXECUTION ERROR(TST15-22).°

047522 051107 DM23:

LASCIZ

'PROGRAM CODE CHANGED WHEN RELOCATED.'

DM24:

.ASCIZ

'TRAPPED, BUT NO REGISTER HAD ERROR BIT SET.'

DM25:

.ASCIZ

'TRAPPED TO 114.°

DM26:

.ASCIZ

‘FAILED TO TRAP.'

047
041
1
042523

DM27:

.ASCIZ

‘'"(ACTION ENABLE WASN'T SET)."

050101

DM31:

.ASCIZ

<15><12>"TRAPPED TO 4 '

6 046517 DM20:

WnWnaN=N
WVIOOWVNWO

020117
000056
052103
047105
053440
020 1 22
00005

0511244

020104
000040

042
051

047524
000056
046111

050101

OO0

820101

e ed e

052101

OoONO
=

020101
024122
024464

)
~ — Nt
So

RRRRR
gR FRRSRR
N§N—'NNN ONS NN

.ASCIZ

222 8RIR

OO\

— e =

HONO

051101
051105
051126
024104
024463

047104
053101
0471017
044127

04751C
852047
20105
042507

QO
=N
VIWN=O
&V O

S ERETIEARE
o

£33

LY LN

ERROR REPORTING MESSAGES AND TABLES.

04~AUG-81 22:59

gge8e

U!U\U\U\\l!\ll\l!\ll\h\llu i

NOAININIAONIND)!

jelelelelelelelelelelelelelalelelel)

A, i O DB IR A
S RN R A RN NS ORI

oONxmbw-flcos & v SREEERtY R

— ol

VIV

Y YT AL Y A

A VY T Y

AL DT
IA VIR DTN T T
I
) ) ) ) ) il e — = el D D D )
D D il i il
—.-.dddd—.d—.-l-.—‘—l-‘—.—l—l—.-‘—l—ld — e
NN
N ANNINI NI NININININININY
= = = b 3 = b b b b
s
bW
~
S
VIV Vi

v AW

D il

VWA

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

047524

"'.i'.'titttl'.t'.'.'"'."'tt.!ttt"i'.t.t't"'ltt.""'t.t"..

HEADINGS
“DATA COLUMNi.tti
ttt't""'t'!."..t..i.l.'fifi..ti'tt.t!"""t'.
:;""t.t"'.

SEQ 0113

041057
051501

WAS'

REG

S/B

‘v/PC

P/PC

LASCIZ

'v/PC

P/PC

DH14:

.ASCIZ

'V/PC

P/PC

REG

MA'*

DH15:

.ASCIZ

'v/PC

P/PC

MAUT

REG

DH21:

LASCIZ

'v/PC

P/PC

Iurt

DH23:

.ASCIZ

'v/PC

P/PC

SRC MA

DH24:

.ASCIZ

'v/PC

P/PC

TRP/PC'

DH25:

LASCIZ

'v/PC

P/PC

DH26:

LASCIZ

'Vv/PC

p/P"

DH1:

.ASCIZ

DH2:

LASCIZ

DH12:

SEQ 0114

S/B

WAS*

SKRIRR

W
nNw

KR FRXLRR

oo 0000000

200
126

043505

PAGE 102

23:00

6400

S/B!

S/B

051501
004503

S/B

OO N O O\ ON O O~ O O
$%
8323
n
oog RloonR

SRR R RAT 2B IS I
wWnh—-

OO0

3 8BIRAR

0 gg;g

05101
051440
053440

DST MA

S/B

TRP/PC

REG

WAS'

REG

WAS'*

e
b e =

mbw-oo§§N§ w

VIV WAV —

e e

i i

056334
026

04-AUG-81

ERROR REPORTING MESSAGES AND TABLES.

~AUG~81 22:59

S99

N NANNSTEIGRROR2S

Y
i v oa

D il ol il el
.

i
T

Dl i el D el

) D el
e

A DT T

e e
e

AT A

D e e

0-2

P11

D ) il el

o o

CWMSAA

GAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046)

051501

004503
020011
020011
057501

0=2 MEGAWORD msmv EXERCISER, 16K VER MACY11 30(1046) 04~AUG-81 23:00
(VMSAA
ERROR REPORTING MESSAGES AND TABLES.
04-AUG-81 22:59
CVMSAA. P11
5216

5217
5218
5219
5220
5551
5 %
52
5224
5225

5226
5227
5228
52%8

5231

009

85
7014
027022
0270
0 7036
7044
027052
7060
027066

00C

122
053440
046440
020040
0%7526
050057
040515
051440
040527

027072

027075

'REG

WAS

WAS*

DH31:

.ASCIZ

‘'v/PC

P/PC

S/B

WAS'

.ttt'.fltt'ttttfitt'tt.t""t"tt'tttttt'!t'itt"'tt't.‘Qtt.t'tttt

377

DF2:

.BYTE

0,-1,-1,0.0

377
376
377
000
377
000
000

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

~1.0,-1.-2

027103
027106
027110
027113
027116
027121
027124

000
376
000
N7
000
377
377

027101

027127

.-tt'tt't'ttt'tfittfiit""ttt
O, -1,0.0
.BYTE
DF1:

377

52%4
5235
5236
5237
5238
5239
5240

000

376

5244

032000

5247

000001

5245
5246

.ASCIZ

377

000

5241

DH30:

000

027076

524
524

020011
020011

PRINTOUT.
% DATA FORMAT TABLE FOR ERROR
't!'.tittt"t'.ttt*tttii.tt.ttt.tt.'t

5232

5233

043505
051501
004501
040527
041520
004503
020011
041057
000123

PAGE 103

000

000
377

.EVEN

. = 32000
.END

:THE LOADERS ARE SAVE HERE TO END OF 8K
:1536. WORDS

SEQ 0715

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

CVMSAA

CROSS REFERENCE TABLE =-- USER SYMBOLS

04~AUG~81 22:59

CVMSAA.P11

ACPUOP= 000000
ADDWO = 000000
ADDW1 = m
ADDW10=
ADDW11= m

374
374
374
374
374

389
419
420
429
430

374

432

ADD12=

ADDW1

Aopine
ADDUZ := 000000
=

= 000000
ADDWS = 000000
ADDWS = 000000
ADDW6 = 000000
ADDW7 = 000000

374,

g
0
374

374
374
374
374

374

431

3
48
422

423
424
425
426

380

888888
ADEVCT=
ADEWM = 000000

374

AENVM = 000000
AFATAL= 000000
AMADRT= 000000

386
374
377
374
402

AMADR4

374

:EENV = 000001

ma%-= 000000
000000
1= 000000
AMAMS
AMAMS2= 000000

13;2#

416

2%(8);

374

409

374
374

396
404

Amvee: Ga0c00
AAss -

w0
wo

4500

L6584

100

4§;2

4§g(7)

APTCSU=

APTENV=
APTSI2=

:PYWG;

1
200

4067
1176

449%
LES55#4

374

378

ggg?
AVALZ22
AVECT1=

1267
374

L8924
41

1782

L9724

AVECTZ2=

BADADR

4405

BANKNO 014216

374

1959

L6564

ATESTN= 000000
-

4578

3538

407
410
382
383

374
374
374
374

2322

412

AMAMS 000000
AMAMS4= 000000
AMSGAD= 888888
AMSGLG=

ATy 000000

2289

4657/-3

414

1968

1993

2003

31864

SEQ 0116

CVMSAA

CVMSAA . P11

BITPT 001714
8170 = 000001

04~AUG-81 22:59

81700 = 000001
81101 = 000002
Bl!Oi = 000004
817103 = 000010
= 000020
81104
000040
=
BIT05
0
00010
=
BIT06
200
=
BITO7

BITO8

= 001000

BITO9

= 000002

BIT1

S774
3054
1234

628
3121
233

2023

2234

1054

115

1134
1124
1114
1104
1094
1084
1074
106#

1044

1224

123
122
121
120
119
118
117
116

114

CROSS REFERENCE TABLE -- USER

1712
3124
249

2267

3986

3996

81710
BIT11

= 002000
= 004000

103#
102#

4053
4003

81713

= 020000

1004

2264

4061

13?:

1265

2267

1204

= 010000

BIT12

g};

= 040000

BIT2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT9

=
10
=
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000

100000

1014

994

119#

118#
1174
1164
1154
1144

017350

3801+

CHGG1

803432

10074

CKPMER
CLRPAR

015662
016514

BNKTAB

BPTVEC=

CONST
=
CR
CRLF =
CTRLS

15662

464%
1
00

005734

DDISP = 177570

DF 1

027072

1304

35474

2096
1467

1787
384
394
1602

454

3135

3350

3814

39464

2186
1479

3067
1538

1257

L9774
4556
1208

16144

1074

1079

1018

1028

027116

1095

5238#

1130
1010
1056
1066
1072

1135
51604
1061
1077
51784

DF 30
DH1
DH12
DMH14
DH15

0 71;2
0263
1
8
644
74

547

gzs

DHZ3
4
5

DHI6

357

1015

1093

14
70

1103
1108

6757

1118

go 13

1113

4510
1164

DF 21

027103

4566

351

52304

1069

1308

1053

1026

5186#

1033
'

1058

52404

1123

1768
1488

3143

2967

1775
151

3054

2970«
1544

3034
1616

3037
1662

2937

2034

3037

3121

3124

3332

2925

2970

3708

2833

2289

1518

3972

1031
52124

3143

3556

3629

L
35484
2225

3622

37414

1105

1110

1115

1063

1085

5234k

1036

1046

1088

4566

1038

1048

1090

52364

1120

51704
51744

51934
52014

52054

3135

1762
3131
1482

3042«
1671
3704

SEQ 0117

3048
1819

3044
1717
3826

4083

3048

1012

1023

2304

2289

027110

027C76

1749
3129«
1334

2283

213

DF14

DF 2

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

51644

1125

5232#

B 10

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

CVMSAA

0=2

OH
DH31

02700
8578?6

CVMSAA.P11

011354
011270
11
011

DIDBH
pibBL
bigo
0IPOO_

DISMAP 0050

DISPLA 001132
000174
024774
025245
025311

DISPRE
oM
OMI0
pM11

025355
025431
025522
025621
025

OM1
OM1
DM14
OM1
OM1

0250

025776
026030
02607
026144
026220
026240
026260

1
3
4
5
6
7
OM31
DM&
DM5
DM6

026314
025064
025122
025160

02524

DM?

-AUG-81 22:59
1128
1021

52174

1051

1083

1310

1373

13844

195¢
1009

1172
1071

50234

250
24574
2120
25

3514

1045
1050

1055
1060
1065
1076
1081
1014

1164x

5052#
5059#

5066#
50744
5084#
50954
51034
1020

1087
1092
1102
1107
1112
1117
1122

5114#
5119
51264
5133#
51414
5144
5147#

1040

50494

1132
1025
1030
1035

1172+

52214
-

1i81=

3377+

3432+

1027

1032

1037

002040

6414

1011

DT
D121

002052
130

643#
6526

1017
109

1022

002210

1119

1124

3803+

3807

3930

39474

4808«
3978+

= 177570

D712
DT14
D115

002066
002100
002112

oT1

D123
pred
D125

002146
002164
002174

2§£
DY
0022
DT31
EMTVEC= 009230

ENDBKT 01735

645#
647#
649%

6554
6584
6608

6628

664n
seer
13

3802«

350

1163

1057
1067
1073

1062
1078

1104
1109
1114
1129
113

ENDINS 01785

40204
202

1385

1436

3472

024275

3408+
1694

3468+
49584

3472+«

3977

001774

612#

1301+

ERRTRP 023252

ERRVE (=
FADMES

FlLLe
FLA

FLGSOK

02477l
1757

1264

50174
6024

4018+

4052+

1047

1052

1084

1089

1287+

1332+

1385+

51524
5033#
50384
50434

28194
26404
25954

DSWR

50284

012340
011614
011530

DONE
DPDBH
OPDBL

SEQ 0118

CROSS REFERENCE TABLE -- USER SYMBOLS

201

1161

3051

1169
3139

1173+
3673

1244x

3980+

3843

1254+

3983+ |
\

1419+

1436~

3373+

c10

MACY11 30(1046) 04-AUG-81 23:00
| CVMSAA 0=2 MEGAWORD :f'emv EXERCISER, 16K VERREFEREN
CE TABLE -- USER SYMBOLS
CROSS
. P11
04-AUG-8
CVMSAA
023627
0017
0051
005164
005200
005210
005214
005252

3863

49034
1688+
14154
1434

000011
013076

3057

3145

1992

2002

29574

1879
2505
49064

1958

2598

1967
2643

2053

2686

2099
2775

240
259%
1256+

2915+
3346
1358+
3339+
1353
3636

3167
3407
1506«
3345
1359+
3687

3345«

4841

2263
3401«
2918«
3691

2285
3635«
3027«
3718«

1238+

3464
3870
3869
2212

3478%
3912«
3880

3532

35424

2971

3112

1331~

2172
29344

2357
3218

24615

2917+
3712«
3112«

2945«
3719+
3113«

2968+

3007

3026

3331«

3333«

3338

1521

1723

1769

1776

2907«

e
e

N —
:su“nqu~u
SugdRR2
l\mm&
ax R SEIWRY
" » » \i;!
PN
0\:\‘ SRRSIBGRE

—

— d d ek NN~
=Sl
OO SN
N0 —* NN ==

[+
J*] H
bt
4
Lele)

SN [

—

NSOV

—

2L
O‘N?’“J\O‘ONN

006242

2793

2139
2805

1724

NNNNNNNNNN

8°§_A-A_a—n—a-a—h-l—o_l
g—lb
nananRRNNNNN

006224

SEQ 0119

3531

3056

1798+

14264
1428#
1430
14424
1207
4508
1890

TIT

222822
VNN
= NN =

FROM

PAGE 108

13274
4566

3457
3867+
35234

1704

16884
1726

1784

1304
1226

1337
128+

3694

1328

3922+
3913«

3924
3921+

39454
3923

39444

1370

1384

1393

1398

| CVMSAA

0~2 MEGAWORD K?;gEXERCISER 16K VER MACY11 30(1046)

MMAVA

000536

MMDOWN
MMINIT
MMORE

MM P

013556
012636
001754

013212

MMVEC = 000250
MPAMEM 005260
MPEND
002266

MPPATS
MPRX

002242
003370

MPRO
MPR1
MPR10
MPR11
MPR12
MPR13
MPR14
MPR15S

002270
002334
003040
003104
003150
003214
3260
003324

MPR&
MPRS

002510
002554

MPR
MPR

23:00

CROSS REFERENCE TABLE -- USER SYMBOLS

04-AUG-81

CVMSAA.P11

D 10

04-AUG-81

231

1265+

1241+

3032

1346

3084

1361
3119

2961
3706

4830

2014

2975

3077#

2947+

2972+

2980+

3062

2567

2658

2056
2745

1415

1437

1418

1926
1821

1469
3156

3149

SEQ 0120

1504
3329

2348

2075
2768

2109
2787

2130
2798

1500

1593

160"

1650

1660

1669

2165

3065

1542

1614

1659

1668

3535«

3320

3340

3357

3584

3393

1978

1944

PAGE 109

2950

002400
002444

002620

MPR6
MPR7

002664

MPRS

oogzga

MTOE
MTR

024556
023725

Mx2
NOMEM

024237
02425

002730

MPRS

MTMAP

024211

mMx1

NOMTST 02472
004522
NONKT
024026
NOPES
OFFLG
001760
PARMAT 015770
PARVEC= 000114
010256
PBTRP
PBTRP1 010
015454
PESRV
024
PEWNC
PHYADR 014120
PIRQ = 177772
PIRQVE= 000240
002000
PLUST
PMEMAP 001654
PRELOC 0245
PRGMAP 0005
L

024100

1283#

2341«

2221+

2231«

3375«

3430

3534

1881

1893

1921

1932

31564

2967+
1474

3004
1497%

3010+

3041+

3094*

266

2774

1213+

1813

2023

2833

0=2
CVMSAA P11

| CVMSAA

E 10

MEGAWORD MEMORY EXERCISER, 16Kk VER MACY11 30(1046) 04-AUG-81 23:00 PAGE 110

= 000040

614

PR4G
PRS

= 000140
= 000200
= 000240
= 000

634
6Ln
654
664

= 177776

PR1

PR§
PR

PR?
PR

= 000100

SEQ 0121

CROSS REFERENCE TABLE =-- USER SYMBOLS

~-AUG-81 22:59

= 000340

678

016034

3512

3567

36134

PWRVE (= 00%84

LI
316

3562

1324

4920#

6224

3378

286+

3420

295«

301+

313«

314%

1156

1157~

3374

3429+

2947

3413

2972

3368«

3372*

3379

3387

LI R

1642

2268x

2269

2270

2320

37694

2706

2728

2781

PSCAN

= 177776
PSW
PWRMSG 023761

002002

RADTAB

LOn

285+

011070

23554

32824

3342

3365

3403

014572

4123
2836

4144
33204

4146

4460

4683

006106
(015306

16594
2842

2839

33934

34434

RESTAR 000300

199

1618~

1623

1628

1633

2908

2909

2910

2914

1392

1750

2029

1146
3530
217

1689
3534n
32174

1644
3774

1680
37794

2194

37584

SPRNTP 016574
SPRNTQ 016550

2250
3509

2274
3558

2294
3564

2308
3655

2325
37624

37684

016606

1973

37724

016620

2423

1938

2468

2070

2104

2125

2146

= 177574
= 177576

1494
1504

1257«

1261

RANTST

014450

RELOC

RELOCF 000532
RELTOP

015106

RELO

RESCHK
RESLDR

RESRVD 001506

000304
000306
000324

RESTOR
REST1
REST2

261

268

4954

2264
225

2764
629

224LH

1214+

318

RESVEC= 000010
ROTATE 014322

1233«
2141

32274

015374

1222

2890

34644

024622
007466
003750

3620
20234
11464

SKPMES
SPREND

024747
016646

50134
3766

SPRNTB

016642

SAVLDR

SAVTST

SCANM
SECT2
SELECT

001614

SELFLG 001756
015626
SETAE
SETCON 014304

016536
SPRNT
SPRNTA 016636

SPRNTO 016600
SPRNT1

SPRNT2

SPRNT3

SRO

SR1
SR

016624

= 177572

= 172516

STACK = 001100
START

STARTA

START1

003742

003756

006662

6014
2185
2117

1625
3770
3760

1636

1843

1484

1514

314

198

230

271

1212

3434

3527

2811

37774

2274
2314

229
127#
2120

1764

1815

2907
625

49974

1144
3528
2138
37814

37804

1860

233

1154

11444

1145

1797

1898

2514

249+«

1283

11474

1807#

2009
2561

1245+«

2925*

2222

2241

2334

2606

2652

37764

1819

2926%

1327

1780

1785

1814

2837

2892

2373

3451+

2697

3460+

4832

'cvnsu

0=2 MEGAWORD MEMORY EXERCISER, 1 6K VER MACY11 30(1046)

CVMSAA.P11

SwR

SWREG

sw0
SWw00

001130

000176

= 000001
= 000001

Lon

293

2081

306+

2167

4053

4061

95#
85#

1964

1171

Sw0S = 000040

804

778

sw03
Sw04

= 000010
= 000020

Sw06 = 000100
Sw07 = 000200

82#
814

794
78#%

SwO8

= 000400

Swl
SWw10
sw1l

= 000002
= 002000
= 004000
= 010000
= 020000
= 040000
= 100000
= 000004
= 000010
= 000020

oLk
754
74H

= 000200
sw?
000400
=
Sw8
= 001000
Sw9
TBITVE= 000014

88#
874
864
1284

Sw09 = 001000

swi2
Swi3

Swi4
SW15
S
Sw
Swé&

SWwS
Swé

= 000040
= 000100

764

3504

2823

4074

1195

92
91

89
88

1796

1416
2823

2738
2368

3644
2687

3764
2693

3821«
2719

2031«

3044

313

1526
3891

15384
49054

TSTMAP 001554

S19#

626

1813

2084
2114m

20934

ST
T1ST14

TST1S
1ST16
1ST17
1ST2
1ST
1ST21
TST2
1ST2
TST24

1354

1364
1344
1294

1818

007%2
007

2080
2098

010074
011064

21634
2169
24104
24554
25004
18764

010016

011202
011264
011350
007100
011440
011524
011610
011676

012130

3934«

3550

005530
023637

tST1§

3916
2733

2135#

25484
2593
26384
26844
27614

3550

2167

3529
3525

TMAP
T0

006756

4252+

4221

904
8o%

7%
704
93
924
9%

2688+
2360

4205

3529

3431+

1242

6104
611#

TST10
IST11

4083

4205

3525

1178+«

1165

734
724

001770
001772

TPVEC = 000064
TRAPVE= 000034
TRTVEC= 000014

3376+

1171~

1163

2079

TEMP
TEMP1

TKVEC = 000060

1152

PAGE 111

9%
93

= 000002
= 000004

844
834

sw01
Sw02

23:00

CROSS REFERENCE TABLE -- USER SYMBOLS

04~AUG~-81 22:59

L STRILMT= 177774

F 10

04-AUG-81

1820

23534

18334

1195

3972

SEQ 0122

1242

3986

1416

3988

1796

3996

2079

4003

46)
0-2 ME GAWORD MEMORY EXERCISER, 16k VER MACY11 30(10

| CVMSAA
P11
| CVMS.AA
1S125
TST
15132
1514
1STS
1516
1ST6A

1517
TYPMAP

00755
(016650

UNEXPT 024465
= 000000
uP
WP
001766
WwWPBYT 010136
010100
wPB0

Sis
dsl
010730
wWPB
WwPBs
WWPBS
WwwPB6

011020
011044
011054

$SAPTHD
$APTR
SASTAT
SASTEN
SATYC
$ATY1
SATY3Z
$ATYS4
SATYE
SATY?
$AUTOB
$BASE

001320
001502
001334
001500
022206
os 162
022170
022200
022476
022542
0011%4
001250

wW3Xx9

$BDADR
$8DDAT
$BELL
$COW1
$Cow2
SCHARC

014370

001112
001116
001164
001254
001256

$0DW1
$00W1
$ODW14

SEQ 0179

19154

637

19554
19894

2050#
20524
20624

3801#

1389

3486

2909
2202

2910
2209

2914

4632
4600

4604

4630

4633

4637

4643

4213

4393

658
643
4095

660
649

3298«
652

3486+
655

664

3296%

4532

4558
4027
3304

45634
4048
623

4082
1149

4205#
1150

1158

3634

3644

4065

4095

4107

4134

4140

1754

2908

21874
22004
2303
2226
23454
2184
32504

23384

1493

6094
21764
21654

23484

446

4894
Lo2H
4,884
4571

L5694
4498
4070

L6304
Lo41H

3474

4154

4525*

022156

262
3614
L3884
4356
1391
4566
4720

863012
1260
001262
001
001306

881310
1312
001314

PAGE 112

27914

$CKSWR 88 30
1070
$CMTAG
$CM3 = 000000
94
$CM4 =
$CNTLG 8 1371
1
$CNTLU
$CPUOP 0012;2
001171
$CRLF
$DBLK
$ODWO
sODW1
$ODW10
$oDW11

23:00

CROSS REFERENCE TABLE -- USER SYMBOLS

04-AUG-81 22:59

012234
807
12344
007306
007374
007526
0075 5

G 10
04-AUG-81

4334

3970
264
3624

3764«

3780+

4191

4256

43874
2845
L7284

4362

4387

4453

0=2 MEGAWORD MEMOR Y EXERCISER, 1 16K VER MACY11 30(1046)

| CVMSAA

CVMSAA.P11

001272
881 74
1558
001
001302
001204
001252

sODWS
iDDU?
$00W
sopw8
$ODWS
SDEVCT
SOEWM

01 61%

$D0AGN

$0TBL
SENDAD
SENDCT
SENDMG

$ERROR

2889

28824

4090

2825

2865
3992

$FFLG
$FILLC
$FILLS
$GDADR

022566
001146
001145
001110

$GDDAT

001114

$HD

2887

28614
3955
3994

003432
020116
001102
001162
001;14
001320
001176

$HIBTS
$HIOCT
$ICNT
$ILLUP
$INTAG
SITEMB
SLF
SLFLG
$LPADR
SLPERR
SMADRY

2880

1215
4495

SERRTB
SERRTY
$ERTTL
SESCAP
$E TABL
SETEND

4284

1193
1176

$ERRPC

$GET42
$GTSWR

4274

001214
001215
015662
012504
001073
001105

001106

$FATAL

4234
Lo4n
4254
4264

02
012560
012512
012616

017666

012950
020502

1320
021572
001074
000706
001125
001104
001172
022565
001076
001100
001226

SEQ 0124

L3am
W28
Yyl

L7244
1186

012633

SENULL
SENV
$ENWM
$EOP
SEOPCT
SERFLG
SERMAX

23:00 PAGE 113

(ROSS REFERENCE TABLE -- USER SYMBOLS

04~AUG-81 22:59

001316
001264
001266
001270

$ODW1S5
$00W
$0DW
$ODWs

H 10

04-AUG-81

28644

28914

28934

2855#

1637

2195
2562
3360

4017+
1645

2223
2607
3395
643

4095

4113

3651

4057+

1006#
4105#

4016+

458
4621%
4572%
4518
4566

3773
641

4086

4500

2888

4067

4493

4578

4580

3994
4022
1681

4000~

4022

4050«

4095

1844

1861

1899

1939

1974

4059+

3769+

3295+

3759«

3779+

1739

1742~

1743

1753

4440

44524

4019

4021

652

655

649

652

655

1724

645
3778+
645

4058+

3765+

649

L6534

2126
2469
3299

3758+

647

4624+

2424
3199

3297~

2326
2812
3656
658

4095

2105

664

649

2309
2782
3565
655

4095
4088

2071

2374
2976
4813
662

2295
2729
3559
652

2251
2698
3497
647

2010

2335
2951
40428
660

2275
2707
3510

2242
2653
3445
645

4122

4617

42184

1707+
4007+
301
4257
4060+
4095
4625+

1711«
4010«

3998

4021

.
1814~

4095
4387

4566

2086+

4014»

110

(=2 MEGAWORD MEMORY EXERCISER, 16K VER MACY11 30(1046) 04-AUG-81 23:00
(VMSAA
CROSS REFERENCE TABLE -- USER SYMBOLS
04~AUG-81 22:59
CVMSAA. P11

001212
001174
021376
MTYPT 001255
001231
sMTYPZ2
001235
SMTYP3
SMTYP4 001241
SMXCNT 017652
001144
SNULL
SNWTST= 000001
MSGLG
MSGTY
SMSWR

SOCNT
SOMODE
$OVER
$PASS
$PASTM
$PRINT

023246
023250
017636
001202
001326
021574

6064
4094
4124
3754
3964
L04s
407%
4104
L54m
4570+
4229
3824

3834
3764
4220

3974
4054
4084
4114
401
3564
18244

20584
24754

4761+
4756*
3973
3794
4564
315

$PWRAD 000702
$PWRDN 000540
$PWRMG 000676
SPWRUP 000612
001170
$QUES
$RDCHR 020736
SRDLIN 021066
SRDOCT 021420
$RDSZ = 000C10
$SAVR6 000712
$SCOPE 017354
$SETUP= 000130

$STUP = 177777
$SVLAD 017602
10
$SVPC =
167400
$SWR =

1884
3981
2094
»
366

4623+

4634

4638~

1869
2091

19064

1908

4626+

L6514

4589
4636+
4592«

4637

4389

4566
18674

19464

4493

1948

19804

1982

21534
26134

2155
2615

23504
26604

23854
2662

2859«

2868

2893

4005

4022

1386

1390

4106
4337

1539
3619
4184
4363

4719

4133
4350

1439
3505
4139
4361

1548

4131
4344
4789

1402
3487
4137
4355

4277

4368

4387

4450

4453

4566

1794

44074

2063
2762

2094
2792
2857

20894
25214

48044
4765

2827

4276
4513

4393

4619

4576
43914
4586*
4591

4242
4449

188#

4067

1175

1781

3184
2854
3164
295
3674
42904
43204
1702
43134
294*
}2;2

4013

458

1248
2844

3890

1193

454

21114
2568#

21324
2570

4768*
4009

4779+

48064

2831

40184
2858«

1266

2523

2875

3663

4190
4367

20404

2387

27484

1585

3723

4216
437

2042
24304
2750

2043
2432
27884

1693
3809
4219
4376

1728

4228

4447

1156

304+
1956
259
1158

17
1835

18
1878

303«

1916

2549

2457
3956

4002

2502
3957

4003

1190

20
1957
2595
3959

4018

2136
39644
4043

2354

2611

4090

4200

364

1991

23
2064

24
2095

2793

4021

3984
4035

2137
2857

4036

4038

2640
3960

2763

WWwWoRWnWn

SMADR3
SMADRS
SMAIL
SMAMS1
tMAMS?
sMAMS3
SMAMSS
$MBADR
SMFLG
SMNEW
$MSGAD

001232
001336
001242
001174
001224
001
001
001%40
001322
052564
021407
001210

SEQ 01725

Sy
33y

| SMADR2

PAGE 114

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

CVMSAA

04~AUG-81 22:59

- CVMSAA.P11

RO RRNIRES g oo

$IN

D
d ek
D

4061

3870

23:00
SYMBOLS
USER
-TABLE
E
CROSS REFERENC
4083

3780

269+
3534
3524
3604

PAGE 115

SEC 0126

4095

3960

3961

3988

3989

2857+

4001+

4008
4300

4011»
4539

662

4298
664

4021
4546

4537
3762+

4566
4544
3768+

1878#

1906

19174

1946

4294

4259+

660
3763+

4292

4235
4232
652
664

4812~
18354
20644

——d

$TMP3

$TMPO
$TMP1
$TMP2

g288388838 g8

$SWREG
=
$SWRMK
$TESTN
$TIMES
$TkB
$TKS

J 10

04°AUG-81

VIWWO W— = —
N=NnNN D
oo
ONN

RRRa3338
PN
= = —d 2

$TPB

021624

19574

1980
2
O

1991#
21374
2568

4052

4095

2076
24124
2748

2089
2430
27634

20954
24574
2788

2098
2475
27934

2822«

3990
43864

4012+~

4013

4018

4022

4364

3955
4382

4531

45364

2385
26864

S$TPFLG
$TPS
$TSTM
STSTNM
$TTYIN
$TYPAD
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM

1867

2502#

2040

2153
25954

4754

SUSWR
$VECT1
SVECT2

SVERPC
$XOFF =
SXON =
$XTSTR
$OF ILL
$40CAT=

= 032000

.BITPT
.CONST
EIGHT
.ERRTB
.MEMMA
MPPAT
«MPRX

.MPRO
.PBTRP
.PMEMA
.RESRV
. SAVTS

645

3887

3899

3909

4179

L754m

4860

4870

647

649

652

655

658

660

662

4122«

4123

2104

2124

2144
1153

2194
2893
47284
3191

297

321
4021

3294
4022

3645

4566

4769

2014

4805#

2942
2052

209
La7n
4387
2964
2064

2208

2239

2231
3630

3534
3700

4454
L3864

6044
4393

3008

9894
4453
3019

4566

3091

2154
12084
L6544
3103

2302

3492

3537

3553

2897

52444
3585

3743

370
4095

CVMSAA

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

.STACK

002002

.I5T32

002036

CVMSAA . P11

04~

.TSTMA 002010
SASTAz seeeee |
= 001320
$x

1807

6264

1810

4570
Loon

4573
447

23:00

CROSS REFERENCE TABLE =-- USER SYMBOLS

81 22:59

6234

K 10

04-AUG-81

2026

3020

3105

PAGE 116

SEQ 0127

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

CVMSAA
CVMSAA P11

ABORT
CKSWR
)
CKWD2

COMMEN
ENDCOM
ERROR
ESCAPE

GETPRI
GE TSWR
GTSWR
LDPDR
MORETA
MULT
NEWTST
POP
PRINT

PUSH

RDCHR
RDDEC
ROL IN
RDOCT

REPORT
RESREG

SAVREG
SCOPE
SCOPEX
SCOPIN
SETPRI
SETUP
SIMTRP

SKIP
SLASH
SPACE
STARS

04-AUG~81 22:59

1L
»
1»
2512
1#

3325
4043

3363

4077

2101

PAGE 118

SEQ 0128

3398

3448

2123

2144
2809

2272

2292

2323

23N

2427

2466

2040
2788
2948
377

2058

2089

2132

2153

2350

2385

2973

3726

3014
3748

3028
3912

3098
3936

4441

4627

4628

1539

1547

1585

1692

1727

1781

1786

2843

2934
3633

2957

2999
3815

3086
3857

4409

3158

3187
4573

4575

2779
2807

2695

23:00

1805

#
14
14
1L
3234
1L
#

1824

2910

2914

1906

1946

1980

2748
2331
3593

2521
306

2613
2298

4714
1266
3505

3541

2318
3570

1390

1402

2253
3580

2282
3613

1697
4150

1731
4159

2869
4222

3078
4413

3882
4855

138#
»

223

283

325

1446

1608

1612

373
1313
1832

441
1376
1875
2111

2430
1#
3311
4639
#

3306
1#
3419
4630

14
1L
14
14
14
4

»
334
39504
39504
#
4
»
4022

3536
4672

3723

1439
3809
2300
3623

3741

493

6472

»
1L
18244
»

3115

3177

3282

3207

3326

4596

1731

637
3075
3390
3740

TYPADR

4022
1936

1L
1#
324

1954
153

SWRSU
SWROR3
SIREGS

CROSS REFERENCE TABLE =-- MACRO NAMES
3301

2954
299

L 10

04-AUG-81

1272
1657

2039
2385

2040
2409

2058
2454

3185
3481

3214
3485

4881

4884

3224
3522
4095
5022

1948

1982

3952

2089
2499
2905
3247
3546
4200
5158

2547
2932
3578
4313
5229

3965

M 10

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

CROSS REFERENCE TABLE -- MACRO NAMES

04-AUG-81 22:59

23:00 PAGE 119

SEQ 0129

1384
“n

1384
2869

2868
4159

4158

4350

4355

4361

4363

4115

1
14

1L
1786
4106
1L
1L

315
2844
4131

138
1384

1188
2866
4133
1182

1248
2875
4137

1266
3306
4139

1386
3487
4184

1390
3505
4190

1402
3619
4216

1439
3663
4218

1539
3723
4228

3870

3880

3892

3902

4853

4863

3894

3904

L4174

4855

4865

2763

2775

2793

2805

3217

4366

4150

4222

1384

4113

4149

4221

1??;’

1577

3872

3882

2505

2553

2598

2643

2686

2697

2706

1#
2293
1
1#
1#

1#
2566
1
219

Zggg'

1384

1635
2324
1853
1836
1865

1848
2611
1625
2222

1564

1679
2333
1890
1879
1903

2475

2521

1L
27484
21534
24758
24304
23854
2521¢
26134
256?:

1384
2750
2155
2477
2432
2387
2523
2615
2578

2098

1"
195
653

1626
2223
2698

2662

2500

3553

1833

2548

4719

4789

2069
2651
2118

2103
2696
2139

2124
2705
2172

2145
2727
2357

2193
2780
2615

2273
2810
2460

1997

2013

2781

1977
2797
1843
2294
2811

2055
2816
1860
2308

2074
3220
1898
2325

2108
1938
2334

2129
1973
2373

2150
2009
2423

2380
2070
2468

2428
2104
2514

2473
2125
2561

2519
2146
2606

1946

1980

2040

2058

2089

2132

2153

2350

2385

363

1867

4513

1781
4064
4344

2008
2605
2099

362

1824

4449

1728
4055
4337

1972
2560
2065

361

2728

4447

1693
3890
4275

1937
2513
2053

1962
2786
1680
2274

f?;g'

510

1925

4376

1585
3862
4254

1897
2467
2002
1967

1859
2622
1992
1958

1943
2767
1644
2250

?gg‘

138#

1842
2372
1918
1930

1885
2657
1636
2241

32?:

1575

4371

1548
3809
4242

1906

3508

3558
2788

3563

3654

2568

2613

2660

2748

1637
2242
2707

1645
2251
2729

168 1
2275
2782

1844
2295
2812

1861
2309
2951

1899
2326
2976

1939
2335
3199

1974
2374
3299

2010
2424
3322

2071
2469
3359

2105
2515
3395

2126
2562
3445

2147
2607
3497

1876

1915

1955

1989

2050

2062

2093

2114

2135

2163

2353

2410

2455

3565

2593

3656

2638

4813

2684

2761

2791

2819

0~2 MEGAWORD *'z?;qilERCISER 16K VER MACY11 30(1046)

CWMSAA
CUYMSAA. P11

04~-AUG-81

.IM?7
LBACT
.$APTB
.SAPTH
LSAPTY
.SASTA

20584
1
1%

.SCMTA

.SCATC

.$082D
.$DB20
.$01V
.SEOP
.$ERRO
.SERRT

1»
1#
1
14

»
14
»
14
1%
14

. SRAND
. SRDDE
. SRDOC
.SREAD

»
»
4
14
1%
1w

.$SAVE
.$582D

#
4

LIMULT
. SPOWE

.SR2AZ

.$SCOP
LSSI1ZE
. $SUPR
. STRAP

1%
14

LSTYPD
LSTYPE

1#
14

.STYPB

.$TYPO
. $40CA

1w
1

1170

. ABS,

032000

ERRORS DETECTED:

2060
05
ralj

437
4566
459
188

323
2846
4028
4095
281

4393
4195

3950

4659
4470

4729

000
0

C\MSM.CVHSM/SOL/CRF SYSMAC.SML, CVMSAA.P11

1 SEC(NDS
RUN-TIME: &1 22
RUN=-TIME RATIO: 79/44=1.7
CORE USED: 45K (90 PAGES)

CROSS REFERENCE TABLE -- MACRO NAMES

14
4

0‘-AUG-81

23:00

PAGE 120

SEQ 0130