Digital PDFs

AH-F914A-MC

May 1980

80 pages

Original

40MB

view download

OCR Version

53MB

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

OCR Text

CMR11 HOST
CZCM JAO

EXERCISER

AH-F914A-MC

EICHE

I
MADE IN USA
:

T TR TR

dhEhoany

I[DENTIF

SEQ 0001

PROGRAM CODE
:

AC=F912A=-M(C

PROGRAM NAME
:

CZCMJAD CMR17 HOST EXERCISER

DATE CREATED:

30-MAY=~79

MODIF IED:

14=JAN-80

MAINTAINER:
AUTHOR:

THE

ICATION

SPECIAL SYSTEMS KANATA
DAVID G.

INFORMATION IN THTS DOCUMENT

WIENS

IS SUBJECT TO CHANGE WITHOUT NOTICE

AND SHOULD NOT BE CONS.RUED AS A COMMITMENT BY DIGITAL EQUIPMENT (OR=
PORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

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

(C)

1979,1980 BY DIGITAL EQUIPMENT OF

CANADA LIMITED.

TABI£ OF

CONTENTS

SEQ 0002

ASSUMPT IONS

OPTIONS 7/ CONTROLS

LOAD ING
STARTING / RESTARTING
TEST DESCRIPTION

START-UP

TEST SELECTOR

LOGIC TEST

PORT LOOP-BACK
HOST-REMOTE EXERCISE
MAINTENANCE ROUTINE
END OF PASS
ERRORS

NO\WVN
S W) —

CAUTIONS

RESTRICTIONS

REQUIREMENTS

VOO0VO0OO0OOVOL0
0
NV
00
»n
&
W Ny
—

SECTION

SEQ 0003
GENERAL
THIS PROGRAM IS TO BE USED

TO TEST

THE

COMPACT MICRO REMOTE

(CMR=11) HOST HARDWARE AND TO BASICALLY CHECK COMMUNICATIONS
Bi;\gEEN THE HOST HARDWARE ON THE UNIBUS AND THE REMOTE HARDu

THE PROGRAM IS DIVIDED INTO THREE PARTS,

PURPOSE "MAINTENANCE'' ROUTINE:

PLUS A FOURTH

MULTI=-

= HOST LOGIC TEST
= PORT LOOP-BACK TEST

= CMR-11

EXERCISE ROUTINE

= "MAINTENANCE'" ROUTINE
THE HOST LOGIC TEST IS INTENDED TO BE RUN WITH ALL REMOTE
COMMUNICATION DISABLED OR DISCONNECTED AS IS THE PORT LOOP-

BACK TEST.
THE CMR-11 EXERCISE ROUTINE, HOWEVER, CAN BE
RUN WITHOUT CHANGING ANY OF THE HARDWARE FROM ITS ‘‘INSTALLED''
gggmm.
FOR THE DETAILS OF EACH TEST, SEE THE ACOMPANYING

REQUIREMENTS

HARDWARE :

PDP=11 OR LSI-11
CMR=11 HOST MODULE ON THE UNIBUS
CONSOLE TERMINAL ON LINE.

(Q-BUS)

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

SEQ 0004
3.

RESTRICTIONS
(NONE)

CAUTIONS
IT IS NOT ADVISABLE TO RUN THE LOGIC TEST OR THE
PORT LOOP-BACK TEST ON AN "ON-LINE'' SYSTEM WITH
THE REMOTES ATTACHED AS 'ON-LINE'' DEVICES MAY BE
AFFECTED.
THE CMR-11 EXERCISE ROUTINE, HOWEVER,
MAY BE RUN UNDER THESE CONDITIONS.
COMMUNICATION PORTIONS OF

THESE

TESTS FROM HOST

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

LOW (300 BAUD).

CAUTION MUST BE EXERCISED WHEN USING THE 'MAINT-

ENANCE'' ROUTINE SO THAT FUNCTIONS ARE NOT STARTED

WHICH WILL

COMPROMISE ANY 'ON-LINE'' SITUATIONS.

ASSUMPT IONS

5.1

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

?gR&F?g;T(ElgTPUT

5.2

IT IS ASSUMED,

TO INPUT PHYSICALLY,

IN THE CMR-11

ARE REMOTES ATTACHED

.B?E%LLQR”.

AND HAS SELECTED

EXERCISE ROUTINE,

(AT LEAST ONE)

AND

THAT

THAT THERE

THEY ARE

IF THIS IS NOT THE CASE, THE ROUTINE WILL

OPTIONS 7/ CONTROLS

6.1

SWITCHABLE OPTIONS

THAT PORT

(COMBINABLE)

SWR =

MEANS

100000
040000
020000
004000
002000

DON'T HALT AFTER ERRORS
DON'T PRINT ERRORS
LOOP ON ERRONEOUS ROUT INE
INHIBIT PROGRAM |TERATIONS
DON'T PRINT END OF PASS

CNTROL CHARACTERS

RESTART TEST SELECTOR

CNTRL=S
CNTRL=P

SHOW '‘SWR'* OPTIONS
PROCEED
,

CNTRL=F

SHOW CONSOLE FILL COUNT

CNTRL=0

6.3

SEQ 0005

CNTRL=C

CNTRL-T

ENTER 'MAINTENANCE'' DEBUG ROUT INE

NON=-SWR PROCESSORS

ON PROCESSORS WITH NO PHYSICAL SWITCH REGISTER

THE OPTIONS CAN BE

EXAMINED OR CHANGED BY

THE

"'CNTRL=S'' AND AT THE TIME OF AN ERROR HALT.

USE OF

THE

PRINTOUT:
SWR = XXXXXX :
WILL SHOW THE OPTIONS
AND THE OPERATOR CAN LEAVE THEM (<CR>) OR CHANGE
THEM (YYYYYY<CR>), THEN PROCEED (CNTRL=-P)

THE PROGRAM

BY MEANS OF

IS SUPPLIED IN
FORMAT AND IS LOADED
JABS
THE ABSOLUTE LOADER OR THE 'LOAD'' COMMAND OF

THE DIAGNOSTIC MONITOR XXDP.

STARTING / RESTARTING
STARTING ADDRESS :
RESTARTING ADDRESS

200
204

TEST DESCRIPTION

START UP:

INTERFACE ADDRESS:

TYPE
TYPE

INTERFACE VECTOR:

TYPE
TYPE

INTERFACE PRIORITY:

TYPE
TYPE

<CR>

164000

XXXXXX<CR> IF

ITS XXXXXX

<CR> IF

ITS 170

<CR>

17S 4

XXX<CR>
IF

X<CR> IF

JTS XXX

TS X

IF THE PROCESSOR HAS NO SWITCH REGISTER, THE SWITCH
OPTIONS WILL NOW BE SHOWN AND MAY BE C(MANGED (AS IN #6).

5.2

TEST SELECTOR:

SELECT TEST

SEQ 0006

(&4 = HELP):

(HELP MESSAGE READS:)

SELECT ONE OF

THE FOLLOWING:

CROR 1

= LOGIC TEST
2 = PORT LOOP-BACK TEST
3 = (MR-11 EXERCISE

4 = THIS HELP INFO

CNTRL=C
CNTRL=S
CNTRL=F
CNTRL-0

=
=
=
=

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 MONITOR

v.3

LOGIC TEST:
THE

FOLLOWING TESTS ARE PERFORMED:

TEST OF THE PWR-UP SEQUENCE
TEST THE SCPD ADDRESS REG.
TEST THE SCPD MEMORY
TEST ALL OF THE CSR
TEST INTERRUPT
TEST PROGRAM INIT.

CHECK SCPD ACCESS KEYS
SIMPLE FUNCTIONS TEST

G.4

PORT LOOP-BACK TEST
THE PORT LOOP-BACK TEST USES

LOOP MAINTENANCE FUNCTION OF
THE

THE PORT

THE HOST FIRMWARE
.

TEST WILL RUN WITH ONE PORT OR WITH ALL PORTS

SELECTED:
PORT # (<CR> = ALL):

THE OPERATOR MUST ENSURE THAT THE PORT(S)
TESTED IS(ARE) LOOPED FROM XMTR TO RCVR.

9.5

BEING

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

("'THRU'") . DURING THIS WAIT, IF ANY ALARMS OCCUR
LLHEARPBQELL ON THE CONSOLE WILL RING (4 TIMES PER

AT THE COMPLETION OF THE_SCAN, THE PROGRAM SHOWS
THE PORT CONFIGURATION STATUS AS FOLLOWS:

PORT # 0

PORT # 1

100

101

SHOWING EACH PORT ONLY IF

102

103

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 ‘DIAGNOSTICTM FUNCTION
AND ALL ALARMS WILL BE INDICATED (BY BELLS) AND
ANY CHANGES OF REMOTE STATUS WILL BE REPORTED:
*»+ REMOTE STATUS CHANGE #
REMOTE #X

3 REGULAR

REMOTE

STATUS NOU:

IRREGULAR
YYYY

"MAINTENANCE'' DEBUG ROUTINE
SEEAggé?N zHOULD BE EXERCISED WHEN USING THIS ROUTINE

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

IT ALLOWS EXAMINING AND/OR DEPOSITING ONLY IN THE
EMR-1ETEg§ATCHPAD MEMORY. FOLLOWING ARE THE OPERATING
XXXX/

(SLASH)

OPEN AND DISPLAY CONTENTS

<CR>

(RETURN)

CLOSE THE CURRENT ADDRESS.

<LF>

(LINE

FEED)

THE SCPD ADDR "%XXxX''

THE

CURRENT ADDR.

AND

OPEN THE NEXT SEQUENTIAL ONE.
XXXX<CR>

DEPOSIT 'XXXX'' IN THE

CURRENTLY

DEPOSIT 'XXXX'' IN THE

CURRENTLY

OPEN ADDRESS AND CLOSE
XXXX<LF>

IT.

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

SET "'STFUN'' OR 'MAIN'' TO START
THE CURRENTLY LOADED FUNCTION

PROCEED OUT OF

THE

'DE-BUG’

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

BE RE-ASKED).
{(CSR ADDR)/

ALLOWS EXAMINATION OF

THE HOST

(SR REGISTER ONLY. NO OTHER
UNIBUS ADDRESSES MAY BE EXAMINED
IN THIS FASHION.

SEQ 0007

END OF PASS
AT

THE

END OF

EACH PASS OF

ANY OF

THE

THREE

TES TS,

AN "END PASS'' MESSAGE IS PRINTED UNLESS INHIBITED BY
SWITCH OPTION BIT 10.
THE PRINTOUT

END PASS # X ERR.

IN THE

CNT,

FOLLOWING FORM:

= Y

:
WHERE
X = THE PASS NUMBER IN DECIMAL
Y = THE TOTAL NUMBER OF ERRORS SINCE

START

(DECIMAL).

IF THE NUMBER OF ERRORS BECOMES LARGER THAN 64K,
THEN *'«* QVERFLOW *+'' WILL BE PRINTED INSTEAD.
IF SWITCH OPTION BIT 11 = 0, THIS MESSAGE WILL BE

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

10.

ERRORS
FOR THE MOST PART,

THE

ERROR PRINTOUTS ARE

ERROR NUMBERS AND ADDRESSES

CAN BE

SELF-EXPLANATORY.

USED

THE PROGRAM LISTING FOR FURTHER DETAILS.

FOR REFERENCE

1
SEQ 0008

MACY11

30A(1052)

NN —

CZCMJAD CMR=11 HOST EXERC ISE
Sg R
CZCMJA.P1T
06-MAR-80 15:13

14:09

PAGE 1

SEQ 0009

LTITLE
CZCMJAO CMR-11 HOST EXERCISER
.SBTTL SYMBOLIC DEFINITIONS
TTM
NLIST
LIST
ME

O N
WN 2OV
R

e O
I

WN = OV

(A TS T AT W

10-MAR-80

s INTERNAL DEFINITIONS:
177776
177570

026346

PS
HWSWR
SSWR

=
=
=

177776
177570
SWREG

sREGISTER DEFINITIONS:
RO
R1
R2
R3
R4
RS
SP
PC

=
B
=
=
=
=
=

%0
%1
%2
%3
2
%5
%6
%7

;BUS REQUEST DEFINITIONS:
P7
Pé

=
=

340
300

PS5

240

P3
P2

=
=

140
100
40
0

P1
PO

=
=

200

;BIT DEFINITIONS:

B1S

B14

B13
B12
Bi1
810
B09
B08
BO7
B06
BOS
B04
BO3
B02
801
800
ISP

=
=
=
=
=
B
=
=
=
=
=
=

100000

40000

20000
10000
4000
2000
1000
400
200
100
40
20
10
“
2
1

BEGIN

SBTTL MACRO DEF INITIONS

sINITIAL STACK POINTER

CZ2CTMM)AD CMR=-11 HOST EXERCISER
CZ. . A.P1
06-MAR-80 15:13

59
8?

MACY11 30A(1052)

10-MAR-80

MACRO DEFINITIONS

000001

14:09

ERROR

BIT

#814 ,aSR

BNE

67
-8
69

75
76
77
78

=
vt

79
80

;

DATERR

BIT

#814,aSR

=
.ENDM

FRROR

wanwnwn

;hxnnnns

FRROR

sawwnnwn

#P ,ERRNUM
PC.ERR

.MACRO
BNE
MOV
MOV
JSR

Jexnxnxx

P,MSG

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

N+1

HLT

PC,SWHLT

JPRINT MACRO (MSG ADDR IN RO)

.MACRO

MOV

JSR

PNTM

#A RO

PC,TYPOUT

;JPRINT MESSAGE

* ;SCOPE LOOP MACRO

.MACRO

JSR

97
gg

X
.ENDM

]8&1)

SCOPE

RS,SCPRTN

s INTER-PDP-11 COMPATABLE MOVE TO PS

102

LMACRO MIPS

103

MOV

104

MOV

105

106

, 112

N+1

JSR
.ENDM

g(;

”(1)

.MACRO

83
gg

107
108
109

#MSG,RO

.ENDM

P,MSG

.+20

MOV
MOV
JSR

SEQ 0010

JINITIAL ERROR NUMBER

.MACRO

1
PAGE 2

N
=
;ERROR MACROS

LAl
:
.

RTI

SRC,?LLL

SRC,=(SP)

#LLL,-(SP)

.ENDM

JREGISTER SAVE AND RESTORE MACROS
.MACRO

REGSAV

;POINTED TO BY A

CZCMJAOD CMR-11 HOST EXERCISER
CZCMUA.PT
06-MAR-80 15: 13

MACY11

113
114
115
116
117

118

RS,REGSAV

MACRO
JSR

REGRES
RS,REGRES

1
PAGE 3

SEQ 0011

.SBTTL TRAP CATCHERS

121

131
132
133
134
135
136
137
138
139
1420
141
142
143
145
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

.ENDM

120

122
123
124
125
126
127
128
129
130

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

000002

000006

-ENABLE ABS

000000
000002
000000
015466
000340
000176

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

)

WORD
WORD
.WORD
WORD
‘REPT
WORD
"WORD
-ENDR

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
JWORD
“WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

42
DVATS]
340
126
. +2
0
0

42
42

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

:TRAP BAD DEVICE ADDRESSES

000132

ZRIRSRONSS
WN=O
NV

cndh

cld

USLSUSTS
LS NN 1NN

219

000000
000232
000000
000236
000000
000242
000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000

000272
000000
000276
000000
000302
000000

30A(1052)

10-MAR-80

14:09

TRAP CATCHERS

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

,+2
0
.42
O
.|
0
.+
0
2 ¥&
C
.42
O
.+
0
.42
0
.42
O
+ *8
0
.42
0

.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

X =
0
.42
0
.2
0
.+
O
.42
0
.42
0
.42
0
.42
0
.42
O
.+2
0
.+
O
,+2
O
.42
B
.+
0

WORD
.WORD
.WORD
.WORD
.WORD

O
.42
0

000126

RS2 8 O SIRRRER 2EIZI

)
i
sl sl
i
)
il
) o
sl
ol
—d o
e
)
—

000124

o ]

i —

169
170
171
172
173
174

MACY11

CZCMJAD CMR-11 HOST EXERCIS
CZCMUA. P11
06-MAR-80 15:

M1
PAGE 4

SEQ 0012

CZCMJAOD CMR-11 HOST EXERCISER
CZCMUA.P11
06-MAR-8015:13

225
226
227
228
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
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
274
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
000000
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

MACY11 30A(1052)
10—MR°80
TRAP CATCHERS

’

.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
.WORD
.WORD
.WORD
.WORD

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

000000
000426
000000

.WORD
.WORD
.WORD

000000

WORD

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

. WORD

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

.+2
0
+2
O
A4
0
+2
0
4
0
+2
0

14:09

1
PAGE 5

SEQ 0013

000466
000000
000472
000000
000476
000000
000502
000000

LWORD
WORD
JWORD
WORD
.WORD
WORD
JWORD
WORD

000506
000510

000000
000512

WORD
.WORD

WORD
JWORD

0
42

LWORD

,+#2

JWORD

WORD

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

WORD

,+2

WORD

JWORD

WORD

,+2
,¢2
,+2

,+2
NNV
NV NN

000566

0
42
0
42
0

,+2

319

000564

WORD
JWORD
WORD
JWORD
WORD

315

000562

42
0
42
0
,+2
0

JWORD

214

000

WORD
JWORD
WORD
JWORD
WORD
JWORD
WORD
WORD
WORD
JWORD
WORD
.WORD
WORD

31;
313

00556

311

000552

.42

000546
000550
000552
000554
000556

000546

306
307
308
309
310

305

000000
000516
000000
000522
000000
000526
000000
000532
000000
000536
000000
000542
000000

,+2

295
29
297
298
299
300
301
302
303
304

000512
000514
000516
000520
000522
000524
000526
000530
000532
000534
000536
000540
000542

.WORD

.42

504 000506

,+2

291
g
293

000464
000466
70
000472
000474
000476
S00
000502

289

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

287
288

MACY11

281
282
283
284
285

CZCMJAOD CMR=11 HOST EXERC s;n
CZCMJA.P11
06-MAR-80 15:13

14:09

PAGE 6

SEQ 0014

