Digital PDFs

AC-S918A-MC-0GS

August 1981

101 pages

Original

44MB

view download

OCR Version

64MB

view download

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

OCR Text

MCVIL-DR

DAT“ EE&EEaé,

TION

DIAG

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

oct 1%L

AmEEEOn

CVMEMAD DIAGNOSTIC FOR NON=-VOLA MCRO M1113 22-JUN-87 15:42 PAGE g

USER DOCUMENTATION

.SBTTL USER DOCUMENTATION

.REM &

IDENTIFICATION

PRODUCT CODE:

;

PRODUCT NAME:
PRODUCT DATE:

MAINTAINER:
AUTHOR :

AC~S918A-MC
*

CVMEMAO NON-VOLATILE DATA RETENTION DIAGNOSTIC
.

5-AUGUST-81

STORAGE SYSTEMS DIAGNOSTICS
KENNETH LANGLAIS

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

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

THE USE
SUPPLIED

OR
BY

RELIABILITY OF
DIGITAL OR ITS

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

{

CVMEMAD DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

MrnnnNN—=

PRODUCT DESCRIPTION
PRODUCT USERS

)

PRODUCT GOALS

OowVnswN=

ASSUMPT IONS
PERFORMANCE GOALS
COMPATIBILITY GOALS
FAILSOFT GOALS
RESTRICTIONS
NON-GOAL
S

REQUIREMENTS

RUN TIME ENVIRONMENT REQUIREMENTS
DEVELOPMENT ENVIRONMENT REQUIREMENTS

Swrno—

ENGINEERING USAGE
MANUFACTURING USAGE
FIELD SERVICE USAGE

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

OO0y

L]
.
N —

W
=

WNW
O

FUNCTIONAL DESCRIPTION

CUSTOMER USAGE

aada

OVERVIEW OF DIAGNOSTIC PRODUCT

CONTENTS

TABLE OF

PAGE 4

PROGRAM FLOW FOR A MAPPED SYSTEM

SEQ 0002

CVMEMAOD DIAGNCSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

4.7
4.8
4.9

HELP FILE
ERROR INFORMATION
SCHEDULE

5.0

INTERFACES

6.0

BIBLIOGRAPHY

7.0

GLOSSARY

D
PAGE 5

SEQ 0003

