Digital PDFs

AH-S437B-MC

September 1985

121 pages

Original

7.0MB

view download

OCR Version

6.2MB

view download

Document:	CVMSAB0 MSV11-DD-LF-PK-ED-LK-PF-PL-R-QA-QB 0-2 MEG MEM EXER 1985 bw
Order Number:	AH-S437B-MC
Revision:	0
Pages:	121
Original Filename:	CVMSAB0__MSV11-DD-LF-PK-ED-LK-PF-PL-R-QA-QB__0-2_MEG_MEM_EXER__AH-S437B-MC__1985_bw.pdf

OCR Text

Micro

Fiche

Scan

Name of device(s)

tested:

MSV11-DD/LF/PK/ED/LK/PF/PL/R/QA/QB

Test description:
0-2

MEG MEM EXER

MAINDEC Number

Package

Identifier

(after

SEP

1977):

CVMSABO

Fiche

Document Part Number:

AH-S437B-MC

Fiche preparation date

unknown,

using copyright year:

1985

Image

resolution:

1-bit black&white,
COPYRIGHT

(C)

compressed for minimal

1981-85 by dlilgliltlall

file

size

SEQ 0001

IDENTIFICATION

PRODUCT CODE:

RC-54358-MC

PRODUCT NAME:

CVMSABO 0-2 MEG MEM EXER

PRODUCT DATE:

DECEMBER 1985

MAINTAINER:

ESD DIAGNOSTIC ENGINEERING

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT

CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

RESPONSIBILITY

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES.

COPYRIGHT (C) 1981, 1985 BY DIGITAL EQUIPMENT CORPORATION
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DIGTAL

POP

UNIBUS

DEC

DECUS

DECTAPE

MASSBUS

—

- ———
——

—

SEQ 0002
REVISION HISTORY

REVISION A:

APRIL. 1981

REVISION B:

DECEMBER 1985

COMMENT
1/ > 3 PIPE-LINEING SUPPORT
XD V2.2 COMPATIBILITY
DEP %NCORPORATED
UPD ATED DOCUMENTATION

SEQ 0003

GENERAL PROGRAM INFORMATION.

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS
LOADING AND_STARTING P ROCEDURE
SPECIAL ENVIRONMENTS

PROGRAM OPTIONS

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES

MOS PARITY REGISTER

SUB-TEST SUHHARIES

PROGRAM LISTING

GIGIN

ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

VIBWUIMHO

EXECUTION TIMES

O OO

SYSTEM REQUIREMENTS

HARDWARE SUPPORTED
HARDWARE RESTRICTIONS
RELATED DOCUMENTS AND STANDARDS

-3

——

PROGRAM PURPQOSE (ABSTRACT)

HGIMFO

TOTOMONIN)

eratabaperapepae

UIBGIRIORS

TABLE OF CONTENTS

SECTION 2: WORST CASE NOISE JESTS
SECTION 3: INSTRUCTION EXECUTION TESTS
SECTION 4: MOS TESTS
SPECIAL TOGGLE IN TESTS

GENERAL PROGRAM INFORMATION.
1.1

SEQ 0004

PROGRAM PURPOSE (ABSTRACT)

THIS PROGRAM HAS THE ABILITY 70 TEST MEMOn
000000 TO ADDRESS 17757777.
IT DOES SO USING:
A.

B.
c.

FROM

ADDRESS

UNIQUE ADDRESSING TECHNIQUES

WORSE CASE NOISE PATTERNS, AND

INSTRUCTION EXECUTION THRUOUT MEMORY.

THE INTENT OF THIS PROGRAM IS TO TEST AS_ COMPREHENSIVELY
POSSIBLE ALL MOS MEMORIES USED ON THE LSI 11 BUS_WITHOUT

c ENTRATING ON ANY ONE SYSTEM.

ALTHOUGH THE TESTS RELATE
GENERAL DESIGNS THEY MAY BE COMP_ETE FOR CERTAIN SYSTEMS.
S TEST IS ALSO NOT INTENDED TO _BE A TOTAL 100%
T OF THE MEMORY.
QOTHER TESTS THAT DO I/C MAY FIND MEMOR:

B LEMS THAT THIS TEST IS UNABLE TO.

1.2

SYSTEM REQUIREMENTS
h.

HARDWARE REQUIREMENTS

LSI-11/2,L5T 11/23,L5I-11/53,LSI-11/73 BUS FAMILY PROCESSORS.

MINIMUM OF 16K OF MEMORY.
OPTIONAL...

ANY PARITY MEMORY CONTRGL MODULE.
KTF11 MEMORY MANAGEMENTM.

SOF TWARE REQUIREMENTS
THE SMALLEST UNIT OF MEMORY THIS PROGRAM WILL R
IS 8K.
IF _ANY ADDRESS IN A 8K BANK CAUSES A
TRAP, THAT ENTIRE BANK OF MEMORY IS IGNORED

PROGRAM. PROGRAM TESTS IN 8KW BANKS,UNLESS IT IS

4KW BEFORE THE I/0 PAGE OR LAST 6KW IF 30KW SYSTEM.

THE PROGRAM IS DESIGNED TQ EXERCISE THE VECTOR PORTION OF
MEMORY (LOCATIONS 0-776) IN EXACTLY THE SAME MANNER AS
THE REST OF MEMORY.
TO MAKE THIS POSSIBLE,
WITHOUT

REQUIRING MEMORY

MANAGEMENT, NO SOF TWARE TRAPS ARE USED

IN THE PROGRAM. THIS MEANS THAT IF MEMORY MANAGEMENT IS
NOT AVAILABLE OR IS DISABLED (SWi2=1), IF THE PROGRAM IS
RELP"ATED OUT OF BANK O,

FOR

TEST,

IF LOCATION 0-776

ARE

SELECTED

AND IF AN UNEXPECTED HARDWARE TRAP OCCURS, THE

RESULTS WLl BE UNPREDICTABLE.

THE PROGRAM HAS_THE PROPER INTERFACE CODE _TO_ ALLOW
RUNNING UNDER THE AUTOMATED
1ANUFACTURING TEST LINE
SYSTEM - ACT11 AND APT.

1.2.1

MARDWARE SUPPORTED

SEQ 0005

THE FOLLOWING MEMORIES ARE SUPPORTED BY THIS SOF TWARE:
MSV11-DD, MSV11-LF, MSV11-PK, MSVII-ED, MSV11-LK, MSVi1 PF,

MSVI1 PL. MSVI1-R, 'MSV11-Q/A/8/C, MsvVii-s.
1.2.1.1

HARDWARE RESTRICTIONS

IF THE SYSTEM HAS MIXED MSV11-D (18 BIT) MEMORIES WITH

MSV11-L OR MSV11-P (22 BIT) MEMORIES,IT IS RECOMMENDED

T0 SET UP THE MSV1i-L OR MSVI1-P T0 18 BIT MODE.

AS THE PROGRAM AUTQSIZES FOR NONCONTIGUOUS MEMORY

IT IS POSSIBLE TO RECEIVE RESPONSES FROM THE “MSvi1i-p-

MEMORY WHEN SIZING ABOVE 18 BITS. THIS CAN CAUSE

INCORRECT MEMORY SIZING AND FALSE ERRORS. ADDITIONALLY

THE MSVI1-R, MSV11-Q/A/B/C, AND THE MSV1i-S ARE SUBJECT
T0 THE SAME LIMITATIONS, It IS RECOMMMENDED THAT THESE

MEMORIES NOT BE MIXED WITH MSV11-D.
1.3

RELATED DOCUMENTS AND STANDARDS
A.
B.
C.
D.

1.4

PROGRAMMING PRACTICES - DOCUMENT NO.
175-003-009-01
PDP-11 MAINDEC SYSMAC PACKAGE - MAINDEC 11-DZQAC-C7-D

THE APPLICABLE MEMORY SYSTEM MAINTENANCE MANUAL
THE APPLICABLE CIRCLIT SCHEMATICS

DIAGNOSTIC HIERARCHY PREREQUISITES
BEFORE RUNNING THIS PROGRAM,

VERIFY

THE

A CPU DIAGNOSTIC SHOULD

FUNCTIONALITY

"OF

INSTRUCTION SET. FOR LSI 1i/23:CJKDB
FOR LSI-11/2

"THE_

RUN

PROCESSOR AND PDP-11

DIAG

:CVKAA_ DIAG

S
R
T Bl
RO
1.5

ASSUMPTIONS

B RO

i O

o, I

2.0

OPERATING INSTRUCTIONS

2.1

LOADING AND STARTING PROCEDURES

2.1.1

LOAD THE PROGRAM USING XXDP OR ANY STANDARD ABSOLUTE LOADER.

2.1.2

STARTING ADDRESS 200:
NORMAL PROGRAM EXECUTION.

2.1.0

STARTING ADDRESS 204:
RESTART PROGRAM USING PREVIOUSLY SELECTED PARAMETERS.

ol
2.2

SPECIAL ENVIRONMENTS

SEQ 0006

IF _THE PROGRAM IS RUN_IN AUTOMATIC MODE_UNDER ACT11 OR
APT11 THE PROGRAM IS DONE AFTER_THE FIRST PASS.
ALSO, THE
PRGGRAM DOES NOT RELOCATE TO TEST THE LOWER 8K OF MEMORY
AFTER THE FIRST PASS.

2.3

PROGRAM OPTIONS

THE SQFTWARE SWITCH REGISTER (LOC. 176) IS USED FOR ALL
JPERATIONAL SWITCH SETTINGS.
THE JSER CAN TYPE CTRL G (*G) TO ALLOW SWR CHANGES
DURING PROGRAM EXECUTION.

S5W15 = 1 OR UP....

HALT ON ERROR

Ski4 = 1 OR UP....

LOOP ON TEST

SW13 = 1 OR UP....

INHIBIT ERROR TYPEGLUT

SWi2 = 1 OR UP....

2.4

INHIBIT MEMORY MANAGEMENT (INITIAL

START ONLY)

SWii =1 OR UP....

INHIBIT SUBTEST ITERATION (NOT USED)

SW10 = 1 OR UP....

RING BELL ON ERROR

- 10RVWP....

LOCP ON ERROR

SW8

=10RUP....

LOOP ON TEST IN SWR<4:0>

SW7

=10RUP....

INHIBIT PROGRAM RELOCATION

SWe

=10RUP....

INHIBIT PARITY ERROR DETECTION

SWS

=10RUP....

INHIBIT EXERCISING VECTOR AREA
(LOCATIONS 0-1000).

EXECUTION TIMES

EXECUTION TIME IS DEPENDENT ON TYPE OF MEMORY,

MEMORY.
A.

FOR NON-PARITY MEMORY

FULL PASS:

< 5 MINJTES FOR 64KW
30 MINUTES FOR 1280 KW

AND AMOUNT

WORSE CASE RUN TIMES WITH MC. MEMORYS ARE:

FOR PARITY MEMORY
FULL PASS:

5 MINUTES FOR 64KW

20 MINUTES FOR 256KW
117 MINUTES FOR 1280KW

APT TIME IS SETUP FOR 256Kw (APPROX.

20 MIN).

SEQ 000

+PLEASE MAKE CHANGES TQ APT TIMES AS MEMORY

INCREASES OR DECREASES IN SIZE.

3.0

ERROR INFORMATION

3.1

ERROR REPIRTING

THERE ARE A TOTAL QF 31(8) TYPES OF ERROR

REPORTS

GENERATED

SOME OF THE KEY COLUMN HEADING MNEMONICS ARE
BY T HE PROGRAM.
DESC RIBED BELOW FOR CLARITY:
PROGRAM
COUNTER
(V/PC=P/PD)

y/PC

VIRTUAL PROGRAM COUNTER.
THIS IS WHERE THE ERROR
DETECTION CODE CAN BE FOUND IN THE PROGRAM LISTING.

p/PC

PHYSICAL PROGRAM COUNTER.

ERROR

DETECTION

TRP/ PC

?HX&ICAL PROGRAM COUNTER OF THE CODE WHICH CAUSED

MA =

MEMORY ADDRESS

REG =

PARITY REGISTER ADDRESS.

pS =

PROCESSOR STATUS WORD.

T =

INSTRUCTION UNDER TEST.

5/8B z

WHAT CONTENTS SHOULD BE.

WAS =

WHAT CONTENTS WAS.

THIS IS WHERE

CODE.

THE

DETFCTION CODE IS ACTUALLY LOCATED IN MEMORY.

ERROR

ERROR HALTS

SET

THERE

ARE

HE ERROR_TRAP SERVICE ROUTINE FOR UNEXPECTE D TRAPS T
OR 4.
THIS ONE WILL OCCUR IF A 2ND TRAP T 0 4 OCCUR
RE THE ERROR REPORT FOR THE FIRST HAS HAD A CHANCE T

owno

WITH THE ‘HALT ON ERROR' SWIICH (SW15) NOT
SEVERAL PROGRAMMED 'HALTS’' IN THE PROGRAM:

RINTED OUT.

E_RELOCATION_ROUTINE IF THE PROGRAM_ IS BEING
E
C TED
BACK TO_THE FIRST 8K OF MEMORY AND THE PROGRAM
AS SNNOT ABLE TO BE TRANSFERRED PROPERLY.
1

r-rn

3.2

PC -

CASE OF ERROR REPORTING AND THERE IS

0 W THE INFORMATION TRANSFER.

TERMINAL

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

COMPLETE ITSELF.

4.0

IN THE MEMORY MAFPPING ROUTINE OR ANY OF THE ADDRESS
CONTROL ROUTINES, FATLURES TO FIND A MEANINGFUL MAP.

PERFORMANCE AND PROGRESS REPORTS

NOT APPLICABLE

DEVICE INFORMATION TABLES
THE FOLLOWING IS A PICTURE VIEW OF A PARI
REGISTERS,
WHICH WILL SHOW BIT ASSIGNMEN

T0 PROVIDE A HANDY REFERENCE:

5.2

5.0

MOS PARITY REGISTER

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

BITO?

WRITE

(0DD)

WHEN

PARITY

OTHER

WHEN SET

NORMAL

PARITY

WRONG

PARITY

CLEAR;

(EVEN)

BITOO ACTION ENABLE_NO
ACTION WHEN CLEAR. TRAP
TO VECTOR 114 WHEN SET.

BITS 5-11 ADDRESS BITS FOR A11-A17
OR ADDRESS BITS 18-21 IF BIT 14=1

LOCATES PARITY ERROR 10 A 1K
SEGMENT OF MEMORY.

BIT 14...ALWAYS READ AS A ZERO
ON 128KW. IN A 2044 MACHINE,R/W

AND IS THE EXTENDED CSR READ

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

SEQ 0008

Ji
6.0

SUB-TEST SUMMARIES

6.1

SECTION 1:

SEQ 0009

ADDRESS TESTS.

THESE TESTS VERIFY THE UNIQUENESS OF EVERY MEMORY ADDRESS.

TEST T 1 WRITES AND READS THE_VALUE OF EACH MEMORY WORD
ADDR
0 ESS INTO THAT MEMORY LOCATION.
AFTER ALL MEMORY HAS BEEN
WRIT TEN, ALL LOCATIONS ARE CHECKED AGAIN.
TEST 2 WRITES THE BYTE VALUE OF EACH ADDRESS INTO THAT
LOCA TION AND CHECKS IT.

BYTE

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 WRITES THE COMPLEMENT OF THE BANK
BYTE OF THAT BANK AND CHECKS IT.
6.2

SECTION 2:

NUMBER

INTO

EACH

WORST CASE NOISE TESTS.

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

STRESS

THE

VARIOUS

TEST 6 AND TEST 7 ARE SUPPLIED TQ ALLOW THE OPERATOR T0
SELECT A SINGLE WORD DATA_ PATTERN _(SA=204) AND SCOPE ON
EITHER THE WRITING (DATO) IN TEST 6 OR THE READING (DATI) IN

TEST_7 OF THAT DATA,
LOCATION .CONST:Q SHOULD BE CHANGED IF A DIFFERENT
SINGLE WORD DATA PATTERN IS CONSIDERED.

TEST 10

WRITFS AND THEN

CHECKS

SERIES

SINGLE

TEST 11

"RIPPLES" A '0'

WRITES ALL MEMORY WITH 1'S IN
THROUGH IT.

EVERY

BIT

AND

THEN

TEST 12

WRITES

ALL MEMORY WITH 0‘S IN

EVERY

BIT

AND

THEN

PATTERNS WHICH ARE DESIGNED TO STRESS PARITY MEMORY.

“RIPPLES" A 1" THROUGH IT.

WORD

TEST 13 _WRITES WRONG PARITY IN EACH BYTE OF _MEMORY _AND
CHECKS THAT THE PARITY DETECTION LOGIC WORKS.
THIS TEST IS
SKIPPED FOR NON-PARITY MEMORY.
TEST 14 WRITE
CHECKS IT.
6.3

SECTION 3:

“RANDOM”

PROGRAM

CODE

THROUGH

MEMORY

AND

INSTRUCTION EXECUTION TESTS.

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

THAT THEY EXECUTED CORRECTLY.

TEST 15 EXECUTES AN_INSTRUCTION WHICH DOES A DATI AND A DATO
ON THE MEMORY UNDER TEST.

TEST 16 EXECUTES AN INSTRUCTION WHICH DOES
DATOB ON THE LOW BYTE OF MEMORY UNDER TEST.

DATI

AND

TEST 17 EXECUTES AN_INSTRUCTION WHICH
DATOB ON THE HIGH BYTE.

DATI

AND

5%%5 20

6.4

DOES

EXECUTES AN INSTRUCTION WHICH DOES

DATIO

AND

TEST 21 EXECUTES AN INSTRUCTION WHICH DOES
DATOB ON THE LOW BYTE.

DATIO

AND

TEST 22 EXECUTES AN_INSTRUCTION WHICH DOES
DATOB ON THE HIGH BYTE.

DATIO

AND

SECTION 4:

MOS TESTS

TEST 23 -WRITES A PATTERN OF 000377 THROUGH MEMORY,
THEN
COMPLEMENTS IT_ ADDRESSING DOWNWARD, COMPLIMENTS THE NEW
PATTERN ADDRESSING UPWARD,
COMPLIMENTS THE THIRD PATTERN

ADDRESSING

_JPWARD

AND FINALLY

PA TTERNS ADDRESSING DOWNWARD.

~COMPLIMENTS

THIS

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

NEW

STALLS

SPECIAL TOGGLE IN TESTS
6.5.1

TOGGLE-TN-PROGRAM #

THE FOLLOWING IS A TOGGLE IN MEMORY ADDRESS TEST. THIS TEST
IS USEFUL_ WHEN AN ADDRESS SE_ECTION FAILURE IS SUSPECTED
INVOLVING THE FIRST 8K OF MEMORY
THIS PROGRAM_ WRITES THE
VALUE OF EACH ADDRESS INTO_ I\SELF STARTING WITH THE LOWER
LIMIT (200) AND CONTINUING TQ THE UPPER LIMIT. AFTER ALL ADDRESSES
HAVE BEEN_WRITTEN EACH ADDRESS IS CHECKED FOR THE CORRECT
CONTENTS STARTING WITH THz UPPER LIMIT AND CONTINUING TO THE
LOWER LIMIT.

LOCATION CONTENTS
10
012700
12
000200

14
16
20
22
24

010001
020037
000176
001403
010010

000772

cé

32
34

005720
010004
020001

MNEMONIC
MOV #200,RO

COMMENT
;GET_FIRST ADDRESS
;70 TEST

; (EXAMPLE START ADDRESS)

MOV RO,R1
; SAVE IN R1
1$: CMP RO,84%SWR ;CHECK UPPER LIMIT
; CIN SOFTWARE SWITCH REGISTER)
BEQ 2¢
;BRANCH IF AT UPPER LIMIT
MOV RO,(RO)
;LOAD VALUE INTO ADDRESS

ST (RO)+

BR 1¢

2§: MOV RO,R4
3$: CMP RO,RL

;STEP TO_NEXT ADDRESS
;LOOP UNTIL DONE

i SAVE UPPER LIMIT
;CHECK IF AT LOMWER LIMIT

SEQ 0010

« 36
40
42
44
46

6.5.2

001767
024000
001774
000000
000772

BEQ 1%
;BRANCH IF DONE
CMP -(RO),RO ;CHECK DATA WRITTEN

BEQ_3$
HALT
BR 3¢

3EQ 0011

;BRANCH IF OK
; ERROR
;LOOP BACK

TOGGLE
- IN-PROGRAM #2

THE FOLLOWING IS ALSO A TOGGLE IN PROGRAM TO BE USED
TOGGLE
- IN-PROGRAM #1 FOR MCRE COMPLETE ADDRESS TESTING.
PROGRAM WRITES THE COMPLEMENT VALUE 0OF EACH ADDRESS_

WITH
THIS
INTO

ITSELF STARTING WITH THE UPPER LIMIT AND CONTINUING TO THE
LOWER LIMIT. AFTER ALL_ ADDRESSES HAVE BEEN WRITTEN EACH
ADORESS IS CHECKED FOR THE CORRECT CCNTENTS STARTING WITH THE

LOWER LIMIT ADDRESS_AND CONTINVING 10 THE UPPER
TOGGLE IN THE FOLLOWING PATCHES TO THE PROGRAM ABOVE.

LIMIT.

THIS IS THE PATCH TO TOGGLE-IN-PROGRAM #1:
LOCATION CONTENTS
36
001404

MNEMONIC
BEQ 4%

COMMENT
;BRANCH TO PROGRAM #

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

CONTENTS
010402

34
56

020201
001375

60
62
64
66
70
12
14
16
7.0

005142

020204
001755
010203
005103
020322
001772
000000
000770

PROGRAM LISTING
ATTACHED

MNEMONIC
4%: MOV R4,R2

5$: COM -(R2)

CMP R2,R1
BNE 5%

6$: CMP R2,R4
BEQ 14
MOV R2.R3
COM R3
CMP R3,(R2)+
BEQ_6%
HALT
BR 6%

COMMENT
;GET UPPER LIMIT

; COMPLEMENT ADDRESS

;CHECK IF AT LOWER LIMIT
;LOOP UNTIL DONE

;CHECK IF AT UPPER LIMIT
;60_TO PROGRAM 1 IF DONE
;GET VALUE OF ADDRESS
; COMPLEMENT VALUE
;CHECK ADDRESS
;BRANCH IF 0K
; ERROR
;60 CHECK NEXT ADDRESS

CVMSAB

0-2 MEGAWORD MEMORY t'X MACRO Y05.02

Monday 23-Dec-85 08:45

FPage 2

tPROGRAH BY SAM/BARRY BILL

tTHIS PROGRAM WA ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
;#PACKAGE (MAINDEC-11-DZQAC-C7), JuL, 1982.
637

.SBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

i
i
Lk
L%
Pk
i*
ik
i*
L%
‘4
%

15
12
13
12
11
10
9
8
7
6
S

638
639

$TACK="

000004

SCOPE= _ I0T

000011

000012
000015
000200

177176

1100

ERROR= EMT
HT=

LF=
CR=
CRLF=

PS-=

:;CODE FOR HORIZONTAL TAB

177776

: :PROCESSOR STATUS WORD

12
15
200

177570

ODISP=

PIR@=
DSWR=

1777172
177570
177570

ko=

000002
000003
000004

R2=
R3Q4=

)
%3
%4

000006

000007
000006
000007

000000

000040
000100
000140

: :CODE FOR LINE FEED
: :CODE FOR CARRIAGE RETURN
: :CODE FOR CARRIAGE RETURN-LINE FEED
. ;STACK LIMIT REGISTER

: {PROGRAM INTERRUPT REQUEST REGISTER
: 'HARDWARE SWITCH REGISTER
HARDWARE DISPLAY REGTSTFR

{*GENERAL PURPOSE REGISTék DEF INITIONS

000000
000005

:BASIC DEFINITION OF SCOPE CALL

PSW=
PS
STKLMT= 177774

000001

:;BASIC DEFINITION
OF ERROR CALL

: «MISCELLANEQUS DEFINITIONS

177776
177774

177772
177570

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEQUTS
INHIBIT KT11 (AT START TIME ONLY)
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<4:0>
INHIBIT PROGRAM RELOCATION
INHIBIT PARITY ERROR DETECTION
INHIBIT EXERCISING VECTOR AREA.

"SBTTL BASIC DEFINITIONS
:xINITIAL ADDRESS OF THE STACK POINTER ### 1100 #&#

001100

104000

USE

R1-

RS=

Rb=

R7=
Sp=
PC:

;GENERAL REGISTER

..GENERAL REGISTER

: iGENERAL REGISTER

%7
%6
%7

: :GENERAL REGISTER
i ;GENERAL REGISTIR
: :GENERAL REGISTLR

;i CENERAL RECISTER

: :GENERAL REGISTER
: STACK POINTER
: PROGRAM COUNTER

«PRIORITY LEVEL DEFINITiONS

BRo~

PR1=
PR2=
PR3-

100
140

:PRIORITY LEVEL 0

i PRIORITY LEVEL 1

: :PRIORITY LEVEL 2
: :PRIORITY LEVEL 3

SEQ 0012

Monday 23-Dec 85 08:45

CVMSAB
0 2 4EGAWORD MEMORY EX MACRO Y05.02
BASIC DEFINITZONS

I TCH REGISTER” SWITEH DEFINITIONS
PRzéu
12
&u

;PRIORITY LEVEL

100000
40000
20000
10000
4000
2000

POW

NN ~IOO O
OB
O
NS
AR

SHW
B%g DESINTTIONS (BITO0 TO BIT15)

———
OOOOCOODOO
PO
G4 BN U0
O

0200 0O

A A
A
A

TN COCO DN
£

R
R
TR

100000
040000
020000
¢10000
004000
002000
001000
000400
000200

300

240

SEQ 0013

; ;PRIORITY LEVEL 4
;;PRIORITY LEVEL 5
: iPRIORTTY LEVEL 6

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000910
000004
000002
000001
001000
000400
900200
000100
000040
000020
000010
000004
000002
000001

200
240

NN UUNWNWUVINWL )
[ =% wp =p =g = ub
EXXXrrx
QOOO0OOOOO
o.—..—-.—..—a.—.

000340

PR4=
PR5=
PR6=

[efesleclaclavinclav]ectocloc]oclocloviecionlovioslocloaloctonlocionionlae
TNV, 1,10, w
w
Lo L L
e e e e o e e e L e e
L
L
e L e
L L
= = ==
=
el e e e o e e e e e e e Al =l e e e e
e
e
D O = PO I &
[«
FPIOWNSEUION O WOOOOOOOOOORANs-alspaas it I U H W N "
o
n
N OFPNINSUION
OO O NI N £ LN —4

000200

Page 2-1

CYMSAB

0-2 MEGAWORD MEMORY EY MACRO Y05.02

Monday 23 Dec-85 08:45

BASTC DEFINITIONS

000001

000004

000010

000014

BIT0:
BITOO
- #BASIC "cpu' TRAP VECTOR ADDRESSES

ERRVEL -

:TIME OUT AND OTHER ERRORS

RESVEC= 1o

' RESERVED AND ILLEGAL INSTRUCTIONS

TRTVEC= 14

..TRACE TRAP

TBITVEC=14

SivT BIT

000014

BPTVEC= 14

000024
¢00030
000034

PURVEC= 24
EMTVEC= 30
TRAPVEC=34

: :POWER FAIL
::EMULATOR TRAP (EMT) #4ERRORs+
;1 "TRAP" TRAP

000064
000240

TPVEC: 64
PIRQVEC=240

::TTY PRINTER VECTOR
: :PROGRAM INTERRUPT REQUEST VECTOR

000020

000060
40

Page 2 2

:BREAKPOINT TRAP (BPT)

I0TVEC= 20

: INPUT/QUTPUT TRAP (I0T) ##SCOPEss

TKVEC=

::TTY KEYBOARD VECTOR

.SBTTL

MEMORY MANAGEMENT DEFINITIONS

000250

MMVEC=

250

177572

ro-=

172300

KIPDRO= 172300

641

542

177574
177576
172516

643

22%
646

647

223
650

651

652
g;i
D

635
657

:#KT11 VECTOR ADDRESS

KT{1 STATUS REGISTER ADDRESSES

177572

SR1=
SR2=
SR3=

:sKERNEL

172302
172304
172306
172310
172312
172314
172316

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

172340

KIPARO=

KIPARL=
KIPAR2=
KIPAR3=
KTPARA=
KIPARS=
KIPARG=
KIPAR7=

000006

RW = 6

000001

"I* PAGE DESCRIPTOR REGISTERS

172302
172304
172306
172310
172312
172314
172316

«KERNEL “I" PAGE ADDRESS REGISTERS

172342
172344
172346
172350
172352
172354
172356

000000

177574
177576
172

WP =0
.%

Ae-=1

172340

172342
172344
172346
172350
172352
172354
172356

:CODE FOR READ/WRITE IN MEM MGMT PDR S

PARITY MEMORY DEFINITIONS.

000114

PARVEC=114

017777

MASK4K= 17717

037777
000007

000000

.CODE FOR UPWARDS MAP IN MEM MGMT PDR'S

MISCELLANEOUS ASSIGNMENTS

MASKSK= 37777
MFPT= 7
.SBTTL

TRAP CATCHER

.-0

:PARITY ACTION ENABLE
:PARITY TRAP VECTOR

;MASK FOR 4K ADDRESS BANK BOUNDARY.

:MASK FOR 8K ADDRESS BANK BOUNDARY
:MOVE FROM PROCESSOR TYPE TO
R

-1

| Cv SAB 0-2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 08:45 Page 2-3
TRAP

CATCHER

;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A " +2, HALT'
tSEQUENCE T0 CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000174
000176

000000
000000

000200
6%8 000204

000137
000167

660
661 000003
gg% 000006

000004
023430
000000

664

*LOCATIOng CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
DISPREG:
SWREG:

003744
000070

-SBTTL

.WORD
LWORD

O
O

STARTING ADDRESS(ES)
JMP
JHP

; ;SOFTWARE DISPLAY REGISTER
;1 SOFTWARE SWITCH REGISTER

#START ;;JUMP TO STARTING ADDRESS OF PROGRAM
;RESTART ADDRESS, USING PREVIQUS PARAMETERS.

RESTAR

.=ERRVEC
.WORD
ERRTRP
WORD
0
SBTTL

ACT11 HOOKS

shRdkkkRkkadkdihkhkhhdhkhkhhkhhh
kbR kkk kR ok kk kR kdokdkkhkhkE

000046
000052

000010
000046
86%8%5

040000
000010

HOOKS REQUIRED BY ACT1L
S PC=.
46
$E§DAD

;SAVE PC

.HORD
BIT14
.=$SVPC

;:2)SET LUC 52 10 BITi4
;+ RESTORE PC

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

SEQ 0015

0-2 MEGAWORD MEMORY EX MACRO Y05.02

Monday 23-Dec-85 98:45

HOCICS

000100
00C104

000340

000002

000300

.=100
.WORD

;t
;#
675 030300
676 000302
677 000304

678
679
680
681
682
683
684
685

000401
010705
012706
0057671

001070
000216

177572

000106

i et b e

it et >

N dd I~ mdmd ~dd Jd

000773
010037
000137
062700
010037
000410
016700
062700
010006
062700
000110
022767

ORI

md ) ~d

o b

001402

000526

304767
005067
105067
000167

2s:

SE T UP_THE STACK POINTER.

TART, IF NOT MAPPED

1
33170

2R
ECK IF'MEM MGMT AVAILABLE.
#SRO

“077406 (RO)o

R1
1%
#KIPARO,RO

(RO)+

{RO)+
#177600, (RO)+
g%ITO
#SR0
PRGMAP, R1
R1
4%
#300,

000400

34
RO

4%
.

#200,
RO

000044
001C70

10%:

RELOCF , RO

172342

204

20§

schAG RO

2ls:

(RO)

14
PC

$TIMES

$TSTAM
START1

:BR_IF MEM MGMT ALREADY SET UP.
:POINT TO FIRST MEM MGMT DDATA REG.
iSET UP COUNTER,
:MAP FIRST 28K i-FOR 1.
:COUNT REGISTERS.
:BR_IF MORE REG.
;POINT TO FIRST MEM MGMT ADDRESS REG.
:PARO MAPPED INTO BANKO.
:PAR1 MAPPED INTO BANKI.
:PAR2 CLEARED
;PAR3 CLEARED
:PARA CLEARED
:PARS CLEARED
;PAR6 CLEARED

:PAR7 MAPPED INTO LAST BANK.

:ENABLE MEM_MGMT
N I TEMP PAR REG.
INIT
iGET E T _ThE PROGRAM MAP...LO 64K,
iSHIFT THE MAP POINTER..

R
;BR_WHEN_FIRST
8K BANK FOUND.
p
;UPDATE
TMP PAR TO NEXT 8K BANK.

:NEXT 8K BANK

0J UM P INTO PROGRAM IF NOT THERE ALREADY.

000024

;CHECK IF MEM MGMT ACTIVE.

;K E E P UPDATING TEMP PAR REG.
RO
4(IPARY ) E T U UP SECOND PROGRAM BANK POINTER.
4 R T 0 RE LOCATE SECTION.

#26$-$CHTAG.R0

177412

014546
000436
000344
006254

2454

‘SR IF NO MEM MCMT.

§4KIPARO ;P U T TEMP PAR INTO FIRST PAR.

172340
000450
000200

000001

RRRRRE AR RS

:GO_RESTORE PROGRAM BEFORE RESTARTING.
:PUT DATA INTO FLAG FOR RESTORE.

RO)(R0
Ro;‘

177600
000001

R RRRRRRRORA KRR

: CHECK IF TAE MEMORY HAS BEEN MAPPED.

(RO )+
4200,
{RO)+

000200

694
695
696
697
698
699

AR KRR

;CLEAR FLAG 70 INDICATE RESTART.

R
REST1

*KIPDRO RO

172340

692
€93

R KRR KRR

ARARARRERN SRRRRRRRRR KRR KX RRRRRKRRRRRRRRRRRRREDRRRRRARARARARRES

REST2:

172300
000010
077406

687
688
689
690
691

KRR

:BR IF MEMORY MAPPED.

000206

000001

AR KRR

THE FOLLOWING ROUTINES ARE LOCATED IN THE VECTOR AREA (0-1000) SO THAT
THEY CAN BE PROTECTED BY SELECTING SWOS (SEE DOCUMENT FOR USE OF SWOS).

RESTOR: MOV
RESTI:
MOV

003434

686

.=300

ARR AR

SEQ 0016

;IF BEVENT IS ENABLED
; IGNORE ITS INTERRUPT,00 RTI

104,340,2

RESTAR: gLR

005005

Page 3

PRGMAP

RELO

RELOC ATION FACTOR.
G E T RELO
;S E 1 UP 4 S TACK POINTER.
;S E T STAC K TO RELOCATE PROGRAM.
A JJU ST T R 8 T 0 RELOCATED “20$' ADDRESS.
G QT 0 "20¢ " (RELOCATED).
iC HEC
ECK K IF PROGRAM IS IN 8K BANK O .
1: R1I F IN 8K BANK 0.
iR E LOCATE THE PROGRAM BACC TO BANK Q.

;CLEAN UP BEFORE STARTING.

;RESTART WITH PREVIOUSLY SELECTED PARAMETERS.

MSAB

0-2 MEGAWORD MEMORY EX MACRO Y05.02

T11 HOOKS

023
724

727 000532

728 000534
7%0 000536
730

Page 3 .

SEQ 0017

;# THE FOLLOWING LOCATIONS ARE USED BY THE ABOVE ROUTINE AND MUST BE LOCATED

725
126

Monday 23 Dec 85 08:45

000000

000000
00000

BELOW 1000 TO INSURE CCRRECT OPERATION UNDER THE WIDEST VARIETY OF
CIRCUMSTANCES.

RELOCF: .WORD
PRGMAP:
MMAVA:

_WORD
.WORD

O
O

;CONTAINS RELOCATION FACTOR (NO MEM MGMT)

;PROGRAM MAP
WHERE THE PRUGRAM IS LOCATED
;MEMORY MANAGEMENT AVAII ABLE FLAG.
iBIT 0 =1
MMU AVAILABLE

i8IT 15 = 1

22 BIT ADDRESSING AVAILABLE

—

0-2

EGAWORD MEMORY EX MACRO Y05.02

PO Wt R DOWN A ND 1P ROUTINES

Monday 23-Dec-85 08:45

.SBTTL

733

Page 4

SEQ 0018

POWER DOWN AND UP ROUTINES

sohkbkbkkbkhkkhbkbkhhbkkhkdkkdhdbhhk
bbb kkbbh kb hkkhbhbdhkhhkbhhhkhbhhk

000612
000620

012737
016706

000024
000026

:POWER DOWN ROUTINE
$PWRDN: MOV
2$TLLUP, @4PWRVEC ;;SET FOR FAST UP
MOV
#3480 . 93PWRVEC
2 ;:PRIO:7
MOV
RO.-ESP;
::PUSH RO ON STACK
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT

s e n | n o

000706
000340

17746

000334
000112
000612

000024

::PUSH
::PUSH
::PUSH
: :PUSH
: :PUSH

5P, $SAVR6

; iSAVE SP

-2

; ;HANG UP

35WR, -(5P)

R1
R2
R3
R4
RS

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

::PUSH @SWR ON STACK

2$PWRUP, #PWRVEC " ; ;SET UP VECTOR

;-tktttttttt*tt*tttttt#t#*tttt*tt*tttttttt*tt#itttttttttt#ttttttt

000706
000066
000062
000056

000024

:POWER UP ROUTINE
{PWRUP: MOV
Z$TLLUP, G4PWRVEC ;;SET FOR FAST DOWN
MOV
$SAVRG, P
s :GET SP
i3
1¢.

q_)czp.....
¥=3

000540
000340
021054

R6
VR6

3+.asua

000266

000024
000026

$PURMG:

$PWRAD:
000000
000776
000000

R1.
(5P
R2. (SP)
R3. (spg
R4,-(SP
RS, -(SP)

$ILLUP:
$SAVR6:

SWAIT LOOP FOR THE TTY
::WAIT FOR THE INC
::0F WORD

::POP STACK INTO @SR
::POP STACK INTO RS
::POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

4PURVEC ' :;SET UP THE POWER DOWN VECTOR

RVEC+2 ;:PRI0:7
PRINT :G0 PRINT OUT THE FOLLOWING MESSAGE.
~s

000776

o pe

000540
000546
000554
000556
000560
000562
090564
000566
000570
000574
000600
000606
000610

TNV
I AR AR NNV A
M OE NWLUDnnnmnumnenn
VO
HVOVVVVUVUOO
>>
X
O\
I
U
o
T+ + + +
O
(73]
—rr—
220X
0 X
oW
LY
w
v
EQ

OQOOOC OO0

o MS RB

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

D
(N

CVMSAB
0-2 MEGAWORD MEMORY EX MACRO Y05.02
COMMON TAGS

Monday 23-Dec-85 98:45

.SBTTL

1231

Page 5

SEQ 0019

COMMON TAGS

;i dkkkkkkkhkbkkkhkkhkhkkhhkkkkakhkhhkhkbhhkkhhhkhhkhhhkkrhbhdhhkbhkk

;#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;«USED IN THE PROGRAM.

(=4
QOO
QOCOOO OOOTO
P = s o s s o [
s e e s b P o e
et it s s Pt s s s s ot ot s s i o et s
NN NANTOTO NNV
2 2 e = O O

001070
000000
000
000
000000
000000
000000
000000
000
001
000000

it
i
e iy S
Y

m p
P e S

RUBREENT.
Yo Yo X. JU. 10,15, 15, TN-8
OO~
OEBIVO
~J

00
00

s s e
P S

000

Pt
[

.=1070
WORD

::START OF COM

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$SLPERR:
SERTTL:
$ITEMB:
SERMAX:
SERRPC:
$GDADR:
$BDADR:
$GDD"T:
$BDDAT:

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.5838

0
0
O
O
O
0
O
1
O
0
O
O
O
8

; ; CONTAINS THE TEST NUMBER
: s CONTAINS ERROR FLAG
; s CONTAINS SUBTESTTM ITERATION COUNT
i ; CONTAINS SCOPE LOOP ADDRESS
; ; CONTAINS SCOPE RETURN FOR ERRORS
: ; CONTAINS TOTAL ERRORS DETECTED
; s CONTAINS ITEM CONTROL BYTE
: ; CONTAINS MAX. ERRORS PER TEST
; ;CONTAINS PC OF LAST ERROR INSTRUCTION
; ; CONTAINS ADDRESS OF 'GOQD’' DATA
; sCONTAINS ADDRESS OF ‘BAD‘ DATA
; ; CONTAINS 'GOOD’ DATA
; s CONTAINS 'BAD' DATA
; ;RESERVED--NOT TO BE USED

$AUTOB:
$INTAG:

.BYTE
.BB&E

0
8

;i sAUTOMATIC MODE INDICATOR
; : INTERRUPT MODE INDICATOR

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$IPS:
177564
$TPB:
177566
$NULL:
.BYIE
$FILLS: .BYTE
$FILLC: .BYTE
$$EE%G: 4BYTE

DSWR
DDISP

; ADDRESS OF SWITCH REGISTER
; ADDRESS OF DISPLAY REGISTER
::1TY KBD STATUS
::TTY KBD BUFFER
;:TTY PRINTER STATUS REG. ADDRESS
;: TTY_PRINTER BUFFER REG. ADDRESS
; sCONTAINS NULL CHARACTER FOR FILLS
; ;CONTAINS # OF FILLER CHARACTERS REQUIRED
; i INSERT FILL CHARS. AFTER A "LINE FEED'
i+ "TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES)

$TMPO:
.WORD
$TMP1:
.WORD
$TMP2.WORD
$TMP3:
.WORD
$TIMES: 0
$ESCAPE: 0
$BELL:
.ASCIZ

O
O
0
O

$QUES:
$CRLF:
SLF:

.ASCII
.ASCII
.ASCIZ

/?%/
<1
<12»>

"SBTTL

APT MAILBOX-ETABLE

$CMTAG:

0
2
12
0

: sUSER DEF INED
; +USER DEFINED
; 1 USER DEFINED
; ;USER DEFINED
; sMAX. NUMBER OF ITERATIONS
; ;ESCAPE ON ERROR ADDRESS
<207><377><377> ;;CODE FOR BELL
; ;QUESTION MARK
; : CARRTAGE RETURN
;;LINE FEED

5’ ¢ Aok dokokokokokokookok dokokokokokokokodkokok ook ok kokokok kol kb ko ok kok ok ok ok ok ok ok ok kokokok ok ok

SIS
RO

Pt Pl il

s Yo

POPONY
o = b

[elolelels
TM
[slalolelels]

o o ok ook sk ok ok ok ook ok ok dk ok gk ok ok ok % ok ok ok sk ok ok ok ok koK ok ok ak ok ok ok ok ok ok

"EVEN

000000
006000
000000
000000
000000

JON TAGS

$MAIL :

SMSGTY:
SFATAL:
STESTN:
$PASS:
$DEVCT:

.WORD
.WORD
.WORD
.WORD
_WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT

; ;APT MAILBOX

;;MESSAGE TYPE CODE
:;FATAL ERROR NUMBER
::TEST NUMBER
::PASS COUNT
;:DEVICE COUNT

ok ok ook ok sk ok ok ok ok ok ok dk ok ok ok ok ok k

Q-2 MEGAWORD MEMORY EX MACRO YC5.02

CVMSAB

APT MAILBOX-ETABLE

000000
000000
000000

AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

: :CPU TYPE,OPTIONS

8BTS 15-11:CPU TYPE

2
K

000
000

FLOATING POINT PROCESSOR
MEMORY “ANAGEMENT

$MAMS1: BYTE
SMTYPL: . BYTE
ik
’

?DDRESS.Q.S. BYTE

AMAMS1
AMTYPI

(HIGH BYTE)

1 ¥
;%

001226

001230
001231
001232
001234

001235

s et e
s P
o
s e o
s

[elelelolololelolel

80 ODOOOOOOO

s et =

NN NN NN UL ONPO OO DD
PO
o et et D O OO ~d I~ ~JON
OB LOONELEMNOONLENODN

001236
061240
001241
001242
001044

SEQ 0020

;3170 UNIT NUMBER
: MESSAGE ADDRESS
: MESSAGE LENGTH
:1APT ENVIRONMENT TABLE
: :ENVIRONMENT BYTE
: :ENVTRONMENT MODE BITS
:APT SWITCH REGISTER
: tUSER SWITCHES

L K

001224
001225

Page 5-1

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,G=10
REAL TIME' CLOCK

000
000
000000
000000
000000

SUNIT:
WORD
$MSGAD: 'WORD
$MSGLG- 'WORD
SETABLE:
BYTE
$ENV:
$ENVM:
'BYTE
$SWREG: 'WORD
$USWR
'WORD
$CPUCP: 'WORD
3

001206

Monday 23-Dec 85 08:45

000000

$MADRL: . WORD

AMADR1

: ;HIGH ADDRESS

000
000
000000
000
000
000000
000
000
000000
000000
000000
000000
000000
000000
000000
000000
000100
000000
000000
000000
000000
000000
200000
000000
000000
000000
000000
000000
000000
000000
000000

$MAMS?: . BYTE

AMAMS?
AMTYP2

1R ]

SMTYP2:
$MADR2:
$MAMS3:

$MTYP3:

$MADR3:
$MAMS4:
SMTYP4:

.
.
.

EXIT.

. BYTE
. WORD
. BYTE
BYTE
JORD
. BYTE

‘BYTE
'WORD
'MORD
'WORD
'WORD
'WORD
'WORD
'WORD
'WORD
'WORD
'WORD
'WORD
'WORD
"WORD
'WORD
'WORD
'WORD
'WORD
'WORD
'WORD
'WORD

'WORD
'WORD
'WORD

£=001
OLAR=002
=003

MEM. LAST Aogé.

AMADR?

AMAMS3
AMTYP3

AMADR3

AMAMSA
AMTYP4
AMADR4
AVECTI
AVECT?
ABASE
ADEVHM
ACDW1
ACDW2
ADDWO
ADDW1
ADDM?
ADDW3
ADDMW4
ADDWS
ADDWB
ADDW7
ADDW8
ADDW9
ADDW10
ADDM1l
ADDMW12
ADDW13
ADDW12
ADDWI5

APT PARAMETER 3LOCK

OR
TOR
PTOR
RIPTOR
CRIPTCR

SCRIPTOR
SCRIPTOR
SCRIPTOR
SCRIPTOR
SCRIPTOR
SCRIPTOR

TION WORD#1
TION WORD#2
WORD#0
WORD#1
WORD#2
WORD#3
WORD#4
WORD#5
WORD#6
WORD#7
WORD#8
WORD#9

WORD#10
WORD#11
WORD#12
WORD#13
WORD#14
WORD#15

—

0_2 MEGAWORD MEMORY EX MACROC Y05.02

A P T PA RAMETER BLOCK

Monday 23-Dec 85 08:45

Page 5-2

SEQ 002!

shkkkkbkkkhkkhkbhhkhkkhkkdkkhhkkhkhhbhhkhkhkhhh
kb hhhhkhkkhkhbhbkhsbhhkbhdhk

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
RRkR AR Rk

;;RESET LOCATION COUNTER
Rk kbbb

kR xR kR kKRR R KRk Rk KA &

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
:INTERFACE SPEC.
4APTHD.WORD

SMBADR. _WORD

$TSTM: © "WORD
$PASTM: .WORD

kk R

kK KKKk Rk kAR

Rk Rk &

et fnn
o
e |

[

ot i et o o
s o

L
i

[}

e o

s i

[}
[}
i
[
1

EXE
o000
02020
Lwr Lww
{w )

$ASTEND:
$APTR:
$ASTAT

[

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

.REPT
"WORD
-WORD

EXEETX
[e=lesTenTenT
o]
0D20200
QOOOO0

000000
000000

koK kR ok

= e = =

000000
000000
000000
000000

: ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
; ;LENGTH MAILBOX-ETABLE(WORDS)

D et

kKoK

{ASTAT:

#iRUN TIM OF LONGEST TEST
;:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)

. WORD
$ETEND- $HAIL/2
APT STATISTICS TABLE

et e e ot o

.SBTTL

. ADDRESS OF APT MAILBOX (BITS 0-15)

900,
1200.

SUNITM: .WORD

; TWO HIGH BITS OF 18 BIT MAILBOX ADOR.

SMAIL

[

$HIBTS:

-J S

..FOR APT START_UP

=
=
o ft=t=t=t=t=t={=l=t=1=] j=
P o OO ODDODD P
<o oooooOoLOoO0 O

Py i PR Ry PR P S Py By B PRy Py Py Py Py
Tty Py Dty Bty Py iy By Dy Py By iy Py Jy Py Py iy |

117

-4 Py PR

vl P s ns it
A AT p A Y

001364
001370
001374
001400
001404
001410
001414
001420
001424
001430
001434
001440
001444
001450
001454
001460
001464
001470
001474
001500
001502

CO
s s it P
s it P ot s et o
s s it ot o
D A A A A A A L A P AN AT S A AT A LAY AT WA

001354
001360

000031

R AR R R

;POINT TO APT INDIRECT ADDRESS PNTR.

.=.$X

LRk

001334
001340
001344
001350

R AR

$APTHDR ..POINT T0 APT HEADER BLOCK

000000
001174
001604
002260
000000
000052

001334

bk kR k kR

.=44

000044

..SAVE CURRENT LOCATION
;SET POWER FAIL TO POINT TO START OF PROGRAM

200

000200
000044
001320
001320

KRR Rk

L$X=,
.=24

e e

000024

001320
060024

¢ v MSAB

t#ttt****ttttttttttt*****ti***t*****t*t#tt**ti*ttttt*t**ttt*ttt

' 4THE FOLLOWING TAGS ARE USER DEFINED
001504
001506

dcdkokok deodkokok gk ok ok ok ok ok kok okok sk ok ko ok ok ok ok ok ok ok ok ok okkkkkk ok

000000
070032

{VERPC: .WORD
RESRVD: .WORD

O
070032

kk bk kk kb kkkkkkkkkkkkk

;VIRTUAL PC LOCATION FOR ERROR TYPEQUT ROUTINE (S$ERTYP).

cone PARITY REG BITS RESERVED FOR FUTUREUSE.
:NOTE:

FOR MSI1 MEMORY WITH PARITY, CHANGE TO 077772.

J
o

0-2 HEGAHORD MEMORY EX MACRO Y05.02
000000
000000

001570
001572
001574
001576
001600
001602
001604
001606
001610
001612

OOOOOOOOOOODOODOO

TSTMAP:

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

WORD MAP.. . 128KW
WORD MAP.. .296KW
WORD MAP.. . 384KW
WORD MAP.. .312KW
WORD MAP.. .640KW
WORD MAP.. . 168KW

:8TH
i9TH

WORD MAP. .1024KW
WORD MAP.. 1152KW

;7TH

WORD MAP... 896KW

;10TH WORD MAP. . 1280KW
;11TH WORD MAP. . 1408KW
;12TH WORD MAP. . 1536KW
;13TH WORD MAP. . 1664KW
i 14TH WORD MAP. .1792Ku
;15TH WORD MAP.. 1920KW
:16TH WORD MAP. .2048KW

;1ST WORD MAP.. .128KW
ioND WORD MAP.. .226KW
;3RD WORD MAP.. . 384KW
;4TH WORD MAP.. .S12KW
;5TH WORD MAP.. .640KW
;6TH WORD MAP.. . 168KW
;/TH WORD MAP... 896KW
:;8TH WORD MAP. -1024KW
;9TH WORD MAP. .1152KW
;10TH WORD MAP. . 1280KW

;11TH WORD MAP. . 1408KW
TH WORD MAP. .1536KW
TH WORD MAP.. 1664KW
TH WORD MAP. -1792KW
TH WORD MAP.. 1920KW
TH W0.D MAP. .2048KW

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

SAVTST:
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;LAST CONTIGUQUS MEMORY ADDRESS (+2)
;CONTAINS DISPLAY REGISTER IMAGE

;TEST MAP - WHICH BANKS ARE SELECTED FOR TEST.
WO

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

001614

001614
001616
001620
001622
001624
001626
001630
001632
001634
001636
001640
001642
001644

0
0

Page 5-3

;MEMORY MAP - EACH BIT CORRESPONDS TO 8K

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

001554
001554
001556
0015€9
001562
001564
001566

.WORD
.WORD

MEMMAP;

001514

001514
001516
001520
001522
091524
001526
001530
001532
001534
001536
001540
001542
001544
001546
001550
001552

LMAD:
LODISP:

QOOOOOOOOOOOOOOO

001510
001512

Monday 23 Dec 85 08:45

OOOOOOOODOOOO

v MSAB

R? T STATISTICS
T ABLE

;1ST WORD MAP.. . 128KW
icND WORD MAP.. .226Ku
;3RD WORD MAP.. . 384KW
;4TH WORD MAP.. .S12KW
;5TH WORD MAP.. .640KW
;6TH WORD MAP.. . 168KW
;7TH WORD MAP... 896KW
;8TH WORD MAP. - 1024KW
;9TH WORD MAP.. 1152KW
;10TH WORD MAP.. 1280KW
;11TH WORD MAP.. 1408KW
;12TH WORD MAP.. 1536KNW
;13TH WORD MAP.. 1664KW

SEQ 0022

0_2 MEGAWORD MEMORY EX MACRO Y05.02

ATISTICS TABLE

000000
000000
000000
0000VG
000000
000000
000000

;15TH WORD MAP..1920KW

;16TH WORD MAP..2048KW

;1ST
ieND
;SRD
;4TH
iOTH
;6TH
;7TH
;:8TH
;9TH

WORD MAP...128KW
WORD MAP...256KW
WORD MAP...384KW
WORD MAP.. .512Ku
WORD MAP...640KW
WORD MAP...768KW
WORD MAP...896KW
WORD MAP . .i024KW

WORD MAP..1152KW

;10TH WORD MAP..1280KW
;11TH WORD MAP..1408KW
:12TH WORD MAP..1536KW
;13TH WORD MAP..1664KW
;14TH WORD MAP..1792KW
i15TH WORD MAP..1920KW

;16TH WORD MAP..2048KW

SELFLG:

001762

000000

FSTADR: .

001764
001766
001770

000000
000004
000000

LCONST:
WWP:
TEMP:

b=
o

[eleleloleolelelolalelalalolelols]

000
000
000

001756
001757
001760

WORD MAP...128KW
WORD MAP...256KW
WORD MAP...384KW
WORD HAP...512KW

;LOOP ADDRESS FOR MULTIPLE BLOCK TESTING.

OO0Oo

MMORE:

000000

OEFLG:

:14TH WORD MAP..1792KW

;1ST
idND
i3RD
;4TH

001754

001726
001730
001732
001734
001736
001740
001742
001744
001746
001750
001752

FLAGEK:

SEQ 0023 |

;POINTER TO CURRENT 8K BANK OF MEMORY

BITPT:
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

001722
0C1724

QOO OOOOOOOOOOOOOOCO

000000
000000
000000
000000

001714
001714
001716
001720

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

000000
000000
000000
000000
000000

Page 5-4

;PARITY MAP - WHI.H BANKS HAVE MEMORY PARITY

OOOOOOOOOO0O0O000O0O0

001704
001706
001710
001712

0
0
0

PMEMAP:

001654

001654
001656
001660
091662
001664
001666
001670
001672
001674
001676
001700
001702

.WORD
.WORD
.WORD

000000
000000
000000

016

Monday 23-Dec-85 908:45

;9TH
;6TH
;7TH
;8TH

WORD MAP...640KW
WORD MAP...768KW
WORD MAP...B96KW
WORD MAP..1024KW

WORD
H WORD
H WORD
H WORD
H WORD
H WORD
H WORD
H WORD

MAP..1152KW
MAP..1230KW
MAP..1408KW
MAP..1536KW
MAP..1664KW
MAP..1792KW
MAP..1920KW
MAP..2048KW

SET UP BY “INITMM” AND "INITON" ROUTINES.
USE BY "MMUP” AND "MMDOWN" RQUTINES,

OPERATOR SELECTEL PARAMETERS FLAG.

(SA=204)

;8K BLOCK INDICATOR. USED IN "INITMM“ AND_“MMUP .
:UDD/EVEN FLAG USED IN PARITY MEMORY BYTE TEST.
;FIRST VIRTUAL ADDRESS TO BE TESTED.

;FIRST ADDRESS IS USER SELECTABLE.
; TO BREAK TO

'‘MMUP" TG FIND LAST ADODRESS.

USER SELECTABLE CONSTANT DATA.
;WRITE WRONG PARITY COMMAND
: TEMPORARY STORAGE

0-2 MEGAWORD MEMORY EX MACRO Y05.02

Monday 23 Dec 85 08:45

ATISTICS TABLE

001772
001774
001776

002000

000000
000000
000000
000000

TEMPL:
FLG30K:
LSIFLG:

.WORD
.WORD
.WORD
.WORD

KDJDA:

002002 000000

PLUSL:

.WORD

0
0
O
0

Page 5-5

SEQ 0024

: TEMPORARY STORAGE
:30K MEMORY FLAG
:LST-11 PROCESSOR FLAG
VK KDJ11-DA (11/53) CPU FLAG

‘OATA BIT USED FOR FIRST ENTRY INTO
:MMUP AND MMDOWN ROUTINES.

HH kkkkkkkbkhkkkkhkkhikkkhkkkkkbk bk hkkbhkdkkshkkkkhkkxkkbsbdbhkbkbdbhdhahk

'+
:x
'+

2004

RELATIVE ADDRESSING TABLE.
THE FOLLOWING LOCATIONS ARE MODIFIED AT RELOCATIOM TIME TO ALLOW
RELATIVE ADDRESSING TO GET THE RELOCATED VALUE OF THE ARGUMENT TAGS.

kAt?Rttttt*ktttttt#tttitt*ttt*t**tttttttttttttttttttttttttttttttt

002004

001070

002014
002016
002020

001654
001714
001506

.STACK: $CMTAG

002006 001514
002010 001614
002012 001554

"HEMMAP ;
_SAVTST:
"TSTMAP:

002022
002024
002026
002030
002032
002034
002036
002030

"MPRO: ~ MPRO
‘MPRX: MPRYX
.PBTRP: PBIRP
"MPPAT: MPPATS
"PESRV: PESRV
"ERRTB: SERRTB
"EIGHT: 8
TST32: 16732

"PMEMAP:
BITFT: BITPT
"RESRV: RESRVD

002272
003372
010520
002244
015632
003434
000010
012506

MEMMAP
SAVTST
TSTMAP

PMEMAP

;STACK POINTER INITIAL ADDRESS.

:AUTO. MEMORY SIZING MAP
:SIZED MEMORY MAP FROM AUTO. OR USER
;MEMORY MAP OF 8K BANKS TO TEST

:PARITY MAP OF 8K BANKS
:BIT FOINTER FOR BLOCK UNDER TEST
:PARITY REGISTER RESERVED BIT MASK ADDRESS.

:MEMORY PARITY REGISTER TABLE ADDRESS.
:MEMORY PARITY REGISTER EXIST TABLE ADDRESS.
:PARITY BYTE TEST TRAP ROUTINE ADDRESS
:MEMORY PARITY PATTERN TABLE ADDRESS.
:MEMORY PARITY ERROR TRAP ROUTINE ADDRESS.
:ERROR TYPEOUT TABLE PONTER.
:DECIMAL TYPE ROUTINE COUNT DESLGNATOR.
:SCOPE ABORT ADR FOR WHEN NO MEM AVA FOR TEST.

intN:H{t#*tttt#t*#tttH:*ttt*tttttttttt*ttttttttttttttttttttttttt

DATA CONTAINERS FOR ERROR PRINTOUT.

ckkkkhkhkkhkkkhkkkhkhkkhbhkbkkkkkhkkbhkkhkkbkhkkhkkbkkhkhkihkbkhkhhbbbkdhi
s

002042 001106 001110 001114 O1:

SERRPC,$GDADR, $GDDAT, $BDDAT. 0

002054
002062
002070

001504
001114
001504

002102

001504

002050

002076

002110

002114
002122

002130

005132

001106
001116
001106

001110
000000
001110

DT2:

.
$VERPC.$ERRPC,
$GDADR, $GDDAT, $BDDAT,0

DT12:

$VERPC,$ERRPC,
$GDAOR, $GDDAT,0

001106

001150

DT14:

$VERPC,$ERRPC,
$TMPO, $GDADR,0

001106
001114

00111C
001116

DT15:

$VERPC,$ERRPC,
$GDADR, $ TMPO, $GDDAT, $BDDAT,0

001504

001106

(01150

DT21:

$VERPC.$ERRPC,$TMPO,
$GDADR, $GDDAT, $BDDAT,0

001504

001106

001110

DT23:

$VERPC,$ERRPC,
$GDADR, $BDADR, $GDDAT, $BODAT, 0

001504

001106

001112

DT24:

$VERPC,$ERRPC, $BDADR,0

001504

001106

001112

DT25:

$VERPC,$ERRPC, $BDADR,$TMPO, $TMPi,"

001116

001114

000000

001110

000000

001504
001150
000000

002140
002146

001110
000000

002156

001112

002150
002164

002166
002174

002176

002204
002212
002220
002224
002232
002236

000000

001150
001504
001152
001150
001116
001156

001114

001152
001106
000000
001152
000000
000000

001116
001116

000000
001150

001110

DT26:

$VERPC,$ERRPC,
$TMPO, $TMP1,0

DT30:

$TMPO, $TMP1, $GDADR, $BDDAT,0

DT31:

$TMP3,0

1D
—

CVMSAB

0 2 MEGAWORD MEMORY EX MACRO Y05.02

Monday 23 Dec 85 98:45

APT STATISTICS TABLE

002242

177777

.WORD

.SBTTL

Page 5 6

SEQ 0025

; TABLE TERMINATOR.

MEMORY PARITY PATTERNS TABLE

shkd hkkkkhkbkhhkkhbbkhkbbhhhkhhkkhhhbkkkbhhhhhhhhhkbhkhdbhdbhbddadbhdidn

THL FOLLOWING ARE THE PARITY PATTERNS EXERCISED THRUQUT MEMORY
shbkkdkkbkhkkkkkkkkkkhkkkkhkhkkkhkkhbkbhkhddhdh

002244
002246
022250

125325
152652
052452

002252
002254
002256
002260
002262
002264
002266

025125
122070
072527
177717
107030
152525
000000

002270

000000

MPPATS:

125325

;EVEN, ODD

052459

:EVEN, 0DD

152652

;00D
, EVEN

025125

:0D0, EVEN

102070

:EVEN,EVEN

072527

:00D, 00D

177771

:EVEN, EVEN

107030
152525

:000, 000
:0D0 ' EVEN

ExrkAPATTERN HOLDER FOR

:FUTURE USE

MPEND:

:TABLE TERMINATOR

.SBTTL

MEMORY PARITY REGISTER ADDRESS TABLE

11T LLLLLIPLI 20071

000000
000000
000000
000000
000000
000D

000000

0171000111 777177717/777777

THE _LEAST SIGNIFICANT BIT IN THE DEVICE ADDRESS IS SET TQ A ONE (1)
IF THE CONTROL IS FOUND NOT TO BE PRESENT. THE MEMORY PRESENT UNDER
THE CONTROL OF EACH CONTROLLER IS REPRESENTED BY 16 WORDS FOLLOWING
THE DEVICE ADDRESS. FOR NON-22BIT MEMORY ONLY 1 WORD IS0
USED
8K

(EACH_BIT_REPRESENTING A 8K BLOCK,
BIT 3 =
24 - 28KW
BIT 15
=
120-124KW

I.E. FIRST WORD BIT
16 BIT ADDRESSING
18 BIT ADDRESSING

MPRO:

MPR1:

00235C

;*
;¥
;*
;*
K

002312
002314
002216
002320
002352
00c3¢4

LTI L LTI

FROM WHICH PARITY MEMORY IS ADDRESSED & CONTROLLED:

172101
000000
000000
000000

THE FOLLOWING REPRESENTS THE MEMORY PARITY REGISTER ADDRESS TABLE

;%
1 K

002272
002274
002276
002300

onnivhhbhbbbbbbbhhbhk

172100 +1

;PARITY STATUS REGISTER

WORD
0
JWORD
0
JWORD
0
.WORD
0
JWORD
0
JWORD
O
.WORD
0
WORD
0
.MORD
0
JWORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
172102 +1
WORD
O
WORD
0
.WORD
0
0
.WORD
.WORD
0

:2ND WORD CONTROL MAP.
. .256KW
;5RD WORD CONTROL MAP.
.. 384KW
;4TH WORD CONTROL MAP...512KW
iSTH WORD CONTRQM. MAP...640KW
;6TH WORD CONTROL MAP...768KW
;/TH WORD CONTROL MAP...B896KW
;8TH WORD CONTROL MAP..1024KW
;9TH WORD CONinOL MAP..1152KW
;10TH WORD CONTPOL 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
;15T WORD CONTROL MAP... 128KW
;2ND WORL CONTROL MAP...256KW
;3RD WORD CONTROL MAP...384KW
,4TH WORD CONTROL MAP...512KW
;STH WORD CONTROL MAP...640KW

WORD

:15T"

WORD CONTROL MAP...128KW

MEMORY PARITY REGISTER ADDRESS TABLE

MPR2 :

000000
000000
000000
000000
172107

002532

000000
000000
000000
000000
000000
000000
620000
000000
000007
000000
000000
000000
000000
000000
000000
000000
000000
172111
000000
000000
000000
00000
000000
000000
000000
000000

MPR3:

Monday 23 Dec 85 08:45
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WQRD
172104 +
WORD
-WORD
.WORD

172106 »
WORD

.WORD

MPR4 :

iazuo v

Page 5-7
WORD CONTROL MAP...768KW
WORD CONTROL MAP...896KW
WORD CONTROL MAP.. 1024KW

;6TH
;7TTH
;8TH

;15T

WORD CONTROL MAP...128KW

;3RD

WORD CONTROL MAP...384KW

;9TH

wCRD CONTROL MAP..1152KW

;9TH

WORD CONTROL MAP..1152KW

;10TH WORD CINTROL MAP..1280KW

;11TH WORD £INTROL MAP . 1408KW
;12TH WORD CONTROL MAP..1536KW
:13TH WORD CONTROL MAP..1664KW
:14TH WORD CONTROL MAP..1792KM

;15TH WORD CONTROL MAP..1920KW
;16TH WORD CONTROL MAP..2048KW

iMASK FOR_UNUSED PARITY CSR BITS
;PARITY STATUS REGISTER
. .256KW
WORD CONTROL MAP.

;:OND

WORD CONTROL MAP...512KW
WORD CONTROL MAP...640KW
WORD CONTROL MAP...768KW
WORD CONTROL MAP...896KW
WORD CONTROL MAP..i024KW

;4TH
;5TH
;6TH
;7TH
;8TH

:10TH WORD CONTROL MAP . . 10BOKM

;11TH waBn CONTHT MAP.
. 1408KMW
i1 TH WORD CONTROL MaP ., 1536KW
i1
il
il
i1

]

VBT UGN
DU
A
4

-2 MEGAWORD MEMORY EX_MACRO Y05.02

Jdololelolololelolelelsle]

CVMSAB

[elelelelolaleloldoldlelaolelalolelololelclolalalelel Jolololeloleolalololalolalolelelalel

;2ND
;3RD
;4TH
i5TH
;6TH

H WORD CONTROL MAP..1664KW
H WORD CONTROL MAP..1:22Ku
H WORD CONTROL HAP..1920KN
H WORD CONTROL MAP..2048KW
K_FOR_UNUSED PARITY CSR BITS
ITY STATUS REGISTER
WORD CONTROL MAP.. 128KW

. .256KW
WORD CONTROL MAP.
WORD CONTROL MAP...384KW
WORD CONTROL MAP...512KW
HORD CONTROL MAP...640KW
.. 768KW
WORD CONTROL MAP.

;7TH

WORD CONTROL MAP...896KW

i9TH

WORD EONTROL MAP. . 1152KW

;7TH

WORD CONTROL MAP...896KW

;8TH

WORD CONTROL MAP..i024KW

.
. 1280KW
;10TH WORD CONTROL MAP
;11TH WORD EgfiTROL MAP . . 1406KW
TROL MAP..1536KW
;12TH WORD
;13TH WORD CONTROL MAP..1664KW
;14TH WORD EONTROL MAP. . 1792KW
;15TH WORD CONTROL MAP. . 1920KW
;16TH WORD CONTROL MAP..2048KW
;MASK_FOR_UNUSED PARITY CSR BITS
iPARITY STAUS REGISTER
;1ST WORD CONTROL MAP...128KW
WORD CONTROL MAP...256KW
i
..
. 384KW
;3RD WORD CONTROL MAP
2KW
MAP...51
;4TH WORD CONTROL
0KW
MAP...64
:5TH WORD CONTROL
8KW
MAP...76
CONTROL
WORD
;6TH

:8TH

WORD CONTROL MAP..i024KW

SEQ 0026 |

Page 5-8

172112 +
W0

-WORD

MPR6 :

MPR7:

172164 +
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
172116 +
WORD
-WORD
.WORD
.WORD

.WORD
.WORD
.WORD

002714

.WORD
.WORD
.WORD
.WORD

SEQ 0027

WORD CONTROL MAP. . 1152KW
WORD CONTROL MAP.. 1280KW
WORD CONTROL MAP. .1408KW
WORD CONTROL MAP. . 1536KuW
WORD CONTROL MAP. . 1664KW

S oo

ONTROL MAP.. 1792KuW
TROL MAP.. 1920KW
.2048KW
D PARITY CSR BITS
sEGISTER
OL MAP.. .128KW
ROL MAP... 256KW
NTROL MAP.. - 384KW
NTROL MAP.. . 912KW
NTROL MAP.. .640KW
NTROL MAP.. . 168KW
NTROL MAP.. .896KW

MPRS:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. W0

QOO OOOOOOHOOOOOROOOOOOCOOOOORPOOODOOOOOOOOOOOOOrOO00O000O0O0OCO

.. 1024KW

.. 1152KW

.. 1280KW
WORD CONTROL MAP.. 1408KW
WORD CONTROL MAP. .1536KW
WORD CONTROL MAP.. 1664KW
WORD CONTROL MAP. .1792KW
WORD CONTROL MAP. . 1920Kk
WORD CONTROL MAP. .2048KW
;
;MASK_FOR_UNUSED PARITY CSR BITS
gg?ITY STATUS REGISTER
WORD CONTROL MAP.. .128KHW
:OND WORD CONTROL MAP.. .226KW
:3RD WORD CONTROL MAP.. . 384KW
:4TH WORD CONTROL MAP
.912KW
WORD
CONTROL
MAP..
H
.640KW
:ST
WORD
CONTROL
MAP.. . 168KW
6TH
WORD CONTROL MAP... 896KW
WORD CONTROL MAP.. 1024KW
WORD CONTROL MAP. -1152KW
WORD CONTROL MAP.. 1280KW
WORD CONTROL MAP. .1408KW
WORD CONTROL MAP. .1536KuW
WORD CONTROL MAP.. 1664KuW
WORD CONTROL MAP .. 1792K0
WORD CONTROL MAP. . 1920KW
WORD CONTROL MAP. .2048KW
FOR_UNUSED PARITY CSR BITS

PARITY STATUS REGIS;ER

2ND
:3RD

:4TH

WORD CONTROL
M
.128KW
WORD CONTROL MAP
.. .256KW

WORD CONTROL MAP
.. . 384KW
WORD CONTROL MAP .. .S12KW
WORD CONTROL MAP ... 640KW
WORD CONTROL MAP.. . 168KW
WORD CONTROL MAP.
. .896KW
WORD CONTROL MAP .. 1024KW
WORD CONTROL MAP .. 1152KuW
WORD CONTROL MAP . 1280KW

;STH
16TH
:1TH
:8TH
i9TH
; 10TH
:11TH WORD CONTROL MAP.. 1408KW

CVHSRB

0_2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 08:45 Page 5-9

MPRS:

.WORD
.WORD
.WORD

MPR9:

003034
003036
003040
003042
003044
003046
003050
003052
003054
003056
003060
003062
003064
003066
003070
003072
003074
003076

000000
000000
000000
172125
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

178120 +

MPR10:

W
172122 +

W
172124 «
WORD

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

SEQ 0028

¢ 0 NTROL MAP. .1536KW
C 0NTROL MAP. . 1664KW
¢ 8NTROL MAP. . 1792KW
¢ NTROL MAP. . 1920KW
C ONTROL MAP. .2048KW
UN USED PARITY CSR BITS

RTUS REGISTER
CONTROL MAP.. . 128KW
CONTROL MAP.
.. 256KW
CONTROL MAP.. . 384KW
CONTROL MAP.. .512KW
WORD CONTROL MAP.. .640KW

WORD
WORD
WORD
WORD

;:5TH
;6TH WORD CONTROL MAP.. . 168KH
;7TH WORD CONTROL MAP.. . 896KW
1024KW
;8TH WORD CONTROL MAP..1C2
i9TH WORD CONTROL MAP. L1152KW
;10TH WORD CONTROL MAP. . 1280KW
;11TH WORD CONTROL MAP.. 1408KW
H WORD

3R0D

;4TH
;5TH
;6TH
:7TH
:BTH
H

000000
000000
000000
000000
000000
000000
172121
000000
000000
000000
000000
000000
000000

CONTROL MAP. .1536KW
ONTROL MAP. .1664KW
gNTROL MAP. .1792KW
NTROL MAP.. 1920KW
H WORD CONTROL MAP. .2048KW
K_FOR_UNUSED PARITY CSR BITS
ITY STATUS REGISTER
WORD CONTROL MAP. .. 128KW
WORD CONTROL MAP. . .256KW

WORD CONTROL MAP.. . 384KW
WORD CONTROL MAP.. .912KuW

WORD CONTROL MAP.. .640KW
WORD CONTROL MAP.. . 168KW
WORD CONTROL MAP... 896KW
WORD CONTROL MAP. -1024Ku

WORD CONTROL MAP. .1152Ku

:10TH WORD CONTROL MAP. . 1280KW

;11TH WORD CONTROL MAP. . 1408KW
:12TH WORD CONTROL MAP. .1536Ku
:13TH WORD CONTROL MAP. . 1664KW
;14TH WORD CONTROL MAP. .1792KuW
;15TH WORD CONTROL MAP. . 1920Ku
:16TH WORD CONTROL MAP. .2048KW
HASK FOR_UNUSED PARITY CSR BITS

;PARITY STATUS REGISTER

:1ST" WORD CONTROL MAP.. .128KW

;:2ND

[elelolelelololelalololelolel

002716
002720
002722
002724
002726
002730
002732
002734
002736
092740
002742
002744
002746

plololeleleldolololololalolololelel Jdololololoalalelelolalelolslelelolaldolololalela]

MEMORY PARITY REGISTER ADDRESS TABLE

;3RD
;4TH
;5TH
;6TH
;7TH
;8TH
:9TH

.. 256KW
WORD CONTROL MAP.

WORD CONTROL MAP.. - 384K
WORD CONTROL MAP.. .912KW
WORD CONTROL MAP.. .640KW
WORD CONTROL MAP.. . 168KW
WORD CONTROL MAP.. .896KW
WORD CONTROL MAP. . 1024KW
WORD CONTROL MAP. .1152KW

H WORD
H WORD
H WORD
TH WORD
H WORD

CONTROL
CONTROL
CONTROL
CONTROL
CONTROL

MAP. . 1280KW
MAP. . 1408KW
MAP. .1536KW
MAP. . 1664KW
MAP. . 1792KW

9 —— v
——
———
s

——

TM
7

CVHSRB

0-2 MEGAWORD MEMORY EX MACROC Y05.02 Monday 23 Dec-85 08:45 Page 5 10

003260

000000

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

@a
W
WP
T4
Ve
W
G
WA
B
W
WE
WS
WE
WE
W
WS
W

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

WORD
.WORD
.WORD
.WORD

172132 -

MPR13:

CONTROL
CONTROL
CONTROL
CONTROL
CONTROL

WORD
WORD
WORD
WORD
WORD
WORD

CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL

MAP.. .128KW
MAP
. . .226KW
MAP.. . 384KW
MAP. .. 912KW
MAP.. .640KW
MAP.
. . 168KW
MAP... 896KW
MAP. - 10244
MAP. . 1152KW

.. 1280KW
.. 1408KW
.. 1536KuW
.. 1664KW
..1792Ku
. . 1920KW
TROL MAP .2048KW
USED PARITY CSR BITS
gS REGISTER
NTROL MAP. ..128KW
WORD
0 CONTROL MAP
. . .226KW
WORD CONTROL MAP.. . 384KW
WORD CONTROL MAP.. .512KuW
WORD CONTROL MAP.. .640KW
WORD CONTROL MAP.. . 168KW
WORD CONTROL MAP... 896KW
WORD CONTROL MAP .. 1024K
WORD CONTROL MAP.. 1152KW
lOTH WORD CONTROL MAP. .1280KW
H W0
CONTROL MAP. . 1408KW
H W0
MAP. . 1536KW
H WO
MAP. . 1664KW
MAP. .1792KW
H W0
H W0
MAP .. 1920KW
H WORD CONTROL MAP, .2048KW
SK_FOR_UNUSED PARITY CSR BITS
RITY STATUS REGISTSR
WORD CONTROL
M
.128KW
WORD CONTROL MAP
. . .296KW
WORD CONTROL MAP.. . 384KW
WORD CONTROL MAP.. .S12Ku
WORD CONTROL MAP
.640KW
. . . 168KW
WORD CONTROL MAP
WORD CONTROL MAP
. .. 896KW
WORD CONTROL MAP .. 1024KuW
WORD CONTROL MAP. . 1152KuW
WORD CONTROL MAP. . 1280KW
WORD CONTROL MAP.. 1408KW
WORD CONTROL MAP. .1536KW
WORD CONTROL MAP .. 1664KW
WORD CONTROL MAP.. 1792KW
WORD CONTROL HAP. .1920KW
WORD CONTROL
M AP. .2048KW

MPR12:

WORD
WORD
WORD
WORD
WORD

WORD CONTROL

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
172130 +

;15T
;eND
i 3RD

1t et b et 1 O 0~ TN IT B AN 1o T X s ot ot ot 8
£ NN
O A = = e = — T 2Z () D D OVUE IO ettt
Tt bud Mor MY
STrrrrxros—

.WORD
.WORD
.WORD
.WORD

;PARITY STATUS REGISTER

WORD

®me

.WORD
172126 +

MPR11:

SEQ 0029

;15TH WORD CONTROL MAP. . 1920KW
:16TH WORD CONTROL MAP. .2048KW
iMASK_FOR_UNUSED PARITY CSR BITS

172127
000000

.WORD
.WORD

[elelelelolalolelolalolelelolalelel Jolololalolaleloleololololalalololel JolalelolalolelelalolelalololalololJololo]

000000
000000
000000

BROONH OB OO

N NN
N
NN N

jolelololelololdlalolele)

[]

Dbt o 0 p—e

o
SFERoRESS

(=]
[
8888883333288
P
e S S S AS £A O NNNNO
A A NN
A A A A I il
O NIVHNU

MEMORY PARITY REGISTER ACDRESS TASLE

FOR UNUSED PARITY CSR BITS

CVMSAB

0 2 MEGAWORD MEMORY EX MACRO Y05.02

MEMORY PARITY REGISTER ADDRESS TABLE

003262
003264

003¢66
003270

003272
03274
003276
003300

003302
093304
003306

003310
003312
003314
003316
003320
003322
003324
003326
903330
003332
003334
003336
003340
003342
003344
003346
003350
003352

003354
003356
003360
003362
003364
003366
003370
003372

172135
000000

MPR14:

000000
000000

000000
000000
000000
000000
00000C
000000
000000
000000
000000
000000
000000
000000
000000
000000
172137
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000

Monday 23-Dec 85 08:45
172134 -}
JWORD
0

;PARITY STATUS REGISTER
;157" WORD CONTROL MAP...128KW

JWORD
.WORD
JWORD
LWORD

:4TH
iOTH
;6TH
; 7TH

.WORD
.WORD

0
0

.WORD
.WORD
JWORD

0
0
0

.WORD
JWORD
.WORD
JWORD
.WORD

MPR1S:

Page 5 11

0
0
0
0

0
0
0
0
0

JWORD
0O
.WORD
0
172136 -1

WORD
MORD
JWORD
JWORD
.WORD
JWORD
JWORD
JWORD
JMORD
.WORD

.WORD
.WORD
JWORD
CWORD
.WORD
.WORD
WORG

O
0
0
0
0
0
0
0

0
0
0
0
0
0
0
0
0

:OND
:3RD

WORD CONTROL MAP...256KW
WORD CONTROL MAP.
. .3B4KW

WORD CONTROL MAP...512KW
WORD CONTROL MAP...640KW
WORD CONTROL MAP...768KW
WORD CONTROL MAP...896KW

;8TH WORD CONTROL MAP..1024KW
i9TH 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

;15T
:oND
;3RD
;4TH
;5TH
;6TH
;7TH
;:8TH

WORD CONTROL MAP...128KW
WORD CONTROL MAP...256KW
WORD CONTROL MAP...384KW
WORD CONTROL MAP...S512KW
WORD CONTROL MAP...640KW
WORD CONTROL MAP...768KW
WORD CONTROL MAP...896KW
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 HAP..1920KN
;16TH WORD CONTROL MAP..2048KW
;MASK FOR UNUSED PARITY CSR BITS

;THIS IS THE END OF THE TABLE !
.BLKW
17.
;TABLE TO_HOLD JUST PARITY STATUS REGISTERS THAT EXIST.
; (THE EXTRA WORD IS FuR A TERMINATOR.)

MPRX:

SEQ 0030

0-2 MEGAWORD MEMORY EX MACRO v35.02
CVMSAB
ERROR POINTER TABLE

Monday 23-Dec 85 08:45

Page 6

SEQ 0031

_ERROR POINTER TABLE
;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN QCCUR.
;#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;#*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT,
:#NOTEL:
IF SITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC).
:«NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
Pk
M
;;POINTS TO THT ERROR MESSAGE
P+
OH
:1POINTS T0 THE DATA HEADER
: :POINTS TO THE DATA
)
it

025152
026512

003442

002042
027250

003444
003446

025206
026535

003450
003452

002054
027254

003454
003456
003460
003462

025206
027214
002054
027261

003464
003466
003470
003472

025242

003474

003476
003500
003502

025300
026535
002054
027254

003504
003506
003510
003512

025336
026535
002054
027254

003514
003516
003520
003522

025402
000000
000000
000000

CHGG1;
x
ITEM 1
DM1
DHL
;a

025423
026535
002054
027254
025467
027214
002054

ITEM 2
DM2
DH2

T2
%

026535

002054
027254

0T1
OF1

OF2

ITEM 3
DM2
OH31

D12
OF3

ITEM 4
M4
DH2

T2
OF2

ITEM S
DMS
DH2

012
OF2

ITEM 6

: SERRPC . SGDADR’, $GDDAT, $BDDAT
:16,22,16,16
;ADDRESS TEST ERROR(TSTL-5).
:V/PC,P/PC,MA,S5/B,WAS
: SVERPC, $ERRPC,

:16,22,22,16,16

$GDADR, $GDDAT, $BDDAT

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

: SVERPC, $ERRPL, $GOADR, $GDDAT, $BDDAT
:16,22,22.8,8
CONSTANT DATA ERROR(TST6-10).
:V/PC,P/PC,MA,S/B, WAS
.

: SVERBC , $ERRPC $GDADR, $GDDAT, $BDDAT
:16,22,22,16,16
;ROTATING BIT ERROR(TST11-12).
;V/PC P/PC,MA, S/B, WAS

: SVERPC, SERRPL, $GOADR, SGDDAT, $BDDAT
:16,22.22.16,16
;MOS REFRESH TEST ERROR (TST24-25).

D12
OF2

: SVERPC, SEARPL, $GOADR, $GDDAT, $BDDAT
:16,22,22.16,16

1TEM 7
8M7

:V/PC,P/PC MR, 578, WAS

;FATAL ERROR HALT

0
0

ITEM 10

DM10

;MARCHING 1'S AND 0'S ERROR(TST23).

T2
OF2

: SVERPC, $ERRPC, $GOADR, $GDDAT, $BDDAT
:16,22,22.16,16

DH2
«

;PARITY REGISTER DATA ERROR.
:PC,REG,S/B, WAS

DH2
ok

: :POINTS TO THE DATA FORMAT

003434
003436
003440

{ERRTB:

003434
003434

et $ et s s P i s i P
so P
e e s o ol e e e e s o s et s
(s e e o et e e e et e et e bt e ek
ALRLMNLNLRONL LNV
NV NV RSNV PLTLTLNLITV VR
PO
PL POV PL ML PO NLNL LN PO PONL NP PO NN N rororor
DI ~d
AN~
AP RAITNNVNINNINNINNN
S S LD L LS 5 5 NN NN I NN
~JONUNE NPV
OO D0 ~ NS NV
OO O ~JONN B NPV = O O OO ~JONUT B NN OO
00 ~ SN £ (NN

.SBTTL

ITEM 11

DM11

OH31

D12

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

:PARITY MEMORY ADDRESS ERROR(TST13).

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

: SVERPC, $ERRPC, $GOADR, $GODAT, $BDDAT

N]
O3> (

o.x (|

0 2 MEGAWORD MEMORY EX MACRO Y05.02

POINTER TABLE

78 003542
79

ASIAS
AN L¥ T, ¥

80 003544

027261

025533

81 003546

026574

33 003552

027261

85 003554
86 003556

025607
026574

s o e et
e s o e b o o P e B e
o o Pt p o e o ph e o b ek e et pt = b ot s ok et pt bt s fo
NN
N OO LN OO O N N OGN N N N NN O (I N O NP PLPLNLTV
TV TV PO NPO POV N NONLNL

002070
027261

90 003564

025700

94 003572
95
96 003574

027266

91 003566

026623

025152

006650
002114

38 003607 027266

pM12

pT12

ITE"oig

DMi3
DHI2

0712
Irenois
‘

DM14

DH14

3§ 003570 002102

47 003576
98 003600

DF3
ITEM 12

DH12

82 003550 002070

87 073560
gg 003562

Monday 23-Dec-85 08:45

DT14
;4

Page 6-1

116,22,22,8,8

:DATIO WITH WRONG PARITY DIDN'T TRAP(TST13).

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

: SVERPC, sEkRPt $GDADR, $GDDAT
:16,22,22.8

;WRONG PARITY DETECTED, BUT NO REGISTER SHOWS ERROR FLAG.
:V/PC.P/PC,MA,S/8B

s SVERPC, $ERRPL, $GDADR, $GDDAT
:16,22,22,8

;PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST13).

:V/PC,P/PC ,REG, MA

: SVERPC, sEhRPc $TMPO, $GDADR

.
DF14
ITEM 15
DMi

116,22,22,22

ITEMD§%4

:16,22,22.22,16,16

:PARITY REGISTER DATA ERROR.

DH1S
D715

:V/PC,P/PC,MAUT ,REG, 5/B, WAS
: SVERPC, $ERRPC, $GDADR, $TMPO, $GDDAT, $BDDAT

DM16

;MORE THAN ONE REGISTER INDICATED PARITY ERROR.

DM17

;DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR

01 003604

025777

06 003614

026056

08 003616

027214

DH31

'V/PC,P/PC,MA, 578, WAS

10 003622 027261

OF3

116,22,22.8,8

02 003606 026623
03 003610 002102
8% 003612 027266

09 003620 002054
11

12 003624

026154

17 003634
18 003636

026206
026725

22 003644
23 007G40
24 003650
25 003652
26
27 003654
28 003656

000000
000000
000000
000000

13 003626

ot bt ot et
e s ot P o e e
Cad A (O U N O O O O OO N

19 003640 002132
20 003642 027274
21

026255
026772

29
003660 002150
gg 003662 027266
32 003664

33 003666
33 003670

D12
%

026535

14
003630 002054
%2 003632 027254

026322

027046
002166

OH14
D714
ITEHD§%4

ITEM 20

s %

:V/PC,P/PC,REG,M
: SVERPC, $ERRPC. $THPO $GDADR
:16,22,22,22
TRAPPED(TST13).

: SVERBC sEéRPt sGéADR $GDDAT, $BDDAT

OM20

:RANDOM DATA ERROR(TST14)

DM21
pHA1

; INSTRUCTION EXECUTION ERROR(TST1S 22).
:¥/PC,P/PC,IUT,MA, S/B, WAS

0
0
0
0

:CHGG1

OHo

T2
ITEnogg

D121
OF 21
& ITEM 22

ITEM 23
DM23
OH23

ITEHDS%4

D123
DM24

DHo4
D124

SEQ 0032

:V/PC,P/PC,MA,5/8,W

s116,22.02,16,16
SVERPC, $ERRPL sGbADR $GDDAT, $BDDAT
:SVERPC, $SERRPC. $TMPO, $GDADR, $GDDAT, $BDDAT
116,22,16,22,16, 16
:NOt USED

;PROGRAM_CODE_CHANGED NHEN RELOCATED
:v/PC,P/PC,SRC MA,DST
M
WAS

::16,22,22.22,16,16
$VERPC, SERRPC, $GOADR, stADR $GDDAT, $BDDAT
; TRAPPED,

BUT NO REGISTER HAD ERROR BIT SET.

:V/PC,P/PC, TRP/PC
: $VERPC, $ERRPC, $BDADR

O (]

mo
<

0-2 MEGAWORD MEMORY EX MACRO YOS 72

35 003672
3

Pl s ot e et
e ot s et et et o
ek o s
P e s ot 1t s s e P
N NN I O N (N N N NN NN NN NN RN N N
NN

Monday 23-Dec-85 08:45

POINTER TABLE

027266

37 003674

026376

1
2 003704
3 003706

026416
027135

b&bg

38 003676 027071
39 003700 002176
40 003702 027266

4 003710 002212
45 003712 027254

46
47 003714
48 003716

026436
027135

51
§2 003724

000000

56
57 003734

026472

49 003720 002212
S0 003722 027254

53 003726 027165
54 003730 002224
§5 003732 027302

58 003736 000000
59 003740 002236
g? 003742 027302

OF14
ITEM 25

116,22.22

DM25

;TRAPPED TO 114.

DH25
D125
OF 13

V/PC,P/PC,TRP/PC,REG, WAS
::16,22,22.22,16
S$VERPC, $ERRPC sabAo $TMPO, $TMP1

ITEM 26
DM26
DH26

;FAILED T0 TRAP.
:V/PC.P/PC,REG,WAS

DT26
DF2

: SVERPC sERRPc $TMPO, $ TMPL
116,22, 22,

ITEM 27 oM2Z
DH26

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

D126
OF2

: SVERPC, $ERRPC. $TMPO, $TMP1
:16,22,22.16

ITEM 30
0

:NO MESSAGE.

DH30
D730
OF 30

:REG, WAS ,MA - WAS
:$TMPO, $1MP1, $GDADR, $BDDAT
:22,16.22.8

ITEM 31
DM31

; TRAPPED TO 4

0
D131
DF30

62 N

.SBTTL START:

Page 6-2

:NO HEADER
:$TMP3
122

SETUP AND MAP MEMORY

STEN /RN /AN /RN AN /RN RN RN /RN AN RN\ /RN SR\ RN R\ /RN RN R

EEPT

Tore

THIS CODE IS NOT POSITION INDEPENDENT.

s/ oN&/\NK/ \K/NK/ \R/ N/ \k/ \k/:\k/ \&/S \k/:\&/ :\&k/ :\k/:\k/ :\%/:\%/: \%

67 003744 105067

NN NN

THIS IS THE NORMAL (SA = 200) BEGINNING OF THE PROGRAM.

68 003750 000403
69 003752 112767
70 003760

003760
003764
003766
003772

003774

004000

004006

012706
005026
022706
001374

176006

177777

175776

012737

000530

000340

MOV

000024

000026

004014 016767 006634 006624
004022
004026

013746
012737

004034 012767
004082 012767
004050 022777

004056 001012

000004
004062

177570
177570
177777

STARTA
#-1,
SELFLG

;CLEAR "SELECT PARAMETER FLAG.

:60 DO SETUP AND MEMORY MAP.
:SET THE SELECT PARAMETERS FLAG.

STARTA:
SBTTL INITIALIZE THE COMMON TAGS

MOV
CLR
CHP
BNE

001130

001100

CLRB ~ SELFLG

BR
SELECT: MOVB

:;CLEAR THE COMMON TAGS ($CMTAG) AREA

001070

012706
012737

START:

175066
175062
175052

ASTACK , SP

;;INITIALIZE A FEW VECTORS

P ISETUP THE STACK POINTER

HOV

#SPURDN, %PWRVEC ; ;POWER FAILURE VECTOR

MOV

SENDCT $EOPCT

MOV

4340, J4PWRVEC+2;:LEVEL 7

::SETUP END-OF -PROGRAM COUNTER

;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;:EQUAL TOA

000004

A$CMTAG,R6
;;FIRST LOCATION TO BE CLEARED
(R6)+
: :CLEAR MEMORY LOCATION
#SWR,R6 ;;DONE?
-6
;;LOOP BACK IF NO

MOV
MOV

MOV
MOV
CMP

BNE

-17, SETUP FOR A SOF TWARE SWITCH REGISTER.

IHERRVEC,-(SP)
;;SAVE ERROR_VECTOR
“300003.8nERRVEC
.SET UP ERROR VECTOR

ADSWR, SWR
“DDISP DISPLAY
SWR

30062$

.SETUP FOR A HARDWARE SWICH REGISTER
. AND A HARDWARE DISPLAY REGISTER
: s TRY 70 REFERENCE HARDWARE SWR

; ;BRANCH IF NO TIMEQUT TRAP OCCURRED

SEQ 0033

MSAB
__0-2 MEGAWORD MEMORY EX MACRO Y05.02
ITIALIZE THE COMMON TAGS

004060
004062

Monday 23-Dec-85 08:45

000403
012716

004070

012767

000176

004104

012637

000004

004114

132767

000200

175073

BITB

012767

001216

174776

30003$ MOV

004066

004070

000002

BR
3000048: MOV
175032

004076 012767 000174 175026

004110

0J4122

882%%3

005067
001403

175066

1371

RTI

30001$: MOV

30001¢
#30001¢,(SP)

;:AND THE HARDWARE SWR IS NOT = -1
; ;BRANCH IF NO TIMEQUT
;3SET uP FOR TRAP RETURN

#SWREG, SWR

; ;POINT TO SOFTWARE SWR

SP)+, SAERRVEC

..RESTORE ERROR VECTOR

#APTSIZE, $ENVM

..TcST USER SIZE UNDZR APT

#$SWREG, SWR

..NO USE APT SWITCH REGISTER

MOV

#DISPREG DISPLAY

CLR

yPASS

30002¢: MOV
BEQ

30003

1372

Page 6 3

; CLEAR PASS COUNT

; YES,USE NON-APT SWITCH

kR ko kk ok ok Kok kKoo okk ok ok ok okl ok okok kb kk kK

..V DISABLE CACHE ELSE SIZING IS AFFECTED

1373

1374 004132
1375 004136

016746
016746

173646
173644

1377 004150
1378 004154
1379 004162
1380 004164

005067
052737
000402
062706

173632
001414

,,V*ttt#ttt*t**t**tt**t*#tt*t**tt#*tt*tt*ttttt#*t**ittttttttttttt

MOV
MOV

1376 004142 012767 004164 173634

1381 004170
1382 004174
1383

012667
012667

177746

000004

304

173612
173604

31¢:

1385

005067
013746
012737

175574
000004
004244

1389
004216 013700 177750
1390 004222 042700 177417

000004

177777

175536

1391 004226
1392 004232
1393 004234
1294 004242
1395 004244

022700
001004
012767
000402
062706

1398 004254

C05067

1399 004260 005077
1400

000004

1¢:

175232

;:V CLEAR T.0. STATUS LOC
;;V DISABLE CACHE
;:V CACHE IS PRESENT
;+V RESET STACK POINTER

..V RESTORE T7.0. STATUS
;V RESTORE T7.0. VECTOR

MOV

KDJDA
4 (SP)

177750
RO
J‘177417 RO

#100,R0
14
#-1,KDJDA
24
#4 SP

(S#)+,

LDDISP

9DISPLAY

;CLEAR DISPLAY REGISTER STORAGE LOCN

CLEAR DISPLAY REGISTER

.SBTTL TYPE PROGRAM NAME
..TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
FIRST TIME?

012722

004310

005737

000042

126727

174672

000001

174576

000176

BNE

000042

004567 015444
004362

001412
026727
001011

cMP
BNE
MOV
BR
ADD

CLR

(022737
001435

004324
004326
004334

CLR
MOV
MOV

CLR

174646

004272
004300

00-+3:6

,.V SET UP TIME QUT VECTOR

VKttttttt*ttt#tEND KDJ11 DA SIZINGaikkkdk
kokokokkok dok ok ok kokokokokok kokokok ok dok kok

177777

004314 001016

ES#;
SP)+ 4

MOV

005227

004302
004306

MOV
MOV

6
#1414,8#177746
31
4 SP

WKk kkkkokkkkkkkokkdokkkkhkkdkkkokkkkokkkkkkkokkdokkokkkokkkkokkkkdkkkds
b

000100

004264

004270 001041

303

CLR
BIS
BR
ADD

BIC

1396 004250 012637 000004
1397

MOV

..V SAVE TIME OUT VECTOR
V SAVE THE STATUS

VK******#*#*tttt*t*t***tt**ttt*t#*tt****t#*ti*tttttttttttttttttitt
..VK SIZE FOR KDJ11-DA (11/53) PROCESSOR

1384

1386 004200
1387 004204
1288 004210

,-(SP)
-(SP)

CMP
BEQ

.SBTTL

30004$

J‘$ENDAD an4e
30004$

..BRANCH IF NO

..ACT- 1?
:BRANCH IF YES

JSR
RS
$PRINT GO PRINT QUT THE FOLLOWING MESSAGE.
WORD 30005
ADDRESS OF MESSAGE 70 BE TYPED
GET VALdE FOR SOFTWARE SNITCH REGISTER
TST

w42

;ARE WE RUNNING UNDER XXDP/ACT?

BNE

30006$

..BRANCH IF YES

BEQ
cMP
BNE

300064
SWR, #SWREG
300073

BRANCH IF YES
..SOFTHARE SWITCH REG SELECTED?
. :BRANCH IF NO

CMPB

$ENV , &

;s ARE WE RUNNING UNDER APT?

;% THE NEXT TWO INSTRJCTIONS PRbVIDE AN INTERFACE TO THE $GTSWR ROUTINE

SEQ 0034

CVMSAB

0-2 MEGAWORD MEMORY EX MACRO Y05.02

004336
004340

106746
105066

004344
004350
004352
004360
004360

004767
000403
112767

000405

004374
004374
004376
004402
004404
004410
004416
004422
004426
004430
004434
004436
004444

010700
022700
001402
000167
012767
005067
105737
001011
005737
001406
023737
001402

004446

004767

014310

C00001

174544

£8004
173670
000001
174110
001214

174116

9¢:

CMP

10%:

MOV

125%:

000042

175304
004504

004502

000404
062706
005267

~NO

~Juronro

O ~J=d

005067
012767
000007

005067
032777
001047
012737
005037
004767
005267

BEQ
JSR
;%

f3¢.7
14$:

173310

000004
175262

15¢:

174016
010000

{6s:

174402
000004

004556

004567

023650

004646
177572
006232
173764
015174

1441
1447
1443
1444 004560

012737

004630

000004

OL WD~

;HIGH BYTE CLEARED T0

1(5P)

§8607$

$GTSWR

NSURE KERNEL MODZ

;GO TO THE SUBROUTINE
i +SET AUTO-MODE INDICATOR

30004

;GET OVER THE ASCIZ

.ASCIZ

<CRLF>' CVHSAB‘<CRLF>

493,

104
RESTAR
#1,

RELOCF

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 PELOCATION FACTOR.
;CHECK FOR APT11

;BR_IF APT11

g#42,34#46
13$

PC,SAVLDR

;CHECK FOR STANDALGNE
iBR _IF STANDALONE

;CHECK FOR ACT11
:BR IF ACT11

;GO SAVE LOADERS

CHECK IF MEMORY MANAGEMENT IS AVAILABLE, AND SET IT UP IF IT IS.
INITIALIZE THE MEMMAP TABLE

MoV

AMEMMAP, RO

;LOAD RO ulvn MEMMAP TABLE ADDRESS

R1,14$

:DECREMENT COUNTER 16. TIMES
:IF COUNTER NOT = O THEN CLEAR NEXT ENTRY

MOV
CLR

316, ,R1
(RO)+

CLR
MOV
MFPT

LSIFLG
#15% ,RESVEC

BR
ADD

16$
44 SP

S0B

INC

:LOAD COUNTER
:CLEAR MEMMAP TABLE ENTRY

;INIT LSI-11 /2/QUAD PROCESSOR FLAG
:FIND QUT IF LSI-11/2/QUAD
sMFPT INSTRUCTION WILL CAUSE TRAP

:ON LSI-11/2
:11/23 0R LATER WILL BRANCH
:LSI-11 RETURN,CORRECT STACK

LstFic

:AND SET LSI-11/2 FLAG

CHECK IF MEMORY MANAGEMENT IS AVAILABLE,

CLR

MMAVA

INC

nnAVA

BIT
BNE
MOV
CLR
JSR

#SW12, 3SWR
NONKT
#NONKT ,94ERRVEC
#SRO
PCMMINIT

.WORD nnAnes

JSR

:ON PSW_RETURN.

#1,$AUTOB

e
134

000046

SEQ 0035

;PUT THE PROCESSOR STATY
} g ON THE STACK

13§

011100

004466
004472
004500

SP)

wSENV

000042

001514
000620

10
0
2
0

MFPS
CLRB

3ooossBR
-

004376

Page 6-4

WIHTOUT USING A "TRAP” INSTRUCTION AS CALLED FOR B Y «xSYSMAC#s

JSR
BR
30006: MOVB
30007$:

;%
004452
004456
004462
004464

Monday 23-Dec-85 98:45

000001

RNO-—O

B (NRO= OO O~ OB NN

= O L OO ~J TN > (PO

O D G0 SO LN o

RO =

BhELODDPELLED
——O00O0O0OOOS

GET VALUE FOR SOFTWARE SWITCH REGISTER

$PRINT

AND SET IT UP IF IT IS

:CLEAR KT AND 22 BIT ADDRESSING FLAG
:CHECK FOR INHIBIT KT11 SWITCH
:BRANCH IF SET
:SET UP TIMEQUT TRAP VECTOR
:CLEAR MEM MGMT STATUS REGISTER
:MEM MGMT INITIALIZATION ROUTINE

:SET MEM MGMT AVAILACLE FLAG

:ADDRESS
OF MESSAGE TO BE TYPED
:"KT11 AVAILABLE"

;G0 PRINT OUT THE FOLLOWING MESSAGE.

CHECK IF 22 BIT SYSTEM AVAILABLE AND SET_IT UP IF IT IS
MOV
#22% ,#ERRVEC ~ ;SET UP FOR TIME OUT VECTOR

{'5

004636
004642

004567
023715

004644

000445

ik
o QOO0 OOOO
iO
= O
[ = PO == N PO LIMOND
W NN~
O ~J~J
— ~NONDVWO OO
o FPOMN
WO

8 (NP
= O WO OO ~ IOV
NN E NMV— O WO CO ~JONN B NN

s
o
s
s
s o
s s e

KTSIZ

—
OO
O
O——
——02Z
o
O
ouvun,m
<<
OO
O
O
N
M
O
mm
nO®

;G0 _PRINT QUT THE FOLLOWI NG MESSAGE.
;ARDDRESS OF MESSAGE TQ BE TYPED
;"22 BIT ADR AVAILABLE"
;GO SIZE MEMORY

AVAL
22

RO
R2
R3

106303
032703
001746

s e

0 HERE OR MEMORY EXIST AT
1
+ 2
#BITIS.H?QKA I
; ELSE SET 22 BIT FLA

BIS
JSR
.WORD

STORAGE USED:

Pk
Pk
s%

004746
004750
1437 004754
1438 004756
14939

s s e & ek

TIME OUT TRA

ISABLE 22 BIT ADR

THIS RQUTINE WILL MAP MEMORY IN 8K SEGMENTS.
SUPPORTS ONLY
OF 16 BIT ADDRESSING WITHOUT MEM MGMT SUPPORT.

‘&«
‘x

062706
022702
001001
000405
022702
001004
005267
050310
000407
052702
005202

ot s s (et P

224:

00,3%KIPAR2
4, J%5R3
3%40000

iikkkkkkkkkhkkkkhkhhkhhkkhkkkkkkakbkbhhkhhkhkhkhkhhbbkhkbhkhhkhhhhkhkkhkkhkhh
ki

004706
004712
004716
004720
004722
004726
004730
004734
004736
004740
004744

ks s e o

173700

i ¥

004646
004652
004656
004660
004664
004672
004674
004760
004702
004704

172516

SEG 0036

-4

1 00000
0 15110

R@N@rireare

052767

172344
172516
040000

000000
010000
000020
177777
000000

Page 6-5

—

AN BN
O O

SO 00

004630

005037
012737
052737
012737
005737
001403
005037
000454

OO 0 ~JOY LN £ (NN

s e

s o

s s

e e

e Pt

—p

OaLLLELELLLLPLLLLLOLBDLELLEOEDLDLDELDBLLDE P oo
)
N 2 D O OO OO0 0D QO OB 00 G0 A0 0 OB QO ~J ~J ~J ~J~d~J~d~Jd I~ fealealeadeplo
Yo JU, TV, 1V, )

s i

oL
OLOL S
Vi
AN D

1445 004566
1446 004572
1447 004600
1448 004606
004614
004620
004622
004626

Monday 23-Dec 85 08:45
— Ay
- TR
VA
HHO O

0-2 MEGAWORD MEMORY EX MACRO Y05.02
CVMSAB
GET VALUE FOR SOFTWARE SWITCH REGISTER

000001
004706
3

000004

Rk kkkkk Rk

000500

170000

175040
03

000020

MOV
MOV

208:
21s:
22¢:
3.
4s:

= 3

k ko

#STACK, SP
AMEMMAP
RO

kR kk kR kR

CLR

MOV
MOV

238 DEERRVEC
(R2),(R2)+

MOV

000420
000004
160000

MASK8K

LITERALS:

NONKT:

001100
001514

FLG30K

= MEMMAP POINTER ... LO 128K
= RODRESS POINTER
= BANK POINTER ... LO 128K
= 30K MEMORY FLAG

BIT
BNE
BIS
BR

#1 .R3

3MASKSK ,R2
13
R3.(RO)
38

TIMEQUT TRAPS TO HERE

kR R kR hd ok bk kR

THE SIZING

kR kR kR Rk

;SET-UP THE STACK
;SET UP MEMORY MAP PTR 7O LO 128K
;SET ADDRESS PTR 10 0
:9ET UP €K BANK POINTER
;9ET UP TIME QUT VECTOR
;READ AND WRITE ALL MEMORY
;IF_NOT 8K BOUNDARY
; THEN CHECK NEXT LOCATION
; ELSE SET BANK FLAG IN MEMMAP
AND DO SOME MORE
i

2160000,
R2

;RESTORE STACK POINTER
;IF_NOT 28K BGUNDARY

CTMp
BNE
INC
BIS
BR
BIS
INC

#170000,
R2
224
FLG30K
R3,(RO)
4%
#MASKBK
, R2
R2

;_ ELSE SET UP PQOINTERS
;IF_NOT 30K BOUNDARY
; THEN BRANCH
; ELSE SET 30K MEMORY FLAG
;SET BANK FLAG IN MEMMAP
;BRANCH_ALL DONE
;POINT TO LAST ADDRESS OF 8K BANK
;POINT TO 1ST ADDRESS OF NEXT BANK

ASLB
BIT
BEQ

R3
AB17T4,R3
1$

ADD

x4 Sp

BNE
BR

206
21¢

CMP

DISMAP

;

THEN BRANCH

;UPDATE BANK POINTER
;IF_NOT DONE WITH 32K
; _THEN TRY SOME MORE
;G0 TYPE QUT MAP

CVMSAB
0 2 MEGAWORD MEMORY EX MACRO Y05.02
GET VALUE FOR SOFTWARE SWITCH REGISTER
1500

Monday 23 Dec 85 08:45

1501

SiAREARRRRRRRR AR

1502
1503

;#
;+

1505
1506
1507
1508
1509
1510
1511
1512

;#
i+
i *
i*
ik
P %
i*
ik

1504

1514

1515 004760

012706

001100

1517 004770
1518 004774

1519 005000
%gsg 005006

012702
005037

012737
012737

040000
172344

igg% 005014

012703

000001

1524 005029
1525 005022
1526 005026

011222
032702
001374
050310

1527 005030

%gsg 0r5022
1530

000200
005034

1533 005044
1534 005046
1535 005052
153€ 005054
1537 005062
1538 005064
%228 005066

001017
005767
100406
022737
001010
050310
000433

007600

172346

1541 005070

022737

177600

172346

1543 005100
%ggg 005102

050310
000425

1546 005104
1547 005112

062737
062737

000400
000400

1549 005124 005767
1550 005130 100403

173406

kAR R AR

AR AR A b d

#STACK, SP

MEMMAB RO
40000, R2
S4KIPAR?

#200,9%KIPART
43¢, Q4ERRVEC

ey e

Y e Y

;SET-UP THE STACK

:SET-UP_MEMMAP PTR TO FIRST ENIRY

:INIT VIRTUAL ADDRESS TO O MAPPED THRU PAR2
;INIT PAR2 TO LOC O
;SE7 PAR3 TO 2ND 4K BANK
.LDAD TIME QUT VECTOR

1%:

MoV

#8IT0,R3

;SET-UP 8K BANK POINTER

2%:

MCV
8IT
BNE
BIS

(R2),(R2)+
#MASK8K, R
28

;READ AND WRITE ALL MEMORY
;IF_NOT 8K EOUNDARY
; THEN TRY SOMEMORE
; ELSE SET BANK FLAG IN MEMMAP

R3.(R0)

TIMEQUT TRAPS TO HERE

ADD

;AND GO UPDATE VARIABLES AND CONTINUE
;RESTORE STACK POINTER

#66000 R2

CMP

#177600, 3¥KIPAR3

BIS
Br

R3,(RO)
7

; ELSE SET BANK IN MEMMAP
;AND GO TYPE MEMORY MAP

ADD
ADD

#400,3¥KIPAR2
#400,3¥KIPAR3

UPDATE MAP TO NEXT
8K BANK

15T
BMI

MMAVA
6%

;IF"NOT 18 BIT ADOR
:THEN GO TEST SOMEMORE

001331

BNE

;IF_NOT END OF 18 BIT ADOR

000407
006303
001326

BR
ASL
BNE

BNE
15T
BMI
cHP
BNE
BIS
BR

173464

1548 005120 012702 40000

172344
172346

kb s

Y ITITIL

CHP

1542 005076 001002

1556 005142

MOV
MOV

000004

1532 005040 022702 060000

1553
1554 005136
1535 005140

MOV

062706

155¢ 005134

MOV

MOV
CLR

000424

1531 005034

1551 005132

172346
000004

037777

KRR R AR AR R

IF MEMORY EXISTS NEXT TO THE I/0 PAGE (I.E. 760000 OR 17760000)
THEN THE LAST BANK WILL BE ACKNOWLEDGED AS EXISTING.
STORAGE USED:
RO
= MEMMAP POINTER
R2
- ADDRESS POINTER
R3
= BANK POINTER
KIPARZ = MAPPED TO 1ST 4K OF PRESENT 8K BANK
KIPAR3 = MAPPED TO 2ND 4K OF PRESENT 8K BANK
LITERALS USED:
MASK8K = MASK OF 8K (37777)

KfSIZ

1516 004764 012700 001514

AR AR KRR R R

SEQ 0037

THIS ROUTINE WILL MAP MEMORY IN 8K _SEGMENTS.
MEMORY MANAGEMENT REGISTERS
KIPAR2 AND KIPAR3 ARE USED TO_MAP THE 8K BANKS OF MEMORY,

1513

Page 6 6

45$:

5S¢

BNE

MOV

006303

ASL

€s:

3%
HHAVA
4%
#1600, 3%KIPARZ
54
R3,(RO)
7$

‘40060 R2

13
R3
2%

:IF_NOT POSSIBLY THE 1/0 PAGE

; THEN GO TEST_ SOMEMORE
; ELSE IF 22 BIT_ADDRESSING
;
THEN GO SEE IF 2M I/0 PAGE
;
ELSE IF NOT I/0 BOUNDARY FOR 18 BITS
;
THEN GO_UPDATE VARIABLES AND TRY SQOMEMORE
;
ELSE SET BANK EXISTS IN MEMMAP
;AND GO TYPE MEMORY MAP

;

;IF _NOT 2M 1/0 BOUNDARY

THEN GO_TRY SOMEMORE SIZING

RESTORE ADDRESS POINTER TO 1ST ADDRESS OF THIS BANK

;18 BIT ADDR, = 1 WORD

; THEN GO SIZE SOMEMORE
; ELSE ALL DONE 18 BIT SIZING.
;UPDATE BANK POINTER

;IF NOT END OF THIS MEMMAP ENTRY, THEN CONTINUE

¢ 2 M GAWORD MEMORY EX MACRO Y05.02

E FOR

78:

BNE

.
.

DISMAP
AR

:60 TYPE OUT MEMORY MAP

KRR

ARk AR ARk

kR R R AR R R R4

LOAD TEST MAP (SAVIST) AND CHECKS

STORAGE LOCATIONS

K
ms

Rl
R2

K
me

THEN GO SIZE SQMEMORE
ELSE ALL DONE SIZING

TO INSURE LOWEST 16K OF MEMORY IS AVAILABLE FOR TEST TO RUN

ELSE UPDATE TQ NEX MEMMAP ENTRY

;IF NOT END OF MEMMAP TABLE

ROUTINE WILL TYPE QUT MEMMAP,

~NON
LB WO OO0~y

POS

NIN—

[elelel
o
N
o

bfsmap: MoV

MEMMAP POINTER ... LO 128K
COUNTER
= SAVTST POINTER... LO 128K

SMEMMAP, RO

;LOAD RO WITH MEMMAP ADR

JSR
JWORD

RS,
MEMMES

;GO PRINT QUT THE FOLLOWING MESSAGE.
: ADDRESS OF MESSAGE T0 BE TYPED

JSR
JSp
WORD
MOV
MOV
MOV
CLR
MOV
S0B
MOV
BIC
CMP
BEQ

PC, TYPMAP
RS
$PRINT
SCALF
4SAVTST,R2
AMEMMAP . RO
216. ,R1
Enzg
RO)+,(R2)+
R1,1$
MEMMAP RO
#177774,R0
43 RO
GMPR

WORD

INSUFF

MCV

oo
o
papLon
BR)
PN

~-J
OO OO QD ~Jd—~J~J

005200
605204
005210
005212
005216
303222
005226
005230
005232
005234
005240
005244
005250
005252
005256

oo
SES
Orars
Suin
ROt
Sbb

et o
et P

005160
005164
005172
005176

onun

Sy
N
!
el

;

AMEMMAP+40,RO

SEQ 0038

tttttt*ttttttttttttttttt#t#tttttttttttttttttttttttttttttttttttt

Lot

42 RO

PRARRAR KRR

et it et oot et

we
ws
we

005156

Page 6-7

ADD

CHP

2R X1

s Pt ot et et et[

005144
005150
005154

JSR

SERRTRP, 94ERRVEC:SET UP TIME OUT VECTOR

SPRINT

$PRINT

005260

: "MEMORY MAP:’

:6G0 TYPE THE MAP
:GO PRINT QUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE 10 BE TYPED
:LOAD ADR OF SAVTST TABLE TO BE CLEARED
:LOAD ADR OF MEMMAP TABLE
:LOAD COUNTER
:CLEAR SAVTST TABLE ENTRY
:LOAD SAVIST FROM MEMMAP
:DECREMENT CTR 16 TIMES
:LOAD RO WITH MAP OF 1IST 128K
:MASK ALL BUT BOTTOM 16K
:IF BOTTOM 16K IS ALL THERE
;" THEN GO RUN
:GO PRINT QUT THE FOLLOUING HESSAGE

:ADDRESS OF MESSAGE TO BE TYPED

:"FIRST 16K OF MEMORY NOT ALL THERE!'"

HALT

:FATAL ERROR HALT

:MEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM

Lo ao a¥o Yo Yo Yo Yo Yo Yo JU TS, IF, 10,0, 5, 0, 0, 0,0, 0]V,
[ellelololeleleleolVelVelValVelVelVelVe
Ve lVeiVele . Lo ]
OO ~IN N E AN
OO 00 ~JN N
NN
OO Co

[l el el S

Monday 23 Dec 85 08:45

OF TWARE SWITCH REGISTER

s P

.SBTTL

i SEARCH FOR PARITY REGISTERS PRESENT AND TYPE ADDRESSES OF THOSE FOUND

s (ot
s et et e
s o
s s et
s
s o
P

MAP PARITY REGISTERS

kkkkkrbkhhkgbkbdhbkhkhhkbbhkbhkhbbkhkddbhkbhbbhbhkkhhhbddbhhkkbbbbbkis

THAT ARE FUNCTIONAL AND HAVE CORRESPONDING PARITY MEMORY

FiRRRRRRRRRRKR KRR

005262

005266
005274
005276
005302
005310
005314

005320
005322

GMPR:

MOV

8IT
BNE
MOV

R RN

#MPRX,

#MPRO,

(R3)+,

(R4)+

#5W06,
GMPRO

ISWR

R AR

AR AR bR kb kh kR d Rk k4

;SET UP_POINTER TO PARITY REG EXIST TABLE.

CHECK FOR_INHIBIT PARITY SWITCH.
;BR_IF INWIBIT PARITY.
;SET_UP TABLE POINTER

MOV
3GMPRS, BAERRVEC';SET UP TIMEQUT TRAP SERVICE
GMPRA: BIC
#1
(R3)
.CLEAR FLAG BIT IN TABLE
1 ST
a(k3)
;DOES THIS MEMORY PARITY REGISTER EXIST.
i+ IF IT DOESN'T EXIST. A TIMEOUT TRAP_WILL GO 10 "GMPRB".
MOV

GHPRBA

TIMEOUT COMES HERF

;SAVE IT IN THE PARITY REG EXIST TABLE.

:SKIP “IMEOUT SERVICE CODE

CVMSAB

0-2 MEGAWORL MEMORY EX MACRO Y05.02

MAP PARITY REGISTERS

2
3

062706
052723
012701
005023
077102

000004
000001
000021

2 005344

020327

003372

7 005350

103757
005014
012737
005767
001006
004567
024103

8
9
0
é

005352
005354
005362
005366
005370
005374

1623 005376
1624 005400
1625

005014
000167

023430
176004

ADD
BIS
GMPRBA: MOV
GMPRC:
CLR

GMPRB:

000004

GMPRD:

(R3)+

S08

R1,GMPRC

cMp

R3,

BLO
CLR
MOV
IST
BNE

GMPRA

JSR
.WORD

014356

000744

Monday 23-Dec 85 08:45

CLR
JMP

#MPRX

Page o 8
iR ESTORE STACK POINTER

S ET FLAG TO INDICATE REGISTER NOT PRESENT
il OAD COUNTER
:C LEAR ENTRY IN THIS GPR TABLE
D ECREMENT COUNTER AND CONTINUE

:CLEARING COUNTER UNTIL COMPLETED.
;HAVE WE CHECKED ALL REGISTERS?

;NO_

(R4)

SEQ 0039

GO BACK TO CHECK NEXI ONE

;SET T ERMINATOR IN PARITY REG EXIST TABLE.

SERRTRP, S4ERRVEC
' ; RESTORE TRAPCATCHER

MPRX
MPAMEM
RS

MTR

(R4)

MANUAL

$PRINT

;ANY PARITY REGISTERS PRESENT?
(YES - GO TEST CONTROLS PRESENT

iGO PRINT QUT THE FOLLOWING MESSAGE.
:ADDREGS OF MESSAGE TO BE TYPED

i "NO HEHORY PARITY REGISTERS FOUND*
;MAKE SURE TABLE IS CLEAR
;AND SKIP ALL CONTROLS TESTING

CVMSAB

0 2 M SS?HORD MEMORY EX MACRO Y05.02

Monday 23-Dec-85 08:45

SBTTL
;:

N B WO

e
]

~ I
MO+ OO

001654
000020

005446
2 005452
2 005454

004767
005000

011220

012705
012701

000092

g 005464

012703
010304
060504

002272

032713
001021

000001

g 005460

5
6
7
8

9
0

1
632
3

R1
R2
R3
R4
RS

= MEMMAP & PMEMAP TAB'.E INDEX

=
=
=
=
=

BANK POINTER
ADDRESS TO WRITE WRONG PARITY TO
MPR TABLE PQINTER
ADDRESS OF PRESENT MPR TABLE ENTRY
MPR TABLES INDEX

kkbkkkkkkk bbbk khhkbbkkhhhkhhkhkhhkh kb hd kb hhhhkhh bbb

012703
012704
005023
077402

8
9
0
1
P
3

I.E. BIT STUCK AT GOOD PARITY VALUE
STORAGE USED

ik
i
i%
it
i

065432
005436
005442
005444

5
6
7
8
9
0
1

THAT IfPARITY MEMORY IS NOT LOCATED CORRECTLY THAT

EKIEBRég ALL PROBABILITY DUE TO ONE OF THE FOLLOWING
- PARITY GENERATE OR DETECT LOGIC FAILED
- PARITY ERROR BIT FAILED TO SET
- PARITY BITS IN MEMORY LOCATION FAILED

ik
i

004767
012702
005767
001404
012/02
004767

005470
005472

005474
005500
005502
005530
005512

005514
005522
005526
005530
005536
005542
005544
005550
005554

013773

011212
005712
043773
005773

100006

012763
050160
050114
062703
022703
101345

HBAMEM: JSR
MOV

0 11262
0 14000
1 73116
054000

005346

MAPRB:

1$:

24
3$:

000000

001766
000000

000000

070032
001654

000042

000044

003372

;INITIALIZE ALL PARITY REGISTERS
:SET ADDRESS 70 14000 TO WRITE WRONG PARITY

4PMEMAP, R3

;LOAD PMEMAP TABLE ADR

508

Ra,1$

:IF NOT DONE CLEARING THEN TRY SOMEMORE

JSR
CLR
MOV

PC CLRPAR
*a RS

;G0 INITIALIZE ALL PARITY REGISTERS
:INIT INDEX FOR MEMMAP AND PMEMAP TABLES
:INTT INDEX FOR MPR TABLES

MOV
MOV

2MPRO,R3
R3,R4

;INIT MPR TABLE ADDRESS POINTER
:UPDATE TO NEW TABLE

BIT

‘BITO (R3)

:IF CSR IS NOT PRESENT

MOV

MOV
CLR

MOV

000001

ADD

BNE
MOV

MOV
157

MMAVA
MAPRB
#54000,R2
PC,MMINIT

216, R4
(R3)+

28170, R1
RS .R4

uup A(R3)

“INIT BANK POINTER

‘UPDATE INDEX THRU NEW TABLE

"
i

THEN GO TRY AGAIN
ELSE SET WRITE WRONG PARITY BIT

MOV

370032,42(R3)

BIS

R1,PMEMAPCRO)

ADD
CMP

234 R3
SMPRXR3

BHI

:LOAD COUNTER
:CLEAR ALL OF TABLE

:WRITE WRONG PARITY
:READ WRONG PARITY

3%WWP, A(R3)
a(R3)

BIS

:IF NO MEM MGMT
;"
THEN GO MAP PARITY MEMORY
:
ELSE SET ADDRESS POINTER TO MAP THRU PAR?2
:SET UP MEM MGMT REGISTERS

(R2).(R2)
(R2)

BIC
15T

BPL

bbkbbdbohbhhdhhk

PC,CLRPAR
#14000,R2

ST
BEQ
MOV
JSR

001766

dRRbnbt ks

- SETTING WRITE WRONG PARITY DIDN‘T CAUSE BAD PARITY TO BE WRITTEN

"
%
4

005410
005414
005420
005422
005426

NOTE:

9 005404

0
1
2
3

it kbbb bbb bdbnbbbhbb bbb bbbhbidbbbkabb bbb

AND TYPE RESULTS. SET WRITE WRONG PARITY IN ALL
REGISTERS PRESENT, THEN WRITE TEST LOCATION VIA DATO & READ TEST
LOCATION VIA DATI, THEN CLEAR WRITE WRONG PARITY IN ALL REGISTERS.

SEQ 0040

MAP CORRESPONDENCE BETWEEN PARITY REGISTERS AND MEMORY,

;#
:#+
;¢

6
7

Pege 7

MAP PARITY MEMORY

s hedb kbbb

p—cy—oo—or—‘b—-'-D—‘b—‘b—‘HU—‘»‘b—.O—‘P-‘P‘D—‘H’—‘k—‘F—‘HHHHHHHHHHMHHD—‘HHHHHHHHNM
el alalval
&

OO\ O\ OV OO
O G O O
Realel

MAP PARITY MEM

R1.(R4)
38

: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 TQ NEXT MPR TABLE
: IF NOT END OF TABLE
.

"THEN TRY SOMEMORE

\_‘-0'

s et s ot
s e s ol o it s s et e et e e i et ol s s ot ot
e pap pa T
Sy
N~ d~d~J~d~J~J R
RN
Lol oAl alsaXe ale Al ool ale oaloalo
oy Y4
POND S 4t s it e
s o s it i O QOO OOOOO
VW OVWOWOOLO0 OO0
oo P o
OO0
NHB WO OO ~JAN BNV
O
[«
1. . BT,
NV}

0-2 MEGAWORD MEMORY EX MACRO Y05.02
CVMSAB
MAP PARITY MEMORY
011212

6 005560

005767
0014%7
062737
006301
001020
062700
062705
012701
022700
001413
00040¢

238288223

684 005556

10
3614
3620
005622

8 005624
9 005630

062702
106301
032701
001004

005640
005644

056001
001745

005646

000706

005650

000167

S$:

172752
000400

Mondsy 23-Dec 85 08:45

157

000000

ELSE CLEAR BAD PARITY

;

MMAVA

;IF_NO MEM MGMT

; THEN GO UPDATE FOR 16 BIT SYSTEM
; ELSE UPDATE PAR2 TQ NEXT 8K BANK
;UPDATE BANK POINTER TO NEXT BANK

172344

;IF _STILL SOME TO CHECK IN THIS 128K BANK THEN DO IT

; ELSE UPDATE INDEX FOR MEMMAP AND PMEMAP TABLES
;UPDATE INDEX FOR GPR TABLES
; INIT BANK POINTER
;IF END OF MEMMAP
; THEN GO TYPE MEM PARITY MAPS
;GO TRY SOMEMORE
6%:

ADD

000020

001514

SEQ 0041

(R2),(R2)

000002
000002
000001
000040

040000

Page 7-1

BIT

#40000,R2
R
#B8IT4,R1
9$

;

MEMMAP(R,R1
O)
5¢

;IF_BANK DOES NOT EXIST
; THEN GET ANOTHER BANK

;

TMAP

;G0 TYPE PARITY MAPS

;UPDATE ADDRESS TO NEXT BK BANK
;UPDATE BANK POINTR
;IF_DONE WITH 16 BITS

9¢:

JMP

.SBTTL

DISPLAY PARITY MEMORY MAP

;%
i*

1%
13
ik

THEN FINISHED

THEN GO DO SOMEMORE

ey Y

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

CONTROL REGISTERS CONTROL WHICH MEMORY.
STORAGE USED:
RO
Rl
R2

= FIRST ADDRESS OF MAP TQ BE TYPED
= PARITY REGISTER ADDRESS ... BITS 14-0
= PARITY REGISTER ADDRESS ... BITS 21-15
= MPR TABLE ENTRY

sokkkkkkhkbbhhkbhkkhkhkbhhbkbhhkkkhkkkkdhkhkhkkkhkkkkhhkkhkhkkhkhkkkkd

005654
005660
005664

004767
004567
023760

011012
014066

22 005666
23
24 005672
235 005676
26
27

012703

002272

032713
001050

w0001

004567
024367

014046

011301
042701
005767
100404
001006
012702
000405

100000
172616

000001

thap.

1$:
2%

USR

JSR
JWORD

RS.
MTMAP

PC,CLRPAR

; INITIALIZE ALL PARITY REGISTERS PRESENT
;G0 PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TO BE TYPED

MOV

#MPRO,
R3

;INIT MPR TABLE POINTER

BIT

#8170, (R3)

;IF_THIS REGISTER IS NOT PRESENT
; THEN GO TRY AGAIN

JSR
WORD

RS,
Mxi

BNE

MOV

BIC

757
BMI
BNE

MOV

$PRINT

; "PARITY MEMORY MAP:"

$PRINT

(R3),R1

#100000,R1

MMAVA
34
38
#1,R2
5%

PRINT QUT THE FOLLOWING MESSAGE.
DRESS CF MESSAGE_TO BE TYPED
ARITY REGISTER AT”
VE PARITY REGISTER ADDRESS
VELOP BITS 14-0 OF REGISTER ADDRESS
TYPE QF MEMORY MANAGEMENT

THEN 22 BIT BRANCH

OR 18 BIT BRANCH
ELSE 16 BIT SET BITS 21-15 FOR PRINT QUT

AND GO TYPE QUT

Q- 2_MEGAWORD MEMORY EX MACRO Y05.02
R RITY MEMORY MAP

—

N A

o = Yuw e

SEQ 004c

012702
000402

000177

3s:

MOV
BR

#177.R2
5¢

LOAD BITS el- 15 FOR PRINT QUT
;AND GO TYPE 0OUT

005740

012702

000007

4s:

MOV

#7.R2

;LOAD BITS 21-15 FOR PRINT OUT

005744
005744

010246

MOV

R2,-(SP)

5%:

005746
005750

106746
105066

005754
005760
005761
005762

004767
003
000
010146

THE_NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE T0 THE $TYPOS ROUTINE

NIHTOUT USING A “TRAP" INSTRUCTION AS CALLED FOR BY ##SYSMAC4&,

1(5P)

-(SP)

;PUT THE PROCE%SOR STATUS ON THE STACK

015220

JSR
BYTE
BYTE
FOV

PC.
$TYPOS
3
0
R1,-(SP)

ON PSW RETURN.
:GO TO THE SUERQUTINE
::TYPE 3 DIGIT(S)
: : SUPPRESS LEADING ZEROS
: :SAVE R1 FOR TYPEQUT
: TYPE ADDRESS BITS 14-0

106746
105066

005772
005776
005777
006000
006004

004767
005
001
004567
024415

006006
006010
006014

010300
062700
004767

000002
011206

006020
006024

062703
022703

000044
003372

006032
006036
006042
006044

012700
012701
077101
077004

FPS

:HIGH BYTE CLEARED TO INSURE KERNEL MODE

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE T0 THE $TYPOS ROUTINE

WIHTOUT USING
A “TRAP* INSTRUCTION AS CALLED FOR BY ##SYSMAC#x.

000001

015202

013746

MFPS

1(5p

JSR
BYTE
BYTE

PC.
5

:PUT THE PROCESSOR STATUS ON THE STACK

:HIGH BYTE CLEARED TQ INSURE KERNEL MODE
$TYPOS

;GO 10 THE SUBROUTINE
::TYPE 5 DIGIT(S)
:: TYPE LEADING ZERQS

MX2

MOV

R3,RO

:SET UP RO FOR TYPMAP ROUTINE

444 R3

;UPDATE TO NEXT REGISTER IN TABLE

;

ADD

$PRINT

:ON PSW RETURN.

JSR
JWORD
ADD
JSR

6s:

-(spg

CLRB

#2'RO
PC,TYPMAP

;G0 PRINT OUT THE FOLLOWING MESSAGE
;538§§§8Lg§ MESSAGE TO BE TYPED
:POINT TO MAP ENTRY FOR MPR TABLE
;G0 TYPE MEMORY COVERED BY THIS REGISTER

CHP

AMPRX,R3

MOV
MOV

#10,R0
41 R1

:LOAD DELAY
:LOAD DELAY

508

RO,7$

:COMPLETED BEFORE RESET OCCURS

BHI

:IF NOT END OF MPR TABLE
THEN DO SOMEMORE

006046
006052
006054

7¢

508

15T
BNE
JMP

003372

000270

R1,84

:ALLOW DELAY TO INSURE PRINT QUT IS

AMPRX
CTRLS
MANUAL

;IF PARITY REGISTERS TO TEST
;"
THEN GO TEST
i
ELSE JUMP OVER TESTS

T oy ey

101320

CLRB

005764
005766

006030

i 1Y

000001

Page 7-2

005732
005736

DN
P ARARR AN INNTNNNHANNN
G £ 5
b b
1= OO ~JOMNE (NI OO D SR
NRO = OO
B~
U &

Monday 23-Dec-85 08:45

BE SET AND CLEARED
i«;# CAN
THIS IS A ONCE ONLY TEST.
i+ SHOW THAT BITS 0

SRRk

A
N

TEST PARITY REGISTERS

tttti#tttti*ttt*ttttittt#ttttt*t#*tttt#tttttttttttttttttttttttt

]

SBTTL

006060
006064

002272

CTRLS:

1$:

Rk Rk Rk kR kAR

MOV

MoV

#MPRO

11 AND 15 OF EACH PARITY REGISTER PRESENT

ARk Rk k kR kR

(R3), §2

ko k Rk kh

kb k& k&

;LOAD INITIAL TABLE ADDRESS FOR A POINTER

;GET CSR ADDRESS INTO R2

Monday 23-Dec 85 08:45

173332

300095
:

S s

o
e

<«

010506
011632

30011%:
34

000044
003372

105¢:

;kkk ERROR %% (GO TYPE A MESSAGE)

:ERROR TYPE CODE.
:

ELSE SET THIS BIT IN CSR

:READ AND SAVE CONTENTS GF CSR
:CLEAR THE CSR

:CLEAR RESERVED BITS
:COMPARE THE CHECK WORD WITH THE DATA READ.
:BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
:&+% ERROR *%* (GO TYPE A MESSAGE)

:ERROR TYPE CODE.

30010s:

173306

THEN BRANCH

:SET UP VALUES FOR ERROR PRINTING.
:IF THIS BIT IS RESERVED
;" THEN BRANCH AND DON'T TEST

000001

011201
046701

106%:

:READ THE CONTENTS OF THE PARITY REGISTER
:CLEAR RESERVED BITS, IF EQ
0

2)
SR

;MAKE SURE BIT WAS CLEARED OUT OF CSR

:READ_THE CONTENTS OF THE PARITY REGISTER
:CLEAR BITS WHICH ARE RESERVED
SPRNT
$ERROR

[#3]

010012
011201
005012
046701
020001
001405
004767
004767

173346

TV ON T

030067
001025

BIC
BEQ
30008%: JSR
JSR
.WORD
BIT
2%:
BNE
MOV

THEN DO NOT TEST

:LOAD RO WITH 1ST BIT TO BE TESTED
:INITIALIZE THE PARITY REGISTER

VNN

010566
011712

CLR

MOV

D OWOD

173366

004767

004767
000001

MOV

000001

SEQ n043

ELSE IF CSR DOES NOT EXIST
THEN BRANCH
ELSE LOAD MASK, IF €@ TO 0

42(R3),RESRVD

006172
006174
006200
006202
066206
006212
006214
006216
006220
006224
006230

000042

Page 7-3

#BI;O.R2

"D DN
OC)NMDO

006126
006132
006134
006140
006142
006144
006146
006150
006154
006156
006160
006164
006170
006172

BIT
BNE
MOV
BEQ

000001

g PO D
A
XEHBAO
O

~d~Jd
I~ Sl ~d = J
i
QO QO ~d~J ~d~d =

03c702
00 1052
01 6367
00 1446
01 700
00 012
011201
046701
001405

OONOOMODIWVOAO OO)w DO 8

0 2 MEGAWORD MEMORY EX MACRO Y05.02

ARITY REGISTERS

R R3

JRARRRRRRRARRRA AR RRRRRR KRR

:CHECK OTHER BITS
- BRANCH IF OK

;SET UP_VALUES FOR ERROR PRINTING,

;xxx ERROR *%x (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
Rk kR

Rk Rk hkhk kK Kk Kk k&

i+ SHOW THAT RESET CLEARS BITS 0,2 AND 15 OF EACH PARITY REGISTER PRESENT.

;* ALSO BIT 14 IN PARITY CSR IF MEMORY IS SET FOR 22 BIT ADDRESSING
;%

THIS IS A ONCE ONLY TEST.

sikkkkkkkkkkkhhhkhkkkbkhkkhhkhkbrhkkhhkkkhhkkkhhkhkhhkkhhkhhhkkkkhkkkkkk
&

006232
006236
006242
006244
006250
006252
006260
006264
006266
006270
006274
006300
006302
006306

012704
022704
003411
032714
001003
012774
062704
000764
000005
012702
022702
003423
032712
001015

002272
003372

RESCHK:
1%

#8170, (R4)

000001

unn
000044
002272
003372
000001

#MPRO,
R4
#MPRX,
R4
100¢

101%:

100%:
2$:

101¢
#-1,3(R4)
#44,R4
1$
#MPRO,
R2
AMPRX| R
MANUAL

#8170, (R2)

30013¢

:LOAD INITIAL TABLE ADDRESS FOR A POINTER

;IF END OF

TABLE

THEN BRANCH
;
ELSE IF CSR DOES NOT EXIST
i
THEN BRANCH
]
;
ELSE LOAD CSR WITH ALL 1 S
;UPDATE POINTER
: TRY _AGAIN
;RESET _THE WORLD
;LOAD INITIAL ADDRESS FOR POINTER
;IF END OF TABLE
;
iV

THEN BRANCH

ELSE IF CSR DOES NOT EXIST
THEN BRANCH

0-2 MEGAWORD MEMORY EX MACRC Y05.02 Monday 23-Dec-85 08:45 Page 7-4

ARITY REGISTERS

0 006310
1 006314
2 006320
3

017201
005072
042701

5 006324

005701

6 006326
006330
006334

001405
004767
004767

006340 000001

006342
7 006342

g 006346
0

1 006350
2 006354
3 006360
4 006362
5 006366
006366

006372

36
37

s
s
s e
s
s e o
s
s et e B et Pt Pt
s
s
it Pt
s
s

010360
011504

062702

000044

005067
105767
001002

173406
173376

000752

000167

000402

004567

013360

024453

MOV
CLR
BIC

106746
105066

000001

006402

004767

013170

0 006414 016703
1 006420 011604

013330

300135

006267
006016
006367
012700
066700
012701

MANUL1:

1 006460

077102

0 006855

2 006462

3 006466
4 006470

006016

052710

S 006472
6 006474

005716
001403
006310
005316

8 006500

012702

7 006476

9 006504

000773

066702

0 006510 031012
% 882%%%

001725

006514

004567

006520 024540

JSR

24:

013240

38
2

013232

RESET

;ERROR TYPE CODE.

#44 R2

;UPDATE PQINTER

FSTADR
SELFLG
MANUL 1

;INIT FIRST ADDRESS
;CHECK FOR SELECT PARAMETER SETUP
:IF FLAG SET GET USERS PARAMETERS

;BRANCH BACK TO CHECK NEXT REGTSTER

MANUL2

FAOMES

;ELSE USE DEFAULT DATA

$PRINT

;GO PRINT QUT THE FOLLOWING MESSAGE.

;ADDRESS OF HESSAGE T0 BE TYPED

; "FIRST ADDRESS:'

;GO TO THE SUBROUTINE

ASR

$HIOCT
(SP)

;:DIVIDE
HIGH ADDRESS INTO
;NUMBER OF 128K BANKS AND

ADD
MOV

ROR

$RDOCT

$HIOCT R3
)R

$HIOCT
(SP)
$HIOCT

$BITPT,RO

$HIOCT,RC
#12,R1

(5P)

S0B

R1,1$

TST
BEQ

(SP)
34

BIS
ASL
DEC

001514

SPRNT
$ERROR

WERE CLEARED BY

;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FQR ERROR PRINTING,
:*%++ ERROR *%x (GO TYPE A MESSAGE)

‘37777
(SP)
MANUL 1

MOV

1¢:

:CHECK IF REST

BIT
BNE
ROR
ASR
ROR
ASL

013306

;22 BIT MODE - BIT14 R/W,CLEARED BY RESET

30013¢
PC,
PC,

;
ELSE SAVE CONTENTS OF CSR
;CLEAR THE CSR
;TEST FOR BIT14 T0O
:18 BIT MODE = BIT14 ALWAYS READ AS ZERO

WIHTOUT USING A “TRAP" INSTRUCTION AS CALLED FOR BY #*&xSYSMAC#%,
MFPS
-ESP)
;PUT THE PROCESSOR STATUS ON THE STACK
CLRB
1(SP)
:gfiGgSBY;ETSLEARED TO INSURE VERNEL MODE

MOV
MOV

001714

3(R2),R1
a(R2)
437772 ,R1

:FIRST ADDRESS 8K BOUNDARY
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $RDOCT ROUTINE

JSR

013314

000001

JMP

JWORD

013276
000012

ALD

MANUAL: CLR
TSTB
BNE

23 006422
006267 013322
006426 006016
006430
006434
006436
006442
006446
006452

WORD

89 006406
032716 037771
006412 001365

4
S
6
7
8
9

157

BEQ
30012¢: JSR
JSR

006374
006376
[e Yo -Jo -To -Jo-Zo Yo -Jo Jo Jo-To-TehTe Jo -To -Jo -0 -Jo -Jo . To -To -To -To -To .Jo -}
OO NI NS D D E LD
DD
N

et bts ps

000000
000000
037772

SEQ 0044

#BiTO.(RO)

;LOOP UNTIL DONE

;INIT 8K BANK POINTER IN 128K WORD

;GET FIRST ADDRESS OF MEMORY TABLE

$HIOCT,R2

JSR

;ALIGN COUNT

#MEMMAP , R2

ADD

BEQ

;NUMBER OF 8K BANK WITHIN
+ 128K BANK
;MAKE NUMBER OF 128K BANKS INDEX
;GET START OF TEST TABLE
;ADD INDEX
;SET UP TO ALIGN 8K BANK COUNT

(RO)
(SP)

BIT

; SAVE ORIGINAL HIGH BITS
;AND LOW BITS

;SHIFT BIT UNTIL COUNT = 0
;WHEN ZERG DONE
:SHIFT BIT
+SUBTRACT FROM COUNT

MOV

;:ON
8K BOUNDARY?
:IF NO,REASK

(RO). (R2)

MANUL1

.WORD LAfiHES

$PRINTM

;LOOP BACK

;ADD INDEX

;IS BIT JUST LOCATED,SET IN MEM. TABLE
;IF NO BANK EXISTS...REASK

;GO PRINT QUT THE FOLLOWING MESSAGE.

; ADDRESS OF MESSAGE TO BE TYPED

CVMSAB

0-2 MEGAWORD MEMORY EX MACRO Y05.02

TEST PARITY REGISTERS

1863

Monday 23-Dec-85 08:45

"LAST ADDRESS:"”

THE NEXT TWO INSTRUCTIONS PRéVIDE AN INTERFACE TO THE $RDOCT ROUTINE

WIHTQUT USINGA "TRAP" INSTRUCTION AS CALLED FOR BY #&SYSMAC#&.

006522
00€524

106746
105066

000001

MFPS
CLRB

(SP)
1(SP)

006530

004767

013042

JSR

1865 006536

001010

BNE

MOV

$TMP3'$HIOCT

1864 006534

1866 006540

005716
005767

013204

1868 006546 016716

172402

1870 006560

013164

1867 006544

001005

1869 006552

016767

1871 006564

101353

920467

172460

757
5T

013170

MOV
5% :

CHP

1879 006612
1880 006614
1881 006620
1882 006622
1883 006624

077002
020367
103403
101027
020716

%ggg 006630

062704

040000

1887 006634
1888 006636

005503
012700

000017

1890 006646
1891 006650

006321
006121

1898 006674
1899 006676
1900 006700
1901 006702

001337
077003
000753
012700

1884 006626

101025

6$:
74

013130

8s:

1889 006642 012701 001714

1892 006652
1893 006654
1894 006656
1895 006662
1896 006666
1897 006672

077002
103423
012700 000020
012701 001714
012702 001514
032122

1902 006706 012701
1903 006712 012702
1904 006716 032122
1905 006720
1906 006722

1907 006728

001007
077003

012706

000020

001714
001514

001100

1908 006730 004567 013016
006734

024563

1909 006736
1910 006740

000604
012706

1911 006744

004567

001100

013002

S0B
CHP
BLO
BHI
CHP

BHI

ADD

10¢:
11¢:

12¢:
13¢:

:CHECK IF HIGH BITS ZERO

:IF NOT,NO DEFAULT

:IF BOTH ZERG,FILL IN DEFAULT
:FOR LOW AND HIGH BITS

:CHECK FOR LAST ADDR. BELOW FIRST
:IF YES....REASK

:IF LAST HIGHER GO ON

43
420, R0
s8I1tPT,R1
#SAVTST,R?
(R1)+,(R2)+
RO,7$
R3. $HIOCT
8%
114
R4 (SP)

114

#40000,R4

:IF EQUAL CHECK LOW BITS

:IF LOW BITS LOWER...REASK
:TABLE COUNTER

:STORE BITPT IN SAVTST MAP

:D0 16. TIMES
:COMPARE HIGH BITS OF FIRST TQ LAST
:IF LOMER SEE IF NEXT BANK EXISTS
:IF HIGHER MUST BE LAST BANK
:IF EQUAL CHECK LOW BITS

:IF LOW BITS FIRST HIGHER LAST BANK
:UPDATE TO NEXT BANK

R3
#17.R0

:SET UP TG UPDATE POINTER

ASL
ROL

§R1;+
R1)+

:ROTATE POINTER WITHIN
: TABLE

sB81tPT,R1

508
BCS
MOV
MOV
MOV
BIT

RO, 94
134
#50,R0
s8T11PT,R1
AMEMMAP , R?
(R1)+, (R2)+

MOV
MOV
BIT

s81tPT R1
EMEMMAP | R2
(RI)+, (R2)+

BNE
S0B
BR
MOV

BNE
S0B

MOV

6%
RO,10$
8%
220, RO

14%
RO,12¢

#STACK, sP

JSR

BR
MOV

MANUAL
#STACK, SP

"WORD

14¢:

:CHECK IF LOW BITS ZERO

ADC
MOV

MOV
94

:GO TO THE SUBROUTINE

:IF NOT,NO DEFAULT

R4, sROCT

R3,(SP)

BHI
MOV
MOV
MOV
BIS

$RDOCT

$TMP2, (SP)

CHP

1874 006572 101350
1875 006574 012700 000020
1876 006600 012701 001714
1877 006604 012702 001614
1878 006610 052122

;PUT THE PROCESSOR "STATUS ON THE STACK
;HIGH BYTE_CLEARED TO INSURE KERNEL. MODE

$HIOCT

BLOD

020316

(5P)

BHI

1872 006566 103402
1873 006570

Page

JSR

BADADR
RS,

$PRINT

SPRINT

:GET START ADDRESS OF TABLE
SUNTIL ALL LOCATIONS DONE
:BANK DOESN'T MAP
:SET UP T0 SEE IF ONE EXISTS
:GET START ADDRESS OF POINTER TABLE
:GET START ANJRESS OF MEMORY TABLE
:TEST IF BANK ©XISTS
:TF MATCH UPDAIE
:D0 ALL OF TABLE

;MAKE SURE LAST BANK

:WAS MAPPED BY MEMORY
;SIZING ROUTINE
;
;RESET STACK

GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE 10 BE TYPED
: "2ADDRESS IN UNMAPPED BANK?"
:L 0OP BACK AND START OVER
:RESET STACK

:GO PRINT OUT THE FOLLOWING MESSAGE.

SEQ 0045

CVMSAB

0-2 MEGAWORD MEMORY EX MACRC Y05.02

Monday 23 Dec 85 08:45

TEST PARITY REGISTERS

006750

024620

.WORD

1912

:#
006752
006754
006760

000001

004767

012612

032777

000040

172132

001000

172754

1913 006764

012667

1915 006776
ig%g 007000

001403
012767

1914 006770

1918

LREPT
/RN

RN /RN /RN

172774

RN SR\

;ADDRESS OF MESSAGE TO BE TYPED
; "SELECT CONSTANT: "

WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY *%xSYSMACx*«,

MFPS
CLRB

-(SP%
1(SP

JSR

MOV

MANULZ2: BIT

BEQ
MOV

RN SN

CONST

SEQ 0046

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE T0 THE $RDOCT ROUTINE

106746
105066

Page / ©

RN /RN

;PUT THE PROCESSOR STATUS ON THE STACK
;HfiGgSEYgETSkEARED TO INSURE KERNEL MODE

$RDOCT

(S#)*,.CONST

#SWOS, ASKR

START1
#1000,FSTADR

RN /RN

RN /RN SR\

THE REST OF THE PROGRAM IS POSITION INDEPENDENT CODE,

;GO TO THE SUBROUTINE

;SAVE THE DATA

;IS VECTOR AREA PROTECTED?

;IF NO,GO ON
s IF YEs,SET STARTING ADORESS = 1000
R\ SN

SO THAT IT CAN EXECUTE PROPERLY WHEN THE PROGRAM HAS BEEN RELOCATE

:aEP}HISIIS DONE S50 THAT THE FIRST TWO BANKS OF MEMORY CAN BE EXERCISED IN EXACTLY THE SAME MANNER AS THE REST OF MEMORY.
AN TR TS TR TR YRS TEAN YA YRR TEAN VAN TAAR TAAN VAN VAN VAN TEAN YAAN

1923 007006

016706

1924 007012
192S 007016
1926 007022

012700
016701
016702

1928 007030

077002

1931 007046
1932 007054

066767
004767

1934
1935
1936
%g%g

001406
032737
001002
004767

1927 007026 012122

1929 007032 046767
1930 007040 012767

1933 007060 005767
007064
007066
007074
007076

172772

START1: MOV

000020
172766
172764

171476
007006

171460
006660

1%
172022

000001
003676

1939

;INIT TESTING TABLE

RO,1$

BIC
MOV

PRGMAP , TSTMAP
#START1.3LPADR

15T

MMAVA

BEQ
BIT
BNE
JSR

177572

(Rl)+.(§2)¢

S08

ADD
JSR

171452

;SET STACK POINTER

#20,R0
.SAVTST,R1
L.ISTMAP ,R2

MOV

172514
172030

.STACK, SP

MOV
MOV
MOV

RELOCF, $LPADR
PC
MAMF
TST1
#8170,
TST1
PC,

LSBTTL SECTION 1:

1948

a#SRO
MMINIT

;SET UP TO LOAD 20 LOCATIONS
;SOURCE 70 BE SAVTST TABLE
;DESTINATIION TO BE TEST MAP

:LOOP UNTIL DONE

;:DON'T TEST WHERE PROGRAM IS LOCATED.
;INIT LOOP ADDRESS.
;:SET UP MEMORY PARITY ERRQOR VECTOR

;CHECK FOR MEMORY MANAGEMENT AVAILABLE.
+BRANCH IF NO MEM MGMT.
;CHECK IF MEM MGMT ENABLED.
;BR IF MEM MGMT ENABLED.
;SET UP MEM MGMT REGISTERS.

MEMORY ADDRESS TESTS

H ;**********i**********#*****#**********************t**t*****i***

+*xTEST 1
WRITE VALUE OF MEMORY ADDRESS INTO MEMORY
&
RO = DATA WRITTEN INTQ MEMORY (SHOULD BE)
ik
R1 = DATA READ FROM MEMORY (WAS)
R2 = VIRTUAL ADDRESS
Lk
R3 = NOT USED
ik
ok

R4 = NOT USED

RS = BLOCK BOUNDARY BIT MASK.

fé?I***************fl**t***i*******************************i*‘***t

007102

004567

010424

1950 007106
351 007112
1952 007114
1953 007120

004467
010200
004767
010012

004044

007124

020001

1949

1954 007122

007126
007130

005156

012201

001405

004767

007646

JSR

$SCOPE

;GO TO SCCPE ROUTINE.

JSR
MOV
JSR
MOV

R4,
R2,
PC,
RO

INITMM
RO
PHYADR
(R2)

INITIALIZE THE MEMGRY ADDRESS POINTERS.
;SET UP TO CALCULATE PHYSICAL ADDRESS
;GET PHYSICAL ADDRESS INTO RO
;WRITE VALUE OF ADDRESS INTO ADDRESS

cMP

;COMPARE THE CHECK WORD WITH THE DATA READ.

300145 JSR

PC,

SPRANT2

;SET UP VALUES FOR ERROR PRINTING.

;%
1¢:

UPWARDS WORD ADDRESSING.

MOV

BEQ

(Ré)+.

300154

;GET THE DATA FROM MEMORY UNDER TEST.

;:BRANCH OVER ERROR CALL IF GOOD DATA.

et
A b b pt pa

[
alealeale]Lo 2 1o

WOOWOOOOOL
OO
UL TN TV, BN WL TV, ]
BN
OOV®~3 WU

CVMSAB
1

0-2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 08:45
WRITE VALUE OF MEMORY ADDRESS INTO MEMORY

007134
007140
007142
007142
007146
007150

004767
000002

010704

062700
077514
004767

000002

300154

004214

097154 004467 004074
007160 010200
007162 162700 000002
007166 004767 005104

;%
i*

3$:

4%:

007212
007212

300174

007216
007220

004767
000002

010634

162700

000002

077513
004767

004510

JSR
.WORD

PC,
2

$ERROR

;%*%x ERROR *#+ (GO TYFE A MESSAGE)
;ERROR TYPE CODE.

ADV
S08
JSR

%2,
RS,
PC,

RO
24
MMUP

;ADD #2 TO PHYSICAL ADDRESS
;BRANCH _TF MORE IN CURRENT Bl "rK.
;FIND NEXT BLOCK AND LOOP TO 1s.

CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY
DOWNWARDS WORD ADDRESSING.

007172 014201
007174 020001
007176
001405
007200 004767 007552

007204
007210

Page 7-7

JSR
MOV
SuB
JSR

R4,
R2
w

INITON
RO
RO
PHYADR

INITIALIZE THE MEMORY ADDRESS POINTERS.
:SET UP_TO CALCULATE PHYSICAL ADDRESS
:GET LAST ADDRESS OF BLOCK
;GET PHYSICAL ADDRESS INTO R0

JSR
.WORD

PC,
2

$ERROR

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

;DEC DATA BY 2

MOV
CMP
BEQ
30016%: JSR
SUB

S0B
JSR

-(fi?) R1
;GET THE DATA FROM MEMORY
R1
:COMPARE THE CHECK WORD WITH THE DATA READ.
306175
;BRANCH OVER EPROR CALL IF GOOD DATA.
PC,
SPRNTO ;SET UP_VALUES FOR ERROR PRINTING.
i,

RS,
PC,

4%
MMDOWN

:BRANCH_IF MORE IN CURRENT BLOCK.
;FIND NEXT BLOCK AND LOOP TO 35.

SEQ 0047

0-2 MEGAWORD MEMORY EX MACRQ Y05.02

Monday 23 Dec-85 08:45

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY

1969

SRR

4TEST 2

007224

1971 007230
972 007234

1973 007236
1974 007232
1975 007245
1976 007246
1977 007250
L978 007252

004567

010302

004467

003722

004767
006305
110022
005200
077503
004767

005034

010200

004467

1983 007264
1984 007266
1985 007272
1986 007274
1987 0067276

005300
004767
06305
114201
120001

1982 007262

010200

1988 007300 001405

007302
007306
007312
007314
1985 007314
1990 007316
1991 007320

004767
004767
000003

005300
077512
004767

kkkkkkkkkkkkkkkkkkkkkkhkhkhkkhkhkkkkkkhbhhkhhhkhhhkhkkhkhkkhhbhk
kb kk bk kk&

té12:

;+ UPWARDS BYTE ADDRESSI

$SCOPE

;G0 TO SCOPE ROUTINE.

1$:

1992

:SET UP TO CALCULATE P H

JSR

R4,

INITHH

;INITIALIZE THE MEMORY

JSR
ASL
MOVB
INC
508
JSR

PC.
RS
RO,
RO
RS,
To

PHYADR

:GET _PHYSICAL ADDRESS I
;MAKE TEST COUNTER BYIE
:WRITE VALUE OF ADDRES S

MOV

DEC
JSR
ASL
MOVB
CMP8

BEQ

30018$: JSR
JSR
.WORD
30019:
DEC
S08
JSR

LATEST 3R0

24
MMUP

INTO ADDRESS

;ADD ONE_TO PHYSICAL ADDRESS
:BRANCH IF MORE IN CURRENT BLOCK.
;FIND NEXT BLOCK AND LOOP TO 1.

kAR

R2.

RO
PC,
RS
-(R2).

3ob19s

PHYADR
R1
R1

PC,
pc

SPRNTO
$ERROR

RO
RS,
PC.

44
MMDOWN

AR AR

;INITIALIZE THE MEMORY ADDRESS PO INTE RS.
;SET UP TO CALCULATE PHYSICAL ADDRESS

:GET LAST BYTE ADDRESS OF BLOCK
:GET PHYSICAL ADDRESS INTO RO
:MAKE TEST COUNTER BYTE VALUE

:GET THE DATA FROM MEMORY
CHECK THE DATA...LQ BYTE ONLY VALID.
:BRANCH OVER ERROR CALL IF G3QD DATA.
SET UP VALUES FOR ERROR PRINTING.
4%« ERROR *x* (GO TYPE A MESSAGE)

;ERROR TYPE CODE.

;DEC DATA BY 1
;BRANCH_IF MORE IN CURRENT BLOCK.

;FIND NEXT BLOCK AND LOOP TO 3.
AR

h kR

Rk &

WRITE 1'S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS.
DATA
WRITTEN INTQ MEMORY (SHOULD BE)
=

R1 = DATA READ FROM MEMORY (WAS)
R2 = VIRTUAL ADDRESS

L%
Lk

R4 = NOT USED
RS = BLOCK BOUNDARY BIT MASK.

R3 = NOT USED

kkkkhkhkbhkhkhhkkhhkkkhbhhhkkkhkkhhkhrhhhkhkkhhkhkbhhkhhkhhhbkbhbkhbhhkdhsk

007324

004567

010202

1994 007330

004467

003720

1996
1997
1938
1999

162700
004767
005100
010042

000002
004730

007336
007342
007346
007350

(R2)+

‘4
Lh

1995 007334

DOWNWARDS BYTE ADDRESSING.
JSR
R4,
INITON

JRRRR AR

007324

R2,

CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY

1993

JSR

MOV

004410

KA KRR AR AbRbRRS

R4 = NOT USED
RS = BLOCK BOUNDARY BIT MASK.

005004

007450
010532

AR AR

R2 = VIRTUAL ADDRESS

004112

003772

R3 = NOT USED

1980
1981 007256

R AR AR R

1979

AR Rk

WRITE VALUE OF MEMORY ADDRESS INTO MEMORY

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

ik
i

1970

AR AR

SEQ 0048

s¥
"

007224

RARR AR

Page 8

CVHSAB

010200

tét3.
;%

1%
28

JSR

RS,

$SCOPE

R2.

DOWNWARDS HURD ADDRESSING
JSR

MOV

SUB
JSR
COM
MOV

o)
PC.
RO
RO,

ITON

;G0 TO SCOPE ROUTINE.
;INITIALIZE THE MEMCRY ADDRESS POINTERS.

:SET UP_TO CALCULATE PHYSICAL ADDRESS

RO
PHYADR

:GET LAST_ADDRESS OF BLOCK
:GET PHYSICAL ADDRESS INTO RO

(R2)

;PUT DATA INTO MEMORY

;COMPLEMENT THE ADR

L+

MSAB

C 2 MEGAWORD MEMORY EX MACRO Y0S.02

X Dec 85 78:45

WRITE 1'S COMPLEMENT VALUE OF ADDRESS

2000 007352

2001 007356
2002 007360
2003
2004

2005 007364

2006 007370
2007 007372

2008 007375

2009 007400

007400

007402
007404
007406

062700

077504
004767

000002

003566

004767

004700

005100

007370

007412
007416

004767
000002

010426

2010 007420

162700

000002

004767

003736

007420

2011 007424

201 007426

077513

508
JSR
;4
i+

2013

R2.

COM

MOV

CMP
BEQ
30020$: JSR

JSR
WORD

300214:

SUB

508

JSR

24
MMDOWN

SEQ 0049

.+2 TO DATA--ADR GOES DOWN SO COM GOES UP

:BRANCH IF MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP T0 1f.

PC.

PHYADR

:SET UP TO CALCULATE PHYSICAL ADDRESS
:GET PHYSICAL ADDRESS INTO RO

:COMPLEMENT IT

(Ra,.

3oo¢1s
PC,

SPRNT2

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

:COUNT DOWN WITH ADDRESS

PC.

MMUP

:FIND NEXT BLOCK AND LOOP TO 3.

pC.
2

RS,

.GET THE DATA FROM MEMORY UNDER TEST.

SERROR

. #4% ERROR ##% (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

:BRANCH IF MORE IN CURRENT BLOCK

HH ttttttt*tttt*ttttttttttttttttttttttttttttttttttttttttitttttttth

4TEST 4

L%
i*

R3 = NOT USED

R4 = NOT USED

i*
Pk

007432

004567

010074

2015 007436

004467

003514

2016 007432
2017 007446
2018 007450
2019 007452
2020 007454

004767
606305
110022
077502
004767

004726

004467

2025 007470
2026 007472
2027 007474

006305
112201
120001

2024 007464 004767
2008 007476 001405
007500 004767

004767

007510 000003

.+ UPWARDS BYTE AfiDRESSING

JSR

$SCOPE

;GO TO SCOPE ROUTINE.

1%:

INITMM

INIfIALIZE THE MEMORY ADDRESS PGINTERS.

:GET THE BANK NUMBER INTQ
R
:MAKE TEST COUNTER BYTE VALUE
:WRITE BANK # INTO ALL ADDRESSES
:BRANCH IF MORE IN CURRENT BLOCK.
FIND NEXT BLOCK AND LOOP TO 15.

JSR

JSR
ASL
MOVE
S0B
JSR

003710
003472

004704

2029 007512 077511
004767

R4,

PC.
RS
RO,
RS.
PC.

BANKNO
(R2)+
24
MMUP

UPWARDS BYTE ADDRESSING.
JSR
R4,
INITMM

JSR

ASL
MOVB
CHPB

007260
010334

007512

2630 007514

te1a

.+ CHECK THAT DATA WRITTEN ABOVE CAN BE READ

2022
2023 007460

007504

RS = BLOCK BOUNDARY BIT MASK.

kkkbbhhkkhkhkkhbkbkkkhkbbkkhkhk
kb khkhkhbhhkbkbkhhkbshkkhkkkkbhhhkk kb kkkbkdhkk

2021

MRITE RONK
% INTO ALL ADDRESSES IN A 8K BANK

RO = DATA WRITTEN INTO MEMORY (SHOULD BE)

R1 = DATA READ FROM MEMORY (WAS)
R2 = VIRTUAL ADDRESS

2031

MOV
JSR

‘x

2014

RS,
PC.

Page 8 1

CHECK COMPLEMENT DATA WRITTEN DOWN
UPWARDS WORD ADDRESSING.
JSR
R4,
INITMM
;INITIALIZE THE MEMORY ADDRESS POINTERS.

012201

020001
001405
004767

ADD

004350

004467

010200

DDRESS

BEQ
30022¢: JSR
JSR

300235

003650

WORD

RS
(R2).,
RO

30023
PC,
PC.

S0B

RS,

AR KRR

JSR

PC.

BANKNO
RI1
R1

SPRNT1
SERROR

MMUP

KRR AR

;INITIALIZE THE MEMORY ADDRESS POINTERS.

:GET THE BANK NUMBER INTQ RO

'MAKE TEST COUNTER BYTE VALUE
:READ THE DATA OUT OF MEMORY
:CHECK DATA....LOW BYTE ONLY VALID

:BRANCH OVER ERRCR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
. %% ERROR ##% (GO TYPE A MESSAGE)

:ERROR TYPE CODE.

;BRANCH IF MORE IN CURRENT BLOCK
:FIND NEXT BLOCK AND LOGP TO 3§.

ARk I Rk

R R

kR bbb b

kbR bbb bbb

aks

0
w

Monday 23 Dec 85 08:45

[T
I TR TR ]

0-2 ME GAWORD MEMORY EX HACRO YOS 02
WRIE 1 'S CoMP LE MENT OF BANK

Page 8-2

SEQ 0053

WRITE
1
1 S COMPLEMENT OF BAIK
&
DATA WRITTEN INTO MEMORY (SHOULD BE)
DATA READ FROM MEMORY (WAS)
VIRTUAL ADDRESS
NOT USED
NOT
U
USED
BLOCK BOUNDARY BIT MASK.

PONVRLTLILNLILTLILIOLTLILD

awirn

OOOOOOOCOOOOOO

oMUY
UYUAYTUILAILKILIIALN
NI+ OO
~JDN BNV
O

oMo

£ 5

elelololelelelalele RN o)
Dhbd
(o "R To W, B - YFT 1,0 —OW
O~y

PNV

OOOOBN
cflc»c»cuguunsz

dkbkkhbhdbhbrhkbhkbhrdhkbhkhkbkkbbb
bbbk kb hkhhkhbdhbbhbdhbbhdhbhhd b kb

007520
03/520
007524
007530
007534
007536
007540
007542
007544

G04567

010006

004467
004767
006305
005100
110042
07750¢

003524
004640

004767

térs.
;+

007550
007554
007560
007562
007564
007566
007570
007572
067576
007602
007604
0u7604
007606

004467
004767
006305
005100
114201
120001

001405

004767
004767
000003

077511
004767

003500

000020
172160

171752
177776
171792

RO
RO,
RS,
PC.

-(R2)
24
HMDOWN

ASL

COM
MOVB
CMPB

004122

170714

;INITIALIZE THE MEMORY ADDRESS POINTERS.

BANKNO

R4,

JSR

300255:

000001

INITDN

PC.

JSR

BANKNO

-(R2)

R1
R1

30625s

JSR

508
JSR

RS,
PC.

WORD

INITON

PC.

BEQ

30024$: JSR

007160
010242

:GET THE BANK NUMBER INTO
R

HAKE TEST COUNTER BYTE VALUE

S COMPLEMENT OF BANK
#

A7 D00 M OF GANKS INTO MEMORY
:BRANCII_IF MORE IN CURRENT BLOCK.

;FIND NEXT BLOCK AND LOGP TO 1f.

SPRNTO

$ERROR

4%
MMDOWN

; INITIALIZE THE MEMORY ADDRESS POINTERS.

:GET THE BANK& INTQ RO

:MAKE TEST COUNTER BYTE VALUE

:SET 1'S COMPLEMENT OF BANK #

;READ DATA OUT OF MEMORY
;CHECK DATA.. .LOW BYTE ONLY VALID
;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING,

;«x¢ ERROR &«%% (GO TYPE A MESSAGE)

:ERROR TYPE CODE.

;BRANCH_IF MORE IN CURRENT BLGCK.

;FIND NEXT BLOCK AND LOOP TO 3.

IF PROGRAM HAS RELOCATED TO UPPER BOUNDARY,THE ADDRESSING

TESTS WILL BE EXECUTED FOR ALL BANKS AND WORST CASE NDISE TESTING

ALL OTHER BANKS WILL BE EXéRCISED FOR WORST CASE NOISE TeSTING

032767
001014
012700
016701
005021
077002
016700
042700
010067

;GO TO SCOPE ROUTINE.

CHECK THAT DATA WRITTEN CAN BE READ.

as:

007620
007622
007626
007632
2063 007634
007636
007642
007646
007652

ASL

$SCOPE

DOWNWARDS BYTE ADDRESSING.

007612

R4,

COM
MOVB
S0B
JSR

004164

004614

JSR

RS,

DOWNWARDS BYTE ADDRESSING.

1$:

JSR

WILL BE LIMITED TO BANKS 0,1

WHEN THE PROGRAM OCCUPIES BANKS 0,1.

SECT2:

gfig
HOV

MOV

“20 RO

"TStMAP,R1

CLR
S0B

(R1)+
RO,1$

BIC
MOV

2177776, R0
RO, TSTMAP

MOV

¢exro PRGMAP

P Uc IL DONE
|
0 ER_128K MAP
ONLY FIRST BANK
0 A T A TESTS
T I NUE TE STING
1

SAVTST RO

SBTTL SECTION 2:

PROGRAM RELOCATED
NO,CONTINUE TESTING ALL BANKS
AR'ALL LOCATIONS OF TEST MAP
T M MAP TABLE

WORST CASE NOISE TESTS

shbkbdbdddbhbdbhbhdhhdbdbtbbbhadbbhbddnsbbbbbbidbbbhbbbhdbdddiin

;‘

THESE TESTS WRITE MEMORY WORST CASE NOISE TEST PATTERNS THROUGHOUT

ronor
OOO
~N-~~J

Vibw

—

—X

0-2 MEGAWORD MEMORY EX MACRO Y05.02
2:
WORST CASE NOISE TESTS

Monday 23-Dec-85 08:45

Page 8-3

SEQ 0051

MEMORY AND CHECK THAT THEY CAN BE WRITTEN AND READ.

FERARRRARRARRARARERKARRARRRRRRRRRRRRRARRRRORARARARORORERERROSEL

DAARARRRRAR AR AERRARARARRRRRRRRRARRARARRARRRARERSARASARA0RER0RE

;#TEST 6

WRITE A CONSTANT INTQ MEMORY,
THE_CONSTANT IS USER SELECTABLE (DEFAULT = 0).

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

007652

NOT USED
NOT USED
BLOCK BOUNDARY BIT MASK.

[

LR A

o]
[33]

SR SR

TR TR

kkkbkkkkkkkkkkhkhhkkkk
kbbb hkkbthkdashhhbhkkhkhkkthkbkhhbhhbksdddd

004567

té16.

007654

2076 007656 016700 172102
2077 007662 004467 003270
2078 007666 010022
007670 077502
007672 004767 003472

TST6A:

1$:

JSR

MOV
JSR
MOV
S0B
JSR

$SCOPE

.CONST, RO
R4,
INITMM
RO.
(R2)+
RS.
PC.
nnup

;G0 TO SCOPE ROUTINE.

:GET USER CONSTANT
;INITIALIZE THE MEMORY ADDRESS POINTERS.
:WRITE CONSTANT INTO MEMORY.
:BRANCH IF MORE IN CURRENT BLOCK
:FIND NEXT BLGCK AND LOOP TO 1§.

JRRRRRARKRRAKKRIRRRRRRRRRRR
AR AR S ARRERR AR RARRRRRRRRARRARRARRAREA

tTEST 7
i+

007676

2085 007702
gggg 88;;?2
007712

004567

012201

2090

$SCOPE

;G0 TO SCOPE ROUTINE

MOV

(R2)o

;GET THE DATA FROM MEMORY UNDER TEST.

JSR
WORD

pC.
4

SERROR

%% ERRJR s#% (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

S0B

RS,

;BRANCH IF MORE IN CURRENT BLOCK

_.CONST, RO
R4,
INITMM

CHP

007716
001405
007720 004767 007056
007732
2088 007732

JSR

MOV
JSR

007714 020001

BEQ
30026$: JSR

010114

300274;

077511

007734 004767 003430

2091

THIS TEST SHOULD NOT BE RUN WITHOUT FIRST RUNNING TEST $TN.

ARRRRREERRKRRRRRRRRRRRARARARRRRRRRRRRRRRERRRRRRRRRRRRARARAKAKES

té17.

007630

016700 172056
004467 003244

007724 004767
007730 000004

IMPORTANT:

READ MEMORY AND COMPARE TO CONSTANT.

:GET USER CONSTANT
INITIALIZE THE MEMORY ADGRESS POINTERS.
:COMPARE THE CHECK WORD WITH THE DATA READ.

30627s
:BRANCH OVER ERROR CALL IF GOOD DATA.
PC,
SPRNT2 :SET UP VALUES FOR ERROR PRINTING.

JSR
PC
MMUP
iFIND NEXT BLOCK AND LOOP TO 1§.
SPECIAL CHECK t0 SEE IF TEST 6 IS SELECTED THRU THE SWR.

BY smpu “TOGGLING” SWOO WHEN SWO1,

;tmmmmmmmmmcmmmmmwmmmwmm

2092

2093 007740 032777 000400

171162

BIT

3094 007746
2095 007750

001416
017746

171154

BEQ
MOV

2097 007760

022726

000006

162767

000001

2096 007754

042716

2098 007764

001007

2100 007774
3%8% 010002

162767
000725

2099 007766

177740

000024

2104

BIC

BNE

171076

SUB

{71074

SUB
BR

4SWO8,
T5T10
SSWR,

aSWR

SWO2,

AND SWO8 ARE SET.

;CHECK THAT LOOP ON TEST BIT SET

-(SP)

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

(5P)-

:CHECK IF TEST 6 IN SWITCHES.

$TSTNM

¢17774o.(spg
15t10

:CLEAR NON-TEST-NUMBER SWITCHS.
:BRANCH_IF _NOT TEST 6
:RESET TEST NUM

27477-7576 $LP th RESET LOOP ADR
T5T6A
GO T0 TEST 6

tttttttttt*tttttttttttttt*ttt*ttttttttttttttttttttttttttttttttt

FATEST 10

010004

WORSE CASE NOISE (PARITY) WORD TESTING

CHECK MEMORY WITH A SERIES OF PATTERNS

chbbkhhkkbbbhkkhbkhhhkhkkhkkkkhkkhbkhkhbhkkbhhhhkhhbhkhkbk
kbbb kb hhkhhkbhkd &k

004567

007522

té110:

JSR

RS,

$SCOPE

;GO TO SCOPE ROUTINE.

|
0 2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23 Dec 85 08:45
WORSE CASE NOISE (PARITY) WORD TESTING

2112 010052
010054
2113 010060

077512
004767
003755

003126

~3N

F-Y

012400
001417
004467
010012
012201
020001
001405
004767
004767
000004

172014
006020

004767

[=l=]
0O
~Nn

016704

1s:

R4,

15T11

2%:

30028.

300295:
003310

.MPPAT, R4
r
pC
CKPMER

Page 8-4

;INITIALIZE PATTERN TABLE POINTER
;CHECK FOR NON-TRAP PARITY MEMORY ERPORS.
;GET THE DATA PATIERN.
;;BR_IF END OF TABLE.

;INITIALIZE THE MEMORY ADDRESS POINTERS.

;PUT DATA PATTERN INTO MEMORY.
;GET THE DATA FROM MEMORY UNDER TEST.
;COMPARE THE CHECK WORD WITH THE DATA READ.
;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR £RROR PRINTING.
;asx ERROR ##x (GO TYPE A MESSAGE)

;ERROR TYPE CODE.

;BRANCH _IF MORE IN CURRENT BLOCK
;FIND NEXT BLOCK AND LOOP TO 2%.
;BR BACK TO DO NEXT PATTERN

SEQ 0052

Page 9

mXx

9
EGA HORD MEMORY EX MACRO Y0S.02 Monday 23-Dec 85 08:45
A
ROTAT
BI7 THROUGH A FIELD OF ONES.
I

;#TEST 11

ROTATE A “0'

SEQ 00!
i

RLy

BIT THROUGH A FIELD OF ONES.

A#NO\NOG‘&DOgNO‘

e
et

NN NWNTO
NN - e e

P
s P

o o}

s o

QOOOOOOOOOOOO

Pt el et ot ) 8 et o

ARA ) At bt ot e et e e

e O OO -

OCOCOITODO

(MR

2124

QOO0

AV AN T,V 1,63, S 1 U7, W1, ¥}

ssdddddbdddbdhbdkdbk
i b
bbb bbtb bbb
b bbb hd R bbb bbhkb kbbbt kbbb s

2125
2126

#7111

004567
012700
004767
004467
000241
004767
016201

1¢:

JSR
JSR
CLC
JSR

PC,
R4

020001
001405

63s:

004767
004767
000005

30030s:
003226

Pt et il

s ot ol et

s e ol

QOOOCOOOODOO
POTOMNONOTOND
=2 1t s =

OCOOOOOTOOOOOO

i pn
et et et
e 8

;PUT _THE _CONTENTS OF RO IN ALL MEMORY.
;INITIALIZE THE MEMORY ADDRESS POINTERS.
;CLEAR CARRY BIT IN PSW

ROTATE

BCS
cHP

63§
RO

JSR

PC,

SPRNT?2

-2(rR2), Ri

300308

BEQ
JSR
.WORD

PC.
5

R3,
PC,

508
JSR

:SET CHECK WORD

;OET RESULT

;BRANCH IF 'C' BIT WAS SET

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

$ERROR

;x#+ ERROR ##x

1$
MMUP

;BRANCH IF MORE IN CURRENT BLOCK

(GO TYPE A MESSAGE)

;ERROR TYPE CODE.

:FIND NEXT BLOCK AND LOOP TO 1§.

skbkkkkbkhkbhhkhbkk
kb hdhkkbhkhkhhhkhkhhhkhkhkhkhhhkbkhkhhakhbkbkbhkbkdkk

NN N NN
PO O
NN
O OO -

noroMPLrONOOMNYNL

SETCON
INITMM

tTEST 12
010142

2136

;G0_TQ SCOPE ROUTINE.

AAARRARRR

2135

$SCOPE

+2{,

MOV

103402

077516
004767

JSR

MOV

004567
005000
004767
004467
000261
004767
016201
103002
020001
001405
004767
004767
000005
077516
004767

007364

112,

004306
002776

004312
177776

006576
007634

1$:

300315:
003150

KRR

kR Rk kAR

AR KRRk

k kR

JSR

RS,

$SCOPE

:G0_TQ SCOPE ROUTINE.

JSR

PC,

SETCON

;PUT_THE_CONTENTS OF RO IN ALL MEMOR)

ROTATE

8CC
CMP

63$
RO

JSR
JSR
JWORD

PC,
PC,
S

SPRNT?
$ERROR

S0B
JSR

RS.
PC,

13
MMUP

JSR
SEC
JSR

MOV
63$:

ROTATE A "1" BIT THROUGH A FIELD OF ZERQS

AR RRRR AR RR R AR

BEQ

R4,

INITMM

-2(R2). Ri

30031

;SET CHECK WORD

INiTIALIZE THE HEHORY ADDRcSS POINTERS.
iSET ' BIT IN PSW

;60_ROTATE '17 BIT
;GET RESULT

;BRANCH IF 'C' IS CLEAR
;COMPARE THE CHECK WORD WITH THE DATA READ.
:BRANCH OVER ERROR CALL IF GOOD DATA.
iSET UP_VALUES FOR ERROR PRINTING,
;«kx ERROR s4x (GO TYPE A MESSAGE)

;ERROR TYPE CODE.

;BRANCH IF MORE IN CURRENT BLOCK

;FIND NEXT BLOCK AND LO0P TO 1f.

CVMSAB

713

0 2 MEGAWORD MEMORY EA MACRO_Y05.02
WORSE CASE NOISE PARITY BYTE TESTING

214°

Monday 23-Dec 85 08:45

shbddbbkdnbkb

Page 10

kbbb bbkibb bbbt nsbkhkhkhkhbsr bR

SEQ 0054
b bn Rk

bbbk nb kb

han sk

s#TEST 13
WORSE CASE NOISE PARITY BYTE TESTING
¢+ CHECK PARITY MEMORY WITH A SERIES OF BYTE PATTERNS
T
1) FORCE WRONG PARITY IN EACH BYTE OF PARITY MEMORY
"
23 READ IT BACK WITH ACTION ENABLE SET, MAKING SURE THAT A TRAP 0

3) WRITE GOOD PARITY AND MAKE SURE NO TRAP OCCURS WHEN IT IS READ

43 MAKE SURE THE ERROR ADDRESS BITS (CSR BITS <11-5>) ARE CORRECT

i
Pk

IF MMU ENABLED AND ABOVE 128KW,CHECK BIT14 AND BITS <11-5»
ON PARITY CSR.

(NP - OO 0

WWPBO:
170670

1%:

000760

COOOOOOO

JSR

TST

BEQ
BIT
BEQ

JHP

28:

NI~ ~IO~I
I (N=~JOH*
O
= NNV
O
N
WO
NOIND

== UTTONONON)

OOt
s s

TNO

:BR IF NO PARITY MEMQRY.
:CHECK FORINHIBIT PARITY SWITCH.
:BR IF NOT SET.

TST14

000020

MOV
MOV
BIT

1$:

000704
005466
005516
000114

28
WWPB1:

3$:

QOOOCOr

@SWR

RS
#20

340

Srare

13
25106,
2%

ASL
WWPBYT: MOV

000004
000004

OOr

;GO TO SCOPE ROUTINE.

002676

11s:

.BItPT, R1
"PMEMAP ,R3
(R1)+, (R3)+

:MAKE TEST COUNTER BYTE VALUE
; TABLE COUNT

:BANK POINTER TABLE
:PARITY TABLE
:CHECK IF CURRENT BANK HAS PARITY MEMORY

MOVB

(R2),

:CHECK IF BYTE STILL CLEARED.

PC,
PC.
11

SPRNT
SERROR

RS,

3003383

OEFLG

1$
R2
SETAE
CKPMER
#114

MOVB
MOVB

#252.
RO

BIS

BAE; A(R3)+

BNE

10¢

MOV
BIS

757

R2
RS

CLRB

000001

:RETURN FOR MMUP

:FIND NEX; BLOCK
:;SET ACTION ENABLE (EVEN IF BANKO.)
;CHECK FOR ANY NON TRAP PARITY ERRORS.
:CHECK IF POINTING TO PARITY ERROR VECTOR.
:BR IF NOT AT VECTOR.
:SKIP PARITY VECTOR.
:SKIP PARITY VECTOR

171376
000252

10$:

:ZERO TO BE PUT IN ALL MEMORY.
;ROUTINE TO LOAD ALL MEMORY.
:INITIALIZE THE MEMORY ADDRESS POINTERS.

WWPB6
PC,
pC,
R2,
3$
24,
8.

30032¢: JSR
JSR
400335
JWORD

000000

SETCON
INITMM

JMP
JSR
JSR
CMP
BNE
ADD
SUB

006344
007470

171430
171366

:SKIP THIS TEST IF NO PARITY MEMORY PRESENT.

2%
RO,

BEQ

WWPB2:

;CHECK FOR ANY PARITY MEMORY.

BNE
508

ADD

105067

$SCOPE

RO
PC.
R4,

171524
171516

000167
004767
004767
020227

MPRX

CLR
JSR
JSR

004206

OOOOOCO

N -2 OO OO ~JON UL ANV =+ O O 00 ~J N LN
VUL

000100

OO0OOQOOULOOOOOOOD

s
e
s
s (s it
it
P
0

007306
173142

OO0

Q0 (L G0 00 GO 0 QOO0 OO~ ~Jd~J
QO ~J NN D NN OO0~

s P

et e

Pt Pt

s o

e ot

d ot

et et ot o

POMNLMNLNLNLFVPLNNLNL
PV RNV PV NLNL PV PNV NV NN N RN PO NO N

B By Bt A St Bt ¥ [ aX e 1Yo aY e a¥e 2Ye 2¥e Vo 2Ve Yo XU, T0,1W,] v i
&

-é?Igtttttttttttttttttttttt*l*#ttttttttttttt:ttttttttttttttittttt

rONLNLPL LRIV

RO
(R2)

MBRX,
R3
WWP, 3{R3)

(R3)

:BRANCH IF PARITY MEMORY
:CHECK TILL END OF TABLE

:IF NONE FOUND POINT R2 TO

:FIRST ADDR OF NEXT BANK.

:SUBTACT 4 FROM TEST COUNTER

:BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTINT,
;%% ERROR *#% (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

;CLEAR ODD/EVEN FLAG.

:SET UP DATA...EVEN, SETS PARITY BIT.
MOV DATA INT0O TEST LOCATION.

:GET PARITY REGISTER TABLE POINTER.
:SET WRITE WRONG PARITY.

;CHECK FOR TABLE TERMINATOR.
:BR IF MORE REGS IN TABLE.

SET WRONG PARITY IN LOCATION UNDER TEST.
MOVB

BIC

WWP, '

MOV

MBRX,

(R2) =

@(R3)+

;WRITE SAME DATA (EXCEPT PARITY) VIA DATOB.

:GET PARITY REG TABLE PQINTER.
:CLEAR WRITE WRONG PARITY.

)

wnro

b=y

SAB

[=1e]

H(
(NI

—40

Monday 23 Dec 85 08:45

MEGAWORD MEMORY EX MACRO_YO05.02

RSE CASE NOISE PARITY BYTE TESTING

2189 010424
2190 010426
2191 010430
2192 010434
2193 010436
2194 010440
2195
2196 010442

2197

005713
001374
005767
001402
105712
000433
016737

157
BNE
TST
BEQ
1518
BR

171342

171360

000114

2198

12%:

MOV

Page 10 1

SEQ 0055

(R3)
114
LSIFLG
124
(R2)
PBTRP1

;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
;SET PARITY ERROR WITH READ AND BYPASS
;PARITY TRAP AND TEST PARITY CSR.
.PBTRP, @#PARVEC;SET UP VECTOR FOR EXPECTED TRAP.

DETECT WRONG PARITY VIA DATIO: DATOB SHOULON'T EXECUTE.

VKtttttttttt#tttt*tttttitttttttttt#t**ttt*tt*tttttitttttt*tttttttt#ttttt

2199

..VK CHECK FOR KDJ11-DA (11/53) PROCESSOR

2200

(VKR

2201 010450
2202 010454

005767
001404

171324

2204 010460
2205 010464
2206

005767
000401

173260

2209 010470

016737

171336

010502

Q04767

007336

2217 010520
2218 010526
2219 010530
2220 010534
2221 010540
2222 010542
2223 010546
2224 010550
2225 010554
2226 010560
2227 010562
010566
010572
2228 010574
2229 010576
2230 010602
2231
2232
2233
2234 010604

Q16737
022626
016703
032713
001003
017301
100413
062703
020367
103765
004767
004767
000013
000572
004567
000405

171306 000114 PBTRP:

010614

000014

2203 010456

2007 010466
2208

105712

T1ST8

000114

16%¢:

MOV

30034 JSR

JSR

010610

2235 010616
010616

2236 010620

004767

010046

010200

MWORD
JSR
JMP
%«

171266
000001
000000
000044
171244

006170
007252

005344
006142

007230

2237
010622 042700 003777
22398 010626 000300

kR kR

kR Rk

kR Rk Rk KRR

ARk Ak 5 d

(R2)

{4¢:
NEGB
(R2)
;:DATIO (DATOB AND COM PARITY BIT.)
;* SHOULD HAVE TRAPPED 70 PBTRP.

_
010506 000012
2c11 010510 004767 006156
sg%% 010514 000167 000442
2216

kh ek

KDJDA
144

15T
START
BR
164
VKtttttttttitttttttttttt**ttEND OF KDJDA CHECK kkkkkkkkhkkkkhhkbhhhkkks

105412

2210 010476 004767 006254

kk bk

TST
BEQ

.PESRV, 3#PARVEC :RESET VECTOR FOR UNEXPECTED TRAPS.

PC,

SPRNTO
$ERROR

12
PC,CLRPAR
WWPB4

SET UP VALUES FOR ERROR PRINTING.

;x&* ERROR *#% (GO TYPE A MESSAGE)

ERROR TYPE CODE.
CLEAR ALL PARITY CSRS BEFORE NEXT BYTE
SKIP TRAP SERVICE.

EXPECTED PARITY MEMORY TRAPS COME HERE.

MOV
CMP
PBTRP1: MOV
2ls:
BIT
BNE
MOV
BMI
228
ADD
CMP
8LO
30035¢: JSR
JSR
WORD
BR
23
JSR
BR

_PESRV, @#PARVEC ;RESET PARITY VECTOR SOR UNEXPECTED TRAPS.
(SP)+, (SP)
RESET THE STACK POINTER AFTER TRAP.
PRO, R3
GET PARITY REG AND MAP TABLE POINTER.
“BITO (R3)
CHECK IF THIS REGISTER EXISTS.
224
BR IF IT DOESN'T EXIST.
a(R3), R1
GET THE CONTENTS.
234
BR IF ERROR FLAG SET.
#44,
R3
HOVE POINTER TO NEXT REG.
R3
.MPRX
CHECK FOR END OF TABLE.
214
BR IF MORE REGISTERS.
PC,
SPRNTO SET UP VALUES FOR ERROR PRINTING.
13
WWPB4
RS
2l

PARMAT

30036%: JSR

PC,

.
SPRNTP

JSR

244

JWORD

MOV

BIC
SWAB

PC,

PC.

RO -(SP)

$ERROR

“3777
RO
RO

;#x% ERROR #*% (GO TYPE A MESSAGE)

:ERRGR TYPE CODE.
EXIT AFTER ERROR.
CHECK FOR MAP OF THIS REGISTER
BRANCH IF THIS PARITY REGISTER
CONTROLS THIS BANK,
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.

3 CASE NOISE PARITY BYTE TESTING

nororON
rorrON
[~Y¢Te2e
NV
O

011020
011022
011026
011030
011034
011040
011042
011046
011050
011034
011056
011062

011066
011070
011072

000200

100001

000042
170604

170610

170600

004767
004767
000015

006034
007122

005767

167606

100034
022737
101030

010046
052773
213700
042700
000300
006300
052700
017301
042701
020001
001405
004767
004767
000015

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

000016
000757
111204

25:

040000

000000

000000
005670
006756

381715+8170,R0
RESRVD . RO
RESRVD. R1

CcHP

30037¢: JSR

3063as

JSR

PC,

PC.

SPRNTP

SERROR

JWORD

757
BPL
CMP
BHI
MOV

BIS

MOV
BIC
SWAB
ASL
)
MOV

BIC
CMP
BEQ

30039$: JSR

JSR

300405:

000001

42(R3), PESRVD

BEQ

140001
000000
030032

170764

MOV

8IC
BIC

172344
007777

000044

25%
£500,R0

BIS

300385:

010000

000000

BEQ
ADD

;CHECK FOR PAR3 REF. ADDRESSING

;BR IF R2 IS ADDRESSING PAR2
;SET
UP EXPECTED WITH PAR3
;SET ERROR AND AE BIT IN CHECK WORD.
;:GET APPROPIATE MASK.
;CLEAR PARITY REG BITS RESERVED FOR FUTURE.
;CLEAR PARITY REG BITS RESERVED FOR FUTURE.

;NOTE: THE ABOVE INSTRUCTION (2 WORDS) CAN BE NOP'ED FOR UNMIXED MEMORY TYPES.

172344

005740
007026

2KIPAR2,RO

58IT13, R2

;CHECK FOR MEM MGMT.
:BR IF NO MEM MGMT.
;CLEAR BANK BITS
;ADD MEM MGMT OFFSET.

100$:

26$:

JWORD

MOV

CLR

MOV

ADD
CMP
BHI

8IT
BNE
MOV
8PL
30041$: JSR
JSR
WORD
BR
WWPB3:
MOVB

;COMPARE THE CHECK WORD WITH THE DATA REARD.
;BRANCH OVER ERROR CALL IF GOOD DATA.

SET UP VALUES FOR ERROR PRINTING.

%k ERROR %% (GO TYPE A MESSAGE)

;ERROR TYPE CODE.

CHECK FOR 22 BIT ADDRESSING

MMAVA
100$

210000, 34K IPAR2
1oos
-(SP)

IF 22 BIT ADDRBNOT ENABLED

CHECK I

531114 3(R3)

e we we wo
s

011004
011006
011012
011016
011020

052700

ADD

BIT

020000

25$
2177600, R0

~3oo3é Rl
3064os

128KMW

2S%EES THAN 128KW
ENABLE BITS 18 21

OF PARITY CSR
F4KIPARZ
,RO
;SE
D FOR PARITY CSR
i8I
#7777.R0
RO
i8I
RO
;A1
‘BITIS‘BIT14'AE.
Gt
3(R3
i CL
TH THE DATA RERD.
R1
i 0 PARE THE C
F GOOD DATA.
BRANCH OVER E
R PRINTING,
PC,
SPRNTP
SET UP VALUES
R MESSAGE)
PC.
$SERROR ;hkk ERROR ##%% (
ERROR TYPE CODE.
15
IN

TDws me we

2260
2261 010752
2262 010756
2263 010762
2264 010764
2265 010766
2266 010772
2267 010776
2268 011002

177600
172344

BE
BIC

RO
RO
MMAVA

SEQ 0056

(SP)+.R0

;POP STACK_INTO RO

g 3)

~(sp)

"44 R3
.MPRX
uu¢33
#8170,
264
3(R3),
264
pC.
PC.
16
26
(R2),

2256 010732
2257 010740
2258 010742
2259 010744

167676

Page 10-2

nnmo»mcomo—q

010710
010712
010716
010722
010724
2254 010724
2255 010730

g
883888 2

2247 010660
2248 010664
2249 010670
2250 010676
2251 010702
2252
2253 010706

> N
Py

2242 010640
2243 010642
2244 010646
2245 010652
2246 010656

U= RO N
~ By~

2240 010632
2241 010634

ASL
ASL
15T

006300

SSIRESS

2239 010630

2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279

Monday 23-Dec 85 08:45

t ac es

wny

[=1s]
Po

MEGAWORD MEMORY EX MACRO_Y05.02

(R3)

Rl
SPRNTP
$ERROR

CLEAR REG INCLUDING ACTION ENABLE.
i ;PUSH R3 ON_STACK

UPDATE POINTER TO_NEXT PARITY REG + MAP.
:CHECK FOREND OF TABLE,
;BR_IF END OF TABLE REACHED.
iCHECK IF NEXT REG EXISTS.
:BR_IF THIS PARITY REG DOESN'T EXIST.
:SAVE_AND CHECK FOR ERROR FLAG.
:BR_IF NO ERROR FLAG.
:SET UP VALUES FOR ERROR PRINTING,
ix%t ERROR #%* (GO TYPE A MESSAGE)

:ERROR_TYPE CODE.
:BR_AFTER ERROR,
R4
:GET THE DATA FOR CHECKING.
.+ READI NG THE DATA VIA DATI T0 CHECK 1T _SHOULD CAUSE PARITY ERROR, BUT
:%

ACTI ON ENABLE IS NJT SET IN CONTROLLING REG, SO NO TRAP SHOULD OCCULR.

CVMSAB
O OO OOCD O(o Lo
o}
N+
O WV -INNS

ASIASIASI
NI ST, U1, Y, Y. ¥
n UL NLNL IOV

713

0-2 MEGAWORD MEMORY EX MACRO_Y05.02
WORSE CASE NOISE PARITY BYTE TESTING

011074

111212

011076

012603

017301
046701

000000
170376

011110
011114

042700
020001

000001

011120
011124
8%%%%2

004767
004767
000015

005626
006714

012773

000001

011116

PLRLMPOLMOLIOMNOPOND
N N PO D
OO0 OOOOOOOWY
OO0 ~ NN B NV
O O

001405

011140

010401

011150

004767

011142
011144
011146

OOV

;

011100
011104

011132

CONON Cnl NN CN G

;NOTE:

011154
011160
011162
011162

011164

012600
120001
001405

004767
000017

006664

105712

012700

011176
011200
011204
011206
011210
011212
011216
011222

100002
000167
005202
005305
001402
000167
004767
004767

105167

MOVB

;RESTORE RIGHT PARITY

WHICH DO ONLY DATOB T DESTINATION OF MOVB_INSTRUCTIONS
MOV
(SP)+,R3
; ;POP STACK INTO R3

MOV
BIC

a(R3),
Rl
RESRVD, R1

;READ THE PARITY REGISTER TO CHECK IT AGAIN.
;CLEAR PARITY REG BITS RESERVED FOR FUTURE.

BIC
cHp

#AE,
RO

RO
R1

;CLEAR THE ACT_ON ENABLE BIT IN TEST DATA.
;COMPARE THE CHECK WORD WITH THE DATA READ.

PC,
PC,
15

SPRNTP
$ERROR

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

d(R3)

BEQ

30042%: JSR
JSR
20043
.WORD

000000

MOV

30043

;CLEAR ALL BUT ACTION ENABLE.

30044s: JSR

PC,

SPRNTO

(R2)

;RESTORE DATA.

MOV

#2353

;SET 0DD PARITY DATA.

BPL
JMP
INC
DEC
BEQ
JMP
JSR
JSR

27
WWPB2
R2
RS
WWPB6
WWPB1
PC,
PC,

MOV
CMPB
BEQ
JSR
.WORD

1578
COMB

278:
WWPB5:

WWPB6:

;BRANCH OVER ERROR CALL IF GOOD DATA.

MOV

170562

177104
002146
004512

(R2)

;NOTE: THE ABOVE INSTRUCTION (2 WORDS) CAN BE _NOP'ED FOR UNMIXED MEMORY TYPES.

000253
177162

(R2)

Page 10-3

THE ABOVE INSTRUCTION CAN BE NOP'ED FOR PROCESSORS

300455:
WWPB4: MOVB

110012

011166

011172

005602

Monday 23-Dec 85 08:45

(SP)+,RO
RO,
R1
30045$
PC,
17

(R2)

OEFLG

$ERROR

MMUP
MAMF

;GET DATA READ FROM MEMORY FOR TESTING.

: .POP STACK INTO RO
:CHECK THE DATA.,
;BRANCH OVER ERROR CALL IF GOOL DATA.
;SET UP VALUES FOR ERROR PRINTING.

;%% ERROR *xx (GO TYPE A MESSASE)
;ERROR TYPE CODE.

;D0_A DATI TO BE SURE RIGHT PARITY.
;CHECK IF DONE _BOTH ODD AND EVEN PARITY.

;BR IF DONE BOTH EVEN AND 0DD.
;LOOP BACK AND DO ODD(PARITY BIT CLR).
;MOVE POINTER TQ NEXT MEMORY BYTE.
;CHECK FOR END OF BLOCK
;BR_IF END OF BLOCK FOUND.
;LO0P BACK TO TEST NEXT BYTE.
;FIND NEXT BLOCK AND LOOP TO WWPBYT
;60 RESET PARITY REGISTERS.

SEQ 0057

—

AWORD MEMORY EX MACRO Y05.02

ATA

HondaE 23-Dec 85 08:45

Page 11

TESTING THRU PROGRAM CODE RELOCATION.

SEQ 0052

RANDOM DATA

004567
010703

006300

JSR
RANTST: MOV

RS,
PC

$SCOPC
R3

;G0 TO SCOPE RQUTINE.
:GET CURRENT PROGRAM COUNTER.

004467
010246
010346
010567

001712

032703
001002
162703
077507

007777

JSR
MOV
MOV
MOV

R4,
R2.
R3.
RS

INITMM
(5P)
-(SP)
TEMP1

INITIALIZE THE MEMORY ADDRESS POINTERS.
:SAVE MEMORY POINTER.
:SAVE "DATA" POINTER.
:SAVE ADDRESS COUNTER

170516

BIT
BNE
SUB
508

87717, R3
34
210000, R3
R5
28

010000

MOV
MOV
MOV
MOV

(SP)+,
TEMP1,
(R3)+.
(R2)+,

170470

MOV

HOV

4s:

020001

CMP

004767
004767
000020

005464
006522

032703
001002
162703

007777

30046$: JSR
JSR
200075
JWORD

002024

27977,

(R$)+.

TESTING THRU PROGRAM CODE RELOCATION.

(R2)+

(5P)+,

20047

PC,
PC.
20

R2
RS
RO
R1
SPRNT2
SERROR

:POINT 70O BEGINNING OF CURRENT 2K BLOCK.

:MOV CODE INTO TEST MEMORY.

:CHECK FOR END OF "DATA TABLE'
:BRANCH IF MORE
:RESET POINTER TO START OF “RANDOM DATA'
:IF NOT END OF BLOCK,BRANCH TO 2%

:RESET “DATA” POINTER.

:RESET MEMORY POINTER.
:RESET ADDRESS COUNTER
:GET S/B DATA.
:GET THE DATA FROM MEMORY UNDER TEST.

:COMPARE THE ChECK WORD WITH THE DATA READ.

:BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
;%% ERROR *#* (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

BIT
BNE
SUB

#7777, R3
54
210000, R3

;CHECK FOR END OF “DATA TABLE"
:BR IF MORE.
:RESET POINTER TO TOP OF “DATA TABLE".

508
JSR

RS,
PC.

;BRANCH IF MORE IN CURRENT BLOCK
:FIND NEXT BLOCK AND LOGP 70 1§.

.SBTTL SECTION 3:

44
MMUP

INSTRUCTION EXECUTION TESTS.

HH sk ke ok ak ok ok sk ok ok ko ok ok ok ok ok ok ook sk ok koo ok s o e ok ok ko o ok o e

R
R

THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY:
MEMORY
LOCATION

INSTRUCTION
PLACED THERE

1ST PASS /
HRU TEST /

40000
40002

010412
000205

000205
000205

2ND PASS /7

40002

010412

000205

—

dkok ko k

EXECUTES THE INSTRUCTION ‘MOV R4,(R2)' THROUGHOUT MEMORY.
AN 'RTS RS*_(CODE_205) IS PLACED AFTER THE ‘MOV' INSTRUCTION TO RETURN
CONTROL TO THE MAIN PROGRAM_FOR INSTRUCTION EXECUTION CHECKOUT.

THRU TEST /

40004

000205

CONTENTS OF MEMORY LOCATION
AFTER INSTRUCTION EXECUTION

000205

ak ok ok ok o ok ok ok ok ok ok ok ok ok ke ko

EXECUTE DATI, DATO THRU MEMORY,

W
®.

:ATEST 15

077517
004767

010000

BEQ

001405

012602
016705
012300
012201

OO
B BOONNLOOD

#W(N(NWI‘\)'\)I\))—‘D—'D—'O%

012603

13:

012322

BIC

= Pt et pt e P

s sP

042703 007777

it ot

bt
etmtedetziziziizlelolelalololalolololotolololotole
Yo o)
s et et et et s et s el o
s s Pt il o
s

:4TEST 14

}é?;zttttttittttttttttttttttitt#ttttttttttttttttttttttttttttttttt

cowIrL

N
NS

NWNMO
N
O WO

CANONNIN

ronror

rorororo

NN
NN NN

nonorPLrOROMNOND P

s ot P

= OO T0 ~ IO LN £ (NN

POV PLRLNL NNV NV MLV NLFO VMO PN

;;tttt#t#tttttt#ttttttttitttttttttttttttttt‘tttttttttttttttttttti

0 ATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE).
D ATA READ FROM MEMORY (WAS).
A DDRESS OF IUT/DATA.
I NSTRUCTION UNDER TEST (IUT).

CvMSAB

715

Q-2 MEGAWORD MEMORY EX MACRO Y05.02

Monday 23-Dec-85 08:45

EXECUTE DATI, DATO THRU MEMORY.

.«
&+

011344

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

cokbkbhkbkkkkkbkkkkkkkkkhkkkkkhkhkkbbhkkhhkkhhhhkkkhkhkkhkkbhkkbhkkbkd
sk

011344

004567

006162

2360 011354
2361 011360
2362 011362
2363 011366

012704
010400
004467
005305

000205

2359 011350 012703

2364 011370
2365 011372
2365 011374

(10322
0.0412
004542

2368 011200

020001

011404
011410
011414
011416
2369 011416
2370 011420
011422

004767
004767
000021

010412

001570

001405

010322
077514
004767

47115
DIDO:
1%
2¢:

2367 011376 012201
011402

Page 11 1

JSR

$SCOPE

;G0 TO SCOPE ROUTINE.

MOV
MOV
JSR
DEC

£205,
R4,
R4 .
RS

R4
RO
INITMM

:GET 'RTS RS’
:SET UP 5/B DATA AFTER EXECUTION.
INITIALIZE THE MEMORY ADDRESS POINTERS.
:D0 ALL ADDRESSES -1

(R)+,

MOV

MOV
MOV
JSR

MOV
CMP

005366
006330

001742

8EQ

30048$: JSR
JSR
JWORD
30049$;
MOV
S0B
JSR

%010412,R3

R3,
R4.
RS
RO

30049¢

(R2)+
(R2)
-(R2)

PC,
PC.
21

SPRNT3
SERROR

R3.
RS,
PC.

(R2)+
24
MMUP

:GET "MOV R4,(R2)" INSTRUCTION (IUT).

:PUT IUT INTO FIRST LOC OF BLOCK.
:PUT RIS RS’ FOLLOWING IUT.
:GO EXECUTE THE IUT.

:GET THE DATA FROM THE MEM ADR UNDER TEST.

:COMPARE THE CHECK WORD WITH THE DATA RERD.

:BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING.
;4% ERROR *#% (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

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

SEQ 0059

MEMORY

X MACRO Y05.02 Monday 23-Dec 85 08:45
B8 ( OW BYTE) THRU MEMORY.

Page 12

SEQ 006¢

kb kkkkkbkk kb bkbhkkkkhkhkkhbkhkkkh
bk dikhhhbrbhhb kbbb bhbbhhkan

********b****’-i—*‘-l****

tTEST 16

EXECJTE DATI, DATOB (LOW BYTE) THRU MEMORY.

EXECUTES THE INSTRUCTION 'HMOVB R4 (R2)‘ THROUGHOUT MEMORY

AN TRTS RS’ (CODE_205) IS PLACED AFTER THE 'MOVB' INSTRUCTION TO RETURN

CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT.
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY:
MEMORY
LOCATION

INSTRUCTION
PLACED THERE

CONTENTS OF MEMORY LOCATION
RFTER INSTRUCTION EXECUTION

PASS /
TEST /7

40000
40002

110412
000205

110605
000205

PASS /7
TEST 7/

40002
40004

110412
000205

110605
000205

ETC., ETC., ETC.
DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE).
DATA READ FROM MEMORY (WAS).
ADDRESS OF IUT/DATA.
INSTRUCTION UNDER TEST (IUT).
RTS RS (CODE 203).
BLOCK BOUNDARY BIT MASK.

oli
o
LN
B NN
1A Te 1o Te N a8 T0 )

[ep]
o

ardur-ors et ardurdordordud
St S

—

OQOOOOOOODOOOOOOOOOOOOO

2407
2408

[arg e ertarurtert

roOPLMPONNONLMNOLTLNOLN
55 52D 55 D NN

ODOOOOOVOO
NP
NN
O WO ~J

hkkkkkkkkkkkhhkkkkkkhkkkkkkkkkhkkhkkhkkkkkhhkkbhkhkkkkhkkkdhkkkkkk

1426

004567
012703
012704
012700
004467
005305
010322
010412
004542
012201
020001
001405
004767
004767
000021
010322
0775.4
004767

006100
110412

000205
110605

001504

TéTis

DIDBL:

14:

2s:

JSR
MOV
MOV

110412 R3

$SCOPE

:60_T0 SCOPE ROUTINE.

¥505.

'Ra

R4,
RS

INITMM

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

R4,
RS

(R?
-(R2)

£110605,
RO

R3,

(Rag’

(R2)+,

RI1

005302
006344

300504

30051¢:
001656

300514

PC.
PC.
21

SPRNT3
SERROR

R3,
R5.
L.

(R2)+
24
MMUP

:GET ‘MOVB gd,CR2)* INSTRUCTION (IUT).
;INITIALIZE THE MEMORY ADDRESS POINTERS.
;D0 ALL ADDRESSES -1
;PUT IUT INTO FIRST LOC OF BLOCK.
;PUT *'RTS RS' FOLLOWING IUT.

;GO0 EXECUTE THE IUT.
;GET THE DATA FROM THE MEM ADR UNDER TEST.
;COMPARE THE CHECK WORD WITH THE DATA READ.
;BRANCH OVER ERROR CALL IF GOOD DATA.

SET UP VALUES FOR ERROR PRINTING,

;4% ERROR *%x (GO TYPE A MESSAGE)

;ERROR TYPE CODE.

;PUT THE TUT INTQ THE NEXT LOCATION.

iBRANCH IF MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP T0 1f%.

—

——

\_/_J

CVMSAB
117

0-2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 08:45
EXECUTE DATI, CAT0B (HIGH BYTE) THRU MEMORY.

2434

Page 13

SEQ 0061

jibkbkkbbkkbkbbhbh
bbbk bhbb bk rbhhkhkbhbhbkhdkbhhbhbhhbhhbhkhnhhkkkdhn

;#TEST 17

i
;%

;%
;#
s &

CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKQUT.
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY:
MEMORY

INSTRUCTION

LOCATION

DATOB8 (HIGH BYTE) THRU MEMORY.

EXECUTES THE INSTRUCTION ‘MOVB R3,-(R2)! THROUGHOUT MEMORY.
AN 'RTS RS (CODE 205) IS PLACED AFTER THE "MOVB' INSTRUCTION TO RETURN

EXECUTE DATI,

PLACED THERE

AFTER INSTRUCTION EXECUTION

_1ST PASS /

40000
40002

000205

_2ND PASS /
THRU TEST /

40002
40004

110342
000205

161342
000205

THRU TEST /7

110342

CONTENTS OF MEMORY LOCATION

161342

;#
;#

i ¥

i &

;%
i#
;%

i
;*

ge7C., ETC., ETC

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

R3 = INSTRUCTION UNDER TEST (IUT).
R4 = RTS RS (CODE 205).

RS = BLOCK BOUNDARY BIT MASK.

BNV OBONSEMNLOBIrOONNLIGTTUNUN

2446
2447

ohounonuauuoiuaunonaoaunonuoachonoiLnununun
~d =~ ~d I =S
NN
2 B (NN
b= e s

244
2443
2445

[arberferfertufurtusdedu-adurdordertadurtortorderdedutud
et et s e s et s
e ks okt s e i
s e e P
s et i

2435

OO OOSOOOOCOOOOOOOOOOOOOD

Ts?;;*ttt*t**#*****t#t#t**t*#ttt**ttttti#ttiitt#ttttti**ttttttitt

004567
012703
012704
012700
004467
005305
010322
010412
004562
005302
012201
020001
001405
004767
004767
000021

010322
077516
004767

006014
11034
000205
161342
001420

177776

JSR

“110342 R3

$SCOPE

;GO _TO SCOPE ROUTINE.

#205

;GET 'RTS RS!

JSR
DEC
MOV
MOV

R4,
RS
R3,
R4,

INITMM

INITIALIZE THE MEMORY ADORESS POINTERS.
:D0_ALL ADDRESSES -1
:PUT IUT INTO FIRST LOC OF BLOCK.
:PUT "RTS RS FOLLONING IUT.

DEC

DIDBH: MOV
MOV

MOV

1§:

2%:

JSR

MOV

005212
006254

RS,

(R2)+,

CMP
BEQ
30052¢: JSR

RO
30053
PC,

300538

JSR

LWORD

MOV
001566

“161342 RO

S08
JSR

PC,
R3,

RS,
PC,

(R2;o
(R2

-2(R2)

R1
SPRNT3

$SERROR

(R2)+

28
MMUP

;GET 'HOVB R3,-(R2)' INSTRUCTION (IUT).
:SET _UP 5/B DATA AFTER EXECUTION.

;G0 EXECUTE THE IUT

:ADJUST R2 T POINT TO MAUT,

:GET_THE DATA FROM THE MEM ADR UNDER TEST.

:COMPARE THE CHECK WORD WITH THE DATA READ.
;:BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING.
;#~% ERROR %% (GO TYPE A MESSAGE)

:ERROR TYPE CODE.

;PUT THE IUT INTO THE NEXT LOCATION.

:BRANCH IF MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP 70 15.

———

—————

—

4 ‘:)

CVMSA3
120

0_2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec 85 08:45
EXECUTE DATI, DATIO, DATO THRU MEMORY.

2475

sokbkbdthkb bbbk khkdbkkhkb kbbb

;4TEST 20

;%
;#
;%
K

SEQ 0062

nbhidhbb bbb bbb b bbb

EXECUTE DATI, DATIOQ,

AN 'RTS RS’ (CODE 205) IS PLACED AFTER THE 'NEG' INSTRUCTION TO RETURN
CONTROL TO THE MAIN PROGRAM_FOR INSTRUCTION EXECUTION CHECKOUT.
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY:
MEMORY
LOCATION

INSTRUCTION
PLACED THERE

CONTENTS OF MEMORY LOCATION
AFTER INSTRUCTION EXECUTION

i+
;%

_1ST PASS /
THRU TEST /

40000
40002

005412
000205

172366
000205

;%
;%

_2ND PASS 7/
THRU TEST 7

40002
40004

005412
000205

172366
000205

i &

b dhbbhbdas

DATQ THRU MEMORY.

EXECUTES THE INSTRUCTION 'NEG (R2)* THROUGHOUT MEMORY.

;&
ik

; ¥

Page 14

ETC., ETC., ETC.

;#
;%*
;#

RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHGULD BE).
Rl = DATA READ FPOM MEMORY (WAS).
R2 = ADDRESS OF IUT/DATA.

;¥
;%
;%

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

%é?ssii*ttttttttiiti#*tttt#**t*i#tttit*ittt*tttttttt#tttttttttttt

s e
. i

Lo al=alealoal=a3e[eaXeaTe e
Ve Yo o e Yo 1Ta V0 20 )
o AN £ 52 B
N CNINO N
s =
n OO SBrOORNLBOONONN

467

005724

005412
000205
17236€

001330

s |
it P

e o
s e

567

703
704
700

DIPDO-

$SCOPE

;GO_TO SCOPE ROUTINE.

MOV

%205

;GET 'RTS RS’

JSR
DEC
MOV
MOV
JSR

R4,
RS
R3,
R4,
RS

INITMM

CMP

MOV

2s:

s
o

e [
s

MOV

BEQ

i
e
P
s (et st
s e ot Pt et e
1
Pt

O WO~
M
WNE

OOCOOOOOOOOOOOOOOOO

011602
011602
2476 011606
2417

300545: JSR
JSR
300555
WORD

000021

010322
077514
004767

MOV

001502

S08
JSR

#005412,R3

#172%66,R0

(R3)+,

300553

PC,
PC,
21
R3,

RS,
PC,

;GET "NEG (R2)* INSTRUCTION (IUT).
;SET UP S/B DATA AFTER EXECUTION.

€R2;¢
R2
-(R2)

INITIALIZE THE MEMORY ADDRESS POINTERS.
;00 _ALL_ADDRESSES -1
:PUT TUT INTO FIRST LOC OF BLOCK.
;PUT RTS RS’ FOLLOWING IUT.
;GO _EXECUTE THE IUT,

;COMPARE THE CHECK WORD WITH THE DATA READ.

RI1

SPRNT3
$ERROR
(R2)+

2%
MMUP

;GET THE DATA FROM THE MEM ADR UNDER TEST.

;BRANCH OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING,
;%#x ERROR #%# (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

;PUT THE TUT INTQ THE NEXT LOCATION.

;BRANCH IF MORE IN CURRENT BLOCK.
;FIND NEXT BLOCK AND LOGP 1O 1%.

CVMSAB

121

0 2 MEGAWORD MEMORY EX MACRO_Y05.02

Monday 23 Dec 85 08:45

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

2513

Page 15

SEQ 0063

s ReRAR Rk bk kiR

b b RA Rk Rk Rk bbb bkt bk

knt bbb bbb b bbb bbb bb bt bbbt bbbt

4TEST 21

EXECUTE DATI, DATI,

DATIO,

DATOB (LOW BYTE) THRU MEMORY.

¢ EXECUTES THE INSTRUCTION BICB (R2)+,-(R2)* THROUGHOUT MEMORY.
i«
:+
4

AN 'RTS RS’ (CODE 205) IS PLACED AFYER THE BICB INSTRUCTION TO RETURN
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHFCKOUT.
TPIS IS AN EXAMPLE OF WHAT THIS TEST 0OFS IN RELATION TO MEMORY:

MEMORY

INSTRUCTION

LOCATION

PLACED THERE

CONTENTS OF MEMORY LOCATION

AFTER INSTRUCTION EXECUTION

i%
:+

_1ST PASS /
THRU TEST /

40000
40002

142242
000205

142000
000205

i«
;%

2ND PASS /
THRU TEST /

40002
40004

142242
000205

142000
000205

‘h

ETC., ETC., ETC.

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

‘4

R1 = DATA READ FROM MEMORY (WAS).

R4 = RTS RS (CODE 205).

.+
;%

R2 = ADDRESS OF IUT/DATA.
R3 = INSTRUCTION UNDER TEST (IUT).

RS = BLOCK BOUNDARY BIT MASK.

B I
B R O N
Y
N L e N T
N MY
Y e Y e
5 5B B NN
NDEFS 22 OO ~J~JO N
DB OMNLOBORNEBINVONBIOTONTLON [« )]

s
pd
b

s |
e

e
b

s o
P

012700
004467
005305

001244

012704

000205
142000

DPOBL:

JSR
MOV
MOV

RS,
$SCOPE
8142242 ,R3
3205,
R4

;G0 TO SCOPE ROUTINE,
:GET BICB (R2)+,-(R2)' INSTRUCTION (IUT).
:GET 'RTS RS’

JSR
DEC
MOV
MOV
JSR

R4,
RS
R3,
R4,
RS

(Reg.
(R
-(R2)

:INITIALIZE THE MEMORY ADDRESS POINTERS.
:D0 ALL ADDRESSES -1
:PUT TUT INTO FIRST LOC GF BLOCK.
:PUT "RTS RS’ FOLLOWING IUT.
;GO EXECUTE THE IUT.

CMP

:COMPARE THE CHECK WORD WITH THE DATA READ.

SPRNT3
$ERROR

;SET UP VALUES FOR ERROR PRINTING,
:##¢ ERROR ##% (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

MOV
1$:

e e Pt ot e P
s

it ot (o

s
s

e P
et

005640
142242

MOV
004767

000021

005042
006104

BEQ

30056$: JSR
JSR
200575
WORD

#142000,R0

(R&)+,

300573

PC,
pC.
21

INITMM

:SET UP S/B DATA AFTER EXECUTION.

:GET THE DATA FROM THE MEM ADR UNDER TEST.

:BRANCH OVER ERROR CALL IF GOOD DATA.

e
et

ot o
S

rOPLILNLPOML
LIV NLND
LI
LN
ALN
POTORLPO
2 s pa et WO+ OO0 LN

004567
012703

QOO ODOOOOTOOOOOOOD

-é?sztttttttttttttt##ttttttttttttttitttttttittttttttttttttttttttt

010322
077514

004767

MOV
001416

508
JSR

R3,

RS,
PC.

(R2)+

28
MMUP

;PUT THE IUT INTO THE NEXT LOCATION.

:BRANCH IF MORE IN CUKRENT BLOCK.
:FIND NEXT SLOCK AND LOOP TO 1f.

CVMSAB
122

0-2 MEGAWORD MEMORY EX MACRO_YO05.02 Honda¥ 23-Dec-85 08:45
EXECUTE OATI, DATI, DATIO, DATOB (HIGH BYTE) THRU MEMORY.

2951

Page 16

ibkhddtddb bbbk hb bbbk bhat bbbk h bbb

;#TEST 22

;#
i«
;#
;#
]

EXECUTE DATI,

DATI,

bd bbbt bbbt bbb bbdbbbbsb it

DATIO,

DATOB (HIGH BYTE) THRU MEMORY.

EXECUTES THE INSTRUCTION ‘BISB (R2)+,{R2)’ THROUGHOUT MEMORY.
AN 'RTS RS' (CODE_205) IS PLACED AFTER THE 'BISB' INSTRUCTION TO RETURN
CONTROL TO THE MAIN PROGRAM_FOR INSTRUCTION EXECUTION CHECKQUT.
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY:

MEMORY

INSTRUCTION

LOCATION

PLACED THERE

;%
;#

_1ST PASS /
THRU TEST /

40000
40002

152212
000205

157212
000205

i+
;+

_2ND PASS /
THRU TEST /7

40002
40004

152212
000205

157212
000205

1 &

;>
i+
;%
i+

i+
i#

011752

005554

012704

000205

2855 011772

004467

001160

2557 012000
2558 012002
2359 012004
2560 010006
2561 012010
2562 012012

010322
010412
004542
005302
012201
020001

012016
012022
8%2858

004767
004767
000¢ °1

2553 011762

012703

2554 011766 012700

2556 011776 005305

012014
c

2563 012030
2564 012032
012034

ETC., ETC., ETC.

"0
R1
R2
R3

=
=
=
=

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

R4 = RTS RS (CODE 205).

RS = BLOCK BOUNDARY BIT MASK.

sokbbkkkkkkkdkkihkkkbkhkbkhhdhhkbkhbhhhhkbdhbhktkhbkhkkdhhkdhkbkddhsdks

004567

2552 011756

CONTENTS OF MEMORY LOCATION

RFTER INSTRUCTION EXECUTION

001405

010322
077515
004767

152212

§122:

DPDBH:

157212

1$:

$SCOPE

;GO TO SCOPE ROUTINE,

MOV

2535,

'R4

:GET 'RTS RS’

JSR

R4,

INITMM

MOV
MOV
JSR
DEC
MOV
CMP

R3,
R4.
RS.
RZ
(R2)+,
RO

gnzg.
R?
-(R2)

DEC

BEQ

30058$: JSR
JSR
200595
WORD
:

001330

MOV
2%

004754
006016

JSR

MOV

MOV
S0B
JSR

4150212 R3

2157512.R0

300594

R1
R1

PC,
PC.
21

SPRNT3
SERROR

R3,
RS,
PC.

(R2)+
2%
MMUP

:GET 'BISB (R2)+,(R2)

INSTRUCTION (IUT).

:SET UP S/B DATA AFTER EXECUTION.

;INITIALIZE THE MEMORY ADDRESS POINTERS.

;DO ALL ADDRESSES -

:PUT IUT INTO FIRST LOC OF BLOCK.
:PUT "RTS RS’ FOLLOWING IUT.
:60 EXECUTE THE IUT.
:RESET R2 TO POINT 10 IUT.
:GET THE DATA FROM THE MEM ADR UNDER TEST.
:COMPARE THE CHECK WORD WITH THE DATA READ.

:BRANCH OVER ERROR CALL IF GOOD DATA.
:SET UP VALUES FOR ERROR PRINTING,
;4% ERROR #%% (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

;PUT THE IUT INTO THE NEXT LOCATION.
:BRANCH IF MORE IN CURRENT BLOCK.
:FIND NEXT BLOCK AND LOOP 7O 1f.

CVMSAB
0-2 MEGAWORD MEMORY EX MACRO Y05.02
SECTION 4:MOS TESTS

Monday 23-Dec-85 08:45

Page 17

SEQ 0065

.SBTTL SECTION 4:MOS TESTS

2566
2590

S ARRAERARARRRRRRRRRRR
R AR AR KRR RR AR AR RR
AR R R R AR
bR bbb bR u s

;#TEST 23

MARCHING 1'S AND C'S.

;¢ THIS TEST IS DESIGNED TQ STRESS MOS MEMORIES.

;% STARTING AT THE BOTTOM ADDRFSS _AND ADDRESSING UPWARDS A BK BANK IS
;% WRITTEN WITH 000377 .THEN STARTING Ai THE TOP ADDRESS OF THE BANK THE
;% 000377 IS READ,THE BYTES ARt SWAPPED TO 177400 AND THE LOCATION

;x REREAD TO CONFIRM THE WRITE.THIS IS REPEATED FOR EVERY LOCATION

;%
;+
;%
;%

ADDRESSED DOWNWARD UNTIL THC BQ"TOM IS REACHED. STARTING AT THE
BOTTOM EACH LOCATION IS READ FGR 177400,THE BYTES ARE SWAPPED TO
000377 AND REREAD TO CONFIRM THE WRITE UNTIL THE TOP ADDRESS OF THE
BANK IS REACHED. AGAIN STARTING AT _THE BOTTOM EACH LOCATION IS READ

;% FOR 000377,

THE BYTES SWAPPED TQ 177400 AND THE LOCATION REREAD TO

;% CONFIRM THE WRITE. LASTLY STARTING FROM THE TOP AND ADDRESSING DOWN;% WARD EACH LOCATION IS READ,THE BYTES SWAPPED TO 000377 AND THE

:x LOCATION IS REREAD TO CONFIRM THE WRITE. THIS IS REPEATED FOR EVERY
;%8K BANK UNDER TEST.
i ¥

ik
&

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

R3=TIMES THROUGH COUNTFR

R4=NOT USED

R5=BLOCK BOUNDARY BIT MASK.

}éfrsgittt*ttt#t#tt*ttitttttttttttttttt#ttttttt*tt##ttt##tttttt*tt

012040

012040
2591 012044
2592 012050
2593 012054
2594 012060
2595 012062
259 012066
2597 012070
2598 012072
2599 012076

004567
004467
010567
010267
005003
012700
010022
077502
016705
014201

2600 012106
012102
012104
012110
012114

020001
001405
004767
004767
000010

2601 012116

000300

012116

2602 012120
2603 012102
2608 019124
0lz1ce
012130
012134

012140
012142
2605 012142

2606
2607
2608
2699
2610

012144
012146
012150
012154
012156

010012
031201
020001
01403
04767
004767

000010

€00300
(05703
001403
020327
001011
077531

005466
001106
167716
167710

000377

167674

004072
005730

100$:
1%:

28 :
3.

JSR
JSR
MOV
MOV
CLR
MOV

RS,
$SCOPE
R4,
INITMM
RS . TEMP1
R2.TEMP
R3
2000377,R0

;GO _TO SCOPE ROUTINE.

S0B
MOV
MOV
CMP

RS,2$
TEHP%.RS
-(R2).R1
RO
R1

:END OF 8K?
:RESTORE TEST WORD COUNTER FOR NEXT PASS
:GET DATA WRITEN
:COMPARE THE CHECK WORD WITH THE DATA READ.

MOV

BEQ

300613

:SAVE BANK STARTING ADDRESS
:CLEAR PASS COUNTER
:SETUP TO WRITE PATTERN

:WRITE PATTERN

:BRANCH OVER ERROR CALL IF GOQD DATA.

PC.
PC.
10

3 ;

SWAB
MOV

RO
;SWAP BYTES OF DATA
RO,(R2) ;WRITE SWAPFiD WORD

CHP

30062$: JSR

PC.

SPRNT2 :SET UP VALUES FOR ERROR PRINTING.

SWAB

;PUT DATA BACK TO ORINGINAL

BEQ

'WE ARE ADDRESSING DOWN

BEQ

$0063¢

JSR
WORD
75T

000003

5%:

CHP
BNE

SOB

(R3),Ri

300633

pC.
10
R3

R3,8
63

RS,3s

SPRNT2
$ERROR

:STORE TEST WORD COUNTER

30060: JSR
JSR
WORD
:
300618

004646
005704

RO, (Re)+

:INITIALIZE THE MEMORY ADDRESS POINTERS.

SERROR

:SET UP VALUES FOR ERROR PRINTING,
s4« ERROR s+% (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

:GE"

DATA_WRITEN

:COMPARE THE CHECK WORD WITH THE DATA RERD.

:BRANCH OVER ERROR CALL IF GOQOD DATA.
.as+ ERROR &s% (GO TYPE A MESSAGE)
:ERROR TYPE CODE
.
:IF ON PASS O OR PASS 3

:IF ON PASS 1 OR 2 GO 10
:UPWARD

;:DONE i PRSS? ,IF NOT THEN 3¢

(6.8
b
R
]

VMSAB

0 2 MEGAWORD MEMORY EY MACRO Y05.02

MARCHING 1 S AND O S.

2611 012160
2612 012162

2613 012196

0052(3
0227(3

0014 .3

2614 012170
26195 012174
2616 012176
2617 012200

0167795
0003
X
0004
)4
062’0%

2619 012206
2620 012210
2621 Q12212

00411
011201
120001

012216
012222
012?%6

004767
004767
000010

2618 012204

00530

012214 001405

012230
2622 012230

000732

624 012236

005203

2h23 012232

2625 012240
2626 012242
2627 012246
2628 012250
2629 012254

2630 012256
2631
2632 012262
2633
2634
2635 012266

sggg

016705

000300
020327
(001313
016702
000755

Mondsy 23-Dec 85 28:45

000004

200002

004560
005616

;IF YES INCREMENT PASS COUNTER
:ARE WE DONE ALL PASSES FOR THIS 8K?

MOV
SWAB
BR
ADD

TEMP1,RS
RO
78
#.R2

;RESTORE TEST COUNTER FOR NEXT PASS.
;ELSE SET UP NEW READ WORD
;G0 TO START OF ADDRESS UP
;UPDATE TO NEXT ADDRESS

DEC

8s:

(R2) R1

;DONE A PASS?
R1

INC

ADD

#40000,R2

PC,
PC.
10

SPRNT2
$ERROR

;IF _YES BRANCH
;GET DATA WRITTEN
;COMPARE THE CHECK WORD WITH THE DATA READ.

;BRANCH OVER ERROR CALL IF GOOD DATA
:SET UP VALUES FOR ERROR PRINTING.
;&s+ ERROR ##* (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

TEMP1,RS

;RESTORE TEST WORD COUNTER FOR NEXT PASS.

RO
R3,%
3¢
TEMP ,R2
1$

:SET UP NEW READ WGRD
;ADDRESSING UP?
;IF NO GO TO DOWN SEQUENCE
;IF YES RESET ADDRESS TO START
;GO TO UP SEQUENCE

002702

040000

042702

001000

BIC

#1000,R2

004767

001076

JSR

PC,MMUP

2650

9s:

SWAB
CMP
BNE
MOV
BR

167514

JIF YEa BRAN%

306653

MOV

000002

BEQ

30064.: JSR
JSR
LWORD

30065$:
167534

R3
#4 ,R3

BEQ
MOV
cMP

SEQ 00+

INC
CHP

BEQ

167576

Page 17-1

; INCREMENT

;TESTING ENDS WITH R2= BOTTOM OF BANK
;ADD 8K FOR TEST START OF NEXT BANK
;CLEAR POSSIBLE FIRST STARTING
;ADDRESS OF 1000 WHEN VECTOR AREA IS
;PROTECTED.
;UPDATE TO NEW BANK IF EXISTS

:RETURN TO 100$

shkdbbbdkbdhbhbhhhbdhkhbkbhbkrhbhhhhhkkké

TEST 24

PASS COUNTER

r#tttttttxttttttttttttit

WRITE CHECKERBOARD STAR1.NG WITH '125252' DATA.

t THESE TESTS WRITE A CHECKERBOARD THROUGHOUT MEMORY,STALL

FOR 2 SECONDS THEN CHECK PATTERN TO VERIFY DATA DI NOT

.t DETERIORATE BETWEEN REFRESH CYCLES.
.

RO=DATA WRITTEN INTQ MEMORY(SHOULD BE>

;&
"

ik
T
i

012272
012272

2651 012276

004567

004467

005234

2653 012306
2654 012310
2655 012312
012314

010022
005100
077503
004767 001050

2657

012704

012322

2639 012326
2659 012330

005003

005303
001376

000046

R3=SMALL L OOP COUNTER FOR STALL
R4=NUMBER OF TIMES SMALL LOOP DONE
RS=BLOCK BOUNDARY BIT MASK.

dkkkihbhhkhkkbkkhbhkkhhkbhkokbhbhkkhkhkbkhkhbhkkkkhhkkhkkkkkkrkkhkkkbkdhhkhkkik

té124;

000654

265% 012302 012700 125252
2659 012320

R1=DATA RERD FROM MEMORY(WAS)
R2=VIRTUAL ADDRESS

JSR

18:

MOV

MOV
COM
S08
JSR
C_R

2%:

MOV

DEC
BNE

$SCOPE

;GO 70 SCOPE ROUTINE.

'(R2)+

INITMM

w1é5252 ,RO

;INITIALIZE THE MEMORY ADDRESS POINIERS.

:SETUP DATA PATTERN

Ro
RS,
PC,

18
MMUP

:WRITE A WORD
:COMPLEMENT DATA
:BRANCH IF MORE IN CURRENT BLOCK
:FIND NEXT BLOCK AND LOOP TO 1f.

#46,

:D0 LOOP 46 TIMES OR 2 SEC. TOTAL.

R3
2%

:SET UP COUNTER FOR STALL

—t

%B:SAB

0-2

——

MEGAWORD MEMORY EX MACRO_Y05.02

Hondax 23 Dec-85 28:45

WRITE CHECKERBOARD STARTING WITH '125252' DATA

26€0 012332
2661 012334
266§ 012336

005304
001374
004467

012346
012350

012201
020001

5224 g%gggg 012700 000614
125252

012352
001405
012354 004767 004422

012360 004767
012364 000006

012366
2665 012366
2666 012370
2667

012372

005100
077512

004767

005460

000772

012376

2668 012402
2671 012414

2672 012416
012420

004567

004467

004767

005303
001376
005304
001374
004467

COM
508

INITMM INITIALIZE THE MEMORY ADDRESS POINTERS.
‘1?5252 RO
:INIT DATA FOR CHECKING

3066?3
PC,
PC.
6

RO
R3,

PC,

Ri
R1
SPRNT2

SERROR

3¢

MMUP

;GET THE DATA FROM MEMORY¥ND§R TEST.
;COMPARE THE CHECK WOR
ATA READ.

;BRANCH
OVER ERROR CALL IF GOOD DATA.
;SET UP VALUES FOR ERROR PRINTING,
;*sx ERROR #&+ (GO TYPE A MESSAGE)
;ERROR TYPE CODE.
;BRANCH IF MORE IN CURRENT BLOCK

;FIND NEXT BLOCK AND LOOP 70 1§.

;;ttttttttttttttittttttt#ttttttt*tttttt*itttttttttttttttttttttttt
;«TEST 25
WRITE CHECKERBOARD STARTING WITH 052525 DATA

012452
012454

012201
020001

012460

004767

001405

1s:

004316

000006

000666

;GO_TO SCOPE _ROUTINE.

“052525
RO
RO,
(R2)+

508

RS,

;BRANCH IF MORE IN CURRENT BLOCK

CLR
MOV

R3
#46,

:SET COUNTER_FOR LOOP
:D0 LOOP 46 TIMES OR 2 SEC. TOTAL

MOV
MOV

COM

DEC
BNE
DEC
BNE
JSR

MOV

BEQ

30068%: JSR

JSR

300694:

ySCOPE

;INITIALIZE THE MEMORY ADDRESS POINTERS.

JSR

2s:

INITMM

MOV
CMP

012464 004767 005354
005100
077512
004767

JSR

000744

000510
ggg? 8%52%8 012700 052525

012472
2682 012472
2683 012474
012476

JSR
.WORD

JSR

005130

005100

077503

2675 012432
2676 012434
2677 012436
2678 012440
2679 012442

012470

(R2)o

BEQ

000550

2673 012424 005003
2674 012426 012704 000046

N12456

MOV
CMP

MOV

fé?sgt‘ttttttitttttttitttttttttttt#tttttittttttttttttt*tttttttttt

2669 012406 012700
052525
010022

2670 012412

R4
2$

30066%: JSR
30067$:

376

012

DEC
BNE
JSR

Page 17-2

.WORD

coM
508
JSR

PC,

R3
2%
R4
2$

MMUP

:SETUP
DATA PATTERN
;WRITE A WORD

;FIND NEXT BLOCK AND LOOP TO 1$.

INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS.
#052525
;INIT PATTERN FOR CHECKING
(R2)~

300694

PC,

PC,
6

RO
RS,
PC,

R1
R1

;GET THE DATA FROM MEMORY_UNDER TEST.
;COMPARE THE CHECK WORD WITH THE DATA READ.

SPRNT2

;SET UP VALUES FOR ERROR PRINTING.

$ERROR

3¢
MMUP

;BRANCH OVER ERROR CALL IF GOGD DATA.

;4% FRROR *xx (GO TYPE A MESSAGE)
;ERROR TYPE CODE

;BRANCH IF MORE IN CURRENT BLOC(
;FIND NEXT BLOCC AND LOOP TO 1$.

SEQ 0067

0-2 MEGAWORD MEMORY EX MACRO Y05.02

RELOCATE PROGRAM AND REPEAT ALL TESTS.

.SBITL DONE:

012502
012502

004567

005024

012512
012516
012524
012526
012532
012534
012530

105067
032777
001037
105767
001403
005767
001026

166354
000200

012550
N12552
01255

001003
005767
001417

012506 005067

012542

026767

DONE:

166446

TST32:
165404

166462
166442

165273

165276

1%:

165746

2%:

166424

012560 022767
012566

001404

000001

012570

004767

002154

174206

012600
012604
012610
8%52%5

004767
005767
001402
004767

002460
165232

4%,

002646

23:

012616

004567

007130

012574 000167

012622

Monday 23 Dec 85 98:45

001171

Page 18

RELOCATE PROGRAM AND REPEAT ALL TESTS.

JSR

CLRB
BIT
BNE
7578
BEQ
ST
BNE

STSTNM
#5407,
$EOP
$ENV
1$
SPASS
6%

BNE
75T
BEQ

2§
$PASS
6$

:BRANCH IF NOT ACT11
:CHECK FOR FIRST PASS
;IF ACT,DO NOT RELOCATE ON FIRST PASS

BEQ

‘IF NOT IN FIRST 8K,RELOC TOP T0 BOTTOM

JSR

RELTOP

JSR
757
BEQ
JSR

PC.
42
6§
PC.

RELO
RESLOR

;RELOCATE PROGRAM BACK TO FIRST 8K.
:TEST FOR XXDP
:IF NOT RUNNING UNDER MON. DONT
;RESTORE LOADERS.

JSR

$PRINT

;G0 PRINT QUT THE FOLLOWING MESSAGE.

CLR

CHP

BIT

Jup

WORD

$TiMES

$SCOPE
8SWR

42,46

SCALF

:RESET ITERATION COUNTER FOR RESTARTING TEST.
:RESET TEST NUMBER.
;CHECK FOR INHIBIT RELOCATION SWITCH.
:SKZP RELOCATION IF SWITCH SET.
:CHECK FOR APT11
:BRANCH IF NOT APT11
:CHECK FOR 1ST PASS
:IF APT,DO NOT RELOCATE AFTER FIRST PASS

:CHECK FOR ACT11

SBITO,PRGMAP

START1L

;G0 TO SCOPE ROUTINE.

;CHECK IF PROGRAM IN FIRST 8K
:MUST BE XXDP 0R STANDALONE

:RELOCATE PROGRAM TQ TOP OF MEMORY.

:LOOP BACK AND RUN ALL TESTS AGAIN.

:ADDRESS OF MESSAGE TO BE TYPED

SEQ 0068

—

CVMSAB

MEMORY EX MACRO Y05.02
AND

DONE

REPEAT ALL TESTS.

2’11

Monday 23-Dec 85 08:45

Page 19

SEQ 0069

s;hdbkbbbbbbhdbhbbbbhhbhbbdhkkbbkb
bbb bd kbbb bbbt hbbbbb bbb bbbRbbn

.SBTTL

END OF PASS ROUTINE

;*INCREMENT THE PASS NUMBER ($PASS)

:#TYPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER)

;+TF THERES A MONITOR GO T0 IT

[
o

644
646

656

10 bt o

e |

Pt Pt

MPLINVLNOND o
[o 2}

s ot

e g

OOOOOOOOOOOOOOO

;#1F THERE ISN'T JUMP TO STARTL
000240
005067
005267
042767
005327
000001
003041
012737
000001
012646
004567
012760
016746

~d=J
N

166326
166344
100000

$ENDCT:

001002
004767

000167

$TIMES
$PASS
2100000, $PASS

.WORD
86T

1
$DOAGN

.WORD
$EQPCT

DEC

(PC)+

MOV

i3 YES
;;RESTORE COUNTER

RS,

;GO PRINT OUT THE FOLLOWING MESSAGE.

$PRINT
-(SP)

:ADDRESS OF MESSAGE 10 BE TYPED
; GAVE $PASS FOR TYPEOUT

$TYPDS

:HIGH BYTE CLEARED TO INSURE KERNEL MODE
:ON PSW RETURN.
:G0 1D _THE SUBROUTINE

-(SP)

CLRB

1{5P)

JSR

PC.

JWORD

$ENULL

JSR
$GETA2:

RS.

MOV

BEQ

$DOAGN

RESET

SENDAD: JSR

PUT THE PROCESSOR STATUS ON THE STACK

$PRINT

001214
002576

NOP
CMP

::CLEAR THE WORLD

::G0 TO MONITOR

;i SHVE ROOM

JMP

TACT1L

442,944

BEQ
ISTB
BNE
(DOAGH JSR

$DOAGN
GASENV
$DOAGN
PC.

:ADDRESS OF “CSSAGE 10 BE TYPED
.GET MONITOR ADDRESS

NOP

000046

:GO PRINT OUT THE FOLLOWING MESSAGE.

. :BRANCH' £F NO MONITOR

PC.(RO)

NOP

174026

;:LooP?

(PC)+,8(PC)+

$ENDMG
$PASS,

MFPS

000001

000042

;;ZERO THE NUMBER OF ITERATIONS
; : INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER

i+ THE_NEXT
TWO INSTQUCTIONS PROVIDE AN INTERFACE TO THE $TYPDS ROUTINE
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY #&SYSMACkx,

165124

CLR
INC
BIC

WORD
MOV

166310

016700
001416
000005
004710
000240
000240
000240
023737
001405

NOP

JSR

007066

010042
007042

105737

166336
$EOPCT:

004767
004567
012775

NO 2t
O
~SONONDE=
~NOWNWOoNWD

s[=]
OB
IR NNNNUTE
83 B (NNTOMNOTONI
2=
PWO B HONNLONLONENLOONMN

~4~3—~

=~
~d ~d ~d
g~ mdmd ~d ~d ~d ~
~d
o
d
I

Pess Pt Pt
P

(S, F71,8

=i~ J

281,80 1,8] (%}

s [

s s [

s et o

et et o

DOOOOOOOOOCOOOOOOOOOOOD

e e

POPOVR
PORLNLRLNVLPLRLNC
ML NONOTV PV RLTLILIVMOMLNS

OO0

106746
105066

$SEOP:

i iARE UE UNDER ACT11 OR XXDP

SAVLDR

START1

::IF ACT11 THEN RESTART
: :CHECK FOR APT11
::TF APT11 THEN RESTART
.:IF XXDP FIRST SAVE MONITOR
;RETURN#
& &k &

012
104
101
040

105
040
123
043

SENOMG: LASCIZ

<15><12>/END PAsd’#/

000

$ENULL:

.BYTE

SBTTL

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES

- NULL CHARACTER STRING

"SBTIL SUBROUTINE AND TRAP ROUTINE SECT
JRRRKRR KRR

KRR Rk kR Rk

Rk Rk

KRR R

kh kR bk

khkhhdd ki s

SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION.

~d I~

~d~d~J

POPOROILILILNY
NN
GNP NIMONOMAINONOND

T L
N N NN N N TN TIN PIR TIN PO PR PN PN
~
PO OO 0O ~JOMNE NN = OO OO ~ SN UTES NNV SO OO~ N LN B (NN lad @ X¥e1e - TNT, )

PORLAY
~J-u~d~d~J ~
RO
e e-

roron é
XX 5

()
<

0 2 MEGAWORD MEMORY Ex MACRO Y05.02

MANAGEMENT AND ADDRESSING SUBROUTINES.

172314
077406

172316

013064

012737

000200

172342

013076
013102
013106
013112
013116
013120
013124

005037
005037
005037
105767
001005
005037
012737

177346
172350
172352
166006
_
172354
177600

172356

013136

013140

100003
052737

000020

172516

013154

000207

013060 005037

013072 003037

OO
AL
BN
O OV -JONU
W

~d—d~ddd
~d g~ ~d~d~J

oD
ROrPODMO RO NONON

oo
o

d~d

005767

012737

013170
013172
013176
013200

00500¢
005767
001410
012700

013210
013212

005021
077002

013226

013234
013236

013240

013244
013250

172340

172744

165400

000001

172300
172302
172304
172306

177572

VMK

MOV
MOV
MOV
MOV
CLR
CLR
1518
BNE
CLR
MoV

#200 14400+UP+RW,3#KIPDRO
:5ET KIPDRO = RW UP 200 BLOCKS
#200-14400+UP+RW,3+KIPDR1
;SET KIPDR1 = RW UP 200 BLOCKS
#200 1%400+UP+RW,a¥KIPDR2
;9ET KIPDR2 = RW UP 200 BLOCKS
#200-1+400+UP+RW,3#KIPDR3
;SET KIPDR3 = RW UP 200 BLOCKS
a#KIPDR4
¥KIPDFS
$AUTOB
sV IF TRUE_XXDP CHAIN MODE
VMK
i:V DO NOT TOUCH KIPDR6 OR KIPDR?
InKIPDR6
#200-1+400+UP+RW, 3#KIPDR7
i SET KIPDR7 = RW UP 200 BLOCKS

MOV

#200,

CLR
CLR
CLR
1518
BNE
CLR
MOV

+KIPAR3
IHKIPARS
IHKIPARS
$AUTOB
VMK1
a#KIPAR6
#177600, F#KIPAR7

CLR

VMKL1:

1§:

TST

BPL

016701

005037

012767

066767

0126C1

012600
004767

004767
000007

000020

172344

165300

000124

004574

1¢:
166526

166520

iMAP PAR2 INTO BANKO

MMAVA

RTS

2%:

;MAP PAR1 INTO BANK1

sV IF TRUE XXDP CHAIN MQODE
;:V DO NOT TOUCH KIPAR6 OR KIPAR7
;MAP PAR7 INTO _I/Q BANK

;IF_22 81T ADR NOT AVAILABLE
;

#1,845R0

THEN BRANCH

ELSE ENABLE 22 BIT ADDRESSING

;ENABLE MEMORY MANAGEMENT
;RETURN

kR Rk

Rk kK

Rk ko

ko kk kK Kk k

MEMORY ADDRESS POINTER INITIALIZATION ROUTINES.
kR

kR kR Rk

kR Rk

MOV
MOV

RO.-%SP%
R1,-(SP

; s PUSH RO ON STACK
; ;PUSH R1 ON STACK

CLR
IST
BEQ
MOV

R2
MMAVA
2%
#20,R0

; INITIALIZE ADDRESS

CLR
508

(R1)+
RO,1$

MOV

165340

013362

FAKIPAR?

kR kR

166612

166606

;MAP PARO INTO BANKO

I¥KIPARL

1%
#8174, 3#SR3

MOV

INITMM:

100000

#KIPARQ

BIS

§pRkkRk Rk

013162 012767

013220

077406
077406
077406
077406
172310
172312
166060

;*#

010046
010146

013214

THE MEMGRY UNDER TEST IS POINTED TC _BY PARS 2 AND 3.
THE DEVICE ADDRESS AREA IS POINTED 70 BY PAR 7.
PARS 4, 5, AND 6 ARE UNUSED.

MMINIT:

§ 3

013156
013156
013160

013204

SEQ 0077

;bbb kkbbkhbkkbbhbkirkhkhhbhbkkhd
bbbk bhkhb bk hhhhkhhkdhhhhhdh kR ke k

012737
012737
Q12737
012737
005037
005037
105767
001005
005037
012737

013146

Page 19-1

THE PROGRAM IS POINTED TO BY PARS O AND 1.

;#+
;»
;#

013000
013000
013006
013014
013022
013030
013034
013040
013044
013046
013052

013132

;¢

Mongay 23-Dec 85 08:45

MoV
CLR

MOV

#81715,PLUSL

dtKIPAR2

#INITEX,MMORE

RELOCF ,MMORE

MOV

(5P)+,RO

(SP)+,R1

JSR

PC,MMUP

.WORD

FATAL EfiggR

kK kkkk &

.BIPT,R1

ADD

MOV

kR kk

PC,

;;POP STACK INTQ R1

;:POP STACK INTO RO

$ERROR

;*+x% ERROR *xx (GO TYPE A MESSAGE)
;ERROR TYPE CODE.

0 2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec 85 08:45
CVMSAB
MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

2767 013252
770 013254
i

013254
013256
2771 013260
277§ 013262

000000

010046
010146
005002
005767

577 0135 6
774 013270

001414
012700

2776 013300
2777 013302

005021
077002

2775 013278 016701

HALT
INITDN:

165250

BEQ
MOV

000020

166516

2778 013304 012767 000001 166470

2779 013312 005037

2780 013316
2781 013320
2783 013326

000403
012767
012767

783 013332

012601

5733 o%i 34 066767
013344

172344

000020
013362

165172

]
16636
166420

166412

004767

013356

000007

000000

2788 013362 010467
S;gg 013366

CLR
S0B

000204

BItPT,R1

(Rl)‘

MOV

(SPY+,R1

EATAL EggOR

AKIPAR?

RELjCF MMORE
(SP)+ RO

PC, MMOOWN
PC,

$ERROR

WORD

HALT

166366

INITEX: MOV

RTS

;%% ERROR %% (GO TYPE A MESSAGE)

R4 MMORE"

ke ok sk ok dkak dk ok ok sk e ok ok ok sk ok kol koo sk ok ke ok ok ko ok ok ok ok ok ok kok k

COMMON UPWARDS ADDRESSING ROUTINE
FINDS NEXT EXISTING 8K BANK AND UPDATES POINTERS.
GOES TO ADDRESS IN "MMORE" IF MORE BANKS,

DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE.

HH s ok ok ok ok ok ok oKk ok kol ok ko ok dk ok kol ok ok k ok sk

279

2798 013370

012705

013374
013376

106746
105066

000001

013402

004767

005200

013416
013420
013422

010146
010346
010446

012702
005767
001003

040000
166346

5807 01%436

062737

000400

2829 013450
2810 013454

012700
006367

000020
166322

279

2800 013406 005767
2801 013412 001475
2802 013414 010046
2803 013424
2804 013430
2805 013434
2806

020000

MMUP:

165124

2808 013434 016701 166346

MOV

1$:

.SET UP 8K TEST COUNTER

uIHTOUT USING A "TRAP* INSTRUCTION AS CALLED FOR BY #%SYSMAC**
MFPS
CLRB

-(SP)
1(SP)

JSR

MOV
MOV
MOV

Ri,-(SP
R3, (5P)
R4 -(SP)

MOV
151
BNE

100s:

#20000,R

ok dkk ok ko ok ok ok ok ko kk kk kk kkkkkkkkokk %k

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWh ROUTINE

75T
BEQ
MOV

172344

NO MEM INDICATED IN MEMMAP ABOVE 8K

3795

799

::POP STACK INTO RO

-ERROR TYPE CODE,

HH sk ko ok ok e sk ok ak ok ook sk ok

%
:x
;%

;;POP STACK INTO R1

.FATAL ERROR!!!

2791

2792
2793
2794

NO MEM INDICATED IN MEMMAP ABOVE 8K!

$
£20,R0

34
28174,BITPT
STNITEX, MMORE

ADD

SEQ 0071

..Pugfl RO 8N STAEK
:1PUSH R1 ON STACK

BR
MOV
MOV

JSR

004466

RO.-&SP;
R1,-(5p
2
MMAVA

mhonw1

CLR

2%:
3$:

;FATAL ERROR!'!!

MOV

2785 013346 004767 000362

2787 013360

MOV

012600

2786 013352

MOV
MOV
CLR
ST

Page 19-2

MMAVA
7%
Ro.-ESPg

:PUT THE PROCESSOR STATUS ON THE STACK
HfisgsngETfikgAneo 7O INSURE KERNEL MODE

$CKSWR

240000,R2
PLUS1
1003

ADD

#400,34KIPAR2

MOV
ASL

#20,R0
PLUST

MOV

"BITAT.R1

;GO TO THE SUBRQUTINE

:CHECK FOR MEMORY MANAGEMENT
:IF MMAVA = O ,BRANCH TO NON <T MODE
:;PUSH RO ON STACK
. +PUSH R ON STACK
; iPUSH R3 ON STACK
:PUSH R4 ON STACK

‘MMU AVAIL. SET UP VA= 0,PAR2
:CHECK IF FIRST TIME ENTRY
:00 NOT ADD 8K TQ PAR2
:UPON FIRST ENTRY
:ADD 8K TO PAR2

MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 08:45
MANAGEMENT AND ADDRESSING SUBROUTINES.

013460

006121

013464

103005

Co Qo

LN
UNTE MO W0~

VOISO UTRNUNIUIUN 82 55 5 22 5 5 5 22 5 B2 (NN NN N ORI
O PO
— O O
~JNUNE NNV
OO O I
I (NN
O OO ~ION LN
NN
OO O O

o Co o 0o

PORLPLNOLNLNLTLILRLNLNL
LNV NLNONLNLNLNLTLNVPL VPPV NN PV PO PPNV TV PO NV

RRRRRRYSILTS
Q0 Qo

013462

2%:

077002
012604
012603
012601
012600

013500

016703

166312

013510

012700

000020

013516
013520
013522
013524

001002
077003
000745
013737

013540

012604

013550
013554
013556
013564

005767
100005
032767
001005

164762

100000

166166

013570
013576
013600
013604
013606
013612
013616
013620

032767
001432
012705
000427
006367
006167
103440
036767

100000

166116

013504

016704

013514 032324

013532 062737
015712
0135 1
01354y

013566

013626
013630

013634

012603
012601
012600

000436

001003
062702

000764

013636
013644
013646
013652
013656
013660
013664
013672
013674
013700

032767
001407
012705
005767
{1402
062705
032767
001407
066702
005767

013704
013706

001402
162705

013716

000207

013712

013720
013724
013726

016716

005767
001402
004767

101¢:

166302

172344

000200

3¢
172346

172346

45:

6$:

166170
166076

166070

165726

000010

MOV

166050

8%:

166022

9%:

;ROTATION_OF ONE BIT

124

.BITPT,R3

44
RO,3$
1$
#KIPAR2 a#KIPAR3

ADD

(R3)+,(R4)s

£200,
94K 1PAR3
(SP)+,R4

ESP$+.R3
SP)+,R1
(SP)+,R0

15T
BPL
BIT
BNE

MMAVA
5%
#BIT15,BITPT+36
64

BIT
BEQ
MOV
BR
ASL
ROL
BCS
BIT

#8IT15,BITPT
9
#10000,R5
93
PLUS]
BITPT
124
BITPT, TSTMAP

B8R

000400

BEQ
SUB

10$
#400,RS

167446
002106

10%:

11%:
;%

fas:

MOV

RTS

MMORE
, (SP)
PC

BEFORE_FINAL EXIT,

187

BEQ
JSR

i :POP STACK INTO R3
;:POP STACK INTO R1
i :POP STACK INTO RO

84
#40000,R2

166062
166056

166036

; :POP STACK INTO R4

#BIT3,8ITPT
9¢
#10000,R5
FLG30K
9¢
#4000,
R3
#8IT0,BITPT
10
FSTADR,R2
FSTADR

004000
000001

INTO R4
INTO R3
INTO Rl
INTQ RO

-TSTMAP,
R4

BNE
S08
BR
MOV

BIT

STACK
STACK
STACK
STACK

;OONE ,READY TO EXIT

#20,RO

BIT
BEQ
MOV
TST
BEQ
ADD
BIT
BEQ
ADD
TST

010000
166116

;:POP
;:POP
;:POP
i ;POP

MOV

BNE
ADD

040000

;TESTING IS DONE WHEN CARRY BIT IS SET

(SP)+,R4
gSP)f.R3
SP)+,R1
(SP)+,RO

MOV
MOV
MOV

010000

101¢

MOV
MOV
MOV
MOV

MOV

5%:

;ROTATE TOTAL TABLE TO INSURE

RO, 2¢

SEQ 0072

(R1)-

S08B

BCC

013466
013470
013472
013474

013476 000510

ROL

Page 19 3

MPRX

;FSTADR = STARTING ADDRESS
0 OR 1000 IF VECTOR AREA IS
i
PROTECTED.
;
;ADJUST ADDR COUNTER TO PROTECT 0-1000

CHECK FOR ANY NON TRAP PARITY ERRORS.

13$
PC,CKP4ER

;CHECK FOR _ANY PARITY REGISTERS PRESENT.
;BR_IF NONE.
;CHECK FOR PARITY MEMORY ERRORS.

CVMSAB

0 2 MEGAWORD MEMORY EX MACRO Y05.02

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

2862 013732

2863

000207

13$:

740
742

106746
105066

000001

746

004767
005767

004634
164560

——

3:Abwuwwuuwu

OOO0OOOCOOOOOOOODOOOO

e ey
et e urd s
e verdurd
D
-+~
N
OOCO
(=]
OO~
~dd
I~-~J
OO
5%
—_—O0 ~—n NONONLILN
ro O (o roOoONNL Feal=1sa HOOON

012705

A
e
e s
el s sl s|ek
4
£ 52 NNNONO
N o b=t = OO~
orn
NONRONRNOLOONEILO

i oS i pma® o

4024
14026

ol
s Pl o
et ot
s aai orads Gt
i P
et

000400
166014
000040
000020

GOES TO ADDRESS IN “MMORE' IF MORE BANKS

DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE.

012604
012603
012601
012600
000517
016700
062700
016701
062701
012703
034041
001002
077303

000737
013737
062737
012702
012604
012603
012601
012600
035767
100005
032767
001005
000442
032767

1$:

172344
000200
100000

100$:

MFPS
CLRB

-(SP)
1(5P)

JSR

BEQ
MOV
MOV
MOV
MOV

75
RO, -(SP)
Rl.-ESP)
R3,-(5P)
R4 -(SP)

SUB
MOV

ASR

ggg

172346
172346

4s:

164410
100000

165614

100000

165544

MMAVA

$CKSWR

#400,34KIPAR2
.BITPT,RO

:SET UP 8K TEST COUNTER

= O THEN BR TO NON KT MODE
ON STACK
ON STACK
ON STACK
ON STACK

:DOWN DATE TO NEXT 8K BANK
:GET INITIAL VALUE OF BIT

100$

:CONTINUE TESTING UNTIL CARRY BIT SET

:YESTING DONE,READY TO EXIT

£40,R0

ADD
MOV

340,R1
#20'R3

BNE
S0B
BR

4%
R3,3$
13

MOV
MOV
MOV

ESP3+.R3
5pY+.R1
(5P)+. RO

. T1STMAP,R1

-(RY; -(RY)

: ;POP
::POP
::POP
: :POP

STACK
STACK
STACK
STACK

INTO R4
INTO R3
INTO R1
INTO RO

:THEN WE HAVE TESTED LAST BANK
:IF NO UNDERFLOW SET UP T0

:SEE IF BANK SHOULD BE TESTED
;CHECK IF BANK IS UNDER TEST

:IF YES GO SET UP PARS
:IF NO CHECK ALL POSSIBLES
:IF NOT GO CHECK NEXT LOWER 8¢

JSKIPAR? , 34KIPARY: MAKE PAR? AND PAR3 POINT TO SAME
2200,94K1PARZ
;MAKE KIPAR3 UPPER 4K
2100000, R2
:SET UP FIRST ADDRESS + 2
(SP)+,R4
:;POP STACK INTO R4

MMAVA

BIT

:IF MMAVA
:PUSH RO
::PUSH R1
::PUSH R3
::PUSH R4

:MOVE THE POINTER

ADD

MOV
ADD
MOV
MOV

:CHECK FOR MEMORY MANAGEMENT

§§R82

PLUST

_BITPT,RO

BIT

:G0 TO THE SUBROUTINE

;SET UP TO MOVE POINTER
:ONE POSITION THRU 20 WORD TABLE

MOV

:ON PSW RETURN.

#40,R0
#20'R3

SP)+,R4
SP3¢.R3
5P+ R1
(5P)+.RO

BPL
BIT
BNE

59 ;

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

MOV
MOV
MOV
MOV

MOV
38

#20000,RS

WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY #&SYSMAC##,

8CC

165754
000040
165740
000040
000020

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE 10 THE $CKSWR ROUTINE

2¢:

077302
103005

Rk Rk kR kR A bbb Rk Rk ARk h

MEMORY DOWNWARD> ADDRESSING SUBROUTINE.

ADD
MOV

165764

FINDS NEXT LOWER 8K BANK AND UPDATES POINTERS.

157

172344

SEQ 0073

;STRAIGHT RETURN.

RS AR KRR

M4 OTUN: MOV

020000

013734

Page 19-4

F-F-P-F-P-W-P-FPP PP F-3

OO
[e <Te
-Te
.}
—~
(S,
P~ TN
rorONLTUMNLNONGPOND
Q0 O Qo O Qo Qo O O o
QO QA0 A OO ~J~d~J~J
TV~ OO0 ~JON
noronrorororPPOrOrOMNONOPOMPONY
(o -To -To 1o cTo To -To -To To 1o -To .To -To Yol
[YalVelVolVolVelle
Vel olVole -Jo 1o 1o 1o -]
QO ~JVN B NN
OO
~JONLN

[a01a01,0],61,0]
OO OO O
OOOCLO
WV
OO

290

RTS

iRRRRERRR

[ele]

ONLPLNLILPOND no
(e -Te -Te .To Jo iTe -ToTM] o
N~ RN (o))
= OO~ wn

2864

Monday 23-Dec 85 98:45

::POP STACK INTO R3
::POP STACK INTO R1
::POP STACK INTO RO

:CHECK FOR 22 BIT ADDRESSING

54
:IF NO,CHECK 18 BIT MODE
3IT15,BITPT+36 ;TESTING HIGHEST 22 BIT SEG.?
6$
IFYES,DO ONLY 4K SEGMENT

3BIT15,BITPT

:IF NO,DO 8K SEGMENT

:TESTING HIGHESTT 18 BIT SEGMENT

0 2 MEGAWORD MFMORY EX MACRQ Y05.02 Monday 23-Dec-85 08:45
CVMSAB
MEMORY MANAGEMENT AND ACDRESSING SUBROUTINES.

1653<4

040000
000010

165476

8 $:

010000
004000
000001

165440

LN —0000
3>

020000
010000
165540

9 $:

162705

000400

016716
000207

165460

165500

O~~~

165516

9$
#60000,R2
-

#10000,R5

B8R
ASR
BCS
BIT
BNE
SUB
BR
BIT
BEO
SUB
MOV
15T
BEQ
ADD

XX
—0
[ T2 1-

“w

014270
014274

165524

BEQ
MOV
MOV

014264

060000
016000

6 $:

—0

220

001436
012702
012705
000431
006267
103441
036767
001003
162702
000766
032767
001413
162702
012705
005767
001404
062702
062705
032767
001405
005767
001402

8.—- -t et i et s

gbb&b&bb

s s

s P

e ps

OOQOOOOOOD

ot
ol o o
[p6 1,01,
§)
—— [
~§ I o wn
OO, no o O
& noVL

O O O IO
O
NN P NN
OO 00

[ASTASTaBTARTAS
1 U1 W A 61,61, U1, 07,57, 57,¥1, ¥

OO OO OO OO NO O OO WO O O
NANNIN PN TV NV NOPO RO M) s s e

OO WX ~JOUNE

RIS

2)210,2.0.0,08
803

2905 014150

BITPT
114
g%TPT.TSTMAP

Page 19 5

;1IF NO ,DQ 8K SEGMENT
;DO _ONLY 4K SEGMENT
;SET UP 4K WORD_COUNTER
;GET OVER NON KT ROUTINE
;POINT TO NEXT LOWEST BANK
;IF CARRY FOR LSB THEN DONE TESTING
;IS THIS BANK UNDER TEST?

?gOOOO.R2
3§IT3.BITPT

#20000,R2
#10000,R5
410000,
R2
#4000,
RS
#8170,BITPT
10%
FSTAOR
10$
#400,RS

MMORE, (SP)
PC

;CHECK FIRST ADDRESS = 0 OR 1000

;PROTECT VECTOR AREA 0-1000 FROM
;BEING TESTED IF FSTADR_=1000
:EE}BSNRETURN FOR MORE TESTING

SEQ 0074

LAY

CVMSAB
O 2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23 Dec 85 08:45
SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS.
2933

.SBTTL

2935

2934

Page 20

SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS.

H ;ttttttttttttttttttttttttttttttttttttttt#ttttttttttttttttttt‘ttt

2936

2937 014276

SUBROUTINE TO CALCULATE PHYSICAL ADDRESS AND PUT IT IN RO (BQOTTOM 16 BITS).

i hkbkkkkbkkbkkkkkkkkkkkkhkkkbhkbkhkkhbhkhhkhhhkhhhkkhbkbhhbhkbhbkbb
kbbb ki s

005767

164234

010005
042700
012701

017777
000014

2945 014332 012704

172340

MOV

2947 014340 011403
2948 014342 012701

000006

MOV
MOV

2952 014354

160000

2938 014302
2939 014304
014306
014310
014312

2940 014314
2941 014316
2942 014322

001433
010146
010346
010446
010546

2943 014326
2944 014330

006200
077102

2946 014336

060004

2949 014346
2950 014350
2951 014352

006303
077102
010500

2953 014360
2954
2955 014362
014364
014366

060300

014370

042700
012605
012604
012603
012601

PHYADR: TST

MMAVA

:CHECK FOR MEM MGMT AVAILABLE

1$:

RO ‘RS
#19777 RO
#12. .Ri

:SAVE FOR PHYSICAL ADDR, ADDITION
:CLEAR VIRTUAL ADDR BITS
:SET UP ROTATE COUNTER

BEQ
MOV
MOV
MOV
MOV

MOV
BIC
MOV
ASR
S0B

4%
R1.-(spg
R3,-(Sp
R4, -(SP)
RS, -(SP)

RO
R1,2$

#K1PARO, R4

:BRANCH IF NO MEM MGMT
: ;PUSH R1 ON STACK
: :PUSH R3 ON STACK
: :PUSH R4 ON STACK
: :PUSH RS ON STACK

:T0 SHIFT PAR POINTER
:INTO BITS 0-3

:STORE START OF PARS

ADD

RO R4

:USE PAR POINTER IN 0-3 AS INDEX

ASL
S08
MOV

R3
R1,3$
R5 RO

:CONVERT PAR CONTENTS
:TO A PHYSICAL "K" ADDRESS
:STORE VIRTUAL ADDRESS

ADD

R3,RO

BIC

MOV
MOV
MOV
MOV

:STORE CONTENTS OF PROPER PAR
:SET UP COUNTER T0

#160000, RO
§5P§"R5
SP)+,Ra
(SP)+,R3
(SP)+,R1

:CLEAR PAR POINTER

:ADD PHYSICAL "K" ADDRESS
:TO OBTAIN 16 BIT PHYSICAL ADDRESS
:;POP STACK INTO RS
: :POP STACK INTO R4
:;POP STACK INTO P?

::POP STACK INTO Rl

5339 014372 000207

2958

; ;#t*tttt#ttttttHntttttttt*t*t**ttitt*tttittttttttttttt#tttttfi kK%

2960

cokhhkhkhkkbkkhkkbkhhkhkkhkhkkkkhkkhkkhkkhkkkhkkkhkkkkkkkkkkkkkkhkhkkhhkkk

2959

2961 014374

005000

2962 014376
014300
014402
014404

010146
010246
010346
010446

2964 014412
2965 014416

012703
012702

2967 014424
2968 014426
2969 014430
2970 014432
2971 014434

006204
103410
105200
001004
004767

014440

000007

2963 014406 016701
2966 014422

2972 014442
2973 014444

2974
2975 014446
2976

2977 014450
014450

012104

000000
077211

MOV
MOV
MOV
MOV

165404

000020
000020

MOV

B1PT, m1

ASR
BCS
INGB
BNE
EATAL EfijagR

R4
4%
RC
34
PC,

MOV

WORD

35
4s
-

;INIT RO

Ri,- SP;
R2,-(SP
R3, - SP;
R4 -(SP
220,
420

1$:

:EXIT WITH PHYSICAL ADDR IN RO

MOV
MOV

003404

SUBROUTINE TO PUT BANK NUMBER INTO RO.

BANKNO: CLR

077315
012604

RTS

(R4),R3
46,41

' R3
R2

(R1)+,R4

$ERROR

:;PUSH R1 ON STACK
: :PUSH R2 ON STACK
::PUSH R3 ON STACK
: :PUSH R4 ON STACK

:$TART OF BIT POINTER TABLE

:SET UP BITPT TABLE COUNTER
:SET UP ROTATE COUNTER FOR 1 WORD

:GET WORD T0 ROTATE BIT

:ROTATE BITPT WORD TO FIND BANK
:IF CARRY SET ,THEN BANK FOUND
:COUNT BANKS.
:BR IF NOT OVEKFLOW,
;%% ERROR *+x (GO TYPE A MESSAGE)
.ERROR TYPE CODE.

HALT
S0B

R2,

-FATAL ERROR!'!! NO POINTER FQUND.
28
;IF NOT FINISHED ROTATING WORD

508

R3,

MOV

(SF)+,3%

:G0 BACK AND ROTATE AGAIN
:IF NOT FINISHED BITPT TABLE
THEN ROTATE THROUGH NEXT WORD.
;;POP STACK INTO R4

SEQ 0075

014452
013454
014456
0147«

000207

SEQ 0076

;:POP STACK INTO R3
;:POP STACK INTO g%

MOV
MOV
MOV
RTS

012603

012602
012601

Page 20-1

;POP _STACK INTO

'RETURN

sokkbkdbbdbhbbkbkhbbkkdk
bk
bbbk bbbk kb bk d kb kkk b kb kbbb ok kb
kdk R

014462
014462
014466
014470
014472
014476

004467
010022
077502
004767
000207

176470

:4 SUBROUTINE TO WRITE THE CONSTANT IN RO INTO ALL OF MEMORY.
kbbb hhkbkhkbbhbkbkkdkhhkkbhhbhkhhbbbhdbbbhbbb
bbb dbkbbbbbh bbb dkhkd
EETCON:
1s:

176672

JSR
MOV
SO0B
JSR
RTS

INITMM

;INITIALIZE THE MEMORY ADORESS POINTERS.

:BRANCH_IF MORE IN CURPENT BLOCK

(R2)+

MMUP

;MOV CONSTANT INTO MEMORY

;FIND NEXT BLOCK AND LOOP TO 1if.
;RETURN

tttttttttt*ttittttttttttt*tt#‘ttt#tt#ttttt*ttt#tttttttttttttttt

R2)

BIT THROUGH A MEMORY LOCATION.

B
W
WE
®s
We
W
®e
TIEY]
T

0 2000200
PON rorRLrONOMND

S
e
Ld

R
-+

WW\J\MW\JW
[T

ERE’;=177776 QR 000001
R2)=177775 OR 00C002

0 TNETNSTNSTNSINTNETNETNETNSTNTNST NSNS
20X 22020 20X X X0 000X 00X X
[ASLASIASTAS LA S LN TAN AU oS TaNTART AN 1o T N1 aN 140 ]

kGTATE QOLB

PO
et et et et o (et ot ot s et o e it oo et o f
NS
=t ot b o2t = [\ ) bt o et ch it s a2
~PONLPLAL
ML PLRL PO NV NPV PO L PO PO PO PO

s et P
s pt s b e et
s s s ot et |t
Ot bt st

—

gwwummmm
ELrOONLMOON

S
no

‘C'

BRARRRARRARARRRERRRRARRRKRRRRRRRRRRARRRRRRRERRARRRRRRRIRAARE
RS

OOOOOOOOOOOOOOOOOQOOOOOD
fodepTeToaTe T
Yo Yo e Yo Y0 Ve Yo Ve Yo 2T \Yea¥e Yo 2

SbhbhLLLLLBEDLLLLOELLLL.
v Uit

OOOODOOOCOOOOODOOOO

[Srperderfurfurturderforgurturiat
i wd wdorud
ot

:# ROUTINE TO ROTATE

177773 OR 000004
1767
757
737
77
77
1

=177377
R2 =176777
R2 =175777
R2 =173777
R2)=

OR
OR
OR
OR
OR
OR

000010
000020
000040
000100
000000
0C0200

OR 000400

OR 001000
OR 002000
OR 004000

R2)=137777 OR 040000
R2)=077777 QR 100000
R2)=177777 OR 000000

;RETURN

;bbb bkhkdbbdsbhbbhbbh
kbbb bhbbhbbhbhbb kb kbbb ibhkbibhabbbdnki s

e SUBROUTINE TO WRITE 3 XOR 9 PATTERN INTO 256. WORD BLOCK.
MOV
MOV

RO,(R2)+
RO,(R2)+
RO R2)+
2)e
+
+
+
+
-

;EACH LOOP WRITES 256. WORDS

rorRrRR

VD00
(NWWWW

oML
OO

WL
PPN
PO

VDD
OOOO

MOV

V00

MOV

N
AR
e

2s:

DDV

#16. R4

PR
RU

MOV

OOOO

[=4
OOO
o PO
(%] ror

i3x9:

OO
OO

Pl
s
et

s Pt

OO0

000020

MOV
MOV
MOV
MOV

s prh

OO0

et p
e

shkbhhkbkkkkhddkhhkhbbdihhhhbdbbknhbhbbbhstbdbkbbbhbdbdbbbbdbdhibis

MOV
MOV
MOV
MOV

P—
pet

OOO0O0

et e

Sty

OO0

010022
OO0

014552
014554

-H
un U
n%
(=] o

01270¢

O [=4

014546

OOV

-~-J-J

gf\)
rorOrPOROrONO
O
OOOO OO
o

0-2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 08:45
CVMSAB
SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS.

(L N (N O U O L O Ui (U G N U O N (U U
N O N M UM N RN
U
DO PO DL PO O DO DD oo
[olelololololeololalolelololalaloleloleolelololololololelelw] OO DO DOOOOOL O OO
rONLRORURUNLPOTONV
N 2 st pt pts s et ot ot 2 2 O O O
OO OO [ OL OO O O O O OO O
DO o
LD 3NN
NNV
OOV
~JONUNE NN
OO
~JNUN & il — [=2Vale
- BN] AN ELIMNF-O WD~ N

|
|

CVMSAB
0 2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 38:45
SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS.
3030

3031 014602
3032 014604
3033 014606

010322
010322

gg}g 014610

010322
010322

3037 014614
3038 014616
014620

001356
010046
010300

3039 014624

000207

30%6 014612 005304
014622

012603

MOV
MOV
MOV

R3.ER2gfi
R3,(R2)+

DEC

MOV
BNE
MOV
MOV

MOV

RTS

Page 20-2

R3,(R2)+
R3,(R2)+

2%
RO,
R3

(5P,

.
-(SP)
RO

;SAVE RO
;PUT R3 INTO RO

;PUT SAVED RO INTO R3
;RETURN

SEQ 0¢
7

P\(J

CVMSAB

0 2 MEGAWORD MEMORY EX MACRO Y05.02

Monday 23-Dec-85 08:45

RELOCATION SUBROUTINES.

3041
2042
3043
3042
3045 014626
014696

014630
014632
3046 014634
3047 014636
3048 014640
3049 014644
3050 014646
3051 014650
3052 014652
3053 014656
3054 014660
3055 014660
3056 014666
3057 014672
3058 014676
3059 01702
014706
3060 014710
3061 014712
3062 014716
3063 014720
3004 014722

3065 014724
014730

3066 014732
014734
3067 014730
014742
014744
2068 014746
3069
3070
3071
3072
307

.SBTTL
;i A

004567
024704

010346
004767
012604
01260
012602
00020

014764
014766
014770
014770
014772
014774
015000

000007
000000

3033 015014
3084 015022

020000

1%:

020000

28:

164226
164224
164212
164210

003136

005022

010046
010146

005767
001441
012737
012700

162737
006000

R2.—§SP3
R3.-(5P

MOV

Ens)..

MOV
MOV

320000, R4

CMP

BR
DEC
BNE
JSR

43
R4
28
RS

MOV

R3,

MOV

SP)+,R4

:iCHECK THE DATA JUST MOVED.

$GDDAT
$BODAT
$GDADR
$BDADR
$ERROR
_

:BR IF DATA OK.
:GET SOURCE DATA.
;GET DESTINATION DATA.
:GET SOURCE ADDRESS.
;GET DESTINATION ADDRESS.
:4#% ERL.OR *++ (GO TYPE A MESSAGE)
_:ERROR TYPE CODE.

:ADJUST RETURN POINTER.

.FATAL ERROR!''

$PRINT
-gsp)

$TYPAD

5P)+,R3
SPYe . R2

AR R AR AR R

‘RESET THE COUNTER.,

RELOCATION
FAILED.

:G0 BACK AND TRY AGAIN.
:COUNT WORDS.
:BR IF MORE.
;GO PRINT OUT THE FOLLOWING MESSAGE.

:ADDRESS OF MESSAGE 10 BE TYPED
: "PROGRAM RELOCATED TO *

:PUT THE DATA ON THE STACK.

:DETERMINE THE PHYSICAL ADDRESS AND TYPE IT.

: ;:POP gTA K INTO R4

::pOP STACK INTO R3
::POP STACK INTO R2

:RETURN

R AR KR AR

SRR KRR AR R AR

AR RR R

AR KRR

Rk 2

SUBROUTINE TO MOVE PROGRAM FROM BOTTOM TQ TOP 8K BANK OF 128KW
HIGHEST AVAILABLE

HIGHEST AVAILABLE

BANK WITH KT WILL BE 700000 - 737776

BANK NON-KT

MEMORY.

WILL BE 100000 - 137776

f%'

PRGMAP

;ggfigg 8QAT THE PROGRAM IS NOW IN BANKS O AND 1.

JSR

PC,

$ERROR

:#4% ERROR #¢& (GO TYPE A MESSAGE)

WORD

MOV
MOV

ao.-(spg
R -(5P

;FATAL ERROR

163536

HALT

.ERROR TYPE CODE.

FATAL ERROR''!

MAVA

MOV

27600,

SUB

2400, ' FKIPAR3

MOV

ROR

10$

PROG SHOULD BE IN BANKS O AND 1

;;PUSH RO ON STACK
::PUSH R1 ON STACK

157

BEQ

172346
172346

;MOV THE DATA.
:COUNT THE WORDS.
:BR IF MORE.

RELTOP: ggg

1%:

000400

PRELOC

:SET UP 8K COUNTER.

cobhkkkdbbsbhbhkbbkkbkhhkkdbk
bk bdshhkkbksbbbdb bt bhbhbkbbhbkbsbRbARE kbRt

007600
100000

-(R3)

84,

RTS

003060

-(R2),'

SUB

SiRRRRAR AR RS R

163556

(R3)+

38
(R2).
(R3),
R2.
R3,
PC.
23

PV TN TYRTINY

:GET FIRST LOCATION OF DESTINATION.

(R2)+,
R4
1

BEQ
MOV
MOV
MOV
MOV
JSR
WORD

Y Y

:GET FIRST LOCATION.

MOV

MOV
DEC
BNE

MOV
MOV

000001

R5)+.

Y P T

::PUSH R4 ON STACK

420000, R4

JSR

‘e

R4 -(5P)

::PUSH R2 ON STACK
:PUSH R3 ON STACK

MOV

JWORD

006526

MOV
MOV

HALT

000004

022767
001404
004767

3079
3030
3081 015002
308¢ 015010

4s:

;#+

074 014750
3075 014756
3076 014760
3077
3078

RELOCATION SUBROUTINES.

RELOC:

010246

SEQ 0078

SRR EREEAERAAKRKRREKRREARRE
KRR AR Rk R bRb b bbb b bbb bbb bbb nbn i

;# ROUTINE TO RELOCATE PROGRAM CODE

010346
010446
012502
012503
012704
012223
005302
001375
012708
024243
001417
011267
011367
010267
010367
004767
000023
00000C
162705
000746
005304
001355

Page 21

@OKIPAR3 ;SET PAR TO TOP OF MEM

#8IT15, RO

;0 HI 128K,

;..L0 64K,

;BACK DOWN ONE BANK.

{

x ("

SVMSAB

0 2 M sgs*oRESHEHORY EX MACRG 105.02

RELOCATION SUBROUTINES.
001770
013737
162737
030067
00103
00456
000000
040000
013737
013737

3098
3099
3100
3101
3xo§
3103
3104

015102

000461

015104
015110
0'5118
015120
015122

012700
012701
162701
006200
103406

3105 015124

3106
3107
1108
3109

030067

015130
015132
015126
015140
015140

004767

015144
3110 015146
3111 015150
3112 015154
3113 015160
3114 015162
3115 015168
g%%g 015170

000007
000000
010167
004567
000000
000000
010167
060107

3118 015172
3119 015174
3150 015200
1451 015204
3122 015210
3153 015214
3104 015220
3125 015224
3126 015230
3157 015034
3128 015236
3199 015280
3130 015244
3131 015246
3132 015252
015254
3133 015256

060106
010167
060137
060137
060137
060167
060167
062701
066721
005721
001776
024127
001371
010067
012601
012600
066716

3134 015262
3135

3135
3117

001771
030067
001404

000207

172346

000209

163460

172344
172344

s,
as:

177544
172344
172346

3087 oxgg 2
1088 (15034
3589 015082
3090 015050
3991 015022
3092 015056
3093 015062
3094 015064
3095 015066
gggg 015073

164462

~J ~J

103445

3086 oxsoge 030067

3085 015028

2340
2342

Monday 23-Dec 85 18:45
90's
RO,
28

MEMMAP

JSR
_HORD
-WORD

RS.

RELOC

4oooo

MOV

3¢KIPAR3 3aKIPARL :RELOCATE HI BANK

MOV
SUB
BIT
BNE

88113,

040000

11s:

SUB

164364

000006
177446

163342

%0s

MOV
ASR

BCS
BIT
BEQ
BIT
BEQ

12¢:
13$:

MEMMAP
PRGMAP
$ERROR

:SET BANK POINTER TO TOP QOF MEM

:SET ADDRESS POINTER TO T0
:BACK DOWN ONE BANK.

:MOVE POINTER DOWN ONE BANK.

:BR IF
:CHECK
:BR IF
;CHECK
:BR IF

OVERFLOW.
IF THIS BANK EXISTS.
NON-EXISTANT BANK,
FOR A PROGRAM CONFLICT.
NO CONFLICT.

;#4+ ERROR #++ (GO TYPE A MESSAGE)

.ERROR TYPE CODE.

FATAL ERROR''! NOT ENOUGH MEMORY??
{3$
;SET DATA FOR RELOCATION SUBROUTINE.
RELOC
:GO RELOCATE THE PROGRAM TO TOP OF MEM.

R1,
RS,
O
0
RL,
R1

RELOCF
PC

:SOURCE STARTING ADDRESS.
:DESTINATION STARTING ADORESS.
:SET RELOCATION FACTOR IN UNRELOCATED CODE.
:JUMP T0 RELOCATED PROGRAM
;ADJUST THE STACK POINTER TO TOP OF MEMORY.

PROGRAM NOW EXECUTING OUT OF 'TOP OF MEMORY
ADD

R1,

ADD
ADD

R1,
R1,

AFERRVEC' ;ADJUST ERROR VECTOR.
S4PWRVEC :ADJUST POWER FAIL VECTOR.

MOV

163710
163706
002004
163276

ADG
ADD
ADD
ADD
ADD

000004
000024
000114

14$:
15¢:

16¢:

177717

308:

1ST
BEQ
CHP
BNE

RY.

RELOCF

:SET THE RELOCATION FACTOR.

R1,
*PARVEC :ADJUST PARITY ERROR VECTOR.
R1,
SWR
ADJUST SOFTWARE SWITCH REGISTER.
R1
DISPLAY :ADJUST SOFTWARE DISPLAY REGISTER.
*RADTAB,R1
;POINT TO THE RELATIVE RELOCATION TABLE.
RELOCF, (R1)+
;ADD RELOCATION FACTOR TO ADDRESSES IN TABLE.
(RD)+
163
-(R1),
154

#-1

MOV
MOV

RO
PRGMAP
gs#)’ R1

ADD
RTS

RELOCE, (SP)
PC

MOV

90
RO,
11§
RO,
124

163332

163250

240000, R1

WORD

WORD
WORD
MOV
ADD

PC,

HALT
MOV
JSR

:BR TO COMMON EXIT.

2140000, R1

JSR

:FATAL ERROR

163262

;GO RELOCATE PROGRAM,
:SOURCE FIRST ADDRESS.
'DESTINATION FIRST ADORESS.

B2KIPAR2,34KIPARO ;RELOCATE LO BANK
304

MOV

002700

S2KIPAR3, 3eKIPARS COPY PA
2200,
3¢-IPAR2 EAEK DOWN WITH LOW PAR.
RO
PRGMAP ;CHECK FOR CONFLICT.
904
_
;ABORT IF DESTINATION OVERLAYS SOURCE.

108:

163376

CHECK FOR BANK EXISTS.
:BR IF Ng gm« FOUND.

PROGRAM SHOULD NOW BE EXECUTING OUT OF LAST TWO BANKS OF MEMORY

000010

140000

SEQ 0079 |

BCS
8I7
BEQ

HOV

Page 21-1

5P).

: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
:POP STACK INTO RO

iADJUST RETURN ADDRESS.
:RETURN

dhhhdbkhkkbhibbhhbhhkbhhkbhhkhkhks hkkkddhhhhhbkbdrhkbbbhidhhbdbdboddksk

SUBROUTINE TO RELOCATE PROGRAM BACK TO BANKS O AND 1.

-2 MEGAWORD MEMORY EX MACRO Y05.02

Monday 23-Dec-85 08:45

172344
000200
177276

[s 2}

012737

172340

000200

1s;
172346

172342

PRGMAP

JSR

$ERROR

WORD

157

MMAVA

JSR

RS,

BEQ
HALT

BEQ
CLR
MOV

SEQ 0080

bbbt b b bbb bbbt bbbt

dbsdhtn

;CHECK FOR PROGRAM ALREADY IN BANKS O OR 1.

:BR IF NO CONFLICT.

;%% ERROR ##* (GO TYPE A MESSAGE)
.ERROR TYPE CODE.

.FATAL ERROR!!'

PROCRAM ALREADY IN BANKS O OR 1111

;CHECK 'FOR MEM MGMT.

104
:BR IF NO MEMMGMT.
AKIPAR?
:SET PAR 2 TO BANK 0.
200,
@4KIPAR3';SET PAR 3 TO BANK 1.

RELOC

;A0 MOVE 8K INTO BANKS 0 AND 1.
:SOURCE STARTING ADDRESS.

‘WORD
¢LR
MOV

40000
:DESTINATION S1AF ING ADORESS.
A(IPARO
:RESTORE PAR O TO BANKO.
2200,
@4KIPAR1 ;RESTORE PAR 1 TO BANK 1

304

;:BR TO COMMON EXIT.

MOV
MOV
JSR
.WORD
WORD
SUB

RELOCF, -(SP)
(sP), = 203
RS,
RELOC

;PUT RELOCATION FACTOR ONTO THE STACK.
:SET DATA FOR RELOC SUBROUTINE.
:60 MOVE THE PROGRAM BACK TO BANKS O AND 1.

(SP),

: JUMP 70 RELOCATED PROGRAM.

.« PROGRAM IS NOW EXECUTING OUT OF BANKS 0 AND 1.
108:

163156
000004
177242

20$:

O
0

:SOURCE STARTING ADDRESS.
:DESTINATION STARTING ADORESS.

flT%mmMMMMMMWMMWHMM

SUB

002004

ba e e fO = S22 tNSY
O RRWNO
~J U
NN NO ~IND ~JPOTL
NHNIO= YOS

OO
=

BIT

WORD

000440
016746
011667
004567
000000
000000
161607

dbsdsbhbdb kbbb bbbkt bh bbbk bbb bbb

RELO:

;FATAL ERROR

163226

-y

163282

002544

N NN
N NN

B2 NN NN

s
ps
ek et o

orge-furted

(M U

000001

Page 21 2

000002

MOV
MOV

RO, -(SP)
ARADTAB, RO

(5P),

:RESET THE STACK POINTER.

SUB
IST

2(SP),
(RO)+

(RO)+

;RESET ADDRESSES 7O UNRELCCATED VALUES.
:CHECK FOR TERMINATORS.

SUB
SUB
5UB
SUB
5UB
SUB
(LR

5P),"
SP).
5P,
SP).
§P).
(5P)+,
RELOCF

S4ERRVEC' :ADJUST ERROR VECTOR.
FHPWRVEC :ADJUST POWER FAIL VECTOR.
S4PARVEC :ADJUST PARITY ERROR VECTOR.
SWR
:ADJUST SOFTWARE SWITCH REGISTER.
DISPLAY :ADJUST SOFTWARE DISPLAY REGISTER.
(SP)
;ADJUST RETURN_ADDRESS.
:RESET RELOCATION FACTOR.

: :PUSH RO ON STACK
:SET UP POINTER TO RELATIVE ADDRESS TABLE.

N N UN N N N O

=
e O OO0O0M
RO
ONOON

n
n

—_0
O

Porarfururt
o Tur et urdu-durPurd et
(8,
N

21$:
22¢:

177777
000004
000024
000114
163466

163464

0127617
000207

163056

000001

163052

23s:
30s:

BEQ
CHP
BNE
HOV

MOV

RTS
§ 3 Rk

N G

O O

O (O

N N (O O

032767

e e e

LNLNE;OM
CDJDHJC>J>OH“JC>izflJ€§

(O, 10, 16,0, [V, [V, [V, [§,IV,T9,
1V, |

e (e Pt

QOO0 OOOOOOO

P
-

wn
(70

(=]

015360

N M L

OLLHED

e gt e P

N NN N N N NN N(N NN NN N NN

elate]

LS 1,91,§
~3~JO
200
H

SUBROUTINES.

22¢
-(RO),
#-1
21$
SP;..Ro

a1,
PC

:BR OVER TERMINATORS.
:CHECK FOR END OF TABLE INDICATOR.
iBR IF MORE ADDRESSES IN TABLE.
: ;POP STACK INTO RO

PRGMAP ;SET PROGRAM MAP TO POINT TO BANKS O AND 1.
:RETURN.

kKRR KRR

K KRR Rk Rk kR Rk Kk

;% THIS SUBRQUTINE MOVES THE LOADER AREA BACK TQ THE “TOP" OF MEMORY FROM
*+

WHENCE IT CAME.

Rkkk kb

016700
001004
004767

000007
000000

164020
002346

THE tOADER AREA IS SAVED AT THE END OF THE 8K OF

PROGRAM CODE WHEN THE PROGRAM IS INITIALLY RUN.

AESLDR: MOV

BNE
JSR

;FATAL ERROR

WORD

HALT

Rk koo

LMAD,
1$
PC.
7

ok ko

SERROR

Rk kR kh

kR kR

kk &

;CHECK IF THE LOADERS WERE SAVED.

:BR IF LOADER AREA WAS SAVED.
;4% ERROR =#+ (GO TYPE A MESSAGE)
:ERROR TYPE CODE.

.FATAL ERRORI'!

CAN'T RESTORE LOADER AREA IF IT WASN'T SAVED.

CVMSAB

0-2 MEGAWORD MEMORY EX MACRO Y05.02

RELOCATION SUBROUTINES.

7191 015502
319¢ ©15506
3193 015510
31194 015514
7195 015520
3196 015524
3197 015526
3198 015530
3199 015532
3200 015536
3201 015542
3202 015544
gggg 015550

3205

3206 015552

005767
001402
005037
012701
012702
014140
005302
001375
005067
005767
001402
005237
000207

005767

163030

1¢:

177572
040000
003000

2s:
38

163752
162774
177572

163732

43
;*

001024
012700
010001

3211 015574

011020

1s:

3213 015600 022626
3214 015602 012737 023430 000004
3215 015610 010046

2%:

3217 015616

3212 015576

040000

000776

3216 015612 012702 003000

3218 015620

3219 015622
3220 015624
3221 015630

014041

005302

001375
012667
000207

163660

TST
BEQ
CLR
MOV
MOV
MOV
DEC
BNE
CLR
18T
BEQ
INC
RTS

MMAVA
2%
3% SRO
#40000, Rl
#1536., R2
(Rl)
-(RO)
3$
LMAD
MMAVA
43
Sr0
PC

Page 21 3
;CHECK FOR MEM MGMT,
;SKIP TF NO MEM MGMT.
;DISABLE MEM MGMT,
:GET END OF 8K, ASSUME PROG NOT RELOCATED.
;GET _COUNTER.
;MOVE THE LOADER AREA.
;COUNT HOW LONG THE AREA IS.
;BR_IF NOT MORE TO MOVE.
;CLEAR MONITOR SAVED FLAG
;CHECK FOR MEM MGMT.
;BR IF NO MEM MGMT.
;ENABLE MEM MGMT.
;RETURN.

ROUTINE TO SAVE THE LOADERS AT THE END OF 8.

SAVLDR: TST

3207 015556
3208 0'5560
3209 015564

3210 015566 012737 015600 000004

Monday 23 Dec 85 08:45

LMAD

BNE
MOV
MOV

4%
“40000 RO
R1

MOV

R05

MOV
BR

cHpP
MOV
MOV

MOV
MOV

DEC

BNE
MOV
RTS

w2§ Q#ERRVEC
(RO)+

;CHECK IF LOAUERS HAVE BEEN SAVED ALREADY.
;BRANCH IF ALREADY SAVED
;GET END QF 8K
;GET END _OF 8K

;SET UP TIMEQUT VECTOR

;SEARCH FOR END OF MEMORY
;KEEP SEARCHING

(SP)*
(SP)+ _ :RESTORE STACK POINTER
‘ERRTQP a ERRVEC ;RESET TIMEQUT VECTOR.
(
SAVE LAST MEMORY_ADDRESS (CONTIGUOUS)

w1536
-(RO)

-(Rl)

3$
(SP)+,
PC

LMAD

:SET_UP WORD COUNTER
;SAVE_THE LOADERS
;COUNT THE WORDS

;BRANCH IF MORE WORDS
;SAVE LAST MEMORY ADDRESS
;RETURN

SEQ 0081

CVMSAB

0-2 MEGAWORD MEMORY EX MACRO Y05.02

PARITMY MEMORY TRAP SERVICE AND SUBROUTINES.

Monday 23-Dec 85 08:45

Page 22

SEQ G082

3223

(SBTTL

3205
3226

4 PARITY MEMORY UNEXPECTED SRROR TRAP SERVICE ROUTINE.
i+ FIND OUT WHICH REGISTER DETECTED THE ERROR.
:« THEN SCAN MEMORY TO SEE IF PARITY ERROR STILL SET AND REPORT LOCATION.

3224

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.

tttttttttttttttittttttttttttt*tttttttttttttttt‘tttttttttttttitt

3207
3228

3329 015632

011667

3230 015636

004567

3231 015644

010146

015632

015646

024643
010346

3232 015650 016703
3233 015654 005733
3232 015656 100415
3235 015660

005713

3237 015664

004767

3235 015662
015670

001374

BESRV:

004110

15:

3244 015712
015712
015716
015722
3245 015724
7546 015730

004767
004767
000025
004767
000761

015733
015734

012603
012601

000262

44:

MOV
TST
SMI

MPRX,
a(R3)¢

UNEXPT
R3-(SP)

157

(R3)

JSR

WORD

BR
157
BEQ
ST
BPL
JSR
JWORD

MOV
MOV

RTI

3250

3261 015772
3262 015774
gggg 016002

R1,-{SP)

34
30070$: JSR
JSR
JWORD
JSR
BR

001010
002122

gggmm% 000002
3251
3052
3253
3554 015740
3255 015744
3556 015746
3257 015754
3258 015756
3259 015762
3260 015764

MOV

;4x4ERROR*%+

2¢:

BNE

000024

(SP),

JSR

MOV

002154

000417
005713
001415
005733
100374
004567 004042
024734

MOV

WORD

164150

3238 015672
3239 015674
3230 015676
3241 015700
3242 015702
3243 015704
015710

3247 015732

shhkbbrkhbbkhkbbkh kb Rk

163254

ko khkhh Rk

$BDADR

$ORINT

kb khsh kb hb kb

dhbhkhkhbhk

:GET PC OF INSTRUCTION WHICH CAUSED ERROR.
;GO PRINT OUT THE FOLLOWING MESSAGE.

:ADDRESS OF MESSAGE 10 BE TYPED

: "UNEXPECTED nsnonv PARITY TRAP. "

..PUSH RI ON STACK

'R3

:PUSH R3 ON STACK

*AETPOINTER 0 PARITY REGISTERS.
:CHECK THE PARITY REG FOR AN ERROR FLAG.
:BR IF THIS REGISTER SHOWS THE ERROR.
:CHECK FOR TABLE TERMINATOR.

SERROR

:BR IF MORE REGISTERS.

44 ERROR *% (GO TYPE A MESSAGE)

N0 QEGISTER INDICATED ERROR

:ERROR TYPE CODE.

(R3)
8(R3)+
24
RS
MTOE
PC,
PC.
25
PC.
28

$PRINT

:"MORE THAN ONE ERROR FOUND. "

SPRNT@
SERROR
PSCAN

gspgo.ks
§PY« R1

kkkkkkkk ko kkkk ok

SEXIT
:CHECK FOR TABLE TERMINATOR.
:BR_IF NO MORE PARITY REGISTERS.
:CHECK THE PARITY REG FOR AN ERROR FLAG.
:BR IF NO ERROR FLAG.
GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE 10 BE TYPED
;SET UP VALUES FOR ERROR PRINTING.
%%+ ERROR ##% (GO TYPE A MESSAGE)
:ERROR TYPE CODE.
:GO SCAN MEMORY FOR BAD PARITY.
:G0 LOOK FOR MORE ERRORS.
;iPOP STACK INTO R3
:POP STACK INTO Ri

‘RETURN.

kk ok kokokkokd ok dkokkkkkkokkokok kkkxkkkkkkkkkkkkkkkkkkkkk

‘A0UTINE TO ENABLE PARITY ERROR ACTION ON MA/MF PARITY MEMORIES
:THIS ROUTINE IS MEANT TO CATCH UNEXPECTEDS
005767
001434
032777
001030
005767
001410
032777

001004
026727
103415

3265 016004

016737

3267 016016

010346

o dkok dok ok ok o ok ok ok ok d ak ok ok ok o o e ok ko ok ok sk ok ak sk ol sk ok ale e ok ok o sk sk ok e ok ko ak ok ok ko ko sk ok ok ok ook ok ok ok

165426
000100

BAMF:
163154

162550
000040

163136

,
163762

001000

164022

000114

3256 016012 005037 000116

TST
BEQ
BIT
BNE
757
BEQ
BIT

MPRX
MAMF 2
#SW6,
MAMF 2
RELOCF
SETAE
3SWS.

MOV

.PESRV,

MOV

R3,-(59)

BNE
CMP
BLO

SETAE:

CLR

@SWR
@SWR

SETAE
FSTACR, #1000
MAMF 2

:CHECK IF ANY PARITY REGISTERS EXIST.
:EXIT IF NO PARITY REGISTERS.
:CHECK FOR INHIBIT PARITY ERROR DETECTION.
:EXIT IF NO PARITY ERROR DETECTION.
:CHECK IF PROGRAM RELOCATED GUT OF BANK 0.
:BR IF PROG IN BANK 0.
:CHECK IF VECTORS PROTECTED.

:BR IF VECTOR AREA PROTECTED.
:CHECK FOR STARTING ADDRESS ABOVE THE VECTORS.
:EXIT IF VECTORS EXPOSED TO TESTING.

@%PARVEC ;SET PARITY ERROk TRAP VECTOR

#PARVEC+2

.BRIORITY LEVEL 0 ON TRAP
:;PUSH R3 ON STACK

0 2 MEGAWORD MEMORY EX MACRC Y05.02

MEMORY TRAP SERVICE AND SUBROUTINES.

016020

016703

016024

052733

016032
016034

001374
012603

016030 005713

016036

164000

000001

Monday 23-Dec-85 08:45

MAMF1:

000207

MAMF2:

MOV

.MPRX,

BIS

4AE

BNE
MOV

MAMF 1
(SP)+,R3

157

RTS

(R3)

d(R3)+

Page 22-1

SEQ 0083

;GET PARITY REGISTER TABLE POINTER.

;SET ACTION ENABLE BIT IN PARITY REG

;CHECK FOR END QOF TABLE.

;BR_IF MORE PARITY REGISTERS.
; :POP_STACK INTO R2

;QETURN.

cikkkkkkbbkkkkkkbkhhkkkkkhhbkhkhkhkhkkhhhhkhhhkhkkhhkhkhkkhrkkhbkhkhhd
bk kkk

4+ SUBROUTINE TO CHECK PARITY REGISTERS FOR ERRORS THAT DIDN'T TRAP.
kb kbkkbhkkb kb khkhkkkkkkk kb kkkkkkbkkhkkhhkhkkkkkkhkkkkkkhkkkhkkkkkkhokk
tiiGee:

016040

016040 005767 165326

CKPMER: TST

016044
016046
016054
016056

001437
032777
001033
010346

016064
016066

005733
100023

016076

001410

016104

004767

016112
8%2{53

000411
004767

000072

016120

004767

000602

30072¢: JSR

016130
016132
016136
016140

000027
004767
005713
001351

016060 016703

000100

016100 004767 000622
016110

016124

016142

000026

004767

163054

163740

016070 032773 000001
001734

001714

000054

012603

016144 000207

BEQ
BIT
BNE
MOV

1$:

177776

MOV

3BIT0,

3-2(R3) :CHECK IF A TRAP SHOULD HAVE OCCURRED.

pC.,

SPRNTQ

JSR

PC.

BR
JSR

JSR

JWORD
JSR
757
BNE
MOV

RTS

; Rk ok

:BR IF NO PARITY REGISTERS.
:CHECK FOR INHIBIT PARITY ERROR CHECKING.
:BR IF PARITY ERROR CHECKING INHIBITVED.
::PUSH R3 ON STACK

“R3

BEQ

"WORD

;CHECK IF ANY PARITY REGISTERS EXIST.

MPRX,

a(R3)+
38

30071$: JSR

4s:

4%
AGW6,
a@SWR
4%
R3,-(SP)

15T
BPL

BIT

MPRYX

SERROR

:GET PARITY REG TABLE POINTER.

:CHECK THE PARITY REG FOR AN ERROR FLAG.
:BR IF NO ERROR
:BR IF NO ACTION ENABLE.

CHGGZ

:SET UP VALUES FOR ERROR PRINTING.

%% ERROR #%* (GO TYPE A MESSAGE)

:ERROR TYPE CODE.

33
PC,

PSCAN

;GO SCAN ALL MEMORY FOR PARITY ERRORS.

PC.

SPRNT@

:SET UP VALUES FOR ERROR PRINTING.

PC.

27
PC
(R$)
1$

SERROR

PSCAN

(SP)+,R3

;%% 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

FAETUR

Rk Ok
Rk ok bk ok kok Rk bk kbR ko

;* SUBROUTINE TO VERIFY THAT THE PARITY CSR_DOES CONTROL THE BANK

:% UNDER TEST. MATCH THE BANK UNDER TEST WITH_THE PARITY MAP TABLE.
;% RETURN IF MEM BANK HAS BEEN MAPPED IN PARITY MAP TABLE.

t RETURN+2 IF ERROR,MEM BANK HAS NOT BEEN MAPPED.
B

016146

OO0 ~J
N BN

NN
Pt et

AN G

N O
O
U
it Pt pts et

N N N N O

N O

N
NN
o O O O

016146
016150

016152
016154
016160
016164
016166
016170
016172
016174
016176
8%2583

010046
010146

010446
012700 000020
016701 163632
010304
005724
032124
001003
005300
001374
005725

PARMAT:

1$:

MOV
MOV

MOV
MOV
MOV
MOV
15T
BIT
BNE
DEC
BNE
TST

RO.-§SP3
R1.-(SP

R4 -{5P)
#20,R0
.BItPT,R1
R3 R4
(R4)+
(R1)+,(R4)+
28
RO
1
(RS)+

;iPUSH RO ON STACK
: 1PUSH R1 ON STACK

P TP R

P T egy

: :PUSH R4 ON STACK
'COUNT OF PARITY MAP TABLE
:MEM BANK UNDER TEST POINTER
:STORE PARITY MAP TABLE
:MOVE PAST CSR ADDRESS TO MAP TABLE
:CHECK FOR TABLE MATCH
:BR IF MATCH MADE IN TABLES
:D0 NEXT WORD IN TABLE
:BR TO NEXT WORD IN TABLE
NO MATCH MADE,RETURN +2

Monday 23-Dec 85 08:45
MOV
MOV
ggg

012604
012601
012600
000205

{SP)+ R4
2SP§~.R1
RgP +,RO

Page 22 2

SEQ 0084

::POP STACK INTO R4
; :POP STACK INTOQ Rl
; ;POP STACK INTO RO

kR Rk Rk kk kR kR kR kR

Rk Rk kR

Rk R R

iRk kR

R Rk

AFTER A PARITY ERROR IS ENCOUNTERED THIS SUBROUTINE IS USED
T0 SCAN ALL PARITY MEMORY PER THE PMEMAP TABLE LOOKING FOR BYTE LOCATIONS
CAUSING THE PARITY ERROR.
UPON FINDING THE LOCATION(S) A MESSAGE
WILL BE TYPED AND THE LOCATION WILL BE REWRITTEN IN ORDER TO RESTORE GOOD PARITY.
STORAGE USED:
RO
= BANK POINTER
R1
= PARITY CSR TABLE POINTER (MPRX)
R2
= ADDRESS POINTER
R3
= PMEMAP TABLE ENTRY
R4
= ERROR DETECT FLAG
TEMP
= TEMPORARY STORAGE

MOV
MOV
MOV
MOV
MOV

RO,-(SP)
R1,-(SP)
R2.-ESP)
R3,-(SP)
R4,-(SP)

000114
000116
000116
000116

JSR
MOV
MOV
MOV
CLR

PC CLRPAR
94114, g 3
34116, -(5P
#4116, 94114
116

Yot JREN RN o R
i Nt ~I~J
OO
OWRND PO (ol =4
MO
OISOV~ 0

000001
163520
162236

MOV
MOV
75T

#axro RO
.PMEMAP ,R1
MMAVA

172344
172346
172344
000200

MOV

CLR

@#KIPAR?

.INIT;ALtzE PAR2 TO 0

40000 R

:INITIALIZE ADDRESS POINTER TO MAP THRU PAR2

BERETCIED
OO
N

fiéézfittt*tttt#tttt*tt*t*tt*tt*itt**tt*t*ttt*tt***tt#ttt*ttttttt*t

163422
163452

010046

010146
010246
010346
010446
004567
025020

004767

oO
[=4 1
(=] bt
no W
&W

O
e
=

OO0
OOOW
OMNVFr»O

OOOOOOO OO
H=2 OO0 —p—
PPN WNIELL[eA1aN]

013746
013746
012737
005037
005004
005002

OOOCODOOO
OO0

NI
BOINW
OO
NN
D
OV
NN
NNLY
OONEIND

ONONONOY

gt O

]

et erdur e

OOOOOOOOOOOOOOOL
O

ONONONONONONONONONONONORON
OO
(NN NN rororRLNOLIVON
YW, ]E- SO
NOrs— o OO~~~ LoadeTe
S VOOV
POVMO N nRNOoOALO SO

ururd wrdurd wiurdurturd S uguw -ttt
et udud

ONONONORNONONONON
RNV
N
GINONON)
= ba po i
OO OBMNN

**%******FQ‘

AR KRR RR AR

OCOOO

(N NN
NN NN
NN
NN OININE
DDOEEBERWNWIG
NHBWL-O
D ~J
NN NN NN NN NN NN NN
NN NN NN OO
O
NON NN
Oh
g
Ui UNIIVUINIIN
G B A D
OO
-JRNNE NN+ OODO~IN

016202
016208
016206
016210

NNy

P
>

(NN
NN
WNW

(V5]

NN ON AN N ON O N N NN N NN NN

NN NN NN NN SN
N N NN G
N
NN ANATO
PO MO N rnororO [aS 1,8 oo =T
MO
O 000 ~JON NHBWNOO OO0~y

0-2 MEGAWORD MEMORY EX MACRO Y05.02
MEMORY TRAP SERVICE AND SUBROUTINES.

ffarterturSiiur

PAR I7 Y

005704

001003

JSR
JWORD

003522

000434

CLR
CLR

BEQ
MOV
MOV

MOV

040000

1%
C40000

$PRINT

13
F2KIPAR?, ESP)
2KIPAR3. - (SP)
2200 8#KIPAR3

RO
R1
R2
R3
R4

ON STACK
ON STACK
ON STACK
ON STACK
ON STACK

i0 PRINT OUT THE FOLLOMING MESSAGE.
:ADDRESS OF MESSAGE 10 BE TYPED
: "SCANNING MEMORY FOR BAD PARITY"

GO INITIALIZE PARITY CSR'S
:;PUSH 32114 ON STACK
::PUSH 84116 ON STACK
;éET UP PARITY VECTOR TO
;HALT IF ANOTHER PARITY ERROR 0OCCURS
:INITIALIZE ERROR DETECT FLAG
:INITIALIZE ADDRESS POINTER

:INITIALIZE BANK POINTER
:POINT TO PMEMAP TABLE
:IF MEMORY MANAGEMENT NOT AVAILABLE
;"

THEN BRANCH
;;PUSH @4KIPAR2 ON STACK
:PUSH 34KIPAR3 ON STACK

:INITIALIZE PAR3

BIT
BNE
ADD

RO, (R1)
24
$20000,R2

;IF 8K BANK DOES EXIST
;"
THEN BRANCH
:
ELSE UPDATE ADDRESS TO NEXT 8K BANK

MOVB

(R2),TEMP

;READ THE BYTE LOCATION

A(R3)+

;IF NO ERROR FLAG SET IN CSR

BR
28

R
SCANM

;;PUSH
::PUSH
::PUSH
iPUSH
:PUSH

MOV

BPL
ST
BNE

10$

.MPRX,R3

54
R4
4%

AND BRANCH TO SEE IF SHOULD CONTINUE TESTING

:POINT TO PARITY CSR TABLE
;"
:
:

THEN BRANCH
ELSE IF NOT FIRST ERROR
THEN BRANCH

CVMSAB

(-2 MEGAWORD MEMORY EX MACRO Y05.02

PARITY MEMORY TRAP SERVICE AND SUBROUTINES.

3362 016362

%ggg 016366
3365 016370
016370

016374
016400
3366 016402

3367 016404

005367

162514

004767
004767
000030
111212

000332
001444

005204

Monday 23-Dec-85 08:45

DEC

SEQ 0085

$SERTTL

;

JSR
.WORD
MOVB

PC,
SPRNTQ
PC,
$ERROR
30
(R2),(R2)

;SET UP VALUES FOR ERROR PRINTING,
;*+x ERROR *#x (GO TYPE A MESSAGE)
;ERROR _TYPE CODE.
;REWRITE LOCATION 1O CLEAR BAD PARITY

1518
IST
BEQ
JSR
.WORD

(R2)
d(R3)+
3¢
RS,
PEWNC

;REREAD LOCATION O SEE IF ERROR CLEARED
;IF_ERROR CLEARED
;
__THEN BRANCh
;GO PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESCAGE TO BE TYPED

CLR

3-2(R3)

1ST
BNE
INC
1ST
BNE
18T
BEQ
cMP
BEQ
BR

(R3)
3¢
R2
MMAVA
1%
FLG30K
b¢
#170000,R2
144
9$

;IF_NOT DONE WITH TABLE
;
THEN TRY NEXT CSR FOR ERROR
;_
ELSE UPDATE ADDRESS POINTER

INC

44
30073$: JSR

005053

Page 22-3

CLR

;

8-(R3)

ELSE ADJUST ERROR COUNT

AND SET ERROR DETECT FLAG

;CLEAR ERROR FLAG_IN PARITY CSR

3368 016405
3369 016410
3370 016412
3271 016414
016420

105712
005733
001405
004567
025042

g%;g 016422

005073

3374 016426
3375 016430
3376 016432

gggg 016456

005713
001350
005202
005767
001013
005767
001404
022702
001467
000423

3385 016460
3386 016464
gggg 016466

022702
001463
000417

160000

6¢:

CMP
BEQ
BR

#160000,R2
144
9%

;IF_28K I/0 PAGE
; THEN ALL DONE CHECKING MEMORY
; ELSE TRY SOMEMORE

3389 016470
3390 016474
3391 016476

022702
001014
005767

060000

7$:

CMP
BNE
15T
BMI
CMP
BEQ
BR

#60000,R2
9¢
MMAVA

;IF_NOT POSSIBLY THE I/0 PAGE
; THEN BRANCH AND TRY SOMEMORE
; ELSE IF 22 BIT ADDRESSING AVAILABLE

CMP

#177600, 3#KIPAR3

9s:
10$:

3377
3378
3379
3380
3381
3382

016434
016440
016442
016446
016450
016454

003332

177776
5¢:
162076

163326
170000

162034

3392 016502
31393 016504
3394 016512
gggg 016514

100405
022737
001444
000404

007600

172346

3397 016516

022737

177600

172346

3400 016526
%28% 016532

032702
001303

037777

3403
3404
3405
3406
3407

016534
016536
016540
016544
016350

006300
001012
062701
016700
062700

%3%? 016560
3412 016564
3413 016570

; IF_MEMORY MANAGEMENT AVAILABLE
;i
THEN BRANCH
; ELSE IF NOT 30K SYSTEM
;
THEN BRANCH
;
ELSE IF 30K I/0 PAGE
;
THEN ALL DONE CHECKING MEMORY

;

13%

;

THEN ALL DONE CHECKING

BIT
BNE

#MASK8K, R2
2%

;IF_NOT DONE WITH THIS 8K BANK
; THEN TRY ANOTHER ADDRESS

000002
163244
000040

ASL
BNE
ADD
MOV
RDD

RO
114
#2,R1
.PMEMEP, RO
#40,R0

;IF_NOT DONE WITH 128K BANK
;
THEN BRANCH
; _ELSE POINT TO NEXT PMEMAP ENTRY
;START _OF TABLE
;END OF TABLE

012700

000001

MOV

#8IT0,RO

;

005767
001004

161746

020001
001422

BEG

CMP
BEQ

11%:

15T
BNE

RO,R1
133

MMAVA
125

;

ELSE TRY SOMEMORE

;
;

8%:

8%
#1600, 3#KIPAR3
134
9¢

; "PARITY ERROR WILL NOT CLEAR"
; CLEAR PARITY CSR

THEN BRANCH
ELSE IF 128K 1/0 PAGE
THEN ALL DONE
ELSE TRY SOMEMORE

%%gg 016524 001437

3408 016554
3409 016556

$PRINT

;IF 2M 1/0 PAGE

;IF_DONE WITH TABLE
; THEN ALL DONE

ELSE REINIT BANK POINTER

;IF_KT AVAILABLE
;
THEN BRANCH

MSAB
0-2 MEGAWORD MEMORY EX MACRO Y05.02
RITY MEMORY TRAP SERVICE AND SUBROUTINES.

3414 016572
3415 016576
gg%g 016600

032700
001016
000653

000020

3418 016602

062737

000400

3400 016616

012702

040000

016624
“02 016630

012637
012637

172346
172344

3425 016634
3426 016636
3427 016640

005704
001003
004567

172344

3419 016610 062737 000400 172346

gggé 016622
3423 016624

228 016644
3429 016646
016646

000642

024264

016652
016656

012637
012637
012604

016662
016664
430 016666

012602
012601
012600

3431 016670

000207

016660

3433

Monday 23-Dec 85 98:45

12%:

28I74,R0
14
1

.
.
:

ADD

£400,34KIPAR2

;UPDATE PARS TO MAP TO NEXT

MOV

240000,R2

REINIT ADDRESS

MOV
MOV

éSP)o.@#KIPARz
SP)+. 94KIPAR?

TST
BNE
JSR

MOV
MOV
MOV

(SP)+,3%116
(5P)+,a4114
§SP30.R4

;;POP STACK INTO @%116
::POP STACK INTO 94114
::POP STACK INTO R4

MOV
MOV
MOV

SP;+.R2
5P)+ R1
§P)+ RO

: :POP STACK INTO R2
::POP STACK INTO R1
: :POP STACK INTO RO

RIS

14%:

003106

WORD

158

000116
000114

012603

MOV

16$:

SEQ 0086

BIT
BNE
8R

ADD

13$:

Page 22-4

2400 94KIPAR3
1

$PRINT

NOPES

5p)+ R3

ELSE IF AT 32K LIMIT
THEN ALL DONE CHECKING
ELSE TRY SOMEMORE

;8K BANK

:AND TRY SOMEMORE

:;POP STACK INTO @#KIPAR3
: :POP STACK INTO 9#KIPAR2
;IF ERROR FOUND
:~
THEN BRANCH
:GO PRINT OUT THE FOLLOWING MESSAGE.

: ADDRESS OF MESSAGE TO BE TYPED

::POP STACK INTO R3

:RETURN

3434

HH s ok sk dk ok ok ok ok ak ok ok o o ok ok ook ok ok ak ok sk ok ok ok ok dk ok ak ok ok ok kok ok ok ok ko kb k ok bk ok ok k ok ok ok k kok & kK Xk

3436

. ;t*#*it&tt*t*ttttt#*t*tttit*tt*ttttttt**##ttt*tttt*t*#*#tttttt*t

3435

:ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT

3437 016672
016672

010346

3439 016700
3430 016702
3441 016704
1442 016706

005713
001402
005033
000774

3438 016674

3443 016710

016710

3444 016712

3442

016703

CLRPAR:
163124

2¢:

; :PUSH R3 ON STACK

75T
BEQ
CLR
BR

(R3)
24
3(R3)+
13

:CHECK FOR THE TABLE TERMINATOR.
:BR IF DONE ALL PARITY REGISTERS.
:CLEAR THE PARITY REGISTER.
:BR FOR MORE

(SP)+,R3

; :POP STACK INTO R3

MOV

000207

RTS

3447

.SBTTL

3449
3450

'x
;%

3448
3451

R3, -(SP)

MOV

14:

012603

MOV

.MPRY,

ok ok kb kokokk kR bk ko kkkkkkkkhkkkkkkkkkkk
kkkkk

THESE ROUTINES ARE USED TO TRANSFER DATA TO COMMON TAG AREA (.$CMTAG)
FOR ERROR PRINTOUT BY .$ERROR & .$ERRTYP ROUTINES FROM #xSYSMACs+.

= o dkokokokokakakokokok ok ok ok ok ok ok sk

010267
005067

162170
162170

SPRNT:

MOV
CLR

R2
$GODAT

3456 016726
3457 016732

014367
013367

162216
162014

SPRNTQ: MOV
MOV

-(R3),
3(R3)+,

3458 016736

000435

016767

163026

162152

:RETURN,

SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE.

kbbb kkokk bkt

3450 016714
3453 016720
gzgg 016724

:GET PARITY REGISTER TABLE PQINTER.

MOV

kok skok ok ok kok kk kk kokkk kkkkkkokkkkkkkkkkkkkkkk
kkk

$GDADR

;SAVE THE ADDRESS UNDER TEST.
:SHOULD BE DATA IS “0".

$TMPO
$TMP1

;GET THE PARITY REGISTER ADDRESS.
:GET THE CONTENTS OF THE PARITY REG.

SPRNTB

TEMP
. $3DDAT

0-2 MEGAWORD MEMORY EX MACRG Y05.02 Monda ‘E23 Dec 85 08:45
SUBROUTINES T0 SET UP DATA FOR ERROR PRINTOUT ROUTI

CVMSAB

3459 016744
3460 016750

010267
000425

162140

MOV

011367
010267
000414

010267
005367
000407

346

3475 017024
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
21490

SPRNTP: HuV

SPREND
(R3),

162120
162114

SPRNT1: MOV
DEC
BR

162146
162102
000002
162074
162072

SPRNT3: MOV
SPRNT2: MOV
Sus
SPRNTA: MOV
SPRNTB: MOV
SPREND: RTS

R3,
R2.
2.
RO,
R1.
PC

SPANTA
sGOADR

$TMPO

$GDADR
$GDADR

SPRNTA

;GET THE PARITY REGISTER ADDRESS.

:GET THE MEMORY ADDRESS BEING TESTED

:BR TO COMMON SECTION.

;GET THE MEMORY ADDRESS BEING TESTED

:ADJUST IT FOR PRINTOUT.
:BR TO COMMON SECTION.

$STMPO
$GDADR
$GDADR
$GDDAT
$BODAT

;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 ERROR ROUTINES

sokkkkkkkkkkokkkkkkhokkkkkkkkkkkokkkokkkkkkkdkkokdkokkkokkokkkkkk
ok kkkkkkk

:%
:x
i+
:x
P+

"
%

THIS ROUTINE WILL TYPE QUT A MAP NF MEMORY BANKS.
UPON ENTERING THIS ROUTINE RO WILL CONTAIN THE AODRESS
OF THE TABLE TO BE TYPED OUT. THE ROUTINE REQUIRES THAT THE
TABLE CONTAIN 1¢ DECIMAL WORDS.
STORAGE USED:

RO
R1

= MAP TABLE ADDRESS
= BANK POINTER

= HIGH MEMORY ADR

"
&

LMEMLO
[MEMAI

3491

349
3493
3494
3495
3496
21497
7498
3499
3500
3501
3502
3503

SEQ 0087

R2, $GDADR

SPRNTO: ggV

162074

Page 22-5

BNKTAB

ENDBKT

FLG30K

= CONSECUTIIVE ZERO BANK FLAG

= HIGH MEMORY ADR

= LOW MEMORY ADR
= LOW MEMORY ADR

... LO 16 BITS

...

...
...

HI & BITS

LO 16 BITS
HI 6 BITS

= ADDRESS OF TABLE 70 BE PROCESSED

= LAST ADDRESS + 2 OF TABLE 10 BE PROCESSED

= 30K MEMORY FLAG

-;ttt#tt*ttttttti*ttttt#t##*t*t*#*tt&t#ttttttttttt*tttitttttttttt

017026
017032
017040
017044
017046
017050
017052
017056
017060
017064

SO0
~1,8)
[o 1,6
e 0

;SAVE ADDRESS OF TABLE
:LOAD END BANK TABLE WITH 40

1%:

(r§)

:ANY MEMORY TN THIS TABLE ENTRY

002666
000426

017526

it
s et pont
Pt

Pt urarurs

RO, 34BNKTAB
#40,3%ENDBKT

017530

i i~~~
~d

3504 017066
3505
3506 0 17072
3507 0 076
0
00
0
0
0
0
0

017530

tyPMaP: MOV
MOV

005067

000410
000406

162646

ADD

167

RO, S4ENDBKT

:GET LAST ADR + 2 INTO ENDBKT

BNE
757
CHP
BNE
JSR
WORD

2$
(RO)+
I4ENDBKT ,RO
14
RS,
$PRINT
NOMEM

JMP

13$

"
:"NO MEMORY FOUND.
(EXTT

MOV
MOV
MOV
MOV
MOV

F4BNKTAB ,RO
1.-€sp)
R2,-(5P)
R3.-§SP3
R4 - (5P

.RESTORE MAP
:;PUSH R1 ON
: :PUSH R2 ON
: :PUSH R3 ON
: 'PUSH R4 ON

CLR
CLR

[MEMHI
TEMP

:INIT LOW MEM ADR ... HI 6 BITS
:INIT LAST BANK IN MAP FLAG

CLR

LMEMLO

.
THEN GO PRINT OUT LOCATIONS
:
ELSE POINT TO NEXT TABLE ENTRY
:IF NOT END OF TABLE
;"
THEN TRY AGAIN
:GO PRINT QUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED

TABLE ADDRESS
STACK
STACK
STACK
STACK

:INIT LOW MEM ADR ... LO 16 BITS

CVMSAB_
0-2 MEGAWORD MEMORY EX MACRO Y05.02 MondanE23-Dec-85 08:45
SUBROUTINES 10 SET UP DATA FOR ERROR PRINTOUT ROUTI
3511 017122
3512 017126
gg%z 017130

012703
010304
012702

1777117

MOV

000001

MOV

3515 017134
3516
3517 017140
3518 017142
3519 017144
3520 017150
3521 017152
%gg% 017154

012701

000001

030110
001405
062703
005504
005002
000541

3524 017156
3525 017160
3526 017162
3527 017164
3528 017170
3529 017172
3530 017176
3531 017200
353% 017202
3533 017206
3534 017210
%g;g 017214

005702
001123
005202
022703
001023
005767
100413
001006
005767
001412
162703
000411

017216
017222
¢17224

022704
001006
000403

000003

017226
017232

022704
001002

3544 017234
3545
3546 017240
017240
01/242
017244
017250
3547 017254
017260

162703

3527
3538
3539
3540
3541
%gg%

3548 017262

549 017264
3550 017266
3551 017270
3552 017274
3553 017300
3554 017304

010346
010446
016746
016746

004567
024005

#-1,R3

;INIT HIGH MEM ADR ... LQ 16 BIIS

#1LR2

;INIT CONSECUTIVE ZERQ BANK FLAG

MOV

#BITO,R1

;INIT BANK POINTER

BIT

R1,(R0)

:IF_THIS 8K BANK IS NOT PRESENT

CLR
BR

R2
11$

:CLEAR_CONSECUTIVE ZERQ BANK FLAG
:GO CHECK FOR NEXT BANK

ST
BNE
INC
CMP

R2
10%
R
#177777,R3

;IF_CONSECUTIVE ZERQ BANK
:
THEN DO NOT PRINT MESSAGE
;_
ELSE UPDATE CONSECUTIVE ZERQ BANK FLAG
:IF_NOT 32K, 128K OR 2M BOUNDARY

15
BMI
BNE
TST
BEQ

MMAVA
78
S
FLG3OK
8§

;
:
;
i
;

6$:

CMP
BNE
BR

43R4
93
8$

:IF_NOT 128K BOUNDARY
;"
THEN GO PRINT
; ELSE GO ADJ TO 124K BOUNDARY

000077

CMP
BNE

#77,R4
9§

;IF_NOT 2M BOUNDARY
:
THEN GO PRINT

020000

8%:

SUB

#20000,R3

;ADJ HIGH MEMORY TO BELOW I/0 PAGE

MOV
MOV

R3,-(SP)
R4,-(5P)

::PUSH R3 ON STACK
::PUSH R4 ON STACK

MOV

LMEMHI,-(5P

MOV

R3,R4

3s:
4%

¢40000

5§¢:

177777

162566

SUB
BR

010000

MOV

000252
000250
002472

ASL ~
ROL
ROR

ASL
ROL
ROR
MOV

000226
000224
000216
000214
"

106746
105066

017316
017322

004767
003

000001

003656

;INIT HIGH MEM ADR ... HI 6 BITS

5%
¥40000,R3

#10000,R3
98

LHEHLO.-(SPg

JSR
RS
WORD ~ FROM

;%
017310
017312

BEQ
ADD

BNE

161340

006303

006104
006003
006367
Q06167
006067
016746

Page 22-6

SPRINT

R3
R4
R3

LMEMLO
LMEMHI
LMEMLO
LMEMHI,-(SP)

;"
;

THEN GO PRINTQUT MAP
ELSE UPDATE HIGH MEM TO TOP OF THIS BANK

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

::PUSH LMEMLO ON STACK

; 1PUSH_LMEMAI ON_STACK

:60 PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TQ BE TYPE

:SHIFT BIT 15 INTQ CARRY
:SHIFT BIT 15 TO ALIGN WITH BITS 17-16
;RESTORE BITS 14-0
:SHIFT BIT 15 INTQ CARRY
:SHIFT BIT 15 TO ALIGN WITH BITS 17 16
:RESTORE BITS 14-0

:;SAVE LMEMHI FOR_TYPEOUT

1 TYPE ADDRESS BITS 21-

THE_NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE T0_THE $T7YPOS ROUTINE

WIHTOUT USING A “TRAP* INSTRUCTION AS CALLED FOR_BY #4SYSMACss,
MFPS
-(SP)
;PUT THE PROCESSOR STATUS ON THE STACK

CLRB

1(5P)

JSR__
BYTE

PC,
3

:HIGH BYTE CLEARED TO INSURE KERNEL MODE

$TYPOS

:ON PSW_RETURN.

;GO TO THE SUBROUTINE
::TYPE 3 DIGIT(S)

SEQ 0088

CVMSAB_

0 2 MEGAWORD MEMORY EX MACRO YOS, 02 Honda‘E23 Dec-85 08:45 Page 22-7

SUBROUTINES T0 SET LP DATA FOR ERROR PRINTOUT ROUTI
017323
3555 017324

000
016746

BYTE
MOV

000172

;#
017330
017332

106746
105066

017336
017342
017343

004767
005
001

3556 017344

017350
3557 017352

004567

024015
010446

;#
000001
003636

.WORD
MOV

017354
017356

106746
105066

017362
017366
017367
3558 017370

004767
003
000
010346

;%
000001

003612

017372
017374

106746
105066

017400
017404
017405
3559 017406
017412
01741€
017420
3560 017422
;gg% 017426

004767
005
001
012667
012667
012604
012603
005767
001030

3563 017430
3564 017434
3565 017436
3566 017442
3567 017446

062703
005504
010367
010467
062767

3570 017460
gg;g 017462

006301
001226

3573 017464
3574 017466
3575 017472
3576 017474
3577 017500

005720
023700
001220
005760
100003

3579 017506

000623

gggg 017454

005567

3578 017502 005267

177776

162262

;GO PRINT OUT THE FOLLOWING MESSAGE.
;RDDRESS OF MESSAGE 70 BE TYPED
::SAVE R4 FOR TYPEQUT
:; TYPE ADDRESS BITS 21-15

THE_NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE

PC,
$TYPOS
3
0
R3,-(SP)

;GO TO THE SUBROUTINE
i TYPE 3 DIGIT(S)
i SUPPRESS LEADING ZEROS
::SAVE K3 FOR TYPEQUT
;: TYPE ADDRESS BITS 14-0

THE_NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE

HIHngg USING A "TRAP” INSTRUCTION AS CALLED FOR BY #&SYSMAC#s.

JSR
BYIE
BYTE
MOV
MOV
MOV
MOV
157
BNE

PC,
$TYPOS
S
1
SP;~.LMEHHI
SP)..LMEMLO
5934.94
SP)+.R3
TEMP
14$

:GO TO THE SUBROUTINE
;s TYPE 5 DIGIT(S)
::TYPE LEADING ZEROS
: :POP STAEK INTO LMEMHI
::POP STACK INTO LMEMLD
::POP STACK INTO R4
::POP STACK INTO R3
:HAS LAST BIT IN MAP PRINTED?
:YES,EXIT TO STACK CLEANUP

ADD
D¢
MOV
MOV
ADD

#40000,R3
R4
R3,LMEMLO
R4 . LMEMAI
#1 "MEMLO

;UPGRADE TO TOP OF THIS BANK
P
:UPDATE LMEM TO THIS BANK
:
iGET TO NEW LOW ADDRESS OF NEXT BANK

118:

ASL
BNE

R1
43

;POINT TO NEXT 8K BANK
:BRANCH IF MORE TO TEST IN THIS MAP ENTRY

12¢:

T1ST
CHP
SNE
15T
BPL

(RO)+
F4ENDBKT ,RO
34
-2(RO)
14

;UPDATE POINTER TO NEXT TABLE ENTRY
:IF NOT DONE WITH TABLE
;" THEN TRY AGAIN
:CHECK IF LAST BANK AVAILABLE
:IF ZERD,TYPMAP PRINT COMPLETED

5§

:PRINT FOR LAST BANK

162342

017530

SPRINT

;:PUT THE PROCESSOR STATUS ON THE STACK
;gfiGgSEYéETngARED 7O INSURE KERNEL MODE

000112
000104

000044

1O
R4, -(SP)

;GO TO THE SUBRQUTINE
:: JYPE 5 DIGIT(S)
i s JYPE _LERDING ZERQS

-(SP)
1(5P)

003574

000060
000056
000001

RS,

$TYPOS

S
CLRB

000001

040000

PC,
5
1

WIHTOUT USING A "TRAP“ INSTRUCTION AS CALLED FOR BY ##SYSMAC##,
MFPS
-(SP)
;PUT THE PROCESSOR STATUS ON THE STACK
CLRB
1(S¢)
;BfiGESBYagTSkfiARED TO INSURE KERNEL MODE
JSR
.BYTE
BYTE
MOV

:: TYPE ADDRESS BITS 14-

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE 10 THE $TYPOS ROUTINE

JSR

; s SUPPRESS LEADING ZERQS
;s SAVE LMEMLO FOR_TYPEOUT

WIHTOUT USING R “TRAP" INSTRUCTION AS CALLED FOR BY ##SYSMACs#,
MFPS
-(SP)
;PUT THE PROCESSOR STATUS ON THE STACK
CLRB
1(5P)
:gfiGgngangksARED TO INSURE KERNEL MODE
JSR
.BYTE
BYTE

002402

0
LMEMLO, (SP)

10$:

000046

ADC

INC

LMEMHI

TEMP

(ELSE SET LAST BANK PRINT FLAG

SEQ 0089

[9]

CVMSAB
0-2 MEGAWORD MEMORY EX MACRO Y05.02 Honda‘ 23-Dec-85 78:45
SJBROUTINES 10 SET UP DATA FOR ERROR PRINTOUT ROUTINE.
3580 017510

017510
017512
017514
1581 017516

012604
012603
012602
012601

gggg 017520

000207

3584 017522
3585 017524
3586 017526

000000
000000
000000

3587 017530

%238
3596

145

000000

Page 22 8

MOV
MOV
MOV
MOV

(SP)+.R4
Espg‘.as
5PJ+
. R2
(SP)+.R1

;;POP
::POP
:1POP
::POP

13§:

RTS

;RETURN TO CALLER

LMEMLO:
LMEMHI:
BNKTAB:

.WORD
_WORD
.WORD

0
O
0

; LOW MEMORY ADR ... LO 16 BITS
: LOW MEMORY ADR ... HI & BIIS
: ADDRESS OF TABLE 70 BE PROCESSED

.SBTTL

SCOPE HANDLER ROUTINE

ENDBKT:

_WORD

STACK INTO R4
STAEK INTO R3
STACK INTO R2
STACK INTO R1

: T0 BE PROCESSED.

: LAST ADDRESS +« ¢ 0" TABLE

H ;ttttttttttttttttttttt*tttttt#tttttttttttt‘ hbkkkkkkhdkbhhhkokhk

:#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:«AND LOAD THE TEST NunaEREsTSTNng INTO THE DISPLAY REG.(DISPLAY<7:0>)
;#AND LOAD THE ERROR FLAG ($ERFLG) INTQ DISPLAY<15:08>
#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
ceSWI4=1
INHIBIT ITERATIONS
:#5W11=1
LOOP ON ERROR
: 45W09=1
;tggef=1
LOOP ON TEST IN SWR<4:0>
1

: &

017532

4SCOPE;
;%

017532
017534

106746
105066

017540
017544

004767
010516

017554

001117

017556

000416

017560

013746

017546

017564
017572

032777

000001

001042

040000

161354

022626
012637
000426

017614
017622
017624

032777
001407
017746

017680
017642
017646
017650

001465
105767
001421

017614

017630
017634

042716
122667

126767

;1 SCOPE=10T

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUTINE
WIHTOUT USING A “TRAP” INSTRUCTION AS CALLED FOR BY #&SYSMACss,

MFPS
CLRB

1(SP

JSR
MOV

PC.
RS

BNE

$OVER

BIT

-Espg

;PUT THE PROCESSOR STATUS ON THE STACK
;gficgsfiYagTBEEAREo 70 INSURE KERNEL MODE

SCKSWR
(SP)

#81114,850R

;GO TO THE SUBROUTINE
:PUT RETURN PC ONTD STACK., SIMULATE JSR PC.

::LOOP ON PRESENT TEST?
L IYES TF SW14=1

.48 42START OF CODE FOR THF XOR tESTERZss2a

§XTSTR: BR
000004

012737 017604 000004
005737 177060
017576 012637 000004
017602 000466
017604
017606
017612

1$:

SCOPE

000004
000400

161306

161300

161231

GSERRVEC.-(SP)

::THIS INSTRUCTION TO A "NOP* (NOP=240
;:SAVE THE CONTENTS OF THE ERROR VECTOR

MOV

(SPJ+,G%ERRVEC

;:RESTORE THE ERROR VECTOR

CMP
MOV
BR

éspg*.(sp)o
SP3+. BERKVEL
7%

::CLEAR THE STACK AFTER A TIME OUT
::RESTURE THE ERROR VECTOR
::LOOP ON THE PRESENT TEST

1
BEQ
MOV

#1708, 3SWR
28
3SWR, - (SP)

;;LOOP ON SPEC. TEST?
;:BR_IF NO
::SET DESIRED TEST NUM. FROM SWR

BEQ
TST8
BEQ

SOVER
$ERFLG
3s

::BR IF YES
: 'HAS AN ERROR OCCURRED?
::BR IF NO
::MAX. ERRORS FOR THIS TEST OCCURRED?

BIC
CMPB
28

161215

458 BRERRVEC =~ ;;SET FOR TIMEOUT
82177060
:: TIME QUT_ON XOR?
$SVLAD

::G0 TO THE NEXT TEST

6. 24255END OF CODE FOR THE XOR YESTERZ2ess

000340
161232
161225

;;IF RUNNING ON THE "XOR" TESTER CHANG

MOV

MOV
157

CHPB

A3SWAMK (SP)
(SP)+,sTSTNM
SERMAX,S$ERFLG

::STRIP AWAY UNDESIRED BITS
:;ON THE RIGHT TEST?

SEQ 0090

N7/

3598

23882285
R3S

161242

161204

161200

161167
161250
004000

Monday 23-Dec-85 08:45

7¢:
4.

161210

161122
161200

;iBR IF NO
..LOOP ON ERROR?
:iBR_IF NO

CLRB

$ERFLG

::ZERO THE ERROR FLAG

$PASS

..IF FIRST PASS OF PROGRAM

161206

161074
161110

$TIMES
1%
#8I711,3SWR
13

BEQ

CMP
BGE

$1IMES, $TONT
$OVER

INHIBIT ITERATIONS

MOV

#1, $ICNT

..REINITIALIZE THE ITERATION COUNTER

MOV

(SP), $LPERR

MOVB

#1, SERMA

MOV

$LPADR, (SP)

MOV

ENDINS: RTS
$MXCNT :

;:CLEAR THE NUMBER OF ITERATIONS TO MAKE
;i ;ESCAPE TO_THE NEXT TEST
..INHIBIT ITERATIONS?
;BR IF YES

..INCREHENT ITERATION COUN

CLR

..SET LOOP ADDRESS TO LAST SCOPE

$TONT

MOV
$SVLAD: INCB
MOVB
MOV

$OVER:

gbCEfiR.SLPADR

CLR
BR
BIT
BNE

INC

1$:

SEQ 0091

3
#81709,35WR
43

15T

161132

Page 22-9

BHI
BIT
BEQ
ggv

161254

QONNLIUNMNA
O

OOCOOOOF+ =200

F )
-

b et et et ot b

3597

020030

001C00

161140
01220

o o

s s et gt

e o

~d~ N~~~
\)\J\J-J:.J\)\J\l\l
I~~~y
~d~J

e @ e

OQODOOOOOOOOOOOOOOOO

0-2 MEGAWORD MEMORY EX MACRO Y05.02
CVMSAB
SCOPE HANDLER ROUTINE

$MXCNT ,$TIMES
$TSTNM
$TSTNM, $TESTN
(SP),$LPADR

$SESCAPE

..CHECK THE NUMBER OF ITERATIONS MADE
;BR_IF MORE_ITERATION REQUIRED
;;3ET NUMBER OF ITERATIONS TO DO
; s COUNT TEST NUMBERS
..SET TEST NUMBER IN APT MAILBCX
; SAVE SCOPE LOOP ADDRESS

:;SAVE _ERROR _LOOP ADDRESS

..CLEAR THE ESCAPE FROM ERROR ADDRESS

;ONLY ALLOW ONE(1) ERROR ON NEXT TEST

$TSTNM, 3DISPLAY ..DISPLAY TEST NUMBER

i FUDGE RETURN ADDRESS

EXIT SCOPE ROUTINE BACK TQ TEST.
;MAX. “NUMBER OF ITERATIONS

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUTINE
NIHTOUT USINGA “TRAP” INSTRUCTION AS CALLED FOR BY ##5.5MAC#s.
SP

PUT THE PROCESSOR STATUS ON THE STACK

020032
020034

106746
105066

000001

CLRB

020040

004767

000542

$CKSWR
PC,
JSR
ERROR HANDLER ROUTINE

SBTTL

1(5p

SRERRARRARRRA P KRR AR AR AR

HIGH BYTE CLEARED TO INSURE KERNEL MODE
:ON PSW_RETY

;G0 T0 THE SUBROUTINE

KRR KRR RARR PR AR AR

AR AR KRR AR R

AR RR bk A&

tTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUN~,
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;#AND GO_TO $ERRTYP ON ERROR

;+THE SWITCH OPTIgN§ 8§0V5DED BY THIS ROUTINE ARE:

- #SWI5=1
:#SW13= 1

ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

tSHlO 1

145409 1
tCALL

iERR

020044

020044
020046

106746
105066

020052
020056
020062
020096
020079
020076

004767
062716

105267

001775
016777
032777

;&
000002

000530
00000¢
161005

160776

002000

ERROR

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE

$CKSWR ROUTINE

WIHTOUT USING A "TRAP” TNSTRUCTION AS CALLED FOR BY #&SYSMACss
MFPS
PUT THE PROCESSOR STATUS ON THE STACK
-(SP)
HIGH BYTE _CLEARED TO INSURE KERNEL MCDE
CLRB
1(5P)

JSR

78-

ADD
INC8
BEQ
MOV
BIT

ssérLG

$CK

(Sp

;ON PSH RETURN.

;GO TO_THE

SUBROUTINE

:ADJUST POINTER PAST CODE WORD.

..SET THE _ERRCT FI AG
;DON'T LET THE FLAG GC TO ZERQ
STSTNH dDISPLAY ..DISPLAY TEST NUMBER AND ERROR FLAG

881710, aSWR

::BELL ON ERROR?

SVMSAB

ERROR HA

4 " 80??52 MEMORY EX MAZRG v05.02
LE

Monday 23 Dec 85 08:45

001493
004567

BEQ

001640

160762

001

161024

160706
002152

000004

22%:
2s:

160670

160632

001402
016716
022737
001001
000000
3599

020272

160710

160702

‘.

012722

000042
6$:

000207

E§P2E§E§?Pc

SERTTL

-4

::NO - SKIF

;40 PRINT CUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE 10 BE TYPED
; ;COUNT THE NUMBER OF ERRJRS

.iGET ADDRESS OF ERROR INSTRUCTION

MOVB

QS$ERRPC,SITEMB

;:STRIP AND CAVE THE ERROR ITEM CODE

JSR
WORD

RS
S$CALF

;G0 PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED

S8IT13,35WR
208
PC, SERRTYP

SPRINT

: 1 SKIP TYPECUT IF SET
::SKIP TYPEQUTS
::G0 70 USER ERROR ROUTINE

CMPB
BNE

ZAPTENV, $ENV
24

; ;RUNNING IN_APT MOCE
::NO,SKIP APT ERROR REPORT

JSR
BYTE
BYTE
BR
15T
BPL
HALT

PC,$ATYS
0
0
224
ASWR
8

: ;REPORT FATAL ERROR TO APT

SITEMB. 215

::SET ITEM NUMBER AS ERROR NUMBER
; ;APT ERROR LOOP
: HALT ON ERROR
::SKIP IF CONTINUE
. :HALT ON ERROR!

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE 70 THE $CKSWR ROUTINE

3s.
4s:

$PRINT

SEQ 0092

WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY #&SYSMAC#4,

000001

000354
001000

§8§

MOVB
218

160714

RS
$BELL

8IT
BNE
JSR

208

000001

JSR
CWORD
ine

160754
160744
160762

Page 22 10

MEPS
CLRB

-gspg
1(Sp

JSR

8EQ

157

$ESCAPE

BIT

MOV

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

$CKSWR

81109, 3SR
SLPERR, (SP)

BEQ
MOV

5$
$ESCAPE,(SP)

CHP
BNE

SSENDAD, 3242
63

RTS

HALT

;ON PSW_RETURN.

;G0 TO THE SUBROUTINE

:;LOOP ON ERROR SWITCH SET?
::BR IF NO

::FUDGE RETURN FOR LOOPING

: :CHECK FOR AN ESCAPE ADDRESS

::BR IF NONE
::FUDGE RETURN ADDRESS FOR ESCAPE
;:ACT-11 AUTQ-ACCEPT?
; :BRANCH IF NO
: 1 YES

sokkbkkkhkbbbdbbbhbbhbkbbbhbbhkdibbhdkhbbhkikihhhhkhhbkhkdhbkhxhkkkks

.SBTTL

ERROR MESSAGE TYPEOUT ROUTINE

;#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH

;#ERROR IS TO BE REPORTED. IT THEN OBTAINS,

FROM THE "ERROR TABLE" ($ERRTB),

:«AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

020274
020274

020300
020302
020304
020306

004567
001171

001452

010046

005000
156700

160572

SERRTYP:

JSR

MOV

RO,-(SP)

JWORD

CLR
BISB

$CALF

$PRINT

RO
$ITEMB,RO

;GO PRINT OUT THE FOLLOWING MESSAGE.

;ADDRESS QF MESSAGE TO BE TYPED
;SAVE RO

;PICKUP THE ITEM INDEX

CVMSAB
(-2 MEGANORD MEMORY EX MACRO Y05.02
ERROR MESSAGE TYPEOUT ROUTINE
001010

020314

016746

160566
»

020312

020320

106746

ogogé
0332
83 g
0342
0203

004767
000516
016767
166767
005300

020
020356

006300

020364
020370
020372
020376
020400
020404
020406
020412
020414
020420

012067
001406
004567
000000
004567
001171
012067
001406
004567
000000

OSO?SZ 105066 000001

020% r4

020360

020422

066700

004567

———a

——

[e
ale
o}

1¢:

2s:

000006
001332

001324

000001

020464

004767

002534

160062

000430
100407
013146

RO
RO

105066

000001

020504
020510
020512
020520

004767
000420
122760
001004

002236
177777

$ERRPC,

;ON PSW RETURN

:SET UP_VIRTUAL PC FOR TYPEQUT.

ASL
ASL

:GET OUT

:MAKE VIRTUAL IF NOT ALREADY.

;ADJUST THE INDEX SO THAT IT WILL
;

RO
LERRTB,

(ROj-,2

WORK FOR THE ERROR TABLE

;FORM TABLE POINTER

pxc«up "ERROR MESSAGE" POINTER
P TYPEGUT IF NO POINTER

JSR

RS,

$PRINT ;G0 PRINT QUT THE FOLLOWING MESSAGE.

JSR
JWORD

RS
$CALF

SPRINT

;60 PRIN} GUT THE FOLLOWING MESSAGE.
:ADDRESS or MESSAGE T0 BE TYPED

$PRINT

'SKIP TYPEQUT IF 0
;GO PRINT ouT THE FOLLOWING MESSAGE.

JWORD

BEQ
JSR

"WORD

(RO)* 44

Ss
RS,
0
RS

$CRLF

SPRINT

RL,-(SP)

ADD

RELOCE, RO

MOV
3EQ
ADD
MOV
7518

BNE

. “"ERROR MESSAGE" POINTER GOES HERE
PICKUP "DATA HEADER" POINTER

MOV

(RO)+R1
9s
RELOCF. Ri
(RO) «, RO
(RO)

R% -(SP)

*DATA HEADER® POINTER GOES HERE
;GO PRINT QUT THE FOLLOWING MESSAGE.

:ADDRESS OF MESSAGE TO BE TYPED
;SAVE R1

:PICKUP *DATA TABLE” PQINTER
:BR IF NO DATA TO BE TYPED
; ADJUST boxu
CKUP “DATA FORMAT" POINTER

;ADJUST éoxnren

;CHECK THE FORMAT

:BR IF NOT 16-BIT OCTAL

SAVE @lR1)+ FOR TYPEQUT

THE NEXT TwW0 INS RUCTIONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE
NIHTOUT USING A "TRAP* INSTRUCTION AS CALLED FOR BY ##SYSMAC##.

MFPS

spg

CLRB

1(3P

ggn

gg.

BMI

173

MoV

106746

020500

: : ERROR ADDRESS

TYP ou”

SVERPC

RELOCF. SVERPC

MOV

020476

f “HE ERROR

$ERRP

:GO TO THE S BROU*INE

SUB

JWORD
JSR

»*

020470
020472
020474

1YP

;;SAVE

$TYPOC

1o§

MOV

44.

6%:

1r ITEH NUHBER IS ZERD, JUST

B8R

MOV

160070

SEQ 0093

uxurour USING
A "TRAP* INSTRUCTION AS CALLED FOR BY ##SYSMAC«s.
gs ;
:PUT THE PROCESSOR STATUS ON THE STACK
CLRB
1(5p
:HIGH BYTE CLEARED TO INSURE KERNEL MODE

3s:

5¢:

Page 22 11

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE

BEQ

001346

106746
105066

SERRPC,-(SP)

MOV

001354

020456
020460

MOV

ASL
ADD

000006

001171
010146
012001
001454
066701
012000
066700
105720
001007
013146

DEC

161450

020426
020430
020432
020434
020436
020442
020444
020450
020452
020454

BNE

JSR

002672

160546
160164

Monday 23-Dec 85 08:45

:PUT THE PROCESSOR STATUS ON THE STACK

$TYPOC

3(R1)+,-(SP)

:HIGH BYTE CLEARED TO INSURE KERNEL MODE
:ON PSW RETURN.

:GO TO THE SUBROUTINE

:BRANCH IF NOT DECIMAL

:;SAVE a(R1)+ FOR TYPEOUT

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPDS ROUTINE
WIHTOUT USING A “TRAP” INSTRUCTION AS CALLED FOR BY ##SYSMAC##.
MFPS
-§spg
:PUT THE PROCESSOR STATUS ON THE STACK

1777771

17$:

CLRB

1(%p

gaa

gg.

$TYPDS

MPB

# 1,

-1(RO)

BNE

18%

:HIGH BYTE CLEARED TO INSURE KERNEL MODE
:ON PSW RETURN.
-goITo THE SUBROUTINE

;:CHECK FOR 22-BIT ADDRESS FORMAT.

'BR IF NOT 22-BIT ADDRESS FORMAT.

Monday 23-Dec-85 08:45

005046
113116

020536
020540

106746
105066

020544
020550
020551
020552
020554
020556
020562
020564

004767
003
001
005711
001404
004567
020602
000731

020566
020570
020572
020576
020600
020602

012601
012600
004567
001171
000207
040

01314¢

004767
000410

MoV
gaR

002736

18%:

CLR

MOVB

8s:

98 .
108:

3600

MFPS

CLRB

-( SP
1( SP

JSR
BYTE
BYTE
ST
BEQ

PC,
3
1
(R1)
94

JSR
JWORD

001170

000

WIHTOUT USING

002430

040

gg.

Page 22 12

SEQ 0094 i

(SP)

;PUT THE DATA ON THE STACK,

(SP)

;CLEAR THE WORD ON THE STACK.

$TYPAD

:gE}ERMINE THE PHYSICAL ADDRESS AND TYPE IT.

;PUT_THE DATA ON THE STACK.

THE NEXT TWO IES ?gg;;O?S PROVIDE AN INTERFACE TO THE $TYPQS ROUTINE

000001

001154

a(R1)e,

MOV
MOV

RS
114

;PUT THE PROCESSOR STATUS ON THE STACK

$TYPOS

$PRINT

§S°)+.R1
§P)+ RO

R5
$CRLF

ASCIZ

$PRINTM

;GO PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE 10 BE TYPED
:RESTORE R1
:RESTURE RO

;G0 PRIN' OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE 10 BE TYPED
.RETURN

.SBTTL

.EVEN
TTY INPUT ROUTINE

"ENABL

LSB

§ 3 RERRRRRR AR

;HIGH BYTE CLEARED TO INSURE KERNEL MODE
;ON PSW_RETURN.
:GO TO THE SUBROUTINE
:TYPE 3 DIGITS.
:TYPE LEADING ZEROS.
;15 THERE ANOTHER NUMBER?
:BR IF NO
:LOOP

JSR
WORD

RTS

114:

NSTRUCTION AS CALLED FOR BY #4«SYSMAC#s,

Nt Nt

020522
020524
020530
020532
020532
020534

T —hns

0-2 MEGAWORD MEMORY EX MACRO Y05.02
ERROR MESSAGE TYPEOUT ROUTINE
CVMSAB

;DOUBLE SPACE

R Rk AR ARk Rk kR ko kh

R Rk xh ok

HH kkkkkkkkbkkkrkkkkhkkkkbhkbkhkhkbhkbkkhkhkkkbhbhkkhkhkkkhkkkkkhkkkhkbkkkkkkkk

: #SOFTWARE SWITCH REGISTER CHANGE ROLTINE,
: xROUTINE IS ENTERED FROM THE TRAP HANDLER,

AND WILL

:4SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL

020652
020656
020660
020660

022761
001105
105777
100102
117746
042716
022726
001073
126727
001467
004567
021547

000176

160314

-+ WHEN OPERATING IN TTY FLAG MODE.

$CKSWR : cMP

BNE
7578

160312

MOVB
BIC
CMP
BNE

160306
177600
000007
160256

CMPB
BEQ

000001

#SWREG, SWR

154
3$TKS
15
<

020606
020614
020616
020622
020624
020630
020634
020640
020642
020650

3$TKB,-(SP)
A+C177.(5P)
57 (sP)+
154

:ADDRESS OF MESSAGE T0 BE TYPED

001066

JSR

$PRINT

157304

M oV

SWREG, -(SP)

020664
020666

004567
021554
016746

020672
020674

106740
105066

000001

PS
CLRB

-(SP)
1(SP)

020700

0C4767

002320

JSR

PC,

JWORD

::ND, RETURN TO USER

$CNTLG

$PRINT

JMORD

::IF NO, DON'T WAIT AROUND
::SAVE THE CHAR
::STRIP-OFF THE ASCII
;115 IT_A CONTROL G?
: tARE WE RUNNING IN AUTO-MODE?
: :BRANCH IF YES

RS,

TSR

; ;BRANCH IF NC
; ;sCHAR THERE?

$AUTOB,#1
15$

JSR

001074

;IS THE SOFT-SWR SELECTED?

$MSWR

;GO PRINT OUT THE FOLLOWING MESSAGE.
;GO PRINT QUT THE FOLLOWING MESSAGE.

: ADDRESS OF MESSAGE 10 BE TYPED
. ;:SAVE SWREG FOR TYPEOUT

;« THE_NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE
ik

UIHngT USING A “TRAP” INSTRUCTION AS CALLED FOR BY #xSYSMAC##,

$TYPOC

;PUT THE _PROCESSOR STATUS ON THE STACK
;HIGH BYTE CLEARED TO INSURE KERNEL MODE
;ON PSW_RETURN.
;GO TO THE SUBROUTINE

R
o

001403

006316
006316
006316
005266
056616
000705

004567
001170

$PRINT

000015

10§

———

160130

000004

160107

000001

000100

160104

001160
000060

17¢:

000002

177776

18%:

000642

000716

DSABL

$PRINT

JSR
.WORD

LSB

ARk

..IF NOT TRY RGAIN
PICK UP CHAR

.,HAKE IT 7-BIT ASCII
::15 IT A_CONTROL-U?

; :BRANCH_IF 'NOT

GO PRINT OUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE T0 BE TYPED

..IGNORE PREVIOUS INPUT

..LET S TRY IT AGAIN
;IS IT
A <CR>?

..BRANCH IF _NO

..YES IS IT THE FIRST CHAR?

0 0,$TKS

BGT

000060
000002

[

RLF
?TAG

000067

; THE_NEW SWR

. 3SWR

000742

;GO PRINT QUT THE FOLLOWING MESSAGE.

:ADDRESS OF MESSAGE T0 BE TYPED

..CHAR THERE?

e
[¥217%2]
O

20§

Page 22-13

..CLEAR COUNTER

000006

000002
000006

X
FE PO £ s
s 2
S0 e 2 @) ~JR) ¢
OV =AY
ONIO WU +
oA TTN
- VANV
n- 2Z0O~
—UWNE
e
K
XTOOM
w"nwT
VD
~
Wn—
TV
v
=
orNGO
N~
E
2
[y
no-

BNE

001004

;BRANCHIF YES

,.SAVE NEW SHR

i :CLEAR UP STACK
;GO _PRINT QUT THE FOLLOWING MESSAGE.

;ADDRESS OF MESSAGE 10 BE TYPED
..RE ENABLE TT% KBD INTERRUPTS?
:BRANCH IF NO

..RE ENABLE TTY KBD INTERRUPTS
:RETURN

sTYPEC

..ECHO CHAR

), 467

..BRANCH IF YES
:CHAR > 7?
'BRANCH IF YES

). 460

:CHAR < 0?

(SP)+

: 1STRIP-OFF ASCII

)

::IS THIS THE FIRST CHAR

)
g

: :BRANCH IF YES
SINO, SHIFT PRESENT
'CHAR OVER T0 MAKE
::

: IKEEP COUNT OF CHAR

SP),(SP)

002420
021627
003015
042726
005766

021627

BIC
CMP

004567
001171
126727
001003
012777
000002
004767

MoVB

<J 1 NV
=) R
s
2O
O~
ONBUNOWNT

160206
177600
000025

7%:

160212

$PRINT

NNAX)
OO
-

001036

021082
021044
021050
021052

117746
042716
021627
001006
004567
021542
062706
009756
021627
001023
005766
001403
016677
062706

100375

19¢:

JSR
. WORD
CLR
CLR
IST8
BFL

021012
021020
021092
0¢ 1030
021032

001042

021010

004567
021565
005046
005046
105777

020704
020710
000712
020714
020716
020722
000724
020730
020734
020740
000742
020746
020750
020754
020756
020762
000764
020770
000772
021000
021004
021004

Monday 23-Dec 85 08:45

S0
U

0-2 MEGAWORD MEMORY EX MACRO Y05.02

N PJUT ROUTINE

k kR

$PRINT

ROOM FOR NEW ONE.

::SET IN NEW CHAR

::GET THE NEXT ONE
;GQ PRINT QUT THE FOLLOWING MESSAGE.

;ADDRESS OF MESSAGE 10 BE TYPED

;:SIMULATE CONTROL-U
ok

okkkkk ko KRRk Rk kK k&

tTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s «CALL:

; INPUTA SINGLE CHARACTER FROM THE TTY

ROCHR

[=F
1o b 3

(31,8
L et

s Pt P

RETURN HERE
Pt Pt et

OOO0O
rorororn

000004
160004

000002

{ROCHR:
1¢:

(SP),

..CHARACTER IS ON THE STACK

; ;WITH PARITY BIT STRIPPED OFF
(SP)

4(SPY,2(5P)
3$TKS
1$

; ;PUSH DOWN THE PC

;i SAVE THE PS

WAIT FOR
‘1A CHARACTER

SEQ 0095

CVMSAB

0 ¢ MEGAWOK" MEMORY EX MACRO Y05.02

TTY INPUT ROUTLNE

F-3
OO~ qosousg (=)

117766

021242

160000
177600
000004

000004
000004
000023

157746

;;READ THE TTY

BNE
TSTB
BPL
MOVB

3$
3$TKS
28
@$TKB,-(SP)

; ;BRANCH IF NO
::WAIT FOR A CHARACTER
::LOOP UNTIL ITS THERE
: :GET CHARACTER

CMP
BNE

(SP)+, %21
2%

cMP
8EQ
cHP

4(SP), #$XON
1$
4(SP),#140

8GT
8IC

4%
#40,4(SP)

BIC

177600
000021

042766

@$TKB,4(SP)

000004

000021

000004

000140

000004

000175

000040

000004

BLT
cHP
45

RTI

‘fC<177> 4(SP)
, 423

#fc1771(sp)
1

44
4(SP),#175

Page 22 14

MOVB

BIC
CMP
28

157752

RO LI

PO "

b Pt o ot Pt P

e s pa ps pa

QOOOOOOOS
POFORLNOMNLRIND
VRO

021132
21140

Monday 23-Dec 85 08:45

SEQ 0096

;;GET RID OF JUNK IF ANY
::IS IT A CONTROL-5?

:iMAKE IT 7-BIT ASCII
::1IS 1T A CONTROL-G?
i IF NOT DISCARD IT
: 1YES,

RESUME

::I5 1T A RANDOM XON?
: :BRANCH IF YES
1115 11 UPPER CASE?

RANOO1
RANOO1

; iBRANCH TF YES
::IS IT A SPECIAL CHAR?

: :BRANCH IF YES
' IMAKE IT UPPER CASE
::G0 BACK TO USER

tttttt#*t*t#t*ttttt**ttt*t**t*Hl*t*tt#**i***ti*i***#ttt#ttti*tt

tEHIS ROUTINE WILL INPUT A STRING FROM THE TTY
Lk

021244
021246

:;INPUT A STRING FROM THE TTY

CMP

BLOS

: ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

R3,-(SP)
-(4P)
#$TTYIN,R3

A$TTYIN+S. ,R3

;i JERMINATOR WILL BE A BYTE OF ALL 0'S

: : SAVE R3
::CLEAR THE RUBOUT KEY
L 1GET ADDRESS

..BUFFER FULL?
. :BR IF YES

;% THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $RDCHR ROUTINE
:%

021262
021264

000001

177620

NONON
2
1)

021270
021274
021276
021302
021304
021306
021310
021316
021322
021324
021330
021332
021336
021340
021344
021350
021352
021354
021356
021360
021366
021372

$RDLIN. MOV
CLR
1$:
MOV

021532
021542

021250
021254
021260

RDLIN

RETURN HERE

10¢:

000177

MFPS

000134
000430

6$:

021532

JSR
MOVB
CMPE
BNE

PC
$RDOCHR
(SP)+,(R3)
#177,(R3)
5%

‘HIGH BYTE CLEARED TO INSURE KERNEL MODE
:ON PSW RETURN,
;GO _TO THE SUBROUTINE
..GEI CHARACTER
:IS IT A RUBOUT
..BR IF NO

BNE

..BR IF NO

JSR
JWORD

RS,
9%

DEC

8L0

54
000134
000360

CMP

MOVB
JSR
WORD

000164
000402

000142

;PUT THE PROCESSOR STATUS ON THE STACK

1(%p

MOVB

000212

-(spg

CLRB

15T

021530

WIHTOUT USING A “TRAP* INSTRUCTION AS CALLED FOR BY #*SYSHAC#x,

157

BEQ

MOVB
JSR
WORD

(sP)

&'\,

$PRINT

:TS THIS THE FIRST RUBOUT?
: TYPE A BACK SLASH

160 PRINT OUT THE FOLLOWING MESSAGE.
ADDRESS OF MESSAGE TO BE TYPED
:BACKUP BY ONE

R3,#$TTYIN

..STACK EMPTY?

(R3).9%
RS,
SPRINT
9%

::SETUP TO TYPEQUT THE DELETED CHAR.
60 PRINT OUT THE FOLLOWING MESSAGE.
: ADDRESS OF MESSAGE TO BE TYPED

(SP)

..RUBOUT KEY SET?

#'\,9%
RS,
93

_
$PRINT

:iBR IF YES

;G0 READ ANOTHER CHAR.

;:BR IF NO

i1TYPE_A BACK SLASH
60 PRINT OUT THE FOLLOWING MESSAGE.
:ADDRESS OF MESSAGE TO BE TYPED

CVMSAB

0 2 MEGAWORD MEMORY EX MACRO Y05.02

TTY INPUT ROUTINE

021374
021376
021402

005016
122713
001004

021410

021342

000025

7$:

021404 004567 000342
021412

000716

021420

001014

0214

021414
051452

122713

685%%%

021430
021432
021436
85%228

001171
004567
021532
000705

021442
021446
021450
021452

004567
001170
000677
111367

021462

021530

021456

021464

004567

021506
021510

012603
011646

021526
021530
021531
021532
021542
021545
021547

000002
000
000

000270

021554

015

3601

CLRB

§R3)

$CRLF

-WORD
JSH
WORD
BR

$THYIN
2s

JSR
.WORD
BR
MOVB

RS,
$PRINT
$QUES
1% .
(R3),94

.WORD

JSR

3¢

RS,

; ;BRANCH_IF NO

$PRINT

: ;CLEAR THE CHARACTER

GO PRINT QUT THE FOLLOWING MESSAGE.

:ADDRESS_OF MESSAGE T0 BE TYPED
;GO PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE 10 BE TYPED
::60 PICKUP ANOTHER CHACTER
;GO _PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE TQ BE TYPED
;:CLEAR_THE BUFFER AND LOOP
; ;ECHO_THE CHARACTER

-GO PRINT QUT THE FOLLOWING MESSAGE.
RDDRESS OF MESSAGE T0 BE TYPED

#15,(R3)+

..CHECK FOR RETURN

CLRB
JSR
.WORD
157

-1(R3
RS,
$LF
(SP)+

: sCLEAR RETURN_(THE15)
GO PRINT QUT THE FOLLOWING MESSAGE.
;ADDRESS OF MESSAGE T0 BE TYPED
: ;CLEAN RUBQUT KEY FROM THE STACK

MOV
MOV

4(5P),2(5P)
#$TTYIN,4(5P)

MOV
MOV

;:LOOP _IF NOT RETURN

$PRINT

(SPgo.R3
(SP),-(SP)

; sRESTORE _R3
i :ADJUST THE STACK AND PUT ADDRESS OF THE

FIRST ASCII CHARACTER ON IT

015

$CNTLG: .ASCIZ

/tG/<15>¢<12>

; ;CONTROL "G"

123

$MSWR:

.ASCIZ

<15>¢<12>/SWR =

116

SMNEW:

.ASCIZ

SBTTL

READ AN OCTAL NUMBER FROM THE TTY

127
075

122
040

040
000

127
040

040
000

040

BNE

015

021557
02156¢

105
075

;G0 START OVER

..IS CHARACTER A 'tR'?

; sRETURN
; s STORAGE_FOR ASCII CHAR. TO TYPE
i s TERMINATOR
; ;RESERVE 8 BYTES FOR TTY INPUT
; ;CONTROL "y

000

040

;ADDRESS OF MESSAGE T0 BE TYPED

012

021570
021573

$PRINT GO PRINT QUT THE FOLLOWING MESSAGE.

RTI
.BYTE
.BYTE
$TTYIN: .BLKB_
$CNTLU: .ASCIZ

021552

021565

$CNTLU

9s:
125
000

012

BNE

136
012

107

CMPB

021512 016666 000004 000002
021520 012766 021532 000004

136

RS,

SEQ 0097

;CLEAR THE RUBQUT KEY
..IS CHARACTERA CTRL U?
R_IF NO

#22,(R3)

000304

177777
000250

001271

JSR

000052

(SP)
#25,(R3)
8¢

Page 22-15

cMPB

000314

021472 105063
021476 004567
021502 001172
021504 005726

021470

8$:

000322

000015

CLR
CMPB
BNE

.WORD

000022

122723

Monday 23 Dec 85 08:45

Rk ko

NEW =

ok bk

Rk Rk Rk kR kR

kbt kb kR Kk

*THIS ROUTINE NILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND

;«CHANGE 1T 70 BINA

;#THE INPUT CHARACTERS WILL BE CHECKED TQ INSURED THEY ARE LEGAL

;%0CTAL DIGITS IF AN ILLEGAL CHARACTER IS READA "?" WILL BE TYPED
:«FOLLOWED BYA CARRIAGE RETURN-LINE FEED. THE COHPLETE NUMBER MUST
;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPINGA CARRIAGE RETURN.
tCALL
‘%
RDOCT
; ;READ AN OCTAL NUMBER
Kk
;%

RETURN HERE

; ;LOW ORDER BITS ARE ON TOP QF THE STACK
; ;HIGH ORDER BITS ARE IN $HIOCT

cvM 548

J_2 MEGAWORD MEMORY EX MACRO Y05.02

REA 0 AN OCTAL NUMBER FROM THE TTY

021576
0216G0
021606

011646

016666
010046

021610
021612
021614

010146
010246

021614
021615

106746
105066

021622
021626
021630
021634
021636
021640
021642

004767
012600
010067
005001
005002
112046
001420
122716
003026
122716
002423
006301
006102

000004

000002

Monday 23 Dec 85 08:45

$RDOCT: MOV

;%
i+
000001

177416

4(SPY, 2(sP)

(SP),-(SP)

; ;PROVIDE SPACE FOR THE

MOV
MOV

RL, (SP)
RZ2,-(SP)

. 1PUSH R1 ON STACK
: :PUSH R2 ON STACK

MFPS

000067

177770

1(SP)

JSR

MOV

RO,5$

000006

(SP)+,RO

SROLIN

:ON PSW RETURN.

;GO_TO THE SUBROUTINE

:;GET ADDRESS OF 1ST CHARACTER
;:AND SAVE IT

BGT
CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC

44
#/7,(SP)
44
R1
R2
R1
R2
R1
R2
rfc7 (sp)

ST
MOV

(SP)+
R1,12(5P)

: :CLEAN TERMINATOR FROM STACK
: :SAVE THE RESULT

MOV

(sfig,.Rz

;1POP STACK INTQ R2

SP)+,R0

..POP STACK INTO RO

157

ESP)’

.,CLEAN PARTIAL FROM STACK

JBSRD

85'

SPRINT

GO PRINT OUT THE FOLLOMING MESSAGE.

JSR

RS,

$PRINT

;GO PRINT QUT THE FOLLOWING MESSAGE.

B8R

RTI

CLRB

WORD

$HIOCT: .WORD

000000

:HIGH BYTE CLEARED TO INSURE KERNEL MODE

(RO)+,
38

MOV
9

:PUT THE PROCESSOR STATUS ON THE STACK

MOVB
BEQ

MOV

000014

: :PUSH RO ON STACK

fié

MOV

: :INPUT NUMBER

Etg

QBD

000012
000032

-(SP)

CLRB

CMPB

000060

RO, (SP)

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $RDLIN ROUTINE
WIHTOUT USING A "TRAP* INSTRUCTION AS CALLED FOR BY ##SYSMAC*#.

MOV

000102

SEQ 0098

MOV

Page 22-16

: :CLEAR DATA WORD
(SP)

%70,(SP)

§§P

R2: $HIOCT

gsp +.R1

RO)

$QUES

;iPICKUP THIS CHARACTER
:IF ZERO GET OUT

" 'MAKE SURE THIS CHARACTER
::IS AN OCTAL DIGIT
Y

;%4
;%8

: ;STRIP THE ASCII JUNK

..Agg IN THIS DIGIT

:POP STACK INTO RI
:RETURN

:SET A TERMINATOR

:ADDRESS OF MESSAGE T0 BE TYPED

; TRY AGAIN

: IMIGH ORDER BITS GO HERE

*t#*t*t*t*t****it*****tt****tt***tt*#ttttt********ti#*tt*t**ttt

:% SUBROUTINE TO PASS RELOCATED MESSAGE ADDRESSES TO THE $TYPE ROUTINE.

k
021752
021756

021764

012567
066767

106746

000020

156550

CALL:

JSR

$PRINT

= o 3k ok sk ok ok ok ok 2k ok ok ok ok ok e ok gk ok ak ok ok sk ok d sk ok ok sk sk ok ke ko ok ok ok

000012

§PRINT: MOV
ADD

;&
:+

(R5)+,
1¢
RELOC, 18

o ok ok ak ok ok sk ok ok ok ok ok ak ok ok ok ok ok ok ok ok sk k ok

;GET THE MESSAGE VIRTUAL ADDRESS.
:MAKE IT PHYSICAL.

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPE ROUTINE
WIHTOUT USINGA "TRAP® INSTRUCTION AS CALLED FOR BY #&SYSMAC*%.
MFPS

-(SP)

:PUT THE PROCESSOR STATUS ON THE STAC(

CVMSAB

0-2 MEGAWORD MEMORY EX MACRO Y05.02

READ AN OCTAL NUMBER FROM THE TTY
021766

105066

000001

021772
3611 021776
3612 022000
3613
3614

004767
000000

0C0004

000205

Monday 23-Dec 85 08:45
CLRB

1(SP)

1s:

JSR
WORD
RTS

PC,
0
RS

.SBTTL

TYPE ROUTINE

§ 3 RRRR AR

KRR

Page 22 17

$TYPE

kR R Rk

SEQ 0099 |

;HIGH BYTE CLEARED TO INSURE KERNEL MODE
;ON PSW_RETURN.
;GO TO_THE _SUBROUTINE
;CONTAINS THE PHYSICAL MESSAGE ADDRESS.
;RETURN.
R R

Rk ok

hk kk k&

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

;#THE ROUTINE WILL INSERT A_NUMBER OF NULL CHARACTERS AFTER A LINE FEED
:%NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
: xNOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
: *NOTE3:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.
¥

;%CALL:

:+1) USING A TRAP INSTRUCTION
o
TYPE
,MESADR
;t

ik
Pk
¥

022002
022006
022010
022012
022014
022016
022022
022030

105767

022032

022040
022042
022046
022052
022054
022062
022064
022066
022070

000002
000001

157164

000100

157155

000004
000274
000040

000002
000011

157133

156772

105366

000601

$TPFLG

;:IS THERE A TERMINAL?

:1BR IF YES
. :HALT HERE IF NO TERMINAL
: :LEAVE

MOV

34
RO, -(SP)

CMPB
BNE

#APTENV,$ENV
624

MOV

22{SP),R0

PC.$ATY3
0
2APTCSUP,$ENVM

::SPOOL MESSAGE TO APT
: sMESSAGE ADDRESS
::APT CONSOLE SUPPRESSED

60$

Move

;;RUNNING IN APT MODE
::ND,GO CHECK FOR APT CONSOLE
::N0,GO CHECK FOR CONSOLE

BNE

::GET ADDRESS OF ASCIZ STRING

62}

RO,61$

61%:
62¢:

: :SAVE RO

#APTSPOOL, $ENVM ::SPOOL MESSAGE TO APT

MOV

JSR
WORD
BITB

(RO)+,-(SP)

: ;SEYUP MESSAGE ADDRESS FOR APT
:1YES,SKIP TYPE OUT

: PUSH CHARACTER 70 BE TYPED ONTO STACK

60$:

BNE
ST
MOV

4%
gspg’
5P+ ,RO

RTI
8253

ggr,(sp)

;s RETURN
;iBRANCH IF <HT>

ggRLF.(sp)

; ;BRANCH IF NOT <CRLF>

(SP)+

;:POP

ADD

gnge
157

000202

016746

TSTB

BPL
HALT
BR

BEQ

177626

000056
157002

TYPE
MESADR

BITB

000200

NN
NOND b =

022152

YTYPE:

157141

: ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

6$:

#2,758)

::BRIF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK
; tRESTORE RO

: 1ADJUST RETURN PC

RS,

CLRE
BR
JSR

$CHARCNT
24
PC,$TYPEC

;;CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
;G0 TYPE THIS CHARACTER

BNE
MOV

28
$NULL, (SP)

::IF NO GO GET NEXT CHAR.
:iGET # OF FILLER CHARS. NEEDED

DECB

1(SP)

cMPB

$PRINT

<CR><LF> EQUIV

?ESLF

SFILLC,CSP)+

;GO PRINT OUT THE FOLLOWING MESSAGE.

::IS IT TIME FOR FILLER CHARS.?
::AND THE NULL CHAR.
:1DOES A NULL NEED 7O BE TYPED?

CVMSAB

0 2 MEGAWORD MEMORY EX MACRC Y05.02

Monday 23 Dec-85 08:45

TYPE ROUTINE

N N~d~d~J
roro-g

SUN
=R &M

SRYY 2RE8T
g
~

OQOOOWNOrOOOP‘SD—

022172
022176
022202
022210
022212
022214
022216

002770

O+ OO
OELEFOO
O -JOWN

022156
022160
022164
022170

Ot 22—
P2 OO
N-JOLT

BLT
JSR
DECB
BR
HORIZONTAL TAB
MOVB
8 $:

000032
000144

000040
000014
000007

000124

9 $:

156712
156706
177600
000023

156666

JSR

TPEC

1
1

156644
000002

000015

000014
000012

3615

000002

1 $:

::BRANCH IF NOT AT
::TAB STOP
: :POP SPACE OFF STACK
:1GET NEXT CHARACTER

;;REPLACE TAB WITH SPACE

::TYPE A SPACE

1023

::BR IF NOT

2177600, (SP)
#$XOFF,(SP)

::STRIP EXTRANEOUS BITS
: i WAS CHAR XOFF

@$TKS
1014
3$TKB,(SP)

. ;WAIT FOR CHAR

101$

::BR IF NOT

#177600, (5P)
4$XON, (5P)

;;GET CHAR

::STRIP IT
: 1WAS IT XON?

15T

(SP)+

:;FIX STACK

ggEB

?SIPS

:;WAIT UNTIL PRINTER IS READY

MOVB

2(SP),a$1PB

::LOAD CHAR TO BE TYPED INTO DATA REG.

BNE
CLRB

1$
$CHARCNT

: :BRANCH IF NO
;1 YES--CLEAR CHARACTER COUNT

CMPB

000002

#7.$CHARCNT
94
(SP)+
2%

PC, $TYPEC

BNE

156636

;:BR IF NO -GO POP THE NULL OFF OF STACK
;160 TYPE A NULL
::D0 NOT COUNT AS A COUNT
: :LOOP

;;CHAR IN KYBD BUFFER?
::BR IF NOT
:1GET CHAR

BIC
CMPB

63
PC. $TYPEC
$CHARCNT
7$
PROCESSOR
&' . (SP)

§$TKS
104
3$TKB, -(SP)

TSTB
BPL
MOVB
028

SEQ 0100

1STB
BPL
MOV

BIC
CMPB

156662
177600

000021

BITB
BNE
75T
BR

Page 22-18

B8R

CMPB

BEQ

#CR,2(SP)

$TYPEX

ALF,2(SP)

$TYPEX

::IS CHARACTER A CARRIAGE RETURN?

i EXIT

: 115 CHARACTER A LINE FEED?

: :BRANCH IF YES

INCE
(PC)+
: :COUNT THE CHARACTER
$ CHARCNT:.WORD 0
: ;CHARACTER COUNT STORAGE
$ TYPEX: RiS
PC
SBYTL APT COMMUNICATIONS ROUTINE

022332
022334
022336

cokkkkkbhbkhkbkk kb kb bkkdkokkkkhkkkkkkbkkbkkkkhhhkbkbkkhkkkbkkkhkkkbkskkkkké

000001
000001

000376
000366

$ ATY1:

MOVB

#1,$FFLG

.70 REPORT FATAL ERROR

000001

000360

$ a¥¥3:
$

MOVB

#1,$FFLG

:;TO ONLY REPORT FATAL ERROR

MOV
MOV

RO, -(SP)
R1.-(SP)

; ;PUSH RO ON STACK
::PJSH R1 ON STACK

062766

ESVB

TSTB

000346

022422

$ ATY3:

000001

156610

000100

156601

000004
000002

000004

BEQ
CMPB
BNE
BITB
BEQ
MOV

ADD

§£f$gFLG

$MFLG

5$
BAPTENV,$ENV
3
#APTSPOOL, SENVM
34
34(SP),RO

£2.8(59)

;370 TYPE A MESSAGE

: 1SHOULD TYPE A MESSAGE?

::IF NOT:
BR
;;OPERATING UNDER APT?
;;IF NOT:
BR
;;SHOULD SPOOL MESSAGES?
:;IF NOT: BR
: :GET MESSAGE ADDR.

-:BUMP RETURN ADDR.

;MJDO01

—

ZyMSAB

) 2 MEGAWORD MEMORY EX MACRO Y05.02

APT COMMUNICATIONS ROUTINE

022430
022434

002436

005767
001375
010067

022444
022446
022452

001376
166700
006200

002432

022454
022460
022466
022470
022476
022508
022510
022514

022516
022516
022522
022524

105720

010067
012767
000413
017667
062766
016746
004767
000000
105767
001422
0176G0

022530 062766
022536 012701

022542
022544
022546
022550

002564

005711
100404
020021
001406
005721
000772
026701
001402
013021

022570
022574

105767
001416

022602
022604
022610
022612

001413
005767
001375
017667

022552
022554
022556
022562

022566 005211

156540

18:

156546

156536

156532

000004

156506

000004

000016

000002 000004
155266
177266

000002
001334

4%:
5¢:

000221
000004

3s:

000004
6$:

156720

8s:

9¢ .

000150

10§:

156364

000004

11¢:

156356

022620 062766 000002 000004
002606 005267 156342
105067
105067
105067
012601
012600

000106
000101
000074

12¢:

022652 000207
022654
022654

010046

022666
022672

005767
001375

022656
022662
022674

$ATY6:

016700 156620
162700 001334
010067

156302
156312

022700 012767 001334
022706 012767 000002
022714 012600
022716

000207

1$:

156302
156260

Page 22-19

SEQ 010!

157
BNE
MOV

$MSGTYPE
i$
RO, $MSGAD

;;SEE IF DONE W/ LAST XMISSION?
::IF NOT: WAIT

BNE
SUB
ASR

24
$MSGAD,RO
RO

.
;:SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS

7578

MOV
MOV
BR
MOV
ADD
MOV
JSR
JWORD

(R0)-

RO, $MSGLGT
44 $MSGTYPE
5%
34(SP), 44
x> 3(5P)
171776, -(SP)
PC,$TYPE
0

::PUT ADDR IN MAILBOX

:;FIND END OF MESSAGE

::PUT LENGTH IN MAILBOX
;i TELL APT TO TAKE MSG.

;;PUT MSG ADDR IN JSR LINKAGE

. :BUMP RETURN ADDRESS
. ;PUSH 177776 ON STACK
::CALL TYPE MACRO

TSTB
BEQ
MOV

SLFLG
10
34(SP),RO

: ;SHOULD LOG AN ERROR?
::IF NOT: BR
: ;GET ERROR #

15T
BMI
CHE
BEQ

(R1)
8$
RO,(R1)+
94

BR
CMP
BEQ

6$
$APTR,R1
10%

INC

RO SRl)o

: ;END OF TABLE?
. IF 50: BR
: :PROPER ENTRY?
::IF SO: BR
; :MIVE PAST COUNTER WORD
: KEEP LOOKING
: s TABLE FULL?
::IF SO: BR -- NO MORE ROQM
::SET UP NEW ENTRY

¢FFLG
123

: : SHOULD REPORT FATAL ERROR?
:+IF NOT: BR

ADD
MOV

75T

022576 005767 156412

022632
022636
022682
022646
022650

Monday 23-Dec 85 08:45

MOV

TSTB
BEQ

£2 4(5P)
4$ASTAT RY

(R1)+

TST

SENV

ADD

22 3(58)

BEQ
TIST
BNE
MOV

. :BUMP RETLRN ADDR.
;;POINT 10 TABLE START

::BUMP ERROR COUNT

: iRUNNING UNDER APT?

12
$MSGTYPE
11
34(SP), $FATAL

;:IF NOT: BR
: ;FINISHED LAST MESSAGE?
: IF NOT: WAIT
;:GET ERROR #

$MSGTYPE

. TELL APY TO TAKE ERROR

RTS

: :RETURN

MOV

RO,-(SP)

ST
BNE

$MSGTY
18

INC

CLRB
CLRB
CLRB
MOV
MOV

MOV
SUB

¢FFLG
SLFLG
$MFLG
(SP3+.R1
(5P)+,RO

$APTR, RO
#$ASTAT, RO

. :BUMP RETURN ADDR.

: 'CLEAR FATAL FLAG
: 'CLEAR LOG FLAG
: :CLEAR MESSAGE FLAG
::POP STACK INTO R}
::POP STACK INTO RO
; ;PUSH RO ON STACK

::GET SIZE OF STAT TABLE

: ;SEE IF DONE LAST COMMUNICATION

¥Ov

RO, $MSGLG

;:IF NOT: WAIT
::SET MESSAGE LENGTH

RTS

: :RETURN

MOV
MGV
MOV

#$ASTAT, $MSGAD
22 $MSGty
(SP)+,RO

;;SET MESSAGE ADDR.
::TELL APT 7O TAKE STATS.
::POP STACK INTO RO

SAB

Q0 2 MEGAWORD MEMORY EX MACRC Y05.02

COHHUNICATIONS ROUTINE

022720
022720

022722

022726

010046

012701

005721

022730
022732

100402
005021

022736
022740

012600
000207

022743

000

855;%2

022742

022744

SATY7:

001334

1s:

000774

000

$MFLG:

000

$FFLG:

SLFLG:

000200
000001
000100
000040

2616

Monday 23-Dec-85 98 45

MOV

RO,-(SP)

; ;PUSH R0 ON STACK

#$ASTAT,R1

;;GET START QF TABLE

BMI
CLR

28
(R1)+

;IF SO: BR
..CLEAR ERROR COUNT

MOV
RTS

(SP)+,RO
PC

.BYIE

15T

.BYTE

.EEEE

(R1)13

.;END OF TABLE?

; s KEEP CLEARING

..POP STACK INTO RO
;RETURN

..HESSG FLAG
;LOG FLAG

:;FATAL FLAG

APTSIZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040

D RRRRRR kAR AR R Rk RA KRR

.SBTTL

Page ¢¢ 20

AR KRR

AR kR AR AR KR AR RR AR AR bbb kb dh bRt

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER 1O A S-DIGIT

:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

tNUHBER IS POSITIVE OR NEGATIVE A SPACE ORA MINUS SIGN WILL BE TYPED
:#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
thEtACED WITH SPACES.

Lk
ik
022746

$TYPDS:

022746
022750
022752
022754
022756

010046
010146
010246
010346
010546

022764
022770

016605
100004

000020

022774

112766

000055

023006

012703

023170

023014
023020

112723
005002

000040

023026
023030

160105
002402

022760 012746 020200
022772 005405

02300¢ 016700

023012 060003
023022

023032

023034
023036
023040
023042

023044

023046

016001

155524

023160

105716
100407

NUM, -(SP)

; :PUT_THE BINARY NUMBER ON THE STACK

MOV
MOV
MOV
MOV
MOV

RO,-(SP)
R1,-(SP)
R2,- SP}
R3,-(SP
RS,-(SP)

; 1PUSH RO ON STACK
;;PUSH R1 ON STACK
; ;PUSH R2 ON STACK
; ;PUSH R3 ON STACK
::PUSH RS ON STACK

MOV
BPL

20(SP),RS
14

..GET THE INPUT NUMBER
;BR IF INPUT IS PQS.

MOVB

&'-, 1(SP)

TYPDS

MOV
000001

NEG

1¢:
2%:
3s:

005202

000774
060105
005702
001002

MOV

;:SET BLANK SWITCH AND SIGN
.;HAKE THE BINARY NUMBER POS.
MAKE THE ASCII NUMBER NEG.

MOV

RELOCF, RO

.GET RELOCATION FACTOR,

ADD

RO,

.ADD IN RELOCATION FACTOR.

MOV

MOVB
CLR

MOV

#$DBLK,R3

ETUP THE QUTPUT POINTER

..SET THE FIRST CHARACTER TO A BLANK
;CLEAR THE BCD NUMBER

$DTBL(RO),R1

..GET THE CONSTANT

..INCREASE THE BCD DIGIT bY 1

R1,RS
43

BR
ADD
TST
BNE

k1)
R1,RS
R2
5¢

BMI

1518

# J(R3)+
Re

SuB
BLT

INC

4s:

£20200,-(sP)

;;6G0 TO THE ROUTINE

(SP)

.,FORH THIS BCD DIGIT
;:BR _IF DONE

; ;ADD BACK THE CONSTANT
..CHECK IF 8CD DIGIT=0
;FALL THROUGH IF O

..STILL DOING LEADING 0'S?
;:BR

IF YES

SEQ 010¢

CVMSAB
0 2 MEGAWORD MEMORY EX MACRU Y05.02
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

023050
023052

023054

106316
103003

000001

052702

000040

052702

023072
023074
023076

110223
005720
020067

023066

023102
023104
023106

103746
101002
010502

023110
023112
023114
023116
023124
023126
023130
023132
023134
023136

000764
105726
100003
116063
105013
012605
012603
012602
012601
012600

023144
023146
023154
023156
023160
023162
023164
023166
023170

023170
016666
012616
000002
023420
001750
000144
000012

023140 004567

3617

5¢:

116663

023062

Monday 23 Dec 85 08:45

000060

177777

BIS

30,R2

MovVB
TST
cMP

R2,{R3
(RO)+
RO

BR
1STB
BPL
MOVB
CLRB
“oV
MoV
MOV
MOV
MOV

6%
(SP)+
9¢
-1
sfl
P Je, R0
SP)+,R3
9P+ ,R2
SP)+,R1
SP)+,RO

BIS

BLO
BHI
MOV

8%:
177776

9¢ .

176606
000002

(SP)
6$

HOVB

6$:

156734

177777

ASLB
BCC

JSR

.MORD
MOV
MOV
RTI
10000
1000.
100.
10.
.BLKW

000004
$DTBL:

SEQ 0102

;:1SD?
;;BR IF NO

1(5P)

Page 22-21

;:YES--SET THE SIGN

; iMAKE THE BCD DIGIT ASCII

;sMAKE IT A SPACE IF NJT ALREADY A

2%
8¢
R5,R2

RS
$D
2(
(S

;GO DO THE NEXT DIGIT
;:60_TO EXIT
;:GET _THE LSD

; ;GO CHANGE TO ASCII
; :WAS_THE LSD THE FIRST NON-ZERQ?
;:BR_IF NO
;3 YES--SET THE SIGN FOR TYPING
::9ET THE TERMINATOR
;:P0OP STACK INTOD ®d
::POP STACK INTQ R3
;:POP STACK INTO R2
; ;POP STACK INTO R1
;;P0P _STACK INTO RO

:60 PRINT QUT THE FOLLOWING MESSAGE
;ADDRESS OF MESSAGE TO BE TYPED
; s ADJUST THE STACK
]
; ;RETURN TO USER

4
BINARY TO OCTAL (ASCII) AND TYPE

$OBLK:
.SBTTL

°GIT

;:PUT_THIS CHARACTER IN THE QUTPUT oUFFER
; ;1JUST INCREMENTING
;CHECK THE TABLE INDEX

Yy Py T I

YTy Pe Ty

Yy Y

;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
ASCII) NUMBER AND TYPE IT.
;%0CT
;tQXEEOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
(sl

i*
i
*

MoV
TYPOS
.BYTE

NUM, -(SP)

.BYTE

.
.

; :NUMBER T0 BE TYPED
;:CALL _FOR TYPEOUT
;:N=1 70 6 FOR NUMBER OF DIGITS T0 TYPE
;sM=1 0RO

;:1=TYPE LEADING ZEROS
; :0=SUPPRESS LEADING ZERQS

3 &

;#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

;#$TYPOS OR $TYPOC
i*

i
1 &

MoV

TYPON

NUM, -(SP)

; :NUMBER TO BE TYPED

; ;CALL FOR TYPEOUT

;#$TYPOC---ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBER
&

023200

023204
023212

017646
116667
112667

000000
000001
000211

000213

MOV

TYPOC

{TYFOS: MOV

MOVB
MOVB

NUW,-(SP)

(5P, -(SP)

1(SP), $OFILL
(SP)+,$0MODE+1

; ;NUMBER TO_BE TYPED

;;CALL FOR TYPEQUT

;:PICKUP THE MODE

;;LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TrPE

CVMSAB _ 0-2 MEGAWORD MEMORY EX MACRO Y05.02
BINARY TO OCTAL (ASCII) AND TYPE

023216

062716

000002

023224
023232
023240
023246
023250
023252
023256
023260
023262

112767
112767
112767
010345
010446
010546
116704
005404
062704

000001
000006
000005

023222 000406

023266

023272

0c32/6
023302
023304
023306
023310
023312
093374
023316
023320
023322

023336
023330
023334
073336
023330
023342

023344
023350

110467

116704

016605
005003
006105
000404
006105
006105
006105
010503
006103
105367

100017
042703
001002
005704
001403
005204

052703
052703

022354 110367
023360 004567

023364
023366
023372
023374
023376
023400
003402
023404
023406

1618

023410
003416
023420
00347
02342
023424
023425
023426

023422
105367
003346
002402
005204
000743
012605
012604
012603

016666
012616
000002
000
000
000
00
000000
000000
001010
005267
oileer
004767

ADD

000173
000167
000156

000006

S$TYPOC: MOVB
MOVB
$TYPON: MOVB
VT
MOV
MOV
MOVB
NEG
ADD

000127

MOVB

000147

000134

MOVB

000012

1$:
26:

000100
177770

4s:

000060
000040

5¢:

000042
176366
000032

78:

6s:

000002

000004

MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB

BL
BIC
BNE
ST
BEQ
INC
BIS
BIS

MOVB
JSR_

(WORD
DECB
BGT
BLT
INC
BR
MOV
MOV
iy

MOV
MOV
RTI
8s
BYIE
BYIE
SOCNT:
BYTE
SOFILL: .BYTE
SOMODE: WORD

ERRTRP. TST ~
s

177770
133910
174372

HORD
BNE
IN
MOV
JSR

Page 22 22

SEQ 0104

#2,(SP)

; ;ADJUST RETURN ADDRESS

1, $OFILL
#6,$OMODE.1
25, $OCNT
R-(SP)
R4,-(5P
R5.-(5P)
$OMODE+1,R4
R4
#6,R4

::SET THE
:;SET FOR
:SET THE
: 1SAVE R3
. 1SAVE R4
: :SAVE RS
::GET THE

$OFILL,R4

::GET THE_ZERQ FILL SWITCH

STYPON

R4.$OMODE

12(5P).RS
RZ
RS
33
RS
RS
RS
R5,R3
R3
$OMODE

78
#177770,R3
4§
R4
5%
R4

4'0,R3
%
.R3

R3,4S
RS,

8%
$OCNT
2%
6
R4
$
SP)+.RS
5P+ RA
(5p).R3

S$PRINT

oLsP)ialsp)
P+ (SP)

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

; ;SUBTRACT IT FOR MAX. ALLOWED
::SAVE_IT FOR USE
: ;PICKUP_THE INPUT NUMBER
: :CLEAR_THE OUTPUT WORD
: :ROTATE MSB INTQ “C
;160 DO_MSB
: :FORM THIS DIGIT

;:GET_LSB_OF THIS DIGIT
: 1 TYPE_THIS DIGIT?

:BR_IF_NO
$1GET_RID OF JUNK
;1 TEST FOR 0
:: SUPPRESS THIS 0?
:iBR IF YES
; ;OGN T_SUPPRESS ANYMORE 0°S
; {MAKE THIS DIGIT ASCII
: iMAKE ASCII IF NOT ALREADY

: :SAVE_FOR TYPING
;60 PRINT OUT THE FOLLOWING MESSAGE.
;PDDRESS OF MESSAGE 10 BE TYPED
;COUNT BY 1
:1BR IF MORE TO 0O
:1BR
IF DONE
:: INSURE_LAST DIGIT ISN'T A BLANK
;160 D0 THE LAST DIGIT
L {RESTORE RS
; :RESTORE RA
i RESTORE RS

IiSET

THE STACK FOR RETURNING

0
0
0
0
0

; ;RETURN
: 1STORAGE_FOR ASCII DIGIT
: 1 TERMINATOR FOR TYPE ROUTINE
:10CTAL DIGIT COUNTER
{1 ZERD FILL SWITCH
; :NUMBER OF DIGITS T0 TYPE

(PC).

;CHECK_IF PREV TRAP TO 4 REPORTED

{ERROR TRAP SERVICE ROUTINE

3619 023430 005727

3600 023432
36e] 02438
600
03436
jeo} 02340
3624 023446

Monday 23 Dec 85 08:45

0
23

7SP),
6L,

sTMP3
SERROR

'CONTAINS ERROR REPORTED FLAG
:BRANCH IF NOT REPORTED
:SET DOUBLE TRAP FLAG.
;SAVE HE BAD PC FOR TYPOUT,
.-+ ERROR s&s (GO TYPE A MESSAGE)

28 a0

MMM
(AN (M
oo
N AN
N NIPORLN,
LA
OO B -IOMN

[ aloan=al

NI = OO QO ~JON UV E0 LN [«3¥ 1. LN, YV 7N

CMON (N AN M NN

[oaloals
T o Yo )
TETTZZTRRCMCNIN
NN

NOQO ~JONUN B2

N ON N O O O NN
NN AN N N N O
jgaleal=aleale
1o jTo 0o 4 Te 210 000
AL
UYL
D

0-2 MEGAWORD MEMORY EX MACRC Y05.02

Monday 23 Dec 85 78:45

TO OCTAL (ASCII) AND TYPE

023452

000031

000000

ozgso
023464

005067
000002

JNOPD

ozg:gz 000401

28:
177746

.SB1TL

023466

ogg:gg
0
003472
023474

010046
010146
oxo§46
010346

ozsgoz

005003

ozsg1o
023512
ozgszo
023522

001430
032737
001424
010201

23506

006101

023476 016602

8?3224

006101
006101
006101
042701

023546
oegggg
02

011101
012700
006301

023542

062701

077003

023596
023570
023572
023574
023576
023600

06,9102
005503
006302
006103
006002
010346

003560

042702

; ;PUSH RO ON STACK
::PUSH R1 ON STACK
: :PUSH R2 ON STACK
: :PUSH R3 ON STACK

CLR

:WORKING € INDEX REGISTER

ROL

ROL
ROL
ROL
BIC

172340
000006

023556 006103
023560

Ro.-ispg
R1,-(SP
R2.-2SP;
R3: -(5P

ROL

177761

ADD

1$:

12(sP), R2

MMAVA

:CHECK FOR MEM MGMT AVAILABLE

94SRO

R2,

:GET BASE ADDRESS

R1
R1
Rl
2177761, Rl

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

.
:CLR ALL EXCEPT B:°S 1,2,3

SKIPARD, R1

:SET TO APPROPRIATE PAR

ROL

:SAVE OVERFLOW
BITS

BIC

£160000, R2

MOV
MOV
ASL
S08

160000

;RETURN TO PROGRAM AND TRY TL RECOVER

MOV
MOV
MOV
MOV

BEQ
BIT
REQ
MOV

177572

:ERROR' SECOND TRAP TQ 4 OCCUR::>
:BEFORE FIRST WAS PRINTED

PHYSICAL ADDRESS TYPE ROUTINE

006101

023530
023532
023534
023536

MOV

023504 005767 155026
000001

CLR
RTI

:ERROR TYPE CODE.

:SKIP HALT

ROUTINE TO TYPE A PHYSICAL ADDRESS (22 BITS).

$TYPAD:

000012

HALT

3s:

B8R

Page 22 23

ADD
ADC
ASL
ROL
ROR
MOV

(R1),
26,
R1

Rl
RO

R1,
R2
R3
R2
R3
R2
R3,-(SP)

;GET CONTENTS OF PAR
:SET UP COUNTER
:SHIFT PAR
:COUNT "SIX SHIFTS

:SAVE BANK BITS

:COMPJTE PHYSICAL ADDRESS
:MAKE SURE CARRY ISN'T LOST!
:FIRST DIGIT TO R3
;RESTORE R2 FOR BITS 14-0
::SAVE R3 FOR TYPEQUT
. : TYPE ADDRESS BITS 21-15

;& THE_NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE
023602
023604

106746
105066

023610
023614

004767
003
001
010246

023615
3660 023616

;%
000001

177364

JSR
BYTE
BYTE
MOV

023620

023622

106746
105066

000001

023626

004767

177346

WIHTOUT USING A “TRAP” INSTRUCTION AS CALLED FOR BY #%SYSMAC#s.
MFPS
-(SP)
:PUT THE PROCESSOR STATUS ON THE STACK
CLRB
1(5P)
;gfiGESEYgngksARED TG INSURE KERNEL MODE
PC,
$TYPOS
3
1
R2,-(5P)

;GO 1O THE SUBROUTINE
:; TYPE 3 CIGIT(S)
: :TYPE LEADING ZEROS
::SAVE R2 FOR TYPEQUT
. : TYPE ADDRESS BITS 14-0

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE

WINTOUT USING A “TRAP* INSTRUCTION AS CALLED FOR
BY ##SYSMACk«
MFPS

CLRB

-(SP)
1(5P)

JSR

PC,

;PUT THE_PROCESSOR STM1TUS ON THE STACK

;gficgssngTgkfiAneo 70 INSURE KERNEL MOOE
$TYPOS

;GO 70, THE SUBROUTINE

SEQ ol

b‘

SVMSAB

0 2 MEGAWORD MEMORY EX MACRO Y05.02

PHYSICAL ADDRESS TYPE ROUTINE

023632
023633
3661 023634
023636
023640
023642

1662 023644

gggz 023646

005
001
012603
012602

BYIE
BYTE
MOV
MOV

S
1
§SP +,R2
SP)+,R2

012616

MOV

SP)+,

012601
012600

MOV
MOV

000207

RTS

2665

.SBTTL

3666

3670 023650
023653
023656
023661
023664

015
124
040
105
122

012
061
050
115
131

113
061
115
117
040

023672

101

107

105

023667

115

023675
023700
023703
023706
023711
03714

102
000

023726
023731
023734
023737

101
040
10}
015

3671 023715
023720
023723

(SP)

;;POP STACK INTO R1
;:POP STACK INTO RO

:ADJUST THE STACK TO CLEAR DATA
;RETURN

STANDARD PROGRAM MESSAGES

sihbdnkkhkbbbhkkhkkhkikhkkhhkhkdkihhkhhkkibhkbbkbdhdd
bbb hbdbbadh

MMAMES:

.ASCIZ

«<«15><12>'KT11 (MEMORY MANAGEMENT) AVAILABLE'

116

116
040
101
101
105

015
062
11

012
040
124
104
101
111
012
012
115
131
101
000

062
102
040

AVAL22:

.ASCIZ

<15><12>'22 BIT ADR AVAIL'<15><12>

115
117
040
120

MEMMES:

.ASCIZ

<15><12>'MEMORY MAP:’

122
131
105
122
115
072
012
117
000
124
000
012
123

120

111
040
115
131
101
000
106
115

MTMAP:

.ASCIZ

«<15><12>'PARITY MEMORY MAP:'

FROM:

LASCIZ

<15><12>'FRQM !

117

T0:

.ASCIZ

' 10

111

INSUFF:

.ASCIZ

<¢15><12>'INSUFFICIENT MEMORY...FIRST 16K NOT ALL THERE!’

2673 023760

015

024030
024033
024036
024041

bbbl

105
051
126
114
114

015
105
122
115

023763
07766
02,771
023774
023777
024002
3674 024005
024010
024013
3675 024015
024020
3676 024022
024025

bk bhkd kbbb hahhdd bR

il5
124
101
111

3672 223742
02
5
023750
023753
023756

101

SEQ 0106

+: JYPE S DIGIT(S)
;: TYPE LEADING ZERQS
;:POP STACK INTO R3
::POP STACK INTO R2

; VARIOUS MESSAGE PRINTQUTS USED THRUQUT
; THE PROGRAM

1669

(SP)+,RL
§SP30.R0

Page 22-24

sy hekhAkRkRkbk kb hkkkkkhh bk bk khhhbhkb ki

3667
3668

Monday 23-Dec 85 18:45

072

101
124
115
117
040
120
015
122
040
040
040
015
116

106
103
116
115

012

106
111
124
105

122
126
114
000

125
111
105
040
115

VHSiB

0 2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec 85 08:45 Page 22-25

“ANDARD PROGRAM MESSAGES

Ot
O e O b b pt o it
i
| ot pt O i ot
PO SBMNOHBNOCOMNLNIND OFNINVO BNV
NN O~JOMPINULBPLEN
HUdWNDHJOFOMN

et et o et
OO
OO WD

Ot s s e et et ot s ) o ot e s et b o b ot (D e peb et
SHOMIF NI
OO
MNIMNVO PO
NN
MO
Or2 (PO N JOONWMNDIUION
B ~JWNLOKOOGY

024136
3678 024137
024142
024145
024150
024153
04156
024161
024164
024167
024172
024175
024200
024203
3679 024204
024207
024212
024215
024220
004223
024226
024231
004234
004237
004242
024245
024250
024253
3680 024256
024261
024262
024267
024212
024215
024300
024303
024306

131
056
122
040
113
117
101
040
105
041

(Dt b et et o e et
ot b €D
OO MNFOOOF
MM
NN
PO ~Jd2 NN
WGIND

024117
024122
024125
024130
024133

122
056
111
124
066
116
040
114
110
105

e et s e € et ot it O € et € o et it it ot s et o e CI D
OO
DO R = 2O DB
2 == OO
WD D
WNROUVTNO N
~JOMNF O ~JWN-JOOMOLVMNVF
VO

024111
024113

—_C O Ottt s s O O b
e O
2 OO s
o b bt = O b= O bt ot et O QOre Qb st ptr e pa D O
OO
OON N S OO
OO O BTV
O W — 5 BN 2 ONVOF
OMN OOV
Or* O
OB LN ORI uVIo oW O~NNE 2 -YUNOWNENNOO
HOIO
NO UM 8= —JUNoO

024102
3677 024103
024106

117
056
106
123
061
040
124
114
124
122

-e

024044
024047
024052
024055
024060
024063
024066
024071
024074
024077

MTR:

.ASCIZ

<15><12>'NO PARITY REGISTERS FOUND'

PWRMSG:

.ASCIZ

<15><12>'RESTARTING AFTER A POWER FAILURE'<15><12>

NOPES:

.ASCIZ

<15><12>'NO PARITY ERRORS FOUND ON MEMORY SCAN'<15><12>

PROREL:

.ASCII

<15><12>'PROGRAM NOW RESIDES BACK AT 0 70 8K’

SEQ 0107

MSAB

0-2 MEGAWORD MEMORY EX MACRO Y05.02

<15><12>'HIT CONTINUE FOR NORMAL RUNNING'<15><12>

MX1:

.ASCIZ

<15><12>'PARITY REGISTER AT '

MX2:

.ASCIZ

CONTROLS

N Dt sy

NOMEM:

.ASCIZ

<15><12>'NO MEMORY FOUND.'

EMONVOMNVO
(NGO
HOFMTVINDONDEANOE
HUCNWBFOLEOTL
L

FADMES:

.ASCI1

<15><12><12><12>
' INPUT ALL PARAMETERS IN OCTAL.®

.ASCIZ

<15><12>'FIRST ADDRESS:

.ASCIZ

<15><12>'LAST ADDRESS:

—

= NN
MO

Ot o O b ot i o b
PO ONIO N
OO
O U= —JN)

s o

s pa

.ASCIZ

107

OO ~JIUION

e
b
O b
ot et

b et

b et et 2 D

O WM

122

Ogl—*

3685 024453
024456
024461
024464
024467
024472
024415
024500
024503
024506
024511
024514
3686 024515
024520
024523
024526
024531
024534
024537
363" 024540
024543
024546

SEQ 0108

124
070

Ot bbb pb

024447
024452

Page 22-26

040

Pt
s

024433
024436
024441
024444

Monday 23-Dec-85 98:45

024400
024403
024406
024411
024414
3683 024415
024420
024423
024426
3684 024430

UN~NO ~dNO O

024372
024375

PO Ot O Ot bt et 2 5 O O et ot i s O
Orst= Bt be RO OO FTVMN Ob= = 2 PO
&

024353
024356
024361
024364
3682 024367

s et e O e O O
OO
BN
i~
O oMLY

024311
024314
024317
024322
3681 024323
024326
0c4331
024334
024337
024342
024345
024350

PP O
e
O
NP RO gmhmo—mu NOS

S*ANDARD PROGRAM MESSAGES

LADMES:

3691 024704

3692 024734

3693 025000
NI

et prd i s et s
HOOOMNIFI

(O h B (D A et
~JOr=& O

e e OPt Ot et s s et e et it
P
s it i Pt € bt o s s o i e (5 s ot e € ot et iti
e
= PO
O
OO O B OF=OMNO
OQOO NNV OOOWN
NN
NWNO NN JUN P2 (NOONUNIO
B UIWN nunloo NPNOFONUNTERWOUT

TR OUILE

(=4
3
o

SR -JdH
i)

ot et s ot o O
PORIFAN)
- v

e O
2 C O 2 OO > Ot s et s it b € €O D 1 b o = 2 Ot b 2 8 (O bt hp b e b €D
Pt
P2 pae O =2 NN SO
2T
2 TNV
D H PO
TV O
2NN WML B2 2 OO O
NO
= TONMNON OO
LNUNLOO P IINDF NN
DO~V

BOGCIS NS <

NN AN

077

B UMMM
O —dr O ~ i B B ORI N N B

012

ILn

105
072
040

£ NOMND - P OPA N O OO - JOOMNE
2NN O

104
i03
122
123

> BMON

e N0 B O RN

3690 024643

2 O MO O N

3689 824620

s O bt bt 2 2 2 2 O 2 a2 OO O 2 2 1t et 2 O O bt s et et b et s et D O (=]

024562
3688 024563

OO Or> O MNIMNVWNMN B2 O D=2 = = O O

024551
024554
024557

ot et et O b b b b 2 2 O 2 2 O bt Ot 2 2 2 O

CYMSAB

(o}

o
3%}
L
[«

STANDARD PROGRAM MESSAGES

0 2 MEGAWORD MEMORY EX MAZRO Y05.02
Monday 23-Dec-85 08.45
Page 22-27

BADADR:
.ASCIZ
<15><12>'?RDDRESS IN UNMAPPED BANK?'

CONST:
.ASCIZ
<«15><12>'SELECT CONSTANT:'

UNEXPT:
.ASCIZ
«<15>¢<12>'UNEXPECTED MEMORY PARITY ERROR’

PRELOC: .ASCIZ
<15><12>'PROGRAM RELOCATED TO !

MTOE:
.ASCIZ
<15><12>'MORE THAN ONE PARITY ERROR FOUND.'

SCANM:
.ASCIZ
<15><12>'SCANNING MEMORY FOR BAD PARITY.'

SEQ 0109

CYM5AB

5 TANDARL

0 2 MEGAWORD MEMORY EX MACRO Y05.02

PROGRAM MESSAGES

025017
025022
025025
025030
025033
025036

122
106
040
104
104
124

025041
3694 025042
025045
025050
025053
025056
025061
025064
025067

000
015
101
124
105
117
127
114
117

025075
025100
3695 025101
025104
025107
025112

101
000
015
117
105
122

131
117
102
040
122
131

040
122
101
120
111
056

012
122
131
122
122
111
040
124

120
11
040
122
G40
114
116
040

122

056

012
040

116
115

Monday 23-Dec-85 08:45

Page 22-28

SEQ 01:0

PEWNC:

.ASCIZ

<15><12>'PARITY ER?0R WILL NOT CLEAR.'

NOMTST:

.ASCIZ

<15><12>'NO MEMORY TESTED.'

SKPMES:

.ASCIZ

<15><12>'SKIPPING TEST #'

FILL2:

.ASCIZ

<377><371>

3699

.SBTTL

ERROR REPORTING MESSAGES AND TABLES.

3701

;% MESSAGE BLOCK FOR ERROR TABLE TYPEQUTS

025072

025115
025120
025123
3696 025125
025130
005133
025136
025141
025144

gggg 025147

103

124
124
056
015
113
120

107
105
040

114

115
131

105
105
000
012
111
111
040
123
043

105

117
040

123
104

123
120
116
124
124
000

000

1700

§ 3

3702

3703 025152

120

101

122

025160
025163
025166
025171
025174

040
107
124
040
124

122
111
105
104
101

105
123
122
101
040

025205

000

025214
025217
025222
025225
025220
025233
025236
025241

123
105
040
122
050
124
065
000

104
105

104
123

025155

025177
025202

3704 025206
025211

111

105
117

101
122

124

122
122

040
123
105
117
124
061
051

131

kR ok

;SRR Rk KRRk

KKK Rk kO

kR Rk kR

Rk ok Kk

ok oRk ok ok ok b bk Kk KKk &
koK ok ok

OM1:

.ASCIZ

'PARITY REGISTER DATA ERROR.'

DM2:

.ASCIZ

'ADDRESS TEST ERROR(TST1-S).'

122
056

124
124
122
122
123
055
056

ko ok Kok &

CVMSAB
0 2 MEGAWORD MEMORY EX MACRO Y05.02
ERROR REPORTING MESSAGES AND TABLES.

3705 025242
005245
005250
005253

025256
005261

005268
025067
025272
025275

3706 025300
005303

025306
025311
025314
005317
025322
025305
025330
025333

103

123
It6
104

101
122

102
123
055
051
122
101
1i6
102

117

116

Monday 23-Dec-85 08:45

Page 22-29

DM4:

.ASCIZ

‘CONSTANT DATA ERROR(TST6-10).°

DM5:

.ASCIZ

'ROTATING BIT ERROR(TST11-12).°

OM6:

.ASCIZ

'MOS REFRESH TEST ERROR (TST 24-25).

101

064
065
000
124

DM7:

.ASCIZ

'FATAL ERROR HALT'

101

124
124
101

101
040
i24

050
124
06l
056
117
124
107
1i1

124
066
060
000

040
122

105
117

124
111

040
14
122
122
123
06l
062
000

040
122
050
124
055
051
115
040
106
123
124
124
122
120
124
040
055
051

105
i1
124
061
061
05
117
122
122
110
105
040
122
040
123
062
062
05

025405
025410
025413
025416
025421

101
105
117
110
128

114
122
122
101
000

025426
025431
025434
025437
025442

103
116
061
040
104

110
107
047
101
040

122

111
040
123
1%
060

DMI0:

.ASCIZ

"MARCHING 1'S AND 0'S ERROR(TST 23).”

3710 025467

120
111
040
115
131
104
105

101

122

DM11:

_ASCIZ

'PARITY MEMORY ADDRESS ERRCLR(TST13).’

3707 09533
025381
025344
025347
025352
025355
025360

005363

02536

025371
025374
025377
3708 025402

3709 025423

025472
025475
025500
025503
025506
025511

106

115

124
115
117
040
104
123

123
105
105

040
123
105
117

050
124

040
122
040
114

131
105
122
101
122
123

SEQ 0111

CVMSAB
0-2 MEGAWORD MEMORY EX MACRO Y05.02
ERROR REPORTING MESSAGES AND TABLES.
025514
025517
025522
025505
025530
3711 025533
02553
025541
025544
025547
025552
025555
025560
025563
025566
025571
025574
025577
025602
025605
3712 025607
025612
025615
025620
025693

040
122
050
124
051
104
111
127
110
122
107
101
124
104
116
040
101
124
061
056
127
116
120
111
040

120
123
063
000
122
107
101
124
104

025631
025634
025637

124
054
125

105
040
124

025606

124

105
117
124
061

05
101

117
111
040
1171
040
122
131
i1
047
124

105

025647
025645
025650
025653
025656
025661
025664
025667
025672
025675
1713 025700
025703
025706
025711
025714

116
122
111
105
123
127
105
117
106
107
120
111
040
107
124

117
105
123
122
110
123
192
122
114
0%
101
128
122
111
105

025722
925795
025730
025733
02573

124
101
105
101
103

080
120
104
123
1171

025717

025741
025744
025747
025752
025755
005760
025763

040

124
114
116
124
123
104
105

116

122
114
107
110
040
104
123

Monday 23-Dec 85 98:45

Page 22-30

122
%S%
063
000
124
040
124
127
116
120
111
040
104
124
122
050
124
051
117
040
122
131
105
103
104
102
040
040
107
124
040
117
040
122
040
1ol
000

122
131
108
1:3
122
117

115
120
040
040
116

117
111
040
111
101
122
123

OM12:

.ASCIZ

“DATIO WITH WRONG PARITY DIDN'T TRAP(TST13)."

DM13:

.ASCIZ

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

OM14:

.ASCIZ

]
‘'PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST13).

SEQ 0112

CVMSAB
0-2 MEGAWORD MEMORY EX MACRO Y05.02
ERROR REPORTING MESSAGES AND TABLES.
025766
025771

050
124

124
061

123
063

026002
02005
026010
026013
026016

105
110
040
105
105

040
101
117
040
107

124
116
116
122
111

026024
026027
026032
026035
026040

122
116
103
105
120

040
104
101
104
101

111
111
124
040
122

?82

?8?

124 DM17 :

3714 852%33
026021

?%%

123

??9

124

Page 22-31

ASCIZ ! 'MORE THAN ONE REGISTER INDICATED PARITY Y ERROR L

!
'
ASCIZ " "DATA SHOULDN'T
HAVE CHANGED WHEN PARITY ERROR TRAPPED(TST13).
(

105

026043
026046
026051

111
040
122

026061
026064
026067
26072
026075
026100

101
110
114
047
110
105

040
117
104
124
101
040

123
125
116
040
126
103

026106
026111
026114
026117
026122
026125
026130
026133
026136
026141
026144
026147
026152
3716 026154
026157
026162
026165
026170
026173
026176
026201

107
040
105
120
111
040
122
040
101
105
124
061
056
122
104
040
124
105
117
124
061

105
127
116
101
124
105
117
124
120
104
123
063
000
101
117
104
101
122
122
123
064

104
110
040
122
131
122
122
122
120
050
124
051

116
115
101
040
122
050
124
051

DM20:

.ASCIZ

'RANDOM DATA ERROR(TST14).'

3717 026206

111

116

123

DMel:

.ASCIZ

'INSTRUCTION EXECUTION ERROR(TST15-22).'

/
3715
852822

026103

026204

026211
026214
026217
026222
026225
026230
026233

110

056

124
103
117
105
103
111
040

124
105
117

?gg DM16 :

Monday 23-Dec-85 08:45

101

000

122
124
116
130
125
117
105

131
122
122

116

125
111
040
105
124
116
122

SEQ 01173

cVMSAB
0 2 MEGAWORD MEMORY EX MACRO Y05.02
ERROR REPORTING MESSAGES AND TABLES.
026236
026241
026244
026247
026252
3718 026255
026260
026263
026266
026271
026274

026277
026302
026305
026310
026313
026316

3719 gggggé
026325
026330
026333
026336
026341
026344

026347
026352
026355
026360
026363
026366

026371
026374
3720 026376
026401

122
050
124
055
051
120
107
115
117

040
101

117
128
061
062
056
122
122
040
104

122
123
065
062
000
117
101
103
105

105
127
116
105
103
105

103
116
104
110
040
114
101
104

040
105
122
117
124
056

120
1C4
102
040
040
107

120
054
125
116
122
11

105
040
124
117
105
123

?gg

124
040
104
122
122
111

122

DM23:

Monday 23-Dec-85 08:45

.ASCIZ

Page 22-32

'PROGRAM CODE CHANGED WHEN RELOCATED.’

110
107

101 DM24 H

ASCIZ ! 'TRAPPED, ] BUT NO REGISTER HAD ERROR BIT SET .

105
110
040
122
040
124

122
101
105
117
102
040

122
120

101
105

DOM25:

.ASCIZ

'TRAPPED TO 114.'

123
056

105
000

026404
026407
026412
026415

104
117
061
000

040
040
064

124
061
056

.ASCIZ

'FAILED TO TRAP.’

000

111
104
117
122
056

DM26:

026435

101
105
124
124
120

103

DM27:

.ASCIZ

“(ACTION ENABLE WASN'T SET).*

DM31:

.ASCIZ

<15><12>'TRAPPED TO 4

2721 026416
006421
026424
026427
026432

3722 026436
026441

026444
026447
026452
026455
026460
026463
026466
026471
3723 026472
026475

124
120

106
114
040
040
101

050
124

116
116
114
127
116
040
124
000
015
122

101

111
040
101

124

117
105
102

105
101
047
123
051

040
123
124
105
056

012

124

101

120

SEQ 0114

026500
026503
026506
026511

120

040

000

105
124

064

Monday 23-Dec-85 18:45

Page 22-33

SEQ 0115

104

117

040

sohhskbbbbb bkt

bbbk

:DATA COLUMN HEADINGS

bbb bbb bbbk kb kbbb

hb bk

kbbb kbbb bbbk &k

shkbdbbbdbhhbbdhkdbkkbbhdbkhbhhkh
kbbb bbb kbbb kbbb dkkadhhnd bbb bt

DHL:

.ASCIZ

'PC

REG

S/8

DH2:

.ASCIZ

'V/PC

P/PC

S/B

DHiZ:

.ASCTZ

‘v/PC

P/PC

5/8"

DH14:

.ASCIZ

'V/PC

P/PC

REG

MA"

DH1S:

.ASCIZ

'V/PC

P/PC

MAUT

REG

WAS'

= N

Or
= OO
et OO
OO
I+ = OO+ OO
O
O e O O
OO
= O+ Ora Opapr
MO
= NTOMNVO E— MO UNTOMNOCO
2= IO OO MN & QO
B2 NONOMNOMOF-NON

~ =~ -y

NCN
N ONNN

CVMSAB 0-2 MEGAWORD MEMORY EX MACRO Y05.02
ERROR REPORTING MESSAGES AND TABLES.

PPN Cror
O~
I NN D

~JWNOAN O O N

OO
OO
OO
PO
WNOFOO

WAS'

040

3732

O
U1
~N

37131

BV O

IR O ~JOMND OO N

~ NN

3730

3733

OLUNH—

026721

S/B

WAS

CVMSAB

0 2 MEGAWORD MEMORY EX MACRO Y05.02

ERROR REPORTING MFSSAGES AND TABLES.
000
126

Or= OO0 —
el
|[
O YN

026724

3734 026725
026730
026733
026736
026741
026744
026747
026752
026755
026760
026763
026766
026771
3735 Q26712
026775
027000
027003
027006
027011
027014
027017

057

011

Monday 23 Dec-85 08:45

Page 22-34

DH21:

.RSCIZ

‘v/PC

P/PC

IuT

DH23:

.ASCIZ

‘v/PC

P/PC

SRC HA

DH24:

.ASC1Z

'V/PC

P/PC

TRP/PC’

DH25:

.ASCIZ

'V/PC

P/PC

DHZ26:

.ASCIZ

'v/pC

P/PC

DH30:

.ASCIZ

‘REG

WAS

SEQ 0116
MA

S/8

120

040

125

040

101

040

DST MA

5/8

TRP/PC

REG

WAS'

REG

WAS'

et OO OO
OO B> MNOF+ LN
POF* Or2 PO R ~J(N

3739

Pt B

s e

3738

OO0 0
P SBMNI-=LNO
ONNOO=-JO
| OO
nH LR
o O~y

et ot Pt

s (s

ANV
S £ 83 (NNPOTUND
2 e = OO
MO~ Pt NN OUNIMNO ~Jd BN WNO U

OOOOOOCOOOOOOCOCOOO [
OPLNLRLNL
LNV
TLN NV NOTLIOND o
~dmd D i~ I~ ~d~d ~d ~d~d ~d I~~~

027

s et (et

37137 027071

O
OO
OO
OO
UL i—
O N O UNNL = LNO
~IPre YOO JdPJWN

127

3736 827046

WAS’

WAS'

CVMSAB

0-2 MEGAWORD MEMORY EX MACRO Y05.02

ERROR REPORTING MESSAGES AND TABLES.

027170
027173
027176
027201

754
37%5
3756

120

027317
0271222
027225
027230
027233
02723
027241

103
057
011
115
040
040
102

011
120
04C
101
040
123
040

027247

000

126

127

101

Page 22-35

SEQ 0117

040
10i

120
103
040
o1i
040
057
040

DH31:

.ASCIZ

'V/PC

P/PC

WAS

123

sikkkkkkkkkhhkkkhbhkhkkbdhbhkhkhhbhbhkhkbkhbhkhhbdbbhbhbhhbbbsbhbbhd
bk

i+ DATA FORMAT TABLE FOR ERROR PRINTOUT.

027250

3749 027274
027277
3750 027302

723
%723

057

040
127
000

027253
3746 027254
027257
3747 027261
027264
3748 027266
027271

3751

040
123
040
Oi1

040
040
123

027244

3743
g;zg

040
101
040
f01

027204
027207
027212

3740 027214

3741
3742

011
127
O0I1
{15

Monday 23-Dec 85 08:45

027305

000

000
000
000
000
376
000
377

000
377
377
176

032000
000001

377

000 OFt1:

.BYTE

0,-1,0,0

377
000
377
376
377
000

377

DF2:

.BYTE

0,-1,-1,0,0

377

OF3:

.BYTE

0,-1,-1,-2,-2

377
000

0F14:

.BYTE

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

OF21:

.BYTE

0,-1,0,-1,0.0

DF30:

.BYTE

-1,0,-1,-2

377
000
000

000
000
377

Yy Yy

.EVEN
. = 32000
.END

:THE LOADERS ARE SAVE HERE TO END OF 8K
;1536. WORDS

004646
024204
001760
016146
000114

010520

lwlwlwlw wlewlele

p.o]

O
e b
2

=== (N ONPONO
—

011432

005324

017777
031177
001514
023742
000007
023650
000536
013734
013000
001754
013370
000250
005404
002270
002244
003372

010530
015632
PEWNC
025042
PHYADR 014276
PIRQ
- 177772
PIRQVE= 000240
PLUST
002002
PMEMAP
001654
PRELOC 024704
PRGMAP
000534
PROREL
024256
PRO
000000
PR1
000040
PR2
000100
PR3
000140
PR4
000200
PRS
000240
PRE
000300
PR7
000340
PS
177776
PSCAN
016212
PSW
177776
PWRMSG 024137
PWRVEC
- 000024
RADTAB 002004
RANTST 011232
RELQC
014626
RELOCF 000532
i

DTl

AVECTI= 000000
AVECT2= 000000

024563
014374
001714

SEes
SRR
ey
¢

(=l le ol lw il
el9
XIXIXIIXIXIXITX XX ps 4
PO
PO
OO
PO
=N BWO
~J

R
T R
T
I
I
I
L
}
TR
(B
L

KPMER

BADADR
BANKN)
PITRT

S2SSSISIESS

T
I
I
R
A
A
R

011350

ADEVCT= 000000

ADEVM = 000000
= 000001
AENV
= 000000

S$EQ 01'8 |

ADDW8 - 00000
ADDWY = (un000

000001

Page 22-36

ADDW6 = 00GQ00
ABB 7 = 000000

el e e el o =l 4 i
D
e o [
b i oD S
N
NN Pt b s =it ot ot s OCOO0QOOQOOOOOD
WN
O
O ~J NN BN
O

ADDW1 = 000000
Agguxo- 000000
ADDKWL1= 900000
A 8U1§- 000000
ADDW13- 00000
A 8“14- 000000
ADDW15= 000000
Augzmmm
ADDW3
= 000000
ACDW
= 00000
4
0
ADDWS = 000000

el T, e
e g ol o
< 4000 ~JONUN S

000009
000000
000000
000000
000000

G000 TR T GO O 0D TR 0O DT T 0D
I RO
Ooooccoonnnnpnnnmmmmmmm
IT TN MM TTOAD00
X OZ -t
bt
g b e db
g bt[ vl tarirtar P uv vt P uwbusr b

ABASE +
ACDWY
*
ACOW2
=
ACPUOP+«
ADDWO =

Monday 23-Dec o5 38:45

ITIX
B B
SRS BBESS
m>»
- %O

D ¢ MEGAWORD MEMORY Ex MATRG *05.02

POPOPONO
PO e e s
VB GI-=
U

IVMSAB

Symbol tablie

012654
012760
012775
001214

$OMODE

S
5
0C VDN
O
oMoy
—Z

O CHO<UVOr

W=JrO
S
Vi
OO EOJPOOBIOO

> N N
>
B
>
P U

O
M—XM
INZXC

VOV VUMD TNV

—000O0OMMMOD>HZX
nZo X0
noZX

HO VDOV VUVUVX—=—NTNWU

001172
022743
001076
001100
001226
001232
001236
001222
001174
001224
001230
001234
001220
001322
022742
021565
001210
001212
001174
021554
001225
001231
001235
001241
020030
001144
000001
023424
023426

> U A

001320
901176
022744
001146
001145
001110
001114
012712
020660
000000
001320
021750
001074
000706
001125
001104

020044
001106
003434
020274
001102
001162
001214

$PRINT
$PWRAD
$PWRDN
$PWRMG
SPWRUP
$QUES

P> AP AP> AP AP U

001073
001105

P A

e C OO

ot el

s ot

000008

DS1ASTANT
ST, 1,0 ) NN
NN IR
o
i e b AL A
RO rbrooREN

OO [olelelolel
OOOOOO

001300
001302
001204
001252
012754
023160
012722

012646

SQVER

$PASS
$SPASTM

D P> U

7
>
B
A
U

W10

001215
012624

UNNUNUL DD DD
€ — A4
—A e of e e e b e A e e e A —d — — —] =N
<< MO0
F AL <<<<<<—4NNTDVUVVZ
T X T TR MEEE

> AP AP
/B

D
LB A
P>
P AN A
P
P
P
P
AP
UYL
I
S
AP0 ALY AV AU
IV LI

012040
012272
012376
007324
012506
007432
007520
007652
007656
007676
017026
024643
000000
013060
013132
001766
010262
010224
010322
010366

Y AP

PO U0 A

> YD

UoP

SEQ 0119

AP AT AL AP AP LTS AP AP TP P> AP

P> A <"
AP
U A
> AL

Nw
>
D

WWPBYT
WWPBO
WWPB1
WWPB2

$SERFLG
$SERMAX
$ERROR
$ERRPC
T
T IO
MMMmmMmmmmmm m
x>0

R
R R

BT
I

=
=

VMK]

SENVM

$EOP
$EQPCT

=DV X>— o)

$APTHD
$APTR

011072
011162
011206
011216
014546

or-or ~<CO

WWPB3
WWPB4
WWPBS
WWPB6
W3X9

MY 4PV ALY LY

A A
—
e
= - —§ —t —
UNWNNIUIULINUIDUWVIWDILNWL o) X
e o
e —f
e o~ —f
ek —{ —4 po
= ~INONUN B (NNTITOTONO
)
NN N
bt et et s et s et e T
n
P
>
B NMRFAO
~IOVNIEB WO
DM«
o
el iag]
d e

e
e
e o
e e

UNEXPT
<C
X0

]
EA
LA
CI
CI
LI
L BN
T
T
TI

[T IR TR

SW2
SW3
SWa
SW5
SWé
SW7
SW8

SW13
SW14
SW15

L S

{ B

%000007
015552
001614
025000
- 000004
007612
003752

(LT

UL INW
mfmiMmmMmoy
o

%000006

002000
004000
010000
020000
040000

SW10
oW1l
SW12

—A
At A A
—< WU

014750
(15264
Q0ubc
3¢
015464
001506
000300
000304
000306
000324
000010
014500
000006

Page 22-37

mXe— oD

table

Monday 23 Dec-85 08:45

OOOOOOOOOTIOV0OOOICIOCHIOIOOIOIOOOMNMDT
B> I >
> >>
jom ol lwle wlieoiwlolelcbogo
b od
XXX TOOMOOPC
A~ ——4——inn
NAMBEEODBUD-O<-<
<< << —4—
—
PE DMV
DOMO~INBNOIM
D
—X
@
[2]
Z—4

0 2 MEGAWORD MEMORY EX MACRC YC5.02

001220
001244
001246
001504
000023
000021

017556
023425

002016
001764

[

CvMSAB

0 2 MEGAWORD MEMORY EX MACRO Y05.02

Symbol table

LEIGHT
.ERRTB
MEMMA
. ABS.

002036
002034
002006
032000

000000

Errors detected:

.MPPAT
MPRX
.MPRO
000

Monday 23 Dec 85 98:45

002030
002024
002n22

.PBTRP
.PESRV
.PMEMA

(RW,I,GBL,ABS,Ong

001

(RW,I,LCL,REL,CON

s¢s Assembler statistics

Work
Work

f'le
reads: 655
f'le writes: 514

5
0 Pages)

system: RSX-11M/PLUS (Under

Elapsed t me:

Operat 'ng

S'ze of work file: 633 6 Words
S ze of core pool: 19714 Words
00:03:03.04

AX/VMS)

CVHgAB BIN, CVHSAB LST=SYSMAC.MLB/ML, CVMSAB.P11

002026
002032
002014

Page 22-38
.RESRV
.SAVTS
.STACK

SEQ 0120
002020
002010
002004

ISTMA 002012
.TST32 002040
S$X
= 001320