CZCMJAD (MR=11 HOST EXERC SEF;
CZCMJA.PT1
06=MAR-80 1

337
338
339
3,0
31
32
3.3
34
345
36
37
348
39
350

000644
000646
000650
000652
000654
000656
000660
000662
000664
000666
000670
000672
00067«
000676

352

000702

355
356
357
358
359
%0
%1
365
363
34
%S
3%6
%7
%8
%9
370

000710
000712
000714
000716
000720
000722
000724
000726
000730
000732
000734
000736
000740
000742
000744
000746

372

000752

351

000646
000000
000652
000000
000656
000000
000662
000000
000666
000000
000672
000000
000676
000000

42
0
42
0
42
0
42
0
42
0
42
0
,+2
0

WORD

000712
000000
000716
000000
000722
000000
000726
000000
000732
000000
000736
000000
000742
000000
000746
000000

JWORD
'WORD
JWORD
"WORD
JWORD
WORD
JWORD
WORD
JWORD
WORD
JWORD
WORD
JWORD
WORD
WORD
WORD

42
0
42
0
42
0
42
0
42
0
42
0
42
0
,+2
0

000000

WORD

000702
000000
000706
000000

371

000752

373

000754

374 000

375

376

000760

0007

JWORD
JWORD
WORD

JWORD

000756

JWORD

000000
0007

CWORD

?n 888;64 000766

-WORD

7 ooorfi 000579
1

00077,

000774

000000

000200

WORD

000776

%?‘

oooggo

38§

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

JWORD
WORD
JWORD
WORD
‘WORD
WORD
JWORD
WORD
JWORD
WORD
‘WORD
WORD
‘WORD
"WORD

000
353 000
354 000

000

MACY11

WOFD

‘WORY

14:09

PAGE 7

42
42
0

,#2
2

6'2

L, ¢2

LSBTTL SYMBOLIC LISTING

%157‘

167 002242

BEGIN

RESTRY

g\slu

#ISF SP

SEQ 0015

400
401
0?2
403

002020
002020
002024
002030

406

002050

407

0020

410

002076

41
414

002106
002112

417

024254

000340
177570

422

423
424
252

015216
024160

002142

024216

002150

164000

7 o5t

000

445

448

12;39

12767
767
16767
7
10

ey
167

&4
&4
[ANA

“

e
16767
12

;PREPARE TO CHECK FOR LSI-1

an?%éb

sCHECK FOR PSW BSET FLAG

16767

141

015026

SWRFLG

#SRTST,
w7, anb
#HWSWR
, SR

asR
TSTHDR

MOV
JSR
MOV
MOV
JSR
MOV

#FRAD
, RO
PC, TYPOUT
DE VADR
, KBBUF
#PROMT
. PCONT
PC, INPKB
KBBUF
, DEVADR

P
BHIS

KABUF
, #164000
PRMTY

PNTM

MOV
JSR
N
MOV

FRAD

AGAIN

#AGAIN,
RO
PC, TYPOUT
PROMT
#DVATST a0

aDE VADR

CLR

MOV
JSR
MOV

#DVECT,RO
PC. TYPOUT
VEC TOR , KBBUF

PNTM

mn.nmr

aéu.v;svm

PNTM

AGAIN

PRMT3

.#776

MOV
JSR

#AGAIN, RO
PC, TYPOUT

PNTM

DVPRIO

MOV
JSR
MOV

;SET UP TO TRAP IF NO SWR.
sSET UP TO CHECK IF ANY HD SWR
sSEE IF IT'S THERE
sPRINT MESSAGE

sPOINTED TO BY TSTHDR
;ASK FOR 1ST UNIBUS ADDR OF (MR-11
sPRINT MESSAGE
;POINTED TO BY FRAD
:LOAD DEFAULT ADDRESS
;LOAD RETURN ADDRESS
;GET KBD INPUT
sREPLACE CMR-11 BASE ADDR
JIS IT WITHIN LIMIT?
;YES, TEST ‘t
ASK AGAIN
JNO, ERROR

‘PRINT MESSAGE

;POINTED TO BY AGAIN

DVECT

KBBUF

;INITIALIZE THE STACK
;CLEAR THE WORLD
;STOP INTERRUPTS

#HDER
, 304

BLOS

PRMT3:

g;rsr ans

#TSTHDR
RO
PC, TYPOUT

MOV

#P7,=(SP)

MOV
JSR

&40
&6

PRMT?:

DEVER
LSIFLG

ST
PNTM

CLR
CLRB

RTI

MOV

~N ~N ~
N -

#64$,-(SP)

MOV
MOV
MOV

PRMT1:

—

002220
s

MOV

PNTM

3 i
0 0o

4
43
4%
435

#P7

000004
000006
024246

0021§(2)

002156
002160
002}60

MTPS

CLR

PROMT:

002112
002116

#1SP,SP

RESET

000004
000006

8 8013

420
21

648

SEQ 0016

MOV

000340
002020

bs 802083
415
416

BEGIN:

PAGE 8

PRMT2

#OVPR 10, RO
PC,TYPOUT

002006
002012
002016

002000

397
398
399

012706
000005

14:09

8557 52

002000

30A(1052)
1 0-MAR-80
SYMBOLIC LISTING

o335 3BEILAR

393
394

MACY11

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

00230
01414
015010

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

0c. 770

MOV
JSR

000007

CMP

BLE
PNTM

PAGE 9

#PRMT3 ,PCONT
PC, INPKB

KBBUF ,#7

PRMT4

MOV

#AGAIN,RO

JMP
CMP
BGE
PNTM

PRMT3
KBBUF , #4
PRMTS
AGAIN

JSR

PRMTS:

14:09

PC, TYPOUT

SEQ 0017
;LOAD RETURN ADDRESS
ET KBD INPUT
C}’_

012767

MACY11

..,

CZCMJAO CMR=11 HOST EXERCISER
CZCMUA. P11
06-MAR-80 1 :13

.IS IT WITHIN LIMITS?
.LOU ENOUGH, OKAY

ERROR AND ASK AGAIN
PRINT ME SSAGE
;POINTED TO BY AGAIN

:NO, ‘ERROR & ASK AGAIN

:PRINT MESSAGE

:POINTED TO BY AGAIN

PRMTS:

023670

MOV
JSR

KBBUF ,PRIO
PC,DEVGEN

JSHIFT IT INTO PLACE
;LOAD NEW PRIORITY
s GENERATE (MR-11 ADDRESSES

;CLEAR OUT ALL TABLES FOR START-UP
CLR

CLR
CLR
CLR

012027

RESTRT: MOV

012737
012737

0001
0001

012746
012746
000002

648:

005767
001

00476
000167

1%:

EXTBL1

EXTBL
EXTBL
EXTBLS

#HDER
, ¥4

JRESET TRAPS

MOV
MOV

0 LKINT ,a#100
0,a0102

JSET CLOCK VECTOR

MOV
MOV

#P7,~(SP)
2648, -(SP)

TST

SWRFLG

RTI

BEQ
JSR
JWP

1%
PC, SWDMP
BCONT

JRAISE C.P. PRIORITY

sNON=-SWR-PROCESSOR?

JYES, DUMP SWITCH LOCATION

sLINE CLOCK SERVICE ROUTINE.
¢
SIMPLY RETURN, CLOCK NOT USED.
CLKINT: RT]

JRETURN FROM CLOCK INTERRUPT

EAR *
EAR *
INT *

WAYS

—

SAFE
DEFLG
TSTSEL

RESET UPON ARRIVAL
LL CNT
%E" rLAG""
FL
LECTY TEST (<CR>=MELP)"*

23 3

CLRS
CLRS
PNTM

—

RESET

pfagat

83350

BCONT:

Bavann,

.SBTTL SUPERVISOR DISPATCH

CZCMUAD CMR=11 HOST EXERC S%%
CZCMUA.P1T
1
06-MAR= 80

wvi

83232

002546
002552
002556
564
002572

020704
013654
00000

30A(1052)
10-MAR-80
SUPERVISOR DISPAT(H

014562
023524

023514
014540

000001

014530

000002

006016
014514

000003

BCNTZ:

007324

3 VONOWN
S W= o

N NN NN NN
_n_a_a._a—l-l_o_a_a\_,:

505
506
307
508
509

MACY11

TSTRSK:

020733
013560
177656

MOV
JSR
MOV
MOV
JSR
CLR
(MP
BEQ
CMP
BNE
JMP
CMP
BNE
JMP
PNTM
MOV
JSR

14:09

PAGE 10

#TSTSEL ,RO
PC, TYPOUT
#1,KBBUF

#8CONT,PCONT

PC, INPKB
PCONT

KBBUF , #1

LOGTST

KBBUF , #2
BCNT?2
PORTLP

KBBUF ,#3
TSTRSK

CMREXC
HELPM

#HELPM,RO
PC,TYPOUT

JMP

BCONT

.SBTTL

HOST LOGIC TEST

SEQ 0018
sPRINT MESSAGE

;POINTED TO BY TSTSEL
sDEFAULT LOGIC TEST
sLOAD RETURN ADDRESS
;GET KBD INPUT
;CHECK IT FOR '"1''
;1F CLR, DO LOGIC TESTS
sCHECK IT FOR "2

JIF "2'° DO PORT LOOP TEST
;CHECK IT FOR '3
:1F NOT, GIVE HELP
s IF
'* DO EXERCISE.
JPRINT HELPFUL INFO
sPRINT MESSAGE
;POINTED TO BY HELPM
;AND RE-ASK

021543
013516

LOGTST: CLR

023414

CLR
(LRB
CLR
PNTM

ST0:

000000
177774
177752
177744
177736

002000

012474
102000

013024

ST11:

“§§”§§§2§ §3§ 333355452

g
¥

023476
000010
023416
023354
023376

25§E§§2§§§§§§§§

8888 R
o
S IR

8888 8888 8

ESEIRIARGIE
SRIEEELEERELEE g%

;CHECK POWER UP OF THE HOST MICRO FIRMWARE.
VERFLG

:CLEAR VERSION PRINT FLAG
:SET ITERATION COUNT
:CLEAR PASS COUNT

:CLEAR

'OVERFLOW' FLAG

:CLEAR ERROR COUNT

:PRINT "LOGIC TEST*
:PRINT MESSAGE
POINTED T0 BY LGKTSM
JSET UP TIMER
JMOVB
GIVE THE MICRO TIME
;MOVB
TO GET GOING.
;MOVB
;MOVB
;MOVB

"PWURUP'" SET?

-1F YES, OKAY

;ERROR:HOST U.P. FAILED TO START,
sensnsnns

FRROR

JNOW WAT(H FOR INTR

HOST LOGIC

023230
075777
013004

30A(1052)

§Oo

017767

-d
i

003042
003050
003056
003064
003066
003072
003074

WWW

561

MACY11
OOO

CZCMJAO CMR=11 HOST EXERCISER
CZCMJA. P11
06-MAR-80 15:13

2
1

10-MAR-80
TEST

MOV

#75777 ,BAD

BEQ

ST2

DEC

032777
001007
012700
012767
004767
000003
004567

040000

023242

022607
000C02
012660

012746

012400
023142

012732
012724

012712

§T2:

023156

022660
000003
012574

012662

BIT
BNE
MOV
MOV

#814,aSR
.+20
#NOTUP RO
#2 ,ERRNUM

N+i

JSR

CLR
TMP

GOOD
GOOD
, BAD

000020
001000
026204
023102

023050
023110

023026

BNE
MOV
MOV
JSR

SCOPE
JSR ~
STO

ST3:

MOV

ST4:

MOvVB
DEC
BLT

023066

PAGE 11

SEQ 0019

:INTR & PWRUP SET: OKAY
‘WAIT A BIT

;ERROR :PWR UP SEQ NOT COMPLETED(BAD CSR)
Janennnnne

FRROR

wnatwnnn

PC,DERR

aCSR,BAD

BIC

BIT

012314

\N,NOTUP

SCOPE
JSR
ST0
MOV

BEQ

CNTR

DATERR

040000

GOOD
, BAD

BNE

DATERR

aCSR,BAD

BIC

CMP

023202

14:09

STO
RS.SCPRTN

#102000,B8AD
ST3

\N,CSRRST

sNOW CHK CSR FOR 0'S
JEXCEPT PWRUP & INTR
:CSR = 0'S,

:ERROR:CSR NOT RESET
Jenenennn

0.K.

FRROR

sennnnn

#814 3SR

. +20
#CSRRST RO
#3 ,ERRNUM
PC,DERR

N+

STO
RS,SCPRTN

#20, CLK

;COUNTER FOR VERSION ITEMS

MOV'
MOV

#1000, 3SPAR

*ADDR RESULT SCPD

sSTORE VERSION INFO
sDONE?

INC
BR

aSPDR, (R1)+
CLK
STé

aSPAR
ST4

#VERSP ,R1

sPOINT AT MEM SPACE

JNO, KEEP GOING

:SPAR REGISTER TEST:
:DO A SLIDING BIT (0) TEST ON THE SCPD ADDRESS REGISTER
SWHILE IGNORING SPAR BIT 08 (UNUSED).
003254

00
003272
003274

003274
003
003304

005077
005067
17767
1416

023060

023555 012576

01007
012700 022705

040000

023042

STé:

CLR
CLR
MOV
BEQ
DATERR

aSPAR
GOOD
@SPAR ,BAD
ST60
\N,SPRCLR

lB;é.iSl
.t

#SPRCLR
RO

sTEST CLEAR OF SPAR
:SPAR CLEAR?
;YES, OK
JERROR:CAN'T CLEAR SPAR
Jenennnn

FRROR

4§

*eneene

CZCMJAOD (CMR=11 HCST EXERCISER
CZCMUA.PT
06-MAR-80 1 :13

003310
003316

NS W

LA LT SRR O ROREERRRERRRRRE

012767
004767
000005

000004
012460

004567
003254
012767
012767

012200
177777

000001
022744
176000
012502
022746
000400
000400
012452

30A(1052)

HOST LOGIC

012546

022756
022744
012514
012506
022752
012474
012466
012456
012452

10-MAR-80

ST60:

ST61:

SCOPE
JSR
sT6
MOV

MOV

022732
000005
012334

012422

012054

001000
177777

022612
022604
012432
177630

022632

~
ST62:

022622
022614

ST6
RS,SCPRTN

#-1,PAT

#2300 ,MASK

SET
;S UP FOR SLIDING O TEST
;SET BIT MASK

GOOD, aSPAR
aSPAR,BAD

;LOAD PATTERN
JAND READ IT BACK

#808,BAD
#8308. GOOD
GOOD
. BAD
ST62

BIT

#814,3SR

MOV
MOV
JSR

#SPRDAT ,RO
#5, ERRNUM
PC.DERR

SCOPE
JSR
ST61
BIT

ST61
RS,SCPRTN

BEQ
MOV

BIC
ASL

JSR
JMP

SEQ 0020

N+

BIC
BIC
CMP
BEQ

B8NE

PAGE 12

#4, ERRNUM
PC.DERR

PAT
, GOOD
#176000, GOOD

MOV
MOV

022716

MOV
BIC

DATERR

040000

14:09

TEST

MOV
JSR

\N,SPRDAT

; IGNORE BIT 08

:SPAR DATA 0.K. ?
:IF YES NEXT PATTERN
;ERROR:BAD BITS IN SPAR
sexnnwnnnr

ERROR

wwnnnnn

+20

N+i

#809,PAT
ST7
#-1.PAT
MASK ,PAT

MASK

PC,MONIT
STé1

;DONE WHOLE REG?
:IF YES, NEXT RTN
JRE-LOAD ALL 1'S

:NO, PREPARE FOR NEXT BIT
JROTATE MASK

sAND CONT INUE

sSCRATCH PAD MEMORY TEST

ST70:

00
0036

52? fisse

1224

MOV
BIS
MOV
8IC
BHIS

023366
36
554
5

CLR

(LR

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

ST7:

SR88
WA
~N

617
618
619

MACYT1

ST71:

ST80

INC
INCB
B8R
(LR

MOV
TMP

BEQ

aSPAR

;ADDRESS 0

WORD ,3SPDR
.@SPAR
7.@SPDR
009 @SPAR

;LOAD REQUEST SCRATCH PAD

WORD

asmi 377
ST?

aspm
WORD
ST70

3SPAR

WORD ,GOOD

NOW.
.. .CHECK [T

@SPDR
, BAD

ST81

LBAD

s0.k, CONTINVE

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

673

MACY11 30A(1052)

HOST LOGIC TEST

003632

032777
001007
012700
012767
004767
000007
032777
001010

040000

022504

022761
000006
012122

012210

040000

022456

000377

ST81:

ST82:

001000

ST90:

JPRINT ALLOWED?
JNO, SKIP IT

MOV
JSR

#5CPAD RO
PC, TYPOUT

;PRINT MESSAGE

JSR

PC,OCTPNT

JSR
ST80
P
BHIS

RS,SCPRTN

SCOPE

B8R

N+

SCPAD

RO
aSPAR,

023012
000007
011762

012050

MOV

#OSDTE RO

040000

022316

BIT
PNTM

MOV

ST90S:

011452

022256

001377

ST91:

SAON)
—

JSR
MOV
JSR

022236

; gE5s

JRES SCPD ALL 1°'S?
;YES, 0.K.

JERROR:RESULT SCPD DATA TEST ERROR
jenannns

ERROR

7 wennnne

PC .DERR

N+i

14, a5R

ST90S

SCPAD

#5CPAD RO

PC, TYPOUT
aSPAR RO
PC,OCTPNT

ST
RS.SCPRTN

TM
BEQ

SPAR, #1377
ST10

$T90

INC

sPOINTED TO BY SCPAD
sPRINT SCPD ADDRESS OF ERROR

#7 ,ERRNUM

SCOPE

JSR
ST90

nwwwnnw

ST80

#MB14,aSR

BNE

€

aSPAR
WORD

#1000, aSPAR
#377 .GOOD
aSPDR ,BAD
, BAD
GOOD
ST91
\N,OSDTE

FRROR

aSPAR,#377
ST82

MOV
MOV
MOV
TMP
BEQ
DATERR

JSR

;aennewnnn

ST80

BIT

022246

#B14,3SR
ST80S

022344

015824

BIT
BNE

040000

021560
012372

RRER;

PRD S PRNINEEEPS
P AR AL

000377
022362
012100

;ERROR:REQ SCPD ADR TEST ERROR

#814,3SR
.+20
#1SATE ,RO
#6 , ERRNUM
PC .DERR

INC
INCB

022406
022424

SEQ 0021

BIT
BNE
MOV
MOV
JSR

MOV

011612

PAGE 13

\N,ISATE

ST80S:

DATERR

PNTM

021560
012532
022434
013464

022416

14:09

10-MAR-80

@SPAR

JPRINT ALLOWED?

JNO, SKIP IT

sPRINT MESSAGE
;POINTED TO BY SCPAD

;PRINT SCPD ADDRESS OF ERROR

JALL DONE?

;1F YES,

REVERSE IN & OUT

ST10:

MOV

#805,3SPAR

;D0 IT AGAIN WITH A SWITCH

ST100:

MOV
8IC

,@SPOR
" @SPAR

JCOUNT DOWN UNTIL HALF =WAY

CLR

MOV

WORD

#377.35PDR

JAND LOAD REQ SCPD WiTw 1°S

CZCMJAO CMR=-11 HOST EXERCISER

CZCMJA.PT1

06-MAR-80 15:13

729

004130

052777

731

004144

103005

001000

10-MAR-80

MACY11 30A(1052)

HOST LOGIC TEST
BIS

02220;

CMP

730 004136 027727 022176 00137

BHIS

732 004146 005277 022166
INC
INCB
733 004152 105267 022204
73, 004156 000753
BR
735 004160 012777 001000 022152 ST101: MOV
73
737

004166
004172

741

004216

7643

004216

005067
016767

022170
022164

011666

738 004200 017767 022136 011662
739 004206 026767 011654 011654
740 004214 001432
742

032777

040000

022120C

040000

022072

764 004224 001007
745
226 012700 023047
7646 004232 012767 000010 011624
747 004240 004767 011536
748

749

004244

751

004254

000011

032777

750 004252 001010

752
75
754
755
756
757

758
759
760

00417
027727

004316

105267

022040

765
766

004332
004336

005077
017767

022002
022000

011524

770
771

004354

032777

040000

021762

762

763

BIT

001377

004312 005277 022022

sT110
(TMP

780
781
rai
783
784

00441

00441
12709 o%nseo
oou.vg
76
1
0044
17709
171
274
00476
004426
0044

N+i

sT110s
SCPAD

#SCPAD ,RO
PC, TYPOUT
aSPAR,RO

PC,0CTPNT
ST110
RS,SCPRTN

CLR
MOV

@SPAR
aSPDR ,BAD

BIT

#814,aSR

BIT

#8146, aSR

PNTM

MOV
JSR
MOV
JSR
$T120S: SCOPE

PAGE 14

;DONE?

SYES

*NO, KEEP GOING DOWN
:NOW, ...CHECK IT

:0UT ADDR OK?

:ERROR:RESULT SCPD ADR TEST ERROR
Jenxxxser ERROR 10 axnnnnn

:PRINT ALLOWED?

‘NO, SKIP IT

:PRINT MESSAGE
*POINTED TO BY SCPAD
*PRINT SCPD ADR OF ERROR

aSPAR

sT110
#377.,G00D

P
GOOD , BAD
BEQ
sT121
DATERR \N.ISDTE

BNE

779

#814,35R

WORD

778 004410

001010

\N,OSATE

INCB

BNE
MOV
MOV
JSR

8?397 040000 021734

aSPDR, BAD
GOOD , BAD
sT111

aSPAR, #1377
ST112

% 004362 001007
oou% 12
3103
7764 0043
12767
11 011466
775 004376
7?7 011400
.

77;9

WORD
WORD
, GOOD

BHIS

004322 000723
BR
76k ooasig 012767 000377 011534 ST112: MOV
ST120:

2SPAR
$T100
#809,aSPAR
WORD

#814,aSR

INC

767 006344 026767 011516 011516
768 004352 001432
769 004354

ST101

BIT

BNE

.
Si111:

#809,aSPAR

.+20
#OSATE ,RO
#10, ERRNUM
PC,DERR

aSPAR, #1377

BNE
MOV
MOV
JSR

JSR
$T110S: SCOPE
JSR

004300
004302
004310

761

DATERR

MOV
JSR
MOV

004270 004767 013100
004274
004274 004567 011226
103005

MOV
cTMP
BEQ

PNTM

004254 012700 021560
260 004767 012146
004264 017700 022050
022032

ST110:

CLR
MOV

14:09

. +20
#1:DTE,RO
#171, ERRNUN
g‘oenn
sT120s
SCPAD

#SCPAD RO
PC "F%t
@SPAR
PC %fnn
sTi

:NOW CHECK REQ SCPD
:ALL 1°S?
“YES, CHECK THE REST
;ERROR:REQ SCPD DATA TEST ERR

;ensnsas FRROR 11 secnnen

:PRINT ALLOWED?
INO, SKIP IT

:PRINT MESSAGE
SPOINTED TO BY SCPAD
*PRINT SCPD ADR OF ERROR

SEQ 0022

CZCMJAO CMR-11 HOST EXERCISE§
CZCMUA.PT
06-MAR-80 15:
004432
004436
004440
004446
004450
004454

004567
004336
027727
001403
005277
000730

HOST LOGIC

021674

000377

ST121:

021664

815
816
817
18
819

004570
004576
004600
004612

032777
001007
012700
012767
004767

821
822

004616
004624

032
001010

00007;;

021656
000000
021644

021652
000377

ST13:
ST130:

001000
000000
021612

021624
021620
001377

nNOo
S~

021574
000000
021564
011302

—_——

021602

040000

021546

023135
000012
011164

011252

040000

021520

837
838

839
840

004

&71
716

004724
004726

017700
004767

021476
012526

%‘ 7

010654

1772

021460

miy

17767
767

0214
011144

01
81 767
14

CMP
BEQ
INC
B8R

PAGE 15

SEQ 0023

R5,SCPRTN

aSPAR ,#377
ST13
aSPAR
ST120

ST131:

ST132:

GOOD ,BAD

BIT

BNE
MOV
MOV
JSR

aSPDR ,BAD

ST13%

\N,RQSPCL

;DONE REQ SCPD?

JYES,

CHECK CLR SC.

sNO, KEEP CHECKING

PNTM

SCPAD

ST132S

#SCPAD RO
PC, TYPOUT

asfim
PC gcfnn

as.scmn

(TM

@SPAR,#377

o
ST134: g

ST135: MOV
TM
BEQ

DATERR

'0*)

;START AT 0

sTHIS LOC

(#0) CAN BE CHANGED

; TO ANYTHING AND THIS RTIN
; CAN BE USED FOR ANY DATA
; FILL-UP & TEST

sADDR RES. SCPD

;THIS "W0"" MUST ALSO BE CHANGED

;FILL UP WHOLE RES. SCPD
sNOW CHECK IT

sTHIS LOC

(#0) MUST BE CHANGED

: TO CORRESPOND TO ST130
: IN ORDER TO CHECK THE
CORRECT DATA F (L)

;ERROR::REQ. SCPD NOT AL%
;annnnne

FRROR

sPRINT ALLOWED?

:NO, SKIP IT

JPRINT MESSAGE

;POINTED TO BY SCPAD

sPRINT SCPD ADR OF ERROR

sSTi

#73

BEQ

(NORMALLY

+20
#ROSPCL ,RO
nz ERRNUM
DERR

#8164, 3SR

ST132s: SCOPE

PAD

#814,aSR

BIT

BNE

ST133:

#5809, aSPAR
#0,aSPDR

MOV

MOV
JSR

000377

aSPAR,#377
ST131A
aSPAR
ST130

aSPAR, #1377
ST131
aSPAR
sT1318
aSPAR
#0, GOOD

BEQ

a5PAR
#0,aSPDR

CMP
BEQ
INC
B8R
CLR
MOV

MOV
JSR

—— e

004646
004646
004652
004654

(LR
MoV

DATERR

222
R
PN

Ll
g% ean76
835
836

S
(MP
BEQ
INC
BR

ST131A: MOV
ST1318: MOV

gz
012700 021560
825 m 004767 011574
828
829
830
831

TEST

14:09

FILL THE ENTIRE SCPD WITH A CONSTANT
AND THE CHECK IT.

021634

WWW
[T

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

—_——

004456
004
004470
004476
004500
004504
004506
004514
004522
004530
004532
004536
004540
004544
004552
004560
004566

004570

826
827

10-MAR-80

;CHECK CLEARING ALL SCRATCHPAD LOCATIONS

g}z

820

30A(1052)

011070

(elele]

785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812

MACY11

s 134

afiaSPAR

asfioa
BAD
BAD
ST

\N.RSSPCL

;DONE CHECKING REQ. SCPD?
;YES, CHECK RES. SCPD

INO, ‘FINISH UP

JNOW CHECK RES. SCPD

sTHIS "%0"" ALSO MUST BE CHANGED

;RES SCPD ALL 0°S?
;ERROR:RES. SCPD NOT ALL 0°'S

CZCMJAD CMR-11 HOST EXERCISER
CZCMJA.P11
06-MAR-80 15:13

MACY11

30A(1052)
10-MAR-80
HOST LOGIC TEST

14:05

PAGE 16

841

842

843
844
845

;annxnns FRROR 13 wnxnnenn

004726

00473&
004736
004742

846

004750

848

004754

847
89

850

004762
004764

032777

001007
012700
012767

040000

021410

023165
000013

011114

004767

011026

032777

040000

012700
004767
017700

021560
011438
021340

000014

001010

851
852
853

004764
004770
004774

855
856

Q05004
005004 004567~ 0105TETM

858
859

005012
005020

027727
001403

005026

000730

854

857

860

005000

005010
005022

004767

004456

005277

021362

N+

BNE

sT135s

*NO, SKIP IT

#SCPAD ,RO
PC, TYPOUT
aSPAR ,RO

:PRINT MESSAGE
*POINTED TO BY SCPAD
:PRINT SCPD ADDR OF ERROR

JSR

BIT

PNTM

JSR

001377

ST135S: SCOPE
w— - JSR

$T136:

021312

#814,35R

+20
#RSSPCL ,RO
#13, ERRNUM

MOV
JSR
MOV

012370

021322

BIT

BNE
MOV
MOV

5T13

PC,DERR

#814 3SR

PC,0CTPNT

STi13
RS,SCPRTN

(MP
BEQ

aSPAR, #1377
ST14

ST135

INC

ggg

869
870
871

872

873

874

005030
005036

005042
005050
005056

005060

875
876
877
878

005066
005070
005074
705102

880

005106

gg%

005112

879
881

005106

012777
005067

017767
026767
001416
032777

001007
012700
012767
004767

000015

004567

005030

000020
011024
021230
011012

021240

023215
000014
010674

010762

ST14:

MOV
CLR

MOV
CMP
BEQ
BIT

BNE
MOV
MOV
JSR

#804,aCSR
GOOD

aCSR,BAD
GOOD ,BAD
ST15

\N,CLTBER

(LOW BYTE ALREADY = 0)

:SET *'CLRTPB'’
*ALL CSR SHOULD BE 0

;ALL CLEAR?
JERROR:CLR TPB FAILED

;axxnanx FRROR

JSR

RS,SCPRTN

ST14

884

iNOW
H ANG AND CHECK
(SR

gg;

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

889
890

005114
005120

005077
012777

021223
00051

005277

021174

021214

331
33?%
8?3 77 5 o? 021202
893
005140
8%
895
89

005144
005152
005160

015
012777
012767

000001
ooo;gg
007

021170
021116
021106

wannnnn

+20°
#CLTBER,RO
#14,ERRNUM
PC,DERR

N+i

ST14

:
:

—

#814,3SR

SCOPE

010414

885
886

)

SETTING '‘CLRTPB"* SHOULD RESULT IN ALL BITS OF THE

DATERR

021256

HIGH BYTE OF THE CSR BEING CLEARED.

011020
011012

040000

;:DONE RES. SCPD?
SYES, NEXT ROUTINE

aSPAR

;TEST "'CLR TOP BYTE''

864

:PRINT ALLOWED?

SCPAD

863

867
868

SEQ 0024

"HANG'' BY USING THE CMR-11 *DIE' FUNCTION
THEN CHECK THAT THE CSR WAS RIGHT

ST15:

(LR
MOV

@SPAR
#213,3SPDR

MOV
MOV
MOV

acsa
777 .CNTR

v{ug\cr
INC

fip
é“sm

:ADDR REQ. SCPD
“LOAD MAINT FUNC SUBF #3

DATA LEN. = 1

:ONE REQUEST
SSET "MAIN''SHD CAUSE U.P. HANG
“WAIT FOR THE MICRO

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

MACY11

021104

30A(1052)

10-MAR-80

HOST LOGIC TEST

1%:

010656
010652
010644

012767

000000

021040

032777
001007
012700
012767
004767
0000

040000

021102

023257
000015
010520

2%:

aCSR

MOV
MOV
CMP

CNTR
1%
#137600,G00D
aCSR,BAD
GOOD ,BAD

021006

012777

000020

020772

004567
005114

010216

ST16
#0,CNTR

\N.DIERR

010606

000002
021000

TST

021074
137600
021062
010644

14:09

ST150:

BIT

#814 ,aSR

MOV

#DIERR RO
#15, ERRNUM

2
PAGE 17

SEQ 0025
sMICRO DONE?

;NO, WAIT A BIT

;READ CSR REGISTER
;DID IT HANG CORRECTLY?
;YES, GOOD
;ERROR:CSR NOT RIGHT FOR 'DIE"’
saxwxnwxt

FRROR

wnnwwnn

+20°

PC,DERR

MOV
DEC

;PROGRAM INIT

.sWAIT FOR

INIT

;CLR TOP BYTE
R5,SCPRTN

sCHECK CSR WITH MICRO HUNG

012767

137755

000355
020744
010526

010546
020750
010534
010526

ST16:

MOV
MOV
MOV
cMP

#137755,G0O0D
#355,aCSR
aCSR,BAD
GOOD BAD

sT160

\N, CSRWE

040000

020772

BIT

023312
000016
010410

010476

MOV

RIBEERRERE

942

023344
000017
010322

:YES,

TRY CLEARING THEM

;ERROR:BAD BITS IN CSR WHILE HUNG
sexnnntt

FRROR

#814,3SR
+20

tanwunn

UCSRUE RO
6, ERRM
PC DERR

ST16
R5,SCPRTN
10460

ST160:

MOV

#137400,G00D
#0,3CSR
a(SR,BAD
GOOD BAD

sT161

\N, CSRCE

040000

;DO THEY SET?

N+

010130

137400
000000
020656
010440

;CHECK R/W BITS OF (SR

#814 3SR
+20

#CSRCE ,RO
#17 ,ERRNUM
PC,DERR

N+i

sNOW, SEE IF THEY CLEAR

;DID THEY CLR?
YES, NEXT
JERROR:CAN'T CLR LOW CSR_WHILE HUNG
;ennnnse

ERROR

senenen

CZCMJAO CMR-71 HOST EXER Cl
CZCMUA.P11
06-MAR-80 1

\.fl.-

MACY11 30A(1052)

10-MAR-80

HOST LOGIC TEST

SCOPE

004567
005400

020602
020636
020652

ST161:

020640
020612
020624

14:09

PAGE 18

ST160
R5,SCPRTN
#200,aCSR
#200,aSPAR
aSPDR ,WORD
WORD
#177400,WORD
WORD ,@SPDR
@SPDR,WORD

ST162

\N, SPAVME

032777
001007
012700
012767
004767
000021

040000

020576

023403
000020
010130

010302

SWRITE COMPL. BACK
sREAD IT BACK AGAIN
247 SHOULDN'T BE THE SAME
;ERROR:ACCESSED REQ SCPD WITH 'MAIN'' SET
senxnntt

FRROR

swwwwnw

#20, ERRNUM
PC,ERR

020474
020530
020544

ST162:

020532

#1,3CSR

;TRY AGAIN WITH ''ST FUN'" SET

aSPDR, WORD
WORD
#17746400,WORD
WORD ,aSPDR

sREAD A REQ SCPD WORD

#200,3SPAR

040000

023447
000021
010022

020470

#314 ,aSR

010174

lSPAVFE RO
”21, ERRM
PC ERR

sCOMPLEMENT IT
:FORGET TOP BYTE

;WRITE IT BACK
;READ IT BACK AGAIN

AT SHOULDN'T BE THE SAME
;:ERROR:ACCESSED REQ SCPD WITH ‘‘STFUN'' SET
sxnnnnwt

FERROR

wanawawn

+20

N+T

ST162
RS.SCPRTN

007626

s TEST INTERRUPT WITH MICRO HUNG
012777

000240
000240
012777
012777
000240
000240

ST17:

000000
005722

#ERINT ,aVECTOR
#0
#0,-(SP)

sSET UP VECTOR FOR ERROR
sALLOW INTERRUPTS

#648,-(SP)

:
648

012746
012746
00000

020454

SSEEREE
RA S

B
e e i I )

004567
005574

sCOMPLEMENT IT
:FORGET TOP BYTE

#SPAVME ,RO

\N,SPAVFE

005674

sREAD AN REQ SCPD WORD

N+1
ST161
R5,SCPRTN

000001
000200
020526
020540
177400
020526
020520

991

sCHECK ACCESS KEYS TO SCPD

;WITH MAIN SET

#814 ,3SR
+20

007734

032777
001007
012700
012767
004767
000022

SEQ 0026

020430
020334

ST170:

OEE OCCURS NOW,
#GDINT ,aVECTOR
#100,aCSR

CZCMJAO CMR=11 HOST EXERC SgR
06-MAR-80 15:13
CZCMUA. P11
1009
1010
1011
101 i
1013
1014

}8}2

10-MAR-80
MACY11 30A(1052)
HOST LOGIC TEST

005746

005746
005754
005756
005762

005770

032777
001007
01
01276

004767

006006
006010
006014

023514
000052

010074

MOV
JSR

004567
005726
000167
022626

007520

032777
001007
012700
012767
004767
000024

040000

007456

}8%4

006016

1025
1026
1027
1028
1029
10

006016
006024
006026
006032
006040

103§
1033
1034
1035
1036

006044
006050
006052
006056
006062

004567
00570
000167
012716
005077

006070

3333 TENEE RErER¥sararRad

) el e e

) e

i e

b —d —> —2
D =D
e
D
b
b

D —D

¥EREE 3 AT SRS EN T3

1041

006076

—

}8‘33

006066

)

1038

1037

006044

§355 Bosss SIoOBIBOBRS

101

M(X”fi;

042777

#3714 ,aSR

BIT
MOV

000054

02355;
0000g
007652

010024

177650
006010
020210

134

100

016746
0 67‘6

020214
006116

012777

000100

00016

000046

GDINT:

040000

oegénn aVECTOR

SR
#100,aC

PRIO
PRIO,=(SP)

MOV

#100,3CSR
sT18
(SP)+,(SP)+

CLR
ERROR

(SR
\N,WPOD!

020174

8IT

#8146, a5k

007700

MOV
JSR
B

224, ERRNUM
PC,ERR
Ne§

JSR

RS,SCPRTN

ST18

N
007332

ST
#ST170R, (SP)

2648, ~(SP)

NOP
NOP

SCOPE
INTCNT

ERROR 22

wenwwnw

;CLEAR INTR ENAB

s CONT INUE

; POP-POP STACK

OUS HOST INTERRUPT
OR
: ERRONE
;ERR
;ennnnns FRROR 23 wewewen

ST17
RS,SCPRTN

MOV
RT]

;ennenns

+20
FERINTR,PD
#23, ERRNUM
PC,ERR

it & o=

INTCNR: JMP
ERINTI: (MP

020134

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

N+i

BIC

;ERROR:HOST CAN'T INTERRUPT UNIBUS

RS,SCPRTN

SCOPE
JSR
ST17
TM
MOV

SEQ 0027

#NOINTR ,RO

#814,3SR

INTCNT: MOV

64%:

PAGE 19

#22 ,ERRNUM
PC,ERR

BIT

BNE
MOV
MOV
JSR

MIPS
vV

020152

:fl aCSR
BIC
SCOPE sr?%

SR
$T170
ST170R: JMP
(MP
ERINT:
ERROR

&%
g

1019
1020
1021
102%

006002

\N,NOINTR

020370

1017 005774 0427 ; 000100 020274 N
1018

ERROR
040000

007722

14:09

INTCNY

JNOW (HECK PROGRAM INIT,

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

JSET UP FOR 2ND ERR INTR

;CLEAR INTER ENAB
JSET C.P AT DEVICE PRIORITY

;SET INTR ENAB
JNO INTERRUPT SHOULD OCCUR
; THIS TIME.
20.K. CONTINUE
;POP-POP STACK
;:CLEAR INTR ENAB

Y;DEVICE IS MIGHER
;ERROR :WRONG PRIORIT
XXIIIIL)
f“
AL

CZCMJAD CMR=11 HOST sxenc SER
1065
1066

1067
1068
1069
1070
1071
1072
1073
1074
1075
107
107
1078

1079
1080

MOST LOGIC TEST

06-MAR-80 15:13

CZCMJA.PT1

8
0082%1
006224
006232
006240
006246
%242
70
76
006

12777
16767
016767
016767
016767
016757
016767
012767
017767
026767
001416

006300

032777

006326
006
0063
006

1092

006352 012701

1090 006
1091 006

1093 006356
1094 006
1095 006

172774
1777266
1777260
177752
177744
177736
00
020010
007572

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
cTMP
Q
DATERR

#2,3CSR
MOV , MOV
MOV
, MOV
MOV
, MOV
MOV
, MOV
MOV
, MOV
MOV ,MOV
#2000, Goop
aCSR,BAD
GOOD . BAD
s1180
\N,HITER

040000

020036

BIT

”M14,35R

JSR

PC,DERR

109

1198
70
1099 006376
1100 006400
1101 w
uoi
12

10k
0 6416
“os &1
118?
ng
1

100000

017734

801774.
12777 001000 017766

032777 040000 017746
001007
15
3706
1276
007452

gg{ 007104
167 n
m;:r74
1416

111

115

S02

SCOPE
ST18

7
74

#VERSP ,R1

04000U

stasg
#1000,
aSPAR

#VERSUN, R2
@SPDR, (R2)
ST182
\N,VISF

#MB14,a5R
.+20
#VISF RO
#26, ERRNUM

0237 007362
13 o w

BIC

BEQ

sT188

n7?
uo
aofi BAD
\N,VIDER

BIT

#8146, 3SR

JSR
=

P(
Nef

oy
MOV
N

:ONLY PWR=UP SHOULD BE SET
*READ (SR
“CSR CORRECT AFTER INIT?
“YES, CONTINUE
:ERROR:PROGRAM INIT FAJLED
;enesens FRROR 25

wennenn

:WAIT FOR PWR=UP COMPL

:NOW READY TO READ VERSION

SPOINT AT ORIGINAL VERSION
SAND SAVE THIS VERSION

:ERROR:MICRO DIDN'T STORE VERSION STUFF
Jenenene ERROR 26 teennee

St Nl

BIC
P

017656

:DO HOST "‘INIT"'
‘WAIT A LITTLE

PC,ERR

g?‘\” RS,SCPRTN
ST182: MOVB (R1),GOOD
MOVB 1;7
DATERR

777

SEQ 0028

ST18
ns SCPRTN

MOV

8IT
BNE
MOV
MOV
JSR

PAGE 20

N+i

15, aCSR

BEQ
MOV

+20
&4]TER,RO
#25 , ERRNUM

BIT

ERROR

767
767 oom

ST180:

BNE
MOV
MOV

MOV
ST181: MOVB
BNE

110
1M

m
1120

007174

O1 703
1177212
01
001016

1099 0063

i
ms

004567
ogg;g;
0

14:09

sna
o;oggg
1777
177756
177750
177742
177734
007604
007600
007572

1081 006
001007
1oa§ 006310 815709 02364-2
007542
1083 006314 01276
1084 006322 00476 ooni‘
1085
000026
N
1086
1087
1088
1089

10-MAR-80

MACY11 30A(1052)

"io2&0
R RO
:!
DERR

:NOW COMPARE VERSION WITH ORIG.
:CLR TOP BYTE

SSAME AS FIRST TIME?
;ERROR:2ND VERSION NOT

;eeecens ERROR

AS 157

NIl

E%EHJAO CMR=11 HOST EXERC SgR
MJA.P11
06-MAR-80 15:13

1121
112§
1123

006506
oossog
006512

1154 006514
1125 006516
1126

1127
1128

00652¢

006526
006532

004567
006424

017616

005277
000713

017606

001020

; ;%
113

006534

1137
1138
1139

0065
006
006570

167
2767
016777

006604

001016

006606

032777

1135 006542
11;9 006550

1141
1142
114

1144

1145
1146

1147

006576
006606

006614
006616

012777

012777
01776¢"

026777

001007
15709

01276

00i
017

017688
177400
O1
017

017536

017570
017604

1149

1150 ooasg:

115;
115
1154
1155
nsg

006634

040000

006640

0065

:NEXT WORD

MOV

MOV
MOV

BIT

WORD
#177400, WORD
WORD , 3SPDR
WORD . 3SPDR
$T20
\N,SPAVIC

Nei

RS,SCPRIN

JSR

SCOPE

:CLEAR TOP BYTE OF (SR

*ADDRESS RESULT SCPD
*READ A WORD FROM [T

*COMPLEMENT 57
*IGNORE TOP 8 BITS
SAND WRITE IT BACK
:NOW READ IT BACK
1T SHOULDN'T BE THE SAME

;ERROR:RES. SCR. PAD ACCESSED WITH INTR CLR
Jensnnee

ERROR

eeenene

14,35

R
#SPAVIC,RO

MOV

#20,3CSR

#1200, 3SPAR
@SPDR , WORD

#30,

ERRNUM

PC,ERR
ST19

INOW CHECK SOME SIMPLE FUNCTIONALITY

ENSURE THAT STARTING A 'PAINT'*

ENSURE THAT STARTING THE "MAINT'' FUNCTION WITH

>
;

172

1165
nag

017452

1733

017440

017426

017414

THE CORRECT ERROR STATUS.

FUNCTION GIVES

WORKS PROPERLY AND GET PORT BAUD RATES.

ST20:

MOV

CNTR

MOV

:gb.acsa

MOV
INC

#210,3SPDR
@SPAR

ln'z'a‘(v

#1,3SPDR

CLR

v&v

‘MAIN''

:CLEAR TOP BYTE

:ADDRESS REQ SCPD

SLOAD “MAIN' FUNCTION
i TO EXAMINE HOST

uiasm

:&v

o? @SPDR

;@ OF BYTES TO READ = 2

#1,9(5R

#337 . 3SPDR

SSET ST FUN'' ON "MAINT'*
FUNC

3¥§

0172402

fitv

1176

817;16 $1200: MOV

17370

MOV

1175

ST19

BNE
MOV

5719

ngg

aSPAR
ST181

006666

”2?

}}%

ST182
RS,SCPRIN

INC
BR

BNE

883815

1159

“o

SEQ 0029

:UPDATE POINTERS
*DONE?

CoM
BIC
MOV

017530

1158

1164

PAGE 21

(R1)+,(R2)+
aSPAR, #1020

ERROR

000031

004567

ST19:

017536

115

(MPB
CMP

BEQ

017572
017544

1148 ooeo:go 004767 007062 007234

1151

ST183:

SCOPE
JSR
ST182

14:09

;CHECK ACCESS TO RESULT SCPD WITH INTERRUPT CLEAR

1134

1140

30A(1052)
10-MAR-80
HOST LOGIC TEST

007014

12;13
027727

001403

MACY11

:?hflm

MEMORY LOCATIONS

;ONE REQUEST

;START ADDR = DFFF (M)

~
~

006760

017304
007066

MACY11 30A(1052)
10=MAR-80
HOST LOGIC TEST

007100
007074
007066

ST201:

MOV

14:09

017264

#814+815, GOOD

;IF NOT, WAIT A BIT

§7201

i
—

)

007030

#31, ERRNUM

D o

B o

kD i e

i i

) i

024060
000031
006742

#B14,a5R
.+20

;ERROR:STATUS WRONG WITH “'STFUN'' ON "MAIN''
;ennnnenr

FRROR

swnnwnen

#STESTF ,RO

PC,DERR

N+i

$120
R5,SCPRTN

006462
017264
007004
007000
006772

ST202:

sADDRESS RESULT SCPD
sCHECK ON FUNCTION

sFUNCTION CORRECT?
JERROR:RESULT FUNC. C
Jennnenn

017236

et e e

B i il il il

D ol il

sCHECK FOR FUNCOM & INTR

CNTR

017324

FRR(R]

WRONG ON MAIN
LR
T

$120

il
D

SE0 0030

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

\N,STESTF

001000
000210
017254
006772

PAGE 22

aCSR,BAD
GOOD - BAD

040000

RS ,SCPRTN

ST203:

s e

il il Dl B el il

$T202

) e

BERIREBSLIRIRSRATZEIS

s —

CZCMJAD CMR=11 HOST EXERL iSER
06-MAR-80
CZCMUA. P11
15:13

0399 GOOD
#1002

,aSPAR

JNOW ADDRESS "USOF"*
sSHOULD SHOW “‘TOTAL FAILURE'' CODE
sUSOF 0.K.,?

SERROR:"STFUN'" ON "MAIN'' GAVE BAD USOF
RROR 3

tRRenee

s s -l -l -l -l -l -l

-l -t -l

Jessnnne

$120

R5,SCPRTN

ST204:

$1205:

sSET "CLRTPR'"

SSET "MAIN'' WITH

ST yo--

JFUN COMPLETE?

(SR BAD

FUN LOADED

sCHECK FOR "FUNCOM' € "INTR"

lalal
rN
o

A0 CMR=11

MACY11

017040

024213
000034
006456

006544

016770

006506

040000

0242;;

00(370

017000

006520
006514
006506

ST206:

016752

006456

026767

001001
000003

0064

0167%

\N,STEMF

01671}5

MOV
JSR

SCOPE
SR
ST204
MOV

ST207:

ST205

#14,aSR
.+20

040000

024301

R
R

FRROR

wnnnwnne

#1002 ,3SPAR

ST207

;JPOINT AT "USOF'’

s SHOULD SHOW SUCCESS
JUSOF 0.k.?
JERROR:BAD "USOF'*

sennvane

ON "MAIN''

FRROR

FUNCTION

weenene

14 ,aSR
.+20
SOFE2 RO

#35 ,ERRNUM
PC,DERR

JSR
ST204
MOV

RS,SCPRTN

#1001 ,3SPAR

JPOINT AT DATA LENGTH

(wP

cogo.w

JWAS IT 32

DATERR

\N,DATLER

SCOPE

MOV

#3,G0OD
ST21

JSR

#1435k
+20

JERROR:"MAIN'' FUNC GAVE BAD DATA LEN.
Jennvecs

FRROR

teevene

#DATLER,RO

#36, ERRNUM

PC,DERR

N+|

JSR
ST204
MOV
MOV
MOVB
INC
MOVB

RS.SCPRTN

SCOPE

:SHOULD BE 3

ST204

%.RO

”

LOSPAR

@SPDR, (RO) +

@SPAR

@SPDR, (RO)

JPOINT AT BAUD TABLE

JGET RESULTS OF EXAMINE
sSTORE BAUD RATES

CHECK RESULTS OF STARTING A REGULAR FUNCTION WITH ‘MAIN''
:
:
TRY DOING AN “ACTIVATE REMOTETM FIRST USING “MAIN'', THEN ‘STF N

R
e

ST121:

;eennnxs

N+i

MOV

R
o IO RIS I
B

016620

JERROR:STATUS WRONG ON 'MAIN'' FUNC

MOV

JWAIT A BIT

ST204
R5,SCPRTN

\N,USOFE?2

BIT
BNE

006370

SEQ 0031

N+i

DATERR

BEQ

016664

FAGE 23

#34 ,ERRNUM
PC,DERR

#1,G0O0D
aSPDR ,BAD
GOOD ,BAD

BIT
BNE
MOV
MOV
JSR

#STEMF ,RO

MOV
MOV
(MP

BEQ

006110

767

DATERR

MOV

S
S
Y
S
D

767

CNTR

BIT
BNE

006176

001002
200001

DEC

BNE

040000

14:09

30A(1052)
10-MAR-80
HOST LOGIC TEST

017000

3
~

PN NINNINNY
5H
W

007272

EIFIFIRS PRRERPRREEL
L L8 E4 L5 LE DAL MRS RRRRRY

—b

1233

HOST EXERC]SER
06-MAR-80 15:13

012777

016534

S122:

TMMoV

#20,3(5R

JCLEAR TOP BYTE OF (SR

CZCMJAD CMR=11 HOST EXERC£SER
CZCMJA.P11
06-MAR-80 15:13

MACY11

30A(1052)
10-MAR-B0
HOST LOGIC TEST

14:09

3
PAGE 24

SEQ 0032

1289
1290

007542
007550

012777
012777

000000
000060

016570
016564

MOV
MOV

#0,aSPAR
#60,aSPDR

129§

007562

012777

000002

016552

MOV

#2,3SPDR

1294

007574

012777

000001

016540

MOV

#1,3SPDR

:DATA LEN, = 2
;ONE REQUEST

1296

007606

000001

016526

MOV

#1,3SPDR

:REMOTE #1

1291

1293

1295

1297

007556

007570

007602

005277

016556

016544

005277

016532

007614

012777

000200

007630

001774

012777

0164564

1298 0076%(2) 032777 040000 016446
1299

1300
1301
1302
1303
1304
1305

1306

1307

1308
1309
1310
1311
1312

1313

1314

1315

1316
1317

1318
1319
1320
1321

132§

1323

1324

1325

1326

007632
007640
007646
007654
007662

007664

007672
007674
007700
007706
007712

007712

007716

007720
007726

00773%
007742
007750
007752

007752

012777
017767
012767
026767
001416
032777

016452

024341
000037
006070

006156

004567

005610

012777
012767

001002
000377

017767
026767
001416

032777

001007

0077

8(1"767

007762 015

007774

1331
1§

010006

133%
1335
1339

01
0100
100

767

1 ga
1

010014

016412
006132

040000

024403

000040

001416

1341
lss

010064

810092
1

777
1774
12777

10062

010054

767

sT221

INO, WAIT

01
01

#1000, 3SPAR
aSPDR . BAD
#60, GOOD
GOOD , BAD
§T222
\N,RSPEMF

.+20
#RSPEMF ,RO
#37
, ERRNUM
PC,DERR
N+i

JSR

RS.SCPRTN

MOV
MOV

#1002, 3SPAR
#377,GOOD

SCOPE

ST22

aSPDR
, BAD
sT22%

\N,USOFE3

14, aSR

MOV

#USOFE3,RO

JSR

PC,DERR

MOV

ST223:

MOV

#20,3CSR

ST224:

BIT
BEQ
MOV

mié, CSR
ST
#1002,
aSPAR

16
14

01625

MOV

#1_

9CSR

MOV
MOV

#364 ,GOOD
@SPDR
, BAD

BEQ

DATERR

RIT

BNE

;ERRUR:RES. FUNC.

CODE WRONG FOR 'MAIN''

;ennnnne FRROR 37 wesnannn

;ADDR *USOF**
:SHOULD SHOW TOTAL FAILURE

;USOF 0.K.?
;ERROR:'MAIN'' ON REG FUNC GAVE JRONG USOF
;'..'.'. Emn ‘o L 232222 2]

#40, ERRNUM

:0.K.?

.+20

Ned
ST22
RS,SCPRTN

sT22

*ADDRESS RESULT
*READ RESULT FUNC. CODE

ST22

BIT

BNE

SFUNC. COMPL?

#814,aSR

BNE
MOV
MOV
JSR
-

=
SCOPE
JSR

040000

#814 . aCSR

%2777

1007

BEQ

MOV
cTMP
BEQ

006070

ASPAR

SSET "MAIN'

BIT

016364

aSPAR

;LOAD "'ACTIVATE REMOTE'® FUNC

#200,aCSR

BIT

MOV
MOV
MOV
cTMP
BEQ

ST222:

ASPAR

MOV

DATERR

012777

12767
017767

ST221:

0164% 006126
006120
006120

0075

1
10046

1339

1&0

ST220:

1328
000041
1&;3 010000
1;
10000 %‘ 7 005522
010004

INC

DATERR

040000

007534

INC

016500
006222
006212
006206

001007
012700
012767
004767
000040

007760

1327

001000
016476
000060
006206

INC

aogg&o

\N,USOFE4

#8146, 3SR

.+20

:CLR TOP BYTE

SSET "STFUN''

sFUNCOM SET?
TWALT
:ADDRESS USOF

SSHOULD SHOW REM. ERROR

;USOF 0.K.?
;ERROR :WRONG USOF ON REGULAR FUNCTION
;eesnnee FRROR 41 wveneee

CZCMJAD CMR=-11 HOST EXERCISER
CZCMIA.PT
06-MAR-80 15:13
1345
1346
1347

010074
010100
010106

1349

010112

1348

1350
1351
1352
1353
1354

010112
010116

010120
010124

1360
1361

010140
010144

136%
1363
1364
1365

1366
1367
1368
1369

1370

1371
13;;

024446
000041
005670

004567
010006

005410

000042

0101
0101

010150

010150
010156
010160

010166
010170
0101764
010200

0182283

O
010206

005767
0014

00016
015767

010222

000;50
177777

Osggg
0

012700
004767
012767

021601
006252
000021

112109
004767
005367
001372

007504
016074

0127%
00476

021634
20

111;67

0161

#41 ,ERRNUM

N+i

JSR

SCOPE
JSR

3
PAGE 25

SEQ 0033

#USOFE4 RO

MOV

ST223

NNN

—s

' 144

11267

016106

JMP

PC,DERR

ST223
RS,SCPRTN

MOV

ST230:

#-1,VERFLG

MOV
JSR

#VERSM,
RO
PC, TYPOUT

MOV
MOVB
JSR
DEC

;1S FLAG SET?
;NO

*YES, JUST PRINT 'END PASS'*
NO, ‘SET FLAG
:GET VERSION DATA

VERSM

#21 CNTR
(R1J+,RO
PC,TT0
CNTR

;DUMP ALL VERSION INFO

PNTM

BAUDM

JPRINT "BAUD RATES:''

JSR
PNTM

PC, TYPCUT
PORTOM

JPOINTED TO BY BAUDM
JPRINT "PORT Q0 = **
JPRINT MESSAGE
JPOINTED TO BY PORTOM

$T230

#BAUDM , RO

MOV
JSR

#PORTOM,
RO
PC, TYPOUT

BIC

” 7770.uguo

MOVB
MOV
ASL

(a;) WORD

#BDRTBL
.R

WORD

ADD
MOV
JSR

WORD ,R3
(R3) .RO
PC. TYPOUT

MOV
JSR

#PORT
1M, RO
:c ;vrour

PNTM

BIC

“M

ASR
ASR
ASR
ASR

MOV

$T24

#VERSUN,R1
#RAUD ,R2

MOV

016126

VERFLG
ST23A

MOV
MOV

BNE

79619 016062

g S

i
i
-

103

ST23A:

T1ST
BEQ

PNTM

1666

3 LB

s lh o

i o

j=lelelelelelelelelelelele]

01622C

oo
s

wh D

(olelelelelelelelelelelelelolelolele]

$T23:

o161

fiNS

4 -2

SEEEHIRTETIGRERERERES

o
D e
il e
i
e
e
D e
D e el
il
D e
il el il
-

MOV

005756

i fee s
1379 §1
m“; o
01611

14:09

HOST LOGIC TEST

016234

012701
012702

B0
o
g
g

1376

10-MAR-80

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

1355
1356
1357

1358
1359

012700
012767
004767

MACY11 30A(1052)

PORTIM

a?grei,.unao
-

WORD
WORD
WORD
WORD

#8DRTBL ,R3

JPRINT ME SSAGE

sSORT OUT CORRECT BAUD RATE
sR3 POINTS AT TABLE OF RATES
sDOUBLE OFFSET
JUSE CORRECT OFFSET
GET BALD

JNOW PRINT “PORT 1 = **
sPRINT Mg SSAGE
;POINTED TO BY PORTIM
;GET NEXT BAUD RATE CODE
sSORT OQUT CORRECT PART
JPUT IT IN L.S. BIT PLACES

ASL

WORD

:m; OFFSEY

e
TIRUT
uoiv;n

JPRINT RATE

ADND

PNTM

MOy
JSR

MOVE

R
WORD

#PORTM, RO
PC . TYPOUT

(R2),WORD

JUSE IT

AS TABLE OFFSEY

PRINT ”(‘! 8’”
¢

JPRINT MES
JPOINTED TO BY PORTOM
JGET BAUD RATE CODE

CZCMJAD CMR=11 HOST EXERC SEF;

CZCMUA.P11
1401
1402
1403
1404
1405

06-MAR-80 15:

010356
010364
010370
010376
010400

042767
012703
006367
046703
011300

177770
025022
015766
015762

]lzgg

8}828%

004767

006024

1408
1409
1410
1411
1412
1413
16414
1415
1416
1417

010406
010412
010416
0104%(2)
0104
010436
010440
010444
010450
010454

012700
004767
111267
042767
006267
006267
006267
006267
012703
006367

021716
14
015740
177617
015726
015722
015716
015712
025022
015702

1420
1421

010466
010472

004767
004767

005740
7060

}23%

010476

MACY11 30A(1052)

10-MAR-80
HOST LOGIC TEST

015776

BIC

MOV
ASL
ADD
MOV
JSR
PNTM

14:09

PAGE 26

#177770,WORD
#BDRTBL ,R3

;sDOUBLE OFFSET

PC, TYPOUT

;PRINT BAUD RATE FOR PORT 2

#PORT3M,RO

sPRINT MESSAGE

(RZ) ,WORD
#177617 ,WORD

;GET CORRECT PART,

PORT3M

015556

i SR S o
000014
007004
095
1721

8
o

i3 o8 wow wy
1441

}fii

0105

016

00476

10612

105767

}64

;061

Tien

1450

}2”
Mg

1456
1455
1456

;
1&
01

ENPRTN:

0154

1765

15444
&5636
7

sPRINT END PASS INFO
JNULLS AFTER PRINTOUT
sCHECK FOR CONTROL CHARACTERS
:START OVER

S$126:

001405

JUPDATE PASS COUNT
:END PASS INMIBIT?

015604

15514

8}0576

i e g
1

ST125:

;PRINT "END PASS # **
SPRINT MESSAGE
*POINTED TO BY ENDPS
*GET PASS COUNT

;385338753 25358

004767
004767
004767
000167

000010
015560

!'—B

010542
010546
010552
010556

015626

ENDT:
ENRET:

:PRINT IT IN DECIMAL

:PRINT “ERROR COUNT = **
SPRINT MESSAGE
*POINTED TO BY ERCTM
:CHECK FOR ERROR CNT OVERFLOW
1T DID'T, PRINT COUNT

7 o{o PRINT *‘weQVERF|Owee"*
SPRINT MESSAGE
SPOINTED TO BY OVFLM
JGET

JPRINT

—

MS;
1433
1434
1435
1436

004000

JUPDATE ITERATION
;DONE 10?
sSINGLE ITERATION?

032777
001415
012767
005267

;POINTED TO BY PORT3M

JNULLS AFTER PRINTOUT

000016

010510
010516
010520
010526

;PRINT "PORT 3 = "'

;PRINT RATE FOR PORT 3

ST24:
1426
1427
1428
1429

JUSE IT AS TABLE OFFSET

;DOUBLE OFFSET
JUSE IT AS TABLE OFFSET

gy e
000167

sSORT OUT CORRECT PART

WORD

WORD ,R3
(R3) ,RO

PC,TYPOUT

015732

SEQ 0034

«SBTTL

FORT LOOP-BACK TEST

ERROR COUNT

IT IN DECIMAL

CZCMJAO CMR=11 HOST EXERCISER
CZCMJA.P11
06-MAR-80 15:13-

MACY11

30A(1052)
10-MAR-80
PORT LOOP-BACK TEST

14:09

PAGE 27

SEQ 0035

1457

1458
}zgg
1461

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

1462

010644

012767

000000

1465

010662

005367

015406

1463
1464
1466

010652
010660

027727
001420

1467

010670

010666

001371

1469

010670

032777

1(.68

1470
1471
1472
1473
1474
1475
1476
1477

010676
010700
010704
010712
010716
010716

015420

001007
012700
012767
004767
000043

015446

022552
000042
005

005152

004767

004564

005067
005067
005067

015330
015352
msg&e

010744

105067

015

010750
010754

012700
004767

ozzoos
00545

1
1487
1488
1489

010760
010764
010770
010776

012
00476
012767
012767

&2);220
2

1491

011010

1481

1483
1484

1485

010750
010760

1490 011004

1492

1493

011014

011022

149% 811
1495

0110

}29

011036

1498
1499

011042
011044

1500
1501

OM
011

}ssg‘

“oao

150;

767

PORTLP: MOV

PRLC:

010760

BIT

#B14,35R

Pok:

.+20
#NOGO,
RO
#42
, ERRNUM
PC,ERR
N+T

CLR
CLR
CLR

ALLFLG
PASCNT
ERRCNT

Mov

PSTO:

8«, 50
015312

MOV
JSR

#PLTM,RO
PC, TYPOUT

MOV
JSR
MOV
MOV

#PORTN, RO
PC, TYPOUT
"%
#PSTO, PCONT

CLR

PCONT

BNE

PST

PNTM

015232
PST1:
PSTE:

;ERROR:HOST MICRO FAILED TO START

PLTM

PORTN

PC, INPKB
%

ERROR 1,2

[S22222;

;RUN LOGIC TEST.
:LOAD ITERATION COUNT

:CLEAR "ALL'' FLAG
*CLEAR PASS COUNT
:CLEAR ERROR COUNT

:CLR OVERFLOW FLAG

:PRINT "PORT LOOP-BACK TEST''

*PRINT MESSAGE
*POINTED TO BY PLTM

JPRINT "PORT # (<CR>=ALL) *'

*PRINT MESSAGE
:POINTED TO BY PORTN
*DEFAULT IS "ALLTM
:LOAD RETURN ADDRESS

:GET KBD INPUT

;WAS IT DEFAULT (OR 4)?

*NO

PORT

#-1 ALLFLG
PST2A

SYES, SET “ALL'* FLAG

BMI
CLR

PSTE
ALLFLG

:WAS IT HIGHER THAN 4?
SND, MUST BE A PORT #

MOV

#AGAIN, RO

P
PNTM

11110
1m

015224

1512

0111

015200

*POWER UP COMPLETE?
*YES, CARRY ON

MOV
CLR
NP

j's:

w10, ITER

OFLOF

JSR

000004

PC,SWHLT

CLRB

1&
1

1311 o

\N,NOGO

BNE
MOV
MOV
JSR
B
HLT
JSR

15
PST2: MOV
1553 m&: MOV

m?s

*NO, ‘WAIT A BIT

PRLC

1505 11§%
1509 11076
150

CNTR

BNE

PNTM

;BETTER CHECK FOR PWR=UP (OMPL

aC SR, #102000
POK

JRRRRRER

N
015354

#0,CNTR

CMP
BEQ
DEC

040000

012767

010
010734
010740

102000

ERROR

010722

1478
1479
1480

015422

CLR

MOV
INC

MOV

: START WITH PORT 0

PST2
AGAIN

;WRONG',

g,{,"fl"

:POINTED TO BY AGAIN

PORT

05 SR

#212 ,3SPOR
?dn

SShinToR
#1,35PDR

TRY AGAIN

*PRINT MESSAGE

;SAVE PORT #
SCLR TOP BYTE

:ADDRESS REQ. SCR. PAD

SLOAD MAINT FUNC.
270 DO PORT L

. A, 8

;ONE REQUEST

333 SY L EMENENE
$ 43 38 38 Y S

— e

iVi
\.fl\h&\fl\fl\fl\fl\.fl\h\fl vivivivioavivavioa
o
o8 ~N FEARFUKZ BR
SERNVFRRUNTS Voo
WwW >>

0 CMR=11 HOST EXERC£SER
P11
06-MAR-80 15:13

MACY11

30A(1052)
10-MAR-80
PORT LOOP-BACK TEST

015166

MOV

011160 016777 015136 015154
011166 012767 000020 015100
011174 012701 025144

MOV
MOV
MOV

011142

011146
011154

011200

005277

015172

005277

015160

005277

015134

005367

015040

016777

015150

011204

012177 015132

011214

001371

011210

011216

011216 012709 022062
011222 004767
005

PSTS:

015062
006104

011252 026727 006070
011260 0013

001236

005067

015044

INC

aSPAR

INC

aSPAR

PST4:

PAGE 28

SEQ 0036

PORT,aSPDR

;:LOAD PORT # (XMTR)

PORT,aSPDR
#20,CNTR
#DATBL ,R1

:LOAD PORT # (RCVR)
:CHARACTER COUNTER
.
:LOOP DATA FROM 'DATBL'

(R1)+,3SPDR

:LOAD DATA BYTE

BNE

PST3

*NO, KEEP LOADING

MOV
JSR

#TYPCR,RO
PC, TYPOUT

*PRINT MESSAGE
*POINTED TO BY TYPCR

INC

MOV
DEC

011252 012767 011216
011234
012767 001236
ong«z 004767 005226
0112646

PST3:

14:09

PNTM

aSPAR
CNTR

TYPCR

MOV
MOV
JSR

#PSTS,PCONT
#1236 ,KBBUF
PC, INPKB

P
BNE

KBBUF , #1236
PSTS

CLR

*LOADED ALL?

*PRINT "TYPE <CR> WHEN READY''

*INDICATE PROMPT PENDING
:LOAD ANY DEFAULT VALUE
*GET KEYBOARD INPUT

PCONT

:<CR> ONLY TYPED?
“IF NOT, KEEP LOOKING FOR IT

;START MAINTENANCE FUNCTION

011262

012777

000020

011270 012777 000

011276 005777 014774
011
wor.o;
ongor. 004767
004632
011310 000
011312

on
011330
0113

1
004767 m
009167

011

001002

015016

015006

015000

015020
000001

PSTS:

PST6:
PST60:

MOV

TST
BM]
JSR
B8R
MOV

BNE
JSR
P

#20,3CSR

:CLR.

aCSR
PST60
PC ,MONIT
Psté
#1002, aSPAR

:LOOK FOR INTERRUPT BIT

#200,aCSR

aSPDR, #1

PST?
PC,MONIT
ENDCHK

011340 08 7 014776 000375 PSI7:
ongas 1034

(M
BLO

3SPDR, #375
PST8

011350

BIT

#8146, a5R

011350

11356

011372
11376

032777

001007

767

001010

mog

12709

"‘13

1141

114
114

11440
11446

1276

11406

040000

S67

125;
1

727

1034

014766

0046472

BNE

MOV

8003;0

014676 000374 PS18:

814, aSR

PORT

SCOPE

:gf

(TM

BLO

:DONE SUCCESSFULLY?

:NO, CHECK ERROR TYPE
;YES,

DONE A PASS

SFUNCTION FAIL?

;ERROR:TOTAL FAILURE OF 'MAIN'' FUNCTION
Jeennnne ERROR 43

reeenee

ERRNUM

MOV

PSTS
P

:NOW CHECK USOF

:c"ém

#PORTMS RO

JSR

FFE RO

#463

MOV

JSR

;AND WATCH FOR CNTRL CHARS.

. +20

PST7§

JSR

PST?S:

\N,PLFFE

BNE

PNTM

004074

JSR

BIT

746

MOV
=

040000 014740

ERROR

TOP BYTE

SSET "MAIN'

TMS

PC vv:gur

;PRINT ALLOWED?
INO,

SKIP IT

SPRINT “PORT # **
SPRINT MESSAGE
:POINTED TO BY PORTMS

PC ghm
LSCPRTN

END CHK

@SPDR, #374
PST80

JXMTR HUNG UP?

CZCMJAD CMR=11 HOST EXERC
CZCMUA P11
06-MAR-80

#8164 ,aSR
+20

014666

024546
000044
004220

004372

BIT
BNE
MOV
MOV

040000

014640

BIT

N+T

PST8S:

003774

000373

PAGE 29

SEQ 0037

;ERROR:XMTR TIMEOUT ERROR
sunnnnns

FRROR

#B14,aSR
PST8S

sPRINT ALLOWED?
:NO, SKIP IT

#PORTMS
RO

sPRINT MESSAGE

PORTMS

022331
004714
014600
005646

wrxwnnnn

#PLTXTO,RO
#44 ,ERRNUM
PC,.ERR

JSR

;PRINT ‘PORT # *'

;POINTED TO BY PORTMS

R5,SCPRTN
ENDCHK

PST80:

@SPDR ,#373

PST9
\N,PLRCTO

040000

014566

024574
000045
004120

#B14,3SR
+20

004272

#45 , ERRNUM
PC,ERR

040000

014540

;RCVR HUNG UP?

;ERROR;RCVR TIMEQOUT ERROR
sunnnnnt

FRROR

woennnn

#PLRCTO,RO

:514 asR

PsT80S

022331
004614
014500

sPRINT ALLOWED?
:NO, SKIP IT
;PRINT ‘PORT # **

014432
004136

014404

0041

144
1444

PST9:

(]

14472

PST80S:

003674

005546

353335543

sPRINT MESSAGE

S N
g ¥EHE
o

D
—

\N,PLTXTO

040000

000230
014576

14:09

ERROR

zwug53382 233

BEE FRERXNrRER
RN R

d
o

—_— 2

— e e
D d d D e D d d d
— ) ) D )e )
e e
b

OO0O0O0O0O0O0O0OOOOOO

3 —d b —2
— d ) e d

OO0O0O00

b D b D D D D b b D D ) s RS R e
— ) il el ) -l ) el d ) d d ) ) —d el ——d

50 3IRP FAIRRETLREL

—

ézg

000

b
b

—_— e — 3
— d ) )
— =
b —b

d
el
—

R
-2
—

011460

lelelileleleclelecBlelelelalelelelelalelalele] (el OO0

i
i
—
d —
b
-t

—

(o Yo Yo )

) —d

VIS
W =D

)