[
|

| CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
J SER DOCUMENTATION

22-JUN-81 15:42

1.0

OVERVIEW OF DIAGNOSTIC PRODUCT

1.1

PRODUCT DESCRIPTION

PAGE 6

SEQ 0004

MEMORY DIAGNOSTICS WAS CONTRACTED BY TOEM MARKETING GROUP TO GIVE DIGITAL CUSTOMERS, FINAL ASSEMBLY AND TEST (F.A. AND T.), AND FIELD SER-

VICE A MEANS OF VERIFYING THAT THE NON-VOLATILE MEMORY AND

IT'S

BAT-

TERIES ARE OPERATIONAL.
THIS DIAGNOSTIC WILL TEST NON-VOLATILE MEMORY
IN ANY QBUS SYSTEM PROVIDING THE RESTRICTION CRITERIA SET FORTH IN
SECTION 2 OF THIS MANUAL IS ADHERED TO.

1.2

PRODUCT USERS

1.2.1

ENGINEERING USAGE =

DESIGN VERIFICATION OF BATTERY BACKUP CIRCUITRY

AVAILABLE FOR DMT USE

1.2.2

MANUFACTURING USAGE -

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

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 INSTALLATION
SERVICE CALLS:
FAILURE ISOLATION, REPAIR AND VERIFICATION
VERIFICATION OF ECO INSTALLATION

1.2.4

CUSTOMER USAGE -

I'TQE,A{XJESOF VERIFYING DATA RETENTION OF NON-VOLATILE MEMORY AND IT'S BAT=-

‘
| CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
(USER DOCUMENTATION

22-JUN-81 15:42

F
PAGE 7

SEQ 0005

2.0

PRODUCT GOALS

2.1

ASSUMPTIONS

IT WILL BE ASSUMED THAT PRIOR TO EXECUTING THIS DIAGNOSTIC ALL

:lR){IATE

APPRO-

CPU, 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 CPU 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, Wé6-0UT)
THE OPERATOR OF THIS DIAGNOSTIC IS ASSUMED TO HAVE THE MEANS OF
VERIFYING
THAT THE MEMORY MAP THIS DIAGNOSTIC WILL PRODUCE CORRECTLY CONFIGURES THE SYSTEM UNDER TEST.

2.2

PERFORMANCE GOALS

THE GOAL OF

THIS DIAGNOSTIC IS TO DETERMINE THE DAT,. RETENTION OF

ALL

NON-VOLATILE MEMORY CONTAINED 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

2.4

TRAP LOCATIONS HAVE READ/WRITE ACCESS.

FAILSOFT GOALS

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

IGNORED.

DOWN

—

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

gusen 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 0 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

THAT

SUPPPORT

POWER=-DOWN

NON-GOALS

THIS DIAGNOSTIC'S ONLY PURPOSE IS TO CHECK THAT NON-VOLATILE IS WORK%’EVEUQNGD THAT THE BATTERIES ARE OK.
THIS DIAGNOSTIC PERFORMS NO OTHER
= NOT APT COMPATIBLE

- NOT IN THE SCOPE OF THIS PROJECT TO MODIFY THIS PROGRAM TO MEET UNIQUE NEEDS OF MANUFACTURING.

3.0

REQUIREMENTS

3.1

RUN TIME ENVIRONMENT REQUIREMENTS

QBUS CPU
CONSOLE TERMINAL
AT LEAST 1 OF ANY OF

THE FOLLOWING MEMORY MODULES:
MCV11 CMOS RAM MEMORY MODULES WITH BATTERY BACKUP
MSV11 MOS RAM MEMORY WITH BATTERY BACKUP
MMV11 CORE MEMORY MODULES

XXDP+ LOADING MEDIA

3.2

DEVELOPMENT ENVIRONMENT REQUIREMENTS

FOR PROGRAM DEVELOPMENT DIAGNOSTIC ENGINEERING WILL BE ABLE TO USE OUR

OWN EQUIPMENT, BUT FOR INTIAL DEBUG, IT IS ESSENTIAL THAT WE HAVE ACgsgSSE?T?mPROPERLY EQUIPPED RUN TIME SYSTEM AS DESCRIBED IN THE PREVITHIS DIAGNOSTIC WILL BE VERIFIED ON A VARITY OF Q-BUS SYSTEMS.

' CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

;USER DOCUMENTAT ION

22-JUN-81 15:42

PAGE 9

SEQ 0007

|
|

4.0

FUNCTIONAL DESCRIPTION

THE PURPOSE 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
THE

OPERATOR

SPACE

(10-376),

TELLING

POWERDOWN THE SYSTEM, POWER IT BACK UP, RESTART THE

DIAGNOSTIC, VERIFY THE CHECKSUMS, CHECK ENTIRE MEMORY FOR THE BACKGROUND 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 INSTALLER IN ORDER TO DETERMINE
THAT PROPER DATA RETENTION EXISTS.

4.1

MENU QUESTIONS

THE DIAGNOSTIC WILL PROMPT THE OPERATOR TO ANSWER THE FOLLOWING QUESTIONS A <CR> AS AN ANSWER TO THE FOLLOWING QUESTIONS WILL CAUSE THE
g(FJ;J[E)HI(N STATED DIRECTLY TO THE LEFT OF THE QUESTION MARK
TO BE
IN
1.

DO YOU WANT A HELP FILE

(L) N?

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

FILE

IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y?
A 'Y'' OR <CR> ANSWER WILL INHIBIT THE ASKING OF QUESTION 3.

WHAT IS THE STARTING ADDRESS OF ONE OF THE NON-VOLATILE MEMORY MODULES (0)

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
’F;(EJkli(EJgING ERROR MESSAGE WILL BE PRINTED AND QUESTION 3 IS RE-

4K ADDRESS OR NUMBER OF 4K BANKS ARE OUT OF ADDRESS RANGE
THIS SYSTEM.

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JiN-81 15:42

PAGE 10

1
SEQ 0008

NOTE

* IF THE ADDRESS TYPED IN

REALLY

VOLATILE

THEN

MEMORY

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

DO YOU WANT THE DIAGNOSTIC TO VALIDATE
SYSTEM (L) Y?

ALL

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 IS THE STARTING ADDRESS OF THE NON-VOLATILE MEMORY UNDER
TEST (0) 0?
THIS ADDRESS MAY OR MAY NOT BE THE SAME AS THE ADDRESS

TYPED
IN QUESTION 3.
IF 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 '*Y"'

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 <CR> ANSWER WILL MEAN TEST
ALL THE BANKS FROM THE START ADDRESS TO END OF MEMORY.

4.2

POWER FAIL

BEFORE THIS DIAGNOSTIC INSTRUCTS THE OPERATOR TO POWER DOWN THE
SYSTEM.
THE
DIAGNOSTIC WILL PRODUCE A RESTART HELP FILE ON THE CONSOLE
TERMINAL.

THIS HELP FILE IS 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 SYSTEMS.

THE OPERATOR WILL THEN BE INSTRUCTED TO POWER DOWN THE SYSTEM FOR NO
II.ESS
THAN 2 MINUTES AND NO MORE THAN 100 HOURS.
THE ACTUAL MESSAGE

PLEASE POWER DOWN THIS SYSTEM.

AFTER 2 MINUTES BUT NO LONGER THAN 100

HOURS, EXECUTE THE RESTART HELP FILE.

pa—

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

4.3

22-JUN-81 15:42

J
PAGE 11

SEQ 0009

POWER UP

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 C(ONTAIN VOLATILE AND
NON=-VOLATILE MEMORY.

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

START ADR.

END ADR.

MEMORY TYPE

0
40000

37776
157776

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 ‘10
OR MORE'' WOULD BE PRINTED UNDER PARITY ERRORS.

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.

TILE LOCATIONS.

THE MEMORY THE PROGRAM IS RESIDENT IN

HAS

VOLA-

THE PROGRAM WILL CONTINUE BUT MAY NOT OPERATE PROPERLY.

TRAP VECTOR CHECKSUM.
ANOTHER CHECKSUM 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 :

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

22-JUN-81 15:42

USER DOCUMENTATION

TRAP

LOCATIONS

(ADDRESS

NON=VOLATILE MEMORY.

4.5

PAGE 11-1

0-376)

HAVE

SEQ 0010

(HECK

SUM

ERROR

PROGRAM FLOW FOR AN UNMAPPED SYSTEM

§.5.1

THE FOLLOWING IS AN EXAMPLE OF AN UN-MAPPED SYSTEM WITH NON-VOLATILE
MEMORY IN THE LOWEST PART OF MAIN MEMORY. AFTER LOADING THE DIAGNOS'T"}'C‘ALTHE FOLLOWING SEQUENCY OF EVENTS WILL APPEAR ON THE CONSOLE
TER-

CVMEMAQ DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES.

&%{S AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT)
DO YOU WANT A HELP FILE

(L) N?

WITH

28K

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

[()(L))Y(vl_; U?NT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS

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:
a777707/506<CR>

PLEASE STAND BY!
PLEASE POWER DOWN THIS SYSTEM.
THAN 100 HOURS.

AFTER 2

MINUTES

EXECUTE THE RESTART HELP FILE.

BUT

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

;%TESYSIEH.

THE

LONGER

POWER

FOLLOWING IS A TYPICAL MEMORY MAP FOR AN UN-MAPPED

S—

—————

'CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1713
USER DOCUMENTATION

22-JUN-81 15:42

L_1

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.

CVMEMAQ 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, THE FOLLOWING SEQUENCE
APPEAR ON THE CONSOLE TERMINAL.

EVENTS

WILL

CVMEMAQO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES

m&’xls AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT)
DO YOU WANT A HELP FILE (L) N?

WITH

24K

IS THERE NON VOLATILE MEMORY AT ADDRESS 0 (L) Y?
WHAT IS THE STARTING ADDRESS OF ONE OF

NON-YOLATILE

MEMORY

?E)Y(Yl‘{ U¢NT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS

SYSTEM

MODULES L (0) 0?

20000

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:
37/ XXXXXX 20176<CR>
PLEASE STAND BY!

PLEASE POWER DOWN THIS SYSTEM.
THAN 100 HR.

AFTER 2

MINUTES

EXECUTE THE RESTART HELP FILE.

BUT

LONGER

THE OPERATOR WILL NOW POWERDOWN, 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 AN UN-MAPPED SYSTEM.

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

PAGE 14

SEQ 0013

MEMORY MAP

START ADR.

END ADR.

MEMORY TYPE

20000
100000

77776
32776

NON=VOLATILE MEMORY
VOLATILE MEMORY

17776

VOLATILE MEMORY

WORD ERROR

PARITY ERROR

THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST.

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

PAGE 15

EXECUTING

USER DOCUMENTATION

‘-S.s

22-JUN-81 15:42

SEQ 0014

THE FOLLOWING

UN-MAPPED

SYSTEM

THAT

EXAMPLE

(C(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 PRCSRAM RESIDE IN THE
OTHER NON-VOLATILE ARRAY.
EACH ARRAY HAS 4K OF MEMORY.

CVMEMAQ DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES

T*HINSRF AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT)
DO YOU WANT A HELP FILE

(L) N?

WITH

28K

IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y?
WHAT IS THE STARTING ADDRESS OF ONE OF

NON-VOLATILE

MEMORY

l()(LJ)Y%J UaNT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS

SYSTEM

WHAT IS THE STARTING ADDRESS OF
TEST (0) 07
O

UNDER

MODULES (0) 0?

THE

20000

THE

NON-VALATILE

MEMORY

HOW MANY 4K BANKS OF MEMORY ARE TO BE TESTED (D) 0?

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:
37/ XXXXXX 20204<CR>
PLEASE STAND BY!

PLEASE POWER DOWN THIS SYSTEM,
THAN 100 HR.

AFTER 2

MINUTES

EXECUTE THE RESTART HELP FILE.

THE OPERATOR WILL NOW POWER DOWN, WAIT 2 MINUTES,

THE

SYSTEM.

THE

OPERATOR

AFTER COMPLETION OF THE HELP FILE
MAP FOR THAT PART OF MEMORY ONLY.

BUT

LONGER

AND RETURN POWER

MUST FOLLOW THE RESTART HELP FILE.

THE DIAGNOSTIC WILL PRINT

MEMORY

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

o
PAGE 16

SEQ 0015

MEMORY MAP
START ADR.
0

END ADR.
17776

MEMORY TYPE
WORD ERROR
NON=-VOLATILE MEMORY
0

THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST.

PARITY ERROR
0

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, THE FOLLOWING
WILL APPEAR ON THE CONSOLE 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?

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

SYSTEM

RESTART HELP FILE

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

8772344/ XXXXXX 0<CR>
8772356/ XXXXXX
3772304/ XXXXXX
772316/ XXXXXX
777572/ XXXXXX

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

SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION AND TYPE:
g;?/xxxxxx 40510<CR>

PLEASE STAND BY!

PLEASE POWER DOWN THIS SYSTEM.
THAN 100 HOURS.

AFTER 2

MINUTES

EXECUTE THE RESTART HELP FILE.

BUT

LONGER

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

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 TO
THE
SYSTEM.,
THE FOLLOWING IS A TYPICAL MEMORY MAP FOR A MAPPED SYS=TEM.

MEMORY MAP

START ADR.
0
40000

END_ADR.
37776
757776

MEMORY TYPE
WORD ERROR
NON-VOLATILE MEMORY
0
VOLATILE MEMORY

THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST.

PARITY ERROR
0

CVMEMAO 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, THE FOLLOWING SEQUENCE
APPEAR IN THE CONSOLE TERMINAL.

EVENTS

WILL

CVMEAO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES
THIS IS A MAPPED SYSTEM (MEMORY MANAGEMENT) WITH 2043K OF MEMORY.
DO YOU WANT A HELP FILE (L) N?

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

WHAT IS THE STARTING ADDRESS OF THE NON-VOLATILE
(0) 02
1000000

MEMORY

MODULES

??)Y% UCNT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS

SYSTEM

RESTART HELP FILE

¥$&ENABLE/HALT FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER,

8772344/ XXXXXX
772356/ XXXXXX
8772304/ XXXXXX
772316/ XXXXXX
777572/ XXXXXX
772516/ XXXXXX

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

SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION AND TYPE:

g;?/xxxxxx 41034<CR>
PLEASE STAND BY!

PLEASE POWER DOWN THIS SYSTEM.
HR.

AFTER 2 MINUTES BUT NO MORE

EXECUTE 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

2
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

————

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

4.7

22-JUN-81

15:42

PAGE 21

SEQ 0020

HELP FILE
FUNCTIONAL DESCRIPTION

THE PURPOSE OF

THIS PROGRAM IS TO 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 THIS
PROGRAM. THE FOLLOWING IS A BRIEF DISCRIPTION OF THE PROGRAM FLOW:
1. ASK THE OPERATOR A SERIES OF QUESTIONS

(MENU)

2. RELOCATE PROGRAM TO NON-VOLATILE AREA (IF BANK 0 IS VOLATILE)
3. GENERATE AND PRINT A RESTART HELP FILE

4. WRITE A BACKGROUND PATTERN (125252) THROUGHOUT MEMORY
5. DO A CHECKSUM OF THE PROGRAM
6. DO A CHECKSUM OF THE TRAP VECTOR SPACE (ADDRESS 0-376)
7. TELL THE OPERATOR TO POWERDOWN THE SYSTEM
THE OPERATOR WILL NOW FOLLOW THE RESTART HELP FILE

ir?é#fifs aML)P‘IOO HOURS.
1.

SOME

THE FOLLOWING IS THE FLOW OF

TIME BETWEEN

THE PROGRAM

DO ANOTHER CHECKSUM OF THE PROGRAM AND CHECK IT AGAINST THE
ONE DONE BEFORE POWER DOWN.

2. DO ANOTHER CHECKSUM OF THE TRAP VECTOR SPACE AND CHECK IT AGAINST
THE ONE DONE BEFORE POWER DOWN. (NO TRAP CHECKSUM ERROR WILL BE
REPORTED UNLESS BANK 0 WAS DETERMINED NON-VOLATILE)
3. CHECK ENTIRE MEMORY FOR THE BACKGROUND PATTERN (125252)

?zl?IEAS'YfS’f‘E,H" MAP OF ALL VOLATILE AND NON VOLATIiLE MEMORY

THE OPERATOR MUST COMPARE

THIS MAP WITH THE ONE LEFT BY THE

INSTALLER IN ORDER TO DETERMINE THAT PROPER DATA RETENTION EXISTS.
PREREQUISITE

CZKMA OR VMSA MUST SUCCESSFULLY COMPLETE

2. OPERATOR MUST KNOW STARTING ADDRESSES OF ALL VOLATILE AND
NON-VOLATILE MEMORY IN THE SYSTEM

3. 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 CPU DOES NOT HAVE AN ENABLE/HALT SWITCH,

CHECK THAT THE

CPU IS STRAPPED TO HALT WHEN POWERED UP. OTHERWISE THE
DIAGNOSTIC WILL NOT OPERATE PROPERLY.

CVMEMAD DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE &2 2

SEQ 0021

USER DOCUMENTATION

4.8

ERROR INFORMATION

IN THE EVENT THAT THE DIAGNOSTIC DID NOT CONTINUE

FILE

WAS

COMPLETED,

THE

WHEN

RESTART

HELP

FOLLOWING EXAMPLES ARE OPERATOR ERROR THAT

COULD CAUSE THE DIAGNOSTIC NOT TO RESTART.
1.

STARTING ADDRESS WAS VOLATILE MEMORY

gg?(fl WHEN SETTING UP RESTART REGISTERS

3.
4.

WHEN

ENABLE/HALT FRONT PANEL SWITCH SET TO ENABLE

RETURNED.

WHEN

CONSOLE
POWER

C(PU WITHOUT ENABLE/HALT FRONT PANEL WAS NOT STRAPPED TO
WHEN POWERED UP (W5-IN, W6-0UT)

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

4.9

USING

HALT

RETENTION OF
CHECK THE BATTER-

SCHEDULE

THE PROGRAM IS EXPECTED TO TAKE 8 WEEKS FROM DESIGN THROUGH DEBUG AT A

COST OF

11K.

THE COST AND TIME WILL FLUCTUATE
TIONALITY OF THIS PROGRAM.

5.0

THERE ARE ANY CHANGES

TO THE

INTERFACE

THE DIAGNOSTIC WILL BE DESIGNED TO CONFORM WITH THE
FACES.

SYSMAC

XXDP+

FOLLOWING

FUNC-

CVMEMAOQ DIAGNOSTIC FOR NON=-VOLA MACRO M1113 22-JUN-81 15:42 PAGE %3

2
SEQ 0022

USER DOCUMENTATION

6.0

BIBLIOGRAPHY

PIGC FOLLOWING LISTS THE LITERATURE USED IN THE DESIGN OF

7.0

SYSMAC.MAN

SPMA(CJ.DOC

XXDPPLUS.DOC

GLOSSARY

THIS DIAGNOS-

CVMEMAQ DIAGNOSTIC FOR NON~-VOLA MACRO M1113

USER DOCUMENTATION

000000
889

890
891

892
893

22-JUN-81 15:42

PAGE 24

2
SEQ 0023

.ENABLE ABS

.DSABLE GBL

.LIST
LMACRO
"SBTTL

SEQ,3IN,CND

.S$SIZE MMERR
ROUTINE TO SIZE MEMORY

894

STARS

896
897
898
899
900
901
902
903
904
905
906

i
JSR
PC,$SIZE
e
RE TURN
"IF DF KIPARO
s*SLSTAD WILL CONTAIN:
I
WITH KT11 OPTION
== LAST VIRTUAL ADDRESS OF THE LAST BANK
e
WITHOUT KT11 OPTION
-= LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
‘#$LSTBK WILL CONTAIN THE LAST BANK AS A SAF
:*$KT11 IS THE MEMORY MANAGEMENT KEY
~anor o DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE THE CALL
«BIT1S = 0 DON'T HAVE MEMORY MANAGEMENT OPTION

895

s*CALL:

.;"

DETERMINED BY ROUTINE

3?3

;sa.sm WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

911

$SIZE:

g}g
914
915
g}g
918
919
920
921
922
923
924
925
926
927
928
929
930
931
9
93
934
935
936

937

938

939
940
91
9%
Q6

MOV

RO,=(SP)

::SAVE RO ON THE STACK

MOV
R1.=(SP)
*:SAVE R1 ON THE STACK
MOV
R2,=(SP)
::SAVE R2 ON THE STACK
MOV
R3.=(SP)
::SAVE R3 ON THE STACK
e
v
R&,=(SP)
*:SAVE R4 ON THE STACK
MOV
ar114,-(SP)
::SAVE MEMORY ERROR VECTOR PS & PC
MOV
ar16,-(SP)
MOV
#116, 4114
: :1GNORE PARITY ERRORS WHILE SIZING
MOV
#RTI,a¥116
MOV
NERRVEC,=(SP) ::SAVE PRESENT ERROR VECTOR PS & PC
MOV
VERRVEC+2,~(SP
MOV
SP.RO
SAVE THE STACK POINTER
;:SET THE ERRVEC PS TO THE messu?
GETPRI @WERRVEC+2
JIFT
MOV
#3776.R1
:;SETUP_ADDRESS
ISTB
(PC)+
“USE MEMORY MANAGEMENT?
$KT11: .WORD 200
..ssr TO USE MEMORY MANAGEMENT
BPL
$CORE
:BR_IF NO
MOV
#SKTNEX,@#ERRVEC :;SET FOR TIMEOUT
ST
WSRO
:iKT11 ARE YOU THERE?
8IS
#100000,$KT11
YES=-SET KT11 KEY
MOV
noos SVERRVEC --SET FOR TIMEOUT
ST
516
$:0-BUS MAP ARE YOU THERE?
MOV

|
1008:

MOv

S:TURN ON MAP INDICATOR

0176200.:5709 SEND OF 2M OF MEMORY

BR
MOV

SMAPRG
#6200,3#8STOP

1360 SET UP MAP necxsmg
- :COMPARISON VALUE FOR 18 BIT MAPPING

CLR

INSMAP

S:MAKE SURE MAP INDICATOR TURNED OFF

(SP)+. (SP)+

SNOMAP

::CLEAN OFF suc

8x001

8k001

8k001
8k001
8k001
BK001
BKk0O1
8x001
Bk001

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 54-?

USER DOCUMENTAT
ION

944
945
%6
947
948
949
950
951
952
953

954
955
956
957
958
959

SMAP:
.WORD
$STOP: .WORD
$MAPRG:
1008:
SNOMAP:
.IF NB MMERR
MOV
MOV
.ENDC

1$:

960
91

962
963
964
965
966
967
968
969
970
971
972

973
974

28:
33:

4$:

-(SP)

MOV
CLR

nmoo
-(R2)
-(R2)

:INITIALIZE FOR ‘PAR'’ LOADING

..ADDRESS OF FIRST ‘PAR’
.
$:LOAD EIGHT 'PAR.'S'' AND EIGHT 'PDR.'S"’
::PDR
= &K, UP, READ/WR]TE
::LOAD 'PAR'’
..umme FOR NEXT 'P
$LOOP UNTIL ALL excm me LOADED

::SETUP
KIPAR7 FOR [/0
:iSETUP KIPARG FOR TESTING

#2S QWERRVEC
::CATCH TIMEOUT IF NO SR3
#20.34SR3
:SENABLE 22 BIT MODE AND UNIBUS MAP
3s
STHIS PDP=11 HAS A SR3 REGISTER
(SP)+,(SP)+
..CLEAN OFF THE STACK--NO SR3
WSRO
*TURN ON MEMORY MANAGEMENT
#SKTOUT,a#ERRVEC ..ser FOR TIME OUT
a#sMAP
::1S MAP THERE?
(s
*NO-SKIP
#SMMOUT ,a¥114 ..ssr UP MEMORY ERROR VECTOR
SVERRVEC+2, #4116 :;LOCK OUT INTERRUPTS
8K001

ADD

#40, (R2)

..ms A 1K STEP

4
(R2) ,R2
arsrRO
assMAP
ssxz

..no-mv IT
*:GET LAST BANK+1
S:TURN OFF MEMORY MANAGEMENT
::1S MAP THERE?
: INO=SKIP
S:TURN OFF MAP

984
985
986
987
988
989
990
991
99,
9
99
995
339
998
999

BIT
BNE
RT]
SKTNEX: BIC
$CORE: MOV
CLR
18:
ADD
ADD
ST
P
BNE
$CROUT: SUB
sfigex: suB
MOV
MOV

SMMOUT: MOV
MOV

18:

mpmo R2
#D
077466
=40(R2)
(SP), (R2)+
czoo (SP)

MOV
MOV
BR
P
INC
MOV
TSTB
B8PL
MOV
MOV

BHI
$KTOUT: MOV
CLR
TSTB
BPL
&n

1000

;=200 IF MAP PRESENT
8k001
iFILLED WITH APPROPRIATE COMPARISON VALUE

AMMERR, @#MMVEC ;:SET IN CASE OF ERROR
#340, IFMMVEC+2

CLR

MOV
MOV
MOV
MOV
ADD
S08

975
976
977
978
979
g?

982
983

O
O

SEQ 0024

143776

arsSTOP, (R2)

wfim
R
RG, 177744

8K001
8k001
Bk001

*TRAP ON NON-EX-MEM

SLAST ONE?

::SAVE
MEMORY ERROR REGISTER
S:CLEAR BITS IN REGISTER

#1.Ré
:IMEMORY TIMEOUT?
skTour
$iYES=EXIT
S:MUST BE PARITY ERROR-IGNORE IT
#100000,8KT11
::KT11 NON=EXISTENT
#SCROUT .@#ERRVEC :;SET FOR TIMEOUT
R2
::SET UP BANK
#4000, R1
..INCREIENY BY 1K
#40 RS
..1xSTEP
(R1J
S:TRAP ON TIME OUT
n 77776 .R1
$:LAST ONE
18
*INO=-=TRY AGAIN
uooo R1
0.R2
: :DROP BACK
SVERRVEC
;:SET FOR TIMEOUT
o
.R1
S:FIRST ADDRESS
(R1)

8K001

S:TEST THIS ADDRESS

8K001
8k001
8k001

8001
8001

8k001
8001
Bk001

8K001

CVMEMAQ DIAGNOSTIC
FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 24-5
USER DOCUMENTAT
ION
M

1001

100
100

1004
1005
1006
1007
1008
1009
}8}?
1015
101
1014
1015
1016
1017
1018
1019

2%:

JIFTF

}85?

smw:

1022
1023
1024

$LSTBK:
.ENDC
CENDM

(R1)+

SEQ 0025

::STEP TO NEXT ADDRESS

BR
SuB

1%
#2.R1

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO, SP
;;RESTORE THE STACK
(SP)+,a#ERRVEC+2 : ;RESTORE ERROR VECTOR
(SP)+.#ERRVEC
(SP)+,a#116
: ;RESTORE MEMORY ERROR VECTOR
(SP)+,an14
R1,SLSTAD
: ;LAST ADDRESS
R2,$LSTBK
: ;LAST BANK
(SP)+,Ré
S:RESTORE Ré&
(SP)+.R3
*RESTORE R3
(SP)+.R2
*:RESTORE R2
(SP)+,R1
:;RESTORE R1
(SP)+.RO
::RESTORE RO

LWORD

;;CONTAINS THE LAST ADDRESS

;:CONTAINS THE LAST BANK

RTS

.WORD
.$SIZE

2:TRY ANOTHER
; ;DROP BACK

8K001

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

22-JUN-81 15:42

N 2
PAGE 25

.MACRO
.STYPE
SBTTL
TYPE ROUTINE
STAR
'RWTI'& TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
:*THE ROUTINE WILL

:'M)TE1:

INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

S«NOTE2:

: *NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

CALL

-1) USING A TRAP INSTRUCTION
-on

;

TYPE

ME SADR

$TYPE:

TSTB

18:

BPL
HALT
BR
MOV
MOV

JIF DF “MAIL
CMPB

.ENDC

28:

60$:
3s:
48:

58:

68:

78:

..IS THERE A TERMINAL?

18
3s
RO, =(SP)
a2(sP) ,RO

:BR IF YES

..HALT HERE IF NO TERMINAL
SAVE RO

..GET ADDRESS OF ASCIZ STRING

MOVB

WAPTENV,SENV

(RO)+,=(SP)

#HT,(SP)

:;PUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK
: TRESTORE RO
: JADJUST RETURN PC
s:;RET:RETURN
: .BRANCH IF <HT>

CMPB

#CRLF,(SP)

; ;BRANCH IF NOT <CRLF>

(SP)+

::POP

BNE

MOV
3‘1’?

(SP)+,RO
#2,(SP)

CMPB

BEQ

BNE

208:

STPFLGI

;;RUNNING IN APT MODE
22NO,GO CHECK FOR APT CONSOLE
BITB
AAPTSPOOL ,SENVM 2 :SPOOL MESSAGE TO APT
BEQ
628
J2NO,GO CHECK FOR CONSOLE
MOV
RO,61$
2:SETUP MESSAGE ADDRESS FOR APT
JSR
PC.SATY3
2:SPOOL MESSAGE TO APT
LWORD
O
J JMESSAGE ADDRESS
BITB
AAPTCSUP,SENVM ;;APT CONSOLE SUPPRESSED
BNE
608
J:YES,SKIP TYPE OUT

BNE

618:
628:

;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

i
*

,MESADR

(SP)+

(13

PC,=(SP)
MOV
ADD
#SCRLF1=. , (SP)
MOV
(SP)+,208
TYPE
.WORD SCRLF1

..CLEAR CHARACTER COUNT
GE NEXT CHARACTER

SFILLC,(SP)+

SCHARCNT

JSR

PC.STYPEC

(MP8

BNE

MOV
DECB

s:TYPE A CR AND LF

CLRB

B8R

<CR><LF> EQUIV

L,~(SP)
1(SP)

TYPE THIS CHARACTER
F#LLERCHARS.?
1 T HK f(l

w GO GE
::GET
# OF ILLER CHARS. NEEDED
s:AND THE NULL CHAR,
::DOES A NULL NEED TO BE TYPED?
.

CVMEMAO DIAGNOST'C FOR NON=VOLA MACRO M1113

8 3
PAGE 25-1

22-JUN-81 15:42

USER DOCUMENTATION

1083

BLT

1085

DECB

$CHARCNT

1084

;. LOOP

,(SP)

:;REPLACE TAB WITH SPACE

BITB

#7.SCHARCNT

JsBRANCH IF NOT AT
;. TAB STOP
s :sPOP SPACE OFF STACK
J2GET NEXT CHARACTER
;sCHAR IN KYBD BUFFER?
;:BR IF NOT
;:GET CHAR
;:STRIP EXTRANEOUS BITS

TST
BR

$TYPEC: TSTB

MOV
BIC

1018:

CMPB
BNE
TSTB

BPL

MOVB

BIC
102%:

108:

1%:

PC,S$TYPEC

(SP)+

2%
as$TKS1
108

a3TKB1,=(SP)

#177600, (SP)
WSXOFF, (SP)
102%
asTKs1

1018

aSTKB1,

)

T
T
T
T
TTTT T

b—
g b

TT T TTTTTTTTTTTTTTMTTMT hngl

e
e
i
e R
e
e e

g
I
I

g b
bt

T
I

g b

L
.

By bmg
By Bt B
g b

;:GET CHAR
J:STRIP IT

+
(SP)

JeFIX STACK

2(SP) ,asTPB1
#CR,2(SP)
1$
$CHARCNT
STYPEX
#LF ,2(SP)
$TYPEX

;:LOAD CHAR TO BE TYPED INTO DATA REG.
:21S CHARACTER A CARRIAGE RETURN?
;JBRANCH IF NO
::Z’E(?;-CLEAR CHARACTER COUNT

:21S CHARACTER A LINE FEED?
;2BRANCH IF YES
.
:sCOUNT THE CHARACTER
2 sCHARACTER COUNT STORAGE

:;CODE FOR HORIZONTAL TAB

.WORD

177560

;:TTY KDB STATUS

.WORD

177562

::TTY KBD BUFFER

$XON,SXON = 21
SXOFF ,$XOFF = 23
LF,LF= 1
CR.CR= 1
CRLF,CRLF=
200

NDF $TPST $TPS1:

;sBR IF NOT

JsWAIT UNTIL PRINTER IS READY

asTPS1
10 $

£Q .-$TkS1,$TKS1:
NDF " $TkB1,$TKB1:
EQ .-$TkBi,$TKB1:

;:WAIT FOR CHAR

TST

BPL
MOVB
CMP8
BNE
CLRB
BR
CMPB
BEQ

;sWAS CHAR XOFF

ssWAS IT XON?

TSTB

;:BR IF NOT

WSXON, ($P)

101$

;TYPE A SPACE

CMB

BNt

NDF
NDF
NDF
NDF
NDF

(SP)

#177600, (SP)

(PC)+
INCB
$CHARCNT: .WORD 0
$TYPEX: RTS
PC
JAIF NDF HT, HT= 11
NDF $TKS1,$TKS1:

+:DO NOT COUNT AS A COUNT

BNE

g bt

Y
D

e
D
D d
W

1360 TYPE A NULL

MOVB

JSR

9%:

::BR IF NO=-GO POP THE NULL OFF OF STACK

PC,STYPEC

HOR]ZONTAL TAB PROCESSOR

8s:

YOI YO
> i D e e

Sy
D d

Y
p————
) e D
) e

P
P
P
D
e ) e e e -

—

BRI LB PR VR R RUN NS oo Ic hr v =3385358032338383R2833%8
2o 3BIRERIVSE

087

1086

JSR

SEQ 0027 "

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

.WORD

177564

;:TTY PRINTER STATUS REG. ADDRESS

.WORD

177566

;:TTY PRINTER BUFFER REG. ADDRESS

EQ .-SNULL,SNULL:
.BYTE
NDF SFILLS.SFILLS:
EQ .~SFILLS,SFILLS:

;;CONTAINS NULL CHARACTER FOR FILLS

.BYTE

:;CONTAINS # OF FILLER CHARACTERS RE |

EQ .~SFILLC,S$FILLC:
NDF “S$TPFLGT.STPFLGI:

.BYTE

;s INSERT FILL CHARS. AFTER A "LINE F |

EQ .-$TPsi,$TPS1:

NDF “$TPB1,$TPB1:
EQ .-$TPB1,$TPB1:
NDF ~SNULL
, SNULL :

NDF SFILLC,$FILLC:

CVMEMAQO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 55-3

USER DOCUMENTAT
ION
1140
1141

J1IF EQ .=STPFLG1,$TPFLGI:
-11F NDF SQUES,SQUES:

1142

J1IF EQ .-SQUES,S$QUES:

1144

"1IF EQ .~SCRLF1,SCRLF1:

1143
1145

“1IF NDF $CRLF1.$CRLF1:
J1IF NDF SLF1,8LF1:

1146

J1IF EQ .~SLF1,$LF1:

1148

"ENDM

1147

J1IF NE 18.,

.STYPE

.EVEN

.ASCII

SEQ 0028
BYTE

‘'TM
ASCIT

ASCIZ

12>

;:"'TERMINAL AVAILABLE'' FLAG (BIT<07>

: ;QUESTION MARK
<15>

: ;CARRAIGE RETURN
: :LINEFEED

USER DOCUMENTATION

22-JUN-81 15:42

D 3
PAGE 26

SEQ 0029

1150
ug%

.MACRO
5%?

1153

:*THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT

“gz

'%Hfos---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

1154

.STYPOCT
BINARY TO OCTAL (ASCII) AND TYPE

“«OCTAL (ASCII) NUMBER AND TYPE IT
. %

1157

MOV

1159

oTM

.BYTE

1158

1160

TYPOS

1161

BYTE

Hg%

NUM,=(SP)
N

::NUMBER TO BE TYPED

;sCALL FOR TYPEOUT

..N-1 TO 6 FOR NUMBER OF DIGITS TO TYPE

OR 0

:1=TYPE LEADING ZEROS

..0 SUPPRESS LEADING ZEROS

- %

1164

:*$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

1167
Hgg

%
iw

1165
1166

“«$TYPOS OR $TYPOC
:'CALL:

MOV
TYPON

- %

NUM, = (SP)

;:NUMBER TO BE TYPED
::CALL FOR TYPEOUT

H;?

:'%;{Poc--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

1172
1173

I*
2%

1174

1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189

1190
119

1192
1193
1194
1195
1196
1197
1198
1199
1200
1201

MOV
TYPOC

$TYPOS: MOV

MOVB
MOVB
ADD
BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB

MOV

1%:

2%:

3%:

1202
1203

1204
1205
1206

4%:

CLR

NUM,-(SP)
a(SP) ,-(SP)

1(SP) ,SOFILL
(SP)+,$SOMODE+1
#2,(SP)
S$TYPON
#1,80FILL
#6,SOMODE +1
#5,80CNT
R3,-(SP)
R4 ,-(SP)
RS,=(SP)
$OMODE +1,Ré4
R4
#6.R4
R4, SOMODE
$SOFILL RS

12(SP),‘RS

ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC

RS
33
3]
RS
RS
RS.R3
R3
$OMODE
7%
#177770,R3

TST
BEQ
INC
BIS

R4
b} 1
R4
#'0,R3

::NUMBER TO BE TYPED
;:CALL FOR TYPEOUT
;:PICKUP THE MODE

::LOAD ZERO FILL SWITCH
;.;NUMBER OF DIGITS TO TYPE
:sADJUST RETURN ADDRESS
;2SET THE ZERO FILL SWITCH
:2SET FOR SIX(6) DIGITS
siSET YHE ITERATION COUNT
;:SAVE
R3
::SAVE R4
::SAVE RS
:3GET THE NUMBER OF DIGITS TO TYPE
::SUBTRACT IT FOR MAX. ALLOWED
:2SAVE IT FOR USE
;2GET THE ZERO FILL SWITCH

::PICKUP THE INPUT NUMBER
:;CLEAR THE OUTPUT WORD

:sROTATE MSB INTO 'C''
;.60 DO MSB
:;FORM THIS DIGIT

::GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?
;:BR IF NO
;:GET RID OF JUNK
;:TEST FOR O
;:SUPPRESS THIS 0?

;:BR !F YES
;:DON'T SUPPRESS ANYMORE 0°'S
JJMAKE THIS DIGIT ASCII

e
—————

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 56°1

SEQ 0030

5%:

10%:
7%:

6%:

BIS

MOovB
MOV
ADD

#88-.,(SP)

MOV
TYPE
.WORD
DECB
BGT
BLT
INC

(SP)+,10%

MOV
<

(SP)+, (SP)

8%:

.BYTE

$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

. ENDM

LSTYPOCT

elelelele]

353

i
)
D
il
D
D il
il
D
D
il ald o
il
i
i
i
S
i
i
il
-l ol

S LASTAST ST N TN IS TS TS TS TS IS TS TS [N [N TN [N TN 1N N 1N % )
POPNONININININININ)
= = ad d cd e e e e
WW

USER DOCUMENTATION

JsMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
J2FETCH ADDRESS OF NUMBER TO BE TYPED USING
;:POSITION INDEPENDENT CODE
::gfi#ew CONTAINS ADDRESS OF NUMBER TO BE

;2SET UP ADDRESS FOR TYPE COMMAND
;GO TYPE THIS DIGIT
;;ADDRESS OF CHARACTER TO BE PRINTED
;:COUNT BY 1
;:BR IF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
:2RESTORE RS
:JRESTORE Ré&
:;RESTORE R3
;:SET THE STACK FOR RETURNING
; sRETURN

;sSTORAGE FOR ASCII DIGIT
::TERMINATOR FOR TYPE ROUTINE
;sOCTAL DIGIT COUNTER
;+ZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113

USER DOCUMENTATION
123

22-JUN-81 15:42

LMACRO

F.3

PAGE 27

SEQ 0031

.STYPDEC

}%%2

5%?

1237

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

1239
1240
1241

*«NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
*+BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
*«REPLACED WITH SPACES.

1238

*«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

1242

:'CALL:

1244

1243

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MOV

NUM, = (SP)

::PUT_THE BINARY NUMBER ON THE STACK

MOV
MOV
BPL

#20200.~(SP)
22(SP) .RS
18

::SET BLANK SWITCH AND SIGN
..csr THE INPUT NUMBER
BR IF INPUT IS POS.

MOV

ADD

PC,R3
#$DBLK=. ,R3

:iFETCH PC_FOR ADDRESSING

MOVB
CLR

#' ,(R3)+
R2

SSET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER

INC

::INCREASE THE BCD DIGIT BY 1

TYPDS

1245

$TYPDS: PUSH

1249
1250
1251

NEG
MOVB
CLR

1246
1247
1248
1252

1$:

}ng
1255
1256

1257
1258
1259
1260
1261
1262

28:

3$:

1263

1264
1265
1266
1267
1268
1269
1270
1271

1272
1273
1274
1275

1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289

1290

MOV
ADD
ADD
MOV
SUB
BLT

GO TO THE ROUTINE

<RO,R1,R2.R3.R&, Rb>

RS
#'=,1(SP)
RO

PC R4
#$DTBL=. R4
RO,Ré
(R&) ,R1
R1,RS
XY

*:MAKE THE BINARY NUMBER POS.
SIMAKE THE ASCI1 NUMBER NEG.
+:2ERO THE CONSTANTS INDEX

?2{'5’ THE OUTPUT POINTER - R3 POINTS TO $DBLK
2:USE PC FOR LOCATING TABLE
23R4 NOW POINTS TO TABLE
*:INDEX INTO TABLE
S:GET THE CONSTANT
..rom THIS BCD DIGIT
*BR IF DONE

BR
ADD
ST
BNE
ISTB
BM]
ASLB

3s
R1.RS
R2
58
(SP)
78
(SP)

::ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0
S:FALL THROUGH IF 0
$:STILL DOING LEADING 0°S?
::BR IF YES
1IMSD?

68:

MOVB
BIS

1(sp> <1R3)
Ré

::YES—=SET THE SIGN
S:MAKE THE BCD DIGIT ASCII

8s:

ST
cTMP
BLT
BGT
MOV
B8R
ISTB
BPL
MOVB
CLRB
POP
MOV

48:

7%:

9%:

BCC

BIS
MOVB

ADD

c' .R
R2,(R3)+

2:BR IF NO

“MAKE IT A SPACE IF NOT ALREADY A DIGIT
S:PUT THIS CHARACTER IN THE OUTPUT BUFFER

(RO) +
+:JUST INCREMENT
ING
RO.#10
..cuscx THE TABLE INDEX
28
GO DO THE NEXT DIGIT
11
..co TO EXIT
RS,R2
:GET THE LSD
X3
*GO CHANGE TO ASCII
(SP)+
..ms THE LSD THE FIRST NON=ZERO?
9
BR IF NO
=1(SP),=2(R3)
..vss--ser THE SIGN FOR TYPING
(R3)
“SET THE TERMINATOR
<RS R4 ,R3,R2,R1 nb>
PC.=(SP)
::FETCH ADDRESS OF NUMBER TO BE TYPED USING
2:POSITION INDEPENDENT CODE
#SDBLK=.,(SP)
::STACK NOW CONTAINS ADDRESS OF NUMBER TO BE
s sPRINTED

———.
———— ——

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE 37-1

USER DCCUMENTATION
1291
1292
1293
1294
1295

1296
1297
1298
1299
1300
1301

1302

108:

$DTBL:

$DBLK:

.ENDM

MOV
(SP)+,10%
TYPE
.WORD
$DBLK
MOV
2(SP) ,4(SP)
MOV
(SP)+,(SP)
RTI
10000.
1000.
100.
10.
.BLKW
4
. STYPDEC

SEQ 0032
;:SET UP ADDRESS FOR TYPE (OMMAND
:sNOW TYPE THE NUMBER

;cADJUST THE STACK
;;RETURN TO USER

CVMEMAQO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION

1304

1305

22-JUN-81

.MACRO

.STRAP

.SBTTL

15:42

H 3
PAGE 28

SEQ 0033

X,Y,2

TRAP DECODER

1306

STARS

1309

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F THE DESIRED ROUTINE. THEN U SING THE ADDRESS OBTAINED IT WILL

]'33%

;*THIS ROUTINE WILL PICKUP THE L OWER BYTE OF

1310
1311
1312
1373
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329

;*GO TO THAT ROUTINE.
IF B X
$TRAP:
MOV
RO,=(SP)
MOV
R1,-(SP)
.IFF

1331
1332
1333

AF NB Y

1330

$TRAP:

1336

1337

RO,-(SP)

;:SAVE RO

MOV
TST
MovB

4(SP) ,RO
=(RO)
(RO) ,RO

::GET TRAP ADDRESS
: :BACKUP BY 2

BPL
BIC
JMP
.WORD

$TRAP1
#~C177 ,RO
(PC)
Z

:;GET RIGHT BYTE OF TRAP

; sNON=USCR TRAP,BELOW 200

;:STRIP AWAY THE JUNK
:;USER TRAP,ABOVE 177, GO TO
;2 USER TRAP HANDLER- 2

.ENDC

CMP
BGT

HALT

.ENDC

1338

1339

;sASSUME THE STATUS OF
;2 THE CALLER==DO NOT ALLOW
:: T=BIT TRAPS
;sSET THE NEW STATUS

#20, (SP)
#18,-(SP)

IF NB Z

$TRAP1:

2(SP) ,=(SP)

;:SAVE RO
;sSAVE R1

BIC
MOV
RTI
MOV

1$:
.ENDC

1334

1335

MOV

THE '‘TRAP'' INSTRUCTION

#STERM,RO
.+6
-2

ASL

ADD

#$TRPAD~-. ,R1

MOV

PC,R1

;s(HECK FOR OUT OF BOUNDS
;:BR IF OK
;:0UT OF BOUNDS
; HANGUP

;;POSITION FOR INDEXING
JsFETCH THIS PROGRAM POINTER FOR PIC
::POINT TO TABLE
2sR1 NOW POINTS TO ROUTINE TRAP CALL WANTED
;2RO CONTAINS ADDRESS FOR RTS
;sRESTORE R1
;:G0 TO ROUTINE

1340
1341
1342
1343
1344
1345
1346
1347
1348
1349

ADD
RO,R1
MOV
(R1) ,RO
MOV
(SP)+,R1
RTS
RO
;:THIS IS USE TO HANDLE THE ''GET PRI'' MACRO
S$TRAP2: MOV
(SP) ,~(SP)
;:MOVE THE PC DOWN
MOV
4(SP) ,2(SP)
2 sMOVE THE PSW DOWN
RTI
;sRESTORE THE PSW
.MACRO SETTRAP A,B,MSG
$SSET
A,B,\<TRAP+$TRP> .\$TRP,<MSG>

1351
1352

$TRP=$STRP+1
.LIST

1357

;*THIS TABLE CONTAINS THE STARTI NG ADDRESSES OF

1350

1353
1354
1355
1356

1358
;;28

.NLIST

.ENDM
SETTRAP
.MACRO S$SSET
A.B,(.D,COMNT
.IF EQ $TRP-1
.SBTTL
TRAP TABLE

;*BY THE '‘TRAP'' INSTRUCTION.
3
ROUT INE

THE ROUTINES CALLED

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 58-1

SEQ 0034

USER DOCUMENTATION

1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378

1379
1380
1381
138¢
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393

1394

1395

$TRPAD: .WORD
$TRAP2
.ENDC
.1IF NDF GNS,.NLIST
A=
C
.IIF NDF GNS,.LIST
8
;s CALL=A
.ENDM
S$SSET
.MACRO TRMTRP
$TERM=.~$TRPAD

SETTRAP TYPOS,$TYPOS,*/TYPE OCTAL NUMBER (NO LEADING ZEROS)/
SETTRAP TYPON,STYPON,*/TYPE OCTAL NUMBER (AS PER LAST CALL)/

.ENDC
.IF DF S$TYPDS
SETTRAP TYPDS,$TYPDS,*/TYPE DECIMAL NUMBER (WITH SIGN)/
.ENDC
.IF DF STYPBN
SETTRAP TYPBN,STYPBN,*/TYPE BINARY (ASCII) NUMBER/
-ENDC
.IF DF $GTSWR
SETTRAP GTSWR,$GTSWR,“/GET SOF T=SWR SETTING/
.ENDC
.IF DF

-ENDC

SCKSWR
SETTRAP CKSWR,$CKSWR,“/TEST FOR CHANGE

SETTRAP RDCHR,$RDCHR,*/TTY TYPEIN CHARACTER ROUTINE/

1399
1400

-ENDC
.IF DF SRDOCT

1404

1455
1405

1407
1408
1409
1410
1411

1412
1413
1414
1415

IN SOF T-SWR/

.IF DF SRDCHR

-ENDC
.IF DF SRDLIN

1401
1402
1403

COMNT

.ENDM
TRMTRP
LNLIST
$TRP=1
.LIST
.IF DF STYPE
SETTRAP TYPE,STYPE,*/TTY TYPEOUT ROUTINE/
.ENDC
.IF DF $TYPOC
SETTRAP TYPOC,$TYPOC,*/TYPE OCTAL NUMBER (WITH LEADING ZEROS)/

1396
1397
1398

TRAP+D((C)

SETTRAP RDLIN,SRDLIN,*/TTY

TYPEIN STRING ROUTINE/

SETTRAP RDOCT,$RDOCT,*/READ AN OCTAL NUMBER FROM TTY/

-ENDC
.IF DF SRDDEC

SETTRAP RDDEC,SRDDEC,“/READ A DECIMAL NUMBER FROM TTY/

-ENDC
.1F DF S$SAVREG

.ENDC

.1F DF

-ENDC
.ENDM

SETTRAP SAVREG,$SAVREG, “/SAVE RO-RS ROUTINE/
SETTRAP RESREG,SRESREG,“/RESTORE RO-R5 ROUTINE/

SR2A

SETTRAP R2AZ,$R2AZ

SETTRAP
SETTRAP R2AZQ,$R2AZQ
.STRAP

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

USER DOCUMENTATION
1417

22-JUN-81 15:42

J 3
PAGE 29

SEQ 0035

1418 000000

.HEADER <CVMEMAO DIAGNOSTIC FOR NON=VOLATILE MEMORIES>,<1981>,<KEN LANGLAIS>

1421 000000

"$CATCH START1

1419 000000
1420 000000

- EQUAT
- SWRH]I

}gg 000204
1424 000204
1425
1426

1427
1428
}2233

1437 000400

000400
000402
000404

000001
000001
000400

177754

000454

117746

177722

0004664
000470
000472
000474
000502
000504
000512
000514

022627
001366
000750
026627
001744
026627
002407
026627

000021

000522
000524
000532

000534

003003
042766
000002

$RDCHR: MOV
1%:

000004

28:

000040

000536 012703 000642
000542 022703 000670
000546 101405
000550 104406

000004

4$:

000552
000554

112613
122713

000177

08:

000562

104401

000670

.48

000570
000574

111367
104401
122723

000044
000640
000015

3$:

105063
104401

177777
000672

000566 000763

000604 001356
000606
000612

000616 012603

#AC<177>,4(SP)

cmP
BNE
TSTB
BPL
cMP
BNE
BR
cMP
BEQ
CMP
BLT
cMP
BGT
BIC
RTI

$RDLIN: MOV

1$:
28:

(SP) ,=(SP)

BIC

000004 000021 3$:
000004 000140
000004 000175

LWORD
‘WORD

4(SP),2(SP)
as$TKS
1%

MOVB

177600

010346

000560 001003

:READ ROUTINES

MOV
TSTB
8PL
MOVB

177600 000004

000436 026627 000004 000023
000444 001013
000446 105777 177726
000452 100375
000460 042716

.STRAP
BEX
MEB

J1IF EQ .-$TKS,$TKS:
.11F EQ .-$TKB.S$TKB:

011646

117766

.SETUP
NLIST
LIST

.SREAD

177560
177562

000430 042766

SLSTIN = 1
SLSTTAG = 1
"
= 400

000406 016666 000004 000002
000414 105777 177760
000420 100375
000422

KT11

MOV
cMP
BLOS
RDCHR

@$TKB,4(SP)

*:READ THE TTY

::GET RID OF JUNK IF ANY

SIMAKE IT 7-8BIT ASCII

(SP)+ 421
2s
13
4(SP) ,#SXON
1%
4(SP) ,#140
4$
4(SP) ,#175
4
#40,4(SP)

R3,=-(SP)

#STTYIN,R3
#STTYIN+26,R3
4$

,$QUES

MOVB
TYPE
CMPB

(R3),9%
.98
#15.(R3)+

CLRB
TYPE

=1(R3)
,SLF

MOV

::SAVE THE PS
S:WAIT FOR
“:A CHARACTER

#~C177, (SP)

@$TKB,=-(SP)

TYPE

BNE

::PUSH DOWN THE PC

2:IS IT A CONTROL=S?
*:BRANCH IF NO
::WAIT FOR A CHARACTER
2:LOOP UNTIL ITS THERE

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

;:TTY KBD STATUS
L:TTY KBD BUFFER

4(SP) ,#2%
3
as$TKS
2$

MOVB
CMPB

BNE

177560
177562

(SP)+,R3

*:GET CHARACTER

2:1S IT A CONTROL=-Q?
*:1F NOT DISCARD IT
1:YES, RESUME
SIS IT A RANDOM XON?
::BRANCH IF YES
2:1S IT UPPER CASE?
$:BRANCH IF YES
::1S IT A SPECIAL CHAR?
$:BRANCH IF YES
*:MAKE IT UPPER CASE
::G0 BACK TO USER

*:SAVE R3

*:GET ADDRESS
::BUFFER FULL?
::BR IF YES
*:GO READ ONE CHARACTER FROM THE TTY
*:GET CHARACTER
2:IS IT A RUBOUT

2:SKIP IF NOT
S:TYPE A *2°

S:CLEAR THE BUFFER AND LOOP
*:ECHO THE CHARACTER
::CHECK FOR RETURN

2:L00P IF NOT RETURN

*:CLEAR RETURN (THE 15)
S:TYPE A LINE FEED

*:RESTORE R3

:RANOO1

*RANOO1

———

CVMEMAOQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
TTY INPUT ROUTINE
000620

011646

000636

000002

000671

01§

22-JUN-81 15:42
MOV

0006%8 016666 000004 000002
000630
012766 000642 000004

000640
000641
000670
000672

000674
000701
000706
i 000717
1433 000730

000
000
077
012

136
136
015
040

000730

011646

000744

010246

000750

012600

000756
000760

005001
005002

000764
000766
000772
000774

001420
122716
003026
122716

001002
001004
001006

006301
006102
006301

9s:
000

125
107
012
040

104407

000002

001000 002423
001010
001012
001014
001016
001022
001024
001026
001030
001034
001040

001042
001044
001046
001050
001052
001054
001056

g 001066
1435 001070

001070

FIRST ASCII CHARACTER ON IT

2 RETURN

ASCIZ

<12>

$CNTLU: .ASCIZ
SCNTLG: .ASCIZ
SMSWR: .ASCIZ
SMNEW: .ASCIZ
$RDOCT: MOV

MOV
MOV
MOV
MOV

RDLIN

MOV

000060
000067

CLR
CLR

MOVB

.ASCII

3s:

'A ¥

000000

$HIOCT:

011646

$RDDEC: MOV

R2.=-(SP)

:2PUSH R2 ON STACK

(SP)+,R0O

RO, 5%
R1
R2

(RO)+,~-(SP)

R1
R2
R1

MOV

;;LINE FEED

::PROVIDE SPACE FOR THE

ASL
ROL
ASL

012601
012600
000002
005726
105010
104401
000000

;CARRIAGE RETURN

(SP) ,=-(SP)

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

3$
#'0,(SP)
(s
#'7.(SP)

ROL
ASL
ROL
BIC
ADD
BR
TST
MOV
MOV

<15

/*U/<15><12>
;:CONTROL 'V’
/%G/<15><12>
::CONTROL 'G
<15><12>/SWR = /
/ NEW = /

BEQ
CMPB
BGT
CMPB

BLT

012602

001060 104401 000670
001064 000730

IIF EQ .-SLF SLF:

2%:

006102
006301
006102
042716 177770
062601
000756
005726
010166 000012
010267 000026

;;ADJUST THE STACK AND PUT ADDRESS OF THE

.ASCII

1%:

112046

SEQ 0036

::STORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR
9"
: :QUESTION MARK

JIIF EQ .-SCRLF,SCRLF:

015
015
123
116

.BYTE 0
BYTE 0
.1IF EQ .-SQUES,SQUES:

000752 010067 000100

000762

RTI

(SP) ,=(SP)

4(SP5.2(SP)
#STTYIN,4(SP)

.SRDOCT BIG

000732 016666 000004
000740 010046
000742 010146
000746

MOV
MOV

PAGE 29-1

R2
R1
R2
#4C7,(SP)
(SP)+,R1
2s
(SP)+
R1,12(SP)
R2.SHIOCT
(SP) + ,R2

:READ AN ASCIZ LINE

:2GET ADDRESS OF 1ST CHARACTER

S:AND SAVE IT

“:CLEAR DATA WORD

;:PICKUP THIS CHARACTER

::IF ZERO GET OUT
;:MAKE SURE THIS CHARACTER
*:IS AN OCTAL DIGIT
;o2
)

;%8
::STRIP THE ASCII JUNK

S:ADD IN THIS DIGIT
::LOOP
;sCLEAN TERMINATOR FROM STACK
::SAVE THE RESULT
::POP STACK INTO R2

MOV
MOV
RTI
TST
CLRB
TYPE
.WORD

::POP STACK INTO R1
::POP STACK INTO RO
*:RETURN
s 3CLEAN PARTIAL FROM STACK
2:SET A TERMINATOR
::TYPE UP THRU THE BAD CHAR.
)

.WORD

*:HIGH ORDER BITS GO HERE

TYPE
BR

. SRDDEC

(SP) + ,R1
(SP)+,R0O

a
T NUMBER
::PUSH RO ON STACK
S:PUSH R1 ON STACK

(SP)+
(RO)

$QUES
is
(SP) ,=(SP)

22UUCRRCCLFT
S:TRY AGAIN

:;PROVIDE SPACE FOR

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 59-2

SEQ 0037

READ A DECIMAL NUMBER FROM THE TTY

001072 016666 000004 000002
001100 010046
001102 010146
001104
001106

010246
104407

001116
001120
001122

005046
005002
122710

001130
001132
001134
001136
001142
001144
001150
001152

112002
112001
001424
122701
003032
122701
002427
032716

001110 012600
001112 010067 000120
001126 001001

001156 001024
001160 006316
001162 011646
001164
001166

001170
001172
001174
001200
001202
001204
001206
001210
001212
001214
001220
001222
001224

001226
001230
001232
001234

28:
000060
000071

170000

000002
005726
105010
104401

001246

001250
001252
001254
001256
001260
001264
001270
001276
001304
001310

010146
010246
010346
010446
013746
013749
01273
012737
013746
013746

38:

48:

68:

$SIZE:

000114
000116
ooong 000114
000002 000116
000004
000006

(SP)+,R0
RO,6$

BNE

MOVB
MOVB
BEQ
CMPB
BGT
CMPB
BLT
BIT

ASL
ASL

5%:

010046

MOV
MOV

v
RDL IN

BNE
ASL
MOV

006316
006316

062616
102416
162701 000060
060116
102412
000752
005702
001401
005416
012666 000012
012602
012601
012600

4(SP),2(SP)
RO,=(SP)
R1.-(SP)

CLR
CLR
(MPB

000055

001236
001240 104401 000670
R 001244 000720
1437 001246

1%:

MOV
MOV
MOV

ADD
BVS
SuB
ADD
BVS
B8R
ST
BEQ
NEG
MOV
MOV
MOV
MOV

RTI
ST
CLRE
TYPE

R2.=(SP)

-($P)
R2
#'-,(RO)

(RO)+,R2
(R0)+.R1
3$
#'0.R1
13
#'9,R1
X3
RAC7777.(SP)

5$
(SP)
(SP) ,=(SP)
(SP)
(SP)

(SP)+, (SP)
EE
#'0.R1
R1,(SP)
58
2s
R2
4
(SP)
(SP)+,12(SP)
(SP)+.R2
(SP)+.R1
(SP)+.R0O
(SP)+
(RO)

LWORD
TYPE
BR

O
$QUES
is

.$SIZE
MOV

RO,=(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

;:THE INPUT NUMBER
;:PUSH RO ON STACK
::PUSH R1 ON STACK
;3PUSH R2 ON STACK
JJREAD AN ASCIZ LINE
: ;ADDRESS OF 1ST CHAR.
:sSAVE INCASE OF BAD INPUT
:;CLEAR DATA WORD
::SIGN SET POSITIVE
..SEE IF A MINUS SIGN WAS TYPED
:BR IF NO MINUS SIGN

..SAVE FOR LATER USE
:sPICKUP THIS CHARACTER
::GET OUT IF ZERO
::MAKE SURE THIS CHARACTER
:21S A DIGIT BETWEEN 0 & 9
;:DON'T LET NUMBER GET TO BIG
;:BR IF NUMBER WOULD OVERFLOW
¥ e

.‘.‘SQVE FOR LATER

00.80

::%10.

;;OVERFLOW ISN'T ALLOWED
;:STRIP AWAY THE ASCII JUNK
::ADD IN THIS DIGIT
..OVERFLW ISN'T ALLOWED
”I‘F) NUMBER IS NEG
..CHECK
:BR IF

..YES-—'EGATE THE NUMBER
:sSAVE THE RESU.T

::POP STACK INTO R2
::POP STACK INTO R1

::POP STACK INTO RO

; sRETURN

:sCLEAN PARTIAL NUMBER FROM STACK
::SET A TERMINATOR
::TYPE THE INPUT UP TO BAD CHAR.
R GOES HERE
..POINTE
l”.l .ICR.. "1' K
*:TRY AGAIN

:2SAVE RO ON THE STACK

R1.=(SP)
:2SAVE R1 ON THE STACK
R2.=(SP)
;2SAVE R2 ON THE STACK
ON THE STACK
R3,=(SP)
s s SAVE
R& . =(SP)
:2SAVE R4 ON THE STACK
awi14,-(sP)
::SAVE MEMORY ERROR VECTOR PS & PC
ar16.-(SP)
#116,a0114
:; IGNORE PARITY ERRORS WHILE SIZING
#RT]. 116
FERRVEC ,~(SP) ;SAVE PRESENT ERROR VECTOR PS & PC
NERRVEC+2,~(SP)

B8x001

CVMEMAU DIAGNOSTIC FOR NON=-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 29-;

ROUTINE TO SIZE MEMORY

001314 010600
104400
001320 012637
0013264 012701 003776

001316

001330
001332

105727
000200

001344
001350

005737
052767

00133¢ 100135
001336 o12;§7 oon% 000004

001356
001
001370
001376
001404
001406
001414

1775
100000

o1§ 7 001406
005737 172516
012767 000200
012767
176200
000411
012737 006200
02

001416 005037

001436 000008

26
000022
001426

1008:

ow:

$STOP:

177740 18:

001436 037503 00200
000401
02

001520

105737

001
001512

1
m;
013737
7
712
1 1;1

001562

’g

001523 nzo;

1603

%}%
003

1360

#1008 ,a#ERRVEC
amzhe

SYES==SET KT11 KEY
SiSET FOR TIMEOUT
::0-8US MAP ARE YOU THERE?

SMAPRG
#6200, a¥$STOP
(SP)+. (SP)+

S:END OF 2M OF MEMORY
2360 SET UP MAP REGISTERS
*:COMPARISON VALUE FOR 18 BIT MAPPING
:iCLEAN OFF STACK

CLR

WSRO
#100000,$KT11

;:KT11 ARE YOU THERE?

n76200$STOP
INSMAP

oo oUW

.WORD
CLR
MOV
MOV
MOV
MOV

O
-(SP)
mpmo R2
#°D8
cmbe-40(R2)
(sp) (R2)+

S:TURN ON MAP INDICATOR

:iMAKE SURE MAP INDICATOR TURNED32551

..-200 IF MAP PRESENT

s;FILLED WITH APPROPRIATE COMPARISON VAU.E
;;INITIALIZE FOR 'PAR'’ LOADING
: ;ADDRESS OF FIRST 'PAR
..LOAD EIGHT "PAR.'S'' AND EIGHT 'PDR.'S"

O u}fiUP, READ/WRITE
..
..woars FOR NEXT 'PAR

$LOOP UNTIL ALL exem ms LOADED

..Ewt

INC
MOV

“TURN ON MEMORY MANAGEMENT
WSRO’
FOR TIME OUT
#SKTOUT ,a#ERRVEC

(SP)+, (SP)+

..cn.sm orr THE STACK=-NO SR3

..is THERE ?

001602 000114
ooggge 000116
143776
48:
000040
001426

BPL
MOV
MOV
ST
ADD
g";

aVFSMAP

177572

$KT0UT: MOV
CLR

no-sxxr
4
#SMMOUT , 30114 ..ser UP MEMORY ERROR VECTOR
SERR coz e; :LOCK OUT INTERRUPTS
“TRAP
N NON-EX-MEM
ams
#40, ( 2
..m A 1K STEP
ansrop (R2)
:iLAST ONE?
SNO==TRY IT
(az) R2
..GET LAST BANK+1

i
&n
SMMOUT: MOV

usns
mfim R4

001424

10437 177744

032704

MOV
ST
MOV
MOV
B8R
MOV
cMP

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

nmoo,-ma
-(R2)
#2$, NERRVEC
#20,3#SR3

it
e ey
%}sn %é‘og?
172516
381233 1 79:. 177744
001612

*BR IF NO
$CURE
#SKTNEX, @#ERRVEC ..ser FOR TIMEOUT

(PC)+
200

MOV
CLR
MOV
MOV

oos”gg
17757,
012737 001

001524
oo1s§2
001534
001542
ooms
83;;5

8PL
MOV

TSTB
.WORD

001460 &1)274 177600
001464
00504
001466 012737 001504 000004
001474 012737 000020 172516
001502
001504

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

ST
BIS

177754

001424

0014,
001430
005046
001432 omog 172340
001436 01570 000010
oow.ss 012762 077406
0014
ongz

$KT11:

MOV
TRAP
MOV
MOV

000001

000004

BR
P

TSTB

MOV
BIT

100000 177502 $KTNEX: BIC

001255 8?5737 001660 000004 SCORE: MOV

arsrO

n« w 77744

sxfour

#100000,$KT11

#SCROUT.S#ERRVE

..senp KIPAR7 FOR 1/0

:SETUP KIPARG FOR TESTING

+3CATCH 75 OUT IF NO SR3
2

IT MODE AND UNIBUS MAP
HAS A SR3 REGISTER

2:SET

..ruw OFF MEMORY MANAGEMENT
+1S MAP THERE?
; INO-SK1P

::TW OFF MAP

:;SAVE MEMORY ERROR REG ISTER
..CLEM BITS IN REGISTE R
MORY TIMEOUT?

IYES=EXIT

iJST BE PARITY ERROR-IGNORE IT
H
s:KT11 NON-EXISTENT
..SET FOR TIMEOUT

Bk001

8K001

Bk001

B8k001

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

004000
000040

1$:

22-JUN-81 15:42

ADD

177776

004000
000040

$CROUT: SUB
$SIZEX: SUB

PAGE 29-4

#4000 ,R1
#40,R2

SEQ 0039
;SET UP BANK

* S INCREMENT BY 1K
231K STEP

(R1
#177776 ,R1
18
fl.ooo R1

S:TRAP ON TIME OUT
2:LAST ONE
2 :NO==TRY AGAIN

RO, SP

$:RESTORE THE STACK

#40,R2

: :DROP BACK

(SP)# @#ERRVEC+2 ;;RESTORE ERROR VECTOR
(SP)+ ,a#ERRVEC
(SP)+,a#116
;;RESTORE MEMORY ERROR VECTOR
(SP)+,a#114
R1,SLSTAD
..LAST ADDRESS

000006
000004
000116
000114
000020
000016

R2,$LSTBK

RTS
SLSTAD: .WORD
SLSTBK: .WORD

sLAST BANK

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

: :RESTORE
;;RESTORE
: ;RESTORE
; ;RESTORE

0
0

;;CONTAINS THE LAST ADDRESS
s sCONTAINS THE LAST BANK

‘ggP)*.RO

Ré4
R3
R2
R1

:sRESTORE RO

B8k001

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE !0

SEQ 0040

ROUTINE TO SIZE MEMORY

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

1439
1440
1441 001742

ROUTINE FETCH

001742

1642
1443 001742
1444

FETCH:

JFETCH ANSWER

RDCHR

104406

001744

012637

010342

POP
MoV

a#ECHO
(SP)+,a#ECHO

JFETCH CHARACTER

1447 001750

104401

010342

TYPE

.ECHO

;ECHO CHARACTER

104401

016155

TYPE

.CRLF1

JPRINT <CR><LF>

1445 001744
14646

1448
1449 001754
1450
1451 001760

001760
001760
001760

ENDRTN

000207

;:POP STACK INTO a#ECHO

50000$:
50001$:

RTS

CVMEMAD DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE §1

ROUTINE TO SIZE MEMORY
1455

;THIS ROUTINE READS THE ADDRESS TYPED, DETERMINES THAT IT IS A LEGAL 4K

;ADDRESS (I.E. DOES NOT RESIDE OUT SIDE OF THE SYSTEM ADDRESS SPACE) AND
;RETURNS WITH R4 NE #0 IF ADDRESS IS LEGAL
ROUTINF FETADD
4

104410

1466 001770

001770

1467

001776

RDOCT

012637

010342

032737
001403

017777

104401

010152

010342

JREAD OCTAL NUMBER

POP
MOV

a#ECHO

#17777 SETIN a#ECHO THEN

(SP)+ ,a#ECHO

JFETCH BITS 0 - 15
;sPOP STACK INTO a#ECHO
sCHECK FOR 4K
BIT

BEQ

TYPE

ELSE

000432

1473
1474 002014
002014
1475
1476
1477

FETADD:

;BOUNDARY

,NOT4K

010342

010344

013737

001066

010346

50002%

;NOT LEGAL ADDRESS

)

50002%:

013737

#17777 ,a8ECHO

50003

LET

a#SAVLOW := a#ECHO

;SAVE BITS O = 15 OF ADDRESS

LET

A#SAVH]

;SAVE BITS 16 = 22 OF ADDRESS
MOV
a#SHIOCT ,a#SAVHI

:= a#SHIOCT

MOV

a#ECHO, a#SAVLOW

;BUMP TO NEXT 4K IN ORDER TO DETERMINE IF THERE IS ENOUGH
sMEMORY FOR THE PROGRAM AND TESTING

062737

020000

010342

032767
001402

000001

014122

005537

001066

LET Q#ECHO := Q#ECHO + #20000
IF #1

;ADD 4K

SETIN CONTROL THEN

000024

032767
001403

000001

162703

000200

000402

#20000, a#ECHO

BIT

#1,CONTROL

BEQ
LET Q#SHIOCT := a#$SHIOCT + CARRY

ADC

ENDIF

004767

ADD

IF #1

NSHIOCT

SETIN CONTROL THEN

:MAPFED?

JSR

PC ,ADDCHK

BIT

#1,CONTROL

BEQ
LET R3 := R3 - #200
ELSE

;ADD OVERFLOW

S0004$:

CALL ADDCHK

014102

50004$

50005$

:REMOVE 4K TEST mcmgm

SUB

#200.R

50006%

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

22=JUN-81 15:42

D 4
PAGE 31-1
50005$:

002066

1494
1495 002066
002066
1496
1497 002072
1498

162703

LET R3 := R3 - #20000

020000
ENDIF

002072

ENDIF

1499 002072
002072

1500
1501 002072

002072
002072
002072

SEQ 0042

ENDRTN

000207

s REMOVE 4K TEST INCREMENT

SuB

#20000,R3

50006%:
50003s:
50000%:
50001%:

RTS

CVMEMAQO DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE §2

SEQ 0043

ROUTINE TO SIZE MEMORY

sTHIS ROUTINE CHECKS THAT THE 4K BOUNDARY IS WITHIN IN THE SYSTEM

1503
1504
1505
1506
1507 002074

R3 WILL EITHER BE PAR COMPATIBLE ADDRESS FOR A MAPPED SYSTEM OR 4K ADDRESS
OR AN UNMAPPED SYSTEM

ROUTINE ADDCHK

032767
001431

000001

012703
000401

000001

014056

ADDCHK:

IF #1 SETIN CONTROL THEN

;DO WE HAVE MEM. MAN
BIT
#1,CONTROL

INCR R3 FROM #1 TO #3 BY M

020327
003005

006137
006137

000003

LET a#ECH" := QW#ECHO ROTATE 1

010342

LET a#$HIOCT := A#SHIOCT ROTATE

001066

END INC

INCR R3 FROM #1 TO #7 BY M

000001

020327
003003

000007

006337

001066

50005$

ROL

S#ECHO

ROL

NSHIOCT

B8R

50004$

:NOW er%ku I?“EgLM" BITS
50006%
B8R
cMP

R3, 47

ASL

aNSHIOCT

50007%

MOV

#SHIOCT,R3

500108
BGT
;AND PUT THEM INTO UPPER BITS
LET Q#SHIOCT := A#SHIOCT SHIFT 1
END INC

50010%:

LET R3 := Q#SHIOCT

001066

sNO HEHOS; MANAGEMENT
50011%

ELSE

000410

013703

8GT

500078:
INC
R3
500068:

000771

013703

500058:

005203

002152

50003$

50004
INC

;COMPATIBLE WITH PAR

000767

012703
000401

50002%

*MAKE ADDRESS IN ECHO AND S$HIOCT
MOV
#1,R3

005203

002120

BEQ

50002%:

010342

LET R3 := a#ECHO

JFETCH STARTING ADDRESS

MOV

a#ECHO,R3

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

15%% 002172

22-JUN-81 15:42

BIFAR

— e

002172
002176

005737
001403

001066

002200

104401

010224

002204
002204

000407

F_4

PAGE 32-1

SEQ 0044

IF S#SHIOCT NE #0 THEN

TYPE

,OUTMEM

INLINE <BR 1%>

ENDIF

—
2

013762

1546 002214
1547
1548
1549 002220

104401

010224

002220

000401

> 002222

005204

TYPE

5 002224

002224
002224
002224

;OUT OF MEMORY

;EXIT FROM ROUT INE
BR 1%

;OUTSIDE OF MEMORY
CMP
R3,ENDADD

ENDRTN

50013s

;IF R3 IS GREATER THAN R2

;PRINT STARTING ADDRESS OUTSIDE

;OF ADDRESS RANGE

50014%
BR
50013%:
LET

1%:

0002C7

,OUTMEM

ELSE

50012%

;TELL OPERATOR THAT ADDRESS

BLOS

ENDIF

aNSHIOCT

50011$:

IF R3 H]l ENDADD THEN

—

020367
101403

TST
BEQ

50012%:

ENDIF

002206
002212

;ADDRESS TO HIGH

:= R4 + M

:INDICATE OK
INC

50014%:
S0000%:
50001%:

RTS

P’

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-B1 15:42 PAGE 33

SEQ 0045

ROUTINE TO SIZE MEMORY

NO\WVN
S W) -

e Bt By g B
g e b Dt

> >

>>>»

e NN

CR1:

PARQ:
PAR7:

-AS

"AS
"AS

:
NOBLK
RESHLP:

e N

e NI NI NN N

WHOLE
:

WHERE1:

UNMAP:

:
WHERE

NN B

MAPPED:

117
127
115
104
040
110
012
040
124
122
120
067
067

.AS
.AS
.AS

116
015
105
015
116
015
012
040
105
103
131
067
067

127

BANKO:

HELLO:

s L

0158

ILLADD:

e bt NG NG N B B

040
012
115
012
111
012
012
040
123
074
124
100
100

012

012
116
111
117
12
12

MINUTES AND 100 HOURS. THE FOLLOWING IS THE FLOW OF THE PROGRAM'<12><15>
TER POWER UP:'<12><12><15>
1. DO ANOTHER CHECKSUM OF THE PROGRAM AND CHECK IT AGAINST THE'<12><15>
ONE DONE BEFORE POWER DOWN. '<12><15>
2. 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 0 WAS DETERMINED NON-VOLATILE)'<12><15>
3. CHECK ENTIRE MEMORY FOR THE BACKGROUND PATTERN (125252)'<12><15>
4. PRINT A MEMORY MAP OF AL% 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>
PREREQUISITE'<12><12><15>
1. CZKMA OR VMSA MUST SUCCESSFULLY COMPLETE'<12><15>
2. OPERATOR MUST KNOW STARTING ADDRESSES OF ALL VOLATILE AND'<12><15>
NON=VOLATILE MEMORY IN THE SYSTEM'<12><15>
3. VIDEO TERMINALS MUST EITHER REMAIN POWERED WHEN PROCESSOR IS'<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/MALT 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>

1601 006740
1602 00
1603 007071
1604 007126
1605 007210
1606 007237
1607 007326
1608 007334
1609 007401
1610 007477
1611 007506
1612 007536
1613 007571

1600

012
117
015
040
015
015

"ASC

TELL THE OPERATOR TO POWERDOWN THE SYSTEM'<12><12><15>

HE ovémmn WILL NOW FOLLOW THE RESTART HELP FILE SOME TIME BFTWEEN'<12><15>

>>>

012
116
012
113
012
012

040
040
040
040
040
040
040
040
040
040
104
101

HELP FILE'<12><15>
GENERATE AND PRINT A RESTART
. WRITE A BACKGROUND PATTERN (125252) THROUGHOUT MEMORY'<12><15>
DO A CHECKSUM OF THE PROGRAM'<12><15>
. DO A CHECKSUM OF THE TRAP VECTOR SPACE (ADDRESS 0-376)'<12><15>

>>>>>>>>D>D>>D>

1595 006354
1596 006404
1597 006470
1598 006506
1599 006572

040
040
040
040
040
040
040
040
040
040
015
015

ASC

NON-VOLATILE MODULES IN ANY QBU S SYSTEM. THIS IS NOT A MEMORY'<12><15>
DIAGNOSTIC. PLEASE RUN CZKMA OR VMSA DIAGNOSTICS BEFORE RUNNING THIS'<12><15>
PROGRAM. THE FOLLOWING I S A BRIEF DISCRIPTION OF THE PROGRAM FLOW:'<12><12><15>
ASK THE OPERATOR A SERIES OF QUESTIONS (MENU) ‘'<12><15>
SVOLATILE AREA (IF BANK 0 IS VOLATILE)'<12><15>
. RELOCATE PROGRAM TO NON-

wuwunn
n
Luuhuvnhvuruvruvruvunn
alalalalalaslslslsalslislslslslslslslislelsle
e

040
040
040
040
040
040
040
040
040
040
012
012

ASC

<12><12><15>'
FUNCTIONAL DESCRIPTION®<12><12><15>
ASCII
THE PURPOSE OF THIS PROGRAM IS TO TEST THE DATA RETENTION OF '<12><15>

1582 005115
1583 005157
1584 005241
1585 005344
1586 005417
1587 005525
1588 005633
1589 00
1590 006014
1591 006114
1592 006174
1593 006236
159% 006302

ASC
(V. 17,17,]

111
122
040
040
040
040
040
040
040
105
115
12
040
040
040
040
040
040
040
040
105
123

117

106
120
G
040
040
040
040
040
040
110
040
106
040
040
040
040
040
040
040
040
110
116

116

»muunumon

040
040
00
040
040
040
040
040
040
126
062
101
040
040
040
040
040
040
040
040
124
111

040

PB>>>

1560 002504
1561 002613
1362 Q2721
1563 003010
1564 003117
1565 003177
1566 003276
1567 003344
1568 003446
1569 003530
1570 003636
1571 003741
1572 003763
1573 004070
1574 004135
1575 004250
1576 004361
1577 004456
1578 004557
1579 004663
1580 004713
1581 005010

1559 000404

:
HELPF
+ASC
LASC
LASC
JASC
ASC.
LASC
LASC
LASC
LASC
+ASC

wuwunhnnumn

015
110

NOYOD
lalal
YYD
YYD
Nalalalalals
—— bt
g b bt bmg b
g b
g g b Bt g by g g g bg bt bt g b B Bt B o B
g Bg bg B bg b By g Bt Bg bt g B Bt e bt b0 bt b Bg Bog bt Pg B B
] B by B

012
124

VLo

012
040

33 3335

1557 002226
1558 002305

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

(L) N?°*

<12><15>'ADDRESS NOT AT 4K BOUNDARY!'''!'!'<12><15>
<12><12><12><15>
' CYMEMAD DATA RETENTION DIAGNOSTIC FOR *

'NON=-VOLATILE MEMORIES'<12><15>

<12><15>"'1S THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y? °

'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 THE NON-VOLATILE

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

°*

<12><15>'D0 YOU WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY '

*IN THIS SYSTEM (L) Y? °

<12><15>'HOW MANY 4K BANKS OF MEMORY ARE TO BE TESTED (D) 0? °*
<12><12><12><12><12><15>

RESTART HELP FILE'<12><12><15>
’
*SET ENABLE/FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER'<12><15>
'CCR>'<12><15>

"TYPE : *<12><12><15>
' @772344 /7 XXXXXX *
'9772356/XXXXXX 177600<CR>*<12><15>
'9772304/7XXXXXX 776406<CR>'<12><15>

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

1614 007624
1615 007657
1616 007713
1617 007747
1618 010025
1619 010052
1620 010066
1621 010074
1622 010100
1623 010152
1624 010224
1625 010302

10C
100
100
012
120
100
074
100
040
012
012
040

1627 010342
1628 010344
}g%g 010346

000000
000000
000000

ECHO:
SAVLOW:
SAVHI:

1631
1632

006014

DIF1 = ENDPR-Q4

1626

067
067
067
123
117
044
103
120
040
012
012
101

1633
1634
1635

067
067
067
105
123
067
122
012
040
015
015
104

22-JUN-81

MMR3:
ENABLE:
RHELP:
NOTé4K:
OUTMEM:

LASCII
LASCIZ
_ASCIZ
.ASCII
LASCII
LASCIZ
.ASCII
.ASCII
LASCIZ
.ASCIZ
.ASCII
LASCIZ
.EVEN

15:42

H 4
PAGE 33-1

SEQ 0046

7746406<CR>'<12><15>
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 *
'CCR>'<12><15>

;v'<12><15>

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
'

' ADDRESS RANGE OF THIS SYSTEM'<12><15>

.WORD 0
.WORD 0
.WORD 0
;THE NUMBER TO BUMP THE POINTER TO BY PASS THE

: PROGRAM

;THIS ROUTINE BEGINS THE DIAGNOSTIC,

1636
1637

IT Wi LL DETERMINE

IF THIS MACHINE

;HAS MEMORY MANAGEMENT OR NOT, CALL THE SI ZING ROUTINE, ASK THE MENU
;QUESTIONS, MOVE THE PROGRAM IF NEED BE . WRITE A BACKGROUND OF 125252 THROUGH

1638
1639

;DUT MEMORY, PR INT RESTART HELP FILE,

;OPERATOR TO POWER DOWN THE SYSTEM.

1640
1641

1642 010350
010350
1643
1644 010350
010350
1645
1646 010352

ROUTINE START1

000005

012706

017644

004767

005646

005067

005572

1653 010366

005067

005576

}ggg 010372

104401

006302

010352

1647
1648 010356
o 010356
1650 010362

1651 010362

1652 010366

1656 010376
010376
1657
1658
1659 010402

010402
010406

1660
1661 010410

IF APPLICABLE AND INSTRUCT

004767

170644

005767
002055

170724

START1:

INL INE

<RESET>

:CLEAR THE WORLD
RESET

LET

SP := #SPINIT

:FETCH STACK ADDRESS

CALL

TRAPCT

;s TRAP CATCHER

LET

CONTROL

LET

PPOINT

TYPE

LHELLO

CALL

$SIZE

MOV

JSR

:= #0

CLR

:= #0

CONTROL

;PROGRAM POINTER.
PPOINT
CLR

;PRINT WHO WE ARE
;THIS ROUTINE DETERMINES, MEMORY MANAGEMENT,

16,

JSR
PC,$SIZE
18, AND 22 BIT ADDRESS AND MEMORY SIZE

:SET MEMORY MANAGEMENT BIT

$KT11 LT #0 THEN

TST

BGE
LET

PC,.TRAPCT

;CLEAR OUT CONTROL WORD

;
IF

#SPINIT,SP

CONTROL

:= SMAP

sTHIS SYSTEM HAS

K111

50002%

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113

ROUTINE TO SIZE MEMORY
1662

010410

016767

171010

005542

010416 052767 000001

005534

1663 010416

1666 010424

010424 013767 172354 005542
042767

000177

o 010440 012701

172340

]‘&g

010432

1669 010440
1671 010444

010444

22-JUN-81 15:42
MOV

LET

CONTROL := CONTROL

LET

ENDADD := a#KIPARG CLR.BY #177

010450

010452

LET R1

:= #KIPARO

e 010460

MOV

INCR RO FROM #0 TO #6 BY 7

;CLEAR OUT PARS

CLR

50004$:

005200

LET (R1)+ := #0

1675 010462

e 010464 012711

1679 010470

ki 010470 012707

1681 010474

010474

;4K

END INC

010462 000772
. 010464

LET R1

172300

:= #177600

50003$

CMP
BGT

RO, #6
50005$

CLR

(R1)+

:SET UP 1/0 PAGE IN PAR7

MOV

:= #KIPDRO

#177600, (R1)

:FETCH PDR ADDRESS

MOV

INCR RO FROM #0 TO #7 BY #1

005000

#KI1PARO,R1

BR
50004$
50005$ :

LET (R1)

177600

K |PARG
, ENDADD

INC

50003$:

005021

1677 010464

:ONLY WANT 4K BOUNDARY

MOV

:FETCH PAR ADDRESS

010452 020027 000006
- 010456 003002
1673 010460

#1,CONTROL

BIC
#177 ,ENDADD
;FETCH LAST PAR ADDRESS IN SYSTEM

010446 000401
010450

;INDICATE MEMORY

8IS

:MANAGEMENT

005534

005000

SET.BY #1

$MAP, CONTROL

#KIPDRO,R1

sSET UP FO 4K INTERVALS

CLR

010476 000401

B8R

010500
010502
010502

INC
RO
500068:
P
RO, 47

010500

50007$:

005200

020027

000007

e 010510 012721

077406

. 010506 003003
1683 010510

LET (R1)+ := #77406

1685 010514

END INC

010514 000771
o 010516

1687 010516

ot 010516 012737 000001

1689 010524

010524

105767

170674

177572

;4K

50006$

8GT

500108

MOV

#77406, (R1)+

BR
50007%
500108:

LET

WSRO :=

IFB

SMAP LT #0 THEN

;SET MEMORY MANAGEMENT BIT

MOV

#1,a#SRO

:DO WE HAVE A 22 ADDRESS BIT

TSTB

SMAP

CVMEMAQ DIAGNOSTIC FOR NON-VOLA

ROUTINE TO SIZE MEMORY

1691
1692 010532

010532 + 012737

1693
1694 010540

1696 010540
010540

010542

1697
1698 010542
010542
010550
1699
1700 010556
010556
1701
1702 010556

010556

000001

104401

006506

104401

032767
001403

000402

005374

B8 2 B2

006572

8R3a=r
or

b
e
—

d
b
—

100000

171074

171120

.MAPPED

sTYPE THIS IS A MAPPED SYSTEM

; (MEMORY MANAGEMENT) WITH
BR
sTYPE

THIS IS AN UN-MAPPED SYSTEM

500148$:
:

SLSTBK + #40

sFETCH LAST BAM(ADAID)DRESS WITH OUT MEMORY

$LSTBK

LET

$LSTBK :

SLSTBK SHIFT =1

LET

$LSTBK :

$LSTBK CLR.BY #100000 ;CLEAR Séfid BIT

LET

$LSTBK

#40,8LSTBK

SLSTBK SHIFT =4

;CORRECT LSTBK F OR PRINTING
ASR

TYPE

$LSTBK
$LSTBK,~(SP)
K

$LSTBK

#100000, $LSTBK

sCONTINUE CORREC TING
ASR
ASR

ASR
ASR

TYPDS

500148

; (NO MEMORY MANAGEMENT) WITH

LET

TYPDEC

#2 ,ENDADD

:TELL OPERATOR WHAT KIND OF SYSTEM
BIT
#1,CONTROL
BEQ
50013%

SETIN CONTROL THEN

TYPE

171132

50012%

50012%:

TYPE

171126

3
o

N
o

ADD

IF #1

#20,a#SR3

JFETCH LAST VIRTUAL ADDRESS
$LSTAD ,ENDADD
MOV

50013$:

FRE ZERRR

ENDADD := SLSTAD + #2

LET

005424
005416

ELSE

000040

0O
OO0
00

MOV

ENDIF

- | 222223_._. 82 S
purs

;SETUP FOR 22 BIT ADDRESSING

50002%:

171170
000002

50011%

50011$:

ENDIF

010572
010574

—

3
SO
N

a#SR3 := #20

ELSE

N=O
&S

— —d

016767
062767

—_—
—b

LET

172516

000406

104401

000020

016746
104405

— D
—d
-

:MACHINE?

ENDIF

e
)
—_—

—_ o=
Y

1706
1707 010572

BGE

NNNN

1695

010540

SEQ 0048

002003

—

010530

MACRO M1113 22-JUN-81 15:42 PAGE i}-}

SLSTBK
$LSTBK
SLSTBK
$LSTBK

;TELL OPERATOR HOW MUCH MEMORY WE FOUND
;;SAVE SLSTBK FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII WITH SIGN
;PRINT K OF MEMORY.

1725
1726 010652
1727
1728 010656
1729

010656

1730 010662
010662
010670
1731
1732 010672
1733
1734 010676
010676
1735
1736 010676
1737
1738 010702
010702
1739
1740 010706
010706
010714
1741
1742 010716
010716
1743
1744 010724

104401

006174

004737

001742

023727
001002

010342

104401

002226

000131

010724
» 010732

PAGE 33-4

SEQ 0049

TYPE

+HELP

;PRINT DO YOUR WANT A HELP FILE

CALL

A#FETCH

sFETCH ANSWER

IF Q#ECHO EQ #'Y THEN

;PRINT HELP FILE IF

CMP

+HELPF

006404

004737

001742

023727
001003
012737

010342

000131

000015

TYPE

.BANKO

CALL

A#FETCH

010342

000131

;FETCH ANSWER
JSR

LET a#ECHO := wY

; CHANGE DEFAULT CHARACTER
MOV
#'Y ,a¥ECHO

50016%:

:IF NOT AT BANKO THEN WHERE

IF Q#ECHO NE #'Y THEN

104401

010742

1757
1758
1759 010746
1760
1761 010752

010752
010754

1762
1763 010754

001762
EXIF

CMP
BEQ

500208:
TYPE

.WHERE

;PRINT WHAT IS THE STARTING ADDRESS
;OF ONE OF THE NON-VOLATILE MEMORY
sMODULES.

CALL

a#FETADD

;GO FETCH ADDRESS TO

R4 NE #0

JSR
PC ,a#FETADD
;RELOCATE PROGRAM
TST

BNE
ENDLOOP

IF R3 NE #0 THEN

aNECHO,#'Y
50017%

;CORRECT ADDRESS FLAG
R4
CLR

LOOP

1756 010742

PC,a#FETCH

;LOOK FOR DEFAULT CHARACTER
CMP
AN#ECHO, #15
BNE
500168

LET Ré := #0

005004

50015%

;PRINT IS THERE NON-VOLATILE MEMORY AT ADDRESS 0

IF Q#ECHO EQ #15 THEN

010342

QNECHO #'Y

50015$:

ENDIF

023727
001440

YES

;PRINT HELP FILE

ENDIF
104401

PC,a#FETCH

JSR

BNE
TYPE

010724

1745
1746 010724

22-JUN-81 15:42

50021%

BR
500208
50021%:

;DO NOT HAVE TO RELOCALE IF ADDRESS IS ZERO

—————————————

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

K_4

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE %3-

ROUTINE TO SIZE MEMORY
010754

005703

1765 010760
010760

032767

SEQ 0050
ST

ol 010756 001426

e 010766 001406

BEQ
000001

IF #1 SETIN CONTROL THEN

005172

};gg

LET

010770 010337 172344

MKIPAR2 := R3

LET

010774 012700 040400

RO := #40400

1772

1774 011000
1775 011000

010046

MOV

1776 011002

RO,-(SP)
ELSE

011002 000404
A 011004

1778 011004

011004 010300
011006 062700 000400

1780

1781 011012

g 011012 010046

MOV

RO,=(SP)

1783 011014

ENDIF

1785 011014

LET

1787 011020

LOOP

1789 011020

EXIF

o 011014
5 011014 012701 011034
B 011020
}773?

011020 020127 017646
011026 001402

MOV

R3, 4KIPAR2

;POINT TO PROGRAM ADDRESS REG 2

#40400,R
:WE STARTMOVAT ADDRESS
1.60OF

PUSH

;NO MEMORY MANAGEMENT

1794 011030

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

PUSH

MOV
ADD
:0F 4K BLOCK

::PUSH RO ON STACK

:= #Q1

:FETCH STARTING ADDRESS TO BE MOVED

MOV

R1 EQ #ENDPR

;LEAVE WHEN ENTIRE PROGRAM

:= (R1)+

cMP
BEQ

ENDIF

A(SP)+

R1,#ENDPR
50026%

:MOVE PROGRAM

MOV

(R1)+, (RO)+

B8R

50025$

500268:

JMP

#Q1,R1

500258 :

011032

1177% 011032 000136

R3,R
#400.R0

500248 :

ENDLOOP

011030 000773

011034

B8R
50024$
50023$ :

LET

LET (RO)+

v 011026 012120

1799 011034

RO
:2PUSH RO ON STACK

;HAS BEEN MOVED.

1792 011026

:LOAD PAR2 WITH POINTER TO THE

*4K BLOCK

1773

1779

50023%

;4K CHUNK OF NON-VOLATILE MEMORY

1770 010774

1771

50022%

:WE HAVE MEMORY MANAGEMENT?
BIT
#1,CONTROL

BEQ

1767 010770

:GO TO WHERE PROGRAM HAS MOVED TO
50022%:

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

— —

004767

005162

013701
062701

000034
000046

oo
ooo

add
cdedd
b

— —
— b —
— —d

—— —
— )
S
Ax moo
&8

oo
225

— —
—

— — —

— —
— —

—
—

) —
b

OO0
OO0

—
—

OO0

[«7]

088 o NN 33

(olele]

—

)

OO0
OO0

—_—

o000

—_ =3

N=O

—_ =2

® RR

006606

e g———_

— e b

g2 23
w
~N

—
-

b od
b d

b ab
-

00 0o 00

b
b

©Oo0o00

b ad

-l

co0o

Q1:

010706
062706

22-JUN-81 15:42

PAGE 33-6

SEQ 0051

ENDIF

22 222 22 292 2%

R 5% Ngo
8
o 238 38

ROUTINE TO SIZE MEMORY

012700

010003
162703

017474

50017%:

LET SP := PC + #SPINIT=-.

010102

010003
162703

JRESET UP TRAP LOCATIONS

LET R1

:= a#34 + #STRPAD-$STRAP

:POINT TO NEW LOCATION OF TRAP TABLE
34 ,R1
MOV
TRAP,R1
#STRPAD-$
ADD

010102
160302
010221

010003

162703

005720

JSR

PC,TRAPCT

LET RO := #STRPAD

:FETCH OLD TABLE ADDRESS TO USE IN
MOV
#STRPAD
RO
:CALCULATING TABLE'S OFFSETS

LET R3 := RO - #$TRAP2

:CALCULATE OFFSET BETWEEN TABLE AND
RO,R3
MOV
sus
#STRAP2 ,R3
:$TRAP2 ROUTINE

INLINE <TST (RO)+>

:BUMP OLD TABLE ADDRESS FOR NEXT CAL.

LET R2 := R1 - R3

:R2 NOW CONTAINS NEW ADDRESS
MOV
R1,R2
sus
R3.R2

LET (R1)+ := R2

;LOAD TABLE

LET R3 := RO - #STYPE

sCALCULATE OFFSET BETWEEN TABLE AND
RO,R3
MOV

016370

005720

PC,SP
#SPINIT=-, ,SP

TRAPCT

160302

010221

MOV
ADD

CALL

017462

005720

JFETCH NEW STACK

TST (RO)+

:STYPE ROUTINE

MOV

SUB

R2,(R1)+

#$TYPE ,R3

INLINE <TST (RO)+>

;BUMP OLD TABLE ADDRESS FOR NEXT CAL.

LET R2 := R1 = R3

;R2 NOW CONTAINS NEW ADDRESS
MOV
R1.R2
SuB
R3.R2

LET (R1)+ := R2

;LOAD TABLE

LET R3 := RO - #$TYPOC

sCALCULATE OFFSET BETWEEN TABLE AND
MOV
RO,R3

017212

TST (RO)+

:$TYPOC ROUTINE

INLINE <TST (RO)+>

MOV

SUB

R2,(R1)+

#$TYPOC
.R3

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

CVMEMAQ DIAGOSTg'{Ffifl NON=-VOLA MACRO M1113
1ZE

OO0
— =

010221
010003
162703

XXX 88 &RR AR

OO
— —
— b
— D
OO0
—_— =
P
—_—
2
000
— b
_—
—
—_— e —
=

ebded
e edwd

—_— =
— -

N33 && XK 88

b
cdaded

- -

e2
OO0

—_—

OO0

—

— ot =

OO0

Vil

Ooooo

nana

0©Oooo

bbb

=0V

OO0
—
—_— D
—

NN=O

RFE RRP

—

_—

oo
PR
)

010102
160302

o000
—_

ROUTINE TO

22-JUN-81 15:42

PAGE 33-7

LET R2 := R1 = R3

010102

010003

162703

010102
160302

R3,R2

MOV

R2.(R1)+

s CALCULATE OFFSET BETWEEN TABLE AND
MOV
RO,R3
;$TYPOS ROUTINE

sus

;BUMP OLD TABLE ADDRESS FOR NEXT CAL.

LET R2 := R1 = R3

;R2 NOW CONTAINS NEW ADDRESS
MOV
R1,R2
suB
R3,R2

LET (RD+ := R2

;LOAD TABLE

LET R3:= RO - #STYPON

sCALCULATE OFFSET BETWEEN TABLE AND

TST (RO)+

;S$TYPON ROUTINE

MOV
MOV
suB

010102
160302

LET R2 := R1 - R3

;R2 NOW CONTAINS NEW ADDRESS

MOV

R1.R2

MOV

R2,(R1)+

007124

004737

001742

R3.R2

LET (R1)+ := R2

:LOAD TABLE

LET R3 := RO - #$TYPDS

sCALCULATE OFFSET BETWEEN TABLE AND
;$TYPDS ROUTINE

MoV
sSuB

RO,R3
#$TYPDS ,R3

INLINE <TST (RO)+>

;BUMP OLD TABLE AgDR?S‘S) FOR NEXT CAL.

LET R2 := R1 - R3

;R2 NOW CONTAINS NEW ADDRESS

LET (R1)+ := R2

1064401

RO,R3
#STYPON,R3

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

‘

010221

R2,(R1)+

INLINE <TST (RO)+>

016714

005720

#$TYPOS ,R3

INLINE <TST (RO)+>

sus

010221
010003
162703

SlB

LET R3 := RO - #$TYPOS

017226

005720

;R2 NOW CONTAINS REH ADDRES’S‘2

;LOAD TABLE

160302

010221

SEQ 0052

LET (R1)+ := R2

017166

005720

TYPE

.WHOLE

CALL

SNFETCH

;LOAD TABLE

MOV
suB

R1.R2
R3.R2

MOV

R2.(R1)~

sPRINT DO YOU WANT THE DIAGNOSTIC TO VALIDATE
sALL MEMORY IN THIS SYSTEM.
sFETCH CHARACTER.

JSR

PC,Q#FETCH

———————————————————

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE gS-B
ROUTINE TO SIZE MEMORY
1870

1871 011216

011216
47, 011224

023727
001003

010342

000015

1873 011226
gy 011226

012737

000131

010342

1875 011234
011234

1880
1881 011246

LET

023727
001461

010342

000131

104401

1888 011256
011256
011260

005704
001001

1891
1892 011264
011264
1893
18% 011266
1ags 011266

001762
EXIF

1900
1901 011276
1902
1903 011300

CALL

a#FETADD

;GO FETCH ADDRESS TO BE TESTED

R4 NE #0

104401

005003
005002

PC.a#FETADD

TST

500318

004676

007257

s ILLEGAL ADDRESS FLAG
R&
CLR

LET

PPOINT := R3

;NEW PROGRAM POINTER
R3,PPOINT
MOV

50033s:

TYPE

,NOBLK

RDDEC

MOV

50032%

R4 := #0

104411

1905 011302
011302

JSR

LET

LOOP

012600

1906

LWHERE1 ;PRINT: WHAT IS THE ADDRESS OF THE
;NON=-VOLATILE MEMORY MEMORY UNDER TEST

005004

1o0q 011300

1907 011304
011304

TYPE

ENDLOOP

000771

010367

50031s:

BNE

011272

1898 011272

s ILLEGAL ADDRESS FLAG
R4
CLR

R& := #0

007006

189 011272

1897

;IF NOT ENTIRE SYSTEM FIND OUT WHERE
SNECHO #'Y
CMP
500308
BEQ

LOOP

004737

011262
011264

s CHANGE DEFAULT CHARACTER
MOV
#'Y,NECHO
50027$:

LET

005004

1agy 011252

1889
1890 011262

@WECHO := #'Y

IF QWECHO NE #'Y THEN

011246

882
1883 011246
1884
1885
1886 011252

;LOOK FOR DEFAULT CHARACTER
SNECHO, 415
CMP
BNE
50027%

IF QECHO EQ #15 THEN

ENDIF

1876

1877 011234
01123¢
011242
1878
1879 011244
011244

SEQ 0053

(SP)+,RO

;PRINT WHAT IS THE NUMBER OF 4K

;BANKS TO BE TESTED

sFETCH DECIMAL NUMBER

POP

LET

R3 :=

;CLEAR ADD REG.
R3
CLR

R2 :=

;CLEAR ADD REG.
R2
CLR

LET

;:POP STACK INTO RO

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE §3-9

SEQ 0054

-—

JMULTIPLY THE

#1.R1

500368

:NUMBER OF BANKS TO BE TESTED BY 4K
020000

LET R2 := R2 + #20000
ADD

;ADD 4Kk
#20000,R2

LET R3 := R3 + CARRY
ADC

;ADD OVERFLOW TO
R3
;UPPER WORD

END INC

50037%
BR
50040$:

LET R2 := R2 + @#SAVLOW ;ADD LOWER START ADDRESS
ADD
a#SAVLOW,R2

010344

LET R3 := R3 + CARRY

063703

010346

010342

001066

004737

002074

000401

50035%

CMP
BGT

X
o

NN
[e=le]

adeded
abebdead

OO0

e
cded

OO0

e
cded

OO0

§8 §¥F &<

_
—_——

010337

011354

50037%:
R1
INC
50036%:

005503

010237

005503

aded

—_

—_—

V¥ rR rr WW WWW
rr n
& & &¥F
o0

—_—

— —_—

WW
WW
o

—_—

D
—d

KRR
WW

- b

— ) =D

d
d

WWW

el le]

—_— —
D

(a]=)

— —d b

—

(o]=]

062702

063702

W
~N

-l

INCR R1 FROM #1 TO RO BY
MOV

000001

020100
003004

1924
1925

TST
BEQ

005201

o000

1922
1923

012701
000401

sNO NEED TO CALCULATE END ADD.

IF RO NE #0 THEN

005700
001426

000771

©O0

S
O
oo~y

b
d
d
D
-

Bad

VOO

oD adad

R
—

1908
1909

[elelololelelele

ROUTINE TO SIZE MEMORY

LET R3 := R3 + a#SAVHI
LET @#ECHO := R2

LET @#$HIOCT := R3

CALL

a#ADDCHK

ELSE

ENDIF

R4 NE #0

;ADD UPPER START ADDRESS BITS
@N#SAVHI ,R3

ADD

; STORE AWAY LOWER
R2,a#ECHO
;ADDRESS

MOV

: STORE AWAY HIGHER

MOV
R3,a#SHIOCT
;ADDRESS
JSR

PC,a#ADDCHK

50041%
BR
50035s:
LET R4 := R4 + M

005204

: CARRY OVER ANY OVERFLOW
R3
ADC

;INDICATE OK
R4
INC
50041%:

SEQ 0055

19‘%

1943

011370
011372
011374

944
1945 011376

005704
001001

005700
001402

011402

010367

011376

1946
1947 011402

1948
1949 011406

ENDLOOP

000736

011400

50033s

;UPDATE END ADDRESS IF NECESSARY

IF RO NE #0 THEN

TST

BEQ
LET ENDADD := R3

004566

032767

000001

104401

007506

001424

TYPE

004540

R3,ENDADD

:
500428

ENDIF

007326

500428

;STORE AWAY LAST ADDRESS

MOV

ENDIF

104401

500308:
;PRINT RESTART HELP FILE HEADER

+RESHLP

;ARE WE A MAPPED SYSTEM

~ IF #1 SETIN CONTROL THEN

TYPE

s YES

BIT
BEQ

#1,

CONTROL

3$
5004

;PRINT @772340/

.PARO

MOV

TYPOCS
a#KIPARZ2
;MEMORY MANAGEMENT LOCATION OF PROGRAM
K IPAR2 ,~(SP)
;:SAVE @#KIPAR2 FOR TYPEOUT

.BYTE

013746
104403
006
000

172344

011436

104401

007477

TYPE

.CR1

:PRINT "<CR>'<12><15>

011442

104401

007536

TYPE

.PAR7

PRINT 8772356/777600<CR>
@8772300/77406<CR>
8772316/776406<CR>
@777572/1<CR>

032767
001406

000200

ERRRER2E
—_—

50034$

011426
011432
011434
011435

TYPOS

BYTE

004504

IF #200 SETIN CONTROL THEN

026727
003402

004512

104401

007713

BEQ

50044$

IF ENDADD GT #7600 THEN ;DOES TuéaPHACNlNE CONTAIN MORE
, #7600
ENDADD
50045%
BLE

007500

;THAN 124K?

TYPE

ENDIF

1976 011472

011472

1977
1978 011472

;IS THIS A 22 BIT_ADDRESS ING
BIT
#200, CONTROL
sMACHINE

1974 011466
1975

;:G0 TYPE--OCTAL ASCII
;:TYPE 6 DIGITS
::SUPPRESS LEADING ZEROS

—

38
—

_—

’-

:
500348

011406

1950
1951. 011406
011406
1952
_
1953 011406
1954
-1955 011412
- 01141
0114
1956
1957 011422
1958
1959 011426

TST

BNE

ENDIF

.MMR3

;YES PRINT @772516/20<CR>
50045%:

—

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113 22-JUN-81 15:42 PAGE g3-10

ROUTINE TO SIZE MEMORY

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 53-11
ROUTINE TO SIZE MEMORY

011472

500448:

1979
1980 011472

ENDIF

o 011472

1982 011472

1983
1984

104401

007747

18882

1987 011476

011476 010701
R 011500 062701 000372

1989 011504

011504

}gg?

032767

011512 001404

1992 011514

160000

e 011520 052701

040000

1995 011520

004446

TYPE

,ENABLE

.ENABL

LSB

LET

1999 011524

TYPOCS

TYPE

,RHELP

011524 010146
011526 104403
011530
006
e 011531
000

MOV
TYPOS
BYTE
BYTE
010066

2003
2005

PC,R1
#PWRUP-. ,R1

:ARE WE A MAPPED SYSTEM

BIT

BEQ

#1,CONTROL

500468

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

BIC

#160000,R1

:= R1 SET.BY #40000

;LOOK AT PAR2

BIS

#40000,R1

500468 :
:PRINT RESTART ADDRESS

R1,=(SP)
6
0

::SAVE R1 FOR TYPEOUT
1:GO TYPE=--OCTAL ASCII
S:TYPE 6 DIGITS
*:SUPPRESS LEADING ZEROS

:PRINT REST OF HELP FILE

.DSABL LSB
:WRITE BACKGROUND THROUGH MEMORY

2007 011536
011536

032767

011544 001414

000001

2009 011546

004414

# 011546 016737 004416 172342

2~11 011554

011554

005767

011560 001003

004410

IF #1 SETIN CONTROL THEN

LET @#KIPAR1

:= PPOINT

IF PPOINT EQ #0 THEN

LET

011562 012700 020400

2016 011566

:ARE WE A MAPPED SYSTEM
BIT
#1, CONTROL

BEQ

201% 011562
228}§

MOV
ADD

:REGISTER PRINTERS.

ENDIF

:FETCH RESTART ADDRESS

IF #1 SETIN CONTROL THEN

LET

R 011524

104401

:a777707/

:= PC + #PWRUP-.

1997 011524

2283} 011532

:PRINT SET SWITCH TO ENABLE AND TYPE

:YES

042701

}&3

011514

000001

500438 :

RO := #20400

500473

:FETCH TEST STARTING POINT

MOV

PPOINT , 4K |PAR1

:ARE WE IN BANK 0
ST

BNE

PPOINT

500508

:POINT TO ADDRESS 400, PROGRAM
MOV

#20400.RO

:ADDRESS REGISTER 1
ELSE

SEQ 0056

CVMEMAOQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

566

000402

012700

F_5

22-JUN-81 15:42

PAGE 33-12

SEQ 0057
BR

500508

LET

020000

RO := #200C0O

— s

ELSE

000410

JUNMAPPED SYSTEM
50047%

—

NNOO
NNV

000400

016700

LET

004352

005004

125252

032767
001436

000001

LET

. ENABL

LSB

LET

;CLEAR EXIT FROM LOOP FLAG

:= #0

CLR

:= PC

+ #ROMMD~-.

:= R1

LOOP

sFETCH ROMMD ROUTINE
MOV
ADD

PC,R1
#ROMMD-. ,R1

;LOAD ADDRESS INTO & INCASE WE
R1,a#4
MOV
sHIT A ROM MODULE

50055%:

LET

004314

;START AT TEST BANK
PPOINT RO
MOV

50052%:

004360

Q4:

50054%

:
500548

ENDIF

010137

6
644

RO := PPOINT

50052%

;START AFTER TRAP LOCATIONS
#400,R0
MOV

50053

012720

PRO%RAH

;ARE WE IN BANK 0
PPOINT
TST
50053%
BNE

ENDIF

010701
062701

2046 011632
011632
2047
2048 011632

RO := #400

ELSE

000402

OO0
oo

—_—

LET

o080

o0oOrOM

—
—
—
—
—>
—
i
—_
b

—

(=}

IF PPOINT EQ #0 THEN

005767
001003
012700

50051$:

—
_—
-l

6
602

;POINT TO ADDR55520
;ADDRESS REGISTER 1

ENDIF

274

50051%

(RO)+ := #125252

IF #1 SETIN CONTROL THEN

sWRITE DATA PATTERN
#125252,(R0O)
+
MOV
: THROUGH OUT MEMORY

;ARE WE A MAPPED SYSTEM
BIT
BEQ

#1,CONTROL

50057%

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE ?3'13

SEQ 0058

ROUTINE TO SIZE MEMORY

2052
2053 011646
011646
011654
2054
2055
2056 011656
011656
011660

011670
011672
2065 011676
011676
011700
2066
2067
2068 011702
011702

023737
001014

172342

000026

042701

160000

LET R1

—_— 2

1720

CLR.BY #160000

BIC

RO CLR.BY #160000

MOV
cMP
BNE

LET RO := RO + #DIF1
ADD

006014

020027
001005

040000

012700

020000

:CLEAR OUT PAR

RO,R3

#160000,R3
:POINTER

R3,R1
50061$

IF RO EQ #40000 THEN

50061$:

‘

500608 :

;HAVE WE COMPLETED 4K CHUNK
RO, #40000
cMP

BNE

;OF MEMORY

000200

172342

:HAS BUMP
#DIF1,RO

;POINTER TO END OF PROGRAM

LET RO : = #20000

172342

004240

50062

;YES RETURN PAR1 POINTER

MOV

#20000,RO

;BUMP TO NEXT 4K
ANKIPAR1 := QNKIPAR1 + #200

LET

ADD

ENDIF

005204

;CLEAR OUT PAR

#160000,R1
:POINTER

;BEGINNING OF PROGRAM

ENDIF

023767
001001

PC.R1
#.-04 ,R1

;HAVE WE REACHED

IF R3 EQ R1 THEN

ENDIF

062737

;DISTANCE BETWEEN

MOV
SuB

BIC

—_—

736

PC - #.-0Q4

160000

1726
1

011726
011734

LET R3 :

020301
001002

062700

:WE IN SAME BLOCK OF
CMP
A#K IPAR1,a#K IPARZ2
BNE
500608
s MEMORY

;BEGINNING OF PROGRAM AND HERE

2070
2071 011706
011706
2072 011706
011706
17
1706
1712

IF a#KIPAR1 EQ a#KIPARZ THEN

LET R1

010701
162701

010003
042703

172344

#200,a#K IPAR1

500628:

IF @a#K]PAR1 EQ ENDADD THEN

;HAVE WE REACHED END OF

CMP

@#K |PAR1 ,ENDADD

50063%
BNE
:MEMORY
LET R4

:= R4 + 1

;YES SET FINISHED FLAG

INC

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113

ROUTINE TO SIZE MEMORY

2089 011740
011740
2090
2091 011740
011740
011742

22=-JUN-81 15:42

H S5
PAGE 33-14
ENDIF

2095
2096 011750
011750
’ 011752

020001
001002

011760

011764

1
1
1
1770

:= PC - #.-04

000112
IF RO EQ R1

THEN

103401

LET

ENDIF

EXIF

cYES SET FINISHED FLAG
INC

50066$%:

TST

50055%

MOV
ADD

PC.R1
#PWRDWN-. ,R1

MOV

R1,1%

50056%

BNE

ENDLOOP

000716

010167

500668

;LEAVE [F FINISDEE FLAG IS SET

R4 NE #0

50056%:

LET R1

POWER DOWN MESSAGE

:= PC + #PWRDWN-.

003776
;L
;LOAD ADDRESS

012004

RO, ENDADD

50064%:

001001

010701
062701

sHAVE VEC:?'EACHED END OF MEMORY

:= R4 + M1

ENDIF

005704

. YES BUMP POINTER TO
ADD
#DIF1,RO
;END OF PROGRAM

BLO

005204

000054

LET 18 :=

50065%

50065$:

IF RO HIS ENDADD THEN

004210

sFETCH LOCATICN OF

011776
012000

RO,R1

CMP
BNE

ENDIF

020067

PC.R1

#.-04,R1

JHAVE WE REACHED BEGINNING OF

1
1 774
1

MOV
SUB
;THIS PROGRAM

LET RO := RO + #DIF1

006014

50064%

sFETCH BEGINNING ADDRESS OF

:THIS PROGRAM

—d

—

1772

OO0

LVY]

d
—

—

nro

LET R1

—

1770

OO0

NS o3

2106 011766
011766
2107
2108 011770

062700

50057%:

2092

010701
162701

50063$:

;UNMAPPED SYSTEM

ELSE

000413

2093 011742
011742
011744

2098
2099 011754
011754
2100
2101
2102 011760
011760
2103
2104 011760

SEQ 0059

INTO TRAP INSTRUCTION

sCALCULATE CHECKSUM OF TRAP PAGE
LET R1

:= #0

;ADDRESS OF

TRAP LOCATION

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE §3-1S

SEQ 0060

ROUTINE TO SIZE MEMORY

012010

3
&

pary

N -

Smmm&m
x\n
VOO
W

005003

Tt R Q'Y
R

CLR

LOOP

020127
001401

ENDLOOP

000773

010367

010702
062702

THIS PROGRAM

= PC - #.-04

LET

MOV
ADD

12062
12064

104401
015776

50071$:

R1 EQ R2

R3 := R3 + (R1)+

sADD CONTEgTS OF PROGRAM
(R1)+,R3

JLEAVE WHEN REAC'(NI; END OF PROGRM

ENDLOOP

BEQ

soém

B8R

50071%

50072

LET (R2) := R3

;LOAD CHECK SUM 1'370 CHECKSUM AREA

; TELL OPERATOR TO POWER DOWN THE SYSTEM

1%:

TYPE

#CHKSUM=. ,R2

;R3 CONTAINS CHECK SUM
CLR
R3

R3 := #0

LET

EXIF

PC.R1
#.-Q4 .R1

;R2 CONTAINS ENDPGDggESS OF PROGRAM

R2 := PC + #CHKSUM-,

005460

LET

R3,CSTRPG

;R1 CONTAINS BEGINNING ADDRESS
;OF PROGRAM

020102
001401

010312

50067%

MOV
SuB

000202

$62103

012060

MOV

LOOP

000774

R1,#400
50070%

;SAVE CHECKSUM

LET CSTRPG := R3

005466

005003

012056

CMP
BEQ

50070$:

EALCULA;%CHECKSUM OF

010701
162701

CALCULAVEDCHECKSUH
(R1)+,R3

;EXIF WHEN REACHED END OF TRAP PAGE

EXIF R1 EQ #400

000400

50067%:

LET R3 := R3 + (R1)+

062103

s CHECKSUM WORK REGISTER

LET R3 := #0

— =

2125
2126 012012
012012
2127
2128 012014
012014
2129
2130 012014
012014
2131
2132 012016
012016
012022
2133
2134 012024
012024
012026
2135
2136 012026
012026
2137
2138
2139 012032
012032
012034
2140
2141
2142 012040
012040
012042
2143
2144 012046
012046
2145
2146 012050
012050
2147
2148 012050
012050
2149
2150 012052
012052
012054

CLR

005001

.WORD

PWRDWN

INLINE

< BR .

R3.(R2)

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE i3—16

SEQ 0061

ROUTINE TO SIZE MEMORY

012066

000777
.DSABL
ENDRTN

012070
012070

000207

LSB

50000%
50001$:

RTS

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113

POWER UP ROUTINE

22-JUN-81 15:42
.SBTTL

PAGE 34

SEQ 0062

POWER UP ROUTINE

sTHIS ROUTINE CHECKS THE ENTIRE SYSTEM FOR DATA RETENTION AND OUTPUTS A MEMORY
sMAP OF THE SYSTEM.
ROUTINE PWRUP

010706
062706

2174

LET SP

PWRUP:
:= PC

:FETCH STACK BUFFER

+ #SPINIT=-.

MOV
ADD

005550

032767
001462

000001

005037

172340

005037

172342

012701

172346

00405¢

PC,SP
#SPINIT-.,SP

;1S THIS A MAPPED SYSTEM

IF #1 SETIN CONTROL THEN

BIT

s YES

BEQ

#1, CONTROL

500028

LET a#KIPARO :

;CLEAR OUT PARO
a#K IPARO
CLR

;CLEAR OUT PAR1

LET @#KIPAR1
LET R1

:= #KIPAR3

CLR

a#KIPAR1T

sFETCH MEMORY MANAGEMENT PAR

MOV
#KI1PAR3 ,R1
;LOCATION (DO NOT TOUCH PARZ2 FOR
:IT CONTROLS OUR PC

012700
000401

000001

INCR RO FROM #1 TO #4 BY M

o n0.s
50005%

020027
003002

BGT
LET (R1)+ := #0

005021

PO
— b

012711

177600

012701

172300

roroRPRONNON
— )
- —d =D

RRAVBFR XX && &

—
N
-

000772

NN
— D

END INC

012144
elelelelelale BN ele BNle]
— e
)
=D — D
p——

soéoss

sooo“
INC
RO

005200

LET (R1)

LET R1

CLR

(R1)+

50004$
BR
50005$:
:= #177600

:= #KIPDRO

INCR RO FROM #0 TO #7 BY #1

005000
000401

;SET UP 1/0 PAGE
MOV

#177600, (R1)

sFETCH PDR LOCATION

MOV

#K1PDRO,R1

;SET THEHLUP T0 08 4K INTERVALS

BR
50006%
50007%:

INC

005200

020027

;CLEAR rgses
aecxsrens

000007

50006%:
RO, #7
cMP

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

000771

012200

012737

2214 012232
012232
2215
2216 012236
36
22
2218 012240
012240
2219
2220
2221 012246
012246
2222
2223 012252
012252
2224
2225 012252
2

2229
2230 012262
012262
31
22

SEQ 0063

003003

012170
2197
2198 012172
012172
2199
2200 012176
012

2206
2207 012216
012216
2208
2209 012224
012224
2210
2211 012224
012224

22-JUN-81 15:42 PAGE %4-1

012721

032767
001403

012737

LET (RD+ := #77406

077406

ENDINC

BGT

500108

MOV

#77406, (R1)+

50007%

500108:

000001

000200

000020

;SET MEMORY MANAGEMENT IF NOT

LET a#SRO := #1

177572

MOV

IF #200 SETIN CONTROL THEN

003744

LET a#SR3 := #20

172516

;IS THIS A 22 ADDRESS BIT SYSTEM
BIT
#200, CONTROL
50011$
BEQ
;YES, SET UP 22 BIT ADDRESSING
MoV
#20,3#SR3

"ENDIF

005767
001003

003740

012700

020400

50011$:

IF PPOINT EQ #0 THEN

;ARE WE CHECKING ENTIRE SYSTEM?

s YES
LET RO := #20400
ELSE

000405

016737

003724

012700

020000

;NO

LET a#KIPAR1

172342

003710

012700

000400

PPOINT

50012%

50013$
BR
50012%:
:= PPOINT

LET RO := #20000

;SET UP POINTER TO CHECK THAT
PPOINT ,a#KIPAR1
MOV
sMODULE
;POINT TO PAR1 ADDRESS ZERO
MOV
#20000,RO
50013s:

ELSE

005767
001003

BNE

;DO NOT CHECK TRAP LOCATIONS
MOV
#20400,RO

ENDIF

000410

#1,a#SRO

;ALREADY DONE SO

50014%
BR
50002%:

IF PPOINT EQ #0 THEN

;ARE WE CHECKING ENT!RE SYSTEM?
TST

;YES
LET RO := #400

BNE

PPOINT

50015%

;SKIP TRAP LOCATIONS
MOV
#400,R0

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

POWER UP ROUTINE

22-JUN-81 15:42

2232 012266

PAGE 34-2

ELSE

012266 000402

o 012270

500" »:

2234 012270

LET RO := PPCINT

an— 012270 016700 003674
2236 012274
ENDIF

%%2?

;CALCULATE CHECKSUM OF TRAP PAGE

2242 012274

LET R1

2245
2246 012300

:= #0

2248 012300

020127

Tow 012306 001401

000400

EXIF R1 EQ #400

2254 012312

IF R3 NE CSTRPG THEN

012312 020367 005202
012316 001403
012746 004000

2259 012324

2261 012326

012326 012746 000000

2264 012332

012332

004767

ADD

MOV

003672

CALL -

(R1)+,R3

JEXIF WHEN REACHED END OF TRAP PAGE
P
R1,#400

500208

BR
50017%
500208 :

PUSH #4000

#4000, ~(SP)

;DO CHECKSUMS AGREE?

cMP
BEQ

R3,CSTRPG
50021$

:INDICATE CHECKSUM ERROR

::PUSH #4000 ON STACK

BR
50022%
500218 :
PUSH #0

#0,-(SP)

ENDIF

- 012332

5266 012332

;CALCULATE CHECKSUM

ELSE

012324 000402
il 012326
226

;CHECKSUM WORK REGISTER
CLR
R3

BEQ

ENDLOOP

012310 000773
" 012312

50017$:

2252 012310

ot 012

CLR

LET R3 := R3 + (R1)+

it 012300 062103

2257 012320

;ADDRESS OF TRAP LOCATION

LOOP

o 012

2250 012302
012302

50014$:

LET R3 := #0

005003

PPOINT RO

e 012274

2244 012276
012276

MOV

500168
:

2237
2238 012274

aaed 012274 005001

;FETCH POINTER ADDRESS

ENDIF

012274

500168

TRAPCT

- INDICATE NO ERROR

::PUSH #0 ON STACK

:CHECKSUM ERROR

500228 :

;:LOAD UP TRAP VECTORS WITH
JSR
: TRAP CATCPERS

PC,TRAPCT

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 34-%
N

SEQ@ 0065

POWER UP ROUTINE

2268

2269 012336

012336

22;(13

LET

010701

MOV

suB

:0OF PROGRAM

012344 010702
012346 062702 005154

2275 012352
012352
2276
2277 012354

005003

LET

R2 := PC + #CHKSUM-.

LET

R3 := #0

2279 012354

2281 012356

EXIF

2283 012362

ENDLOOP

2285 012364

012356 020102
s 012360 001401
012362 000774
o 012364
012364 021203
012366 001407

012370 010701
. 012372 062701

(R1)+,R3

:LEAVE WHEN REACHED END OF PROGRAM

CMP
BEQ

R1,R2
50024$

BR
50023$
500248 :
;DO WE HAVE A CHECKSUM ERROR

CMP

(R2) ,R3

BEQ

50025%

:= PC + HERR-.

MOV
ADD

PC,R1
#ERR-. ,R1

MOV

R1,2%

:LOAD ADDRESS INTO TRAP INSTRUCTION
;TELL OPERATOR CHECK SUM ERROR

104401
015233

TYPE
.WORD

28:

2298 012406

ERR

ENDIF

b 012406

2305 012414

ADD

LET 28 := R1

g 012376 010167 000002

i 012412

:ADD CONTENTS OF PROGRAM

002641

2292 012376

2302
2303 01241

R1 EQ R2

LET R1

2291

301

R3 := R3 + (R1)+

:FETCH LOCATION OF ERROR MESSAGE

2289 012370

2300 012406
012406

PC,R2
#CHKSUM=.
,R2

:R3 CONTAINS CHECK SUM
CLR
R3

:YES

2288

2295 012402
52239 012404

(R2) NE R3 THEN

2287

229%

MOV
ADD

50023$ :
LET

e 012354 062103

PC.R1

#.-Q4 ,R1

:R2 CONTAINS END ADDRESS OF

LOOP

o 012354

2286

:R1 CONTAINS BEGINNING ADDRESS

012340 162701 000506

2272 012344

R1 := PC = #.-04

052667

010746

003546

50025$ :

LET CONTROL := CONTROL SET.BY (SP)+

;INDICATE RESULT OF CHECK SUM
BIS
(SP)+, CONTROL

:OF TRAP PAGE
PUSH

LET

(SP)

MOV

PC,~(SP)

::PUSH PC ON STACK

:= (SP) + AHEAD~-.

:CALCULATE HEAD LOACTION

——
e
e
)

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE g‘-‘

POWER UP ROUTINE

012414

2306
2307 012420
012420
2308
2309 012424
2310
2311 012426
2312
2313 012430
012430
2314
2315 012436
012436
2316
2317 012444
012444
2318
2319 012450
012450
2320
2321 012456
012456
012460
012462

2322
2323 012472
012472
2324
2325 012476
012476
012500
2326
2327 012500
012500
2328
2329 012504
012504

062716

003112

012667

000002

ADD

POP
MOV

30%:

015526
016767

003534

003540

016767

003526

003534

012703

172100

012767

000240

003706

005002
000401

012723

HEAD

LET START := PPOINT

;SAVE STARTING POINT
PPOINT,START
MOV

LET L4KST := PPOINT

;WE ARE AT THIS 4K BANK

LET R3 := #172100

;FETCH CSR LOCATIONS

LET TRCATCH := #240

;NOP TRAP CATCHER

INCR R2 FROM #0 TO #16. BY #1

;ENABLE PARITY Fgfl ALL CSRS

000020

MOV

CLR

LET (R3)+ := M
END INC

012704

000114

LET TRCATCH := #0
LET R4 := #1174

#240,TRCATCH

cMP

R2.416.

MOV

#1,(R3)+

50027%

500308

;RESUME HALT IF TRAP
CLR

TRCATCH

;LOAD PARITY LOCATION INTO R4
#114 R4
MOV
;SO THAT NEXT INSTRUCION WILL
:WORK ON ALL MACHINES

LET (R4)

:= PC + #PARTRP-,

;LOAD PARITY TRAP LOCATION WITH
PC, (R4)
MOV
ADD

002140

#PARTRP=.
, (R4)

;ADDRESS OF PARITY TRAP ROUTINE
IF #125252 EQ (RO)+ THEN

125252

000002

#172100,R3

50026$

500308:

003660

PPOINT ,L4KST

B8R

8GT

000001

005067

032767

;PRINT MEMORY MAP HEADER

50027%:
R2
INC
500268:

000771

022720
001016

012524

.WORD

005202
020227
003003

;TO PRINT IT

;:POP STACK INTO 308

TYPE

104401

010714
062714

2339 012524

308
(SP)+,30%

#HEAD=~.
, (SP)

003426

;1S THIS LOCATION VOLATILE
0125252 (RO)+
CMP
BNE
50031%

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

#2, CONTROL

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE 24-2

SEQ 0067

POWER UP ROUTINE

012532
2340
2341 012534
012534
2342
2343
2344 012542
012542
s 012544
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

012570

2359
2360
2361 012576
012576
012600
2362
2363 012600
012600
2364
2365 012604
012604

BEQ

001404

042767

000002

LET CONTROL := CONTROL CLR.BY #2

003416

BIC

ELSE

000405

052767

100000

005267

003404

LET NONVOL

:= NONVOL + #1

000002

003372

042767

000002

003362

005267

BIT

BEQ

LET CONTROL := CONTROL CLR.BY #2
BIC
ELSE

003360

37
2376 012616

500348:

LET R4 := #0

000001

003344

STLOOP:

;CLEAR PARITY
#2,CONTROL
JERROR FLAG

50036%:

ENDIF

032767
001407

50035%

JUPDATE VOL COUNT
INC
vOL

ENDIF

#2,CONTROL

BR
50036%
50035%:

LET VvOL := vOL + #1

005004

#100000, CONTROL

50034%
BR
50031s:
;IF PARITY ERROR THEN ERROR COUNT ALREADY DONE
IF #2 SETIN CONTROL THEN

000402

JERROR FLAG

50033s:

ELSE

032767
001404

#2,CONTROL

sUPDATE NONVOL COUNT
INC
NONVOL

ENDIF

000412

;CLEAR PARITY

50033%
BR
50032%:
;INDICATE NON=VOLATILE
LET CONTROL := CONTROL SET.BY #100000
BIS

003406

50032%

;FLAG FOR NON VOLATILE MEMORY HITS
R4
CLR

FAKED OUT LOOP BECAUSE LOOP IS OUT SIDE OF ADDRESS RANGE
IF #1 SETIN CONTROL THEN

;ARE WE MAPPED
BIT

[F @#KIPAR1 EQ ENDADD THEN

BEQ

n g(NTR(l

50037%

;IS IT TIME TO LEAVE?

e ——————————————————————————————

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE g‘-é
POWER UP ROUTINE
012616

2378 012626
012626
2379

2380 012632
012632
2381
2382 012632
012632
3 012634
238
2384 012634
012634

023767
001002

172342

000167

001356

SEQ 0068
CMP
ngs

003350
INLINE <JMP

EDLOOP> :LEAVE LOOP

ENDIF

: 012640

020067
001002

003334

2386
2387 012642
012642

000167

001342

50041%
BR
50037%:
IF RO EQ ENDADD THEN

;IS IT TIME TO LEAVE?
CMP
RO ,ENDADD
;JYES

INLINE <JMP

BNE

012654

500428:

ENDIF

022720
001013

032767
001404

50041%:

IF #125252 EQ (RO)+ THEN

125252

500428

EDLOOP> ;LEAVE LOOP
JMP
EDLOOP

ENDIF

2390
2391 012646
012646
2392
2393 012646

EDLOOP

50040%:

ELSE

000405

a#K IPAR1 ,ENDADD
50040%

;DOES THIS LOCATION CONTAIN
gagz%52.(RO)+
CMP
BNE

s CORRECT DATA

000002

003276

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

003266

LET CONTROL := CONTROL CLR.BY #2
BIC
#2,CONTROL

BEQ

50044$

;CLEAR PARITY ERROR FLAG

2401
2402 012672
012672
012674

2403
2404 012674
012674
2405
2606
2407 012700
2700

042767

000002

ELSE

000402

005267

LET NONVOL

003262

:= NONVOL + M

INC

:YES, UPDATE

NONVOL

sNON=VOLATILE COUNT
ENDIF

000412

50045%
BR
500448:

ELSE

50045%:

50046%
BR
50043$:
;1F PARITY ERROR THEN ERROR COUNT ALREADY DONE

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113

POWER UP ROUT INE

2412 012702
012702
012710
2413
2414
2415 012712
ruyg 012712
2617 012720
012720
012722
2418
2419 012722
012722
2420
2421
2622 012726
012726
2423
2424 012726
012726
2425
2426 012726
012726
012734
2627
2428 012736
012736
012744
2429
2430
2431
2432 012746
012746
012750
24%2
24
2435 012754
012754
2436
2437
2438 012760
012760
012762
2439
2440
2441 012766
012766
012770

2444 012772
012772
2445
2446 012776
012774
2447

032767
001404

062767

000002

ke
000002

22-JUN-81 15:42 PAGE S‘-?
IF #2 SETIN CONTROL THEN

003250

BIT
BEQ

'l 2,CONTROL
7
5 004L7%

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

003240
ELSE

000402

005267

SEQ 0069

50050%
BR
50047%:
:= vOL + #1

LET vOL

’
003236

:NO, UPDATE
INC

VoL

;VOLATILE COUNT
ENDIF

500508:

ENDIF

032767
001421

000001

003224

023737
001014

172342

172344

IF #1

50046%:
SETIN CONTROL THEN

:ARE WE MAPPED
BIT

BEQ

IF @#KIPAR1 EQ a#KIPAR2 THEN

#1,

CONTROL

50051$

;ARE PARS IN SAME BANK?
,a#K | PAR2
a#K [PAR1
CMP
BNE
50052%
;YES

;DISTANCE BETWEEN BEGINNING OF PROGRAM AND HERE

010701
162701

042701

010003
042703

LET R1

PC.R1
#.-04.R1

001116

MOV
suB

160000

;CLEAR OUT PAR POINTER
LET R1 := R1 CLR.BY #160000
BIC

#160000,R1

160000

;CLEAR OUT PAR POINTER
LET R3 := RO CLR.BY #160000
MOv
BIC

RO,R3
#160000,R3

;HAVE WE REACHED BEGINNING OF PROGRAM
IF R3 EQ R1 THEN
R3,R1
CMP

020301
001002

062700

:= PC - #.-0Q4

BNE

50053s

:BUMP POINTER TO END OF PROGRAM
LET RO := RO + #DIF1

006014

ADD

ENDIF

50053$:

#DIF1.RO

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113
POWER UP ROUT INE

22-JUN-81 15:42

PAGE 34-8

SEQ 0070

ENDIF

2448 012776

012776

2449
2450 012776

500528:

ELSE

012776 000407

- 013000

; ADDRESS OF BEGINING OF PROGRAM
LET R1 := PC = #.-04

2455 013006

IF RO EQ R1 THEN

013000 010701
e 013002 162701 001150
01
020001
o 013010 001002

2457
2458 013012

PC,R1
.04 ,R1

ENDIF

013016

2461
2462 013016

ENDIF

s 013016

2464 013016
013016

032700

017777

2467 013024
013024

000167

177556

2469
2470 013030

CMP
BNE

RO,R1
50055$

#DIF1.RO

50055$:

500548 :

IF #17777 SETIN RO THEN

:ARE WE AT 4K BOUNDARY?
BIT
#7777.R0

BEQ

INLINE <JMP STLOOP>

500568

:CONTINUE LOOP & BYPASS PRINT
JMP STLOOP

:ROUT INES
ENDIF

013030

:POINTER REACHED PROGRAM?

ADD

2460 013016

MOV
SUB

:BUMP POINTER TO END OF PROGRAM
{ET RO := RO + #DIF1

. 013012 062700 006014

2468

50054$

50051$:

3452
3453 013000

013022 001402

500568:

2:.7§
013030
o 013030 012703 172100

LET R3 := #172100

:ENABLE PARITY

:FETCH CSR
LOCATIONS
MOV
#172100.R3

2475 013034

e 013034 012767 000240 003322

LET TRCATCH := #240

:NOP TRAP CATCHER

2477 013042
013042

INCR R2 FROM #0 TO #16. BY #1

:ENABLE PARITY FOR ALL CSRS
CLR
R2

005002

013044 000401
013046
013046 005202
013050
013050 020227 000020

2480

013056 012723 000001

#240. TRCATCH

BR
50057%
500608:
NC
R2
00578
CMP
R2.#16.

- 013054 003003
2479 013056

MOV

LET (R3)+ := m

BGT

500618

#1.(R3)+

MoV

CVMEMAQ DIAGNOSTIC FOR NON=-VOLA MACRO M1113 22-JUN-81 15:42 PAGE §4-9
POWER UP ROUTINE
2481 013062

END INC

013062 000771
2482 013064
2483 013064
248t 013064

005067

2485 013070
286 013079

005004

2487 013072
013072

005767

003074

026767

003060

208 013076

2489 013100

013100

Szg?

013106

2492 013110

3110

2493
2494 013112

001405
101001

003054

LET R4 := #0

;CLEAR PRINT FLAG
CLR

IF PARCNT NE #0 THEN

;WE FOUND SOME PARITY ERRORS
TST
PARCNT

IF vOL LOS NONVOL THEN

LET R4 := R4 + ¥

005204
ENDIF

005767

001405

026767
003001

013130

005204

2505

003040

IF vOL LE NONVOL THEN

003034

LET R4

2513 013136
214 013136

000167

013134

2515 013142
013142

50063%

001002

.
INLINE <JMP
ENDIF

(MP
BGT

JHITS

INC

vOL

50064%

VOL , NONVOL
50065%
R4

50064$:

IF R4 EQ #0 THEN

000450

50065%:

ENDIF

005704

;MIGHT BE VOL

:= R4 + M
2

ENDIF

2509 013132

INC

“+'BEQ

;NO

2508 013132

JHITS

;HAVE FOUND ANY HITS?
:
s ST

:YES

013132

2510 013132
013132

vOL , NONVOL

50062% :

IF VOL NE #0 THEN

0C3046

2506 013132

2507

50062%

5S0063%:

ENDIF

013120
013126

2502
2503
2504 013130

(MP

BHI

2500

2501 013120

:MAKE SURE IT IS

;STILL NON VOLATILE

297 013112

2499

;RESUME HALT IF TRAP
CLR
TRCATCH

BEQ

2495
2496 013112

013116

BR
50060%
50061%:

LET TRCATCH := #0

003274

013112

2498 013112
013112

SEQ 0071

JWE HAVE HITS IN NON VOLATILE
ST
R4

BNE

20%>

50066%

;GO TO NORMAL ROUTINE (NO ERRORS)
JMP
208
50066%:

;

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113
POWER UP ROUT INE

22-JUN-81 15:42

2516

2517 013142
013142

026767

e 013150 001066

003032

PAGE 34-10

SEQ 0072

IF L4KST EQ START THEN

003026

;ONLY NEED TO PRINT ONE LINE
MP
gl.xsr START

BNE

0067$

2519

:TAKE CARE OF ANY PROBLEMS WITH START ADDRESS

2521 013152

LET CONTROL := CONTROL SET.BY #100000

2520

‘BEING VOLATILE WITHIN NON=VOLATILE MEMORY

- 013152 052767 100000 003000

2523 013160
013160

032767

e 013166 001404

000001

BIS

IF #1 SETIN CONTROL THEN
BIT

002772

:MAPPED
#1,CONTROL

BEQ

2525
2526 013170

50070s

:FETCH LAST BANK ADDRESS
(ET END := a#KIPAR1

S 013170 013767 172342 002770

2528 013176

ELSE

013176 000405

2529

#100000, CONTROL

013200

MOV

K IPART , END

B8R

50071%

500708:

530
2531 013200

:FETCH LAST BANK ADDRESS
LET END := RO - #2
;

013200 010067 002762
-t 013206 162767 000002 002754

MOV
SUB

RO, END
#2.END

2533 013212

. 013212

ENDIF

2535 013212

CALL

2537 013216

CALL

TAB

PUSH

RI1

LET R1

:= VOL

:FETCH VOL COUNT

TYPDEC

:PRINT ERROR COUNT

2545 013234

e 01323¢ 004767 001124

CALL

TAB

JSR

2547 013240

LET R1

:= PARCNT

MOV

o 013212 004767 001172
o 013216 004767 001142

2539 013222

i 013222 010146

MOV

R1,=(SP)

2541 013224

i 013224 016701 002734

2543 013230

013230 010146
e 013232 104405

MOV
TYPDS

R1,=(SP)

s 013240 016701 002726

2549 013244
013244
2550

010146

013246 104405

2551 013250

MOV

TYPDS

R1,=-(SP)

500718 :
;PRINT ADDRESSES

JSR

PC.PRINT

JSR

PC,TAB

:PRINT TAB

::PUSH R1 ON STACK

MOV

VOL .R1

:SAVE R1 FOR TYPEOUT
2280 TYPE--DECIMAL ASCII WITH SIGN
:PRINT TAB

PC,TAB

:FETCH PARITY COUNT

PARCNT .R1

TYPDEC R1
:PRINT PARITY ERROR CNT.
;2SAVE R1 FOR TYPEOUT

1:GO TYPE--DECIMAL ASCII WITH SIGN
IF PARCNT EQ #10. THEN

;DO WE HAVE 10 OR MORE

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE §4-11
POWER UP

SEQ 0073

ROUTINE

013250

2553
2554 013260
2555
2556 013264
3264

026727
001002

002716

104401

015100

CMP
BNE

000012

TYPE

012601

2578
2579 013352
013352
013354
2580
2581 013354
013354
013362
2582
2583 013370
013370
2584

,MORE

MOV

001046

032767
001407

000001

002660

013767
062767

172342
000200

002666
002660

50072%:

POP

CALL

CRLF2

;RESTORE R1

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

:UP DATE START BANK TO NEXT LEVEL TO BE TESTED
IF #1 SETIN CONTROL THEN
JMAPPED
BIT
01 CONTROL

BEQ

MOV
ADD

ELSE

MOV

ENDIF

ELSE

032767
001407

016767
162767

000001

002636
000200

002624

016767
162767

50074%:

IF #1 SETIN CONTROL THEN

BIT

BEQ

;MAPPED

" CONTROL

500768

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

002620
00000

RO,START

50075%
BR
50067%:

002622
002614

000406

a#K IPAR1,START
#200,START

50074%
BR
50073s:
LET START := RO

002652

000532

50073%

LET START := a#KIPAR1 + #200

000402

010067

JPRINT OR MORE

;:POP STACK INTO R1

(SP)+,R1

2563 013272
013272
013300
2564
2565 013302
013302
013310
2566
2567 013316
013316
013320
2568
2569 013320
013320
2570
2571 013324
013324
2572
25735 013324
013324
013326
2574
2575 013326
013326
013334
2576
2577 013336

50072%

;PARITY ERRORS

ENDIF

004767

PARCNT ,#10.

BR
50077%
50076%:

LET END := L4KST - #2
MOV

002604
002576

SuB

ENDIF

50077%:

;LAST ADDRESS
L&KST END

#2 END

CVMEMAQ DIAGNOSTIC FOR NON=-VOLA MACRO M1113 22-JUN-81 15:42 PAGE %4-12

SEQ 0074

POWER UP ROUTINE

013406

rR RRA ggg § $8 83
g8 ININVIRN

ey g

22 22 22 22

—

wnan

—_—

XX ¥R Y

WM
=

o000

=% 388

2593
2594 013414
013414
2595
2596 013420
013420
013424
2597
2598 013426
013426
2599
2600
2601 013426
013426
2602
2603 013434
013434
2604
2605 013440
013440
013446

004767

001014

005767
002012

002560

004767

CALL

;PRINT ADDRESSES
PC.PRINT
JSR

IF CONTROL LT #0 THEN

;ARE WE CHECKING NON-VOL

TST

CONTROL

501008

BGE
CALL

000756

TAB

JSR

;:PRINT

PC.TAB

TAB

;NO ERRORS IN THIS PART

012746
104405

000000

004767

000744

012746
104405

MOV

TYPDS

MOV

000000

TYPDS

#0,-(SP)

TYPDEC #0
;:SAVE #0 FOR TYPEOUT

;:G0 TYPE=-=DECIMAL ASCII WITH SIGN
CALL

TAB

TYPDEC

100000

004767

000700

032767
001404

000001

013767

172342

002524

162767

501008:

;INDICATE THAT NOW THIS IS NON-VOLATILE
LET CONTROL := CONTROL SET.BY #100000
BIS
#100000, CONTROL

CALL

:PRINT <CR><LF>

CRLF2

JSR

002512

IF #1 SETIN CONTROL THEN
BIT

002510

;LAST 4K BANK
LET END := @#KIPAR1
MOV

PC,CRLF2
:MAPPED
#1,CONTROL
501018

BEQ

ELSE

000405

010067

sNO PARITY EITHER

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

052767

:PRINT TAB

PC.TAB

JSR

a#KIPAR1 END

50101$:

0025C2
000002

;LAST ADDRESS
LET END := RO - #2

MOV
SuUB

002474
ENDIF

016767

002502

004767

000704

002476

K
RO,END
#2 ,END

50102%:

LET START := L&4KST
CALL PRINT

50102%

MOV

;PRINT ADDRESSES

JSR

L4KST,START
PC.PRINT

|—

2585 013370
013370
2586
2587 013374
013374
013400
2588
2589 013402
013402
2590
2591
2592 013406

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113
POWER UP ROUT INE

22-JUN-81 15:42

2620

na 013504 004767 000654

- 013510 010146

MOV

R1,=(SP)

2625 013512

SEQ 0075
CALL

TAB

PUSH

010146
104405

MOV
TYPDS

R1,=-(SP)

CALL

2631 013526

LET R1 := PARCNT

b 013526 016701 002440

2633 013532
013532

010146

MOV

o 013534 104405

TYPDS

R1,-(SP)

2635 013536

22?39

:SAVE R1
:FETCH VOL COUNT

MOV

TA8

104401

1360 TYPE--DECIMAL ASCII WITH SIGN

TYPE

004767

MOV

(SP)+,R1

50103$:

CRLF?2

;RESTORE R1
;PRINT <CR><LF>

JSR

PC.CRLF2

:UP DATE START BANK TO NEXT LEVEL TO BE TESTED
032767

s 013566 001407

000001

002372

IF #1 SETIN CONTROL THEW

013604 000402

#1, CONTROL

50104%

LET START := a#KIPAR1 + #200

013570 013767 172342 002400
e 013576 062767 000200 002372

2651 013604

BLQ

2649 013570

ELSE

013606

MOV
ADD

a#KIPART,START
#200,START

B8R

50105%

MOV

RO, START

50104$:

2652
2653 013606

LET START := RO

013606 010067 002364

2654
2655 013612

PARCNT
. #10.
50103%

;PRINT OR MORE

POP
R1
::POP STACK INTO R1
CALL

000560

2646

2647 013560
013560

,MORE

ENDIF

i 013552

v 013554

;DO WE HAVE 10 OR MORE

cMP
BNE

:PARITY ERRORS

2640 013552

2644 013554

PARCNT ,R1

TYPDEC R1
;PRINT PARITY ERRORS
;:SAVE R1 FOR TYPEOUT

015100

2642 013552
L 013552 012601

PC.TAB

JFETCH PARITY COUNT

MOV

22?3,3 013546

VOL ,R1

:PRINT TAB

JSR

IF PARCNT EQ #10. THEN

013536 026727 002430 000012
013544 001002

PC,TAB

TYPDEC R1
:PRINT ANY ERRORS
;:SAVE R1 FOR TYPEOUT
1360 TYPE=-=DECIMAL ASCII WITH SIGN

2629 013522

e 013522 004767 000636

:PRINT TAB

ISR

::PUSH R1 ON STACK

LET R1 := VOL

013512 016701 002446

2627 013516
013516
e 013520

PAGE 34-13

2621 013504

2623 013510

ENDIF

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 54-14

POWER UP ROUT INE
2656

SEQ 0076

013612

50105$:

2657 013612

ENDIF

- 013612

2659 013612
013612

20%:

005704

500758 :

IF R4 EQ #0 THEN

:HAVE WE PRINTED ANYTHING UP TO NOW
ST
R4

013614 001132

BNE

2661 013616

013616 026767 002354 002354
013624 001013

2664 013626
013626
013634

026767
002404

002332

002326

2666 013636
013636

042767

100000

002314

IF START EQ L4KST THEN

IF VOL GE NONVOL THEN

ELSE

2670 013646

VOL , NONVOL
501108

B8R
50111$
501108:

ENDIF

013654

i 013654

ENDIF

2676 013654

IF VOL GE NONVOL THEN

2679

50107$:

:
005767

. 013670 002045

;NO, ARE WE IN NON VOLATILE

CMP
BLT

p—

BGE

2682

VOL,NONVOL
50112

. WERE WE LOOKING FOR NON-VOLATILE

IF CONTROL LT #0THEN

002270

#100000, CONTROL

50111$:

2673
2674 013654

CONTROL

50113$

:ARE WE A MAPPED SYSTEM?
032767

013700 001407

000001

002260

IF #1 SETIN CONTROL THEN
BIT
#1, CONTROL

BEQ

LET END := L4KST - #200

013702 016767 002272 002256
: 013710 162767 000200 002250

013716 000406
013720

501148

:FETCH LAST 4K BANK

2686 013702

2688 013716

P
BLT

BIS

2672 013654

2683 013672
013672

START,L4KST
50107$

LET CONTROL := CONTROL SET.BY #100000

by 013646 052767 100000 002304

2680 013664
013664

cTMP
BNE

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

013644 000403
. 013646

;MAKE SURE THAT CONTROL IS
:SET PROPERLY

2668 013644
#

013654 026767 002304 002300
013662 002451

50106%

MOV
suB

ELSE

L4KST ,END
#200,END

B8R
50115%
501148:

CVMEMAO 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
270
2706 013764
013764
2707
2708 013770
013770

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

2717
2718 014006

014006
014012

2719
2720
2721 014014
014014
014022
272%
272
2724 014024
014024

016767
162767

002254
000002

22-JUN-81 15:42

PAGE 34-15

SEQ 0077

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

002240
002232

suB

ENDIF

004767
004767

000450

000420

012746

MOV
TYPDS

104405

004767

000406

012746
104405

000000

004767

000350

016767

002204

042767

100000

MOV
TYPDS

L4KST ,END
#2 ,END

50115s:

CALL

TAB

TYPDEC

CALL

TAB

;PRINT ADDRESSES

JSR

PC.PRINT

JSR

PC.TAB

:PRINT TAB

:NO ERRORS

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

#0,-(SP)

JSR

:PRINT TAB

PC,TAB

TYPDEC #0
:NO PARITY ERRORS
;:SAVE #0 FOR TYPEOUT
:2G0 TYPE=--DECIMAL ASCII WITH SIGN

#0,-(SP)

CALL

CRLF2

JSR

:PRINT <CR><LF>
PC.CRLF?2

002200

LET START := L4KST
MOV

002154

;INDICATE NOW LOOKING FOR VOLATILE
LET CONTROL := CONTROL CLR.BY #100000
8IC
#100000, CONTROL
ENDIF

50113s:

ELSE

000436

L4KST ,START

BR
50116$
50112%:

;YES, WERE WE LOOKING FOR VOLATILE
005767

002433

IF CONTROL GE #0 THEN

002146

:YES,
032767
001407

000001

TST

CONTROL

501178

BLT

002136

ARE WE MAPPED

IF #1 SETIN CONTROL THEN
BIT

BEQ

#1, CONTROL

501208

;FETCH LAST 4K BANK BEFORE CHANGE

016767

002150

002134

LET END := L4KST - #200
MOV
L4KST END

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113
POWER UP ROUT INE

22-JUN-81 15:42

PAGE 34-16

SEQ 0078

. 014032 162767 000200 002126
2726 014040

ELSE

014040 000406

s 014042

SUB

#200, END

B8R

50121$

501208 :

2728
2729 014042

;:FETCH LAST ADDRESS BEFORE CHANGE
LET END := L4KST - #2

014042 016767 002132 002116
014050 162767 000002 002110

MOV
suB

2731 014056
01405

ENDIF

2733
2734 014056

:PRINT ADDRESSES
CALL PRINT

2732

e 014056 004767 000326

2736 014062
o 014062

004767

CALL

000252

L4KST ,END
#2 ,END

50121$:

CRLF2

JSR

PC,PRINT

JPRINT <CR><LF>
JSR
PC,CRLF2

2738

;INDICATE NOW LOOKING FOR

2740 014066

LET CONTROL := CONTROL SET.BY #100000

2742
2743 014074

:BUMP POINTER
(ET START := L4KST

2739

;NON=-VOLATILE MEMORY

S 014066 052767 100000 002064

BIS

iy 014074 016767 002100 002074

MOV

2745 014102
2746

ENDIF

014102

2747 014102

2748
2749 014102

2751 014102
014102

g;g

032767

014110 001410

000040

104401

2759 014124
014126

062767

LET R1

3;% 014122 015111

2761 014132

014132

:DO WE PRINT TRAP PAGE CHECKSUM
BIT
#40, CONTROL

;ERROR.

014112 010701
st 014114 062701 000775

2756 014120

501068 :

IF #40 SETIN CONTROL THEN

002050

2754 014112

2760

50116$:

ENDIF

e 014102

TYPE

1008 :
000040

.WORD

:= PC + #TRAPER-.

TRAPER

BEQ

YES

ENDIF

50122%

;FETCH MESSAGE

MOV
ADD

PC.R1
#TRAPER-. ,R1

:TELL OF ERROR

LET CONTROL := CONTROL CLR.BY #40
BIC

002026

L4KST,START

50117$:

ENDIF

014102

#100000, CONTROL

: INDICATE
#40, CONTROL

:MESSAGE ALREADY PRINTED
50122%:

S——

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 F (GE 34-17

SEG 0079

POWER UP ROUTINE

2763 014132
0146132
2764
2765 014136
014136
2766
2767 014142
014142
2768
2769 014146
2770
2771

014146
014154

2772 014156
014156
2773
2774 014164
014164

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

2786 014210
014210
014212
2787
2788
2789 014214
014214
014222
2790
2791 014224
014224
014232
2792
2793 014240
014240
014242
9%
27
2795 014242
014242
014246

005067
005067

LET vOL

002026
002020

005067

002024

032767

000001

002004

062737

000200

172342

012700

020000

013767

172342

001641

CLR

;CLEAR NON-VOLATILE FLAG
NONVOL
CLR

LET PARCNT := #0

;CLEAR PARITY COUNT

CLR

LET a4KIPAR1

002002

:= ANKIPART + #200 ;GOTO NEXT BANK

ADD

;RETURN TO ADDRESS 0 PAR1

LET L4KST := a#K IPART

;FETCH NEXT BANK
a#KIPART ,L4KST
MOV

MOV

INLINE <JMP
EDLOOP:

005704
001041

JFETCH NEXT BANK
RO,L4KST
MOV

000001

001736

013767

172342

001734
001726

162767

IF R4 EQ #0 THEN

50124%:

STLOOP>

s CONTINUE LOOP

000200

IF #1 SETIN CONTROL THEN

BNE
;ARE WE MAPPED?
BIT

BEQ
LET END := a#KIPAR1 - #200

LET END := RO - #2
001712

so1zss
#1,CONTROL

50126%

:FETCH LAST 4K BANK

K IPART,END

B8R

501278

:
501268

001720
00000

STLOOP

MOV

SUB

ELSE

000405

JMP

UNDER TEST
;DO WE NEED TO PRINT LAS{S?EHORY
:YES

032767
001407

#20000,R0

501248
BR
50123s:

LET L4KST := RO

176376

#200,a#K IPAR1

LET RO := #20000

ELSE

001774

PARCNT

;ARE WE MAPPED?
BIT
#1,CONTROL
50123%
BEQ
;YES

ENDIF

000167

voL

LET NONVOL := #0

IF #1 SETIN CONTROL THEN

000402

010067

;CLEAR VOLATILE FLAG

:= #0

#200, END

:FETCH LAST ADDRESS

MOV
SUB

RO, END
#2. END

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 84-18

POWER UP ROUTINE

2797 014254
014254
2798
2799 014254
014254
014260
014264

014266

2805
2806 014272
014272
014276

ENDIF

004767

005767
002012

004767

14304

012746

014310

sPRINT ADDRESSES
JSR
PC.PRINT

;WAS LAST CHUNK OF MEMORY
TST
CONTROL

501308
BGE
;NON-VOL = YES, PRINT NO ERRORS

000072
MOV
TYPDS

MOV
TYPDS

104405

IF CONTROL LT #0 THEN

001674

012746
104405

014300

CALL

000130

50127%:

#0,-(SP)

CALL

TAB

;PRINT TAB
JSR

TYPDEC

;PRINT ANY ERRORS

CALL

TAB

;PRINT TAB
JSR

TYPDEC

;PARITY ERRORS

]
;:SAVE #0 FOR TYPEOUT
SIGN
WITH
ASCII
L
TYPE==DECIMA
::G0

CALL

000022

PC,TAB

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

ENDIF

004767

PC,TAB

50130%:

CRLF2

;PRINT <CR><LF>

JSR

PC.CRLF?2

50125$%:

2818
2819 014316
014316
014320
2821
2822 014324
014324

2823
2824

2825 014330
2826 014332
2827
2828 014334
014334
2829
2830 014336
014336
014336
014336

LOCATION OF FINISHED MESSAGE

010701
062701

:= PC + #TAF-.

001037

MOV
ADD

PC.R1
R1
#TAF-.

MOV

R1,18%

? INTO TRAP INSTRUCTION
010167

104401
015357
000000

000207

000002
: TELL OPERATOR WE ARE FINISHED

TyPE

.WORD

TAF

INL INE

<HALT>

HALT

5S0000$:
50001%:

RTS

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

POWER UP ROUTINE

2832 014340
014340
2833
2834
2835 014340
014340
2837
2838 014342

22-JUN-81 15:42

ROUTINE CRLF2

2843
2844 014354
2845 014356
2846
2847
2848 014360
014360
2849
2850 014362
014362
014362
014362

CRLF2:

:SAVE R1

PUSH
MOV

010146

R1
R1,-(SP)

::PUSH R1 ON STACK

sFETCH LOCATION OF <CR><LF> MESSAGE

010701
062701

LET R1

010167
104401
016155

:= PC + #CRLF1=,

001611

;LOAD AD DRE?S INTO TRAP INSTRUCTION
LET 5

284

2841 014350
5 014350

0D 7
PAGE 35

000002

MOV
ADD

PC,R1
#CRLF1=.
R

MoV

R1.5%

;TELL OPERATOR <CR><LF>

5%:

TYPE

.WORD

CRLF1

;RESTORE R1

POP

MOV

012601
ENDRTN

000207

«SP)+,R1

::POP 'STACK INTO R1
50000%:
50001%:

RTS

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-B1 15:42 PAGE §6
POWER UP ROUT INE
2852 014364

2857
2858 014366

014366
- 014370

2860
2861 014374

i 014374

2863

2864 014400
5322 014402

2867
2868 014404
- 014404

010701
062701

010167
104401
015450

001060
:LOAD ADDRESS INTO TRAP INSTRUCTION
LET 68 := R

MOV
ADD

PC,R1
#TAB1=. ,R1

MOV

R1,6$

;TELL OPERATOR TAB
6$:

TYPE
.WORD

TAB1

:RESTORE R1
R1
(SP) +,R1

POP
MOV

012601

ENDRTN
000207

::PUSH R1 ON STACK

;FETCH LOCATION OF TAB MESSAGE
LET R1 := PC + #TAB1-,

000002

TAR:

:SAVE R1
PUSH
R1
MOV
R1,=(SP)

010146

2870 014406

014406
014406
014406

SEQ 0082

ROUTINE TAB

014364

2853
2854
2855 014364
ot 014364

;:POP STACK INTO R1

50000%:
50001$:
RTS
PC

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
PRINT ADDRESSES ROUTINE

22-JUN-81 15:42
.SBTTL

F_7

PAGE 37

SEQ 0083

PRINT ADDRESSES ROUTINE

sTHIS ROUTINE PRINTS THE ADDRESSES IN THE MEMORY MAP

2876 014410
014410
2877
2878 014410
014410
014416
2879
2880 014420
014420
2881 .
2882 014424
014424
2883
2884 014426
014426
2885
2886 014432
014432
2887
2888 014436
014436
2889
2890 014442
014442
2891
2892 014446
01444€
2893
2894 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

ROUTINE PRINT

032767
001416

000001

016702

001552

001542

IF #1

005001

004767

000366

004767

177726

016702

001524

012701

017776

004767

000346

JARE WE A MAPPED SYSTEM

BIT
BEQ

LET R2 := START

JYES, FETCH 4K BANK
MoV

LET R1

JALWAYS AT 4K BOUNDARY

:= #0

CLR

CALL P22BAD

sPRINT START ADDRESS
JSR

CALL

;PRINT TAB

TAB

TYPOS
BYTE

104403

004
000

.BYTE

END ,R2

LET R1

;LAST ADDRESS IN 4K BANK
#7776 ,R1
MOV

:= #17776

JSR

000001

:= START

#0,-(SP)

TYPOCS

;FETCH BEGINNING ADDRESS

MoV

START ,R1

TST

#1,-(SP)

BYTE

50004

#0,.4

: TYPE UPPER BIT AS ZERO
;:SAVE #0 FOR TYPEOUT

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

MOV

TYPOS

PC,P22BAD

50003s
BR
500028:

::SUPPRESS LEADING ZEROS

ELSE

000404

PC,P22BAD

JFETCH LAST 4K BANK
MoV

BLT

012746

LET R2 := END

IF R1 GE #0 THEN

MOV

START ,R2

PC.TAB

LET R1

001516

#1,CONTROL
50002%

JSR

CALL P22BAD

005701
002405

012746
104403
004

SETIN CONTROL THEN

ELSE

000442

016701

PRINT:

50005%
BR
:
500048
TYPOCS

#1,.4

; TYPE UPPER BIT AS ONE
;:SAVE #1 FOR TYPEOUT
::G0 TYPE--OCTAL ASCII

s:TYPE & DIGIT(S)

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-81 15:42 PAGE 97-1
PRINT ADDRESSES ROUTINE
5 014505

.BYTE

00C

SEQ 0084

;s SUPPRESS LEADING ZEROS

0
ENDIF

29
29

014506
510
512
513

010146
104403
005
001

514
514

004767

5
4520
14524

014524
014526

2915
2916 014530
014530
014534
014536
014537
2917
2918 014540
014540
014542
2919
2920 014542
014542
014546
014550
014551
2921
2922 014552
014552
2923
2924 014552
014552
014554
014556
014557
2925
2926 014560
27 014560

2928 014560
014560
014564
2931 014566
014566
014570

016701

MOV
TYPOS

.BYTE
177644

001442

TYPOCS

R1,=(SP)

R1,,5.X

:PRINT STARTING ADDRESS

::SAVE R1 FOR TYPEOUT

::GO TYPE==OCTAL ASCII
::TYPE S DIGIT(S)

5
1

::TYPE LEADING ZEROS

CALL

TAB

;TAB

JSR

PC,.TAB

LET R1

:= END

sFETCH LAST ADDRESS
MOV

END ,R1

IF R1 GE #0 THEN

005701
002405
012746
104403
004
000

MOV
TYPOS

.BYTE

#0,-(SP)

TYPOCS

TST
BLT

#0,.,4

MOV
TYPOS

.BYTE
.BYTE

#1,-(SP)

BR
TYPOCS

MOV
TYPOS

.BYTE

: 1 /PE UPPER BIT AS ONE

50007%:

:PRINT LAST ADDRESS
TYPOCS R1,,5.X
R1,-(SP)
::SAVE R1 FOR TYPEOUT

5
1

2:G0 TYPE--OCTAL ASCII
J:TYPE S DIGIT(S)
;:TYPE LEADING ZEROS

ENDIF

005767
002022

010701
062701

001374

50003$:

IF CONTROL LT #0 THEN

JIS IT N(N-VOLAT%;
BGE

:FETCH LOCATION OF NON VOLATILE MESSAGE
LET R1 := PC + WNVMES~.

000670

50007%

..SAVE #1 FOR TYPEQUT
::G0 TYPE--OCTAL ASCII
:sTYPE 4 DIGIT(S)
: : SUPPRESS LEADING ZEROS

ENDIF

010146
104403
005
001

50006%

: TYPE UPPER BIT AS ZERO

50006$%:

000001

;:SAVE #0 FOR TYPEOUT
;G0 TYPE--OCTAL ASCII
;:TYPE 4 DIGIT(S)
; :SUPPRESS LEADING ZEROS

ELSE

000404

012746
104403
004
000

50005$%:

MOV

ADD

CONTROL
500108

PC.R1
S~ ,R1
#NVME

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113
PRINT ADDRESSES ROUTINE

22-JUN-81 15:42

2932

2933
¢~ 014574

2035 014574

2936
2937 014600

010167

223% 014602

104401
015460

2940 014604
014604

005767

014610

2943 014612
014612
014620
2944
2945

001007

032767
001403

2949 014622

052767

000002
5%:

.WORD

IF #4000 SETIN CONTROL THEN

001340

001330
ENDIF

2956

2961 014640
2962

2963 014644
2962%45 014646

BR
50013%
500108 :

JFETCH LOCATION OF VOLATILE MESSAGE

010701
062701

:= PC + AVMES-.

000647

MOV
ADD

PC.R1
#VMES~. R1

MOV

R1,6%

;LOAD ADDRESS INTO TRAP INSTRUCTION

010167
104401
015503

LET 6% := R1

000002

:TELL OPERATOR VOLATILE
TYPE
.WORD

6%:

2966 014650

ENDIF

014650

2967
2968 014650
014650
014650
014650

:
LET R1

2959

2960 014640

S0011$:

ELSE

000407

#40, CONTROL

50012%:

ENDIF

014630

01463°
2958 014634

50011$

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

BIS

2951
2952 014630

2957 014632

BNE

;INDICATE PRINT ERROR MESSAGE
LET CONTROL := CONTROL SET.BY #40

014630

014630
— 014632

;ARE WE IN PAGE 0
TST
START

JYES

000040

R1,5%

NVMES

IF START EQ #0 THEN

001366

004000

MOV

:TELL OPERATOR NON VOLATILE
TYPE

2950 014630

2953
2954 014630

SEQ 0085

;LOAD ADDRESS INTO TRAP INSTRUCTION
LET 5% := R1

2946

2947
2948 014622

PAGE 37-2

ENDRTN
000207

VMES

50013$:
50000%:
50001%:

RTS

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 58

PARITY CATCHER
228;?

.SBTTL

PARITY CATCHER

223;5

;THIS ROUTINE CATCHES PARITY ERRORS AND STORES THEN IN PARCNT

2974 014652

IROUTINE PARTRP

975 014652

2976 014652

2977 014652
2978
2979 014656
014656
2981 014664

014e64

2983 014670
014670

014672
014674

014674
014676

005267

000240

012702

172100

2985 014704
014704

005022

2989 014710
2990 014710

022740
001003

125252

2993 014722
014722

005267

001234

014726

000402

2997 014730
014730

005267

;CLEAR ALL (SRS

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

CMP
BGT

R1,416.
50004$

CLR

(R2)+

LET TRCATCH := #0

JRESUME HALT IF TRAP
CLR

IF #125252 EQ -(RO) THEN

sRECHECK ADDRESS WITH PARITY OFF

cMP
BNE

50005%:

LET vOL := vOL + #1

001230

000002

001216

LET CONTROL := CONTROL SET.BY #2

TRCATCH

#125252,-(R0)
50005%

;WE ARE NON-VOLATILE
INC

ENDIF

052767

#172100,R2

BR
50003
50004$:

ELSE

014734

3001 014734

INCR R1 FROM #0 TO #16. BY #1

MoV

LET NONVOL := NONVOL + #1

2999 014734

3002 014734

;FIRST (SR ADDRESS

END INC

014714
2992 014720

2996 014730

LET R2 := #172100

LET (R2)+ := #0

000772

PARCNT

;IF CSR DOES NOT EXIST THEN JUST RTI
#240,TRCATCH

000020

001450

2994
2995 014726

INC

005067

2991 014714

;DISABLE PARITY
LET TRCATCH := #240

;INDICATE PARITY ERROR

005201

020127
003002

014706
014710

001500

005001
000401

014676
2084 014702

2986
2987 014706

LET PARCNT := PARCNT + #1

001314

012767

PARTRP:

50006%

;WE ARE VOLATILE
INC
vOL

500068:
;INDICATE PARITY ERROR WAS

SERVICEng

#2,CONTROL

SEQ 0086

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113 22-JUN-B81 15:42 PAGE iO-

PARITY CATCHER

3004 014742
014742

062700

000002

3007 014746
014746
014754

026727
002020

001220

3005

LET RO := RO + #2

IF PARCNT LT #10. THEN

000012

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

;ENABLE PARITY ERRORS THROUGH THE CSRS

012767

000240

001400

3012 014764

sor3 014764 012702 172100

3014 014770
014770

:RESTORE RO TO WHAT IT WAS AFTER
ADD
#2,RO

: TRAP

3009

3010 014756
sop7 014756

005001

LET TRCATCH := #240

;IF CSR DOES NOT EXIST THEN JUST RTI
MOV
#240,TRCATCH

LET R2 := #172100

:FIRST CSR ADDRESS

INCR R1 FROM #0 TO #16. BY #1

;CLEAR ALL CSRS
(LR
R

014772 000401
014774
014774

014776
014776
515 015002
3016 015004

5017 013004

LET (R2)+ := #1

012722000001
ENDINC

015010 000771

so19 01012

005067

LET TRCATCH := #0

001346
ENDIF

015016

ENDRTI

00000¢

MOV

#1,(R2)+

50011$

500128:

3022 015016

3023
3024 015016
015016

500108

500108:
(M
R1416.
BGT
500128

000020

3018 015010

3020 015012
s0pq 015012

172100,R2

500118:
INC
Rl

005201
020127
003003

MOV

:RESUME HALT IF TRAP
CLR
TRCATCH

500078:
500008:
500018:
RTI

SEQ 0087

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113

PRINT CONTIGUOUS 22 BIT ADDRESS ROUTINE

22-JUN-81 15:42
.SBTTL

PAGE 39

7
SEQ 0088

PRINT CONTIGUOUS 22 BIT ADDRESS ROUTINE

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

:R2 AND CREATS A 22 BIT CONTIGUOUS ADDRESS WITH ADDRESS BITS 14 = 0
;IN R AND BITS 21 = 15 IN R2

ROUT INE P22BAD

0150

PUSH <R1,R2,R2>

MOV

010146
010246
010246

3037
3038 015032
015032
3039
3040 015034
015034
3041
3042 015040
015040
3043
3044 015044
015044
3045
3046
3047 015046
015046
3049
3050 015050
015050
3051
3052 015052
5052

R2,=(SP)
R2,=(SP)

LET (SP)

:USE STACK AS SCRATCH PAD AREA

::PUSH R1 ON STACK
*:PUSH R2 ON STACK
*:PUSH R2 ON STACK

:= (SP) SHIFT <2

LET (SP) := SWAP (SP)

000316
042716

117777

042701

160000

LET (SP)
LET R1

:PUTBITS BR 7 INTOG6 R S
ASR
ASR

SWAB

(SP)

:= (SP) CLR.BY #117777 :CLEAR OUT UN-IMPORTANT BITS
#117777.(SP)
BIC

:= R1 CLR.BY #160000

:CLEAR OUT MEMORY MAN. POINTERS
BIC
#160000,R1

:TRANSFER BITS 8 & 7 IN R2 INTO BITS
:14 & 13 IN R1

LET R2 := R2 SHIFT =1

006202

(SP)
(SP)

:PUT BITS 6 & 5 INTO 14 & 13

LET R1 := R1 SET.BY (SP)+

052601

BIS

(SP)+,R1

:FETCH ADDRESS BITS & Pu;sgxr H ggro
:LOWER BYTE

LET R2 := SWAP R2

000302
177600

:NOW ADDRESS BITS 21-15 ARE IN LSB
SWAB

LET R2 := R2 CLR.BY #177600
TYPOCS
MOV

R2..4
R2,=(SP)

BYTE
.BYTE

&
0

010146
104403
005
001

TYPOCS
MOV
TYPOS
BYTE
BYTE

R1..5.X
R1,-(SP)

012602
012601

MOV
MOV

010246
104403
004
000

3057
3058 015072
015072
015074
3059

R1,=(SP)

MOV
MOV

006216
006216

042702

P22BAD:

TYPOS

5
1

POP <R2.R1>

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

:CLEAR OUT ALL OTHER BITS
BIC
#177600,R2

:PRINT ADDRESS BITS 21 = 15
..SAVE R2 FOR TYPEOUT
:GO TYPE=--OCTAL ASCII
“:TYPE 4 DIGIT(S)
: :SUPPRESS LEADING ZEROS
:PRINT ADDRESS BITS 14 = 0
2:SAVE R1 FOR TYPEOUT
+:G0 TYPE=--OCTAL ASCII
s:TYPE S DIGIT(S)
*:TYPE LEADING ZEROS

::POP STACK INTO R2
S:POP STACK INTO R1

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE %9-1
PRINT CONTIGUOUS 22 BIT ADDRESS ROUTINE
3060 015076
015076
015076
015076

ENDRTN

000207

50000%:
50001%:

RTS

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113

DEF INITIONS
3388%

3064 015100

040

3065 015111
3066 015176
3067 015233
3068 015310
3069 015357
3070 015450
3071 015460
3072 015503
3073 015526
3074 015531
3075 015604
3076 015660
3077 015756
3078 015776
3079 016060

124
040
012
040
012
040
040

3081 016155
3082
3083 016160
3084 016162
3085 016164
3086 016166
3087 016170
3088 016172
3089 016174
3090 016176
3091 016200

3080 016113

117

122

012
040
040
123
120
120
040

122
1M1
012
122
012
040
040
040
012
040
040
124
101
114
116

101
116
015
105
015
040
040
040
015
040
040
101
122
105
117

012

015

000

040

105

130

22-JUN-81 15:42

.SBTTL

DEFINITIONS

.ASCIZ

TRAPER: .ASCII
LASCIZ
ERR:
LASCII
LASCIZ
TAF:
ASCIZ
TAB1:
.ASCIZ
NVMES:
.ASCIZ
VMES:
ASCIZ
.ASCII
HEAD:
LASCIT
JABLEE
LASCI1
LASCIZ
PWRDWN: .ASCII
LASCII
CRLF1:

000000
000000
000000

CONTRO:
NONVOL:
VOL :

000000
000000
000000
000000
000000

PPOINT:
PARCNT:
ENDADD:
START:
L4KST:

000000

END:

ASCIZ

LASCIZ
.EVEN
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD

PAGE 40

' OR MORE'

SEQ 0090

'TRAP LOCATIONS (ADDRESS O = 376) HAVE CHECK SUM ERROR'
N NON - VOLATILE MEMORY' <12><12><15>
<12><12><1S> CHECK SUM ERROR. THE MEMORY THE PROGRAM IS°'
' RESIDENT' <12><15> IN HAS VOLATILE LOCATIONS'<12><15>
<12><12><15>'THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST'<12><15>
°
°
NCN VOLATILE'
VOLATILE
!
<12><12><15>
MEMORY MAP'<12><15>
Y
TAfa o
T e Aeeeaii—" '<15><12><12>
°'START ADR.
END ADR.
MEMORY TYPE
WORD ERROR
.
'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><1S>

<12><15>
0
0
0

0
0
0
O
O

CVMEMAO DIAGNOSTIC FOR NON=VOLA MACRO M1113
DEF INITIONS

3093
3094
3095
3096 016202
» 016202
309
3098 016202
016202
016210

31
3105 016216
016216
016220
3106
3107 016220
016220

22-JUN-81 15:42

N 7
PAGE 41

SEQ 0091

:T:{‘S’ ROUTINE BUMPS THE WRITE POINTER 4K IF A WRITE TO A ROM MODULE CAUSES A

IROUTINE ROMMD

032767
001403

000001

012700

040000

IF #1 SETIN CONTROL THEN

177750

LET

RO := #40000

ELSE

BIT

BEQ

BR
INL INE

#1, CONTROL

500028

;BUMP POINTER TO INDICATE
MOV
#40000,R0
;WE HAVE REACHED THE END
;OF THIS 4K CHUNK OF MEMORY

500028 :

005740

50003s

;BUMP POINTER BACK TO WHAT IT
TST =(RO)

;WAS BEFORE TRAP
LET

040000
ENDIF
ENDRTI

000002

;ARE WE IN A MAPPED SYSTEM

000403

062700

ROMMD:

RO := RO + #40000

;BUMP TO NEXT 4K BOUNDARY
ADD
#40000,R0

50003s:
50000$:
50001$:

RTI

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

DEF INITIONS
3116

ROUTINE TRAPCT

016230

3121 016230
3122 016230

010046

3123 016232
016232

032767

016240 001407

3126 016242

PUSH
MOV

000001

177720

013746

172342

3128 016246
016246

005037

172342

MOV

016252 012700 020000

3133
3134 016256

016256 000401
s 016260

3136 016260
e 016260

3140 016262

LET

3142 016270

LOOP

016262 010701
e 016264 062701 000100
s 016270
020027 000400
001423
020027 020400
001420

3146 016304

016304 020027 000034
016310 001403

016316
016320 061006 2003

3148 016320
016320

010710

PUSH

a#KIPAR1

a#KIPAR1,-(SP)
LET

_ a#KIPAR! := #0

LET

RO := #20000

BEQ

EXIF

500028

:;PUSH a#KIPAR1 ON STACK
:YES, PAR1 WILL POINT TO LOWEST
CLR
K IPAR1

:RO POINTS TO PAR1 AND

MOV

#20000,RO

B8R
50003$
500028 :
LET

005000
ENDIF

:ARE WE IN MEMORY MANAGEMENT
BIT
#1,CONTROL

ELSE

- 016262

016270
016274
016276
— 016302

::PUSH RO ON STACK

:ADDRESS 0

3138 016262

3144 016270

RO
RO,=(SP)

IF #1 SETIN CONTROL THEN

3131 016252

3132

TRAPCT:

JSYSTEM

3127 016242

3150

SEQ 0092

*FROM 0 TO 400

3119 016230

g}gg

B_8

PAGE 42

:THIS ROUTINE SETS UP TRAP CATCHERS IN ALL TRAP LOCATIONS

3120

22-JUN-81 15:42

RN := #0

:START WITH ADDRESS 0
CLR
RO

500038 :
R1 := PC + #TRCATCH-.

;FIND TRAP CATCHER ROUTINE

MOV
ADD

PC,R1
#TRCATCH-. .R1

500048 :
RO EQ #400 OR RC EQ #20400

CMP
BEQ
CMP
BEQ

IF RO EQ #34 OR RO EQ #20034 THEN

RO, #400
50005$
RO, #20400
50005$

:LOAD TRAP ROUTINE

cmP
BEQ

RO, #34
50006$

SN 5000590
%oos:

LET (RO) := PC

;LOAD TRAP INSTRUCTION LOCATION
MOV
PC., (RO)

———

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113

DEF INITIONS

3149
3150 016322

016322

3151
3152 016%%6
016326
3153
3154 016332
016332
016334
3155
3156 016334
016334
3157
3158 016336
016336
3159
3160 016342
016342
3161
3162 016342
216342
3 016344

016354

062720

012720

22-JUN-81 15:42

001104

000340

SEQ 0093

LET (RO)+ :=

(RO)+ + ASTRAP-,

LET (RO)+ :=

#340

ADD

010120
000340

#340, (RO) +

500108

LET (RO)+ :=

;LOAD TRAP CATC HER

LET (RO)+ :=

#340

;LOAD PSW

MOV
MoV

ENDIF

50005$:

032767
001402

000001

012637

172342

IF #1 SETIN CONTROL THEN

177606

MOV

POP

MOV

012600

R1,(RO)+

#340,(RO)
+

:
500108

ENDLOOP

000752

(RO)+
#STRA,P=.

Mov

50007%:

a#K IPART
POP
)
+ ,a#KIPAR1
(SP

50004$

;ARE WE IN A MAPPED SYSTEM
BIT
BEO

#1,

CONTROL

50011s

;:POP STACK INTO a#KIPAR1

ENDIF

3172 016362
016362
016362
016362
3173
3174

;"'

;LOAD PSW

ELSE

000403

012720

c_8

PAGE 42-1

500118:

(SP)+,R0O

::POP STACK INTO RO

ENDRTN

S0000$:
50001$:

RTS

000207

;DO AN RTI WHENEVER IT TRAPS.

IROUTINE TRCATCH

INLINE
ENDRT]

000002

TRCATCH

<HALT>

;FOR DEBUG PURPOSE REPLACE WITH aAr?LT INSTRUCTION

S0000%:
50001$%:

RTI

016370

016404

016434

105767
00002

017600

122716

$TYPE:

000313

000002

2%:

MEB

. STYPE
1STB

$TPFLGT

BPL

062716

MOV
MOV
MOvB

3s
RO,=(SP)
@2(SP) ,RO
(RO)+,=(SP)

TST

(SP)+

BNE

MOV
ADD

(SP)+,R0O
#2,(SP)
#HT, (SP)

000200

CMPB
BEQ
CMPB

000242
000002

MOV
ADD
MOV

000002

:
608
3s:

000011

A ¥

RTI

TST

016446

PAGE 43

LIST

HALT

18:

D_8

22-JUN-81 15:42

(SP)+

PC,=(SP)
#S$CRLF1=-,,(SP)
(SP)+,20%

:
208

PE
.WORD SCRLF1

LR8

ggflARCNT

5%:
6%:

JSR
CMPB

PC,STYPEC
%lLLC.(SP)O

MOV

, =(SP)
$NULL

JSR

DECB

MOVB
000124

8s
ggRLF . (SP)

JSR

BITB

BNE
ST
B8R
S$TYPEC: TSTB
BPL
MOV
BIC

101$%:

102%:
108:

1(SP)

PC,STYPEC
;gmcm

(SP)

..GET ADDRESS OF ASCIZ STRING
..PUSH CHARACTER TO BE TYPED ONTO STACK
BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK
:sRESTORE RO
: ;ADJUST RETURN PC
: ;RETURN
; sBRANCH IF <HT>

s sBRANCH IF NOT <CRLF>

<CR><LF> EQUIV

:;POP

ssTYPE A CR AND LF

;s CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
..GO TYPE THIS CHARACTER

lT TIME FOR FILLER CHARS.?
NO GO GET NEXT CHAR.

T # OF FILLER CHARS. NEEDED

S A NULL NEED TO BE TYPED?
IF W-GO POP THE NULL OFF OF STACK
60 TYPE
A NULL

..DO NOT COUNT AS A COUNT
LOOP

..REPLACE TAB WITH SPACE

13
(SP)+
23
asnm
10s
as$TkB1,~(SP)

..PW SPACE OFF STACK
::GET NEXT CHARACTER
..CMR IN KYBD BUFFER?
::BR_IF NOT

#7.S$CHARCNT

#177600, (SP)

B8PL
MOVB

@$TKB1,

MANCH IF NOT AT

;GET CHAR

..STRIP EXTRGF&WS BITS

as$Tks1

1018

(SP)

BIC

#177600, (SP)

TST
TSTB

(SP)
+
as$TPS1

BPL

SAVE RO

..TYPE A SPACE

”XNF (SP)
102$

(MPB
BNE

..IS THERE A TERMINAL?
::BR IF YES
..HALT HERE IF NO TERMINAL

Pc.inpsc

(MP8
BNE
TST8

SEQ 0094

9§a=a

0 DI AQ()STIC FOR NON=VOLA MACRO M1113

#SXON, ($P)
101$%
108

,,HX STACK

sJWAIT UNTIL PRINTER IS READY

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113
TYPE ROUTINE

016632 116677 ooooog 000042
016640 122763 000015
000002
016646

016650

00100

105067

016654 000406
016656 172766
016664 001402

000002

18:

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

CLRB

SCHARCNT

*:YES==CLEAR CHARACTER COUNT

BR
CMPB
BEQ

$TYPEX
WLF,2(SP)
$TYPEX

105227
000000
000207

INCB
$CHARCNT: .WORD
$TYPEX: RTS

016700
016702

177564
177566

"1IF EQ .-$TPS1.8TPS1:
"1IF EQ .-$TPB1.$TPB1:

016704

177560
177562

016705
016706

002
012

sl 016711

012

016707
016710

3186 016714

016714
016716
016720
016722
016724
016726
016730
016734
016740
016742
016744
016752

000
015

010046
010146
010246
010346
010446
010546
012746 020200
016605 000022
100004
005405
112766
005000

000055

016762
016766

112723
005002

000040

017004
017006

002402
005202

017010
017012
017014
017016
017020
017022

000774
060105
005702
001002
105716
1004?7

017036

052702

017046

11022

017024
0170
017030

106316
103003
116663

J1IF EQ .-SNULL.SNULL:

.BYTE

18:

28:

3$:

48:
5%:
000001
000060

017042 052705 000040

177777

;3COUNT THE CHARACTER
*:CHARACTER COUNT STORAGE

177560
177562

.STYPDEC

010704
062704 000154
060004
011401
160105

SIEXIT
*31S CHARACTER A LINE FEED?
$:BRANCH IF YES

.WORD
.WORD

J1IF EQ .-SLF1,8LF1:

000001

::BRANCH IF NO

JIIF EQ .-$TKS1.$TKS1:
"1IF EQ .-$TKB1.$TKB1:

.WORD
.WORD

"1IF EQ .-STPFLGI,STPFLG!:
"1IF EQ .-$CRLF1,$CRLF1:

016754 010703
016756 062703 000200

016770
016772
016776
017000
017002

(PC)+
0
PC

LIIF EQ .=SFILLS,SFILLS:
JIIF EQ .=SFILLC,SFILLC:

000

SEQ 0095

2(SP),a$TPB1
#CR,2(SP)

016666
016670
016672

016674
016676

E_8

PAGE 43-1

MOVB
(MPB

BNE

000014

000012

22-JUN-81 15:42

68:

7%:

;:TTY KDB STATUS
S:TTY KBD BUFFER

177564
177566
.BYTE
.BYTE

BYTE
LASCII

ASCIZ <12>

:MJD001
*MJD001

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

2
12

0
<15>

::CONTAINS NULL CHARACTER FOR FILLS

:2CONTAINS # OF FILLER CHARACTERS RE
:2INSERT FILL CHARS. AFTER A "LINE F

*:TERMINAL AVAILABLE'® FLAG (BIT<07> |
* *CARRAIGE RETURN

: ;LINEFEED

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
8PL
NEG

RO, =(SP)
R1.=(SP)
ng.-mm
R3,=(SP)
R&.=(SP)
RS .=(SP)
#20200,-(SP)
22(SP) .RS
18
RS

::PUSH RO ON STACK
*:PUSH R1 ON STACK
$:PUSH R2 ON STACK
*:PUSH R3 ON STACK
*:PUSH R4 ON STACK
*:PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
2:GET THE INPUT NUMBER
S:BR IF INPUT IS POS.
*:MAKE THE BINARY NUMBER POS.

MOV
ADD

PC,R3
#$DBLK=-. ,R3

S:FETCH PC FOR ADDRESSING
“:SETUP THE OUTPUT POINTER = R3 POINTS TO $DBLK

MOV
ADD
ADD
MOV
SUB

PC,R4
#$DTBL=. ,R4
RO,R%
(Ré) ,R1
R1,RS

*:USE PC FOR LOCATING TABLE
1:R& NOW POINTS TO TABLE
:INDEX INTO TABLE
2:GET THE CONSTANT
S:FORM THIS BCD DIGIT

3$
R1.RS
R2
58
(SP)
78

::ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0
S:FALL THROUGH IF 0
::STILL DOING LEADING 0°S?
::BR IF YES

MOVB
CLR
MOVB
CLR

BLT
INC

BR
ADD
ST
BNE
1STB
BMI

#'=,1(SP)
RO

#' ,(R3)+
R2

43
R2

ASLB
BCC
MOVB

(SP)
6$
1(SP),=1(R3)

BIS

# R

BIS

MOVB

S:MAKE THE ASCI] NUMBER NEG.
*:ZERO THE CONSTANTS INDEX

S:SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER

1:BR IF DONE
::INCREASE THE BCD DIGIT BY 1

#'0.R

1iMSD?
J:BR IF NO
::YES==SET THE SIGN
SIMAKE THE BCD DIGIT ASCII

R2,(R3)+

*IPUT THIS CHARACTER IN THE OUTPUT BUFFER

“IMAKE IT A SPACE IF NOT ALREADY A DIGIT

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
017050
017052
017056
017060

005720
020027
002743
003002

017064
017066

000764
105726

017062

017070
017072

100003
116663

105013
012605
012604
012603
012602
012601
012600
010746
062716

017130

104401

017132

017134
017142
017144
017146
017150
017152
017154

3187
3188 017166
017166

017172
017200

017204
017210
017212
017220
017226
017234
017236

017240
017242
017246

017250
017254

017260

017156

017646

000000

116667
112667

062716
000406
112767
112767
112767
010346
010446

2 :JUST INCREMENTING
JsCHECK THE TABLE INDEX
22G0 DO THE NEXT DIGIT
::GO TO EXIT

BR
TSTB

63
(SP)+

;3G0 CHANGE TO ASCII
JsWAS THE LSD THE FIRST NON-ZERO?

CLRB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
ADD

(R3)
(SP)+ RS
(SP)+ R4
(SP)+ ,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0O
PC,-(SP)
#$DBLK=-. , (SP)

BPL
MOVB

9%:

MoV

000004

TYPE

10%:

.WORD

$DTBL:

000001
000221

000223

000001
000006
000005

000203
000177
000166

MOV
MOV
RTI
10000.
1000.
100.
10

MOVB
MOVB

ADD
BR
STYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV

000157

110467

000144

MOvVB

000012

MOV
(LR
ROL

062704

000006

116704

000137

105367
100023

ADD

MOVB

2%:

006105
006105
010503

006103

MOV
MovB
NEG

1%:

000404

000110

R5,R2

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

(SP)*JO‘

$DBLK

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

.STYPOCT
$TYPOS: MOV
a(SP) ,=(SP)

3%:

SEQ 0096

(RO)+
RO,#10
2%
8%

010546
116704
005404

006105

017310
017314

177776

000036

000002

017276

017306

177777

016666
012616
000002
023420
001750
000144
000012

016605
005003
006105

017300
017302
017304

8%:

F_8

PAGE 43<2

TST
CMP
BLT
BGT

MOV

012667 000002

017264
017270
017272

017274

000010

010502

017100
017102
017104
017106
017110
017112
017114
017116
017120

017124

22-JUN-81 15:42

ROL

ROL
ROL
MOV

ROL

DECB
BPL

1(SP) ,$OF ILL
(SP)+,SOMODE+1

;2GET THE LSD

::BR IF NO
J3YES==SET THE SIGN FOR TYPING

;:SET THE TERMINATOR
::POP STACK INTO RS
;sPOP STACK INTO R4
:;POP STACK INTO R3
:;POP STACK INTO R2
;:POP STACK INTO R1
::POP STACK INTO RO
:2FETCH ADDRESS OF NUMBER TO BE TYPED USING
:2STACK NOW CONTAINS ADDRESS OF NUMBER TO BE

;2SET UP ADDRESS FOR TYPE COMMAND
;:NOW TYPE THE NUMBER
;:ADJUST THE STACK
;2RETURN TO USER

;:PICKUP THE MODE

::LOAD ZERO FILL SWITCH
;:;NUMBER OF DIGITS TO TYPE

#2,(SP)
$TYPON
#1,80FILL
#6,$OMODE +1
#5,80CNT
R3,-{(SP)
R4 ,-(SP)

::SAVE R4

#6.R4

::SUBTRACT IT FOR MAX. ALLOWED

RS,=(SP)
$OMODE +1,R4
R4

R4, SOMODE

$OF ILL R4

;sADJUST RETURN ADDRESS

;:SET THE ZERO FILL SWITCH
22SET FOR SIX(6) DIGITS
;2SET THE ITERATION COUNT
;SAVE R3
::SAVE RS
;2GET THE NUMBER OF DIGITS TO TYPE

;:SAVE IT FOR USE

:2GET THE ZERO FILL SWITCH

1§(SP).RS
R
RS

;sPICKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD
:;ROTATE MSB INTO ''C'*

:2FORM THIS DIGIT

RS
R
RS,.R3
B

$OMODE
7%

;:G0 DO MSB

;:GET LSB OF THIS DIGIT

s TYPE THIS DIGIT?
;:BR IF NO

CVMEMAO DIAGNOSTIC FOR NON=-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 63-2
BINARY TO OCTAL (ASCII) AND TYPE
G

017316

042703

017324
017326
017330
017332
017336

005704
001403
005204
052703
052703

017322 001002

017342

177770

000060
000040

110367 000052

5%:

017346 010746
017350 062716 000050
017354 012667 000002
017360
017362
017364
017370

017372
017374
017376
017400
017402
017404
017406
017414
017416
017420
017421
017422
017423

s 017424

104401
017420
105367
003342

000032

#177770.R3

::GET RID OF JUNK

ST
BEQ
INC
BIS
BIS

R4
5¢
R4
#'0,R3
#' R3

::SUPPRESS THIS 0?
1:BR IF YES
“:DON'T SUPPRESS ANYMORE 0'S
S:MAKE THIS DIGIT ASCII
S:MAKE ASCII IF NOT ALREADY

108 :
7%:

MOVB
MOV
ADD
MOV

TYPE
.WORD
DECB
BGT

002402
BLT
005204
INC
000737
B8R
012605
68:
MOV
012604
MOV
012603
MOV
016666 000002 000004
MOV
012616
MOV
2
RTI
000
8s:
BYTE
000
BYTE
000
$OCNT: .BYTE
000
$OFILL: .BYTE

R3,8%

PC,=~(SP)
#8€-., (SP)
(SP)+.10%
8%
SOCNT
2$

68
R4
2
(SP)+,RS
(SP)+.Ré4
(SP)+.R3
2(SP) .4 (SP)
(SP)+. (SP)
0
0
0
0

000000

SOMODE:

.WORD

017426

010046

$TRAP:

.$TRAP
MOV

RO,=(SP)

017436

005740

TST

-(R0O)

017444
017446
017452
017454
017456
017460
017462
017464

010701
MOV
062701 000026
ADD
1
ADD
011100
MOV
012601
MOV
200
RTS
011646
$TRAP2: MOV
016666 000004 000002
MOV

3190 017426

017430 010146
017432 016600 000004
017440
017442

017472
017474

3191

BIC

BNE
48:

017476
017500
017502
017504
017506
017510
017512
017514
017516

111000
006300

2
017462
016370
017212
017166
017226
016714
000404
000534
000730
001070

MOV
MOV

MOVB
ASL

$TRPAD:

SEQ 0097

RTI
.WORD

*:TEST FOR 0

*:SAVE FOR TYPING

*:FETCH ADDRESS OF NUMBER TO BE TYPED USING
+:STACK NOW CONTAINS ADDRESS OF NUMBER TO BE
*:SET UP ADDRESS FOR TYPE COMMAND
1:GO TYPE THIS DIGIT
*:ADDRESS OF CHARACTER TO BE PRINTED
::COUNT BY
1
$:BR IF MORE TO DO

S:BR IF DONE
s INSURE LAST DIGIT ISN'T A BLANK
1360 DO THE LAST DIGIT
*:RESTORE RS
*:RESTORE R&
::RESTORE R3
“:SET THE STACK FOR RETURNING
: ;RETURN

*:STORAGE FOR ASCII DIGIT
*:TERMINATOR FOR TYPE ROUTINE
::OCTAL DIGIT COUNTER
*:2ERO FILL SWITCH
SINUMBER OF DIGITS TO TYPE

::SAVE RO

R1.=(SP)
4(5P) RO

::SAVE R1
*:GET TRAP ADDRESS

(RO).RO
RO

*:GET RIGHT BYTE OF TRAP
$:POSITION FOR INDEXING

PC.R1
#$TRPAD=-.,R1
RO,R1
(R1).RO
(SP)+,R1
RO
(SP) ,=(SP)
4(SP),2(SP)

$TRAP?
$TYPE
;;CALL=TYPE
$STYPOC ::-CALL=TYPOC
_STYPOS ::CALL=TYPOS
STYPON ::CALL=TYPON
$STYPDS ::CALL=TYPDS
$RDCHR :; CALL=RDCHR
SROLIN -:CALL=RDLIN
SRDOCT ::CALL=RDOCT
SRDDEC :-CALL=RDDEC

;JBACKUP BY 2

SSFETCH THIS PROGRAM POINTER FOR PIC
::POINT TO TABLE
*:R1 NOW POINTS TO ROUTINE TRAP CALL WANTED
2RO CONTAINS ADDRESS FOR RTS
*:RESTORE R1
2360 TO ROUTINE
S:MOVE THE PC DOWN
S:MOVE THE PSW DOWN
::RESTORE THE PSW

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
rw»gng::.oe)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
READ A DECIMAL NUMBER FROM TTY

CVMEMAQ DIAGNOSTIC FOR NON-VOLA MACRO M1113
TRAP TABLE

22-JUN-81 15:42

3192 017520
3193 017522
3194 017524
3195 017644

000000
000000
000000

CSTRPG: .WORD
CHKSUM: .WORD
.BLKW
SPINIT: .WORD

3137 017646

000000

ENDPR:

3199

000001

.WORD 0

.END

0
0
50
0

H_8

PAGE 43-4

SEQ 0098
\

CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 43-2
SYMBOL TABLE
I

ADDCHK 002074
ASSEMB= 000010
BANKO
006404
BITO = 000001
BIT00 = 000001
BITO1 = 000002
BITO2 = 000004
BITO3 = 000010
BITO4 = 000020
BITOS = 000040
BITO6 = 000100
BITO7 = 000200

BITO8 = 000400
BITO09 = 001000
BIT1 = 000002

81710 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BPTVEC= 000014
BYTECO= 000403
CHKSUM 017522
CONTRO 016160
CR
= 000015
CRLF = 000200
CRLF1
016155
CRLF2
014340
CR1
007477
CSTRPG 017520
DDISP = 177570
DIAGMC= 000000
DIF1 = 006014
DISPRE 000174
DSWR = 177570
ECHO
010342
EDLOOP 014210
EMTVEC= 0000
ENABLE 007747
END
016166
ENDADD 016174
ENDPR
017646
ERR
015233
ERROR = 104000
ERRVEC= 000004
FETADD
FETCH

HEAD

001762
001742

015526

SEQ 0099

HELLO
006302
HELP
006174
HELPF
002226
HT
= 000011
ILLADD 006236
10TVEC= 000020
K
006470
KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR7= 172356
KIPDRO= 172300
KIPDR1= 172302

Q4
011632
RDCHR = 104406
RDDEC = 104411
RDLIN = 104407
RDOCT = 104410
RESHLP 007326
RESVEC= 000010
RHELP
010066
ROMMD
016202
R6
=2000006
R7
=20
4
SAVHI
010346
SAVLOW 010344
SCOPE = 000004
SIPARQO= 172240
SIPAR1= 172242
SIPAR2= 172244

sSW14¢
Sw15
SwW
Sw
Swé
SWw5
swé
Sw7
sw8
sSw9
SYMD
SyMs

= 040000
= 100000
= 000004
= 000010
= 000020
=
000040
= 000100
= 000200
= 000400
= 001000
= 000000
= 000007
TAB
014364
TAB1
015450
TAF
015357
TBITVE= 000014
TKVEC = 000060

$FSINC= 000210
$F$LO0= 000200
$FSNAM= 000160
$FSNO = 000403
$FSOR = 000320
$FSRTI= 000350
$FSRTN= 000300
$FSSEL= 000140
$FSTHE= 000330
$FSTRU= 000404
$FSUNT= 000130
$FSWHI= 000120
$FSYES= 000402
$HD
= 000003
SHIOCT 001066
SIFLEV= 177777
$15k0 = 000001

L4KST
016200
MAPPED 006506
MMR3
007713
MMVEC = 000250
MORE
015100
NOBLK
007237
NONVOL 016162
NOT4K
010152
NVMES
015460
OUTMEM 010224
PARCNT 016172
PARTRP 014652
PARQ
007506
PAR7
007536
PIRQ = 177772
PIRQVE= 000240
PPOINT 016170
PRINT
014410
PRO
= 000000
PR1
=
0
PRZ
= 000100
PR3
= 000140
PR4é
= 000200
PRS
= 000240
PR6
= 000300
PR7
=
340
PS
= 177776
PSW
= 177776
PWRDWN 015776
PWRUP
012072
PWRVEC= 000024

SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDR6= 172214
SIPDR7= 172216
SPINIT 017644
SRO
= 177572

TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
UNMAP
572
VMES
015503
VOL
016164
WHERE
006664

SLF1
016711
SLOCTA= 177777
SLSTAD 001736
$LSTBK 001740
SLSTIN= 00000
$LSTTA= 000001
SMAP
001424
SMAPRG 001430

Swi3

$FSIF = 000110

$SIZEX

KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316
LF
= 000012

P22BAD

015020

011034

SIPAR3=
SIPAR4=
SIPARS=
SIPARG=
SIPAR7=
SIPDRO=
SIPDR1=

172246
172250
172252
172254
172256
172200
172202

SR1
= 177574
SR
= 177576
SR3
= 172516
STACK = 001100
START
016176
START1 010350
STKLMT= 177774
STLOOP 012606
SWREG
000176
W0
= 000001
SwW00 = 000001
sSw01 = 000002
Sw02
= 000004
Sw03
= 000010
SW04 = 000020
SW05 = 000040
Sw0é = 000100
SW07 = 000200
Sw08 = 000400
Sw09 = 001000
Sw1
= 000002
SW10 = 002000
SW11
= 004000
sSwi2
= 010000

= 020000

TPVEC = 000064
TRAPCT 016230
TRAPER 015111
TRAPVE= 000034
TRCATC 016364
TRTVEC= 000014
TYPDS = 104405

WHERE1 007006
WHOLE
007124
$BGNLE= 177777
$BRUMP= 177777
$CHARC 016670
$CNTLG 000701
SCNTLU 000674
SCORE
001630
SCRLF
000671
$CRLF1 016710
$CROUT 001660
$DBLK
017156
$DTBL
017146
$ERFLG= 000400
SFILLC 016706
$FILLS 016705
F SAND= 000310
$F$B8AD= 000401
$FSBLA= 000170
$FSCAS= 000150
$FSDEC= 000%20
$FSDO = 000340
$FSFAL= 000405
$F$G00= 000400

$15K1 = 000001
$15k2 = 000001
$15k3 = 000001
SKTNEX 001622
$KTOUT 001560
$KT11
001332
SLF
000672

$MMOUT 001602
SMNEW
000717
$MSWR
000706
SNESTL= 177777
SNOMAP 001430
$NSKO = 000350
$NSK1 = 000110
$NSK2 = 000110
$NSK3 = 000110
$NSK4 = 000110
SNULL
016704
SOCNT
017422
SOMODE 017424
SQUES
000670
SRDCHR 000404
SRDDEC 001070
SROLIN 0005
SRDOCT 000730
$RDSZ = 000026
$SAVE = 000001
$SAVLE= 177777
$SELLE= 177777
$SETUP= 000004
$SIZE
001246

001664

CVMEMAQ DIAGNOSTIC FOR NON=VOLA MACRO M1113
SYMBOL TABLE
$SSK0 = 050005
$STOP
001426
$STUP = 177777
$SWR = 160000
S$TAGLE= 177777
$TAGNU= 050002
S$TEMP = 000350
$TKB
000402
$TkB1
016676
$TKS
000400
$TKS1
016674
$TN
= 000001
. ABS.

$TPB1
016702
$TPFLG 016707
$TPS1
016700
S$STRAP
017426
$TRAP2 017462
$TRP = 000012
$TRPAD 017474
$TSKO = 050011
$TSK1 = 050005
$7Sk2 = 050010
$7Sk3 = 050121
$TSK4 = 050061

017650

000000

ERRORS DETECTED:

22-JUN-81 15:42

000

001

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

$7SK5 = 050037
STTYIN 000642
$TYPDS 016714
$TYPE
016370
$TYPEC 016552
STYPEX 016672
$TYPOC 017212
STYPON 017226
$TYPOS 017166
U
= 000403
$XOFF = 000023
$XON = 000021

J_8

PAGE 43-6

SEQ 0100
$SARGC= 000000
$$B8YTE= 000403
$SCASE= 000000
$$DST = 000000
$SELOC= 000402
$SERFL= 000000
$$FLAG= 000001
$$FROM= 000000
$S$INH = 000402
$$LOC = 016352
$SLOCN= 000000
$SREG = 177777

$SRETU= 000000
$SRTN1= 050000
$SRTN2= 050001
$$SRC = 000000
$$7GSv= 000000
$$7G51= 000000
$$7GS2= 000000
$$70_ = 000000
$$T0TL= 000000
$$S$TAG= 050000
SOFILL 017423