Digital PDFs

AH-F940B-MC

August 1981

101 pages

Original

47MB

view download

OCR Version

63MB

view download

Document:	CZRMSB0 RM02-03-05 RM05-3-2 DU POR TST 2 AUG 1981 bw
Order Number:	AH-F940B-MC
Revision:	000
Pages:	101
Original Filename:	CZRMSB0__RM02-03-05__RM05-3-2_DU_POR_TST_2__AH-F940B-MC__AUG_1981_gray.pdf

OCR Text

TST 2

AH-F940B-MC

e .

B Pehe ' orry e GGG

(ZRMSBO RM05/3/2 DU POR TST 2

MACRC v04.00

B 1
18:08:26 PAGE 1

SEC 0001

NP WRU—C O

RN = OO0 N

NN NN N WININO NN PO NN NN NN = =3 o = e e

e ~d

N BN = O Q00 NN & N

-REM

4-APR-B1

IDENTIFICATION
PRODUCT CODE:

AC-F939B-MC

PRODUCT NAME:

CZRMSBO

PRODUCT DATE:

APRIL 1981

RMO05/3/2 DUAL PORT TEST, PT 2

MAINTAINER:
CX DIAGNOSTIC GROUP
AUTHOR :
MIKE LEAVITT
THE INFORMATION IN
THIS
DOCUMENT IS SUBJECT TO CHANGE
NOTICE AND SHOULD
NOT BE CONSTRUED AS A COMMITMENT
BY
EQUIPMENT
CORPORATION.
DIGITAL
EQUIPMENT
CORPORATION
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS

WITHOUT
DIGITAL

ASSUMES
MANUAL.

THE SOF TWARE DESCRIBED
IN
THIS DOCUMENT
IS
FURNISHED UNDER A
LICENSE
AND MAY
ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT
CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE
OR
RELIABILITY OF ITS
SOFTWARE
ON
EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.

1980,1981 DIGITAL EQUIPMENT CORPORATION

"ZRMSBO ’M05/3/2 DU POR TST 2

MACRC v04.00

4-APR-B7

1
c
18:08:36 PAGE 2

RECUIREMENTS

2.1
2.2
2.3

:
[EQUIPMENT
PREREQUISITE PROGRAMS
OTHER PROGRAMS

LOADING PROCEDURES
STARTING PROCEDURES

4.1
4.2

STARTING ADDRESSES
OPERATOR ACTION

OPERATING PROCEDURES

5.1
5.2

'SOFTWARE' SWITCH REGISTER
OPERATIONAL SWITCH SETTINGS

5.4

DUAL PORT TEST CABLE CONNECTION

5.3

TEST SELECTION

ERRORS
MISCELLANEOUS

\l\l.\l\l\l\l

ABSTRACT

AWV SN =

VB W= O 00N

PONININININD
= =3 b D e b ed = ek

NS WN 2O 000 NN

S NN

CONTENTS
e
e
=

RESTRICTIONS

LIMITATIONS
EXECUTION TIME

REQUIRED TESTS

DISK SURFACE USAGE
LOOP ON ERROR OPTION

TEST DESCRIPTIONS

SEQ 0002

TST 2

MACRO

v04.00

BN — O O 00 NN
B NA -

CZRMSB0 RMOS5/3/2 Du POR

SEQ 0003

THE RM05/3/2 DUAL PORT LOGIC TEST PERFORMS A SERIES OF
TESTS WHICH VERIFY THAT THE RM05/3/2 DUAL PORT LCGIC
IS FUNCTIONING PROPERLY.
ONLY THE CONTROL LOGIC IS TESTED
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE
IS NOT TESTED BY THIS PROGRAM.
BOTH PORTS OF

THE DRIVE ARE CABLED TO THE SAME MASSBUS BY

A SPECIAL ADAPTER CABLE.

THIS ARRANGEMENT ALLOWS THE DUAL

PORT LOGIC TO BE TESTED FROM ONE PCP=11, RH11 OR RH70.
THIS PROGRAM IS THE SECOND PART OF

THE RM05/3/2 DUAL PORT

OPTION LOGIC TEST. AND IS USED TO TEST THE 'PORT SELECT

REQUIREMENTS
—

SWITCH.

W= OO0

ABSTRACT

NN W W WO TN NN TNONNONON) = 2 a2 a

h--%

18:08:36 PAGE

EQUIPMENT

WA= OV

PDP-11 PROCESSOR
8K MEMORY
KWll-L OR KW11-P CLOCK
TERMINAL

RH11 OR RH70

1 - DISK DRIVE

(RMO5, RMO3 OR RM02)

RM DUAL PORT TEST CABLE (P/N:
PREREQUISITE PROGRAMS

RMO5/3/2 DISKLESS TEST, PART 1

RM05/3/2 FUNCTIONAL TEST, PART 1, 28 3

PORT (A € B).

OOV

2.2

7010507-02)

BN NN

NI N

4-APR-81

& 2

THE PRELIMINARY PROGRAMS MUST BE RUN TWICE:

2.3

ONCE

FROM EACH

RMO05/3/2 DUAL PORT LOGIC TEST, PART 1

OTHER PROGRAMS

DYNAMIC OPERATION OF

THE DUAL PORT OPTION IS TESTED

‘N

BY THE RM05/3/2 PERFORMANCE EXERCISER PROGRAM.

LOADING PROCEDURES

THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE
LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA
USING THE ASSOCIATED'XXDP' LOADER.
THF PROGRAM MAY NOT

(ZRMSBO RM0S5/3/2 Du POR 1ST 2

MACRO v04.00

B8E INCLUDED IN AN *XXDP' CHAIN.

58
59
60
61

STARTING PROCEDURES
4.1

STARTING ADDRESSES
A.

THE NORMAL STARTING ADDRESS OF

200(8).

gg ?E%ggg

4.2

THE PROGRAM IS LOCATION

STARTING AT THIS ADDRESS ALLOWS THE OPERATOR
(OR RESELECT)

THE ADDRESS OF

THE DRIVE

THE RESTART ADDRESS IS LOCATION 204(8).
WILL USE THE CURRENT DRIVE ADDRESS.

THE PROGRAM CAN BE STARTED AT LOCATION 210(8)
THE RH11 OR RH70 ADDRESS TO BE CHANGED.

THE PROGRAM
TO ALLOW

OPERATOR ACTION
A.

B.
C.
D.
E.
F.
G.
H.

CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A
€ BUS B ON THE DRIVE BEING TESTED.
(SEE SECTION 5.4)
LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLL
ING
THE MASSBUS USED FOR TESTING.

SWITCH THE 'PORT SELECT' SWITCH ON THE DRIVE TO BE
TESTED TO THE 'A/B' POSITION.
CYCLE THE DRIVE UP.
LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8))
INTO THE SWITCH REGISTER (OR THE 'SOFTWARE' SWITCH REGISTER,
SEE SECTION 5.2.)
PRESS START.
ENTER THE DRIVE NUMBER.
ENTER THE NUMBER OF THE TEST TO BE RUN.
('CARRIAGE RETURN'

OR '0" WILL RUN ALL TESTS.)

THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED

FROM LOCATION 204.

OPERATING PROCEDURES

ol e

s ol et e

) e

Fan2o3RRRAC2SERURERRC2STRIRRRRT

4-APR-B1 18:08:36 PAGE 3-

3.3

'SOFTWARE®

SWITCH REGISTER

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER

NOT PRESENT AND WILL USE A °'SOFTWARE®' SWITCH REGISTER.
THE
‘SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'.
THE PROGRAM WILL
RECOGNIZE THE °"CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM

IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT.

1HE

'SOF TWARE®' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

'SWR = NNNNNN

NEW ="'

~§ NN

et T
J YA
S
o
OO OO
NN
NIVINWSES B BN B DD D B D D W
N NN N N N N NN N PO PO PO PO PO PO NI DD b —d -2 o

—aooswgwbwm—-ooonwo\n»um—aoom\:o\nbum—-oom NOWVB W =000 N0 NS W = OO0~