b e

) i

D e

) D d -

D d

d D

—

)

) e

)

S&
8§\h\fl\fl\h\fl\h\-fi\h\h\h
R TR R N b F A deb b ISTITRLIIS
JSVFININIZ

ERY

MACY11 30A(1052)
10-MAR-80
PORT LOOP-BACK TEST

;POINTED TO BY PORTMS

R5,SCPRTN
Emosm

#1001

,@SPAR

@SPDR ,@SPAR
@SPDR ,BAD

sADDRESS DATA TO FIND BAD WORD

;GET BAD WORD
:GET GOOD WORD

;ERROR:LOOP TEST DETECTED DATA ERROR
swannnne

FRROR 46

JPRINT ALLOWED?

tennene

CZCMJAD CMR=-11 HOST EXERCISE R
CZCMUA. P11
06-MAR-80 15:1 3

011742
011742
011746
011752
011756
011762
011762
011766

RRREREKRNRN

d
D
d
D

PORTMS
#PORTMS ,RO

MOV

PORT ,RO

JSR

R5,SCPRTN

004567

003540

005767

000020
014262

014300

ENDCHK: BIS

026727

014312

000003

005067

014302
000003

014312

014256

014274

JSR

PST9S:

016777
005277
016777
000167

014246
000003
014234
014244
014222
177154

