Digital PDFs

AH-FF31A-MC

July 1985

19 pages

Original

7.4MB

view download

OCR Version

8.5MB

view download

Document:	COEEHA0 KDJ11-B EEPROM USENG LANG LDR JUL 1985 gray
Order Number:	AH-FF31A-MC
Revision:	000
Pages:	19
Original Filename:	COEEHA0__KDJ11-B__EEPROM_USENG_LANG_LDR__AH-FF31A-MC__JUL_1985_gray.pdf

OCR Text

KDJ11-B

Corenao R

NSRRI vess

EOEREH

MADE IN USA

Bl
A ;;

SEQ 000

VOIS
WN -

COEEMA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Peage 1

IDENTIFICATION
PRODUCT CODE:

AC-FF30A-MC

PRODUCT NAME:

COEEHAO EEPROM USENG LANG LDR

PRODUCT DATE:

FEBRUARY,

MAINTAINER:

DIAGNOSTIC ENGINEERING

1985

THE INFORMATION IN THIS DOCUMENT IS

SUBJECT

CHANGE WITHOUT

NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

COEEMA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 2

SEQ 0002

45
47
48
49

61
62
63

=
N
W
A
U1

SPECIAL ENVIRCONMENTS

57
58
59

LOADING AND STARTING PROCEDURES

PROGRAM OPTIONS

EXECUTION TIMES

SYSTEM REQUIREMENTS

ERROR INFORMATION

PROGRAM ABSRACT

EXAMPLES

TABLE OF CONTENTS

PROGRAM DESCRIPTION

COEEMA EEPROM USENG LANG LDR

70
71
72
73
74
75
76
77
78
79

81
82

83
84
85
86
87
88
89

90
91
92
93
94
95
96
97
98
99
100
101

102
103
104
105
106
107
108
109
110

MACRO Y05.02

Wednesday 20-Feb-85 16:23

SEQ 0003

PROGRAM ABSTRACT

The KDJ11-B is a PDP-11 CPU that incorporates the Jll chip set as the
heart of the processor. It is a quad height Q22 bus module. The
KDJ11-B has two on-board ROM's. One of them, the 16-bit addressable
ROM, contains the self-test and the boot codes. The other ROM, the
8-bit addressable one, contains the base area with hardware selection

parameters, optional bootstraps, optional UFD (User Friendly
Diagnostic) system desctiption area, and optional foreign language
text.

On units to be shipped to non-English speaking countries, a dummy or
"null” language is loaded into the EEPROM.
The purpose of this is to
disable English language error messages when the system is first
installed.

its

internal

self tests,

power-up or reboot will have diagnostic and error messages

in the

user's own language.
The purpose of this program is to select the diagnostic/boot ROM
messages rather than any EEPROM language area-based messages.
It
will delete any language in the EEPROM to free up space but will leave
the UFD (user friendly diagnostics) area intact.
If the program
detects an error while modifying the EEPROM setup area, the program
will attempt to restore the setup area to its previous state.
If
the program detects an error while updating the UFD area in the
EEPROM, a warning message will be issued, stating that the UFD
area has been corrupted.

SYSTEM REQUIREMENTS

Hardware Requirements
To run successfully this utility needs:

1.
2.
3.
3.

KDJ11-B CPU module
console terminal
at least 28K of memory

LOADING AND STARTING PROCEDURES

To start-up this program:

122

123
124
125

If and when the system passes

the user will be instructed to run a UFD (User Friendly Diagnostics)
package which will be part of a “country kit” for each seperate
lenguage. The UFD package will use the native language for the
particular country and, in addition, will load diagnostic and error
messages in the native language into the EEPROM, so each subsequent

111
112

113
114
115
116
117
118
119
120
121

Page 3

Boot XXDP+

Type

"R NAME",

where NAME

file for this program.

The starting address of the program

Note:

is the name of the BIN or BIC
is 1000.

if trying to restart the program

in an arbitrary place after

COEEHA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 3-1

SEQ 0004

126
127
128
129
130

HALT on Break

17777572=0
17777520=1000
17777746=400

the following registers should be set up:

to disable memmory management
to clear diagnostic mode (bit 8),

HALT on Break

to flush the cache

but still save

COEEHA EEPROM USENG LANG LDR

132
133
134
135
136
137
138
139

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 4
SEQ 0005

SPECIAL ENVIRONMENTS

The program

is not APT compatible.

PROGRAM OPTIONS

None.

140
141
142
143

146
147
148
149
150

7.1 DEFECTIVE BYTE IN EEPROM

