Digital PDFs

AH-F914A-MC

May 1980

80 pages

Original

4.6MB

view download

OCR Version

3.9MB

view download

Document:	CZCMJA0 CMR11 CMR11 HOST EXERCISER MAY 1980 bw
Order Number:	AH-F914A-MC
Revision:	000
Pages:	80
Original Filename:	CZCMJA0__CMR11__CMR11_HOST_EXERCISER__AH-F914A-MC__MAY_1980_bw.pdf

OCR Text

CMR11 HOST
CZCM JAO

EXERCISER

AH-F914A-MC

EICHE

I
MADE IN USA
:

T TR TR

dhEhoany

IDENT
T
ICAT]ION

SEQ 0001
PROGRAM (ODE
:

AC=F
91 2A-M(

PROGRAM NAME:

CZCMUAO

DATE

(REATED:

30-MAY=-79

MOD]F IED:

14-JAN-80

MAINTAINER:
AUTHOR :
THE

INFORMATION

(MR1*

HOST

EXERCISER

SPECIAL SYSTEMS KANATA
DAVID G. WIENS

[N THIS DOCUMENT

SUBJE(CT

TO (HANGE

W]THOUT NOTICE

AND SHOULD NOT BF CONS RUED AS A COMMITMENT BY DIGITAL EQUIPMENT (ORPORATION. DIGITAL EQUIPMENT COPPORATION ASSUMES NO RFSPONSIBILITY FOR
ANY ERRORS THAT MAY APPEAR [N THIS DOCUMENT.

DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR
THE USE
gI?G‘I?‘ErhIABILIYY
OF ITS SOFTWARE ON
EQUIPMENT THAT [S NOT SUPPLIED BY
L.

TOPYRIGHT

“(*

'979,1980 BY DIGITAL

EQUIPMENT

CANADA L IMITED.

TABIF

CONTENTS

SEQ 0002
SECTION

GENERAL
N

REQUIREMENTS

RESTRICTIONS

CAUT JONS

OPTIONS / CONTROLS

START-UP

TEST

SELECTOR

LOGIC TEST

PORT LOOP-BA(K
HOST-REMOTE EXERCISE
MAINTENANCE ROUTINE

END OF

ERRORS

PASS

NONVN
S NN —

DESCRIPTION

—

TEST

STARTING / RESTARTING

VOOV OOVOVOO

ASSUMPT [ONS

SEQ 0003
GENERAL
THIS PROGRAM IS TO BE USED TO TEST THE COMPACT MICRO REMOTE
(CMR-11) HOST HARDWARE AND TO BASICALLY CHECK COMMUNICATIONS
BE;EJEEN THE HOST HARDWARE ON THE UNIBUS AND THE REMOTE HARDWARE
.
THE

PROGRAM

IS DIVIDED

INTO

PURPOSE 'MAINTENANCE'' ROUTINE:
HOST

LOGIC

PORT

LOOP-BACK

CMR-11

THREE

PARTS,

PL{IS A FOURTH

MULTI-

TEST
TEST

EXERCISE ROUTINE

"MAINTENANCE'" ROUTINE
THE HOST LOGIC TEST IS INTENDED TO BE RUN WITH ALL REMOTE
COMMUNICATION DISABLED OR DISCONNECTED A5 IS THE PORT LOOPBACK TEST.
THE CMR-11 EXERCISE ROUTINE, HOWEVER, CAN BE
RUN WITHOUT CHANGING ANY OF THE HARDWARE FROM TS ‘'INSTALLED"

%EN(%ITIUV.
XT.

FOR THE DETAILS OF

EACH TEST,

SEE

THE ACOMPANYING

REQUIREMENTS

HARDWARE :

PDP-11

(MR-11

CONSOLE

OR LSI-11

HOST MODULE ON THE UNIBUS
TERMINAL ON LINE.

(Q-BUS)

OTHER:
THE PROCESSOR MAINDE(CS AND CONSOLE

TERMINAL

ST HAVE BEEN RUN SUCCESSFULLY BEFORE
THIS PROGRAM.

TESTS

RUNNING

SEQ 0004
3.

RESTRICTIONS

4.
-

PORT

IS NOT ADVISABLE
LOOP-BACK

TO RUN THE LOGIC

TEST OR THE

TEST ON AN 'ON-LINE'' SYSTEM WITH

THE REMOTES ATTACHED AS 'ON-LINE'' DEVICES MAY BE
AFFECTED.
THE CMR-11 EXERCISE ROUTINE, HOWEVER,
MAY BE RUN UNDER THESE CONDITIONC.
COMMUNICATION PORTIONS OF

THESE

TESTS FROM HOST

TO REMOTE
WD REMOTE TO HOST MAY TAKE A CONSIDERABLE LENGTH OF TIME IF THE PORT BAUD RATES ARE SET

LOW (300 BAUD).

CAUTION M ST BE

ENANCE'' ROUTINE

WHICH WILL

EXERCISED WHEN USING

THE

'MAINT-

SO THAT FUNCTIONS ARE NOT STARTED

COMPROMISE

ANY ‘ON-LINE'' SITUATIONS.

ASSUMPT [ONS

5.1

IN THE POR) LOOP-BACK TEST, IT IS ASSUMED THAT WHEN THE
OPERATOR TYPES <CR> INDICATING 'READY'‘, HE HAS LOOPED A

‘T)gRéEHT?(EJnggTPUT

5.2

ARE

IS ASSUMED,

IN THE

REMOTES ATTACHED

é?E?gL/E\R
LE.

INPUT

PHYSICALLY,

CMR-11

(AT LEAST

THIS IS NOT

AND

HAS

SELECTED

EXERCISE ROUTINE,

ONE)

THE CASE,

AND

THAT

THEY ARE

THE ROUTINE WILL

OPTIONS / CONTROLS

SWR =

MEANS

100000
040000
020000
004000
002000

DON'T HALT AFTER ERRORS
DON'T PRINT ERRORS
LOOP ON ERRONEOUS ROUT INE
INHIBIT PROGRAM ] TERAT]ONS
DON'T PRINT END CF PASS

THAT

THERE

PORT

C"WTROL

CHARACTERS

CNTRL=C

RESTART
LN )

CNTRL-T

CNTRL-S

SHOW ‘‘SWR'' OPT]ONS

CNTRL-P
CNTRL-0
CNTRL-F

€.3

SEQ 0005

TEST
SELECTOR
L
L)

PROCEED
ENTER "MAINTENANCE'' DEBUG ROUTINE
SHOW CONSOLE FILL COUNT

NON~SWR PROCESSORS

ON PROCESSORS WITH NO PHYSICAL

THE

OPTIONS

CAN BE

EXAMINED OR

"'CNTRL=S'" AND AT THE

SWITCH REGISTER

CHANGED BY

THE

TIME OF AN ERROR HALT.

USE

THE

PRINTOUT:
SWR = XXXXXX :
WILL SHOW THE OPT]ONS
AND THE OPERATOR (AN LEAVE THEM (<(CR>) OR (HANGE
THEM (YYYYYY<CR>), THEN PROCEED (CNTRL-P)

LOADING
THE

PROGRAM

BY MEANS OF
THE

THE

DIAGNOSTIC

SUPPLIED

ABSOLUTE
MONITOR

.ARPS

LOADER OR

FORMAT

THF

AND

LOADED

'1OAD'' COMMAND OF

XXDP.

STARTING / RESTARTING

STARTING ADDRESS

RESTARTING ADDRESS

200
204

TEST DESCRIPTION

START uP:

INTERFACE ADDRESS:
INTERFACE VECTOR:

INTERFACE PRIORITY:
IF

TYPE <CR>

TYPE

TYPE <CR> IF

TYPE

XXX<CR>

TYPE <CR> [F

TYPE

X<(R>

THE PROCESSOR HAS NO SWITCH REGISTER,

OPTIONS WILL

NOW BE

SHOWN AND MAY BE

164000

XXXXXX<CR>

ITS

TS 170

JTS

XXXXXX

XXX

TS &

]IS

THE

(HANGED

SWIT(H

(AS

IN #6).

G.2

TEST

SELECTOR:

St ECT

TEST

(HELP MESSAGE

SEQ 0006

(& = HELP):

READS:)

SELECT ONE OF

THE FOLLOWING:

CROR 1 = LOGIC TEST
¢ = PORT LOOP-BACK TEST
3 = (MR-11 EXERCISE
& =

=
=
=
=

~C
CNTR.
CNTRL=-S
CNTRL=~F
CNTRL=C

THIS HELP

INFO

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

FUNCTIONS AND EXAMINING THE
RESULT.

CNTRL=P - PROCEED FROM SW MON]TOR
9.3

LOGIC

TEST:

THE

FOLLOWING

TESTS ARt

PERFORMED:

TEST OF THE PWR-UP SEQUENCE
TEST THE SCPD ADDRESS REG.

TEST

THt

SCPD MEMORY

TEST ALL OF THE (SR
TEST INTERRUPT
TEST PROGRAM INIT.

CHECK SCPD ACCESS KEYS
SIMPLE FUNCTIONS TEST
C.4

PORT

LOOP-BACK

TEST

THE PORT LOOP-BACK

TEST USES

LOOP MAINTENANCE FUNCTION OF
THE

TEST WillL

SELECTED:
PORT #

RUN WITH ONE

THE

PORT

THE HOST F]RMWARE.

PORT

OR WITH ALL

(<CR> = ALL):

THE OPERATOR MUSI ENSURE THAT THE PORT(S)
TESTED IS(ARE) LOOPED FROM XMTR TO R(CVR.

9.5

(MR-11

PORTS

BEING

HOST-REMOTE EXERCISE
THIS ROUTINE STARTS A BACKGROUND SCAN AND WAITS
FOR THE END OF A SCAN OF ALL REMOTES ON ALL PORTS

("'THRU'").

AHERggLL
L
.

DURING THIS WAIT,

THE

(ONSOLE

WwILL

ANY ALARMS O(CUR

RINC

TIMES PER

THE

COMPLE TION OF

THE SCAN, THE PROGRAM SHOWS
PORT CONFIGURATION STATUS AS FOLLOWS:
PORT # O
0
1
2
3
E??T # 1
100
107
102
103

SHOWING EACH PORT ONLY IF THERE ARE REMOTES
ON THE PORT WHICH ARE 'REGULAR'’
FOLLOWING THIS PRINTOUT,

THE

'DIAGNOSTIC'' FUNCTION

IS ATTEMPTED ON EACH REMOTE PRESENT.

DURING THE REMAINDER OF THE EXERCISE. ALL REMOTES
wILL BE EXERCISED WITH THE ‘DIAGNOSTIC'' FUNCTION
AND ALL ALARMS WILL BE INDICATED (BY BELLS) AND
ANY

CHANGES OF REMOTE STATUS WILL BE REPORTED:
xxt REMOTE STATUS (CHANGE w*+«
REMOTE #X
p REGULAR
REMOTE

STATUS NOU;

[RREGULAR
YYYY

"MAINTENANCE'' DEBUG ROUTINE
SEEAgE%?N EHOULD BE

EXERCISED WHEN USING

THIS ROUTINE

THIS ROUTINE OPERATES LIKE A SIMPLE 'ODT''. HOWEVER,

IT ALLOWS EXAMINING AND/OR DEPOSITING ONLY IN THE
CMR-11 SCRATCHPAD MEMORY. FOLLOWING ARE THE OPERATING

CHARACTERS:

XXXX/

(SLASH?

OPEN AND DISPLAY CONTENTS

THE SCPD ADDR *XXxX''

<CR>

(RETURN)

THE

CURRENT

ADDRESS.

<LF>

(LINE

THE

CURRENT

ADDR.

FEED)

AND

OPEN THE NEXT SEQUENTIAL ONE.
XXXX<CR>

DEPOSIT *XXXX''
IN THE

CURRENTLY

DEPOSIT

CURRENTLY

OPEN ADDRESS AND CLOSE
XXXX<LF>

"XXXX'*
IN THE

IT.

OPEN ADDRESS, CLOSE IT AND
OPEN THE NEXT SEQUENTIAL ONE.
G

SET "'STFUN'' OR "MAIN'' TO START
THE

CURRENTLY

PROCEED

OUT

LOADED
THE

FUNCTION

‘'DE-BUC'

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

Bt
{CSR ADDR)/

RE-ASKED).

ALLOWS EXAMINATION GF THE HOST
(SR REGISTER ONLY. NO OTHER

UNIBUS ADDRESSES MAY BE EXAMINED
IN THIS FASH]ON.

SEQ 0007

END OF

PASS
AT

THE

END O

THE

PRINTOUT

EACH PASS OF

AN 'END PASS'' MESSAGE
SWITCH OPTION BIT 10.
IS

END PASS # X ERR.

ANY OF

THE

THREE

TES TS,

[S PRINTED UNLESS INHIBITED BY

THE

(NT.,

FOLLOWING FORM:

:
WHERE

THE PASS NUMBER IN DECIMAL
THE TOTAL NUMBER OF ERRORS SINCE

X
Y

START

(DECIMAL).

THE NUMBER OF ERRORS BECOMES LARGER THAN 64K,

THEN ‘s« QVERFLOW **'' WILL BE PRINTED INSTEAD.
[F SWITCH OPTION BIT 11 = O, THIS MESSAGE WILL BE

PRINTED ONLY AFTER 10 (OCTAL) PASSES THROUGH WHICHEVER
TEST 1S RUNNING. OTHERWISE, IT IS PRINTED EVERY PASS.

10.

FOR

THE

MOST

PART,

ERROR PRINTOUTS ARE

THE

ERROR

THE

PROGRAM LISTING FOR FURTHER DETAILS.

NUMBERS

AND

ADDRESSES

(AN BE

SELF-EXPLANATORY.

USED

FOR

REFERENCE

SEQ 0008

CZCMJAO CMR=-11 HOST EXER
CZCMUA. P11
06-MAR-80

MACY11

30A(1052)

2
3

026346

SSWR

SWREG

000001

000004
000005
000006
000007

000340
000300
000240
000200
000140
000100
000040
000000

100000
040000
020000
010000

42
43

000100

54
55
56

177570

R2
R3

=
=

%2
%3

R4
RS
SP

=
=

y A
%5
%6

P7
P6
PS
P4
P3
P2
P1
PO

=
=
=
=
=
=

340
300
240
200
140
100
40
0

;BIT DEFINITIONS:

004000
002000
001000
000400

50
51
g%

HWSWR

;BUS REQUEST DEFINITIONS:

46
47
48
49

HOST EXERCISER

;REGISTER DEFINITIONS:

fom

SEQ 0009

DEFINITIONS:

177776

000002
000003

16
17

36
37
28
39
40

LIST

000000

2S
26
27
28
29
30
31
%%

PAGE 1

CZCMJAO CMR-11

177776

177570

18
19
20
21

LTITLE

INTERNAL

}%
15

14:09

.SBTTL SYMBOLIC DEFINITIONS
NLIST
TTM

10-MAR-80

B1S
814
B13
B12
Bi1

809
B08

=
=
=
=

B06

810

000200

807

000040
000020
000010
000004

BCS
BO4
803
B02

000002
000001
002000

=
=
=
=

801
800
ISP

=
=
=

100000
40000
20000
10000

4000
2000
1000
400

200

100

40
20
10
4

2
1
BEGIN

.SBTTL MACRO DEF INITIONS

JINITIAL STACK POINTER

CZrMJAQ (MR-11 HOST EXERCISER
Z - AP
06-MAR-80 15:13

57
58

000001

MACY11

30A(1052)

MACRO DEFINITIONS

65
66

67
8

;?
73

‘

75
76
77
78

80
81
c
83
gé

14:09

.MACRO

ERROR

BIT

#814 ,QSR

.+20
#MSG,RO

.MACRO

DATERR

BIT

MB14,aSR

N+1

.MACRO
JSR
.ENDM

HLT
PC,SWHLT

.MACRO

JSR

;}?
. 112

PNTM
A
#A RO
PC,TYPOUT

SCOPE

R5,SCPRIN

.ENDM

: INTER-PDP-11 COMPATABLE MOVE T0 PS

LLL:

.MACRO
MOV
MOV
RTI

MTPS
SRC,?LLL
SRC,~(SP)
#LLL,-(SP)

. ENDM

JREGISTER SAVE AND RESTORE MACROS
.MACRO

shnwnwnr

FRROR

tannnne

;PRINT MESSAGE
JPOINTED TO BY A

sannnwn

IN RO)

. SCOPE LOOP MACRO

108
109

P ,MSG

.tNDM

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

.MACRO
MOV
JSR

FRROR

N+1

.ENDM

Jenennxnx

#P ,ERRNUM
PC,ERR

88
86
90
91
92

102
103
104
105
106
107

P,MSG

BNE
MOV
MOV
JSR
=
.ENDM

BNE
MOV
MOV
JSR

SEQ 0010

JINITIAL ERROR NUMBER

JPRINT MACRO (MSG ADDR

18«1)

1
PAGE 2

sERROR MACROS

10-MAR-80

REGSAV

CZCMJAO CMR-11 HOST EXERCISER
CZCMUA.PI
06-MAR~80 15:13
113

114
115
116
117

RS ,REGSAV

.MACRO
JSR

REGRES
RS ,.REGRES

1
PAGE 3

SEQ 0011

.SBTTL TRAP CATCHfRS

121

000000

000000
000002

000002
000004
000006

000000
015466
000340
000176

000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122

000012
000000
000016
0U0000
000022
000000
o~ 2026
000000
000032

129

130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168

14:09

JSR

.ENDM

120

126
125
126
127
128

30A(1052)
10-MAR-80
MACRO DEF INITIONS
. ENDM

};g

122
123

MACY11

000036

000000
000042

000000
000046
000000
000052
000000
000056
000000
000062
000000
000066
000000
000072
000000
000076
000000
000102
000000
000106
000000
000112
000000
000116
0
000122
O

.ENABLE ABS

.
.WORD

WORD
.WORD
.WORD
.REPT
.WORD
.WORD
.ENDR
LWORD
.WORD
LWORD
.WORD

.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
WORD
.WORD
WORD
.WORD
WORD
WORD
WORD
WORD
WORD
.WORD
WORD
.WORD
WORD
.WORD
WORD
WORD
WORD
.WORD
WORD
WORD
WORD
.WORD

=
.+2

O
DVATS®
340
126.
,+2
0

.+2
O
.+2
O

.42
0
.+2
O
.42
C
.+2
O
.+2
O
.42
O
. +2
O
.+2
O
.42
O
.42
O
.+2
O
.42
O
.+2
O
.+?
O
,+2
O
,+2
O
.+2
0

0
;TRAP BAD DEVICE ADDRESSES

[0 I NTo QV, P YV T,V

Sy Qi

i Gl

aV1aN1aN1,N
1oV 1 N1,¥]

F48

219

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

C)'+ O O O

+2
+2

O)e

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000126
000000
000132
000000
000136
000000
000142
000000
000146
000000
000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000176
000000
000202
000000
000206
000000
000212
000000
000216
000000
000222
000000
000226
000000
000232
000000
000236
000000
000242
000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000
000272
000000
000276
00C 00
000302
000000

000124
000126
000130
000132
000134
000136
000140
000142
000144
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204
000206
000210
000212
000214
000216
000220
000222

SREN2EBEIRRRAER
2B ISV

—

md e

)

) ed

D ed

)

d id

nd end ad

169
170
171
172
173
174
175

30A(1052)
10-MAR-80
TRAP CATCHERS

MACY11

CZCMJAO CMR-11 HOST EXER C ) SE R
CZCMUA P11
06~MAR-80
5 13

14:09

M1
PAGE 4

SEQ 0012

CZCMJAO (MR-11 HOST EXERCISER
CZCMUA. P
06-MAR-80 15:13

225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
2460

261
242

243
2644
245
246
247
2648
249
250
251
252
253
254
255
256
257
258
259

260
261
262
263
264
265
266
267
268

269
270
271
272
273
276
275
276
277
278
279
280

000304
000306
000310
000312
000314
000316
000320
000322
000324
000326
000330
000332
000334
000336
000340
000342

000344
000346

000350
000352
000354
000356
000360
000362
000364
000366
000370
000372
000374
000376
000400
000402
000404
000406
000410

000412
000414
000416
000420
000422
000424
000426
000430
000432

000434
000436
000440
000442
000444
000446
000450
000452
000454
000456
000460
000462

000306
000000
000312
000000
000316
000000
000322
000000
000326
0000u0
000332
000000
000336
000000
000342
000000

000346
00000C

000352
000000
000356
000000
000362
000000
000366
000000
000372
000000
000376
000000
000402
000000
000406
000000
000412

000000
000416
000000
000422
000000
000426
000000
000432
000000

000436
000000
000442
000000
000446
000000
000452
000000
000456
000000
000462
000000

MACY11

30A(1052)

10-MAR-80

TRAP CATCHERS

WORD
.WORD
WORD
WORD
WORD
.WORD
.WORD
.WORD
WORD
WORD
.WORD
WORD
WORD
WORD
.WORD
WORD

.+¢
O
.42
O
.42
O
.42
O
.42
O
.42
O
.+2
O
.42
O

.WORD
WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD

.+2
O
.42
0
.42
O
.+2
O
.+2
0
.+2
O
.42

.WORD
WORD
.WORD
.WORD

0
.+2
0
.42
O
.+?
O
.42
0
.42
O
. +2
0
.42
0
.+?
0

.WORD
WORD

.WORD
.WORD
.WORD
WORD
.WORD
WORD
WORD
LWORD
WORD
WORD
.WORD
.WORD
.WwORD

.WORD
.WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD

O
.42

.+2
0
.42
O
.+?
0
.+2
0

14:09

1
PAGE 5

SEQ 0013

CZCMJAO (MR-11 HOST EXERCISER
C2CMJA.PI1
06-MAR-80 15:13

281
282
283
284
285

286
287
288
289
290
291
292
293
296
295
296
297
298
299

000464
000466
000470
000472
000474

000476
000500
000502
000504
000506
000510
000512
000514
000516
000520
000522
000524
000526
000530

300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318

000532
000534
000536
000540
000542
000544
000546
000550
000552
000554
000556
000560
000562
000564
000566
000570
000572
000576
000576

320

000602

322
323

000606
000610

325
326

000614
000616

328

000622

330
321
332
333
334

000626
000630
000632
000634
00063

000642

319

321

324

327
329

335

000612

000624

000640

000466
000000
000472
000000
000476

000000
000502
000506
000512
000000

000516

000522

000526
000532

MACY'1

30A(1052)
10-MAR-80
TRAP CATCHERS

WORD
WORD
WORD
WORD
WORD

WORD
WORD
WORD
WORD
WORD
WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
MWORD

.42
O
.42
O
. +2

O
., ¢?2
O
,+2
O
.42
O
. +2
O
,+2
O
42
O
L2

000566
000000
000572
000000
000576
000000

.WORD
LWORD
.WORD
WORD
L.WORD
WORD
LWORD
LWORD
LWORD
.WORD
LWORD
WORD
.WORD
JWORD
WORD
.WORD
MWMORD
MWORD
.WORD

O
. ¢2
0
,¢2
O
,¢2
O
.2
O
2
O
42
O
. ¢2
O
,¢?2
O
2
O

000000

WORD

WORD
WORD

000536

000542
000546

000552
G00SS6
000562

000602

.WORD

000606

MWORD

000000

worD

000000
000617

000616
000000

WORD
WwORD

GCOONGO

WORD

O
O

00063
000000

WORD
WORD
WwORD
wORD
WORD

000000

wORD

000622

000626
000632

000642

wORD

WORD

*2
o2
02

14:09

PAGE
6

SEQ 0014

CZ(MUAD (MR-11 MOST EXER CISER
CZCMUA. P
06-MAR-80 15:13

000644
000646
000650
000652
000654
000656
000662

10-MAR-80

TRAP (AT(CHERS

MWORD

.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
. WORD
. WORD

000736
000000
000742
000000
000746
000000
000752
000000
000756

.WGRD

. WORD
. WORD
.WORD
. WORD
. WORD
.WORD
. WORD
. WORD
.WORD

000000

000762
000000
000766
000000
000772
000000
000776
000000

LOFC

.WORY

LSBTTL

000212

000200
000167
012706
000005
000167
002000

00157¢
002000

MOV

002262

RESEY

PAGE 7

.42

.WORD
.WORD
.WORD
.WORD
.WORD

14:09

SEQ 0015

.MWORD

.WORD

000712
000000
000716
000000
000722
000000
000726
000000
000732
000000

30A(1052)

.WORD

000646
000000
000652
000000
000656
00000C
000662
000000
000666
000000
000672
003000
000676
00000
000702
000000

000706

SEE

MACY11

.42

+2
0
.42
0
.+
0
.+
0
.42
0
.42
0
.42
0
.42
0
.42
0
.42
0
.42
0

.+
0
.2
0
.2
0

.42

0
.2
0
.2
0
.*2
0
.2
0
. %2
0
SYMBOL
IC LISTING

BEGIN

200

#]SF,SP

RESTIRY

2000

012706
000005

002000

012746
012746
000002

000340
002020

«N

005067

4«03

012737
012737
005737
005067
012737
012737
012767
005777

024254
024220
015440
000340
024274
015450
000340
177570
0242642

012700
004767

017770
014320

400

404

405

406

407

4«08
4«09

410
AN
612
613
614
615
W16

105067

177776

BEGIN:

MTPS

MOV
MOV

649:

MOV
MOV
MOV

ASRTST,
ané
7, nb
#HUSWR
, SR

aSR

FRAD

JASK

1¢4000

CMP
BHIS

024106
000776

PNTM

MOV

JSR
P

015026

KABUF
, #164000
PRMTY

AGAIN

#AGAIN RO

PC, TYPOUT
PROMT

(LR

MOV
JSR
MOV
MOV
ISR
MOV

#DVECT,RO
PC, TYPOUT
VECTOR
, KBBUF
SPRMT2 PCONT
PC. INPKB
w.vssvm

BLOS

PRMT3

PNTM

PRMTS:

PC.INPKB

#DVATST
, amé
@0E VADR

PNTM

177716

PC, TYPOUT

MOV
ST

MOV

020371
01413

;SET UP TO CHECK [F ANY HD SWR
JSEE IF IT'S THERE

PNTM

PC, TYPOUT

SHOER
, 304
DVECT

RBBUF

8776

AGA]N

MOV
JSR

SAGAIN.RO
PC. TYPOUT

PNTM

ODVPR]O

JSR
MOv

PC,TYPOUT
FRKPR10,kBBLY

MOV

PRMT?

#OVPR10,RO

FOR LSI-11

JSET UP TO TRAP [F NO SWR.

JPRINT MESSAGE

JSR

KRRUF
, DE VADR

015072
015064

CHECK

TSTHDR
#TSTHDR ,RO

JSR

PRMT2:

PNTM
MOV

MOV

015110
024052

020450
0146120
024052

sCHECK FOR PSw BSET FLAG

SWRFLG

024216

020424
014202
024130
002220

004767
016767

w1r7776

JSR

PRMT1:

JSTOP INTERRUPTS

#LSTST, ans
#P7 N6

DE VADR
, KBBUF
#PROMT
. PCONT

012700
004767
016767
012767
004767
016767
026727

012700

#P7,~(SP)
#64$,-(SP)

MOV
MOV

020371
014242
177716
015466
024160
015644
000006

012700
004767
000167

015216
024160

012700
004767
000167
012737
005777
012737
005037

SEQ 0016

JINITIALIZE THE STACK
;sCLEAR THE WORLD

#FRAD ,RO

015172

101406

NISP,SP

MOV

026727

PAGE 8

JPREPARE

PROMT:

DEVER
LSIFLG

CLR
CLRB

(LR

000004
000006
024246

020344
014310
024240
002112
016332
015200

014224

RT]

MOV
MOV

000004
000006

012700
004767
016767
012767
004767
016767
103006

MOV
RESET

14:09

JPOINTED TO BY TSTHDR
FOR

1ST UNIBUS ADDR OF

JPRINT MESSAGE

JPOINTED TO BY FRAD

:LOAD DEFAULT ADDRESS

;LOAD RETURN ADDRESS
JGET KBD [INPUT
JREPLACE (MR-11 BASE ADDR

SIS IT WITHIN LIMIT?
JYES, TEST IT
JNO, ERROR & ASK AGAIN
JPRINT ME SSAGE
JPOINTED TO BY AGAIN
;1S IT A GOOD ADDR?
JSET UP FOR FURTHER TRAPS
JALLOW CLOCK TO FUNCTION
JYES, ASK FOR DEVICE VECTOR
JPRINT MESSAGE
JPOINTED TO BY DVE(T
LOAD DEFALLT VECTOR
;LOAD RETURN ADDRESS
;GET xBD INPUT
;REPLACE CMR-11 VECTOR

393
394
395
396
397
398
399

Y] J0A(1052)
MAC1
10-MAR-80
SYMBOLIC LISTING

- o O
(2217, 12,

CZCMUAD CMR-11 HOST EXER CISER
CZCMUA PN
06-MAR-80 15:13

WITHIN LIM]TS?
T PRIOR]TY

(MR-11

CZCMJAD (MR-11 HOST EXERCISER
CZCMUA. PN
06-MAR-80 15:13
449
450
451
(52
453

012767

454
455
456
457

O0c

30A(1052)
10-MAR-80
SYMBOLIC LISTING

000007

177724

014764

PRMT4
:

020371

460
461
462
463
464
465
466
467
468
469
70
471
472
473
474
75

PRMT5:

023670

477

478

AGAIN

W#AGAIN,RO

JMP

PRMT3

005067
012737

000004

012737
012737

000160
000102

012746
012746
000002

005767
001402
004767
000167

RESTRT:

, #4
KBBUF

PNTM

AGAIN

MOV
JSR
JMP

1$:

PRMTS

#AGAIN,RO
PC,TYPOUT
PRMT3

ASL
ASL
ASL
ASL
ASL

KBBUF
KBBUF
KBBUF
KBBUF
KBBUF

MOV
JSR

KBBUF ,PRIO
PC,DEVGEN

SEQ 0017

;LOAD RETURN ADDRESS
;GET KBD INPUT
J1S IT WITHIN LIMITS?
;LOW ENOUGH, OKAY

;NO, ERROR AND ASK AGAIN

;PRINT MESSAGE

;POINTED TO BY AGAIN

JHIGH ENOUGH?
JYES,

OKAY

JNO, ERROR £ ASK AGAIN

;PRINT MESSAGE

;POINTED TO BY AGAIN

JSHIFT

INTO PLACE

;LOAD NEW PRIOR]ITY
;GENERATE

(MR-11

ADDRESSES

TABLES FOR START-UP
EXTBLI
EXTBL?2
EXTBL3

CLR
MOV

EXTBL4
#HDER
, 34

JRESET

MOV

#CLKINT ,a#100

JSET CLOCK VECTOR

MTPS

MOV
MOV

#P7 ,-(SP)
8648 ,-(SP)

JRAISE

TS?

SWRFLG

:NUN~-SWR-PROCE
SSOR?

MOV

:
668

PC,TYPOUT

CMP

BGE

PAGE 9

PRMT4

MOV

(LR
CLR
CLR

RT]

BEQ
JSR
JMP

#340 34102

1%
PC, SWDMP
BCONT

TRAPS

(.P.

PRIOR]ITY

JYES, DUMP SWIT(CM LOCATION

JLINE (LOCK SERVICE ROUTINE.
¢
SIMPLY RETURN. (LOCK NOT USED.

002532

000002

(LKINT:

498
499

500
501
502
5C3%
504

PNTM

;CLEAR OUT ALL

476

A#PRMT3 PCONT
PC,INPKB
KBBUF ,#7

JSR

000004

14:09

MOV
JSR
(MP

BLE

020371
014060

458
459

479
480
481
(82
483
484
485
486
48?7
4«88
489
490
(N
492
493
L9
495
496
497

002302
014142
015010

MACY11

RT]

LSBTTL

002534
002536
002542
002546

00000%

105067
105067

BLONT:

SRETURN FROM 7LOCK [NTERRUPT
SUPERVISOR DISPAT(H

RESET

(LR
(LR8
PNTM

SAFE
DEFLG
TSTSEL

:ALWAYS
DO RESET UPON ARRIVAL
SCLEAR "FILL CNT SAFETY rLAGTM
:CLEAR *DEBUG' FLAG
(PRINT “SELECT TEST (<(R>zHELP)""

CZCMJAO CMR-11 HOST EXERCCISER
06-MAR-80 15:13
CZCMUA. P11
505
506
>07
508
iy —
i
Sl
i S
S
O

OO0 NONN
SN — o

(O RV IV, TV, R [V, IV, RV, 1V, ) N

509

002546
002552
002556
002564
002572
002576
002602
002610
002612

012700
004767
012767

004767
005067
026727
001422
026727

MACY*1

020704
013654
000001
002534
013676
023514
014540

000001

014530

000002

006016
014514

000003

3CA(1052)
10~-MAR-80
SUPERVISOR DISPAT(H

014562
023524

B(NTZ:

007324

MOV
JSR
MOV
MOV
JSR
CLR
CMP
8EQ
e
BNE
JMP
(MP
BNE
JMP

TSTRSK: PNTM
MOV

020733
013560

177656

005067

002670
002674

005067

002710
002714
002716

004767
000005
012767

023476
000010
023416
023354
023376

023414

PC,TYPOUT
#1,KBBUF

#BCONT ,PCONT

PC, INPKB
PCONT

,M
KBBUF
TST
LOG
KBBUF ,#2

177744

177736
002000

023350
177772
177764
1727756
177750
177742
17773%

MOVB:

023300

003022
003026
003032

032777
001007
012700
012767
004767
000002
004567
002714
012767

;PRINT MESSAGE
JPOINTED TO BY TSTSEL
sDEFAULT LOGIC TEST
JLOAD RETURN ADDRESS
;GET KBD INPUT
;CHECK IT FOR *11°°

BCNT?

JIF "2"' DO PORT LOOP TEST
SCHECK 11 FOR '3
I: NOT, GIVE HELP
*3'*"D0 EXERCISE.

PORTLP

KABUF ,#3
TSTRSK

CMREXC

JSR
JMP

BCONT

;AND RE-ASK

LSETTL

HOST

(LR
MOV

LOGIC

THE

[nFO

;PRINT MESSAGE
JPOINTED TO BY HELPM

PC,TYPOUT

TEST

HOST MICRO FIRMWARE.

VERFLG

;CLEAR VERSION PRINT FLAG
JSET ITERATION COUNT
s CLEAR PASS (OUNT

ERRCNT
LGKTSM

sCLEAR £RROR COUNT

#1C,
I TER
PASCNT
OF LOF
#LGKTSM,RO
PL,TYPOUT

#0,CNTR

MOVB,MOVB
MOVB,MOVB
MOVB,MOVB
MOVB,MOVB
MOV ,MOVB
MOVB,MOVB

#310,8(SR
R

JCLEAR 'OVERFLOW‘' FLAG
JPRINT 'LOGIC TEST''

+PRINT MESSAGE

:POINTED TO BY LGKTSM

JINIT
SSET UP TIMER

:MOVB
;MOV8

023336

022552
000001
012670

#M14, 3SR
.+20

013042

#7, ERRNUM

GIVE

THE MICRO TIME
TO GET GOING.

;1S "PWRUP' SET?

YES, OKAY
;ERROR:HOST U.P. FAILED TO START,
.IF

;esesene

040000

FRROR

sseeesne

#NOG
, RO
O
PC

Ne§

ERR

ST0

012474
102000

SEQ 0018

.I1fF CLR, DO LOGIC TESTS
SCHECK T FOR "2

\N,NOGO

003000
003006
003010

JPRINT HELPFUL

CLR

ST0:

PAGE

HELPM
AHELPM
RO

(LR
(LR
PNTM

021543
013516
000000
177774
177766
177760
177752

LOGTST:

#TSTSEL ,RO

;CHECK POWER UP OF
002656

14:09

RS.SCPRIN

C13024

STV

#102000, GOCD

JNOW WATINW

FOR

INTR

< ICMJUAO CMR-11 HOST EXERCISER
C ZCMUA P11
06-MAR-80 15:13

561
562
563
564
565
566
567
568
569
570
S
572
573
574
575
576

577
578
579
580
581
582
583
584
585

586
587
588
589
590
591
592
593

594
595

996
597
598
599

003042
003050

017767
042767
026767
001421
005367
001360
032777
001007
012700
012767
004767
000003
004567
002714
017767
042767
005067
026767
001416

032777
001007
012700
012767
004767
000004
004567
002714
012767
012777
012701
117721

005307
002403
U 3277
000770

MACY11

30A(1052)
HOST

023230
075777
013004

LOGIC

10-MAR-80
TEST

MOV

BIC

{(MP

023202

023242

BNE

022607
000602
012660

012746
N

012400

023142

102000
012716
012712

012732
012724

STZ:

023156

022660
000003
012574

012662

8(SR _BAD

ST3
\N,(SRRST

MOV

SEQ 0019

JINTR & PWRUP SET; OKAY
JWAIT A BIT

JERROF :PWR UP SEQ NOT
;weexvar

FROOR

COMPLETED(BAD 7SR)
2

wavenen

#8314 ,aSR
.+20
MNOTUP
RO
#2 ,ERRNUM
PC,DERR
N+1
STO
RS,SCPRTN

BEQ
DATERR

BNE

GOOD
GOOD ,BAD

JNOW (HK (SR FOR 0'S

*EXCEPT PWRUP £ INTR
;SR = 0'S, 0.k,
JERROR:(CSR NOT RESET
;eeavnne

FRROR

eennnnn

#14,a5R

.+20

#CSRRST
RO

MOV

#3 ,ERRNUM

N+?

ST3:

MOV

STG:

MOV
MOVS

#20,CLK
#1000 ,a8SPAR

#VERSP R
aSPDR, (R1) »

JPOINT AT MEM SPACE
sSTORE VERSION INFO

BLT
INC
BR

STé
8SPAR
ST4

JNO,

023050
023110

\N,NOTUP

#102000,BAD

BIT

012314
000020
001000
026204
023102
023026

MOV

(NTR

BIC

CLR
CMP

012712

040000

8IT
BNE
MOV
MOV
JSR
=
SCOPE
g?g

PAGE

a(SR,BAD

600D ,BAD
ST

DATERR

875777 ,BAD

BEQ
DEC

04000C

14:09

023066

JSR

SCOPE
g?g

MOV

DEC(

PC,DERR

ST0
RS,SCPRIN

(LK

sCOUNTER FOR VERSION ITEMS

;ADDR RESULT SCPD
.DONE?

KEEP GOING

;SPAR REGISTER TEST:
;DO A SLIDING BIT (0) TEST ON THE SCPD ADDRESS REGISTER
JWHILE IGNORING SPAR BIT 08 (UNUSED).
023060
012602
023050

ST6:

015576

(LR
(LR

MOV
BEQ

8SPAR ,BAD
ST160

8l7
BNE
MOV

#8146 ,85R
.+20
#SPR(_R,RO

DATERR

040000

022705

023042

aSPAR
GO0D

\N,SPRCLR

JTEST CLEAR OF

SPAR

.SPAR (LEAR?
JYES, OK

JERROR:CAN'T CLEAR SPAR
;vessnee

ERROR

cencene

MJAO (CMR-11 HCST EXERCISER
MUA P11
06~MAR-80 15:13

MACY11

617

012546

003310
003316

01767
V4767
000005

000004
012460

004567
003254
012767
012767
016767
042767
016777
017767
0462767
042767
V26767
001416

012200

032777
001007
012700
01c. 67
004767
000006
004567
003344
032767
001414
012767
046767
006367
004767
000167

177277

012452

30A(1052)
HOST

N
022756
022744
012514
012506
022752
012474
012466
012456
01245¢

STA0:

ST61:

LOGIC

10-MAR-80
TEST

MOV
JSR

N+

JSR

RS5,SCPRTN

SCOPE

ST6
MOV
MOV
MOV

022716

022732
000005
012334

012422

012054
001000

022632

1727777

022622
022614

022612
022604
012432
177630

ST62:

GOOD ,aSPAR

;LOAD PATTERN
JAND READ T BA(K

a5PAR ,BAD

BIC
BIC

#8308 ,BAD
#8308, GOOD

BEQ

ST62

JSR
ST61
8IT
BEQ

MOV
8IC

SEQ 0020

;SET UP FOR SLIDING O TEST
;SET BIT MASK

MOV

BIT
8NE
MOV
MOV
JSR
=
SCOPE

#-1,PAT
#R00,MASK
PAT,GOOD

#176000,GOOD

CMP

PAGE

ST6

BIC

MOV

#4 ,ERRNUM
PC,DERR

DATERK

040000

14:09

GOO0D ,BAD

\N,SPRDAT

; IGNORE BIT 08
;SPAR DATA 0.K. ?
cIF YES NEXT PATTERN
;ERROR:BAD BITS IN SPAR
Jennnnan

FRROR

nwwvens

RS5,SCPRTN

M09 ,PAT
ST?

N=1,PAT
MASK ,PAT

cOONE WHOLE REG?
;IF YES, NEXT RIN
JRE-LOAD ALL 1°'S
;NO, PREPARE FOR NEXT BIT

ASL

MASK

;ROTATE MASK

JMP

ST61

JAND CONT INUE

JSR

#M14,aSR
.+20
#SPRDAT ,RO
#5 ,ERRNUM
PC,DERR
N+l
ST61

PC.MON]T

;SCRAT(H PAD MEMORY TEST
; (1) uP TOUNT IN REQ SCPD wH I LE FILLING RES SCPD WITH 377°'S
; (2) UP COUNT IN RES SCPD Wk I LE FILLING REQ SCPD WITH 377'S
022620

ST7:
022610

ST70:

022550
022566

022536
022554
022550
022522
012240

ST/71:

ST80:

CLR

8SPAR

+ADDRESS 0

MmOV

WORD ,@SPDR

JLOAD REQUEST SCRAT(H PAD

MOV

#377 ,@SPDR

CLR

BIS

BI(
(€
BHIS
INC
INCB
BR
(LR

(LR

MmOV

MOV
(MP

8EQ

WORD

#8309, aSPAR

#309,3SPAR
aSPAR
, #377
ST71
8SPAR
wORD
S170

@SPAR

wORD

.
;DONE

JNOW.
., . (HECK |7

wORD
, GOOD

@SPDR ,BAL
600D ,BAD

0.k, CONTINLE

CZCMJAO CMR-11 HOST EXER CISER
06-MAR-80 15:13
CZCMUA P11

032777
001007
012700
012767
004767
000007
032777
001010
012700
004767
017700
004767

004567
003606
027727

10-MAR-80
HOST LOGIC TEST

\N, ISATE

BIT
BNE

#814,3SR
+20

022504

022761
000006
012122

012210

MOV
MOV

040000

022456

BIT

JSR

;aewxveann

FRROR

tvwnnwn

JPRINT ALLOWED?

;NO, SKiP [T

;PRINT MESSAGE
JPOINTED TO BY SCPAD
;PRINT SCPD ADDRESS OF ERROR

ST80

aSPAR ,#377
ST82

ST81:

08—'\1
oo
rnny

ST82:
ST90:

ST80

MOV
MOV
P

BLQ
DATERR

040000

022344

023012
000007
011762

012050

040000

022316

012700
004767
017700
004767

021560
01237¢
022274
013324

004567

011452

8IT
BNE
MOV
MOV

JSR

8IT
BNE

ST90S:

001377

ST91:

022246

000377

;ERROR:REQ SCPD ADR TEST ERROR

aSPAR
WORD

032777
001007
012700
012767
004767
000010
032777
001010

001000
022254
022250
001000

SEQ 0021

RS,SCPRTN

022406
022424

022256

N+
#B14,aSR
ST80S
SCPAD

PC.OCTPNT

ST80S:

000377

PAGE 13

#ISATE .RO
#6 . ERRNUM
PC.DERR

RO
aSPAR,

011612

001000
000377
022362
012100

#35CPAD RO
PC.TYPOUT

021560
012532
022434
013464

022416

16:09

DATERR

040000

lelelole)
_— = )
[aS1aN1aV1,0)
—

673
674
675
676

MACY11 30A(1052)

022236

ST10:

022226
022216
022212

ST100:

#1000,aSPAR
#377,G00D
8SPDR ,BAD
GOOD ,BAD

ST91

\N,OSDTE

;evennne

ERROR

tevenen

#M14,8SR
+20
#0SDTE ,RO

#7 . ERRNUM
PC.DERR

N+
14, asR

ST90$

PNTM
MOV
JSR
MOV
JSR
SCOPE
JSR

SCPAD
#5CPAD
RO

(MP
8tQ
INC
BR

8SPAR #1377
ST10

MOV
(LR
MOV
BI(
MOv

#3095 ,3SPAR

ST90

JRES SCPD ALL 1°S?
JYES, 0.K.
JERROR:RESULT SCPD DATA TEST ERROR

PC. TYPOUT

ggpggigfit

JPRINT ALLOWED?

JNO, SKIP IT

JPRINT MESSAGE
;POINTED TO BY SCPAD
;PRINT SCPD ADDRESS OF ERROR

s19%0

RS5,SCPRIN

8SPAR

JALL DONE?

J1F YES, REVERSE IN & OUT

ST90

wORD
RD
, 3SPUR
WwO

#5509, aSPAR
#377,a5PDR

;D0 1T AGAIN WITH A SWIT(H
JLOUNT DOMN UNTIL MHALF =WaY

;AND LOAD REQ SCPD WiThW 1°S

CZCMJAO (MR-11 HOST EXERCISER
06-MAR-80 15:13
CZCMUA P

741

742
743
744
745
746
7647

748

749
750
761
752
753
754
755
756

REENEEER

PPN
= b b b

735
736
737
738
739
740

004130
004136
004144

zaeee EaanmenEne

729

730
731
732
733
734

004252

757
758
759

052777
027727
103005

005277
105267
000753
012777
005067
016767
017767
026767
001432

768

769
770
771

775

776

77?
778
779
78)

004432

1377

022166

022204

001000
022170
022164
022136
011654

022152

ST101:

011666

ST110:

011662
011654

BIS
(MP
BHIS
INC
INCB
BR

MOV
CLR
MOV
MOV

MmP
BEQ
DATERR

BIT
BNE

012700
012767
004767
000011
032777

023047
000010
011536

011624

OV
MOV
JSR

022072

BIT

001010

040000

012700
004767
017700
004767

021560
012146
022050
013100

004567
004172
027727

011226

022032
022040

026767

000377
022002
022000
011516

012700
004767
017700
004767

BNE

PNTM
MOV

JSR

MOV

001377

022022

105267

r32777

774

022202

02212(

0v1007
012700
012767
004767
000012
032777
001010

772
773

10-MAR-80
HOST LOGIC TEST

040000

001007

005277

767

30A(1052)

032777

103005

760
761
7¢,2
763
704
765
766

001000
022176

MACY11

JSR
ST110S: SCOPE
JSR
ST110
(mP
St
BHIS
INC

INCB

ST112:

ST120:

023103
000011
011400

021560
012010
021712
012742

MOV

CLR

MOV

M
8tQ
DATERR

BIT
BNE

040000

B8R

MOV
MOV

JSR

021734

BIT

ST120S:

BNE
PNTM
MOV
JSR
MOV
JSR

SCOPt

14:09

#309,aSPAR
9SPAR, #1377
ST101
@SPAR
WORD

ST100
#309,aSPAR
WORD
WORD
, GOOD
aSPDR,BAD
GOOD ,BAD

sT111

\N,OSATE

PAGE

SEQ 0022
sDONE?
JYES
:NO, KEEP GOING DOwWN

JNOW, ...CHECK T

.OUT ADDR OK?
JERROR:RESULT SCPD ADR TEST ERROR
;annwnes

FRROR

avwwean

#8164 ,aSR
+20
#OSATE ,RO

#10, ERRNUM
PC ,DERR

N+i
#8164 ,aSR

sT110s
SCPAD

#SCPAD ,RO
PC. TYPOUT

aSPAR RO

PC,OCTPNT

JPRINT ALLOWED?

JNO, SKIP [T

JPRINT MESSAGE

JPOINTED TO B8Y SCPAD
JPRINT SCPD ADR OF ERROR

sT119

RS,SCPRTN

aSPAR #1377
ST112

SSPAR
WORD

ST110

#377.G00D
aSPAR
aSPDR ,BAD
GOOD ,BAD

sT121

\N, ISDTE

JNOW CHECK REQ SCPD

JALL 1°S?

JYES,

CHECK

THE

REST

JERROR:REQ SCPD DATA TEST ERR
;eveenne

FRROR

evennee

#8146 3SR

+20

#1:DTE RO
#11 ,ERRNUM
PC,DERR

N+1
#814,35R

s7120s

JPRINT ALLOWED?
JNO, SKIP [T

9SPAR RO

JPRINT MESSAGE
JPOINTED TO By SCPAD
PRINT SCPD ADR CF ERROR

SCPAD
#SCPAD
RO
PC. TYPOUT

P(,OCTPNT

51§20

CZCMJAO CMR-11 HOST EXERCISER
CZCMUA PN
06-MAR-80 15:13

021674

000377

HOST LOGIC

ST121:

021664

10-MAR-80
TEST

14:09

PAGE 15

SEQ 0023

JSR

RS,SCPRTN

BEQ

dSPAR,#377
ST13

;YES,

ST120

:NO,

ST120
(MP

INC
BR

dSPAR

;DONE REQ SCPD?
CHECK

021652
000377

ST13:
ST130:

CLR
MOV

021634
001000
000000
021612

b —d
—

NN
O O
&

—t
b —d

OO0

ST131:
ST132:

BEQ
INC
BR

(LR

MOV

cMP
BEQ

DATERR

040000

021546

023135
000012
011164

011252

040000

021520

012700
004767
017700
004767

021560
011574
021476
012526

004567
004456
027727

010654

021460

BIT
BNE
MOV
MOV
JSR

ST132S:

000377

ST133:

021450
001000
000000
021426
011144

177656

aSPAR,#377
ST131A

8IT
BNE
PNTM
MOV
JSR
MOV
JSR

SCOPE

JSR

ST13
(MP
B8€EQ
INC
JMP

ST134:

MOV

ST135:

MmOV

MOV
(mp
BEQ
DATERR

PAD

'0')

;START AT 0

;THIS LOC (#0) CAN BE CHANGED
; TO ANYTHING AND THIS RIN

CAN BE USED FOR ANY DATA

aSPAR

; FILL-UP & TEST

#809,aSPAR

;ADDR RES. SCPD
JTHIS "#0'" MUST ALSO BE

#0.3SPDR

021602

021574
000000
021564
011302

85PAR
#0,aSPDR

ST130

021624
021620
001377

PV
Y o)

032777
001007
012700
012767
004767
000013
032777
001010

021656
000000
021644

005077
012777
027727
001403
005277
000766
012777
012777
027727
001403
005277
000766
005077
012767
017767
026767
001432

CLR SC.

KEEP (HECKING

;CHECK CLEARING ALL SCRATCHPAD LOCATIONS
; FILL THE ENTIRE SCPD WITH A CONSTANT (NORMALLY
; AND THE CHECK IT.

788
789

30A(1052)

011070

—b cd

787

004432
004436
004440
004446
004450
00/ .54

lelolele
— et =)

785

786

MACY11

aSPAR, #1377
ST131

aSPAR

$T1318

aSPAR

#0, GOOD
aSPDR, BAD
GOOD ,BAD

sT13%

\N,RQSPCL

JFILL UP WHOLE Rt S.
JNOW CHECK IT

;THIS LOC

:
.
.

(#0)

(HANGED

SCPD

MUST BE

(HANGED

TO CORRESPOND TO ST130
IN ORDER TO CHECK THE
CORRECT DATA FILL-UP

JERROR:REQ.

SCPD NOT ALL 0'3

;arnnnne

FRROR

teneenn

#B14,3SR

+20

#RQOSPCL ,RO
#12, ERRNUM
PC,DERR

N+T
#8164, aSR

ST132s

JPRINT ALLOWED?
:NO, SKIP IT

PC. TYPOUT

;PRINT MESSAGE
JPOINTED TO BY SCPAD
;PRINT SCPD ADR OF ERROR

SCPAD
#SCPAD ,RO

@SPAR RO

PC,OCTPNT

sT13

RS,SCPRIN

@SPAR #3777
8S5PAR

.DONt HECKING REQ. SCPD?
JYES, CHECK RES., SCPD
JNO, FINISH uP

#1000,@SPAR

;NOW (HECK RES.

ST134

ST132

#0,GOOD
aSPDR,BAD
GOOD ,BAD

ST136

\N_,RSSP(L

SCPD

sTHIS “'#0°" ALSO MUST BE CHANGED
JRES SCPD ALL 0°S?
SJERROR:RES.

SCPD NOT ALL O°S

CZCMJAO CMR-11 HOST EXERCISE R
CZCMUA P11
06-MAR-80 15:1 3

032777

30A(1052)

HOST LOGIC

10-MAR-80

021410

023165
000013
011026

011114

BIT
BNE
MOV
MOV

040000

021362

BIT

0045677 0105T5 =
021322
021312

14:09

TEST

032777
001007
012700

012767
004767
000015

004567
005030

021230

#13, ERRNUM

sT135s

;NO, SKIP [T

#SCPAD RO

JPRINT MESSAGE
;POINTED TO BY SCPAD
;PRINT SCPD ADDR OF ERROR

$T1355: SCOPE
—-c"
T ISR
5713
001377
$T136:
(MP
BEQ
INC

B8R

#814 3SR

011012

SCPAD

PC.TYPOUT
aSPAR RO
PC,OCTPNT

STi3
RS,SCPRTN
aSPAR #1377

021256

THE

IN ALL BITS OF

CSR BEING CLEARED.

BEQ

ST15

023215
000014
010674

010762

BIT
BNE
MOV
MOV
JSR
=
SCOPE

010414

JSR
ST14

021220
000001
4
000001
000200
007777

021214
021202

021170
021116
021106

H ANG

GOOD
. BAD

\N,CLTBER

;SET “'CLRTPB'’

JALL CSR SHOULD BE O
JALL CLEAR?
;ERROR:CLR TPB FAILED

(LR

MOV
MOV

FRROR

ttwnwnn

RS,SCPRIN

AND CHECK (SR

'D.E' FUNCTION

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

MOV
INC
MOV
INC
MOV

THE

(LOW BYTE ALREADY = 0)

#8146 ,aSR
.+20
#CLTBER,RO
#14 ERRNUM
PC,DERR
N+1
ST14

"HANG''
BY USING THE (MR-11

ST15:

SCPD?

NEXT ROUTINE

Jasxnnenn

040000

005132
005140
005144
005152
005160

SYES,

ST135

#804 ,3CSR
GOOD
aCSR,BAD

DATERR

;

005077
012777
005277
012777
005277
012777
012777
012767

;DONE RES.

ST14
3SPAR

MOV
CLR
MOV

CMP

JNOW

005114
005120
005126

JPRINT ALLOWED?

SETTING '‘CLRTPB'' SHOULD RESULT

HIGH BYTE OF

011020
011012

annnnnr

BNE

JSR
MOV
JSR

ST14:

PC,DERR
N+T

PNTM

021240

FRROR

JSR
=

MOV

000020
011024

SEQ 0024

#814,aSR
.+20
#RSSPCL
RO

:TEST "'CLR TOP BYTE'’

012777
005067
017767
026767
001416

PAGE 16
;rannnnwnt

040000

021560
011435
021340
012370
004456

MACYT1

aSPAR

#213,aSPDR
aSPAR
#1,3SPDR
aSPAR
#1,3SPDR

#200,aCSR
#7777 CNTR

THE

(SR

;ADDR REQ.

SCPD

;DATA LEN.

;LOAD MAINT FUNC SUBF #3

JONE REQUEST

;SET "MAIN''SHD CAUSE U.P. HANG
JWAIT FOR THE MI(CRO

CZCMJAO CMR-11 HOST EXERCISER
CZCMUA PN
06-MAR-80 15:13

005166

005172
005174
005200
005202
005210
005216
005224
005226
005234
005234
005242

005777

021104

005367
001372
012767
017767
026767
001432
012767

021074

100403

032777
001007
012700
012767
004767
0000

MACYT1T

30A(1052)

HOST LOGIC

1%:

137600
021062
010644

010656
010652
010644

000000

021040

040000

021102

023257
000015
010520

01060¢

000002
021000

021006

012777

000020

020772

004567
005114

010216

10-MAR-80
TEST

aCSR

DEC
BNE

CNTR
18

BM]

ST150:

MOV

#137600, GOOD

BEQ
MOV

ST16
#0,CNTR

BIT
BNE
MOV
MOV
JSR

#8314 ,aSR
.+20
#DIERR,RO
#15
, ERRNUM
PC.DERR

MOV
CMP
DATERR

14:09

MOV
DEC
BNE
MOV
SCOPE
JSR

ST15

aCSR,BAD
GOOD ,BAD
\N.DIERR

PAGE

SEQ 0025
sMICRO DONE?
;NO, WAIT A BIT

sREAD CSR REGISTER

;DID IT HANG CORRECTLY?
;YES, GOOD
JERROR:CSR NOT RIGHT FOR 'DIE"’
Jannsrnr

FRROR

wannnen

N+

#2,3CSR
CNTR
ST150
#804
, aCSR
ST1S
RS,SCPRIN

;PROGRAM INIT
JWAIT FOR INIT

;CLR TOP BYTE

;CHECK CSR WITH MICRO HUNG

012767
012777
017767
026767
001416
032777
001007
012700
012767
004767
000017
004567
N05312
V12767
012777
017767
026767
001416

032777
001007
012700
012767
004767
200020

137755

000355
020744
010526

010546
020750
010534
010526

040000

020772

023312
000016
010410

010476

ST16:

040000

020704

023344
000017
010322

010410

MOV
CTMP

aCSR.BAD
GOOD . BAD

DATERR

\N,CSRWE

MOV

8IT
BNE

MOV

MOV
N

010460
020662
010446
010440

#137755 ,GOOD

BEQ

010130
137400
000000
020656
010440

MOV

ST160:

JSR

SCOPE
JSR
sT16
MOV
MOV
MOV

sT160

FRROR

vaawrnne

PC.DERR

N+

ST16
RS,SCPRTN

#137400, GOOD
#0,aCSR
8CSR,BAD
\N,CSRCE

JSR

;xaxenar

#16, ERRNUM

DATERR

8IT

;DO THEY SET?
cYES, TRY CLEARING THEM
;ERROR:BAD BITS IN CSR WHILE HUNG

#CSRWE ,RO

GOOD ,BAD

BNE
MOV
MOV

;CHECK R/W BITS OF (SR

#B14,3SR
.+20

TMwP

BEQ

#355.8CSR

ST161

#814.35R

.+20
#CSRCE ,RO
#17
, ERRNUM
PC.DERR

N+i

JNOW,

SEE

THEY CLEAR

:DID THEY (LR?
SYES, NEXT

JERROR:CAN'T CLR LOWw (SR WHILE HUNG
;unnnnnn

ERROR

wwnnennn

CZCMJAO (MR-11 HOST EXcRCiSE R
CZCMUA P
06-MAR-80 15:1 3

005460
005460
005464
005466
005474
005502
005510
005514

004567
005400
012777
012777
017767
005167
042767
016777
027767
001016

032777
001007
012700
012767
004767
000021
004567
005466
012777
012777
017767
005167
042767
016777
026777
001016

MACY11

30A(1052)

HOST LOGIC

010042
000200

020602
020636
020652

ST161:

020576

023403
000020
010130

010302

BIT
BNE

020520

ST162:

020532
020504

032777
001007
012700
012767
004767
000022
004567
005574

012746
012746

\N, SPAVME

;CHECK ACCESS KEYS TO SCPD
JWITH MAIN SET
;READ AN REQ SCPD WORD
;COMPLEMENT IT
JFORGET TOP BYTE
JWRITE COMPL. BACK
JREAD [T BACK AGAIN
21T SHOULDN'T BE THE SAME

sERROR:ACCESSFD REQ SCPD WITH 'MAIN'' SET
sanxnkst

#814 ,aSR
.+20

PC,ERR
N+1

MOV
MOV
MOV

#1,aCSR
#200,3SPAR
aSPDR, WORD

(MP
BNE

WORD ,aSPDR
ST17

023447
000021
010022

BIT
BNE

010174

MOV

MOV
JSR

007626

006014

020454

ST17:

000000
005722
:
648

006056
000100

020430
020334

ST170:

wanwnww

ST161
RS,SCPRTN

WORD

020470

FRROR

#20,ERRNUM

040000

000_40
000240
012777
012777
000240
000240

SEQ 0026

#177400,WORD
WORD ,aSPDR
\N, SPAVFE

;TRY AGAIN WITH ''ST FUN'' SET

JREAD A REQ SCPD WORD
JCOMPLEMENT IT
;FORGET TOP BYTE
JWRITE [T BACK
JREAD IT BACK AGAIN
21T SHOULDN'T BE THE SAME

;ERROR:ACCESSED REQ SCPD WITH "STFUN'' SET
;anxnenr

SsTEST

012777

2
PAGE 18

#200,aCSR
#200,3SPAR
aSPDR,WORD
WORD
#177400 ,WORD
WORD ,aSPDR
@SPDR ,WORD
ST162

JSR
=
SCOPE
g§$61_

ERROR

ST160
R5,SCPRTN

#SPAVME ,RO

BIC
MOV

020476

14:09

MOV

020474
020530
020544

SCOPE
JSR
ST160
MOV
MOV
MOV
BIC
MOV
CMP
BNE
ERROR

007734
000001

TEST

COM

020640
020612
020624

040000

10-MAR-80

#314,aSR
.+20

FRROR

wennnan

#SPAVFE ,RO

#21 ,ERRNUM
PC,ERR

N+1

SCOPE
JSR
ST162

ST162
RS5,SCPRTN

INTERRUPT WITH MICRO HUNG

MOV

#ERINT ,aVECTOR

MOV

#0,-(SP)

MTPS

MOV
RTI

NOF:
NOP

MOV
MOV
NOP
NOP

JSET UP VECTOR FOR ERROR
JALLOW INTERRUPTS

#648
- (SP)

#GDINT ,@VECTOR
#100,3CSR

oIF ONE OCCURS NOW, IT
;1S ERRONEOQUS.
;SET VECTOR FOR GOOD INTERRUPT
;SET INTR ENABLE
¢IF ONE DOES NOT OCCUR NOW,
.
THERE IS AN ERROR

C2CMJAO (MR-11 HOST EXERC]SER
06-MAR-80 15:13
CZCMUA P

MACY11 30A(1052)

10-MAR-80
HOST LOGIC TEST

005746
005746
005754
005756
005762
005770
005774
006002

1057

1058
1059
1060
1061

1063
1

1064

FR3I3 FERNEKN NFREFXRFrS

1053

1054
1055
1056

—

D il e

1050
1051

)

2598 $958% SSEeRRREls

006104

032777
001007
012700
012767
004767
000023
042777

040000

020370

023514
000022
007722

010074

000100

020274

0046567
005726
000167
022626

007520

032777
001007
012700
012767
004767
000024

040000

020320

023552
000023
0C7652

010024

004567
005702
000167
012716
005077
000002
012777
042777

007456

016746
012746
000002

020214
006116

012777
000240
000240
000167
022626
005077

000100

032777
001007
012700
012767

GDINT:

006010
020210
020266
020172

BIT
BNE
MOV
MOV
JSR
=
BIC

14 ,a5R
.+20
MNOINTR,RO
#22,ERRNUM
PC.ERR
N+l
#100,aCSR

aCSR

INTCNT: MOV
BIC

020152

66:

020174

023605
000024
07526

007700

MOV

3,
- (SP)
#648

MOV

#100,3CSR

RT]

NOP
NOP

#ERINTY ,@VECTOR
#100,aCSR

PRIO

INTCNR: JMP

040000

ST170
#ST170R, (SP)

MIPS

ERINTI: CMP
(LR
ERROR

020134

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

CLR

RT]

PRIO,=(SP)

ST18
(SP)e,(SP)e

(SR
\N,WPOD]

BIT
ONE
MOV
MUY
JSR

#814,35R
.+20
#APOD
| RO
824
. ERRNUM
P(.ERR

SCOPE
JSR
INTCNT
P

|NTCN!
RS,S(PRTN

PAGE

SEQ 0027

JERROR:HOST CAN'T INTERRUPT UNIBUS
;anenense

ERROR

vennene

;CLEAR INTR ENAB

RS,SCPRIN

#14,35R
.+20
7
RERINTR,,
#23, ERRNUM
PCERR
N+
ST17
RS,SCPRTN

P
MOV

sT170

BIT
BNE
MOV
MOV
JSR
=
SCOPE
JSR
ST17

MO.

000046

000000

\N,NOINTR

SCOPE

177650

007332

ERROR

JSR
$7170
ST170R: JMP
(MP
ERINT:
ERROR

000054

006134
000100

164:09

Nef

ST1H

JNOw (HE (K PROGAM N7,

s CONT INUE

. POP-POP STA(K

;ERROR:ERRONEOUS HOST INTERRUPT
;esnnnes

FRROR

eenevee

: CONT INUE
: CHANGE RETURN ADDRESS
JCLEAR INTR ENAB
:CONT INUE

JSET UP FOR 2ND ERR INTR

;CLEAR [NTER ENAB
:SET C.P AT DEVICE PRIORITY

SSET INTR ENAB
*NO INTERRUPT SHOULD OCCUR
S OTHIS TIME,
$0.K. CONTINUE
“POP-POP STACK
'CLEAR INTR ENAB

Y:DEVICE IS MIGHER
SERROR:WRONG PRIORIT
ERROR 24 evoeeeae
;enssecs

CZCMJAD (MR-11 HOST EXERCISER
06-MAR-80 15:13
CZCMUA. P
1065
1066
1067
1068
1049
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079

0046567
006202

032777
001774
012777
012701
012702
117712

032777

020066

002000
020010
007572

007604
007600
007572

040000

023646
000025
007454

006416

177772
177764
177756
177750
177742
177734

ST18:

:
MOV

020036
007542

007174
100000

017734

001000
026204
026226
017754

017766

040000

023706
000026
007300

—h —b

) —b —D

o
D

) =

)l o)

) ol
D
el

D ol i

D
)

k)
)

ekl
e

D ol

e
el el

ol wd

)

b et e e s = i - b
&) Q OO0
38
c><un*vanbwnmrdcfizspv8hfiihnmr453

001016

HOST LOGIC

000002

172774
177766
177760
177752
177744
177736

032777
001007
012700
012767
004767
000026

MACY11 30A(1052)

ST180:

ST181:

017746

007104
ST182:

177400
177600

007412

04000V

02376
0000
007276

TEST

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
cMP
BEQ

14:09

8CSR,BAD

8lT

M14,3SR

PAGE 20

#2000, GooD
\N_HITER

SEQ 0028

;D0 HOST "'INIT"
JWAIT A LITTLE

JONLY PWR-UP SHOULD BE SET
;READ (SR
;CSR CORRECT AFTER INIT?
; YES,

CONTINUE

;ERROR :PROGRAM INIT FAJLED
;anveene

FRROR

teevene

+20

BNE
MOV
MOV
JSR

4 4]TER,RO
#25 ,ERRNUM

SCOPE
JSR

ST18
RS.SCPRTN

ST18

#2,3CSR
, MOV
MOV
. MOV
MOV
. MOV
MOV
MOV
.
MOV
MOV MOV
MOV MOV

DATERR

PC ,DERR

N+|

BIT

M1S (SR

JWAIT FOR PWR-UP (OMPL

#1000 ,8SPAR

JNOW READY TO READ VERSION
JPOINT AT ORIGINAL VERSION
JAND SAVE THIS VERSION

BNE
ERROR

R
#VERSP
AVERSUN,R?
aSPDR, (R?2)
ST182
\N,VISF

817
BNE

#814,3SR
+20

8EQ
MOV
MOV
MOV
MOV8B

57180

MOV
JOSR

#v]SF RO
#26 ,ERRNUM
PC ERR

SCOPt
JSR

RS ,SCPRIN

MOV

007452

007436
007434

10-MAR-80

ST180

MOV8
MOvV8
8I(
8i(
(P
8toQ
DATERR

ERROR

veesene

ST180

:NOwW (OMPARE VERSION WiTH ORIG.
1774600, GOOO

£177400 .8AD
N, vIDER

8l!

#M16 ,35R

007362

MOV
MOy

'V%Df“.“o
827, ERinm
& ,DERK

JSR

;envecee

Ne§

012656

anE

JERROR:MI(CRO DIDN®T STORE VERSION STUFF

.*2C

Ne§

JCLR TOP BYTE
JSAME AS FIRST TImg?

JERHOR:OND VERSION NOT SAME AS 15T
;eseeceee

ERROR

eveecse

CZCMJAO CMR=11

wawwwwogogogogogwmmmJ'mmunm.nb
NOWVE
W=D
VBN
VR WRL—=0OY

001020

30A(1052)

HOST LOGIC

ST183:

017606

10-MAR-80
TEST

SCOPE
JSR
ST182
(MPB
MP
BEQ
INC

B8R

006614
006616
006622
006630

012777

ST19:

012777

0177¢

042767
016777
026777
001016
032777
003007
012700
012767
004767
000031
004567
006¢ 34

MOV

[q0
BI(
MOV
(MP
BNE

017560

ERROR

040000

14 :09

PAGE 21

SEQ 0029
ST182
R5,SCPRIN
(R1)+,(R2)+
aSPAR, #1020
ST19
aSPAR

JUPDATE POINTERS
;DONE?
JNEXT WORD

024015
000030
007062

;;

.
:
;

N NN

NNNN WV
NNNVVYVY

oo
8282828
2828
O NN AR
VAR VARD N

NNV NNV N

NNNNVNV
NNV

006740
006744
006752

12777
5277

—

006714
0% 720
006726

12767
12777

—

006642
006650
006656
006662
006670
006674
006702

2277

017424
0174620

9SPDR
. WORD

WORD
#177400,wWORD
WORD ,8SPDR
wORD ,@8SPDR
ST120
\N,SPAVI(

#SPAV]C,RO
#30, ERRNUM

Nel

RS.SCPRIN

ENSURE

;IGNORE TOP 8 BITS
JAND WRITE IT BACK
NOW READ [T BACK

;1T SHOULDN'T BE THE SAME
JERROR:RES. SCR. PAD ACCESSED W[TH INTR (LR
;eneneer

MOV
MOV

-COPt

006666

;CLEAR TOP BYTE OF (SR
;ADDRESS RESULT SCPD
JREAD A WORD FROM T
JCOMPLEMENT T

#1200.35PAR

#14,aSR

JSR

#20,aCSR

BIT

BNE

NOW (HECK SOME

D e
el

CNE
W
OO0

006570
006576

) —d

o
e

D ol
)

i
)

017616

122122

el e

027727
001403
005277
000713

) e

007014

o
e
D
)

il
D
el

ld o

)

el
el
-

e
il

D e

) o

006534
006542
006550
006556

006640

il el

004567
006424

MACYT?

;CHECK ACCESS TO RESULT SCPD WITH INTERRUPT (LEAR

006534

006506
006506
006512
006514
006516
006524
006526
006532

D e

—d et ol

—t el el ed B e

d o ol id e

d e o

D o

D d e

oD d

RN 1St vp S WA= O 000NN
NN o

—
D D D ol o D D
D ed e
WINWNIANNI
VNN NN PNV A

CZCMUA. P

HOST EXERCISE R
06-MAR-80 15:1 3

ERROR

eveeeee

.+20

PC,ERR

ST19

SIMPL 3 FLAN(”MHV

THAT START] NG

"PAINT'"

FUNCTION

GIVES

T
THE CORRECT ERROR STATUS.
ENSURE THAT STARTING THE “MAINT'® FUNCTION WlTH "'MAIN'

WORKS PROPERLY AND GET PORT BAUD RATES.

ST20:

MOV

#0, CNTR

MOV

#20.3CSR

017452

MOV

#210,3SPDR

0172440

MOV

(LR

INC

95PAR

SPAR

44 ,@5POR

sCLEAR TOP BYTE
sADDRESS REQ SCPD
JLOAD "MAIN' FUNCTION
TO EXAMINE HOST
;
.
MEMORY LOCAT]ONS

01742%

;ONE REQUEST

0172416

;@ OF BYTES 1O READ = 2

017402

JSTART ADDR = DFFF

2173720
017316

ST2X:

MOy

(W)

SSET TST BN ON O CMAINTC R

CICMUAD (MR=11 HOST EXERLISER
CZCMUA PN
06-MAR-80 15:13
1177
1178
b
s
D

e
o

b
b

D e o

e
e

D e

o
o
e

D rd o
D

D e
o

D o

s
e

—

SISSIEE
8\)8\1‘?\"'\)

—

)

e
—
—

Ny
o

— e

d o

RO RECeRBIRIRIFTEE

1179

006760
006766
006774
007002
007004
007010
007012

012767
017767
026767
001421
005367
001366

007012
007020
007022
007026
007034

032777
001007
012700
012767
004767
000032

007040
007040
007044
007046
007054
007062
007070
007076
007100

007100
007106
007110
007114
007122
007126
007126

007132
007134
007142
007150
007156
007164
007166
007166
007174
007176
007202
007210

004567
00664¢
012777
012767
017767
026767
001416

032777
001007
012700
012767
004767
000033
004567
006642
012777
012767
017767

140000

017304
007066

MACY11

007100
007074
007266

30A(1052)
HOST

LOGIC

S1201:

017264

040000
0246060
000031
006742

017324
007030

07204
007004
007000
006772

017236

024111
000032
006654

006742

ST222:

040000

ST203:

017150

000033

006566

1228
1231

1032

007230
007236
007244
007252
007260
007266

ST120S:

;IF NOT, WAIT A BIT

§7201

\N,STESTF

JERROR:STATUS WRONG WITH "'STFUN''
ON 'MAIN'’
;enennnen

FRROR

nevenen

+20

#STESTF
RO

#31 ,ERRNUM
PC,DERR

N+

ST20

RS.SCPRTN

#MB16,3SR
+20

ST20%

\N,RSPE
SF

;ADDRESS RESULT SCPD
JCHECK ON FUNCTION
JFUNCTION CORRECT?
JERROR:RESULT

FUNC.

Jeeannen

(ODE WRONG ON MAIN

FRR(Q

eceecen

#RSPESF
RO

#32,ERRNUM
PC ,DERR

N+l
ST20

RS,SCPRIN

MOV
MOV
MOV
(€ ¢
BEQ
DATERR

#1002 ,8SPAR

8l7

#8146 aSR
+20
&#USOFET
RO

SCOPE
ST204:

CNTR

BIT

JSR

sCHECK FOR FUNCOM & INTR

;"FUNCOM'' AND '‘INTR'" SET?

$T202

#1000,aSPAR
#210.,G0O0D
aSPDR ,BAD
6OOD , BAD

ST20

LE0 0030

a(SR,BAD
GOOD ' BAD

MOV
MOV
MOV
(mp
BEQ
DATERR

BNE
MOV
MOV

026152

007214

007214
007220
007222

#8146 ,aSR

JSR
S120

PAGE 22

BIT
BNE
MOV

SCOPF
JSR

017176
006716
006712
006704

#814+815,GOOD

BNE
MOV
MOV
JSR

00637:,

14:09

MOV
MOV
(MP
BEQ
DEC
BNE
DATERR

SCOPE

040000

001002
000377
017166
006704

TEST

MOV
JSR

006462
001000
000210
017254
006772

10-MAR-80

#4377 ,G00D

a@SPDR ,BAD
GOOD ,BAD

S1204

\N,USOFE

sNOW ADDRESS ‘VUSOF**
JSHOULD SHOW °‘TOTAL FAILURE'® CODE
JUSOF 0.K.?

SERROR:"STFUN'' ON "MAIN'' GAVE BAD USOF
;eenenne

FRROR

eeennee

#33 ,ERRNUM
PC

,DERR

S120

RS.SCPRIN

ga
'chgg
#206.8(
SR

#14+815,G00D

@(SR,BAD
GUOD
. BAD
5120¢

JSET XLRTPE'’
JSET "MAIN WITH SAME FUN LOADEL
JCMECK FOR "FUNCOM' L "'INTR''
JUN (OMPLETE?

o C

NP
SEE SRR
W

K K

PN
([l
b _
b
d
D
d
D
d

ny
H
W

—d
—_

ala)

0 CMR-11 4OST EXERCISER
P
O6-MAR-80 15:13
007270
007274
007276
007276
007304
007306
007312
307320
007324

005367
001366
032777
001007
012750
01767
004767
000035
00.567
0Gr222
012777
012767
017767
026767

001416

032777
001007
012700
012767
004767
000036

004567

007222
012777
012767
017767
026767
001416
032777
001007
012700
012767
004767
000037
004567

MACY11

30A(1052)
HOST

LOGIC

017000

10-MAR-80

DEC
BNE
DATERR

\N, STEMF

#314,aSR
+20

040000

017040

026213
000034
006456

BIT
BNE

006544

MOV

JSR

SCOPE
JSR

006176
00100?
20000
016770
006506

017000
00652(
006514
006506

040000

016752

026244
000035
006370

006456

ST206:

ST204
MOV

MOV
MOV
(mP
BEQ
DATERR

817
BNE

MOV
MOV
JSR

SCOPE
JSR

006110

001001
000003
016702
006420

016772
006432
006426
006420

040000

016664

024301
000036
006302

006370

ST207:

S1204

MOV

MOV
MOV
(mp
B8EQ
DATERR

817

(NTR

ST205

AGE 23

SEQ 0037
JWAIT A BIT

JERROR:STATUS WRONG ON 'MAIN'" FUNC
;eeennses

FRROR

wnnwnee

#STEMF
RO

#34 ,ERRNUM
PC,DERR

N+l

ST204

R5,SCPRIN
#1002 .8SPAR
#1,GOOD

aSPDR ,BAD
GOOD ,BAD

ST207

\N,USOFE2

JPOINT AT °USOF"’

s SHOULD SHOW SUCCESS

;USOF 0.K.7?

SERROR:BAD "USOF'' ON "MAIN'" FUNCTION
;wwanene

FRROR

wevenee

#M14,85R
.+20
#USOFEZ2
RO

#35 ,ERRNUM
PC .DERR

N+)

$1204

RS,SCPRTN
#1001 ,8SPAR
#3,G000
8SPDR ,BAD
GOOD ,8AD

ST21
\N,DATLER

JPOINT AT DATA LENGTH
;SHOUWLD BE 3
JWAS T 30
JERROR:"MAIN'" FUNC GAVE BAD DATA LEN.
;eeveene

FRROR

eeencee

16, aSR
.+20
#DATLER
RO

#3
£ 6,
RRNUM
PC ,DERR

Ne§

ST204
RS.SCPRTN

006022

026266
001003
016616
016610
016606

TEST

14:09

#BAUD ,RO

01660

#1003 ,8SPAR

POINT AT BAUD TABLE
JGET RESULTS OF EXAMINE

eSPDR, (RO)

;STORE BAUD RATES

8SPDR, (RO) ¢
@SPAR

JUMHE(K RESULTS OF

;
007534

012777

000020

0105%

STARTING A REGULAR FUNCTION WITH ‘MAIN'
TRY DOING AN "ACTIVATE REMCTE'" FJRST USING ‘MAIN'®, THEN ST N’

S122:

MOy

SR
820,39

JCLEAN TOP BYTE OF

(SR

3t etgeteietdy £33 33
=

Db b2

~N 2OV
NI N WM —=O

d
D
d nd nd
d
d
)
D
d
D
D o
D
d
D wd
d e
)
D
D
)

NN NN NN NN N

e o
el e
-

AN AN AN AN

CZCMUAD (MR-T1 HOST EXERCISER
P11
06-MAR-80 15:13

LV
LVE T o 2Ve]

et
v S

FRRRY

[

S P

1323

007542
007550
007556
007562
007570
007574
007602
007606
007614

012777
012777
005277
012777
005277
012777
005277
012777
012777
032777
001774
012777
017767
012767
026767

000000

004567
007534
012777
01272627
017767
026767
0014616
032777
001007
012700
012767
004767
000041

004567
007534
012777
012777
032777
001774
012777

30A(1052)
HOST

LOGIC

10-MAR-80

016570
016564

MOV
MOV

016552

MOV

016540

MOV

016526
016454
016446

TEST

INC

INC
INC

ST220:
ST221:

016500
006222
006212
00620€

001416

032777
001007
012700
012767
004767
000040

MACY11

MOV
MOV
BIT
BEQ

MOV
MOV
MOV
(MP

BEQ
DATERR

164:09

PAGE 24

SEQ 0032
#0,aSPAR

#60,3SPDR

ASPAR
#2,3SPDR
aSPAR
#1,3SPDR
aSPAR
#1,3SPDR

#200,3CSR

#B14.aCSR

ST221

#1000,aSPAR
aSPDR .BAD
#60, GOOD
600D ,BAD

ST222

\N,RSPEMF

JLOAD '"'ACTIVATE REMOTE'' FUNC
JDATA LEN.

JONE REQUEST

JREMOTE »
JSET "MAIN'Y
JFUNC. (OmPL?

JNO,

WAIT

;JADDRESS RESULT
JREAD RESULT FUNC.

0264341
000037
006070

016452

BIT

BNE
MOV

006156

MOV
JSR
SCOPE

005610
001002
000377
016402
006120

ST1222:

JERRCR:RES.

FUNC.

26
c0

#37 ,ERRNUM
PC,DEPR
N+1

ST122

#1002 .3SPAR

8EQ
DATERR

#377,G00D
@SPDR,BAD
GOOD ,BAD

sT22%

\N,USOFE3

;ADUR ' USOF
"’

sSHOULD

016364

024403
000040
006002

006070

BIT

BNE
MOV

MOV
JSR

SCOPE
JSR

005522
000020
000001
040000

016262

ST223:

ST122
MOV

016246

ST224:

BIT

001002
000364
016270
006006

016300
006020
006014
006006

MOV
MOV
MOV
.

JERROR:"MAIN'" ON REG FUNC GAVE JRONG USOF

016252

RIT

FRROR

cenvene

#M14,aSR
+20
#USOFE3,RO

#4
, ERRNUM
0
PC,DERR

N+l
ST22

R5,SCPRTN

#20,38(SR
#1,3CSR

mi¢ CSK
$T224

#1002 ,8SPAR
#3,64
GOOD
@SPDR _BAD
GOOD
, BAD

S123

\N, USOF E&

040000

SHOW TOTAL FAILURE

JUSOF 0.x.?
;evnesne

040000

eevenns

+20

MOV

MOV
cMP

#RSPEMF ,RO

RS,SCPRTN

MOV

CODE WRONG FOR "MAIN''

FRROR

#8314 @SR

JSR

ST22

CODE

;0.K.?
;vnevane

040000

= 2

sSHOULD SHOW REM, ERROR

<USOF 0.x.?
JERRUR :WRONG USOF ON REGULAR FUNCTION
;esennss

#3146 &SR

.20

ERROR

cocneee

CZCMJAO CMR-11 HOST EXERCISER
CZCMUA. PN
0€-MAR-80 15:13

1376

010074
010100
0 106

0112
0112
0116

012700
012767
004767

024446
000041
005670

004567
010006

005410

000042

000350
177777
026226
026266

[og}
~

—

puurd

purd

-—

016234

010150

012700

012767
012701
012702

010132
010140
010144

o
N
o
~n

010174

010212

67
005367
001372

HOST

LOGIC

005756

10-MAR-80
TEST

14:09

#USOFE4
RO

JSR
=

PC,DERR
N+1

JSR
$7223

RS, SCPRTN

SCOPE

3
PAGE 25

SEQ 0033

MOV

MOV
N

021634
006220

012700
767

021652
006210

767
703

177770
025022

016134

010252

7
004767

006154

700

021666

004767

006070

006367
066703

006144
016070
177617
016056
016052
016046
016042
025022
016032
016026

-t

~N)

006267

—

g
&~oO

—

ogggaaaoooo
Ko oS
RS §WW
N

el
-l
cdd
il ol
)
il
i
—

004767
2¢7
042767
006267
006267

See
g

) =N

010272
010300
010304

016116
016112

elole

006367
066703

010262

004767

01622C

#4171, ERRNUM

ST223

021702
006060
01600«

$123:

TST
BEQ

ST23A:

MOV

#-1,VERFLG

MOV

#3AUD RS

MOV
JSR

SVERSM, 0N
PC.TYPOUI

SPRINT MESSAGE
:POINTED TO BY VERSM

(R1)¢,R0

:DUMP ALL VERSION INFO

JMP

MOV

PNTM

016106

007504
016074

010240
010244

COOO0O0000

FEEREE EE

—d
D o
i
o
e
e
o
el el o
il

:wwwww
0 0
VY3 I88E

021601
006252
000021

7 00
7 67

267

1379

30A(1052)

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

EEeReRsE
- OO

ed
o
e
D o
d
D
D e
D o
d ed
e
D o
d
D
)

NN
N
NN

W NN N NN NN NN
VavalY, Vo (W RV LV, IV, 1V, ]
YV} S W00 [0 ]
V00~ (o

1345
1346
1347

MACYT1

$7230:

MOV

MOVB

#VERSUN R1
VEW_M

#2% CNTR
PC,TT0
CNTR

PNTM

BAUDM

ST230

MOV
JSR
PNTM
MOV
JSR

#BAUDM RO
PC. TYPCUT
PORTOM
#PORTOM,RO
PC.TYPOUT

BIC

#177970 . WORD

ASL

wORD

JSR
PNTM
MOV
JSR

PC. TYPOUT
PORTIM
#PORTIN RO
PC, TYPOUT

ASR
ASR

WORD
WORD

ASR

WORD

MOVS

MOV

ADD
MOV

016062

ST24

JSR
DEC

BNE

016126

VERFLG
ST23A

MOVS
8IC

ASR

MOV

(R2) , WORD

#DRTBL .R3

WORD ,R3
(R3) RO

JUST PRINT "END PASS''

:NO, SET FLAG

:GET VERSION DATA

SAND BAUD RATES

:PRINT "VERSION '’

;PRINT

'BAUD RATES:""

SPRINT MESSAGE
:POINTED TO BY BAUDM
;PRINT '"PORT 0 = '

SPRINT MESSAGE

:POINTED TO BY PORTOM

:SORT OUT CORRECT BAUD RATE

:R3 POINTS AT

:DOUBLE OFFSET

TABLE OF

:USE CORRECT OFFSET
SGET BAUD
:NOW PRINT "PORT 1 = °
SPRINT MESSAGE
:POINTED TO BY PORTIM

WORD

;PUT T IN L.S. BIT PLACES

#BDRTBL .R3

MOV

(R3) RO

WORD R}

P, TYPOUT

;DOUBLE OFF SET
SUSE

1T AS TABLE OFFSET

:PRINT RATE

FOR POR!

PNTM
MOV

PORTOM
FPORT M KO

‘PRINT ‘PORT 2 =
SPRINT ME SSAGE

"G5

\RQ) , WORD

SGET BAUD RATE (ODE

JSR

RATES

SGET NEXT BAUD RATE (ODE
SSORT OUT CORRECT PART

WORD

JSR

:YES,

(RZ) ¢ ,WORD
#177617
. WORD

ASL

ADD

;1S FLAG SET?
*NO

PC, TYPOT

SPOINTED 10 BY PORTM

CZCMJUAO (MR-11 HOST EXER
CZCMUA, o1
06-MAR-80
1601
1402
1403
14604

010356

1405

1606
1407
1408
1409
1410
16411

042767
012703
006367
046703
011300
004767

1454
1456

1456

TEST

BIC
MOV

ASL
ADD

MOV
JSR
PNTM
MOV
JSR
MOVB
BIC
ASR
ASR

015576

004000
000010
015560
002000

172132

012700
016700
004767

ony

010602

ERRERRE 2

1451
1452
1453

LOGIC

10-MAR-80

14:09

PAGE 26

012700
004767
105767

001405

021732
005640
015514
006676
021747

005620

015436

012700
004767

021765
005602

016700

015444
0066 36

004767
000207

SEQ 0034

#177770,WORD

;SORT OUT COKRECT PART

WORD

.DOUBLL OFFSET
JUSE IT AS TABLE OFFSET

PC.TYPOUT

;PRINT BAUD RATE

#BDRTBL .R3

WORD ,R3
(R3) _RO

PORT3M
#PORT 3M_RO
PC.TYPOUT

(R2) ,WORD

#177617. WORD
WORD

ASR
ASR
MOV
ASL
ADD
MOV

29229222222

1450

015776

HOST

042767
006267

1433
1434
1435

1447
1448
1449

7770

30A(1052)

111267

16414
1415
14616
14617
1418
14619
14620
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432

1446

MACY11

012700
004767

1412
1413

1436
1437
1438
1439
14640
1641
1442
1643
1444
14645

SER
:13

JPRINT 'PORT

3 =

FOR PORT 2

JPRINT MESSAGE

*POINTED TO BY PORT3M
;GET CORRECT PART.

sDOUBLE OFFSET
JUSE IT AS TABLE OQFFSET

JSR
JSR
JMP

JPRINT

DEC
BEQ
BIT
BEQ
MOV
INC
817
ant
JSR
JSR
JSR
JMP

UPDATE ITERATION
;DONE 10?
JSINGLE ITERATION?

PNTM

MOV
JSR
MOV
JSR

PNTM
MOV

JSR
1518
B8EQ
PNTM
MOV
JSR

B8R
MOv
JSR

RATE

FOR PORT

JNULLS AFTER PRINTOUT

#10,]TER
PASCNT

#310,aSR
ST126

PC.ENPRTN

PC.NULLS

JUPDATE PASS (OUNT
JEND PASS INHIBIT?

JPRINT END PASS INFO

JNULLS AFTER PRINTOUT

PC ,MON]T

JCHECK FOR CONTROL (HARACTERS
cSTART OVER

ENDPS
#ENDPS ,RO

JPRINT "END PASS # °°
JPRINT ME SSAGE
;POINTED TO BY ENOPS
JGET PASS COUNT

sTd

PC,TYPOUT
PASCNT RO
PC,DE CPNT

ERCTM

FERCTM
RO

PC,TYPOUT

OF
L OF

ENO1

OvVFLMm

by
ENREY

RTS

ERR(NT RO
PC DECPNT
P(

LSBT

FORT LOOP-BA(K TEST

JPRINT

IN DECIMAL

JPRINT “ERROR COUNT = *°

JPRINT MESSAGE
JPOINTED TO BY ERCTM
JCHECK FOR ERROR (NT QVERFLOW
:}; DID'T, PRINT COUNT
DID, PRINT "‘seQVERFLOwee'"

;PR I NT ME SSAGE

HatltNTED TO By OVFLM
Gt T ERROR (OUNT
1T IN DECIMAL

PR INT

€z CMJAQO CMR-11 HOST EXERC]SE R
94 (MUA L1
06-MAR-80 15:1 3

MACY11

1457
1458
1459
1460

011042
011044
011050
011054
011054

N) =4 -3RS
\‘Vg
BN

-t et b s = OO

i
d

—d

1060

1492
1493
16494
1495

1491

1488
1489
1490

1487

1484
1485
1486

1483

010716
0107216
010722
010730
010734
010740
010744
010750
010750
010754
010760
010760
010764
010770
010776
011004
011010
011014
011022
011024
011032
011036

1482

010670
010676
010700
010704
010712

1470
1N
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481

010644
010652
010660
010662
010666
010670

1464
1465
1466
1467
1468
1469

PORT

10-MAR-B0

LOOP-BA(CK

TEST

14:09

PAGE 27

;ASK FOR PORT # TO BE TESTED (<(R>

jelelelalelalolelols

1461

1462
1463

30A(1052)

012767
027727

000000
015420

015422

102000

PORTLP:
PRLC:

BEQ
DEC
BNE
ERROR

015406

032777
001007
012700
012767
004767
000043

040000

022552
000042

002000

004767
012767
005067
005067
005067

015446

BIT
BNE

MOV
MOV

005152

JSR

HLT
JSR
MOV
CLR
CLR
(LR
CLRB

015354

105067

PNTM

012700
004767

012700
004767
012767
012767
004767
005067
026727
001007
012767
005067
000167
101004

005067
000167

012790
0Vs?67
000167
016767
012777
005077
012777
005277

012777

005277

012777

MOV
mMP

PSTO:

MOV
JSR

PNTM
MOV

JSR
MOV
MOV
JSR
(LR
(P
BNE

177777

0152¢4
000034

#0,CNTR

aCSR.,#102000

POK

(NTR

PRLC
\N,NOGO

PSTY:

PSTE:

015224

PST?:

PST2A:

PORTS)

JBETTER CHECK FOR PWR=-UP (OMPL

;POWER UP COMPLETE?

JYES,

CARRY ON

JNO, WAIT A BIT

;ERROR:HOST MICRO FAILED
FRROR

TO START
wrvenne

#3164 ,aSR

+20

#NOGO,
RO
#42 ,ERRNUM

PC,ERR
N+l

PC,SWHLT

#10.ITER
ALLFLG
PASCNT

ERRCNT
OF LOF

PLTM
#PLTM RO
PC.TYPOUT

PORTN

#PORTN,RO
PC. TYPOUT
24 . KBBUF
#PSTO, PCONT
PC. INPKB
PCONT

JRUN LOGIC TEST.

;LOAD ITERATION COUNT

JCLEAR "ALL'" FLAG
JCLEAR PASS COUNT

;CLEAR ERROR COUNT

;CLR OVERFLOW FLAG

;PRINT 'PORT LOOP-BA(K

JPRINT MESSAGE

JDEFAULT

IS “ALL"

;LOAD RETURN ADDRESS
JGET xBD INPUT

::Ss IT DEFAULT (OR 4)°

PORT

PSTE

;WAS

CYES. SET "ALL'' FLAG
GTART WITH PORT 0

IT HIGHER

THAN 42

ALLFLG

*NU, MUST BE A PORT #

AGAIN
#AGAIN
RO

-WRONG',

PST?

PSTO
KB
,PORT
#20,9(SR

9SPAR
#212 ,8SPOR
8SPAR

TRY AGAIN

‘PRINT ME SSAGE

*POINTED TO BY AGAIN

;SAVE POR' #
;CLR TOP BYTE
.ADDRESS REQ. SCR. PAD
LOAD MAINT FUNC.
.70 DO PORT (OOP-BA(K

015212

823, 85P0R

DATA LEN,

015200

81 ,3S5PDR

ONE REQUEST

@SPAR

TEST'

JPOINTED TO BY PLTM
JPRINT 'PORT # (<(R>=ALL) *'
<PRINT MESSAGE
JPOINTED TO BY PORTN

#4
,F
KBBU

PST1
#-1 ALLFLG

PC,TYPOUT

015224
015172

ALL

;eeennes

PST2A

015214
000014

SEQ 0035

= 23

(VL LV, 1V, {V, ]

1558
1559
1560

1561
1562
1563
1564
1565
1566
1567

1568

WD
IDNNESENVNOINNY
oSS OO0NO0ON

\.fl\h\li\l\§

O aO—dmd—des

b od od
2 —a )
—

012767
012701
005277
012177
005367
001371

—=mM

1547

1548
1549
1550
1551
1552
1553
1556
1555
1556
1557

011166
011174
011200
011204
011210
011214
011216
011216
011222
011226
011234
011242
011246
011252
011260

005277
016777
005277
016777

jelolelo)

1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
15641
1542
1543
15644
1565
1566

011142
011146
011154
011160

|V, T

1513
1514
1515
1516

OOO0O

[alal
NN

CMJAO CMR-11 HOST EXER
CMUA PN
06-MAR-80

MACY11

30A(1052)
PORT

LOOP-BACK

INC

015166

015154
015100
PST3:

PSTS:

012700
004767
012767
012767
004767
005067
026727
001356

015062
006104

10-MAR-80

PST4:

MOV
INC
MOV
MOV
MOV

aSPAR

PAGE 28

SEQ 0036

INC
MOV
DEC
BNE

PORT,aSPDR
aSPAR
PORT,aSPDR
#20,CNTR
#DATBL ,R1

sLOAD PORT # (RCVR)
s CHARACTER COUNTER
;LOOP DATA FROM 'DATRL''

PST3

:LOAD DATA BYTE
;LOADED ALL?
;NO, KEEP LOADING

MOV
JSR

#TYPCR,RO
PC.TYPOUT

PNTM

aSPAR
(R1)+,aSPDR
CNTR
TYPCR

MOV
MOV

#PSTS,PCONT
#1236
. KBBUF

KBBUF
, #1236

JSR
(LR

001236

TEST

14:09

BNE

PC. INPKB
PCONT
PSTS

.LOAD PORT # (XMTR)

;PRINT 'TYPE <CR> WHEN READY''
sPRINT MESSAGE
;POINTED TO BY TYP(R

;INDICATE PROMPT PEND ING

JLOAD ANY DEFAULT VALUE

;GET KEYBOARD INPUT
;<CR> ONLY

TYPED?

;IF NOT, KEEP LOOKING FOR [T

;START MAINTENANCE FUNCTION

011262
0112720
011276
011302
011304
011310
011312
011320
011326
011330
011334
011340
011346

011350

011350
011356
011360
011364
011372
011376

011404
011406
011406
011412
011416
011422
011426

011626
011432
011434
011640

011466

012777
012777
005777

100403
004767
000772
012777
027727
001004
004767
000167
027727
103434

000020
000200
014774

015006

015000

PSTS:
PST&:

004632
001002
015016
004606
0004 30
014776

015020
000001

000375

PST60:

MOV

#20,aCSR

TST

aCSR

MOV

aM]
JSR
8R
MOV
cTMP

BNE

PSI7:

012700
004767
016700
004767
004567
0112
00016
027727

103 3%

PST60
PC.MONIT
PST6
#1002, aSPAR
aSPDR
. #1

PSTS

\N,PLFFE

04766

024503
000043
004320

8IT
BNE

#814,aSR
.+20

004472

MOV

#43, ERRNUM

040000

014740

PNTM
MOV

PORTMS
FPORTMS
RO

022331
005014

BIT
BNE

JSR

14700

MOV

005746

PST?s:

004074

000330
014676

JSR

00037¢

PSTB:

JSR

;eesense

FRROR

#8814, 3SR
PST7$

PC,TYPOUT
PORT ,RO

PC,0C TPNT

PSTS
P

END CHK

8.0

SERROR:TOTAL FAILURE OF ‘MAIN'' FUNCTION

PCERR

PSTS

(MP

sNOW (HECK USOF

FFE.RO

SCOPE

JSR

JAND WATCH FOR CNTRL (HARS.

JYES, DONE A PASS
JFUNCTION FAIL?

040000

;LOOK FOR INTERRUPT BIT

@SPDR, #375

BLO

MOV

TOP BYTE

PST?

PC.MONIT
END CHK

(MP

;JCLR

JSET "MAIN''

;DONE SUCCESSFULLY?
JNO, CHECK ERROR TYPE

JSR
P

ERROR

032777
001007
012700
012767
004767
000044
032777
001010

#200.,3CSR

RS.SCPRIN

@SPDR, #376

PST80

JXMTR HUNG UP?

sevenen

CZCMJAO CMR-11 HOST EXER CISER
CZCMJUA P11
06-MAR-80 15:13

PORT

LOOP-BACK

OOOHINOOCNNIONN
O

—t nd e

004767
004567
011262
000167
027727
103434

\N,PLTXTO

014666

#3814 ,aSR

024546
000044
004220

004372

#PLTXTO,RO
#44 ,ERRNUM
PC,ERR

PAGE 29

SEQ 0037
;ERROR:XMTR TIMEOUT ERROR

040000

014640

PST8S:

003774
000230
014576

N+1
#814,3SR
PST8S

PORTMS
#PORTMS ,RO

022331
004714
014600
005646

000373

032777
001007
012709
012767
004767
000046
032777
001010

040000

PST80:

ENDCHK
adSPDR,#373
PST9

014540

017767
032777
001007
012700
012767
00476;
00004
032777
001010

;ERROR;RCVR TIMEOUT ERROR
FRROR

wevennn

#PLRCTO.RO
PC.ERR

PST80S

PORTMS
#PORTMS
RO
PC. TYPOUT

PORT ,RO

PST80S:

PST9:

JPRINT ALLOWED?
JNO, SKIP IT

JPRINT "PORT # **
;PRINT MESSAGE

;POINTED TO BY PORTMS

PC,OCTPNT

PSTS
RS.SCPRIN
ENDCHK
#1001 ,8SPAR
a@SPDR,@SPAR
aSPDR,BAD

#809,38SPAR

#2,8SPAR
@SPDR, GOOD
\N,PLDERR

sADDRESS DATA TO FIND BAD WORD

:GET BAD WORD

.GET GOOD WORD
JERROR:LOOP TEST DETECTED DATA ERROR
;ennnner

040000

#814,85R

026622
000046
004050

#PLDERR
RO

040000

JRCVR HUNG UP?

+20

040000

000130
001001
014470
014462
001000
000002
014440

;NO, SKIP [T

JPRINT ‘PORT # **
sPRINT MESSAGE
JPOINTED TO BY PORTMS

#14,aSR

N+l
#814,aSR

003674

011654

014566

#45, ERRNUM

004567

wxnennnn

JPRINT ALLOWED?

;weexnnr

004272

022331
004614
014500
005546

PSTS
RS,SCPRTN

024574
000045
004120

012700
004767
016700
004767

FRROR

+20

\N,PLRCTO

[a¥Te Yo N NT0 N, N1

O
Ko W
QR oo

e e el el d b

DA
Db
B ed o

— e e ad ek

b Db
d
BB
b ed

b d el el ad d wd ) b wad b

TEST

14:09

Jexnnnes

040000

011506

10-MAR-80

ERROR

011450
011456
011460
011464
011472

—_— b

1586

1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599

30A(7052)

011450

O (elelelelelelelelelele B eolelolele B olololalolololele
o)

1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585

MACY11

ERROR

+20

246, ERRNUM
PC,DERR

Nef

#M14.aSR
PST9S

JPRINT

ALLOWED?

tenennn

1630

1631
1632
1633
1634
1635
1636
1627
1638
1639
1640
1641
1642
1643

elolelolololole]

1625
1626
1627
1628
1629

aSIaIaa3530

CZCMJAO CMR-11 HOST EXERCISE
ISER
CZCMUA. P
1
06~MAR-80 15:13

012700
004767
016700
004767

022331
004460
014344
005412

004567
011262

003540

052777
005767
001441
026727

000020
014262

014300

014312

000003

014302

1644

014256

1646

014246
000003
014234
016244
014222

1645

30A(1052)

PORT LOOP-BACK

PST9S:

ENDCHK:

014312
014306

014274
014256
014252

ENDO:

PNTEND:

004000

014222

000010
014154
002000

014152

014200

PNTO:

PNT1:

176410

005400
003760
177074

PNTM
MOV
JSR
MOV
JSR
SCOPE
JSR
PST5
BIS
TST
BEQ
MP
BLO
CLR
Mov
MOV
INC
MOV
BR

INC

017
MOV

INC
MOV
JMP

014240

014172

10-MAR-80

PNTRTN:

DEC
B8EQ
BIT
BEQ
MOV
INC
8IT
BNE
JSR
JSR

TEST

14:09

PAGE 30

PORTMS
#PORTMS ,RO
PC,TYPOUT
PORT ,RO
PC,OCTPNT

SEQ 0038
JPRINT "PORT # *°

JPRINT MESSAGE
JPOINTED TO BY PORTMS
JPRINT #

PSTS
R5,SCPRIN

#8304 ,a(CSR

;CLR TOP BYTE
;DOING ALL PORTS?
;NO, DONE A PASS
JYES, DONE ALL?
;NO, KEEP GOING
;CLEAR PORT #
IN REQ. SCPD
¢

ALLFLG
PNTEND

PORT ,#3
ENDO

PCRT

#3,aSPAR
PORT ,aSPDR
aSPAR

PORT ,@SPDR
PNTEND
PORT

JNEXT PORT

#3,aSPAR

;PREPARE

PORT ,aSPDR

TO LOAD NEXT

aSPAR

PST5

ITER
PNTO
¥311,aSR

;UPDATE ITERATION COUNT
;SW 11

PNTRTN
#10,1TER
PASCNT

JRELOAD

INH ITERATION

ITERATION COUNT

;UPDATE PASS COUNT
;SW 10 = INH END PASS PRINT

#810,aSR

PNTRTN
PC,ENPRTN
PC.NULLS
PC,MONIT

;PRINT END PASS
JPRINT NULLS

JSR
JMP

PSTS

.SBTTL

HOST-REMOTE EXERCISE

:AND THEN RUN

—2 —d
b
—t

2 b

INE&

012746
0127646
000002

000340
012200

"DIAGNOSTIC'* FUNCTION ON ALL

AVAILABLE REMOTES
REPORT ALL CHANGES OF

CMREX(C: MTPS
MOV
MOV
RT]

PORT

PORT ,aSPDR

;START BACKGROUND SCAN, WAIT FOR 'THRU''
:REPORT_ALARMS WHILE WAITING.
:WHEN "THRU'' SETS, DO A ‘PORT CONF IGURATION STATUS'' REPORT

—

1660
1661

177154

012106
012112
012114
012122
012124
012132
012136
012144
012146
012152
012156
012162

AN 1oV 1,V 1, 8]

1659

012102

OOOO

1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658

MACY11

#340
#3460,-(SP)
#648,-(SP)

REMOTE

STATUS

JINTERRUPT OFF

CZCMJAO (TM
CZCMUA.PTT

012200
012200
012204
012212
012216

HOST EXER CISER

06-MAR-80 15:13
005067
012767

0146106
000010

014042

012274

032777
001007
012700
012767
004767
000050

012777
012777

012700
004767
—=O

S
S

64%:

014072
014044

102000

040000

014070

022552
000047
003422

003574

10-MAR-80

HOST~REMOTE EXERCISE

CELP:

CLR

BIT
BNE

#314,aSR
.+20

JSR

EXS1:

022112

005067
005067
005067
005067
005067

PASCNT

(MP
BEQ
DEC
BNE
ERROR

HLT

003206
013764
013766
000020
000044

14:09

#10,1TER
OF LOF
ERRCNT
#0,CNTR
aCSR,#102000
EXS1
CNTR
CELP
\N,NOGO

MOV
CLRB
CLR
MOV

MOV
MOV

105067
105767

G
) S
G
S
G
R S
G
S

NNNNNNNNNNNNNY
NN
[e RV,} S W =2OV0 YOS W

i S
T

30A(1052)

014030

012244
012246
012246
012254
012256
012262
012270

MACY11

JSR
CLR
CLR
MOV
MOV
PNTM
MOV
JSR
CLRB
CLRB
(LR
(LR
CLR
(LR
CLR

#NOGO,
RO
#47 ,ERRNUM
PC,ERR
N+1
PC,SWHLT
CHNGFL
aCSR
#20,a(SR
#44 ,aCSR
EXCM
#EXCM,RO
PC,TYPOUT

ONCE

THRUF
TALLY

EXTBL1
EXTRLZ
EXTBL3

3
PAGE 31
SEQ 0039
. CLEAR PASS COUNTER

;LOAD ITERATION COUNT
;CLR FLAGS & COUNTERS
JSET UP TO TIME POWER UP
JPWR-UP & INTR SET?
JYES, CONTINUE
JNO, WAIT A BIT
;ERROR:HOST MICRO WON'T START
;annnnnn

FRROR

waknnnw

JRUN LOGIC TEST
;CLEAR STATUS CHANGE FLAG
;START OFF CLEAR
sCLEAR TOP BYTE

JENABLE BKG SCAN £ THRU INTR
JPRINT "‘CMR-11 EXERCISF ROUTINE''
JPRINT MESSAGE
JPOINTED TO BY EX(M

JCLEAR TABLES

EXTBLS

JEXERCISER MAIN LOOP
012370
012374
012400
012406
012410
012416
012422
012424
012430
012634
012436
012442
012444
J12450
012452
012456
012460
012664
012470

EXS2:
013670
013660

003512
013625

EXSPR:

013616

EXS2B

:NO.

#8314 ,a(SR

TSTB

PC,MON]T
THRUF

cCHECK FOR CNTRL
IS "THRU' SET?

1ST8

ONCE

BNE
JSR
BNE

EXS3

(HARS.

JIS FUN COMPL SET?

;CLR TOP BYTE
;s CHANGE FLAG SET?

;1F YES, DO PCS

(HARS

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

EXS2

sNO. WAIT FOR THRU

8EQ

EXS2

NO, WAIT FOR CHANGE OR THRU

BNE
JSR

Exs3

JYES, NEW PORT CONFIG

JSR

FC,PRTUNF

TST

ExS3:

;GO SCAN ALARMS
;sCHECK FOR (NTRL

TST

013612

PC,SCALM
PC,MONIT

#20,a(SR
CHNGF L

8EQ

013702

000222
000400
000072

JSR
JSR
8IT
BEQ
BI1S

JMP

TALLY

CHNGF L

PC,DIAGFU

SKPD¢

JYES,

ANY REMOTES?

SYES, ANY (HANGES PFNDING?
sNO,

GO DO DIAG FUNC ON AVAIL HEMOTES

JTHEN PRINT END PASS STUFF

;DO

A PORT

(ONFIG

FUN",

—

CZCMUAO CMR-11 HOST EXERC]SER

CZCMUA.PTT

06-MAR-80 15:13

1741

5§14

105767

013540

1748

1749

1750
1751
1752
1753
1754
1755
1756
1757
1758
1759

1760
1761
1762

1763
1764
1765

1766
1767

(=]

1247

522
526
530
H

1746

520

1743
1744
1745

Sanr Gur Gur G

1742

puerd Paur GG

1740

—

013570
000074
013640

~nJ

005067
112777
005767

[aY] AONLNVNLNL
AV NI

012674
012500
012506
o [eoleolelolalelols]

1737
1738
1739

012544

012550
012552
012556
012564

012676
012702

177777

000000

000722
025404

000001
000702
025604
000002
000662
026004

012656

012672

C13474

EXS38:

SEQ 0040

8tQ

EXS3A

JNO.

TALLY

Exs38
ONCE

;JNO REMOTES. WAIT FOR THRU

JSR

PC ,REPORT

PNTM

NOREM

JSR
CLRR
BR
(LRB
MOVB

PC. TYPOUT
THRUF
EXS2
THRUF
#-1,ONCE

005767

#°'S

PRT(NF: CLR
CLR
MOV
MOV
JSR
MOV
MOV

JSR

MOV

#NOREM RO

EXS2

JREPORT ALL REGULAR REMOTES

;PRINT 'NO REMOTES..wAITING'

JPRINT MESSAGE
“POIMTED TO BY NOREM
;CLEAR THRU FLAG

:CLEAR THRU FLAG
“CET "ONCE'" FLAG

IN TABLES

;CLEAR ''CHANGE FLAG'
“CLEAR REMOTE TALLY
SSET UP TO CONFIG PORT 0

PC .PORCNF

:DO PORT CONFIG ON PORT 1

#1 ,PORN

#EXTRLS, TBLAD

MOV

SEXTBLG, TBLAD

CHNGF L

BNE

RIS

THE

CHNGF L
TALLY
SEXTBLY, TBLAD
#0 ,PORN
PC . PORCNF
#EXTBLZ, TBLAD

#2 ,PORN

MOV
JSR

000003
000642
013366

ON ALL & PORTS AND SAVES

MOV

JSR

IDLE

Exs38

ONCE

;ANY REMOTES?

;ALREADY DONE REPORT?
JYES, SKIP [T THIS TIME

TSTB

BR
(LRB

;FNAB BKG SCN,CHGST,THRU INTR

:DO PORT CONFiG ON PORT 0

PC . PORCNF

:DO PORT CONFIG ON PORT 2

#3,PORN
PC . PORCNF

:DO PORT CONFIG ON PORT 3

PRTCNF

“1F SO, DO IT ALL OVER

CANY CHANGES PENDING>

— ol

NLRONVNLNLALYNONY
ONUND

—

) el el

OOOOOOOO0O

SSUBROUTINE TO DO THE DIAGNOSTIC FUNCTION ON
“ALL REMOTES WMICH ARE ON LINE AND REGULAR

OO0

33g2gIgBIAFR

lh —d
s
el

NN
N NN

D il
kD
o

el
i

013503

;CLR CHANGE FLAG

MOV

022223
003666
013511

013476
01355¢6
025204

012636

1773
1774

105067
112767
000701

012566
012572
012576
012604
012612
012616
012624
12632

012664

—

012700
004767
105067
000707

ExS3A:

013524

4
PAGE

L
CHNGF
#74 ,3CSR

BNE

001314

CLR
mMov8
TST

"REMOTE

1771

1780

004767

00041
105067

013570

"PERFORMS A P.(.S.

012644
012652

1772

001014

14:09
10-MAR-80
30A(1052)
HOST-REMOTE EXERCISE

INE
SPORT CONFJGURATION STATUS SUBROUT

1768
1769

1770

001406

MACY11

DIAGFU: MOV

MOV

SKP1:

BNE
NP

(R1)e CNTR

SkP1
kP2

-GET TABLE FOR PORT 0

“GET # OF REMOTES ON PORT

"NONE, NEXT PORT

MOV
JSR
DE(

(R1) ¢ ,REMND
PC,DIAGNF
(niR

;GET 1ST REMOTE #
‘DO DIAGNOSTIC FUNC. ON REM,
‘DO ALL REMOTES ON TH]S POWRT

MOV
MOV

SEXTOL2 ,RY
k1)e, CNTR

:GET TABLE FOR PORT 1
S1ST ENTRY |S # OF REMDTES

aNE

SKP2:

#EXTBL R

ant

kPl

SKP3

CZCMJAO (MR-11 HOST EXERCISER
CZCMUA
P11
06-MAR-80 15:13
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810

012754
012760
012764
012770
012774
012776
013002
013006
013010
013014
013020
013024
013030
013032
013036
013042
013044
013050

1812
1813

013060
013064

MACY11

000016
013344
001342
013300

30A(1052)

14:09

PAGE 33

HOST-REMOTE

EXERCISE

JMP

SKP4

;IF

JSR

PC.,DIAGNF

:DO DIAGNOSTIC FUNCTION ON REM.

SKP3:

025604
013266

10-MAR=-80

SKP4:

MOV
DEC
BNE
MOV
MOV

CNTR
SKP3
#EXTBL3,R1
(R1)+.CNTR

JMP
MOV

SKP6
(R1)+,REMNO
PC,DIAGNF
CNTR
SKPS

BNE
SKPS:

SKP6:

(R1)+,REMNO

JSR
DEC

BNE

MOV
MOV

SKPS

#EXTBLG R
(R1)+,(NTR

SKP?
SKP8
(R1)+,REMNO

SEQ 0041
NONE,

NEXT PORT

<GET REMOTE NO.

;GET TABLE FOR PORT 2
*1ST ENTRY

IS # OF

REMOTES

;IF NONE, NE:T PORT
SGET REMOTE #
DO DIAGNOSTIC FUNC.

ON REMOTE

;GET TABLE FOR PORT 3
S1ST ENTRY IS # OF REMOTES

SKP?:

BNE
P
MOV

013066

SKP8:

BNE
RTS

SKP?
PC

:RETURN

1816
1817
1818
1819
1820
1821

013070
013074
013076
013104
013106

SKPD2:

DECf
BEQ

ITER
SKPX0

UPDATE ITERATION COUNT
CIF
e~o PASS

1823
1824
1825
1826

013120
013126
013130
013134

1828
1829
1830
18
1832
1833
1834
1835
183
1837

013144

1811

1814
1815

1822

1827

1838

1839
1860
1841

1842
1843

1844
1845

1846
1847
1848

013054

013140

8IT

013240
000010
013172
002000

013114

013170

SKPX0:

013216

004767
000167

SKPX1:

PC.DIAGNF
CNTR

#311,3SR

:DO DIAGNOSTIC FUNCTION ON REM.
SFINISH ALL REMOTES ON THIS PORT

S Sw 11

INM ITER.

BEQ
MOV

SkPxi
#10, I TER

BIT

#M10,ask

:Sw 10 = INH END PASS PRINT

PC,ENPRTN
PC.NULLS
PC.MON]T
EXS2

:PRINT END PASS STUFF

INC

BNE

175426

004416
002776
177220

JSR
DEC

;1F NONE, DONE'
:GET REMOTE #

JSR
JSR
JSR
NP

PASCNT
skPx|

:RELOAD ITERATION COUNT

SUPDATE PASS COUNT

:KEEP GOING

SSUBROUTINE TO CHECK FOR ALARMS AND CHANGES OF REMOTE STA'E.
:IF ALARM.
.. RING & BELLS
P
IF CHANGE CF REMOTE STATE...SET A FLAG
013150

013156
013160

032777
001415

013120

SCALM:

MOV

013164

013170
013174
013200

013204
(13212

013214
013216

013220
013226

01323%0

8!7
BEQ
JSR
JSR

013064

M12,3CSR
SCAT

#7 R0

PC.TT0
PC.TTO

WR O PeTS
J

SCAY:

8IS

NOP

NOP
NOP

04 . (SR

013050

817

#M13,3( Sk

013102

MOy

£100C , aSPAR

BEQ

S(A3

: ALARMS?
INO, (MECK FOR (MG ST,

CALARM' RING TTY BELLS

;CLR ALARM
SCHANGE OF

STATE?

INO, (HECK THRU

SSEE

THIS IS A SYS ERR

C 4 (MJAO CMR-11 HOST EXERC]ISER
C 4 CMUA P
06-MAR-80 15:13

013246
013254
013256
013262
013270

013274

c&%g FRERNEREFINE RSRRR

FRERLRLLRELLERER

IV
S 33

A —a
onN

e
)
e
i
) e

AN NN
N NN
N

D idd
il
)
-l
el
i
)
el
B
ol el
)
)
il
)
el
el
ol
il
mld
S
—

1851

1852
1853
1854
1855
1856
1857

013236
013244
013246

jolelelelelelalelelalelolalolalalelalolalalalalolelolalolololale)

1849
1850

027727
001415
032777
001007
012700
012767
004767
000051

013100

MACY11

013070

024662
000050
002422

002574

002206

012700
004767

022400
003122

012700
004767
012777
017700
004767

022342
003112
001003
013010
004036

012700
0ue767
005277
032777
001405

022436
003064
012766
00004C

012700
004767
000416
032777
001405

022462
003040

012700
004767

0226475
003016

000100

(MP

BNE
MOV
MOV
JSR
HLT

SCA?Z:

013012

012762

SCA2A:

012716

SCA2(:

012710

SCA2D:

0127¢C>
0.2676

S(AZE:

012576

00« 000

MOV
JSR
INC
B8IT
BEQ
PNTM
MOV
JSR
BR

BIT
BEQ

PNTM
MOV

SCAZB:

177500

JSR

PNTM
MOV
JSR
PNTM
MOV
JSR
MOV
MOV
JSR
PNTM

01740

012520

STALF:

01255¢

SLAS:

012570

EXERCISE

BEQ
ERROR

012720
003746

022506
002740
1227277
000020

10-MAR-80

HOST-REMOTE

000310

040000

004767

30A(1052)

JSR
BR
MOV
JSR
BR
INC
BR
1S7

BEQ
DE(
18T

BNE
(LR8
PNTM
MOV
JSR
MOV
BIS
JP
817
8EQ

14:09

4
PAGE

SEQ 0042

dSPDR,#310
SCA2
\N,SYSER

. OR REMOTE CHANGE
.REMOTE CHANGE IS 0.K.

;ERROR:HOST SYS ERROR.
;anennnxs

FRROR

RUN LOGIC
S50

nenvene

TEST.

#8164 ,3SR
+20
#SYSER,RO

#50, ERRNUM
PC,ERR
N+1
PC,SWHLT
REMCHG
#REMCHG,RO
PC,TYPOUT
REMSG
#REMSG,RO
PC,TYPOUT

#1003 ,35PAR
aSPDR RO

PC,OCTPNT
REMSTM
#REMSTM
RO

PC.TYPOUT
SPAR
#2305 ,aSPDR

SCA2A

RE GMG
#RE GMG , RO
PC.TYPOUT

;PRINT 'REMOTE STATUS CHANGE''

JPRINT ME SSAGE

JPOINTED TO BY REMCHG

JPRINT 'REMOTE # '

JPRINT MESSAGE
JPOINTED TO BY REMSG

;GET THE REMOTE NUMBER
JPRINT T

JPRINT "REMOTE

STATUS NOW '

;PRINT MESSAGE
JPOINTED TO BY REMSTM
JNOW REGULAR?
;NO

'YES. PRINT 'REGULAR''
*PRINT MESSAGE

'POINTED TO BY REGMG

SCA2(
#8306, 3SPDR
SCAB
TRRGMG

JYES, PRINT "'JRREGULAR"’

SCA2D
8SPDR ,RO

JOTHERWISE, JUST PRINT THE STATUS

# ]RRGMG
, RO
PC. TYPOUT

PC.OCTPNT

SCAE

; IRREGULAR?
JPRINT Mg SSAGE
JPOINTED TO BY [RRGMG

TALLY

JAND LEAVE THE TALLY ALONE
JUPDATE TALLY FOR ADDED REMOTE

TALLY

SCAQE

SCA2E
TALLY

TALLY ALRE?DV

=0?

TALLY

SCARF

.NO, 0.K,

ONCE

AL ROF F

SALROr F RO
PC . TYPOUT

o1,

#20,8(SR

scaf

#11 3(SR
SCART

SYES, HAVE TO START OVER
ALL REMOTES ARE NOW [RREGLUL
AR
ME SSAGE

JPOINTED TO BY ALROFF
JSET (HANGE FLAG
SJCLEAR TOP BYTE
JGO SEE [F ANY MODRE “mHANGES.
J1S TRy SET?
JNC,

1 EAVE

&wm
onrno

D
d
—

olole

CZCMJAD (MR-11 HOST EXERCISER
(ZCMUA PN
06-MAR-80 15:13
112767

052777
000207

1727777
000020

MACY11

012531
012540

30A(1052)

10-MAR-B0

HOST-REMOTE

EXERCISE

4
PAGE 35

#=1, THRUF

MOv8

SCART:

14:09

JYES,

ggo.acsn

BIS
RTS

SEQ 0043
SET

THE "‘THRUF'' FLAG

.CLEAR TOP BYTE

; SUBROUTINE TO PERFORM ‘PORT CONF IGURATION STATUS'' ON A GIVEN
;PORT AND

STORE

THE

RESULTS

IN A GIVEN

TABLE.

ALSO

;STORED IS THE STATUS OF EACH REMOTE
.FOR EACH REGULAR REMOTE FOUND, A TALLY IS INCREMENTED
JTABLES ARE
:

;

013540
013544

1957

1958

1949

[e JuVR
Y @

n
"o
&k’:&"mw O\O?Nb

)

50
52
56

032777

001007

[

PORCNF: MOV

]

TBLAD,R1

:TABLE

aSPAR

*ADDR REQ.

ADDR GIVEN BY

#804 ,ACSR

012556

MOV

#140,3SPDR

012544

MOV

#2.,35PDR

012532

MOV

012520

MOV

PORN, 3SPDR

BIS

00, a( SR

“START FUNCTION

BNE
JSR
8R

PN
PC.SCALM
POR0

*NO, WAIT
“SCAN ALARMS AGAIN

MOV

#1000, 35PAR

ERROR

\N,SYSER

012442
012634

01454
000140

CLR

INC
INC

INC

JSR

PORO:

POR0OD:

B]T

JSR

ggvg

012442

BIT
BNE

002146

PORT:

)

& OF ENTRIES

(REM STATI(REM # ]

8IS

012524

D
)

0123%¢

PORN:

aSPAR

#1,3SPDR

aSPAR

PC,SCALM

#3146 (SR

PC ,MONIT

282?“'"‘0

CALLER

SCPD

*LOAD PORT CONF. ST. FUNL.

;DATA LEN. = 2
: ONE REQUEST
:PORT # GIVEN BY CALLER

*CLEAR ALARMS & CHANGES

SFUNCTION COMPLETE®

:ADDR RESULT SCPD

STHIS RESULT

FROM PORT

;ERROR:HOST SYS ERROR.
;eesesse

ERROR

CONF 1G>

RUN LOGIC
5]

TEST

eeceeee

1, ,35R
.+20

#SYSER RO
. ERRNUM
#51

Ne§

JSR
INC
MOV
ASR

PC,SwHLT
@SPAR
9SPDR RO
RO

;ofT ® OF REMOTES

RO, (R1) e
PORL D

;SAVE AS @ OF ENTRIES
S1F MORE THAN 0. LOAD THEM

JSR

MOV
aNE
PORLD:

SSPAR

“CLR TOP BYTE OF (SR

MOV
MOV

ASR

)

195¢

012610

1959

195%

1952

—

1950
1951

-l k) e

)

) b d el

) el e

)

iplelslelolelelololalelclcBoleleleleBNelolelololololololalelole)

013602

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

[

IN THE FOLLOWING 7ORMAT:

PC . ERR

PORX T

MOV

#1003 .35PAR

MOV

MOVB
INC

RO (NTR

@SPDR.(R1)e
SSFAR

:DIVIDE BY &
SIF NONE, EX]T
:GET & OF

ENTRIES

;LOAD REMCTE &

CZCMJAQ CMR=11

CZCMIA. P11
1961
1962

013774
014000

HOST

SXERCISER
S?'

06~MAR-80 15:13
1177217
062777

012342
000003

1963

014006

005367

012262

1965

014014

005767

012300

1964

1966
1967
1968

1969

]'3;9

014012

014020
014022
014026

014032
014040

001364

001002
005067
060067

052777
000207

012324
012320

000020

MACY11

PORXT:

012236

014042
014050
014054

014060
014062

012767
012701
012167

001405
012767

01223¢.

1985

014114

004767

0000852

1987

014724

012167

012144

1988

1989

1990

1991

1992

1993

1994
1995

014106
014120

014130

014132

014140

016144

014150
014154

014156
014164
014170

004767
012701
012167
001405

012767
012701

001405

012767

004767

012701

012167

001405

012767
004767

000207

000076
025404

0000017

000002

014172

2009

014212

2016

PORN

:PORT 0?

JNO,

REP1:

012120

012134
REPS:

REST

“UPDATE

TALLY

;AND RE TURN
STATUS OF

EACH PORT WHI(H HAS ANY
JALLOW 11(DEC) REM'S PER L INE.
GET PORT TABLE
GET # OF REMOTES

:NONE HERE, NEXT PORT
:LOAD PORT NO.

PC ,PRNREM
REXTBLZ
R
(R1)+,(NTR
REPI

;GET &4 OF REMOTES
NONE HERE, NEXT PORT

P( ,PRNREM

;GO PRINT REMOTES ON THIS PORT

#1,PORN

MOV

#EXTBL $,R1

JSR

8EQ

REP2:

REPO
#0,PORN

MOV

012160

#12,.LINLEN
#EXTBLY R
(R1)+,(NTR

THE

*CLR TOP BYTE

THE

THEM ALL?

GET

JNO, NEVER MIND
*YES, CLEAR TALLY

#2304, CSR
TO REPORT

STATUS

(R1)+,(NTR

;GO PRINT REMOTES ONM THIS PORT

JGET & OF

REMOTES

REP?2

:NONE HERE, NEXT PORT

PC ,PRNREM

;GO PRINT REMOTES ON

MOV

#2 ,PORN

MOV

#EXTBLL
R

(R1)+,CNTR

GET & OF REMOTES

B8EQ

REP3

<NONE

JSR

MOV

MOV
JSR
RTS

WE'RE

THIS PORT

DONE

#3, PORN
PC . PRNREM

:GO PRINT REMOTES ON TH]S PORT

JRETURN WHEN DONE

;SUBROUTINE TO DO THE PRINTING PART OF PORT CONF JGURATION REPORT.
“R1 POINTS AT FIRST REMOTE #
SPORN = PORT #
;CNTR = & OF REMOTES ON TMIS PORT

2002
2003
2006

2010
2011
2o1§
2018
2016
200

JSR
MOV

MOV
BEQ

012204

026004

000003
000002

MOV
MOV
MOV

BEQ
MOV

REPO:

025604

000020

REPORT:

012230

012170

1998
1999
2000
2001
2005
2006
2007
2008

;GOT

1%
TALLY
RO, TALLY

RTS

SEQ 0044

CNTR

8NE
CLR
ADD

BIS

36
;LOAD REM.

:REMOTES ATTACHED AND REGULAR.

014070
014074
014100
0141064

1986

1$:

PAGE

aSPDR,(R1)+
#3,aSPAR
PORCN

TST

14:09

BNE

JSUBROUTINL

1980
1981
1682
1983

1984

MOVS
ADD

DEC

}g;}

19/8
1979

10-MAR-80

HOST~REMOTE EXERCISE

012332

1972

1975
1976
1977

30A(1052)

014172
014176
014202
014206

014214
014220
010026
014230
016¢2%
016236
0146242

012700
004767
016700
004767

022331
002230
012112
003162

042700
004767
004767
00537
001426
005367

177400
003176
001712
012040

012100

00133

0°2046

PRNREM: PNTM

PREMO:

PORTMS

JPRINT ‘PORT & *°

MOV
JSR
MOV
JSR

SPORTRS ,RO
PC ., TYPOUT
POAN ., RO
PC,0C TPNT

SPRINT MESSAGE
:POINTED TC BY PORTMS
SGET PORT
#
SPRINT T

8I(C
JSR
JSR
DE (
8€0
DE (

8177400 RO
Pc,ocTJ8P
PC_MON]T
enfr
PREM
LINCEN

SCLR WIGMH BYTE
SPRINT |7
JCHECK FOR CNTRL (MARS

MOV

(Ri)e RO

PRE m(:

SGET REMOTE &

SEXIT IF ALL DONE
SFILLED A LINE

(ZCMJAD (MR-11

CZCMUA. P

2017
2018
2019
2020
2021
2022
2023
2026
2025
2026
2027
2028
2029

014244
016252
014256
016262
014270
014274
014300
014304
014306
014312
014316
014322
014330

HOST

EXER(C]SER

06-MAR-80 15:13

012767
012700
004767
012767
012700
004767
005367
001373
003167
012700
004767
012767
000207

000012
000015
003416
000010
000040
00340C
011766
177700
0000°S
003356
000017

MACY11

30A(1052)

10-MAR-80
HOST-REMOTE EXERCISE

012034

PREM1:

#12,LINLEN
#15,R0

MOV

#10,CLK

JSR

PC,TTO
(LK
PREM1
PREMO

MOV

DEC
BNE
PREML:

011756

JMP

MOV

JSR
MOV
RTS

PAGE

SEQ 0045

MOV

MoV
JSR

012002

14:09

PC,TTO

#40.R0

#15,R0
PC,TT0

#15,LINLEN

JYES,

RESTORE

LINLEN

s CARRJAGE RETURN
JSPACE PAST PORT »#

JANOTHER <(R>
JAND RETURN

INE TO DO DIAGNOSTIC FUNCTION ON A GIVEN REMOTE
. SUBROUT
JENTER WITH REMOTE # IN "REMNOTM'
2035
2036
2037
2038
2039
2040
2041
2042
2043
2066
2045
2066
2047
2048
2049
2050
2051
2052
2053
2056
2055
205

SIS

355 AT

2057
2058
2059
2060

014332
014340
014344
014350
014356
014362
014370
014376
014402
014406
014414
014420
0144246
014430
016432
014436
014444
014452
014460
016462
014466
014470

016476
014504
014512
014520
014522
014522
0145%
014532
014536
016544

014550
01¢550
01455¢
01<55%¢

012767
012702
005077
012777
005277
012777
005277
012777
005277
016777
005277
012277
005367
00137
006767
052777
052777
032777
001003
004767
000771
(12777

012767
017767
026767
001416

000020
025144
011770
000100
011756
000022
011744
000001
011732
011716
011720
011716
011642
176512
000020
000001
04000C

011732

DIAGNF: MOV

MOV

#DATBL ,R2

011764

MOV

#100,3SPDR

011752

MOV

#22.,8SPDR

*LOAD "DIAG'" FUNC
:DATA LEN. = 22

011740

MOV

#1,3SPDR

;ONE REQUEST

011726

MOV

REMNO, @SPDR

:LOAD REMOTE #

(R2)+,@SPDR

:LOAD DATA PATTERN

CLR
INC

INC
INC

DIAGO:

001000

MOY
DEC

BNE

011632
011624

011616

DIAGOO: JSR

DIAG!:

176462

000100
011632
001350

INC

011642

001362
001356
001350

8IS
8IS

0C456¢7?
014432
06277

040000

011616

024723
(00005
0012

001320

000752

01155¢

aSPAR

aSPAR
SSPAR

SSPAR
CLK

0 IAGO

PC,SCALM

04 . (SR
#2300 .3C SR

PC.SCALM

MOV
MOV
¢
BEQ

8I7

CSR

DIAGIO

DIAG!

#1000, 3SPAR

DIAGOO

;ADDRESS RESULT SCR. PAD

;ERROR:DJAG FUNC GAVE WRKONG FUNC
;eseceee

FRROR

S§2

veeenee

#8164, 3SR

PC,DERR

ADD

:NO, WAIT FOR |7

\N,D]AGF

DIAGS

JSR

SCOPE
JSR

SFUN COMPL?

SRIGHT FUNCTION?

.+20
#D | AGF ,RO

;CLEAR ALARMS ETC.

“CLR TOP BYTE
YSET START FUNC.

#100, GOOD
@SPDR
. BAD
GOOD , BAD

BNE
MOV
MOV

;ADDRESS REQ SCR PAD

JSR

DIAGI0: MOV

DJAGZ:

aSPAR

B8R

;SET UP TO LOAD REQUEST

BIT

BNE

DATERR

032777
001007
012700
01276/
004767
000053

#20,CLK

852 ,ERRNUM

ogncoo
RS, S(PRTN

82,9 PAk

steEik F O TION STATUS

CODE

CZCMJAD CMR-11 HOST EXERCISER
CZCMUA PN
06-MAR-80 15:13

2073
2074
2075

014564
014572
014600
014606
014610
014610
014616
014620
014624
014632

014636

014644
014646
014646

BVFRRUN
B SR IE RGN 2SBRIKI

032777
001007
012700
012767
004767
000054
032777
001036

012700
004767
005277
017700
004767

000001
011544
001262

011526

024766
000053
001144

001232

040000

011500

RFQ
DATERR

&
PAGF

SEQ 0046

#1,G00D
aSPDR,BAD
GOOD ,BAD

sSHD SHOW SUCCESS

DIAGS
\N,DIAGUF

.0.K.

;ERROR:USOF

WRONG ON 'DJAG'' FUNC

MOV

022367
001504
011406
011404
002432

000020

PC,DERR

N+l

BNE

DIAGSS

BIT

011320

DIAG4:

JPRINT

REMSG

.PRINT ‘REMOTE # *°

NO, SKIP IT

#REMSG,RO
PC,TYPOUT
aSPAR
@SPDR RO
PC,OCTPNT

MOV
JSR
INC
MOV
JSR
PNTM
MOV
JSR
INC
MOV
JSR

#STATEM
RO
PC,TYPOUT
aSPAR
aSPDR,RO
PC,OCTPNT
USORM
#USORM RO
PC,TYPOUT
8SPAR
@SPDR ,RC
PC,OCTPNT

;PRINT MESSAGE
;POINTED TO BY REMSG

;GET REM. NO.

JPRINT

STATEM

SCOPE
JSR
DIAGOO
BIS

ALLOWED?

JPRINT ''STATE *'
JPRINT MESSAGE

JPOINTED TO BY STATEM

;GET STAE OF REMOTE

JPRINT "USOR = **

JPRINT MESSAGE

JPOINTED TO BY USORM

DIAGOO
R5,SCPRTN

#3064 ,8CSR

JCLEAR TOP BYTE WHEN DONE

RTS

LSBTTL

MAINTENANCE

ROUT INE

D e

#3164 SR

MOV
JSR
INC
MOV
JSR

PNTM

DIAG3S:

tenesen

#53 ERRNUM

JSR

PNTM

000560

#D IAGUF ,RO

MOV
N

FRROR

#3814 ,aSR
. +20

BIT
BNE

:THIS

ROUTINE

b old ol il

JONLY ON THE

WORKS

CMR-11

ODT

BASiZALLY BUT

SCRAT(HPAD MEMORY,

;THE REQUEST SCR. PAD MAY BE LOADED/READ

v ar

;TYPING ‘G'' CAUSES EXECUTION OF

THE

FUNC T]ON

THE FUNCTION CAUSES
THE RESULT SCR. PAD

¢ IT°S BUS ADDRESS FOLLOWED BY SLASH (/)
; EXIT IS ACHIEVED BY TYPING (NTRL=(C
;OR "P'" TO PROCEED TO THE POINT AT whI(H THE

LAV V1,V V] V),

B ol

JLOADED. COMPLETION OF
JTHE FIRST LOCATION OF

) el el

SIS LS T VI NLVLS TV LN LS LV

14:09

EXERCISE

MOV
MOV
{MP

022342
001554
011456
011454
002502

012700

004567
014432
052777
000207

HOST-REMOTE

001274
001270
001262

040000

022355
001530
011432
011430
002456

017700
004767

10-MAR-80

;revener

012700
004767
005277
017700
004767
004767
005277

30A(1052)

B e

NT, V1V LN V1,V 1NT,V1,V1, V1, V1N

2104

014652
014656
014662
014666
014672
014672
014676
014702
014706
014712
014716
014716
014722
014726
014732
014736
014742
014742
014746
014750
0146756

012767
017767
026767
001460

MACY11

PRINTED.

(SR MAY BE EXAMINED BY

TYPING

CMAIN PROCRAM WAS INTERRUPTED.

e
el
—

TO BE

;THE (MR-11

014760

014766

112767

017767

1272277
(11304

011263
011342

ODTPR:

MOVB
MOV

#-1,08FLG
(SR, SAVE(

JSET DEBUG FLAG
JSAVE (SR FOR LOOKX ING AT

(ZCMJAO (MR=11 HOST EXERC]SER
CZCMJA.P11
06-MAR=-80 15:13

2129
2130

014774
014774

012700

015000

004767

001426

2133

015010

016767

011246

213,
2135

015004

015016
015022

005067

004767
016767

011252

011232

011216

011230

015030
015036
015040
015046
015050
015054

026727
101423
026767
001012
017700
004767

011222
002342

21643
2144
2145
21646
2147
2148

015064
015070
015074
0150764
015100
015106

004767
000167

002610
177710

012700
004767
000741

020371
001326

015060

2149
2150

015106
015112

2152

015120

2151

015114

2153
2156
2155
215¢

015122
015130
015134
015142

2158

015152

2157

015144

012700

105767
001042

011226

011144
000020
011204
011202

000151

000200

011126

011114

052777

000001

2161
2162

015170
015172

001003
004767

000744

012767

001000

2163

000771

015206

012700

015200

2166
2167
2168
2169

015212
015216
015220
015226

2171

015236

2165

2170

2172
2173
2124
2175
2176
2177
2178

2179

2180

032777

015176

2164

015232

004767
000430
016777
017700

004767

01523
015242
015246
015254
015260
015266
015272

012700
004767
017767
004767
016777
105767
001421

015300

016700

015274

005267

100000

000015

011036
011110
002164
020636
001164
011070
001214
002062
010761

015304
015310

020027
101402

001777

2184

015316

004767

002052

0°5312

000167

011146

011106

011056

$2AS:

$3%:

$4$-

$5%:

011112

$11$:

177556

(LR

ADDR

JSR

011056

$208:
$218:

$228:

PAGE

SEQ 0047

:PRINT ''CMR-11 DEBUG AID"
*PRINT MESSAGE

*POINTED TO BY DBAID

ADDR , KBBUF

;GET ADDRESS

(MP
BLOS
CMP
BNE
MOV
JSR

ADDR, #1777
$2%
ADDR, CSR
$10%
3CSR,RO
PC,0CTJSP

;WITHIN LIMIT?
“YES, O.K.
SIS IT THE ISR
‘NG

JSR
P
PNTM
MUV
JSR
BR

PC,TTO
$0$
AGAIN
#AGAIN,RO
PC. TYPOUT
$1$

JSR
MOV

TSTB
BNE
BEQG

BIS
CLR
TM
BLOS

PC., INPKB
KBBUF
, ADDR

#15
RO

SLFL
$11%

: FROM KE YBOARD

;YES,

SHOW CONTENTS OF

;SLASH HIT?
“YES DUMP DATA

GOFLG

#804 ,ACSR
aSPAR
aSPDR,#15"
$3%

*INSURE TOP BYTE CLEAR
*ADDRESS FUNC. CODE
SIS FUNC NOT MAINT?
CIT*S NOT MAINT. DO IT
SIT IS MAINT, SET 'MAIN'

$20$

TYPED?

*NO

#M07,aCSR

BIS

#800,3CSR

BNE
JSR

$58
PC,MON]T

SYES,

#1000 ,ACDR

:ADDRESS RESULT

PC,TT0
s21s
ADDR , 3SPAR
@SPDR . RO

;DO <(R>

:LOAD ‘‘ADDRESS'*
SGET ''CONTENTS'

TWOSP

JSPACE

81T

MOV

JSR
BR
MOV
MOV

MOV
JSR
MOV
JSR
MOV
T1STB
BEQ
INC

$4$

#8315 aCSR
9K¢

215 RO

PC.OCTJSP

#TWOSP . RO
PC. TYPOUT
@SPDR
, KBBUI
PC. INPKB
KBBUF , aSPDR
INCF
$13s

SSET “STFUN'

‘1S THERE AN INTR®
SEE wHAT

AND PROMPT

(:)

CAND PRINT IT

SPRINT MESSAGE
SPOINTED TO BY TWOSP
:GET KBD NPT
SLOAD ANY NEw INPUT
SLINE FEED?

ADDR

;1F

(P
BLOS

RO #1777
$22%

;VALID ADDRESS?
SYES. 0.K.

JSR

PC.OCTPNT

SPRIN' NEw ADDRESS

MOV

(SR

:PRINT MESSAGE
*POINTED TO BY AGAIN

BIS

B8R

JSR

0020672

PC. TYPOUT

MOV

PNTM

010762

010756

DBAID
#DRAID,RO

TSTB

002462

2181
2182
2183

$2% :

052777
005077
027727
101404
052777

015154

015162

$108:

14:09

PNTM
MOV

MOV

011132

000403

§ §:

001777

105767

001462

$08$ :

000015

2159

2160

002330

001452
002320

2136
2137
2138
2139
2140
21641

21642

30A(1052)
10-MAR-80
MAINTENANCE ROUTINE

020507

2131

2132

MACY11

ADDR , RO

$108

YES.

INCREMENT

ADDRESS

“NO GOOD. GET A NEw ONE

MJAO CMR-11

015322
015326
015332
015336
015342
015344
015350
015354
015356
015362
015364
015366
015372
015376
015400
015404

06-MAR-80 15:13

012700
004767
000167
105767

MACY11

30A(1052)

10-MAR-80
MAINTENANCE ROUTINE

000057
002346
177662
010714

$13%:

177650

$°3%:

010703

010657
010720

14:09

$11%

BEQ
JMP

$23%
$11$

;GO PRINT CONTENTS
:SLASH TYPED?
JNO, CHE(K IF JT'S ‘¥

TSTR

TST8B

PC,TTO

SLFL

JYES,

$25%

JYES, START FUNCTION

;CLEAR DEBUG FLAG

PCONT

JANY PROMPTS PENDING?

$249

;

UTILITY ROUTINES

TO SAVE AND RESTORE

CALLED BY JSR RS,REGSAV ,
JSR R5,REGRES
. AND

015406
0154610
015412
015414
015416
015420

REGSAV:

015422
015424
015426
015430
015432
015434
015436

REGRES:

MOV

MOV
MOV
MOV
MOV
JMP

8lr

MOV
MOV
MOV
MOV
MOV
RTS

;ROUTINE

177777

010602

LSTST:

JNO, JUST RETURN TO CALLER
;JYES, RETYPE PROMPT.
JUNOFFICIAL RETURN

PCONT, (SP)
PC

$248:

MOVB

GcNERAL

REGISTERS

R4 ,=(SP)

R3,~(SP)

R2.-(SP)
R1.-(SP)
RO.=-(SP)

ar$

RO, (SP)+
(SP)+,R0

s THROW AWAY

OLD

VALUE

(SP)+ R

(SP)+ R?
(SP)+ ,R3
(SP)
¢+ R4

TO SET LSI=11
RT]

SHOW CONTENTS

JPYUTYPED?
INO, MUST BE <CR>
G TYPED?

CONFLG

GOFLG
$2AS
$1%
D3FLG

JROUTINES

112767

SEQ 0048

JPRINT A SLASH

$25%-

010712

000002

PAGE 40

#'/,R0O

.SBTTI

015440
015446

MOV
JSR
JMP

010670

FLAG (SOF TWARE)

#-1,LSIFLG

JSET LSI=11 SOF TWARE FLAG

:RE TURN

012767
012767
000002

—l

015450
015456
0154664

JROUTINE TO SET SOF TWARE SWITCH REGISTER FLAG
OO

HOST EXERC]SER

SRTSY:

RT]

JROUTINE
015466
015472

015472

015476

012706
012700
004767

MOV
MOV

#SSWR,
SR
#-1,SWRFLG

+NO HARDWARE

s
.

SWR, USE

MEMORY LOCATION
AND SET FLAG

TO PRINT JLLEGAL DEVICE ADDRESS

DVATST: MOV
PNTTM
MOV
JSR

215P,SP

INVLAD

#INVLAD ,RC
PC.TYPQUT

JFIX THE STACK

JPRINT

NON-EXST

ADDR MSG

JPRINT MESSAGE
JPOINTED TO By INVLAD

CZCMJAD CMR-11 HOST EXERCISER
CZCMUA. PN
06-MAR-80 15:13

015502

000167

30A(1052)
10-MAR-80
UTILITY ROUTINES

164404

JMP
JROUTINE

14:09

&
PAGE 41
SEQ 0049

PROMT

TO REPLACE

GO GET CORRECT ADDRESS

HALT WITH CALL

TO SW MONITOR

bNObNg
NONUNY
— —

e SanrSunrSrurGuruurt

VAN
N
(L VALV,
LU VLV, ]

;ON NON SWR PROCESSORS (CALLED BY MACRO ‘M. T')

QOOOOO

22641
2242
2243
2244
2245
2246
2247
2248
2249

MACY11

010636

SWHLT:

000454

TST
BEQ

SWRFLG
1$

;ANY HARDWARE SWR?
;IF YES, GO HALT

RTS

s CONTINUE

RTS

s CONTINUE

JSR

1$:

HALT

P(C,SWDMP

;IF NO, DUMP SWIT(CHES
JREAL HALT

sROUTINE USED FOR LOOPING ON ERROR ROUTINE

015526
015532
015536
015540
015540
015544
015546

015554
015556
015560
015562
015566
015570
015576

000410
010606

SCPRTN: JSR
TST

020000

010570

010514
177777

SBAK:

SCONT:

010456

SCORTN:

;CHECK FOR “S, OR “(

aSR

;IS Sw 15 SET?

8M]

SBAK

JSR

PC,SWHLT

BIT
BEQ
MOV
JMP

#313,aSR
SCONT
(SP)+ RS
(RO)

;SW 13 SET?
JNO, DON'T LOOP
;YES, RESTORE RS
+AND LOOP

BNE
MOVB

SCORTN
#-1,0FLOF

;WATCH FOR ERRCNT OFLO
JSET OVERFLO FLAG.

HLT

177742

PC,MONIT

(CALLED BY MACRO ‘'SCOPE'")

MOV

INC

RTS

JYES, DON'T HALT

. COMMON ERROR HALT

(R§) +,RO

;GET DIRECTION FOR SCOPE LOOP

ERRCNT

;JUPDATE ERR CNT

"FALL

THRU''

JAND RE TURN

;ROUTINE TO GENERATE (SC DEVICE ADDRESSES FROM ‘'DEVADR''
010562
010466
000002
010520
000002
010512
010530
000340

DEVGEN: MOV
MCV
ADD
MOV

ADD
MOV
MOv
MOV

000002

RTS

JROUTINE

010506

HDER:

002000

020600
000546

010460
001472
001650
164562

010464

DEVADR ,RO
RO,CSR
#2 RO
RO, SPAR
#2 RO
RO, SPDR
VECTOR RO
#340,2(R0O)

;GENERATE SPDR
JRETURN

TRAPS

(SP) ,TEMP

MOV
PNTM
MOV
JSR

#]SP,SP
TRP4
#TRPL RO
PC,TYPOQUT

MOV
JSR
JSR
MOV
JMP

TEMP RO
PC,OCTPNT
PCNULLS
#]15P,SP
RESTRY

SUB

;GENERATE SPAR

TO CAT(CH ERROR

MOV

;GET DEVICE CSR ADDRESS
;GENERATE (SR

2, TEMP

TC LOC

;SAVE

STACK FOR ADDR OF

TRAP

JRENEW STACK BEFORE USING

SPRINT *“TRAPPED TO 4 FRQOM (OC

JPRINT MESSAGE

JPOINTED TO BY TRP4

JPRINT SOURCE OF

TRAP

JREFRESH STACK POINTER

CZCMJAO CMR-11 HOST EXERC l Sgs
CZCMUA. P11
06-MAR-80 15:

MACY11

30A(1052)
10-MAR-80
UTILITY ROUTINES
;ERROR ROUTINES:

015716

000140
000026

000132

MOV

ERR1:

016072
000470
000116
001422

SUB
MOV

PNTM
MOV
JSR

MOV
JSR

PNTM

016105

MOV
JSR
MOV
JSR
MOV
JSR
RTS

000054
000026
177710

000046

DERR:

MOV

Su8

JSR
PNTM

016117
000402
000032
001334

MOV
JSR
MOV
JSR

PNTM

016133
000362
000014
001314

MOV
JSR
MOV
JSR
RTS

JRELATED

ERRAD:
ERRNUM:
GOOD :
BAD:

023046
047522
040
041517
046
042114

025052
020122
052101
020056
044123
041040

0511C5
100
046 040
100
052517
020105

054

053440

051507

100

4
PAGE 42

(SP) ,ERRAD

;GET ADDRESS OF ERROR CALL
JCORRECT IT

#26 ,ERRAD
RO,=-(SP)

:STACK ERROR MSG, ADDR
:PRINT "'«*ERROR
'

ERRM
#ERRM,
RO
PC,TYPOUT

JPRINT MESSAGE

*POINTED TO BY ERRM

ERRNUM RO
PC,OCTPNT
WDAT
MJDAT RO
PC,TYPOUT
ERRAD RO
PC,OCTPNT
(SP)+ RO
PC,TYPOUT

JPRINT ERROR NO.

JPRINT '" AT LOC.

sPRINT MESSAGE

(P)

JPOINTED TO BY WDAT

;PRINT ADDRESS OF

ERROR

JGET ADDR OF ERROR MSG

JPRINT ERR MSG

:RETURN

(SP) ,ERRAD

;GET ADDRESS OF ERROR CALL
sCORRECT [T
sPRINT REG. ERROR MSG

#26 ,ERRAD

PC,ERR1
wDSD8

JPRINT ‘SHOULD BE '’

MDSDB,
RO
PC,TYPOUT
600D ,RO
PC,OCTPNT

JPRINT MESSAGE

JPOINTED TO BY WDSDB

JPRINT GOOD DATA

JPRINT ', WAS **

WDWAS

MIDWAS
, RO
PC,TYPOUT
BAD,RO
PC,OCTPNT

JPRINT MESSAGE

JPOINTED TO BY WDWAS

JPRINT BAD DATA
JRETURN

STORAGE
:

.WORD
_WORD
MWORD
. WORD

SEQ 0050

REGULAR ERRORS AND DATA ERRORS.

O
0
O
0

JASSOCIATED ASCIlI

016072
016100
016105
016112
016117
016124
016132
016133

14:09

(ONLY

SOME OF

ERRM:

LASCI]

/88*+*ERROR @&/

WDOAT :

LASCI]

/ AT LOC.

wDSDB:

.ASCI]

/8SHOULD BF @/

WOWAS:

_ASCI]

7/,

wAS @/

CZCMJAD CMR-11 HOST EXER CISER
CZCMUA. P11
06-MAR-80 15:13

2353
2354
2355

016140

MACY11

30A(1052)
10-MAR-80
UTILITY ROUTINES

040040

14:09

4
PAGE 43

SEQ 0051

.EVEN

.SBTTL

''SWITCH'' MONITOR ROUTINE

;ENTER AT MONIT FROM EVERY SUB-TEST TO SEE 16 CNTRL=S OR CNTRL-C WAS TYPED
;ENTER AT SWDMP FROM ERROR HALTS IF

ALSO MONITORS THE

FOLLOWING CONTROL

Sw 15

FUNCTIONS:

CNTRL=P CONTINUE (PROCEED)
CNTRL=0 GO TO CMR-11 DEBUG ROUTINE

016142
016144
016150
016152

016156
016162
016166
016172
016174
016174
016200
016204
016210
016214
016214
016220
016224
016232
016240
016244
016250
016256
016256
016262
016266
016272
016274
016300
016304
016310
016312
016316
016320
016324
016330
016334
016336
016342
016346
016352
016354
016360
016364

010224
000220
010210
177600
000023

MONIT:

MONIC:
MONCH:

SWDOMP:

CLR

TST8

020652
000144
010102

RO, 423

BNE

PNTM
MOV

BPL

81C
(€ ¢
8EQ

000020
000015
001350
000024

EX1:

002000

164166

000017

Exe:

176400

000003

MOV
JSR
MOV
MOV
JSR
CLR
MOV

MOV

177600
000023

Ex3:

JTRIM OFF PARITY BIT

cMP

81C

PNTM
MOV
JSR
CONTW1: 1ST8

010072

#177600,R0

MONIC
EX4
akBD,R0

PNTM

CCRTN:

s CHECK KEYBOARD FLAG

8M]
JMP
MOV

JSR
MOV
JSR

005067

akBS

(MP
BNE
MOV
JSR
(MP

BNE
MOV
JMP
(TMP
BNE
IMP
0, o

BNE

EX1

sIF SET, CHECK WHAT (HAR.
;OTHERWISE, EXIT

;WAS [T 2§?
JNO, EXIT

SWRMSG
#SWRMSG,RO

JPRINT ''SWR =
sPRINT MESSAGE

TWOSP

;SPACE AND "ROMPT

PC,TYPOUT
@SR RO
PC,OCTPNT

#TWOSP RO
PC,TYPOUT
@SR KBBUF
#SWDMP PCONT
PC, INPKB
PCONT
KABUF ,aSR

TYPCTP
#TYPCTP,RO
PC,TYPOUT
&KBS

JPOINTED TO BY SWRMSG
;GET CONTENTS OF SR
JPRINT

(:)

JPRINT MESSAGE
;POINTED TO BY TWOSP
;LOAD OLD SWITCHES
;LOAD RETURN ADDRESS
JGET KBD INPUT
sLOAD NEW SWITCHES
JPRINT '‘CNTRL-P TO CONTINUE"'
JPRINT MESSAGE
;POINTED TO BY TYP(CTP

CONTWI

akBD RO

#177600,R0
RO, #23
SWhOMP
RO,#20

CONTWY
#15,R0
PC.TT0
RO #24

EXS
#1SP,SP
BCONT
RO.#17
Ex$
0D TPk
RG,#3

EXxé

TRIH OFF PARITY BIT

YES GET SWR AGAIN

;P
:NO. KEEP LOOKING
JRETURN L INE

JWAS A “T TYPED?

INO, EAJT
SYES, RENEW STACK
*BACK TO DISPATCHER
‘WAS CNTRL=0 TYPED?
*NO
SAND GO TO DEBUG ROUTINE
JWAS CNTRL-C TYPED?

JNO.

CZCMUAO EMR-11 HOST EXERCISER
CZCMUA. P
06-MAR-80 15:13

2609
2410
2611
2412

30A(1052)
10-MAR-80
14:09
"'SWITCH'' MONITOR ROUTINE

EX4:

(MP

4
PAGE 44

*AND "RESTART
*WAS IT 4F?

Ex$

*ND, EXIT

*1S DEBUG F_AG SET?

F XS
SAFE

*YES, JUST RETURN
*ALREADY IN FILL RIN?

EXS

*YES, JUST RETURN

PCONT

EXS:

RTS

.SBTTL

SEQ 0052

:YES, REFRESH STACK

8CONT
RO, #6

DIsFLG

007637

007672
000316

#I1SP,SP

007641

“CLEAR PROMPT

gE,KBRET

:SNEAK

CARRIER

INTO FILL COUNT ROUTINE

MESSAGE PRINT ROUTINE

sMESSAGE TYPOUT ROUTINE (CALLED BY MACRO PNTM A)
sMESSAGES ARE IN THE FORMAT:
MESG:

LASCII

/8MESSAGERa/

*WHERE: & IS TRANSLATED INTO CR. AND LF.
*USES THE SUBROUTINE ‘TTO'*

*WHICH PRINTS

CAND

CR.

& LF.

UPON SEEING A CR.

@ IS MESSAGE TERMINATOR

CODE.

:ENTER WITH ADDRESS OF MESSAGE IN RO
016432
016434
016440
016444
016446
016452
016454
016460
016464
016466
016470
01647¢

000000
000100

TYPOUT:
TPOFCH:

MOV
mMOVB

000015
001214

TPCONT:

TPOUTX:

RO,=-(SP)

a(SP) RO
#100,R0

;STACK ADDRESS OF MESSAGE

JFETCH ASCII BYTE
15 IT 3 (TERMINATOR)?

TPOUTX
#46 ,RO
TPCONT

JYES-EXIT
;1S IT CRLF FLAG?
sNO-TYPE CHARACTER

TST

PC,TTO
(SP)
TPOF CH
égP)*

JTYPE T
cMOVE POINTER TO NEXT BYTE
JFETCH NEXT CHARACTER
JPOP STACK TO REACH RETURN VECTOR

.SBTTL

KEYBOARD [NPUT ROUT INE

000046
JSR

B8R

#15,R0

;YES,

CHANGE DATA TO (R

;KEYBOARD INPUT ROUTINE CALLED BY JSR
P(,INPKB
JENTERED WITH OLD CONTENTS IN KBBUF
JIF JUST CR TYPED, EXIT WITH SAME (ONTENTS IN KBBUF
JIF NEW NUMBER TYPED, EXIT WITH NEW CONTENTS [N KBBUF
005067
010146
016746
005067
004767
004767
020027

000644

INPKB:

J00640
LaSTe
Yo

016474
016500
016502
016506
016512
016516
016522

82
§u\—4

2613
2614
2615
2616
2617
2618
2419
2420
2621
2622
2423
2624
2425
2426
2627
2428
24629
2630
2631
2632
2633
2434
2435
2436
2637
2438
2639
24640
2441
24642
2643
24644
2645
2446
2447
2448
2649
2450
2451
2652
2453
2654
2455
2456
2457
2458
2459
2460
2461
2662
2463
240k

002000
164136
000006

MACY11

GET(HR:

(LR
MOV
MOV
(LR
JSR
JSR
(MP

NOKEF L

;CLEAR NO NUMBER FLAG

KBBUF , = (SP)

JSTACK “OLD CONTENTS''

R1,-(SP)

KBBUF
P( ,KBRD

PC,TTO
RO,.#12

JSTACK OLD R1

sCLEAR [NPUT BUFFER
JFETCH A (HARACTER [N RO

JECHO 1T
JWAS IT A (R OR f°

CZCMUAD (MR=-11 HOST EXERC]SER
06-MAR-80 15:13
CZCMUA PN

2665

2666

2667
2468
2469
2470
2671
2672
2473
2674
2475
2676
2677
2478

2679
2680

2481

2682

2483
2484
2485

2486
2687
2488
2489
2690
2491
2692

2493

349

2495

2496

2497

2498

2499

2500
2501
2502

2503

016526
06530

L 16534
016536
016542
016546
016550
016554
016556
016562
016566
016570
016574
016576

016602
016604
016010
016614
016616
016622
016626
016632
016636
0166/
2
016646
016652
016660
016664
016670
016674
016700
016704

016710
016714
016716
016722
016724
016726
016730
016732

001002
000167
010001
042701
020127
0014641
020027
001024
012700
004767
000241
006067
000261

MACY11

000154

14:09
10-MAR-80
30A(1052)
KEYBOARD INPUT ROUTINE

177407

000060
000177

BNE
JMP
MOV

BIC
(MP
Btwv
(MP
BNE

JYES,

ROR

KRBUF

000536
000532

ROR
TST

KRRUF
N

177664

000207
001042
000077
001032

177640
172777
177770

MOV

JSR

000464

3$%:

000456
000452
000446
000442

000424

MOV
BIC
ASL
ASL
ASL

BIS
JMP

177602

000430

-MP

NRTRN:

TSt

BNE

MOV
MOV
RTS
TSt

MOV
RTS

JIS IT A 4 FROM 0-7?
PACK

JWAS IT A DELETE/RUBOUT?
;NO, MUST BE GARBAGE
.YES, BUT PRINT 'A\"'

RO, 417/

000544

000522

RETURN WITH PROPER KBBUF

000552

BNE
(LR
JMP
MOV
JSR

JYES,

R1,#4(

K3BUF

.NO

#177407
R

ROR

cLc

SEQ 0053

;SET UP TO CHECK FOR A NUMBER
JMASK ALL BUI # (CODE

#57 ,R0O
PC,TTO

JSR
Le

PAGE 45

1%
NRTRN
RO,R1

MOV

000057
001112

"fLEAR THE (-BIT
DELETE LAST DIGIT
THAT WAS

STUFFED

INTO KBBUF

JHAVE WE DELETED EVERYTHING?

;NO

11%
NOKE
F L

JYES, BACK TO NO NUMBER INPUT
;GO FOR MORE INPUT
LECHO 'BELL'' FOR ERRONEOUS INPUY

GETCHR

#207.R0
PC, TT0

#7? RO

PC,TTO

#17%770.R0

JAND GET ANOTHER (HARACTER
;GOT A DIGIT. SET FLAG
JGET THE DIGIT PART OF THE (HARA(CTER

KABUF

;

GE TCHR

#<1

NOKEFL

KRBUF

JSHIFT KBBUF BUFFER
TO ACCEPT

THE

KBBUF
RO, kRBUF
GET(HR

NEW DIGIT.
.
JADD THE NEW DIGIT
;GO FOR MORE INPUT

NOKEF
L
K
NE
(SP)
+ xBBUF
(SP)+ R1

;WAS

:RESTORE

(SP)
¢, @1
P(

JRESTORE

P(
(SP)

THERE NEW DATA?

JYES, GO BACK WITH [T
;NO, RETRIEVE OLD DATA
JAND RETURN
;DUMP OLD DATA
JAND RETURN

;KEYBOARD READ ROUT INE

JCHECKS FOR THE FOLLOWING SPECIAL (HARA(TERS:
CNTRL=C
CNTRL=F
(NTRL=0

RESTART PROG.

(HANGE /SHOW FILL COUNT
ENTER "DE-BUG"" ROUT INE
UNLESS ALREADY THERE

OR UNLESS IN INITIAL DIALOGUE.
:
:
E
ROUTIN
’"
. IF IN "DE-BUG
<(R>
CLOSE LOCATION
:
<LF>

lp..

(LUSE LOC. AND OPEN NEXT
OPEN L UATION
SET START FUN( OR MAINT
RETURN AND (ONT iNUE

|
CZCMJAO CMR~11 HOST EXERCISER
06-MAR-80 15: 13
CZCMJA. P

016734
016740
016742
916746
016752
016756
016762
016766
016772
016776
017000
017004

017010
017014
017016
017022
017024
017030
017032

017034
017034
017040
017044

105777
100375

017700

105067
105067
105067
105067

042700
020027
001004
012706
000167

MACY11

007434

10-MAR-80
14:09
30A(1052)
KEYBOARD INPUT ROUTINE
KBRD:

07424

007301
007274
007274
0072”7

KBRET:

177500

000CN3

1%:

2%“““‘\5&8'\’8-‘-‘“
[« ¥ Yo P X, ¥
F ¥ =¥ .YXN

d
i

D
)

wd
o

i
)

i ol
i

d e
e

el od

i
— el

d e
il

)

SNNNNNNVNNNNNNNNNYYNY

GOFLG
SLFL
CONFLG
#177600,R0O
RO, #3

BCONT
DRFLG

JWAIT FOR [NPUT FROM CONSOLE
;PUT THE CHAR INTO RO

JCLEAR FLACS

;TRIM PARITY
JWAS “C TYFED?
JYES,

RESTART PROGRAM

;DON'T ALLOW “F
sNO

JALREADY

2%:

007225

20%:

017354

007203

FILMSG
#F ILMSG,RO
PC,TYPOUT
#-1,5AFE
FILL.RO
PC,OCTPNT
TWOSP

#TWOSP RO

PC,TYPOUT
FILL ,KBBUF

000246

—d

akRD,RO
INCF

SEQ 0054

;WAS (NTRL-F

017062

ololeolelelelelalelalelolelolelale

akBS
KBRD

000006

177366

PAGE 46

1%
#ISP,SP

002000
163526
007235

017052
017056
017062

017226

TSTB
BPL
MOV
CLRAR
CLRB
CLRB
CLRB
BI(

P(, INPKB

KRABLF
, #4500
3s

000500

AGAIN

020771
177:
2

000212

1%:

2 B

"NT RTN?

JPRINT "FILL COUNT = *'

JPRINT MESSAGE
JPOINTED TO BY FILMSG
JSET FLAG

JSHOW FILL COUNT

;SPACE AND PROMPT
JPRINT MESSAGE

;JPOINTED TO BY TWOSP

;GET NEW COUNT
. 100 B81G?
;NO GOOD. GET IT AGAIN

KRRUF
F ILL

;LOAD NEW COUNT
JRETURNING TO A PROMPT?
NO, CLEAN RETURN
JYES, BREAK UP WITH INPKB
JMODIFY RETURN ADDR

208

PCONT
KRTN

PCONT
, (SP)
KRTN

DRFLG
63
RO,.m17
KRTIN
P(ONT

PC(ONT ,8PRMT ¢

5%:

IN FILL

JNO, SAFE TO ENTER
JYES, IGNORE CHARA(TER

JPRINT MESSAGE

002356

TYPED?

#AGAIN,RO
PC, TYPOUT

26,5P
A ¥

IN 'DEBUG''

(Y)

SAF
E
KRTN
8¢ ,SP

oD PR

RO.&(

JPOINTED TO BY AGAIN

;1S "DEBUG'® FLAG SET?
JYES,

CHECK FOR OTHER FLAGS

JCNTRL=0 TYPED?
JNO, EX]T

CTEST IF ODT |S ALLOWED

JYES, IF PCONT = 0 OR
:

]F GREATER THAN PRIOR]ITY

PROMPT,

CALSO, NCT WMILE IN FILL
COUNT ROUTINE.

JBREAK ALL TIES WITW "‘INKR"’

;A=0.K. GO O DEBUG-AID
SOHECK FOR L LF,

CZCMJAO (MR-11 HOST EXERCISE R
CZCMUA P11
06-MAR-80 16:1 3

PP P

017232
017234
017240
017246
017252
017256
017260
017266
017272
017276
017302
017304
017312
017316
017322
017326
017330
017336
017342

001007
012700
112767

000015

177777

000070
000057

177777

006740

177777

016710

KEYBOARD

7%:

006770

000362
016710
000120

30A(1052)

10-MAR-80

14:09
INPUT ROUTINE

007005

1727777
000406
016710
000107

8$%:

9% :

tMP

006721
KRTN:

RTS

PAGE 47

SEQ 0055

7%
#15,R0
#-1,INCF
KRTN
RO, &'/

JNOT A LINE

JCHANGE L .F.

;1T WAS,

FEED.

C(.R.

SET INCR FLAG

JAND LEAVE

;UGS
.NO.

#-1,SLFL
PC,TTO
MNRTRN, (SP)

IT A SLASKH?

JYES, SET SLASH FLAG
JECHO THE

JAND EXIT.

SLASH

RO.#°'G
9%
#-1,G0FLG

JWAS ‘G'' TYPED?
;NO

RO, #'P

;WAS ‘P’ TYPED?
JNO, EXIT
SYES, SET "'CONTINUE'' FLAG

"YES, SET ''GO'* FLAG

PC,TT0
#NRTRN, (SP)

“ECHO THE ‘G

KRTN
#-1,CONFLG

l?RTRN,(SP)
[

043046
047503
020075
017374

oOny—
Oown—

000010
000000

~NON

017344
017346
017350
017352
017354
017362
017370

;ASSOCIATED VARIABLE STORAGE:

—

R R R R R RS R AR

R RPFYYYYRRYYYVVY

2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
259N
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603

MACY11

020114
020124

NOKEFL:
KBBUF:
FILL:
FLCNT:
FILMSG:

.WORD
,WORD
.WORD
_WORD
.ASCI]

0
0

0
/RFILL COUNT - a/

.EVEN
.SBTTL BINARY

TO ASCII

CONVERSION ROUTINES

. CONVERTS BINARY TO BINARY, BINARY T0
JOCTAL, AND BINARY TO DECIMAL; EITHELR
JUNJUSTIFIED WITH LEADING Z2ERQ'S SUPPRESSED
;OR RIGHT JUSTIFIED WITH LEADING 0°S
. SUPPRESSED
JREGILAR BIN-OCTAL UNJUSTIFIED:

017374
017374
017400
017404
017410
017414
017614
017420

OCTPNT:

004567
005067
012701
004767

REGSAV
JSR
CLR
MOV
JSR

REGRES

004567
000207

JSR

RTS

RS ,REGSAV

RJFLG
#10,R1
PC.NUMPNT

RS ,REGRES

JBIN-OCTAL JUSTIFIED:
017622
017622

004567

175760

OCTJSP: REGSAV
JSR

RS ,REGSA.

JCLEAR RIGHT JUSTIFY FLAG

JSET RADIX FOR QOCTAL

;CONVERT & PRINT

CZCMJAD CMR-11 HOST EXERCISER
CZCMUA LN
06-MAR-80 15:13

2658

004567
000207

177777

000010
000126

30A(1052)
BINARY

10-MAR-80

TO ASCII

000330

MOV

MOV
JSR

REGRES

175752

JSR

RTS

14:09

5
PAGE 48

CONVERSION ROUTINES

#-1,RJFLG

SEQ 0056
JSET RIGHT JUSTIFY FLAG

#10,R1
PC.,NUMPNT

JSET RADIX FOR QOCTAL
;CONVERT & PRINT

RS ,REGRES

;BIN-BIN
017452
017452
017456
017462
017466
017472
017472
017476

004567

BINPNT:

175730

005067
012701
004767

000302
000002
000100

004567
000207

175724

REGSAV
JSR
CLR

MOV
JSR

REGRE
S

JSR

RTS

RS ,REGSAV

RJFLG

JCLEAR RIGHT JUSTIFY FLAG

#2.R1
PC.NUMPNT

;SET RADIX FOR BINARY
. CONVERT & PRINT

RS ,REGRES

JBIN-DECIMAL UNJUSTIFIED:
017500
017500
017504
017510
017514
017520
017520
017524

DECPNT:

175702

000254
000012
000052

REGSAV
JSR
CLR
MOV
JSR

RS ,REGSAV
RJFLG
#2,.R1
P( .NUMPNT

JSR

RS ,REGRES

REGRES

175676

RTS

;CLEAR RIGHT JUSTIFY FLAG
JSET RADIX FOR DECIMAL
< CONVERT & PRINT

JBIN-DECIMAL JUSTIFIED (6 PLACES)
0317526
017526
017532
017540
017544
017550
017550
017554

175654
177777

000012

DECJSP:

000224

REGSAV

JSR

MOV

JSR

REGRES

175646

JSR

RTS

—

2651
2652
2653
2654
2655
2656
2657

012767
012701
004767

2650

017426
017434
017440
017644
017644
017450

éé

2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649

MACY11

NULLS:

NULOUT:

(LR

RS ,REGSAV

#-1 RIFLG

#12 ,R1

PC . NUMPNT

RS ,REGRES

ISR

PC.TT0

JSR
RTS

PC,TTO
PC

000152

NUMPNT: MOV

R1,RADIX

DIVSET:
DIVID:

RO, RAD
] X

SUB

RAD ] X ,RO

DIVIL

CLR
(LR

8L0

;CONVERT & PRINT

JUNSIGNED (ONVERT-PRINT ROUTINE
000170

JSET RIGHT JUSTIFY FLAG

JSET RADIX FOR DECIMAL

R2
R1

(BIN = ASCII)

:SAVE RADIX

SCLEAR TAB COUNTER
SCLEAR WORK REGISTER
*1S NUMBER BELOW RADIX®

Gt fpG

SIF YES, STORE DIGIT

JAND KEEP TOUNT

CELSE. KEEP SUBTRACTING

CZCMJAD (MR-11 HOST EXER CISER
CZCMUA P11
06-MAR-80 15:13

2713

2714
2715
2716
2717
2718

012703

000006

160203

003413
005767
001410
012700
004767
005303
001372
005067
012600
052700

PNTEXT:

JUST:

010077

105777
100375

022700
001401
000207
012700
004767
016767
012700
004767
005367
003373
012700
000207

JPRINT

MOV

#6,R3

;GET DIGIT

SuB

000072

PNT:

000060

006474
006472

170:

177766
177412

000000

TTOLF:

1774612

177730
177376

1$:

JUSTIFICATION UNNECESSARY

THE

JUSTIFY FLAG SET?

JNO-DON'T JUSTIFY
;YES, PRINT LEADING SPACES

CLR
MOV

RJFLG
(SP)+ ,RO

JCLEAR JUSTIFY FLG WHEN DONE
;GET REST OF DIGITS OFF STA(CK
JMAKE THEM AS(CII

R3
JUST

#'0,RO

CHARACTER

MO\

IS ''CR.'’,

JPRINT

allsS

JWAIT

TTOLP

cMpP

#15,R0

RTS
MOV

PC
#12,R0

JYES, ECHO A LF
JNO,

PC,TTO
FILL,FLCNT
#0,R0

JSR

CONTENTS OF
TILL

DONE

JWAS IT A (R?

TTOLF

JSR
MOV
MOV

IN RO

ALSO PRINT A ‘LF.'',

RO,aTTB

TSIB

JUST

RETURN

AS WELL

JECHO A LINE FEED
JPRINT NULLS FOR FILL

PC,TTO

FLONT
18

DEC
8GT

000012

JYES,

;1S

PNT
#40,R0
PC,TTO

BEQ

000012

CONSTANT

BEQ
MOV
JSR

BPL

000015

COUNT

MOV
RTS

f2,R0
PC

; THEN RESTORE
JAND LEAVE

JASSOCIATED VARIABLE STORAGE:
017764
017766

RJFLG:

RADIX:

.WwORD

.wWORD

.SBTTL

CONSTANTS,

VARJABLES & A(S]]

JASCI] MESSAGES:
017770
017776

1532
1440

24640
1511

0440

TSTHOR:

JUSTIFY

JHAVE WE PRODUCED 6 DIGITS?

PNT

BIS

TT0LP:

IF HIGHEST ORDER STACKED

JELSE COUNT DIGITS FOR R.

RJFLG

. TYPE OQUT ROUTINE
JPRINTS A (HARACTER WHI(H

THE

s STACK REMAINDER

R2,R3

DEC
BNE

J1F

017700
017704
017710
017712
017716
017720
017722
017726
017732
017740
017744
017750
017754
017756
017762

RO,=(SP)
R1,RO
PNTEXT
R
PC,DIVSET

TST

000040
000016

SEQ 0057

MOV
MOV
BEQ
INC
JSR

BLE

000114

KOw-O—‘—‘
VOO WA

2705
2706
2707
2708
2709
2710
271N
2712

017634
017640
017642
017644
017650
017652
017656
017662
017664
017666
017672
017674

— AN
s

2704

177744

F
5
30A(1052)
10-MAR-80
14:09 PAGE 49
BINARY TO ASCII CONVERSION ROUTINES
GETDG:

RARRAR
T =NN=w

2701
2702
2703

010046
010100
001403
005202
004767

2700

017620
017622
017624
017626
017630

NARORR

2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699

MACY11

_ASCI!

/8CZCMJIAD (MR=-11 HOST EXERC!

o=, AN-80/

CZCMUAD (MR-11 HOST EXERCIS ER
CZCMUA PN
06~MAR-80 15:13

2745

040512
023046
020040

2746
2747
2748
2749
2750
2751
2752
275%
2754
2755
2756
2757
2758
2759
2760
2761

2763
2764

2765
2766
2767
2768

2769
277G
277
2772
2773
2776
2775
2776
2777
2778

046
047516
041517
031N
042114
053504
05151
046114
044514
040046
0446446
040506
042104
020072

2779
2780

2781

2782

2783

2784
2785
2786

LASCI]

/88

LASCII

/8THIS PROGRAM

LASCII

/80F

LAS(;!

/CREMOTES ON THIS

(MR=1"./

LASCI]

/88D0 NOT

sve

CAUTION

—=O

(APABLE

PROCEED

051101
051440
047440
042516
/RINTERFACE

044124
047112
027117
040440
040046
052116

052101

AGAIN:

.AS(]I

/8THAT

DVECT:

_ASC!!

/CINTERFACE

DVPRIO:

.ASCl!

/CINTERFACE PRIORITY

044522
020131
020117

052116
042503
051112
032050
024467

046

046503

DBAID:

.AS(C!]

/C(MR=-11 DE-BUG AIDLRR/

100

ALTERING

100

042503
047524

WON'T

ADDRESS:

DO.

TRY

VECTOR:

«/

AGAINEe/

10 7):

THE

STATE/

TO ANY OF

FIELD HARDWARE

LASCTI

Deb446
040506
041505
040040
044440
040506

FIELD EQUIPMENT ATTACHED

FRAD :

047111

020500
020507

ANY

051105
040440
051523

053440
042040
054522

2796

2800

SEQ 0058

052116
042503
042522

046

2787
2788
2789
2790
2791
2792
2793
2794
2795

2799

]

10-MAR-80
30A(1052)
14:09
PAGE 50
CONSTANTS, VARIABLES & ACSII

040503

020116
046
050040
046501
040503
020105
052114
020107
052123
046
054516
042114
0501
040440
042510
040440
020106
046
042524
052040
046503
056

2762

2797
2798

MACY11

IS STILL

THE/

ON-LINE

&Ra/

CZCMJAO CMR-11 HOST EXERC]SER
CZCMUA P11
06-MAR-80 15:13

2801
2802
2803

020514
020522
020530
020534
020542
020550
020556
020564
020572
020600
020606
020614
020622

030461
052502
023104
044446
042111

MACY11

H
5
10-MAR-80
30A(1052)
14:09
PAGE 51
CONSTANTS, VARJABLES & ACSII

SEQ 0059

026505
044501
046101
042104
027056
051447
052040
04005+
050101
047526
047522
040503
040040

INVLAD:

LASCII

/8INVALID ADDRESS...(IT'S NOT

TRPG:

LASCII

/88 TRAPPED

TWOSP:

TO & FROM LOCATION &/

040072
051127

036440

SWRMSG:

LASCII
LASCI]

050131
051124
047524
044524

020105
026514
041440
052516

TYP(TP:

LASCII

/RTYPE

046105
042524
036464
020051
042523

041505
052123
042510

TSTSEL:

LASLII

/BSELECT

TEST

042514

HELPM:

LASCII

/RSELECT

ONE

100

THERE)Q/

/8SWR = o/
CNTRL=-P

TO (ONTINUER/

(4=HELP) &/

THE

FOLLOWING:R/

047440
020106
047506
04711

042516
044124
046114
035107

051103
020061
044507
052123
020040
036440
020124
041055
042524

047440
020075
020103

CASCII

/8CR OR 1

020040
050040
047514
041501
052123
020040
0414640
020061
044503

LASCII

2 = PORT _LOOP-BA(K TEST/

CASCII

3 - (MR=11

020040
020075
044040
047111

LASCII

& =

051124
020075
051440

LASCI]

/BCNTRL=C

051124

LASCII

/B(NTRL=S = SW]T(H OPTION SELECT/

= LOGIC

TEST/

EXERCISER/

THIS HELP INFO./

= TEST SELECT/

124

WO =W

020075
044103
047511
042514
046122
041440
042514
020114
020124
052103
046122
042040
051040
04251¢€
064103
053517

10-MAR-80
30A(105¢2)
14:09
PAGE 52
CONSTANTS, VARIABLES & A(CSII

SEQ 0060

LASCI!

/RCNTRL=F

LASCII

/&CNTRL=-0 - DEBUG ROUTINE

LASCI]

LOADING SCR.

CASCI]

FUNCTIONS AND EXAMINING

LASCII

RESULTS/

052523

020040
020040

052114

047103
020120
041517
051106
027127
052111

051124
020075
042505
046517
046440
051117

CASCI]

/RCNTRL=P = PROCEED FROM Sw.

047514
042524

044507
052123

LGKTSM:

LASCII

/8LOGIC TESTRA/

051103

050056
042}04
00
051%17

SCPAD:

LASCII

/CSCR.PAD ADDR = @/

VERSM:

LASCII

/RBHOST

BAUDM:

LASCI]

020040
020040
047111
027122
040640
040524

= CONSOLE

FILL

COUNT

SELECT/

WHICH ALLOWS/

PAD AND

STARTING/

TRE/

304
n

212

150

652

020107

SR R3IR2

021174
021202
021210
021216
0212264
021226
021234
021242

=S AN NS
=

2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888

MACY11

OB N2WNOON

CZCMJAD (MR-11 HOST EXER
CZCMUA. P11
06-MAR-80

F IRMWARE

VERSION

@&/

MON] IORa/

CZCMJAD CMR-11 HOST EXER CISER
CZCMUA PN
06-MAR-80 15:13

2913
2914
2915
2916
2917
2918
2919
2920

021650
021652
021660

022314

MACY11

020126
040040
020124
040040
020124
040040
020124
040040
050040
020043

047506
020131

10~-MAR-80
30A(1052)
14:09
PAGE 53
CONSTANTS, VARIABLES & ACSII

SEQ 0061

PORT(M:

LASCI]

/8PORT #0 = a/

PORT1IM:

LASCII

/&PORT #1

PORTZM:

LASC!]

/SPORT #2 = @/

PORT3M:

LASCII

/8PORT #3 = g/

ENDPS:

LASCII

/REND PASS # a/

051122
020124

ERCTM:

LASCI1

042526
025127

QVFLLM:

.ASCI1

/**OVERFLOW®*3/

020124
041055
042524

PLTM:

LASCII

/RPORT LOOP-BACK TESTRA/

020105
021440
037122
035051

PORTN:

LASCII

/LTYPE PORT #

050131
037122
020116
035131
051115
054105
042523
044524

020105
053440

TYP(CR:

LASCI!

/RTYPE <CR> WHEN READY: @&/

EXCM:

LASCII

/8CMR=-11

043450
042515
053505
052125
047514
052111
020105
042524

0531
040440
046440
051505
042516
020110
042522
024523

JASCII

/R(GIVE ME A FEW MINUTES ALONE WITH THE REMOTES)a/

025052

020052
046505

.ASCI]

NO REMOTES ON HOST

LASCI]

/80

wiLL

047640
052123
046
02011
045440
067514
020107
047101
047101

NOREM:

ERR.

= @/

CNT = @/

(<CR>=ALL):

EXERCISE ROUTINER/

«ssg/

KEEP LOOKING FOR ANY

(HANGES

)Ra/

CZCMJAD (MR-11 HOST EXERCISER
CZCMUA, P11
06-MAR-B0 15:13
2969
2970
2971
2972
2973
2974
2975
2976

022322
022330
022331
022336
022342
022350

0226470
022473
022500
022506
022514
022522
022530

022536
022544

042507

MACY11

K
5§
30A(1052)
10-MAR-80
14:09
PAGE 54
CONSTANTS, VARIABLES & ACSII

SEQ 0062

020123

023051

047520
040040
046505
020043
052123
020075
051525
040040
025052
052117
052101
040510
025052
046505
052123
047040

05212¢

PORTMS
:

LASCII

/8PORT # o/

052117

REMSG:

LASCII

/RREMOTE # a/

052101

STATEM:

.ASCII

/RSTATE = @/

051117

USORM:

LASCI]

/8USOR = a/

REMCHG:

LASCI]

/8*x+ REMOTE STATUS (HANGE

REMSTM:

LASCI]

/RREMOTE

100

#+*a/

STATUS NOW a/

043505

046125

REGMG:

LASCI]

/ REGULARQ/

051111
040514
025052
051040
051505
044440
046125
025052

042522
040122
040440
046505
047040
051122
051101
040046

IRRGMG:

CASCI]

ALROFF
:

LASCI1

/Rexe ALL REMOTES NOW [RREGULAR s*+§3/

100

IRREGULARa/

g
BEE
SORT
NS

;ERROR MESSAGES
022552
022560
022566
022574
022602
022607
022614
022622
022630
022636
022644
022652
022660
022666
022674
022702
022705
022712
022720
022726

022732
022740
022746
022754

020124
020117
042105
052123

NOGO:

LASCI]

/ HOST MICRO FAILED

026522

NOTUP:

LASCI]

/ PWR-UP

(SRRST:

LASCI]

SPR(LR:

LASCII

/ CAN'T (LR SPAR REG.@/

SPRDAT:

LASCI]

/ BAD DATA

100

027107

SEQUENCE

(SR REG.

NOT

TO START.a/

NOT

COMPLETE.(BAD

RESET.@/

SPAR REG.w®/

(SR).3/

CZCMJAO CMR-11 HOST E
CZCMUA, P11
-

3025
3026
3027

MACY11

022761
022766
022774
023002
023010
023012
023020
023026
023034
023042
023047
023054

020121
040440
052123
051117

10-MAR-80
30A(1052)
14:09
PAGE 55
CONSTANTS, VARIABLES & ACSII
ISATE:

LASCII

OSDTE:

LASCI!

/ REQ SCPD ADR

RESULT

SEQ 0063

TST ERROR.a/

SCPD DATA TST ERROR.a/

OSATE:

LASCII

RESULT

ISDTE:

.ASCI]

REQ

027121
020104
046101
027123

RQSPCL
:

LASCII

REQ.

SCPD NOT ALL

0'S.a/

027123
020104
046101
027123

RSSPCL
:

LASCI1

RES.

SCPD NOT ALL

0°'S.a8/

051114
043040
020104
051114

CLTBER:

LASCI!

"'CLRTPB'* FAILED TO CLR TOP BYTE.a/

DIERR:

LASCII

WRONG CSR FOR 'DIE'" FUNC.®/

:
(SRWE

LASCI]

BAD (SR BITS WHILE HUNG.®/

047101
051114
041440
044510
047125

CSRCE:

LASCI1

CAN'T CLR LOW (SR WHILE HUNG.a3/

041501
042105
051440
046527

:
SPAVMTME

LASCII

ACCESSED REQ S(PD WITH 'MAIN'' SET .8/

SCPD ADR

SCPD DATA

TST ERROR.a/

TST ERROR.3/

044127
052510

040
051523
050505

RSUNRISFIIBNE
R U

—

FARUKLE IR

=N
= = /B NOO

BOOVO\VU\LNN-'O
—a—a—a—a-a_a—‘—a—l—ag

—d md
d e
e
d —d id nd
d
b
d e
—l

NN o
VN N =

D
d o
—d
e
e
e
)
—
e

024110

30A(1052)
10-MAR-80
14:09 PAGE 56
CONSTANTS, VARIABLES & ACSII

SEQ 0064

047111
027124
042503
051040
050103
044124
052506
052105

SPAVFE:

JASCI]

/ ACCESSED REQ SCPD WITH ''STFUN'' SET.a/

020124
020124
051122
047125
040056
0467117
044040
047111
050125

NOINTR:

LASCI]

/ HOST

ERINTR:

LASCII

/ ERRONEOUS HOST

INTERRUPT.a/

047117
047511
020056
044440
044107

WPOD
1 :

LASCII

/ WRONG PRIORITY.

DEV.

020107
020056
042105
047111
051123

HITER:

LASCII

/ PROG

047522
023516
051117
051522
047516

VISF:

LASCI]

/ MICRO DIDN'T

053040
047117

VIDER:

LASCII

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

SPAVIC:

.AS(CI1

/ ACCESSED RES.

STESTF:

.ASCI1I

/ WRONG CSR WITH "STFUN''.
@/

[aR R WAV
LS 1, N}
NNVOONON
S =

100

040515
042523

MACY11

RAAR
R AAR
SERNS

021040
020042

PONINONONINONY
= —

023432
023440
023446
023447
023454
023462
023470
023476

CZCMUA. P11

HOST EXERCISER
06-MAR-80 15:13

8[ASR SRV T NIV, P ol oo S VN o]

CZCMJAC CMR-11

CAN'T

INIT.

INTERRUPT UNIBUS.a/

FAILED

STORE

IS HIGHER.a/

INIT

(CSR.a/

VERSION NO.a/

SCPD WITH

INTR (LR.@/

WA — O

SIKRIABILS
2R
EIUSERaTao

0241
024116
024124
024132
024140
024146
024152
024160
024166
024174
024202
024210
024213
024220
024226
024234
024242
024244
024252
024260
024266
024274
024301

046442
051040

RNION N

3137

3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161

ARRRRRRRER

CZCMJAO CMR-11 HOST EXERCISER
CZCMUA PN
06-MAR-80 15:13

020116

047111

042101

MACY11

:
RSPESF

LASCII

052440
051106
052123
047440
047111

USOFET:

LASCII

BAD USOF

047117
020122
021040
021124

STEMF:

LASCII

WRONG CSR WITH "MAINT'‘.
@/

052440
051106
040515
043040

USOFE2:

LASCI1

BAD JSOF

044501
047125

DATLER:

LASCII

"MAIN'' FUNC GAVE BAD DATA LEN.a/

RSPEMF:

LASC1]

RES.

USOFE3:

LASCII

BAD USOF

USOFE&:

LASCII

WRONG USOF

PLFFE:

LASC]]

TOTAL

PLTXTO:

.ASCI1

PORT

PLR(CTO:

LASCI]

PORT RCVR TIMeD OUT.a/

100

/ 'MAIN'' RESULT FUNC.

CODE WRONG.a/

FROM "'STFUN'' ON MAINT.a/

FPOM 'MAINT'' FUNC.a/

042526

042040
042514

OOSLOCOO ==&~

~ b?mmdaaumg

024574

S RISRRRRER
o
—
PVNOS-‘\I\IOO
o
—
AN b md —d \ ) b

N LEBEIRRREI2RE

b —d —a
h o
b
b
b
b oh md
b
—

SEQ 0065

044501
051505
052506
047503
047522

027123
020103
053440
043040
040513

N N AN U AN AN N AN AN N NN N

N S
10-MAR-80
14:09 PAGE 57
CONSTANTS, VARIABLES & ACSII

30A(1052)

FUNC

CODE WRONG FOR 'MAIN''.a/

FROM 'MAIN'' ON REG FUNC.a/

ON REGULAR FUNC.a/

FAILURE

ON "MAIN'' FUNCTION.@/

XMTR TIMED OUT.@/

- N?O—‘-—'\AON
WX
NS
VNINONWVNON

PLDERR:

.ASCII

/ PORT-LOOP DETECTED DATA tRROR.a/

OO
—=SANAN =

026524
042040
042524
040524
051117

020124
051105
051040
043517
051505

SYSER:

.ASClI

/ HOST SYS ERROR.

040511
047125
042526
043516

DIAGF:

.ASCII

/ "DIAG'" FUNC GAVE WRONG FUNC CODE.a/

—_

oo W ~N

ON)—
O — 2

052040
047440

~NO iy

B 6
10-MAR-80
14:09 PAGE 58
MACY11 30A(1052)
CONSTANTS, VARIABLES & ACSII

80*
RR norny¥, )

04152°.

RV,

024602
024610
024616
024622
024630

OO0
AR [N
SV

024744
024752
024760
024766
024774
025002
025010
025016

DIAGUF: .ASC.]

RUN LOGIC TEST.a/

/ USOF WRONG ON 'DIAG'" FUNC.a/

052506
.EVEN
;TABLE

STORAGE

:TABLE OF BAUD RATE MESSAGE POINTERS
025022
025024
025026
025930
025032
025034
025036
025040

BDRTBL:

025122

.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
. WORD
. WORD

8D1
BDZ

BD3
BD4

BDS

8D7
808

;TABLE OF ASCI! STORAGE FOR BAUD RATES
025042
025047
025054
025062
025070
025076
025104
025112
025120
025122
025130

031440
040
030440
031040
032140
03440
021 %0
020042
040104
021040
04051

8D1:

LASCII

8D4:

.ASCI1{

8D2:
8D3:

8DS5:
044510
050123

050123
021114

8D6:

BD?7:
8D8:

LASCII
ASCI!

LASCII
LASCI!

.ASC]1]
LASC]]

NN,

3193

- M

CZCMJAO CMR-11 HOST EXER
06-MAR-8)
CZCMUA, P11

3008/
60Ca/

12008/

24009/

48008/

96008 /
‘HIGH'® SPEEDR/

/ "SPECIAL"" SPEED@/

SEQ 0066

(ZCMJAD CMR=11 HOST EXERC]SER

CZCMUA. P11

025136

042520
025144

0421t

10-MAR-80

14:09

CONSTANTS, VARIABLES & ACSII

100

PAGE 59

LEVEN

:DATA TABLE TOR MAINTENANCE AND DIAGNOSTIC FUNCTION
DATRL:

025144
02514¢€
025150
025152
025154
025156

025170
025172
025174
025176
025200
025202

.wWORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

OO
003
007
017
Q%7
077
177
377
376
374
370
360
340
300
200
000

;PORT CONFJGURATION STATUS TARLES.
025204
025404
025604
026004

00€100
000100
000100
000100

EXTBLY:

EXTBLZ:
EXTBLY:
EXTBL4:

.BLKW

.BLKW
.BLKW
.BLKW

64.

64,
66,
64.

:TABLE FOR ORIGINAL
026204

000011

VERSP:

.RBLKW

(PWR=-UP) VERSION DATA

;TABLE FOR 2ND VERSION DATA
026226

000011

VERSUN:

.BLKW

026250
026251
026252

026253
026254
026255
026256
026257
026260
026261

g8S8338888

;SOF TWARE FLAG BYTES
'FLG:
ALG:
GOFLG:

.BYTE
JBYTE
.BYTE

0
0
0

NFLOF:

.BYTE

THRUF:

.BYTE
.EVEN

INCF :

SAFE:
SLFL:
CONFLG:
ONCE :

BYTE
.BYTE
8YTE
.BYTE
BYTE

O
0
0
O

JVARIABLES:
026262
026264

3249
3250
3251

06-MAR=-80 15:°3

MACY11 30A(1052)

ADDR :

ALLFLG:

.WORD

SEQ 0067

3305
3306

026266
026270
026272
026274
026276
026300

MACY11

BAUD :
CHNGFL:
(LK:
(NTR:
(SR:
DEVER:
ERRCNT:
ITER:
LINLEN:
MASK :

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

PASCNT:

.WORD

PCONT:

.WORD

PAT :

PORN:

PORT:
PRIO:
REMFLG:
REMNO:
REMTN:
REMST:

SAVEC:
SPAR:
SPDR:
SR:
SWREG:
SWRFLG:

TALLY:
TBLAD:
TEMP:

VERFLG:

WORD :

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
_WORD

.WORD
. WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD

.WORD

s CONSTANTS:
000170

164000

VECTOR:
DEVADR:

177562
177560
177546
177566

kKBD :
kKRS :
L(CS:
T178:

000004

177564

000001

30A(1052)
10-MAR-80
14:09 PAGE 60
CONSTANTS, VARIABLES & ACSII
jelelelololelslolelelololololaleololalolololololololololololole]

CZCMJAO CMR-11 HOST EXERCISE
R
|
CZ(MUA.PIN
06-MAR-80 15: 1 3

FKPR]O:

1718

.WORD
.WOKD
.WORD

.WORD

.WORD
.WORD
.WORD

170

264000
177562
1727560
177546
177566
177564

SEQ 0068

B14

025076
025104
025122
002000
017452
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000

= 020000

- 040000

387

624

(ONFLG
(ONTW!

026257
016266

628+
837+

631
869+

1110+
1265

1178+
1303

2075

1416

523

2602
32274

2410

1931

2051

2159

917

1635

1842

1921

1969

2050

2108

2153

661

724
1823
1903

727

729

735

802

1612

614
848

635
874

508

1402

23404

1076
1249

33034

581
810+

2179+
27854

AN —

767
1075
1248+

2168
2555

2074

698+
1197
1338«

I94H

630
659

1430
1655

2261
569
821
1098

100000
016256
012230
026270
026272
002532
023215
012166
026274

579+

766%
943
1231

3304#

2164+
2146

2059

2058«
3305~

1323

815
=
CCRTN
CELP
CHNGFL
(LK
CLKINT
CLTBER
(MREXC
(NTR

578+

1502

1720
1177

1732

1659

1819

585
1115
1334

1853
1229

1737

2020+

2023+

896«

899+
1686+

1521
1977«

2593«
23%6

1982+

1144
1343
1932

2160

1759

1177
1469
1942

1201
1556

2063

1773

2035

2047+

9CSe

915
1782+

1689+
1987«

681

1992

—

BD6
BD7
808
BEGIN
BINPNT
800
=
801
=
B02
=
B0O3
=
BO4
=
BOS
806
=
807
=
B08
=
809
=
810
=
811
812
=

S164
501#
1392
32384
3239#
32404
32414
32424
32434
3244n
32474

942+
1230«

2138

-3

025054

025062
025070

2911a

563
739

2136
460
1636

NN
—

803

B8D4
B8DS

738+
927
1213
1671+
1361

454
1499+

SEQ 0069

N
— —

025042
025047

1494«

2135+

026266
021634
002626
002534
025022

BD1
BD2

B13

6070

29924
562

442

BAUD
BAUDM
BCNTZ2
BCONT
BDRYBL

2133

BAD

026¢62

020371
026264
~~7506

10-MAR-80
30A(1052)
14:09
PAGE 62
CROSS REFERENCE TABLE ~~ USER SYMBOLS

—~goo
N~

ADDR

AGAIN
ALLFLG
ALROFF

MACY11

)
— =
S~
—

CZCMJAO (MR-11 HOST EXER
. 211
C2CMUA
06-MAR-80

709

966

1229
1577

2085

77
1025
1269
1617

CZCMJAOQ CMR-11 HOST EXERCISER
CZCMUA. P
06-MAR-80 15:13
CSR

CSRCE
CSRRST
(SRWE
DATBL
DATLER
DBAID
DBFLG
DECJSP
DECPNT

DERR

026276

023344
022660
023312
025144
024301
020507
026251
017526
017500

0160C2

547
942
1163«
1506%
1842+

2128
949

587
933
1518
1271
2130
503»
2664H»
1442
573
951

MACY11
561
956
1176~
1535«
1846

2138
30714

1453

26534

589

2086
2076
910
26844
26834
125
433
446
1545
1439

ENPRTN
ENRET
ENOT
ERCTM
ERINT
ERINTR
ERINTT
ERR

010562
010642
010632
021747
006014
023552
006134
015716

ERRAD
ERRCNT
ERRM
ERRNUM

016062
025302
016072
016064

1432
1451
1447
1444
997
1027
1038
555
1857
2301«
$35«
2305
554
934

16438¢
14540
14524
29254
10224
309¢a
10494
970
1946
2302«
1452
23454
572¢
950«

DIAGY
DIAGIO
DIAGZ2

DIAG3S
DIAG4
DIERR
DIVID
DIVSET
DVATST
DVECT
DVPRIO
ENDCHK
ENDPS

ENDYO

014414
014432

014452
014470
014556

012050

2067

617
401«
469
2065
1734
1786
2081

20454
20494

2052#
2053
2060

1639

12200

2140

2196+

014742
014750
023257
017602
017600
015466
020424
020450
011770
021732

DIAGO
DIAGOO

026366
026300
015600
024723
012706
014332
024766

578
975«
1178
1536«
1901+

30134
30664
2036
31594
28004
2127«

1084
2083
420«
33104
22734
32084
17814
1795
32144
2048
2071
2055
20564
20724
21054
2108#
30614
2688
2693
428
27904
2794
1566
2922#

DEVADR
DEVER
DEVGEN
DIAGF
DIAGFU
DIAGNF
DIAGUF

16464

1240

30A(1052)
10-MAR-80
14:09 PAGE 63
CROSS REFERENCE TABLE =~ USER SYMBOLS
867«
1006*
1227«
1537
1903

869
1017+«
1228«
1635«
1906

895+
1036+
1230
1687
1921«

897
1039+
1288+
1702«
1931«

2153~

2157«

2159«

2160

2413

2534

2564

32904

SEQ 0070
902
1045+«
1297«
1703«
1932

2274«

914+
1050+
1298
1704+
1969+

33094

917«
1067+
1332«
1720
2050+

925
1075
1333«
1722+
2051«

926
1089
1334
1738+

941
1134«
1463
1835

2052

2108+

32544

618

_
639

679

1119
23194
429

1189

1205

2273

33414

1803

18N

20354

1587

1608

16354

1661

1825

989

1015

2312
16480

588+
969+

707

747

775

819

846

878

912

935

1221

1241

1257

1273

131

1327

1347

1621

1029

1057

1102

1148

1473

1554

1575

1596

1097

2319«
1685+

2320«
2265+

23374
3311#

617
988

638
10140

678
1008+

706
1056+

7660
1083

774«
1101

818
1118

845
11470

877+
1188

311
1204

2107

22374

23014

1256

272«

1310e

1346+

1472

15530

157e

1595e

1620s

16366

CZCMJAO CMR-11 HOST EXERCISER
R

CZCMUA.PIN

06-MAR-80 15:13

MACY11

ERR1
EXCM
EXS1
ExS2
ExS2B
EXS3
EXS3A
ExS3B
EXTBLYT
EXTBLZ
EXTBL3

015730
022112
012300
012370
012430
012470
012530
012552
025204
025404
025604

1856
23034
1706
1688
17184
1721
1724
1740
1742
473«
476+
475«

1945+
2321
2944n
17014
1729
17264
1727
17454
1744
1711
1712«
1713«

EX1
Ex2

016330
016346

2372
2400

23994
24034

EXTBL4G

EX3
EX4
EXS

026004

016360
016376
016430

FILL

FILMSG
FKPRIO
FLCNT
FRAD

GDINT
GETCHR
GETDG
GOFLG
GOOD

017350

017354
026370
017352
020344

006056
016512
017620
026252
016066

4,76+

2404
2368
2612

2545

2542
448
26034
41§

1005
264628
2685
2151
560+

699

Q24>
1211

HDER
HELPM
HITER
HWSWR -~

INCF
INPKB
INTCNR
INTCNT
INVLAD

IRRGMG
ISATE
ISODTE

ISP

ITER
JUST
KBBUF

KBD
KBRD
KBRET
KBS
KRTN

015644
020733
023646
177570

26253
016474
006130
006070
020534

022473
022761
023103

= 002000

026304
017652
01734¢

020372
016734
016746
026374
01732

1714«

2407#
2408
2614

2550

26044
33424
2720«
2781a

10354
2484
26894
2193
563

737+

927
1213

G 6
30A(1052)
10-MAR-80
14:09 PAGE 64
CROSS REFERENCE TABLE == USER SYMBOLS
2066+

2082«

2307

23384

1731

1750

1753

1828

1733

17364
1976
1981
1986

32744
32754
32764

1751#

1761
1764
1767

1770

1781
1790
1798

1806

2611w
24616

24154

2558+

26024

1991

SEQ 0071

32774

2720

2723~

2489

2496

2526
580«

2588+

3291«

581

609+

625~

626+

627

630*

1074
1247

1076
1249

1107~
1263+

1109«
1265

111
1302+

1177«
1303

1179
1317

26584

2551

739

940«
1229

764

943
123}

767

809+

811

836+

838

1339
430
521

1614
&7?
2827#

2057«
22854

2059

2073«

2075

2325

2339

2177
419
1048#

2525
437

2579«
450

32904
509

1490

1528

2134

217§

2383

1061

1883
677
773

1038
2804a

29904
30254
30404

5320+
27004
(17
467
2174
2495«

1624
2703
420
468
2176
2500«

394

2237

2286

2294

2401

2609

2532

(2?2
507+«
2381«

435«
SN
238§

(38
S13
26460

(39
516
24610

448
1488
2476

45
149
2478«

2524
2523

257%

2580

2592

25954

1082
on

1021
2239

2369
2462
2418
2366
2540

3107«
409

388

2391
25228
25254
389
2560

1428+

2550«

1477

2557

2522

3344l

2563

2567

1653y

2558

1657

26014

1683+

1817+

1821

1505
2480+

631
868+

669+
870

697+
1197
1337+

3312«
463+

1527+

248

4650

2133
2693

466

2135
2494

NE K

NOGO

NOINTR
NOKEFL
NOREM

NOTUP
NRTRN

NULLS
NULOUT
NUMPNT
OCTJSP
OCTPNT
0DTPR
OFLOF
ONCE

OSATE
CSDTE
OVFLM

PASCNT
PAT
PCONT

PLDERR
PLFFE
PLRCTO
PLTM
PLTXTO
PNT

PNTEND
PNTEXT
PNTRIN
PNTO

PNT
POK
POR(N
POR(NF

016726

022552

023514
017344
(022223

022607
016710

017556
017570
017572
017422
017374

32894
648+

23694
1434
1069+
542+«
549
7084
929
1058#
1215
13484
1851

33144
1544
1071«
S44
567
7484
945
10854
1235
164740
1940

553

30014

2458+

2498

1013

1747
571
2466
1421

026312
026314
026316

2674n

2657
26314

2668

26814

827
2292

854

2308

1684«
1745+

2267+

32934

1479+

1658+

1752+

2568

647
510+
2570

1772

19204

646+
508+

(024622
024503
024574
022002
024546
017672

2061

2293

783

023047
023012
021765

964
11034
1251
15554

2594

2184

014760
026254
026260

776M

2590
1826

26774
2624
2011

1719
1073«
546+

012106
017634
012156
012124

012132
010722
013764
01354C

1769

1725

1562

2313

1827

1936

612
8204

6194

11204
1267
15764

1142
1274
1590

2077

2084n

1583

2326

1896+

3297#

1682+

1822+

33154

1489«

1491«

1526+

3316w
331 7#

9904

1529+

23654

2012
633
8474

1009
1149
1305
1597#

1629

1869

649
10684«
5414«
Son
701
9134
1051
12064
1341
16984
2499

33134

€24
2370a
2367

402«
403

2028+

3"\)

026310
016162
016156
016142
006210
002724
000054

015440

2017«

OW—=0O

MASK
MONCH
MONIC
MONIT
MOV
MOVB
N
-

LSTSTY

29004
2015+
S31w
2226*
22264
647

SEC 0072

) -2

33L5
537
1975«
512

oowogw—-wo
x
¥
=

026376
021543
026306
002656
026250

H 6
30A(1052)
10-MAR-80
14:09 PAGE 65
CROSS REFERCNCE TABLE == USER SYMBOLS

O Wi = 000w
OO
— N =0

LCS
LGKTSM
LINLEN
LOGTST
LSIFLG

MACY11

r\)-—)—-‘—l

CZCMJAO CMR-11 HOST EXERCISF
CZCMUA. P11
06-MAR-80 15-13

2377

2546

26204

1887

2008

2197

2199

2382+

2384

013752
026320
026322

PORTLP
PORTMS
PORTN
PORTOM
PORTIM
PORT2M
PORTIM
PORXT
PURO
POROO
POR1

010644
022331
022030
(021652
021666
021702
(021716
014014
013634
013652
013726

PREML
PREMO
PREM1
PRIQ
PRLC
PRMT1
PRMT2
PRMT3
PRMTL
PRMTS
PRNREM
PROMT
PRTCNF
PS
=

PSTE

1965

1582

2005

2971#

1979+

1603

33204
444

449

456

462

1990
427
1774

2241

1995

2004

1586

1607

1632

406

<08

2570

)

15054

O&mmmmmmmmmmm
N8N
B NN
38%QO NN

011762

= 000000

1504

—d

011440
011526
011540
011626
011640

011426

1531

PST8
PST8S
PST80
PST80S
PST9

1929

1561

2025

—

011070
011076
011200
011226
011262
011276
011312

01130

P3
P&
PS
P6

177
151

601

011216
010760
011042

PST?7S

P1
P2

7 68+
p) 14
3 194

014312
014212
014274
026324
010652
002174
002220
002302
002356
002402
(014172
002112
012566
177776

PST?7

I
6
30A(1052)
10-MAR-B0
14:09 PAGE 66
CROSS REFERENCE TABLE =-- USER SYMBOLS

011054

PSTS
FSTO
PST?
PST2
PST2A
PST3
PST4
PSTS
PST6
PST60

pPST19S

MACY11

oo
N

PORLD
PORN
PORT

—am

CZCMJAD CMR-11 HOST EXER
CZ2CMUA.P1T
06-MAR-80

1522

1565
1540
15414
15464
15634
15674
1584n
15884
16054
16094
16304

= 000040
= 000100

=
=
=

000140
000200
000240
000300

000340

1651

1664

SEQ 0073
1984«
1628

1989+
1638

1994«
1640+

2007
1642

33184
1644

1646

CZCMJAD CMR-11 HOST EXERCISER
CZCMUA.PIN
06-MAR-80 15:13
017766
022462
015422
015406
022400
026326
026330
022342
026334
(022436
026332
014042
014074

REP1

014120

REP3
RESTRT
RJFLG
RQSPCL
RSPEMF
RSPESF
RSSPCL
SAFE
SAVEC
SBAK

0146170
002460
017764
023135
(024341
024111
023165
026255
026336
015544

SCALM
SCART
SCA1
SCA2
SCA2A
SCAZB
SCA2C
SCA2D
SCAZ2E
SCAF
SCA3
SCONT
SCORTN
SCPAD
SCPRTIN

SskPD2

22164
22054

2637
2632

2648
2643

2659
2654

2670
2665

1802+

1810+

2044

33224

2295
2644~

2655+

2666+

2698

2538

2544

2572

3294

1930

1934

2049

2054

1862

33214

1785«
1865

29734

3324H
1871

33234

18614
18804
18864
18894
18914
1890
19004
19034

22654
22684
712

576
954
1244

013070

SKPS

013014

SKP?7

013050

SkP8
SLFL
SPAR

27324

013150
013536
013212
013300
013374
013416
013430
013436
013450
013472
013512
015562
015576
021560
015526

013106
013140
012724
012742
012760

SKP6

2686

1877

014144

SkPX0
SKPX1
SKP1
SKP2
SkP3

SKP4&

2681«

SEQ 0074

012776
013032

013066
026256
026740

18174
1821#
1824

1800
1801
1808
1809

2149

595

17854
1790#
17944
17984
1802#
18064
1810#
18144

2188
600+

2704

27314

1902

1892

752

592
973

1260

18944

780

621

824

851

1276

42
9
4

689
1032
1330

2583
610

32954
627+

628

29034
717
1060
1350

757
1087
1564

785
1105
1585

656+

659e

661+

829

1122
1606

WA
— — OTM

REP?2

J
6
10-MAR-80
14:09 PAGE 67
CROSS REFERENCE TABLE == ULSER SYMBOLS

30A(1052)

O
— 0

RADIX
REGMG
REGRES
REGSAV
REMCHG
REMFLG
REMNO
REMSG
REMST
REMSTM
REMIN
REPORT
REPO

MACY11

881

1192

2070

18274
1788

1797
1805

1813

2527+
608e

667+

919
1208

2106

CZCMJAD CMR=11 HOST EXERCISER
CZCMJA.PT1
06-MAR-B0 15:13

MACY11

691
759
826
1125
1279+
1515+
1873+

693

SPAVFE
SPAVIC

SPAVME
SPOR

SPRCLR
SPRDAT
SR

2043+

023447
024015

987
1146

026342

597
890+
1165+
1292+
1546
1880

023403

022705
022732
026344

968

2044
616
637
409+

1025
1323
1655

SRTST
SSWR
=
STATEM
STEME
STESTF
S0
ST1

ST10
ST100
ST101
ST110
ST110S
ST111°
ST112
57120
ST1205
ST121
ST13

ST130
ST131
ST131A
ST1318
ST132
ST1325
ST133"
ST1%
ST135
ST1355
ST136°
ST14

2376

015450
026346
022355
026213
024060
002714
003034

407
104
209
1239
1187
5394
548

004462
004540
004506
004514
004552
004646
004654
004674
004710
005004
005012

7974
805
799
8034
8104
822
812
832
8374
849
839

004074
004106
004160
004172
004274
004302
004324
004336
004432
004440
004456

005030

720
7064
731
7370
750
740
760
7664
778
768
788

859

761+

831

1127+
1281«
1519+
1922+

2045#
30844
31264
30774
658+

30A(1052)

10-MAR-80

-CROSS REFERENCE

696+
765+

833«

714

782

835«

1164+

1291+
1609~
1926+

2072+

TABLE

14:09

719
787

853

1166+

1293«

1610+
1928+

2090+

670
958
1171
1301
1610
1925«

6
PAGE 68

== USER

721+
789+

SYMBOLS

704
796«

860

1170+
1300+
1613
1950+

SEQ 0075

729+
800«
891«

1174w
1336
1643+
1960+

730
802+
893«

1194«
1507+
1647«
1962«

2102+

2168

2276+

728+

766

797«
1094
1264
1514+
1650+
1961

732+

804
957«

1210+
1509+

735+
806+

976+
1246+
1511+
1848+

2039+

754

808+

1091+
1262+
1513+
1867+

2041+

837

892+
1167«
1294+
1567
1886
2046+

2074

2169

2174

2042+
33274

410
77?7

569
82°

681
931
1217
1577
2079

703
947
1237
1592

749
1011
1307
1623

3017#
30214

977
1196
1508+
1642«

1098
1430
1819

33284

593

857

1435

1248
1512«

1648+
1959

2085

1140

1290+
1542

1874

2261

CZCMJAO CMR-11 HOST EXER ISER
CZCMUA.PT?
5:13
06-MAR-80

ST70
S171
ST80
ST80s
ST81
ST82

003524
003576
003606
003710
003716
003740

S1?7

ST90

ST90S
ST91
SWOMP
SwHLT

b b
b
b
b
b ad
b

1193

1209

1225

1245

1267

1277

2373 382

2394

135

007332
007420
007506
007534
007614
007622
007720
010006
010022
010120
010132
010166
010502
010520
010552
003214
003234
003254
003330
003344
003454

920

—
muu—-nooo\:\u\?; N)
o

ST206
S1207
ST21
ST22
ST1220
S1221
ST1222
ST223
ST2264
S123
ST23A
ST230
ST24
ST25
ST26
ST3
ST4
ST6
ST60
ST61
ST62

007134
007222
007252

L 6
30A(1052)
10-MAR-80
14:09 PAGE 69
CROSS REFERENCE TABLE =~- USER SYMBOLS

9754
9974

ST203
ST204
ST205

006752
006766
007046

8854

916
9244
9404
9564

ST200
ST201
ST202

005114
005270
005312
005400
005466
005574
005702
005726
006010
006202
006334
006362
006424
006514
006534
0032130

PNOMNINUN)
= = Db b e\ N 2 O

ST15
ST150
ST16
ST160
ST161
ST162
ST17
ST170
ST170R
ST18
ST180
ST181
ST182
ST183
ST19
ST2
ST20

MACY11

1351

14284
14344

622
650

003514

695

003754

004050
004056
016174
015506

722

«89

1476

2248

1700

1860

1349

22468

2259

SEQ 0076

\No—e

CZCMJAO CMR-11 HOST EXER% S ER
CZ(MJA.PT1
06-MAR-B0
15:13
SWREG
SWRFLG
SWRMSG
SYSER

TALLY
TBLAD
TEWP
THRUF
TPCONT
TPOFCH
TPOUTX
TRPL
TSTHDR
TSTRSK
TSTSEL

T
0

TTOLF
TTOLP
TTS
TWOSP
TYPCR
TYPCTP
TYPOUT

026346
026350
020642
02466/

10
406+
2376
1855

006352
026354
006356
006261
016460
016434
016470
020600
017770
002642
020704

1700«
1761«
2085«
1709«
2642
24384
2440
2288
412
517
505

026400
017700

2712«
1367

2463

017722
017704
026402
020636
022062
020650
016432

USOFE1
USOFE2
USOFE3
USOFEL
USORM
VECTOR
VERFLG
VERSM
VERSP
VERSUN
VIDER
VIS
WOAT
WwDSDB
WDWAS
WORD

024152
024244
024403
024446
022367
026364
026360
021601
026204
026226
023746
023706
016105
016117
016133
026362

wPODI
$08
$1$
$108
$118
$°3% $oA$

023605
015004
015010
015074
015220
01533
015122

2716
27130
2713
2172
1526
2387
413

753
1420
1748
2173

2549

1219
1255
1325
1345
2100
435
531«
1363
596
1093
117
1100
2310
2323
2328
657%
959«
1940
1400«
1055
21328
2133
2139
2150
2178

o153

MACY11
33294
487
2816a
1944

1730
1764x
2290+
1726
244iH
2446
244 7H
2810#
2739w
5204
2803w
33484
1838

2476

27184
2714
33474
2379
29404
2818«
416

781
1440
1863
2240

2556

3143
31544
3171
31774
29774
438+
1356
29064
1092
1360
3119
3113
23474
234om
2354
658
960«
1376«
1407+
31014
2144
2148
2145#
2168¢
21884

2194

M 6
30A(1052)
10-MAR-80
14:09
PAGE 70
CROSS REFERENCE TABLE == USER SYMBOLS

2232+
32004

1739
1767+
2291
1749+

1839

2246

33304

1760«
1770+
3333k
1751«

1889+
1920

1891
33324

1905«

32984

1841

2019

1840

26B6

2488

2548

28154

426

436

2584

589

1893«

1894

1967+

1968+

3331w

2022

2027

2143

2166

2186

461

’
806

2675

825
1445
1866
2289

852
1450
1872
2306

1364
1484
1878
231

1372
1487
1884
2315

455
1 375
1 503
1 899
2 324

997«
1359«

1005+
3334w

1038+

2279

33404

665
961
1377+
1403+«

668
9%2
1379«
1404

669
977+
1380
1410¢

6%+
978+
1386c
1411e

725«
979«
1387«
1412«

2195
2183
2187

2190

463

447

SEQ 0077

2676

2701

271am

522

2719

538

2398

2722

685

2444

713

1382
1525
2006
2329

1385
1560
2089
2375

1396
1581
2095
2380

1399
1602
2101
2388

14606
1627
2131
24374

1409
1707
2147
2543

726
980
1388«
1413«

733«
981
1389«
1414s

73
1136+
1390e
1415«

737
1137+
1391e
1417¢

762+
1138+
1333+
1418

958e
1139
1334
33354

3281
32854

CZCMJAOD CMR-11 HOST EXERCISER
CZCMIA. P
06-MAR-80 15:13

$2%

$20%
$21%
$22%
$23%
$24%
$25%
$3%

$4%
$5%

015106

015266
015300
015316
015350
015404
015366
015154

015162
015200

= 026404

2137

2152
2167
2182
2189
2198
2192
2156

2158
2161

MACY11

N 6
30A(1052)
10-MAR-80
14:09 PAGE 71
CROSS REFERENCE TABLE == USER SYMBOLS

21494

21774
21804
21844
21914
22004
21964
21594

2163

179

21604
2164#
123
155
181

231
257
283
309
335
361
552
G32

233
259
285
311
337
363
570
948

235
261
287
313
339
365
586
967

1224
153

205

1218
1854

SEQ 0078

207

1238
1943

131
157

183

209

1254
2064

133
159
185

211

237
263
289
315
341
367
615
986

1270
2080

135
161

187

213

239
265
291
317
343
369
636
1012

1308
26074

137
163

189

215

241
267
293
319
345
N
676
1026

1324
3250

139
165

191

217

243
269
295
3c
347
373
704
1054

1344
3274w

141
167

193

219

245
271
297
323
349
375
744
1081

1470
32754

143
169

195

221

247
273
299
325
351
377
772
1099

1551
32764

145
171

197

147
173

149
175

151
177

223

199

225

201

203

249
275
301
327
353
379
816
1116

251
277
303
329
355
381
843
1145

253
279
305
33
357
3864
875
1186

255
281
307
333
359
3924
909
1202

1572
32778

1593
32814

227

1618
32854

229

1694

REGRES
REGSAV

SCOPE

. ABS.

779
1523

2093
2547

1164
1124

9SH#

953
1275

026404

ERRORS DETECTED:

411

823

1558

2099
2554
2625
2620
557
972
1313

1859
998
624
1362
1600

2145

2647
2642
591
1018
1349

1948
1040
432
37
62
I4

2258

26¢Y
2664
64"

5
5
2
3

000
0

*
NL
: TCC=CZCMUA.P1
CZCMJA .BIN,CZCMJA.LST/CRF/SOL/
_SECONDS
3
20
9
RUN-TIME:

RUN-TIME RATIO: 71/34=2.1
(19 PAGES)
CORE USED:
10k

1677
441
1373
1705

2238

1059
1584

459
1407
1864

688

1086

1605

2307

840
1341
1548

872
1615
1569

504
1438
1870

520
1443
1876

1448
1882

—

769
1305
1142

SEQ 0079
£H WNOD
oy
—
~N— N

834

1475
396

1023

701
1251
1051

Q0 £~ 00 &
NOM W

824

1024

1215
1009

673
1235

N—J—l
N NN
&~

PNTM

1940

1113
549

633

—wVo

MTPS

612
1199
983

W—=20O W00

HLT

1078

567

Ny ——

ERROR

724

—
~nOND
VOO~

DATERR

(ZCMJAD CMR-11 HOST EXERC
CZCMUA. PN
06~-MAR-80 1

8 7
164:09
PAGE 73
10-MAR~80
)
MACY11 30A(1052
CROSS REFERENCE TASLE == MACRO NAMES

2322

784
1'50

2105

2327

1191

536

906

945

1590

1851

683

751
1501

2061

1482
1897

2373

2378

2087
2541

855

880
1223

937
1259

1207