005367

014172

032777

004000

014222

012767
005267

000010
014154
002000

014152

004767

176410
005400
003760
177074

004767
000167

014256
014252

#8046 ,aCSR
ALLFLG

:CLR TOP BYTE
;DOING ALL PORTS?

cMP
BLO

PORT ,#3
ENDO

sYES, DONE ALL?
sNO, KEEP GOING

MOV

PORT ,aSPDR

MOV
BR
INC
MOV
MOV

PORT ,@SPDR
PNTEND
PORT
#3,aSPAR
PORT ,aSPDR

MOV
JMP

PORT ,@SPDR
PSTS

INC

014200

PNTO:
PNT1:

;PRINT 'PORT # *'

sPRINT MESSAGE

;PRINT #

INC

PNTEND:

SEQ 0038

PC,OCTPNT
PSTS

JSR
SCOPE

CLR
MOV

014240

3
PAGE 30

;POINTED TO BY PORTMS

TST

ENDO:

PC,TYPOUT

PSTS

014306

14:09

PNTM
MOV

022331
004460
014344
005412

d
e e
— e

—

) cd

OO n

[elelelelels]

30A(1052)
10-MAR-80
PORT LOOP-BACK TEST

012700
004767
016700
004767

016777
0004
005267

MACY11

DEC

PORT
#3,3SPAR

ITER

MOV
INC

#10,1TER

JSR

#810,aSR
PC.ENPRTN

JMP

PC.NULLS
PC.MONIT
PSTS

.SBTTL

HOST-REMOTE EXERCISE

PNTRTN: JSR

JNEXT PORT
;PREPARE TO LOAD NEXT PORT #

aSPAR

PNTO
#11,aSR

JSR

;CLEAR PORT #
.
IN REQ. SCPD

aSPAR

BEQ
BIT

BIT

;NO, DONE A PASS

JUPDATE

ITERATION COUNT

;SW 11 =, INH ITERATION

JRELOAD ITERATION COUNT
sUPDATE PASS COUNT
:SW 10 = INH END PASS PRINT
;PRINT END PASS

SPRINT NULLS

;START BACKGROUND SCAN, WAIT FOR *‘THRU''

:REPORT_ALARMS WHILE WAITING.
SWHEN *THRUTM* SETS, DO A ‘PORT CONFIGURATION STATUS'* REPORT
:AND THEN RUN "DIAGNOSTIC'* FUNCTION ON ALL

012746
012746
000002

000340
012200

AVAILABLE REMOTES

REPORT ALL CHANGES OF REMOTE STATUS

CMREXC: MTPS
MOV
MOV
RTI

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

: INTERRUPT OFF

CZCMJAD CMF
CZCMJA.P11

11 HOST EXERCISER
06-MAR-80 15:13

1681
1682

012200
012200

1684
1685

012212
012216

1683

005067

014106

105067
005067

014036
014060

012204

012767

1686 012222
1687 012230

012767
027727

1688
1689

012236
012240

1691

012246

1693

012246

1690

1692

1694
1695
1696

1697

1698

1699

1700
1701
1702

012244

012254
012256
012262

012270

012274

012274
012300
012304

001420
005367

001371

032777

001007
012700
012767

004767

000050

004767
005067
005077

014072

000000
014042

014044
102000

040000

014070

022552
000047

003574

003422

013766

1706
1707

012326
012330

012700
004767

022112
004076

1711

1712
1713

129

1718

1719
1720
1721

1722

1723

1726

1725
1729

1727

105067
105067
005067

012354
012360

005067
005067

012350 005067

012364

012370

0123764
012400
012406

012410
012416

012422
012424
012430

012434

005067
004767

004767
032777
001410

052777

005767

00102

000554

000020

013660

013616

005767

013702

012452

005767

013612

173
1735

01
012464

004767
000167

0002
0004

1733

1736

012456

012470

001004

004767

EXS2:

013670

013646

00007

EXS1
CNTR

*YES, CONTINUE
*NO, WAIT A BIT

;SET UP TO TIME POWER UP
‘PWR-UP & INTR SET?

\N,NOGO

sERROR:HOST MICRO WON'T START
Jexnnnte

#814,3SR

N+ i

JSR
CLR

PC,SWHLT
CHNGF L

CLR

*LOAD ITERATION COUNT

:CLR FLAGS & COUNTERS

+20°
#NOGO, RO
#47 ,ERRNUM

HLT

;CLEAR PASS COUNTER

OFLOF
ERRCNT

BNE
MOV
MOV
JSR

SEQ 0039

PC,ERR

aCSR

FRROR

wxnnnnw

:RUN LOGIC TEST

:CLEAR STATUS CHANGE FLAG

*START OFF CLEAR

MOV
MOV

#20,3CSR
#44 . aCSR

*CLEAR TOP BYTE
;ENABLE BKG SCAN& THRU INTR

MOV
JSR

#EXCM,RO
PC, TYPOUT

*PRINT MESSAGE
*POINTED TO BY EXCM

{LR

EXTBL1

;CLEAR TABLES

CLR

EXTBL4

EXCM

ONCE
THRUF
TALLY

EXTBL
EXTBL

sPRINT

"'CMR=11 EXERCISE ROUTINE''

;EXERCISER MAIN LOOP

003542
040000

105767

003747

CELP

CLR
CLR

013414

012436

012450

BNE

BEQ
DEC

CLRB
CLRB
CLR

013024
013220

1728

1731

#0,CNTR
aCSR,#102000

PNTM

012630

00351
01362

1% 012442 oows;

013760
013752

013720
013715
014002

004767
105767

001015

EXS1:

PASCNT

MOV
(MP

BIT

003206
013764
000020
000044

012334
012340
012344

CELP:

PAGE 31

#10, ITER

ERROR

012777
012777

1708
1709
1710

CLR

MOV

CLRB
CLR

014030

012310
012316
012324

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

000010

1703
1704
1705

MACY11

JSR

JSR
BIT
BEQ
BIS

:
EXS2B:

BNE

PC.MONIT
M4, aCSR
EXS28

#20,3CSR
CHNGF

EXS

JSR
TISTB

PC,MONIT
T

ISTB

ONC

BNE

BEQ
ST

BEQ
TST

BNE
EXS3:

PC,SCALM

JSR
P
JSR

;GO SCAN ALARMS

:CHECK FOR CNTRL CHARS.
:IS FUN COMPL SET?
*NO.

:CLR TOP BYTE

*CHANGE FLAG SET?

:IF YES,

DO PCS

:CHECK FOR CNTRL CHARS
SIS TTHRU'* SET?

EXS

:IF YES, DO PORT CONFIG

Exs

*NO. WAIT FOR THRU

sxs

cmgn.

PC olwu
SKPD
FC.PRTCNF

:DONE PORT CONFIG ONCE?
SYES, ANY REMOTES?

:NO,

WAIT FOR CHANGE OR THRU

SYES, ANY CHANGES PENDING?

SYES. NEW PORT CONFIG

;NO, GO DO DIAG FUNC ON AVAIL REMOTES
STHEN PRINT END PASS S ur
:DO A PORT CONFIG FUNC.

CZCMJAD CMR=11 HOST EXERCISER

CZCMJA.P11

06-MAR-80 15:13

1737 012474 005067 013570

1738

1739
1740
1741

012500

112777

012506
012512
015514

005767
001406
105767

012530
01253

105067

ooggzt.

013640

HOST=REMOTE EXERCISE

12647
1748
1749
1750

1751

013524

012700 022223
004767 003666
105067 013511
000707

012556

112767

105067

}773‘ 012564 000701

013503

177777

EXS3A:

C1347%

1755
1756

i
Ex:
|

1;39
17'3;
1783
178,
8
1
1

PAGE 32

CHNGFL

SEQ 0040

:CLR CHANGE FLAG

#74,aCSR

*FNAB BKG SCN,CHGST,THRU INTR

BNE
JSR
B8R

EXS
PC,REPORT
EXS38

SYES, SKIP IT THIS TIME
*REPORT ALL REGULAR REMOTES

MOV
JSR
CLRB
B8R

#NOREM, RO
PC, TYPOUT
THRUF
EXS2

MOVB

#-1,0ONCE

CLRB
PNTM

CLRB

B8R

TALLY
EXS
ONC

ONCE
NOREM

THRUF

EXS2

*ANY REMOTES?
*NO. IDLE
*ALREADY DONE REPORT?

:NO REMOTES. WAIT FOR THRU
*PRINT "NO REMOTES..WAITING

*PRINT MESSAGE
*POINTED TO BY NOREM
“CLEAR THRU FLAG

:CLEAR THRU FLAG

SSET "ONCE'* FLAG

:REMOTE #'S IN TABLES

012566
012572
012576
01
012612
012616
01
0152
012636
O1
012652
81 56
0
01
012676
O

005067
005067
012767
012767
004767
012767
012767
004767
012767
012767
004767
012767
12767
7267
767
133

1775 012704 %ozor
178

1;;3
}