144
145

151
152
153
154
155
156
157
158
159
160

161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188

EXECUTION TIMES

The program runs
7.

in under 10 seconds.

ERROR INFORMATION

After each write, the Byte which should have been written is
compared to the Byte in the proper location, and if it is not correct,
the following error message is displayed:

EEPROM write error, PCR page n, address mmmmmm.
Data written qaq, data read rrr.
where n is the EEPROM page selected by the Page Control Register (PCR),
mmmmmm is the physical address of the bad byte in question, qaq is the

byte value that was written out to the address and rrr what was read
back in after the write. (should be identical to qaq)
7.2 PROCESSOR NOT KDJ11-B
The program checks the type of CPU it is running on, which must be a
KDJ11-B processor (MFPT returns S in r0).
If not, the following message
is printed:
Language area not supported by this processor.

7.3 CHECKSUM ERROR IN SETUP AREA
The checksum in the setup area is checked to see if it contains a valid
checksum.
Also, bytes 6 and 103 (addresses 17765022 and 17765314,
respectively) are checked to see if they contain 0 and 252 octal,
respectively.
If any of these conditions is not met, the following
message is printed:
-

EEPROM checksum error

No attempt

in setup area.

is made to correct a checksum error.

7.4 DIFFERENCES BETWEEN UFD

"QUIET" MODE AND

"STANDALONE" MODE

When this program is run in UFD "Quiet” mode (which will usually be
the case) none of the error messages will appear.
If no error is

detected, no messages whatsoever are printed.
If an error is detected
when writing the setup area, the program will attempt to restore the
setup area to the state it was in when the program was started. If an
error was detected when the UFD area is being moved, the following
message is printed:

COEEHA EEPROM USENG LANG LDR

189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 4-1

SEQ 0006

WARNING:

UFD area has been corrupted.

EXAMPLES

After booting XXDP+

appear,

and running the program,

just the XXDP dot prompt (

If a problem occurred,
9.

)

one of the messages

no message should

in section 7 should appear.

PROGRAM DESCRIPTION

This program consists of a body of code which checks certain
conditions such as correct processor type, clears the EEPROM language
bit in the EEPROM, and frees up any language area in the EEPROM.
If
there was an unsuccessful attempt to write any of the bytes in the
EEPROM, one of the message in section 7 appears.
If run under UFD
"Quiet” mode, no message is printed if the program was successful,
otherwise the messages in 7.4 appear.
In both cases, the XXDP prompt
'

appears.

