Digital PDFs

AH-F914C-MC

April 1985

128 pages

Original

53MB

view download

OCR Version

61MB

view download

Document:	CZCMJC0 CMR-11 CMR V 11 HOST EXER APR 1985 bw
Order Number:	AH-F914C-MC
Revision:	000
Pages:	128
Original Filename:	CZCMJC0__CMR-11__CMR_V_11_HOST_EXER__AH-F914C-MC__APR_1985_gray.pdf

OCR Text

APR 1985

ElEoRan

Made

USA

——

—————————
——

Bl
SEQ 0001

IDENTIFICATION

PROGRAM CODE:

AC-F912C-MC

PROGRAM NAME:

CZCMUCO CMR-11 MOST EXERCISER

DATE CREATED:

30-MAY-79

MODIF IED:

14-JAN-80, 28-NOV-80, 28-SEP-84

MAINTAINER:

SPECIAL SYSTEMS KANATA

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

| DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
rm&mnnv

OF ITS SOFTWARE ON

EQUIPMENT THAT IS NOT SUPPLIED BY

| THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DEC

DECUS

DECTAPE

aBus

VAX

CMR-11

MASSBUS

PR OB

POP

UNIBUS

e Py

)e)idgridt)edl)
sanPicntesviosntossioontone

| COPYRIGHT (C) 1979,1960,1984 BY DIGITAL EQUIPMENT OF CANADA LIMITED.
ALL RIGMTS RESERVED

5€Q 000z

HISTORY
.......

vC-2018€E-02

AC-F912A-MC(CZCMUAD)
AC-F9128 -MC(CZCMUBO)

REASON FOR MOD.

BY:

ORIGINAL PROGRAM TO TEST CMR

D0.G.w.

ORIGINAL RELEASE 10 S.0.C. (V.S.)

0.G.w.

LCMANGE CNTRL CHAR FOR SFTWR SWITCH

0.G.w.

MOST LOGIC.

PRODUCT BECOMES CATEGORY "A*"

-G
REG FROM CNTRL-S TO CNTRL

LPRINT DEFAL.T PARAMETERS AT

.ADD A ONTRL CHAR. AND
A FLAG TO
ALLOW PRINTING A PORT CONFIGURATION
STATUS TABLE WMEN AVAILABLE.
PRINT ELAPSED TIME AT END-OF -PASS
IN THE PORT LOOP BACK TEST AND IN
THE EXERCISE PORTION.

.CORRECT THE ORDER OF BAUD-RATE

PRINTOUTS AT THE COMPLETION OF THE
FIRST PASS OF THE LOGIC TEST SO
THAT THE CORRECT BAUD IS SHOWN

AC-F912C-MC(CZCMICO)

mm PATCH (CZCMUBL1) TO
AFTER EACH HOUR

DON'T OCCUR SIMPLY BECAUSE THE

SO THE USER CAN SELECT WHICH

CUSTOMERS.

.ADDED PRINTOUT IN LOGIC TEST 10
WARN USER TO DISCONNECT COMMUNICATIONS
TO ALL REMOTES BEFORE CONT INVING.

0.G.W

FE2222323333333
35

WITH THE CORRECT PORT NO
.ADD CODE WMICH PRINTS THE "STATE"
OF EACH "REGULAR* REMOTE ON
A
PORT IN THE PORT CONFIGURATION
STATUS PRINTOUT,

—e

TABLE OF CONTENTS

| OPTIONS 7/ CONTROLS

| LOADING

| STARTING / RESTARTING
i TEST DESCRIPTION

START-UP

TEST SELECTOR

LOGIC TEST
PORT LOOP -BACK

MAINTENANCE ROUTINE

| ERRORS
|

MOST-REMOTE EXERCISE
END
OF PASS

NOVNEB W

| ASSUMPTIONS

(=]

| CAUTIONS

:0.0:OOO:OOOOQOU!.uN-

RESTRICTIONS

—
- ce—

—

o
——
-+ ———
.

—

.
w—

——

—

————

5€

—

——

@ 0003

- ——

El
SEQ 0004

THIS PROGRAM IS TO BE USED TO TEST TME COMPACT MICRO REMOTE
HOST HARDMARE (CMR-11 M8990 OR CMV1l M7181-M7182)AND TO BASICALLY CMECK COMMUNICATIONS BETWEEN THE MOST MARDWARE ON THE UNIBUS
AND THE REMOTE MARDMARE.

THE PROGRAM IS DIVIDED INTC THREE PARTS, PLUS A FOURTH
PURPOSE “MAINTENANCE" ROUTINE:

MALTI-

HOST LOGIC TEST
PORT LOOP-BACK TEST
- CMR EXERCISE ROUTINE

- "MAINTENANCE" ROUTINE

THE HOST LOGIC TEST IS INTENDED TO BE RUN WITH ALL REMOTE

FOR EACH PORT TO BE TESTED.

OTHER:
THE PROCESSOR MAINDECS AND CONSOLE TERMINAL TESTS

MUST HAVE BEEN RUN SUCCESSFULLY BEFORE RUNNING
THIS PROGRAM.

SEQ 0005

RESTRICTIONS

IT IS NOT ADVISABLE TO RUN THE LOGIC TEST OR THE
PORT LOOP-BACK TEST ON AN "ON-LINE"” SYSTEM WITH
THE REMOTES ATTACHED AS “"ON-LINE" DEVICES MAY BE
AFFECTED.
THE CMR EXERCISE ROUTINE, MOMEVER,
MAY BE RUN UNDER THESE CONDITIONS.

COMMUNICATION PORTIONS OF THESE TESTS FROM MOST

TO REMOTE AND REMOTE TO MOST MAY TAKE A CONSIDERABLE LENGTH OF TIME IF THME PORT BAUD RATES ARE SET
LOW (300 BAUD).

CAUTION MUST BE EXERCISED WHEN USING THE "MAINT
ENANCE* ROUTINE SO THAT FUNCTIONS ARE NOT STARTED
WHICH WILL COMPROMISE ANY “ON-LINE" SITUATIONS.

IN THE PORT LOOP-BACK TEST, IYISASSUEDTHATHENTFE

OPERATOR TYPES <CR> INDICATING "READY", ME MAS LOOPED
A

:gu‘mmmsmwmn TO INPUT PHYSICALLY, AND HMAS SELECTED THAT PORT

IT IS ASSUMED, IN THE CMR EXERCISE ROUTINE, THAT THERE

ARE REMOTES ATTACHED (AT LEAST ONE) AND THAT THEY ARE
"REGULAR".
IF THIS IS NOT THE CASE, THE ROUTINE WILL
BE IDLE.

OPTIONS 7/ CONTROLS
6.1

SUR =

MEANS

100000
040000
020000
004000
002000

DON’'T HALT AFTER ERRORS
DON’T PRINT ERRORS

LOOP ON ERRONEOUS ROUTINE
INHIBIT PROGRAM ITERATIONS
DON’'T PRINT END OF PASS

CONTROL CHARACTERS

CNTRL -C
CNTRL -7
CNTRL -G
CNTRL -P
CNTRL -0
CNTRL -F
CNTRL -A

RESTART TEST SELECTOR
v
o
.
SHOW “SWR” OPTIONS
PROCEED
ENTER "MAINTENANCE” DEBUG ROUTINE
SHOW CONSOLE FILL COUNT
PRINT PORT CONFIG TABLE

G1
6.3

SEQ 0006

NON SWR PROCESSORS

ON PRCCESSORS WITH NO PMYSICAL SWITCH REGISTER
THE OPTIONS CAN BE EXAMINED OR CHANGED BY THE USE OF
*CNTRL-G" AND AT TME TIME OF AN ERROR MALT. THE
PRINTOUT:
SWR = XXXXXX :
WILL SHOW THE OPTIONS
AND THE OPERATOR CAN LEAVE THEM (<CR>) OR CHANGE
THEM (YYYYYY<CR>), THEN PROCEED (P)

THE PROGRAM IS SUPPLIED IN

.ABS

FORMAT AND IS LOADED

BY MEANS OF THE ABSOLUTE LOADER OR THE "LOAD" COMMAND OF
THE DIAGNOSTIC MONITOR XXDP.

STARTING 7/ RESTARTING
STARTING ADORESS :
RESTARTING ADDRESS :

200
204

TEST DESCRIPTION
9.1

INTERFACE ADDRESS: (NNNNNN)
INTERFACE VECTOR: (NNN)
INTERFACE PRIORITY: (NN)
THE VALUE SHOMN IN PARENTHASIS ARE DEFAULT VALUES WHICH WILL BE
USED IF ONLY <CR> IS ENTERED. IF A NEW VALUE IS ENTERED (XxxX), IT
WILL BE USED AS THE DEFAMALT AT FUTURE START-UPS.