:PORT CONF IGURATION STATUS SUBROUT INE
*PERFORMS A P.C.S. ON ALL 4 PORTS AND SAVES THE

};2;

1759
1760
1761
175§
1763
1764
1765
1766
1767
1768
1769
1770
1771
1;77§
1
1726

EXS38:

14:09

MOVB
ST
BEQ
TSTB

013540

01254
012540
012544
012550
012552

CLR

013570

1742 012520
001014
17243 012522 004767 001314
1744 0155
000411

1745
1746

10-MAR-80

MACY11 30A(1052)

1 ros
1271
01271
O1
1
1
1

013476
013554
025204
ooooog
oog&
02
ooogg;
ggo
025604
ms
026004
ooooos
m
01

15701 8f5§°‘
12167
1
1
12167
76

12740

13N

127

12701

1792

013356
1
1;

013550
013506
013530
013466
813510
13446
813470
13426

PRTCNF: CLR
CLR
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
JSR
ST
BNE

RTS

:CLEAR ''CHANGE FLAG''
*CLEAR REMOTE TALLY
“SET UP TO CONFIG PORT 0
.
:DO PORT CONFiG ON PORT 0
:DO PORT CONFIG ON PORT 1
:DO PORT CONFIG ON PORT 2

:DO PORT CONFIG ON PORT 3
SANY CHANGES PENDING?
“IF SO, DO 1T ALL OVER

;SUBROUTINE TO DO THE DIAGNOSTIC FUNCTION ON
SALL REMOTES WHICH ARE ON LINE AND REGULAR

DIAGFU: MOV
SKP1:

01333

1791 §1§;§ &&g 8#’??23

CHNGFL
TALLY
:ereu.rauo
,PORN
PC
. PORCNF
#EXTBL2, TBLAD
#1,PORN
Pc.mg
asxru , TBLAD
#2 ,PORN
PC . PORCNF
XTBL4
, TBLAD
#3,PORN
PC . PORCNF
CHNGF L
PRTCNF

MOV
HNE
NP
MOV
JSR
DEC

(R1)+,CNTR
SKP1
sxpf
(R1)+ ,REMNO
PC,DIAGNF

:GET TABLE FOR PORT 0

:GET # OF REMOTES ON PORT
SNONE, NEXT PORT
:GET 1ST REMOTE #

:D0 ouoosv;c FUNC. ON REM,

NTR

‘DO ALL REMOTES ON THIS PORT

MOV

#EXTBL2 R

:GET TABLE FOR PORT 1

SKP3

HNE

SKP2:

#EXTBLY,R)

MOV

SKP1

(R1)+,CNTR

S1ST ENTRY 1S # OF REMOTES

CZCMJAO CMR=11 HOST EXERCISER
CZCMJA.P11
06-MAR-80 15:13

1793

1794

012754

000167

012760

012167

012770

005367

1795

012764

1797
1798
1799

012774
012776
01

1801

013010

1803

013020

004767

1805
1806
1807
1808
1809
1810
1811

013030
013032
013036
013042
013044
013050
013054

171
013701
012167
00100;
000167
012167
004767

1813
}g}g

013064
013066

001371
000207

1796

oogom

013344

004767

001342

001371
015 01
012167

025604

1ao§

012167

013310

005367

013244

1804

013060

005367

SKP3:
SKP4:
SKPS:

001306

SKP6:

000016
013254
001252

SKP7:

013210

181

1319 013070 005367 013210
1818

01307¢

1820

013104

001415

013114

1819

013076

1821

81 106

1
1825

013126
013130

1822

013120

1826 811

1827
013140
}aza 013144
|

001

032

004000

004767
004767
000167

013240

13172

802000 013216
16

776
177220

18
18
1840
181

1
1
01
01

1843
1844

01
O1

185

188

1
187

JMP

SKP6

;1F NONE, NE).T PORT

JSR

PC,DIAGNF

DO DIAGNOSTIC FUNC. ON REMOTE

BNE
MOV
MOV
BNE
JMP
MOV
JSR

SKPS
FEXTBL4 R
(R1)+,CNTR
SKP?
SKP8
(R1)+ ,REMNO
PC,DIAGNF

;1F NONE, DONE'
*GET REMOTE #
DO DIAGNOSTIC FUNCTION ON REM.

BNE
RTS

SKP7
PC

:RE TURN

MOV

(R1)+,REMNO

CNTR

(R1)+,CNTR

SKPS

(R1)+ ,REMNO

CNTR

ITER

BEQ

SKPX0

BEQ

skPxi

;1F NONE, NEXT PORT

*GET REMOTE NO.

‘DO DIAGNOSTIC FUNCTION ON REM.

;GET TABLE FOR PORT 2

*1ST ENTRY IS # OF REMOTES

SGET REMOTE #

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

SFINISH ALL REMOTES ON THIS PORT

;UPDATE ITERATION COUNT

:IF 0,

END PASS.

#311,35R

:Sw1f =1

MOV

#10, ITER

;RELOAD ITERATION COUNT

BNE
JSR

skPx|
PC,ENPRTN

;PRINT END PASS STUFF

JSR
NP

PC.MONIT
EXS2

:KEEP GOING

INC

BIT

JSR

PASCNT

10, 3SR

PC.NULLS

=="INM ITER.

*UPDATE PASS COUNT

:SW 10 = INH END PASS PRINT

;SUBROUTINE TO CHECK FOR ALARMS AND CHMANGES OF REMOTE STATE.
:
IF ALARM,.. RING & BELLS

1835

SKPX0:

SKPX1:

}gs

SKP3
#EXTBL3,R1

BIT

175426

18
183

18%

BNE
MOV
MOV

SKPD2: DEC

012767 oogmo 013170

001004
004767

PC,DIAGNF

DEC

SKP8:

SEQ 0041

JSR

MOV

DEC

ozggo«
013232

4
PAGE 33

SKP4

BNE

016

JMP

DEC

013266

001

00016

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

013300

1800 01

013014

MACY11

1
01

013120

013064

013050

013102

IF CHANGE OF REMOTE STATE...SET A FLAG

SCALM:

812, 3CSR

MOV

#7 RO

BEQ

JSR
JSR
JSR
JSR

SCA1:

8IS

NOP
NOP

NOP

8IT
8EQ

MOV

SCA

PC.TTO
PC.TTO
PC.TTO
PC.TTO

: ALARMS
?

NO,

CHECK FOR (MG ST.

SALARM' RING TTY BELLS

804, aCSR

;CLR ALARM

#813,3CSR

;CHANGE OF STATE?
IND, CHECK THRU

#1000,

35PAR

“SEE IF TMIS IS A SYS ERR

€2 CMJAO CMR=11 HOST EXERCISER
CZCMJA.P11
06=MAR-80 15:13

1849 013236

1850

1851
185

1853

013244

013246

027727

001415

032777

013100
040000

1854
1855

013254
013256

001007
012700

024662

1857
1858

013270

004767
000051

002422

MACY11 30A(1052)
10-MAR-80 14:09
MOST=-REMOTE EXERCISE

000310
013070

013274

1861

186

msgoa 004767 003122

1865

013310 012

mef

1864

013300

013310

1866 013314
1867 01
1868 01 xig
1869

1870

1871

012700

004767

00311
001003
013010
004036

0133

012709

022436

001405

81
1
1 g

012709
7267
19

0133

1876

18
18
A

1880

1881

013374

032777

000100

012740

1887

&im

746

SCA28:

1888

}

012716

SCA2(C:

012710

SCA2D:

8‘5:%

1883

1891

18%

1895

18%

012576

83
o
1? 1

1901

wo§

SCA2E:

MOV

#REMCHG, RO

*PRINT MESSAGE

PNTM

REMSG

*PRINT 'REMOTE #

#50 , ERRNUM

REMCHG

PC, TYPOUT

:POINTED TO BY REMCHG
'

JSR

PC,OCTPNT

:GET THE REMOTE NUMBER
SPRINT IT

MOV

JSR
INC
BIT

#REMS TM, RO

PNTM

REGMG

PC, TYPOUT
#1003, 3SPAR
aSPDR . RO
REMSTM

PC, TYPOUT
aSPAR
#805 , aSPDR

*POINTED TO BY REMSG

*PRINT ‘REMOTE STATUS NOW **

*PRINT MESSAGE

:POINTED TO BY REMSTM
:NOW REGULAR?

SCA2A

*NO

MOV
JSR
BR

mms RO
PC, TYPOUT
SCA2C

*PRINT MESSAGE
*POINTED TO BY REGMG

BEQ

BIT

“’235‘5’”
IRRGMG

# IRRGMG,RO

*YES, PRINT 'REGULAR''

: IRREGULAR?
;YES, PRINT "‘IRREGULAR''

*PRINT ME SSAGE

IJmsa

:&grwr

:POINTED TO BY IRRGMG

MOV

JSR

)&fmt

;OTHERWISE, JUST PRINT THE STATUS

;:L v

B8R

T1S7

JAND LEAVE THE TALLY ALONE

SUPDATE TALLY FOR ADDED REMOTE

;18 mu ALREADY =0?

BEQ

;

:YES, FORGET T

TST

TALLY

SIS TALLY NOW 07

DEC

anE

ALLY

ONC

ALROFF

R
8152;8 SCA2F: MOV
o-1,0GFL
SCAS:

;PRINT ‘REMOTE STATUS CHANGE''

*PRINT MESSAGE

PNTM

012556

wennnnn

#REMSG, RO

(LR8

PC,SWHLT

PNTM

MOV

FRROR

JSR

HLT

PNTM

833'3

Jexnnxxr

PC,ERR
N+

BEQ

SCA2A:

;ERROR:HOST SYS ERROR. RUN LOGIC TEST.

JSR
B

PNTM

0224
00

#B14,35R

: OR REMOTE CHANGE

‘REMOTE CHANGE IS 0.K

+20°
#SYSER,RO

JSR
MOV
MOV

013012

SCA2

SEQ 0042

BNE
MOV

MOV

13;; mgs‘z ooarg
iou.
1873
01
oos; 7 012766
1874 81§ S2 032777 005040 012762
1875

\N,SYSER

JSR

02234

004767
01;777
017700

013332

SCA2:

022400

ERROR

MOV
N

1860 01853 004767 002206

aSPDR,#310

BIT

1856 mg& 012767 000050 002574
1859

CMP

BEQ

b4
PAGE 34

iNO, MAKE IT ONE LESS

‘ND,

0.K.

:YES, WAVE TO START OVER
SPRINT

“ALL REMOTES ARE NOW [RREGULAR

RMER 13 8 aor
mfig

8IS

#20.3CSR

.uEAR TOP IV !

BIT

#5611, (SR

21S ThRU SET?

8£0Q

SCAf

sCArf

SEE IF ANY MORE CHAMGES.

IND, LEAVE

CZCMJAD CMR=11 HOST exencgsen
CZCMJA.P11
06=MAR-80 15:13

1905 0135%

1906

}ggg

013530

01353¢

112767

052777

000207

177777

000020

MACY11

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

012531

012540

MOVB

SCART:

PAGE 35

#=1,THRUF

BIS

JYES, SET THE "‘THRUF'' FLAG

#20.3CSR

RTS

SEQ 0043

“CLEAR TOP BYTE

1909

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

}g}i

;FOR EACH REGULAR REMOTE FOUND, A TALLY IS INCREMENTED

}g}:s.

;TABLES ARE

1916
1917

;
:

1910
1911

1920
1921
1922
1923
1924
1925
1926

1927

:PORT AND STORE THE RESULTS IN A GIVEN TABLE. ALSO
*STORED IS THE STATUS OF EACH REMOTE

013540
013544
013552
013556
O1 s%
0135
013576

1928 ovgg1

016701
052777
005977
012777
oos;;r
&g 7
;77

012610
000020
012
000140
012550
2
0125

012532
012520

0535

016777
004767

012500
17732

032777

040000

193

177300

19
1937

81;252
013656

7
1;; 7

013672

001415

1933

oovoo;

1935 013650 000771

1938 mgg?‘
1939

1960

013674

1
19%3
194
19%5
1

13674
01 ;g
01
013710
13716

}9‘

}

1951
m;

01
1

1941

1950

195%

0132

1955

0137

1954
1

27 012452

# OF ENTRIES
g
REM STATI[REM #

PORCNF: MOV
BIS
CLR
MOV
INC
MOV
INC

MOV

PORO:

POR0DD:

000140

PORN, @SPDR
PC,SCALM

;PORT # GIVEN BY CALLER
sCLEAR ALARMS & CHANGES

BIT

#3314 (SR

BIS

PORT:

mfis

JSR
MOV

PC
#1000,

ERROR

\N,SYSER

MOV
JSR

POR1

14,35
.+20
YSER,RO
1. ERRNUM
PC,ERR

Nei

INC

SPAR

“ls;
J
MOV
ASR

PC,SWHLT

ASR

BNE

01235

PORLD:

PORCN:

I
3SPAR

@SPDR _#140

O1 ;%

PC,SCALM

132

1959

,aCSR

POR00

MOV

aSPAR

BNE

BIT
BNE
MOV

002146

:DATA LEN. = 2

MOV
JSR

BEG

012642

;TABLE ADDR GIVEN BY CALLER
:CLR TOP BYTE OF CSR
:ADDR REQ. SCPD
:LOAD PORT CONF. ST. FUNC.

: ONE REQUEST

JSR

012454

TBLAD ,R1
#804 ,aCSR
aSPAR
#140,3SPDR
@SPAR
#2,3SPDR
aSPAR

#1,3SPDR

INC

0132

1960

264

012442

012434

1957

012544

ooogot

013614
013622
01

012556

012777

oos;n 81

1929
1930

1931

012524

IN THE FOLLOWING 7ORMAT
:

MOV

:FUNCTION COMPLETE?

INO, WAIT

:SCAN ALARMS AGAIN
;ADDR RESULT SCPD

STHIS RESULT FROM PORT CONF1G?
;ERROR:HOST SYS ERROR. RUN LOGIC TEST
Jeensnes ERROR 51

:DIVIDE BY &
:SAVE AS # OF

.-g NONE

PORLD

68 ®

#1003,

INC

SPAR

a5PAR

@SPDR.(R1)+

seencee

;GET # OF REMOTES

(R1)+

MOV

MOVEB

*START FUNCTION

215 MORE THAN

u{v

ENTRIES

O, LOAD THEM

SGET # OF ENTRIES

;LOAD REMOTE #

1
1

2 g

CZCMJAOD (MR=11 HOST EXERCISER
CZCMUA. P11
06-MAR- 80 15:13

3774

1968

1177;

777

MACY11

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

012332

DEC

BNE
PORXT: TST
BNE
CLR

1964
1965
1966

1967

1968

1969

012236

1970
1971

1%:

ADD
BIS

RTS

:SUBROUTINE

&
PAGE 36

a PDR, (R1)
+
aSPAR

c~fn

PORCN
PORN
1%
TALLY

RO, TALLY
096/. aCSR

SEQ 0044
;LOAD REM.

STATUS

:GOT
THEM ALL?
‘NO, GET THE REST

*PORT 0?
*NO, NEVER MIND
*YES, CLEAR TALLY
*UPDATE TALLY
“CLR TOP BYTE

SAND RE TURN

TO REPORT THE smus OF EACH PORT WHICH HAS ANY

*REMOTES ATTACHMED AND REGULAR

01223¢

REPORT: MOV

012230
REPO:

012204
REP1:

012160
REP2:
012134

REP3:

#12,L INLEN

;ALLOW 11(DEC) REM'S PER L INE.

MOV
MOV
BEQ
MOV
JSR

#EXTBLT,RI
(R1)+,CNTR
REPO
#0,PORN
PC . PRNREM

*GET PORT TABLE
“GET # OF REMOTES
*NONE MERE, 'fxt PORT
*LOAD PORT
*GO PRINT nfnorss OM THIS PORT

MOV
BEQ
MOV
JSR
MOV
MOV
BEQ
MOV
JSR

(R1)+,CNTR
REP1
#1,PORN
PC . PRNREM
#EXTBL3,
R
(R1)+,CNTR
aspz
#2 ,PORN
PC . PRNREM

:GET # OF REMOTES
‘NONE MERE, NEXT PORT

MOV
BEQ
MOV
JSR

(R1)+,CNTR
esp
#
PC _PRNREM

MOV

RTS

#EXTBL2
R

#EXTBLG R

;GO PRINT REMOTES ON THIS PORT
:GET # OF REMOTES
“NONE MERE, NEXT PORT

:GO PRINT REMOTES ON THIS PORT
;GET # OF REMOTES
:NONE WE'RE DONE
:GO PRINT REMOTES ON THMIS PORT

SRETURN WHEN DONE

;SUBROUTINE TO DO THE PRINTING PART OF PORT CONFIGURATION REPORT.
*R1 POINTS AT FIRST REMOTE #

Foedaseey

Rt
T JES S R S S §

SPORN = PORT #
JONTR = # OF REMOTES ON THIS PORT
PRNREM: PNTM

PREMO:

PORTMS

MOV
JSR
MOV
JSR

#PORTMS , RO
PC. TYPOUT

BIC
JSR
JSR
DEC
8€0
DE
93

0172400
K.Otuir
PC.MON]
T
enfr
PRE
LINLEN
PRE

MOV

PC ?émn
(Ri)+ao

:PRINT 'PORT #

:PRINT MESSAGE
.-ro;mo 1C BY PORTMS
:GET PORT #
SPRINT IT

JGET

REMOTE #

m uloo BYTE
PRINT ;
coccx OR (NTRL CHARS

JEXIT IF nui DONE
SFILLED A LINE

C2CMJAOD CMR=11 HOST EXERCISER
CZCMJA.P1T
06-MAR-B0 15:13

2017 014244
2018 014252

MACY11

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

012767 oooo1§
01 709 00001

012034

MOV
MOV

ng.umen
#15 RO

2020 014262 015767 000010
2021 014270 01
000040

012002

MOV
MOV

#10,CLK
#40.RO

2019

014256

004767

003416

202

014%3 004767

003400

2024
2025

014304
014306

2023

2026
2027

2028

20292050

014

014312
014316

014322

014330

005367

001373
000167
012700
004767

012767

000207

PREM1:

011766

177700

15
003356

000012

PREML:

011756

2031
20

503

2035

014332

000020

025144
011770
000100

2040 014
2041 014370
2062
014374
2043
014402
2064 014406

ooogzz
011744
1
0117
011716

2os9 0144

11716

2039 014356

011756

2045 014414

2048

11720

0144

17651

om%

144
16476
14504

;CARRIAGE RE TURN

*SPACE PAST PORT #

#12,LINLEN

#15,R0
pC,TT0

:ANOTHER <CR>

;AND RE TURN

011732

DIAGNF: MOV

011764
011740

011726

DIAGO:

016383
145

14544

145
145

014556

#22,3SPDR
@SPAR
#1,3SPDR
aSPAR
REMNO, @SPDR

:DATA LEN. = 22
;ONE REQUEST

(R2)+,aSPDR

:LOAD DATA PATTERN

INC

MOy
DEC

BNE

PC,SCALM

:NO, WAIT FOR IT

#10 0,
3SPAR
#100,
GOOD
@SPDR , BAD

;ADDRESS RESULT SCR. PAD
SRIGHT FUNCTION?

1
1
1

138

040000

B8R

DIAG10: MOV
MOV
MOV
P

BEQ

011614

BIT

000002

RV
MOV

7 000752

14482

;CLEAR ALARMS ETC.

JSR

BNE

01270h
1$m m 001320

’

DIAGO

PC, SCALM

176462

DATERR

CLK

:LOAD REMOTE #

040000

777

@SPAR

*CLR TOP BYTE
SSET START FUNC.
SFUN CoMPL?

01
1%

MOV
INC
MOV
INC
MOV

aSPAR

;ADDRESS REQ SCR PAD
*LOAD ‘DIAG'' FUNC

04, aC SR
#800,3C SR
;14 scsa

1
"S

01451

;SET UP TO LOAD REQUEST

#DATBL ,R2
aSPAR
#100,aSPDR

INC

011752

#20,CLK

MOV
CLR
MOV

11632
8IS
011624
8IS
011616 DIAGY: BIT

145
72

MOV

DIAGOO: JSR

;YES, RESTORE LINLEN

CLK

PREM1
PREMO

MOV
JSR

SEQ 0045

PC,TT0

BNE
JMP
RTS

11642

0144

0144
1 01444k
gg 0144
B

JSR

DEC

PC.TTO

&
PAGE 37

:SUBROUTINE TO DO DIAGNOSTIC FUNCTION ON A GIVEN REMOTE
*ENTER WITH REMOTE # IN 'REMNOTM

2036 014340
2037 014
2038 014350

2047

JSR

011554

DIAGZ:

JSR

DIAGH

GOOD ,BAD

DIAGS

\N,DJAGF

#8146, 3SR

;ERROR:DIAG FUNC GAVE
Jennenee

FRROR

FUNC CODE

evencee

sl
80
oss £ RRNUM
PC,DERR

§cm 3’1«»
LSCPRTN

JSR

D 1AGOO

ADD

82 ,8°PAK

JOMECK FUNCTION STATUS

CZCMJAD CMR=11 HOST EXERC;SER
CZCMUA. P11
1
06-MAR-80 1

014564
014572
014600
014606
014610

012767
017767
026767
001460

2079

014610

032777
001007
012700
012767
004767
000054
032777
001036

040000
024766

000053

001144

040000

BIT
BNE
MOV

001232
011500

IAY]
N

- e
B il -

PAGE 38

SEQ 0046

sSHD SHOW SUCCESS
.o.K.

;ERROR:USOF WRONG ON ‘DIAG'* FUNC
;eennnnn

BNE

DIAGSS

#814, 3SR

:PRINT ALLOWED?

REMSG

*PRINT ‘REMOTE # **

“NO, SKIP IT

#REMSG, RO
PC, TYPOUT
aSPAR
aSPDR, RO

*PRINT MESSAGE
*POINTED TO BY REMSG

PNTM

STATEM

*PRINT "'STATE **

PC,OCTPNT

#STATEM,RO
PC, TYPOUT
aSPAR
aSPDR, RO
PC,OCTPNT
USORM

#USORM , RO
PC. TYPOUT
aSPAR
PC,OCTPNT
DIAGOO
RS,SCPRTN
:?u.acsa

:GET REM. NO.
*PRINT IT

*PRINT MESSAGE
*POINTED TO BY STATEM
:GET STAE OF REMOTE
:PRINT "USOR = **

*PRINT MESSAGE
*POINTED TO BY USORM

:CLEAR TOP BYTE WHEN DONE

MAINTENANCE ROUTINE

XAMINED BY TYPING
OWED BY SLASH (/)
NG CNTRL~C
HE POINT AT WHICH THE
112767

177777

:}izg

wenwwan

PC,DERR

CHPAD MEMORY

14766 017767 011304

MOV
JSR
INC
MOV

.SBTTL

14760

FRROR

#814,aSR
.+20
#D IAGUF ,RO

N+i

MOV
JSR
INC
MOV
JSR
PNTM
MOV
JSR
INC
MOV
JSR
DIAG3S: SCOPE
JSR
DIAGOO
DIAGA : g;g

Dl o

DIAG4
\N,DIAGUF

BIT

#1,G00D
aSPDR
, BAD
GOOD
, BAD

#53 ,ERRNUM

JSR

Dl el

14:09

MOV

PNTM

022355
001530
011432
011430
002456
puurd

RFQ
DATERR

011526

Bl —lh -l -l —ld "l
-l

Dl -l -l -l

————
et

MOV
MOV
cMP

001274
001270
001262

i o

BVERRUNUBSHIG
A r e 0 IBIRIRAS

000001
011544
001262

10-MAR-80

HOST-REMOTE EXERCISE

022342
001554
011456
011454
002502

wd b

prt

WS LS LS LV LV UST NN LS NSNS TNT NN

S RREERCEEEERer

2073
2074
2075
20
2077

MACY11 30A(1052)

CZCMJAO CMR=11 HOST EXERCISER
CZCMJA.P11
06=MAR-80 15:13

2129

014774

MACY11

PNTM

2130 014774
2131 015000

012700
004767

020507
001426

2133

015010

016767

011246

002330

2135
2136

015022
015030

016767
026727

002320
011226

2138 015040 026767 011216
2139 015046 001012
2140 015050 017700 onggz

2132

2134

2137

015004

015016

015036

005067

004767
101423

011232
001777

MOV
CMP

KBBUF
, ADDR
ADDR, #1777

;WITHIN LIMIT?

011230

cTMP
BNE
MOV

ADDR, CSR
$108 "
aCSR,RO

000015

MOV

#15.RO

177710

2143

015064

004767

002610

2145

015074

015070

000167

2146 015074

012700 020371

2148

000741

2147

015100

2149

015106

2151

015114

2150

015104

004767

001326

105767

011144

105767

011132

$28:

000020
011204
011202

011146

2157

015144

052777

2159
2160
2161

015154
015162
0151720

052777
032777
001003

2164

015200

5‘“
167
2168

015212
015216
015220

004767
0004
016777

170

015

004767

2158

015152

216% 015172
2163
015176

2165 015206

2169 015
1771

1;;

1
1774
175

1;3

178

179

180

181

185

015

815 sg
15
01
015

015

03313

000403

PC,TTO

$0$

AGAIN

MOV

#AGAIN,RO

$1$

TISTB

BNE

TSTB

JYES, SHOW CONTENTS OF CSR

PC,TYPOUT

:PRINT MESSAGE

JPOINTED TO BY AGAIN

SLFL

:SLASH HIT?

GOFLG

G TYPED?

$11$

*YES DUMP DATA

000200

011124

BIS

#807,aCSR

SIT IS MAINT, SET ‘MAIN'

000001
100000

011114
013106

BIS
BIT
BNE

#800,aCSR
#815.3CSR
$58

SSET "STFUN'"
*1S THERE AN INTR?
SYES, SEE WHAT IT IS

MOV

#1000, ABDR

;ADDRESS RESULT

JSR
B8R
MOV

PC. 710
s2is
ADDR , 3SPAR

;DO <CR>

JSR

PC.0CTISP

001

011054

$2AS:

BLOS

$3%:
$48:
$58:

002462

011036

omog 01111

011112

$118:

002164
n%
0N
001214

105737

1076

187
1

177

000ics 1775
184 015316 004767 002023

B8R

JSR
B8R

MOV

MOV
PNTM

76
17267
267

PC,OCTJSP

:YES, 0.K.

YIS IT THE CSR?
‘NG

000151

00001

1421

$2%

;. FROM KEYBOARD

*NO
*INSURE TOP BYTE CLEAR
*ADDRESS FUNC. CODE
*1S FUNC NOT MAINT?

012

016

PC,INPKB

$20$
#804 , aCSR
aSPAR
aSPDR,#151

000744

mog

PNTM

ADDR

BEQ
BIS
CLR
P

004767
000771
012767

JSR

001462
052777
005077
027727
101404

(LR

BLOS

$10$:

015120
015122
015130
015134
015142

$i$:

JSR

001042

2156

$08:

JSR

015112

z1s§
2153
2156
2155

:PRINT "'CMR=11 DEBUG AID'’

;GET ADDRESS

001452

002342

2144

SEQ 0047

ADDR , KBBUF

004767

012700

PAGE 39

MOV

015054

015060

DBAID

“PRINT MESSAGE
*POINTED TO BY DBAID

011252

MOV
JSR

14:09

#DBAID,RO
PC, TYPOUT

2141

2142

30A(1052)
10-MAR-80
MAINTENANCE ROUT INE

011054

$208:

$218:

$228:

$48

PC ,MONIT
s4$

#5.R0

SIT*S NOT MAINT. DO IT

:LOAD "'ADDRESS'*

aSPDR, RO

SGET "'CONTENTS'

TWOSP

*SPACE AND PROMPT (:)

SAND PRINT IT

MOV

#TWOSP, RO

*PRINT MESSAGE

MOV

KBAUF , aSPDR

SLOAD
ANY NEW INPUT

BEQ

JSR
MOV
JSR

002072

$3%

1S18

INC

MOV

e
JSR

PC, TYPOUT
3SPDR , KBBUI
PC, INPKB

*POINTED TO BY TWOSP

:GET KBD INPUT

‘ng

JLINE FEED?

ADDR

:1F YES, INCREMENT ADDRESS

Aooang

777

353

PC,OCTPNT

;VALID ADDRESS?

{500
SPRINT NEWwet A WV O
ADDRESS

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

000057
002346
177662

o
~N

8—;
wvh

010670

$138:

177650

010703

010714

$238:

—5

o
n

010657
8

xv‘\fl
SO0
PR

£ 'y WW
®8N

vivvuyvia

- (olelelelelelelelelolelelelols]
—
) ) e e il e i i i i ) D
D

