Digital PDFs

AH-F914C-MC

April 1985

128 pages

Original

5.2MB

view download

OCR Version

4.4MB

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_bw.pdf

OCR Text

APR 1985

ElEoRan

Made

USA

SEQ 0001

IDENTIFICATION

PROGRAM COODE:

AC-F912C-MC

PROGRAM NAME:

CZCMUCO CMR-11 HOST EXERCISER

DATE CREATED:

30-MAY-79

MODIF IED:

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

MAINTAINER:

SPECIAL SYSTEMS KANATA

. TME
DFORMATION IN THIS OOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
MO SHOLD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. OIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR

| ASIY EMRMORS TMAT MAY APPEAR IN THIS DOCUMENT.

| DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
gcglil.nnITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED Bv
THE FOLLOWING ARE TRADEMARXS OF OIGITAL EQUIPMENT CORPORATION:

OEC

OECuUS

DECTAPE

aBus

VAX

CMR-11

MASSBUS

POP

Y Y

) I

' NIBUS

YUV Y

)

dglid)t)e)l)

)

5€Q 000¢

MISTORY

NEW

NUMBER

vC-2018¢€-02

14 JUAN 80

AC-F912A-MC(CZCMUAO)

28 NOV 80

AC F9128-MC(CZCMUBO)

REASON FOR MOOD.

8v:

ORIGINAL PROGRAM TO TEST CMR

0.G.w.

ORIGINAL RELEASE 10 S.D.C.

0.G.w.

HOST LOGIC.

PRODUCT BECOMES CATEGORY

(U.S.)

~"A"

.CHANGE CNTRL CHAR FOR SFTWR SWITCH

REG FROM CNTRL-S TO CNTRL -G

0.G.w.

PRINT DEFAULT PARAMETERS AT

START-UP,

.ADD A ONTRL CHAR., AND A FLAG TO
ALLOM PRINTING A PORT CONFIGURATION
STATUS TABLE WMEN AVAILABLE.
.PRINT EI APSED 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

FIRST PASS OF THE LOGIC TEST SO
THAT THE CORRECT BAUD IS SHOWN
WITH THE CORRECT PORT NO.

THE

28 SEP 84

AC-F912C-MC(CZCMICO)

. INCORPORATED PATCH (CZCMUBL) TO
CLEAR 'MINUTES' AFTER EACH HOUR
.CHANGE DELAYS IN CERTAIN PARTS

OF THE PROGRAM SO THAT ERRORS
OON'T OCCUR SIMPLY BECAUSE THE
PROCESSOR IS AN '11/44 OR BECAUSE
*CACHE"~ 1S ENABLED.
.ADD A SECTION TO THE ‘'EXERCISER'

SO THE USER CAN SELECT WHICH
CMRO1 REMOTES ARE ON-LINE AND

ARE 10 BE EXERCISED. THIS IS
TO DRASTICALLY SHORTEN THE RUN
TIME FOR "PER-CALL" CUSTOMERS.

.ADOED PRINTOUT IN LOGIC TEST TO

WARN USER TO DISCONNECT COMMUNICATIONS
TO ALL REMOTES BEFORE CONTINUING.

0.G.w

rrrrrLrcrrcrrrsrorooc

.ADD CODE WHICH PRINTS THE “STATE"
OF EACH "REGULAR” REMOTE ON A
PORT IN THE PORT CONFIGURATION
STATUS PRINTOUT.

D1
TABLE OF

5€Q 0003

CONTENTS

SECTION

REQUIREMENTS

ASSUMP TIONS

JUPTIONS 7 CONTROLS

END OF PASS

~NOVNE
W
-

MAINTENANCE ROUTINE

VOOV OOVY

TEST SELECTOR
LOGIC TESY
PORT LOOP -BACX
HOST-REMOTE EXERCISE

TEST DESCRIPTION
START -UP

]

STARTING 7 RESTARTING

| LOADING

CAUTIONS

RESTRICTIONS

GENERAL

[

HEAD ING

E1l
-~

SEQ 0004

THIS PROGRAM IS TO BE USED TO TEST THE COMPACT MICRO REMOTE
HMOST HARDMWARE (CMR-11 M8990 OR CMV1l M7181-M7182)AND TO BASICALLY CHECX COMMUNICATIONS BETWEEN THE HOST MARDWARE ON THE UNIBUS
AND THE REMOTE HARDWARE.

THE PROGRAM IS DIVIDED INTC THREE PARTS, PLUS A FOURTH

PURPOSE

MATI-

"MAINTENANCE* ROUTINE:

HOST LOGIC TEST

- PORT LOOP-BACK TEST
CMR EXERCISE ROUTINE
-

"MAINTENANCE“ ROUTINE

THE HOST LOGIC TEST IS INTENDED TO BE RUN WITH ALL REMOTE
COMMUNICATION DISABLED OR DISCONNECTED AS IS THE PORT LOOPBACK TEST.
THE CMR EXERCISE ROUTINE, HOWEVER, CAN BE RUN
WITHOUT CHANGING ANY OF THE MAROMARE FROM ITS “"INSTALLED"

$(E)IT)ITIN.
XT.

FOR THE DETAILS OF EACH TEST,

SEE THE ACOMPANYING

) ON THE lNIBUS +Q@-8US)
CONSOLE TERMINAL ON LINE
PORT JAMPERS:

FOR PORT LOOP BACK TEST A

10 PIN FEMALE BERG PLUG IS REQUIRED

WITH PINS 9 TO 2 AND 7 TO 10 JUMPERED

FOR EACH PORT

TO BE

TESTED.

OTHER:
THE PROCESSOR MAINDECS AND CONSOLE TERMINAL TESTS
MUST HAVE BEEN RUN SUCCESSFULLY BEFORE RUNNING
THIS PROGRAM.

F1
SEQ 0005

RESTRICTIONS

THE HOST LOGIC TEST WILL GIVE ERRORS IF REMOTES ARE CONNECTED AND ON-LINE.
CAUTIONS

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, HOWEVER,
MAY BE RUN UNDER THESE CONDITIONS.

COMMUNICATION PORTIONS OF THESE TESTS FROM MOST

TO REMOTE

AND REMOTE TO HOST MAY TAKE A CONSIDER-

ABLE LENGTH OF TIME IF THE PORT BAUD RATES ARt SET

LOW (300 BAUD).

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

5.1

5.2

IN THE PORT LOOP-BACK TEST, IT IS ASSUMED THAT WHEN THE
OPERATOR TYPES <CR> INDICATING "READY", HE HAS LOOPED A
:?&Fkrggrgoflm TO INPUT PHYSICALLY, AND HAS SELECTED THAT PORT
IT IS ASSUMED, IN THE CMR EXERCISE ROUTINE, THAT THERE

ARE REMOTES ATTACHED (AT LEAST ONE) AND THAT THEY ARE

:'*Rfi?ml.efl'

IF THIS IS NOT THE CASE, THE ROUTINE WILL

OPTIONS 7/ CONTROLS

SWR -

MEANS

100000
040000

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

020000
004000
002000
6.2

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

CONTROL CHARACTERS

CNTRL -C

RESTART TEST SELECTOR

ONTRL -G

SHOM “SWR” OPTIONS
PROCEED
ENTER “MAINTENANCE* DEBUG ROUTINE
SHOW CONSOLE FILL COUNT
PRINT PORT CONFIG TABLE

CNTRL_T

CNTRL -P
CNTRL -0
CNTRL -F
CNTRL -A

[

(51
SEQ 0006

NON SWR PROCESSORS

ON PRCCESSORS WITH NO PHYSICAL SWITCH REGISTER
THE OPTIONS CAN BE EXAMINED OR CHANGED BY THE USE OF

“CNTRL-G" AND AT THE TIME OF AN ERROR HMALT. 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

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

STARTING 7/ RESTARTING
STARTING ADDRESS :
RESTARTING ADDRESS

200
204

TEST DESCRIPTION

9.1

INTERFACE ADORESS:
INTERFACE VECTOR:

(NNNNNN)
(NNN)

INTERFACE PRIORITY:

(NN)

THE VALUE SHOWN IN PARENTHASIS ARE DEFAULT VALUES WHICH WILL BE

USED IF ONLY <CR> IS ENTERED. IF A NEW VALUE IS ENTERED (XxXxx),
WILL BE USED AS THE DEFAMAT AT FUTURE START-UPS.
IF THE PROCESSOR HAS NO SWITCH REGISTER, THE SWITCH
OPTIONS WILL NOW BE SHOWN AND MAY BE CHANGED (AS IN #6).

1
SEQ 0007

9.c

TEST

SELECTOR:

SELECY TEST (4 = MELP):
(HELP MESSAGE READS:)
SELECT ONE OF THE FOLLOWING:
CR OR

LOGIC TEST
PORT LOOP-BACK TEST

OR EXERCISE

THIS HELP INFO
TEST SELECT

SWITCH OPTION SELECT
CONSOLE FILL COUNT SELECT
DEBUG ROUTINE WHICH ALLOMWS
LOADING SCPD AND STARTING

FUNCTIONS AND EXAMINING THE
RESWLT.
PRINT PORT CONFIGURATION

STATUS TABLE IF AVAILABLE.

PROCEED FROM SW MONITOR

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 MOOEMS TO LOCAL LOOPBACK

OR DISCONNECT THE CABLE TO THE FIRST REMOTE ON EACH PORT.

THEN TYPE <CR>,

CSR = CONTROL & STATUS REGISTER
SPAR = SCRATCHPAD ADORESS REGISTER
SPOR = SCRATCHPAD DATA REGISTER
(CSR)

1514 13121110

€=

:
@
s

S
T S ST FUN
I
S INIT
S e e e eea ENABKS
I R
ENACST
T
S S CLRTPB
P REPTHRU
D IE
z

:
s
:
[S
"
R

INT______:
:
:
:
FUNCOM______ :
:
:
CMGSTA_________:
:
:
MNMDET____________:
:
s
s
TMRY. ...t
:
PR _ o
___. s
NOT USED _ __ oo :

X
»

9.3

Il
SEQ 0008

(SPAR)

1514 13121110

NOT USED

< -

2
-

SCRATCHPAD ADDRESS
1

(SPOR)

15 14 13121110
< -

eme

eae=)

7
<

NOT USED___________ )

5
-

= RESWT

: ____ _ ___SCRATCHPAD DATA

THE FOLLOWING TESTS £&E PERFORMED:
TEST
TEST
TEST
TEST
TEST

OF THc PWR-UP SEQUENCE
THE SCPD ADDRESS REG.
THE SCPO MEMORY
ALL OF THE CSR
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 FIRMWARE
. 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 AMPER PLUGS INTO THE HOST PORT
PLUGS OR BY SWITCHING THE LOM (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 MOST -REMOTE EXERCISE

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

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

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 THZ FASTEST BAUD RATE JUST TO FIND WHAT REMOTES
ARE ON-LINE (EVEN IF THERE IS ONLY 1).

J
SEQ 0009

GENERAL

RESPOND BY TYPING A O (OR JUST <«CR>) IF YOU WANT TO TELL
1HE ROUTINE WHICH REMOTES ARE ON LINE AND ONLY THOSE WILL
BE SCANNED. THEN A “FORCE INTERROGATE" FUNCTION IS DONE
ON EACH ReMOTE FOUND.

*'GENERAL'

IS CHOSEN,

THME USER IS PROMPTEC FOR THE

REMOTE NUMBERS HE WISHES TO BE SCANNED AS FOLLOWS:
TYPE PORT/REMOTE #'S (400=HELP,
1

<CR>=END)

REM ¢

THE USER IS COMPELLED TO ENTER AT LEAST 1 REMOTE NUMBER

BECAUSE THE PROGRAM KEEPS PROMPTING FOR THE FIRST REMOTE
IF JUST A <CR> IS TYPED FOR THE FIRST REMOTE ¢.

EACH ENTRY IS COUNTED IN THE LEFT COLUMN BECAUSE A MAXIMUM
OF 32 ENTRIES ARE ALLOWED.
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").
OURING THIS MAIT, 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
FE’%T ”n

0(1)
100(1)

1(1)
101(1)

2(1)
102(0)

3(1)
103(0)

SHIWING EACH PORT ONLY IF THERE ARE REMOTES ON THE PORT
W' CH ARE "REGULAR“ AND SMOWING THE REMOTE “STATE" WHERE:
(0) = INITIALIZED
(1) = PASSIVE
(2) = ACTIVE
ssssessssss

THIS PRINTOUT ALSO OCCURS IF CNTRL-A

sesseesssss IS TYPED ANY TIME AFTER THE FIRST
ssssssssess TABLE IS PRINTED.

FOLLOWING THIS PKRINTOUT,

THE

*DIAGNOSTIC“ OR

sssessesssss

420800000004

YTy

“FORCE

INTERROGATE” FUNCTION IS ATTEMPTED ON EACH REMOTE PRESENT.
DIAGNOSTIC 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:
ses REMOTE STATUS CHANGE see
REMOTE #X
REGULAR
/

REMOTE STATUS NOW-

IRREGULAR

YYYY

1
9.6

SEQ 0010

"MAINTENANCE" DEBUG ROUTINE
CAUTION SHOWLD BE EXERCISED WHEN USING THIS ROUTINE

SEE SECT.

THIS ROUTINE OPERATES LIKE A SIMPLE “ODT". HOWEVER,
IT ALLOWS EXAMINING AND/OR DEPOSITING ONLY IN THE
CMR-11 SCRATCHPAD 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 OESCRIPTION (vC-C318C-00).
THEN YOU START THE FUNCTION 8Y TYPING

"G".

THE

RESUW TS 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 ADORESS.

<LF>

(LINE FEED)

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

XXXX<CR>

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

XXXX<LF>

DEPOSIT

SET “STFUN" OR “MAIN“ TO START

PROCEED OUT OF THE

(CSR ADDR)/

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

"XXXX* IN THE CURRENTLY

OPEN ADORESS, CLOSE IT AND
OPEN THE NEXT SEQUENTIAL ONE.

THE CURRENTLY LOADED FUNCTION
'DE-BUG’

ROUTINE AND RETURN TO THE SPOT
WHICH WAS LEFT WHEN CNTRL-O
WAS TYPED. (ANY PROMPTS WILL
BE RE-ASKED).

IN THIS FASHION.

L1
9.

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 FULLOWING FORM:
END PASS @ X ERR, CNT,

= 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 ee” WILL BE PRINTED INSTEAD.

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

PRINTEC ONLY AFTER 10 (OCTAL) PASSES THROUGH WAICHEVER
TEST IS RUNNING. OTHERWISE, 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 MITH 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.,

(HOURS, MINUTES,

HH:MM:SS:TT

SECONDS, AND TICKS WHERE ONE TICK = 1/60 SEC.)

10.

FOR THE MOST PART, ERROR PRINTOUTS ARE SELF -EXPLANATORY.
THE ERROR NUMBERS AND ADORESSES CAN BE USED FOR REFERENCE TO

THE PROGRAM LISTING FOR FURTHER DETAILS.

ALL ERRORS WILL CAUSE THE CPU TO "HALT” OR ENTER THE “SWITCH
MONITOR” UPON THE OCCURRENCE OF AN ERROR UNLESS SWITCH OPTION
BIT 15 IS SET (1). THIS IS ODONE S0 THAT THE OPERATOR HAS THE
OPPORTUNITY TO SFT UP A

OCILLOSCOPE ON THE SUSPECT LOGIC AND

CAUSE THE PROGRAR TO ~LUOP* IN THE ERROR CAUSING COOE B8Y SETTING
SWITCH OFTION BIT

15,14 AND 13 AND CONTINUING.

1]
C2CMUCO CMR(V) 11 MOST EXERCISE MACRO v04.00

17
1828-

29-

30-

3132
35
37-

P
ot P

5.
6-

s P

s Pt

s P

Pt Pt

e Pt wn

TABLE OF CONTENTS

02:24:05

SYMBOLIC ODEFINITIONS
MACRO DEF INITIONS
TRAP CATCHERS

SYMBOL IC 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

SEQ 0012

N1
CZCMJUCO CMR(V) 11 HOST EXERCISE MACRO V04,00
1
2
3

SEQ 0013

02:24:05 PAGE 1
LTJITLE
CZCMUCO CMR(V)-11 HOST EXERCICER
.SBTTL SYMBOLIC DEFINITIONS
LNLIST
TTM

LIST

S
6

;sINTERNAL DEFINITIONS:

[

177776

177570
032502

9
10
11
12

HWSWR
SSWR

]

=
=

177776

177570
SWREG

sREGISTER DEFINITIONS:

000000

16
17

000002
000003

R2
R3

=
=

P
3

s
s
=

%5
%6
%7

000001

000004

19
20
21

000005
000006
000007

RS
SP
PC

25
26

000340
000300

P7
Pé

.
=

000140

27
28

000240
000200

30
31
32

000100
000040
060000

g;
100000
040000
020000

010000
004000
002000
001000
000400

42
43
44

47
48
49

S0
51
g%
S4

5SS

PS
P4

P2
P1
PO

340
300

.
=

240
200

=
=

100
40
0

140

,B8IT DEFINITIONS:

36
37
38
39
40
4}

;sBUS REQUEST DEFINITIONS:

000200

000100

000040

000020
000010
000004
000002

000001
002000

815
B14
B13

812
811
810
809
808
807

.
=
=
=
=

100000
40000
20000

200

=
s

806

804
803
802

=
.

B80S

BO1
800

ISP

10000
4000
2000
1000
400
100

=
.
=

2
1

20
10
4

BEGIN

.SBTTL MACRO DEFINITIONS

;sINITIAL STACK POINTER

—

———

——

————

A———

—

a——