IF THE PROCESSOR MAS NO SWITCH REGISTER, THE SWITCH
OPTIONS WILL NOW BE SHOMN AND MAY BE CHANGED (AS IN #6).

H1
SEQ@ 0007

9.2

TEST SELECTOR:

SELECT TEST (4 = MHELP):

(HELP MESSAGE READS:)
SELECT ONE OF THE FOLLOWING:
CR OR 1 = LOGIC TEST

2 = PORT LOOP-BACK TEST
3 « CMR EXERCISE
4 = THIS MELP INFO

CNTRL-C = TEST SELECT

CNTRL-G = SWITCH OPTION SELECT
CNTRL-F = CONSOLE FILL COUNT SELECT
CNTRL-0 = DEBUG ROUTINE WHICH ALLOWS
LOADING SCPD AND STARTING

FUNCTIONS AND EXAMINING THE
RESWLT.

CNTRL-A = PRINT PORT CONFIGURATION

STATUS TABLE IF AVAILABLE.

P = PROCEED FROM SW MONITOR
9.3

LOGIC TEST:

UPON ENTERING THE LOGIC TEST, THE OPERATOR IS PROMPTED TO DISCONNECT ALL REMOTES

AND TYPE <CR> WMEN READY. EITHER SWITCH THE LIMITED DISTANCE MODEMS TO LOCAL LOOPBACK

OR DISCONNECT THE CABLE TO THE FIRST REMOTE ON EACH PORT. THEN TYPE <CR>.
REGISTER DEFINITIONS
CSR = CONTROL € STATUS REGISTER
SPAR = SCRATCHPAD ADDRESS REGISTER
SPDR = SCRATCHPAD DATA REGISTER
(CSR)
INT______:

1514 13121110
&

FUNCOM______:

CMGSTA_________:

PMRUP_ """

€-=>

%
.

SRR

NOT USED_ __ T TTTTTTTTTt
s

B
H

$emmonn ST FUN

YR I

R INIT

b esrsenan ENABKS

L es
:

oo
- __REPTHRU

e el IE

SEQ 0008

(SPAR)

151413121110

Ce-cnsssanssssanssssssa)

QLescescasssscsnassscas

THE FOLLOMING TESTS ARE PERFORMED:

TEST OF THE PWR-UP SEQUENCE
TEST THE SCPO ADDRESS REG.
TEST THE SCPD MEMORY
TEST ALL OF THE CSR
TEST INTERRUPT
TEST PROGRAM INIT.
CHECK SCPD ACCESS KEYS
SIMPLE FUNCTIONS TEST

9.4

PORT LOOP-BACK TEST
THE PORT LOOP-BACK TEST USES THE PORT LOOP MAINTENANCE
FUNCTION OF THE HOST FIRMMARE.THE TEST WILL RUN WITH

ONE PORT OR WITH ALL PORTS SELECTED:
PORT @ (<CR> = ALL):

THE OPERATOR MUST ENSURE THAT THE PORT(S) BEING

TESTED ISCARE) LOOPED FROM XMTR TO RCVR. THIS MAY
BE DONE BY PLUGGING JUMPER PLUGS INTO THE HOST PORT
PLUGS OR BY SWITCHING THE LDM (M8996) EITHER AT THE
HOST, OR AT ANY ONE REMOTE ON A GIVEN PORT, TO "LOOPBACK”, (SEE CMR-11 SYSTEMS OPTION DESCRIPTION SEC. 2.5.1).
9.5

CMR HOST-REMOTE EXERCISE

THIS ROUTINE WILL PROMPT THE USER FOR EITHER A DETAILED
RUN OR A GENERAL RUN:

“DETAILED(1) OR GENERAL(0)...[0] *
DETAILED

RESPOND BY TYPING A 1 IF YOU WANT ALL POSSIBLE REMOTE
NUMBERS SCANNED FOR AVAILABILITY, THEN THE DIAGNOSTIC

FUNCTION IS RUN ON EACH REMOTE FOUND. THIS TAKES SEVERAL
MINUTES AT THE FASTEST BAUD RATE JUST TO FIND WHAT REMOTES
ARE ON-LINE (EVEN IF THERE IS ONLY 1).

SEQ 0009

GENERAL

RESPOND BY TYPING A 0 (OR JUST <CR>) IF YOU WANT TO TELL

THE ROUTINE WHICH REMOTES ARE ON-LINE AND ONLY THOSE WILL
BE SCANNED. THEN A “FORCE INTERROGATE" FUNCTION IS DONE
ON EATH REMOTE FOUND.

IF 'GENERAL' IS CHOSEN, THE USER IS PROMPTED FOR THE

REMOTE NUMBERS ME WISHES TO BE SCANNED AS FOLLOWS:
TYPE PORT/REMOTE #'S (400=HELP, <CR>=END)
1

REM ¢

THE USER IS COMPELLED TO ENTER AT LEAST 1 REMOTE NUMBER
BECAUSE THE PROGRAM KEEPS PROMPTING FOR THE FIRST REMOTE
IF QST A <CR> IS TYPED FOR THE FIRST REMOTE o.

EACH ENTRY IS COUNTED IN THE LEFT COLUMN BECAUSE A MAXIMUM
OF 32 ENTRIES ARE ALLOMWED.
WHEN ALL REMOTE NUMBERS ARE ENTERED, TYPE ONLY <CP> IN

RESPONSE TO THE PROMPT AND THE EXERCISER WILL BEGIN.

THE ROUTINE STARTS A BACKGROUND SCAN AND WAITS FOR THE

END OF A SCAN OF ALL REMOTES ON ALL PORTS ("THRU").
DURING
THIS WAIT, IF ANY ALARMS OCCUR, THE BELL
ON THE
CONSOLE WILL RING (4 TIMES PER ALARM).
AT THE COMPLETION
OF THE SCAN, THE PROGRAM SHOWS
THE PORT CONFIGURATION STATUS AS FOLLOWS:

PORT #0
MT L 0
ETC.

0(1)
100(1)

1(1)
101(1)

2(1)
102(0)

3(1)
103(0)

SHOWING EACH PORT ONLY IF THERE ARE REMOTES ON THE PORT

W' CH ARE "REGULAR” AND SHOWING THE REMOTE “STATE" WHERE:
(0) = INITIALIZED
(1) = PASSIVE
(2) = ACTIVE

ssssessssss THIS PRINTOUT ALSO OCCURS IF CNTRL-A sssssessssss
sssssesssss IS TYPED ANY TIME AFTER THE FIRST
YT
sssssssssss TABLE IS PRINTED.
S8RASS SRR R

rm.ounc ms PRINTOUT,

THE “DIAGNOSTIC” OR "FORCE

* FUNCTION IS ATTEMPTED ON EACH REMOTE PRESENT.

omnsnc FUNCTION IF RUNNING "DETAILED”
FORCE INTERROGATE FUNCTION IF RUNNING “GENERAL"
DURING THE REMAINDER OF THE EXERCISE, ALL REMOTES
WILL BE EXERCISED WITH THE "DIAGNOSTIC” FUNCTION
OR THE “FORCE INTERROGATE FUNCTION” AND ALL ALARMS
WILL BE INDICATED (BY BELLS) AND ANY CHANGES OF
REMOTE STATUS WILL BE REPORTED:
sss REMOTE STATUS CHANGE ##»
REMOTE oXx
REGULAR
’

REMOTE STATUS W; IRREGULAR
YYYY

————

— ———
——
———

——

IK1
SEQ 0010

“MAINTENANCE" DEBUG ROUTINE

CAUTION SHOWLD BE EXERCISED WHEN USING THIS ROUTINE

SEE SECT. 4.

THIS ROUTINE OPERATES LIKE A SIMPLE "0DT", HOWEVER,
IT ALLOMS EXAMINING AND/OR DEPOSITING ONLY IN THE
CMR-11 SCRATCMPAD MEMORY. YOU CAN ACTUALLY ENTER
FUNCTION CODES INTO THE REQUEST SCRATCHPAD MEMORY.

ENTER EACH WORD OF THE FUNCTION ACCORDING TO CHAPTER
3 OF THE CMR11 SYSTEMS OPTION DESCRIPTION (YC-C318C-00).
THEN YOU START THE FUNCTION BY TYPING "G”. THE
RESULTS ARE GIVEN BACK 7O YOU IN THE RESULTS SCRATCHPAD
AT ADDRESS 1000 AND UP.

FOLLOWING ARE THE OPERATING
CHARACTERS:

XXXX/

(SLASH)

OPEN AND DISPLAY CONTENTS
OF THE SCPD ADDR “XXXX*

<CR>

(RETURN)

CLOSE THE CURRENT ADDRESS.

<LF>

(LINE FEED)

CLOSE THE CURRENT ADDR. AND
OPEN THE NEXT SEQUENTIAL ONE.

XXXX<CR>

DEPOSIT “XXXX* IN THE CURRENTLY
OPEN ADDRESS AND CLOSE IT.

XXXX<LF>

DEPOSIT "XXXX” IN THE CURRENTLY
OPEN ADDRESS, CLOSE IT AND

OPEN THE NEXT SEQUENTIAL ONE.

SET "STFUN" OR “MAIN“ TO START

PROCEED OUT OF THE 'DE-BUG’

THE CURRENTLY LOADED FUNCTION

ROUTINE AND RETURN TO THE SPOT
WHICH WAS LEFT WHEN CNTRL-0
WAS TYPED.

(ANY PROMPTS WILL

BE RE-ASKED).

—— -

ALLOWS EXAMINATION OF THE HOST
CSR REGISTER ONLY. NO OTHER
UNIBUS ADDRESSES MAY BE EXAMINED
IN THIS FASHION.

[

(CSR ADDR)/

9.7

SEQ@ 0011

END OF PASS

AT THE END OF EACH PASS OF ANY OF THE THREE TESTS,
AN "END PASS"” MESSAGE IS PRINTED UNLESS INMIBITED BY
SWITCH OPTION BIT 10.
THE PRINTOUT IS IN THE FOLLOWING FORM:
END PASS @ X ERR., CONT, = Y
WHERE
:

X = THE PASS NUMBER IN DECIMAL
Y = THE TOTAL NUMBER OF ERRORS SINCE START (DECIMAL).

IF THE NUMBER OF ERRORS BECOMES LARGER THAN 64K,

THEN "se¢ OVERFLOM ¢s” WILL BE PRINTED INSTEAD.

IF SWITCH OPTION BIT 11 = O, THIS MESSAGE WILL BE

PRINTED ONLY AFTER 10 (OCTAL) PASSES THROUGH WHICHEVER
TEST IS RUNNING. OTHMERWISE, IT IS PRINTED EVERY PASS.
TIME

IN THE PORT LOOP BACK TEST AND THE CMR EXERCISE ROUTINE,
THE ELAPSED TIME SINCE START-UP (OR CNTRL-C) IS
PRINTED ALONG WITH THE END OF PASS MESSAGE PROVIDING
THAT THE PROCESSOR IS EQUIPPED WITH A REGULAR LINE-TIME

CLOCK. THE FORMAT OF THE TIME PRINTOUT IS AS FOLLOWS:
EL.TIM. HWM:MM:SS:TT

(HOURS, MINUTES, SECONDS, AND TICKS WHERE ONE TICK = 1/60 SEC.)
10.

FOR THE MOST PART, ERROR PRINTOUTS ARE SELF -EXPLANATORY.
THE ERROR NUMBERS AND ADDRESSES CAN BE USED FOR REFERENCE TO
THE PROGRAM LISTING FOR FURTHER DETAILS.

ALL ERRORS WILL CAUSE TME CPU TO "MALT” OR ENTER THE "SWITCH

MONITOR” UPON THE OCCURRENCE OF AN ERROR UNLESS SWITCH OPTION
BIT 15 IS SET (1). THIS IS DONE SO THAT THE OPERATOR HAS THE
mmn TO SET UP AN OCILLOSCOPE ON THE SUSPECT LOGIC AND

CAUSE THE PROGRAM
TO “LOOP* IN THE ERROR CAUSING CODE BY SETTING
SWITCH OPTION BITS 15,14 AND 13 AND CONTINUING.

¥ Yo

TABLE OF CONTENTS

@
S5

s
s et et s et
bt

]

s et e

b b

112-

02:24:05

SYMBOLIC DEFINITIONS
MACRO DEF INITIONS
TRAP CATCHERS

SYMBOLIC LISTING
SUPERVISOR DISPATCH
HOST LOGIC TEST
PORT LOOP-BACK TEST
HOST-REMOTE EXERCISE
MAINTENANCE ROUTINE

UTILITY ROUTINES
*SWITCH” MONITOR ROUTINE
MESSAGE PRINT ROUTINE
KEYBOARD INPUT ROUTINE
BINARY 10 ASCII CONVERSION ROUTINES
CONSTANTS, VARIABLES & ACSII

wnm

C2CMJUC0 CMR(V)-11 HOST EXERCISE MACRO v04.00

O®YO
VNS W -

- CZCMJUCO CMR(V)-11 HOST EXERCISE MACRO v04.00

|
[}

02:24:05 PAGE 1
LTITLE CZCMJCO CMR(V)-11 MOST EXERCISER
.SBTTL SYMBOLIC DEFINITIONS
TTM
NLIST
LIST
ME

: INTERNAL DEFINITIONS:

177776

177570
032502

PS
HUSWR

SSWR

.
=

177776
177570

SWREG

sREGISTER DEFINITIONS:
000000
000001

000002
000003
000004
000005
000006
000007

R3
Ra
RS
PC

.
=
=

®1

3
©4
5

%6
.7

;BUS REQUEST DEFINITIONS:
000340
000300

000140
000100

200

P6
PS5
P3
P2

.
.
.
.

340

300
240

140
100

;BIT DEFINITIONS:
815
814
813
812
811
810

809
808
807
806
805
804
803
802
801
800
Isp

.
.
.
.
.

.
.
=
.
=
.
.
.
.
.
.

100000
40000
20000
10000
4000
2000

1000
400
200
100
40
20
10
4
2
1
BEGIN

.SBTTL MACRO DEFINITIONS

s INITIAL STACK POINTER

—

—————
. ——

Bo
(-

+INITIAL ERROR NUMBER

:ERROR MACROS

]

.MACRO

ERROR

BIT

814 ,85R

BNE
MOV
MOV
JSR
©

. ENDM

BIT

#814,8SR

.ENDM

JSR

.ENDM

ERROR P

eseeceee

jseesses

ERROR P

eeessee

N«l

DATERR

jeescece

.+20
#MSG, RO
P ,ERRNUM
PC.ERR

.MACRO

BNE
MOV
MOV
JSR

P ,MSG

P, MSG

.+20
oMSG, RO
”»,
PC,.DERR
Nel

PC.SWLT

:PRINT MACRO (MSG ADDR IN RO)

'§§§

.MACRO

:Sfl

PNTM
A, RO

SCOPE

PC.TYPOUT

1 PRINT MESSAGE
sPOINTED T0 By A

RS,SCPRTN

ENDM

s INTER-POP-11 COMPATABLE MOVE TO PS
.MACRO

MOV

MOV
RTI

LLL:

MTPS

SRC, 2LLL

SRC, -(SP)

oLL,-(SP)

.ENDM

tREGISTER SAVE AND RESTORE MACROS
.MACRO

JSR

. ENDM

REGSAV

RS ,REGSAV

02:24:05 PAGE 1.2
VO4.00
MACRO
EXERCISE
MOST
CMR(V)-11
C2CMUCO
NACRO DEF INITIONS
115
116
11?

.MACRO
JSR
. ENDM

REGRES
RS,REGRES

S€0 0013

CZCMUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
TRAP CATCHERS

.SBTTL TRAP CATCHERS
.ENABLE ABS

000010

000012

000016

000000

000020
000022
000024
000026
000030

000022
000000
000026
000000
000032

000040
000042
000044
000046
000050

000042
000000
000046
000000
000052

000032

000052
000054
000056
000060
000062
000064
000066
000070
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130
000132
000134
000136
000140

1‘

000000

000000
000056
000000
000062
000000
000066
000000
000072
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126

000000
000132
000000
000136
000000
000142

.
.
.
.

.
.
.
.
.

.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

.
.
.
.

DVATST
340
126.
. o2
0
o2

.02
0
.02
0
o2
N

.02
0
.02
0
.*2
0
2
.2
0
.02
0
o2
N

017434

000340
000176

.*2

7 000006
8
9
10

6 000004

000000

DPCSTA:

S 000002

000002

[- 1}

000000

4 000000

333333338333333330283833333232883203033233302403%3548

1
e

02:24:05 PAGE 2

0
.02
0
.*2
0
.02
0
.2
0
.*2
0
.02

0
.*2
0
.02
0
2

1 TRAP BAD DEVICE ADORESSES

v E3
CZ2CMJUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
TRAP CATCHERS

\
|

000144
000146
000150
000152
000154
000156
000160
000162

000146
000000
000152
000000
000156
000000
000162
000000

MORD
MORD
.MORD
.MORD
MORD
LMORD
MORD
MORD

.e2
O
..2
O
.+2
O
..2
O

000166
000170
000172
000174
000176
000200
000202
000204
000206
000210

000000
000172
000000
000176
000000
000202
000000
000206
000000
000212

LMORD
LMORD
MORD
MORD
LMORD
LMORD
MORD
MORD
.MORD
MORD

O
.e2
O
..2
O
.2
O
..2
O
.2

000214
000216
000220
000222
000224
000226

000216
000000
000222
000000
000226
000000

LMORD
.MORD
LMORD
.MORD
LMORD
MORD

000240

000242

MORD
LMORD
MHMORD
LMORD
.MORD
LMORD
.MORD
LMORD
MORD
LMORD
.MORD

.2
O
.2
O
.2
O
.2
O
.2
O
.2
O
.2
O
.2
O
.2
O
.2
O
.2
O

LMHORD
LMORD
MORD
LMORD
.WMORD

O
L2
O
.e2
O

000212

000230
000232
000234
000236

000242
000244
000246
000250
000252
000254
000256
000260
000262
000264
000266

000270
000272
000274
000276
000300
000302
000304

02:24:05 PAGE 2-1

000306
000310
000312
000314
000316

000320
000322
000324

000000

000232
(000000
000236
000000

000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000

LMORD

LMORD
MORD
LMORD
LHORD

LMORD

000272
000000
000276
000000
000302
000000
000306

LMORD
L.MORD
LMORD
.WMORD
LMORD
.MORD
LMORD

000322
000000
000326

LMORD
.MORD
LMORD

000000
000312
000000
000316
000000

.2
O
.2
O
.2
O
.2

.2
©
..2

SEQ 0017

O
o

O+

VDD

©O*

DDV

O+

©O*

O+

N
n

000000
000372

000362
000000
0003&6

000356
000000

000346
000000
000352
00G000

000000

000332
000000
000336
000000
000342

000000

000326
000330
000332
000334

02:24:05 PAGE 2-2

©:

TRAP CATCMERS

GHH BB

CZCMUCO CMR(V)-11 HOST EXERCISE MACRO v04.00

CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 2-3
C2CMUCO
TRAP CATCHERS
000510
000512
000514
000516
000520
000522
000524
000526

000530
000532
000534
000536

000512
000000
000516
000000
000522
000000
000526
000000
000532
000000
000536
000000

JMORD
'MORD
JMORD
'MORD
'MORD
'MORD
TMORD
MORD
MORD
'WORD
JMORD
MORD

.2
O
.2
O
.2
O
.2
O
.+2
O
o2
O

000542
000544
000546
000550
000552

000000
000546
000000
000552
000000

'MORD
TMORD
MORD
MORD
'MORD

O
.2
©
.2
O

000556
000560
000562
000564
000566
000570
000572
000574
000576
000600
000602
000604

007000
000562
000000
000566
000000
000572
000000
000576
000000
000602
000000
000606

'MORD
TMORD
MORD
TMORD
MORD
TWORD
MORD
TWORD
MORD
TMORD
‘MORD
MORD

O
.2
O
.e2
O
.2
O
.2
O
.2
O
.2

000622

000000

'MORD

000626
000630
000632
000634
000636
000640
000642
000644
000646
000650
000652
000654

000000
000632
000000
000636
000000
000642
000000
000646
000000
000652
000000
000656

‘MORD
MORD
'MORD
"MORD
"WORD
TMORD
"WORD
TMORD
'MORD
CMORD
‘MORD
TMORD

O
.e2
O
.2
O
.2
O
.2
O
.2
O
.2

000606
000610
000612
000614
000616

000656
000660
000662
000664
000666
000670

000000
000612
000000
000616
000000

000000
000662
000000
000666
000000
000672

MORD
‘MORD
MORD
"MORD
'MORD

'MORD
"WORD
'MORD
"MORD
'MORD
TWORD

O
.2
O
.2
O

O
.2
O
.+2
©
.2

@ 0019

VDD

O
.

O+

VDV

O+

VDV

DDV

©*

000742

000000
000702
000000
000706
000000
000712
000000
000716
000000
000722
000000
000726
000000
000732
000000
000736

“

000000
000676

TRAP CATCHERS

02:24:05 PAGE 2-4

§8853555555558585858888888388838

CZCMJCO CMR(V)-11 HOST EXERCISE MACRO VO4.00

5€Q 0020

CZCMJUCO CMR(V)-11 HOST EXERCISE MACRO v04.00
000200
000167
012706
000005
000167

001574

MOV

RESET
JP

007"
2

BEGIN:

012706
000005

000340

005067
105067
012737
012737
005737
005067
012737
012737
012767
005777
004767

030410
030353
017406

177776
030430
017416

012700
004767

022212
016440

012700
004767
016767
004767
012767
004767

022577
016430
030370
015452
002116
016446

026727

017352

012700
004767
000167
012737

MOV
RESET
MTPS

012746
012746
000002

103006

@ISP,SP

RESTRT

2000

002000

MOV
MOV
RTI

CLR
CLRB
MOV
MOV
TST

177570
030376
017662

017374

030304
164000

016364
177720
017434
030312
017654

016767

017302

012700
004767
016767
004767
012767
004767
026727

022657
016316
015340
002222
016334
017240

PRMT1:

030272

017262
030172
000776

PRMT2:

95353532308434p3283 p3udydlpalpasas

000200
000204
000210
000212

.SBTTL SYMBOLIC LISTING
o
.
200
JHP
BEGIN

WO YOUVS W+

SYMBOLIC LISTING

SEQ 0021

02:24:05 PAGE 3

ISP, SP

s INITIALIZE THE STACK
sCLEAR THE WORLD
:STOP INTERRUPTS

2644, -(SP)

DEVER
LSIFLG
OLSTST, 904
W$7,006

oe177776
SWRFLG

OSRTST 804

"7,006

sPREPARE TO CHECK FOR LSI-11

1CHECK FOR PSW ESET FLAG

:SET UP TO TRAP IF NO SWR.

:SET UP TO CHECK IF ANY HD SWR
+SEE IF IT'S THERE
sNULLS AFTER RESET

;:D.W 001

sPRINT MESSAGE
sPOINTED TO BY TSTHDR
sASK FOR 1ST UNIBUS ADDR OF CMR-11
sPRINT MESSAGE
sPOINTED TO BY FRAD
sLOAD DEFAULT ADDRESS
1GO PRINT DEFAULT
:LOAD RETURN ADDRESS
1GET KBD INPUT

+1IS IT MITHIN LIMIT?
sYES, TEST IT
sNO, ERROR € ASK AGAIN
MESSAGE
sPRINT
;POINTED TO BY AGAIN

INPKB

KBBUF , 0776

+IS IT A GOOD ADDR?
1SET UP FOR FURTHER TRAPS
sALLOW CLOCK TO FUNCTION
sREPLACE CMR-11 DEFAULT ADDRESS ;D.W 001
1ASK FOR DEVICE VECTOR
1PRINT MESSAGE
sPOINTED TO BY DVECT
+LOAD DEFAULT VECTOR
1GO PRINT DEFAWLT
1LOAD RETURN ADDRESS
1GET KBD INPUT
1IS IT WITHIN LIMITS?

101406

002274
002300
48 002304
49 002310

012700
004767
000167
016767

002316
002322
S1 002326
S2 002334
S3 002340
S4 002346
SS 002352
56 002360

012700
004767
016767
004767
012767
004767
026727
003406

022703
016230
030172
015252
002310
016246
017152

002362
002366
S8 002372
59 002376
60 002404

012700
004767
000167
026727
002006

022624
016164
177712
017126

002406
002412
62 002416

012700
004767
000167
006367
006367
006367
006367

022624
016140

47 002274

63 002422
64 002426
65 002432
66 002436

67 002442
68 002446
69 002454

006367
016767
004767

022624
016252
177712

017214

177666
017102
017076
017072
017066
017062
017056
015066

BLOS
PNTM
MOV
JSR
030202

PRMTS:

017174
030104

000007

000004

PRMT4:

PRMTS:

030004

e3rrrEr3gdInIIedIninaeaedqen

46 002272

PRMT3
AGAIN
®AGAIN, RO
PC, TYPOUT

s YES., GET PRIORITY
sNO, ERROR AND ASK AGAIN

lPRINT MESSAGE

sPOINTED TO BY AGAIN

sREPLACE CMR-11 DEFAUWLT VECTOR
sASK FOR CMR-11 PRIORITY
1PRINT MESSAGE
sPOINTED TO BY DVPRIO
;+LOAD DEFALT PRIORITY
1GO PRINT DEFAWLT
sLOAD RETURN ADDRESS
:GET KBD INPUT
$IS IT WITHIN LIMITS?
;LOW ENOUGH, OKAY

| SYMBOLIC LISTING

SEQ 0022

02:24:05 PAGE 3-1

| CZCMJCO CMR(V)-11 HOST EXERCISE MACRO v04.00

+POINTED TO BY AGAIN
sHIGH ENOUGH?
s YES, OKAY
:NO, ERROR & ASK AGAIN
sPRINT MESSAGE
:POINTED TO BY AGAIN

sSHIFT IT INTO PLACE
sLOAD NEW PRIORITY

sGENERATE CMR-11 ADDRESSES

s TEST FOR CLOCK CSR ADDRESS AND SET
sCLOCK FLAG ACCORDINGLY:
75 002466
76 002474

112767
012737
005777

177777
002572
030032

027705
000004

MOvVe
MOV
TST

#-1,CLKFLG
OCLKTRP, 304

8LCS

:SET CLOCK FLAG
1SET UP TO TRAP
s TEST LINE CLOCK STAT.

tA TRAP WILL CLEAR FLAG.

sCLEAR OUT ALL TABLES FOR START-UP
026622
027016
027212
027406
017654
000340

000004

CLR
CLR
CLR
CLR

RESTRT: MOV

EXTBL1
EXTBL2
EXTBL3
EXTBL4

OHDER , 804

sRESET TRAPS

000100
000102

MOV
MOV

OCLKINT, 80100
#340,80102

+SET CLOCK VECTOR

000340
002554
644

MTPS

MOV

0644, -(SP)

iRAISE C.P. PRIORITY

;D0.W 001

K2
CZCMJCO CMR(V)-11 MOST EXERCISE MACRC VO4.00

<
——et

| SYMBOLIC LISTING
91 002554
92 002560
93 002562
94 002566

005767
001402
004767
000167

96 002572
97 002576

105067
000002

027724
015416
000102

027575

SWRFLG

sNON-SWR -PROCESSOR?

PC, SWOMP
BCON

:YES, DUMP SWITCH LOCATION

CLKFLG

sCLEAR CLOCK FLAG
1AND RETURN

1$:

SEQ 0023

02:24:05 PAGE 3-2

JMP

CLKTRP: CL R8
RT I

L2
CZ20MUCO CMR(V)-11 MOST EXERCISE MACRO V04.00
SYMBOLIC LISTING

SEQ 0024

02:24:05 PAGE 4

+LINE CLOCK SERVICE ROUTINE.
: UPDATE RUN TIME CLOCK.
177777
027602
027576

000074

027566
027557
027553

000074

027543
027532
027526

027516
027507

027564

000074

CLKINT: MOVB
INCB
cvP8
BLO
CLRB
INCB

crP8
BLO
CLR8
INCB
cPB
B8LO
CLR8
INCB
CLKEXT: RTI

$SET "CLK TICKING” FLAG
sUPDATE TICKS
sREACHED A SECOND?
sNO, JUST RETURN
sYES, 0 - TICKS

;0.W 001

sRETURN FROM CLOCK INTERRUPT

| C2CMJUCO CMR(V)-11 HOST EXERCISE MACRO v04.00
| SUPERVISOR DISPATCH

SEQ 0025

02:24:05 PAGE S5
.SBTTL SUPERVISOR DISPATCH

BCONT:

644:

027461
027452
027470
027461
027450
027441
027444
027426
017014

000001
002674
015614
027442

016536
027452

016514

000100
000120
016464

027476

BCNTO:
BCNT1:

027317
31 003064
32 003070
33 003076
34 003100
35 003104
36 003106
37 003114
38
39 003120
40 003126

41 003130

000100
006064
016434

000100

007412
016404

023226

003144

024253

003150

44 003154
45

015416
177530
015402
177514

CLRB
CLRB
CLR8
CLRB
CLR8
CLR8
CLRB
CLR8
JSR
PNTM
MOV
JSR
MOV
MOV
JSR
CLR
cMe
BHE

CNFGFL
CLKFL1
TICKS
SECS
MINS
HOURS
SAFE
DBFLG
PC,NULLS
TSTSEL
#TSTSEL ,RO
PC, TYPOUT
1 ,KBBUF
PCONT
PC, INPKB
PCONT
KBBUF
, 01
BCONT1

:CLEAR CONFIG FLAG
sCLR CLOCK TICKING FLAG
tCLEAR RUN TIME CLOCK TIME

BEQ

BCNTO

sNO, FORGET IT.

cMP
BHE
TST8
BEQ

KBBUF
, 82
BCONT2

BCNT3

TSTB

CLKFLG

RTI

027416

BIC
P

BCNTS:
BCNTZ2:

027267

003130
003134
42 003140
43 003144

027446

BCNT4:
TYSTRSK :

HLPASK :

sALWAYS DO RESET UPON ARRIVAL
sKILL INTERRUPTS

®7,-(SP)
0644, -(SP)

TST8

027347

MOV

000340
002710

023177
015572

RESET

MTPS

CLKFLG

#100,8LCS
LOGTST

CLKFLG

TSTRSK

BEQ

BCNT4

CMREXC

BIS

€100,8LCS

sCLEAR *FILL CNT SAFETY FLAG"
;:CLEAR "DEBUG” FLAG
sNULLS AFTER RESET
;0.4 001
sPRINT “SELECT TEST (<CR>=HELP)"
sPR
PRINT MESSAGE
sPOINTED 7O BY TSTSEL
sDEFAULT LOGIC TEST
;LOAD RETURN ADDRESS
;:GET KBD INPUT
;sCHECK IT FOR "1"
sIF = 1, DO LOGIC TESTS
;IS THERE A CLOCK CSR?
sYES, ENSURE IT'S IDLE
;GO TO LOGIC TEST
sCHECK IT FOR 2"
:+IS THERE A CLOCK CSR?
MO, FORGET IT
;YES, ENABLE IT!!
sIF "2" DO PORT LOOP TEST
;CHECK IT FOR "3~

:IF NOT, GIVE HELP

;IS THERE A CLOCK CSR?
;NO, FORGET IT
sYES, ENABLE IT!!
+IF *3” DO EXERCISE.
;:DID HE TYPE A 4?

sNO, BUT HE HAD BETTER!!
sPRINT HELPFUL INFO
sPRINT MESSAGE
sPOINTED TO BY HELPM
sAND RE-ASK
;PRINT “IF HELP IS REQ'D..."
;PRINT MESSAGE
+POINTED TO BY HLPDSR

NZ
CZCMJCO CMR(V)-11 HOST EXERCISE MACRO V04.00

HOST LOGIC TEST
1

.SBTTL

2
3

4
5

SEQ 0026

02:24:05 PAGE 6
HOST LOGIC

: START OF LOGIC TEST. PRINT HEADER THEN ASK USER TO DISCONNECT
: ALL REMOTE COMMUNICATIONS SO NO ERRORS OCCUR THAT WAY, THEN GO.

7 003160
8 003164
9 003172
10 003176
11 003202

005067
012767
005067
105067
005067

027330
000010
027250
027203
027230

003206
003212
13 003216
003216
003222
14 003226
003226
003232
1S 003236
16 003244
17 003252
18 003256

012700
004767

024320
015340

012700
004767

024335
015330

012700
004767
012767
012767
004767
005067

024777
015320
003226
001236
015342
027170

12 003206

19 003262
20 003270
g

026727
001356

016242

027246

LOGTST: CLR
MOV
CLR
CLRB
CLR

PNTM

CRPRM:
027206
016256

CRTST:

001236

MOV
JSR
PNTM
MOV
JSR
PNTM
MOV
JSR
MOV
MOV
JSR
CLR
ce
BNE

VERFLG
€10,ITEP
PASCNT
OFLOF
ERRCNT

sCLEAR VERSION PRINT FLAG
$sSET ITERATION COUNT
;CLEAR PASS COUNT
;CLEAR "OVERFLOM” FLAG
sCLEAR ERROR COUNT

#LGKTSM, RO
PC.,TYPOUT
BRKCOM
®BRKCOM,RO
PC, TYPOUT
TYPCR
#TYPCR,RO
PC, TYPOUT
OCRPRM,PCONT
91236, KBBUF
PC.INPYB
PCONT

sPRINT MESSAGE
;POINTED TO BY LGKTSM
sPRINT *“DISCONNECT REMOTES”
sPRINT MESSAGE
sPOINTED TO BY BRXCOM
sPRINT "“TYPE <CR> WHEN READY"”
sPRINT MESSAGE
sPOINTED TO BY TYPCR
1SET REPROMPT POINTER
s:LOAD ANY DEFAULT VALUE
;GET KEYBOARD INPUT

LGKTSM

KBBUF , #1236
CRPRM

;0.W 001
:0.W 001

sPRINT *LOGIC TEST"

:<CR> ONLY TYPED?
sIF NOT, KEEP LOOKING
:+IF YES, START LOGIC TEST

;D.W 001
;:D.W 001
:D.W 001
:D.W 001
:D.W 001
;0.4 001
;0.W 001
;:D.W 001
;0.4 001

;CHECK POMER UP OF THE MOST MICRO FIRMMWARE.

25 003272
26 003274
27 003302
28 003310
29 003312
30 003316

000005
012767
032777
001021
005367
001371

003320

032777

31 003320

003326
003330
003334
003342
32 003346

003346

003352
33 003354
34 003362
35 003370
36 003376

37 003404

38 003412
39 003414
40 003420
41 003422

001007
012700
012767
004767
000002
004567

003272
012767
012767
017767

000024
002000

STO:
MOVB:

027112

RESET
MOV
BIT
BNE
DEC
BNE

924 ,CNTR
#81C,8CSR
ST1
CNTR
MOV8

BIT

#814,8SR

ERROR

040000

027152

026477
000001
014360

014532

014122

000000
102000
027036

027046
014506
014502

014466

042767

075777

001421
005367
001360

027010

026767

027126
027122

014474

ST1:
ST1A:

\N,NOGO

BNE
MOV
MOV
JSR
=

.o
#NOGO
, RO
#1 ,ERRNUM
PC.ERR
N+l

JSR

RS,SCPRTN

SCOPE

sT0
MOV
MOV
MOV
8IC

;ERROR:HOST U.P. FAILED TO START.
;esssses ERROR

ssssssse

STO

#0,CNTR
#102000,G00D
8CSR ,BAD

;NOW WATCH FOR INTR

#75777,.BAD

GOO0D ,BAD

DATERR

\N,NOTUP

BEQ
DEC
BNE

s INIT
:SET UP TIMER
;:0.W 001
:IS "PWRUP” SET?
:D.W 001
:IF YES, OKAY
:0.W 001
;GIVE THE MICRO SOME TIME TO START;D.W 001
;KEEP CHECKING
;:0.W 001

sT2
CNTR
ST1A

;INTR € PURUP SET; OKAY
;WAIT A BIT
;ERROR:PWR UP SEQ NOT COMPLETED(BAD CSR)
jsessses ERROR 2 ssssees

EXERCISE MACRO VO4.00 02:24:05 PAGE 6-1
HOST
-11
C20MUCO CMR(V)
C TEST

S€Q 002

MOST LOGI

003422
003430
003432
003436
003444

42 003450
003450

032777
001007
012700
012767
004767

000003

004567

040000

027050

026534
000002
014342

014430
N

014020

003454
43 003456
44 003464
4S 003472
46 003476
47 003504
48 003506

003272
017767
042767
005067
026767
001416

026750
102000
014400
014374

014414
014406

003506

032777

001007
012700
012767
004767
CC3004

040000

026764

026605
000003
014256

014344

004567

013734

012767
012777
012701
117721
005367
002403
005277

000020
001000
032326
026710
026634

003514
003516
003522
003530
49 003534
003534

003540

SO 003542
S1 003SS0
S2 003556
S3 003562
S4 003566
SS 003572
S6 003574

S7 003600

003272

000770

026674

ST2:

014374

026656
026716

ST3:
ST4:

BIY
BNE
MOV
MOV
JSR

814,85k
.+20
MNOTUP ,RO
02 , ERRNUM
PC,DERR

SCOPE
JSR

ST0
RS,SCPRTN

Nel

ST0
MOV
8IC
CLR
(w,
BEQ
DATERR

SCSR,BAD
#102000,B8A0
GOOD
GOOD ,B8AD
STS
\N,CSRRST

BIT

814 ,85R

BNE
MOV
MOV
JSR
s
SCOPE
JSR

.+20
O®CSRRST
RO
03, ERRNUM
PC.DERR
Nel
ST0
RS,SCPRTN

MoV
MOV
MOV
MOVB
DEC
BLTY
INC

#20,C0LK
#1000, 8SPAR
OVERSP ,R1
8SPDR,(R1).
CLK
STé6
8SPAR

ST0

ST4

sNOW CHKX CSR FOR 0'S
sEXCEPT PWRUP £ INTR
3CSR = 0'S, 0.K.
tERROR:CSR NOT RESET

j0esssee ERROR 3 eececee

sCOUNTER FOR VERSION ITEMS
1ADDR RESWL.T SCPD
s1POINT AT MEM SPACE
sSTORE VERSION INFO
s1DONE?
1NO, KEEP GOING

C20MJUC0 CMR(V)-11 MOST EXERCISE MACRO VO4.00 02:24:05 PAGE 7

560 0028

MOST LOGIC TEST

1SPAR REGISTER TEST:
100 A SLIDING BIT (0) TEST ON THE SCPD ADDRESS REGISTER

1
e

(WHILE IGNORING SPAR BIT 08 (UNUSED).

014260

CLR
CLR

8SPAR
GO0D

8SPAR,BAD
MOV
S760
BEQ
DATERR \N,SPRCLR

040000

026650

BIT

#814,85R

026632
000004
014142

014230

S 003602 005077 026666
6 003606 005067 014264
7 003612 017767
8 003620 001416
9 003622
003622

032777

003630 001007
003632 012700
003636 012767
003644 004767

10 003650
003650
003654

000005

004567

003602

026656

ST6:

]

013620

11 003656 012767 177777
12 003664 012767 000001

026564
026552

016767

026552

014176

1S 003705 016777
16 003718 017767

014164
026554

026560
014156

13 003672
14 003720

042767

17 003722

042767

176000

000400

014170

ST60:
ST61:

003754
003756
003762
003770

22 003774
003774

004000

23 004002
24 004010
25 004012
26 004020
27 004026
28 004032
29 004036

032777

001007
012700
012767
004767

000006

026524

026657
000005
014016

014104

013474

032767
001414
012767
046767
006367

001000

026440

177777
026420
026412

026430
026422

003672

004767
000167

014114
177630

STé
RS,SCPRTN

STé

MOV
MOV

MOV
8IC

BIT

®-1,PAT
0800, MASK
PAT ,GOOD

9176000, GOOD

GOOD , 8SPAR
8SPAR ,BAD
€808 ,8AD

ST62:

0814 ,8SR

.+20
RO
OSPRDAT
&5, ERRNUM
PC.DERR
Nel
ST61
RS,SCPRTN

BIT
BEQ
MOV
B8IC
ASL

0809 ,PAT
ST17
o-1,PAT
MASK ,PAT
MASK

BNE
MV
MOV
JSR

ST61

JSR
JP

1SPAR CLEAR?
1 YES, Ox
1ERROR:CAN'T CLEAR SPAR

jecesese ERROR 4

ecsssse

Nel

#8608 , GOOD
8IC
GOOD ,BAD
cw
sT62
BEQ
DATERR \N,SPRDAT

004567

SCOPE
JSR

8IC

014150

040000

.20
#SPRCLR,RO
o4 , ERRNUM
PC.DERR

MOV
MOV

18 003730 <2767 000400 014140
19 003736 026767 014134 014134
20 003744 001416
21 003746
003746

BNE
MOV
MOV
JSR

s TEST CLEAR OF SPAR

PC,MONIT
ST61

$1SET UP FOR SLIDING O TEST
1SET BIT MASK
1LOAD PATTERN
1AND READ IT BACK

1+IGNORE BIT 08
1SPAR DATA 0.X, ?
s+IF YES NEXT PATTERN
;ERROR:BAD BITS IN SPAR

joessees ERROR S esessceee

t1DONE WHOLE REG?
1IF YES, NEXT RTN
sRE-LOAD ALL 1'S
1NO, PREPARE FOR NEXT BIT
tROTATE MASK
1AND CONTINUE

C20MJUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
MOST LOGIC TEST

SEQ@ 0029

02:24:05 PAGE 8

1SCRATCH PAD MEMORY TEST

e
3

¢ (1) UP COUNT IN REQ SCPD WMILE FILLING RES SCPD WITH 377'S
¢ (2) UP COUNT IN RES SCPD WHILE FILLING REQ SCPD WITH 377'S

28 004236

004236

004242
29 004244

30 004252
31 004254
32 004260
33 004264
34 004266
35 004274

36 004302

37 004310
38 004316

39 004320

004320
004326

004330
004334
004342

032777

001007
012700
012767
004767
000007
032777
001010

026330
013722

013672

040000

026264

013232

026767
001432

026224

ST80:

ST80S:

001000
000377

026200
013574

ST82:

013562

026214
026232

013570

ST90:

8SPOR,BAD
G000 ,BAD

DATERR

\N,ISATE

012700
012767
004767

026737
000007
013444

ST81

.+20
@ISATE RO
%,
PC,DERR
Nel
#814,8SR
ST80S
SCPAD
#SCPAD ,RO
PC, TYPOUT
8SPAR,RO
PC,OCTPNT

JSR

RS,SCPRTN

SCOPE

ST80
e

BMIS
INC
INCB
BR
MOV
MOV
MOV

s ADDRESS 0
sLOAD REQUEST SCRATCH PAD

s DONE.

sNOW. . .CHECK IT

30.K, CONTINUVE

tERROR:REQ SCPD ADR TEST ERROR

jeeeseee ERROR 6 sosssse

#B814,85R

BNE
MOV
MOV
JSR
e
BIT
BNE
PNTM
MOV
JSR
MOV
JSR

sPRINT ALLOWED?
sNO, SKIP IT
sPRINT MESSAGE
sPOINTED TO BY SCPAD
sPRINT SCPD ADDRESS OF ERROR

ST80

8SPAR, 0377

ST82
§PAR
WORD
ST80
#1000, 8SPAR
#377,G000D
8SPDR,BAD

ce
BEQ

GOOD ,BAD
ST91

026152

)44

#8614 ,8SR

013532

MOV
MOV
JSR

DATERR

040000

WORD , 8SPOR
#6809, 8SPAR
#377,8SPDR
#809, 8SPAR
SSPAR, 0377
st
8SPAR
WORD
S$T70
8SPAR
WORD
WORD
, GOOOD

BIT

ST81:

026170

BR
CLR
CLR
MOV
BEQ

000377

032777

001007

013730
013722

026706
000006
013604

004567

017767

013734

026312

024463
014330
026242
015350

103005
005277
105267
000723
012777
012767

040000

012700
004767
017700
004767
004134
027727

ce
BMIS
INC
INCB

000377

026356
026374

026344
026362
026356

MOV
8IS
MOV
8IC

\N,O0SDTE

. +20
#0SDTE ,RO
#7 ,ERRNUM
PC,DERR
k3

23 004206
24 004214
25 004216
004216
004222
26
27 004232

017767
026767
001432

ST70:

85FAR
WORD

004166
004170
004174
004202

0007S3
005077
005067
016767

026416
026406
026402
026372

CLR
CLR

—

004160

027727
103005
005277
105267

026440
001000
000377
001000
026366

sT7:

19 004142
20 004150
21 004156
22 004160

016777
0S2777
012777
042777

026426
026444

7 004052
8 004060
9 004066
10 004074
11 004102
12 004110
13 004112
14 004116
1S 004122
16 004124
17 004130
18 004134

005077
005067

(<]

S 004042
6 004046

tRES SCPD ALL 1'S?
s YES, 0.K.

tERROR:RESULT SCPD DATA TEST ERROR
jeesssss ERROR 7 seseeee

E3
C20MJUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
032777

040000

012700
004767
017700
004767

024463
014170
026102
015210
013072

46 004404

004567
004302
027727

48 004414
49 004420

005277
000730

026054

MOST LOGIC TEST

001000
026062
026056

40 004346
41 004354

42 004356
004356
004362
43 004366
44 004372
4S5 004376

004376

001403

153bt £
Egas $ G
8

005067

001377

ST91:

001000

026034
026024

ST100:

001000

026010

017700

012767
005077

O
BEQ

SSPAR, #1377
ST10

ST90

013350

ST110:

013336

013344

040000

025726

026774
000010
013220

013306

040000

025700

024463
013744
025656
014764

STi11:

013216

ST112:

025630
025646

8SPAR

sALL DONE?
+IF YES, REVERSE IN £ OUT

8IC

, 8SPOR
WORD
00809, 8SPAR

sCOUNT DOMWN UNTIL MALF-WAY

8IS

0809, 8SPAR

CLR
MOV

MOV

#377,8SPOR

sAND LOAD REQ SCPD WITH 1'S

8SPAR, 01377
ST101
@SPAR
WORD
.
ST100

?
sDONE
s YES
:NO, KEEP GOING DOWN

0809, 8SPAR

WORD

DATERR

\N,

STi11

é OUT

ADDR 0K?

;ERROR:RESULT SCPD ADR TEST ERROR
j1ssssses ERROR

10 ssesess

#814,8SR

BNE
MOV
MOV
JSR

.+20
#0SATE RO
910, ERRNUM
:cioem

BIT

#814,8SR

BNE
PNTM
MOV
JSR
MOV
JSR

ST110S
SCPAD
#SCPAD
, RO
PC, TYPOUT
8SPAR,RO
PC,OCTPNT

g%xo

RS,SCPRTN

CwP
BHIS
INC
INCB
BR

8SPAR, 01377

CLR

8SPAR

MOV

...CHECK IT

8SPOR,BAD

G000 ,BAD

sNOMW,

WORD
, GOOD

BIT

001377

ST90

100 IT AGAIN WITH A SWITCH

ST110S: SCOPE

012646

s PRINT MESSAGE
tPOINTED TO BY SCPAD
tPRINT SCPD ADDRESS OF ERROR

0809, 8SPAR

CLR
MOV

BEQ

sPRINT ALLOWED?
tNO, SKIP IT

MOV

ce
BMHIS
INC
INCB
BR
MOV

025772

000377

RS,SCPRTN

SCOPE

001377

ST101:

025610

g%o

MOV

025760

025640

RO
#SCPAD,
PC, TYPOUT
RO
8SPAR,
PC,OCTPNT

026020

001000

025776

#814,8SR
ST90S
SCPAD

MOV
JSR
MOV
JSR

INC

ST10:

025744

032777

72 004612

ST90S:

025774
026012

-0

~N -~

69 004572

BIT
BNE
PNTM

026044

026004

S14

026064

000377

LIRZTILIRULURLY

47 004412

001010

026124

SEQ 0030

02:24:05 PAGE 8-1

sPRINT ALLOMED?
tNO, SKIP IT
sPRINT MESSAGE
+POINTED TO BY SCPAD
1PRINT SCPD ADR OF ERROR

ST110

STi12
8SPAR
WORD
ST110

#377,G000

+NOW CHECK REQ SCPD

82 004664

83 004672
84 004700
85 004702
004702
004710
004712
004716
004724

86 004730
87 004736
88 004740
004740
004744

017767
026767
001432

032777
001007
012700
012767
004767

000012
032777
001010

025606
013200

040000

027030
000011

013062

040000

012700
004767
017700
004767

024463
013606
025520

004567
004664

012510

013150

025542

ST120S:
000377

025472

ST120:

025570

014626

027727
001403
005277
000730

013206
013200

ST121:

02:24:05 PAGE 8-2
MOV
cHe
BEQ
DATERR

8SPOR,BAD
G000 ,BAD
sTi21

8IT

#814,8SR
A
20

32§3§ s3udndins 433k

C2CMUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
' MOST LOGIC TEST

\N, ISOTE

sALL 1'S?
s YES, CHECK THE REST
+ERROR:REQ SCPD DATA TEST ERR
jeessses ERROR

e¢esesss

#ISOTE,RO
011 ,ERRNUM

PC,.DERR

Nel

#814,8SR
ST120S

sPRINT ALLOWED?

tNO, SKIP IT

sPRINT MESSAGE
sPOINTED TO 8Y SCPAD
sPRINT SCPD ADR OF ERROR

8SPAR, #377
ST13
8SPAR
ST120

1OONE REQ SCPD?
s YES, CHECK CLR SC. PAD
sNO, KEEP CHECKING

G3
C2CMUC0 CMR(V)-11 MOST EXERCISE MACRO VO4.00

MOST LOGIC TEST

1
2
3

SEQ 0032

02:24:05 PAGE 9

1CHECK CLEARING ALL SCRATCHPAD LOCATIONS
: FILL THE ENTIRE SCPD WITH A CONSTANT (NORMALLY '0')
: AND THE CHECK IT.

S 00S004
6 005010
7 005016
8 005024
9 005026
10 005032
11 00S034

005077
012777
027727
001403
005277
000766
012777

005042
13 00S0S0
14 005056
1S 005060
16 005064
17 005066
18 005072
19 005100
20 005106
21 005114

012777
027727
001403
005277
000766
005077
012767
017767
026767
001432

005116

032777

22 005116

025464
000000
025452

025460
000377

025442

001000

000000
025420

025432

025426
001377

025410
025402
000000
025372
012764

012776
012772
012764

025354

027062
000012
012646

012734

032777
001010

040000

025326

27 005170

012700
004767
017700
004767

024463
013372
025304
014412

005174

004567

012274

29 005202
30 005210
31 005212

027727
001404
005277

025266

33 005222
34 005230

012777
012767

026767
001432

23 005144
24 005152
25 005154
005154
005160
26 005164
28 005174

005200

32 005216
35 005236

36 005244
37 005252
38 005254

005254

005262
005264
005270
005276

39 005302

001007
012700
012767
004767

000013

005004

000167

017767

032777

001007
012700
012767
004767
000014
032777

CLR
MOV
cp
BEQ
INC
BR
ST131A: MOV

ST1318: MOV
cp
BEQ
INC
BR
ST131: CLR
MOV
ST132: MOV
cHp
BEQ

DATERR

040000

005124
005126
005132
005140

ST13:
ST130:

BIT

BNE
MOV
MOV
JSR

8SPAR
€0, 8SPDR
SSPAR, 0377
ST131A
8SPAR
ST130
#809, 8SPAR

#0,8SPOR
SSPAR, #1377
ST131
8SPAR
ST1318
ESPAR
€0, G000
8SPOR ,BAD
GOO0D ,BAD
ST133
\N,RQSPCL

JSR
JSR

RS,.SCPRTN

ST132S: SCOPE
ST13

sADDR RES. SCPD

1 THIS 00" MUST ALSO BE CMANGED

sFILL UP WHOLE RES. SCPD
sNOW CHECK IT
s THIS LOC (#0) MUST BE CHANGED
s+ TO CORRESPOND TO ST130
+ IN ORDER TO CHECKX THE
s+ CORRECT DATA FILL-UP

;ERROR:REQ. SCPD NOT ALL 0'S
1essssss ERROR

12 ssseses

0814 ,8SR

.+20
#RQASPCL ,RO
€12 ,ERRNUM
PC,.DERR
Nel
#814,8SR
ST132S
SCPAD
#SCPAD ,RO
PC.TYPOUT
8SPAR,RO
PC.OCTPNT

BIT
BNE
PNTM
MOV
JSR
MOV

1START AT O
s THIS LOC (#0) CAN BE CHANGED
s+ TO ANYTHING AND THIS RTN
3+ CAN BE USED FOR ANY DATA
s FILL-UP € TEST

sPRINT ALLOWED?
sNO, SKIP IT
sPRINT MESSAGE
sPOINTED TO BY SCPAD
sPRINT SCPD ADR OF ERROR

ST13

000377

ST133:

Cw
BEQ
INC

SSPAR, 0377
ST134
85PAR

1DONE CHECKING REQ. SCPD?
s YES, CHECK RES. SCPD
» FINISH UP

001000
000000

025244
012640

ST134:

MOV
MOV

#1000, 8SPAR
0,

sNOW CHECK RES. SCPD
;1THIS “00” ALSO MUST BE CHANGED

012626

cp
BEQ

GOOD ,BAD
ST136

sRES SCPD ALL 0'S?

BIT

6814 ,8SR

025256

177656

025234

012634

ST13S5:

MOV

DATERR

040000

025216

027112
000013
012510

012576

040000

025170

BNE
MOV
MOV
JSR
®
BIT

ST132

8SPDR,BAD

\N,RSSPCL

.+20
#RSSPCL ,RO
013, ERRNUM PC,DERR
Nel
#814,8S5R

sERROR:RES. SCPD NOT ALL 0'S
;ssssses ERROR

1PRINT ALLOWED?

13 ssssnes

C2CMJUCO CMR(V)-11 WOST EXERCISE MACRO V04.00

MOST LOGIC TEST
40 005310

001010

012700
004767
017700
004767
004567
005004
027727
001403
005277
000730

024463
014254

t1NO, SKIP IT

8SPAR, #1377
ST14
SSPAR

1DONE RES. SCPD?

1PRINT MESSAGE
sPOINTED TO BY SCPAD
tPRINT SCPD ADDR OF ERROR

ST135S:

012136

025120

ST135S
SCPAD
#SCPAD,RO

PC, TYPOUT

013234

025130

02:24:05 PAGE 9-1

001377

ST136:

s YES,

NEXT ROUTINE

ST135

—

CZ0MJCO CMR(V)-11 HOST EXERCISE MACRO VO4.00

MOST LOGIC TEST

SEQ 0034

02:24:05 PAGE 10

:TEST "CLR TOP BYTE"
¢ SETTING "CLRTPB" SHOUWLD RESUWT IN ALL BITS OF THE

1
2

S 005356
6 005364

7 005370
8 005376
9 005404

10 005406

005406

005414
005416
005422
005430
11 005434

005434

- 005440

012777
005067

017767
026767
001416
032777

000020
012506
025036
012474

025046

STia:

012502
012474

MOV
CLR

MOV
ce
BEQ

DATERR

001007
012700
012767
004767
000015

040000

025064

027142
000014
012356

012444

004567

012034

005356

HIGHM BYTE OF THME CSR BEING CLEARED. (LOW BYTE ALREADY = 0)

BIT

BNE
MOV
MOV
JSR
E

SCOPE

JSR

ST14

13
14
15

0804 . 3CSR
G000
8CSR,BAD
G000, BAD
ST15

\N,CLTBER

1SET "CLRTPB"
sALL CSR SHOWLD BE 0
sALL CLEAR?
+ERROR:CLR TPB FAILED

jeeessss ERROR

sesssse

#814,8SR

.+20
#CLTBER,RO
@14 ,ERRNUM
PC,.DERR
N1
STiA4
RS,SCPRTN

tNOW H ANG AND CHECK CSR
i
"MANG” BY USING THE CMR-11 'DIE’' FUNCTION
:
THEN CHECK THAT THE CSR WAS RIGHT

: FOR THE 'DIE’' FUNC. THEN CHECK ALL R/W BITS OF THE CSR

18 005442
19 005446
20 005454
21 005460
22 005466
23 005472
24 005500
25 005506
26 005514
27 005520
28 0055°2
29 005526

30 005530
31 005536
32 005544
33 005552
34 005554
35 005562
005562

005570
005572
005576

005077
012777
005277
012777
005277
012777
012777
012767
005777
100403
005367
001372

025026
000213
025014
000001
025002
000001
000200
007777
024712

ST1S:

025010

024776
024724
024714

18:

024702
137600
024670
012326

012340
012334
012326

000000

024646

MOV
MOV
cHp
BEQ
MOV

032777

040000

024710

BIT

027204
00001S

012270

001007
012700
012767

36 005610
37 005616
38 005622
39 005624

000016
012777
005367
001375
012777

005632

004567

000002
024606

024614

000020

024600

011636

2%:

CLR
MOV
INC
MOV
INC
MOV
MOV
MOV
TST
BMI
DEC
BNE

012767
017767
026767
001432
012767

005604 004767 012202

40 005632

025022

DATERR

BNE
MOV
MOV
N
ST150:

JSR

=
MOV
DEC
BNE
MOV

SCOPE

JSR

8SPAR
#213,8SPDR
8SPAR
#1,8SPDR
@SPAR
#1,8SPDR
#200,8CSR
#7777,CNTR
8CSR
24
CNTR
14

#137600,G000
#CSR,BAD
GOOD ,BAD
ST16
#0,CNTR
\N,DIERR

#B814,8SR

sADDR REQ. SCPD
;LOAD MAINT FUNC SUBF 03
;OATA LEN. = 1

sONE REQUEST
:SET "MAIN"SHD CAUSE U.P. HANG
sWAIT FOR THE MICRO
s+MICRO DONE?
s1NO, WAIT A BIT

sREAD CSR REGISTER
;:0ID IT HANG CORRECTLY?
s YES, GOOD
tERROR:CSR NOT RIGHT FOR "DIE"

1esssess ERROR 15 sesesss

. +20
#®0IERR,RO
015, ERRNUM

PC, DERR

Nel
#2,8CSR
CNTR
ST150
#804,8CSR
ST1S

RS,SCPRTN

1+PROGRAM INIT
sWAIT FOR INIT
tCLR TOP BYTE

EXERCISE MACRO VO4.00 02:24:05 PAGE 10-1
MOST
-11
CMR(V)
O
|' C20MJC
MOSY LOGIC TEST
005636

005442

ST15

SEQ@ 0035

IK3
. C2CMJCO CMR(V)-11 HOST EXERCISE MACRO V04.00
| MOST LOGIC TEST

02:24:05 PAGE 11

tCHECK CSR WITH MICRO MUNG
012767
012777
017767
026767
001416

137755
000355
024552

012210

012230
024556
012216
012210

040000

024600

027237
000016
012072

012160

004567
005640
012767
012777
017767
026767
001416

011550

137400
012122

G000, BAD
ST160

027271
000017
012004
011462

032777
001007
012700
012767
004767
000021

040000

TRY CLEARING THEM

iseseess ERPOR 16

¢esssse

916
, ERRNUM

PC,DERR

ST16
RS,SCPRTN
012142

024470
012130

ST160:

9137400, G000
#0,8CSR

8CSR,BAD
G000 ,BAD
STi6l
\N, CSRCE

012122

sNOW, SEE IF THEY CLEAR
;0ID THEY CLR?
s YES, NEXT
sERROR:CAN'T CLR LOW CSR WHILE HUNG
;esssses ERROR

sssssss

#814,8SR
P
20
OCSRCE ,RO

€17 ,ERRNUM

012072

PC,DERR

N+l

ST160
RS,SCPRTN

177400

024446

024414

024432

ST161:

9200, 8CSR

9200, 8SPAR

S8SPOR, WORD
WORD

9177400, WORD

WORD, 8SPDR
8SPOR
, WORD
ST162
\N, SPAVME

sCHECK ACCESS KEYS TO SCPD
sWITH MAIN SET
sREAD AN REQ SCPD WORD
sCOMPLEMENT IT
sFORGET TOP BYTE
tWRITE COMPL. BACK
sREAD IT BACK AGAIN
;IT SHOULDN'T BE THE SAME

sERROR: ACCESSED REQ SCPD WITH “MAIN" SET
1882888 ERROR 20 #sss222

#814,8SR
« ® 20
#SPAVME ,RO

, ERRNUM
920

011764

PC.ERR

Nel

ST161
RS,SCPRTN

011354
000001
000200
024334
024346

1 YES,

1ERROR:BAD BITS IN CSR WHILE HUNG

. 20
O®CSRUE ,RO

024442

027330

;00 THEY SET?

NOi

024410

000020
011612

1CHECK R/W BITS OF CSR

#814,8SR

024512

004567
005726
012777
012777
017767
005167
042767
016777
027767
001016

004567
006014
012777
012777
017767
005167

#137755,G00D
0355,8CSR
8CSR,BAD
\N, CSRWE

032777
001007
212700
012767
004767
000017

032777
001007
012700
012767
004767
000020

ST16:

024302
024336
024352

ST162:

#1,8CSR

9200, 8SPAR
8SPOR
, WORD

1 TRY AGAIN WITH “ST FUN" SET

tREAD A REQ SCPD WORD
tCOMPLEMENT IT

L3
C2CMJC0 CMR(V)-11 MOST EXERCISE MACRO v04.00
MOST LOGIC TEST
31 006150
32 006156
33 006164

34 006172
35 006174
006174
006202

006204
006210
006216

36 006222

06222

006226

042767
016777
026777
001016

177400
024334
024326

032777
001007
012700
012767
004767

040000

000022

004567
006122

027374

000021
011504

011246

024340
024312
024304

024276
011656

SEQ 0037

02:24:05 PAGE 11-1
8IC

9177400, WORD

MOV
cHe
BNE
ERROR

WORD
, 8SPDR
, 8SPOR
WORD
SsT17

BIT
BNE

#814,8SR

\N, SPAVFE

MOV
MOV
JSR

#SPAVFE ,RO

SCOPE
JSR
ST162

ST162
RS,SCPRTN

921, ERRNUM

PC,ERR

Nel

1tFORGET TOP BYTE

tWRITE IT BACK
tREAD IT BACK AGAIN
s IT SHOULON'T BE THE SAME
R REQ SCPD WITH "STFUN" SET
: ACCESSED
sERRO
jesssses ERROR 21

eessssse

M3
C2CMJUCO CMR(V)-11 HOST EXERCISE MACRO v04.00

' MOST LOGIC TEST

s TEST INTERRUPT WITH MICRO MUNG

3 006230

012777

006236
006242

012746
012746

S 006250
6 006252

000240
000240

8 006262
9 006270
10 006272

012777
000240
000240

006274
006302
006304
006310
006316

032777
001007
012700
012767
004767
000023

4 006236

7 006254

12 006322
006334
14 006336
15 006342

006344
006352
006354
006360
006366

012777

644:

000100

024236
024142

ST170:

024176
027441
011404

042777

000100

004567
006254
000167
022626

011140

032777
001007
012700
012767
004767

MOV
MTPS
MOV

MOV

011556
024102

RTI

NOP
NOP
NOP
NOP
ERROR

\N,NOINTR

024126

027477
000023
011334

011506

0814 ,8SR

Nel

SCOPE

ST170

8IC

BIT

#100,8CSR

BIT

BNE
MOV
MOV
JSR

BNE
MOV
MOV
JSR
=

SCOPE

#100,8CSR

INTCONT
(SP)+,(SP)+
\N,ERINTR

000167
012716
005077

177650
006336
024016

ST170

22 006416
23 006424

012777
042777

006462
000100

006432
006436

016746
012746

006444

B8IC
MTPS
MOV
MOV

#100,8CSR
PRIO
PRIO, -(SP)
0644, -(SP)

MOV

#100,8CSR

25 006444

012777

28 006456

000240
000167

000100

005077

023742

023760

644

RTI

NOP
NOP

INTCNR: JMP
ERINT1: CMP

CLR

ERROR

:CLEAR INTR ENAB

OR HOST INTERRUPT
: ERRONEOUS
;ERR

;¢sssees ERROR 23 ssssssse

ST17

18 006400
19 006404
20 006410

024022

;essssse ERROR 22 ¢ssssse

Ne1

RS,SCPRTN

INTUNT: MOV

sERROR:HOST CAN'T INTERRUPT UNIBUS

.+20
#ERINTR,RO
023
, ERRNUM
PC.ERR

JSR

024074

THERE IS AN ERROR

#814,8SR

011076

MOV

RS,SCPRTN

004567

GDINT:

+IF_ ONE OCCURS NOW, IT
IS ERRONEOUS.
+
sSET VECTOR FOR GOOD INTERRUPT
1SET _INTR ENABLE
+IF_ONE DOES NOT OCCUR NOW,

.+20
ONOINTR,RO
922
, ERRNUM
PC.ERR

006372

ST17

+SET UP VECTOR FOR ERROR
sALLOW INTERRUPTS

0644, -(SP)

OGDINT ,8VECTOR

ST170
ST170R: P
ERINT:
CMP
ERROR

040000

®ERINT ,8VECTOR
0
00,-(SP)

MOV

JSR

000054

‘

ST17:

000002

SEQ 0038

02:24:05 PAGE 12

#ST1TOR,(SP)
#ERINT1,8VECTOR

ST18
(SP)+,(SP).

8CSR

\N,WPODI

;sCONTINUE
;CH/ANGE RETURN ADDRESS
;CLEAR INTR ENAB
s CONTINUE
:SET UP FOR 2ND ERR INTR
;CLEAR INTER ENAB
:SET C.P AT DEVICE PRIORITY

1SET_INTR ENAB
iNO INTERRUPT SHOULD OCCUR
+ THIS TIME.
10.K. CONTINUE
ENAB

: WRONG PRIORITY;DEVICE IS HIGHER
;ERROR

N3
C2CMUCO CMR(V)-11 WOST EXERCISE MACRO v04.00
MOST LOGIC TESY

SEQ 0039

02:24:05 PAGE 12-1

000024
011210

006516

004567

010752

006522
33 006524

000025

GCO6416
000167

040000

027532

024002

011362

32
2

032777
001007
012700
012767
004767

g8’ g338%

;eeseese ERROR 24

006470
006476
006500
006504
006512

0814 ,8SR
®P0DI,
RO
024 ,ERRNUM

PC.ERR

Nel

INTCNT
RS,SCPRTN

ST18

essssse

——

—

———

- —

————.
. ————— —

-—

———-

B4
C2CMUCO CMR(V)-11 HOST EXERCISE MACRO VO4.00

MOST LOGIC TEST

SEQ 0040

02:24:05 PAGE 13

1NOW CHECK PROGRAM INIT,

012777
012767
005367

000002
000024
223660

023674
023664

8 006SS2
9 006560
10 006566
11 006574
12 006602

012767
017767
042767
026767
001416

002000
023646
100000
011276

011316
01131c
011304
011276

006604
006612

032777
001007

040000

023666

012700
012767
004767
000026

027573
000025
011160

011246

004567

010636

032777
001774
012777
012701
012702

100000

023564

001000
032326
032350

023616

13 006604

006614
006620
006626
14 006632
006632
006636

1S 006640
16 006646
17 006650
18 006656
19 006662

20 006666
21 006672
22 006674
006674

006702
006704
006710
006716

23 006722

001375

006530

117712
001016
032777

001007
012700
012767
004767

000027

023604

ST181:

040000

023576

027633
000026
011004

011156

010546

24 006730
25 006734
26 006740

111167
111267
042767

011142
011140
177400

011130

026767
001416

011116

27 006746

28 006754
29 006762
30 006764
006764

006772
006774
007000
007006
31 007012

007012

042767

032777

001007
012700
012767
004767
000030

004567

177400

ST182:
011124

040000

023506

027673
000027
011000

011066

010456

#2000, G000
8CSR,BAD
#815,8A0
GOOD ,B8AD
ST180

1PUR-UP SHOWLD BE SET
tREAD CSR
tHAVE TO IGNORE B1S FOR SLOW POP-11'S;D.wW 001
tCSR CORRECT AFTER INIT?
1 YES, CONTINUE

DATERR

\N,MITER

BIT
BNE

0814 ,8SR
.+20

SCOPE
JSR

ST18
RS,SCPRTN

MOV
MOV
JSR
»

sT18

BIT7
BEQ
MoV
MOV
MOV

MOVB
BNE
ERROR

#815,8CSR
ST180
#1000, @5PAR
OVERSP ,R1
OVERSUN,R2
8SPOR, (R2)
ST182
\N,VISF

SCOPE

ST180

sWAIT A BIT

1ERROR
: PROGRAM INIT FAILED
j0e0seee ERROR 2%

;s0.W 001

secesee

sHAIT FOR PUR-UP COMPL
sNOW READY TO READ VERSION
sPOINT AT ORIGINAL VERSION
sAND SAVE THIS VERSION
tERROR:MICRO DIDN'T STORE VERSION STUFF
jeesesee ERROR 26

eseseee

#814,85R

.+20
OVISF ,RO
926
, ERRNUM
PC.ERR

s0.W 001
:0.W 001

MITER,RO
€25
, ERRNUM
PC ,DERR
Nel

BNE
MOV
MOV
JSR

Nel

MOV
)]
8IC

(R1),GO0D
(R2).BAD
9177400 ,G000

sNOW COMPARE VERSION WITH ORIG.

o, 4
BEQ
DATERR

GOOD ,BAD
ST183
\N,VIDER

1SAME AS FIRST TIME?

BIT

0814 ,85R

8IC

]

100 HOST "INIT"

MOV

BIT

004567

006640

ST180:

02,8CSR
024 ,CNTR
CNTR

BNE

MOV
MOV
8IC
ce
BEQ

006722

006726

MOV:

MOV
MOV
DEC

7 006550

ST18:

4 006530
S 006536
6 006544

4
3

#177400,BAD

BNE
MOV
MOV
JSR
E

.*20
#VIDER,RO
027 ,ERRNUM
PC,DERR
Nel

JSR

RS,SCPRTN

SCOPE

ST182

tCLR TOP BYTE

tERROR:2ND VERSION NOT SAME AS 1ST
10000000 ERROR 27

seeseee

CZCMUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00

MOST LOGIC TEST

007016

32 007020
S3 007022
34 007030
35 007032
36 007036
37

006730

122122
0227727
001403
005277
000713

023446

001020

ST183:

023436

S5€Q 004}

02:24:05 PAGE 13-1
sT182

CMPB
ce
BEQ
INC
BR

(R1)+,(R2).
SSPAR, #1020
ST19
8SPAR
ST181

tUPDATE POINTERS
+ DONE?

sNEXT WORD

tCHECK ACCESS TO RESWLT SCPD WITH INTERRUPT CLEAR

40
4]

42 007040

012777

47 007074

016777

43 007046
44 007054
45 007062
46 007066

48 007102

49 007110

S0 007112

007112

007120
007122
007126
007134
S1 007140
007140
007144

000020

012777
017767
005167
042767

001200
023416
023430
177400

026777

023410

001016
032777

001007
012700
012767
004767
000031
004567

007040

023416

023364

023420
023434

MOV

020, 8CSR

023422

MOV
MOV
com
8IC

#1200, 8SPAR
8SPOR , WORD
WORD
#177400, WORD

023366

Wono,

023374

040000

023360

027742
000030
010566

010740

010330

ST19:

MOV
BNE

WORD , 8SPOR
$T20

ERROR

\N,SPAVIC

BIT

#8614 ,8SR

BNE
MOV
MOV
JSR
.
SCOPE
JSR
ST19

.20
OSPAVIC,RO
030, ERRNUM
PC,.ERR
Nel
ST19
RS,SCPRTN

sCLEAR TOP BYTE OF CSR

s+ADDRESS RESUWLT SCPD
tREAD A WORD FROM IT
sCOMPLEMENT IV
+IGNORE TOP 8 BITS
tAND WRITE IT BACK
sNOW READ IT BACK
s IT SHOLDON'T BE THE SAME
sERROR:RES. SCR. PAD ACCESSED WITH INTR CLR
100000ee ERROR 30 sseseee

CZ2CMUCO CMR(V)-11 HOST EXERCISE MACRO v04.00
MNOST LOGIC TEST
1

tNOW CHECK SOME SIMPLE FUNCTIONALITY

4
S
6

+
1
1

8 007146
9 007154
10 007162
11 007166
12 007174
13 007200
14 007206
1S 007212
16 007220

17 007224
18 007232
19 007236
20 007244
21 007250
22 007256
23 007264
24 007272
25 007300
26 007306
27 007310
28 007314
29 007316
007316
007324
007326
007332
007340

012767
012777
O00S077
012777
005277
012777
005277
012777
005277

012777
005277
012777
005277
012777
012777
012767

017767
026767
001421
005367
001366

000000
000020
023306
000210
023274
000004
023262
000001
023250

000002
023236
000377
023224
000337
000001
140000
023134
010572

023254
023250

023244

023232

010534

007344

004567

010124

31 007352
32 007360
33 007366
34 007374

012777
012767
017767
026767

001000
000210
0235104
010476

35 007402
36 007404
007404

007412
007414
007420
007426
37 007432
007432
007436

38 007440
39 007446

007146

001416
032777

001007
012700
012767
004767
000033

023114
010510
010504
010476

040000

023066

030036
000032
010360

010446

004567

010036

012777
012767

001002
000377

007146

ST201:

MOV
MOV
CLR
MOV
INC
MOV
INC
MOV
INC
MOV
INC
MOV
INC
MOV
MOV
MOV

ST202:

023026
010422

ST203:

#0,CNTR
#20,8CSR
«>PAR
0210, 8SPOR
AR
4 8SPDR
8SPAR
#1,85PDR
AR

#2,8SPOR
85PAR
#377,8SPOR
85°AR
#337,8SPDR
#1,8CSR
#814.815,6000

MOV
o, 4
BEQ
DEC
BNE

SCSR,BAD
GOOD,
S$T202
CNTR
ST201

B8IT
BNE
MOV
MOV
JSR
=

#14 B5R
.+20
#STESTF
RO
931 ,ERRNUM
PC,.DERR
Nel

JSR

RS,SCPRTN

MOV
MOV
MOV
cw

BEQ
DATERR

#1000, 8SPAR
#210,6G00D
8SPOR,
GOOD,
ST203
\N,RSPESF

BIT

#814,85R

DATERR

030005
000031
010446

007350

ST200:

023114

023154

30 007344

ST20:

023256

040000

——
.

———

—

—t

THE CORRECTY ERROR STATUS.
ENSURE THAT STARTING THE "MAINT” FUNCTION WITH "MAIN"
WORKS PROPERLY AND GET PORT BAUD RATES.

023270

032777
001007
012700
012767
004767
000032

———
.

ENSURE THAT STARTING A "MAINT” FUNCTION GIVES

023302

023220
023146
010604
010600
010572

—

02:24:05 PAGE 14

e
3

SCOPE
ST20

BNE
MOV
MOV
JSR
a
SCOPE
JSR
ST20

MV
MOV

\N,STESTF

sCLEAR TOP BYTE
+ADDRESS REQ SCPD
sLOAD "MAIN” FUNCTION
s+ TO EXAMINE HOST
s MEMORY LOCATIONS
sONE REQUEST
1@ OF BYTES TO READ = 2

1START ADDR = DFFF (M)
$1SET "ST FUN” ON "MAINT” FUNC
sCHECK FOR FUNCOM € INTR
s "FUNCOM” AND "INTR"” SET?
s IF NOT, WAIT A BIT
tERROR:STATUS WRONG WITH “STFUN” ON "MAIN"
;08e0e8¢ ERROR 31

sssseese

ST20

s ADDRESS RESULT SCPD
sCHECK ON FUNCTION
tFUNCTION CORRECT?
1ERROR:RESULT FUNC. CODE WRONG ON MAIN
j0esse0s ERROR 32 ssesesse

.+20
ORSPESF ,RO
932 ,ERRNUM
PC,
Nei
ST20
RS,SCPRTN

#1002, 8SPAR
#377,G000

1NOW ADDRESS "USOF *
1 SHOULD SHOW "TOTAL FAILURE" CODE

E4
. C20MUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
. MOST LOGIC TESY
40 007454

41 007462

42 007470
43 007472

017767
026767
001416
032777
001007
012700
012767
004767
000034
004567
007146

023016
010410

MOV
cwe

010416
010410

BEQ

DATERR

040000

023000

030077
000033
010272

010360

BIT
BNE
MOV

007750
000000

022674

010306

000020
000200
140000
022650

022670
022662
010320
010314

ST204:

ST205:

022630

MOV
JSR
e

SCOPE

022670

030140
000034
010162

010250
N

007640
001002

60 007666
61 007670

007670
007676
007700
007704
007712

62 007716
007716

007722

63 007724
64 007732
65 007740
66 007746
67 007754
68 007756

026767
001416

032777
001007
012700
012767
004767

000036

000001
022620
010212

022630

010224
010220
010212

ST206:

022602

030171
0000
010074

010162

004567

007552

012777
012767
017767
026767
001416

001001

000003
022532
010124

]

022542

010136
010132
010124

ST207:

\N,USOFE1

#814,8SR
.+20

DEC
BNE

CNTR
ST205

BIT

#814,8SR

SCOPE

#20,8CSR
4200, 8CSR
#814+815,G000
.
»
ST206

\N,STEMF

#1002, 8SPAR

o,
8SPOR,
GCO0D,BAD
ST207

BIT

#814,8SR

\N,USOFE2

sPOINT AT "USOF"
sSHOULD SHOW SUCCESS
tUSOF 0.K.?

;ERROR:BAD “USOF” ON “MAIN” FUNCTION
1sseeses ERROR 35 ¢ssesss

ST204

MOV

#1001, 8SPAR

DATERR

;jssseses ERROR 34 sssesese

Nel

RS,SCPRTN

MOV
MOV
cHP
BEQ

tERROR: STATUS WRONG ON *"MAIN" FUNC

.+20
SUSOFE2,RO
935, ERRNUM
PC,DERR

JSR

ST204

sWAIT A BIT

ST204

MOV
MOV
MOV
cHp
BEQ

sFUN COMPLETE?

Nel

RS,SCPRTN

SCOPE

+SET "CLRTPB”
1SET "MAIN" WITH SAME FUN LOADED
sCHECK FOR “FUNCOM” £ "INTR”

.+20
OSTEMF RO
034 ,ERRNUM
PC.DERR

g%o.

BNE
MOV
MOV
JSR

jessesee ERROR 33 sessese

ST20

#0,CNTR

BNE
MOV
MOV
JSR

tERROR: “STFUN” ON "MAIN” GAVE BAD USOF

Nel

MOV
MOV
MOV
MOV
MOV
c
1]

sVUSOF 0.K.?

®USOFEL RO
033, ERRNUM
PC,DERR
RS,SCPRTN

DATERR

040000

8SPOR,BAD
GO0D,BAD
ST204

g!'igo

DATERR

040000

SEQ 0043

02:24:05 PAGE 14-1

#3,G00D
8SPOR,BAD
GOOD ,BAD
sT21
\N,DATLER

tPOINT AT DATA LENGTH
1SHOUWLD BE 3
1WAS IT 37

: "MAIN” FUNC GAVE BAD DATA LEN.
1ERROR
jeesssss ERROR 36 +ssnsse

69 010004
010004
010010
70 010012
71
72
73
74

010016
010024
010030
010034

004567
007526

012700
012777

117720
005277
117710

040000

022514

030226
000036
010006

010074

007464

032422
001003
022446
022440

022436

022450

stel:

33338548 4338

010000

032777
001007
012700
012767
004767
000037

007756
007764
007766
007772

SEQ 0044

02:24:05 PAGE 14-2
—

C2CMJUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
' MOST LOGIC TEST

#B814,8SR
.+20
ODATLER,RO

036
, ERRNUM

PC,DERR
Nel

ST204
RS,SCPRTN

, RO
#8AUD

#1003, 8SPAR
8SPOR, (RO)

8SPAR

8SPOR, (RO)

+POINT AT BAUD TABLE
tGET RESULTS OF EXAMINE
1STORE BAUD RATES

——

———

————————

—

it
.
e

S—

G4
. CZ0MICO CMR(V)-11 HOST EXERCISE MACRO V04.00
' MOST LOGIC TESY

SEQ 0045

02:24:05 PAGE 15

2
3

022364
022420
022414

012777
012777
012777

022402

10 010074
11 010100
12 010106
13 010112
14 010120
15 010126
16 010134

022370

022356
022304
022276

17 010136
18 010144
19 010152
20 010160
21 010166
22 010170

022330
007726
007716
007712

010170
010176
010200
010204
010212

022302

23 010216
010216
010222
24 010224
25 010232
26 010240
27 010246
28 010254
29 010256
010256
010264
010266
010272
010300
30 010304
010304
010310
31 010312

32 010320

33 010326
34 010334
35 010336
36 010344
37 010352
38 010360
39 010366

st22:

007574

ST220:
ST221:

007662

007252

001002
000377
007624

022242
007636
007632
007624

ST222:

022214
030330
000040

007574

022112

ST223:

022076

ST224:

022130
007524
007512

tCLEAR TOP BYTE OF CSR
sLOAD "ACTIVATE REMOTE” FUNC
sDATA LEN.

= 2

sONE REQUEST

sNO, WAIT

s ADDRESS RESWLT
sREAD RESULT FUNC. CODE
10.K.?

tERROR:RES. FUNC. CODE WRONG FOR "MAIN"
;eeessss ERROR 37 essssss

4
=1

S 010040
6 010046
7 010054
8 010062
9 010066

83222873858 " 435R% §§3§§§§¥§'§§§¥ §§3§§§§§§§2§2§2§§§

tCHECK RESULTS OF STARTING A REGULAR FUNCTION WITH "MAIN"
:
TRY DOING AN "ACTIVATE REMOTE” FIRST USING “MAIN", THEN "STFUN"

"
+ADDR "USOF
sSHOULD SHOW TOTAL FAILURE
sUSOF 0.K.?

sERROR: “MAIN” ON REG FUNC GAVE WRONG USOF
jessssss ERROR 40 sesssses

tCLR TOP BYTE

1SHOULD SHOW REM. ERROR
tUSOF 0.K.?

H4
C20MJUCO CMR(V)-11 MOST EXERCISE MACRO v04.00

' MOST LOGIC TESY

40 010370
010370
010376
010400
010404
010412

032777
001007
012700
012767
004767

040000

022102

030373
000041
007374

007462

41 010416
010416
010422

004567
010312

007052

000042

02:24:05 PAGE 15-1
DATERR

\N,USOFE4

BIT
BNE
MOV
MOV
JSR

0814 ,85R

SCOPE
JSR
ST22s

RO
OUSOFEA4

041 ,ERRNUM
PC,DERR

Nel

ST223

RS,SCPRTN

: WRONG USOF ON REGULAR FUNCTION
tERROR
je0sasse ERROR 41

¢sssense

14
CZCMJUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00

MOST LOGIC TEST

tEND OF LOGIC TEST. PRINT END OF PASS AND VERSION STUFF

2
3

4 010424

005767

022064

000167

000350

012700
004767
012767
112100
004767
005367
001372

024504
010072
000021

S 010430

001402

7 010436
8 010444
9 010450
10 010454
010454
010460
11 010464
12 010472
13 010474
14 010500
15 010504
16 010506

012767
012701
012702

6 010432

177777
032350
032422

012700
004767

024537
010040

012700
004767
111267
042767
006267
006267
006267
006267
012703
006367
066703
011300
004767

024555
010030
021764
177617
021752
021746
021742
021736
031144
021726
021722

012700
004767

024571
007744

31 010616
32 010624
33 010630

042767
012703
006367

177770
031144
021662

36 010642
37 010646
010646
010652
38 010656
39 010662
40 010670

004767

007710

012700
004767
111267
042767
006267

024605
007700
021634
177617
021622

34 010634
35 010640

41 010674
42 010700
43 010704
44 010710
45 010714

46 010720
47 010724

112267

066703
011300

006267
006267
006267
012703
006367

066703

011300

STes:
022050

021736

Ol1422
021724

010506
010512
17 010516
010516
010522
18 010526
19 010532
20 010540
21 010544
22 010550
23 010554
24 010560
25 010564
26 010570
27 010574
28 010576
29 010602
010602
010606
30 010612

SEQ 0047

02:24:05 PAGE 16

021756

007754

021700

021672

021656

021616
021612
021606
031144
021576

021572

ST23A:

ST230:

TST

VERFLG

+IS FLAG SET?

JHP

ST24

1 YES, JUST PRINT "END PASS”

BEQ

MOV
MOV
MOV
PNTM
MOV
JSR
MOV
MOVe
JSR
DEC
BNE
PNTM

MOV
JSR
PNTM
MOV
JSR
MOVB
8IC
ASR
ASR
ASR
ASR
MOV
ASL
ADD
MOV
JSR
PNTM
MOV
JSR
MOVE

#-1,VERFLG
OVERSUN,R1
#BAUD ,R2
SM
#VERSM, RO
PC, TYPOUT
#21,CNTR
(R1)+,RO
PC,TTO
CNTR
S$1230
BAUDM

#B8AUDM, RO
PC, TYPOUT
PORTOM
#PORTOM, RO
PC, TYPOUT
(R2),WORD
#177617,WORD
WORD
WORD
WORD
WORD
#BORTBL ,R3
WORD
WORD,R3
(R3),.RO
PC, TYPOUT
PORT1M
#PORT1M,RO
PC, TYPOUT
(R2)+,WORD

8IC
MOV
ASL

#177770,WORD
#BORTBL ,R3
WORD

JSR
PNTM
MOV
JSR
MOVB
BIC
ASR
ASR
ASR

PC,T
PORT2M
#PORT2M,RO
PC, TYPOUT
(R2) ,WORD
9177617, WORD
WORD
WORD
WORD

ADD
MOV

021626

ST23A

ASR
MOV
ASL

ADD
MOV

WORD ,R3
(R3),RO

WORD
#BORTBL ,R3
WORD

WORD ,R3
(R3),RO

1NO

1NO, SET FLAG
1GET VERSION DATA
$AND BAUD RATES
+PRINT “VERSION ”
sPRINT MESSAGE
+POINTED TO BY VERSM

;OUMP ALL VERSION INFO
sPRINT “BAUD RATES:"
1PRINT MESSAGE
sPOINTED TO BY BAUDM
tPRINT "PORT O = *
1PRINT MESSAGE
sPOINTED TO BY PORTOM
1SORT OUT CORRECT PART
sPUT IT IN L.S. BIT PLACES
sR3 POINTS AT TABLE OF RATES
tDOUBLE OFFSET
sUSE CORRECT OFFSET
1GET BAUD
sNOM PRINT “PORT 1 = *
1PRINT MESSAGE
sPOINTED TO BY PORT1M

1GET NEXT BAUD RATE CODE

1SORT OUT CORRECT BAUD RATE
1DOUBLE OFFSET
tUSE IT AS TABLE OFFSET

tPRINT RATE FOR PORT 1
tPRINT "PORT 2 = *
1PRINT MESSAGE
+POINTED TO BY PORT2M
1GET BAUD RATE CODE
1GET CORRECT PART.

1DOUBLE OFFSET

tUSE IT AS TABLE OFFSET

. C2CMJCO CMR(V)-11 HOST EXERCISE MACRO v04.00
MOST LOGIC TEST
48 010726

49 010732
010732

010736
S0 010742
S1 010746
S2 010754
S3 010760
S4 010764
SS 010770

S6 010772
S7 010776

58 011002
59
60 011006
61 011012
62 011014
63 011022
64 011024
65 011032
66 011036
67 011044
68 011046
69 011052
70 011056

71 011062
72 011066
73
T4
75 011072
011072
011076
76 011102
77 011106
78 011112

011112
011116
79 011122
80 011126
81 011130
011130
011134
82 011140
83 011142
84 011146
85 011152

004767

007624

012700
004767

024621
007614
021550
177770
031144
021532
021526

111267

042767
012703
006367
066703
011300
004767
004767
000167

012700
004767
016700
004767

024635
007454
021340
010600

012700
004767

024664
007434

012700
004767
000404
016700
004767
000207

024702
007416

ST24:

004000

021456

000010
021410
002000

021406

010716
000014
010706
007064
172200

PORT3M

tPRINT MESSAGE
tPOINTED TO BY PORT3M

9177770, WORD

1SORT OUT CORRECT PART

WORD
WORD,R3

s1DOUBLE OFFSET

PC, TYPOUT
(R2),WORD

#BDRTBL ,R3

ITER

ST2S:

021270

tUSE IT AS TABLE OFFSET

sPRINT RATE FOR PORT 3
tNULLS AFTER PRINTOUT

tUPDATE ITERATION
sOONE 107
tSINGLE ITERATION?
tUPDATE PASS COUNT
tEND PASS INMIBIT?

021434

tNULLS BEFORE PRINTOUT

sPRINT END PASS INFO
sNULLS AFTER PRINTOUT
sCHECK FOR CONTROL CHARACTERS
1 START OVER

ST26:

sPRINT "END PASS @ ”
sPRINT MESSAGE
sPOINTED TO BY EMDPS
sGET PASS COUNT
sPRINT IT IN DECIMAL
sPRINT "ERROR COUNT = *
sPRINT MESSAGE
sPOINTED TO BY ERCTM
t1CHECK FOR ERROR CNT OVERFLOW
$IT DID'T, PRINT COUNT
$IT DID, PRINT “#«OVERFLOW2s"
;PRINT MESSAGE
sPOINTED TO BY OVFLM

ENPRTN:

021257

010540

sPRINT BAUD RATE FOR PORT 2
{PRINT "PORT 3 = *

OPORT3M,RO

ST125

000016

021426

PC, TYPOUT

(R3),RO
PC, TYPOUT
PC,NULLS

007560
010766

005367
001404
032777
001417
012767
005267
032777
001006
004767
004767
004767
004767
000167

105767
001405

JSR
PNTM
MOV
JSR
MOV
8IC

021542

SEQ 0048

02:24:05 PAGE 16-1

ERRCNT,RO

:E +DECPNT

1GET ERROR COUNT
+PRINT IT IN DECIMAL

;:0.W 001

K4
CZCMJCO CMR(V)-11 HOST EXERCISE MACRO VO4.00
' PORT LOOP-BACK TEST

02:24:05 PAGE 17
.SBTTL

PORT LOOP-BACK TEST

ASK FOR PORT @ TO BE TESTED (<CR> = ALL PORTS)

7 011154 012767 000000 021246 PORTLP: MOV
027727 021244 102000 PRLC: CMP
001420
BEQ

8 011162
9 011170
10 011172
11 011176
12 011200

011200

011206
011210
011214
011222

DEC
BNE

005367 021232
001371

032777

040000

ERROR

021272

BIT

011226
14 011232
15 011240
16 011244
17 011250

001007
012700
012767
004767
000043
004767
012767
005067
005067
005067

011260
011264
20 011270
011270
011274
21 011300
011300
011304
22 011310
23 011316
24 011324

012700
004767
012700
004767
012700
004767
012767
012767
004767

26 011334
27 011342
28 011344
29 011352

026727 010170 000004
001007
012767 177777 021046
005067 021100

32 011362

101004

34 011370

000167

000014

011374
011400
36 011404
37 011410
38 011416
39 011424
40 011430
41 011436

012700
004767
000167
016767
012777
005077
012777
005277

022624
MOV
007152
JSR
177670
M
010114 021040 PST2: MOV
000020 021006 PST2A: MOV
021044
CLR
000212 021040
MOV
021032
INC

13 011226

18 011254
19 011260

25 011330

;g 011356

105067

005067

000167

026477
000042 006652
006500
006222
000010
021154
021176
021162

POK:

021125

024717
007256
024412
007256
024745
007246
000004 010212
011300 021126
007270

PSTO:

PSTE:

;ERROR :HOST MICRO FAILED TO START

i1ss8s80s ERROR 42 sess20e

sRUN LOGIC TEST.

MOV
JSR
PNTM
MOV
JSR
PNTM
MOV
JSR
MOV
MOV
JSR

#PLTM, RO
PC, TYPOUT
RECON
ORECON, RO
PC, TYPOU
PORTN
#PORTN, RO
PC, TYPOUT
04 . KBBUF
oPSTO,PCONT
PC, INPKB

:PRINT MESSAGE
;POINTED TO BY PLTM
;PRINT RECONNECT COMMUNICATIONS ;D.W 001
sPRINT MESSAGE
sPOINTED TO BY RECON
sPRINT “PORT @ (<CR>=ALL) *
{PRINT MESSAGE
;POINTED TO BY PORTN
;DEFAULT IS "ALL"
:LOAD RETURN ADDRESS
1GET KBD INPUT

P
BNE
MOV
CLR

KBBUF , 04
PST1
#-1,ALLFLG
PORT

sWAS IT DEFAULT (OR 4)?
iNO
{YES, SET "ALL" FLAG
i START WITH PORT 0

PSTE

JWAS IT MIGHER THAN 4?7

PST1:

0814, 8SR

iNO, WAIT A BIT

. +20
#NOGO
, RO
042, ERRNUM
PC,ERR
N+l
PC,SWHLT
010, ITER
ALLFLG
PASCNT
ERRCNT

CLR

000034

\N,NOGO

1BETTER CHECK FOR PWR-UP COMPL
{POMER UP COMPLETE?
1 YES, CARRY ON

BNE
MOV
MOV
JSR
.
HT
JSR
MOV
CLR
CLR
CLR

CLR8
PNTM

021116

33 011364 005067 021030
35 011374

021200

00,CNTR

8CSR, 9102000
POK
CNTR
PRLC

BHI

OFLOF
PLTM

PCONT

PST2A

CLR

ALLFLG

PNTM

AGAIN

PST2

@AGAIN, RO
PC, TYPOUT
PSTO
KBBUF , PORT
020, 8CSR
8SPAR
0212, 8SPDR

;LOAD ITERATION COUNT

;CLEAR "ALL* FLAG
jCLEAR PASS COUNT
;CLEAR ERROR COUNT

:CLR OVERFLOM FLAG
sPRINT “PORT LOOP-BACK TEST"

iNO, MUST BE A PORT @
JWRONG!, TRY AGAIN

1PRINT MESSAGE
;POINTED TO BY AGAIN
1SAVE PORT @
1CLR TOP BYTE
1ADDRESS REQ. SCR. PAD
1LOAD MAINT FUNC.
17O DO PORT LOOP-BACK

L4
MOST
| C20MJCO CMR(V)-11
TEST
BACK
LOOPPORT

SEQ 0050

MACRO VO4.00

02:24:05 PAGE 17-1

021026

MOV
INC
MOV
INC
MOV
INC
MOV
MOV
MOV

023, 8SPDR
8SPAR
#1,8SPDR
8SPAR
PORT . 8SPDR
BLEAR
PORT ,8SPDR
#20,CNTR
#OATBL ,R1

1DATA LEN.

®OV
DEC
BNE

(R1)+,8SPDR
CNTR
PST3

sLOAD DATA BYTE
s LOADED ALL?
1NO, KEEP LOADING

42 011442
43 011450
44 011454
45 011462
46 011466
47 011474

48 011500
49 011506
S0 011514
S1 011520
S2 011524
S3 011530
S4 011534
SS 011536
011536
011542
56 011546
S7 011554
58 011562
59 011566
60 011572
61 011600

62
63
&4
65 011602
011602
011606
011612
011614
66 011614
67 011622

012777
005277
012777
005277
016777
005277
016777
012767
012701
005277
012177
005367

021014

021002

020770
020714

PSTS:

001371

PSTS:

012700
004767
012767
012767
004767
005067
026727
001356

020676
007746

PST4:

001236

PSTS:

011614
000020
000200

020610

644:
PST6:

020576

001002

020620
000430

020622
(00001

PST60:

000375

PST7:

79 011702

80 011730
61 011736
82 011740
011740
011744
83 011750

PNTM

BSPAR

TYPCR

MOV
JSR

#TYPCR,RO
PC, TYPOUT

MOV
JSR
CLR
cHP
BNE

01236 ,KBBUF
PC, INPKB
PCONT

MOV

oPSTS ,PCONT

KBBUF , #1236
PSTS

tONE REQUEST
1LOAD PORT # (XMTR)
1LOAD PORT # (RCVR)
1CHARACTER COUNTER
;LOOP DATA FROM “DATBL"

sPRINT "TYPE <CR> WHEN READY"
1PRINT MESSAGE

sPOINTED TO BY TYPCR
s INDICATE PROMPT PENDING
sLOAD ANY DEFAULT VALUE
1GET KEYBOARD INPUT

1<CR> ONLY TYPED?
s IF NOT, KEEP LOOKING FOR IT

:START MAINTENANCE FUNCTION

006310

011702
011710
011712
011716
011724

INC

= 23

MOV

0644, -(SP)

MOV
MOV

#20,8CSR
#200,8CSR

B8MI
JSR

PST60
PC,MONIT

MOV

#1002, 8SPAR

RTI

TST

B8R

ce
BNE
JSR

030430
005776

006150
020542

025245
020502

]

8CSR

PST6

JMP

PST?
PC,MONIT
ENDCHK

B8LO

PST8

BIT

#814,85R

cHP

ERROR

020570

sALLOW LINE CLOCK INTERRUPTS

MTPS

8SPOR, #37S
\N,PLFFE

BNE
MOV
MOV

. +20
#PLFFE,RO
043, ERRNUM

Nel

JSR

BIT

BNE
PNTM
MOV
JSR
MOV

sCLR

TOP BYTE

$SET "MAIN"
sLOOK FOR INTERRUPT BIT

sAND WATCH FOR CNTRL CHARS.
sNOW CHECK USOF
;OONE SUCCESSFULLY?
s1NO, CHECK ERROR TYPE

:YES, DONE A PASS

sFUNCTION FAIL?

tERROR: TOTAL FAILURE OF “MAIN" FUNCTION
jssssess ERROR 43 sessnss

PC.ERR

#814,8SR

PST7S
PORTMS
OPORTMS ,RO
PC, TYPOUT
PORT ,RO

tPRINT ALLOWED?
1NO, SKIP IT
t1PRINT “PORT @ "
1PRINT MESSAGE
1POINTED TO BY PORTMS

M4
, CZCMUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
| PORT LOOP-BACK TEST

89 012002

86 011766

000330

88 012000

PSTS

000374

005676
020442

90 012030
91 012036
92 012040

025245
007526

PST8S:

005410
000230

9 012066
97 012072
98 012100
99 012102

100 012130
101 012136
102 012140
012140
012144
103 012150

104 012154
105 012160

113 012236
?

012236
012244

PST80:

020370

032777
012767
004767
000046
032777
001010

000373

030521
005576

005750

020342

012700
004767
016700
004767

025245

004567
011602
000167
012777
067777
017767
042777
062777
017767

005310

007426

000130
001001
020272
001000

JHP
ce
8LO

8IT

030473

012024

012102
012110
012112
012116
012124

PST8:

020470

012002
012010
012012
012016

SCOPE
JSR

PST80S:

PST9:

g [ g]L g338= 2%3%§§§§§§§§5§'§§§2

;

005510

JSR

23ze

87 011772

PST?S:

1 XMTR HUNG UP?

\N,PLTXTO

: XMTR TIMEOUT ERROR
;ERROR
;sesssse ERROR 44

ssssssse

0814 ,8SR
.+20
#PLTXTO,RO
044 ,ERRNUM
PC.ERR

sPRINT ALLOWED?
sNO, SKIP IT
sPRINT “PORT & *
sPRINT MESSAGE
;POINTED TO BY PORTMS

sRCVR HUNG UP?
\N,PLRCTO

#814,8SR

;ERROR;RCVR TIMEOUT ERROR

;e888e8s ERROR 45 sssssse

+20

QLRCTO RO
#4S, Em
PC.ERR

Nel

#814,85R

;PRINT ALLOWED?
tNO, SKIP IT

;1PRINT "PORT o
;PRINT MESSAGE

sPOINTED TO BY PORTMS

;ADDRESS DATA TO FIND BAD WORD
:1GET BAD WORD

1GET GOOD WORD
tERROR:LOOP TEST DETECTED DATA ERROR
1888888 ERROR 46 ssss002

032777
001007

—
-

007626

|
|

84 011754
85 011760
011760
011764

SEQ 0051

02:24:05 PAGE 17-2

N4
. CZCMUCO CMR(V)-11 MOST EXERCISE MACRU V04.00
PORT LOOP-BACK TEST
012246
012252
012260

114 012264
115 012272
116 012274

012274
012300

117 012304
118 012310
119 012314
012314
012320

121

012700
012767
004767
000047
032777
001010

030547
000046
005526

005614

040000

020206

012700
004767
016700
004767

025245
006252
020146
007272

004567
011602

005154

052777
005767

000020
020064

020102

020114

000003

001441

020104

000003
020072
020102
020060

130 012366

020050
000003
020036
020046
020024
177142

PST9S:

004767
000167

BIT
BNE
PNTM

#B814,8SR
PSTIS
PORTMS

SCOPE

PSTS

MOV
JSR
MOV
JSR

020060
020054

0804 ,8CSR

ENDO

PORT,
83

CLR

PORT

MOV
MOV
INC
MOV
BR
INC
MOV
MOV
INC
MOV

JHP

002000

020002

PNT1:

ENDO

#3,8SPAR
PORT, 8SPOR
8SPAR
, 8SPOR
PORT
PNTEND
T
03,8SPAR
PORT, 8SPDR
8SPAR
PORT, 8SPOR
PSTS

BEQ

ITER
PNTO

BEQ

PNTRTN

INC

PASCNT

BIT

PNTO:

ALLFLG

8LO

PNTEND: DEC

017754

OPORTMS RO
PC, TYPOUT
PORT , RO
PC,OCTPNT

ENDCHX: BIS

020042

000010

RS,SCPRTN

020076

020024

005736
007246
005424
177050

RO
OPLDERR,
046, ERRNUM
:cioean

JSR

020114
020110

004000

176366
017662

MOV
MOV
JSR

PSTS

017774

017756

SEQ 0052

02:24:05 PAGE 17-3

MCV
BIT

BNE
JSR
17578
BEQ
JSR
14:
JSR
PNTRTN: JSR
JHP

sPRINT ALLOWED?

1PRINT "PORT @ ~
tPRINT MESSAGE
;POINTED TO BY PORTMS
;PRINT ¢

sCLR TOP BYTE
+DOING ALL PORTS?
tNO, DONE A PASS
sYES, DONE ALL?
tNO, KEEP GOING
;CLEAR PORT ¢
IN REQ. SCPD
+

;NEXT PORT

sPREPARE TO LOAD NEXT PORT ¢

sUPDATE ITERATION COUNT

#811,8SR

iSW 11 =, INH ITERATION

010, ITER

tRELOAD ITERATION COUNT
tUPDATE PASS COUNT
sSW 10 = INM END PASS PRINT

#810,8SR

PNTRTN
PC,ENPRTN
CLKFL1
14
PC,PRNTIM
PC.NULLS
PC,MONIT
PSTS

1PRINT END PASS
+IS CLOCK TICKING?
iNO, SKIP PRINTOUT
+PRINT ELAPSED TIME

1PRINT NULLS

HOSTY EXERCISE MACRO VO4.00
ISE

02:24:05 PAGE 18
.SBTTL

MOST-REMOTE EXERCISE

t THIS ROUTINE ASKS FOR EITHER "DETAILED” OR "GENERAL" RUN

001

THE "DETAILED” RUN CONSISTS OF DOING A BACKGROUND SCAN

IN 'MODE' O WMERE EVERY POSSIBLE REMOTE NUMBER IS POLLED

001
001

DIAGNOSTIC FUNCTION IS RUN ON ALL CONNECTED REMOTES.

001

“GENERAL*

001

THE "GENERAL" RUN ASKS THE USER YOWMTE NUFBERS

001

"DETAILED"

FOR THE PRESENCE OF A REMOTE.

WHEN "THRU” IS SET,

THE

C
MOST-

OB YO NS W a:

001

NOTE:

THE "GENERAL" RUN SHOULD BE USED IN MOST CASES
SINCE IT TAKES FAR LESS TIME TO GET THROUGM A PASS.

001
001

BOTH RUNS DO THE FOLLOWING:

001

START BACKGROUND SCAN, WAIT FOR “THRU"

T ALARMS WHILE WAITING.
*THRU" SETS, DO A "PORT CONFIGURATION STATUS" REPORT

M "DIAGNOSTIC” FUNCTION ON ALL AVAILABLE REMOTES (DETAILED)
DO
A “FORCE INTERROGA TE” ON ALL AVAILABLE REMOTES (GENERAL)

-REPORT ALL CHANGES OF REMOTE STATUS

001
001

i
151

WHICH ME FEELS ARE ON THE CMR; THEN
A BACKGROUND SCAN
IS PERFORMED
ON ONLY THOSE REMOTE “WUMBERS
(USING MODE 1)

105067
005067

017641
017744

012746
012746

000000

005067
012767
105067
012767

027727

003367
001371
032777
001007
012700
012767
004767

CMREXC: CLRB
CLR

EXRCS:

012554

017666
000010
017613
017640
000000
017622

017652
017624
102000

CELP:

017650

00, -(SP)
0644, -(SP)

CLR
MOV
CLR8
CLR
MOV
cw
BEQ
DEC
BNE
ERROR

PASCNY
#10,ITER
OF LOF
ERRCNT
00,CNTR
8CSR, #102000
EXSO00
CNTR
CELP
\N,NOGO

BIY

#8514 ,05R

BNE
MOV

+20
mo RO

JSR

PC.ER!I

MOV

005230
]

MOV
MOV
RTI

644

017610

026477
000047
005056

MTPS

FAST
TALLY

07, cnmm

Nel

iCLEAR “FAST" FLAG
1SORRY, NOT RESTARTABLE
s INTERRUPT ON

sCLEAR PASS COUNTER
sLOAD ITERATION COUNT
1CLR FLAGS € COUNTERS
1SET UP TO TIME POMER P
1PUR-UP € INTR SET?
1 YES, CONTINUE
;NO, WAIT A BIT
: HOST MICRO WON'T START
tERROR
100sesee ERROR 47

eceseee

001
001

C20MUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00

MOST-REMOTE EXERCISE

012654
012660

012700
004767

012670

012700
00767

49 012664
012664

S0 012674

012674
012700

012650
48 012654

004767

EXS00:

EXSOA:

012700

006616
017532

S3 012720
54 012724
S5 012730
56 012736
57 012740
58 012746
59 012750
012750
012754
60 012760

022624
003576
177710

62 012764
63 012770

017407
000220

EXSONA:

65 012774

031326

EXSOB:

025602

005544
017470

EXSOC:

006714

025657
003522

023071
003512
000077
013012
003534
017362
0064 54
177700
000077

006416

025670

005430
017354
86 013134

MOV

PNTM

S1 012704
Se 012712

PNTM

DT 835 323333324820%8ua248 4 35328 38358338 $33¢

47 012650

006456
017372

SEQ 0054

02:24:05 PAGE 18-1

PNTM

PC, ST
EXCM

otxcn RO

acéon

TY’W?

ORECON, RO

’C.TYPWT
DTLGN
#OTLGN, RO
rc.mour

tRUN LOGIC TEST

tPRINT “CMR EXERCISE ROUITNE "
1PRINT MESSAGE

10.w 001

1POINTED TO BY EXCM
tPRINT “"RECONNECT COMMUNICATIONS” .30.4 001
1PRINT MESSAGE
+POINTED TO BY RECON
tASK "DETAILED" OR "GENERAL"
s0.W 001
1PRINT MESSAGE
sPOINTED TO BY DTLGN
1OEFAMLT "GENERAL"
:1D.W 001
+SET RE-ASK POINTER
sD.W 001
1GO GET AN INPUY
10.W 001
sD.W 001
tWANT DEFAMLT OR 07
;0.4 001
1YES. GENERAL. GET REM ¢'S
sD.W 001
sWANT DETAILED?
;0.4 001
IYES. 00 DETAILED RUN
:1D.W 001
1OTHERWISE, YOU'RE CONFUSED!
sD.W 001
1PRINT MESSAGE
sPOINTED TO BY AGAIN

EXSOA

1 TRY AGAIN.

1D.W 001

FAST
EXSO1

tNOT GOING THE FAST ROUTE
$GO AMEAD WITH DETAILED.

:0.W 001
10.W 001

#EXTBLL,R2

1BORROW PORT 1 TABLE FOR NOW
sD.W 001
sSKIP OVER ENTRY COUNTER
;0.4 001
tPRINT "TYPE PORT/REMOTE NUMBERS”;D.W 001

sPRINT MESSAGE
sPOINTED TO BY GTREM
t1PRINT ITEM ¢
sOFFSET (START AT 1, NOT 0)
.:m DECIMAL ENTRY ¢

i1D.W 001
0.4 001
;0.4 001
:10.W 001
:0.W 001

sLET'S LOOK AT WHAT WE'VE GOT
1CHECK FOR EXIT NUMBER
1GET IT?
+IF YES, CHECKX TALLY & LEAVE
tWANT HELP?
1NO, MUST BE 0.K.
10.K. GIVE HIM MELP
1PRINT MESSAGE
1POINTED TO BY GRMLP
1MAS HE ENTERED ANY YET?

IYES. GET NEXT REMOTE ¢
INO, ASK FOR REMOTES

10.W 001
:10.W 001
1D.W 001
:10.W 001
10.W 001
10.W 001
:10.W 001
10.W 001
10.W 001
10.W 001

10.W 001

10.M 001
10.W 001
10.W 001

—

c——

————

—

——

—

——

—

D5
C20MJCO CMR(V)-11 MOST EXERCISE MACRO vO4.00

MOST-REMOTE EXERCISE
87

88 013136
89 013142
90 013144

005767
001014
000167

017344

93 013150
94 013154
95 013160
9 013166
97 013170

016722
005267
026727
001402
000167

006354
017326
017322

9
92

102

016767
004767
112767

017306
000764
177777

108 013214
109 013220
110 013224
111 013232
112 013240
113 013244
114 013246
013246

005067
005077
012777
012777
105767
001004
:
012700

017204
017206
000020
000044
017133

115 013256

105067

105067
005067
005067
005067
005067
005067

016124

004767
004767

128 013330
129 013332
130 013340

001410
052777
005767

131 013344
132 013346
133 013332

134 013356
135 013360
136 013364
137 013366
138 013372
139 013374
140 013400
141 013402

10.W 001
1D.w 001
10.W 001

STRMN:

MOV
INC
ce
BEQ
JP

KBBUF ,(R2)+
TALLY
TALLY,#37
EXSGO
EXSOC

1PUT REMOTE @ INTO TABLE
sCOUNT IT,
1GOT ENOUGH?
+YES, GO WITH THEM
1NO, GO GET MORE.

10.W 001
10.W 001
:D.W 001
:0.W 001
1D.W 001

tWE HAVE ARRIVED HERE BECAUSE THE USER WANTS A FAST RUN USING ONMLY THE
tREMOTE NUMBERS ENTERED AT STARTUP., MUST SET UP A QUEVE FOR BACKGROUND
tSCAN AND SET A SOFTWARE FLAG "FAST",

;0.w 001
;D.w 001
:0.w 001

EXSGO:

:0.W 001
10.w 001
10.W 001

TALLY,EXTBL1
PC,LDQUE
@-1,FAST

025056

CLR
CLR
MOV
MOV
TST8
BNE
PNTM
MOV

EXSO1A: CLRS

PC, TYPOUT

1CLEAR STATUS CHANGE FLAG
1START OFF CLEAR
1CLEAR TOP BYTE
:
BKG SCAN & THRU INTR
tDOING THE FAST RUN?
1
1YES, SKIP THE WARNING PRINTOUT ;D.W 001
'
OFF A MINUTE!!
:
001
1PRINT MESSAGE

017124

JSR

CHNGFL
8CSR
020, 8CSR
#44,8CSR
FAST
EXSO1A
SLOW
#SLOM, RO

CLR8
CLR
CLR
CLR
CLR
CLR

THRUF
TALLY
EXTBL1
EXTBL2
EXTBLS
EXTBLA

sCLEAR TABLES

017163
EXS01:

017200
017172

017125
017214
016030
016224
016420
016614

1SAVE REMOTE CUUNT
1SET MODE - 1 AND LOAD QUEUE
1SET SOFTWARE FLAG

1START EXERCISING

:0.% 001

sPOINTED TO BY SLOW

$EXERCISER MAIN LOOP

125 013312
126 013316
127 013322

1GET ANY REMOTE o'S?
1YES, GO WITH THEM
1NO, GO GET SOME

MOV
JSR
MOVe

TALLY
EXSGO
EXSO08

000037

013252 004767 005300

116 013262
117 013266
118 013272
119 013276
120 013302
{g 013306

TST
BNE
N

177616

103 013174
104 013202
105 013206
{g

EXSOD:

177624

»
100
101

S£Q 0055

02:24:05 PAGE 18-2

032777

001022
004767
105767

001015
105767
001752
005767
001747
005767
001004
004767

001450
004630

ExS2:

040000

017102

000020
017060

017072

004600
017035

PC,SCALM
PC,MONIT

1GO_SCAN ALARMS
1CHECK FOR CNTRL CHARS.

BEQ
8IS
TST

EX
920, 8CSR
CHNGFL

sNO.
+CLR TOP BYTE
1CHANGE FLAG SET?

BIT

ExS28:

017022

017114
017024

000322

JSR
JSR

EXS2C:

#814,8CSR

BNE
JSR

EXS3
PC,MONIT

BNE
1578
BEQ
TST
BEQ
TST
BN
JSA

EXS3
ONCE
EXxse
TALLY
ExSe
CHNGFL
EXS3
PC,DIAGFY

T1ST8

+IS FUN COMPL SET?

1IF_YES, DO PCS
1CHECK FOR CNTRL CMARS
1IS "THRU” SET?

1IF YES, DO PORT CONFIG
1DONE PORT CONFIG ONCE?

iNO. WAIT FOR THRU
1 YES, ANY REMOTES?
tNO, WAIT FOR CHANGE OR THRU
1YES, ANY CHANGES PENDING?
1YES, NEW PORT CONFIG
iNO, GO DO DIAG FUNC ON AVAIL REMOTES

|
‘,

142 013406
143 013412
144 013416
145 013422

146 013430
147 013434
148 013436
149 013442
150 013444
151 013450

152 013456
153 013460
154 013464
013464
013470

155 013474
156 013500
157 013502
158 013506
159 013514
160
161 013516
162 013522
163 013524
164 013532
165 013534

000167
004767
005067
112777
005767

000104
000172
017002
000074
017052

105767
001017

016744

001411

004767
112767
000411
105067

002210

012700
004767

025137
005062
016713

105067

000704
105067
112767
000676

005367
001404

1mmm

EXSS:

017002

EXS3A:

016722

016705
177

016672

004000

016746

000010
016700
002000

016676

EXS38:

EXS38
ONCE

NOREM
ONOREM,
RO

THRUF
EXSe
THRUF

1 THEN PRINT END PASS STUFF
100 A PORT CONFIG FUNC.
1CLR CHANGE FLAG
1ENAB BKG SCN,CHGST,THRU INTR

1YES, SKIP IT THIS TIME

tREPORT ALL REGULAR REMOTES

ISET PORT CONFIG AVAILABLE FLAG
0'0 REMOTES. WAIT FOR THRU
PRINT “NO REMOTES..WAITING"

nnm MESSAGE

tPOINTED TO 8Y NOREM
1CLEAR THRU FLAG
1CLEAR THRU FLAG
1SET "ONCE" FLAG
sUPDATE ITERATION COUNT
+IF O, END PASS.
1SW 11 = 1

SKPXO0:

016724

175310

016604

177502

#74,0CSR
TALLY
EXS3A
ONCE
EXS38

PC, TYPOUT

016716

V04660
006170
004346

SKPD2
PC,PRTCNF
CHNGFL

PC,REPORT

016717

SEQ 0056

02:24:05 PAGE 18-3

3253

C20MUCO CMR(V)-11 WOST EXERCISE MACRO VO4.00
' MOST-REMOTE EXERCISE

1%:
SKPX1:

== INM ITER.

+RELOAD ITERATION COUNT
1UPDATE PASS COUNT
1SW 10 = INM END PASS PRINT

tPRINT END PASS STUFF
+IS CLOCK TICKING?
1NO, SKIP PRINTOUT
+PRINT ELAPSED TIME
1KEEP GOING

FS
, C20MJCO CMR(V)-11 MOST EXERCISE MACRO V04.00
| MOST-REMOTE EXERCISE

1
4
3
4

S 013610
6 013614

|
i

7 013620
8 013626
9 013634
10 013640
11 013646
12 013654
13 013660
14 013666
1S 013674
16 013700
17 013706
18 013714
19 013720
20 013724
21 013726

02:24:05 PAGE 19

1PORT CONFIGURATION STATUS SUBROUTINE
tPERFORMS A P.C.S. ON ALL 4 PORTS AND SAVES THE
tREMOTE #'S IN TABLES

005067
005067

016610
016666

012767
012767
004767
012767
012767
004767

031526
000001
001476
031726
000002
001456

012767
012767
004767

012767
012767
004767
005767
001331
000207

031326
000000
001516

032126
000003
001436
016500

016662
016620

016642
016600
016622
016560
016602
016540

PRTCNF: CLR
CLR

MOV
MOV
JSR

MOV
MOV
JSR
MOV
MOV
JSR

MOV
MOV
JSR
TST
BNE
RTS

CHNGFL
TALLY

#EXTBL1, TBLAD
€0, PORN
PC,PORCNF
#EXTBL2, TBLAD
#1,PORN
PC,PORCNF
#EXTBLS, TBLAD
+PORN
PC,PORCNF
#EXTBLA, TBLAD
#3,PORN
PC,PORCNF
CHNGF L
PRTCNF
PC

1CLEAR "CHANGE FLAG"
+CLEAR REMOTE TALLY

1SET UP TO CONFIG PORT O

100 PORT CONFIG ON PORT 0

100 PORT CONFIG ON PORT 1
100 PORT CONFIG ON PORT 2
100 PORT CONFIG ON PORT 3
s ANY CHANGES PENDING?
+IF SO, DO IT ALL OVER

C20MJUC0 CMR(V)-11 MOST EXERCISE MACRO vO4.00

| HOST-REMOTE EXERCISE
1
2

1SUBROUTINE TO DO THE DIAGNOSTIC FUNCTION OR FORCE INTERROGATE
tON ALL REMOTES WHMICH ARE ON LINE AND REGULAR

4 013730
S 013734
6 013740
7 013742
8 013746
9 013752
10 013756
11 013760
12 013764
13 013766
14 013772

012701
012167
001002
000167
012167
105767
001403
004767
000402
004767
005367

17 014000
18 014004
19 014010
20 014012

012701
012167
001002
000167

22 014022
23 014026
24 014030
25 014034
26 014036

105767
001403
004767
000402
004767

{2 013776

21 014016

27 014042

001363

012167

005367

28 014046

001363

30 014054

012167

29 014050
31 014060

32 014062

012701

001002

031326
016470

DIAGFU: MOV
MOV
BNE
JHP
SKP1:
MOV
TST8
BEQ
JSR
BR
SKP1A: JSR
SKP18: DEC

#EXTBL1,R]
(R1)+,CNTR
SKP1
SKkP2
(R1)+,REMNO
FAST
SKP1A
PC, IFORCE
SKP18
PC,DIAGNF
CNTR

1GET TABLE FOR PORT 0O
1GET @ OF MYES ON PORT
tNONE, NEXT PORT

031526
016420

SKP2:

1GET TABLE FOR PORT 1
11ST ENTRY IS @ OF REMOTES

000032
016442
016351

#EXTBL2,R1
(R1)+,CNTR
SKP3

SKP3:

000032

016512
016421
000346

002256
016432

002206

SKP3A:

031726

SKP4:

016362

016350

000032

34 014072
35 014076
36 014100
37 014104
38 014106

105767
001403
004767
000402
004767

016301

40 014116

001363

39 014112

41 014120

42 014124

43 014130
44 014132
45 014136

46 014142
47 014146

48 014150
49 014154

S50 014156
51 014162
52 014166
53 014170
54

012167

005367
012701

012167

001002
000167
012167

105767

001403

BNE

000276

000167

33 014066

02:24:05 PAGE 20

016372

SKP38:

SKPS:

002136

SKPSA:

032126

SKP6:

016300
000032
016322

016231

004767

000156

004767
005367
001363
000207

002066
016242

DEC

BNE
MOV

MOV
BNE

000226
016312

MOV
MOV
BNE
JHP
MOV
TST8
BEQ
JSR
BR
JSR

SKP58:

SKP7:

SKP7A:
SKP78:
SKP8:

JHP
MOV

TST8
BEQ
JSR
BR
JSR
DEC

BNE

SKP1

(R1)+,REMNO

FAST
SKP3A
PC, IFORCE
38
PC,DIAGNF
CNTR

SKP3

#EXTBL3,R1

(R1)+,CNTR
(R1)+,REMNO

FAST
SKP3A
PC, IFORCE
SKPS8
PC,DIAGNF
CNTR

SKPS

1GET 1ST REMOTE ¢
1 'FAST' FLAG SET?
1NO. DIAGNOSTIC FUNCTION
1 YES, FORCE INTERROGATE
100 DIAGNOSTIC FUNC. ON REM,
100 ALL REMOTES ON THIS PORT

1IF _NONE, NEXT PORT
1GET REMOTE NO.
1 'FAST' FLAG SET?
sNO, DIAGNOSTIC FUNCTION
1YES, FORCE INTERROGATE
100 DIAGNOSTIC FUNCTION ON REM.

1 IF _NONE, NEXT PORT
1GET REMOTE ¢

+'FAST' FLAG SET?
tNO, DIAGNOSTIC FUNCTION
1 YES, FORCE INTERROGATE
100 DIAGNOSTIC FUNC. ON REMOTE
1GET TABLE FOR PORT 3

BNE
JP
MOV

SKP7
SKP8
(R1)+,REMNO

1 IF NONE, DONE!
1GET REMOTE ¢

BEQ

SKP7A

17578

FAST

JSR

PC, IFORCE

JSR
D!
BNL
RTS

PC,DIAGNF
CNTR
SKP?7
PC

:0.W 001
:0.W 001
:0.W 001
:0.W 001

+1ST ENTRY IS @ OF REMOTES

#EXTBLA ,R1

(R1)+,CNTR

sD.W 001
+0.W 001
+D.W 001
10.W 001

$GET TABLE FOR PORT 2

MOV

10.W 001
s0.W 001

10.W 001
:0.W 001
:D.W 001
001

11ST ENTRY IS @ OF REMOTES

:'FAST' FLAG SET?

:0.W 001

1YES, FORCE INTERROGATE

10.W 001

tNO, DIAGNOSTIC FUNCTION

100 DIAGNOSTIC FUNCTION ON REM,
tFINISH ALL REMOTES ON THIS PORT
1RETURN

1D.MW 001

10.W 001

C2CMJICO CMR(V)-11 MOST EXERCISE MACRO VO4.00
OO YO UNSB W

MOST-REMOTE EXERCI SE

SEQ 0059

02:24:05 PAGE 21

.lmcaouo SCAN QUEUVE LOADING ROUTINE.

s0.W 001

lMY AVAIL‘E IF RUNNING “GENERAL"” OR FAST MODE.
1PERFORMS THE 'SET MOST PARAMETERS' FUNCTION ON THE HOST
tAND LOADS THE REMOTE NUMBERS (TEMPORARILY STORED IN EXTBL1)
tINTO THE SCAN QUEUE AS MELL AS SETTING THE MOST MODE TO '1’

;10.W 001

s0.W 001
s0.W 001
;s0.W 001

014172

10 014176
11 014204
12 014210
13 014214
14 014222
15 014226
16 014232
17 014236
18 014242
19 014246

20 014254
21 014260
22
23 014266
24 014272

25 014276
26 014302
27
28 014304
29 014312
30 014320
31 014322
32 014326

33 014330

031326
016264
016214
000120
016202

016236
016234
016226
016214
000001

016226
016254

016210

LOQLP:

016120
016112

MOV
8IS
CLR
MOV
MOV
INC
MOV
INC
MOV
INC
MOV

016222

016202
016200
016126

000001

LOQUE:

LDQFC:

003624
LDQRT:

®EXTBLL,R1
#804, 8CSR
BPAR
#120,8SPOR

CNTR,RO

#2,R0
8SPAR
RO, 8SPDR
8SPAR
#1,8SPDR

SSPAR

#1,8SPOR

8SPAR

INC
MOV
DEC
BNE

CNTR
LOQLP

8IS
BIT
BNE
JSR
BR
RTS

800, 8CSR
#814,8CSR
LDQRT
PC,MONIT
LOGFC
PC

1GET TABLE OF REMOTES
;0.W 001
1CLEAR TOP BYTE OF CSR
;D.W 001
tPOINT TO REQUEST SCRATCHPAD
sD.W 001
1GET NUMBER OF ENTRIES
1D.W 001
sLOAD 'SET MOST' FUNCTION
sD.W 001
1CREATE "NO. OF BYTES FOLLOWING”;D.W 001
s INCLUDES MODE € @ OF REQUESTS
sD.W 001
:1D.W 001
1LOAD @ OF BYTES
sD.W 001
:0.W 001
tONE REQUEST
:sD.W 001
;0.4 001
1
tMODE
:D.W 001
sLOAD NEXT REMOTE ¢
sFROM TABLE
sKEEP TRACK

:D.W 001
:1D.W 001
:D.W 001
1D.W 001

:IF DONE, START FUNCTION
+FUNCTION COMPLETE?
+IF YES, EXIT

;D.W 001
;0.4 001
;0.W 001
:0.W 001
;0.4 001
:0.W 001

sANY CONTROL CHARACTERS?

tKEEP AN EYE OPEN
sALL DONE... EXIT

I5
C20MJC0 CMR(V)-11 MOST EXERCISE MACRO VO4.00

MOST-REMOTE EXERCISE

SEQ 0060

02:24:05 PAGE 22

tSUBROUTINE TO DO A 'FORCE INTERROGATE' FUNCTION ON REMOTE IN 'REMNO’

3
4

;0.W 001
;D0.W 001

IFORCE: CLR
MOV
INC
MOV
INC
MOV
INC

005077
(12777
005277
012777
005277
012777
005277

016136
000130
016124
000002
016112
000001
016100

016120

1S 014402
16 0106
1; 014414

004767
0S2777
0S2777

000360
000020
000001

016016
016010

IFRWTO: JSR
BIS
BIS

19 014422
20 014430
21 014432
g 014436

032777
001003
004767
000771

040000

016002

24 014440
25 014446
26 014454
27 014462
28 014470

012777
012767
017767
026767
001416

001000
000130
016016
003410

016026
003422
003416
003410

014472

032777

040000

016000

030747
000050
003272

003360

14 014374

29 014472

014500
014502
014506
014514

30 014520

016777

001007
012700
012767
004767
000051

016064

016106
016074

32 014526
33 014534
34 014542
35 014550
36 014556
37 014560

062777
012767
017767
026767
001434

000002
000001
015730
003322

014560

032777

040000

015712

031024
000051
003204

003272

040000

015664

- 014524

014566
014570
014574
014602
38 014606
39 014614

40 014616
014616

014402

001007
012700
012767
004767
000052
032777
001012

012700

025255

sALWAYS 2 BYTES FOLLOWING

;0.W 001

tALWAYS 1 REQUEST

;0.4 001
:D.W 001

PC,SCALM
#804 ,8CSR
0800, 8CSR

tCLEAR ALARMS ETC VIA SCAN
sCLR TOP BYTE TO START
$1SET START FUNCTION

IFRWT:

BIT
BNE
JSR
BR

#814,8CSR
IFRCN
PC,SCALM
IFRWT

tFUNC COMPL SET?
s+ IF YES CONTINUE
1SCAN FOR ALARMS
sAND WAIT FOR FUNC COMPL

;0.W 001
:0.W 001
:D.W 001
:0.W 001

IFRCN:

MOV
MOV
MOV
cp
BEQ

#1000, 8SPAR
#130,G00D
8SPDR,BAD
GOO0D,BAD
IFRCN1

s ADDRESS RESWLTS SCR-PAD
1CHECK FOR CORRECT FUNCT
sREAD RETURNED FUNC CODE
+IS IT CORRECT (130)?
s YES, LOOK AT RESWLTS

:D.W 001
:0.W 001
:D.W 001
:D0.W 001
:0.W 001

BIT

#814,8SR

BNE
MOV
MOV
JSR
=

SCOPE

IFRUTO
015740
003334
003330
003322

;0.W 001
;:0.W 001

s+LOAD REMOTE NUMBER

002750

s ADDRESS REQUEST SCRATCHPAD
1LOAD FORCE INTERROGATE CODE

REMNO, 8SPOR

DATERR

004567

8SPAR
#130,8SPDR
8SPAR
#2,8SPOR
8SPAR
#1,8SPDR
85PAR

MOV

000330

014520

001

1 THIS REPLACES THE 'DIAGNOSTIC' FUNCTION IF WE'RE RUNNING IN
+ "GENERAL" OR FAST MODE.

7 014332
8 014336
9 014344
10 014350
11 014356
12 014362
13 014370

016132

IFRCN1: ADD
MOV
MOV
cp
BEQ
DATERR
BIT

BNE
MOV
MOV
JSR
B
BIT
BNE

PNTM
MOV

\N,FIFUN

:D.W 001
:D.W 001
:D0.W 001

;ERROR:FORCE INT FUNC GAVE BAD FUNC CODE;:D.W 001
jesessss ERROR SO ssssess

.+20
#F IFUN,RO
#50
, ERRNUM
PC,DERR
Nel
IFRWTO

:0.W 001

RS,SCPRTN

#2,8SPAR
#1,G00D
8SPDR ,BAD
GOO0D,BAD
IFRCN2
\N,FIFUF

sD.W 001

tNOW GET STAT ON FUNCTION
s SHD SHOW SUCCESS
sREAD USOF
1IF 0.K. CONTINUE

1ERROR:USOF WRONG ON FORCE INTERROGATE
jesss08s ERROR S1 #essnss

D.W

:0.W
3
0.W
;D.W

001
001
001
001
001
001

0814 ,8SR

.+20
OF IFUF ,RO
#51 , ERRNUM
PC,DERR
Nel
#814,85R
IFRCNS

REMSG
#REMSG,RO

1PRINT ALLOWED?
tNO., SKIP IT

tPRINT "REMOTE ¢ "
1PRINT MESSAGE

001
D.W 001
:
001

57
58 014756
59 014764
60
61

032777
001007
012700
012767
004767
000053
032777
001012
012700
004767
005277
017700
004767

0014 8SR

015604

031065
003012

#1004, 8SPAR

S@SPOR, #3
IFRCN3
\N,FICME

1NO.

lEm:CW PROBLEMS DURING FRC INTR
iesssess ERROR S2 sssases

003164

sPRINT ALLOWED?
tNO, SKIP IT

015556

sPRINT

“COMM.

sPRINT MESSAGE

025346
015534
015532
004636

IFRC2S:

004567

STAT =

sPOINTED TO BY COMST
s YES. GET COMM STATUS
s+ FROM RES SCRATCHPAD
sAND PRINT IT

014402

052777
000207

i:k:

tCHECK THE REMOTE STATE
1 IS I(T) }(p«mr

IFRCN2:

015446

IFRCNS:

888

014730
53 014734
54 014740
55 014744
56 014750
014750
014754

001034

015616
000003

IFRUTO

RS,SCPRTN

sCLEAR TOP BYTE WHEN DONE
+AND VAMOOSE

— -

014724

027727

IFRCNS:

8888

S0 014714
S1 014722
S2 014724

001004
015614

sPRINT

014666
014674
014676
014702
014710

012777

014402

PC,OCTPNT

tttt

47 014656
48 014664
49 014666

002626

004744

ooa

46 014650

004567

+POINTED TO BY REMSG
1GET REM® FROM RES SCR PAD

8SPAR
8SPOR, RO

44 014642
014642
014646
45

PC, TYPOUT

43 014636

003730
015642
015640

OOOO

42 014632

004767
005277
017700
004767

014622
41 014626

SEQ 0061

02:24:05 PAGE 22-1

3333

CZCMJUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
MOST-REMOTE EXERCISE

SE MACRO v04.00 02:24:05 PAGE 23
EXERCI
MOST
-11
CMR(V)
CO
CZCMJU
| HOST-REMOTE EXERCISE

IKS
SEQ

tSUBROUTINE TO CHECK FOR ALARMS AND CHANGES OF REMOTE STATE.

6 014766

7 014774
8 014776
9 015002
10 015006
11 015012
12 015016
13 015022
14 015030
1S 015032
16 015034

17 015036
18 015044
19 015046
20 015054
21 015062
22 015064
015064

015072
015074
015100
015106
23 015112

015112
24 015116
015116
015122
25 015126
015126
015132
26 015136
27 015144

032777

001415
012700
004767
004767
004767
004767
052777
000240

000240
000240

010000

015436

000007
005114
005110
005104
005100
000020

015402

032777
001531
012777
027727
001415

020000

015366

001000
015416

015420
000310

032777

040000

015406

030607
000053
002614

002766

001007
012700
012767
004767
000054

IF CHANGE OF REMOTE STATE...SET A FLAG

SCALM:

SCA1:

NOP
NOP

004767

002336

012700
004767

025366
003430

012700
004767
012777
017700

025255
003420
001003
015326

012700
004767
005277
032777
001405

025424
003372
015304
000040

012700
004767
000416
032777
001405

025450
003346

012700
004767
000410
017700

025461
003324

TM
SCA2:

015330

000100

015236

015256

SCA2A:

SCA28:

SCA1
#7,R0
PC,.TT0
PC,TTO
PC,TTO
PC,TTO
@804 ,8CSR

#813,8CSR
SCA3
#1000, 8SPAR
8SPOR, #310
SCA2

BIT

#814,8SR

\N,SYSER

BNE
MOV
MOV
JSR
-

.+20
#SYSER,RO
053, ERRNUM
PC,.ERR
Nel

JSR
PNTM
MOV
JSR
PNTM
MOV
JSR
MOV
MOV

PC,SWHLT
REMCHG
#REMCHG , RO
oC, TYPOUT
REMSG
OREMSG, RO
PC, TYPOUT
#1003, 8SPAR
8SPOR,RO

PNTM
MOV
JSR
INC
BIT
BEQ
PNTM
MOV
JSR
BR
BIT
BEQ
PNTM
MOV
JSR
BR
MOV

REMSTM
O#REMSTM,RO
PC, TYPOUT
8SPAR
#805, 8SPOR
SCA2A
REGMG
RO
PC, TYPOUT
SCA2C
#806 , 9SPOR
SCA28
IRRGMG
@IRRGMG, RO
PC, TYPOUT
SCA20
8SPDR,RO

HLT

JSR

015300

0812,8CSR

BIT
8EQ
MOV
cHp
BEQ

ERROR

28 015150 004767 004432
29 015154
015154
015160
30 015164
31 015170
32 015176
33 015200
015200
015204
34 015210
55 015212
36 015220
37 015222
015222
015226
38 015232
39 015234

BIT

BEQ
MOV
JSR
JSR
JSR
JSR
8IS
NOP

PC.W*’NT

s ALARMS?

tNO, CHECK FOR CHG ST,
sALARM! RING TTY BELLS

tCLR ALARM
sCHANGE OF STATE?
sNO, CHECK THRU
1SEE IF THIS IS A SYS ERR
s+ OR REMOTE CHANGE
sREMOTE CHANGE IS 0.K.

tERROR :HOST SYS ERROR. RUN LOGIC TEST.
;1s8s888s ERROR S3 ssessss

sPRINT “REMOTE STATUS CHANGE "
s PRINT MESSAGE
sPOINTED TO BY REMCHG
sPRINT "REMOTE ¢ *
1PRINT MESSAGE
sPOINTED TO BY REMSG
;GET THE REMOTE NUMBER

sPRINT IT

sPRINT “REMOTE STATUS NOW *
tPRINT MESSAGE
sPOINTED TO BY REMSTM
1NOW REGULAR?
+NO
tYES, PRINT “REGULAR"
1PRINT MESSAGE
+POINTED TO BY REGMG

+ IRREGULAR?
1YES, PRINT “IRREGULAR"
1PRINT MESSAGE
1POINTED TO BY IRRGMG

1tOTHERWISE, JUST PRINT THE STATUS

0062

—

—
>
o
e

A
. C20MUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
| MOST-REMOTE EXERCISE

004342

47 015266

004767
000410
005267
000405
005767
001402
005367
005767

49 015274

105067

015106

012700
004767
012767
052777
000167
032777
001406
112767
052777
000207

025474
003246

40 015240
41 0i5244

42 015246

;

‘

43 015252
44 015254
45 015260

46 015262
48 015272

S0 015300

015300
015304
51 015310
S2 015316
S3 015324
54 015330
SS 015336
56 015340
57 015346
S8 015354

001006

JSR

015234

SCA2C:

015226

SCA20:

015220

SCA2E:

015214

OEC

TST
BNE

CLR8

015106
015106

SCA2F:

004000

015074

SCAS:

177777

015045

000020

BR
INC
BR
TST
BEQ

PNTM

177777
000020

177500

02:24:05 PAGE 23-1

015056

MOV
JSR
MOV
8IS
JP
gé;

MOVE
SCART:

BIS
RTS

PC,OCTPNT
SCA2E
TALLY
SCA2E
TALLY
SCA2E

TALLY

TALLY
SCAF

ONCE

ALROFF

®ALROFF ,RO
PC, TYPOUT
#-1,CHNGFL
€20,8CSR
SCA1
811 $ 8CSR

0-1, THRUF

920, 8CSR
PC

tAND LEAVE THE TALLY ALONE
tUPDATE TALLY FOR ADDED REMOTE

1IS TALLY ALREADY =0?
1 YES, FORGET IT
tNO, MAKE IT ONE LESS
+IS TALLY NOW 07
.m. o.K.
1YES, HAVE TO START OVER
tPRINT "ALL REMOTES ARE IRREGULAR"
1PRINT MESSAGE
tPOINTED YO BY ALROFF
1SET CHANGE FLAG
1CLEAR TOP BYTE
1GO SEE IF ANY MORE CHANGES.
1YES, SET THE "THRUF" FLAG

+CLEAR TOP BYTE

—

———

M5
CZ2CMJICO CMR(V)-11 HOST EXERCISE MACRO V04.00

' MOST-REMOTE EXERCISE

SEQ 0064

02:24:05 PAGE 24

tSUBROUTINE TO PERFORM "PORT CONFIGURATION STATUS” ON A GIVEN
tPORT AND STORE THE RESULTS IN A GIVEN TABLE. ALSO

3
4

1STORED IS THE STATUS OF EACH REMOTE
tFOR EACH REGULAR REMOTE FOUND, A TALLY IS INCREMENTED

:TABLES ARE IN THE FOLLOWING FORMAT:

S
7

® OF ENTRIES

ENEH STATHREH )

l!l)
1

12 015356
13 015362
14 015370

1S 015374
16 015402
17 015406
18 015414
19 015420
20 015426
21 015432
22 015440
23 015444
24 015452

25 015460
26 015462
27 015466
28 015470

29 015474
30 015502
31 015510
32 015512

015512

015520
015522
015526
015534
33 015540

016701
0S2777
005077

012777
005277
012777
005277
012777
005277
016777
004767

0S2777
032777

001003
004767

000771
004767

012777
027727
001415
032777

001007
012700
012767
004767
000055

015126
000020
015100

000140
015066
000002
(15054
000001
015042
015016
177322

000001
040000

002456
001000
014770

001003

45 015612
46 015616
47 015624
48 015630
49 015632

005277

117721
062777
005367
001364

005767

014760
014752

014772
000140

002340

012777

44 015606

015036

030607
000054
002166

42 015574

117721

015050

014760

001710
014724
014722

43 015602

015062

040000

004767
005277
017700
006200
006200
010021
001002
000167
010067

015074

PORCNF: MOV
8IS
CLR

PORO:

177300

015540
34 015544
35 015550
36 015554
37 015556
38 015560
39 015562
40 015564

41 015570

015042

N
POR1:

000042
014634

014670

014672

014662

014660
000003
014600
014616

POROO:

PORLD:

PORCN:

014650
PORXT:

MOV
INC
MOV
INC
MOV
INC
MOV
JSR

TBLAD,R1
0804 ,8CSR
&sF AR
#140,8SPDR
8SPAR
#2,8SPOR
8SPAR
#1,8SPDR
8SPAR
PORN, 8SPDR
PC,SCALM

BNE
JSR

POROO
PC,SCALM

MOV
cp
BEQ

ERROR

PC,MONIT
#1000, 8SPAR
8SPDR, #140
POR1
\N,SYSER

BIT

#814,8SR

BIS
BIT

BR
JSR

#800,8CSR
#814,8CSR

BNE
MOV
MOV
JSR
=

.+20
OSYSER,RO
@54 , ERRNUM
PC.ERR
Nel

JSR
INC
MOV
ASR
ASR
MOV
BNE
JP

PC,SWHLT
8SPAR
8SPOR,RO
RO
RO
RO,(R1).
PORLD
PORXT

MOV

#1003, 8SPAR

MOV

MOVB

INC

MOVB
ADD
DEC
BNE
TST

s TABLE ADOR GIVEN BY CALLER
tCLR TOP BYTE OF CSR
+ADDR REQ. SCPD
sLOAD PORT CONF. ST. FUNC.

tDATA LEN. = 2
+ ONE REQUEST

1PORT & GIVEN BY CALLER
sCLEAR ALARMS € CHANGES
sFUNCTION COMPLETE?
1SCAN ALARMS AGAIN
+ADDR RESWLT SCPD
s THIS RESULT FROM PORT CONFIG?

;ERROR:HOST SYS ERROR. RUN LOGIC TEST
;sesssss ERROR 54

sssssss

iGET @ OF REMOTES

:DIVIDE BY 4

RO,CNTR

;SAVE AS @ OF ENTRIES
:IF MORE THAN O, LOAD THEM
1IF NONE, EXIT
@ OF ENTRIES
iGET

m.(nx).

;LOAD REMOTE @

8SPOR,(R1)+
#3,8SPAR
CNTR
PORCN

;LOAD REM. STATUS

BSPAR

PORN

1GOT THEM ALL?
tNO, GET THE REST

1PORT 07

| C20MJCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
' MOST-REMOTE EXERCISE
S0 015636
S1 015640
S2 015644
S3 015650
S4 015656

001002

005067
060067
052777
000207

014642
014636
000020

014554

14:

SEQ 0065

02:24:05 PAGE 24-1
BNE
CLR
ADD
8IS
RTS

tNO, NEVER MIND
1YES, CLEAR TALLY

tUPDATE TALLY
tCLR TOP BYTE
1 ANC RE TURN

—

PAGE 25
02:24:05
VO4.00
MACRO
EXERCISE
CZCMJUCO CMR(V)-11 MOST
E

B6
SEQ

MOST-REMOTE EXERCIS
1

{SUBROUTINE TO REPORT THE STATUS OF EACH PORT WHICH MAS ANY

{REMOTES ATTACMEC AND REGULAR.

4 015660

REPORT: PNTM

015660
015664
S 015670
6 0156784
7 015702
8 015706
9 015712
10 015714
11 015720
12 015726
13 C15732

012700
004767
105067
012767
012701
012167
001407
105267
012767
004767

025267
002666
014513
000006 014540
031326
014516
014467

000000 014526
000130
012701 031526
012167 014466
001407
105267 014437
012767 000001 014476
004767 000100
012701 031726
012167 014436
001407
105267 014407
012767 000002 014446
004767 000050
012701 032126
012167 014406
001407
105267 014357
012767 000003 014416
004767 000020

14 015736
1S 015742
16 015744
17 015750
18 015756
19 015762
20 015766
21 015772
22 015774
23 016000
24 016006
25 016012
26 016016
27 016022
28 016C24
29 016030
30 016036
31 016042 105767 014341
32 016046 001004
33 016050
016050 012700 025474
016054 004767 002476
34 016060 000207

REPO:

REP1:

REP2:

REP20:

REPS:

MOV
JSR
CLR8
MOV
MOV
MOV
BEQ
INCB
MOV
JSR
MOV

MOV
B8EQ
INCB
MOV
JSR
MOV
MOV
BEQ
INCB
MOV
JSR
MOV
MOV
BEQ
INCB
MOV
JSR
TSTB
BNE
PNTM
MOV
JSR
RTS

CONFMS

OCONFMS , RO
PC, TYPOUT
PNCFLG
06, LINLEN
SEXTBL1,R1
(R1)+,CNTR
REPO
PNCFLG
€0, PORN
PC . PRNREM
SEXTBL2,R1

(R1)+,CNTR
REP1
PNCFLG
01, PORN
PC . PRNREM
SEXTBLS,R1
(R1)+,CNTR
REP2
PNCFLG
02, PORN
PC . PRNREM
SEXTBLS ,R1
(R1)+,CNTR
REP20
PNCFLG
03, P0RN
PC . PRNREM
PNCFLG
REP3
ALROFF
OALROFF ,RO
PC, TYPOUT
PC

{PRINT "se PORT CONFIGURATION oo

JPRINT MESSAGE
sPOINTED TO BY CONFMS
sCLR "PRINTED SOMETHING" FLAG
sALLOM 6 REM'S PER LINE.
1GET PORT TABLE
{GET
OF REMOTES
NEXT PORT
{NONE @MERE,
1SET FLAG

;LOAD PORT NO.
1GO PRINT REMOTES ON THIS PORT
{GET @ OF REMOTES
INONE MERE, NEXT PORT
1SET FLAG

;GO PRINT REMOTES ON THIS PORT
{GET @ OF REMOTES
iNONE MERE, NEXT PORT
1SET FLAG

;GO PRINT REMOTES ON THIS PORT
{GET @ OF REMOTES
JNONE ME'RE DONE
1SET FLAG

;GO PRINT REMOTES ON THIS PORT
{PRINTED ANYTHING?
JYES, FINE.
iNO, SAY ALL ARE IRREGULAR.
sPRINT MESSAGE
;POINTED TO BY ALROFF
IRETURN WHEN NONE

0066

Cé
EXERCISE MACRO vO4.00

SEQ 0067

02:24:05 PAGE 26

tSUBROUTINE TO DO THE PRINTING PART OF PORT CONFIGURATION REPORT,
l!l 'OINTS AT FIRSY REMOTE ¢
¢
* PORT

tCNTR = @ OF REMOTES ON THIS PORT

28 016206
29 016212
30 016216
31 016222
32 016224
33 016230
34 016234
35 016240
36 016246

000006

014252

000007

014220
PREM1:

3662

000006

014174

19 016142
20 016146
21 016152
22 016154
23 016160
24 016162
25 016170
26 016174
27 016200

18 016136

13 016114
14 016120
15 016124
16 016126
17 016132

3533RRE3333RRERG3L §§§§§§§§§§§

PRNREM: PNTM

PORTMS

tPRINT

"PORT @

PC, TYPOUT
PORN, RO

1PRINT MESSAGE
tPOINTED TO BY PORTMS
1GET PORT ¢

#177400,R0

lfi? REMOTE ¢
lCLI HIGH BYTE

OPORTMS ,RO

PC,OCTPNT
PC,OCTJSP
(,RO
¢

pC, 110

#177400,R0

PC,OCTPNT

5
%

PC, no
CNTfl

PREML

LINLEN
PREMO

sPRINT IT

PRINT IT

aflmf THE STATE
1GET REM. STATE

sCLEAR THE JUNK OFF
tPRINT THE STATE

1CLOSE BRACKETS

sEXIT IF ALL DONE

sFILLED A LINE?

06,LINLEN

+YES, RESTORE LIML.EN

PC,TTO

1 CARRIAGE RETURN
1SPACE PAST PORT ¢

#15,R0

#7,C0LK
#40,RO

PC.TT0
CLK

PREML
PREMO
#15,R0

PC.TT0
06 ,LINLEN
PC

sANOTHER <CR>
1AND RETURN

D6
EXERCISE MACRO VO4.00

SEQ 0068

02:24:05 PAGE 27

tSUBROUTINE TO DO DIAGNOSTIC FUNCTION ON A GIVEN REMOTE
tENTER WITH REMOTE @ IN "REMNO"

7 y
M

014202

022, 8SPOR

014170

asp

014034

014060
001454
001450
001442

OIAGOO:

DIAGL:

DIAG10:

014032
001412

013772

032777
012767
032777
001036

013716

DIAG2:

014050

DIAGO:

ey | P

014156
014144

iuR2

"§23RT §§3§§§§§§'§§§35 §§3§§§’§!§5§§3§§2§2§2§2§E§§

OIAGNF :

2:“

014150

1SET UP TO LOAD REQUEST

tADDRESS REQ SCR PAD
tLOAD "DIAG” FUNC

sOATA LEN, = 22

1ONE REQUEST
s1LOAD REMOTE ¢

sLOAD DATA PATTERN

sCLEAR ALARMS ETC.
sCLR TOP BYTE
1SET START FUNC.
sFUN COMPL?
iNO, WAIT FOR IT
sADORESS RESWLT SCR. PAD
sRIGHT FUNCTION?

1ERROR:DIAG FUNC GAVE WRONG FUNC CODE
jesessss ERROR SS essesese

sCHECK FUNCTION STATUS
1SHD SHOW SUCCESS
10.K,
1ERROR: USOF WRONG ON “DIAG” FUNC

je0seeee ERROR S6 eeessee

1PRINT ALLOWED?
iNCG, SKIP IT
1PRINT

“REMOTE @ "

E6
| C20MUC0 CMR(V)-11 HOST EXERCISE MACRO v04.00
| MOST-REMOTE EXERCISE

016564
016570
42 016574
a3 016600
a4 016604
45 016610
016610
016614
a6 016620
47 016624
48 016630

012700
004767
005277
017700
004767
012700
004767
005277
017700
004767

SS 016674

000207

49 016634

016634
016640
SO 016644
S1 016650
S2 016654
S3 016660
016660
016664
S4 016666

012700
004767
005277
017700
004767
004567
016350
052777

025255
001762
013674
013672
002776
025323
001736
013650
013646
002752

02:24:05 PAGE 27-1

MOV
JSR
INC
MOV
JSR
PNTM
MOV
JSR
INC
MOV
JSR

PNTM

OREMSG ,RO
PC,
TYPOUT
8SPAR
8SPDR, RO
PC,OCTPNT
STATEM
#STATEM, RO
PC, TYPOUT
8SPAR
8SPOR, RO
PC,OCTPNT
USORM
SUSORM, RO
PC, TYPOUT
8SPAR
8SPOR,
PC,OCTPNT

025335
MOV
001712
JSR
013624
INC
013622
MOV
JSR
002726
DIAG3S: SCOPE
DIAGOO
000610
JSR
RS, SCPRTN
DIAGOO
000020 013536 DIAGA: BIS
0804 , 8CSR
RTS

JPRINT MESSAGE
{POINTED TO BY REMSG
{GET REM. NO.
JPRINT IT
JPRINT “STATE *
1PRINT MESSAGE
sPOINTED TO BY STATEM
JGET STAE OF REMOTE
{PRINT “USOR = *

{PRINT MESSAGE
;POINTED TO BY USORM

JCLEAR TOP BYTE WMEN DONE

—

c—

. C2CMJUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
' MAINTENANCE ROUTINE
1

.SBTTL

e
3

SEQ 007

02:24:05 PAGE 28
MAINTENANCE ROUTINE

a
S

1 THIS ROUTINE WORKS LIKE ODT BASICALLY BUT
tONLY ON THE CMR-11 SCRATCHPAD MEMORY.

1TYPING “G* CAUSES EXECUTION OF THE FUNCTION

1 THE REQUEST SCR. PAD MAY BE LOADED/READ

8
9
10
11
12
13
14
15

le COMPLETION OF THE FUNCTION CAUSES
+THE FIRST LOCATION OF THE RESWLT SCR. PAD
+ _TO BE PRINTED.
1THE CMR-11 CSR MAY BE EXAMINED BY TYPING
s IT'S BUS ADDRESS FOLLOMWED BY SLASH (/)
+ EXIT IS ACMIEVED BY TYPING CNTRL-C
tOR
"P* TO PROCEED
TO THE POINT AT WHICH THE
tMAIN PROGRAM WAS INTERRUPTED.

17 016676
18 016702
19 016704
20 016710
21 016714
22 016722
23 016730
016730
016734

105767
001404
017746
005077
112767
017767

013471

012700
004767

022742
001616

25 016744
26 016752
27 016756
28 016764
29 016772
30 016774

016767
004767
016767
026727
101423
026767

013446
001642
002546
013426
°
013416

24 016740

31 017002
32 017004
33 017010
34 017014
35 017020
36 017024
37 017030

017030

005067

001012
017700
004767
012700
004767
000167
012700

017034
38 017040
39 017042

004767
000741
105767

41 017050
42 017054

105767
001462

40 017046
43 017056

44 017064
45 017070

46 017076

47 017100

48 017106
49 017110

S50 017116
S1 017124
32 017126
53 017132

001042
032777

0035077
027727

101404

0352777

000403
032777

032777
001003
004767
000771

013622
013616
177777
013504

013452

ODTPR:

013454
013542

002556

$004:

$08:

¢14:

013432
001777
013430

013422
002620
000015
003076
177710

$106:

022624

001516
013344

$24:

013324
000020

013404
013402

013346

000151

000200

013324

000001

013314

100000

001020

$2A$:

013306

TSTB
B8EQ
MOV
CLR
MOVE
MOV
PNTM
MOV
JSR
CLR

MOV
JSR
MOV
ce
BLOS
ce
BNE
MOV
JSR
MOV
JSR
JP

PNTM

MOV

444:

#0BAID,RO
PC, TYPOUT
ADOR

ADOR , KBBUF
PC, INPKB
KBBUF
, ADDR
ADOR, #1777
$24
ADOR,CSR
4104
8CSR,RO
PC,0CTJUSP
#15,R0
PC,TTO
$04
AGAIN

OAGAIN, RO

JSR
BR
1578

PC, TYPOUT
$14
SLFL

1518
BEQ

GOFLG
4204

CLR
cP

85P
8SPOR, #151

BIS

#807,8CSR

BIT
BNE
JSR
BR

#815,8CSR
54
PC,MONIT
$44

BIS

BLOS
¢34:

CLKFLG
$004¢
@LCS,-(SP)
aLCsS
#-1,08FLG
8CSR, SAVEC

BR
8IS

$114

0804, 8CSR

134

b4
800, 8CSR

1STOP CLOCK WHILE WE'RE HERE
18Y CLEARING INTR ENAB
+IF IT'S SET

1SET _DEBUG FLAG
1SAVE CSR FOR LOOKING AT
tPRINT "CMR-11 DEBUG AID"
1PRINT MESSAGE
+POINTED TO BY DBAID
1GET ADDRESS
+ FROM KEYBOARD
sWITHIN LIMIT?
s YES, 0.K,
+IS IT THE CSR?
iNO
s YES, SHOW CONTENTS OF CSR

1PRINT MESSAGE

1POINTED TO BY AGAIN
$SLASH HIT?

1 YES DUMP DATA

1 "G” TYPED?
1NO

1 INSURE TOP BYTE CLEAR

+ADDRESS FUNC. CODE
+IS FUNC NOT MAINT?

1IT'S NOT MAINT. DO IT

+IT IS MAINT, SET "MAIN"

1SET _“STFUN"

1IS THERE AN INTR?
1YES, SEE WHAT IT IS

L6
C20MUC0 CMR(V)-11 MNOST EXERCISE MACRO VO4.00

MAINTENANCE ROUTINE

013236
013310
002442

013312

012700
004767
017767
004767
016777
105767
001421
005267
016700

023071
001354
013270
001404
002310
013154
013162
013156
001777

71 017246
72 017252

013254

$S4:

1 ADDRESS RESWLT

MOV
MOV
JSR

100 <CR»

tLOAD "ADORESS"
1GET "CONTENTS”
tAND PRINT IT
1SPACE AND PROMPT (:)
tPRINT MESSAGE
+POINTED TO BY TWOSP

$118:

$20%:
$214:

$224:

177662
013114

$134:

177650
013064

$234:

013254

323253
ON- ggu

001000
000015
002750

64 017214
65 017222
66 017226
67 017230
68 017234
69 017240
70 017244

012767
012700
004767
000430
016777
017700
004767

S4 017134
SS 017142
S6 017146
S? 017152
S8 017154
59 017162
60 017166
61 017172
017172
017176
62 017202
63 017210

02:24:05 PAGE 28-1

91 017352

s+VALID ADDRESS?
' YES, 0.K.
sNO GOOD. GET A NEW ONE!
tPRINT NEW ADDRESS
sPRINT A SLASH

1"6" T

sYES, START FUNCTION

013045

$254:

013176
013036
013106

$264:

013100

+IF YES, INCREMENT ADDRESS

1GO PRINT CONTENTS

013062

87 017334
88 017340
89 017344
90 017346

1GET KBD INPUT
tLOAD ANY NEW INPUT
1LINE FEED?

$244:

$264

DBFLG
PCONT
$244
PCONT, (SP)
PC

sCHECK ON CLOCK FLAG
sNO CLOCK, SKIP
tRESTORE CLOCK IF GOING
1CLEAR DEBUG FLAG
s ANY PROMPTS PENDING?

tNO, JUST RETURN TO CALLER
1 YES, RETYPE PROMPT,
tUNOFFICIAL RETURN

EXERCISE MACRO V04,00 02:24:05 PAGE 29
MOST
CMR(V)-11
OY ROUTIN
C20MJIC
ES
UTILIT
1

.SBTTL

VUTILITY ROUTINES

tROUTINES TO SAVE AND RESTORE GENERAL REGISTERS
+ CALLED BY JUSR RS,REGSAV
JSR RS,REGRES
+ AND

4
S
6
7

8 017354
9 017356

10 017360
11 017362
12 017364
{2 017366

010446
010346
010246
010146
010046
000115

REGSAV: MOV
MOV

MOV
MOV
MOV
JP

R4, -(SP)
RS, -(SP)
R2,-(SP)
R1,-(SP)
RO, -(SP)
8RS

1S 017370
16 017372
17 017374
18 017376
19 017400
20 017402

030026
012600
012601
012602
012603
012604

REGRES: BIT
MOV
MOV
MOV
MOV
MOV

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

gé 017404

000205

RTS

gz
25 017406

gg 017414

g 017432

112767

000002

177777

012767
012767

000002

032502
177777

012767

012706

002000

012700
004767
000167

022767
001106
162442

005767
001403
004767

47 017470

000000

000207

013024

013054
013052

SRTST:

MOV
MOV
RTI

DVATST: MOV
PNTM
MOV
JSR
JP

SWMLT:

TST
BEQ
JSR

14:

HALT

000516

000207

55 017506

RTI

®-1,LSIFLG

+SET LSI-11 SOFTWARE FLAG

tRETURN

#SSWR, SR
#-1,SWRFLG

*NO HARDWARE SWR, JSE
s+ MEMORY LOCATION
+

AND SET FLAG

01ISP,SP
INVLAD
@INVLAD,RO
PC, TYPOUT
PROMT

tFIX THE STACK
sPRINT NON-EXST ADDR MSG
1PRINT MESSAGE
tPOINTED TO BY INVLAD
1GO GET CORRECT ADDRESS

sON NON SWR PROCESSORS (CALLED BY MACRO "WLT")

43 017454
“4 017460
45 017462

52 017474
53 017500
54 017504

MOV

sROUTINE TO REPLACE HALT WITH CALL TO SW MONITOR

:: 017472

LSTST:

sROUTINE TO PRINT ILLEGAL DEVICE ADORESS

45 017466

tROUTINE TO SET SOFTWARE SWITCH REGISTER FLAG

;

36 017434
37 017440
017440
017444
g 017450

s THROW AWAY OLD RS VALUE

sROUTINE TO SET LSI-11 FLAG (SOF TWARE)

Zzg
30 017416
31 017424

SEQ

RTS

SWRFLG
14
PC, SWOMP

1 ANY HARDWARE SWR?
+IF YES, GO MALT
+IF NO, DUMP SWITCHES

1 CONTINVE

s CONTINVE

tREAL MALT

tROUTINE USED FOR LOOPING ON ERROR ROUTINE (CALLED BY MACRO “SCOPE")
004767
005777
100402

000452
012774

SCPRTN: JSR
TST
BMI

PC,MONIT
8SR
SBAK

1CHECK FOR *G, OR tC
1IS SW 15 SET?
1YES, DON'T MALT

|COMMON ERROR HALT

007
@ 0072

16
- C2CMJC0 CMR(V)-11 MOST EXERCISE MACRO VO4.00

' UTILITY ROUTINES

004767
012500
032777
001402
012605
000110
005267
001003
112767

017506
S6 017512
S7 017514
S8 017522
S9 017524
60 017526
61 017530
62 017534
63 017536
64 017544

l
|

177742

012756

020000

SCONT:

177777

012641

69 017546
70 017552

016700
010067

76 017602

062700
010067
016700
012760

71 017556
72 017562
73 017566
74 017572
75 017576

062700
010067

;; 017610

000207

DEVGEN: MOV
MOV

DEVADR,RC
RO,CSR

000340

ADD
MOV
MOV
MOV

#2,R0
RO, SPOR
VECTOR,RO
9#340,2(R0O)

000002
012706
000002
012700
012716

ADO
MOV

000002

012700
004767
016700
004767
012700
004767

012700
004767
000207

000050
002300
001702
001754
000051
002260

000040
002250

MOV
JSR
RTS

#2,R0
RO, SPAR

+GET DEVICE CSR ADDRESS
1GENERATE CSR
1GENERATE SPAR
:GENERATE SPDR

:RETURN

@' (,RO
PC,TT0
KBBUF ,RO
PC,OCTPNT
®'),RO
PC,TT0
¢ ,RO
PC,TTO
PC

:GET OPEN PARENTHASIS
sPRINT IT
:GET DEFAULT VALUE
sPRINT IT
sGET CLOSE PARENTHASIS
sPRINT IT
:AND PRINT A SPACE

sROUTINE TO CATCH ERROR TRAPS TO LOC 4
011667
012706

012632
002000

012700
004767
162767
016700
004767
004767
012706
000167

023033
000662
000002
012604
001674
002052
002000
162572

HDER:

012610

{gz
108 017726
109 017732

+AND RETURN

ENTER WITH DEFAULT VALUE IN LOC. KBBUF

PROFLT: MOV
JSR
MOV
JSR
MOV
JSR

104

RTS

82 017612
83 017616
84 017622
85 017626
86 017632
87 017636
88 017642
89 017646
?i 017652

107

sGET DIRECTION FOR SCOPE LOOP
sSW 13 SET?
sNO, DON'T LOOP
1YES, RESTORE RS
s AND LOOP
tUPDATE ERR CNT IF "FALL THRU"
sWATCH FOR ERRCNT OFLO
sSET OVERFLO FLAG.

;ROUTINE TO PRINT DEFAULT VALUES FOR PROMPTS AT FRONT END.

SCORTN: RTS

PC,SWHLT
(RS)+,RO
#B813,85R
SCONT
(SP)+,R5
(RO)
ERRCNT
SCORTN
#-1,0FLOF

012750
012654

144

94 017654
95 017660
96 017664
017664
017670
97 017674
98 017702
99 017706
100 017712
101 017716
{g“s’ 017722

JSR
MOV
BIT
BEQ
MOV
JHP
INC
BNE
MOve

;ROUTINE TO GENERATE CSC DEVICE ADDRESSES FROM "DEVADR"

SBAK:

SEQ 0073

02:24:05 PAGE 29-1

MOV
MOV
PNTM
MOV
JSR
SUB
MOV
JSR
JSR
MOV
JP

(SP),TEMP
@1ISP,SP
TRP4
#TRP4 ,RO
PC,TYPOUT
02, TEMP
TEMP ,RO
PC,OCTPNT
PC.NULLS
#ISP,SP
RESTRT

$SAVE STACK FOR ADDR OF TRAP
sRENEW STACK BEFORE USING
sPRINT “TRAPPED TO 4 FROM LOC *
s PRINT MESSAGE
1POINTED TO BY TRP4
1PRINT SOURCE OF TRAP

;REFRESH STACK POINTER

+ERROR ROUTINES: REGULAR ERRORS AND DATA ERRORS.
011667
162767

000140
000026

000132

ERR:

MOV
SuB

(SP),ERRAD
026 ,ERRAD

+GET ADDRESS OF ERROR CALL
1CORRECT IT

J6
C2CMJCO CMR(V)-11 MOST EXERCISE MACRO v04.00
' UTILITY ROUTINES
110 017740
111 017742
017742
017746
112 017752
113 017756
114 017762
017762
017766

ERR]:

010046
012700
004767

020102

016700
004767

000116
001624

012700
004767

020115

016700
004767
012600
004767
000207

122 020012
123 020016
124 020024

011667
162767
004767

000054
000026

020030
020034
126 020040
127 020044

012700
004767
016700
004767

020127
000516
000032
001536

020050
020054
129 020060

012700
004767
016700

020143

130 020064
131 020070
132
133
134
135
136 020072
137 020074
138 020076
139 020100
140

004767
000207

146 020127

020132
020135
020140

sPRINT

177710

sPRINT MESSAGE
;POINTED TO BY WOWAS

MOV

000476
000014
001516

sPRINT BAD DATA

:RETURN

RTS

0
0
0
0

(ONLY SOME OF IT)

ERRM

.ASCII

/EE++ERROR 8/

040

101
114

124
117

WDAT:

.ASCII

7/ AT LOC. &/

046

123
125

110
114
102

WOS08:

.ASCII

/ESHOUWLD BE &/

i23

040

127

WOWAS:

.ASCII

/.,

147 020143

054

020151

100

”

:PRINT GCOD DAT

sPRINT *, WAS "

122
122

117
104
105

" AT LOC.

tGET ADDRESS OF ERROR CALL
sCORRECT IT
tPRINT REG. ERROR MSG
sPRINT "SHOUWLD BE “
s PRINT MESSAGE
sPOINTED TO BY WDSDB

105
117

040
103
100

sPRINT MESSAGE
sPOINTED TO BY WDAT

sASSOCIATED ASCII

145 020115

"#«ERROR

1PRINT MESSAGE
sPOINTED TO BY ERRM
sPRINT ERROR NO. (P)

000546

000000

052
122
040

1 STACK ERROR MSG ADOR

tPRINT

sPRINT ADDRESS OF ERROR
:GET ADDR OF ERROR MSG
sPRINT ERR MSG
sRETURN

000000
000000
000000

046

020120
020123
020126

RRM

sRELATED STORAGE :

141
142
143
144 020102

020105
020110
020113

MOV
PNTM
MOV
JSR
MOV
JSR
PNTM

000564
000074
001604

115 017772
116 017776
117 020002
118 020004
119 020010

SEQ 0074

02:24:05 PAGE 29-2

WAS &/

K6
- C2CMJCO CMR(V)-11 HOST EXERCISE MACRO V04.00

UTILITY ROUTINES

148

02:24:05 PAGE 29-3
.EVEN

SEQ 0075

L6
. CZCMICO CMR(V)-11 MOST EXERCISE MACRO VO4.00
*SMITCH" MONITOR ROUTINE

02:24:05 PAGE 30

OB YO NS W

.SBTTL

"SWITCH" MONITOR ROUTINE

{ENTER AT MONIT FROM EVERY SUB-TEST TO SEE IF CNTRL-G OR CNTRL-C WAS TYPED
tENTER AT SWOMP FROM ERROR MALTS IF SW 15 = O
MLSO MITQS THE FOLLOWING CONTROL FUNCTIONS:
P CONTINUE (PROCEED)
CNTRL-0 GO TO CMR-11 DEBUG ROUTINE
CNTRL-A DUMP PORT CONFIG TABLES

MONIT:

TST8

BMI

001266
012202

012212

CCRTN:
CONTM1:

EX1:

EX2:

EX4;

MOV

8IC

1TRIM OFF PARITY BIT

PNTM

sNO, EXIT
tPRINT "SWR = *

333RT IRITERILARIE LT 3333253833353¢3 7%

MONIC:
MONCH:

1CHECK KEYBOARD FLAG
s IF SET, CHECK WHAT CHAR.
1OTHERWISE, EXIT

sWAS IT G?

'GET CMEN?S OF SR

tPRINT IT
1SPACE AND PROMPT (:)
sPRINT MESSAGE
sPOINTED TO BY TWOSP
:LOAD OLD SWITCHES
:LOAD RETURN ADDRESS
tGET KBD INPUT
1LOAD NEW SWITCHES
tPRINT “P TO CONTINUE"
sPRINT MESSAGE
+POINTED TO BY TYPCTP

|IS§H OFF PARITY BIT
:

IYSS% GET SWR AGAIN
’.

tNO, KEEP LOOXING
tRETURN LINE

tWAS A *T TYPED?
s1NO, EXIT

t1YES, RENEW STACK
1BACK TO DISPATCHER
1WAS CNTRL-0 TYPED?
1)
tAND GO TO DEBUG ROUTINE

azss CNTRL-C TYPED?
1NO.

1YES, REFRESH STACK
1AND RESTART
tWAS IT *F?

M6
. CZOMJCO CMR(V)-11 HOST EXERCISE MACRO v04.00
| *SWITCH" MONITOR ROUTINE
S2 020412
3.3 020414

001012
105767
001007
105767
001004
005067
004767
020027

001002
004767
000207

tNO, EXIT
+IS DEBUG FLAG SET?

BNE
1578
BNE

011756

tYES, JUST RETURN
sALREADY IN FILL RTN?
1YES, JUST RETURN

TS78

o11762

tCLEAR PROMPT CARRIER
1SNEAK INTO FILL COUNT ROUTINE
1WAS tA TYPED?
tNOPE, BYE!

012016

000432
000001

001104

SEQ 0077

02:24:05 PAGE 30-1

EXS:

cHp

EX6:

RTS

1+ YES, PRINT PORT CONFIG

tROUTINE TO PRINT ELAPSED TIME SINCE START-UP OR CNTRL-C
024651
011711
001216

ELTIM
QELTINM,RO
PC, TYPOUT
RO
, S
HOUR
PC,DECPNT

sPRINT

"EL.

TIM,

001416
011674
001176
000072
001376

sPRINT »;»

001156
000072
001356
011644
001136

;PRINT IN DECIMAL

011661

s PRINT MESSAGE
+POINTED TO BY ELTIM
1GET HOURS
sPRINT IN DECIMAL

;GET MINUTES
sPRINT IN DECIMAL

s ANOTHER

1GET SECS

‘Nf’ia

":"

;GET TICKS (1/60 SEC)
;+PRINT IN DECIMAL

;RETURN

N6
HOST EXERCISE MACRO vO4.00
NE
ROUTI
PRINT
GE
' MESSA
CZCMuCo CMR(V)-11

.SBTTL

QOB
YT VNS W

SEQ 0078

02:24:05 PAGE 31
MESSAGE PRINT ROUTINE

tMESSAGE TYPOUT ROUTINE (CALLED BY MACRO PNTM A)
yMESSAGES ARE IN THE FORMAT:

MESG:

.ASCII

/GI!SSAGE“/

:flt!!: € IS TRANSLATED INTO CR. AND LF.
:USES THE SUBROUTINE "TTO"

—

yWHICH PRINTS CR, € LF. UPON SEEING A CR. COOE.
® IS MESSAGE TERMINATOR
+ AND

:ENTER WITH ADDRESS OF MESSAGE IN RO
010046

001411

000100

000015
001312

TYPOUT: MOV
CH: MOVB

cHP
BEQ
cHP
BNE
MOV
TPCONT: JSR
INC
B8R

TPOUTX: TST

RTS

RO, -(SP)
8(SP),RO

1STACK ADDRESS OF MESSAGE
sFETCH ASCII BYTE

(SP)+

1POP STACK TO REACH RETURN VECTOR

0100,R0
TPOUTX
046, RO
TPCONT
#15,R0
PC,TT0
(SP)
TPOFCH
PC

1IS IT ® (TERMINATOR)?
1 YES-EXIT
:IS IT CRLF FLAG?
iNO-TYPE CHARACTER
1YES, CHANGE DATA TO CR
s TYPE IT
{MOVE POINTER TO NEXT BYTE
{FETCH NEXT CHARACTER

B7
02:24:05 PAGE 32
.SBTTL

KEYBOARD INPUT ROUTINE

KEYBOARD INPUT ROUTINE CALLED BY JSR
PC,INPKB
.tnm WITH OLD CONTENTS IN KBBUF
+IF JUST CR TYPED, EXIT WITH SAME CONTENTS IN KBBUF
1 IF MEW NUMBER TYPED, EXIT WITH NEW CONTENTS IN KBBUF

005067
010146
016746
005067
004767
004767
020027
001002

Seh :z=8‘. GO NS W

-11 MOST EXERCISE MACRO VO4.00

000167

010001
042701
020127
001441
020027
001024
012700
004767
000241
006067
000241
006067
000241
006067

005767
001002
005067
000167
012700
004767
012700
004767
000167
012767
042700
006367
006367
006367
050067
000167

005767
001004
012667
012601
000207
005726
012601
000207

000702

INPXB:

CLR
MoV
MOV
CLR
GETCHR: JSR

000676
000672
000216
001254
000012

JSR
cre
BNE

000154

1%:

177407
000060

000177
000057
001210
000610
000602
000574
000570

000560
177664
000207
001140
000077
001130
177640
177777
177770
000514
000510
000504

114:
24:

000522

34:

000500
177602

000466

NRTRN:

000462

NEK :

MOV
8IC
o
BEQ
[
BNE
MOV
JSR
CLC
ROR

CLC
ROR
CLC
ROR
TS7
BNE
CLR
JP
MoV
JSR
MOV
JSR
JP
MOV
8IC
ASL
ASL
ASL
8IS
JP

TST
BNE
MoV
MOV
RTS
TST
MOV
RTS

NOXEFL
R1,-(SP)
KBBUF , -(SP)
KBBUF
PC.XBRD
PC.TTO
RO,012
14

1CLEAR NO NUMBER FLAG
1STACK OLD R1
1STACK "OLD CONTENTS*
1CLEAR INPUT BUFFER
tFE/CH A CHARACTER IN RO
1ECHO IT
tMAS IT A CR OR LF?
sNO

RO,R1
0177407,R1
R1, 060
34
RO, 0177
24
#57,R0
PC.TTO

1SET UP TO OHECK FOR A NUMBER
tMASK ALL BUT ¢ CODE
+IS IT A @ FROM 0-72
s YES, PACK IV
sWAS IT A DELETE/RUBOUT?
tNO, MUST BE GARBAGE
s YES, BUT PRINT ~\*

NRTRN

1YES, RETURN WITH PROPER KBBUF

KBBUF

tCLEAR THE C-BIT7
sDELETE LAST DIGIT

KBBUF

KBBUF
KBBUF
114
NOKEFL
GETOHR
#207,R0
PC,TT0
077,R0
PC,TT0
GETOR
#-1,NOKEFL
0177770,R0
KBBUF
KBBUF
KBBUF
RO, KBBUF
GETCHR

s INTO KBBUF
tMAVE WE DELETED EVERYTHING?
sNO
1YES, BACK TO NO NUMBER INPUT
1GO FOR MORE INPUT
1ECHO "BELL" FOR ERRONEOUS INPUT

NOXEFL
NEK
(SP)+ ,KBBUF
(SP)+,R1
PC
(SP).
(SP).,R1
PC

1WAS THERE NEW DATA?
1 YES, GO BACK WITH IT
tNO, RETRIEVE OLD DATA
tRESTORE R1
1AND RETURN
1OUMP OLD DATA
IRESTORE R1
1tAND RETURN

THAT WAS STUFFED

s THEN "2*
+AND GET ANOTHER CHARACTER
aGOY A DIGIT. SET FLAG
1GET THME DIGIT PART OF THE CHARACTER
1SHIFT KBOUF BUFFER
+ TO ACCEPT THE
s _NEW DIGIT.
+ADD THE NEW DIGIT
1GO FOR MORE INPUT

———

SEQ 0080

02:24:05 PAGE 33

CZCMUCO CMR(V) -11 MOST EXERCISE MACRO VO4.00

KEYBOARD INPUT ROUTINE
OB GO NS W

+KEYBOARD READ ROUTINE
1CHECXKS FOR THE FOLLOWING SPECIAL CHARACTERS:
RESTART PROG

CNTRL -C

CNTRL -F
CNTRL -A

CNTRL -0

CHANGE /SHOMW FILL COUNT
PRINT PORT CONFIGURATION
STATUS IF AVAILABLE.
ENTER "DE-BUG" ROUTINE

<CR>

CLOSE LOCATION

. i

OPEN LOCATION

UNLESS ALREADY THERE
OR UNLESS IN INITIAL DIALOGUE.
If IN *DE -BUG" ROUTINE:

<LF>

CLOSE LOC. AND OPEN NEXT

SET START FUNC OR MAINT
RETURN AND CONTINUE

.
D e
1578

011434
011304
011276
011304

177600
000003
161540
011236

18:

24:

011234

:
208

021536

177777

000330

011212

023071
000310
177370

000274

177306
177704
011164

011152

011444

8PL
MOV
CLR8
CLR8
CLR8
CLR8
8IC
o
BNE
MOV

KBRO
8xB0,RO
INCF
GOFLG
SLFL
CONFLG
#177600,R0
RO, 03
14
#ISP,SP

1ST8

DBFLG

BNE
ce
BNE

A4
RO, #6
4t

8EQ
BR
PNTH
MOV
JSR
MOVe
MoV
JSR
PNTM
MOV
JSR
MOV
JSR
cP
8LOS
PNTM
MOV

204
KRTN
FILMSG
OF ILMSG , RO
PC, TYPOUT
e-1,SAFE
FILL RO
PC,OCTPNT
TWOSP
#TWOSP ,RO
PC, TYPOUT
FILL ,KBBUF
PC, INPKB
KBBUF , #300
34
AGAIN
OAGAIN, RO

MOV
TST
BEQ
ADO
MOV

KBBUF ,FILL
PCONT
344
%, SP
PCONT,(SP)

TST8

000250

34:

8x8Ss

SAFE

Pag‘"’w

sMAIT FOR INPUT FROM CONSOLE

tPUT THE CHAR INTO RO
1CLEAR FLAGS

1 TRIM PARITY
tMAS *C TYPED?
1YES, RESTART PROGRAM
sOON'T ALLOW *F IN "DEBUG"

tMAS CNTRL-F TYPED?
’ NO

sALREADY IN FILL CONT RTN?

tNO, SAFE TO ENTER
1 YES, IGNORE CHARACTER
tPRINT “FILL COUNT = *
sPRINT MESSAGE
+POINTED TO BY FILMSG
1SET FLAG

sSHOM FILL COUNT
1SPACE AND PROMPT
1PRINT MESSAGE
1POINTED TO BY TwOSP

1GET NEW COUNT
1 TO0 BIG?
sNO GOOD. GET IT AGAIN
1PRINT MESSAGE
+POINTED TO BY AGAIN

1LOAD NEW COUNT
IRETURNING YO A PROMPT?
1NO, CLEAN RETURN
1YES, BREAX UP WITH INPKB
tMODIFY RETURN ADDR

10.W 001

011070

000230
011044

177722
011032

408
:

000017

011072
011064

002376
S¢:

011012

000006
175266
000012

000015
177777
000070
000057

010752
74:

177777
000446
021034
000107

010742

177777

010704

000422
021034
000120

177777
021034

010654

KRTN:

1CLEAR SAFETY FLAG

s0.W 001

1 tA TYPED?

1IN FILL COUNT ROUTINE?
+IF YES, JUST EXIT.
1YES, GO PRINT TABLES
+IN DEBUG??

000001

SAFE
KRTN

: .

34%:

3379353738037
923R 935042383338338 )353353 3

011104

(=
r

S2 021300
S3 021304
S4 021306
SS o21312
S6 021314
S7 021320

ot
w

KEYBOARD INPUT ROUTINE

SEQ 0081

02:24:05 PAGE 33-1

p-]

CZCMUCO CMR(V)-11 MOST EXERCISE MACRO VOA .00

\IF YES, m RE TURN
JRE-PRINT ANY PROMPTS
11IS "DEBUG” FLAG SET?
{YES, CHECK FOR OTHER FLAGS
1CNTRL-0 TYPED?
1NO, EXIT

nesr xr 00T IS ALLOMED
IF PCONT = O OR

xfi’ GREATER THAN PRIORITY
PROMPT
.,

l&SO. NOT WMILE IN FILL
COUNT ROUT INE.
lm ALL TIES WITH "INPKB"
sA-0.X. GO TO DEBUG-AID
sCHECK FOR L.F.
sNOT A LINE FEED.
1IT WAS, SET INCR FLAG
sAND LEAVE

'“'ss IT A SLASH?
sNO.

1YES, SET SLASH FLAG

1YES, SET "GO” FLAG
JECHO THE G*

tWAS "P* TYPED?

s1NO, EXIT

s YES, SET "CONTINUE" FLAG

ONRTRN, (SP)

sASSOCIATED VARIABLE STORAGE:
NOKEFL:
KBBUF:
FILL:

FLONT:
FILMSG:

.WORD
.WORD
LMORD

.WORD
.ASCII

O
O
10

O
/EFILL COUNT

= §/

075

——

—

E7
CMR(V)-11 MOST EXERCISE MACRO VO4.00

SEQ 0082

02:24:05 PAGE 34

tROUTINE WHICH CHECKS AVAILABILITY OF THE PORT CONFIGURATION
1STATUS THEN PRINTS YME STATUS, OR PRINTS
1"ee STATUS NOT AVAILABLE ee”
010613

174070

000010

023105
176752

PNTCNF: TSTE

8EQ
JSR
P
PNTCO:
PNTM
MOV
JSR
PNTCX: RTS

CNFGFL

PNTCO
PC,REPORT
PNTCX
NOONF
ONOCNF , RO
PC, TYPOUT
PC

JCHECK IF CONFIG IS AVAILABLE

+IF NOT, SAY SO.
+IF SO, DUMP IT.
1AMD LEAVE
1PRINT "ee STATUS NOT AVAILABLE e+”
sPRINT MESSAGE
1POINTED TO BY NOCNF
RETURN

VO4.00 02:24:05 PAGE 35
MACRO
11 MOST EXERCISE
| C20MJCOTOCMR(V)ASCII CONVERSION ROUTINES

F7
SE

| BINARY

.SBTTL BINARY TO ASCII CONVERSION ROUTINES

3
s

;CONVERTS BINARY TO BINARY, BINARY T0
.ocm AND BINARY TO DECIMAL; EITHER

{OR RIGHT JUSTIFIED WITH LEADING 0’5

UNJUSTIFIED WITH LEADING ZERO'S SUPPRESSED

1 SUPPRESSED

8
9

JREGILAR BIN-OCTAL UNJUSTIFIED:

12 021606

021606
13 021612
14 021616
1S 021622
16 021626
021626
g 021632

004567
005067
012701
004767
004567
000207

175542
000370
000010
000166
175536

OCTPNT: REGSAV

JSR
CLR
MOV
JSR
REGRES
JSR
RTS

RS, REGSAV
RUFLG
010,R1
PC, NUMPNT
RS ,REGRES
PC

;CLEAR RIGMT JUSTIFY FLAG
1SET RADIX FOR OCTAL
{CONVERT € PRINT
{RETURN

{BIN-OCTAL JUSTIFIED:

21 021634

021634
22 021640
23 021646
24 021652
25 021656
021656
g 021662

004567
012767
012701
004767
004567

000207

175514
177777 000340
000010
000136
175506

OCTJSP: REGSAV

JSR
MOV
MOV
JSR
REGRES
JSR
RTS

{BIN-BIN

30 021664

BINPNT: REGSAV

021664 004567 175464
31 021670 005067 000312
32 021674 012701 000002
33 021700
34 021704

004767

000110

021704 004567 175460
g 021710 000207
g

JSR
CLR
MOV
JSR

REGRES

JSR
RTS

RS, REGSAV
0-1,RFLG
010,R1
PC.NUMPNT
RS,REGRES

1SET RIGHT JUSTIFY FLAG
1SET RADIX FOR OCTAL
;CONVERT & PRINT

RS ,REGSAV
RJFLG
02,R1

:CLEAR RIGHT JUSTIFY FLAG
:SET RADIX FOR BINARY

PC ., NUMPNT

1CONVERT &€ PRINT

RS, REGRES
PC

sBIN-DECIMAL UNJUSTIFIED:

39 021712

021712
40 021716
41 021722
42 021726
43 021732
021732
:; 021736

004567
005067
012701
004767
004567
000207

175436
000264
000012
000062
175432

DECPNT: REGSAV

JSR
CLR
MOV
JSR
REGRES
JSR
RTS

RS ,REGSAV
RFLG
012,.R1
PC, NUMPNT
RS,REGRES
PC

JBIN-DECIMAL JUSTIFIED (6 PLACES)

48 021740

021740 004567 175410

DECJSP: REGSAV

JSR

RS,REGSAV

;CLEAR RIGHT JUSTIFY FLAG
1SET RADIX FOR DECIMAL
;CONVERT & PRINT

@ o083

| CZCMICO CMR(V)-11 HOST EXERCISE MACRO V04.00

| BINARY TO ASCII CONVERSION ROUTINES
49 021744

S0 021752
S1 021756

60 022010
61 022012

012767
012701
004767

177777

000012

000234

02:24:05 PAGE 35-1
®-1,RJFLG
012,R1

000032

PC.NUMPNT

004567
000207

175402

RS ,REGRES
PC

016767
005000
004767
005367
003373
000207

177536
000116

177524

177536

NULLS:
14:

NULOUT:

1SET RIGHT JUSTIFY FLAG
1SET RADIX FOR DECIMAL
tCONVERT & PRINT

FILL,FLCNT
RO

1GET NO. OF FILL CHARS

:0.W 001

FLCNT
14
PC

100 @ AS ORDERED

;0.4 001
1D.W 001
sD.W 001

PC,TTO

'
05 PAGE 36
02:24:
VO4.00
MACRO
SE
EXERCI
HOST
-11
C20MJCOTOCMR(V)
ES
ROUTIN
SION
CONVER
ASCII

SEQ 0085

BINARY

tUNSIGNED CONVERT-PRINT ROUTINE (BIN - ASCII)

3 022014

010167

000170

020067

000160

4 022020
S 022022

005002
005001

7 022030
8 022032
9 022036
10 022040
11 022042
12 022044
13 022046
14 022050
{2 022052

103404
166700
1
000771
010046
010100
001403
005202
004767

6 022024

17 022056
18 022062
19 022064
20 022066
21 022072
22 022074
23 022100
24 022104
25 022106
26 022110

27 022114
28 022116

29
30

012703
160203
003413
005767
001410
012700
004767
005303
001372
005067

012600
052700

NUMPNT: MOV

CLR
DIVSET: CLR

DIVID:

.
000072

MOV
8IS

s TYPE OUT ROUTINE
sPRINTS A CHARACTER WHICH IS IN RO

;é
33

6 ,R3
R2,R3
PNT
RJFLG
PNT
#40,R0
PC,TTO
R3
JUST
RJFLG
(SP)+,RO
#'0,RO

PNT:

000060

1 IS NUMBER BELOW RADIX?
+IF YES, STORE DIGIT
1ELSE, KEEP SUBTRACTING

PNTEXT: MOV
SUB
BLE
TST
BEQ
JUST:
MOV
JSR
DEC
BNE
CLR

177744

000040
000016

RO,RADIX

R2
R1

GETDG
RADIX,RO
R1
OIVID
RO, -(SP)
R1,RO
PNTEXT
Re
PC,DIVSET

GETDG:

000114

1SAVE RADIX

8LO
SuB
INC
BR
MOV
MOV
BEQ
INC
JSk

000152

000006

CwP

R1,RADIX

1CLEAR TAB COUNTER
1CLEAR WORK REGISTER
1AND KEEP COUNT

1 STACK REMAINDER
1PRINT IF MIGHEST ORDER STACKED
1ELSE COUNT DIGITS FOR R. JUSTIFY
1GET DIGIT COUNT CONSTANT
tHAVE WE PRODUCED 6 DIGITS?
1YES, JUSTIFICATION UNNECESSARY
1 IS THE JUSTIFY FLAG SET?
tNO-DON’'T JUSTIFY
s YES, PRINT LEADING SPACES

tCLEAR JUSTIFY FLG WHEN DONE
1GET REST OF DIGITS OFF STACK
sMAKE THEM ASCII

+IF THE CHARACTER IS "CR."”, ALSO PRINT A “LF.",
.

34 022122

010077

38 022140
39 022142

001401
000207

35 022126
36 022132
37 022134
40 022144

41 022150

42 022154

105777
100375
022700

010406

000012

016767

177352

177746

43 022162
44 022166
45 022172

012700
004767
005367

000000
177730
177336

47 022200

012700

000012

46 022176
:: 022204

003373

000207

53 022206
54 (22210

TTOLP:

000015

012700

004767

T70:

010404

TTOLF:

177352

MOV

RO,87T8

BEQ
RTS

TTOLF
PC

JSR

PC,.TTO

MOV
JSR
DEC

#0,RO
PC,TTO
FLCONT

TSTB
8PL
cHe
MOV

MOV
1%:

BGT

MOV

RTS

8T7s
TTOLP
#15,R0

#12,R0

FILL,FLCNT

012,R0

tPRINT CONTENTS OF RO
sWAIT TILL PRINT DONE
tWAS IT A CR?

sYES, ECHO A LF AS MELL
tNO, JUST RETURN
sECHO A LINE FEED

tPRINT NULLS FOR FILL

1 THEN RESTORE RO

1AND LEAVE

sASSOCIATED VARIABLE STORAGE:
000000
000000

RJFFLG:
RADIX:

.WORD
.WORD

O
O

—_

——

————

. ——

- o v—

- C20MJICO CMR(V)-11 HOST EXERCISE MACRO vO04.00

' CONSTANTS, VARIABLES & ACSII

02:24:05 PAGE 37

.SBTTL CONSTANTS, VARIABLES & ACSII

+ASCII MESSAGES:
TSTHOR:

.ASCII

/ECZCMJCO CMR(V)-11 HOST EXERCISER

30-0CT-84/

.ASCII

/&E

.ASCII

/ETHIS PROGRAM IS CAPABLE OF ALTERING THE STATE/

.ASCII

/EOF ANY FIELD EQUIPMENT ATTACHED TO ANY OF THE/

sss CAUTION #s2s/

122

114

022427

022435

022440

J7
CZCMUCO CMR(V)-11 HOST EXERCISE MACRO v04.00
' CONSTANTS, VARIABLES & ACSII
022443

040
040

117

10 022452
022455

046

122

.ASCII

/EREMOTES ON THIS CMR-11./

040
122
061
046

.ASCII

/EEPROCEED WITH CAUTION IF FIELD HARDWARE IS STILL ON-LINE'!EER/

FRAD:

.ASCII

/EINTERFACE ADDRESS:

AGAIN:

.ASCII

ZETHAT WON'T DO.

DVECT:

.ASCII

/EINTERFACE VECTOR:

DVPRIO:

.ASCII

/EINTERFACE PRIORITY (4 TO 7):

022446
022451

022460

022463

022474

022477
11 022502

115
105
117

124
123
115
061
04€
122
105

106
110

117
123
116
110

117
105
127

110
101
111
040
040
105
040
122
101
040
040
111

040

055

14 022657

TRY AGAINESR/

124

072

116
122

022466
022471

105

124

WA]

SEQ 0087

02:24:05 PAGE 37-1

I<7
C2CMJCO CMR(V)-11 MOST EXERCISE MACRO v04.00
CONSTANTS, VARIABLES & ACSII
022711
022714
22717
022722
022725
022730
022733
022736
022741
022742
022745
022750
022753
022756
022761
022764
022767
022772
022775

106

105

122
122
131

101
040
111
111

02:24:05 PAGE 37-2

103
120

117

124

.ASCII

/7ECMR-11 DE-BUG AIDEER/

.ASCII

/EINVALID ADDRESS...(IT'S NOT THERE)&/

.ASCII

/EETRAPPED TO 4 FROM LOCATION 8/

.ASCII

/ESWR = 8§/

.ASCII

/Ess CONFIGURATION NOT AVAILABLE #+£8/

.ASCII

/ETYPE

"P" TO CONTINVES/

—

——

L7
- C2CMJCO CMR(V)-11 MOST EXERCISE MACRO v04.00
CONSTANTS, VARIABLES & ACSII

023165

27 023353
023356

042
040
040
116

124

042

117
117
111

105

BEEERCRBICERERRRSACRREREREY

023162

§RRRCERNERBRELE =¥ REREER

023157

SEQ 0089

02:24:05 PAGE 37-3

TSTSEL:

.ASCII

/ESELECT TEST (4=MELP) &/

HELPM:

.ASCII

/ESELECT ONE OF THE FOLLOWING:E/

.ASCII

76<CR> OR 1 = LOGIC TEST/

.ASCII

/7€

2 = PORT LOOP-BACK TEST/

.ASCII

/7€

3 = CMR-11 EXERCISER/

.ASCII

4 = THIS HELP INFO./

M7
| CZOMJCO CMR(V)-11 MOST EXERCISE MACRO V04.00
' CONSTANTS, VARIABLES & ACSII
023424
023427
023432
023435
023440

023443
29 023444
023447

040
111
110
120
116
056
046

SEQ 0090

02:24:05 PAGE 37-4

110
040

103

.ASCII

7€

CNTRL-C = TEST SELECT/

.ASCII

/7€

CNTRL-G = SWITCH OPTION SELECT/

.ASCII

/€

CNTRL-F = CONSOLE FILL COUNT SELECT/

.ASCII

/7€

CNTRL-A = SHOW PORT CONFIG.

.ASCII

/€

122

103

040

123
123
105

046

103
122

107

31 023535

STATUS/

(¥ L

1333 it

103

(ONLY WORKS IF TABLE ALREADY/

N7
CZOMJCO CMR(V)-11 MOST EXERCISE MACRO VO4.00

| CONSTANTS, VARIABLES & ACSII
040
122
040
040
102
040
122
104
046
040
040
040

127
113
111
124
14
01

105
131

SEQ 0091

02:24:05 PAGE 37-5

117
123

106
101
105
114
101

040

JASCII

/€&

PRINTED AUTOMATICALLY)./

.ASCII

/€

LOADING SCR. PAD AND STARTING/

.ASCII

/€

FUNCTIONS AND EXAMINING THE/

040

040
111

105
101
117
124
101
131

046

103
122
117

CNTRL-0 = DEBUG ROUTINE WHICH ALLOWS/

040
102
040

125
116
127
103

101
117

046
040
040
040

B8
C20MUCO CMR(V)-11 MOST EXERCISE MACRO V04,00
CONSTANTS, VARIABLES & ACSII
024147
024152
024155
38 024156
024161
024164

111
040

105

111
116
124

116

107

110

040
040
040
040

RESW TS/

LASCII

ASCII

HLPOSR:

.ASCII

/EIF MELP IS REQUIRED, ENTER A "4~

LGXTSM:

.ASCII

/&LOGIC TESTES/

BRXCOM:

.ASCII

/EDISCONMNECT COMMUNICATIONS TO ALL REMOTES..E8/

040
040
040
040

105

114

123
1,4

ZERE8E

024167
024172
024175

115

024144

SEQ 0092

02:24:05 PAGE 37-6

41 024320

“P" = PROCEED FROM SW. MONITOR

123

F__

C&
CZCMUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII

024407

43 024412
024415
024420
024423
024426

024431

056

046

115

125

046
055
116
103
103

100

122
103
116
124
117

105
117
105
040
115

101
117
040
040
115
105
056

02:24:05 PAGE 37-7

RECON:

.ASCII

/ERE-CONNECT COMMUNICATIONS TO REMOTES..La/

103

SCPAD:

.ASCII

/ESCR.PAD ADDR = 8/

110

VERSM:

_ASCII

/EEMOST FIRMWARE VERSION : &/

116

024434
024437
024442
024445
024450
024453
Goa4 50
024461
44 024463
024466
024471
0oa474
024477
302

111
124
116
124
122
117
123
046
046
122
101
101
122
040

103
111
123
117
105
124
056
100
123
056
104
104
040
100

024507
024512
024515
024520
G24523
024526
024531
024534

117
040
122
101
040
122
117
072

123
106
115
122
126
123
116
040

124
111
127
105
105
111
040
100

028542
024545
024550
024553
47 024555
024560
024563
024566

101
040

102

104
101
123

BAUDM:

.ASCII

/EEBAUD RATES:®/

122
043
075

125
122
105
100
120
124
060
040

117
040
040
100

PORTOM:

.ASCII

/EPORT @0 = &/

024574
024577
024602

122
043
075

124
061
040

040
040
100

117

PORTIM:

.ASCII

/EPORT 01 = &/

122
043
075

124
062
040

040
040
100

117

PORT2M:

.ASCII

/EPORT @2 = &/

122
043

124
063

040
040

117

PORT3M:

_ASCII

/EPORT @3 = &/

ENDPS:

.ASCII

/EEND PASS 08/

ELTIM:

_.ASCII

/ EL. TIM,=9/

45 024504

46 024537

046

072
046

48 024371

046

49 024605

046

50 024621

046

024632
51 024635
024640
024643
024646
52 024651
024654

075
046
104
101
040
040
056

024610
024613
024616
024624
024627

046

120

040
105
040
123
043
105
040

120
040
104
07s

100
116
120
123
100
114
124

SEQ 0093

——————
.
—

D8
C2CMUCO CMR(V)-11 NOST EXERCISE MACRO VO4.00

CONSTANTS, VARIABLES & ACSII

105

056
116
075

——— -

57 024777

—

110

ERR,

CNT

—-

—

SEQ 0094

02:24:05 PAGE 37-8

056

024657

ERCTM;

.ASCI1

§/

OVFLM:

.ASCII

/¢e0VERFLOWee8/

PLTM:

.ASCII

/7EPORT LOOP-BACK TESTES/

.ASCII

7ETYPE PORT @ (<CR>=ALL):

TYPCR:

.ASCII

/ETYPE <CR> WHEN READY:

EXCM:

.ASCII

/7ECMR EXERCISE ROUTINEES/

SLOM:

.ASCII

/7E(GIVE ME A FEW MINUTES ALONE WITH THE REMOTES)ES/

2
e
S
.

E8
. CONSTANTS, VARIABLES & ACSII
0235122
025125
025130
025133
025136
60 025137
025142

025145
025150
025153
025156
161

117
105
124
040

040

025164
025167
025172

123
052
046

025176
025201
025204
025207
025212
025215
025220
0235223
025226
025231
025234
025237
025242

111
111
040
105
114
113
107
117
101
040
101
105
051

61 025173

046

105
105

124
051

040

115
105

052
040

ASCII

/Eeees NO REMOTES ON HOST eeel/

.ASCII

/&C I WILL KEEP LOOKING FOR ANY CHANGES )E8/

.ASCII

/7EPORT 08/

040

115
105
117
110
124
052
050
040

114
113

117

62 025245

046

63 025255

046

.ASCII

/EREMOTE 08/

046

.ASCII

/& s+ PORT CONFIGURATION s+£8/

025250
0235253
025260
025263
025266

64 025267

122
043

115
105
100

023272
025275
025300
023303
025306
025311
025314
025317
025322

052
117
040
116
107
101
117
052
100

025326
023331
0235334

101
G40
100

65 025323

66 023335

025340
025343

—mm
——— —
—

110
122
117
123
100
046
052

67 025346

025351
025354
025357

046

STATEM:

.ASCII

/ESTATE = &/

046

USORM:

.ASCII

/EUSOR
= 8/

046

COMST;

.ASCII

/7ECOMM STATUS = &/

117
075
115
123
124

SEQ 0095

02:24:05 PAGE 37-9

C2CMUC0 CMR(V)-11 HOST EXERCISE MACRO VO4.00

123

- ——

—

e———
—

F8
02:24:05 PAGE 37-10

. CZCMUCO CMR(V)-11 HOST EXERCISE MACRO VO4.00
CONSTANTS, VARIABLES € ACSII
025362
025365
025366
025371
025374
025377
025402
025405
025410
025413

07s

.ASCII

/7Eeee REMOTE

REMSTM:

.ASCII

/EREMOTE STATUS NOW 8/

REGMG:

.ASCII

/ REGULAR®/

.ASCII

/ IRREGULARS/

.ASCII

/7Esee NO REGULAR REMOTES FOUND ¢+2£8/

DTLGN:

.ASCII

/EEDETAILED(1) OR GENERAL(0V)...(0] &/

GTREM:

.ASCII

“ETYPE PORT/REMOTE @'S (400=HELP, <CR>=END)EER"

74 025602

123

STATUS CHANGE

¢++3/

CZ0MJUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
CONSTANTS, VARIABLES & ACSII
040
060
110
120

074
076
116
046
040

105
043

050
060
105
054
103
07s
104

02:24:05 PAGE 37-11

64
07S
114
040

046
040

115

GRHLP

046
040
122

REM ¢ &/

ASCII

.ASCII

/EE

.ASCII

/ONE OCTAL NUMBER./

.ASCII

/&&

.ASCII

043
116

122
117
040
101
040
115
116
77 025742

040
124

117

040
124
040

115
122

HUNDREDS DIGIT = PORT NUMBER (0 TO 3)&/

116

105

2ERRISHEREE

107

TENS AND ONES

= REMOTE NUMBER (0 TO 76)/

105

040
104

026076

075
105
124
116

123

115

——

H&
CZCnuCo CMR(V)-11 MOST EXERCISE MACRO v04.00
CONSTANTS, VARIABLES & ACSII

026101
026104

026107
026112
026115
80 026116
026121

026124
026127
026132
026135
026140
026143
026146
026151
81 026153
026156
026161
026164
82 026166
026171
026174
026177

102
040
040
040

051
046
120
074
076
114
105
117
116

026205
026210
026213
026216
026221
026224

111
125
046
130
120
123
046
122
117
043
101
040
115
105
040
125
131

026232
026235
026240
026243
026246
026251
026254
026257
026262
026265
026270

040
060
040
040
040
060
040
040
040
074
076

026274
026277
026302
026305
026310
026313
026316
026321
026324
026327
85 026332
026335
026340
026343

040
040
040
040
040
040
040
040
040
103
046
040
040
040

026202

83 026227

84 026271

046

SEQ 0098

02:24:05 PAGE 37-12

105
050
124
067

122
060
117
066

124
105
103
040
117
040
040
104

131
040
122
101
116
124
105
040

.ASCII

7ETYPE

<CR>

ALONE

TO END INPUT/

116
124
046
101
114
072
106
040
122
040
116
122
117
043
131
040
120
046
040
040
040
040
040
040
040
040
040
103

105
115
105

.ASCII

/EEEXAMPLES : /

117
120
124
040
104
105
124
040
117
124
105
040
040
040
040
040
040
040
040
040
060
122

.ASCII

/EFOR PORT®

.ASCII

/€€

040

.ASCII

/7€

3<CR>/

.ASCII

136<CR>/

040
040
040
040
040
040
040
040
063
122
040
040
040
040

120

060
040
040
040
063
040
040
040
074
076
040
061
040
040

AND REMOTE®

YOU TYPE/

0<CR>/

C20MJUCO CMR(V)-11 HOST EXERCISE MACRO VO4.00
' CONSTANTS, VARIABLES & ACSII

026373
026376
026407

040
040
063

103

040

063

040

gRBEBSRRCRRBNREZEZRERIRNE g

026365
026370

040
040
040

§oBERELESERECERERERIRES

026346
026351
026354
026357
026362

040

02:24:05 PAGE 37-13

040
066
C40
040
061

.ASCII

TO BEGIN TESTING

303<CR>/

<CR>E8/

o ——
. —

SEQ 0100

VO4.00 02:24:05 PAGE 38
MACRO
SE
EXERCI
HOST
-11
C2CMJCONTS,CMR(V)
|| CONSTA
VARIABLES & ACSII
{ERROR MESSAGES

S 026477

040

026518
026516
026521
026524
026527

106
114
040
040
101

4 026534

040

026545
026550
026553
026556
026561
026564

105
105
105
117
103
120

026502
026505
026510

123
115
122

110

124
111
117

101
105
128
123
122

120

122
120

055
040

026567
026572

124
050

105
102

026537
026542

117

040
103
040

NOGO:

.ASCII

/ MOST MICRO FAILED TO START.a/

NOTUP:

.ASCII

7 PWR-UP SEQUENCE NOT COMPLETE.(BAD CSR).8/

111
104
117
124
124

127

125
123

121
116
040
124
117
114

125
103
116
040
115
105

104
123

040
122

103
051

S 026605
026610

040
122

103
040

123
122

CSRRST:

.ASCII

/7 CSR REG. NOT RESET.&/

6 026632

040

103

101

SPRCLR:

.ASCII

7/ CAN'T CLR SPAR REG.8&/

7 026657

040

102

101

SPRDAT:

.ASCII

/ BAD DATA IN SPAR REG.8/

8 026706

040

122

105

ISATE:

.ASCII

~/ REQ SCPD ADR TST ERROR.8/

026575
026600

056
101

I R

IK8
| C20MJUCO CMRCV)-11 MOST EXERCISE MACRO VO4.00

| CONSTANTS. VARIABLES & ACSIT
9 026737

122
125

040

120
104
101
123
105

117

100
122

11 027030

125

&
g
027203

OSDTE:

.ASCII

7/ RESWLT SCPD DATA TST ERROR.8/

OSATE:

.ASCII

/ RESWLT SCPD ADR TST ERROR.8/

ISOTE:

.ASCII

7/ REQ SCPD DATA TST ERROR.8/

RQSPCL:

.ASCII

/ REQ.

SCPD NOT ALL 0'S.8/

RSSPCL:

.ASCII

/ RES,

SCPD NOT ALL 0'S.&/

CLTBER:

.ASCII

040
124

122
122

105

040
120
101
040
124
122
122

122

120
104
101
123
105
117
100
122
056
103
040
124
114

027172

105
114
123
104
101

02:24:05 PAGE 38-1

"CLRTPB" FAILED TO CLR TOP BYTE.®&/

SEQ 0101

L8
C20MJC0 CMR(V)-11 HOST EXERCISE MACRO VO4.00

| CONSTANTS, VARIABLES €& ACSII
127
040
1S 027204
116
117
027207
103
040
027212
040
122
027215
122
117
027220
104
042
027223
i
042
105
027226
125
106
027231
l
056
103
027234
16 027287
040
102
040
104
027242
027245
123
122
027250
102
111
040
123
027253

122 DIERR:
107
123
106
040
111
040
116
100
101 CSRWE:
103
040
124
127

02:24:05 PAGE 38-2

.ASCII

/ WRONG CSR FOR "DIE" FUNC.8/

.ASCII

7 BAD CSR BITS WHILE MUNG.®/

114
110
107

027256
027261
027264

110
105
125

111
040
116

17 027271
027274
027277
027302

040
116
040
122

103
047
103
040

101
124
114
114

CSRCE:

.ASCII

7/ CAN'T CLR LOW CSR WHILE HUNG.8/

18 027330

040

101

103

SPAVME:

.ASCII

/ ACCESSED REQ SCPD WITH "MAIN" SET.8/

19 027374

040

101

103

SPAVFE:

.ASCII

/ ACCESSED REQ SCPD WITH "STFUN" SET.8/

20 057487
027444

090
123

110
124

‘1IN
8/
117 NOINTR: . .ASCIT // MOST CAN'T
INTERRUP 1
040
'
——a

SEQ 0102

M8
- CZCMUCO CMR( v)-11 MOST EXERCISE MACRO VO4.00

' CONSTANTS, VARIABLES & ACSII
027452

027455
027460

{

21 02747

027644
027647
027652
=]
027663
027666
027671
25 027673
027676
027701
027704
027707

047

111
105

040

104
124
124
105
105
111
040
056
040
104
105
111

104

116
122

056

105

SEQ 0103

02:24:05 PAGE 38-3

040

124
122
124
116

125
100
122
116
125
110

ERINTR:

.ASCII

/ ERRONEOUS HOST INTERRUPT.8/

WPODI:

.ASCII

/ WRONG PRIORITY. DEV.

HITER:

.ASCII

/ PROG INIT.

VISF:

.ASCII

/ MICRO DIDN'T STORE VERSION NO.8/

VIDER:

.ASCII

/ 2ND VERSION INFO DIFFERS FROM PWR-UP.8/

IS MIGHER.®/

FAILED TO INIT CSR.8/

116
117
040
122
117
116
100
062
040
122
117

ANQ

N8
C20MJCO CMRCV)-11 MOST EXERCISE MACRO VO4.00

| CONSTANTS, VARIABLES & ACSII

SEQ 0104

02:24:05 PAGE 38-4

123
122

040
122
120
040

103
123

SPAVIC:

.ASCII

7/ ACCESSED RES.

SCPD WITH INTR CLR.&/

STESTF:

.ASCII

/ WRONG CSR WITH "STFUN".®/

RSPESF :

.ASCII

USOFEL:

.ASCII

/ BAD USOF FROM "STFUN" ON MAINT.&/

STEMWF :

.ASCII

/ WRONG CSR WITH "MAINT",8/

"MAIN" RESULT FUNC.

CODE WRONG.8/

CZCMUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES € ACSII
S1 030171
030174
030177

040
104

123

040

117

042
111
042

125

056
040
101
042
125

102

040

SEQ 0105

02:24:05 PAGE 38-S

USOFE?:

.ASCII

/ BAD USOF FROM "MAINT" FUNC.®/

DATLER:

.ASCII

/ RES.

USOFES

.ASCII

USOFEA:

.ASCII

/ WRONG USOF ON REGULAR FUNC.8/

PLFFE:

.ASCII

117
106
11%
113

116
040
116
100
042
111
040
116
107

"MAIN" FUNC GAVE BAD DATA LEN.¥/

105
101
104
101

105
100

FUNC CODE WRONG FOR

BAD USOF FROM "MAIN"

"MAIN".8/

ON REG FUNC.8/

030347

TOTAL FAILURE ON “MAIN” FUNCTION.®/

—

————

———

—

———

———
"
——

(9
CUNSTANTS, VARIABLES & ACSII
030436
030441
030444
030447
030452
030455
030460

030463

030466
030471

040
111
122

117

042
111
040
116
111

SEQ 0106

02:24:05 PAGE 38-6

CZCMUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
106
114
105
116

115

116
106

103
117

100
120
124
115
040

117

PLTXTO:

.ASCII

/ PORT

XMTR TIMED OUT.8/

117

PLRCTO:

.ASCII

/ PORT RCVR TIMED OUT.8/

.ASCII

/ PORT-LOOP DETECTED DATA ERROR.8/

115

117

SYSER:

.ASCII

/ HOST SYS ERROR.

104

DIAGF:

.ASCII

RUN LOGIC TEST.®/

"DIAG” FUNC GAVE WRONG FUNC CODE.a8/

D9
C20MUCO CMR(V)-11 HOST EXERCISE MACRO vVO4.00
CONSTANTS, VARIABLES & ACSII
030703
030706
030711

42 030713

030716
030721
030724
030727
030732
030735
030740
030743
030746

43 030747
030752
030755
030760
030763
030766
030771
030774

—

030777
031002
031005

031142

103
117

103
105

117

040

056
040

123

127

SEQ 0107

02:24:05 PAGE 38-7

DIAGUF :

.ASCII

7 USOF WRONG ON "DIAG" FUNC.8/

FIFUN:

.ASCII

7 FORCE INTERROGATE FUNC GAVE WRONG FUNC CODE®/

FIFUF:

.ASCII

7 USOF WRONG ON FORCE INTERROGATE®/

FICME:

.ASCII

/ COMMUNICATION ERROR DURING FORCE INTERROGATE®/

116

117
101

116

124
.EVEN

——

—

ES
| C2CMJUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
' CONSTANTS, VARIABLES & ACSII

02:24:05 PAGE 39

1 TABLE STORAGE

1 TABLE OF BAUD RATE MESSAGE POINTERS

6 031144
7 031146
8 031150
9 031152
10 031154
11 031156
12 031160
{2 031162

BORTBL: .WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

031164
031171

031176
031204
031212
031220
031226
031244

17 031164

031167
18 031171
031174
19 031176

031201
20 031204
031207
21 031212
031215

22 031220
031223
23 031226
031231
031234
031237
031242
24 031244
031247
031252
031255
031260
031263
g

+TABLE OF ASCII STORAGE FOR BAUD RATES

04C

060
040
060
040

060
040
060
040
060

040
060
040
111
042
120
104
040
120
111
042
120
104

g"’
29 031266
30 031270
31 031272

32 031274
33 031276
34 031300
35 031302
36 031304
37 031306
38 031310
39 031312
40 031314
41 031316
42 031320

8Dl
802
803
BD4
805
BD6
807
BD8

063

100
066
100
061

060
062
060
064
060

071
060
042
107
040
105
100
042
105
101
040
105
100

060

B01:

.ASCII

7 3008/

060

802

.ASCII

/ %008/

062
100
064
100
070
100
066
100
110
110
123
105

B803:

.ASCII

7/ 12008/

BD4:

ASCII

/ 24008/

B805:

.ASCII

/ 48008/

806

.ASCII

/ 96008/

B807:

.ASCII

/ *"HIGH” SPEED&/

123
103
114
123
105

B808:

.ASCII

/ *"SPECIAL" SPEED&/

.EVEN

sOATA TABLE FOR MAINTENANCE AND DIAGNOSTIC FUNCTION
000001
000003
000007

000017
000037
000077
000177
000377
000376
000374
000370
000360
000340
000300

DATBL:

.WORD
.WORD
.WORD

.WORD
.MORD
.WORD
LWORD
.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD

001
003
007

017
037
077
177
377
376
374
370
360
340
300

F9
C20MJCO CMR(V)-11 HOST EXERCISE MACRO V04.00
CONSTANTS, VARIABLES & ACSII
43 031322
:;031324

000200
000000

02:24:05 PAGE 39-1
.WORD
.WORD

200
000

|
SEQ 0109

R—

e
———

——

———

C2CMUCO S.
CMR(V)-11
MOST EXERCISE MACRO VO4.00 02:24:05 PAGE 40
VARIABLES & ACSII

| CONSTANT
\

\PORT CONFIGURATION STATUS TABLES.

$ 031326
4 031526
S 031726
& 032126

EXTBLL:
EXTBL2:
EXTBL3:
EXTBLA:

JTABLE FOR ORIGINAL (PWR-UP) VERSION DATA

10 032326

VERSP:

s TABLE FOR 2ND VERSION DATA

14 032350

VERSUN:

1SOFTMARE FLAG BYTES

.BLKW

18 032372
19 032373
20 032374
21 032375
22 032376
53 032377
24 032400
25 032401
2 032402
27 032403

000
000
000
000
000
000
000
000
000
000

CLKFL1:
CLKFLG:
CONFLG:
ONGFL:
DBFLG:
FAST:
GOFLG:
MOURS:
INCF:
LSIFLG:

31 032407

000

PNCFLG:

28 032404
29 032405
30 032406

32 032410
33 032411
34 032412
35 032413
% 03414

000
000
000
000
000
000
000
000

.BLKW
.BLKW
.BLKW
.BLKW

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

NINS: = .BYTE
OFLOF:
.BYTE
ONCE:
.BYTE
SAFE:
SECS:

SLFL:
THRUF:
TICKS:

e
e o
.

.BYTE

.BYTE
.BYTE

.BYTE
BYTE
[BVIE

—

» %50

64,
64,
64,
64,

O
O
O
O
O
O
O
O
0
O

JCLOCK TICKING
JCLOCK PRESENT
1CONTINVE FLAG
1 CONFIGURATION AVAILABLE
10EBUG FLAG
L "FAST* EXERCISE RUN FLAG
1"G0" FLAG
{MOURS STORAGE
{LINE FEED FLAG
L THIS IS AN 11/03

IPRINTED ANY REMOTE INFO?

O
O
O

JMINUTES STORAGE
{ERROR COUNT OVERFLOW
JINDICATOR THAT CONFIG MAS BEEN PRINTED

0
0

sDON'T ALLOW tF IN FILL COUNT RTN.
L SECONDS STORAGE

0
0
0

1 "SLASH* FLAG
L *THRU" FLAG
11760 SEC. TICKS STORAGE

—

————
e
————

- —

.
-

a———

—

02:24:05 PAGE 41

CZCMUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII

ADDR :

ALLFLG:

BAUD :

CLK:
CNTR:
CSR:

DEVER:
ERRCNT:

ITER:

LINLEN:

MASK ;

PASCNT:
PAT:

PCONT:

. WORD

.WORD

.WORD
.WORD

. WORD
.WORD
. WORD

.WORD
.WORD

.WORD

. WORD

.WORD
.WORD

.WORD

PORN :
PORT:
PRIO:

. WORD
. WORD
.WORD

REMST:
SAVEC:

.WORD
.WORD

SWREG:
SWRFLG:
TALLY:
TBLAD:

.WORD
.WORD
.WORD
.WORD

VERFLG:

.WORD

REMFLG:
REMNO:

SEAR

TEMP:

.WORD
.WORD

.WORD

. WORD

0000000000000 000000O00000000000000

1 VARIABLES:

sCONSTANTS:
VECTOR:
DEVADR:

.WORD
.WORD

KPD:
KBS:

.WORD
. WORD

FXPRIO:

LCS:

T78:
T71S:

.WORD

. WORD

L WD
. WORD

170

}“070
177562
177560
177546
177566
177564

.END

—

———

——
S
D

e ——

19
C20MJC0 CMR(V)-11 MOST EXERCISE MACRO VO4.00
SYMBOL TABLE

032416

| ADDR
AGAIN
| ALLFLG
ALROFF
BAD
BAUD
BAUDM
BONTO
BONT1
BONT2
BONTS
BONT4
BCONT
BORTBL

022624
032420
025474
020100
032422

024537
003034
003040
003070
003064
003114
002674
031144

CONTW1
CRPRM

020276

SEQ 0112

02:24:05 PAGE 41-1
EXS08
EXSOC
EXS00
EXSONA
EXS00
EXSO1
EXSO1A
EXSe
EXS28
EXS2C
EXS3
EXS3A
EXS38
EXTBLL
EXTBL2
EXTBLS
EXTBLA

012774
013012
013136
012764
012654
013214
013256
013312
013352

EX1
Ex2

EX3
Ex4
EXS
EX6
FAST

800
801
802
803

=
=
=
=

000001
000002
000004
000010

805
806
807
808
809

=
=
=
=
=

000040
000100
000200
000400
001000

811
812
813
814

=
=
=
=

004000
010000
020000
040000

804

810

= 000020

= 002000

002376
002422
002116

013610
177776
011374
011536
011300
011362
011410
011416

011520
011546
011602
011630

011644

J9
C2CMJUCO CMR(V)-11 HOST EXERCISE MACRO VvO04.00

| SYMBOL TABLE

SCA2A

011672

PST?

SCA28

011760
' PST?S
011772
PST8
012060
PSTES
012072
PST80
PST80S 012160
012172
PST9
012314
PST9S
= 000000
PO
PL
P2
PS
Pa
PS

P6
P7

RADIX

RECON
REGMG
REGRES
REGSAV
REMOMG
REMFLG

=
=
=
=
=

= 000300
= 000340
024412
025450
017370
017354
025366
032462

RASPCL
RSPENF
RSPESF
RSSPCL
SAFE_

€27062
030266
030036
027112
032410

SBAK

017512

SCALM
SCART
SCA1
SCA2

015246

015254
015266
015310
015330
017530
017544
024463
017474
032411
013516
013534
013600

022210

032464
025255
032470
025424
032466
015660
015732
015762
016012
016042
016060
002520
022206

SAVEC

SCA20
SCA2E
SCA2F
SCAS
SCONT
SCORTN
SCPAD
SCPRTN
SECS
SKPD2
SKPX0
SKPX1

000040
000100
000140
000200
000240

REMND
REMSG
REMST
REMSTH
REMTN
REPORT
REPO
REP1
REP2
REP20
REPS
RESTRT
RFLG

RMB

SCA2C

015212
015234

STl
ST1A
ST10
ST100
ST101
ST110
ST110S
STill
sTi1e
ST120
ST120S
sTi21
ST13
ST130

003354
003362
004422
004434
004506

TSTRSK
TSTSEL
178
170
TTOLF
TTOLP
T7S
TWOSP
TYPCR
TYPCTP
TYPOUT

004520
004622
004630
004652
004664
004760
004766

USOFE1
USOFE2
USOFE3
USOFE4
USORM
VECTOR
VERFLG
VERSM
VERS?
VERSUN
VIDER
VISF

005004
005010
005066
005034
005042
005100
005174
005202
005222
005236
005332
005340
005356
0035442
005616
005640
005726

WDAT

WOS08
WOWAS
WORD

006014
006122

032472

014766
015354
015030
015116

SPAVME
SPOR
SPRCLR
SPROAT

027330
032476
026632
826657

SRTST

817416

007146

STATEM
STEWF

025323
030140

007272

030077
030171
030330
030373
023335
032520
032514
024504
032326
032350
027673
027633

020115

020127
020143
032516

027532
016740
016714
016744
017030

$2A%
$2¢
$204
$214

017056
017042
017222
017234

$224
$234
$244
$254
$264
$34
$44
$54

007440
007526

022212
003120
023177
032534
022122
022144
022126
032536
023071
024777
023151
020556

WPODI
$0¢
$004
$14
$104

$114
$13¢

025657

. ABS.
032540
ERRORS DETECTED:

SEQ 0113

02:24:05 PAGE 41-2

017154
017272

017252
017304
017352
017322
017334
017110
017116
017134

VIRTUAL MEMORY USED:
8704 WORDS ( 34 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 64 PAGES
CZCMJIC/E: ABS ,CZCMIC/C:E:M:S:R=CZCMIB
. MAC

.
=
————

I Q

CICHJCO CMR(V)-11 HOST EXERCISE MACRO v04.00

AGAIN

[

S I ey
RN

28-78

28-53
28-67+
33-45

28-68
37-13¢

41-30

22-58

23-13

24-13

24-53

8-56

8-62

9-11

17-110

8-22
11-8

8-23

8-39
11-25
14-54
17-100
24-32

28-30
17-35

28-54+
18-59

28-58
28-37

24-23

27-21

28-49

21-10

22-16

8-51
18-167
23-54

8-54

28-27e
3-57
17-33«
37-72¢
21-28

41-40

10-39

27-20

27-54

28-43

-83

-7

bt
e o

ALLFLG

2 B

ADDR

S EEERIERRTIRBIIRE

$5¢

$108
$11¢
$13¢
$2¢
$20¢
$218
$22¢
$23¢
$248
$254
$268
$2AS
$3¢

388285
43 z ~~d 3 ; BGuRs & 5583334888803

$0¢
$00¢
$1¢

e GIedEEEERSIIIIIIIIIISS

S REFERENCE TABLE (CREF Vv04.00 )

SEQ 0114

02:24:05 PAGE S-1

814

7-18

8-8
16-66
17-142

29-57
6-41

8-10
17-146
18-163
6-48
9-39

14-23
17-79
22-38
14-23
6-43¢
8-83
13-10»
14-59
27-28+

815

5-17

5-42

10-10

11-15
14-48

14-43

17-99
24-24

17-90
23-22

7-7«
9-35»

7-16+

13-27+
15-18+

5-44

30-42

13 28
15-20

27-36

29-129

0-20

33-28

(@)

7-17»

10-7»
14-24+»
15-26+
29-139¢

8-68
12-11
14-68
17-114
27-31
8-19+

10-31»
14-33»
15-37«

12-31
15-22
18-127

8-86
13-13
15-29
21-29

8-36+
11-5+
14-40¢
17-109¢

8-37
11-6
14-41
22-26+

8-85

27-39

§-2
PAGE05
VO4.00 02:24:
MACROISE
MOST EXERC
| C20MJUC0 CMRCV)-1)
RENCE TABLE (CREF VOA.00)

L9
S€

| CROSS REFE
802

$9-7

BORTBL

16-24

3$9-180

$9-8
39-9
$9-10
39-11
$9-12
39-13

39-19¢
39-200
39-210
39-220
39-23¢
39-240

OPGFL

1-S2
$5-300
6-13
30-280
18-42¢
18.108¢

3.3

18-45
18.130

CLKEXT
GKFLI
GXFLG

-7
4-4
5.7

4-11
S-7¢
3.96¢

B0S
804
80S
806
807
308

BEGIN
SINPNT
BRKCON
CORTN
CELP

6.506

16-32

6.54¢

3-87
3-75
10-10
5-37
5-6s

4-40
3-960
38-14¢
18-34¢
18-151s

COMST
CONLG
CONMS
CONTM1
CRPRM
CRTST

22-S2
28-79
25.4
30-29¢
6-148
6-15¢

20-42¢

20-S1s

CSRCE
CSRRST
CSRME
DATBL
DATLER
DBAID

DBFLG

6.266
16-11s

37-67¢
33-23¢
37-640
30-30
6-15

6-35
11-27¢
14-86s
17-122¢
22.58e

11-15
6-48
11-8
17-S0
14-68
28-23

$8-17¢
38-5¢
38-160
27-6
38-32¢
37-160

S-13s

DECJSP
DECPNT

18-70
16-77

DEVAOR
DEVER
DEVGEN
DIAGO
DIAGOO
DIAGL

27-31
3-26
3-13¢
3-69
27-15¢
27-19¢
27-220

DERR

6.29¢
16.14s

6-27
11-17¢
16.24
17-68
22.19
57.22

641
1313

16-44

16-52

39-60

18-139

26-308

18-144e

27-S¢

27-17¢

19-19

41-70

23-Sis

41-60

40-180
S-34

28-17

28-84

40-190

10-25¢
17-49s

10-28s
17-S3s

10-34s
18-41s

10-37¢
18-44s

13-S¢
20-S¢

13-6¢
20-14¢

14-8¢
20-18s

14-27¢
20-27¢

14-45s
20-30s

14-S2e
20-39¢

10-36s
13-4e
15-32¢
18-145e
24-13s

10-39¢
13-9
15-33
21-10¢
24-23¢

11-4¢
13-15
17-8
21-28s
24-24

11-5
13-42¢
17-38e
21-29
24-S3s

11-11e
14-9¢
17-66e
22-16s
27.208

11-12
14-22¢
17-67¢
22-17¢
27-21e

9-22
15-22

9-38
15-29

10-10
15-40

10-35
17-118

11-8
22-29

11-15
22-37

3-100

37-420

GLKINT
OXTRP
GLTBER
OWEXC
OFGFL

ONTR ~

adhan

37.54s

28.21s

35-48¢
16-84

6-48
135.30

27-38
3-36
41-100
29-69¢
27-18
27-32
27-2%

26-27s

4-15
17-149
5-22

a-180
18-170
5-28

34-5

40-21¢

21-12¢

21-14

33-91s

40-200

6-33¢
17-7¢

6.-39s
17-10e

19-S¢

21-25¢

24-41s

24-47+

25-8¢

10-S¢
12-12¢
14-49
18-109¢
23-13e

10-7
12-20¢
15-Se
18-110s
23-17

10-24s
12-23¢
15-14s
18-111s
23.52¢

10-26
12-25¢
15-15
18-127
23-54

10-31
12-30¢
15-31¢
18-129¢
23-S7¢

28-87¢

30-S3

33-20

33-50

33-62

40-22¢

30-69

30-73

30-77

30-81

35-39¢

29-1220
39

29-69

41-410

25-14s

25-20¢

25-26¢

26-20+

41-8¢

30-36
6-20

6-43
12-8+
14-47¢
18.-42
23.6

58.22

28.30

28-32

28-43s

28-47¢

28-49¢

28-S0

29-70

41-90

39-29¢

7-9
14-29

7-21
14-36

8-22
14-45

8-39
14.54

8-68
14-61

8-85
14-68

27-58

]

M9
CZOMJCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
CROSS REFERENCE TABLE (CREF v04.00 )

18-141
20-13
27-38
10-35
36-6¢

27-26¢
27-33¢
27-53¢
27-540
38-410
20-4¢
20-26
38-42¢
38-15¢
36-10

18-50
2-6
3-40
3-50
30-67
16-80
17-126
17-76
16-75
16-69
16-82
16-78
12-3
12-22
12-16
6-31
23-22

57-73¢
3-35
37-140
37-15¢
37-52¢
16-83¢
17-133¢
17-86
37-S51¢
16-75¢
16-85¢
37-53¢
12-15¢
12-29¢
38-21¢
1124-32

27-23
27-30
27-40
27-37
27-31

36-5¢
2-40

29-124
29-109+
16-83
29-1440
6-41e
11-25e
14-68+
24-32«
30-39¢
30-430
30-47¢
30-S1¢
30-54
30-60

18-43
18-63
18-113
18-50¢

18-48¢
18-108¢
18-115¢
18-52

18-56
18-68¢
18-80
18-58
186-125¢
16-128
18-141¢

27-5¢

20-38

36-15

29-1100
29-108¢
6-11«
29-111
6-31e
11-1S¢
14-61s
23-22¢
30-18
30-40
30-44
30-48
30-S2
30-14

16-48

SEQ 0116

02:24:05 PAGE S-3

17-96

17-106

17-148

18-169

17-122¢

12-31

11-35

12-16

29-115
17-17«

29-123
29-61+

41-11¢

6-48¢
11-35«
15-22+
27-31e

7-21¢

12-16+
15-40+
29-112

8-22¢
12-31+
17-12¢
29-137¢

18-159

18-175

29-108¢

13-22

13-50

17-12

17-79

17-89

17-99

18-46

22-49

8-39«
13-13+
17-79¢

8-68+
13-22¢
17-89+

8-85+
13-30»
17-99+

9-22¢

9-38+

10-10+

10-35¢

11-8e

22-29¢

22-37«

22-49¢

29-136¢

57-S8¢

18-65¢
18-74
18-88¢
18-62¢
18-136
18-133¢

18-60
18-86
18-85

18-90
18-97

18-138

18-156

13-50»
17-113«

14-29+

18-46+

14-36+

14-43+

14-54+

VO4.00 02:24:05 PAGE S-4
SE MACRO
EXERCIVO04.
MOST (CREF
-11TABLE
O CMR(V)RENC
| CZOMJC
)
00
E
CROSS REFE

SEQ 0117

| EXSS

EXSSA

EXSS8
EXSGO
EXTBL1

EXTBL?
EXTBLS
EXTBLA
FAST
FICE

FIFWF

18-131

18-147

18-149
18-89
3-81¢

3-82¢
5-83¢
3-84+
18-34¢

22-49

22-37

22 -29

18-134

18-140

18-143¢

18-152
18-96
18-65

18-157¢
18-103¢
16-103+

18-118+

18-153¢

18-119+
18-120«
18-121+«
18-62¢

38-45¢

19-

20-17
19-10
20-29
19-13
20-41
19-16
18-105+ 18-112

25-13
25-19
25-25
20-9

38-440

38-43¢

FILL

33-38

33-41

33-47¢«

33-1000

35-56

FLONT

33-101¢

35-S56¢

35-59¢

36-42¢

36-45+

GETOMR

32-12¢

32-34

32-39

32-46

33-21«

33-86¢«

40-240

13-11
14-64+
27-29

13-24+
14-66
27-34«+

FILNSG
FKPRIO

FRAD
GDINT

GETDG
GOFLG

GOOD

GRHLP
GTREM
HDER

HELPM

33-36
_3-51

3-25
12-7

36-11¢
28-81

11-10+
14-50
22-33+

11-13
14-S7+
22-35

13-8+
14-59
27-27«

3-85

29-940

6-34¢
8-64¢

3-57

S-41

13-13

HMLPDSR

5-43

HOURS
HeSHR

37-12¢
12-19¢

36-7
28-41

MITER

HLPASK

33-102¢
41-42¢

6-37
8-66

37-240

6-45«
8-80+

6-46
8-83

7-6¢
9-18»

20-4

40-4¢0
40-5¢
40-6¢
20-22
'

21-9

25-7

40-3¢

20-34

20-46

40-23¢

7-144
9-34»

7-15
9-36

7-18+
10-6#

7-19
10-8

8-18+
10-30#

8-20
10-32

14-39«
17-112¢

14-4)
22-25¢«

14-48+
22-27

28-26

28-63

30-25

32-8¢0

33-42

3-64¢

3-65¢

3-66¢

3-67¢

36-42

7-13»
9-20

13-26+
15-19+
27-36

13-28
15-20
29-126

14-23+
15-25«
29-138¢

14-25
15-27

14-32+«
15-36+«

S5-430

37-40¢

30-68

40-25¢

IFORCE

S-11¢
3-21
20-24

20-36

20-48

IFRUTO
INCF

22-15¢
28-65

22-30

22-44

22-56

INTONR
INTONT
INVLAD

12-28¢
12-14
29-37

3-44

5-54

5-18

6-17

17-24

17-58

18-53

18-75

3-10

29-36

29-95

29-101

30-41

30-49

33-27

18-165+

41-12¢

5-39

3-41e

5-45

3-49

5-51s

3-55

3-59

3-63¢

INPKB

22-51
22-20
2222-36
22-48
22-39
22-19¢

3-29

22-560
22-240
22-32¢0
22-460
22-586
22-440
22-22

33-20¢
%2-220
7-176

ISATE
ISOTE

23-37
8-22
8-85

57-71¢0
38-8¢
38-11¢

ITER
JUST

6-8¢
36-220

16-60¢
36-25

1spP

KBBUF

1-52¢

3-26¢

8-37
11-6

38-23¢0

4-17
1-9¢
20-11

IFRC2S
IFRON
IFRONL
IFRON2
IFRONS
IFRONS
IFRUT

14-34
15-38

8-35
11-3»+

3-4

5-31

33-77¢

40-260

22-7¢

12-32

16-64¢

17-14¢

17-140¢

17-144+

18-38+

18-161¢

S-16e

$-20
18-73¢

32-28e

5-39
18-93

5-26
18-77

4]1-43¢

33-17
33-57
5-30e

4] -440

26-24¢

26-35e

32-45¢

32-42¢

32-30e

33-19
$3-18

17-22¢
28-62¢

3.1
28-20e

3$3-60
S-36¢

33.90
41-450

33-93¢

17-S7«

223

82 IRERGEY

SYNN
. LELLEKS

€ (CREF v04.00 )
S REFERENCE TABLE

SEQ 0118

02:24:05 PAGE S-S

€3

czouco CMR(V)-11 MOST EXERCISE MACRO VO4.00

30-23¢
33.4%

41-13¢

40-27¢
7-27e
4-16¢

41-140

5-10e

30-72

17-70

17-75

17-153

18-132

18-174

21-31

6-31
8-22

6-31¢
8-22

6-41

11-15
12-31
13-50¢

11-15¢
12-31

6-410
8-39
10 10

6-48
8-39%
10-10

11-35
13-13¢

6-48
8-68
10-10¢
11-35
13-22

17-7’0

17-.9

27 51

27- 31

9-220

3
e

14-29

17-113¢
23-22

14-61¢
17-12
18-46
23-220

18-46

38-3¢

14-61
17-12

12-31¢

13 13

14-36
14-68¢
17 79

14-29
14-68

17-12¢
1€-46
24-32

24-32

24- 320

18-173

32-48

33-98¢

33-83
16-57

33-88
16-68

33-92
16-70

17-152

35-33
28-60
8-73
27-44

35-42
35-21¢
8-90
27-48

35-51

36-3¢

9-27
27-52

9-43
28-72

18-39+
18-153¢

29-63¢
18-158¢

40-29¢
23-49¢

28-17¢

33-73

18-115¢

18-148

16 81

9-38

8-22¢
9-38
11-25

17-18¢

14-36
13-22

17-84

29-85

37-540

C10

30-11¢
7-90

7-9

8-68¢0

10-35
12-11

13-22¢
14-43
15-29
17-89%
22-37

14-36¢
15-22

17-118
29-116

22-43
29-127

8-85¢
11-8
12-16
13-30¢
14-54
15-40
17-99¢
22-49

23-28
30-21

23-40
33-39

27-380

27-38

22-55
29-130

7-21

8-85
11-8
12-110
13-30
14-54
15-29¢
17-99
22-49

c10
CZ20MUCO CMR(V)-11 HOST EXERCISE MACRO VO4.00
& &

17-65

6382 pRPILELIBLLS

3-89
17-14Se
7-26¢

$-19e¢
30-26¢

$5-5

18-37

41-16¢

6-15e

18-166+
6-18¢

30-57e

33-48

25-31

40-31¢

25-11s
17-103

41-15¢
33-S1

33-68

41-170

17-59¢

18-52+

25-17e
17-117

25-29¢
17-127¢

26-8
17-129

41-18¢

17-23¢

17-5S6¢

18-S4¢

18-74«

17-133¢

17-135

17-7

SESELE SENEULLEN
L 5y

[7]

[

’

~No P~ OF e bmp (=0 b=t o o 1o po

i3FIITTT i

CROSS REFERENCE TABLE (CREF VvO04.00 )

5€Q 0119

02:24:05 PAGE S-6

16-17
16-29
16-37
16-49
S5-31
17-82
17-21
24-40
3-27
26-10¢
26-29¢
26-21
17-8¢
3-32
3-39¢
3-46
3-56
3-60

_RV]
~)
&

| O

19-8+
17-29«
17-13%7

=5 b=

PNTCX

19-15

19-18

24-12¢

19-14+
17-46

19-17e
17-48

24-21
17-83

24-49
17-93

17-102

17-116

26-7

37-62¢

26-32

29-82¢

41-200

3-48
3-53
33-68

3-58

3-62

N10O

17-131

D10
C20MJUCO CMR(V)-11 HOST EXERCISE HACRO V04,00
CROSS REFERENCE TABLE (CREF v04.00

- PRNREM

'PRNTIM
- PROMT
| PRTC'F
- PS

25-12

17-151
3-25¢
18-143
1-8¢

25-18

18-172
3-28
19-5¢

25- 2‘

30-67¢
3-34
19-20

25-30

17-21¢
17-27
17-34
17-30

17-23
17-32¢
17-37¢
17-38¢

17-36

PSTS

17-65¢

17-85

17-95

17-105

17-69
17-74

17-72¢
17-77¢

17-101
17-91

17-105¢
17-95¢

17-61
36-8
37-43¢

36-540

PST6

PST60
PST?

17-S51¢
17-56¢

17-68¢

26-70

29-38

PSTO
PST1
PST2
PST2A
PSTS
PST4

02:2‘:05 PAGE S-7

17-54

17-71

17-119

17-138

17-154

17-85¢
17-87¢
17-97¢

PST?S
PST8
PSTEO

17-81
17-78
17-88

PST9

17-98

17-107¢

17-32
17-55¢
36-3e

17-35¢
17-56
36-6

23-33
29-15¢
29-80
23-24

37-70¢
35-16
35-12
37-68¢

35-25
35-21

35-34
35-30

35-43
35-39

35-52
35-48

20-8¢
22-40

20-21¢
23-25

20-33¢
27-41

20-45¢
37-63¢

22-14

27-14

41-22¢

23-29

37-69¢

25-9
25-15
25-21
25-27

25-130
25-19¢
25-250
23-31¢

35-31¢

35-40¢

35-49¢

36-20

36-26+

36-53¢

33-33

33-37¢«

33-52¢

33-56

33-70

40-32¢

PST8OS
PSTES

PST9S

PSTE
PSTS
RADIX

17-115

17-20

41-21¢
41-240

41-230

25-32
18-150
3-6

35-13¢

18-71

RENYIR
e

9-22
15-22
14-36

17-119¢

18-49

25-34¢0
25-4¢
3-85¢

35-22¢

37-75¢

34-7
29-102

38-12¢

38-33¢
38-26¢

38-13¢

30-55

41-25¢

29-564
23-140
23-240
23-350
23-39¢

23-53

C1N

SEQ 0120

VO4.00 02:24:05 PAGE S-8
ISE
MACRO
EXERC
MOST (CREF
C2OMUCO CMRCV)-11TABLE
)
Vv04.00

E10
SEQ O

| CROSS REFERENCE

23-45

23-47¢

22-15

22-21

23-60

24-22

24-26

27-19

8-42

8-71

8-88

9-25

9-41

37-440
13-14

13-23

13-31

17-119

22-%

8-S

8-8e

10-22+

11-18e

8-10=
8-57
9-13

SCA2E
SCA2F
SCA3

23-41
23-48
23-18

23-43
23-51¢0
23-S4¢

SCART
SCONT
SCORTN

23-55
29-S8
29-62

23-58¢
29-61¢
29-640

SCALM

SCPAD

SCPRTN

18-125
8-25

6-32

6-42

6-49

7-10

7-22

8-28

11-16

11-26

11-36

12-13

12-17

12-32

SECS
SKP1

4-9
20-6

4-10
20-8¢

4-12+
20-15

S-9¢

30-76

40-33¢0

SKP1B

20-12

20-140

18-174¢
33-22+

33-81¢

40-340

7-Se
8-43
8-92

7-7
8-46
8-94e

7-15e
8-48¢
9-Se

g-&sg.
SKPIA

SKP2

SKP3

SKPSA
SKP3SB

SKP4

20-10

20-7

14-69

20-13¢

20-17¢

20-19

20-21¢

20-20

20-29¢

20-23
20-25

20-268
20-27¢

15-23

15-30

15-41

17-85

8-45

17-95

121

27-24

8-74

17-105

8-91

9-28

10-11

10-40

11-9

22-44

22-56

27-32

27-53

8-11

8-13+

8-16+

8-26

8-29

13-17«

13-33

13-35«

13-43«

13-51

9-44

14-30

14-37

14-44

14-55

20-28

SKPS

20-31

SHPS
SKP?7

20-32
20-43

SKPS

20-44

SKPX0
SKPX1
SLFL
SLOW
SPAR

-162
18-164
28-39
18-114
6-Sie

18-165¢
18-168
28-76
37-59¢
6-56¢

9-33¢
14-12+
15-12+
17-111s
22-26s
24-42¢

9-42
14-14¢
15-17+
17-128+
22-32¢
24-A4s

9-45
14-16+
15-24+
17-130s
22-41s
24-46¢

9-47+
14-18+
15-35+
17-134s
22-46¢
27-Te

10-18+
14-20¢
17-39¢
17-136¢
22-53¢
27-9s

10-20¢
14-31e
17-41e
21-11s
23-19¢
27-11%

14-38¢
17-43«
21-16#
23-26¢
27-13¢

14-56¢
17-4Se
21-18e
23-30¢
27-1Se

14-63»
17-47+
21-20+
24-14s
27-26¢

14-71e
17-51+
21-23«
24-16¢
27-33¢

14-73+
17-72+
22-7e
24-18¢
27-42¢

15-6+
17-107¢
22-9s
24-20¢
27-46¢

15-8+
17-108+
22-11e
24-29+
27-S0¢

14-10+
15-10e
17-110e
22-13+
24-34¢
28-44»

6-53
10-21+
14-1S¢
15-18

8-7a
10-23¢+
14-17¢
15-26

8-9¢
11-19
14-19¢
15-37

8-19
11-22¢
14-21¢
17-40+

8-36
11-23
14-33
17-42¢

8-53+
11-29
14-40
17-449

8-55»
11-32¢
14-58
17-46+

8-65
11-33
14-65
17-48»

8-82
13-20
14-72
17-52«

9-6¢
13-44
14-74
17-73

9-12¢
13-47¢
15-7«
17-77

9-19
13-48
15-9¢
17-87

9-35
14-11¢
15-11¢
17-97

10-19
14-13e
15-13e
17-108

22-26
24-30

22-34
24-35

22-42
24-43

22-47
24 -45

22-54
27-8¢

SKPSA
SKPSB
SKPTA
SKP78
SKPD2

SPAVFE
SPAVIC
SPAVE

SPUR

20-35
20-37

20-47
20-49

18-142

8-31e
8-81e

28-58¢
11-35
13-50
11-25

17-109

22-14s
24-21s

20-33¢

20-40

20-41¢
20-45¢

20-S2

20-38¢
20-39¢

20-500
20-51¢

20-53¢

18-161¢

8-34¢
8-89

29-72¢
38-19¢
38-260
38-18¢

17-112

41-260

17-129¢

17-131¢

17-135¢

7-16
8-5S1e
9-7

17-137¢

8-S4e
9-9a

21-13¢

23-20
27-10e

8-568
9-11e

21-17¢

23-27
27-12+

CaN

11-28+

21-19¢

23-31
27-14+

8-59+
9-15e

21-21+

23-35
27-16+

8-62¢
9-17e

21-24+

23-39
27-28

8-72
9-26

22-8¢

24-15¢
27-35

8-75
9-29

22-10s

24-17¢
27-43

8-77
9-31+

22-12¢

24-19
27-47

F10
| CZCMJUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
' CROSS REFERENCE TABLE (CREF VO04.00 )
' SPRCLR

| SPROAT

| SR
|
;

27-51
7-9

28-45
38-6¢

28-59

28-62

28-64¢

29-74¢

41-27¢

3-21e
8-86

3.22
9-22

6-31
9-23

6-41
9-38

6-48
9-39

7-9
10-10

7-21
10-35

22-S0

7-21

13-13
16-66

18-167

SRTST

30-20

3-19

38-7¢
13-22
17-12

22-29
30-23

29-30¢

SSWR
sT0
STl

1-100
6-25¢
6-28

29-30
6-32
6-330

ST101

8-S8

8-620

ST111
ST112
ST120
ST120S
ST121

8-67
8-76
8-82¢
8-87
8-84

8-80¢
8-91
8-910
8-92¢

ST130
STi31
STI31A
ST1318
ST132
ST132S
ST133
ST134
ST135
ST1355
ST136
ST14
ST1S

9-6¢
9-14
9-8
9-12¢
9-19¢
9-24
9-21
9-30
9-35¢
9-40
9-37
9-46
10-

ST10
ST100
ST110
ST110S

ST13

ST16

8-47
8-53¢

8-640¢
8-70

8-93

10-33

13-30
17-79

22-37

22-38

22-49

6-42

6-49

16-72

8-74
8-740
8-75¢

23-22

24-32

27-31

14-54
17-100

9-5¢

9-10
9-17¢
9-11¢
9-16
9-32
9-28¢
9-29¢
9-33¢
9-48
9-440
9-450
10-S¢
10-18¢

11-3¢

8-95

9-28

11-9

12-3¢

ST18

12-28

12-33

13-4¢

ST182

13-21

13-24¢

13-31

ST19

13-34

13-42¢

13-51

sT12
$720

6-38
13-49

6-430
14-8¢

14-30

11-10¢
11-17¢
11-27¢

11-16
11-26
11-36

12-13

12-18

13-15¢

9-44

10-11
10-40

11-34

14-22¢

14-43
17-99

8-23
11-15

8-79

12-7¢

ST200

14-36
17-90

8-22
11-8

8-510
8-61

ST170

13-12

14-29
17-89

41-28¢

11-7
11-14
11-24

ST180

13-50
17-80

30-27¢

ST160
ST161
ST162

ST17

SEQ 0122

02:24:05 PAGE S-9

12-17

13-16

13-14

13-23

14-37

14-44

TM
8 A

14-61
17-113

8-39
11-25

8-40
11-35

27-38

27-39

14-68
17-114

15-22
17-142

8-68
12-11

8-69
12-16

8-85
12-31

29-30¢

29-S3

29.57

15-29
17-146

15-40
18-46

16-62
18-163

R
R
RO~

G10
. CZOMJCO CMR(V)- u OOSY EXERCISE MACRO vO4.00
€ (CREF v04.00 )

T
CROSS REFERENCE

ST3
ST4
ST6

15-15¢
15-21

15-28

15-33¢
15-39

16-12¢
16-5

15-16
15-24¢
15-31¢
15-34

16-4¢
16-15
16-7¢
16-60¢
16-61

16-67
6-50¢
6-57
7-5¢
7-11¢
7-22
7-230

- Se33855Y

ST24
ST25
ST26

15-14¢

14-55

14-62

14-69

15-30

15-41

16-640
16-71¢
7-10
7-29

8-33

8-49

§38

ST224
stTas
ST230
ST23A

14-67
15-5¢

)

st223

14-42
14-49¢
14-51
14-60

14-31¢
14-38¢
14-45¢
14-53
14-56¢
14-63¢
14-70¢
15-23

ST206
ST207
st21
st22
S$T220
st221
sT222

14-35

| ST205

14-26

. ST202
ST203
ST204

SEQ 0123

02:24:05 PAGE S-10

30-24

30-34

30-19¢
23-23

24-33

29-430

29-31s

29-43

41-300

18-88

18-94+

18-95

19-16+

24-12

41-32¢

18-157+
S5-8s

23-56+

40-35¢
40-36¢

38-40¢
18-84
24-52+
19-13+
29-98
18-155+
4-8s

41-31¢
41-330

30-80

29-55

18-103

18-117+

H10

18-137

18-146

19-6+

23-42+

23-44

23-46+

H10
C2CMUC0 CMR(V)-11 HOST EXERCISE HACRO V04,00

' CROSS REFERENCE TABLE (CREF v04.00
TSTRSK
TSTSEL
e
TT0
TTOLF
TTOLP
T1S
THOSP
TYPCR
TYPCTP
TYPOUT

S5-33
S-15
36-34¢
16-13
29-87
36-23
36-38
36-35¢
36-35
18-72
6-14
30-28
3-24
8-25
16-49
18-48
23-29

29-9%6
USOFE1l
USOFE2

USOFES
USOFE4
USORM
VECTOR

VERFLG
VERSM
VERSP
VERSUN
VIDER
VISF

WDAT

34-9

14-43
14-61

15-29

15-40
27-49
3-41

6-7+
16-10
6-52
13-19

13-30
13-22

29-114

S-39¢
37-23¢
41-460
23-9
29-89

8-42
16-56
18-49
23-33

29-111

26-26
32-13

26-29
32-24

3-57
16-10
17-20
18-72
26-7
30-19

3-61
16-16
17-21
18-83
27-41
30-22

5-15
16-17
17-35
18-114
27-45
30-28

5-41
16-28
17-55
18-154
27-49
30-67

5-43
16-29
17-82
22-40
28-23
31-15¢

8-53
11-33
16-302
16-53«

8-60+
13-44+«

8-63+
13-45+
16-33«

8-64

28-56
33-82

28-74
33-87

29-83
35-58

33-40

37-19¢

3-40
8-88

16-78
18-59
23-50
29-118

3-47
9-25
16-81
18-67
25-4
29-125

6-12

6-13
16-37
17-102
23-24

6-14
16-48
17-116
23-25

12-7»

12-22+

29-75

41-40¢

8-17s
11-29+
16-22¢
16-45+

8-18

8-32¢
11-31»
16-25+
16-S0+

8-52+
11-32
16-26
16-Sls

16-36
17-92
22-52
28-37
33-36

28-61
33-40

8-78+
13-47
16-38+

13-48
16-39¢«

29-37
33-45

38-29¢
38-31¢

38-34¢
38-35¢
37-66¢
3-49«
16-4
37-45¢0
13-18
16-8
38-25¢
38-240

12-3»
16-7=

41-34¢

40-10¢
40-140

29-145¢

29-125
29-128

29-146¢
29-147¢

WPOoDI

11-21+
16-19+
16-41s
12-31

11-22
16-20s
16-42«
38-22¢

8-6¢

28-35
32-38

26-19
31-22

36-36

41-47¢
28-61
17-SS
37-22¢
3-25

WDSDB
WDMAS

WORD

23-11
30-71
36-44

36-340
36-40¢

SEQ 0124

02:24:05 PAGE S-11

8-7

8-14»
11-23
16-2i+
16-43+

11-30e
16-23»
16-46

16-31+
16-54

41-35¢

13-46+
16-34

110

—

11-20e

11-19¢

————

—

16-18+
16-40+

CZCMUCO CMR(V)-11 HOST EXERCISE MACRO vVO4.00

| CROSS REFERENCE TABLE (CREF VO4.00 )
;

1-21¢

3.57«
6-41e
8-85«
11-35¢
15-22¢
16-S7¢
17-20¢
17-99¢

R2
R3

a4
RS

3-25¢

3-93«
7-21¢
9-22¢
12-31¢
16-10¢
16-70¢
17-35¢
17-113¢

3-27¢

S-14»
7-28¢
9-25¢
13-13+¢
16-13¢
16-71e
17-5Se¢
17-116¢

18-53¢
18-143¢
20-24¢
22-43¢
23-29¢
25-18¢
26-36¢
28-%3¢
29-48¢
29-114¢
30-28¢
31-22¢

18-59+
18-15S0¢
20-26¢
22-49¢
23-33s
25-24¢
27-19¢
28-35¢
29-52¢
29-116¢
-38¢
31-26¢

18-67¢
18-154¢
20-36¢
22-52¢
23-37¢«
25-30¢
27-24¢
28-37+
29-5S¢
29-118¢
30-58+
32-12¢

18-70¢
18-169¢
20-38¢
22-55¢
23-40¢
25-33¢
27-31s
28-52¢+
29-77¢
29-119+
30-61¢
32-13¢

35-42¢
1-140
6-14¢
8-72¢
11-25¢
14-68¢
16-37¢
17-5S¢
18-48¢
18-154¢
23-25¢

35-44¢
3-24¢
6-31s
8-85+
11-3S¢
14-70+
16-47¢
17-79¢
18-49¢
21-14¢
23-27¢

35-Sle¢
3-25+
6-41e
8-88e
12-11¢
14-72+
16-49¢
17-82¢
18-50¢
21-1S¢
23-29¢

35-S3¢
3-33¢
6-48¢
8-89
12-16¢
14-74¢
16-55¢
17-83¢
18-59¢
21-17
23-33¢

35-58¢
3-40+
7-9»
9-22¢
12-31¢
15-22¢
16-75¢
17-89¢
18-67+
22-29¢
23-37+¢

29-117¢
30-32¢«
30-76¢+
32-41¢

29-125¢
30-33
30-78¢
32-45

29-126+
30-35
30-80+
33-19¢

25-4s
27-38¢
28-68+
29-74

3-24¢

3-69¢
7-9«
8-90e
12-16¢
15-40¢
16-69¢
17-24¢
17-104¢

18-S0¢
18-141¢
20-13¢
22-40s
23-28¢
25-12¢
26-34¢
28-26¢
29-46¢
29-113¢
30-25¢
30-82+
33.45¢

3.23«

3-61»
6-48¢
8-88¢
12-11¢
15-29¢
16-68¢
17-21¢
17-102¢

33-79
36-40¢

1-15¢

33-S8¢

25-33s
27-41e
28-69
29-75¢«

3% 54
36-43¢
6-52

33-82¢

26-7e
27-43s
28-73+
29-76

33-89
36-47«
6-53+

33-87¢

26-8¢
27-45¢
29-12
29-82¢
29-128¢
30-37¢
31-15
33-24+¢
34-9¢

13-18+¢

20-18
24-45¢
32-17+
1-166
27-16

20-21
25-7«
32-18+
13-19¢
29-10

20-29¢
25-8
32-19
13-20¢
29-18¢

20-30
25-13¢
32-S1s
13-25
36-4¢

29-19¢
1-180
1-19¢

36-17¢
29-8
6-32¢

36-18+¢
29-20e
6-42¢

36-24+

1-170

11-9»
14-55¢
27-53+

16-24¢

11-16¢
14-62¢
29-13

16-26¢

11-26¢
14-69¢
29-21+

16-27

6-49+

11-36¢
15-23¢
29-56

SEQ 0125

02:24:05 PAGE R-1
3-29«

5-15S«
8-22¢
9-27+
13-22¢
16-16+
16-75e
17-58e
17-118«

18-71e
18-172¢
20-48¢
22-59%
23-50e
25-34¢

27-38¢
28-56+
29-83«
29-124¢

29-129+
30-39
31-16+«
33-25

30-62¢
32-24¢
34-7«
35-61e
3-47
7-21e
9-25«
13-13«
15-29«
16-76+
17-92+
18-68+
22-37e
23-39
26-11e
27-49
29-16+
29-86+
30-11s
30-43%
31-17
33-31

13-24

13-32

33-93¢

26-10¢
27-47¢
29-15
29-84+

35-57¢

36-6

3-33«
S-18e
8-25¢
9-38«
13-30+
16-17+
16-77¢
17-70¢
17-148+
18-72¢
18-173¢
20-50¢
23-9
23-S8¢
26-7+
27-41s
28-60¢
29-85¢
29-125¢
30-67+
32-36¢
34-9¢
36-1S¢
3-50»
8-22¢
9-26¢
13-22¢
15-40¢
16-78¢
17-93¢
18-69¢
22-40¢
23-50s
26-13¢
27-Sls
29-37¢
29-88¢
30-1S+¢
30-47
31-19
33-36¢
36-8+

3-40+
S-41»
8-27e
9-41e
13-50«
16-28+
16-78¢
17-75«
17-151e
18-75e
18-174¢
20-53e
23-10+
24-22¢
2627-44¢
28-61¢
29-87+
29-127s
30-69+
32-38¢
34-10+
36-23+
3-57«
8-25+
9-38+
13-30«
16-10e
16-81e
17-99
18-71e
22-42¢
24-32¢
26-15e
28-23¢
29-S6¢
29-96¢
30-16+
30-51
31-21e
33-38«
36-11

29-89+
29-128¢
30-71¢
32-52¢+
35-15¢
36-39¢
3-61+
8-26+

29-90s
29-130+
30-73¢
32-55¢
35-17+
36-41s
5.15
8-39¢

17-102¢
18-72¢
22-49¢
24-35¢
26-16¢
28-32¢
29-60
29-98+
30-17
30-59
32-14
33.40¢
36-12¢

17-103+
18-77s
22-52«
24-362
26-18+
28-34+¢
29-69+
29-110
30-19«
30-67+
32-17
33-45¢
36-22¢

16-8+
20-42
25-20
35-23+
16-18

16-12
20-45
25-25¢
35-32«
16-30

17-50+
21-9+
25-26
35-41¢
16-38

17-52
21-12
26-10
35-50«
16-50

18- 63.

27-6+

29-9

9-42+
14-29«
16-16+
17-12¢

9-41
13-S0+
16-12¢
16-83¢

20-33
25-14
32-S4¢
13-32
36-14¢

20-41e
25-19»
35-14¢
16-9+
36-18
16-34+

16-35

16-44»

16-46¢

16-47

16-52+

7-10¢

7-22¢

8-28+
12-32+
17-85¢

8-45«
13-14¢
17-95»

8-74«

8-91e

9-28+

16-32¢

12-13¢
15-30¢
29-59¢

12-17s
15-41s
29-64+

35-12¢

35-16+

13-23¢

17-119«
35-25+

17-105¢
35-21»

—

J10

13-31s

13-Sle
22-30¢
35-30¢

—
.
————

20-17+
24-43+
32-9
36-12

10-40«

9-449

14-44¢

14-30+
22-44»
35-34¢

—
——
———

27-32«
35-43«

—

J10
| CZOMJICO CMR(V)-11 WOST EXERCISE HACRO VO4.00
| CROSS REFERENCE TABLE (CREF Vv04.00

- SP

55-48¢

35-52«

12-24¢
29-11s
g;-lloo
-S4

12-24¢
29-12¢
29-117
$3.27¢

1-20¢

3-4e

3-10«

12-29
29-15
29-122
33.S50¢

3-12«

12-29
29-16
30-41¢
33-Sle¢

02:24:05 PAGE R-2

3-12«

17-65¢
29-17
30-49+
33-72¢

3-89«

17-65¢
29-18
31-15«
33-83+

3-89«

18-36+
29-19
31-16
33-88+

5-5Se

18-36+«
29-20
31-23+
33-92+«

K10

S5-Se

28-19+
29-36+
31-25
36-11+

12-4»

28-86
29-59
32-9¢
36-27

12-4¢

28-90¢
29-94
32-10¢

12-15

29-8¢
29-95¢
32-50

12-1%

29-9+
29-101+
32-51

K10
| CZCMICO CMR(V)-1 1 MOST EXERCISE MACRO VvO4.00

' DATERR
!

. ERROR
A

NTPS

PNTH

1-71¢
11-15
22-37

1-61¢
22-49
1-81¢
1-101¢
1-87¢
6-14
16-78
18-59
23-50
29-125
1-115¢
1-111¢
1-94¢
11-9
14-55
27-53

6-41

13-13
27-31
6-31
23-22
17-13

BE e UUENE Se wu BB She
SRALYSANSANS 2BLEs

| CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0127

02:24:05 PAGE M-1

7-9
14-29

14-36

14-43

8-22

8-39
14-54

14-68

15-22

15-29

15-40

10-10

10-35
17-113

11-8
22-29

11-35

12-11

12-16

12-31

13-50

17-12

17-79

17-89

17-99

18-46

23-23
5-5

24-33

29-55

5-15
16-17
17-102
23-24
28-61
34-9

S-41

16-29
17-116
23-25
29-37

5-43
16-37
18-48
23-29
29-96

6-12

17-55
18-154
27-49
33-36

3-61
16-16
17-92
22-32
28-37
33-45

8-28
12-32
17-85

8-74
13-23
17-105

8-91
13-31
17-119

3-33
8-71
17-20

18-72
26-7
30-22
35-34
35-30
6-49
11-36
15-23

7-21

12-4
3-40
8-88
17-21

18-83
27-41

30-28
35-43
35-39
7-10

12-13
15-30

17-65
3-50
9-41

8-85

9-22

9-38

16-49
18-49
23-33
29-111

10-11

14-37
22-56

6-13

16-75
18-50
23-37
29-114

14 44
7-32