—

)

d e

D e

S EBIRIRIE28BIIR
%NSNNNNNNNNNNNNNN

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

$258:

010720

010712

$248:

14:09

MOV
JSR

#'/ RO
PC,TTO

TSTB
BEQ

SLFL
$238

JMP

&4
PAGE 40

SEQ 0048

:PRINT A SLASH

$1is

:GO PRINT CONTENTS

JMP

$11%

:YES, SHOW CONTENTS

BNE
TSTB

$25%
GOFLG

:NO, MUST BE <(R>
26" TYPED?

TSTB

CONFLG

“SLASH TYPED?
:NO, CHECK IF IT's ‘P

P TYPED?

gge

g:s

*YES, START FUNCTION

CLRB
ST
BEQ

PCONT

DBFLG
$248

;CLEAR DEBUG FLAG
*ANY PROMPTS PENDING?
*NO, JUST RETURN TO CALLER

*UNOFF ICIAL RETURN

MOV

PCONT, (SP)

JSBTTL

UTILITY ROUTINES

RTS

*YES, RETYPE PROMPT.

FERELRL LRIALLY
FRREIRN Sarnod

REGSAV: MOV

R4 ,=(SP)

MOV
MOV
MOV
MOV
JMP

R3.=(SP)
R2.=(SP)
R1.=(SP)
RO,=(SP)
ar$

REGRES: BIT

RO, (SP)+

MOV
MOV
MOV
MOV
MOV

—

) =3 e

0000000

s —D

000000

——
2 3 b 2

;ROUTINES TO SAVE AND RESTORE GENERAL REGISTERS
: CALLED BY JSR RS,REGSAV .
: AND
JSR RS,REGRES

RTS

(SP)+,RO
(SP)+.R1
(SP)+.R
(SP)+.R
<§P>o.ue

:THROW AWAY OLD RS VALUE

;ROUTINE TO SET LSI=11 FLAG (SOF TWARE)
112767

177777

010602

LSTST:

MOVB
RT]

#-1.LSIFLG

sSET LSI=11 SOF TWARE FLAG

JRETURN

;ROUTINE TO SET SOFTWARE SWITCH REGISTER FLAG
1276

§1§76

?;9;‘9
77

810666
010664

SRTST:

MOV
MOV
RT]

#SSWR, SR
#-1,SWRFLG

:NO HARDWARE SWR, USE
: MEMORY LOCATION

AND SET FLAG

—

000002

;ROUTINE TO PRINT ILLEGAL DEVICE ADDRESS

012706

002000

76 00i7e? 000730

DVATST: MOV

PN
MOV
JSR

#1SP,SP

INVLAD
#INVLAD ,RO
PC, TYPOUT

sFIX THE STACK

SPRINT NON-EXST ADDR MSG
:PRINT ME SSAGE
:POINTED TO BY INVLAD

CZCMJAO CMR=11 HOST EXERCISER
CZCMJA.P11
06=MAR-80 15:13

552;

015502

000167

MACY11

164404

JMP

2043
ggzg

14:09

&
PAGE 41

SEQ 0049

PROMT

:GO GET CORRECT ADDRESS

;ROUTINE TO REPLACE HALT WITH CALL TO SW MONITOR
‘ON NON SWR PROCESSORS (CALLED BY MACRO 'MiLT'"

2246 015506

005767

010636

2248 015514

004767

000454

2247

015512

2249

015520

000207

ggg;

015524

000207

2250 015522

001403

SWHLT:

000000

18:

%ng

TST

SWRFLG

;ANY HARDWARE SWR?

JSR

PC ., SWDMP

*IF NO, DUMP SWITCHES

BEQ

RTS

HAL T

*IF YES, GO HALT

* CONT INUE

*REAL HALT

* CONT INUE

;ROUTINE USED FOR LOOPING ON ERROR ROUTINE (CALLED BY MACRO ‘'SCOPE'")

2255

015526

2258

015540

2260

015544

012500

2262
2263
2264
2265
2266

015554
015556
015560
015562
015566

00140
01260
000110
005267
001003

004767

000410

2259 015540 004767

177742

2261

020000

2256 015532
2257 015536

2267
52223

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

015546

015570
015576

005777
100402

032777

112767
000205

SCPRTN: JSR

010606

010514
177777

askR
SBAK

JSR

PC,SWHLT

BIT

#813,3SR

HLT

010570

SBAK:

SCONT:
010456

2270

PC ,MONIT

ST
BMI

MOV

BEQ
MOV
MP
INC
BNE

MOVB
SCORTN: RTS

;CHECK FOR S, OR “C

*IS SW 15 SET?
*YES, DON'T WALT

*COMMON ERROR HALT

(R$)+,RO

:GET gmcnou FOR SCOPE LOOP

SCONT
(SP)+,RS
(RO)
ERRCNT
SCORTN

*NO, DON'T LOOP
*YES, RESTORE RS
*AND LOOP
“UPDATE ERR CNT IF "FALL THRU'
:WATCH FOR ERRCNT OFLO

‘SW 13

#-1,0FLOF
RS

SET?

*SET OVERFLO FLAG.
SAND RETURN

5571

;ROUTINE TO GENERATE CSC DEVICE ADDRESSES FROM ‘DEVADR''

2273
557‘

015600
0156064

016700
010067

55;3

8}5616

7S 015610

gsn 01

010562
010466

DEVGEN: MOV
MOV

709 00000

ADD

105

285

1051

MOV

VADR , RO
.CSR

;GET DEVICE CSR ADDRESS
*GENERATE (SR

#2.R0O

zo.nssu

:GENERATE SPAR

:GENERATE SPDR

22;3 3}552 816760 033340 000002
3&
& 5°5ia0)
281 015642 005207
RTS
:RETURN
225
;ROUTINE TO CATCH ERROR TRAPS TC LOC 4
S

015644

15650
15654
15654
15660
1
156
1
12

1
1571

HDER:

010464

MOV

MOV
PNTM
MOV
JSR
SuB

MOV
JSR
JSR

MOV
P

(SP) , TEMP

;SAVE STACK FOR ADDR OF TRAP

#1SP.SP
TRPé
#TRP4 RO
L TYPOUT
2.

:RENEW STACK BEFORE USING
:PRINT “TRAPPED TO 4 FROM LOC **
SPRINT MESSAGE
*POINTED TO BY TRP4

TEMP

TEMP RO

PC,OC TPNT
PCNULLS

#15P, SP
RESTRT

;PRINT SOURCE OF TRAP

;REFRESH STACK POINTER

CZCMJAD CMR-11 HOST EXERC S%i
CZCMIA.PT
06-MAR-80 1
1

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

14:09

PAGE 42

SEQ 0050

A
SRS
SIS

—

) i

)

) i

)

D e

)

(oleoleloleloleololololels]

;ERROR ROUTINES: REGULAR ERRORS AND DATA ERRORS.

011667 000140
162767

010046

012700
004767
016700
004767

000026

000132

MOV

ERR1:

SUB

MOV

PNTM

(SP) ,ERRAD

#26,ERRAD

RO,
- (SP)
ERRM

“‘«*ERROR ‘'

MOV
JSR
MOV
JSR

012700 016105
004767 000450
016700 000074

MOV
JSR
MOV

MJDAT ,RO
PC, TYPOUT
ERRAD ,RO

012600
004767 000432

MOV
JSR

(SP)+,RO
PC, TYPOUT

;PRINT ADDRESS OF ERROR
;GET ADDR OF ERROR MSG
;PRINT ERR MSG
sRETURN

(SP) ,ERRAD

;GET ADDRESS OF ERROR CALL
sCORRECT IT
;PRINT REG. ERROR MSG
JPRINT °‘‘SHOULD BE ‘'

004767

PNTM

001402

011667

000054

004767

177710

162767

JSR

000026

RTS

000046

DERR:

MOV

WDAT

PC,OCTPNT

#26, ERRAD

PNTM

wDSDB

JSR

016117
000402
000032
001334

MOV
JSR
MOV
JSR

012700
004767
016700
004767

016133
000362
000014
001314

MOV
JSR
MOV
JSR

#ERRM,
RO
PC, TYPOUT
ERRNUM
, RO
PC,OCTANT

SUB

012700
004767
016700
004767

000207

PNTM

RTS

PC,ERR1

MIDSDB
, RO
PC, TYPOUT
GOOD
, RO
PC,OCTPNT

WDWAS

MDWAS
, RO
PC, TYPOUT
BAD RO
PC,OCTPNT

;RELATED STORAGE:

000000

ERRAD:

.WORD

000000

BAD:

.WORD

;ASSOCIATED ASCI]

)
WKRINISN

sPRINT

016072
00047
000116
001422

000207

;GET ADDRESS OF ERROR CALL
sCORRECT IT
;STACK ERROR MSG ADDR

046

(ONLY SOME OF IT)

S?S$

osqos

ERRM:

.ASCI!

/8R+*ERRO@/
R

o«sg‘

WDAT:

ASCII

/ AT LOC. &/

BF @/
D
uz;u 104 83805 WDSDB: .ASCI] /BSHOUL
022 053440 051501 WDWAS: .ASCI] /. WAS @/

sPRINT MESSAGE

sPOINTED TO BY ERRM
:PRINT ERROR NO. (P)

:PRINT TMAT LOC.

:PRINT MESSAGE

:POINTED TO BY WDAT

JPRINT MESSAGE

;POINTED TO BY WDSDB
:PRINT GOOD DATA

SPRINT **,

WAS **

*PRINT MESSAGE

*POINTED TO BY WDWAS
;PRINT BAD DATA
;
RETURN

CZCMJAD CMR-11 HOST EXERCISE R
CZCMJA. P11
06-MAR-80 15:13
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 S
EE
IF CNTRL=S OR CNTRL=C WAS TYPED
;ENTER AT SWDMP FROM ERROR HALTS IF SW
1

ALSO MONITORS THE FOLLOWING CONTROL FLNCTICNS

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

016142
016144
016150
016152
016156
016162

010224
000220
010210
177600
000023

MONIT:

CLR

MONIC:
MONCH:

BMI
JMP
MOV
BIC
MP
BNE

:
SWDMP

TSTB

PNTM

MOV
JSR
MOV
JSR
PNTM
MOV
JSR
MOV
MOV
JSR
CLR

~8%

PNTM
MOV
JSR
CONTW1: TSTB

P
BEQ
P

EX1:

Ex2:

EX3:

akBD
, RO

” 77600.R0

RO, 423

Exi

SWRMSG

#SWRMS
RO
G
PC, TYPOUT

aSR,.R0O

PC,OCTPNT
TWOSP

#TWOSP RO
PC, TYPOUT
aSR ,kKBBUF
#SWOMP ,PCONT
PC, INPKB
PCONT

KBBUF ,aSR

TYPCTP

#TYPCTP,RO

PC, TYPOUT

;OTHERWISE, EXIT

;TRIM NF PAR‘ITY BIT
SWAS IT

:NO, EXIT

:PRINT "'SWR =

:PRINT FESSAGE

;POINTED TO BY SWRMSG
:GET CONTENTS OF SR
sPRINT IT
sSPACE AND PROMPT (:)
sPRINT MESSAGE
;POINTED TO BY TWOSP
sLOAD OLD SWITCHES
;LOAD RETURN ADDRESS
:GET KBD INPUT
;LOAD NEW SWITCHES
:PRINT "CNTRL-P TO CONTINUE''
:PRINT MESSAGE

:POINTED TO BY TYPCTP

°7FSUH OFF PARITY BIT

VES GET SWR AGAIN

KEEP LOOKING

*RETURN L INE

32 332

N —

O -

RasSRERR IS
S
35

CCRTN:

sCHECK KEYBOARD FLAG
;IF SET, CHECK WHAT CHAR.

JSR
P

;WAS A *T TYPED?

“BACK TO DISPATCHER
u'as CNTRL=0 TYPED?