(ZRMSBO RMOS/3/2 DU POR TST 2

MACRC v04.00

4-APR-B1

18:08:36 PAGE 3-2

SEQ

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT'
'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY.
ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

THE

'SOFTWARE'

AND

SWITCH

REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES.
ALL SWITCH REGISTER REFERENCES WILL BE TO THE °'SOFTWARE' REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

5.2

OPERATIONAL SWITCH SETTINGS
WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL
ALL ERRORS AND CONTINUE TESTING.

TYPE

THE SWITCH SETTINGS ARE:

SW<15>=1
SW<14>=1
SW<13>=1
SW<11>=1
SW<10>=1
SW<09>=1
5.3

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT TEST ITERATIONS
RING TTY BELL ON ERROR
LOOP ON ERROR

TEST SELECTION
INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE °"ENTER
TEST NUMBER:' MESSAGE.
ANY VALID TEST NUMBER CAN BE
ENTERED.
EACH ENTRY MUST BE TERMINATED BY A CARRIAGE
RETURN (CR).
THE LOOP ON TEST SWITCH, SW<14>, MUST BE SET
TO ALL

CONTINUOUS EXECUTION OF

TO RUN ALL

TESTS IN SEQUENCE,

THE

SELECTED TEST.

ENTER EITHER A

'0'

FOLLOWED

BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF.
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE.

THE

THE "RUBOUT KEY' (RO) CAN BE USED TO DELETE THE LAST
CHARACTER ENTERED.
SUCCESSIVELY STRIKING THE RO KEY
WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE
BEEN DELETED.
CHARACTERS DELETED BY THE RO KEY WILL BE
TYPED AND WILL BE SEPARATED BY '\' FROM THE CHARACTERS

ENTERED BY THE OPERATOR.

THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A

'CONTROL U'

5.4

TEST CABLE CONNECTION
TO TEST THE RM0S5/3/2 DUAL PORT OPTION WITH THIS PROGRAM,
A SPECIAL TEST CABLE MUST BE USED.
(THE TEST CABLE IS

P/N: 7010507-02).
THE TEST CABLE CONNECTS MASSBUS A & MASSBUS
B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO
THAT BIT O OF THE MASSBUS.UNIT SELECT LINES IS COMPLEMENTED.
WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST,
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS:
EACH PCRT

0005

MACRO v04.00

4-APR-B1

1
G
1B8:08:36 PAGE 3-3

SEQ 0006

OF THE RM05/3/2 WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS.

83@ngbuw—-gom\lgmgumdgy;wouydfu

(ZRMSBO RM05/3/2 DU POR TST 2

THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S
ADDRESS PLUG.
THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH

00 30 0o Qo G

000

PORTS.
(ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE).

DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST THE DRIVE.
IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT A,
CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO J3 OF THE

=
*

* POWERED DOWN.
AR

A A

A A A AR AR A A A AR AR AR

A AN R AR AR AR

AR AR AR

THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL

OO0

RM05/3/2 BACK PANEL,THEN CONNECT THE TEST CABLE (P/N: 7010507-02)
FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT B AT J6.
WHEN THE DUAL PORT TEST CABLE

IS CONNECTED,

THE ATTENTION

BITS FOR PORTS A & B ARE ASSERTED IN THE SAME BIT POSITION
WHEN "RMAS' (ATTENTION SUMMARY REGISTER) IS READ.
THE ATTENTION
BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE.
THE ATTENTION BIT THAT APPEARS FOR THE DRIVE

INCLUSIVE

IS THE

'OR' OF THE PORT A & PORT B ATTENTION BITS.

—

OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN
'RMDS' (DRIVE STATUS REGISTER) T0 DETERM]NE THE STATE
OF THE SELECTED PORT'S ATTENTION BIT.

VWt
= O 00NN
S winy =O 0

RR
T T T T e T T T T T LR

* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS IN
* CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE

20%

WHEN THE PROGRAM ENCOUNTERS AN ERROR,

THE ERROR ROUTINE

BECAUSE

CALLED AND IF SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING
TO THE ERROR WILL BE
THE FOLLOWING:

A.
B.
C.

THE TEST NUMBER

EACH ERROR TYPEOUT WILL

CONTAIN

THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR
CALL WAS MADE
CONTENTS OF THE APPROPIATE REGISTERS

MISCELLANEOUS

7.1

TYPED.

AN ERROR MESSAGE
A DATA HEADER LINE
A DATA LINE CONTAINING:

PURUNLTUNC PUNLTUNUNC NUNLNUNUNUNY
NONUNY
— > -3
s- 2

RESTRICTIONS

MACRO v04.00

4-APR-B1 18:08:36 PAGE 3-4

NN
N NN NN

NGO \hrum-go

LS LAV LNV ST ST N1, ST

CZRMSBC RM05/3/2 DU POR TST 2

70 RUN THIS PROGRAM,

OR A KWil-L CLOCK.

THE SYSTEM MUST HAVE EITHER A KWl1=-P

ADDITIONALLY, THE RM05/3/2 UNDER TEST

MUST HAVE THE DUAL PORT TEST CABLE CONNECTED.
7.2

LIMITATIONS
THIS PROGRAM DOES NOT TEST DATA TRANSFERS

THROUGH EITHER

gg:; SgglggES NOT TEST THE DYNAMIC OPERATION OF

THE DUAL

EXECUTION TIME
THE PROGRAM TAKES ABOUT 4 MINUTES PER PASS (DEPENDING ON
OPERATOR INTERVENTION EFFICIENCY).

7.4

REQUIRED TESTS

IF THE PROGRAM 1S BEING EXECUTED IN SINGLE TEST MOLE, THE
OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER
TESTS ARE RUN:

NONWN B

LSS
LN T NN

2
252

TEST 2 AND TEST 3.

RESPECTIVELY.

THESE TESTS SET

'VV-A' AND 'VV-B'

THESE TESTS MUST BE PERFORMED AT LEAST ONCE

BEFORE TESTS 4 - 10 ARE RUN.
B.

7.5

TEST 4 AND TEST 5.
THESE TESTS DETERMINE AND STORE FOR
LATER USE THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH
EACH PORT.
THESE TESTS MUST BE PERFORMED AT LEAST ONCE BEFORE
TESTS 6 = 10 ARE RUN.

DISK SURFACE USAGE
THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE.
HOWEVER, THE
gfiéVE MUST BE CYCLED UP AND ON LINE FOR THE DIAGNOSTIC TO BE

7.8

LOOP ON ERROR OPTION

IF SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING.

BECAUSE THE PROGRAM MUST RESET THE RM05/3/2 TO A KNOWN STATE
BEFORE LOOPING ON THE ERROR, THE TEST FOR SW<09> IS PERFORMED
AT THE END OF
WAS DETECTED.

THE TEST = NOT AT THE POINT WHERE THE ERROR

TEST DESCRIPTIONS

METHOD USED TO VERIFY THAT DRIVE

IS IN NEUTRAL

THE PROGRAM DETERMINES THE THE DRIVE IS IN NEUTRAL BY CHECKING
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH

BOTH PORTS.

THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS

(ZRMSBO RMOS5/3/2 DU POR TST 2
286
287
288
289
290
291
292
293
294
295

MACRO v04.00

4-APR-81

18:08:36 PAGE 3-5

SEQ@ 0008

(*ATA® & "VV') AND VERIFIES
THAT CORRECT STATUS IS READ
THROUGH BOTH PORTS.
( THE CORRECT STATUS IS 'MOL‘', ‘'PGM',

'DPR*, & "DRY'.)
IF NEITHER PORT SEES ALL ZEROS FROM
RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL
AND THAT ANY BIT DISCREPANCY BETWEEN PORTS INDICATES A
FAILURE IN THE PATH FOR THAT BIT.

8.2

METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED
THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED BY

CHECKING THE DRIVE STATUS REGISTER (RMDS)

THROUGH

THE SEIZING PORT AND VERIFING THAT CORRECT STATUS

SEEN.
WHEN RMDS IS READ THROUGH THE OPPOSITE PORT,
ZEROS SHOULD BE SEEN.
IF BOTH CONDITIONS EXIST, (I.E.,
THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE
HAS BEEN SEIZED BY THE SPECIFIED PORT.

TEST

DRIVE ACCESS

TEST

N A N N N N N O
[S

-0

SELECT DRIVE,

VERIFY THAT THE DRIVE

"PGM',

TEST 2

THAT

THE

IS THE SAME.

THE TEST IS REPEATED THROUGH BOTH PORTS.
SET

'VV'

FOR PORT A

SET VOLUME VALID
A.

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A.

ISSUE A READIN PRESET COMMAND THROUGH PORT A.
THAT THE °'Vvv' BIT IS SET FOR PORT A.

ISSUE A RELEASE COMMAND THROUGH PORT A.
THE DRIVE RETURNED TO NEUTRAL AND

BIT IS SET.
TEST 3

SET

(RMDS HAS

°'DPR', & 'DRY' BITS SET), AND THE THE DRIVE

NUMBER READ THROUGH BOTH PORTS

IS PRESENT,

DRIVE IS A DUAL PORT RM05/3/2, THAT THE DRIVE IS ONLINE
'MOL',

W
NN
NI NS W= OO0

AN A A U

VIS WA~ OV

N AN

FERG gtflngwwuuwmmv\:mwmwmum BB b BB =D D =D e =B

N N N AN NN N N N N N N N N N

VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS

'VV'

FOR PORT B

SET VOLUME VALID

VERIFY

VERIFY THAT

THAT NEITHER ATTENTION

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B.

ISSUE A READIN PRESET COMMAND THROUGH PORT B.
THAT THE 'vv' BIT IS SET FOR PORT B.

ISSUE A RELEASE COMMAND THROUGH PORT B.
VERIFY THAT
THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION
8it IS SET.

VERIFY

SERIAL

(ZRMSBO RMOS/3/2 DU POR TST 2

MACRO v04.00

4-APR-81 18:08:36 PAGE 3-6

SEQ 0009

343
TEST &

MEASURE

THE

TIMEOUT ONE-SHOT

THROUGH PORT A

sEEy

MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A

N NN NN NN NN WN
SNNNNNNNN ~NO

361

WRITE 0'S INTO RMDS THROUGH PORT A AND VERIFY THAT
DRIVE HAS BEEN SEIZED.

WAIT FOR TIMEOUT TO OCCUR.
MEASURE THE DURATION OF
ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

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

TEST 5

MEASURE

THE

THE
THE

TIMEOUT ONE-SHOT THROUGH PORT B

TIMEOUT ONE-SHOT VALUE

THROUGH PORT B

WRITE 0'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE
DRIVE HAS BEEN SEIZED.

WAIT FOR TIMEOUT TO OCCUR.
MEASURE THE DURATION OF
ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

VERIFY THAT THE
TO NEUTRAL

TEST 6
TEST

TEST

TIMEOUT

THE

SWITCH, DRIVE
°'PORT SELECT'

CYCLED UP
SWITCH (DRIVE

CYCLED uP).

SWITCH TO PORT 'A' POSITION.
VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS,

THE

TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS

'PORT SELECT'

THE OPERATION OF

TIMEOUT

ARE CORRECT.

SWITCH TO PORT 'B' POSITION. VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORRECT.

RETURN THE

TEST 7

TEST

'PORT SELECT'

THE DRIVE STATE.

"PORT SELECT'

TEST THE OPERATION OF

THE

SWITCH TO THE

'A/B' POSITION.

VERIFY

SWITCH LOCKED ON PORT A
°'PORT SELECT'

SWITCH (DRIVE CYCLED DOWN).

CYCLE

THE DRIVE DOWN.

SWITCH TO PORT "A' POSITION.
VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BCTH
PORTS,

ARE

SWITCH THE

CORRECT.

'PORT SELECT' SWITCH TO A;

CYCLE THE DRIVE UP.

(ZRMSBO RM05/3/2 DU PCR TST 2

MACRO v04.00

400
401

4-APR-81

1
K
18:08:36 PAGE 3-7

SEQ 0010

WHEN THE DRIVE CYCLES UP, VERIFY THAT
THAT °'ATA-A IS SET.

'vv=-A IS RESET, AND

IS'S)l(f"AADRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH
VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND
'NED* SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH
PORT B.
ATTEMPT TO SET PORT REQUEST BY WRITING 0°'S
INTO RMDS THROUGH PORT B.

ISSUE A RELEASE COMMAND THROUGH PORT A.

VAW

=200V

IR 2 SRR 2 T
k¥ ¥ o8
NNOMPRONNVNN)
R LD

412

4e7

DRIVE REMAINS LOCKED ON PORT A.

TEST 10 TEST

'PORT SELECT'

TEST THE OPERATION OF

THE

VERIFY THAT THE

SWITCH LOCKED ON PORT B
'PORT SELECT'

SWITCH (DRIVE CYCLED DOWN).

CYCLE THE DRIVE DOWN.

SWITCH TO PORT °'B' POSITION.
VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORRECT.

SWITCH THE

'PORT SELECT'

SWITCH TO B;

CYCLE THE DRIVE UP.

WHEN THE DRIVE CYCLES UP, VERIFY THAT
THAT "ATA-B IS SET.

'VV-B IS RESET, AND

IsggETABDRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH
VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND

'NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH

PORT A.
ATTEMPT TO SET PORT REQUEST BY WRITING 0'S
INTO RMDS THROUGH PORT A.

ISSUE A RELEASE COMMAND THROUGH PORT B.
DRIVE REMAINS LOCKED ON PORT B.

CYCLE THE DRIVE DOWN.
A/B;

CYCLE

VERIFY THAT THE

CHANGE THE 'PORT SELECT'

THE DRIVE UP.

SWITCH TO

VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION
BITS ARE SET, AND THAT BOTH 'VV' BITS ARE RESET.

MACRO v04.00

4-APR-E1

18:08:36 PAGE &

SEQ 0011

;*LAST REVISION C4-APR-81

[0
XV
N

b wah

(ZRMSBO RM05/3/2 DU POR TST 2

.TITLE CZRMSBO RM05/3/2 DU POR TST 2
:*COPYRIGHT (C) 1981
:*DIGITAL EQUIPMENT CORPORATION

*COL(RADO SPGS., CO0. 80919
'PROGRM BY MIKE LEAVITT

'THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
;*PACKAGE (MAINDEC-11-DZQAC-C5), 18-MAR-81
't

"SBTTL

517

- &

:®

—_—————

ey
X

15
14

oTM

pelev

L
.SBTTL

USE

SWITCH

- %

001100

OPERATIONAL SWITCH SETTINGS

HALT ON ERROR
LOOP ON TEST

INHIBIT ERROR TYPEOUTS

INHIBIT ITERATIONS

BELL ON ERROR

LOOP ON ERROR

BASIC DEFINITIONS

;*INITIAL ADDRESS OF
STACK
= 1100

THE STACK POINTER *x* 17100 %=

104000
000004

ERROR
SCOPE

000011
000012
000015
000200
177776
177776
177774
177772
177570
177570

2 11

;:CODE FOR HORIZONTAL

;gu -

= V27776

: :PROCESSOR STATUS WORD

000000
000001
000002
000003
000004
000005

RO
R1
R2
R3
R4
RS
R6
R7
SP
PC

= EMT
= IOT

;;BASIC DEFINITION OF ERROR CALL
:;BASIC DEFINITION OF SCOPE CALL

s *MISCELLANEOUS DEF INITIONS

LF
(R
CRLF

= 12
=15
= 200

TAB

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

STKLMT

= 177774

;;STACK LIMIT REGISTER

DSWR

= 177570

; sHARDWARE SWITCH REGISTER

PIRQ

DDISP

= Y72

= 177570

: :PROGRAM INTERRUPT REQUEST REGISTER

; ;HARDWARE DISPLAY REGISTER

; *GENERAL PURPOSE REGISTER DEFINITIONS
= 30
=X
= %2
X3
= %6
=P
= 16
z 37
= 26
= 37

; ;GENERAL REGISTER
; sGENERAL REGISTER
; ;GENERAL REGISTER
2 ;GENERAL REGISTER
; ;GENERAL REGISTER
; :GENERAL REGISTER
: ;GENERAL REGISTER
; ;GENERAL REGISTER
;:STACK POINTER
; ;PROGRAM COUNTER

s*PRIORITY LEVEL DEFINITIONS

PRO
PR1

=0
= 40

::PRIORITY LEVEL O
::PRIORITY LEVEL 1

BASIC DEF INITIONS

000100
000140
000200
000240
300
000340

MACRO v04.00
PR2
PR3
PR4
PRS
PR6
PR7

4-APR-81 18:08:36 PAGE 4-1
=
=
=
=
=
=

100
140
200
240
300
340

;:PRIORITY
;;PRIORITY
;sPRIORITY
;:PRIORITY
;:PRIORITY
;sPRIORITY

SEQ 0017
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*"'SWITCH REGISTER'® SWITCH DEFINITIONS

SWi15
SWi14

= 100000
= 40000

SwW12

= 10000

Swi3

SW11
SW10
SW09
Sw08
SW07
SW06
SW05
SW04

SwW03

= 20000
= 4000
= 2000
= 1000
= 400
= 200
= 100
=40
= 20

= 10

= %
Sw02
SW01
=2
= 4
SW00
SW9=SW09
SW8=Sw08
SW7=SW07
SW6=SW0&
SW5=SW05
SW4=SW04
SW3=Sw03
Sw2=Sw02
SW1=SW01
SWO=SW00

;*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT15
= 100000
BIT14
= 40000
BIT13
= 20000
BIT12
= 10000
BIT11
= 4000
BITI0
= 2000
BITO9
= 1000
BITO8
= 400
BITO7
= 200
BITO6
= 100
BITO5
=40
BITO4 - = 20
BITO3
=10
=4
BITO2
BITO1
=2
=1
BITOO
BIT9=BITO
BIT8=BIT08
BIT7=BIT07
BIT6=BIT06
BITS=BITOS

NOAn
S W

(ZRMSBO RMOS5/3/2 DU POR TST 2

- CZRMSBO RM05/3/2 DU POR TST 2

| BASIC DEF INITIONS

MACRO v04.00

000020
000010
000004
000002
000001

BIT4=BIT04
BIT3=BIT03
BIT2=B1T02
BIT1=BITO1
B8ITO=BITO0

000004
000010
000014
000014

ERRVEC
RESVEC
TBITVEC
TRIVEC
BPTVEC

=
=
=
=
=

PWRVEC

= 24

;;TIME OUT AND OTHER ERRORS
;sRESERVED AND ILLEGAL INSTRUCTIONS
22T BIY
;::TRACE TRAP
; :BREAKPOINT TRAP (BPT)

10
14
14
14

= 20

;s INPUT/0UTPUT TRAP (IOT) =xSCOPE*~

; ;POWER FAIL

TKVEC
= 60
TPVEC
= 64
_ PIRQVEC = 240

.SBTTL

100000

;;EMULATOR TRAP (EMT) **ERROR**
::"'TRAP'' TRAP

RH/RM

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

REGISTERS

:CONTROL AND STATUS REGISTER 1

(RMCS1)

= 100

A7
PSEL
MCPE
TRE
sC

=
=
=
=
=

; INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT (BIT #8)
;HIGH ORDER BUS ADDRESS BIT (BIT #9)
;PORT SELECT (BIT #10)
;MASSBUSS PARITY ERROR (BIT #13)
;TRANSFER ERROR (BIT #14)
;SPECIAL CONDITION (BIT #15)

RDY
Al6

= 200
= 400

1000
2000
20000
40000

100000

;WORD COUNT REGISTER (RMWC)
;(EACH BIT IS CALLED BY BIT NUMBER)

LIV

NI AT

T UL U

DT Y VTV

LS LS LS LN LN LN LV IS LS LN

WV —=O 00 NOWVNBWLUV—_0O
0NV WN—-O

EMTVEC = 30
TRAPVEC = 34

000100
000200
000400
001000
002000
020000
040000

SEQ 0013

;*BASIC "CPU' TRAP VECTOR ADDRESSES

IOTVEC

000240

4-APR-81 18:08:36 PAGE 4-2

;BUS ADDRESS REGISTER (RMBA)
; (EACH BIT IS CALLED BY BIT NUMBER)

;CONTROL AND STATUS REGISTER 2 (RMCS2)
uo

PAT

= 20

u3
BAI

= 4
=10

CLR
IR
OR
MDPE
MXF

=
=
=
=
=

40
100
200
400
1000

NEM
NED
UPE
WCE

=
=
=
=

4000
10000
20000
40000

PGE

DLT

= 2000

= 100000

JUNIT SELECT
JUNIT SELECT
JUNIT SELECT
;BUS ADDRESS

(BIT #0)
(BIT #1)
(BIT #2)
INCREMENT INHIBIT (BIT #3)

;MASSBUS PARITY TEST (BIT #4)

;CLEAR (BIT #5)

: INPUT READY (BIT #6)

:0UTPUT READY (BIT #7)
*MASS BUS PARITY ERROR (BIT #8)
:MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
;NON EXISTENT MEMORY (BIT #11)
;NON EXISTENT DRIVE (BIT #12)
:UNIBUS PARITY ERROR (BIT #13)
SWRITE CHECK ERROR (BIT #14)

:DATA LATE (BIT #15)

. (ZRMSBO RM0S5/3/2 DU POR TST 2

. RM/RM

REGISTERS

558
559

MACRO v04.0C

4-APR-B1

B 2
18:08:36 PAGE 4-3

:DATA BUFFER REGISTER (RMDB)
:(EACH BIT IS CALLED BY BIT NUMBER)

560
561
562

.SBTTL

RM REGISTERS

;CONTROL AND STATUS 1 REGISTER. (#00)

564

;GO BIT

sFUNCTION CODE BIT #2

sFUNCTION CODE BIT #3

sFUNCTION CODE BIT #4

sFUNCTION CODE BIT #5

4000

;DEVICE AVAILABLE (BIT #11)

DIGB
GRV

DL64
DE1
Vv

DRY
DPR
PGM

LBT

WRL
MOL
PIP
ERR
ATA

Haonnnunnunnenwnwnnnnn

;DRIVE STATUS REGISTER (RMDS)
;DF5
DFF20

1}
T

RMR
PAR

DRIVE FORWARD 5°''/SEC.

;DRIVE TO INNER GUARD BAND

10
20
40

100

200

400
1000
2000
4000
10000
20000
40000
100000

1
I

FER
WCF
ECH
HCE
HCRC
AOE
1AE
WLE
DTE
0Pl
UNS
DCK

:DRIVE FORWARD 20°‘/SEC.

<(BII #0)

(BIT #1)

:VOLUME VALID (BIT #6)
;DRIVE READY (BIT #7)

;DRIVE PRESENT (BIT #8)
;PROGRAMABLE (BIT #9)
;LAST SECTOR TRANSFERRED (BIT #10)
;WRITE LOCK (BIT #11)
;MEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS (BIT #13)
;COMPOSITE ERROR (BIT #14)
SATTENTION ACTIVE (BIT #15)
(RMER1) (#02)
sILLEGAL FUNCTION (BIT #0)

;ILLEGAL REGISTER (BIT #1)
;PARITY ERROR (BIT #3)

DMD

(BIT #2)

:FORMAT ERROR (BIT #4)

40
100
200

sWRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (BIT #7)

1000
2000
4000
10000
20000

;ADDRESS -OVERFLOW ERROR (BIT #9)
;INVALID ADDRESS ERROR (BIT #10)
;WRITE LOCK ERROR (BIT #11)
;DRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (BIT #13)

100000

;DATA CHECK ERROR (BIT 15)

400

40000

;HEADER CRC ERROR (BIT #8)

;DRIVE UNSAFE (BIT #14)

sMAINTAINABILITY REGISTER (RMMR1) (#03)
000001

(BIT #2)

;GO REVERSE (BIT #3)
sDIFFERENCE LESS THAN 64 (BIT #4)
;DIFFERENCE EQUALS 1 (BIT #5)

38 2% 322388883
e

el el ol

S WO

200NN

100000

ILF
ILR

(#01)

:ERROR REGISTER #01
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

(BIT #0)

sFUNCTION CODE BIT #1

596

SEQ 0014

;DIAGINOSTIC MODE (BIT #0)

SEQ 0015

SATTENTION SUMMARY PSEUDO-REGISTER

ATO
AT1
AT2

AT3

AT4
ATS
AT6
AT7

(RMAS)

(#04)

NOWVNSB
W ~O

620
621

1B:08:36 PAGE 4-4

(BIT
8IT
(BIT
(8IT
(8IT
(BIT
(BIT
(BIT

;sDEVICE
sDEVICE
;DEVICE
sDEVICE
sDEVICE
sDEVICE
sDEVICE
sDEVICE

¥35%3

615
616
617
618
619

4-APR-B1

. RM REGISTERS

MACRO v04.00

(ZRMSBO RMOS5/3/2 DU PCR TST 2

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA)
;(EACH BIT IS CALLED BY BIT NUMBER)

#0)

#1)

#2)
#3)
LLY]

#5)

#6)

#7)

(#05)

:DRIVE TYPE REGISTER (RMDT) (#06)

DT00

D104

=20

DT01
DT02
DT03
DT05

DT06

DT07
DT08
DRQ

MOH
TAP
NBA

=2
=4
= 10

;DRIVE TYPE NUMBER BIT

;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
:DRIVE TYPE NUMBER BIT

2
3
4

:DRIVE TYPE NUMBER BIT

;DRIVE TYPE NUMBER BIT

= 40

= 100

;DRIVE TYPE NUMBER BIT 7

= 200
= 400
= 4000

;DRIVE TYPE NUMBER BIT 8
;DRIVE TYPE NUMBER BIT 9
;DRIVE REQUEST REQUIRED (BIT #11)

= 20000
= 40000
= 100000

;MOVING HEAD (BIT #13)
;TAPE DRIVE (BIT #14)
;NOT BLOCK ADDRESSED (BIT #15)

VITT
VI
T
2%
§8828%28288 oooooooooogg
VNN
W
—=O V0
~ OO

;LOOK~AHEAD REGISTER (RMLA) (#07)
SCO
5C1
SC2
SC3
SC4

=
=
=
=
=

100
200
400
1000
2000

;SECTOR
;SECTOR
;SECTOR
;SECTOR
sSECTOR

;RM ERROR REGISTER #2 (RMER2)

COUNT
COUNT
COUNT
COUNT
COUNT

FIELD
FIELD
FIELD
FIELD
FIELD

=10

:DATA PARITY ERRCR

OPE

= 20000

;OPERATOR ERROR

SK1

=
=
=
=

200
2000
4000
10000

OFD
HCI
ECI
FMT16

=
=
=
=

#6)
#7)
#8)
#9)
#10

(BIT #3)

;DEVICE CHECK
(BIT #7)
;LOSS OF BIT CLOCK (BIT #10)
;LOSS OF SYSTEM CLOCK (BIT #11)
;INVALID COMMAND (BIT #12)

= 100000

;OFFSET REGISTER (RMOF)

(BIT
(BIT
(BIT
(BIT
(BIT

(#10)

DPE

Dv(
LBC
LSC
1vC

O
1
2
3
4

;SEEK INCOMPLETE

(BIT #13)
(BIT #14)

(#11)

200
2000
4000
10000

;DESIRED CYLINDER ADDRESS (RMDC)

;OFFSET FORWARD (BIT #5)
sHEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT (BIT #12

(#12)

(ZRMSBO RMO5/3/2 DU POR TST 2

RM REGISTERS

MACRO v04.00

4-APR-B1

D 2
18:08:36 PAGE 4-5

SEQ 0016

;(EACH BIT IS CALLED BY BIT NUMBER)

672
673
€74
675
676

;SERIAL NUMBER REGISTER (RMSN) (#14)
;(EACH IS CALLED BY BIT1 NUMBER)

FEFEFIAL
I T FER

;ECC POSITION REGISTER (RMEC1) (#16)
; (EACH BIT IS CALLED BY BIT NUMBER)

;ECC PATTERN REGISTER (RMEC2) (#17)

;(EACH BIT IS CALLED BY BIT NUMBER)
.SBTTL

DEFINITIONS OF THE RH/RM ADDRESS INDEXES

RMCST

;CONTROL AND STATUS REGISTER #1

RMBA
RMDA
RMCS2

=4
=6
= 10

;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)

RMERT

= 14

RMMR1

= 24

RMWC

RMDS

RMAS
RMLA
RMDB

RMDT
RMSN
RMOF
RMDC
RMMR2
RMERZ

000046

RMECT
RMEC2

=12

;DRIVE STATUS REGISTER (DRIVE REG 01)
;ERROR REGISTER #1

=16
= 20
= 22
=
=
=
=
=
=

(DRIVE REG. 02)

;ATTENTION SUMMARY PSEUDO REGISTER_(DRIVE REG. 04)
;LOOK AHEAD REGISTER (DRIVE REG. 07)
;DATA BUFFER REGISTER (NOT A DRIVE REG.)
sMAINTAINABILITY REGISTER (DRIVE REG. 03)

26
30
32
34
40
42

= 44
= 46

(DRIVE REG. 00)

;WORD COUNT REGISTER (NOT A DRIVE REG)

;DRIVE TYPE REGISTER (DRIVE REG. 06)
:SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE REG. 11)
;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG.
sMAINTENANCE REGISTER #2 (DRIVE REG. 14)
;ERROR REGISTER #2 (DRIVE REG. 15)
"~

;ECC POSITION REGISTER (DRIVE REG.
;ECC PATTERN REGISTER (DRIVE REG.

16)
17)

12)

CZRMSBO ’MO5/3/2 Du POR 75T 2

TRAP CATOMER

MACRO v04.00

.SBTTL

4-APR-B1

E
2
18:08:36 PAGE 35

SEQ 0017

TRAP CAT(HER
.=0

s*ALL UNUSED LOCATIONS FROM & - 776 (ONTAIN A ‘‘.+2 HALT'
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

;*LOCATION (7)‘C(NTA1NS O TO CATCH IMPROPERLY LOADED VECTORS

000174

DISPREG: .WORD 0
SWREG:

AR 2RV LN

.SBTTL

WORD

::SOFTWARE DISPLAY REGISTER
:;SOF TWARE SWITCH REGISTER

STARTING ADDRESS(ES)

000200

000137

001766

JMP

Q#START

:;JUMP TO STARTING ADDRESS OF PROGRAM

000204

000137

001774

JMP

A#START1

;START AND (HANGE THE RH/RM ADDRESS

.SBTTL

ACT11 HOOKS

':tttttttlt..ttt'fi'fi."'t"tt't'.'i.tt'l’t.tl..'.t'.t.'Q"..'."Q.l

000210

*HOOKS REQUIRED BY ACT11
sszgc=.

:SAVE PC

000046

iéggAp

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP

00c052

.WORD

.=$SVPC

20000

;:2)SET LOC.52 TO 20000
;s

RESTORE P(

CZRMSBO RMOS5/3/2 DU POR TST 2

(OMMON TAGS

MACRO v04.00

4-APR-B1

.SBTTL

18:08:36 PAGE 6

SEQ 0018

COMMON TAGS

ok AR AR AR AN A AR AR A AR AT AR AT AT AR AR RAAAARNAARAAARAAAARRRARA

;*THIS

TABLE

CONTAINS VARIOUS

001170
Q01172
) e

001174
001176
001200
ld e

001202
s =l

001206
001207
001210

SWR:

DISPLAY:

000000
000000

207

Q77
015
012

$TPS:

177564

377
000

377

177562

177566
.BYTE
.BYTE
.BYTE
.BYTE
.WORD

$REGO:
$TMPO:
$TMP1:
$TMP2:
$TMP3:

.WORD
.WORD
.WORD
.WORD
.WORD

$QUES:
$CRLF:
$LF:

.ASCII
_ASCII
JASCIZ

$NULL:
$FILLS:
$FILLC:
$TPFLG:
$REGAD:

000000
000000
000000

177560

$TPB:

000
000000

.WORD

$TKS:

$TKB:

7562
7564
7566
000
002
012

.WORD

$TMP4:
. WORD
$TIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ

COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG

;;AUTOMATIC MODE INDICATOR
;. INTERRUPT MODE INDICATOR
LY

$AUTOB:
$INTAG:

LOCATIONS

;;CONTAINS SUBTEST ITERATION COUNT
- :CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
;s CONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
;;CONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
. :CONTAINS ADDRESS OF 'GOOD' DATA
;;CONTAINS ADDRESS OF 'BAD' DATA
;;CONTAINS "GOOD' DATA
;;CONTAINS °"BAD' DATA
; sRESERVED=-=-NCT TO BE USED

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

.WORD

(OMMON STORAGE

;;START OF
2 sCONTAINS
;;CONTAINS
;s CONTAINS

E(fl

$GDDAT:
$BDDAT:

OOoO—=NO

PUNUNY
=D ot od e e o e

001162
001164
0C1166

.WORD
_BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

$BDADR:

roR AR

o o o o e

ONONRN S

D
D i e
e
D e
el
D e
D e e
el

00115
001160

$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:

A
SR RS

e
D v
) e

D e

d e e o o o e o e e ed d e d ed e
NN NNV NI NN =

0
0
0
00114
00114
00114
00114
00115
00115
00115
00115
00115

.=1100
o0 [eolelelolelelelelelelleleolelelelslele)

SCMTAG:

COO0O0OO

osRanS3

001100

D e

D wd o

b e e d o e o e weid wd
e -

8388838838333333833333383

:*USED IN THE PROGRAM.

AT C AR R R RS

;sADDRESS OF SWITCH REGISTER
; ;ADDRESS OF DISPLAY REGISTER
;:TTY
::TTY
;:TTY
;:TTY

KBD STATUS
KBD BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

ADDRESS
ADDRESS

;;CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A "LINE FEED''

;o 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;CONTAINS THE ADDRESS FROM
;cWHICH (SREGO) WAS OBTAINED
;s CONTAINS ((SREGAD)+0)

;sUSER DEF INED
:;USER DEF INED
; ;USER DEF INED
;;USER DEF INED
; ;USER DEF INED
;;MAX. NUMBER OF ITERATIONS
;;ESCAPE ON ERROR ADDRESS
<207><377><377> ;.;CODE FOR BELL
/?/
;;QUESTION MARK
<15>
;;CARRIAGE RETURN
<12>
;:LINE FEED

".'Q'tt't'.t'ttt'tt"tlt"t"..t‘.'..'.'tt"t!.'!tt'.il"i.t!t!'t'

JSER DEF [NED TAGS

MAIRD v04.00

4-APR-B1

001272
001274

172540
172542

000104
177546
000100

$LKCSR:
$LK(CSB:
SLPVEC:
$LKS:
SLLVEC:
PORTA:
PORTB:
PORTC:
ASR1:

;ADDR OF
;ADDR OF
;ADDR OF
;ADDR OF
:ADDR OF
sADDRESS
;ADDRESS
;ADDRESS

KW11-P STATUS REGISTER
KW11-P COUNTER BUFFER
KW11-P VECTOR
KW11-L STATUS REGISTER
KW11-L VECTOR
OF PORT A
OF PORT B
OF DIFFERENT DRIVE

.SBTTL

RH/RM UNIBUS AND VECTOR ADDRESSES

SEIZPT:
OPPRT:
TSTNUM:
CKERR:

NOSEIZ:

176700
000254

172540
172542
104
177546
100

RELERR:
TIME:
WATCH:
TIMEA:
TIMEAP:
TIMEB:
TIMEBP:
KYBCTL:
CHGADR:

PTNBR:

000000
000000
000000
000000
000000
000000
000000
000000

USER DEF INED TAGS

35353533332823535355040

ENNEX
S SN%&NOO(‘N

ERVBFR

noronNONONN
~
&»
o
oo

oo
(sla)

3 o 833838833838338388838

e
N A
—————

NaNIrONY
&DI\XNNNNNNNNNNN
W
NININD
= bb

.SBTTL

G 2
18:08:36 PAGE 7

$RMADR: .WORD
$RMVEC: .WORD

[oleleleleleolelelelelolelelelelelelele)

(ZRMSBO RMO5/3/2 DU POR TST 2

176700
254

;ATA-A OR ATA-B = 1

;CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS
sCONTAINS THE ADDRESS OF THE SEIZING PORT
;CONTAINS THE ADDRESS OF THE ‘OPPOSITE' PORT
;NUMBER OF THE CURRENT TEST
;IF =1, A REGISTER MISCOMPARISON OCCURRED

;IF =1, THE PORT IN 'SEIZPT' DID NOT SEIZE THE DRIVE

sIF =1, THE PORT IN 'SEIZPT' DID NOT RELEASE THE DRIVE
;ELAPSED TIME COUNTER
;WATCH DOG TIMER LOCATION
;THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A

;PORT A TIMEOUT VALUE + 25%

:THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B

;PORT B TIMEOUT VALUE + 25%
sSINGLE TEST

INDICATOR

; CHANGE THE RH/RM ADDRESS INDICATOR

;RH/RM UNIBUS ADDRESS
s INTERRUPT VECTOR ADDRESS

ERROR

INTER

TABLE

MACRO v04.00

4-APR-81

.SBTTL

18:08:36 PAGE 8

SEQ 0020

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBLR FOUND IN

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT,

;*NOTE1:

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().

;*NOTE2:

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
EM
DH
DT
DF

;:PCINTS
:;POINTS
:;POINTS
:;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

DWW —

$ERRTB:

;ERROR 1

020501
023244
024614
025034

EM1
DH1
DT1
DF1

;DRIVE IS NON-EXISTENT ('NED' BIT SET)

EM2
DH2

;WRONG DRIVE TYPE

b
d
b
—

W
NW
—_—aD

joleolele]
olelals]

;ERROR 2
020547
023315
024630
025041

DT2
DF2

020570
023244
024614

e G
Qo4

lolelelal

;ERROR 3
EM3
DH1
DT1
DF1

;PORT SELECT SWITCH ON DRIVE NOT IN ‘A/B’

EM4
DH2
DT2
DF2

;DRIVE NGT ON LINE

EMS
DH5
DTS

;SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME

EM6
DH6
DT6
DF6

; TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS

025034

—_— S

WINWW
WWWN

—a

;ERROR 4
(olelels]
lelslale]

020642
023315
024630
025041

SO0

RRRY

—

80
o

s D

;ERROR 5
020664
023371
024646
025047

DF5

2OOON

wwwg
YV v

:ERROR 6

3888

LMdo“w
A
wuwwvmmwmmwwmm_._-_..-_._._._..._.
WO VO NI NN WSO YN N WO 00 O

2 DU POR TST 2

020746

023440
024662
025054

(IRMSBO RMOS5/3/2 DU POR 1ST 2

ERROR POINTER TABLE

MACRC v04.00

4-APR-B1

I
2
18:08:36 PAGE 8-1

SEG 0021

W
vy

;ERROR 7

EM7
DH7
D17
DF7

:TIMEOUT ONE-SHOT IS LESS THAN 500 MS

;ERROR 10
[ ——y

3838
[
SO

021020
023467
024672
025057

021065

023244
024614
025034

EMI0

DH1
DT1
1
DF

READIN PRESET DOES NOT

SET

VOLUME

VALID FOR

THE PORT

;ERROR 11
021153
023244
024614
025034

EM11
DH1
DT1

:'GO" BIT RESET DURING UNLOAD COMMAND

DF1

;ERROR 12

021220
023244
024614
025034

EM12

DH1
DT1
DF1

s INCORRECT STATUS DURING UNLDAD COMMAND

;ERROR 13
021267

023534

024704
025054
80

EM13
DH13
DT13

:DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND

DF6

;ERROR 14

021354
023611
024714
025063

EM14
DH14
DT14
DF14

SATTENTION BIT SET ON 'OPPOSITE PORT'

AFTER UNLOAD

;ERROR 15
021436
023244
024614
025034

EM15
DH1

SATTENTION BIT NOT SET ON PORT WHICH ISSUED "UNLOAD'

DT1
DF1

;ERROR 16
021522

EM16

023534
024704
025054

DH13
DT13
DFé

sDRIVE NOT IN NEUTRAL AFTER UNLOAD WiTH 'PORT
JSELECT" SWITCH MOVED FROM ‘*A/B'

J 2
4-APR-B81 18:08:36 PAGE 8-2

SEQ 0022

EM17
DH17
D117
DF17

:DRIVE LOCKED ON PORT

‘A® BY SWITCH WHILE CYCLED uP

;ERROR 20

021724
023730
024732
025071

EM20
DH17
DT17
DF17

:DRIVE LOCKED ON PORT °'B' BY SWITCH WHILE CYCLED UP

:ERROR 21

022007
023244
024614
025034

EM21
DH1
DT1

;STATUS INCORRECT FOR PORT AFTER CYCLE uP

DF1

5'\)08

;ERROR 22
-

022060

023244
024614
025034

EM22
DH1
DT1
DF1

JREGISTER CONTENTS SEEN WHEN DRIVE

SWITCHED ON

‘OPPOSITE'

;ERROR 23

EM23

norony—
sooo

DH1
DT1
DF1

;'NED' SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED

. ERROR 24

FiEy

EM24
DH24
D124
DF7

;DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/

»sOO

\fl\fl\fi§

sERROR 25

022331
024052

024752
025073

EM25
DH25
D125
DF 25

;RH/RM DIDN'T RESPOND TO ADDRESSING

;OO0

- ERROR 26

000000
000000
000000
000000

DOOO

il
e =B

023730
024732
025071

— s —

021641

o e s

MACRO v04.00

;ERROR 17

(TR
B af oF oW bbuwwggguuuummmmmmmmmu_._._‘_._._....._._.
00 OWNOND
—=O PO~
unu-u:«un~u0nntw~nracainn~40wnewnnr-cfl3§¥38*3$§2§3 28
lolele]
8838
3888
8080
3888
8888

-l—..-c—._..—..a—a—.—a_._.-b—.-..—._._‘_‘—._l—l_._‘..._.-l—a—l—‘-h—b_..—ld—-l—‘—a-—h.‘—l—dd-‘dd_‘—‘d —

(ZRMSBO RM05/3/2 DU POR T1ST 2
ERROR POINTER TABLE

JUNUSED ERROR MESSAGES

PORT

(ZRMSBC RMOS/3/2 DU POR TST 2

ERROR POINTER TABLE

MACRO v04.00

4-APR-B1 18:08:36 PAGE 8-3

:ERROR 27
001556
001560
001562
001564

000000
000000
000000
000000

}28

161 001566

162 001570
163 001572

;gé 001574

022374

£EM30

025074

DF30

024061
024756

022425

};} 001604

025041

023315
024630

;;2

};g 001614

DH30
DT30

EM31

DH2
D72

DF2

022473
023315
024630

025041

EM32
DH2
DT2

;ERROR 33
022523
023244

EM33
DH1

;gz 001624

025034

DF 1

024614

}gg

190 001630
191 001632
}g% 001634

DT1

022607

024203
024776
025103

EM34

DH34
DT34
DF34

:CAN'T ACCESS DRIVE THROUGH EITHER PORT

;ERROR 35

022656
024277
025010
025057

EM35
DH35
DT35
DF7

§§?
2o§ 001646 022743
584 001650 024277

sERROR 36
EM36
DH35

208

;ERROR 37

S 001652
589 001654

:CONTROL BUS PARITY ERROR WHILE READING REGISTER

;ERROR 34

}3?

193 001636
197 001640
198 001642
199 001644

:REGISTER CONTENTS INCORRECT

DF2

182 001616
183 001620

189 001626

:WRONG STATUS SEEN BY THE SEIZING PORT

:ERROR 32

}g?

184 001622

:DRiVE NOT SEIZED BY PORT °N'

;ERROR 31

168 001576

175 001606
176 001610
177 001612

:UNUSED ERROR MESSAGES

:ERROR 30

}29
169 001600
170 001602

0
0
0
0

025010
025057

DT35
DF7

;:DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET

:DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET

SEQ 0023

(ZRMSBO RM0S5/3/2 DU POR T1ST 2
ERROR PNINTER TABLE
209

210 001656
211 001660
21; 001662
213
001664
214
215
216
217 001666

218 001670

219 001672
220 001674
221
22§
22
224 001676

225 001700
256 001702
227 001704
228

023030
024374
024756
025074

MACRO v04.00

4-APR-81

EM37
DH37
D130
DF 30

L 2
18:08:36 PAGE B8-4

SREGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT

SERROR 40
023111
024516
025022
025057

EM40
DH40
DT40
DF7

;DRIVE NOT SEIZED BY PORT AFTER RELEASE WITH REQUEST SET

;ERROR 41

023166
024061
024756
025074

EM4T

DH30
DT30
DF30

sREGISTER WRONG AFTER RELEASE WITH REQUEST SET

SEQ 0024

(ZRMSBO RMOS5/3/2 DU POR TST 2
ERROR POINTER TABLE

MACRO v04.00

4-APR-B81 18:08:36 PAGE S

SEQ 0025

:THIS ROUTINE HANDLES UNEXPECTED TIMEQUTS

3 001706

011600

001720

000417

4 001710
5 001712
6 001714

005740
022626
1064401

001760
7 001760

010046

9 001764

000240

8 001762

BADTMO: MOV
001722
::65%:

648:

104402

14 001766

005037

001270

}; 001774

012737

177777

19 002002

20 002004
21 002010
gg 002012

240

005227
001375

START:

001270

::GET OVER THE ASCIZ

MOV

RO, -(SP)

CLR

INC
BNE

RESET

.SBTTL

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

:SETUP FOR TYPING OUT PC

;PUT "HALT(0)' INSTRUCTION HERE IF YOU WISH
;TO STOP ON UNEXPECTED TIMEOUT.

CHGADR

:CLEAR THE °'CHANGE RH/RM ADDRESS' INDICATOR

#-1,CHGADR

:SET THE 'CHANGE RH/RM ADDRESS' INDICATOR

#0
~4

;TTY LOOP, WAIT FOR INCREMENT
:OF WORD

START2

:GO TO THE START

;CLEAR THE WORLD

INITIALIZE THE COMMON TAGS

::CLEAR THE COMMON TAGS (SCMTAG) AREA

002014

012706

001100

0050 2
002026
002030

022706
001374
012706

001140

885034
045
002050
002056
00 094
0020
0021
0021
002112
002116
88 154
2132

012737
012737
012737
012737
81 737
1;7 7
013737
005037
005037
1157 7
012737
012737

013620
340
014202
340
017540
000340
013224
001176
001200
000001
0021246
002132

000020
000022
000030
000032
000034
000036
013216

002140
144
002152
002160
002166
002174

013746
012737
012737
812737
022777
001012

;
177570
177570
177777

000004
001140
001142
176744

002176
002200

000403
012716

MOV

#SCMTAG,R6

;:FIRST LOCATION TO BE CLEARED

cMP
BNE
MOV

#SWR ,R6
.~6
#STACK,SP

; :DONE?
::LO0P BACK IF NO
::SETUP THE STACK POINTER

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOVB
MOV
MOV

#$SCOPE ,a#10TVEC ;;IOT VECTOR FOR SCOPE ROUTINE
#340,a#I0TVEC+2 ;;LEVEL 7
#SERROR ,a#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#340,INEMTVEC+2 ;;LEVEL 7
#STRAP,@#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS
#340,3#TRAPVEC+2;LEVEL 7
SENDCT,SEOPCT
;;SETUP END-OF-PROGRAM COUNTER
$STIMES
;2 INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
:;ALLOW ONE ERROR PER TEST
#..SLPADR
;;INITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,SLPERR
::SETUP THE ERROR LOOP ADDRESS

MOV
MOV
MOV
MOV
CcMP
BNE

@FERRVEC,-(SP)
#648 ,INERRVEC
#DSWR, SWR
#DDISP.DISPLAY
#-1,3SWR
66%

;:SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
::SETUP FOR A HARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
::BRANCH IF NO TIMEOUT TRAP OCCURRED

55!
MOV

65%
#65%, (SP)

::BRANCH IF NO TIMEOUT
::SET UP FOR TRAP RETURN

CLR

001100

002206

:ADJUST PC =2
:RESTORE STACK POINTER
;2TYPE ASCIZ STRING

START OF PROGRAM

START1: MOV

000005

005026

648

_ASCIZ

START2: NOP

000000

002020

TYPGC

.SBTTL

000403

;SAVE PC WHERE THE TIME OUT OCCURED

-(RO)
(SP)+,(SP)+
.65%

NOP

}2 001772

(SP) RO

1ST
P
TYPE

001115
001106
001110

(R6)+

;:INITIALIZE A FEW VECTORS

:;CLEAR MEMORY LOCATION

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A **~1"", SETUP FOR A SOFTWARE SWITCH REGISTER.

64%:

:;AND

THE HARDWARE SWR IS NOT = -1

. CZRMSBO RMO0S5/3/2 DU POR TST 2

INITIALIZE

002204

THE COMMON TAGS

000002

MACRO v04.00

001140

RTI

SEQ 0026

012737

000176

002222

012637

000004

668:

001706

;SETUP “‘TIMEOUT'® TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO,ERRVEC :SETUP FOR UNEXPECTED TIMEOUT

56 002226

002206

002214 012737 000174 001142
012737

000004

2234 012737 000300 000006

658:

4-APR-81 18:08:36 PAGE 9-1

005227

001037
022737
001433
104401
000430

002346
002352
002354
002362
002364
002366
002370
ke 002376

005737
001006
023727
001005
104406
000403
112737

000042

31 002376
32 002402
33 002406
34 002412
35 002414
36 002420
37 002426
38 002430
39 002434
40 002436

004737
004737
104401
104412
012637
023727
101403
104401
000760
013737

016044
002774
017626

41 002444
42 002450
43 002456
44 002462
45 002466
46 002472
47 002476

005237
042737
013746
042716
052637
104401
013746

002502
002504

104403
001

48 002506
49 002512

104401
013746

002516
002520
002521
50 002522

104403
001
000
104401

002505

000

013366

000176

000001

001134

::RESTORE ERROR VECTOR

#PR6,ERRVEC+2

TYPE PROGRAM NAME

THE PROGRAM IF FIRST PASS

;:FIRST TIME?

GET VALUE FOR SOFTWARE SWITCH REGISTER

69%:
708

000007

001226

#-1

.SBTTL

1%:

001226

-LEVEL 6

85285:

017655
001226
000016
001224
177771
001226
017700
001224

(SP)+,@#ERRVEC

BNE
CMP
BEQ
TYPE
BR
.ASCIZ

000042

001140

001224

MOV

INC

002266

001224
001294

::POINT TO SOF TWARE SWR

#D]SPREG,DISPLAY

;::TYPE THE NAME OF

177777

002246
002250
002256
002260
002264
002346

#SWREG, SWR

MOV

.SBTTL

002242

MOV

2%:

67%
;:BRANCH IF NO
ASENDAD,a#42
::ACT-11?
67$
:BRANCH IF YES
,688%
*TYPE ASCIZ STRING
67%
*GET OVER THE ASCIZ
<CRLF>QCZRMSB0O - RM05/3/2 DUAL PORT LOGIC TEST, PT 2a<CRLF>

TST
BNE
cCMP
BNE
GTSWR
BR
MOVB

a#s2
69%
SWR,#SWREG
708

JSR
JSR
TYPE
RDOCT
MOv
CMP
BLOS
TYPE
BR
MOV

PC,$TKINT
PC,CHANGE
JENTERA

INC
BIC
MOV
BIC
BIS
TYPE
MOV

TYPOS
BYTE

‘BYTE

708
#1,SAUTOB

(SP)+,PORTA
PORTA.#7
2%
,ADRERR
is
PORTA,PORTB
PORTB
#16,PORTB
PORTA,~(SP)
#2C6, (SP)
(SP)+_PORTB
.PORTAIS
PORTA,=(SP)

1
0

017727
001226

TYPE
MOV

,PORTBIS
PORTB,-(SP)

001207

TYPOS
.BYTE
BYTE
TYPE

1
0
LSCRLF

;:;ARE WE RUNNING UNDER XXDP/A(CT?
::BRANCH IF YES
s :SOFTWARE SWITCH REG SELECTED?
*BRANCH IF NO
“IGET SOFT-SWR SETTINGS
;:SET AUTO-MODE INDICATOR
;SETUP THE TTY KEYBOARD
:CHECK/CHANGE THE RH/RM ADDRESS
;ENTER DRIVE ADDRESS
;GET THE ADDRESS
;STORE THE ADDRESS
SEE IF ADDRESS TOO LARGE
‘BR IF NOT
:TYPE ADDRESS ERROR MESSAGE
*TRY AGAIN
;GENERATE THE PORT B ADDRESS

" INCREMENT THE ADDRESS
“LEAVE BIT 0
;PUT PORT A ADDRESS ON THE STACK
“SAVE BITS 1 & 2
;SET BITS 1 & 2 IN PORT B ADDRESS
“VBORT A ADDRESS IS *
::SAVE PORTA FOR TYPEOUT

“TYPE PORT A ADDRESS

;G0 TYPE--OCTAL ASCII
“TYPE 1 DIGIT(S)

*SUPPRESS LEADING ZEROS
:"PORT B ADDRESS IS '
::SAVE PORTB FOR TYPEOUT

“TYPE PORT B ADDRESS

;.60 TYPE--OCTAL ASCII
;:TYPE 1 DIGIT(S)
**SUPPRESS LEADING ZEROS
;ANOTHER CR-LF

CZRMSBO RMO5/3/2 DU POR TST 2

MACRO v04.00

GET VALUE FOR SOF TWARE SWiT(H REGISTER

51 002526
52 0025
53 002542
54 002550
55 002554
58 002562

013737 001224
062737 000006
042737 177770
013707 001224
116137 025130

005037

2
005037
002572 005037
002576 005037

59 002602

004737

60 002606
61 002612

000137
104401

g‘ 002620

000776

002616

001232

B 3
18:08:36 PAGE 9-2

MOV
ADD
BIC
MGV
MOVR

PORTA,PORT(
#6,PORTC
#~C7 ,PORTC
PORTA,R1
ATABIT(R1) ,ASR1

:GENERATE ADDRESS OF DRIVE NOT TESTED
:COMPLEMENT SOME BITS
;SAVE ONLY LOWER BITS
;USE PORT A ADDRESS AS INDEX
:GET ATTENTION BIT FOR DRIVE

CLR
CLR
CLR

TIMEAP
TIMEB
TIMEBP

;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION
;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION
;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION

CLR

001260
0C1262
001264
(13406

JSR

002622
017756

3%:

JMP
TYPE

HALT

TIMEA

PC,KCLK

EXEC
. NOCLOCK
33

sCLEAR TIMEOUT ONE-SHOT VALUE LOCATION

;SETUP CLOCK

;CLOCK HAS BEEN STARTED
sNO CLOCK ON SYSTEM
;FATAL ERROR

:INTERLOCK THE HALT

:ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR

67 002622
68 002624
69 002630

000005
005037
104401

EXEC:

177776
001207

RESET
CLR
TYPE

PS
LSCRLF

70 002634
71 002640

013700
012706

001272
001100

MOV
MOV

$RMADR, RO
#STACK,SP

76 002652
75 002656

004737
005037

016044
001266

JSR
CLR

PC,STKINT
KYBCTL

72 002644
73 002650

76 002662
77 002666
78 002674
79 002702

004737
000240

80 002710

005037
112737
012737
012737
104401

82 002716

012601

84 002722
85 002726
86 882732
87
002734

000137
880137
3403
104401

81 002714

83 002720

104412

001002

013406

001100
000001
002674
002702
020023

JSR
NOP

001115
001106
001110

1%:

CLR
MOVB
MOV
MOV

TYPE

MOV

(SP)+,R1

RDOCT

BNE

003122
025140

2%:

020043

JMP
cMP
BLE
TYPE

000763
005301

91 002746

016137

025110

002772

MOV

012737
000177

000001
000000

001104

MOV
JMP

002744

9§ 002754

93 002760
94 002766

gg 002772

006301

005237

000000

3$:
001266

ASL

LWORD

TST1
R1.MAXTN
3s
,BADNO
1%

:CLEAR EVERYTHING
;CLEAR THE PROCESSOR STATUS WORD
:CR=LF

:RH/RM ADDRESS FOR INDEXING
:LCAD STACK POINTER
:START THE CLOCK
:RETURN IF NO CLOCK

JINITIALIZE THE KEYBOARD
;CLEAR SINGLE TEST INDICATOR

:CLEAR THE PASS COUNT
:SET ERROR MAX TO 1
;INITIAL SETTING FOR LOOP ADDRESS
;INITIAL SETTING FOR LOOP ON ERROR ADDRESS
;ASK FOR TEST NUMBER
:GET THE NUMBER

:PUT ENTRY INTO R1
:BR IF NOT ZERO

;ENTER ZERO - PERFORM ALL TESTS
;SEE IF NUMBER GREATER THAN MAXIMUM
:BR IF LESS OR EQUAL
:BAD ENTRY

:TRY AGAIN
:DECREMENT ENTRY

TSTADR(R1),4%

:GET THE TEST ADDRESS

KYBCTL

#1,81CNT
YA
O

:SHIFT IT LEFT

:SET SINGLE TEST INDICATOR

:PRESET ITERATION COUNT
:GO TO THE SELECTED TEST
:TEST ADDRESS GOES HERE

;CHANGE THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM

99 002774

005737

001270

101 003002

005037

001270

104 003016

104402

100 oo%ooo 001421
10§ 003003
103 003012

020072
001272

105 003020
106 003024

BR
DEC

INC

4%:

PC.,CKCLK

$PASS
#1,SERMAX
#..SLPADR
#.,SLPERR
.TESTNO

88 002740
89 88 742
90

SEQ 0027

104401
013746
104401
104401

001207
020127

CHANGE: TST

BEQ

CHGADR

CLR

TYPE
MOV

CHGADR

:BR IF NOT

,ADDRIS
$RMADR, - (SP)

:TYPE OUT WHAT THE PRESENT ADDRESS IS
;PUT THE ADDRESS ON THE STACK

TYPE
TYPE

LSCRLF
NTRH

:CR-LF
:ASK FOR NEW ADDRESS

1$:

TYPOC

:CHANGE THE ADDRESS ?
:CLEAR THE INDICATOR

:TYPE THE ACTUAL ADDRESS

—

001256

001230
001230
001230

&4-APR-B1

MACRC v04.00

GET VALUE FOR SOF TWARE SWITCH REGISTER

107 003030
108 003032
109 003034

104412
005716
001402

110 003036
111 003042
112 003044
113 003052
114 003056
115 003062

012737
013700
005760
000/9%

003064

10402

116 003064

117 003066
118 003072
119 003074
120 003102

011637
005726

(62706
000745
012737
000207

RDOCT
ST
BEQ

001272
003064
001272
000002

000004

2%:
38:

4%:

000004
000006

£ -3
4-APR-B1 18:08:36 PAGE 9-3

000004

5%:

MOV
ST
MOV
MOV
ST
=kt
EMT

ADD
=13}
MOV
RTS

(SP)
2%

(SP) ,$SRMADR
(SP)+
#6884
$RMADR ,RO
RMWC (RO)
5%
25

#4,SP
1%
#6344
PC

SEQ 0028

;0 OR "CR" ENTERED ?
;BR IF EITHER ENTERED (NO ADDRESS CHANGE)

:NEW RH/RM ADDRESS
;CORRECT THE STACK POINTER
;LOAD TRAP ADDRESS
;GET RH/RM ADDRESS
;RESPONDS AT THAT ADDRESS ?
:BR IF YES
:RESET THE STACK POINTER
;GET ADDRESS AGAIN
JRESTORE THE VECTOR
;RETURN

—

(ZRMSBO RM05/3/2 DU POR TST 2

(ZRMSBO RMO5/3/2 DU POR T1ST 2

4-APR-81

e
e
b

.SBTTL

NN—;—&?
nNosNO

Sooas

WONON)

TESTS

MACRO v04.00

013700
012746
01746
000002

MOV
MOV

SEQ 0029

TESTS

TST1AA: MOV

RTI

648:

18:08:36 PAGE 10

$RMADR RO

#PRS ,~(SP)
#648,-(SP)

;;RESTORE RO AFTER END OF PASS
;sPUT NEW PS ON STACK
;;PUT NEW PC ON STACK

::POP NEW PC AND PS

:"Qt..tttt!.'l'tt‘tlt"'.'tttt'..tt.'t'tltttt...'tt.ttt"!t..tttt

DRIVE ACCESS TEST

s*TEST 1
*

;*VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS
T

% "

.
.

SELECT DRIVE,

VERIFY THAT THE DRIVE

IS PRESENT,

THAT THE

DRIVE IS A DUAL PORT RMOS5, RMO3 OR RMO2 AND THAT THE DRIVE
IS ONLINE (RMDS HAS 'MOL'. 'PGM', 'DPR', & 'DRY' BITS SET),
AND THE THE DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS IS

THE SAME.

BITETEEE

THE TEST IS REPEATED THROUGH BOTH PORTS.

mgoowbg

v
D
red
D
el
D

il e

002622
177777
003160

003160

§11:

001266

001266
001106
001110

000001
001100
000001

001102

000040

000010

001176

1$:
28:

TST

BEQ
BPL
JMP
MOY
MOV

KYBCTL

;PERFORMING ONLY SINGLE TESTS ?

#TEST1.SLPERR

:SETUP ERROR LOOP ADDRESS

2s
1$
EXEC
#-1,KYBCTL
#TEST1,SLPADR

:BR IF NOT
:BR IF JUST ENTERED TEST
:RETURN & GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
:SETUP SCOPE LOOP ADDRESS

MOVB
MOV

#1,$TSTNM
#STACK,SP

#1,STIMES

;MOVE #1 TEST NUMBER
:SETUP THE STACK POINTER
;:D0O 1 ITERATION

MoV

#CLR,RMCS2(R0O)

;CLEAR MASSBUS

MoV

rono
oo~

W—
SO

8
—.8
nNO
cndd
i) i

BN
SNBSS

e
)

88
—
b
— uld

88 838

-il

o
o

N= NNNSNNNNNNNNONO

(]

OO
srO0NOMN0

NONONITONONOND

o
R282 28 s
o e
] R NN
PO
NN N N
(N = NN
WY
~NOO NN
S NN N — NN NN N NNANO
WO

;VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B

5g388s388383sssss
§o228ST S N—'g

wironorunory
WS wWno—

wilwrnonono
oo

S 338388888833

NN NN N NN NN NN W

':tl'tt't'ttt"tt.tt.t.t".l’"'.t.'tfi'fi‘..Q.'..'.tt'...'.'.l'.l".

MCVB
MOV
MOV
MOV
ADD

PORTA,RMCS2(R0)
;SELECT PORT A
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (RO)
;SEE IF DRIVE (PORT A) PRESENT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMCS2(R0) ,$BDDAT ;GET CONTENTS OF RMCS2
#RMCSZ2
, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS

MOV
BIC
CMP
BEQ
MOV

$BDDAT, $TMPQ
#*CNED,$TMPO
$GDDAT ,$TMPO
648
$BDDAT , STMP4

TST
CLR

CLR

BIC
BIS
EMT

com

$GDDAT

#NED, $TMP4
$TMP4 , SGDDAT
1

CKERR

;WHAT REGISTER SHOULD BE

;MOVE REGISTER CONTENTS TO "$TMPO'
;SAVE SPECIFIED BITS
;COMPARE THE BITS

;BR IF OK

;COPY "BAD DATA'
;CLEAR THE MASKED BITS
:"OR" WITH GOOD DATA FOR TYPECUT

;SET THE REGISTER (OMPARE ERROR INDICATOR

C JRMSBO RMO5/3/2 DU POR 1ST 2
T
DRIVE ACCESS TEST

003332
003334
003340
003342
003350
003356
003364
003370
003374

000240
C05737
001403

MACRO v04.00
:
648

001244

NOP
TST

BEQ
MOV
MovB

000040
001226
001226
000012
001244
000010
000010
001122
001124
001126

MOV
TST

CLR

MOV
MOV
ADD

CLR

MOV
BIC
cMP
BEQ
MOV
BIC
Bi$S

167777
001124

001126
010000
001174
001244

66%:

001244

000040

EMT
COM
NOP

IS?
BEQ
MOV

;WAS °'NED' SET ?

CKERR
.+10

#CLR,RM(S2(R0O)

SEQ 0030

PORTB ,RM(S2 (RO)

:BR IF NOT
s ISSUE MASSBUS INIT TO CLEAR °NED'

;SELECT PORT B

PORTB_PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (RO)
;SEE IF DRIVE (PORT 8) PRESENT
CKERR
sCLEAR THE °'CHECK ERROR' INDICATOR
RMCS2(RC) ,$BDDAT
GET CONTENTS OF RM(CS?
#RMCS2,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS

$GDDAT
$BDDAT ,$TMPO

#*CNED,$TMPQ

$GDDAT ,$TMPO
663
$BDDAT , $TMPS
#NED , $TMP4
?THP4,SGDDAT

CKERR

CKERR
.+10

#CLR,RMCS2(RO)

;WHAT REGISTER SHOULD BE
sMOVE REGISTER CONTENTS TO "$TMPO’

;SAVE SPECIFIED BITS

;COMPARE THE BITS
;BR IF 0K
;COPY °'BAD DATA'

;CLEAR THE MASKED BITS
;'OR" WITH GOOD DATA FOR TYPEOUT

;SET THE REGISTER COMPARE ERROR INDICATOR

;WAS °'NED' SET ?

;BR

NOT

;ISSUE MASSBUS INIT TO CLEAR

°NED’

——

Q-

WVIN'N

001224
001224
001244
000026
000026

000010
001234

024027
024024

001124
001126

024025

001126

001124

001126

001122

MOvB
MoV
CLR
MOV
MOV
ADD
MOV
cMP
BEQ
CMP

001126
001122

003626

W
~

HBNESENS

SOSREV2]228
S ?—'W—'N—'NN

s8383838888

&Owbbumm—'
oo
CNOoON

YA
v v av v v v

;CONFIRM THAT DRIVE IS AN RMOS5, RMO3 OR RMO2 AND IS DUAL PORTED

SERR

E
3
4-APR-B1 18:08:36 PAGE 10-1

001244

001226
001226
001244
000026
000026
001122
024027
024024

000010
001234

024025

001126

001124

001126

001126
001122
001124
001126

68%:

BEQ
CMP
BEQ
EMT
COM

NOP
MOVB
MOV

CLR

MOV
MOV
ADD
MOV
CMP

BEQ
CMP
BEQ
(MP

BEQ

;SELECT PORT A
PORTA,RMCS2(RO )
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

CKERR
;CLEAR THE °"CHECK ERROR'
:GET CONTENTS OF RMDT
RMDT
(RO) , $BDDA T

INDICATOR

#RMDT
, $BDADR

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS
;WHAT REGISTER SHOULD BE
7
, $GDDAT
#02402

RO, $BDADR

#024024 ,$BDDAT
68%
#024025 ,$BDDAT

68%

$GDDAT
, $BDDAT

68%
2

CKERR

;DUAL PORT RMO3 ?
sYES !!
;DUAL PORT RMOZ2 ?

SYES

;1S THE REGISTER OK ?
;BR IF OK

;SET THE REGISTER COMPARE ERROR INDICATOR

;SELECT PORT B
PORTB,RMCS2¢(R0 )
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
;GET CONTENTS OF RMDT
(RO) , $BDDA T
RMDT
#RMDT
, $8DADR

RO, $BDADR

#024027 ,$GDDAT
#024024 ,$BDDAT

70%
#024025, $BDDAT
708
$GDDAT, $BDDAT
708

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

;WHAT REGISTER SHOULD BE

:DUAL PORT RMO3 ?
eSS

;DUAL PORT RMOZ2 ?
SYES !¢

;IS THE REGISTER OK ?

;BR IF OK

JRMSBO RMOS5/3/2 DU POR TST 2
DRIVE ACCESS TEST

104002

005137
000240

MACRO v04.00

001244

70%:

4-APR-B81
EMT
COM
NOP

18:08:36 PAGE 10-2
2

CKERR

SEQ 0031

sSET THE REGISTER (OMPARE ERROR INDICATOR

:VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL

“8 003726

003734
003742
003746
003754

113760

013737
005037
016037
012737
37
06003
012737
013737
042737
023737
001414
013737
042737
053737
005137
000240
005037
016037
012737
060037
012737
013737

001126
001122

—

001414

013737
042737

000010
001234

—

NOAOrY

-CV—A

S
o

e ON b d D

—

e ed
e

74%:

001126
001122

#~CPGM,$TMPQ

001124
001164
001164
001164

MOV
MOV
BIC
CMP
BEQ
MOV
BIC
BIS

001174
001174
001124
76%:

001126

BIC
8IS
EMT
oM
NOP
MOvB
MOV
CLR
MOV
MOV
ADD

no
o~
&~

—_

n '\VV”UESNJ

000012

8 888 8 ~N 3888

B8IC
cMP
BEQ
MOV
Bi(
BIS
EMT
com
NOP
CLR

BEQ
MOV

001174
001174
001124

037

—J-lgd—i

jolelelele]

PORTA,RMCS2(R0O)
:SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#PGM,SGDDAT
;WHAT REGISTER SHOULD BE

MOV
MOV
ADD
MOV
MOV
BIC
cMP

001124
001164
001164
001164

W=
=2 O NNV
gONOONOONg
TRORESER

72%:

042737
023737

414

MOvVB
MOV
CLR

MOV
MOV
ADD
MOV
MOV

104003

8
g\h R2STR
WNW-‘WN\#N
OV
W

003716
003720
003724

-0

A
ddd
e
dadd
s
ittt
g

EMT
(oM

NGP

(LR

MOV

$BDDAT , $TMPQ

$GDDAT, $TMPO
72%
$BDDAT , $TMP4

;sMOVE REGISTER CONTENTS TO '$TMPO'

SAVE SPECIFIED BITS

;COMPARE THE BITS
;BR IF OK
;COPY 'BAD DATA'

#PGM, $TMP4
gTMPk.SGDDAT

;CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR
;CLEAR THE °'CHECK ERROR' INDICATOR
RMDS
(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#MOL 'DPR!DRY,SGDDAT

;WHAT REGISTER SHOULD BE

$BDDAT ,$TMPO

;MOVE REGISTER CONTENTS TO '$TMPO’

$GDDAT ,$TMPO
74%
$BDDAT ,$TMPL

;COMPARE THE BITS
;BR IF OK
;COPY 'BAD DATA'

fi‘CIObe.STHPO

;SAVE SPECIFIED BITS

#10600, $TMPS
2THP4.SGDDAT

:CLEAR THE MASKED BITS
;'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE EKROR INDICATOR

PORTB,RM(CS2(R0)

;SELECT PORT B

PORTB,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE °'CHECK ERROR' INDICATOR
RMDS(RO) ,$BDDAT
;GET CONTENTS OF RMDS
#RMDS ,$BDADR
:FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#PGM,SGDDAT
;WHAT REGISTER SHOULD BE

$BDDAT ,$TMPO

#*CPGM,$TMPQO

$GDDAT ,$TMPO
76%
$BDDAT , $TMP4

;MOVE REGISTER CONTENTS TO "$TMPO'

;SAVE SPECIFIED BITS

#PGM, $TMPS
§THP4,SGDDAY

;COMPARE THE BITS
;BR IF OK
:COPY 'BAD DATA'

;CLEAR THE MASKED BITS
:'OR' WITH GOOD DATA FOR TYPEOUT

CKERR

;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR

:CLEAR THE

S
(RO) , $BDDAT
RMD

°"CHECK ERROK'

;GET CONTENTS OF RMDS

[NDICATOR

(ZAMSBO RMO5/3/2 DU POR 15T 2

DRIVE ACCESS TEST

004320

004326

012737

060037

MACRO v04.00

4-APR-81

18:08:36 PAGE

000012

001122

MOV

#RMDS ,$BDADR

001122

ADD

10-3

RO, $8DADR

SEQ 0032

;FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

004332
0047340

012737
013737

010600
001126

001124
001164

MOV
MOV

#MOL 'DPR'DRY,SGDDAT ;WHAT REGISTER SHOULD BE
$BDDAT, $TMPO
;MOVE REGISTER CONTENTS TO '$TMPO"

004354

023737

001124

001164

CMP

$GDDAT, $TMPO

004364

013737

001126

001174

0046346 042737

004362

004372
004400
004406

004410
- 004414

001414

042737
053737
104004

005137
000240

167177 001164

010600
001174

BIC

BEQ

001174
001124

001244

%(1)

- SAVE SPECIFIED BITS

78%

:BR IF 0K

MOV

$BDDAT, $TMP4

EMT

BIC
BIS

com
NOP

78%:

#-C10600,$TMPO
#10600,$TMPS
$TMP4 , $GDDAT

CKERR

;COMPARE THE BITS
;COPY 'BAD DATA'

;CLEAR THE MASKED BITS
;"OR' WITH GOOD DATA FOR TYPEOUT

;SET THE REGISTER COMPARE ERROR INDICATOR

;VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME

52 004416

113760

53 004424
54 004432
55 004440
56 004446

016037
113760
016037
023737

58 004456

104005

§7 004454

001406

59 004460

032777

61 004470

000000

60 004466
gg 004472

001001

001224

00003C
001226
000030
001124
100000

000010

001124
000010
001126
001126

PORTA,RMCS2(R0O)

;SELECT PORT A

BEQ

:BR IF THEY ARE

#SW15,aSWR

;HALT ON ERROR ?

MOV
MOVB
MOV
cMP
EMT

174452

000004

MOVB

BIT

BNE

HALT

1%:

RMSN(RO) ,$GDDAT :STORE THE PORT A SERIAL NUMBER
PORTB,RMCS2(R0O) ;SELECT PORT B
RMSN(RO) ,$BDDAT :STORE THE PORT B SERIAL NUMBER
SGDDAT ,$BDDAT
;ARE THEY THE SAME ?
5

:BR IF SET - PROGRAM HAS ALREADY HALTED

JHALT, POSSIBLE CABLE CONNECTION PROBLEM

SCOPE

;LOOP ?

97
98
::tttttt.tttttt'tttttttttitltttttfittittttttttttttt'tt"tttfitttt't

SET 'VV' FOR PORT A

J*TEST 2
1

;*SET VOLUME VALID

i«

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A.

“*

ISSUE A READIN PRESET COMMAND THROUGH PORT A.

ISSUE A RELEASE COMMAND THROUGH PORT A.
VERIFY THAT
THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION
BIT IS SET.

THAT THE

°"vv' BIT

IS SET FOR PORT A.

VERIFY

. %

:*
i
i
004474

004474
004500
004502

004504
004510
004516
%gfi

004532

004540
004544

005737
001406
10000¢

000137
012737
012737
012737

E:ttt'ttttttttttttttttt'ttitt'tttttttttttttttttttttttt'tt"tt'ttt
TST2:

001266

7ST
BEQ
BPL

002622
177777
004532
004532

001266
001106
001110

112737 000002

001102

012706
012737

001100
000001

001176

1%:
2%:
e

JMP
MOV
MOV
MOV

KYBCTL
2%
1%

EXEC
#-1,KYBCTL
#TEST2,$LPADR
#TEST2,.8LPERR

:PERFORMING ONLY SINGLE TESTS ?
:BR IF NOT
:BR IF JUST ENTERED TEST

MOVB

#2.$TSTNM

:MOVE #2 TEST NUMBER

MOV
MOV

#STACK,SP
#1,8TIMES

;RETURN & GET NEXT TEST NUMBER
:SET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
:SETUP THE STACK POINTER
::D0O 1 ITERATION

P’RMSBO &M05/3/2 DU POR IST 2
SET *vv*' FOR PORT
A

0046552
004560

113760
013737

001224
0012264

MACRD v04.00

000010
001234

4-APR-B1

MOVB
MOV

H 3
18:0B:36 PAGE 10-¢

SEQ 0033

PORTA,RMCS2(R0) SELECT PORT A
PORTA_PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

:SET VOLUME VALUE FOR PORT

004566
004574
004602

012760
012760

012760

000011
000021

010000

00000C
000000

MOV
MOV

000032

MOV

#11 RMCS1(RO)
#21 ,RMCS1(RO)

#FMT16,RMOF
(RO)

;ISSUE A DRIVE CLEAR
;ISSUE A READIN PRESET
SET FMT16

:VERIFY THAT THE DRIVE STATUS IS CORRECT

004610
004614
004622
004630
004634
004642

005037
016037
012737
37
012737
013737

001244
000012
000012
001122
011700
001126

004656

023737

001124

004666
004674
004702

013737
042737
053737

001126
071700
001174

004712
004716

005137
000240

001244

004650

004664

004710

042737
001414

104010

106077

001124
001164

CLR
MOV
MOV
ADD
MOV
MOV

CKERR
;CLEAR THE °'CHECK ERROR' INDICATOR
RMDS(RO) ,$BDDAT ;GET CONTENTS OF RMDS
#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $8DADR
:ADD RH/RM BASE ADDRESS
#MOL 'PGM'DPR'DRY'VV,$GDDAT ;WHAT REGISTER SHOULD BE
$BDDAT , $TMPO
;MOVE REGISTER CONTENTS TO °'S$STMPO'

001164

cMP

$GDDAT ,$TMPO

001126
001122

001164

BiC

BEQ

001174
001174
001124

;SAVE SPECIFIED BITS

64%

:BR IF OK

MOV
BIC
BIS

$BDDAT, $TMP4
#71700,8$TMP4
$TMP4 , $SGDDAT

oM
NOP

CKERR

EMT

64%:

#*~C71700,$TMPO

:COMPARE THE BITS

:COPY °'BAD DATA'
;CLEAR THE MASKED BITS
:"OR* WITH GOOD DATA FOR TYPEOUT
;SET THE REGISTER COMPARE ERROR INDICATOR
.

;JRELEASE THE DRIVE FROM PORT A

004720
004726
004734

113760
013737
012760

001224
001224
000013

000010
001234
000000

MOVB
MOV
MOV

PORTA,RMCS2(R0) ;SELECT PORT A
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#13,RMCS1(RO)
;ISSUE RELEASE THROUGH PORT A

;VERIFY THAT THE DRIVE

004742

005037

001250

004754
004760

060037
012737

001122
011600

004746

004766

012737
113760

004774

016037

OOSO§4

016037

005002
005010
005016

005032

005040
005046

005054

005056
0C5062
005064
005066
005072

005100
005106

013737
042737
113760

013737
042737
023737

001006

005737
001037
104034
000137
013737

013737
113760

000012
001224

000012

001170
100100
001226
000012

001172

100100
001164

CLR

001122

MOV

001226
001226

RELERR

#RMDS , $BDADR

;CLEAR THE 'RELEASE ERROR ' INDICATOR

:FORM THE ADDRESS OF RMDS FOR TYPEOUT

001124

ADD
MOV

001170

MOV

RMDS(RO) ,$TMP2

;GET THE DRIVE STATUS REGISTER FROM PORT A.

001172

MoV

RMDS(RO) ,$TMP3

;GET THE DRIVE STATUS REGISTER FROM PORT B.

BIC
CMP

HATA'VV,$TMP1
$TMPO,$TMP1

EMT
JMP
MOV

34
70%
$TMP2,$BDDAT

:CLEAR PORT DEPENDENT BITS FROM THE COPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
;BR IF NOT

000010

MOVB

001164
001164
000010

MOV
BIC
MOVB

001166

MOV

001166
001166

BNE
TST
BNE

001164
005252
001170

IS IN NEUTRAL

001126

001234
000010

66%:

MOV
MOVB

RO, $BDADR
;ADD THE 1/0 BASE ADDRESS
#MOL 'PGM'DPR'DRY,$GDDAT ;COMPARISON CONSTANT

PORTA ,RMCS2(R0) ;SELECT PORT A.

$TMP2,$TMPO
;COPY IT INTO "$TMPO'
#ATA!VV,$TMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0) ;SELECT PORT B.

$TMP3,$TMP1

66%
$TMPO
68%

;COPY IT INTO '$TMP1'*

;BYPASS THE REST OF THE CHECKS
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE

PORTB,PTNBR
:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB_RMCS2(R0) ;SELECT PORT B.

Smsao RM0S/3/72 DU POR TST 2

*"vv' FOR PORT A

SET

005114
005120
005122
0051

005136
005144
005150
005152
005160
005162
005170

005737
001414
013737
013737
113760

005737

001004

MACRO v04.00

4-APR-B1
TST

001164

1ST

177777

67%:

001170
001224

68%:

BNE
MOV
EMT

001124

69%:

001172
001226

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.

HATA!VV, $TMP3

BEQ
EMT

708
37

70%:

$TMP3,$BDDAT
PORTB,PTNBR

BIC

CMP

000240
000004

;LOOK FOR BIT FAILURES WHEN RMDS READ
s CHANGE PORT NUMBER
;DON'T CHECK ATTN BIT OR vV BIT
;ALL BITS OK ?
;BR IF OK FROM PORT A.

#ATA!VV,$TMP?
$GDDAT ,$TMP2
69%
37

001124

$GDDAT ,$TMP3

NOP
SCOPE

AR AR

E AR

'TEST 3

SEQ 0034

$TMP2
, $BDDAT
PORTA,PTNBR

BIC
CMP
BEG
EMT

MOV
MOV

100100

MOV
MOV

100100

10-5

$TMPO
sSEE IF STATUS EQ O FRCM PORT A,
67%
BR IF ZEROC
PORTA,PTNBR
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
$TMP3, SBDDAT
;"BAD DATA' FOR ERROR TYPE OuT
PORTA ,RM(S2(R0) ;SELECT PORT A,
$TMP]
sSEE IF STATUS EQ ZERO FROM PORT B.
68%
;BR IF NOT
#-1,RELERR
sSET "RELEASE ERROR' INDICATOR

BEC
MOV
MOV
MOVB

001224
001172
001224
001166

18:08:36 PAGE

; CHANGE PORT NUMBER
sDON'T CHECK ATTN BIT OR Vv BIT
;SEE IF READ OK FROM PORT &.
:BR IF OK
SLOOP ?

AR AR

R AR AR R

SET

'vv'

RA AR R AR AR RN R AR RA RN

RARA RN AR

FOR PORT B

7
1
1

SHayro

002
177
005
005

ISSUE A READIN PRESET COMMAND THROUGH PORT B.
THAT THE °'vv' BIT IS SET FOR PORT B.

(=]

ISSUE A RELEASE COMMAND THROUGH PORT B.

001106
001110

00000
001100
000001

001102

001226
001226

000010
001234

001176

%
%

VERIFY

%
%
%

THE

DRIVE

RETURNED

TO NEUTRAL

AND

VERIFY THAT

THAT NEITHER ATTENTION

BIT IS SET.
—

“

TST

KYBCTL

BPL
JMP

1%
EXEC

BEQ

001266

CLEAR COMMAND THROUGH PORT B.

ISSUE A DRIVE

AL i 22222222
it
Rttt
22232202223 R0

S
e NN, N, l...\-‘-l.l

&
NO

001266
W~ o

W
~

O NNN
W
WO~
W

OO-=
—_— — —
FUPON
o—
b s
W

WWWNW
NONNNNNY

VNV—'% &

—un

§-. 83
OoO0Oo
——
—D RORUNY

ORy—

—

32 g3888888s98s
#W A
b
& SNFFIT

roronOrRONONY

"SE T VOLUME VALID

2%:

TEST3:

MOV

#-1,KYBCTL

;PERFORMING ONLY SINGLE TESTS ?
;BR IF NOT
;BR IF JUST ENTERED TEST

JRETURN & GET NEXT TEST NUMSBER
;SET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS

MOV
MCV

‘TEST3,$LPADR
#TEST3,SLPERR

MOVB
MOV

#3,8TSTNM
#STALK ,SP

MOVB
MOV

(R0)
PORTB,RMCS2
;SELECT PORT B
PORT ADDRESS TO LOCATION FOR TYPEQUT
;MOVE
PORTB,PTNBR

MCY

sSET VOLUME

#1,8TIMES

VALUE

FOR PORT

;SETUP ERROR LOOP ADDRESS

;MOVE #3 TEST NUMBER
;SETUP THE STACK POINTER
;D0 1 ITERATION

( ZRMSBO RMOS5/3/2 DU POR 1ST 2
13
SET *vv' FOR PORT B

005350
005356
005364

MACRO v04.00
0000C0
000000
000032

012760
012760
012760

4-APR-B1

d
3
18:08:36 PAGE 10-6

MOV
MOV
MOV

#11 _RMCST1(RO)
#21 ,RMCS1(RO)
#FMT16,RMOF (RO)

;VERIFY THAT THE DRIVE

SEQ 0035

;iSSUE A DRIVE CLEAR
;ISSUE A READIN PRCSET

sSET FMT16

STATUS IS CORRECT

005037
016037
012737
060037
012737
013737
042737
023737
001474
013737
042737
053737

CLR

001126
001122

MOV
MOV
ADD
MoV

001124
001164
001164
001164
001174
001174
001124

104010

005137
000240

64%:

MOV
BIC
(MP
BEQ
MOV
8IC
BIS
EMT
CoM
NOP

CKERR

RMDS (RO) , $BDDAT

;CLEAR THE 'CHECK ERROR' INDICATOR
;GET CONTENTS OF RMDS

#RMDS ,$BDADR
;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, SBDADR
;ADD RH/RM BASE ADDRESS
#MOL ' PGM ' DPR ! DRY 'VV,$GDDAT
;WHAT REGISTER SHOULD BE

$8DDAT, $TMPO

#~C71700, $TMPO
$GDDAT
, $TMPO
64%
$BDDAT , $TMP4

sMGVE REGISTER CONTENTS TO '$TMPO'
;SAVE SPECIFIED BITS

;COMPARE THE BITS
;BR IF OK

;COPY 'BAD DATA'

;CLEAR THE MASKED BITS

#71700. $TMP4
%np:. ,$GDDAT

;'OR" WITH GOOD DATA FOR TYPEOUT
;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR

;RELEASE THE DRIVE FROM PORT B
001226
001226
000013

000010
001234

MovB
MOV
MOV

000000

PORTB,RMCS2(R0)
PORTB,PTNBR

#13,RMCS1(RO)

;VERIFY THAT THE DRIVE

001250
000012

CLR
MOV
ADD
MoV

MOVB
MoV
MOV
BIC
MOvVB
MOV
MGV

wu—-wowwug
NONNSMNONNIN

W o~

—

NNNNSNNNN—=OO~N

001122
011600
001224
000012
001170
100100

3=22288=22
N INW = NWNWWW

005372
005376

001126
001234
000010

001234

001126

000010

668%:

;SELECT PORT B

;MOVE PORT ADDRESS

TO LOCATION FOR TYPEOUT

s ISSUE RELEASE THROUGH PORT B

IN NEUTRAL

RELERR
#RMDS
, SBDADR

:CLEAR THE 'RELEASE ERROR ' INDICATOR

#ATA!VV,$TMPO

;CLEAR PORT DEPENDENT BITS FROM THE COPY

;FORM THE

ADDRESS OF

RMDS FOR

TYPEOUT

:ADD THE I/0 BASE ADDRESS
#MOL ! PGM!DPR
!DRY .SGDDAT
;COMPARISON CONSTANT
PORTA,RMCS2(R0) ;SELECT PORT A.
RMDS (RO) ,$TMP2
;GET THE DRIVE STATUS REGISTER FROM PORT A.
$TMP2
, $TMPO
;COPY IT INTO "STMPO'
RO, $BDADR

PORTB,RMCS2(RO) ;SELECT PORT B.
RMDS (RO) ,$TMP3
:GET THE DRIVE STATUS REGISTER FROM PORT B.
$TMP3, $TMP1
;COPY IT INTO '$TMP1'
HATA!VV, $TMP1
;CLEAR PORT DEPENDENT BITS FROM THE COPY

:ég }?EN(S);ATUS REGISTER THE SAME FROM BOTH PORTS ?
$TMPC, STMP1
66%
$TMPO
;REGISTERS ARE THE SAME: ARE THEY ZERO ?
68%
;BR IF NOT
34
708
;BYPASS THE REST OF THE CHECKS
$TMP2, $BDDAT
sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
PORTB,PTNBR
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB,RMCS2(R0O) sSELECT PORT B.
$TMPO
;SEE IF STATUS EQ O FROM PORT A,
67%
;BR IF ZERO
PORTA,PTNBR

$TMP3, $BDDAT

PORTA,RMCS2(RO)
$TMP1

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
; 'BAD DATA' FOR ERROR TYPE OUT
;SELECT PORT A,
IF STATUS EQ ZERO FROM PORT B.

;{RHSBO RM05/3/2 DU POR TST 2
SET *Wv' FOR PORT B

005732 001004

005734
005742
005744

012737
104036
013737

005774
005776

001401
104037

MACRO v04.00

177777

001250

67%:

001170

001126

68%:

005752 013737 001224 001234
005760 042737 100100 001170
005766 023737 001124 001170

006000

013737

006030
006032
006034
100 006036

001401
104037
000240

006006
006014
006022

013737
042737
023737

001172

001226
100100
001124

001126

001234
001172
001172

4-APR-81

BNE

68%

MOV
BIC
CMP

PORTA.PTNBR
RATA'VV,S$TMP?2
$GDDAT,$TMP2

MOV
EMT
MOV

69%:

;SET 'RELEASE ERROR' INDICATOR

69%
37

MOV

MOV
BIC
cMP

:LOOK FOR BIT FAILURES WHEN RMDS READ

*CHANGE PORT NUMBER
:DON'T CHECK ATTN BIT OR Vv BIT
:ALL BITS OK ?
;BR IF OK FROM PORT A.

$TMP3, $BDDAT

JCHECK RMDS FOR BIT FAILURES = FROM PORT B.

70$
37

*BR IF OK

PORTB,PTNBR
#ATA'VV,$TMP3
$GDDAT ,$TMP3

BEQ
EMT
NOP

SEQ 0036

:BR IF NOT

#-1,RELERR
36
$TMP2,$BDCAT

BEQ
EMT

708:

000004

K
3
18:08:36 PAGE 10-7

SCOPE

:CHANGE PORT NUMBER
;DON'T CHECK ATTN BIT OR vV BIT
;SEE IF READ OK FROM PORT B.

;LOOP ?

105
167
.-:ttttttttttQtttttfilt't't'ttt!tttt.tttttfittit'ttt.tt'tttttttttt.t

;*TEST 4

MEASURE

THE

TIMFOUT ONE-SHOT

THROUGH PORT A

- %

;*MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A
- %

‘*
i

WRITE 0'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE
DRIVE HAS BEEN SEIZED.

“*»
e

WAIT FOR TIMEOUT TO OCCUR.
MEASURE THE DURATION OF THE TIMEOUT
ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

i
e

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

- %

. %

006040
044
006046
006050
006054
006062
ooeo;g

006040

006076

:'.'tttttt'ttt.t'tttttt't‘"it'tttttlttttitttt.t.tttttttt'.ttttt't'
005737

001406
100002
000137
012737
012737
012737

1574

001266

112737 000004

001102

006110 012737 000001

001176

006104

012706

TST

002622
177777 001266 1%:
006076 001106 2%:
006076 001110 i
001100

006116 005037 001256
006122

005037

KYBCTL

2$
1%
EXEC
#-1.KYBCTL
#TEST4,SLPADR
#TEST4.SLPERR

;PERFORMING ONLY SINGLE TESTS ?

MOVB

44, STSTAM

:MOVE #4 TEST NUMBER

MOV

#1,$TIMES

;D0 1 ITERATION

MOV

CLR

001260

THE

CLR
MOV

#STACK,SP

TIMEA

CLR

;START

006126 005037 001252
006132 012737 003720 001254

BEQ
BPL
JMP
MOV
MOV
MOV

TIMEAP

*BR IF NOT
*BR IF JUST ENTERED TEST
‘RETURN & GET NEXT TEST NUMBER
*SET SINGLE TEST INDICATOR
-SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS
:SETUP THE STACK POINTER

;:CLEAR THE TIMEOUT VALUE STORAGE LOCATION

:CLEAR THE + 25% TOLERANCE LOCATION

TIMER

TIME
#2000.
. WATCH

:CLEAR THE ELAPSED .IME COUNTER
-SET WATCH TO 2000. MS

MACRO v04.00 4-APR-81
CZRMSBO RMOS5/3/2 DU POR TST 2
THROUGH PORT A
ONE-SHOT
TIMEOUT
THE
MEASURE
T4

L
18:08:36 PAGE

3
10-8

SEQ 0037

;SEIZE THE DRIVE THROUGH PORT A
113760

013737
005060
113760

013737
013737
016037
010037
062737
005037
023737
001403

001224
001224
000012
001226
001226
001226
000012
001122
000012

MOvVB

000010

001236

MOV

000010
001234
001240
001126

MCVB
MOV

001122

ADD

CLR

MOV

001126

104030

000137
113760

000010
001234
001126
001124
001166

013737

64%:

001164
001164
001164

RMDS (RO)

;STORE SEIZING PORT'S ADDRESS

;WRITE RMDS

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
PORTB ,OPPRT

:'OPPOSITE' PORT ADDRESS

#RMDS , $BDADR

:GENERATE BAD REGISTER ADDRESS

;BYPASS REST OF THE SUBTEST

MOV
MOV

RMDS (RO) ,$BDDAT ;SEE IF DRIVE SEIZED BY PORT A
RO, $BDADR
;RH/RM BASE ADDRESS

CLR
cMP
BEQ
EMT

$GDDAT
$GDDAT ,$BDDAT
648
30

JMP

SJREGISTER SHOULD BE ZERO
;IS THE REGISTER ZERO
:BR IF IT IS

MovB
MOV
MOV
MOV
MOV
COM

PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS
(RO) ,$BDDAT
;SEE IF SEIZING PORT SEES CORRECT STATUS
#MOL !PGM!DPR!DRY!VV,
$GDDAT
;EXPECTED STATUS
$GDDAT,$TMP1
;USE GOOD DATA AS A MASK
$TMP1
;COMPLEMENT THE EXPECTED STATUS

BIC
CMP
BEQ
EMT

$TMP1,$TMPO
$GDDAT , $TMPO
65%
3

MOV

65%:

PORTA,RMCS2(R0O) ;SELECT PORT A

PORTA,SEIZPT

NOP

$BDDAT , $TMPO

;SAVE THE ACTUAL STATUS

;CLEAR UNWANTED BITS
JARE THE EXPECTED STATUS BITS SET ?
;BR IF THEY ARE

WNO

000012

oo
W
NONNNN

—

000010

001254
006426
001252
013572

n—

NN
W
o~

8o g 88882
8

- UN = TN

:WAIT FOR PORT A TO TIMEOUT
001234

001256

MOVB
1%:

2%:

MOV
TST

BNE

PORTB,PTNBR
RMDS (RO)

TST
g:;

WATCH
AS

JMP

MOV
JSR
.WORD

MOV

001260

PORTB ,RMCS2(R0O)

TIME, TIMEA
R5,TOLER
TIMEA

(SP) + ,TIMEAP

;SELECT PORT B

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
;WAIT FOR THE DRIVE TO TIMEOUT

;BR WHEN TIMEOUT OCCURS
;CHECK WATCH
;BR IF NOT ZERO

;BYPASS THE REST OF THE TEST

;SAVE THE ELAPSED TIME FOR PORT A
;CALCULATE THE TOLERANCE
:TIMEOUT VALUE FOR PORT A

;+25% TOLERANCE

sVERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST 500 MS
001256

000764

MP
?:%S

TIMEA,#500.
;S

;IS TIMEOUT VALUE AT LEAST 500 MS ?
sBR IF IT IS

sVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT
3%:

SVERIFY THAT THE DRIVE IS IN NEUTRAL

005037

001250

CLR

RELERR

;CLEAR THE

'RELEASE ERROR '

INDICATOR

(ZRHSBO RM05/3/2 DU POR TST 2
MACRO v04.00 4-APR-B1
MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A

012737
060037
012737
113760

000012
001122
011700
001224
000012
001170
100100
001226
000012
001172

MOV
ADD

001122

o
N
~
W

—

001224
001172
001224
001166

158

CMP
BNE
TST
BNE

$TMPO, $TMP1
66%
$TMPO
68%

;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR _IF NOT
;REGISTERS ARE THE SAME: ARE THEY ZERO ?
:BR IF NOT

MOV
MOV

$TMP2, SBDDAT
PORTB,PTNBR

TST

001250
000000
000000

67%:

001170
001224
100000
001124

001126
001234
001170
001170

68%:

001172
001226

001126
001234
001172
001172

69%:

100000

;COPY IT INTO ‘'STMP1’

HATA!VV, $TMP1

MOV
MOvB

177777
000011
000013

001124

$TMP3 $TMP1

BIC

MOvB
TST
BEQ
MOV

W
~

oO0—

401

;COPY IT INTO ‘'STMPO’

#ATA!VV, STMPO
;CLEAR PORT DEPENDENT BITS FROM THE COPY
PORTB,RMCS2(R0) ;SELECT PORT B.
RMDS(RO) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B.

EMT
JMP

668%:

BNE
MOV
MOV

g\{

MOV
MOV
BIC
CMP
2'54?

MOV
MOV
BIC
CMP
BEQ
EMT

70%:
4%:

NOP
SCOPE

34
708

PORTB,RMCS2(R0)
$TMPO
67%
PORTA,PTNBR

$TMP3, SBDDAT

PORTA ,RMCS2(R0O)
$TMP1
68%
#-1_,RELERR
#11,RMCS1(RO)
g;3.RflCS1 (RO)

$TMP2, $BDDAT

PORTA,PTNBR

#ATA,STMP2
$GDDAT , $TMP2
ggs

$TMP3, SBDDAT

PORTB,PTNBR

WATA,$TMP3
$GDDAT ,$TMP3
708
37

:CLEAR PORT DEPENDENT BITS FROM THE COPY

;BYPASS THE REST OF THE CHECKS

;SET UP POSSIBLE BAD DATA FOR ERROR ME SSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
sSEE IF STATUS EQ O FROM PORT A.
:BR IF ZERO
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

:'BAD DATA' FOR ERROR TYPE OUT
;SELECT PORT A.

;SEE IF STATUS EQ ZERO FROM PORT B.

:BR _IF NOT
;SET 'RELEASE ERROR' INDICATOR
:CLEAR THE DRIVE

;RELEASE THE DRIVE

:LOOK FOR BIT FAILURES WHEN RMDS READ
: CHANGE PORT NUMBER
:DON'T CHECK THE ATTN BIT
SALL BITS OK ?
:BR IF OK FROM PORT A.

sCHECK RMDS FOR BIT FAILURES = FROM PORT B.
; CHANGE PORT NUMBER
sDON'T CHECK THE ATTN BIT
:SEE IF READ OK FROM PORT B.
;BR IF OK
;LOOP ?

: AR AR A A AR R AR AR A A AT AR R A AR A AR AR R A AN AR

'nresr 5

AR AR AR AR

AR RN

MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B

MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B
l"llt‘l

22288
b 88323
=W
WWN
ONON) =W

012

$TMP2 ,$TMPO

#MOL !PGM:DPR!DRY!VV,SGDDAT :COMPARISON CONSTANT
PORTA,RMCS2(R0) ;SELECT PORT A.
RMDS(RO) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A.

BIC
MOVB
MOV

MOV

006752
001170
001226
001226
001164

SEQ 0038

:FORM THE ADDRESS OF RMDS FOR TYPEOQUT
sADD THE 1/0 BASE ADDRESS

MOV

001164

#RMDS , SBDADR
RO, SBDADR

MOV
MOVB
MOV

100100
001164

18:08:36 PAGE 10-9

WRITE 0'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE
DRIVE HAS BEEN SEIZED.

WAIT FOR TIMEOUT TO OCCUR.
MEASURE THE DURATION OF
ONE-SHOT AND SAVE THE VALUE FOR LATER USE.

THE TIMEOUT

MACRO v04.00 4-APR-B81
MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B

18:08:36 PAGE 10-10

. CZRMSBO RMO5/3/2 DU POR TST 2

SEQ 0039

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

- &
122222222222

006756
006756

006762

006764

006766
006772
007000

005737

001406

100002

000137
012737
012737

007006

012737

007014
007022
007026
007034
007040

007014

TSTS:

001266

002622
177777
007014

TST

BEQ

BPL
001266
001106

007014

001110

112737
012706
012737

000005
001100
000001

001102

005037
005037

001262
001264

1%:
2%:

TESTS:

001176

ittt il

KYBCTL

ittt

atiiii ittt

sPERFORMING ONLY SINGLE TESTS ?
:BR IF NOT
;BR _IF JUST ENTERED TEST

#TESTS,SLPERR

sSET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS

JMP
MoV
MOV

EXEC
#-1,KYBCTL
#TESTS5,SLPADR

MOVB
MOV
MOV

#5,8TSTNM
#STACK ,SP
#1,8TIMES

CLR
CLR

TIMER

;CLEAR THE TIMEOUT VALUE SIORAGE LOCATION
;CLEAR THE + 25X% TOLERANCE LOCATION

TIME

;CLEAR THE ELAPSED TIME COUNTER

MOV

TIMEBP

JRETURN & GET NEXT TEST NUMBER

;MOVE #5 TEST NUMSER

;SETUP THE STACK POINTER
::D0O 1 ITERATION

;START THE TIMER

007044

007050

005037

012737

001252

003720

CLR

001254

MoV

#200C. ,WATCH

;SET WATCH TO 2000. MS

;SEIZE THE DRIVE THROUGH PORT B

007056

113760

001226

005060

000012

007064

013737

007076

113760

007072

007104

013737

007120

016037

007112

007126
007132
007140

007144

013737

010037
062737
005037

023737

001226

MOV

001224

000010

MOvVB

001224

001240

MOV

001224
000012

001124

001126

007672

007170
007176

013737
016037

113760

001226

007212

013737

012737

011700

007220
007224
007232
007240
007246
007250
007252

005137
013737
043737
023737
001401
104031
000240

MOV

001126

001122

001124

CLR

001234

001122
000012

001403
104030
000137

007204

MOVB

001236

007152
007154
007156
007162

007162

000010

MOV

MOV
ADD

;SELECT PORT B

RMDS (RO)

;WRITE RMDS

PORTB,SEIZPT

;STORE SEIZING PORT'S ADDRESS

PORTA ,RMCS2(R0)
PORTA,PTNBR

PORTA,OPPRT

;SELECT PORT A

:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

;'OPPOSITE' PORT ADDRESS

RMDS (RO) ,$BDDAT ;SEE IF DRIVE SEIZED BY PORT B

CLR

RO, $8DADR
#RMDS , $BDADR
$GDDAT

;RH/RM BASE ADDRESS
;GENERATE BAD REGISTER ADDRESS
JREGISTER SHOULD BE ZERO

BEQ
EMT
JMP

64%
30
4%

;BYPASS REST OF THE SUBTEST

MOVB

PORTB,RMCS2(R0)

CMP

64%:

PORTB,RMCS2(R0O)

$GDDAT , $BDDAT

;1S THE REGISTER ZERO
ABROIF RIS

;SELECT PORT B

001226
000012

001234
001126

MOV
MOV

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
RMDS (RO) ,$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS

001124

001166

MOV

$GDDAT ,$TMP1

001166
001126
001166
001124

001124

MOV

e, ]
MOV
BIC
CMP

001164
001164
001164
65%:
JWAIT

BEQ
EMT
NOP

FOR PORT B

#MOL ! PGM!DPR!DRY!VV,$GDDAT

$TMP1
$BDDAT
, $TMPO
$TMP1,$TMPO
$GDDAT
, $TMPO
65%
3
TO TIMEOUT

EXPECTED STATUS

;USE GOOD DATA AS A MASK
;COMPLEMENT THE EXPECTED STATUS
;SAVE THE ACTUAL STATUS

;CLEAR UNWANTED BITS
;ARE THE EXPECTED STATUS BITS SET ?

;BR IF

THEY ARE

;, RMSBO RMOS5/3/2 DU POR TST 2

MACRO v04.00

4-APR-81

MEASURE

THE TIMEOUT ONE-SHOT THROUGH PORT B

007256
007262
007270

113760
013737
005760

001224
0012264
000012

007276

005737

001254

007274

001006

007302
007304
007306
007312

001372
104006
000137
013737

007344
001252

007326

012637

001264

007320
007324

004537
001262

013572

000010
001234

001262

18:

2%:

B &
18:08:36 PAGE 10-11

MOVB
MOV
TST

PORTA _RMCS2(R0O) :SELECT PORT A
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RMDS (R0O)
JWAIT FOR THE DRIVE TO TIMEOUT

TST

WATCH

BNE

BNE
EMT
JMP
MOV

JSR
.WORD

MOV

sBR WHEN TIMEOUT OCCURS

1%
6
33
TIME.TIMEB

sBR IF NOT ZERO

;CHECK WATCH

;BYPASS THE REST OF THE TEST
;SAVE THE ELAPSED TIME FOR PORT B

RS, TOLER
TIMEB

(SP)+,TIMEBP

;CALCULATE THE TOLERANCE
;TIMEOUT VALUE FOR PORT B

;+25% TOLERANCE

;VERIFY THAT THE TIMEOUT ONE-SHOT VALUE

007332

023727

007342

104007

007340

103001

001262

000764

SEQ 0040

cMP

BHIS
EMT

TIMEB,#500.

3%
7

IS AT LEAST 500 MS

;IS TIMEOUT VALUE AT LEAST 500 mS ?

:BR IF IT IS

;VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT 8 TIMED OUT

007344

3%:

;VERIFY THAT THE DRIVE

007344

005037

007356

060037

007370
007376
007404
007412
007420
007426
0074
007442
007450
007456
007460
007464

113760
016037
013737
042737
113760
016037
013737
042737
023737
001006
005737
001045

001224
000012
001170
100100
001226
000012
001172
100100
001164

007470
007474
007502
007510
007516

000137
013737
013737
113760
005737

007670
001170
001226
001226
001164

001126
001234
000010

001224
001172

001234
001126

177777
000011
000013

001250
000000
000000

007350
007362

007466

007522
007524
007532

007540
007546
007552
007554
007562
OO?SZO
Q07576

012737

104034

001414
013737
013737

11%760
005737
001012
012737
012760
012760
104035

001250

CLR

IN NEUTRAL

RELERR

;CLEAR THE 'RELEASE ERROR '

RO, $8DADR

;ADD THE I/0 BASE ADDRESS

000012

001122

MOV

#RMDS , $BDADR

011700

001124

MOV

#MOL 'PGM!DPR'!DRY'VV,$GDDAT

EMT

001122

ADD

000010
001170
001164
001164
000010
001172
001166
001166
001166

MOVB
MoV
MOV
BiC
MOVB
MOV
MOV
BIC
CMP
BNE
TST
BNE

001164

001224
001166

66%:

000010

67%:

JMP
MOV
MOV
MOVB
TST

;COMPARISON CONSTANT

PORTA,RMCS2(R0)
RMDS(RO)
. >TMP2
$TMP2,$TMPO
#ATA!VV,$TMPO'
PORTB,RMCS2(R0)
RMDS(RO) ,$TMP3
$TMP3,STMP1
#ATA!VV,$TMP]
$TMPO, STMP1
66$
$TMPO
68%

;SELECT PORT A.
;GET THE DRIVE STATUS REGISTER FROM PORT A.
;COPY IT INTO "STMPO’
;CLEAR PORT DEPENDENT BITS FROM THE COPY
;SELECT PORT B.
;GET THE DRIVE STATUS REGISTER FROM PORT B.
;COPY IT INTO "STMP1'
;CLEAR PORT DEPENDENT BITS FROM THE COPY
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
;BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
:BR IF NOT

708
$TMP2,SBDDAT
PORTB,PTNBR
PORTB,RMCS2(R0)
$TMPO

;BYPASS THE REST OF THE CHECKS
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
;SELECT PORT B.
;SEE IF STATUS EQ O FROM PORT A.

PORTA,RMCS2(R0)
$TMP1
68$%
#-1_,RELERR

;SELECT PORT A.
:SEE IF STATUS EQ ZERO FROM PORT B.
:BR IF NOT
;SET 'RELEASE ERRCR' INDICATOR

BEQ
MoV
MOV

67%
PORTA,PTNBR
$TMP3, $BDDAT

MOV
MOV
EMT

#11,RMCST(RO)
#13,RMCST(RO)
35

MOVB
TST
BNE
MoV

INDICATOR

;FORM THE ADDRESS OF RMDS FOR TYPEOUT

:BR IF ZERO
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
:"BAD DATA' FOR ERROR TYPE 0OUT

;CLEAR THE DRIVE
;RELEASE THE DRIVE

' CZRMSBO RMO5/3/2 DU POR TST 2
MACRO v04.00 4-APR-81
15
MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B

C &
18:08:36 PAGE 10-12

SEQ 0041

007600
007606
007614
007622
007630

013737
013737
042737
023737
001401

001170
001226
100000
001124

001126
001234
001170
001170

68$%:

MOV
MOV
BIC
cMP
BEQ

$TMP2 ,$BDDAT
PORTA,PTNBR
#ATA,STMP2
$GDDAT ,$TMP?2
69%

;LOOK FOR BIT FAILURES WHEN RMDS READ
;s CHANGE PORT NUMBER
sDON'T CHECK THE ATTN BIT
JALL BITS OK ?
;BR IF OK FROM PORT A.

007634
007642
007650
007656

013737
013737
042737
023737

001172
001226
100000
001124

001126
001234
001172
001172

69%:

MOV
MOV
BIC
CMP

$TMP3, $BDDAT
PORTB,PTNBR
#ATA,$TMP3
$GDDAT ,$TMP3

sCHECK RMDS FOR BIT FAILURES - FROM PORT B.
s CHANGE PORT NUMBER
sDON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.

007632

007664
007666
007670

159 007672

104037

001401
104037
000240

EMT

BEQ
EMT
NOP

70%:

000004

4%:

160
¥4
178

70%
37

:BR IF OK

SCOPE

;LOOP ?

":'t*"*“’.“‘*.fi*"**"‘**""'..’...‘.'."*“*".‘*t"'..". S 2332232231

;*TEST 6

TEST

"PORT SELECT'

SWITCH, DRIVE CYCLED UP

- %

;*TEST THE OPERATION OF

THE

'PORT SELECT'

SWITCH (DRIVE CYCLED UP).

» o

M
o

]

005737

001266

007704

000137

002622

177777
007732
007732

001266
001106
001110

112737

000006

012737

000001

007740

- 007744

IS IN

SWITCH TO PORT 'B' POSITION. VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORRECT.

;*
s¥

RETURN THE 'PORT SELECT' SWITCH TO THE 'A/B' POSITION.
THE DRIVE STATE.

VERIFY

:':‘.'..".'“".*."*.‘.""*"‘.“**"."*".".“..""*‘..".'.'.'

007674
07674

007732

VERIFY THAT THE DRIVE

- %

007710
007716
%;;5‘20

"A' POSITION.

;*
;e
o

- %

007700
007702

SWITCH TO PORT

NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORRECT.

001406
100002

012737
012737
012737
012706

0011920

1ST6:

IST

BEQ
BPL

JMP

:PERFORMING ONLY SINGLE TESTS 2

EXEC

JRETURN & GET NEXT TEST NUMBER

2%
1%

‘BR IF NOT
;BR IF JUST ENTERED TEST

MOV
MOV
MOV

#-1,KYBCTL
#TEST6,$LPADR
#TEST6,$LPERR

001102

MOVB

#6,8TSTNM

;MOVE #6 TEST NUMBER

001176

MOV

#1,8TIMES

;:D0O 1 ITERATION

180

1%:
2%:
TESTE

KYBCTL

MOV

#STACK ,SP

;SET SINGLE TEST INDICATOR
;SETUP SCOPE LOOP ADDRESS
;SETUP ERROR LOOP ADDRESS
;SETUP THE STACK POINTER

;CLEAR ATTENTION BITS FOR BOTH PORTS

007752
007760
007764

113760
005060
012760

001224
000012
000011

010000
010006

113760
005060

001226
000012

007772
010012
010020

01%760
012760
012760

000010

000000

000013

000000

000011
000013

000000
000000

000010

MOVB
CLR
MOV

PORTA_RMCS2(R0O) ;SELECT PORT #A
RMDS (RO)
;SEIZE THE DRIVE
#11 ,RMCS1(RO)
;ISSUE DRIVE CLEAR

MOVB
CLR

PORTB,RM(S2(R0O) SELECT PORT #8
RMDS (RO)
;SEIZE THE DRIVE THROUGH PORT 'B’

MoV

MOV
MOV

#13,RMCS1(RO)

;RELEASE THE DRIVE

#11 ,RMCS1(RO)
#13,RMCS1(RO)

;ISSUE DRIVE CLEAR
:RELEASE THE DRIVE

(ZRMSBO RMO5/3/2 DU POR TST 2
16

TEST

"PORT

NN SO wwug’u
3£
RoonoNA Y, S FRELIREBNVREBITRANRS
eeaaaatacessass

10440
104401

SWITCH, DRIVE

020224
020316

TYPE
TYPE
HALT

N
N

33g3cees

-h

s888388S §8 3

d
d
D
d
D
)
D
e
)

FRRIE
777

~N
N

—_

8888
8388
=——Laa
—t e —d - O

WWHO\#N\NU‘-‘O* 8

- NN (NN
oNn
WO W

o
o

~
NN

012

~ - ~N

—

PONINY 2 NNWNIN
= TN

oS SRR 2228822288
38%%
GNAAR LT

~
o

og
>N

18:08:36 PAGE 10-13
. SWTCHA

.CONTUE

SEQ 0042

sSWITCH TO “A*
sPRESS *CONTINUE®

;VERIFY THAT THE DRIVE IS IN NEUTRAL

[olelelelelelelelelnlelelelelelelololololololololelolololalelela]

8IS

s —
e
e

4-APR-81

CYCLED UP

(elslinlnlelelclolelelalelclelalelelololalslelalelelelelolalalelelalelalolelolelololalelelelolele)
ol
) i cold D o oD D D D o o
D S el D D D D D oD D D i D o o
) e o
D e

181 010026
182 0100
183 010036
184
185

SELECT®

MACRO v04.00

001124

020261
020316

64%:

BEQ
MOV
MoV
MOVB

001234
001126
000010

001250

000000
000000

CLR
MOV
ADD
MCV
MOvB
MOV
MOV
BIC
MOvB
MOV
MOV
BIC
CMP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOvB
IST

TST

65%:

001126
001234
001170
001170

668%:

001126
001234
001172
001172

67%:

68%:

BNE
MOV
MOV
MOV
EMT
MoV
MOV
8IC
cMP
BEQ
EMT
MOV
MOV
BIC
cMP
BEQ
EMT

NOP
TYPE
TYPE
HALT

RELERR
#RMDS , SBDADR

RO.$BDADR

;CLEAR THE 'RELEASE ERROR '
sADD THE 1/C BASE ADDRESS

#MOL !PGM!DPRIDRY!VV,SGDDAT

PORTA ,RM(CS2 (RO)
RMDS (RO) ,$TMP2
$TMP2,$TMPO
#ATA!VV,$TMPO

INDICATOR

;FORM THE ADDRESS OF RMDS FOR TYPEOUT
;COMPARISON CONSTANT

;SELECT PORT A.
;GET THE DRIVE STATUS REGISTER FROM PORT A.
;COPY IT INTO 'S$TMPO'
sCLEAR PORT DEPENDENT BITS FROM THE COPY

PORTB,RMCS2(R0) ;SELECT PORT B.
RMDS (RO) ,$TMP3
;GET THE DRIVE STATUS REGISTER FROM PORT B.
$TMP3,$TMP1
;COPY IT INTO '$TMP1'
#ATA!VV, $TMP1
;CLEAR PORT DEPENDENT BITS FROM THE COPY
$TMPO, $TMP1
:ég }?ENS;ATUS REGISTER THt SAME FROM BOTH PORTS ?
649
$TMPO
JREGISTERS ARE THE SAME: ARE THEY ZERO ?
66%
;BR IF NOT
34
68%
;BYPASS THE REST OF THE CHECKS
$TMP2
, SBDDAT
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE
PORTB,PTNBR
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
PORTB,RM(S2(R0) ;SELECT PORT B.
$TMPO
;SEE IF STATUS EQ O FROM PORT A.
65%
;BR IF ZERO
PORTA ,PTNBR
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
$TMP3, SBDDAT
;"BAD DATA' FOR ERROR TYPE OUT
PORTA,RMCS2(RO) ;SELECT PORT A.
$TMP1
;SEE IF STATUS EQ ZERO FROM PORT B.
663
;BR IF NOT
#-1,RELERR
#11,RMCS1(RO)

:;S.RHCS‘I (RO)
$TMP2, $SBDDAT
PORTA,PTNBR
#ATA,$TMP2
$GDDAT ,$TMP2

67%
37
$TMP3, SBDDAT

PORTB,PTNBR
#ATA,$TMP3

$GDDAT ,$TMP3
68%
37
,SWTCHB

. CONTUE

;SET "RELEASE ERROR' INDICATOR

;CLEAR THE DRIVE
RELEASE THE DRIVE

;LOOK FOR BIT FAILURES WHEN RMDS READ
; CHANGE PORT NUMBER

sDON'T CHECK THE ATTN BIT
;ALL BITS OK ?
;BR IF OK FROM PORT A.

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
;CHANGE PORT NUMBER
;DON'T CHECK THE ATTN BIT
;SEE IF READ OK FROM PORT B.
;BR IF OK
;SWITCH T0 'B'

;PRESS °CONTINUE'

;VERIFY THAT THE DRIVE IS IN NEUTRAL

001122

012737

011700

001124

060037
113760

016037
013737
042737

113760

016037
013737
042737
023737

001122

001224

000012
001170
100100

00122

000012
001172
100100
00 164

CLR
MOV

§§§§§§§§§
N S

001250
000012

W
~N

FRIR

—

n
o

— W

- \un
o~

001126

69%:

001234
001126
000010
001250
000000
000000

70%:

013737

001170
001224

001126
001234

71$:

023737

001124

001170

NS&8Z

177777
000011
000013

012737

001172
001224
—

W—
~~

W
~ oS

013737
113760

170

8838

—

g8=a2 o

W
~

100000

ADD
MOV
MOV
MOV
MOV
8IC
MOVB
MOV
MOV
Bi(
CMP
BNE
TST
BNE
EMT
JMP
MOV
MOV
MOvB
TST
BEQ
MoV
MOV
MovB
TST

001170

~
"N
~
W
~N

012760

w
~N
W
~

013737

042737

W
~

o
o
W
~

001172

001226
100000
001126

no
H
o

NONINY
—= —

§§U\W\hu\flv‘
N
R
o

v
v
v

—

005037
012737

T T
S

el ol w— =l -l -

NN
=3 —
> —a —

NN
NN-OROOO
Wy —

-l

OOOOSOOOO
NN &
ro
~
N Rl

) - el

el el

ST
e N

D e

D - ol

2532
3 22222228 gE3ge

D o

el oD wnd

b e

cod

b e

jelele] elelelelelolelelolole]

i e

d wad

jolslelelelolelololalslololalelalalololelolololalolelols
] elelolelolelalelelelolelelolelolaleY
e

Seepeseasnaa

%RHSBO RM0S5/3/2 DU POR TST 2
MACRO v04.00 4-APR-B1
TEST *"PORT SELECT® SWITCH, DRIVE CY(LED uP

726

005737

001266

734

104401

020156

001126
001234
001172
001172

72%:

73%:

BNE
MOV
MOV
MOV
EMT
MOV

MOV
8IC

CMP
BEQ
EMT
MOV
MOV
BIC

cMP
BEQ
EMT
NOP
TST
BEQ

TYPE
SCOPE

&
E
18:08:36 PAGE 10-14
SEQ

RELERR

;CLEAR THE

RO, $BDADR

-ADD THE 1/0 BASE ADDRESS

#RMDS , $BDADR

'RELEASE ERROR

INDICATOR

;FORM THE ADDRESS OF RMDS FOR TYPEOUT

#MOL !PGM!DPR!DRY!VV,SGDDAT

:(COMPARISON CONSTANT

PORTA _RMCS2(RO) ;SELECT PORT A.
RMDS(RO) ,$TMP2
:GET THE DRIVE STATUS REGISTER FROM PORT A,

$TMP2 ,$TMPO

;COPY IT INTO 'STMPO'

PORTB,RMCS2(RC)

;SELECT PORT B.

#ATA!VV, $TMPO

RMDS(RO) ,$TMP3

$TMP3,$TMP1

#ATA!VV $TMP1

$TMPO, STMP1
69%
$TMPO

:CLEAR PORT DEPENDENT BITS FROM THE

COPY

;GET THE DRIVE STATUS REGISTE:. FROM PORT B.

;COPY IT INTO '$TMP1'

:CLEAR PORT DEPENDENT BITS FROM THE

COPY

;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ?
:BR IF NOT
JREGISTERS ARE THE SAME: ARE THEY ZERO ?

;23

:BR IF NOT

738

;BYPASS THE REST OF

PORTB,RMCS2(RC)

;SELECT PORT B.

$TMP2,$BDDAT
PORTB,PTNBR
$TMPO
70%

THE CHECKS

;SET UP POSSIBLE BAD DATA tOR ERROR MESSAGE
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL
sSEE IF STATUS EQ O FROM PORT A.
:BR IF

ZERO

PORTA,PTNBR

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL

PORTA ,RMCS2(R0O)

;SELECT PORT A.

$TMP3,$SBDDAT
$TMP1
718

:'BAD DATA® FOR ERROR TYPE OUT

;SEE IF STATUS EQ ZERO FROM PORT B.
;BR IF NOT

#-1_RELERR
#11,RMCST1(RO)

;SET 'RELEASE ERROR'
;CLEAR THE DRIVE

$TMP2, SBDDAT

;LOOK FOR BIT FAILURES WHEN RMDS READ

#ATA,$TMP2

;DON'T CHECK THE ATTN BIT

;gs

:BR IF OK FROM PORT A.

$TMP3, SBDDAT
PORTB,PTNBR

;CHECK RMDS FOR BIT FAILURES - FROM PORT B.
: CHANGE PORT NUMBER

$GDDAT , $TMP3
73%
37

;SEE IF READ OK FROM PORT B.
:BR IF OK

563.RHC51 (RO)
PORTA _PTNBR

$GDDAT ,$TMP2

#ATA,$TMP3

KYBCTL
1%

. SWTCHN

INDICATOR

;RELEASE THE DRIVE

; CHANGE PORT NUMBER

;ALL BITS Ok ?

sDON'T CHECK THE ATTN BIT

;SINGLE TEST MODE
;BR _IF NOT

JRETURN SWITCH TOQ 'A/B'
;LOOP ?

'.'t't..t..t"tttt.'!'t'i"'t'!.tlt"!'.ttfl't..t't.'t.".tttlti".

S*TEST 7
-

TEST

'PORT SELECT®

S«TEST THE OPERATION OF THE
i

SWITCH ON PORT A

'PORT SELECT' SWITCH (DRIVE CYCLED DOWN).

D043

(ZRMSBO RMOS5/3/2 DU POR TST 2

SWITCH TO PORT A POSITION.
VERIFY [HAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE CORRECT.

SWITCH THE

‘PORT SELECT® SWITCH TO A;

CYCLE THE DRIVE UP.

WHEN THE DRIVE CYCLES UP, VERIFY THAT

°'Vv=A IS RESET, AND

C(YCLE

'l:gglilEAA DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH

THE DR:IVE DOWN.

THAT

'ATA-A IS SET.

VERIFY

THAT

THE

DRIVE

CANNOT BE ACCESSED

THROUGH PORT B AND

'NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH
PORT B.
ATTEMPT TO SET PORT REQUEST BY WRITING 0°'S
INTO RMDS THROUGH PORT B.

SEQ 0044

N I

"PORT SELECT® SWITCH ON PORT A

18:08:36 PAGE 10-15

TEST

4-APR-B81

LR B

MACRO v04.00

ISSUE A RELEASE COMMAND THROUGH PORT A.
DRIVE REMAINS LCCKED ON PORT A.

VERIFY THAT THE

a2 2220ttt
22220 2]

?ST?:

010742
010742
010746
010750
010752
010756
010764
8}?568

005737
001406
100002
000137
012737
012737
012737

002622
177777
011000
011000

011000
011006
011012

112737
012706
012737

000007
001100
000001

001102

011020
011026
011034
011040
011044

113760
013737
104401
104401
104401

001224
001224
020367
020224
020407

000010
001234

032760

010000

000012

1$:

032760
001774

010000

000012

2%:

011050

011056

011060
011066

001374

001266

KYBCTL

:PERFORMING ONLY SINGLE

JMP
MOV

EXEC
#-1,KYBCTL

*RETURN & GET NEXT TEST NUMBER
*SET SINGLE TEST INDICATOR

MOVB

#7.8TSTNM

MOVB

PORTA,RMCS2(RO)

TYPE
TYPE

.SWICHA
.CYCLEU

BEQ
8PL

001266
001106
001110

18:

28:
i

MOV
MOV

001176

MOV
MOV

MOV
TYPE

BIT

BNE
BIT
BEQ

2
1$

*BR IF NOT
*BR IF JUST ENTERED TEST

#TEST7 .$LPADR
#TEST7.$LPERR

:-SETUP SCOPE LOOP ADDRESS
:SETUP ERROR LOOP ADDRESS

:MOVE #7 TEST NUMBER

#STACK, SP
#1,8TIMES

PORTA.PTNBR
,CYCLED

TESTS

*SETUP THE STACK POINTER
;D0 1 ITERATION

:SELECT PORT A

:MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
:"CYCLE DOWN THE DRIVE'

#MOL ,RMDS(RO)

1%
#MOL ,RMDS(RO)
2

‘SWITCH TO 'A°
*"CYCLE UP THE DRIVE'

:IS

"MOL® RESET

*BR IF NO (DRIVE NOT CYCLED DOWN)
:1S *MOL' SET ?
*BR IF NO (DRIVE NOT CYCLED UP)

:DRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT A

011070
011074
011102
011110
011114
011122
011130
011136

005037
016037
012737
060037
012737
013737
042737
023737

001244
000012
000012
001122
110600
001126
066077
001124

001126
001122
001124
001164
001164
001164

CLR
MOV
MOV
ADD
MOV

CKERR
:CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT
~;GET CONTENTS OF RMDS
#RMDS ,$BDADR
:FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
:ADD RH/RM BASE ADDRESS
#ATA'MOL
! DPR'DRY,$GDDAT
;WHAT REGISTER SHOULD BE

BIC

#%C111700,$TMPO

MOV

CMP

$BDDAT,$TMPO

:MOVE REGISTER CONTENTS TO '$TMPQ’

$GODAT,$TMPO

;COMPARE THE BITS

~:SAVE SPECIFIED BITS

JRMSBO RMOS/3/2 DU POR TST 2
MACRD v04.00
T
TEST "PORT SELECT® SWITCH ON PORT A

011144

001414

011146

013737

001126

001174

011162

053737

001174

001724

005137
000240

001244

011154

011170

011172
011176

042737

104021

111700

4-4APR-B1

SEQ 0045

649

:BR IF 0K

BIC

#111700,8TMP4

CLEAR THE MASKED BITS

BIS
EMT

64%:

BEOQ
MOV

001174

1B:08:36 PAGE 10-16

oM
NOP

$BDDAT, $TMP4

:(OPY "BAD DATA®

$TMPS , SGDDAT

:'OR* WITH GOOD DATA FOR TYPEOQUT

CKERR

;SET THE REGISTER COMPAR:t ERROR INDICATOR

;SET VOLUME VALID FOR PORT A

011200
011206
011214

012760
012760
012760

000011
000021
010000

000000
000000
000032

MOV
MOV
MOV

#11,RMCS1(RO)
;ISSUE A DRIVE CLEAR
#21 ,RMCS1(RO)
;ISSUE A READIN PRESET
#FMT16,RMOF
(RO) ;SET FMT16

;CHECK THE DRIVE STATUS THROUGH PORT B; VERIFY THAT
;SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT B.

011222
011230
031236
011242
011250
011256

113760
013737
005037
016037
012737
060037

011274

042737

011262
011266

005037
013737

011302
011310
011312
011320
011326
011334
011336
011342
011344
011350
011356
011364

023737
001414
013737
042737
053737
104022
005137
000240
005037
016037
012737
060037

011376

013737

011370

011404
011412
011420
011422
011430
011436
011444
011446
011452
011454

012737

042737
023737
001414
013737
042737
053737
104023
005137
000240
005060

001226
001226
001244
000072
000012
001122
001124
001126

000010
001234

001124

001164

000077
001126
177700
001174

001126
001122
001164

001164

001244

66%:

001244
000010
000010
001122
010000

001124

167777
001124

001164
001164

001126

001126
010000
001174

001126
001122

001174
001174
001124
68%:

000012

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT ;GET CONTENTS OF RMDS
#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
sADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
$BDDAT , $TMPO
;MOVE REGISTER CONTENTS TO '$TMPO'

CMP
BEQ
MOV
BIC
BIS
EMT
COM
NOP
CLR
MOV
MOV
ADD

$GDDAT ,$TMPO
66$

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMCS2(RO) ,$BDDAT ;GET CONTENTS OF RMCS2
W#RMCS2 ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS

MOV

$BDDAT , $TMPO

MOV

001164

001244

MOvB
MoV
CLR
MOV
MOV
ADD
CLR
MOV

BIC

001174
001174
001124

BIC
cMP
BEQ
MOV
BIC
BIS
EMT
oM
NOP
(LR

#~C177700,8TMPO " ;SAVE SPECIFIED BITS

011466
011474

113760

013737
012760

001224

001224
000013

000010

001234
000012

MOVB

MOV
MOV

:COMPARE THE BITS
:BR _IF OK

$BDDAT , $TMP4
#177700,8TMP4
$TMP4 , SGDDAT
22
CKERR

;COPY 'BAD DATA'
;CLEAR THE MASKED BITS
:'OR" WITH GOOD DATA FOR TYPEOUT

;SET THE REGISTER COMPARE ERROR INDICATOR

#NED ,SGDDAT

;WHAT REGISTER SHOULD BE

#~CNED,$TMPO
$GDDAT ,$TMPO
63%
$BDDAT , $TMP4
#NED , $TMP4
$TMP4 ,$GDDAT
23
CKERR

;SAVE SPECIFIED BITS
;COMPARE THE BITS
;BR IF OK
;:COPY 'BAD DATA'
;CLEAR THE MASKED BITS
:'OR" WITH GOOD DATA FOR TYPEOQUT

RMDS (RC)

sVERIFY THAT DRIVE

011460

'NED'

;MOVE REGISTER CONTENTS TO '$TMPO'

;SET THE REGISTER COMPARE ERROR INDIC/TOR
;TRY TO SET REQUEST BY WRITING THROUGH
:THE LOCKED OUT PORT (PORT ‘'B')

STAYS LOCKED ON PORT A

PORTA ,RM(S2(R0O)

;SELECT PORT A

PORTA_PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT
#13 ,RMDS (RO)
;ISSUE A RELEASE THROUGH PORT A

?
i

RMSB0 RMOS/3/2 DU POR 1ST 2

TEST

'PORT SELECT®

011502
011510
011516
011526
011530
011536
011544

011550

011554
011562
011570
011576
011600
011606
011614
011622
011624
011630

013737
113760
013737
005037
016037
012737
060037

005037

013737
042737
023737
001414
013737
042737
053737
104024
005137
000240

MACRO v04 .20

SWITCH ON PORT

001224
001226
001226
001244
000012
000012
001122

001124

001236
000010
001234

MOV
MGVB
MOV
(LR
MOV
MOV
ADD

001126
061122

001126
77
001124

001164
001164
001164

001126
177700
001174

001174
001174
001124

001244

4-APR-B1

(LR

70%:

MOV
BIC
CMP
BEQ
MOV
BIC
BIS
EMT
COM
NOP

18:08:36 PAGE

10-17

PORTA,SEIZPT

PORTB.RMCS2(R0)

:ADDRESS OF

°*LOCKED ON' PORIT

~;SELECT PORT B

PORTB,PTNBR
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE °‘CHECK ERROR' INDICATOR
RMDS (RQ) ,$BDDAT
~;GET CONTENTS OF RMDS

#RMDS ,$BDADR
RO, SBDADR

$GDDAT
$SBDDAT,$TMPO

:FORM REGISTER ADDRESS OF ERROR MESSAGE
;ADD RH/RM BASE ADDRESS

“WHAT REGISTER SHOULD BE
:MOVE REGISTER CONTENTS TO '$TMPO’

#~(177700,$TMPO " ;SAVE SPECIFIED BITS
$SGDDAT,$TMPO
708
$BDDAT, $TMP4

:(OMPARE THE BITS
:BR IF OK
*COPY 'BAD DATA'

CKERR

:SET

#177700,8TMP4
;ZHP‘.SGDDAT

:CLEAR THE MASKED BITS
S'OR' WITH GOOD DATA FOR TYPEOUT

THE REGISTER COMPARE ERROR INDICATOR

;1IF ERROR OCCURRED, CHECK FOR LOOP ON TEST

011632
011636
011640
011646
011650
011654
011660
011664

105737
001412
032777
001406
105037
005037
000177
005737

001103

011672
011700
011702
011706
011712
011716
011724
011732
011740
011742
011750

032777
001054
104401
104401
104401
113760
013737
032760
001374
032760
001774

040000

011670

001460

001000

167272

001103
001176
167224
001266

3%:
167240

020367
020156
020407
001224
001224
010000

000010
001234
000012

4%:

010000

000012

S%:

ISTB
BEQ
BIT
BEQ
CLRR
CLR
JMP
TST
BEQ

BIT
BNE
TYPE
TYPE
TYPE
MOVB
MOV
BIT
BNE
BIT
BEQ

$ERFLG
3%

;DID AN ERROR OCCUR
;BR IF NOT

33
$ERFLG
$TIMES
a$LPERR

;BR_IF
;CLEAR
sCLEAR
;GO TO

#5409, aSWR

KYBCTL

A#SW14 ,aSWR
6%
.CYCLED

.SWTCHN

;SEE

LOOP ON ERROR

(SWR9 =

NOT
THE ERROR FLAG
THE MAX ITERATION COUNT
THE LOOP ADDRESS

;IN SINGLE

TEST MODE

;B8R IF NOT

;LOOP ON TEST ?
:BR_IF LOOPING

sTYPE

'CYCLE DOWN'

:'SWITCH TO A/B'

,CYCLEU

;'CYCLE _THE DRIVE UP'

#MOL ,RMDS(RO)
43
#MOL ,RMDS(RC)
5%

;IS °'MOL'
:BR IF NO
;1S 'MOL'
;BR IF NO

PORTA,RMCS2(RO)
;SELECT PORT A
PORTA ,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
RESET ?
(DRIVE NOT CYCLED DOWN)
SET ?
(DRIVE NOT CYCLED UP)

;SET VOLUME VALID FOR BOTH PORTS

011752
011760
011766
011774

012760
012760
012760
113760

000011
000021
000013
001226

000000
000000
000000
000010

MOV
MOV
MOV
MOVB

012010
012016
012024
012032
012040
012044
012046
012050

012760
012760
012760
012737
005737
001375
000004
000400

000021
010000
000013
011610
001254

000000
000032
000000
001254

MOV
MOV
MOV
MOV
TST
BNE
SCOPE
B8R

012002

013737

001226

001234

MOV

6%:
7%:

#11.RMCS1(RO)
:ISSUE A DRIVE CLEAR THROUGH PORT A
#21.RMCST1(RO)
-ISSUE A READIN PRESET THROUGH PORT A
#13.RMCS1(RO)
-RELEASE PORT A
PORTB,RMCS2(R0)
~:SELECT PORT B
PORTB.PTNBR
:;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT
#21 ,RMCST(RO)
:ISSUE A READIN PRESET THROUGH PORT 8
#FMT16,RMOF
(RO) :SET FMT16
#13,RMCS1(RO)
-RELEASE PORT B

#5000. ,WATCH
WATCH
7%
TST10

-SPINDLE MOTOR 'COOL DOWN' DELAY

;FINSIHED ?
;BR IF NOT

;LOOP ?
;:G0

TO NEXT

TEST

(RO V04.20

4-APR-81

1B:08:36 PAGE 10-18

':".l'..'..'..I'.'...'Q.."..Q'.Q.........'..Q'.'...".'."Q'.ll

:-'TESY 10
-

THE OPERATION OF

THE

°‘PORT SELECT®

SWITCH

(DRIVE

CYCLED DOWN).

C(YCLE

THE DRIVE DOWN.

SWITCH THE

WHEN THE DRIVE CYCLES UP,
THAT ‘ATA-B IS SET.

é’gglr)EBA DRIVE

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND
'NED® SETS WHEN ATEMPTINC TO ACCESS THE DRIVE THROUGH
PORT A.
ATTEMPT TO SET PORT REQUEST BY WRITING 0'S

N
LT

SWITCH TO PORT B POSITION.
VERIFY THAT THE DRIVE IS IN
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH
PORTS, ARE (ORRECT.

RB
LB OB

R N RN I R R R RNN N

;*TEST

TEST "PORT SELECT® SWIT(H ON PORT B

°"PORT SELECT'

SWITCH TO B;
VERIFY THAT

CYCLE

THE DRIVE UP.

°'vv-B [S RESET,

AND

CLEAR COMMAND AND A READIN PRESET (OMMAND THROUGH

INTO RMDS THROUGH PORT A.

ISSUE A RELEASE COMMAND THROUGH PORT B.

DRIVE REMAINS LOCKED ON PORT B.

THE

VERIFY THAT THE

CYCLE THE DRIVE DOWN.
CHANGE
A/B; CYCLE THE DRIVE UP.

°'PORT SELECT'

SWITCH TO

VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION
BITS ARE SET, AND THAT BOTH 'vv' BITS ARE RESET.

—un
rorono
NN
W
~
NONNNNND

822
8\/‘

T ST10:

KYB(CTL
2%

;PERFORMING ONLY SINGLE TESTS ?
;BR IF NOT

1%:

JMF
MOV

EXEC
#-1,KYBCTL

JRETURN & GET NEXT TEST NUMBER
;SET SINGLE TEST INDICATOR

TESTIO

MOV

#TEST10,8LPERR

;SETUP ERROR LOOP ADDRESS

8PL

2%:

—

8 oS

— YN
OoOONN

TST
BEQ

MOV

KRR Ww

2%:

#TEST10,8LPADR

:BR IF JUST ENTERED TEST

;SETUP SCOPE LOOP ADDRESS

#10,$TSTNM

;MOVE #10 TEST NUMBER

MOV

#1,8TIMES

;:D0 1 ITERATION

#STACK,SP

;SETUP THE STACK POINTER

MOVB
MOV

PORTB,RMCS2(R0O)
;SELECT PCRT B
PORTB,PTNBR
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT

TYPE
TYPE

LSWTCHB
LCYCLEU

:SWITCH TO 'B'
;"CYCLE UP THE DRIVE'

BIT

#MOL ,RMDS (RO)

;IS "MOL' RESET ?

TYPE

1%:

MOVB

MOV

rorornn
O NNN
W
W

=00
oo
b

OO0

O00—

—-~——O—-=

=]
w

33 R3r¥8

e
e

[wlale NelelelaleNslelelslslolelelelslels)
el il
—
e
D
—
D e e D s
D —d —B _a
rorofu
furonufuny
rorgfunurunununuRUNUNONY
i e
P
— d D a2
O
olels]
VW
Nt
=t
O~
ooV
OO OoON S

a2 222222222222ttt
2222222223232 202 2]

BNE
BIT

.CYCLED

1%
#MOL ,RMDS (RO)

:"CYCLE DOWN THE DRIVE'

;BR [F NO (DRIVE NOT CYCLED DOWN)
;IS "MOL' SET ?

CZRMSBO RM0S5/3/2 DU POR 1ST 2
TEST

°*PORT SELECT®

012176

MACRO v04.00

SWITC(H ON PORT 8

001774

4-APR-B1

BEQ

18:08:36 PAGE

10-19%

2 3

SEQ 0048

:BR IF NO (DRIVE NOT Cv(CLeD uP)

:DRIVE IS CVCLED UP, (HECK STATUS THROUGH PORT B

(012200
012206
012212
012220
012226
012232

012240

012246
012254
012256

012264
012272
012300
012302
012306

005037
016037
012737
060037
012737
013737

042737

023737
001414
013737

042737
053737
104021
005137
000240

001244
000012
000012
001122
110600
001126

001124
001164

001124

001164

066077
001126
111700
001174

001126
001122

001164

(KERR
sCLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT ;GET CONTENTS OF RMDS
#RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $SBDADR
;ADD RH/RM BASE ADDRESS
#ATA!MOL :DPR:DRY_,$SGDDAT -WHAT REGISTER SHOULD BE
$BDDAT ,$TMPO
sMOVE REGISTER CONTENTS TO '$TMPO’

cMP
BEQ
MOV

$GDDAT ,$TMPD
648
$BDDAT , $TMP4

BIC

001174
001174
001124

001244

CLR
MOV
MOV
ADD
MOV
MOV

64%:

BIC
BIS
EMT
CoM
NOP

#~C111700,$TMPO
#111700,8TMP4
$TMP4 ,SGDDAT
21
CKERR

~;SAVE SPECIFIED BITS

:COMPARE THE BITS
:BR IF OK
:COPY "BAD DATA'

;CLEAR THE MASKED BITS
;'OR" WITH GOOD DATA FOR TYPEOUT
;SET THE REGISTER COMPARE ERROR INDICATOR

;SET VOLUME VALID FOR PORT B

012310
012316
012324

(012760
012760
012760

000011
000021
010000

000000
000000
000032

MoV
MoV
MOV

#11 RMCST1(RO)
;ISSUE A DRIVE CLEAR
#21 ,RMCST1(RO)
;ISSUE A READIN PRESET
#FMT16,RMOF (RO) ;SET FMT16

;CHECK THE DRIVE STATUS THROUGH PORT A;

VERIFY THAT

:SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT A.
012332

012340

012346
012352
012360

012366

012372

012376

012404

012412
012420

113760

001224

005037
016037
012737

001244
000012
000012

013737

060037

001224

001122

005037

001124

042737

000077

013737

023737
001414

000010

001234

001126

001164

001124

001164

012422

013737

001126

001174

012436

053737

001174

001124

012430
012444
012446
012452
012454
012460
012466
012474
012500

012506
012514

Q‘l?Sig

v1es
01,532
01259

042737

104022
005137
000240
005037
016037
012737
060037
012737

013737
042737
023737

001414
013737
042737

177700

001244
000010
000010
001122
010000
001126
167777
001124

001126
010000

001124
001164
001164
001164

001174
001174

CLR
MOV
MOV
ADD
CLR
MOV

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) ,$8DDAT ;GET CONTENTS OF RMDS
#RMDS ,$B8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, 38DADR
sADD RH/RM BASE ADDRESS
$GDDAT
;WHAT REGISTER SHOULD BE
$8DDAT, $TMPO
;MOVE REGISTER CONTENTS TO '$TMPO'

cMP
BEQ

$GDDAT ,$TMPO
66%

:COMPARE THE BITS
;BR IF OK

BIC

#177700,8TMP4

:CLEAR THE MASKED BITS

EMT
COM
NOP
(LR
MOV
MOV
ADD
MoV

22
CKERR

MOV

BIS
668%:

001126
001122

PORTA,RMCS2(R0)

BIC

001174

001244

MOvB

MOV

001126
001122

°'NED'

MOV
BIC

(MP

BEQ
MOV
BIC

PORTA,PTNBR

;SELECT PORT A

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

#~C177700,$TMPO " ;SAVE SPECIFIED BITS
$BDDAT, $TMP4

$TMP4 , $GDDAT

;COPY 'BAD DATA'

:'OR' WITH GOOD DATA FOR TYPEOUT
;SET THE REGISTER COMPARE ERROR INDICATOR

CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMCS2(R0O) ,$BDDAT ;GET CONTENTS OF RM(S?2
#RMCS2 ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $BDADR
;ADD RH/RM BASE ADDRESS
#NED ,SGDDAT
;WHAT REGISTER SHOULD BE
$BDDAT, $TMPO
;MOVE REGISTER CONTENTS TO '$TMPO’
#~CNED,$TMPO ;SAVE SPECIFIED BITS
$GDDAT , $TMPO
;COMPARE THE BITS

68%

$BDDAT , $TMP4
#NED , $TMP4

;BR_IF OK
;COPY °'BAD DATA'
;CLEAR THE MASKED BITS

rZRHSBO RMO5/3/2 DU POR TST 2
MACRO v04.00
TEST °*PORT SELECT® SWIT(H ON PORT B

012546

053737

001174

012554
012556

104023
005137

001244

012564

005060

000012

012562

000240

001124

4-APR-81

8IS
68%:

K
18:08:36 PAGE

$TMPS , $GDDAT

EMT
com

23
(KERR

CLR

RMDS (RO)

NOP

&
10-20

:'OR" WITH GOOD DATA FCR TYPEOUT
sSET THE REGISTER COMPARE ERROR INDICATOR

<TRY TO SET REQUEST BY WRITING THROUGH
. THE LOCKED OUT PORT (PORT 'A')

;VERIFY THAT DRIVE STAYS LOCKED ON PORT B

012570
012576

113760
013737

001226
001226

000010
001234

MOVB
MOV

PORTB,RMCS2(R0O)
;SELECT PORT B
PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT

012612
012620
012626
012634
012640
012646
012654

013737
113760
013737
005037
016037
012737
060037

001226
001224
001224
001244
000012
000012
001122

001236
000010
001234

MOV
MOvVB
Mov
CLR
MOV
MOV
ADD

PORTB,SEIZPT
;ADDRESS OF ‘LOCKED ON' PORT
PORTA,RMCS2(R0O)
;SELECT PORT A
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
CKERR
;CLEAR THE 'CHECK ERROR' INDICATOR
RMDS (RO) ,$BDDAT ;GET CONTENTS OF RMDS
#RMDS ,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE
RO, $8DADR
;ADD RH/RM BASE ADDRESS

012664

013737

001126

001164

MOV

$BDDAT, $TMPO

012700

001164

CMP

012710
012716
012724

012604

012760

0000613

012660 005037 001124
012672

012706

012732

012734

012740

042737

000012

001126
001122

023737

000077

001124

001164

013737
042737
053737

001126
177700
001174

201174
001174
001124

005137

001244

001414

104024

000240

MoV

CLR

BIC

BEQ

sISSUE A RELEASE THROUGH PORT 8

$GDDAT

;WHAT REGISTER SHOULD BE

#~C177700,$TMPO
$GDDAT, $TMPO
708

MOV
RI(
21S

$BDDAT, $TMP4
#177700,$TMP4
$TMP4 , $GDDAT

COM

CKERR

EMT

70%:

#13 ,RMDS (R0)

NOP

sMOVE REGISTER CONTENTS 70 '$TMPO’

~;SAVE SPECIFIED BITS

;COMPARE THE BITS

:BR IF 0K

;COPY 'BAD DATA'
;CLEAR THE MASKED BITS
:'OR" WITH GOOD DATA FOR TYPEOUT
;SET THE REGISTER COMPARE ERROR INDICATOR

;IF ERROR OCCURRED, CHECK FOR LOOP ON TEST

012742
012746

012750
012756
012760
012764
012770
012774
013002
013004
013010
013014
013050
013026
013034
013042
013044
013052

105737
001412

032777
001406
105037
005037
000177
032777
001054
104401
104401
104401
113760
013737
032760
001374
032760
001774

001103

001000

7STB
BEQ

166162

BIT
BEQ
CLRB

001103

001176
166114
040000

166136

020367
020156
020407
001226
001226
010000

000010
001234
000012

4%:

010000

000012

5%:

3%:

CLR
JMP
BIT
BNE
TYPE
TYPE

TYPE
MovB
MOV
BIT
BNE
BIT
BEQ

$ERFLG
33

#5W09,aSWR
3%
$ERFLG
$TIMES
aSLPERR
#5W14 ,aSWR
6$
.CYCLED
SWICHN

;DID AN ERROR OCCUR
:BR IF NOT

;SEE IF LOOP ON ERROR (SWR9 = 1)
:BR_IF NOT
:CLEAR THE ERROR FLAG
;CLEAR THE MAX ITERATION COUNT
;GO TO THE LOOP ADDRESS
;LOOP ON TEST ?
;BR _IF LOOPING
sTYPE 'CYCLE DOWN'
;'SWITCH TO A/B’

LCYCLEU
:"CYCLE THE DRIVE UP'
PORTB,RMCS2(R0)
;SELECT PORT B
PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT
#MOL ,RMDS(RO)
;IS 'MOL' RESET
?
4%
BR IF NO (DRIVE 'NOT CYCLED DOWN)
#MOL ,RMDS(RO)
;IS 'MOL' SET ?
5%
:BR IF NO (DRIVE NOT CYCLED UP)

sSET VOLUME VALID FOR BOTH PORTS

013054
013062
013070

012760
012760
012760

000011
000021
000013

000000
000000
000000

MoV
MOV
MoV

#11 ,RMCST(RO)
#21 ,RMCST1(RO)
#13,RMCS1(RO)

;ISSUE A DRIVE CLEAR THROUGH PORT B
;ISSUE A READIN PRESET THROUGH PORT B
;RELEASE PORT B

SEQ 0049

(ZRMSBO RMO5/3/2 DU POR TST 2
MACRO v04.00
- 110
TEST "PORT SELECT® SWiTCH ON PORT B

013076
013104
013112

013120
013126
013136
013142
013146
013150
34 013152

113760
013737
012760

012760
012760
012737
005737
001375
000004
000137

001224
0012c6
000021

010000
000013
011610
001254

200010
001234
000000

000032
000000
001254

PORTA RMCS2(R0O) SELECT PORT A
PORTA_PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT

MOV
MOV
MOV
TST
BNE
SCCPE
JMP

#FMT16_RMOF
(RO) ;SET FMI16
#13_RMCS1(RO)
;RELEASE PGRT A
#5000. ,WATCH
sSPINDLE MOTOR 'COOL DOWN' DELAY
WATCH
sFINISHED ?
7%
;:BR IF NOT
.LOOP ?
$EOP
;GO TO THE END OF PASS KOUTINE

MOV

6%:
7%:

013160

326

;PUT NEWTEST HERE

013156

000004

#2171 ,RM(S1(R0O)

R
P

7ST11:

SEQ 0050

MOVB
MOV

325
7

4-APR-81 18:08:36 PAGE 10-21

L
i

SCOPE

e
R

sISSUE A READIN PRESET THROUGH PORT A

e
e

R TR

R R

e
R

222

222022232 2222222323:2%;

. CZRMSBO RM0S5/3/2 DU POR TST 2

| END OF PASS ROUT INE

MACRO v04.00

4-APR-B1

.SBTTL
AR

18:08:36 PAGE 11

SEQ 0051

END OF PASS ROUTINE
AR AR R AR AR RN A A AAR AR AR AAARAAANARNRARAR AR RAAARAR AR

;*INCREMENT THE PASS NUMBER (SPASS)

;«TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT vvyyy'
s*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

;+IF THERES A MONITOR GO TO IT

‘

;»IF

013160

013160
013164

005737
001402

001266

013206
013214
013216

042737
005327
000001

100000

013166
013172
013176
013202

000137
005037
005037
005237

013220
013222

003066
012737

013234

000407

013224
013226
013230

013254

000001
013216
104401

013254

013746

013260
013262
0135266

104405
005737
001431

013274
233840

000421

013340

013746

013344
013346
013352

104405
005037
104401

013270

013356
013362
mgfig
01

013370
013372
013374

013376

013400
013402

104401

013700
001405

002622
001102
001176
001100

$EOP:

001100

013236

;:65%8:
64%:

001100

ST
BEQ

013276

001112

000042

::YES
;;RESTORE COUNTER

.65%

;2 TYPE ASCIZ STRING

.WORD
SEOPCT
TYPE

648

MOV

$PASS,~(SP)

;:SAVE SPASS FOR TYPEOUT

SERTTL
$GT42P
,67%

2:TYPE ASCIZ STRING

_ASCIZ

$DOAGN:
377

0C0

$RTNAD:
S$ENULL:

::GET OVER THE ASCIZ

<12><15>/END PASS #/

::TYPE PASS NUMBER
;:G0 TYPE--DECIMAL ASCII WITH SIGN
;:SEE IF ANY ERRORS THIS PASS
::BR IF NO ERRORS TO REPORT

BR
.ASCIZ

663
::GET OVER THE ASCIZ
/ TOTAL ERRORS SINCE LAST REPORT /

MOV

$ERTTL,~(SP)

::SAVE SERTTL FOR TYPEOUT

SERTTL
LSCRLF

;;CLEAR ERROR TOTAL
;:TYPE CARRIAGE RETURN, LINE FEED

RESET
$ENDAD: JSR

000137

sRETURN TO KEYBOARD CONTROL
:;ZERO THE TEST NUMBER
;:2ERO THE NUMBER OF ITERATIONS
: s INCREMENT THE PASS NUMBER

$GET42: MOV
BEQ

000240
000240
000240

;;DON'T ALLOW A NEG. NUMBER
;:L00P?

$DOAGN
(PC)+,a(PC)+

TYPDS
CLR
$GT42P: TYPE

001112
001207

#100000,8PASS
(PC)+
1

BGT
MOV

TYPE

éggn:

ENTERED TEST VIA KEYBOARD COMMAND ?
;BR IF NOT

EXEC
STSTAM
$TIMES
$PASS

TYPDS
ST
BEQ

001112

KYBCTL
.+6

JMP
CLR
CLR
INC

BIC
DEC
$EOPCT: .WORD
SENDCT:

ooogos
004710

003104
377

THERE ISN'T JUMP TO TSTI1AA

NOP
NOP
NOP
JMP

.WORD
.BYTE

.EVEN

ars2 RO
$DOAGN
PC,(RO)

a(PC)+

TST1AA
-1,-1.,0

::TOTAL NUMBER OF ERRORS
::GO TYPE--DECIMAL ASCII WITH SIGN

;:GET MONITOR ADDRESS
::BRANCH IF NO MONITOR
::CLEAR THE WORLD
::G0 TO MONITOR

::SAVE ROOM
::FOR
::ACT1
; :RETURN

::NULL CHARACTER STRING

. CZRMSBQ RMO5/3/2 DU POR TST 2
| CLOCK SUBROUTINES

MACRO v04.00
.SBTTL

5 013406
6 013414
7 013420

8 013424
9 013430

10 013434

012737
005037

013456
000006

013701
012721

001216
013540

005777

000135

165536

000004
013520
165524

000004

000100

165502

20 0713510
21 013516
22 013520
23 013524

012777
000404
062706
062716

52 013536

000207

177777

013701
012721
012711

001222
013540
000300

012737

000004
000002
000006

000004

29 013540
30 013546
31 013552
32 013554

062737
005737
001406
162737

000021
001254

001252

000021

001254

34 013564

005037

001254

gg 013570

000002

%5
005746
016616

42 013602
43 013606
44 013610

011666
006216
006216

45 013612
46 013616

MOV
MOV

$LPVEC,R1
#CLOCK, (R1)+

MOV

BR
CKCLK1: ADD
MoV
ST
MOV
MoV
MOV

MOV
BR
CKCLK2: ADD
ADD

CKCLK3: MOV
RTS

CLOCK:

@SLKCSR

:CHECK FOR KW11-P

#3090, (R1)

:PSW - PRI 6

#-1,a8LKCSB

#135,38LKCSR~

:KW11=-P VECTOR ADDRESS
:SET UP KW11-P VECTOR
:LOAD COUNTER BUFFER WITH 1'S

-SET CLOCK = CNT UP, 16MS, CONT INT

CKCLK3
#4,SP
;RESTORE THE STACK POINTER
#CKCLK2,a#ERRVEC
;CHANGE ERROR VECTOR TO CHECK FOR KW11=L
asLKS
;LOOK FOR KW11-L
SLLVEC.R1
#CLOCK, (R1)+
#300, (R1)

:KW11-L VECTOR ADDRESS
:SET UP KW11-L VECTOR
:PSW = PRI 6

#6 , IMERRVEC

;RESTORE THE STACK POINTER
: INCREMENT RETURN, NO CLOCK
:RESTORE THE ERROR VECTOR

#100,38LKS
CKCLK3
#4 ,SP
#2,(SP)
PC

sSET KW11=-L INTERRUPT

TO COUNT CLOCK TICKS

ADD
TST
BEQ
SUR

#17.,TIME
WATCH
1%
#17. WATCH

:ADD 17 MS TO ELAPSED TIME COUNTER
:1S WATCH ALREADY ZERO ?
:BR IF IT IS
:SUBTRACT 17 MS FROM WATCH DOG COUNTER

CLR

WATCH

:CLEAR WATCH DOG COUNTER

BPL
1%:

;SET UP VECTOR FOR CLOCK CHECK
:NEW PSW

RTI

;BR IF NOT MINUS
:RETURN

:ROUTINE TO CALCULATE + 25% TIME TOLERANCE VALUES

39 013572
40 013574

41 013600

#CKCLK1,@#ERRVEC
AFERRVEC+2

MOV

;ROUTINE

100002

MOV
CLR

MOV

165546

33 013562

SEQ 0052

CLOCK SUBROUTINES

012777

000425
062706
012737
005777

CKCLK:

165566

000300

13
013454
14 013456
15 013462
16 013470

24 013530

000004

012711

012777

17 013474
18 013500
19 013504

N &
18:08:36 PAGE 12

:ROUTINE TO CHECK FOR KW11=L OR KW11-P CLOCKS

11 013440

1§ 013446

4-APR-81

013546

062666
000205

000002
000004
000002

TOLER:

TST
MOV

-(SP)
2(SP), (SP)

:MAKE ROOM ON THE STACK
:SAVE STACK

(SP) ,4(SP)
(SP)
(SP)

:MOVE TIME VALUE
:DIVIDE BY 2
:DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4)

MoV

a(RS)+,~(SP)

ADD
RTS

(SP)+,2(SP)
RS
,

MOV
ASR
ASR

:GET TIME VALUE

:CALCULATE UPPER LIMIT FOR TIMEOUT
SRETURN WITH TOLERANCES ON THE STACK

(ZRMSBO RMOS5/3/2 DU POR TST 2
HANDLER ROUT INE
1

4-APR-81

.SBTTL

B 5
18:08:36 PAGE 13

SEQ 0053

SCOPE HANDLER ROUTINE
AAAAARAAI A AARAATRAAAAAAAAAAAR
AR
AAAROIRTARTACRREOTRETCTOERY

¥ AAAR AR

;*THIS ROUTINE

CONTROLS

THE

LOOPING OF

;*AND LOAD THE

TEST NUMBER(STSTNM)

;*AND LOAD THE ERROR FLAG (SERFLG)>

SCOPE

MACRO v04.00

SUBTESTS.

IT WILL

INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)

INTO DISPLAY<15:08>

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
SeSWi4=1
teSWll=1

s=CALL

;v
013620
013620
013622

104407

004737

$SCOPE:
014154

013626 032777 040000
013634
001402
8}332433 000137 014136
013642

000416

013644
013650
013656
013662
013666
013670
013672
013676
013700

013746
012737
005737
012637
000517
022626
012637
000517

013704

001465

013700

165304

000004

000004
001103

013706
013714
013716
01375‘2)
013730

022737
001455
013746
012737
013737

177777 014524
000004
013740
177766

000004
014524

013740

012737

177777

014524

013752
013754

000002
012637

0137260
013766
013770

022737
001430
032737

177777

014524

000001

014000

042737

000001

000406

013746 012716 013754

013776

014006
014012
014016
014024
014030
014036

001424

013746
017646
012737
011677
042777

104177

CKSWR
JSR

BIT
BEQ
JMP

:MamsuSTART OF

000004
013670
177060
000004

014040 012676 000000
014044 012637 001140

::TEST

PC,STOP

#8I1T14,aSWR
9%
SOVER
CODE

FOR

THE

FOR CHANGE IN SOF T=-SWR

::LOOP ON PRESENT TEST?
SINO IF SW14=0
::JUMP OVER SCOPE ROUTINE
XOR

TESTERAMAMAAA

::IF RUNNING ON THE "XOR'' TESTER CHANGE
::THIS

INSTRUCTION TO A 'NOP'' (NOP=240)

MOV
@ERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
#5$ , #ERRVEC
*:SET FOR TIMEOUT
ST
a#177060
S:TIME OUT ON XOR?
MOV
(SP)+,@¥ERRVEC ::RESTORE THE ERROR VECTOR
BR
$SVLAD
::G0 TO THE NEXT TEST
5% :
cMP
(SP)+,(SP)+
“:CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)+,3#ERRVEC ::RESTORE THE ERROR VECTOR
BR
SOVER
::LOOP ON THE PRESENT TEST
6$: ; #RRRNEND OF CODE FOR THE XOR TESTERAAA#N
2%:

TSTB

SERFLG

::HAS AN ERROR OCCURRED?

CMP
BEQ
MOV
MOV
MOV

#-1,CPSAVE
2003s
ERRVEC ,=(SP)
#20008.ERRVEC
177766.CPSAVE

::SEE IF TIMEOUT WAS PREVIOUSLY RECORDED
::KICK AROUND ROUTINE IF SO
::SAVE CONTENTS OF ERROR VECTOR
::SETUP °*TRAP' RETURN ADDRESS
::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

MOV

#-1,CPSAVE

;:SET CPU ERROR REGISTER TIMEOUT INDICATOR

RTI
MOV

(SP)+,ERRVE(

::RESTORE CONTENTS OF ERROR VECTOR

014524

CMP
BEQ
BIT

#-1,CPSAVE
2003%
#BIT00,CPSAVE

::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
::BRANCH IF SO
--SEE IF THE POWER MONITOR BIT IS ON

177766

BIC

#81700,177766

-:CLEAR THE BIT FOUND TO BE SET

000004

001140
000000
000176
165110
001000

::SCOPE=]0T

SCOPE

$XTSTR: BR

105737

013736

18:

INHIBIT ITERATIONS

2000%:
20018:

001140

165102

2002%:

BEQ

MOV

BEQ

2001$

#2001$, (SP)

2003$

“:BR IF NO

*:SETUP RETURN ADDRESS

*:BRANCH TO CONTINUE ROUTINE IF CLEAR

MOV
MOV
MOV
MOV
BIC

SWR,~-(SP)
a(SP) ,=(SP)
#176,SWR
(SP) .@SWR
#B1709,aSWR

::SAVE SWR ADDRESS
S:SAVE SWR VALUE
*:GET SOFTWARE SWR ADDRESS
“:GET CURRENT SWR VALUE
::DON'T ALLOW LOOP ON ERROR ON THIS ERROR

MOV
MOV

(SP)+,37SP)
(SP)+.SWR

*RESTORE SWR TO ORIGINAL VALUE
“:RESTORE SWR ADDRESS

EMT

177

“:CALL SPECIAL POWER FAIL BIT ERROR CALL

CZRMSBO RMO5/3/2 DU POR TST 2

SCOPE MANDLER ROUT INE

Qo
Qi Qe S
Qi
o

105037

005037
032777
001011
005737
001406
005237

023737

jelelelelolelelele]

014050
014050

002012
012737
013737
105237
011637
013777
013716
000002
000005

001103
001176
004000

MACRO v04.00

2003$%:

4%:

165052

001100

001104
001176
000001
014152
001102
001106
001102
001106

001104
001104
001176
164776

3%:

4-APR-B1

CLRB
(LR

BIT

BNE
TST
BEQ
INC
cMP
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOV
$OVER:
MOV
MOV
RTI
SMXCNT: 3.

C
5
18:08:36 PAGE 13-1

SERFLG
S$TIMES
#BIT11,aSWR

::ZERO THE ERRUR FLAG
:.CLEAR THE NUMBER OF ITERATIONS TO MAKE

::IMIBIT ITERATIONS?

1%
$PASS
18
SICNT

:BR IF YES

..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

::INCREMENT ITERATION COUNT
STIMES,SICNT
;;CHECK THE NUMBER OF ITERATIONS MADF
$OVER
;:BR IF MORE ITERATION REQUIRED
#1,SICNT
s:REINITIALIZE THE ITERATION COUNTER
SMXCNT ,$TIMES
:2SET NUMBER OF ITERATIONS TO DO
$TSTNM
2:COUNT TEST NUMBERS
(SP) ,$LPADR
;2 SAVE SCOPE LOOP ADDRESS
$TSTNM,aD1SPLAY ;;DISPLAY TEST NUMBER
$LPADR, (SP)
::FUDGE RETURN ADDRESS
::FIXES PS
;;MAX. NUMBER OF ITERATIONS

;DROP PRIORITY TO ALLOW CONSOLE

012746
012746
000002

000140
014166

STOP:

64%:
JRAISE

012746
012746
000002

000207

000240
014200
65%:

MOV
MOV
RTI
PRIORITY

SEQ 0054

#PR3,-(SP)
#64%,~(SP)

INHIBIT

INTERRUPT

;2PUT NEW PS ON STACK
;:PUT NEW PC ON STACK
;;PCP NEW PC AND PS
CONSOLE

INTERRUPT

MOV
MoV

#PRS ,~(SP}
#65%,-(SP)

;:PUT NEW PS ON STACK
;;PUT NEW PC ON STACK
::POP NEW PC AND PS

RTS

;RETURN

RTI

(ZRMSBO RMO5/3/2 DU POR TST 2
ERROR HANDLER ROUTINE

MA(CRO v04.00

4&-APR-81

.SBTTL
e A

D 5
18:08:36 PAGE 14

SEQ 0055

ERROR HANDLER ROUTINE

A AR

A A A

;*THIS ROUTINE WILL

A A A

A T R R R AN R A A A AR AR R AR

INCREMENT

RN AR R TR AR

THE ERROR FLAG AND

AR RN

THE ERROR COUNT,

:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

;*AND GO TO SERRTYP ON ERROR

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*SW15=1
;*SW13=1
:'g:lOfl
s*CALL

;e
014202
014206
014210
014216
014222
014224

105037
104407
113737
105237
001775
013777

014240
014242
014246
014252
014256
014264

001402
104401
005237
011637
162737
117737

014310
014312
014316

001454
105737
001047

074232

014272
014300
014302

014320
014326
014330

032777

032777
001060
122737

022737
001445
013746

014526

001102
001103

001242

001102

002000
001202
001112
001116
000002
164626
001000

000177

014372
014400
014402
014410
014412
014420
014426
014434

022737
001420
032737
001414
042737
113737
112737
000402

8}2223

105037

014526

014442
014450

(032777
001004

020000

014452

004737

001116
001114

1%
LSBELL
SERTTL
(SP) ,$SERRP(
#2,8ERRPC
@$ERRPC,SITEMB

BIT

1%:

164640

001114

014524

000004

1000%8:

014524

000001

014524

000001
001114
000177

177766
014526
001114

164470

#31710,3SWR

BIT
BNE
CMPB

#B1T09,aSWR
10048
#177 ,SI1TEMB

cMP
BEQ
MOV

#-1,CPSAVE
1004$
ERRVEC,-(SP)

MOV

#1001$, (SP)

BEQ
1STB
BNE

10071$:

177777

014530

;:CLEAR THE ITEM BYTE SAVE LOCATION
;;TEST FOR CHANGE IN SOF T-SWR

BEQ
TYPE
INC
MOV
SuB
MOvB

7%:

164700

000004
014524

177777
014366

IBSAVE

164710

000004
014352
177766

000002
012637

012716

: ;CRROR=EMT AND N=ERROR ITEM NUMBER

STSTNM, TSTNUM
$ERFLG
:;SET THE ERROR FLAG
7%
;:DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND tRROR FLAG

014524

014364
014366

014360

MovB
INCB
BEQ
MOV

177777

012737
013737
000406
012737

ERROR

$ERROR: CLRB
CKSWR

014526

014334
014342
014350
014352

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR

MOV
MOV
BR
MOV
RTI
MoV

1004$
IBSAVE
1003s

#10008 ,ERRVEC
177766 ,CPSAVE
1001%
#-1,CPSAVE

;;BELL ON ERROR?

;N0 = SKIP
:sRING BELL
;:COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE
;:SEE IF LOOP ON ERROR IS SET
: ;BRANCH AROUND ROUTINE IF SO

;;SEE IF THIS IS THE POWER FAIL CALL

; ;BRANCH AROUND ROUTINE IF IT IS
;;SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
; ;BRANCH IF SO

:;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
:;BRANCH IF SO
;:SAVE CONTENTS OF ERROR VECTOR
;;SETUP 'TRAP' RETURN ADDRESS
;;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

(SP)+ ,ERRVEC

;.SET CPU ERROR REGISTER TIMEOUT INDICATOR
;;SETUP RETURN ADDRESS
:
:;RESTORE CONTENTS OF ERROR VECTOR

1002%:

(MP
BEQ
BIT
BEQ
BIC
MOvVB
MOvVB
BR

#-1,CPSAVE
1004$
#B1T00,CPSAVE
1004$
#B17100,177766
$ITEMB,IBSAVE
#177,31TEMB
1004%

;. SEE IF CPSAVE HAS (PU ERR REG TIMEOUT INDiCATION
; :BRANCH IF SO
;;SEC IF POWER MONITOR BIT IS SET IN CPU ERR REG
; :BRANCH IF 0K
::CLEAR THE BIT FOUND SET
;:MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL
;:SET SITEMB TO SPECIAL POWER FAIL POINTER
; ;BRANCH OVER IBSAVE CLEARING

}882%

CLRB

IBSAVE

;. CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT
BNE
JSR

#BIT13,aSWR
20$

;. SKIP TYPEOUT IF SET
;:SKIP TYPEOUTS
22G0O TO USER ERROR ROUTINE

PC,$ERRTYP

CZRMSBO RM0S5/3/2 DU POR T5T 2

ERROR HANDLER ROUTINE

10440

001207

016462
014466

105737
001005

01452%

014470
0144764
014476
014500
014502
014502
014510
014512
014514
014514
014520
014522
0146524
014526

005777
100002
000000

164444

022737
001001
000000

013366

105737
001236
000002
000000

014526

20%:

2%:

104407

000000

4-APR-81

18:08:36 PAGE

14-1
SEQ

014456

014462

MACRO v04.00

000042

6%:

TYPE

.SCRLF

7STR
BNE

1ST
BPL
HALT
(KSWR

asSwR

(MP
BNE
HALT

#SENDAD , a#42

TSTB
BNE
RTI
CPSAVE: .WORD
IBSAVE:

IBSAVE

.WORD

;sSEE If IBSAVE IS LOADED
;;BRANCH IF NOT ~ NO HALT ON PWR MON BIT ERROUR
;sHALT ON ERROR
;2SKIP IF CONTINUE
;sHALT ON ERROR!
s+ TEST FOR CHANGE IN SOF T=SWR
;:ACT=11 AUTO-ACCEPT?

::eFEUSWCH IF NO

IBSAVE
7%

;:SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
::glgmca: BACK TO CALL ORIGINAL ERROR

0
0

*:LOCATION TO SAVE CPU ERROR REG CONTENTS
*:LOCATION TO SAVE ITEM BYTE

005¢

(ZRMSBO RMOS/3/2 DU PCR TST 2

ERROR MESSAGE

TYPEQUT

ROUTINE

MACRDO v04.00

4-APR-B1

.SBTTL

F
5
18:08:36 PAGE 15

SEQ 0057

ERROR MESSAGE TYPEOUT ROUTINE

'...tfi...t‘t't.t..t..."...t.'t.Q'Q.'...."'."'Q.'...'t...'..'

-YHIS ROUTINE USES THE
° ‘ITEM CONTROL BYTE'' (SITEMB)

TO DETERMINE wHI(H
IT THEN OBTAINS, FROM THE 'ERROR TABLE'' (SERRTB),
:«AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

:+ERROR IS TO BE REPORTED.

104401

010046
005000
153700
001004

013746

$SERRTYP:

001207

001116

000177

113737

001102
014726

1%:

015066
10008:

BISB
BNE

MOV

$ERRPC,-(SP)

;-SAVE $ERRPC FOR TYPEOUT

BR
CMPB
BNE
MOvVB
MOV
BR
DEC

ASL
ASL

001276
014624

-3

OOH
NNV WO
OWN =00 —

001207

2%:

3%:
4%:

5%:

ASL
ADD
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BEQ
TYPE

. WORD

TYPE
MOV
MOV
BEQ
MOV
TST8

7%:

8%:

014722

108
#177 ,RO
1000%
$TSTNM,PFTSTN

#PFECH,RO

1001%
RO
RO
RO
RO
#$ERRTB,RO
(RO)+,2%

0
.SCRLF

ssPICKUP THE ITEM INDEX
;;IF ITEM NUMBER IS ZERO, JUST

;:TYPE

THE PC OF

;G0 TYPE--OCTAL ASCII(ALL DIGITS)

;2GET ourt

;.SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
;sBRANCH IF NOT
s:GET TEST NUMBER
;;MOVE POWER FAIL ERROR CALL TABLE TO RO
. :BRANCH TO CALL ERROR
..ADJUST THE INDEX SO THAT IT WILL
L
WORK FOR THE ERROR TABLE

. ;FORM TABLE POINTER

;:PICKUP 'ERROR MESSAGE'' POINTER
;:SKIP TYPEOUT IF NO POINTER

;;TYPE THE ‘'ERROR MESSAGE'’
;:"ERROR MESSAGE'' POINTER GOES HERE
;:"'CARRIAGE RETURN'' & "LINE FEED''

;;PICKUP ‘DATA HEADER'' POINTER
;:SKIP TYPEOUT IfF O

;:"DATA HEADER'' POINTER GOES HERE

(RO)+,4%

SCRLF

R1,=(SP)
(RO)+_R1
9%

(RQ)+ ,R0O

;:TYPE

THE 'DATA HEADER''

;:''CARRIAGE RETURN'' & "‘LINE FEED''
;:SAVE R1
;:PICKUP 'DATA TABLE'' POINTER
;2BR IF NO DATA TO BE TYPED

;;PICKUP "DATA FORMAT'® POINTER

BNE
MoV
BR

MOV

a(R1)+,-(SP)

IST

(R1)
9%
118
6%

::BR IF NO
;:TYPE TWO(2)

(SP) +,R1
(SP)+,RO

;;RESTORE R1
;;RESTORE RO

TYPDS

BEQ

TYPE

MOV
MOV

THE ERROR

. ;ERROR ADDRESS

+
(RO)
7%
@a(R1)+,=-(SP)

TYPO(

oW=

W= —NO

TM ]

OO0

—_—

282
Y — % SESNSLS =58

001207
014642

1001%:

;:"'CARRIAGE RETURN'' & "1.INE FEED''

;:SAVE RO

TYPOC

122700

001006

. SCRLF

RO, -(SP)
RO
a#$ITEMB.RO
1%

CLR

001114

1044C2

000456

TYPE

MOV

;:"OCTAL'" OR "DECIMAL'’
;:BR IF DECIMAL
;:SAVE a(R1)+ FOR TYPEOUT

;:G0 TYPE--OCTAL ASCII(CALL DIGITS)

;:SAVE @(R1)+ FOR TYPEOUT
;G0 TYPE--DECIMAL ASCII WwITH SIGN
::1S THERE ANOTHER NUMBER?
;. LOOP

SPACES

JAMSBO RMO5/3/2 Du POR 1ST 2

tRROR MESSAGE

014714
014720
014722

TYPEOQUT ROUTINE

10440

000207
040

ACRO v04.00

001207

040

€00

01473
120

015020

015052

015052
015062
015066

015066
0G0
000000

001116
000

014524
000

117
105

S
G
18:08:36 PAGE 15-1
SEG

014726
014736
015020

124

4-APR-B1

127
123

11%:

TYPE
RTS

.SCRLF
PC

;:"'CARRIAGE RETURN'" & "LINE
s sRETURN

FEED"

A iE
F
A
2:TWO(Z) SPACES
.EVEN
PFE(H:
PFECH1 ,PFECH2 ,PFECH3 PFECH4 ;;WORDS DEFINING TABLES BELOW
PFECHT: .ASCIZ
?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?
PFECH2: '25§”
?TESTNO ERR PC . CPUERREG?
PFECH3:

PFE(H4:
PFTSTN:

.EVEN

.WORD
BYIE
.WORD

PFTSTN,SERRP(,CPSAVE,O
0.0.0.0

;;CONTAINS TEST NUMBER FOR PF BIT ERROR

JRMSH
MOE
TYPE ROUT INE

{ff

)

MALRO v06.0C

4-APR-B1

.SBTTL
AR

18:08:36 PAGE

5
16

TYPE ROUTINE

AR AN AR AR AR R AR T A AN R TR AN P AR AR AN R

RARARNRE AR RRAN AR AR

“*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEFD.

:«NOTE1:

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

;=NOTE2:
;*NOTE3:

SeCALL:

:+1)

i+0R
- ®

USI NG A TRAP INSTRUCTION
TYPE
.MESADR

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

NOO
VWV
:
il ol el ol
5%
& Ny — .d—ha-ha—La_f:;azcacflnc_ad-a—haerd
oro

105737

100002

000000
000407
010046
017600
112046

001005
005726
012600
062716
000002

ronunY
OON

1%:

000002

2%:

4%:

122716
001006

000200

e
e

—
— ol ot el b

HALT

000011

001207

004737
123726

001350
013746

015356
015240
001156

5%:
6%:

001154
7%:

015240
015356

FRORISR

—

Coo000

015356

(RO)+,=(SP)
4%
+
(SP)
(SP)+,RO
#2,(SP)

DE(CB
BLT
JSR

MOVB

JSR
BITB
BNE
TST
BR

;:1S THERE A TERMINAL?
;:BR IF YES
;sHALT HERE IF NO TERMINAL
. sLEAVE

;:SAVE RO

;:GET ADDRESS OF ASCIZ STRING
;:PUSH CHARACTER TO BE TYPED ONTO STACK

;2BR IF IT ISN'T THE TERMINATOR
;2
IF TERMINATOR POP IT OFF THE STACK
; RESTORE RO

#HT
, (SP)

;;ADJUST RETURN PC
2 ;RETURN
;sBRANCH IF <HT>

#CRLF
, (SP)

;sBRANCH If NOT <CRLF>

(SP)
+

;:POP

$CHARCNT

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

$CRLF
CLRB
BR
JSR
CMPB
BNE

DECB
BR

8%:
9%:

a2(SP) ,RO

BEQ

;HORIZONTAL

000040
015240
000007

RO,=(SP)

ADD
RTI
CMPB

MoV

000001

BR
MOV
MOV
MOVB
BNE
TST
MOV

CrPB
BNE
1ST
TYPE

104401

105037
000755

BPL

122716

001430

$TPFLG

7STB

60%:
3%:

005726

VIWVIUTWILY

001157

000002

D e

i it it

)

b —

) Bl

s lelaleleBelelslelelelolelalalololalolalolalalelelslolelsle)

ME SADR

PC,$TYPEC

$FILLC,(SP)+

$NULL ,~(SP)
1(SP)

PC,STYPEC
$CHARCNT
7%

<CR><LF> EQUIV

;:TYPE A CR AND LF

;;I1S IT TIME FOR FILLER CHARS.?

;:IF NO GO GET NEXT CHAR.
;;GET # OF FILLER CHARS. NEEDED
;;AND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
;:GO TYPE A NULL
;:DO NOT COUNT AS A COUNT
;.LO0OP

TAB PROCESSOR

,(SP)

PC,STYPEC

#7 ,$CHARCNT
9%
(SP)+

;REPLACE TAB WITH SPACE

;:;TYPE A SPACE

;:BRANCH IF NOT AT

;. TAB STOP

;;POP SPACE OFF STACK

:2GET NEXT CHARACTER

“JRMSBC ’M0S5/3/2 DU POR TST 2

TYPE

ROUTINE

105777
100022

017746
062716

3RSTR
RSO S ZRN

e el
el
il
D et el s
il
el
e

IV LV RV LV I LV R TV TV TV TV 1V )

s ol el ol el sl v
i ol
s

[ LWV LV LRIV TV I

jelelolalelalolelelelslolelalelalelslelele
e

163674

177600

000023

105777
100375
117716

163654

042716
122716

001366

101%:

163650
177600

000021

102%:

005726
105777
100375
116677
122766

000002
000075

105037

015356

122766

000012

001003

000406
001402

105227

000000
000207

4-APR-87

$TYPE(:

163700

122716

001012

MACRO v04.00

10%:

163632
163624

000002

1$:

18:08:36 PAGE

16-!

BPL
MOV
8IC
(MPB
8NE

a%$7KsS

108
a$TKB,-(SP)
#177600, (SP)
F
, (SP)
#SXOF
102%

;s (HAR IN KYBD BUFFER?
;:BR IF NOT
;:GET CHAR
;:STRIP EXTRANEOUS BITS
. :WAS (CHAR XOFF
2 :BR IF NOT

7ST8

2%7kS

;;WAIT FOR CHAR

1STR

BPL
MOvB
BI(C
(MPB
BNE

1013

a$TkB, (SP)

;:GET CHAR

#177600, (SP)
#$XON, (SP)
101%

2:STRIP IT

TST

+
(SP)

;sFIX STACK

7STB
BPL
MOvVB
CMPB
BNE
CLRB
BR
CMPB
BEQ

a$TPS
10%

;oWAIT UNTIL PRINTER IS READY

INCB
$CHARCNT
: . WORD
$TYPEX: RTS

2(SP) ,a$T1PB

#CR,2(SP)
1%
$CHARCNT
$TYPEX
#LF ,2(SP)
$TYPEX
(PC)+

;:WAS IT XON?
;:BR IF NOT

;;LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
s sBRANCH IF NO
::EE?;-CLEAR CHARACTER COUNT

;1S CHARACTER A LINE FEED?
s :BRANCH IF YES
;s COUNT THE CHARACTER
; : CHARACTER COUNT STORAGE

(ZRMSBO "MO5/3/2 Du POR TST 2
TO OCTAL

(ASCII)

AND

TYPE

4-APR-81

.SBTTL

J 3
18:08:36 PAGE 17

SEQ

BINARY TO OCTAL (ASCII) AND TYPE

. :..tt'.."Q.t'...".....'...'..I.Qt...‘.'....t"...l.'.....'....

Z*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY WUMBER TO A 6=DIGIT
:*OCTAL (ASCII) NUMBER AND TYPE IT.

:'%HFL’OS“-ENYER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
-

MoV

NUM,-(SP)

2 sNUMBER TO BE TYPED

.BYTE
BYTE

N
M

;:N=1 TO 6 FOR NUMBER OF
::M=10R 0O

TYPQOS

;sCALL FOR TYPEOUT

D!GITS TO TYPE

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

BINARY

MACRO v04.00

;*$TYPON---<ENTER HERE
;*$1YPOS OR $TYPOC
;+CALL:

;"
g

MOV

TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM,-(SP)

. sNUMBER TO BE TYPED
. sCALL FOR TYPEOUT

;tg\YPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:

.®

NUM,-(SP)

;sNUMBER TO BE TYPED

$TYPOS: MOV
MOVB
MOVB
ADD

a(SP) ,-(SP)
1(SP) ,$0FILL
(SP)+,$OMODE+1
#2,(SP)

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

$TYPOC: MOVB

#1,80FILL

;+SET THE ZERO FILL SWITCH

R4 ,-(SP)
RS5,-(SP)

;:SAVE R4
::SAVE RS

015362
015366
015374
015400

017646
116637
112637
062716

000000
000001
015607
000002

015406

112737

000001

015404

000406

015414
015422
015430

112737
112737
010346

015436
015442

015470
015472
015474
015476

113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105

015502
015504
015510
015512
015516
015520
015522
015524

006103
105337
100016
042703
001002
005704
001403
005204

015432
015434
015444

015450
015454
015460
015464
015466

015500

010446
010546

000006
000005

015605

015607
015604

$TYPON

MOVB
S$TYPON: MOVB
MOV

#6,$0MODE +1
#5,80CNT
R3,-(SP)

MOVB
NEG

BR
ROL
ROL
ROL

$OMODE+1,R4
R4
#6 ,R4
R4, SOMODE
$OFILL,R4
12(SP) ,RS
R3
R5
3%
RS
RS
RS

ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC

R3
$OMODE
7%
#177770,R3
4%
R4
5%
R4

MOV
MOV

000006

ADD

015606
015605

MOVB
MOovB

000012

1%:
2%:

015606

TYPOC

B8R

015607

010503

MOV

3%:

177770

4%:

MOV
CLR
ROL

MOV

RS.R3

;sCALL FOR TYPEOUT

;2SET FOR SIX(6) DIGITS
;:SET THE ITERATION COUNT
::SAVE R3

:2:;GET THE NUMBER OF DIGITS 7O TYPE
:sSUBTRACT IT FOR MAX. ALLOWED

;:SAVE IT FOR USE
;3GET THE ZERO FILL SWITCH
;;PICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD
;;ROTATE MSB INTO “‘C*"
::G0 DO MSB
;:FORM THIS DIGIT

;:GET LSB OF THIS DIGIT
;. TYPE THIS DIGIT?
::BR IF NO
;:GET RID OF JUNK
;2TEST FOR O
; 2SUPPRESS THIS 0?
::BR IF YES
::DON'T SUPPRESS ANYMORE 0°'S

0061

(ZRMSBO RM05/3/2 DU POR 15T 2

BINARY

TO OCTAL

(ASCII) AND TYPE

015526
015532

052703
052703

015542

104401

015536

015546
015552
015554
015556
015560

015562

;:MAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY

TYPE

,8%

;260 TYPE THIS DIGIT

$OCNT
2%

MOV

(SP) + RS

012605

016666

015606

#'0,R3
#' _R3

DE(CB
BGT

002402
005204
000744

012605

012616
000002

000
000
000
000

000000

6%:

000002

BLT
INC
BR

MOV

MoV

000004

MOV
8%:

BIS
BIS

105337
003347

015570

015602
015603
015604
015605

18:08:36 PAGE 17-1

MOVB

012604

015576
015600

4-APR-B1

110337

015564

015566

MACRO v04.00

MOV
RTI

.BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE

$OMODE: .WORD

R3,8%

6%
R4
2%

(SP)+,R4

(SP)+ ,R3

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

0
0
0
0

;:SAVE FOR TYPING

;sCOUNT BY 1
;:BR IF MORE TO DO

::BR IF DONE
2o INSURE LAST DIGIT ISN'T A BLANK
;2:GO DO THE LAST DIGIT

;:RESTORE RS

:;RESTORE R4

;;RESTORE R3

;:SET THE STACK FOR RETURNING
: :RETURN

;:STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
;2ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

SEQ 0062

(ZRMSBO RMOS5/3/2 DU POR TST 2

MACRO v04.00

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

4-APR-B1

.SBTTL
£2 AR

5
L
18:08:36 PAGE 18

SEQ 0063

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
A A AR AR A A A AR A A A AR

;*THIS ROUTINE

IS USED

TR R AR AR AR AR AR AR

AR AR AR R AR AR AR

TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

;*REPLACED WITH SPACES.
;=CALL:

Tu
e

015610
015610
015612
015614
015616
015620
015622
075626
015632
015634
015636
015644
015646

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703

015656
015660
015664
015666
015670

005002
016001
160105
002402
005202

015674
015676
015700
015702
015704
015706
015710
015712
015720
01s7§4

060105
005702
001002
105716
100407
106316
103003
116663
052702
0527o§

015732
015734
015740
015742
015744
015746
015750

005720
020027
002746
003002
010502
000764
105726

015754
015762
015764
015766
015770
015772

116663
105013
012605
012603
012602
012601

015652

112723

$TYPDS:

020200
000020

000055

000001

016024

000040

28:

016014

3$:

015672 000774

015730

015752

11022

100003

1%:

4$:

000001

000060
000040

:
77777

177776

NUM., = (SP)

::PUT THE BINARY NUMBER ON THE STACK

MOV
MOV
MOV
MOV
MGV
MOV
MOV
BPL
NEG
MOVB
CLR
MOV

RO,~(SP)
R1.-(SP)
R2.-(SP)
R3.-(SP)
RS,=(SP)
#20200,-(SP)
20(SP) .R5
1%
RS
#'-,1(SP)
RO
#$DBLK ,R3

::PUSH RO ON STACK
$:PUSH R1 ON STACK
*:PUSH R2 ON STACK
*:PUSH R3 ON STACK
*:PUSH R5 ON STACK
“*SET BLANK SWITCH AND SIGN
©:GET THE INPUT NUMBER
“:BR IF INPUT IS POS.
*:MAKE THE BINARY NUMBER POS.
*:MAKE THE ASCII NUMBER NEG.
::ZERO THE CONSTANTS INDEX
“:SETUP THE OUTPUT POINTER

CLR
MOV
SUB
BLT
INC

R2
$DTBL (RO) ,R1
R1.R5
43
R2

*:CLEAR THE BCD NUMBER
*:GET THE CONSTANT
*:FORM TRIS BCD DIGIT
;:BR IF DONE
> INCREASE THE BCD DIGIT BY 1

TYPDS

MOVB

B8R

#' ,(R3)+

“:GO TO THE ROUTINE

*:SET THE FIRST CHARACTER TO A BLANK

6$:
7%:

ADD
ST
BNE
ISTB
BMI
ASLB
BCC
MOVB
BIS
BIS

R1.R5
R2
5%
(SP)
78
(SP)
68
1(SP),-1(R3)
#'0.R2
#' .R2

;:ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0
“:FALL THROUGH IF 0
*:STILL DOING LEADING 0°'S?
::BR IF YES
$:MSD?
::BR IF NO
*YES=-SET THE SIGN
S:MAKE THE BCD DIGIT ASCII
*:MAKE IT A SPACE IF NOT ALREADY A DIGIT

8%:

ST
CMP
BLT
BGT
MOV
BR
TSTB

(RO) +
RO,#10
2$
8%
R5,R2
6%
(SP)+

$:JUST INCREMENTING
*:CHECK THE TABLE INDEX
©:GO DO THE NEXT DIGIT
::G0 TO EXIT
*:GET THE LSD
©:GO CHANGE TO ASCII
*:WAS THE LSD THE FIRST NON-ZERQ?

-1(SP),-2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1

::YES=-SET THE SIGN FOR TYPING
“:SET THE TERMINATOR
;:POP STACK INTO RS
1:p0P STACK INTO R3
*:POP STACK INTO R2
*:POP STACK INTO R1

5%:

000010

177777

MOV

9%:

MOVB

BPL

MOVB
CLRB
MOV
MOV
MOV
MOY

R2,(R3)+

*:PUT THIS CHARACTER IN THE OUTPUT BUFFER

::BR IF NO

(ZRMSBO RM05/3/2 DU POR TST 2

MACRO v04.00

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

015774
015776
016002
016010
016012
016014
016016
016020
016022
016024

012600
104401

4-APR-81
MOV

016024
000002

TYPE

MOV
MOV

$DTRL :

$DBLK :

RTI

10000.
1000.
lw.

10.
.BLKW

L
18:08:3¢ PAGE 18-1

SEQ 0064
(SP)+,RO
$DBLK

(SP)
2(S4P)
(SP)+- (SP)

;;POP STACK INTO RO

2sNOW TYPE THE NUMBER
:sADJUST THE STACK
;;RETURN TO USER

. CZRMSBC RM0S5/3/2 DU POR TST 2
INPUT

ROUTINE

4-APR-B1

.SBTTL

N 5
18:08:36 PAGE 19

SEQ 0065

TTY INPUT ROUTINE

-:'t....t.t..flfi.t'...."""...'.Q..Q.Q....'.l'.l"..'.Q...‘.....

.ENABL
LSB
$TKCNT: _WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
-EVEN

016043

O
O
O
1

;*7K INITIALIZE ROUTINE
;*THIS ROUTINE WILL INITIALIZE

;*SETUP THE

;«CALL:
JSR
i

~N
~
~N

oSO

g 3 2208

§88 3

a2~
2

0008
—0O0O~N
it

——

—

(elalelolelelele]

016034
016042
016036
016114
000200
163042
000100

016036
016040
000060
000062

$TKINT:

INPUT QUEUE

$TKCNT

s sCLEAR COUNT OF

2$TKR

;. CLEAR DONE FLAG

#$TKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKSRV ,@#TKVEC
#200,a#TKVEC+2

MOV

#100,a8TKS

RTS

TTY KEYBOARD

INTERRUPT

PC,STKINT

MOV
MOV
MOV
MOV
TST

163032

THE

INTERRUPT VECTOR AND TURN ON THE :(_YBOARD

RETURN

CLR

s sNUMBER OF ITEMS IN QUEUE
;2 INPUT POINTER
:;OUTPUT POINTER
2 TTY KEYBOARD QUEUE

ITEMS IN QUEUE

;;MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;;'BR'' LEVEL 4
;;ENABLE TTY KEYBOARD INTERRUPT
;2RETURN TO CALLER

;*TK SERVICE ROUTINE

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*IT IN THE QUEUE.
;*IF THE CHARACTER IS A ''CONTROL-C'' (*C) STKINT IS CALLED AND

WiNWwWrOnN
—

163026
177600

S
~

$TKSRV: MOVB

a@$TKB,-(SP)

::PICKUP THE CHARACTER

cMP
BNE

(SP) , #$XON
308

221S IT A RANDOM XON?
*BRANCH IF NO

CMP
BNE

(SP) 43
1%

::1S IT A CONTROL C?
S BRANCH IF NO

JSR

PC,STKINT

SINIT

JMP
cMP

START
(SP) 47

BIC

000021

) e

D et

-.-agégg FIRTFRSRNFRRIERSR
eT i

ocoocororororOrOrOOMOOCOOODO

;*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (START)

)

~
o

[« QW IV IV P

1%:

000176

001140

000001

016034

001202

~
“~
~

o
o
o

)

ST
RTI

TYPE

000007

017242
016044

001766

——

30%:

000003

OO0OCOOOCOCOOCOOOCOOO

TTY

COCO

MACRO v04.00

BNE

CMP

’%:

#5C177.(5P)
(SP) +

LSONTLC

(SP) +

LISTRIP THE JUNK

*:CLEAN RANDOM XON OFF
*:RETURN

SITYPE

A CONTROL=C

THE KEYBOARD

(~C)

*:CLEAN UP STACK

*:CONTROL C RESTAKT
SIS IT A CONTROL G?
; ;BRANCH IF NO

BEQ

#SWREG, SWR

“ 1S SOFT-SWR SELECTED?

cMpP
ANE
TYPE

#1,$TKCNT
3%
CSBELL

::1S THE QUEUE FULL?
S BRANCH IF NO
TIRING THE TTY BELL

“:G0 TO SWR CHANGE

STACK

CZRMSBO RMOS5/3/2 DU POR TST 2
TTY INPUT ROUTINE

016214
016216
016220
016226
016226
016232
01623%
0162640
016242

005726
000451
021627
001021
005077
005726
105777
100375
117746

016252
016256
016260
016266
016270
016274
016300
016302
016306
016310
016314
016320
016324

022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237
023727

MACRO v04.00

000023

162712
162704

318:

162700

016246 042716 177600

016332
016334
016342

001003
012737
000002

62656

016034
000140

32%:

000175
000040
177516
016036
016036

016043

016042

016036

4%:

5%:
AL

016344

022737

000176

016354
016360
016362

105777
100121
117746

162564

016352

016366
016372
016376

001124

042716
021627
001300

001140

(SP)+
58
(SP) 423
228
asTKs
(SP)+
a$TKS
3s
a$TKB,-(SP)

cMP
BNE
MOV
RTI
INC
cMP
BLT
CMP
BGT
BIC
MOVR
INC
P

(SP)+,#21
38
#100,3$TKS

#-Ci177.(SP)

BNE
MOV
A

177600
000007

::CLEAN CHARACTER OFF OF STACK
SIEXIT
2:IS IT A CONTROL=S?
*:BRANCH IF NO
“:DISABLE TTY KEYBOARD INTERRUPTS
“:CLEAN CHAR OFF STACK
*:WAIT FOR A CHAR
“:LOOP UNTIL ITS THERE
*:GET THE CHARACTER

SIMAKE IT 7-BIT ASCII

;:BRANCH IF NO

#$TKOSRT,$TKQIN ;:RESET THE POINTER
*RETURN

RTI

SEQ 0066

“:IS IT A CONTROL-Q?
“:BRANCH IF NO
“:REENABLE TTY KEYBOARD INTERRUPTS
: *RETURN
STKCNT
*:COUNT THIS CHARACTER
(SP) ,#140
*:IS IT UPPER CASE?
48
*:BRANCH IF YES
(SP) ,#175
“:IS IT A SPECIAL CHAR?
43
*:BRANCH IF YES
#40, (SP)
“:MAKE IT UPPER CASE
(SP)+,a$TKQIN
::AND PUT IT IN QUEUE
$TKQIN
*:UPDATE THE POINTER
$TKQIN,#STKQEND ::GO OFF THE END?

Attt it

ittt it

ittt

sttt

iiisslsss)

s*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: CMP
#SWREG, SWR
::1S THE SOFT-SWR SELECTED

BNE

TSTB
BPL
MOVB

162560

B 6
18:08:36 PAGE 19-1

ST
BR
cMP
BNE
CLR
TST
TSTB
BPL
MOVB

BIC

00C .1

~70100

4-APR-81

BIC
cMP
BNE

15%

::EXIT IF NOT

a$TKS
158
@$TKB,~-(SP)

::IS A CHAR WAITING?
::IF NOT, EXIT
T:YES

::izoug;irpur IT IN THE TTY QUEUE

#*C177,(SP)
(SP) ,#7

S:MAKE IT 7-BIT ASCII
“IS IT A CONTROL-G?

::"'tt".t"i.ttfiitttt"ttt"ifi't'*'*tiit'.t*ttt'ti*tttttttttt't

016400
016406
016410
016412
016416
016422

123727
001674
005726
004737
005077
112737

016430
016434
016440
016444

104401
104401
013746
104402

001134

000001

016044
162522
0000017

001135

017254
017261
000176

s*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
:*ROUTINE OR FROM THE SOF TWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
;*CONTROL~G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
6%:
CMPB
$AUTOB, #1
;;ARE WE RUNNING IN AUTO-MODE?
BEQ
2%
: ;BRANCH IF YES
TST
(SP) +
;17" EAR CONTROL-G OFF STACK
JSR
PC,STKINT
;:FLUSH THE TTY INPUT QUEUE
CLR
a$TKS
;;DISABLE TTY KEYBOARD INTERRUPTS
MOvB
#1,8INTAG
;:SET INTERRUPT MODE INDICATOR

TYPE
$GTSWR: TYPE
MoV
TYPOC

.SCNTLG
. SMSWR
SWREG,-(SP)

;;ECHO THE CONTROL-G (*G)
;. TYPE CURRENT CONTENTS
;:SAVE SWREG FOR TYPEOQUT
;GO TYPE--OCTAL ASCII(ALL DIGITS)

(ZRMSBO RMOS/3/2 DU POR TST 2
INPUT

ROUTINE

016446

016452
016454
016456
016462

104407

017272

19%:

162462

7%:

C 6
4-APR-81 18:08:36 PAGE 19-2

.SMNEW

TST8B

a$TksS
7%

;:PROMPT FOR NEW SWR
2sCLEAR COUNTER
;s THE NEW SWR
;:CHAR THERE?
IF NOT TRY AGAIN
;s

asTKB,~(SP)

;:PICK UP CHAR

(SP) 43

;:IS IT A CONTROL-C?
; :BRANCH IF NOT
;:YES, ECHO CONTROL-C (*0)
:;CLEAN UP STACK
;;REENABLE TTY KEYBOARD INTERRUPTS?
: sBRANCH IF NO
:;ALLOW TTY KEYBOARD INTERRUPTS
:; CONTROL=C RESTART

TYPE

CLR
CLR

BPL

-(SP)
-(SP)

016464
016470

117746
042716

162456
177600

MOVB
BIC

016474
016500

021627

000003

cMP
BNE
TYPE
ADD
CMPB
BNE
MOV
JMP

#100,a8TKS
START

CMP
BNE

(SP) ,#25
108

#6,SP
19%

016502
016506

017242
000006
001135

g
ddid—l—.—.—.-.—.—l—.—ld—l—l—l—.—l—.—l—.—I—l—l—l—l
AR R
228222
33333&2
3
o~§§§&%8¥3:

000100
001766

slelelslelelslelelelelelalelelalolelolelelalolelolols)

TTY

MACRO v04.00

000001
162414

8%:

000025

9%:

017247
000006

20%:

000015

10%:

000004
162342

000002
000006
001207
001135

000001

000100

162320

TYPE
ADD

cMP
BNE
TST
BEQ
MOV
ADD

TYPE

CMPB
BNE
MOV
RTI
JSR
cMP
BLT
cMP
BGT
BIC
TST
BEQ

015240
000060

000067

000060
000002

000002
177776

17%:

001206

18%:
.DSABL

ASL
ASL
ASL

#-C177,(SP)
9%

LSCNTLC

#6,SP
#1
$INTAG.

LSCNTLU

(SP) ,#15
16%
4(SP)
118

2(SP) ,aSWR

#6,SP

.SCRLF

#1
$INTAG,

15%

#100,a$TKS
PC,STYPEC

(SP) ,#60
18%
(SP) 467
18%

#60, (S5P) +

2(SP)
17%
(SP)
(SP)
(SP)

INC
BIS
BR

2(SP)
=2(SP), (SP)

BR
LSB

20%

TYPE

. SQUES

ssMAKE IT 7-BIT ASCII

;1S IT A CONTROL=-U?
;sBRANCH IF NOT
;:YES, ECHO CONTROL-U (*U)
;: JIGNORE PREVIOUS INPUT

;:LET'S TRY IT AGAIN

;:2IS IT A <CR>?
;sBRANCH IF NO
;:YES, IS IT THE FIRST CHAR?
;sBRANCH IF YES
. :SAVE NEW SWR
::CLEAR UP STACK
;2ECHO <CR> AND <LF>
s sRE=ENABLE TTY KBD INTERRUPTS?
;:BRANCH IF NOT
;;RE=-ENABLE TTY KBD INTERRUPTS

; sRETURN

;:ECHO CHAR

;:CHAR < 0?
;sBRANCH IF YES

:2CHAR > 7?
;sBRANCH IF YES
::STRIP-OFF ASCII
;:1S THIS THE FIRST CHAR
s sBRANCH IF YES
22NO, SHIFT PRESENT
CHAR OVER TO MAKE
3
ROOM FOR NEW ONE.
¥

;;KEEP COUNT OF (CHAR
;;SET IN NEW CHAR
;:GET THE NEXT ONE

;:TYPE ?2<CR><LF>

;:SIMULATE CONTROL=-U

.'"""Q'QI".""""ttitttfi'..tittttt't*tt'.‘tl’ttttfitlti.!t'ttltt

SEO0 0067

g%’RHSBO RMO5/3/2 DU POR T1ST 2
Y

INPUT

ROUTINE

MACRO v04.00

4-APR-B81

D 6
18:08:36 PAGE 19-3

SEQ 0068

."E:{E ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

o®

016706

011646

016716
016722

005066
0C5046

0167
016732
016732
016736
016740
016744
016752

016710

016726

016756

016764
016766
016774

016666

000004

012746

016732

005737
001775
005337
117766
005237
023727
001003
012737
000002

016034

000004

016034
177070
016040
016040
016042

000002

016043
2%:

(SP) ,-(SP)

2sPUSH DOWN THEc PC AND

4(SP)
-(SP)

;:GET READY FOR A CHARACTER
;sPUT NEW PS ON STACK

MOV

#64%,-(SP)

TST
BEG
DEC
MovB
INC
CMP
BNE
MOV
RTI

$TKCNT
;sWAIT ON A CHARACTER
1%
$TKCNT
; ;DECREMENT THE COUNTER
a$TKQOUT ,4(SP)
;.;GET ONE CHARACTER
$TKQOUT
2 JUPDATE THE POINTER
$TKQOUT ,#$TKQEND ;.;DID IT GO OFF OF THE END?
2%
;sBRANCH IF NO
#$TKQSRT,$TKQOUT ;;RESET THE POINTER
: :RETURN

RTI

017006
017012
017014
017016
017020
017024
0170%6
017030
017032

010346
005046
012703
022703
101456
104410
112613
122713
001022
005716
001007
112737

017044
017050
017052
017056
017
217064
017070
017072
017074
017076
017104
017110
017112
017116

012716
005303
020327
103434
111337
104401
000746
005716
001406
112737
104401
005016
122713
001003

017040

104401

::THE PS

;;PUT NEW PC ON

STACK

;:POP NEW PC AND PS

,'."l‘*.".Q""t*l’*"fi““'*'"'*t.’"".*‘*.'.'.."’.*'.t"."'*tfi"""t

st
P
i

016776

STACK

;sWITH PARITY BIT STRIPPED OFF

4(SP) ,2(SP)

"E:II_E ROUTINE WILL

017000
017002

;s CHARACTER IS ON THE

MOV
CLR
CLR

000004

;sGET A CHARACTER FROM THE QUEUE

RETURN HERE

$RDCHR: MOV

64%:
1%:

016040

RDCHR

017232
017242

;

000177

000134

017230

177777

017232

TYPE

017230
017230
5%:
000134
017230

000025

RDLIN
RETURN HERE

$RDLIN: MOV
CLR
1%:
MOV
2%:
CMP
BLOS
RDCHR
MOVB
10%:
CMPB
BNE
TST
BNE
MOVB
6%:

017230

7%:

INPUT A STRING FROM THE TTY

MoV
DEC
CMP
BLO
MOVB
TYPE
BR
TST
BEQ
MOvVB
TYPE
CLR
CMPB
BNE

R3.,-(SP)
-(SP)
#STTYIN,R3
#STTYIN+8. ,R3
4%

;2 INPUT A STRING FROM THE TTY
2 sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;;TERMINATOR WILL BE A BYTE OF ALL 0'S

;sSAVE R3

;:CLEAR THE RUBOUT KEY
;sGET ADDRESS

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

;sBUFFER FULL?
;:BR IF YES
;:G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
2:IS IT A RUBOUT

;:BR IF NO

5%
(SP)

#'\,9%

.9%

#-1,(SP)
R3
R3,ASTTYIN
4%
(R3).,9%
,9%
2%
(SP)
7%
#'\,9%
,9%
(SP)
#25,(R3)
8%

;:BR IF NO
;:1S THIS THE FIRST RUBOUT?
::TYPE A BACK SLASH

;:SET THE RUBOUT KEY
; sBACKUP BY ONE
;:STACK EMPTY?
s:BR IF YES
;:SETUP TO TYPEOUT THE DELETED CHAR.
;:G0 TYPE
;:G0 READ ANOTHER CHAR.
;sRUBOUT KEY SET?
;:BR IF NO
;.TYPE A BACK SLASH
::;CLEAR THE RUBOUT KEY
;2 1S CHARACTER A CTRL U?
;:BR IF NO

eto S

(ZRMSB0 RMO5/3/2 DU POR TST 2
TTY INPUT ROUTINE

017120
017126
017126
017132
01713

10440
000726
122713
001011
105013

017146

000717

017154

000712

017136
017142
017150

017156
017162

017166

001206

4%:

111337
104401

017230
01723C

3%:

122723

011646
016666

017226

000002

017242

136

017230
017231
01723%2

017247

017254

017261
017272

8%:

104401

017210
037212

017220

000022
001207
017232

001305
105063
104401
005726

4-APR-B1

017247

104401
104401

017172
017176
017200
017204

017206

MACRO v04.00

012603

012766

000004

017232

000004

13¢

015
040

2260 PICKUP ANOTHER CHACTER

CMPBR

#15 (R3)+

;:CHECK FOR RETURN

MOV

(SP)+,R3

;JRESTORE R3

TYPE

MOVB
TYPE

RTI

SCNTLU

LSCRLF
,STTVIN
. SQUES

(R3) 9%

2%
=1(R3)
LSLF
(SP) +

(SP) ,-(SP)
4(SP) ,2(SP)

#STTYIN,4(SP)

.BYTE
BYTE
$TTYIN: .BLKB

0
O
8.

015

$CNTLU:

.ASCIZ

/*U/<15><12>

123
116

SMSWR:
SMNEW:

.ASCIZ
.ASCIZ

<15><12>/SWR = /
/ NEW =

103

015

107

015

012
040

MOV

9%:

125

(R3)

MOV
MOV

000002

000
000
136

122 (R3)

;:TYPE A CONTROL V'
::G0 START OVER
221S CHARACTER A 'TMR'%
::BRANCH IF NO
2sCLEAR THE CHARACTER

BNE
CLRB
TYPE
TST

177777
001210

6
19-4

TYPE
B8R
cMPB
BNE
CLRB
TYPE
TYPE

000015

E
18:08:36 PAGE

S$CNTLC:
SCNTLG:

.EVEN

.ASCIZ
.ASCIZ

/*C/<15><12>

/*G/<15><12>

;sTYPE A "'CR'" & "LF"
2:TYPE THE INPUT STRING
22TYPE A '

;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

;2LOOP IF NOT RETURN
;sCLEAR RETURN (THE 15)
;:TYPE A LINE FEED
;:CLEAN RUBOUT KEY FROM THE STACK
..ADJUST THE STACK AND PUT ADDRESS OF THE
i
FIRST ASCII CHARACTER ON IT

2 ;RETURN

2 :STORAGE FOR ASCII CHAR. TO TYPE
; s TERMINATOR
;;RESERVE 8 BYTES FOR TTY INPUT
::CONTROL ‘'C''

;:CONTROL ‘U
;sCONTROL ''G"’

SEG 0069

JAMSBO RMOS5/3/2 DU PCR T1ST 2

READ AN OCTAL

NUMBER FROM THE

MACRO v04.00

4-APR-81

TTY

18:08:36 PAGE 20

SEG 0070

.SBTTL

READ AN OCTAL NUMBER FROM THE

A A

AR A

A AT R A A AT R AR T R R

TR R R AR A AR

;*THIS ROUTINE WILL READ AN OCTAL

;*CHANGE IT TO BINARY.

;*THE

INPUT CHARACTERS WILL BE

TTY

AR AR AR AR

(ASCII)

AT R AR AR AR

NUMBER FROM THE

CHECKED TO INSURED

THEY ARE

TTY AND

LEGAL

;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A """ WILL BE TYPED
;*FOLLOWED BY A (CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE

s*CALL:

o
i

i
017304

017306

017314
017316
017320
017322
017324

010046
010146
010246
104411
012600

017332
017334
017336
017340
017342
017346

005001
005002
112046
001420
122716
003026

017326

017350

0100357

122716

017354
017356
017360
01732
017364
017366
017370
017372
017376
017400
017402
017404
0176410
017414

002423
006301
Q6102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237
012602

017420

012600

017416

000004

000002

1%:

017432
2%:
000060

000067

000012
017442

000002
005726
105010
104401
000000
104401

017442

000000

000730

001206

5%:
$HI0OCT:

TYPING A CARRIAGE RETURN.

;;READ AN OCTAL NUMBER
;;L0W ORDER BITS ARE

ON TOP OF

;sHIGH ORDER BITS ARE IN SHIOCT

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

::PUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STACK
:;READ AN ASCIZ LINE
;:GET ADDRESS OF 1ST (HARACTER

MOV

RO,5%

CLR
CLR
MOVR
BEQ
CMPR
BGT

TERMINATEC BY

::PROVIDE SPACE FOR THE

4(SP) ,2(SP)

MoV
MOV
MOV
RDLIN
MOV

(SP) ,-(SP)

MOV

(SP)+,R0

R1
R2
(RO)+,=(SP)
3$
#'0,(SP)
4%

#'7,(SP)

;- INPUT NUMBER

;sAND SAVE IT

;:CLEAR DATA WORD

;:PICKUP THIS CHARACTER
;:IF ZERO GET OQUT
::MAKE SURE THIS CHARACTER
;1S AN OCTAL DIGIT

BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
TST
MOV
MOV
MOV

43
R1
R2
R1
R2
R1
R2
#~(7,(SP)
(SP)+,R1
2%
(SP)+
R1,12(SP)
R2,$HIOCT
(SP)+,R2

;:POP STACK INTO R2

MOV

(SP)+,R0O

::POP STACK INTO RO

MOV

4%:

INPUT

RETURN HERE

CMPR

177770

THE

RDOCT

$RDOCT: MOV

012601

017422
017424
017426
017430
017432
817634
176440

|S———

011646

016666

RETYPED.

(SP)+,R1

sang
R
T/
::%8
;:STRIP THE ASCII JUNK
:;ADD IN THIS DIGIT
;:LOOP
::CLEAN TERMINATOR FROM STACK
::SAVE THE RESULT
::POP STACK INTO R1

RTI
ST
CLRB
TYPE
.WORD
TYPE

0
LSQUES

::RETURN
;;CLEAN PARTJAL FROM STACK
::SET A TERMINATOR
::TYPE UP THRU THE BAD (HAR.
,
olel
e Dl &

.WORD

::HIGH ORDER BITS GO HERE

(SP)+
(RO)

::TRY AGAIN

THE

STACK

JRMSBO RM0S5/3/2 Cu POR 15T 2
AND HESTORE

v04.00

4-APR-31

RO-RS ROUTINES

18:08:36 PAGE

SEQG 0071

.SBTTL
AR

SAVE AND RESTORE RO-R5 ROUTINES

AR A A AR A AR A A AR

**SAVE RO-RS
s+CALL:

TR AR AN TR R A AR AN A AN N AR

RN PR AR R AR RN R AR RERANR AR RS

SAVREG

Z*«UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
SaTOP===(+16)

;x +2=-=-=(+18)

+4===RS

;x +6---R4

;* +8---R3

;«+10---R2
;¥+12---R1
t%+14===R0

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
RTI

RO,-(SP)
R1,-(SP)
R2.=(SP)
R3,-(SP)
R4 ,=(SP)
R5.=(SP)
22(SP) ,~(SP)

s :PUSH RO

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
{(SP)+,22(SP)
(SP) +,R5
(SP)+ R4
(SP)+,R3
(SP)+_R2
(SP)+,R]
(5P)+,R0

; sRESTORE PE OF CALL
; ;RESTORE PS OF CALL

22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

;sPUSH R1

;;PUSH R2
;;PUSH R3

;sPUSH R4

:2PUSH RS

. :SAVE
::SAVE
;:SAVE
;:SAVE

PS
PC
PS
PC

228222

nNo

7454
7456
7460

W~
::b
~
SX3%

i
o B

~N N
o

il vl vlh wall
il
i

74t
744l
7446

~N
NNNN

jelelelalelolelololalels)]

SAVE

MACRD

OF
OF
OF
OF

STACK
STACK
STACK
STACK
STACK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

;*RESTORE RO-R5
s*CALL:

017502
017502
017506
017512
017516
017522
017524
01752¢
017530

017532
017534

017536

012666
012666
012666

012666
012605
012604
012603
012602
012601

012600
000002

000022
000022
000022

000022

$RESREG:

RESREG

MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV

MOV
RTI

; :RESTORE PC OF MAIN FLOW
; ;RESTORE PS OF MAIN FLOW
;:POP STACK INTO RS

;:POP STACK INTO R4
;:POP STACK INTO R3
;:POP STACK

INTO R2

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

JRMSBO

RMOS/3/2 Du POR TST 2

TRAP DF CODER

MACRO v04.00

4-APR-81

18:08:36 PAGE 22

.SBTTL

TRAP DECODER

B A A A

A A

A A AR A AN AT A AN TR R RN

SEQ 0072

R RN AN AN AR

ARR

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

RART

RRETRES

THE "‘'TRAP'' INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE.
;*G0 TO THAT ROUTINE.
017540

010046

017546

005740

017542

(16600

017550
017552

111000
006300

017560

000200

017554

016000

$TRAP:

000002

017574

THEN USING THE ADDRESS OBTAINED IT wiLL

MOV

RO,-(SP)

::SAVE RO

-(RO)

*:BACKUP BY 2

MOV

2(sRP) .0

MOVR
ASL

(RO) ,RO
RO

RTS

MOV

:2GET TRAP ADDRESS

$TRPAD(RO)
,RO

“:GET RIGHT BYTE OF TRAP
“:POSITION FOR INDEXING
::INDEX TO TABLE

2:G0 TO ROUTINE

;:THIS IS USE TO HANDLE THE ‘‘GETPRI'' MACRO
017562
017564
017572

011646
016666
000002

000004

000002
}

$TRAP2: MOV
MOV
RTI
.SBTTL
;*THIS

(SP) ,-(SP)
4(SP),2(SP)

;:MOVE THE PC DOWN
::MOVE THE PSW DOWN
*:RESTORE THE PSW

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

:«BY THE "'TRAP'' INSTRUCTION.
s

017562

$TRPAD: .WORD

017610

016434

017612
017614
017616
017620
017622
017624

016344
016706
016776
017304
017444
017502

015070
015406
015362
015422
015610

ROUTINES CALLED

ROUT INE

017574

017576
017600
017602
017604
017606

THE

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

S$TRAP?

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

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

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

:;CALL=GTSWR

TRAP+6(104406)

GET SOFT=-SWR SETTING

$CKSWR
$RDCHR
$RDLIN
$RDOCT
$SAVREG
$RESREG

; :CALL=CKSWR
::CALL=RDCHR
;:;CALL=RDLIN
::CALL=RDOCT
::CALL=SAVREG
;;CALL=RESREG

TRAP+7(104407)
TEST FOR CHANGE IN SOF T-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE

TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY
TRAP+13(104413) SAVE RO-RS5 ROUTINE
TRAP+14(104414) RESTORE RO-R5 ROUTINE

CIRMSBO AMOS5/3/2 DU POR TST 2
TELETYPE MESSAGES

2
3 017626
4 017655

200

105

116

ENTERA:

120
120

117
117

PORTAIS: .ASCIZ <CRLF>/PORT 'A"' ADDRESS IS: 7/
PORTBIS: .ASCIZ <CRLF>/PORT °'B' ADDRESS IS: /

NOCLOCK: .ASCIZ
TESTNO: .ASCIZ
BADNO:
.ASCIZ
ADDRIS: .ASCIZ

<CRLF>/SYSTEM MUST HAVE ‘L' OR °'P' CLOCK/<CRLF><LF>
<LF>/ENTER TEST #: /
7/ ?INVALID TEST NUMBER/<CRLF>
<CRLF><LF>aRH/RM ADDRESS (RMCS1) IS: @

200
200

122
123

105
127

SWTCHN:
SWICHA:

<CRLF>QRETURN °‘PORT SELECT' SWITCH TO 'A/BR'a
<CRLF>/SWITCH 'PORT SELECT®' 1O 'A‘'/

200
200

123
124
123
123

127
110
124
124

.ASCIZ

<CRLF>/ENTER DRIVE ADDRESS: /

131
116
111
122
116

ADRERR:

_ASCIZ

123
105
077
012
105

111

NITRH:

.ASCIZ

SWTCHB:
CONTUE:

.ASCIZ
.ASCIZ

CYCLED:
CYCLEU:

SCQ 0073

TELETYPE MESSAGES

200
ciz
040
200
012

16 020367
17 020407

077

11 020127

14 020%61
15 020316

18:08:36 PAGE 23

040

200
200

3% 020156
13
020224

4&-APR-B1

.SBTTL

5 017700
6 017727

7 017756
& 020023
9 020043
10 020072

MALRC v04.00

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

/ ?INVALID ADDRESS/<CRLF>

<LF>RENTER RH/RM ADDRESS: a

<CRLF>/SWITCH ‘PORT SELECT® TO 'B‘'/
<CRLF>/THEN PRESS 'CONTINUE' ON THE PROCESSOR/<CRLF>
<CRLF>/STOP THE DRIVE/
<CRLF>/START THE DRIVE, THE PROGRAM WILL WAIT FOR "MOL"'

TO SET/<CRLF>

ZRMSB( RMOS/3/2 DU PCR 1ST 2
TEST ERROR MESSAGES

MACRO v04.00

J
6
18:0B:36 PAGE 24

.SBTTL

TEST ERROR MESSAGES

5 020501

104

122

111

EM1:

.ASCIZ

5 020570

120

117

122

EM3:

.ASCIZ

QPORT SELECT SWITCH ON DRIVE, NOT IN ‘A/B'a

7 020664

123

105

122

EMS:

.ASCIZ

/SERIAL NUMBER READ THROUGH EACH PORT NCT THE SAME/

122

105

4 020547

6 020642

8 020746
9 021020

10 021065

127

104

124
124

11 021153

047

13
021267
14 021354
15 021436

104
101
101

1% 021520

16
17
18
19

021522
021600
021641
021724

111

104
123
104
104

122

117

111

111
111

115
115

107

117

116

122
124
124

122
105
122
122

101

103

111
124
124
111
114
111
111

20 022007
21 022060
22 022156
25 022251
24 022331
25 022374
26 022425
27 022473

123
122
047
104
122
104
127
122

124
105
116
122
110
122
122
105

111
057
111
117
107

29 022607
30 022656
31 022743
32 023030
33 023111
34 023166

103
104
104
122
104
122

101
122
122
105
122
105

116
111
111
107
111
107

28 022523

4-APR-81

103

117

101
107
105

116

EM2:

EM4:

.ASCIZ

/DRIVE IS NON-EXISTENT (°NED' BIT SET)/

/WRONG DRIVE TYPE/

/DRIVE NOT ON LINE/

EMé6:
EM7:

.ASCIZ
.ASCIZ

/TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/
/TIMEOUT ONE-SHOT IS LESS THAN 500 MS/

EM11:

_ASCIZ

/'GO' BIT RESET DURING UNLOAD COMMAND/

EM10:

._ASCIZ

/READ IN PRESET DOES NOT SET VOLUME VALID FOR THE POKT/

EM12:

._ASCIZ

EM16:
EM17:
EM20:

LASCII
.ASCIZ
.ASCIZ
.ASCIZ

EM24:
EM25:
EM30:
EM31:
EM32:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/STATUS INCORRECT FOR PORT AFTER CYCLE UP/
/REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON °"OPPOSITE' PORT/
/'NED' NOT SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED/
/DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/
@Q@RH/RM DIDN'T RESPOND TO ADDRESSINGa
/DRIVE NOT SEIZED BY PORT/
/WRONG STATUS SEEN BY THE SEIZING PORT/
/REGISTER CONTENTS WRONG/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/CAN'T ACCESS DRIVE THROUGH EITHER PORT/
/DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/
/DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/
/REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/
/DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/
/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/

EMI3:
EM14:
EM15:

EM21:
EM22:
EM23:

EM33:

EM34:
EM35:
EM36:
EM37:
EM4O:
EM4T:

.ASCIZ
_ASCIZ
.ASCiZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

/INCORRECT STATUS DURING UNLOAD COMMAND/

/DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND/
/ATTENTION BIT SET ON 'OPPOSITE PORT' AFTER UNLOAD/
/ATTENTION BIT NOT SET ON PORT WHICH ISSUED 'UNLCAD'/

/DRIVE NOT IN NEUTRAL
QSELECT' SWITCH MOVED
/DRIVE LOCKED ON PORT
/DRIVE LOCKED ON PORT

AFTER UNLOAD WITH "PCRT/<CR><LF>
FROM 'A/B' a
'A' BY SWITCH WHILE CYCLED UP/
'B' BY SWITCH WHILE C(YCLED uP/

/CONTROL BUS PARITY ERROR READING INDICATED REGISTER/

124

040
124
040
124

24242

105
040

040

105
040
105
040
105

040
124
040
124

DH25:
DH30:

DH34:
DH35:

DH37:
DH4O:

BRRN

e
b

105
049

DH17:
:
DH24

/TEST
/TEST
/TEST
/TESTY

/TEST

/
/TEST
/
/TEST
/TEST
/
/TEST #

ERR PC
ERR PC

ERR PC
ERR PC
ERR PC

040

105
122

124
044

DH14:

K
6
18:08:36 PAGE 25

ERR PC

040

124

DH7:
DH13:

.ASCI
.ASCI
.ASCI
.ASCI
-ASCI
LASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
LASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI

e NN NN N

040

040
105
040
105
105
040

DH1:
DH2:
DHS:
DH6:

«-APR-81

e N Bt N et N Bt N N e N N e N

JSSRRUS

124
124
040
124
040
124

EXARE

124

—d

124

4052

105
105
105
105
105

&S
LSRN
SN
AN TAS T N1N1,V
WOWOWVNOWWO
WO WWWWW

n
W
n
H
&S

124

nonorno

2
3

jelololelele] 000000000

MACRO v04.00

NG et N

(ZRMSB0 RM0S5/3/2 DU POR 1ST 2
TEST ERROR MESSAGES

ERR PC
ERR PC/

5SRHADR/

ERR PC
ERR PC

/TEST #

5TEST #
jTEST #
;TEST #
;TEST #

ERR P
ERR PC
ERR PC
ERR PC

SEQ 0075
PORT #
PORT #
REG ADR
PORT #/
PORT #

REG ADR CONTENTS/
REG ADR GOOD
BAD/
PORT A
PORT B/
TIME

(IN MS)/

SEIZE/<CRLF>
PORT #/
SEIZE
ERROR/<CRLF>
PORT #
PORT #
REG ADR CONTENTS/
LOCKED
PORT #

SEIZE
PORT #
PORT A

RMDS
REL SNG

PORT #

REL SNG
PORT #
REL SNG
PORT #

SWITCHED TO/<CRLF>

PORT #/

ERROR/<CRLF>
PORT #
REG ADR GOOD
PORT B/<CRLF>
RMDS/
ERROR/<CRLF>

BAD/

PORT #/

ERROR/<CRLF>
PORT #
REG ADR GOOD
RQSTNG/<CRLF>
PORT #/

.EVEN

o
o

o
.

OO
o

.
.

)
LI
-

b
N
8

OO0

——

—t e wd O wed

>
)
T

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

o8
8
8
8
8
8
8
8
8

.BYTE

DF17:
DF25:
DF 30:
DF34:

OO0OO0OCOoO

DF14:

001
000

DF7:

001
001

TSTNUM, SERRPC ,PTNBR, $BDADR, $SGDDAT , $8DDAT , 0
TSTNUM, SERRPC , SBDADR, $GDDAT , $BDDAT , 0
TSTNUM,,
SERRPC ,PTNBR, 0
TSTNUM,
SERRPC ,PTNBR, TIME ., C
TSTNUM, SERRPC,SEIZPT,0
TSTNUM,SERRPC
,SEIZPT ,PTNBR, $BDADR, $BDDAT,0
TSTNUM, SERRPC, 0
TSTNUM, SERRPC,SEIZPT ,PTNBR,
0
$RMADR,
0
TSTNUM, SERRPC,SEIZPT ,PTNSR, $BDADR, $GDDAT , $BDDAT, 0
TSTNUM, SERRPC,$TMP2,$TMP3,0
TSTNUM, SERRPC,SEIZPT
,PTNBR, 0
TSTNUM, SERRPC,SEIZPT ,OPPRT,0

001

DF1:
DF2:
DFS:
DFé:

TSTNUM, SERRPC ,PTNBR, $BDADR, $8DDAT , 0

elelelelelelelelele]

001
001
000

DT2:
DTS:
DTé6:
DT7:
DT13:
DT14:
DT17:
DT24:
DT25:
DT30:
DT34:
DT35:
DT40:

—_

001236
001170
001236
001236

DT1:

001234
001234
001122
001234
001234
001236
00,2%6
000000
001236

oooooorrOrOONON

b
oD

id
)

b wd wuid

D
il

alS weld

il oo

il s
o

il s

joleloleolelele]

[olelele]
elelele]

o - s
s
—_—

W= NN YW

ON\I\I&

DELS
LS LS NS S ]
BN
rorororororON

4756

oO
PONUNONOMLNUNUNONONY

o~ BN

4740

888383888

~
W
~n

PUNUNLNUNIN! ~n
jololels] 000000008

—

001242

o
o

.EVEN

BAD/

(ZRMSBO RM05/3/2 DU POR TST 2

CONSTANTS,

TABLES,

ETC

MACRO v04.00

4-APR-B1

Lt
6
18:08:36 PAGE 26

SEQ 0076

.SBTTL

C(ONSTANTS,

TABLES, ETC

TSTADR:

.WORD

TST1

;STARTING ADDRESS OF TEST 1

.WORD
.WORD

TST4
TSTS

;STARTING ADDRESS OF TEST &
;STARTING ADDRESS OF TEST §

:TABLE OF TEST STARTING ADDRESSES

4 025110

003122

025116
025120

006040
006756

7 025112
025114

025122
025124
3 025126

004474
005256
007674
010742
012052

11 025130
12 025131

13 025132
14 025133
15 025134

16 025135

17 025136

0
002

.WORD
.WORD
.WORD

1
2
&
10

JATTENTION BIT FOR DRIVE 0
SATTENTION BIT FOR DRIVE 1

SATTENTION BIT FOR DRIVE 5

000200

.BYTE
e -

BYTE
.BYTE
BYTE

BYTE

100

000011

sSTARTING ADDRESS OF TEST 6
;STARTING ADDRESS OF TEST 7
;STARTING ADDRESS OF TEST 10

ATABIT:

0490

S% 025140

1ST6
TST7
TST10

;STARTING ADDRESS OF TEST 2
:STARTING ADDRESS OF T:ST 3

TABLE

010
020

200

TST?2
TST3

;ATTENTION BIT

004

}g 025137

.WORD
.WORD

BYTE

JATTENTION BIT FOR DRIVE 2

JATTENTION BIT FOR DRIVE 3
JATTENTION BIT FOR DRIVE 4

100

JATTENTION BIT FOR DRIVE 6

.BYTE

200

MAXTN:

.WORD

.END

200

JATTENTION BIT FOR DRIVE 7
JMAXIMUM TEST NUMBER

[
L
L
[
I

Vv
ammg
SO0
o

el
e

EM12
EM13
EM14
EM15
EM16
EM17
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM4
EM4O
EM4T
EM5
EM6
EM7

ENTERA
ERR
ERROR
ERRVEC

—

88
W
-

§§§§

8838

i
-

CKSWR = 104407
CLOCK
013540
= 000040
(LR
CONTUE 020316

—

e
e S
e
e

EXEC

FER
FMT16
FO
F1

022523
022607
022656
022743

HCRC
HT

= 000040

000001
000010
104406
000200
002000

= 000400
= 000011

IAE
= 002000
IBSAVE
014526
IE.
= 000100
ILF
= 0000017
ILR
= 000002
I0TVEC= 000020
IR
= 000100
IVC
= 010000
KYBCTL
001266
LBC
= 002000
LBT
= 002000
LF
= 000012
LSC_
= 004000
MAXTN
025140
MCPE
= 020000
MDPE

PR4

PRS

PR6
PR7
PS
PSEL
PSW
PTNBR
PWRVE
C
RDCHR

= 000400

MOH
=
MOL
=
MXF
=
NBA
=
NED
=
NEM
=
NOATA =
NOCLOC
NOSEIZ
NTRH
OFD
=
OPE
=
OPI
=
OPPRT
OR
=
PAR
=
PAT
=
PFECH

PFECH1
PFECH2
PFECH3

=
=
=
=
=

PORT(
PRO
PR1
PR2
PR3

—

G0
GRV
GTSWR
HCE
HCI

017727
00 1

PORTBI

> 4

= 000020

nunnnn

DF7
DH1
DH13
DH14
DH17
DH2
DH24
DH25
DH30
DH34
DH35
DH37
DH40
DH5

DISPRE
DLT
DL64
DMD

DVC
ECH
ECI
EMTVEC
EM1
EM10
EM11

DF6

DISPLA

% s

DVA

DF25
DF 30
DF 34
DFS

DH7
DIGB

CKCLK
CKERR

DF
2

DH6

——

e b

R 3
g

2w bt e P

et >

000001

DT?7

020000
010000
001000
100000
010000
004000
000000
017756
001246
020127
000200
020000
020000
001240
000200
000010
000020
014726
014736
015020
015052
015062
015066
002000
001000
020000
177772
000240
001224
017700

PFECH4
PFTSTN
PGE
=
PGM
=
PIP
=
PIRQ
=
PIRQVE=
PORTA
PORTAI
PORTB
001226

gwmwmwmmmwmmmmmmwmmmmwmmwmmg
5
W SR Gn—o - 3RIRARERS8

020043
001706
000010

PT6

000200
000400
001000

DF14
DF17

024714
024732
024630
024740
024752
024756
024776
025010
025022
024546
024662
024672
004000
000200
000100
004000
000030
020501
021065
021153
021220
021267
021354
021436
021522
021641
020547
021724
022007
022060
022156
022251
022331
020570
022374
022425
022473

AT7
=
A6
=
A17
=
BADNO
BADTMO

DFF20

DF1

DT14
D117
DT2
DT24
D125
D730
DT34
D135
DT40
DTS5

SEQ 0077

o
o

001232
100000
(025130
000001
000002
000004
000010
000020
000040
000100

014524

= 001000

ASR1
ATA
=
ATABIT
ATO
=
AT1
=
AT2
=
AT3
=
AT4
=
ATS
=
AT6
=

(PSAVE
Ck
CRLF
CYCLED
CYCLEU
DCK
DDISP
DE1

AHOE

020072
017655

' ADDRIS
ADRERR

18:08:36 PAGE 26-1

| SYMBOL TABLE

4-APR-81

MACRO v04.00

(ZRMSBO RM05/3/2 DU POR TST 2

(ZRMSBO RM05/3/2 DU POR TST 2
SYMBOL TABLE

| START1
START2

001774
002002

STKIMT= 177774
STOP
01415
SWR
001140

SWREG

SWTCHA

C00176

TEST3
TESTG
TESTS
TEST6
TEST7

007014
007732
011000

TIMEA

001256

TIME

020224

MACRO v04.00

005314
006076

WCE
WCF

001252

$8DADR

SWICHE 020261
SWICHN 020156
SW0
= 000001
SW00 = 000001
Sw01
= 000002
W02 = 000004
W03 = 000010
SW04
= 000020
W05 = 000040
W06 = 000100
SwO/7 = 000200
SW08 = 000400
w09 = 001000
SWl
= 000002
Sw10 = 002000

TIMEAP 001260
TIMEB
001262
TIMEBP 001264
TKVEC = 000060
TOLER
013572
TPVEC = 000064
TRAPVE= 000034
TRE
= 040000
TRTIVEC= 000014
ISTADR 025110
TSTNUM 001242
1ST1
003122
TSTIAA 003104
15710
012052
1ST11
013156

SWi2

= 010000

1ST3

= 100000
= 000004
= 000010

1ST6
007674
117
010742
TYPDS = 104405

SWi1

= 004000

SW13
SWl4

= 020000
= 040000

SW15
SW2
SWw3

SWo

= 000040

Sw/Z

= 000200

SWw8
SW9

1574
1515

= 000020

SW5

Swé

TST2

TYPE

TESTI0
TESTe

. ABS.
|

006040
006756

= 104401

WLE
WRL
SAUTOB
$8DDAT

$ENDAD
SENDCT

SENULL
SEOP

$EOPCT
SERFLG
SERMAX

$ERROR
$ERRPC

$ERRTB

= 000400
= 001000

UNS
UPE

= 040000
= 020000

SERTTL
SESCAP

003160

= 000100

TYPOS = 104403

U0
Ul
u3

012110
004532

025142
000000
FRRORS DETECTED:

= 000001
= 000002
= 000004

VVSET = 000001
WATCH
001254

000
001

VIRTUAL MEMORY USED:
54784 WORDS
( 214 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
(/RMSB.BIN, (ZRMSR/(=(ZRMSB,DOC
, CZRMSB, SYSMA( /M

=
=
=
=

SBELL
SCHARC
SCKSWR
$CMTAG
$CM1
=
$CM2 =
$CM3 =
$CM6 =
S$CNTLC
SCNTLG
$CNTLU
S$CRLF
$DBLK
$DOAGN
$DTBL

TYPON = 104404

TAP
= 040000
TBITVE= 000014
TESTNO 020023

TEST

004474

005256

TYPOC = 104402

= 000100

N 6
1B:08:36 PAGE 26-2

4-APR-B1

$ERRTY

SFILLC
$FILLS
$GDADR

$GDDAT

$GET42

SEQ 0078

040000
000040
004000
004000
001134

$GTSWR
$GT42P

016434
013352

$SVP{ = 000210
SSWR = 166000

001126

$INTAG
$ITEMB

001135

$TKCNT

001122

001202
015356
016344
001100
000001
000002
000001
000005
017242
017254
017247
001207
016024
013376
016014

013366
013224

013402
013160
013216
001103
001115

014202

001116

001276

$HD
= 000000
SHIOCT 017442
SICNT
001104
001114

SLF
001210
SLKCSB 001214
SLKCSR 001212
SLKS
001220
SLLVEC 001222
SLPADR 001106
SLPERR 001110
SLPVEC 001216
SMNEW
017272
SMSWR
017261
$MXCNT 014152
SNULL
001154
SNWTST= 000000
SOCNT
015604
SOMODE
015606

$OVER

014136

SGUES
SRDCHR

001206
016706

$PASS

001100

$SRDLIN 016776
SRDOCT 017304
$RDSZ = 000010

$REGAD

001160

$RESRE

017502

$REGO

001162

S$TKINT

016034

016044

S$TKQEN= 016043
S$TKQIN 016036
$TKQOU 016040
S$TKGSR 016042
$TKS
001144
STKSRV 016114
STMPO
001164
STMP1
001166
$TMP2
001170
$TMP3
001172
$TMP4
CO1174
$TN
= 000012
$TPB
001152
S$TPFLG 001157
$TPS
001150

$TRAP

S$TRAP2

017540

017562

$TRP = 000015
STRPAD 017574
$TSTNM
STTYIN
$TYPDS

001102
017232
015610

$TYPEC

015240

$TYPE

$TYPEX

015360

$RMADR

001156
001155
001120

SSAVRE
017444
$SCOPE
013620
$SETUP= 000127

$XOFF = 000023
$XON = 000021
$XTSTR 013642

$SVLAD

$OFILL

001124

013356

SRMVEC
SRTNAD

001274
013400

$STUP = 177777
014126

$TYPOC

015070

014530

001112
001200

001272

$SWRMK= 00C000
STIMES 001176
$TKB
001146

STYPON
$TYPOS

015406

015422
015362

$$GET4= 000000
015605

(ZRMSBO RMOS5/3/2 DU POR TST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )
P

4-APR-B7

1B:08:36 PAGE S-1

SEQ 0079

19-1

$CMTAG

$CNTLC
$CNTLG
$CNTLU
$CRLF

6=0n

19=1
19=1

19-1
6=0n
1

9-24

19~1
19-1#
19=1

10-322«

9=24

19-1

9~69
19-1
18=-1#

9-29

11=1#

9=24
19-1

10-323«

6-0
9-24
19-14

10-185+
10-323«

10-40~
10-99+
10-190~
10-323«

10-40~
10-99+
10-190«
10-323«

10-48+
10-99+
10-322+
10-323*

10-48+
10-99+
10-322+
10-323«

10-48+
10-157+
10-322+

25-27

25-29

6-0

6~0

604

6=0#

6=-0n

6-04

9-24

14=1

15-1

16-1

16=1

131

13-1

14-1

141~

15-1

25=27

25-28

25-29

25-30

25-31

10-40+
*

19-14

9-50
19=-1
18-1

11-1
18-1#

10-323«

10-40*

10-322«

10-33»
10-98+
10-158+
10-323+«

10-48¢+
10-157+
10-322+

11=14

14-1

10-323«

11=1

11=1»

14-1

13-1

14-1

13-1

141

25-3¥

(ZRMSBO RMOS5/3/2 DU POR IST 2
MACRDO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

CSGETL2
10CT

11-14
-1

4-516
20-1#

6-08
6~0n

11=-14

22-1

9-93+

13-1

4-516

19-1
141

9=24+

N
$RDDEC

22-1

19=1#
20-1#

2222

$REGAD

6-0n
6=0#
21-1#4

22=1

SREQG

SRESRE

19=1

13-1

13-1»

16-1

13-1~
19-1»
14-1%
19-1

10-20*

10-98«

10-99«

10-157+

10-20*

10-98+

10-99+

14-1

16-1

19-1
14~1
14=1

19-1
14-1
16-1

9-78+

9-79%

13-1

SRDLIN
$RDOCT

18:08:36 PAGE S-2

SEQ 0080

4-516

13- 1

4-APR-B1

16~1
10-20#
10-158
10-323#

13~1
19-1
14-1

20-1

10-158«

10-178+

10-322+

10-323+

13-1

10-157+

10-158+

10-178+

10-322

10-322+

10-323

10-323+

10-98#
10-178

10-99#4
10-322

10-954

1
1

20-1

S oOy O y Oyw\vb3] O NO—N wrb3ey .%.O ]NO—N r2 O NOue—N vwnb3r¥ ])

13-1

&~
0-

10-158

10-98

10-322

19-

9-103

9110+

= 9=113

10=17

25-36

—

-—

—

al T

1]Ne—5o %,el ])Ne

o ~

-—

O Oy
OO
P
O oo
-O Ooo
*r b
oo
CO
O~

wn w\

$RTNAD

w®

["a) kS

14=1

QL,.

141

SEQ 0081

BROL%—NTYN0WNOMO0WO’38”5%2~~3
eB~3yEhOWy=O(L]A~Yl—ox®1')-101e.-&O.WONMOYN—M-IMN.DO1NmIONO-—WMI1N.OnANG1N.CI-N1P.ON-W1N.-1.OW.1VO33MM-.88A””MW55O&M99&.22=wx.eR—Rxra%«*=y.RUe®*me%-=.O«"«~o5

>ac]aadlBoQnNP]A*0sTMRTrSFER%RFSMPCOO0NmONMTOVy)M.MOT?O(N(7UUNU.oM%MMI'®*xNyO&*%*.O+20WOO3”N.SN**xx700O%oV.NOOoWw*#Nn7.4V%Q@0O]0o[Vs*%.2W3A"OO0UNOMOoM.MNMO0'CY**¥xN_M¥®¥N.O®*«**S-.Wx.x@CS.Ro.¢~M”N]«*N[+SM
7* ”. t&.h.xh.a 7:-.*, 7.“*/ Bm 0%*. *8 *

~ ~N UMo* own v wO

ANOAeOBRUANRO-AI—]RN5N~OoRNleAOPeORS=eAND-~O~APeRAIoNN5—TrrI—RIIrL—ylre—A—0—eN—o—OTyOb—b0—e8Oo0Wae1MyO0Y[Sm0S~OL—ClO2O0RMxNe~l*0oOelx)C0kL9—=e]OeM5Rm40lO8q1xToL—wle9O]eVAlme1OelwVeLe-lYOwl9eLlRm1oOTYOlaVwloe—0lESBw0OMNTLToIOl%OPm0olORwo0l—ml(O0reo]wGRRM0BNR0OTTweAesmRRRXewANDelSRelwoAm1-leoR3Rlwo93MlmoON—lwL95V-o.lAmRmlNb-ExRVm=IMS LoVS[a)-TPeGg—IadliIVaVaONo0SIFON0Ol0OOMONA=—e-rrtR—
N * * 'R .

CZRMSBO ’MO5/3/2 DU POR TST 2
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-05

UL1j i1[|'

L
d

4-APR-81
18:08:36 PAGE S-3
SEQ 0082

N T ISroer T 93 9% yvT 8% TYYG0

[
o
A
«
N
a
M
®
w
n
]
+
o
0
n
)
u
m
.
P
B
o
S
4
$
E
8
5
N
D
b(NI8aO0[YW.I=.]e.VOa0.OOmV0¥.YOO.O]O"1...-.1m.. ~ONO=oN3Y

SEG 0083

L3»&8 SNoNeNooNeMoeoo ¥0 *r

X-oRw%-nG0N\lM-VXo=e<—-N¥e,L[2w0.2eo0LB8“Bao0o.5’B1e.’8B1%B23.e0NM—-1B2Obr2-3—B."2—|NBL2u—RBM8.9B5-NSbI@—e7.eNI"-b510eI.NEe-PI18eT.SbI-1—.Te-1-Q.1QM8AO—WY-L1eT-A3v.0—8o0MlN-1gNO0(0o.N1IM.I1W-VO1N-W1O—~oW=]1.V-EM-Q]L(1RoW]V.I—-1O.2NSaAeL-NBveOo%VnR.
o ~ M QO

oEOY—o41ELV\)n(XN]s[TSYOTO3-3-I1N-OCO3NO3O3OT3-3-E3--_M—i]o[ramoeGn-gePSsmeP=OM-—— ~P]—¥¥OSo{f<e—[ooQWe[] 1—owX]UT<en=[]« yLWoO8”HA[r g&ao-]5.
|— i|l ove[dN(o
L3--3-3----

-—

(&o~le]
-

o[-l 1i

o~00w

13 wv

[oo o

oo [0oooo

-—-— oo — —

— -N

wou
Ny

18:08:36 PAGE

o
NO

4-APR-B1

non
NO

—

MAC ]RC vO% .00
“ZRMSBO RM(S5/3/2 DU POR 15T 2
(ROSS REFERENCE TABLE (CREF v01-05 )

7
S-4
0084

(o] —Mwoeu N

(ZRMSBO RMOS5/3/2 DU POR 1ST 2
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )

(KERR

- (KSWR
' CLOCK
| CLR
CONTUE

7=0n

10-33

10-33«

10~322+«

10-322+

10-323+

10~48+

14~1
12-18
10-22
10-187

14-1
12-254
10-33
23-15#

13-1
4=5194
4=5198
52—}8

(YCLED
CYCLEU
DCx
DDISP
DE1
DF 1
DF14

10-322
10-322
4=6104
4=519%
4=581#4
8-7
B84

DISPLA

OLT

DMD

10-48+

13-1
12-9
4=5478
10-182

CPSAVE
| Ck
CRLF

DF17
DF2
DF25
DFZ0
DF34
E
DF 6
DF 7
DFF20
DM1
DHI13
DH14
DH17
D2
DHO4
DHS
DH30
DH34
DH35
DH3?
DH4O
DHS
DHé
DH7

10~48+

13-1
16~1

10-48+

22-1#

&4-APR-81

7
1
18:08:36 PAGE S-5

10-33+

10-33«

10-48+

SEQ 0086

10-33«

10-40

10-323«

10-98+

10-323+«

10-98+

10-40~

10=40+

1G=40+

10-323«

10=323+

10-323«

10-99+

10-323«

10-99+

10-322+«

10-322+

10-48+

10=48+

10-48+

10-322+¢«

10-322«

10-322+

10-33

14-1

1414

14=1+

14=1«

15-1

9-29
23-14

13-1»
24-16
9-29
23-15

13-1»

9-6
gg-;g

13-1
16~1

16-1
23-15

16-1
23-16

23-3
23-17

23-4
23-17

23-5
25-6

23-6
25-8

23-7
25-11

23-7
25=14

23-9
25=16

23-10
25-18

10-322
10-322

10-323
10-323

23-1¢#
23-17#%

6-0

9-24

8-21
25-47#

8-56

8-63

8-70

8-91

8-120

8-127

8-134

8-185

¢5-424

25-43#

8-106
g-14
8-148
B-164
8-192
8-35
8-42
8-49
4=5774
8-5
8-75
8-82
B8=104
8-12
8=139
B=146
B8-162
8-190
8-197
8-211
B8-218
8-33
8-40
8-47

B8-113
8-28
25-49
B8-213
25-51%
25-44n
8-77
8-141

25-484
B8-171

B8-178

8-227

25-50#

8-99
8-199

25-454
8-206

8-220

25-46#

8-19
8-97
25-8#
8=111
8-26
25-114
25-13#
8-225
25-16#
8-204
25-204
25-o2
25-34
25=4H
25=54

8-54
25-b

8-61

8-68

8-89

8-118

8-125

8-132

8-183

25-14

8-176

|
25-2#

25-14

6-0#

9=24*

9=24=

13-+

14=1%

25-10#
B8-169

25-184

4=557#

46144

DPE
DPR

46564
18-%3?0

10-48

10-98

10-99

10-157

10-158

10-185

10-190

10-322

DRQ
DRY

4-6414
13-%%%’

10-48

10-98

10-99

10-157

10-158

10-185

10-190

10-322

DSWR

4=519¢

6-0

9-24

L-~%2n

SEQ 0087

(ZRMSBO RMOS/3/2 DU POR TST 2

(ROSS REFERENCE

| D101
D102
1 D103
D104

4=639#
4=6404
g-6
8-76
8-83
8-105
8-13
8-140
8-147
8-163
8-191
8-198
8-219
8~34
8-41

DTE
DVA
pvC
ECH
ECI

4=6074
L=5724
4=6574
4=601#
4L=668#

EM1

EM2

EM24
EM25
EM
EM30
EM31
EM3
EM3

(CREF

v01-05 )

4-APR-B1

18:08:36 PAGE S-6

SEQ 0088

4=6338
4=6344
L=6354
L=6364
L(=6374
4L-6384

DT0S
D106
D707
0708
DT
D113
D114
DT17
D12
D124
D125
D130
DT34
DT35
D140
DT5
DTé

DT?7

TABLE

MACRO v04.00

8-20
8-98

8-55
25=32#

8-112
8-27
25-35#

25=334

25-36#4
8-212
25-38#4
8-205
25-40#
25=29#4
25-304

8-48

25=31#

8-4

24=34

3-131

24-224

8-138
8=145
8-18
8-161
8-168
8-175
8-182

24-23#
24-24K
24=5#4
24-25#
24-26#4
24=27#
24-28#

8-62

8-69

25-34#
8-170

8-177

25-28#

8-226

25-37#

25-39%#

8-90

8-119

8-126

8-133

8-184

25=274#

(ZRMSBO RM0S5/3/2 DU FOR 1ST 2
MACRO v04.00
CROSS REFEREMCE TABLE (CREF v01-05 ?

EXEC

FO
F1

f
3
Fé4
FER
FMT16

GNS

G0
GRY
GTSWR

HCE
HCI
HCRC
HT

1AE
IBSAVE

IE
ILF
ILR
IOTVEC
IR
IvC

KYBCTL

LBC
LBT
LF
LSC
MAXTN
MCPE
MDPE
MOH
MOL
MXF
NBA

NED
NEM
NOATA
NOCLOC
NOSEIZ
NTRH
OFD

8-46

4-519#
9-33
4=590#
4=519#4
4-519#
13=1#
9=60

24~94

Q=24

23-3#

9=24»

9=24»
13-1»
10~20

L=567#
4~S684

SEQ 0090

9=24

14=1
10~98

9-26+

14=-1%
10-99

9-27x

14-1%
10-157

12-6+

12=15+

12-24+

13-1

10-178

10-322

10-323

11-1

22-1
22-1

22~

14=1%

13-1

13«1«

13=1+

22-1
22-1

10-157

10-157+

10-158

10-158+

10-178

10-185

10-190

10-322

10-158

10-185

4L=5694
4L=570#

4=571#

45994
4=6694

5«1

22~1
22-1

4L=566#
4=579#
9-29

4=602#
4~667H4
4=6034
4=5194

4=605#
14-1

4=525#
4=595#4
4=5964
4=519#
4=5484
4~660#4

7-0#
10=178*

4=658#
4=586#
4=519#4
4=6594
9-85
4=5304
4=550#
4=64oN
4-588#
10-322
4=551#
4=644H4

4=554n
4=553#4
8-2324
10-185
9-61
7-O#
9-106
4L=-6664

10-98

5=1
22=1
22-1

10-99

22-1

10-322
9-29

22-1

—

EMIVEC
ENTERA
ERR
ERROR
ERRVEC

—

. EM7

4&-APR-81 18:08:36 PAGE S -7

22-14

16=1

16~1

14=1

9=24»

924

10-191

Q=75+

16-1

14=1

14-1

14-14

14=1+

9=-92+
10-322

10-20
10-322

10-20*
10-322%

10-98

10-323

10-98+
10-323«

16-1

25~7

23-8

23-10

23-11

10-48
10-322

10-98
10-322

10-98
10-323

10-99
10-323

10-158

10-33

10-322

10-323

10-53
10-185

10-98
10-185

10-99
10-190

10-157
10-190

10-158

10-99+

26=22#

23~7#

23-1»

L~6084

s-N-1oNla]10[0w.4”NeL|o&)1u5Vn1No2m-[n—9t3*[—y5WM-]1RJO0”V[P}Y1M”o5~e-iN]—58m&«-J22oM|[oNoe-)|ulw[n”m~ymS§
eCalow0noNyn*y MOoNyONYVoyN

*0m08-g[O\&”%-N*>%Pm(e.-=—4%%r-1—m&H~%L54wm—43|r9=—%O0N”OreN7NNw4—t5eN&0.V0eyo4—h—2t%yyr®=-ym—-605g«*My44o)aB—«a1rmwNM-&1—51—MHNN4wOOwoNPO6n.-WeMroAM—=nn—y4gnfwooe%.NyPcl—G%mTNM*w.fNMRWw-i—!nueoNMkr‘n—.n~Ngowe47mNyO—.—MaLNM
- 0— -— —

S00o-OO WjoNeldol—ele*] dOWP-0OMd0Od0 OOdQTO0NdvM
1 T IIT
PIRO
PIRQVE

PIP

PORTA

10-158
4=5894
4=519#4
4=515#
704

(CREF v01-0S )

10-185

MACRO v04.00

10-190

]

4-APR-B1

- (=] ~ ¢

]

-—P0ry *0N&%®0\ loOeQ=lo0lOe]l0eO8wuO[MoYalnoey eTo%80T el%oOe0lOo
*&

on Toooiwy: e1le3le1le2] *E

(ZRMSBO RMOS5/3/2 DU POR 1ST 2
TABLE

Jb *
A- && &¥ **
-- ¥& %& ®*

«— NN

eEsLLULUL-asAlayOLWs ST
gOI-STrnTnuinnRnuannanmwiRen gNIo

Nk&o- --pnghpgungnesT333&---

F
r
P
L
C
S
T
S
S
m
i3A&=-b~0io=SWV tNNo oSVoane3Yo& .¥3—6]0s0O—dd[\ekla0e®leJAl&SRS«e038bo o= OB-£T ~3M—0 O4M 4«*eanOJARnyodiNyMnaMISn0idRttO®R«—ON2dToeON3ArMM1dpNNRerOh ®(W]2©]5RP5E1SyR11’5(mw=n]
SedOr SdMd4OM FaOd—rd—M R2ed=r—dM
(ROSS REFERENCE

18:08:36 PAGE S-8

\
and H[
o]

o ~0

]

%x-&

[
oud o q[
*]

SEQ 0097

— o o <]
|

10-99
10-99
10-157

10-157
10-158

EMAS

L=6528

SEQ 0093

CZRMSBO RMQ5/3/2 DU POR 1ST 2

' CROSS REFERENCE

RMBA

TABLE

(CREF v01-05 )

46874

CRMCST

4-685K

RMCS2

4-680#

MACRO v04.00

10-98+
10-185+
10-323+

10-33

10-98+
10-157+
10-180+
10-322+

&4-APR-81

10-98+
10-190+

10-323+
10-33
10-98+

10-157+
10-180«
10-322+

10-33
10-99
10-158
10-190
10-323
10-40

SC
SCO
SC1
SC
SC

SCé4

SCOPE
SEIZPT
SKI
STACK

4=-6524

4=5194
7-0#
4=6624

4=5194

5=1
5-3
9-15
4-519#
13-1
4=519%
4=519
4=519
4=519

Swo4
SW05

4-519
4=519

Sw08
Sw09

4=519
4=519

Sw06é
Sw0?7

10-99+
10-322+

10=157=

10-180+
10-323+

10-33
10-98+
10-157+
10-185+

10-33«
10-98+
10-157~
10-185+
10-323

10-48+

10-322~

10-33«
10-98+
10-157+
10-185+
10-323

10-48
10-99
10-158
10-322
10-323

10-48
10-157
10-158
10-322
10-323

10-98

10-323~

10=-322+«

10-322+

10-323=

10-98
10-158+

10-99
10-322+»

10-323«

25-32

25+33

25-35

9-71
19-1

10-20
19-1

10-99

10-157

10-158

10-322

10-323

10-98+

10-99+

10-53
9-114

10-55

4=519

4=519
4=519

SEQ 0094

10-99+
10-322«

4=532#
4=6484
4=6494
4=6504
4=6514

START
START1
START2
STKLMT
STOP
Sw0
Sw00
SwO1
Sw02

SwW03

D 8
18:08:36 PAGE S-9

10-158

10-194

10-322

10-99+
10=158+
10-322
10-323+

10-157
10-185

10-322+

L5198

SEQ 0095

sn»—oBMw0—VONVOVO~Oy.I[O0—MaVi—a0V]wEOYroVwiOeo—>Nlec<eolneOlonvlVeolenNol\Vclo1Temoeo2l3cle4rl5e—lr6eO—l7rsm(OoG-a¥N]MHOJu*o—MWMo-NRMoO~ woLo%ls- o
) &y

mWyv-oO=MwvuSVeIoMu—nnrv—r~&[r00ar2m80—O®#C”r0¥Oa5Ir*\.ON&\0.7s0NO~2W#NMeO5DWeO8eCNWeY8We-ge5W|LIWNbaaY3]lOoaVWYNUMAOROo- «oNoy~ONIM=
M -—

v01-05

’yuMN'[*.0/uz Log-l%1I]\
b[*

2w] N]-

(CREF

——

TABLE

4-APR-B1

ROSS REFERENCE

MACRD v04.00

00 «\.

0 GON *

5335 333333 L

-Ne4TNA]]NO3~NeyS8]4Ns<-S&VT¥—OT§VT¥—NTVSeITBEOQAUOIRSUTTVNs.le3NvMolMyYoelRw1oNlNvTlRR—— SvPl—Bvo[1l3oFP[8-2lRaem3'8vA—B'oA3rPm—R—-Pvelv‘—UNlI.l—-1VlR'le1vTS3l—veRON°lRoFN—-§!A5N'OlaR.oQ75——Nl1v1aTO.7—m.<w 3ORoaA—=-l(1—W-2F-LS33Rrear3c.r\eeJ3cSrc0rSeteJ1S5Te94"S5S%S8
NooMM PW] ~N]~oM ———-oN~~—W—
MooN\~ gi—[LoaMl¥-]
NoMw(1)%) M3-[]]
(ZRMSBO RM05/3/2 DU POR TST 2
18:08:36 PAGE S-10

F
o

8]
[
+

-5t

3-48

G
9-50

9-61

G-69

5-80

9-87

9=102

9=105

$=-10¢

SFQ 0097

RIVplo1VaY.Nolal-e NSO(e}
n58%543[54e-Lelle8elle“4loel5oell0WeollSseL])8W7I4S4oB|NVo-oU)o]ol1ooW2lwOLoellnLtL.eUoyl
LU0—NNe- >> QemM2a gX>o832—13—t
uo[NL]eeollnleiollLeSllooWelllols[*| o- NN|ONPWLUoPMP
wee2N[-TwsvdinlnoeoeolodTl00e0ldTe od-TladQaeMN
t1

3 b Ry

ewe v s
ZRMSBO RMO5/3/2 Du POR TST 2

L[oIeVMlagl)y.

o ¥ 0N000N

|—

TABLE

(CREF

o0onN v ~

(ROSS REFERENCE

v01-05

MACRO v04.00

)

4&-APR-B1

18:08:36 PAGE S-11

0e-\.%?BY. r—MAer=—A

SEQ 0098

N o~

]

o~wNYyNuT0\OMoM[O0—Pe0—lOe\lMe!leNle—] oO&.0S]
NOoelgV][« [la3e¥lIaseY]]wo~nN\S=OOX]WIvNTM1N-—‘-oaocYW[NMNR]o&MwSw0O“o]unr“ln2oo§Nw'L‘nen0yo—leygF1MwN"4MI—’eN2oiM1[—lIoooo i-b8O]]4b[N+5—[4"orau¥l]enM=~aYIo0CMNNU4o0T4I0‘To4VoTl‘WO4LReV0LMAVoO4lV0L0k4WlM-4P-0W0ooM~D&W§Vn0lNWL2oxwo(o—‘l.~0~oW0MrO34[}We‘
0N M

Bowo0y ooy el[TN(& "M| ==i

EMA~N DNTN MNaVovn"-3“eOo-y“Ru<-O0——Sr—rr—0R—“CeOS3mC1-E3”0M<RRo2Sv—SSn%obAr‘5—”—.O\u5R1wm4sV=5.Qu0a‘w“9>QIRO1>—3DYw>W2ROX8ANA6OR7=4vTaTOw4TUPACE4RLAOe0LReTRR u0o“UdM-0WRFELTETN“dOEArPRE—
1olaVy] o[ IO\ [w"av) o=NC)OyM—y\MN1 MNO M(L5g ~ e=—[ooNM—~0Oo]
M
Y
T
1
o
y
o o oV]IoVals[+ [
1

oo M

bx23
3
e

V-—L] -—0y owy o[el~elel[e]|L
5”o9 ]1[ ["aol"al"s L-g 1[ L-=ol 1L$-lM-o Lo—rd— ae-doo 0Laolal 0gM -

4-APR-B1

M-!
eiei

O-

oMoy

—.11-M
M-—[yN

¥ g
o oe o
Iol o]
O[ o1
vy o

(ZRMSBO RM05/3/2 DU POR TST 2
MACRO v04.00
(ROSS REFERENCE TABLF (CREF v01-05 )

18:08:36 PAGE M-1

SEQ 0099

o[se]Va¥:N - "T

N0M NM oA~N

(ZRMSBO /M05/3/2 DU POR

(ROSS REFERENCE

| SETPR!

SETTRA

4-519#

TABLE

TST 2

(CREF

10-18

v01-05 )

13-5

22-1

10-178
18-1

10-178
19-1

TIMER
TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS

4=497#
22~1#
4-519#
4=5194
4-5194
4=519#
4=519%

10-157

10-158

11-1
9-29

11-1

TYPTXT

4=519#%

4=5194

9-47
15-1

9=49
15-1

10-328#

11-1

SE TUP
SKIP
SLASH
STARS

SWITCH
SWRSU

TYPOCT

USERED

4=5194
4=5194
L=519#4
4=519#

4=373#
4=519#

9-24
10-322

5-5

9=24

9-6

MACRO v04.00

22-1

6-0

10-322
19-1

18:08:36 PAGE M-2

SEQ 0100

13-9

19-1

22-1

22~1

6-0

10-20

10-98

10-322
19-1

9=244

11-1

4&-APR-81

15-1

19-1

11-1

10-323
19-1

10-325
20-1

22=1

22-1

10-98

10-99
11-1

10-99
13-1

10-327
21-1

22-1

22=1

22=1#

10-158
16=1

10-158

17-1