B,
[§

CZCMJCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

MACRO DEF INITIONS
58
59
60

00000 [
1

62
63
64
65
66
6’

72
73
74

75
76

80
8i
82
83

85
86
a7
88
89
90

N
92
93

ERROR

BIT

0814 ,85R

BNE
MOV
2.0}
JSR
.

P MSG

j000000e

ERROR P

oeesees

je0essee

ERROR

e¢0eesee

.+20
#SG RO
P, ERRNUM
PC.ERR
Nel

.MACRO

OATERR

81T

#814,85R

BNE
MOV
MOV
JSR
-

.ENDM

MACRO

JSR

. ENDM

P MSG

.+20
oSG, RO
P, ERRNUM
PC .DERR
Nel

®WMLT

PC.SWLT

tPRINT MACRO (MSG ADOR IN RO)
.MACRO

MOV
JSR

. ENDM

PNTM

#A RO
PC.TYPOUT

1PRINT MESSAGE

:SCOPE LOOP MACRO
.MACRO

95
9%
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

LMACRO

. ENDM

70
71

77
78
79

1 INITIAL ERROR NUMBER

:ERROR MACROS

68
69

SEQ 0014

02:24:05 PAGE 1 1

JSR

SCOPE

RS,SCPRTN

. ENDM

;sINTER-PDP-11 COMPATABLE MOVE T0O PS
.MACRO

MTPS

MOV

oLL,-(SP)

RTI

LLL:

SRC, 2LLL

. ENOM

tREGISTER SAVE AND RESTORE MACROS
.MACRO

JSR

. ENDM

REGSAV

RS ,REGSAV

sPOINTED 10 By A

C'v
(

CICMUCO CMR(V) 11 TMOST EXERCISE MACRO v04 .00

02:24:05 PAGE

MACRO DEF INITIONS
115
116

117

.MACRO

JSR

.ENDM

REGRES

S
RS,REGRE

5€Q 0015

Do
CZCMUCO CMR(V) 11 TMOST EXERCISE MACRO vO4.00

S€EQ 0016

02:24:05 PAGE 2

TRAP CATCHERS

000136
000142

©O:-

VDN

VDV

°*

O+

O-

©O:

O+

VDNV

VDD

000130
000132
000134
000136
000140
000142

.e2
0

000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

OVATST
340
126.

000010

.s2
0

017434
000340
000176

DPCSTA:

000002

§85585559555008800000000000800R0R00000000000045020550

OO
IO NS W)

.SBTTL TRAP CATCHERS
.ENABLE ABS
0

1 TRAP BAD DEVICE ADORESSES

CZ2CMUCO CMR(V) 11 MOST EXERCISE MACRO vO4.00 02:24:05 PAGE 2 1
TRAP CATCHERS

000144
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172

000174
000176
000200
000202
000204
000206
000210

000212

000146
000000
000152
000000
000156

000000
000162
000000
000166
000000
000172
00000C
000176
000000
000202
000000
000206
000000
000212

000000

LWORD
.WORD
MWORD
.WORD
LWORD
WORD
JWORD
WORD
MORC
WORD
MORD
WORD
MWORD
.WMORD
WORD

WORD

MORD

.WORD
.WORD
LWORD
.MORD
LWORD
LMORC
MORD
.MORD
WORD
HORD
LHORD
WORD
MORD
LMORD
MORD
WORD
LHORD

000262
000264
000266

000000
000266
000000

MORD
LMORD
.MORD

000300
000302
000304
000306
000310
000312
000314
000316
000320
000322
000324

000302
000000
000306
000000
000312
000000
000316
000000
000322
000000
000326

000270
000272
000274
000276

000272
000000
000276
000000

O
.2
O

000216
000000
000222
000000
000226
000000
000232
000000
000236
000000
000242
000000
000246
000000
000252
000000
000256
000000
000262

.2
O
.2
O
.2
O

WORD
MORD
MORD

000214
000216
000220
000222
000224
000226
000230
000232
000234
000236
000240
000242
000244
000246
000250
000252
000234
000256
000260

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

MORD
LMORD

LMORD
.MORD
WORD
.MORD

WORD
.WORD
LHORD
MORD
LMORD
WORD
WORD
.MORD
WMORD
.WORD
LWORD

.e2
O
..2
O
.2
O
.2
O
..2
0
L 02
O
.2
O
.02
O
.2
O
.2
O
.2
O
.2
O
.2
O

.2
O
.2

O
.e2

O
,e2
O

<2
O
.2

SEQ 0017

Fe
C2CMUCO CMR(V)-11 HOST EXERCISE MACRO vO4.00

02:24:05 PAGE 2-2

VDR

O
o

O+

VDD

©®

000000
000342
000000
000346

000336

000000
000332
000000

000326
000330
000332

FHH R HEHH BB
S

TRAP CATCHERS

SEQ 0018

Ge
CZCMJUCO CMR(V) 11 HOST EXERCISE MACRO vO4 .00

02:24:05 FAGE 2 3

VDD

NVD

*®

[

DDV

[

DNV

[

000516
000520
000522
000524
000526
000530
000532
000534
000536
000540
000542
000544
000546
000550
000552

000512
000000
000516
000000
000522
000000
000526
000000
000532
000000
000536
000000
000542
000000
000546
000000
000552

«c

000510

000512
000514

TSR

TRAP CATCHERS

SEQ 0019

CZCMJUCO CMR(V) 11 HOST EXERCISE MACRO V04 .00

02:24:05 PAGE 2 4

000000

.
-

N A° 2N A VI
A

*
-

A C TR AV N AV B

IV I \C T AV 2
A

.
-

RV IR
.

¢S

TNV T VT

000762
00000C
000766
000000
000772
000000
000776

. WORD
. WORD

000000
000756
000000

. WORD
. WORD

000000
000676
000000
000702
000000
000706
000000
000712
000000
000716
000000
000722
000000
000726
000000
000732
000000
000736
000000
000742
000000
000746
000000
000752

5359388585080850 8855085885583 :

000672
000674
000676
000700
000702
000704
000706
000710
000712
000714

TRAP CATCHERS

5€Q 0020

1
CZCMJCO CMR(V) 11 HOST EXERCISE MACRO v04.00
Vello IENY NV, B NV 305 o

SYMBOLIC LISTING

000200
000204
000210
000212

001574
002000
00"

MOV
RESET

21
0c2106

002112
002116
002116
002122
002126

27 002134
28 002140
002146
31 002152
002160
33 002162
002162
002166
002172
35 002176
002204
37 002210
002216
39 002222

002230
002230
002234
41 002240
002246
43 002252
002260
45 002264

#ISP,SP

RESTRT

012706
000005

002000

012746
012746
000002

000340
002020

005067
105067
012737
012737
005737
005067
012737
012737
012767
005777
004767

030410
030353
017406
000340

012700
004767

022212
016440

012700
004767
016767
004767
012767
004767

022577
016430
030370
015452
002116
016446

026727
103006

017352

012700
004767
000167
012737
005777
012737
205037
016767

022624
016364
177720
017434
030312
017654

012700
004767
016767
004767
012767
004767
026727

022657
016316
030254
015340
002222
016334
017240

BEGIN:

RESET
MTPS

RTI

644

017662

017302

MOV

MOV
MOV

177776
030430
017416
000340
177570
030376

000006

SEQ 0021

.SBTTL SYMBOLIC LISTING
.
200
JHP
BEGIN

002000

13
14
15
16
17
18
19

000200
000167
012706
000005
000167

02:24:05 PAGE

PROMT :

017374

164000

017262
030172
000776

MOV
JSR
MOV

BHIS
PNTM
MOV
JSR
PRMT1:

000004
030272

TST
CLR
MOV
MOV
MOV
TST
JSR
PNTM
MOV
JSR
PNTHM

MOV
JSR

030304

000004

CLR
CLR8B
MOV
MOV

PRMTZ:

MOV
TS7
MOV
CLR
PNTHM
MOV
JSR

MOV
JSR
MOV
JSR
cHe

2000

#ISP,SP
oP7
®#7,-(SP)

; INITIALIZE THE STACK
;CLEAR THE WORLD
1STOP INTERRUPTS

2644, -(SP)

DEVER
LSIFLG
#LSTST, 94
07,806

9177776
SWRFLG
#SRTST, 304
®7, 906
MSWR , SR

8SR

PC,NLLS

TSTHOR

#TSTHOR, RO
PC, TYPOUT
FRAD
#FRAD, RO
PC, TYPOUT

1PREPARE TO CHECK FOR LSI 11

1CHECK FOR PSW ESET FLAG
:SET UP TO TRAP IF NO SWR.

$1SET UP TO CHECK IF ANY MD SWR
$SEE IF IT'S THERE
iNULLS AFTER RESET
s PRINT MESSAGE

:POINTED TO 8Y TSTHOR
$ASK FOR 1ST UNIBUS ADDR OF CMR-11

PC,PROFLT
OPROMT ,PCONT
PC.INPKB

$PRINT MESSAGE
:POINTED TO 8Y FRAD
sLOAD DEFAULT ADDRESS
1GO PRINT DEFAULT
1LOAD RETURN ADORESS
:GET KBD INPUT

KBBUF , #164000

+IS IT WITHIN LIMIT?

OEVADR , KBBUF

PRMT1

AGAIN
#AGAIN, RO

PC, TYPOUT
PROMT
SOVATST , 904

SDEVADR

OHOER , 804
846
KBBUF ,DEVADR

OVECT
#OVECT,RO
PC, TYPOUT

VECTOR ,KBBUF

PC,PROFLT
OPRMT2,PCONT

PC, INPKB

KBBUF ,0776

;0.W 001

s YES, TEST IT
1NO, ERROR & ASK AGAIN
1 PRINT MESSAGE
sPOINTED TO BY AGAIN

+IS IT A GOOD ADOR?
1SET UP FOR FURTHER TRAPS
sALLOW CLOCK TO FUNCTION
tREPLACE CMR-11 DEFAULT ADDRESS ;D.W 001
1ASK FOR DEVICE VECTOR

1PRINT MESSAGE

1POINTED TO By OVECT
+LOAD DEFAULT VECTOR
1GO PRINT DEFAWLT
1LOAD RETURN ADORESS
1GET KB8D INPUT
1IS IT WITHIN LIMITS?

CZCMUCO CMR(V) 11 HOST EXERCISE MACRO V04.00
SYMBOLIC LISTING
46 002272

101406

002274

022624
016252

48
49

012700
004767
000167
016767

51
Se
S3
54
55
56

012700
004767
016767
004767
012767
004767
026727
003406

022703
016230
030172
015252
002310
016246
017152

012700
004767
000167

022624

47 002274

S8
S9
60

62
63
64
65
66
67
68
69

70
71
72
73
74 002460
75 002466
76 002474
77
78
79

80
81
82

83
84
85
86
87

002510
002514
002520

002526
88 002534
89 002542
002542
002552
002554

030202

PRMT3:

026727

012700
004767
000167
006367
006367
006367
006367
006367
016767
004767

022624
016140
177666
017102
017076
017072
017066
017062
017056
015066

PRMT3

1 YES, GET PRIORITY

MOV
JSR
S

#AGAIN,RO
PC,TYPOUT
PRMT?2

1PRINT MESSAGE

PNTM
MOV

OVPRIO
#OVPRIO,RO

MOV

FKPRIO,KBBUF

1POINTED TO 8Y DVPRIO
:LOAD DEFALT PRIORITY

AGAIN

sLOAD RETURN ADORESS
1GET KBD INPUT
1IS IT WITHIN LIMITS?
sLOW ENOUGH, OKAY
1NO, ERROR AND ASK AGAIN

MOV

JSR

017174
030104

000007

PRMTA:

030004

KBBUF ,VECTOR

PC,.TYPOUT

PC,PROFLY
OPRMT3,PCONT
PC, INPKB
, #7
KBBUF
PRMT4A

MOV
JSR
JP
CMP

@AGAIN,RO
PC, TYPOUT
PRMT3
KBBUF
, 64

B8GE

PNTM

PRMTS:

AGAIN

JSR
MOV
JSR
crP
8LE

PNTM

000004

SEQ 0022

8LOS

PNTHM

016164

177712
017126

002006

177712
017214

02:24:05 PAGE 3

MOV
JSR
JP
ASL
ASL
ASL
ASL
ASL

MOV
JSR

PRMTS

AGAIN

RO
®AGAIN,
PC.TYPOUT
PRMT3

KBBUF
KBBUF
KBBUF
KBBUF
KBBUF

KBBUF ,PRIO
PC,DEVGEN

sNO,

ERROR AND ASK AGAIN

1POINTED TO BY AGAIN
{REPLACE CMR-11 DEFAWLT VECTOR
$ASK FOR CMR-11 PRIORITY

1 PRINT MESSAGE

1GO PRINT DEFAULT

1 PRINT MESSAGE

1POINTED TO BY AGAIN

sHIGH ENOUGH?
1NO, ERROR € ASK AGAIN

1 PRINT MESSAGE

:POINTED TO 8Y AGAIN

sSHIFT IT INTO PLACE
tLOAD NEW PRIORITY
$tGENERATE CMR-11 ADDRESSES

: TEST FOR CLOCK CSR ADORESS AND SET
$CLOCK FLAG ACCORDINGLY:
112767
012737
005777

177777
002572
030032

MOV
MOV

027705
000004

TST

#-1,CLKFLG
OCLKTRP 804
8LCs

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

1A TRAP WILL CLEAR FLAG.

:CLEAR OUT ALL TABLES FOR START-wP
005067
005067
005067
005067
012737

026622
027016

012737
012737

002600
000340

012746
012746
000002

000340
002554

027212
027406
017654

RESTRT:

000100
000102

CLR
CLR
CLR
CLR

EXTBLL
EXTBL2
EXTBL3
EXTBL4

OHDER
, 804

iPESET TRAPS

MOV
MOV

#CL_KINT, 86100
#340,80102

1SET CLOCK VECTOR

MOV
MOV

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

MOV

MTPS

RTI

644

”®7

sRAISE C.P. PRIORITY

;D.W 001

5EQ 0023

11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 3 2
CZCMUCOIC CMR(V)
LISTING
SYMBOL

TST

SWRFLG

:NON-SWR -PROCESSOR?

JSR
JHP

PC,SWOMP
BCONT

$YES, OUMP SWITCH LOCATION

CLKFLG

;CLEAR CLOCK FLAG
:AND RETURN

91 0C7SS4

005767

027724

93 002562
94 002566

004767
000167

015416
000102

1%:

96 002572
97 002576

105067
000002

027575

CLKTRP: CLR8B
RTI

92 00<>60
95

001402

8EQ

L2
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO VO4.00

SEQ 0024

02:24:05 PAGE 4

SYMBOLIC LISTING
U1 ENT- AV R XV 1 V] o

+LINE CLOCK SERVICE ROUTINE.
JPDATE RUN TIME CLOCK,
:

002672

112767
105267
126727
103424
105067
105267
126727
103414
105067
105267
126727
103404
105067
105267

000002

177777
027602

027576
027566
027557
027553

027543
027532
027526

027516
027507

027564

000074

CLKINT: MOVB
INCB
cMPB
8LO
CLRS
INCB

cMPe
8LO
CLRS
INC8
oy o)
8LO
CLRS
INCB
CLKEXT: RTI

e-1,CLKFL]
TICKS
TICKS
. #60.

CLKEXT
TICKS

SCCS
SECS, #60.
CLKEXT

SECS

MINS
MINS, #60.

CLKEXT

MINS

HOURS

$SET “CLK TICKING” FLAG
1tUPDATE TICKS
tREACHED A SECOND?
tNO, JUST RETURN
sYES, O - TICKS
s AND UPDATE SECONDS
tREACHED A MINUTE?
iNO, JUST RETURN
1YES, O - SECONDS
1AND UPDATE MINUTES
;REACHED AN HOUR?
iNC, JUST RETURN

1YES.

O-MINUTES

:AND UPDATE HOURS
tRETURN FROM CLOCK INTERRUPT

;0.W 001

M.
SUPERVISOR DISPATCH

WM -

.SBTTL SUPERVISOR DISPATCH

002674

027461
027452
027470
027461
027450
027441
027444
027426
017014

CLR8
CLRS
CLR8
CLRS
CLR8
CLRS
CLR8
CLR8
JSR

CNFGFL
CLKFL1
TICKS
SECS
MINS
HOURS
SAFE
DBFLG
PC,NULLS

023177
015572
000001
002674
015614
027442
016514

MOV
JSR

#TSTSEL ,RO
PC. TYPOUT

MOV
JSR

#BCONT ,PCONT
PC, INPKB

105067
105067
105067
105067
105067
105067
105067
105067

001403
042777
000167

026727

001010

105767
001403
052777
000167
026727
001010
105767

RTI

643

PNTM
MOV

016536
027452

027347
000100
000120
016464

027476

€00002

BCNTO:
BCNT1:

000100
006064
016434

027446

000003

BCNT3:
BCNTZ2:

000100
007412

027416

026727

016404

000004

012700
004767
000167

023226
015416
177530

012700
004767
000167

024253
015402
177514

1578
8EQ
8IL

CLKFLG
BCNTO
#100,8.CS

JP
cHp
BNE

BCNTA
TSTRSK ;

HLPASK :

KBBUF , #1
BCNT1

sALWAYS DO RESET UPON ARRIVAL
+KILL INTERRUPTS

:CLEAR CONFIG FLAG
tCLR CLOCK TICKING FLAG
1CLEAR RUN TIME CLOCK TIME

sCLEAR *FILL CNT SAFETY FLAG"
tCLEAR "DEBUG"” FLAG

sNULLS AFTER RESET

sPRINT *SELECT TEST (<CR>=HELP)”
1PRINT MESSAGE

sPOINTED TO BY TSTSEL
;OEFAMLT LOGIC TEST
;LOAD RETURN ADORESS
;1GET KBO INPUT

LOGTST

;CHECK IT FOR “1*
sIF = 1, DO LOGIC TESTS
:IS THERE A CLOCK CSR?
:iNO, FORGET IT.
;:YES, ENSURE IT'S IODLE
$GO TO LOGIC TEST

CLKFLG

;IS THERE A CLOCK CSR?

#100,8LCS

;YES, ENABLE IT!!
sIF 2" DO PORT LOOP TEST

KBBUF , #2
BCNT2

;CHECK IT FOR

"2*

BEQ

BCNT3

JP
cHP
BNE

PORTLP
KBBUF , #3
TSTRSK

8€Q
8IS

BCNT4
#100,8.CS

CMREXC

sIF NOT, GIVE HELP
$+IS THERE A CLOCK CSR?
:NO, FORGET IT
s YES, ENABLE IT!!
;IF *3* DO EXERCISE.

cHP

KBBUF , #4

s0ID HE TYPE A 4?7

PNTM

HELPH

tNO, BUT ME HAD BETTER!!
;PRINT HELPFUL INFO

HLO0SR

;POINTED TO BY HELPM
s AND RE -ASK
;PRINT “IF HELP IS REQ'D..."

8IS

7578

027267

#1,KE3UF

PCONT

7578

027317

TSTSEL

CLR

cHP
BNE

000001

001403
052777
000167

001006

”®7

®#7,-(SP)
#6643, -(SP)

000340
002710

026727
001010
105767

RESET
MTPS

MOV
MOV

012746
012746
050002

012700
004767
012767
012767
004767
005067

BCONT.

000005

004767

42
43

SEQ 0025

02:24:05 PAGE S

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

TM~

[

JP
BE

MOV
JSR
JP

PNTM

MOV

JSR

JMP

CLKFLG

HLPASK

#HELPM,RO
PC, TYPOUT
BCONT
MHLPDSR,RO

PC,TYPOUT

BCONT

;CHECK IT FOR "3

;PRINT MESSAGE

;POINTED TO BY HLPDSR

:0.W 001

Nc'

.SBTTL

003160
003164
003172
003176

003320
003326
003330
003334
003342

37
39
a1

003346
003346
003352
003354
003362
003370
003376
003404
003412
003414
003420
003422

005067
012767
005067

105067
005067

027330
000010
027250
027203
027230

012700
004767

0¢4320
015340

012700
004767

024335
015330

012700
004767
012767
012767
004767
005067
026727
001356

024777
015320
003226
001236
015342
027170
016242

027246

ALL REMOTE COMMUNICATIONS SO NO ERRORS OCCUR THAT WAY,

LOGTST:

CLR
MOV
CLR

CLR8
CLR

027206
016256

CRTST:

001236

PNTH
MOV
JSR
PNTM
MOV
JSR
PNTM
MOV
JSR
MOV
MOV
JSR
CLR
cre
BNE

VERFLG
010, ITFP
PASCNT

OF LOF
ERRCNT
LGKTSM
RO
SLGKTSM,

PC, TYPOUT

BRKCOM
RO
#BRKCOM,
PC, TYPOUT
TYPCR
#TYPCR,
RO
PC, TYPOUT

RM
. PCONT
OCRP

PC.INPY'B
PCONT

KBBUF
, #1236

CRPRM

001
001

THEN GO.

sCLEAR VERSION PRINT FLAG
1SET ITERATION COUNT
:CLEAR PASS COUNT
;CLEAR "OVERFLOW"” FLAG
1CLEAR ERROR COUNT
$PRINT ~LOGIC TEST"
1 PRINT MESSAGE
+POINTED TO BY LGKTSH
tPRINT

“CISCONNECT REMOTES”

1PRINT MESSAGE
1POINTED TO 8Y BRXCOM

iPRINT “TYPE <CR> WHEN READY"
:PRINT MESSAGE

;POINTED TO BY TYPCR
1SET REPROMPT POINTER

;:LOAD ANY DEFAULT VALUE
1GET KEYBOARD INPUT

;<CR> ONLY TYPED?
sIF NOT, KEEP LOOKING
sIF YES, START LOGIC TEST

001

003212
003216
003216
003222
14 003226
003226
003232
15 003236
16
17 003252
18 003256
19
003270
21
22
23
24
003272
003274
44 003302
28 003310
003312
003316
31 003320

HOST LOGIC

;: START OF LOGIC TEST. PRINT HEADER THEN ASK USER TO DISCONNECT

003202
003206

SEQ 0025

02:24:05 PAGE 6

001

£LLrrrregerec

VO NTUVNBdBWN-

CZCMUCO CMR(V) 11 HOST EXERCISE MACRO VO4.00
HOST LOGIC TESY

001
001
001
001
001
001
001

;:CHECK POMER UP OF THE MOST MICRO FIRMWARE.
000005
012767
032777
001021
005367
001371

000024
002000

027126
027122

040000

027152

026477
000001
014360

014532

004567

014122

012767
012767
017767
042767
026767

000000

003272

001421

005367
001360

RESET

MOVB:

027112

0X2777
001007
012700
012767
004767
000002

ST0:

102000
027036
075777
014466

624 ,CNTR
#81¢ ,8CSR
ST1
CNTR
MOVv8
\N, NOGO

sINIT
0 W
;SET UP TIMER
D. W
SET?
;
+ 1S "PWRUP”
OKAY
.W
YES,
;0
sIF
1GIVE THE MICRO SOME TIME TO ST AR T: 0
: D. W
sKEEP CHECKING
;ERROR :HOST U.P. FAILED TO START,
;0080088

ERROR

e¢sesses

6814 ,85R

.+20
#NOGO
, RO

01, ERRNUM
PC.ERR
Nel

ST0
RS ,SCPRTN
027046
014506
014502
014474
014466

#0,CNTR

ST1:
ST1A:

€102000, G020

8CSR,BAD

;NOW WATCH FOR INTR

#75777,8A0

027010

DATERR

GOO0D
, BAD
ST2
CNTR
ST1A
\N,NOTUP

1 INTR € PWRUP SET; OKAY
;WAIT A BIT

1CRROR:PWR UP SEQ NOT COMPLETED(BAD CSR)
;8880008

ERROR

seesser

001
001
001
W 001
001

C2CMUCO CMR(V) 11 HNOST EXERCISE MACRO

HOST LOGIC TVEST
003422
003430
003432

003436
003444

43
44

45
47

032777

001007
012700
012767
004767
0000C3

004567
003272
017767
042767
005067
026767

S0
51

53
54

S5
56
S7

026534

000002
014342

02:24:05 PAGE 6

ONOTUP
RO
92, ERRNUM
PC,DERR
Nel
ST0

014430

RS,SCPRTN

014020

026750
102000

014414
014406

014374

014400

000004

004567
003272
012767
012777
012701
117721
005367
002403

005277
000770

040000

014256

8CSR,B8A0

St1e:

#102000,8A0

GOOD
. BAD
GOQO
ST3
\N,CSRRST

032326
026710
026634
026674

sNOM CHKXC CSR FOR 0'S
tEXCEPT PWRUP £ INTR

t1CSR = 0'S, 0.x,

sERROR:CSR NOY RESET
j0ece0see

ERROR

ceeeeee

0814 ,85R
.20
RO
OCSRRST

026764

014344

03 ,ERRNUM

PC.DERR
Nel

013734
001000

5S¢0 0027

0814 ,0SR
.+20

027050

001416

032777
001007
012700
012767
004767
49

040000

vO4.00

026656
026716

STS:
ST4:

ST0

ST0
RS ,SCPRTN

920, CLK

01000, 8SPAR
OVERSP ,R1
8SPDR, (R1).

sCOUNTER FOR VERSION ITEMS
1ADDR RESWLT SCPD
sPOINT AT MEM SPACE
;STORE VERSION INFO

CLK

?
;sOONE

SSPAR

tNO, KEEP GOING

ST6

STa

CZCMUCO CMR(V) 11 HOST EXERCISE
OCONOUND W+

MOST LOGIC TEST

100 A SLIDING BIT (0) TEST ON THE SCPD ADORESS REGISTER
(WHILE IGNORING SPAR BIT 08 (UNUSED).

005077
005067
017767
001416

032777

15
16

17
18
19
21

012767
004767
000005

004367
003602
012767
012767
016767
042767
016777

017767

042767
2767

026767

001416

032777
001007
012700
012767
004767
22

27
28
29

5€Q 0028

02:24:05 PAGE

1SPAR REGISTER TEST:

001007
012700

MACRO vO4.00

000006

004567
003672
032767
001414
012767
046767
006367
004767
000167

026666
014264

026656

040000

026632
000004
014142

ST6:

MOV
8EQ
ODATERR

014260

BIT
BNE

026650

MOV
MOV
JSR

014230

013620

L7777

000001

026532
176000
014164

026554
000400
000400

014134

026564
0265352
014176
014170

026524

026657
000005

014104

014016

ST60:

ST61:

014156
014150
014140
014134

040000

\N, SPRCLR

¢ TEST CLEAR OF SPAR

tSPAR CLEAR?
1 YES, Ox
CLEAR SPAR
:CAN'T
tERROR
;0000000

eeossee

ERROR 4

#814,085R

.+20
O#SPRCLR,RO

&4 , ERRNUM

PC,.DERR

Nel

ST6
RS,SCPRTN

#-1,PAT
0800, MASK
PAT,GOOD
9176000, G000

1SET UP FOR SLIDING O TEST
1SET BIT MASK

+LCAD PATTERN

1AND READ IT BACK

+ IGNORE BIT 08

1SPAR DATA 0.x.

1IF YES NEXT PATTERN
1ERROR:BAD BITS IN SPAR

8EQ
DATERR

;j00ssece ERROR S

essesee

B8I7
BNE

001000

026440

1777717

026430
026422

177630

SCOPE
JSR
30
MOV
MOV
MOV
8IC
MOV
MOV
8IC

8SPAR
G000
8SPAR ,BAD
ST60

8IC
ce

013474

026420
026412
014114

CLR
CLR

ST62:

MOV
JSR
-

SCOPE
JSR
ST61
BIT
BEQ
MOV
81C
ASL

JSR
P

ST61

RS,SCPRTN

#809,PAT
ST7

#-1,PAT
MASK ,PAT
MASK
PC,MONIT
ST61

1OONE WHOLE REG?
1IF YES, NEXT RTN
tRE-LOAD ALL 1'S
INO, PREPARE FOR NEXT BI7
tROTATE MASK

1AND CONTINUE

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

HMOST LOGIC TESY

SEQ 0029

02:24:05 PAGE 8

1SCRATCH PAD MEMORY TEST
1 (1) UP COUNT IN REQ SCPD WHILE FILLING RES SCPD WITH 277°'S
1 (2) UP COUNT IN RES SCPU WHILE FILLING REQ SCPD WITM 377'S

1
2
3
4

S 004042

6 004046
7 004052
8 004060
9 004066
10 004074

11 004102
12 004110
13 004112
14 004116
1S 004122
16 004124

17 004130

005077

005067
016777
052777
012777
042777

027727
103005
005277
105267
000753
005077
005067

18 004134
19 004142

016767
017767

21 004156

001432

20 004150

22 004160
004160

004166
004170
004174
004202

23 004206
24 004214
25 004216
004216
004222
26 004226
27 004232
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

026767

032777

001007
012700
012767
004767
000007
032777
001010

026426

026444
026440
001000
000377
001000

026366

026362

026356
026330

013722

026706
000006
013604

013672

040000

026264

001432

032777

001007
012700
012767
004767

000010

026224

BR
CLR

ST780:

MOV
MOV

CLR

ST181:

026200
013574
013570
013562

040000

026152

ST82:
ST190:

ST70
8SPAR
WORD

ST81

.+20
@®ISATE
RO
06, ERRNUM
PC.DERR
Nel
#814,85R
ST80S
SCPAD
#SCPAD, RO
PC.TYPOU
8SPAR ,RO
PC.OCTPNTY

JSR

RS,SCPRTN

ST80
e

BHIS
INC

s DONE.

iNOW. . . CHECK IT

10.K, CONTINUE

1ERROR:REQ SCPD ADR TEST ERROR
;10008000

ERROR 6

¢0s0sse

sPRINT ALLOMED?
sNO, SKIP IV
sPRINT MESSAGE
sPOINTED TO BY SCPAD
sPRINT SCPD ADDRESS OF ERROR

ST180

8SPAR, 0377

B8R
MOV
MOV
MOV
ce

5782
OSPAR
WORD
ST80
#1000, 8SPAR
#377,G000
8SPOR,BAD
GO0D ,BAD

817

#814,85R

#0SDTE,RO
7 ,ERRNUM
PC,DERR
Nel

BNE
MOV
MOV
JSR

sLOAD REQUEST SCRATCH PAD

#814,85R

BNE
MOV
MOV
JSR
.
817
BNE
PNTM
MOV
JSR
MOV
JSR

SCOPE

1ADORESS O

WORD
, GOOD
8SPOR,BAD
\N,ISATE

8EQ
OATERR

013532

SSPAR, 0377
ST71
SSPAR
WORD

ODATERR

INCB

001000
000377
026170
013562

WORD
WORD , 8SPDR
4809, 85PAR
0377,8SPDR
0809, SPAR

GOOD,B8AD

BIT

8SPAR

8€Q

026214
026232

026737
000007
013444

CLR
MOV
81S
MOV
8IC

ST71:

ST80S:
000377

CLR

c
BHIS
INC
INCB

013722

026312

013232

103267

013734
013730

040000

004567

000723
012777
012767
017767
026767

ST770:

000377

026344

024463
014330
026242
015350

103005
005277

026416
026406
026402
026372

026356
026374

012700
004767
017700
004767
004134
027727

ST?:

ST91
\N,OSDTE

.+20

sRES SCPD ALL 1'S?

1 YES, O0.K.
{ERROR:RESULT SCPD DATA TEST ERROR
;1s8s00ee ERROR

seseees

E3
CZCMUCO CMR(V) 11 HOST EXERCISE

MACRO vO4.00

02:24:05 PAGE 8

SEQ 0030

HOST LOGIC TEST
40 004 346
41
42

43
a4

46
7
48
49
50
S1
32
S3
S4
35
56

57
58
59
60

61
62
63
64

65
66
67
68

69
70
71

72
73
74

76
77
78
79

032777
001010

040000

012700
004767
017700
004767

024463
014170
026102
015210

004367
004302
027727
001403
003277
000730

013072

012777
005067
016777
042777
012777
052777
027727
103005
0035277
105267
000753
012777
005067
016767
017767
026767
001432

8IT
BNE

026124

PNTM

026064

SY90S:
001377

ST91:

026054
001000
026062

026036

001000

000377

001000
026004

MOV
JSR
MOV
JSR
SCOPE
JSR
ST90
ce
BEQ

ST10:

026034

ST100:

#814,8SR
ST90S
SCPAD
#SCPAD,RO
PC, TYPOUT
8SPAR,RO
PC,0CTPNT

025776
025772
025744
013336

$tPRINT MESSAGE
1POINTED TO 8 SCPAD
1PRINT SCPD ADORESS OF ERROR

S$190
RS ,SCPRTN

S8SPAR, #1377
ST10
SSPAR
ST90

1ALL DONE?

0809, 8SPAR
WORD

100 IT AGAIN WITH A SMWITCH

1 IF YES, REVERSE IN € OUT

sCOUNT DOWN UNTIL MALF -WAY
;AND LOAD REQ SCPD WITH 1'S

026010
001377

?
sOONE
s YES
1NO, KEEP GOING DOWN

025774
026012
001000

1PRINT ALLOWED?
iNO, SKIP IT

025760

ST101:

013350
013344
013336

ST110:

sNOM,

.. .CHECK IT

1OUT ADDR OK?
;ERROR:RESULT SCPD ADR TEST ERROR
jsassses

032777
001007
012700
012767
004767
000011
032777
001010

026774

000010
013220

013306

Nel

#814,8SR
ST110S
SCPAD
#SCPAD,RO

025700

012700
004767
017700
004767

024463
013744
025656
014764

004567
004520
027727
103005
003277
105267
000723
012767
005077

012646

PC., TYPOUT

SSPAR RO

PC.OCTPNTY

sseeess

001377

ST111:

013216

ST112:

1PRINT ALLOMED?
1NO, SKIP IT

1PRINT MESSAGE
1POINTED TO 8Y SCPAD
1PRINT SCPD ADR OF ERROR

ST110

ST110S:

ST110

023630
025646

000377
025610

ERROR

#814,85R
.+20
O,SATE ,RO
€10, ERRNUM
.m

025726

MOV
CLR

RS ,SCPRTN

8SPAR, #1377
ST11¢
8SPAR
WORD
ST110
#377,6000
9SPAR

+NOW CHECK REQ SCPD

CZCMUCO CMR(V) 11 HOST EXERCISE
MOST LOGIC TEST
82
83
84
85

004664
004672
004700
004702

017767
026767
001432

004702
004710
004712
004716
004724

032777
001007
012700
012767
004767
000012
032777
001010

004730

87 004736
004740
004740
004744
89 004750
004754
91 004760
004760
004764
004 766
93 004774
94 004776
95 005002

025606
013200

040000

027030

013206
013200

MOV
cHp
8EQ
DATERR

8SPOR,BAD
G000, BAD
ST121

817
BNE

#814,8SR

025570
013150

040000

025542

024463

004567

012510

027727
001403

025502

005277
000730

02:24:05 PAGE 8 2

000011

013062

012700
004767
017700
004767
004664

MACRO VO4.00

013606

014626

025472

000377

ST120:

MOV

MOV
JSR

81T
BNE
PNTM
MOV
JSR
MOV
JSR
ST120S: SCOPE
JSR
ST120
ST121:
cp
8€Q
INC
BR

\N, ISOTE

.+20
#ISOTE,RO
411 ,ERRNUM
PC,DERR
Nel

4814 ,85R

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

SEQ 0031

sALL 1'S?
s YES, CHECK THE REST
t1ERROR:REQ SCPD DATA TEST ERR
jesesses

ERROR

seesses

tPRINT ALLOWED?

iNO,

SKIP IT

sPRINT MESSAGE
;POINTED TO 8Y SCPAD
;PRINT SCPDO ADR OF ERROR

ST120
RS.SCPRTN

SSPAR, 0377
ST13
SSPAR
ST120

1OONE REQ SCPOD?
s YES, CHECK CLR SC. PAD

$NO, KEEP CHECKING

G3
CZCMUCO CMR(V)-11 HOST EXERCISE MACRO vO4.00
HOST LOGIC TEST

SEQ 0032

02:24:05 PAGE 9

tCHECK CLEARING ALL SCRATCHPAD LOCATIONS

V-7 ENY- YV,

WV 3,V3

1 FILL THE ENTIRE SCPD WITH A CONSTANT (NORMALLY ‘0 ,
: AND THE CHECK IT,
005077
012777
027727
001403
0035277
000766
012777
012777
027727
001403
005277
000766
005077
012767
017767
026767
001432

032777
001007
012700
012767
004767

000013
032777
001010

23
24

27
28

31
33

005276
39 005302

025464

025452

ST13:

ST130:

025442
001000

025420

025432
025426
001377

025372
012764

012776
012772
012764

040000

025354

027062

000012
012646

012734

040000

025326

024463
013372
025304
014412

004567
005004
027727
001404
003277
000167
012777
012767
017767
026767
001432

012274

BEQ

ST131:
ST132:

ST132S:

ST133:

001000
000000

025244
012640

ST134:

012626

025256
177656

025234

012634

040000

025216

027112
000013
012510

012576

040000

025170

ST13S:

00, 8SPDR
S8SPAR, #0377
ST131A
SSPAR
ST130

#8609, 85PAR
€0, 9SPDR
8SPAR, #1377
ST131

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

s+ADDR RES. SCPD
;sTHIS "00" MUST ALSO BE CHANGED
tFILL UP WMOLE RES.

SCPD

8SPAR
ST1318
8SPAR
#0,G000
8SPOR,BAD
G000 ,BA0
ST133
\N,RQSPCL

BIT
BNE
MOV
MOV
JSR

#814,8SR
.+20
#RQSPCL .RO
€12, ERRNUM
PC,DERR

8Iv
BNE

#814,85R
ST132S

sPRINT ALLOWED?
sNO, SKIP IT

MOV
JSR
MOV
JSR

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

sPRINT MESSAGE
;POINTED TO 8Y SCPAD
;PRINT SCPD ADR OF ERROR

g?}s

RS,SCPRTN

C(Cmp
BEQ
INC
MNP
MOV
MOV

@SPAR, 0377
ST134
S8SPAR
ST132
#1000, 8SPAR
#0,6000

t1DONE CHECKING REQ. SCPD?
s YES, CHECK RES. SCPD
tNO, FINISH UP

G000 ,BAD

tRES SCPD ALL 0'S?

SCOPE

MOV

BEQ
DATERR

8SPAR

INC
B8R
CLR
MOV
MOV
crP
B8EQ
DATERR

PNTM

000377

025266

CLR
MOV
crp
B8EQ
INC

ST131A: MOV
ST1318: MOV
ce

025410

012700
004767
017700
004767

032777
001007
012700
012767
004767
000014
032777

025460
000377

N+l

SCPAD

jeses0es

ERROR

¢ssesses

ST13

8SPOR,BAD

ST136
\N,RSSPCL

BIT
BNE
MOV
MOV
JSR

0814,8SR
.+20
#RSSPCL ,RO
013, ERRNUM
PC.DERR

8IT

#814,85R

sNOM CHECK IT
s THIS LOC (#0) MUST BE CHANGED
: 7O CORRESPOND TO ST130
i IN ORDER TO CHECK THE
; CORRECT OATA FILL-UP
;ERROR:REQ. SCPD NOT ALL 0'S

Nel

1NOM CHECK RES. SCPD
; THIS ~#0” ALSO MUST BE CHANGED

1ERROR:RES.

SCPD NOT ALL 0'S

;esesees

ERROR

1PRINT ALLOMED?

ssssesse

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

MOST LOGIC TEST
40 005310
41 005312

43
'V

45
46
47
48

005312
005316
005322
005326
005332
005332
005336
005340
005346
005350
005354

001010
012700
004767
017700
004767

024463
013234
025146
014254

004567
005004
027727
001403
005277
000730

012136
025130
025120

001377

SEQ 0033

02:24:05 PAGE 9 1

BNE
PNTM
MOV
JSR
MOV
JSR
ST135S: SCOPE
JSR
ST13
cre
ST136:
8EQ
INC
BR

ST135S
SCPAD

#SCPAD,RO
PC, TYPOUT

RO
8SPAR,

PC,OCTPNT

tNO, SKIP IT
1PRINT MESSAGE
sPOINTED T0 BY SCPAD
tPRINT SCPD ADDR OF ERROR

ST13

RS,SCPRTN

8SPAR, #1377
STi4
8SPAR
ST135

1DONE RES. SCPD?
1 YES, NEXT ROUTINE

CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

()

[« RV-X. RNY. JV. I J¥ 1,00

HMOST LOGIC TEST

:TEST

i
+
005356
005364
005370
005376
005404
005406

012777
005067
017767
026767
001416

005406
005414
005416
005422
005430

032777
001007
012700
012767
004767
000015

11 005434

12
13
14
15
16
17
18
19

005434
005440

025036

012474

025046

040000

027142
000014
012356

012444

SEQ 0034

TOP BYTE"

SETTING "CLRTPB" SHOWD RESWT IN ALL BITS OF THE
HIGH BYTE OF THE CSR BEING CLEARED. (LOW BYTE ALREADY = 0)

STla:

012502
012474

025064

"CLR

MOV
CLR
MOV
crp

BEQ
DATERR

#814,85R

JSR

PC,.DERR

SCOPE
JSR

RS ,.SCPRTN

012034

ST1S
\N,CLTBER

BIT

BNE
MOV
MOV
N

#804 ACSR
G000
8CSR,BAD
GOOD,BAD

ST14

$sSET "CLRTPB"”
sALL CSR SHOULD BE O
;ALL CLEAR?
{tERROR:CLR TPB FAILED
;enssses

ERROR

ess00se

.+20
#CLTBER,RO
€14
. ERRNUM

N+l

ST14

iNOW

:
:

005077
012777
005277
012777
005277
012777

21
23

012777

31
33
35

005632
005632

025022

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

ST1S:

024776

007777
024712

005367
001372
012767
017767
026767
001432
012767

024702

032777
001007
012700
012767
004767
000016
012777
0035367
001375
012777

004567

H A NG AND CHECK
CSR
"MANG” BY USING THE CMR-11 'OIE’ FUNCTION

025010

012767
005777

100403

27
28

s884k

004567
005356

000020
012506

02:24:05 PAGE

024724
024714

CLR
MOV
INC
MOV
INC
MoV
MOV
MOV
ST

8SPAR
8213 ,85P0R
8SPAR
#1,8SPOR
8SPAR
#1,8SPOR
4200, 8CSR
#7777,CNTR
8CSR

CNTR
14
#137600, G000
8CSR,BAD
G000 ,BAD
SsT1é6
#0,CNTR
#B814,8SR

BMI

137600
024670
012326

012340
012334
012326

000000

024646

DEC
BNE
MOV
MOV
ce
BEQ
MOV

040000

024710

BIT

027204
000015
012202

012270

000002
024606

024614

000020

024600

011636

24:

DATERR

ST150:

BNE
MOV
MOV
JSR
-

MOV
DEC

BNE
MOV
SCOPE
JSR

\N,DIERR

sADDR REQ. SCPD
;LOAD MAINT FUNC SUBF #3
sDATA LEN.

= 1

sONE REQUEST
$SET "MAIN"SHD CAUSE U.P. HANG
;WAIT FOR THE MICRO
sMICRO DONE?
;NO, WAIT A BIT

;READ CSR REGISTER
s0ID IT HANG CORRECTLY?
s YES, GOOD
;ERROR:CSR NOT RIGHT FOR “DIE"
1esssese ERROR

. +20
#0IERR,RO
015, ERRNUM
PC,DERR
Nel

#2,8CSR

s1PROGRAM INIT

ST1S0
#804 ,8CSR
ST1S

;CLR TOP BYTE

CNTR

RS,SCPRTN

tWAIT FOR INIT

seseses

CZCMJUCO
CMR(V) 11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 10-1
HOSY LOGIC TEST
005636

005442

ST15

5£@ 0033

[ BNV JO. I ¥V ¥,V8

CZCMUCO CMR(V) 11 HOST EXERCISE MACRO V04.00
HOST LOGIC TEST

10
11

13
14
15

0c:24:05 PAGE

SEQ 0036

1CHECK CSR WITH MICRO HUNG
005640
005646
005654
005662
005670
005672

012767
012777
017767
026767

005672
005700
005702
005706
005714

032777
01007

005720
005720
005724
005726
005734
005742
005750
005756
005760
005760
005766
005770
005774

006002

006006
006006
006012
006014
006022
006030
006036
006042

001416

112700

012767
004767
000017

004567
005640
012767
012777
017767
026767
001416
032777
001007
012700
012767
004767
000020
004567
005726
012777
012777
017767
005167
042767
016777
027767
001016
032777
001007
012700
012767
004767
000021

004567
006014
012777
012777
017767
005167

137755
000355
024552

012210

040000

027237

000016
012072

012230
024556
012216
012210

STi6:

BEQ
OATERR

024600

BNE
MOV

MOV

012160
N

011550

137400
000000
024464
012122

012142
024470

ST160:

012130
012122

040000

024512

027271
000017
012004

012072
N

011462

024442

024410
024444
024460

024442
024414

024446
024420
024432

000200

024454
177400

040000

024404

027330
000020
011612

011764

STi61:

000200
024334
024346

024302
024336
024352

ST162:

#137755,G00D
#355,8CSR
8CSR,BAD
G000 ,BAD
ST160
\N,CSRWE

#8114 ,8SR

SCOPE
JSR
ST16
MOV
MoV

ST16
RS,SCPRTN
#137400, 6000
#0,8CSR

DATERR

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

BIT
BNE

#814,85R
.+20

MOV
MOV
JSR

#CSRCE ,RO
917 ,ERRNUM
PC ,DERR

SCOPE
JSR
ST160
MOV
MOV
MOV
com
8IC
MOV

ST160
RS,SCPRTN

BNE
ERROR

eIy
P £
0V
MOV
JSR

#814,85R
.+20
#SPAVME ,RO
920, ERRNUM
PC,ERR

SCOPE
JSR
ST161
MOV
MOV
MOV

ST161
RS,SCPRTN

CcoM

TRY CLEARING THEM

;eeseses

ERPOR

240e02s

tNOW, SEE IF THEY CLEAR
;:DID THEY CLR?
s YES,

$ERROR:CAN'T CLR LOMW CSR WHILE HUNG
;es8388¢ ERROR

¢ssssse

Nel

9200, 8CSR
€200, 8SPAR
SSPOR
, WORD
WORD
9177400, WORD
WORD
, 8SPOR
8SPDR, WORD
ST162
\N, SPAVME

3 YES,

tERROR:BAD BITS IN CSR WHILE HUNG

Nel

MOV
cre
BEQ

;00 THEY SET?

, ERRNUM
#16

PC,DERR

1CHECK R/W BITS OF CSR

. +20
S#CSRUE ,RO

JSR

011354
000001

MOV
MOV
MOV
cne

;sCHECK ACCESS KEYS TO SCPD
tWITH MAIN SET

sREAD AN REQ SCPD WORD
s COMPLEMENT IT
;+FORGET TOP BYTE
sWRITE COMPL. BACK
sREAD IT BACK AGAIN
;IT SHOULDN'T BE THE SAME

OR REQ SCPD WITH “MAIN" SET
: ACCESSED
;ERR
jessssas ERROR 20 ¢ss0002

Nel

#1,8CSR
€200, 8SPAR
8SPDR
, WORD

WORD

1 TRY AGAIN WITH

"ST FUN"

tREAD A REQ SCPD WURD
1 COMPLEMENT I7

SET

02:24:05 PAGE

SEQ 0037

HOST LOGIC TEST
31
32
33
34
35

006150
006156
006164
006172
006174

042767
016777
026777
001016

177400
024334
024326

006174
006202
006204
006210
006216

032777
001007
012700
012767
004767

040000

006222

06222

006226

000022

004567
006122

027374
000021
011504
011246

024340
024312
024304

024276

011656

8IC
MOV
cHP
BNE
ERROR

BIT
BNE
MOV
MOV
JSR
SCOPE
JSR
ST162

#177400,WORD

WORD
, 8SPOR
D
, 8SPDR
WOR
ST17
\N, SPAVFE

#814,85R
.+20

#SPAVFE ,RO
#21 ,ERRNUM

PC,.ERR

N+l

ST162

RS,SCPRTN

;FORGETY

TOP BYTE

;sssssns

ERROR

;WRITE IT BACK
tREAD 1T BACK AGAIN
1IT SHOULDN'T BE THE SAME
;ERROR: ACCESSED REQ SCPD WITH "STFUN" SET
21

esssses

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

M3
CZCMJCO CMR(V) 11 HOST EXERCISE

MACRO v04.00

SEQ 0038

02:24:05 PAGE 12

;TEST INTERRUPT WITH MICRO MHUNG
006230
006236
006236
006242

006342

012746
012746
000002

006250

- pe

012777
012777
000240
000240

12
13
14
16

006354

17 006372
18
19

012777

000240
000240

OWONOWN

I XV 1,50

HOST LOGIC TEST

006372
006376

006410

2l 006414
0V6416
23 006424
24 006432
0064 36
006442

006452

27
28 006456
31 006470

024262

ST17:

024236
024142

032777
001007
012700
012767
004767
000023
042777

040000

024176

027441
000022
011404

011556

000100

0241C2

004567
006254
000167
022626

011140

040000

024126

027477
000023
011334

011506

004567
006230
000167
012716
005077
000002
012777
042777

011076

€0, -(SP)
644, -(SP)

016746
012746
000002

024022
006444

012777
000240
000240
000167
022626
005077

000100

GDINT:

024016

024074
024000

NOP
NOP

MOV

MoV

INTUNT:

OGOINT ,QVECTOR

€100,8C5R

ERROR

\N,NOINTR

8IT

#814,85R

BNE
MOV
MOV
JSR

.+20
#NOINTR,RO
922
, ERRNUM
PC,.ERR

8IC

#100,8CSR

SCOPE
JSR

177650
006336

023742

MOV
MOV

NOP
NOP

ST170R:
ERINT:

032777
001007
012700
012767
004767
000024

000046

ST170:

000054

006462
000100

®ERINT,S8VECTOR

MTPS

RTI
644

006404
000100

MOV

ST170
AP
(P

Nel

ST170
RS,SCPRTN
INTONT
(SP)e,(SP)s

ERROR

\N,ERINTR

BI1

#814,85R

BNE
MOV
MOV
JSR
=

SCoPE

THERE IS AN ERROR

;ERROR:HOST CAN'T INTERRUPT UNIBUS
sesssecs

ERROR 22

¢ssesse

;:CLEAR INTR ENAB

s CONTINUE
:POP -POP STACK
OR HOST INTERRUPT
: ERRONEOUS
;ERR
;ss0s0ss

ERROR

#2280

ST17

MOV
CLR

#ST17OR,(SP)
8CSR

MOV
8IC

S®ERINT1 ,8VECTOR
#100,8CSR

MTPS

}

Nel

RS,SCPRTN

RTI

1 IF ONE OCCURS NOW, IT
IS ERRONEOUS.
i
1SET VECTOR FOR GOOD INTERRUPT
1SET INTR ENABLE
1IF ONE DOES NOT OCCUR NOW,

.+20
S#ERINTR,RO
#23
. ERRNUM
PC.ERR

JSR
ST17

$SET UP VECTOR FOR ERROR
1ALLOW INTERRUPTS

ST170

PRIO

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

RT1

023760

644 :

INTCNR:
ERINT1:

MoV

#100,8CSR

oM
CMP
CLR

ST18
(SP)+,(SP).
8CSR

NOP
NOP

ERROR

\N,WP001

t1SET INTR ENAB
:NO INTERRUPT SHOULD OCCUR
s THIS TIME.
10.X. CONTINUE
;:POP-POP STACK
sCLEAR INTR ENAB
R PRIOWNITY;DEVICE IS HIGHER
: WRONG
;ERRO

N3
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
HOST LOGIC TEST

02:24:05 PAGE

SEQ 0039

1
;6008800

006470
006476
006500
006504
006512

32 006516

006516
006522
33 006524

032777
001007
012700
012767
004767
000025

004567

C06416
000167

040000

027532

000024
011210

010752

000000

024002

011362

817
BNE
MOV
MOV
JSR
SCOPE
JSR
INTCNT

.+20
®P00I,.RO
924 ,ERRNUM

PC.ERR

Nel

INTCNT

RS,SCPRTN

ST18

ERROR

e¢scesse

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

MOST LOGIC TESY

02:24:05 PAGE

SEQ 0040

1NOW CHECK PROGRAM INIT,
006530
006536
006544
006550
006552
006560
006566
006574

006612
006614

17
18
19
21
22

23
24

27
28
006764

006772
006774
007000
007006

i 007012
00701¢

012777
012767
005367
001375
012767
017767
042767
026767
001416

032777
001007
012700
012767
004767
000026

023674
023664

011276

MOV
MOV

011304

8IC

011276

040000

023666

027573
000025

011246

011160

032777
001007
012700
012767
004767
000027

040000

004567

MOV
MOV
O€C
BNE

100000

023564

001000
032326

023616

032350
023604

027633

000026
011004

ST180:

ST181:

023576

010546
011142
011140

177400
177400

011116

ST182:

011130
011124

011116

#814,85R
.+29
OHITER,RO
€25 , ERRNUM
PC,DERR

sCoPt

010456

011006
N

\N,MITER

BIT7
8tQ

#815,8CSR
ST180

MOVB

8SPOR, (R2)

ERFOR

\N,VISF

MOV
MOV
MOV
BNE

01000, 8SPAR
OVERSP
R1
OVERSUN,
R2
ST182

817

0814, 8SR

MOV
JSR

PC,ERR

SCOPE

1D.W 001

1PWR-UP SHMOULD BE SE?
1READ CSR
sHAVE TO IGNORE B1S FOR SLOW POP 11 S;D.W 001
tCSR CORRECT AFTER INIT?
1 YES, CONTINUE
tERROR
: PROGRAM INIT FAILED
10000000

ERROR

seo0s00

tWAIT FOR PWR-UP COMPL

sNOW READY TO READ VERSION
1POINT AT ORIGINAL VERSION

tAND SAVE THIS VERSION

$1ERROR :MICRO DIDN'T STORE VERSION STUFF
;10000000

ERROR

sseseer

Nel

ST180

MOV

(R1),GOOD

8IC

€177400,8A0

(R2),8A0
0177400,G000

G000 ,B8AD
ST183
\N,VIDER

817
BNE
MOV
MOV
JSR

#814,85R
.+20
RO
#VIDER,
027, ERRNUM
PC,DERR

SCOPE
JSR

ST182
RS,SCPRTN

JMAIT A BIT

026
, ERRNUM

RS ,SCPRTN

MOV
8IC

s0.W 001
sD.W 001

.+20
OVISF ,RO

JSR

ST180

"INIT"

ST18

RS,SCPRTN

ST18

100 HOST

Nel

JSH

OATERR

027673
000027
011000

#815,8A0

8I1v
BNE
MOV
MOV
JSR

ce
8EQ

023506

€2000,G000
8CSR,8AD

G000 ,B8AD
ST180

BNE
MOV

011156

02,8CSR
024 ,CNTR
CNTR
MOV

Ccre
8EQ

DATERR

010636

032777
001007
012700
012767
004767
000030

MOV :

011316
01131¢

004567
006530
032777
001774
012777
012701
012702
117712
001016

004567
006640
111167
111267
042767
042767
026767
001416

ST18:

Nel

tNOW COMPARE VERSION WITH ORIG.
tCLR TOP BYTE

1SAME AS FIRST TIME?
tERROR: 2ND VERSION NOT SAME AS 1ST
10000000

ERROR 27

seseese

CZCMUCO CMR(V) 11 HOST EXERCISE
HOST LOGIC TESY
32
33
34
35
36
3?7

007016
007020
007022
007030
007032
007036

006730
122122
q271727
001403
005277
000718

023446

MACRO

001020

vO4 .00

ST183:

023436

38
39

02:24:05 PAGE

51182
crPe
ce
8EQ
INC
BR

5¢Q 0041

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

1UPDATE POINTERS
?
s DONE
sNEXT

WORD

tCHECKX ACCESS TO RESULT SCPD WITH INTERRUPT CLEAR

40
4]

007040

007054

43 007046

45 007062
46 007066

47 007074
48 007102
49 007110

50 007112

007112
007120
007122
007126
007134

S1 007140

007140
007144

012777
012777
017767
005167
042767
016777

026777

001016

032777
001007
012700
012767
004767
000031
004567
007040

001200
023416

023430
177400
023416
023410

023364
023420
023434
023422
023374
023366

023360
027742
000030
010566
010330

010740

ST19:

MOV
MOV
MOV
con
8IC
MOV
cP
BNE
ERROR

817
BNE
MOV
MOV
JSR

SCOPE

JSR
ST19

020, 8CSR

01200, 8SPAR

8SPOR , WORD

WORO
#177400, WORD
, 8SPOR
WORD
D
, 8SPOR
Won
$120
\N, SPAVIC

814 ,85R
.+20
#SPAVIC,RO

030, ERRNLM

PC.ERR

Nel

ST19

RS,SCPRTN

jCLEAR TOP BYTE OF CSR
stADDORESS RESWLT SCPD
sREAD A WORD FROM 1T

;sCOMPLEMENT I7
s1IGNORE TOP 8 BITS
tAND MRITE IT BACK
tNOM READ 1T BACK
11T SHOULON'T BE THE SAME
1ERROR:RES. SCR. PAD ACCESSED WITH INTR CLR
j100000ee

ERROR

seess00

CZCMUCO CMR(V) 11 HOST EXERCISE

U-X. ENY. RO B JV 1,V¥

H0SY LOGIC TEST

MACRO V04 .00

02:24:05 PAGE

SEQ 0042

tNOW CHECK SOME SIMPLE FUNCTIONALITY

1
i
1
1
007146
007154
007162
007166
007174
007200
007206
007212
007220
007224
007232
007236
007244
007250
007256
007264
007272
007300

012767
012777
005077
012777
005277
012777
005277

007310
007314
007316

005367
001366

007316
007326
007332
007340
007344
007344
007350
31 007352
007360
33 007366
007374
35 007402
007404

007404
007412
007414
007420
007426

37 007432
007432
007436
007440
39 007446

023254
023250

023270

023256
023244

005277
012777

023232

005277

023220
023146

012777

012777
012767
017767
026767

010604
010600
010572

001421

012767
004767
000032

004567
007146
012777
012767
017767

026767
001416

032777
001007
012700
012767
004767
000033

004367
007146
012777
012767

ST20:

023302

012777
003277
012777

032777
001007
012700

ENSURE THAT STARTING A "MAINT“ FUNCTION GIVES
THE CORRECT ERROR STATUS.
ENSURE TMAT STARTING THE "MAINT" FUNCTION WITH "MAIN'
WORKS PROPERLY AND GET PORT BAUD RATES.

ST200:

ST201:

023154

MOV
MOV
CLR
MOV
INC
MOV
INC
MOV
INC
MOV
INC
MOV
INC
MOV
MOV
MOV
MOV
ce
8EW
0€eC
BNE
DATERR

#0,CNTR

811

#814,8SR

#20.8CSR

1ONE REQUEST
1@ OF BYTES TO READ

$SET ST FUN" ON "MAINT* FUNC
sCHECK FOR FUNCOM £ INTR
s "FUNCOM” AND “INTR" SET?
ST201

\N,STESTF

030036

000032
010360

1ERROR
: STATUS WRONG WITH “STFUN” ON "MAIN“
jeseeese

ERROR

ssssees

#31 .,ERRNUM

010534

PC.OERR

Nel

ST120
RS.SCPRTN

023114
010510
010504
010476

01000, BSPAR
#210,6000

S$T202:

8SPOR,BAD
G000 ,BAD
ST203

1 ADDRESS RESWLT SCPD

1 CHECK ON FUNCTION

tFUNCTION CORRECT?

tERROR:RESULT FUNC. CODE WRONG ON MAIN
;0s000ee ERROR 32 ssesesese

#814,85R

023066

.+20
ORSPESF ,RO
932, ERRNUM
PC.DERR

010446

Nel

010036
001002
000377

1IF NOT, WAIT A BIT

\N, RSPESF

040000

OSTESTF ,RO

010124
001000
000210
023104
010476

1START ADOR = DFFF (M)

o ®

030005
000031
010446

tCLEAR TOP BYTE
1 ADORESS REQ SCPO
sLOAD "MAIN" FUNCTION
TO EXAMINE HOST
s+
MEMORY LOCATIONS
i

023026
010422

ST203:

ST20

ST20
RS,SCPRTN

#1002, 8SPAR

#377,6000

1NOW ADDRESS “USOF "
1SHOULD SHOW "TOTAL FAILURE" COOE

E4
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO VO4.00
HOST LOGIC TESY
40 007454

007462
42 007470
43 007472

007472

S0
Sl
Se
53

S9
61

63
65
67

017767

026767

023016
010410

001416

032777
001007
012700
012767
004767
000034
004567
007146
012767
012777
012777
012767
017767

026767

001421
003367
00136€

032777
001007
012700
012767
004767
000035

010416
010410

BEQ
DATERR

8SPOR,BAD
GOOD,BAD
ST204
\N,USOFEL

023000

8I1T

#814,05R

030077
000033
010272

010360

MOV
JSR

PC,DERR

SCOPE
JSR

RS,SCPRTN

MOV

#0,CNTR

BNE
MOV

007750

022674

140000

022670
022662
010320

010306

010314

ST204:

ST205:

022670
030140
010162

010250
N

032777
001007
012700
012767
004767
000036

040000

022602

030171
000035
010074

010162

001002

010212

S120

MOV
MOV
MOV

022630

010224
010220
010212

ST206:

007552
001001
000003

022532

010124

022542

010136
010132
010124

ST207:

#20,8CSR
0200, 8CSR
#814.815,G000

CNTR
ST205

B8I7
BNE
MOV
MoV
JSR

#814,8SR
.+20
STEMF
RO
034 ,ERRNUM
. DERR
PC

SCOPE
JSR

ST204
RS,SCPRTN

MOV

91002, 8SPAR

#1,G000
8SPOR ,BAD
GOOD ,BAD
ST207

8I7

#814,8SR

\N,USOFEZ2

Nel

ST204
MOV

#1001 ,8SPAR

MOV
MOV
cp
B8EQ

DATERR

aessees

1SET "CLRTPB*
$SET

"MAIN” WITH SAME FUN LOADED

jCHECK FOR “FUNCOM” & "INTR*”
stFUN COMPLETE?
sWAIT A BIT
tERROR:STATUS WRONG ON “MAIN" FUNC
;ssssses ERROR

essssase

1POINT AT

“USOF“

1SHOULD SHOM SUCCESS

sUSOF 0.K.?

tERROR:BAD "USOF” ON “MAIN” FUNCTION
jsseesss ERROR

35 essesse

.20
SUSOFE2,
RO
035
, ERRNUM
PC,DERR

SCOPE
JSR

Nel

MOV
MOV
cP
B8EQ

BNE
MOV
MoV
JSR

ERROR

S120

\N,STEMF

DATERR

jeecsces

Nel

DATERR

ST204

1ERROR
: "STFUN" ON "MAIN” GAVE BAD USOF

#33, ERRNUM

8CSR ,BAD
GOOO ,8AD
ST206

tUSOF 0.K,?

. +20
S®USOFEL,RO

MOV
cre
8EQ

DEC
BNE

022630

007640

012767
017767
026767
001416

MOV
ce

SEQ 0043

14-1

040000

004367
007526
012777
012767
017767
026767
001416

004367
007526
012777

02:24:05 PAGE

ST204
RS,SCPRTN

#3,6000
8SPOR,BAD
G000 ,BAD
ST21
\N,DATLER

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

1ERROR: "MAIN" FUNC GAVE BAD DATA LEN.
jeessses

ERROR

sessssnr

F4
C2CrMUCO CMR(V) 11 HOSY EXERCISE MACRO VO4.00
HOST LOGIC TESTY
007756
007764
007766
007772
010000
69 010004
010004
010010
70 010012
n 010016
72 010024
73 010030
74 010034

032777
001007
012700
012767
004767
000037
004567
007526
012700
012777
117720
005277
117710

040000

022514

030226
000036
010006

010074

8IT

BNE
MOV
MOV
JSR

007464
032422
001003
022446
022440
022436

022450

02:24:05 PAGE

STel:

SCOPE
JSR
5T204

MOV
MOV
MOV
INC
MOV

SEQ 0044

14-2

814,85k
+20
#DATLER,RO

€36, ERRNUM
PC,DERR
Nel

ST204

R5,SCPRTN

RO
#B8AUD,

#1003, 8SPAR
8SPOR, (RO) .
8SPAR
8SPOR, (RO)

+POINT AT BAUD TABLE
1GET RESWLTS OF EXAMINE
1STORE BAUD RATES

G4
~Z2CMUCO CMR(V) 11 MOST EXERCISE MACRO VO4.00

MOST LOGIC TESTY
1

SEQ 0045

02:24:05 PAGE 15

1CHECK RESULTS OF STARTING A REGULAR FUNCTION WITH “MAIN"

TRY DOING AN

"ACTIVATE REMOTE" FIRST USING

"MAIN",

THEN

"STFUN"

S 010040
6 010046
7 010054
8 010062
9 010066
10 010074
11 010100
12 010106
13 010112
14 010120
1S 010126

16 010134
17 010136
16 010144
19 010152
20 010160
21 010166
22 010170
010170

010176
010200
010204
010212
23 010216

012777
012777
012777
005277
012777
005277
012777
005277
012777
012777
032777

001774
012777
017767
012767
026767
001416

032777

001007
012700
012767
004767
000040

022364
022420
022414

000020
000000
000060
022406
000002
022374
000001
022362
000001
000200
0840000

022356
022304
022276

001000
022326
000060
007712

022330
007726
007716
007712

022402

022370

040000

022302

030266
000037
007574

007662

004567
010040
012777
012767
017767
026767
001416

007252

010256

032777

040000

022214

030330
000030
007506

007574

29 010256

010264
010266
010272
010300
30 010304

001007
012700
012767
004767
000041
004567

007164

31 010312

012777

000020

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

010040

012777
032777
001774
012777
012767
017767
026767

001416

022242
007636
007632
007624

MOV
MOV
MOV
INC
MOV
INC
MOV
INC
MOV
MOV
BIT
B8EQ
MOV
MOV
MOV
ce

8EQ
DATERR
817

ST222:

BNE
MOV
MOV
JSR
-

SCOPE

000001
040000
001002

000364
022120
007512

022112

022104
022076

022130

007524
007520
007512

ST223:

ST224:

#20,8CSR
#0,8SPAR
060, 8SPOR
8SPAR
02, 85PDR
8SPAR
#1,85°DR
8SPAR
#1,8SPOR
9200, 8CSR
#814,8CSR

ST221
#1000, 8SPAR
8SPOR,BAD
#60,6G000
G000 ,8AD
ST222
\N,RSPEMF

1REMOTE o1
1SET "MAIN"
tFUNC., COMPL?
sNO, WAIT
1 ADDRESS REGWLT
sREAD RESWLT FUNC. CODE
10.K.?
;ERROR:RES. FUNC. CODE WRONG FOR "MAIN”
jseeesss ERROR 37

ssessses

RS,SCPRTN

\N,USOFE3

BNE
MOV
MOV
JSR
s

.+20
SUSOFE3,RO
40, ERRNUM
PC,0ERR
Nl

JSR

RS,SCPRTN

MOV

#20,8CSR

8EQ

ST
tONE REQUE

ST22

#814,8SR

MOV
BI17
BEQ
MOV
MOV
MOV
cHP

;OATA LEN, = 2

N.1

8IT

ST22

tLOAD “ACTIVATE REMOTE” FUNC

.+20
SRSPEMF ,RO
#37 ,ERRNUM
PC,DERR

#1002, 8SPAR
#377,6000
8SPOR,BAD
GOOD,BAD
ST223

SCOPE

;1CLEAR TOP BYTE OF CSR

#814,8SR

JSR
ST22
MOV
MOV
MOV
o,
B8EQ

DATERR

010304

010310

ST220:
ST221:

010216
010222
24 010224
25 010232
26 010240
27 010246
28 010254

001002
000377
022232
007624

ST22:

1 ADDR “USOF
;SHOULD SHOW TOTAL FAILURE
1USOF 0.K.?
1ERROR: “"MAIN” ON REG FUNC GAVE WRONG USOF
jsessess

ERROR 40

sesesss

ST22

#1,8CSR
#814,8CSR
ST224
#1002, 8SPAR
9364 ,6000
8SPOR,BAD
GOO0D,BAD
ST123

;CLR TOP BYTE

1SET "STFUN"
1tFUNCOM SET?
IWAIT
s ADDRESS USOF
1SHOLD SHOW REM. ERROR

tUSOF 0.K.,?

Hd
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO V04,00

MOST LOGIC TEST

DATERR

40 010370

010370
010376
010400
010404
010412

010416
010416
010422

02:24:05 PAGE

032777
001007
012700
012767
004767
000042

004567
010312

040000

022102

030373
000041
007374

007462

\N,USOFEA4

#B814,85R
.+20
RO
#USOFE4

#41, ERRNUM
PC,DERR
Nel

ST1223

0070S2

SEQ 0046

15 1

RS,SCPRTN

tERROR
: WRONG USOF ON REGULAR FUNCTION
;e000000

ERROR 4]

e¢e0s000e

14
CZCMJCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

HOST LOGIC TEST
1

tEND OF LOGIC TEST.

2
3

4 010424
S 010430
6 010432
7 010436
8 010444
9 010450

005767
001402
000167
012767
012701
012702

010454
010460
11 010464
12 010472
13 010474
14 010500
15 010504
16 010506

012700
004767
012767
112100
004767
005367
001372

10 010454

022064

000350
177777
032350
032422
024504
010072
000021

012700
004767

024537
010040

25 010564
26 010570
27 010574

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

024555
010030
021764
177617
021752
021746
021742
021736
031144
021726
021722

28 010576

29 010602
010602
010606
30 010612
31 010616
32 010624
33
34
35
36
37

38
39
40
41
42

010630
010634
010640
010642
010646
010646
010652
010656
010662
010670
010674
010700

43 010704

44 010710
45 010714

46 010720
47 010724

004767

007754

012700

024571

004767
112267
042767
012703
006367
066703

007744
021700
177770
031144
021662
021656

004767

007710

012700
004767
111267
042767
006267
006267

024605
007700
021634
177617
021622
021616

006267

021606

011300

006267

012703
006367

066703
011300

022050

ST23A:

T1ST
BEQ

021736

$T230:

MOV
JSR
MOV
MOV8
JSR
0EC
BNE
PNTM

OVERSM,RO
PC,TYPOUT
#21,CNTR
(R1).+,RO
PC,TTO
CNTR
ST230
BAUDM

1 PRINT MESSAGE
;POINTED TO BY VERSM

PNTH
MOV
JSR
MOV
8IC
ASR
ASR
ASR
ASR
MOV

PORTOM
#PORTOM, RO
PC, TYPOUT
(R2) ,WORD
9177617 ,WORD
WORD
WORD
WORD
WORD
#BDRTBL ,R3

JSR

PC,TYPOUT

PNTM
MOV
JSR
MOV
8IC
MOV

VERSM

#8AUDM , RO
PC.TYPOUT

1SORT OUT CORRECT PART
;PUT IT IN L.S. BIT PLACES

tNOW PRINT “PORT 1 =
1PRINT MESSAGE

PC, TYPOUT
(R2)+,WORD
#177770,WORD
#BORTBL ,R3
WORD
WORD ,R3

MOV
ASL

#BORTBL ,R3
WORD

MOV

(R3),R0

ADD

sPRINT “BAUD RATES:"
1PRINT MESSAGE
sPOINTED TO BY BAUDM
tPRINT "PORT O = *
1PRINT MESSAGE
tPOINTED TO BY PORTOM

PORT1M
#PORT1M,RO

031144
021576

021572

;OUMP ALL VERSION INFO

1R3 POINTS AT TABLE OF RATES
tDOUBLE OFFSET
1USE CORRECT OFFSET
tGET BAUD

021612

ASR

sPRINT *VERSION ”

WORD
WORD ,R3
(R3),RO

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

021626

1IS FLAG SET?
1NO

1 YES, JUST PRINT “END PASS"
tNO, SET FLAG
1GET VERSION DATA
s AND BAUD RATES

ASL
ADD
MOV

021672

VERFLG
ST23A

ST24
#-1,VERFLG
OVERSUN,R1
#8AUD,R2

MOV
JSR

021756

PRINT END OF PASS AND VERSION STUFF

JP
MOV
MOV
MOV

PNTH

011422
021724

010506
010512

17 010516
010516
010522
18 010526
19 010532
20 010540
21 010544
22 010550
23 010554
24 010560

ST23:

SEQ 0047

02:24:05 PAGE 16

(R3),RO

PC, TYPOUT
PORT2M
SPORT2M,RO
PC, TYPOUT
(R2),WORD
#177617,WORD
WORD
WORD

;POINTED TO BY PORT1M
:GET NEXT BAUD RATE COOE
1SORT OUT CORRECT BAUD RATE
1O0UBLE OFFSET
tUSE IT AS TABLE OFFSET

tPRINT RATE FOR PORT 1
tPRINT *PORT 2 = *
1 PRINT MESSAGE
1POINTED TO BY PORTZ2M
1GET BAUD RATE COOE
1GET CORRECT PART,

WORD
WORD

WORD,R3

1D0UBLE OFFSET

1tUSE IT AS TABLE OFFSETY

Jb
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO v04.00
HOST LOGIC TEST
48 010726
49 010732
010732
010736

S0
51
Se
53
S4
5SS
56
57
58

59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

010742
010746
010754
010760
010764
010770
010772
010776
011002
011006
011012
011014
011022
011024
011032
011036
011044
011046
011052

011056
011062
011066

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
111267
042767
012703
006367
066703
011300
004767
004767
000167

024621
007614
021550
177770
031144
021532
021526

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

021426

JSR
PNTM
MOV

JSR
MOV8
8IC
MOV

021542

ASL
ADD

MOV
JSR
JSR
JP

007560
010766
000016
ST24:

004000

021456

000010
021410
002000

021406

010716
000014
010706
007064
172200

012700
004767
016700
004767

024635
007454
021340
010600

012700
004767
105767
001405

024664
007434
021257

012700
004767
000404
016700
004767
000207

024702
007416
021270
010540

02:24:05 PAGE

ST12S:

021434

ST26:

ENPRTN:

0eC
8EQ
8IT
8cQ
MOV
INC
8IT7
BNE
JSR
JSR
JSR
JSR
JHP
PNTM
MOV
JSR

MOV

PNTM
MOV

JSR

1ST8

8EQ
PNTM
MOV
ENOL:

ENRET:

BR
MOV
JSR

RTS

SEQ 0048

PC,TYPOUT
PORT3M
®PORT3IM,
RO
PC,TYPOUT

+POINTED TO BY PORT3M

#177770,WORD

1SORT OUT CORRECT PART

(R2),WORD

#BDRTBL ,R3
WORD
WORD,R3
(R3),RO

;PRINT BAUD RATE FOR PORT
tPRINT “PORT 3 = ~
$PRINT MESSAGE

1OOUBLE OFFSET

tUSE IT AS TABLE OFFSET

PC, TYPOUT
PC,NULLS

1PRINT RATE FOR PORT

ITER
ST25
#811,85R
S$T26

;UPDATE ITERATION
1OONE 10?

ST125

#10,ITER
PASCNT

#810,8SR
ST26

tNULLS AFTER PRINTOUT

tSINGLE ITERATION?

tUPDATE PASS COUNT
tEND PASS INMIBIT?

PC,NULLS
PC.ENPRTN
PC.NWLLS
PC,MONIT
STO

sNULLS BEFORE PRINTOUT
;PRINT END PASS INFO
sNULLS AFTER PRINTOUT

ENDPS
#ENDPS ,RO

;PRINT "END PASS @&
sPRINT MESSAGE

PC,TYPOUT
PASCNT,
RO
PC,DECPNT

ERCTM
#ERCTM,RO

PC, TYPOUT
OF LOF
ENOL

OVFLM
#OVFLM,RO
PC, TYPOUT
ENRET

ERRCNT,RO

PC,DECPNT
PC

1CHECK FOR CONTROL CHARACTERS
1 START OVER

sPOINTED TO B8Y ENDPS
1GET PASS COUNT
;PRINT IT IN DECIMAL

s1PRINT “ERROR COUNT =

sPRINT MESSAGE

;POINTED TO BY ERCTM
;CHECK FOR ERROR CNT OVERFLOW
;IT DID'T, PRINT COUNT
tIT DID, PRINT “seOVERFLOWas"
;PRINT MESSAGE
tPOINTED TO BY OVFLM
tGET ERROR COUNT
1PRINT IT IN DECIMAL

;0.W 001

K4
CZCMUCO CMR(V) 11 HOST EXERCISE

MACRO v04.00

02:24:05 PAGE

SEQ 0049

OO~V
NE WM -

PORT LOOP BACK TEST

.SBTTL

PORT LOOP-BACK TEST

1tASK FOR PORT @ TO BE

000000
021244

021246

011154
011162
011170
011172
011176
011200

012767
027727
001420
005367

011200
011206
011210
011214
011222

032777
001007
012700
012767
004767
000043

040000

021272

026477
000042
006500

006652

011226
14 011232
15 011240
16 011244

004767
012767

006222
000010
021154

011260

012700
004767

024717
007256

012700
004767

024412
007256

012700
004767
012767
012767
004767
005067
026727
001007

024745
007246
000004
011300
007270
021116
010170

13 011226

17 011250
18 011254
19 011260

011264

011270
011270
011274
21 011300

011300

011304
22 011310
011316
24 011324
011330
011334
27 011342
28 011344
011352
011356
31
011362
33 011364
011370
35 011374
011374
011400
011404
37 011410
011416
39 011424
011430
41 011436

001371

005067

005067
005067
105067

021232

021200

POK :

021176
021162
021125

012767
005067
000167

177777
021100
000034

101004
005067
000167

021030

012700
004767
000167
016767
012777
003077
012777
005277

102000

PORTLP:
PRLC:

PSTO:

010212
021126
000004

021046

PST1:

000014

PSTE:

022624
007152

177670

010114
000020
021044
000212
021032

021040
021006
021040

PST2:
PST2A:

MOV
cHe

TESTED (<CR>

#0,CNTR

1BETTER CHECK FOR PWR-UP COMPL
tPOWER UP COMPLETE?

CNTR

tNO,

POK

8IT
BNE
MOV
MOV
JSR

#814,85R

MOV

CLR
CLR
CLR
CLR8
PNTHM
MOV
JSR
PNTM
MOV
JSR

PRLC
\N,NOGO

Ne1l

PC,SWHLT
#10,ITER
ALLFLG
PASCNT

ERRCNT
OF LOF
PLTH
OPLTM,RO
PC, TYPOUT
RECON

CLR
ce
BNE
MOV
CLR
JHP
BHI

PSTE

JHP
PNTHM
MOV
JSR
JHP
MOV

PST2

CLR

MOV

CLR
MOV
INC

1 YES,

CARRY ON

WAIT A BIT

tERROR :HOST MICRO FAILED TO START
;0ssssas

ERROR

sses044s

.+20
#NDOGO,
RO
842 ,ERRNUM
PC,.ERR

#RECON,
RO
PC,TYPOUT
PORTN
#PORTN,RO
PC, TYPOUT
4, KBBUF
#PST0,PCONT
PC, INPKB
PCONT
, #4
KBBUF
PST1
#-1,ALLFLG
PORT
PST2A

PNTM
MOV
JSR
MOV
MOV
JSR

ALL PORTS)

8CSR, #102000

BEQ
DEC
BNE
ERROR

T
JSR

ALLFLG
AGAIN

#AGAIN,RO
PC, TYPOUT
PSTO
KBBUF ,PORT
#20,8CSR
osP AR
#212,8SPDR

8SPAR

tRUN LOGIC TEST.

:LOAD ITERATION COUNT
iCLEAR "ALL” FLAG
1CLEAR PASS COUNT
;CLEAR ERROR COUNT
1CLR OVERFLOW FLAG
+PRINT *PORT LOOP-BACK TEST”
: PRINT MESSAGE
;POINTED TO BY PLTM
;PRINT RECONNECT COMMUNICATIONS ;0.W 001
1 PRINT MESSAGE
1POINTED TO B8Y RECON

tPRINT “PORT & (<CR>=ALL)
s PRINT MESSAGE

+POINTED TO BY PORTN
;OEFAULT IS

“ALL"

:LOAD RETURN ADDRESS
tGET KBD INPUT

szss IT DEFAWLT (OR 4)?
3

1 YES,

SET

“ALL" FLAG

+ START WITH PORT O

1WAS IT HIGHER THAN 4?
1NO, MUST BE A PORT @
tWRONG!, TRY AGAIN
tPRINT MESSAGE
1POINTED TO BY AGAIN

i SAVE PORT o
1CLR TOP BYTE
s ADORESS REQ. SCR. PAD
1LOAD MAINT FUNC.
170 DO PORT LOOP-BACK

”

L4
CZ2CMUCO CMR(V) 11 MOST EXERCISE

MACRO Vv04.00

02:24:05 PAGE

SEQ 0050

PORT LOOP -BACK TEST

012777
005277
012777
005277
016777
005277
016777
012767
012701
0035277
012177
005367
001371

000023
021020
000001
021006
020764
020774
0207352
000020
031266
020750
020746
020674

011536
011542
56 011546
57 011554
S8 011562
59 011566
60 011572
61 011600
62
63
64
65 011602
011602
011606
011612
011614
011614
67 011622
011630
69 011634
70 011636
711 011642
011644
73 011652
74 011660
011662
76 011666
77 011672
78 011700
79 011702

012700
004767
012767
012767
004767
005067
026727
001356

024777

011702
011710
011712
011716
011724

032777
001007
012700
012767
004767

011730
61 011736
82 011740
011740
011744
83 011750

032777
001010

42
43
a4
45
46
47
48
49

S0
S1
52
S3
4
SS

011442
011450

011454
011462

011466
011474
011500
011506

011514
011520
011524
011530
011534
011536

007010

011536
001236
007032
020660

007732

021026

021014
021002

020770
020714
PSTS:

PSTS:

020676
007746

PST4:

MOV
INC
MOV
INC
MOV
INC
MOV
MOV
MOV

INC
KOV
0EC

BNE
PNTM
MOV
JSR
MOV
MOV
JSR

CLR
(o 4
BNE

001236

= 23

#23,8SPOR

1OATA LEN.

#1,8SPOR
8SPAR
PORT
. 8SPDR
SSPAR
PORT ,8SPDR
#20,CNTR

1ONE REQUEST

8SPAR

#DATBL ,R1
9SPAR
(R1)+,8SPOR
CNTR

PST3
TYPCR
#TYPCR,RO
PC, TYPCUT
#PSTS,PCONT
#1236 ,KBBUF
PC.INPKB
PCONT
KBBUF
, #1236
PSTS

1LOAD PORT & (XMTR)
1LOAD PORT # (RCVR)
s CHARACTER COUNTER
1LOOP DATA FROM

"DATBL
"

sLOAD DATA BYTE
;LOADED ALL?
s1NO, KEEP LOADING
sPRINT

"TYPE

<CR> WHEN READY"

$PRINT MESSAGE

s1POINTED TO BY TYPCR
sINDICATE PROMPT PENDING
sLOAD ANY DEFAMULT VALUE
1GET KEYBOARD INPUT
1<CR> ONLY TYPED?

1 IF NOT, KEEP LOOKING FOR IT

1 START MAINTENANCE FUNCTION
PSTS-

012746
012746
000002

000000
011614

012777
012777
005777
100403
004767
000772
012777
027727
001004
004767
000167
027727
103434

000020
000200
020576

012700
004767
016700

020610
020602

PST6:

006310
001002

000430
020600

020622
000001

000375

020570
030430
005776

006150

020542

025245
020502

PST60:

PSTT7:

MTPS
MOV
MOV
RTI

MOV
MOV
TST
8M1
JSR
B8R
MOV

020, 8CSR

ce
BNE
JSR
JP
cre
8LO
ERROR

8IT
BNE
MOV
MOV
JSR
BIT
BNE

PNTM
MOV
JSR
MOV

sALLOW LINE CLOCK INTERRUPTS

0644, -(SP)

sCLR

TOP BYTE

9200, 8CSR

1SET "MAIN"

PST60
PC,MONIT
PST6

1AND WATCH FOR CNTRL CHARS.

8CSR

s1LOOK FOR INTERRUPT BIT

PST?

;NOW CHECK USOF
1DONE SUCCESSFULLY?
iNO, CHECK ERROR TYPE

NDCHK
8SPOR, #375

1 YES, DONE A PASS
1tFUNCTION FAIL?

#1002, 8SPAR
9SPOR,
01

'E’C.MIT

PST8
\N,PLFFE

tERROR: TOTAL FAILURE OF “MAIN” FUNCTION
jesestss ERROR 43

ssssses

#814,85R

.+20
®PLFFE
RO
043, ERRNUM

PC,ERR
Nel

#814,8SR

PST7S
PORTMS
#PORTMS,RO
PC,.TYPOUT
PORT ,RO

sPRINT ALLOWED?
tNO, SKIP IT

sPRINT

“PORT o

tPRINT MESSAGE
s1POINTED TO BY PORTMS

M4
CZ2CMUCO CMR(V) 11 MOST
PORT LOOP -BACK TEST
84 011754

85
86
87
88
89

011760
011760
011764
011766
011772
012000
012002
012002
012010
012012
012016

012024

012030

3.
2
. §$

91 012036
92 012040

012040
912044
012050
012054
¢12060
012060
012064

012066
012072
012100
012102

012102
012110
012112
012116
012124
012130
012136
012140
012140
012144
012150
012154
012160
012160
012164
012166
012172
012200
012206
012214
012222
012230

012236

012236
012244

EXERCISE MACRO VO4.00

004767

007626

004567

005510

000167
027727
103434

000330
020500

011602

PST7S:

02:24:05 PAGE

JSR

PC,0CTPNT

JSR

RS,SCPRTN

JHP

ENDOCHK

8Lo
ERROR

PST80
\N,PLTXTO

SCOPE

PSTS

000374

PST8:

CMP

SEQ 0051

17-2

PSTS

8SPOR, #374

$ XMTR HUNG UP?

;ERROR: XMTR TIMEOUT ERROR
jeesssse

ERROR

essesse

032777
001007
012700
012767
004767
000045
032777
001010

040000

020470

BIT

#814,8SR

030473
000044
005676

006050

MOV
JSR

44 ,ERRNUM
PC.ERR

040000

020442

8I7
BNE

#814,85R
PSTAS

1PRINT ALLOWED?

012700
004767
016700
004767

025245

MOV
JSR
MOV
JSR

RO
#PORTMS
PC, TYPOUT
PORT RO
PC,OCTPNT

tPRINT MESSAGE
sPOINTED TO B8Y PORTMS

004567
011602
000167
027727
103434

005410

JSR

R5,SCPRTN

032777
001007
012700
012767
004767
000046
032777
001010
012700
004767
016700
004767

004567
011602
000167
012777
067777
017767
042777
0627717
017767

032717
001007

006506
020402
007526

000230

BNE
MOV

PST8S:

PST80:

020370
030521

005576

Nel

PNTM

PORTMS

SCOPE

PSTS

000373

005750

020342

PST80S:

020274
020266
005664
020252
020244
005640

020234

PST9:

sNO, SKIP IT
;PRINT

“PORT @

PSTS

JHP
CMP
8LO
ERROR

ENOCHK
8SPOR, #373
PST9
\N,.PLRCTO

817
BNE
MOV
MOV
JSR

#814,85R
.+20
#PLRCTO,RO
#4S
, ERRNUM
PC,ERR

817
BNE

#814,85R
PST80S

:PRINT

SPORTMS ,RO
PC,TYPOUT

s PRINT MESSAGE
1POINTED TO BY PORTMS

PNTM

025245

.+20
#PLTXTO,RO

MOV
JSR
MOV
JSR

SCOPE
JSR

Nel

PORTMS

1RCVR HUNG UP?

;ERROR;RCVR TIMEOUT ERROR
;0800088

ERROR

sessess

ALLOWED?

iNO, SKIP IT
tPRINT “PORT o

PORT,RO

PC,OCTPNT

PSTS
RS,SCPRIN

JP
MOV
ADD
MOV
8IC
ADO
MOV
DATERR

ENDCHK
#1001, 8SPAR
9SPDR, BSPAR
9SPDR,BAD
#809, 8SPAR
#2,85PAR
8SPOR,GOOD
\N,PLDERR

8IT
BNE

o814 ,8SR
.+20

: ADDRESS DATA TO FIND BAD WORD
;GET BAD WORD

1GET GOOD WORD

1ERROR:LOOP TEST DETECTED DATA ERROR
jsessees

ERROR

sssss0r

N4
CZCMUCO CMR(V) 11 HOST EXERCISE MACRU

PORT LOOP-BACK TEST
012246

012252
012260

114 012264
012272
116 012274
012274
012300
012304
012310
012314
012314
012320
012322
012330
012334
012336
012344
012346
012352
012360

147

VO4.00

02:24:05 PAGE

MOV

®PLOERR ,RO

JSR

PC,DERR

81T
BNE
PNTM
MOV

#814,8SR
PSTIS
PORTMS
#PORTMS , RO

MOV
JSR

PORT,RO
PC,OCTPNT

012700
012767
004767
000047
032777
001010

030547

012700
004767
01670C
004767

025245
006252
020146
007272

004567
011602

005154

052777
005767
001441
026727
103416
005067
012777
016777
0035277
016777
000417
005267
012777
016777
003277
016777
000167

000020
020064

020102

ENOCHX: BIS

020114

000003

(0,
8LO

020114

MOV

003367
001404
032777
001422
012767
003267
032717
001011
004767
105767
001402
004767
004767
004767
000167

000046
005526

005614

040000

020206

020104
000003
020072
020102
020060

020050
000003
020036
020046
020024

177142

PST9S:

JSR

TST

020110
020076

020060
020054

ENDO:

020042
PNTEND:

020024

000010

017754

020002

PNTO:
PNT1:

176366

1¢:

PNTRTN:

046 , ERRNUM

Nel

PC, TYPOUT

$PRINT

ALLOWED?

1PRINT

“PORT

sPRINT

1 PRINT MESSAGE
{POINTED TO BY PORTMS

PSTS

RS,SCPRTN

#6804 ,8CSR

ALLFLG

8EQ

PNTEND

CLR

PORT

PORT, #3
ENDO

;:CLR TOP BYTE
;sDOING ALL PORTS?
tNO, DONE A PASS
s YES, DONE ALL?
iNO, KEEP GOING
sCLEAR PORT ¢
IN REQ. SCPD
;

MOV
INC
MOV

#3,8SPAR
PORT, @SPDR
8SPAR
PORT, 8SPOR

INC
MOV
MOV
INC
MOV
JP

PORT
#3,8SPAR
PORT, 8SPOR
SSPAR
PORT, 8SPOR
PSTS

:NEXT PORT

ITER

s UPDATE ITERATION COUNT

#811,8SR

;SW 11 =, INH ITERATION

DEC

PNTEND

B8EQ

PNTO

8EQ
MCV
INC

PNTRTN
#10,ITER
PASCNT

JSR

PC.ENPRTN

8IT

017662

177050

SCOPE

PSTS

004000

005736
007246
005424

JSR

017774

017756
002000

MOV

SEQ 0052

17-3

8IT
BNE

1578
8EQ
JSR
JSR
JSR

JHP

#810, 89Sk
PNTRTN

CLKFL1
14
PC,PRNTIM
PC,NULLS
PC,MONIT

PSTS

:PREPARE

TO LOAD NEXT

PORT

sRELOAD ITERATION COUNT
sUPDATE PASS COUNT
1SW 10 = INM END PASS PRINT

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

MOST-REMOTE EXERCISE

THIS ROUTINE ASKS FOR EITHER

"DETAILED” OR

“GENERAL" RUN
©

"OETAILED"
THE “DETAILED" RUN CONSISTS OF DOING A BACKGROUND SCAN
IN 'MODE'’ O WMERE EVERY POSSIBLE REMOTE NUMBER IS POLLED
FOR THE PRESENCE OF A REMOTE
WHEN "THRUTM IS SET, THE

;
1
$
$
3

ODIAGNOSTIC FUNCTION IS RUN ON ALL CONNECTED REMOTES.
“GENERAL "

«©

;

THE "GENERAL" RUN ASKS THE USER TO INPUT REMOTE MNUMBERS
WHICH ME FEELS ARE ON THE CMR; THEN A BACKGROUNC SCAN

IS PERFORMED ON ONLY THOSE REMOTE WHMBERS (USING MODE

H NOTE :
$

THE

£LLEL

.SBTTL

SEQ 0053

"GENERAL” RUN SHMOULD BE USED IN MOST CASES

SINCE IV TAKES FAR LESS TIME TO GET THROUGM A PASS.

: BOTH RUNS DO THE FOLLOWING:

MOST-REMOTE EXERCISE

02:24:05 PAGE

££

C2CMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

H -START

BACKGROUND SCAN, WAIT FOR *THRU"
ALARMS
WHILE WAITING.
1} -WHEN “THRU” SETS, DO A “PORT CONFIGURATION STATUS" REPORT
$ -REPORT

AND THEN

RUN "DIAGNOSTICTM FUNCTION ON ALL AVAILABLE REMOTES (DETAILED)
(GENERAL )
OR
DO A "FORCE INTERROGATE" ON ALL AVAILABLE REMOTES
3 -REPORT ALL CHANGES OF REMOTE STATUS

001
001

}

39
41
42

43
45

005067

105067

017641
017744

012746
012746

000000
012554

005067
012767
103067
005067
012767

017666
000010
017613
017640
000000
017622

027727

001420
003367
001371

032777
001007
012700
012767
004767

é'flEXC: CLRS
EXRCS:

017652
017624
102000

017610

CELP:

CLR
MTPS

FAST
TALLY
&0

tCLEAR “FAST” FLAG
1SORRY, NOT RESTARTABLE
1 INTERRUPT ON

PASCNT
010, ITER

1CLEAR PASS COUNTER
tLOAD ITERATION COUNT

OFLOF
ERRCNT
#0,CNTR
8CSR, #102000
EXS00
CNTR
CELP
\N, NOGO

017650
005230

0814, 8SR
#NOGO
, RO
047, ERRNUM
PC,.ERR
Nel

1CLR FLAGS & COUNTERS

1SET UP TO TIME POWER P
1PUR-UP & INTR SET?
1 YES,

CONTINUE

;NO, WAIT A BIT

MOST MICRO WON'T START
: OR
tERR
;10000800

ERROR 47

e¢seseee

001
001

47 012650

012650
48 012654
012654
012660

004767

004600

012700
004767

025027
005672

012664
012670

012700
oV4767

024412

012674
012700

012700
004767
012767
012767
004767
003067

025537
003652

49 012604

S50 012674

51 012704
S 012712

€EXS00:

EXSOA:

006616
017532

PC.SwLT
EXCM
EXCM, RO
PC, TYPOUT
RECON
ORECON, RO
PC, TYPOUT
OTLGN
S#0TLGN,RO
PC, T YPOUT
80 ,XKBBF
SEXSOA ,PCONT
PC.INPXB

cep

KBOUF , 0

026727

006564

012750
012754
60 012760

012700
004767
000167

022624
005576
177710

62 012764
63 012770

105067
000167

017407
000220

EXSONA: CLR8

65 012774
66 013000
67 013002
013002
013006
68 013012

012702
005722

031326

EXSO08:

012700
004767
016700
005200
004767

023602
003544
017470

012700
004767

025657
005322

012720
012724
012730
012736
012740
012746
012750

69 013016
70 013020
71 013024
013024

013030

72 013034

013034
013040

73 013044
74 013032

7S 013060

76
77
78
79

80
81
82
83

013064
013070
013074
013100

013104
013106
013114
013116
013136
015122
84 013126
85 013132
86 013134

001416
001406

012700
004767
012767
012767
004767
005067
016700
042700

020027
001414
026727
103415

012700
004767
005767
001327
000717

CLR

BEQ

cp
BEQ
PNTM
MOV
JSR

006714

023071

0033512
000077
013012
003534
017362

006456
017372

006416

023670
005430
017354

XKBBUF , #1
EXSONA
AGAIN
OAGAIN,RO
PC,TYPOUT

~CMR EXERCISE ROUITNE -

1PRINT MESSAGE

1POINTED TO B8Y RECON
1ASK "DETAILED"” OR ~GENERAL1 PRINT MESSAGE
sPOINTED 7O BY OTLGN
1OEFALT ~GENERAL~
:SET RE-ASK POINTER
1GO GET AN INPWNY
1WANT DEFAMLT OR 0?
1YES., GENERAL. GET REM ¢'S
sWANT DETAILED?
1YES, DO DETAILED RUN
1OTHERWISE, YOU'RE CONFUSED!
1PRINT MESSAGE
tPOINTED TO BY AGAIN

FAST
EXSO1

sNOT GOING THE FAST ROUTE
1GO AMEAD WITH DETAILED.

MOV

SEXTBLL, R2

PNTH
MOV
JSR

sPRINT “TYPE PORT/REMOTE NUMBERS
1PRINT MESSAGE

MOV
INC
JSR
PNTH
MOV
JSR
PNTM
MOV
JSR
MOV
MOV
JSR

GTREM
OGTREM,RO
PC. TYPOUT
TALLY,RO
RO
PC . DECJUSP
RMNB
MRMNB , RO
PC. TYPOUT
TWOSP
0TWOSP ,RO
PC, TYPOUT
077 ,KBBUF
SEXSLC ,PCONT
PC.

1BORROM PORT 1 TABLE FOR NOW
1SKIP OVER ENTRY COUNTER

MOV

KBBUF ,RO

tLET'S LOOK AT WHAT WE'VE GOT
1CHECK FOR EXIT NUMBER
stGET IT2
1 IF YES, CHECK TALLY € LEAVE
1WANT MELP?
tNO, MUST BE 0.K.
10.K, GIVE HIM MELP
s1PRINT MESSAGE
1POINTED Y0 BY GRMLP
tHAS HE ENTERED ANY YET?
s YES, GET NEXT REMOTE @
1IN0, ASK FNR REMOTES

(R2)

PCONT

®177700,R0

cP
B8EQ
cHP
8Lo0
PNTM
MOV
JSR

RO, 077
EXSO0D
KBBUF , #400
STRMN
GRHLP
OGRHMLP RO
PC, TYPOUT

BNE
B8R

EXSOC
EXSO8

187

TALLY

10 .M 001

tPOINTED TO BY EXCM
tPRINT ~RECONNECT COMMUNICATIONS
. ;0. W 001

JMP

8IC

000400

EXS08

tPRINT

1PRINT MESSAGE

1 TRY AGAIN.

CLR

0064 34
177700
000077

PCONT

tRUN LOGIC TESTY

EXSOA

EXSOC:

SEQ 00354

JSR
PNTM
MOV
JSR
PNTM
MOV
JSR
PNTM
MOV
JSR
MOV
MOV
JSR

012674
005674
017522
006574

S3
S4
55
56
S7
58
59

sD.

001

LLLELECCLCC

HMOST REMOTE EXERCISE

02:24:05 PAGE

001
001
.W 001

1POINTED TO B8Y GTREM

001

tOFFSET (START AT 1, NOT 0)

;1PRINT DECIMAL ENTRY o
1PRINT * REMO~
sPRINT MESSAGE
1POINTED TO BY RMNB
1PROMPT FOR INPUT
tPRINT MESSAGE
1POINTED 70 8Y TWOSP
tDEFAULT 'END OF INPUT®
1SET RE-ASK POINTER
1GET XEYBOARD INPUT

001
001
001
001
001
001
001
001
001

001
001

CCLCLLLLCCeCee

C2CMUCO CMR(V) 11 TMOST EXERCISE MACRO vO4.00

001
001
001
001
001

001
001
001

DS
CZCMUCO CMR(V) 11 HOSY EXERCISE MACRO vO4.00

HOST-REMOTE EXERCISE
87
88 013136
89 013142
90 013144

005767
001014
000167

017344

9%
93 0131350
013154
013160
013166
013170

016722
005267
026727
001402
000167

006354
017326

ExsoD:

177624

02:24:05 PAGE

TS7

S£Q 0055

18-2

TALLY

BNE
JP

EXSGO
EXSO08

MOV

KBBUF ,(R2).

1GET ANY REMOTE 0'S?

stNO,

GO GET SOME

0. 001
001
s0.M 001

017322

STRMN:

000037

177616

INC
Cre
8EQ
JP

TALLY
TALLY,#37
EXSGO
EXSOC

s1PUT REMOTE @ INTO TABLE

i0.W 001

1GOT ENOUGH?

iD.M 001

sCOUNT IT.

1YES,

GO WITH THEM

1NO, GO GET MORE.

tWE HMAVE ARRIVED HERE BECAUSE THE USER WANTS A FAST RUN USING ONLY THE
(REMOTE NUMBERS ENTERED AT STARTUP. MUST SET UP A QUELE FOR BACKGROUND
1SCAN AND SET A SOFTWARE FLAG "FAST",

013174
013202
013206

016767
004767
112767

017306
000764

013214
013220
013224
013232
013240
013244

005067
005077
012777
012777

017204
017206
000020
000044
017133

013246
013246
013232
115 013236
013262
013266
118 013272
119 013276
120 013302
121 013306
122
123
124
125 013312
126 013316
127 013322
128 013330
129 013332
130 013340
131 013344
132 013346
133 013352
134 013336
135 013360
136 013364
137 013366
138 13372
139 013374
140 013400
141 013402

105767

001004

177777

016124

EXSGO:

017163
EXSO01:
017200
(©17172

JSR

PC.LOQUE

TALLY,EXTBL1

sSAVE REMOTE CUUNT
3SET MODE - 1 AND LOAD QUEUE
1SET SOF TWARE FLAG
1START EXERCISING

CLR

CHNGF
L

tCLEAR STATUS CHANGE FLAG
;START OFF CLEAR
sCLEAR TOP BYTE

TST8

FASY

MOV

CLR
MOV
MOV

8CSR
#20,8CSR
44 ,8CSR

1ENABLE BKG SCAN & THRU INTR

BNE

EXSO1A

1YES,

MOV
JSR

OSLOMW,
RO
PC, TYPOUT

CLRS
CLR
CLR
CLR
CLR

THRUF
TALLY
EXTBL]
EXTBL2
EXTBL3

PNTH

023056
005300
017124
017125
017214
016030

EXSO1A:

016224
016420
016614

CLRS

CLR

SLOW

ONCE

0. 001
;0. 001
sD.W 001

10.u 001
iD.u
;0. 001

i0.u 001
10.W 001
10.u 001
iD.u 001

sO0OING THE FAST RUN?

10.u 001

1HOLD OFF A MINUTE!!
1PRINT MESSAGE
sPOINTED TO BY SLOMW

0.
W 001

SKIP THE MWARNING PRINTOUT

;D.W 001

sCLEAR TABLES

EXTBLA

tEXERCISER MAIN LOOP
004767
004767
032777
001410
032777
005767
001022
004767

105767
001015
103767
001752
005767
001747
005767
001004
004767

001450
004630
040000
000020
017060

004600
017035

EXS2:

B8EQ

EXS28

8IS
TS7

017072

BNE
ExS28:

017114

EXS3

BNE

EXSS

BEQ

EXS2

TST8

THRUF

ONCE

TALLY

B8EQ

EXS2

BN
JSH

EXS3
2C,.DIAGFU

78T

EXS2C:

020,8CSR
CHNGF
L

PC,MONIT

TS7

017024

#814,8CSR

JSR

TS78

017022

000322

PC.MONIT

8IT

017102

PC.SCALM

JSR
JSR

CHNGF
L

1GO SCAN ALARMS
1CHECK FOR CNTRL CHARS.
+IS FUN COMPL SET?
1NO.
tCLR TOP BYTE
1CHANGE FLAG SET?
+IF YES, DO PCS
1CHECK FOR CNTRL CHARS
1 IS "THRU” SET?
1IF YES, DO PORT CONF IG
1DONE PORT CONFIG ONCE?

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

ES
C2CMUCO CMR(V)-11 HOST EXERCISE MACRO vO4.00

02:24:05 PAGE

SEQ 0056

18-3

MOST -REMOTE EXERCISE
142
143
144
145

013406
013412
013416
013422

146 013430
147 013434
148 013436
149 013442
150 013444
151 013430
152 013456
153 013460
154 013464
013464
013470

1SS 013474
156 013500
157 013502
158 013506
159 013514
160
161 013516
162 013522
163 013524
164 013532

165
166
167
168

169
170
171
172
173
174

0133534
013542
013546
013354

013556
013562
013566
013570
0135574
013600

175 013604

000167
004767
005067

112777
005767
001411

000104
000172
017002
000074
017052

105767
001017
004767
112767

016744

105067

016722

012700
004767
105067
000704
105067
112767
000676

025137
005062
016713

005367
001404
032777
001422
012767
005267
032777
001011
004767

016716

000411

105767

001402
004767
004767

004767
000167

002210

117

016705

1771777

EXSS:

017002

1578

016717
EXS3A:

016672

EXS3B:

SKPD2:

004000

016746

000010
016700
002000

016676

SKPXO0:

177502

BNE
JSR
MOVe
BR
CLRS
PNTM
MOV
JSR
CLR8
8R
CLRB
MOV8
BR
DEC
BEQ

SKPD2

PC,PRTCNF

L
CHNGF
#74,8CSR
TALLY

EXSSA
ONCE
EXS38
PC,REPORT

EXS38
ONCE
NOREM

ONOREM,
RO

PC, TYPOUT
THRUF
EXS2
THRUF

ExS2

ITER
SKPX0
#811,8SR
SKPX1

010, ITER
PASCNT

€810, 85R
SKPX1
PC,.ENPRTN
CLKFL1

016724

175310
016604
006170

JP
JSR
CLR
MOVe
TST
8EQ

100 A PORT CONFIG FUNC.
1CLR CHANGE FLAG
1tENAB BXG SCN,CHGST, THRU INTR

1 ANY REMOTES?

1NO, IOLE
1 ALREADY DONE REPORT?
1YES, SKIP 1T THIS TIME
IREPORT ALL REGULAR REMOTES
1SET PORT CONFIG AVAILABLE FLAG

tNO REMOTES. WAIT FOR THRU
tPRINT “NO REMOTES..WAITING"”
1PRINT MESSAGE
1POINTED TO 8Y NOREM
1CLEAR THRU FLAG

jCLEAR THRU FLAG

1SET “ONCE” FLAG

sUPDATE ITERATION COUNT
+IF O, END PASS.
1SW 11 = 1

== INH ITER.

tRELOAD ITERATION COUNT

1UPDATE PASS COUNT
1SW 1G = INM END PASS PRINT

PC ,PRNTIM

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

PC,MONITY
EXS

1 KEEP GOING

14:
SKPX1 :

s THEN PRINT END PASS STUFF

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

HOST REMOTE EXERCISE

SEQ 0057

+PORT CONF1GURATION STATUS SUBROUTINE
(PERFORMS A P.C.S. ON ALL 4 PORTS AND SAVES THE
{REMOTE #'S IN TABLES

XV 1,30
U-X. ENY. YV

02:24:05 PAGE

013610
013614
013620
013626
013634
013640
013646
013654
013660
013666
013674
013700
013706
013714
013720
013724
013726

005067
005067
012767
012767

004767

012767
012767
004767
012767
012767
004767
012767
012767
004767
005767
001331
000207

016610
016666
031326

001516
031526

001476
031726
001456
032126
001436
016500

PRTCNF:
016662
016620

016642
016600
016622
016560
016602
016540

CLR

CHNGF L

CLR
MOV

TALLY
#EXTBL1, TBLAD

JSR

PC,PORCNF

MOV

MOV
MOV
JSR
MOV
MOV
JSR
MCV
MOV
JSR
TST

€0, PORM!

#EXTBLZ2, TBLAD
#1,PORN
PC,PORCNF
#EXTBL3, TBLAD
02 ,PORN
PC,PORCNF
#EXTBLA, TBLAD
03 ,PORN
PC,PORCNF
CHNGFL
:fiéTC’F

1tCLEAR “CHANGE FLAG"

1CLEAR REMOTE TALLY
1SET UP TO CONFIG PORT O
100 PORT CONFIG ON PORT O
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

V-Y. RVY. YU

YV 1,00

CZ2CMUCO CMR(V) 11 HOSY EXERCISE MACRO vO4 .00
HOST-REMOTE EXERCISE

SEQ 0058

02:24:05 PAGE 20

1SUBROUTINE 70 DO THE DIAGNOSTIC FUNCTION OR FORCE INTERROGATE
tON ALL REMOTES WHICH ARE ON LINE AND REGULAR
013730
013734
01374C
013742
013746
013732
013756
013760
013764
013766
013772
013776

014000
014004
014010
014012
014016
22 014022
014026
014030
014034
014036
014042
014046
014050
014054

014060
014062
014066
014072
014076
014100
014104

014106
014112
40 014116
014120
014124
014130
014132
014136
014142
014146
014150
014154
014156
014162
014166
014170

012701
012167

001002
000167
012167

105767
001403
004767

000402
004767

005367
001363

012701
012167
001002
000167
012167
105767
001403
004767
000402
004767
005367
001363
012701
012167
001002
000167
012167
105767
001403
004767
000402
004767
003367
001363
012701
012167
001002
000167
012167
105767
001403
004767
000402
004767
003367
001363
000207

031326
016470

000032
016512
016421

OIAGFU:

SKP1:

000346

002256
016432

SKP1A:
SKP18:

031526
016420

SKP2:

000032

016442
016351

SKP3:

000276

#EXTBLL,R]
SKP1
SKP2

(R1)+ ,REMNO

FAST

SKP1A
PC, IFORCE
SKP18

PC,DIAGNF

CNTR
SKP1

EXTBL2,R1
(R1)+,CNTR
SKP3
SKP4
(R1).,REMNO
FAST
SKP3A
PC, IFORCE
SKP38

SKPS:

SKPS
SKP6
(R1)+,REMNO

002136
016312

SKPSA:

032126
016300

SKP6:

000032
016322
016231

1 IF NONE, NEXT PORT
1GET REMOTE NO.
1 'FAST' FLAG SET?
tNO, OIAGNOSTIC FUNCTION
1YES, FORCE INTERROGATE

SKPSA
PC, IFORCE
SKPS8
PC,OIAGNF

CNTR
SKPS
SEXTBLA R1
(R1)+,CNTR
SKP7
SKP8
(R1)+,REMNO

1IF NONE, NEXT PORT
1GET REMOTE ¢

1 'FAST'

FLAG SET?

tNO, DIAGNOSTIC FUNCTION
1YES, FORCE INTERROGATE
100 DIAGNOSTIC FUNC. ON REMOTE

1GET TABLE FOR PORT 3
11ST ENTRY IS # OF REMOTES

PC, IFORCE

1 IF NONE, DONE!
1GET REMOTE ¢
:'FAST' FLAG SET?
tNO, DIAGNOSTIC FUNCTION
1 YES, FORCE INTERROGATE

SKPTA:
SKPT8:

PC ,OIAGNF

100 DIAGNOSTIC FUNCTION ON REM.

SKPS :

tRETURN

SKP7:

FAST

SKP7A

000156
002066
016242

:AST

SrpP78

CNTR
SKP7

001
001
001
001

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

tGET TABLE FOR PORT 2
+1ST ENTRY IS & OF REMOTES

SKP4 :

000226

100 DIAGNOSTIC FUNC. ON REM,
100 ALL REMOTES ON THIS PORT

(R1)+,CNTR

031726

CNTR
SKP3
#EXTBLS,R1

000032
016372
016301

1GET 1ST REMOTE o
1 'FAST' FLAG SET?
sNO. DIAGNOSTIC FUNCTION
1 YES, FORCE INTERROGATE

100 DIAGNOSTIC FUNCTION ON REM.

SKP3A:
SKP38:

016350

1GET TABLE FOR PORT O
1GET @ OF REMOTES ON PORT
sNONE, NEXT PORT

PC,OIAGNF

002206
016362

001
001

1FINISH ALL REMOTES ON THIS PORT

001
001
001
001

001
001
001

HE
CZCMUCO CMR(V) 11 MOST EXERCISE MACRQ VO4.00

MCST REMOTE EXERCISE
1

SEQ 0059

02:24:05 PAGE 21

tBACKGROUND SCAN QUEUE LOADING ROUTINE.

;0.W 001

tONLY AVAILABLE IF RUNNING "GENERAL” OR FAST MODE.
(PERFORMS THE 'SET MOST PARAMETERS' FUNCTION ON THE HOST
;AND LOADS THE REMOTE NUMBERS (TEMPORARILY STORED IN EXTBL1L)

1D W 001
s0.W 001
1D.W 001

3
4
6
8

9 014172
10 014176
11 014204
12 014210
13 014214
14 014222

1S 014226
16 014232
17 014236
18 014242
19 014246
20 014254

gg 014260

tINTO THE SCAN QUEUE AS WELL AS SETTING THE HOST MODE TO ‘1’

012701
052777
005077
012167
012777
016700

062700
005277
010077
005277
012777
005277
012777

031326
000020
016264
016214
000120
016202
000002
016236
016234
016226
000001
016214
000001

23 014266
24 014272
25 014276
5_6, 014302

005277
012177
005367
001371

016202
016200
016126

28 014304
29 014312
30 014320
31 014322
32 014326

052777
032777
001003
004767
000771

000001
040000

33 014330

000207

016226

LOQUE:

016254

ADO
INC
MOV
INC
MOV
INC

016222
016210
LOQLP:

016120
016112

MOV
8IS
CLR
MOV
MOV
MOV

LDOGFC:

003624
LDQRT:

#EXTBLL R
#804 ,8CSR
8SPAR
(R1)+,CNTR
#120,89SPDR
CNTR,RO
#2,R0O

:0.W 001

1GET TABLE OF REMOTES
;0.4 001
;CLEAR TOP BYTE OF CSR
:0.W 001
1POINT TO REQUEST SCRATCHPAD
s0D.W 001
;GET NUMBER OF ENTRIES
s0.W 001
sLOAD 'SET MOST' FUNCTION
sD.W 001
sCREATE "NO. OF BYTES FOLLOWING”;:D.W 001
sINCLUDES MODE & & OF REQUESTS ;D.w 001

MOV

8SPAR
RO, 8SPOR
8SPAR
€1,85PDR
8SPAR
#1,8SPDR

INC
MOV
DEC
BNE

8SPAR
(R1)+,8SPOR
CNTR
LOQLP

sLOAD NEXT REMOTE ¢
1FROM TABLE
sKEEP TRACK

:D.W 001
10.W 001
s0.W 001
s0.W 001

BIS
BIY
BNE
JSR
BR

#6800, 8CSR
#8614 ,8CSR
LDARTY
PC,MONIT
LOQFC

sIF DONE, START FUNCTION
sFUNCTION COMPLETE?
;IF YES, EXIT
s ANY CONTROL CHARACTERS?
;KEEP AN EYE OPEN

;D.W 001
;0.4 001
;0.W 001
s0.W 001
;0.W 001

RTS

sLOAD @ OF BYTES
sONE REQUEST
sMODE

sALL DONE...

EXIT

s0.W 001
sD.W 001
sD.M 001
sD.W 001
:0.W 001
s0.W 001

s0.W 001

[
C2CMUCO CHR(V) 11 HOST EXERCISE MACRO VO4.00

MOST REMOTE EXERCISE

SEG 0060

02:24:05 PAGE 22

tSUBROUTINE TO DO A 'FORCE INTERROGATE'

3
4

1 THIS REPLACES THE 'DIAGNOSTIC'
1 "GENERAL" OR FAST MOOE.

7 014332
8 014336
9 014344
10 014350
11 014356
12 014362
13 014370
14 014374
1S 014402
16 010406
17 014414

005077
C12777
005277
012777
005277
012777
005277
016777
004767
052777
052777

016136
000130
016124
000002
016112
000001
016100
016064
000360
000020
000001

19 014422
20 014430
21 014432
g§ 014436

032777
001003
004767
000771

040000

24 014440
25 014446
26 014454
27 014462
28 014470

012777
012767
017767
026767
001416

001000
000130
016016
003410

014472

032777

040000

016000

030747
000050
003272

003360

29 014472

014500
014502
014506
014514

30 014520

001007
012700
012767
004767
000051

;sALWAYS 2 BYTES FOLLOWING

;0.W 001

1ALWAYS 1 REQUEST

016016
016010

1LOAD REMOTE NUMBER
+CLEAR ALARMS ETC VIA SCAN
sCLR TOP BYTE TO START
$SET START FUNCTION

10.W 001
s0.W 001
sD.W 001
s0.W 001
sD.W 001
;0.W 001

016002

IFRWT:

BIT
BNE
JSR
BR

#814,8CSR
IFRCN
PC,SCALM
IFRUT

1FUNC COMPL SET?
sIF YES CONTINUE
1SCAN FOR ALARMS
sAND WAIT FOR FUNC COMPL

sD.W 001
s1D.W 001
s0.W 001
;D.W 001

016026
003422
003416
003410

IFRCN:

MOV
MOV
MOV
cHP
8EQ

#1000, 8SPAR
#130,G000D
8SPOR,BAD
GOO0D,BAD
IFRCNL

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

sD.W 001
:D.W 001
s0.W 001
1D.W 001
:0.W 001

-4

#814,85R

016120
016106
016074

000330

DATERR

000002
000001
015730
003322

015740
003334
003330
003322

014560

032777

040000

015712

031024
000051
003204

003272

040000

015664

38 014606
39 014614
40 014616
014616

004767
000052
032777
001012

012700

025255

\N,FIFUN

BNE
MOV
MOV
JSR
SCOPE

.+20
#F IFUN,RO
450
, ERRNUM
PC,DERR
N+l
IFRWTO

IFRCN1: ADD
MOV
MOV
cHp
BEQ
DATERR

2, 9SPAR
#1,G000
8SPOR,BAD
G000 ,B8AD
IFRCNR
\N,FIFUF

062777
012767
017767
026767
001434

014602

10.W 001
;0.W 001

sD.W 001
;0.W 001

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

001007
012700
012767

FUNCTION IF WE'RE RUNNING IN

1D0.W 001

s ADDRESS REQUEST SCRATCHPAD
;1LOAD FORCE INTERROGATE COOE

002750

014566
014570
014574

REMNO’

S8SPAR
#130,8SPDR
8SPAR
#2,8SPDR
8SPAR
#1,8SPDOR
8SPAR
REMNO, BSPDR
PC,SCALM
#804 ,8CSR
#800,8CSR

004567
014402

IFORCE: CLR
MOV
INC
MOV
INC
MOV
INC
MOV
IFRWTO: JSR
8IS
8IS

016132

014520
014524

FUNCTION ON REMOTE

JSR
IFRWTO

BIT

BNE
MOV
MOV
JSR
.
8IT
BNE
PNTM

MOV

$ERROR:FORCE INT FUNC GAVE BAD FUNC COOE;:D.wW 001
;esssess ERROR SO

¢«ssssse

;0.W 001

RS,SCPRTN

;NOW GET STAT ON FUNCTION
1SHD SHOM SUCCESS
;READ USOF
1IF 0.K. CONTINUE
1ERROR
: USOF WRONG ON FORCE INTERROGATE
jonsssss

ERROR S1

sessess

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

#814,8SR

.+20
& IFUF RO
#51 , ERRNUM
PC,DERR
N+l
#814,8SR
IFRCNS
REMSG

#REMSG,RO

$1PRINT ALLOWED?
tNO. SKIP IT
1PRINT "REMOTE @
tPRINT MESSAGE

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

J5H
CZCMJUCO CMR(V) 11 HOST EXERCISE MACRO VO4.00

HOST-REMOTE EXERCISE

014622

004767

003730

43 014636

004767

004744

014642
014646

004567
014402

002626

46 014650

012777

001004

015616

IFRCN2: MOV

014666

032777

040000

015604

8I7

#814,85R

031065
000052

003164

JSR

PC,ERR

41 014626
42 014632
44 014642
45

47 014656
48 014664
49 014666

014674
014676
014702

014710

SO 014714
S1 014722
52 014724
014724
014730
S3 014734
S4 014740
SS 014744
56 014750
014750
7 014754
S8 014756

23 014764
61

005277
017700

027727
001034

001007
012700
012767

004767

000053

015642
015640

015614

003012

032777
001012

040000

012700
004767
005277
017700
004767

025346
003622
015534
015532
004636

004567
014402

002520

052777

000020

000207

JSR

PC, TYPOUT

sPOINTED TO BY REMSG

JSR

PC,OCTPNT

tPRINT IT

JSR
IFRWTO

RS,SCPRTN

INC
MOV
IFRCNS:

000003

015556

015446

SCOPE

cre
BNE
ERROR
BNE
MOV
MOV

SEQ 0061

02:24:05 PAGE 22 1

8I7T
BNE
PNTM
MOV
JSR
INC
MOV
JSR
IFRC2S: SCOPE
JSR
IFRWTO
IFRCN3: BIS

RTS

8SPAR
8SPDR, RO
IFRWTO

#1004 ,8SPAR
8SPOR, @3
IFRCNS3
\N,FICME

tGET REM® FROM RES SCR PAD

;0.W 001

sD.W 001

;CHECK THE REMOTE STATE

sIS IT UNKNOWN?
iNO. 0.K,
;ERROR:COMM PROBLEMS DURING FRC INTR
i1ssssess

10.W 001
;0.4 001

ERROR

sssases

;0.4 001

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

.+20
#F ICME,RO
#52 , ERRNUM

N+l

#814,8SR
IFRC2S
COMST
#COMST RO
PC,TYPOUT
8SPAR
8SPOR,RO
PC,OCTPNT
IFRWTO
RS,SCPRTN

sPRINT ALLOWED?
sNO, SKIP 17
sPRINT "COMM, STAT s
sPRINT MESSAGE
sPOINTED TO 8Y COMST
s YES. GET COMM STATUS
+ FROM RES SCRATCHPAD
sAND PRINT IT

;0.W 001
s0.W 001
;0.4 001

#804 ,8CSR

;CLEAR TOP BYTE WHEN DONE

;0.4 001

s AND VAMOOSE

s0.W 001
sD.W 001
;0. 001
:0.W 001

;:0.W 001

I<H
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO v04.00
NOST-REMOTE EXERCISE

1SUBROUTINE TO CHECK FOR ALARMS AND CHANGES OF REMOTE STATE,
.., RING 4 BELLS
IF ALARM,
i
IF CHANGE OF REMOTE STATE...SET A FLAG
i

N7 1,03
XNY. YV,
-

SEQ 0062

02:24:05 PAGE 23

014766

014774
014776
015002

015006
015012
015016
015022
015030
015032
015034
015036
015044
015046
015054
015062
015064
015064
015072
015074
015100
015106
23 015112
015112
24 015116
015116
015122
015126
015126
015132
015136
27 015144
28 015150
015154
015154
013160
015164
31 015170
015176
33 013200
013200
015204
013210
33 013212
015220
37 015222
013222
015226
015232
39 015234

032777
001415
012700
004767
004767
004767
004767
052777
000240
000240
000240
032777
001531
012777

010000

000007
005114
005110
005104
005100
000020

015436

015402

SCR1:

015366

015420
000310

032777
001007
012700
012767
004767

040000

015406

030607
000053
002614

002766

004767

002336

012700
004767

025366
003430

012700
004767
012777
017700
004767

025255
003420
001003
015326
004432

012700
004767
005277
032777
001405

025424

001415

003372
015304

012700
004767
000416
032777
001405

025450
003346

012700
004767
000410
017700

025461
003324

000100

015236

BIT
BEQ
MOV

001000
015416

027727

SCALM:

#812,8CSR
SCAl

#7,R0

JSR
JSR
JSR
JSR
8IS
NOP
NOP
NOP
BIT
8EQ
MOV
cHp
8EQ
ERROR

PC.TT0
PC,TTO
PC,TTO
PC,TTO
4804 ,8CSR

BIT
BNE
MOV
MOV
JSR

#814,85R

#813,8CSR
SCA3

#1000, 8SPAR
8SPOR, #310
SCA2
\N, SYSER

REMSTH
OREMSTM,
RO
PC,TYPOUT

S8SPAR
#6805, 8SPOR
SCA2A

REGMG
MREGMG,
RO
PC, TYPOUT
015256

SCA2A:

BIT

SCA2C
#806, BSPDK
SCA28
IRRGMG

#IRRGMG
, RO
PC, TYPOUT

SCA28:

MOV

RING TTY BELLS

tCLR ALARM

1CHANGE OF STATE?
1NO, CHECK THRU
1SEE IF THIS IS A SYS ERR
1 OR REMOTE CHANGE
sREMOTE CHANGE IS 0.K.
tERROR:HOST SYS ERROR. RUN LOGIC TEST.
;eesssss ERROR S3 sesesss

N+l

PC,OCTPNT

015300

sALARM!

, ERRNUM
#53
PC,ERR

#1003, 8SPAR
8SPOR,RO

015330

tNO, CHECK FOR CHG ST,

.+20
#SYSER,RO

PC,SWHLT
REMCHG
SREMCHG
, RO
oC. TYPOUT
REMSG
OREMSG,
RO
PC, TYPOUT

SCA2:

i ALARMS
?

SCA20
8SPDR,
RO

1PRINT “REMOTE STATUS CHANGE
"
1 PRINT MESSAGE
$POINTED TO BY REMCHG

+PRINT “REMOTE ¢
1PRINT MESSAGE

;POINTED TO B8Y REMSG
1GET THE REMOTE NUMBER
$PRINT IT
tPRINT *REMOTE STATUS NOW *
1 PRINT MESSAGE
tPOINTED TO Y REMSTM

s=8U REGULAR?
3

tYES, PRINT “REGULAR"

1PRINT MESSAGE

1POINTED TO BY REGMG

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

1OTHERWISE, JUST PRINT THE STATUS

L5
CZCMUCO CMR(V)-11 HOST EXERCISE MACRO vO4.00
MOST-REMOTE EXERCISE
€0 015240
a1 0.5244
.2 015246

a3 015232

44 015254
as 015260

46 015262
a7 015266
a8 015272
49

51
e
53

S4
S5
56
57
S8

015274
015300
015300
015304
015310
015316
015324
015330
015336
015340
015346
015354

004767
000410
005267
000405
005767
001402
005367
005767
001006
105067
012700
004767
012767
052777
000167
032777
001406
112767
052777
000207

004342
015234

SCA2C:

015226

SCA2D:

015220
015214

SCA2t:

015106

025474
003246
177777
000020
177500
004000

177717

000020

015106
015106

SCAF:

015074

SCA3:

015045
015056

SCART:

SEQ 0063

02:24:05 PAGE 23-1
JSR
8R
INC
B8R
1S7
8EQ
DEC
TST
BNE
CLR8
PNTM
MOV
JSR
MOV
8IS
JP
BIT
8EQ
MOV
BIS
RTS

PC,OCTPNT

SCA2E
TALLY

tAND LEAVE

TALLY

$1IS TALLY ALREADY =07

TALLY
TALLY

tNO, MAKE IT ONE LESS
;IS TALLY NOW 0?
tNO, O0.K.
;YES, HAVE TO START OVER
sPRINT “ALL REMOTES ARE IRREGULAR"

SCA2E

SCA2E
SCA2F
ONCE

ALROFF
SALROFF ,RO

PC.TYPOUT

#20,8CSR
SCA1
#811,8CSR

SCART

#-1, THRUF
#20,8CSR

THE

TALLY ALONE

tUPDATE TALLY FOR ADDED REMOTE
1 YES,

FORGET

1PRINT MESSAGE

tPOINTED T0Q BY ALROFF
1SET CHANGE FLAG
1CLEAR TOP BYTE

1GO SEE IF ANY MORE CHANGES.
1 IS THRU SET?
i1NO,

LEAVE

s YES, SET THE "THRUF' FLAG
;CLEAR TOP BYTE

M5
CZCMJCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

HOST REMOTE EXERCISE
OB
VO
WA -

1 SUBROUTINE TO PERFORM “PORT CONFIGURATION STATUS” ON A GIVEN
tPORT AND STORE THE RESW.TS IN A GIVEN TABLE. ALSO
1STORED IS THE STATUS OF EACH REMOTE
1FOR EACH REGULAR REMOTE FOUND, A TALLY IS INCREMENTED
1 TABLES ARE IN THE FOLLOWING FORMAT:
;
i

(

& OF ENTRIES

ERE" STAT]EREH e

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 015406
28 015470
29 015474
30 015502
31 015510
32 015512
015512
015520
015522
015526
015534
33 015540
015540
34 015544
35 015550
36 015554
37 015556

38 015560

39 015562
40 0153564
41 015570
42 015574

43
44
45
46
47

SEQ 0064

02:24:05 PAGE 24

015602
015606
015612
015616
015624

48 015630
49 015632

016701

052777
005077
012777
005277

012777
005277

012777
005277
016777
004767
052777
032777
001003
004767
000771
004767
012777
027727
001415

015126

000020

015100
000140
015066
000002
(15054

000001
015042
015016
177322
000001
040000

015042

PORCNF :

015074

015062
015050
015036
014760
014752

PORO:

177300

002456
001000
014770

014772

POROO:

000140

MOV

8IS
CLR
MOY
INC
MOV
INC
MOV
INC
MOV
JSR
8IS
8IT
BNE
JSR
B8R
JSR
MOV
cHp
BEQ

ERROR

)

]

)

4140, 8SPDR

1 TABLE ADDR GIVEN B8Y CALLER
+CLR TOP BYTE OF CSR
1ADDR REQ. SCPOD
1LOAD PORT CONF. ST. FUNC.

#2,8SPOR

:DATA LEN.

#1,8SPOR
S8SPAR
PORN, 8SPDR
PC,SCALM

: ONE REQUEST

TBLAD,R1
#804,8CSR
&SPAR

8SPAR
SSPAR

800, 8CSR
#814,8CSP

POROO
PC,SCALM
PORO
PC,MONIT

#1000, 8SPAR
8SPOR, #140

POR1
\N, SYSER

032777
001007
012700
012767
004767

040000

014760

030607
000054
002166

#814,8S5R
.+20

002340

54
, ERRNUM
PC.ERR

004767
005277
017700
006200
006200
010021
001002
000167

001710
014724
014722

000055

010067
012777
117721
003277
117721

062777

005367
001364
005767

Nel

POR1:

PC,SWHLT
8SPAR
8SPDR , RO
RO,(R1)e.

000042

000003

014600
014616

1PORT & GIVEN BY CALLER
;CLEAR ALARMS £ CHANGES
1 START FUNCTION
1FUNCTION COMPLETE?
iNO, WAIT

1 SCAN ALARMS AGAIN

sADDR RESW.T SCPD

s THIS RESULT FROM PORT CONFIG?
;ERROR:HOST SYS ERROR.
;¢eseees

ERROR

RUN LOGIC TEST
54

ssesess

#SYSER,RO

014634
001003
014670
014662
014660

= 2

014672

PORLD:

PORCN:

PORLD
PORXT
RO,CNTR

#1003, 8SPAR
8SPOR, (R1)+
8SPAR
#3,8SPAR

014650

CNTR

PORXT
:

PORCN
PORN

1GET @ OF REMOTES
1OIVIDE BY 4

1 SAVE AS # OF ENTRIES
:IF MORE THAN O, LOAD THEM
1 IF NONE, EXIT
1GET & OF ENTRIES
:LOAD REMOTE @

1LOAD REM. STATUS
1GOT THEM ALL?
1NO, GET THE REST
1PORT 07

NS
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

MOST-REMOTE EXERCISE
S0
S1
S2
53
54

015636
015640
015644
015650
015656

001002
005067
060067
052777
000207

BNE

014642
014636
000020

014554

1¢:

SEQ 0065

02:24:05 PAGE 24-1

CLR

ADD

TALLY
RO, TALLY

RTS

8IS

4
, 8CSR
#80

1tNO, NEVER MIND
s YES, CLEAR TALLY
sUPDATE TALLY
sCLR TOP BYTE
; ANC RETURN

Bé6
CZCMUCO CMR(V) 11 MOST EXERCISE MACRO vO4.00
MOST-REMOTE EXERCISE
(5]

{SUBROUTINE TO REPORY THE STATUS OF EACH PORT WMICH HAS ANY
1REMOTES ATTACHEC AND REGULAR

2
3

4 015660

015660
015664

S 015670
6 015674
7 015702

8 013706
9 015712

10 015714
11 015720
12 01572¢
13 C15732
14 015736
1S 015742
16 015744
17 015750
18 015756
19 013762
20 013766
21 015772
22 013774
23 016000
24 016006
25 016012
26 016016

27 016022
28
29
30
31

SEQ 0066

02:24:05 PAGE 25

016C2¢
016030
016036
016042

33 016030
016050
016054
34 016060

012700
004767
105067
012767
012701

025267
002666
014513
000006
031326
014516

105267
012767
004767
012701
012167
001407

014467
000000
000130
031526

012167
001407

103267
012767
004767
012701
012167
001407
105267
012767
004767
012701
012167
001407
105267
012767
004767

105767

001004

012700
004767
000207

014540

014526

REPORT: PNTH
MOV
JSR
CLR8
MOV
MOV
MOV
8eQ
INCB
MOV

CONFMS
OCONFMS ,RO
PC, TYPOUT
PNCFLG
06, LINLEN
SEXTBLL R1
(R1)+,CNTR
REPO
PNCFLG
€0, PORN

REPO:

EXTBL2,R1

014466

014437
000001
000100
031726
014436
014407
000002
000050
032126
014406

014357
000003
000020
014341

014476
REP1:

014446
REP2:

014416

REP20:

025474

002476

REP3:

JSR

MOV

MOV
8€Q
INCB
MOV
JSR

MOV

PC . PRNREM

(R1)+,CNTR

REP)
PNCFLG
01 ,PORN
PC . PRNREM

SEXTBLS,R1

1SET FLAG

SEXTOLA
R]

(R1)+ ,ONTR
REP20
PNCFLG
03, P0RN

PNTM
MOV

PC ,PRNREM
PNCFLG
REP3
ALROFF
OALROFF ,RO

RTS

BNE

JSR

1GO PRINT RE*QTES ON THIS PORT

PNCFLG
02 .PORN
PC . PRNREM

MOV

MOV
JSR
TSTB

1GET @ OF REMOTES
INONE HERE, NEXT PORT
1SET FLAG

1GET @ OF REMOTES

REP2

MOV
8EQ
INCB

1GO PRINT REMOTES ON THIS PORT

(R1)+ ,ONTR

8eEQ

INCB
MOV
JSR

tPRINT "ee PORT CONFIGURATION oo’
1PRINT MESSAGE
sPOINTED TO B8y CONFMS
sCLR "PRINTED SOMETHING~ FLAG
1ALLOW 6 REM'S PER LINE.
1GET PORT TABLE
1GET @ OF REMOTES
INONE MERE, NEXT PORT
1SET FLAG
1LOAD PORT NO.

PC, TYPOUT

sNONE HERE, NEXT PORT

1G0 PRINT REMOTES ON THIS PORT

1GET @& OF REMOTES
1NONE ME
' RE DONE
1SET FLAG
1GO PRINT REMOTES ON THIS PORT

1PRINTED ANYTHING?
1YES, FINE.

iNO, SAY ALL ARE IRREGWLAR.
1PRINT MESSAGE
;POINTED TO B8Y ALROFF
1RETURN WHEN NONE

Ct,
C2CMUCO CMR(V) 11 MOST EXERCISE MACRO vO4.00
MOST REMOTE EXERCISE

{tSUBROUTINE TO DO THE PRINTING PART OF PORT CONFIGURATION REPORT,
1R1 POINTS AT FIRST REMOTE o

NV 1 .VR
EVY. RV

FAE UKL EYRNRBRERERSEIERELRE
S va

S€EQ 0067

02:24:05 PAGE 26

{PORN = PORT @
;CNTR « @ OF REMOTES ON THMIS PORT

016062
016062
016066
016072
016076
016102
016104
016110
016114
016120
016124
016126
016132

016136
016142
016146
016152

016154
016160

016162
016170
016174
016200
016206
016212
016216
016222
016224
016230
016234
016240
016246

012700
004767
016700
004767
112100
042700

004767

012700
004767

112100
042700
004767
012700
004767
005367
001426
005367
001350
012767
012700
004767

012767

012700
004767
001373
000167

012700

004767
012767
000207

PRNREM: PNTM
MOV
JSR

025245
002464

PORTMS
SPORTMS RO
PC., TYPOUT

1PRINT "PORT @
1PRINT MESSAGE
1POINTED TO B8Y PORTMS

MOV
JSR

PORN, RO
PC,OCTPNT

1GET PORT o
1PRINT I7

177400
003520
000050
003776

8IC
JSR
MOV

#177400,R0
PC,0CTUSP
¢ (,RO

1CLR HIGH BYTE
1PRINT 17
1BRACKET THE STATE

8IC
JSR
MOV

(R1)+,RO

€177400,R0
PC,OCTPNT
e ),RO

1GET REM. STATE

177400
003450
000051
003754
014256

MOV8

OEC
8€Q
0€eC
BNE
MOV
MOV
JSR
MOV

CNTR
PREML
LINLEN
PREMO
€6, LINLEN
015,R0
PC,.TTO
#7,0LK

JSR

PC.TT0

014356
003504

PREMO:

JSR

014262

000006
000015
003722
000007
000040
003704

014252
014220
PREM1:

014204

177652

000015
003662
000006

MOVB

PREML:
014174

DEC
BNE
JP
MOV
RTS

(R1).,RO

PC,T70

PC,TTO

1GET REMOTE o

1CLEAR THE JUNK OFF
tPRINT THE STATE
1CLOSE BRACKETS

tEXIT IF ALL OONE
+FILLED A LINE?
1YES, RESTORE LIMNL.EN
1CARRIAGE RETURN
1 SPACE PAST PORT o

CLK
PREM]
PREMO
#15,R0

s ANOTHER <CR>

tAND RETURN

D¢,
C2CMUCO CMR(V) 11 MOST EXERCISE MACRO v04.00

MOST-REMOTE EXERCISE
1
2

SEQ 0068

02:24:05 PAGE 27

1SUBROUTINE TO DO DIAGNOSTIC FUNCTION ON A GIVEN REMOTE
1ENTER WITH REMOTE @ IN "REMNO”

S 016250
6 016256

012767
012702

000020
031266

7 016262
8 016266
9 016274
10 016300
11 016306
12 016312
13 016320
14 016324

005077
012777
005277
012777
005277
012777
005277
016777

014206
000100
014174
000022
014162
000001
014150
V14134

16 016336
17 016342
18 016346
19 016350
20 016354
21 016362
22 016370
23 016376
24 016400
25 016404
26 016406
27 016414
28 016422
29 016430

012277
005367
001371
004767
052777
0352777
032777
001003
004767
000771
012777
012767
017767
026767

014134
014060

1S 016332

30 016436

31 016440
016440

016446
016450
016454
016462
32 016466
016466
016472

33 016474
34 016502

35 016510

36 016516
37 016524

38 016526
016526

016534
016536
016542
016550

39 016554
40 016562
41 016564

005277

001416

032777

001007
012700
012767
004767
000056

014136

176412
000020
000001
040000

014150

014060
001454
001450
001442

040000

014032

030650
000055
001324

001412

062777
012767

000002
000001

013772
001366

026767

001354

001460
032777

001007
012700
012767
004767
000057
032777

001036

(R2)+,8SPOR
K
0IAGO
PC,SCALM
4004 ,8CSR
6800, 8CSR
0814 ,8CSR
0IAG10
N
OIAGL
#1000, 8SPAR
€100,6000
8SPOR ,BAD
G000 ,8AD

tLOAD DATA PATTERN

INC

B8€Q

013762

817

001002

017767

MOV
DEC
BNE
ODIAGOO: JSR
8IS
BIS
DIAGY: 8IT
BNE
JSR
BR
OIAG10: MOV
MOV
MOV
o,

DIAGO:

DATFRR

004567

016350

1 ADDRESS REQ SCR PAD
sLOAD "DIAG”" FUNC

014156

014050
014042
014034

DOIAG2:

001362

013744

030713
000056
0012%6

001324

C40000

013716

0IAGR

\N,DIAGF

ADD
MOV
MOV
10,
BEQ

#2,8SPAR
#1,G000

DIAGOO

BNE
MOV
MOV
JSR
]
BIY

BNE

PNTM

i1OATA LEN, = 22
sONE REQUEST
sLOAD REMOTE o

;CLEAR ALARMS ETC.
sCLR TOP BYTE
$SET START FUNC.
1FUN COMPL?
sNO, WAIT FOR IT
1 ADORESS RESWLT SCR. PAD
sRIGHT FUNCTION?

sERROR:DIAG FUNC GAVE WRONG FUNC COODE
jessesse

ERROR 5SS

sssesese

0814,85R

.+20
QOIAGF ,RO
055
, ERRNUM
PC,DERR
Nel
DIAGOO
RS ,SCPRTN

BIT

OSPAR

BNE
MoV
MOV
JSR
.
SCOFE
JSR

DATERR

040000

1SET UP TO LOAD REQUEST

8SPAR
0100, 8SPOR
8SPAR
022, 8SPOR
8SPAR
#1,8SPOR
8SPAR
REMNO, 8SPOR

014170
0l4)44

020, CLK
SDATBL ,R2

CLR
MOV
INC
MOV
INC
MOV
INC
MOV

014202

176362
001000
000100
014059
001442

OIAGNF: MOV
MOV

8SPOR ,BAD

G000 ,B8AD
DIAGA

\N,DIAGUF

sCHECK FUNCTION STATUS
1SHD SHOM SUCCESS
30.K.

1ERROR
: USOF WRONG ON "DIAG* FUNC
16000008

ERROR

#814,85R

. +20
SOIAGUF ,RO
#56 , ERRNUM
PC,DERR
Nel
#814,85R
DIAG3S
REMSG

1PRINT ALLOVWED?
NG, SKIP IT
tPRINY “REMOTE o ~

s0sssas

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

HOST -REMOTE EXERCISE

42
43
44
45

46
47

50
S1
Se
S3
54
Ss

016564
016570
016574
016600
016604
016610
016610
016614
016620
016624
016630
016634
016634
016640
016644
016650
016654
016660
016660
016664
016666
016674

012700
004767
005277
017700
004767

025255
001762
013674
013672
002776

012700
004767
005277
017700
004767

025323
001736
013650
013646

012700
004767
005277
017700
004767

023335

004567
016330
052777
000207

000610

001712
013624

013622
002726

000020

MOV

OREMSG, RO
PC, TYPOUT

INC
MOV
JSR
PNTM
MOV
JSR
INC
MOV
JSR
PNTM
MOV

8SPAR
9SPOR, RO
PC,OCTPNT
STATEM
OSTATEM,RO
PC, TYPOUT
8SPAR
RO
8SPOR,

JSR

002732

013536

SEQ 0069

02:24:05 PAGE 27-1

JSR
INC
MOV
JSR
DIAGSS: SCOPE
JSR
DIAGOO
8IS
OIAGA:
RTS

PC,OCTPNT

1PRINT MESSAGE
1POINTED TO BY REMSG
1GET REM. NO.
1PRINT I7
sPRINT

~STATE

tPRINT MESSAGE
1POINTED TO BY STATEM
1GET STAE OF REMOTE
tPRINT

“USOR

1PRINT MESSAGE
1POINTED TO B8Y USORM

1CLEAR TOP BYTE WHEN DONE

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

SEQ 0070

02:24:05 PAGE 28

MAINTENANCE ROUTINE

.SBTTL

2
3

MAINTENANCE ROUTINE

1 THIS ROUTINE WORKS LIKE ODT BASICALLY BUT

5
6

tONLY ON THE CMR-11 SCRATCHPAD MEMORY,
1 THE REQUEST SCR. PAD MAY BE LOADED/READ

1 TYPING “G” CAUSES EXECUTION OF THE FUNCTION

1LOADED. COMPLETION OF THE FUNCTION CAUSES

11
12
13
14
15

1THE CMR-11 CSR MAY BE EXAMINED BY TYPING
s IT'S BUS ADORESS FOLLOMED BY SLASH (/)
s EXIT IS ACHIEVED BY TYPING CNTRL-C
1OR *P~ TO PROCEED TO THE POINT AT WHICH THE
iMAIN PROGRAM WAS INTERRUPTED.

9
10

1 THE FIRST LOCATION OF THE RESWLT SCR. PAD
1 TO BE PRINTED.

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

105767
001404
017746
005077
112767
017767

013471

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

012700

004767
005067
016767
004767
016767
026727
101423
026767

022742

016730

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

001012
017700
004767
012700
004767
000167

013622
013616
177777
013504
001616
013452
013446
001642
002546
013426
013416

OOTPR:

013454
013542

002556

013430

013422
002620
000015
003076
177710

$106:

012700
004767
000741
103767

022624
001516

41 017030

103767

013324

032777
003077
027727
101404

000020
013404
013402

013346

052777
000403

000200

013324

032777

032777
001003

000001

100000

013314

004767
000771

001020

42 017054

43
44
45
46

017056
017064
017070
017076

47 017100
48 017106

49 017110

S0 017116
S1 017124

S2 017126
53 017132

001042
001462

$04:
¢1¢:

013432
001777

017030
017034
38 017040
39 017042

40 017046

$00¢:

013344

$2¢:

$2A$:

000151

013306

434:

#$44:

TST8B
8EQ
MOV
CLR
MOVE
MOV
PNTH
MOV
JSR
CLR
MOV
JSR
MOV
e
8LOS
cP
BNE
MOV
JSR
MOV
JSR
JP

PNTM

CLKFLG
$004
8LCS,-(SP)
&CS
¢-1,08FLG
S8CSR, SAVEC
OBAID

#0BAID,RO
PC, TYPOUT
ADOR
ADDR , KBBUF
PC, INPKB
KBBUF
, ADDR
ADOR, #1777
24
ADOR,CSR
4104
8CSR,RO
PC,0CTJSP
#15,R0
PC,TT0
$0¢
AGAIN

1STOP CLOCK WHILE WE'RE HERE
18Y CLEARING INTR ENAB
+IF IT'S SET
1SET DEBUG FLAG
1SAVE CSR FOR LOOKING AT
1PRINT “CMR-11 DEBUG AID”
1PRINT MESSAGE
sPOINTED TO 8Y DBAID
1GET ADORESS
3 FROM KEYBOARD
sWITHIN LIMIT?
1YES, 0.K,
1IS IT THE CSR?
sNO
1 YES, SHOW CONTENTS OF CSR

MOV
JSR
BR
T1S7d

OAGAIN,RO
PC, TYPOUT
$14¢
SLFL

1PRINT MESSAGE
tPOINTED TO B8Y AGAIN

1518

GOFLG

1 "G” TYPED?

21
CLR
CMP
8LOS

4804, 8CSR
8SPAR
8SPDR, #0151
43¢

+INSURE TOP BYTE CLEAR
s ADDRESS FUNC. COOE
1IS FUNC NOT MAINT?
1IT'S NOT MAINT. DO IV

8IS

#800,8CSR

1SET

8EQ

8IS
BR

8IT7
BNE

JSR
BR

$11¢
$204

#807,8CSR
44

#B815,8CSR
454

PC,MONIT
44

$SLASH HIT?

1YES OUMP DATA
1NO

1IT IS MAINT,

“STFUN"

SET

“MAIN”

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

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

SEQ 0071

02:24:05 PAGE 28-1

MAINTENANCE ROUTINE
54
S5
56
57
58
59
60
61

017134
017142

017146
017152
017154

017162
017166
017172

017172
017176

62 017202
63 017210
64 017214
65 017222
66 017226
67 017230
68 017234
69 017240
70 017244
n 017246
72 017252
73 017256
74 017262
[¢] 017266
76 017272
77 017276
78 017300
79 017304
80 017310
81 017312
82 017316
83 017320
84 017322
85 017326
86 017330
87 017334
88 017340
89 017344
90 017346
9N 017352

012767
012700
004767
000430
016777
017700
004767
012700
004767
017767
004767
016777
105767
001421
003267
016700
020027
101402
000167
004767
012700
004767
000167
105767
001402
000167
105767
001004
105767
001257
000611
105767
001402
022677
105067
005767
001402

016716
000207

001000

000015
002750

013236
013310

013254

013312

$5¢:

$11¢:

002442

023071
001354
013270
001404
002310
013154
013162
013156
001777

177556

002330
000057
002634
177662
013114

177650
013064

PNTM

MOV
JER

002320
013254

MUV
JSR

$204;

$214:

$224:

$13¢:
$234:

013062

013045

$25¢:

013176
013036
013106

$264:

013100

MOV
MOV
JSR
B8R
MOV
MOV
JSR

$244:

MOV

1578

#1000, ADDR
#15,R0
PC,TT0
$214

ADOR, 8SPAR
RO
8SPDR,

PC,0CTUSP
TWOSP
#TWOSP ,RO
PC, TYPOUT
SSPOR, KBBUF
PC,INPKB
KBBUF
, 8SPOR

INCF
$134
ADOR
ADOR,RO
RO, #1777

BEQ
INC
MOV
cHe
8LOS
JP
JSR
MOV
JSR
JP

e /,RO
PC,TT0
$11¢

8€Q
JP

$23¢
$114¢

1ST8

(STB

BNE

t224
$10¢

PC,OCTPNT

SLFL

CONFLG
1254

s ADDRESS RESWLT
$1D0 <«CR>

1LOAD “ADORESS"”
tGET "CONTENTS”
tAND PRINT IT
1SPACE AND PROMPT (:)
1PRINT MESSAGE
+POINTED TO 8Y TWOSP
1GET KBD INPUT
tLOAD ANY NEW INPUT
tLINE FEED?

1IF YES, INCREMENT ADORESS

stVALID ADDRESS?
1YES, 0.K,
1NO GOOD. GET A NEW ONE'!
tPRINT NEW ADDRESS
;1PRINT A SLASM

1GO PRINT CONTENTS
s SLASH TYPED?
+NG, CHECK IF IT'S “P”
s YES, SHOW CONTENTS
i "P* TYPED?

GOFLG
$2A¢4

1 "G” TYPED?
1 YES, START FUNCTION

CLKFLG
$264
(SP)+,8CS
DBFLG

sCHECK ON CLOCK FLAG
sNO CLOCK, SKIP
tRESTORE CLOCK IF GOING
1CLEAR DEBUG FLAG
s ANY PROMPTS PENDING?
1iNO, JUST RETURN TO CALLER

$1¢

PCONT
$244
PCONT, (SP)
PC

1YES, RETYPE PROMPT.
tUNOFFICIAL RETURN

F1()
c2CMuCo CMR(V) 11 MUST EXERCISE MACRO VO4.00

SEQ 0072

02:24:05 PAGE 29

U-X. NN JO. 0 N7 1VE g

UTILITY ROUTINES

.SBTTL

UTILITY ROUTINES

tROUTINES TO SAVE AND RESTORE GENERAL REGISTERS
i CFALLED BY JUSR RS,REGSAV
1

JSR RS,REGRES

017354
017356
017360
017362
017364
017366

010446
010346
010246
010146
010046
000115

REGSAV:

MOV
MOV
MOV
MOV
MOV
JP

017370
017372
017374
017376
017400
017402
017404

030026
012600
012601
012602
012603
012604
000205

REGRES:

8I1v

1 THROW AWAY OLD RS VALUWE

MOV
MOV
MOV
MOV
MOV

RTS

;ROUTINE TO SET LSI-11 FLAG (SOF TWARE)
017406
017414

112767

000002

177777

012767

LSTST:

MOV

RTI

®-1,LSIFLG

aSETUkaI-ll SOF TWARE FLAG
sRET

;ROUTINE TO SET SOF TWARE SWITCH REGISTER FLAG
017416
017424
017432

012767
012767
000002

032502
177777

013054
013052

SRTST:

MOV
MOV
RT1

#SSWR, SR
#-1,.SWRFLG

*NO HARDWARE SWR, JSE
s+
MEMORY LOCATION
AND SET FLAG
s+

sROUTINE TO PRINT ILLEGAL OEVICE ADORESS
017434
017440
017440
017444
017450

012706

002000

012700
004767
000167

022767
001106
162442

DVATSTY: MOV
PNTM
MOV
JSR
JP

#ISP,SP
INVLAD
#INVLAD,RO
PC, TYPOUT
PROMT

iFIX THE STACK
sPRINT NON-EXST ADDR MSG
1PRINT MESSAGE
1POINTED TO B8Y INVLAD
1GO GET CORRECT ADORESS

sROUTINE TO REPLACE HALT WITH CALL TO SW MONITOR
tON NON SWR PROCESSORS (CALLEO BY MACRO "MLT*")

“9

17454
017460
017462
017466
017470
017472

005767
001403
004767
000207

013024

SWHLT:

000516

1¢:

000207

1ST
8EQ
JSR

RTS
HALT
RTS

SWRFLG
14

s ANY HARDWARE SWR?
+IF YES, GO HALT

s CONTINUE
tREAL HALT
+ CONTINUE

PC, SWOMP
PC

+IF NO, DUMP SWITCHES

;ROUTINE USED FOR LOOPING ON ERROR ROUTINE (CALLED BY MACRO “SCOPE")
017474
017500
017504
017506

004767
005777
100402

000452
012774

SCPRTN:

JSR
TST
8MI
HT

PC,MONIT

8SR
SBAK

1CHECK FOR G,

1IS SW 15 SET?
1YES, DON'T HALT

1COMMON ERROR HALT

Ifl
CZCMuCo CMR(V) 11 HOST EXERCISE MACRO VO4.00

SEQ 0073

02:24:05 PAGE 29-1

UTILITY ROUTINES
56
57
58
59
60
61

62
63
64

017506
017512
017514
017522
017524
017526
017530
017534
017536
017544

65
66
67
68
69 017546
70 017552
71 017556
72 017562
73 017566
74 017572
75 017576
76 017602
77 017610
18
79

80
81
82
83
64
85
86
87
88
89
90
91
92
93

177742

020000

012756

012641

JSR
MOV
8I7

PC,SWHLT
(RS)+,RO
#813,8SR

MOV

(SP)+,R5

8ecQ

JHP

INC
BNE
MOve
SCORTN: RTS
SCONT:

012702

177777

SBAK:

SCONT

(RO)

ERRCNT
SCORTN
é-1,0FLOF
RS

tGET DIRECTION FOR SCOPE LOOP
$1SW 13 SET?
sNO, DON'T LOOP
1 YES, RESTORE RS
1 AND LOOP
tUPDATE ERR CNT IF "FALL THRU"
tWATCH FOR ERRCNT OFLO

1SET OVERFLO FLAG.
:AND RETURN

;ROUTINE TO GENERATE CSC DEVICE ADDRESSES FROM “DEVADR"
DEVGEN:

016700
010067
062700
010067
062700
010067
016700
012760
000207

000002

MOV
MOV
ADD
MOV
ADD
MOV
MOV
MOV

RTS

DEVADR,RC
RO,CSR
#2,R0
RO, SPAR
#2,R0
RO, SPOR
VECTOR,RO
#340,2(R0O)
PC

1GET DEVICE CSR ADDRESS
1GENERATE CSR

1GENERATE SPAR
;GENERATE SPOR
s RETURN

;ROUTINE TO PRINT DEFAULT VALUES FOR PROMPTS AT FRONT END.
ENTER WITH DEFAULT VALUE IN LOC. KBBUF
:
017612
017616
017622
017626
017632
017636
017642
017646
017652

017654
95 017660
96 017664
017664
017670
97 017674
98 017702
9 017706
100 017712
101 017716
102 017722

103
104
105

004767
012500
032777
001402
012605
000110
005267
001003
112767
000205

106
107
108 017726
109 017732

012700
004767
016700
004767
012700
004767
012700
004767

000207

PROFLT:

000050
002300
001702
001754
000051
002260

002250

MOV

JSR
MOV
JSR
MOV
JSR
MOV
JSR

RTS

®' (,RO

PC,TTO
KBBUF ,RO
PC,OCTPNT
¢'),RO
PC,TTO
¢ ,RO
PC,TTO

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

A SPACE

;ROUTINE TO CATCH ERROR TRAPS TO LOC 4
HOER:

011667
012706
012700
767

162767
016700
004767
004767
012706
000167

MOV

#ISP,SP
TRP4
#TRP4 RO
PC,TYPOUT

MOV
JSR
JSR
MOV
JHP

TEMP,RO
PC,OCTPNT
PC.NULLS
9ISP,SP
RESTRT

SuB

012610

162572

(SP),TEMP

MOV
PNTM
MOV
JSR

02, TEMP

:SAVE STACK FOR ADDR OF TRAP
sRENEW STACK BEFORE USING

1PRINT “TRAPPED TO 4 FROM LOC
1 PRINT MESSAGE
1POINTED TO BY TRP4
:PRINT

SOURCE

TRAP

;REFRESH STACK POINTER

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

000140
000026

000132

ERR:

MOV
suB

(SP),ERRAD
#26 ,ERRAD

1GET ADDRESS OF ERROR CALL
1CORREC( IT

J6
czcmuCo CMR(V) 11 HOST EXERCISE MACRO V04,00

SEQ 0074

02:24:05 PAGE 29 2

UTILITY ROUTINES
110 017740
111 017742
017742
017746
112 017752
113 017756
114 017762

017762
017766

115 017772
116 017776
117 020002
118 020004
119 020010
120
121
122 020012
123 020016
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

ERR1:

010046

012700
004767
016700
004767
012700
004767
016700
004767
012600
004767
000207

020102
000116
001624

020115
000074
001604
000546

000026

012700
004767
016700
004767

020127
000516
000032
001536

012700
004767
016700
004767
000207

020143
000476
000014

RO, -(SP)

MOV
JSR
MOV
JSR
PNTM
MOV
JSR
MOV
JSR
MOV
JSR

#ERRM,
RO
PC, TYPOUT
ERRINUM,
RO
PC,OCTPNT
WOAT
#DAT ,RO
PC,TYPOUT
ERRAD,RO
C.OCTPNT
(SP)+,RO
PC., TYPOUT

MOV
SUB
JSR
PNTM
MOV
JSR
MOV
JSR

(SP),ERRAD
926 ,ERRAD
PC.ERR1
WwosDe
, RO
®DSDB
PC,TYPOUT
GOO0O,RO
PC,OCTPNT
WOMWAS
MIDUWAS
RO
PC,TYPOUT
BAD,RO
PC,OCTPNT

PNTM

RTS

DERR:

000054

011667
162767
004767

MOV

1777110

PNTM
MOV
JSR
MOV

JSR

001516

RTS

1STACK ERROR MSG ADOR

tPRINT "#eERROR
1PRINT MESSAGE

ERRM

1POINTED TO BY ERRM

$PRINT ERROR NO.
tPRINT " AT LOC.

1PRINT MESSAGE
{POINTED TO BY WDAT

sPRINT ADORESS OF ERROR
1GET ADOR OF ERROR MSG

tPRINT ERR MSG

;RETURN

1GET ADDRESS OF ERROR CALL
1 CORRECT IT
tPRINT REG. ERROR MSG
sPRINT “SHOWD BE “
$PRINT MESSAGE
;POINTED TO 8Y WOSD8B

:PRINT GOOD DATA
{PRINT

ERRAD:
ERRNUM:
GOOD :
BAD:

020074

020076
020100

.WORD
.WORD
.WORD
.MORD

1432
144 020102
020105
020110
020113
145 020115
020120
020123
020126
146 020127
020132

:RETURN

O
O
O
O

020135
020140

147 020143
020146
020151

(ONLY SOME OF IT)

046

105
117

052
122
122

ERRM:

LASCII

/EE#sERROR 8/

101
114

124
117

WOAT:

.ASCII

/ AT LOC.

110
114
102
100
127

WoSDB:

.ASCII

/ESHOWLD BE 8/

WOWAS:

.ASCII

123
125
040
040

i23

040

WAS &/

WAS

”

;PRINT BAD DATA

s ASSOCIATED ASCII

141
142

“,

sPRINT MESSAGE
1POINTED TO B8Y WOWAS

sRELATED STORAGE:
020072

(P)
"

<6
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO VO4.00

UTILITY ROUTINES
148

02:24:05 PAGE 29 3
.EVEN

SEQ 0075

L&
C2CMJCO CMR(V) 11 HOST EXERCISE MACKRO vO4.00

SEQ 0076

02:24:05 PAGE 30

“SWITCH" MONITOR ROUTINE
VX IENY. RV, B NV 1, VX0

.SBTTL

tENTER AT MONIT FROM EVERY SUB-TEST TO SEE IF CNTRL-G OR CNTRL-C WAS TYPED
1ENTER AT SWOMP FROM ERROR MALTS IF SW 15 = O
xALSO MONITORS THE FOLLOWING CONTROL FUNCTIONS:
P CONTINUE

005000
105777
100402
000167
017700
042700

020027
001056

27
26

(PROCEED)

CNTRL-0 GO TO CMR-11 DEBUG ROUTINE
CNTRL-A DUMP PORT CONFIG TABLES
020152

23
24

"SWITCH" MONITOR ROUTINE

MONIT:

012350
000264

MONIC:
MONCH;

012334
177600
000007

012700
004767
017700
004767

023075

012700
004767
017767
012767
004767
005067
016777

023071
000322
012240
020204
000344
012172
001244

012700
004767
105777
100375
017700
042700
020027
001731
020027
001363
012700
004767
020027
001004
012706
000167
020027
001002
000167

023151

020027
001004
012706
000167
020027

000003

SWOMP:

000342
012260
001362

000260
012226

001266
012202
012212

BMI

MONIC

TST8

JMP
MOV
BIC
cHp
BNE
PNTM
MOV
JSR
MOV
JSR
PNTM
MOV
JSR
MOV
MOV
JSR
CLR

CCRTN:
CONTML :

012216
177600
000007

EX1:

002000
162316
000017

EX2:

176306
EX3:

EX4;

s CHECK KEYBOARD FLAG

1303
8X80,R0O
#177600,R0
RO, #07
EX}
SWRMSG
#SWRMSG, RO
PC, TYPOUT
8SR,RO
PC.OCTPNT
TWOSP
#TWOSP RO
PC, TYPOUT
8SR,KBSUF
OSWOMP , PCONT
PC, INPKB

1OTHERWISE, EXIT

PCONT

KBBUF , @SR
TYPCTP
OTYPCTP,RO

1578

8BS

JSR

PC, TYPOUT

8PL
MOV

CONTU1
8XB80,R0O

RO, #07

BNE
MOV
JSR

CONTW1
#15,R0
PC,TT0

BEQ
cHP

000015
001562
000024

KBS

MOV
PNTM
MOV

8IC

000120

002000
162266

CLR

BNE
MOV

JHP
cHP
BNE

1IF SET, CHECK WHAT CHAR.

1 TRIM OFF PARITY BIT
1WAS IT *G?
i1NO, EXIT
sPRINT *SWR =
tPRINT MESSAGE
tPOINTED TO BY SWRMSG
;GET CONTEWNTS OF SR
;PRINT IT
1SPACE AND PROMPT (:)
;PRINT MESSAGE
;1POINTED TO B8Y TWOSP
;1LOAD OLD SWITCHES
sLOAD RETURN ADDRESS
1GET KBD INPUT
;LOAD NEW SWITCHES
sPRINT P TO CONTINUE"
;PRINT MESS5ACGE

;POINTED TO BY TYPCTP

0177600 RO

;sTRIM OFF PARITY BIT

sm
RO.#'P

;YES, GET SWR AGAIN
1 P?

$ 1G?

tNO, KEEP LOOV.ING
tRETURN LINE

RO, #24

1WAS A tT TYPED?

BCONT

1BACK TO DISPATCHER

EX2
o1ISP,SP
RO,#17
EX3

sNO, EXIT
1YES, RENEW STACK

+WAS CNTRL-0 TYPED?
s NO

JMP

ODTPR

JAND GO TO DEBUG ROUTINE

cHp
BNE

RO, 03
Ex4
#1ISP,SP

sWAS CNTRL-C TYPED?
sNO,
1 YES, REFRESH STACK

RO, 06

tWAS IT

MOV
JHP
cHp

BCONT

1AND RESTART
tF?

CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
"SWITCH" MONITOR ROUTINE
020412
020414
020420
020422
020426
020430
58 020434
59 020440
60 020444
Se
S3
54
55
56
S?

61 020446
62 020452
63
64
65
66
67

68
69
70
71
72
73
74

76
77
78
79
80

81
82

001012
105767
001007
105767
001004
005067
004767
020027
001002

004767
000207

BNE
TST8

011756
011762
012016
000432
000001

001104

€XS:
EX6:

SEQ 0077

02:24:05 PAGE 30 1

cHp
8HE
JSR
RTS

EXS

DBFLG
EXS
SAFE
EXS

PCONT
PC.KBRET
RO, 81
EX6
PC . PNTCNF
PC

iNO, EXIT

+IS DEBUG FLAG SET?

s YES, JUST RETURN
s ALREADY IN FILL RTN?
1YES, JUST RETURN
;CLEAR PROMPT CARRIER
s SNEAK INTO FILL COUNT ROUTINE
1WAS tA TYPED?

:NOPE, BYE!

s YES,

PRINT PORT

CONFIG

;ROUTINE TO PRINT ELAPSED TIME SINCE START-UP OR CNTRL-C
PRNTIM:

012700
004767
116700
004767
012700
004767

116700

004767
012700
004767
116700
004767
012700
004767
116700
004767
000297

024651
00007¢
011711
001216
000072
001416
011674
001176
000072
001376
011661

001156

000072
001356
011644

001136

PNTM
MOV
JSR
MOVB
JSR
MOV
JSR
MOve
JSR
MOV

JSK
MOve
JSR
MOV
JSR
MOve
JSR

RTS

ELTIM
S®ELTIM,RO

PC, TYPOUT
HOURS ,RO

PC,DECPNT
®:,RO
PC,TT0
MINS,.RO
PC . DECPNY
& : RO
PC.TTO

SECS,RO

PC,.DECPNT
®:,RO
PC,TTO
TICKS,.RO
PC,.DECPNT

sPRINT

"EL.

sPRINT

».»

TIM.

;PRINT MESSAGE
+POINTED 7O BY ELTIM
1GET HOURS
1PRINT IN DECIMAL
;GET MINUTES
;PRINT IN DECIMAL

‘MT*R

" : "

1GET SECS

;PRINT IN DECIMAL

s ANOTHER

":"

sGET TICKS (1/60 SEC)
;PRINT IN DECIMAL
;RETURN

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

MESSAGE PRINT ROUTINE

02:24:05 PAGE

NV LV

.SBTTL

SEQ 0078

MESSAGE PRINT ROUTINE

RN NV,

1MESSAGE TYPOUT ROUTINE (CALLED BY MACRO PNTM A)
{MESSAGES ARE IN THE FORMAT:
/EMESSAGEESR/
.ASCII
MESG:
:

;U'ERE: € IS TRANSLATED INTO CR. AND LF.

V-2

1tUSES THE SUBROUTINE “TTO"
sWHICH PRINTS CR, € LF. UPON SEEING A CR.

s AND

8 IS MESSAGE TERMINATOR

COOE.

;ENTER WITH ADDRESS OF MESSAGE IN RO
021556
020564
020570
020572
020576

020610
020612
020614
020616

010046
117600
022700
001411
022700
001002
01270¢C
004767
005216
000762
005726
000207

TYPOUT:
TPOFCH:

000100

000015
001312

TPCONT :

TPOUTX:

MOV
MOVEe
cHP
8EQ
cHP
BNE
MOV

RO, -(SP)
8(SP),RO
#100,R0
TPOUTX
#46,R0
TPCONT
#15,R0

1IS IT 8 (TERMINATOR)?
1 YES-EXIT
+IS IT CRLF FLAG?
iNO-TYPE CHARACTER
1 YES, CHANGE DATA TO CR

INC
B8R

(SP)
TPOFCH

tMOVE POINTER TO NEXT BYTE
iFETCH NEXT CHARACTER

JSR

;?;

PC,TTO
é(S:P)o

s STACK ADODRESS OF MESSAGE

iFETCH ASCII BYTE

s TYPE IV

1POP STACK TO REACH RETURN VECTOR

B7
C2CMUCO CMR(V) 11 TMMOST EXERCISE MACRQO vO4.00

XEYBOARD INPUT ROUT INE

.SBTTL

AV PR
ri Sl ot T
i
b 3-E A 1 | B S ¥ P
it -$-1 Bf
3 31 $of 33
3 S

02:24:05 PAGE

SEQ 0079

KEYBOARD INPUT ROUTINE

1KEYBOARD INPUT ROUTINE CALLED BY JSR
1ENTERED WITH OLD CONTENTS IN XBBUF
1IF JUST CR TYPED,

PC. INPKB

EXIT WITH SAME CONTENTS IN KBBUF

(IF NEW NMUMBER TYPED, EXIT WITH NEW CONTENTS IN XBBUF
005067
010146
016746
005067
004767

004767

020027
001002
000167
010001
042701
020127
001441

020027

001024
012700
004767

006067
000241
006067
000241
006067
003767
001002
003067
000167
012700
004767
012700
004767
000167
012767
042700
006367
006367
006367
030067
000167

003767
001004
012667
012601
000207
003726
012601
000207

INPKB:

000702

000676
000672
000216
001254
000012

GETCHMR:

CLR
MOV
MoV
CLR
JUSR
JSR
ce
BNE

L
NOKEF
XBOUF
, -(SP)
KOBUF

PC .KBRD
PC.TT0

sCLEAR NO NUMBER FLAG
1STACK OLD R1
"~
1STACK “OLD COMTENTS
1CLEAR INPUT BWFFER
iFE1CH A CHARACTER IN RO
1ECHO0 IT

24
057 ,RO

tMAS IT A CR OR LF?
s1NO
1YES, RETURN WITH PROPER KXBB\F
1SET UP TO OECK FOR A NMFDBER
tMASK ALL BUT ¢ CODE
1IS IT A @ FROM 0-77
1 YES, PACK IT
sMWAS IT A DELETE/RUBOUT?
sNO, MUST BE GARBAGE
s YES, BUT PRINT ~\*

000610

KBBUF

;tCLEAR THE C-BI7
$sDELETE LAST OIGIT

000602

KBBUF

THAT WAS STUFFED

000574
000570

XBBUF
KBBUF
114
NOKEFL

INTO xBBUF

000154

14:

MOV

RO, 012
14
NRTRN

RO,R1

000060

0177407,
R}
R1, 060

000177

RO, 0177

177407

000057
001210

000560
177664
000207
001140
000077
001130
177640
177777
177770
000314
00C310
000304
000500
177602
000466

PC.TTO

11¢:

24:

000522

3s:

MoV

000462

#207,R0

#77,R0

s THEN =2~

GETOR

PC,.TT0

PC.TT0
GETOHR
®177770,R0

NEK :

KBBUF

8IS

RO, KBBUF
GETCHR

TST

NOXEFL

MOV

RTS

187

MOV

RTS

1YES, BACK TO NO NUMBER INPUT
1GO FOR MORE INPUT
"~ FOR ERRONEOUS INPUT
1ECHO “BELL

KBBUF
KBBUF

NRTRN:

3"‘3“ WE ODELETED EVERYTHING?

NEK

(SP). ,XBBWF

(SP).
(SP). ,R1

tAND GET ANOTHER CHARACTER
1GOT A DIGIT.

SET FLAG

1GET THE DIGIT PART OF THE CHARACTER
1SHIFT KBOUF BUFFER
TO ACCEPT THE
+
NEMW DIGIT.
i
1ADD THE NEW OIGIT
1GO FOR MORE INPUT
1WAS THERE NEW DATA?
1 YES, GO BACK WITH IT
1NO, RETRIEVE QLD DATA
tRESTORE R1
1AND RETURN
1OUMP OLD DATA
tRESTORE R}
1AND RETURN

CZCMJCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

XEYBOARD INPUT ROUTINE

02:24:05 PAGE

SEQ 0080

B¢
@0
e

105067
105067
105067
105067

042700
020027
001004
012706
000167
105767
001062
020027
001057

105767

001401
000562

021274

KBRO:

011434
011304
011276
011304
011262
177600
000003
002000

1¢:

000006
24:

011234

012700
004767
112767
016700
004767

021536
177366
177777
000330

012700
004767
016767
004767
026727
101406

023071
177340
000310
177370
000274

012700
004767
000167
016767
003767
001404
062706
016716

022624

011212

000400

177306
177704
000230
011164

000006
0111352

000304

000230

3¢:
30¢:

CLOSE LOC. AND OPEN NEXT

OPEN LOCATION
SET START FUNC OR MAINT
RETURN AND CONTIMKE

N/O‘

nGn
npu

1578

KBRET:

161540
011236

PRINT PORT CONFIGURATION

<LF>

017700

011444

CHANGE /SHOM FILL COUNT

CNTRL -0

283 283533292343 1 3353782389893383

105777
100375

RESTART PROG.

CNTRL -C
CNTRL -F
CNTRL -A

STATUS IF AVAILABLE.
ENTER ~DE-BUG” ROUTINE
UNLESS ALREADY THERE
OR UMLESS IN INITIAL DIALOGUE.
If IN “DE -BUG" ROUTINE:
<CR>»
CLOSE LNCATION

1KEYBOARD READ ROUTINE
1CHECKS FOR THME FOLLOWING SPECIAL CHARACTERS:

KBRO
8x80,RO
INCF
GOFLG
SLFL
CONFLG
#177600,R0
RO, #3
14
o1ISP,SP

tMAIT FOR INPUT FROM CONSOLE

1PUT THE CHAR INTO RO
1CLEAR FLAGS

1 TRIM PARITY

tWAS *C TYPED?
1YES, RESTART PROGRAM

BCONT
0BFLG

;OON'T ALLOW *F IN “DEBUG*

Ro.“

1HAS CNTRL-F TYPED?

SAFE

sALREADY IN FILL CONT RTN?
1NO, SAFE TO ENTER
1YES, IGNORE CHARACTER

44
44

204

KRTN
FILMSG
OF ILMSG
RO

PC. TYPOUT
FILL,RO

PC,OCTPNY

TWOSP
OTWOSP ,RO

PC. TYPOUT
FILL .KBBUF
INPXB

AGAIN
OAGAIN,RO
PC, TYPOUT
204
KBBUF ,FILL

PCONT

34¢
#6,SP

PCONT, (SP)

s NO

sPRINT *FILL COUNT « ~
1PRINT MESSAGE

t+POINTED TO BY FILMSG
1SET FLAG

1SHOM FILL COUNT
1SPACE AND PROMPT

1PRINT MESSAGE

1POINTED TO BY TWOSP
1GET NEW COUNT
1 TOO BIG?

+NO GOOD. GET IT AGAIN
1PRINT MESSAGE

tPOINTED TO BY AGAIN

1LOAD NEW COUNT
tRETURNING 7O A PROMPT?
1NO, CLEAN RETURN
1YES, BREAK UP MITH INPKB
1MODIFY RETURN ADOR

10.M 001

D/
CZCMUCO CMR(V)-11 HOST EXERCISE MACRO V04 .00

02:24:05 PAGE

SEQ 0081

KEYBOARD INPUT ROUTINE

021346

021332
66 021354
67 021360
68 021362
69 021370
70 021372
1 021376
2 021400
73 021404
74 021410
s 021414
76
14
78
79

021416
021422
021430
021434

80 021440
021442
021450
021454
021460
021464
021466
021474
021500
021504
021510
021312
0213520
021524

81
82
a3
84
85
86
87
88
89
90
91
9%
93
94

95
9%
97
9%
9
100
101
102

103

001021

020027
001064
005767
001404

026727
103407
105767
0010352

062706
000167
020027
001007
012700
112767
000167
020027
001007
112767
004767
012716
020027
001007
112767
004767
012716
020027
001005
112767
012716
000207

414

011070

000230
011044
404
;

011032

011072

Ss:

000006

175266

000012

000446
021034
000107

177777

000422

64:

010752
7¢:

010742
8s:

010704

021034
000120

177777

021034

s tA

94:

010654
KRTN:

1ST8

PC.PNTCN
DBFLG

1YES,

304
OBFLG

1RE -PRINT ANY PROMPTS

NOKEFL:
KBBUF:

106
114
075

FILL:
FLONT:
FILMSG:

.WORD
.WORD

.WORD
.WORD
.ASCII

117
124

040

.EVEN

GO PRINT

TABLES

1IN DEBUG??
1IF YES, NORMAL RETURN
1IS "DEBUG” FLAG SET?

sYES, CHECX FOR OTHER FLAGS
-0 TYPED?
1CNTRL
sNO, EXIT

sTEST IF ODT IS ALLOMED
sYES, IF PCONT = 0 OR
IF GREATER THAN PRIORITY
s

64
SAFE
KRTN

PROMPT .

sALSO, NOT WMILE IN FILL
COUNT ROUTINE.
1
;1BREAK ALL TIES WITH "INPKB"
sA-0.X. GO TO DEBUG-AID
;1CHECK FOR L .F.
sNOT A LINE FEED.
tCHANGE L.F. TO C.R.
1IT MAS, SET INCR FLAG
t1AND LEAVE
tWAS IT A SLASH?
sNO,
sYES, SET SLASH FLAG
1ECHO THE SLASH
;AND EXIT.

6, 5P
ODTPR
RO,012

7
#15,R0

KRTN

tWAS

sNO.

1+ YES,

~“G* TYPED?

SET

"GO” FLAG

tECHO THE "G"

tWAS "P* TYPED?
sNO, EXIT
;YES,

:
sASSOCIATED VARIABLE STORAGE
021526
0213530
021532
021534
021336
021341
021344
021547
021552

TYPED?

1NO, SKIP
1IN FILL COUNT ROUTINE?
s IF YES, JUSTY EXIT.

Ss
A
T
, #PRMT
PCON

002376

011012

177777

RO, 01
404
SAFE
KRTN

64
RO,#17
KRTN
PCONT

000017

000015
177717
000070
000057

iCLEAR SAFETY FLAG

KRTN

177722

011064

SAFE

KRTN

v
(g]

021344

000001

CLR8

B8R

333934339327 332383187

021340

344

62
63
64
65

011104

61 021334

105067

000507
020027
001012
105767
001101
004767
105767
001074
000167
105767

p-]

Se 021300
53 021304
54 021306
55 021312
56 021314
S7 021320
S8 021322
59 021326
60 021332

O
O

10
O
/EFILL

COUNT

= 8/

SET

"CONTINUE" FLAG

s0.4 001

E7
C2CMUCO CMR(V) 11 MOST EXERCISE MACRO vO4.00
U-X- NN JV. R XV LVE

KEYBOARD INPUT ROUTINE

02:24:05 PAGE 34

OR PRINTS
STATUS,
YTHE
PRINTS
THEN
1STATUS
se”
ABLE
AVAIL
1"ee STATUS NOT

tROUTINE WHICH CHECKS AVAILABILITY OF THE PORT

021556
021562
021564
021570
021574
021574
021600
021604

105767

001404
004767

010613

PNTCNF:

174070

000167

000010

012700
004767
000207

023105
176752

PNTCO:

PNTCX:

TSTE
BEQ
JSR
JP

1 IF NOT, SAY SO.

PC,REPORT

PNTM

NOCNF

RTS

MOV
JSR

1CHECK IF CONFIG IS AVAILABLE

CNFGFL
PNTCO
PNTCX

ONOCNF , RO

PC, TYPOUT

CONF IGURATION

1IF SO, OUMP 1T,
1AD LEAVE
IPRINT

“se STATUS NOT AVAILABLE

1 PRINT MESSAGE
1POINTED TO BY NOCNF
1RETURN

e«”

C2CMUCO CMR(V) 11 MOST EXERCISE MACRO vO4. 00
BINARY TO ASCII CONVERSION ROUTINES

SEQ 0083

02:24:05 PAGE 35

ST NV B NV 1Y

.SBTTL BINARY TO ASCII CONVERSION ROUTINES

V-X.

tCONVERTS BINARY TO BINARY, BINARY T0
1OCTAL, AND BINARY TO DECIMAL; EITHER
tUNJUSTIFIED WITH LEADING ZERO'S SUPPRESSED
1OR RIGHT JUSTIFIED WITH LEADING 0'S
1 SUPPRESSED
tREGILAR BIN-OCTAL UNJUSTIFIED:
021606
021606
021612
021616
021622
021626
021626
021632

004567
005067
012701
004767

004567
000207

OCTPNT: REGSAV
JSR
CLR

175542

000370
000010
000166

MOV
JSR

REGRES

JSR

175536

RTS

RS,REGSAV
RUFLG

#10,R1
PC . NUMPNT

RS5,REGRES
PC

1CLEAR RIGHT JUSTIFY FLAG
$1SET RADIX FOR OCTAL
tCONVERT & PRINT
s RETURN

:BIN-OCTAL JUSTIFIED:
021634

021634

021640
021646
021652
021656
021656

021662

004567
012767
012701
004767

175514
177777
000010
000136

004567
000207

175506

OCTJUSP: REGSAV
000340

JSR
MOV
MOV
JSR

RS ,REGSAV
0-1,RHFLG
#10,R1
PC . NUMPNT

JSR

R5,REGRES

REGRES

RTS

$SET RIGHY JUSTIFY FLAG

$1SET RADIX FOR OCTAL

1 CONVERT £ PRINT

1BIN-BIN
021664
021664
021670
021674
021700
021704
021704
021710

004567
012701
004767

004567
000207

175464
000312
000110

175460

BINPNT: REGSAV

JSR

RS ,REGSAV

MOV
JSR

#2,R1
PC.NUMPNT

CLR

REGRES

JSR

RTS

RJFLG

sCLEAR RIGHT JUSTIFY FLAG
:SET RADIX FOR BINARY
1 CONVERT & PRINT

RS ,REGRES

sBIN-DECIMAL UNJUSTIFIED:
021712
021712
021716
021722
021726
021732
021732
021736

004567

175436

012701
004767

000012

004567
000207

175432

000062

DECPNT: REGSAV

JSR
CLR
MOV
JSR

REGRES

JSR

RTS

RS ,REGSAV
RFLG
#12,R1
PC . NUMPNT

RS ,REGRES

1BIN-DECIMAL JUSTIFIED (6 PLACES)
021740
021740

175410

DECUSP: REGSAV
JSR

RS ,REGSAV

1CLEAR RIGMT JUSTIFY FLAG
$1SET RADIX FOR DECIMAL
1CONVERT & PRINT

C2CMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

BINARY TO ASCII CONVERSION ROUTINES
49 021744

50 021752
S1 021756
Se 021762
021762
53 021766
54
5SS
56 021770
57 021776
S8 022000
59 022004
60 022010
61 022012

012767
012701
004767

177777

000012
000032

004567
000207

175402

016767
005000
004767
005367
003373
000207

177536
000116
177524

000234

MOV
MOV
JSR

#-1,RUFLG
@12,R]1
PC.NUMPNT

JSR

RS,REGRES
PC

MOV
CLR
JSR
0eC
867

FILL,FLCNT
RO
PC,TTO
FLCNT
1
PC

REGRES

RTS

177536

NWLLS:
1¢:

SEQ 0084

02:24:05 PAGE 35-1

NULOUT: RTS

1SET RIGHT JUSTIFY FLAG
1SET RADIX FOR DECIMAL
1CONVERT £ PRINT

sGET NO. OF FILL CHARS

;0. 001

100 @ AS ORDERED

sD.W 001
;D.W 001
;D.W 001

H /
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO VO4 .00

OO NN

BINARY TO ASCII CONVERSION ROUTINES

SEQ 0085

02:24:05 PAGE 36

tUNSIGNED CONVERT-PRINT ROUTINE (BIN - ASCII)
022014

022020
022022
022024
022030
022032
022036

010167
005002
005001

020067
103404
166700

005201
000771
010046
010100
001403
005202
004767

012703
160203
003413
005767

001410
012700
004767

005303
001372
005067
012600
052700

000170
000160

NUMPNT: MOV
CLR
OIVSET: CLR
CMP
DIVIiD:

R1,RADIX
R2
R}
RO,RADIX

BR
MOV

OIVID
RO, -(SP)

8LO
Su8
INC

000152

GETDG:

PNTEXT:

000006

JUST:

000040
000016

PNT:

R2
PC,DIVSET

1ELSE COUNT DIGITS FOR R, JUSTIFY

®6,R3

1GET DIGIT COUNT CONSTANT
sHAVE WE PRODUCED 6 DIGITS?
1 YES, JUSTIFICATION UNNECESSARY
11S THE JUSTIFY FLAG SET?
tNO-DON'T JUSTIFY
1 YES, PRINT LEADING SPACES

MOV

PNTEXT

SuB
BLE

R2,R3
PNT

8tEQ

PNT

MOV

022134

022140
022142
022144
022150
022154
022162
022166
022172
022176
022200
022204

010077
105777
100375
022700
001401
000207
012700
004767
016767
012700
004767
005367
003373
012700
000207

1PRINT IF HIGHEST ORDER STACKED

RJUFLG

#40,R0

JSR

PC,TTO

CLR
MOV
8IS

RJUFLG
(SP)+,RO
#'0,RO

R3
JUST

tCLEAR JUSTIFY FLG WHEN DONE
tGET REST OF DIGITS OFF STACK

s TYPE OUT ROUTINE
1PRINTS A CHARACTER WHICH IS IN RO
;IF THE CHARACTER IS “CR.”,

022122
022126
022132

1 STACK REMAINDER

INC
JSK

DEC
BNE

000072

GETOG
RADIX,RO
R1

R1,RO

TST

000114

1CLEAR WORK REGISTER
1 IS NUMBER BELOM RADIX?
1IF _YES, STORE DIGIT
1ELSE, KEEP SUBTRACTING
;AND KEEP COUNT

MOV

8EQ

177744

t SAVE RADIX
1CLEAR TAB COUNTER

T10:

010406
010404

TTOLP:

000015
000012
177746

177352
177730
177336

MOV

RO,.8TT8

8PL
cHP

TTOLP
#15,R0

RTS
MOV

PC
#12,RO

TSTB

8EQ

TTOLF:

177352

1%:

JSR
MOV
MOV
JSR
DEC
8GT

MOV

000012

RTS

ALSO PRINT A

8T7S

TTOLF

PC,TT0
FILL,FLCNT
#0,R0
PC,TT0

RFLG:
RADIX:

.WORD
.WORD

“LF.",

;PRINT CONTENTS OF RO
sWAIT

TILL PRINT DONE

:WAS IT A CR?
tYES, ECHO A LF AS WELL
tNO, JUST RETURN

;ECHO A LINE FEED
tPRINT NULLS FOR FILL

FLCNT
14

#12,R0

;ASSOCIATED VARIABLE STORAGE:
022206
022210

:MAKE THEM ASCII

O
O

s THEN RESTORE RO

1AND LEAVE

[/
C2CMJCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII

.SBTTL CONSTANTS,

(V. R XV 1,
VX

SEQ 0086

02:24:05 PAGE 37

VARIABLES & ACSII

tASCII MESSAGES:
LASCII

/ECZCMUCO CMR(V)-11 HOST EXERCISER

040
040
052
040

.ASCII

/&€

8 022316

110
040

LASCII

/ETHIS PROGRAM IS CAPABLE OF

022327
022332
022335
022340
022343
022346
022351
022354
022357
022362
022365
022370
022373
9 022374
022377

101
111
103
101
105
106
114
122
107
110
123
124

.ASCII

/E€0F ANY FIELD EQUIPMENT ATTACHED

132

6 022212
022215
022220
022223
022226
022231
022234
022237

112

111

122
055
124

7 022267

022272
022275
022300
022303
022306
022311
022314

sss CAUTTON sse/

125
117
052

022321
022324

022421
022425
022427
022432
022435
022440

30-0CT-84/

122
051
061
117
040
105

022242
022245
022250
022253
022256
022261
022264

022402
022405
022410
022413
022416

TSTHOR:

ALTERING THE STATE/

117

102

124

111
040

105
124
105

106
116
106
114

131
111
121
120
116
101
101

125
115
124
124
103

124

117

101

116

111

105

040

124
110

040
040

131

O ANY OF THE/

J/
CZCMJUCO CMR(V) 11 HOST EXERCISE MACRO VO4.00

CONSTANTS, VARIABLES & ACSII
022443

022446

022451
10 022452
022455
022460
022463
022466
022471
022474
022477
11 022502
022505
022510
022513
022516
022521
022524
022527
022532
022535
022540
022543
022546
022551
022554
022557
022562
022565
022570
022573
022576
12 022577
022602
022605
022610
022613
022616
022621
13 022624
022627
022632

022635
022640
022643
022646
022651
022654
14 022657
022662
022665
022670
022673
022676
022701
15 022703
022706

040
040

117
124

106
110

046

122
117

105
124

105

115
105
117
124
123
115

061
04¢€
122

105
040
124
103
124
116
106
111
104
101
127
105
123
124
114
116
111
041

123

116
110
040
122
061
046

117
105
127
110

101
111
040
040

105
040
122
101
040
040
111
040
055
116
046
111
105
101
040
104
123
040
126
124
117
124

117

02:24:05 PAGE

SEQ 0087

.ASCI1I

/EREMOTES ON THIS CMR-11./

.ASCII

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

FRAD:

.ASCII

/EINTERFACE

AGAIN:

.ASCII

/ETHAT

DVECT:

.ASCII

/EINTERFACE

DVPRIO:

.ASCII

/EINTERFACE PRIORITY

040
040
111
103
055
056
120
103
104
111
040
125
117
111
106
114
110
104
122
11)
123
114

117
114
105
046

116
122

103
101
122
123
100
110
040

ADDRESS:

WON'T DO.

TRY

AGAINES/

116
040
056
122
101
111

100
116
122
103
126
124

VECTOR:

072

116
122

TO 7):

I<7
C2CMUCO CMR(V)-11 HOSY EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
022711
022714
22717
022722
022725
022730

022733

022736
022741
16 022742
022745
022750
022753
022756
022761
022764
17 022767
022772
022775
023000
023003
023006
023011
023014
023017
023022
023025

023030
18 023033
023036
023041
023044
023047
023052
023055
023060
023063
023066
19 023071
023074
023075
023100
023103
21 023105
023110
023113
023116
023121
023124
023127
023132
023135
023140
023143
023146
22 023151
023154

106

105
122
122
131

064

117

051
100
046
122
061
105
125
101
046
046

126
111
101
122
123
056

101
040
111
111
040
040
040
072

103
055
040
055
107
111
046
111

101
104
104
105

103

120

117
124

050
124
067
040

115
061
104

DBAID:

.ASCII

/7ECMR-11 DE-BUG AIDEES/

INVLAD:

.ASCII

/EINVALID ADDRESS...(IT'S NOT

TRPA:

.ASCII

/EETRAPPED

TWOSP:

.ASCII

SWRMSG:

.ASCII

/7ESWR

.ASCII

/7Ese CONFIGURATION NOT AVAILABLE

.ASCII

/ETYPE

TYPCTP:

120

SEQ@ 0088

02:24:05 PAGE 37-2

THERE)&/

TO 4 FROM LOCATION &/

= 8/

“P”

TO CONTINUVES/

s+&8/

L7
CZCMJUCO CMR(V) 11 HOST EXERCISE MACRO VO4.00
CONSTANTS, VARIABLES & ACSII
023157
023162
023165
023170
023173
023176
23 023177
023202
023205
023210
023213
023216
023221
023224
023226
023231
023234
023237
023242
023245
023250
023253
023256
023261
023264
023267
023272
023275
023300
023303
023306
023311
023313
023316
023321
023324
023327
023332
023335
023340
023343
023346
023351
7
2 023353
023356
023361
023364
023367
023372
023375
023400
023403
023406
28 023410
023413
023416
023421

042
040
040
116

120
124
103
124
125

042

046

123
105

105
103
124
124

116
100

114
124
105

040
075

114
040

046

114

040

123
050
110
120
100
123
105
040
105
106
110
106
114
111
072
074
076
122
040

114
111
124
124

040
040
040
040

120
124
117
055
103
124
124

02:24:05 PAGE

SEQ 0089

37-3

117
117
111

105
TSTSEL:

.ASCII

/ESELECT

TEST

(4-HELP)

HELPM:

.ASCII

/7ESELECT ONE OF

.ASCII

/E<CR>

.ASCII

064

105
0S1

105
103
117

THE FOLLOWING:&/

040
040
105

117
117

116
046

103

040
040
075

LOGIC

TEST/

/€

= PORT LOOP-BACK TEST/

.ASCII

/€

3 = CMR-11 EXERCISER/

.ASCII

/€

117
103
105

THIS HELP INFO./

M7
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
023424
023427
023432
023435
023440
023443
023444
023447
023452
023455
023460
023463
023466
023471
023474
023477
023502
023505
023510
023513
023516
023521
023524
023527
023532
31 023535
023540
023543
023546
023551
023554
023557
023562
023565
023570
023573
023576
023601
023603
023606

040
111

110
120
116
056
046

103

122
103
040
123
123
105
046

103

122
107

040
i1

110
040
114
111

040
116
114
040
124
124

040

105
103

040
116
114
040

123
124

110
120

040

123

105
103

117

124

116

040
116
114
040

103

117

.ASCII

CNTRL-C = TEST SELECT/

.ASCII

CNTRL-G = SWITCH OPTION SELECT/

.ASCII

CNTRL-F = CONSOLE FILL COUNT SELECT/

040
124
055
o7s
110
040
122
103
106
056

.ASCII

CNTRL-A =

040
040
040
040

.ASCII

124
055
075
105

040

114
124
040
124
055
075
127
103
117
111

040

114
124
040
124
055
075

117
117

103

116

123
105

101
123

023656
023661
023654
023667

040
040
040
040
116

SHOW PORT CONFIG.

STATUS/

124
125

114

117

131

SEQ 0090

02:24:05 PAGE 37-4

040
114

023611
023614
023617
023622
023625
023630
023633
023636
023641
023644
023647

33 023650
023653

124
123
105
040
106

(ONLY WORKS IF TABLE ALREADY/

]

N7/
C2CMUCO CMR(V)-11 HOST EXERCISE MACRO V04 .00

CONSTANTS, VARIABLES & ACSII
023672
023673

023700
023703
023706
023711
023714
02317
023721
023724
023727
023732
023735
023740
023743
023746
023751
023754
023757
023762
35 023765
023770
023773
023776
024001
024004
024007
024012
024015
024020

024023

024026
024031
024034
024037
024042
024045
024050
024033
024056
024061
024064
024067
024072
024075
024100
024103
57 024106
024111
024114
024117
024122
024123

02413%0
024133
024136
024141

040
122
040
040
102
040
122
104
046
040
040
040
040
111

105

101

117
124
101
131

046

103
122
117

040

102

040

125
116

127
113

111

124
114
101
105
131
040
040

040
040
120
116

104
125
115
111

114
051
040
116
114
040
104

125
122
124

SEQ 0091

02:24:05 PAGE 37-5

117
123
106
101
105
114
101
040
040
040
040
122
124
040
124
101

PRINTED AUTOMATICALLY)./

.ASCII

/7€

.ASCII

LOADING SCR.

.ASCII

FUNCTIONS AND EXAMINING

103

114
056
040

124
055

CNTRL-0

DEBUG ROUTINE

WHICH ALLOWS/

07s

105
107

127

103
101

116

10%

PAD AND STARTING/

THE/

CZCMUCO CMR(V)-11 MOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
024144
024147
024152
024155
024156
024161

024164
02416
024172
024175
024200
39 024202
024205
024210
024213
024216
024221
024224
024227

115
111

040

105

046
040
040
040
040

123

124
046

040
040
042
040

117
105
106
115
127
115
111
122

116

111
116

107

040
040
040
040

124

122
125
123

110

ASCLII

/€

LASCII

RESW TS/

105
114

040
040
042
040
120

040
040
120
075
122

104
122

040

103

SEQ 0092

02:24:05 PAGE 37-6

“P~ = PROCEED FROM SW. MONITOR

105

117
123

040
116

117

040

106
105
040
040
121
122
054
116
122
040

HLPOSR:

LASCII

/EIF MELP IS REQUIRED, ENTER A -4~

117
103
103

LGKTSM:

.ASCII

/&LOGIC TESTES/

111

SRXCOM:

.ASCII

/EDISCONNECT COMMUNICATIONS TO ALL REMOTES..E8/

042
040

107

123

046

100

024376

024401
024404

123
116
103
103
115
111
124
116
124
101

115
105

117
105

040

115

103
111

123
117
114
122
117
123

116
101

137

040
040

114
105
124
056

CH
C2CMUCO CMR(V) 11 MOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
024407

024412
024415
024420
024423
024426
024431
024434
024437
024442
024445

024450
024453

024456
024461
024463
024466
024471
024474

024477

056
046

046

116

055

103
103
115
111

124

116
124
122

117
123

046
046

122
101
101
122

040
046

117

040
122
101
040
122

117
072
046
101

100

.ASCII

/7ESCR.PAD ADODR = 8/

VERSM:

.ASCIY

/7EEHOST FIRMMARE VERSION

100
102
104

BAUDM

.ASCII

/7EEBAUD RATES:8/

117

PORTOM:

.ASCII

/7EPORT

117

PORT1INM:

.ASCII

7EPORT 01 = &/

PORTZ2M:

.ASCII

/EPORT @2

PORTINM:

.ASCII

/7EPORT @3 = g/

ENDPS :

.ASCII

/CEND PASS 08/

ELTIM:

.ASCIY

/ EL.

124
117
125
103

040

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

040
040

123

106
115
122
126
123
116
040

046

125
122
105
100

120
124
060
040
120
124
061

SEQ 0093

7ERE -CONNECT COMMUNICATIONS

105
11?7

046

.ASCII

122
103

111

02:24:0% PAGE

RECON:

TO REMOTES. .68/

105

115

116
101

117

115
105
056

103
120

040

104

075

110
124
111
127
105
105

111
040

101
123

040
040
100
040

§/

TIM, e/

CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

CONSTANTS, VARIABLELS & ACSII
024657
024662

S3 024664
024667
024672

024675
024700
024702
024705
024710
024713

024716
55 024717
024722
024725
024730
024733
024736
024741
024744
024745

024750
024753
024 756

024761
024764
024767
024772
024775
57 024777
025002
025005
025010
025013
025016
025021
025024
025027
025032
025035
025040
025043
025046

111
075
040
122
040
124
040
052
126
106

127

100

046

122
114
120
101
040
123
100
046
120
120
124

115
100

SEQ 0094

37-8

056

105

ERCTM:

.ASCI1

103

056
116
071s

100
052
105
114
052

117
122
117

OVFLM:

.ASCII

/70e0VERFLOWeeB/

117

PLTM:

.ASCII

/7EPORT

PORTN:

.ASCII

/7ETYPE PORT

TYPCR:

.ASCII

7ETYPE

EXCM:

.ASCII

/7ECMR EXERCISE ROUTINEES/

SLOW:

.ASCII

7E(GIVE ME A FEW MINUTES ALONE

040
122
040

120
124
117
055
103
124
124

ERR,

CUNT

=«

052

040

LOOP -BACK

TESTESR/

117

105

124
105
117

@ (<CR>=ALL):

040

103

075
114
040
046
120
074
076
110
040
101
072
046
122
130
103

025051
0235054
59 025056

025061
025064
025067

025072

023075
025100
025103
023106
025111
0235114
025117

02:24:05 PAGE

101

110

124

<CR> WHEN READY:

WITH THE REMOTES)ER/

—
. ——

————

—

ES
C2CMUCO CMR(V)-11 HOST EXERCISE MACRO VvO4.00
CONSTANTS, VARIABLES & ACSII
025122
025125
023130
025133
025136
025137
023142
025145
0235150
023153
025136
025161
0235164
023167
025172
61 025173
025176
025201
025204
025207
023212
025215
025220
025223
025226
025231
025234
025237

110
122

117
123

100

0se

117
105
124

123
052

046
046
111
111
040

101
040
101
105
051
046
122
043
046
115
046
052

117

040

116
107
101

117

052
100

NOREM:

.ASCII

/7Eeee NO REMOTES ON MOST

040

.ASCII

76C

127

111

122
116
103
116
123

114
105
040
117
116
106

040

131
110
107

040
100

117

PORTMS:

.ASCII

/7EPORT

105
124
043

REMSG:

.ASCII

/EREMOTE 08/

0se
120
124
117
111
122

CONFMS:

.ASCII

/& s+ PORT CONFIGURATION e¢E8/

040

08/

111

STATEM:

.ASCII

/ESTATE = &/

USORM:

.ASCII

/EUSOR

075
046

COMST:

.ASCII

/7ECOMM STATUS

115
123
124

esefl/

T WILL KEEP LOOKING FOR ANY CHANGES

046
101
040
100
046

117

115
105
046

117
123
116
117
040
052

040
040

105
114
113
107
117

040

052
116
122

046

105
100

105
105
124
05!

SEQ 0095

02:24:05 PAGE 37-9

= §/

= 8/

)E8/

F8
C2CMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
040
100
046
052

105
124
123
124

040
101

SEQ 0096

02:24:05 PAGE 37-10

075

052
040
115
105
124
125
103
116

REMCHG:

LASCII

/7Eeee REMOTE

REMSTM:

.ASCII

/EREMOTE

STATUS CHANGE

e¢ee8/

105
052
046
115

040
052
122

124

101
123
117
100
122

REGMG:

.ASCII

/ REGULAR®/

122
111

IRRGMG:

.ASCII

ALROFF:

.ASCII

/7&eee NO REGULAR REMOTES FOUND ¢22£8/

OTLGN:

.ASCII

/EEDETAILED(1) OR GENERAL(0)...(0)

GTREM:

.ASCII

“"ETYPE PORT/REMOTE @'S (400=HELP,

<CR>=END)EER"

105
125

117

040

125

105
114
100

STATUS NOW 8/

025535

73 025537

IRREGULAR®/

025553
025556
025561
025567
025572

023575

124

74 025602

0256035
025610
025613
025616
025621
025624

124
124
043

117

057
115
105
047

123

G8
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
025627
025632
025635

025640

025643

025646

025651
025€54
025657
025662
025665
76 025670
025673
025676
025701
025704
025707
025712
025715
025720
025723

040
060
110
120
074
076
116
046
040
105
043
046
040
122

043

116
122

117

050
060

264
07S

054
103
075
104

040
122

105

046
040

115

040
046
120
124
040

114

105
051
100
122
040
100
040

117

025731
025734
025737

116
040
124

025745
025750
025753
025756
025761
78 025763
025766
025771
025774
025777
026002
026005
026010

040

104
116
040
105
103
114
125

77 025742

117

124

040

115
122

.ASCII

GRHLP:

.ASCII

/76E

.ASCII

/ONE OCTAL NUMBER./

.ASCII

/&&

.ASCII

PORT

@ AND REMOTE

& ARE COMBINEDO INTO /

115
105

040

115

REM ¢ 8/

RMNB:

040
101
040

025726

SEQ 0097

02:24:05 PAGE 37-11

105
117
111

105

040
040

HUNDREDS DIGIT

= PORT NUMBER (O TO 3)&/

125
122
123
111
124
040
122
116
102

040
040
040
046
040

124
123
116

117
123

07S

116

040
122

117

040

115

TENS AND ONES

= REMOTE NUMBER (O TO 76)/

H&
C2CMUCO CMR(V) 11 HOST EXERCISE MACRO V04.00
CONSTANTS, VARIABLES & ACSII

067

066

046

124
105
103

131

0S1

120
074
076
114

040

117

116
111

046

105
117
125

130
120
123
046
122

101
114

072
106
040

122

040
116

333333333

117

124

043
101
040
115
105
040

040
040

043
131
040
120

.ASCII

/ETYPE

105
115
105

.ASCII

/EEEXAMPLES
:/

117
120
124
040
104
105
124
040

.ASCII

/EFOR PORT#

.ASCII

/7EE

.ASCII

3<CR>/

.ASCII

136<CR>/

040
122
101
116

<CR>

ALONE

TO END INPUT/

124
105

040
120

AND REMOTE®

YOU TYPE/

117

124

105

040
040
040
040
040

0<CR>/

040

(- X 3

3 333333333
103

122

117

125
131

124

040
040
104
116

~N~

122
060

[

026171
026174
026177
026202
026205
026210
026213

050

102

2ZRENBZREREREZE

026164
026166

105

040
040
040

333333343

026101
026104
026107
026112
026115
026116
026121
026124
026127
026132
026135
026140
026143
026146
026151
81 026153
026156
026161

SEQ 0098

02:24:05 PAGE 37-12

18
C2CMJCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
026346
026351
026354
026357
026362
026365
026370
026378
026376

026401
026404
020407
026412
026415
026420
026423
026426
026431

87 0264 34

026437

040
040
040

040
040
063
103
046
040
040
040
040
040
040
040
040

040

063

040
040
040
066
122
040
040
040

SEQ 0099

02:24:05 PAGE 37-13

040
066
C40
040
061
074

.ASCII

/7€

.ASCII

303<CR>/

040
040
040
040
040
040

063
122

040
124
102
111
124

105

040
040
040
122

074
076

124
107

100

111

TO BEGIN TESTING

<CR>EBR/

—

——

- ————

ar—

J&
C2CMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII

02:24:05 PAGE

SEQ 0100

{ERROR MESSAGES

2
3 026477

026502
026505
026510
0265.3
026516
026521
026524
026527
026532
026534
026537
026542
026545
026550
026553

040

123
115
122
106
114

040
040
101
056
040
122
120

105
105
105
117
103
120
124
050
104
123
056

040

122
105

110
124

111

117

040

.ASCII

/ MOST MICRO FAILED TO START.&/

NOTUP:

.ASCII

/ PWR-UP

CSRRST:

.ASCII

/ CSR REG.

SPRCLR:

.ASCII

/ CAN'T CLR SPAR REG.8/

SPRDAT:

.ASCII

/ BAD DATA IN SPAR REG.8/

ISATE:

.ASCII

/ REQ SCPD ADR TST ERROR.8/

103

117
101
105
124
123
122
100
120
055

040
111
104

124
117
114
105
102
040
122
100
103
040
107
116
040
123
056
103
047
103

040

040
121
116
040

NOGO:

117
124
124

127
125
123
125
103
116

SEQUENCE

NOT

COMPLETE.(BAD CSR).8/

115
105
056
101
103
051
NOT RESET.8/

040
101

1€
2

K8
C2CMUCO CMR(V)-11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
9 026737

026742
026745
026750
026753
026756
026761
026764
026767
026772
10 026774
026777
027002
027005
027010
027013
027016
027021
027024
027027
11 027030
027033
027036
027041
027044
027047
027052
027055
027060
12 027062
027065

027070
027073
027076
027101
027104
027107
13 027112
027115
027120
027123
027126
027131

027134
027137
14 027142
027145
0271350
027153
027136
027161
027164
027167
027172
027175

027200
027203

040

12%
124
103

040
124

124

040
122
056
040

123
124
103

040

122
123
105
117
100

040

122
125

040

120
104
101
123
105
117
100
122
125
040
120
101
040

124
122
122

105
114
123
104
101

105
114
123

040

123

040
114
120
040
111
104

117
114
124

040

124
100

/ RESWT

SCPD DATA TST

ERROR.8/

OSATE:

.ASCII

/ RESULT

SCPD ADR

ISOTE:

.ASCII

/ REQ SCPD DATA

TST ERROR.8/

RQSPCL
:

.ASCII

/ REQ.

SCPD NOT

ALL O'S.8/

RSSPCL
:

.ASCII

/ RES.

SCPD NOT

ALL 0'S.8/

CLTYBER:

.ASCI1

TST ERROR.8/

124
040
122
056

105
123

123
104
117
101

123
123
104
117
101

.ASCII

104
104

040
120
116
040
114
047

123
040

0SDTE:

122
122

104
101
040

040

SEQ 0101

38-1

040
124

121
103
040
124
124

040
122
056
040
121

02:24:05 PAGE

124
122
122
105

100
105
040
120
116
040

114
047
100

103
124

042
101
105

124
103

040

120
131
056

“CLRTPB8" FAILED TO CLR TOP BYTE.8/

L8
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
15 027204

040

127

027212

040
122

103

027207

027215

027220
027223
027226
027231
027234
16 027237
027242
027245
027250
027253
027256
027261
027264
027267
17 027271
027274
027277
027302
027305
027310
027313
027316
027321
027324
027327
18 027330
027333
027336
027341
027344
027347
027352
027355
027360
027363
027366
027371
19 027374
027377
027402
027405
027410
027413
027416
027421
027424
027427
027432
027433
027440
027441
027444
027447

117
117

042

105

106
103
040
104

123

102
123
110
105

125
056

040
116
040
122

117
103

040
111
040
116
100
040

103
123

116

122
107
123
106
040
111
040
116
100
101
103
040
124

02:24:05 PAGE 38-2

DIERR:

.ASCII

7/ WRONG CSR FOR "DIE" FUNC.8/

CSRUE :

.ASCII

/ BAD CSR BITS WHILE HUNG.8/

CSRCE:

LASCII

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

SPAVME;

.ASCII

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

SPAVFE:

.ASCII

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

NOINTR:

LASCII

7/ HOST CAN'T INTERRUPT UNIBUS.8&/

127
114

110
107
101

124
114
114

040
122
110

105
125
056

040
121

103

SEQ 0102

M8
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
027452
027455

027460

027463
027466
027471
027474
21 027477
027502
027505
027510
027513
027516
027521
027524
027527
22 027532
027535
027540
027543
027546
027551
027554
027357
027562
027565
027570
23 027573
027576
027601
027604
027607
027612
027615
027620
027623
027626
027631
24 027633

027636

027641

027644
027647

027652
027633
027660
027663

027666
027671
027673
027676
027701
027704
027707
027712
02771%
027720

04?7
111
105
125
040
111

123

040
122
105
123

117

040
124
122
124
040

117

040
111
111

056
105

040
040

107
122
040
117
111
124
106
114

124
116
122
120
125
102
056
105
117

117

040

123
111

105
125

056

127
116
120

117
124

040
126
111
110
110
056
120

107

116
056
101
105
124
111
124
123
100
115
122
104
116
040

117

040
122

117

116
100
062
040
122

117
111

SEQ 0103

02:24:05 PAGE 38-3

040
124
122
124
116

125
100
122
116
125
110
124
116
122
120
100
122
107
122
122
131
104
056
123

ERINTR:

.ASCII

/ ERRONEOUS HOST

INTERRUPT
.8/

WPOOI:

.ASCII

/ WRONG PRIORITY.,

HITER:

.ASCII

/ PROG INIT.

VISF:

.ASCII

/ MICRO DIDN'T

VIDER:

.ASCII

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

DEV.

IS HIGHER.®/

111

105
100
122
040
111
040
111
104

FAILED

TO INIT

CSR.8/

117

11¢
040

122

111

117

STORE

VERSION NO.8/

111
047
123
122
126
123
116
117

116
126
123
116

117

111

108

N K

N8
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

CONSTANTS, VARIABLES & ACSII

027761
027764
027767
027772
027775
030000
030003
27 030005
030010
030013
030016
030021
030024
030027
030032
030035
28 030036
030041
030044
030047
030052
030055
030060
030063
030066
030071
030074
030077
030102
030105
030110
030113
030116
030121
030124
030127
030132
030135
030140
030143
030146
030151
030154
030157
030162
030165
030170

123

122
040
122
120
040
103
123
040
123
123
104
111
040
124
103
056
040

117

040
122
111
040
124
116
100
040
101
042

105
114
106

103
103
105
122
107

040

117
120

055
056
101

105
105

122
056
103
040
124
111
122
114
100

127

116

103

040

124

042
106
042
042
111
040

123

124
125
056
117
040
117

111

106
115

127

125
100

ACCESSED RES.

SCPD WITH INTR CLR.8/

SPAVIC:

LASCII

122
107
123
127
110
123
125
056

STESTF:

.ASCII

WRONG CSR WITH

115

RSPESF
:

.ASCII

"MAIN" RESULT FUNC.

USOFEL:

.ASCII

BAD USOF FROM

STEMF
:

.ASCII

WRONG CSR WITH

103
123

027723
027726
027731
027734
027737
027742
027745
027750
027753
027756

SEQ 0104

02:24:05 PAGE 38-4

104
105
040
120

127
110
116

040

122

116
122

“STFUN' .8/

CODE WRONG.8/

125

“STFUN“ ON MAINT .8/

"MAINT'
. &/

C2CMUCO CMR(V) 11 MOST EXERCISE MACRQ vO4. 00
CONSTANTS, VARIABLES & ACSII

116
040
116
100
042
111
040
116

107
105

125
106
122

BAD USOF FROM ~MAINT" FUNC.8-

DATLER:

.ASCII

RSPEMF

.ASCII

USOFES:

.ASCII

USOFEAS:

.ASCII

PLFFE:

.ASCII

040
101

124
106

103

115

116
106

“"MAIN" FUNC GAVE BAD DATA LEN.®/

RES.

BAD USOF FROM ~"MAIN” ON REG FUNC.8/

WRONG USOF

TOTAL FAILURE ON

103
101
040
104
101
040
116

105

123

.ASCII

125
040
126
102
040
124
114
056
040

117
106
11%
115

USOFE2:

125

056
040
101
042

040

101

117

042
111
042

102

040
104
123
040

51 030171
030174
030177
030202
030205
030210
030213
030216
030221
030224
030226
030231
030234
030237
030242
030245

SEQ 0105

02:24:05 PAGE 38 S

040
116

FUNC COOE WRONG FOR

"MAIN".8/

103
105

116

122
107

117

101

042

102

117
115
115
116
117
122
116

127

116

ON REGULAR FUNC.8/

106
116

114
116
100

030433

124

i01

“MAIN" FUNCTION.®/

CZCMUCO CHMR(V) 11 HOST EXERCISE MACRO vO4.00
CUNSTANTS, VARIABLES & ACSII

111

042

125
124
116

117

040
124

PLTXTO:

.ASCII

PLRCTO:

.ASCII

PLDERR ;

.ASCII

SYSER:

.ASCII

OIAGF:

.ASCII

125

040
040
101

PORT

101

PORT RCVR TIMED OUT.®/

030504
030507
030512
030515
030520
0303521

106
114
105
116
115
116
106
103
117
100
120

PORT-LOOP DETECTED DATA ERROR.8/

37 030473
030476
030501

040
111
122
117
042
111
040
116
111
056
040
122
130

SEQ 0106

38 6

HOST SYS ERROR.

030436
030441
030444
030447
030452
030455
030460
030463
030466
03047}

02:24:05 PAGE

“DIAG” FUNC GAVE WRONG FUNC COOt.a/

XMTR

TIMED OUT.8/

124
105

RUN LOGIC

TEST.®/

D9
C2CMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CONSTANTS, VARIABLES & ACSII
030703

030706
030711
42 030713
030716
030721
030724
030727

103
117

056
040

117
127

125
106
122
107
116
104

030732
030735
030740
030743
030746
43 030747

030752
030755
030760
030763
030766
030771
030774
030777
031002
031005
031010
031013
031016
031021
031024
031027
031032
031035
031040
031043
031046
031051
031054
031057
031062
45 031065
031070
031073
031076
031101
031104
031107
031112
031115
031120
031123
031126
031131
031134
031137
031142

040
104
100

107
106

103

02:24:05 PAGE 38 7

103
105

123

040

OIAGUF:

ASCII

7 USOF WRONG ON “DIAG" FUNC.8/

FIFUN:

LASCII

7 FORCE

FIFUF:

.ASCII

7 USOF WRONG ON FORCE INTERROGATES/

FICHE:

.ASCII

/ COMMUNICATION ERROR DURING FORCE INTERROGATES®/

117

040
040
111
042
125
056

117

105
116
122
107
105

101

.EVEN

INTERROGATE FUNC GAVE WRONG FUNC CODE®/

S€Q 0107

CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO04.00
CONSTANTS, VARIABLES & ACSII

SEQ 0108

02:24:05 PAGE 39

i TABLE STORAGE

1 TABLE OF BAUD RATE MESSAGE POINTERS
BORTBL:

031144
031146
031150

031152
031154
031156
031160

.WORD
. WORD
. WORD
. WORD

. WORD
. WORD
. WORD
. WORD

031162

801
802
803
804
805
806
807
808

SEIRRLUKRLEY

031266
031270
031272
031274
031276
031300
031302
031304
031306
031310
031312
40 031314
031316
2 031320

.ASCII

803:

.ASCII

804 :

.ASCII

805:

.ASCII

806 :

.ASCII

/ 96008/

042

807:

.ASCII

"HIGH”

“SPECIAL"

§O 33343
107

NN
N
NN

802:

100
061

105
100

»008/

12008/
24008/
48008/

SPEED®/

105

101
040

105
.EVEN

10ATA TABLE FOR MAINTENANCE AND DIAGNOSTIC FUNCTION
DATBL
:

535558885858

26
27
28

104

.ASCII

[

031231

031234
031237
031242
031244
031247
031252
031255
031260
031263

3008/

801:

100

031164
031167
031171
031174
031176
031201
031204
031207
031212
031215
031220
031223
031226

REE RERRR-2ZRERERRXRELE

: TABLE OF ASCII STORAGE FOR BAUD RATES

11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 39-1
CZCMUCO CMR(V)
VARIABLES & ACSII
CONSTANTS,

43 031322
a4 031328

000200
000000

WORD
WORD

200
000

5€G 0109

G9
C2CMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

1PORT CONFIGURATION STATUS TABLES.
EXTBL1:
EXTBLZ2:
EXTBLY:
EXTBLA:

031326
031526
031726
032126

.BLKW
.BLKW
.BLKW
.BLKW

64,
64,
64,
64,

1TABLE FOR ORIGINAL (PWR-UP) VERSION DATA
VERSP:

032326

.BLKW

;TABLE FOR 2ND VERSION DATA
VERSUN:

.BLKW

1SOF TWARE FLAG BYTES

§88888838888888888¢

OO NP NEWN
»-

CONSTANTS, VARIABLES & ACSII

S€Q 0110

02:24:05 PAGE 40

CLKFLY1:
CLKFLG:
CONFLG:
CNFGFL:
DBFLG:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

O
0
O
O
O

;CLOCK TICKING
sCLOCK PRESENT
1CONTINUE FLAG
sCONF IGURATION AVAILABLE
;1DEBUG FLAG

GOFLG:
HOURS:

.BYTE
.BYTE

O
O

1 "GO”* FLAG
sHOURS STORAGE

FAST:

.BYTE

INCF :

.BYTE

MINS:

.BYTE

LSIFLG:

OFLOF:

ONCE :

PNCFLG:

.BYTE

.BYTE
.BYTE

s "FAST* EXERCISE RUN FLAG

sLINE FEED FLAG

sTHIS IS AN 11/03

tMINUTES STORAGE

tERROR COUNT OVERFLOW

sINDICATOR THAT CONFIG HAS BEEN PRINTED

tPRINTED ANY REMOTE INFO?

SAFE:
SECS:

.BYTE
.BYTE

O
O

sOON'T ALLOW *F IN FILL COUNT RTN.
1SECONDS STORAGE

THRUF:

.BYTE

1 "THRU” FLAG

SLFL:

TICKS:

.BYTE
.BYTE

.EVEN

1 "SLASH” FLAG

:11760 SEC. TICKS STORAGE

-1 C)

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

02:24:05 PAGE 41

032430
032432
032434
032436
032440

MASK;
PASCNT:
PAT:
PCONT
PORN:
PORT:
PRIO:

REMFLG:
REMNO:

REMTN:
REMST:
SAVEC:
SPAR:
SPDR:
SR:
SWREG:

SWRFLG:

TALLY:
TBLAD:
TEMP:
VERFLG:
WORD-

. WORD
WORD
WORD

58 3 1

ALLFLG:
BAUD:
CHNGFL:
CLK:
CNTR:
CSR:
DEVER:
ERRCNT:
ITER:
LINLEN:

WORD

.WORD

. WORD
. WORD
.WORD

555558 85500588855

ADOR :

032416
032420
032422
032424
032426

0000000000000 0000O0OO0O0O0OO00O0O0O0OO0O0O00O0

t VARTABLES:

000170
164070

177562
177560
177546
177566
177564
000001

VECTOR:

DEVADR:

FKPRIO:
KPD:
KBS:

LCS:
118:
T1S:

0323520
032522
032524
032526
032530
032532
032534
032536

55555888

s CONSTANTS:

170
i64070

177562
177560
177546
177566
177564

SEQ 0111

C2CMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00

SEQ 0112

02:24:05 PAGE 41-1

SYMBOL TABLE

8AUDM
BCNTO
BCNT1
BONTZ
BCNTS
BCNTA
BCONT

032416
022624
032420
025474
020100
032422
024537
003034
003040
003070
003064
003114
002674

801
802
803
804

031164
031171
031176
031204

ADDR

AGAIN

ALLFLG
ALROFF
8AD
8AUD

031220
031226
031244
002000

806
807
808
BEGIN

021664
024335

800
801
802
803

=
=
=
=

806

= 000100

808

= 000400

804
805

807

809

810
811
812
813
814
815
CCRTN

CELP

CHNGFL
CLx
CLKEXT
CLKFLG
CLKFL1
CLXINT
CLKTRP
CLTBER
CMREXC
CNFGFL
CNTR
COMST
CONFLG
CONFMS

022742
032376
021740
021712
020012
032522
032434
017546
030650
013730
016230
030713
016332
016350
016370

031212

B80S

016406
016474
016660
016666

000001
000002
000004
000010

027204
022024
022022
000000
023537
017434
022657
022703
024651
012322
024635

= 000020
= 000040

= 000200

= 001000

=
*
=
=
=
=

002000
004000
010000
020000
040000
100000
020266

012402
011072

0111352

012604

032424
032426
002672
032373
032372
002600
002572
027142
012532
032375
032430
025346
032374
025267

020276
003226
003236
032432
027271
026605
027237
031266
030226

031144

BORTBL

BINPNT
BRXCOM

CONTW1

EXRCS
EXSOA

011142
024664
006342
027477
006462
017726
020072
032436
020102
020074
017740
025027
012542

013174
012674

EXSO8
EXSOC
EXSO0
EXSONA
EXS00
EXSO1
EXSO1A
EXS2
EXS28
EXS2C
EXS3
EXS3A
EXS38
EXTBLL
EXTBL2
EXTBLS
EXTBLA
Exi
Ex2
EX3
EX4
EXS
EX6
FAST
FICHME
FIFUF

FIFUN
FILL
FILMSG
FKPRIO
FLCONT
FRAD

GOINT
GETCHR
GETOG

012774
013012
013136
012764
012654
013214
013256
013312
013352
013402
013412
013460
013502
031326
031526
031726
032126
020340
020336
020370
020406
020440
020452
032377
031065
031024
030747
021532
021536
032524

021334
022577

006404
020636
022042
032400
020076
02367V

0235602
017654
023226

027373

003144
024233
032401
177570
014332
014440
014642
014526
014650
014756
014750
014422
014402
032402
020620

006456
006416
022767
023461
026706
027030
002000
032440
022074
021530
032326
021060
021072
032330
0213524

014312
014266
014330
014172
024320
032442
0031690
032403
017406
032444
032404
020172
020166
020152
005544
003302
000057
021052
023105
026477
027441
021526
025137
026534
021034
021770
022012
022014
021634
021606
016676
032405
032406
026774
026737
024702
032446
032430
032452
030547
030430

PLRCTO
PLTM
PLTXTO
PNCFLG
PNT

PNTCNF
PNTCX
PNTCO
PNTEND
PNTEXT
PNTRTN
PNTO
PNT1
POK
PORCN

PORCNF
PORLD
PORN
PORT
PORTLP
PORTMS
PORTN
PORTOM
PORT1M
PORT2M
PORT3M

030521
024717
030473
032407
022114
021556
021604
021574
012440
022056
012522
012456
012464
011232
013602
013356

013570
032434

032456
011154
025245
024745
024555

024571
024605

024621
015632
0135452
015470
013544
017612
016230
016102
016212
032460
011162
002176
002222
002310
002376
002422
016062
020454
002116
013610
177776
011374
011536
011300
011362
011410
011416

011520
011546
011602

011630
011644

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

02:24:05 PAGE 41 2

PST?
PST?S
PST8
PST8S
PST80

011672
011760
011772
012060
012072

REMSTH

025424

REP20
REP3
RESTRT

016042
016060

SYMBOL TABLE

SCA2A
SCA28
SCA2C
SCA20
SCA2E

015212
015234
015246
015254
015266

ST1
ST1A
ST10
ST100
ST101

SKP6

014120

ST1S0

PST80S 012160
PST9
012172
PST9S
012314
PO
= 000000
Pl
= 000040
P2
= 000100
P3
= 000140
PA
= 000200
PS
= 000240
P6
= 000300
P?
= 000340
RADIX
022210
RECON
Co4a4)l2
REGMG
025450
REGRES 017370
REGSAV 017354
REMCHG 025366
REMFLG 032462
REMNO
032464
REMSG
025255
REMST
032470

SCA2F
SCAS
SCONT
SCORTN
SCPAD
SCPRTN
SECS
SKPD2
SKPX0O
SKPX1
SKP1
SKP1A
SKP18
SKP2
SKP3
SKP3A
SKP38
SKP4
SKPS
SKPSA
SKPS8

REMTN
REPORT
REPO
REP1
REP2

032466
015660
015732
015762
016012

SKP?
SKP7A
SKP78
SKP8
SLFL

002520

SPAVFE

RIFLG
Rr98

022206
025657

RSPEMF

030266

RQSPCL

RSPESF
RSSPCL

SAFE
SAVEC
SBAK
SCALM
SCART

SCA1

SCA2

. ABS.
032540
ERRORS DETECTED:

SRTST
SSWR
=
STATEM
STEMF
STESTF

STRMN

STO
O

006730

ST183

SPRDAT
SR

015116

ST182

026632

030036
027112

026657
032500

017416
032502
023323
030140
030005

013150
003272

ST80S

006530

ST180
ST181

032476

005616

004520
004622
004630
004652
004664
004760
004766
005004
005010
005066
005034
005042
005100
005174
005202
005222
005236
005332
0035340
003356
005442

ST18

027742
027330

SPRCLR

§T205
ST206
S§T207
ST21
ST22

003640
005726
006014
006122
006230

SPAVIC
SPAVME

027374

003354
003362
004422
004434
004506

ST16
ST160
ST161
ST162
ST1?7

023036
032474

SPOR

015030

014136
014156
014162
014170
032412

ST110
ST110S
ST111
ST112
ST120
ST120S
ST121
ST13
ST130
ST131
ST131A
ST1318
ST132
ST132S
ST133
ST134
ST135
ST135S
ST136
ST14
ST15

SLOW
SPAR

C27062

032410
032472
017512
014766
015354

015310
015330
017530
017544
024463
017474
032411
013516
013534
013600
013746
013766
013772
014000
014016
014036
014042
014050
014066
014106
014112

STL170
ST170R

ST19
ST2

S$T20
ST200
S§T201
ST202
ST203

ST204

SEQ 0113

006254
006336

007146
007256
007272
007352
007440

004244
004266
004302
004376
004404

WORD
WPODT
$0¢
$004
$1¢

SWREG

032502

$13¢

VIRTUAL MEMORY USED:
8704 WORDS
( 34 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
64 PAGES

(7CMJUC/E :ABS ,CZCMUC/C:E:M:S:R=CZCMUB
. MAC

I Q)

004236

020204
017454

032504
023075

SYSER

030607

TBLAD
TEMP

032510
032512

TRP4

000

020143

ST81
ST82
ST90
ST90S
ST91

THRUF
TICKS
TPCONT
TPOFCH
TPOUTX

007526

WOMAS

TTOLF
TTOLP
178
TWOSP
TYPCR
TYPCTP
TYPOUT
USOFE1
USOFE2
USOFES
USOFE4
USORM
VECTOR
VERFLG
VERSM
VERS?
VERSUN
VIDER
VISF
WOAT
WOS08

TALLY

007040
003456

022212
003120
023177
0323534
022122

010120
010126
010224
010312
010326
010424
010436
010472
011006
011024
011062
003542
003562
003602
003656
003672
004002
004042
004032
004124
004134

SWRFLG
SWRMSG

007020

TSTHOR
TSTRSK
TSTSEL
1718
770

S$T220
ST221
ST222
S§T223
ST224
ST23
ST23A
ST230
ST24
ST2S
ST26
ST3
ST4
ST6
ST60
ST61
ST62
sST?
ST70
STl
ST80

SWOHP
SWHLT

006640
006666

007556
007636
007724
010012
010040

032506

032413
C32414
020604
020560
020614

023033

$10¢
$114

$2A¢
124

$204

$214

$224
$234

$244
254
4264
$34
$44

$S¢

022144
022126
032536
023071
024777
023151
020556
030077
030171
030330
030373
023335
032520
032514
024504
032326
032350
027673
027633
020115
020127
032516
027532
016740
016714
0165744

017030
017154

017272

017056
017042

017222
017234

017252
017304

017352
017322
017334
017110
017116

017134

K9
CZCMUCO CMR(V) 11 HOST EXERCISt MACRO VO4.00

CROSS REFERENCE TABLE (CREF vVv4.00 )
$0¢
$00¢
$14
$10¢

28-250
28-31

28-36
28-21¢
28-38
28-37¢

$13¢
$24
$204
$214
$22¢
$23¢
$24¢

28-66
28-29
28-42
28-57
28-70
28-77
28-89

28-760
28-39¢
28-65¢
28-68¢
28-72¢
28-79¢
28-91¢

$11¢

8254
$26¢
$2A¢
$3¢
s4¢
54

ADDR
AGAIN
ALLFLG

A_ROFF
800

28-24¢
28-18

28-40

28-80
26-85
268-43¢
28-46
28-48
28-51

28-24¢
3-33
17-1S¢

23-50

1-S1e¢

28-58¢

28-84¢
28-87¢
28-82
28-49¢
28-50¢
28-54¢

28-25
3-47
17-28¢

10-39

1-460
1-45¢

23-31
23-35

1-438

7-17

807

808

809

810
811
812
813

814

815

B8AD

sALD
BAUDM
BCNTO
BONTL

BCONT2

BONTS
BCNT4

BSCONT
801

1-440

1-420

1-41¢
1-40¢
1-39¢
1-38¢

1-37¢
9-22

28-27«
3-57
17-33¢

10-S

805
806

28-47

7-23

6-27
16-62
23-6
23-17

6-31
9-23

28-78

28-53

37-72¢
21-28

1-50¢
1-49¢
1-48¢

1-47¢

28-75

7-12

25-33

801
802
803

B804

28-83
28-71

7-18

8-8

16-66
17-142
29-57

6-41
9-38

268-49

17-122

21-10

22-16

17-146
18-163

18-167
23-54

8-S1

8-54

8-56

8-62

9-11

17-110

6-48
9-39

7-9
10-10

7-21
10-3S

8-22
11-8

8-23
11-15

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

8-40
11-35
14-61
17-113
27-22

7-17s

7-19
10-8

8-10

6-36»

6-37

6-43¢

6-44»

6-46

5-27

5-32¢

5-29
5-35

5-31¢
S5-37¢

39-6

39-17¢

3-94

S-40

24-53

27-21

6-35e

16-9
37-46¢
5-25¢
5-260

24-13

24-23

14-36
17-89
22-50

14-70
16-16
5-23
5-21

23-13

22-17

14-29
17-80
22-49

8-66
11-13
14-50
22-34¢

22-58

28-58
28-37

14-23
17-79
22-38

8-€Se
11-12¢
14-49¢
22-27

41-3¢

28-54«
18-59

13-50
17-12
22-37

13-1%

28-68
37-13¢0

28-30
17-35
41-40

13-30
15-40
22-29
13-10

28-67+
33-45

28-28
3-61
17-123

13-22
15-33
22-19

1-36¢

SEQ 0114

02:24:05 PAGE S 1

14-23

14-48

28-50

14-43
17-90
23-22

T7-Te

14-48
17-99
24-24

7-16»

8-82s
13-9»
14-58s
22-3%

8-83
13-10s
14-59
27-28¢

9-19s
13-11
14-65+
27-29

9-20
13-25«
14-66
27-3%¢

9-35s
13-27«
15-18«
27-3%

9-36
13-28
15-20
29-129

5-17

S-42

S-44

30-42

0-%0

33-28

41-5¢

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

14-25
15-27

27-20

27-54

28-43

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

8-69
12-16
15-15
18-46
27-38

8-85

8-19e

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

8-20

10-32

14-34
15-38

8-86

12-31
15-22
18-127

13-13
15-29
21-29

8-36¢
11-5Se

8-37
11-6

27-39

14-40¢
17-109¢

14-41
22-26+

L9
C2CMUCO CMR(V)-11 HOST EXERCISE MACRO vO4.00
CROSS REFERENCE TABLE (CREF V04.00 )
$9.7
39-8
39-9
39-10
39-11
39-12
39-13
16-24
1-S2
35-30¢
6-13
30-28¢
18-42¢
18-108e
6-50¢
4-7
4-4¢

3-74»
3-87
3-75
10-10
5-37
S-6¢
6-26¢
16-11e
20-42¢

22-52
28-719
25-4

30-29¢
6-140
6-150
6-27
11-17¢
14-24

CSRRSTY

DATBL
DATLER

17-68
22-19
27-22
11-15
6-48
11-8
17-%0
14-68
26-23
5-13¢

18-70
16-717
6-41

13-13
27-31
3-26
3-13s
3-69
27-15¢
27-19¢
27-220

SEQ 0115

02:24:05 PAGE S-2

3$9-18¢
39-19¢
39-20¢
39-21¢
9-22¢4

39-23¢
39-24¢
16-32
3-3

16-44
3-10¢

16-52

39-64

18-45
18-130
6-544

18-139
26-27»

18-144¢
26-30e

19-5e
27-Se

19-19
27-17+

23-51+
41-70

41-6¢

S-Te
3-96+

17-149
5-22

18-170
5-28

40-189¢
5-34

28-17

28-84

40-19¢

34-5
6-33¢
17-7»
21-12e

40-21¢

10-25¢

10-28»

10-34+¢

10-37»

33-91e

40-20¢

37-42¢

4-11

4-4¢

3-96¢
38-140
18-34¢
18-151e
6-29¢
16-14¢
20-S1s
37-67¢
33-23¢
37-640
30-30
6-15

6-35
11-27+

14-46+
17-122¢

22-58¢
27-S4+
38-17¢
38-5¢
38-16¢
27-6

38-32¢

37-16¢
28-21+
35-48¢
16-84
6-48
13-30
27-38
3-36

41-104

29-69¢
27-18
27-32
27-2%

4-1S

4-18¢

6-39¢

13-Sse

13-69

14-27+
20-27»
26-20¢

14-45+
20-30s

41-8¢

14-52¢
20-39¢

21-28¢
24-24

11-S
13-42¢
17-38¢
21-29
24-53¢

11-11s
14-9
17-66¢
22-16s
27-20¢

11-12
14-22¢
17-67¢
22-17e
27-21e

10-10
15-40

10-33
17-113

11-8
22-29

11-15
22-37

14-8»

17-49¢
21-25¢

17-5S3¢
24-41¢

18-41¢
24-47¢

18-44¢
25-8¢

20-Se
25-14s

20-14¢
25-20e

20-18¢
25-26¢

10-Se
12-12¢
14-49
18-109¢
23-13¢
26-30

10-7
12-20s
15-Se
18-110¢
23-17
28-32

10-24¢
12-23¢
1S-14¢
18-111¢
23-52¢
26-43s

10-26
12-25+
15-1S
18-127
23-54
28-47+

10-31
12-30¢
15-31s¢
18-129¢
23-57¢
28-49%

10-36¢
13-4+
15-32¢
18-145s
24-13s
28-%0

10-39¢
13-9
15-33
21-10e¢
24-23s
29-70e

11-4»
13-15
17-8

28-87¢

30-53

33-29

33-59

33-62

40-22¢

30-69

30-73
7-21

30-77
8-22

30-81
8-39

35-39¢
8-68

8-85

9-22

9-38

29-69

41-41¢

17-10s
21-14

30-36
6-20

6-43
12-8»
14-47¢
18-42
23-6
28-22

41-94

39-29¢

7-9

14-29
29-122¢
3-39¢

14-36

14-43

14-54

14-61

27-53

14-68

15-22

15-29

M9
C2CMUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
CROSS REFERENCE TABLE (CREF v04.00 )
OIAG10
DIAG2
DIAG3S

DIAGA
OIAGF
OIAGFU

OIAGNF
DIAGUF
OIERR
OIVID
DIVSET
OPCSTA
OTLGN
OVATST
OveCY
OVPRIO
ELTIN
ENOL
ENDO

27-23
27-30
27-40
21-%37
e7-31
16-141

27-268
27-33¢
27-53¢
27-548
38-41¢
20-4¢

27-38
10-35
36-6¢
36-5¢

38-42¢
38-15¢
36-10
36-15

20-13

2-4¢
18-50
2-6

20-38

37-73¢
335

29-36¢

20-50

27-5¢

17-122¢

3-40
3-50
30-67

37-14¢
37-15¢
37-52¢

17-76

17-86

17-96

17-106

16-69

16-756

17-148

18-169

6-31

11-25

11-35

12-11

12-16

12-31

16-80

16-83¢

23-22

24 -32

29-108¢

29-109¢

29-115

29-122¢

29-123¢

29-136¢

6-31s
11-1S¢
14-61e¢
23-22¢

6-41e
11-25¢
14-68¢
24-32¢

6-48+
11-35¢
15-22¢
27-31s

T7-9»
12-11e¢
15-29¢
27-38e¢

7-21s
12-16+
15-40s
29-112

8-22¢
12-31¢
17-12¢
29-137¢

30-44
30-48
30-52
30-14

30-47¢
30-51¢
30-54
30-60

30-56
30-62¢

30-59¢

18-63¢

18-86

16-85

18-97

16-13

18-138

18-156

168-139

18-175

6-11e

18-56

18-68¢

EXS28
€ExseC

20-26

16-125¢

16-128
18-141¢

SEQ 0116

02:24:05 PAGE S-3

16-83

18-74

18-133¢

17-17e

18-40+

29-61e

13-22

13-50

17-12

17-79

8-39¢
13-13s
17-79e

8-68+
13-22¢
17-89«

8-85+
13-30+
17-99«

13-50e
17-113e

17-89

17-99

18-46

22-49

10-33¢

11-8¢
14-54¢
22-49¢

41-11¢

18-90

9-22¢

9-38e

14-29»

18-46+

10-10¢

14-36¢

22-29¢

14-43¢

22-37e

N9
CZCMUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00
CROSS REFERENCE TABLE (CREF V04.00 )
ExS3
EXS3A
EXS38
EXSGO
EXTOLL
EXTBL”
EXTBLY

EXTBLS
FAST
FIOE
FIFUF
FIFUN
FILL
F ILMSG
FXPRIO
FLONT
FRAD

GODINT
GETOHR
GETDG
GOFLG

G000

16-131
18-147
18-149

18-89
5-81¢
3-82¢
5-83e
3-84¢
18-34¢
22-49
22-37
22-29
33-38
33-36

5-51
33-101¢
3-25
12-7
32-12¢
36-7
28-41
6-34¢
8-64¢
11-10»
14-50
22-33¢

3-269

18-134
18 153¢
18-152
18-96
18-65
18-119e
18-120e
18-121e
18-62¢
38-45¢
38-44¢
38-43¢
33-4)

33-102¢

41-42¢

35-56¢
37-12¢
12-19¢
32-34
36-11¢
28-81
6-37
8-66
11-13
14-57¢
22-35
37-76¢
37-74¢
3-85
37-24¢
38-23¢
5-43¢0
37-40¢
S-11e
3-21
20-24
22-560
22-244
22-32¢
22-46¢
22-58¢
22-44¢
22-22
22-30
33-20s
3-44

12-22¢
37-17¢
37-71¢
38-8¢
38-11¢
5-4
16-60s
36-25
53-31

18-140

18-157¢
18-103¢
18-103»
19-10
19-13

18-143¢

18-105«

18-118«
20-17
20-29
20-41
18-112

19-7
25-13
25-19
25-25
20-9

c0-4
40-40
40-5¢
40-6¢
20-22

33-479

33-100¢

35-56

36-42

35-59«

36-42»

36-45»

32-39

32-46

33-21e
6-45s
8-80e
13-8¢

33 86+

40-24¢0

8-63
13-11
14-64»
27-29

9-18s
13-24«
14-66
27-34¢

19-16

14-59
27-27

SEQ@ 0117

02:24.05 PAGE S-4

6-46

7-6¢

T7-13e

21-9

25-7

40-34

20-34

20-46

40-23¢

7-14¢

7-15

7-182»

9-20
13-26+
15-19«
27-36

9-34¢
13-28
15-20
29-126

9-36
14-23»
15-25»
29-138¢

10-6»
14-25
15-27

8-37

7-19
10-8
14-32»

15-36»

8-18+
10-30e
14-34
15-38

8-20
10-32
14-39¢
17-112¢

8-3Se
11-3¢
14-4)
22-25¢

14-480
22-27

28-63

30-25

32-8¢

33-42

3-65»

3-66¢

11-6

29-94¢

30-68

40-25¢

20-36

20-48

22 -44
33-77«
3-54

22-36

40-26¢

22-74

5-18

6-17

17-24

17-58

18-53

18-75

28-26

3-10
16-64s

29-36
17-14¢

29-95
17-140s

29-101
17-144¢

30-41
18-38+

30-49
18-161s

33-27
18-165«

41-12¢

3-39

3-41s

5-45

3-49

3-51s

3-55

3-59

3-63e

12-32

3-64¢

3-67

B10
C2CMUCO CMR(V) 11 HOST EXERCISE MACRO VO4.00
S 16

18 S7
32-26¢
30 31

33 17¢
33-20¢
30-29
33-53
S-24e
21-%

18-73¢

32-28¢
33-19
3$3-18

g 3
g Ry~
$

S5-39
16-93

- 25e
28

28-27

32 -44¢

17-22¢
28 -62¢
$2-4%¢

33 71
28 20e¢

33 78
28- 86e

41 450

33 90

33 93¢

18- 132

18-174

21-31

6- 410

6-48

6-48
8-68
10-10¢
11-35

32 -42¢

32- 43¢

4] -43%¢

4] -440

26-24¢

26 -3Se

3$3-60
S-36e

29-84
33 43¢

17 S7e

30-23¢
38 4%

17-60
30 27
33 &7

16-S1e
32-10
33 99¢

41-13¢

7-27¢
4-16¢

4]1-140

17-70

17-75

6-31
8-22
9-22¢

6-31¢0
8-22

5-10e

REEE RS

9-38

PEIEERE
oo

[

[]

detisigtd’
OSATE
0SOTE
ovFLN

18 77
32-30¢

33-17
33 S7
S-30e

11-135¢
12-31

17-12
17-113¢
23-22

17-12
18-46

23-220

18-46

38-3¢

32-40¢

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-216
8-90
27-48

35-31

36-3¢

9-27

27-%52

9-43

28-72

33.73
17-18e¢
18-148

18-39¢
18-153s

29-63¢
18-158¢

40-29¢

14-29

14-61¢

10- 10
11- 230

8-39¢
10-10
11-33

-68e
14
17- 79
22-29
- 320
24

14-36
13-22
17-79¢
22-29
27-31

8- 39

11-13
12-31
13-30¢
14-61

ODTPR
OFLOF

5-26

30-110

24-28

[]

sr-uub-e?fl’uno g
- g

$.20

40-270

wSEEEELE

FARERGERS

CROSS REFERENCE TAMBLE (CREF vO4.00 )

SEQ 0118

02:24:05 PAGE S 5

18- 13
- 36
14

13-13¢

13-22
14 -36¢
13-22
17-89
22-29¢
27-31

7-9¢

6-48¢
8-68

10-35
11-35¢
13-22
14-43
15-22¢0
17-89
22-37
27-31¢0

7-21

8-85
11-8
12-110

8-85¢
11-8
12-16

23-28
30-21

23-40
33-39

13-%0
14-54
15-29¢

13-30¢
14-54
15-40

35-56¢

17-104
29-113

23-49

C10

17-118
29-116

22-43
29-127

22-53
29-130

cio
CZCMUCO CMR(V) 11 TMOST EXERCISE MACRO VO4.00
CROSS REFERENCE TABLE (CREF v04.00 )
PO

1-32¢

17 65

Pl
P2
P3
P4
PS

1-31e
1 304
1-290
1-28¢
1-27¢

P?
PASONT
PAT
PCONT

1-25¢
6-9e
7-11e

3-12
16-65¢
7-183

3-16
16-76
7-23

3-20
17-16¢
7-25¢

3-89
17-145e¢
7-26s

5-5
18-37¢
41-160

18-166¢

41-150

18-76¢

26-88

28-90

30-26¢

30-S7¢

6-180

33.48

17-23¢

25-16¢
36-27¢

25-22¢

25-28¢

25-31

40-31¢

25-11e

1-26¢0

3-28¢

PNCFLG
PNT
PNTO

25-5e
36-19
17-141

PNTON

30-61

PNT]
PNTCO

PNTCX
PNTEND

PNTEXT
PNTRTN

POX
PORO

-10e
-21
-1440
34-9¢

34-8
17-124

34-10¢
17-132

17-9
24-240

PORCO

24-25

PORCN

24-430

PORN

POR1

5-43¢

17-145¢
34-6

36-13
17-143

33-58

36-17¢
17-147

17-14¢
24-27

3-53¢

S5-17e

5-19e

6-15e

19-15

19-18

24-12¢

19-8e

19-11¢

19-14¢

19-17¢

24-21

24-49

PORTOM

16-17

37-47¢

PORTMS

17-82

17-92

17-102

17-116

26-7

37-62¢

3-S2

29-82¢

3-27

24-48

17-37¢

3-42

17-46

PREMO

26-100

26-23

26-32

PRIO
PRLC
PRMT1
PRMT2

3-68¢
17-80
3-32
3-39¢

12-24
17-11
3-35¢
3-43

41-2C¢

PRMTS

3-60

3-63¢

PRMTS
PRMTA

3-46
3-56

18-52¢

41-18¢

33-51

33-66

33-68

41-17¢

25-17¢

25-23e¢

25-29¢

26-8

18-S4e

18-74s

17-133¢

17-135

24
- 280

19-12

PROFLT

17-59¢

17-153¢

19-9

17-29¢

17-56¢

17-140¢

24 -340

PORTY

17-25¢

34-5¢

24-31

PORCNF

5€Q 0119

02:24:05 PAGE S 6

5-49¢
3-59¢

3-48

3-53
33-68

17-48

3-58

17-83

17-93

17-103

17-117

3-62

N10O

17-1¢5

17-127¢

17-129

17-131

D10
CZCMUCO CMR(V)-11 HOST EXERCISE MACRO vO4.00
CROSS REFERENCE TABLE (CREF VO4.00 )

PSTO

3-25¢
18-143
1-8¢

17-21¢

PSTY
PST2
PST2A
PST3
PSTA
PSTS
PST6
PSTE60
PSY?

17-27
17-34
17-30
17-S1¢
17-56¢
17-65¢
17-68¢
17-69
17-74

PSTYS
PSTEO
PST80S
PST8S
PST9
PST9S

17-78
17-88
17-101
17-91
17-98
17-115

PST?7TS

PSTE

PSTS

RADIX

17-81

17-32

17-55¢

36-3«

RECON
REGMG
REGRES
REGSAV
REMCHG
REFLG
REMND
REMSG
REMST
REMSTH
REMTN
REPO
REP1
REP2
REP20
REP3
REPORT
RESTRT
RFLG

17-20
23-33
29-15¢
29-8¢
23-24
41-21¢
20-8s
22-40
41-240
23-29
41-23¢
25-9
25-15
25-21
25-27
25-32
18-150
3-6
35-13¢

RASPCL
RSPEIF
RSPESF
RSSPCL

9-22
15-22
14-36
9-38

ded

SAFE
SAVEC
SBAK
SCA1
SCA2
SCA2A
SCA28

18-71

S-12e
28-22¢
29-54
23-7
23-21
23-32
23-36

25-18
18-172
3-28

19-5¢

25-24
30-67¢
3-34
19-20

25-30

17-36

17-85
17-11
17-72¢
17-77¢
17-85¢
17-87¢
17-97¢
17-105¢
17-95¢
17-107¢
17-119¢
17-35¢
17-56
36-6
18-49

17-95

17-105

17-61
36-8
37-43¢

36-54¢0

35-25
35-21

37-70¢
35-16
35-12
37-68¢

26-7¢0

29-38

17-23
17-32¢
17-37¢
17-38¢
17-54

17-119

17-138

35-34
35-30

35-43
35-39

35-S2
35-48

20-339

20-45e

22-14

27-14

34-7
29-102
35-31e

35-40e

35-49«

33-33

33-37e

33-52¢

27-41

37-63¢

17-154

41-22¢

25-250

-31¢0

SERTEURLILRIVESE

PROMT
PRTCF

25-12
17-151

PR
TT T I B B

PRNREN
PANTIN

02:24:05 PAGE S 7

33-56

36-26+

36-53¢

33-70

40-32¢

23-53

C1
N

SEQ 0120

E10
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CROSS REFERENCE TABLE (CREF VvO4.00 )

SECS
SKPL
SKPIA
SKPI18
SKP2
SKP3
SKP3A
SKP3B

23-34
23-38
2%-41
23-48
23-18
18-125
23-SS
29-S8
29-62
8-25
6-32
11-16
14-62

29-52¢
4-9e¢
20-6
20-10
TM0-12
20-7
20-19
20-23
20-25

20-20
20-31
20-3S

20-37
20-32
20-43
20-47
20-49
20-44
168
18
18
28
18

SCA2C
SCA20
SCA2E
SCAF
SCAS
SCALM
SCART
SCONT
SCORTN
SCPAD
SCPRTN

23-42¢
23-44¢0
23-43
23-51¢
23-54¢
22-15
23-58¢
29-61¢
29-64¢
8-42

02:24:05 PAGE

23-45

23-47¢

22-21

23-6¢

24 -22

8-71
6-49
11-36
15-23

8-88

9-25
7-22
12-17

4-12

20-15

7-10

12-13
15-30
S-9¢

SEQ 0121

S 8

24-26

27-19

27-24

9-41

37-440
8-45
13-14
17-95

8-74
13-23
17-105

15-41

8-26
12-32
17-85

30-76

40-33¢

8-91
13-31
17-119

9-28

10-11
14-37
22-56

10-40

11-9

27-32

27-53

8-13e
8-62¢
9-17e

8-26
8-75
9-29
13-43»
15-8¢
17-108¢
22-11s
24-29¢
27-50+

8-29
8-77+
9.31e
14-10+
15-10e
17-110e¢
22-13e
24-34¢
28-44¢

9-12+

9-35
14-11e

10-19e
14-13+

13-31
22-30

14-44

14-55

20-28

20-40

18-174¢
33-22¢

40-34¢
T-15e

7-Ss

8-43
8-92

15-24+
17-130s
22-41e
24 -469

41-26¢

8-9e
11-19
14-19«
15-37
17-129¢
22-34
24-35

8-Sle
9-7
10-20e
14-31¢
17-41e
21-11s
23-19¢
27-11e

8-36

8-53»
11-29

10-18¢
14-20e
17-39»
17-136+
22-53¢
27-9

9-4S5
14-16+

8-19
11-22¢
14-21e

17-40s

17-131s
22-42
24-43

7-16

8-48»
9-Se

11-23
14-33
17-42¢
17-13Se
22-47
24-4%

14-40
17-449

17-137¢
22-54
27-8¢

8-Ss
8-54¢
9-9e
10-22¢
14-38¢
17-43+
21-16+
23-26+
27-13e

8-8e

8-56¢

9-11e

11-18«
14-%6¢
17-45¢
21-18+
23-30¢
27-15+

8-65
11-33
14-6S
17-48«
21-17e
23-27
27-12+

C 17N

8-10e

8-%57
9-13
11-28e
14-63¢
17-47«
21-20e
24-14e
27-26»

8-82

13-20
14-72
17-52¢
21-19e¢
23-31
27-14»

8-11
8-59
9-15e

13-17s
14-71e
17-51e
21-23¢
24-16+
27-33¢

9-6¢

13-44
14-74

17-73

2l-21e
23-35
27-16¢

13-33
14-73s
17-72«
22-7e
24-18+
27-42s

13-47¢
15-7»
17-717
21-24+¢
23-39
27-28

1S5-11e

17-97
22-10e
24-17s
27-43

15-13¢

17-108
22-12¢
24-19¢
27-47

CZCMUCO CMR(V)-11 HMOST EXERCISE MACRO VO4.00
CROSS REFERENCE TABLE (CREF Vv04.00 )

SPRCLR
SPROAT
SR

SRTST
SSWR
STO

ST1
ST10
ST100
ST101
ST110
ST110S
ST111
ST112
ST120
ST120S
ST121
ST13

27-51
7-9
7-21
3-21e
8-86
13-13
16-66
18-167

28-45
38-6¢
38-7¢
3-22
9-22
13-22
17-12
22-29

28-59

28-62

28-64¢

29-74¢

41-270

6-31
9-23
13-30
17-79
22-37

7-9
10-10
14-36
17-90
22-50

7-21
10-35
14-43
17-99
23-22

29-30¢
29-30
6-32

41-28

6-48
9-39
14-29
17-89
22-49

5-19
1-10¢
6-25¢

30-27¢«

6-41
9-38
13-50
17-80
22-38

6-42

6-49

16-72

30-20

6-28
8-47
8-53¢
8-58
8-64¢
8-70
8-67
8-76
8-82¢
8-87
8-84
8-93

30-23

6-33¢
8-51¢
8-61
8-62¢
8-74
8-740
8-75¢
8-80¢
8-91
8-91¢
8-92¢
9-5¢

ST130
ST131
ST131A
ST1i318
ST132
ST132S
ST133
ST134
ST135
ST135S
ST136
STi4
ST1S
ST1S0
ST16
ST160
ST161

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-9
10-37¢
10-33
11-7
11-14

9-10
9-17¢
9-11¢
9-16
9-32
9-28¢
9-29¢
9-33¢
9-48
9-44¢
9-45¢
10-5¢
10-18¢
10-38
11-3¢
11-10¢
11-17¢

ST17
ST170
STI170R
S118
ST180
ST181
ST182
ST183
ST19
ST1A
sT2

11-34
12-7¢
12-14¢
12-28
13-12
13-20¢
13-21
13-29
13-34
6-34¢
6-38

12-3¢
12-13
12-19
12-33
13-15¢
13-36
13-24¢
13-32¢
13-42¢
6-40
6-43¢

ST162

$T20

ST200
ST201

SEQ 0122

02:24:05 PAGE S-9

11-24

13-49

14-22¢
14-240

11-27¢

14-8¢

8-22
11-8
14-54
17-100
24-32

8-79

8-95
9-28

9-44

10-11
10 40
11-9
11-16
11-26
11-36

12-17
12-18

13-4¢
13-16

13-14
13-23

13-31
13-S1

14-320

14-37

14-44

14-28

8-23
11-15
14-61
17-113
27-31

8-39
11-25
14-68
17-114
27-38

8-40
11-35
15-22
17-142
27-39

8-68
12-11
15-29
17-146
29-30s

8-69
12-16
15-40
18-46
29-53

8-85
12-31
16-62
18-163
29-57

G610
C2CMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CROSS REFERENCE TABLE (CREF vO4.00 )

TALLY

TBLAD

TErP
THRUF

TICKS
TPCONT
TPOF CH
TPOUTX
TRP4
TSTHDR

14-31¢
14 -38¢
14-45¢
14-53
14-56¢
14-63¢
14-70¢
15-23

15-16
15-24¢
15-31¢
15-34
16-4¢
16-15
16-7¢
16-60¢
16-61
16-67

14-69

30-19¢
23-23

30-24
24-33

30-34
29-43¢

29-31s

29-43

41-30¢

38-40¢
18-84
24-52¢
19-13s
29-98
18-155¢
4-8¢

18-88
41-31¢
19-16¢
41-330
18-157¢
5-8e

18-94+

18-95

24-12

41-32¢

23-56¢
30-80

40-350
40-36¢

15-30

15-41

16-644
16-71¢

3 TSI 31 355¢

8-33

8-49

“

]

7-29

G2B3rSEReRRERIRY

U
®

]
-

7-230

14 62

14-55

7-10

ST80S
ST81
ST82
ST90
ST90S
ST91
STATEN
STErF
STESTF
STRMN
SuDre
ST
SUREG
SURF LG
SURMSG
SYSER

ST60
STél
ST62
ST7
SsT70
ST71
ST80

16-6
16-58
16-63
6-47
6-53¢
6-55

e e

ST224
sT23
S1230
ST23A
ST24
S125
ST26
ST3
ST4
ST6

14-355
14-42
14-49¢
14-51
14-60
14-67
15-5¢
15-14¢
15-15¢
15-21
15-28
15-33¢
15-39
16-12¢
16-5

sT223

14-26

arDuE s NP RAOBI~NIN

€1202
ST203
ST204
S1205
S$1206
ST1207
sT21
ST22
$1220
Sveel
ST222

SEQ 0123

02:24:05 PAGE S-10

38-30¢

29-55

16-103

18-117+

H10

18-137

18-146

19-6+

23-429

23-44

23-46+

H10
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vVO4.00
CROSS RETERENCE TABLE (CREF VO4.00 )

TTOLP

VIDER

VISF

nv-stb
[« XW2 ° yohogRAsy

13-19

VERSM

[

VECTOR

O?Ou Y GHEEEYYES
e

USOFE4

3-24

USOFEL

28-61

WDAT

13-22
29-114

WPODI

29-128
8-6¢
11-21e
16-19«
16-41+
12-31

17-55
37-22¢
3-25
8-42
16-56
18-49
23-33
29-111
38-29¢
38-31¢
38-34¢
38-35¢
37-660
3-49+
16-4
37-45¢
13-18
16-8

38-25¢

38-24¢
29-145¢
29-146¢
29-147¢
8-7
11-22
16-20e
16-42¢
38-22¢

26-14
30-79

26-19
31-22

26-26

26-29
32-24

3-50
9-41

17-19
18-71
25-33
29-128

3-57
16-10
17-20
18-72
26-7
30-19

3-61
16-16

5-15
16-17
17-35
18-114
27-45
30-28

12-22¢

29-75

41-40¢

8-18

8-32+
11-31e
16-25+
16-50+

8-53

8-60»
13-44¢

23-11
30-71

23-12

30-22
37-57¢

33-40

37-19¢

3-33
8-71
16-75
18-50
23-37
29-114

3-40

16-78
18-59
23-50
29-118

3-47
9-25
16-81
18-67
25-4
29-125

12-3»
16-7+

41-340

12-7»

8-17
11-29¢
16-22¢
16-4S¢

23-9
29-89
36-340
36-400
36-36

41-47¢

TTS

TWOSP
TYPCR
TYPCTP
TYPOUT

41-46¢

36-44

30-75

32-13

17-21
18-83
27-41
30-22

28-35
32-38

28-56
33-82

28-74
33-87

29-83
35-58

6-13
16-37
17-102
23-24
28-61
33-40

6-14
16-48
17-116
23-25
29-37
33-45

11-19¢
13-48
16-39¢

11-20e
16-18+
16-40e

40-10¢
40-14¢

8-14+
11-23
16-2is
16-43¢

11-30+
16-23¢
16-46

TTOLF

S 39¢
37-23¢

2RY

5-33
5-15
36-34»

SEQ 0124

TSTRSK
TSTSEL
178
770

02:24:05 PAGE S

11-33
16-30s
16-53s

I10

16-31e
16-54

8-63+
13-45S«

16-33+

41-350

8-64
13-46¢
16-34

8-78+
13-47
16-38s

110
CZCMUCO CMR(V) 11 MHOST EXERCISE MACRO vO4.00
CROSS REFERENCE TABLE (CREF V04.00 )

1-21¢

3-57e

6-41e

8-85e
11-35¢
15-22¢
16-57¢

17-20+

17-99¢
18-50e
18-141e
20-13e
22-40¢
23-28¢
25-12¢
26-34¢
28-26+
29-46¢
29-113e
30-25¢
30-82»
33-45«
35-42¢
1-140
6-14s
8-72e
11-25+
14-68¢
16-37«

17-5Se

R3
R4

18-48¢
18-154¢
23-25¢
25-4¢
27-38¢
28-68+
29-74
29-117e
30-32¢
30-76s
32-41.
33-79
36-40s
1-15¢
20-18
24-4Se
32-17e
1-16¢
27-16
1-17¢
29-19¢
1-16¢
1-19¢
11-9¢
14-55¢
27-53e

3.23¢

3-61e
6-48¢
8-88¢
12-11e
15-29«
16-68¢
17-21¢
17-102
18-53¢

18-143«

20-24¢

22-43¢
23-29¢
25-18+
26-36¢
28-%3
29-+8e
29-114¢
30-28+
31-22¢
33-58+

35-44¢
3.24¢
6-31s
8-85e
11-35e
14-70e

16-47¢
17-79«
18-49+
21-14¢
23-27¢
25-33»
27-41e
26-69
29-T7Se
29-125
30-33
30-78¢
32-45
33-84
36-43s
6-52
20-21
25-Te
32-18e
13-19¢
29-10
16-24+¢
36-17s
29-8
6-32¢
11-16+
14-62¢

29-13

5-24¢
3-69¢

7-9¢

8-90e
12-16¢
15-40e
16-69¢

17-24¢

17-104e
18-59»
18-150e
20-26¢
22-49¢

23-33¢
25-24¢
27-19»

28-35¢
29-52¢

29-116¢
30-38¢
31-26+
33-.82+
35-S1e
3-25»
6-41s
8-88¢
12-11s

14-72+
16-49¢
17-82¢
18-50e
21-15e
23-29s
26-Te
27-43s
28-73s
29-76
29-126¢
30-3S
30-80+
33-19
33-89
36-47s
6-53¢
20-29¢
25-8
32-19
13-20¢
29-18+
16-26+
36-18¢
29-20¢
6-42¢
11-26»
14-69¢
29-21e

3-25¢
5-93«

7-21¢
9-22¢

12-31e
16-10¢
16-70e
17-35
17-113e
18-67+
18-154¢
20-36+
22-52¢
23-37e
25-30¢

27-24¢

28-37¢
29-55¢
29-118e
30-58¢
32-12¢
33-87«
35-53e
3-33»
6-48¢
8-89«
12-16¢
14-T4»

16-55¢
17-83¢
18-59¢
e1-17
23-33¢
26-8¢

27-45¢
29-12
29-02¢
29-128+
30-37¢
31-1%
33-24¢
34-9s

15-18¢
20-30

25-13e
32-S1e
13-2%
36-4¢
16-27

36-24+¢

6-49¢
11-36+
15-23¢
29-%6

SEQ 012%

02:24: 05 PAGE R-1
3-27»
S-14e
7-28¢

9-25¢

13-13¢
16-13e
16-71s
17-5S8e
17-116¢
18-70e
18-169+
20-38¢
22-55
23-40¢
25-33¢
27-31e
28-32¢
29-T7s
29-119
30-61¢
32-13e
33-93+
35-58¢
3-40e
7-9»
9-22¢

12-31+
15-22
16-75e
17-89+
18-67+
22-29¢
23-37«
26-10¢
27-47¢
29-15
29-84¢
29-129¢
30-39
31-16+
33.25
35-57«

13-24

20-33
25-14
32-54¢
13-32
36-14¢
16-32¢
7-10s

12-13s
15-30«
29-59

3-29e
5-15e
8-22¢
9-27e
13-22¢
16-16+

16-75¢
17-58e
17-118e
18-71e
18-172

20-48¢
22-959+
23-50¢

25-34¢
27-38»
208-56¢
29-83e
29-124¢
30-62¢+
32-24¢
34-7e
35-61»
3-47«

3-33.
S-18e
8-25¢
9-38e
13-30»
16-17
16-77¢

17-70e
17-148«
18-72¢
18-173«
20-50e
23-9¢
23-58¢
26-7e
27-41e
28-60e
29-85e

29-125¢
30-67+
32-36¢
34-9
36-15e
3-S50
8-22¢

3-40¢
S-41e

8-27¢

9-41¢

13-50e
16-208+
16-78e
17-7%«
17-151e
18-73s
18-174¢
20-53¢
23-10»
24 -22¢
26-9¢
27-44¢
28-61e
29-87»
29-127»
30-69¢
32-38¢
34-10+
36-23¢

3.42¢
5-43e
8-39«
9-43¢
14-29«
16-29»
16-81e
17-79«
17-152
18-83«
19-9¢
21-31e
23-11e

24 -26»

26-12+
27-4%e
28-63¢
29-89+
29-128¢
30-71e
32-52
35-1S5e
36-39+
3-61e
8-26¢

3-44¢
6-12¢
8-429

10-10s
14-36¢
16-36¢
16-84+
17-82+
17-153¢
18-104¢
19-12¢
21-33
23-12¢
24-208¢
26-14+¢
27-48¢
28-72¢
29-90s
29-130e
30-73e
32-58¢
35-17»
36-419

3.52¢
6-17e

3-S4¢
6-31e

11-1Se
14-61+

11-25¢
14-68+

46-49¢

16-%6

17-13¢
17-92+
18-48+
18-126¢
19-21s
22-29¢
23-24s
24-S4s
26-26¢
27-58s

17-19s
17-94¢
18-49«
18-132+
20-11e
22-37¢
23-2%¢
25-4¢
26-29¢
28-23»

29-100s
30-21¢
30-79¢
33.40¢
35-33¢

29-111e
30-22¢
30-81s
33-42¢
35-3%5¢

6-12¢

6-13e

11-8»

11-15e

16-29¢
17-21¢
17-117¢
18-83¢
23-22¢
24-41
26-33¢

16-35¢
17-35¢
18-46¢
18-114+
23-24»
24-52
27-31»

29-72
29-114¢
30-28¢

29-713e
29-115e
30-31e

29-37¢

29-4S5e

36-8+

3-57
8-25+
9-38»
13-30«
16-10+
16-81e
17-99»
18-71s
22-42¢
24 -32¢
26-15¢
28-23¢
29-56+
29-96¢
30-16+
30-51
31-21e
33-.38+
36-11

13-32
20-41s
25-19s

16-8s
20-42
23-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-32
21-12
26-10
33-50e
16-50

20-8
24-38¢
29-17e
36-9e
18-93s

20-17¢
24-43¢
32-9
36-12
27-6¢

16-34+

16-35

16-44¢

16-46¢

16-47

16-5S

29-9

7-22¢

8-208+
12-32¢
17-85e
35-12¢

8-45»
13-14¢

8-T4e
13-23»
17-10%¢
35.21e

8-91e

10-11e
14-37s
22-56¢
35-39¢

10-40«
14-44¢
27-32¢
35-43¢

T7-21s
9-2%¢

13-13¢
15-29+
16-T769
17-92+
18-68+
22-37
23-39¢
26-11s
27-49s
29-16+
29-86»
30-11e
30-4%
31-17
33-31
36-6

35-14»
16-9¢
36-18

12-17e
1S-41.
29-64¢

9-26¢

13-22s
15-40«
16-789
17-93¢
18-69+
22-40s
23-50e
26-13«
27-51s
29-37s
29-88»
30-15+
30-47
31-19
33-36¢

17-95s
35-16

J10

9-41s
13-50«
16-12¢
16-83¢

17-102+«
18-72+

22-49+

24-35¢
26-164
28-32«
29-60
29-98+
30-17
30-%9
32-14

5-1Se
8-39s
9-42+
14-29¢
16-16+
17-12¢

17-103e
18-77e

22-52¢
24-36»
26-18+
28-34¢
29-69+
29-110
30-19e
30-67s

8-68+

14-S4¢

28-59¢

33-40¢

32-17

36-12¢

33-.45¢
36-22+

30-72¢
32-35¢
33.74
36-34

13-31e
17-119e
35-25¢

8-71s

14-61+

28-61s

30-74¢
32-37e
33-76+
36-37

1 J10
CZCMUCO CMR(V)-11 HOST EXERCISE MACRO VO4.00
CROSS REFERENCE TABLE (CREF Vv04.00 )
sP

$5-48¢

35-52e

12-24¢

1-20¢

29-11e
29-110e
32-54

3-4e

29-12¢
29-117
33-27

3-10e

12-29
29-15
29-122
33.50e

3-12

12-29
29-16

30-41¢
33-51e

SEQ 0126

02:24:05 PAGE R-2

3-12¢

17-65e¢
29-17
30-49«
33.72¢

3-89+
17-6Se
29-18
31-15e
33.83«

3-89
18-36¢
29-19
31-16
33-88¢

S-Se
18-36¢
29-20
31-23
33.92«

K10

$-Se
28-19¢
29-36¢
31-25%
36-11+

12-4¢
26-86
29-59
32-9¢
36-27

12-4+
28-909
29-94
32-10e

12-15
29-8¢
29-9S5e
32-50

12-15

29-9e
29-101¢
32-51

12-19¢
29-10¢
29-108
32-953

K10
CZCMUCO CMR(V) 11 HOST EXERCISE MACRO vO4.00
CROSS REFERENCE TABLE (CREF V04.00 )
DATERR
ERROR
L8

MTPS
PNTH

REGRES
REGSAV
SCOoPE

1-71¢

11- 15

22- 37
1-61¢
22- 49
1-81¢
1-101e
1-87¢
6
16

14
78

18- 59
23- S0
29-125
1-115¢

1-111¢

1-94¢

11- 9
14- 55
27- S3

6-41

13-13
27-31

6-31
23-22
17-13
3-12
3-24
8-25
16-81
18-67
25-4
29-128
35-16
35-12
6-32
11-16
14-62

6-48
13-30
27-38
11-25
24-32
18-47
3-89
3-25
8-42
17-19

18-71
25-33

30-19
35-25
35-21
6-42
11-26
14-69

SEQ 0127

02:24:05 PAGE M 1

14-36

14-43

8-22

8-39
14-54

8-68
14-61

8-85
14-68

9-22

14-29

15-22

10-35
17-113

11-8
22-29

11-35

12-11

12-16

12-31

13-22

13-50

17-12

17-99

18-46

23-23
5-5

24-33
12-4
3-40
8-88
17-21
18-83
27-41
30-28
35-43
35-39

29-55
12-24
3-47
9-25
17-35
18-114
27-45
30-67
33-52
35-48

17-65
3-50

18-36

17-55
18-154
27-49
33-36

3-57
16-10
17-82
22-40
28-23
33-40

3-61
16-16
17-92
22-52
28-37
33-45

5-15
16-17
17-102
23-24
28-61
34-9

16-49
18-49
23-33
29-111

12-13
15-30

12-17
15-41

8-28
12-32
17-85

8-45
13-14
17-95

8-74
13-23
17-105

8-91
13-31
17-119

7-9

3-33
8-Nn
17-20

18-72
26-7
30-22
35-34
35-30
6-49
11-36
15-23

7-21

7-10

7-22

9-41

6-12

10-11

14-37
22-56

6-13

16-75
18-50
23-37
29-114

10-40

14-44
27-32