(MP

:WAS CNTRL=C TYPED?

:AND GO TO DEBUG ROUTINE
NO.

CZCMJAO CMR=11 HOST EXER CISER
CZCMJA.PT®
06~MAR-80 15:13

2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2420
2621
2422
2023
2624
2425
2626
2427
2428

016366
016372
016376
016402
016404
016410
016412
016416
016420
016424
016430

012706
000167
020027
001012
105767
001007
105767
001004
005067
004767
000207

002000
164136
000006

58
2659
1

2463

24k

EX4:

007672
000316

BCONT

BNE

ExS

CMP

&
PAGE 44

SEQ 0052
:YES, REFRESH STACK

“AND ‘RESTART

RO #6

JWAS IT ~F?

:NO, EXIT

TSTB

DISFLG

*1S DEBUG FLAG SET?

TSTB

3AFE

*ALREADY IN FILL RTN?

CLk
JSR

PCONT
PC,KBRET

*CLEAR PROMPT CARRIER
*SNEAK INTO FILL COUNT ROUT INE

.SBTTL

MESSAGE PRINT ROUTINE

BNE

EXS5:

#1SP,SP

JMP

BNE

007637

RTS

£ XS

*YES, JUST RETURN

EXS

*YES, JUST RETURN

;MESSAGE TYPOUT ROUTINE (CALLED BY MACRO PNTM A)
*MESSAGES ARE IN THE FORMAT:
L
MESG:
LASCII
/&ME SSAGERa/

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

*WHICH PRINTS CR. & LF. UPON SEEING A CR. CODE.
CAND
@ IS MESSAGE TERMINATOR

*ENTER WITH ADDRESS OF MESSAGE IN RO
016432
016434
016440
016444
016446
016452
016454
016460
016464
016466
016470
016472

010046
117600
022700
001411
022700
001002
012700
004767
005216
0007
005726

000100

TYPOUT: MOV
TPOFCH: MOVB

cTMP

BEQ

000015
001214

RO,=(SP)
a(SP) RO

#100,R0

sSTACK ADDRESS OF MESSAGE
*FETCH ASCII BYTE

“1S IT @ (TERMINATOR)?

TPOUTX

:YES=EXIT

TPCONT: JSR

PC.TTO

STYPE IT

B8R

TPOF CH

SFETCH NEXT CHARACTER

000046

(P
BNE
MOV
INC

TPOUTX:

245
2454

%35
56
g7

MOV

007641

2429

2430
2431
2432
2433
2434
2435
2436
2637
2438
2639
2640
2641
2642
2643
26l
2645
2646
2647
2648
2649
2450

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

#46,R0
TPCONT
#15,R0
(SP)

TST
RTS

(SP)
+
PC

.SBTTL

KEYBOARD INPUT ROUT INE

SIS IT CRLF FLAG?
:NO-TYPE CHARACTER
:YES, CHANGE DATA TO (R

*MOVE POINTER TO NEXT BYTE

;POP STACK TO REACH RETURN VECTOR

;KEYBOARD INPUT ROUTINE CALLED BY JSR
PC.INPKB
SENTERED WITH OLD CONTENTS IN KBBUF
;IF JUST CR TYPED, EXIT WITH SAME CONTENTS IN KBBUF

*1F NEW NUMBER TYPED, EXIT WITH NEW CONTENTS IN KBBUF
016474
016500
16302

016506
16512

016516

01652

005067
010146

INPKB:

Q16746

%‘sfi’
004767
004767 001136
7
000012

(LR
MOV

NOKEFL
R1,-(SP)

;CLEAR NO NUMBER FLAG
*STACK OLD R1

CLR

KBBUF

SCLEAR INPUT BUFFER

MOV

GETCHR: JSR

JSR

€ o

KBAUF ,=(SP)

P ,KBRD

:8."
M

:STACK “OLD CONTENTS'*

:E%“ n’\ CHARACTER IN RO

JWAS IT A (R OR LF?

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

2465
2466
2467
2468
2469
2470

14:09
KEYBOARD INPUT ROUTINE

MACY11 30A(1052)

10-MAR-80

BNE

000154

1%:

177407
000060

000057
001112

PAGE 45

SEQ 0053

sNO

JMP
MOV

mmn

CMP
BEu

R1,#4(
3’

“YES, RETURN WITH PROPER KBBUF
SSET UP TO CHECK FOR A NUMBER
“MASK
ALL BUT # CODE
YIS IT A # FROM 0=77
*YES, PACK IT

BNE
MOV

2
#57.R0

INO, MUST BE GARBAGE
"YES, BUT PRINT ‘\"'

BIC

000177

JSR

cLe

nmw R1
RO,#177

‘WAS IT A DELETE/RUBOUT?

PC,TT0

‘CLEAR THE C-BIT

000552

?&a

KBBUF

:DELETE LAST DIGIT

000544

?E?

KBBUF

000536
000532

28:

ROR
ST
BNE
CLR
JWP
MOV

KRBUF
KBBUF
118
uoxm
cm

: INTO KBBUF
“MAVE WE DELETED EVERYTHING?
*NO
:YES, BACK TO NO NUMBER INPUT
GO FOR MORE INPUT
ecuo aeu" FOR ERRONEOUS INPUT

?.RO0
PC no

;THEN **

38:

MOV
JSR
P
MOV

118:

000464

JSR

P; rio

THAT WAS STUFFED

BIC
ASL

cefcm

:AND GET ANOTHER CHARACTER

KARUF

SSHIFT KBBUF BUFFER

ASL

KBBUF

ASL

BIS

JMP
NRTRN: TST
BNE
MOV
MOV
RTS
ST
NEK :
MOV
RTS

0177 m

KBRUF
RO ,KBBUF

“GET THE DIGIT PART OF THE CHARACTER
27
*

GETCHR
NOKEF L
NEK
(SP) + ,KBBUF
(SP)+.R1
PC
(SP)+
(SP)+ R
PC

“GOT A DIGIT. SET FLAG
TO ACCEPT THE

NEW DIGIT.

SADD THE NEW DIGIT

:GO FOR MORE INPUT

:WAS THERE NEW DATA?
SYES, GO BACK WITH [T
*NO, RETRIEVE OLD DATA
‘RESTORE R1
SAND RE TURN
:DUMP OLD DATA
*RESTORE R1
*AND RE TURN

;KEYBOARD READ ROUT INE

SCHECKS FOR THE FOLLOWING SPECIAL CHARACTERS:

:
:

CNTRL=(
CNTRL =F

CNTRL=0

RESTART PROG.
CHANGE /SHOW F ILL COUNT

t’e-«ucJ ROUT INE
ENTER
ESS ALREADY THERE

OR UNLESS IN INITIAL DIALOGUE.
2
&
:
INE:
ROUT
S OIF IN "DE-BUG'"
CLOSE LOCATION
<(R>
:

:
:

<LF>
"
g

CLOSE &oc AND OPEN NEXT
OPEN | AT 10N
SET START FUNC OR MAINT
RETURN AND CONT INUE

CZCMJAO CMR=11 HOST EXERC;S%F;

CZCMJA.PT1
2521

2522

06=MAR-80 15:

016734

MACY11 30A(1052)

2527
2528

016746

016752
016756
016762

105777

007434

KBRD:

105067

007301

KBRET:

105067
105067
105067

007274
007274
007271

17000 012706 00
2533 0170064 000167 16 sit.
3%

017010

§3
2538
2539
2540
25641
zs‘i
2543
2544
2545
2549
254
2548
2549
S0
§1
s;

017016
017022
0170264
017030
017032
017034
017034
017040
017044
017052
017056
m%
01
017066
017072
017100
017104

2537

53
5

017014

017112
017114

105767

007235

020027
001055
105767
001401
000543
012700
004767
112767
016700
004767
012700
004767
016767
004767
026727

000006
007225

oo1oog

101406

1%:

017354
177
177777 007203
ooo§72
000312
o;oese
177340

208:

°9°§;$ 000246
177

000500

5S 017114 012
q;g;n
sg 017120 004767 177:26
57
0171
167 1777
.2 000212 3s:
16767
gm
58
59 017
767 007154
17
14
1
017144
17150
12154
mgs
48:
S 0171
7
171
7
71
;5
7%
75
72

1”7
1
017
1721
17214
O 13
01 56

017

TSTB

002356

PAGE 46

SEQ 0054
:WAIT FOR INPUT FROM CONSOLE

INCF

*CLEAR FLAGS

KBRD
aKBD, RO

CLRB
CLRB
CLRB

GOFLG
SLFL
CONFLG

CLRB

@KkBS

B8PL
MOV

:PUT THE CHAR INTO RO

:TRIM PARITY
*YES, RESTART PROGRAM

#177600,R0
RO, 43
1%

‘WAS “C TYPED?

DBFLG

:DON'T ALLOW “F IN 'DEBUG'

TMP
TSTB
BEQ
B8R
PNTM
MOV
JSR
MOVB
MOV
JSR
PNTM
MOV
JSR
MOV
JSR
[ o

RO, #6
X1
SAFE
208
KRTN
FILMSG
#F [LMSG,RO
PC, TYPOUT
#-1,SAFE
FILL,RO
PC,OCTPNT
TWOSP
#TWOSP, RO
PC, TYPOUT
FILL ,KBBUF
PC, INPKB
KBAUF , #500

:WAS CNTRL=F TYPED?
*NO
*ALREADY IN FILL NT RTN?
*NO, SAFE TO ENTER
*YES, IGNORE CHARACTER
SPRINT ‘¥ILL COUNT = *
*PRINT MESSAGE
*POINTED TO BY FILMSG
:SET FLAG
;SHOW FILL COUNT
“SPACE AND PROMPT
*PRINT MESSAGE

MOV
JSR
P
MOV
TST
BEQ
ADD
MOV
B8R
ISTB
BNE
(P
BNE
1St

#AGAIN, RO
;&méut
KBBUF ,F ILL
PCONT
KRTN
26, 5P
PCONT, (SP)
KRTN
DBFLG
I3
RO, #17
KRN
ONT

BIC
P
BNE

177500
016766 0462700
2529
000003
016772 020027
2531 016776 001004
2535

14:09

KEYBOARD INPUT ROUT INE

2523 016740 100375
2524 016742 omog 007424
2525

10-MAR-80

MOV
MP

ISTB

BLOS
PNTM

BEC
(P
8LO
1STB
A
ADD
P

#1SP,SP
scont
4

38
AGAIN

S
:gmr.amu

SAFE
KRTN
26, 5P
%m

*POINTED TO BY TWOSP
:GET NEW COUNT

1100 BIG?

:NO GOOD. GET IT AGAIN

*PRINT MESSAGE
*POINTED TO BY AGAIN
:LOAD NEW COUNT
*RETURNING TO A PROMPT?
*NO, CLEAN RETURN
SYES, BREAK UP WITH INPKB
*MODIFY RETURN ADDR
;1S "DEBUG'* FLAG SET?

*YES, CHECK FOR OTHER FLAGS
*CNTRL=0 TYPED?
:NO tx;v
STEST IF oO7Y ;s nomuo
“YES, IF PCONT = 0 OR
% 1f GREATER THAN PRIORITY
S PROMPT,
SALSO. NOT WMILE IN FILL
: COUNT n{n J
SBREAK ALL TIES WITH “‘INvkB'*
‘A=0.K. GO TO DEBUG=AID
SCHECK FOR L.F.

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

000070
000057

MACY11

7$:

177777

006740

14:09

KEYBOARD INPUT ROUTINE

007005

006770

177777
016710

10-MAR-80

BNE

177777
000406
016710
000107

000362
016710
000120

30A(1052)

8$:

MOV
mMOvB
JMP

JSR

PC,TTO

006721
KRTN:

#NRTRN, (SP)

CMP

RO,#'G

MOVB

#-1,GOFLG

MOV
cMP
BNE

#NRTRN, (SP)
RO, #'P
KRTN

RTS

BNE

JSR

9% :

SEQ 0055

RO &'/

MOV

MOvVB
MOV

PAGE 47

#15,R0
#=1, INCF
KRTN

(MP

BNE

PC,TTO

#-1,CONFLG
#NRTRN, (SP)

sNOT A LINE FEED.
sCHANGE L.F. TO C.R.
;1T WAS, SET INCR FLAG
JAND LEAVE

JWAS IT A SLASH?
.mo

;YES, SET SLASH FLAG
;ECHO THE SLASH
JAND EXIT.
;WAS "G'" TYPED?

sNO.

)

;YES, SET ''GO'* FLAG
;ECHO THE 'G''

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

;ASSOCIATED VARIABLE STORAGE :

8%=

017374

FLCNT:
FILMSG:

0
O
10

.ASCII

/RFILL

LWORD

COUNT = @/

WN=O

.SBTTL BINARY TO ASCII CONVERSION ROUTINES

;CONVERTS BINARY TO BINARY., BINARY TO
“OCTAL, AND BINARY TO DECIMAL: EITHER

*UNJUSTIFIED WITH LEADING ZERQ'S SUPPRESSED
:OR RIGHT JUSTIFIED WITH LEADING 0'S

: SUPPRE SSED

s -3 —8 —2

JREGILAR BIN-OCTAL UNJUSTIFIED:

~
&~

LaF

_—

—t

jelelelelelelele)

WOV

020114
020124

.WORD
.WORD
.WORD

.EVEN

—
ol
-l -l s -

XXFRRERERY

geeses

000010
000000
043046
047503
020075

NOKEFL:
KBBUF:
FILL:

567
7

e
767

176006

360

156

176002

OCTPNT: REGSAV

JSR
CLR

MOV
JSR

REGRES

JSR

RTS

RS ,REGSAV

RIFLG

#10.R1
PC . NUMPNT
RS,REGRES

JBIN-OCTAL JUSTIFIED:
b3
32

817455 004567 175760

OCTJSP: REGSAY

JSR

RS . REGSAV

;CLEAR RIGHT JUSTIFY FLAG

SSET RADIX FOR OCTAL
SCONVERT & PRINT
:RETURN

CZCMJAD CMR=11 HOST EXERC;SEF}Q
CZCMJA.P11
06-MAR-80 1

2633 017426
263, 01743
2635 0176440

2636
2637
2638
2639

017444
017444
017450

012767
012701
004767

177777
000010
000126

004567
000207

175752

MACY11

000330

017452

2644

017456

005067

000302

2646
2647
2648
%8

017466
017472
017472
017476

004767

000100

004567
000207

175724

017452

017462

004567
012701

BINPNT: REGSAV

175730

JSR
CLR

000002

MOV

JSR
REGRES
JSR
RTS

22221

017500

2655

017504

2656
2657

2658

2659

22%)

017500

004567

017510
017514

005067

012701
004767

000254

017520

004567

175676

017520

017524

000207

DECPNT: REGSAV

175702

JSR
CLR

000012
000052

RS ,REGRES
PC

RS ,REGSAV

RIFLG

#2.R1

PC . NUMPNT

:CLEAR RIGHMT JUSTIFY FLAG

*SET RADIX FOR BINARY
;CONVERT & PRINT

RS,REGRES
PC

RS ,REGSAV

RIFLG

MOV
JSR

#12.R1
PC,NUMPNT

JSR

RS,REGRES

REGRES
RTS

2225

:CLEAR RIGHT JUSTIFY FLAG

SSET RADIX FOR DECIMAL
“CONVERT & PRINT

;BIN-DECIMAL JUSTIFIED (6 PLACES)

2664

017526

2666

0175

2665 omig 004567 175654
2667 017540
5223 017544

015767

012701
004767

177777

00001
00002

73 8};3%
175646
5371 017554 004567
000207
27
7%
017556

2;; fad
wrg% B87 o

79
1

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

;BIN=DECIMAL UNJUSTIFIED:

2653

2654

#<1,RJIFLG
#10.R1
PC ,NUMPNT

SEQ 0056

:BIN-BIN

2641
2642

2645

MOV
MOV
JSR

REGRES
JSR
RTS

2640
2643

E 5
30A(1052)
10-MAR-80
14:09 PAGE 48
BINARY TO ASCII] CONVERSION ROUTINES

DECJSP: REGSAV

JSR

000224

MOV

MOV
JSR

RS ,REGSAV

#-1,RIFLG

#12.R1
PC ,NUMPNT

'fs?fs RS,REGRES
RTS
PC

NULLS:

CLR

“SET RADIX FOR DECIMAL
SCONVERT & PRINT

s
RO

NULOUT: RTS

R1,RADIX

sSET RIGHT JUSTIFY FLAG

JUNSIGNED CONVERT-PRINT ROUTINE (BIN = ASCII)

017572

175

1
17610

17614

17616

010167

000170

NUMPNT: MOV

000160

DIVID:

000152

CLR

DIVSET: CLR

CMP

ag
R

RO, RAD ] X

BLO
SUB

Gt fpG
RAD]X RO

DIVIL

INC

sSAVE RADIX

:CLEAR TAB COUNTER

SCLEAR WORK REGISTER

:;s NUMBER BELOW RADIX?

“IF YES, STORE DIGIT
:ELSE, KEEP SUBTRACTING

SAND KEEP COUNT

017620

010046

GETDG:

2693

017630

004767

177744

2695
9%
2697
2698
2699
2700
2701

017634
017640
017642
017644
017650
017652
017656

012703
160203
003413
005767
001410
012700
004767

000006

000040
000016

2704

017666

005067

000072

MOV
MOV
BEQ
INC
JSR

PNTEXT: MOV

SuB

BLE

000114

TST

JUST:

PC,DIVSET

#6.R3

R2,R3

PNT

RJFLG

BEQ
MOV
JSR
DEC

PNT
#<0,R0
:g.TTO

CLR
MOV

RJFLG
(SP)+,RO

BNE
PNT:

RO,=(SP)
R1,RO
PNTEXT
R2

BIS

JUST

#'0,R0

s TYPE OUT ROUTINE

SEQ 0057

;STACK REMAINDER

;PRINT IF HIGHEST ORDER STACKED
JELSE COUNT DIGITS FOR R. JUSTIFY
JGET DIGIT COUNT CONSTANT
;HAVE WE PRODUCED 6 DIGITS?
sYES,

JUSTIFICATION UNNECESSARY

;1S THE JUSTIFY FLAG SET?
sNO=DON'T JUSTIFY

;YES, PRINT LEADING SPACES

;CLEAR JUSTIF
;GET REST OF
sMAKE THEM AS

—cyTM

2689

06-MAR-80 15:13

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

O
<

CZCMUA. P11

MACY11

e b

CZCMJAD (MR=11 HOST EXERC%SER

JPRINTS A CHARACTER WHICH IS IN RO

;IF THE CHARACTER IS "'CR.'', ALSO PRINT A 'LF."".

2712
2713

017700
017704

010077
105777

006474
006472

2715

017712

022700

000015

2718
2719

017722
0177

000207
012709
004767

000012
177746

2720

5755
7

0177644
017750

016767

004767
005367

177412

000000
177730
177376

T10:

TTOLP:

MOV

177412
1%:

sPRINT CONTENTS OF

QTfs

JWAIT TILL PRINT DONE

#15.R0

RTS
MOV

PC
#12.R0

;WAS IT A (R?
JYES, ECHO A LF AS WELL
sNO, JUST RETURN

MOV

FILL,FLONT

8PL
BEQ

TTOLF:

RO,aTTB

TSTB

JSR

MOV
JSR

DEC
BGT
MOV
RTS

TTOLP
TTOLF

PC,TT0

#0.R0
FLCNT
1%
#12.R0

JECHO A LINE FEED

JPRINT NULLS FOR FILL

PC,TTO

:THEN RESTORE RO

JAND LEAVE

sASSOCIATED VARIABLE STORAGE :
RJFLG:
RADIX:

7240

741

.SBTTL CONSTANTS, VARIABLES € ACSII

735

.WORD
.,

JASCI] MESSAGES:

177720

017776
1

30??;’
304

TSTHDR:

.ASCI]

/RCZCMJAD (MR=-11 MOST EXERC] ER

14=JAN-80/

N%’W3

SEQ 0058

LASCII

/88

LASCII

/8THIS PROGRAM S CAPABLE OF ALTERING THE STATE/

LASCII

/B0F ANY FIELD EQUIPMENT ATTACHED TO ANY OF

LASCII

/BREMOTES ON THIS (MR=11./

LASCII

/88D0 NOT PROCEED IF FIELD HARDWARE

FRAD:

LASCII

/RINTERFACE ADDRESS: @/

AGAIN:

.ASCII

/RTHAT WON'T DO.

_ASCII

/RINTERFACE VECTOR: &/

.ASCII

/RINTERFACE PRIORITY (4 TO 7): @/

DBAID:

LASCIl]

/8(MR-11 DE-BUG AIDREa/

wex CAUTION #wn/

“g

TRY AGAINEa/

SO
NWO.

DVPRIO:

3
g

DVECT:

—N—

RRS

—

R%
3‘-‘

04
04

-.-.?8-. SIIXEREZ

RR3-

g:o; —ON BN -

o
NS 29
b i \) = e b

KReaoyoo
s

P RERFSRL
LT S LTS

2778

228
NRES

-AN
—

: d-—.d§ddd-‘

RROSRRRR

—_—

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

N == ORNO
=R — 8OO=HrONO—=WN-=-U
=S WNVNO
N =O0N = —=0OW WN—=ONWN—=N-=NOO

020034
020042
020050
56

MACY11
jolole]
GoRR RRR FARE DSRRR jolele
O\l? o
PN
e 1Y, =

CZCMJAD CMR=11 HOST EXERC%SER
CZCMUA.PT
06-MAR-80 15:13

THE/

IS STILL ON-L INE'R8a/

CZCMJAO CMR=11 HOST EXERCISER
CZCMUA. P11
06-MAR-B0 15:13

020514
020522
0205
020534
020542
020550
020556
020564
020572
020600
020606
020614
020622
020630
020636
020642
020650
020652

020115
044524
0
0
051446
040040
052046

2823
2824
2825
2826
2827
2828

020704
020712
720
020726
020733
020740
020746

2833
2834
2835
2836
2837

020771
020776
021004
021012
021016

2839
2840
2841
2842
2843
2844

0210
021040
021046
021054
021062
1070

2845

gg:?

0210;3

1076

SEQ 0059

026505
044501

INVLAD:

.ASCII

/RINVALID ADDRESS...(IT'S NOT THERE)a/

TRP4:

,ASCII

/RBRTRAPPED TO 4 FROM LOCATION &/

036440

TWOSP:
SWRMSG:

.ASCII
.ASCII

7/
:a/
/RSWR = @/

050131

020105

TYPCTP:

.ASCII

/RTYPE CNTRL=-P TO CONTINUER/

051446
020124
024040
050114
6
052103
847440

046105
042524
036464
020051
042523
047440
020106

041505
052123
042510
100
042514
042516
044124

TSTSEL:

.ASCII

/RSELECT TEST (4=HELP) @/

HELPM:

_ASCII

/RSELECT ONE OF THE FOLLOWING:&/

046
020122
047514
042524
O

051103
020061
044507
052123
020040

047440
020075
103

LASCII

/8CR OR 1 = LOGIC TEST/

LASCIT

2 = PORT LOOP-BACK TEST/

051117
050117
020113
0;00‘6
0O 1‘42
05111

020124
041055
042524
0
0

LASCII

3 = (MR=11 EXERCISER/

054105

036440

3045

1105

046101
042104
027056
051447
052040
040051
050101
047524
04752%
04050
040040

050040

047514
041501
058123
0
0
1440
1

4503

}}8;
0‘2352 0 o
S okl G 22090

ASCIlI /%

LASCII

/BCNTRL=C = TEST SELECT/

LASCII

/B(NTRL=S = SWITCH OPTION SELECT/

5349
gg?

n
”

114

2855

116;

06615‘
105

151
1

4040
04711

MO0

154

1154

255;

2856

116

046

7103

2854

1124

1440

051124

THIS MELP INFO./

2838

042040
020107
040046
053116
040440
051523
052111
052117
042522
051124
020104
043040
047514
047117
040072
051127

2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818

030461
052502
023104
044446
042111
042522
024056
047040
042510
023046
042520

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

2801
2802
2803
2804
2805

MACY11

NN
WO =W

/RCNTRL=F = CONSOLE FILL COUNT SELECT/

LASCII

/78CNTRL=0

DEBUG ROUTINE WHICH ALLOWS/

LASCII

/78

LOADING SCR. PAD AND STARTING/

LASCIT

FUNCTIONS AND EXAMINING THE/

RESULTS/

??g §

N—A
N=O o
n
~

—

VV§

R SRS

&oH

—

07
020040

046501
020107
020040
0
0
052114

LASCII

047103

851126

LASCII

/RCNTRL=-P = PROCEED FROM SW. MONITORa/

GEES
233

020040
02004g
052523

B&% ~

0
054105

053517

&~
&H

nNO
W=0O o

pT
)
e

—

—_—

[T
NSO oW

w%
&

—s

LASCII

020040
042522

042505
046517

Qigas
2
n
1
RR
AN

D e e

044507
052123

LGKTSM: .ASCII

/RLOGIC TESTRA/

051446

1103

82g?56

SCPAD:

.ASCII

/RSCR.PAD ADDR = @/

046

23%

05125

VERSM:

_ASCIl

/REHOST FIRMWARE VERSION : &/

BAUDM:

_ASCI]

/RRBAUD RATES:a/

8‘5

—2
—

8 8%

el
D e
e el

£%

SRRz5 & & EREEX S RISIRIY £

—

e
D e
d
D e e
D e

020040

020104

—

S
R

OoNVNON

FEGE &W
13
P

046114

e
el e
e

RERLPLELELEE
LR LR

04
04
04
05
05
04 0440

d —d

) —d e

PRORCRRRRORIRRRS 99998893000009999988

SIS ===
=
OHfVOORS N=WOON

021272
1

8 ?OOO -

2868

052103
041446
04
04
04
04

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

021224
021226
021234
021242
021250
021256

<
~

2861
2862
2863
2864
2865

026514
053523
047440
020116

MACY11

) =D =\

021174
021202
021210
021216

—

2857
2858
2859
2860

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

osz§3$ 3

2125

£5:0/

SEQ 0060

CZCMJAD CMR-11 HOST EXERCISE R
CZCMUA.PTT
1
06-MAR-80 15: 1 3

2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926

021650
021652
021660
021666
021674
021702
021710
021716
021724
021732
021740
021746
021747
021754

2928
29

021765
021772

2932
2933
2934
2935

022010
022016
022024
022030

2937

2939

2927

2930
2931

2936
2938

2940
2941
296%

MACYT 3(C)A(1052)

051117
036440
051117
036440
051117
036440
051117
036440
042116
020123

020124
040040
020124
040040
020124
040040
020124
040040
050040
020043

042440
047103

052
043122

040052
050046

047514
041501
052123

/BPORT #0 = a/

PORTIM:

.ASCII

/EPORT #1 = 3/

PORT2M:

.ASC!1

/RPORT #2 = a/

PORT3M:

.ASCI!

/BPORT #3 = a/

ENDPS:

.ASCII

/REND PASS # a/

051122
020124

ERCTM:

.ASCII

047452
047514

042526
025127

OVFLM:

.ASCII

/++OVERFLOW**a/

051117

020124

PLTM:

LASCI]

/BPORT LOOP-BACK TESTRa/

020105

PORTN:

.ASCI1

/RTYPE PORT # (<CR>=ALL): o/

TYPCR:

.ASCIl

/RTYPE <CR> WHEN READY: o/

EXCM:

LASCII

/BCMR=11 EXERCISE ROUTINER/

LASCII

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

_ASCI]

/8+++ NO REMOTES ON HOST "_'_l./

100

050117
20113
0046
050131

041055
042524

021440

ERR. CNT = a/

035051

020105
053440

042522

053111
040440

SEQ 0061

037122

2949
2950

5
PAGE 53

.ASCI1

0040
30455
051108
051040
042516

PORTOM:

296
2944
2945
2946
2947

2951
295;

14:09

ONSTANTS, VARIABLES & ACSII

040072
050046
030043
05004
030443
050046
031043
050046
03144
042446
051501
1
040
020056

020075

10-MAR-80

046440
821505

0245

Omssoi

Befado
212

7514

291 7
101
7101

NOREM:

LASCII /8( | WILL KEEP LOOKING FOR ANY CHANGES )Ra/

CZCMJAO CMR-11 HOST EXERCISER
CZCMUA. P11
06-MAR-B015:13

02%560
022566

PORTMS:

.ASCII

/8PORT # o/

052} 17

REMSG:

.ASCII

/8REMOTE # o/

STATEM:

.ASCII

/RSTATE =

USORM:

,ASCII

/BUSOR =

REMCHG:

.ASCII

/8*x* REMOTE STATUS CHANGE

REMSTM:

_ASCII

/BREMOTE STATUS NOW @/

REGMG:

.ASCII

/ REGULARa®/

IRRGMG:

.ASCII

/ IRREGULARa/

ALROFF:

.ASCII

/@«x+ ALL REMOTES NOW [RREGULAR **+g3/

w»**3/

053517
046125

NOGO:

.ASCII

/ HOST MICRO FAILED TO START.a/

NOTUP:

ASCII

/ PWR=-UP SEQUENCE NOT COMPLETE.(BAD (SR).a/

CSRRST: .ASCII

/ CSR REG. NOT RESET.a/

SPRCLR: .ASCI!

/ CAN'T CLR SPAR REG.¥/

SPRDAT:

/ BAD DATA IN SPAR REG.¥/

D —d -

2614

R&S

—

052122

;ERROR MESSAGES

i B
i S
NOWVEA WO

047520
040040

300%
3003

)

023051

022436
022444
022452
022460
022462
022470
022473
022500
022506
022514
022522
0225
022536
022544

W
=LO OV

020123

2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
299
2995
2996
2997
2998
2999

3008
3009

SEQ 0062

RR
3

298% 0224

042507
00

O=WnN=NO
- ~roosnun

022322
022330
022331
022336
022342
022350
022355
022362
022367
022374
022400
022406

2969
2970
2971
2972
2973
2976
2975
2976
2977
2978
2979
2980

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

_ASCI]

.ASCII

/ RESULT SCPD ADR TST ERROR.a/

ISDTE:

.ASCII

/ REQ SCPD DATA TST ERROR.3/

RQSPCL:

.ASCII

/ REQ.

0%123
020104

RSSPCL:

.ASCII

/ RES. SCPD NOT ALL 0°'S.a/

051114

CLTBER:

.ASCII

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

OSATE:

—-nN)

/ RESULT SCPD DATA TST ERROR.a/

.ASCII

OSDTE:

_—
v

047

0
042
0515

SCPD NOT ALL 0'S.a/

0’-7109 DIERR: LASCII / WRONG CSR FOR ‘DIE'* FUNC.3/
1

[« T
Tl
-]

.ASCIl

/ BAD (SR BITS WHILE HUNG.®/

d§

CSRCE:

LASCII

/7 CAN'T CLR LOW (SR WHILE HUNG.a/

mé

SPAVME: .ASCII

—

§§3§

CSRWE:

-—

&—

4 S38 32k
T

TST ERROR.a/

—b s
N

=SONNS =W

OHNNVNNONO

b
ek

YO =)
b

> Sg‘-

o
—

—

——

RIRR

CONSTANTS, VARIABLES & ACSII

PAGE 55

/ REQ SCPD ADR

2328 SRR

~N -~
N ==
- ~ WVt
3\ W)

o
og o
wi R

—

wvi

&» on

SSR3RRRR
ke NNUN& 5 2%

Sa NSNSS B ER B R SR TR AR

3038

—ro Mo
NWO
—

3049
3050
3051

14:09

~N NN?
NSO SINERSI23%

1
1

042120
020101

10-MAR-B0

.ASCII

SSR

3047

124
027122

30A(1052)

ISATE:

“

MACY11

n —
o

3045

1
1

020104
051524
047522
Olog
041523
052101
n

£ §EF

304

02304
023047
023054
023062
023070
023076
023103
023110
023116

3034
3035
3036
3037
3038
3039
3040
3041
304%

0% 053010 081640
3031 8%3020 020124
30
0230%2
30%% 023034 042040
051524

g‘g
04152
051104

RS2

3028

022761
022766
022774

N
o~
~

3025
3026
3027

LSO

CZCMJAD CMR-11 HOST EXERCIS E R
CZCMUA.P1T
06-MAR-80 15: 3

/ ACCESSED REQ SCPD WITH "MAIN'' SET.a/

SEQ 0063

FEARUKZEIBNERRUNNZ
B Icnrvn =0 3RIRIRACSS

020124
020124
051122

b b
W) =

D D

) b

00
27
20
24
26

D D

LASCII

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

NOINTR:

LASCII

/ HOST CAN'T

ERINTR:

LASCII

/ ERRONEOUS HOST INTERRUPT.a/

:
WwPOD]

LASCII

/ WRONG PRIORITY.

HITER:

LASCII

/ PROG INIT.

VISF:

LASCII

/ MICRO DIDN'T STORE VERSION NO.d/

VIDER:

LASC1]

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

SPAVIC:

LASCII

/ ACCESSED RES.

050125
047117
047511
020056
044440
044107

DEV.

IS HIGHER.a/

FAILED TO INIT CSR.a/

INTERRUPT UNIBUS.a/

n
11

—

) il e

i el

D e

—

56
22

p
D
D
d e
D

d—
) e —d
D

SPAVFE:

052105

1
61 11
17
40

D e

SEQ 0064

047111
027124

021040
02004

WWWWWWIWWWWWW WWWWWWWWW

CERERER
R

3081

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

-y
Ve

CZCMJAO CMR-11 HOST EXER
CZCMUA.PTT
06-MAR-80

STESTF: LASCII

SCPD WITH INTR CLR.3/

/ WRONG CSR WITH "'STFUN''.3/

_.m_n_am_ag

NoNS—a—n
S WNOWVIONO

027123
020103
053440
043040
040515

=8
L N PY

— b

ibbgb &»

SIRREER

&~
Vi

735

RSPESF :

LASCII

/ "MAIN'' RESULT FUNC.

USOFE1:

LASCII

/ BAD USOF

STEMF:

LASCII

/ WRONG CSR WITH "MAINT''.
@/

USOFE2:

LASCII

/ BAD USOF

DATLER:

LASCII

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

RSPEMF :

LASCII

/ RES.

USOFE3:

.ASCII

/ BAD USOF FROM "MAIN'' ON REG FUNC.a/

USOFE4:

LASCII

/ WRONG USOF

PLFFE:

LASCII

/ TOTAL FAILURE ON "MAIN'' FUNCTION.®/

PLTXTO:

LASCII

