Digital PDFs

AC-S918A-MC-0BW

August 1981

101 pages

Original

3.9MB

view download

OCR Version

3.3MB

view download

Document:	CVMEMA0 Non-Volatile Data Retention Diagnostic
Order Number:	AC-S918A-MC
Revision:	0BW
Pages:	101
Original Filename:	CVMEMA0__MCV11-DA__DATA_RETENTION_DIAG__AH-S919A-MC__OCT_1981_bw.pdf

OCR Text

MCVIL-DR

DAT“ EE&EEaé,

TION

DIAG

FICHE 1 OF 1 sebcanusa @_EE@Bu
AH-S919A-MC

oct 1%L

AmEEEOn

“ /MEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

JSER DOCUMENTATION

22-JUN-87 15:42

PAGE 3

.SBTTL USER DOCUMENTATION

SEQ 0001

.REM §

IDENTIFICATION
-y
=
@

PRODUCT

CODE:

’

AC~S918A-M(

PRODUCT NAME:

CVMEMAD NON-VOLATILE DATA RETENTION DIAGNOSTIC

PRODUCT

5-AUGUST-~81

DATE:

MAINTAINER:

STORAGE SYSTEMS DIAGNOSTICS

AUTHOR:

KENNETH LANGLAIS

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO
(CHANGE WITHOUT
NOTICE
AND
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
EQUIPMENT CORPORATION.
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED
FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

(C)

THE
USE
SUPPLIED

OR
BY

RELIABILITY
Of
DIGITAL
OR ITS

1981 BY DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

TVMEMAD CIAGNOSTIC FOR NON-VOLA MACRO M1113

JSER DOCUMENTATION

TABLE

S
-

G
N
[

PAGE &

CONTENTS

OVERVIEW OF DIAGNOSTIC PRODUCT
PRODUCT DESCRIPTION
PRODUCT USERS

ENGINEERING USAGE
MANUFACTURING USAGE

.
O

L]
. L] L]
.
.
OwneSsnwWh—

ASSUMPT JONS
PERFORMANCE GOALS
COMPATIBILITY GOALS

.
O

REQUIREMENTS

]
.
-

RUN TIME ENVIRONMENT REQUIREMENTS
DEVELOPMENT ENVIRONMENT REQUIREMENTS
FUNCTIONAL DESCRIPTION

G4
[0 .Y o Yo SV, VIV, 1V, P YW

[)
.

why —

GOALS

FAILSOFT GOALS
RESTRICTIONS
NON-GOAL
S

PRODUCT

WWW

FIELD SERVICE USAGE
CUSTOMER USAGE

[)
o

L]
[}
NN
—

22-JUN-81 15:4;‘

MENU QUESTIONS
POWER FAIL
POWER UP
ERROR WITHIN MEMORY MAP
PROGRAM FLOW FOR AN UNMAPPED SYSTEM

PROGRAM FLOW FOR A MAPPED

SYSTEM

SEQ 0002

C vMEMAQ CIAGNCSTIC FOR NOM~VOLA MACRO M1113

o
P
o

Voo

U T

INTERFACES

HELP FILE

B1BL IOGRAPHY

<SER DOCUMENTATION

GLOSSARY

22-JUN-81 15:42

ERROR INFORMATION
SCHEDULE

PAGE

D
5

SEQ 0003

—

CVMEMAD DIAGNOSTIC FOR NON-VOLA MACRO M1113

22-JUN-81 15:42

USER DOCUMENTAT
ION

1.0

OVERVIEW OF

1.1

PRODUCT DESCRIPTION

PAGE 6

SEQ 0004

DIAGNOSTIC PRODUCT

MEMORY DIAGNOSTICS WAS CONTRACTED BY TOEM MARKETING GROUP TO GIVE

DIGITAL
CUSTOMERS, FINAL ASSEMBLY AND TEST (F.A. AND T.), AND FIELD SERVICE A MEANS OF VERITYING THAT THE NON-VOLATILE MEMORY AND
IT'S BATTERIES ARE OPERATIONAL.

THIS DIAGNOSTIC WILL

IN ANY QBUS SYSTEM PROVIDING THE RESTRICTION
SECTION 2 OF THIS MANUAL IS ADHERED TO.

TEST NON-VOLATILE MEMORY

CRITERIA

SET

FORTH

—

PRODUCT USERS

.2.1

ENGINEERING USAGE -

DESIGN VERIFICATION OF BATTERY BACKUP CIRCUITRY

AVAILABLE

1.2.2

FOR DMT USE

MANUFACTURING USAGE -

VOLUME MANUFACTURING
A MEANS OF VERIFYING DATA DETECION OF NON-VOLATILE MEMORIES.
FAAND

THIS
DIAGNOSTIC
WILL
GIVE
F.A. AND T.
A MEANS
OF
CHECKING
THE
NON-VOLATILITY
OF CMOS RAMS AND THE ABILITY OF THE BATTERIES TO MAINTAIN DATA RETENTION.

1.2.3

FIELD SERVICE USAGE -

VERIFICATION OF

CUSTOMER

VERIFICATION OF

ECO

SERVICE CALLS:

1.2.4

FAILURE

INSTALLATION

ISOLATION, REPAIR AND VERIFICATION

INSTALLATION

CUSTOMER USAGE -

@EQTESOF VERIFYING DATA RETENTION OF NON-VOLATILE MEMORY AND IT'S BAT-

r YMEMAQ CIAGNOSTIC FOR NON-VOLA MACRO M1113

JSER DOCUMENTATION

2.0

PRODUCT GOALS

2.1

ASSUMPTIONS

22-JUN-81 15:42

PAGE 7

SEQ 0005

IT WILL BE ASSUMED THAT PRIOR TO EXECUTING THIS DIAGNOSTIC ALL

PRIATE

RUN.

APPRO-

