Digital PDFs

AH-B013B-MC

January 1978

91 pages

Original

5.0MB

view download

OCR Version

4.3MB

view download

Document:	CZRMHB0 RM03,02 DUAL PORT LOGIC 2 JAN 1978 bw
Order Number:	AH-B013B-MC
Revision:	000
Pages:	91
Original Filename:	CZRMHB0__RM03,02__DUAL_PORT_LOGIC_2__AH-B013B-MC__JAN_1978_bw.pdf

OCR Text

R M 03 02
’

DUAL PORT LOGIC 2

CZRMHBO

AH-BO13E-MC

MADEIN

BO1
»

POP10
4
MRCYL] 30(1046)

NTHOR1CZRMHBSEQ
21-NOvV-?7
14-15
PAGE

00010000

.REM

e b 04 5 04 Po be be

mo—-o.nm\m‘mmewoo&{\)#mftugwuggumml'wmo—g.nm w*m:umwa.aa:-urmxu'u--

PURLNUNY PO NNV

IDENTIFICARTION

AWWWWWWW
W
£ L
NN LEIT L EL

10000
780105
MHB0 RMO3/2 DU POR LGC 2

FEecOsg!
g
Fll OBSI-NOV-7? i3:3

EJF 1CZRMGS

PRODUCT CCOE:

AC-B012B-MC

PRODUCT NAME:

SSS?HSO RMO3/RMO2 DUAL PORT LOGIC TEST,

DRTE CRERTED:

1S AUG 77

MRINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

DOUG RIIKONEN

THE INFORMATION IN ?
TH
Sgcuggnt é
S??%ECT TO CHANGE WITHOUT NOTICE
0T BE CON
AND SHOULD NOT
RUED
NT BY DIGITAL EQUIPMENT
CORPORATION.
D%GIT
EOggPflng ORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS
THAT MAY
IN THIS MANURL.
THE SOF TWARE DESCRIBED
XN THIS DOCUMENT IS FURNISHED TO THE PURSHRSER
1

UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH INCLUS ON OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR UsE IN SUCH
SYSTEM, EXCEPT RS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
OR RELIQBILITY OF 1TS SOFTWARE ON EQUIPMENT. THAT IS NOT SUPPLIED BY
DIGITAL

(C)

1977,

DIGITAL EQUIPMENT CORPORRTION

78010s

CcRMHBO RMOJ-2 DU POR LGC 2
CZRMHB P11
21-NOv-77 13:34

MACY11l

30(1046)

21-NOV-?77

14:15

COl

RMO3 DURL PORT LOGIC TEST,

PRGE 2

PRRT 2

CONTENTS

RBSTRACT

REQUIREMENTS
2.1
s.
.

EQUIPMENT
PRERSQSIS&TE PROGRAMS
PROGRAMS
OTHER

LORDING PROCEDURES
STRARTING PROCEDURES

aé gc:«?géé:g “Ergoéssooassses
S.

OPERRTING PROCEDURES

gé
.

S.H

QPsgfl
TEST SEL

DURL POR

SWITCH
SETTINGS
SUI CH REGISTER

TEST CABLE CONNECTION

ERRORS

?: MISCELLRNEOUS
4 e

73 R
6

LOOP ON ERROR OPTION

TEST DESCRIPTIONS

SEG 0002

OO0

RMHBO RMO3-2 DU POR LGC 2

SRMHB.P11
35
3‘6'

21-NOV-77 13:34

MACY11l

30(1046)

0o B0 bt Pt Bt Dt Bt P Pt Dt Dt it Pt Pt Dt Pt Pt Dt Pt Pt Dt Pt Pt

s Bt Pt Dt D@ Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt et P

Pt Pt Pt Pt P Pt P P P Pt P

wh—0
gtflczwwww:xgmmmmmmmm»—o—o—o—»—wo—o—»—»—ooogaooooo..o
£LWh—-0OWw

14:15

PAGE 3

........

LOGIC TEST PERFORMS A SERIES OF

[ESTSIGH VERILLTBEY T4, 0, B

NOLING IN THE

IS NOT TESTED BY THIS PROGRAM.

SWITCH.

REQUIREMENTS

6
g

2.1

EQUIPMENT

PDP-1}]

1
e
3

KWll=L OR KW11-P CLOCK
TELETYPE
RH11 OR RH70 WITH AN RMO3

3 DUARL PORT

e.e

43
€C

TEST CRABLE

PREREQUISITE PROGRAMS

RMO3 DISKLESS DIAGNOSTIC

RMO3 FUNCTIONAL TEST

THE PREL IMINARY PROGRAMS MUST BE RUN TWICE:
CONTROLLER (PORT).

2.3

40
b
4o

PROCESSOR

16K 6} HENO%Y

43
4

MOCE

THIS PROGRAM IS THE SECOND PART OF THE RMO3 DURL PORT
OPTION LOGIC TEST, RND IS USED TO TEST THE “PORT SELECT*

PORT

BOTH PORTS OF THS ORIVE RR; CABLED TO THE SAME MARSSBUS BY

ST LGRS . recres

DURL

A SPECIAL RDAPTER
CABLE.
HIS ARRANGEMENT ALLOWS THE DURL
PORT LOGIC TO BE TESTED FROM ONE POP-11/RH11 OR RH7Q.

SEQ 0co3

ABSTRACT

THE RMO3 DUAL PORT

8
9

21-NOV-77

ONCE FROM ERCH

RMO3 DUAL PORT LOGIC TEST
PART

OTHER PROGRAMS

DYNAMIC OPERATION OF THE DUAL PORT OPTION IS TESTED
BY THE RMO3 PERFORMANCE EXERCISER PROGRAM.
3.

LOADING PROCEDURES
THE_PROGRAM MAY BE LOADED BY THE RBSOLUTE PAPER TAPE

LOADER OR 1T MAY BE LOADED FROM THE APPROPIATE MEDIA
USING THE ASSOCIATED®XXDP® LORDER.
THE PROGRAM MAY NCT

C ZRMHB0O RMO3-/2 DU POR_LGC 2
CZRMHB.P11
21-NOV-77 13:34

MACY11

30(1046)

21-NOV-77

14:15

EOI

PAGE Y4

SEQ 0004

8383*3?8%88&@0)@@@@@@@\1\'\)\I\I\I\J\I\J‘QO"g

g AV AV, ) U 0n e 0 9t Bt s it Dmn B Bt B & Pt Bt s Dt Bt B B Bt Bt Pt Pt s Pns Pt P Pt P i Bt Pt ot Pt Bt Pt e Pt P et B s Pt P Pt P P P st Pt
e e) QOO0
oo oo UNUTNNINILILILILY
mun LW~
OO NN L WO WO NN LW—-0OW
NV LWNN—ODD VTN LW

“

BE INCLUDED IN AN 'XXDP'

CHRIN.

STRRTING PROCEDURES
4.1

STARTING ARDDRESSES

THE NORMAL STARTING RDDRESS OF THE PROGRAM IS LOCATION
200(8).
STARTING AT THIS ADDRESS ALLOWS THE OPERATOR
gg %Eg%gg

(OR RESELECT)

THE RDORESS OF THE DRIVE TO

IHE RESTART RDDRESS IS LOCATION 204(8).
THE PROGRAM
WILL USE THE CURRENT DRIVE (DCL) RDDRESS.

THE PROGRAM CAN BE STARTED RT LOCATION 210(8)

THE RH11

OR RH70 RODRESS TO BE CHRNGED.

TO ALLOW

UNIBUS 8 VECTOR RDDRESS
THE PROGRAM RASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES.
THESE RDDRESSES MAY BE CHANGED PRIOR TO STARTING THE PROGRAM
FROM ANY OF THE STARTING LOCATIONS.
MEMORY

LOCRTION

CONTENTS

FUNCTION

1142
1144
1146
1150
1210
1212
1214
1216

127560
177562
177564
177566
172540
172542
104
177546
100

TTY KEYBOARD STATUS REG
TTY KEYBOARD BUFFER REG
TTY PRINTER
STATUS REG
TTY PRINTER
FER REG
KWll-P STATUS REG
KNII-% COUNTER BUFFER
KW11-P
VECTOR RDDRESS
KWll-L STATUS REGISTER
KWll-L VECTOR RDDRESS

1220

OPERATOR ACTION

B.
C.
D.
E.

CONNECT THE DURL PORT TEST CRBLE BETWEEN BUS A
(SEE SECTION S.4)
BEING TESTED.
B ON THE DRIVE
8 BUYS
LORD
THE PROURAM INTO MEMORY IN THE PROCESSOR CONTROLL
ING
THE MRS
USED FOR TESTING.
?HITCH
HE ' PORT SELSC ' SWITCH ON THE DRIVE TO BE
ESTED TO THE 'A/B’
POSITION.
CYCLE THE DRIVE UP.
&OQD THE
RPPROPIATE STARTING ADDRESS (200(8) OR 210(8))
NTO THE
SWITCH REGISTER (OR THE 'SOFTWRRE' SWITCH REGISTER,
SEE SECTION §.2.)
PRESS START.
ENTER THE DRIVE NUHB;R.

ENTER THE NUMBER OF
THE TEST TO BE RUN.
OR 'O’ WILL RUN ALL_TESTS.)

(°CARRIAGE RETURN'

THE PROGRAM MRY BE STOPPED AT ANY TIME AND RESTRARTED

30C1046)

21-NOV-77

14:15

FOL

PRGE S

SEQ 000S

FROM LOCARTION 20M.

OPERATING PROCEDURES
5.1

OPERATIONAL SWITCH SETTINGS
WYTH ALL

ALL ERRORS

SWITCHES

SET TO 2ERO,

THE PROGRAM WILL TYPE

AND CONTINUE TESTIAG.

THE SWITCH SETTINGS ARE:

SH<15)=1...H9LT ON

SuWclur=1...L00P ON

eee

RROR

SH<13>=1... %
RROR TYPEOUTS
Su<11>:1...£~n
EST ITERATIONS
SW<l0>=1...
TY BELL ON ERROR
SW«09=1..
N ERROR
£.2

'SOFTHRRE®

SWITCH REGISTER

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I1.E.
NOT

PROGRAM WILL
TERHE
PRESENT
WILL

THAT THSEHRRDHQRE EHITCH REGISTER
'"SOFTWARE’ SWITCH
REGISTER.
THE

AN 11/34)

SOFTWARE' SMITC g§$IST R IS LOCATED AT LOCATION 176 (8).
SETTINGS OF THE 'S
* SWITCHES RARE CONTROLLED THROUGH R KEYBORRD

ROUTINE HH*CH 1S CALLED BY TYPING R "CONTROL G’.

THE PROGRAM WILL

RECOGNIZE
THE 'CONT
G’ AT ANY TIME EXCEPT WHEN THE PROGRQH
IS AT A HIGHER PRIORI Y PROCESSING AN RMO3 INTERRUPT.
THE
'SOFTWARE' SWITCH
V
ENTERED AS AN OCTAL NUMBER IN RESPONSE
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:
NEW ="

'SWR = NNNNNN

ERCH TIME SgéTCH SSETING RRE ENTERED,

THE ENTIRE SWITCH REGISTER

IMRGE MUST
ENTERED. LERCING ZEROS ARE NOT REQUIRED
*RUBOUT® RND
*CONTROL
U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
Co

DURING SWITCH ENTRY.

TP’

'sorr

L Rec

R#E suTCH

BE FOLLOWED.
5.3

TEST

R AND TH

*SOFTWRARE® SWITCH
SWITCHES IN THE
BE TO THE
BOVE MUST

m
e

ON PROCESSORS NIlH HRRDNRR
REGISTER HQY

my—m

MACY11l

[ASTAV AV oV gV gV gV oWl VoV oV aVIgRIgh]
PUNY 2 02 0 0t s Pt Pt 9t P pe (O
—~ OO NCNLWN—-0OWD

lglg]

'i E

HB0 RMC3-/2 DU POR LGC 2
.P11
21-NOV-?77 13:34

SELECTION

INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE

TEST NUMBER:’'

MESSRGE.

’ENTER

ANY VALID TEST NUMBER CAN BE

ENTERED.
EARCH ENTRY MUST BE TERMINATED BY A CARRIAGE
RETURN (CR).
THE LOOP ON TEST SWITCH,
SW<15>,
MUST BE SET

T ALL CONTINUOUS EXECUTION OF THE SELECTED TEST.
TO RUN ALL

TESTS

IN SEQUENCE,

ENTER EITHER ~

'0°

FCLLOWED

zRflHSO
RHOB/E DU POR_LGC.2
NOV“; '

MRCY1l

21-NOV-77

30(1046)

14:15

GOl

PAGE b

SEG 000e

8YA CARRJAGE RETURN OR CQRR%Q
PROGRAM WILL THEN EXECUTE ALL

RETURN BY ITSELF.

THE

TESTS IN SEQUENCE.