/ PORT XMTR TIMED OUT.a/

PLRCTO: LASCI]

/ PORT RCVR TIMED OUT.a/

CODE WRONG.ad/

FROM "'STFUN'' ON MAINT.a/

FROM "MAINT'' FUNC.a/

FUNC CODE WRONG FOR "MAIN''.a/

ON REGULAR FUNC.a/

[«

751

100

SEQ 0065

—

(=]

024111

3137

N 5
MACY11 30A(1052)
10-MAR-80 14:09 PAGE 57
CONSTANTS, VARIABLES & ACSII

oNVONO

CZCMJAO CMR-11 HOST EXERCISER
CZCMUA P11
06-MAR-B0 15:13

CZCMJAD CMR=11 HOST EXERC%SER

CZCMUA. P

06-MAR-80) 15:13

3193
194
3195
196
3197
3198
3199
3200

024
024610
024616
024622
024630
024636
024644

3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217

024662
024670
024676
024704
024712
024720
024723
024
024736
024744
024752
024760
024766
024774
025002
025010

3201

3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
§531
3;
33
34
35
36
37
38
39

024652

024660

025016

042440

040056

044040
054523
047522
047125
041511
027124
04
021107
020103
053440
043040
047503
052440
051127
047117
043501

041516

051126
042105
040059
051117
05C117
041505
040504

051122

051517
020123
027122
046040
052040
100
04%822
043040
040507
047522
047125
042504
047523
047117
021040
020042
040056

10-MAR-80

14:09

CONSTANTS, VARIABLES & ACSII

PAGE 58

052040
047440
026524
042040
042524
040524
051117

PLDERR:

.ASCII

7/ PORT=LOOP DETECTED DATA E£RROR.a/

020124
051105
051040
043517
051505

SYSER:

.ASCII

/ HOST SYS ERROR. RUN LOGIC TEST.a/

040511
047125
042526
043516
020103
040056
020106
020107
044504
052506

DIAGF:

.ASCII

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

DIAGUF: .ASCII

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

.EVEN
;TABLE STORAGE

;TABLE OF BAUD RATE MESSAGE POINTERS
025022
025024
02
0250
34
025036

02504
504
025054
5062
025070
025076
025104
025122

;TABLE OF ASCII STORAGE FOR BAUD RATES
031440

1
76

041522
046511
052125
05
047514
052105
020104

MACY11 30A(1052)

104

1
1

31
1

104
n

123

042505

&t 812%

8D1:
80;:
B8D3:
BD4:
BDS:
809:

LASCII
LASCII
LASCII
LASCIE
LASCII
LASCII

7/
/
7/
7 24008/
/
7 4
7/

8D8:

LASCII

/7 "SPECIAL'" SPEED@/

BD7:

LASCII

7 "MIGH'" SPEEDS/

SEQ 0066

CZCMJAD CMR=11 HOST EXERCIS ER
06-MAR-80 1 12
CZCMUA. P11

3249
0

025136

042520

025144

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

0421t
;DATA TABLE FOR MAINTENANCE AND DIAGNOSTIC FUNCTION

025144

DATBL:

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

001
003
007
017
037
077
177
377
376
374
%0
0
340
300
200

:PORT CONFIGURATION STATUS TABLES.
EXTBL1:
EXTBL2:
EXTBLS:
EXTBL4L:

.BLKW
.BLkW
.BLKW
.BLKW

64.
64.
04,
64.

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

.BLkW

;TABLE FOR 2ND VERSION DATA
VERSUN:

.BLkWw

;SOF TWARE FLAG BYTES
.

IFLG:

#LG:
GOFLG:

INCF :

OFLOF:

SLFL:

.BYTE

.BYTE
.BYTE

.BYTE

BYTE

CONFLG:

.BYTE

THRUF:

_BYTE
EVEN

ONCE :

BYTE

JVARIABLES

SEQ 0067

CZCMUA.P11

3320

026272
026274
026276
026300

000000
000000
000000
000000

000000

333

026266

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

BAUD :

CHNGFL:
(LK:
CNTR:
(SR:
DEVER:
ERRCNT:
ITER:
LINLEN:

pu—y

MASK :
W

—
N
QU

VeloRNTs XV, ¥APIT.N

WWWWWIWIWW
WWWWWWWW

3305
3306
3307
3308
3309
3310

06-MAR-80 15:13

MACY11

000000

.WORD
.WORD

PORN:
PORT:
PRIO:

.WORD
.WORD
.WORD

REMFLG:
REMNO:
REMTN:
REMST:

SAVEC:

3340
3341
343
3344

346
g!u‘?
348

3349

354
026356
026360
026362

000000
000000
000000
000000

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

SPAR:
SPDR:

.WORD
.WORD

SWREG:
SWRFLG:

.WORD
.WORD

SR:

333%
3333
gSS‘
335
3336
3337
3338
3339

.WORD

PASCNT:
PAT:

PCONT:

026324

.WORD

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

TALLY:

TBLAD:

.WORD

TEMP:

.WORD

WORD :

. WORD

VERFLG:

.WORD

j=lelelelelelelelelelelelolelelelelelelelololelololaololololols]

CZCMJAO CMR=11 HOST EXERC SER

;CONSTANTS:

026364
026366
026370
026372
026374

000170
164000
000004
177
177

0264
026402

177566
177564

000001

VECTOR:
DEVADR:

.WORD
.WORD

FKPRIO:

.WORD

LCS:
118:

.WORD
.WORD
. WORD

TT1S:

170
164000
“

1775
1775
177546
177566
177564

SEQ 0068

(Tl 016366

1110+
1265

1178+
1303

2059

2074+

2075

1416

523

2402
32274

2410

2533

2051

2159

1635

1842

1921

1969

2050

2108

2153

724

727

729

735

802

1612

23404

1179
1318+

LERIBIR

Ssg% g38E:

17«

661

1659

1823

1819

1903

585
a«g

614
848

1334

1353
1229
1737«

2023«

899+

%7
1 217
1 €1

743

749
101

1144

1343

1932
2160

20 79

1759«

2035«

1162+
1787+

2013+

1181«
1791«

3308+

985

1;37

1592

1858

670+

2833

1248+

1076
1249

1231

631
869+

O%O—'O

628+
837«

581
810+

579+
767
1075=

33034

578+
766*
943

2180

W—0O
O =N
- -2 00 O

563
739
942+

2179+
27854

1502
33044

o—l—l

2168
2555

460
1636

VY3[+ F AW,]
2= 3

—_—
-2
b —
—a
—

778

(ONFLG

0121
026274

2164
2146

1931

CMREXC
CNTR

2138

508

PO
—

2136

654
1499+

%058'
3054

)

CLTBER

SEQ 0069

2135+~

1230+

CLK
CLKINT

3944

CHNGF L

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

1402

=1
B1S
CCRIN
01
CELP
012230

Ll
1494~

1212+
1339
1278
1371
514

BAUDM
021634
BCNT2
002626
BCONT
002534
BORTBL
025022
BD1
025049
BD2
025047
BDS
025054
BD4
025062
8BS
025070
86
025076
87
025104
BD8
025122
BEGIN
002000
BINPNT 017452
800
= 000001
801
= 000002
B02
= 000004
B03
= 000010
804
= 000020
BOS
= 000040
806
= 000100
807
= 000200
B08
= 000400
809
= 001000
BI0
=
811
= 004000
812
= 010000
813
= 020000
B14
= 040000

2133

561+
699
926+

fiv!-.-.N —

1478«
1898

go S ao IR

BAWD

16070

2132«
425

—

BAD

026262
020371
026264
~~ 2506

ADDR
AGAIN
ALLFLG
ALROFF

MACY11

N
— —

CZCMJAO CMR=11 HOST EXERC gSER
CZCMJA.PT1
06~MAR<80 1 :13

698+
1197
1338+

CZCMUA.PT

06-MAR-80 15:13

MACY11

CSR

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

578

9 75+
1178
1536+
1901»

867+

1006+

869

897

1039+
1288+
1702+
1931«
2160

2140

CSRCE
CSRRST

SEQ 0070
902
1045+
1297+
1703+

926
1089

1334

1738+

2052

941«
1134+
1463
1835

2108+

3254m

DATBL
DATLER

2196+

26534
618

2413

639

2534

2564

32904

679

707
1221

747
1241

1257

775

CZCMJAD CMR=11 HOST EXERCISER

935
1621

1057

1102

1148

1596

1697

10 §0

2319#
429

1189

1205

2273

33414

1803

181

2035+

1119

2107

22374

LA
J

n
~

SORTER
PSSR
oo SeEVINE

1587
1661

.
e

16354

1825

1015

1029

319«
685+

5365 it

ggt

1§1"

1272+

1510

78
1

1346

7460

1472+

017350
017354
026370
017352
020344

006056
016512
017620
026252
016066

HDER

015644

HELPM

020733

INCF
INPKB
INTCNR
INTCNT
INVLAD
IRRGMG
ISATE
ISDTE

026253
016474
006130
0060
020534
022473

HITER
023646
HWSWR = 177570

ISP

ITER
JUST
KBBUF

xBD
KBRD
KBRET
KBS
KRTN

NSBESE
T
| Jatd

A P )

~ ~NNON

no
~

1945+

2066+

2082«

2307

23384

1731

1750

1753

1828

1733

17364

1751#
1761
1764
1767
1770

1781
1790
1798
1806

1976
1981
1986
1991

24194
2602

2720

24114

2416
2558+

SEQ 0071

2723~
2489

2496

2526
580+

2588+
581
764+
943

3291#
609+
767
1074

2057«
22854

2059

2073«

2579+
450

32924
509

1490

2237

1477+

435+

739
940+
1229+

1231

626+
811
1107+
1263+

1247+

1528

627
836+
1109+

630+
838

631

669+
870

2325

1265

2335

1302+

1177+
1303

1179
1317«

2134

2175

2383

26584

2551

2401
1683+

2409

—

GDINT
GETCHR
GETDG
GOFLG
GOOD

016330
016346
016360
016376
016430

G_6
10-MAR-80
MACY11 30A(1052)
14:09 PAGE 64
CROSS REFERENCE TABLE == USER SYMBOLS

—a

FILL
FILMSG
FKPRIO
FLCNT
FRAD

015730
022112
012300
012370
012430
012470
012530
012552
025204
025404
025604

ERR1
EXCM
EXS1
EXS2
EXS2B
EXS3
EXS3A
EXS3B
EXTBL1
EXTBL2
EXTBLY
EXTBLS
EX1
Ex2
EX3
EX4
EXS

NWNOoo

mu—-

CZCMJAO CMR=11 HOST EXERC S
CZCMUA.P11
06-MAR-80 1

671
901+

697+

1195+
1319

1197
1337+

465+

1061

022761

023103

017652
17

026372
016734
8167&6
374
017342

16??'

448

1488+

i
33464m
2567

257%

2580

1817+

33124

451

463

149

2676+

2478+

2592

25954

464

281 52%80 SZ9§:

135
AR

CZCMJAD (MR=-11 HOST EXERC%SF;
CZCMUA. P11
06~MAR-80
1

LCS
LGKTSM
LINLEN
LOGTST
LSIFLG
LSTST
MASK
MONCH
MONIC
MONIT
MOV
MOVB
N

026376
021543
026306
002656
026250
015440
026310
016162
016156
016142
006210
002724

3;45#
1975+

MACY11

29004
2015~
5314
2226+
22264
647
23654
1434

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

2017«

2028+

SEC 0072

33134

32894
648%

33144

1539

1544

1936

000054

2162

6194
840
9904

673
8794
1023

12744

1321
1622#

1142

PASCNT
PAT

014760
026254
026260
023047
023012
021765

PLDERR
PLFFE

024622
024503

POK
PORCN
PORCNF

1479+

026314

026316

PNT
PNTEND
PNTEXT
PNTRTN
PNTO
PNT1

1691

64l
508+

2568

024574
2002
024546

017672
012106
017634
012156
012124
0121

81 72
13764
013540

2326

1869

1887

2546

26204

2199

2382+

32974

026312

PCONT

PLRCTO
PLTM
PLTXTO

2313

1583

—a

023514
017344
022223
022607
016710
017556
017570
017572
017422
017374

ODTPR
OFLOF
ONCE
OSATE
OSDTE
OVFLM

016726

2365#

022552

(V]

NOINTR
NOKEFL
NOREM
NOTUP
NRTRN
NULLS
NULOUT
NUMPNT
OCTJSP
OCTPNT

20844

n) -2

NEX

NOGO

2255

16634

1769

1772

15204

1822+

3315#

1491+

1526+

1529+

2197

2384+

026322

PORTLP

PORTMS
PORTN
PORTOM
PORTIM
PORT2M
PORT3M

PORXT
PURO
POROO
POR1
PREML

PREMO
PREM1

010644

022331
022030
(021652
021666
021702
021716

PRNREM

014172

PROMT

PRTCNF

PST
PST2
PST2A
PST3

011042
011070
011076
011200

2005

29714

1979
1603

456

462

1995

2004#

1586

1607

1632

404

<08

“82

—m

2241

011226

011262
011276
011312

PST?7S
PST8
PSTBS
PSTB0
PSTBOS
PST9
PST9S
PO
=

011426
011440
011526
011540
011626
011640
011762
000000

PST?7

011340

= 000040

= 000100

= 000140
= 000200

= 000340

= 000

T ey
RWesResEs
e gite

PST4

397

1651

1664

SEQ 0073
1984+
1628

—

1965
1582

010760

PSTS
PST6
PST60

1929
1561

012566

= 177776
011054
011216

P
P4

1601

002112

PS
PSTE
PSTS

33154

1
1

014212
014274

026324
010652
002174
002220
002302
002356

1768+
1514

014014
013634
013652
013726
014312

PRIO
PRLC
PRMT1
PRMT2
PRMTS
PRMTSL

PSTO

NOO
[o
V]

PORT

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

—_—

013752

026320

N —

PORLD

PORN

MACYT1

gb
N0
VoA

CZCMJAO CMR-11 HOST EXER IS
CZCMUA.P1T
3
06-MAR-80

1994+
1640+

2007
1642

33184
1644

1646+

CZCMJAD CMR=11 HOST EXERCISER
CZCMJA.PTT
06~MAR-80 15:13
RADIX

017766

2681%

REGMG
REGRES
REGSAV
REMCHG
REMFLG
REMNO
REMSG

022462
015422
015406
022400
026326
026330
002342

1877
22168
2000#
1862
33214
1785«
1865

REMSTM
REMIN
REPORT
REPO
REP1
REP2
REP3

022436
026332
014042
014074
014120
014144
014170

1871
33234
1743
1978
1983
1988
1993

REMST

RESTRT
RIFLG
RASPCL
RSPEMF
RSPESF
RSSPCL
SAFE
SAVEC
SBAK

026334

002460
017764
023135
024341
024111
023165
026255
026336
015544

33244

300
2622%
817
1309
1203
844

MACY11
2684

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

29884
2626
2621
2979#

2686

27324

2637
2632

2648
2643

2659
2654

2670
2665

179+
2088

1802+
29734

1810

2044

33224

2295
64hv

2655+

2666+

2698

SEQ 0074

2984
19754
19814
19864
19914
19964
4778

2633%
30454
31654
31374
30504

2704

27314

2415
33254
22
1835#
19074
1843¢
18614
18804
18864
1889
18914
1890
19004
19034
22654
20684

2538

2544%

2572

329w

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

502«
2128+
2257
1718
1904
1836
1850
1875
1881
1879
1885
1888
1895
1847
2
2

1930

1934

2049

2054

SCPRTN 015526

558

576

851

2903

1019
1314

1032
1330

1060
1350

1087
1564

1105
1585

1122
1606

MS51
1631

1192
2070

1208
2106

3295
627+

628

6560

659«

661

662

6bks

667+

686

SCALM
SCART
SCA1
SCA2
SCAA
SCAB
SCA2C
SCAD
SCAE
SCAF
SCAS
SCONT
SCORTN

SCPAD

SKPD2
SkPx0
skPx1
SkP1
SkP2
SkP3
SkPs
xps

=
NP
SPAR

021560

013070
013106
013140
012724
012742
012760

012776
013014

8
03
026340

684

712

1902

1892

1894«

752

780

621

938
;égg‘

95¢
1266

97
1260

1735
1818
1820
1783
1784
1792

1817#
1821
1824
1785#
17904
179

1827
1788

1793
1800

I
3%
595«

17984
1802%

642

%2
1276

689

717

757

785

829

856

881

919

1797
1805

Nes 2527 2583+
600e see 2810
%

¥}

CZCMJAO CMR-11 HOST EXERCISER
CZCMUA.PT
06-MAR-80 15:13
759

826

1125
1279«
1515+
1873+

SPAVFE
SPAVIC
SPAVME
SPDR

023447
024015
023403
026342

MACY11

693+
761+
831

022705
022732
026344

696+
765+
833«
1135+
1289~
1541+
2056+

987
1146
968
597

10-MAR-80

.-CROSS REFERENCE

1924+

2043+

714
78

835+

1164

719
787

853

1291~

1609~
1926+

2072+

1171
1301
1610
1925+

2044*

2074

616
637
LQ?'

1025
1323
1655

1239
1187
S39#
548
720

oou.sg

778

004106
004160
004172
004274
004
00%3;2
0043

ST121
ST
M
ST131
ST131A

00444
0044

00454
004506

srlgis 004646

ST
ST
ST135

ST135S
ST

ST14

54
74
10

0050;8

0050

407
10#

7
731
7374
750
740
760
7664

768
788
797#%
983

gz1
378
9
9
)

1435

eF35eHE

ST1I00
ST101
ST110
ST110S
ST111
ST112
ST120

ST120S

2376

015450
02634
022355
024213
024060
002714
003034
004074

ERRERC
SEXTIS

SRTST
SSWR =
STATEM
STEMF
STESTF
ST0
ST1
ST10

857

14:09

6
PAGE 68

TABLE == USER SYMBOLS

670
958

890+

1165+
1292+
1546
1880

SPRCLR
SPRDAT
SR

30A(1052)

721+
789+
858

1168+
1295+
1612+

SEQ 0075
732+

754
808+
1091+
1262+

1513+
1867+

2041+

CZCMJAD CMR-11 HOST EXER% S%i

CZCMJUA.P1Y
ST1S
ST1S0
ST16
ST160
ST161

005114
005270
005312
005400
005466

1048

1062

10674

10944
1095
1112
1126
Sé64
1141

1128
1107#
11%20
11344
S78#
1162#

006766
00
007134
007222
007252

11784
1180
1198
1214
12304

1182
11944
1210#
12264
1234

007420

1250

1262#

006202

ST181
ST182
ST183
ST19
ST2
ST20

006362
006424
006514
006534
003130

ST201
ST
ST203
ST204
ST20S
ST207

ST206

ST21
ST122

ST220

ST221
ST22
ST122

ST2.

ST2

006010

10214

006334

1077

006752

007332

007506
007534

11764

1232

1035

108%#

1245

1267

1277

1351

010120

1340

13564

010166

1369

1335

ST24
ST2S

01
0108

1358
14 ;

14240
14;5

003214

58;

SO4Ha

1225

1299
13164
1%32‘

010132

010552

135%#

1431

14;2:
14

1L
e

Gov
Gowes

e
s

@
Lo

003454

644n

ST161

003344

s
oo
Sieo 0oseoe
g
754
ST90S

S 016178
SWHLT 015506

1209

1%&”
1
1320

1357

1106

1193

007622
007720
010006

1334#

643

SEQ 0076

1088

1152

1331

010022

PAGE 69

1123

1278#%
131§

1297#

12464

ST23A
ST230

1090

1266
12884

007614

14:09

920

Q9754
o974
1020

ST18

ST200

889#
916
Q24LM
94L0n
OSéN

963
982
1005#

005574
005702
005726

ST180

871
9154
904
928
944

10-MAR-80

CROSS REFERENCE TABLE == USER SYMBOLS

939
955
974
993
1033
1034

ST162
ST17
ST170

ST170R

06-MAR-80

MACY11 30A(1052)

650

&'
R
1
722
910
N
4
%
37347
1476 €;£ fabo ffi

%
sgbbl
2259

CICMIAD_ CHMR=11 HOST_ EXERCSER
CICMIA.PT1
O6=MAR-80 15:13

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

SWREG
SWRFLG
SWRMSG
SYSER

33208
487
2816M
944

026346
096350
020642
034665

10
406
237,
855

TALLY
TBLAD
TENP
THRUF
TPCONT
TPOFCH
TPOUTX
TRPG
TSTHOR
TSTRSK
TSTSEL
T8
M0

096359
026334
096336
026261
016460
0164 34
016470
020600
017770
002662
020704
036400
017700

1710+
1761%
2285+
1500%
2442
Se38w
2440
5288
G
515
305
2712+
1367

1730
1764%
.
926
L44Ln
5046
244T7H
5810
S73om
5308
2853
$346n
1838

TTOLF
TTOLP

017722
017704

5716
Srise

TWOSP
TYPCR

090636
092060

5172
526

57184
5714
$3u7e
3379
59408

TYPCTP

TYPOUT

USOFE1
USOFE2
USOFES

USOFE4L
USORM
VECTOR
VERFLG

026402

020652

016439

024152
094244
094403

2463

5713

2476

2387

28184

753
1420
1748

781
1440
1863

413

416

273

2240

219
1555
1525

$7ise
31544
31710

2232+
32008

1739
1767+
2201
1949+

1839

24B6

825
1445
1

148

514
]
1

852
1450
1872

443

1364
1484
1878

4k?

1372
1487
1884

455

1375
1503
1899

geS

2195

2186

33404

3144

139
:
5

2166

2279

1320

01507%
015
01

13010

2143

1038«

1
137
1403+

$108
$118
$138

2027

3675

1005«
3334w

101#

2022

997s
1359«

980e
I
120Ts

105

33314

234

‘658

015004

3589

1968«

2315

959«
O,
1400

023605

2019

2584

1967+«

2311

657«

$08

1841

1840

2488

189%

2306

38es

WwPOD ]

32984

1893«

2289

1366
3110w

382

1905«

436

1003
1117

WORD

1891
3332#

426

VERSUN 096326

31134
7%
on
Son

1889+
1920

28158

31774
2977
438«
1356

1100
2510
2
8

1760+
1700+
3333y
1751%

2548

1345
2100
435
3«

003746
023708
0781
016117
016133

3330M

5636

5701

S7isw

5719

2398

5730

24k

024446
092367
06364
026360

VIDER
VIS
WAT
WsD8
WDWAS

2246

SEQ 0077

183
187

13
1404

219

977«
130
1410e

078+
13
14l

728

999«
1370
1412+

461

1382
1525
2006

239

§
1388
1413

1385
1360
2089

2575

981
1%
Wlés

522

1356
1381
2095

2380

1136+
180
141se

s38

1399
1802
2101

238

1137«
1910
14i7e

e85

1206
1657
2151

1138«
1395
1418

713

1409
1307
2147

2543

1139
13
33358

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

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

$2%
$20%
$21%
$22%
$23%

2137
2152
2167
2182
2189

21454
21774
21804
21844
21914

2192

21964

015106
015266
015300
015316
015350

$24%8

015404

$3%
$4%
$5%
.

015154
015162
015200
= 026404

$25%

015366

2198

2156
2158
2161
122#
153
179

205
231
257

SEQ 0078

22004

21554
21604
21644
123
155
181

2163

131
157
183

133
159
185

135
161
187

137
163
189

139
165
191

141
167
193

143
169
195

145
171
197

147

149

151

173
199

175
201

177
203

207
233
259

209
235
261

211
237
263

213
239
265

215
241
267

217
243
269

219
245
271

221
247
273

223
249
275

225
251
277

227
253
279

552
932

570
948

586
967

615
986

636
1012

1854

1943

2064

2080

26074

676
1026
1324

704
1054
1344

744
1081
1470

772
1099
1551

816
1116
1572

843
1145
1593

875
1186
1618

32504

3274k

32754

32764

3277

32814

3864

32854

229
255
281

909
1202
1694

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

DATERR

728

567

583

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

612

633

ERROR

19:%‘

1078

1113

1183

1199

983

1009

HLT
MTPS
PNTM

82#
1024
834
779
1523
2093
2547
1164

1475
396

1699
481

1859
998

2258

2129

2145

1948
1040
632
1370
1625
217

2636
2631
575

2647
2642
59N

2658
2653
620

26¢9
2664
641

REGRES
REGSAV
SCOPE

. ABS.

1M12¢
54

953
1275

026404

ERRORS DETECTED:

549

611

1558
2554

2625
262
55

972
1313

964

414
850
1579

991
1329

424
1362
1600

1018
1349

1215

673
1235
1023

1031
1563

000
O

1
/CRF
: TOC=CZCMJA.P1
MJA.LST
CZCMJA.BIN,CZC/SOL/NL

RUN-TIME: 9 20 3 SECONDS

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

1677
441
1373
1705
2238

1059
1584

701
1251
1051

445
1383
1746
2287

688

1086
1605

741
1267
1096

769
1305
1142

SEQ 0079
872
1615
1569

459
1407
1864

929

945

1691

1851

711

751
1501

2077

2541

2309

855

1207

937

1259