(PU, MEMORY, AND PERIPHERAL DIAGNOSTICS HAVE BEEN SUCCESSFULLY

THE DIAGNOSTIC WILL REPORT ANY BAD LOCATIONS FOUND WITHIN ANY AREA
MEMORY THAT NON-VOLATILE EXISTS.

THE OPERATOR MUST HAVE THE KNOWLEDGE OF
THE
STARTING
NON-VOLATILE MEMORY WITHIN THE OPERATOR'S SYSTEM.

ADDRESS

THIS DIAGNOSTIC TREATS ALL MEMORY MODULES CONTAINING ROM,

NON-BATTERY

BACKED UP MOS RAM, AND NON-BATTERY BACKED UP CMOS RAM AS VOLATILE MEMORY.
ALL MEMORY MODULES CONTAINING CORE, BATTERY BACKED UP MOS RAM,
AND BATTERY BACKED UP CMOS RAM AS NON-VOLATILE MEMORY.
THE Q-BUS (PU MUST HAVE EITHER A HALT/ENABLE SWITCH OR THE CPU MODULE
MUST
BE
STRAPPED
TO HALT WHEN POWERED uP (WIRE JUMPER CONFIGURATION
MUST BE W5-IN, W6-0UT)
THE OPERATOR OF THIS DIAGNOSTIC IS ASSUMED TO HAVE THE MEANS OF
VERIFYING
THAT THE MEMORY MAP THIS DIAGNOSTIC WILL PRODUCE CORRECTLY CONFIGURES

2.2

THE

SYSTEM UNDER TEST.

PERFORMANCE GOALS

THE GOAL OF THIS DIAGNOSTIC IS TO DETERMINE THE DAT,. RETENTION OF
ALL
NON-VOLATILE
MEMORY
(ONTAINED
WITHIN
A GIVEN SYSTEM.
THIS PROGRAM
WILL REQUIRE INFORMATION FROM THE OPERATOR DURING IT'S EXECUTION.
THE
INFORMATION WILL BE GATHERED USING A MENU TECHNIQUE.

2.3

COMPATIBILITY GOALS

THE INITIAL DIAGNOSTIC IS EXPECTED TO RUN ON ANY QBUS SYSTEM PROVIDING
THAT THE TRAP LOCATIONS HAVE READ/WRITE ACCESS.

2.4

FAILSOFT GOALS

ANY PARITY ERROR CAUSED BY ACCESSING VOLATILE MEMORY AFTER POWER
WILL BE

IGNORED.

DOWN

rVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

2.5

22-JUN-81 15:42

PAGE 8

SEQ 0006

RESTRICTIONS

THIS DIAGNOSTIC IS DESIGNED TO RUN ON ALL QBUS SYSTEM EXCEPT FOR THOSE

SYSTEMS THAT DO NOT ALLOW READ/WRITE ACCESS IN THE TRAP VECTOR SECTION
OF MEMORY (ADDRESS O THROUGH 400 OCTAL).
THE SYSTEM MUST HAVE A TERMINAL IN ORDER FOR THE OPERATOR TO ANSWER THE QUESTIONS THE DIAGNOSTI(
WILL ASK.
THE OPERATOR MUST KNOW AT WHICH LOCATIONS
IN MEMORY
THE
NON-VOLATILE MEMORY EXISTS.

THIS DIAGNOSTIC IS TO ONLY WORK WITH CPU'S
DATA RETENTION CAPABILITY.

2.6

- NOT APT
QUE

IS TO CHECK THAT NON-VOLATILE

AND THAT THE BATTERIES ARE OK.

TESTING.

-~ NOT

SUPPPORT

POWER-DOWN

NON-GOALS

THIS DIAGNOSTIC'S ONLY PURPOSE

ING

THATM

WORK=-

THIS DIAGNOSTIC PERFORMS NO OTHER

(OMPATIBLE

IN THE SCOPE OF

NEEDS OF

THIS PROJECT TO MODIFY THiS PROGRAM TO MEET UNI-

MANUFACTURING.

3.0

REQUIREMENTS

3.1

RUN TIME ENVIRONMENT REQUIREMENTS

QBUS

CPU

3.2

DEVELOPMENT ENVIRONMENT REQUIREMENTS

CONSOLE TERMINAL
AT LEAST 1 OF ANY OF THE FOLLOWING MEMORY MODULES:
MCV11 CMOS RAM MEMORY MODULES WITH BATTERY BA(CKUP
MSV11 MOS RAM MEMORY WITH BATTERY BACKUP
MMV11 CORE MEMORY MODULES
XXDP+ LOADING MEDIA

FOR PROGRAM DEVELOPMENT DIAGNOSTIC ENGINEERING WILL BE ABLE

TO USE OUR

OWN EQUIPMENT, BUT FOR INTIAL DEBUG, IT IS ESSENTIAL THAT WE HAVE A(C6E§SSE?T?OZROPERLY EQUIPPED RUN TIME SYSTEM AS DESCRIBED IN THE PREVI-~
U

THIS DIAGNOSTIC WILL BE

VERIFIED ON A VARITY OF

Q-BUS SYSTEMS.

“VMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

4.0

22-JUN-81 15:42

PAGE 9

SEQ 0007

FUNCTIONAL DESCRIPTION

THE PURPQOSE
OF
THIS PROGRAM
IS
TO TEST
THE
DATA RETENTION OF
NON-VOLATILE MODULES IN ANY QBUS SYSTEM.
THIS WILL BE ACCOMPLISHED BY
ASKING THE OPERATOR A SERIES OF QUESTIONS (MENU), GENERATING A RESTART
HELP FILE, WRITE A BACKGROUND PATTERN (125252) THROUGHOUT MEMORY, DO A

CHECKSUM OF THE PROGRAM AND THE TRAP VECTOR

SPACE

(10-376),

TELLING

THE
OPERATOR
TO POWERDOWN THE SYSTEM, POWER IT BACK UP, RESTART THE
DIAGNOSTIC, VERIFY THE CHECKSUMS, CHECK ENTIRE MEMORY
FOR
THE BA(K-

GROUND PATTERN (125252), AND GIVE THE OPERATOR A MEMORY MAP OF ALL VOLATILE AND NON VOLATILE MEMORY IN THE SYSTEM.
THE OPERATOR MUST
(OMPARE THIS MAP WITH THE ONE LEFT BY THE
THAT PROPER DATA RETENTION EXISTS.

4.1

INSTALLER IN ORDER TO DETERMINE

MENJ QUESTIONS

THE DIAGNOSTIC WILL PROMPT THE OPERATOR TO ANSWER THE FOLLOWING
QUESTIONS
A
<CR>
AS AN ANSWER TO THE FOLLOWING QUESTIONS WILL CAUSE THE
E???é{ION STATED DIRECTLY TO THE LEFT OF THE QUESTION MARK
TO BE
IN
1.

DO YOU WANT A HELP FILE

(L)

[A¥]

A ''Y'' ANSWER TO THIS WILL
CAUSE
GENERAL
HELP
PRINTED BEFORE CONTINUING WITH THE QUESTIONS.

IS THERE NON-VOLATILLC MEMORY AT ADDRESS O (L)
A "Y' OR <CR> ANSWER WILL

(0)

INHIBIT THE ASKING OF QUESTION 3.

WHAT IS THE STARTING ADDRESS OF ONE OF
RY MODULES

FILE

THE NON-VOLATILE MEMO-

THE PROGRAM WILL NOW MOVE ITSELF TO THAT AREA IN MEMORY.
IF
THE ADDRESS IS NOT A LEGAL 4K BOUNDARY ADDRESS THE DIAGNOSTIC

WILL PRINT THE FOLLOWING ERROR MESSAGE AND REPEAT QUESTION 3.
ILLEGAL ADDRESS = NOT A 4K BOUNDARY

IF THE ADDRESS IS OUTSIDE THE MEMORY AREA OF THE
SYSTEM
THE
ggk%ggING ERROR MESSAGE WILL BE PRINTED AND QUESTION 3 IS RE-

4K ADDRESS OR NUMBER OF
THIS SYSTEM.

4K BANKS ARE OUT OF

ADDRESS RANGE

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

22-Jim-381 15:42

USER DOCUMENTAT]ION

PAGE 10

1
SEQ 0008

NOTE

«~ |F THE ADDRESS TYPED IN

REALLY

VOLATILE

THEN

WHEN THE PROGRAM IS RESTARTED THE SYSTEM WILL NOT OPERATE PROPERLY.

DO YOU WANT THE DIAGNOSTIC TO VALIDATE
SYSTEM

(L)

¥?

ALL

MEMORY

THIS

A "Y' <CR> ANSWER WILL CAUSE NO MORE QUESTIONS TO

BE
PROMPT
AND THE PROGRAM FLOW WILL GO TO THE SECTION ON POWERFAIL 4.2

WHAT

[S THE STARTING ADDRESS OF

TEST

(0)

THE NON-VOLATILE MEMORY UNDER

THIS ADDRESS MAY OR MAY NOT BE THE SAME AS THE ADDRESS

QUESTION 3.

TYPED

IT IS THEN THE PROGRAM WILL RESIDE WITHIN

THE QUESTIONED NON-VOLATILE MEMORY MODULE.

IF NOT

THEN

THE

PROGRAM WILL
BE AT EITHER_ADDRESS O IF QUESTION 2 WAS A '7Y"
OR AT THE ADDRESS QUESTION 3 ASKED FOR.
6.

HOW MANY 4K BANKS OF MEMORY TO BE TESTED (D) 0?
THE OPERATOR WILL INPUT THE NUMBER OF 4K BANKS TO
BE
TESTED
FROM
THE
START ADDRESS, A "'0'' OR <(R> ANSWER WILL MEAN TEST

ALL

4.2

THE BANKS FROM THE

START ADDRESS

TO END OF MEMORY.

POWER FAJIL

BEFORE THIS DIAGNOSTIC INSTRUCTS THE OPERATOR TO POWER DOWN
TEM.
THE
TERMINAL.

THE

SYS-

DIAGNOSTIC WILL PRODUCE A RESTART HELP FILE ON THE CONSOLE
THIS HELP FILE 1S NEEDED TO GUIDE THE OPERATOR IN A STEP BY

STEP MENU THAT
MUST BE PERFORMED IN ORDER TO RESTART THE DIAGNOSTIC
AFTER POWER IS RETURNED.
SECTION 4.5 GIVES AS PART
OF
THE
EXAMPLES
TYPICAL RESTART HELP FILES FOR VARIOUS TYPES OF
THE OPERATOR WILL

%ESS

THAN

THEN BE

INSTRUCTED

EXECUTE

TO POWER DOWN THE

MINUTES AND NO MORE THAN 100 HOURS.

PLEASE POWER DOWN THIS SYSTEM.
HOURS,

SYSTEMS.

THE

SYSTEM

FOR

THE ACTUAL MESSAGE

AFTER 2 MINUTES BUT NO LONGER THAN 100

RESTART HELP FILE.

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCIMENTATION

22-JUN-81 15:42

PAGE 11

SEQ 0009

POWER UP

4.3

AFTER THE POWER WAS RETURNED TO THE SYSTEM THE
OPERATOR MUST
FOLLOW
THE
STEP BY STEP PROCEDURE ON HOW TO RESTART THE DIAGNOSTIC GIVEN BY
THE PROGRAM BEFORE POWER DOWN.
THE DIAGNOSTIC WILL START CHECKING ALL
MEMORY
FOR DATA RETENTION.
ON THE CONSOLE TERMINAL A MEMORY MAP WILL
BE PRINTED AT ALL AREAS WITHIN THE SYSTEM THAT
(ONTAIN VOLATILE
AND
NON-VOLATILE MEMORY.

AN EXAMPLE OF A MEMORY MAP GIVEN BY THIS DIAGNOSTIC:
MEMORY MAP

START ADR.

40000

END ADR.

37776

157776

MEMORY TYPE

NON~-VOLATILE MEMORY
VOLATILE MEMORY

WORD ERROR

PARITY ERROR

THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST

4.4

ERROR WITHIN MEMORY MAP

WORD ERROR - THE NUMBER OF WORD FAILURES FOUND WITHIN A
GIVEN 4K
CHUNK OF MEMORY IF THE DIAGNOSTIC FEELS THAT 4K IS NON-VOLATILE.

PARITY ERROR IS THE NUMBER OF PARITY ERRORS FOUND WITHIN A 4K PART
OF
MEMORY.
THIS WILL ONLY PRINT OUT ERRORS FOUND IN NON-VOLATILE

MEMORY.
DUE TO THE EXCESSIVE RUNTIME OF THE DIAGNOSTIC WHEN
SERVICING EVERY PARITY ERROR (WHICH INCLUDES ALL PARITY ERRORS WITHIN
VOLATILE MEMORY) A DECISION WAS MADE TO LIMIT THE PARITY SERVICING
CAPABILITY
TO
10
PARITY ERRORS PER 4K OF MEMORY.
IF THE MEMORY

THE PARITY ERRORS WERE IN WERE NON-VOLATILE THEN A MESSAGE OF
OR MORE'' WOULD BE PRINTED UNDER PARITY ERRORS.

()

‘110

PROGRAM CHECK SUM ERROR ~ BEFORE THE MEMORY MAP HEADER IS
PRINTED
THE PROGRAM DOES A (CHECKSUM OF ITSELF TO MAKE SURE THAT THE MEMORY
THE PROGRAM IS IN IS OK.
IF NOT THEN THE FOLLOWING ERROR
MESSAGE
WILL NOTIFY THE OPERATOR.

CHECKSUM ERROR.

THE MEMORY THE PROGRAM S RESIDENT

THE PROGRAM WILL

CONTINUE BUT MAY NOT OPERATE PROPERLY.

TILE LOCATIONS.

HAS

VOLA-

TRAP VECTOR CHECKSUM.
ANOTHER (HECKSUM WAS
ALSO
DONE
WITH
THE
VECTOR
PAGE
(ADDRESS 0-376) OF BANK 0.
THIS TIME THE ERROR WILL
ONLY BE REPORTED IF BANK O WAS DETERMINED TO BE NON-VOLATILE.
:
ERROR MESSAGE

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113

22-JUN-81 15:42

USER DOCUMENTAT]ION

TRAP

LOCATIONS

(ADDRESS

NON-VOLATILE MEMORY.

4.5

PAGE 11-1

0-376)

SEa@ 0010

HAVE

PROGRAM FLOW FOR AN UNMAPPED SYSTEM

4.5.17

THE FOLLOWING IS AN EXAMPLE OF AN UN-MAPPED SYSTEM WITH NON-VOLATILE
MEMORY
IN THE LOWEST PART OF MAIN MEMORY.
AFTER LOADING THE DIAGNOSTIC, THE FOLLOWING SEQUENCY OF EVENTS WILL APPEAR ON THE CONSOLE
MINAL.

CVMEMAO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES.
THIS IS AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT)

WITH

28K

MEMORY.

DO YOU WANT A HELP FILE

(L)

IS THERE NON-VOLATILE MEMORY AT ADDRESS O (L)

¥?

DO YOU WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS
(L)

vy2

SYSTEM

RESTART HELP FILE

SET ENABLE/HALT FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER,
SET ENABLE/HALT FRONT PANEL SWTICH TO ENABLE PCSITION, AND TYPE:
2577707/506<CR>
PLEASE

STAND BY!

PLEASE POWER DOWN THIS SYSTEM.
THAN 100 HOURS.

EXECUTE

AFTER 2

MINUTES

THE RESTART HELP FILE.

BUT

LONGER

THE OPERATOR WILL NOW POWER DOWN, WAIT 2 MINUTES AND RETURN
POWER
THE
SYSTEM.
THE
FOLLOWING IS A TYPICAL MEMORY MAP FOR AN UN-MAPPED
SYSTEM.

CVMEMAO CIAGNOSTIC FOR NON-VOLA MACRO M1i13
USER DOCUMENTAT
JON

22-JUN-81 15:42

PAGE 12

SEQ 0011

MEMORY MAP

START ADR.

END ADR.

MEMORY TYPE

0
40000
140000

37776
137776
157776

NON-VOLATILE MEMORY
VOLATILE MEMORY
NON-VOLATILE MEMORY

WORD ERROR

PARITY ERROR

THIS CONCLUDES THE NON-~VOLATILE DATA RETENTION TEST.

—

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

4.5.2
PED SYSTEM

22-JUN-81 15:42

PAGE 13

SEQ 0012

THE FOLLOWING IS AN EXAMPLE OF AN UN-MAP
WITH

NON-VOLATILE

MEMORY SOMEWHERE OTHER THAN LOWEST PART OF MAIN MEMORY.

AFTER LOADING THE DIAGNOSTIC,
APPEAR ON THE CONSOLE

THE FOLLOWING SEQUENCE

TERMINAL.

EVENTS

WILL

CVMEMAQO DATA RETENTION DJAGNOSTIC FOR NON-VOLATILE MEMORIES
T?#gpls AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT)

WITH

DO YOU WANT A HELP FILE

(L) N?

IS THE STARTING ADDRESS OF

IS THERE NON VOLATILE MEMORY AT ADDRESS 0 (L) Y?
WHAT

24K

NON-YOLATILE

MEMORY

?O)YOg WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS

SYSTEM

MODULES L
L)

(0) 0?

20000

ONE OF

THE

RESTART HELP FILE

SET ENABLE/HALT FRONT PANEL SWITCH TO HALT POSTION, APPLY
POWER,
SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION, AND TYPE:

87/ XXXXXX 20176<(R>

PLEASE

STAND BY!

PLEASE POWER DOWN THIS SYSTEM.
AFTER 2
MINUTES
THAN 100 HR.
EXECUTE THE RESTART HELP FILE.

BUT

LONGER

THE OPERATOR WILL NOW POWERDOWN, WAIT 2 MINUTES, AND RETURN
POWER
T0
THE
SYSTEM.
NEXT
THE
OPERATOR MUST FOLLOW THE RESTART HELP FILE.
AFTER COMPLETION OF THE HELP FILE THE DIAGNOSTIC WILL PRINT A
TYPICAL

MEMORY MAP FOR AN UN-MAPPED SYSTEM.

(VMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

PAGE 14

SEQ 0013

MEMORY MAP

START ADR.
0
20000

END _ADR.

MEMORY TYPE

1.2776

VOLATILE M:MORY

17776
77776

100000

VOLATILE MEMORY
NON~-VOLATI
_E MEMORY

WORD ERROR

PARITY ERROR

THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST.

)

’

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

USER DOCUMENTATION

4.5.3

22-JUN-81 15:42

PAGE 15

EXECUTING

SEQ 0014

THE FOLLOWING

UN-MAPPED

SYSTEM

THAT

EXAMPLE

(ONTAIN

THE

DIAGNOSTIC

2 NON-VOLATILE ARRAYS.

THE OPERATOR

WANTS TO EXECUTE THE TEST ON THE NON-VOLATILE ARRAY
THAT
RESIDES
IN
THE
LOWEST
PART
OF
MAIN MEMORY AND HAVE THE PRC7SRAM RESIDE IN THE

OTHER NON-VOLATILE ARRAY.

EA(CH ARRAY HAS 4K OF MEMORY.

CVMEMAQ DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES

PTSFIKS)RIS AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT)

WITH

DO YOU WANT A HELP FILE

(L)

28K

IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y?
WHAT ]S THE STARTING ADDRESS OF
MODULES (0) 0?
20000

NON-VOLATILE

MEMORY

DO)YOl_{ WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS

SYSTEM

WHAT
TEST

UNDER

(LY

vY2

ONE OF

THE

[S THE STARTING ADDRESS OF
(0) 02
O

THE

HOW MANY 4K BANKS OF MEMORY ARE

NON-VALATILE

TO BE

TESTED

MEMORY

(D) 07

RESTART HELP FILE

SET ENABLE/HALT FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER,
SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION, AND TYPE:
87/ XXXXXX 20204<CR>

PLEASE STAND BY!
PLEASE POWER DOWN THIS SYSTEM,
AFTER 2
THAN 100 HR.

EXECUTE

THE

MINUTES

RESTART HELP FILE.

THE OPERATOR WILL NOW POWER DOWN, WAIT 2 MINUTES,
THE

SYSTEM,

AFTER COMPLETION OF

MAP fFOR

THAT

PART OF

THE

OPERATOR

THE HELP FILE
MEMORY ONLY.

MUST

THE

BUT

LONGER

AND RETURN POWER

FOLLOW THE

RESTART

DIAGNOSTIC WILL

HELP FILE.

MIMORY

CVMEMAQ DIAGNOST]IC FOR NON-VOLA MACRO M1113

USER DOCUMENTAT
JON

22-JUN-81

15:42

c 2
PAGE 16

SEQ 0015

MEMORY MAP

START ADR.

THIS

END ADR.

17776

(ONCLUDES

THE

MEMORY

TYPE

NON-VOLATILE MEMORY

NON-VOLATILE

DATA

WORD ERROR

RETENTION

TEST.

PARITY ERROR

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

D_2

PAGE 17

SEQ 0016

PROGRAM FLOW FOR A MAPPED SYSTEM

4.6

4.6.1

THE FOLLOWING IS AN EXAMPLE OF A MAPPED SYSTEM WITH NON-VOLATILE MEMO-

RY IN THE LOWEST PART OF MAIN MEMORY.

AFTER LOADING THE DIAGNOSTIC,
WILL APPEAR ON THE CONSOLE

THE FOLLOWING

TERMINAL.

SEQUENCE

EVENTS

CVMEMAQ DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES.
THIS IS A MAPPED SYSTEM (MEMORY MANAGEMENT) WITH 124K OF MEMORY.
DO YOU WANT A HELP FILE

(L) N?

IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y?

?O)YOQ UcNT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS
L)

SYSTEM

RESTART HELP FILE

?E;EENABLE/HALT FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER,
YPE

87723464/ XXXXXX O<CR>
772356/ XXXXXX
772304/ XXXXXX
8772316/ XXXXXX
777572/ XXXXXX

177600<CR>
77406<CR>
77406<CR>
1<CR>

SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION AND TYPE:
227/xxxxxx 40510<CR>
PLEASE

STAND BY!

PLEASE POWER DOWN THIS SYSTEM.
THAN 100 HOURS.

EXECUTE

AFTER 2

MINUTES

THE RESTART HELP FILE.

BUT

LONGER

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

PAGE 18

SEQ 0017

THE OPERATOR WILL NOW POWER DOWN, WAIT 2 MINUTES AND RETURN POWER
T0
THE
SYSTEM.
THE FOLLOWING IS A TYPICAL MEMORY MAP FOR A MAPPED SYSTEM.

MEMORY MAP

START ADR.
0
40000

END_ADR.

MEMORY TYPE

757776

VOLATILE MEMORY

THIS CONCLUDES

37776

NON-VOLATILE MEMORY

THE NON-VOLATILE

WORD ERROR

DATA RETENTION TEST.

PARITY ERRCR

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

4.6.2

22-JUN-81 15:42

PAGE 19

SEQ 0018

THE FOLLOWING IS AN EXAMPLE OF A MAPPED SYSTEM WITH NON-VOLATILE MEMORY SOMEWHERE OTHER THAN LOWEST PART OF MAIN MEMORY.
AFTER LOADING THE DIAGNOSTIC,
APPEAR IN THE

CONSOLE

THE FOLLOWING SEQUENCE

TERMINAL.

EVENTS

WILL

CVMEAO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES
THIS IS A MAPPED SYSTEM (MEMORY MANAGEMENT)
DO YOU WANT A HELP FILE

(L) N?

IS THERE NON-VOLATILE AT ADDRESS O (L)
WHAT IS THE STARTING ADDRESS OF
(0) 02
1000000

WITH 2043K OF MEMORY.

THE NON-VOLATILE

MEMORY

MODULES

QO)YOE WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS
L)

SYSTEM

RESTART HELP FILE

?ELEENABLE/HALT FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER,
YPE

@772344/XXXXXX
a772356/XXxXXXX
8772304/ XXXXXX
a772316/XXXXXX
777572/ XXXXXX
8772516/ XXXXXX

10000<CR>
177600<CR>
77406<CR>
77606<CR>
1<CR>
20<CR>

SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION AND TYPE:
227/xxxxxx 41034<CR>
PLEASE

STAND BY!

PLEASE POWER DOWN THIS SYSTEM.
HR.

EXECUTE

AFTER 2 MINUTES BUT NO MORE

THE RESTART HELP FILE.

THAN

100

THE OPERATOR WILL NOW POWER DOWN, WAIT 2 MINUTES, AND RETURN POWER
TO
THE
SYSTEM,
NEXT
THE
OPERATOR
MUST FOLLOW THE RESTART HELP FILE.
AFTER COMPLETION OF THE HELP FILE THE DIAGNOSTIC WILL PRINT A
TYPICAL

MEMORY MAP FOR A MAPPED

SYSTEM.

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

PAGE 20

SEQ 0019

MEMORY MAP

START ADR.
0
4000000
4100000
1000000
1020000

END ADR.
3777776
4077776
7777776
1017776
17757776

MEMORY TYPE
WORD ERRCR
VOLATILE MEMORY
0
NON VOLATILE MEMORY
0
VOLATILE MEMORY
0
NON-VOLATILE MEMORY
0
VOLATILE MEMORY
0

THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST.

PARITY ERROR
0
0

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

4.7

22-JUN-81

PAGE 21

SEQ@ 0020

HELP FILE
FUNCTIONAL

THE

15:42

PURPOSE

THIS

PROGRAM

DESCRIPTION

TEST

THE

DATA RETENTION OF

NON-VOLATILE MODULES IN ANY QBUS SYSTEM. THIS IS NOT A MEMORY
DIAGNOSTIC. PLEASE RUN CZKMA OR VMSA DIAGNOSTICS BEFORE RUNNING
NOMNN
B NN =

PROGRAM.

THE

.
.

THE

FOLLOWING

THE

THIS

PROGRAM FLOW:

(MENU)

BANK O

VOLATILE)

WRITE A BACKGROUND PATTERN (125252) THROUGHOUT MEMORY
DO A CHECKSUM OF THE PROGRAM
DO A CHECKSUM OF THE TRAP VECTOR SPACE (ADDRESS 0-376)
TELL

THE

OPERATOR

TO POWERDOWN THE

NOW FOLLOW THE

100 HOURS.

AFTER POWER UP:

THE

RELOCATE PROGRAM TO NON-VOLATILE AREA (IF
GENERATE AND PRINT A RESTART HELP FILE

OPERATOR WILL

DISCRIPTION OF

ASK THE OPERATOR A SERIES OF QUESTIONS

2 MINUTES AND
1.

A BRIEF

THE

SYSTEM

RESTART HELP FILE

FOLLOWING IS THE

DO ANOTHER CHECKSUM OF THE PROGRAM AND (HECK
ONE DONE BEFORE POWER DOWN.

DO ANOTHER CHECKSUM OF
THE

ONE

DONE BEFORE

THE

SOME

FLOW OF

TIME

BETWEEN

THE PROGRAM

IT AGAINST

THE

TRAP VECTOR SPACE AND CHECK IT AGAINST

POWER DOWN.

(NO

TRAP

CHECKSUM ERROR WILL

REPORTED UNLESS BANK O WAS DETERMINED NON-VOLATILE)

CHECK ENTIRE MEMORY FOR THE BACKGROUND PATTERN (125252)

TZH}ILEAS?E?(E)zY MAP OF

OPERATOR MUST

INSTALLER

IN ORDER

COMPARE

ALL

VOLATILE

THIS MAP WITH

TO DETERMINE

AND NON VOLATiLE MEMORY

THE

ONE

LEFT BY

THE

THAT PROPER DATA RETENTION EXISTS.

PREREQUISITE

(ZKMA OR VMSA MUST

SUCCESSFULLY

COMPLETE

2. OPERATOR MUST KNOW STARTING ADDRESSES OF ALL VOLATILE AND
3.
&.

NON-VOLATILE MEMORY

IN THE

SYSTEM

VIDEO TERMINALS MUST EITHER REMAIN POWERED WHEN PROCESSOR IS

POWERED DOWN OR A COPY OF THE RESTART HELP FILE MUST BE MADE
BEFORE POWERING DOWN THE SYSTEM
IF

THE

(PU DOES NOT HAVE

AN ENABLE/HALT

(PU IS STRAPPED TO HALT WHEN POWERED UP.
DIAGNOSTIC WILL NOT OPERATE PROPERLY.

SWITCH,

CHECK

OTHERWISE

THE

THAT

THE

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

4.8

ERROR
WAS

COULD CAUSE

15:42

PAGE 22

2
SEQ 0021

INFORMATION

IN THE EVENT

FILE

22-JUN-81

THAT

THE

DJAGNOSTIC DID NOT

COMPLETED,

THE

CONTINUE

THE DIAGNOSTIC NOT

STARTING ADDRESS WAS VOLATILE MEMORY

gg$0R WHEN SETTING UP RESTART REGISTERS

ENABLE/HALT FRONT PANEL

RETURNED.

(PU WITHOUT

ENABLE/HALT

WHEN POWERED UP

(WS-IN,

WHEN

SWITCH SET TO ENABLE
FRONT

PANEL

W6-0UT)

WAS NOT

IF NO OPERATOR ERROR WAS DETERMINED THEN THE
DATA
ng-VOLATILE
MEMORY THE PROGRAM WAS IN IS NOW BAD.

4.9
THE

HELP

USING

THAT

CONSOLE

WHEN

POWER

STRAPPED

IS
HALT

RETENTION
OF
THE
C(HECK THE BATTER-

SCHEDULE
PROGRAM

COST OF

11K.

THE COST AND
TIONALITY OF

5.0

RESTART

OPERATOR ERROR

TO RESTART.

WHEN

FOLLOWING EXAMPLES ARE

S EXPECTED

TAKE

TIME WILL FLUCTUATE
THIS PROGRAM.

8 WEEKS

FROM DESIGN

THERE

ARE

ANY

THROUGH DEBUG AT

(HANGES

THE

FUNC(C-

INTERFACE

;:EEQIAGNOSTIC WILL Bt
1.

SYSMA(

XXDP+

DESIGNED TO CONFORM JITH THE

FOLLOWING

INTER-

(VMEMAQ CIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

6.0

BIBLIOGRAPHY

}?E

FOLLOWING LISTS

7.0

22-JUN-81

THE

SYSMA(C.MAN

SPMACJ.DOC

XXDPPLUS.DOC

GLOSSARY

15:42

LITERATURE

J_ 2
PAGE 23

USEN

[N THE

SEQ 0022

DESIGN OF

THIS DIAGNOS-

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

000000
889
890
891
892
893
894
895
896
897

22-JUN-81 15:42

.ENABLE ABS
.DSABLE GBL

.LIST

PAGE 264

MMERR
.S$SIZE
ROUTINE TO SIZE MEMORY

RETURN

JSR

SEQ 0023

SEQ,SIN,CND

.MACRO
.SBTTL

STARS
;*CALL:
i

PC,$SIZE

-IF DF KIPARO

;*SLSTAD WILL CONTAIN:
,'
WITH KT11 QOPTION

-~ LAST VIRTUAL ADDRESS OF THE LAST BANK
*
WITHOUT KT11 OPTION
-~ LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
$#$KT11

IS THE MEMORY MANAGEMENT KEY

*BlTO? = 0 DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE THE CALL

'BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION
e
DETERMINED BY ROUTINE

E;g%ger WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

$SIZE:

MOV

RO, =-(SP)

::SAVE RO ON THE STACK

)

MOV

R2.-(SP)

::SAVE R2 ON THE STACK

)

MOV

MOV
MOV

MOV

MOV
MOV
MOV

R1,-(SP)

R3.-(SP)
R&,~(SP)

ar114,-(SP)

a#116.-(SP)
#116,114
#RT] ,¥116

S:SAVE R1 ON THE STACK

L:SAVE R3 ON THE STACK
1 SAVE R4 ON THE STACK

8k001

. :SAVE MEMORY ERROR VECTOR PS & PC
:: IGNORE PARITY ERRORS WHILE SIZING

SN#ERRVEC,=-(SP)
. .SAVE PRESENT ERROR VECTOR PS & PC
SNERRVEC+2,~(SP)
SP,RO
;. SAVE THE STACK POINTER

:;SET THE ERRVEC PS TO THE PRESENT PS
GETPR]
@WERRVE(C+2
JIFT

$KT11:

MOV

ISTB
.WORD

8PL

; :SETUP ADDRESS

$CORE

‘BR IF NO

(PC)+
200

* USE MEMORY MANAGEMENT?
:SET TO USE MEMORY MANAGEMENT

MOV
ST

#$KTNEX,@#ERRVEC ::SET FOR TIMEOUT
WSRO
;:KT11 ARE YOU THERE?

ar172816

$:0-BUS MAP ARE YOU THERE?

#176200,8STOP

:-END OF 2M OF MEMORY

BIS
MOV
MOV

MOy

1008:

#3776.R1

B8R

#100000,8KT11
::YES=-SET KT11 KEY
#1008, S¥ERRVEC : :SET FOR TIMEOUT

8k001

#200, SMAP

8k001

SMAPRG

MOV

#6200.a#8STOP

CLR

SNSMAP

CMP

(SP)+. (SP) +

SNOMAP

8Kk001

STURN ON MAP INDICATOR

1160 SET UP MAP REGISTERS

8k001

" CLEAN OFF STACK

8k001

- :COMPARISON VALUE FOR 18 BIT MAPPING

TIMAKE SURE MAP INDICATOR TURNED OFF
J:

8x001

BX0O1

BK0O1

(VMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81

MOV

#MMERR
, I#MMVE (

;SET IN CASE OF ERROR

CLR

-(SP)
#KIPARO R2
#4D8

;o INITIALIZE FOR “PAR'' LOADING
..ADDRESS OF FIRST 'PAR"

MOV
MOV
MOV
MOV
ADD

x77466 -40(R2)
(SP), (R2)+

#200, (SP)
R3,1$

#127600,-(R2)
-(R2)

#28, ¥ERRVEC

gio.awsns

:cTHIS PDP-11 HAS A SR3 REGISTER

;1S MAP THERE?
+:NO=SKIP

;;SET FOR TIME OUT

- -SET UP MEMORY ERROR VECTOR

@FERRVEC+2,a#116 :;LOCK OUT INTERRUPTS
aH143776
::TRAP ON NON-EX-MEM

#40, (R2)

Bk001

8K001
8K001
8K001

8K001

SIMAKE A 1K STEP

(R2) R2

*SLAST ONE?
LINO=-TRY [T
S:GET LAST BANK+1

SISMAP

23 1S MAP THERE?

BK0O1

*STURN OFF MAP

8K001

arSRO

?fizg

SIZEX

S TURN OFF MEMORY MANAGEMENT
JINO=-SK]IP

8k001

1777464 R4

::SAVE MEMORY ERROR REGISTER

8K001

#1 R4

*SMEMORY TIMEOUT?

8K001

RG. aN177744
skTouT

SKTNEX:
:
$CORE

#100000,8kT11

1%:

#4000 R

S CLEAR BITS IN REGISTER

SIYES=EXIT

1iMUST BE PARITY ERROR-IGNORE 1T

soKT11 NON-EXISTENT
ISCROUTLSFERRVEC ;,SET FOR TIMEOUT

040 R?

R1
l177776 R1

1%:

$:SETUP KIPAR7 FOR /0
:2SETUP KIPARG FOR TESTING
;;CATCH TIMEOUT IF NO SR3
:cENABLE 22 BIT MODE AND UNIBUS MAP

SISMAP
48

#SKTOUT ,@#ERRVEC

$SIZEX

$CROUT:
$SIZEX:
.IFF

..UPDATE FOR NEXT °'PAR'’
cLOOP UNTIL ALL EIGHT ARE LOADED

..CLEAN OFF THE STACK--NO SR3
;s TURN ON MEMORY MANAGEMENT

(SP)+,(SP)+

atssrop (R2)

$KTOUT:

;LOAD EIGHT 'PAR.'S'' AND EIGHT "PDR.'S"

:iPDR = 4K, UP, READ/WRITE

a#SRO

FSMMOUT ,a#116
(%:

SEQ 0024

#340,#MMVEC+?2

S08
MOV
CLR
MOV

2s:
3s:

BK0O1
;:=200 IF MAP PRESENT
VALUE
;oFILLED WITH APPROPRJATE COMPARISON

MOV

1%:

PAGE 24-1

0
0

SMAP:
.WORD
$STOP:
.WORD
$MAPRG:
100$:
SNOMAP:
JIF NB MMERR

.ENDC

15:42

13
paooo R1

SSSET UP BANK

S INCREMENT BY 1K

231K STEP

S TRAP ON TIME OUT
JsLAST ONE
::NO==TRY AGAIN

#40,RS

; :DROP BACK

#28 NERRVEC

;:SET FOR TIMEOUT

(R1)

;. TEST THIS ADDRESS

#20000.R1

L FIRST ADDRESS

8K001

8k001

BK001

CVMEMAD DIAGNOSTIC FUR NON-VOLA MACRO M1113 22-JUN-B1 15:42 PAGE 24-%
M

SEQ 0025

2$:
LAFTF

Guur Gaur

WN=O

Qo P

n Qs Qe Sunr S G
o VNV

#2,R1

. ;DROP BACK

(SP)+ @#ERRVE(

;3STEP TO NEXT ADDRESS

JAFT

(SP)+,a#116
, a#114
(SP)+
R1,SLSTAD

;;RESTORE MEMORY ERROR VECTOR

R2,8LSTBK

:JLAST BANK

(SP)+ ,R1

:;RESTORE R1

;;CONTAINS THE LAST ADDRESS

;JCONTAINS THE LAST BANK

(SP)+ R4
(SP)+ ,R3
(SP)+ ,R2

JFTF

;gP)*,RO

SLSTAD:
JFT
$LSTBK:
.ENDC

;:TRY ANOTHER

RO,SP
;sRESTORE THE STACK
(SP)+ ,a#ERRVEC+2 ;;RESTORE ERROR VECTOR

b
b
b
D
d e
b ad
e
—-— b

(R1)+

d —D

USER DOCUMENTATION

.WORD

.$SIZE

;:LAST ADDRESS

;:RESTORE Ré
:;RESTORE R3
;:RESTORE R2
;:RESTORE RO

B8k001

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-B81

15:42

N 2
PAGE 25

SEQ 0026

1026
107
1028
1029
1030
1031

.MACRO
.STYPE
.SRTTL
TYPE ROUTINE
STARS
J*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.

}8;2

;*NOTE3:

1032

;*NOTEZ2:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$SFILLC CONTAINS THE CHARACTER TO FILL AFTER,

1035
1036

;*CALL:
t1) USING A TRAP INSTRUCTION

1038
1039

.*OR
M

1037

}82?

1042
1043

1046

1047

1048

1049

$TYPE:

TSTB
8PL

$TPFLGI
13

2:1S THERE A TERMINAL?
J:BR IF YES

;:LEAVE

HALT
1%
IF DF

MOV

“MAIL

1061

1062
1063

1064
1065
1066
1067
1068
1069
1070
1071

1072
1073
1074
1075
1076
1077

1078
1079

62%:
.ENDC
2%:

60%:
3%:
'A ¥

c0$:

5%:

6%:

1080
1081
1082

7$:

82 (SP) RO

::SAVE RO

csGET ADDRESS OF ASCIZ STRING

#APTENV,SENV

8118
BEQ

AAPTSPOOL ,$ENVM ; .SPOOL MESSAGE TO APT
62%
J:NO,GO CHECK FOR CONSOLE

MOV
61%:

RO,~-(SP)

< sHALT HERE IF NO TERMINAL

(MPB

1053

1051
1052

1057
1058
1059
1060

[S FIRST ADDRESS OF AN ASCIZ STRING

ME SADR

BNE

1056

JsMESADR

TYPE

1050

1054
1055

.MESADR

1044

1045

TYPE

623

RO,618

s sRUNNING IN APT MODE

J:NO,GO CHECK FOR APT CONSOLE

;:SETUP MESSAGE ADDRESS FOR APT

JSR
. WORD

PC,$ATY3
0

:;SPOOL MESSAGE TO APT
. sMESSAGE ADDRESS

BNE

603

JJYES,SKIP TYPE OUT

BITB

NAPTCSUP,SENVM

;-APT CONSOLE SUPPRESSED

MOovB
B8NE

(RO)+,=-(SP)
43

;;PUSH CHARACTER TO BE TYPED ONTO STACK
J:BR JF IT ISN'T THE TERMINATOR

MOV
ADD

(SP)+,R0O
N2, (SP)

;:RESTORE RO
2 ;ADJUST RETURN PC

TST

RT]
(MPB
BEQ
(MP8
BNE
TST
MOV
ADD

MOV
TYPE

(SP)+

#HT, (SP)
83

#CRLF, (SP)

b} §
(SP)+
PC,-(SP)
#SCRLF1~-.,(SP)
(SP)+,20%

.WORD SCRLF1
CLRB
$CHARCNT
BR
’$

JSR

PC.STYPEC

M0V

$NULL .= (SP)

(MP8
BNE

DE(CB

;o
1F TERMINATOR POP IT OFF

:sRETURN
; BRANCH [F

THE

<HT>

;;BRANCH IF NOT <CRLF>

JJPOP

<(R><LF> EQU]V

JJTYPE A CR AND LF
::CLEAR CHARACTER COUNT
GET NEXT CHARACTER
GO TYPE THIS CHARACTER

SFILLC,(SP)+
g 3

..IS IT TIME FOR FILLER CHARS.?
;oIF NO GO GET NEXT CHAR.

1(SP)

o
THE NULL (HAR.
;.DOES A NULL NEED TO BE

J;GET & OF

FILLER (HARS. NEEDED
TYPED?

STACK

CVMEMAQ DIAGNOST'C FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

1083

1084
1085

1086

1087

1088

1089
1090
1091
1092
1093

22-JUN-81 15:42

8L
JSR
DECB
BR

68
PC,STYPEC
$CHARCNT
7%

JSR

PC,S$TYPEC

;HORIZONTAL TAB PROCESSOR
8s:
MOVB
#' ,(SP)

9s:

PAGE 25-1

BITB
BNE
TSt
BR

#7.$CHARCNT
9s
(SP)+
2s

BPL

108

;:BR IF NO--GO POP THE NULL OFF OF STACK
1260 TYPE A NULL
$:DO NOT COUNT AS A COUNT
. LO0P
:;REPLACE TAB WITH SPACE

STYPE A SPACE

SIBRANCH IF NOT AT
S:TAB STOP
*:POP SPACE OFF STACK
“IGET NEXT CHARACTER

1094

$TYPEC: TSTB

1096
1097

MOV
BIC

a3TKB1,-(SP)
#177600, (SP)

BNE
TSTB
BPL
MOVB
BIC
CMSB
BNt
TST

102%
a$TKS1
1018
aSTKB1, (SP)
#127600, (SP)
#SXON, (SP)
1018
(SP) +

MOVB
CMPB

2(SP).asTPB1
#CR,2(SP)

:;LOAD CHAR TO BE TYPED INTO DATA REG.
*:IS CHARACTER A CARRIAGE RETURN?

$CHARCNT

S YES==CLEAR CHARACTER COUNT

1095

1098

1099
1100
1101
1702
1103
1104
1105
1106

1107
1108

CMPB #SXOFF, (SP)

1018:

1028:

108 :

1109
1110

TSTB
8PL

1111

BNE

1412

1113

1114
1115
1116
1117
1118
1119

1120
1121
1122
1123
1124
1125

1126
1127
1128
1129
1130
131
1132

1133

@a$TKS!

SEQ 0027

CLRB

1%:

B8R

CMPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RTS
_11F NDF HT,HT=

"11F
C1IF
-11F
C11F
_1IF
C11F

_1IF
_11F
.11F
C11F

@$TPSI
108
18

$TYPEX

WLF,2(SP)
$TYPEX
(PC)+
0
PC
11

NDF $TKS1,$TKS1:
£Q .-$TKST.$8TKS1:
.WORD
NOF $TkB1,$TKB1:
EQ .-$TKB1,.$TKB1:
.WORD
NDF $XON,SXON = 21
NDF $XOFF ,$XOFF = 23
NDF
NDF
NDF
NDF

LF.LF= 12
CR.CR= 15
CRLF,CRLF=
STPS1 _$TPS1:

J1IF EQ .-$TPs1,8TPS1:
_11F NOF $TPB1,$7PB1:
J11F EQ .-STPB1,$TPB1:

"11F NDF SNULL,$NULL:

T:CHAR [N KYBD BUFFER?

;MJDOO1

LIGET CHAR
LI STRIP EXTRANEOUS BITS

*MJDOO01
>MJD001

SiBR IF NOT

*MJDOO1

S WAS CHAR XOFF

*MJD0O01

;.BR IF NOT
“:WAIT FOR CHAR

:MJDO0
*MJDOO1
*MJDOO01
*MJDOO1
*MJD001
*MJD001
:MJDOO1
:MJDOO1

::GET CHAR
LISTRIP IT
SIWAS IT XON?
;:BR IF NOT
SIFIX STACK

“SWAIT UNTIL PRINTER IS READY

;MJDOO1

SSBRANCH IF NO

SIEXIT

* IS CHARACTER A LINE FEED?
S:BRANCH IF YES
*:COUNT THE CHARACTER
*:CHARACTER COUNT STORAGE
;;CODE FOR HORIZONTAL

TAB

177560

;;TTY KDB STATUS

177562

;:TTY KBD BUFFER

:MJDOO1
*MJDOO1
*MJDOO1
*MJDOO1
:MJD001
-MJDOO1

::CODE FOR LINE FEED
" CODE FOR CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN~LINE FEED

200

.WORD

177564

::TTY PRINTER STATUS REG. ADDRESS

.WORD

177566

::TTY PRINTER BUFFER REG. ADDRESS
::CONTAINS NULL CHARACTER FOR FILLS

1134
1135
1136

JIIF EQ .-SNULL.SNULL:
.BYTE
C11F NDF SFILLS.SFILLS:
J11F EQ .~SFILLS,SFILLS:

BYTE

::CONTAINS # OF FILLER CHARACTERS RE

1138

J1IF EQ .~SFILLC,S$FILLC:

BYTE

. INSERT FILL CHARS. AFTER A "LINE F

1137
1139

_11F NDF SFILLC,$FILLC:

"11F NDF STPFLG1.$TPFLGI:

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTAT
ION

22-JUN-81

15:42

1140
1141
1142
1143

1IF
11F
11F
11F

EQ .-STPFLG1.$TPFLG:
NDF SQUES,SQUES:
EQ .-SQUES,SQUES:
.ASCII
NDF $CRLF1.$CRLF1:

1145

1IF

NDF

1144

1146

1147
1148

11F €Q .-$CRLFI,$CRLF1:
11F

11F NE
ENDM

SLF1,8LF1:

.-SLFT.SLF1:

1., ~ .EVEN
.$STYPE

PAGE 25-2

LASCIZ

SEQ 0028
BYTE

‘"'

ASCIT
<12>

::"'TERMINAL AVAILABLE'' FLAG
:;QUESTION MARK

<15>

: :CARRAIGE RETURN
: sLINEFEED

(BIT<07>

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
v
W

;~CALL:

SEQ 0029

(ASCII) AND TYPE

IS USED TO CHANGE A 16~BIT BINARY NUMBER TO A 6-DIGIT

o®

MOV

NUM, - (SP)

;sNUMBER TO BE TYPED

.BYTE

J:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

J*
J¥

d cad ) D d

;*OCTAL (ASCI]) NUMBER AND TYPE IT,
;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
X

TYPOS

.BYTE

;sCALL FOR TYPEOUT

;:M=1 0OR 0

::1=TYPE LEADING ZEROS
; :0=SUPPRESS LEADING ZEROS

;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
;«CALL:

NNNNNNNNNO

e
D nd D e
D cnd e
b
b e

PAGE 26

.STYPOCT
BINARY TO OCTAL

;*THIS ROUTINE

I
M
> %

MOV
TYPON

NUM,-(SP)

JJNUMBER TO BE TYPED
:sCALL FOR TYPEOUT

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
;«CALL:

o
.

MOV
TYPOC

NUM,-(SP)

MOVB

#6,3$0OMODE +1

$TYPOS: MOV
MOVB
MOVB
ADD
B8R
$TYPOC: MOVB

a(SP, ,-(SP)
1(SP) ,$OFILL
(SP)+,SOMODE+1
#2,(SP)
$STYPON
#1,80FILL

$TYPON: MOVB

#5,80CNT

MOV

—

:2SET THE

ITERATION COUNT

ADD
MOVB

#6 R4
R4, $OMODE

:2SUBTRACT IT FOR MAX., ALLOWED
::SAVE IT FOR USE

MOV
CLR
ROL

12(SP) ,RS
R3
RS

B8R

R4 ,-(SP)

;2GET THE ZERO FILL SWITCH

;.60 DO MSB

RS
RS

MOV
ROL
DECB
8PL
8IC

RS5.R3
R3
$OMODE
7%
#177770,R3

BNE
TST
BEQ
INC

BIS

;:SAVE R4

S$OFILL.RS

ROL
ROL
ROL

;;SET FOR SIX(6) DIGITS

::SAVE RS
;;GET THE NUMBER OF DIGITS TO TYPE

MOvVB

3s:

J3SET THE ZERO FILL SWITCH

RS,-(SP)
§2M005+1,R4

2%:

;;PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
;:;NUMBER OF DIGITS TO TYPE
:sADJUST RETURN ADDRESS

;sSAVE RS

MOV
Mggs

1%:

;sNUMBER TO BE TYPED
csCALL FOR TYPEOUT

R3,~(SP)

MoV

N§

0
0 YO O O O O O P 00
0o 0o Qo Co 0o 0o 0O 0O

b
e cd
b d ed o
e cmd =D s
e e
e el e
b e
— e amd b ed

.MACRO
.SBTTL

STARS

d d d ad e

D d D od D e

D )

USER DOCUMENTATION

22-JUN-B81 15:42

;;PICKUP THE INPUT NUMBER
J:CLEAR THE OUTPUT WORD
:;ROTATE MSB INTO 'C*’
;;FORM THIS DIGIT

43
R4
<s

;:GET LSB OF TMIS DIGIT
;;TYPE THIS DIGIT?
J¢BR IF NO
J.GET RID OF JUNK
J:TEST FOR O
;:SUPPRESS THIS 0?
;;BR IF YES

#'0,R3

J:MAKE THIS DIGIT ASCIL

;:DON'T SUPPRESS ANYMORE 0°'S

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTAT
ION
1207

1208

E 3
PAGE 26-1

22-JUN-81 15:42

1209
1210

BIS

MOV

PC.=(SP)

MOVB

R3,8$

1211

ADD

#88-. ., (SP)

1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224

MOV
TYPE
.WORD
DECB
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV

(SP)+,10%

1212

1205
1226
1227
1228
1229
1230
1231
1232

108 :
7%

6$:

8$:
$OCNT:
$OFILL:
$OMODE:
_ENDM

MOV
RT!
BYTE

BYTE
.BYTE

.BYTE

.WORD

.$TYPOCT

SEQ 0030
::MAKE ASCII IF NOT ALREADY

:>SAVE FOR TYPING

“FETCH ADDRESS OF NUMBER TO BE TYPED USING
S:POSITION INDEPENDENT CODE

SSTACK NOW CONTAINS ADDRESS OF NUMBER TO BE
J:PRINTED

8%
$OCNT
2$
6%
R4
2$
(SP)+,RS
(SP)+.R4
(SP) +.R3
2(SP) .4 (SP)

“SSET UP ADDRESS FOR TYPE COMMAND
26O TYPE THIS DIGIT
**ADDRESS OF CHARACTER TO BE PRINTED
S COUNT BY 1
S:BR IF MORE TO DO
::BR IF DONE
*INSURE LAST DIGIT ISN'T A BLANK
2:G0 DO THE LAST DIGIT
S RESTORE RS
*RESTORE R4
*RESTORE R3
SiSET THE STACK FOR RETURNING

0
0
0
0
O

; ;RETURN
*'STORAGE FOR ASCII DIGIT
* TERMINATOR FOR TYPE ROUTINE
S:0CTAL DIGIT COUNTER
2:2ERO FILL SWITCH
SINUMBER OF DIGITS TO TYPE

(SP)+., (SP)

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

RIESORIRGR

—d e

) e

P s

USER DOCUMENTATION

1244

1245
1246
1247

1248
1249

1250
1251
1252
}%22

1255
1256
1257

.MACRO
.SBTTL

STARS

;*REPLACED WITH SPACES.

J+CALL:

1%:

2%:

5%:

6%:
7%:

1276

1280

1283
1284
1285

1286

1287

1288
1289
1290

8%:

9% :

;;PUT THE BINARY NUMBER ON THE STA(CK
;GO TO THE ROUTINE

<RO,R1,R2,R3,R4.RS>
#20200,-(SP)
:2SET BLANK SWITCH AND SIGN
22(SP) .RS
;:GET THE INPUT NUMBER
1%
RS
#'-,1(SP)
RO
PC,R3

J:BR IF INPUT IS POS.
;JMAKE THE BINARY NUMBER POS.

MOVB
CLR
MOV

#' ,(R3)+
R2
P(C.R&

;:SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE B(CD NUMBER
JJUSE PC FOR LOCATING TABLE

ADD
MOV

RO.R4
(R4) R

;3 INDEX INTO TABLE
;;GET THE CONSTANT

43
R2
3s

;:BR ]1F DONE
;s INCREASE THE BCD DIGIT BY 1

SuB

BLT
INC
BR

ADD
TST

TSTR
BM]

#$DTRL~-. R4

R1,R§

;:STILL DOING LEADING 0°'S?
::BR IF YES

& ,R2
R2,(R3)+

1(SP) ,=-1(R3)
#'0,.R2
(RO) +

cTMP

RO,#10

BGT
MOV

8PL
MOVvB
CLRB

9
=1(SP) ,=2(R3)
(R3)

POP

;:FORM THIS BCD DIGIT

(SP)
7%

BIS
MOVB

B8R
IST8

;R4 NOM POINTS TO TABLE

;;ADD BACK THE CONSTANT
:;CHECK IF BCD DIGIT=0

(SP)
63

MOovB
8IS

;:TABL

R1,.RS
RZ

ASLB
BCC

BLT

1279

NUM,-(SP)

#$DBLK-. ,R3

TST

1278

THE NUMBER. LEADING ZEROS WILL ALWAYS BE

;sMAKE THE ASCII NUMBER NEG.
;sIERO THE CONSTANTS INDEX
JIJFETCH PC FOR ADDRESSING
;;igug THE OQUTPUT POINTER - R3 POINTS TO $DBLK

BNE

1277

1281
1282

MOVR
CLR
MOV
ADD

ADD

1267

1274
1275

TYPDS

BPL
NEG

1272
1273

e 1Y)

$TYPDS: PUSH
MOV
MOV

1265
1266

1270
1271

.S$TYPDEC
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

;*BEFORE THE FIRST DIGIT OF

3s:

1268
1269

SEQ 0031

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE ]T. DEPENDING ON WHETHER THE
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED

1261

1262
1263
1264

F_3

PAGE 27

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

1258

1259
1260

22-JUN-81 15:42

RS ,R?2
63
(SP)+

J:FALL THROUGH IF O
;:MSD?
;:BR IF NO

;3YES=-=-SET THE SIGN
;sMAKE THE B8CD DIGIT ASCII

;:MAKE IT A SPACE [F NOT ALREADY A DIGIT
:;PUT THIS CHARACTER IN THE OUTPUT BUFFER
;3 JUST

PC,=(SP)

ADD

#3DBLK~-., (5P)

INDEX

;GO DO THE NEXT DIGIT

;260 TO EXIT

::GET THE LSD

;G0 CHANGE TO ASCII
J:WAS THE LSD THE FIRST NON-ZERQ?

;:BR JF NO
JJYES==SET THE SIGN FOR TYPING
JiSET THE TERMINATOR

<RS,R4,R3,R2,R1.RD>

MOV

INCREMENTING

;:CHECK THE TABLE

;2FETCH ADDRESS OF NUMBER TO BE

TYPED USING

;:POSITION INDEPENDENT (ODE
JISTACK NOW CONTAINS ADDRESS OF NUMBER TO BE
JsPRINTED

CVMEMAQ DIAGNOSTIC FOR NON=-VOLA MACRO M1113

USER DCTUMENTATION
1291
1292

1293
1294
1295
1296
1297
1298
1299
1300
1301
1302

22-JUN-81 15:42

108:

$DTRL:

$DRLK:
.ENDM

MOV
TYPE
. WORD
MOV
MOV
RT1]

(SP)+,10%

$DBLK
2(SP) ,4(SP)
(SP)+,(SP)

10000.
1000.
100.

10.

6.3
PAGE 27-1

4
.BLKW
_STYPDEC

SEQ 0032

;:SET UP ADDRESS FOR TYPE (OMMAND
J.NOW TYPE THE NUMBER
;;ADJUST THE STA(K
;;RETURN TO USER

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

22-JUN-81

USER DOCUMENTATION

1304
1305
1306
1307
1308
1309
1310
13N

1312

1373
1314
1315
1316
1317
1318
1319
1320
1321

.MACRO
.SBTTL
STARS

1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337

;*THIS ROUTINE WILL

1351

1352
1353
1354
1355

}%gg
1358
1359
1360

PICKUP THE

LOWER BYTE

THE

'TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;~OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*G0 7O THAT ROUTINE.
IF B X

STRAP:

1%:
.ENDC

JIF

NB 2

$TRAPI:
.ENDC
JIF NB Y

.ENDC

MOV

RO,~-(SP)

;:SAVE RO

MOV
BIC
MOV
RTI]
MOV

2(SP) ,-(SP)
#20,(SP)
#1%,-(SP)

RO,=(SP)

;;ASSUME THE STATUS GF
2 THE CALLER--DO NOT ALLOW
2 T-BIT TRAPS
;sSET THE NEW STATUS
. :SAVE RO

MOV
TST
movs

4(SP) RO
-(RO)
(RO ,RO

;:GET TRAP ADDRESS
;;BACKUP BY 2
;;GET RIGHT BYTE OF

$TRAP1

2 NON=-USCR TRAP,BELOW 200

(PC)
2

;:USER TRAP,ABOVE 177,
;. USER TRAP HANDLER-

MOV

LIFF
$TRAP:

1338

1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350

SEQ 0033

.S$TRAP
X,Y,2
TRAP DECODER

1322

1323
1324

H 3
PAGE 28

15:42

BPL

R1,-(SP)

BIC

#~C177,.R0O

(MP

#S$TERM, RO

JMP
.WORD

B8GT
HALT
B8R
ASL
MOV
ADD

ADD

;s SAVE R1

TRAP

;:STRIP AWAY THE JUNK

GO T0

;s LHECK FOR OUT OF BOUNDS

. +6

;:BR IF

J;0uT OF BOUNDS
; JHANG

RO
PC,R1

;;POSITION FOR INDEXING
:;FETCH THIS PROGRAM POINTER FOR PIC

RO, R1

;cR1 NOW POINTS TO ROUTINE TRAP CALL WANTED

#S$TRPAD-. ,R1

;:POINT TO TABLE

MOV
(R1) ,RO
;RO CONTAINS ADDRESS FOR RTS
MOV
(SP)+ R
;JRESTORE R1
RTS
RO
::G0 TO ROUTINE
;.THIS 1S USE TO HANDLE THE ''GETPRI'' MACRO
STRAPZ: MOV
(SP) ,-(SP)
s ;MOVE THE PC DOWN
MOV
4(SP),2(SP)
JIMOVE THE PSW DOWN
RTI
;;RESTORE THE PSW
.MACRO
SETTRAP A,B,MSG
$$SET
A,B_\<TRAP+$TRP>
\STRP, <MSG>
NLIST

$STRP=8STRP+1

LLIST
.ENDM
SETTRAP
.MACRO
S$SSET
A,B.(C.D.,COMNT
.IF EQ STRP-1

.SBTTL

;*THIS

TRAP TABLE

TABLE

CONTAINS

THE

STARTING ADDRESSES OF

:*BY THE ''TRAP'' INSTRUCTION.
;
ROUT INE
;.
eemeeeee

THE

ROUTINES

CALLED

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
WY
—

52888 oot

b
D
ek
d e
D ed
b
b
b
—

WWWWN
~ NNNV
W N =00

—

USER DOCUMENTATJON

1401

1452
1405
1407
1408
16409
1410
16411
1412
1413
1414
1415

22-JUN-81

15:42

PAGE 28-1

SEQ 0034

$TRAP?2
$TRPAD: .WORD
.ENDC
. .NLIST
LLTFNDF_GNS

.IIF NDF GNS..LIST

8
$SSET
.ENDM
TRMTRP
-MACRO
STERM=. -$TRPAD
TRMTRP
.ENDM
LNLIST
$TRP=1
LLIST
.IF DF STYPE
SETTRAP
.ENDC
.IF DF $TYPOC
SETTRAP
SETTRAP
SETTRAP
.ENDC
.IF DF STYPDS
SETTRAP
<ENDC
.1F DF $TYPBN
SETTRAP
.ENDC
.1F DF $GTSWR
SETTRAP
.ENDC
.IF Dt $CKSWR
SETTRAP
.ENDC
.IF DF $RDCHR
SETTRAP
.ENDC
.IF DF $RDL IN
SETTRAP
-ENDC
.IF DF $RDOCT
SETTRAP
.ENDC
.IF DF $RDDEC
SETTRAP
.ENDC
.IF DF $SAVREG
SETTRAP
SETTRAP
ENDC
.IF DF
$R2A
SETTRAP
SETTRAP
SETTRAP
ENDC
.ENDM
.$TRAP

;s CALL=A

TYPE,STYPE,*/TTY

COMNT

TRAP+D (()

TYPEOUT

ROUTINE/

TYPOC,$TYPOC,*/TYPE
TYPOS,$TYPOS,*/TYPE
TYPON,STYPON,*/TYPE

OCTAL
OCTAL
OCTAL

NUMBER
NUMBER
NUMBER

TYPDS,$TYPDS,*/TYPE

DECIMAL

TYPBN,STYPBN,*/TYPE BINARY

(WITH LEADING ZEROS)/
(NO LEADING ZEROS)/
(AS PER LAST CALL)/

NUMBER

(WITH SIGN)/

(ASCII)

NUMBER/

GTSWR,$GTSWR,*/GET SOFT-SWR SETTING/
(KSWR,$CKSWR,“/TEST FOR CHANGE

IN SOF T-SWR/

RDCHR,$RDCHR,*/TTY

TYPEIN CHARACTER ROUTINE/

RDLIN,SRDLIN,*/TTY

TYPEIN STRING ROUTINE/

RDOCT,$RDOCT,*/READ AN OCTAL NUMBER FROM TTY/
RDDEC,$RDDEC,*/READ A DECIMAL NUMBER FROM TTY/

SAVREG,$SAVREG, */SAVE RO-RS ROUTINE/

RESREG,SRESREG,“/RESTORE

R2AZ,$R2AZ
RJAZ. ,$R2AZ.
R2AZQ,8R2AZ0Q

RO-R5 ROUTINE/

CVMEMAD DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTAT
JON

1430
1434 000400

SEQ 0035

.HEADER <(VMEMAO DIAGNOSTIC FOR NON-VOLATILE MEMORIES>,<1981>,<KEN LANGLAIS>

000 NOWVNES WA= O Nole]

He PR 2PN
AP o V¥ H
nny [AST,ST
N1, ST N1,V 1,N1,§ —

- [
S
S
Y—

1617

22-JUN-81 15:42

J 3
PAGE 29

"EQUAT
.SWRH]

"$CATCH START1
X
KT

000001
000001
000400
177560
177562
011646
016666
105777
100375
117766
042766
026627
001013
105777
100375
117746
042716
022627
001366
000750
026627
001744
026627
002407

026627
003003
042766
000002
010346
012703
022703

101405
104406
112613
122713
001003
104401

000763
111367
104401

122723
001356
105063
104401
012603

000004
177760

000002

177754
177600
0C0004

000004
000004

1%:

177722
17760C
000021

)

= 400

.SREAD

MOV
TSTB
BPL
MOVB

4(SP),2(SP)
a$TKS
13
@$TKB,4(SP)

#-C<177> .4 (SP)
L(SP) ,#2%

TSTR

a$TKS

BNE

BPL
MOVB

CMP
BNE

000021

000004

000140

000004

000175

000040

000004

3%:

B8R

cTMP
BEQ
P
BLT
WP
BGT
BIC

RT]
A ¥
$RDLIN: MOV
1s:
MOV

2%:

cTMP

BLOS

RDCHR

000177

10$:

000670

A ¥

000044
000640
000015

3%:

177777

000672

=1
= 1

BIC
cMp

BIC

000004

000642
000670

.STRAP
BEX
MEB

.WORD
JIIF EQ .~$TKS,S$TKS:
-WORD
J11F EQ .~$TKB.S$TKB:
(SP) ,=(SP)
$RDCHR: MOV

000023

177726

.SETUP
'NLIST
"LIST
SLSTIN
SLSTTAG

2$
@$TKB,-(SP)

#-C177, (SP)
(SP)+, 421
23

4(SP) ,ASXON
1%
4(SP) ,#140
4
4(SP) 4175
48
#40,4(SP)

R3,-(SP)
#STTYIN,R3

#STTYIN+26,R3
4$

MOVB
(MPB
BNE

(SP)+, (R3)
#177.(R3)
3$

BR
MOVB

is
(R3),9%

(MPB
BNE
CLRB

#15,(R3)+
2
-1(R3)

MOV

(SP)+,R3

TYPE

. $QUES

,9%

SLF

JREAD ROUTINES

177560
177562

;;TTY KBD STATUS
::TTY KBD BUFFER

;sPUSH DOWN THE PC
;:SAVE THE PS
J:WAIT FOR
;A CHARA(CTER
JJREAD THE TTY
J:GET RID OF JUNK IF ANY
;oIS IT A CONTROL-S?
;¢BRANCH IF NO
;cWAJT FOR A (HARACTER
;.LOOP UNTIL ITS THERE
;¢GET CHARACTER

JIMAKE IT 7-BIT ASCII
;:1S IT A CONTROL-Q?
;o1F NOT DISCARD IT

;cYES, RESUME
;1S IT A RANDOM XON?
;;BRANCH [F YES
;:1S IT UPPER CASE?

;sBRANCH IF YES
;1S IT A SPECIAL CHAR?
;:BRANCH IF YES
;sMAKE IT UPPER CASE
;.60 BACK TO USER
::SAVE R3
;:;GET ADDRESS
;:BUFFER FULL?
;:BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
;1S IT A RUBOUT
::SKIP 1F NOT
JsTYPE A 2!
;:CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER
;s CHECK FOR RETURN
::LO0OP [F NOT RETURN

::CLEAR RETURN (THE 15)
J:TYPE A LINE FEED
:;RESTORE R3

:RANOO1

CVMEMAQ CIAGNOSTIC FOR NON-VOLA MACRO M1113

TTY

INPUT ROUTINE

000620

01164¢€

000636

000002

000622
000630

000640
000641
000670
000671
00067°2
000674
000701
000706
1432 000717
1433 000730

016666
012766
000
000
077
015
012
136
136
015
040

000730
000732
000740
000742
000744
000746
000750
000752
000756
000760
000762
000764
000766
000772
000774
001000
001002
001004
001006
001010
001012
001014
001016
001022
0010246
001026
001030
001034
001040
001042
001044
001046
001050
001052
001054
001056
001060
001064
1434 001066

011646
016666
010046
010146
010246
104407
012600
010067
005001
005002
112046
001420
122716
003026
122716
002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010267
012602
012601
012600
000002
005726
105010
104401
000000
104401
000730
000000

1435 001070
001070

011646

000004
000642

MOV

000002
000004

Mov
MOV
9s:

000
125
107
012
040

015
015
123
116

22-JUN-81 15:42

RTI

(SP) ,-(SP)
4&(SP) ,2(SP)
#STTYIN,4(SP)

BYTE
0
.BYTE
0
.I11F EQ .-$QUES,$QUES:
.ASCII
.I1IF EQ .-$CRLF,$CRLF:
.ASCII
LIIF EQ .~SLF, SLF:
LASCIZ
SCNTLU: .ASCIZ /U/<15><12>
SCNTLG: .ASCIZ /%G/<15><12>
$MSWR:
,ASCIZ <15><12>/SwWR =
SMNEW:
L.ASCIZ
/ NEW =
.SRDOCT BIG

000004

000100

000060
000067

177770

000012
000026

000670

000002

$RDOCT: MOV
MoV
MoV
MOV
MOV
18:
RDLIN
MOV
MOV
LR
CLR
2%:
MOvB
BEQ
CMPB
BGT
CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
8IC
ADD
BR
3$:
TST
MOV
MOV
MOV
MoV
MOV
RTI
43
TST
CLRB
TYPE
5%:
.WORD
TYPE
BR
$HIOCT: .WORD

. SRDDEC
$RDDEC: MOV

PAGE 29-1

(SP) ,~(SP)
4(SP),2(SP)
RO,=(SP)
R1,-(SP)
R2,=(SP)

(SP)+,R0
RO,5$
R1
R2
(RO)+,=(SP)
3$
#'0,(SP)
43
#'7,(SP)
43
R1
R2
R1
R2
R1
R2
#*C7,(SP)
(SP)+,R1
2$
(SP)
+
R1,12(SP)
R2,$HIOCT
(SP) +,R2
(SP)
+ ,R1
(SP)+,RO
(SP)+
(RO)
0
. SQUES
1%
O
(SP),=(SP)

SEQ 0036
; ;ADJUST THE STACK AND PUT ADDRESS OF

FIRST ASCII CHARACTER ON IT

: JRETURN

..STORAGE FOR ASCI] CHAR.

;.. TERMINATOR

<15>

TO TYPE

;JQUESTION MARK

;CARRIAGE RETURN

<1
J:LINE FEED
;;CONTROL 'V’
;;CONTROL ''G"’

:;PROVIDE SPACE FOR THE
;2 INPUT NUMBER
:sPUSH RO ON STACK
::PUSH R1 ON STA(CK

;:PUSH R2 ON STACK
;;READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER
JJAND SAVE IT
. ;CLEAR DATA WORD

;;PICKUP THIS CHARACTER
;;1F ZERO GET OUT
;;MAKE SURE THIS CHARACTER
2;1S AN OCTAL DIGIT

;.%2
L

;.*8
;:STRIP THE ASCII

JUNK

;;ADD IN THIS DIGIT
:.LOOP
;:CLEAN TERMINATOR FROM STACK
;.SAVE THE RESULT

:;POP STACK INTO R2
;;POP STACK INTO R1
;.POP STACK INTO RO

s cRETURN
. JCLEAN PARTIAL FROM STACK
::SET A TERMINATOR

;;TYPE UP THRU THE BAD (CHAR.
::OI?.O

UOCRIO

.LF"

;:TRY AGAIN
;;HIGH ORDER BITS GO HERE

;:PROVIDE SPACE FOR

THE

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

o
WNANMNININ) = —b —d

000120

000055
2%:

VNS

000060

MOV
MOV
MOV
MOV
RDLIN
MOV
MOV
CLR

CLR
CMPS
BNE
mMovB

mMovs
BEQ

PAGE 29-2

2%
(RO)+,R2
(§0)+,R1
3
5%

;1S A DIGIT BETWEEN 0 £ 9

R2,=(SP)
(SP)+,RO

-(SP)
R2
#'-,(R0O)

#'0,R1

5%
#~C7777,(SP)
5%

170000

(SP)
(SP) ,-(SP)
(SP)
(SP)
(SP)+,(SP)

#'0,R1
R1,(SP)

000060

3s:

000012

A ¥

000114
000116
000116
000002

(SP)

(SP)+,12(SP)
(SP)+ ,R2
(SP) +,R1
(SP)+ ,RO

5%:

+
(SP)
(RO)

6$:

$SIZE:

SEQ 0037

;2 THE INPUT NUMBER
;:PUSH RO ON STACK
;:PUSH R1 ON STACK
::PUSH R2 ON STACK
;oREAD AN ASCIZ LINE
; ;ADDRESS OF 1ST CHAR.
;sSAVE INCASE OF BAD INPUT
;:CLEAR DATA WORD
J:SIGN SET POSITIVE
J2SEE IF A MINUS SIGN WAS TYPED
::BR [F NO MINUS SIGN
;:5AVE FOR LATER USE
:;PICKUP THIS CHARAC(CTER
;:GET OUT IF ZERO

4(SP) ,2(SP)

RO,-(SP)
R1,-(SP)

#'9,R1

000071

b
) e

D e

d ad
)

1$:

000002

) cd

000004

22-JUN-81 15:42

el wd
e

d e
nd md wnd

—d e

016666
010046
010146
010246
104407

TTY

—

)

2328232332233338333

READ A DECIMAL NUMBER FROM THE

J;MAKE SURE

;;DON'T LET NUMBEP GET TO BIG
;:BR IF NUMBER WOULD OVERFLOW
00*2
::SAVE FOR LATER
Jovb
;. *8.
;:%10.
;OVERFLOW ISN'T ALLOWED
::STRIP AWAY THE ASCII
;:ADD

IN THKIS DIGIT

JUNK

;;OVERFLOW ISN'T ALLOWED

.. LOOP
J:CHECK IF NUMBER IS NEG
;:BR IF NO
;3YES==-NEGATE THE NUMBER
;3SAVE THE RESULT

::POP STACK INTO RZ2

J:POP STACK INTO R1

;:POP STACK INTO RO

;JRETURN

;sCLEAN PARTIAL NUMBER “ROM STA(CK
J2SET A TERMINATOR
JTYPE

THE

INPUT UP TO BAD (HAR.

:;POINTER GOES HERE
::IO?II

. SQUES

GOCROI

;i TRY AGAIN

RO,-(SP)
R1,-(SP)
RZ.,=(SP)

;. SAVE
:.SAVE
;sSAVE
:;SAVE
:.SAVE
2 -SAVE

R3,-(SP)
R4 ,-(SP)
#1146 ,-(SP)
a#116,-(SP)
#116,34114
MRT],

THIS (CHARACTER

116

SN#ERRVEC,~(SP)

SWERRVE(C+2,~(SP)

z.lf.'

RO ON THE STACK
R1 ON THE STACK
R2 ON THE STACK
R3 ON THE STACK
R4 ON THE STACK
MEMORY ERROR VECTOR PS & PC

;. IGNORE PARITY ERRORS WHILE SIZING

;:SAVE PRESENT ERROR VECTOR PS & PC

B8k001

CVMEMu DIAGNOSTIC FOR NON-VOLA MACRO M1113
ROUTINE TO SIZE MEMORY

001314
001316
001320
0013264

010600
104400
012637 000006
012701 03776

001330
001332

105727
000200

001344
001350

005737
052767

001334 100135
001336 012737 001622 000004

001356
001364
001370
001376
001404
001406
001414
001416

001422
001424
001426
001430

012737
005737
012767
012767
000411
012737
022626
005037

000402
000000
000000
005046

177572
100000

$KT11:

001406 000004
172516
000200 000026

176200 000022

006200

001426

1008:

001624
$MAP:
$STOP:

001442 012762 077406 177740 1%:

001450 011622
001452 062716
0016456 077307
001460 012742
005042

000200

177600

001466 012737 001504 C00004
001474 012737 000020 172516
001502 000401
001504
001506

022626
005237

177572

001520

105737

001424

001542
001546
001552

005737
062712
023712

143776
000040
001426

001560

011202

001512 012737 001560 000004

001524 100006
001526 012737 001602 000114
001534 013737 000006 000116
001556

101371

001600 000431

ORE
“BR IF NO
csxmex S#ERRVEC ..ser FOR TIMEOUT

MOV
TST
MOV
MOV
B8R
MOV
CMP
CLR

noos S#ERRVEC
72516
c SMAP
n76200.ssrop
$SMAPRG
#6200, a48STOP
(SP)+,(SP)+
SXSMAP

B8R
.WORD
.WORD
CLR

MOV
MOV

MOV

MOV
ADD
S08
MOV
MOV
MOV
BR

o, o
INC

001612

032704

000001

8IT

000002
042767
012737

100000
001660

MOV

BNE

177502
000004

M
Bk 001
232200 IF MAP PRESENT
BK0O1
::FILLED WITH APPROPRIATE COMPARISON VALUE
::INITIALIZE FOR ‘PAR’’ LOADING

mpmo R2
#-D8

077466 -40(R2) ::PDR=

UP, READ/WRITE

(SP)., (R2)+
#200. (SP)
R3,1$
#177600,~(R2)

+3LOAD 'PAR
SUPDATE FOR NEXT ‘'PAR''
©:LO0P UNTIL ALL EIGHT ARE LOADED
:SETUP KIPAR? FOR 1/0

#28 ,SNERRVEC
#20.3#SR3
3s

::CATCH TIMEOUT IF NO SR3
SSENABLE 22 BIT MODE AND UNIBUS MAP
S:THIS PDP=11 HAS A SR3 REGISTER

-(R2)

(SP)+,(SP)+

SSETUP KIPARG FOR TESTING

FSRO

..CLEAN OFF THE STACK=-=-NO SR3
*TURN ON MEMORY MANAGEMENT

aNSMAP

::1S MAP THERE?

143776
#40, (R2)
arsSTOP, (R2)

;S TRAP N NON-EX-MEM
LIMAKE A 1K STEP
SILAST ONE?

(R2) ,R2

S3GET LAST BANK+1

RT]
SKTNEX: BIC
$CORE:
MOV

arsrRO
aNSMAP
$SI1ZEX
SNSR3

8K001
BK001
8x001
8K001
BK001
8001
BK0O1

: ADDRESS OF FIRST ‘PARTM
*LOAD sxcm "PAR.'S’* AND EJGHT 'PDR.'S"’

SMMOUT: MOV

001620
007622
00163C

SNOMAP
0
0
-(SP)

+-SET FOR TIMEOUT
:30-BUS MAP ARE YOU THERE?
“:TURN ON MAP INDICATOR
..sw OF 2M OF MEMORY
26O SET UP MAP REGISTERS
- :COMPARISON VALUE FOR 18 BIT MAPPING
::CLEAN OFF STACK
S:MAKE SURE MAP INDICATOR TURNED OFF

BHI

TST
ADD
P

177744

001616 001360

:KT11 ARE YOU THERE?
,.ves--ser KT11 KEY

48
: INO-SKIP
FSMMOUT ,a#114
::SET UP MEMORY ERROR VECTOR
FERRVEC+2,a#116 ;;LOCK OUT INTERRUPTS

CLR
ISTB
8PL
CLR

177744

SRO
nooooo $KT11

BPL
MOV
MOV

013704

010437

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

#SKTOUT ,@ERRVEC :;SET FOR TIME OUT

001602

001606

(PC)+
2oo

MOV

$K10UT: MOV

001562 005037 177572
001566 105737 001424
001572 100034
001574 005037 172516

SEQ 0038

8PL
MOV

TST8
.WORD

TSTB

48:

SP,RO
;:SAVE THE STACK POINTER
“PUSH OLD PSW AND PC ON STACK
(SP)+,@#ERRVEC+2
;:;SAVE THE PSW IN @W#ERRVEC+2
#3776 .R1
;:SETUP ADDRESS

CLR

Ve H
38

PAGE 29-3

MOV
TRAP
MOV
MOV

ST
8IS

177754

001432 012702 172340
001436 012703 000010

001464

22-JUN-81 15:42

8K001

BK001

8001

8Kk001
8k001

SINO=~TRY [T

SSTURN OFF MEMORY MANAGEMENT
:31S MAP THERE?
S INO-SK]P
S:TURN OFF MAP

BK0O01

177744 R4

:;SAVE MEMORY ERROR REGISTER

8K001

#1.R4

S SMEMORY TIMEOUT?

8Kk001

$SI2EX

RS, aN177744

sxTouT

B8K001
8k001

2:CLEAR BITS IN REGISTER

SIYES-EXIT

SiMUST BE PARITY ERROR-IGNORE
#100000,.8KT11
;.KT11 NON-EXISTENT
#$CROUT ,@#ERRVEC ;. SET FOR TIMEOUT

8k 001
IT

8001
8K001

BK0O1

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

001636
001649
001644
001650
001652

004000
000040
177776

001656
001660
001664

004000
000040

010267

012603
012601

000000

000006
000004
000116
000114
000020
000016

1$:

22-JUN-81 15:42
CLR

ADD
ADD

TST
(mP
BNE
$CROUT: SuB
$SIZEX: SuB

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS
$SLSTAD: .WORD
$LSTBK: .WORD

PAGE 29-4

SEQ 0039

::SET UP BANK

#40,R2

231K STEP

#4000 ,R1

(R1)
#177776,R1
18
#4000,R1

#40,R2
RO, SP

> INCREMENT BY 1K

“STRAP ON TIME OUT
SILAST ONE
; sNO==TRY AGAIN

: :DROP BACK
S RESTORE

THE STACK

(SP) +,a#ERRVEC+2 ; ;RESTORE ERROR VECTOR

(SP)+. a#ERRVEC
(SP)+.a#116
(SP)+.a#114
R1,$LSTAD
R2.3LSTBK

(SP) +,R4
(SP) +.R3
(SP)+.R2
(SP)+.R1

égp>+,no

0
0

: RESTORE MEMORY ERRCR VECTOR
; ;LAST ADDRESS
;s LAST BANK

*:RESTORE
*RESTORE
RESTORE
S:RESTORE

R4
R3
R2
R1

RESTORE RO

:;CONTAINS THE LAST ADDRESS
;;CONTAINS THE LAST BANK

8K001

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

22-JUN-81 15:42

PAGE 30

4
SEQ 0040

;THIS ROUTINE FETCHES A CHARACTER FROM THE TTY AND ECHOS IT

1439
1440
14641 001742

ROUTINE

FETCH

FETCH:

001742

1642
1443 001742

104406

001744

012637

010342

MOV

POP

a#E (HO
(SP) + ,a#F CHO

JFETCH CHARACTER
JsPOP STACK INTO a#ECHO

16447 001750

104401

010342

TYPE

LECHO

;ECHO CHARACTER

1046401

016155

TYPE

.CRLF1

:PRINT <CR><LF>

1444
1445 001744
1446

1448
1449 001754
1450
1451 001760

1452
1453

001760
001760
001760

ENDRTN

000207

;FETCH ANSWER

RDCHR

50000$:
50001$:

RTS

—

(VMEMAQ DIAGNOSTIC FOR NON=-VOLA MACRO M1°13 22-JUN-81 15:42 PAGE §1

ROUTINE

TO SIZE MEMORY

SEQ 0041

1455
1456
ngg

;THIS ROUTINE READS THE ADDRESS TYPED, DETERMINES THAT IT IS A LEGAL 4K
;ADDRESS (].E. DOES NOT RESIDE OLT SIDE OF THE SYSTEM ADDRESS SPACE) AND
:RETURNS WITH R4 NE #0 IF ADDRESS IS LEGAL

1459
1460 001762

ROUTINF

" 001762

122% 001762
1464 001764

1465 001764

1466 001770

001770
001776

1467
}223 002000

1470 002004

002004
1471 002006

1472 002006
1473 002006
1474 002014

1475 002014

104410
012637

010342

032737
001403

017777

104401

010152

010342

JREAD OCTAL NUMBER

POP

a¥ECHO

#17777 SETIN @#ECHO THEN

;CHECK FOR 4K

TYPE

:BOUNDARY
;NOT LEGAL ADDRESS

MOV

013737

010342

010344

013737

001066

010346

;FETCH BITS 0 -

(SP)+ ,a#ECHO

ELSE

000432

::POP STACK INTO @#ECHO

,NOT4K

LET

ANSAVLOW

:= @WECHO

LET

ANFSAVH]

:~ a#SHIOCT

;BUMP TO NEXT 4K

}2;;
1480 002022
002030

002030
1482 002036

1483 002040

1484 002040

062737

020000

010342

032767
001402

000001

014122

005537

001066

1489 002050
002050

1490 002056
002060

149 002060

1493 002064

002064

SETIN CONTROL

004767

000024

032767
001403

000001

162703
000402

CALL

014102

ELSE

B8R
50002% :

50003s

ANSHIOCT ,a#SAVH]

IS ENOUGH

:ADD 4K

THEN

:- a#SHIOCT + CARRY

THERE

ADD

#20000,a#ECHO

BIT
BEQ

#1,CONTROL
500048

ADC

afSHIOCT

:ADD OVERFLOW

500048
:
ADDCHK

SETIN CONTROL

LET R3

000200

417777 ,a#ECHO
50002%

MOV

ENDIF

002044

1488 002044

:= a#ECHO + #20000

BIT
8EQ

:SAVE BITS 16 - 22 OF ADDRESS

IN ORDER TO DETERMINE

LET @#SHIOCT

1485 002044

1486
1487 002044

LET Q#ECHO

:SAVE BITS O - 15 OF ADDRESS
MOV
S#ECHO, N SAVLOW

:MEMORY FOR THE PROGRAM AND TESTING

1479 002022

1491

FETADD:

RDOCT

1476

1481

FETADD

THEN

:= R3 - #200

:MAPFED?

;REMOVE

JSR

PC,ADDCHK

BIT
8EQ

#1,CONTROL
50005%

SUB

TEST

INCREMENT

#200,R3
50006%

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113
ROUTINE TO SIZE MEMORY

22-JUN-81 15:42

PAGE 31-1

1494 002066
1495 002066

1496 002066

50005%:

162703

LET R3 := R3 - #20000

020000

1497 002072
1498

ENDIF

002072

1499 002072
1500

1501

ENDIF

002072

002072
002072
002072

SEQ 0042

ENDRTN

000207

;REMOVE 4K TEST INCREMENT

SuB

#20000,R3

50006$:
50003$:
500008:
500J1$:

RTS

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUT INE

TO SIZE MEMORY

—

-0

SN
O
oo~y

b b
-k

— ek
2
b
—

RV, [V, RV, LV, 1V,
(S LV,

—
—

002104
002104
002110
002112
002112
002114
002114
002120

ROUTINE

032767
001431

000001

012703
000401

000001

020327
003005

006137

002126
002126

006137

002134
002134
002140
002142
002142
002144
002144
002150
002152
002152

002156
002156
002160

014056

ADDCHK

IF #1

ADDCHK:

SETIN CONTROL THEN

;DO WE HAVE MEM. MAN
BIT
#1, CONTROL
ves
BEQ
50002%

INCR R3 FROM #1 TO #3 BY #1

“MAKE ADPRESS IN ECHO AND $HIOCT
MOV

50003$:
CMP
R3.#3
50005$
BGT

000003

:COMPATIBLE WITH PAR
LET @#ECHTM := a#ECHO ROTATE 1

010342

LET a#SHIOCT

001066

:= a#$HIOCT ROTATE 1

END INC

000767

012703
000401

INCR R3 FROM #1

000001

020327
003003

000007

006337

001066

a#E CHO

ROL

aNSHIOCT

TO #7 BY #1

:NOW HIOCT WILL TAKE LOWER BITS
MOV
21 ,R3
BR
500063
50007$:
NC
R3
50006$
R3, 47
CTMP
500108
8GT

;AND PUT THEM INTO UPPER BITS
LET @#SHIOCT
END INC

000771

LET R3

001066

:= awsHjo"T

ELSE

000410

013703

ROL

BR
50004$
50005$:

005203

013703

#1.R3

50003$
BR
50004$:
INC
R3

005203

00212¢
002122

002132
002132
002134

SEQ 0043

;FOR AN UNMAPPED SYSTEM

002074
002074
002102

E_&

PAGE 32

;THIS ROUTINE CHECKS THAT THE 4K BOUNDARY IS WITHIN IN THE SYSTEM
;R3 WILL EITHER BE PAR COMPATIBLE ADDRESS FOR A MAPPED SYSTEM OR 4K ADDRESS

1503
1504
1505
1506
1507 0020746

1508
1509 002074

22-JUN-81 15:42

:- SHSHIOCT SHIFT 1

ASL

SNSHIOCT

BR
S0010s:

50007%

MOV

NSHIOCT
,R3

:NO MEMORY MANAGEMENT
BR
50011$
50002%:

010342

LET R3 :- a#ECHO

SFETCH STARTING ADDRESS
MOV

a#ECHO,R3

—

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUT INE

TO SIZE

MEMORY

22-JUN-81 15:42

1532

IYFEARR

1533 002172

002172
002176

005737
001403

001066

002200

104401

010224

002204
002204

000407

TYPE

ENDIF

1550

1551

002222
002222

1552
1553 002224

020367

013762

104401

010224

101403

TYPE

ENDIF
1$:

ENDRIN

;TELL

aNSHIOCT

50012%

OPERATOR THAT ADDRESS

;OUT OF MEMORY

JEXIT FROM ROUTINE
BR 1%

;OUTSIDE OF MEMORY
cMP
R3,ENDADD
50013s
8LOS

;IF R3 IS GREATER THAN R?
;PRINT STARTING ADDRESS OUTSIDE
;OF ADDRESS RANGE
BR
S0013%:

LET

005204

0002C7

.OUTMEM

ELSE

002224

002226
002224
002224

TST

50011$:

IF R3 K] ENDADD THEN

000401

1554
1555 002224

;ADDRESS TO HIGH

50012%:

ENDIF

002206

002220
002222

.OUTMEM

INLINE <BR 1%>

154"
1542 002206

1545
1546 002214
1547
1548
1549 002220

SEQ 0044

8EQ

002206

002206
0C2212

[F a#SHIOCT NE #0 THEN

4«0 002206

1543
1544 002206

PAGE 32-1

= R4+ M

JINDICATE 0K
INC

50014%

500148:

500008$:
50001$:

RTS

P-

DIAGNOSTIC FOR NON-VOLA MACRO M1113

22-JUN-81 15:42

TO SIZE MEMORY

THE PURPQSE OF

1558 002305
1559 002404

SEQ 0045
FUNCTIONAL DESCRIPTION'<12><12><15>

THIS PROGRAM IS TO TEST THE DATA RETENTION OF *<12><15>

NON-VOLATILE MODULES IN ANY QBUS SYSTEM. THIS IS NOT A MEMORY'<12><15>
DIJAGNOSTIC. PLEASE RUN CZKMA OR VMSA DJAGNOSTICS BEFORE RUNNING THIS'<12><15>
PROG?AM. THE FOLLOWING IS A BRIEF DISCRIPTION OF THE PROGRAM FLOW:'<12><12><15>

1560 002504

ASK THE OPERATOR A SERIES OF QUESTIONS (MENU)'<12><15>

2. RELOCATE PROGRAM TO NON-VOLATILE AREA (IF BANK O IS VOLATILE)'<12><15>

)

2. GENERATE AND PRINT A RESTART HELP FILE'<12><15>
WRITE A BACKGROUND PATTERN (125252) THROUGHOUT MEMORY'-112><15>
. DO A CHECKSUM OF THE PROGRAM'<12><15>

ENEVNOVNOYONDY

wwmwunnunmnnuwmm

BB
»

DO A CHECKSUM OF THE TRAP VECTOR SPACE (ADDRESS 0-376)'<12><15>

7. TELL THE OPERATOR TO POWERDOWN THE SYSTEM'<12><12><15>
*THE OPERATOR WILL NOW FOLLOW THE RESTART HELP FILE SOME TIME BFTWEEN'<12><15>

'2 MINUTES AND 100 HOURS. THE FOLLOWING [S THE FLOW OF THE PROGRAM'<12><15>
'AFTER1POUER UP:'<12><12><15

DO ANOTHER CHECKSUM OF THE PROGRAM AND (HECK [T AGAINST THE'<12><15>
ONE DONE BEFORE POWER DOWN.'<12><15>
. DO ANOTHER CHECKSUM OF THE TRAP VECTOR SPACE AND CHECK IT AGAINST'<12><15>
THE ONE DONE BEFORE POWER DOWN. (NO TRAP CHECKSUM ERROR WILL BE'<12><15>
REPORTED UNLESS BANK O WAS DETERMINED NON-VOLATILE) ‘<12><15>
3. CHECK ENTIRE MEMORY FOR THE BACKGROUND PATTERN (125252)'<12><15>
6. PRINT A MEMORY MAP OF ALL VOLATILE AND NON VOLATILE MEMORY‘<12><15>
IN THE SYSTEM'<12><12><15>
THE OPERATOR MUST COMPARE THIS MAP WITH THE ONE LEFT BY THE'<12><15>
INSTALLER IN ORDER TO DETERMINE THAT PROPER DATA RETENTION EXISTS.'<12><12><15>
1.

PREREQUISITE'<12><12><15>

CZKMA OR VMSA MUST SUCCESSFULLY COMPLETE'<12><15>

g
g

e NG N

g
g

NI N
N

g ot S

e NG N

g Bt

N
Ny B

s B
g
e
B
g B
Bt
B

> ) ))))))))))))

wVnuunmnumoniruvmunnnhunm

.AS

ZAs

NON-VOLATILE MEMORY IN THE SYSTEM'<12><15>
3. VIDEOQ TERMINALS MUST EITHER REMAIN POWERED WHEN PROCESSOR IS5°<12><15>
POWERED DOWN OR A COPY OF THE RESTART HELP FILE MUST BE MADE'<12><15>
BEFORE POWERING DOWN THE SYSTEM'<12><15>
4 .
IF THE CPU DOES NOT HAVE AN ENABLE/HALT SWITCH, CHECK THAT THE'<12><15>
CPU IS STRAPPED TO HALT WHEN POWERED UP. OTHERWISE THE'<12><15>
DIAGNOSTIC MAY NOT OPERATE PROPERLY.'<12><12><15>

St St N NG N Bt Bme Iy N B

.AS

St G

:AS

'ala - fififififihfifihflfihfifififihfifi

OO
=m0
bttt
—d e 3 2 () =2
NN
22RO 2NN
= =220
NNONHSHONHOOSVININNS
S Y=ON=

—l—‘OOO—'O—lO—‘OOO?O—‘OOO

OO
—
R
.
]
[e X e AV '] QOO
Db
= QO =2t
=
N ANOMHMNNWNO WV
o
NN
-2 WWANAOMNLWNON

2. OPERATOR MUST KNOW STARTING ADDRESSES OF ALL VOLATILE AND'<12><15>

—_— I O—= OO0
O0O00000—=0O—=00
OO
LS D
DN B
QO &~ S WOMNIN=NIWNNLONMNINIWNIONNN

1561 002613
1562 002721
1563 003010
1564 003117
1565 003177
1566 003276
1567 003344
1568 003444
1569 003530
1570 003636
1571 003741
1572 003763
1573 004070
1574 004135
1575 004250
1576 004361
1577 0046456
1578 004557
1579 004663
1580 004713
1581 005010
1582 005115
1583 005157
1584 005241
1585 005344
1586 005417
1587 005525
1588 005633
1589 005704
1590 006014
1591 006114
1592 006174
1593 006236
1594 006302
1595 006354
1596 006404
1597 006470
1598 006506
1599 006572
1600 006664
1601 006740
1602 007006
1603 007071
1604 007124
1605 007210
1606 007237
1607 007326
1608 007334
1609 007401
1610 007477
1611 007506
1612 007536
1613 007571

PAGE 33

<12><12><15>

ASCII

1557 002226

<12><15>'D0 YOU WANT A HELP FILE

(L)

<12><12><12><15>'CVMEMAD DATA RETENTION DIAGNOSTIC FOR

<12><15>'1S THERE NON-VOLATILE MEMORY AT ADDRESS O (L)

'NON-VOLATILE MEMORIES'<12><15>
'K OF MEMORY'<12><15>

<12><15>'THIS IS A MAPPED SYSTEM (MEMORY MANAGEMENT) WITH °*
<12><15>'THIS IS AN UNMAPPED SYSTEM (NO MEMORY MANAGEMENT) WITH
<12><15> 'WHAT IS THE STARTING ADDRESS OF ONE OF THE'

' NON-VOLATILE MEMORY'<12><15>"MODULES (0) 0? °*

<12><15>'WHAT IS THE STARTING ADDRESS OF

'MEMORY '<12><15>UNDER TEST (0) 0?

<12><15>'D0 YOU WANT THE DIAGNOSTIC

°*

"IN THIS SYSTEM (L) Y? '

THE NON-VOLATILE

TO VALIDATE ALL MEMORY

<12><15>'HOW MANY 4K BANKS OF MEMORY ARE
<12><12><12><12><12><15>

TO BE

TESTED

RESTART HELP FILE'<12><12><15>

(D)

°*

°
°*
02

*SET ENABLE/FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER'<12><15>
TCCR>'<12><15>

YTYPE : '<12><12><15>'@772344
/7 XXXXXX *
'2772356/XXXXXX 177600<CR>*<12><15>
774606<CR>*<12><15>
' 2772304/ XXXXXX

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

067
067

1614 007624

22-JUN-81
LASCI]

MMR3:
ENABLE:

LASCIZ
LASCIZ
.ASCII

RHELP:

.ASCII

NOT4K:
OUTMEM:

ECHO:
SAVLOW:
SAVHI:

1627 010342
1628 010344
1629 010346

006014

DIF1

LASCI]
LASCIZ
LASC11
.ASCIZ
(ASCIZ
_ASCII
LASCIZ
.EVEN

15:42

PAGE

H &
33-1

SEQ 0046
>
' <12><15>
7746406<CR
1<CR>*'<12><15>
20<CR>* <12><15>

'@772316/XXXXXX
‘7775727 XXXXXX
'@772516/XXXXXX

<12>°'SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE °
'POSITION AND TYPE:'<12><12><15>
@87/ XXXXXX *
TCCRO'CI2>ID
:aP'<12><1S>
PLEASE STAND BY!'<12><15>
<12><12><15>
" ILLEGAL ADDRESS = NOT AT 4K BOUNDARY'<12><15>
<12><12><15>°4K ADDRESS OR NUMBER OF 4K BANKS ARE OUT OF'

THIS SYSTEM'<12><15>

' ADDRESS RANGE OF

.WORD O
.WORD 0
.WORD 0
;THE NUMBER

= ENDPR-Q4

:PROGRAM

;THIS ROUTINE BEGINS THE DIAGNOSTIC,

TO BUMP THE POINTER TO BY PASS THE

IT WILL DETERMINE

THIS MACHINE

JHAS MEMORY MANAGEMENT OR NOT, CALL THE SIZING ROUTINE, ASK THE MENU
;QUESTIONS, MOVE THE PROGRAM IF NEED BE, WRITE A BACKGROUND OF 125252 THROUGH
;DUT MEMORY,

PRINT RESTART HELP FILE,

;OPERATOR TO POWER DOWN THE SYSTEM.
ROUTINE

1642 010350
010350
1644 010350

010350

1646 010352

000005

012706

017644

004767

005646

005067

005572

010366

005067

005576

1654 010372

104401

006302

010352

1648 010356

010356

1650 010362

010362

1652 010366

1656 010376
010376
1659 010402

010402
010406

660
1661 010410

004767

170644

005767
002055

170724

APPLICABLE AND

START1

START1:

INL INE

<RESET>

LET

CALL

TRAPCT

LET

CONTROL

LET

PPOINT

TYPE

LHELLO

CALL

$SIZE

;CLEAR THE WORLD
RESE T

JFETCH STACK ADDRESS

:— ASPINIT

$KT11

#SPINIT,SP

MOV

; TRAP CATCHER
JSR

PC,TRAPCT

:- #0

;CLEAR OUT CONTROL WORD

;PROGRAM POINTER.
PPOINT
CLR

CONTROL

CLR

;PRINT WHO Wt

;THIS ROUTINE

;

INSTRUCT

16,

18,

ARE

DETERMINES,

MEMORY MANAGEMENT,
PC,$SIZE
JSR

AND 22 BIT ADDRESS AND MEMORY SIZE

JSET MEMORY MANAGEMENT BT

LT #0 THEN

TST

BGE

LET

CONTROL

$MAP

;THIS

SYSTEM HAS

$KT11

50002%

—

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUT INE

TO SIZE MEMORY

010410
1662
1663 010416
1664

010416

016767

171010

005542

052767

000001

005534

1665

1666 010424

010424

010432

1667
1668
1669 010440
010440
1670
1671 010444

010444
010446
010450
010450
010452
010452
010456

1672
1673 010460
010460
1674
1675 010462
010462

010464

1676
1677 010464
010464
1678
1679 010470
1680

010470

1681 010474

010474
010476
010500
010500
019502
010502
010506

1682
1683 010510
010510
1684
1685 010514

010514
010516

1686
1687 010516
010516
1688
1689 010524
010524

013767
042767

012701

172354

000177

005542
005534

I_4

PAGE 33-2

22-JUN-81 15.42

MOV

LET

"INTROL

:= CONTROL

ENDADD

LET

:= a#KIPARG6 CLR.BY #177

:= #K]PARO

000006

LET

005021

(R1)+

:= #0

;4K

0127073

172300

LET

(R1)

LET R1

JSET UP FO 4K INTERVALS
CLR
RO
50006$
BR
5GJ07$:
INC
RO

000007

012737

000001

105767

170674

cTMP

RO, #7

MOV

#77406,(R1)+

BGT
LET (R1)+ := #77406

177572

IN_PAR7
#177600, (R1)

JFETCH PDR ADDRESS
MOV
#XIPDRO,R1

:- #KIPDRO

END INC

RO, #6
50005%

50006%:

000771

MOV

005200

077406

RO
50003

(R1)+

;SET UP 1/0 PAGE

:= #177600

INCR RO FROM #0 TO #7 BY 41

005000
000401

&K IPARG
, ENDADD

CLR

50005$:

177600

012721

MOV

:CLEAR OUT PARS
CLR
BR
:
500048
INC
50003$:
CHP
8GT

ENDINC

012711

020027
003003

JONLY WANT 4K BOUNDARY

;JFETCH PAR ADDRESS
#KIPARO,R1
MOV

005200

000772

#1,CONTROL

#177 ,ENDADD
;FETCH LAST PAR ADDRESS IN SYSTEM

000401

020027
003002

. INDICATE MEMORY

BIS

8I1C

INCR RO FROM #0 TO #6 BY #1

005000

SET.BY M

$MAP, CONTROL

s MANAGEMENT

LET R1

172340

SEQ 0047

14K

500108

500073
BR
50010s:

LET

a#SRO := M,

IFB

SMAP LT #0 THEN

;SET MEMORY MANAGEMENT BIT
MOV

#1,a#SR0O

;DO WE HAVE A 22 ADDRESS BIT
TSTB

SMAP

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113

ROUT INE

TO SIZE MEMORY

010530

1690
1691
1692 010532

1693
1694 010540

010540
010542

1697
1698 010542
010542
010550
1699

000020

010564

000406

016767
062767

171170
000002

1721
1722

1723
1724

50011s:

BR
50012%
:
500028

LET

005424
005416

ENDADD

:= SLSTAD + #2

,FETCH LAST VIRTUAL ADDRESS
MOV

ADD

ENDIF

032767
001403

000001

106401

006506

010572
010574

000402

010574

104401

005374

I¢ #1

SETIN CONTROL THEN

TYPE

sTELL

.MAPPED

BIT

BR
50013$:
TYPE

171126

010612
010612

100000

b
—

b
—a

NNNN

010606
010606

QO
— —
OrON

000040

— kb
b

010600
010600

171132

171120

#1,CONTROL

50013%

sTYPE THIS IS A MAPPED SYSTEM
; (MEMORY MANAGEMENT) WITH

.UNMAP

JTYPE

THIS

500148

IS AN UN-MAPPED SYSTEM

; (NO MEMORY MANAGEMENT) WITH

ENDIF

010620
010620
010624
010630
010634

OPERATOR WHAT KIND OF SYSTEM

ELSE

010600
010600

SLSTAD,ENDADD

#2 ,ENDADD

50012%:

BEQ

006572

50011%

JSETUP FOR 22 BIT _ADDRESSING
MoV
#20,3#SR3

ELSE

—

O~y

—
— b
—
NNONN O NN
N —
—_ed
e

Own

&nw

— sk
NN
=

=0V

— d d — b
NN
=200

1703
1704 010566
1705
1706
1707 010572

INSR3 := 420

ENDIF

010556

SEQ 0048

LET

172516

1700 010556

1701
1702 010556

4
J_
PAGE 33-3

8GE
JMACHINE?

010540

1696 010540

15:42

002002

010532 » 012737

1695

22-JUN-81

500148:

LET

SLSTBK

:= SLSTBK + #40

FETCH LAST BANK ADDRESS WITH OUT MEMORY
ADD
#40,3LSTBK

LET

SLSTBK

:= $LSTBK SHIFT -1

LET

$LSTBK := $LSTBK CLR.BY #100000 .CLEAR SIGN BIT
8IC
#100000, $LSTBK

LET

$LSTBK

:= $LSTBK SHIFT =4

016746
104405

171074

TYPDE(C
MOV
TYPDS

$LSTBK
$LSTBK,=(SP)

104401

006470

TYPE

;CORRECT LSTBK FOR PRINTING
ASR

$LSTBK

s CONTINUE CORRECTING
ASR
ASR
ASR
ASR

$LSTBK
$LSTBK
$LSTBK
$LSTBK

;TELL OPERATOR HOW MUCH MEMORY WE FOUND
;. SAVE SLSTBK FOR TYPEOUT

;.G0 TYPE--DECIMAL ASCII WITH SIGN
;PRINT K OF MEMORY.

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY
1725

1726 010652
1727
1728 010656
010656
1729

1730

1731
1732
1733
1734

104401

006174

004737

001742

023727
001002

010342

104401

002226

000131

010706
010714

1741
1742 010716
010716
1743
1744 010724

1745
1746 010724

010724
010732

1747
1748 010734
010734
1749
1750 010736
010736
1751
1752 010736
1753
1754
1755
1756 010742

010742

1757
1758
1759 010746
010746
1

SEQ 0049

TYPE

JHELP

JPRINT DO YOUR WANT A HELP FILE

CALL

AMFETCH

;FETCH ANSWER

IF Q#ECHO EQ #'Y THEN

JPRINT HELP FILE

~HELPF

TYPE

104401

004737

006404
001742

023727
001003

010342

000015

012737

000131

010342

010750

761 010752

010752
010754

1762
1763 010754

023727
001440

010342

000131

TYPE

.BANKO

CALL

SMFETCH

:PRINT

006664

004737

001762

005704

JFETCH ANSWER
JSR

QNECHO, #°'Y
500153

LET Q#ECHO

:~ &

PC.a#FETCH

.LOOK FOR DEFAULT CHARACTER
CMP
a#ECHO,#15
BNE
50016%

If Q#ECHO EQ #15 THEN

;CHANGE DEFAULT CHARACTER

MOV

K'Y ,a#ECHO

500168%:

;IF NOT AT BANKO THEN WHERE

IF Q#ECHO NE #'Y THEN

CMP
BEQ

a#ECHO, #'Y
50017%

;CORRECT ADDRESS FLAG

:= #0

CLR

50020%:
TYPE

.WHERE

CALL

a#FETADD

;PRINT WHAT IS THE STARTING ADDRESS
;OF ONE OF THE NON-VOLATILE MEMORY
sMODULES.
;GO FETCH ADDRESS TO
JSR

PC.a#FETADD

TST
BNE

BR
50021$

500208

JRELOCATE PROGRAM
EXIF

R4 NE 40

001001

000771

YES

IS THERE NON-VOLATILE MEMORY AT ADDRESS 0

LOOP

104401

(MP
BNE

50015%:

LET R4

005004

PC,a#FETCH

JSR

JPRINT HELP FILE

ENDIF

010724

760

PAGE 33-4

ENDIF

1735
1736
1737
1738 010702
010702
1739
1740 010706

]

22-JUN-81 15:42

ENDLOOP

IF R3 NE #0 THEN

;DO NOT HAVE TO RELOCALE

500218

If ADDRESS IS ZERO

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUT INE TO SIZE MEMORY

005703
001426

010760
010766

032767
001406

000001

010770

010337

172344

010774

012700

040400

1766
1767 010770
1768
1769
1770 010774

177
1772
1773
1774 011000

011000

1775
1776 011002
011002
1777
1778

011004

1779
1780

1781

1782
1783

L. &
PAGE 33-5

SEQ 0050
TST

010754
010756

1764
1765 010760

22-JUN-81 15:42

BEQ
IF #1

005172

8IT

BEQ

ANKIPARZ := R3

;LOAD PAR2 WITH PQINTER TO THE
MOV
R3,a#KIPAR2

LET

RO := #40400

;POINT TO PROGRAM ADDRESS REG 2

MOV

W !

#40400,R0O

;WE START AT ADDRESS 400 Of

010046

MoV

ELSE

000404

010300
062700

RO,=(SP)

PUSH

:;PUSH RO ON STACK

:NO MEMORY MANAGEMENT

LET

:OF
Mov

RO,~(SP)

PUSH

ADD
4K BLOCK

LET

020127
001402

EXIF

017646

#400,R0O

RO
;:PUSH RO ON STACK

ENDIF

011034

500248

RO := R3 + #400 ;WE START AT ADDRESS 400

000400

010046

BR
50023%:

500248:
R1

:= #Q1

:FETCH STARTING ADDRESS TO BE MOVED
#Q1.R1
MOV

LOOP

50025%:
R1

EQ WENDPR

;LEAVE WHEN ENT]RE PROGRAM
R1 _,#ENDPR
cwe
50026%
BEQ
;HAS BEEN MOVED.

LET

012120

(RO)+

ENDLOOP

000773

50023%

;4K BLOCK

012701

#1,CONTROL

;4K CHUNK OF NON-VOLATILE MEMORY

1784

-l d

50022%

;WE HAVE MEMORY MANAGEMENT?

SETIN CONTROL THEN

LET

000136

JMP
ENDIF

(R1)+

;MOVE PROGRAM
+
(R1)+,(RO)
MOV
BR
50026%:

a(SP)+

50025%

;GO TO WHERE PROGRAM HAS MOVED TO
50022%:

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY
1800

011034

PN
noNOr
oo

IR,

RR RR

OO
ol
— b

000
—d ad b
— ik
O
d
—

000
—d e b

1074

OO0
—t b

005162

013701
062701

000034

012700

017474

OO0
— b b

010003
162703

—

005720
010102

JRESET UP TRAP LOCATIONS

LET R

:= a#34 + #STRPAD-STRAP

;POINT TO NEW LO&SJION OF TRAP TABLE

JSR

ADD

LET RO :- #STRPAD

010003

162703

005720

PC.TRAPCT
a#34 ,R1
#$TRPAD-$TRAP,R1

JFETCH OLD TABLE ADDRESS TO USE IN
MOV

#$TRPAD ,RO

;CALCULATING TABLE'S OFFSETS

;CALCULATE OFFSET BETWEEN TABLE AND
:$TRAP2 ROUTINE

MOV
sus

RO,R3
#$TRAPZ ,R3

INLINE <TST (RO)+>

;BUMP OLD TABLE ADDRESS FOR NEXT CAL.

LET RZ2 := R1 - R3

;R2 NOW CONTAINS NEW ADDRESS

LET (R1)+ := R2

;LOAD TABLE

LET R3 := RO ~ #STYPE

;CALCULATE OFFSET BETWEEN TABLE AND

TST (RO)+

:$TYPE ROUTINE

MOV
suB

R1,R2
R3.R2

MOV

R2.(R1)+

MOV
su8

RO,R3
#STYPE ,R3

INLINE <TST (RO)+>

;BUMP OLD TABLE ADDRESS FOR NEXT CAL.

LET R := R1 - R3

;R2 NOW CONTAINS NEW ADDRESS

LET (R1)+

;LOAD TABLE

TST (RO)+

160302

010221

PC,SP
#SPINIT-,,SP

MOV
ADD

TRAPCT

016370

b
—

JFETCH NEW STACK

CALL

017462

:= R2

LET R3 := RO - #$TYPOC

b
b
b

1834

011124

LET SP := PC + #SPINIT-.

160302

1
1
1

1831
1832
1833 011124

50017%:

LET R3 := RO - #$TRAP?

010102

010221

SEQ 0051

000046

005720

1 076

Sz *R noo &R

purd

—

004767

1072

006606

162703

1
1 070

Q1:

010706
062706

010003

0O
ey

phur Gy aur

(olole

00
b b
— b
QO

38
N—O

—
d
d

Pt G
P

—

00
00 00

b
d

000000
— ek
b
VS
W

—
—

o000
— ek
NON

g§ &3

Oo
b—
-— —

3 pS

1803 011034

PAGE 33-6

ENDIF

1801 011034
1802

22-JUN-81 15:42

017212

R1.R2
R3,R2

MOV

R2,(R1)+

;CALCULATE OFFSET BETWEEN TABLE AND
:$TYPOC ROUTINE

INLINE <TST (RO)+>

MOV
suB

MOV
SuB

RO,R3
#$TYPOC ,R3

;BUMP OLD TABLE ADDRESS FOR NEXT CAL.
TST

(RO)+

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

1835 011126
011126

011130

1836
1837 011132
011132
1838
1839 011134
011134
011136
1840
1841

1842 011142

010102
160302
010221
010003
162703

011142

005720

1844 011144
011144

010102

1843

011146

1845
1846 011150
011150
1847
1848 011152

011152
011154

1849
1850
1851 011160

010003
162703

1853 011162
011162
011164

010102
160302

011172

011176

005720

011202

010102
160302

011206

010221

1861
1862 011200
011200
1863
1864 011204

LSV

1865
1866 011206
1867
1868
1869 01121

LET R2 := R1 - R3

JR2 NOW CONTAINS NEW ADDRESS

LET (R1)+

sLOAD TABLE

:= R2

104401

;$TYPOS ROUTINE

004737

MOV

R2.,(R1)+

MOV
suB

RO,R3
#$TYPOS ,R3

;BUMP OLD TABLE ADDRESS FOR NEXT CAL.

LET R2 := R1 - R3

JR2 NOW CONTAINS NEW ADDRESS

LET

sLOAD TABLE

TST

(R1)+

:= R2

:= RO - #STYPON

;$TYPON ROUTINE

INLINE <TST

(RO)+

MOV
suB

R1,R2
R3,R2

MOV

R2.(R1)+

s CALCULATE OFFSET BETWEEN TABLE AND
MOV
RO,R3

017226
(RO)+>

sus

#STYPON,R3

;BUMP OLD TABLE ADDRESS FOR NEXT CAL.
TST (RO)+

LET R2 := R1 - R3

;R2 NOW CONTAINS NEW ADDRESS

LET

;LOAD TABLE

(R1)+

LET R3

:= R2

:= RO - #$TYPDS

;STYPDS ROUTINE
INLINE <TST

LET R2

(RO)+>

~WHOLE

CALL

SMFETCH

R2,(R1)+

MoV
suB

RO,R3
#STYPDS ,R3

(RO)+

;R2 NOW CONTAINS NEW ADDRESS

:= R2

TYPE

MOV

TST

:= R1 - R3

(R1)+

R1,R2
R3,R2

;BUMP OLD TABLE ADDRESS FOR NEXT CAL.

LET

MOV
suB

;CALCULATE OFFSET BETWEEN TABLE AND

016714

001742

R1,R2
R3,R2

INLINE <TST (RO)+>

LET R3

007124

MOV
SuB

s CALCULATE OFFSET BETWEEN TABLE AND

017166

010221
010003
162703

1858
1859
1860 011176

SEQ 0052

LET R3 := RO - #$TYPOS

010221

005720

1854
1855 011166
011166
1856
1857 011170
011170

N_&
PAGE 33-7

15:42

160302

011160

1852

22-JUN-81

:LOAD TABLF
¢PRINT

DO YOU WANT

THE

MOV
suB

R1,R2
R3,R2

MOV

R2.(R1)-

DIAGNOSTIC

JALL MEMORY IN THIS SYSTEM.
JFETCH CHARACTER.

JSR

TO VALIDATE

PC.a#FETCH

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY
1870

1871 011216
011216

011224

023727
001003

010342

000015

011226

012737

000131

010342

372
1873 011226
1874
1875 011234

011234
011242

1878
1879 011244
011244
1880

1881

1882

011252

1887
1888 011256

023727
001461

LET

010342

000131

104401

004737

011262

000771

1891
1892 011264

011264

005004

011266

010367

1893
1894 011266

1895
1896 011272
011272
1897
1898 011272
1899
1900
1901 011276
1902
1903 011300

104401

011302

005003

011304

005002

4'Y
, a#F(HO

50027%:

LET

007006

001762

EXIF

JJF NOT ENTIRE SYSTEM FIND OUT WHERE
aNECHO #'Y
50030%

(MP
BEQ

;JLLEGAL ADDRESS FLAG

:= &0

Ré

(LR

50031s:
TYPE

LWHERE1

CALL

a#F ETADD

JPRINT:

WHAT

THE ADDRESS OF

;GO FETCH ADDRESS TO BE TESTED

R4 NE #0

ENDLOOP

004676

JSR

PC.a#FETADD

TST

BR
50032%:

500318

50032%

s ILLEGAL ADDRESS FLAG

:= #0

LET

PPOINT := R3

007237

. NOBLK

;NEW PROGRAM POINTER
R3,PPOINT
MOV

JPRINT WHAT

THE NUMBER OF

;BANKS TO BE TESTED

;FETCH DECIMAL NUMBER

RDDEC

(SP)+ RO

CLR

50033$:
TYPE

MOV

THE

;NON-VOLATILE MEMORY MEMORY UNDER TEST

BNE

104411

012600

1906
1907 011304

MOV

LOOP

011300

1904
1905 011302

;CHANGE DEFAULT CHARACTER

ANECHO := #'Y

LOOP

005704
001001

011264

;LOOK FOR DEFAULT (HARACTER
a#ECHO, #15
(MP
50027%
BNE

IF S#ECHO NE #'Y THEN

005004

011256
011260

1889
1890 011262

SEQ 0053

IF @#ECHO EQ #15 THEN

011246
011246

1883 011246
1884
1885
1886 011252

8.5
PAGE 33-8

ENDIF

011234

1876
1877 011234

22-JUN-81 15:42

POP

LET

R3 := #0

;CLEAR ADD REG.

LET

R2 := #0

;CLEAR ADD REG.
CLR
R2

:;POP STACK INTO RO
CLR

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

WWWWWWNIWNWWW - WA

HPRONDOOOMNNNY

POMNONININ)
=
=t

Gunr G

b
b

S
GuerGunr G

b
d
d

012701
000401

062702

50036%:

JMULTIPLY THE

#1,R1
50036%

LE T R2

020000

:= R2 + #20000

ADD

LET R3 := R3 + CARRY

005503
END INC

000771

063702

R1,R0
50040%

NUMBER OF BANKS TO BE TESTED BY 4K

010344

005503

004737

002074

1935 011364
011364
011366

000407

;ADD 4K

#20000,R2

;ADD OVERFLOW TO

ADC

B8R

5003/%

50040$:

011360

MOV
BR

50035%

cMP
BGT

001066

—h

TO RO BY M

020100
003004

010337

;UPPER WORD

LET R2 :

RZ2 + a#SAVLOW ;ADD LOWER START ADDRESS

LET R3 :

R3 + CARRY

LET R3 :

R3 + a#SAVHI

ADD

LET a#ECHO

:= R2

LET a#SHIO €T

:= R3

a#SAVLOW,R2

; CARRY OVER ANY OVERFLOW
ADC
R3
;ADD UPPER START ADDRESS BITS

ADD

a#SAVHI ,R3

:STORE AWAY LOWER

MOV
R2,a#ECHO
;ADDRESS
;STORE AWAY HIGHER
MOV
R3,a#SHIOCT
;ADDRESS

a#ADD CHK

CALL

ELSE

1936

LET R4

005204
ENDIF

011370

1940
1941 011370

TST

50037$:
R1
INC

011354

1938
1939 011370

JNO NEED TO CALCULATE END ADD.

005201

010342

1937 011366
011366

SEQ 0054

INCR R1T FROM #1

000001

010237

—

PAGE 33-9

BEQ

010346

1934

IF RO NE #0 THEN

063703

1932
1933 011360

22-JUN-81 15:42

005700
001426

——

~Nr

fR Y
N

00
- —h
©0O0
— b
QOO0
—

~no
W

—

—t b

— and b

332
oO00Oo
— b ——b

D
d

VOO
— ) b
S

—
ok

326

VO
— cnnd
O

—
s

VO
[ QY
Voo~N

phur Qs Pusr s

19
19

-0

1908
1909

ololelololeloloNolele)

ROUTINE TO SIZE MEMORY

EXIF

R4 NE #0

+ M

JSR

PC.,a#aDDCHK

BR
5003%:

500413

. INDICATE OK

INC

50041%:

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
ROUT INE TO SIZE MEMORY

1942

011370
011372

1943 011374

011374
011376

1944
1945 011376

011376
011400

1946
1947 011402
011402
1948
1949

22-JUN-81 15:42

SEQ 0055
TST

005704
001001

BNE
ENDLOOP

000736

005700
001402
010367

TST

LET ENDADD

50042%

50042%:

ENDIF

011406

:STORE AWAY LAST ADDRESS
MOV
R3,ENDADD

:= R3

ENDIF

1950
1951 011406

50034%

JUPDATE END ADDRESS IF NECESSARY
BEQ

004566

50033s
BR
:
500348

IF RO NE #0 THEN

11406
011406

1952
1953 011406
1954
1955 011412

PAGE 33-10

50030%:

sPRINT RESTART HELP FILE HEADER

104401

007326

011412
011420

032767
001424

000001

1957 011422
1958
1959 011426

104401

007506

011426
011432
011434
011435

013746

172344

011436

104601

007477

TYPE

.CR1

JPRINT

'<CR>'<12><15>

011442

104401

007536

TYPE

,PAR?7

JPRINT
;
;
:

@772356/777600<CR>
8772300/77406<CR>
8772316/77406<CR>
a777572/1<CR>

1956

104403
006
000

011446
011446
011454

032767
001406

000200

0114656
011456
011464

026727
003402

004512

104401

007713

1972
1973
1974 011466
1975
1976 011472

TYPE

004540

IF #1

+RESHLP

TYPE

MOV
TYPOS
.BYTE
BYTE

004504

BIT
BEQ

JYES

#1,CONTROL
50043%

JPRINT @772340/

.PARO

TYPOCS
a#KIPAR?
sMEMORY MANAGEMENT LOCLATION OF PROGRAM
a¥KIPARZ ,=(SP)
;;SAVE a#KIPAR2 FOR TYPEOUT
::G0 TYPE--OCTAL ASCII
6
;. TYPE 6 DIGITS
O
;s SUPPRESS LEADING ZEROS

IF #200 SETIN CONTROL

THEN

;1S THIS A 22 BIT ADDRESSING
BIT

JMACHINE

BEQ

#200, CONTROL
500448

IF ENDADD GT #7600 THEN ;DOES THIS MACHINE CONTAIN MORE
0, o
ENDADD
, #7600
50045%
BLE
;THAN 124K?

007500

TYPE

ENDIF

011472

1977
1978 011472

JARE WE A MAPPED SYSTEM

SETIN CONTROL THEN

ENDIF

.MMR3

:YES PRINT @772516/20<CR>

50045%:

(VMEMAQ DIAGNOSTIC FOR NON=VILA MACRO M1113

ROUT INE

TO SIZE

MEMORY

22-JUN-81 15:42

PAGE 33-11

SEQ 0056

:
500448

011472

1979
1980 011472

ENDIF

011472

1981
1982 011472

1983

1984
1985
1986
1987

104401

007747

476

010701

062701

000572

032767
001404

000001

042701

160000

052701

040000

1988
1989
1990
1991
1992

1993
1994
1995

520

1996
1997

50043%:

TYPE

.ENABLE

.ENABL

LSB

LET

JPRINT

SET SWITCH TO ENABLE AND

Q7777077

:= PC + #PWRUP-,

;FETCH RESTART ADDRESS
PC,R1
[ 01Y)
ADD

004446

If #1

SETIN CONTROL THEN

LET

:= R1 CLR.BY #160000 ;CLEAR OUT PROGRAM ADDRESS

LET

TYPOCS

1 01Y)

010146
104403
006
000
104401

#160000,R1

BIC

JREGISTER PRINTERS.

1998
526
526
530
531

#PWRUP-.
,R1

;ARE WE A MAPPED SYSTEM
BIT
#1,CONTROL
500463
BEQ
S YES

:= R1

SET.BY #40000

.LO0K AT PAR?
BIS

ENLIF

1999

TYPE

010066

:
500468

;PRINT RESTART ADDRESS

R1,=-(SP)

::SAVE R1 FOR TYPEOUT

.BYTE

6
0

;s SUPPRESS LEADING ZEROS

TYPE

JRHELP

.DSABL

LSB

TYPOS
BYTE

#40000,R1

;:G0_TYPE--OCTAL ASCII
J:TYPE 6 DIGITS
JPRINT REST OF

HELP FIJLE

b
—
b
—

PR FAn X Qo
L TELL && KRgd

—
b

=
—

—

o
—

OO0
OO0

——d

—
b b

;WRITE BACKGROUND THROUGH MEMORY

011566

032767
001414

000001

004414

016737

004416

172342

005767
001003

004410

012700

020400

SETIN CONTROL

LET a#KIPAR1

THEN

;JARE WE

:= PPOINT

IF PPOINT EQ #0 THEN

A MAPPED

#1,CONTROL
50047%

JFETCH TEST

STARTING POINY

MOV

RO := #20400

T
,a#K [ PAR1
PPOIN

JARE WE IN BANK 0
TST

BNE

LET

SYSTEM

BIT
B8EQ

PPOINT

500508

;POINT TO ADDRESS 400,

MOV

:ADDRESS REGISTER 1
ELSE

PROGRAM

#20600.R0

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
ROUT INE TO SIZE MEMORY
011566
011570

2017
2018 011570
011570
2019
2020
2021

2038
2039
2041

2042
2043
2044
2045
2046

2047
2048
2049
2050
2051

012700

%0‘R
OO
VN

—

)

O0OO
00O

OO0

oo
oo

——

0000
oo~

b
—

RO := #200G0

LET

020000

;POINT TO ADDRESS O, PROGRAM

MOV

ENDIF
ELSE

005767
001003

004366

012700

000400

500518:

JUNMAPPED SYSTEM

BR
50047$:

If PPOINT EQ #0 THEN

LET

:= #400

ELSE

LET

004352

:- PPOINT

010137

125252

032767
001436

000001

;START AFTER TRAP LOCATIONS
MoV
#400,R0

;START AT

50054%

TEST BANK

MOV

PPOINT RO

LET

. ENABL

LSB

LET

a#é

;CLEAR EXIT FROM LOOP fLAG

:- #0

CLR

:= PC

+ #ROMMD-.

JFETCH ROMMD ROUTINE

MOV
ADD

P(.R]
#ROMMD- . R1

;LOAD ADDRESS INTO & INCASE WE

:= Rl

MOV

R1,a#¢6

JHIT A ROM MODULE
Q4:

012720

50053%

50052%:

004360
000004

PPOINT

:
500548

ENDIF

005004

50052%

IN BANK O

TST

BR
50053%:

ENDIF

010701
052701

JARE WE

BNE

000402

016700

#20000,R0

;ADDRESS REGISTER 1

b
b
b

—h

—

—
-

b
b o

—

(o]e]

2036
2037

- .3

2034
2035

- —

2032
2033

2030
2031

—

2028
2029

2026
2027

SEQ 0057
50051%
BR
500508:

000410

—

2024
2025

PAGE 33-12

000402

2022

2023

22-JUN-81 15:42

LOOP

:
500558

LET

(RO)+

:- #125252

JWRITE DATA PATTERN
#125252,(R0)+
MOV
; THROUGH OUT MEMORY

004314

IF #1

SETIN CONTROL THEN

;ARE WE A MAPPED SYSTEM

BiT

BEQ

#1_,CONTROL

50057%

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUT INE

TO SIZE

2052
2053 011646
011646
011654
2054
2055
2056 011656
011656
011660
2057
2058
2059 011664
011664

2060
2061
2062 011670
011670
011672
2063
2065 011676
011676
011700
2066
2067
2068 011702
011702
2069

MEMORY

023737

001014

010701

172342

6.5

PAGE 33-13

000026

042701

160000

IF a#KIPAR1 EQ a#K]PARZ THEN

LET R1

2081

020000

062737

2085
2087

2088

005204

;POINTER

:CLEAR OUT PAR
RO,R3
#160000,R3
;POINTER

MOV
BIC

THEN

;HAVE WE REACHED
R3,R1
CMP
50061%
BNE
PROGRAM
;BEGINNING OF
<HAS BUMP

ADD

#DIF1,RO

;POINTER TO END OF PROGRAM
50061%:

50060$:

RO EQ #40000 THEN

JHAVE WE

COMPLETED 4K CHUNK
cMP
RO, #40000

50062%

BNE

;OF MEMORY

000200

LET RO

:= #20000

172342

ADD

172342

0046240

;YES RETURN PAR1 POINTER
#20000,R0O

MOV

JBUMP TO NEXT 4K
LET
a#K]PAR1 := a#K]PAR1
ENDIF

023767
001001

:CLEAR OUT PAR

#160000,R1

BIC

ENDIF

012700

#.-Q4
R

CLR.BY #160000

ENDIF

040000

PC.R1

LET RO :- RO + #DIF1

006014

020027
001005

sDISTANCE BETWEEN

MOV

RO CLR.BY 4160000

IF R3 EQ R1

2082

2083
2084

160000

2072

2078
2079
2080

LET R3 :

2070

2075
2076
2077

PC - #.-Q4

;BEGINNING OF PROGRAM AND HERE

2071

2073
2074

;WE IN SAME BLOCK Of

cMp
a#K IPAR1,
a#K | PARZ
50060%
BNE
s MEMORY

020301
001002

062700

SEQ 0058

LET Rl

162701

010003
042703

172344

22-JUN-81 15:42

+ #200

#200,
a#K | PAR1

:
50062%

[F a#K]PAR1

EQ ENDADD THEN

LET R4

:= R4 + 11

JHAVE

;YES

SET

REACHED END OF

cMp
a#K |PAR1,ENDADD
BNE
500633
s MEMORY
INC

FINISHED FLAG

CVMEMAQ DIAGNOSTIC FOR NON~-VOLA MACRO M1113
ROUT INE TO SIZE MEMORY
2089 011740
011740
2090
209 011740
011740
011742
2092
2093 011742
011742
011744
2094
2095
2096

2097
2098
2099

LYV

—

2100
2101
2102 011760
011760
2103
2104 011760
011760
011764
2105
2106 011766
011766
2107
2108 011770
011770
2109
2110 011770
011770
21
2112

L
J]
PAGE 33-14

ELSE

000413

010701

SEQ 0059

162701

BR
50057%:

:= PC - #.-04

000112

JFETCH BEGINNING ADDRESS OF
PC.R1
MOV
#.-Q4 ,R1
SuB

IF RO EQ R1

THEN

LET RO

006014

JHAVE WE REACHED BEGINNING OF
RO,R1
CMP
BNE
50065%
PROGRAM
:THIS

:= RO + #DIF1

. YES BUMP POINTER TO
ADD
#DIF1,RO

;END OF PROGRAM

ENDIF

020067
103401

004210

:
50065$

RO HIS

ENDADD

THEN

;HAVE

REACHED

(MP
8LO
LET

005204

:= R4

+ M

ENDIF

EXIF

SYES
INC

END

MEMORY

RO, ENDADD
50066%
SET

FINISHED FLAG
R4

50066%:

ENDIF

005704
001001

50064%

;THIS PROGRAM

020001
001002

062700

50063$:

JUNMAPPED SYSTEM

LET R1

500648:

R4 NE 40

JLEAVE

FINISHED FLAG IS SET

TST

R&4

BR
50056%:

50055%

MOV
ADD

PC.R1
#PWRDWN-.
,R1

MOV

R1,1$

BNE
ENDLOOP

~NOM
N

OV
S wWNV=

—d

b
—

—

15:42

ENDIF

000716
o

22-JUN-81

50056%

JFETCH LOCATICN OF POWER DOWN MESSAGE

010701
062701

010167

LET R1

:= PC

+ #PWRDWN-.

003776

000054

;LOAD ADDRESS INTO TRAP INSTRUCTION
LET 18 := RI

cCALCULATE CHECKSUM OF
LET R1

:- #0

TRAP PAGE
;ADDRESS OF

TRAP LOCATION

CVMEMAQ DIAGNOSTIC FOR NON~VOLA MACRO M1113
ROUTINE TO SIZE MEMORY
2125 012010

005001

2126 012012
012012

005003

2127
2128 012014

062103

2132 012016
012016
2133 012022

020127
001401

2136 012026
2137 012026

LET R3 := #0

010367

010701
162701

2142 012040
012040
2143 012042

010702
062702

2144 012046
012046

005003

2145
2146 012050

02103

2150 012052
012052
2151 012054

020102
001401

BR
50067%
50070%:

LET CSTRPG := R3

005466

s SAVE (HECKSUM
MOV

;CALCULATE CHECKSUM OF THIS PROGRAM
LET
R1 := PC - #.-04

010312

2156
2157 012062
g}gg 012064

104401
015776

;R1

R3,CSTRPG

CONTAINS BEGINNING ADDRESS
MOV
PC.R1
SuB
#.-Q4
R

;OF PROGRAM

000202

LET

R2 := PC + A(CHKSUM-,

;R2 CONTAINS END ADDRESS OF PROGRAM
MOV
PC,R2
ADD
#CHKSUM-. ,R2

LET

R3 := #0

;R3 CONTAINS CHECK SUM
CLR
R3

005460

50071%:
LET

EXIF

R3 := R3 + (R1)+

R1 EQ R2

;ADD CONTENTS OF PROGRAM
ADD
(R1)+,R3
JLEAVE WHEN REACHED END OF PROGRAM
CMP
R1,R2
BEQ
50072%

ENDLOOP

000774

2154 012060
2155 012060

2160 012066

JEXIF WHEN REACHED END OF TRAP PAGE
CMP
R1,#400
BEQ
50070%

LOOP

2148 012050
2149 012050

012056
2153 012060

s CALCULATE CHECKSUM
ADD
(R1)+,R3

ENDLOOP

2147 012050

2152 012056

50067%:

EXIF R1 EQ #4400

000400

;CHECKSUM WORK REGISTER
CLR
R3

LET R3 := R3 + (R1)+

000773

2138
2139 012032
012032
012034

5129

SEQ 0060

LOOP

2130 012014
2131 012014

012024
135 012026

PAGE 33-15
(LR

2129 012014

134 012024

22-JUN-81 15:42

1.5

LET (R2)

1%:

B8R
500718
50072%:
:= R3

sLOAD CHECK SUM INTO CHECKSUM AREA
MOV
R3.(R2)

;TELL OPERATOR TO PCWER DOWN THE SYSTEM
TYPE
.WORD
PWRDWN
INLINE

<BR .

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M*113

ROUTINE

TO SIZE MEMORY

012066

22-JUN-81 15:42

PAGE 33-16

SEQ 0061

000777
.DSABL

64 012070
012070
012070
012070

ENDRTN

000207

LS8

50000%:
50001$:

RTS

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

.SBTTL

2166

2167
2168
2169
2170
2171 012072
012072
2172
2173 012072
012072
012074
2174
2175 012100

22-JUN-81 15:42

PAGE 34

5
SEQ 0062

POWER UP ROUTINE

;THIS ROUTINE CHECKS THE ENTIRE SYSTEM FOR DATA RETENTION AND QUTPUTS A MEMORY
;MAP OF

THE SYSTEM.

ROUTINE PWRUP

010706
062706

:
PWRUP

LET SP := PC + #SPINIT-.

JFETCH STACK BUFFER
MOV
ADD

005550

032767
001462

000001

005037

172340

005037

172342

012701

172346

012700
000401

000001

00405¢

IF #1

SETIN CONTROL THEN

;1S THIS ?TMAPPED SYSTEM
JYES

;CLEAR OUT PARO

LET a#KIPAR1

;CLEAR OUT PAR1

CLR

:= #0

CLR

2187

012140

RRIVBE&E

WNWN

b md
b
o
— e

N
nOONNONNON

Por Qe Geriur
Gur g

Srd

BN
lolelelelelele

2188 012142
012142
218%
2190 012144
012144
012146
21N
2192 012146
012146
2193
2194 012152
152
5
219
2196

INCR RO FROM #1

LET

MOV

TO #4 BY »

172300

:= #0

LET

(R1)

LET R1

:= #177600

:= #K]PDRO

INCR RO FROM #0 TO #7 BY M

005000
000401

000007

#KIPAR3
,R1

MOV
BR

#1,RO
50003%

cMp
BGT

RO, #4

CLR

(R1)+

50004%

50005%

JSET UP 1/0 PAGE
#177600, (R1)
MOV

:FETCH PDR LOCATION
MOV

#X1PDRO,R1

sSET THEM UP TO DO 4K INTERVALS
CL R
BR

50007$:

005200

a#KIPAR1

;CLEAR THOSES REGISTERS

50005%:

012701

020027

(R1)+

ENDINC

177600

a#K
] PARO

50004$:
RO
INC
50003s:

005021

012711

50002%

;LOCATION (DO NOT TOUCH PARZ fFOR
21T CONTROLS OUR PC

000004

000772

#1,CONTROL

FETCH MEMORY MANAGEMENT PAR

:= WKIPAR3

005200

020027
003002

8
BEQ

LET a#KIPARO := #0

LET R1

PC,SP
#SPINIT=-.,SP

50006%

RO
INC
50006$:
RO, #7
CMP

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRC M1113

POWER UP ROUTINE

012170
2197
2198 012172
012172
2199
2200 012176
012176
012200
2201
2202 012200
012200
2203
2204
2205 012206
012206
012214
2206
2207 012216

012216

2208
2209 012224
012226
0
221
2211 012224
012224
012230
2212
2213

2214 012232

012232

2215
2216 012236
012236
012240
2217
2218 012240
012240
2219
2220
2221 012246
012246
2222
2223 012252
012252
2224
2225 012252
012252
012254
2226
2227 012254
012254
012260

22=-JUN-81 15:42

L 5
PAGE 34-1

SEQ 0063

003003

012721

LET

077406

032767
001403
012737

:= #77406

;

ENDINC

000771

012737

(R1)+

BGT

50010%

MOV

#774606,(R1)+

B8R

50007%

50010%:

000001

LET &#SRO := M

177572

000200

003744

000020

172516

;SET MEMORY MANAGEMENT IF NOT
MOV

;ALREADY DONE SO

IF #200 SETIN CONTROL

THEN

LET a#SR3 := #20

;IS THIS A 22 ADDRESS BIT SYSTEM
BIT
8tEQ

003740

012700

020400

MOV

JARE WE CHECKING ENTIRE SYSTEM?
TST

JYES

LET RO := #20400
ELSE

016737

003724

012700

020000

:= PPOINT

;MODULE
LET RO := #20000

;POINT TO PAR1 ADDRESS ZERO
MOV

012700

000400

#20000,R0

S0013$:

B8R

50002%:

003710

50012%

;SET UP POINTER TO CHECK THAT
PPOINT ,a#KIPAR1
MOV

ELSE

005767
001003

PPOINT

BR
50013s
50012%:

ENDIF

000410

BNE

;DO NOT CHECK TRAP LOCATIONS
MOV
#20400,RO

:NO

LET a#K]PART

172342

#20,a#SR3

50011$:

IF PPOINT EQ #0 THEN

000405

#200, CONTROL
50011$

;YES, SET UP 22 BIT ADDRESSING

ENDIF

005767
001003

#1,a#SRO

IF PPOINT EQ #0 THEN

;ARE WE CHECKING ENTIRE SYSTEM?
TST

JYES

LET RO := #400

500148

BNE

PPOINT

500158

:SKIP TRAP LOCATIONS
MOV
#400,RO

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

223¢ 012266
012266
012270
2233
2234 012270
012270
2235
2236 012274
012274
2237
2238 012274
012274
9
223
2240
2241
2242 012274
012274
2243
2244 012276
012276
2245
2246 012300
012300
2247
2248 012300
012300
2249
2250 012302
012302
012306
2251
2252 012310
012310
012312
2253
2254 012312
012312
012316

2257 012320
012320
2258
2259 012324
012324
012326
2260
2261 012326
012326
2262
2263
2264 012332
012332
2265
2266 012332
012332
2267

22-JUN-81 15:42

SEQ 0064

ELSE

000402

016700

PAGE 34-2

BR
500 »:

JFETCH POINTER ADDRESS
MOV
PPOINT RO

LET RO := PPCINT

003674

50016%

ENDIF

500168%:

ENDIF

500148:

sCALCULATE CHECKSUM OF TRAP PAGE
LET Rl

005001

;ADDRESS OF TRAP LOCATION

:= #0

CLR

s CHECKSUM WORK REGISTER

LET R3 := #0

005003

CLR

LOOP

020127
001401

000400

020367
001403

012746

005202

500173
BR
:
208
500

IF R3 NE CSTRPG THEN

004000

MOV

PUSH #4000
#4000,-(SP)

;D0 CHECKSUMS AGREE?
cMP
BEQ

sINDICATE CHECKSUM ERROR

B8R

50021%:

000000

MOV

PUSH #0
#0,-(SP)

003672

CALL

R3,CSTRPG
50021%

;:PUSH #4000 ON STACK

ELSE

ENDIF

004767

JEXIF WHEN REACHED END OF TRAP PAGE
CMP
R1,#400
500208
8EQ

:NO

000402

012746

EXIF R1 EQ #400

;CALCULATE CHECKSUM
ADD
(R1)+,R3

ENDLOOP

000°73

50017$:

LET R3 := R3 + (R1)+

062103

50022%

: INDICATE NO ERROR

::PUSH #0 ON STACK

s CHECKSUM ERROR
500228%:

TRAP(CT

;LOAD UP TRAP VECTORS WITH
JSR
; TRAP CATCHERS

PC.,TRAPCT

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2268
2269 012336
012336
012340
2270
227
2272 012344
012344
012346
2273

2274
2275 012352
012352
2276
2277 012354
012354
2278
2279 012354
012354
2280
2281 012356
012356
012360
2282
2283 012362
012362
012364
2284
2285 012364
012364
012366
2286
2287
2288
2289 012370
012370
012372
2290

010701
162701

010702
062702

PAGE 34-3

SEQ 0065

LET

:= PC - #.-04

:R1T

CONTAINS BEGINNING ADDRESS
PC.R1
MOV
#.-Q4 ,R1
SuB
:OF PROGRAM

LET

R2 := PC + #CHKSUM-,

000506

;R2 CONTAINS END ADDRESS OF
MOV
ADD

00515¢4

;PROGRAM

LET

005003

:= #0

50023%:

LET

062103

EXIF

020102

R3 := R3 + (RD)+

R1 EQ R2

ENDLOOP

021203
001407

010701
062701

:ADD CONTENTS OF PROGRAM
(R1)+,R3
ADD
JLEAVE WHEN REACHED END OF PROGRAM
CMP
R1,R2
500248
BEQ

001401

000774

PC.R2
#CHKSUM~,
R

:R3 CONTAINS CHECK SUM
R3
CLR

LOOP

BR
50023%
:
500248

(R2) NE R3 THEN

;DO WE HAVE A CHECKSUM ERROR
CMP
(R2) ,R3
S YES

;FETCH LOCATION OF ERROR MESSAGE
:= PC + MERR-.

LET R1

BEQ

MOV

002641

50025%

PC,R1

ADD

#ERR~. ,R1

MoV

R1,2%

;LOAD ADDRESS INTO TRAP INSTRUCTION

2291

2292 012376
012376
2293
2294
2295 012402
2296 012404
2297
2298 012406
012406
2299
2300 012406
012406
2301
2302
2303 012412
012412
2304
2305 012414

22-JUN-81 15:42

010167

LET 28 := Rl

000002

:TELL OPERPATOR CHECK SUM ERROR

104401

TYPE

2$:

015233

ERR

.WORD

ENDIF

052667

010746

003546

50025%:

LET CONTROL

:= CONTROL SET.BY (SP)+

JINDICATE RESULT OF CHECK SUM
BIS

:OF TRAP PAGE
PUSH

LET

(SP)

MOV

PC.-(SP)

(SP)+,CONTROL

:;PUSH PC ON STA(CK

:= (SP) + WHEAD-,

sCALCULATE HEAD LOACTION

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113

POWER UP ROUTINE

012414

2306
2307 012420
012420
2309 012424

06271¢€

003112

012667

000002

POP

MOV

30%:

012430
012430

016767

003534

003540

012436
012436

016767

003526

003534

012444
012444

012703

172100

2323 012472
012472
2325 012476
012476
012500

000240

003706

005002
000401

020227
003003

;70 PRINT

(SP)+,30%

::POP STACK INTO 30$

.WORD

HEAD

012723

LET START := PPOINT

;SAVE STARTING POINT

LET L4KST

;WE ARE AT THIS 4K BANK
MOV
PPOINT ,L4KST

:= PPOINT

JFETCH CSR LOCATIONS
MOV
#172100,R3

LET TRCATCH := #240

JNOP TRAP CATCHER
#240,TRCATCH
MOV

INCR R2 FROM #0 TO #16. BY M1

;ENABLE PARITY FOR ALL CSRS
CLR
R2
50026%
B8R
50027$:
R2
INC

LET (R3)+

012704

000114

:= #0

LET R4 := #1174

R2.M16.

MOV

#1,(R3)+

S0030s%

JRESUME HALT
CLR

TRAP
TRCATCH

;LOAD PARITY LOCATION INTO R4
MOV

#1164 R4

;SO THAT NEXT INSTRUCION WILL
JWORK ON ALL MACHINES

LET (R4)

:= PC + #PARTRP-.

002140

:LOAD PARITY TRAP LOCATION WITH
MOV
ADD

PC, (R4)
#PARTRP-.,
(R4)

;ADDRESS OF PARITY TSaP ROUTINE
IF #125252 €Q (RO)+ THEN

125252

000002

50027%
BR
50030%:

LET TRCATCH

032767

:= M

END INC

2329 012504
012504

PPOINT ,START

MOV

LET R3 := #172100

000001

003660

022720
001016

B8GT

000771

010714
062714

, (SP)
#HEAD-.

;PRINT MEMORY MAP HEADER

000020

005067

5264

308

005202

2327 012500
012500

16
22

SEQ 0066

TYPE

104401

012767

PAGE 34-4

ADD

015526

2318
2319 012450
012450
2320
2321 012456¢
012456
012460
012462
012462
012464
012464
012470

22-JUN-81 15:42

003426

;IS THIS LOCATION VOLATILE
CMP
#125252,(R0)¢
50031%
BNE

;IF PARITY ERROR THEN ERROR COUNT ALREADY DONE
IF #2 SETIN CONTROL THEN
BIT

#2,CONTROL

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

012532
2340
2341 012534
012534
2342
2343
2344 012542
012542
012544
2345
2346
2347 012544
012544
2348
2349 012552
012552
2350
2351 012556
012556
2352
2353 012556
012556
012560
2354
2355
2356 012560
012560
012566
2357
2358 012570
2359
2360

012570

2361 012576
012576
012600
2362
2363 012600
012600
2364
2365 012604

22-JUN-81 15:42

2370

012604

012614

2376 012616

SEQ 1067

BEQ

042767

000002

LET CONTROL

003416

052767
005267

:= CONTROL CLR.BY #?2

ELSE

000405

100000

003406

LET NONVOL

003404

BR
50032%:

50033%

:= NONVOL + M1

000002

003372

042767

000002

0C3362

005267

BR
50031s:

LET CONTROL

:= CONTROL CLR.BY #2

ELSE

LET vOL

003360

:= vOL + #1

032767
001407

000001

003344

S TLOOP:

BIT
8tQ

#2,CONTROL
50035%

8IC

#2,CONTROL
;ERROR FLAG

BR
50035%:

50036%

:CLEAR PARITY

50036$:

ENDI!F

LET R4

50034%

;UPDATE VOL COUNT
INC
vOL

ENDIF

005004

#100000, CONTROL

50033s:

;IF PARITY ERROR THEN ERROR COUNT ALREADY DONE
IF #2 SETIN CONTROL THEN

000402

;ERROR FLAG

-UPDATE NONVOL COUNT
INC
NONVOL

ELSE

032767
001404

;CLEAR PARITY

#2,CONTROL

ENDIF

000412

50032%

BIC

; INDICATE NON-VOLATILE
LET CONTROL := CONTROL SET.BY #100000
BIS

50034%:

:- 40

;FLAG FOR NON VOLATILE MEMORY HITS
CLR

FAKED OUT LOOP BECAUSE

2373 012606
012606

001404

012604

2366
2367 012604
012604
2368
2369 012604

PAGE 34-5

LOOP IS OUT

SETIN CONTROL

THEN

SIDE OF

ADDRESS RANGE

;ARE WE MAPPED

VES
[F

a#K]PAR1 EQ ENDADD THEN

BIT
BEQ

#1,CONTROL
50037%

SIS 1T TIME

TO LEAVE?

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

012616
012624

2377
2378 012626
012626
2379
2380 012632
012632
2381
2382 012632
012632
012634
2383
2384 012634
012634

012640

2385
2386
2387 012642
012642
2388
2389 012646
012646
2390
23N 012646

023767
001002
000167

172342

SEQ 0068
cMP
BNE

INLINE <JMP

001356

. YES

EDLO OP> ;LEAVE LOOP
JMP

ENDIF

020067
001002

003334

000167

001342

IF RO EQ ENDADD THEN

INLINE <JMP

001404

042767

000002

EOLOOP> ;LEAVE LOOP
JMP

EDLOOP

;DOES THIS LOCATION CONTAIN
(RO),+
#125252
cMP
50043$
BNE
;CORRECT DATA

;IF PARITY ERROR THEN ERROR COUNT ALREADY DONE
IF #2 SETIN CONTROL THEN
8IT
#2,CONTROL
5004498
BEQ

003276

;CLEAR PARITY ERROR FLAG
LET CONTROL := CONTROL CLR.BY #2

003266
ELSE

LET NONVOL

003262

8IC

#2,CONTROL

BR
50044%:

50045%

:= NONVOL + M

INC

;YES, UPDATE

NONVOL

;NON=VOLATILE COUNT
ENDIF

000412

RO ,ENDADD
50042%

50041%:

IF #125252 EQ (RO)+ THEN

000402

005267

cMP
BNE

:
500428

ENDIF

032767

50041%

;IS IT TIME TO LEAVE?
JYES

125252

EOLOOP

BR
50037$:

ENDIF

022720
001013

a#K IPAR1,ENDADD
500409

50040%:

ELSE

000405

2406

2407 012700
012700
2408
2409 012700
012700
012702
2610
24N

PAGE 34-6

003350

012646

2392
2393 012646
012646
012652
239
2395
2396
2397 012654
012654
012662
2398
2399
2400 012664
012664
2401
2402 012672
012672
012674
2403
2404 012674
012674
2405

22-JUN-81 15:42

ELSE

50045%:

B8R
50046%
50043%:
;1F PARITY ERROR THEN ERROR (OUNT ALREADY DONE

C(VMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2612 012702
012702
012710
2613
2414
2615 012712
012712
2616
2617 012720
012720
012722
2418
2619 012722
012722
2420
2621
2622 012726
012726
2423
2624 012726
012726
2425
2426 012726
012726
012734
2627
2428 012736
012736
012744
26429
2430
26431
2632 012746
012746
012750
2433
2634
2435 012754
012754
2436
2637
2438 012760
012760
012762
2439
2440
2441 012766
012766
012770
2642

032767
001404

062767

000002

00ul0e

22=JUN-81

15:42

E 6
PAGE 34-7

SEQ 0069

IF #2 SETIN CONTROL THEN

003250

2645

012772

24646 012776
012774
2447

#2,CONTROL
50047%

;CLEAR PARITY ERROR FLAG
LET CONTROL := CONTROL CLR.BY #2
8IC
#2,CONTROL

003240
ELSE

000402

BR
50047%:
LET VvOL

005267

:= vOL

+ #

50050%

;NO, UPDATE
INC

vOL

JVOLATILE COUNT
ENDIF

50050%:

ENDIF

032767
001421

000001

003224

023737
001014

172342

172344

:
500468

SETIN CONTROL

IF a#K]PAR1

THEN

;ARE WL MAPPED
BIT
8EQ

EQ a#KIPARZ THEN

#1,CONTROL
50051%

cARE PARS [N SAME BANK?
cMP
a#K [PART,
a#K | PAR2
BNE
50052%
JYES

;DISTANCE BETWEEN BEGINNING OF PROGRAM AND HERE

010701

162701

042701

010003
042703

LET R1

:= PC - #.-Q4

MOV
suB

160000

;CLEAR OUT PAR POINTER
LET R := R1 CLR.BY #160000
8IC

#160000,R1

160000

;CLEAR OUT PAR POINTER
LET R3 := RO CLR.BY #160000
MOV
8IC

RO,R3
#160000,R3

JHAVE WE REACHED BEGINNING OF

IF R3 EQ R1

020301

001002

062700

PC.R1
R
#.-Q4

001116

THEN

PROGRAM

cMP
BNE

R3,R1

50053%

;BUMP POINTER TO END OF PROGRAM
LET R0 := RO + 02681

2643

2444 012772

BIT
BEQ

006014

#DIF1,RO

ENDIF

S0CS3s:

(VMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUT INE

2448 012776
012776
2449
2450 012776
012776
013000
26451

22~JUN-81

15:42

013010
2656
2457
2458 013012
013012
2459
2460 013016
013016
2461
2462 013016
013016
2463
2464 013016
013016
013022
2465

2479 013056
013056
2480

SEQ 0070

50052%:

ELSE

000407

BR
500518:

50054%

;ADDRESS OF BEGINING OF PROGRAM

010701

162701

LET R1

:= PC - #.-0Q4

MOV

suB

001150

IF RO EQ R1

020001
001002

THEN

CMP
BNE

sBUMP POINTER TO END OF

062700

006014
ENDIF

017777

000167

177556

#17777 SETIN RO THEN

INLINE <JMP STLOOP>

005002
000401

#DIF1,RO

BIT

BEQ

M?7777,R0O

50056%

;CONTINUE LOOP & BYPASS PRINT
JMP STLOOP

JROUT INES

LET R3

172100

000240

ADD

JARE WE AT 4K BOUNDARY?
.NO

50056%:

JENABLE PARITY

C12767

PROGRAM

:
500548

ENDIF

012703

RO,R1
50055%

50055%:

ENDIF

032700
001402

PC,R1

#.-Q4
R

;POINTER REACHED PROGRAM?

LET RO := RO + #DIF1

2466

2467 013024
013024
2468
2469
2470 013030
013030
2471
2472
2473 013030
013030
2674
2475 013034
013034
2476
2477 013042
013042
013044
013046
013046
013050
013050
013054
2478

ENDIF

2452

2453 013000
013000
013002
2454
2455 013006
013006

PAGE 34-8

003322

:= #172100

;FETCH CSR LOCATIONS

MOV

#172100,.R3

LET TRCATCH := #240

;NOP TRAP (ATCHER

INCR R2 FROM #0 TO #16. BY m

;ENABLE PARITY FOS ALL CSRS

MOV

#2640, TRCATCH

CLR

INC

R2, M16.

BR
50057%
50060%:

005202

020227
003003

000020

012723

000001

50057%:

8GT
LET (R3)e := M

MOV

50061%

#1,(R3)+

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2481 013062
013062
013064
2682
2483 013064
013064
2484
2485 013070
013079
2486
2487 013072
013072
013076
2488
2489

2499
2500

OO
RN
oo

2501 013120
013120
013126
2502
2503
2504 013130
013130
2505
2506

LET R6¢

005767
001405

003074

026767

003060

251
2512
2513

2514
2515

SEQ 0071

B8R

;RESUME HALT IF
CLR

:= #0

JCLEAR PRINT FLAG

1F PARCNT NE #0 THEN

TST

vOL LOS NONVOL

LET

THEN

;MAKE SURE

+ ¥

026767
003001

003040

VvOL

003034

THEN

vOL

JHAVE

LE NONVOL

LET R4

THEN

INC

:= R4

vOL

50064%

;MIGHT BE VOL

+ M1

(MP

vOL ,NONVOL

JHITS
INC

B8GT

50065%

50065$%:

ENDIF

50064%:

IF R4 EQ #0 THEN

;WE HAVE HITS lNYN?N VOLAIILE

[NLINE <JMP

cMEMORY

ENDIF

JHITS

* BEQ

ENDIF

000450

FOUND ANY HITS?
*e TST

.NO

005204

000167

50062%:

JYES

005704
001002

50062%

50063%:

ENDIF

0C3046

PARCNT

(mMpP
vOL ,NONVOL
50063%
BHI
VOLATILE
NON
JSTILL

ENDIF

005767
001405

TRAP
TRCATCH

JWE FOUND SOME PAR]ITY ERRORS

B8EQ
003054

50060%

CLR

005204

2507
2508
2509
2510

34-9

LET TRCAT(H := #0

003274

p—

—

(NW

—
b
—
b
— —d —b

g
g—
g

b
—

b =D
—

olole

2497
2498

WWW

2495
2496 0

—

2494

2493

—

2490
24N
2492

50061%:

00504

101001

PAGE

ENDINC

Co0771

005067

22-JUN-81 15:42

20%>

50066%

BNE

;GO TO NORMAL ROUTINE
JMP

50066%:

20%

(NO FRRORS)

CVMEMAQ CIAGNOSTIC FOR NON-VOLA MACRC M1113

POWER UP ROUTINE

2516
2517 013142
013142
013150
2518
2519
2520

013152
2523 013160
013160
013166

026767
001066

052767
032767
001404

003032

100000
000001

22-JUN-81

15:42

PAGE 34-10

SEQ 0072

IF L4KST EQ START THEN

003026

;ONLY NEED TO PRINT ONE LINE
CMP
L4KST ,START

50067$

BNE

;TAKE

CARE OF ANY PROBLEMS WITH START ADDRESS

IF #1

SETIN CONTROL THEN

JBEING VOLATILE WITHIN NON-VOLATILE MEMORY
LET CONTROL := CONTROL SET.BY #100000
8IS
#100000, CONTROL

003000
002772

s MAPPED

8IT

#1, CONTROL
50070%

8EQ
JFETCH LAST BANK ADDRESS

2526 013170
013170
2528 013176
013176
013200
2529
2530
2531 013200
013200
013204
2532
2533 013212
013212
2534
2535 013212
013212
2536
2537 013216
013216
2538

2539 013222
013222
2540
2541 013224
013224
2542
2543 013230
013230
013232
2544
2545 013234
013234
2546
2547 013240
013240
2548
2549 013244
013244
013246
2550
2551 013250

013767

172342

LET END := a#K]PAR1

002770

MOV

ELSE

000405

a#KIPAR1,END

50071%
BR
50070%:
JFETCH LAST BANK ADDRESS

010067
162767

002762
000002

LET END := RO - #2

MOV

002754

SuB

ENDIF

004767

001172

004767

001142

MOV

010146

016701

002734
MOV

010146
104405

TYPDS

004767

001124

016701

002726

010146
104405

R1,=-(SP)

MOV

TYPDS

R1,-(SP)

RO, END

#2 ,END

50071%:

CALL

;PRINT ADDRESSES

CALL

TAB

PUSH

LET R1

:= VOL

JFETCH vOL

TYPDEC

;PRINT ERROR COUNT

JSR

PC,PRINT

JSR

PC.TAB

;PRINT TAB

;2PUSH R1 ON STACK

;;SAVE R1

MOV

COUNT

VOL .R1

FOR TYPEOUT

260 TYPE--DECIMAL ASCII WITH SIGN

CALL

TAB

LET R1

:= PARCNT

TYPDEC

JSR

:PRINT TAB

PC.TAB

;FETCH PARITY COUNT
PARCNT ,R1
MOV

sPRINT PARITY ERROR CNT,

;:SAVE R1 FOR TYPEOUT

:.G0 TYPE--DECIMAL ASCII WITH SIGN

IF PARCNT EQ #10.

THEN

;DO Wt HAVE

10 OR MORE

p——

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113
POWER UP ROUTINE

013250
013256

026727
001002

002716

%ggg 013260

104401

015100

Sgg%

22-JUN-81 15:42

(MP
BNE
TYPE

0126M

2560 013266
2561 013266

004767

2566 013310

2567 013316
2568

013316
013320

2569 013320
2670 013320

MOV

CALL

000001

002660

013767
062767

172342
000200

002666
002660

ADD

ELSE

ENDIF
ELSE

2575 013326
013326

032767

000001

002624

2577 013336
013336

016767

002636

002622

2676 013334

2578 013344

2579 013352

2580

013352
013354

2581 013354
013354
2582 013362
2583 013370
2584

013370

001407

162767

000200

016767
162767

MoV

RO,START

50074%:

IF #1 SETIN CONTROL THEN
BIT

BEQ

:MAPPED
#1,CONTROL

50076%

LET END := L4KST - #200 ;SUB 4K
MOV
L4KST,END

SuB

ELSE

002620
000002

#200,START

BR
50075%
50067$:

002614

000406

500738

BR
50074%
50073%:

LET START := RO

002652

000532

;PRINT <CR> <LF>
JSR
PC,CRLF2

LET START := Q#KIPAR1 + #200
MOV
a#K IPAR1,START

013324

013324
2574 013326

CRLF2

BEQ

2571 013324
2572
2575 013324

50072%:

;UP DATE START BANK TO NEXT LEVEL TO BE TESTED
1F #1 SETIN CONTROL THEN
:MAPPED
BIT
#1, CONTROL

000402

010067

;PRINT OR MORE

POP
R?
;RESTORE R1
;.POP STACK INTO R1

(SP)+ ,R1

001046

032767

2564 013300 001407

2565 013302
013302

LMORE

ENDIF

2558 013264
2559 013264

PARCNT 410,
50072%

;PARITY ERRORS

013264

2562
2563 013272
013272

SEQ 0073

000012

2556 013264
2557

PAGE 34-11

BR
50077%
50076$:

LET END := L4KST - #2
MOV
su8

002604
002576
ENDIF

#200.,END

50077%:

;LAST ADDRESS
L4KST END
#2 ,END

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2585 013370
013370
2586
2587 01337¢
013374
013400

2588
2589 013402
013402
2590
2591
2592 013406
013406
013412
2593
2594 013414
013414
5
259
2596 013420
013420
013424
2597
2598 013426
013426
2599
2600
2601 013426
013426
2602
2603 013434
013434
2604
2605 013440
013440
013446
2606
2607
2608 013450
013450
2609
2610 013456
013456
013460
2611
2612
2613 013460
013460
013464
2614
2615 013472
013472
2616
2617 013472

013472

2618
2619 013500
013500

004767

001014

005767
002012

002560

004767

000756

22-JUN-81 15:42

PAGE 34-12

SEQ 0074
CALL

;PRINT ADDRESSES
PC,PRINT
JSR

IF CONTROL LT #0 THEN

;ARE WE CHECKING NON-VOL

TST

CONTROL

JSR

PC,TAB

BGE

CALL

TAB

501009

:PRINT TAB

:NO ERRORS IN THIS PART
012746

000000

004767

000744

012746

000300

104405

MO\
TYPDS

MOV
TYPDS

#0,-(SP)

TYPDEC

CALL

TAB

:;SAVE #0 FOR TYPEOUT
;.GO TYPE--DECIMAL ASCII WITH SIGN
JSR

:PRINT TAB
PC.TAB

TYPDEC
#0
JNO PARITY EITHER
T
TYPEOU
FOR
#0
;:SAVE
;:G0 TYPE--DECIMAL ASCII WITH SIGN

ENDIF

501008$:

;INDICATE THAT NOW THIS IS NON-VOLATILE

052767

100000

004767

000700

032767
001404

000001

002524

LET CONTROL

CALL

002512

IF #1

:= CONTROL

SET.BY #100000

BIS

#100000, CONTROL

JPRINT <CR><LF>
JSR
PC,CRLF?2

CRLF2
SETIN CONTROL

THEN
BIT
BEQ

;MAPPED
#1,CONTROL
501018

JLAST 4K BANK

013767

172342

0062510
ELSE

000405

010067
162767

LET END := a#KIPAR]
MOV

B8R

50101$:

0025C2
000002

sLAST ADDRESS
LET END := RO - #2
MOV
sSuB

002474
ENDIF

016767

002502

004767

000704

002476

LET START

CALL PRINT

a#K]PART ,END

50102%

:
RO,END

#2 ,END

50102%:
:= L4KST

MOV

sPRINT ADDRESSES
JSR

L4KST,START
PC,PRINTY

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2620
2621 013504
013504
2622
2623 013 5 10
0135 10
2624
2625 0135 12
0135 12
2626
2627 013516
013516
013520
2628
2629 013522
013522
2630
2631 013526
013526
2632
2633 013532
013532
013534
2634
2635 013536
013536
013544

2636
2637
2638 013546
2639

004767

MOV

004767
016701

R1,-(SP)

002446

010146
104405

MOV

TYPDS

R1,-(SP)

000636
002440

010146
104405

MOV
TYPDS

026727
001002

002430

104401

015100

R1,-(SP)

SEQ 0075

CALL

TAB

;PRINT TAB

PUSH

;SAVE R1

LET R1

:= vOL

;FETCH VOL COUNT
vOL ,R1
MOV

TYPDEC

:PRINT ANY ERRORS

:2PUSH R1 ON STACK

;;SAVE R1 FOR TYPEOUT

;.G0 TYPE--DECIMAL ASCI] WITH SIGN

CALL

TAB

LET R1

:= PARCNT

TYPDEC

;PRINT TAB

JSR

PC,TAB

JFETCH PARITY COUNT
PARCNT ,R1
MOV
:PRINT PARITY ERRORS

;2SAVE R1 FOR TYPEOUT
::GO TYPE--DECIMAL ASCII WITH SIGN
THEN

;DO WE HAVE 10 OR MORE
cMp
PARCNT ,#10.
50103%
BNE

TYPE

.MORE

;PRINT OR MORE

ENDIF

012601
004767

PC.TAB

;PARITY ERRORS

2641

MOV

000560

(SP)+,R1

50103%:

POP

CALL

CRLF?2

;RESTORE R1

;:POP STACK INTO R1

:PRINT <CR><LF>

JSR

PC.CRLF2

;UP DATE START BANK TO NEXT LEVEL TO BE TESTED

2646

2647 013560
013560
013566
2648
2649 013570
013570
013576
2650
2651 013604
013604
013606
2652
2653 013606
013606
54
26
2655 013612

IF PARCNT EQ #10.

000012

2640 013552
013552
2642 013552
013552
2643
2644 013554
013554
2645

PAGE 34-13

000654

010146
016701

22-JUN-81 15:42

032767
001407

000001

002372

013767
062767

172342
000200

002400
002372

SETIN CONTROL THF~

#1,CONTROL

501048

LET START := a#KIPAR1 + #200

ELSE

000402

010067

IF #1

LET START

002364
ENDIF

:= RO

MOV
ADD

a#K [PAR1,START
#200,START

BR
501048:

50105%

MOV

RO,START

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

22-JUN-81 15:42

PAGE 34-14

SEQ 0076
50105$%:

013612

2656
2657 013612
013612
2658
2659 013612
013612
013614
2660
2661 013616
013616
013624

ENDIF

026767
001013

2664 013626
013626 026767
013634 002404
2665
2666 013636
013636 042767
2667
¢
2668 013644
013644
000403
013646
2669
2670 013646
013646 052767
2671
2672 013654
013654
2673
2674 013654
013654
2675
2676 013654
013654 026767
013662

2677
2678
2679
2680 013664
013664
2681
2682

013670

2683 013672
013672
013700
2684
2685
2686 013702
013702
013710
2687
2688 013716
013716
013720

20$:

005704
001132

002451

005767
002045

50075%:

IF R4 EQ #0 THEN

JHAVE WE PRINTEDTQ?YTHIN24UP TO NOW
50106%

BNE
002354

002354

002332

002326

100000

002314

START EQ L4KST THEN

MAKE SURE THAT CONTROL IS

VvOL GE NONVOL THEN

LET COMTROL

VOL ,NONVOL

50111%

:= CONTROL SET.BY #100000

BIS

#100000, CONTROL

501118:

ENDIF

501108

BR
501108:

LET CONTROL

002304

002300

cMP

:= CONTROL CLR.BY #100000
BIC
#100000, CONTROL

ENDIF

002304

START,L4KST
50107%

BLT

ELSE

100000

BNE
;SET PROPERLY

50107%:

vOL GE NONVOL THEN

:NO, ARE WE IN NON VOLATILE
CMP
VOL ,NONVOL

50112%

B8LT

;MEMORY?

;. WERE WE LOOKING FOR NON-VOLATILE
IF CONTROL LT #0 THEN

002270

TST

CONTROL

50113s

BGE

;ARE WE A MAPPED SYSTEM?

032767
001407

000001

002260

016767
162767

002272
000200

002256
002250

000406

1F #1

SETIN CONTROL THEN

BIT

BEQ

CES e
ELSE

#1,CONTROL
501148

T ks T TwM 200

MOV
SUB

L4KST, END
#200.END

B8R

50115%

50114%:

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2689
2690
2691
2692 013720
013720
013726
2693
2694 013734
013734
2695
2696 013734
013734
2697
2698 013740
013740
2699
2700 013744
013744
013750
2701
2702 013752
013752
2703
2704 013756
013756
013762
2705
2706 013764
013764
2707
2708 013770
013770
2709
2710

2711 013776
013776
2712
2713 014004
014004
2714
2715 014004
014004
014006
2716
2717

014024
014024

PAGE 34-15

SEQ 0077
sFETCH LAST ADDRESS OF

016767
162767

002254
000002

;OF NON-VOLATILE MEMORY
LET END := L4KST - #2
MOV

002240
002232

SuB

ENDIF

004767

000450

004767

000420

012746

000000

004767

000406

012746
104405

000000

104405

004767

000350

016767

002204

0462767

100000

MOV
TYPDS

MoV
TYPDS

CALL

TA8

TYPDEC

CALL

TAB

TYPDEC

CALL

CRLF?

016767

PC.PRINT

JSR

PC.TAB

LET START

;NO ERRORS

JSR

:NO PARITY ERRORS

JSR

:= L4KST
MOV

B8R

50112s:

002150

002134

L4KST,START

50116%

WERE WE LOOKING FOR VOLATILE

CONTROL GE #0 THEN

TST

BLT

002136

:PRINT <CR><LF>
PC,CRLF2

50113$:

ELSE

000001

:PRINT TAB

PC,TAB

;INDICATE NOW LOOKING FOR VOLATILE
LET CONTROL := CONTROL CLR.BY 4100000
BIC
#100000, CONTROL

002154

002146

:PRINT TAB

::SAVE #0 FOR TYPEOUT
;GO TYPE~--DECIMAL ASCI] WITH SIGN

#0,-(SP)

.YES,

032767
001407

:PRINT ADDRESSES

JSR

:;SAVE #0 FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII WITH SIGN

#0,-(SP)

002200

000436

L4KST END

#2 END

50115$:

ENDIF

005767
002433
014014
014014
014022

22-JUN-81 15:42

:YES, ARE WE MAPPED
IF #1 SETIN CONTROL THEN
BIT

BEQ

CONTROL

50117%

#1,CONTROL

501208

sFETCH LAST 4K BANK BEFORE CHANGE
LET END := L4KST - #200
MOV
L4KST ,END

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
POWER UP ROUTINE

5725 014032
2726 014040

014040
2727 014042

2728
2729 014042
014042
2730 014050

162767

000200

22-JUN-81 15:42

PAGE 34-16

SEQ 0078

002126

sus
ELSE

000406

016767
162767

002132
000002

002116
002110
ENDIF

p— 014056

004767

000326

2736 014062
2737 014062

004767

000252

2738
2739
2740 014066
741 014066
2742
2743 014074

744 014074

052767

016767

100000

002100

CALL

002074

2748
2749 014102

2754 014112
014112
»755 014114

010701
062701

2759 014124
014124
2760
2761 014132
014132

501168%:

ENDIF

2750 014102
000040

TYPE

1008 :
000040

.WORD

002026
ENDI®

YES

:= PC + #TRAPER-.

;FETCH MESSAGE
MOV
PC,R1
ADD
#TRAPER-. ,R1

TRAPER

;TELL OF ERROR

00077

104401

;DO WE PRINT TRAP PAGE CHECKSUM
8IT
#40,CONTROL
BEQ
50122%

;ERROR.

LET R1

015111

042767

50106%:

IF #40 SETIN CONTROL THEN

002050

L4KST,START

50117%:

ENDIF

014102

032767
001410

;PRINT <CR><LF>
JSR
PC.CRLF2

;BUMP POINTER
LET START := L4KST
MOV
ENDIF

2751 014102
014102
014110

PC,PRINT

002064

2746
2747 014102

%;gg 014122

CRLF2

JSR

;INDICATE NOW LOOKING FOR
;NON-VOLATILE MEMORY
LET CONTROL := CONTROL SET.BY #100000
BIS
#100000, CONTROL

014102

2756 014120

501218:

;PRINT ADDRESSES
CALL PRINT

2745 014172

S;g%

BR
501218
501208 :
JFETCH LAST ADDRESS BEFORE C(HANGE
LET END := L4KST - #2
MOV
L4KST END
suB
#2 END

2731 014056
014056
2732
2733
2734 014056

#200,END

LET CONTROL := CONTROL CLR.BY #40
. INDICATE
BIC
#40,CONTROL
;MESSAGE ALREADY PRINTED
50122%:

(VMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2763 014132
014132
2764
2765 014136
014136
2766

2767 014142
014142

2768
2769 014146
014146
01464154
2770
2771

2772 0}
2773
2774

2775
2776 0146170
014170
2777
2778 014176
014176
014200
2779
2780 014200
014200
2781
2782 0146204
014204
2783
2784 016204
014204
2785
2786

2787
2788
2789 814214
2790
279N

2792
2793 014240
014240
014242
2794
2795 014242
014242
014246
2796

005067

002020

005067

002024

032767

000001

SEG 0079

:= #0

;CLEAR VOLATILE FLAG
CLR

LET NONVOL := #0

;CLEAR NON-VOLATILE FLAG

LET PARCNT

:CLEAR PAR]ITY COUNT

CLR

:= #0

;ARE WE MAPPED?

IF #1 SETIN CONTROL THEN

002004

000200

012700

020000

013767

172342

LET a#KIPAR1

172342

BIT

LET L4KST

INLINE <JMP

176376

EDLOOP:

005704
001041

:= aNK]PARI

JFETCH NEAT BANK

000001

001736

013767

172342
000200

001734
001726

010067
162767

001720
00000¢

. CONTINUE LOOP

STLOOP>

MOV

a#K IPART,L4KST

B8R

50124%

JMP

STLOOP

;D0 WE NEED TO PRINT LAS;S?EMORY 2NDER TEST

IF #1 SETIN CONTROL THEN

BNE

JARE WE MAPPED?

BIT

BEQ

LET END :- a#K]PAR1 - #200

50125%

#1,CONTROL
50126%

JFETCH LAST 4K BANK
MOV
a#K ]PART ,END
SuUB
#200,END
50127%
BR
50126%:

LET END := RO - #2

001712

#20000,R0O

50124%:

ELSE

000405

50123%

JFETCH NEXT BANK
RO, L&4KST
MOV

:= RO

JYES

032767
001407

162767

IF R4 EQ #0 THEN

#1,CONTROL

MOV

ENDIF

000167

BEQ

50123%:

001774

PARCNT

;RETURN TO ADDRESS 0 PAR1

ELSE

000402

NONVOL

:= a#KIPAR1 + #200 :GOTO NEXT BANK
ADD
#200, a#K1PAR1

LET RO := #20000

002002

vOL

CLR

;YES

062737

010067

8 7
F GE 34-17

LET vOL

002026

005067

0016411

22-JUN-81 15:42

;FETCH LAST ADDRESS
MOV

SuUB

RC,END

#2 ,END

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
POWER UP ROUTINE

22-JUN-81 15:42

2797 014254
2798

2799 014254
>800 04254

004767

000130

2801 014260
014260
014264

005767
002012

001674

2804 014266
2805 014266

004767

000072

2806 014272
014272
2807 014276

012746
104405

000000

2808 014300
809 014300

004767

000060

2810 014304
014304
2811 014310

012746
104405

000000

CALL

MoV
TYPDS

MOV
TYPDS

004767

2823 014324

2824

2825 014330
gggg 014332
2828 014334
014334
2829
2830 014336
014336
014336
0164336

#0,-(SP)

CALL

000022

;PRINT ADDRESSES
JSR
PC,PRINT

:WAS LAST CHUNK OF MEMORY
ST
CONTROL
BGE
501308

CALL

TAR

:PRINT TAB
JSR

TYPDEC

#0
:PRINT ANY ERRORS
:;SAVE #0 FOR TYPEOUT
’
::GO TYPE--DECIMAL ASCII WITH SIGN

CALL

TAB

TYPDEC

#0
:PARITY ERRORS
::SAVE #0 FOR TYPEQOUT
::GO TYPE--DECIMAL ASCII WITH SIGN

:PRINT TAB
JSR

010701
062701

010167

CRLF2

;PRINT <CR><LF>

104401
015357

001037
:LOAD ADDRESS INTO TRAP INSTRUCTION
LET 18% :=
R1

JSR

PC,CRLF?

MOV
ADD

PC.R1
RTAF-, R

MOV

R1,18%

:TELL OPERATOR WE ARF FINISHED

18%:

000000

ENDRTN
000207

PC,TAB

50125%:

:FETCH LOCATION OF FINISHED MESSAGE
LET R1 := PC + #TAF-,

000002

PC,TAB

50130$:

END]F

014316

2821
2822 014324

ENDIF

2816 014316

2817
2818
2819 014316
014316
2820 014320

50127%:

;NON-VOL = YES, PRINT NO ERRORS

014312

5815 014312

SEQ 0080

IF CONTROL LT #0 THEN

2812 014312
2813
2814 014312

ENDIF

014254

§§8§

PAGE 34-18

TYPE
. WORD

TAF

INLINE

<HALT>

HALT

50000%:
50001$:
RTS
PC

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2832 014340
014340
2833
2834
2835 014340
014340
2836
2837
2838 014342
014342
014344
2839

2840
2841 014350

PJUSH

010146

010701
062701

2844 014354
014356

104401

014362
014362
014362
014362

SEQ 0081
CRLF?Z:

;SAVE R1

010167

014360
014360

b 7
PAGE 35

ROUTINE CRLF2

014350

2842
2843

22-JUN-81 15:42

016155

MOV

R1
R1,-(SP)

;;PUSH R1 ON STA(CK

;FETCH LOCATION OF <CR><LF> MESSAGE
:= PC + #CRLF1-,

LET R1
001611

MOV

PC,R1

MoV

R1,5%

ADD

;LOAD ADDRESS INTO TRAP INSTRUCTION
LET 58 := R

000002

5%:

;TELL
TYPE

.WORD

#CRLF1-.
R

OPERATOR <CR><LF>

CRLF1

:RESTORE R1

POP

MOV

012601
ENDRTN

000207

{SP)+,R1

:;POP 'STACK INTO R1
5S0000$:
50001%:

RTS

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

2852 014364
014364
2853
2854
2855 014364
014364
2856
2857
2858 014366
014366
014370
2859
2860
2861 014374
014374
2862
2863
2864 014400
2865 014402
2866
2867
2868 014404
014404
2869
2870 014406

014406
014406
014406

22-JUN-81 15:42

ROUTINE

SEQ 0082

TAB

TAR:

;SAVE R1

PUSH

MOV

010146

E 7
PAGE 36

R1,-(SP)

;;PUSH R1 ON STACK

JFETCH LOCATION OF TAB MESSAGE

010701
062701

010167
104401

015450

LET R1

:= PC + #TAB1-,

001060

. LOAD ADDRESS INTO TRAP INSTRUCTION
LET 6% := R1

000002

MOV
ADD

PC,R1
#TAB1-,
R1

MOV

R1,6%

;TELL OPERATOR TAB

6%:

TYPE

.WORD

TAR1

JRESTORE R1

POP

L 01Y)

G12601
ENDRTN

000207

(SP)+ R1

;sPOP STACK INTO R1
500008:
50001%:

RTS

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ADDRESSES ROUTINE

2872
2873
2874
2875
2876 0144610
014410
2877
2878 014410
014410
014416

2879
2880 014420
014420
2881
2882 014426
014424
2883
2884 014426
014426
2885
2886 014432
014432
2887
2888 014436
0146436
2889
2890 014442
016442
2891
2892 014446
01444¢

2893
2896 014452
014452
014454
2895
2896 014454
014454
2897
2898 014460
014460
014462
2899
2900 014464
014464
014470
014472
014473
2901
2902 014474
014474
014476
2903
2904 014476
014476
014502
014504

F_7

22-JUN-81 15:42
.SBTTL

PAGE 37

SEQ 0083

PRINT ADDRESSES ROUTINE

;THIS ROUTINE PRINTS

THE ADDRESSES

IN THE MEMORY MAP

ROUTINE PRINT

032767
001416

016702

000001

001542

IF #1

005001

000366

004767

177726

016702

001524

012701

017776

004767

000346

104403

:= START

JYES,

FETCH 4K BANK
MOV

LET R1

:= #0

JALWAYS AT 4K BOUNDARY

CLR

CALL P22BAD

;PRINT START ADDRESS
JSR

CALL

TAB

JPRINT

LET R2

:- END

JFETCH LAST 4K BANK

LET Rl

:= #17776

;LAST ADDRESS IN 4K BANK

TAB

JSR

MOV

:= START

000000

#0,-(SP)

.BYTE
BYTE

4
O

TYPOS

TYPOCS

000001

MOV

TYPQOS
BYTE

&1 ,-(SP)
4

START,R?

PC,P22BAD
PC.,TARB

END,RZ2

R17776 ,R1

JSR

P(,P22BAD

BR
50002%:

50003%

TST

#0,.4

500048

;TYPE UPPER BIT AS 2ERO

::SAVE #0 FOR TYPEOUT

:2G0 TYPE--OCTAL ASCI!

J:TYPE & DIGIT(S)
;JSUPPRESS LEADING ZEROS

ELSE

000404

50002%

MOV

BLT

MOV

#1,CONTROL

:FETCH BEGINNING ADDRESS
START ,R1
MOV

IF R1 GE #0 THEN

000

104403
004

LET R2

LET R1

001516

004

012746

BIT

CALL P22BAD

005701
002405

012746

JARE WE A MAPPED SYSTEM

ELSE

000442

016701

SETIN CONTROL THEN

BEQ

001552

004767

PRINT:

50005%
BR
:
500048
TYPOCS

#1,.4
::SAVE #1

:TYPE UPPER BIT AS ONE
FOR TYPEOUT

G0 TYPE-=OCTAL ASCII
:;TYPE & DIGIT(S)

——

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

ADDRESSES ROUTINE

s 014505

290
2906 014506
014506

2907
2908 014506
016506
014510
014512
014513
2909
2910 014514
014514
2911

2912 014520
014520
2913
2914 016524
014524

014526

2915
2916 014530
014530
014534
014536
014537
2917

2918 014540
014540
014542
2919
2920 014542
014542
0145646
014550
014551
2921
2922 014552
014552
2923
2924 014552
014552
014554
014556
014557
2925
2926 014560
014560

2927
2928 014560
014560
014564
2929
2931 014566
014566
014570

oocC

22-JUN-81 15:42
BYTE

6.7

PAGE 37-1

SEQ 0084

s SUPPRESS LEADING ZEROS

O
ENDIF

MOV
TYPOS
BYTE

010146
104403
005
001

.BYTE

004767

177644

016701

001442

000000

R1,,5.X

5
1

;sPRINT STARTING ADDRESS

;:SAVE R1 FOR TYPEOUT
;:G0 TYPE-~OCTAL ASCII
;o TYPE S DIGIT(S)
;. TYPE LEADING ZEROS

CALL

TAB

. TAB

LET R1

:= END

JFETCH LAST ADDRESS

MOV

#0,-(SP)

BYTE
BYTE

&
0

TYPOS

JSR

TYPOCS

000001

#,-(SP)

.BYTE
.BYTE

&4
0

MOV
TvYPOS
BYTE
BYTE

TYPOCS

#1,.4

;:SAVE #1

001374

50006%

;| fPE UPPER BIT AS ONE

JsTYPE & DIGIT(S)
;. SUPPRESS LEADING ZEROS
50007$:

R1,-(SP)

R1,,5.X

5
1

PRINT LAST ADDRESS

;:SAVE R1 FOR TYPEOUT
2:G0 TYPE=--OCTAL ASCII
;.TYPE 5 DIGIT(S)
;. TYPE LEADING ZEROS

50003$:

CONTROL LT #0 THEN

JAsS 17 NON-VOLAI%%%
BGE

LET R1

000670

;:GO TYPE--OCTAL ASCII

;FETCH LOCATION OF

010701
062701

TST
BLT

FOR TYPEOUT

ENDIF

005767
002022

END,R1

50007%
B8R
500068:

ENDIF

010146
104403
005
001

MOV

;. TYPE 4 DIGIT(S)
;s SUPPRESS LEADING ZEROS

MOV

TYPOS

PC.TAB

#0,.,4
. TYPE UPPER BIT AS ZERO
;.SAVE #0 FOR TYPEOUT
::G0 TYPE=-=-OCTAL ASCII

ELSE

000404

012746
104403
004
000

TYPOCS

R1,-(SP)

IF R1 GE #0 THEN

005701
002405
012746
104403
004
000

500058%:

CONTROL
500108

NON VOLATILE MESSAGE

:= PC + #NVMES-.

MOV
ADD

PC.R1

MNVMES., ,R1

’

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113
PRINT ADDRESSES ROUTINE
2932
2933
¢ ' 014574

2935 014574

010167

2936
2937 014600
Sggg 014602

106601
015460

22-JUN-81 15:42

001366

2943 014612
014612
014620
2944

032767
001403

004000

IF START EQ #0 THEN

2942

052767

000040

001330
ENDIF

014630

2951
2952 014630

ENDIF

014630

014632

2955
2956
2957 014632

01463
2058 014634

295
2900 014640

ELSE

000407

010701
062701

2061 014640

010167

2962
2963 014644
Sggg 014646

104400
015503

;FETCH LOCATION OF VOLATILE MESSAGE
LET R1 := PC + NVMES-,

000647
;LOAD ADDRESS INTO TRAP INSTRUCTION
LET 6% := R1

000002

ENDIF

ENDRTIN
000207

50011$:

B8R

50013%

MOV
ADD

PC.R1
#VMES~, ,R1

MOV

R1,6%

;TELL OPERATOR VOLATILE
TYPE
.WORD
VMES

6$:

014650

2967
2968 014650

50012%:

500108%:

2966 014650

014650
014650
014650

;WAS THERE TRAP PAGE
BIT
#4000, CONTROL
BEQ
50012%
;CHECKSUM ERROR

:INDICATE PRINT ERROR MES3AGE
LET CONTROL := CONTROL SET.BY #40
:
BIS
#40, CONTROL

2950 014630

014630

R1,5%

:YES

2947

2953
2954 014630

MOV

JARE WE [N PAGE O
TST
START
BNE
500118
JYES

1f #4000 SETIN CONTROL THEN

001340

2945
2946

,
2948 01462¢
2049 014622

SEQ 0085

:TELL OPERATOR NON VOLATILE
TYPE
.WORD
NVMES

5%:

005767
001007

;LOAD ADDRESS INTO TRAP INSTRUCTION
LET S8 := R1

000002

2940 014604
014604
014610
2941

PAGE 372

50013s%:
500008%:
50001%:
RTS
PC

(VMEMAOD DIAGNOSTIC FOR NON-VOLA MACRO M1113

PARITY

CATCHER

2970
2971
2972
2973
2974 014652
0146652
2975
2976 014652
014652
2977
2978
2979 014656
014656
2980
2981 01564
014¢64
2982
2983 014670
014670
014672
014674
014674
014676
014676
014702
2984
2985 014704
014704
2986
2987 014706
014706
014710
2988
2989 014710
014710

2991 014714
014714
014720

2992
2993 014722
014722

2995 014726
014726
014730

22-JUN-81
.SBTTL

3001 014734
014734
3002
3003

SEQ 0086

PARITY CATCHER

;THIS ROUTINE CATCHES PARITY ERRORS AND STORES THEN IN PARCNT

IROUTINE PARTRP

005267

012767

000240

012702

172100

PARTRP:

LET PARCNT

001314

001500

005001
000401

:= PARCNT

+ #1

s INDICATE PARITY ERROR
INC

;IF CSR DOES NOT EXIST THEN JUST RTI

LET R2

:= 4172100

;FIRST CSR ADDRESS

INCR R1

FROM #0 TO #16. BY #1

;CLEAR ALL CSRS

MoV

MOV

005201
020127
003002

000020

LET (R2)+ := #0

005022
END INC

005067

001450

022740
001003

125252

005267

001234

005267

R1.,416.

CLR

(R2)+

BR
500048

50003%

JRECHECK ADDRESS WITH PARITY OFF
#125252,-(RO)
cMp
50005%
BNE

LET NONVOL

;WE ARE NON-VOLATILE

:= NONVOL + M

LET

vOL

001216

LET CONTROL

;WE

ARE

TRAP

50004%

IF #125252 EQ -(RO) THEN

001230

000002

CMP

JRESUME HALT [F

ENDIF

052767

#172100,R2

LET TRCATCH := #0

ELSE

000402

#240, TRCATCH

R1
CLR
50002%
BR
50003$:
R1
INC
%:
50002

BGT

000772

PARCNT

:DISABLE PARITY
LET TRCAT(H := #4240

2996

2997 014730
014730
2978
2999 014734
014734

15:42

7
I
PAGE 38

CLR

TRCATCH

INC

NONVOL

BR
50005%:

50006%

VOLATILE

INC

voL

50006%:

:- CONTROL SET.BY #2

s INDICATE PARITY ERROR WAS
BIS

. SERVICED

#2,CONTROL

———

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-B1 15:42 PAGE %8-1

PARITY

SEQ 0087

CATCHER

3004 016742
014742
3005
3006
3007 014746
014746
014754
3008
3009
3010 014756
014756
3011
3012 014764
014764
3013
3014 014770
014770
014772
014774
014774
014776
014776
015002
015004
015004
015010
015010
015012
3020 015012
015012

062700

000002

026727
002020

001220

012747

000240

012702

172100

; TRAP

IF PARCNT LT #10. THEN

000012

001400

012722

000001

:= #172100

;FIRST

INCR R1

FROM #0 TO #16. BY M

;CLEAR ALL CSRS

LET
END INC

LET TRCATCH := #0

001346
ENDIF

015016

ENDRT

00000¢

/R2)+

:= #

#240,TRCATCH

CSR ADDRESS

MOV

CLR
BR

50011s:
INC
50010$:
cmp

000771

005067

MOV

LET R2

005201
000020

#2,R0

JENABLE PARITY ERRORS THROUGH THE CSRS
;IF CSR DOES NOT EXIST THEN JUST RTI

005001
000401

020127
003Q03

ADD

LEAVE PARITY DISABLE WHEN TO MANY ERRORS
cMP
PARCNT ,#10.
BGE
50007%

LET TRCATCH := #240

3022 015016

3024 015016
015016
015016
015016

:RESTORE RO TO WHAT T WAS AFTER

LET RO := RO + #2

#172100,R2

R1
50010%
R1

BGT

R1,#16.
50012%

MOV

#1,(R2)+

BR
50011%
50012%:

JRESUME HALT [F TRAP
CLR

50007%:
50000$:
50001%:

RT]

TRCATCH

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
PRINT CONTIGUOUS 22 BIT ADDRESS ROUTINE

ggg?
3028

22-JUN-81 15:42

SEQ 0088

.SBTTL PRINT CONTIGUOUS 22 BIT ADDRESS ROUTINE

;THIS ROUTINE TAKES THE ADDRESS STORED [N R1 AND THE MEMORY ADDRESS IN

3029
%8%?

;R2 AND CREATS A 22 BIT CONT]GUOUS ADDRESS WITH ADDRESS BITS 14 - 0
JIN R1 AND BITS 21 = 15 IN R2

3032 015020

ROUTINE P22BAD

2033 015020

3034 015C J
015020
015022

010146
010246

3036 015026
015026
3037 015030

006216
006216

2035 015024

3038 015032

010246

MoV

042716

117777

3042 015040
3063 015040

042701

160000

3047 015046
015046
ggzg

006202

3050 015050
3051 015050
3052 015052

3053 015052

3054 015056
015056

000302
042702

177600

;PUT BITS 88 7 INTO 6 R 5
ASR
(SP)
ASR
(SP)

;PUT BIT5 6 8 5 INTO 14 & 13
SWAB

(SP)

:= (SP) CLR.BY #117777 ;CLEAR OUT UN-IMPORTANT BITS
8IC
Mm17777,(SP)

LET R1

:= R1 CLR.BY #160000

;CLEAR OUT MEMORY MAN. POINTERS
8IC
#160000,R1

LET R1

:= R1 SET.BY (SP)+

;TRANSFER BITS 8 & 7 IN R2 INTO BITS
8IS
(SP)+,R1
;14 £ 13 INRY

LET R2 := R2 SHIFT -1

;FETCH ADDRESS BITS & PUT BIT 8 INTO
ASR
R2
;LOWER BYTE

LET R2 := SWAP R2

;NOW ADDRESS BITS 21-15 ARE IN LSB
SWAB
R2

LET R2 := R2 CLR.BY #177600

TYPOCS

015060
015062
3055 015063

MOV
TYPOS
BYTE
.BYTE

3056 015064
015064
015066
015070
3057 015071

010146
104403
005
001

TYPOCS
MOV
TYPOS
BYTE
BYTE

012602
012601

MOV
MOV

015072
015074

:;PUSH R2 ON STACK

:= (SP) SHIFT <2

LET (SP)

010246
104403
004
000

3058 015072

;USE STACK AS SCRAT(CH PAD AREA
;:PUSH R1 ON STA(CK
;:PUSH R2 ON STACK

LET (SP) := SWAP (SP)

3040 015034
3041 015034

052601

R2,=-(SP)

LET (SP)

000316

3044 015044
015044
%822

P22BAD:

PUSH <R1,R2,R2>
MoV
R1,-(SP)
MOV
R2,-(SP)

3039 015032

3059

PAGE 39

R2..4
R2,~(SP)
&
O
R1,.,5,X
R1,-(SP)
5
1

POP <RZ2.R1>

(SP)+,R2
(SP)+ ,R1

;CLEAR OUT ALL OTHER BITS

8IC

;PRINT ADDRESS BITS 21 - 15
:.SAVE R2 FOR TYPEOUT
;.60 TYPE--OCTAL ASCII
;. TYPE 4 DIGIT(S)
: s SUPPRESS LEADING ZEROS

;PRINT ADDRESS BITS 14 - 0
;. SAVE R1 FOR TYPEOUT
.60 TYPE--OCTAL ASCII
;cTYPE 5 DIGIT(S)
;. TYPE LEADING ZEROS

::POP STACK INTO R?
;;POP STACK INTO R1

#177600,R2

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113
PRINT CONTIGUOUS 22 BIT ADDRESS ROUTINE
3060 015076

015076
015076

015076

22-JUN-81 15:42

ENDRTN

000207

PAGE 39-1

SEQ 0089
50000$:
50001$:

RTS

DEF INITIONS

22-JUN-81 15:42

.SBTTL
:
MORE

TRAPER: .

3072
3073
3074
3075

015503
015526
015531
015604

.AS
AS

.AS

.AS
PWRDWN:

PARCNT:
ENDADD:

START:
L4KST:

.
.

THE MEMORY THE PROGRAH 1S

* RESIDENT'<12><15>'IN HAS VOLATILE LOCATIONS'<12><15>
§12><12>$15>'THIS CONCLUDES THE NON~VOLATILE DATA RETENTION TEST'<12><15>
!
NON VOLATILE'
'
VOLATILE
'
§12><12><1S>

MEMORY MAP'<12><15>

'<15><12><12>

WORD ERROR
'START ADR.
END ADR.
MEMORY TYPE
'PARITY ERROR'<12><12><15>
'PLEASE POWER DOWN THIS SYSTEM. AFTER 2 MINUTES BUT'

* NO LONGER'<12><15>'THAN 100 HOURS,
'
' EXECUTE THE RESTART HELP FILE.'<12><15>

<12><15>

CRLF1:
CONTRO:
NONVOL:
:
VoL
END:
PPOINT:

SEQ 0090

' OR MORE'
'TRAP LOCATIONS (ADDRESS 0 - 376) HAVE CHECK SUM ERROR'
* IN NON = VOLATILE MEMORY'<12><12><15>

<12><12><1S> CHECK SUM ERROR.

ERR:
:
TAF
TAB1:
:
NVMES
VMES:
HEAD:

PAGE 40

DEFINITIONS

OCOOCOO0OOO00O

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

DEF INITIONS

3093
3094
3095
3096 016202
016202
3097
3098 016202
3099
3100
3101 01621
01621
3102
3103
3104
3105 016216
016220

032767
001403

000001

012700

040000

IF #1

177750

SEQ 0091
IF

A WRITE

TO A ROM MODULE

JARE WE

RO := #40000

IN A MAPPED SYSTEM

BIT
BEQ

#1,CONTROL
50002%

;BUMP POINTER TO INDICATE
MOV

#40000,R0

BR
50002%:

50003%

;WF HAVE REACHED THE END
;OF THIS 4K CHUNK OF MEMORY

ELSE

INLINE

005740

;BUMP POINTER BACK TO WHAT [T
TST -(RO)

;WAS BEFORE TRAP
LET

040000
ENDIF
ENDRT]

000002

SETIN CONTROL THEN

LET

000403

062700

CAUSES A

ROMMD:

;YES

016226

016226
016226
016226
016226

N 7
PAGE 41

IROUTINE ROMMD

15:42

;;:Ag ROUTINE BUMPS THE WRITE POINTER 4K

3106
3107 016220
016220
3108
3109
3110 016222
016222
3111
12 2 016226

22-JUN-81

:= RO + #40000

;BUMP TO NEXT 4K BOUNDARY
ADD

50003$:
50000$:
50001%:

RTI

#40000,R0

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

DEF INITIONS

22-JUN-31 15:42

B_8

PAGE 42

SEQ 0092

;THIS ROUTINE SETS UP TRAP CATCHERS IN ALL TRAP LOCATIONS

:FROM 0 TO 400
ROUTINE

PUSH
MoV

010046

016232
016232
016240

3124
3125
3126 016242
016242
3127
3128 016246
016246
3129
3130
nn 016252
016252
3132
3133
3134 016256
016256
016260
3135
3136 016260
016260
3137
3138 016262
016262
3139
3140 016262
016262
016264
3141
3142 016270
016270
3143
3144 016270
016270
016274
016276
016302
3145
3146 016304
016304
016310

016312

016316
016320

3147
3148 016320
016320

032767
001407

000001

013746

172342

005037

012700

TRAPCT

177720

IF #1

TRAPCT:

RO
RO,=(SP)

;;PUSH RO ON STA(K
JARE WE

SETIN CONTROL THEN

;SYSTEM
MOV

PUSH
a#K IPAR1
a#KIPAR1,~(SP)

LET

172342

_ S#KIPAR1

; ;PUSH a#K]PAR1 ON STACK
:= #0

;YES,
;6K

RO := #20000

LET

020000

MOV

LET

CLR

:= PC

+ #TRCATCH-.

000034

010710

;FIND TRAP CATCHER ROUTINE
MOV
ADD

LOOP

020027
001403
020027
001006

AND

#20000.
RO

50003$:

000100

EXIF

TO LOWEST

a#K IPAR1

:START WITH ADDRESS 0

RN := #0

ENDIF

000400

WILL POINT

50003$
BR
500028:

LET

020027
001423
020027
001420

CLR

:ADDRESS 0

005000

010701
062701

PAR1

;RO POINTS TO PAR1

ELSE

000401

IN MEMORY MANAGEMENT
#1,CONTROL
BIT
50002%
BEQ

PC,R1
,R]
#TRCAT(CH-.

500048:

RO EQ #400 OR RC EQ #20400

CMP
BEQ
CMP
BEQ

020400

IF RO EQ #34 OR RO EQ #20034 THEN

020034

;LOAD TRAP ROUTINE
RO, #34
cMP
50006%
BEQ
RO, #20034
CMP

BNE

50006$:

LET (RO)

RO, #6400
50005$
RO, #20400
50005$

50007$

;LOAD TRAP INSTRUCTION LOCATION
MOV

PC., (RO)

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

DEF INITIONS

3149
3150 016322
016322
3151
3152 016326
016326
3153
3154 016332
016332
016334
3155
3156 016334
016334
3157
3158 016336
016336

3159
3160 016342
016342
3161
3162 016342
16342
016344
3163
3164 016344
016344
016352
3165
3166 016354
016354
3167
3168 016360
016360
3169
3170 016360
016360
1N
3172 016362
016362
016362
016362

062720

012720

22-JUN-81 15:42

c_8

PAGE 42-1

001104

000340

LET (RO)+ :=

(RO)+ + NSTRAP-,

LET (RO)+ :=

#340

;'
#STRAP=-.
, (RO)+

ADD

;LOAD PSW

ELSE

000403

MOV

#340,(RO)+

B8R

50010%

50007%:

010120
012720

SEQ 0093

000340

LET (RO)+ :

;LOAD TRAP CAT(HER
R1,(RO)+
MOV

LET (RO)+ :=

#340

;LOAD PSW

ENDIF

50010%:

ENDLOOP

000752

#3460, (RO)+

MoV

50004

50005$:

032767
001402

000001

012637

172342

IF #1

177606

SETIN CONTROL THEN

MOV

POP

a#K JPAR1

(SP) +,a#K]PAR1

JARE WE

;:POP STACK INTO a#KIPAR1

ENDIF
POP

MOV

012600

IN A MAPPED SYSTEM
#1,CONTROL
BIT
50011$
BEQ

50011%:
RO

;;POP STACK INTO RO

(SP)+,R0O

ENDRTN

500008%:
50001%:

RTS

000207

FFEE ¢ &%

IROUTINE

2222

TRCATCH

INLINE

o006

;DO AN RT] WHENEVER IT TRAPS.

ENDRT]

000002

TRCATCH:

<HALT>

;FOR DEBUG PURPOSE REPLACE WITH A HALT
HALT

500008:
50001$:

RTI

INSTRUCTION

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

DEF INITIONS

3182
3183
3184 016370

22-JuN-81 15:42
LIST

105767
100002

000000
000407
010046

$TYPE:

000313

1%:

.STYPE

1ST8

D_8
PAGE 43

MEB

, (SP)
WHT

;. 1S THERE A TERMINAL?
ssBR IF YES
;JHALT HERE [F NO TERMINAL
;. LEAVE
;:SAVE RO
;.GET ADDRESS OF ASCIZ STRING
;sPUSH CHARACTER TO BE TYPED ONTO STA(K
;:BR IF IT ISN'T THE TERMINATOR
1F TERMINATOR POP IT OFF THE STACK
;.
;;RESTORE RO
s sADJUST RETURN PC
:;RETURN
JJBRANCH JF <HT>

#CRLF, (SP)

2 :BRANCH IF NOT <CRLF>

$TPFLG
1%

RO,=(SP)

al(SP) RO
(RO)+,-(SP)

000002

60$:
3%:

#2,(SP)

000011

A ¥

000002

000200

PC,-(SP)
#SCRLF1-,,(SP)

(SP)+,20%

20$:

000202

000056
000206

5%:
6%:

000176
000001

7%:

000032
000144

000040
000014
000007

3]
+
(SP)
(SP)+ ,R0O

5%
+
(SP)

000242
000002

00012¢

8%:
9%:

$CRLF1
$CHARCNT

PC,STYPEC

S$FILLC,(SP)+

S$NULL ,~(5P)
1(SP)
63
PC,STYPEC
$CHARCNT
78
#' ,(SP)
PC,.STYPEC
#7 ,$CHARCNT
9%
(SP)+

000112

23
STKS1
108
a$TkB1,~(SP)

000023

NSXOFF
, (SP)

000116

$TYPEC:

#177600. (SP)

NN
= = =
VINOOAOONON

VNN =N~

3588%% —08
b
—

016626
016630

W\J\J§\J\J\Jw

177600

000072

101$:

000066

as$TKB1,

000021

000050

1028

(SP)

#177600. (SP)

177600
:
1028
10%:

SEQ 0094

#SXON, (SP)
101$
(SP)+

asTPS1
108

;:POP

<CR><LF> EQUIV

;;TYPE A CR AND LF

;s CLEAR CHARACTER COUNT

;.GET NEXT CHARACTER
2.G0 TYPE THIS CHARACTER
;IS IT TIME FOR FILLER CHARS.?

;;1F NO GO GET NEXT CHAR.
;.GET # OF FILLER CHARS. NEEDED
:.DOES A NULL NEED TO BE TYPED?
;;BR IF NO--GO POP THE NULL OFF OF STAC(K
260 TYPE A NULL
;DO NOT COUNT AS A COUNT
;. LOOP
;;REPLACE TAB WITH SPACE
J3TYPE A SPACE

:;BRANCH IF NOT AT
;;TAB STOP
;.POP SPACE OFF STA(CK
ssGET NEXT CHARACTER
;:CHAR IN KYBD BUFFER?
;:BR IF NOT
;IGET CHAR
;:STRIP EXTRANEOUS BITS
;:WAS CHAR XOFF
;:BR IF NOT
J:WALT FOR (HAR
;:GET CHAR

J:STRIP IT

J:WAS T XON?
;:BR IF NOT
JIFIX STACK
J;WAIT UNTIL PRINTER IS READY

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

TYPE

ROUTINE

016632

116677

000002
000015

22-JUN-81 15:42
MOVB

000042
000002

(mMP8
BNE
CLRB

00001¢

000012

000002

B8R

1$:

C(MPB
BEQ
INCB
$CHARCNT:
. WORD
$TYPEX:

016711

J1IF
"1IF
11F
11IF
11F
11F
11F
11F
1IF
11F

000

3185
3186 016714
016714
016716
016720
016722
016724
016726
016730
016734
016740
016742
016744
016752
016754
016756
016762
016766
016770

RTS

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;215 CHARACTER A CARRIJAGE RETURN?
;:BRANCH IF NO
::gi?;-CLEAR CHARACTER COUNT

#LF,2(SP)
$TYPEX
(PC)+
O

2215 CHARACTER A LINE FEED?
2 ;BRANCH IF YES
;sCOUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

$TYPEX

.WORD
.-$TKS1,$TKS1:
.-$TKB1.$TKB1:
.WORD
.-$TPSI1,8TPST1:
.WORD
.-$TPB1,$TPB1:
.WORD
.-SNULL,SNULL:
.BYTE
.-$FILLS.SFILLS:
.~SFILLC,SFILLC:
.~-$STPFLG1,$TPFLGY:
.~SCRLF1,8CRLF1:
.-SUF1.8(F1:
LASCIZ

MOV

020200
000022

000055

000001

000200
000040

18:

e ¥

000154

R4 ,=-(SP)
RS,~(SP)
#20200,-(SP)
22(SP) ,RS
1$
RS
#'-_1(SP)

MOV
ADD

PC,R3
#$DBLK~.
,R3

CLR
MOV

R2
PC.R4

mMOvB
ADD
ADD

017002
017004
017006
017010
017012
017014

MOV
SUB
BLT
INC

B8R

ADD
TST

BNE

1ST8

5%:

052702
110223

000001
000060
000040

177777

68 :

78:

R3,~(SP)

MOV
MOV
MOV
MOV
8PL
NEG
MOVB
CLR

8MI

,(R3)+

#$DTBL-.
R4
RO,R4

(R4) ,R1
R1,RS
43
R2

R1,RS
R?

(SP)

ASLB
BCC

(SP)
é$

BIS

#'0,R2

MOVB

R2,(R3)+

MOVB
BIS

SEQ 0095

2(SP),asTPB1
#CR,2(SP)
1$
$CHARCNT

.$TYPDEC
RO,-(SP)
MOV
R1,=-(SP)
MOV
R2.=(SP)
MOV

016772
016776
017000

017016
017020
017022
017024
017026
017030
017036
017042
017046

EQ
EQ
EQ
EQ
EQ
EQ
EQ
€EQ
EQ
EQ

E_8

PAGE 43-1

1(SP),-1(P3)

177560
177562
177564
177566
0
.BYTE

BYTE
BYTE

LASCIT
<12>

;:TTY KDB STATUS
;MJDOO
;:TTY KBD BUFFER
;MJD00
J:TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS
;. CONTAINS NULL CHARACTER FOR FILLS
;2CONTAINS # OF FILLER CHARACTERS RE

12
O

;o INSERT FILL CHARS. AFTER A "LINE f
;2 'TERMINAL AVAILABLE'' FLAG (BIT<07>

;:CARRAIGE RETURN
;s LINEFEED

::PUSH RO ON STACK
;:PUSH R1 ON STACK
JsPUSH R2 ON STACK

:;PUSH R3 ON STACK
;:PUSH R4 ON STACK
::sPUSH RS ON STACK
JoSET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
::BR 1F INPUT IS POS.
;:MAKE

THE BINARY NUMBER POS.

J¢MAKE THE ASCI] NUMBER NEG.
;:ZERO THE CONSTANTS INDEX
JsFETCH PC FOR ADDRESSING

;:SETUP THE OUTPUT POINTER = R3 POINTS TO $DBLK
::SET THE FIRST CHARACTER TO A BLANK
;s CLEAR THE B8CD NUMBER
:JUSE PC FOR LOCATING TABLE

;:R4 NOW POINTS

TO TABLE

;o INDEX INTO TABLE
:;GET THE CONSTANT

;cFORM THIS BCD DIGIT

;:BR IF DONE

;; INCREASE THE BCD DIGIT BY 1
;;ADD BACK THE CONSTANT

;:CHECK ]F BCD DIGIT=0
;;FALL THROUGH IF O
;sSTILL DOING LEADING 0°S?

J:BR IF YES
;.MSD?
;:BR IF NO
JoYES--SET

THE

SIGN

;sMAKE THE BCD DIGIT ASCII
;;MAKE IT A SPACE IF NOT ALREADY A DIGIT

JsPUT THIS CHARACTER IN THE OQUTPUT BUFFER

—

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

017050
017052
017056
017060
017062
017064
017066
017070
017072
017100
017102
017104
017106
017110
017112
017114
017116
017120
017124

00572C
020027
002743
003002
010502
000764
105726
100003
116663
105013
012605
012604
012603
012602
012601
012600
010746
062716
012667

017132

017156

017130

104401

000010

8%:
177777

177776

016666
012616
000002
023420
001750
000144

000002

3188 017166
01716€
017172
017200
017204
017210
017212

017646
116667
112667
062716
000406
112767

000000
000001
000221
000002
000001

000203

017226
017234

112767
010346

000005

000166

017246
017250
017254
017260
017264

005404
062704
110467
116704
016605

017154

017220

017236
017240
017242

017270
017272
017274
017276
017300
017302
017304
017306
017310
017314

9%:

000036
000002

017134
017142
017144
017146
017150
017152
3187

000004

10$:

$OTBL:

000012

112767

010446
010546
116704

005003
006105
000404
006105
006105
006105
010503
006103
105367
100023

22-JUN-81 15:42

1ST
CMP
BLT
BGT
MOV
B8R
TSTB
BPL
mMovB
CLRB
Mov
MOV
MOV
MOV
MOV
MOV
MOV
ADD
MoV

(RO) +
RO, #10
2%
8%
R5,R2
63
(SP)+
9%
=1(SP) ,=2(R3)
(R3)
(SP)+,RS
(SP) + ,R4
(SP)+,R3
(SP)+,R2
(SP) + ,R1
(SP)+,RO
PC,=(SP)
#$DBLK~. , (SP)
(SP)+,10%

.WORD

$DBLK

TYPE

MOV
MoV
RTI
10000.
1000.
100.

PAGE 43-2

2(SP) ,4(SP)
(SP)+,(SP)

SEQ 0096

s o JUST INCREMENT
ING
;s CHECK THE TABLE INDEX
2:G0 DO THE NEXT DIGIT
;GO TO EXIT
s.GET THE LSD
2.GO CHANGE TO ASCII
;.WAS THE LSD THE FIRST NON-ZERO?
;.BR IF NO
;o YES==~SET THE SIGN FOR TYPING
;o SET THE TERMINATOR
;.POP STACK INTO RS
:;POP STACK INTO R4
;.POP STACK INTO R3
;.POP STACK INTO RZ2
;.POP STACK INTO R1
;.POP STACK INTO RO
;.FETCH ADDRESS OF NUMBER TO BE TYPED USING
;s STACK NOW CONTAINS ADDRESS OF NUMBER TO BE
2:SET UP ADDRESS FOR TYPE COMMAND
:sNOW TYPE THE NUMBER
:;ADJUST THE STACK
;sRETURN TO USER

10.

000006

000223

000177

.$TYPOCT
$TYPOS: MOV
@(SP) ,=(SP)
MOvB
1(SP),$OFILL
MovB
(SP)+,S0MODE+1
ADD
#2,(SP)
BR
STYPON
$TYPOC: MOVB
#1,80FILL

#6, $SOMODE +1

MOV
MOV
MOVB

R4 ,~-(SP)
R5,=(SP)
$OMODE +1,R4

$TYPON: MOVB
MoV

000157

NEG
ADD
MOVB
MOVB
MOV

000006
000144
000137
000012

1$:
2%:

000110

MOVB

3%:

CLR
ROL

BR
ROL
ROL
ROL
MOV
ROL

DE(B
8PL

#5,30CNT
R3,-{SP)

Ré
#6 R4
R& , SOMODE
$OFILL,RS
12(SP) ,RS
R3

33
RS
RS
RS
RS,R3
R3

$OMODE
’$

;.PICKUP THE MODE
;sLOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
s ;ADJUST RETURN ADDRESS
;oSET THE ZERO FILL SWITCH

;.SET FOR SIX(6) DIGITS

;oSET THE ITERATION COUNT
;. SAVE R3

;. SAVE R4
;. SAVE RS
;;GET THE NUMBER OF DIGITS TO TYPE
;sSUBTRACT IT FOR MAX. ALLOWED
;sSAVE IT FOR USE
;.GET THE ZERO FILL SWITCH
;sPICKUP THE INPUT NUMBER
;. CLEAR THE OUTPUT WORD

;;ROTATE MSB INTO '‘C*’
;.GO DO MSB
;.FORM THIS DIGIT

;;GET LSB OF THIS DIGIT
2. TYPE THIS DIGIT?
;.BR [F NO

BINARY

TO OCTAL

(ASCII)

AND TYPE

017316
017322
017324
017326
017330
017332
017336
017342
017346
017350
017354

042703

177770

22-JUN-81 15:42

000060
000040
000052

5%:

000050
000002
10$%:
7%:

000032

6%:

000002

3191

$OCNT:
$OFILL:
:
$OMODE

017424

01742¢
017426
017430
017432
017436
017440
017442
017444
017446
017452
017454
017456
017460
017462
017464
017472
017474
017476
017500
017502
017504
017506
017510
017512

017514
017516

#177770,R3

MOV
TYPE
.WORD
DE(CB
BGT
BLT
INC
BR

(SP)+,108

$STRAP:

000004

MOV
MoV

MOV
MOV

000004
8%:

3189

BIC
BNE
TST
BEQ
INC
8IS
8IS
MOVB
MOV
ADD

MOV
RT]

.BYTE
.BYTE
BYTE
.BYTE
.WORD

.$TRAP

MOV
MOV
MOV

TST
MOovB
ASL

MOV

000026

000004

ADD
ADD

000002

MOV
MOV
RTS
$TRAP?: MOV
MOV
RT!
$ TRPAD: . WORD

S$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
$RDCHR
$RDL IN
$RDOCT
$RDDE
C

G_8

PAGE 43-3

R3,8$

PC,-(SP)
#8%-., (SP)

SEQ 0097

J:GET RID OF JUNK

;;TEST FOR O

::sSUPPRESS THIS 0?
;sBR IF YES
;:DON'T SUPPRESS ANYMORE 0°'S
;sMAKE THIS DIGIT ASC!I
;sMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
J:FETCH ADDRESS OF NUMBER TO BE TYPED USING
;:STACK NOW CONTAINS ADDRESS OF NUMBER TO BE
::SET UP ADDRESS FOR TYPE COMMAND
::G0 TYPE THIS DIGIT
:¢ADDRESS OF CHARACTER TO BE PRINTED
;;COUNT BY 1
;;BR IF MORE T0 DO
;:BR IF DONE

;o INSURE LAST DIGIT ISN'T A BLANK

(SP)+,RS

(SP)
+ R4

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

[elolelele]

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

RO,=-(SP)
R1,-(SP)
4(SP) ,RO
-(RO)
(RO) ,RO
RO
PC ,R1

#STRPAD-, R

RO,R1
(R1) ,RO
(SP)+ ,R1
RO
(SP) ,~(SP)
4(SP) ,2(SP)

STRAP?

s« CALL=TYPE
;s CALL=TYPO(C
;s CALL=TYPOS
;;CALL=TYPON
;o CALL=TYPDS
;s CALL=RDCHR
. sCALL=RDLIN
;:;CALL=RDOCT
;s CALL=RDDEC

;GO DO THE LAST DIGIT

;;RESTORE
;sRESTORE
:;RESTORE
::SET THE

RS
R&4
R3
STACK FOR RETURNING

;JRETURN

;:STORAGE FOR ASCII DIGIT
:;TERMINATOR FOR

TYPE

ROUTINE

;;OCTAL DIGIT "OUNTER
;o ZERO FILL SWITCH
J:NUMBER OF DIGITS TO TYPE

;:SAVE RO
J:SAVE R
:JGET TRAP ADDRESS
;:BACKUP BY 2
;:GET RIGMT BYTE OF TRAP
::POSITION FOR INDEXING
J:FETCH THIS PROGRAM POINTER FOR PIC
:;POINT TO TABLE
:2R1 NOW POINTS TO ROUTINE

TRAP CALL WANTED

:sRO CONTAINS ADDRESS FOR RTS
::RESTORE R}

::60 TO ROUTINE
;:MOVE THE PC DOWN
;JMOVE THE PSW DOWN
;;RESTORE THE PSW
TRAP+1(104401)
TTY TYPEOUT ROUTINE
TRAP+2(104402)
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TRAP+3(104403)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TRAP+4(104404)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TRAP+5(104405)
TYPE DECIMAL NUMBER (WITH SIGN)
TRAP+6(104406)
TTY TYPEIN CHARACTER ROUTINE
TRAP+7(1064407)
TTY TYPEIN STRING ROUTINE
TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY
TRAP+11(104411)

READ A DECIMAL NUMBER FROM TTY

CVMEMAQ DIAGNCSTIC FOR NON-VOLA MACRO M1113
"RAP TABLE
3192 017520
3193 017522
3194 017524
%132 017644

22-JUN-81 15:42

00000C
000000

CSTRPG:
(HKSUM:

000000

SPINIT:

.WORD
WORD
‘BLKW
.WORD

g}'gg 017646 000000

ENDPR:

.WORD O

3199

000001

END

0
O
50
0

PAGE 43-4

SEQ 0098
\
N

—

FETADD
FETCH

HEAD

001762
001742

015526

000000
000040
000100
000140
000200
000240
000300
000340
PS
177776
177776
PSW
PWRDWN
015776
PWRUP
012072
PWRVE
(= 000024

PRO
PR1
PR2
PR3
PR&
PRS
PR6
PR7

P22BAD
Q1

]}
I
P
T
O
L

Y O T

T O T

€

015020
011034

X
N

nuwnun

—

)N
~
NN [ASIASIASIAS
vl
W
[gled ~n
—
~N
=N~
~N &
OO~
o
~nN & o

GEr gy , JH S GU SO QU U GU gEb
—

[ Yo T T

007536

PIRQ
= 177772
PIRQVE= 000240
PPOINT
016170
PRINT
014410

[%]

PAR7

T A 11

PARCNT
PARTRP
PARQ

015460
010224
016172
014652
007506

104405
104401
104402

[

OUTMEM

2204

NVME
S

2254
2256
2200

016230
01511
000034
016364
000014

T I

NOT4K

007237
016162
010152

000014
000060
000064

NOBLK
NONVOL

014364
015450
015357

T O

MMVEC =
MORE

000000
000007

MMR3

000004

000200
000160
000403
000320
000350
000300
= 000140
000330

000004
000010
000020
000040
000100
000200
000400
001000

T A

MAPPED

010346
010344

$FSINC= 000210

K IPAR6=
KPAR7=
K IPDRO=
K]PDR1=
KIPDRZ2=
K]PDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=
=
LF
L&4KST

=X000006
=%000007

100000

K ]PAR4=

KIPARS=

172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304
172306
172310
172312
172314
172316
000012
016200
006506
007713
000250
015100

040000

015233
ERR
ERROR = 104000
ERRVE (= 000004

K IPARO=
KIPAR1=
K]PARZ=
K]PAR3=

Q4
RDCHR
RDDEC
RDL IN
RDOCT

177777

BANKO
006404
BITO = 000001
BIT00 = 000001
BITO1 = 000002
BIT02 = 000004
BITO3 = 000010
BITO4 = 000020
B8IT0S = 000040
BITO6 = 000100
B8IT07 = 000200
BIT08 = 000400
81709 = 001000
BIT1
= 000002
B1T10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2
= 000004
BIT3 = 000010
BIT4
= 000020
BITS
= 000040
BIT6 = 000100
BIT7 = 000200
BI18 = 000400
BIT9 = 001000
BPTVEC= 000014
BYTECO= 000403
CHKSUM 017522
(ONTRO 016160
= 000015
CR
(RLF
= 000200
CRLF1
016155
014340
CRLF2
007477
CR1
CSTRPG 017520
ODISP = 177570
DIAGMC= 000000
= 006014
DIF1
000174
DISPRE
DSWR
= 1/7570
ECHO
010342
EDLOOP 014210
EMTVEC= 000030
007747
ENABLE
END
016166
ENCADD 016174
ENDPR
017646

006302
006174
002226
000011
006236
ILLADD
IOTVEC= 000020
K
006470

HELLO
HELP
HELPF
=
HT

SEQ 0099

002074
ADDCHK
ASSEMB= 000010

TABLE

SYMBOL

1_8
PAGE 43-5

22-JUN-81 15:42

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

020000

000400
000110

= 000004
$SI12¢E
001246
$S12€EX
001664

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113
SYMBOL TABLE
$SSK0 = 050005
$STOP
001426
$STUP = 177777
$SWR = 160000
$TAGLE= 177777
$TAGNU= 050002
$TEMP = 000350
$TkB
000402
$TKB1
16676
$TKS
000400
$TKS1
016674
$TN
= 000001
017650
000000
ERRORS DETECTED:

22-JUN-81 15:42

$TPB1
016702
STPFLG 016707
$TPS1
016700
S$STRAP
017426
$TRAP2 017462
$TRP = 000012
$TRPAD 017474
$7SK0 = 050011
$T7SK1 = 050005
$7SK2 = 050010
$7SKk3 = 050121
$TSK4 = 050061

. ABS.

000
001

VIRTUAL MEMORY USED:
60528 WORDS
( 237 PAGES)
DYNAMIC MEMORY:
21870 WORDS
( 84 PAGES)
ELAPSED TIME:
00:22:02

$TSK5 = 050037
$TTYIN 000642
$TYPDS 016714
$TYPE
016370
S$TYPEC 016552
S$TYPEX 016672
$TYPOC 017212
$STYPON 017226
$TYPOS 017166
$U
= 000403
$XOFF = 000023
$XON = 000021

PAGF 43-6

SEQ 0100
$$ARGC= 000000
$$8YTE= 000403
$$CASE= 000000
$$DST = 000000
$SELOC= 000402
$SERFL= 000000
$$FLAG= 000001
$$FROM= 000000
$SINH = 000402
$$LOC = 016352
$S$LOCN= 000000
$SREG = 177777

$SRETU= 000000
$SRTN1= 050000
$SRTNZ= 050001
$$SRC = 000000
$$76Sv= 000000
$$7651= 000000
$$7652= 000000
$$70 = 000000
$$T0TL= 000000
$$$TAG= 050000
SOFILL 017423