THE Ro"KEY
L RQC?ESU N§ERED(RO§USRQSE§VES$DST IRTNG

8\J\I‘Q\J\J\J\l‘l\l\
DO NN LI

a-b

WILL SE
UNTIL
THE PREVIOUS CHQRRCTERS HAVE
BEEN
LET D
CHRRQCTERS DELETED BY THE RO KEY WILL BE
YPED
ARARTED BY '\’ FROM THE CHRRACTERS
ENTERED BY THE 0 ERRTOR
THE OPERRTOR CAN DELETE AN ENTIRE ENTRY BY TYPING R
*CONTROL
U
TEST CABLE

CONNECTION

TO TEST TH$ RMO3 DUAL PORT OPTION WITH THIS PROGRAM,

A SPECIAL

TE T CRBLE HUST BE USED.

(THE TEST CRBLE 1S

P/N 7010507~
THE TEST CABLE CONNECTS MASSBUS
A & MASSBUS
B TOGETHER RT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO
THAT BIT O OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED.

WITH THE TES! CRBLE connecrso ro THE DRIVE UNDER TEST

rus DRIVE APPEARS RS
T?

OF THE RMO3 WILL RESPOND

MASSBUS:

EARCH PORT

YO A oxrrsn NT MARSSBUS ADDRESS.

THE ADDPESS OF EACH PORT WILL DEPEND UPON THE DRIVE'’S
RADDRESS
'JG.

THE PROGRAM WILL TYPEOUT THE APPARENT RDDRESSES OF BOTH
PORTS.
(ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE;
THE

OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CRQLE)
30003000 0030000300000 0000000 000000 0030 000 0000 00 0000

# ANY OTHER DRIVE

00 30000 0303030

THE MASSBUS WHICH MRS AN ADDRESS

# CONFLICT WITH EITHER OF THE TEST RDDRESSES MUST BE

POWERED

DOWN.

26060808 30 30 00 00 00 00 00 00 0 0 00 0000 0000000 0 00 0000 30 00 00 00 00 06 00 00 0000 00

IR0

OEBEnd
*On HiH TO
En BE
PROCESSOR
A1 1 15 10 TEST e ORIV,
" IF
A,
YES ED BY THE PROCESSOR ONTPORT
HE ORIVE IS

TEST CABLE IS CONNEC ED
WHWWWWWWWWIW
== B s Dt Pt Pt Bet P B 0 ()
oNTTNLW-0OWw

308

WHEN THE

BITS FOR
WHEN

’*RMAS’

THE ATTENTION

IN®.

THE

IS CONNECTED,

THE RTTENTION

nae ARSSERTED IN THE SAME BIT POSITION

<nrrs ESN

BIT POSITION I

FROM 'BUS B OUT' TO 'BUS R IN’.

DURL PORT TEST CABLE

PORTS
A

'BUS RA_OUT’

ESTED BY THE PORT B PROCESSOR,

THAT

MARY REGIST R)

av TM

1s R$

THE ATTENTION

ESS OF THE DRIVE.

S FOR HE oaxve

1S THE

INCLUSIVE 'OR’ or THE PORT n a PORT B
ATTENTION BITS.
BECAJSE
OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN
"RMDS1” " (DRIVE STATUS REGISTER) TO DETERMINE THE STATE
OF THE SELECTED PORT'S ATTENTION BIT.

CZRMHBO RMO3-2 DU POR LGC 2
21-NOV-77 13:34
CIRMMB.PI1L

MACY1l

30(1046)

319

21-NOV-77

14:15

PRGE 7

SEG 0007

ERRORS

WHEN THE PROGRAM ENCOUNTERS AN ERROR,

GOLVERBB THC
I8 19pRST SERen
THE FOLLONING‘

HRnSR PoEbaT SELC

EORTAINC

QN ERROR HESSRGE
*
R DATA HERDE

R DATA LINE CON RINING:

A.
8.
C.

THE ERROR ROUTINE IS

THE TEST NUMBER

THE PC

(PROGRAM COUNTER VALUE)

WHERE THE ERROR

Egh#5#$g g?ogHE RAPPROPIATE REGISTERS

MISCELLRANEOUS

RESTRICTIONS

T0 RUN THIS PROGRAM,

THE SYSTEM MUST HAVE EITHER
R KWl1l-P

ORA KW1l-L CLOCK. 'ADDITIONALLY, THE RMO3 UNDER TEST
MUST HAVE THE DURL PORT TEST CABLE CONNECTED.
LIMITATIONS

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER

ggg; 82?10055 NOT TEST THE DYNARMIC OPERATION OF THE DUAL
~

EXECUTION TIME

THE PROGRAM TRKES ABOUT 60 SECONDS PER PRSS (DEPENDING ON
OPERATOR INTERVENTION EFFICIENCY).
REGUIRED TESTS

IF THE PROGRRM IS BEING EXECUTED IN SINGLE TEST MODE,

THE

?E ?2Tg§£flg$7 CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER
A.

Eg 8 D TEST
Hgsg TESTS SET *VV-RA’' AND 'vv-B’
RESPECTIVLY.
THESE TE
HUST BE PERFORMED AT LERST ONCE
R
BEFORE TESTS 4 - 10

THESE TESTS DETERMINE AND STORE FOR
TESY 4 AND TEST S.
LATER US$ THE TIHEOUT ONE-SHOT VALUE MEASURED THROUGH
ERCH POR
HESE TESTS MUST BE PERFORMED RT LEQST ONCE BEFORE

TESTS 6 -

10 RRE

DISK SURFACE USAGE

RUN,

CZRMHBO RMO3-2 DU POR LGC 4
13:34
al ~-NOV-?

CIRMHB.P11

37S

I4:15

101

PAGE B

SEG J00e

THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE.

376

377
278
379

21-NOV-77

MARCY1l 30(1046)

HOWEVER,

THE

gSIVE MUST BE CYCLED UP AND ON LINE FOR THE DIAGNOSTIC'TG BE
LOOP ON ERROR OPTION

7.8

A FRILING TEST
IF SW«09> IS SET, THE PROGRAM WILL LOOP ON

UNTIL EITHER THE' SWITCH IS RESET OR THE ERROR STOPS OCCURING.

BECAUSE THE PROGRAM MUST RESET THE RMO3 TO R KNOWN STARTE
BEFORE LOOPING ON THE ERROR, THE TEST FOR SW<09> IS PERFORMED

sgSTBETEggng THE TEST - NOt AT THE POINT WHERE THE ERROR

TEST DESCRIPTIONS

METHOD USED TO VERIFY THART DRIVE IS IN NEUTRAL

IN NEUTRAL BY CHECKING
DRIVE IS
THE PROGRAM DETERMINES THE THE
THE CONTENTS OF THE DRIVE STRTUS REGISTER (RMDS1) THROUGH

THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS
BOTH PORTS.
("ATR’ & 'VV') AND VERIFI S THAT _CORRECT STRTUS IS RERD
THROUGH BOTH PORTS,.

'DPR’, & 'DRY'.)

(

CORRECT ETQTUS "MOL',

'PGM’,

"IF NEITHER PORT SEES ALL 2EROS FROM

RMDS1, THE ROGRRS gONCLUDES THAT THE DRIVE IS IN NEUTRQL
A
TNEEN PORTS INDICARTES
AND THAT ANY BIT DISCREPANCY
FAILURE IN THE PRTH FOR THART

METHOD USED TO VERIFY THAT THE DRIVE HARS BEEN SEIZED

8.2

PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED BY
CK%N% THE DR VENSTRTUS REGISTER (RMDS1) THROUGH
RIFING THART CORRECT STATUS IS
I
WHEN RMDS1 IS READ THROUGH THE OPPOSITE PORT
SEEN.
(I
IF BOTH CONDITIONS EXIST
ZEROS SHOULD BE SEEN.

4LLLLLLLLLEL

PO = 0 0o -2 0 e bt pe
- Owo NN
W

422

T), THE PROGRAM CONCLUDES THART tHE DRIQ
THE OPPOSITE_POR
SEIZED BY'THE SPECIFIED PORT

HAS BEEN
TEST

DRIVE RCCESS TEST

VERIFY THRT THE DRIVE CRAN BE RCCESSED THROUGH BOTH PORTS
A.

onxvz

VERIFY THAT THE DRIVE IS PRESENT,

THAT THE

SELECT
DUAL PORT RMO3, THAT THE ORIVE IS ONLINE (RMDS! HAS
DRIVEI
MOL * 'PGM "OPR', & 'DRY’ BITS SET), AND THE THE DRIVE SERIAL

Nunash READ YHROUGH' BOTH PORTS IS THE SAME.
THE TEST IS REPERTED THROUGH BOTH PORTS.

CoRMHBO RMG2-2 DU POR LGC 2
CZRMHB.FPL
1
21-NOV-77 13:34

MRCYL1

30(1046)

TEST 2

21-NOV-77

SET

'VvV'

14:15

JO1

PAGE 9

SEQ 0009

FOR PORT A

SET VOLUME VRALID

ISSUE AR DRIVE CLEAR COMMAND THROUGH PORT R.

ISSUE Q RERDIN PRESET COMMAND THROUGH PORT R.

ISSUE A
R RELERSE COMMAND THROUGH PORT R.

TEST

T THE

'VVv'

BIT IS SET FOR PORT A.

VERIFY

VERIFY THRT

BI% ?gIgERETURNED TO NEUTRAL AND THRT NEITHER RTTENTION

SET

'vv'

FOR PORT

SET VOLUME VALID

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B.

I'SUE AR RERDIN PRESET COMMAND THROUGH PORT B.

ISSUE R RELERS; COMMAND THROUGH PORT B.
VERIFY THRT
g?g ?
URNED TO NEUTRAL AND THAT NEITHER ATTENTION

TEST 4

THAT THE

'Vvv'

BIT IS SET FOR PORT B.

VERIFY

MERSURE THE TIMEOUT ONE-SHOT THROUGH PORT A

MERSURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT R
A.

WRITE 0’S INTO RMDS1 [nROUGH PORT R AND VERIFY THRT THE
DRIVE HRS BEEN SEIZED.

WRIT FOR TIMEQUT TO OCCUR.
MERSURE THE DURATION OF THE TIMEOUT
ONE-SHOT AND SAVE THE VRALUE FOR LATER USE.

VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS

TEST S

TO NEUTRAL

MEASURE

THE TIMEOUT ONE-SHOT THROUGH PORT B

MEASURE THE TIMEOUT ONE-SHOT VALULE THROUGH PORT B
A.

WRITE 0’S INTO RMDS1 THROUGH PORT B AND VERIFY THART THE
DRIVE HRS BEEN SEIZED.

CZRMHBO RM0O3-/2 DU POR LGC 2
CZRMHB.P11
21-NOvV-77 13:34

MACYL1l

30(1046)

21-NOV-77

14:15

KOl

VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS
TO NEUTRAL

TEST

'CONTROLLER SELECT'

SWITCH,

DRIVE CYCLED UP

’'CONTROLLER SELECT’

SWITCH

(DRIVE CYCLED UP).

SWITCH TO CONTROLLER 'R’ POSITION.
VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT
THE STATUS BITS IN RMDS1, RS READ THROUGH BOTH
PORTS, ARt CORRECT.

SWITCH TO CONTROLLER °B’ POSITION. VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS1, RS RERD THROUGH BOTH

PORTS,
s Pt Pt Pne

SEG 0010

WRIT FOR TIMEQUT TO OCCUR.
MERSURE THE DURRTION OF THE TIMEOUT
ONE-SHOT AND SRVE THE VALUE FOR LRTER USE

TEST THE OPERATION OF THE

oW NN LWN-O

TEST 6

TEST 7

ARE CORRECT.

RETURN THE °'CONTROLLER SELECT’
THE DRIVE STATE.

TEST

’'CONTROLLER SELECT'

SWITCH TO THE 'R/B’'

POSITION.

VERIFY

SWITCH LOCKED ON PORT A

sel

TEST THE OPERATION OF THE

'CONTROLLER SELECT'

SWITCH

(DRIVE CYCLED DOWN;.

CYCLE THE ORIVE DOWN.

_VERIFY THAT THE DRIVE IS IN
SWITCH TOQ CONTROLLER ) POS IT]1 ? .
NEUTRAL
T THE STR TUS BITS IN RMDS1, RS READ THROUGH BOTH

PORTS,

C.
D.

RRE CORRECT

SWITCH THE

°'CONTROLLER SELECT’

WHEN THE DRIVE CYCLES UP,
THRT

'ATA-AR

IS SET

SWITCH TO R;

VERIFY THAT

CYCLE THE DRIVE UP.

'Vvv-R IS RESET,

AND

EQR DRIVE CLERR COMMAND AND A RERDIN PRESET COMMAND THROUGH

FY THRT THE DRIVE CANNOT BE RCCES S ED THROUGH PORT B AND
' SETS WHEN ATEMPTING TO ACCESS 7 HE DRIVE THROUGH
ATTEMPT TO SET PORT REQUECT BY WRITING O’S
B.
RMDS1 THROUGH PORT B.

[9]

Pt Dt Bt Dt B

K;U\U’lmU\U’\U’IU‘U’!U"U\

PAGE

E A RELEASE COMMAND THROUGH PORT R.
E REMAINS LOCKED ON PORT R.

VERIFY THAT THE

CZRMHB0O RM0O3/2 DU POR _LGC 2

CZRMHB.PL 1

g:a
545

E:g

21-NOv-77 13:34

MRCY11 30(1046)

21-NOV-77

14:15

LO1

PRGE 11

SEG 001!

TEST 10 TEST 'CONTROLLER SELECT’ SWITCH LOCKED ON PORT B
TEST THE OPERATION OF THE 'CONTROLLER SELECT' SWITCH (DRIVE CYCLED DOWN).

E:g

CYCLE THE DRIVE DOWN.

S50
SS1

SWITCH TO CONTR?LLER 2 POSITIO! VERIFY THAT THE DRIVE 1S IN
TATUS 8ITS IN RMDS:, RS READ THROUGH BGTH
T
NEUTRAL AND

gg;

SWITCH THE 'CONTROLLER SELECT' SWITCH TO B; CYCLE THE DRIVE UP.

556

WHEY THE DRIVE CYCLES UP, VERIFY THAT ’'vv-B IS RESET, AND

553

ISSUE A DRIVE CLERR COMMAND AND A RERDIN PRESET COMMAND THROUGH

See
563
SeY

ggg

PORTS, RARE CORRECT.

g’gg

ggg
%

VERéFY THAT THE gflé"s CANNOT BE RCCESSED THROUGH PORT A AND
TING TO ACCESS THE DRIVE THROUGH
SETS W-EN
"NED'
PORT
A. RTIEMP
SET PORT REQUEST BY WRITING 0'S

ISSUE A RELERSE COMMAND THROUGH PORT B.

VERIFY THAT THE

DRIVE REMARINS LOCKED ON PORT B.

ggg

571

574

5;2

PORT B.

INTO RMOSI THROUGH PORT

2652

EZE

THAY 'ATAR-B IS SET.

CYCLE THE DRIVE OOWN.

A/B; CYCLE THE DRIVE
U

CHQNGE THE °'CONTROLLER SELECT' SWITCH TO

VERIFY THRT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION

BITS RRE SET, AND THRT BOTH 'VV’ BITS ARE’RESET

CLRMHBO RMO3-2 DU POR LGC 2

CIRMEB.FlL

Sl-NOV-77 13:3M

MACYL11l 30(1046)

21-NOV-?7

14:15

MO1

PAGE 12

SEQ 0012

; PROGRAM REVISION #001

.TITLE
CZRMHBO RH03/2 DU POR LGC 2
; RCOPYRIGHT (C)

ARAARD, SRR i
,IPROGRM By D. RIIKONEN
ewe

'lTHIS PROGRAM WRS ASSEMBLED USING THE POP-11 MRINDEC SYSMRC
,IPRCKRGE (MAINDEC-11-DZQARC-C3),
§arrL

OPERARTIONAL SWITCH SETTINGS

SWITCH

‘»

i »
P

i1
10

NHIBIT
LL ON

N
X o) Sy

[eadoalen saloaloalsadsaliade

0 VW NN L WO

.S8TTL

177774

6e3

177570

&
6cb

0000CO

NHIS{T

LOOP ON

RROR TYPEOUTS

YTERA
RROR

ERROR

BRSIC DEFINITIONS

.#INITIAL ADDRESS OF THE STRCK POINTER #u## 1100 #s¥

$TACK=

.EQUIV éf‘l , ERROR
.EQUIV

177776

RALT ON ERROR

LOOP ON TEST

1977,

000011
00001

USE

P #

001100

JAN 19,

IOT,SCOPE

; sBRSIC DEFINITION OF ERROR CALL
; ;BRSIC DEFINITION OF SCOPE CALL

.nxscsLLnueous osrxnxrxo«g

br=

lgéérg ié%?S
.EQUIV

}

?d”:
l§7égg
00ISP= 177570

ODE FOR HORIZONTAL TRB

%FiSTR‘%:%BURN“LINE FEED
r

m?
TCH
?EEO‘#EST REGISTER
..m DISPLAY REGISTER

kiGE&Rfl.OPURPOSE REGIS" E? grurkm?STER

3m R

R4=

i,GEP(RRL REGISTER

R3=

%4
SP=
76
RS=

GISTER

i
gGHi
;,smcx POINTER

21-NQv-?77
BASIC DEFINITIONS

30(1046)

000340

PR2=
PR3=
PRY=
PRS=
PRb=
PR?=

100000

Sw1s=

SWiY4=

100
40
00
evo0
300
340

0060

2000u
10000

SW10=
SW09=
SWO8=
SWp7=
SWib=
S
=
SHOY=
SW03=
Skge=

2000
1000
400
200
100
40
20
i0
Y

SWils=

4000

SW00=
1
.EQUIV
9, SWS
.EQUIV
, SkS
7,SH7
.EQUIV
.EQUIV
SKO6, SWb
.EQUIV
SWOS5,SWS
LEQUIV SWQOY, Sk4

.EQUIV
.EQUIV

£3000¢

DEFINIT IONS

SWl3=
SWle=

.EQULYV
.EQUIvV

100000
a40000
020000
10000
004000
00

'l”SNITC?oRESéSTER" SWITCH DEFINITIONS

SWlil=

0o0002
000001

- #DATR

B1T15=

BITId4=
BIT13=
BITie=

3,5u3
2, SuWe

SWO!, oWl
SKO0O, SW0

BIT DEFINITIONS
100000
40000
20000

10000

finl: a0
S{Toqz 1000

BI1T08=
BIT07=
BITO6=
BIT0S=
BITO4=
eivg3=
BITO2=
BITOl=

St 0013

400
200
190
40
20
10
&
2

(BITOO TG BITIS)

NN LEW—-0O

PRIi=

PRGE

; s PROGRAM COUNTER

: ¥PRIORITY LEVEL

PRO=

NO1

222D DDDD

PC=

14:15

AB2BBBR3

000007

MACYi1l

|l lendanconionsonlo]

CZRMHB0 RM03/2 CU POR_LGC 2
21-NOV-77 13:34
CZRMHB.P11

CZRMHBO RMO3-2 DU POR LGC 2
21-NOV-?7 13:34
CZRMB.P11

MACY1l

21-Nov-727
BRSIC DEFINITIONS

697
698
699

B]T00=
QUlvV
oUlv
oulv
.EQU]V
oulv
"EQUIvV
euiv
QUIv

[T09,B]T9
B81T08.8]T
B1107.811
706,817
BITdE 8115
BITON.BITH
BIrd3
8113
BITB2.81T2

201

.EQUIV

BITO00,BITO

000001

69%

‘EQulv

700

704
0S

000004
000010

‘
;07

000014
D000

709
710
71l
7le
713

000020
000024
000030
000034
000060

708

714

718
716
717
718
719
720
el
7ee
723
724
72S
726

000014

000064

000240

744

745
74e

S%TV

g
TRY
PTVEC=

?R RKPOINT TRAP (BPT)
T/0UTPUT TRAP

OTVEC= 20
PWRVEC= 24

EMY

,,POHER FRI#

(I07)

#%SCOPEx*#

RAP (EMT) %#ERROR®#*
.,E?ULGTOR

= 30

TRAPVEC=34
TKVEC=

OUT AND OTHER ERRORS

RY%D AND ILLEGAL INSTRUCTIONS

,,TRRCE

14
1Y

::TTY ngggggo
Ye CTOR

b4
TPVEC=
PIRQVEC=240

; ; PROGRAM INTERRUPT REQUEST VECTOR

0 00 00

I 000 00000000000 00

00 3T

0 S0

0 R

RH1l REGISTERS
I

S 3 BRI

00000 0

0000 00 0000000 00 00

000000000 300 0 000

060 00 0 00 000

:CONTROL AND STATUS REGISTER 1 (RMCS1)

001000
0020
020000
040000

741
742
743

gRRvECs&C:loH

.SBTTL

730
731
732
733

734

SEQ 0014

GBRSIC “CPU” TRAP VECTOR ¢OORESSES

S5 AU I

000100

735
736
737
738
739
740

HH 603360 08 38 38 3 000 00 08 38 46 30 30 36 36 06 3046 3% 38 3 36 38 38 36 36 36 30 38 38 98 36 0 36 00 0 0% 3 3 6 06 36 38 3 3 36 3 06 36 0% 3 3 06 3 3 3 3¢ &

7e?

728
7?29

PRGE

BITOI.BITI

ENQBLE (BIT #6)
;%RSRRUPT

0002
000400

R HS
S

100000

;WORD COUNT REGISTER

(RMWC)

: (EARCH BIT IS CALLED BY BIT NUMBER)
; BUS RODRESS

i (ERCH BIT

GISTER

CALLE

(RMBR)
BY BIT NUMBER)

; CONTROL AND STATUS REGISTER ¢ (RMCS2)

020001

000002
000004

Ul=
U3=

DRESS 817
£SS BIT

BIT 88)
(BIT #9)

PORT
CT (BIT #10)
; MASSBU S PARI Y ERROR (BIT 813 )
: TRANSFER ERROR (BIT #14)
'SPECIAL CONDITION (BIT #15)

-0
~03

BOe

nmerennn

691
692
693
694
695

14:15

30(1046)

CZRMHBO RM0O3-2 DU POR _LGC 2
CIRMHB.P11
21-NOV-77 13:34

000010

020
000040

MRCY!1

30(10“6)
21-NOV-77
1 REGISTERS

coe
PHGE

SEG 001S

BRI=
PRT=

10
2

BUS noonsss
¥Ncaenenr INHIBIT
EERUS
Y TEST (BIT #4)

bR:

538
400

;3{}'%7
SEROY
CBIT ERROR
87) (BIT #8)
;nass
PRRITY

000

;nnga
BIT0181

MOPEz

MXF =

PGE=
=

NED=

00
100000

14:15

UPE=
WCE=
OLT=

éooo

“0880

eooog
4000
150000

(BIT

axr

w1l

812)

unx s
xrv
(31T 813)
'WRITE CHECK E
(axr sl4)
‘DRTA LATE (BIT 015)

;DRTA BUFFER REGIST R_(RMDB)

: (ERCH BIT IS

%3,

1. nns} RROR (BIT #9)
v

(BIT

CALLED

BY BIT

NUMBER)

22222

L2222 2222221222222
22222222222 2222 22dN2222222 222222222

.SBTTL

RMO3 REGISTERS

§ o SHORUEIEIEE 0000 00000
000 00 0000 0000 00 00 00 06 00 00 0
000 00 0600 0 00 00 0

;CONTROL AND STATUS

000001
000002
OOOOOH

800
20

000040
004000

GO=

:GO

BJT

(BIT

80)

;?ung¥xon éooe BIT sl

FS;

ég

'FUNGT gfi 8082 gfr i

;13

Fy=
DvA=

. DFS

OFF20=
D0I1GB=
GRv=

DLe4=
351=

;Func;Ion cgoe 91;

40
4000

:FUNCTION CODE BIT #S
'DEVICE AVRILABLE (BIT

(RMDS1)

vs onunno s~/ssc

20
40

'8
;

2
M4
10

00)

ss THRN sq (BIT #4)
s) BIT #5)

308

88}?@; cé? .3

PGM=

1000

;DR

(911

(BIT
o BAND (BIT oa)

.GO

400

u1l)

(#01)

She=

DPR=

(BIT #8)

os (gé29)

LBT=
WRL=
MOL =
PIP=

2000
4 080
1
20088

iL
SEC
T
‘areanso (BIT #10)
‘WRYITE LOCK (BIT 8!
i ME I¥fl
-L1
(BI
912)
:POS
g?fléflc
RQT}ON
xn PROGRESS

ATA=

100000

'ATTENTION ACTIVE

ERR=

400

:ERROR REGISTER
000001

(800)

FO=

;:DRIVE STATUS REGISTER

100000

ILF=

:COMPOSITE

801

(RMER1)

ERROR

(BIT a1y
(BIT

015)

(BIT

%0)

(802)
s ILLEGAL FUNCTION

(BIT

#13)

CZRMHBC RMO3-/2 DU POR LGC 2
21-NOV-77 13:34
CZRMHB.P1!
803
804

MACY1]l 3G(1046)

RMO3 REGISTERS

000002
000004

¢
809
810
Blé
8l
813
8l4
81S

000200
000400
004000
010000
020000

816
817
818
819
820
g2l
B22
823
824
825
826

000001
000002

828

880010

827

830
831
832
833
834

040000
100000

000001

2
4
10
20

B
gca6=
TRE:
WLE=

200
400
4338
4000

WCF=

DTE=
oPl=
UNS=
OCK=

D02
PAGE

SEG 0016

: ILLEGAL REGISTER (BIT s1)
;REG};TER
IF ?nrxou REFUSED
‘PARITY Ena
(BIT 83)
;Egnnnr
RROR (BIT #4)

‘WRITE SBOEK FAIL (BIT 15)

0
0
40000
100000

WRITE LOCK E
(BIT #i1)
InING ERROR (BIT si2)
‘Sfié
INCOMPLETE (BIT #13)
TION
:
!DRIVE UNSRFE (BIT #I4)
'DATA CHECK ERROR (BIT 15)

(BIT #2;

E ERROR
) #7).
(ggt (BT
:R OERR SSQPEESOE
PINV 12 235&55%255308 st 13

.DIRGINOSTIC MODE (BIT 80}

DMD=

:ATTENTION SUMMARY PSEUDO-REGISTER (RMAS)

000004

000040
000100
000200

ATO=

(BIT #0)

s DEV L

4
10
20

‘DEVICE 2 (BIT #2)
'DEVICE 3 (BIT #3)
'DEVIGE 4 (BIT #4)

éoo

:8 vxcE

ATl=

nr?E

AT2=
AT3=
AT4=

(804)

; OEV CE 1 (BIT sD)

<a§7 $7)

. DESIRED SECTOR/TRACK RDDRESS REGISTER (RMDA)

! (ERCH BIT IS CALLED BY BIT NUMBER)

.DRIVE TYPE REGISTER (RMDT)

300002

g4}
842
843
By
845

000004
000010
000020
000040
000100

847
848
849
850
gsl
8se
853
854
8sc
856
BE?
BEe

000400
004000
020000
040000
100000

B84E

ILRz
RMR=
PAR=
FER=

14:15

:MAINTAINRBILITY REGISTER (RMMR1)(#03)

835
836
837

839
830

21-NOV-?7

0920200

B?S?:
0T02=

DT03=
DT04=
DTOS=

81092
DR@=

§4

10
20
40

400

(#06)
.ORIVE

TYPE

NUMBER

BIT 1

!DRIVE
'ORIVE
!ORIVE

TYPE
TYPE
TYPE

NUMBER BIT
NUMBER BIT S
NUMBER BIT b

(DR 35 TYPE NU ER SIT 2
!ORIVE TYPE NUMBER BIT 3

DR 3% TYPE NUMBER gxr 9

MOH=

4000
20000

‘DRIVE REQUEST REQUIRED (BIT #11)
:MOVING HERD (?¥T $13)

NBA=

100000

!NOT BLOCK RDDRESSED (BIT #15)

TAP=

0000

;LOOK-AHERD REGISTER (RMLA)
000100
000200
000400
00100C

(805)

SCO=

§Ci=
s€2=
§C3=

100

200
400
1060

*TAPE DRIVE

(BIT

#14)

(#07)

:SECTOR COUNT FIELD O (BIT #6)

!SECTOR COUNT FIELD 1 (BIT #7)
!SECTOR COUNT FIELD 2 (BIT #8)
'SECTOR COUNT FIELD 3 (BIT #3)

CZRHHBO RM03-2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34
ggg

002000

825

000010

86<
866
867

002000
004000
010000

868
ggg

30(1046)
21-NOV-?7
RMO3 REGISTERS
SCH=

DPE=

000200

DVC=

020000
100000

OPE=
SKI=

835

LBC=
LSC=
IvC=

14:15

EQ2
PAGE

2000

SEQ 0017

:SECTOR COUNT FIELD 4

;RMO3 ERROR REGISTER

863

864

MARCY11l

(RMER2)

(BIT

10/

(#10)

;DATA PARITY ERROR

2000
4000
10000

;Los§ 8; gxr
CLOCK (917 #10)
;LOS
YSTEM CLOCK (BIT #11)
SINVALID COMMAND (BIT #]2)

200

:DEVICE CHECK

20000
100000

:OFFSET REGISTER

(BIT

(BIT
#

:OPERATOR ERROR (BIT #13)
:SEEK INCOMPLETE (BIT #ld)
(RMOF)

(si1)

873

874
87
g;g

000200

002000
004000
010000

OFD=

HCI=
ECI=
FMT1e=

200

2000
4000
10000

;OFFSET FORWARD

(BIT

85)

HERDER COMPARE INMIBIT (BIT #10)
:ERROR CORRECTION CODE INHIBIT (BIT 11}
:FORMART BIT (BIT sl12

878
ggg

:DESIRED CYLINDER ADDRESS (RMDC) (#12)
:(ERCH B1T IS CALLED BY BIT NUMBER)

881
ggg

;SERIAL NUMBER REGISTER (RMSN) (#14)
: (ERCH IS CALLED BY BIT NUMBER)

884

:ECC POSITION REGISTER (RMECI)

887
ggg

;ECC PATTERN REGISTER (RMEC2) (#17)
:(EACH BIT IS CALLED BY BIT NUMBER)

gg?

HH [T 22T 2222222222222 22 Y2222 2 Y2222 X222 22X XXX 2T Y X))

ggg

.SBTTL

ggg

HH [ I XTI XZ22X222YZTXEX22ZS Y2222 X222 X2 S22 SY2ZR

ggg

: (ERCH BIT

(#16)

IS CALLED BY BIT NUMBER)

DEFINITIONS OF THE RH11/RMO3 ADDRESS

INDEXES
XTSRS X

896

000000

RMCS1=0

:CONTROL AND srnrus REGISTER

838
893
900

000004
000006
000010

RMBA=Y
RMDA=6
RMCS2=10

{UNIBU
ISTER (NOT A DRIVE REG)
ocsxnso SECTOR/TRACK ADORESS REGISTER (DRIVE REG.
JCONT og AND STATUS REGISTER #2 (NOT A DRIVE REG)

RMDT=26

;DRIVE TYPE

000032
000034
000040
000042
000044

RMOF=32
RMOC=34
RMMR2=40
RMER2=42
RMEC [ =44

: OF FSE
GISTER (DRIVE
REG. 11)
:DESIRED CYLINDER ngoaess REGISTER (DRIVE REG.
P MAIN
nanc; REGISTER 82 (DRIVE REG. 14
;ERROR
REGISTER #2” (DRIVE REG. IS)
‘ECC POSITION REGISTER (DRIVE REG. 16)

897

90]
902
903
904
305
906

307
309
910
911
912
913

Sl4

0000062

000012
000014
000016
000020
000022
000024

000030

000046

RMWC=2

RMDSI=12
RMER1=1Y
RMAS=16
RMLA=20
RMDB=22
RMMR1 =24

RMSN=30

RMEC2=46

(DRIVE REG.

: WORD gounr R§GI ER (NOT A DRIVE REG)

0Q)

DRI
rnru§ REGISTER (DRIVE REG 01)
:
REGISTER 81 (DRIVE
REG. 02)
SATTENTION
Y PSE
REGISTER (DRIVE REG. O4)
:LOOK RHERD
cxsr;n (DRIVE REG. 07)
:DATA BUFFER
REGISTER (NOT A DRIVE REG.
nnxurn NABILITY sgcxsrsn conxvs REG. 03)

:SER]

22"92

(DRIVE

REG.

06)

ECC PRTTERN REGISTER (DRIVE REG.

10)

12)

0S)

gdhflfllhbmdho
Whu—oOwm
Nfugv—b—.—-o—.—-

CZRMHBO RMO3-2 DU POR LGC 2
21-Nuv-77 13:34
CZRMHB.P1
!

MARCY1l

FO2

30(1046)
51°NOV-??
14: 15
PAGE | 8
DEFINIT IONS OF THE RH11/RMO3 RDDRESS

.SBTTL

CATCHER

; #ALL UNU§ED LOCATIONS FROM 4 - 776 CONTRIN A *.+42 HALT"

000000

000174
000176

TRAP

INDEXES

; #SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
; ®LOCATION 9 CONTRINS O TO CATCH IMPROPERLY LORDED VECTORS

000174
000000
000000

DISPREG:
SWREG:

.SBTTL

.=l

.WOR D
.WORD

RCT11

0
O

; s SOFTWARE DISPLAY REGISTER
; ;SOF TWARE SWITCH REGISTER

HOOKS

X IIZ2ITTIITTIIISTLIIZITIIZIZSIZISZR
S22 2222222323223 223 222228222222

:HOOKS REQUIRED BY ACT1l

000200

000046

SENDRD

;3 1)SET LOC.46 TO ADDRESS OF SENDRD IN .SEOP

.=SSVPC
.SBTTL

00C137

g0aL3”

301714

20000

;3 2)SET LOC.52 T 20000
;;

RESTORE PC

STRARTING RADDRESS = 200
ImP

001706
.SBTTL

020204

; SAVE PC

I;gso

0000s2

00020C

$SYP
$SVvPC=.

START

;START THE PROGRAM

STRRT THE PROGRAM AND CHANGE THE RH11 RDDRESS = 204

JmMP

STRART]

:START AND CHANGE THE RHl] RDORESS

SEG 0018

CZRMHBO RMO3-/2 DU POR LGC 2

21-NOV-77

g:g

.SBTTL

COMMON TAGS

948

HH 60 0600036030 30 30 3 3 36 06 36 3 35 36 3 3 36 9 3 3 96 36 3 36 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3% 3 3 3 3 3 3 32 %% % EE S R®®%

CZRMHB. P11

ggg
95]

952

953
354
955
956
957
958
959
960

21-NOV-77 13:34

000000
000
000
000000
000000
000
000000

964

001120

000000
000000

%H%

000088

%5
doille
963 001116

;fiag
'

001100

001100
881100
1162
001103
00118:
0011
001110
001112

SCMTAG:
gpn S:
TsTNM:
SERFLG:
ICNT:
LPAOR:
SLPERR:
SERTTL:

;

920

ggiigg

001134

000

973

001140

PAGE 19

SEG 0019

}ae Eecgggg zg VARIOUS COMMON STORARGE LOCATIONS
.=1100

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD

O
O
O
O
O
O
O

: ;START OF COMMON TAGS
;;conrn}:g PASS COUNT
: :CONTA
THE
TEST NUMBER
: :CONTRINS ERROR FLAG
,;CONTR}R% g TEST ITERATION COUNT
: 'CONTA
L
RDDRESS
:
'CONTARINS ?COPE RETURN FOR ERRORS
: 'CONTRINS TOTAL ERRORS DETECTED

.WORD

O
O

.,couvn{ns PC OF LARST ERROR INSTRUCTION
; ;CONTRING ADDRESS OF 'GOOD’ DATA

’5828

! 'RESERVED--NOT TO BE USED

SiRdAs.
BVIE
SERRPC:
.WORD
$GDADR:

a67 oo1isq
3308938
001126 000000
3;5

COMMON TAGS

14:15

GO2

MACY1l 30(1046)

$200RF:
‘HoRD
$BOOAT: .WORD

1: :CONTARINS
CONTAING P20k
para o0 DATA
'BRD' DATRA

SINTRG: '55;5

$AUTOB:

.BYTE

: D INTERRUPT MODE INDICRTOR

177570

WR:

.WORD

DSWR

: ; ADDRESS OF gu TCH REGISTER

001146

177562

§TKB:

001152

177566

§TPB:

980
98]
382
983

001155
001156
001157
001160

002
012
000
000000

SFILLS:
$FILLC:
STPFLG:
SREGAD:

.BYTE
.BYTE
.BYTE
.WORD

986
987

001164
001166

000000
0000

§TMPO:
§TMP1:

.WORD
.WORD

976

977

001150

979

(001154

978

000

177564

000

395 001162 000000
988
989
990
991
932
993
994
995
936

ggg
999

1000
1001

001170
001172
001174
001176
001200
001202
(001206
(001207
001210

001212
001214

000000
000000
177607
077
015
000012

00001€

<
000012

172540
172%4¢

000377

177562

§TPS:

177564

SNULL:

.BYTE

SREGO:

i QOTAING k. CRRORS PER TEST

177566

.WORD

§TMP2:
.WORD
§TMP3:
.WORD
§TMP4:
.WORD
STIMES: O
SESCAPE : 0
SBELL:
.nsc¥z
$QUES:
.ARSCIT
§CRLF:
.ASCII
SLF:
-RSCI1z

: ;AUTOMATIC MODE INDICATOR

2ITTY KBO

FER

:TTY PRINTER STATUS REG. RDDRESS

21TTY PRINTER BUFFER REG. RDDRESS

: :CONTARINS Nubk CHARACTER FOR FILLS

2
Ie2
O
O

P CONTRINS #
FILLER CHARRCTERS REQUIRED
: P INSERT FILL CHRRS. AFTER A "LINE FEED"
: P“TERMINAL AVAILRBLETM FLAG (BIT<07>=0=YES)
: 'CONTRINS THE RDDRESS FROM

O
O

: 'USER DEF INED
' tUSER
DEFINED

O
O
O
<2075 (377> 377>
%/
S
A2

O e S E SRt GADS +05 T HINED
: 'USER DEF INED
! USER gsrxneo
. SUSER
DEFINED
:'MAX. NUMBER OF ITERATIUNS
: 'ESCAPE ON_ERROR ADDRESS
;;coog FOR BELL
: 'QUESTION MARK
: ' CARRIAGE RETURN
:LINE FEED

éhnunuulu";uuuunuu“unnnu"lnnuunuuuu
LF

SLKCSR:
§LKCSB:

=
=

.WORD
.WORD

1
12

172540
1728542

:ADDR OF KW11-P STATUS REGISTER
'ADDR OF KWll-P COUNTER BUFFER

888838RRRARRERRRR2E3]

30(1046)

21-NOV-7?

COMMON TRGS

gLvac

5 uoa

PORTB:
PORTC:
ASR1:
PTNBR:

.WORD
.WORD
.WORD
.WOR

TSTNUH:

JWORD

o
e Pt Bt Pt

rufururrn

Pt Bt Pt P

ssg

oo Pt s

CKERR:
NO EIZ:

Pt Pt Pt P
Pt Bt B

MACY11

VEC: . S
B5RYEST UORE

000000
000000

RELERR:
TI
:
WATGH:
TIMER:
T%H AP:
TIMEB:
TIMEBP:
KYBCTL:

CHGADR:
R

WOR

.WOR
WOR

.WOR
WOR
.WORD
.WORD
.WORD
.WOR
.WOR
.WORD

.WORD

14:15

HO2

PRAGE 20

xgq

SEG 0020

:ADDR OF KW11-P VECTOR

'ADDR OF Kill-L STATUS REGISTER
;QBBR £ KWIj-L VECTOR

xogsws
&

'AODRESS OF
PORT
: ADDRESS OF PORT B
ADDRESS
OF DIFFERENT ORIVE

O
O
O
8

!CONTAINS THE P RT RODRESS FOR ERROR TYPEOUTS
.ESnrnjng rfig g§§25§8
oF ?He SET71NG_POR
;

CONTRING.
TH

S OF THE

TOPPOSITE’

0
0

;xr -1

npét TH§ PORT IN -SEIZPT' DID NOT RELEASE THE DRIVE

0
0
O
O
O
0
0
O
O

AT CH Bot TIMERLOGATION

: THE TIHEOUT ONE-SHOT VRLUE MEASURED THROUGH PORT A

:PORT A T&‘OST VAL

iTHE T1

iPORT 8

NE-SH

254

VQLUE MEASURED THROUGH PGRT B

TIMEOUT VRLUE + 25

SING&E
TEST INDICATOR
; CHAN

RH11

RADDRESS

INDICATOR

IZI22222I2E2222 2222223222222 2222222222222 2222222 22222222222223 22

00000
WhWwwn
(W~ 0w

00 00 Pt Bt Pt Gt Pt

.SBTTL

RM11/RMO3 UNIBUS AND VECTOR RDDRESSES

PR RRRRRRRERE AR R R R

176700
000254

SRMADR:
SRMVEC:

. WORD
. WORD

PORT

IE -1, 8 REG S$ER
HISCOHSRRISON OCCURRED
T IN 'GEIZPT' DID NOT SEIZE THE DRIVE

Pt Pt Pt Dt Pt Pt Pt Pt Pt Pt Pt

s Pt et Pt

s P

DCNDCNDDCHDE
5555555505508
gflHUflNURNUN
NN .Cw&»%:mflTQWULCUfl”43SE}98

1088
1002

nxufiig
SETRBPEYAE 4 SRERERYY
L

CZRMHBO RMO3-2 DU POR LGC 2
CZRMHE. Pll
21-NOV-77 13:34

176700
254

RN RN RN AR R

;RH11/RMO3

R R RN

R AR

UNIBUS RADDPRESS

RRRRR

'RH11 INTERRUPT VECTOR ADDRESS

C<RMHBO RMO3-2 DU POR LGC 2
CZRMHB.P11
21-NOV-77 13:34

MACY11l

30(1046)
E%ENOV-??
ERROR POINTER TRBLE
.SBTTL

14:15

102

PRGE 21

SEG 002!

ERROR POINTER TABLE

; #THIS TABLE CONTARINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;#THE INFORMATION 1S
OBTRINED BY USING THE fNDEX NUMBER FOUND IN

; #LOCATION SITEMB.
THIS
NUMBER %NDICQTES WHICH ITEM IN THE TARBLE IS PERTINENT.
; ®NOTE L :
IF SITEMB IS O
THE ONLY PERTINENT DATA IS (SERRPC).
; #NOTER2:

EACH

;s POINTS T0O T:E ERROR MESSAGE

o) ]

, sPOINTS TO THE CRTA

wgum
2R8¢

Do be pms pe

8388

;ERROR

DRTA HERDER

; sPOINTS TO THE DATA FORMAT

Sz{

017747

;DRIVE IS NON-EXISTENT (°NED’

BIT SET)

)
DF1

TRO&

[NININTN)

s bes

8688

;ERROR 2

-O00N

s ;POINTS TO T

SERRTB:

001276

QSRR RRARRRRRRE50 RAR

IN THE TRBLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

;&
T ¥

oNnNLw—0owoNorNE

ITEM

024120
02433

EM2
DHE
DT
DfFe

; WRONG DRIVE TYPE

SE?

;CONTROLLER SELECT SWITCH ON DRIVE NOT IN 'AR/B’

;ERROR 3

00036
022s23
024104
024324

DTl
DF1

;sERROR 4

EMM

02011S
022574
024120
024331

DHe
D12

;DRIVE NOT ON LINE

DFe
;ERROR S

Sug

020137

;SERIAL NUMBER PEARD THROUGH ERCH PORT NOT THE SRME

D15
DFS

;ERROR &

Ssg

: TIMECUT HAS NOT OCCURRED WITHIN 2 SECONDS

CZRMHBO RMO3-2 DU POR_LGC 2
CZRMHB.P11
21-NOV-77 13:34
1090
1091
1092
igga

1095

0013Se
001354

0e41Se
024344

001356

001360
001362
001364

1102

00i3k6

020273

1110
1111
}%ig

001370
001372
001374

001376

001400
001402
001404

J01406

1123

001416

DHI
DT!
OF1

020472

EM12

022523
024104
024324

;REARDIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT

; 'GO’

BIT RESET DURING UNLOAD COMMAND

DH!
DTl
DF1

; INCORRECT STATUS DURING UNLORD COMMAND

;ERROR 13
001420
001422
001424

020541

EMI13

023013
024174
024344

DH13
DT13
DFe

;ORIVE DID NOT RETURN TO NEUTRAL AFTER UNLORD COMMAND

;ERROR 14
001426
001430
001432
DOI434

020626
023071
024204
024353

EMIY
DH14
DTIM
OF 14
;ERROR

001436

001440
001442

001444

020710

022523
(24104

024324

ii:g
1144
114S

EMI1

022523
024104
024324

i{gg

}i:?

DH1
DTl
DF1

020425

{igg

1138
1139

EMIO

022523
024104
024324

i%gg

1137

; TIMEOUT ONE-SHOT IS LESZ THAN SO0 MS

;ERROR 12
00i410
001412
001414

1130
1131
1132
i}ga

SEG 0022

;ERROR 11

1117
1118
1119
1120

1124
1125
iisg

EM?

DH?
DT?
OF?

020340

ii}g
1116

PAGE 22

:ERROR 10

{igg
1109

JOe

DT6
DFb

022746
024162
024347

iig?

1106

14:15

+ERROR 7

1096
1097
1098
1099

1103
4104
110S

MACY11l 31(1046)
21-NOV-?7
ERROR POINTER TRBLE

;ATTENTION BIT SET ON

‘OPPOSITE PORT'

AFTER UNLORD

EMLS

DH1
DTl

;RTTENTION BIT NOT SET ON PORT WHICH

ISSUED

°*UNLORD®

DF1

:ERROR 16
00144

020774

EMIE

;ORTVE NOT IN NEUTRAL AFTER UNLORD WITH
; SELECT® SWITCH MOVED FROM ’R/B’

°*CONTROLLER

CZRMHBO RMO3/2 DU POR LGC 2
CZRMHB.P11
21-NOV-77 13:34
1146
1147
1148
{{;3

001450
001482
001484

1151

001456

1152
1163
}}gg

{{29
1158
1189
1160
i}gé

023013
0241724
024344

021120

001460
001462
001464

0e321!l
024222
024361

001466

021203

001470
001472
001474

023211
Q24222
024361

iiga

1165
1166
1167
ii%g

1172

001476

001500
001502
001504

021266

022523
024104
024324

1180
1181
iigg

001506

001510
001Si2
00ISI4

021337

022523
024104
024324

001516

001520
Q00is2e
001524

021435

022523
S 104
024324

001526
001530
001532
001534

021531
023230
024230
024347

:ERROR 20

EM2O0

DHi?
DT1?
DF17

;DRIVE LOCKED ON PORT 'R’ BY SWITCH WHILE CYCLED UP

;DRIVE LOCKED ON PORT 'B’ BY SWITCH WHILE CYCLED UP

EM21

DH1
DTl
OF 1

:STATUS INCORRECT FOR PORT RFTER CYCLE UP

EM22
DHl
DTi
DF 1

;REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON 'OPPOSITE'

EM23

DH1
0T}
DF{

;"NED’

SET WHEN RMDS1 RCCESSED THROUGH PORT NOT SWITCHED

EM2Y
DH2Y
DT2M
DF?

;ORIVE SWITCHED TO LOCKED OUT PORT WHEN RELERSED/

; ERROR 25

001536
001540
001S4e
001844

021611
023334
024242
024363

{igg
1200
120

EM1?7

8H17
T1?
DF17

;ERROR 24

figé

1133
1194
1195
i}gg

SEQ 0023

DHI3
DT13
DF6
:ERROR 17

;ERROR 23

iigg
1186
1187
1188
i%gg

PRGE 23

;ERROR 22

ii;g
1179

KO2

;ERROR 21

ii;?
1173
1124
i};é

MACY1] 30(1046)
21-NOV-?7
14:15
ERROR POINTER TRBLE

EM2S
DHES
D125
DF2s

;RH11

DIDN'T RESPOND TO RDDRESSING

;ERROR 26
0C1S46
001550

0OC J00
0CJ000

0
0

: UNUSED ERROR MESSAGES

PORT

n
NN

Pt Dt Gt Pt Bt Pt Dot et P

Bt Pt Bt Pt Pt Pt Bt Pt Bt P P

B Dt Pt s Bt Pt Pt Pt Pt (o Pt Pt Pt Pt s Pt

s Pt Pt Pt Pt Pt
Pt Pt

e Pt Pt Pt Pt et Bt P

s Pome

mgumn
g 8 -CI& £
£E BEIRRECR
NONLWN—-OoONTNLWN—-0O
BB VRS OONON LW~ AN
~N
wh

Pt Pt Pt Pt Pt e Pt Pt Pt Pret Pt ot
o furufurVLL
NNV VIV VLNV U VLY rrufuuYroN
VY

-0

[ Y]

lgig)

M03-/2 DU POR %GC c
P11
21-NOV-77
13:34
001552
001554

000600
000000

MACY11

32(&0‘46)
2*-NOV-7?
RROR POINTER TRBLE

14:15

LO2

PRGE 24

SEQ 0024

0
0

:ERROR 27
001SS6
001560

000000
000000

0
0

001564

000000

0015

0000

; UNUSED ERROR MESSAGES

;ERROR 30
001S6b
001570
001572
001574

021653
023343
(e4246
(024364

EM30
DH30
DT30
DF30

;DRIVE NOT SEIZED BY PORT

'N’

;ERROR 31

001576
001600
001602
001604

021704
022574
Q24120
024331

M3l
He
pDT2
DfFe2

+WRONG STRTUS SEEN BY THE SEIZING PORT

;ERROR 32
001606
001610
001612
001614

021752
Q22574
024120
024331

EMI2
He
T2
DfFe

;REGISTER CONTENTS

INCORRECT

;ERROR 33

001616

001620
001622
001624

2002

022523
024104
024324

EM33
DH]
DTl
DF1

;CONTROL BUS PARITY ERROR WHILE RERDING REGISTER

;ERROR 34
001626
0Cis30
D0l632
001634

D22066
023466
024266
024373

EM3Y
DH34
DT34
OF 34

;CAN'T ACCESS DRIVE THROUGH EITHER PORT

;ERROR 3S

001636
001640
00le42
001644

022135
023564

024300
(024347

EM3S
DHIS

;DRIVE NOT

IN NEUTRAL AFTER RELERSE,

REQUEST NOT SET

;ORIVE NOT

IN NEUTRAL RFTER

REQUEST NOT

DT3S
DF?

;ERROR 36
001646
D01eS0

Qge22ee
0235e4

EM36
OH3E

TIMEOQUT,

SET

CZRMMBO RM0O3/2 DU POR LGC 2

PPt Pros e Pt P

CZRMHB.PIL L

21-NOv-77 13:34

MRCY11l 30(1046)

21-NOV-?7_

ERROR POINTER TRBLE

Sgé

%}EEB

Bssggg

Bug;

265

1662

4246

DT30

Pt Pt Pt et P

gg? %166‘4 85‘4 64

ot Pt Pt Pt P
Pt P
P
et Pt Pt Pat e Pt Pt Pt Pt Pt Pt Pt Pt P

280
281
282
283
284
285
286
287
2e8
289

535
293

001666

CO01670
001672
001674

022370

EMY0

Q2400S
Q24312
024347

DH40
DT40
DF?

001676

001700
001702
001704

022445

s et Pt Pt Pt Pt

EMML

023343
024246
024364

DH30
D130
DF30

HH 00000

%i;
001714

Pt Pt P

¥ %17?}
17
gg
9 00{;32
fi %1

Pt et Pt Pt Dt Pt et Gt PPt P

;ORIVE NOT SEIZED BY PORT RFTER RELERSE WIITH REQUEST SET

ERROR 41

%3985
012737

001270
177777

001100

S& 001722 0000OS
303

;REGISTER CONTENTS INCORRECT ARFTER RELERSE/TIMEOUT

;ERROR 40

S;’E
278
279

001794

0227%

001270

001140

8?505 001100
012737

013460

;REGISTER WRONG AFTER RELEASE WITH REQUEST SET

000 03600036 32030 00 06 06 06 06 06 3% 3% 36 36 00 06 38 3 36 36 30 06 36 3 3 3¢ 46 36 3 3 3 3 96 U 0 3 30 4 3 3 %

.SBTTL

STRRTUP AND INITIALIZATION ROUTINES

s 3 SRR

0000 00 00 00 00000 00 0000000 000 00 000 30000 000 0O

STRRT: ghn
smmé MOV

gnggqn
8-1, CHGROR

B I

SBE% T:E gumce RH11 ADDRESS’® INDICATOR
ET THE
'CHANGE RH11 ADORESS®' INDICATOR

Sgap%. ?fi?fimuzs THE COMMON mcguznp HE BUS

i CLEAR nsc
COMOY
;QGS
e TRG) Rgn
T LQCATION
TO CLERRED
CLR
'Rg
RE
EE
rgnonv
LOCQT?SN
coP
osmns ; ; DONE?
B?E

000020

‘fi
Bices 818237 879248 BBARE
306 001766 012737 000340 000032

e ?%x t 3:

s INITIALIZE R FEW
MOV

::EE?PUP
THE émcx POINTER

885 copsiaaxowec txor VECTOR FOR SCOPE ROUTINE

774 §1§;§§ §6§§ %fiq

A3V
MOV

ngz

'”2@2

gfl §§§§é§ 882§3; 886508
315 002053 S g 88 qu 881 :132

Ste
ngvg

is
csnm
”LPRO)R(

§§§

SEQ 00eS

DF 30

868869

277

PRGE 2S5

; ERROR 37

Sga

270

MO2

T3S
B3

Y
1652
85438
5:8 B3ies§

271
272
g;a

14:15

R gn!fi?vfc"
Enfi vEcron FOR ERROR ROUTINE
mvsc+ i § ng
agwmpmL 7vscron FOR TRAP CALLS

:: é5 FE £ SERPE ON ERROR ADORESS
"INlI? RLIEE mg LSSP RSSRESS FOR SCOPE

CZRMHB0 RMO3/2 DU POR LGC ¢
CZRMHB. P11
21-NOV-77 13:34

1314

1318

002042

1316

012737

002042

1317
1318

1374;
01273

000004
110

1322

002104

001012

002106

000403

12716

0G2116

002116

012737

000176

002132

012637

000004

MACY11

001110

NOe

3C(1046)
21 -NOV-77
14:15
PAGE 26
INITIALIZE THE COMMON TRGS

MOV

iggg

1327

ooa{ie

1328

002124

1331
1332
1333

002136
002142
002144

005227
001002
10440]

016530

1336

002154

005737

000042

023727

001140

1353

i334
1335

1337
1338

002150

002160
002162

012737

004737

001006

000174

SIEQUAL TO A ~-1%

0O00oM

015052

002170

001005

}g:g

885553

112737

000001

1344

pO2

004737

002576

1346
1347
1348
1349
1350
135]
1352

002214
002216
002222
002230
002232
002236
002240

104412
012637
023727
101403
104401
744
013737

002

042737

002304
002306
002307
002310

104403
001
000
104401

1340
1341

1345

002172
002179

D02210

1353

002246

1355
1356
1357
1358
1359

002260
002264
002270
002274
002300

1354

1360
1361
1362
1363
1364

1365

1366
1367
1368
1369

1.4406
03

104401

001224
001224

013746

001226

002320
002322
002323

104403
001
000

001226

RROR VECTOR
sgnga
CTOR

668

PIBRANCH IF

sDSKA, SWR
ISETUP F
ngounne SWICH REGISTER
sDDISP,DISPLAY ;;RNO R
REGISTER
s-1, ISLR
:iTRY T0 EEREE gxsanv
HARDWARE
SWR
NO TIMEOUT TRAP OCCURRED

65$

6SS:

MOV

8SWREG, SKR

; ;POINT TO SOF TWARE SWR

66$:

MOV

(SP)+,d8£RRVEC

;;RESTORE ERROR VECTOR

INC
BNE
TYPE

8-1
1s
TITLE

;rénsr START ?
:
F NOT
:TYFE
PROGRAM NAME

757

Ju42

SWR, $SWREG

;;ggrrunni szércu REG SELECTED?

MOV

CMP

BNE
ggg:

2%:

865$, (SP)

sDISPRES, DISPLAY

::SET UP FOR TRAP RETURN
_

JSR
AC, STKINT
‘SETUP THE TTY KEYBORRD
GET VARLUE FOR SOFTWARE SWITCH EEG STER

BNE

000007

0000I6

0186725

BNF.

GTSWR
BR

MOVB

678
68$
68$

ING UNDER XXDP/ACT?

: ;BRANCH IF YES

'BRANCH

:1GET SOFT-SWR SETTINGS

81, SAUTOB

s ;SET AUTO-MODE INDICATOR

JSR

PC, CHANGE

; CHECK/CHANGE THE RH11 ADDRESS

ROOCT
MOV
CHP
LOS
YPE
BR
MOV

(SP)+,PORTR
PORTA. 87
230
RERR
s
PORTR, PORTB

‘GET THE
£S5
:STORE THE
SS
:SEE IF RDDRESS TOO LRRGE
;§a é‘ NOT
:YYPE
ADDRESS ERROR MESSAGE
:TRY RGAIN
: GENERARTE THE PORT B RDDRESS

8IC

816, PORTE

TYPE

0Cl226

001224
177771
001226
016677
001224

;;2nvs
;:5ET

000176

001224

013.%
042716
0S2637
104401
013746

ke vag -62P)
csgs S8ERRVEC

E?Y

016655

001226

FOUNO OR IT IS

TWARE SWITCH REGISTER.

BYS:

18:
.SBTTL

001134

TUP FOR A SOF

; ;AND
THE HARDWARE SWR IS NOT = -1
::BRARNCH IF MO TIMEOUT

01662¢€

002314

001140

001142

-'§srup THE gnnon LOOP RADDRESS

MOV
MOV

MOV
MGy
CMP

177777

1333

SLPERR

;;SIZE FOR A unnouhes SWITCH aecgg ER. IF N?

1319
12737 177570 0Cil40
1320 002070 0157;; 177570 001142
132 002076 0227
177777 177034
1323
1224

8.,

INC

,ENTERA

;ENTER DRIVE RDORESS

PORTB

;xncnsnzm THE RDDRESS

MOV
BIC
BIS
TYPE
MOV

PORtA, -(SP)
#1C6, LSP)
(SP)$ . PORTB
PORTAIS
PORTR, - (SP)

;PUT PORT A ADDRESS ON THE STARCK
:SAVE ? TS 182
(SET g S 1 8 2 IN PORT B ADDRESS
:7PORT R
S5 IS °
: :SAVE PORTA FOR TYPEOUT

TYPOS
.BYTE
'BYTE
TYPE

1
O

PORTBTS

MOV

PORTR, - (SP)

TYPOS
JBYTE
BYTE

1
O

:LEAVE

BIT O

::TYPE PORT A RDDRESS
G0 TYPE--OCTAL
RSCII
;;TYPERé gxc 1($)
: ; SUPPRESS
LEADING ZEROS
:1POQY B RDDRESS IS '

:;SAVE

PORTB FOR TYPEOUT

' 'TYPE
PORT B RDDRESS
G0 _TYPE--QCTAL RSCII

PITYPE 1 LIGIT(S)
! :SUPPRESS LERDING ZEROS

SEG 0026

CZRMHBO RMO3/2 DU POR LGC 2
21-NOV-77 13:34
CZRMHB P11

1370

1371
1372

1373
1374
1375
13;;
13
1378

1379

1380

1207
6
*
%
001230
002335
001230
1

g;g

14
4

N
0024

1381 002410
1382 0024 iM
1383 002420

iggg

MACY11l 30(1046)
21-NOV-?27 [Y4:15
£ 27
GET VALUE FOR SOFTWRRE SWITCH REGISTER

002422

001230
1253
4
001232
1
1
1
1264

1389

BIC
Vv
MOVB
CLR
CLR
CLR

CLR

013246

JSR

002424

016753

3s:

000776

{3339
1388

TYPE
MOV
ADD

MP
TYPE
HALT
BR

D024y

EXEC:

RESET

005037

177776

1393

002446

737

013246

;SCE
MOV

1395
139%
1397

Q02454

37
005037

0150S2
001266
1100

1399

002476

igg?
1?3;&1: 88%5%
1392 ooaqmaae
002433 Bxams
001100

1398
1400

002452

1127

0127

012737

1403 gggeo 612601
I
1410

Y2
544

1413
1914

i:i?

002574

1411
1412

001115

002SOM

001110

4%
S0

13
137
003403
109401
000763

0GC1106

2720
024430
017042

00S301

006301
016137

002574

1415 002570 000177 000000

001104

oos;g';
012737

001266
000001

000000

}:ig

1425

PC, CKCLK

ExEC

, NOCLOCK

18
“&132”
F
VE
-SHOT VALUE LOCATION
-SHOT VALUE Locmlon
-SHOT VALUE LOCARTION

-SHOT VALUE LOCATION

UP CL

cn.ocx HAS BEEN STARTED
NO CLOCK on YSTEM
mmks
SINTERLOCK THE MALT

CLE ;vrnvmm

HE PROCESSOR STATUS WORD

JSR

5352}5;
#STACK| RO
SP
PC, CkClK

S go
roa moexmc
og
?EE
TT
CLOCK

JSR
CLR
CLR

PC,STKINT
KYBCTL
$PASS

-“‘g,}
2
v-; ngaomo
:CL
INGLE TESY INDICATOR
€S COUNT
:CLEAR m&

MOV

LPADR

MOVB
MOV

RMAX

SlfPERR

{

:SE

SINITIAL

;xrm;

ng
LOCK

10 1

SETTING FOR LOOP RDDRESS

TTING FOR LOOP ON ERROR ARDDRESS

18:

!T?BOPET

Tts NG

; A3K

2s:

BNE
INP
CHP
BL
TYPE
BR

2
TST1
R1,MAXTN
3
BRDNO
is

(ENTER zzno
RFORH ALL TESTS
: SEE gf NUMBER GRERTER THAN MAXIMUM
BRI ;rsss OR EQUAL
:BRD ENTRY
: TRY
IN

RSL
MOV

Rl
Tsmomm) 4s

.snxr LEF
,GET

JMP

3s:
024400

1420
waé
142
1423
1424

;:5énobasss OF
DRIVE NOT TESTED
1715

.gor
etl7 PORTC
; m{:
PORTA R&
:
a
ATRBIY(R1),ARSR1 '
TTENT]
r¥nea
;sL m T
TIMERP
:CLERR T
T
TIMEB
ICLERR T
17
TIMEBP
;& AR T §wr

CLR

NOP

002476

{:85 onasig 1833% 017022
1404
1405
1406
1407
1408
1409

r. OTHER CR

;ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR

002426

1394

RLF
fi&m
PORTC
86, PORTC

SEQ 0027

MOV

DEC

INC
MOV

ys:

. WORD

(SP)+,RI1

ec
SICNT

ST NUMBER

:
Ut é
"? Igo R1
;

‘DEC

nem ENTRY

gss

*NG# ??T xnoxcmoa
ITERATION COUNT

O THE SELECTED TEST

TEST RODRESS GOES HERE

:CHANGE THE RM11 UNIBUS ADDRESS USED BY THE PROGRAM

002S76
002610

002614

002620

005737
oowg;
0050
104401
013746
104402

001270
001270
017670
001272

CHANGE: TST
BEQ
CLR
18:
TYPE
MOV

TYPOC

CHGROR
35
CHGARDR
ADDRIS
$§RMADR - (SP)

;CHANGE THE RDDRESS *
:BR IF NOT
:CLEAR THE INDICATOR
:TYPE OUT WHAT THE PRESENT ADDRESS IS
:PUT THE RDDRESS ON THE STARCK
'TYPE THE ARCTUARL ADDRESS

CZRMHBO RMO3/2 DU POR LGLC 2

21-Nov-77 13:34

002622

104401

10440}
41

GET VALUE

001207

8832 "

14
11

ve
7

TYP

ROQOCT

002676

012737

000207

BtQ
MOV

001272

002666
000004 S?E
?
000006

000004

535

n v

SS:

14:1S

CO3

PQGS 28

FOR SOF TWRRE SWITCH

TET

%8
2 303%8
8 878 oooooy

002704

2}-NOV-7?

TYPE

0171S0

F£

ot Pt Bt Pt ot
Pt P
Bt Bt Bt Pt Bt et P

SLLELLLLLLLLLLELL

Z5SBYRRYEOLEIBNH

CZRMMB.P11

MRCY11l 30(1046)

, SCRLF

;CR-LF

iP)

8 i

"NTRH1 L

nég
I L)
RMADR, RO
HuC(RO)

Ew
I’ P

RTS

MOV

;ASK FOR NEW RDORESS

e
(SP, SRflRDR

ERSOR
Br

SEG 0Cces

R;E

RED (NO RDDRESS CHANGE)

cgggsgr
Tnsogflggx POINTER
1
11

S AT THAT ADDRESS

PRESENT RDDRESS

S§T
K Poxnren
&?‘m&
RESTORE THE VECTOR

96, 384

;

RETURN

}::q

;;llll!!lllllilibll!llllli!llllllllll!lili!llllll!lll!lliil’!lill

i::g

.SBTTL

{::g

;;llllllllillilllllilllllllilll!l!llllIllllill!llil!lll!ill!lllil

1449

1450

002706

013700

001272

%% TESTS #u»

{:gé 002712 012760 000OM0 000010

TST1RA:

1463

; u“uuuIuulnu"luuuu"nuunuuuluuinunnn

{:sg

:VERIFY THAT THE DRIVE CAN BE RCCESSED THROUGH BOTH PORTS

1488

‘s

S£LECT DRIVE

THE TEST IS REPEATED THROUGH BOTH PORTS.

}:ég

1480

Mii ®*

1467 002720 00S737 001266

%:23

1ies

575

147
147
1474
1475

i:;g

002730
M

TRbd

1
000137
0127

61 737
127
;94 12737
12737
2

01¢7

002424
77277

QQl2

é 001§
D011
2772 0011;0
001176

1478

SRMADR, RO

RESTORE RO AFTER END OF PRSS

8CLR, RMCS2(RO) CLsnn MASSBUS

DRIVE ACCESS TEST

VERIFY THAT THE DRIVE 1S PRESENT,

THAT THE

'
RIVE 158D0AC PORT Rno3J“‘"
e ”‘Vsnésrf’.é“%ué
ORIVE SERTAL
X

?
NUflhe
533 ?Hngucu
BOTH P g ?E

X II22TI2IXTTZZTIZTIITRTIIRTIIZLIRSIIL2
22222 A2 222222222 2222224

811

é”

TEST1:

KYBCTL

L
JMP
MOV

1
EXEC
0-1 KY CTL

;
F JUST ENTERED TEST
;RETURN
5 GET NEXT TEST NUMBER
;
7 sx
TEST INDICATOR

MOV

STE *

;

B
ngve
MOV

MOV

g
o t 71 SLPROR

'é

PERR

sSt

155

Rrgnnxnc ONLY SINGLE TESTS ?
R
ON TEST ADDRESS
?P
RROR RDDRESS
UA RAONs
STRCK POINTER

c REBRRBBRRERRRE RN RERBERRER RS ERSEERPRE RN RRERERERRPRERRERER
RS

1479
1481

MOV

irs

%325

146
1470
1471

MOV

OERIFY THAT DRIVE IS PRESENT THROUGH PORTS R 8 B
00277¢

(13760

O0OCle24

000010

mMove

PORTR,RMCS2(RC!

;SELECT PORT A

013737

001224

PRGE 29

PORTA,PTNBR

SEe 00es

;MOVE PORT RDDRESS TO LOCATION ron TYPEOUT

nnogél RO)
se§£
F oaxvs (PORT A) PRESENT
355
cL
'
CHECK
cn:gn' INGICATOR
S2(R0D),$8DDAT’ :GET conr NT
SRMCS2,
$BOROR ; FORM ne ISTER “EBSRES OF ERROR MESSAGE
RO, $8
,noo

i
ER Aoy 733 681124
i mue
1491
88%822
001164
1492 0030
1414

TR
CMP

1483

00307

13737

001126

00 TMPO ' vgflgg&"w
IR fRTenS o st
359
;C
THE
:BR _IF K

1496
1497

003114
003116

10400
005!

001244

ERROR
COM

1499
1500
1501

003i24
003130
003132

005737
001403
012760

1502 003140 113760
013737
1503 003146
1504
003154
760
1505
003160
37
1506 003164 016037

880040

1507

1508

003172

012737

000010

1509

003204

805037

001122

001124

037

000012
4y
10
10
1122

D03

TSY
CLR
MOV
MOV
RDD

14gs OMP

760
7
16037
12737
7

003012

o
o

003004

n
W
£

1483
14
14
1486
1487

—

1482

MRCY11 30(1046)
21-NOV-77 14:15
DRIVE ACCESS TEST
7!
=]
o

CZRMHBO RMO3/2 DU POR LGC 2
21-NOV-77 13:34
CZRMHB.PL1

001126
o0olle2

LAl

CLR

1494
0031 2737 0! 001174
1495 003106 053737 001174 OC1124
1498

1510

003122

003200
003210

000240

060037
013737

BIC
BIS

BEQ
MOV

001174

bUS:

001244

000010
1226
000010
1226 001234
12
1244
10 001126

003224
003232

333737
1414

883%56

0400

1514
1515
1516

003234
003242
003250

119

003264

000240

003274

012760

1517

1518

15820
1821

igsg

0137
27
0S3737

&0 6051

003266
003272

005737
001403

MOVB
MOV
TST
CLR
MOV

001122

MOV

ADD

001124

00!164

001126
010000
001174

001174
001174
001124

CHP
BEQ

001244

000010

COM

NOP

TST
BEQ

MOV

DATA’

:TYPE MESS %
'SET THE REGIS ER COMPARE ERROR INGICATOR
s WRS 'NED' SET ?
:BR_IF NOT

ER Rncse(ng

nnssegs INIT TO CLEAR 'NED’
Té 'PTNBR
RMCS2(RO)
LECT
PORT B
ORT ss 10 Locnrxon ron TYPEOUT
novsE
Rlcg
1!R0)
; r
(PORT
B)PRESEN
rus
'c
CK
ERROR’
xnoxcnron
RHCSS(RO) $800AT’ csr C
OF RMCS2

ARDR

rokn REG sr n nooness OF ERROR MESSAGE
;RDD RH] 1 BASE noonsss

uunr

$BODAT, $TMPO

OfC 9 :rnposhve
TMPO

SBDODAT, STMPY
sNED, STMPY
$TMPY4, SGODAT

2T R
¥L

con ENTS TO *STMPO’

cop'§a2 DATA’
c ERAR
MASKED BITS
oa' WITH cooo DATR FOR TYPEOUT

CKERR

SET T

flf 3

CKERR
.+1g

:WAS 'NED’ SET 7
:BR_IF NOT

#CLR,RMCS2(RO)

EGISTER COMPARE ERROR INDICATOR

; ISSUE MARSSBUS INIT TO CLEAR 'NED°

tonrxnn THAT DRIVE IS AN RMO3 AND IS DUAL PORT

1827

003302

1529
1530

003316
003322

003310

003330
003336

113760

001224

005037
016037

001244
26

013737

MOVB

Ponrn
RNNSS(RO) ssos T PORT
A

001126

CLR
MOV

cE
RMOT (RO) , $BODRT

4024 001124

MOV

ooéqggw
scooqr *WHAT REGJSTER SHOULD BE

MOV

seooar $TMPO

001234

000026
001122

001122

4025

001126

00116M4

15834
1835

00
003356

022737
001426

1837

003366

042737

003360

000010

00lee4

012737
060037

15833 oogggg 012737
‘S35

ERROR

D_BE

N 2222222112222z 2:x2z:x2*xx:12:xx2*2222222XX2XX2T2XX2X2XXX212 12222 L

}552

1831
1832

MOV
BIC
B1S

668 :

001244

000040

BIC

:CoPY °

cxenn

MOV

TER

;CLERR
MASKED BITS
STOR’ WIT H cooo DATA FOR TYPEOUT

T.STMPY

|
CKERR

[

001164

i WHAT

snED, StHPy
sTnPQ,scooar
seo

CLR

001136

1624

1528

157
BEQ

MOV

1511 003216 042737 167777 001164
1512
1513

NOP

8382

013737

000063

00116eY4

MOV

MOV
ADD

CHP
BEQ
BIC

ORHDT $B0ORDR
0, $80R0R
#240

noonsss TO LOCATION FOR TYPEOUT

GE
"CHECK ERROR’
T courenrs OF RMDT

INDICATOR

,rokn Rsaxsrsa RODRESS OF ERROR MESSAGE
:ADD
RH11 BASE ADORESS
:DUAL PORT RMO2 DRIVE *
annncu IF SO

MOVE REGISTER CONTENTS TO 'STMPQ"

81C177%74,8TMPO ' ;SAVE SPECIFIED BITS

CZRMHBO RH03/2 DU POR
CZRMHB.P1
21-NOV-77

18
15690
1541
1542
15843

03374

--3402
003404
ooawés
0034
003

1594 0034

3737

1414
013737
042737
3737
002

1548
1549

1650

003452
56

MACY11l 30(1046)
sx-nov-77 14:1?
T1
DRIVE RCCESS TES

001124

001164

001126
177774
001174

001174
001174
O00ll24

BEQ
MOV
BIC
8IS

1226 000010 68s:
1226 081234

2889
MOV

605137 001244

cl:;wo
i53§
1847 ooawgz
00344y 61
7
2

GC 2
13:34

37
016037

00129
0000

1563
003S0M
1554 003512
1865

003514

1558
1669

003536
003E40

1556
1657

003522
003530

CHP
BEQ

0137

001414
013737

ADD
MOV

MESSAGE

'SET THE REGISTER COMPARE ERROR INDICATOR

T
(RO)
PORY
PORT NES vts$55$ n882: E TO_LOCATION FOR TYPEQUT

CKE
RHDT(R ) saoonr

csr co«

HECK ERROR’
NTS OF RMDT

824082S,
taooa

2 DRIVE 7

70%
,annucn §2
$B0DAT ;
*MOVE REGISTER CONTENTS TO ’S$TMPO’
81C177%74,$TMP0O ' . SAVE SPECIFIED BITS
;coonr,STHPO
;LOMPARE THE BITS

001174

BEQ
MOV

0$
SBODAT, STMPY

'BR IF OK
: COPY '?

ERROR

Exsna

: TYPE EE g ? $

BIC
BIS

000240

70$:

COM

NOP

INDICATOR

rokn REGISTER ROORESS OF ERROR MESSAGE
Sbaoa
533 né *
gn?g
RDORESS
o éu
GDDART
TER SHOULD BE

001!

BIC
CMP

n177774 $TMPY
$TMPY, SLDOAT

DATA’

:CLERR
MASKED BITS
:7OR’ WITH GOOD DRTA FOR TYPEOUT
'SET T

EGISTER COMPARE ERROR INDICATOR

SRR RO 068 03630 06 3036 36 3636 3 3038 3 36 3 36 36 36 06 36 3 3% 3 3 3 3 3 3 3 3 3 3 3 39 % % % ¥ % %

Osnxrv THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL
003572

003600

003612

113760

013737
005037
016037

001224

001554
001244
000012

000010

MOVB

001234

MOV
CLR
MOV

0C1126

1573 003620 012737 380012 001122
1574
060037
1122
1575 003632 012737 001000 001124
1576 00340 013737 0011;6 001164
1S77 003646 042737 176777 001164
1578
1579
1580
1581

003654
3662
003664
003672

833737
1414
oxg;
042737

1583
1584

7
003710

104003
00S137

1586

3716

1582 0037
1585

I TYPE

MOV

001164
001164

}EES
1569

s COMPARE THE BITS

'BR IF OK
:COPY ’'BRD DRT
(CLEAR THE nnsxso BITS
:7OR* W]TH GOOD DATA FOR TYPEOUT

001164

3
001124

1566

1570
1571
1572

688
SBDDAT, STHMPY
8177774 $TMPY
TMPY, SGDDRT

SEG 0030

001126

104002

003570

CKERR

COM

2737
024025 001126
M

1563 003S6N 005137 001244
}222

ERROR

MOV

1560
003546 042737 1777 001174
1561 003554 053737 001174 001124
1562

$GDDAT, STMPO

CLR
MOV

042737
023737

PRGE 30

CMP

001126

003464 012737 0000
001122
1881
003472
37
ggéxae
1552 0034 012737
0 001124

EO3

003714

0537

000240

1687
1588
1589
1590
1691

003722
37
0037
003742
003750

016037
012737
060037
012737
013737

1593

00374

023737

OCll24

001164

001126
001030

001174
001174

MOV
ADD
MOV
MOV
BIC

001174 001124
001244
00124

000012
000012
001]2
0106
001126

001126
001122
001124
001164

00iie4

001164

1632 003756 042737 167177 001164

;SELECT POR

PORTA. PTNBR novtRT agonss TO LOCATION FOR TYPEOUT
cngna
CK ERROR’ INDICATOR
S1(RO), $BDOAT' csr con
EN OF RMDS!

'R"¥33¢32°“°“ rokn REG
nooness OF ERROR MESSAGE
ROD RH
1#
ESS
garuuAT ER
conrenrs T0 'STMPO’
nec GM,
sbvs PecxrasTERBIT

CMP
BEQ
MOV
BIC

$GODRT, rnpo
728
SE0DAT, STMPY
sPGM, $THPY

.C
T
exrs
:BR IF OK
:coPY 'gag DATR’
:CLEAR
MASKED BITS

ERROR
COM

3
CKERR

S TYPE MESSAGE 3
:SET THE REGISTER COMPARE ERROR INDICATOR

CKERR

;CLEAR THE 'CHECK ERROR’

BIS

728:

PORTR,RMCS2(RO)

NOP

CLR

srnpfi $GODRT

:70R’ WITH GOOD DRTA FOR TYPEOUT

INDICATOR

MOV
MOV
ADD
MOV
MOV

RMOS] (RO) saoonr “GET CONTENTS OF RMDS!
8RMDS] , SBOROR ; FORM REGISTER RODRESS OF ERROR MESSAGE
RO 8&2
ngo
RH5 BASE ADDRESS
]
-onv scobn
s W ascxsrsa SHOULD BE
$BODAT,$TMPO’~
;MOVE REGISTER CONTENTS TO 'STMPQO"

CHP

$GODRT, stMPO

BIC

lfClO&bO $THPO ;SAVE SPECIFIED BITS
: COMPARE THE BITS

CZRMHB0 RM0O3/2 DU POR
LGC 2
CZRMMB. P11
21-NOV-77
13:34
1594

15895
1596

1897
1598
1599
1600

1601

3772

3774

12
16
333359

1602

004034

1604

004046

1603

1605
1606

1607

008042

1611
1612

1613

004126

1616

004144

1619
1620
1621

001226

001244

3737

0M27
3737

0O413N

1617
1618

113 59

004102
004110

1614

1615

001174

012737

004116
004120
004142

004150
004152

12737

001226
000012

000012
881122

MOV
BIC

O0Clie4

001244
000010

1414
013737

042737

053737

104003

137

0
7

016037
012737

IS
RROR
coM

74S

NOP

MOVB

001234

001126
001122

004204

004220

1624

004212

1626
1627

004226
004230

1625

MOV
RDD

MOV

{ggg

004260

81s

$TMP4, SGDDRT

COM

CKERR

557 THE REGISTER COMPARE ERROR INGICATOR

;CLEAR THE

001244
001244

BIC

ERROR

768 :

00112

167177

NOP
CLR

ADD

001126

010600
001174

001164

001174
001124

001244

s1CPGM. §TMPO
;coonr' §TMPO

o BE

c sr conrsnvs T0 *$TMPO’

;sbve
CIFIED BITS
: COMPARE THE xrs

#PGM, StMPY

iBR_IF OK
: COPY gno DRTR’

,CL AR
'o

THE MASKED BITS

WITH GOOD DATA FOR TYPEOUT

PE_MESSAGE 3

'cuscx ERROR’

INDICATOR

S1(RO),$BCORT’ :GET CONTENTS RMDS|
1
ADR ;FORM REGISTER RODRESS OF ERROR MESSAGE
:R0D RHI11

ngonsss

BIC

8tCl

ERROR

OHOL'?PR'DRY,SGDORT ;WHAT REGISTER SHOULD BE

BIC
8IS
788:

saooh TMPO

MOV

BEQ
MOV

001174

COM

NOP

XYY 22222XZ

saoogsbarnpo

;MO

sco

STMPO

stmPo

78$
$BODAT, STMPY

810600, $TMPY
srnpu $GDORT
cxsna

;SR

Rscéirea
conrsnrs TO *§TMPO"

'BR
_IF
;CoPY °*

BITS

DATA’

:CLERR THE MASKED BITS
P7O0R’ WITH G oo DATR FOR TYPEOUT
: TYPE MESSAG

ISET THE REGISTER COMPARE ERROR INDICATOR

XTIZXZXZ2XXZIXTRXZTZISI
2SRRI S RSS2 2

"YERIFY THAT DRIVE SERIAL MNUMBER SEEN THROUGH BOTH PORTS IS THE SAME

1637

0042

004270

016037

000030

001224

000010

113760

1640
1641
1642
1643
1644
1685
1646

004312
004320
004322
004324
004332
004334

016037
023737
001406
10400S
032777
001001
000000

000030
001124

001126
001126

100000

174606

MOVB

001124

1639 004276 113760 001226 000010

1649

ST R nooness or ERROR MESSAGE

001124

001174

iggg

1235

INDICATOR

001174

001000

1634

1638

0 LOCATION FOR TYPEOUT

cx ERROR'

3
$BDDAT, STMPY

CMP

000240

agoas

BEQ
MOV

001164

104004

ss cr PORY

001174

001124

005137

004252

PORTB, RHCSE(RO)

001126

81C
CMP

023737

004254

1630

TYPE
SSAG
"SET THE Rscxsrsa COMPARRE ERROR INDICATOR

001164
001164

MOV

1631

CKERR

126777
001124

MOV

001164

042737
053737

srnpq $GDDRT

001124

001126

004236
004244

copv e ) o
CLE THE MA o BITS
"OR’ ”éTH
oo DATA FOR TYPEOUT

1000

013737

1628
1629

;BR_IF

$BODAT, $TMP4
810600 STHMPY

nno 1‘"3963820“ T o

MOV
MOV

0O0141M
013737

748

SEG 0031

MOV

001126
0oli22

042737

PRGE 31

POR 'PTNBR

000012
ooooxg

FOJ3

MOV
CLR

1622 004176 012737 010600 001124
1623

21-NOV-7?7
14:15
DRIVE RCCESS TEST
BEQ

001174
001174

13737 00l1ee 001164

004156
oouxgu

004172

0011
010600

733
1040
37

4
004062

1608 0040
1609
1610

1414

013737
042737

MACY11 30(1046)
T1

004336

000004

MOV

RMSN(R

PORTA Rncga(RO)

;g LECT PORT A

MOV
CMP
BEQ
ERROR
BIT
BNE
HALY

nMEN(RO) . SBODRT
$GODART, SBODRT
18
s
#SW1S, ISWR
18

R$ THE PORT
B SERIAL NUMBER
nne HgvTHE SAME
iBR IF
ARE
'REPORT THE ERROR
‘HALT ON ERROR ?
'BR IF SET - PROGRAM HAS ALREADY HALTED
THALT, ,POSSIBLE CABLE CONNECTION PROBLEM

MOVB

18:

SCOPE

ORE THE PORT A SERIAL NUMBER

PORTB RHCSE(RO)SELECT PORT B

SLOOP’ ?

CSRMMBC RMO3-2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34

MACY11l

1650

30(1046)
T1

Q21-NOV-77
14:15
DRIVE RCCESS TESY

1651

HH [2 XXX 22X 22X XYY

igg;

;:SET VOLUME VALID

{ggg

AR.

1658

iggg

;&7557 2

}223

ta
H %*

1661
1662

:#
Ly

}223

1668

1666

'a
; *

004340

004340
004344
004346
0C43S0
004354

005737
001406
100002
000137
012737

002424
177777

001266

1673

004370

012737

004412

1675
1676
1677
ig;g

0044
004412
004416
004424

012737
012706
113760
013737

I
001100
001224
001224

1672 004

004376

001265

004412

iggg

004432
004440

004446

FOR

PORT

VERIFY

ISSUE R RELERSE COMMAND THROUGH PORT R.
VERIFY THART
THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION
IS

SET.

X2 X222

XYY

RZS2T X2 E LS Y

MOV

M E Tg,gtpnon

;ngg LOOP ON TEST ~ODRESS

001176

MOV
MOV
MOVB
MOV

sl zgxhes
: <D0 $ *Tsnnrxou
#SYACK, SP
:8ETUP
THE STACK POINTER
PORTA,RNCS2(RO)
";SEILECT PORT A _
PORTA.PTNBR ;MOVE PIORT ADDRESS 70 LOCATION FOR TYPEOUT

1$:

MOVB

001110

000010
001234

MOV

TEST2:

012760
012760

012760

000011
000021

010000

000000
000000

MOV
MOV

000032

MOV
HH [T

0OQ44S4
004460

005037
016037

004474

001244
000012

012737

000012

004500
004506
0O4SIN
004522

012737
013737
042737
023737

0045832
004540

013737
042737

004554
004586
004SE2

104010
005137
100240

1698

004630

1701

004546

)

SET

.; gvs NM

#TEST

PERR

(YEST NUHBER
;L

LOOP ON ERROR ~DDRESS

#11,RMCSI1(RO)
821 'RMCS1(RO)

sFMt
16, RMOF (RO)

;ISSUE A DRIVE CLEAR
;ISSUE A RERDIN PRESET

';SET FMTLE

22 Y222 Y222 222222 22XY 2T YIS

‘VERIFY THAT THE DRIVE STATUS IS CORRECT

1694
1695
1696
1697

[

:SET VOLUME VRLUE FOR PORT

DO4466

1762
1703
iggg

BIT

HH 0300 36363635 3 36 06 3 36 36 98 3 3 3 36 3 96 % 3 % 3 4 3 3 9 % % BB www W% W N W N BN N EEEEEEENEEEEEEEER

1692

1699
1700

’'VVv'

001106

iggg

1633

THE

: PERFORMING ONLY SINGLE TESTS 2
;SR §r NOT
‘B8R
_IF JUST
ENTERED TEST
TRETURN 8 GEY
NEXT TEST NUMBER
;§ET SINGLE
TEST INDICATOR

1687

1690
1691

ISSUE A RERDIN PRESET COMMAND THROUGH PORT A.

THART

KYBCTL
2s
i
EXEC
8-1 KY?CTL

isgé
1683
1684

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A.

15T
BEQ
BPL
JMP
MOV

1680
|~

SEG 0032

XS 2RSSY2222
X222 22222 X3

I*Z22222222222T 22X 222X

115737 000002 001102 28§:

012737

PRGE 32

SET 'VV' FOR PORT R

BIT

t&ta:

1667
1668
1669
1670
1671
1674

GO3

00141M4

063737

001126

CLR
MOV

CKERR
:CLERR THE ’CHECK ERROR'
RMOS) (RO) . $BDDAT'
:GET CONTENTS OF RMDS!

ADD

ra,

BEG

6H4S

001122

MOV

011700
001126
686077
1124

001124
001164
001164
001164

MOV
MOV
BIC
CMP

001126
071700

001174
001174

001122

0011749
001244

MOV
81C

001124

81S

£4S:

SXTITZZ SRR 2 2]

ERROR
COM
NOP

SRTM0S].

INDICATOR

;FORM REGISTER ADORESS OF ERROR MESSAGE
-ADD RH11

BASE ADDRESS

¥ L 'PGM! DPR!DRY!IVV, S
T
:WHAT REGISTER SHOULD BE
$BDOAT, $THPO
:MOVE REGISTER CONTENTS TO *$TMPO"
.fC?&?OQ STMPO
;gn;snggsgxrxso BITS
$GODAT, $tMPO
: Co
HE
BITS

:BR IF OK

$BDDAT, STMPY
8717200 STHPY

:COPY 'BRD DATR’
:CLEAR
THE MASKED BITS

1
CKERR

: TYPE MESSAGE 10
'SET THE REGISTER COMPRRE ERROR

STMPY , §GDDAT

:7"0R* WITH GOOD DARTA FOR TYPEOUT
INDICATOR

CZRMHBC RMO3.2 DU P°R~LGC3?3~0

CZRmN8. Pl
:

Zionov=r7 A3:

MACYLl 3%10“

21-NOV-77

SET 'vv’ FOR PORT A PAGE

i#i? B84s563 13369 BRISSY BRT9AR
00
012760
000013
000000

V8
H8v
MOV

171

CLR

1715 O0%

713 ol o 780 Ddisq 808010

Hove

i75] 80de%8 bied 2 %0%2 001169

:%\;

{785 B3es ?‘f%gw géégg ?865%3
137

{ 4

Hove

Hgg

g?v

1788 @;m gsfi 831188 Boiiee
1730 DOM7S2 DOE233 DOLled
1738 004730 19407

1735
8%
1;335q

1736

%% Q01178 goiige ees:
%;33 8873?
004

1736 DOu7Ea

137

Ootuia

001226 00(1382143
%1323

it
1224

001234

% R
Nuz
B RS
005010
737 001166
B
g T o N
i G UOD punm muz e
{738 %8333 %%37 0183 BBiiZ
174

174

737

1780 Docoes 1o40ar

001

172t
Bozied 6132% S01s26 00139 °%
1723 OOSO;E

1788

0137 7

8233

178
Doei
4
4 if D04g%

i7§
8 §§§{ég 808838
i%gg
17¢1

2R 2L L L

SEG

RO ve 5pbRY T aBBRI
BRRESESE 1o Locats oN FOR TYPEOUT
BBRTA: BYRBR "Oko
813,RACS1(RO)’ ; ISSUE RELEASE THROUGH PORT

;VERIFY THAT THE DRIVE IS IN NEUTRAL

BER ARy RO mu

{;sg &2;2

HO3

X I XYY XXYXIXZIZTIXIZT RIS ZZZ SRR
;RELERSE THE DRIVE FROM PORT A

170
8
Tt

X ;S

14:15

100100 081175

OUieS 88il7

SNE
ERE

B
SThPe STHRQ

8°PY ”oamgflénocm BITS FROM THE COPY

l?;gé(lvtgfl"l

?g
e ?RTB&PEE STEB 1TS
THE FRSggEF OH BOTH PORTS ?

:%flggggcsfifig:’,2EYE"5 %;vgIATUS REGISTER FROM PORT B.
o

bes
8es

30s

ST"PE 380BR"

TST

HGY

(SISbR

R%sué’o'fis‘}%“ ¥ %:
onxvs STATUS REGISTER FROM PORT A.

:838

Qgggfl,gg,,ggzggé%
Rnonl'rsnflofigggfir

Rscxsrcns ARE THE SAME: ARE THEY ZERO ?
ggpm\,&"?r IN NEUTRALOR NOT SEIZED
IS

PhcsTo

9AD!DATA COR ERROR MESSAGE TRAL
ssxz NcpgoflchYE $E2r
OCNOWS DRIVE NoT TN NEU

P?RTS,RMCS2(RO) tE ?mug £Q O FROM PORT A.

PORTA.PTNER

POR; AF ERERR FUQHS DRIVE
E&é @

NOT

Rl
M0
o
, FEhel et o 2ew0 room et .
BRE
B8 CELERR
éz 'RELEASE ERROR’ INDICATOR
e RS
RERREANOT
B feeame
G POIS on w o
&
200‘# shiee ERIFOK FROM PORT A.

NEUTRAL

BEQ

ERROR

DoV

2mpa $BODAT

PORTBOCTNQQN cgsn
gfi PeCK OK FROM
CBIT POR
QR vy BIT
EE_IF RERD AYTN

Enp

ggggm s3rPa

BEG

EPORT
ERROR
EH
E
K RMDS1
FOR BIT FAILURES -- FROM PORT B.

nspomome ERROR

4
o
SCO
oPE
9%ERAFRIRESRRRRER RRRRLPRRRRRNRS
RSN SR R RS R IR RN RARRR RIS RRSER
*

0033

CZRMHBO RMO3/2 DU POR
LGC 2
HB.P
21-NOV-77
13:34

£}

MACYLL 3(104)

I03

SEG 0034

2L-NOV-77
14:15
PAGE 34
*VW' FOR PORT B

}ZES

.Tssr 3

};gg

lSET VOLUME VALID

i;gg

AR.

ISSUE R DRIVE CLEAR COMMAND THROUGH PORT B.

1768

‘s

ISSUE RERDIN PRESET COMMAND THROUGH PORT B.

ISSUE
A RELEASE COMMAND THROUGH PORT B.
VERIFY THAY
THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ARTTENTION

{398

L a

;

1771
1272

‘¥
"

:-;3

i *

;

177S

1776

1777

005122

005737

001266

005126
005130
005132
005136
0DOS5144
006152
DOS16°

001406
100002
000137
012737
112737
012737
012737

002424
177777
000003
00S174
005124

001266
001102
001106
001110

i;gg

005206

013737

001226

001234

1785

00Siee

012737

000001

T THE

BIT

157

BEQ
BPL
IMP
MOV
MOVB
MOV
MOV

18:
@2S:

001176

MOV

1793

1794
i;gg

BIT

IS SET

FOR PORT B.

VERIFY

KYBCTL

222222222222 2222X222222222222 22

2%
s
EXEC
8-1_KYBCTL
83, $TSTNM
oTEST3, SLPROR
OTE§T3fi2LPERR

:PERFORMING ONLY SINGLE TESTS ?

iBR IFNOT
:BR IF JUST ENTERED TEST
'RETURN 8 GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
:TEST NUMBER
Loao LOOP ON TEST ARDDRESS
LORD LOOP ON ERROR ADDRESS
:-D0 |

ITERATION

os?
ésrup THE STACK POINTER
PORTB,hncsetno) SELECT PORT B
PORTB, PTNBR

novt PORT ADDRESS TO LOCATION FOR TYPEOUT

2222222222222 22222x22X22X22X2XXX222XXXX2XXXTXTXXXTTRLLL

éer VOLUME VALUE FOR PORT
00S214

005222
005230

012760

012760
012760

000011

000021
010000

000000

MOV

000000
000032

1797

MOV
MOV

#11,RMCS1(RO)

;ISSUE
A DRIVE CLEAR

821 'RMCS1(RO)
;ISSUEA READIN PRESET
sFMt 16, RMOF (RO)
";SET FMTL6

; X Y212222:12222x2:12223321222222222x222222:X222XXXTX22X2XXXXTXTXTXLETLL]

i;gg

Osnxrv THRT THE DRIVE STRTUS IS CORRECT

1800

005236

005037

1802

005250

012737

1801

MOV

i;gé

'vv’

FOR PORT B

IS SET.

1786 005174 012706 001100
TEST3: MOV
1787
113760 001226 000010
MOVB
1790

'VV'

22221 X2 22X

{813

1778
1779
1780
1781
1782
1783
1784

SET

CKERR

:CLEAR THE

MOV

onnosx $BORD

rokn REGISTER RDDRESS OF ERROR MESSAGE

$GOORT, $1MPO

conpnas THE BITS

MOV
MOV
BIC

onbL- cn DPRtDRY! VY 2 -WMAT REGISTER SHOULD BE
$BODAT, $THPO
Mo¥
svtnconrsnrs TO0 "$TMPO"
o’c71700 STHPO snve SPCIFIED BITS

1808
1809
1810
1811

BEQ
MOV
BIC
gIS

648
saoonr STMPY
871700, STMPY
§TMPY, $GDDAT

'BR IF OK
:COPY 'BRD DATA’
:CLEAR THE MASKED BITS
17OR’ WITH GOOD DATA FOR TYPEOUT

cxenn

ISET THE Rccxsrsn COMPARE ERROR INDICRTOR

1812

1813
ig;g

igi;

005

001122

023737

001122

005312
005314
oosasg
0053

001414
013737
042737
053737

00lle4

001164

001126
071700
001174

001174
001174
001124

00E340

005137

001244

005336

005344

104010

000240

CHMP

ERROR

COM

64S:

NOP

LIRS

agboa

R R SRR R

GET CONTENTS OF RMDS!

INDICATOR

1804
5
012737 011700 001124
180S 003270 013737 001126 001164
1806 005276 042737 106077 001164

000012

060037

RMOS1 (RO) saooar

’CHECK ERROR'

ADD

1807

000012

CLR

MOV

005256

016037

001244

001126

1803

005242

{RDD_RH11 ane RDDORESS

:TYPE MESSAGE

R R RN RN R R AR RN AR R RN AR R AR SR ARARR NP RENRRER AR RN

RMHBO RMO3/2 DU POR_LGC 2
RMHB.PL.
21-NOV-77 13:34

JOJ3

MACYil 3?&1046) sE%—NOV-??
14:15 BPQGE 35
'VV* FOR PORT

{g{g

1820

1821
iggg

;RELERSE THE DRIVE FROM PORT B

00S346

00S3S4
00S362

113760

013737
012760

00il226

00l2ee
000013

000010

MOvB

001234
000000

MOV
MoV

{ggg

1826
1827
1828

1829
1830
1831
1832
1833
1834
1835
1836
1837
1838

1839

0NS370
00S374
005402

005406
00S422
00S430
00S436
00S444
00<452
00S460
00S466
00S4”4
005414

005502
00SSOM
00SS10
00SS12
00SSIM
005520
00SSe6

1849
1850

005SS0
005556

1851
1852

1853

QJ0SS34
00SS42
005546
00SS564
005572
005576

00S037
012737
060037

012737
113760
016037
013737
042737
113760
016037
013737
042737
023737
001006

005737
001037
104034
000137
013737
013737

113760
005737
001414

013737
013737

011600
001224
000012
001170
100100
001226
000012
001172
100100
001164

005700
001170
001226
00!226
001164

001224
001172

001234

001126
000010

68$:

835737
737

100100
001124

001170
001170

013737

001126
001234

013737

001172
001226

186S

005666

023737

00l1l24

1868

005700

000240

1871
1872
1873

000010

001126
00i234

00S644
005652

00S70e

66S:

001170
001224

001401
104037

005674
005676

001126
001234

67S:

005640
005642

{g%g

;SELECT PORT B

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RACS1(RD)
; ISSUE RELERSE THROUGH PORT B

042737

001401
104037
000004

100100

157

$TMPO
68$
;H
0s .
zT"P , SBDDAT
ORTH,PTNBR

ERROR
JMP
MOV
MOV
Move
TST
BEQ
MOV
MOV
MOvB
TST
BNE

001172

668

;BR

PORTB,RMCS2(RuU)
$TMPO
67%

;SELECT PORT B.
; SEE }F STATUS EQ O FROM PORT R.
;BR_IF
ZERO

PORTR,RMCS2(RO)

;SELECT PORT A.

PORTA,PTNBR
$TMP3, SBODAT
STMP1
68$

_IF _NOT
; REG ?TERS ARE THE SAME: ARE THEY ZERO 7
; BR
NOT
; REPORT
IVSENOT IN NEUTRAL OR NOT SEIZED
; BYPASS THE
REST OF THE CHECKS
;SET _UP POSSIBLE BRD DRTA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;'gno DATA’ FOR ERROR TYPE OUT
;SEE _IF STATUS EQ ZERO FROM PORT B.
;BR_IF NOT

8-1,RELERR
3?
$TMP2, SBDDAT
PORTRAR, PTNBR

;SET *"RELERSE ERROR' INDICRTOR
; TYPE ERROR MESSAGE 36
; LOOK FOR B%T FAILURES WHEN RMDS1 RERD
; CHANGE PORT NUMBER

EQ
ERROR

69§
37

;BR_IF OK FROM PORT A.
; REPORT ERROR

MOV
MOV

CMP

708:

PORTA

MoV
ERROR
MOV
MOV

BIC

001172

;CLEAR THE 'RELERSE ERROR ' INDICATOR
;FORM_THE ADDRESS OF RMDS1 FOR TYPEOUT
;ARDD THE I/0 BRSE RDORESS

.gg#!ngégPRéBRY,SGDDQT : COMPRRISON CONSTRNT
2(RO) ;SELECT
.
Rflggétflg) sTMP2 ;GET TH‘ DRIVE STRTUS REGISTER FROM PORT A.
ST
sTMb0
;SOPY I 0&& 0 '$TMPO’
SRTAIV, STHPO
;CLERR PORT DEPENDENT BITS FROM THE COPY
PORTB, RACS2(RO) ;SELECT PORTVE.
RMDS1 tRO) , STMP3 ;GE* THE DRIVE STRTUS REGISTER FROM PORT B.
STHP3, STHAL
;COPY 1T INTQO 'STMP1’
BRATAIVV STMPI
; CLEAR PORT
NDENT BITS FROM THE COPY
sTMPO, STMPI
;1S THE STRT
GISTER THE SAME FROM BOTH PORTS ~?

B1C
cMP
69%:

RELERR
8RH056ABSOQDR
RO, S8

MOV
MOvVB
MOV
Muv
B81C
mMove
MOV
MOV
BIC
CMP
BNE

001164

001250

1860
1861

1866
1867

001124
000010
001170
001164
001164
000010
001172
001166
001166
001166

177777

001004

005606
00S610
00S616

1864

CLR
MOV
RDD

00112e

001224
001166

012737
1040
0137
013737

1862
1863

001250
000012
00llce

113760
00S737

1854
1855
1856
1857

1858
1859

PORTB,RMCS2(R0O)

; VERIFY THAT THE DRIVE IS IN NEUTRAL

1840
1841
184¢
1843
1844
1845
1846
1847
1848

SeEQ 003S

BEQ
ERROR
NOP

SCOPE

8ATA! YV %THP?
SGODAT, $§TMP2
$TMP3, SBODRT
PORTB, PTNBR

;OON'T CHECK ATTN BIT OR vV BIT
;ALL BITS OK ?

;CHECK _RMDS1 FOR BIT FARILURES - FROM PORT B.
; CHANGE PORT NUMBER

YV, STMP3
sRTA!I

;DON’T CHECK ATTN BIT OR vV BIT

708
37

;BR_IF 0K
; REPORT THE ERROR

SGODAT, $TMP3

;SEE _IF READ OK FROM PORT B.

;LOOP 7

C-RMHBO RHO3/2 DU POR LGC 2

CZRMHB.P

21-NOV-77 13:34

MACY11l 30(1046)

21-NOV-77

1874

14:15

KO3

PAGE 36

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A

I Y Y XX 2 2222222222222
22 X222
2

ig:g

iTEST 4

{8:7-5

;msnsuas THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A

1879
{gg?

:#
;:

WRITE D0'S INTO RMDS1 THROUGH PORT A AND VERIFY THRT THE
DRIVE HRS BEEN SEIZED.

1882

i®

WRIT FOR TIMEOUT TO OCCUR.

1885

VERIFY THRT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS

iggg

{ggg

1888
1889

0OS704

1831
1832

005710
00S7i2

1890
1893
1834

1895

1896
1897

00S704

005727

00126k

005714
00S720

000137
012737

002424
1777?77

00S734
00S742

012737
012737

S
005756

005726

001406
100002

112737

MERSURE THE TIMEOUT ONE-SHOT THROUGH PORT A

TO NEUTRAL

: R I XIX222:XXX2222X222x2:222x:2:2:x2X22XXX2XX22XX22Y2XXTX2XLXX2XXXELR
L)
Hty:
187

KYBCTL

Psnroanxnc ONLY SINGLE TESTS ?

JME
MOV

EXEC
8-1,KYBCTL

ETURN
T SINGL

MOV
MOV

Egrw PADR
TM PERR

BEQ
BPL
001266

001102
001106
001115

1$:

2$:

2%
18

MOVB

{385 005766 005037 001260
1903

o BRI

1906

iggg

00S?72

025776

005037

012737

001252

003720

MOV

006004

113760

001224

000010

MOVB

113760

001226

000010

MOVE

013737
005060

1917
1918

oosoas
006040

013737
013737

006066
006072

005037
023737

006102

104030

006024

00le24
0000]2

ooxass
001226

001236

CLEAR THE ELRPSED TIME COUNTER

82000. ,WATCH

SET WATCH TO 2000
MS

006100

001403

001124
00li24

006}93

000137

006620

006110
0061l6

113760
013737

001224
001224

PORTA,RMCS2(R0O)

:SELECT PORT A

MOV
CLR

PORTR IZPT
"E?é

;st
sWRIT

001234
001240

MOV
MOV

PORTB PTNSR
PORTB. 0

;MO
vt
987 ngoncsg TO LOCATION FOR TYPEOUT
FOPPOSITE’' PORT ADDRESS

00l126

CLR
CHP

$GODA
scooar $BDDAT

:REGISTER SHOULD BE ZERO
;1S THE REGISTER 2ER

:REPORT THE ERROR

1919 006046 016037 000012 001126
1320 006054 010037 001122
1921 006060 062737 000012 001122

1928
1928

TIME

:SEIZE THE DRIVE THROUGH PORT R
006012
006020

igg;

TIMEAP ;CLERR The + asy OLERANCE LOCARTION

; ;l!llllllll.illlilll!lllll!llilll!lll!I}!l!l!lllilll!lllll!lflll

1914
1915

1922
1323
1324
1325

u$ *TERQ
QET
HE STACK
POINTER
TIMEOUY VALUE STORAGE LOCATION
:

U000 36060 00 A6 600 3 08 36 06 38 36 36 30 36 30 08 3% 3 36 6 3 06 3 36 36 36 08 08 36 4 06 36 38 9% 36 3 30 36 3 3 3 36 96 3 3 3 M 4 %

CLR

001254

igié

1516

XT TEST NUMBER
INDICATOR

STQRT THE TIMER

%3&‘8

1913

TEST NUMBER

Lono LOOP ON TEST RDDRESS
,.ono LOOP o« ERROR RODRESS

os?ncxSP
TIMER

CLR

{904

%
BR F JUST ENTERED TEST

ow $§TSThM

0D0OS?
012737
00000i
O0Ci176
MOV
1899
005756
012706
001100
TESTY:
MOV
1800
005762
005037
OOIP'b
CLR
1898

MEASURE THE DURRTION OF THE TIMEOUT

ONE-SHOT AND SAVE THE VALUE FOR LRTER USE.

MOV
MOV
ADD

000010
001234

)

648

JMP

MOVB
MOV

-SELECT

PORT B

RHDSIIRO) $80DDAT’ ;SEE IF DRIVE SEI2ED BY PORT R
$8DROR’
;RH1]1 BRSE ADDRESS
cnhos* $BDADR ; GENERATE BRD REGISTER RDDRESS

BEQ

ERROR

bus

Rncsa(RO)

IZING PORT’S ADDRESS
Rngsx

;BR_IF

:BYPRSS REST OF THE SUBTEST

PORTR,RMCS2(RO)
:SELECT PORT
A
.
PORTA,PTNBR novt PORT ADDRESS TO LOCATION FOR TYPECLTM

SEG 003¢

e 5

RE83a3

Bt D

L L OO DD DO D
QMM
~N
niLw
OO0
o

Pt Pt Pt Pt Pen Pce Pt Pt Pt Pt Pt Pt

e Pt Pt Pt Pt Pt P

Pt P

Pt Pt Pt Pt Pt Pt B w8 P

Pt Pt Pt Pt Pt ot Pt Pt et Pt Pt Pt P

Pt Pt Pt Pt Pt P

Pt et

gqhgmfyn*
PN A S kA FEER L
ST LROJLDOJ%EOJhogth&
LSBUERZORLE

RM03/2 DU POR LGC 2
21-NOV-77 13:34
11

LO3

MACY11l 30(1046)
21-NOV-77 *q 1S PA E g
MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A
Ty

006
14 0157 7 801124 oguss
ooe.xgg 803537 001166

0061
006160

13737
043737

001126
001166

MOV
COM

001164
001164

%1673 88?3% 001124 00116Y

006176
104031
006200
000240

MOV
81¢C

: nvs‘a
;cks

ERROR
NOP

REPORT THE sana

SES
6SS:

'3850smm useg
6
;

gA
BODAT, $TMPO
gsTHP1, $TMPO

sggonf $TMPO

SEG 0037

expscreo STATUS
Tus
9

‘gn HExpec ED smrus BITS SET *

;&s;¥!;salss;¥l;l#sl;;;Esa;llli!lllli!lllllllllilllllllllil!llf&!

006202
0062:0
oosaég

113760

013737
88?750

001226

00l226
000012

000010
001234

006224
oosgg? 001254
006230 001372

MOVB

18:

i
%S“U
013737 001252 001256 28:
46 004537 013432
006254

001256

012637

001260

Y Y 2

PORT nncsamo;

SS 08$r T8

BNE

WPTCH
18

cuscx
‘ ngu 9

JSR
.HORD
MOV

RS, TOLER
TIMER
(SP)+, TIMEAP

MOV
ggg

(ST

R
MOV

PORTB' PTNER
g;osunm

ve
ROORESS TO LOCATION ron TYPEOUT
BRwéfi“r%ofl'%%%cfl%s”"“

g
TIME TéflER

g
O o nneS
gavg
»{f#
ron pcm &
;m_ULATE
g&s
:425%

T vm.ue F

TOLERANC

222223112z 2222222222 XZRXRXSXX22 222222222 222020 3

'UERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LERST 500 MS
%ggg

%365?

006270 104007

001256

0COTeY

gms

;}nen.osoo.

;15 nneom VALUE AT LEARST S00 MS 2

ERROR 7
Y Y

?Rneofi
LESS THAN S00 MS

Yy xR
YIXYRR RS2
2222222204

‘VERIFY THAT THE DRIVE RETURNED TO NEUTRAL RFTER PORT A TIMED OUT

006272

3s:
;VERIFY THAT THE DRIVE 1S

006272

005037

% &gg;

006310 012737

006316

613739

001250

RELERR

CL AR nc 'RELERSE ERROR ' INDICATOR

OF Rnosx FOR TYPEOUT
agone 2

“5 001122

1224

000010

MOVB

w??g 88“22

:83

ung)srma c u;
OR ve smrus REGISTER FROr: PCRT B.

1700 001124

%gaw {3937 “12 ooflzg
006
8-05737
164
006346
61 739 ggoxg
12
10
006354 015’9

CLR

IN NEUTRAL

00637 owa7g; 1001
001i66
882353 gg?ggz 001164 001166
006406 O00S73?7 001ibY

MOV

Hngx
BIC
MOVB
BIC
gng
TST

'32?

n nnc

gmlvv

mxsou consmm

“?np TM2 ; oa;vs
é
srmus REG1STEQ FROM PORT R.
mmsac
PORTB
ELE%‘ Pgnoem BITS FROM THE COPY
.mmw snfl
gggp
0,stme)
§THPO

CLem P r oep noem BITS FROM THE COP
:53 I-HE gmws REGISTER THE SAME FROM aom PORTS ?
Enscxsrsns ARE THE SAME: ARE THEY ZERO °

CZRMHBO RMO3/2 DU POR LGC 2

CZRMHB. P11
21-NOV-77 13:3Y4
1986 006412 001045

{987 oos:m

10403;

1930
4
1991 006436

113760

MACY1l 30(1046)

MOV
MOV

00l226 000010

1994
12 4 001234
1995 006 gg 1%
13737 %11;‘5
001126
fiqw

11
001224 000010
1997 006
&u 85737
001166
}mm %?fi
200 8157
11915) 27777
678
2000
11
838
58& &gg; Oéa@ 000013 000000
2003
l1 ?
1170 B3isss
1126 68%
DR
B
§53733
R152q
2005 00654
27
100000 001170
00

2006 00,550
2007

006556

023737

00140

CrP

BEQ

ggg
6?3
? 001172
1126 69$ .
2010
5
7
0
013737
001226
881234
2011
006576 042737
100000 001172
3813
1

2014
2015
2016

Soie

006614
006616
006620

BIC

1431

104037
000240
0OOGOY

ERROR
NOP
SCOPE

708:
4s§:

ggs;

2028

‘s

S853
2031
4
203

gzm PYNggr :;

8ATR,

PORTo&
F TEST?"SHOWS omvs NOT IN NEUTRAL

;

$TMP?

EG O FROM PORT A.

scooh ,STHP2

: DON gtccxTHE k. TN BIT

?,,p3%¥AT
ORT
8aTA, $TMP3

;o
¢

;AL

Sn oxrgsn PORT A.

Rno
B]T FAILURES - FROM PORT B.
og* FOR
5

.gon'r

;Sgoh S$TMP3

E r

CK THE mm

RD OK FROM PORT 8.

nepom me ERROR
:LOOP ?

MEASURE 1HE TIMEOUT ONE-SHOT THROUGH PORT B

!HERSURE THE TIMEOUT ONE-SHCT VRLUE THROUGH PORT B

2024

5833

g?apg2aoom gsglii
P'é‘%
%820
'6’51?5"5ERROR MESSAGE
i SE
TEST SHOWS DRIVE NOT IN NEUTRAL

; lllll'llllilllillllllill!llll!lllll’QlllilllllliiilllIlllllllll

[N,V

202

58'3“
MOV

853787 O0lle4 001172

mrnsumm.OR NOT SEIZED

HCS2(RO)
s
;
mus EQ ZERO FROM PORT B.
68’
,RE (RO) ;Esm%tfi?ERROR®
INDICATOR
Rr«lég
v;
u "RMCS1 (RO)
R L
VE
DOAT
FA
S WHEN RMDS1 RERD
Somi B7RoR
.t?&ig p08¥ T m&““‘

BIC

001124 001170

MOVB

TST
3"5
MOV
MOV
ERSOR
nov

SEQ 0038

PORTS"RMCS2(RO) ,

g 5

199

PRGE 38

MOVB

MOVMOV

33-4 001 164

14:1S

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT R
BNE
ges
gfi

gsgon

19ieig fiwég §?§§§7
§§u§8
001126 66S:
13732
1226 001234

21-NOV-7?

MO3

INTC §

THROUGH PORT B AND VERIFY THAT THE

HRIVE PagANEN SPY340]

WAIT FOR 1IMEOUT TO OCCUR.

MEASLRE THE DURATION OF THE TIMEOUT

CHE-SHOT AND SAVE THE VALUE FOR LATER USE.

'S
C. VERIFY
THAT THE TIMECUT OCCURRED AND THAT THE DRIVE RETURNS
.
16 NEUTRAL
X

006622
00665

: N Y

DOS737

7
eR

ODI26b

tétc,

933
ooe6as ?1535}' Moohe BRiSRe AF:
5041 006652 015737 006674 001106

Y Y

I YT IIIII I YIYZIIIIYIYIIXIXIXYIIZITITIIIXITETITIILL X

*Ea

5¥4cn

Pcnigancx)nc ONLY SINGLE TESTS ?

RRvs
MOV

elefifRe
sTESTS SLPAOR

i3bdy
SI"GbE TESY INDICATOR
.LOAD LOOP ON TEST RDDRESS

{

B
e

R IF JUST ENTERED TEST
,E“
P
e et

cznmeo RMO3/2 OU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34

2042

2043
2044

2045

006660

0066
0066

006700

012737

0157 7
0187

005037

0066794

ooog(;J
011

MACY11 30(1046)
15

001110

001176

001262

3283? 006704 005037 001264

2048

Soqq
2051

gggg

TESTS:
O

006710

006714

005037

012737

001252

003720

006722
006730
006736
006742
006;22
006
007010
16

113760
013737
oosogg
1137
13737
13737

n; TIMEOUT VALUE STORAGE LOCATION

UE 00030 0Ok 0646 30 35 30 30 96 3 38 05 30 36 35 0 36 36 3% 3 36 3 A 3 3 % 3 3 3 38 3 3 3 4% 2 3 3 3 W 2 W W% X% N W R WE ¥

MOV

TIME

;CLERR THE ELAPSED TIME COUNTER

#2000. , WATCH

:SET WATCH TO 2000 MS

007112
007114
007116

MOVB
MOV
CLR
MOVB
MOV
MOV

PORT
(RO) SELECT pom
PORT
PORT S RDDRESS
Rno§1t
pPorTA Rncsa(m)
7
Pomn
ss TO LOCATION FOR TYPEOUT
PORTA
RDORE
SS

CHP
BEQ

*,saonoa
SGODAT, SBODAT
64S

0000:0 bus:
001234
00licé
001le4
001166

39
avpnssR£"§r
OF THE SUBTEST
PORTB, Rncsa(no)
T POR
PORTB.PTNBR
5565$ TO LOCATION FOR TYPEOUT
RMDS1!RO)
ssobm
:SEE IF sslzmc PORT sess CORRECT STATUS
$MOL
¢ PGM i OPRI DRY
! V¥ corxxar XPECTED STATUS
SGODAT, STHP) use bo
A MASK

001126
001166

001164
001164

MOV
BIC

$BDDAT, $TMPO
§TMP1, $§TMPO

save
ACTUAL STATUS
:CLEAR UNWANTED BITS

'BR _IF THEY ARE
{REPORT THE ERROR

013737
043737

007104

000010
00123¢
000010
p01e3Y
001240

523“
MOVB
MOV
MOV
MOV
MOV

0070
007076

007064

001226
1é2e
12
001224
ooxag
1

007536
001226
001226
0000i2
011700
001124

023737
001403

2079
2080

005137

023737

001401
104031
000240

001124

001166

00ll24

001126

001164

COM

CHP

65$:

208s

BEQ
ennon

RO
8
sgg

sss
r on xzso BY PORT B

9&; nm
nscégrsgADDRESS
STE
Hs ns xs ER ZERO

§TMP]

;

scoonf $TMPO

m me sxpscrzo STATUS

:ARE m: EXPECTED STATUS BITS SET ”

X 2222223222222 22222232322X222X22X2X222XX2XX22X2TXTTLIEXTEXZIRE2
LTS

2087

2039E 007120 113760 001224 000010

2093
2094
2095
20%c
2097

nnsap ; CLEAR rf-ae + cS/ OLERANCE LOCATION

MOV
HOV
ADD
CLR

007026
007034
007042
007050
007056

2090
209i
2092

CLR

: Oué ;HE
S‘
smcx POINTER

18837
12 00llee
10037 001122
000012 001122
001124

?g‘-}
§13760
613737
016037
012737
013737

2082
2083
gggg

;LORD LOOP on ERROR RDDRESS

oé gnheg
? cx S

:SEIZE THE DRIVE THROUGH PORT B

%;?
%g
2074
2075
2076
2077
2081

#TESTS,SLPERR

; ;illIll!llllllI!!llillll!lll!llllllllilillllll!llllllii&llliiill

2064 00676M
2065 005792
2066 006776
2067
oo‘n?o

2078

MOV

MOV
MOV

CLR

001254

eosg

2068
2069

é
PARGE
3
TIMEOUT ONEsuor THROUGH PORT 8

Smm THE TIMER

eeggg

2058
2059
2060
2061
gggg

E1-NOV-77
MEASURE THE

NO3

007126 013,37
007134, 005760
007140 001006
007142
007146
007150
007152
007156

001224
000012

%57;7
001254
1372 .,
104006
000137
007210
013737
001252

001234

001262

finxr FOR PORT B TO TIMEOUT
18:

2$:

MOVB

PORTA,RMCS2(RO)

TST
BNE
ERROR
JMP
MOV

WATCH
18
B
33
TIME, TIMEB

MGV
TS
BNE

PORTR!PTNBR
RMDS1 tRO)
2s

:SELECT PORT A

;MOVE PORT RDDRESS TO Locmxou FOR TYPEOUT
sWAIT FOR THE DRIVE TO TIMEOUT
iBR WHEN TIMEOUT OCCURS
s CHECK WATCH
:BR ¥r NCT ZERO
'NO
TIMEQUT WITHIN a ssyonos
'BYPRSS THE REST OF THE TEST
:SAVE THE ELAPSED TIME FOR PORT B

SEG 0039

CZRHHBO RMO3/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 [3:3y4

2098
2099
518?

oon?q
007170
007172

004537
001262
012637

MACY11 30(1046)
EI-NOV
=77 _
15
MEASURE THE

013432
001264

JSR
_WORD
MOV

210e

2105
2106
Si%

007176
007204
007206

023727
103001
104007

001262

000764

cHP
gumgs
OR

007210
007210

00S03?

001250

CLR

2118
7222 0600
2119 007226 012737
2120 007234 uw
2121
007242 Ol
2122
0l 73;

MOV

011700

%124

MOV

2130
2131

001164

13;

Ol 37

007534

737

001164

7214

0127g;

1;2

o;o
2
001170
1
001164

042:

2123

3qu
=

2132

330
007335

2137

007362

2139

007370

2135
007340
2135
007346
213 0073s4

001414

376

013737

001172

1573

007404
007412
007416

olus
2146

%;:es
M

2149
2150
2iS]

:25

2147
2148
2182

2182

{137

007420

007942
007444

007
007

007474

007476

013737

3759
omox;

6657

12760
012760

10%03S
813737

13737
042737
023737
001401

104037

MOVB
283
BIC
cHP

ooxa;w

001234

881224

1166

000010

1777?77

001250

11
13

001170

001224
100000
00llev

00l1i26

001234
001170
001170

roem BITS FROM THE COPY

6&7%:
68S:

; c svz

ms THE SRME: RRE THEY ZERO ”

;
iR
B

MOV
MOV
MOVB

-gf*
:SF12 cTNc P
pomg RMCS2(R0) 'SFE

BEQ

678

;

MOV

smpa $BO0AT

;'ano

15T

MOV

0Cll26
000000
000000

*E?
con 'fiN; mws REGISTER FROM PORT B.
m BITS FROM THE COP
;rs ms mr GISTER
THE SAME FROM aom PORTS ?

gssr

BNE
ERROR
JMP

INDICATOR

or RMOS1 FOR TYPEOUT

nooncss
)
:; Y o'?
mws REGISTER FROM PORT A.
I

81C

%u?o
001126
66S:
1232
001234
0012
000010

007366

2141
2142
2143
2l

1045

nse ERROR ’*

ommxson CONSTANT

MOV
MOV

001164

1001

MOVB

o124 007264 11 m%oo&
1223 000010
gias wgfig Of g
83“25
2159 %305 3-437 7
103 001166
ng
00;314 35:1’7 001164
001166

2140

;1S Tm:our VALUE AT LERST S00 MS
gfl 'é ; g
out LESS THAN SO0 MS

:VERIFY THAT THE DRIVE IS IN NEUTRAL

00122

2138

TIMEB,#500.
;s

3s:

%mx

2133

28 2 3 0 9 05 36 38 06 30 3 98 3 3 0% 3% 38 36 3 30 2 3 3 3 3 3 3 3% 3 % % % %

(IERIFY THAT THE DRIVE RETURNED TO NEUTRAL RFTER PORT B TIMED OUT

Sfig

2117

gmc
LATETff10 znmce
PORT B
+as/ OLE

X Yy Y Y2222 2XYXI2Xz2zz2XXYzxzxzzxzx:xr22x222:¥XXXXXX1222X22X222222XT2L22 L

gm:

2116

300000000000

SEQ 0040

OERIFY THAT THE TIMEOUT OMNE-SHOT VALUE IS RT LERST SO0 MS

2109

Si}%

14:15 _PAGE- 40
TIMEOUT ONE-SHOT THROUGH PORT 8

RS, TOLER
TIMEB
(SP)+, TIMEBP

SRR

Siga

804

PORTA, PTNBR

uor m nsumm. OR NOT SEIZED

HE CKS
m
ERRORNOTMESSAGE
resr SHOWSFORDRIVE
IN NEUTRAL

} mrus EQ O FROM PORT A.

ISEIZ1

PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

TR* ron ERROR TYPE oUT

MOVB
TST
BNE

gnm\RMCS2(RO) ; EE ¢ ?fi
: }r
STATUS EQ ZERO FROM PORT B.
s
.BR

MOV
MOV

m"RMCS1(RQ)
813, RMCS1(RO)

s
,RELE

ORTA'PTNBR
#ATA, $§THP2
scoohr §TMP2

; CHANGE PORT NUMBER
:DON'T cuecx THE ATTN BIT
RLL BITS OK

MOV

ERROR
MOV

MOV
8iC
cHP
BEQ

ERROR

1,RELERR

35
TMP2, SBDDAT

,ET 'R;L A

:TYPE
i LOOK

ERROR’

INDICATOR

ERROR MESSAGE 35
FOR a; FRILURES WHEN RMDS1 RERD

R IF OK FROH PORT A.

REPORT ERROR

LGC 2

MACYIl 30(1046)

weASIRY "$le 415dBurTONE-dhor THROUGH PORT B

007500

001172

oouas

MoV

P11

Cal-NOV-7% 13:34
013737

i34

BrEy
DO 7832 By
£35 it foirn:
1158

69s:

007530

001401

007534
00783

000240
000004

007532

104037

BEdor
NOP
SCOPE

< B

SEG Do

;CHECK nnos% FOR BIT FAILURES - FROM PORT B.

357

BB PORTOTHE ERROR

.LOOP 7

iTESY 6

I 00000000 00 00 00 00

00 IR0 000000 00000

TEST 'CONTROLLER SELECT’ SWITCH, DRIVE CYCLED UP

;iTEST THE OPERATION OF THE 'CONTROLLER SELECT’ SWITCH (DRIVE CYCLED UP).

2. AR.

;¥

PORTS,

‘»

ta
;:
*

]

SWITCH TO CONTROLLER °'B’ POSITION. VERIFY THRT THE DRIVE IS IN
IN RMDS1,

AS READ THROUGH BOTH

RETURN THE 'CONTROLLER SELECT' SWITCH TO THE 'A/B’ POSITION.
THE DRIVE STRTE.

KYBCTL

JMP
MOV

EXEC
0-1 KY?CTL

éi:

HOV

VB
<

\»—-DQ
o

007612 012706 001100

77277

o =

3
S

RRE CORRECT

NEUTRAL AND THAT
rc STRTUS BITS
PORTS, ARE CORRECT

E L
[l ol ol o

000137
915;3;

88823

007550
%23

tete!

001266

SRR

005337

00753

%;3%

VERIFY THRT THE DRIVE IS IN

VERIFY

: X 2222222 Z22Z2222222XX22:X2XZ2X2XXXXXX2XXX2TXXXTZIYIRZXTXIZZZZSL L)

007540

SWITCH TO CONTROLLER 'R’ POSITION.

NEUTRAL AND TH&T nc STATUS BITS IN RMDS1, RS READ THROUGH BOTH

TESTH: MOV

;BERF né"c ONLY SINGLE TESTS ?

r JUST ENTERED TEST

iR ua
; s

TES

XT TEST NUMBER
INOICATOR

nEErZSRR L838 8 8:'1 £hRR"RBDRESS

osfncxsp

’

’éerup rue svncx POINTER

:CLEAR ATTENTION BITS FOR BOTH PORTS
007616

113760

ooxefg

000010

EEXB

PORTQ ancsa(RO)

;SELECT PORT ®A

o"?
Anc81(n0)
813 RMCS1(RO)

REL nsz THE DRIVE

Hov
B
Tkl
2} (R3) ¢Rshie
goge Pon?a
RMCS2(RO)
§£ggDgen TMROUGH PORT '8°

Fd2

007664

88?2?2 012760 88881?
000000
000013 000000

MOV
MOV

sggg

007702

HALT

2208

PRGE

§THP3
SEOOAT

BEQ

708:
48

518
RA7eR
’ Bis7ER
RAGRtA %388
BRI
pog
200
oo;suu
113760 001226
000010
2204
2205

14:15

SR
§2"'
BPORT
et B.
scoob STHP3
If R 55¢ ORErRON

2N 3

SR T LR B 28T

BEORR .08 BB RREDR 2B 33

WU AU

PU NN PN L RUNL NL AU PV

N N NV N NIV T RN LIV

P PUNLIN U NS POV PNV MY

2]-NOY-77

cO4

RMO3/2 DU POR

= 4
(@]

7672
007676

104401
104401

000000

017414
017562

TYPE
TYPE

sutcHA
.conrue

:VERIFY THAT

THE ORIVE

BRéVE

PRESS 'courxnue'
IS

IN NEUTRAL

CZRMHBO RMO3/2 DU POR LGC 2

CZRMHB. P11

21-NOV-77 13:34

2210 007704
oo;;xo
aa}x
5515
7753
2214 007730

2215
2216
2217

2218
2219
2220
2221
2222
2223
2224

773%
7744
77;25

%
7766
007774
010002
010010
31%
01

2225
22
222
228
2229
2230
2231

oxooqmss
01
010056

2233

010068

2232

2234

010024
81
1
01

010062

010072

MACY1l 30(1046)

001250
001122
12737 ?00%
1 g; 1e24
5 001124
113
000010

00S037

01
013

0011

§S 001170
001164
gg 001164

;5737
1 739
01
f[e
133; 001172
27
100100
37
001164
%
37 001164
001045
g;
1

013737
113760
005737
013737

001224

001234

3759

001166

0012249

000010

013737
001414

013737

001172

223

010100

2237
2238
2233
2240

010112
oxmég
0101
010130

001012
015737
012760
012760

2245
2246
2247
2248
2249
2250
2261
2252
2263

010162
810170
010172
010174
010202
010210
010216
010224
010226

023737
wo;
10403
013737
013737
042737
023737
oomo;
10403

2255

010232

104401

017477

223% 01010 6657

001126

001234

6MS:

000010

177777
000011
000013

001250
000000
000000

001124

001170

001172
001226
100000
00lla4

001126
001234
001172
001172

2264

2256

gsgg

010230

010236

010242

000240

104401

000000

67$:

688 :

017562

PORTH
Si( )
#‘?
mr:‘gxla?) TM3I ;
smrus REGISTER FROM PORT B.
r
1
:COPY h?
sTMP3, STHP]
BATAVYV, STHP
i CLEAR
3‘§ T BITS FROM THE COPY
STHPO, StHP)
1
THE STAT
c:sn:n THE SAME FROM BOTH PORTS ?
4s
;
r
T
TMPO
iREG
ms THE SAME: ARE THEY ZERO *?

BNE
ERROR
JMP
MOV
MOV
MOVB
TST

Rnong lng) TM2 ;
ST
gstmb
iC
8aTR Omr
;

668
34
g

303

m Pmaa

rmz'cagn

?m
A’ ron ERROR TYPE oUT

BNE
MOV
MOV
MOV

583“
MOV
BIC

668
s-1,RELERR
811 RMCSI(RQ)
813 RMCS1(RO)

¥np S?RSRAT
oms

NOP

TYPE

HALT

*vs TATUS REGISTER FROM PORT A.
TTMPG’
NOENT BITS FROM THE COPY

N '..fg“m“" OR NOT SEIZED
CKS
TMP2, saoom
T
sst BAD DATA FOR ERROR MESSAGE
PORT Ng
§E’Eé"° PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB, RMCS2(RO)
LECT
Ug
sTHPO’
:SEE
IF STATUS
E@ O FROM PORT R,
Ponm ncsamm-

ESQ
ROR
MOV
MOV
BIC
CHP
BEQ
ERROR

»fi
vx

:BR
,R:Ygggr nor
ge ug

18T

sTMPL’

sATA, $TMP2
scooht,smpe

ING

IF TEST SHOWS onxvs NOT IN NEUTRAL

PoOR

sse IF smrus EQ ZERO FROM PORT B
r
R;Lnsesnnon' INDICATOR
DRIVE
HE DRIVE

LOOK
on ??g?Lmss
P08$
NUMBER WHEN RMDS]1 RERD
oon T CHECK THE ATTN BIT

mpa $BDDAT
ORTB'PTNBR
8ATA. $TMP3
SGODAT, STMP3
68$
37

'ALL BITS OK ?
;
ox FROM PORT A.
T ERROR
c:scx anos% FOR BIT FRILURES - FROM PORT B.
NUMBER
*0ON'T CHECK THE ATTN BIT
'SEE IF READ OK FROM PORT B.
‘BR IF OK
'REPORT THE ERROR

,SWTCHB

:SWITCH T0 'B’

" CONTUE

:PRESS *CONTINUE’

:VERIFY THAT THE DRIVE IS IN NEUTRAL

aagé
22

oxosw
010850

005037
012737

060037

1850
0600612
001122

001122

CLR
MOV
ADD

22ec

010270

113760

001224

0000IC

MOVB

2263

RELERR

MOVB

TYPE

gggg

mme "RELERSE ERROR * INDICATOR
MOS1 FOR TYPEOUT
E EF
/mosto
R 205
'DPR!(m)ORY!; esc’cfba‘
goém“?gon Eonsmm
9?

MOVB
MOV
MOV
BIC
CMP
gug
S

MOV

55:5
2243 oioiqag
8181% é?wgn
13733 001170
001224 001126
001254 66S
2244 010154 042737 100000 001170

010256

2264 010262 012737 011760 00124

SEQ 0042

Sns
onbL
PORTA

MOV

65S:

PAGE 42

CLR
goxoz
Y
MOVB

BEQ

001126

14:15

TEST 'CONTROLLER SELECT’ SWITCH, DRIVE CYCLED UP

MOV
MOV
81¢C

000010
001172
001166
001166
001166

010230
001170
%1535
1é26
001164

21-NOV-7??

DO4

MOV

s
oRn S1,$BDAOR
agho

;CLEAR THE ’'RELEASE ERROR ° INDICATOR
ro M THE RDDRESS or RMDS1 FOR TYPEOUT
ADD THE 10 BRSE ADDRESS

mbu GH! DPR!DRYI Vv $GDDAT conpnmson CONSTANT
PORTA, RMCS2(RO) :SELECT PORT’A

CZRMHBO RMO3/2 DU POR .GC 2
CZRMHB.PLI
21-NOV-77 13:34

2266

2267
2268
2269
2270
2271
2272

010276

016037

010308
010312
010320
010326
010334
01034

01 737
042737
6137
01603
013737
2737

oloje
010360
01036«
010366
010370

0010

010402

013737

000012

ogéxr
1001
1226
12
001158
100!

EOY

MACY1l 30(1046)
21-NOV-77 14:15 PAGE 43
6
TEST 'CONTROLLER SELECT' SWITCH, DRIVE CYCLED UP

001170

MOV

00116M
001164
000010
001172
001166
001166

2273 oxoass 023737 001164 001166
£274
2275
2276
2277
2278

2279

010374

2281

010410

2230

37
001045
104034
000137

001170

001126

00le2e
001164

000010

010416
010422
010424
010432
010440
010446
010452
010484
010462
010470
0104

113760
00S737
001414
013737
013737
113760
005737
001012
012737
012760
012760
1oqo§9

2294

010506

013737

010522
010534

229%

2297
2298

010530
010532

2300

010542

2303

010564

2299

2301
2302
2304

2305

2306
2307
2308
gg?g

010550
010556
010566
010570

010572
010576
010600
010604

001226

001234

001224
001172
001224
001166

001234
001126
000010

177777
000011
000013

001250
000000
000000

001224

001234

023737

001124

001170

013737

001172

001126

042737
023737

100000
00lie4

001172
001172

2293 010553 0137
010514

010570

013737

2282
2283
2084
208S
°o86
2287
2288
2289
2290
2291
2232

2295

0ClieY

042737

001401
104037

013737
001401

100000

001226

005737
001402
104401
000004

001266

017325

BNE
757
BNE
ERROR
JMP

698
§ TMPO
718
34
738

70S:

:SET UP POSSIBLE BRD DATA FOR ERROR MESSAGE

TST
BEQ
MOV
MOV
MOVB
757
BNE
MOV
MOV
MOV
ERROR

$TMPO
708
PORTA, PTNBR
3Tnpa,zaoonr
ORTA,RMCS2(R0O)
STMP1
718
s-1,RELERR
811 RMCS1(RO)
813 RMCS1(RO)
io

:SEE_IF STATUS EQ O FROM PORT A.
5‘ ZERO
:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;'Eng ?nvn' FOR ERROR TYPE OUT
;SELECY PORT A.
:SEE IF STATUS EQ@ ZERO FROM PORT B.
:BR_IF NOT
1SET 'REL ngs ERROR’ INDICATOR
:CLERR
VE
:RELERSE THE
ORI
*TYPE Fanon MESSAGE 20

MOV

PORTA ' PTNBR

CMP

SGODAT, STHMP2

BEQ
ERROR

MOV

BIC
CMP

BEQ

PORTB.RMCS2(R0)

TMP2,

$BODAT

;SELECT PORT B.
:

‘EOOK OR P*T AILURES WHEN RMDS1 RERD
: CHANGE POKT

NUMBER

#ATA, $TMP2

‘DON'T CHECK THE ATTN BIT

728
37

:BR_If
OK FROM PORT A.
:REPORT ERROR

PORTB ' PTNBR

§$TMP3, SBODAT

sATA, $TMP3
SGODAT, STHP3
738

ERROR

75T
BEQ
TYPE
SCOPE

KYBCTL
1
, SWTCHN

NOP

18:

'BR IF NOT
:REG gTER§ ARE THE SRME: RRE THEY ZERO ?
:BR
NO
:REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED
:BYPRSS THE REST OF THE CHECKS

;sexgénc PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

BIC

738

§$TMP2, $BODAT

: 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2

PORTB. PTNBR

MOV

72$:

STMPO, StMP1

MOV

MOVB

001170

0G1234

STHMP2, STHPO
: COPY ITO&NT ;2rnpo'
SATATYV srnpg
:CLEAR PORT
NOENT BITS FROM THE COPY
PORTB,RMCS2(RO) :S #egr PORT 8.
RMDSLLRO) STMP3
HE DRIVE
STATUS REGISTER FROM PORT B.
STMP3, STMP]
:COPY IT INTO '$TMPI’
BATAIVV. STMP1
;CLERAR PORT DEPENDENT BITS FROM THE COPY

MOV

001170 001126 71S:

104037

000240

69%:

RMDS1 (RQ),STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A.

MOV
BIC
MOVE
MOV
MOV
BIC

CMP

PALL gzrs g« ?

‘CHECK RMDS! FOR BIT FRILURES - FROM PORT B.
PORT NUMBER

:DON’T CHECK THE ATTN BIT
:SEE IF RERD OK FROM PORT B.
‘BR _IF OK

"REPORT THE ERROR
:SINGLE TEST MODE ?
'BR_IF NOT
*RETURN SWITCH TO 'A/B’
1LOOP ?

2313

HH 09806 96 46 3 3 06 90 06 38 3 26 30 3 36 3 3% 3% 35 36 46 3 46 96 36 3 3 36 3 3% 4 3 3 3 36 3 3 3 9 96 3 3¢ 3 3 3 3 3 5 3 3 3 3 3 3 3 9 % 3 B ¥ % %

ggig

:#TEST THE OPERATION OF THE ’'CONTROLLER SELECT’ SWITCH (DRIVE CYCLED DOWN).

sgig

RA.

CYCLE THE DRIVE DOWN.

‘s
>t

SWITCH TO CONTROLLER A POSITION.
VERIFY THAT THE ORIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS1, RS READ THROUGH BOTH

ggig

2320
2321

;firssr 7
;l
;i

SEG 0043

TEST ’'CONTROLLER SELECT' SWITCH LOCKED ON PORT R

CSRMHBO RMO3/2 DU POR LGC 2
CZRMHB.P11
21-NOV-77 13:34

FOY4

MACY!1l 30(1046)
21-NOV-77 14:15 PAGE 44
Y7
TEST ’*CONTROLLER SELECT' SWITCH LOCKED ON PORT A

SEQ 0044

gggg

2326

gggg
2331

E:
tx

gssueA DRIVE CLERR COMMAND AND R READIN PRESET COMMAND THROUGH

t#
M
"
;:

VERIFY THAT THE DRIVE CANNQT BE ACCESSED THROUGH PORT B AND
"NED’ SETS WHEN RTEHPTING T0 ACCESS THE DRIVE THROUGH
PORT
ATTEMPT gsr
PORT REQUEST BY WRITING 0°'S
INTO RMDS1 THROUGH p

2337

‘¥

2340
2341

. R 1321222222222z z2x:32z2222xx22222222XXXXX2X22X22222 23222222222
té17.

Sggg

Sg%

010606

005737

001266

2345
2346

010616
010622

000137
01273;

002424
177777

010612
010614
010630
010636
010644
0106

001406
100002

SWITCH THE ’'CONTROLLER SELECT’ SWITCH TO R; CYCLE THE DRIVE UP.
WHEN THE DRIVE CYCLES UP, VERIFY THRT 'Vv-A IS RESET, AND
THAT

2342

2347
2348
2349
2350

2332
2333
2334
gggg

2343
2344

PORTS, ARE CORRECT.

]SSUEA RELERSE COMMAND THROUGH PORT A.

DRIVE REMRINS LOCKED ON PORT RA.

001266

000007
010660
010660
000001

001102
001106
001110
001176

013737
104401

00224
017631

001234

KYBCTL

PERFORHING ONLY SINGLE TESTS °

J
MOV

EXEC
8-1 KY?CTL

RETURN 8 GEY NEXT TEST NUMBER
SET SINGLE TEST INDICARTOR

MOVS
MOV
MOV
MOV

2351 010625 012706 001100
TEST?: MOV
2352 010664 113760 001224 000010
MOVB
2353
gggg

010672
010700

gggg

2360
2361
sggg

(010704

010712
010714
010720

032760

001374
104401
104401

010000

000012

010724

010732

032760

001774

010000

000012

2370

2374
2375

87, .47
sTEST7, SLORDR
crssr7 SLPERR
hes

NTERED TEST

TEST NUMBER
LGAD LOOP ON TEST RDDRESS
Lono LOOP ON ERROR RDDRESS
: °°u$ *T RATION

csf
PAET
STRCK POINTER
PORTQhncsatno) -SELECT PORT R

PORTA'PTNBR
,CYCLED

;MOVE PORT ARODRESS TO LOCATION FOR TYPEOUT
: "CYCLE DOWN THE DRIVE'®

BIT

BNE
TYPE
TYPE
AT

#MOL ,RMDS1(RO)

19
, SWTCHA
"CYCLEU

;TEST 'MOL’

'BRIF IT IS STILL SET
'SWITCH TO ’R’
:"CYCLE UP THE DRIVE'

064620000 060 060 3% 0 3006 36 06 36 38 3 3 3 36 30 36 36 3 36 30 36 36 3 36 36 3 26 3 3 3 3 4 3 3 06 3 3 3 0 9 3 4 %

anxr FOR DRIVE TO CYCLE UP AFTER SWITCH CHANGED
@2%:

BIT

BEQ

#MOL ,RMDS1(RO)

;TEST

'MOL’

RGAIN

:BRTMIF NOT SET

o 3345000 06 06 06 06 06 06 36 06 00 36 36 06 36 36 35 3% 06 3 36 36 3 3 3 30 36 46 36 36 36 3 3 30 36 36 06 46 35 36 6 3 36 06 36 36 06 30 36 3 0t O B 4 &

bnxvs IS CYCLED UP, CHECK STATUS THROUGH PORT A

§§;é
2373

1S:

017414
017653

gggg

‘BR IF
N
BR IF JUST

finxr FOR '"MOL’ TO RESET

2364

2367

MOV
TYPE

2$
18

Illlilllllllllllll«l!{lllllllllll}llllllll!lllllillllilllllllll!

2356

2359

VERIFY THAT THE

TST

BEQ
8PL

1127
012737
012737
012737

'ARTR-Q 1S SET

010734

010740
010746

00S037

016037
012737

001244

000012
000012

001126
001122

2376 010754 060037 001122
2377 010760 012737 110e00 001124

CLR

MOV
MOV

RDD
MOV

CKERR

:CLEAR THE ’CHECK ERROR’

INDICATOR

RMDS] (RO),SBDDRT’ :GET CONTENTS OF RMDSI
sRMDS1, SBORDR ; FORM REGISTER ADDRESS OF ERROR MESSAGE

RO aohon
;ADD RH11 BASE ADDRESS
n?n-nOL DPR!DRY.SGODAT ;WHAT REGISTER SHOULD BE

RHHBO RMO3/2 DU POR LGC 2

MRCY11l

2378

001lee

001164

MOV

SBODRT, STMPO

001174
001174
001124

MOV
BIC
BIS

BEQ

ERROR

CZRHHB P11l

2379
2380
2381

010766

010774
ouoos
01101

21-NOV-?77 13:34
013737

042737
3737
1414

06607
001124

2382
2383
2384

0110}
0l1
011026

013737
042737
0S3737

111700
001174

2386

011036

00S137

00le4y

2385

Sggg

011034

011042

10402l

000240

011044

011052
011060

2402

011102

012760

012760
012760

000011

000021
010000

000000

MOV

000000
000032

MOV
MOV

1137?60

001226

000010

011074

0137?37

00le2e

001234

011106
011114

016037
012737

000012
000012

001126
O00ilee

011122

005037

060037

001244

001122

MOVB

011154

Q001Y4lM

24ll
24le
2413

O0111S6
011164
D0lll72

013737
0N2737
0S3737

COPY ?flg
CLERR
HRSKED I7S
,'OR' WITH GOO DQTR FOR TYPEOUTY

CKERR

SET THE REGIS ER COMPARE ERROR INDICATOR

e4le
2417

011206
011210

000240
00283;

011200

10402

00lle6
177700
0011?94

RMCS2(RO)

RHDSI(RO) SBDDRT
lRflOSl $2AA0R ;F

gbon

CLR
MOV
BIC
CMP

sco A
lfCl???OO STHPO
$GODART, STHPC
C

MOV
BIC
BIS

S$BDDRT, STMPY
81772700, $TMPY
$TMPY, SLDDAT

BEQ

66%

001164
00lle4

001126
010000
001174

001174
001174
O0Olled

2430

(011312

005137

Oniowy

011310

011316
011320

104023

(00240
(925060

000012

C
AD DRTR’
CL HE MRSKED BITS
;'OR ITH 0000 DATA FOR TYPEOUT

MOV

Sgsgh¥cg?gP0 HOVE £EG§STERCONTENTS TO "STMPO’

COM

ERROR

68$:

*STMPO’

;CLERR THE

CKERR

167777
00Ji124

1587
Sé IED BI
BITS

G]ISTER CONT NTS TO

CKERR

COoM

042737
023737
00141M
013737
272”7
03737

NOP
CLR

8tCNED, STMPO
SGDDRT STMPO
sgs
SBDDAT, STMPY
sNED, StMPY
STHPQ SGDORT

011280
011256
011264
011266
011274
011302

INDICRTOR

;SET T

BIC
CHP
BEQ
MOV
BIC
BIS

2423
2424
24eS
et
e4e?
e4e8

RROR'

ONTENTS
GISTER RESSRE
OF ERROR MESSAGE

CKERR

MOV
MOV

e4ce Qlleve 01%7 4 00&126 001164

TO LOCRTION FOR TYPECUT

001126
O00l1i2e

001244

T ROORES

ERROR

000010
000010

011214
011222

668:

SS
LECT PORY

MOV
MOV

ADD

001174
001174
O001ie4

ORTB,

0l
012737

pa
w
W

;ISSUE
A DRIVE CLERR

P Y PTNB

c4l8
2419

SSA

821 ,RMCS1 (RO)
-ISS E R READIN PRESET
.Fn?lb RMOF (RO) ;SET FMTl6

001244

2431
2432

; TYPE

#11,RMCS1(RO)

2415 (011202 00513

e4e9

iBR
1

P;C FI%D BITS
BITS

SBODRT, STMPY
8111700, $TMPY
STMPY, $GODAT

MOV

CLR

2406 011126 005037 001124
e407
011132
0137
0011;%
001164
2408 011140 042737 0000
0O11€E4
e409 (0llive 0237
00li2y 00lle4
2419

;MOVE REGISTER CONTENTS TO 'STMPO’

.?Céfl*?O? STMPO
SAVE
PO
;¢on9

lIlllllilllliillllll!!llIlll&lll&llllllllllillllllll!!Illlllil!

011066

410

NOP

SEG 00MS

WITCH LOCKED ON PORT A

CHECK THE
DRNHE STATUS THROUGH PORT
B: VERIFY THAT 'NED’
:
N THE DRIVE 1% ACCESSED THROUGH PORT B.

2400

2405

COM

SELEC

lllllIllllillilllllllllllilIllI!lll!l!llillllll!ll!llllilllliil

2397
sggg

2403
2404

AS ; g

'4ET VOLUME VALID FOR PORT
R

239%

401

21l- NOV-77

TEST CONTROLLE

BIC
CMP

64S:

ggg?
2392

00116M
001164

2389

2393
sggg

30(1046)

GU'-}

NOP
CLR

; TYPE zE

REGX:uER COMPRRE ERROR INDICATOR
’CHECK ERROR'

INDICATOR

RMCS2(R0) SBDORT GET CONTENTS OF RMCS2
ORHCSZ
SBbQD
Ofifl REGISTER ROORESS OF ERPOR MESSAGE

RMDS1 (RO)

ShvE SPECIFIED BITS
;COMPRRE THE BITS
BR IF OK
COPY '8RAD DAT
C ERR THE MASK ED 8ITS
-'OR’ WITH GOOD DRTA FOR TYPEOUT
; TYPE

SSAGE 23

SEY THE REGISTER COMPARE ERROR INDICRTOR
;TRY TO SET REQUEST BY WRITING THROUGH

:THE LOCKED OUY PORT (PORT ‘B

CZRMHBO RMO3
2 DU POR LGC 2
CZRMHB.P11
21-NOV-77 13:34

MACY1l

Swgs

S:gg
“SS

HO4

21-NOV-77
14:15
PAGE 46
TEST *CONTROLLER SELECT' SWITCH LOCKED ON PORT A

SEG 004e

Illlllllllll!llli!lilllll'6llllIlli!llillllllil!!llllli’lilllll

434

4
430

30(1046)
17

venxrv THAT DRIVE STAYS LOCKED ON PORT R
11324

11
01134

739

él ?
12760

MOVB

PORTR Rnc
S(ROJ

SSLS

PORT
A

MOV
MOV

PORTA
§
DRESS TO LOCATION ron TYPEOUT
813 Rhosx(ao)
ssue A RELEASE THROUGHPORT

MOV

CLR

RHOSI(RO) $800AT’ csr co«renr

CK ERROR’

ADD

CLR

RO Bgohoa

RDORE

CO1164

BIC

8677’29 Sonpo

454 811452 843737 ?9}558 881174

gic

9 700, $TMPY

ERROR

1234
a2

Shloglme
Oizy Sle
s
2443 811 613739
eaISS% 881254

Bre
MOV

()

2444

011370

2446

011402

2449
2451

2445

2447

016037

011410

8320 vd

2455

001126

000012

011420

013737

001126

001164

01143

gll24

001164

011426

%g1155

037 00!l

a7g;

800077

011460

053737

001174

011470

888 37

001244

2456

011466

S:gg

011474

2457

001244

000012

012737

2448 011414
2450

005037

011374

104024

001122

2463
o464
2465
2466
g:g;

g:;x

CMP

C1S

708 :

011476

011502
011504
011512
011514
8{{520

105737

001412
032777
001406
105037
ooso;;

001103

001000

167426

0C1103
00;128

oiisag

°3f773

040000

011852

104401
104401

017325

017653

3s:
167374

2475

011586

2:;7

0115;0

013;37

8?6553

8868?3

2480

011606

032760

010000

000012

S§:

2476 011862 113760 001224 000010

5u7 8!*205 83?3
011614

001774

qoonr
$TMPO

nove GISTER conrsnrs T0 *'STMPO’

$Gb

AT,

’

$ThA

Lena ?flg gnsxso BITS

-'oa' WITH GOOD DATA FOR TYPEOUT

:TYPE MESSAGE 24

CKERR

:SET THE REGISTER COMPARE ERROR INCICARTOR

CHECK FOR LOOP ON TEST

SERFLG

39
#5W09, ISWR
3%
SERFLG
3;1253R

,CYCLED

:DID AN ERROR OCCUR

:BR IF NOT
"SEE IF LOOP ON ERROR (SWR9=1)
‘BRIF NOT
:CLERR THE
ERROR FLAG
:CLERR THE
MAX ITERSEég” COUNT

?flsgm*‘g v22F ROBE

gguxq,asun

LOOPFON
7 sg ”

surcnn

'Sh ércu T0 A/B’

PE tYCLéDOWN'

MOVE

#onrn RMCS2(RO)

*CYCLE THE DRIVE upP’

#MOL, RMDS1 (RO)

Bfie

£0Q

YCLEU

SELECT

:oglakzsg?§flosnov§ RT onsss TO LOCATION FOR TYPEGUT

(3 ;

'4ET VOLUME VALID FOR BOTH PORTS

Y
11616
Q127
011
5u29
811s§4
815728
8880§1
888888

01132
0iled0

012760
113760

000013
001226

000000
000010

MOV

SHOUL BE

srnpq SGODAT

?vSe
no¥

INDICRTOR

rokfl REGISTER
noonsés OF ERROR MESSAGE

LA
6$

TYPE

OF RMDS1

sRMDS1, $80ROR

BEQ

TYPE

51 Rngg (38)(RO}

MOV

#]11,RMCS1

MOV
MOVB

813 RMCS1(RO)
PORY8,RMCS2(RO)

(onxvs NOT CYCLED DOWN)

-nQ

F NOY

SESRRRBERCEBRBERER RS RERRRREPRREERRA AR

g:gg
2488
2489

BEG
BIT
BEQ
CLRB
chg

ear

gxxgws ?8«931 017631

g:gé

NOP

1578

247

2474

COM

CKERR

: IF ERROR OCCURRED,

469 01125
g&#ar
481368
011534
1460

2470

MOV

001124

g:g?
2462

MOV

RRIS
Ryl gOCCD
O PORY FOR TYPEOUT
PORT (I,(RS
S EBS?
TO LOCATION

acasn

SET (DRIVE NOT CYCLED UP;

RRERRERER AR R R

R BB

RRERER

%SsU
EUEA DRIVE
READIN CLERR
PRESETTHROUGH
THROUGHPORT
PORTA A
;RELEASE PORT A
';SELECT PORT B

CoRMHBO RMO3/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34

2490

2491
2432

2433

MACY11l 30(1046)
17

21-NOV-77
14:15
PRGE 47
.
TEST 'CONTROLLER SELECT’ SWITCH LOCKED ON PORT A

MOV

PORTB PTNBR

MOV

013 RMEST (RO

011646

013737

001226

001234

011670

012760

000013

000000

001254

011654
0lieb2

012760
012760

2499

011676

104401

2496

011710

005737

2498

011716

000004

000021
010000
001207

000000
000032

2495 011702 012737 011610 001254

2497

sggg

011714

011720

00137S

I04

MOV
MOV
6S:

MOV
75T

SCOPE

000400

2501

s SR 300336

;MOVE_PORT noonsss T0 LOCARTION FOR TYPEOUT

821, RMCS] (RO
xssuz RERDIN PRESET THROUGH PORT B
sFntie RHOF(RO) SET T16

TYPE

SEG 0047

ELEQSE PORT B

SCALF

bsooo.,unrcu

WATCH
7S

:FINSIHED?
iBR_IF NOT

:SPINDLE MOTOR ’COOL DOWN’ DELAY
:LOOP
?

TST10

:;GO TO NEXT TEST

0036 3690 36 36 3% 36 96 36 38 06 3 36 26 3 3 36 2 3% 3 3% 3 3 3 3 3 3 3 3 3 % 3 3% 3 3% 3 3 3% 3 3 3 % % %% %% %W %R A

S§8§

irssr 10

5283

:rssr THE OPERATION OF THE 'CONTROLLER SELECT’ SWITCH (DRIVE CYCLED DOWN).

5207

2508

‘%

ggi?

2509

Séi%

‘¥

2514

,¢

1% ]

ggig

‘%

gg‘ig

P ¥
*

2620

‘¥

2521
2522
2623

D a
L a
1

2525

‘%

5%59

Pa
o

2528

‘%

2€31

‘s

5238

¥
*

CYCLE THE DRIVE DOWN.
SWITCH TO CONTROLLER B POSITION.

NEUTRAL ANO
T
PORTS,

RARE connecr

G.
H.

RS READ THROUGH BOTH

SWITCH THE 'CONTROLLER SELECT’ SWITCH TO B; CYCLE THE DRIVE UP.
THAT

VERIFY THAT THE DRIVE IS IN

THE STATUS BITS IN RMDS1,

WHEN THE DRIVE CYCLES UP,

2517

TEST 'CONTROLLER SELECT’ SWITCH LOCKED ON PORT B

'ARTR-B

IS SET

VERIFY THAT

'vv-B IS RESET,

AND

xssge A DRIVE CLERR COMMAND AND A REARDIN PRESET COMMAND THROUGH

POR

VERIFY THAT THE DRIVE CA NNOT BE ACCESSED THROUGH PORT A AND

'NED’ SETS unzn nrsnprr G TO ACCESS THE DRIVE THROUGH
PORT A.
ATTEMPT
TO SET PORT REQUEST BY WRITING 0°S
INTO RMOS1 THROUGH PORT
R
ISSUE
A RELERSE COMMAND THROUGH PORT B.

DRIVE

REMAINS LOCKED ON PORT B.

CYCLE THE DRIVE DOWN.

A/B;

CYCLE

THE

DRIVE

CHANGE THE

UP.

VERIFY THAT THE

°'CONTROLLER SELECT'

VERIFY THAT BOTH PORTS CAN RCCESS THE DRIVE

SWITCH TO

THAT BOTH ATTENTION

5233

<
2635

(011722

' X 1 2222222222222 2:xXZ2:2zx:2:22xX2:X:XX22zX222X:XXXXXTX2XIZYXTRTXZXRXZ
2
t&110:

2637

011726

2536

011722

238

011730

2540
2541
2642
2543

011736
011744
011752
011760

2639

2S44
2S4S

005737

001406
100002

011732

000137

C11766
011774

012737
012706

012737
112737
012737
012737

001266

002424

177777
ooog;o
011274
0117?24
000001
001100

BITS ARE SET, AND THAT BOTH 'VV' BITS ARE RESET
157

BEQ
8PL

001266
001102
001106
001110
001176

1$:
2§:

IMP

MOV
MOV8
MOV
MOV

MOV
TEST10: MOV

KYBCTL

sxsc

KYBCTL
o% ¥737
SLPADR
o7 SYIO SLPERR
sl STINES
#StRCK, SP

: PERFORMING ONLY SINGLE TESTS

a IF NOT

R IF JUST
;nren;o TEST

E TURN

TEST NUMBER

ssr SINGLE rssr INDICATOR
‘TEST Nggge
;LOAD
L
ON TEST ADDRESS
Lono LOOP ON ERROR RDORESS
D0 1| ITERATION
Ssvup THE STRCk POINTER

CZRMHBO RMO3-/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 [3:3y
2546

2647
gg:g

012000

012006
012014

113760

013737
109401

001226

001226
017631

MACY11l

30(1046)
T10

000010

MOVB

001234

MOV
TYPE

2SS0

;

gggé
2553

2564
2655
gggg

012020

012026
012030
012034

032760

001374
104401
104401

010000

000012

PORTB PTNBR
,CYCLED

[ 22222222 X2 T

1§:

017477
017653

BIT

BNE
TYPE
TYPE

SEG 0048

;:SELECT PORT B

novt PORT ADDRESS TO LOCATION FOR TYPEOUT
"CYCLE DOWN THE DRIVE'

X222 222X

#MOL ,RMDS1(RO)

18
, SWTCHB
"CYCLEU

(2222222222222

gggg

Sggg

PORTB,RMCS2(R0O)

anxr FOR 'MOL’' TO RESET

3558
2S61

JO4

21-NOV-7?
14:15
PRAGE 48
TEST 'CONTROLLER SELECT' SWITCH LOCKED ON PORT B

R 2T 2 XY 2R 2SR XYY

;TEST

'MOL’

IBRIF xr IS STILL SET
'SWITCH TO *B’
:"CYCLE UP THE DRIVE'

X222 RS2 X222

aaxr FOR DRIVE TO CYCLE UP RFTER SWITCH CHANGED
012040

012046

032760

001774

010000

000012

2%:

2564

BIT

BEQ

X222 YT

gggg

SMOL ,RMDS1(RO)

;TEST

Y22

'MOL’'

AGRIN

!BR IF NOT SET

2R YRS

bnxve IS CYCLED up. CHECK STATUS THROUGH PORT B

YZSRSY S

2569 012062 012737 000012 001122

MOV
RDD

MOV

RDDRESS
on?n'nOL DPR onv scoonr eas;
:
REGISTER
SHOULD BE

2674 012116 023737 00l1i24 001164

cHP

65* Qh

;¢0n35REP$

2676
2577
2578

012126
012134
012142

MOV
BIC
BIS

saooar STMPY
8111700, $TMPY
$TMPY, SSDDAT

copv gag
nr ’
:CLERR
TS
;'on' uxTH cooo onrn FOR TYPEOUT

2580

012162

2571 012079 012737 110600 001124
2570

2575

2579

gggé

012070

012124

012150

012156

060037

001414

001122

013737
042737
053737

001126
111700
001174

005137

001244

104021

000240

001174
001174
001124

2583

2587
ggeq
S§3§
2594

2595
259%
2597
2698

NOP

CKERR

‘BRI

PTYPE

ISET T

BITS

GE ;

RE STER COMPARE ERROR INDICATOR

[T X 2222222222222 Y2222 XXX X2X 2222222222 SRR

012160

012166
012174
,

012760

012760
012760

000011

000021
010000

000000

Q012202

MOV

000000
000032

MOV
MOV

#11,RMCSI(RQ)

821 RMCS1(RO)
sFMt 16, RMOF(RO)

RS 2

;ISSUE A DRIVE CLEAR

;1SSUE A RERDIN PRESET
;SET FMTI1E

lil!l»llll!ll!llIllllllllllllilllll!!lllllllll!ll!lll!!lllllllll

énecx THE DRIVE STRTUS THROUGH PORT R: VERIFY THAT ’NED’
:
1137

001224

012210
012216
oxezgg
0122

013737
00S037
016037
8&3737

001224
001244
000012
00001é

012242
012246

00S037
013737

001124
001126

2699 012236

2600
2601

COM

8?2 E zooness
OF ERROR MESSAGE

noo

éer VOLUME VALID FOR PORT B

2590

2591

ERROR

6H4S:

ggg
2586

BEQ

Rn3§“290382

0037 001122

000010

001234

SETS WHEN THE DRIVE 1S ARCCESSED THROUGH PORT RA.

MOVB

PORTR,RMCS2(R0O)

:SELECT PORT A

001126
001122

MOV
CLR
MOV
MOV

PORTA.PTNS
.novt ORT RDDRESS TO LOCATION FOR TYPEOUT
CKERR’
;CLEAR THE 'CHECK ERROR' INDICATOR
nnosx(n ) saoonr
GET conrznrs OF RMDS!
#RMDS 1, $80RD
rohn EGISTER ADDRESS OF ERROR MESSAGE

001164

CLR
MOV

sGODAT
$BDDAT, $TMPO

RDD

RO saoh

; ADD Hll BASE oonsss

WHAT REGISTER SHOULD BE
novs REGISTER CONTENTS T0 '$TMPO’

CZRMHBC RMO3/2 DU POR

SZRMHB. P11

LGC 2

21-NOV-77 [3:34

és

001164

BIC

2604

0122

2609

013313

005137

001244

2611
2612

012324
012330

016037

001244
000010

0Cllek

CLR
MOV

CKERR
;CLEQR THE 'cugcx
snnon' INDICATOR
RMCS2 (RO) , $BDORT’
:GET CONTENT
MCS2

2615
2616
61?7

012350
012356
012364

012737
013737
042737

010000
001126
167777

001124
001164
001164

MOV
MOV
BIC

sné #coonr ;WHAT REGISTE SHOULD B8E
SBDOAT, $TMPO
.MOVE
REGISTER CONTENTS TO 'STMPD’
81CNED.STMPO ;SAVE
SPECIFIED BITS

2621

012410

042737

3737
141Y

001124

001164

CMP

BEQ

%
Slae
B
foum
2;89
815305
833737
1174 001124
2608
0123184
104022
2610

2613

01232

012336

26149 012344

2618
2619
2620

012372
012400
012402

012737

8037

023737
001414
013737

880010

1122

001122

001164

001126

001174

010000

2624
2625

2626

gser

012424

10402

012426

00S137

001244

012434

00S060

000012

012432

000240

ADD

001174

ggg?
012440

2634

012454

263S
2636

2637

2638

113760

NOP

CLR

MOVB

000013

000012

MOV

001224

000010

001226

012462

013737

001226

013737

001224

012470

012476

012760
113760

81520"

8028?7

012534

013737

001234

EGISTER COMPRRE ERROR INDICATOR

,rggg
REGISTERngggzss OF ERROR MESSAGE

é#

;COMPRRE THE BITS
‘PR IF
OK
:CoPY *
DATA’

stmPy

;CLEQR HE MASKED BITS

srnpfi $GDOAT

;'Ofi' WITH GOOD DATA FOR TYPEOUT
YPE MESSAGE

CKERR

ssr THE REGISTER COMPARE ERROR INDICATOR

RMDS1 (RO)

:TRY TO SET REQUEST BY unxrxnc THROUGH

:THE LOCKED OUT PORT (PORT 'R’

2646
2647

0125
012560

001414
013737

2650

042737

001leb

000077

2649 012593

822737

o651
gggg

012602

1049024

00S137
000240

012604
012610

3737

001126

772700

gggg

RHL:E(RO)

813

sx(n?)

PORTB PTNBR

MOV

Poa?g,

001234

MOV

PORTA,PT

001164

MOV

$800AT, STHPO

001174

BEQ
MOV

001236

MOVB
CLR

MOV
ggg
CLR

001164

BIC

001174

001174 001ley

001244

PORT

MOV

2645 012532 023737 OCIled 001164

2eSe

SSABSbROR

COM

000010

013737

012542

2657

ERROR

001226

012446

2644

2648

SET T

333346 6 30 6 46 36 36 06 30 2006 30 36 06 36 36 3% 38 36 3% 36 38 36 36 3% 36 3 38 36 36 36 3 3 36 3 30 3 3 36 3 3 36 36 36 36 3¢ 36 36 36 3 26 3¢ 3 4 % 3 3

2639 012510 016037
12 001126
gg:o oiasxs 018637 00?915 001122
264 315333 835033 8811$q
2643

KERR

cer WITH
e cooo
mu
35EE
89?9
?on TYPEOUT
Snc§ gs

OERIFY THART DRIVE STAYS LOCKED ON PORT B

2632

2633

an x

SGODAT, $TM
68%
seoonr STMPY

BIC

:SAVE spscxrxeo BITS

;¢onPRE THE BITS

668

CHP
BEQ
MOV

BIS

688 :

2629

NOP

MOV

2622 012416 0S3737 001174 O0O0ll24
2623

SGODAT, STAPO

e
ooenes
BIS
963097
ERROR
668

001124

#1C177700, $TMPQ

SEG 0049

suxrcn LOCKED ON PORT B

012254

oxga;s

000077

TEST 'CONTROLLQ SELEC

T10

21-NOV-77

2602

2603

042737

KD'-G

MACYLl 30(1046)

708 :

Dl2tle

105737

00Id4le

001103

;

Rnssxc )
ggnogx
scbaa? E

BIC

$TMPY, SGDDAT

COM
NOP

1518

BEG

AP0

708
SBODAT, STMPY

8177700, $TMPY

CKERR

RELERSE THROUGH PORT B

;

LOCKED ON’ PORT

SS TO

LEER THE

'CHECK E

;no

LOCATION FOR TYPEOUT
'

"INDICRTOR

;Conpanz

cx T R conr NTS TO0

fié

*STMPO’

'BR IF OK
:COPY 'BRD DATR’

;CLEAR THE MASKED BITS

:"0R’ WITH GOOD DARTA FOR TYPEOUT
: TYPE MESSAGE

)

iSET THE REGISTER COMPARE ERROR INDICATOR

CHECK FOR LOOP ON TEST

SERFLG

sS TO LOCATION FOR TYPEOUT

T' SGET
C 7En1n085£nn051
3 ;FORM RE
RHc T
Roonggsor ERROR MESSRGE
;3387 Ré& ETSE D BE

.fCl???g? STMPO

;novs

CKERR

: IF ERROR OCCURRED,
012612

12p

ERROR

;

PORTA,RMCS2(RO)

CHP
8IS

ssosgr PORT B

; v%

:DID nn ennon OCCUR

'BR IF
N

LO4Y

CZRMHBO RMO3/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34
2658
2659
2660
2661
2662
2663
2664
2665
2666
o667

Sxasao
012626
012630
15234
012640
012644
oxggga
012634
012660
81 sgg

032777
°8§“
0
7
127
277
1054
104401
183401
1 426

2669
2670

012676
0127084

013737
032760

2668
2671
2672
gg;g

0l2712
012714
ni2722

1137

001374
032760
001774

MACY1l 30(1046)
21-NOV-7?7 14:15 PAGE SO
T10
TEST 'CONTROLLER SELECT' SWITCH LOCKED ON PORT B

0010C0

166312

001103
001176
166244
040000

166266

017631
017325
867653

1226

001226
010000
010000

3%:

000010

BIT
BEQ
CLRB
CLR
NP
BIT
gue
YPE
TYPE
TYPE

8SW09, ASWR
7
RFLG
IMES
PERR
# W14, ISWR
sg
,CYCLED
' SWTCHN
cvcbsu

MOV
BIT

PORTB PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
$MOL
, RMDS 1 (ROS ; CHECK °*MOL’

MOVE

4S$:

000012

65S:

BNE
BIT
BEQ

HH Y 2

2222222222212z

267S

eeg;g
012724
012732
012740

012760
012760
015750

000011
000021
830013

000000
000000
000000

MOV
MOV
MOV

2682

012754

2683 012762

813737

1234

MOV

2687
2688
2689
ggg?

012770
81 776
01

012760
8157sg
18737

00S73?7
00137t
000004
025137

010000
000013
011610

o684
2685
2686

':SELECT PORY

4
'BR IF SET (DRIVE NOT CYCLED DOWN)
#MOL ,RMDS1(RO) : CHECK *MOL’ AGAIN
33
iBR IF NOT SET (DRIVE NOT CYCLED UP)

2222zx2:122222222:X22222222 22222222 L

:$ET VOLUME VALID FOR BOTH PORTS

2678
2679
2680

2681

PORTB, ’MCS2(RO)

001234
000012

:SEE IF LOOP ON ERROR (SWR9=1)
'BR sr NOT
:CLEAR THE
ERROR FLAG
:CLEAR THE
MAX ITERATION COUNT
:G0 TO THE
LOOP ADDRESS
:LOOP ON TEST ?
‘B8R EF t°2’§"°
:TYPE 'CYCLE DOWN’
:'SWITCH 10 A/B’
;'SE %E THE
DRIVE UP’

01279

013012
013016
013029
013022

113760

012760

1224

000010

1 830500

001254

000032
000000
001254

PORYAR,RMCS2(RO)

MOV
MOV
MOV

sFMti6 RMOF (RO) ;SET FMTIG
813 RMES] (RO)
;RELERSE PORT A
85000. , WRTCH
:SPINDLE MOTOR 'COOL DOWN' DELAY

TST
gns
COPE
IMP

013026

;ISSUE
A DRIVE CLEAR THROUGH PORT B
:1SSUE
A READIN PRESET THROUGH PORT B
:RELE s; PORT B

MOVB

MOV
63:

#11,RMCS1(RD)
821 RMCS1(RO)
nég RMCS1(RO)

PORTR PTNBR

821, RMCS1(RO)’

':SELECT

;MOVE

WATCH
7$

PORT A

¥ ADDRESS TO LOCATION FOR TYPEOUT

;ISSUE A READIN PRESET THROUGH PORT A
SFINISHED ?
'BR 3r NOT
:LOOP
?
:GO 10 THE END OF PASS ROUTINE

SEOP

gggg

.SBTTL

; Y 2 Y222 22223

269%

4 INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM

2635

2223222222222 222 24

' #WHERE
XXXXX ARD YYYYY ARE DECIMAL NUMBERS
:u]F THERES A non;ron GO 10 IT

5;8?

‘#IF THERE

013026

2703
2704
2705
2706
2707
2708
2709

013026
013032
813034
013040
013044
013050
013054

005737
001402
000137
005037
005037
005237
2737

2711

013064

800001

2712
2713

SRS

;iTYPSE'END PASS aXXXXX TOTAL NUMBER OF ERRORS SINCE LRST REPORT YYYYY”

2£938
26939

2710

XXz 222X

:EINCREMENT THE PRSS NUMBER ($PRSS)

2637

2702

END OF PRSS ROUTINE

013062

013066
9213070

327

003062
012737

SEOP:

001266
0024
001l
001176
001100
100000

001100
SEOPCT:

ISN'T

JUMP TO TSTIRR

157
BEQ
JMP
CLR
CLR
INC
BIC

KYBCTL
. +6
XEC
TSTNM
STIMES
§PASS
#100000,8PRSS

.WORD

OEC

BGT
MOV

(PC)+

$DORGN
PC)+,(PC)+

:ENTERED TEST VIR KEYBOARRD COMMAND
:BR IF NOT
;RsTURN T
xsygonao CONTROL
:.2ERO THE
TEST NUMBER
::ZERO THE NUMBER OF ITERATIONS
: INCREMENT THE PRSS NUMBER
::DON’T ALLOW A NEG. NUMBER
iLoop?

s s YES
: 'RESTORE COUNTER

SEG 0050

CZRTMMHBO RMO3/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34
714

g21d 313878 B9%ed
271 013076
40l
27217 013102 600405

ggxg

MACY1l 30(1046)
21-NOV-?7 1M4:15
END OF PRSS ROUTINE
SENDCT:

013104

gagss:

)

S;é? 813155 013746 001100
2722

013126

10440S

§;§§

§i§§§§

MOV

c HRL RSCII WITH SIGN

SERTTL, -(SP)

"?8¥§L’ERTTLRF8§ E;sggg'

TYPE
SCETY2 gbe

SCRLF
tgfigrko

' TYPE CARRIAGE RETURN, LINE FEED
1:CL n§0§n§on ;8 AL

000

SENDRD: ggg

PC, (RO)

!,ggTO ngnxron

" BEQ
RESET

§§§§é§

gooatn

013246

377

$i1FOR

sRThA0: oD TTiAm
~-1,-1,0

+ 7 RETURN

000 SENULL: .BYTE

; ;NULL CHARACTER STRING

.EVEN

g;:g

2;37

.SBTTL

: '-Og

SHRIEI IR I P

::G0 TYPE--DECIMAL ARSCII WITH SIGN

::Ssnucu
fF n8§§§gn
: :CLERR THE HORLD

NOP

5740
Bi3sug 032530
2742 013242 La‘agg
g;:g

.WORD

$EOPCT
TYPE
65$
;3 TYPE ASCIZ STRING
BR
648
,cer OVER THE RSCIZ
CRSCIZ 12> <15>/END PASA’s
ron TYPEOUT
,.§ngz gpnss
$PRSS, -(SP)
MOV

TYPDS

9 013¥% 1SN ooieor
2;31 813212 005937 001655

SEG 00S1

il
ég27s: W
.ASCIZ / TOTAL ERRORS éincs
LRST REPORT /

g;ge 8%3588 013746 001112

000005

PRAGE SI

TYPDS

5
2725 BisiN dgsal oo
S?
813553
2734 013224

MO4

000000 00000 00 0000000 0000 0300 000000

3000 20 00

00000 0000 000 0

#us SUBROUTINES ##a

; ;h!lll!ll!lll!lilillll}lllllllllllllu‘-flllll!illlllilill!llllll!l’

750

2751

S;§§

:ROUTINE TO CHECK FOR KWll-L OR KWll-P CLOCKS

BN REm pams oo ccuc

KCLK:

MOV

7
27777
?
R
B Bl MIIE
feElRe

oyv

5785 Didoea 01370, 0912k
763

2769

013350

g;sg §§§§é§ §E§;§2 8?§§§§ 000004
2766 013334 013701 63122
725
813
81572}
868“8§
7
1
1871
3
012777

000100

165642

CKCLK]1:

ccx

SSERRVEC

sag
AR

;SET

(R,

VECTOR FOR CLOCK CHECK

Hov

2& £2°r

$§§
MOV
n8v
MoV

ock
gxa aoeanvsc HANGE ERROR VECTOR TG CHECK FOR KWll-L
SLLV
*1 VECTOR noonsss
'ShSCK(R1)
(ax)*
gg KHII-L VECTOR

MOV

8-b KC
31é§k§hx3§n
89

8100, 9SLKS

&f.‘?-p‘%cmn RESs

FER WITH 1’
AR c TER
RS R
R B

RE?HSfiEETHS 859cx P ANTSR

{SET xuxx L xnrsanupr

CZRMHBO RMO3/2 DU POR LGC 2
21-NOV-77 13:34
CZRMHB.P1]

270

771

2772
7?73
S;;g

013356

013360

013368
013370
113376

000404

062706

06271
01273
0207

MACY11l 3UC1046)
21-NOV-77
14:15
#%% SUBROUTINES %n#

B8R

000004

000002
000006

g;;g
013400

780

Q013412

2781

2782

2783
Szgg

pD00C21

0i13406

005737

Q01341Md

162737

000021

005037

001254

(013422

013424

013430

OC1406

100002

000002

001254

001252

a (SP)
06 S8ERRVEC
PC’

RDD

;RESTORE THE STARCK POINTER

IhCRE NT RETURN, NO CLOCK
RESTOR THE ERROR VECTOR

817.,TIME

;RDD 17 MS T0 ELRPSED TIHE COUNTER

;BR %F 17 I;

TS7T

WATCH

SuB

817. ,WATCH

CLR

WATCH

BEQ
BPL
18:

;IS WATCH ALREARDY
.SLB RRCTY 17

RTI

BR IF NOT M

ZERC

MS FROM WATCH DOG COUNTER

Stsnfl WARTCH DOG COUNTER

;ROUTINE TO CALCULATE + 25% TIME TOLERANCE VRLUES

2788

013432

00S746

2792
2793

013446
013450

006216
006216

s;gz

013456

000205

TOLER:

2790 013440 013546
2791 9013442 Gl1666 000004
2794

CLOCK:

001254

g;g%
2789

RDD
CKCLK3: MOV
RTS

SEG 00%<e

;ROUTINE TO COUNT CLOCK TICKS

2778

2779

PRGE S2

CKCLK3
"N, SP

CKCLX2: R0D

000004

NO4

013434

013452

016616

062666

000002

TST

-(SP)

MOV
MOV

cer 1ME VALUE
;
?n'e VALUE

(%P)+,2(SP)

sE CULRT; UPPER LIMIT FOR TIMEOUT

S(SP)

ASR
ASR

(SP)
(SP)

RTS

5 R?Ofl ON THE STACK

(RS, =(SP)
(sP),4lsp)

MOV

(SP)

000 00 000 0000

Biv BE S
RGAIN (FOR A TOTAL OF 4)
TH TOLERANCES ON THE STACK

S;gg

$ 5 MORIEIE I I

I B

RN R R

R RN R RERRR AR

sggg

.SBTTL

'SYSMRC'

gggé

.SBTTL

SCOPE HANDLER ROUTINE

2803

; i!lII!Illliill!lllllllllillil!!llllllllllllllQl!iilillllll!l!l!

UTILITY ROUTINES

2804
2805
2806
2807
2808

irHIS ROUTINE CONTROLS TH£ LOCP OF SUBTE57S. IT WILL INCREMENT
!QNO LORD zE sg ETNH) INTO THE OISPL.AY REG. (DISPLAY(7:03)
lRNO LORD T
OR F RG 8 FLG) INTO D SPLAY15: 08>
lTHE SWITCH OP IONS P OVI
B8Y THIS ROUTINE RRE.
,isulwzx
&
§E

gg{é

;¥

2809
eglo
2813

2814
2815
£28i6

2817

818

2819
2820

esel
2822
2823
2824

B82S

; #SW11=1
; #CALL
013460

013460
0i34ke
013470

104407
032777
DO010SS

013472

000M1e

013474

013746

013500
013506
01312
013Si6
013520

012737
005737
012637
000436
022626

$SCOPE:

040000

165450

1S:

NHIBIT

SCOPE
CKSWR
BIT
BNE

ITERRTIONS

: ; SCOPE=ICT
88IT14, JSWR
SOVER

;; TEST
FOR CHANGE IN SOFT-SWR
,,LOOP ON PRESENT TEST?
;E IF SlWi4=]

S888USTRRT OF cooe FOR THE xOR tESTZRsusss

QATSTR B8R
000004

013520
177060
000004

MOV

000004
1 ¥

MOV
187
MOV
BR
CMP

,,%F RUNNING ON THE *“XORTM TESTER CHANGE

98ERRVEC,-(SP)

858 aoERkVEC
41770

(SPs+ aoERRVEC

sSvLAD

(SP)+, (SP)+

5 H62 *
;:SA

TRUCTéo TO A “NOP* (NOP=240)
CONTENTS OF THE ERROR VECTOR

;;SET FOR TIME
;TIME OUT _ON OR
,,RESTORE THE ERROR VECTOR
;3GO TO THE NEXT TEST

;;CLEAR THE STACK AFTER A TIME OUT

CZRMHBO RMO3/2 DU POR

(GC @2

el-NOvV-77

292?

012637
000436

000004

gs‘fgz

001103

eagé

8
2833
es3M

81
1
1
1

283 10l
2939 81

283

aegjag

2840
01l
28Nl 0l
2842
2843

01l
Ol

2845
2846
2847
gg:g

013632
013636
013640

2844 01l

1176

4 ¥

5238

ys:

LRB

5
£Q

001102
001 106

013716
000002
000004

001106

001104

BEEP

MOV
MOV

$SVLAD: INCB
MOV

013777 001102 165310 SOVER: MOV
SMXCNT:
.SBTTL

2850

PAGE S3

SEG 0053

RROR VECTOR

SENT TEST

H?S
mgémon
OCCURRED?

RFLG

ThES
#QITI1,3SWR
RSS

815935
gogox
001104 1S:
137
13640 001176

106237
011937

BOS

MOV
(
)0 S8ERRVEC . ,flEST
BR
23P
tg &
6S:; 88888END OF
FOR THE xo-R "$ ERu

7 8‘146% 165364 3%:
%ugu

4:15

SCOPE HANDLER ROUTI

001103

1-NOV-?77

—r
—~0

Sgg

1
1
1

13:34

8
5

Sgse

§§§§§§§¥%fi%‘%%m

CZRMB.P11

MRCYL1l 30(1046)

IT
TWONS ITERATIONS TO MAKE
FLAG

é&

0l xgm

;i *mn

MES,SICNT

gnk
NT,STIMES

PAOR

ITE

on
? gu

MEER

T Rmzogs MADE

5'5
i;m%xou
cDoumsn
I1TERRTIONS TO

..coum TEST %
i
;’
RDDRESS

s srl'm aoxspl.mr

MOV
SLPRDR, (SP
RT1
4
ERROR HANOLER ROUTINE

?‘ mnons

TEST NUMBER

s:F
nsrunn ADDRESS
.;r XES
PS
: 1 MAX. NUMBER OF ITERATIONS

unluuuuunuuunnu&uun"u"n"uunuuiuuu

2851

imxs Té

unfiINCRE

n: ERROR FLAG AND THE ERROR COUNT,

Sggg
gggg
2856

%oa’mmwN
THE RDDRESS OF THE ERROR CALL
suSsslmgu opnon§
&%2 BY THIS ROUTINE RRE:
»suza-x
IMIB?'T‘ Ennon TYPEOUTS

26858
2859

-anL
‘w

2857

#SW10=1

2861

013642

2863

013644

2862

SERROR:

013642

104407

2864
2865

81:!:
013%

1082
0017

001103

2867
2868
2869

813566
013674
013676

032777
001402
68333‘5

002000
001202

286b

2870
%;é

013702
8{3;?6

113737

001102

001242

0N1102

165254

clmgg;

001112
886616

001116

104401

001207

005777
100002

165166

0137

rd ¥

165244
18:

2873 813? 11
155192 001114
gty
i
2876 013736 004737 013774
2877
2878
2879
2880
2881

Sxme

013746
01374
013752
013764 4

00000C

208:
es:

BELL ON ERROR

ERROR
CKSWR

: ; ERROR=EMT AND N=zERROR ITEM NUMBER

MOVB

srsmn,rsrwn

MOV

$TSTNM, 3DISPLAY

NCB
EQ

; LG

;; TEST FOR CHANGE IN SOFT-SWR

m: ;Rnon FLAG
LEY THE FLAG GO TO Z2ERO

xsmv TEST NUMBER AND ERROR FLAG

BIT
BEQ
TYPE

881710, 3SWR
1
Bgu

MOVB
B
JSR

) SRPCsnene ;;STRIP AND SAVE THE ERROR ITEM CODE
gl
ST
idE
eI ST
PC, SERRTYP
1180 70 USER ERROR ROUTINE

TST
BPL

JSWR
3$

INC
"85

TYPE

HALT

$ER
(SP SERRPC
]

;;BELL ON ERROR?
iNO
- SKIP
$iRING
BELL

::COUNT THE
NUMBER OF ERRORS
::GET RDDRESS OF ERROR INSTRUCTION

, SCRLF

: sHALT ON ERROR
:iSKIP IF CONTINUE
: HAL T ON ERROR!

7S6

760

7
7
4
7 72

104407

27 e

Néfl:ls

COS

PAGE S4

CKSWR
013226

0000M2

SRE

68:

000002

SEQ 00SY4

;i TEST FOR CHANGE

gtENDRD,O.HE

,.gSgNél

IN SOFT-SWR

TO ACCEPT?

ALT
RT]

.SBTTL ERROR MESSAGE TYPEOUT nobfrne
: s

IiIlilllllll!l!lllll!llllllllllillllilllllllllllil’llllllllllll

é g8
n

013746

001116

104402

| ]

££

TYPE
MOV

$CRLF

ko -(SP)
T;SITEHB,RO
,
- (SP)
SERRPC

BEC

; O
0%

EROe
o £2 LENO
Tho R ERS

MOV

4s:

TYPS
. WORD

Ss:

MOV

6S:

1578

8s:
N
o

o
o
o

Ol4l4y

INOEX

..xr xrsn uunaen xs ZERO

HE ERROR

é"

JUST

SSRRPron TYPEOUT

P1Go TYP --ocrnL RSCII(ALL DIGITS)

EE$OINTER
"PICKUP§EERR£:6ncs“

SCRLF

{RO)+,us

cs
0

SCRLF

Rl -(SP)
(RO)+,RI
98

(RO)+,RO
(RO)+
4 3

es
3(R1)+,-(SP)
197

ITEM

fisnnva
RO
(RO)+, 28

d(R1)+,-(SP)

ré ¥

;;PICKUP THE

::351

RO
R
R

2s:
38:

,;“CRRRIQGE RETURNTM & “LINE FEED”

i SAVE RO

Ag®

e Pn fn

W
o

SERRTYP:

18:

Beo:

2 F TR i

88
o

001207
001114

104401
010C46

e s ot ot Pt et Pt Pt

LLELLLLLLLS5EK

0000000000000 00C00O0O00DODODO0O00D

[y [

00 o

ATAIS
RUTINE USgs, T DI TR INFORHGTION
FAn
T BaROk"
GOe OBTRINE,CONCERNING
: #AND REPORTS THE APPROPRIATE
THE ERROR TRALE-"ViERkre,

Dl
il ot o g et et et et et whwtetoswtapepatatodaetod [

OONTN LW—-O

[y WY

BBBBE
BB

n
DO

LA R

BRER BB
283

OO0

0_RMO3/2_DU POR
2l-NOv-7

(R1)
3

911:

THE INDEX SO THAT IT WILL

WORK FOR THE ERROR TRBLE

;FORM TRBLE POINTER

::?&E I

POXNTER GOES HERE
a§¥£

?KJ;?E‘. ek bR
HH

ngflgsa GOES HE
:.'DflRDEE“
8 "LINE FEED"

E&CKUP “DRATA TRABLE"” POINTER
IF NO DATA TO BE TYPED

,,PICKUP “DRTA FORHRT“ POINTER
CT?L“ “DECIMAL"”

0r TYPEOUT
Bi
::Sflv{ aTR

'160 TYPE--OCTAL ASCII(ALL DIGITS)

;:Zg }Fcfig RNS*

ééfidl H SIGN

"rvps TWO(2) SPACES
00P

c2nnueo RMO3-2 DU POR LGC 2
CZRMHB. P11
21-NOvV77 13:34
2938

2839
2940

2941
sg:g
2944
aqqg

(014132
oxwxgg

0141
81wxwa

012601
012600

104401
?

14144 Béosgo
014150

001207

000

DOS

MACY1l 30(1046)
21-NOV-?7
14:15 PAGE S5
ERROR MESSAGE TYPEOUT ROUTINE

9y
10$:

MOV
MOV

TYPE
nrg

118:

§CRLF
pC

.A8c1z2 7

.SBTTL

o947

(SP)+,R}
(5P)+'RO

.EgEN
TYPE
ROUTINE

*EROUTINE TO TYPE
a?c

aqsg

.nore

éeéw

2958

2956
2957

P
; #0R

2959

2962
2963
294
2965
2966

014150
014154
014156
014160
0l4162

2968
2963

014170
014172

2971

014176

012600

014204

000002

014212

0014

014220

001006

014226

001207

2972
2973

014164

014179

014200

2979

014206

2376

014214

2975

2977

2978
2979
2980

014222
014224

1057?37
100002
000000
000407
010046

017600
112046
00100S

001157

000002

005726

062716

000002

122716

000011

122716

000200

2985
2986
2987
2988
2389

(14246
014250

001350
013746

014254
014260

105366
002770

000001

014266

105337

014364

2991

2982

0i4262

0l4272

123726

004737
000770

001156

STPFLG
18

TYPE

TSTB
BPL
HALT
BR
MOV

3%
RO, -(SP)

::1S THERE A TERMINAL?
:'BR IF YES
:'HALT HERE IF NO TERMINAL
: LEAVE
:1SAVE RO

MOVB
BNE

(RO)+, - (SP)
4s

.,PUSH cunancrsn YO0 BE TYPED ONTO STACK
aa
$r 17 x§ THE TERMINATOR

18:

2s:
608 :

Ys:

MOV

TST

MOV

68
7%:

(S5P)+

(5P)+. RO

:GET RODDRESS OF RSCIZ STRING

snnxna OR POP IT OFF THE STRCK

»2, (SP)

.,no:usr nsrunn PC

CMPB

#HT, (SP)

,,ennncn IF (HD

8CRLF,
(L

: sBRANCH IF NOT (CRLF>

(SP)+

s :POP_
«CR> (LF> EQbIV
*:TYPE R CR AND
L

CLRB
BR
JSR

SCHARCNT
2$
PC.STYPEC

; ;CLEAR_CHARACTER COUNT
2:GET
NEXT CHARACTER
1:G0 TYPE THIS CHARARCTER

BNE
MOV

2%
SNULL , - (SP)

DECB
BLT

1(SP)
6$

:;IF_NO GO GET NEXT CHA
:'GET
® OF FILLER caans "NEEDED
! TAND rns NULL CHAR.
,.ooss NULL NEED 7O BE TYPED"
R IF no--co POP THE NULL OFF OF STACK

DECB

scfiancuv

D0 NOT counr as A COUNT

RTI

BEQ

BNE

SCRLF

c§:

s2lsP), R0

ADD
CNPB

001154

014320

; sMESADR IS FIRST RDDRESS OF AN ASCIZ STRING

STYPE:

0:436Y4
014320

INSTRUCTION

, MESADR

MESADR

15T
TYPE

014230
014234
01423

014242

105037
000755
004737

usxnc A TRAP

005726
109401

2981
2982
2963

2984

,,ruo<a> SPACES

SFILLC CONTARINS THE CHARACTER TO FILL RFTER.

,-an

2955

2970

,."cnnaxnce RETURN" 8 “LINE FEED”
: RE TURN

TERMINATE WITHR O evrs
.rn;OUTINE WILL
NU BER3;90:
NULLMUST
CHARACTERS
AFTER A LINE FEED.
onrnxns
HE CHARACTER TO BE USED RS THE FILLER CHARACTER.
: #NOT
LLS CONTRINS THE NUMBER OF FILLER CHRRACTERS REQUIRED.

2949
2950
2951

2967

. ;RE TORE R]
: 'RESTORE RO

Ill!!llliilllll!llllllllii!llllI!llllllllli!llllllllllll!llill!

2948

S%x

SEG 00SS

CMPB

JSR

sFiLLC, (SP)+

PC, STYPEC
78

URN

1:IS IT TIME FOR FILLER CHARS. ?

1:GO TYPE A N

: LO0P

cznnweo RMO3/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34

MACY11

30(1048)
21-NOV-7?7
TYPE ROUTINE

Sggg

299

2997
29398
2999
3001

3003
3004

:HORIZONTAL

014274

014320
000007

014320

105777

164624

014316

10037S
116677

014342

001003

014350

000406

3007

014344

3009
3010
3011

3012
38{3

000724

014324
014326

014334

000040

004737
132737
001372
005726

3005
3006

112719

014300
(014304
014312
014314

000002

122766

00001S

105037

014364

014352
014360

122766
001402

000012

014364

000000

014362

014366

8s:

014364

TAB

MOVB

JSR
BITB
BNE
TST
BR

STYPEC: TSTB
BPL
MOVB

164616

000002
000002

105227

CMPB

BNE

PAGE

SEQ 00Se

PROCESSOR

8’

. (SP)

; sREPLACE _TAB WITH SPACE

pc,$TYPEC
87, SCHARCNT
gg’
(SP)+

:TYPE A SPACE
,,annncnogr NOT AT
TAB ST
,,POP SPACE OFF srncx

9$TPS

:JWAIT UNTIL PRINTER IS READY

$TYPEC
2(SP). 3$TPB

:1GET NEXT

Lono CHAR TO BE TYPED

#CR, 2lSP)
18

CHARACTER

INTO DATA REG.

S CHARACTER A CARRIAGE RETURN?

RANCH

IF NO

2CHQRCNT

,,YES--CLERR CHARACTER COUNT

cHP8
BEQ

8LF,2(SP)
STYPEX

: TS CHARACTER A LINE FEED?
..ennwcu IF YES

: : CHARACTER COUNT STORAGE

INCB

$CHARCNT: .WORD

000207

EOS

CLRB
BR

1S:

14:15

PEX

(PC)+

IEXIT

:COUNT

STYPEX:

RTS

3812

.SBTTL

BINARY TO OCTAL

3017

s o BRSO3 30 000 200 O 00 U0 0 30006 36 00 0% 9 30 3% 30 30 30 30 08 3 36 0% 3 3008 38 36 0 30 30 38 3% 36 30 3 30 3% 3% 3 08 2 3 3 3 % % % % %

3018
3019
ggg?

H *

w
Py
e

3026

L a

3025

AND TYPE

BYTE

NUM, - (SP)

: ;NUMBER TO BE rvpeo
;i CALL FOR TYPEOUT
‘N=1 T0 b FOR NUMBER OF DIGITS TO TYPE

:iM=1 OR o

:1=TYPE LERDING ZEROS

®
X

3029
030

:D0=SUPPRESS LERDING ZEROS

]

,~srvpon----snrsa HERE
,§STYPOS OR $TYPOC

3031

; #CALL:

3032

3833

‘u

MOV

TYPON

TYPE OUT WITH THE

NUM, - (SP)

SAME PRRAMETERS RS

; s NUMBER TO BE
P1CALL

FOR

TYPED

TYPEOUT

H #*

3032

;ngzvtoc---euren HERE FOR TYPEOUT OF R 16 BIT NUMBER

;

3037
gggg

e
L%

014370
014374
014402

017549
116637
112637

014613

112737

000001

OI4613

STYPOC:

112737
010346
010446

000005

Of4612

STYPON:

0I4406
014412

062716
000406

000002

3046

014422

112727

000006

014414

014430
014436
014440

LL:

000000
000001
014615

3043
3044
3047
3048
3048

MOV
TYPOS
.BYTE

3855

3045

(RSCII)

itu S ROUTINE 1S USED TO CHANGE R 16-BIT BINRRY NUMBER TO R 6-DIGIT
:#0CTAL C(RSCII) NUMBER AND TYPE IT
'E Ipos-—-enrsa HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

3022
3023
3024

3040
3041
3042

THE CHARACTER

014615

STYPOS:

MOV
TYPOC

NUM, - (SP)

; sNUMBER TO BE TYPED
::CALL FOR TYPEOUT

MOV
MOVB
MOVB

3(SP), -(SP)
1(5P) | SOFILL
(SP)+ SOMODE+1

; ;PICKUP THE MODE
:;LORD ZERO FILL SWITCH
:;NUMBER OF DIGITS TO TYPE

RDD
BR

82, (SP)
STYPON

: RDJUST RETURN RDDRESS

MOVB

86, SOMODE+1

;,ser FOR SIX(b) DIGITS

MOVB
MOVB
MOV
MOV

81,S0FILL

85, SOCNT
R3.-(SP)
R4, -(SP)

;SET THE ZERO FILL suxrcu

:'SET THE
: 'SAVE R3
: 'SAVE RY

ITERATION COUNT

THE LAST

CZRMHB0 RMO3/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34

3050

014442

010546

3051

oxwwqq
81

00 48:

014615

3054
3085
3056

113704

Olww
014
Olv4eb

014474
014
014

00S003

014614
014613
000012

3068
3059
3060

014472

110437
613704
016605

006105
000404
00610S

3053

305

3067
306!
3062
3063

014502
014504
014506

0537

014510
014512
01451

3068
3069
070

014524
014526
014530

001002
005704
001403

3072
3073

014834
014540

(052703
082703

3071

3074
307
3076
3077

3078
3079
3080
3081
3082

0i4832

014544
014550
014554
014560

006103
106337
630015

005204

110337
104401
0S337
u03347

3083
3084

002402
005204
0007494
01260S
0126049

3086

014606

000002

3087
3088
3089
3090
3091

gggg

014604

014610
014611
D0l4612
014613
014614

MOV

MOVB

3%:

O0l46l4

012603
016666
012616

000
000
000
000
000000

ys:
5§

014610
014610
014612

6S:

000002

MOVB
MOVB
MOV

RH sonooe
SOFTILL,RY
12(59)'RS

AVE 1T FOR USE
,,GET THE ZERO FILL SW!TCH
--chx
THE INPUT NUMBER

ROL
BR
ROL

RS
$
S

.,RO nrs MSB INTO “C*
:GO DO _MSB
::FORM THIS DIGIT

R3
$OMODE
78

::GET LSB OF THIS DIGIT
;i TYPE_THIS DIGIT”
IF NO

BNE
757
BEQ

4§
RY
{3

:TEST FOR O
,,suppness THIS 07
:BR IF YES

BIS
B1S

#'0,R3
$'
R3

CLR

ROL
ROL
MOV

ROL
DECB
BPL

81C

000060
000040

INC

MOVB
TYPE
DECB
8GT

8L
INC
BR
MOV
MOV

MOV
MOV

000004

MOV

8s:
SOCNT:
SOFILL:
SOMODE:

: :SAVE RS

::GET THE NUMBER OF DIGITS TO TYPE

ROD
18:
28:

RS, - (SP)

SEG 0057

sohoos+1 RY

NEG

000006

2703 177770

014562
014564
014566
014570
014572
014574
014576

3085

MACY1l 30(1046)
21-NOV-??7 14:15 PRGE S7
BINARY TO OCTAL (ASCII) AND TYPE

006105
(06105
010503

3064
3065
3066

3067 014528

FOS

RTI

BYTE
‘BYTE
.BYTE
.BYTE
.WORD

‘CL

RS
RS
RS,R3

#177770,R3

RY4

R3, 8%
8¢
$0CNT
2%

UBTRACT IT FOR MAX. ALLOWED
THE OUTPUT WORD

.,czr RID OF JUNK

:'DON’'T SUPPRESS ANYMORE 0'S

P 'MAKE THIS DIGIT
ASCII
} iMAKE ASCII IF NOT ALREADY

SAVE FOR TYPING
.,co TYPE THIS DIGIT
:COUNT BY
JiBR IF nons T0 DO

6§
RY
2$
(SP)+,RS
(§P)+.RY
(SP)+.R3
2(SP) 415P)

,;RESTO £
{SET THE STARCK FOR RETURNING

O
C
O
O
O

'
'STORARGE FOR ASCII DIGIT
:'TERMINATOR FOR TYPE ROUTINE
::0CTAL DIGIT COUNTER
;;zeao FILL SWITCH
NUMBER OF DIGITS TO TYPE

(SP)+. (SP)

:'BR IF DONE
,,xnsune LAST DIGIT ISN'T A BLANK
G0 DO THE
LAST DIGIT
: 'RESTORE RS
;;RESTORE RY

s s RETURN

JSBTTL . GONVERT BINARY TO DECIMAL'AND TYPE ROUTINE

’llllllllll!lll!illil!lli!llI»Illll!lllllllllllllllllllll{iillil

3094

3095

&ruxs aourxne IS USED TO CHANGER 16-BIT BINRRY NUMBER TO R S-DIGIT

3096

:#SIGNED DECIMAL (RSCII) NUMBER nno TYPE IT. oepsuoxnc ON WHETHER THE

3088

'#BEFORE

3087

.Nungs

THE FIRST
DIGIT
lggttRCED WITH SPRCES.

3(1333
3101

gigg
3104

310

S POSIT*VS OR NSGRTIVE SPACE OR
A MINIS SIGN WILL BE TYPED

'a
Ol4ele

DI4ElE

010CHe

$TYPDS:

HOV

NUM, - (SP)

MOV

RO, -(SP)

TYPDS

OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;PUT _THE BINARY NUMBER ON THE STACK

,,co TO THE ROUTINE
: :PUSH RO ON STACK

CZRMHBO RMO3-/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34

MACYL1l

30(1046)
CONVERT

21-NOV-77
14:15
PAGE 58
BINARY TO DECIMAL AND TYPE ROUTINE

3106
3107
3108

014620
014622
0Ol

010146
ngaws
108346

MOV
MOV
MOV

3112
3113
3114
3115
3116

014640
Qjue42
Qlyewd
Q14652
014654

100004
00OS40S
7

0000SS

012703

015032

BPL
NEG
MOVB
CLR
MOV

10 9146 8133% ne0200
3111 8:4539 815&0& 000620

oV
MOV

000001

3i1a
Dldeeq
4853
000040
3119
0I4666
016001
015022

18:

3120
3121

160106
002402

3s:

gisg

014672
014674
81:953

883395

3124

014702

060105

4s§:

3126
3126

014704
014706

005702
001002

3129

(014714

106316

014716
014720

00000

052702

000040

014726

'3{32

8{:73&

3137
3138
3139
3140
gi:é

0147%
014750
014752
014754
8{:;28

002746
003002
010802
00076M
f857

3143

014762

116663

3133

014232

052702
110;58

ADD

177777

000060

6$:

313 oxqrué 020027 000010

3144
3145
3146
3147
3148
3149
3150

014772
014772
014779
014776
015000
015002
015004

105013
012605
012603
012602
01260
0126
104401

3153
315
3154
3155
3156
3157
3188

81
1
(015022
015024
015026
01030
015032

016815
006002
023420
001750
000144
0006012
0006004

3151

3123

31lEi

015010

016666

177777

177776

9s:

015032

000002

00000

$OBLK:

JSBTTL

R1,RS

s sRDD BACK THE CONSTANT

HiBR.TF Jeane LEADING D75

BCC
MOVB

68
1(SP)

B1S

8’

#'0,RS

-1(R3)

'R2

H
F NO
,,vss--§sr THE SIGN

HE BCD DIGIT ARSCII

IT A SPACE

IF NOT ALREADY A DIGIT

¢g¥e

§sb§§3)+

,,purTT¥§gREngfi¢?;En IN THE OUTPUT BUFFER

BLT
8GT
MOV
BR
;gls

2$
8$
RS,R2
68
é?P"

;G0 DO THE
MNEXT DIGIT
2:1G0 TO
EXIT
PiGET THE
LS
::GO
CHANGE
1O RSCII
;;ggsI;HEOLso THE FIRST NON-ZERO?

MOVB

-1(SP),-2(R3)

::YES--SET THE SIGN FOR TYPING

MOV

A(sPy,4(sP)

TTY

: 'FORM THIS BCD DIGIT
*:BR IF DOME
' INCRERSE THE BCD DIGIT BY

(SP)

RO, 810

(R3)
(SP)+,RS
(SP)+.R3
(§P)+ R2
(gp)+,nx
(&P)+ RO
$0BLK

MOV
RYI
10000.
1000.
100
10.
.BLKW

$OTBL:

AR
THE BCD NUMDER 10 R BLANK
:'GET
THE CONSTANT

RSLB

CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

$OTBL (RO),R1
R1,RS
3

*:BR
JF
INPUT IS POS.
DIMAKE
T
S NARY NUMBER POS.
DiMAKE
T
c % ugnsia NEG.
::2ERO
THE
C
ANTS
INDEX
:'SETUP THE OUTPUT POINTER

: SCHECK IF BCD DIGIT=0
S FRLL THROUGH IF O

CHP

gs:

18
RS
8-, 1(SP)
RO
$SOBLK, R3

1¥icER et e i1 TN AND SIGN
2;257
?L x~35¥ NUMBER

R2
{3

B1S

78:

R20200
'
, ~(sP)
25(29),Rs

:;PUSH Rl ON STACK
:1PUSH R2 ON STACK
: s
PUSH Rg ON grncx

1ST
BNE

103003
116663

3132

MOV
SUB
BLT

égc

3158 oiuzis 188748
3130
3131

Rl,-(SP)
R2.-(5P)
R3. -(5P)

SEG 00S8

(SP)+. (SP)

P:CHECK THE

;;251
::POP
:'POP
:'POP
:POP
!'POP
:INOW

TABLE INDEX

THE TERMINATOR
STACK INTO RS
STACK INTO R3
STACK INTO R2
STACK
INTO RI
STACK
INTO RO
TYPE THE NUMBER

*'ADJUST THE STACK
: sRETURN TO USER

INPUT ROUTINE

RS S R

I RN E R AR R B R

RPN AR SRR R R R PR R R RER RO R

R R ER R PR RRE

ZRMMBC RMO3/2 DU POR

LGC 2

SR
e 0372 O, DR 5% 3% 3y
3162

MACY11 30(1046)

21-NOV-??7

Q4 10TRAuTe AL NE
.ENRBL

LSB

3{53

0{5035

000000

s;ficugz

g{gg

015050

8?gggi

§¥§8§§6:

gx g 8x 46 888888

gigg

015052 .

s #TK

174

: #CALL:

§f;§

L w
ta

015052 00S037 015042

380 Oienes
918737 21209
Bi2dae
318?
81?892 8i37
81? 22 8638&8
3182
(0151
737
os
000062
3183
151
§7
7
ggu
gg
189
01831
12777
0100
164024
31

:TTY KEYBOARD QUEUE

255u73ur PéINgER

ROUTINE

JSR
RE TURN

167
MOV
RTS

WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

INTeRRUPT VECTOR AND TURN ON THE KEYBOARD

INTERRUPT

PC, STKINT

STKCNT

: ;CLERR COUNT OF ITEMS IN QUEUE

STKaIN
iiBOKG ’?§r§’?“"?fip8?°§ESSTSET’SSINTeps
osrxénv StRoout
asTKVEC EE?fl??iRLIZ
THE KEYBGARD VECTOR
’
go ostkvec+2

K
#100, a$TKS

;;”BR” Lsxgt Y

:ICLEAR
FLAG
'ENABLE TTY KEYBOARD INTERRUPT
::RETURN TO CALLER

RVI?? ROUT INE

ROUYINE WILL SERVICE THE TTY KEYBOARD INTERRUPT

;:?¥ ?sngagcaagsecunaacrsn FROM THE INPUT BUFFER AND PUTTING

015122
015140

gigg

015146

3199

015150

ggoa

.BLKB

ngv

*#THIS

11774

3132 Bizi3 BRIB&S
3200
3201
3202

;;Ngga RP8FN¥TEHS IN QUEUE

Ny
n8v

s #TK

gigg

3196

§TKINT: CLR

000207

3134

'5830

:#SETUP THE

015120

SEG 0059

xnarxn%xgs ROUTIN%

:#THIS

gigg

PRGE 59

JEVEN

3170

HOS

grxgéuf:'.uogo 8

3171

3175
3{22

14:15

0181EC
015186
015160

’

164020

$§TKSRvV: MoOvVB
.

022737

000176

001140

G@eze737
001004
104401

000001

015042

001500

8}2}6“

005755

15174

1021

777

812573 1833

CMP
2s:

001202

812193 gsxgs% 000023

3$:

163734

318§:

8125%3 8355%9 600 2l
015226

001366

865655

000100

0i6240

005237

015042

8%2?32

i ARAP 1EONG
.

BEQ

116 SOFT-SWR SELECTED"

CMP
BNE
TYPE

81, STKCNT
3$
$BELL

;IS
THE ?usue FULL?
:'BRANCH
IF NO
DIRING THE TTY BELL

(gp),naa

5563 IT A CONTROL-S”

ggr

égp)+

BNE

328

1578

CMP

TKS

:1G0 TO SWR CHANGE

;;E§§¢N CHARACTER OFF OF STACK

:'BRANCH IF NO

SWAIT FOR

[}

BNE

318

PBRANCH

INC

§TKCNT

: :COUNT THIS CHARACTER

S?Y

328

: sPICKUP THE CHARACTER

$SWREG, SWR

163706

9$TKB, - (SP)

(sP)+, k2l

8100, I8 TKS

CHAR

$ 000 ER810 1Y8% nere

1118 iT A CONtrROL=G®
IF NO

;;gggngsLs TTY KEYBOARD INTERRUPTS

)

RRRRIRIR IR rufu
RRRRRRRRINRR
BRR
g DONONLWN—O
fLrrLsL£s s & WWww
[Volo
o ia¥leg P &
Ry [¥elss

KR 2*

0 RMO3-2 DU POR LGC 2
P11
21-NOV-77 13:34

015244
015250
015262
016256
015260

021627
002405
(©2le2?
003002
0427

015274
015302
015304
015312

023727
00100
012737
000002

018264
018270

1126
005237

MACY11l 30(1046)
21-NOV-?7
TTY INPUT ROUTINE

000140
000175

000040

177554
015044

4s:

015044

015051

015050

015044

S§:

14:15

I0S

PRGE 60

SEG 0060

CMP
BLT
cHP
8GT
BIC

(SP), 8140
4
(SP), 8175
4s
oug (SP)

CMP
BNE
MOV
RTI

STKQIN, #¥STKGEND ; ;GO OFF THE END?
Ss
;;ggnncu IF NO
8STKQSRT,STKQIN ;:RESET THE POINTER
: ' RETURN

MOVB
INC

(SPY+ ASTKQIN
STKQIN

::1S 1T UPPER CRSE”?
:
BRANCH IF YES
1'1S IT A SPECIAL CHAR?
: BRANCH IF YES
PIMAKE IT ¥PP;R CASE

;:AND PUT IT IN QUEUE
;;UPDRTE THE POINTER

;-Illlliillllllllilillllll!llllllil{lill!lli!lllllllllllilllil!(i

:kSOF TWARE SW]ITCH REGISTER CHANGE ROUTINE.
:#ROUTINE

:#SERVICE
D15314

022737

015322
015324
015330
015332

00!10M
105777
100101
1177496

0158346

001300

015336
018392

042716
02ie2?

000176

001140

: #CALL

1S ENTERED

163610

177600
000007

AND WILL

WHEN OPERARTING IN TTY INTERRUPT MODE.

$CKSHR: CMP

163614

FROM THE TRAP HANDLER,

THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
#SWREG, SWR

BNE
TST8
8PL
MOVB

15%
98TKS
158
d$TKB, - (SP)

BNE

BIC
CHP

#1C17%. (SP)
(SP), 87

. 1S THE SOFT-SWR SELECTED

DIEXIT IF NOTY
: IS A CHAR WAITING?
: 1F NoT, EXIT
:YES

SIMARKE 1T 7-BIT RSCII
:11S IT A CONTROL-G?
:TIF NOT, PUT IT IN THE TTY GUEUE
; s AND extr

;-Ilili!lllllllIlllllllll!llllllllillllllllllllllllllilliil!illi!

:4CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
RS A RESULT OF A

:#ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL,

015350

123727

001134

004737

015052

112737

00000f

015400

104401

016156

0158410

013746

000176

015356
015360

001674
005726

015366

005077

016362

018372

015404

015414
018416
015422

015424
015426

015432

015434

104401

1049402
104401
005046

163552

' «CONTROL-C BEING TYPED.

6&S:

SAUTOB, b1

JSR

PC, STKINT

: 'BRANCH IF YES
:'CLERR CONTROL-G OFF STACK
SFLUSH THE TTY INPUT QUEUE

MOVB

81,8INTAG

:'S6ET INTERRUPT MODE INDICATOR

BEQ
TST

CLR

001135

018440

042716

117746

163506

015444
0l1e450
OlE4ce

021627
00100S
104401

00002

177600

Olbl1S!e

TTY KEYBOARD INTERRUPTS

MOV

SWREG, - (SP)

;;snv; SWREG FOR TYPEOUT

SMSIWR

:'TYPE CURRENT CONTENTS

, SMNEW
2(sP)

1160 TYPE--OCTAL ASCII(ALL DIGITS)
: PROMPT FOR NEW SWR
: CLEAR COUNTER

::IF NOT TRY AGRIN

CLR
15718

-(5pP)
9$TKS

MOVB

J$TKB, -(SP)

;:PICK UP CHAR

CMP
BNE
TYPE

(SP,, 425
108
, SCNTLU

;IS IT A CONTROL-U?
; ;BRANCH IF NOT
;s YES, ECHO CONTROL-U ttU)

BPL

BIC
9s:

::DISARBLE

: ;ECHO THE CONTROL-G (1G)

TYPOC
TYPE
CLR

78:

ostks

;;RRE WE RUNNING IN RUTO-MODE?

,SCNTLG

016174

163512

2s
(SP)+

TYPE

$GTSWR: TYPE
19%:

AND THE SOF TWARE SWITCH REGISTER BEING SELECTEC.

CMPB

016163

005046
105777

10037%

000001

81C177, (SP)

2 THE NEW SWR
: 'CHAR THERE”?

P'MAKE IT ?-BIT ASCII

CZRMHBO RMO3/2 DU POR LGC 2

CZRMHB. P11
21-NOV-77 13:34
3274 015456 062706 000006
gg;s 0i1S462 000757
3277

015464
015420
015472

021627
001022
00S766

000004

3282
3283

015500
015506

016677
062706

000002
000006

015476

001403

000001

163410

gggg

8{2253

865565

000100

3289

015836

004737

014320

3291
3232
3293
3294

015546
015550
015554
015556

002420
021627
003015
042726

3290

3295

015842

8i§sse

021627

38?333

3297 015570
006316
015572 006316

3298
3299
3300

015574
015576

3302
3303

015606
015610

3301

gggg

163432

001207
001135

gggg

006316

015602

0S6616

015614

000720

000707
104401

000060

E?¥

#8100, a$TKS

EEsE;SgflaLe TTY KBD INTERRUPTS

168:

JSR

PC,STYPEC

: JECHO CHAR

BLT
CHP
8GT
BIC

18%
(SP), %67
18%
860, (SP)+

: 'BRANCH IF YES
SICHAR > 27
: 'BRANCH IF YES
: :STRIP-OFF RSCII

CHP

118

:'BRANCH IF

YES

¥¢RLF
fngQG.Ol

<CR> AND <LF>
S ECHO
;;ggaflgfls%g gg; KBD INTERRUPTS?

:1SAVE NEW SWR
: :CLEAR UP STACK

(SP), 860

JiCHAR ¢ 07

ggg

§;§#>

000002

178:

ASL
ASL
INC

(5P)
2(5P)

i
ROOM FOR NEW ONE.
: 'KEEP COUNT OF CHAR

18$:

BR
TYPE

7$
$QUES

PiGET THE NEXT ONE
2ITYPE ?(CR> (LF>

ASL

177776

001206

DSABL

'u
sx
‘a

8IS

Ega

;;ég Tuas }“5521957 CHAR

(SP)
(5P)

:INO,
suxéf PRESENT
i1
'CHAR gv R 70 MAKE

-2(SP), (SP)

:iSET

20s

N _NEW CHAR

: 'SIMULATE CONTROL-U
AR RN R RERR R

R ERRE RN

=§gg{f ROUTINE WILL INPUT R SINGLE CHRRACTER FROM THE 7TY

015616

015620

011646

016666

000004

000002

3350
Bi2kdg 838505 °O1sEve
3322 015642
3323

015642

00S737

015042

3325

015650

005337

015042

01Se74

001003

01S646

015654
015662
015666

001775

117766
005237
023727

RDCHR
RETURN HERE

3319 012858 DBocoae o000

3329

TYPE
gnza

168

000002

3311
3312
ggia

326
3327
3328

315 IT A <CR>?
: 'BRANCH IF NO
:IYES, IS ;T THE FIRST CHAR?

(SP), 815

118:

148:

3324

;s IGNORE PREVIOUS INPUT
:LET’S TRY IT AGRIN

2(SP), 3SR
86, SP

3308

3317

SEQ 0061

MOV
RDD

000060

gg?g

3316

PAGE b1

4(SP)

BEQ

000067

3306
3307

3315

14:15

CMP
BNE
TST

108:

104401
68?553

015512
giggés

21-NOV-?7

TTY INPUT ROUTINE
208:
ADD
86, SP
BR
19¢

000015

3578
3279
3°80

3281

MACY1l 30(1046)

JOS

177166
015046
01804

SROCHR: MOV

6Y4S:
1s:

000004
015051

(SP), -(SP)

: sPUSH DOWN THE PC AND

23R

BT RELCPS
OR STACK FCTER

MOV

4(sP) . 2(spP)

ENS.m5R

::GET A CHARACTER FROM THE QUEUE
: :CHARACTER IS ON THE STACK
S WITH PRRITY BIT STRIPPED OFF

P1THE

iEUT
NEW BC QN BIACK
"

157

STKCNT

;s WRIT ON A CHARACTER

DEC

S§TKCNT

: s DECREMENT THE COUNTER

BNE

; tBRANCH IF NO

BEG

MOVB
INC
CMP

JSTKQOUT,4(SP)
::GET ONE CHARACTER
$TKQOUT
: {UPDRTE THE POINTER
STKQOUT, sSTKGEND ' ; :DID IT GO OFF OF THE END?

cznnuao RH03/2 DU POR LGC 2
CZRMMB. P11
21-NOV-77 13:34

3330

015676

012737

3331 015704 000002

3332

015050

MACY11 30(1046)
21-NOV-77
TTY INPUT ROUTINE

015046

ggga

3335

3336
gggg

3339

334G
3341
3392
3343
3394
3345
3346
3347

015706

015710
015712
015716
015722
015724
015726
015730
015739

010346

00S046
012703
022703
101456
104410
112613
122713
001022

2s:

MOV

sw
e

RETURN HERE

SROLIN: MOV
016142

3353
3354
3355

015784

015760
015762
015766

18:

016151

000177

108:

363

177277

020327
103434

016142

3359

016002

33c1

016006

3363

016820

3360

33z2

gggg

016004

016014

g}soaa

1]2737
104401

00S016

12;713

000134

016140

BNE

MOV

S§:

016140

: 'ADDRESS OF FIRST cunnncrsa WILL BE ON THE STACK
: ' TERMINATOR WILL BE
A BYTE OF ALL 0'S

R3,-(SP)

-(5P)
#STTYIN, R3
sSTTYINYZ R3

(SP)+,

(R3)

8127, R3)

1'BR IF NO

b-1,(sP)

: ;SET THE RUBOUT KEY

68
s'\,98
qs

R3
R3, #STTYIN
4§

B8R

BEQ

TST

MOV

TYP

CLR

gd
(5P)

ggpa
BNE
CLRB

822,
H R3 (R3)
3$
(R3)

TYPE

"§TTYIN

3373

016056

000717

016064

00071;

016072

104401

3374

3375

016060

3376

016066

3378

016076

3377

3379
3380
3381

016102
016104
016110

104401

001207

TYPE

Olelde

(04401

001206

us:

111337

016140

3s:

122723

00001S

001305
10S063
104401

3285
Bleile B73¢ss
3384 016120 011696

016140

016122

016666

MOVB
TYPE

BNE
CLRB
TYPE

177777
001210

000004

TYPE

CMPB

338

000002

e
MOV
MOV

:BR IF NO

§CNTLU

8s:

016052

,,RUBOUT KEY SET?

; ;CLEAR THE RUBOUT KEY

9¢

3325
SiESSZ
aégfg 000022
3369
016042
601011
3370 016044
105013
0le04

{1 SETUP TO TYPEOUT THE DELETED CHAR.

11GO READ ANOTHER CHAR.

tspy

ggs,(na)

3372

: 'BACKUP BY ONE
;i STACK EMPTY?
:BR IF YES

:'TYPE A BRCK SLASH

czza

3371

1142 JRIRgA BRCKe FIRST
"TYPE
SLASH RUBOLT?

£'\, 98

?vps

VER ?

,.CLE
HE RUBOUT KEY
‘GET
,,eurren FULL’
iBR IF YES
;G0 _READ onc cwnaacren FROM THE TTY
:1GET CHARARC
1215 IT n nuaour

000025

3366 oxébgé 104401 016151

SEG 0082

#STKQSRT, $TKQOUT ; RESET THE POINTER

DEC
CMP
8LO

ToFE

00S716

001406

CLR
MOV
CMP
BLOS
ROCHR
MOVB
CMPB

BE
MOVB
TYPE
6S:

325 016000
Didzye 000746
ihaad; Bietdd

3358

PAGE &2

'RET
; iunnuuuuuuu""nl"“"nu""u"unulnuuuu
igg{s ROUTINE WILL INPUTA STRING FROM THE TTY
. s INPUTA STRING FROM THE TTY
ROL
'

3399
D2z
205043
3350
015742
112737
000134
016140
3351
015750
104401
016140
3352

RTI

14:15

KOS

, SCRLF
s

$QUES

,,Ig cpnnncrsn CTRL U?

$0NTROL ey

cagsn
TER A
,,539~cu
,,CLERR THE CHflRQCTER

“tR"?

“CR* &

"LF”

,,rvpg ruc INPUT STRING

.,co xcxup ANOTHER CHACTER

,,CLERR rue eurrsn AND LOOP

(R3),98

{'ECHO THE CHARACTER

kiS, (R3)+

: ;CHECK FOR RETURN

s
o
(5P), L(5P)

i,,noJusr
CLEAN RUBOUT
KEY FROM THE STACK
THE STACK AND PUT RDDRESS OF THE

2s
-1(R3)
$LF
I+,

4(SP},2(sP)

::1L00P IF NOT RETURN
: JCLERR RETURN (THE 15)
:PTYPE
R LINE FEED

FIRST ASCII CHARACTER ON IT

C‘RHHBO RM03-/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34

3386
3387

016130
016136

012766
000002

3383
3390
3391

Q0lblMl
0l6142
0161S!

000
000007
136

3394
3
33
3397

016170
016174
016202

036440
02
020075
016206

3388

3392
2393

016140

016156
016163

gggg

016142

MACY1l 30(1046)
21-NOV-77
TTY INPUT ROUTINE

00000M

000

043536
015

006525
00S01S
0S1412
000040
042616
000

060012
000
051127
020127

PAGE 63

#STTYIN,4(SP)

.BYTE

SEG 0062

s RETURN

.,sronnce FOR ARSCII CHRR. TO TYPE

gTTYIN:
S$CNTLU:

.BYTE
BLKB
.RSCIZ

.ASCIZ
.RSCIZ

SMNEW:

.ASCIZ

SCNTLG:
SMSWR:

.EVEN

Y:2z2z2zzxyYzzzI2zzzIERIX2XIXZITIXZIZI XIS 2Z2222X2X2222222222 02 2

1Ytz

NEW = /

RERD AN OCTAL NUMBER FROM THE TTY

.SBTTL

3400

L0S

MOV

RTI

qs:

14:15

3401
3402

irnxs ROUTINE uxLL Rsno AN OCTAL (ASCII) NUMBER FROM THE TTY AND
-cunncs 11

3405
3386

lFOLLOHED BY A cnaaxnc
E TURN- #é $
THE COHPLETE NUMBER MUST
"ngf BE RETYPED. THE INPUT 1S
TERMINATED BY TYPING A CARRIAGE RETURN.

3408

‘e

33%?

‘a

3403

3404

aL oxcx

; &

3409
312

3413
3414

Cl6206

016210
0ie216

011646

Olbbbs
010046

3415
3416
3417
18

016220
016232
016224
016226

010146
010246
104411
012600

016234

005001

3419

016230

3421

016236

3424

01b24M

3422
3423
342s

016240
0le242
016250

426

016252

3430
3431

016264
016266

010037

112046
001420

016272

2s:

00006C

122716

000067

006301

016302

000756

3437

016304

005726

3439

016312

010237

3438

3440
3441

016306

016316
016320

81015&

012602
0i2e0]

000012
016344

38:

(SP)+,R0

CLR

MOVB
BEG

(RO)+,-(SP)
3s

8’0, (SP)

BGT

4§

Bl
ROL

R
R2

ASL

S?E
RDD
BR

TST

8’7, (SP)

R1
R2

il
MBER
:1PUSH RO ON STACK

;1AND
SAVE IT

; ;CLERR oarn WORD
,,PICKUP THIS cuanncrsa
2 1F 2ERO GET OUT

:'MAKE SURE THIS CHARACTER
:11S AN OCTAL DIGIT

.2
;s 44

; ;8

STRIP THE ASCII JUNK
::noo IN THIS DIGIT

(SP)+

.,CLERN rsanxnnvon FROM STACK

R1,12(SP)

MOV

(SPy+,R2

MOV

N TOP OF THE STACK

S nne IN SHIOCT

§§cr (SP)
(sP)$,R1

MOV
MOV

,,LOH
oggsg aé

;s
Rl ON
STACK
:iPUSH R2 ON STACK
i
;RERD AN ASCIZ
LINE
:GET noonsss OF 1ST CHARACTER

RO, SS

ASL
ROL

; ;RERD AN ocra#

RI.-(SP)
R2.-(SP)

MOV
CLR

=2% WILL BE TYPED

,,Pnov¥oc SPRCE FOR THE

4(sP} . 2(sP)
RO, - (5P)

MOV
MOV
ROL IN
MOV

E 5

(SP),-(SP)

MOV
MOV

CMPB

3333 oise;“ 006%?2 177770
3435 812300 825501
3436

RETURN HERE

CHMPB

882301
102

RDOCT

SROOCT: MOV

016334

[22716

0063026

000002

18:

005002

158 01668 boasal
329 012522 882103
3432

000004

Tszs
WILL BE HSSnc§° T0 xnsunso THEY ARE LEGAL

R2' SHIOCY

(SP)+ . RI

LOOP

:'SAVE THE RESULT

. :POP STACK INTG R2
::POP STRCK INTO RI

CSRMHBO RMO3/2 DU POR LGC 2
CZRMHB.P11
21-NOV-77 13:34

3442
3443
¥44

016322
016324
016326

012600
000002
?

TS
T
3447 016334 000000
815333

3450

016344

3449

33?5

Q16342

104401

000730

MOV
RYI
31

ys:

3448

MOS

MACY1l 30(1046)
21-NOV-7?
14:15 PAGE b4
READ AN OCTAL NUMBER FROM THE TTY

001206

000000

(SP)+,R0
(SP)+

kg
(R
.WORD
O

5§:

TYPE

SHIOCT:

.WORD

.SBTTL

HEH

gaues

--H}GH ORDER BITS GO MERE

SAVE AND RESTORE RO-RS ROUTINES

3459

SETOP---(+16)

3461

;& +4---RS

'Rén

s #+10---Re

3466
67
g:eg

:a+14---RO
8‘23”2

§}§§§2 §i§§:§

;#el2---R]

16346
o{saso

SSAVREG:

010046
oioxwg

016360

010546

164

nog

Ry
n?v

6808

3431

3482

RYI

3»99

016:18

3333 8124

R’ -(3P)
y <

ngl-é§91( e)

BEhnid
SS(ép),-(ép)
-

(SP),

; ;PUSH RO ON STACK
: 1 PUSH sé ON s;gcz

tipUBH RY
]

TACK

;;5533 §5 §g gznngL y

Bk
RE G8? nalh
;;éavE Pé
¢ALL A
.o

s #CRLL:

012666 000022
012666

§5£snec RESREG

"MOV

000022

:ox

3:88 gi Héo 815~ 4 888855
oxs:eq

n8v

012605

:ox

2337 Bigas Biskes
3432 0164
012602
3443
8154
8136
3494
Bl6u
106
3495
34%

RO, - (SP)
sg,-:spg

: $RESTORE RO-RS

3483

34e9

MOV
nox

s
72 81237 R
8688“5 000022
3q§o

i & +b---RY
;% +8---R3

3465

3474

2SS 222222222 223

TURN FROM SSAVREG THE STACK WILL LOOK LIKE:

3464

6
g:;o

zzzzzzzzsz Iz

iR e2---(+18)

3462
3463

01e440

000002

MOV
MOV
MOV
MOV
.SBTTL

:; TRY RGAIN

3456

3460

327" “CR” & "LF”

HH Y Y 11 2X223 222Xz
;:upo«

: ;POP STRCK INTO RO
: ' RETURN
5 E AN PART nz FROM STACK

ST
Teandaron”
Y

3453
g:gg

SEG 006Y

(SP)+,22(SP)

Esp;+,aagsp;

(§E)+:§§(§F)
+

:sp;¢,2§

(gg)o:na
‘ép"'fié
(8P)+'R
+

(SP)+.R2

RTI
TRAP DECODER

: ;RESTORE PC OF CALL

: ;RESTORE PS OF CQLh

;;BE?*SQE ;g 8: flgfu thu

;;gop s;nc§ In;o 23

EEng 2TAk INT8 R3
rggx NTO R2
::POP
5TACK
INTO Rl
: POP
STRCK INTO RO
'R

: 1 POP

CZRMHBO RMO3/2 DU POR LGC 2
CZRMHB P11
21-NOV-77 13:34

MACY1l

3498

HH RERERABRER B

3499

3500

: #AND ,E’é‘ é’

gggg

016942

010046

3506

016450

005?40

3508
3509
gg}?

06444

016462
016464
016456
016462

016600

000002

PAGE &5

SEQ 0065

ERAERR RN R ERERRRRRREERRERBUREDPRERRREERNNEREEE
RSN

006300
016000
000200

351S

0leded

(011646

3§f5

016474

000002

0le6466

016666

0 INDEX THROUGH THE TRAP TABLE FOR THE STARTING RDDRESS

DESI

STRAP:

MOV

RO, -(SP)

; ;SAVE RO

157

-(RO)

;;eacxgp BY 2

111000

ED ROUTINE.
ROUTINE.

MOV

MOvVe

RSL
MOV
RTS

016476

312
ggia

3516

NOS

:#0F THE

:#GO TO THAY

3504

3507

14:1S

JhTHIS ROUTIN$ WILL PICKUP THE LOWER BYTE OF THE “TRAPTM INSTRUCTION

3501

3505

30(1046)
21-NOV-?7
TRAP DECODER

000004

©O00002

THEN USING THE ADORESS OBTAINED IT WILL

2(5P) RO

(RO),RO

RO
$TRPAD(RO),RO
RO

P:GET TRAP ADDRESS

::GET

RIGHT BYTE OF TRAP

:1POSITION FOR INDEXING
:;INDEX TO TABLE
:1GO
TO ROUTINE

:;THIS

IS USE TO HANDLE THE "GETPRITM MACRO

STRAP2:

MOV

MOV
RTI

(SP),-(SP)

4(sP},2(sP)

; ;MOVE THE °C OOWN

:'MOVE THE PSW DOWN
{IRESTORE THE PSW

ggég

.SBTTL

3521

s #THIS TABLE CONTRINS THE STARTING ARDDRESSES OF THE ROUTINES CALLED

3524
3525

;
:

ggsg

3526

:#BY

3527
3528
3529
3530
§§§é

016500
016502
016504
016506
616510

016476

016464

ggga

016512

363
3536
3537
3538
35
323?

016514
016516
016520
0l6522
016524
016526

TRAP TRBLE

THE “TRRPTM

$TRPAD:

ROUTINE
eccemaa

INSTRUCTION.

.WORD

STRAP2

;;CALL=TYPE
;;CALL=TYPOC
::CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPOS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+S(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS®
TYPE OCTAL NUMBER (NO LEAGING ZEROS
TYPE OCTAL NUMBER (RS PER LAST CARLL)
TYPE DECIMAL NUMBER (WITH SIGN)

015404

$GTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

015314
015616
015706
016206
016346
016404

$CKSWR
SROCHR
SROLIN
$RDOCT
$SAVREG
SRESREG

; ; CALL=CKSWR
; ; CALL=RDCHR
;;CALL=ROLIN
;;CALL=RDOCT
;;CALL=SAVREG
::CRLL=RESREG

TRAP+7(104407)
TEST FOR CHANGE IN SOFT-SWR
TRAP+10(104410) TYY TYPEIN CHARACTER ROUTINE
rnnp¢xx<1oquxé) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) RERD AN OCTAL NUMBER FROM TTY
THAP+13(104413) SAVE RO-RS ROUTINE
TRAP+14(104414) RESTORE RO-RS ROUTINE

014150
014414
014370
014430
014616

$TYPE
$TYPOC
$§TYPOS
STYPON
§TYPDS

gg:g

K 8% 3 0 3 38 3 3 3 0 36 3 38 36 3 36 3 3% 36 3 3 36 36 3 6 A 46 3 36 9 3 % 3 9 96 3 3 U 3 2% B 5 9 W 3 % 3 6% W% 3% W ¥ % W %% W% WB

gg:g

.SBTTL

g‘g:g

HH 630636308300 360 30 36 3 36 0 95 06 3 3 36 36 38 38 36 9636 98 3 3 3 3% 3 36 4 28 36 36 3 36 3 3 3 3 3 3 25 38 38 3 9 3 3 3 % % 3 % % % % % ¥ %

348
3549

3550

3551
3552
3553

(016530
016536
016544
0165
016560
O0leSeb

00SOIS
044115
046522
030116
046101

0S1i24

041412
030102
oglwso
020062
041440
O46117

051132
005015
051057
052504
047117
04251

TITLE:

TELETYPE MESSRGES

.ARSCII

(CR> (LF><LF>/CZRMHBO/
(CR> (LF>

.ASCIZ

@RMO3/RMO2 DUAL CONTROLLER LOGIC TEST - PART 23<CR><LF><LF>

3608

3609

s Pt et Pt (o Pt Pt

&;9

4?0;

(1046)

ELETYPE

gégNOV-77

SAGES

14:15

PRGE 66

SEQ 006k

goh e

g:filfll ADRERR: .RSCIZ /INVALID RDDRESS/<CR><(LF>
RN

8§

055167 PORTRIS: .RSCIZ <CR><LF>/PORT R ADDRESS IS: /

TESTNO:

.RSCIZ

<«LF>/ENTER TEST #:

BRDNO:

.RSCIZ

/INVALID TEST NUMBER/(CR><(LF>

7056

;E?L

7 gb

g ADDRIS: .RSCIZ <(CRY><LF><LF>/THE PRESENT ADDRESS OF THE RH11 (RMCS1) 1S: -/

102
040

7126
7134

461

?lgs

8216“03

7164

042101

7156

7
752

s Pant Pt P

(ot s

G7
eis RO ghul
g7§ 05131§
i“)g PORTBIS: .ASCIZ <CR><LF>/PORT B RDDRESS IS: ~/
s =
|
1 3% NOCLOCK: .RSCIZ <CR><LF>/SYSTEM MUST HAVE 'L’ OR 'P’ CLOCK/<CR><LF>‘LF>
! lé
g%
e
!
2
;

ot Pt Pt Pt Pt Pret ot Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt B Pt Prucs

LR
R

5
7
33575

gggq
19N
0Ed pm
g

NTRH1l:

.ASCIZ

<«LF>/ENTER NEW RH1l RADDRESS: -/

035123

STANDBY: .RSCII <«CR><LF><LF>/PRESS 'STANDBY' ON DRIVE~/
S
S0S psooiz1 guzse:

7216

0‘4?106

0‘0610‘0

023531

7242

DS1107

046501

0S3440

e et Pt Bt D

s Pt st P Pt et P

Bl fEY P

3564
B7

MACY11

1 gfi 13 ENTERAR: .RSCIZ <CR>(LF>/ENTER DRIVE RDORESS: /

st o

3§;§g %

2fl.l

g
&8

o
n

st P |, = P

0000000000 00000000000000000000O00000000000000000000000C

355;

.Pll

806

0720 IS0 G261 SV
723S
015 050012 047522

LRSCIZ

<CRYLF>/PROGRAM WILL LOOP WRITING FOR *MOL' TO SET FROM PORT

60-‘7306(O@-[N4x>Wo=4->"o-4[9(w143S4)'JVo[[[Sb+0+“1“[]~QaQ&->W—4A9|N2opN\V[78]+127=(WQ(n(1aw-z-p[4A[-78-)T=J)eN4'~dn]r2]4 [[21XNN 3¢d- -~WW| w--m44X<~&=94T—[[)[8~~-]2]s+++7“.“30[a-4v~XT&w--- w|WQ| ~-449qp41[N[-7Pn-a[o]e++*0“.80?(|-~((¢OQ 4mmI&-W wL-W<4[>wv 7«o=3-2o=N7-)n4p]}])«

SI.P.IP.OE"H212”>xl.1.1u.lm]Mllmu‘%mHq..xqma
X XN oP 9~3-Xo44o=--—.b[ [WS4Ev=N[v]+ [5Q~ o->-N.\ 5Wo--~e.} 4]QWo=<( Tx-N[-.oy

nNON

3661

732

724

046447

0201

MACYll

Em;

11q“.5“1.015

3?ELEYYPE HéSSQGES

(1046)
21-NOV-=77
14:15

CO6
PRGE 67

SEC 00&7

751§

|
d

[++]

L7 W ~—

MACYL1l

CZRMHBO RMO3-2 DU POR LGC 2
21-NOv-77 13:34
CZRMHB .P11
3666
3667
3668
3669

017740
017746

047524
000

0S1440

D06

PAGE &8

SEG 0Ce8

s RRRERRRRRRERREERRRERERRRERRRRRRRRRRRRRRRRRRRERRLRRRRRRRR
SRR R

.SBTTL

EEEERREG
SJAdIR

.RSCIZ

/WRONG DRIVE TYPE~/

EM3:

.ASCIZ

SCONTROLLER SELECT SWITCH ON DRIVE NOT IN 'R/B°d

EMY:

.RSCIZ

/DRIVE

EMS:

.RSCIZ

/SERIAL

020174
020202
020210
020216

044103
020124
0441324
042515

020221
0e0e
020234
020242
020250
020256
020264
020272

124
pseles
047040
(041503
020104
Q47111
0O4150S
000

EMb:

.ASCIZ

/TIMEOUT HAS NOT

020273
020300

124
0s21es

EM7:

.ASCIZ

/TIMEOUT

L AN

NOT

NON-EXISTENT

SATLR2L S22 222222222222

(’NED’

BIT

SET)/

LINE~/

NUMBER READ

THROUGH ERACH PORT NOT

THE

020104

EM2:

BIRIEE
YRRrofo
043S2S

020160

NOON
-

020166

IR IYIR IS AITAIT

/DRIVE

)]

123
020114
0S110S

n—un

020137
020l44
00152

104
Q47040
020116
000

YRR

.RSC1Z

020115
020122
020130
020136

EML:

BEAReR
googy %

0S3111l
020124
027501

Q47440

N—L—E

0066

020074
020102
020110

ZO2RRZ

020060

TEST ERROR MESSAGES

] g VI V)

SRSEROERORS
—

QYURRRRERERER
8\1\1‘48\1 o
SRRZCR o883 RRES028
WWWWw

14:15

0s2105

3670

WWWWWWWWWW
NN NN NNINNNN
U
s e e s e s e e
- OO NOCTNIWN

30(1046)
21-NOov-77
TELETYPE MESSRGES

ONE-SHOT

OCCURRED WITHIN 2 SECONDS/

IS LESS

THAN SO0 MS~

SAME/

CZRMHBO RMO3/2 DU POR LGC 2
CZRMHB. P11
21-NOV-77 13:34

MACY:i

3722

020306

0SI4SS

Q47510

020124

3r34
3725

020322
020330

0201
03244

4i24

Q<7101
046440

3728

Q2040

guzsaa

Q47111

3732
3733
3734
3735

020370
020376
020404
020412
02420

052105
046525
0945149
020122

22
117

ON7Seu

053040
020106
020104
Q44124
Oszie2

046117
040526
047506
020105

3738
3739
3740
374]
3742
3743

020425
020432
020440
020446
020454

Q47
Q44502
Q42523
044522
ON6116
047503

047507
020124
020124
(043516
040517
046515

3746
3747
3748
3749
3750
3751
752

020472
020500
020506
020514
020522
020530
02053

ON7111
Q41505
052101
051126
047126
041440
(¥21le

3754
3765

020541
D20546

3760
3761
3762

3759

020576

30(1046)
21-NOV-77
TEST EKROR MESSAGES

14:15

EQG

PAGE 69

SEG 0069

3783 Q0314 OBisi) §35040 051508

3728 05932

EMIO:

.ASCIZ

/READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/

020047
Q42522
052504
052440
020104
047101

EMIl:

.ASCIZ

/GO’

047503
020124
051525
Q47111
Q47514
046517
000

051122
052123
042040
020107
042101
040515

EMI2:

.ASCIZ

/INCORRECT STATUS DURING UNLOAD COMMAND/

104
042040

044522
042111

042526
047040

EMI3:

.ARSCIZ

/DRIVE DID NOT RETURN TO NEUTRAL

046101

040440

052106

020612

051105 0s2440 096116
040517
020104
047503
046515 047101 000104

3761
3765
3766
3767
3768
3753
3770
3771
3772

020626
020634
020642
020650
020656
0206bd
D062
020700
020706

052101
047511
020124
047117
047520
DoOMO
040440
052440
00010N

Qu2S24
020116
0M2523
023440
044523
Dsill7
082106
046116

0S2Ule
044502
020124
050117
092524
02350
051105
040517

EMI4:

.ASCIZ

/ATTENTION BIT SET ON

3774
3775
3776

020710
020716
020724
020732

0S2101
047511
020124
042523

042524
020116
047516

0S2116
044502
020124
047117

EMIS:

.ASCIZ

/ATTENTION BIT NOT SET ON PORT WHICH

3729
3730
3731

J7%

6 05
Q2035
pegly
%2

Fug 020470

D0OIGA

040523
05155
051940
000

BIT

RESET DURING UNLORD COMMAND/

AFTER UNLOAD COMMAND/

3727 Qo0ges Gelixt Oohile @aceon
3788 050230 QI3048 Deoshe Beirsq

3777

020124

'OPPOSITE PORT'

AFTER UNLOAD

ISSUED

‘UNLOARD®
-

[Velalal,y]OO—0yMOQTl..—~—ay
—IeLVN)=IV)}VI—V4QYwwwW(-(zXZ[->-—WW2]n+]]IA—SIMA=~—¢DLM)1[[(OwwOa''&4--O—9=&'2YS8[aQ)]4}+|.|.I. ([wmoa4Xvz>--=1n[]T—-sM=TtJ=t—)[[Mw—XQa4¢Z>-o+«e1[-n]]+|307[[Ow]oraxo =->LN+=[\-p}b]¢ ((W-|wo-Qz|{zz@44--W@,[4[e]]++ —otN~LN
X] —

T13DR701O7N21.%NEmRT.NU030—27—M“—a.gNS0eNHNsU.O—~4S—107O-BM——OQTm4A[20y]7V)2]3»-]—IoO[64B76—OT4\[M+=~(Rm—~YnONuOa?t—
MARCY1l
(1046)
30(10
21-Nov-77
TEST
EST
ERROR MESSAGES

>0 2 o>X -X>

—[wY[oZQa--]np waN [[-o-QX¥Y] 3~W-woX— '([Wa4X<-N~=5T8'-]]M

([[~@»wo—.] [(ON@]] [Q~ (oN-&4\)

BAB=3—vTYIS~VI-MO&auIRVQ8MO-WNHtNTLYiMyDR—ZIO~—SuIY0TTOIyETMYR—nB¥NRQONTmBiEOoIY—NOBR-ROQtWEYMITAUIBRSNRITM—ITSNANYOZMYFBEORRNJY—I~mOBiIalTTH20Re~leIULN—h;TLB]RVTM)UPmTBHGVWTBiIYINlEm—yNOYlQTL3eYOlYzSoBd=L—nBEt¢N~mSTogtoLAYQYT—>Iu-oUtYRMI—BST=mRtOYLNNoIoAtTUEwBoYNONtIYY=GNtmB0I2&1mB—OwM~—IH1EmH—NE&OmIu0LwolUHm~E&NMm-wEyO&e&B UmM~mI%OmN~wHT7iOmdM—ae=~M&O.wtYd0M.w3QmoNI~mWeM—mM8d&T~MEBFSITLLoNPFAfMU)EOo—d=8R3NI—u45t~nOdAN4M8TT5—dRN3M=,Or8t
a(]¢&wwAo~a([(—w@(z°f278&=[Nx~n)])]&+[p [|[L~(-Qow—aXxz[-N7F+=)2—N')])4 [7(~]owQWJQX>4¢oA43@NY[N]}]s[ 1a=-[~QWeQo-4QbaNN7tl2[}N=4b}+| [Td(1W> |@]wNOX938[-]2-]]o)[ 1([L-oW—£Ozr¢4>A-9YN2s)«]]
CZRMHBO RMO3-2 DU POR LGC 2
CZRMMB.PL1
21-NOV-77 13:34

14:15

FO&
PRGE 70

SEQ 0070

4
0

CZRMHBO RMO3-2 DU POR_LGC 2
CIRMHB.P11
21-NOV-77 13:34

MACYIl

30(1046)
21-NOV-77
TEST ERROR MESSRGES

14:15

GO6

PRGE 7!

SEG 0071

3834

0214

044527

041524

0Q4esl10

38
3837
3839

021416
021424
021432

0S0117
0Ou42Se4
0s2le22

Q4?7520
020047
000

044523
047520

3840
3841
3842
3843
3844
384S
3846
3847
3848
3849
ggg?

0214
021442
0214
021456
021464
021472
021500
021506
021514
021522
021530

047
047040
838105
0516
1
051528
0S1110
0OSOO40
0OM47S16
0S2111
000

042516
8%2117
M40
o46See
041501
o421
0Sesl
O0S1117
020124
044103

023504
051440
042S10
0S1504
042503
052040
044107
020124
053523
042105

EMeS:

3852
3853
3854
3855
3856
3857
3858
3859
386?

021531
021536
021544
021552
021560
021566
021574
021602
021610

104
0SIN40
042510
046040
104
04
042510
042514
000

044522
044527
020104
041517
052517
0S2lee
020116
0S1501

Q42526
041524
047524
(042S13
020124
0S3440
042522
042105

EM24:

.ASCIZ

/DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/

3862
3863
3864
3865
3866
gg&?

021611}
021616
021b24
021632
021640
021646

le2
044504
0S1040
042116
042101
044523

030S10
047104
0S150S
0S2040
D0S1104
043516

020061
052047
047520
020117
051505

EM2S:

.ASCIZ

/RH11

3869
3870
3871
3872
gg;a

021653
021660
021666
021674
021702

104
047040
044S0S
0S4S02
000124

Q44S22
052117
042532
0SO0M0

042526
0S1440
020104
0S1117?

EM30:

.RSCIZ

/DRIVE NOT SEIZED BY PORT-

38
3876
3877
3878
3879
3680
gggé

021704
021712
021720
021726
021734
021742
021750

0S1127
0S2123
0SI440
4502
0S1440
043S16
000124

047117
052101
042505
0S2040
044505
0S0O040

020107
051525
020116
042510
QY4532
051417

EM31:

.RSCIZ

/WRONG STATUS SEEN BY

3883
3884
3885
gggg

021752
021760
021766
021774

042522
051105
042524
0S1127

044507
041440
0S2116
047117

0S2123
047117
020123
000107

EM32:

.ASCIZ

/REGISTER CONTENTS WRONG~

3888
3889

022002
022010

047503
020114

0S2116
052502

047522
020123

EM33:

.RSECIZ

/CONTROL

3835 0214?8 080?84 Q47117 023440

.RSCIZ

/'NED’

NOT SET WHEN RMDS1

ACCESSED THROUGH PORT NOT SWITCHED/

DIDN’T RESPOND TO ADDRESSING~

THE

SEIZING PORT~

BUS PARRITY ERROR READING

INDICRTED REGISTER

CZRMHBO RMO3/2 DU POR LGC @2
CZRMHB.PL1]
21-NOvV-?7 13:34
4YySze

1=
N
b e e )
LN L0

HOB

PRGE 72

SEG 0072

EM3Y:

.RSCIZ

/CAN’T ACCESS DRIVE

EM3S:

.RSCIZ

/DRIVE NOT

IN NEUTRAL RFTER RELEASE - REQUEST NOT SET-

EM3G:

.ASCIZ

/DRIVE NOT

IN NEUTRAL RAFTER TIMEOUT - REQUEST NOT SET/

EM37:

.RASCIZ

/REGISTER CONTENTS WRONG ARFTER RELEARSE OR

EMM0:

.ASCI2Z

/DRIVE

EMY]:

.ASCIZ

/REGISTER

LO—UNNU-—-N

THROUGH EITHER PORT/

O NN

-0 L—N

8 L0 N—O RO R

NN
£ W)

oo
—UN.LNe—

Zenen

:
O

[@)
ONIOROC»—
N
OWoONN—O—

1I4:15

0s4Sey

30(1046)
21-NOV-?7
TEST ERROR MESSRGES

IN NEUTRAL AFTER RELEASE

TIMEOUT/

- REQUEST SET~/

o
n

£
W

—

£ L
o
n

Oca4u4e

022442

2 23R

R 2R
: PZRZRRAE
373ab—743TR
RAREP?
HRo
2
.
oot
h
RRSRARY-Z 2% 32
RR oF o F i
S

—

rat v eyttt
el

LOONCNLWh—-O

B4
e
e
AL
238

33907

RRES RESEESS

1122
as

MACY11l

ocisll

WROMG AFTER RELERSE

WITH REGUEST

SET-

g
3

o
n

[

REG RDR CONTENTS/

DHe:
.RSCIZ
/TEST
&
ERR PC
PORT
8
REG ARDR GOOD

DHS:
.ASCIZ
/TEST
&
ERR PC
REG RDR PORT A

DHbE:
.RSCIZ
/TEST &
ERR PC
PORT #/

DH7:
.RSCIZ
/TEST
ERR PC
PORT

DH13:
.RSCII
-

.ASCIZ
/TEST

.RSCITI
~

nLn—L£.remnn
NVN—-00NOWNOWoN £

L OO
—

= Lt

PORT

Nt
V2 [

ERR PC

Ly
ot O

——

OO+ NVo—r—
o L£0nNOon
Oowone— N

— OG-

RRARZZR

Ll
ad o o

3232gR 233R%R 220358

RIR 2

ONOw

[

/TEST

Y
OOMNOWOoON
L

000
020040

.ASCIZ

3258 AR
RN §o—

021440

DH1:

3
2

TRER-N
End

—

RZZRRRR
B{XI'—DOO
= (Y0
0 e
RREERS

o i 2ERER R
800
gE2RRes
: ??8%:2 S2a8K
o
8% A
RO SRY 88

s Poen P

R
s

RRZ2222

0 2 RER R
o XRR ¥
8~ A F5K

g 2R? gRE? 328225553
5234 ke; § oS 2:8 ]%

[

—

-—

RRR
A
2ol f

22IRIR
geg=ErRER
!

200

Sie
igg

o
n

n
n

—

851%
0040

O 00

Se0
052122
o4

o
£
n
£
£
o

RRRRRRRRRRRRRRR
WWDW
fotatatatal
oy
oo 2
PRy o
s 0t Pt P

v v
2R

m~
e
—~O

[N
—0

—

= 4
D
(@)
<

CLRMHBO RMO372 OU POR_LGC 2
CZRMHB.PL 1
21-NOV-77 13:34

DHINY:

mo
b

ROR MESSAGES

21-NOV-77
14:15

106
PAGE 73

ERR PC
PORT

SEIZE

&
TIME

PORT B/

(IN MS)/

SEIZE/<«CR>
«LF>

ERROR/(CR>LF>

BRD~/

5
£G 0073

MRCY1l

I14:15

JOb

PAGE 74

.RSCIZ

/TEST

ERR PC

DH17:

.RSCIZ

/TEST

ERR PC/

DHeY

.RSCII

.RSC12

/TEST

DHeS:

.RSC1Z

/$SRMADR/

DH30:

.RSCII

.RASCIZ

/TEST

PORT

SEG 0C74
»

LOCKED

PORT

REG ADR CONTENTS/

SWITCHED TO/<CR><LF>

8§§§§8888888888888888888888888888888888888888888888888
RBRRK
P AT 4 A FEEERATSRRSEAEEE §w
22T y82SCoR SFEH LR
oN
onE

rn
W
N

4002

30(1046)
21-NOv-77
TEST ERROR MESSARGES

WWWwWwWwwwww
UMY
0 0 b b e s pe

[

CZRMHBO RM03/2 DU POR LGC 2
CZRMHB.P 1
21-NOV-77 13:34

ERR PC

PORT

0S004

DH34:

DH3S:
D4esSee

ERR PC

.RSCII

.RSCIZ

.ASCII

/TEST

(LF>
<CR>R/
ERRO

SEIZE

ERR PC

PORT

PORT 8

REG RDR GOOD

PORT A

PORT B/ «CR>(LF>»

RMDS1

RMDS1/

RELSNG

ERROR/<CR» <LF>

BRD/

CoRMHB0O RMO3-2 DU POR LGC 2
CZRMHB. P11
21-NOoV-77 13:34
4S8

023606

:823

853613

4061

023623

4063

8536

0SISI4

043516

MACY]1l 30(1046)
21-NOV-?7
14:15
TEST ERROR MESSRAGES

oN7522

006522

0288:

051508

0e0ied

Yo64
4065
4066

36484
0236
gs

O0S111
0SO040

0201
051117

050040

4068

0236

020040

023712

O0S1105

4067

4069
4070

4071

023676
023704

4072

023720

4074
4075
4076
4077

(023726
023734
023742
0237?50

4073

023721

4078

023756

4080
4081

023772
024000

4079

4C 2

4083
4084
408S
086
4087

4088

4089
4090
4091

4092

0sS

020040
O0S1SIM
ole

124

020043
050040
0S1117
osooqg

02004

83004
3516

25ee
0040

0S150S

042440
020103
020124
051617

020040
02004
0461
(0S]
006

020040
020040
047123
051521
012

020040
051040
020107
0ON7124

020043
0S0040
0S1117

0O4e4Md0
020103
020124

024012

Q40

020040

024074

4093
4094

024102

4097
4098
40399

024104
024112
024120

124

O0OS0040

000043

ERR PC

PORT &

PORT &/

.RSCII

RELSNG

ERROR/<¢CR>
<LF>

PORT

.ASCIZ2

/TEST

ERR PC

REG ADR GOOD

O43440

020040

0S1505

020124

051117

020124

DHY0:

051122
050040
020043

:g‘é

LASCII

.ASCI1Z

/TEST

ERR PC

RELSNG

RQSTNG/<CR><LF>

PORT 8

PORT &/

.EVEN
001242
00lie2
001242

001116
001126
O00l11i6

4100
4101

024l26
0e413Y

001122
000000

00lled4

4103

0e4i4¥4

00lled

O00llee

4102

DH37:

(020124

02000
0

82751
1040

/TEST &

O0Sllee
0S0040
020043
peole

850104
2101

0S1104

024052

006522

043508

040449

024026
02403TM
024042

020040

0SS!

023764

SEG 007¢

020043
(Qeoled

(020040

0OM7S22

.ASCIZ2

O0S5llee

020040

0200%8

PRGE 7S

020040

051603

0236%2

4062

KOG

024136

00le42

001116

001234
000000
001234

DTl:

.WORD

TSTNUM, SERRPC, PTNBR, SBDADR, SBODRT, 0

DTe:

. WORD

TSTNUM, SERRPC, PTNBR, SBDRDR , SGDDART, SBODAT, 0

001122

DTS:

. WORD

TSTNUM, SERRPC, SBDRDR, SGDDAT , SBODAT, O

O00lles
000000

4104
4105

024152
0e4160

001242
000000

O00llle

001234

DT6:

. WORD

TSTNUM, SERRPC,PTNBR, 0

4107
4108
4109

0241?70
024174
024202

001252
00lede
000000

000000
001116

001116

001234

DT7:

. WORD

TSTNUM, SERRPC,PTNBR, TIME, O

001236

DT13:

. WORD

TSTNUM, SERRPC,SEI2PT,0

4111
4112

0ewele
024220

1234
000000

001122

001236

DTlN:

. WORD

TSTNUM, SERRPC,SE1ZPT,PTNBR,
$SBDADR, SBDDAT, 0

001126

0901116

000000

DOTiZ:

. WORD

TSTNUM, SERRPC, 0

4106

4110
4113

024162

0O2420M

024222

001242

gglewe

00la4c

001116

BRD7

g
3

=
3

Qeu43ie
024320

ooxgwa
1

(3o

Q24230

8288

Pomo
st Pt Poce Pt P

R PO B 6 SFhESHE 5 3BURR LR B RBNRR YOS s o icn £
S&GEREORIELE

L L LS L L

LML

L L

L LS LS L L LKL

LK EL L

TECOTMOTOTUMNNIUN
NN E £ £ £ £ E £ £ £ £ o g 0502 1000 000 2 N0 T N N PO MU o b oo b

LSS SLLLLELLLLELLLLLELLKL

CZRMHBO RMO3-/2 OU POR LGC 2
CZRMHB.P11
21-Nov-?77 13:34

1543
{
fixéq
DO

0011
001

MACY11l

30(1046)
21-Nov-7?7
TEST ERROR MESSAGES

14:15

LO6

PRGE 76

301236

DTeM:

. WORD

TSTNUM, SERRPC,SEIZPT,PTNBR,
0

0aT1
11%3 e
001170
1

DTeS:
DT30:

. WORD
. WORD

?RHRDR,O

DT34:

. WORD

TSTNUM, SERRPC, $TMP2, STMP3, 0

001236

DT3S:

. WORD

TSTNLM, SERRPC, SEIZPT,PTNBR,
0

DT40:

.WORD

TSTNUM, SERRPC, SE1ZPT, OPPRT, 0

Q01116

21535 o008

STNUM, SERRPC,SEI2PT,PTNBR,
SBDRDR, SGODAT , SBODAT, O

001298
001240

001116
000000

031236

000
000
000
000
000
000
000
000
OCi
000

8]0
)
000
000
000
000
000
000
000

001

DFl:

.BYTE

e,q,1,0,0

001
000

DFe:

.BYTE

o,0,1,0,0,0

.BYTE

6,0,0,0,0

.BYTE
.BYTE

g,0.1
0.0.1,1

.BYTE

o,0,:,1,0,0

000
000
000
0Cl
000
000
000

000

18[0))1

000

001

000

001
000

000
000

001
000

000

SEG 0076

g,o0
0
o,0,:,4,0,0,0
o,0,0,0

024400
S HEREREERRRRRRRRRERRRRE
RN RRRRE R RN ERERRRAE RN AR RERERRRRR AR

.SBTTL
R I

CONSTANTS,
IR

TABLES,

AT ARSI A

ETC

AT RS IR AT ISR SRS RIS AZ 2SS ALS2 22 S22

EL22IALL L

; TRBLE OF TEST STARTING RDDRESSES
024400
024402
024404
024406
024410
o24412
024414
0R4416

002722
04342
00SieY
D0S706
006624
007542

TSTADR:

.WORD
"WORD
WORD

- WORD
WO

010610

WORD

011724

;ATTENTION BIT
024420
L
L P31

001

RTARABIT:

.BYTE
BYTE

TST1+4?
T572+2
T573+2

T§T6¢

TS577+2
T5Ti0+2

;STARTING ADDRESS OF TEST 1
;srnar¥nc 2882253 OF TEST 2
:STARTING
S5
OF TEST 3

5279RT¥NG 2883533 OF TEST &

:STARTING ADORESS OF TEST 7
:STARTING ADDRESS OF TEST 10

TABLE

|
2

sATTENTION BIT FOR DRIVE O
SATTENTION BIT FOR DRIVE 1

CZRMHBGC RMO3/2 DU POR LGC 2
CZRMHB.PL1
21-NOV-77 13:34

4170

02u4Mvee

MACYL11l 30(1046)

21-NOV-77
14:15
CONSTANTS, TARBLES, ETC

oo4

.BYTE

Byl

4171

024423

0i0

.B¥T§

4174

024Neh

024Me?

100

200

.BYTE

:i;a

024430

000010

4128 B3disd
41 7S
4l

4179

Bef
000001

MRAXTN:

MOb

PRGE 77

SEG 0077

;ATTENTION BIT FOR DRIVE 2

igTTENTigfl giT F§R EPX&E 3

.BYTE

100

200

;QTTENT}ON SIT FOR

.WORD

STN-l

;MAXIMUM TEST NUMBER

.END

{RHENTEN

Bt FGR BRIVE ¢

;QTTENTION

BIT FOR

DRIVE b

DRIVE 7

CZRMHBO RMO3-/2 DU POR LGC 2

CZRMHB.P1 1
R0DRIS

RORERR

ACE
ASR1

ATR

21-NOV-77 13:34

017070

1350

100000

7988

= 001000
001232

ATABIT
024420
RTO0
= 000001

ATl

= 000002

RT2
AT3

=00
= 000010

AT7
Ale

= 000200
= DOO400Q

AT
ATS
ATe
Al7

BAONO

=
20
= 000040
= 000100
= 001000

01704

BRl
= 000010
8iT0
= 000001
BIT00 = 000001

BIT01
BIT02
81703
BITO4
BITOS

= 000002
= QOCOO4
= 000010
=
=
0

BIT06 = 000100

BITO? =

1423

016655

glle
1008

= 000010

=
=
=
=
=
=

CHANGE
CHGADR
CKCLK
CKCLK]
L

CKERR

1727

1748

1754

a21s0

2156

eelz

1833

1837

1858

1864

1978

)

1982

230<

011

1571#
2386%
2638%

1584#
2402
26Sl#

222l

2eiM

22s0

2268

eaze

22935

1518#%
1631%
25b7%

1520
1690%
2580%

1529
1703%
2S99

1544+
1800%
2609%

1548+
1813
2bllx

1563#%
2373%
2ba4x

2301

2377

829s
830
8318
g3es
7298

7308

1408

7470
7018
6918

6908
6898
6868
6878
6868

3586+
701

700
699
698
697
69%

6858

6935

6838
6828
7008
6Ble

633
632

6798
6788

694

2867

2833
2874

2815

6984

20
000040
000100
000200
020400
001000

6978
6968
635y
6948
693
6328

002576
001270
013246
013316

1344
10238
380
2754

14208
1291%
1393
27634

1293%
27548

1420

1422+

00l244

10138
1586#
2415

1484+
1599#
2417%

1497+«
1603#
2430%

1499
l6l6s#
2444%

1505#%
1618%
24S7#

BPTVEC= 000014

SEQ 0078

8268

6778
6768
6998

BITY
BI1S
BlTe
BIT7?
8118
B113

PRGE 79

8278
g828s

BITIN = 040000
BIT1S = 100000
BlTe
= 00000M

BIT3

1375#

1723

4YieB8s

6808

BITle2 = 010000
BIT13 = 020000

NOG

356448

137%
g825e

0oC

BITIl =

000400
001000
000002
002000

14:15

3590

ele?

6848

=
=
=
=

21-NOV-77

CROSS REFERENCE TRBLE -- USER SYMBOLS

gé;?

81708
BIT09
8171
BITI0

MACYL1l 30(1046)

708¢

BO7

CZRMHBO_RMG3/2_DU POR_LGC 2
CZRMHB.P11
21-NOV-77 [3:34

MACY1l 30(1046)
21-NOV-77
14:15
PAGE 80
CROSS REFERENCE TRBLE -- USER SYMBOLS

CKSHR = 104407
CLOCK
013400

2862
2767

2814
2?58

EonTuE”
B17860
R
= 000015

2208,
6168

F__= 000200

NO44
178

§4QSS
2976

Bl7s
6238
7888

gi73
75

2548
2556

974

1320

1070

1105

CYCLED
017631
CYCLEU
017653
OCK__
= 100000
DOISP = 177570
DEL”
=
0
OFF20

DF 1

024331

1063

OF2S
OF30
DF34
OF S
OFb
OF 7

1133
11584

4136
1161

024363
024364
024373
024337
024344
024347

119%
1217
1245
1084
1091
1098

4139
1266
H4I43s
41318
1z’
118

022574
023230
023334

106I
1187
1194

022523
023013
023071
023ell

DH2
DHeY
DHZS

DH30
DH3Y
DHIS
DHI?
DH4O
DHS
DHE
DHZ
ple8
=
DISPLA
DISPRE
oY
=
DLEY
=
OMD
=
OPE
=
OPR
=

7848

106

024353
024361

DH1
OHI3
DHI4
DHI7

024324

DFIY
DF17

OF2

3603

2%p
Egéo

2882
2778w

023343
023466
023564
023662
024005
022650
022717
022746
04
001)42
000174
100000
000020
000001
000010
00

DRG
DRY

= DO4000
= 000200

DSWR
OTE
DT00
6701
6102

=
=
=
=
=

177570
010000
000001
000002
000004

1064
1124
1131
1182

1215
1243
1250
1264
1271
1082
1089
109%
7858
9748
9238
7538
7879
8218
8638
7918
2377
B48s
7908
2377
b22s
8148
8398
g408
B4l

1077

1068
1146
39%#
1163
4014

1278
4044e
1257
40678
40828
39708
3977s
39818

35358

hee
300S

oo
3015

Hoe7?
301§

4082

3%i8

3548
3637

Zebs
2667

3653
36578

1112

1119

1224

1231

41298

1280

41408

1148
1252
103
88

4133
1253
1110

1273
1117

1229

3928

41388

uoLis

122

SeEQ 0079

3550

3559

3e46

3653

3564
3657

3568
3784

3572
3988

3576
399

1140

1168

1175

1182

1238

4127

4134s
1138

1166

1173

1180

1236

395Ss

3586
4o14

4029

3590

40298
40558
.

1320%
1328

1328

2844s

2B6b#

1S90
287)

1e22

1694

1719

1804

1829

1931

1974

2076

2119

eetl3

2264

1590
287]

1622

1694

1719

1804

1829

1931

1974

2076

2119

2213

2264

973

1319

MRCY11

GC 2
CZRMHBO RMG3-/2 DU POR
13:39
21-NOov-7
CIRMHB.PL)

EMe0
EM2l
EM22
EM23
EMeY
Enes

021203
021266
021337
021435
021531
0cl6ll

En3s

E:g?

022307

EML17
gEM2

EM3
EM30
Eg31

EM34
EM3S
EM36

EM40
EMY]

gEMc
gEMe

EM?

celiz2o
15

020036
821653
021704

022066
022135
0eeeee

0225;3

022445

020137
020221
020273

1111

1118

1230

40998

41178

L
T

SRR LR NN8
A Load ' DD
0V

020541
ce
020710
020774

Pt Pt Pt Pt Pt Pt Pt P

EM13
EMIN
EMIS
EMIB

Pt Pt Pt P

000030
017747
850390
042S
020472

Pt P

EMTVEC=
EMi
EMIO
EM1L
EM12

L L L L
Lre L L vt Lo
0t ps Pt pm ) 0= ()02 po ) 00 bn 0
NV
O~ £
ouner
£ 000D

= 004000

= 000100

sSEess

ECl

ECH

OOR SR8

=
= 000200

NT DR E LR

DVAR
DvC

s Pt Pt Pt Gt Pt e P @ Pt Pt Pt P

DT1?

126
1

@ W
80mmmo~fuouw83 W-UNm£ 3388 Py

DTS
D16

£ N

024300

024312

DT13S

s Pt (pmcn

DT4YO

Pt Pt Pt

120
4230
4eoue
216
024266

§§3583

Pt P

DTe
DTeN
p12S
0130
DT34

B117

n
~N

024174

Pt Pt Pt Pt P

O;ia

=
=

vidoLs
FAENGY TAaLd":25BysER

SEQ 0C80

guyos
843
B4ys
Bu4Ss

000010
000020
000040
000100

oo
~N
Walealid)
N
O LW

T0?
T
T1

=
=
=
=

e Dt Pt Pt Pt

DT03
DI04
DT0S
D106

38&68 46)
S REF

co?

1306#

1139

1167

1174

1181

1237

4097s

CZRMHBO RMOJ3-/2 DU POR LGC 2

ERR

NTERR

21-NOV-77 13:34

= 040060
1

ERRVEC=

Eésc

Fy9
GNS

393

134

1318%

1329+

27544

27558

27b4%

b8
7748

168S

1795

2394

2492

2588

2684

= 000038

777

2718
3540

272s

3527

3528

3%29

896.

= 000040
= wanusn U

7788
922
3539

000200
002000
000400

IAE
=
1E
=
ILF
=
ILR
=
I0TVEC=
IR
=
IvC
=

002000
000100
000001
D0O00D2
000020
000100
010000

gl2s
7278
802s
803s
7098
7508
8678

= 000011

KY8CTL

[?Y

1266

: 0088?2
=

LSC
= 004000
MaGXTN
024430
MCPE
= 020000
= 000400
MOH
= 020000
MOL
= 010000
MXF
N8A

6lvys

3530

3531

35833

353S

3536

3537

3538

2el3

2264

223s

2301

1667
2469

167]1#
2536

1777
2540%

1781#
2703

7?3.
3298
4014

999
3598
4029

3009
3603
Yo

0
663
405S

3548
3618
4067

S50
628
4082

59
3637

3564
3646

3568
3653

8668
1406
732
7528
8498
795s

2359

7538
8S1s

7488

7564

7658

12848

B80Ss

35338

147 1%
2346%

= 000020

000010

2821
2539

1467
2342

1382
10140
1427
8738
8688
8158
10118
7S1ls

e345

141 3%
2306

016753
001246
0171S0
0002
020000
0200
001240
0002

PAT

2820

2186

1396%
2187

8658

28ce+#

2773x%

2038

10228
2183

NOCLOC
NOSEIZ
NTRMI1
OFD
=
OPE
=
0Pl
=
OPPRT
OR
=
PAR

1893

13044

004000

NOATA = 000000

1780

1303+

= 010000

1670

30158

001000
100000

NEM

1470

2974

=
=

NED

SEG 0081

3559s

1317

7048

=
=
=

LBC

PRGE 82

CROSS REFERENCE TABLE -- USER SYMBOLS

7738
7868
1340
809s
874s
810

DO7

13888

GO
= 000001
GRV
= 000010
GTSWR = 104406

MCE
HC]
HCRC

14:15

1381

FMT16 =
0
z

21-NOV-77

nn
N
on

CZRMB.P11

MRCYL1l 30(1046)

)

Yi77s

2367

2377

2478

2480

2553

2561

2571

2670

1929

2076
26?2

2119

1490

1494

1S11

181§

e4el

2423

2427

2618S

2617

e6al

1748

1754

1858

1864

200s

2011

2180

2156

2e44

2250

2063+

Yled

1590

35768

1622

1594

35984

1918+

1719

1804

1829

1931

CZRMHBO RMO3-2 DU POR LGC 2
CZRMHB.P11
21-NOv-77 13:34

PORTA

00l224

PORTRI

016677

PORTB

001226

2076

7928

2118

e2l3

CECY

1581

1607

1609

1613

100Ss

1347%

1348

1352

135S

1359

7968
b2l
7158

1570
1857
20390
gggg

1637
1913
2120
23se

1358

35688

10068
17e4
1917

2135

PORTBI
PORTC
PRO
=
PR]
=
PR2
=
PR3
=

016725
001230
000000
000040
000100
000140

PRS

000240

PRY

PR6
PR7?
PS
PSEL

= 000300
= 000340
= 177776
= 002000

PSh
PTNBR

PWRVEC=
RDCHR =

177776
001234

000024
104410

ROLIN = 10441}
RDOCT = 104412
RDY
= 000200

RELERR

001250

RELOK = 000001

RESREG= 104414
RESYEC= 000010
RMRS
= 000016
RMBA
= 000004

PMCS1

——

= 000000

RMCSeZ = 000010

1575

2401

1364
10078
6388
6398
6408
b4le

1352+
1735
1918

1577

1677
1914
2139
2353

1678
1328
214l
2438

1710
1929
2149
2439

1711
197S
2196
2441

1371

1720
1994
c2el4
2476

1353%
1736
1944

1354#
17S3
1945

1357%
1787
1979

1365
1788
1990

1502
1820
1991

2136

2155

2200

3572
1371

1372

1373#

2442

1694

o443

2489

cecls

1719

1804

2430

2546

229

2230

1547 %

1570#

1602%

0
K

PIP
= 020000
PIRQ
= 177772
PIRGVE= 000240

7548

LU
- UINDON
nNEwLTM
N ~NWU-—

002000

= 001000

PN
e s e
LMD NW
NWOWN
NWoOW
£

SEQ 0082

N
onomun
WL—-nNO
nNOOTMW

PGE

PGM

EQ7

MARCYLl 30(1046)
21-NOV-?7
[4:15
PRGE 83
CROSS REFERENCE TRBLE -- USER SYMBOLS

1735#»
1990%
2243
2595+

1999

el44#

2210+

2547

1829

1331

1974

1747%
%
2004
2280+%
2637+

2010%
e84
2669

c2bls

2289+

b4es

6438

Lhl
6458
6188
7318

6198
1009

1788+
206e*
2294®
2682%

7108
3344

3417
1346
7288

101Ss
12848

3S40s
705
303
898s

8968

619

1389%

1482%

1503%

1821 %
2074#
2300%
4097

15284+

1845#
2090%
2353%
4099

1849
213S%
240Ll®
4104

1428

3538

17494

1826%

1857%
2139%
2439%
4106

1863%
2]149%
2443
4110

3537
1402

1716#

1745

1683#%

18SS

1684#

18718

1712%

18S4%

2000

1793#

1971 %

2145

2239

1794#

1820#

Sgg;’

52395

2c40%

2290%

S?Qli

3008

I4Sl#

14gl#

1485

1486

1S01#

1601 %
18464
2089%
ccBl®
eel3

1753+

3536+

2202

2586#

1917#%
2155#
2477+
4114

16374
1851#%
2120%
22Bb#
2b32*

78%

1639
1313#
2124%
2352%
2636%

2679%
1677%
1916#
2136%#
2400#
266Bx

2680#
1710%
1928#
2l41¥
2418
26Bl#

683%

1720%
1944#
2196%
2419

392#

685#*

150e*

1724#
1975#
2200%
2438+

2238+

CoRMHBC RMO3/2 DU POR LGC 2

CRMHB.PLI
RMDR
RMDB
RMDC

21-NOV-77 13:34

= 000006
= 0000e2
= 000034

RMDS! = 000012

RMDT

= 000026

RMOF

= 000032

RMECL =
RMEC2 =
RMER] =
RMERZ =
RMLAR
=
RMMR]1 =
RMMRZ =

DOO0OMM
000046
DOOOLY
0000Ne
000020
000024
000040

RMR
= 000004
RMSN
= 000030
RMWC
= 000002
SAVREG= 104413
SC
=
SCO
= 000100
SCl
=

or=
SC3

=
=

00
1000

SCH

= 002000

SK1

SEIZPT

899
90Ss
9108

1717
1972
eell

MACY11l 30(1i046)

1483

1801
2060#%
2ebe

2640

2670

2672

1830

804s
9088
897s
35398
7348
855
8568

1572

172S
1980
ecl9

907

9098

1504

1721
1976
eels

2448

9138
9148
S02s
9lon
904
]
9lls

14:15

PRGE B4

SEG 0083

CROSS REFERENCE TABLE -- USER SYMBOLS

2440
2639

21-NOV-77

FO?7

2446

1831

168S*

1795«

1638

1640

1435

1573

1802
2064
2ebb

1587

1588

1827
2066
2270

1831
2075
2359

2478

2480

2583

2561

1549

1550

2334 %

2492

2588%

2684»

1604

1605

1619

1620

1835
2091
2367

1915%
211z
2374

1919
212l
2375

192!}
eles
24023

2568

2569

2597

2598

859

10108

1914»

2059«

244l #

2635#

4108

4110

Y4114

4117

4122

Y124

STRACK = 001100
STANDB
017202

609s
3603

1301

1392

1476

1676

1786

1899

204y

2192

23s1

2545

1338

1644

24eM

2471

2658

2663

START

001706

START1

001714

STARTZ
001722
STKLMT= 177774

001140

SWTICHA
SWICHB
SWTCHN

SuW0

SWOO0
SWOl
S0
SW03
SWOY
SKOS
06
SWi?
SWO8

SKO9
SWi
SWi0
SW1ll

000176

017414
017477
01732%

= 000001
=
=
=
=
=
=
=
=
=
=
=
=
=

00000l
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000

1692

1330
2197%
2404

1946
2201+
2432+#

2815

2833

2b2b*

2634%

8578
8588

001236

100000

1691

8698

939

1291s

1292
620

12948

2867

2874

2879

2204
2255
2308

2361
2555
2474

36288
3637
2666

£73
672
671
670
669
668
667
666
65
eb4

2464

943

9738

9248

6738

6638
6628
6bls
6608
6598
6S8s
6578
6568
6558

6S4s
672
653
eces

1293

1299

1327

1319»

1338

1321

3196

3196
3618

2658

1327%

3235

3c8ex

3258

CoRMHBO RMO3/2 DU POR_LGC 2
CZRMHB.PL 1
21-NOV-77 13:34
SWig
SWi3
SWi4
SW1S
SK2
SW3
SlW4
SWS
SWe
SK?
Sk8
SkW9
IaP

=
=
=
=
=
=
=
=
=
=
=
=
=

TBITVE=

010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
040000
00001Y

6S1s
6508
6438
c4ss
671w
6708
66948
6688
6678

GO7

MACY11 30(1046)
21-NOV-77
14:15
PAGE 85
CROSS REFERENCE TRBLE -~ USER SYMBOLS

2471
1644

2662

6664
6658
Rl
8508

7068

TESTNO
TESTI

017022
002772

TEST3
TESTY
TESTS
TESTE
TEST?

00S174
00S7S6
006674
007612
010660

1783
1896
2041
2189
2348

1784
1897
2042
2190
2349

17868
18998
2044
s
2l92es
2351

001256

10188

1376#%

1900%

TESTIO
TEST2

011774
004412

TIME

001252

TIMERP
TIMEB
TIMEBP

001260
00l262
001264

TIMER

1401
1473

2s4e
1673

10168

10194
10208
1021w

3583
1474

2s43
1674

1906+
1377 %
1378
1379

14768

25458
16768

1952

20S1s

2097

2778

1301 =
2045+
2046%

1955#%
2097%
2100#

2099

210s

4099

4102

4104

TITLE

016530

1333

35489

TOLER

013432

1953

2098

27e8s

1307#%

1308#

TKVEC =

TPVEC =
TRAPVE=
TRE
=
TRTIVEC=

000064
000034
040000
000014

TSTNUM

001242

TSTADR

1571

(024400

002720

IST1AR

002706

TST2
1573

004340
00Sliee

IS71S

006622

ISTI0

011722

TSTY

00Ss?

1ST6
717

007540
010606

TrPE

= 104401

TYPOC

TrPOS

TYPOS =

TrPOM

10440S

104402

104404

104403

SEG 0084

7138

7148
7les
7338
707

1412

&?és.
140S

318l%

41578

4097

14668

4157

25358

4164

274)

16668
17768

4158
4159

20348

416l

2499

18898

Y4162
Y4163

1333

1345

ce04
2555
919
3303
142S

35308

1361

1960

4106

4108

4110

4113

4114

4117

4120

4160

21828
e34ls

2722

1954

3182#%

s?sai

14508

1952#

2729

2933

3531

220s
2556
292l
3351

e2ess
2665
2936
3357

2256
2666
294l
3362

1367

3529

290s

1350

2929

1358

3258

1364

2308
c2bb?
2979
3366

3528+

1370

2354
2716
3075
3371

1382

236l
e7ed
3150
3372

1390

2362
2730
3202
3374

1401

2473
869
3256
3377

1408

2474
2877
3257
3381

1423

2475
2897
3260
3446

1426

2494
2914
3273
3448

1427

2548
2916
3284
3527

CoRMHBO RMO3-2 DU POR LGC 2

CIRMHB.PL]

E
uc
Ul

o g

1
=
= ooooog

= 888?80

weetoool

WATCH

WCE
WCF
WLE
WRL

SAUTOB

001254

=
040000
= DOOOM4C
= 004000
=
004000

001134

MACYL1l 30(1046)

21-NOV-77 13:34

7898

1694

1978

i3,
7588
8078
8138
7948

9708

2404#

= DOGCO0S

016156
016151

SAd3.

oBe3

o634,

o6B¢

1342%

3249

3397

2066%
244BE

24M7®

2117k

2118
2569

187%%

240Sk®

1953%

2919%

1297

1305

9878

9888

989%

3535

9864
986#
985

256
273

ggee.
66

3391

3015

3284

3371

SCRLF

001207

$OBLK
SDCAGN
$OTBL
NDRD SENDCT
SENULL
SEOP
SEOPCT

015032
013236
015022
013226
(013072
013242
013026
013064

3;13
271
3119
932
1309
2742
2690
1309%

315
273
3154
27358
2714s
2702w
2711s

271S

szggn;

oo§ésg

1952.

131@:

1398«

SERFLG

001103

$ERRRE 861116
SERRTE
SERRTY

00127¢
013774

2065

2420%

3391
3012

995s

9568

303

4113
10488

287e

2000
2157

§8Y4

3202
3007#

9868

839,

2889
2998

98Ss
3858
9838

1974

2213

2869
2991%#

SCNTLG
SCNTLU

SEG 008c

1804

2127

Jifee
168
1873.
S

35230

1754

2123

1435
i85 s.
1REA:
sb

001100

$CM4

1748

2119

1059
15728
1Rdl.
g,

$CMTRG

= 000001
= 000002
= 000001

1727

2076

Moad.
155§
1BdPF
sun

993s
2981%

§CMl
§CM2
$CM3

1723

1982

2ely
1 ;
{885,
89,

001202
014364
015314

PRGE 86

sase

r&a Ll
;:2:

SBELL
SCHARC

SCKSWR

14:15

CROSS REFERENCE TRBLE -- USER SYMBOLS

13978

$BODAT 001126

21-NOV-77

1370

2462

SB31%
4114
2911

2896

1390

3;392739

1426

3391

YD
1s§9c
1833
sl

isiu
1;9&.
i?Sg:
ol

1309

1310

1311

990s

9918

ebles

2494

2730

2877

2889

2897

2916

2921

3451

2941

2980

4108

4110

2884

24bb*

265k

2660¢

2806

2829

2831+

2848

2864+

2889

oeres

2873

2889

2903

4097

4099

4102

4104

4106

4117

2848

4120

4122

41aM

esN?
959
1002

SMNEW
SMSWR
SMXCNT
NULL
SNKWTST=

016174
016163
013640
DO1154
000001

3260
3257
2841
979%
ég?gn

SOCNT
SOMODE
SOVER

0l46le
QOl4614
013624

3047%
3042
e8lb

QUES
SROCHR

001206
015616

Q94
»
33168

SMAIL

$PARSS

#xxxxs

001100

SRDDEC=

SREGAD
SREGO
SRESRE

SRMVEC
SRTNARD
SR2AH

S$SAVRE
$SCOPE
SSETUP=

9838
38
34848
10318
10328

016346
013460
000127

542 8x

64 o

1804*
edle
2296
24s5#

1538
1614#
1807
SOB?!
302
2571#

1S42»
le22%
1811%
2068
2377%
2S74

1S5S2=
1625
1829#
2076#
2380
2578%

1633%
1610

1099

4102

4117

3533

2847
34s1

1673+

1783»

18S6#

204ls

2189#

2348x

2542H

28434

2845

1674#

1784#»

1897

2042x

2190+

2349%

2468

25S43#

aee2

1874s

1876

2019

2021

216Ss

2167

23138

2848
3451

1313

1335

2706

esly

2862

2968

9S4

0Uiisd
00l162
016404
001272
001274
#asgss

1509#%
1593
1719%
é936
24S

1331

3539

013240

301S

9584

wzsxas

SRDLIN
Q015706
SROOCYT
016206
$ROSZ = 000007

SEG 008t

2889

001110
001216

001106

2870

[

SLPERR
SLPVEC

sSLP

2731#%

10—
£ O NV

013216
(01S40M
000000
016344
001104
00113S
O0O0l11l4
001210
001214
00l2le
001220
001222

PRGE 87

TERYIBC

SGETN2
SGTSWR
SHD
=
SHIOCT
SICNT
SINTRG
SITEMB
SLF
SLKCSB
SLKCSR
SLKS
SiLLVEC

157S#
164}
192¢2#
2119+
2409
%
2607
27328
32578
593
3439
9578
Q718
%l
93648
1001s
1000
10038
10048

107

NN
o 0= e
O NN

608
9928
981
9808
e
Sb4
3668

14: 15

CROSS REFERENCE TRBLE -- USER SYMBOLS

mw-—wfcom ne—N

(WY
OvwN
N

Q00l1le
001200
001156
0011S8S
0C1120
001levd

SERTTL
SESCRAP
SFILLC
SFILLS
SGDROR
SGDDRT

21-NOv=-77

21-Nov-77

UMM
b b i
oL—o0rnLe
—— IO
N

CoRMHBO RMO3-2_DU POR LGC3E

CZRMHB.P11

MRCY1l 30(1046)

1653

17618

1763

%
3054
2844
2709%
3303

3065#

3091s

2720
3374

2742
339!

2835

1431¢#

1434

1450

4116

3448

3339
34128
3332

1424

27418
3541

4688
1303
126848

1307
3200

1311

$TKB
STKCNT

2810

9918

131 ¢

53
131+
e74e
e84y

1475#%

599

600
1675
2807
2854

601
1785
2808
285S

602
1898
2809
2856

1785%

1898#

2043»

3211

3239

3266

3223#%
3327#%

3224#
3328

3225
3330%

3227%

e801s

1675#

00) 14€

2832
3768

2838
3162

cB4l#
3183

2847
319¢

015082
0150S4

1334
31678

1395
3225

3178%
3328

3252

015042

31638

3178#

3200

015044
015046

Jle4s
J16Ss

3179%
3180«

3180
3326

001144

97Ss

3162

J184#

0150S0

31668

0islee

00l 1leH4

STMP]

001166

STHMPZ

001170

$TMP3

001172

S TMPY

301174

STN

000011

sSTPB
STPFLG
$TPS
STRAP
STRAP?
=
STRP

0011Se
001157
001150
0lb44e

STRPAD
STSTNM

D1EY76

STYrIN
Blel4e
$TYPBH= sestee

3227

3330

3207#%

3209

3215#%

3237

1490%
1578
1720o%
1934#%

1491
159]#
1723#%
1335

1S10#%
1592#%
1728
1936

1S11#»
1593
1;;0
1977%

1512
1608#%
1737
1378%

51235
282
2572#

378#%
2573%

5138
379%
2574

5137
380
eb0lx

221b#%
2407 »
2b0co*

e2l7%
e40B#%
2603

1382»

1383

1997

2077#

2078+#

2080

clobx

1489%
1577%
1697
1847

17264

128

1727%

1728

1742

1836%

1837

2236

2c’lu

2272%

2273

2c8?

1976#
ec'b

1977
2222

1389
ec4e

003
2244#

2005
ea4

2006
ccbb#

2lelx
2eb?

1980#
2220

1981
2234

1995
2248

2009
2250#»

e0ll#s
2251

e0le
e2’0#

2125#
2271

15804#
17004+

1;81!
1701

58¢
1809s

1595
1810#

1596 %
1811

1597
2382%

1612%
2383+#

2648+
S93

49
1463

9898

9908

1721%

1725#

1493+

24ct

2453+

1786
2313

1874
5341

2647
s8es
9788
9828
9778
1307

3S51Ss

35198
3S408

1726

1494

CYys#

734

1740

1495

2455

1466

1746
175

1514%

257b#
14758

1748%
1754+

1515#

2577+%
1476

1749
1755

1516

es78
1651

18988
2351

1899
2499

2019
2s01

2034
253S

5288
35418

35298

3S30s

3531

3532

3533

3534#

3535

3537s

3538s

3539

1472#
2863

1672%
2866

1782#%
2889

1895s

2040

2188%

2347+

oS4l
¥

2806

2842%

2844

3386

3390

004+
2962
3002
35048

S2b

35268

3341

3342

3532

1722

18689
23508

3509

95Ss
2848
|J

2325%

Elagl
ee?
e4sSl
9888

001102

3323

31928

3878

00001S

3217+%

3181

9868
1576#
1696#%
1840

0ib464

3179

SEG 0087

= 000000
SSURMK
STIMES
001176

93
1313
2740
2833

PRAGE 88

CROSS REFERENCE TABLE -- USER SYMBOLS

KXk

S8cs
1311
2734
gggg

JO7

V=N
oL
NN
N

166000

2842
935

14:15

M=
=N =N~
ocLon—oh—om
O—-—L0LWOHWW
O—L—-D0O0MUELEN

e8cy
930s

@21-NOv-7?7

ne-—
noon
L£L£N
nLen
®.

12848

17272727

013614
000200

30(1046)

LIS

SSTUP =

MACY11l

»n

CZRMHBO RMO3-2 DU POR LGC 2
CZRMHB.P 11
21-NOV=-77 13:34

3015
3015
3018

3354

3372

CZRMHBO RT03/2 DU POR _LGC 2
CZRMHB. P
21-NOV-77 13:34

STYPDS

014616
014150
014320
014366
014414
014430
014370
01347¢
800000
14613

SH40CAT= #nsnin |

024432

31048
29%2s
383
3008
30458
3044
30408
c8los
7348
O4l#

281§

918#
1500
3lebs

MACYL1l

3531
3519
2930
3010
3528
30478
3529
304S#
2876

9224
1521
3167

30(1046)

21-NOV-77

14:15

KO?7

PAGE B89

SEQ 0088

CROSS REFERENCE TRBLE -- USER SYMBOLS
3527
2997
3013

30028

3003

3289

933s
274e
3391

9354
27438
33978

3530

3055

30904

930
2704
31688

9318
27198
33908

952
2847
3451

397
2848
Yi4es

1300
2889

CZRMHBO RMO3-/2 DU POR LGC @2

CZRMHB. P11
AR

CHECK
CLRRTR
COMMEN
ENDCOM

ERROR

ESCAPE

FF
GETPR]

GETSMR

HERD

MORE TR

MSG

21-NOV-77 13:3M

18728

e0l1?

S8l

1484

1649s

2596
2193

2bll

2638

1529

1548

15871

6108

1437

1496

1817

1643

1562

7168
7168

1757
2083

238S

1812
2095

2414

184
210

231l1s
7168

2312

2500

S81a

1966

égggl

1455

7168

562

945

7168

538

7168

3iM4S

61l

1647

581
2072

1481
2089

71648

REPORT

7168
S8l
7168

1ZE

S8ls

SELECT
SETRTA
SETPRI

SETTRA

SETUP
SKIP
SLASH
SPRCE

STARS

1508

SB1is
7168

3S19s

1713

1463

310M
1707

1910

3319

3528

1603

1583

1598

1861
2147

1867
2153

éees
159

1666

1776

1889

16508

1653

1823

1967

3440

3489

17569

1690

1800

1615

1630

1643

2623

2650

éqso
241

2034

21ee

2341

2535

17608

1763

18728

1876

20178

2lle

2207

2019

2168

2313

2501

1869

2016

216l

2309

2498

2689

1502
23%2

1527
2400

1546
2438

1569
2442

1601
2476

1677
2489

3529

3530

3531

3533

353S

3536

a4e9

1335

1651

3414
1817

20sS

2456

1761

2579

1874

2608

2258

2070
2304

2021

2i64s

2167

e3l12s

2315

25009

1710
2546

1787
2594

1820
2632

1916
2636

1927
2668

1944
268l

2061

3537

3538

3539

3540

102S

1029

1285

1289

2033

2048

20sHY

2086

3469

1478

1624

1566

1634

1651

2102
2550
3?%;

2109
2558
3094

216sS
256M
316!

2181
2583
3230

2313
2<30
3248

2340
2629
3308

€356
eb7S
3332

2364
2699
3400

2370
2745
3483

189S

2044

2192

235!

2S4S

722

1874

TESTAG

c81ls

1476

1902

2047

1676

1786

;ig.[ ]

2720

2727

293 l

13€9
2903

1365
2928

3258

7168

TIMER
TRMTRP

c81s
3519

TYPNAM
TYPNUM
TYPGCS
TYPoCY

7168
71bs
7168
71Es

7iets

1315s

271e

2723

1751

2014
2298

146

1816

1748

244y

SOOB
292

1453

1797

1732

2417

Sgog
7

1442

719

1702

2402

1987
2es3

1443

71?

2373

1962
ee4?

1295
2493

7168

SEQ 0089

1618

938
226

S8ls

TPTXT

PRGE 9

1586

18SS
2132

SWITCH

¥¥$Sé2

LO?7

?les
7168
7168
7168

1790

SWRSU

14:15

CROSS REFERENCE TABLE -- MACRO NRMES

2567
c8le

POP

SCOPE

21-NOV-77

1760

2168
S81s

PUSH
RELERS

30(1046)

1650

MULT
NEUTRR

NEWTST

MACY1!

795

1888

769

1903

890

1909

8934

1941

928

1957

948

1665

1964

2389
2749
3498

997

1680

2019
2396
2797
3542

1687

2435
2803
3546

1706

2483
28s0
3669

1761

2s01
2891
3673

1775

2534
294,
4149

CZRMHB0O RMO3/2 DU POR LGC 2

CZRMB.PL 1L

gSCHTH

$SESCA

HEC

SSSKIP
.EQUAT
_HERDE

.SETUP
- SHRH1
3Ry
-$ac¥]l
-$CATC
-$CHTA
. SEOP

.SERRO
SERRT
“$ROOC
(SRERD
_$SAVE
$5c0P
'$TRAP
.§TYPD
$TYPE

.§TYPO
.

ABS.

21-NOV-77 13:39

468
71be

wclfi

7168
5828
5828

MRCYL1 30(1046)

21-NOV-77

14:15

PRGE 92

987

9e8

989

990

BOG
583

g8y
s
94
s
HOds
5828
928
s
916
8
94
5828
269c

5g2s
5828
5828
5828
5828
5828
Gg2s
6838
£83s

024432

ERRORS DETECTED:

2848
2889
3398
3159
346i
2801

3092
2945

3015
ooc

RMO3:CZRMHB.BIN,RMC3:
CZRMHB. SEG/DOC/NL : TOC/SOL /CRF=RMO3: CZRMHB. P11
RUN-TIME: 20 13 ] SECONDS
RUN-TIME RATIO: 468,35=13.1
CORt USEC:
@2P.
(55 PRGES)

DOCUMENT PAGES:

SEG 0090

CROSS REFERENCE TARBLE -- MACRO NAMES

3539

3540