{
|

| COEEHA EEPROM USENG LANG LDR
211
212
213
214 000000
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
254
275

177520
177522
177522
165000
165316
165006
166000

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 5
SEQ 0007

.TITLE

COEEHA EEPROM USENG LANG LDR

.SBTTL
.ENABL
.NLIST
.LIST

PROGRAM CONSTANTS
ABS
MD,CND
ME

BCSR
PCR

PCRLB
E2PROM
E2PAR
E2LLB
ENDEZ2R

177520
177522
177522
165000
E2PROM+316
E2PROM+6
E2PROM+1000
173002
11000.
140

173002
025370
000140
000040
000003

RETRY

040
3

000004

MAXERR

177524
000015
000012
000200
000100
000011
000010
000040
000033

BDR
CR
LF
BIT?
BIT6

177524
15
12
200
100
11
10

RMVTST

DELAY
LNGHDR
UFDHDR

tab
backsp
space
esc

40
33

;E2PROM PARITY BYTE
;LOCAL LANGUAGE BIT IN E2PROM
;LAST ADDRESS OF E2PROM+2
;WORD TO TEST ROM VERSION NUMBER
+1.0. OF A LANGUAGE AREA
:I.0. OF A UFD BLOCK
:NUMBER OF ATTEMPTS TO WRITE A
;BYTE IN E2PROM BEFORE GIVING ULP
:NO. OF ERRORS ALLOWED IN LOCAL
;LANGUAGE TEXT BEFORE QUITTING

COEEHA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 6

SEQ 0008

CHECK FOR CERTAIN EXCEPTIONS FIRST
287
288
289
290
291 001000
292 001004
293 001010
294
295 001016
296 001020
297 001024
298 001026
001026
001032
001034
001036
001042
001044
001050
001052
001056
001060
001062
001064
001066
001072
001074
001102
001104

001104
001110
315 001112
316
317
318

319 001114
320 001120
321 001122
322 001124
323 001130

001134
001136
001142
001146
001150
001154
001156
001162
001166
001170
001174
335 001200

324
325
326
327
328
329
330
331
332
333
334

001000

005037
013746
112737

177522
177520

000060

000005

000001
000027
012700
104003
000426

002215

000001
000027
012700
104003
000573

012700
111005
002032
042705
004767
001405
052705
004767
000555
012700
111005
162705
004767
001410
062705
004767
152737

CHECK FOR CERTAIN EXCEPTIONS FIRST

CLR

aoPCR
a#BCSR, -(SP)
#60,3#BCSR

.=1000

000007
020027
001404

012700
005001
012703
012005
042705
060501
077305
105701
001007
105737
001004
123727
001404

.SBTTL

START:
177520

MOV
MOove
MFPT

BEQ
. TYPMSG
.NARG
.NTYPE
MOV

165000

000151

177400

1%:

MOV

201%:

MOV
MOV

8IC

TSTB
BNE

000252

CMPB
202%:

203$:

USETUP:

165006
000200
000460

000200
000446

165316

1%:

000200
000426

165006

#FMSG2
NARGS
NTYPE, #FMSG2
gFHSG?.RO

EMT

;GET PROCESSOR TYPE

;CHECK TO SEE IF ORION

:YES -

CONTINUE

;FIELD-SERVICE MESSAGE

203§
#E2PROM,RO
R1
#105.,R3

:NO.

#177400,R5
R5,R1
R3,2014
R1

:NO BUS NOISE, THANK YOQU.
; ACCUMULATE CHECKSUM
;CONTINUE TILL DONE
;IS CKSUM 0?

(RO)+,R5

; STARTING ADDRESS TO CHECKSUM
s INITIALIZE CHECKSUM
OF BYTES TO CKSUM

;:GET A BYTE

2024
:NO, ERROR
ME2PROM+22
;BYTE TO TEST FOR VALID ROM, SHOULD BE O
2024
:NO, ERROR
NE2PROM+314, #252
;BYTE TO TEST FOR VALID ROM

USETUP
. TYPMSG #FMSG4
NARGS
.NARG
NTYPE, #FMSG4
.NTYPE
MOV

002350

000200
000414
000200

CLR

ADD
SoB
TSTB

165022

165314

EMT

RO, #5

;SELECT PAGE O OF EEPROM
;SAVE OLD BCSR VALUE
;WRITE ENABLE THE E2PROM & ENABLE ROM

;GO TO NEXT CHECK IF OK
;:FIELD SERVICE MESSAGE

#FMSG4 ,RO

3
EXIT

;QUIT

.SBTTL

CLEAR LANGUAGE BIT AND UPDATE CKSUM

MOV
MOove

®E2LLB,RO

BGE
BIC
CALL
BEQ
BIS
CALL
BR

LANG
#BIT7,RS
WRBYTE
1s

MOV
Move

CALL
BEQ
ADD
CALL
BISB

(RO),R5

#BIT7,RS

WRBYTE
EXIT
#E2PAR,RO

(RO),RS
#BIT7,RS

WRBYTE
LANG
#BIT7,RS
WRBYTE

#BIT7,9%E2LLEB

; ADDRESS OF LANG. BIT
;GET BYTE WHERE LANGUAGE BIT EXISTS

:IF ALREADY CLEAR, NO UPDATING IS NECESSARY
;CLEAR LANGUAGE BIT
;WRITE IT BACK
sWRITE WENT OK
;PUT THINGS BACK THE WAY WE FOUND THEM

:GIVE LUP
:ADDRESS OF PARITY BYTE
;:GET PARITY BYTE
;UPDATE PARITY
;WRITE IT BACK
;IF ALL WENT WELL
: TRY TO PUT EVERYTHING BACK
;THE WAY WE FOUND IT

;RESTORE LANGUAGE BIT

COEEHA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 6-1

SEQ 0009

CLEAR LANGUAGE BIT AND UPDATE CKSUM
336 001206
337
338

000535

001210
001214
001222
001226

001230
001232
001234
001236
001240
001242
001244

012700
112737
012701
010005
005003
111004
060403
005740
077104
105703
001116

001246
001250
001252
001256
001262
001264
001270
001274
001300

014504
014546
110466
042704
012601
042701
062701
120427
001100

165776
000016
000005

177522

LANG:

44:

EXIT

.SBTTL

CHECK FOR LANGUAGE

MOV

MOVB
MOV
MOV

CLR

MOVB
ADD
TST

S0B

1578

BNE

MOV
MOV
MOvB

000001
177437

BIC

MOV

160000
000005
000140

BIC

ADD
CMPB

BNE

#ENDE2R-2,R0

#16,3#PCRLB
#5,R1
RO,RS
R3

(RO),R4

R4,R3

-(RO)

R1,4%
R3
EXIT

-(RS),-(SP)

R4,1(SP)
#177437 ,R4

(SP)+,R1

#160000,R1
#5,R1
R4 , #LLNGHDR
EXIT

;LAST ADDRESS (CKSUM) OF E2PROM
: SELECT LAST PAGE
:NO. OF BYTES IN HEADER TO CHECKSUM
: SAVE ADDRESS
;

;:GET A BYTE
s ACCUMULATE CHECKSUM

: CORRECT ADDRESS
;:LOOP FOR S5 BYTES
:IF NOT ZERO, NO LANGUAGE LOADED

;NON-EXISTANT OR CORRUPTED LANGUAGE - SKIP

;HIGH BYTE OF BYTE COUNT
;LOW BYTE OF BYTE COUNT
:SET UPPER BYTES OF SIZE

;EXTRACT ID CODE

;GET SIZE BACK
;R1 NOW CONTAINS SIZE OF BLOCK IN BYTES
;ADD BYTE COUNT FOR HEADER BLOCK
;IS THIS A LANGUAGE HEADER?
iNO - QUIT

;sIF LAST BLOCK IS NOT LANGUAGE IT IS EITHER A UFD BLOCK OR UNUSED.
IF IT IS
IF UNUSED, IT CAN BE IGNORED. IN EITHER CASE,
;UFD, IT IS IN CORRECT POSITION.
iNO ACTION IS NECESSARY.
001302
001304
001310
001314
001316
001322
001326
001332
001334
001340
001344
001350
001354
001356
001360

010146
062701
004767
005003
004767
004767
004767
010546
004767
110566
004767
116600
012601
105703
001005

001362
001366
001372

042700
120027
001413

MOV
ADD

000005
000460

CALL
CLR
CALL
CALL
CALL

000424
000420
000414

MOV

CALL
MOvB
CALL
MOvB
MOV
TSTB

000406
000001
000376
000001

BNE
177437
000040

#5,R1
ROMADR
R3
REAROM
REAROM
REAROM
RS, -(SP)
REAROM
RS,1(SP)
REAROM

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

BIC

#177437 ,RO
R?.OUFDHDR

BEQ

CMPB

:SAVE SIZE FOR NOW
:ADD SIZE OF (POSSIBLE) UFD HEADER
:SET UP PCR AND RO
;INITIALIZE CKSUM
;GET A BYTE
;:GET A BYTE
;:GET A BYTE
;SAVE LOW BYTE OF SIZE FOR LATER
;:GET A BYTE
:SAVE HIGH BYTE OF SIZE AND ID
:GET A BYTE
;GET I.D.
;GET SIZE
:SEE IF VALID CKSUM
iNO - WE HAVE LANGUAGE ONLY.

:GET ID ONLY
;IS THIS A UFD BLOCK?
: YES, CONTINUE.

:IF WE GET HERE, WE HAVE A LANGUAGE ONLY AND NO UFD.
; THE LANGUAGE TO MAKE ROOM FOR EEPROM BOOTS,

001374
001376

001404
001410

005726
112737
012700
112705

000016
165774
000377

177522

TST

MOve
MOV
MOve

(SP)+

#16,3#PCRLB
#165774 ,RO
#377,RS

ETC.

WE CLOBBER

; CORRECT STACK
:SELECT LAST PAGE
;ADDRESS OF LANGUAGE I.D.
:BAD I.D.

| COEEMA EEPROM USENG LANG LDR

MACRO Y05.02

iK1

Wednesday 20-Feb-85 16:23

Page 6-2

SEQ 0010

CHECK FOR LANGUAGE
393
394
395
396
397
398
399

400
401
402
403
404
405
406

001414
001420

004767
000430

000174

CALL
BR

001422
001426
001432
001434
001440
001442
001446
001452

042701
062701
010104
010167
062601
012702
004767
001013

160000
000005

24:

BIC
ADD

#160000,R1
#5,R1
R1,R4
R1,UFDSIZ
(SP)+,R1
#BUFF ,R2
MOVROM
EXIT

MOV
MOV
ADD
MOV
CALL
BNE

000420

002417
000114

SAVE THE UFD BLOCK.

;GET RID OF ID
:SIZE OF HEADER
;:BYTE COUNT TO MOVE
:SAVE UFD SIZE

;ADD SIZE OF LANGUAGE AREA
;MEMORY ADDRESS TO SAVE TO
:SAVE UFD AREA
:IT IS BAD, QUIT.

;WRITE UFD BLOCK

001454
001460
001462
001466
001472
001474
001500

016701
001410
004767
012702
112205
004767
077104

001502
001506
001512
001516

142716
012637
005037
000207

000060
177520
177522

EXIT:

001520
001524
425 001526

004767
001405

000070

E2WRIT:

001526
001532
426 001534
427 001536

000001
000027
012700
104044
005726
000761

001540
001544
001550
001552
001556
001564

062700
020027
001005
012700
062737
000207

428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
4493

;GO CLOBBER LANGUAGE AREA TO FREE SPACE

;WE HAVE BOTH A LANGUAGE AREA AND A UFD BLOCK.

407

408
409
410
a11
412
413
414
415
416
417
418
419
420
421
422
423
424

WRBYTE
EXIT

000400

MOV

000306
002417

35¢:

000020

002276

3¢:

000002
166000

165000
000002

177522

10%:

UFDSIZ,R1

BEQ
JSR

EXIT
PC,ROMADR

MOove

(R2)+,R5

MOV

;GET

THE LENGTH OF THE UFD

:NO UFD AREA - SKIP
;COMPUTE E2PROM PAGE AND ADDR

#BUFF ,R2

;ADDRESS OF BEGINNING OF UFD AREA

CALL
S0B

E2WRIT
R1,35¢

;GO WRITE IT
;FINISHED UFD?

BICB
MOV
CLR

RTS

#60,(SP)
(SP)+,a#BCSR
a#PCR

;:BE SURE ROM IS DISABLED
;RESTORE BCSR
:

CALL
BEQ
.FRCTYP
.NARG
.NTYPE
MOV
EMT
TST
BR

WRBYTE
34
#FMSG3
NARGS
NTYPE, #FMSG3
#FMSG3,RO
44
(SP)+
EXIT

;WRITE THE BYTE TO E2PROM
;0K THIS TIME
:WARN USER OF CORRUPTED UFD AREA

ADD
CMP
BNE
MOV
ADD
RETURN

#2,R0
RO, #ENDE2R
10¢

.SBTTL

#E2PROM, RO

#2,30PCR

;:GET SOME DATA
s YES-EXIT

; CORRECT STACK
;QUIT

s INCREMENT LOCATION
;FINISHED THIS PAGE ?
;NO-RETURN
: YES-RESET ADDRESS
: INCREMENT PCR TO NEXT PAGE

PROGRAM SUBROUTINES

;MOVROM - MOVE BYTES FROM EEPROM TO MEMORY
;ENTRY- R1 = STARTING ADDRESS IN EEPROM (# OF BYTES FROM END)

;

R4 =

;EXIT

ADDRESS OF MEMORY BUFFER

# OF BYTES TO MOVE

R1 - UNCHANGED

:
:

R2
R3

- UPDATED MEMORY ADDRESS
= (BYTE) O IF VALID CKSUM

“Z" FLAG SET IF CKSUM VALID

COEEHA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 6-3

SEQ 0011

PROGRAM SUBROUTINES

001604
001606
001610
001612

010403
004767
010304
005003
004767
110522
077404
105703
000207

001614
001616

001452

001566
001570
001574
001576
001600

001620
001624
001626

001632
001634
001636
001640

001642
001646
001650
001654

001660
001662
001662
001666
473 001670

001670
001674
474 001676
475 001702
001702
001704
001710
476 001712

001712
001716
477 001720
478 001722
479 001726
001726
001732
480 001734

000200
000142

120510
001442
077307
113704
106204
062704
110467

010046

000002
000027
012701
104030
000001
000027
012700
104003
042705

000002
000005
010500
000027
012701
104030
000001
000027

012700
104003
013600
042700

R4,R3

:SAVE R4

BEQ

RS, (RO)
104

;IS THE NEW DATA DIFFERENT
iNO-DO NOT WRITE OVER

MOV
MOV
MOV

#RETRY,R3
R5,(RO)
#DELAY ,R4

sWRITE A LOCATION
;11 MS WAIT

CALL
MOV
CLR
CALL
Move
S0B
7578

WRBYTE
: CMPB

000003
025370

1%:

177522
000060
000237

002132

002062

177400

002160

002163
177400

002203

ROMADR
R3,R4
R3
REAROM
R5,(R2)+
R4,5$
R3

:LOAD PCR AND RO WITH LANGUAGE START AREA
;RESTORE BYTE COUNT
s INIT CHECKSUM
;GET A BYTE
:SAVE IT
;LOOP TILL DONE
+IS CHECKSUM GOOD?
?

soB

R4, .

;WASTE TIME

BEQ
soB

104
R3,1$

:YES, ALL OKAY
:IF AT FIRST YOU DON'T SUCCEED...

CMPB

000002

000027
012701
104030

S$:

MOV

RETURN

120510

012703
010510
012704
077401

MOVROM:

MOvB
ASRB
ADD
MOvB
MOV

RS, (RO)
a4PCRLB,R4
R4
#'0,R4
R4 ,FMSG1A
RO, -(SP)

:SEE IF IT TOOK

;PCR PAGE OF BAD BYTE
;:CONVERT TO PAGE #
;CONVERT TO OCTAL
;STORE IT FOR PRINTING
;SAVE ROM ADDRESS

.ITOA
,®#FMSG1B
; CONVERT ROM ADDRESS TO OCTAL
.NARG
NARGS
.NTYPE
NTYPE, #FMSG18B
MOV

EMT
.TYPMSG
.NARG
.NTYPE
MOV

#FMSG1B,R1

30
#FMSG1
NARGS
NTYPE, #FMSG1

;PRINT OUT FIRST PART OF MESSAGE

#FMSG1,RO

3
EMT
8IC
#177400,RS
;MAKE SURE RS IS POSITIVE AND A BYTE
.ITOA
RS, #DUMMY1
; CONVERT TO OCTAL
.NARG
NARGS
.NTYPE
NTYPE,RS
MOV

RS,RO

MOV

#DUMMY2,R1

.NTYPE
NTYPE, #DUMMY 1
MOV
#DUMMY1,R1
EMT
30
.TYPMSG #FMSG1C
;PRINT OUT LAST 3 DIGITS OF NUMBER & MESSAGE
.NARG
NARGS
.NTYPE
NTYPE, #FMSG1C
MOV
#FMSG1C,RO
3
EMT
MOV
a(SP)+,RO
;:GET BYTE AT ROM ADDRESS
BIC
#177400,R0
:GET RID OF BUS NOISE
.ITOA
» #DUMMY2
; CONVERT TO OCTAL
.NARG
NARGS
.NTYPE
NTYPE, #DUMMY2
EMT
20
.TYPMSG #FMSG1D

;PRINT LOWER 3 BYTES & REST OF MESSAGE

COEEHA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 6-4

SEQ 0012

PROGRAM SUBROUTINES

000001

001734
001740
001742
001744

000027
012700
104003

.NARG

002206

000244
000207

104:

.NTYPE
MOV
EMT
CLZ
RETURN

NARGS

NTYPE, #FMSG1D
#FMSG1D,RO
3

;COULDN'T DO IT,

SET ERROR FLAG

;REAROM - READS A BYTE FROM E2PROM ADDRESS (RO)+ INTO RS. AUTOMATICLY ADJUSTS
UPDATES CKSUM IN R3
;PCRLB.
:
ENTRY - RO
ADDRESS IN ROM TO READ FROM
;
R3
PARTIAL CKSUM
i
PCRLB
CORRECT VALUE FOR BYTE TO READ
:
EXIT
RO
ADDRESS OF NEXT BYTE

001746
001750
001752
001756
001760
001764
001772

012005

060503
020027
001005
012700
062737
000207

UPDATED CKSUM

i
;

RS
PCRLB

BYTE READ
CORRECT VALUE FOR NEXT BYTE

REAROM:

166000
165000
000002

177522

10%:

MOV
ADD

CMP
BNE
MOV
ADD
RETURN

(RO)+,RS
R5,R3

RO, #ENDE2R
104

#E2PROM, RO
#2,39PCR

:GET A BYTE & UPDATE ADDR.
;UPDATE CKSUM

BY 2

:SEE IF WE SHOULD SWITCH PAGES
:NO
:YES

- GO TO START OF PAGE
:ADVANCE A PAGE

;ROMADR - CALCULATE PAGE OFFSET FROM END OF ROM GIVEN SIZE IN BYTES
:
ENTRY - Rl
SIZE IN BYTES
:
EXIT RO
INITIAL ADDRESS FOR FIRST BYTE IN ROM
:
R1
SIZE IN BYTES
;
PCRLB
CORRECT VALUE FOR FIRST BYTE IN ROM
001774
001776
002000

ROMADR:

MOV

R1,RO

;:COPY BYTE COUNT

#7+1,R4

;LAST PAGE IN 2 K PART

002010

010100
010105
072527
012704
160504

002012
002016
002020
002022
00202:

042700
006300
001003
012700
000406

002030
002032
002036
002042

005400
042700
052700
005304

177000
165000

002044
002046
002052

006304
110437
000207

177522

002054
002056

000000
177777

WERR:
OLDSIZ:

O
-1

:FLAG FOR BAD BYTE
;20 - SIZE IN BYTES OF OLD LANGUAGE, O IF NO

002060

000000

UFDSIZ:

:SIZE IN BYTES OF OLD UFD AREA

002004

177770
000010

MOV
ASH
MOV

sue

177400

B8IC

165000

R1,RS5
#-8..,RS
R5,R4

: SECOND COPY
;:DIVIDE BYTE COUNT BY 256. BYTE PAGES
:STARTING PAGE NUMBER

©#177400,R0

;LEAVE ONLY BITS 7:0

BNE
MOV
BR

204
#E2PROM, rO
304

;

20%:

NEG
8IC
BIS
DEC

RO
#177000,R0
#E2PROM,RO
R4

sMAKE STARTING ADDRESS BITS 8:0
:
:MAKE A E2PROM ADDRESS
:DECREMENT PAGE NUMBER BY 1

30¢:

ASL
MOVB

R4
R4 ,30PCRLB

:MAKE PAGE NUMBER CORRECT FOR PCR
;CORRECT PAGE IN PCRLB

ASL

RTS

;DOUBLE VALUE

:IF O

;RETURN

;LANGUAGE, -1 IF E2PROM MAY BE BAD/NONEXISTANT

| COEEHA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 6-5
SEQ 0013

PROGRAM SUBROUTINES

534
535
536
537
538

.SBTTL
120
115
162
145
162
162
120

“FIELD SERVICE MODE” ERROR MESSAGES

.ENABL LC

FMSG1:

.ASCII

/EEPROM write error,

FMSG1A:

.ASCII

/X,

FMSG1B:

.BLKB

.ASCIZ

6
;:FOR ADDRESS
<CR><LF>/Data written /

.BLKB

.ASCIZ

.BLKB

;
7.

FMSG2:

.ASCII
.ASCIZ

.ASCIZ

/Language Area not supported on this processor./<CR><LF>

FMSG3:

.ASCIZ

<CR><LF>/WARNING: UFD area has been corrupted./<CR><LF>

PCR page /

147

539

040
144
163

540
541

104
141

address /

162
145

542
543

040

DUMMY1:

104
141
145
040

FMSG1C:

DUMMY2:

FMSG1D:

CRLF:

550

125

.BLKB

;3 UPPER BYTES NOT TO BE PRINTED
Data read /

;3 UPPER BYTES NOT TO BE PRINTfip

COEEHA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesdey 20-Feb-85 16:23

Page 6-6

SEQ 0014

“FIELD SERVICE MODE" ERROR MESSAGES

002312
002315

551 002350

106
141
141
141
142
156
157
165
145
015
103
143

165
145
157
151
105
122

002414
552 002417
553

040
145
150
040
145
143
162
164
056
000
145
163
040
162
040
040
120
115
145
160
162
056
000

.ASCIZ

/Checksum error

in EEPROM setup area./<CR><LF>

; TEMPORARY SAVE AREA FOR OLD AREA

COEEHA EEPROM USENG LANG LDR

MACRO Y05.02

Wednesday 20-Feb-85 16:23

Page 6-7

SEQ 0015

Symbol table

BACKSP=
BCSR
=
BDR
=
B8IT6é
=
BIT7
=
BUFF
CR
=
CRLF

000010
177520
177524
000100
000200
002417
000015
002212

002417

DUMMY2
ENDE2R=
ESC
=
EXIT
E2LLB =
E2PAR =
E2PROM=
E2WRIT

DELAY = 025370
DUMMY1
002160

ABS.

000000
Errors detected:
*+*

Assembler

FMSG1
FMSG1A

000
001
O

002203
166000
000033
001502
165006
165316
165000
001520

002062
002117

(RW,I,GBL,ABS,0VR)

(RW,I,LCL,REL,CON)

statistics

Work
file
reads:
Work
file writes:
Size of work file:
Size of core pool:
Operating
system:

0O
O
8503 Words
( 34 Pages)
19402 Words
( 74 Pages)
RSX-11M/PLUS (Under VAX/VMS)

Eleapsed time: 00:00:35.7S
OEEHA0.BIC,COEEHAO/CR=COEEHAQ

FMSG1B
FMSG1C
FMSG1D
FMSG2
FMSG3
FMSG4
LANG
LF
=

002132
002163
002206
002215
002276
002350
001210
000012

LNGHDR= 000140
MAXERR= 000004

MOVROM
NARGS =
NTYPE =
OLDSIZ
PCR
=
PCRLB =
REAROM
RETRY =

001566
000001
000027
002056
177522
177522
001746
000003

RMVTST= 173002

ROMADR
SPACE =
START
TAB
=
UFDHDR=
UFDSIZ
USETUP
WERR
WRBYTE

001774
000040
001000
000011
000040
002060
001114
002054
001614

COEEHAO

CREATED BY

MACRO

ON 20-FEB-85 AT 16:23

SYMBOL CROSS REFERENCE
SYMBOL

VALUE

CREF

000010
177520
177524
000100
000200
002417
000015
002212
025370
002160
002203
166000
000033
001502

#5-239
#5-218
#5-233
#5-237
#5-236
6-403
#5-234

E2LLB
E2PAR
E2PROM

165006
165316
165000

#5-223
#5-222
#5-221

E2WRIT

MAXERR
MOVROM
NARGS

001520
002062
002117
002132
002163
002206
002215
002276
002350
001210
000012
000140
000004
001566
000001

NTYPE

000027

OLDSIZ

002056
177522
177522
001746
000003
173002
001774
000040
001000
000011
000040
002060
001114

LF
LNGHDR

PCR
PCRLB
REAROM
RETRY
RMVTST
ROMADR

SPACE
START

TAB
UFDHDR

UFDSIZ
USETUP

SEQ 0016

Vo2

REFERENCES

BACKSP
BCSR
BDR
BIT6
BIT?
BUFF
CR
CRLF
DELAY
DUMMY1
DUMMY2
ENDEZ2R
ESC
EXIT

FMSG1
FMSG1A
FMSG1B
FMSG1C
FMSG1D
FMSG2
FMSG3
FMSG4
LANG

PAGE 1

#6-548

#5-226

6-475
6-479

#5-224
#5-241

6-315
6-427

6-518
6-414
6-473

*6-470

6-472
6-476
6-480
6-298
6-425
6-314
6-321
#5-235
#5-227
#5-231
6-404
#6-298
#6-473
6-479
#6-298
6-473
#6-480
#6-531

#5-219
#5-220

6-292

*6-293

*6-419

6-322
6-412
6-541

6-325
#6-552
6-548

6-330

6-333

6-335

6-549

6-550

6-551

6-462
6-475
6-479
6-340

#6-542
#6-545
6-430

6-496

6-327

6-336

6-350

6-360

6-394

6-405

6-410

#6-418

6-319
6-328
S5-222
6-523
#6-423
6-473
#6-539
6-472
6-476
6-480
6-298
6-425
6-314
6-332
6-541
6-359

*6-335

5-224

6-301

6-310

6-312

6-432

6-498

6-549

6-550

6-551

6-314
6-475

#6-425
6-475

#6-476

6-425

#6-472
6-476

6-472
#6-479

6-472
6-479

6-314
#6-475

#6-425
6-475

6-425
#6-476

#6-472
6-476

6-472
#6-479

#6-473
6-479

*6-433

*6-499
*6-527

6-451

#6-494

#6-447
6-298
6-473
#6-480
6-298
#6-475
6-480
*6-291
*6-341

5-223

#6-538
#6-540
#6-543
#6-546
#6-549
#6-550
#6-551
#6-340
6-548

#6-314
#6-475
6-480
#6-314
6-475
*6-420
*6-390

6-370

6-371
6-460

6-372

6-467
6-374

6-368

6-411

6-448

#6-509

#5-229
#5-225

#5-240
#6-291
#5-238
#5-228
*6-401

6-313

6-553
6-383
6-409

#6-319

#6-533

6-376

COEEHAO

CREATED BY

MACRO

ON 20-FEB-85 AT 16:23

SYMBOL CROSS REFERENCE
SYMBOL

WERR

WRBYTE

VALUE

002054
001614

PAGE 2
CREF

SEQ 0017

vo02

REFERENCES

#6-530

6-323

6-326

6-331

6-334

6-393

6-423

#6-457

COEEHAO

CREATED BY

MACRO

ON 20-FEB-85 AT 16:23

MACRO CROSS REFERENCE

MACRO NAME

REFERENCES

FRCTY
.ITOA
.TYPMS

#5-276
#5-255
#5-244

PAGE 3

CREF

6-425
6-472
6-298

6-475
6-314

6-479
6-473

F2
SEQ 0018

Vo2

6-476

6-480